Werbung
••
Z80 ASSEMBLER 2Z-004C
<IZ-013B>
PAGE 19
03.06.6S
••
280 ASSEMBLER 2Z-004C
<IZ-013B>
PAGE 20
03.06.8S
01 0S0E
IN
BC=SlZE
01 0S60 2001
JR
NZ,+3
02 0S0E
DE=LOAO ADR.
02 0S62 FB
EI
03 0S0E
03 0S63 FI
POP
AF
04 0S0E
EXIT
ACC=0
OK CF=0
04 0S64 C9
RET
0S 050E
=I
ER
=I
0S 0S65
.
06 0S0E
=2
BREAK=!
06 0S65
RTP5:
ENT
07 050E
.
07 0S65 IS
OEC
0
08 050E
RTAPE:
ENT
08 0S66 2806
JR
Z,RTP7
09 050E DS
PUSH
DE
09 0S66 62
LD
H,D
10 050F CS
PUSH
BC
10 0S69 CDE20F
CALL
GAPCK
II 0510 ES
PUSH
HL
11 0S6C 18AS
JR
RTPI
12 0511 2602
LO
H,2
TWICE WRITE
12 0S6E
RTP7:
ENT
13 0513
RTPI:
ENT
13 0S6E 3E01
LO
A, 1
14 0513 0101E0
LO
BC,KEYPB
14 0S70 1802
JR
RTP9
15 0516 1102E0
LO
OE,CSTR
15 0S72
RTP6:
ENT
16 0519
RTP2:
ENT
16 0S72 3E02
LO
A,2
17 0519 CD0106
CALL
EDGE
10 EOGE OETECT
17 0S74
RTP9:
ENT
18 051C 3854
JR
C,RTP6
18 0S74 37
SCF
19 051E CD4A0A
CALL
OLY3
CALL DL Y2•3
19 0S75 1800
JR
RTP4
20 0521 lA
LD
A, <OE>
DATA <lBIT> REAO
20 0S77
21 0522 E620
ANO
20H
21 0S77
22 0524 CA190S
JP
Z,RTP2
22 0S77
BELL
23 0527 54
LO
O,H
23 0577
.
24 0528 210000
LO
HL,0
24 0S77
?BEL:
ENT
2S 052B 22971 1
LO
<SUMDT> ,HL
2S 0S77 OS
PUSH
OE
26 052E EI
POP
HL
26 0S78 115203
LO
OE,?BELO
27 052F Cl
POP
BC
27 057B F7
RST
6
CALL MELDY
-.J
28 0530 CS
PUSH
BC
28 057C DI
POP
DE
m
29 0531 ES
PUSH
HL
29 0570 C9
RET
30 0532
RTP3:
ENT
30 057E
31 0532 CD2406
CALL
RBYTE
!BYTE REAO
31 057E
FLASlNG ANO KEYlN
32 053S 383B
JR
C,RTP6
32 0S7E
EXIT
:
ACC INPUT KEY DATA<OSP.CODE>
33 0537 77
LO
<HU
,
A
33 0S7E
H=F0H THEN NO KEYIN<Z FLG.>
34 0538 23
INC
HL
34 057E
.
3S 0539 08
DEC
BC
3S 0S7E
FLKEY:
ENT
36 053A 78
LO
A,B
36 0S7E CDFF09
CALL
?FLAS
37 0538 Bl
OR
c
37 0581 CDCA08
CALL
?KEY
38 053C 20F4
JR
NZ,RTP3
38 0S84 FEF0
CP
F0H
39 053E 2A971 I
LO
HL, <SUMOT>
CHECK SUM
39 0586 C9
RET
40 0541 C02406
CALL
RBYTE
CHECK SUM DATA
40 0S87
41 0544 382C
JR
C,RTP6
41 0S87
42 0546 5F
LO
E,A
42 0S87
43 0547 CD2406
CALL
RBYTE
CHECK SUM DATA
43 0S87
44 054A 3826
JR
C,RTP6
44 0587
45 054C BD
CP
L
45 0587
OEFS
+I
46 054D 2016
JR
NZ,RTP5
46 0588
;ORG 0588H
47 054F 78
LO
A,E
47 0588
48 0550 BC
CP
H
48 0S88
49 0551 2012
JR
NZ,RTPS
49 0S88
VERIFY <FROM SCMT>
S0 05S3
RTP8:
ENT
50 0588
51 05S3 AF
XOR
A
51 0S88
EXIT ACC =0
OK CF=0
S2 05S4
RTP4:
ENT
52 0S88
=1
ER CF=I
53 0554
RET2:
ENT
S3 0S88
=2
BREAK CF=I
54 0554 El
POP
HL
S4 0588
.
SS 0555 Cl
POP
BC
S5 0588
?VRFY:
ENT
S6 0556 DI
POP
OE
56 0S88 F3
01
S7 0557 CD0007
CALL
MSTOP
57 0S89 D5
PUSH
OE
58 055A F5
PUSH
AF
58 058A CS
PUSH
BC
59 0558 3A9C 11
LD
A, <TIMFG>
!NT. CHECK
59 058B ES
PUSH
HL
60 055E FEF0
CP
F0H
60 0S8C ED4B0211
LO
BC,<SIZE>
Werbung
