FMTCM.MAC/AU/-BF=FMTCM.VGN;1
-,,/;CAR  1/
\
-2
	.IDENT	/M02.1/
-26
;
; CARTS LUG MODIFICATIONS
;
;	CAR  1 --> ADD CHANGE BAR AND RIGHT SHIFT
;
%
-62,62
	MOV	STDLM,LMARG	; SET TO STANDARD LEFT MARGIN
-74
	ADD	EBSIZ,R2	;SHIFT FOR CHANGE BAR
	ADD	RIGSHI,R2	;ADD SPACE FOR RIGHT SHIFT
-85
	MOV	#SDBUF,SDINP+2	; INIT TOC BUFFER
	MOVB	R1,SDBUF	; INSERT APPENDIX NUMBER
-89
	MOV	R0,-(SP)	; PUT CHAPTER # IN TOC BUFFER
	MOV	R0,R1
	MOV	#SDBUF,R0
	MOV	#30012,R2	; CONVERT TO DECIMAL
	CALL	$CBTA
	DEC	R0
	MOV	R0,SDINP+2
	MOV	(SP)+,R0	
-97
	ADD	EBSIZ,R2	;SHIFT FOR CHANGE BAR
	ADD	RIGSHI,R2	;ADD SPACE FOR RIGHT SHIFT
-99
	INC	SDINP+2
	MOVB	#'.,@SDINP+2	; FINISH OFF WITH ".0"
	INC	SDINP+2
	MOVB	#'0,@SDINP+2
	INC	SDINP+2		; INSERT THE REQUISITE 2 SPACES
	MOVB	#' ,@SDINP+2
	INC	SDINP+2		; INSERT THE REQUISITE 2 SPACES
	MOVB	#' ,@SDINP+2
	MOV	SDINP+2,PFTC
	MOV	#TTLBUF,R0	; MOVE CHAPTER TITLE TO TOC BUFFER
	MOV	SDINP+2,R1
	INC	R1
	MOV	TTLP2,R2
40$:	MOVB	(R0)+,(R1)+
	CMP	R0,R2
	BLOS	40$
	DEC	R1
	MOV	R1,SDINP+2
	CALL	SETTOC
-177
	ADD	EBSIZ,R2	;SHIFT FOR CHANGE BAR
	ADD	RIGSHI,R2	;ADD SPACE FOR RIGHT SHIFT
-201
	MOV	SDINP+2,PFTC
-208
	CALL	SETTOC
-219
	MOV	SDINP+2,PFTC
-222
	CALL	SETTOC
-244
	MOV	R3,LSTPT	; DEFAULT LIST ELEMENT TEST PAGE COUNT
	ADD	#3,LSTPT	; IS 3 LARGER THAN SPACING
-360
	ADD	EBSIZ,R2	;SHIFT FOR CHANGE BAR
	ADD	RIGSHI,R2	;ADD SPACE FOR RIGHT SHIFT
/