mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
17 lines
411 B
Plaintext
17 lines
411 B
Plaintext
'<PCODE "PCOND">
|
|
|
|
<PACKAGE "PCOND">
|
|
|
|
<ENTRY PCOND>
|
|
|
|
<SETG PCOND #MACRO ( %<RSUBR!- '[ %<PCODE!- "PCOND" 0> PCOND #DECL ("VALUE" FORM
|
|
"ARGS" LIST) COND-CODE]>)>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,PCOND PGLUE ![536870912!]>>
|
|
|
|
<SETG COND-CODE %<RSUBR!- '[ %<PCODE!- "PCOND" 36> COND-CODE #DECL ("VALUE"
|
|
FORM LIST) COND T]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,COND-CODE PGLUE ![1006632960!]>>
|
|
|
|
|
|
<ENDPACKAGE>
|