ttmod.mac/au/bf=ttmod.vgn
\
-2,2,/;JMB219/
	.IDENT	/V4.00A/
-30,,/;JMB219/
;	J. M. BOSTWICK   21-JUN-1985 	04.00A
;
;		Modified for Cargill Inc. Dial-in Security System
;
;		JMB227 -- In MANS, don't force uppercase mode,
;			  don't force MCR as CLI. 
;
%
-182,183,/;JMB219/
;;;	BIC	#U2.CRT!U2.HLD!U2.L3S!U2.VT5!U2.LWC!U2.ESC,U.CW2-U.TSTA(R5)	; DD168
	BIC	#U2.CRT!U2.HLD!U2.L3S!U2.VT5!U2.ESC,U.CW2-U.TSTA(R5)
				;;;INITIALIZE CHARACTERISTICS WORD 2
-189,,/;JMB219/
	.IF EQ 1	; SCLI PATCH, SUPPRESS FOLLOWING SET MCR

-201,,/;JMB219/
	.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

/