Sharp MZ-700 Series Owner's Manual page 204

** Z80 A S S E M B L E R SB-7201 < 1 Z - 0 1 3 A > P A GE 33
0 4 . 0 7 . S 3
0 1 0 9 0 E
s
0 2
0 9 0 E
j N E W L I N E
0 3 0 9 0 E
s
0 4 0 9 0 E 7 L T N L ! ENT
0 5 0 9 0 E A F
XOR A
0 6 0 9 0 F 3 2 9 4 1 1 L D ( D P R N T ) , A
0 7
0 9 1 2 3ECD
L D A , CDH
OS 0 9 1 4
1 8 4 3 J R P R N T 5
0 9 0 9 1 6 DEFS + 2
1 0 0 9 1 8 SORS 0 9 1 8 H
1 1 0 9 1 8
s
1 2 0 9 I S
? N L ! ENT
1 3 0 9 1 8 3 A 9 4 1 1 L D A , ( D P R N T )
14 0 9 I B B 7 OR A
1 5 0 9 I C C 8 RET Z
1 6 0 9 I D 1 8 E F J R 7 L T N L
17 0 9 I F DEFS + 1
I S 0 9 2 0 ;ORG 0 9 2 0 H
19 0 9 2 0
;
2 0 0 9 2 0 S P R I N T SPACE
2 1 0 9 2 0
;
2 2 0 9 2 0 7 P R T S : ENT
2 3 0 9 2 0 3 E 2 0 L D A , 2 0 H
2 4 0 9 2 2 1 8 1 1
J R 7PRNT
2 5 0 9 2 4
;
2 6 0 9 2 4 ! P R I N T TAB
2 7 0 9 2 4
5
2 S 0 9 2 4
7 P R T T : ENT
2 9 0 9 2 4 CDOCOO
C A L L PRNTS
3 0 0 9 2 7 3 A 9 4 1 1 L D A , ( D P R N T )
3 1 0 9 2 A
B 7
OR A
3 2 0 9 2 B C 8
RET Z
3 3 0 9 2 C D 6 0 A
SUB + 1 0
3 4 0 9 2 E 3 8 F 4
J R C , - 1 0
3 5 0 9 3 0 2 0 F A J R N Z , - 4
3 6 0 9 3 2 DEFS + 3
3 7 0 9 3 5
;ORG 0 9 3 5 H
3 3 0 9 3 5
;
3 9 0 9 3 5 ; P R I N T
4 0 0 9 3 5 s
4 1 0 9 3 5 ; I N ACC = P R I N T
DATA
4 2 0 9 3 5
;
4 3 0 9 3 5
7 P R N T : ENT
4 4 0 9 3 5 FEOD CP ODH
4 5 0 9 3 7 2 8 D 5
J R Z , ? L T N L
4 6 0 9 3 9 C 5 PUSH BC
4 7 0 9 3 A 4 F L D C , A
4 0 0 9 3 B 4 7
L D B , A
4 9 0 9 3 C C D 4 6 0 9
C A L L 7 P R T
5 0 0 9 3 F 7 8
L D A . B
5 1 0 9 4 0 C I POP
BC
5 2 0 9 4 1 C 9 RET
5 3 0 9 4 2
5
5 4 0 9 4 2
;
5 5 0 9 4 2 MSGOK: ENT
5 6 0 9 4 2 4 F 4 B 2 1
DEFM ' O K ! '
5 7 0 9 4 5 OD DEFB
ODH
5 8 ' 0 9 4 6
5 0RG 0 9 4 6 H
5 9 0 9 4 6
i
6 0 0 9 4 6 ! P R I N T R O U T I N E
ROW P O I N T E R
CR