1 /* area_header_v2pl1.incl.pl1 */
 2 dcl  area_header (23) fixed bin (26) aligned based (area_ptr),
 3                                                             /* the first two words are 0 so that the area can be identified as of the new style,
 4                                                                the third word contains the size of the area in words,
 5                                                                the fourth word is the high water mark,
 6                                                                the fifth word is the first usable word in the area,
 7                                                                the sixth word is the stratum word number corresponding to the largest possible block in this area,
 8                                                                words 7 through 23 are stratum words which point to blocks which are free
 9                                                                and whose size is 2**2 through 2**18 */
10      area_ptr ptr;                                          /* points to the area */
11 dcl  exp_tbl (0:18) fixed bin (26) int static init
12     (1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768, 65536, 131072, 262144);
13 dcl  front fixed bin (26);