ACTFIL - ACCOUNT FILE CONTROL B MACRO V05.03b Friday 09-May-86 14:41 Page 3 1 .TITLE ACTFIL - ACCOUNT FILE CONTROL BLOCKS 2 .IDENT /4.4KMS/ 3 ; 4 ; VERSION: 01.1.X 5 ; BY: H. LEV 6 ; DATE: 7/15/75 7 ; 8 ; MODIFIED: 9 ; 10 ; JGD01 -- ALLOW INSERTION OF TOTAL TERMINA 11 ; CONNECT TIME, AND PRIVLEGE MASK 12 ; 13 ; JGD02 -- ALLOW INSERTION OF TASK OTHER THAN MCR 14 ; TO INVOKE AS HELLO EXITS. 15 ; 16 ; JGD03 -- ALLOW INSERTION OF TOTAL NUMBER OF FILES AND DISK 17 ; USED ON USERS SYSTEM DEVICE 18 ; 19 ; JGD15 -- DEFINE TWO NEW CATAGORIES OF USER PRIVLEGES, THE 20 ; GROUP MANAGER(CAN CHANGE MEMBER NUMBER OF LOGIN UIC), 21 ; AND 'USER MANAGER'(CAN CHANGE LOGIN UIC IF >[310,X]) 22 ; REQUIRES ALL NON PRIVLEGED ACCOUNTS >[377,X]. THE 23 ; UIC AT WHICH THE BREAK IS MADE IS EASILY CHANGED IN 24 ; SPROV.SLP. 25 ; 26 ; JGD16 -- ADD OFFSETS FOR DEFAULT CLI (RAD50),ACCOUNT NUMBER 27 ; TOTAL CPU TIME USED, ID, AND VT: FLAG. 28 ; 29 ; JGD30 -- Add bits in privilege mask word to support silent 30 ; login. Remove support for slave login as it is 31 ; handled in DEC std mask word. 32 ; 33 ; JGD31 -- Add support for logging in terminal with nobroadcast 34 ; bit set. 35 ; 36 ; JGD34 -- User is allowed to log in via a DECnet remote 37 ; command terminal (HTxx:). 38 ; 39 ; DG002 -- LOOK FOR LATEST VERSION OF RSX11.SYS 40 ; 41 ; MGL007 -- LOOK ONLY ON BOOT DEVICE FOR ACCOUNT FILE 42 ; 43 ; MGL044 -- CREATE BUFFER USABLE FOR SPOOLING LISTING(ACNT) 44 ; 45 ; MGL081 -- DO NOT LEAVE ACCOUNT FILE LOCKED ON HELLO ABORT 46 ; 47 ; SA213 -- ADD FIELDS FOR SALVE BIT, DEFAULT CLI NAME 48 ;- 49 ; ******************************************************************* 50 ; **** **** 51 ; **** PLEASE NOTE **** 52 ; **** The order of fields used in ACTFIL.KMS differs somewhat **** 53 ; **** from the standard ACTFIL.MAC. This is becuase we started **** 54 ; **** using these areas before DEC did. So that my account **** 55 ; **** file would continue to work, as new fields were required **** 56 ; **** they were added at the end. This means that ACTFIL.KMS **** 57 ; **** will work on both systems previously using KMS accounting **** ACTFIL - ACCOUNT FILE CONTROL B MACRO V05.03b Friday 09-May-86 14:41 Page 3-1 58 ; **** and should work on systems with account files established **** 59 ; **** under RSX11M V3.2. However, the RSX11.SYS produced will **** 60 ; **** not be transportable to other RSX11M systems unless that **** 61 ; **** system is using KMS accounting or has built tasks using **** 62 ; **** ACTFIL.KMS. **** 63 ; **** **** 64 ; ******************************************************************* 65 66 .MCALL FDBDF$,FDOP$A,FSRSZ$ 67 .MACRO ACTDF$,L,B 68 .ASECT 69 .=0 70 A.GRP:'L' .BLKB 3 ; GROUP CODE (ASCII) 71 A.MBR:'L' .BLKB 3 ; MEMBER CODE 72 A.PSWD:'L' .BLKB 6 ; PASSWORD 73 A.LNM:'L' .BLKB 14. ; LAST NAME 74 A.FNM:'L' .BLKB 12. ; FIRST NAME 75 A.LDAT:'L' .BLKB 6 ; DATE OF LAST LOG ON (DD/MM/YY HH:MM:SS) 76 A.NLOG:'L' .BLKB 2 ; TOTAL NUMBER OF LOGONS 77 A.SYDV:'L' .BLKB 4 ; DEFAULT SYSTEM DEVICE 78 A.TERM:'L' .BLKB 4 ; LOG ON TERMINAL USED ; JGD01 79 A.CTIM:'L' .BLKB 2 ; TOTAL CONNECT TIME(MINUTES) ; JGD01 80 A.PRIV:'L' .BLKB 2 ; PRIVLEGE MASK WORD ; JGD01 81 A.TNAM:'L' .BLKB 6 ; TASK TO RQST (unused now) ; JGD30 82 A.FILS:'L' .BLKB 2 ; # OF FILES ON SY ; JGD03 83 A.UBLK:'L' .BLKB 2 ; # OF BLOCKS USED ON SY ; JGD03 84 A.ABLK:'L' .BLKB 2 ; # OF ALLOWED BLOCKS USED ; JGD03 85 A.LPRV:'L' .BLKW 1 ; LOGIN PRIVLEGE WORD ; SA213 86 A.ACN:'L' .BLKW 1 ; ACCOUNT NUMBER ; JGD16 87 A.SID:'L' .BLKW 1 ; SESSION IDENTIFIER(RAD50) ; JGD16 88 A.CPU:'L' .BLKW 2 ; TOTAL CPU TIME USED(SEC) ; JGD16 89 A.VTRM:'L' .BLKW 1 ; BATCH TERMINAL(VT:) USED ; JGD16 90 A.CLI:'L' .BLKW 2 ; RAD50 DEFAULT CLI NAME ; SA213 91 92 A.LEN ='B' 128. ; LENGTH OF CONTROL BLOCK 93 94 ; 95 ; BIT DEFINITION ON A.LPRV - LOGIN PRIVILEGES 96 ; 97 AL.SLV ='B' 1 ; SLAVE TERMINAL ON LOGIN 98 .PSECT 99 .ENDM 100 101 ; DEFINE PRIVLEGE MASK 102 ; BIT 15 SET TI PRIV (ON ANY UIC) 103 ; BIT 14 ALLOW REMOTE DIAL IN 104 ; A.PRIV BITS 13-9 UNUSED 105 ; BIT 8 'USER MANAGER' AND CAN CHANGE 106 ; LOGIN UIC IF UIC>[310,X] 107 ; BIT 7 GROUP MANAGER,CAN CHANGE 108 ; LOGIN UIC MEMBER NUMBER 109 ; BIT 6 UPDATE THE # OF BLOCKS 110 ; AND FILES USED BY THE 111 ; BIT 5 Log terminal on with No-Broadcast bit set 112 ; BIT 4 SKIP TASK ABORT AT LOGOFF 113 ; BIT 3 Force 'Silent Login' (was force Slave) 114 ; BIT 2 Request task at login ACTFIL - ACCOUNT FILE CONTROL B MACRO V05.03b Friday 09-May-86 14:41 Page 3-2 115 ; BIT 1 USER MAY ONLY RUN OWN TASKS 116 ; OR PUBLIC TASKS([200,200]) 117 ; BIT 0 USER MAY NOT USE RUN COMMAND 118 ; 119 ; 120 ; DEFINE THE PRIVILEGE MASK WORD BITS FOR U.PRV1 121 ; 122 000001 PM.RUN == 1 ; USER MAY NOT USE THE RUN COMMAND 123 000002 PM.OWN == 2 ; USER MAY ONLY RUN TASKS OWNED BY HIM/HER 124 000004 PM.TSK == 4 ; RUN A TASK SPECIFIED IN ACNT FILE ON EXIT 125 000010 PM.SIL == 10 ; FORCE A SILENT LOGIN 126 ;PM.SLV == 10 ; Decomissioned -log users terminal on as slaved 127 000020 PM.ABO == 20 ; DO NOT ABORT USERS NON-PRIV TASKS AT LOGOFF 128 000040 PM.NBR == 40 ; Log terminal on with No-Broadcast bit set 129 000100 PM.DSK == 100 ; AT LOGOFF, ACCOUNT FOR USER'S DISK BLOCKS 130 000200 PM.GRP == 200 ; USER HAS GROUP MANAGER PRIVILEGES 131 000400 PM.USR == 400 ; USER IS NON-PRIVILEGED USER MANAGER 132 020000 PM.NET == 20000 ; USER MAY REMOTE IN VIA DECNET 133 040000 PM.RMT == 40000 ; USER MAY DIAL IN ON A REMOTE LINE 134 100000 PM.PRV == 100000 ; USER IS PRIVILEGED REGARDLESS OF UIC 135 136 ; 137 ; CONSTANTS 138 ; 139 000002 LUN2 == 2 ; ACCOUNT FILE LUN 140 004000 $BFLEN == 2048. ; LENGTH OF ACCOUNT FILE BUFFER 141 142 000000 ACTDF$ <:>,<=> ; DEFINE OFFSETS INTO ACCOUNT FILE 143 144 000000 $ACTFL:: FDBDF$ ; DEFINE ACCOUNT FILE FDB 145 000140 FDOP$A LUN2,DSPT,,,FA.ENB!FA.DLK ; SETUP LUN, DSD, AND F.ACTL ;; MLG081 000042 002 .BYTE LUN2 000044 000140' .WORD DSPT 000076 000000C .WORD FA.ENB!FA.DLK 146 147 000140 000006 DSPT: .WORD 6 ; DATA SET DESCRIPTOR ;MGL007 148 000142 000154' .WORD DEVNAM ; 149 000144 000005 .WORD 5 ; 150 000146 000162' .WORD DIRNAM ; 151 000150 000011 .WORD 9. ; WAS 11. LONG ; DG002 152 000152 000167' .WORD FILNAM ; 153 154 000154 114 102 060 DEVNAM: .ASCII /LB000:/ ; ;MGL007 000157 060 060 072 155 000162 133 060 054 DIRNAM: .ASCII /[0,0]/ ; 000165 060 135 156 000167 122 123 130 FILNAM: .ASCII /RSX11.SYS/ ; LOOK FOR ONLY THE LATEST VERSION; DG002 000172 061 061 056 000175 123 131 123 157 .EVEN 158 159 000200 FSRSZ$ 1 ; SET UP FOR A FILE IN GET PUT MODE 160 161 000200 $ACTBF:: .BLKB $BFLEN ; CREATE ACCOUNT FILE BUFFER ;MLG044 162 .EVEN ;MLG044 163 000001 .END ACTFIL - ACCOUNT FILE CONTROL B MACRO V05.03b Friday 09-May-86 14:41 Page 3-3 Symbol table AL.SLV= 000001 G D$$Z11= 000001 F.RCTL= 000017 N.NEXT= 000022 S.ANM1= 000014 A$$BIO= 000000 E$$DVC= 000000 F.RSIZ= 000002 N.STAT= 000020 S.ANM2= 000005 A$$BRT= 000000 E$$LOG= 000000 F.RTYP= 000000 N.UNIT= 000034 S.BFHD= 000020 A$$CHK= 000000 E$$XPR= 000000 F.SEQN= 000100 PM.ABO= 000020 G S.FATT= 000016 A$$CLI= 000004 FA.DLK= ****** GX F.SPDV= 000072 PM.DSK= 000100 G S.FDB = 000140 A$$CPS= 000000 FA.ENB= ****** GX F.SPUN= 000074 PM.GRP= 000200 G S.FNAM= 000006 A$$PRI= 000000 FILNAM 000167R F.STBK= 000036 PM.NBR= 000040 G S.FNB = 000036 A$$TRP= 000000 FX.DIR= 000004 F.UNIT= 000136 PM.NET= 020000 G S.FNBW= 000017 A.ABLK 000104 G FX.DLN= 000003 F.URBD= 000020 PM.OWN= 000002 G S.FNTY= 000004 A.ACN 000110 G FX.DMX= 000002 F.VBN = 000064 PM.PRV= 100000 G S.FTYP= 000002 A.CLI 000122 G FX.LEN= 000000 F.VBSZ= 000060 PM.RMT= 040000 G S.NFEN= 000020 A.CPU 000114 G F$$LPP= 000000 G$$EFN= 000000 PM.RUN= 000001 G T$$ACR= 000000 A.CTIM 000066 G F$$LVL= 000001 G$$TPP= 000000 PM.SIL= 000010 G T$$BTW= 000000 A.FILS 000100 G F.ACTL= 000076 G$$TTK= 000000 PM.TSK= 000004 G T$$BUF= 000000 A.FNM 000032 G F.ALOC= 000040 G$$WRD= 000000 PM.USR= 000400 G T$$CCA= 000000 A.GRP 000000 G F.BBFS= 000062 H$$RTZ= 000074 P$$BPR= 000063 T$$CCO= 000000 A.LDAT 000046 G F.BDB = 000070 I$$RAR= 000000 P$$CTL= 000000 T$$CPU= 000000 A.LEN = 000200 G F.BGBC= 000057 I$$RDN= 000000 P$$FRS= 000310 T$$CPW= 000000 A.LNM 000014 G F.BKDN= 000026 K$$AST= 000000 P$$GMX= 000000 T$$CTR= 000000 A.LPRV 000106 G F.BKDS= 000020 K$$CNT= 177546 P$$HIL= 003100 T$$ESC= 000000 A.MBR 000003 G F.BKEF= 000050 K$$CSR= 177546 P$$LAS= 000000 T$$GMC= 000000 A.NLOG 000054 G F.BKP1= 000051 K$$IEN= 000115 P$$LOL= 001130 T$$GTS= 000000 A.PRIV 000070 G F.BKST= 000024 K$$LDC= 000001 P$$OFF= 000000 T$$HFF= 000000 A.PSWD 000006 G F.BKVB= 000064 K$$TPS= 000074 P$$RTY= 000000 T$$HLD= 000000 A.SID 000112 G F.CHR = 000075 LD$CO = 000000 P$$SRF= 000000 T$$KAC= 000000 A.SYDV 000056 G F.CNTG= 000034 LD$DL = 000000 P$$WRD= 000000 T$$KMG= 000000 A.TERM 000062 G F.DFNB= 000046 LD$DY = 000000 Q$$CNT= 000000 T$$LWC= 000000 A.TNAM 000072 G F.DSPT= 000044 LD$TT = 000000 Q$$MGR= 000000 T$$RED= 000000 A.UBLK 000102 G F.DVNM= 000134 LUN2 = 000002 G Q$$OPT= 000005 T$$RNE= 000000 A.VTRM 000120 G F.EFBK= 000010 L$$ASG= 000000 R$$EXV= 000000 T$$RPR= 000000 B$$LV1= 034063 F.EFN = 000050 L$$DRV= 000000 R$$LKL= 000001 T$$RST= 000000 B$$LV2= 020040 F.EOBB= 000032 L$$LDR= 000000 R$$L11= 000001 T$$RUB= 000000 C$$CDA= 000014 F.ERR = 000052 M$$ACC= 000000 R$$NDC= 000005 T$$SMC= 000000 C$$CKP= 000004 F.EXT = 000072 M$$CRB= 000124 R$$NDH= 000226 T$$SYN= 000000 C$$CSR= 177170 F.FACC= 000043 M$$CRX= 000000 R$$NDL= 000001 T$$TRW= 000000 C$$INT= 000000 F.FFBY= 000014 M$$EIS= 000000 R$$POI= 000000 T$$UTB= 000000 C$$ONS= 000001 F.FLG = 000074 M$$EXT= 000000 R$$PRV= 000000 T$$UTO= 000170 C$$ORE= 002022 F.FNAM= 000110 M$$FCS= 000000 R$$SND= 000000 T$$VBF= 000000 C$$RSH= 177564 F.FNB = 000102 M$$MGE= 000000 R$$TPR= 032062 T$$30P= 000000 C$$RUN= 000000 F.FTYP= 000116 M$$MUP= 000000 R$$X21= 000001 U$$MHI= 000000 C$$SMT= 000000 F.FVER= 000120 M$$OVR= 000000 R$$11M= 000000 U$$MLO= 120000 C$$TTY= 177564 F.HIBK= 000004 N$$LDV= 000001 S$$ACC= 000000 U$$MRN= 170224 DEVNAM 000154R F.LUN = 000042 N$$MOV= 000041 S$$HFC= 000036 V$$CTR= 001000 DIRNAM 000162R F.MBCT= 000054 N$$UMR= 000024 S$$NM1= 041517 V$$RSN= 000042 DSPT 000140R F.MBC1= 000055 N.ANM1= 000002 S$$NM2= 020103 $ACTBF 000200RG D$$IAG= 000000 F.MBFG= 000056 N.ANM2= 000024 S$$NM3= 020040 $ACTFL 000000RG D$$ISK= 000000 F.NRBD= 000024 N.DID = 000024 S$$TIM= 000000 $BFLEN= 004000 G D$$L11= 000002 F.NREC= 000030 N.DVNM= 000032 S$$TOP= 000000 .FSRCB= ****** G D$$SHF= 000000 F.OVBS= 000030 N.FID = 000000 S$$WLK= 000000 ...PC1= 000000R D$$YNC= 000000 F.RACC= 000016 N.FNAM= 000006 S$$WPC= 000036 ...PC2= 000140R D$$YNM= 000000 F.RATT= 000001 N.FTYP= 000014 S$$WPR= 000005 ...TPC= 000020 D$$ZMD= 000000 F.RCNM= 000034 N.FVER= 000016 S$$YSZ= 040000 . ABS. 000126 000 (RW,I,GBL,ABS,OVR) 004200 001 (RW,I,LCL,REL,CON) $$FSR1 001020 002 (RW,D,GBL,REL,OVR) Errors detected: 0 ACTFIL - ACCOUNT FILE CONTROL B MACRO V05.03b Friday 09-May-86 14:41 Page 3-4 Symbol table *** Assembler statistics Work file reads: 0 Work file writes: 0 Size of work file: 11275 Words ( 45 Pages) Size of core pool: 12032 Words ( 46 Pages) Operating system: RSX-11M/PLUS Elapsed time: 00:00:14.47 ,ACTFIL/LI:MEB/CR=[1,54]RSXMC/PA:1,[1,1]EXEMC/ML,[344,40]ACTFIL.KMS ACTFIL CREATED BY MACRO ON 9-MAY-86 AT 14:42 PAGE 1 SYMBOL CROSS REFERENCE CREF 04.00 SYMBOL VALUE REFERENCES AL.SLV = 000001 G #3-142 A.ABLK 000104 G #3-142 A.ACN 000110 G #3-142 A.CLI 000122 G #3-142 A.CPU 000114 G #3-142 A.CTIM 000066 G #3-142 A.FILS 000100 G #3-142 A.FNM 000032 G #3-142 A.GRP 000000 G #3-142 A.LDAT 000046 G #3-142 A.LEN = 000200 G #3-142 A.LNM 000014 G #3-142 A.LPRV 000106 G #3-142 A.MBR 000003 G #3-142 A.NLOG 000054 G #3-142 A.PRIV 000070 G #3-142 A.PSWD 000006 G #3-142 A.SID 000112 G #3-142 A.SYDV 000056 G #3-142 A.TERM 000062 G #3-142 A.TNAM 000072 G #3-142 A.UBLK 000102 G #3-142 A.VTRM 000120 G #3-142 DEVNAM 000154 R 3-148 #3-154 DIRNAM 000162 R 3-150 #3-155 DSPT 000140 R 3-145 #3-147 FA.DLK = ****** GX 3-145 FA.ENB = ****** GX 3-145 FILNAM 000167 R 3-152 #3-156 F.ACTL = 000076 3-145 F.DSPT = 000044 3-145 F.LUN = 000042 3-145 LUN2 = 000002 G #3-139 3-145 PM.ABO = 000020 G #3-127 PM.DSK = 000100 G #3-129 PM.GRP = 000200 G #3-130 PM.NBR = 000040 G #3-128 PM.NET = 020000 G #3-132 PM.OWN = 000002 G #3-123 PM.PRV = 100000 G #3-134 PM.RMT = 040000 G #3-133 PM.RUN = 000001 G #3-122 PM.SIL = 000010 G #3-125 PM.TSK = 000004 G #3-124 PM.USR = 000400 G #3-131 S.BFHD = 000020 3-159 3-159 S.FDB = 000140 3-144 3-144 $ACTBF 000200 RG #3-161 $ACTFL 000000 RG #3-144 $BFLEN = 004000 G #3-140 3-161 .FSRCB = ****** G 3-159 ...PC1 = 000000 R #3-144 3-145 3-145 3-145 ACTFIL CREATED BY MACRO ON 9-MAY-86 AT 14:42 PAGE 2 SYMBOL CROSS REFERENCE CREF 04.00 SYMBOL VALUE REFERENCES ...PC2 = 000140 R #3-145 3-145 #3-145 3-145 #3-145 3-145 ACTFIL CREATED BY MACRO ON 9-MAY-86 AT 14:42 PAGE 3 MACRO CROSS REFERENCE CREF 04.00 MACRO NAME REFERENCES ACTDF$ #3-67 3-142 BDOFF$ #3-159 CBYTE$ #3-145 3-145 3-145 CWORD$ #3-145 3-145 3-145 3-145 DEF$L #3-159 FDBDF$ #3-66 3-144 FDBSZ$ #3-144 3-144 FDOFF$ #3-145 3-145 FDOP$A #3-66 3-145 FSRSZ$ #3-66 3-159