From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- pkg/images/tv/iis/iism70/iiscls.x | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 pkg/images/tv/iis/iism70/iiscls.x (limited to 'pkg/images/tv/iis/iism70/iiscls.x') diff --git a/pkg/images/tv/iis/iism70/iiscls.x b/pkg/images/tv/iis/iism70/iiscls.x new file mode 100644 index 00000000..c717f636 --- /dev/null +++ b/pkg/images/tv/iis/iism70/iiscls.x @@ -0,0 +1,27 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include +include +include "iis.h" + +define LEN_HID 5 + +# IISCLS -- Close IIS display. + +procedure iiscls (chan, status) + +int chan[ARB] +int status + +include "iis.com" + +begin + # first we need to tuck away the constants for zoom and scroll + # as we cannot read them on the model 70. Would that there were + # somewhere to put them. Alas not. So just drop them on the floor. + + if (iisnopen == 1) { + call zclsgd (iischan, status) + iisnopen = 0 + } +end -- cgit