.TITLE	HASH		
; JEFFREY KODOSKY	ARL	NOV75
;
; UTILITY:	HASH LITERAL ATOM PNAME
; ENTRY:	1 ARG		<LITATM>
; EXIT:		1 ARG		<LITATM>
;		1 ARG (SP)	HASH CELL * 4
; ERRORS:	NONE
; CALLS:	NONE
; R2,R3 PRESERVED
	.GLOBL	HASH
HASH:	CLR	-(SP)	;WORK SPACE
	MOV	@R5,R0	;GET POINTER TO PNAME STRING
HASH01:	MOV	@R0,R0	;GET POINTER TO NEXT CELL
	BIC	#3,R0
	BEQ	HASH02	;JUMP IF DONE
	MOVB	2(R0),R1;HASH TWO CHARACTERS
	ADD	R1,@SP
	MOVB	3(R0),R1
	ADD	R1,@SP
	BR	HASH01
HASH02:	BIC	#177740,@SP	;SAVE 5 BIT BUCKET NUMBER
	ASL	@SP	;MULTIPLY BY 4
	ASL	@SP
	JMP	@-(R4)
	.END