You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
854 B
41 lines
854 B
#include "mbrmake.h"
|
|
WORD HashAtomStr (char *pStr) {
|
|
|
|
WORD hash = 0;
|
|
while (*pStr)
|
|
hash += (hash << 5) + *pStr++;
|
|
|
|
return (hash % (MAXSYMPTRTBLSIZ-1));
|
|
}
|
|
|
|
#if rjsa
|
|
HashAtomStr PROC NEAR USES DS SI, npsz:DWORD
|
|
xor ax,ax ; (ax) = byte-extended-to-word
|
|
mov cx,ax ; (cx) = hash
|
|
mov dx,ax ; (dx) = high part for later div
|
|
cld
|
|
lds si,npsz ; (si) = pointer to string
|
|
align 4
|
|
hfs1: lodsb ; get next byte
|
|
or al,al ; are we at end of string?
|
|
jz hfs2 ; yes, compute div and we're done
|
|
mov bx,cx
|
|
shl bx,1
|
|
shl bx,1
|
|
shl bx,1
|
|
shl bx,1
|
|
shl bx,1
|
|
add cx,bx ; (newcx) = (oldcx) + (oldcx) << 5
|
|
add cx,ax ; (cx) += (cx) << 5 + (ax)
|
|
jmp hfs1
|
|
|
|
hfs2: mov ax,4094 ; magic divider
|
|
xchg ax,cx ; (dx:ax) = number, (cx) = dividend
|
|
div cx
|
|
mov ax,dx
|
|
ret
|
|
HashAtomStr ENDP
|
|
|
|
end
|
|
|
|
#endif
|