PINDX.MAC/AU/-BF=PINDX.VGN;1
-,,/;CAR  1/
\
-2
	.IDENT	/M02.1/
	.IDENT	/M02.2/		; RAY VAN TASSLE--TOC
-32
;
; CARTS LUG MODIFICATIONS
;
;	CAR  1 --> ADD CHANGE BAR AND RIGHT SHIFT
;
%
-45,45
DXAPN:	.BYTE	'I-'A+1	; I FOR INDEX
DXTYP:	.BYTE	1		; 0 FOR TOC

TOCTXT:	.BYTE	'T,'A+40,'B+40,'L+40,'E+40,' ,'O+40,'F+40
	.BYTE	' ,'C,'O+40,'N+40,'T+40,'E+40,'N+40,'T+40,'S+40,0

DOTXT:	.BYTE	'I,'N+40,'D+40,'E+40,'X+40,0
-53,53
DOINX::	CLR	$CBON		;STOP CHANGE BAR
	MOV	TTLP1,TTLP2	;CLEAR TITLE BUFFER
-55,55
	MOV	STDLM,LMARG	; SET TO STANDARD LEFT MARGIN
-61
	INC	ABSPAG
-64
	mov	#TOCTXT,R3
	TSTEQB	DXTYP,20$

-76
	ADD	RIGSHI,R2	;ADD ON SHIFT
-83,83
	MOVB	DXAPN,APNDN	; SET APPENDIX TO 'I' OR 'T'
-86

;      PRINT THE TABLE OF CONTENTS
DOTOC::
	TST	TOCCHN
	BEQ	5$
	MOVB	#'T-'A+1,DXAPN
	CLRB	DXTYP
	MOV	TOCCHN,XFIRST
	CALL	DOINX
	MOVB	#'I-'A+1,DXAPN
	INCB	DXTYP
5$:	RETURN


-102
	ADD	RIGSHI,R2	; ALLOW FOR RIGHT SHIFT
-108
	MOV	R2,-(SP)	; 3/4 ALONG
	ROR	R2
	ADD	(SP)+,R2
-145,145
	CLR	XFIRST		; CLEAR THE INDEX CHAIN
/