mirror of
https://github.com/PDP-10/its.git
synced 2026-01-20 17:58:40 +00:00
27 lines
484 B
Plaintext
27 lines
484 B
Plaintext
'<PCODE "1APPEN">
|
|
|
|
<PACKAGE "OPEN-APPEND">
|
|
|
|
<ENTRY OPEN-APPEND>
|
|
|
|
<SETG RNAME1 7>
|
|
|
|
<SETG RNAME2 8>
|
|
|
|
<SETG RDEVICE 9>
|
|
|
|
<SETG RDIRECTORY 10>
|
|
|
|
<SETG CBUF "UGBUG">
|
|
|
|
<GDECL (CBUF) STRING>
|
|
|
|
<MANIFEST RNAME1 RNAME2 RDEVICE RDIRECTORY>
|
|
|
|
<SETG OPEN-APPEND %<RSUBR!- '[ %<PCODE!- "1APPEN" 0> OPEN-APPEND #DECL ("VALUE"
|
|
<OR CHANNEL FALSE> "TUPLE" TUPLE) "READB" %<RGLOC CBUF T> "PRINTO" "PRINTB"]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,OPEN-APPEND PGLUE ![1069547520!]>>
|
|
|
|
|
|
<ENDPACKAGE>
|