1 /*  START OF:       abs_io_hash.incl.pl1                      *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */
 2 
 3 /* Written: 10 June 1980 by J. Spencer Love                                                                             */
 4 
 5 declare   hash_table                    (0:60) ptr unaligned based initial ((61) (null ()));
 6 
 7 declare   label_ptr                     ptr,
 8           current_label_len             fixed bin (21),
 9           current_label_ptr             ptr,
10           current_label                 char (current_label_len) based (current_label_ptr);
11 
12 declare   1 label                       aligned based (label_ptr),
13             2 next_ptr                  ptr unaligned,
14             2 statement_pos             fixed bin (21),
15             2 statement_len             fixed bin (21),
16             2 len                       fixed bin (21),
17             2 lex_block_ptr             ptr unaligned,
18             2 name                      char (current_label_len refer (label.len)) initial (current_label);
19 
20 /*  END OF:         abs_io_hash.incl.pl1                      *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */