blob: c717f636752f83670033bc46063c8d781fc1e42c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include <knet.h>
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
|
