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