'<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>