1 /* Begin include file make_sstnt_entry.incl.pl1 Bernard Greenberg 2/18/75 */
 2 /* Modified 84-01-08 BIM for sst$ versus sst. */
 3 
 4           /* If the SST name table is enabled, fill in the name table slot. */
 5 
 6     begin; /* quick */
 7        declare sst$ast_track bit (1) aligned external static;
 8 
 9           if sst$ast_track then do;
10 
11                sstnp = addr (sst_names_$);                  /* Establish name seg addressability */
12                ptsi_a= bin (nm_astep -> aste.ptsi, 2);      /* Pick up PT size index */
13                sstnmx = sstnt.ast_name_offsets (ptsi_a)
14                               + divide (bin (rel (nm_astep), 18)
15                                         - sstnt.ast_offsets (ptsi_a),
16                                         sstnt.ast_sizes (ptsi_a), 17, 0);
17 
18                sstnp -> sstnt.names (sstnmx) = rtrim (temp_entry_name);
19 
20           end;
21       end;
22 
23        declare temp_entry_name char (32) aligned;
24 
25 /* End of include file make_sstnt_entry.incl.pl1 */