DP0:RNCMD.MAC/AU/-BF=DP0:RNCMD.MAC;-1
-,,/;CAR  1/
\
-2
	.IDENT	/M02.1/
-33
;
; CARTS LUG MODIFICATIONS
;
;	CAR  1 --> ADDED CHANGE BAR COMMANDS, FIXED BUG WITH SKIP AND BLANK
;			WITH NEGATIVE NUMBERS AND, ADDED RELATIVE MARGEN 
;			ADJUSTMENT (+ OR -) CAUSES RELATIVE NORMAL OTHERWISE
;
%
-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	#CBBIT,$CBON	;FLAG BAR ON
	RETURN
ENBAR::	MOV	#CBFBT,$CBON	;FLAG BAR OFF
	RETURN

;
-283,287
	TST	R3		;CHECK IF ARGUMENT IS NEG
	BMI	15$		;IF NEGATIVE DO NOT MAKE TOP OF PAGE CHECK

	CMP	LINEC,$HDRSW	;AT TOP OF PAGE?
	BLE	30$		;IF LE YES
15$:	MOV	R3,R1
	CALL	$MUL		;MULTIPLY
	TST	R1		;CHECK IF RESULT IS +
	BPL	17$		;AND IF SO CONTINUE AS NORMAL

	MOV	R1,R2		;GET THE NUMBER OF LINES FROM END OF PAGE
	ADD	NLPG,R2		;R2 NOW HAS LINE NUMBER THAT WE WANT TO GET TO
	CMP	R2,LINEC	;BUT CHECK IF WE HAVE ALREADY PASSED THAT POINT
	BGT	16$		; IF GT OK

	MOV	#1,R2		;ELSE JUST SKIP 1 LINE
	BR	20$		;

16$:	SUB	LINEC,R2	;GENERATE NUMBER OF LINES TO SKIP
	BR	20$

17$:	MOV	R1,R2		;CHECK IF ROOM ON PAGE
-380
	ADD	RIGSHI,R2	;ADD ON RIGHT SHIFT SPACE
	ADD	EBSIZ,R2	;ADD ON CHANGE BAR AREA
/