mirror of
https://github.com/PDP-10/its.git
synced 2026-01-27 12:42:10 +00:00
29 lines
1.2 KiB
Plaintext
29 lines
1.2 KiB
Plaintext
'<PCODE "1QPUT">
|
|
<PACKAGE "QPUT">
|
|
|
|
<ENTRY PUTAWAY UNPUTAWAY READ-PUTAWAY UNPUTAWAY-WRITE MAKE-TEMPLATE FALSE-PRIME>
|
|
|
|
<NEWTYPE FALSE-PRIME LIST>
|
|
|
|
<SETG PUTAWAY %<RSUBR!- '[ %<PCODE!- "1QPUT" 0> PUTAWAY #DECL ("VALUE"
|
|
STRUCTURED STRUCTURED STRUCTURED "OPTIONAL" APPLICABLE) ERROR ILLEGAL-FIELD-NAME
|
|
PUTAWAY]>>
|
|
|
|
<SETG READ-PUTAWAY %<RSUBR!- '[ %<PCODE!- "1QPUT" 140> READ-PUTAWAY #DECL (
|
|
"VALUE" STRUCTURED STRUCTURED CHANNEL "OPTIONAL" APPLICABLE <LIST [REST OBLIST]>
|
|
) PUTAWAY OBLIST ERROR (LIST) #FALSE () VECTOR LIST]>>
|
|
|
|
<SETG UNPUTAWAY-WRITE %<RSUBR!- '[ %<PCODE!- "1QPUT" 239> UNPUTAWAY-WRITE #DECL
|
|
("VALUE" ATOM <VECTOR [REST ATOM]> STRUCTURED CHANNEL "OPTIONAL" APPLICABLE <
|
|
LIST [REST OBLIST]>) UNPUTAWAY OBLIST ERROR (LIST) T]>>
|
|
|
|
<SETG UNPUTAWAY %<RSUBR!- '[ %<PCODE!- "1QPUT" 364> UNPUTAWAY #DECL ("VALUE" <
|
|
VECTOR [REST ATOM ANY]> <VECTOR [REST ATOM]> STRUCTURED "OPTIONAL" APPLICABLE)
|
|
ERROR %<TYPE-C FALSE-PRIME LIST> #FALSE () ILLEGAL-FIELD-NAME UNPUTAWAY T]>>
|
|
|
|
<SETG MAKE-TEMPLATE %<RSUBR!- '[ %<PCODE!- "1QPUT" 481> MAKE-TEMPLATE #DECL (
|
|
"VALUE" VECTOR <STRUCTURED [REST ATOM ANY]>) MANIFEST TEMPLATE-INDICES-DIFFER
|
|
MAKE-TEMPLATE]>>
|
|
|
|
<ENDPACKAGE>
|