DP0:[12,35]RNCMD.MAC=DP0:[12,35]RNCMD.MAC;-1
-,,/;DBC001/
-2
	.IDENT	/M01.1/
-39
; ENABLE/DISABLE CHANGE BAR COMMADS (ALSO ON AND OFF)
;
ENCBR::	CLR	$CBON		;CLEAR ON
	MOV	#CBNSP,EBSIZ	;NUMBER OF CHAR TO MOVE TO RIGHT
	RETURN
DSCBR::	CLR	EBSIZ		;SET OFFSET BACK TO ZERO
	CLR	$CBON		;TURN OFF CANGE BAR
	RETURN

BGBAR::	MOV	SP,$CBON	;FLAG BAR ON
	RETURN
ENBAR::	CLR	$CBON		;FLAG BAR OFF
	RETURN

;
-380
	ADD	RIGSHI,R2	;ADD ON RIGHT SHIFT SPACE
	ADD	EBSIZ,R2	;ADD ON CHANGE BAR AREA
/