Sharp MZ-700 Series Owner's Manual page 207

** Z80 A S S E M B L E R SB-7201 < 1 Z - 0 1 3 A > P A G E 36
0 4 . 0 7 . S 3
0 1 09C8 P 5
0 2 09C9 BC
0 3 09CA EL
0 4 09CB 2 0 E F
0 5 09CD E 5
0 6 09CE F 1
0 7 0 9 C F C D F 0 0 5
OS 09D2 EL
0 9 09D3 C9
10 09D4
11 09D4
12 09D4
13 09D4
14 09D4
15 09D4 AF
16 09D5
17 09T>5 0 1 0 0 0 8
18 09D8
19 09DB D5
2 0 09D9 5 7
2 1 09DA
2 2 09DA 7 2
2 3 09DB 2 3
2 4 09DC OB
2 5 09DD 7 8
2 6 09DE B1
2 7 0 9 D F 2 0 F 9
2 8 0 9 E 1 D I
2 9 0 9 E 2 C9
3 0 0 9 E 3
3 1 0 9 E 3
3 2 0 9 E 3
3 3 0 9 E 3
3 4 0 9 E 3
3 5 0 9 E 3
3 6 0 9 E 3
3 7 0 9 E 3 F 5
3 8 0 9 E 4 E5
3 9 0 9 E 5 3 A 0 2 E 0
4 0 0 9 E 8 07
4 1 0 9 E 9 0 7
4 2 09EA 3 8 8 F
4 3 09EC 3 A 9 2 1 1
4 4 0 9 E F
4 5 0 9 E F CDB10F
4 6 0 9 F 2 77
4 7 0 9 F 3
4 8 0 9 F 3 EL
4 9 0 9 F 4 F1
5 0 0 9 F 5 C9
5 1 0 9 F 6
5 2 0 9 F 6
5 3 0 9 F 6
5 4 0 9 F 6
5 5 0 9 F F
5 6 0 9 F F
5 7 0 9 F F
5 8 0 9 F F
5 9 0 9 F F
6 0 0 9 F F 18E2
PUSH AF
CP H ; CHATER CHECK
POP HL
JR N Z , K S L 2
PUSH HL
POP AF I I N KEY DATA
CALL ?LOAD ; FLSHLNB DATA LOAD
POP HL
RET
#CLROB:
ENT
XOR A
# C L R 8 : ENT
LD B C , 0 8 0 0 H
CLEAR: ENT
PUSH DE
LD D, A
C L E A R 1 :
ENT
LD ( H L ) , D
INC HL
DEC BC
LD A , B
OR C
JR N Z , C L E A R 1
POP
DE
RET
; CY F L S .
BC = CLR BYTE S I Z E
A = CLR DATA
ENT
PUSH AF
PUSH HL
LD A , ( K E Y P C >
RLCA
RLCA
JR C , F L A S 1
LD A , ( F L S D T )
ENT
CALL ?F'ONT 5 D I S P L A Y P O S I T I O N
LD ( H L ) , A
ENT
POP HL
POP AF
RET
DEFS +9
SORB 0 9 F F 5 7 F L A S
7 F L A S : ENT
JR