Sharp MZ-700 Series Owner's Manual page 184

** Z80 A S S E M B L E R SB-7201 < 1 Z - 0 1 3 A > P A G E 13
0 4 . 0 7 . S 3
0 1 0 3 8 D F 5
PUSH AF
0 2 0 3 S E C5
PUSH BC
0 3 0 3 B F D5
PUSH DE
0 4 0 3 9 0
E 5 PUSH
HL
0 5 0 3 9 1 2 1 9 B 1 1
LD HL,AMPM
0 6 0 3 9 4 7E LD A, ( H L )
0 7 0 3 9 5 E E 0 1
XOR 1
OS 0 3 9 7
7 7 LD ( H L ) , A
0 9 0 3 9 8 2 1 0 7 E 0 LD
H L , C O N T F
10 0 3 9 B 3 6 8 0
LD ( H L ) , 8 0 H
1 1 0 3 9 D 2B DEC HL
12 0 3 9 E E 5
PUSH HL
13 0 3 9 F 5E LD E , ( H L )
14 0 3 A 0 5 6 LD D , ( H L )
15 0 3 A1 21C0AB
LD HL,ABCOH
16 0 3 A 4 19 ADD H L , DE
17 0 3 A 5 2B DEC HL
I S 0 3 A 6 2B
DEC HL
19 0 3 A 7 EB
EX D E , HL
2 0 0 3 A 8 EL POP
HL
2 1 0 3 A 9 7 3
LD ( H L ) , E
2 2 03AA 7 2
LD < H L ) , D
2 3 03AB EL POP
HL
2 4 03AC D I
POP DE
2 5 03AD C I
POP BC
2 6 0 3 A E F 1
POP AF
2 7 0 3 A F FB E I
2 8 0 3 B 0 C9 RET
2 9 0 3 B 1
3 0 0 3 B 1
SPACE P R I N T AND D I S P ACC
3 1 0 3 B 1
3 2 0 3 B 1
I N P U T : H L = D I S P . ADR.
3 3 0 3 B 1
3 4
0 3 B 1 SPHEX: ENT
3 5 0 3 B 1 C D 2 0 0 9
CALL 7PRTS
3 6 0 3 B 4 7 E
LD A , ( H L )
3 7 0 3 B 5 CDC303
CALL PRTHX
3 8 0 3 B 8 7 E
LD
A , ( H L )
3 9 0 3 B 9 C9
RET
4 0 03BA
4 1
03BA
4 2 03BA
4 3 03BA
ORB 03BAH
44 03BA
4 5 03BA
( A S C I I P R I N T ) FOR HL
4 6 03BA
4 7 03BA
PRTHL: ENT
4 8 03BA 7C
LD A , H
4 9 03BB
CDC303 CALL
PRTHX
5 0 03BE 7D
LD A , L
5 1 0 3 B F 1 8 0 2
JR PRTHX
5 2 0 3 C 1
5 3 0 3 C 1
DEFS + 2
5 4 0 3 C 3
ORG 0 3 C 3 H ; P R T H X
5 5
0 3 C 3
5 6
0 3 C 3 ( A S C I I P R I N T ) FOR ACC
5 7
0 3 C 3
5 8
0 3 C 3
PRTHX: ENT
5 9
0 3 C 3 F 5
PUSH AF
6 0 0 3 C 4 OF
RRCA
S P . P R I N T
DSP OF ACC ( A S C I I )
- J