home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_15_1987_Transactor_Publishing.d64 / datafy (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  136 lines
  1. 0 rem datafy (steve hammer 3/86)      :
  2. 1 :
  3. 2 rem 1 statement, 0 functions
  4. 3 :
  5. 4 rem keyword characters: 6
  6. 5 :
  7. 6 rem keyword    routine   line  ser #
  8. 7 rem datafy     dafy      15306  205
  9. 8 :
  10. 9 rem =================================
  11. 10 :
  12. 39 setlfs = $ffba
  13. 40 setnam = $ffbd
  14. 41 open   = $ffc0
  15. 42 chkin  = $ffc6
  16. 43 close  = $ffc3
  17. 44 clrchn = $ffcc
  18. 45 getin  = $ffe4
  19. 165 .asc "dataf[217]"
  20. 1165 .word dafy-1
  21. 9150 errpgm ldx $3a
  22. 9152 inx
  23. 9154 bne epg1
  24. 9156 rts
  25. 9158 epg1 jmp $af08
  26. 9160 ;
  27. 15306 dafy jsr errpgm
  28. 15308 jsr gn1
  29. 15310 sty dvice
  30. 15312 cpy #8
  31. 15314 bcc daf1
  32. 15316 cpy #$0c
  33. 15318 bcc daf2
  34. 15320 daf1 ldx #9
  35. 15322 jmp $a437
  36. 15324 daf2 jsr getnum
  37. 15326 sty ln
  38. 15328 sta ln+1
  39. 15330 jsr getnum
  40. 15332 tya
  41. 15334 beq daf3
  42. 15336 sty incr
  43. 15338 jsr getnum
  44. 15340 tya
  45. 15342 beq daf3
  46. 15344 cpy #$3f
  47. 15346 bcc daf4
  48. 15348 daf3 jmp $b248
  49. 15350 daf4 sty numit
  50. 15352 sty itcnt
  51. 15354 lda #$79
  52. 15356 ldx dvice
  53. 15358 ldy #0
  54. 15360 jsr setlfs
  55. 15362 jsr $aefd
  56. 15364 jsr $ad9e
  57. 15366 jsr $b6a3
  58. 15368 jsr setnam
  59. 15370 jsr open
  60. 15372 ldx #$79
  61. 15374 jsr chkin
  62. 15376 lda $2d
  63. 15378 bne daf5
  64. 15380 dec $2e
  65. 15382 daf5 dec $2d
  66. 15384 daf6 lda #1
  67. 15386 jsr incsov
  68. 15388 jsr wrtlin
  69. 15390 daf7 jsr maknum
  70. 15392 lda $90
  71. 15394 bne daf9
  72. 15396 dec itcnt
  73. 15398 beq daf8
  74. 15400 lda #$2c
  75. 15402 jsr incsov
  76. 15404 bne daf7
  77. 15406 daf8 lda numit
  78. 15408 sta itcnt
  79. 15410 jsr incs2
  80. 15412 bne daf6
  81. 15414 daf9 jsr incs2
  82. 15416 jsr incsov
  83. 15418 jsr clrchn
  84. 15420 lda #$79
  85. 15422 jsr close
  86. 15424 jsr $a533
  87. 15426 jmp $a660
  88. 15428 ;
  89. 15430 incs2 lda #0
  90. 15432 jsr incsov
  91. 15434 ;
  92. 15436 incsov ldy #0
  93. 15438 sta ($2d),y
  94. 15440 inc $2d
  95. 15442 bne ics1
  96. 15444 inc $2e
  97. 15446 ics1 rts
  98. 15448 ;
  99. 15450 wrtlin lda ln
  100. 15452 jsr incsov
  101. 15454 lda ln+1
  102. 15456 jsr incsov
  103. 15458 lda #$83
  104. 15460 jsr incsov
  105. 15462 lda #$20
  106. 15464 jsr incsov
  107. 15466 clc
  108. 15468 lda incr
  109. 15470 adc ln
  110. 15472 sta ln
  111. 15474 bcc wrl1
  112. 15476 inc ln+1
  113. 15478 wrl1 rts
  114. 15480 ;
  115. 15482 maknum jsr getin
  116. 15484 tay
  117. 15486 jsr $b3a2
  118. 15488 jsr $bddd
  119. 15490 ldx #1
  120. 15492 mkn1 lda $0100,x
  121. 15494 beq wrl1
  122. 15496 jsr incsov
  123. 15498 inx
  124. 15500 bne mkn1
  125. 15502 ;
  126. 15504 getnum jsr $aefd
  127. 15506 gn1 jsr $ad8a
  128. 15508 jmp $b7f7
  129. 15510 ;
  130. 15512 numit .byte 0
  131. 15514 itcnt .byte 0
  132. 15516 dvice .byte 0
  133. 15518 incr  .byte 0
  134. 15520 ln    .word 0
  135. 15522 ;
  136.