1 /*        BEGIN  INCLUDE  FILE ...  db_snt.incl.pl1  Last modified  Nov 1972.  WSS  */
 2 /*        Modified 8/75 to add internal static pointer by S.E. Barr */
 3 
 4 
 5 /*        Overlay of  segment name table.  */
 6 
 7 dcl       sntp      ptr;                /* Pointer to segment name table. */
 8 
 9 dcl     1 snt       based (sntp)  aligned,
10           2  ent_pt_name char(32),      /* Entry point name. */
11           2  ent_name    char(32),      /* Entry name of segment. */
12           2  dir_name    char(168),     /* Directory name. */
13           2  pp          ptr,           /* Pointer to current procedure. */
14           2  sp          ptr,           /* Pointer to current stack frame. */
15           2  lp          ptr,           /* Pointer to linkage section. */
16           2  symp        ptr,           /* Pointer to current symbol table block. */
17           2  symflag     bit(1) unal,   /* ON => no symbol table defined. */
18           2  std         bit(1) unal,   /* ON => standard symbol header.  */
19           2  headp       ptr,           /* Pointer to current symbol header. */
20           2  static_ptr  ptr;           /* Pointer to current static section. */
21 
22 /*        END OF INCLUDE FILE...  db_snt.incl.pl1  */