1                                  
     2                                  [map all t.map]
     3                                  
     4                                  	%macro hashdef 2+.nolist
     5                                  %ifempty %2
     6                                   %assign _%1 1
     7                                  %else
     8                                  %ifstr %2
     9                                   %define %%string %2
    10                                  %elifid %2
    11                                   %defstr %%string %2
    12                                  %elifnum %2
    13                                   %defstr %%string %2
    14                                  %eliftok %2
    15                                   %defstr %%string %2
    16                                  %else
    17                                   %error Unknown input
    18                                  %endif
    19                                  %strlen %%length %%string
    20                                  %assign %%hash 1
    21                                  %assign %%index 1
    22                                  %rep %%length
    23                                   %substr %%char %%string %%index
    24                                   %assign %%hash (%%hash * 31 + %%char) & 0FFFFh
    25                                   %assign %%index %%index + 1
    26                                  %endrep
    27                                  %assign _%1 %%hash
    28                                  %endif
    29                                  	%endmacro
    30                                  
    31                                  hashdef HASH, createPSP_36
    32 00000000 B213                    	dw _HASH
    33                                  
    34                                  %define _LABEL with_umlaut_ä
    35                                  hashdef HASH, _LABEL
    36 00000002 FC35                    	dw _HASH
    37                                  
    38                                  _LABEL:
    39 00000004 90                      	nop