SHARE
TWEET

PGE2GR5

sjfroos Jun 10th, 2020 81 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 ; PGE2 GR5 - TEST PROGRAM
  2. 20 ; WRITTEN BY>JOHAN ROOS TIBBELIN
  3. 30 ; DATE: 2020-06-04
  4. 40 ; LAST CHANGED:2020-06-04
  5. 50 ;
  6. 55       .OPT OBJ
  7. 56       .OPT NO LIST
  8. 60       *=  $3000
  9. 65 ; CLEAR FPS COUNTER
  10. 66       LDA #0
  11. 67       STA $F9
  12. 68       STA $FA
  13. 70 ; INIT DISPLAY LIST
  14. 80       LDA #$00
  15. 90       STA 560
  16. 0110     LDA #$38
  17. 0120     STA 561
  18. 0130     LDA #$00
  19. 0140     STA $0200
  20. 0150     LDA #$37
  21. 0160     STA $0201
  22. 0170 ; SET VBI
  23. 0180     LDX #$36
  24. 0190     LDY #$00
  25. 0200     LDA #7
  26. 0210     JSR $E45C
  27. 0220 DLOOP JSR RGFX
  28. 0230     JMP DLOOP
  29. 0497 ;
  30. 0498 ; DLI
  31. 0499 ;
  32. 0500     *=  $3700
  33. 0510 DLI
  34. 0520     PHA
  35. 0530     TXA
  36. 0540     PHA
  37. 0600     PLA
  38. 0610     TAX
  39. 0620     PLA
  40. 0630     RTI
  41. 0697 ;
  42. 0698 ; VBI
  43. 0699 ;
  44. 0700     *=  $3600
  45. 0710 VBI
  46. 0720     LDA $FA
  47. 0730     CMP #50
  48. 0740     BNE N50
  49. 0750 ;STA $FB
  50. 0760     LDA #0
  51. 0770     STA $FA
  52. 0780     LDA $FB
  53. 0781     AND #$0F
  54. 0782     CLC
  55. 0783     ADC #$10
  56. 0785     STA $39C7
  57. 0786     LDA $FB
  58. 0787     LDX #4
  59. 0788 SHIFT4 LSR A
  60. 0789     DEX
  61. 0790     BNE SHIFT4
  62. 0791     CLC
  63. 0792     ADC #$10
  64. 0793     STA $39C6
  65. 0794     LDA $FC
  66. 0795     AND #$0F
  67. 0796     CLC
  68. 0797     ADC #$10
  69. 0798     STA $39C5
  70. 0800     LDA #0
  71. 0810     STA $FB
  72. 0812     STA $FC
  73. 0820 N50
  74. 0830     INC $FA
  75. 0835 ;   LDA $FB
  76. 0840 ;   CLC
  77. 0842 ;   SED
  78. 0845 ;   ADC #1
  79. 0847 ;   STA $FB
  80. 0850 ;   BCC NCVBI
  81. 0853 ;   CLD
  82. 0855 ;   LDA $FC
  83. 0856 ;   STA $FC
  84. 0860 ;   ADC #0
  85. 0870 NCVBI
  86. 0880     CLD
  87. 0890     JMP $E462
  88. 0900     *=  $39C1
  89. 0910     .BYTE "fps",$1A
  90. 0997 ;
  91. 0998 ; DISPLAY LIST (MODE E)
  92. 0999 ;
  93. 1000     *=  $3800
  94. 1005 ; 8 BLANKS - LINE 0-31
  95. 1010     .BYTE $70,$42,$A0,$39
  96. 1015     .BYTE $47,$E6,$39
  97. 1020     .BYTE $4A,$00,$40
  98. 1030     .BYTE $0A,$0A,$0A
  99. 1040     .BYTE $0A,$0A,$0A,$0A
  100. 1050     .BYTE $0A,$0A,$0A,$0A
  101. 1060     .BYTE $0A,$0A,$0A,$0A
  102. 1070     .BYTE $0A,$0A,$0A,$0A
  103. 1080     .BYTE $0A,$0A,$0A,$0A
  104. 1090     .BYTE $0A,$0A,$0A,$0A
  105. 1100     .BYTE $0A,$0A,$0A,$0A
  106. 1105 ; LINE 32-63
  107. 1110 ; LINES 32-64
  108. 1120     .BYTE $0A,$0A,$0A
  109. 1130     .BYTE $0A,$0A,$0A
  110. 1140     .BYTE $0A,$0A,$41,$00
  111. 1150     .BYTE $38,$0E,$0E,$0E
  112. 1160     .BYTE $0E,$0E,$0E,$0E
  113. 1170     .BYTE $0E,$0E,$0E,$0E
  114. 1180     .BYTE $0E,$0E,$0E,$0E
  115. 1190     .BYTE $0E,$0E,$0E,$0E
  116. 1200     .BYTE $0E,$0E,$0E,$0E
  117. 1210 ; LINE 64-95
  118. 1220     .BYTE $4E,$00,$50
  119. 1230     .BYTE $0E,$0E,$0E
  120. 1240     .BYTE $0E,$0E,$0E,$0E
  121. 1250     .BYTE $0E,$0E,$0E,$0E
  122. 1260     .BYTE $0E,$0E,$0E,$0E
  123. 1270     .BYTE $0E,$0E,$0E,$0E
  124. 1280     .BYTE $0E,$0E,$0E,$0E
  125. 1290     .BYTE $0E,$0E,$0E,$0E
  126. 1300     .BYTE $0E,$0E,$0E,$0E
  127. 1310 ; LINE 96-127
  128. 1320     .BYTE $4E,$00,$55
  129. 1330     .BYTE $0E,$0E,$0E
  130. 1340     .BYTE $0E,$0E,$0E,$0E
  131. 1350     .BYTE $0E,$0E,$0E,$0E
  132. 1360     .BYTE $0E,$0E,$0E,$0E
  133. 1370     .BYTE $0E,$0E,$0E,$0E
  134. 1380     .BYTE $0E,$0E,$0E,$0E
  135. 1390     .BYTE $0E,$0E,$0E,$0E
  136. 1400     .BYTE $0E,$0E,$0E,$0E
  137. 1410 ; LINE 128-159
  138. 1420     .BYTE $4E,$00,$60
  139. 1430     .BYTE $0E,$0E,$0E
  140. 1440     .BYTE $0E,$0E,$0E,$0E
  141. 1450     .BYTE $0E,$0E,$0E,$0E
  142. 1460     .BYTE $0E,$0E,$0E,$0E
  143. 1470     .BYTE $0E,$0E,$0E,$0E
  144. 1480     .BYTE $0E,$0E,$0E,$0E
  145. 1490     .BYTE $0E,$0E,$0E,$0E
  146. 1500     .BYTE $0E,$0E,$0E,$0E
  147. 1510 ; LINE 160-192
  148. 1520     .BYTE $4E,$00,$65
  149. 1530     .BYTE $0E,$0E,$0E
  150. 1540     .BYTE $0E,$0E,$0E,$0E
  151. 1550     .BYTE $0E,$0E,$0E,$0E
  152. 1560     .BYTE $0E,$0E,$0E,$0E
  153. 1570     .BYTE $0E,$0E,$0E,$0E
  154. 1580     .BYTE $0E,$0E,$0E,$0E
  155. 1590     .BYTE $0E,$0E,$0E,$0E
  156. 1600     .BYTE $0E,$0E,$0E,$0E
  157. 1610 ; LINE 192-224
  158. 1620     .BYTE $41,$00,$48
  159. 1630     .BYTE $0E,$0E,$0E
  160. 1640     .BYTE $0E,$0E,$0E,$0E
  161. 1650     .BYTE $0E,$0E,$0E,$0E
  162. 1660     .BYTE $0E,$0E,$0E,$0E
  163. 1670     .BYTE $0E,$0E,$0E,$0E
  164. 1680     .BYTE $0E,$0E,$0E,$0E
  165. 1690     .BYTE $0E,$0E,$0E,$0E
  166. 1700     .BYTE $0E,$0E,$0E,$0E
  167. 1710     .BYTE $41,$00,$48
  168. 1900     *=  $39E6
  169. 1910 TEXT .BYTE $00,$30,"ixel",$27,"ame",$25
  170. 1920     .BYTE "ngine",$00,$12,$0E,$10
  171. 1997 ;
  172. 1998 ; RANDOM GRAPHICS
  173. 1999 ;
  174. 2000     *=  $3100
  175. 2005 RGFX
  176. 2010     LDY #$14
  177. 2020     LDX #$28
  178. 2050 RGFXLOOP
  179. 2059 ; GET RANDOM BYTE (POKEY)
  180. 2060     LDA $D20A
  181. 2070 SM  STA $4000
  182. 2080     INC SM+1
  183. 2090     BNE NC
  184. 2100     INC SM+2
  185. 2110 NC
  186. 2130     DEY
  187. 2140     BNE RGFXLOOP
  188. 2145     LDY #$14
  189. 2150     DEX
  190. 2160     BNE RGFXLOOP
  191. 2165 ; RESTORE ADDRESS
  192. 2170     LDA #$40
  193. 2180     STA SM+2
  194. 2190     LDA #$00
  195. 2200     STA SM+1
  196. 2201     SED
  197. 2202     LDA $FB
  198. 2203     CLC
  199. 2204     ADC #$01
  200. 2205     STA $FB
  201. 2206     BCC NCFC1
  202. 2207     LDA $FC
  203. 2208     ADC #0
  204. 2209     STA $FC
  205. 2210 NCFC1 CLD
  206. 2220     RTS
  207. 9999     .OPT LIST
RAW Paste Data
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
Top