blob: ef4fe116cc5c5d81c5ffa7f38e95636831bc8695 (
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
28
29
30
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include <pmset.h>
include "mio.h"
# MIO_SETI -- Set an MIO parameter.
procedure mio_seti (mp, param, value)
pointer mp #I MIO descriptor
int param #I parameter to be set
int value #I new value
begin
switch (param) {
case P_PMDES:
M_PM(mp) = value
M_ACTIVE(mp) = NO
case P_IMDES:
M_IM(mp) = value
M_ACTIVE(mp) = NO
case P_REGCOORDS:
M_REGCOORDS(mp) = value
case P_PMCLOSE:
M_PMCLOSE(mp) = value
default:
call syserr (SYS_PLINVPAR)
}
end
|
