Werbung
••
Z80 ASSEMBLER 2Z-004C
<IZ-0138>
PAGE 35
03.06.85
••
Z80 ASSEMBLER 2Z-004C
<IZ-0138>
PAGE 36
03.06.8S
01 0988
MSGSV:
ENT
01 09C8 FS
PUSH
AF
02 0988 46494C45
DEFM
'FILENAME? '
02 09C9 BC
CP
H
CHATER CHECK
03 098F 4E414D4S
03 09CA EI
POP
HL
04 0993 3F20
04 09C8 20EF
JR
NZ,KSL2
0S 099S 0D
DEFB
0DH
0S 09CD ES
PUSH
HL
06 0996
06 09CE FI
POP
AF
IN KEY DATA
.
07 0996
DLY 7
MSEC
07 09CF CDF005
CALL
?LOAD
FLSHING DATA LOAD
08 0996
.
08 09D2 EI
POP
HL
09 0996
DLY12:
ENT
09 09D3 C9
RET
10 0996 CS
PUSH
BC
10 09D4
II 0997 0615
LD
8, !SH
7143.9
micro sec
11 0904
12 0999 CD4A0A
CALL
DLY3
12 0904
CLEAR 2
13 099C !0FB
DJNZ
-3
13 09D4
.
14
099E Cl
POP
BC
14 09D4
#CLR08: ENT
CY FLG.
15 099F C9
RET
15 0904 AF
XOR
A
16 09A0
16 0905
llCLR8:
ENT
17 09A0
17 0905 010008
LD
8C,0800H
18 09A0
18 09D8
CLEAR:
ENT
BC = CLR BYTE SIZE
19 09A0
LOAOING MESSAGE
19 0908 DS
PUSH
DE
A = CLR DATA
20 09A0
.
20 0909 S7
LD
O,A
21 09A0
MSG?2:
ENT
21 090A
CLEARI: ENT
22 09A0 4C4F4!44
DEFM
'LOADING '
22 090A 72
LD
CHU,D
23 09A4 494E4720
23 09DB 23
INC
HL
24 09A8
0.
D
DEFB
00H
24 09DC 08
DEC
BC
2S 09A9
25 09DD 78
LD
A,B
26 09A9
26 090E BI
OR
c
27 09A9
27 09DF 20F9
JR
NZ,CLEAR!
<X>
28 09A9
DELAY FOR LONG PULSE
28 09El 01
POP
DE
.j>.
29 09A9
29 09E2 C9
RET
.
30 09A9
DLY4:
ENT
30 09E3
31 09A9 3E73
LD
A,73H
458.81 micro sec
31 09E3
32 09AB 30
DEC
A
32 09E3
33
09AC C2AB09
JP
NZ,-1
33
09E3
34 09AF C9
RET
34 09E3
FLASHING
2
35 0980
35 09E3
.
36 09El0
36 09E3
?FLS:
ENT
37 0980
DEFS
+3
37 09E3 FS
PUSH
AF
38 0983
38 09E4 ES
PUSH
HL
39 0983
;
39 09E5 3A02E0
LD
A, CKEYPC>
40 0983
;ORG 0983H;??KEV
40 09E8 07
RLCA
41 0983
41 09E9 07
RLCA
42 0983
KEY BOAD SEARCH
42 09EA 388F
JR
C,FLASI
43
0983
g,
DISPLAY CODE CONV.
43 09EC 3A92! 1
LD
A, CFLSDT>
44 0983
44 09EF
FLAS2:
ENT
45 0983
EXIT A = DISPLAY CODE
45 09EF CDB!0F
CALL
?PONT
DISPLAY POSITION
46 0983
CY= GRAPH MODE
46 09F2 77
LD
CHU,A
47 0983
WITH CURSOR DISPLAY
47 09F3
FLAS3:
ENT
48 0983
.
48 09F3 EI
POP
HL
49 0983
??KEY:
ENT
49 09F4 F!
POP
AF
50 0983 ES
PUSH
HL
50 09F5 C9
RET
51 0984 CD920B
CALL
?SAVE
51 09F6
S2 0987
KSLI:
ENT
52 09F6
53 0987 CD7E05
CALL
FLKEY
KEY
53 09F6
S4 098A 20FB
JR
NZ ,KSLI
KEY IN THEN JUMP
54 09F6
DEFS
+9
S5 09BC
KSL2:
ENT
55 09FF
56 09BC CD7E05
CAll,.
FLKEV
56 09FF
.
57 098F 28FB
JR
Z,KSL2
NOT KEV IN THEN JUMP
57 09FF
;ORG 09FF ; ?FLAS
S8 09C! 67
LD
H,A •
58 09FF
.
59 09C2 C09609
CALL
OLY12
DELAY CHATTER
59 09FF
?FLAS:
ENT
60 09C5 COCA08
CALL
?KEY
60 09FF !8E2
JR
?FLS
Werbung
