Sharp MZ-700 - Page 180

-.....J
.j:o,
11 Z80 ASSEMBLER SB-7201 < 1Z-013A > PAGE 19
01 050E
02 050E
03 050E
04 050E
05 050E
06 050E
07 050E
08 050E
09 050E 05
10 050F C5
11 0510 E5
12 0511 2602
13 0513
14 051 3 OIO!EO
15 0516 1102EO
16 0519
17 0519 CD0106
18 . 051C 3854
19 051E CD4AOA
20 0521 lA
21 0522 E620
22 0524 CA1905
23 0527 54
24 0528 210000
25 052B 229711
26 052E El
27 052F Cl
28 0530 C5
29 0531 E5
30 0532
31 0532 CD2406
32 0535 383B
33 0537 77
34 0538 23
35 0539 OB
36 053A 78
37 053B Bl
38 053C 20F4
39 053E 2A"9711
40 0541 CD2406
41 0544 3 82C
42 0546 5F
43 0547 CD2406
44 054A 3826
45 054C BD
46 0540 2016
47 054F 7B
48 0550 BC
49 0551 2012
50 0553
5 1 0553 AF
52 0554
53 0554
54 0554 El
55 0555 Cl
56 0556 Dl
57 0557 CDOOO?
58 055A F5
59 055B 3A9C11
60 055E FEFO
IN BC=SIZE
DE=LOAD ADF :.
EX
IT ACC=O
=1
m: CF=O
ER =1
F:TAPE:
RTF' I:
RTF'2:
RTP3:
RTP8:
RTP4:
RET2:
ENT
PUSH
PUSH
PUSH
LD
ENT
LD
LD
ENT
CALL
clR
CALL
LD
AND
clP
LD
LD
LD
POP
POP
PUSH
PUSH
ENT
CALL
JR
LD
INC
DEC
LD
OR
JR
LD
CALL
,JR
LD
CALL
clR
CP
JR
LD
CP
,JR
Ef.IT
XOR
ENT
ENT
POP
POP
POP
CALL
PUSH
LD
CP
=2 : BREAf<=l
DE
BC
HL
H,2
BC,f<EYF'B
DE,CSTR
EDGE
C,RTP6
DLY3
A, <DE>
20H
Z,RTP2
D,H
HL,O
( SUMDT>, HL
HL
BC
BC
HL
RBYTE
C,RTP6
<HU,A
HL
BC
A,B
c
NZ,RTP3
HL, ( SIJt1DT>
RBYTE
C,RTP6
E,A
RBYTE
C,RTP6
L
NZ,RTP5
A,E
H
NZ,RTP5
A
HL
BC
DE
MSTOP
AF
A,< Tit1FG>
FOH
04.07.83
TI.ICE I•F:ITE
1-10
EDGE DETECT
CALL DLY2*3
DATA (!BIT> READ
!BYTE READ
CHECK SUt1
CHECf< SUM DATA
CHECf < SUt1 DATA
INT. CHECf<
** Z80 ASSEt1BLER SB-7201 < 1 Z-013A > PAGE 20 04 .. 07.83
01 0560
02 0562
03 0563
04 0564
05 0565
06 0565
2001
FB
F1
C9
07 0565 15
08 0566 2806
09 0568 62
10 0569 CDE20F
11 056C 18A5
12 056E
13 056E 3E01
14 0570 1802
15 0572
16 0572 3E02
17 0574
18 0574 37
19 0575 18DD
20 0577
21 0577
22 0577
23 0577
24 0577
25 0577 D5
26 0578 1152 03
27 057B F7
28 057C D1
29 0570 C9
30 057E
31 057E
32 057E
33 057E
3.4 057E
35 057E
36 057E CDFF09
37 0581 CDCA08
38 0584 FEFO
39 0586 C9
4(1 0587
41 0587
42 0587
43 0587
44 0587
45 0587
46 0588
47 05138
48 0588
49 0588
50 0588
51 0588
52 0588
53 0588
54 0588
55 0588
56 0588 F3
57 0589 D5
58 058A C5
59 0588 E5
60 058C ED4B0211
RTP5:
RTP7:
RTP6:
RTP9:
BELL
?BEL:
,JR
El
POP
RET
ENT
DEC
,JR
LD
CALL
clR
ENT
LD
,JR
ENT
LD
ENT
SCF
NZ,+3
AF
D
Z,RTP7
H,D
GAPCf<
RTP1
A, 1
RTP9
A,2
,JR RTP4
ENT
PUSH
LD
RST
POP
RET
DE
DE,?BELD
6
DE
FLASING AND f<EYIN
CALL MELDY
EXIT:ACC INPUT KEY DATA<DSP.CODE)
H=FOH THEN NO f<EYINIZ FLG.)
FLKEY: ENT
CALL
CALL
?FLAS
?f<EY
CP FOH
RET
DEFS +1
;ORG 0588H
VERIFY <FROM $CMT>-
EXIT ACC =0
=1
?VRFY:
ENT
=2
DE
BC
HL
Of< CF=O
ER CF=1
BREAK CF=1
DI
PUSH
PUSH
PUSH
LD BC, (SIZE>