Sharp MZ-700 Series Owner's Manual page 229

* * Z80 ASSEMBLER S B - 7 2 0 1 < 1 Z - 0 1 3 A > PASE 5B 0 4 . 0 7 . B 3
0 1 OF 12 3 E 2 8 LD A , 4 0
0 2 OF 14 3 0 0 1 JR N C , + 3
0 3 OF 16 0 7 RLCA ; ACC=SO
04 OF 17 9 5 SUB L
0 5 OF 18 4 7 LD B, A ; TRNS. BYTE
06 OF 19 C D B 1 0 F CALL 7P0NT
0 7 C1F1C 7E D E L 2 : LD
A , ( H L )
! CHA. FROM ADR
0 8 OF I D 2B DEC
HL
0 9 0 F 1 E 7 7 LD <HL) , A
; TO
10 OF I F 2 3 INC HL
11 0 F 2 0 CBDC SET 3 , H ! COLOR RAM
12 0 F 2 2 7E LD A , ( H L )
13 0 F 2 3 2B DEC HL
14 0 F 2 4 7 7 LD ( H L ) , A
15 0 F 2 5 CB9C RES
3 , H
; CHA.
16 0 F 2 7 2 3 INC HL
17 0 F 2 8 2 3 INC HL 5 NEXT
I S 0 F 2 9 1 0 F 1 DJNZ DEL2
19 0 F 2 B 2B DEC HL ; A D R . A D J U S T
2 0 0 F 2 C 3 6 0 0 LD ( H L ) , 0
21 0 F 2 E CBDC SET 3 , H
2 2 0 F 3 0 2 1 7 1 0 0 LD H L , 7 1 H ; BLUE + WHITE
2 3 0 F 3 3
3EC4 LD A , C 4 H ; JP CURSL
2 4 0 F 3 5 C 3 E 0 0 D JP 7 D P C T + 4
2 5 0 F 3 8
2 6 0 F 3 8 I N S T : ENT
2 7 0 F 3 8 C D F 3 0 2 CALL . MANB
2 8 0 F 3 B OF
RRCA
2 9 0F3C 2 E 2 7 LD L
S
+ 3 9
3 0 0 F 3 E 7D LD A , L
3 1 0 F 3 F 3 0 0 1 JR NC, +3
3 2 OF 4 1 24 INC H
3 3 0 F 4 2 CDB40F CALL 7PNT1
3 4 OF 4 5 E 5 PUSH HL
3 5 0 F 4 6 2 A 7 1 1 1 LD H L , ( D S P X Y )
3 6 0 F 4 9 3 0 0 2
JR NC, +4
3 7 0 F 4 B 3 E 4 F
LD A, + 7 9
3 8 0 F 4 D 9 5 SUB
L
3 9 0 F 4 E 0 6 0 0 LD B , 0
4 0 0 F 5 0 4 F LD C, A
4 1 0 F 5 1 D I
POP DE
4 2 0 F 5 2 2 8 9 1 JR Z , 7 R S T R
4 3 0 F 5 4 1A LD A , ( D E )
44 0 F 5 5 B7
OR
A
4 5 0 F 5 6 20BD JR N Z , 7 R S T R
46
0 F 5 8 6 2 LD H, D ! HLFDE
4 7 0 F 5 9 6B
LD L , E
4 8 0 F 5 A 2B
DEC HL
49 0 F 5 B C3CA0E
JP I N S T 2 ; JUMP NEXT ( B Y P A S S )
5 0 0 F 5 E
.
5 1 0 F 5 E
5 2
0 F 5 E PROBRAM SAVE
5 3 0 F 5 E
5 4
0 F 5 E CMD. ' S '
5 5 0 F 5 E
5 6 0 F 5 E S A V E : ENT
5 7
0 F 5 E CD3D01 CALL HEX I Y 5 START ADR.
5 8 0 F 6 1 2 2 0 4 1 1
LD ( D T A D R ) , H L ! DATA ADR. BUFFER
5 9 0 F 6 4 4 4 LD B , H
6 0
0 F 6 5 4D LD C , L