Sharp MZ-700 Series Owner's Manual page 201

** Z80 A S S E M B L E R SB-7201 < 1 Z — 0 1 3 A > RA S E 30
0 4 . 0 7 . 8 3
0 1 0 8 3 3 CD500A
0 2
0 8 3 6 C9
0 3 0 B 3 7
0 4 0 8 3 7
0 5 0 B 3 7
0 6 0 8 5 B
0 7 0 8 5 B
0 8 0 8 5 B
0 9 0B5B
10 0 8 5 B
1 1 0B5B C D F 3 0 2
12 0 B 5 E 0 6 2 8
13 0 S 6 0 3 0 C 9
14 0 B 6 2 2 5
15 0 B 6 3 0 6 5 0
16 0 8 6 5 2EOO
17 0 8 6 7 CDB40F
18 0B6A D I
19 0 8 6 B D5
2 0 0B6C 7E
2 1 0 8 6 D CDCEOB
2 2 0 B 7 0 12
2 3 0 8 7 1 2 3
2 4 0 B 7 2 13
2 5 0 8 7 3 1 0 F 7
2 6 0 8 7 5 EB
2 7 0 8 7 6 3 6 0 D
2 8 0 8 7 8 2B
2 9 0 8 7 9
7E
3 0 0B7A F E 2 0
3 1 0 8 7 C
3 2 0B7C
3 3 0 8 7 C
3 4 0B7C
3 5 0B7C 2 8 F 8
3 6 0 B 7 E
3 7 0 8 7 E
3 8 0 8 7 E
3 9 0 B 7 E C D 0 E 0 9
4 0
0BB1 D I
4 1 0 8 8 2 EL
4 2 0 8 8 3 C I
4 3 0 8 8 4 F 1
4 4 0 8 8 5 C9
4 5 0 8 8 6
4 6 0 8 8 6
4 7 0 8 B 6
4 8 0 8 8 6
4 9 0 8 9 3
5 0 0 8 9 3
5 1 0 8 9 3
5 2 0 8 9 3
5 3 0 8 9 3
5 4 0 8 9 3
5 5 0 8 9 3
5 6 0 8 9 3
5 7 0 8 9 3 F 5
5 8 0 8 9 4 C5
5 9
0 8 9 5 D5
6 0 0 8 9 6 1A
CALL 7SWEP
RET
DEFS 3 6
ORB 0 B 5 B H ; BE T L 3
CALL . MANS ; CR
LD B , 4 0 5 1 L I N E
JR N C , G E T L A
DEC H ! BEFORE L I N E
LD B , 8 0 5 2 L I N E
LD L , 0
CALL
?PNT1
POP DE ! STORE TOP ADR
PUSH DE
LD A , ( H L )
CALL 7DACN
LD
( D E ) , A
INC HL
INC
DE
DJNZ QETLZ
EX D E , HL
LD ( H L ) * O D H
DEC HL
LD A , ( H L )
CP 20H
S SPACE THEN CR
CR AND NEW L I N E
JR Z , B E T L U
NEW L I N E RETURN
POP DE
POP HL
POP BC
POP AF
RET
DEFS + 1 3
; O R S 0 8 9 3 H
; MESSABE P R I N T
; DE P R I N T DATA LOW ADR.
5 END=CR
?MSS: ENT
PUSH AF
PUSH BC
PUSH DE
MSEL: LD A , ( D E )