Atari 400 Technical Reference Manual page 282

ERR LINE ADDR B1 B2 83 84
CENTRAL INPUT/OUTPUT (CIa) 2-7-79
PAGE 21
931
. PAGE
932
933
;
READ -- DO GET COMMANDS
934 E569 A5 22 CIREAD: LDA ICCOMZ iGET
COMMAND BYTE
935 E56B 25 2A
AND ICAX1Z
i
IS THIS READ LEGAL?
936 E56D DO 05 BNE RCI1A
i
YES
937
938 ILLEGAL READ -- IOCB OPENED FOR WRITE ONLY
939 E56F AO 83 LDY #WRONLY
iERROR CODE
940 E571 4C 1B E6 RC I 1B: JMP CIRTN1
iRETURN
941
i
942
;
COMPUTE AND CHECK ENTRY POINT
943 E574 20 3D E6 RC I 1A: JSR COMENT
1
COMPUTE ENTRY POINT
944 E577 80 F8
Bes RCI1B
;GO IF ERROR IN COMPUTE
945
i
946
i
GET RECORD OR CHARACTERS
947 ES79 AS 28 LOA ICBLLZ
948 ES7B 05 29 ORA ICBLLZ+1
i
IS BUFFER LENGTH ZERO?
949 E57D DO 08 BNE RCI3
; NO
9S0 E57F 20 89 E6
JSR GOHAND
951 E582 8S 2F STA
CIOCHR
952 £584 4C 1D E6
JMP CIRTN2
953
954
•
;
LOOP TO FILL BUFFER OR END RECORD
955 E587 20 89 E6
RCI3:
JSR
GOHAND
;GO TO HANDLER TO GET BYTE
956 ES8A 85 2F STA
CIOCHR ; SAVE BYTE
957 E5SC 30 35 BMI
RCI4 iEND TRANSFER IF ERROR
958 ESSE AO 00 LOY
#0
959 E590 91 24 STA
(ICBALZ),Y iPUT BYTE IN USER BUFFER
960 E592 20 70 E6 JSR INCBFP
i
INCREMENT BUFFER POINTER
961 E595 A5 22 LDA ICCOMZ
; GET COMMAND CODE
962 £597 29 02 AND #2
1
IS IT GET RECORD?
963 ES99 DO OC BNE RCIl
; NO
964
965 CHECK FOR EOL ON TEXT RECORDS
966 E59B A5 2F LDA CIOCHR
; GET BYTE
1:167 E51:1D C9 9B CMP tEOL
; IS IT AN EOL'?
968 E59F DO 06 BNE RCI1
; NO
969 E5Al 20 63 E6 JSR DECBFL
; YES, DECREMENT BUFFER LENGTH
970
E5A4 4C C3 E5
JMP RCI4
; END TRANSFER
971
972
i
CHECK BUFFER FULL
913 E5A1 20 63 E6 RCll: JSR
DECBFL iDECREMENT BUFFER LENGTH
914 ESAA DO DB BNE RCI3
iCONTINUE IF NON ZERO