mirror of
https://github.com/PDP-10/its.git
synced 2026-01-19 17:39:17 +00:00
16 lines
335 B
Plaintext
16 lines
335 B
Plaintext
'<PCODE "UVHACK">
|
|
|
|
<PACKAGE "UVHACK">
|
|
|
|
<ENTRY UV-TO-STR STR-TO-UV>
|
|
|
|
<SETG UV-TO-STR %<RSUBR!- '[ %<PCODE!- "UVHACK" 0> UV-TO-STR #DECL ("VALUE"
|
|
STRING UVECTOR)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,UV-TO-STR PGLUE ![0!]>>
|
|
|
|
|
|
<SETG STR-TO-UV %<RSUBR-ENTRY '[UV-TO-STR STR-TO-UV #DECL ("VALUE" UVECTOR
|
|
STRING)] 31>>
|
|
|
|
<ENDPACKAGE>
|