API tools faq
paste
NovaYoshi

microgame test output

NovaYoshi
Jan 26th, 2019
162
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
6502 ACME Cross Assembler 2.27 KB | None | 0 0
raw download clone embed print report
  1. .enum ActorType
  2. empty
  3. misc_test
  4. condition_test
  5. getme
  6. player
  7. .endenum
  8.  
  9. .proc ActorWidth
  10. .byt 0
  11. .byt 16
  12. .byt 16
  13. .byt 16
  14. .byt 16
  15. .endproc
  16.  
  17. .proc ActorHeight
  18. .byt 0
  19. .byt 16
  20. .byt 16
  21. .byt 16
  22. .byt 16
  23. .endproc
  24.  
  25. .proc ActorRunLow
  26. .byt <(DoNothing-1)
  27. .byt <(actor_run_misc_test-1)
  28. .byt <(actor_run_condition_test-1)
  29. .byt <(actor_run_getme-1)
  30. .byt <(actor_run_player-1)
  31. .endproc
  32.  
  33. .enum ActorRunHigh
  34. .byt >(DoNothing-1)
  35. .byt >(actor_run_misc_test-1)
  36. .byt >(actor_run_condition_test-1)
  37. .byt >(actor_run_getme-1)
  38. .byt >(actor_run_player-1)
  39. .endproc
  40.  
  41. .proc ActorInitLow
  42. .byt <(DoNothing-1)
  43. .byt <(actor_init_misc_test-1)
  44. .byt <(actor_init_condition_test-1)
  45. .byt <(actor_init_getme-1)
  46. .byt <(actor_init_player-1)
  47. .endproc
  48.  
  49. .proc ActorInitHigh
  50. .byt >(DoNothing-1)
  51. .byt >(actor_init_misc_test-1)
  52. .byt >(actor_init_condition_test-1)
  53. .byt >(actor_init_getme-1)
  54. .byt >(actor_init_player-1)
  55. .endproc
  56.  
  57. .proc ActorGraphic
  58. .byt 0
  59. .byt $03
  60. .byt $05
  61. .byt $e8
  62. .byt $01
  63. .endproc
  64.  
  65. .proc game_run
  66. Exit:
  67. rts
  68. .endproc
  69.  
  70. .proc actor_run_misc_test
  71. lda #50
  72. sta 1
  73. lda #50
  74. sta 0
  75. lda #ActorTypes::getme
  76. jsr ActorCreateAtXY
  77.  
  78. nop
  79. nop
  80. nop
  81.  
  82. jsr subroutine_test
  83.  
  84. lda ActorSpeed,x
  85. cmp #20
  86. jcs lbl_1
  87. inc ActorSpeed,x
  88.  
  89. jmp lbl_2
  90. lbl_1:
  91. lda #0
  92. sta ActorSpeed,x
  93.  
  94. lbl_2:
  95.  
  96. Exit:
  97. rts
  98. .endproc
  99.  
  100. .proc actor_run_condition_test
  101. lda MicrogameGlobals
  102. cmp MicrogameGlobals+1
  103. jcs lbl_3
  104. inc ActorSpeed,x
  105.  
  106. lbl_3:
  107.  
  108. lda MicrogameGlobals
  109. cmp MicrogameGlobals+1
  110. jcc lbl_5
  111. inc ActorSpeed,x
  112.  
  113. lbl_5:
  114.  
  115. lda MicrogameGlobals
  116. cmp #10
  117. jcc lbl_9
  118. lda MicrogameGlobals
  119. cmp MicrogameGlobals+1
  120. jcs lbl_7
  121. lbl_9:
  122. inc ActorSpeed,x
  123.  
  124. lbl_7:
  125.  
  126. lda MicrogameGlobals
  127. cmp #10
  128. jcs lbl_10
  129. lda MicrogameGlobals
  130. cmp MicrogameGlobals+1
  131. jcs lbl_10
  132. inc ActorSpeed,x
  133.  
  134. lbl_10:
  135.  
  136. Exit:
  137. rts
  138. .endproc
  139.  
  140. .proc actor_run_getme
  141. lda #1
  142. sta ActorSpeed,x
  143.  
  144. jsr ActorBallMovement
  145.  
  146. lda #ActorTypes::player
  147. jsr ActorTouchingType
  148. jcc lbl_12
  149. lda #0
  150. sta ActorType,x
  151.  
  152. lda #ActorTypes::getme
  153. jsr ActorFindType
  154. jcs lbl_14
  155. jsr WinGame
  156.  
  157. lbl_14:
  158.  
  159. lbl_12:
  160.  
  161. Exit:
  162. rts
  163. .endproc
  164.  
  165. .proc actor_run_player
  166. lda #2
  167. sta ActorSpeed,x
  168.  
  169. lda #255
  170. jsr Actor8WayMovement
  171.  
  172. Exit:
  173. rts
  174. .endproc
  175.  
  176. .proc subroutine_test
  177. lda #1
  178. lda #2
  179. lda #3
  180. lda #4
  181.  
  182. jsr ActorStop
  183.  
  184. Exit:
  185. rts
  186. .endproc
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!