Werbung
••
Z80
ASSEMB~ER
2Z-004C
<lZ-0138>
PAGE 29
01 07E6
02 07E6
03 07E6
04 07E6
05 07E6 FS
06 07E7 CS
07 07E8 ES
08 07E9 DS
09 07EA
10 07EA CDB309
11 07ED
12 07ED FS
13 07EE 47
14 07EF 3A9Dl I
IS 07F2 0F
16 07F3 D4770S
17 07F6 78
18 07F7 217011
19 07FA E6F0
20 07FC FEC0
21 07FE DI
22 07FF 78
23 0800 2016
24 0802 FECD
25 0804 28SS
26 0806 FECB
27 0808 CA2208
28 0808 FECF
29 0800 2809
30 080F FEC7
31 0811 300A
32 0813 CBlB
33 081S 78
34 0816 300S
3S 0818
36 0818 CDBS0D
37 0819 18CD
38 0810
39 0810 CDDC0D
40 0820 18C8
41 0822
42 0822
43 0822
44 0822 EI
4S 0823 ES
46 0824 3619
47 0826 23
48 0827 3600
49 0829 18S3
S0 0829
Sl 0828
S2 0828 0F
S3 082C 3037
S4 082E 1833
ss
0830
56 0830
S7 0830
.
58 0830
59 0830
60 0830 CD9609
.
?GETL:
ENT
PUSH
PUSH
PUSH
PUSH
GETLl:
ENT
CALL
AUT03:
ENT
PUSH
LD
LD
RRCA
CALL
LD
LD
ANO
CP
POP
LD
JR
CP
JR
CP
JP
CP
JR
CP
JR
RR
LD
JR
GETL2:
ENT
CALL
JR
GETLS:
ENT
CALL
JR
CEND =CR l
AF
BC
HL
DE
??KEY
AF
B,A
A, <SWRKl
NC,?BEL
A,B
HL,KANAF
F0H
C0H
DE
A,8
NZ,GETL2
CDH
Z,GETL3
CBH
Z,GETLC
CFH
Z,GETL2
C7H
NC,GETLS
E
A,B
NC,GETLS
?DSP
GETLI
?DPCT
GETLI
BREAK IN
.
GETLC:
POP
PUSH
LD
INC
LD
JR
GETLA
.
GETLA:
RRCA
HL
HL
CHU ,!BH
HL
<HU ,0DH
GETLR
JR
NC,GETL6
JR
GETLB
DELAV 7M SEC AND SWEP
.
DSWEP:
CALL
DLY12
03.06.8S
ENTRV KEY
IN KEY DATA SAVE
BELL WORK
ENTRY BELL
KANA
~
GRAPH FLAG
Ereg=FLAGreg
CR
BREAK
NIKO MARK WH.
CRT EDITION
CY
?
CRT CONTROL
BREAK CODE
CYD7
••
Z80 ASSEMBLER 2Z-004C
<1Z-013B>
PAGE 30
01 0833 CDS00A
02 0836 C9
03 0837
04 0837
05 0837
06 0859
07 08SB
08 0859
09 08SB
10 08SB
11 08SB CDF302
12 085E 0628
13 0860 30C9
14 0862 25
!S 0863 06S0
16 086S 2E00
17 0867 CDB40F
18 086A 01
19 086B OS
20 086C 7E
21 0860 CDCE0B
22 0870 12
23 0871 23
24 0872 13
2S 0873 10F7
26 0875 EB
27 0876 3600
28 0878 29
29 0879 7E
30 087A FE20
31 087C
32 087C
33 087C
34 087C
35 087C 28F8
36 087E
37 087E
38 087E
39 087E CD0E09
40 0881 01
41 0882 EI
42 0883 Cl
43 0884 Fl
44 0885 C9
4S 0886
46 0886
47 0886
48 0886
49 0893
50 0893
SI 0893
52 0893
S3 0893
S4 0893
ss
0893
S6 0893
S7 0893 FS
S8 0894 CS
S9 089S OS
60 0896 IA
CALL
?SWEP
RET
DEFS
36
ORG 08SBH;GETL3
.
GETL3:
CALL
LD
JR
DEC
GETLB:
LD
GETL6:
LD
CALL
POP
PUSH
GETLZ:
LD
CALL
LD
INC
INC
OJNZ
EX
GETLU:
LO
OEC
LO
CP
.MANG
B,40
NC,GETLA
H
B,80
L,0
?PNTI
DE
DE
A,CHU
?DACN
<DE>
,A
HL
OE
GETLZ
OE,HL
<HU ,0DH
HL
A, CHU
20H
CR ANO NEW UNE
JR
Z,GETLU
NEW UNE RETURN
.
GETLR:
CALL
?LTNL
DE
POP
POP
POP
POP
RET
HL
BC
AF
OEFS
+13
;ORG 0893H
MESSAGE PRINT
.
?MSG:
MSGI:
DE PRINT DATA LOW ADR.
END=CR
ENT
PUSH
PUSH
PUSH
LD
AF
BC
OE
A,
<DE>
03.06.85
CR
ILINE
BEFORE LINE
2 UNE
STORE TOP ADR.
·
SPACE THEN CR
Werbung
