mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
18 lines
474 B
Plaintext
18 lines
474 B
Plaintext
'<PCODE "HASH">
|
|
|
|
<PACKAGE "HASH">
|
|
|
|
<ENTRY HASH>
|
|
|
|
<NEWTYPE HASH WORD>
|
|
|
|
<SETG HASH %<RSUBR!- '[ %<PCODE!- "HASH" 0> HASH #DECL ("VALUE" HASH ANY) ANY
|
|
WRONG-TYPE!-ERRORS HASH %<TYPE-W HASH WORD> T MACRO %<RGLOC
|
|
FAST-MACROER!-IFMACRO!-FMACRO!-PACKAGE T> %<RGLOC APPLY T> %<RGLOC
|
|
FAST-MACRO!-IFMACRO!-FMACRO!-PACKAGE T> "DONE" %<TYPE-W
|
|
NORMAL-MACRO!-IFMACRO!-FMACRO!-PACKAGE LIST> EXPAND]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,HASH PGLUE ![1073741760!]>>
|
|
|
|
|
|
<ENDPACKAGE>
|