1 /* BEGIN INCLUDE FILE ... on_unit.incl.pl1 */
 2 /* coded 31 October 1973 by M. Weaver to facilitate adding flags */
 3 
 4 dcl 1 on_unit based aligned,
 5     2 name ptr,                                             /* pointer to the condition name */
 6     2 body ptr,                                             /* pointer to procedure to handle condition */
 7     2 size fixed bin,                                       /* length of the condition name */
 8     2 next bit (18) unaligned,                              /* rel pointer to next on unit */
 9     2 flags unaligned,
10       3 pl1_snap bit (1) unaligned,                         /* "1"b indicates to call snap procedure */
11       3 pl1_system bit (1) unaligned,                       /* "1"b indicates to use system condition handler */
12       3 pad bit (16) unaligned,
13     2 file ptr;                                             /* ptr to file descriptor for pl1 I/O condition */
14 
15 /* END INCLUDE FILE ... on_unit.incl.pl1 */