Werbung
••
Z80 ASSEMBLER 2Z-004C
<1Z-013B
>
PAGE lS
03.06.8S
••
Z80 ASSEMBLER 2Z-004C
<1Z-013B
>
PAGE 16
03.06.8S
01 03FB
PRASS PLAY MESSAGE
01 0433 BI
OR
c
02 03FB
'
02 0434 Cl
2HEI:
POP
BC
03 03FB
MSGlll:
ENT
03 043S C9
RET
04 03FB
7F20
DEFW
207FH
04 0436
0S 03FD
MSGll2:
ENT
05 0436
06 03FD S04C41S9
DEFM
'PLAY'
06 0436
WRITE INFORMATION
07 0401 0D
DEFB
0DH
07 0436
.
08 0402
MSGll3:
ENT
08 0436
?WRI:
ENT
09 0402 7F20
DEFW
2~7FH
09 0436 F3
DI
10 0404 S24S434F
DEFM
'RECORD.'
PRESS RECORD
10 0437 DS
PUSH
DE
11 0408 S2442E
11 0438 CS
PUSH
BC
12 040B 0D
DEFB
0DH
12 0439 ES
PUSH
HL
13 040C
13 043A 16D7
LD
D,D7H
'W'
14 040C
14 043C lECC
LD
E,
CCH
'L
'
lS 040C
DEFS
+4
lS 043E 21F010
LD
HL, IBUFE
10F0H
16 0410
;ORG 0410H;HLHEX
16 0441 018000
LD
BC,80H
WRITE BYTE SIZE
17 0410
17 0444 CD!A07
WRil:
CALL
CKSUM
CHECK SUM
18 0410
18 0447 CD9F06
CALL
MOTOR
MOTOR ON
19 0410
4 ASCII TO <HU
19 044A 3818
JR
C,WRI3
20 0410
20 044C 79
LD
A,E
21 0410
IN
DE=DATA LOW ADR
.
21 044D FECC
CP
CCH
'L'
22 0410
EXIT
CF=0 : OK
22 044F 2000
JR
NZ,WRI2
23 0410
=1 : OUT
23 04S1 CD0900
CALL
NL
24 0410
'
24 04S4 DS
PUSH
DE
2S 0410
HLHEX
:
ENT
2S 04SS 116704
LD
OE
,
MSGll7
WRIT!NG
26 0410 DS
PUSH
DE
26 04S8 DF
RST
3
CALL MSGX
27 0411 CD1F04
CALL
2HEX
27 04S9 l lFl 10
LD
DE.NAME
FILE NAME
~
28 0414 3807
JR
C,+9
28 04SC DF
RST
3
CALL MSGX
29 0416 67
LD
H,A
29 04SD Dl
POP
DE
30 0417 CD!F04
CALL
2HEX
30 04SE C07A07
WRI
2
:
CALL
GAP
31 041A 3801
JR
C,
+3
31 0461 CD8A04
CALL
WTAPE
32 041C 6F
LD
L,
A
32 0464 C3S40S
WRI3:
JP
RET2
33 041D Dl
HLI:
POP
OE
33 0467
.
34 041E C9
RET
34 0467
MSGll7:
ENT
3S 041F
'
3S 0467 S7S249S4
DEFM
'WRITING '
36 041F
;ORG 041FH;2HEX
36 0469 494E4720
37 041F
37 046F 0D
DEFB
0DH
38 041F
38 0470
39 041F
2 ASCll TO <ACCl
39 0470
40 041F
40 0470
41 041F
IN
DE= DATA
LOW ADR
.
41 0470
40 CHA. IN 1 LINE CODE <DATAl
42 041F
42 0470
.
43 041F
EXIT
CF=0
OK
43 0470
LLPT:
ENT
44 041F
=1
OUT
44 0470 01
DEFB
01H
;
TE
X
T MODE
4S 041F
'
4S 0471 09
OEFB
09H
46 041F
2HEX:
ENT
46 0472 09
DEFB
09H
47 041F CS
PUSH
BC
,47 0473 09
OEFB
0BH
48 0420 lA
LD
A, CDEl
48 0474 0D
OEFB
0DH
49 0421 13
INC
DE
49 047S
'
S0 0422 CDF903
CALL
HEX
50 0475
;ORG 047SH
51 0425 3800
JR
C,+15
Sl 047S
52 0427 0F
RRCA
S2 047S
53 0428 0F
RRCA
S3 047S
WRITE DATA
54 0429 0F
RRCA
S4 047S
5S 042A 0F
RRCA
ss
047S
EXIT
CF=0
OK
56 042B 4F
LD
C,A
S6 047S
=1
BREAK
57 042C lA
LD
A, CDEl
S7 047S
.
58 042D 13
INC
DE
58 047S
?WRO:
ENT
59 042E CDF903
CALL
HEX
S9 047S F3
DI
60 0431 3801
JR
C,+3
60 0476
DS
PUSH
DE
Werbung
