mirror of
https://github.com/PDP-10/its.git
synced 2026-01-24 11:22:36 +00:00
23 lines
638 B
Plaintext
23 lines
638 B
Plaintext
'<PCODE "1AP">
|
|
|
|
<PACKAGE "AP">
|
|
|
|
<ENTRY AP?>
|
|
|
|
<GDECL (EH) HANDLER>
|
|
|
|
<USE "L">
|
|
|
|
<SETG AP? %<RSUBR!- '[ %<PCODE!- "1AP" 0> AP? #DECL ("VALUE" <OR FALSE
|
|
APPLICABLE> ANY) USE L-OBL ERRLOC (ACTIVATION) EH ERROR!-INTERRUPTS "ERROR"
|
|
%<RSUBR!- '[ %<PCODE!- "1AP" 197> ANONF3!-TMP #DECL ("VALUE" ANY "TUPLE" TUPLE)
|
|
#FALSE ("ERROR IN AP?") ERRLOC]> %<RGLOC EH T> #FALSE ("CANNOT FIND ATOM VALUE"
|
|
) #FALSE ("UNUSABLE OBJECT DESCRIPTION") INTERRUPT]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,AP? PGLUE ![738197440!]>>
|
|
|
|
|
|
<SETG INTSET %<RSUBR-ENTRY '[AP? INTSET #DECL ("VALUE" HANDLER ATOM STRING
|
|
APPLICABLE "OPTIONAL" FIX)] 143>>
|
|
|
|
<ENDPACKAGE>
|