Werbung
••
Z80 ASSEMBLER 2Z-004C
<9Z-504M-VI .0C>
PAGE 63
03.06.85
••
Z80 ASSEMBLER 2Z-004C
<9Z-504M-VI .0C>
PAGE 64
03.06.85
01 F070 0604
LD
B,04H
01 F0C6 CD10E0
CALL
QOIOS
02 F07F C00C00
DRDIS2: CALL
PRNTS
02 F0C9 OA60FI
QER05:
JP
C,QER06
03 F082 10FB
OJNZ
DROIS2
03 F0CC
04 F084 Cl
POP
BC
04 F0CC
Format end
05 F085 DF
RST
3
05 F0CC
06 F086 C00C00
CALL
PRNTS
06 F0CC 18E4
JR
QOOKM0
07 F089 C00C00
CALL
PRNTS
07 F0CE
08 F08C C00C00
CALL
PRNTS
08 F0CE
Wait key
in •
Y'
09 F08F
09 F0CE
.
10 F08F
Disp file name
10 F0CE CD0900
WAITY:
CALL
NL
11 F08F
II F001 l 153F3
LD
DE,QDQCM0
'OK?CY/NJ'
12 F08F 3E22
LD
A,'
„,
12 F004 OF
RST
3
13 F091 CDl200
CALL
PRNT
13 F0D5 CD91FI
CALL
NKYWT
Wait non key
14 F094 23
INC
HL
14 F0D8 CDBl0F
WATKY:
CALL
0FBIH
Call ?PONT
15 F095 ES
PUSH
HL
16 F096 DI
POP
DE
15 F0DB 3EEF
LD
A,EFH
;'
17 F097 DF
RST
3
16 F0DD 77
WATK0:
LD
<HLJ,A
18 F098 3E22
LD
A,'
"'
17 F0DE
CDE8F0
CALL
WATIM
19 F09A COl200
CALL
PRNT
18 F0EI 3805
JR
C,WATKI
;
If
•y•
then CY=I
20 F090 C00900
CALL
NL
19 F0E3 7E
LD
A, CHLJ
21 F0A0
20 F0E4 EEEF
XOR
EFH
22 F0A0
Counter
decrement
21 F0E6 18F5
JR
WATK0
23 F0A0
22 F0E8 AF
WATKI:
XOR
A
24 F0A0 111100
LD
OE,001 IH
23 F0E9 77
LD
<HLJ ,A
25 F0A3 19
AOD
HL,DE
24 F0EA
C9
RET
26 F0A4 COCA08
CALL
?KEY
25 F0EB
27 F0A7 87
DR
A
26 F0E8
Wait t imer
28 F0A8 28FA
JR
z,-4
27 F0EB
..
29 F0AA CD320A
CALL
?ßRK
28 F0EB 010600
WATIM:
LD
BC,0006H
......
30 F0AD CA5EEA
JP
Z,STIX
29 F0EE 08
WATI0:
DEC
BC
c..>
......
31 F080 108D
OJNZ
DSPATR
B=Fi le counter
30 F0EF 78
LD
A,8
32 F082
31 F0F0 BI
DR
c
33 F082
Directory end
32 F0Fl C8
RET
z
34 F082
.
33 F0F2
35 F082 C395EF
QODKM0: JP
QDDKM
34 F0F2
Key search
36 F085
35 F0F2
37 F085
;===============================
36 F0F;<' 3E01
LD
A,01H
38 F085
37 F0F4 CDISFI
CALL
SRCK0
39 F085
Quick disk formal
command
38 F0F7 FE7F
CP
7FH
• y• ?
40 F0B5
39 F0F9 37
SCF
41 F085
:===============================
40 F0FA
ca
RET
z
42 F085
.
41 F0F8 3E03
LD
A,03H
43 F0B5
QF:
ENT
42 F0FO CDISFI
CALL
SRCK0
44 F085
43 F100 FEF8
CP
F8H
'N' ?
45 F085
44 F102 2809
JR
Z ,WATI 1
46 F085
Oisp formatting
45 Fl04 3E08
LD
A,08H
47 F085
46 F106 CDl5FI
CALL
SRCK0
48 F085 1130F3
LD
DE
,QOFMG
'QO: FORMATT ING'
47 Fl09 FE7E
CP
7EH
'Break+Sh
i
ft'
?
49 F0B8 DF
RST
3
48 Fl08 20EI
JR
NZ. WATI0
50 F089 COCEF0
CALL
WAITY
'QK?CY/N)'
49 F100
51 F08C
50 Fl0D
Jump STIX
52 F08C
Ready
II.
wrpt
check
51 Fl00
.
53 F0BC
52 F100 AF
WATil:
XDR
A
54 F08C CDEIEF
CALL
QDRWCK
53 Fl0E
77
LD
<HLJ
,A
55 F0BF 3808
JR
C,QER05
54 F10F 31F010
LD
SP,
10F0H
56 F0CI
55 Fl 12 C35EEA
JP
ST!X
57 F0CI
Format
56 Fl 15
58 F0CI
57 Fl 15
Key
scan
59 F0CI 3E02
LD
A,02H
Init
cmd set
58 Fl 15
60 F0C3 323011
LD
CQOPA>
,A
59 Fl 15
RCK0:
ENT
60 FI
15
ES
PUSH
HL
Werbung
