.TITLE	ACTFIL - ACCOUNT FILE CONTROL BLOCKS
	.IDENT	/2.1XY/
;
; VERSION:	01.1.X
; BY:		H. LEV
; DATE:		7/15/75
;
;	MODIFIED:
;		JGD01 -- ALLOW INSERTION OF TOTAL TERMINAL 			**JGD01
;			  CONNECT TIME, AND PRIVLEGE MASK			**JGD01
;
;		JGD02 -- ALLOW INSERTION OF TASK OTHER THAN MCR			**JGD02
;			 TO INVOKE AS HELLO EXITS.
;
;		JGD03 -- ALLOW INSERTION OF TOTAL NUMBER OF FILES AND DISK	**JGD03
;			 USED ON USERS SYSTEM DEVICE				**JGD03
;
;		JGD15 -- DEFINE TWO NEW CATAGORIES OF USER PRIVLEGES, THE 	**JGD15
;			 GROUP MANAGER(CAN CHANGE MEMBER NUMBER OF LOGIN UIC),	**JGD15
;			 AND 'USER MANAGER'(CAN CHANGE LOGIN UIC IF >[310,X])	**JGD15
;			 REQUIRES ALL NON PRIVLEGED ACCOUNTS >[377,X].  THE 	**JGD15
;			 UIC AT WHICH THE BREAK IS MADE IS EASILY CHANGED IN	**JGD15
;			 SPROV.SLP.						**JGD15
;
;		JGD16 -- ADD OFFSETS FOR DEFAULT CLI(RAD50),ACCOUNT NUMBER	**JGD16
;			 TOTAL CPU TIME USED, ID, AND VT: FLAG.			**JGD16
;			 ALSO RESERVE OFFSETS FOR USAGE ACCOUNTING STATISTICS	**JGD16
;
;		DG002 -- LOOK FOR LATEST VERSION OF RSX11.SYS
;
;		MGL007 -- LOOK ONLY ON BOOT DEVICE FOR ACCOUNT FILE
;
;		MGL044 -- CREATE BUFFER USABLE FOR SPOOLING LISTING(ACNT)
;
;		MGL081 -- DO NOT LEAVE ACCOUNT FILE LOCKED ON HELLO ABORT
;
	.MCALL	FDBDF$,FDOP$A,FSRSZ$
	.MACRO	ACTDF$,L,B
	.ASECT
.=0
A.GRP:'L'	.BLKB	3		; GROUP CODE (ASCII)
A.MBR:'L'	.BLKB	3		; MEMBER CODE
A.PSWD:'L'	.BLKB	6		; PASSWORD
A.LNM:'L'	.BLKB	14.		; LAST NAME
A.FNM:'L'	.BLKB	12.		; FIRST NAME
A.LDAT:'L'	.BLKB	6		; DATE OF LAST LOG ON (DD/MM/YY HH:MM:SS)
A.NLOG:'L'	.BLKB	2		; TOTAL NUMBER OF LOGONS
A.SYDV:'L'	.BLKB	4		; DEFAULT SYSTEM DEVICE
A.TERM:'L'	.BLKB	4		; LOG ON TERMINAL USED			**JGD01
A.CTIM:'L'	.BLKB	2		; TOTAL CONNECT TIME(MINUTES)		**JGD01
A.PRIV:'L'	.BLKB	2		; PRIVLEGE MASK WORD			**JGD01
A.TNAM:'L'	.BLKB	6		; RESERVE SPACE FOR A 6 LETTER MCR 	**JGD02
					; COMMAND TO BE ISSUED BY HELLO		**JGD02
A.FILS:'L'	.BLKB	2		; TOTAL NUMBER OF USER'S FILES ON SY	**JGD03
A.UBLK:'L'	.BLKB	2		; TOTAL NUMBER OF BLOCKS USED ON SY	**JGD03
A.ABLK:'L'	.BLKB	2		; TOTAL NUMBER OF ALLOWED BLOCKS USED	**JGD03
					; ON USER'S SY:
A.CLI:'L'	.BLKW	1		; DEFAULT CLI(RAD50), MCR OR DCL	**JGD16
A.ACN:'L'	.BLKW	1		; ACCOUNT NUMBER			**JGD16
A.SID:'L'	.BLKW	1		; SESSION IDENTIFIER(RAD50)		**JGD16
A.CPU:'L'	.BLKW	2		; TOTAL CPU TIME USED(SEC)		**JGD16
A.VTRM:'L'	.BLKW	1		; BATCH TERMINAL(VT:) USED		**JGD16
A.TAS:'L'	.BLKW	2		; TOTAL NUMBER OF TASKS RUN		**JGD16
A.INS:'L'	.BLKW	2		; TOTAL NUMBER OF INSTALL REQUESTS	**JGD16
A.IND:'L'	.BLKW	2		; TOTAL NUMBER OF TIMES ...AT.  USED	**JGD16
A.LEN	='B'	128.			; LENGTH OF CONTROL BLOCK
	.PSECT
	.ENDM
; DEFINE PRIVLEGE MASK								**JGD01
;			BIT	15	SET TI PRIVLEGED REGARDLESS OF UIC	**JGD02
; A.PRIV		BITS 14-9	UNUSED					**JGD01
;			BIT	8	USER IS 'USER MANAGER' AND CAN CHANGE	**JGD15
;					LOGIN UIC TO ANY VALUE >[310,X]		**JGD15
;			BIT	7	USER IS GROUP MANAGER AND CAN CHANGE	**JGD15
;					LOGIN UIC MEMBER NUMBER			**JGD15
;			BIT	6	PASS A MESSAGE TO UPDATE TO UPDATE THE  **JGD03
;					NUMBER OF BLOCKS AND FILES USED BY THE  **JGD03
;					USER AND TO PLACE THE INFORMATEION IN	**JGD03
;					IN THE USER'S ACCOUNT			**JGD03
;			BIT	5	RESERVED(REQUIRE USER TO USE BATCH)	**
;			BIT	4	DO NOT ABORT ANY TASKS AT LOGOFF	**JGD04	
;			BIT	3	SET TERMINAL TO SLAVE BEFORE ACTIVATING **JGD02
;					REQUESTED TASK				**JGD02
;			BIT	2	INVOKE TASK ON EXIT FROM HELLO		**JGD02
;			BIT	1	USER MAY NOT RUN TASKS NOT OWNED BY	**JGD01
;					HIS UIC OR [200,200]			**JGD01
;			BIT	0	USER IS DENIED USE OF RUN COMMAND	**JGD01
 
;
; CONSTANTS
;
LUN2	==	2		; ACCOUNT FILE LUN
$BFLEN	==	2048.		; LENGTH OF ACCOUNT FILE BUFFER
 
	ACTDF$	<:>,<=>		; DEFINE OFFSETS INTO ACCOUNT FILE
 
$ACTFL:: FDBDF$			; DEFINE ACCOUNT FILE FDB
	FDOP$A	LUN2,DSPT,,,FA.ENB!FA.DLK ; SETUP LUN, DSD, AND F.ACTL	;	; MLG081
 
DSPT:	.WORD	6		; DATA SET DESCRIPTOR				;MGL007
	.WORD	DEVNAM		;
	.WORD	5		;
	.WORD	DIRNAM		;
	.WORD	9.		; WAS 11. LONG					; DG002
	.WORD	FILNAM		;
 
DEVNAM:		.ASCII	/LB000:/	;					;MGL007
DIRNAM:	.ASCII	/[0,0]/		;
FILNAM:	.ASCII	/RSX11.SYS/	; LOOK FOR ONLY THE LATEST VERSION		; DG002
	.EVEN
 
	FSRSZ$	1		; SET UP FOR A FILE IN GET PUT MODE
 
$ACTBF:: .BLKB	$BFLEN		; CREATE ACCOUNT FILE BUFFER			;MLG044
	.EVEN									;MLG044
	.END