Guest User

Untitled

a guest
Jan 19th, 2019
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.14 KB | None | 0 0
  1. ORG $00
  2.  
  3. START LDAB $FE
  4.  
  5. LDAA $FD
  6. ANDA #%10000000
  7. BPL START
  8.  
  9. LDAB #%00000001
  10. STAB $FE
  11. JSR DELAY1
  12. LDAB #%00000000
  13. STAB $FE
  14.  
  15.  
  16. LDAA $FD
  17. ANDA #%10000000
  18. BPL START
  19.  
  20.  
  21. LDAB #%00000010
  22. STAB $FE
  23. JSR DELAY1
  24. LDAB #%00000000
  25. STAB $FE
  26.  
  27.  
  28. LDAA $FD
  29. ANDA #%10000000
  30. BPL START
  31.  
  32.  
  33. LDAB #%00000100
  34. STAB $FE
  35. JSR DELAY1
  36. LDAB #%00000000
  37. STAB $FE
  38.  
  39.  
  40. LDAA $FD
  41. ANDA #%10000000
  42. BPL START
  43.  
  44.  
  45. LDAB #%00001000
  46. STAB $FE
  47. JSR DELAY1
  48. LDAB #%00000000
  49. STAB $FE
  50.  
  51.  
  52. LDAA $FD
  53. ANDA #%10000000
  54. BPL START
  55.  
  56.  
  57. LDAB #%00010000
  58. STAB $FE
  59. JSR DELAY1
  60. LDAB #%00000000
  61. STAB $FE
  62.  
  63. LDAA $FD
  64. ANDA #%10000000
  65. BPL START
  66.  
  67. LDAB #%00100000
  68. STAB $FE
  69. JSR DELAY1
  70. LDAB #%00000000
  71. STAB $FE
  72.  
  73.  
  74. LDAA $FD
  75. ANDA #%10000000
  76. BPL START
  77.  
  78.  
  79. LDAB #%01000000
  80. STAB $FE
  81. JSR DELAY1
  82. LDAB #%00000000
  83. STAB $FE
  84.  
  85.  
  86. LDAA $FD
  87. ANDA #%10000000
  88. BPL START
  89.  
  90.  
  91. LDAB #%10000000
  92. STAB $FE
  93. JSR DELAY1
  94. LDAB #%00000000
  95. STAB $FE
  96. BRA OMSTART
  97.  
  98. OMSTART ORG $FF
  99. FCB $00
  100.  
  101. DELAY1 ORG $D0
  102. PSHA
  103. LDAA $0F
  104. DECA
  105. BEQ FORTS
  106. FORTS PULA
  107. RTS
Add Comment
Please, Sign In to add comment