mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 15:27:28 +00:00
105 lines
4.1 KiB
Plaintext
105 lines
4.1 KiB
Plaintext
'<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>
|