1 files changed, 33 insertions, 0 deletions
diff --git a/pkg/images/tv/iis/iism70/zclear.x b/pkg/images/tv/iis/iism70/zclear.x
new file mode 100644
index 00000000..a03d429c
--- /dev/null
+++ b/pkg/images/tv/iis/iism70/zclear.x
@@ -0,0 +1,33 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+include "../lib/ids.h"
+include "iis.h"
+
+# ZCLEAR -- Erase IIS frame.
+
+procedure zclear (frame, bitplane, flag)
+
+short	frame[ARB]			# frame array
+short	bitplane[ARB]			# bitplane array
+bool	flag				# true if image plane
+
+int	z, t
+short	erase
+int	and(), andi()
+short	iispack()
+
+begin
+	if (flag) {
+	    z = iispack (frame)
+	    z = and (z, ALLCHAN)
+	} else
+	    z = GRCHAN
+
+	t = iispack (bitplane)
+	erase = andi (ERASE, 177777B)
+
+	call iishdr (IWRITE+BYPASSIFM+BLOCKXFER, 1, FEEDBACK,
+	    ADVXONTC, ADVYONXOV, z, t)
+	call iisio (erase, SZB_CHAR)
+end