mirror of
https://github.com/PDP-10/its.git
synced 2026-01-26 20:22:22 +00:00
25 lines
786 B
Plaintext
25 lines
786 B
Plaintext
'<PCODE "COMMUD">
|
|
|
|
<PACKAGE "COMMUD">
|
|
|
|
<ENTRY COMMUD>
|
|
|
|
<SETG FILE "SYS;TS MUDCOM">
|
|
|
|
<SETG ERRS ["Self Comparison" "Bad JCL" "Syntax Error" "Open Fail" "BUG"
|
|
"No Differences" "No Similarities"]>
|
|
|
|
<SETG COMMUD %<RSUBR!- '[ %<PCODE!- "COMMUD" 0> COMMUD #DECL ("VALUE" <OR FALSE
|
|
LIST> STRING) OPENF JOB (FIX) "More than 1 COMMUD?" %<RGLOC FILE T> "INFERIOR"
|
|
%<RGLOC HANDY T> WAIT (ACTIVATION) %<RGLOC ERRS T> T "COMMUD" "PRINTB" "USR" %<
|
|
RGLOC SNM T> #FALSE ("MODE NOT AVAILABLE") "READB" CORBLK-FAILED!-ERRORS
|
|
LOAD-FAILED!-ERRORS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,COMMUD PGLUE ![805306367 -268435456!]>>
|
|
|
|
|
|
<SETG HANDY %<RSUBR-ENTRY '[COMMUD HANDY #DECL ("VALUE" ANY FIX)] 258>>
|
|
|
|
<SETG OPENF %<RSUBR-ENTRY '[COMMUD OPENF #DECL ("VALUE" ANY "TUPLE" ANY)] 353>>
|
|
|
|
<ENDPACKAGE>
|