Sharp mz-800 Technical Reference And User's Manual page 139

01
F
I A;·
lll
F1 ~C.
"LoQs f-(<>S>-
1-~se-c
02 FJA2 COS4EB CALL LDOO
; F<eaJ
1
n
f
~
data
02
F lFC ;
03 F!AS DA24EB
JP
C,?ERX
03 F!FC CDECEE
CAL.L
!OF RS
04 FlAB 09 EXX
04 F!FF
;
05 FIA9 220411 LD
<DTADRl,HL
05 FIFF
;
Ready
&
wprt check
06 FIAC
06 FIFF ;
07 FIAC
Be 11
07 FIFF C37BFI JP
QCRWCK
08 FIAC
08 F202
;
09 FIAC CD3E00 CALL BELL
09 F202
;~~~~=================
10 FIAF ;
10 F202 ;
11 FIAF ;
Input file name
11 F202
;
Error treatment
12 FlAF
.
12 F202 ;
13 FIAF CD8DEC QXFN0: CALL FNINP
;
Input file name 13 F202
:=====================
14 F1B2 3AA311 LD
A, <BUFF>
14 F202
.
15 FIBS FE0D
CP 0DH
15 F202
QERTRT: ENT
16 F1B7 28F6 JR Z,QXFN0
16 F202 1190F2
LD DE,MGNFE
.
• Not Found err'
17 F!B9 21A311 LD
HL,BUFF
17 F205 FE28 CP NTFECD ; Not found err
18 F!BC 11F110 LD
OE,NAME
18 F207 283B JR
Z,QERMF
19 F!BF 011100
LD BC,0011H
19 F209 1119F3
QERT0:
LD
DE,MGBDE
.
• Bad disk error'
20 F!C2 EDB0 LDIR
20 F20C FE39
CP BDSKCD ; Bad disk err
21 FIC4 ;
21 F20E 2834
JR Z,QERMF
22 F!C4 ;
Disp 'Set Disk
. 0.
.
22 F210 1106F2
QER!: LD DE,MGWPT
'Write protect'
.
23 F1C4
;
23 F213 FE2E
CP WPRTCD
; Write protect
24 FIC4 CD0900 CALL NL
24 F215 2820 JR
Z,QERMF
25 F1C7 113EF3 LD
DE,QDQCM ; • Set dist inat ion disk' 25 F217 11E7F2 QER2: LD
DE,MGNRE ; • Not ready'
26 F!CA OF
RST
3
26 F21A FE32
CP QNTRCD ; Not ready
27 F!CB ;
27 F21C 2826
JR Z,QERMF
...... 28 FICB
;
Atrb change (700800)
28 F21E 11F4F2
QER3: LD DE,MGNSE
.
'No file space error'
w
29 FlCB ;
29 F221 FE35 CP NFSECD
; No file space err
w
30 F!CB 3AF010 LD
A, <ATRB> 30 F223 281F JR
Z,QERMF
31 FlCE FE04
CP 04H ; 700 BSD file? 31 F225 1109F3 QER4: LD
DE,MGUFE
.
'Unformat'
32 FID0 2806
JR Z,ATRC0 32 F228 FE36
CP UNFMCD ; Unformat err
33 FID2 FE05 CP 05H ;
700 BTX file? 33 F22A 2818 JR
Z,QERMF
34 F 1 04 _2006 JR
NZ,QXPRST 34 F22C 11C4F2 QERS: LD
DE,MGALE
.
'Already exist'
35 F106 30 DEC A
35 F22F FE2A CP
ALE XCD ; Alrea,py exist
36 F107 30
DEC
A
36 F231 2811
JR Z,QERMF
37 F1D8 30
ATRC0: DEC A
37 F233 11A2F2 QER6: LD DE,MGTME
.
'Too many files'
38 F109 32F010 LD <ATRB> ,A
; Atrb set 38 F236 FE33 CP
TMFECD ; Too many files err
39 FlOC
;
39 F238 280A
JR Z,QERMF
40 FlOC
;
Parameter trans
40 F23A 1129F3
QER7:
LD
DE,MGBRK
.
'Break~'
41 FlOC
.
41 F230 FE00
CP BRKCD
; Break
42 FlOC 212Ell
QXPRST: LD HL, 112EH
42 F23F 2803 JR
Z,QERMF
43 FlDF 113011 LD DE, 1130H
43 F241 11B8F2
QER8: LD DE,MGHDE
: 'Haard error'
44 FIE2 012000 LD
BC,002DH 44 F244 ;
45 FIES EDB8
LDDR
45 F244
;
Motor off
46 F1E7 210000
LD HL,0000H ; Lock
&
Secret
46 F244
.
47 FlEA 220211 LD ( 1102Hl ,HL
47 F244 3E06 QERMF: LD A,06H : Motor off cmd.
48 FlED ;
48 F246 323011
LD
(QDPAl ,A
49 FlED ;
Error return set
49 F249 CD10E0 CALL
QDIOS
50 FlED
.
50 F24C CDSFF2
CALL HOP CL
51 FlED 3E02 QXSPST: LD
A,02H 51 F24F
;
52 FIEF 323All
LD (QOCPAl ,A 52 F24F 3A3All
LD
A, (QOCPAl
53 F1F2 21EDF1
LD HL,QXSPST 53 F252 IF
RRA
54 FlFS 31EE10
LD SP,10EEH 54 F253 08
RET
c
; Boot err
55 F1F8 E3
EX <SP> ,HL
55 F254 FS PUSH
AF
56 F!F9 ;
56 F255 CD0900
CALL NL
57 F!F9 ;
Wait 'Y'
57 F258 OF
RST 3
58 FIF9 ;
58 F259 Fl
POP AF
59 F1F9 CDCEF0
CALL WAIT V
;
'OK?(Y/Nl'
59 F25A IF
RRA
60 FlFC :
60 F25B 08
RET
c
; CMD QC,QX err