Werbung
.„
Z80 ASSEMBLER 2Z-004C
<9Z-504M-V 1 · 0
C>
PAGE 33
03.06.85
••
Z80 ASSEMBLER 2Z-004C
<9Z-504M-VI .0C>
PAGE 34
03.06
.
85
01 E745
IRl2WR: ENT
01 E793 05
PUSH
DE
DESize
02 E745
02 E794 1600
LD
D,00H
Sum Counter
03 E745
Disp 'Writing
.
..
„
'
03 E796 CS
WCKI:
PUSH
.
BC
04 E745
04 E797 0608
LD
8,08H
05 E745 llE2E7
LD
DE,MSGW01
'Writing now'
05 E799 7E
LD
A, (Hll
06 E748 CDl809
CALL
0918H
06 E79A 07
WCK2:
RLCA
07 E748 DF
RST
3
07 E79B 3001
JR
NC,WCK3
08 E74C CDl809
CALL
0918H
08 E79D 14
IN
C
D
09 E74F !IF0E7
LD
DE,MSGW02
'Master tape set'
09 E79E 10FA
WCK3:
DJNZ
WCK2
10 E752 DF
RST
3
10 E7A0 23
INC
HL
II E753 COl809
CALL
0918H
II E7AI Cl
POP
BC
12 E756
12
E7A2 10FZ
DJNZ
WCKI
13 E756
Read information block
13
E7A4 7A
LD
A,D
14 E756
14 E7A5 01
POP
DE
15 E756 C02700
CALL
RDINF
15 E7A6 ED79
OUT
<Cl ,A
C=C+2
16 E759 380E
JR
C,RDB0
16
E7A8
17 E75B
17 E7A8
Wr
i
te da
t
a block
18 E758
Disp 'Loading„ „.
'
18
E7A8
19 E75B
19 E7A8 DI
POP
DE
DES1 ze
20 E758 !191EE
LD
DE,MSGLD
'Loading'
20 E7A9 EI
POP
HL
HLData adrs
21 E75E C0!809
CALL
09!8H
2
1
E7AA 78
LO
A,E
22 E76! DF
RST
3
22 E7AB 87
OR
A
23 E762 ! !Fl 10
LD
DE,NAME
23 E7AC 2803
JR
Z,+5
24 E765 DF
RST
3
24 E7AE 43
LO
8,E
25 E766
25 E7AF EDB3
OTIR
C=C+2
26 E766
Read data block
26 E7BI 0600
LO
B,00
27 E766
27
E7B3 15
DEC
D
_.
28 E766 C02A00
CALL
ROOAT
28
E784 F2AFE7
JP
P,-5
(J)
29 E769 DA24EB
RDB0
:
JP
C,?ERX
29 E787 C35EEA
JP
ST!X
30 E76C
30 E7BA
31 E76C
Counter reset
31
E7BA
IR
l2
set che
c
k
32 E76C
32
E7BA
33 E76C ED78
IN
A, <C>
C=C+0
33
E78A
12CKI: ENT
34 E76E
34 E78A AF
XOR
A
carry
f
lag reset
35 E76E
Sum
c
he
c
k for data
35 E7BB ED78
IN
A, (()
Count er reset
,
C=C+0
36 E76E
36 E7BD 0C
INC
c
37 E76E E0430Al 1
LD
<COMNT+2l
, BC
C=Port adrs,C=C+0
37
E7BE
ED78
IN
A,
CC>
C=C+I
38 E772 ED5804!1
LD
DE, <DTADR
>
38 E7C0 08
EX
AF,AF'
39 E776 ED48021 I
LO
BC, CSIZE
>
39 E7CI 00
OEC
c
40 E77A 05
PUSH
DE
40 E7C2 ED78
IN
A, < C>
Counter reset
41 E77B CS
PUSH
BC
41 E7C4 06A5
LD
8,ASH
42 E77C C00EE7
CALL
SUM
HLCheck sum
42
E7C6 0C
INC
c
43 E77F 220811
LD
CCOMNT> ,HL
43 E7C7 0C
INC
c
44 E782
44 E7C8 E041
OUT
<C> ,8
C=C+2
45 E782
Wr i te information C88yte>
45 E7CA 00
DEC
c
46 E782
46
E7CB 00
DEC
c
47 E782 210211
LD
HL,SIZE
47
E7CC ED78
IN
A, <C>
Coun
t
er reset
48 E785 E0480Al 1
LO
8C,(COMNT+2
>
C=Port adrs,C=C+0
48 E7CE 0C
INC
c
49 E789 0608
LD
8,08H
Byte Counter
49 E7CF ED78
IN
A, <C>
C=C+
I.
50 E78B 0C
INC
c
50 E701 88
CP
B
51 E78C 0C'
INC
c
51 E7D2 2008
JR
NZ, 12NSET
52 E78D ES
PUSH
HL
52 E7D4 00
DEC
c
53 E78E CS
PUSH
BC
53 E7D5 ED78
IN
A, CC>
Counter reset
54 E78F EDB3
OTIR
C=C+2
54 E7D7 08
EX
AF ,AF'
55 E79! Cl
POP
BC
55 E7D8 0C
INC
c
56 E792 EI
POP
HL
56 E7D9 0C
INC
c
57 E793
57 E7DA ED79
OUT
<C> ,A
C=C+2
58 E793
Sum check for information block
58 E7DC 00
DEC
c
59 E793
AccCheck sum data
59 E7DD 00
DEC
c
C=C+0
60 E793
60 E70E C9
RET
Werbung
