mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
40 lines
1.6 KiB
Plaintext
40 lines
1.6 KiB
Plaintext
'<PCODE "STINK">
|
|
<PACKAGE "STINK">
|
|
|
|
<ENTRY STINK UNSQUOZE SQUOZEBITS SYMTAB SYMPRINT>
|
|
|
|
<SETG SYMTAB <MOBLIST SYMTAB>>
|
|
|
|
<SETG SCRATCHUV <REST <IUVECTOR 20 0> 20>>
|
|
|
|
<GDECL (SCRATCHUV) <UVECTOR [REST FIX]> (SYMTAB) OBLIST>
|
|
|
|
<SETG STINK %<RSUBR!- '[ %<PCODE!- "STINK" 0> STINK #DECL ("VALUE" FIX CHANNEL
|
|
<STORAGE [REST FIX]> "OPTIONAL" ANY) #FALSE () %<RGLOC SCRATCHUV T> RB %<RGLOC
|
|
SYMTAB T> SQB SYMPRINT T OUTCHAN "SYMBOL :" " = " C]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,STINK PGLUE ![1073741568!]>>
|
|
|
|
<SETG SYMINSERT %<RSUBR-ENTRY '[STINK SYMINSERT #DECL ("VALUE" ANY FIX FIX ANY <
|
|
OR FALSE OBLIST> <PRIMTYPE WORD>)] 260>>
|
|
|
|
<SETG GETWD %<RSUBR-ENTRY '[STINK GETWD #DECL ("VALUE" FIX CHANNEL)] 378>>
|
|
|
|
<SETG UNSQUOZE %<RSUBR-ENTRY '[STINK UNSQUOZE #DECL ("VALUE" STRING <PRIMTYPE
|
|
WORD> "OPTIONAL" STRING)] 490>>
|
|
|
|
<SETG SQUOZEBITS %<RSUBR-ENTRY '[STINK SQUOZEBITS #DECL ("VALUE" FIX <PRIMTYPE
|
|
WORD>)] 667>>
|
|
|
|
<SETG RELOCATE %<RSUBR-ENTRY '[STINK RELOCATE #DECL ("VALUE" FIX <PRIMTYPE WORD>
|
|
<PRIMTYPE WORD> <PRIMTYPE WORD> <PRIMTYPE WORD>)] 680>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,STINK GLUE ![336613655 12956484676 52224
|
|
201326849 18538824724 16777220 85 1144000704 4496299012 1879310608 -17175478271
|
|
17039365 17196646420 285561856 0 17536663664 16778496 318963717 3339842900
|
|
3476042688 201408512 1094987888 3233808576 8523661312 327760 87489 3221225728
|
|
1314897 5372907536 67112132 13354778640 -15300362240 13358926961 1125925132
|
|
7517503488 -17179869120 1343488000 268763136 67387392 4097 16842751 524302
|
|
786444 1310992 262526 262648 524790 262815 1049266!]>>
|
|
|
|
<ENDPACKAGE>
|