;*; 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
