home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_13_1986_Transactor_Publishing.d64 / lwrite (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  80 lines
  1. 0 rem lwrite (s. hammer 12/85)        :
  2. 1 :
  3. 2 rem 4 statements, 0 functions
  4. 3 :
  5. 4 rem keyword characters: 19
  6. 5 :
  7. 6 rem keyword   routine   line   ser #
  8. 7 rem s/ldvn    ldv      12190    161
  9. 8 rem s/lsec    lse      12212    162
  10. 9 rem s/lwrite  lprn     12236    163
  11. 10 rem s/llist   lst      12252    164
  12. 11 :
  13. 12 rem ================================
  14. 13 :
  15. 149 .asc "lwrit[197]ldv[206]lse[195]llis[212]"
  16. 1149 .word lprn-1,ldv-1,lse-1,lst-1
  17. 12190 ldv jsr $b79e
  18. 12192 cpx #3
  19. 12194 bcc badev
  20. 12196 cpx #8
  21. 12198 bcs badev
  22. 12200 stx dv
  23. 12202 rts
  24. 12204 ;
  25. 12206 badev ldx #9
  26. 12208 jmp $a437
  27. 12210 ;
  28. 12212 lse jsr $b79e
  29. 12214 stx se
  30. 12216 rts
  31. 12218 ;
  32. 12220 opf jsr lpr1
  33. 12222 lda #0
  34. 12224 jsr $ffbd
  35. 12226 lda #$78
  36. 12228 ldx dv
  37. 12230 ldy se
  38. 12232 jsr $ffba
  39. 12234 jmp $ffc0
  40. 12236 ;
  41. 12238 lprn jsr opf
  42. 12240 ldx #$78
  43. 12242 jsr $79
  44. 12244 jsr $aa90
  45. 12246 lpr1 jsr $abb5;basic clrchn
  46. 12248 lda #$78
  47. 12250 jmp $ffc3
  48. 12252 ;
  49. 12254 lst jsr opf
  50. 12256 jsr lfix
  51. 12258 ldx #$78
  52. 12260 stx $13
  53. 12262 jsr $e118
  54. 12264 jsr $aad7
  55. 12266 jsr $79
  56. 12268 jmp $a6a4
  57. 12270 ;
  58. 12272 lfix lda $0300;direct warmstart
  59. 12274 ldy $0301
  60. 12276 sta wsvec
  61. 12278 sty wsvec+1
  62. 12280 lda #<lret
  63. 12282 ldy #>lret
  64. 12284 sta $0300
  65. 12286 sty $0301
  66. 12288 rts
  67. 12290 ;
  68. 12292 lret lda wsvec
  69. 12294 ldy wsvec+1
  70. 12296 sta $0300
  71. 12298 sty $0301
  72. 12300 jsr $aad7
  73. 12302 jsr lpr1
  74. 12304 jmp $e386
  75. 12306 ;
  76. 12308 dv .byte 4
  77. 12310 se .byte $ff
  78. 12312 wsvec .word $e38b;warmstart rtn
  79. 12314 ;
  80.