ZiLOG Z80-RIO Operating System User's Manual page 220

LOC
OBJ CODE M STMT SOURCE STATEMENT ASM 5.7
92 :ADDRESS
008C ED434DOI R 93 LD (BUFSIZ),BC
:SAVE SIZE OF BUFFER
94
0090 225101 R
95 LD (AVDTA) ,HL :INITIALIZE DATA
96
:TRANSFER ADDRESS
0093 ED435301 R 97 LD (AVDL) ,BC :LOAD BUFFER SIZE
98
99
100
: READ NEXT BUFFER LOAD
101
102
0097
3EOA 103 READ: LD A,RDBIN
iREAD
BINARY
0099 325001 R ·104 LD (AVREQ) ,A
009C 3E04
105 LD A,4 :FROM UNIT 4
009E 324FOI R
106
LD (AVLUN),A
00A1 FD214FOI
R
107 LD IY,AVEC
00A5 CD0314 108 CALL SYSTEM
00A8 3A5901 R
109 LD A, (AVCC) :READ ERROR?
OOAB CB77 110 BIT 6,A
OOAD 280B
III JR Z,WRITE
OOAF FEC9 112
CP
EOF iYES, HAS IT AN END
113
:OF FILE?
OOBI 2024 114 JR NZ ,ERROR
00B3
2A5301
R
115 LD HL, (AVDL)
00B6 7C 116 LD A,H :YES, ANY DATA
117 :TRANSFERRED?
00B7 B5 118
OR L
00B8
283F 119 JR Z,CLOSEF :IF NOT, CLOSE FILE
120
121
122 :WRITE A BUFFER LOAD TO SYSLST
123
124
OOBA
3EOE 125
WRITE: LD
A,WRTBIN :WRITE BINARY
OOBC 325001 R 126 LD (AVREQ) ,A
OOBF
3E03 127 LD A,SYSLST
iON
SYSLST
OOCI 324F01 R 128
LD (AVLUN) ,A
00C4
3A5901 R 129 LD A, (AVCC) : SAVE COMPLETION CODE
00C7 F5 130 PUSH
AF
131
132
iDATA TRANSFER ADDRESS
133
:AND DATA LENGTH WERE
134
:SET BY THE READ
135 iOPERATION
136
00C8 CD0314 137 CALL SYSTEM
138
G-8