1 
  2 
  3      "BEGIN INCLUDE FILE area_structures.incl.alm
  4 
  5           "Created 10/19/77  1204.6 edt Wed by convert_include_file,
  6           "   Version of 03/21/77  1355.7 edt Mon.
  7 
  8           "Made from >udd>m>Green>pl1_bugs>area_structures.incl.pl1,
  9           "   modified 10/19/77  1204.6 edt Wed
 10 
 11 
 12           equ       area_version_1,1              "MANIFEST
 13 
 14 "
 15 "         Structure area
 16 "
 17           equ       area_size,24
 18 
 19           equ       area.version,0
 20 
 21           equ       area.last_usable,1            "UPPER
 22 
 23           equ       area.next_virgin,2            "UPPER
 24 
 25           equ       area.flags,3                  "LEVEL 2
 26 
 27           bool      area.extend,400000            "DU
 28           bool      area.zero_on_alloc,200000     "DU
 29           bool      area.zero_on_free,100000      "DU
 30           bool      area.dont_free,040000         "DU
 31           bool      area.defined_by_call,020000   "DU
 32           bool      area.system,010000            "DU
 33           equ       area.mbz_shift,0
 34 
 35           equ       area.allocation_method,4
 36 
 37           equ       area.last_size,5              "UPPER
 38 
 39           equ       area.last_block,6             "UPPER
 40 
 41           equ       area.freep,7                  "LEVEL 2
 42 
 43           equ       area.relp,7                   "UPPER
 44           equ       area.max_block_size,7         "LOWER
 45 
 46           equ       area.allocation_p_clock,21
 47 
 48           equ       area.extend_info,22           "UPPER
 49           equ       area.recovery_info,22         "LOWER
 50 
 51           equ       area.n_allocated,23           "UPPER
 52           equ       area.n_free,23                "LOWER
 53 
 54           equ       STANDARD_ALLOCATION_METHOD,0  "MANIFEST
 55           equ       NO_FREEING_ALLOCATION_METHOD,1 "MANIFEST
 56 
 57 "
 58 "         Structure extend_block
 59 "
 60           equ       extend_block_size,12
 61 
 62           equ       extend_block.first_area,0
 63           equ       extend_block.next_area,1
 64           equ       extend_block.sequence_no,2
 65           equ       extend_block.name,3           "DOUBLE
 66 
 67           equ       alloc_blkhdrsz,2              "MANIFEST
 68 
 69 "
 70 "         Structure no_free_area
 71 "
 72           equ       no_free_area_size,10
 73 
 74           equ       no_free_area.current_component,8
 75 
 76 "
 77 "         Structure block
 78 "
 79           equ       block_size,3
 80 
 81           equ       block.prev_size,0             "UPPER
 82           equ       block.cur_size,0              "LOWER
 83 
 84           equ       block.buddy_pad_word,1
 85           equ       block.buddy_pad_shift,28
 86           bool      block.buddy_pad_mask,000377
 87           equ       block.prev_busy_word,1
 88           bool      block.prev_busy,001000        "DU
 89           equ       block.marked_word,1
 90           bool      block.marked,000400           "DU
 91           equ       block.q_no_word,1
 92           equ       block.q_no_shift,18
 93           bool      block.q_no_mask,000377
 94           equ       block.header,1                "LOWER
 95 
 96           equ       block.fp,2                    "UPPER
 97           equ       block.bp,2                    "LOWER
 98 
 99           equ       min_block_size,8              "MANIFEST
100 
101      "END INCLUDE FILE area_structures.incl.alm