mirror of
https://github.com/PDP-10/its.git
synced 2026-02-24 00:02:14 +00:00
42 lines
1.4 KiB
Plaintext
42 lines
1.4 KiB
Plaintext
'<PCODE "1RQFILE">
|
||
|
||
<PACKAGE "RQFILE">
|
||
|
||
<ENTRY NXUNQ RQOPEN RQCLOSE RQNEXT RQDONE RQNUMB RQDELE RQRCVR>
|
||
|
||
<USE "LIBDAT" "CHAN">
|
||
|
||
<SETG NXUNQ %<RSUBR!- '[ %<PCODE!- "1RQFILE" 0> NXUNQ #DECL ("VALUE" ANY STRING
|
||
) FILSTR %<RGLOC OPSYS T> "READ" ">" TO " >" "FILE NOT FOUND" FILE-NOT-FOUND
|
||
CANNOT-OPEN-CONTROL-FILE NXUNQ TENEX-SYSTEM-UNIMPLEMENTED "PRINT" "_RQST_"
|
||
FILENAME " " CANNOT-OPEN-REQUEST-FILE RQOPEN RENAME-OF-TEMPORARY-FAILED RQCLOSE
|
||
"<" RENAME-FAILED RQDONE RQNUMB T "FILE ALREADY EXISTS" DELETE-FAILED RQRCVR]>>
|
||
<AND <ASSIGNED? GLUE> .GLUE <PUT ,NXUNQ PGLUE ![805306367 -4096!]>>
|
||
|
||
|
||
\
|
||
|
||
<SETG RQOPEN %<RSUBR-ENTRY '[NXUNQ RQOPEN #DECL ("VALUE" CHANNEL STRING
|
||
"OPTIONAL" STRING)] 101>>
|
||
|
||
<SETG RQCLOSE %<RSUBR-ENTRY '[NXUNQ RQCLOSE #DECL ("VALUE" CHANNEL CHANNEL)] 182
|
||
>>
|
||
|
||
<SETG RQNEXT %<RSUBR-ENTRY '[NXUNQ RQNEXT #DECL ("VALUE" <OR CHANNEL FALSE>
|
||
STRING)] 229>>
|
||
|
||
<SETG RQDONE %<RSUBR-ENTRY '[NXUNQ RQDONE #DECL ("VALUE" ANY CHANNEL STRING
|
||
"OPTIONAL" STRING)] 259>>
|
||
|
||
<SETG RQNUMB %<RSUBR-ENTRY '[NXUNQ RQNUMB #DECL ("VALUE" FIX STRING)] 333>>
|
||
|
||
<SETG RQDELE %<RSUBR-ENTRY '[NXUNQ RQDELE #DECL ("VALUE" FIX STRING)] 406>>
|
||
|
||
<SETG RQRCVR %<RSUBR-ENTRY '[NXUNQ RQRCVR #DECL ("VALUE" FIX STRING STRING
|
||
"OPTIONAL" <OR 'T FALSE> <OR 'T FALSE>)] 463>>
|
||
|
||
<DEFMAC FILCHN ('CH) <FORM FILSTR <FORM RNAME1 .CH> <FORM RNAME2 .CH> <FORM
|
||
RDEVICE .CH> <FORM RDIRECTORY .CH>>>
|
||
|
||
<ENDPACKAGE>
|