Sharp MZ-700 Owner's Manual page 186

(X)
0
**
ZSO AS SEM BLER SB- 720 1
<
1 Z- 0 13A> PAGE 3 1 04 . 07 .83
0 1 0 897 FEOD
02 0 899 280C
03 089B CD3509
0 4 0 89E 13
0 5 0 89F 18F5
06 0 8A1
07 0 8A1
0 8 OBA1
09 OBA1
10 0 8A1
11 0 8A1
12 0 8A1
13 0 8A1 F5
14 0 8A2 C5
15 OBA3 05
16 OBA4 lA
17 0 8A5 FEOD.
18 08A7 CAE60E
19 OBAA CDB9 0 B
20 OBAD CD6C 0 9
2 1 OBBO 13
22 0 8B1 18F1
23 08B3
2 4 08B3
2 5 0 8B3
26 08B3 112AOC
27 0 8B6 1842
2 8 OBBB
2 9 OBBB
36 OBBB
3 1 OBBB 3ECB
3 2 OBBA B7
33 OBBB 1819
3 4 OBBD
35 OBBD
3 6 OBBD
3 7 OBBD
3 8 OBBD
3 9 OBBD
4 0 OBBD
41 OBBD
4 2 0880
4 3 0 880
4 4 0 880
45 OBBD CDCA OB
46 OBCO D6FO
47 OBC2 CB
4 8 0 8C3 C6FO
4 9 0 8C5 C3 CE OB
50 OBCB
5 1 osc_s
52 OBCB
53 OBCA
5 4 OBC A
55 OBCA
56 OBCA
57 OB CA
5 8 0 8C A
59 OBCA
60 OBCA
;
CP
.JR
CALL
INC
JR
;ORG 0 8A1H
ODH
Z,MSG X2
?PRNT
DE
MSGl
ALL PRI NT MESSAGE
;
?MSG X: ENT
PUSH
PUSH
PUSH
MSGX !: LD
CP
M SGX2 : ,lP
CALL
CALL
INC
,lR
AF
BC
DE
A, CDE >
ODH
Z, ?RSTRl
? ADCN
PRNT3
DE
MSG Xl
TOP OF KEYTBLS
?KY SM: LD
JR
DE,KTBLS
?KY 5
BREAK CODE IN
#BRK: LD
OR
JR
;ORG OBBDH
GETKEY
A,CBH
A
?KY l
NOT ECHO BACK
EXIT:ACC=ASCII CODE
? GET: ENT
CALL
SUB
RET
ADD
,Jp
?KEY
FOH
z
A,FOH
? DACN
DEFS + 2
;ORG OBCAH; ?KEY
!KEY I NPUT
CR
BREAK CODE
KEY IN <DISPLAY CODE >
NOT KEYIN CODE
DIAPLAY TO AS CII CODE
IN B = KEY MODE CSHIFT ,CTRL, BREAK>
**
ZSO ASSEMBLER SB-720 1 <1 Z- 0 13A> PAGE 3 2 0 4. 07 .83
0 1 OBCA
0 2 OBCA
03 OBCA
0 4 OBCA
0 5 OBCA
0 6 OBCA
07 OBCA
OB OBCA C5
09 OBCB D5
10 OBCC E5
11 OBCD CD3008
12 OBDO 78
13 0 801 07
14 OBD2 3 8 0 6
15 OBD4 3 EFO
16 OBD6
17 0 806 El
18 0 807 Dl
19 OBDB Cl
20 0 809 C9
21 OBDA
22 OBDA
23 OBDA 11EAOB
24 OBDD 78
25 OBOE FEBB
2 6 OBEO 28D6
27 0 8E2 2 6 00
2 8 OBE4 69
2 9 0 8E5 CB6F
30 0 8E7 200E
3 1 0 8E9 3 A70 11
32 OBEC OF
33 OBED DAFEOB
3 4 OBF O 7 8
3 5 OBFl 17
36 0 8F 2 17
37 08F 3 3 8BE
3 8 OBF5 1803
3 9 08F7 ll AAOC
4 0 OBFA
4 1 OBFA 19
4 2 OBFB
43 OBFB 7 E
4 4 OBFC 1808
45 OBFE
46 OBFE CB70
47 0 9 00 2 8 07
48 0 9 02 1 1E90C
49 0 905 19
50 0 9 0 6 37
5 1 0907 18F2
52 090 9
53 090 9 11 6AOC
5 4 0 90 C !SEC
55 090E
56 090E
57 090E
58 090E
5 9 090E
60 090E
EXIT
;
?KEY:
?KY 1:
;
?KY 2:
?KY5 :
?KY55 :
?KYGRP :
C = KEY DATA <COLUMN & ROW >
ACC=DISPLAY CODE
IF NO KEY ACC=FOH
IF CY=1 THEN ATTRIBUTE ON
CSMALL,HIRAKANA>
ENT
PUSH
PUSH
PUSH
CALL
LD
RLCA
BC
DE
HL
DSWEP
A,B
,JR C, ?KY2
LD A,FOH
ENT
POP HL
POP DE
POP BC
RET
ENT
LD
LD
CP
JR
LD
LD
BIT
JR
LP
RRCA
J P
LD
RLA
RLA
JR
JR
LD
ENT
ADD
ENT
DE, KTBL
A,B
BBH
Z,#BRK
H, O
L,C
5,A
NZ, ?KY5-3
A, CKANAF >
C,?KYGRP
A,B
C, ? KY SM
?KY5
DE,KTBLC
HL , DE
LD
A, ( HU
JR ?KY 1
ENT
BIT 6,8
,JR Z, ?KYGRS
LD DE, KTBLG
ADD HL,DE
SCF
J R ? I<Y55
DELAY AND KEY SWEP
NORMAL KEY TABLE
BREAK IN
HL=ROW & COLUM N
CTRL CHECK
O=NR . , !=GRAPH
GRAPH MODE
CTRL KEY CHECK
CONTROL KEY TABLE
TABLE
?KYGRS: LD
.JR
DE, KTBLGS
?KY5
; ORG 0 9 0 EH