DP0:[12,35]PINDX.MAC=DP0:[12,35]PINDX.MAC;-1
-,,/;DBC001/
-2
	.IDENT	/M01.1/
-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
/