Google
 

Trailing-Edge - PDP-10 Archives - bb-d868c-bm_tops20_v4_2020_distr - 4-sources/actsym.mac
There are 39 other files named actsym.mac in the archive. Click here to see a list.
;<4.UTILITIES>ACTSYM.MAC.11,  3-Jan-80 15:24:45, EDIT BY R.ACE
;UPDATE COPYRIGHT DATE
;<4.UTILITIES>ACTSYM.MAC.10, 16-Aug-79 11:11:26, Edit by KONEN
;correct length of some tape entries
;<4.UTILITIES>ACTSYM.MAC.9,  6-Apr-79 09:44:47, Edit by KONEN
;ADD ELAPSED USE TIME FOR STRUCTURE AND TAPE ACCOUNTING
;<4.UTILITIES>ACTSYM.MAC.8, 10-Mar-79 13:30:29, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<4.UTILITIES>ACTSYM.MAC.7,  9-Feb-79 23:48:47, EDIT BY ZIMA
;TCO 4.2168 - Fix USAGE. macro to always generate two words
;<4.UTILITIES>ACTSYM.MAC.6, 20-Dec-78 14:49:49, EDIT BY HURLEY.CALVIN
; Add definitions for ARCHIVE/VIRTUAL-DISK USAGE entries
;<4.UTILITIES>ACTSYM.MAC.5, 14-Dec-78 15:55:28, Edit by KONEN
;ADD TAPE READ AND WRITE ERRORS TO USAGE INFO
;<4.UTILITIES>ACTSYM.MAC.4, 28-Nov-78 10:23:22, Edit by KONEN
;ADD SIXBIT STRUCTURE NAME TO AVOID CHANGING MONITOR TO ALLOW THREE
;ASCII STRINGS
;<4.UTILITIES>ACTSYM.MAC.3, 24-Nov-78 17:54:03, Edit by KONEN
;ADD MORE TAPE MOUNT FIELDS
;<KONEN>ACTSYM.MAC.3, 20-Aug-78 15:01:21, Edit by KONEN
;ADD STRUCTURE AND TAPE USAGE DEFINITIONS
	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,1979,1980 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

	RADIX 10		;**** NOTE RADIX 10 ****

.UTRST==:1			;SYSTEM RESTART ENTRY
.UTSEN==:2			;SESSION ENTRY
.UTCKP==:3			;CHECKPOINT ENTRY (SYSTEM RESTART)
.UTUSB==:4			;FIRST ENTRY OF USAGE FILE (SAME AS .UTRST)
.UTTAD==:5			;DATE-TIME CHANGE
.UTBAT==:6			;BATCH PROCESSOR
.UTINP==:7			;INPUT SPOOLER ENTRY
.UTOUT==:8			;OUTPUT SPOOLER ENTRY
.UTFLU==:9			;FILE USAGE DIRECTORY ENTRY
.UTDSU==:10			;DISK SPINDLE USAGE ENTRY
.UTMNT==:11			;STRUCTURE MOUNT ENTRY
.UTMMT==:12			;TAPE MOUNT ENTRY
.UTDMT==:13			;DECtape MOUNT ENTRY
.UTFCM==:14			;FILE COMMAND ENTRY
.UTRET==:15			; File retrieved
.UTARC==:16			; File archived
.UTMIG==:17			; File migrated
.UTCOL==:18			; File collected

.UTUSR==:5000			;USER-DEFINED ENTRY TYPES ARE 5000-9999

	RADIX 8			;**** END OF RADIX 10 ****
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.

All USAGE entry headers and the system-defined USAGE entry types use the
specific item types and these items are ordered by the system.

Installation-defined USAGE entries (with entry types above .UTUSR - 5000 to
9999) use the arbitrary data items (USUAS., USUSX., USUDC., USUOC., USUVR.,
USUDT., and USUSP.) in the order in which they are to be written into the
USAGE entry record.  Each arbitrary data record must be preceded by a
USUAR. item.

Example of installation-defined USAGE entry:

;The following code writes a USAGE entry for a fictitious "file access count"
; in a user program.  This program must be running as an enabled OPERATOR or
; WHEEL.

;Here to write USAGE entry for file access count

	MOVEI T1,.USENT		;USAGE function to write entry
	MOVEI T2,FILRDB		;Address of Record Descriptor Block
	USAGE			;Write the entry
	 ERJMP USGERR		;Failed to write entry-- do something else
	JRST USGOK		;Entry written-- go on

;Record descriptor block for file access count accounting

FILRDB:
	USENT. (.UTUSR+12,1,1)	;Entry type 5012= file access count.
	USPVR. (<BYTE(3)VWHO(9)VMAJOR(6)VMINOR(18)VEDIT>,US%IMM) ;Version
				;  of this program (for header record).

	USUAR.			;Start of first arbitrary record.
	USUAS. ([ASCII \This appears in every entry\],,27) ;Text.
	USUSP. (,,5)		;Space fill, 5 characters.
	USUDC. (FILCNT,,6)	;Count of file accesses, 000000-999999.

	USUAR.			;Start of second arbitrary record.
	USUSX. (<SIXBIT \FILE: \>,US%IMM,6) ;SIXBIT text for filename.
	USUAS. (FILNAM,,200)	;File name, 200 characters.

	EXP 0			;End of entry.

;Storage

FILCNT:	BLOCK 1			;File access count
FILNAM:	BLOCK ^D<200/5>		;File name text

&	;;; End of comment
	SUBTTL UITEM. / USENT. / USAGE. DEFINITIONS

	SALL

DEFINE UITEM. (NAME,TYPE,LEN) <
    DEFINE US'NAME'. (DATA<-1>,IMMED<0>,ULEN<LEN>) <
	USAGE. (.US'NAME,ULEN,TYPE,IMMED,<DATA>)
    >
>

DEFINE USENT. (ETYPE,DVER,CVER) <
	BYTE (9) ^D<DVER>,^D<CVER> (18) ^D<ETYPE>
>

DEFINE USAGE. (CODE,LENGTH,TYPE,FLAGS,DATUM) <
	FLAGS+<TYPE>B11+<^D<LENGTH>>B20+CODE
    IFB  <DATUM>,<-1>
    IFNB <DATUM>,<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

;ARBITRARY RECORD ITEM TYPES

DEFUS (UAR,122,.USSPC,0)	;USER-DEFINED ARBITRARY RECORD DELIMITER
DEFUS (UAS,123,.USASC,0)	;USER-DEFINED ASCII STRING
DEFUS (USX,124,.USSIX,0)	;USER-DEFINED SIXBIT STRING
DEFUS (UOC,125,.USOCT,0)	;USER-DEFINED OCTAL NUMBER
DEFUS (UDC,126,.USDEC,0)	;USER-DEFINED DECIMAL NUMBER
DEFUS (UDT,127,.USDAT,14)	;USER-DEFINED DATE AND TIME
DEFUS (UVR,130,.USVER,15)	;USER-DEFINED VERSION (STANDARD FORMAT)
DEFUS (USP,131,.USSPC,0)	;USER-DEFINED SPACE FILL

;STRUCTURE MOUNT RECORD ENTRIES

DEFUS (SSI,132,.USSIX,6)	;SIXBIT STRUCTURE ID
DEFUS (TNP,133,.USDEC,2)	;TOTAL NUMBER OF PACKS
DEFUS (SRV,134,.USDAT,14)	;SERVICED DATE/TIME OF REQUEST
DEFUS (MCT,135,.USDEC,3)	;MOUNT COUNT BEFORE MOUNT
DEFUS (DCT,136,.USDEC,3)	;MOUNT COUNT AFTER DISMOUNT
DEFUS (ATP,137,.USDEC,1)	;ACCESS TYPE

;TAPE MOUNT RECORD ENTRIES

DEFUS (VID,140,.USSIX,6)	;MAGTAPE VOLUME LABEL IN VOL1 LABEL
DEFUS (VSN,141,.USSIX,6)	;VISUAL SERIAL NUMBER
DEFUS (MRF,142,.USDEC,8)	;THOUSANDS OF FRAMES READ
DEFUS (MWF,143,.USDEC,8)	;THOUSANDS OF FRAMES WRITTEN
DEFUS (MLT,144,.USDEC,2)	;LABEL TYPE
DEFUS (MLS,145,.USDEC,1)	;VOLUME LABEL STATE
DEFUS (MRD,146,.USDEC,8)	;NUMBER OF PHYSICAL RECORDS READ
DEFUS (MWR,147,.USDEC,8)	;NUMBER OF PHYSICAL RECORDS WRITTEN
DEFUS (FSI,150,.USSIX,6)	;FILE SET IDENTIFIER
DEFUS (SRE,151,.USDEC,10)	;NUMBER OF SOFT READ ERRORS
DEFUS (SWE,152,.USDEC,10)	;NUMBER OF SOFT WRITE ERRORS
DEFUS (HRE,153,.USDEC,10)	;NUMBER OF HARD READ ERRORS
DEFUS (HWE,154,.USDEC,10)	;NUMBER OF HARD WRITE ERRORS
; Retrieve/archive/migration/collection entries

DEFUS (TP1,155,.USSIX,6)	; Tape ID 1
DEFUS (TS1,156,.USDEC,4)	; Tape saveset #
DEFUS (TF1,157,.USDEC,6)	; Tape file #
DEFUS (TP2,160,.USSIX,6)	; Tape 2 ID
DEFUS (TS2,161,.USDEC,4)	; Tape saveset #
DEFUS (TF2,162,.USDEC,6)	; Tape file #
DEFUS (RSN,163,.USOCT,1)	; Reason offline code

DEFUS (EUT,164,.USDEC,7)	; ELAPSED USE TIME (STRUCTURE AND TAPE)
>;;; 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