Sharp MZ-700 Series Owner's Manual page 188

** ZaO A S S E M B L E R SB-7201 <1Z-013A> R A S E 17
0 4 . 0 7 . S 3
01 0 4 7 7 C5
0 2 0 4 7 8
E5
0 3 0 4 7 9 16D7
0 4 0 4 7 B 1E53
0 5 0 4 7 D E D 4 B 0 2 1 1
0 6
0 4 8 1 2 A 0 4 1 1
0 7 0 4 8 4 7 8
0 8 0 4 8 5 B I
0 9
0 4 8 6
2B4A
10 0 4 8 8 1SBA
11 0 4 8 A
12 0 4 8 A
13 0 4 8 A
14 0 4 8 A
15 04BA
16 0 4 8 A
17 0 4 8 A
18 0 4 8 A
19 0 4 8 A
2 0 0 4 8 A
2 1 0 4 8 A
D5
2 2 0 4 8 B C5
2 3 0 4 8 C E 5
24 0 4 8 D 1 6 0 2
2 5 0 4 B F 3 E F 8
2 6 0 4 9 1 3 2 0 0 E 0
2 7 0 4 9 4
7E
2 8 0 4 9 5 C D 6 7 0 7
2 9
0 4 9 8 3AO1EO
3 0 0 4 9 B E 6 8 1
3 1 0 4 9 D C 2 A 5 0 4
3 2 0 4 A 0 3 E 0 2
3 3 0 4 A 2 3 7
3 4
0 4 A 3
182D
3 5 0 4 A 5 2 3
3 6 0 4 A 6 OB
37 0 4 A 7 7 8
3 8 0 4 A 8 B I
39 0 4 A 9 C 2 9 4 0 4
4 0 04AC 2 A 9 7 1 1
4 1 0 4 A F 7C
4 2 0 4 B 0 C D 6 7 0 7
4 3 0 4 B 3 7D
44 0 4 B 4 C D 6 7 0 7
4 5 0 4 B 7 CD1A0A
4 6 04BA 15
4 7 04BB
C2C204
4 8 04BE B7
49 0 4 B F
C3D204
5 0 0 4 C 2 0 6 0 0
51 0 4 C 4 CD010A
5 2 0 4 C 7 0 5
5 3 04CB C 2 C 4 0 4
5 4 04CB EL
5 5 04CC C I
5 6 04CD C5
5 7 04CE E 5
5 8 0 4 C F C 3 9 4 0 4
5 9
0 4 D 2
6 0 0 4 D 2 EL
PUSH BC
PUSH HL
LD D , D 7 H ; 'W •'
LD
E , 5 3 H 5 "S
LD B C , ( S I Z E )
; WRITE
LD H L , ( D T A D R )
; WRITE
LD A , B
OR C
JR
Z , R E T L
JR W R I 1
TAPE WRITE
BC=BYTE S I Z E
HL=DATA LOW ADR.
C F = 0 : OK
=1 : BREAK
PUSH DE
PUSH BC
PUSH HL
LD D , 2
LD A , F B H
LD < K E Y P A ) , A
LD A , ( H L )
CALL WBYTE
LD
A , ( K E Y P B )
AND 81H
JP N Z . W T A P 2
LD
A , 02H
SCF
JR WTAP3
INC HL
DEC BC
LD A, B
OR C
JP NZ,WTAP1
LD H L , < SUMDT)
LD
A , H
CALL WBYTE
LD A , L
CALL WBYTE
CALL LONB
DEC D
JP N Z , + 7
OR A
JP WTAF'3
LD B , 0
CALL SHORT
DEC B
JP NZ, —4
POP HL
POP BC
PUSH BC
PUSH HL
JP WTAP1
EOOOH
1 BYTE WRITE
E 0 0 1 H
S H I F T S < BREAK
BREAK I N CODE
S SUM DATA SET
WTAP3:
R E T L : POP HL