blob: 25df2f211fc1a449e7871f4b9003dde7f585c5b5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# ZOPNIM -- Open an image display frame which is addressable as
# a binary file.
procedure zopnim (devinfo, mode, chan)
char devinfo[ARB] # packed devinfo string
int mode # access mode
int chan
int iischan[2] # Kludge
begin
call iisopn (devinfo, mode, iischan)
chan = iischan[1]
end
|
