1 
 2           /* BEGIN INCLUDE FILE add_type.incl.pl1 */
 3           /* 02/26/75 by Bernard S. Greenberg */
 4 
 5           /* This file provides a structure for checking
 6                     PTW/CME address type fields in PL/I */
 7 
 8 dcl 1 add_type unaligned static internal,
 9           2 core bit (4) init ("1000"b),                    /* in core- S/B only in PTW */
10           2 disk bit (4) init ("0100"b),                    /* Disk address */
11           2 pd   bit (4) init ("0010"b),                    /* Paging Device */
12           2 reserved bit (4) init ("0001"b),                /* Reserved */
13           2 non_null bit (4) init ("1111"b);                /* Not null address */
14 
15 dcl 1 badd_type unaligned based,
16     2 (core, disk, pd, reserved) bit (1) unaligned;
17 
18           /* END INCLUDE FILE add_type.incl.pl1 */