RUNOFF.MAC/AU/-BF=RUNOFF.MAC;-1
\
-2
	.IDENT	/M02.1/
-35
;
; CARTS LUG MODIFICATIONS
;	CAR  1			ADD CHANGE BARS AND RIGHT SHIFT FUNCTION
%
-80,,/;CAR  1/
CBBIT==1			;CHANGE BAR ON
CBFBT==2			;CHANGE BAR JUST TURNED OFF
-109
$CBON::	.BLKW	1		;CHANGE BAR ON ( 0=NO)
-140
EBSIZ:: .BLKW	1		;NUMBER OF CHANGE BAR INITAL SPACES
				; -1 => NEG, +1 => POS, 0 => NONE
-156,159
FOOTWB::.BLKB	322.
FOOTS1::.WORD	FOOTWB-1
FOOTS2::.WORD	FOOTWB-1
	.WORD	FOOTWB+322.
-170,171
HFIN::	.WORD	320.,0,0
INBUF::	.BLKB	322.
-199,203
	.WORD	LINBF+320.
LOUT1::	.WORD	0
LOUT2::	.WORD	0
LINBF::	.WORD	0
	.BLKB	322.
-266
CBNSP==3			;CHAR OFFSET FOR CHANGE BARS
-284
BAR=='|				;BAR FOR CHANGE BAR
-290,290
-725,728
OUTNJ1:	MOV	RIGSHI,R2	;GET RIGHT SHIFT
	CALL	NSPAC		;DO IT
	MOV	INDCT,R2	;GET INDENTING IN CASE OF PARAGRAPH
	CLR	INDCT		;(ONCE ONLY)
	ADD	LMARG,R2	;PLUS LEFT MARGIN
	ADD	EBSIZ,R2	;ADD ON CHANGE BAR SIZE
	TST	EBSIZ		;CHECK IF  BAR ENABLED
	BEQ	10$		;NO SO SKIP BAR INSERTION
	TST	$CBON		;CHECK IF CHANGE BAR ON
	BEQ	10$		;IF EQ NO
	BIC	#CBFBT,$CBON	;CLEAR THE LAST BAR BIT
	MOV	R1,-(SP)	;SAVE R1 AS I DON'T KNOW IF ITS USED
	MOV	#BAR,R1		;GET A |
	CALL	CCOUT		;AND OUTPUT IT
	MOV	(SP)+,R1	;GET R1 BACK
	DEC	R2		;1 CHAR IS OUT SO STOP ITS SPACE
10$:	CALL	NSPAC		;OUTPUT THAT MANY SPACES
-1063
	MOV	$CBON,-(SP)	;SAVE THE BAR STATUS
-1071
	CLR	$CBON		;CLEAR THE BAR BITS
-1108
	MOV	(SP)+,$CBON	;RESTORE BAR STATUS
-1118
	MOV	RIGSHI,R2	;ADD SPACE FOR RIGHT SHIFT
	ADD	EBSIZ,R2	;ADD ON SPACE FOR CHANGE BAR OFFSET
	CALL	NSPAC		;SPACE TO MARGIN
-1162
	MOV	RIGSHI,R2	;ADD SPACE FOR RIGHT SHIFT
	ADD	EBSIZ,R2	;ADD ON SPACE FOR CHANGE BAR OFFSET
	CALL	NSPAC		;SPACE TO MARGIN
/