Werbung
••
Z80 ASSEMBLER 2Z-004C
<IZ-013B
>
PAGE 03
03.06.85
••
Z80 ASSEMBLER 2Z-004C
<1Z-013B>
PAGE 04
03.06.85
01 00C5 FE4C
CP
• L'
LOAD PROGRAM
01 0116 C00900
LOA0:
CALL
NL
02 00C7 2848
JR
Z,LOAD
02 0119 11A009
LD
OE,MSG?2
LOAD ING
03 00C9 FE46
CP
• F'
FLOPPY ACCESS
03 011C DF
RST
3
CALL MSGX
04 00CB 2832
JR
Z ,FO
04 0110 1lF110
LD
DE.NAME
FILE NAME
05 00CO FE42
CP
'B'
KEY IN BELL
05 0120 DF
RST
3
CALL MSGX
06 00CF 2826
JR
Z ,SG
06 0121 COF804
CALL
?ROD
07 0001 FE23
CP
'll'
CHANG MEMORY
07 0124 38El
JR
C,?ER
08 0003
2886
JR
Z,CMY0
08 0126 2A0611
LO
HL, CEXAOR>
EXECUTE ADDRESS
09 0005 FE50
CP
• p•
PRINTER TEST
09 0129 7C
LD
A,H
10 0007 287C
JR
Z,PTEST
10 012A FE12
CP
12H
EXECUTE CHECK
11 0009 FE40
CP
• M'
MEMORY CORRECTION
n
012C 38EI
JR
C,LOAD-2
12 00DB CAA807
JP
Z ,MCOR
12 0!2E E9
JP
<HU
13 00DE FE53
CP
. s·
SAVED DATA
13 0!2F
14 00E0 CA5E0F
JP
Z,SAVE
14 012F
15 00E3 FE56
CP
• v·
VERIFYING DATA
15 012F
16 00E5 CACB0F
JP
Z,VRFY
16 012F
GETLINE ANO BREAK IN CHECK
17 00E8 FE44
CP
. o·
OUMP DATA
17 012F
18 00EA CA290D
JP
Z,OUMP
18 012F
EXIT BREAK IN THEN JUMP <ST:>
19 00ED
19 012F
ACC=TOP OF LINE DATA
20 00ED
20 012F
.
21 00ED
DEFS
+4
21
012F
BGETL:
ENT
22 00Fl
22 012F E3
EX
<SPl ,HL
23 00Fl !8C8
JR
ST2
NOT COMMAND
23 0130 Cl
POP
BC
STACK
LOAD
24 00F3
24 0131 l 1A311
LD
OE,BUFER
MON! TOR GETLI.NE SUFF
25 00F3
JUMP COMMAND
25 0134 CD0300
CALL
GETL
26 00F3
.
26 0137 lA
LD
A, <OEl
27 00F3 C03001
GOTO:
CALL
HE XIV
27 0138 FElB
CP
lBH
BREAK CODE
m
28 00F6 E9
JP
<HU
28 013A 28D3
JR
Z,LOAD-2
JP Z.STl
<X>
29 00F7
29 013C E9
JP
CHU
30 00F7
KEY SOUND ON OFF
30 0130
31 00F7
.
31 0130
ASCII TO HEX CONVERT
32 00F7 3A9011
SG:
LD
A, <SWRK>
00 = SOUND WORK
32 0130
INPUT <DE>=ASCII
33 00FA
lF
RRA
33 0130
CY=l THEN
JUMP
<ST!>
34 00FB 3F
CCF
CHENGE MODE
34 0130
.
35 00FC 17
RLA
35 0130
HEX IV:
ENT
36 00FD 18A5
JR
SS+2
36 0130 FDE3
EX
<SPl, IV
37 00FF
37 013F
Fl
POP
AF
38 00FF
FLOPPY
38 0140 CD1004
CALL
HLHEX
39 00FF
.
39 0143 38CA
JR
C,LOA0-2
JP C,STl
40 00FF 2100F0
FO:
LD
HL,F000H
FLOPPY 1/0 CHECK
40 0145 FDE9
JP
<IV>
41 0102 7E
F02:
LD
A, CHL>
41 0147
42 0103 B7
DR
A
42 0147
43 0104 20A7
JR
NZ, STI
43 0147
.
44 0106 E9
FOl
:
JP
<HU
44 0147
MSGEl:
ENT
45 0107
45 0147 43484543
DEFM
'CHECK SUM ER.'
46 0107
46 0148 4B205355
47 0107
ERROR <LOADINGl
47 014F 4D204552
48 0107
.
48 0153 2E
49 0107
?ER:
ENT
49 0154 00
DEFB
0DH
50 0107 FE02
CP
02H
A=02H
:
BREAK IN
50 0155
51 0109 28A2
JR
Z ,STI
51 0155
52 010B 114701
LD
OE,MSGEl
CHECK SUM ERROR
52 0155
PLOTTER PRINTER TEST COMMAND
53 010E DF
RST
3
CALL MSGX
53 0155
<DPG23>
54 010F 189C
JR
STl
54 0155
&=CONTROL COMMANDS GROUP
55 0111
55 0155
C=PEN CHENGE
56 0111
56 0155
G=GRAPH MODE
57 0111
LOAD COMMAND
57 0155
5=80 CHA. IN 1 LINE
58 0111
.
58 0155
L=40 CHA. IN 1 LINE
59 0111 CDD804
LOAD:
CALL
?RDI
59 0155
T=PLOTTER TEST
60 0114 38Fl
JR
C, ?ER
60 0155
IN
<DE>=PRINT DATA
Werbung
