1 
 2 /* BEGIN INCLUDE...................imp_queues......................... */
 3 
 4 /* For IMP DIM */
 5 
 6 /* Following variables are headers for various IMP DIM queues */
 7 
 8 dcl  queuep pointer;                                        /* May be used to refer to a queue */
 9 dcl 1 queue_header aligned based,                           /* Format of the header for queues */
10     2 first bit (18) unaligned,
11     2 last bit (18) unaligned;
12 
13 dcl  queue bit (36) aligned based;
14 
15 dcl 1 imp_data$queues external aligned like queues;
16 
17 dcl 1 queues aligned based,
18     2 writeq like queue_header,
19     2 control_link_writeq like queue_header,
20     2 buffer_spaceq like queue_header,
21     2 swbuffer_spaceq like queue_header,                    /* For wired buffers */
22     2 lwbuffer_spaceq like queue_header,
23     2 lglobalq like queue_header,
24     2 globalqsn fixed bin (34);                             /* global queue sequence number to be used */
25 
26 dcl  write_queue bit (36) defined (imp_data$queues.writeq.first);
27 dcl  control_write_queue bit (36) defined (imp_data$queues.control_link_writeq.first);
28 dcl  buffer_space_queue bit (36) defined (imp_data$queues.buffer_spaceq.first);
29 dcl  swired_buffer_space_queue bit (36) defined (imp_data$queues.swbuffer_spaceq.first);
30 dcl  lwired_buffer_space_queue bit (36) defined (imp_data$queues.lwbuffer_spaceq.first);
31 dcl  link_global_queue bit (36) defined (imp_data$queues.lglobalq.first);
32 
33 
34 
35 
36 /* CONSTANTS */
37 
38 
39 dcl  empty_queue bit (36) aligned init ("0"b) internal static;
40 
41 /* END INCLUDE.....................imp_queues......................... */