Commodore 1571 firmware
Relative Files
.page
.subttl 'rel3.src'
;********************************
;*
;*
;* rdrel
;*
;*
;********************************
;*
;*
rdrel
lda #lrf
jsr tstflg
bne rd05 ; no record error
;
rd10
jsr getpre
lda buftab,x
cmp lstchr,y
beq rd40
inc buftab,x
bne rd20
jsr nrbuf
rd15
jsr getpre
rd20
lda (buftab,x)
rd25
sta chndat,y
lda #rndrdy
sta chnrdy,y
lda buftab,x
cmp lstchr,y
beq rd30
rts
rd30
lda #rndeoi
sta chnrdy,y
rts
rd40
jsr nxtrec
jsr getpre
lda data
jmp rd25
rd05
ldx lindx ; no record char set up
lda #cr
sta chndat,x
lda #rndeoi
sta chnrdy,x
;no record error
lda #norec
jsr cmderr