HP Vectra Technical Reference Manual page 101

Touch Example (cont.)
1111
????
??11
50
1?11
dw
dw
dw
dw
o
dup
(?)
cs:CODE SEG,ds:DATA SEG,ss:DATA SEG
aX,DATA-SEG - ;load
up
the ds regi.ter with the data legment
dl,ax -
I',ax ;The Itack legment il also in the code legment
~gu~~Kt~2:LE
;Point to the top of the stack
ah,RE~D CHAR ECHO ;Read a character w/echo until
21H -
i~P~~·LOOP
;15
this the exit character?
TOUCH-RESTORE
ah,TE~MINATE PROC ;Exit
21H
;Save the old event valuel
;Move my touch event handler into the HP vector tab
;Start accepting calls
;Loglcal interrupt?
, yes, continue
;set return code
:i:v~h~~lat~~I~~y~~t~~~ort
or a make/break report
dh,T TS
Ihort POS REPORT
dh,T_KC_BUTTON
ah,F la_CONTROL
al,SF CREATE EVENT
bx,cs- -
el,bx
si,TOUCH HANDLER
dX,TS EVtNT HEADR
V LTOUCH
T~r ~~'~R~~~UCH
aX,el -
word ptr SAVE_CS,ax
word ptr SAVE_IP,.i
:~~~ ~6rc~~¥~oEs,dX
al,Sr EVENT ON
V LTOUCH -
mav bp,V LTOUCH
int HP_ERTRY
ret
endp
mov
mov
mov
lea
mov
lYle all
mov
mov
mov
mov
mov
mov
Iyscall
proc
cmp
je
mov
1
re
t
pUlha
cmp
je
cmp
dw
ends
segment
assume
mov
mov
mov
mov
call
mov
int
cmp
jne
call
mov
int
proc
mov
TOUCH_ENABLE
TOUCH_HANDLER
TOUCH_ENABLE
le
INPUT LOOP:
STK TOP
DAT~ SEG
CODE=SEG
BEGIN:
????
B8 ---- R
8E 08
8E
DO
88 26 00A6
E8 0010 R
84 01
CD
21
3C 5E
75 F8
E8 0084
84 4C
CD
21
84 04
80 08
8C
CB
8E C3
80 36 0048
BA
R
BD 00C6
CD
6F
8C
CO
A3 0000 R
89 36 0002
89 16 0004
84 04
80
OA
BD
00C6
CD
6F
C3
80 FC 00
74
03
B4 02
CF
60
80
FE
45
74 07
80
FE
09
92 Input System and HP-HIL