Sharp MZ-700 - Page 188

CO
N
** ZBO ASSEt1BLER SB-7201 < 1 Z-013A > PAGE 35
01 0988
02 0988 46494C45
03 098F 4E414D45
04 0993 3F20
05 0995 OD
06 0996
07 0996
OB 0996
09 0996
10 0996 C5
11
0997 0615
12 0999 CD4AOA
13 099C lOFB
14 099E c{ -
15 099F C9
16 09AO
17 09AO
18 09AO
19 09AO
20 09AO
21 09AO
22 09AO 4C4F4144
23 09A4 494E4720
24 09AB OD
25 09A9
26 09A9
27 09A9
28 09A9
29 09A9
30 09A9
31 09A9 3E59
32 09AB 3D
33 09AC C2AB09
34 09AF C9
35 0980
36 0980
37 0980
38 0983
39 0983
40 0983
41 0983
42 0983
43 0983
44 0983
45 0983
46 0983
47 o9s3
48 0983
49 0983
50 0983 E5
51 0984 (:D920B
52 0987
53 0987 CD7E05
54 09BA 20FB
55 09BC
56 09BC CD7E05
57 09BF 28FB
58 09Cl 67
59 09C2 CD9609
60 09C5 CDCAOB
MSGSV: ENT
DEFM
'FILENAt1E? '
DEFB ODH
DLY 7 t1SEC
DLY12: ENT
PUSH
LD
CALL
BC
B, 15H
DLY3
DJNZ -3
POP BC
RET
LOADING t1ESSAGE
MSG?2: ENT
DEFM
,. LOADING '
DEFB ODH
DELAY FOR LONG PULSE
DLY4:
ENT
LD
DEC
JP
RET
A,59H
A
NZ,-1
DEFS +3
;ORG 09B3 H; ??KEY
f<EY BOAD SEARCH
& DISPLAY CODE CONV.
EXIT A = DISPLAY CODE
CV= GRAPH MODE
WITH CURSOR DISPLAY
?? KEY: ENT
PUSH
CALL
>: SL1: ENT
CALL
KSL2:
c
lR
ENT
CALL
,lR
LD
CALL
CALL
HL
?SAVE
FLKEY
NZ,KSL!
FLKEY
Z,KSL2
H,A
DLY12
?KEY
04 . 07 .8 3
18*89+20
K EY
KEY IN THEN JUMP
NOT KEY IN THEN JU~P
DELAY CHATTER
** ZSO ASSEMBLER SB-7201 < 1Z-013A > PAGE 36
01 09CB f5
02 09C9 BC
03 09CA El
04 09CB 20EF
05 09CD E5
06 09CE Fl
07 09CF CDF005
08 09D2 El
09 09D3 C9
10 09D4
11 09D4
12 09D4
13 09D4
14 09D4
15 09D4 AF
16 09D5
17 09D5 010008
18 09DB
19 09DB D5
20 09D9 57
21 09DA
22 09DA 72
23 09DB 23
24 09DC OB
25 09DD 78
26 09DE Bl
27 09DF 20F9
28 09El Dl
29 09E2 C9
30 09E3
31 09E3
32 09E3
33 09E3
34 09E3
35 09E3
36 09E3
37 09E3 F5
38 09E4 E5
39 09E5 3A02 EO
40 09E8 07
41 09 E9 07
42 09EA 388F
43 09EC 3A9211
44 09EF
45 09EF CDBlOF
46 09F2 77
47 01;1F3
48 09F3 El
49 09F4 Fl
50 09F5 C9
51 09F6
52 09F6
53 09 F6
54 09F6
55 09FF
56 09FF
57 09FF
58 09FF
59 09FF
60 09FF !BE2
PUSH
CP
POP
JR
PUSH
POP
CALL
POP
RET
CLEAR 2
#CLROS: ENT
XOR
#CLRS: ENT
LD
CLEAR: ENT
PUSH
LD
CLEAR! : ENT
LD
INC
DEC
LD
OR
JR
POP
RET
; .
FLASHING 2
?FLS: ENT
PUSH
PUSH
LD
RLCA
RLCA
JR
LD
FLAS2: ENT
CALL
LD
FLAS3: ENT
POP
POP
RET
DEFS
AF
H
HL
NZ, KS L2
HL
AF
? LOAD
HL
A
BC,OBOOH
DE
D,A
<HL> ,D
HL
BC
A,B
c
NZ,CLEARl
DE
AF
HL
A, <K EYPC >
C,FLASl
A,< FLSDT>
?P ONT
< HL> ,A
HL
AF
+9
;ORG 09FF ; ?FLAS
?FLAS: ENT
JR
? FLS
04 . 07 .8 3
CHATER CHECK
IN KEY DATA
FLSHiNG DATA LOAD
CV FLG.
BC = CLR BYTE SIZE
A = CLR DATA
DISPLAY POSITION