Advertisement
Guest User

"Sprite" moving

a guest
May 31st, 2019
177
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;==========================
  2. ; TITLE : "Sprite" moving
  3. ; DEV : Dan 2019
  4. ;==========================
  5. main: ; start of main loop
  6. LDX #$00
  7. draw: ; draw the sprite
  8. LDA sprite_Data,X
  9. TAY
  10. LDA sprite_Color,X
  11. STA $0200,Y
  12. INX
  13. CPX #$10
  14. BNE draw
  15. move: ; shifts the positions of the pixels left
  16. LDX #$00
  17. move_loop:
  18. INC sprite_Data,X
  19. LDA sprite_Data,X
  20. CMP #$20
  21. BEQ reset
  22. INX
  23. CPX #$10
  24. BNE move_loop
  25. clear: ; clears screen to cyan
  26. LDA #$03
  27. LDY #$00
  28. clear_loop:
  29. STA $0200,Y
  30. INY
  31. CPY #$FF
  32. BNE clear_loop
  33. STA $02FF
  34. JMP main
  35. reset: ; jumps back to start point
  36. LDY #$00
  37. reset_loop:
  38. LDA sprite_Original,Y
  39. STA sprite_Data,Y
  40. INY
  41. CPY #$10
  42. BNE reset_loop
  43. JMP clear
  44. sprite_Data: ; current pixel postion
  45.     dcb $0,$1,$2,$3
  46.     dcb $20,$21,$22,$23
  47.     dcb $40,$41,$42,$43
  48.     dcb $60,$61,$62,$63
  49. sprite_Color: ; colour of each pixel
  50.     dcb $3,$8,$8,$3
  51.     dcb $8,$7,$7,$8
  52.     dcb $8,$7,$7,$8
  53.     dcb $3,$8,$8,$3
  54. sprite_Original: ; original starting point of pixel
  55.     dcb $0,$1,$2,$3
  56.     dcb $20,$21,$22,$23
  57.     dcb $40,$41,$42,$43
  58.     dcb $60,$61,$62,$63
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement