1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
subroutine m70wti (fcb, func, time, button, x, y)
c
c This routine waits for the appropriate interupt from the
c Unibus M70 interface card, then returns button and cursor
c information.
c
c
c parameter descriptions:
c
c fcb is a system info. array.
c
c func is interpreted:
c 0 ==> wait for button push.
c 1 ==> wait for cursor move.
c 2 ==> wait for button push or cursor move.
c
integer fcb(*), func, time, button, x, y
c
include 'fcbu.inc'
external io$_rewindoff
integer*4 sys$qiow, mask, chan, iosb(2)
integer*2 chan2(2)
equivalence (chan, chan2)
c
chan2(1) = fcb(fcb_u_m70_chan) ! get M70 channel
chan2(2) = fcb(fcb_u_m70_chan+1)
c
if (func.eq.0) then
mask = '0400'x ! wait for button
elseif (func.eq.1) then
mask = '0800'x ! wait for trackball
elseif (func.eq.2) then
mask = '0C00'x ! wait for button or trackball
else
mask = '0C00'x
endif
c
status = sys$qiow (, %val(chan), io$_rewindoff,
1 iosb,,,%val(mask),,,,,)
c
c Get button word and X-Y position of cursor
c
call rbutn (fcb, button, x, y)
c
return
end
|
