Key Programming Example - Sharp mz-3500 Manual For Use

Section D: CRT Interface
0.6.4. Key Programming Example
For a word prOcessor, the key definition subprogram could look like
this:
EOS EQU 5
EOS system entry address
ESC EQU
27
ASCII for (ESC>
CTLY EQU
25
<Ctrl-Y>
separator
CTLP
EQP
16 <Ctrl-P>
=
lead-in character
ORG
l00H
Start by EOS
JP INIT
init keydefs before start
JP
RESET reset keydefs before end
ORG MEMORY
free memory
!NIT: LD DE, INITBL Table with new definitions
CALL
SETDEF redefine keys
JP START
normal starting address
RESET: LD
DE,RESTBL Code for re-initialization
CALL SETDEF
reset key definitions
JMP
0
and back to EDS
SETDEF: PUSH
DE
save address of table
LD C,l09 EOS: Console Mode
LD
DE,0FFFFH
old value
CALL EOS
•• read
LD (OLDMOD) ,HL
..
and save
LD
C,l09 EOS: Console Mode
LD
DE,0FH -no transformations-
CALL
EOS set
POP DE fetch address again
LD C,lll
EOS: Print block
CALL EOS
tabl to screen driver
LD DE
1
(OLD MOD) old Console Mode
LD
C,
109 EOS: Console Mode
CALL EOS reset
RET
EOS System manual
Daeurnling & Zimmermann Page 199