1 /* BEGIN INCLUDE FILE ckhdr.incl.pl1 --- Last modified 28 Sept 1970 */
 2 
 3 /* Declarations for pseudo-linkage block, used by various MST Checker subroutines */
 4 
 5 declare 1 col based,                              /* Header for segment info following */
 6           2 next ptr,                             /* Points to start of next collection (or end of table) */
 7           2 no fixed bin(17),                     /* Collection # as read from tape */
 8           2 nsegs fixed bin(17);                  /* # of segs read in this collection */
 9 
10 declare 1 ckhdr based,                            /* Pseudo-header for TABLE entry */
11           2 def_ptr ptr,                          /* pointer to defs (*+xx) */
12           2 nxt_blk ptr,                          /* Pointer to successor block, or 0 (fb 71) */
13           2 blk_size fixed bin(17),               /* Length of this def-block */
14           2 sno fixed bin(17),                    /* Segment number of related segment */
15           2 pad fixed bin(17),                    /* Maybe we'll find a use */
16           2 lpairct fixed bin(17),                /* Number of links considered */
17           2 exprel(100) fixed bin(18);            /* Odd word from link-pair */
18 
19 declare 1 zhdr based,                             /* Used to check finding of last block */
20           2 (def_ptr, nxt_blk) fixed bin(71);     /* First part of "ckhdr", above */
21 
22 /* END INCLUDE FILE ckhdr.incl.pl1 */