home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #12 / Commodore_Disk_User_Vol.4_12_1991_-.d64 / primm.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  448b  |  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.