1 /* BEGIN INCLUDE FILE gcos_fibs.incl.pl1   (Wardd Multics)  09/13/81 1739.2 mst Sun */
 2 dcl 1 fibs_control            aligned based(gcos_ext_stat_$temp_seg_ptr)
 3 
 4 /* Structure to save released fibs in.
 5 */
 6 ,     2 released_fibs
 7 ,       3 nrf                 fixed bin           /* Number of released fibs. */
 8 ,       3 released_fib        (500) like fib      /* Copy of released fib. */
 9 
10 /* Buffers. */
11 ,     2 fib_buffers
12 ,       3 buffer_in_use       (500)bit(1)unal     /* "1"b => in use. */
13 ,       3 buffer              (500)bit(320*36)    /* Space for buffer. */
14 ;
15 
16 /*   END INCLUDE FILE gcos_fibs.incl.pl1 */