1 " ***********************************************************
 2 " *                                                         *
 3 " * Copyright, (C) Honeywell Bull Inc., 1988                *
 4 " *                                                         *
 5 " * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 6 " *                                                         *
 7 " * Copyright (c) 1972 by Massachusetts Institute of        *
 8 " * Technology and Honeywell Information Systems, Inc.      *
 9 " *                                                         *
10 " ***********************************************************
11 
12 "         This is the symbol table header skeleton for alm.
13 "         The version number should be updated every
14 "         time that any part of alm is changed.
15 " Modified 740905 by PG and ARD for installation of Version 4.5 (Version 2 PL/I).
16 
17           name      sthedr_
18           use       impure
19           join      /link/impure
20 
21           bool      char_dope,240000
22           segdef    hdrlen
23           segdef    sthedr_             impure data
24           segdef    alm_creation_date,time_of_translation
25           segdef    text_and_link_lengths,seg_name
26 
27 sthedr_:
28 sthead:   zero      0,36*(tra_name-sthead)+9 dope for translator name
29           zero      char_dope,9*tra_name_length (includes 9 bits for char count)
30 
31           zero      0,36*(ver_name-sthead)+9 dope for vers. name
32           zero      char_dope,9*ver_name_length
33 
34 alm_creation_date:
35           dec       0,0                 This is the clock at the creation of alm itself
36 time_of_translation:
37           dec       0,0                 This is the clock at assembly time.
38 
39           zero      0,0                 root pointer, 0
40           zero      0,2                 map pointer, 2*n files
41           zero      0,0                 next header, binder indicator
42 text_and_link_lengths:
43           zero      0,0                 text length, linkage length
44 
45           zero      0,36*(seg_name-sthead) dope for segment name
46           zero      char_dope,9*32      Always allow for maximum length name
47 
48 tra_name: acc       "alm";    equ       tra_name_length,3
49 
50 ver_name: acc       "ALM Version 4.5, September 1974";      equ       ver_name_length,31
51 
52 seg_name: bss       ,8                  For segment name from "name" pseudo-op or command arg.
53 
54 hdrlen:   zero      0,*-sthead
55 
56           end