Sharp MZ-700 - Page 175

Ol
<.0
** ZBO ASSEMBLER SB-7201 ( !Z-013A > PAGE 09
01 029A 0000
02 029C
03 02 9C 01
04 02 90 02
0 5 0 29E 03
06 0 29F 04
07 02AO 06
08
02Al 08
09 02 A2 OC
10 02A3 10
11 02A4 18
12 02A5 20
13 02A6
14 02 A6
15 02A6
16 02 A6
17 02A6
18 02A6
19 02A6 13
20 02A7 13
21 02A8 13
22 02A9 13
23 02AA C9
24 0 2AB
25 02AB
26 02AB
27 02AB
28 02 AB
29 02AB
30 02 AB
3 1 02AB
32 02AB 2AA111
33 02AE 7C
34 02AF B7
35 02 BO 280C
36 02 B2 05
37 02 B3 EB
38 0284 2 1 04 EO
39 0287 73
40 02 ils 72
41 0289 3E01
42 02BB Dl
43 02 BC 1806 .
44 02 BE
45 02BE
46 02 BE 3E 36
47 02CO 320 7E O
48 02C3 AF
49 02 C4 3208 EO
50 02C7 C9
51 02C8
52 02CB
53 02CB
54 02C8
55 02C8
56 02C8
57 02C8
58 02C8
59 02CB
60 02C8 2100EO
DEFW 0
OPTBL:
ENT
DEFB
DEFB
2
DEFB 3
DEFB 4
DEFB 6
DEFB 8
DEFB OC H
DEFB !OH
DEFB ISH
DEFB 20 H
INCREMENT DE REG.
. 4DE:
ENT
INC
INC
INC
INC
RET
;
DE
DE
DE
DE
;ORG 02ABH ; MLDST
MELOD Y START & STOP
MLDST: ENT
LD
LD
OR
JR
PUSH
EX
LD
LD
LD
LD
POP
c1R
MLDSP: ENT
LD
LD
X OR
MLD S !: LD
RET
RH YT HM
HL, ( RATIO>
A,H
A
Z,MLDSP
DE
DE ,H L
HL,CONTO
<HLl
, E
< HLl, D
A, 1
DE
11LDS1
A,36H
< CONTF >,A
A
<S UNDG > ,A
B =C OUNT DATA
IN
EXIT CF=l BREAK
CF=O OK
RYTHM: ENT
LD HL, KEY PA
04.07 .8 3
MODE SET ( 825 3 CO>
E007H
E
008 H
TEHRO RESET
EOOO H
11 ZBO ASSEMBLER SB-7201 < 1Z- 0 13A> PAGE 10
01 02CB 36F8
02 02 CD 23
03 02 CE 7E
04 02 CF E681
05 02 01 2002
06 02D3 37
07 0204 C9
08 02 D5 3A08EO
09 0208 OF
10 02D9 38FA
11 02DB 3A08EO
12 02 DE OF
13 02DF 3 0FA
14 02 El 10F2
15 02 E3 AF
16 0 2E4 C9
17 02E5
18 02 E5
19
02 E5
20 02 E5
21 02 E5
22 02 E5
23 02E5
24 02E5 F5
25 02E6 C5
26 02 E7 E60F
27 02E9 47
28 02 EA 3E08
29 02EC 90
30 02 ED 329Ell
3 1 02FO Cl
32 02F1 Fl
33 02 F2 C9
3 4 02F3
35 02 F3
36 02F3
37 02 F3
38 02F3
39 02 F3
4 0 02 F3
41 02 F3
42 02F3
4 3 02 F3 217311
44 02 F6 3A72 11
4 5 02F9 El5
46 02FA 6F
47 02FB 7E
48 02FC 23
49 02 FD CB16
50 02 FF 86
5 1 0300 CB!E
52 0302 OF
53 0303 EB
5 4 0304 2A7111
55 0307 C9
56 0308
57 030 8
58 0308
59 0308
60 0308
LD
INC
LD
AND
JR
SCF
RET
LD
RRCA
J R
LD
RRCA
JR
D.JNz
X OR
RET
TEMPO SET
<
HLl , F8H
HL
A, <HLl
81H
NZ,+4
A, < TEMP>
c,-4
A,<TEMP>
NC,-4
-12
A
ACC=VALUE < 1- 7)
?TEMP : ENT
PUSH
PUSH
AND
LD
LD
SUB
LD
POP
POP
RET
AF
BC
OFH
B,A
A,8
B
< TEMPW> ,A
BC
AF
CRT MANAGMENT
EXIT HL:DSP XY H=Y,L=X
DE:MANG ADR . (ON
A :MANG DATA
CY:MANG=l
.MANG: ENT
LD
LD
ADD
LD
LD
INC
RL
OR
RR
RRCA
EX
LD
R ET
;ORG 0308 H
HL, t1ANG
A, ( 11 72 H>
A,L
L,A
A,(HLl
HL
( HLl
<HLl
<
HL>
DE,HL
HL, (DSPXY>
04.07.83
BREAK IN CHEC K
; IEO OBH
; TEMPO OUT
DSP XY)
CRT MANG. POitHER
DSP XY+ l