*COMDECK DDLHASH
           IDENT DLHSHNM                                                000400
          ENTRY HASHNM                                                  045760
 HASHNM   DATA   0                                                      045770
          SA5    X1                                                     045780
          SA4    A1+1                                                   045790
          SA3    X4                                                     045800
          LX3    58                                                     045810
*                            THE FIRST 4 BITS CONTAIN THE LENGTH OF THE 045820
*                            NAME IN WORDS                              045830
          PL     X3,ONEWD    IF SIGN BIT POSITIVE GOTO ONEWD            045840
          SA4    A5+1        FOLD THE FIRST TWO WORDS OF THE NAME INTO  045850
*                            THE FIRST WORD                             045860
          IX5    X5+X4                                                  045870
 ONEWD    BX4    X5                                                     045880
          MX6    30                                                     045890
          LX5    30                                                     045900
          IX5    X5+X4                                                  045910
          BX5    -X6*X5      MASK OF L.O. 30 BITS OF X5                 045920
          PX5    X5          PACK X5 FLOATING                           045930
          SA4    CHASH       CHASH = FP CONSTANT .0019569E-48           045940
          DX5    X5*X4                                                  045950
          MX6    51          GET 1ST 10 BITS FOR HRSLT1                 045960
          AX5    39                                                     045970
          BX7    -X6*X5                                                 045980
          SA4    A1+2                                                   045990
          SA7    X4          SET HRSLT                                  046000
          EQ     HASHNM                                                 046010
 CHASH    DATA   .0019569E-48                                           046020
          END                                                           046030
