Sharp MZ-700 Series Owner's Manual page 195

** Z 8 0 A S S E M B L E R S B - 7 2 0 1 < 1 Z - 0 1 3 A > P A G E 24
0 4 . 0 7 . S 3
0 1 065E C5
0 2 0 65 F D5
0 3 0 6 6 0 E5
04 0 6 6 1 2 1 2 8 2 8
0 5 0664 7B
06 0665 FECC
0 7 0667 2803
08 0669 2 1 1 4 1 4
0 9 066C 2 2 9 5 1 1
10 0 66 F 0 1 0 1 E 0
1 1 0672 1102E0
12 0675
13 0675 2A9511
14 0 6 7 8
1-5 0678 CD0106
16 067B 381E
17 067D CD4A0A
I B 0680 1A
19 0681 E620
20 06B3 2 8 F 0
2 1 06B5
22 06B6 2 0 F 0
23 0688
24 0688 CD0106
2 5 068B 3B0E
26 068D CD4A0A
2 7 0690
1A
28 0691 E620
2 9 0693 20E0
30 0695 2D
31 0696 20F0
32 0698 CD0106
33 069B
34 069B
3 5 069B EL
36 069C D1
37 069D C I
38 069E C9
39 06 9F
4 0 06 9F
41 06 9F
42 06 9F
43 06 9F
44 06 9F
45 069F
46
0&9F
47 069F
48 06 9F C5
4 9 06A0 D5
50 06 A1 E5
51 06A2 060A
52 06A4
5 3 06A4 3A02E0
54 06A7 E610
5 5 06A9 280E
56 06AB
5 7 06AB 0 6 F F
58 06AD CD9609
5 9 06 BO 1802
6 0 06B2 18EB
TM1!
TM2:
RET3:
TM4:
PUSH
BC
PUSH DE
PUSH HL
LD H L , 2 8 2 8 H
LD
A , E
CP CCH
JR Z, +5
LD H L , 1 4 1 4 H
LD ( T M C N T ) , H L
LD BC,KEYPB
LD DE,CSTR
ENT
LD H L , ( T M C N T )
ENT
CALL EDBE
JR C, TM4
CALL DLY3
LD A , ( D E )
AND 20H
JR
Z,TM1
DEC H
JR NZ,TM2
ENT
CALL
EDBE
JR C, TM4
CALL DLY3
LD
A, (DE)
AND 20H
JR
NZ,TM1
DEC L
JR NZ,TM3
CALL EDGE
ENT
ENT
POP HL
POP DE
POP
BC
RET
5 ORG 065EH
; CALL DLY2#3
CALL DLY2*3
MOTOR ON
;
IN D=®W® !WRITE
5 =3R3 SREAD
;
E X I T CF=0 :0K
;
= 1 :BREAK
MOTOR :
ENT
PUSH BC
PUSH DE
PUSH HL
LD B, 10
M0T1 : ENT
LD A, (CSTR:
AND
10H
JR Z,M0T4
M0T2: ENT
LD B, FFH
CALL
DLY12
JR +4
JR MOTOR
2 SEC DELAY
7 MSEC DELAY
MOTOR ENTRY ADJUST
ORG 06B2H