1 files changed, 51 insertions, 0 deletions
diff --git a/sys/gio/gki/gkircval.x b/sys/gio/gki/gkircval.x
new file mode 100644
index 00000000..9bfb3052
--- /dev/null
+++ b/sys/gio/gki/gkircval.x
@@ -0,0 +1,51 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<gki.h>
+
+# GKI_RETCURSORVALUE -- Return a cursor value.  Used by a graphics kernel to
+# return a cursor value to GIO in response to a GETCURSOR instruction.
+#
+#                BOI GKI_CURSORVALUE L CN KEY SX SY RN RX RY
+#
+#        where
+#
+#                L(i)            10
+#                CN(i)           cursor number
+#                KEY(i)          keystroke value (>= 0 or EOF)
+#                SX(i)           NDC X screen coordinate of cursor
+#                SY(i)           NDC Y screen coordinate of cursor
+#                RN(i)           raster number or zero
+#                RX(i)           NDC X raster coordinate of cursor
+#                RY(i)           NDC Y raster coordinate of cursor
+#
+# The screen or display window coordinates SX and SY of the cursor are
+# returned for all devices.  Only some devices support multiple rasters.
+# If the device supports rasters and the cursor is in a raster when read, the
+# raster number and raster coordinates are returned in RN,RX,RY.  This is in
+# addition to the screen coordinates SX,SY.  If raster coordinates are not
+# returned, the raster number will be set to zero and RX,RY will be the same
+# as SX,SY.
+
+procedure gki_retcursorvalue (fd, cn, key, sx, sy, raster, rx, ry)
+
+int	fd			#I output file
+int	cn			#I cursor number
+int	key			#I keystroke value
+int	sx, sy			#I screen coordinates of cursor (GKI coords)
+int	raster			#I raster number
+int	rx, ry			#I raster coordinates of cursor (GKI coords)
+
+short	gki[GKI_CURSORVALUE_LEN]
+data	gki[1] /BOI/, gki[2] /GKI_CURSORVALUE/, gki[3] /GKI_CURSORVALUE_LEN/
+
+begin
+	gki[GKI_CURSORVALUE_CN ] = cn
+	gki[GKI_CURSORVALUE_KEY] = key
+	gki[GKI_CURSORVALUE_SX ] = sx
+	gki[GKI_CURSORVALUE_SY ] = sy
+	gki[GKI_CURSORVALUE_RN ] = raster
+	gki[GKI_CURSORVALUE_RX ] = rx
+	gki[GKI_CURSORVALUE_RY ] = ry
+
+	call write (fd, gki, GKI_CURSORVALUE_LEN * SZ_SHORT)
+end