1 
 2 /* Begin include file disk_post_queue.incl.pl1     B. Greenberg 12/7/76  */
 3 
 4 dcl  cq_limit static options (constant) fixed bin init (200);         /* # of queue entires */
 5 
 6 dcl  cqp ptr;
 7 
 8 dcl 1 cq aligned based (cqp),
 9     2 lock bit (36) aligned,                                /* Data lock */
10     2 lockings fixed bin,                                   /* Count of lockings */
11     2 overflows fixed bin,                                  /* Times queue overflowed */
12     2 number_in_queue fixed bin,                            /* As it says. */
13 
14     2 looplock_time fixed bin (52),                         /* Time spent looping */
15     2 process_time fixed bin (52),                          /* Time thing locked */
16 
17     2 put_ptr bit (18) aligned,                             /* Rel ptr INTO queue of next place to put */
18     2 get_ptr bit (18) aligned,                             /* Rel ptr INTO queue  of next place to get */
19     2 queueings fixed bin,                                  /* Meter on queueings */
20 
21     2 pad2 (5) fixed bin,
22 
23     2 queue (0:199),                                        /* queue elements */
24      3 coreadd fixed bin (24) aligned,                      /* main memory address */
25      3 errcode bit (36) aligned;                            /* see disk_error.incl.pl1 */
26 
27 /* ENnd Include File   disk_post_queue.incl.pl1 */