sjfroos

PGE2GR5

Jun 10th, 2020
221
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