You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

96 lines
1.9KB

  1. .setcpu "6502"
  2. lda $1B00
  3. sta $1B01
  4. rts
  5. lda $1B00
  6. sta $1B02
  7. lda #$00
  8. sta $1B03
  9. rts
  10. lda $1B04
  11. clc
  12. adc $1B06
  13. sta $1B08
  14. lda $1B05
  15. adc $1B07
  16. sta $1B09
  17. rts
  18. lda $1B0A
  19. sec
  20. sbc $1B0C
  21. sta $1B0E
  22. lda $1B0B
  23. sbc $1B0D
  24. sta $1B0F
  25. rts
  26. lda #$00
  27. sta $1B12
  28. lda $1B10
  29. cmp $1B11
  30. bne L0050
  31. lda $1B12
  32. ora #$01
  33. sta $1B12
  34. L0050: lda $1B10
  35. cmp $1B11
  36. beq L0060
  37. lda $1B12
  38. ora #$02
  39. sta $1B12
  40. L0060: lda $1B10
  41. cmp $1B11
  42. bcs L0070
  43. lda $1B12
  44. ora #$04
  45. sta $1B12
  46. L0070: lda $1B10
  47. cmp $1B11
  48. beq L007C
  49. bcc L007C
  50. bcs L0084
  51. L007C: lda $1B12
  52. ora #$08
  53. sta $1B12
  54. L0084: lda $1B10
  55. cmp $1B11
  56. beq L0096
  57. bcc L0096
  58. lda $1B12
  59. ora #$10
  60. sta $1B12
  61. L0096: lda $1B10
  62. cmp $1B11
  63. bcc L00A6
  64. lda $1B12
  65. ora #$20
  66. sta $1B12
  67. L00A6: rts
  68. lda #$00
  69. sta $1B14
  70. lda $1B10
  71. beq L00C1
  72. lda #$01
  73. sta $1B14
  74. lda $1B11
  75. beq L00C1
  76. lda #$01
  77. sta $1B13
  78. rts
  79. L00C1: lda #$00
  80. sta $1B13
  81. rts
  82. lda #$00
  83. sta $1B14
  84. lda $1B10
  85. bne L00E1
  86. lda #$01
  87. sta $1B14
  88. lda $1B11
  89. bne L00E1
  90. lda #$00
  91. sta $1B13
  92. rts
  93. L00E1: lda #$01
  94. sta $1B13
  95. rts

Powered by TurnKey Linux.