aboutsummaryrefslogtreecommitdiff
path: root/pkg/images/tv/display/iisflu.x
diff options
context:
space:
mode:
Diffstat (limited to 'pkg/images/tv/display/iisflu.x')
-rw-r--r--pkg/images/tv/display/iisflu.x24
1 files changed, 24 insertions, 0 deletions
diff --git a/pkg/images/tv/display/iisflu.x b/pkg/images/tv/display/iisflu.x
new file mode 100644
index 00000000..3fee9d63
--- /dev/null
+++ b/pkg/images/tv/display/iisflu.x
@@ -0,0 +1,24 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include <mach.h>
+include "zdisplay.h"
+include "iis.h"
+
+# IISFLU -- IIS frame look up table.
+
+int procedure iisflu (chan)
+
+int chan[ARB]
+int frame
+int iisframe[LEN_IISFRAMES]
+data iisframe/IISFRAMES/
+
+begin
+ frame = chan[1] - IIS_CHAN * DEVCODE
+ if (frame < 1)
+ return (iisframe[1])
+ else if (frame > LEN_IISFRAMES)
+ return (GRCHAN)
+ else
+ return (iisframe[frame])
+end