home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / scratch&save.pal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  816b  |  53 lines
  1. 100 sys700
  2. 110 ; scratch and save
  3. 120 ; bob hayes; winnipeg, manitoba
  4. 130 ; routine help from brian munshaw's
  5. 140 ; "new error wedge".
  6. 150 .opt oo
  7. 160 write =*
  8. 170 jsr $ad9e
  9. 180 jsr $b6a3
  10. 190 stx $fb
  11. 200 sty $fc
  12. 210 pha
  13. 220 ldx #0
  14. 230 mloop =*
  15. 240 lda smsg,x
  16. 250 jsr $ffd2
  17. 260 inx
  18. 270 cpx #11
  19. 280 bne mloop
  20. 290 lda #8
  21. 300 jsr $ffb1 ;listen
  22. 310 lda #$6f
  23. 320 jsr $ff93 ;send secondary address
  24. 330 lda #"s"
  25. 340 jsr $ffa8 ;ciout
  26. 350 ;lda #":"
  27. 360 ;jsr $ffa8 ;ciout
  28. 370 pla
  29. 380 tax
  30. 390 ldy #0
  31. 400 sloop =*
  32. 410 lda ($fb),y
  33. 420 jsr $ffa8 ;ciout
  34. 430 jsr $ffd2
  35. 440 iny
  36. 450 dex
  37. 460 bne sloop
  38. 470 sty $fd
  39. 480 jsr $ffae ;unlsn
  40. 490 lda $fd
  41. 500 ldx $fb
  42. 510 ldy $fc
  43. 515 jsr $ffbd ;setnam
  44. 520 lda #8
  45. 530 tay
  46. 540 tax
  47. 550 jsr $ffba ;setlfs (open8,8,8)
  48. 560 lda #$2b
  49. 570 ldx $2d
  50. 580 ldy $2e
  51. 590 jmp $ffd8 ;save $2b,2c to .x,.y
  52. 600 smsg .asc "scratching "
  53.