;*************************** AMUS Program Label ******************************
; Filename: AAI.M68                                         Date: 1/29/92
; Category: UTIL         Hash Code: 522-015-760-201      Version: 
; Initials: TREE/AM      Name: DELL COLEMAN
; Company: Alpha Automation Incorporated           Telephone #: 7138778039
; Related Files: 
; Min. Op. Sys.:                               Expertise Level: INT
; Special: 
; Description: UNiVersal file for most donations from Alpha Automation.
; 
; 
;*****************************************************************************
;*  UNiVersal file for AAI
;
; Edit History
;
;[105] 6 November 1991 Dell Coleman
;	Add offsets for device table.  (Not documented anywhere)
;
;[104] 7 Octobar 1991 Dell Coleman
;	Add offset for Extended directories as per Monitor calls rev A00
;
;[103] 22 April 1991 Dell Coleman
;	Add FUNCTION CODES for DCACHE
;	    Copied from Monitor Calls Manual
;
;[102] 12 September 1989  Dell Coleman
;	Added Macros
;	    GETTCB - To get control of a Terminal Control Block
;	    RLSTCB - To relinquish control of a Terminal Control Block
;
;[101] 29 August 1989  Dell Coleman
;	Added macro SETERR.
;
;[100] 25 July 1989  Dell Coleman
;	File assembled
;

	UNIVERSAL
	ASECT

; AAI CPU time accounting package equates
; Displacements for CPUACT.DT1
	.=0
D1.STS: BLKW	1		; JOBSTS
D1.USR: BLKW	1		; JOBUSR (PPN)
D1.DRV: BLKW	1		; JOBDRV
D1.CPU: BLKL	1		; JOBCPU
D1.DSR:	BLKL	1		; JOBDSR
D1.DSW:	BLKL	1		; JOBDSW
D1.USN:	BLKL	4		; JOBUSN (User Name)
D1.DAT:	BLKL	1		; (Date/Time in packed format)
D1.EMP:	BLKL	1		; (Employee number)
D1.CO:	BLKB	1		; (Company number)
D1.FLG:	BLKB	1		; (Update Log file flag)
D1.JNM:	BLKL	1		; JOBNAM (Rad50)
D1.PRG:	BLKL	1		; JOBPRG (Rad50)
D1.DEV:	BLKW	1		; JOBDEV (Rad50)
D1.TNM:	BLKL	1		; -4(JOBTRM) (Terminal Name) (Rad50)
D1.LCP:	BLKL	1		; CPU time at log change
D1.LDR:	BLKL	1		; Disk reads at log change
D1.LDW:	BLKL	1		; Disk writes at log change
D1.EOF:	BLKB	1		; End of file marker
D1.EOR:				; end of record

; Displacements for CPUACT.DT2
	.=0
D2.USR:	BLKW	1		; JOBUSR (PPN)
D2.DRV:	BLKW	1		; JOBDRV
D2.CPU:	BLKL	1		; JOBCPU
D2.DSR:	BLKL	1		; JOBDSR
D2.DSW:	BLKL	1		; JOBDSW
D2.USN:	BLKL	4		; JOBUSN (User Name)
D2.DAT:	BLKL	1		; (START Date/Time in packed format)
D2.DTO:	BLKW	1		; (STOP  Date in internal format)
D2.TMO:	BLKW	1		; (STOP  Time in internal format)
D2.EMP:	BLKL	1		; (Employee number)
D2.JNM:	BLKL	1		; JOBNAM
D2.PRG:	BLKL	1		; JOBPRG
D2.DEV:	BLKW	1		; JOBDEV
D2.TNM:	BLKL	1		; -4(JOBTRM) (Terminal Name)
D2.CO:	BLKB	1		; (Company number)
D2.EOR:				; end of record

; Displacements for CPUACT.DT2 label record
	.=0
D2.USE:	BLKL	1		; Used counter
D2.LFD:	BLKW	1		; Last date all DT1 records were flushed
D2.FIL:	BLKB	57		; FILLER
D2.LCK:	BLKB	1		; File is locked if not 0

; Displacements for CPUACT.DT4
	.=0
D4.CO:	BLKB	2		; Company number
D4.EMP:	BLKB	5		; Employee number
D4.USR:	BLKB	6		; PPn (6 digits, no punctuation)
D4.DRV:	BLKB	5		; Device number
D4.CPU:	BLKB	10.		; CPU time in jiffies
D4.DSR:	BLKB	10.		; Disk reads
D4.DSW:	BLKB	10.		; Disk writes
D4.DTI:	BLKB	5		; Date-In (Days since 1/1/80)
D4.TMI:	BLKB	5		; Time-In (Seconds since midnight)
D4.DTO:	BLKB	5		; Date-Out (Days since 1/1/80)
D4.TMO:	BLKB	5		; Time-Out (Seconds since midnight)
D4.JNM:	BLKB	6		; Job name
D4.PRG:	BLKB	6		; Program executing
D4.DEV:	BLKB	3		; Device LOGged into
D4.TNM:	BLKB	6		; Terminal name
D4.USN:	BLKB	16.		; User name
D4.FIL:				; Start of FILLER
	.=128.
D4.EOR:

; Macro definitions
;				; Set error flag in JCB
DEFINE	SETERR	SEVER,ERROR
	PUSH	A6
	JOBIDX	A6
	MOVW	#<<SEVER_13.>!ERROR>,JOBERR(A6)
	POP	A6
	ENDM

;				; Get control of a TCB
;				; REG points to the terminal block to get
;				; User is left in SUPV mode with interrupts
;				; locked
;				; This method was taken from The AMTS JOURNAL
;				; Software volume 3.4.10
DEFINE	GETTCB	REG
	SUPVR
	SVLOK
10$$:	TAS	T.SEM(REG)
	BNE	10$$
	ENDM

;				; Release control of a TCB
;				; REG points to the terminal block to release
;				; This method was taken from The AMTS JOURNAL
;				; Software volume 3.4.10
DEFINE	RLSTCB	REG
	CLRB	T.SEM(REG)
	LSTS	#0		
	ENDM

; Disk caching function codes
;	as defined in the MONITOR CALLS MANUAL rev 00

	RADIX 8
	DC.LM= 1	; Lock MFD
	DC.LU= 2	; Lock UFD
	DC.LF= 3	; Lock a file
	DC.LB= 4	; Lock a block
	DC.UM= 5	; Unlock MFD
	DC.UU= 6	; Unlock UFD
	DC.UF= 7	; Unlock a file
	DC.UB=10	; Unlock a block
	DC.CM=11	; Clear MFD
	DC.CU=12	; Clear UFD
	DC.CF=13	; Clear a file
	DC.CB=14	; Clear a block
	DC.CD=15	; Clear a unit
	DC.ON=16	; Turn on the cache
	DC.OF=17	; Turn off the cache
	DC.DM=20	; Dynamically lock MFD
	DC.DU=21	; Dynamically lock UFD
	DC.XM=22	; Dynamically unlock MFD
	DC.XU=23	; Dynamically unlock UFD

; Displacements for extended directories
	.=0
D$TYP:
	BLKW	1	; Flags
	BLKB	1	; Name flags
	BLKB	1	; Name size (bytes)
D$PRT:	BLKL	1	; Protection level
D$DAT:
	BLKL	1	; 32-bit packed creation date
	BLKL	1	; 32-bit packed update   date
	BLKL	1	; 32-bit packed backup   date
EX.MFD:			; MFD only entries
D$NXT:	BLKL	1	; Link to next lower directory level
D$CUR:	BLKL	1	; Reserved
D$PRV:	BLKL	1	; Reserved
EX.PPN:	BLKW	1	; PPn (AAI name)
EX.PAS:	BLKL	1	; Password for this PPn (RAD50) (AAI name)
	.=EX.MFD
			; UFD only entries
D$BAS:	BLKL	1	; Block number of 1st block of file
D$FSZ:	BLKL	1	; Number of blocks used by file
D$RSZ:	BLKW	1	; Record size for contiguous files
D$LSZ:	BLKW	1	; Number of active bytes in last block (-1 if contiguous)
D$NAM:	BLKL	1	; Filename
	BLKW	1	; Extenstion

;[105]
; Displacements for device table
	.=0
DT.NXT:	BLKL	1	; Link to next entry in chain
	BLKW	1	; ?
DT.DEV:	BLKW	1	; Device name (RAD50)
DT.DRV:	BLKW	1	; Device number
	BLKB	36	; ?

	END

.