mirror of
https://github.com/PDP-10/its.git
synced 2026-03-01 17:47:32 +00:00
28 lines
1010 B
Plaintext
28 lines
1010 B
Plaintext
'<PCODE "1ALLGS">
|
||
|
||
<PACKAGE "ALLGS">
|
||
|
||
<ENTRY PALLGS>
|
||
|
||
<SETG PALLGS %<RSUBR!- '[ %<PCODE!- "1ALLGS" 0> PALLGS #DECL ("VALUE" <VECTOR
|
||
FIX [3 FIX] [REST FIX]> "OPTIONAL" <OR STRING CHANNEL> ANY) %<RGLOC &1 T>
|
||
OUTCHAN (CHANNEL) "PRINT" " #UNBOUND *000000000000*" "(Manifested)"
|
||
"There are " " slots. " " are occupied; " " have values; and " " have decls."
|
||
BAD-ARG-TO-GETDECL]>>
|
||
<AND <ASSIGNED? GLUE> .GLUE <PUT ,PALLGS PGLUE ![1073741760!]>>
|
||
|
||
<AND <ASSIGNED? GLUE> .GLUE <PUT ,PALLGS GLUE ![4379120913 21831401476
|
||
1145434172 4581246224 33286262784 88097028 71307332 17179869184 18253611025
|
||
5435879424 1140916240 -4293914621 -17179865344 251658480 15729745 4 16 267332
|
||
4296093764 1140850687 20 262160 524302 305 262460 262477!]>>
|
||
|
||
<SETG ALLGS %<RSUBR-ENTRY '[PALLGS ALLGS #DECL ("VALUE" VECTOR)] 303>>
|
||
|
||
<SETG GETATOM %<RSUBR-ENTRY '[PALLGS GETATOM #DECL ("VALUE" <OR ATOM FALSE> ANY)
|
||
] 312>>
|
||
|
||
<SETG GETDECL %<RSUBR-ENTRY '[PALLGS GETDECL #DECL ("VALUE" <OR DECL '#FALSE ()>
|
||
ANY)] 329>>
|
||
|
||
<ENDPACKAGE>
|
||
|