Werbung
••
Z80 ASSEMBLER 2Z-0e4C
<lZ-0138>
PAGE 33
03.06.85
••
Z80 ASSEMBLER 2Z-004C
<lZ-0138>
PAGE 34
03 -06.85
01 090E
01 0946
1 CHA.
02 090E
NEWLINE
02 0946
INPUT:C=ASCil DATA C?DSP+?DPCT>
03 090E
.
03 0946
.
04 090E
?LTNL:
ENT
04 0946
?PRT:
ENT
05 090E AF
XOR
A
05 0946 79
LD
A,C
06 090F 329411
LD
<OPRNT> ,A
ROW POINTER
06 0947 CDB908
CALL
?ADCN
ASCll TO DSPLAY
07 0912 3ECD
LD
A,CDH
CR
07 094A 4F
LD
C,A
08 0914 1843
JR
PRNT5
08 0948 FEF0
CP
F0H
09 0916
DEFS
+2
09 094D C8
RET
z
ZERO= ILLEGAL DATA
10 0918
;ORG 0918H
10 094E E6F0
AND
F0H
MSO CHECK
11 0918
.
II 0950 FEC0
CP
C0H
12 0918
?NL
:
ENT
12 0952 79
LD
A,C
13 0918 3A9411
LD
A, CDPRNT>
13 0953 2017
JR
NZ,PRNT3
14 091B 87
OR
A
14 0955 FEC7
CP
C7H
15 091C C8
RET
z
15 0957 3013
JR
NC,PRNT3
CRT EDITOR
16 0910 18EF
JR
?LTNL
16 0959
PRNTS:
ENT
17 "091F
DEFS
+I
17 0959 CDDC0D
CALL
?DPCT
18 0920
:ORG 0920H
18 09SC FEC3
CP
C3H
19 0920
19 09SE 280F
JR
Z,PRNT4
20 0920
PRINT SPACE
20 0960 FEC5
CP
CSH
HOME
21 0920
.
21 0962 2803
JR
Z,PRNT2
22 0920
?PRTS:
ENT
22 0964 FEC6
CP
C6H
CLR
23 0920 3E20
LD
A,20H
23 0966 C0
RET
NZ
24 0922 1811
JR
?PRNT
24 0967 AF
PRNT2:
XOR
A
25 0924
25 0968 32941
1
LD
CDPRNT> ,A
26 0924
PRINT TAB
26 096B C9
RET
27 0924
.
27 096C
PRNT3:
ENT
28 0924
?PRTT:
ENT
28 096C CDB50D
CALL
?DSP
29 0924 CD0C00
CALL
PRNTS
29 096F 3A9411
PRNT4:
LD
A, CDPRNT>
TAB POINT+!
CX>
30 0927 3A9411
LD
A, <DPRNTl
30 0972 3C
INC
A
c..>
31 092A B7
OR
A
31 0973 FE50
CP
+80
32 092B C8
RET
z
32 0975 38FI
JR
C, PRNT2+1
33 092C D60A
SUB
+10
33 0977 D650
SUB
+80
34 092E 38F4
JR
C,-10
34 0979 18EO
JR
PRNT2+1
35 0930 20FA
JR
NZ,-4
35 0978
36 0932
DEFS
+3
36 097B
37 0935
:DRG 093SH
37 0978
38 0935
38 0978
39 0935
PRINT
39 0978
40 0935
40 097B
FLASSING BYPASS 1
41 0935
IN ACC
PRINT DATA <ASCII>
41 0978
.
42 0935
.
42 0978
FLASI:
ENT
43 0935
?PRNT:
ENT
43 0978 3A8El 1
LD
A, <FLASH>
44 0935 FE0D
CP
0DH
; CR
44 097E 186F
JR
FLAS2
45 0937 28D5
JR
Z,?LTNL
45 0980
46 0939 CS
PUSH
BC
46 0980
BREAK SUBROUTINE BYPASS
47 093A 4F
LD
C,A
47 0980
48 093B 47
LD
B,A
48 0980
CTRL OR NOT KEY
49 093C CD4609
CALL
?PRT
49 0980
.
50 093F 78
LD
A,B
50 0980
?BRK2:
ENT
SI 0940 Cl
POP
BC
51 0980 CB6F
BIT
5
,
A
NOT OR CTRL
52 0941 C9
RET
52 0982 2802
JR
Z, ?8RK3
CTRL
53 0942
53 0984 B7
DR
A
NOTKEY A=7FH
54 0942
l
54 0985 C9
RET
55 0942
MSGOK:
ENT
55 0986
.
56 0942 4F4821
DEFM
'
OK!'
56 0986 3E20
?BRK3:
LD
A,20H
CTRL D5=1
57 0945 00
DEFB
0DH
57 0988 B7
DR
A
ZERO FLG. CLR
58 0946
ORG 0946H
58 0989 37
SCF
59 0946
59 098A C9
RET
60 0946
PRINT ROUTINE
60 0988
Werbung
