Werbung
••
Z80 ASSEMBLER 2Z-004C
<9Z-504M-Vl. 0C>
PAGE 19
03.06.85
••
Z80 ASSEMBLER 2Z-004C
<9Z-504M-Vl. 0C>
PAGE 20
03.06.85
01 E382
01 EJOB
:
02 E382
02 E3DB
: Save 1 ehr
by
Ace
03 E3B2
03 E3DB
&
ready check
04 E3B2
EOM
~
End off message
04 E3DB
.
05 E3B2
Save CRCll,12,FLAG
05 E3DB
TRANS:
ENT
06 E382
File space check
06 E3DB F5
PUSH
AF
07 E3B2
07 E3DC DBF6
TRAI:
IN
A, CSIOAC>
08 E3B2
.
08 E3DE E604
ANO
4
; TRANS buf nu 11
09 E3B2
EOM:
ENT
09 E3E0 28FA
JR
Z,TRAl
10 E3B2 010100
LD
BC, 1
;WAIT 0. ?ms
10 E3E2 Fl
POP
AF
11 E3B5 C014E4
CALL
TIMW
11 E3E3 03F4
OUT
CSIOAD> ,A
12 E388 3El0
LD
A, !0H
12 E3E5 3El0
NRCK:
LD
A, !0H
13 E3BA 03F7
:JUT
<SIOBC>
,A
13 E3E7 D3F6
OUT
CSIOAC> ,A
14 E3BC OBF7
lN
A, <SIOBC>
14 E3E9 DBF6
IN
A, CSIOAC>
15 E3BE E608
~NO
8
15 E3EB E608
AND
08H
16 E3C0 C0
qET
NZ
16 E3EO 2817
JR
Z, IOE50
;Not ready
17 E3Cl 1846
JR
IOE53
;NO fi
1e
space
17 E3EF C9
RET
18 E3C3
18 E3F0
19 E3C3
RDC~
-- REAO CRC
g.
CHECK
19 E3F0
Read data Cl chrl
20 E3C3
.
20 E3F0
..
21 E3C3
ROCRC:
ENT
21 E3F0
ROATA:
ENT
22 E3C3 0603
LD
B,3
22 E3F0 CDE5E3
CALL
NRCK
23 E3C5 COF0E3
RDCRl:
CALL
ROATA
23 E3F3 DBF6
IN
A,
<SIOACJ
;RR0
24
E3C8 10FB
DJNZ
ROCRI
24 E3F5 07
RLCA
25 E3CA OBF6
ROCR2:
IN
A, CSIOAC>
25 E3F6 3808
JR
C,IOE41
;Hard err
26 E3CC 0F
qRCA
26 E3F8 0F
RRCA
27 E3CO 30FB
JR
NC,ROCR2
R>< Available
27 E3F9 0F
RRCA
28 E3CF 3E01
:...0
A,01H
28 E3FA 30F4
JR
NC,ROATA
29 E301 03F6
JUT
<SIOACJ ,A
29 E3FC DBF4
IN
A, <SIOAOl
30 E303 DBF6
:N
A, CSIOAC>
30 E3FE 87
OR
A
0
31 E305 E640
~NO
40H
31 E3FF C9
RET
CO
32 E307 2027
JR
NZ, IOE41
;Hard err
32 E400
33 E309 97
JR
A
33
E400
SKP
H
34 E30A
C9
RET
35 E30B
36 E30B
SKP
H
Werbung
