Sharp MZ-700 - Page 182

-.....1
(j)
** ZBO ASSEMBLER SB-7201 < 1Z-013A > PAGE 23
01 0620
02 0624
03 0624
04 0624
05 0624
06 0624
07 0624
08 0624
09 0624
10 0 624
11 0624
12 0624
13 0624 C5
14 0625 05
15 0626 E5
16 0627 210008
17 062A O!O!EO
18 0620 1102EO
19 0630
20 0630 CD0106
21 0633 DA5406
22 0636 CD4AOA
23 0639 lA
24 063A E620
25 063C CA4906
26 063F E5
27 0640 2A9711
28 0643 23
29 0644 229711
30 0647 El
31 0648 37
32 0649
33 0649 70
34 064A 17
35 064B 6F
36 064C 25
37 0640 C23006
38 0650 CD0106
39 0653 70
40 0654
41 0654 El
42 0655 Dl
43 0656 Cl
44 065 7 C9
45 0658
46 0658
47 0658
48 0658
49 0658
5(1 0658
51 0658
52 0658
53 0658
54 0658
55 065B
56 0658
57 065B
58 065B
59 065B
60 0658 CDE20F
DEFS +4
;ORG 0624H;RBYTE
BYTE READ
EXIT SUMDT=STORE
CF=l : BREAK
CF=O : DATA=ACC
RBYTE: ENT
PUSH
PUSH
PUSH
LD
LD
LD
RBY!: ENT
RBY2:
RBY3:
CALL
JP
CALL
LD
AND
JP
PUSH
LD
INC
LD
POP
SCF
ENT
~~A
LD
DEC
,1p
CALL
LD
ENT
POP
POP
POP
RET
BC
DE
HL
HL,OBOOH
BC,KEYPB
DE,CSTR
EDGE
C,RBY3
DLY3
A, <DEl
20H
Z,RBY2
HL
HL, ( SUMDTl
HL
( SUMDTl, HL
HL
A,L
L,A
H
NZ,RBY!
EDGE
A,L
HL
DE
BC
TAPE MARK DETECT
E=@L@ :INFORMATION
= ; ~s;~ :DATA
EXIT
CF=O :OK
=1 :BREAK
DEFS +3
TMARK: ENT
;ORG 065BH
CALL GAPCK
04.07.83
KEY DATA $E001
$TAPE DATA $E002
41 OR 101
13
20+18*63+33
DATA READ :a
** ZBO ASSEMBLER SB-7201 < 1Z-013A > PAGE 24
01 065E C5
02 065F 05
03 0660 E5
04 0661 212828
05 0664 7B
06 0665 FECC
(>7 0667 2803
08 0669 211414
09 066C 229511
10 06bF OlOlEO
11 0672 11 0 2EO
12 0675
13 0675 2A9511
14 0678
1·5 06 78 COOl 06
16 067B · 381E
17 0670 CD4AOA
18 0680 1A
19 0681 E620
20 0683 28FO
21 0685 25
22 0686 20FO
23 0688
24 0688 CD0106
25 068B 380E
26 068D CD4AOA
27 0690 lA
28 0691 E620
29 0693 20EO
30 0695 2D
31 0696 20FO
32 0698 CD0106
33 069B
34 069B
35 069B El
36 069C Dl
37 0690 Cl
38 069E C9
39 069F
40 069F
41 069F
42 069F
43 069F
44 069F
45 069F
46 069F
47 069F
48 069F C5
49 06AO D5
50 06Al E5
51 06A2 060A
52 06A4
53 06A4 3A02EO
54 06A7 E610
55 06A9 280E
56 06AB
57 06AB 06FF
58 06AD CD9609
59 06BO 1802
60 06B2 18EB
TMl:
TM2:
PUSH
PUSH
PUSH
LD
LD
CP
JR
LD
LD
LD
LD
ENT
LD
ENT
CALL
L lR
CALL
LD
AND
,lR
DEC
, lR
TM3: ENT
RET3:
Tr14:
CALL
,JR
CALL
LD
AND
JR
DEC
,JR
CALL
ENT
ENT
POP
POP
POP
RET
MOTOR ON
IN D=@W@
=@R@
EX IT CF=O
=1
MOTOR: ENT
PUSH
PUSH
PUSH
LD
r10T1: ENT
r10T2:
LD
AND
, lR
ENT
LD
CALL
JR
,lR
BC
DE
HL
HL,2828H
A,E
CCH
z,+s
HL, 1414H
<TMCNTl, HL
BC,KEYPB
DE,CSTR
HL,<TMCNTl
EDGE
C,TM4
DLY3
A, <DEl
20H
z,n11
H
NZ,TM2
EDGE
C,TM4
DLY3
A, <DEl
20H
NZ,TMl
L
NZ,TM3
EDGE
HL
DE
BC
:WRITE
:READ
:OK
:BREA>:
BC
DE
HL
8, 10
A,<CSTRl
lOH
Z,MOT4
B,FFH
DLY12
+4
MOTOR
04.07.83
ORG 065EH
· ·L ,.
CALL DLY2*3
CALL DLY2*3
2 SEC DELAY
7 MSEC DELA Y
MOTOR ENTRY ADJUST
ORG 06B2H