;  [12,41]MC2ICPMOD.SLP
;==============================================================================
; SLP @[12,41]MC2ICPMOD.SLP       AT. Mods & MC2 Support Mods
;==============================================================================
OU:[12,11]ICPPRE.MAC;2/AU/-BF=IN:[12,10]ICPPRE.MAC;1
\
-27,27
	.IDENT	/6.2E/
-32
; SNLL01	29-JUN-82	Make .ENABLE/.DISABLE defaults easy to modify.
;				Change .ENABLE/.DISABLE  defaults to:
;				       .ENABLE SUBSTITUTION & GL0BAL
;
; SNLL02	29-JUN-82	Add /QU switch
;
%
-326,326,/;SNLL02/
	EN.QFG =  2000		; QUiet flag was set
-329,329,/;SNLL02/
	EN.XXX = 20000		; *** Warning ***  Don't use for Switch  
-335,335,/;SNLL01/
;
; Move  EN.INI to ROOT and make it GLOBAL to make the initial setting 
;		  	   easy to modify.
;
;**	EN.INI = EN.CAS!EN.SUB!EN.GLS	; Initial value at the beginning of each file.
/

;==============================================================================
OU:[12,11]ICPROT.MAC;2/AU/-BF=IN:[12,10]ICPROT.MAC;1
\
-2,2
	.IDENT	/5.01E/
-13
; SNLL01	29-JUN-82	Move  EN.INI to ROOT and make it GLOBAL,
;				    to make the initial setting easy to modify.
;
; SNLL02	29-JUN-82	Add /QU switch
;
%
-159,,/;SNLL01/
;	See module ICPPRE for bit assignments.

	EN.INI == EN.CAS!EN.SUB!EN.GLS	

$ENINI::.WORD	EN.INI		; Initial value at the beginning of each file.
-203,,/;SNLL02/
	BIT	#EN.QFG,LIFLGA	; Was QUiet flag set?
	BEQ	45$		;  No
	BIS	#EN.QUI,LIFLGA	;  Yes, Enable Quiet Mode
	BIC	#EN.QFG,LIFLGA	; Cleanup
45$:
/

;==============================================================================
OU:[12,11]ICPERR.MAC;2/AU/-BF=IN:[12,10]ICPERR.MAC;1
\
-2,2
	.IDENT	/5.1E/
-12
;	SNLL03	29-JUN-82  Don't display EOF in QUIET mode.
;
%
-187,187,/;SNLL03/
	CALL	PRMSG3		; Print after prompt
/

;==============================================================================
OU:[12,11]ICPFDC.MAC;2/AU/-BF=IN:[12,10]ICPFDC.MAC;1
\
-2,2
	.IDENT	/05.00E/
-28
;  MODIFICATIONS:
;
;	SNLL01	29-JUN-82  Make .ENABLE/.DISABLE defaults easy to modify.
;
;	SNLL03	29-JUN-82  Don't display EOF in QUIET mode.
;
%
-81,,/;SNLL03/
	CMPB	#1, INDDEP	; Top level yet?
	BNE	175$		; If NE,  NO -- Go on.
	MOV	.LIFLG,R5	; Get  switches
	BIC	#^C<EN.QUI>,R5	; Mask off all but  Quiet Bit
	BIS	R5,(R2)		; Set it now if  it was set
175$:
-158,158,/;SNLL01/
	BIS	$ENINI,R2	; Apply initial values.
/

;==============================================================================
OU:[12,11]ICPFIL.MAC;2/AU/-BF=IN:[12,10]ICPFIL.MAC;1
\
-2,2
	.IDENT	/05.00E/
-6
; MODIFICATIONS:
;
;	SNLL02	29-JUN-82  ADD /QU SWITCH
;
%
-25,,/;SNLL02/
	CSI$SW	QU,EN.QFG,LIFLGA,SET		; /QU  Quiet mode (/-QU not valid)
-45,45
/

;==============================================================================
OU:[12,11]ICPIN2.MAC;2/AU/-BF=IN:[12,10]ICPIN2.MAC;1
\
-2,2
	.IDENT	/05.00E/
-7
; MODIFIED BY:
;
;	SNLL01	29-JUN-82  Make .ENABLE/.DISABLE defaults easy to modify.
;
%
-38,38,/;SNLL01/
	MOV	$ENINI,LIFLGA	; Initialize Switch Values
/

;==============================================================================
OU:[12,11]ICPMCR.MAC;2/AU/-BF=IN:[12,10]ICPMCR.MAC;1
\
-2,2
	.IDENT	/5.2E/
-15
; SNLL04	29-JUN-82	Send ";*" comments to terminal, even in QUIET mode.
%
-56,56,/;SNLL04/
	BEQ	33$
-69,70,/;SNLL04/
	BR	33$

30$:	CMPB	1(R1),#'*	; Is it a ";*" comment?
	BNE	33$		; If NE, no -- Go on.
	CALL	PRMSG1		; YES  -- print it.
	BCS	100$		; Exit on ERROR
	BR	90$		; Now, go on.

33$:	CALL	PRMSG3		; PRINT (if NOT QUIET)
/

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