Werbung
••
Z80 ASSEMBLER 2Z-004C
<IZ-013B>
PAGE 27
03.06.85
••
Z80 ASSEMBLER 2Z-004C
<IZ-0138>
PAGE 28
03.06.85
01 0748
01 0792 78
LO
A,B
02 0748
02 0793 BI
OR
c
03 0748
OEFS
+17
03 0794 20F8
JR
NZ,-6
04 0759
.
04 0796
GAP2:
ENT
05 0759
;ORG 0759H;OLYI
05 0796 COIA0A
CALL
LONG
06 0759
06 0799 15
OEC
D
07 0759
107 MICRO SEC DELY
07 079A 20FA
JR
NZ,-4
08 0759
.
08 079C
GAP3:
ENT
09 0759
OLYI:
ENT
09 079C CD010A
CALL
SHORT
10 0759 3EIB
LD
A, IBH
.
111.39 micro sec
10 079F 10
DEC
E
11 075B 30
OEC
A
11 07A0 20FA
JR
NZ,-4
12 075C C25B07
JP
NZ,-1
12 07A2 COIA0A
CALL
LONG
13 075F C9
RET
13 07A5 01
POP
DE
14 0760
.
14 07A6 Cl
POP
BC
15 0760
:ORG 0760H;OLY2
15 07A7 C9
RET
16 0760
.
16 07A8
17 0760
OLY2
:
ENT
17 07A8
MEMORY CORRECTION
18 0760 3El9
LO
A, !9H
103.45 micro sec
18 07A8
COMMAND 'M'
19 0762 30
DEC
A
19 07A8
.
20 0763 C26207
JP
NZ,-1
20 07A8
MCOR:
ENT
21 0766 C9
RET
21 07A8 C03001
CALL
HEXIY
CRRECTION AOR.
22 0767
22 07AB
MCRl:
ENT
23 0767
23 07AB COFA05
CALL
NLPHL
COR. AOR
.
PRINT
24 0767
24 07AE CDB103
CALL
SPHEX
ACC
ASCll DISP.
25 0767
25 07Bl CD2009
CALL
?PRTS
SPACE PRINT
26 0767
26 07B4 C02F01
CALL
BGETL
GET DATA
&
CHECK DATA
27 0767
1 BYTE WRITE
27 07B7 CD1004
CALL
HLHEX
HLASCll<DE>
CX>
28 0767
.
28 07BA 3818
JR
C,MCR3
0
29 0767
WBYTE:
ENT
29 07BC COA602
CALL
.4DE
<INC 0El•4
30 0767 C5
PUSH
BC
30 07BF 13
INC
DE
31 0768 0608
LD
B,+8
31 07C0 CD1F04
CALL
2HEX
DATA CHECK
32 076A C01A0A
CALL
LONG
32 07C3 38E6
JR
C,MCRI
33 0760
lJBYl:
ENT
33 07C5 BE
CP
CHU
34 0760 07
RLCA
34 07C6 20E3
JR
NZ,MCRl
35 076E OCIA0A
CALL
C,
LONG
35 07C8 13
INC
DE
36 0771 04010A
CALL
NC,SHDRT
36 07C9 IA
LO
A, <DE>
37 0774 05
DEC
B
37 07CA FE00
CP
00H
NOT CORRECTION ?
38 0775 C26007
JP
NZ,WBYI
38 07CC 2806
JR
Z,MCR2
39 0778 Cl
POP
BC
39 07CE COIF04
CALL
2HEX
ACCHL<ASCll >
40 0779 C9
RET
40 0701 3808
JR
C,MCRl
41 077A
41 0703 77
LO
CHU,A
DATA CORRECT
42 077A
42 0704
MCR2:
ENT
43 077A
GAP + TAPEMARK
43 0704 23
INC
HL
44 077A
44 0705 1804
JR
MCRI
45 077A
E=~L~
LONG GAP
45 0707
.
46 077A
=~S~
SHORT GAP
46 0707 60
MCR3:
LD
H,B
MEMORY AOR.
47 077A
.
47 0708 69
LD
L,C
48 077A
GAP:
ENT
48 lt?09 1800
JR
MCRI
49 077A C5
PUSH
BC
49 0708
50 077B 05
PUSH
DE
50 0708
51 077( 7B
LD
A,E
51 0708
52 0770 01F055
LD
BC,55F0H
52 0708
53 0780 112828
.LD
DE,2828H
53 0708
54 0783 FECC
CP
CCH
:• L•
54 07E6
ORG
07E6H
55 0785 CA8E07
JP
Z,GAPI
55 07E6
56 0788 01F82A
LO
BC,2AF8H
56 07E6
57 078B 111414
LD
DE, 1414H
57 07E6
58 078E
GAP!:
ENT
58 07E6
GET 1 LINE STATEMENT
•
59 078E CD010A
CALL
SHORT
59 07E6
60 0791 0B
DEC
BC
60 07E6
DE = DATA STORE LOW AOR.
Werbung
