.TITLE	INDFCS - FCS CONTROL BLOCKS FOR INDRCT
	.IDENT	/03/                                                            ;HJL003
;                                                                               ;**-1
;
;
; VERSION:	03                                                              ;HJL007
; BY:		H.LEV                                                           ;**-1
; DATE:		1/31/74
; MODIFIED:	8/9/74
;		SEPERATED FCS CONTROL BLOCKS FOR ASSEMBLY PURPOSES
;                                                                               ;HJL007
;	HJL007	11/7/75	ADD DATA AND EOD COMMANDS                               ;HJL007
;                                                                               ;HJL007


	.PSECT	DATA,RW
	.MCALL	CSI$,CSI$SW,CSI$ND,FSRSZ$
	CSI$			; DEFINE CSI OFFSETS
	.MCALL	FDOFF$
	FDOFF$	DEF$G		;                                               ;HJL007
                                                                                ;**-1
;
; EQUATED CONSTANTS
;
LUN2	=	2		; INDIRECT FILE LUN


;
; GCMLB$ - GENERATE A CONTROL BLOCK FOR GCML$
;
	.MACRO	GCMLB$	MAXD,PRMPT,UBUF,LUN,PDL,?PDL1,?DFNB,?BUF

	.MCALL	FDBDF$,FDAT$A,FDOP$A,NMBLK$,FDBF$A,CBYTE$

	FDBDF$			;DEFINE FDB
	FDAT$A	2
	.IF NB	<LUN>
	FDOP$A	LUN,,DFNB
	.IFF
	FDOP$A	1,,DFNB
	.ENDC
	FDBF$A	,,1		;FORCE SINGLE BUFFERING

	CBYTE$	<FD.TTY!FD.REC!FD.CCL>,F.RCTL  ;FUDGE INITIAL ATTRIBUTES


	.MCALL	GCMLD$
	GCMLD$			;DEFINE GCML OFFSETS

	.BYTE	0,GE.COM!GE.IND!GE.CLO  ;ERROR AND MODE BYTES
	.BLKW	4		;PROMPT STR AND CMD DESCRIPTORS
	.BYTE	-1,MAXD		;CURRENT AND MAXIMUM DEPTHS

	.IF B	<PDL>
	.WORD	PDL1		;USE GENERATED PUSH-DOWN LIST
	.IFF
	.WORD	PDL		;USER SUPPLIED PUSH-DOWN LIST
	.ENDC

	.IF NB <UBUF>
	.WORD	UBUF
	.IFF
	.WORD	BUF
	.ENDC

$$$=.
	.ASCII	<^O 15> <^O 12>
	.IF NB	<PRMPT>
	.ASCII	/PRMPT>/
	.IFF
	.ASCII	/   >/
	.ENDC
.=$$$+6

DFNB:	NMBLK$	CMI,CMD

G.LPDL=<MAXD+1>*<6+<13.*2>>	;LENGTH (IN BYTES) OF REQUIRED PDL

	.IF B	<PDL>
PDL1:	.BLKB	G.LPDL		;GENERATE REQUIRED PUSH-DOWN STORAGE
	.ENDC

	.IF B	<UBUF>
BUF:	.BLKB	82.
	.ENDC

	.ENDM	GCMLB$

	.SBTTL	GLOBL DATA
;
; CSI CONTROL BLOCK
;
$CSIBK:: .BLKB	C.SIZE		; CSI CONTROL BLOCK

$SWTAB:: CSI$SW	LI,NOLIST,$LIFLG,CLEAR,NEG
	CSI$SW	TR,NOTRAC,$LIFLG,CLEAR,NEG
	CSI$SW	DE,DELETE,$LIFLG,SET,NEG
	CSI$ND

;
; GCML CONTROL BLOCK
;
$GCML::	GCMLB$	4,AT.,$GCML,LUN2
				; SET DUMMY BUFFER TO START OF BLOCK
                                                                                ;HJL007
$DATF::	FDBDF$			; DATA FILE FDB                                 ;HJL007
	FDAT$A	R.VAR,FD.CR	;                                               ;HJL007
	FDOP$A	3,$DATCS+C.DSDS,DATDN,FO.WRT ;                                  ;HJL007
	FDBF$A	3		;                                               ;HJL007
                                                                                ;HJL007
DATDN:	NMBLK$	,DAT,,SY,0	; DEFAULT NAME BLOCK                            ;HJL007
                                                                                ;HJL007
$DATCS:: .BLKB	C.SIZE		; CSI CONTROL BLOCK FOR DATA FILE               ;HJL007
                                                                                ;HJL007
	FSRSZ$	2		; SPACE FOR TWO BUFFERS                         ;HJL007
	.END                                                                    ;**-1