ERMSG.MAC/AU/-BF=ERMSG.VGN;1
-,,/;CAR  1/
\
-2
	.IDENT	/M02.1/
	.IDENT	/M02.2/
-35
;
; CARTS LUG MODIFICATIONS
;
;	CAR  1 --> TO IDENT VO2.1 FOR CHANGE BAR AND RIGHT SHIFT
;
%
-81
	CLR	RIGSHI		;CLEAR RIGHT SHIFT OFFSET
	CLR	EBSIZ		;CLEAR CHANGE BAR OFFSET
	CLR	$CBON		;AND CHANGE BAR FLAG
	CLR	RELTAB		; TABS STOPS RELATIVE TO COLUMN 0
-95,95
	MOV	#ILMRG,STDLM	; SET STANDARD LEFT MARGIN
	MOV	#-1,DLMVAL	; TO SEE IF /LM: SWITCH OVERRODE IT
-107,112
	MOV	#1,ABSPAG	; AT ABSOLUTE PAGE 1
	MOV	#"PA+<40*400>,(r0)+
	mov	#"GE+<40*400+40>,(r0)+
	mov	#'  ,(r0)
-131
	CLR	HDST
	CLR	TOCCHN		; SET TOC LIST
	MOV	#TOCCHN,TOCCHN+2
	CLR	FIGSAV		; FIGURE SAVE LINES
/