1 files changed, 28 insertions, 0 deletions
diff --git a/pkg/images/tv/display/iisers.x b/pkg/images/tv/display/iisers.x
new file mode 100644
index 00000000..de276a99
--- /dev/null
+++ b/pkg/images/tv/display/iisers.x
@@ -0,0 +1,28 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+include	"zdisplay.h"
+include	"iis.h"
+
+# IISERS -- Erase IIS frame.
+
+procedure iisers (chan)
+
+int	chan[ARB]
+short	erase
+
+int	status, tid
+int	iisflu(), andi()
+include	"iis.com"
+
+begin
+	call achtiu (andi (ERASE, 0177777B), erase, 1)
+
+	# IMTOOL special - IIS frame bufrer configuration code.
+	tid = IWRITE+BYPASSIFM+BLOCKXFER
+	tid = tid + max (0, iis_config - 1)
+
+	call iishdr (tid, 1, FEEDBACK, ADVXONTC, ADVYONXOV, iisflu(chan),
+	    ALLBITPL)
+	call iisio (erase, SZB_CHAR, status)
+end