*COMDECK HASHDL                                                         000450
          ENTRY     HASHDL
 HASHDL   BSS       1 
          SA5    HASHNAM     GET THE NAME PREPARED BY DHASH ROUTINE 
          BX4    X5 
          MX6    30 
          LX5    30 
          IX5    X5+X4
          BX5    -X6*X5      MASK OF L.O. 30 BITS OF X5 
          PX5    X5          P1CK X5 FLOATING 
          SA4    CHASH       CHASH = FP CONSTANT .0019569E-48 
          DX5    X5*X4
          MX6    50 
          AX5    28          FULL 20 BIT RESULT IN L.O. OF X5 
          BX7    -X6*X5      GET 2ND 10 BITS FOR HRSLT2 
          SA7    HRSLT2 
          AX5    10          GET  1ST 10 BITS FOR  HRSLT1 
          BX7    -X6*X5 
          SA7    HRSLT1 
          EQ     HASHDL 
          ENTRY  HRSLT1 
          ENTRY  HRSLT2 
          ENTRY  HASHNAM     TO RECEIVE 10 TO 20 CHARACTERS FOLDED
HASHNAM   DATA   0
HRSLT1    DATA   0
HRSLT2    DATA   0
CHASH     DATA   .0019569E-48 
          END 
