DP0:PINDX.MAC/AU/-BF=DP0:PINDX.MAC;-1
-,,/;CAR  1/
\
-2
	.IDENT	/M02.1/
-32
;
; CARTS LUG MODIFICATIONS
;
;	CAR  1 --> ADD CHANGE BAR AND RIGHT SHIFT
;
%
-53,53
DOINX::	CLR	$CBON		;STOP CHANGE BAR
	MOV	TTLP1,TTLP2	;CLEAR TITLE BUFFER
-76
	ADD	RIGSHI,R2	;ADD ON SHIFT
-102
	ADD	RIGSHI,R2	; ALLOW FOR RIGHT SHIFT
/