.IIF	NDF LIST,	.NLIST
	.TITLE	STATPRE - PREFIX FILE FOR F11ACT
;
;  MODULE: FILES-11 ACTIVITY REPORTING TASK -- PREFIX FILE
;
;  VERSION: 0002
;
;  AUTHOR: ANDY PUTNINS
;
;  DATE: 20-NOV-78
;
;  MODIFICATIONS:
;	14-DEC-78	A. PUTNINS	ADD FILE ATTRIBUTE BLOCK DEFINITIONS
;
;  PURPOSE:
;  DEFINE SYMBOLS FOR FILES-11 DATA STRUCTURES AND STATISTICS
;  BLOCK OFFSETS. TO GET A LISTING OF THIS FILE, DEFINE SYMBOL "LIST".
;

R$$11D=1
R$$IAS=1

;
;  MACROS TO SAVE AND RESTORE REGISTERS
;
	.MACRO	PUSH	LIST
	.IRP	RX,<LIST>
	MOV	RX,-(SP)
	.ENDM
	.ENDM

	.MACRO	POP	LIST
	.IRP	RX,<LIST>
	MOV	(SP)+,RX
	.ENDM
	.ENDM

;
;  MACRO TO WRITE A MESSAGE TO THE TERMINAL
;
	.MACRO	TIQIO,MSG,MSGLEN
	.MCALL	DIR$,QIOW$
	MOV	MSG,QIOTI+Q.IOPL
	MOV	MSGLEN,QIOTI+Q.IOPL+2
	DIR$	#QIOTI
	.ENDM
	.PAGE
;
;  STATISTICS BLOCK OFFSET DEFINITIONS
;
	.ASECT
	.=0
P.LINK:	.BLKW	2		;FORWARD AND BACKWARD LINKS

.SBFLG:	.WORD	0		;FLAGS
	F.FI  =	1		;LIST FILE ATTRIBUTES FOR THIS DEVICE
	F.NSDV= 2		;NO SUCH DEVICE
	f.nf11=	4		;not a file-structured device
	F.OFF = 10		;DEVICE OFFLINE FLAG
	F.FOR = 20		;MOUNTED FOREIGN FLAG
	F.BADF= 40		;FCB POINTER ERROR FLAG
	F.TAPE= 100		;VOLUME IS LABELED TAPE
	F.NFAT= 200		;INSUFFICIENT SPACE TO STORE SOME FILE ATTRIBS

P.PUD:	.WORD	0		;PUD POINTER

LH.AB:	.BLKW	2		;FILE ATTRIBUTE BLOCK LISTHEAD

P.DNAM:	.WORD	0		;POINTER TO DEVICE NAME STRING
.DUNIT:	.BLKW			;DEVICE UNIT NUMBER

.ACPNM:	.BLKW			;FIRST THREE CHARS OF ACP NAME IN RAD50
P.VLAB:	.WORD	0		;POINTER TO VOLUME LABEL STRING

C.TRCT:	.BLKW			;VOLUME TRANSACTION COUNT FROM VCB

C.TFCB:	.BLKW			;TOTAL COUNT OF FCB'S FOR THIS VOLUME
C.AFCB:	.BLKW			;COUNT OF FCB'S ALLOCATED IN ACP
C.FFCB:	.BLKW			;COUNT OF FCB'S ALLOCATED IN FCPCOM
C.SFCB:	.BLKW			;COUNT OF FCB'S ALLOCATED IN SCOM

C.LRU:	.BLKW			;COUNT OF "PRE-ACCESSED" DIRECTORIES

.DNAM:	.BLKB	2		;DEVICE NAME STRING
.VLAB:	.BLKB	12.		;VOLUME LABEL STRING
	.EVEN
L.SB = .
	.PAGE
;
;  FILE ATTRIBUTE BLOCK OFFSET DEFINITIONS
;
	.ASECT
	.=0
P.LINK:	.BLKW	2		;FORWARD AND BACKWARD LINKS

.ABFLG:	.WORD	0		;FLAGS
	F.DIR = 1		;THIS FCB IS IN DIRECTORY LRU LIST
	F.ACP = 2		;THIS FCB IS IN ACP INTERNAL AREA
	F.FCM = 4		;FCB IN FCPCOM
	F.SCM = 10		;FCB IN SCOM

.FID:				;START OF FILE ID BLOCK
.FNUM:	.BLKW			;FILE NUMBER
.FSEQ:	.BLKW			;FILE SEQUENCE NUMBER

.FOWN:				;START OF FILE OWNER BUFFER
.PROG:	.BLKB			;MEMBER #
.PROJ:	.BLKB			;GROUP #

.FNAM:	.BLKW	3		;RAD50 FILE NAME
.FTYP:	.BLKW			;RAD50 FILE TYPE
.FVER:	.BLKW			;BINARY VERSION #

L.AB = .			;LENGTH OF ENTRY


	.IIF	NDF LIST,	.LIST