blob: ad9b48286085ea8e50a7f176b991567cfd447479 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "gty.h"
# GTYCAPS -- Return a pointer to the caplist field of an open GTY descriptor.
pointer procedure gtycaps (gty)
pointer gty # tty descriptor
begin
return (P2C (gty + T_OFFCAP))
end
|
