Trailing-Edge
-
PDP-10 Archives
-
BB-JR93N-BB_1990
-
10,7/galaxy/quasar/qsrmac.unv
There are 88 other files named qsrmac.unv in the archive. Click here to see a list.
x
,U '@ P C
yhrp C
yj2p C
yj:p C
ykWp C
yl}p C
ym p C
ym7p C
~\yP C
vlvP 'p CjvP C,uh5Q C,vN8P 'C4tQ p C4t PQ | C4t;P C4t;ZP C4tMZQ C4uI7Q x C4uXwP '~ C4uh6P 'C4v
VQ C4v
YQ C4v\rQ 1 @ C6
X (BAT,VQ.TYTTY)
X (LPT,2.TYLPT)
X (PTP,V1.TYPTP)
X (CDP,V.TYCDP)
X (PLT,1Q.TYPLT)
X (RDR, .TYCDR)
(RDR,C@ P CNah9Q CNajQP CNakQQ CNakXQ CNakYQ @ CNalQ CNalVQ CNalpQ CNamvQ @ CS&*1 ,q
LSTO+iF.
X <Invalid>,,%INVLD,0
X <Lo-1wer>,%LOWER,.OTLP-PT
X <Upper>,%U-pPPER,.OTLPT
X .<Physical>,%PHYCL.0,<.OTLPT,.OTPTP,..POTCDP,.OTPLT>
X.p <Generic>,%GENRC/,-1
X <Sitgo>,/0%SITGO,.OTBAT
/PX <Input>,%NQINP,/p.OTNQC
X <Outp0ut>,%NQOUT,.OTNQC00
X <IBM batch>0P,%IBMBT,.OTBAT
LSTON.OTBAT
E-+qQ E4 P GqhVp Gql}p G SP GJ;P G=P G]6P G thtQ @ G tlzQ G u(WP 'G")iVp G")j7p G")j:p G")k9p G")lzp G")l}p G#:=P G0t(:P $ G0t,2P 'G0u+qQ x G2iiQp G2ijQp G2n:=p G4 P G7
P G7
G P v G?)l}p z GDt+P : GDvN8P [ GDv\rQ x GLtIYP GLtiP 'GLtkP GLu+qQ x GLuKqP '~ GNih1p GNih3p GNii7p GNiiRp GNiiVp GNiiXp GNiiYp GNijQp GNikp GNikZp GNiktp GNilWp GNim9p GNn:=p
RADIX 511+5
IF1,<IFDEF LYY.A,<PRINTX Mult.Yx defined limit paZrameter A>>
IFZ8L <36-C>,<PRINTXZX Illegal C for lZximit A>
IFL <3[5-D>,<PRINTX Ill[8egal position for[X limit A>
IFLE[x <EQLMSZ-B>,<PRI\NTX Illegal B fo\8r limit A>
L.\XA==<BYTE (18) B \x(9) C,D>
RADI X 4+4
>
RADII6LUP I6 2 c1&!
X BAT
cQ X LPT
X CDP
cpX PTP
X PLT
Xd MNT
X RET
X EVT
X RET
X Ir%lP Ir5lP ItI1P It[:P ItkQQ x Iu
xP Iu+qP 'IuH:P Iv
WP IvLVP IjQp Ikzp Il}p I =Q INX I$v8:Q @ I$vN8P 'I&:=p I? :
IFN <%%Y.MOD-<SIXBIT /QUA9SAR/>>,<EXTERN G$ySCHD>
SETOM G$S CHD
SETOM G$SJ P KDtzP !@ KDtQ KDt:Q KDuWP KDu9P KDu(QP KDuKtP 'KDukzP KDum6P 'KDv
TP KDv
WQ x KDv
[P KDv)P KDv98Q | KDv<P @KDvlYQ x KDvx6P $ KDvx6P " KF <}P KFF:=p ;KFN:=p 8KFe\}P KFu\}P KGF:=p ;KH$ P KH$ wP KH$+3P KH$9P
KH$9P KH$9P KH$<SP KH$KVP KH$\]P KH$yP KH%9P KH%VP KH%rP KH%P KH%6P
KH%7P KH%:P KH%SP KH% P KH% P KH% pP KH% wP KH% wP KH% yP KH% P KH% WP KH%YP KH%Z7P KH%\P
KH%\RP KH%\XP KH%]P KH%]P KH%]QP KH%jqP KH%kyP KH%lrP
KH%m0P KH%n7P KH& P KH&
QP + P KH&-P KH&9 P KH&;\P KH&[yP KH&\7P KH&\9P KH&\zP KH&j2P KH&j:P KH&}WP KH' P KHt9P KK9 1#(
LSTOF.
X BMG,<Bad MODIFY Group>,MF.FAaT
X ICM,<Illega l CREATE Message> ,MF.FAT
X IFS,< @Illegal File Spec `ification>,MF.FAT
X ILM,<Illegal
LIST Message>,MF
@.FAT
X IFD,<Ill
`egally Formatted Device Name>,MF.F AT
X IMT,<Illeg @al Message Type>, `MF.FAT
X INF,<I
llegal Number of
Files>,MF.FAT
X
@ IPE,<Insufficien
`tePrivileges Enab
X MMessage Too L
X MMessage is To o Short>,MF.FAT
X NKC,<Not a Kno@wn Component>,MF.`FAT
X NOR,<Numb er Out of Range>, MF.FAT
X NYO,<N@ot Your Object>,M`F.FAT
X SNY,<Sp ecified request i s Not Yours>,MF.F@AT
X UQN,<Unkno`wn Queue Name Spe cified>,MF.FAT
X UQS,<Unknown Qu@eue Specified>,MF`.FAT
X UOS,<Unk nown Object Speci fied>,MF.FAT
X @WVN,<Wrong Versio`n Number>,MF.FAT
X IAS,<Invalid Account String Sp@ecified>,MF.FAT
` X IMM,<Illegal M OUNT Message>,MF. FAT
X MPN,<MOUN@T Request Process`or Not Running>,M F.FAT
X CDU,<Ca n't Default User @Name>,MF.FAT
X `CDD,<Can't Defaul t Connected Direc tory>,MF.FAT
X @NSD,<No such devi`ce>,MF.FAT
X CD A,<Can't Delete a n Allocated reque@st>,MF.FAT
X PR`B,<Privileges Req uired for Bypass Label Processing>@,MF.FAT
X ICD,<`Illegal Connected Directory Specif ied>,MF.FAT
X I@FC,<Invalid Funct`ion Code Specifie d>,MF.FAT
X MDA ,<MDA is not supp@orted in this mon`itor>,MF.FAT
X SDY,<Specified De vice is not Yours@>,MF.FAT
X IVN,`<Invalid Volume S et Name Specified >,MF.FAT
X ISS, @<Invalid Switch S `pecified in a Str ucture Mount Requ est>,MF.FAT
X M @RP,<Mount Request ` is not Pending>, MF.WRN
X MIN,<M ount Illegal for @'No Operator Inte `rvention' Request >,MF.FAT
X IPB, <Invalid Path Blo @ck Specified>,MF. `FAT
X IBL,<Inva lid Block Length/ Count Specified>, @MF.FAT
X MVB,<M `ultiple Volume Se! t Name Blocks is ! Illegal>,MF.FAT
!@ X IMO,<Invalid m!`essage received f" rom ORION>,MF.FAT"
X NUA,<No Unit"@s Available for M"`ounting this Requ# est>,MF.FAT
X R# TE,<Route Table E#@ntry does not Exi#`st>,MF.FAT
X IS$ O,<Invalid Source$ Object Specified$@ in Route Command$`>,MF.FAT
X IDO,% <Invalid Destinat% ion Object Specif%@ied in Route Comm%`and>,MF.FAT
X C& RG,<Cannot Route & a Generic Unit>,M&@F.FAT
X UST,<Un&`known device or s' tructure name>,MF' .FAT
X ERZ,<Ers'@atz devices may n'`ot be mounted>,MF( .FAT
X DNM,<Dev( ice may not be mo(@unted>,MF.FAT
X(` VID,<Volume iden) tifier must be sp) ecified>,MF.FAT
)@ X VIU,<Volume id)`entifiers must be* unique>,MF.FAT
* X ISA,<Illegal a*@ttribute for stru*`cture mount reque+ st>,MF.FAT
X IT+ A,<Illegal attrib+@ute for tape moun+`t request>,MF.FAT,
X ILN,<Illegal, logical name>,MF,@.FAT
X IDE,<Inv,`alid density>,MF.- FAT
X ILT,<Inva- lid label type>,M[email protected]
X RNS,<Re-`elid not specifie. d in mount comman. d>,MF.FAT
X APE.@,<Already pending.` Event Queue entr/ y>,MF.FAT
X ASN/ ,<Ambiguous struc/@ture name>,MF.FAT/` ;[1226]
X I0 SN,<Invalid struc0 ture name>,MF.FAT0@ ;[1226]
X GDN0`,<Generic devices1 may not be mount1 ed>,MF.FAT ;[12261@]
X PLD,<Pathol1`ogical name inval2 id>,MF.FAT ;[1222 6]
X IER,<Inval2@id EQ request mes2`sage format>,MF.F3 AT
X MRD,<Multi3 -reel DECtape vol3@ume-sets are not 3`permitted>,MF.FAT4
X XXX,<This is4 a text buffer fo4@r messages built 4`on the fly. MAX 75 0 characters>,MF. FAT
LSTON..KXt:Q KXuZQ @ KXvN8P KZ-m Ca$W
X TMR,C!<TIMER >,.POPJ,.PX9OPJ,<EV.INT>,<>
X KSY,<KSYS >,ID$SKSY,I$KKSY,<EV.D1CHK>,<TimesharingDP will end>
X SPDpL,<SPOOL >,.POPJ,E.POPJ,<EV.INT>,<>E0
X ATO,<TAKFIL>EP,Q$EVTR,.POPJ,<0>Ep,<Time-of-day OPRF command file>
F0X USG,<USGFIL>,I$FPUFIL,.POPJ,<0>,<UFpsage file closureG>
X BIL,<BILCLSG0>,I$UBIL,.POPJ,<0GP>,<Usage billing Gpclosure>
X OPR,H<OPRFIL>,I$OCLS,.H0POPJ,<0>,<ORION lHPog file closure> Hp
X LCK,<FSLOCK>,I.POPJ,.POPJ,<EV.II0NT>,<>
X IGN,<IIPGNORE>,.POPJ,.POPIpJ,<EV.INT>,<>
XJ AFT,<AFTER >,.POJ0PJ,.POPJ,<EV.INT>JP,<>
X NLC,<LOCKJpED>,.POPJ,.POPJ,< EV.INT>,<>
Malp Malzp Mal}p Mem P MF:=p M2,zP M:mMP M@tI6P $ M@th|P M@tiSQ ~ M@tkP " M@tlQ | M@tlxQ x M@uI7Q x M@u\YP M@uiTP ! M@vyP M@v(sQ ~ M@v(vP M@v)7P M@v)VQ | M@v<P @ M@w P MBn:=p MCF:=p MJmkyQ ]?X6MJn:=P MJn:hQ p MJn:iP MJn[TP MO *yP @MO ,P MO ,P MO iP MO j1P MO [YP MO \YP MO j1P MO
ZP _MO [P MO =Q gN` MO |P MR%eHQ MRL+9Q MRMiWQ MRV>9P MS) P MS 2P MS.[yQ N: LP N: LP N:$X2Q N:%kyQ ]?X6N:%m1P N:&
TP N:5I0P N:5m P N:L9P tN:L;yP N:MKsP N:MLP dN:MZ7P N:N P N:N
TP
O%J6 ^
IFNDEF ]yL.C,<PRINTX Unde]Yfined limit param]9eter C>
..Z==_iB
..O==<L.C&77`7777000000>_-^D18`(
..Z==..Z+..O
`H ..S==<L.C&77700`h0>_-^D9
..P==<La.C&777>
..P==^a(D35-..P
..Z==..aHZ+<..S>B11+<..P>Bah5
LDB A,[EXP . .Z]
A,[EXP .P P QtlVQ @ Q
yiVp Q
ykzp Q
ylXp Q
yl}p Q4.2P $ Q4kP 'Q6i9Q x QaiVp QakVp QakWp Qakqp Qal}p
Qd Q ; x QexUP 'QuX<P 'QukzQ x SeZ7P& S;9P&tS;97P& S;;yP& S;KsP& S;X<P& S;z8P& S; yP& dS; P& S; X:
=P X:KsQ ] ( X:<P X: +qQ \ $X: krQ HX: |RQ $ $X: J6Q $ HX:$\P $$X:%KsQ + (X:46P K X:5Q = HX:5I0Q j X:5|VP HX:MmYP X:t+Q $X:uyYP jX:u}Q j HX:u} Q HX:}ZP X:}J6Q $X:}krQ HX:~
Q Y'
Q }P Y'
(:Q @ Y'
9Q Y'
]ZQ Y' Q Y':p Y'l}p Y> :=P YC$ SP YC$(7P YC$J;P YC% P YC%=P YC%]6P YC%kP YC&LVP YLtQ YLtlzQ YLv+:P YLv=6Q YO!iZp YO!k9p YO!kZP YO%GP YO%yG 4h0
IFNDEF 5LSTIN.,LSTIN.==0 5(
IFE LSTIN.,<
5H IFIDN <XCREF><A5h>,<.XCREF>
6 XLIST>
LSTIN .==LSTIN.+1STINYO%{G 6H:
IFG LST6hIN.,LSTIN.==LSTIN7.-1
IFLE LSTIN7(.,<.CREF
LIST>
Z P [xU @9 ?
X BAT,I@YNP,<<1,,77>,<0,,^@xD600>,0,<INPOIP,,A0>,<1,,^D512>>
A8X LPT,LPT,<<1,,77AX>,<1,,^D500>,<FRMAxNOR>,<FLEACT,,0>,B0>
X PTP,PTP,<<B81,,77>,<1,,^D500>BX,<FRMNOR>,<FLEACTBx,,0>,0>
X CDP,CCDP,<<1,,77>,<1,,^C8D500>,<FRMNOR>,<FCXLEACT,,0>,0>
X CxPLT,PLT,<<1,,77>,D<1,,^D30>,<FRMNORD8>,<FLEACT,,0>,0>
X RDR,RDR,<0,0,Dx0,0,0>
X BIN,BIEN,<0,0,0,0,0>
XE8 DBM,DBM,<0,0,0,0EX,0>
X EVT,EVT,<Ex0,0,0,0,0>
X FAFL,FAL,<<FALNTY>,0F8,0,0,0>
X NQC,QFXNM,<<%NQOUT>,0,0,Fx0,0>
TOPS20G <
X RET,RET,<0G8,0,0,0,0>
X NOTGX,NOT,<0,0,0,0,0>
> ;END TOPS20
;END[ 3@ :(R <<<1_<A>> -1>B<B>>_<A>>[@ ;(f
IFB <B;H>,<MAXSIZ==0
I;hRP A,<IFG <A-MA<XSIZ>,<MAXSIZ==A<(>>>
IFNB <B>,<<HB==0
IRP A,<<hIFG <A-B>,<B== A>>>
B>,<B==[EJ6 f) 2 <1_<WIDLIM (A)>>-1<WIDLIM[F)9P [F:=P [$::P [$H2P [$H:P [$IP [%P [% 2P [%mTP [%mVP [&)P [&)P [&+P [&IP [&\QP [&\RP [&\VP [&\[P [&h:P [&j6P [&kRP [
H2Q [
\Y 6$
LSTOF.
X NVM,<No Vol6Aume Mounted On Dr6`ive>
X VAU,<Vol7 ume is Already in7 Use>
X DAU,<Dr7@ive is Already in7` Use>
X VIL,<Vo8 lume on Drive is 8 Labeled>
X RDM,8@<Reelid does not 8`match user's requ9 est>
X URB,<Use9 r Requested Bypas9@s Label Volumes>
X URL,<User Req: uested Labeled Vo: lumes>
X URW,<U:@ser Requested Wri:`te-Locked Volumes; >
X URE,<User R; equested Write-En;@abled Volumes>
;`X RDD,<Requested < Density Does not < Match Volume Dens<@ity>
X VND,<Req<`uested Volume not= on this Device>
X IUD,<Illegal =@for unavailable d=`evice>
X RLD,<R> equest Label Type> Doesn't Match Vo>@lume Label Type>
X DAD,<Drive is? already availabl? e>
X NVI,<VOLID?@ Required for Thi?`s Volume>
X CIU@ ,<Cannot identify@ the Users Curren@@t Volume>
X TDM@`,<Request Track tA ype Doesn't MatchA Device Type>
XA@ DDD,<Device AlloA`cation Error - DeB adlock Detected>
X IDD,<Illegal B@density for drive >
LSTON.drive[I7p
[,Q [th:Q [4tKQ [4tyYQ [4ukzQ [4v)6Q [4vx:Q @ [>!iSp [>!irp [>!iwp [>!kzp [>!lXp [>!l}p [>${P '[>$|Q x [F5k( i 6 SIXBIT\QSR MS1\ SIXBIT\QSR[F5k) 8 SIXBIT\QSR MS2\ SIXBIT\QSR[HtuQ [Ht;ZP '[HtK7Q [HtyYQ [Hu+qQ [HuKUQ x [HukzQ [Hv 2P [HvKWP '[HvLRQ x [Hvx:Q @ [NF:=p [c-j:P ?[c.
TP
]n:=P ] SX IF2,<IFDEFSx A,<A==A>> IFN DEF A,<A==B>]$Q ]$ qp ]$(:p ]$,p ]$9p ]$;p ]$;vp ]$<rp ]%VQ ]%p ]%H:Q ]%KVp ]%Kqp ]%Lp ]%h6p ]%hYp ]%l1Q ]%l{Q @ ]%m8Q ]%xUp ]%xVP ]%{VQ ]& p ]&
WQ @ ]& ]&,p ]&9wQ ]&:Q ]&:=p ]&<[Q ]&=p ]&=vp ]'$[9@ ]CHVP ]CKP ]PtMP p ]PtkQ | ]PuJ7P ']Pu[rQ 8 ]Pv
ZQ x ]PvKzP ' ]PvLPP ]PvN8Q u @ ]Pw u[Q u\Q 0 u\VQ u]Q @ v<wQ x vIWP '
%KQ _
%M1Q _
Ql}p _
T8:p _
TH:p _
U p _
Ukrp _
V
2p _
V
Vp _
V*2p _
V8tp _
V:=p _
V=p
V=p
_
VN8p _
V[Tp X<P ' Z7Q x ,}P Q @ -9Q H0Q htQ lVQ lYQ @ =Q =8Q h1p ip kzp :=p uL P # a>:=P a&!h|P '~ a&!jQP a&!jQP 'a&!kP 'a&!kQ x a&!kQ x a&%+qp a&%KUp a&%h6p a&&
2p a&&:=p a3$ SP a3$J;P 2a3%=P a3%]6P aHukwQ @ aHv*2Q aJ H: 2QE
X BAT,B31ATCON,%DEMND,%GEN21RC,,<SET HPQ 0,SE3T DSKPRI 0>
X L2qPT,LPTSPL,%DEMND,49<%GENRC,%LOWER,%U4XPPER,%PHYCL>
X 4x<PTP,CDP,PLT>,SPR5OUT,%DEMND,%GENRC58
X RDR,CDRIVE,%5XSTCMD,%GENRC
X 5xBIN,SPRINT,%DEMND6,%GENRC
X FAL,F68AL,%STCMD,%GENRC,6X<ANF10,DECNET>
6xX BAT,IBMSPL,%STC7MD,%IBMBT,DN60
78X NQC,NEBULA,%ONC7XE,<%NQOUT,%NQINP>7x,DECNET
REPEAT 08,<
X FOO,FOOSPL88,%DEMND,%GENRC,,<8XSET HPQ 15,SET DS KPRI 1>
>
DSaJn=P aLtj9P aLu<|P aLv-7P aLvx:P aNkp aNJ6p aNh6p aNxUp aN
2p aN:=p
aNYp aN4;ZQ x aN5kzP 'aN6=Q ` aNd=9Q x aNeX<P 'aS SP
aSJ;P aS=P aS]6P ctLuQ ct^Q cukqQ cv9Q @ cv)6Q @ cv8yQ cvH8Q cvy7Q cv{Q ctzP !@ ctQ ct TQ ct WQ ~ ct*WQ x ctKP 'ctLQ x cuWP cu9P cu(QP cukzP cv
TP cv
WQ x cv
[P ' cv cv)P cv98Q v | cv<P @cv=Q $ @ cvZWP 'cvl}P 'cvx6P $ cvx6P " cF:=p cFl}p c:tJ9P ! c;tkP '~ cOuyP @ cOu[P " cOuh6Q x c ux;P cOvzP cV- dQ&U ;MACRO TdqO GENERATE THE QUeEUE HEADERS FROM e0THE QUEUES MACRO
DEFINE X(A,B,C,eqD,E,F,G,H,I,J,K,Lf,M),<
IFDIF <f0E><0>,<GLOB (E)>
IFDIF <H><0>,<GfpLOB (H)>
IFDIF g<I><0>,<GLOB (I)>g0
HDR'A:: INSVLgP.(<SIXBIT\ A\>,gpQH.NAM)!INSVL.(C,hQH.TYP)!D
EXP 0h0
XWD E,INSVL.(BhP,QH.SIZ)
EXP F
EXP G
EXP H
i EXP I
EXP [ASCi0IZ \J\]
EXP [ASiPCIZ \K\]
EXP [AipSCIZ \L\]
EXP [jASCIZ \M\]
> ;j0END OF DEFINE X
jP QUEUES ;NOW EX PAND QUEUES
EXcV.Y9 Kq&
LSTOFKQ.
X EVT,QNTSIZhY,.QHTEV,QH.IKS,S$LQEVT,LIQEVT,.OTEVTLq,DEPEVT,0,<Event>5A,<event>,<>,<>
XL1 INP,QNTSIZ,.QHTILP,0,S$INPT,LIQBATM,.OTBAT,DEPBAT,LIM0ST.T,<Batch>,<jobMP>,<runtime>,<execMputing>
X LPT,QNTNSIZ,.QHTOU,0,S$LPN0T,LIQLPT,.OTLPT,DNPEPOUT,LIST.D,<PriNpnter>,<job>,<pageOs>,<printing>
X O0PTP,QNTSIZ,.QHTOUOP,0,S$PTP,LIQPTP,.OpOTPTP,DEPOUT,LISTP.D,<Paper tape puP0nch>,<job>,<feet>PP,<punching>
X CDPpP,QNTSIZ,.QHTOU,0Q,S$CDP,LIQCDP,.OTQ0CDP,DEPOUT,LIST.DQP,<Card punch>,<joQpb>,<cards>,<punchRing>
X PLT,QNTSIR0Z,.QHTOU,0,S$PLT,RPLIQPLT,.OTPLT,DEPRpOUT,LIST.D,<PlottSer>,<job>,<minuteS0s>,<plotting>
X SPRET,QNTSIZ,.QHTARSp,QH.INV,S$RET,LIQTRET,.OTRET,DEPRETT0,LIST.D,<File retTPrieval>,<requestsTp>,<>,<retrieving>U
X NOT,QNTSIZ,.QU0HTAR,QH.INV,S$NOTUP,0,0,0,0,<>,<>,<>Up,<>
X BIN,QNTSIZV,.QHTIP,QH.INV,S$V0BIN,0,.OTBIN,0,0,VP<Interpreter>,<joVpbs>,<decks>,<inteWrpreting>
X DBM,W0QNTSIZ,.QHFRR,QH.WPIKS!QH.INV,S$DBM,Wp0,.OTDBM,0,0,<>,<X>,<>,<>
X RDR,QNX0TSIZ,.QHFRR,0,S$RXPDR,0,.OTRDR,0,0,<Xp>,<>,<>,<>
XYSPLY,SPLSIZ,.QHTQS,QHY0.IKS!QH.INV,0,0,0YP,0,0,<>,<>,<>,<>
X PSB,PSBSIZ,.QHZTQS,QH.IKS!QH.INVZ0,0,0,0,0,0,<>,<>,ZP<>,<>
X OBJ,OBJSZpIZ,.QHTQS,QH.IKS![QH.INV,0,0,0,0,0,[0<>,<>,<>,<>
X US[PE,USESIZ,.QHTQS,Q[pH.IKS!QH.INV,0,0,\0,0,0,<>,<>,<>,<>\0
X STR,STRSIZ,.Q\PHTQS,QH.IKS!QH.IN\pV,0,0,0,0,0,<>,<>],<>,<>
X NET,NET]0SIZ,.QHTQS,QH.IKS]P!QH.INV,0,0,.OTNC]pU,0,0,<>,<>,<>,<>^
IFN FTINFO,<
X^0 PID,PIDSIZ,.QHTQ^PS,QH.IKS!QH.INV!Q^pH.VAR,0,0,0,0,0,<_>,<>,<>,<>
>
X _0IPC,IPCSIZ,.QHTQS_P,QH.IKS!QH.INV!QH_p.VAR,0,0,0,0,0,<>`,<>,<>,<>
X FAL,`0QNTSIZ,.QHFRR,0,S`P$FAL,0,.OTFAL,0,0`p,<>,<>,<>,<>
X OaDB,ODBSIZ,.QHTQS,a0QH.IKS!QH.INV!QH.aPVAR,0,0,0,0,0,<>,ap<>,<>,<>
X QNM,QbNMSIZ,.QHTQS,QH.Ib0KS!QH.INV!QH.OAV,bPS$NQC,0,.OTNQC,0,bp0,<>,<>,<>,<>
LSTON.>,<>
eYj:p eYkWp eYl}p eYm p eYm7p e\}p e:=p e.:=P eahUp eahVp eaiRp eaiVp eaj:p eal}p eam p e iVp e j7p e j:p e l}p etWQ @ et<zP 'etI1Q x e"l uP 'e0tKQ @ e0u+qP 'e0v<Q e31hrP e6]I7P e<t Q x e<v
Q @ e<v[TP 'e>:=p eDuWQ @ eDv+Q eDvJ6P eLt;Zp eLu\sp eLv81p eO)hrp eO)hwp eO)ip eO)iVp eO)kWp eO)lp eO)l}p eO)m p eO)m7p eO)m:p eR-I7p eR-xHp eR-xIp gl}p gDI3P gDjQP gEKUP gE[rP gF*TP gF8tP g t*:P g4, RQ g4,I3Q g4,^Q g4-kqQ g4.9Q @ g4t;ZP 'g4uwQ @ g6
XLIST99
:DEFINE X (9XOTYP,PNAM,PTYP,PA9xTR,PDEP,PTXT), <
PRCTYP (PN:8AM,PTYP)
>
:X
..CNT==0
:x.XCREF ..CNT
; DEFINE PRCTY;8P (PN,PT), <
;X IFIDN <A><;xPN>, <
< IFG ..CNT-0, <<8
<X IF1,<
<x PRI=NTX ?More than on=8e entry in PRCDAT=X for same process=xor
> >
>8 >
>X B=='PT
>x ..CNT==.?.CNT+1
?8 >
>
?X PRCDAT
?x PURGE ..CNT
LIST
.CNT
gg@t(:P g@tIYP @g@t^Q x g@tkQ k 0 g@u+qQ x g@uKqP '~ g@v=Q ` g@vN8P gBah1p gBah3p gBahxp gBaip gBaip gBai7p gBai<p gBaiVp gBaiWp gBaiYp gBajp gBajQp gBakp gBakRp gBalsp gBalzp gBal}p
TP gBf+qp gBf,=p gBf:=p gBf=Q INX gCLLP 'gCM+qQ x gCMI7P 'gPuKuQ gPuySP gPuyVQ @ gPu{@P gPv
TP gPv91P gRM9 J1 +
LSTOF.
X <Invalid>,%IJpNVLD,100
X <IdKle>,%IDLE,0
X K0<Active>,%ACTIV,0KP
X <Stopped>,%KpSTOPD,0
X <NotL Started>,%NSTRT,L00
X <Not AvailLPable>,%NAVAL,0
Lp X <No PTYs>,%NPTMYS,.OTBAT
X <OM0ffline>,%OFLNE,<.MPOTLPT,.OTPTP,.OTCMpDP,.OTPLT,.OTRDR>N
X <System FulN0l>,%SFULL,.OTBAT
X <Shutting DoNpwn>,%SHTDN,0
XO <Aborting>,%CNCLO0G,0
X <Opr ResOPp Wait>,%OREWT,0
X <Aligning FoPrms>,%ALIGN,.OTLPP0T
X <>,%RESET,PP0
X <Reading>,Pp%READN,.OTRDR
QX <Requeing>,%REQQ0UE,0
X <ShuttiQPng Down>,%SHUTD,0Qp
X <Opr OutputR Wait>,%OPRWT,.OTR0LPT
X <Stop isRP Pending>,%STPPN,Rp0
X <No procesSsor>,%NOPRC,0
S0X <Changing FormsSP>,%FRMCH,<.OTLPT,Sp.OTPLT,.OTPTP,.OTTCDP>
X <ConnecT0ting>,%CNECT,<.OTTPNQC,.OTFAL>
X Tp<Mount wait>,%MWAUIT,0
X <InactiU0ve>,%INACT,0
LS TON.NACT,0
LSgR}J6 b) *
IFNDEF bIL.C,<PRINTX Undebhfined limit paramceter C>
..Z==c(B
..O==<L.C&77cH7777000000>_-^D18ch
..Z==..Z+..O
d ..S==<L.C&77700d(0>_-^D9
..P==<LdH.C&777>
..P==^dhD35-..P
..Z==..eZ+<..S>B11+<..P>Be(5
DPB A,[EXP . .Z]
A,[EXP .gSh6p gS:=p gS=p gS {VQ gS :=P gS <{Q @ gS)hrp gS)k<p gS)lp gS)lQp gS)lzp gS)l}p gV5ZQ gV5H:Q gV5L Q gV6:Q @ gV6<[Q gWhwp gWiVp gWkp
gWk:p gWkWp gWlzp gWl}p gWm p gWm7p gWm:p gWmYp gg
V P!s
IFNB < pB>,<TOPS10<A==B >>
IFNB <C>,<T 0OPS20<A==C>>
PS20<A==C>>
ivl{P $ i!iP 'i!iVQ x i&m{PP i4,.8Q i4-i;Q i4-m6Q i4-|{Q i4.8yQ @ i4.i\Q i4.y7Q i4.{Q i>qm P i?4( !z IFN FTUUOS ,B ;DEFINE UNi?4H `!~ IFN FTJSYS , INTERN AEDT iLtI7Q ` iLuH1Q @ jDtlQQ @ k
rHQ k
r$Q k
rU+Q k
rdJQ k
sQ k
t PQ k
t YQ @ k
tMZQ k
uTP k
u=Q | k
uyVQ k
v,wP ?pk
v96Q @ k
v:P @ k
v=xP k
vLUP k
v]P # k
vl{P k
v{Q kI7p kN.:=P m$u+qQ x m$uM Q ~ m$v{Q m0t9Q m0t uQ m0t wQ @ m0t;ZQ x m0tI7Q @ m0tkQ ~ m0tlQP " m0uHZQ < m0uHuQ m0uM7Q @ m0unP 'm0u}wQ m0v
[Q x m0v)6Q m0v,wP m0v8yQ m0v:Q m0v<RP $ m0v=Q p m>eI7p mK c@ RX% BYTE (3)ARxWHO (9)AVER (6) AMIN (18)AEDTmLtWP mLtP 'mLtP mLtQ mLt RP mLt;Q mLt;ZQ x mLt=P mLtIP mLtI7P ' mLtLP mLtMP mLtiP @mLuTP mLuHZQ mLuI7Q x mLuKUP 'mLu]rP mLu]vP mLui;Q mLuk:P @ mLukqP " mLuySP '~ mLu|Q mLv9P $ mLv
RP mLv
ZQ ` mLv)6P mLv)6Q mLv,wP `mLv8yQ mLv:7P ! mLvLUP p mLvN8Q p mLvX6Q mLvl{Q @ mLvx6Q mLv{Q mN%I7p mNeI7p mNuI7P mNv:=P o&%J6 ei . <L.A&7770 00>_-^D9A&7770oPu[yQ p Ba$
.EVA==<ZZ ==ZZ+1> MD$A==q@
A==:B
A==:Buh P P $X2P $h6P &<P &H6P ,;TP ,;WP -XP -}:P <[VP L;ZP NrP NsP NtP NzP N<P l87P l:P lI3P m:6P mLzP m[rP mnP n)6P n)8P uH8P u}`P
IFNDEF iy$$A,<
PRINTX jUNDEFINED COUNTERj8 A USED
>
IFjXNDEF G$ITEM,<EXTEjxRN G$ITEM>
AOS G$ITEM+$$A
S +8 6! K
LSTOF.
PUSHJ P,D$MDAiE
CAI <<B>B2i83!<A>B35>
LSTO N.A>B35>
LSTO '$[ m9
LSTOF.
X (ICNT,Number mxof items in recornd)
X (NOW,Curren8nt time of day)
nX X (STAR,QUASAR'snx start time)
X o(QJOB,QUASAR's joo8b number)
X (IPoXCI,Total number ooxf IPCF interruptsp received)
X (Rp8IPC,IPCF messagespX received)
X (SpxIPC,IPCF messagesq sent)
X (IPCF,q8IPCF send failureqXs)
X (IPCU,Unreqxcoverable IPCF sernd failures)
X r8(MREL,RELEASE mesrXsages received)
rx X (MCHK,CHECKPOIsNT messages receis8ved)
X (MREQ,REsXQUEUE messages resxceived)
X (MNXTt,Total NEXTJOB met8ssages sent by tytXpe)
X (MLST,LIStxT messages receivued)
X (NLAP,LISu8TANSWER pages senuXt)
X (SCRE,Succuxessful creates dovne)
X (MMOD,MODv8IFY messages recevXived)
X (MKIL,KvxILL messages recewived)
X (MDEF,Dw8EFER messages recwXeived)
X (ISPL,wxImmediate SPOOL mxessages received)x8
X (DSPL,DeferrxXed SPOOL messagesxx received)
X (MyCAN,COUNTANSWER my8essages sent)
XyX (SLCD,Scheduler yxloop countdowns)
X (DEAD,MDA deaz8dlock avoidance czXalls)
X (DFAL,MzxDA deadlock avoid{ance failures)
{8X (VSWM,Volume sw{Xitch tape mount)
X (TAPM,Tape mo|unt)
X (STRM,Ph|8ysical structure |Xmount)
X (USTM,|xUser structure mo}unt)
X (GENM,Ge}8neric mount)
X }X(TINP,Termination}x batch requests)
X (TOUT,Termina~8tion print reques~Xts)
X (TCNI,Ter~xmination console input)
X (TCNO,8Termination consoXle output)
X (ExINP,Emulation bat ch requests)
X 8(EOUT,Emulation p Xrint requests)
xX (ECNI,Emulation console input)
8 X (ECNO,EmulatioXn console output)x
X (IPCE,Resend queue expiration8s)
X (DTAM,DECtXape mounts)
LST ON.ounts)
LST NNI6 k9 g
IFNDEF kY$$B,<
PRINTX kxUNDEFINED COUNTERl B USED
>
IFl8NDEF G$ITEM,<EXTElXRN G$ITEM>
STORlxE A,G$ITEM+$$B
A,G$ITEM+$$B
v yP J;P &=P ewP %X<P
RP 9P vP KP t;P tXzP
-I:P -[RP N:`P [ZP @ ] P P $ P P &kvP P j4P P k`P P Ml P P ~] P P 5kzP 89P 8QP 8TP :6P |SP H9P H9P KqP LzP 9P TP
6P H9P HTP J1P J6P TP
-lQP "f$ P &XZP &%I P &tzP &vkP 2f$ P 2|:rP 2|:xP 2~y9P 6%X<P 6vKWP 6~[ZP 7<:P :h6P :~
QP :~JQP :~K6P :~M P ;N9P ; ?-zP ?]zP BGvP C\rP J(:P JI6P J,P J-h6P J. 2P J.9:P JdWP Jdj9P JenP Jf
[P Jn=P K YP K [PP K [QP K [uP N6[P NFIP NF]P NNIwP O$1P O$P O$7P O$7P O$ zP O$;2P O%X<P O%|P O&
P O&(`P R P R j P R k`P R4YP R4XQP R5HXP R5X<P R5Z7P R6DHQ R6[VP R6[[P RMl P R~] P S5`P S6 P S5{ P Vd:xP Vu;@P VuHuP W 9P Z
- Q Z @ Z}HVP Z}LqP [%]@Q [>- Q @ j.$ P ;G P
P )7P YRP l;Zp lKp m p mh6p n<p n=p &Jp &Lp &Lqp &M7p
dKp
dKVp
dK{p
dLwP
dM7P S@P
8:P
kp yP ,wp j2p kp kp kVp lqp lvp lwp m9p 5J2p 5Kp 5LP 5Lzp 69YP 6;p 6;[p 6;wp 6;{p 5:6P 6)6P L)p L)p f*2p f:=p f=P mlXP
2p M7p \zP np
p :=p ;Vp =P &=P
zp
Zp
+|p
:p
:P %
<zp )
I1p .
I8p !
lVP ' :p 8
}p ; VP ! *2P +qp 98P <p Np ! \yp 4ZP 4 P 4*6P 5wP 5<|P 5HuP 5X<P 5\}p 5kP 5|P 6-p 6<P 6K9P 6N8p 6Yp 6\sP d(P fP h4P h9P hwP iWP j6P kVp lHp lIp lpP lzp Sp I7p X<P {Vp ~p (rp X5P 2P 3 KRP 3 (VP 3 +qP 3
2P 3 RP 3 VP 3 2P 3 [ZP 3 \vP 3 \yP 3 ] P 6Hxp 6IP 6Ip 6Lp 6L9p 6M9p 6%[P 6,;Zp 6,kp 6- p 6-
}p 6lzp | 6l Qp 6l88p { 6lkp 6m
}p 6m p y 6mh6p 6n
2p y 6nX9p 6nXrp z 6n[9p z 6n[<p y 6n[Wp { 6n\yp 6v)P 6v)1P 6v+VP 6v- P 6v9P 6vLzP 6vMP 6v[UP 6|H1P 6|K4P 6|LP 7up 7zp 7;Zp 7kp 7+qp 7Ksp 7h6p 7krp 7
2p 70p 7M p 7\yp 7lvp
7$p 7$ 7p 7% P 7&
2P 7&=P 7&N8P 7&kvP >.:P >;wP >;yP >kP >YP >YP >Y P >\P >\P >\P >\RP >\WP >\\P >iP >m P >
TP ><wP >=P >H8P >J6P >5IP >5I0Q x >5KWP >5N2P >t.:P >t;wP >uKUP >ukrP >|kP >|lVP >}J6P >}]P >~
TP >~H8P >~[ZP >~lwP ?WP ?YP ?\P ?*7Q x ?%X<P FI7P FLKP FLLP FL[P FH1P FIwP FKVP FMP FYP FYSP F)6P F+5P FIP FLUP FkP FkvP F zP F ZP F zP F )wP F +P
F 9P F j6P F lVP F lYP F (WP
F kzP
F mP F yP F z2P F
QP F
TP F 2P
F )9P F [TP F [ZP F,zp F,<Rp F,J7p F- p F- p F-(Qp F-(Wp F-+qP F-J6p
Zp F.Vp F.*2P F.+qp F.98P F.=p F.\yP F.l}p FDI8p FDlYP FEJ9p FEKUp FEL7p FEkzp FExUp FF3p FF<7p FF<:p FF=6p FFH9P FFI;P FFJ8P FFK2P FFKzP FFL9P FFN8p FLkQP $ FN):P " F|WP F|uP F|P F| vP F| P F|+P F|+P F|+P F|87P F|8:P F|:P F|;zP F|<2P F|<RP F|IYP F|LvP F|MYP F|\0P F|\9P F|h9P F|htP F|yYP F}WP
F} 6P F}VP F}P F}:6P F}<|P F}H1P F}H7P F}J9P F}X9P F}X:P F}[PP F}[ZP
F}[rP F}]P F}]P F}{P F~
VP F~(uP F~(zP F~)1P F~)6P F~)8P F~);P F~+zP F~,zP F~=P
F~=8P F~LzP F~[VP F~iP F~k7P F~lrP F~lyP J H;` J K` J MYP J$)9p J$*Qp J$*Vp J$+tp J$+vp J$,Xp J$-Yp J,9p J,9P J,<}p J-Zp J-\wp Jfhrp JfkvP Jfl}p J|(:p J|+Rp J|- p J|-0p J|-:p K Jp K JQp NlP Nlkp Nm+qp Nmh6P Nn)9P OIRP OITP O$kp O%I7p O&=P O&[Zp R$<Rp R$=yp R$I;p R$Mp R$Mp R$MZp R% p R%
Rp R%(Wp R%Z7p R&<Rp R&=rp R4DP R4D+P R4DHP R4E*P R4EIP R4FP R5H6P R5HXP R5J6P R5KVP R5K[P Rf:=p Rf=P Rfkvp RlI7P RlK<P RlLKP RlLLP RlLRP RlL[P Rl^P RmTP RmKVP RmM P Rn+5P Rn9:P Rn=P RnkvP RnlP R}ip R}jp R}lzp V (:p V (wp V +Vp V ,hP V ,hp V ,zp V -Vp V -Yp Zdkp ZeMp Ze]p Zeh6p Zenp Zez2p Ze}wp Zf
2p [ )6p [ )Vp [ *2p [ 8tp [ Np [ Xqp [ kvp [ lwp b
p b woP