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

••
Z80 ASSEMBLER 2Z-004C <9Z-504M-Vl, 0C> PAGE 05
03;06.85
••
Z80 ASSEMBLER 2Z-004C <9Z-504M-V!, 0C> PAGE 06 03.06.85
01 E06A ; 01 E090
02 E06A E0734811 QMElN: LO <RETSPJ,SP
02 E090
;=;======================~=
03 E06E 3A301! LO A, (QOPAJ
03 E090
;
04 E071 30
OEC A
04 E090
:
Format
05 E072 2816 JR Z,QORC
;Ready Check
05 E090 :
06 E074 30 OEC A
06 E090
;==========================
07 E075 2819 JR
Z,QOFM ;Format
07 E090
.
08 E077 30 OEC A
08 E090
QOFM: ENT
09 E078 2860 JR
Z,QORO ;Read
09 E090 AF XOR A
10 E07A 30 OEC A
10 E091 C068E2
CALL QOSVFN
11 E07B CA4EE1 JP
Z,QOWR ;Write
11 E094 C065E3 CALL SYNCS2
12 E07E 30 OEC A
12 E097 01FFEF LO
BC,FMS
13 E07F 2802 JR
Z,QOHPC ;Head Point Clear
13 E09A 3EAA LO
A,AAH
14 E081 1850 JR MTOFX ;Motor Off
14 E09C
.
15 E083 ;
15 E09C 2F
QOFMI: CPL
16 E083
;===========================
16 E090 57 LO O,A
17 E083
; 17 E09E COOBE3
CALL TRANS
18 E083 : Head Point Clear
18 E0A1 0B OEC BC
19 E083 ;
19 E0A2 78
LO
A,B
20 E083
;===========================
20 E0A3 B1
OR
c
21 E083
:
21 E0A4 2803 JR
Z,QOFM2
22 E083
QOHPC: ENT
22 E0A6 7A
LO A,O
23 E083 F5 PUSH AF
23 E0A7 18F3
JR QOFM!
24 E084 AF )(QR A
24 E0A9
.
25 E085 323011 LO
<HOPT
J,
A
25 E0A9 COB2E3
QOFM2: CALL EOM
26 E088 F1 POP AF
26 E0AC COE8E2 CALL
MTOF
27 E089 C9
RET
27 E0AF C09BE2 CALL MTON
28 E08A :
28 E0B2 3A4311
LO A, <FNBJ
29 E08A
;=====:=====================
29 E0B5 30 OEC
A
30 E08A
I
30 E0B6 201E
JR NZ,FMERR
......
31 E08A :
Ready Check
31 E0B8 COFOE2 CALL
SYNCL2
0
1\)
32 E08A : 32 E0BB 01FFEF LO BC,FMS
33 E08A
:===========================
33 E0BE 1E55 LO
E,55H
34 E08A
.
34 E0C0 BB
QOFM3: CP E
35 E08A QORC: ENT
35 E0C1 2013 JR
NZ,FMERR
36 E08A 3A3111 LO
A, (QOPBJ
36 E0C3 0B
OEC BC
37 E080 C33CE2 JP
QREOY
37 E0C4 78 LO
A,B
38 E090 ;
38 E0C5 61
OR
c
39 E090 SKP H
39 E0C6 2808 JR
Z ,QOFM4
40 E0C8 7B
LO A,E
41 E0C9 2F CPL
42 E0CA SF
LO E,A
43 E0CB COF0E3
CALL ROATA
44 E0CE 18F0 JR
QOFM3
45 E000
.
46 E000 COC3E3
QOFM4: CALL ROCRC
47 E003 C3E8E2 MTOFX:
JP MTOF
48 E006
.
49 E006 3E29
FMERR: LO A,4!
;Hard Err
50 E008 37
SCF
51 E009 C9
RET
52 E00A ;
53 E00A
SKP H