1 /* BEGIN INCLUDE FILE ... ptw.incl.pl1 ... MACRO ... For ADP conversion, 02/26/81 */
 2 /* Added core_ptwa, Benson Margulies, 84-01 */
 3 
 4 dcl  ptp pointer;
 5 
 6 %if %target (L68) %then
 7 
 8      %include "ptw.l68";
 9 
10      dcl 1 ptw aligned based (ptp) like l68_ptw;
11      dcl 1 ptw_flags unaligned like l68_ptw_flags based;
12 
13      dcl 1 core_ptw aligned based (ptp) like l68_core_ptw;
14      dcl 1 special_ptw aligned based (ptp) like l68_special_ptw;
15      dcl 1 real_disk_ptw aligned based (ptp) like l68_real_disk_ptw;
16      dcl 1 null_disk_ptw aligned based (ptp) like l68_null_disk_ptw;
17 
18 %elseif %target (ADP) %then
19 
20      %include "ptw.adp";
21 
22      dcl 1 ptw aligned based (ptp) like adp_ptw;
23      dcl 1 ptw_flags unaligned like adp_ptw_flags based;
24 
25      dcl 1 core_ptw aligned based (ptp) like adp_core_ptw;
26      dcl 1 special_ptw aligned based (ptp) like adp_special_ptw;
27      dcl 1 real_disk_ptw aligned based (ptp) like adp_real_disk_ptw;
28      dcl 1 null_disk_ptw aligned based (ptp) like adp_null_disk_ptw;
29 
30 %endif
31 
32 /* Arrays and overlays for various purposes */
33 
34 dcl 1 ptwa (0:255) based (ptp) aligned like ptw;            /* page table */
35 dcl 1 core_ptwa (0:255) based (ptp) aligned like core_ptw;
36 dcl  ptwa_bits (0:255) based (ptp) bit (36) aligned;        /* page table array as raw bits */
37 
38 dcl 1 mptw based (ptp) aligned,                             /* page table word while page is not in core */
39     2 devadd bit (22) unaligned,                            /* device address where page resides */
40     2 pad bit (14) unaligned;
41 
42 dcl 1 mptwa (0 : 1) based (ptp) aligned,                    /* page table while pages are not in core */
43     2 devadd bit (22) unaligned,                            /* device address where page resides */
44     2 pad bit (14) unaligned;
45 
46 dcl 1 atptw based (ptp) aligned,                            /* PL/I has problems on overlay-def based */
47     2 add bit (18) unal,
48     2 (core, disk, pd, reserved) bit (1) unal,              /* address types */
49     2 pad bit (14) unal;
50 
51 dcl 1 atptwa (0:255) based (ptp) aligned like atptw;
52 
53 /* END INCLUDE FILE ... ptw.incl.pl1 */