blob: 2aaa0f4552e148f8558407ecba6c7c1185860351 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
include "ki.h"
# KZSTMT -- Device status for a magtape device.
procedure kzstmt (chan, what, lvalue)
int chan #I active magtape channel
int what #I device parameter
long lvalue #O parameter value
include "kichan.com"
begin
if (k_node[chan] == NULL)
call zzstmt (k_oschan[chan], what, lvalue)
else
call kb_zstt (KI_ZFIOMT, chan, what, lvalue)
end
|
