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

LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.7
OOCB F1 139 POP AF ;RESTORE READ
140 ;COMPLETION CODE
OOCC FEC9 141 CP EOF ;DID LAST READ REQUEST
142
;REACH END OF FILE?
OOCE 2829 143 JR Z,CLOSEF
144
145
OODO 3A5901
R 146 LD
A, (AVCC) ;HAS WRITTEN
147
; SUCCESSFULLY?
00D3 CB77 148 BIT 6,A
00D5 28CO 149
JR Z ,READ
150
151
152 ;AN ERROR HAS OCCURRED, PRINT
153
;MESSAGE, CLOSE FILE, AND RETURN
154
155
00D7 3EOE 156 ERROR: LD A,WRTBIN ;WRITE BINARY
00D9 325001 R 157
LD (AVREQ) ,A
OODC 3E02 158 LD A,CONOUT ;TO CONSOLE OUTPUT UNIT
OODE 324F01 R 159
LD
(AVLUN) ,A
00E1 214801
R 160
LD HL,EMSGN ; CONVERT ERROR CODE TO
161
;ASCII
00E4 3A5901 R 162 LD A, (AVCC)
00E7
CD2401 R 163 CALL
BTOHEX
164
OOEA 213E01 R 165 LD HL,EMSG
;PRINT MESSAGE
OOED 225101 R 166
LD (AVDTA) ,HL
OOFO 210DOO 167 LD HL,LEMSG
00F3 225301 R
168 LD
(AVDL) ,HL
00F6 CD0314 169
CALL SYSTEM
170
171
OOF9
3E06 172 CLOSEF: LD
A,CLOSE :CLOSE FILE
OOFB 325001 R
173 LD
(AVREQ) ,A
OOFE 3E04 174 LD
A,4 ;ON UNIT FOUR
0100 324F01
R 175 LD
(AVLUN) ,A
0103 210000
176
LD
HL,O
0106
225101 R 177 LD
(AVDTA) ,HL ;DON'T UPDATE
178
;DESCRIPTOR RECORD
0109 225301 R 179 LD
(AVDL),HL
010C 225A01 R 180 LD
(AVSVP) ,HL
010F CD0314
181 CALL
SYSTEM
182
183
iDEALLOCATE THE
184
;ALLOCATED SPACE
185
G-9