Sharp MZ-80B Reference Manual 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
, J R
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