;hash.inc							2005-09-05
;hashcode einer zeichenkette ausrechnen
getCode:	;liefert code eines zeichens aus einer reihe
		;übergabe
		; s1 = zeichen (nur das erste zeichen im register wird ausgewertet)
		;rückgabe
		; z-flag gesetzt, wenn zeichen alphanumerisch ist,
		; dann
		; n1 = code
		rsave s1
		rsave s2
		lmid s1,s1,1,1		;nur das erste zeichen
		lr 2,"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
		instr 1,s2,s1
		call invZFlag
		ret
hashCode:	;hash ermitteln
		;übergabe
		; s1 = id
		; n1 = basis
		;übergabe
		; z-flag gesetzt, wenn gültig,
		; dann
		; n1 = hash
		rsave s1
		rsave s2
		rsave n2		;iterator
		rsave n3		;länge
		rsave n8		;basis
		rsave n9		;summe
		
		lnr 2,#1
		lnrls 3,s1
		lnr 8,1
		lnr 9,#0
		repeat
		  lmid s1,s2,[2],1
		  call getCode
		  retc nz
		  mul 9,#32
		  add 9,1
		  lnr 1,9
		  div 1,8
		  int 1
		  mul 1,8
		  sub 9,1		; n9 %= n8
		  inc 2
		  cnr 2,3
		until p
		lnr 1,9
		call setZFlag
		ret