home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_15_1987_Transactor_Publishing.d64
/
datafy
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
136 lines
0 rem datafy (steve hammer 3/86) :
1 :
2 rem 1 statement, 0 functions
3 :
4 rem keyword characters: 6
5 :
6 rem keyword routine line ser #
7 rem datafy dafy 15306 205
8 :
9 rem =================================
10 :
39 setlfs = $ffba
40 setnam = $ffbd
41 open = $ffc0
42 chkin = $ffc6
43 close = $ffc3
44 clrchn = $ffcc
45 getin = $ffe4
165 .asc "dataf[217]"
1165 .word dafy-1
9150 errpgm ldx $3a
9152 inx
9154 bne epg1
9156 rts
9158 epg1 jmp $af08
9160 ;
15306 dafy jsr errpgm
15308 jsr gn1
15310 sty dvice
15312 cpy #8
15314 bcc daf1
15316 cpy #$0c
15318 bcc daf2
15320 daf1 ldx #9
15322 jmp $a437
15324 daf2 jsr getnum
15326 sty ln
15328 sta ln+1
15330 jsr getnum
15332 tya
15334 beq daf3
15336 sty incr
15338 jsr getnum
15340 tya
15342 beq daf3
15344 cpy #$3f
15346 bcc daf4
15348 daf3 jmp $b248
15350 daf4 sty numit
15352 sty itcnt
15354 lda #$79
15356 ldx dvice
15358 ldy #0
15360 jsr setlfs
15362 jsr $aefd
15364 jsr $ad9e
15366 jsr $b6a3
15368 jsr setnam
15370 jsr open
15372 ldx #$79
15374 jsr chkin
15376 lda $2d
15378 bne daf5
15380 dec $2e
15382 daf5 dec $2d
15384 daf6 lda #1
15386 jsr incsov
15388 jsr wrtlin
15390 daf7 jsr maknum
15392 lda $90
15394 bne daf9
15396 dec itcnt
15398 beq daf8
15400 lda #$2c
15402 jsr incsov
15404 bne daf7
15406 daf8 lda numit
15408 sta itcnt
15410 jsr incs2
15412 bne daf6
15414 daf9 jsr incs2
15416 jsr incsov
15418 jsr clrchn
15420 lda #$79
15422 jsr close
15424 jsr $a533
15426 jmp $a660
15428 ;
15430 incs2 lda #0
15432 jsr incsov
15434 ;
15436 incsov ldy #0
15438 sta ($2d),y
15440 inc $2d
15442 bne ics1
15444 inc $2e
15446 ics1 rts
15448 ;
15450 wrtlin lda ln
15452 jsr incsov
15454 lda ln+1
15456 jsr incsov
15458 lda #$83
15460 jsr incsov
15462 lda #$20
15464 jsr incsov
15466 clc
15468 lda incr
15470 adc ln
15472 sta ln
15474 bcc wrl1
15476 inc ln+1
15478 wrl1 rts
15480 ;
15482 maknum jsr getin
15484 tay
15486 jsr $b3a2
15488 jsr $bddd
15490 ldx #1
15492 mkn1 lda $0100,x
15494 beq wrl1
15496 jsr incsov
15498 inx
15500 bne mkn1
15502 ;
15504 getnum jsr $aefd
15506 gn1 jsr $ad8a
15508 jmp $b7f7
15510 ;
15512 numit .byte 0
15514 itcnt .byte 0
15516 dvice .byte 0
15518 incr .byte 0
15520 ln .word 0
15522 ;