Advertisement
Guest User

Untitled

a guest
Jun 1st, 2021
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.95 KB | None | 0 0
  1. Keys: db $02, $04, $08, $01
  2. Tiles: db $80, $82, $84, $86
  3.  
  4. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  5. ; sprite init JSL
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7.  
  8. print "INIT ",pc
  9. LDA #$C0
  10. STA $AA,x
  11. LDA $E4,x
  12. CMP #$58
  13. BNE +
  14. LDY #$00
  15. +
  16. CMP #$70
  17. BNE +
  18. LDY #$01
  19. +
  20. CMP #$88
  21. BNE +
  22. LDY #$02
  23. +
  24. CMP #$A0
  25. BNE +
  26. LDY #$03
  27. +
  28. STY $C2,x
  29. RTL
  30.  
  31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  32. ; sprite main code
  33. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  34.  
  35. print "MAIN ",pc
  36. PHB : PHK : PLB
  37. LDA $9D
  38. BNE +
  39. JSR Main
  40. +
  41. JSR Gfx
  42. PLB
  43. RTL ; Return
  44.  
  45. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  46. ; sprite code JSL
  47. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  48.  
  49. Main:
  50. JSL $01801A
  51. LDA $14D4,x
  52. XBA
  53. LDA $D8,x
  54. REP #$20
  55. CMP #$0020
  56. BPL +
  57. Miss:
  58. SEP #$20
  59. STZ $14C8,x
  60. DEC $18C6
  61. BEQ DontDoubleDec
  62. DEC $18C6
  63. DontDoubleDec:
  64. LDA #$03
  65. STA $18C8
  66. RTS
  67. +
  68. CMP #$0040
  69. SEP #$20
  70. BPL CheckForHit
  71. Return:
  72. RTS
  73.  
  74. CheckForHit:
  75. ; Check for kepress
  76. LDY $C2,x
  77. LDA Keys,y
  78. STA $00
  79. LDA $16
  80. AND $00
  81. BEQ Return
  82. ;
  83. LDA $14D4,x
  84. XBA
  85. LDA $D8,x
  86. REP #$20
  87. CMP #$0070
  88. BPL Return
  89. CMP #$0058
  90. BPL Ok
  91. CMP #$0048
  92. BPL Good
  93. Ok:
  94. SEP #$20
  95. STZ $14C8,x
  96. LDA #$01
  97. STA $18C8
  98. LDA $18C6
  99. BEQ +
  100. INC $18C6
  101. +
  102. RTS
  103. Good:
  104. SEP #$20
  105. STZ $14C8,x
  106. LDA #$02
  107. STA $18C8
  108. LDA $18C6
  109. BEQ +
  110. INC $18C6
  111. CMP #$32
  112. BCC +
  113. INC $18C6
  114. +
  115. RTS
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement