;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

.