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
47
48
49
50
51
52
53
54
55
56
57
58
59
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
include <gki.h>
# GKI_WESCAPE -- Write a GKI escape instruction, used to pass device
# dependent instructions on to a graphics kernel. This version of gki_escape
# is used in cases where the escape instruction consists of the escape header
# followed by a block of data, and it is inconvenient to have to combine the
# header and the data into one array.
#
# BOI GKI_ESCAPE L FN N DC
#
# L(i) 5 + N
# FN(i) escape function code
# N(i) number of escape data words
# DC(i) escape data words
procedure gki_wescape (fd, fn, hdr, hdrlen, data, datalen)
int fd #I output file
int fn #I escape function code
short hdr[ARB] #I escape instruction header
int hdrlen #I header length, shorts
short data[ARB] #I escape instruction data
int datalen #I data length, shorts
pointer sp, buf
int epa, nwords
short gki[GKI_ESCAPE_LEN]
data gki[1] /BOI/, gki[2] /GKI_ESCAPE/
include "gki.com"
begin
nwords = hdrlen + datalen
if (IS_INLINE(fd)) {
call smark (sp)
call salloc (buf, nwords, TY_SHORT)
call amovs (hdr, Mems[buf], hdrlen)
call amovs (data, Mems[buf+hdrlen], datalen)
epa = gk_dd[GKI_ESCAPE]
if (epa != 0)
call zcall3 (epa, fn, Mems[buf], nwords)
call sfree (sp)
} else {
gki[GKI_ESCAPE_L] = GKI_ESCAPE_LEN + nwords
gki[GKI_ESCAPE_N] = nwords
gki[GKI_ESCAPE_FN] = fn
call write (gk_fd[fd], gki, GKI_ESCAPE_LEN * SZ_SHORT)
call write (gk_fd[fd], hdr, hdrlen * SZ_SHORT)
call write (gk_fd[fd], data, datalen * SZ_SHORT)
}
end
|
