Sharp MZ-700 - Page 185

-.....J
<D
** ZBO ASSEMB LER SB-7201 < 1Z-013A > PAGE 29
01 07 E6
02 07 E6
03 07 E6
04 07 E6
05 07 E6 F5
06 07 E7 C5
07 07E8 E5
b8 07E9 D5
09 07 EA
10 07 EA CDB309
11 07 ED
12 07ED F5
13 07 EE 47
14 07 EF 3A9D11
15 07F2 OF
16 07F3 D47705
17 07 F6 78
18 07 F7 217011
19 07FA E6FO
20 07 FC FECO
21 0 7FE Dl
22 07FF 78
23 0800 2016
24 0802 FECD
25 08 04 2855
26 0806 FECB
27 0808 CA2208
28 080 B FECF
29 080D 2809
30 0 80F FEC7
3 1 0811 300A
32 0 813 CBlB
33 0 815 78
34 0816 3005
3.5 0 818
36 0818 CDB50D
37 081B 18CD
38 0 81D
39 081D CDDCOD
40 0820 18C8
41 0822
42 0822
43 0 822
44 0822 El
45 0823 E5
46 0824 361B
47 OB 26 23
48 0827 360D
49 0829 185 3
50 0 82B
51 082B
52 082B OF
53 082C 3037
54 082E 1833
55 0830
56 0830
57 0830
58 0830
59 0830
60 0830 CD9609
?GETL: ENT
PUSH
PUSH
PUSH
PUSH
GETLl: ENT
CALL
AUT03: ENT
PUSH
LD
LD
RRCA
CALL
LD
LD
AND
CP
POP
LD
JR
CP
JR
CP
<END =CR
AF
BC
HL
D'E
??KEY
AF
B,A
A,<SWRKJ
NC,?BEL
A,B
HL ,KAN AF
FOH .
COH
DE
A,B
NZ,GETL2
CDH
Z,GETL3
CBH
JP Z,GETLC
CP CFH
JR Z,GETL2
CP C7H
JR
RR
LD
,lR
GETL2: ENT
CALL
JR
GETL5: ENT
CALL
JR
NC,GETL5
E
A,B
NC,GETL5
?DSP
GETLl
?DPCT
GETLl
BREAK IN
;
GETLC: POP
GETLA
'
PUSH
LD
INC
LD
,lR
GETLA: RRCA
JR
,JR
HL
HL
<HLJ ,lBH
HL
< HLJ, O DH
GETLR
NC,GETL6
GETLB .
DELAY 7M SEC AND SWEP
DSWEP: CALL
DLY12
04 . 07 .8 3
ENTRY KEY
IN
KEY DATA SAVE
BELL WORK
ENTRY BELL
KANA & GRAPH FLAG
Ereg=FLAGreg
CR
BREAK
NIKO MARK WH.
CRT EDITION
CY ?
CRT CONTROL
BREAK CODE
CYf-D7
** Z80 ASSEMBLER SB-7201 <1 Z-013A > PAGE 30
01 0833 CD500A
02 0836 C9
03 0837
04 0837
05 0837
06 085B
07 085B
08 085B
09 085B
10 085B
11 085B CDF302
12 085 E 0628
13 0860 30C9
14
15
16
17
18
0862 25
0863 0650
0865
0 86 7
086A
19 086B
2EOO
CDB40F
Dl
D5
20 086C 7E
21 086D CDCEOB
22 0870 12
23 0871 23
24 0872 13
25 0873 10F 7
26 0875 EB
27 0876 360D
28 0878 2B
29 0879 7E
30 087A FE20
31 087C
32 087C
33 087C
34 087C
35 087C 28F8
36 087E
37 087E
38 087E
39 087E CDOE09
40 088 1 Dl
41 0882 El
42 0883 Cl
43 0884 Fl
44 0885 C9
45 0886
46 0886
47 0886
48 0886
49 0893
50 0893
51 0893
52 0893
53 0893
54 0 893
55 0893
56 0893
57 0893 F5
58 0894 C5
59 0895 D5
60 0896 lA
CALL
RET
DEFS
?SWEP
36
ORG 085BH;GETL3
GETL 3: CALL
LD
,JR
DEC
GETLB: LD
GETL6: LD
CALL
POP
PUSH
GETLZ: LD
CALL
LD
INC
INC
D.JNZ
EX
GETLU: LD
DEC
LD
CP
. t1ANG
B,4 0
NC,GETLA
H
B,80
L,O
?PNTl
DE
DE
A,(HLJ
?DACN
<DEl ,A
HL
DE
GETLZ
DE,HL
<HLJ ,ODH
HL
A, <HLJ
20H
CR AND NEW LINE
.JR z, GETLU
NEW LINE RETURN
GETLR: CALL
POP
POP
POP
POP
RET
?LTNL
DE
HL
BC
AF
DEFS +13
;ORG 0893H
t1ESSAGE PRINT
?MSG:
MSGl:
DE PRINT DATA LOW ADR.
END=CR
ENT
PUSH
PUSH
PUSH
LD
AF
BC
DE
A, (DEl
04.07.83
CR
lLINE
BEFORE LINE
2
LINE
STORE TOP ADR.
SPACE THEN CR