HTTAB.MAC;2/AU=HTTAB.VGN \ -2,2 .IDENT /V2.00X/ -/2.00/+3,, ; ; V2.00X 25-Feb-1982 James G. Downward ; JGD Modify HTDRV to allow KMS accounting to work % -/DF,A$$CNT/+2,,/;JGD/ .IF DF M$$MUP ; ONLY IF MULITUSER PROTECTION .IF DF R$$PRV ; KMS ACCOUNTING RUN PRIVLEGES ; Additional words are added to each terminal like UCB to implement ; in a straightforward manner, user by user accounting. The format of ; all terminal-like UCB's in the system MUST be identical. .IF DF Q$$CNT ; QIO ACCOUNTING .WORD 0 ; U.QIO1 - NUMBER OF QIOs ISSUED(LOVAL) .WORD 0 ; U.QIO2 - NUMBER OF QIOs ISSUED(HIVAL) .ENDC ; END CONDITIONAL -- QIO ACCOUNTING .IF DF T$$CPU ; CPU TIME ACCOUNTING .WORD 0 ; U.ATCT - NUMBER OF ...AT. RUNS .WORD 0 ; U.INCT - NUMBER OF INSTALL REQUESTS .WORD 0 ; U.RNCT - NUMBER OF TASKS RUN .WORD 0 ; U.TIC1 - CPU TIME IN TICS -LOVAL(U.TIC1=U.LUIC-10) .WORD 0 ; U.TIC2 - CPU TIME IN TICS - HIVAL(U.TIC2=U.LUIC-6) .WORD 0 ; U.ACN - ACCOUNT NUMBER(U.ACN=U.LUIC-4) .ENDC ; END CONDITIONAL -- CPU TIME ACCOUNTING .WORD 0 ; U.PRIV=U.LUIC-2 - PRIVLEGE MASK WORD .ENDC ; END CONDITIONAL -- PRIVLEGE MASK WORD .ENDC ; END CONDITIONAL - M$$MUP /