From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- sys/gio/gki/gkiinline.x | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 sys/gio/gki/gkiinline.x (limited to 'sys/gio/gki/gkiinline.x') diff --git a/sys/gio/gki/gkiinline.x b/sys/gio/gki/gkiinline.x new file mode 100644 index 00000000..87fc1f29 --- /dev/null +++ b/sys/gio/gki/gkiinline.x @@ -0,0 +1,23 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include +include + +# GKI_INLINE_KERNEL -- Identify a graphics stream for use with an inline +# kernel, i.e., with a kernel linked into the same process as the high level +# code which calls the GKI procedures. At present there may be at most one +# inline kernel at a time. The entry point addresses of the kernel procedures +# are passed in the array DD. Subsequent GKI calls for the named stream will +# result in direct calls to the inline kernel without encoding and decoding +# GKI instructions, hence this is the most efficient mode of operation. + +procedure gki_inline_kernel (stream, dd) + +int stream # graphics stream to be redirected +int dd[ARB] # device driver for the kernel +include "gki.com" + +begin + gk_type[stream] = TY_INLINE + call amovi (dd, gk_dd, LEN_GKIDD) +end -- cgit