1 "  ******************************************************
 2 "  *                                                    *
 3 "  *                                                    *
 4 "  * Copyright (c) 1972 by Massachusetts Institute of   *
 5 "  * Technology and Honeywell Information Systems, Inc. *
 6 "  *                                                    *
 7 "  *                                                    *
 8 "  ******************************************************
 9 
10 "         free_ is set up so that the first time allocations are made in it,
11 "         alloc_ will call area_ to actually initialize the rest of the area header.
12 "         this is done by filling in the size of the area and by leaving the
13 "         high water mark word = 0.
14 "         coded by A. Downing on 01.30.73
15 
16           movdef
17           segdef free_
18           free_:
19           oct 000000000000
20           oct 000000000000
21           oct 000000200030    "this is the size of the area"
22           oct 000000000000    "leave the high water mark word = 0
23           end free_