Sharp MZ-800 Technical Reference And User's Guide

**
Z80 ASSEMBLER 2Z-004C
<9Z-504M-Vl .0C>
PAGE 33
03.06.85
**
Z80 ASSEMBLER 2Z-004C
<9Z-504M-V!.0C>
PAGE
03.06.85
01 E745
IR12WR: ENT
01 E793 05
PUSH DE
OESize
02 E745
:
02 E794 1600
LD 0,00H
Sum Counter
03 E745
:
Oisp 'Writing ..... •
03
E796 CS
WCKI:
PUSH
BC
04 E745
;
04 E797 0608,.
LD B,08H
05 E745 !IE2E7
LD
OE,MSGW0!
; 'Writing now'
05 E799 7E
LD
A, (Hll
06 E748 C01809
CALL 09!8H
06 E79A 07 WCK2:
RLCA
07 E74B OF
RST 3
07 E79B 3001
JR NC,WCK3
08 E74C C01809
CALL
0918H
08 E790
14
INC
0
09
E74F !!F0E7
LD
DE,MSGW02
:
'Master tape set•
09 E79E 10FA
WCK3:
DJNZ WCK2
10 E752 OF
RST 3
!0 E7A0 23
INC HL
!I E753 C0!809
CALL 09!8H
11 E7Al Cl
POP
BC
12 E756
:
12 E7A2 !0F2
DJNZ WCKI
13 E756
:
Read information block
13 E7A4 7A
LD
A,D
14 E756
:
14 E7A5 01
POP
DE
15 E756 CD2700
CALL RDINF
!5 E7A6 E079
OUT
<Cl ,A
; C=C+2
16 E759 380E
JR
C,ROB0
16 E7A8
17 E75B
: 17 E7A8
Write data block
18 E75B
:
Oisp 'Loading ..... •
18 E7A8
19 E75B
: !9 E7A8 01
POP DE
; OESize
20
E75B !!9!EE
LD
OE,MSGLD ;
• Loading'
20 E7A9 El
POP HL
: HLData adrs
21 E75E CD1809
CALL
09!8H
21 E7AA 7B
LD
A,E
22 E761
OF
RST 3
22
E7AB B7
OR
A
23 E762
!!Fll0
LD
DE,NAME
23 E7AC 2803
JR
Z,+S
24 E765 OF
RST 3
24
E7AE 43
LD
B,E
25 E766
;
25 E7AF EDB3
OTIR :
C=C+2
26 E766
:
Read data block
26 E7B! 0600
LD
8,00
27 E766
:
27 E7B3 15
DEC 0
28 E766 C02A00
CALL
RDDAT
28 E7B4 F2AFE7
JP
P,-5
29 E769 OA24EB
RDB0:
JP
C,?ERX
29 E7B7 C35EEA
JP STIX
.......
30 E76C
;
30 E7BA
.......
31 E76C
;
Counter reset
31 E7BA
IR12 set check
(J)
32 E76C
:
32 E7BA
33 E76C ED78
IN
A, <Cl
; C=C+0
33 E]BA
!2CKI: ENT
34 E76E
34
E7BA AF
XOR
A
;
carry flag reset
35 E76E
Sum check for data
35 E7BB E078
IN A, <Cl
; Counter reset,C=C+0
36 E76E
36
E7BD 0C
INC
c
37 E76E ED430A!l LD
<COMNT+2l ,BC
: C=Port adrs,C=C+0
37 E7BE ED78
IN
A, <Cl
; C=C+l
38 E772 EDSB04!1
LD
DE, <DTAORJ
38 E7C0 08
EX
AF,AF'
39 E776 ED4B02!1
LD
BC, <SIZE>
39 E7Cl 00
DEC c
40 E77A 05
PUSH DE
40 E7C2 ED78
IN
A, (Cl ; Counter reset
41 E77B CS
PUSH
BC
41 E7C4 06A5
LD
B,ASH
42 E77C CD0EE7
CALL
SUM
; HLCheck sum
42 E7C6 0C
INC c
43 E77F 220811
LD
<COMNTl ,HL
43 E7C7 0C
INC
c
44 E782
44
E7C8 ED41
OUT
<Cl ,B
;
C=C+2
45 E782
Write information <8Bytel
45
E7CA 00
DEC c
46 E782
46
E7CB 00
DEC
c
47 E782 210211
LD
HL,SIZE
47 E7CC ED78
IN A, <Cl
; Counter reset
48 E785 ED4B0A!l
LD
BC, <COMNT+2l
: C=Port adrs,C=C+0
48 E7CE 0C
INC
c
49 E789 0608
LD
B,08H
; Byte Counter
49 E7CF ED78
IN
A, (C) : C=C+l
50 E78B 0C
INC
c
50 E70! BB
CP B
51 E78C 0C
INC
c
51 E702 200B
JR
NZ, !2NSET
52
E780 ES
PUSH HL
52 E704 00
DEC
c
53 E78E CS
PUSH
BC
53 E705 ED78
IN
A, <Cl
; Counter reset
54 E78F EDB3
OTIR
; C=C+2
54 E707 08
EX
AF,AF'
55 E791
Cl
POP
BC
55 E708 0C
INC c
56 E792 El
POP
HL 56 E709 0C
INC
c
57 E793
57
E70A ED79
OUT
<Cl ,A
; (:::(t-2
58 E793
Sum check for information block
58 E?OC 00
OEC c
OFC
c
l
t. •H
59 E793
AccCheck sum data
59 E700 00
;
60 E793
60 E70E C9
RF r

Sharp MZ-800 Specifications

General

Brand	Sharp
Model	MZ-800
Category	Desktop
Language	English