;CTRLC - set ctrl^c for a designated job
;
;Written by: Jalal Raissi
;
;Edit History:
; 1.0 09-Jan-84 created. /JER
;
;Format:
; .CTRLC - Sets Ctrl^c for own job
; .CTRLC JOB - Sets Ctrl^c for JOB
; .CTRLC \ - Sets Ctrl^c for of all jobs
; .CTRLC D - Format Display
VMAJOR=1
VMINOR=0
SEARCH SYS
SEARCH SYSSYM
SEARCH TRM
PHDR -1,0,PH$REE!PH$REU
BYP
LIN
BNE OTHER
MYSELF:
JOBIDX A3
ORW #J.CCA,JOBTYP(A3)
ORW #J.CCC,JOBSTS(A3)
MOV #7,D1
TTY
EXIT
OTHER:
CMMB @A2,#'\
JEQ ALL
CMMB @A2,#'U
JEQ DIRECTIONS
LEA A1,BUFFER
PACK
PACK
MOV JOBTBL,A0
SCAN:
MOV (A0)+,A3
MOV A3,D0
BMI NOTF
BEQ SCAN
LEA A4,JOBNAM(A3)
LEA A1,BUFFER
CMM @A1,@A4
BNE SCAN
ORW #J.CCA,JOBTYP(A3)
ORW #J.CCC,JOBSTS(A3)
EXIT
ALL:
MOV JOBTBL,A0
LOOP:
MOV (A0)+,A3
MOV A3,D0
BMI EXIT
BEQ LOOP
ORW #J.CCA,JOBTYP(A3)
ORW #J.CCC,JOBSTS(A3)
LEA A1,JOBNAM(A3)
LEA A2,BUFFER
UNPACK
UNPACK
CLRB @A2
LEA A2,BUFFER
TTYL @A2
CRLF
JMP LOOP
EXIT:
EXIT
BUFFER:
RAD50 / /
EVEN
NOTF:
TYPECR ?Job not found!
MOV #7,D1
TTY
EXIT
DIRECTIONS:
TYPECR
TYPECR <Purpose: SET CTRL^C>
TYPECR <Usage..: CTRLC - Set CTRL^C for own JOB>
TYPECR < CTRLC JOB - Set CTRL^C for any JOB>
TYPECR < CTRLC \ - Set CTRL^C for all JOBS>
TYPECR < CTRLC U - Usage Format>
CRLF
MOV #7,D1
TTY
EXIT
END
