Trailing-Edge
-
PDP-10 Archives
-
bb-d868a-bm
-
3-sources/actsym.mac
There are 39 other files named actsym.mac in the archive. Click here to see a list.
;<3-UTILITIES>ACTSYM.MAC.28, 8-Nov-77 10:44:21, EDIT BY KIRSCHEN
;<3-UTILITIES>ACTSYM.MAC.27, 8-Nov-77 10:40:27, EDIT BY KIRSCHEN
;<3-UTILITIES>ACTSYM.MAC.26, 8-Nov-77 10:39:36, EDIT BY KIRSCHEN
;<3-MONITOR>ACTSYM.MAC.25, 19-Aug-77 11:18:15, Edit by HESS
;CHANGE LENTGH OF SYSTEM NAME TO 39 CHARS
;ADD RECORD TYPE 4 (USAGE FILE HEADER)
;<3-MONITOR>ACTSYM.MAC.24, 8-Aug-77 13:19:19, Edit by HESS
UNIVERSAL ACTSYM - SYMBOL FILE FOR ACCOUNTING
SUBTTL B.A. HUIZENGA/BAH/TAH - 6-JUN-77
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976, 1977, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;PARAMETERS FOR USAGE ITEM DESCRIPTORS
;FIELDS IN DATA ITEM DESCRIPTOR
US%FLG==:77B5 ;FLAGS
US%IMM==:1B0 ; 1 - IMMEDIATE DATA ITEM
; 0 - ADDRESS OF DATA ITEM
US%TYP==:77B11 ;TYPE CODE
.USASC==:0 ;ASCII
.USSIX==:1 ;SIXBIT
.USOCT==:2 ;OCTAL
.USDEC==:3 ;DECIMAL
.USDAT==:4 ;DATE-TIME
.USTAB==:5 ;TABLE (SPECIAL FORM)
.USVER==:6 ;VERSION NUMBER
.USSPC==:7 ;SPACE FILL
US%LEN==:777B20 ;LENGTH
US%COD==:77777B35 ;ITEM CODE
;RECORD TYPE CODES
.UTRST==:1 ;SYSTEM RESTART
.UTSEN==:2 ;SESSION ENTRY
.UTCKP==:3 ;CHECKPOINT RECORD (SYSTEM RESTART)
.UTUSB==:4 ;FIRST RECORD OF USAGE FILE (SAME AS .UTRST)
.UTTAD==:5 ;DATE-TIME CHANGE
.UTBAT==:6 ;BATCH PROCESSOR
.UTINP==:7 ;INPUT SPOOLER RECORD
.UTOUT==:10 ;OUTPUT SPOOLER RECORD
.UTFLU==:11 ;FILE USAGE DIRECTORY RECORD
.UTDSU==:12 ;DISK SPINDLE USAGE RECORD
.UTMNT==:13 ;STRUCTURE MOUNT RECORD
.UTMMT==:14 ;TAPE MOUNT RECORD
.UTDMT==:15 ;DECtape MOUNT RECORD
.UTFCM==:16 ;FILE COMMAND RECORD
COMMENT ^
The format of the data to be passed to the accounting system
will consist of a list of items describing the entries in a single
record.
The record descriptor list will have a header containing the record
type code and the record version information.
Format of a record descriptor:
!=======================================================!
! DEC ver. ! CUST ver. ! Entry Type !
!-------------------------------------------------------!
! Flags ! Type ! Length ! Item Code !
!-------------------------------------------------------!
! Data or Address (-1 for default) !
!-------------------------------------------------------!
\ . \
\ . \
\ . \
!-------------------------------------------------------!
! 0 (Marks end of list) !
!=======================================================!
The generation of these tables will be controlled by the
UITEM. macro. All known data items will have a name generated by
the use of this macro. If any application dependent items are needed
the UITEM. macro may be used to generate the new item. The USENT.
macro may be used to generate the first word of the entry descriptor
table.
Example: (Session Entry)
MOVEI T1,.USENT ;WRITE AN ENTRY
MOVEI T2,LOGLST ;PARAMETER BLOCK
USAGE ;INVOKE MONITOR
;RETURN +1
LOGLST: USENT. (.UTSEN,1,1) ;SESSION ENTRY TYPE
USRTM. (JBRUNT) ;RUN-TIME
USACT. (<-1,,ACCTSR>) ;ACCOUNT
USSST. (CONSTO) ;SESSION START TIME
USJTY. (-1) ;BATCH T/S FLAG
USBJN. (JBBNAM) ;BATCH JOB NAME
USBSN. (JBBSEQ) ;BATCH SEQ NUMBER
USCOM. (<-1,,JSSRM+1>) ;SESSION REMARK
USCCT. (CONCON) ;CONSOLE CONNECT TIME
USPNM. (<SIXBIT "MONITR">,US%IMM)
USPVR. ([EXP SVNM]) ;MONITOR NAME AND VERSION
USNM2. (<-1,,USRNAM+1>) ;USER NAME
0 ;END OF LIST
^ ;;; End of comment
SUBTTL UITEM. / USENT. / USAGE. DEFINITIONS
SALL
DEFINE UITEM. (NAME,TYPE,LEN) <
DEFINE US'NAME'. (DATA,IMMED<0>) <
USAGE. (.US'NAME,LEN,TYPE,IMMED,<DATA>)
>
>
DEFINE USENT. (ETYPE,DVER,CVER) <
BYTE (9) DVER,CVER (18) ETYPE
>
DEFINE USAGE. (CODE,LENGTH,TYPE,FLAGS,DATUM) <
FLAGS+<TYPE>B11+<^D'LENGTH>B20+CODE
DATUM
>
DEFINE USDSK. (TABLE) <
USAGE. (.USDST,0,.USTAB,US%IMM,<TABLE>)
>
SUBTTL USAGE. ITEM-CODE DEFINITIONS
DEFINE USLIST <
DEFUS (JNO,0,.USDEC,4) ;JOB NUMBER
DEFUS (TAD,1,.USDAT,14) ;CURRENT DATE/TIME
DEFUS (TRM,2,.USASC,1) ;TERMINAL DESIGNATOR
DEFUS (LNO,3,.USOCT,4) ;LINE NUMBER
DEFUS (PNM,4,.USSIX,6) ;PROGRAM NAME (CALLER)
DEFUS (PVR,5,.USVER,15) ;PROGRAM VERSION
DEFUS (AMV,6,.USVER,15) ;ACCOUNTING MODULE VERSION
DEFUS (NOD,7,.USSIX,6) ;CALLER'S LOCATION
DEFUS (PPN,10,.USOCT,12) ;PROJECT / PROGRAMMER NUMBER (TOPS10 ONLY)
DEFUS (NM1,11,.USASC,12) ;NAME OF USER (TOPS10)
DEFUS (SNM,12,.USASC,39) ;SYSTEM NAME
DEFUS (MVR,13,.USVER,15) ;MONITOR VERSION NUMBER
DEFUS (MBD,14,.USDAT,14) ;MONITOR BUILD DATE
DEFUS (MUP,15,.USDEC,18) ;MONITOR UPTIME (IN SECONDS)
DEFUS (ACT,16,.USASC,39) ;ACCOUNT STRING
DEFUS (LCK,17,.USDAT,14) ;TIME OF LAST CHECKPOINT
DEFUS (RTM,20,.USDEC,9) ;RUNTIME IN MS
DEFUS (CTI,21,.USDEC,11) ;CORE-TIME INTEGRAL (TOPS10 ONLY)
DEFUS (SST,22,.USDAT,14) ;SESSION START TIME
DEFUS (JTY,23,.USDEC,1) ;JOB TYPE (BATCH / TIMESHARING)
DEFUS (BJN,24,.USSIX,6) ;BATCH JOB NAME
DEFUS (BSN,25,.USDEC,6) ;BATCH SEQUENCE NUMBER
DEFUS (COM,26,.USASC,39) ;USER COMMENT
DEFUS (DKR,27,.USDEC,8) ;DISK READS
DEFUS (DKW,30,.USDEC,8) ;DISK WRITES
DEFUS (VTI,31,.USDEC,11) ;VIRTUAL CORE-TIME INTEGRAL
DEFUS (EBX,32,.USDEC,9) ;EBOX MEGACOUNTS (CYCLES * 10^6)
DEFUS (MBX,33,.USDEC,9) ;MBOX MEGACOUNTS (CYCLES * 10^6)
DEFUS (MCL,34,.USDEC,6) ;MONITOR CALLS
DEFUS (MCM,35,.USDEC,6) ;MONITOR COMMANDS
DEFUS (SCL,36,.USDEC,3) ;SCHEDULING CLASS
DEFUS (TYI,37,.USDEC,6) ;TTY INPUT CHARACTERS
DEFUS (TYO,40,.USDEC,6) ;TTY OUTPUT CHARACTERS
DEFUS (TYW,41,.USDEC,6) ;TTY WAKEUPS
DEFUS (CPN,42,.USDEC,1) ;NUMBER OF CPUS
DEFUS (CP0,43,.USDEC,4) ;SERIAL NUMBER OF CPU0
DEFUS (CP1,44,.USDEC,4) ;SERIAL NUMBER OF CPU1
DEFUS (CP2,45,.USDEC,4) ;SERIAL NUMBER OF CPU2
DEFUS (CP3,46,.USDEC,4) ;SERIAL NUMBER OF CPU3
DEFUS (CP4,47,.USDEC,4) ;SERIAL NUMBER OF CPU4
DEFUS (CP5,50,.USDEC,4) ;SERIAL NUMBER OF CPU5
DEFUS (RQQ,51,.USDEC,11) ;RUN QUEUE QUOTIENT (TOPS10 ONLY)
DEFUS (NM2,52,.USASC,39) ;NAME OF USER (TOPS20)
DEFUS (CCT,53,.USDEC,7) ;CONSOLE CONNECT TIME (SECONDS)
DEFUS (DTL,54,.USDAT,14) ;DATE/TIME BEFORE CHANGE (STAD)
;DISK UTILIZATION RECORD ENTRIES
DEFUS (NRF,55,.USDEC,3) ;NUMBER OF RECORDS FOLLOWING
DEFUS (TAL,56,.USDEC,10) ;TOTAL ALLOCATED STORAGE
DEFUS (TUS,57,.USDEC,10) ;TOTAL STORAGE USED
DEFUS (TNF,60,.USDEC,5) ;TOTAL NUMBER OF FILES
DEFUS (STR,61,.USASC,6) ;STRUCTURE NAME
DEFUS (STP,62,.USDEC,1) ;STRUCTURE TYPE CODE
DEFUS (KTP,63,.USDEC,3) ;CONTROLLER TYPE
DEFUS (DTP,64,.USDEC,3) ;DEVICE TYPE
DEFUS (LIQ,65,.USDEC,6) ;LOGGED IN QUOTA
DEFUS (LOQ,66,.USDEC,6) ;LOGGED OUT QUOTA
DEFUS (LLI,67,.USDAT,14) ;LAST LOGGED IN DATE/TIME
DEFUS (LAT,70,.USDAT,14) ;LAST DISK ACCOUNTING DATE/TIME
DEFUS (EXP,71,.USASC,1) ;EXPIRED DIRECTORY (Y/N)
DEFUS (DIR,72,.USASC,39) ;DIRECTORY NAME
DEFUS (ALC,73,.USDEC,10) ;ALLOCATED STORAGE
DEFUS (USG,74,.USDEC,10) ;STORAGE USED
DEFUS (FIL,75,.USDEC,5) ;NUMBER OF FILES
DEFUS (FON,76,.USASC,1) ;FILES ONLY INDICATOR (Y/N)
;SPOOLER INFORMATION RECORD ENTRIES
DEFUS (SRT,77,.USDEC,9) ;SPOOLER RUNTIME
DEFUS (SCI,100,.USDEC,11) ;CORE-TIME INTEGRAL
DEFUS (SDR,101,.USDEC,8) ;SPOOLER DISK READS
DEFUS (SDW,102,.USDEC,8) ;SPOOLER DISK WRITES
DEFUS (JNM,103,.USSIX,6) ;JOB NAME
DEFUS (QNM,104,.USSIX,3) ;QUEUE NAME
DEFUS (SDV,105,.USSIX,6) ;PROCESSING DEVICE
DEFUS (SSN,106,.USDEC,6) ;SEQUENCE NUMBER
DEFUS (SUN,107,.USDEC,6) ;SPOOLER UNITS PROCESSED
DEFUS (CRT,110,.USDAT,14) ;CREATION DATE/TIME OF REQUEST
DEFUS (DSP,111,.USSIX,6) ;DISPOSITION
DEFUS (TXT,112,.USASC,39) ;OPR OR SYSTEM TEXT
DEFUS (PRI,113,.USDEC,2) ;PRIORITY
DEFUS (SNF,114,.USDEC,5) ;NUMBER OF FILES PROCESSED
DEFUS (SCD,115,.USDAT,14) ;SCHEDULED DATE/TIME
DEFUS (FRM,116,.USSIX,6) ;FORMS TYPE
;DATE/TIME CHANGE RECORD ENTIRES
DEFUS (OFD,117,.USDEC,7) ;OFFSET IN DAYS
DEFUS (OFS,120,.USDEC,7) ;OFFSET IN SECONDS
DEFUS (ODT,121,.USDAT,14) ;OLD DATE/TIME
>;;; END OF USLIST
;MACRO TO DEFINE ALL USAGE. ITEM CODES
DEFINE DEFUS (NAM,VAL,TYP,LEN) <
IF1,<IFDEF .US'NAM,<
PRINTX .US'NAM ALREADY DEFINED
>>
.US'NAM==:VAL
UITEM. (NAM,TYP,LEN)
>
;EXPAND ALL DEFINITIONS
USLIST
;SPECIAL ITEM TYPE CODE DEFINITIONS
.USDSX==:7776 ;STRUCTURE/DIRECTORY INFO WORD (SPECIAL)
.USDST==:7777 ;DISK STATISTICS TABLE POINTER
END