*COMDECK,HASHTAB
          CONTROL NOLIST;    #HASHTAB#
          CONTROL EJECT;
# EACH ENTRY CONTAINS POINTER TO CHAIN OF DNT/PNT ENTRIES WITH THAT HASH
  VALUE (0 THRU HASHTABLENM1)#
          DEF HASHTABLENM1  #127#;   #LENGTH OF HASH TABLE - 1# 
  
 COMMON HASHTAB;
  ARRAY HASHDNTINDEX [0:HASHTABLENM1];
   BEGIN
          ITEM   HASHFWORD  U(0,0,60);
          ITEM   DNTHASHPTR U(0,0,30);
          ITEM   PNTHASHPTR U(0,30,30); 
   END
          CONTROL LIST;      #HASHTAB#
