.TITLE	BUFFERS
	.PSECT	BUFFER,D,RW,GBL
	.IF	NDF,RSX
INBUF::	.WORD	0			; ALLOW SPACE FOR INPUT BUFFER 256. WORDS
	.=.+510.
	.BYTE	200,0
OUTBUF::.WORD	0			; DITTO FOR OUTPUT BUFFER
	.=.+512.
SUPBUF::.WORD	0			; DITTO FOR SUPER INDEX BUFFER
	.=.+512.
FLOBUF::.WORD	0			; CALLING REF BUFFER

	.=.+512.
	.IFF
;	12 LUN'S AVAILABLE
;	LUN	USE
;	1	MAIN SOURCE INPUT
;	2	1'ST INCLUDE LEVEL SOURCE INPUT
;	3	2'ND INCLUDE LEVEL SOURCE INPUT
;	4	3'RD INCLUDE LEVEL SOURCE INPUT
;	5	4'TH INCLUDE LEVEL SOURCE INPUT
;	6	5'TH INCLUDE LEVEL SOURCE INPUT
;	7	6'TH INCLUDE LEVEL SOURCE INPUT
;	8	COMMAND INPUT FROM TERMINAL
;	9	INDEX OUTPUT TO TERMINAL
;	10	SUPER INDEX SCRATCH BUFFER FILE
;	11	LIST OUTPUT FILE
;	12	CALL REFERENCE SCRATCH BUFFER FILE
	.MCALL	FSRSZ$,FDBDF$,FDAT$A,FDRC$A,FDOP$A,GCMLB$,NMBLK$,BDOFF$
	BDOFF$	DEF$L
	.IF	DF,F4P
	FSRSZ$	12.,<<2*<84.+S.BFHD>>+<<4+F4P>*<512.+S.BFHD>>>,BUFFER	;BUFFER SPACE AREA
	.IFF
	FSRSZ$	12.,<<2*<84.+S.BFHD>>+<<4+1>*<512.+S.BFHD>>>,BUFFER	;BUFFER SPACE AREA
	.ENDC
	TTLIN=82.
;	DEFINE TERMINALS
	.MACRO	TTY	LABL,LUN,BUFF
LABL::	FDBDF$
	FDAT$A	R.VAR,FD.CR
	FDRC$A	,BUFF,TTLIN
	FDOP$A	LUN,DESBLK,DEFNAM
BUFF::	.BLKB	TTLIN
	.ENDM
DESBLK:	.WORD	3,TIDESC,0,0,0,0,0,0
TIDESC:	.ASCII	/TI: /
DEFNAM:	NMBLK$	IDX,CMD
	TTY	TTIBLK,8.,TTIBUF
	TTY	TTOBLK,9.,TTOBUF
;	DEFINE INPUT FILES
	.MACRO	INS	LUN
IN'LUN'FIL::	FDBDF$
	FDAT$A	2
	FDOP$A	LUN,,INNAM
	.ENDM
INNAM:	NMBLK$	INDEX,FTN,,SY,0
	INS	1	;MAIN INPUT FILE
	.IF	DF,F4P
;	NESTED INCLUDES
	II=2	;PUT IN FDB'S FOR ONLY THOSE INCLUDES ASKED FOR IN IDXGEN
	.REPT	F4P
	INS	\II
	II=II+1
	.ENDR
	.ENDC
IBUFF::	.BLKB	134.
;	TABLE OF INPUT FILES FOR INDEXING
	.MACRO	GENADR	II
	.WORD	IN'II'FIL
	.ENDM
INFIL::.WORD	IN1FIL
	.IF	DF,F4P
	II=2
	.REPT	F4P
	GENADR	\II
	II=II+1
	.ENDR
	.ENDC
;	DEFINE OUTPUT FILE
LSTNAM:	NMBLK$	INDEX,IDX,,SY,0
LSTFIL::FDBDF$
	FDAT$A	R.VAR,FD.CR
	FDRC$A	,LBUFF,132.
	FDOP$A	11.,,LSTNAM
LBUFF::	.BLKB	134.
;	DEFINE SUPER INDEX SCRATCH FILE
SUPFIL::FDBDF$
	FDAT$A	R.FIX,,8.
	FDRC$A	,SRE,8.
	FDOP$A	10.,,SDNAM,FA.TMP!FO.WRT
SRE:	.BLKB	8.
	WRKDEV	;WORK FILE NAMES FROM GEN
;	CALL RECFERENCE FILE
FLOFIL::FDBDF$
	FDAT$A	R.FIX,,8.
	FDRC$A	,SRC,8.
	FDOP$A	12.,,CANAM,FA.TMP!FO.WRT
SRC:	.BLKB	8.
;	HELP FILE
HLPFIL::FDBDF$
	FDAT$A	2
	FDOP$A	1,HLPDSC,,FO.RD
	HLPGEN	;DEFAULT HELP FILE FORM IDXGEN
	.EVEN	
	.ENDC
	.PSECT	BUFFER
	.IF	DF,EXTK		;IF MUST INCLUDE FIXED BUFGFER-PUT HERE
LOBUFF::.BLKW	EXTK*1024.	;FIXED FUBBER STORAGE AS SPECIFED IN IDXGEN
HIBUFF::
	.ENDC
	.END