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

LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.1
0041 225101 R
45 LD (AVDTA) ,HL
0044 210100 46 LD
HL,LASV
0047
225301 R 47 LD (AVDL) ,HL
004A CD0314 48 CALL
SYSTEM
004D 3A5901 R
49 LD A, (AVCC) :COMPLETION CODE
0050
CB77
50
BIT 6,A : ERRORS?
0052 C2D700 R
51 JP
NZ ,ERROR
52
53
54 :FILE IS OPEN TEST FILE TYPE, COpy TO SYSLST
55
56
0055 3A7F01 R 57 LD A, (ASVFT) :FILE TYPE
0058 E6FO 58 AND
OFOH iSTRIP SUBTYPE
005A FE20
59 CP
ASCII iBETTER BE ASCII
005C 2808 60
JR Z,PRT100
005E 3E48
61 LD
A,ILLFT
iOR
ILLEGAL FILE TYPE
0060
32BD13
62
LD (ERCODE) ,A
0063 C3F900 R
63
JP CLOSEF
64
65
66
iFILE IS OF TYPE ASCII
67
68
69 PRT100:
0066 3EOO 70 LD A,O iALLOCATE
0068 210000
71 LD HL,O
006B 11FFFF 72
LD
DE,-l iLOCATE LONGEST BUFFER
006E
01FFFF
73
LD BC,-l
0071
CD0914 74 CALL MEMMGR
0074
OEOO 75 LD
C,O
0076 78 76 LD
A,B
0077 E6FO 77 AND OFOH
iSEE
IF AVAILABLE
78
iSPACE
)=
1000H
0079 2009 79 JR
NZ,GETIT :IF SO, ALLOCATE
80 iIT
007B CDF900
R
81
CALL
CLOSEF
007E 3E4A 82
LD
A,INSMEM
iOTHERWISE, OUTPUT
83
:INSUFF. MEM. ERROR,
84 :CLOSE FILE AND
85
iRETURN
0080
32BD13 86 LD
(ERCODE) ,A
0083 C9 87
RET
0084
47 88 GETIT: LD B,A
0085
AF 89
XOR A
0086
CD0914 90 CALL MEMMGR
0089 224B01 R 91 LD
(BUFFER) ,HL
iSAVE BEGINNING
G-7