*DECK QDLHSH9                                                           000270
          IDENT QDLHSH9                                                 000360
          ENTRY     HASH
          ENTRY  HRSLT
HRSLT     DATA
 CHASH    DATA      .0019569E-48
 HASH     DATA      0 
* ENTERING HASH ADDRESS OF WRDSAVE IS IN B7 - UNUSED WORDS OF NAME
          SA1    X1 
          SB7    X1             THE NAME LOCATION 
          SA5       B7                  .CURNWD FROM B7 INTO X5 
          BX3       X5
          LX3       4                   .SHIFT 4 H.O. DIGITS OFF CURNWD 
          PL        X3,ONEWD            .IF SIGN BIT POSITIVE GO TO ONEW
          SA4       A5+1                .ADD TWO WORDS IN CURNWD
          IX5       X5+X4 
 ONEWD    BX4       X5                  .X5 INTO X4 
          MX6       30
          LX5       30
          IX5       X5+X4 
          BX5       -X6*X5              .MASK OFF L.O. 30 BITS OF X5
          PX5       X5                  .PACK X5 FLOATING 
          SA4       CHASH               .CHASH=FP CONSTANT .0019569E-48 
          DX5       X5*X4 
          MX6       51
          AX5       39                  .CHARACTERISTIC IS IN 1ST 12 BIT
          BX5       -X6*X5              .1ST 9 H.O.CHARACTERS NOW IN L.O
          SB7       X5
* THE 9-BIT RESULT (HASH POINTER) IS IN L.O. OF B7
          BX6    X5 
          SA6    HRSLT
          EQ        B0,B0,HASH
          END 
