Sharp MZ-700 Series Owner's Manual page 202

** Z80 A S S E M B L E R SB-7201 < 1 Z - 0 1 3 A > P A G E 31 0 4 . 0 7 . S 3
0 1 0 8 9 7 FEOD CP
ODH ; CR
0 2 0 8 9 9 2 8 0 C J R Z , M S G X 2
0 3 0 B 9 B C D 3 5 0 9
C A L L 7 P R N T
0 4 0 B 9 E
1 3 I N C DE
0 5 0 S 9 F 1 8 F 5 J R MSG1
0 6 0 8 A 1
0 7 0 8 A 1
0 3 0 8 A 1 ; O R S 0 8 A 1 H
0 9 0 8 A 1
1 0 0 8 A 1 ! A L L P R I N T MESSABE
1 1 0 8 A 1
1 2 0 8 A 1 7 M S G X : ENT
1 3 0 8 A 1 F 5 PUSH A F
1 4 0 8 A 2 C 5 PUSH BC
1 5 0 B A 3 D 5 PUSH DE
1 6 0 8 A 4 1A M S B X l : L D A , < DE)
1 7 0 B A 5 FEOD CP ODH
1 8 0 8 A 7 C A E 6 0 E M S B X 2 : J P Z , ? R S T R 1
1 9 0 8 A A C D B 9 0 B C A L L 7ADCN
2 0 0 8 A D C D 6 C 0 9 C A L L P R N T 3
2 1 0 8 B 0 1 3 I N C DE
2 2 0 8 B 1 1 8 F 1 J R MSGX 1
2 3 0 B B 3
2 4 0 B B 3
5 TOP OF K E Y T B L S
2 5 0 B B 3
2 6 0 B B 3 1 1 2 A 0 C
7 K Y S M ! L D D E , K T B L S
2 7 0 B B 6 1 8 4 2 J R ? K Y 5
2 8 0 8 B 8
2 9 0 8 B B
; BREAK CODE I N
3 0 0 8 B 8
5
3 1 0 8 B 8 3 E C B
# B R K : L D A , C B H ; BREAK CODE
3 2 OBBA B 7
OR A
3 3 0 8 B B 1 8 1 9 J R ? K Y 1
3 4 0 8 B D
3 5 0 8 B D
3 6 OBBD ;ORG 0 8 B D H
3 7 0 8 B D
3 8 OBBD
; GETKEY
3 9 OBBD
4 0 OBBD 5 NOT ECHO BACK
4 1 OBBD
4 2 OBBD
; E X I T ! A C C = A S C I I CODE
4 3 0 8 B D
4 4 OBBD 7 G E T : ENT
4 5 0 8 B D C D C A 0 8
C A L L ? K E Y ; KEY I N ( D I S P L A Y CODE)
4 6 OBCO D 6 F 0
SUB FOH 5 NOT K E Y I N CODE
4 7 0 B C 2 c a
RET Z
4 8
0 B C 3 C 6 F 0 ADD
A , FOH
4 9
0 B C 5 C 3 C E 0 B J P 7DACN ; D I A P L A Y TO A S C I I CODE
5 0 0 B C 8
;
5 1
0 8 C 8
5 2 0 8 C Q DEFS + 2
5 3
0 8 C A
>
5 4 0 8 C A
5 5 0 8 C A
5 6 OBCA
5 7 0 8 C A SORG 0 8 C A H ; 7 K E Y
5 8
0 8 C A
5 9 OBCA
S 1KEY I N P U T
6 0 OBCA 5 I N B = KEY
M O D E ( S H I F T , C T R L , B R E A K )