;********************************
;*
;*
;* RDREL
;*
;*
;********************************
;*
;*
;
RDREL
 LDA #LRF
 JSR TSTFLG
 BNE RD06 ;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
 JSR RD06
 ;NO RECORD ERROR
 LDA #NOREC
 JSR CMDERR
;
RD06
 LDX LINDX ;NO RECORD CHAR SET UP
 LDA #CR
 STA CHNDAT,X
 LDA #RNDEOI
 STA CHNRDY,X
 RTS ;EXIT
 .END
