*COMDECK SDAHASH
*                            INPUT.    X3 = KEY LENGTH, CHARACTERS. 
*                                      X4 = KEY ADDRESS.
*                                      X5 = HMB.
*                            OUTPUT    X6 = BLOCK ORDINAL. (0 TO HMB-1) 
* 
          DATA   7LSDAHASH
 SD$HASH  BSS    0
 SDAHASH
          SA4    X4 
          SX3    X3-1 
          MX6    0
+         SX3    X3-10
          IX6    X6+X4
          SA4    A4+B1
          PL     X3,*-1 
         MX4     40 
          LX4    48 
         BX4     X4*X6
          ZR     X4,SDAHASH 
         PX5     B1,X6
          AX6     10
           AX5    1 
         PX6     B1,X6
           AX6    1 
          FX6     X5/X6 
          IX5    X5-X6
          LX5    29 
          IX6    X5+X6
          EQ     SDAHASH
          EJECT 
