Sharp MZ-700 - Page 181

-.....1
(J1
11 Z80 ASSEMBLER SB-7201 < 1Z-013A > PAGE 2 1
01 0590 2A0411
02 0593 16D2
03 0595 1E53
04 0597 78
05 0598 81
06 0599 2889
07 0598 CD1A07
08 059E CD9F06
09 05Al 3BCF
10 05A3 CD5806
11 05A6 3BCA
12 05A8 CDAD05
13 05AB !BA?
14 05AD
15 05AD
16 05AD
17 05AD
18 05AD
19 05AD
20 05AD
21 05AD
22 05AD
23 05AD
24 05AD
25 05AD
26 05AD
27 05AD D5
28 05AE C5
29 05AF E5
30 05BO 2602
31 05B2
32 05B2 0101EO
33 0585 1102EO
34 0588
35 05B8 CD0106
36 05BB DA7205
37 05BE CD4AOA
38 05Cl lA
39 05C2 E620
40 05C4 CABB05
41 05C7 54
42 05C8 El
43 05C9 Cl
44 05CA C5
45 05CB E5
46 oscc
47 05CC CD2406
48 05CF 38Al
49 05Dl BE
50 0502 209A
51 0504 23
52 0505 OB
53 0506 78
54 05D7 Bl
55 0508 20 F2
56 05DA 2A 9911
57 0500 CD2406
58 05EO BC
59 05El 2088
60 05E3 CD2406
LD
LD
LD
LD
OR
JR
CALL
CALL
JR
CALL
JR
CALL
JR
HL,<DTADR>
D,D2H
E,53H
A,B
c
Z,R TP4
CKSUM
MOTOR
C,RTP6
TMARK
C,RTP6
TVRF Y
RTP4
DATA VERIFY
BC=SIZE
HL=DATA LOW
CSMDT=CHECK
ADR
SUt1
EXIT ACC=O
=1
=2
OK CF=O
ER =1
BREA K= !
TVRFY: ENT
PUSH
PUSH
PUSH
LD
TVFl: ENT
LD
LD
TVF2: ENT
CALL
,Jp
CALL
LD
AND
JP
LD
POP
POP
PUSH
PUSH
TVF3: ENT .
CALL
,lR
CP
,JR
INC
DEC
LD
OR
JR
LD
CALL
CP
,JR
CAL L
DE
BC
HL
H, 2
BC,KEYPB
DE,CSTR
EDGE
C,RTP6
DLY3
A, <DEl
20H
Z,TVF2
,D,H
HL
BC
BC
HL
RBYTE
C,RTP6
<HL>
NZ,RTP7
HL
BC
A,B
c
NZ, TVF3
HL,<CSMDTl
RBYTE
H
NZ,RTP7
RBYTE
04.07.83
''R '
··s ,
TAPE MARK DETECT
CALL DLY2*3
11 ZBO ASSEMBL ER SB-7201 < 1Z-013A > PAGE 22 04.07.83
01 05E6 BD
. 02 05E7 2085
03 05E9 15
04 05EA CA5305
05 05ED 62
06 05EE 1BC2
· o? 05FO
OB 05FO
09 05FO
10 05FO
11 05FO F5
12 05F1 3A8E11
13
05F4 CDB!OF
14 05 F7 77
15 05FB Fl
16 05F9 C9
17
05FA
18 05FA
19 05FA
20 05FA
2 1 05FA
22 05FA CD0900
23 05FD CDBA03
24 0600 C9
25 0601
26 0601
27 0601
28 0601
29 . 0601
30 0601
3 1 0601
32 0601
33 0601
34 0601
35 0601
36 0601
37 0601 3 EFB
38 0 60 3 3200EO
39 0606 00
40 0607
41 0607 OA
42 0608 E681
43 060A 2002
44 060C 37
45 060D C9
46 060E lA
47 060F E620
48 0611 20 F4
49 0613
50 0613 OA
51 0614 E681
52 0616 2002
53 06 18 37
54 0619 C9
55 061A lA
56 061B E6 20
57 061D 2BF4
58 061F C9
59 0620
60 0620
CP L
JR NZ, RTF'7
DEC D
.Jp z, RTPB
LD H,D
JR TVFl
FLASHING DATA LOAD
? LOAD: ENT
PUSH
LD
CALL
LD
POP
RET
AF
A,<FLASHl
?PONT
<HL> ,A
AF
NEW LINE' AND PRINT HL REG. <ASCI I l
NLPHL: ENT
;
CALL
CALL
RET
;ORG 0601H;EDGE
NL
PRTHL
EDGE <TAPE DATA EDGE DETECT>
BC=KEYPB ($E001l
DE=CSTR ($E002l
EX IT CF=O OK : CF=l BREA K
EDGE:
EDGt:
EDG 2:
ENT
LD
LD
NOP
ENT
LD
AND
JR
SCF
RET
LD
AND
JR
ENT
LD
AND
JR
SCF
RET
LD
AND
,JR
RET
A,FBH
<KEYPAl,A
A, <BC>
BlH
NZ,+4
A, <DEl
20H
NZ,EDG1
A, <BC)
BlH
NZ,+4
A, <D El
20H
Z,EDG2
BREAK KEY IN
SHIFT & BREA K
CSTR D5 = 0
8
9
1 0/14
8
9
CSTR D5
11
: 10/14