1 files changed, 20 insertions, 0 deletions
diff --git a/pkg/images/tv/display/iiswcr.x b/pkg/images/tv/display/iiswcr.x
new file mode 100644
index 00000000..3970f230
--- /dev/null
+++ b/pkg/images/tv/display/iiswcr.x
@@ -0,0 +1,20 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include <mach.h>
+include "zdisplay.h"
+include "iis.h"
+
+# IISWCR -- Write cursor to display.  Note that the position is 1 indexed.
+
+procedure iiswcr (status, xcur, ycur)
+
+int	status, xcur, ycur
+short	cursor[LEN_CURSOR]
+include	"iis.com"
+
+begin
+	call iishdr (IWRITE+VRETRACE, 2, COMMAND+CURSOR, 1+ADVXONTC, 0,0,0)
+	cursor[2] = mod (xcur / MCXSCALE - 32, iis_xdim)
+	cursor[3] = mod (ycur / MCYSCALE - 32, iis_ydim)
+	call iisio (cursor[2], 2 * SZB_CHAR, status)
+end