PDP-10 Archive: 3a-sources/actsym.mac from bb-d868b-bm_tops20_v3a_2020

Trailing-Edge - PDP-10 Archives - bb-d868b-bm_tops20_v3a_2020_dist - 3a-sources/actsym.mac

There are 39 other files named actsym.mac in the archive. Click here to see a list.

;<3A.UTILITIES>ACTSYM.MAC.2, 11-Jul-78 13:40:08, Edit by PORCHER
;TCO # 1897 - ADD NEW ITEM CODES AND MACRO ENHANCEMENTS FOR
;	ARBITRARY USAGE ENTRIES
;<3-UTILITIES>ACTSYM.MAC.29, 21-Nov-77 19:10:41, EDIT BY CROSSLAND
;FIX PAGING
;<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

	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

.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
	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

>;;; 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