*COMDECK HASHCOM
#     THIS IS THE HASH FUNCTION FOR SYMBOL TABLE NAME ENTRIES.         #
  
      DEF STHASH( Q )       #  B<0,7>Q LXR B<7,7>Q LXR B<14,7>Q LXR 
                               B<21,7>Q LXR B<53,7>Q #; 
  
