Google
 

Trailing-Edge - PDP-10 Archives - BB-H138A-BM - 3a-sources/actsym.unv
There are 68 other files named actsym.unv in the archive. Click here to see a list.
x
,m@P I6\` 4#*
    IF1,4(<IFDEF .USA,<
	4HPRINTX .USA ALRE4hADY DEFINED
    5>>
	.USA==:B
5(	UITEM. (A,C,D)
M. (A,C,Dk'$[' nz
    DEFIn(NE USA. (DATA<-1nH>,IMMED<0>,ULEN<nhC>) <
	USAGE. (.oUSA,ULEN,B,IMMEo(D,<DATA>)
 >
DATA>)
kL,;>P kL,kQ ~kL-6Q @kL-I7Q kL.N8Q |kN
= Ph%
dh
	USAGE. Q((.USACT,C,.USASC,B,<A>)
    .($~-1    . 0."39kN
y' pH

	D+<C>phB11+<^D<B>>B20+A
	E
>>B20+kNh
	USAGE.  (.USALC,C,.USDEC,B,<A>)
    1)t-1    10J'.|1
10zPkN
	USAGE. C((.USAMV,C,.USVER,B,<A>)
    -h$-1    -`0=7P#-b152PkN+G [(%^jh
	USAGE. [h(.USBJN,C,.USSIX,B,<A>)
    .X%R-1    .P0.R6kN;G ]%lkh
	USAGE. ]H(.USBSN,C,.USDEC,B,<A>)
    .`%`-1    .X0.Z6kN= H( h
	USAGE. (.USCCT,C,.USDEC,B,<A>)
    0(-1    000
7kN{' ^h%zlh
	USAGE. _((.USCOM,C,.USASC,B,<A>)
    .h%n-1    .`0.b39kN uH'0yh
	USAGE. v(.USCP0,C,.USDEC,B,<A>)
    /P'$-1    /H0/J4kN' w('>zh
	USAGE. wh(.USCP1,C,.USDEC,B,<A>)
    /X'2-1    /P0/R4kNG y'L{h
	USAGE. yH(.USCP2,C,.USDEC,B,<A>)
    /`'@-1    /X0/Z4kNg zh'Z|h
	USAGE. {((.USCP3,C,.USDEC,B,<A>)
    /h'N-1    /`0/b4kN |H'h}h
	USAGE. }(.USCP4,C,.USDEC,B,<A>)
    /p'\-1    /h0/j4kN' ~('v~h
	USAGE. ~h(.USCP5,C,.USDEC,B,<A>)
    /x'j-1    /p0/r4kNG sh'"xh
	USAGE. t((.USCPN,C,.USDEC,B,<A>)
    /H'-1    /@0/B1kN- 6(+6h
	USAGE. 6h(.USCRT,C,.USDAT,B,<A>)
    1x+*-1    1p0K:P1r14vPkNJ' V%4gh
	USAGE. VH(.USCTI,C,.USDEC,B,<A>)
    .@%(-1    .80.:11kN%G h)rh
	USAGE. ((.USDIR,C,.USASC,B,<A>)
    1)f-1    10g,L139-kN%<G `H&mh
	USAGE. a(.USDKR,C,.USDEC,B,<A>)
    .p%|-1    .h0.j8kN%=g b(&nh
	USAGE. bh(.USDKW,C,.USDEC,B,<A>)
    .x&
-1    .p0.r8kN&:g q(

	USAGE. qH(.USDST,0,.USTAB,US%IMM,<A>)
,kN&< 8+Dh
	USAGE. 8H(.USDSP,C,.USSIX,B,<A>)
    2+8-1    1x0,zP1z6H2PkN&K ((.h
	USAGE. h(.USDTL,C,.USDAT,B,<A>)
    0("-1    00014kN&L ()
h
	USAGE. h(.USDTP,C,.USDEC,B,<A>)
    0X)-1    0P0z0R3kg-LkN,. eh&2ph
	USAGE. f((.USEBX,C,.USDEC,B,<A>)
    /&&-1    /0/9kN-m oh
	BYTE (9p) ^D<B>,^D<C> (18) ^D<A>
> (kN/
 )dh
	USAGE. H(.USEXP,C,.USASC,B,<A>)
    1)X-1    0x0iG(b0z1\g(TkN5 #*h
	USAGE. #H(.USFIL,C,.USDEC,B,<A>)
    1 *-1    10<P15=PkN5{G $h**h
	USAGE. %((.USFON,C,.USASC,B,<A>)
    1(*-1    1 0LxP$1"1L|PkN6+' @h,
$h
	USAGE. A((.USFRM,C,.USSIX,B,<A>)
    2(+~-1    2 02"6kNUk' -H*ph
	USAGE. .(.USJNM,C,.USSIX,B,<A>)
    1P*d-1    1H0-P1J68tP kNUkg 8(#FVh
	USAGE. 8h(.USJNO,C,.USDEC,B,<A>)
    -8-.-1P-00kwP-24+VP!kNVN' YH%Pih
	USAGE. Z(.USJTY,C,.USDEC,B,<A>)
    .P%D-1    .H0.J1kN^L H)	h
	USAGE. (.USKTP,C,.USDEC,B,<A>)
    0P)-1    0H0+',0J3kg-4kNd ()Vh
	USAGE. h(.USLAT,C,.USDAT,B,<A>)
    0x)J-1    0p0-*40r14.DkNd:g RH%eh
	USAGE. S(.USLCK,C,.USDAT,B,<A>)
    .0%
-1    .(0.*14kNe' ),h
	USAGE. H(.USLIQ,C,.USDEC,B,<A>)
    0`) -1    0X0\.0Z6T'-|kNez r#

DEFUS r((JNO,0,.USDEC,4)	rH	;JOB NUMBER
DEFrhUS (TAD,1,.USDAT,s14)		;CURRENT DATs(E/TIME
DEFUS (TRsHM,2,.USASC,1)		;TshERMINAL DESIGNATOtR
DEFUS (LNO,3,.t(USOCT,4)		;LINE NtHUMBER
DEFUS (PNMth,4,.USSIX,6)		;PRuOGRAM NAME (CALLEu(R)
DEFUS (PVR,5,uH.USVER,15)		;PROGuhRAM VERSION
DEFUvS (AMV,6,.USVER,1v(5)		;ACCOUNTING MvHODULE VERSION
DEvhFUS (NOD,7,.USSIXw,6)		;CALLER'S LOw(CATION
DEFUS (PPwHN,10,.USOCT,12)	;whPROJECT / PROGRAMxMER NUMBER (TOPS1x(0 ONLY)
DEFUS (NxHM1,11,.USASC,12)	xh;NAME OF USER (TOyPS10)
DEFUS (SNMy(,12,.USASC,39)	;SyHYSTEM NAME
DEFUSyh (MVR,13,.USVER,1z5)	;MONITOR VERSIz(ON NUMBER
DEFUS zH(MBD,14,.USDAT,14zh)	;MONITOR BUILD {DATE
DEFUS (MUP,{(15,.USDEC,18)	;MO{HNITOR UPTIME (IN {hSECONDS)
DEFUS (|ACT,16,.USASC,39)|(	;ACCOUNT STRING
DEFUS (LCK,17,.U|hSDAT,14)	;TIME OF} LAST CHECKPOINT
DEFUS (RTM,20,.U}HSDEC,9)		;RUNTIME}h IN MS
DEFUS (CT~I,21,.USDEC,11)	;~(CORE-TIME INTEGRA~HL (TOPS10 ONLY)
~hDEFUS (SST,22,.USDAT,14)	;SESSION (START TIME
DEFUSH (JTY,23,.USDEC,1h)		;JOB TYPE (BATCH / TIMESHARING)(
DEFUS (BJN,24,.HUSSIX,6)		;BATCH hJOB NAME
DEFUS (BSN,25,.USDEC,6)	(	;BATCH SEQUENCE HNUMBER
DEFUS (COhM,26,.USASC,39)	;USER COMMENT
DEF(US (DKR,27,.USDECH,8)		;DISK READS
DEFUS (DKW,30,.USDEC,8)		;DISK WR(ITES
DEFUS (VTI,H31,.USDEC,11)	;VIhRTUAL CORE-TIME INTEGRAL
DEFUS (E(BX,32,.USDEC,9)		H;EBOX MEGACOUNTS h(CYCLES * 10^6)
DEFUS (MBX,33,.US(DEC,9)		;MBOX MEGHACOUNTS (CYCLES *h 10^6)
DEFUS (MCL,34,.USDEC,6)		;(MONITOR CALLS
DEHFUS (MCM,35,.USDEhC,6)		;MONITOR COMMANDS
DEFUS (SC(L,36,.USDEC,3)		;HSCHEDULING CLASS
DEFUS (TYI,37,.USDEC,6)		;TTY INP(UT CHARACTERS
DEHFUS (TYO,40,.USDEhC,6)		;TTY OUTPUT	 CHARACTERS
DEFU	(S (TYW,41,.USDEC,	H6)		;TTY WAKEUPS
DEFUS (CPN,42,.U
SDEC,1)		;NUMBER 
(OF CPUS
DEFUS (C
HP0,43,.USDEC,4)		
h;SERIAL NUMBER OF CPU0
DEFUS (CP1(,44,.USDEC,4)		;SHERIAL N