Sharp MZ-700 - Page 200

c..o
+:>
**
ZBO ASSEt 1B L ER SB-7201
< 1Z-013A >
PAGE 59
01 O F66"CDA602
CA LL . 4DE
02 OF69 CD3001
CA LL
HEXIY
03 OF6C ED42
SBC HL ,BC
04 O F6E 23
I NC
HL
05 OF 6F 2202 11
LD <S I ZE>,HL
06 OF72 CDA6 02 CA LL
.4DE
07 OF 75 CD3D01 CAL L HEXIY
08 OF78 220611 LD <EXADR>,HL
09 OF7B CD0900 CA LL
NL
10 ·OF7E 1 18809
LD
DE,MSGSV
11 OF81 OF
RS T 3
12 OF 82 CD2F01 CA LL BGETL
13 OF 85 CDA602 CA LL .4DE
14 O F88 CDA6 02 CALL
.4DE
15 OF8B 21Fl l 0 LD HL,NAME
16
OF BE
SAVl:
ENT
17 OFBE 13
INC DE
18 OF8F lA LD A, < DE>
19 OF90 77 LD <HL> ,A
20 OF91 23
I NC HL
2 1 OF92 F EOD
CP ODH
22 OF94 20 F8
JR NZ,SAVl
23 OF96 3E 01
LD
A,OIH
24 OF98 32 FOIO
I
LD · <ATRB>,A
25 OF9B CD3604
CALL
? WRI
26 OF9E DA 070 1
JP
C,?ER
27 OFAl CD7504
.
CA LL ? WRD
28 OFA4 DA070 1
JP
C,?ER
29 OFA7 CD0900
I
CA LL
NL
30 O FAA 114209
LD
DE,MSGOK
3 1 O FAD DF
RST 3
32 O FAE C3 ADO O
JP S Tl
33 OFBl ;
34 OFBl ;
35 OFBl ;ORG OFBl H ;?PON T
36 OFBl ;
37 OFB l ;
38 OFBl ;
COMPU TE POI NT ADR . ;
39 OFBl ;
40 OFBI
;
HL = SCR E EN CORDINATE
41 OFBI
;
EXIT
42 O FBl
; HL = POiNT ADR.
ON SCREEN
43 OFBl
;
44 O FBl
? PONT :
ENT
45 OF Bl 2A7 111
LD
HL , <DSP XY>
46 OFB4
;
47 OFB4
;ORG O F84H;?PNT1
48 O F84
;
49 O F84
? PNTI :
EN T
50 O F84 F5
PUSH
AF
51 OF85 C5
PUSH BC
52 O FB 6 05
PUSH DE
53
O F87 E5
PUSH
HL
5 4 OFB8 Cl
PO P BC
55 OFB9 112800
LD DE,0028H
56 OFBC 2 1D8CF
LD HL,SCRN- 40
57 OFBF
? PNT 2 :
ENT
58 OFBF 19
ADD HL,DE
59 O FC O 0 5
DEC B
60 OFC l F2BFOF
JP
P,-2
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
04 . 07 . 83
**
ZBO ASSEMBLER SB-7201
< 1Z- 0 13A>
PAG E 60
04 . 07 . 83
0 1 OFC4 0600 LD
8,+0
END ADR .
02 OFC6 09 ADD HL,BC
BYTE SIZ E
03 OFC7 Dl POP DE
04 O FCB Cl POP BC
BYTE SI ZE BUFFER
05 OFC9 Fl PO P AF
06 O FCA C9 RE T
EXECUTE ADR .
07 O FCB
;
BUFFER
08 O FCB
;
VERIFYING
09 O FCB ;
SAVED FI L ENAME
10 O FCB ; COM t 1AND ' V'
CA LL M SGX
11 O FCB
;
FILENAME INPUT
12 O FCB
VRFY:
ENT
13 O FCB CD8805 CA LL ?VRFY
14 OFCE DA070 1
JP
C, ?ER
NAME BUFFER
15 OFDl
1142 09
LD
DE,MSGOK
16 OFD4 OF RST 3
17
OFD5 C3AD OO
.Jp
STI
18 OFDB
FILENAME TRANS.
19 O FDB
20 O FD 8
END COD E
21 OFDB ;ORG OFD8H;?C LE R
22 OFD8
ATTRIBUE :OBJ.
23 O FDB
24 OFD8 ;
CL ER
25 O FDB
;
B=SIZE
WRITE E RROR
26 OFD8 ;
HL=LOW ADR.
DA TA
27 O FD B ;
28 O FDB ?CLER:
ENT
..
29 OFD8 AF
X OR A
OK t1ESSAG E
30 OFD9 18 02
,JR
+4
CAL L MSGX
3 1 OFDB ? CL RFF:
ENT
32 OF DB 3EF F
LD
A,F FH
33 O FDD ?D INT:
ENT
34 O FDD 77
LD
< HL> ,A
35 O FDE 23
INC HL
36 OFDF lOFC
Del NZ -2
37 O FEl C9
RET
38 OFE2
39 OFE2
40 O
FE2
; GAF ' CHECK
41 OFE2 ;
42 O FE2
GAPCK:
ENT
43 O FE2 C5
PUSH BC
44 OFE3 D5
PUSH DE
45 OFE4 E5
PUSH HL
46 O FE5 OIOl EO
LD
BC, KEY PB
47 OF EB 11 02 EO
LD
DE,CSTR
48 OFEB
GAPCKl:
ENT
49 OFEB 2664
LD
H, 1 00
50 O FED
GAPCK2:
ENT
51 O FED CD OI 06
CALL E DGE
52 OFFO 3808
,JR
C,GAPC K3
53 O FF2 CD4A OA
CALL DLY3 ; CAL L DLY2*3
54
O FF5 lA
LD
A, <DE>
40
55 OFF6 E 620
AND 20H
56 OFFB 20F l cTR
NZ,GAPCKl
57 OFFA 25
DEC
H
58 OFFB 20FO
cTR
NZ,GAPC K2
59 OFFD
GAPC K3 :
ENT
60 O FFD C 39 B06
cTP RET3