*DECK CBHASH                                                            025940
          IDENT CBHASH                                                  025950
         ENTRY CBHASHN                                                  025960
CBHASHN   DATA   0                                                      025970
          SA5    X1                                                     025980
          SA4    A1+1                                                   025990
          SA3    X4                                                     026000
          LX3    58                                                     026010
*                            THE FIRST 4 BITS CONTAIN THE LENGTH OF THE 026020
*                            NAME IN WORDS                              026030
          PL     X3,ONEWD    IF SIGN BIT POSITIVE GOTO ONEWD            026040
          SA4    A5+1        FOLD THE FIRST TWO WORDS OF THE NAME INTO  026050
*                            THE FIRST WORD                             026060
          IX5    X5+X4                                                  026070
 ONEWD    BX4    X5                                                     026080
          MX6    30                                                     026090
          LX5    30                                                     026100
          IX5    X5+X4                                                  026110
          BX5    -X6*X5      MASK OF L.O. 30 BITS OF X5                 026120
          PX5    X5          PACK X5 FLOATING                           026130
          SA4    CHASH       CHASH = FP CONSTANT .0019569E-48           026140
          DX5    X5*X4                                                  026150
          MX6    51          GET 1ST 10 BITS FOR HRSLT1                 026160
          AX5    39                                                     026170
          BX7    -X6*X5                                                 026180
          SA4    A1+2                                                   026190
          SA7    X4          SET HRSLT                                  026200
          EQ     CBHASHN                                                026210
 CHASH    DATA   .0019569E-48                                           026220
          END                                                           026230
