TTMOD.MAC/AU/BF=TTMOD.VGN
\
-2,2,/;JMB227/
	.IDENT	/04.04A/
-38,,/;JMB227/
;
;	J. M. BOSTWICK   18-JUN-1985 	04.04A
;
;		Modified for Cargill Inc. Dial-in Security System
;
;		JMB227 -- In MANS, don't force uppercase mode,
;			  don't force MCR as CLI. 
;
%
-227,227,/;JMB227/
;;;	BIC	#U2.CRT!U2.HLD!U2.L3S!U2.VT5!U2.LWC!U2.ESC,U.CW2-U.TSTA(R5)	;**-1
	BIC	#U2.CRT!U2.HLD!U2.L3S!U2.VT5!U2.ESC,U.CW2-U.TSTA(R5)
-234,,/;JMB227/
	.IF EQ 1	; SCLI PATCH, SUPPRESS FOLLOWING SET MCR

-246,,/;JMB227/
	.IFF	; EQ 1 -- THIS IS THE SCLI PATCH
	NOP				;;; LEAVE ROOM TO ZAP IN 
	NOP				;;; THE SET MCR CODE
	NOP
	
	.ENDC	; EQ 1 -- END OF SCLI PATCH

/