DP0:[12,35]RNCMD.MAC=DP0:[12,35]RNCMD.MAC
-,,/;DBC002/
-3
	.IDENT	/M01.2/
-50,52
BGBAR::	MOV	#CBBIT,$CBON	;FLAG BAR ON
	RETURN
ENBAR::	MOV	#CBFBT,$CBON	;FLAG BAR OFF
-164,169
	CALL	(R4)		;GET ARGUMENT
	  MOV	#ILMRG,R3	;IF NONE, INITIALIZE
	TST	R3		;CHECK IF NEGATIVE
	BGE	11$		;IF GE NO DO NORMAL STUFF

	MOV	RMARG,LMARG	;SET THE LM TO THE RM
	ADD	R3,LMARG	;ADJUST TO THE LEFT OF RM
	BGT	12$		;IF RESULT IS + THEN ALL DONE
	CLR	LMARG		;ELSE, SET LM TO 0
	BR	12$

11$:	CMP	R3,RMARG	;MUST BE LESS THAN RIGHT MARGIN?
	BGE	10$		;IF GE NO
	MOV	R3,LMARG	;OK SAVE AS LEFT MARGIN
12$:	RETURN			;
-299,303
	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
/