blob: 5c49d506d510db9a61b93e0b39a1eb0988a969b8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# ZOPM70 -- Open the IIS for binary file i/o. The device will be automatically
# allocated if necessary.
procedure zopm70 (device, mode, chan)
char device[ARB] # packed UNIX device name
int mode # access mode
int chan # receives device channel
begin
call zopnbf (device, mode, chan)
end
|
