1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4    *                                                         *
 5    * Copyright (c) 1972 by Massachusetts Institute of        *
 6    * Technology and Honeywell Information Systems, Inc.      *
 7    *                                                         *
 8    *********************************************************** */
 9 
10 
11 %include create_token;
12 ^L
13 /* Entry to initialize the hash table used by create_token.  Note that the length of the hash table
14    must be a prime number */
15 
16 init_hash_table:
17      entry ();
18 
19           allocate hash_table_structure in (tree_area);
20           hash_table (*) = null;
21           return;
22 
23      end /* create_token */;