Sharp MZ-80B - Page 52

47
01'iD 218100
LD
HL,::n
01AO
22[1610
LD
<EXADR>
,HL
01A3
3E4A
LD
A,4AH
,]
01A5
32'i'i05
LD
O<INP+1)
,A
01A:::
CD9:305
KIN2:
CALL
KINP
01A8
2:::():::
,JR
Z , :::AVEt:30
01AD
CD1406
CALL HLHEX
01BO 38F6
,JR
C,KIN2
0182
22[1(:, 10
LD
<EXADR>
,HL
0185 CD5102
:
::AVEI:30:
CALL
?WRI
0188
3::::()3
.JR
C,+5
018A
(:[1::::202
CALL ?~JRD
018D
C38100
,J::::T 1:
,Jp
::::r
01CO
01CO
4(:.4'i4C45
FNCC:IM:
DEFM
'FILE
NAME:'
01C4 204E414D
01C8 453A
01CA OD
DEF8 ODH
01C8
01
C::8
01C8
01CB 3E01
1'1LOAD:
LD
A, 1
01CD 1881
,JR
M::::AVE+2
01CF
01CF
214'=!10
MLOVE: LD
HL,8UFER+10
01[12
7E
LD
A, <HU
01[13
FEOD
C::P
ODH
01[15
F5
PU::::H
AF
01[16
CD::::E02 CALL
"'?RD I
0 1D'i
3:::E2
.JF\ c ,.J::n 1
01D8 F1
POP AF
01DC C4F601
CALL
NZ,NAMECK
01DF
20EE
.JF: NZ,MLOVE
01E1 3A1602
LD
A , ( M~JARI< >
01E4 3D
DEC A
01E5
2033
, JR
NZ,MVERY
01E7
112[102 LD
DE ,LOAME::::
OlEA CDCF05
CALL
D::::PNAM
01ED
CD8202
CALL
?F:DD
01FO
3::::c8
.JF:
C, ,J::::T 1
01F2 2AD610
LD
HL, <EXADR>
01F5 E9
,jp
<HU
01F6
Ol.F(:.
114102
NAMECf<:
[_[I
DE , FOUME::::
01F'i
CDCF05
CALL
DSF'N?~M
01FC 114'=!10 LD
DE,BUFER+10
01FF 21C110
LD
HL,NAME
0202
0610
LD
8,16
0204 CD3A06
CALL
::::AME
0207
c:::
RET z
020:::: CD8104 CALL
:::ER:::p
020B CDCE04
CALL
M:::TOP
020E 38AD
.JR
c ,.J:::r 1
0210
CD1105
CALL DEL6
0213 C1
POP 8C
AD.J
0214
1 ::::8 ' 7'
.JF\
MLOVE
0216
021 (:,
M~JARK:
DEF::::
1
0217
0217