home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 19 / Big_Mouth_The_19_1998_-_Side_A.d64 / fill mem.src (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  393b  |  31 lines
  1. 10 *=$c000
  2. 12 lda #$37
  3. 14 sta $01
  4. 20 jsr gtnum
  5. 30 sta $fb
  6. 40 sty $fc
  7. 50 jsr gtnum
  8. 60 sta $fd
  9. 70 sty $fe
  10. 80 jsr gtnum
  11. 90 ldx #$00
  12. 100 ldy $fb
  13. 110 stx $fb
  14. 120 cpylp ;copy loop
  15. 130 sta ($fb),y
  16. 140 iny
  17. 150 bne nt0
  18. 160 inc $fc
  19. 170 nt0 cpy $fd
  20. 180 bne cpylp
  21. 190 ldx $fc
  22. 200 cpx $fe
  23. 210 bcc cpylp
  24. 220 rts
  25. 230 gtnum jsr $e20e
  26. 240 jsr $ad9e
  27. 250 jsr $b7f7
  28. 260 lda $14
  29. 270 ldy $15
  30. 280 rts
  31.