Sharp MZ-700 Owner's Manual page 200

c..o
+:>
**
ZBO ASSEt1BLER SB-7201 < 1Z-013A>
PAGE 59
01 OF66"CDA602 CALL . 4DE
02 OF69 CD3001 CALL
HEXIY
03 OF6C ED42 SBC HL ,BC
04 OF6E 23 I NC HL
05 OF6F 2202 11
LD <S I ZE>,HL
06 OF72 CDA6 02 CALL .4DE
07 OF75 CD3D01 CALL HEXIY
0 8 OF78 220611 LD <EXADR>,HL
09 OF7B CD0900 CALL NL
10 ·OF7E 1 18809
LD
DE,MSGSV
11 OF81 OF RST 3
12 OF8 2 CD2F01 CALL BGETL
13 OF8 5 CDA602 CALL .4DE
14 OF88 CDA6 02 CALL .4DE
15 OF8B 21Fl l 0 LD HL,NAME
16 OFBE SAVl: ENT
17 OFBE 13 INC DE
18 OF8F lA LD A, <DE>
19 OF90 77 LD <HL> ,A
2 0 OF91 23 I NC HL
2 1 OF92 FEOD CP ODH
22 OF94 20F8 JR NZ,SAVl
23 OF96 3 E01 LD A,OIH
24 OF98 32FOIO
I
LD · <ATRB>,A
25 OF9B CD36 04
CALL ? WRI
26 OF9E DA070 1 JP C,?ER
27 OFAl CD75 04
.
CALL ? WRD
28 OFA4 DA07 0 1
JP C,?ER
29 OFA7 CD0900
I
CALL NL
30 OFAA 114209
LD
DE,MSGOK
3 1 OFAD DF
RST 3
32 OFAE C3 ADOO JP STl
33 OFBl ;
34 OFBl ;
3 5 OFBl ;ORG OFBl H;?PONT
36 OFBl
;
37 OFB l ;
3 8 OFBl ; COMPUTE POI NT ADR . ;
39 OFBl ;
40 OFBI
; HL = SCREEN CORDINATE
41 OFBI
; EXIT
42 OFBl ; HL = POiNT ADR. ON SCREEN
43 OFBl ;
44 OFBl ? PONT :
ENT
45 OFBl 2A7 111 LD HL , <DSP XY>
46 OFB4 ;
47 OFB4 ;ORG OF84H;?PNT1
48 OF84
;
49 OF84
? PNTI : ENT
50 OF84 F5
PUSH AF
51 OF85 C5
PUSH BC
52 OFB 6 05 PUSH DE
5 3 OF87 E5
PUSH HL
5 4 OFB8 Cl
POP BC
55 OFB9 112800 LD DE,0028H
5 6 OFBC 2 1D8CF
LD HL,SCRN - 40
57 OFBF
? PNT2 : ENT
5 8 OFBF 19
ADD HL,DE
59 OFC O 0 5
DEC B
60 OFC l F2BFOF JP P,-2
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
04 . 0 7 . 83 ** ZBO ASSEMBLER SB-7201
< 1Z-0 13A>
PAGE 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 OFCB Cl POP BC
BYTE S I ZE BUFFER
05 OFC9 Fl POP AF
06 OFCA C9 RET
EXECUTE ADR . 07 OFCB ;
BUFFER 0 8 OFCB ; VERIFYING
09 OFCB ;
SAVED FI LENAME
10 OFCB ; COMt1AND ' V '
CALL M SGX 11 OFCB ;
FILENAME INPUT
12 OFCB VRFY: ENT
13 OFCB CD8805 CALL ?VRFY
14 OFCE DA070 1 JP C, ?ER
NAME BUFFER 15 OFDl 114209 LD DE,MSGOK
16 OFD4 OF RST 3
17 OFD5 C3ADOO
.Jp
STI
18 OFDB
FILENAME TRANS.
19 OFDB
20 OFD8
END CODE 21 OFDB ;ORG OFD8H;?CLER
22 OFD8
ATTRIBUE:OBJ. 23 OFDB
24 OFD8 ; CLER
25 OFDB ; B=SIZE
WRITE ERROR 26 OFD8 ; HL=LOW ADR.
DATA
27 OFDB ;
2 8 OFDB ?CLER:
ENT
..
29 OFD8 AF XOR A
OK t1ESSAGE
30 OFD9 1802 ,JR +4
CALL MSGX
3 1 OFDB ? CLRFF: ENT
32 OFDB 3EFF LD A,FFH
33 OFDD ?D INT: ENT
3 4 OFDD 77
LD
<HL> ,A
35 OFDE 23
INC HL
3 6 OFDF lOFC Del NZ -2
37 OFEl C9 RET
38 OFE2
39 OFE2
4 0 OFE2 ; GAF' CHECK
41 OFE2
;
42 OFE2
GAPCK: ENT
43 OFE2 C5 PUSH BC
44 OFE3 D5
PUSH DE
4 5 OFE4 E5 PUSH HL
46 OFE5 OIOl EO LD BC, KEYPB
47 OFEB 11 02EO
LD
DE,CSTR
48 OFEB
GAPCKl: ENT
49 OFEB 2664 LD H, 100
50 OFED
GAPCK2: ENT
51 OFED CDOI 0 6 CALL EDGE
52 OFFO 3 8 0 8 ,JR C,GAPCK3
53 OFF2 CD4AOA
CALL DLY3 ; CALL DLY2*3
5 4 OFF5 lA LD A, <DE >
40
55 OFF6 E620
AND 20H
5 6 OFFB 20F l cTR NZ,GAPCKl
57 OFFA 25 DEC
H
58 OFFB 20FO
cTR NZ,GAPCK2
59 OFFD GAPCK3 : ENT
60 OFFD C39B0 6 cTP RET3