;*; Updated on 06-Dec-91 at 9:54 AM by Michele Tonti; edit time: 0:00:15
;*************************** AMUS Program Label ******************************
; Filename: NCTRC2.M68                                      Date: 12/6/91
; Category: UTIL         Hash Code: 747-661-462-217      Version: 1.0            
; Initials: KUNI/AM      Name: RENE S. HOLLAN
; Company: UDISCO LTD.                             Telephone #: 5144818107
; Related Files: CTRLC2.M68
; Min. Op. Sys.:                               Expertise Level: 
; Special: 
; Description: Turns off the ^C bit of another job.
; 
; 
;*****************************************************************************
;************************************************************************
;									*
;			NCTRLC COMMAND PROGRAM				*	
;									*
;************************************************************************
;
;                                   NOTICE
;
;All    rights   reserved.  This software is the property of UDISCO LTD.  and
;the material contained herein is  the   proprietary   property   and   trade
;secrets    of    UDISCO  LTD.,  embodying  substantial  creative efforts and
;confidential information, ideas and expressions, no part of  which  may   be
;reproduced   or  transmitted  in  any  form  or  by  any  means, electronic,
;mechanical,  or  otherwise,  including  photocopying  or  input  into    any
;information   storage  or  retrieval  system  without  the  express  written
;permission of UDISCO LTD.
;
;Permission to copy and use is granted to AMUS members for non commercial 
;purposes only.
;
;	AUTHOR:		Rene S. Hollan
;	DATE WRITTEN:	Feb. 13, 1984
;
;	COPYRIGHT (C) - 1983 - UDISCO LTD.
;
;		This program will clear the ^C enable bit of another job.
;
;		Syntax:	NCTRLC jobname
;
;Edit history
;
;[100]	13 February 84
;	Coding starts. /RSH	
;

	SEARCH	SYS
	SEARCH	SYSSYM

V.MAJOR=1				; major version
V.MINOR=0				; minor version
V.SUB=0					; sub version
V.EDIT=100				; edit version

.OFINI					; base of impure area
.OFDEF	JNAME,6				; remote job name
.OFSIZ	IMPSIZ				; impure area size

CTRLC:	PHDR	-1,PV$WSM,PH$REU!PH$REE	; program header
	GETIMP	IMPSIZ,A5		; get impure memory
	FILNAM	JNAME(A5),MAC
	MOV	JNAME(A5),D3		; check if it's legal
	BNE	10$			; yup

	TYPECR	<CTRLC: syntax - CTRLC JOBNAME.>
	EXIT

10$:	MOV	JOBTBL,A1		; A1 --> base of job table

20$:	MOV	@A1,A0			; A0 --> a job control block
	MOV	A0,D1			; is this a legal JCB pointer?
	BMI	30$			; nope - end of table
	BEQ	40$			; nope - no entry allocated here
	CMP	D3,JOBNAM(A0)		; do job names match?
	BEQ	50$			; yup! - found the job!
40$:	ADD	#4,A1			; nope - try again
	BR	20$

30$:	TYPECR	<CTRLC: job not found.>
	EXIT

50$:	ANDW	#-<1+J.CCA>,JOBTYP(A0)	; clear ^C bit
	EXIT

.