DP0:[12,35]RUNOFF.MAC=DP0:[12,35]RUNOFF.MAC;-1
-,,/;DBC001/

-99,99
$CBON::	.BLKW	1		;CHANGE BAR ON ( 0=NO)
-129
EBSIZ:: .BLKW	1		;NUMBER OF CHANGE BAR INITAL SPACES
-145,148
FOOTWB::.BLKB	322.
FOOTS1::.WORD	FOOTWB-1
FOOTS2::.WORD	FOOTWB-1
	.WORD	FOOTWB+322.
-163,163
HFIN::	.WORD	320.,0,0
-171,171
INBUF::	.BLKB	322.
-216,220
	.WORD	LINBF+320.
LOUT1::	.WORD	0
LOUT2::	.WORD	0
LINBF::	.WORD	0
	.BLKB	322.
-285
CBNSP==3			;CHAR OFFSET FOR CHANGE BARS
-303
BAR=='|				;BAR FOR CHANGE BAR
-309,309
-744,747
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
	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
-1147
	MOV	RIGSHI,R2	;ADD SPACE FOR RIGHT SHIFT
	ADD	EBSIZ,R2	;ADD ON SPACE FOR CHANGE BAR OFFSET
	CALL	NSPAC		;SPACE TO MARGIN
-1191
	MOV	RIGSHI,R2	;ADD SPACE FOR RIGHT SHIFT
	ADD	EBSIZ,R2	;ADD ON SPACE FOR CHANGE BAR OFFSET
	CALL	NSPAC		;SPACE TO MARGIN
/