Sharp mz-800 Technical Reference And User's Manual page 82

••
Z80 ASSEMBLER 2Z-004C
<IZ-013B> PAGE 19
03.06.85
••
Z80 ASSEMBLER 2Z-004C <IZ-013B>
PAGE 20
03.06.85
01 050E
l
lN
BC=SIZE
01 0560 2001
JR
NZ,+3
02 050E
I
DE=LOAD AOR.
02 0562 FB
El
03 050E
;
03 0563 Fl
POP AF
04 050E ;
EXIT
ACC=0
1
OK CF=0
04 0564 C9
RET
05 050E
I
=I : ER
=1
05 0565
.
06 050E l
=2 : BREAK=!
06 0565
RTPS:
ENT
07 050E
;
07 0565 15
DEC 0
08 050E
RTAPE:
ENT
08 0566 2806
JR
Z,RTP7
09 050E OS
PUSH DE
09 0568 62
LD
H,'O
10 050F CS
PUSH BC
10 0569 COE20F
CALL
GAPCK
11 0510 ES
PUSH HL
11 056C 18AS
JR
RTP1
12 0511 2602
LD
H,2
; TWICE WRITE
12 056E
RTP7: ENT
13 0513
RTP1: ENT
13 056E 3E01
LD A,1
14 0513 0101E0
LD
BC,KEYPB
14 0570 1802
JR
RTP9
IS 0516 1102E0
LD
DE,CSTR
IS 0572
RTP6:
ENT
16 0519
RTP2: ENT
16 0572 3E02
LD
A,2
17 0519 C00106
CALL
EDGE
; 10 EDGE DETECT
17 0574
RTP9: ENT
18 0SIC 3854
JR C,RTP6
18 0574 37
SCF
19 051E CD4A0A
CALL
DLY3
; CALL DLY2•3
19 0575 1800
JR
RTP4
20 0521 lA
LD
A, COE>
; DATA <!BIT> READ
20 0577
21 0522 E620
AND 20H
21 0577
22 0524 CA1905
JP
Z,RTP2
22 0577
;
BELL
23 0527 54
LD
O,H
23 0577
.
24 0528 210000
LD
HL,0
24 0577
?BEL: ENT
25 052B 229711
LD
CSUMDT>,HL
25 0577
os
PUSH DE
26 052E El
POP HL ;
26 0578 115203
LD
OE,?BELD
27 052F Cl
POP BC
27 057B F7
RST 6
; CALL MELDY
28 0530 CS
PUSH BC
28 057C 01
POP
DE
29 0531 ES
PUSH HL
29 0570 C9
RET
30 0532
RTP3: ENT
30 057E ;
31 0532 CD2406
·CALL
RBYTE
; !BYTE READ
31 057E ;
FLASING AND KEYIN
32 0535 383B
JR
C,RTP6
32 057E
;
EXIT:ACC INPUT KEY OATA<DSP.CbOE>
33 0537 77
LD
<HL> ,A
33 057E ;
H=F0H THEN NO KEYIN<Z FLG.)
-..,1
34 0538 23
INC HL
34 057E
.
(J)
35 0539 0B
DEC BC
35 057E
FLKEY: ENT
36 053A 78
LD
A,B
36 057E COFF09
CALL ?FLAS
37 053B Bl
OR
c
37 0581 CDCA08
CALL
?KEY
38 053C 20F4
JR
NZ,RTP3
38 0584 FEF0
CP F0H
39 053E 2A9711
LD
HL, <SUMDT>
; CHECK SUM 39 0586 C9
RET
40 0541 C02406
CALL
RBYTE
; CHECK SUM DATA 40 0587
41 0544 382C
JR
C,RTP6
41 0587
42 0546 SF
LD
E,A
42 0587
43 0547 CD2406
CALL
RBYTE
; CHECK SUM DATA 43 0587
44 054A 3826
JR
C,RTP6
44 0587
45 054C BD
CP
L
45 0587
OEFS
+I
46 0540 2016
JR
NZ,RTPS
46 0588
10RG 0588H
47 054F 7B
LD
A,E
47 0588
48 0550 BC
CP
H
48 0588
49 0551 2012
JR
NZ,RTPS
49 0588
I
VERIFY <FROM $CMT>
50 0553
RTP81 ENT
50 0588
I
51 0553 AF
XOR
A
SI 0588
I
EXIT ACC =0
1
OK CF=0
52 0554
RTP4: ENT
52 0588 I
=I : ER CF=I
53 0554
RET2:
ENT
53 0588 I
=2 : BREAK CF=l
54 0554 El
POP HL
54 0588
I
SS 0555 Cl
POP
BC
55 0588
?VRFY: ENT
56 0556 01
POP DE
56 0588 F3
01
57 0557 CD0007
CALL MS TOP
57 0589
os
PUSH DE
58 055A FS
PUSH AF
58 058A CS
PUSH BC
59 0SSB 3A9Cll
LD
A, <TIMFG>
; INT. CHECK 59 058B ES
PUSH
HL
60 0SSE FEF0
CP
F0H
60 058C ED4B0211
LD
BC, <SIZE>