daily pastebin goal
83%
SHARE
TWEET

Untitled

a guest Sep 8th, 2018 83 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; Hardware detection
  2. HWN I
  3. :HW_MAP
  4. SUB I, 1
  5. HWQ I
  6. IFE B, 0x7349 ; Get MONITOR
  7.     IFE A, 0xf615
  8.         SET [MONITOR], I
  9. IFE B, 0x30cf
  10.     IFE A, 0x7406
  11.         SET [KEYBOARD], I ; Get KEYBOARD
  12. IFE B, 0x12d0
  13.     IFE A, 0xb402
  14.         SET [CLOCK], I ;Get CLOCK
  15. IFE B, 0x0206
  16.     IFE A, 0x0001
  17.         SET [SPEAKER], I ; Get Speaker [Exclusive from Benedek's Emulator]
  18. IFN I, 0
  19.    SET PC, HW_MAP ; If we haven't checked all, loop .
  20. ; End of Hardware detection
  21. ; Set screen border color to dark blue
  22. SET A, 3
  23. SET B, 0x1
  24. HWI [MONITOR]
  25. ; Set monitor to MEM_MAP_SCREEN mode.
  26. SET A, 0
  27. SET B, 0x8000
  28. HWI [MONITOR]
  29.  
  30. SET X, 0x8000 ; Paramter for DRW_PROMPT Subroutine
  31. JSR DRW_PROMPT ; Execute DRW_PROMPT subroutine
  32.  
  33. SET A, 0
  34. SET B, 494
  35. HWI [SPEAKER]
  36.  
  37. SET I, 9
  38. :MAIN
  39.  
  40. SET PC, MAIN
  41.  
  42. :DRW_PROMPT
  43. IFE [PROMPT+J],0
  44.     SET PC, POP
  45. SET [X],[PROMPT+J]
  46. BOR [X],0xF000
  47. ADD J, 1
  48. ADD X, 1
  49. SET PC, DRW_PROMPT
  50.  
  51. :MONITOR
  52. DAT 0
  53. :KEYBOARD
  54. DAT 0
  55. :CLOCK
  56. DAT 0
  57. :SPEAKER
  58. DAT 0
  59. :PROMPT
  60. DAT "root: $ ",0
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top