*DECK QDHSHQ2                                                           000400
           IDENT QDHSHQ2                                                000380
          ENTRY  HRSLT1 
          ENTRY  HRSLT2 
          ENTRY  HASHDL 
HRSLT1    DATA   0
HRSLT2    DATA   0
CHASH     DATA   .0019569E-48 
HASHDL    DATA   0
          SA4    X1                                                     000120
          SA5    X4                                                     000140
          SA2    A1+1                                                   000280
          SA3    X2                                                     000290
          SX2    X3-1                                                   000300
          ZR     X2,ONEWD                                               000310
          SA4    A5+1        FOLD THE FIRST TWO WORDS OF THE NAME INTO
*                            THE FIRST WORD 
          IX5    X5+X4
ONEWD     BX4    X5 
          MX6    30 
          LX5    30 
          IX5    X5+X4
          BX5    -X6*X5      MASK OF L.O. 30 BITS OF X5 
          PX5    X5          PACK 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 
          END 
