blob: 71da6c35b0ae4a6e933b8bd75893db927fb6efe7 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include <knet.h>
include "zdisplay.h"
include "iis.h"
# IISCLS -- Close IIS display.
procedure iiscls (chan, status)
int chan[ARB]
int status
include "iis.com"
begin
if (iisnopen == 1) {
call zclsgd (iischan, status)
iisnopen = 0
} else if (iisnopen > 1) {
iisnopen = iisnopen - 1
} else
iisnopen = 0
end
|
