PDP-10.its/bin/librm3/jobs.fbin

'<PCODE "JOBS">
 
<PACKAGE "JOBS">
 
<ENTRY JOB-KILL JOB-LOAD JOB-START JOB-STATUS JOB-STOP PASS-JCL-DOWN RUN
RUN-LISTEN RUN-INF-HANDLER>
 
<USE "ITS" "JOBASS" "STR" "UVHACK">
 
<SETG JOB-KILL %<RSUBR!- '[ %<PCODE!- "JOBS" 0> JOB-KILL #DECL ("VALUE" CHANNEL
CHANNEL) JOB-GET-NUM DTTY ATTY STRTOX ITS-CALL SIXTOS UV-TO-STR
SFTW-INTRPT-DESCRN USET FILE-LOAD JOB-CREATE UPPERCASE UCLOSE "READB" "SYS"
"DSK" "SYS1" "SYS2" "SYS3" "TS" "UPC" "USTP" " PC = *" "USR" [0
" (JOB-STATUS: CHANNEL not open to USR device!?)
"] "FLS" "The process '" "' is running." "PIRQC" "' is continuable."
"' is not continuable." "VAL" "ERROR: " "SV40" "' is finished." [0
" (JOB-STATUS: .BREAK not found where expected!?)
"] ".BREAK executed." [-1
" (JOB-STATUS: Couldn't open channel to process to read .BREAK 12 argument!?)
"] %<RGLOC TUV T> [0 " (JOB-STATUS: .VALUE not found where expected!?)
"] ".VALUE 0 executed." [-1
" (JOB-STATUS: Couldn't open channel to process to read VALRET!?)
"] ![!] "" "." "
:KILL " ":KILL" ![9 10 13 27 32!] %<RGLOC ERRBUF T> %<RGLOC FILEBUF T> "BCHN"
"IOS" "READ" "     $" "     " "ERR" "OPEN " "RENAME"
"DELETE" ": " " - " "unspecified error" "unrecognizable error" "PMAP" T "RFNAME"
#FALSE (0 "PASS-JCL-DOWN: Device is not USR!?
") #FALSE (2 "PASS-JCL-DOWN: Address is not in inferior process!?
") #FALSE (1 "PASS-JCL-DOWN: Couldn't open READB channel to process!?
") "PRINTB" #FALSE (1
"PASS-JCL-DOWN: Couldn't open PRINTB channel to process!?
") %<RGLOC RUN-LISTEN T> JOBCHAN (<OR CHANNEL FALSE>) "FILE NOT FOUND"
"INFERIOR" %<RGLOC RUN-INF-HANDLER T> "OPTIO" "SNAM" "TTY" #FALSE (
"RUN couldn't assign terminal to process!?
") %<RGLOC INCHAN T> RUNACT (ACTIVATION) "APIRQ" "JOB-STATUS code:" OUTCHAN (
CHANNEL)
"ERRET a FALSE to destroy the process.
ERRET a non-FALSE to continue running the process."]>>
<AND <ASSIGNED? GLUE> .GLUE <PUT ,JOB-KILL PGLUE ![715827887 -1 -1 -1 -1
-4294967296!]>>
 
 
<SETG JOB-LOAD %<RSUBR-ENTRY '[JOB-KILL JOB-LOAD #DECL ("VALUE" <OR CHANNEL
FALSE> STRING STRING STRING "OPTIONAL" STRING)] 14>>
 
<SETG JOB-START %<RSUBR-ENTRY '[JOB-KILL JOB-START #DECL ("VALUE" FIX CHANNEL)]
171>>
 
<SETG JOB-STOP %<RSUBR-ENTRY '[JOB-KILL JOB-STOP #DECL ("VALUE" FIX CHANNEL)]
190>>
 
<SETG JOB-STATUS %<RSUBR-ENTRY '[JOB-KILL JOB-STATUS #DECL ("VALUE" <VECTOR FIX
<OR FIX STRING WORD <UVECTOR [REST <OR FIX WORD>]>>> <CHANNEL FIX>)] 209>>
 
<SETG GET-BREAK %<RSUBR-ENTRY '[JOB-KILL GET-BREAK #DECL ("VALUE" <VECTOR FIX <
OR STRING <UVECTOR [REST <OR FIX WORD>]>>> CHANNEL <OR WORD FIX> STRING STRING)]
497>>
 
<SETG GET-VALUE %<RSUBR-ENTRY '[JOB-KILL GET-VALUE #DECL ("VALUE" <VECTOR FIX
STRING> <CHANNEL FIX> STRING STRING)] 691>>
 
<SETG ERRBUF <ISTRING 50>>
 
<SETG FILEBUF <IUVECTOR 4 0>>
 
<SETG GET-LOSE %<RSUBR-ENTRY '[JOB-KILL GET-LOSE #DECL ("VALUE" STRING CHANNEL <
PRIMTYPE WORD>)] 1017>>
 
<SETG TUV ![0!]>
 
<GDECL (TUV) <UVECTOR [REST FIX]>>
 
<SETG GET-CONTENTS %<RSUBR-ENTRY '[JOB-KILL GET-CONTENTS #DECL ("VALUE" <OR
FALSE FIX> CHANNEL FIX)] 1320>>
 
<SETG GET-EFFECTIVE-ADDRESS %<RSUBR-ENTRY '[JOB-KILL GET-EFFECTIVE-ADDRESS #DECL
("VALUE" <OR FALSE FIX> CHANNEL <OR FIX FALSE>)] 1366>>
 
<SETG GET-CALL-ARGS %<RSUBR-ENTRY '[JOB-KILL GET-CALL-ARGS #DECL ("VALUE" ATOM
CHANNEL FIX <UVECTOR [REST FIX]>)] 1443>>
 
<SETG READ-FILE-NAME %<RSUBR-ENTRY '[JOB-KILL READ-FILE-NAME #DECL ("VALUE" <OR
ATOM <FALSE FIX STRING>> CHANNEL <PRIMTYPE WORD> <UVECTOR [REST FIX]>)] 1526>>
 
<SETG CONVERT-FILE-NAME %<RSUBR-ENTRY '[JOB-KILL CONVERT-FILE-NAME #DECL (
"VALUE" STRING <UVECTOR [4 FIX]>)] 1549>>
 
<SETG GET-INTERRUPT %<RSUBR-ENTRY '[JOB-KILL GET-INTERRUPT #DECL ("VALUE" STRING
FIX)] 1620>>
 
<SETG PASS-JCL-DOWN %<RSUBR-ENTRY '[JOB-KILL PASS-JCL-DOWN #DECL ("VALUE" <OR
FIX !<FALSE FIX STRING!>> STRING CHANNEL FIX)] 1645>>
 
<SETG RUN %<RSUBR-ENTRY '[JOB-KILL RUN #DECL ("VALUE" <OR FALSE FIX STRING
UVECTOR WORD> <OR STRING ATOM> "OPTIONAL" STRING STRING APPLICABLE ANY STRING)]
1854>>
 
<SETG RUN-LISTEN %<RSUBR-ENTRY '[JOB-KILL RUN-LISTEN #DECL ("VALUE" ANY CHANNEL
STRING)] 2242>>
<SETG RUN-INF-HANDLER %<RSUBR-ENTRY '[JOB-KILL RUN-INF-HANDLER #DECL ("VALUE"
ANY FIX)] 2282>>
 
<ENDPACKAGE>