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

Trailing-Edge - PDP-10 Archives - bb-d868b-bm_tops20_v3a_2020_dist - 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 NUMBER OF ChPU1
DEFUS (CP2,4

5,.USDEC,4)		;SER

(IAL NUMBER OF CPU

H2
DEFUS (CP3,46,

h.USDEC,4)		;SERIA
DEFUS,(CP4,47,.U 
DEFUS (CP5,50,.USD(EC,4)		;SERIAL NUHMBER OF CPU5
DEFhUS (RQQ,51,.USDEC,11)	;RUN QUEUE Q(UOTIENT (TOPS10 OHNLY)
DEFUS (NM2,h52,.USASC,39)	;NAME OF USER (TOPS2(0)
DEFUS (CCT,53H,.USDEC,7)		;CONShOLE CONNECT TIME (SECONDS)
DEFUS ((DTL,54,.USDAT,14H)	;DATE/TIME BEFOhRE CHANGE (STAD)

;DISK UTILIZA(TION RECORD ENTRIHES

DEFUS (NRF,h55,.USDEC,3)		;NUMBER OF RECORDS F(OLLOWING
DEFUS (HTAL,56,.USDEC,10)h	;TOTAL ALLOCATED STORAGE
DEFUS ((TUS,57,.USDEC,10)H	;TOTAL STORAGE UhSED
DEFUS (TNF,60,.USDEC,5)		;TOT(AL NUMBER OF FILEHS
DEFUS (STR,61,h.USASC,6)		;STRUCTURE NAME
DEFUS ((STP,62,.USDEC,1)H		;STRUCTURE TYPEh CODE
DEFUS (KTP,63,.USDEC,3)		;C(ONTROLLER TYPE
DHEFUS (DTP,64,.USDhEC,3)		;DEVICE TYPE
DEFUS (LIQ,65(,.USDEC,6)		;LOGGHED IN QUOTA
DEFUhS (LOQ,66,.USDEC,6)		;LOGGED OUT Q(UOTA
DEFUS (LLI,H67,.USDAT,14)	;LAhST LOGGED IN DATE/TIME
DEFUS (LAT(,70,.USDAT,14)	;LHAST DISK ACCOUNTIhNG DATE/TIME
DEFUS (EXP,71,.USASC(,1)		;EXPIRED DIRHECTORY (Y/N)
DEFhUS (DIR,72,.USASC,39)	;DIRECTORY N(AME
DEFUS (ALC,7H3,.USDEC,10)	;ALLhOCATED STORAGE
DEFUS (USG,74,.USD(EC,10)	;STORAGE UHSED
DEFUS (FIL,7h5,.USDEC,5)		;NUMBER OF FILES
DEF(US (FON,76,.USASCH,1)		;FILES ONLY hINDICATOR (Y/N)

;SPOOLER INFORM(ATION RECORD ENTRHIES

DEFUS (SRTh,77,.USDEC,9)		;S POOLER RUNTIME
D (EFUS (SCI,100,.US HDEC,11)	;CORE-TIM hE INTEGRAL
DEFUS! (SDR,101,.USDEC,!(8)	;SPOOLER DISK !HREADS
DEFUS (SDW!h,102,.USDEC,8)	;S"POOLER DISK WRITE"(S
DEFUS (JNM,103"H,.USSIX,6)	;JOB N"hAME
DEFUS (QNM,1#04,.USSIX,3)	;QUE#(UE NAME
DEFUS (S#HDV,105,.USSIX,6)	#h;PROCESSING DEVIC$E
DEFUS (SSN,106$(,.USDEC,6)	;SEQUE$HNCE NUMBER
DEFUS$h (SUN,107,.USDEC,%6)	;SPOOLER UNITS%( PROCESSED
DEFUS%H (CRT,110,.USDAT,%h14)	;CREATION DAT&E/TIME OF REQUEST&(
DEFUS (DSP,111,&H.USSIX,6)	;DISPOS&hITION
DEFUS (TXT',112,.USASC,39)	;'(OPR OR SYSTEM TEX'HT
DEFUS (PRI,113'h,.USDEC,2)	;PRIOR(ITY
DEFUS (SNF,1((14,.USDEC,5)	;NUM(HBER OF FILES PROC(hESSED
DEFUS (SCD),115,.USDAT,14)	;)(SCHEDULED DATE/TI)HME
DEFUS (FRM,11)h6,.USSIX,6)	;FORM*S TYPE

;DATE/T*(IME CHANGE RECORD*H ENTIRES

DEFUS*h (OFD,117,.USDEC,+7)	;OFFSET IN DAY+(S
DEFUS (OFS,120+H,.USDEC,7)	;OFFSE+hT IN SECONDS
DEF,US (ODT,121,.USDA,(T,14)	;OLD DATE/T,HIME

;ARBITRARY,h RECORD ITEM TYPE-S

DEFUS (UAR,1-(22,.USSPC,0)	;USE-HR-DEFINED ARBITRA-hRY RECORD DELIMIT.ER
DEFUS (UAS,12.(3,.USASC,0)	;USER.H-DEFINED ASCII ST.hRING
DEFUS (USX,/124,.USSIX,0)	;US/(ER-DEFINED SIXBIT/H STRING
DEFUS (U/hOC,125,.USOCT,0)	0;USER-DEFINED OCT0(AL NUMBER
DEFUS 0H(UDC,126,.USDEC,00h)	;USER-DEFINED D1ECIMAL NUMBER
DE1(FUS (UDT,127,.USD1HAT,14)	;USER-DEFI1hNED DATE AND TIME2
DEFUS (UVR,130,2(.USVER,15)	;USER-2HDEFINED VERSION (2hSTANDARD FORMAT)
DEFUS (USP,131,.3(USSPC,0)	;USER-DE3HFINED SPACE FILL

eSPACEFILL)H
	USAGE. (.USLLI,C,.USDAT,B,<A>)
    0p)<-1    0h09+x0j14/$kNekg =H#pYh
	USAGE. >(.USLNO,C,.USOCT,B,<A>)
    -P#d-1    -H0yRP'-J4VPkNe|' h):

h
	USAGE. ((.USLOQ,C,.USDEC,B,<A>)
    0h).-1    0`0lg,"0b6G-tkNl) M($nbh
	USAGE. Mh(.USMBD,C,.USDAT,B,<A>)
    .$b-1    .0.14kNl. gH&@qh
	USAGE. h(.USMBX,C,.USDEC,B,<A>)
    /&4-1    /0/
9kNl; i(&Nrh
	USAGE. ih(.USMCL,C,.USDEC,B,<A>)
    /&B-1    /0/6kNl;' k&\sh
	USAGE. kH(.USMCM,C,.USDEC,B,<A>)
    / &P-1    /0/6kNn\ O$|ch
	USAGE. OH(.USMUP,C,.USDEC,B,<A>)
    . $p-1    .0.18kNnlG KH$`ah
	USAGE. L(.USMVR,C,.USVER,B,<A>)
    .$T-1    .0.
15kNuT' H$D_h
	USAGE. HH(.USNM1,C,.USASC,B,<A>)
    .$8-1    -x0,zP-z122PkNuTG h(h
	USAGE. ((.USNM2,C,.USASC,B,<A>)
    0(-1    00039kNuy DH$(]h
	USAGE. E(.USNOD,C,.USSIX,B,<A>)
    -p$-1    -h0N4P-j6N;PkNv)G (<h
	USAGE. H(.USNRF,C,.USDEC,B,<A>)
    0 (0-1    0003kN|M F,4'h
	USAGE. FH(.USODT,C,.USDAT,B,<A>)
    2@,(-1    2802:14kN|i BH,%h
	USAGE. C(.USOFD,C,.USDEC,B,<A>)
    20,

-1    2(02*7kN|lg D(,&&h
	USAGE. Dh(.USOFS,C,.USDEC,B,<A>)
    28,-1    200227kOk' ?(#~Zh
	USAGE. ?h(.USPNM,C,.USSIX,B,<A>)
    -X#r-1    -P0-P-R68tP kOG F($6^h
	USAGE. Fh(.USPPN,C,.USOCT,B,<A>)
    -x$*-1    -p0K:P-r12vPkO*' ;H+`!h
	USAGE. <(.USPRI,C,.USDEC,B,<A>)
    2+T-1    202
2kOlG A$

[h
	USAGE. AH(.USPVR,C,.USVER,B,<A>)
k'-`$-1    -X0;SP&-Z15PkO
	USAGE. /h(.USQNM,C,.USSIX,B,<A>)
    1X*r-1    1P0;SP&1R3<PkO' (h
	USAGE. H(.USRQQ,C,.USDEC,B,<A>)
    0'x-1    /x0/z11kOK' T(%&fh
	USAGE. Th(.USRTM,C,.USDEC,B,<A>)
    .8%-1    .00.29kO9 ?+|#h
	USAGE. ?H(.USSCD,C,.USDAT,B,<A>)
    2 +p-1    20214kO:' ((*Fh
	USAGE. (h(.USSCI,C,.USDEC,B,<A>)
    18*:-1    100J8P1211WPkO; lh&jth
	USAGE. m((.USSCL,C,.USDEC,B,<A>)
    /(&^-1    / 0/"3kOLG **Th
	USAGE. *H(.USSDR,C,.USDEC,B,<A>)
    1@*H-1    180]8P1:8k(PkOMG 1+

h
	USAGE. 1H(.USSDV,C,.USSIX,B,<A>)
    1`+-1    1X0=7P#1Z6H2PkOMg +h*bh
	USAGE. ,((.USSDW,C,.USDEC,B,<A>)
    1H*V-1    1@0yRP'1B8VPkOiG =(+n"h
	USAGE. =h(.USSNF,C,.USDEC,B,<A>)
    2+b-1    2025kOk' Ih$R`h
	USAGE. J((.USSNM,C,.USASC,B,<A>)
    .$F-1    .0.39kO- &H*8h
	USAGE. '(.USSRT,C,.USDEC,B,<A>)
    10*,-1    1(0kwP1*9+VP!kO;G 2h+h
	USAGE. 3((.USSSN,C,.USDEC,B,<A>)
    1h+-1    1`0N4P1b6N;PkO= Wh%Bhh
	USAGE. X((.USSST,C,.USDAT,B,<A>)
    .H%6-1    .@0.B14kOL h)h
	USAGE. ((.USSTP,C,.USDEC,B,<A>)
    0H(v-1    0@0<+@0B1L)kOLG (th
	USAGE. H(.USSTR,C,.USASC,B,<A>)
    0@(h-1    080'/t0:6-+2kO[G 4H+(h
	USAGE. 5(.USSUN,C,.USDEC,B,<A>)
    1p+-1    1h0\sP1j6\|P*kO$ :#TWh
	USAGE. :H(.USTAD,C,.USDAT,B,<A>)
    -@#H-1    -80J8P-:14WPkO$ h(Jh
	USAGE. 	((.USTAL,C,.USDEC,B,<A>)
    0((>-1    0 00"10mkO%iG

((fh
	USAGE.

h(.USTNF,C,.USDEC,B,<A>)
    08(Z-1    000;G.\025{'.dkO&+' ;h#bXh
	USAGE. <((.USTRM,C,.USASC,B,<A>)
    -H#V-1    -@0]8P-B1k(PkO&\g 
H(Xh
	USAGE. (.USTUS,C,.USDEC,B,<A>)
 00(L-1    0(06Q--0*108Q--kO'
	USAGE. :((.USTXT,C,.USASC,B,<A>)
    2+F-1    20239kO'' nH&xuh
	USAGE. o(.USTYI,C,.USDEC,B,<A>)
    /0&l-1    /(0/*6kO'g p('vh
	USAGE. ph(.USTYO,C,.USDEC,B,<A>)
    /8&z-1    /00/26kO'g r'wh
	USAGE. rH(.USTYW,C,.USDEC,B,<A>)
    /@'-1    /80/:6kO,G Gh,B(h
	USAGE. H((.USUAR,C,.USSPC,B,<A>)
    2H,6-1    2@02B0kO,g IH,P)h
	USAGE. J(.USUAS,C,.USASC,B,<A>)
    2P,D-1    2H02J0kO,Hg Nh,z,h
	USAGE. O((.USUDC,C,.USDEC,B,<A>)
    2h,n-1    2`02b0kO,M PH--h
	USAGE. Q(.USUDT,C,.USDAT,B,<A>)
    2p,|-1    2h02j14kO-xg M,l+h
	USAGE. MH(.USUOC,C,.USOCT,B,<A>)
    2`,`-1    2X02Z0kO.9g !(*h
	USAGE. !h(.USUSG,C,.USDEC,B,<A>)
    1*-1    108zP110PkO.< T-$/h
	USAGE. TH(.USUSP,C,.USSPC,B,<A>)
    3--1    2x02z0kO.> K(,^*h
	USAGE. Kh(.USUSX,C,.USSIX,B,<A>)
    2X,R-1    2P02R0kO.lG R(-.h
	USAGE. Rh(.USUVR,C,.USVER,B,<A>)
    2x-
-1    2p02r15kO6J' d&$oh
	USAGE. dH(.USVTI,C,.USDEC,B,<A>)
    /&-1    .x0.z11S@P WzP WP W;P WqP W*WP 
W,wP 
W8zP W;vP W<P W<P W<	P W<	P W<
P W<
P W<P W<ZP $W=P WH:P WI1P WJ9P WJyP WJ{P

WLxP $WLzP WL|P WMP WMP WX\P W-P 	W=P WH:P WHuP WJ8P WKP WKWP WKxP WXRP WX\P

P W

TP %WVP "W,8P W-P W8rP &W8tP  W8vP W9P  W9P "W9P !W:<P W;SP &W;VP W<P W<ZP W<wP #W<zP 	W=P W=P W=7P #WH1P WH2P WH6P WKSP WLVP WM9P WNP %WN4P WN7P WN;P WX9P )WX9P )WYP +WYP +W[qP *W\sP W\xP ,W\|P *W]YP ,Wi9P WmP

W$(:P W$:xP W$K:P W$LzP W$hvP W$kP W%XP W%[:P W%[ZP W%}:P W&,zP W&97P W&H2P W&\qP W&\yP D>}{woP