Guest User

ThePat545: Failing At Coding Sprites Since 2016©

a guest
Feb 27th, 2016
63
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. dcb "INIT"
  2. LDA #$17
  3. STA $13BF
  4. LDA #$01
  5. STA $1426
  6. LDA #$00
  7. STA $5C
  8. RTL
  9. dcb "MAIN"
  10. LDA $14
  11. AND #$40
  12. BNE Return
  13. LDA $5C
  14. CMP #$00
  15. BEQ Projectile1
  16. LDA $5C
  17. CMP #$01
  18. BEQ Projectile2
  19. RTL
  20. Return:
  21. RTL
  22. Projectile1:
  23. LDA $79
  24. CMP #$01
  25. BEQ Return
  26. LDA $14
  27. AND #$40
  28. BNE Return
  29. LDA #$40
  30. STA $14
  31. LDA #$01
  32. STA $5C
  33.  
  34. GEN_EXTRA LDY #$02
  35. EXTRA_LOOP LDA $170B,y
  36. BEQ EXTRA_1
  37. DEY
  38. BPL EXTRA_LOOP
  39. RTS
  40. EXTRA_1 LDA #$06
  41. STA $170B,y
  42. LDA $E4,x
  43. STA $171F,y
  44. LDA $14E0,x
  45. STA $1733,y
  46. LDA $D8,x
  47. STA $1715,y
  48. LDA $14D4,x
  49. STA $1729,y
  50. LDA #$00 ; y speed = 01
  51. STA $173D,y
  52. LDA #$D0
  53. STA $1747,y
  54. LDA #$FF
  55. STA $176F,y
  56. RTL
  57. Return2:
  58. RTL
  59. Projectile2:
  60. LDA $5C
  61. CMP #$01
  62. BEQ Return2
  63. LDA $14
  64. AND #$40
  65. BNE Return2
  66. LDA #$40
  67. STA $14
  68. LDA #$00
  69. STA $5C
  70.  
  71. GEN_EXTRA2 LDY #$07
  72. EXTRA_LOOP2 LDA $170B,y
  73. BEQ EXTRA_2
  74. DEY
  75. BPL EXTRA_LOOP2
  76. RTS
  77. EXTRA_2 LDA #$02
  78. STA $170B,y
  79. LDA $E4,x
  80. STA $171F,y
  81. LDA $14E0,x
  82. STA $1733,y
  83. LDA $D8,x
  84. STA $1715,y
  85. LDA $14D4,x
  86. STA $1729,y
  87. LDA #$00 ; y speed = 01
  88. STA $173D,y
  89. LDA #$C0
  90. STA $1747,y
  91. LDA #$FF
  92. STA $176F,y
  93. RTL
RAW Paste Data