Atari 400 Technical Reference Manual page 333

ERR LINE ADDR B1 B2 B3 B4 CASSET HANDLER 3/12 (DK1:CASCV) PAGE 72
3228 . PAGE
3229
3230
i
GET BYTE
3231
3232 EFD6 A5 3F GBYTE: LDA FEOF
i
IF AT EOF ALREADY
3233 EFD8 30 33 BMI ISEOF iRETURN EOF STATUS
3234 EFDA A6 3D LDX BPTR iBUFFER POINTER
3235 EFDC EC 8A 02 CPX BLIM
i
IF END OF BUFFER
3236
EFDF
FO 08
BEQ
RBLOK iREAD ANOTHER BLOCK
3237 EFE1 BD 00 04 LOA CASBUF+3,X
i
GET NEXT BYTE
3238 EFE4 E6 3D INC BPTR
i
BUMP POINTER
3239
EFE6
AO 01 LDY
#SUCCES
i
OK STATUS
3240
EFE8
60 GBX: RTS
3241 EFE9 A9 52 RBLOK: LOA
#fR
iREAD OPCCDE
3242
EFEB
20 95 FO
JSR SIOSB
j
SIO ON SVS BUF
3243 EFEE 98 TYA
3244 EFEF 30 F7 BMI GBX
; IF SIO ERRORS, RETURN
3245 EFF1 A9 00 LOA #0
3246 EFF3 85 3D STA BPTR iRESET POINTER
3247 EFF5 A2 80 LOX #$80 iDEFAULT # BYTES
3248 EFF7 AD FF 03 LOA CASBUF+2
3249
EFFA
C9 FE
CMP #EOT
3250 EFFC FO OD
BEQ
ATEOF
i
IF HEADER, GO READ AGAIN
3251 EFFE C9 FA CMP #DT1
i
IF LAST DATA REC
3252 FOOO DO 03 BNE NLR
3253 F002 AE 7F 04 LOX CASBUF+130 iLAST DATA RECORD, GET # BYTES
3254
F005
8E 8A 02 NLR: STX SLIM
3255 F008 4C D6 EF JMP GBYTE
i
GET NEXT BYTE
3256 FOOB C6 3F ATEOF: DEC FEOF
i
SET FEOF
3257 FOOD AO 88 ISEOF: LDY #EOFERR iENDFILE STATUS
3258 FOOF 60 RTS