1                                  
     2                                  	%macro hashdef 2+.nolist
     3                                  %ifempty %2
     4                                   %assign _%1 1
     5                                  %else
     6                                  %ifstr %2
     7                                   %define %%string %2
     8                                  %elifid %2
     9                                   %defstr %%string %2
    10                                  %elifnum %2
    11                                   %defstr %%string %2
    12                                  %eliftok %2
    13                                   %defstr %%string %2
    14                                  %else
    15                                   %error Unknown input
    16                                  %endif
    17                                  %strlen %%length %%string
    18                                  %assign %%hash 1
    19                                  %assign %%index 1
    20                                  %rep %%length
    21                                   %substr %%char %%string %%index
    22                                   %assign %%hash (%%hash * 31 + %%char) & 0FFFFh
    23                                   %assign %%index %%index + 1
    24                                  %endrep
    25                                  %assign _%1 %%hash
    26                                  %endif
    27                                  	%endmacro
    28                                  
    29                                  hashdef HASH, createPSP_36
    30 00000000 B213                    	dw _HASH
    31