;=============================================================================
;  SLP @[12,41]MC2INSMOD.SLP   MC2 Support Mods. to INStall
;=============================================================================
OU:[12,11]INSHD.MAC;2/AU/-BF=IN:[12,10]INSHD.MAC;1
\
-2,2
	.IDENT	/09.E/
-10,10
; VERSION:	09.E
-32
;	SNLL		29-JUN-82
;		SNLL05	-- Add MC2 support.
;
%
-251,,/;SNLL05/
	BIT	#40000,$FLGS	; "/RUN = REX"?
	BEQ	155$		; NO
	BIS	#2,T.ST3(R0)	; Yes, Set delayed T3.REM bit.
	BR	170$		; Don't start TASK yet.

155$:				; Ref Label
/

;=============================================================================
OU:[12,11]INSLB.MAC;2/AU/-BF=IN:[12,10]INSLB.MAC;1
\
-2,2
	.IDENT	/04.06E/
-10,10
; VERSION:	04.06E
-59
;	SNLL		29-JUN-82
;		SNLL05	-- Add MC2 support.
;
%
-282,282,/;SNLL05/
	MOV	#ASNAM+1,R0	;  Get buffer address
-288,291,/;SNLL05/
	MOV	R1,T.NAM+2(R4)	; Always make XXXTnn taskname.
	MOV	$FNAME,R0	; Get first 3 char of file name.
	MOV	R0,T.NAM(R4)	;
	MOV	#50,R1		; Get RAD50 divisor
	CALL	$DIV		; See if blanks on end of Taskname
	TST	R1		; Third Digit blank?
	BNE	101$		; No.
	ADD	#34,T.NAM(R4)	; Yes, make it a period
101$:	MOV	#50,R1		; Get RAD50 divisor again
	CALL	$DIV		; Check second char.
	TST	R1		; Blank?
	BNE	10$		; No
	ADD	#2140,T.NAM(R4)	; Yes, Make it a period.
-315,,/;SNLL05/
21$:				; Ref Label
-323,,/;SNLL05/
	TST	$TASK		; Is TASK specified?
	BNE	251$		; Yes.
	BIT	#4,$FLGS	; No, INSTALL, RUN, and REMOVE?
	BEQ	251$		; No.
	CMP	2(R3),#^RZ      ;* Have we tried XXXZ## ?
	BHIS	251$		;* Yes.... Give up.  (Don't create bad names.)
	ADD	#50*50,2(R3)	; No. Try next possible task name
	BR	21$		;  and look again.
251$:				; Ref Label
-504,,/;SNLL05/
	BIT	#40000,$FLGS	; "/RUN=REX" from CA.?
	BNE	493$		; Yes.  Allow it.
/

;=============================================================================
OU:[12,11]INSPS.MAC;2/AU/-BF=IN:[12,10]INSPS.MAC;1
\
-2,2
	.IDENT	/08.E/
-10,10
; VERSION:	08.E
-41
;	SNLL		29-JUN-82
;		SNLL05 -- Add MC2 support.
;
%
-423,423,/;SNLL05/
	BEQ	6$		; Yes, accept it.
	CMPB	-1(R0),#'X	; Is it "REX"?
	BNE	INSPS2		; No.
	BIT	#FE.OFF,$FMASK	; Parent Offspring Tasking?
	BEQ	INSPS2		; No. REX not allowed.
	MOV	$TKTCB,R1	; Yes. Is our parent CA.?
	MOV	T.OCBH(R1),R1
	BEQ	INSPS2		; No parent.
	CMP	#^RCA.,14(R1)	; 1st 3 char.?
	BEQ	5$		; Yes, accept it.
	CMP	#^RCA.,16(R1)	; 2nd 3 char.?
	BNE	INSPS2		; No.  Don't allow it.
5$:	BIS	#40000,$FLGS	; Remember "REX" was entered from MC2.
6$:				; Ref Label
/

;=============================================================================