Sharp MZ-80B - Page 53

48
0217
0217
AF
MVRFY: XOR A
0218
1883
JR MLOAD+2
021A
021A
113602
MVERY:
LD
DE,VERMES
0210
CDCF05
CALL DSPNAM
0220
CD8E02
CALL ?VRFY
0223 3898
JR
C,JSTl
0225
114802 LD
DE,OKMES
0228 CDB605
NMSGST:
CALL NLMSG
0228
1890
JR JST1
0220
022D
4C4F4144
LOAMES: OEFM 'LOADING
0231 494E4720
0235 OD
OEFB OOH
0236 56455249
VERMES:
DEFM
'VERIFYING
023A 4659494E
023E 4720
0240 OD
DEFB
OOH
0241 464F554E
FOUMES: DEFM 'FOUND
0245
4420
0247 OD
DEFB
ODH
0248
4F48
OKMES: DEFM 'OK'
024A OD DEFB ODH
0248
0248
0248
0248 3E4A
JUMP:
LD
A,4AH
J
024D CD8C05 CALL KIN
0250
E9 JP <HL>
0251
0251
0251
0251
WRINF:
~T
0251
F-
~
?WRI:
OI
0252
1601 LO
0.1
OOOl:WI
0254 21C010 LD
HL,I8UFE
0257 018000 LO
8C,0080H
025A CD2304 WRI1: CALL
CKSUM
025D CD5704 CALL
MOTOR
0260
3848 JR C,STPRET
0262
C842 BIT
o.D
0264
2808
JR
z
,WRI2
WD
0266
05 PUSH
[IE
0267 117806
LD OE,WRIMES
026A CDCF05
CALL OSPNAM
026D
Dl
POP
DE
026E CDF904
CALL TSPE
0271 COC703
WRI2:
CALL GAP
0274
CODA02
CALL WTAPE
0277
3834
JR C,STPRET
0279 C84A
BIT
1
.o
0278
C4F904
CALL
NZ
,TSPE
027E
2020
JR
NZ
,STPRET
0280
F8
EI
0281 C9
RET
0282
WROAT:
ENT
0282
F3
?WRD:
OJ
0283
1602
LD
0.2
0010:WO
0285
E0480210
LO
8C,
<SIZEl