home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D12.D64 / primm.src (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  448 b   |  34 lines
  1. 1000 *=$C100
  2. 1010 ;
  3. 1020 PRIMM STA XPRASTORE
  4. 1030 STX XPRXSTORE
  5. 1040 STY XPRYSTORE
  6. 1050 PLA
  7. 1060 STA $FB
  8. 1070 PLA
  9. 1080 STA $FC
  10. 1090 INC $FB
  11. 1100 BNE XPR3
  12. 1110 INC $FC
  13. 1120 XPR3 LDY #0
  14. 1130 XPR1 LDA ($FB),Y
  15. 1140 BEQ XPR4
  16. 1150 JSR $FFD2
  17. 1160 INC $FB
  18. 1170 BNE XPR2
  19. 1180 INC $FC
  20. 1190 XPR2 JMP XPR1
  21. 1200 XPR4 LDA $FC
  22. 1210 PHA
  23. 1220 LDA $FB
  24. 1230 PHA
  25. 1240 LDA XPRASTORE
  26. 1250 LDX XPRXSTORE
  27. 1260 LDY XPRYSTORE
  28. 1270 RTS
  29. 1280 ;
  30. 1290 XPRASTORE BYT 0
  31. 1300 XPRXSTORE BYT 0
  32. 1310 XPRYSTORE BYT 0
  33. 1320 ;
  34.