[map all t.map]

	%macro hashdef 2+.nolist
%ifempty %2
 %assign _%1 1
%else
%ifstr %2
 %define %%string %2
%elifid %2
 %defstr %%string %2
%elifnum %2
 %defstr %%string %2
%eliftok %2
 %defstr %%string %2
%else
 %error Unknown input
%endif
%strlen %%length %%string
%assign %%hash 1
%assign %%index 1
%rep %%length
 %substr %%char %%string %%index
 %assign %%hash (%%hash * 31 + %%char) & 0FFFFh
 %assign %%index %%index + 1
%endrep
%assign _%1 %%hash
%endif
	%endmacro

hashdef HASH, createPSP_36
	dw _HASH

%define _LABEL with_umlaut_ä
hashdef HASH, _LABEL
	dw _HASH

_LABEL:
	nop