.TITLE	DIRTBL - File Table Entrys.
	.IDENT	/1.1/
	.ENABL	LC
;+
;
;			  Free software BY
;		Project Software & Development, Inc.
;
; This  software  is  furnished  for  free and may be used and copied as
; desired.  This software or any other copies thereof may be provided or
; otherwise  made  available  to  any  other  person.  No  title  to and
; ownership of the software is hereby transferred or allowed. 
;
; The  information  in this software is subject to change without notice
; and  should  not  be  construed  as  a commitment  by PROJECT SOFTWARE
; AND DEVELOPMENT, INC.
;
; PROJECT SOFTWARE assumes no responsibility for the use or  reliability  
; of this software on any equipment whatsoever.
;
;	Project Software & Development, Inc.
;	14 Story St.
;	Cambridge, Ma. 02138
;	617-661-1444
;
;
; Title:	DIRTBL.MAC
; Author:	Robin Miller
; Date:		February 19, 1985
;
; Description:
;
;	This module contains the file table entrys used to control the
; listing of directorys at the terminal.
;
; Modification History:
;
; June 25, 1985 by Robin Miller.  Version 1.1
;	Add two words to save the directory descriptor information.
;
;-
	.ENABL	AMA
	.NLIST	BEX


;	Define offsets for file entry tables:

	O.STAT	==	0		; The status word.		(word)
	O.FDB	==	O.STAT+2	; The FDB address.		(word)
	O.FNB	==	O.FDB+2		; The FNB address.		(word)
	O.CSI	==	O.FNB+2		; The CSI block address.	(word)
	O.DEVU	==	O.CSI+2		; Address of ASCII device/UIC.	(word)
	O.FNAM	==	O.DEVU+2	; Address of ASCII file name.	(word)
	O.DIRD	==	O.FNAM+2	; The directory descriptor.  (2 words)
					; Above must exist for all entrys.
	O.FPTR	==	O.DIRD+4	; Pointer to input file name(s).(word)
	O.FSAV	==	O.FPTR+2	; Pointer to next file name.	(word)
	O.FID	==	O.FSAV+2	; The 1st word of the file ID.	(word)
	O.WFNB	==	O.FID+2		; The wildcard FNB address.	(word)
	O.WDSD	==	O.WFNB+2	; The wildcard dataset address.	(word)
	O.WVER	==	O.WDSD+2	; The wildcard version number.	(word)
	O.CONT	==	O.WVER+2	; The VMS wildcard context.  (2 words)
	O.RNAM	==	O.CONT+4	; The Radix-50 name and type.(4 words)
	O.DID	==	O.RNAM+8.	; The directory ID/device.   (5 words)

;	Status bit definitions:

	S.FIND	==	1		; Find the file only, don't open it.


;	Address of the active file entry.

IENTRY::.WORD	IFILE1			; The input file table address.
OENTRY::.WORD	OFILE1			; The output file table address.
EENTRY::.WORD	0			; The last entry to have an error.


;	Entry for the top file being displayed.

IFILE1::.WORD	S.FIND			;(O.STAT) The status word.
	.WORD	INFDB			;(O.FDB ) The FDB address.
	.WORD	INFDB+F.FNB		;(O.FNB ) The FNB address.
	.WORD	INCSI1			;(O.CSI ) The CSI block address.
	.WORD	INFILE			;(O.DEVU) Address of ASCII device/UIC.
	.WORD	INFILE			;(O.FNAM) Address of ASCII file name.
	.BLKW	2			;(O.DIRD) The directory descriptor.
	.WORD	INBUF			;(O.FPTR) Pointer to input file names.
	.WORD	0			;(O.FSAV) Pointer to next file name.
	.WORD	0			;(O.FID ) The 1st word of the file ID.
	.WORD	INFNB1			;(O.WFNB) The wildcard FNB address.
	.WORD	INDSD1			;(O.WDSD) The wildcard dataset address.
	.WORD	0			;(O.WVER) The wildcard version number.
	.BLKW	2			;(O.CONT) The VMS wildcard context.
	.BLKW	4			;(O.RNAM) The Radix-50 file name/type.
	.BLKW	5			;(O.DID)  The directory ID/device.
	.BLKW	2			;(O.DIRD) The directory descriptor.


;	Entry for the output file:

OFILE1::.WORD	0			;(O.STAT) The status word.
	.WORD	OUTFDB			;(O.FDB ) The FDB address.
	.WORD	OUTFDB+F.FNB		;(O.FNB ) The FNB address.
	.WORD	OUTCSI			;(O.CSI ) The CSI block address.
	.WORD	OUTFIL			;(O.DEVU) Address of ASCII device/UIC.
	.WORD	OUTFIL			;(O.FNAM) Address of ASCII file name.
	.BLKW	2			;(O.DIRD) The directory descriptor.

	.END