Sharp MZ-700 - Page 179

-.....J
w
U ZSO ASSEt1BLER SB-720 1 < 1 Z -0 13A> PAGE 17
01 0477 C5
02 0478 E5
03 0479 16D7
04 047B 1E53
05 047D ED4B0211
06 0481 2A0411
07 0484 78
08 0485 Bl
09 0486 284P.
10 0488 18BA
11
048A
12 048A
13 048A
14 048A
15 048A
16 048A
17 048A
18 048A
19 048A
20 048A
21 048A D5
22 048B C5
23 048C E5
24 0480 1602
25 048F 3 EF8
26 0491 3200EO
27 0494 7E
28 0495 CD6707
29 0498 3A01EO
30 049B E681
31 049D C2A504
32 04AO 3E(t2
33 04A2 37
34 04A3 182D
35 04A5 23
36 (l4A6 OB
37 04A7 78
38 04A8 Bl
39 04A9 C29404
40 04AC 2A9711
41 04AF 7C
42 04BO CD6707
43 04B3 7D
44 04B4 CD6707
45 04B7 CDlAOA
46 04BA 15
47 04BB C2C204
48 04BE B7
49 04BF C3D204
50 04C2 0600
5 1 04C4 CDOlOA
52 04C7 05
53 04C8 C2C404
54 04CB El
55 04CC Cl
56 04CD CS
57 04C E E5
58 04CF C39404
59 0402
60 0402 El
PUSH
PUSH
LD
LD
LD
LD
LD
OR
.JR
.JR
TAPE WRITE
BC
HL
D,D7H
E,53H
BC, (SIZE>
HL,(DTADR)
A,B
c
Z,RETl
l~RI 1
BC=BYTE
SIZE
HL=DATA LOI~ ADR.
EXIT CF=O
=1
m:
BREAf (
WTAPE: PUSH
P· USH
PUSH
LD
LD
LD
~JTAPl: LD
CALL
LD
AND
JP
DE
BC
HL
0,2
A,FSH
<KEYPAl,A
A, < HL>
l~B Y TE
A,<KEYPBl
81H
NZ,WTAP2
LD A, 02H
SCF
JR
WTAP2: INC
DEC
LD
OR
JP
LD
LD
CALL
LD
CALL
CALL
DEC
JP
OR
,Jp
LD
CALL
DEC
JP
POP
POP
PUSH
PUSH
WTAP3
HL
BC
A,B
c
NZ,WTAPl
HL, ( SUt1DT >
A,H
WBYTE
A,L
WBYTE
LONG
D
NZ,+7
A
WTAP3
B,O
SHORT
B
NZ, - 4
HL
BC
BC
HL
,Jf• l~TAPl
WTAP3:
RETl: POP HL
04.07 . 83
·' W'
.·· s ,
WRITE DATA B YTE SIZE
l~RITE DATA ADDRESS
EOOOH
1 BYTE WRITE
EOO!H
SHIFT 8-. BREAK
BREAK IN CODE
SUt1 DATA SET
** ZSO ASSEMBLER SB-7201 < 1Z-013A > PAGE 18
01 04D3 p
02 04D4 Dl
03 04 D5 C9
04 04D6
05 04D6
06 04D6
07 04D6
08 04D6
09 04D8
10 04D8
11 04D8
12 04D8
13 04D8
14 04D8
15 04D8
16 04D8
17 04D8
18 04D8
19 04D8 F3
20 0409 05
21 04DA C5
22 04DB E5
23 04DC 16D2
24 04DE lECC
25 Ci4EO 018000
26 04E3 21F010
27 04E6
28 04E6 CD9F06
29 04E9 DA7205
30 04EC CD5B06
31 04EF DA7205
32 04 F2 CDOE05
33 0 4F5 C35405
34 04 F8
35 04F8
36 04F8
37 04F8
38 04F8
39 04F8
40 04F8
41 04F8
42 04F8
43 04F8
44 04F8
45 0 4F8 F3
46 04F9 D5
47 04FA C5
48 04FB E5
49 04FC 16D2
50 04FE 1E53
51 0500 ED4B0211
52 0504 2A0411
53 0507 78
54 0508 Bl
55 0509 CA5405
56 050C 1808
57 050E
58 050E
59 050E
60 050E
POP BC
POP DE
RET
ORG 04D8H
READ INFORMATION <FROM $CMTl
EX IT ACC=O
=1
=2
OK CF=O
ER CF=l
BREA K CF=l
?RD I:
ENT
DI
PUSH
PUSH
PUSH
LD
LD
LD
LD
ENT
CALL
JP
CALL
JP
CALL
JP
RDl:
;ORG 04F8H
DE
BC
HL
D,D2H
E,CCH
BC,80H
HL,IBUFE
MOTOR
C,RTP6
TMARK
C,RTP6
RTAPE
RTP4
READ DATA (FROM $CMTl
EXIT SAME UP
?ROD: ENT
DI
PUSH
PUSH
PUSH
LD
LD
LD
LD
LD
OR
JP
,JR
READ TAPE
DE
BC
HL
D,D2H
E,53H
BC,( SIZE>
HL, (D TADR>
A,B
c
z,RTP4
RD!
04 . 07 .83
' R '
··L··
'R ,
-~s "