Sharp MZ-700 - Page 186

(X)
0
** Z SO AS SEM BLE R SB - 720 1 < 1 Z- 0 13A> PAGE 3 1 04 . 07 .83
0 1 0 89 7 FEOD
02 0 89 9 280C
03 089B CD3509
04 0 89E 13
05
0 89F 18F5
06 0 8A1
07 0 8A1
08 O BA1
09 O BA1
10 0 8A1
11 0 8A1
12 0 8A1
13 08A1 F5
14 08A2 C5
15
O BA 3 05
16 O BA4 lA
17 0 8A5 FEOD.
18 0 8A 7 CAE 60 E
19
O BAA CDB9 0B
20 OBAD CD6C 09
2 1 OBBO 13
22 08B1 18F1
23 08B3
24 08B3
25 08B3
26 08B3 112AOC
27 08B6 184 2
28 OBBB
29 O BBB
36 O BBB
3 1 O BBB 3ECB
32
O BBA B7
33 O BBB 1819
34 OBBD
35 O BBD
36 OBBD
37 OBBD
38 OBBD
39 OBBD
40 OBBD
41 O BBD
42 0880
43 0 880
44 0 880
45 O BBD C DCA OB
46 O BC O D6FO
47 OBC2 CB
48 0 8C3
C 6F O
49 08C5 C3 CE OB
50 O BCB
5 1 o sc_s
52 OB CB
53 OB CA
54 O BC A
55 O BC A
56 O BCA
57 OB CA
5 8 0 8CA
59 OB CA
60 OBCA
;
CP
.JR
CALL
INC
JR
;ORG 08A1H
O DH
Z,MSG X2
?PRNT
DE
MSGl
ALL PRI NT MESSAGE
;
?M SG X: ENT
PUSH
P USH
PUSH
MS GX !: LD
CP
MSGX2 : , lP
CA LL
CALL
INC
,lR
AF
BC
DE
A, C DE >
O
DH
Z, ?R STRl
? ADCN
PRNT3
DE
MSG Xl
TOP OF KEYTBLS
?KY SM: LD
JR
DE ,K TBL S
?KY 5
B
REA K CODE IN
#BRK:
LD
OR
JR
;ORG O BBDH
GETKEY
A,CBH
A
?KY l
NOT ECHO BAC K
EX
IT:ACC=ASCII CODE
? GET:
ENT
CALL
SUB
RET
ADD
, Jp
?KEY
FOH
z
A ,F OH
? DAC N
DEFS +2
;ORG OB CAH; ?KEY
!KEY I N
PUT
CR
BREA K CODE
KEY IN <DISPLAY C ODE >
N
OT KEYIN CODE
DIAPLAY TO ASC II C ODE
IN B = KEY MODE CSH IFT ,C TRL, BR E AK>
** ZSO A SSEMBLE R S B- 720 1 <1 Z- 0 13A> PAGE 32 0 4. 07 .8 3
0 1 O
BCA
02 OBCA
03 O BCA
04 O BCA
05 OBCA
06 O BCA
07 O BCA
OB O BCA C5
09 O BCB D5
10 O BC C E5
11 O BCD CD 300 8
12 O BD O 78
13 0 801 07
14 O BD 2 3806
15 O BD4 3EFO
16 O BD 6
17 0 806 El
18 0 80 7 Dl
19
O BDB Cl
20 0 809 C9
21 O BDA
22 O BDA
23 O BDA 11EAOB
24 O BDD 78
25 O BOE FEBB
26 O BE O 28D6
27 0 8E 2 26 00
28 OBE4 69
29 0 8E5 CB6F
30 0 8E7 2 00 E
3 1 0 8E9 3A 70 11
32 O BEC OF
33 O BE D DA FEOB
34 O BF O 78
35
O BFl 17
36 0 8F 2 17
37 0 8F 3 38BE
38
OBF5 1803
39 0 8F 7 ll AAOC
40 O
BFA
4 1 O BFA 19
42 OBFB
43 O BFB 7E
44
O BFC 1808
45 OB FE
46 OBFE CB70
47 09 00 28 07
48 09 02 11E90C
49 09 05 19
50 0906 37
5 1 0907 1 8F2
52 090 9
53 090 9 11 6AOC
54 090C !SEC
55 090E
56 090 E
57 090 E
58 090 E
59 090 E
60 090 E
EX IT
;
?KEY:
?KY 1:
;
?KY 2:
?KY5 :
?KY55:
?KYGR P:
C =
KEY DA TA < COLUMN & ROW >
ACC=DISPLAY CODE
IF NO K EY ACC =FOH
IF CY=1 THEN ATT RIBUTE ON
CSMALL,HIRAK ANA>
ENT
PUSH
PUSH
P USH
CALL
LD
RLCA
BC
DE
HL
DSWEP
A,B
,JR C, ?KY2
LD A,F OH
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, K TBL
A,B
BBH
Z,#B RK
H, O
L,C
5,A
NZ, ?KY5-3
A, CK AN AF>
C ,?KY GRP
A,B
C, ? KY SM
?KY5
DE,KTBLC
HL , DE
LD A, ( HU
JR ?KY 1
ENT
BIT 6,8
, JR Z, ?KY GRS
LD DE, K TBLG
ADD HL,DE
S CF
JR ?I< Y55
DELA Y AND KEY SWEP
NORM AL K EY TABLE
BREA K IN
HL= R OW & COLU MN
CTR L CHEC K
O =NR . , !=GRAPH
GR A PH MODE
CTRL KEY CHEC K
CONTROL KEY TABLE
TABLE
?KY GRS: LD
.JR
DE, K TBLGS
?KY 5
; ORG 090EH