Trailing-Edge
-
PDP-10 Archives
-
tops10_tools_bb-fp64b-sb
-
10,7/galtol/qsrmv5.unv
There is 1 other file named qsrmv5.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 ' @ C6
X (BAT,LA.TYTTY)
X (LPT,'a.TYLPT)
X (PTP,L!.TYPTP)
X (CDP,L.TYCDP)
X (PLT,'!.TYPLT)
X (RDR, .TYCDR)
(RDR,C@ P CNah9Q CNajQP CNakQQ CNakXQ CNakYQ @ CNalQ CNalVQ CNalpQ CNamvQ @ CS&*1 "A2
LSTO!QF.
X <Invalid>,!)%INVLD,0
X <Lo#wer>,%LOWER,.OTLP# T
X <Upper>,%U#@PPER,.OTLPT
X #`<Physical>,%PHYCL$ ,<.OTLPT,.OTPTP,.$ OTCDP,.OTPLT>
X$@ <Generic>,%GENRC$`,-1
X <Sitgo>,% %SITGO,.OTBAT
% X <Input>,%NQINP,%@.OTNQC
X <Outp%`ut>,%NQOUT,.OTNQC&
X <IBM batch>& ,%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 5'+5
IF1,<IFDEF LOI.A,<PRINTX Mult.Oh defined limit paPrameter A>>
IFP(L <36-C>,<PRINTXPH Illegal C for lPhimit A>
IFL <3Q5-D>,<PRINTX IllQ(egal position forQH limit A>
IFLEQh <EQLMSZ-B>,<PRIRNTX Illegal B foR(r limit A>
L.RHA==<BYTE (18) B Rh(9) C,D>
RADI X 4+4
>
RADII6LUP I6 2 Y%O
X BAT
Y9 X LPT
X CDP
YXX PTP
X PLT
XYx 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? : y N
IFN <%%yI.MOD-<SIXBIT /QUAy)SAR/>>,<EXTERN G$yiSCHD>
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 ~"V
LSTOF.
X BMG,<Bad MO}yDIFY Group>,MF.FA~IT
X ICM,<Illega~hl CREATE Message>,MF.FAT
X IFS,<(Illegal File SpecHification>,MF.FATh
X ILM,<Illegal LIST Message>,MF (.FAT
X IFD,<Ill Hegally Formatted hDevice Name>,MF.FAT
X IMT,<Illeg(al Message Type>,HMF.FAT
X INF,<Ihllegal Number of Files>,MF.FAT
X( IPE,<InsufficienHt Privileges Enabhled>,MF.FAT
X MTL,<Message Too L(ong>,MF.FAT
X MHTS,<Message is Toho Short>,MF.FAT
X NKC,<Not a Kno(wn Component>,MF.HFAT
X NOR,<Numbher Out of Range>,MF.FAT
X NYO,<N(ot Your Object>,MHF.FAT
X SNY,<Sphecified request is Not Yours>,MF.F(AT
X UQN,<UnknoHwn Queue Name Spehcified>,MF.FAT
X UQS,<Unknown Qu(eue Specified>,MFH.FAT
X UOS,<Unkhnown Object Specified>,MF.FAT
X (WVN,<Wrong VersioHn Number>,MF.FAT
X IAS,<Invalid Account String Sp (ecified>,MF.FAT
H X IMM,<Illegal M hOUNT Message>,MF.
FAT
X MPN,<MOUN
(T Request Process
Hor Not Running>,M
hF.FAT
X CDU,<Ca n't Default User (Name>,MF.FAT
X HCDD,<Can't Defaul ht Connected Direc
tory>,MF.FAT
X
(NSD,<No such devi
Hce>,MF.FAT
X CD
hA,<Can'ttDeleteua
X PRivilegesaReqLabel Processing>(,MF.FAT
X ICD,<HIllegal Connectedh Directory Specified>,MF.FAT
X I(FC,<Invalid FunctHion Code Specifiehd>,MF.FAT
X MDA,<MDA is not supp(orted in this monHitor>,MF.FAT
X hSDY,<Specified Device is not Yours(>,MF.FAT
X IVN,H<Invalid Volume Shet Name Specified>,MF.FAT
X ISS,(<Invalid Switch SHpecified in a Strhucture Mount Request>,MF.FAT
X M(RP,<Mount RequestH is not Pending>,hMF.WRN
X MIN,<Mount Illegal for ('No Operator InteHrvention' Requesth>,MF.FAT
X IPB,<Invalid Path Blo(ck Specified>,MF.HFAT
X IBL,<Invahlid Block Length/Count Specified>,(MF.FAT
X MVB,<MHultiple Volume Seht Name Blocks is Illegal>,MF.FAT
( X IMO,<Invalid mHessage received fhrom ORION>,MF.FAT
X NUA,<No Unit(s Available for MHounting this Requhest>,MF.FAT
X RTE,<Route Table E(ntry does not ExiHst>,MF.FAT
X IShO,<Invalid Source Object Specified( in Route CommandH>,MF.FAT
X IDO,h<Invalid Destination Object Specif(ied in Route CommHand>,MF.FAT
X ChRG,<Cannot Route a Generic Unit>,M (F.FAT
X UST,<Un Hknown device or s htructure name>,MF .FAT
X ERZ,<Ers (atz devices may n Hot be mounted>,MF h.FAT
X DNM,<Dev ice may not be mo (unted>,MF.FAT
X H VID,<Volume iden htifier must be sp ecified>,MF.FAT
( X VIU,<Volume id Hentifiers must be h unique>,MF.FAT
X ISA,<Illegal a (ttribute for stru Hcture mount reque hst>,MF.FAT
X IT!A,<Illegal attrib!(ute for tape moun!Ht request>,MF.FAT!h
X ILN,<Illegal" logical name>,MF"(.FAT
X IDE,<Inv"Halid density>,MF."hFAT
X ILT,<Inva#lid label type>,M#(F.FAT
X RNS,<Re#Helid not specifie#hd in mount comman$d>,MF.FAT
X APE$(,<Already pending$H Event Queue entr$hy>,MF.FAT
X ASN%,<Ambiguous struc%(ture name>,MF.FAT%H ;[1226]
X I%hSN,<Invalid struc&ture name>,MF.FAT&( ;[1226]
X GDN&H,<Generic devices&h may not be mount'ed>,MF.FAT ;[1226'(]
X PLD,<Pathol'Hogical name inval'hid>,MF.FAT ;[122(6]
X IER,<Inval((id EQ request mes(Hsage format>,MF.F(hAT
X MRD,<Multi)-reel DECtape vol)(ume-sets are not )Hpermitted>,MF.FAT)h
X XXX,<This is* a text buffer fo*(r messages built *Hon the fly. MAX 7*h0 characters>,MF. FAT
LSTON..KXt:Q KXuZQ @ KXvN8P KZ-m 9I$
X TMR,9 <TIMER >,.POPJ,.PN)OPJ,<EV.INT>,<>
X KSY,<KSYS >,I9i$SKSY,I$KKSY,<EV.:CHK>,<Timesharing:8 will end>
X SP:XL,<SPOOL >,.POPJ,:x.POPJ,<EV.INT>,<>;
X ATO,<TAKFIL>;8,Q$EVTR,.POPJ,<0>;X,<Time-of-day OPR;x command file>
<X USG,<USGFIL>,I$<8UFIL,.POPJ,<0>,<U<Xsage file closure<x>
X BIL,<BILCLS=>,I$UBIL,.POPJ,<0=8>,<Usage billing =Xclosure>
X OPR,=x<OPRFIL>,I$OCLS,.>POPJ,<0>,<ORION l>8og file closure> >X
X LCK,<FSLOCK>,>x.POPJ,.POPJ,<EV.I?NT>,<>
X IGN,<I?8GNORE>,.POPJ,.POP?XJ,<EV.INT>,<>
X?x AFT,<AFTER >,.PO@PJ,.POPJ,<EV.INT>@8,<>
X NLC,<LOCK@XED>,.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 MR& `Q 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 T =
IFNDEF SiL.C,<PRINTX UndeSIfined limit paramS)eter C>
..Z==UYB
..O==<L.C&77Ux7777000000>_-^D18V
..Z==..Z+..O
V8 ..S==<L.C&77700VX0>_-^D9
..P==<LVx.C&777>
..P==^WD35-..P
..Z==..W8Z+<..S>B11+<..P>BWX5
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 3#
IFNDEF 30LSTIN.,LSTIN.==0 3P
IFE LSTIN.,<
3p IFIDN <XCREF><A4>,<.XCREF>
40 XLIST>
LSTIN .==LSTIN.+1STINYO%{G 4p-
IFG LST5IN.,LSTIN.==LSTIN50.-1
IFLE LSTIN5P.,<.CREF
LIST>
Z P [xU 6)n
X BAT,I6INP,<<1,,77>,<0,,^6hD600>,0,<INPOIP,,70>,<1,,^D512>>
7(X LPT,LPT,<<1,,777H>,<1,,^D500>,<FRM7hNOR>,<FLEACT,,0>,80>
X PTP,PTP,<<8(1,,77>,<1,,^D500>8H,<FRMNOR>,<FLEACT8h,,0>,0>
X CDP,C9DP,<<1,,77>,<1,,^9(D500>,<FRMNOR>,<F9HLEACT,,0>,0>
X 9hPLT,PLT,<<1,,77>,:<1,,^D30>,<FRMNOR:(>,<FLEACT,,0>,0>
X RDR,RDR,<0,0,:h0,0,0>
X BIN,BI;N,<0,0,0,0,0>
X;( DBM,DBM,<0,0,0,0;H,0>
X EVT,EVT,<;h0,0,0,0,0>
X FA<L,FAL,<<FALNTY>,0<(,0,0,0>
X NQC,Q<HNM,<<%NQOUT>,0,0,<h0,0>
TOPS20= <
X RET,RET,<0=(,0,0,0,0>
X NOT=H,NOT,<0,0,0,0,0>
> ;END TOPS20
;END[ 3@ 8PE <<<1_<A>> -1>B<B>>_<A>>[@ 9PY
IFB <B9p>,<MAXSIZ==0
I:RP A,<IFG <A-MA:0XSIZ>,<MAXSIZ==A:P>>>
IFNB <B>,<:pB==0
IRP A,<;IFG <A-B>,<B== A>>>
B>,<B==[EJ6 \ a <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 +i#B
LSTOF.
X NVM,<No Vol,)ume Mounted On Dr,Hive>
X VAU,<Vol,hume is Already in- Use>
X DAU,<Dr-(ive is Already in-H Use>
X VIL,<Vo-hlume on Drive is .Labeled>
X RDM,.(<Reelid does not .Hmatch user's requ.hest>
X URB,<Use/r Requested Bypas/(s Label Volumes>
X URL,<User Req/huested Labeled Vo0lumes>
X URW,<U0(ser Requested Wri0Hte-Locked Volumes0h>
X URE,<User R1equested Write-En1(abled Volumes>
1HX RDD,<Requested 1hDensity Does not 2Match Volume Dens2(ity>
X VND,<Req2Huested Volume not2h on this Device>
X IUD,<Illegal 3(for unavailable d3Hevice>
X RLD,<R3hequest Label Type4 Doesn't Match Vo4(lume Label Type>
X DAD,<Drive is4h already availabl5e>
X NVI,<VOLID5( Required for Thi5Hs Volume>
X CIU5h,<Cannot identify6 the Users Curren6(t Volume>
X TDM6H,<Request Track t6hype Doesn't Match7 Device Type>
X7( DDD,<Device Allo7Hcation Error - De7hadlock Detected>
X IDD,<Illegal 8(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( |Q e SIXBIT\QSR MS1\ SIXBIT\QSR[F5k) |q g 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 ] R IF2,<IFDEFR 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: (!t
X BAT,B)ATCON,%DEMND,%GEN(RC,,<SET HPQ 0,SE(aT DSKPRI 0>
X L(APT,LPTSPL,%DEMND,* <%GENRC,%LOWER,%U*(PPER,%PHYCL>
X *H<PTP,CDP,PLT>,SPR*hOUT,%DEMND,%GENRC+
X RDR,CDRIVE,%+(STCMD,%GENRC
X +HBIN,SPRINT,%DEMND+h,%GENRC
X FAL,F,AL,%STCMD,%GENRC,,(<ANF10,DECNET>
,HX BAT,IBMSPL,%STC,hMD,%IBMBT,DN60
I-FN FTDQS,<
X NQ-(C,NEBULA,%ONCE,<%-HNQOUT,%NQINP>,DEC-hNET
>
REPEAT 0,.<
X FOO,FOOSPL,.(%DEMND,%GENRC,,<S.HET HPQ 15,SET DSK PRI 1>
>
DSKaJn=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- Z9& ;MACRO TZYO GENERATE THE QUZyEUE HEADERS FROM [THE QUEUES MACRO
DEFINE X(A,B,C,[YD,E,F,G,H,I,J,K,L[x,M),<
IFDIF <\E><0>,<GLOB (E)>
IFDIF <H><0>,<G\XLOB (H)>
IFDIF \x<I><0>,<GLOB (I)>]
HDR'A:: INSVL]8.(<SIXBIT\ A\>,]XQH.NAM)!INSVL.(C,]xQH.TYP)!D
EXP 0^
XWD E,INSVL.(B^8,QH.SIZ)
EXP F
EXP G
EXP H
^x EXP I
EXP [ASC_IZ \J\]
EXP [AS_8CIZ \K\]
EXP [A_XSCIZ \L\]
EXP [_xASCIZ \M\]
> ;`END OF DEFINE X
`8 QUEUES ;NOW EX PAND QUEUES
EXcV.Y9 AY%E
LSTOFA9.
X EVT,QNTSIZ^I,.QHTEV,QH.IKS,S$B9EVT,LIQEVT,.OTEVTBY,DEPEVT,0,<Event>+),<event>,<>,<>
XB INP,QNTSIZ,.QHTIAyP,0,S$INPT,LIQBATBy,.OTBAT,DEPBAT,LICST.T,<Batch>,<jobC8>,<runtime>,<execCXuting>
X LPT,QNTCxSIZ,.QHTOU,0,S$LPDT,LIQLPT,.OTLPT,DD8EPOUT,LIST.D,<PriDXnter>,<job>,<pageDxs>,<printing>
X EPTP,QNTSIZ,.QHTOUE8,0,S$PTP,LIQPTP,.EXOTPTP,DEPOUT,LISTEx.D,<Paper tape puFnch>,<job>,<feet>F8,<punching>
X CDFXP,QNTSIZ,.QHTOU,0Fx,S$CDP,LIQCDP,.OTGCDP,DEPOUT,LIST.DG8,<Card punch>,<joGXb>,<cards>,<punchGxing>
X PLT,QNTSIHZ,.QHTOU,0,S$PLT,H8LIQPLT,.OTPLT,DEPHXOUT,LIST.D,<PlottHxer>,<job>,<minuteIs>,<plotting>
X I8RET,QNTSIZ,.QHTARIX,QH.INV,S$RET,LIQIxRET,.OTRET,DEPRETJ,LIST.D,<File retJ8rieval>,<requestsJX>,<>,<retrieving>Jx
X NOT,QNTSIZ,.QKHTAR,QH.INV,S$NOTK8,0,0,0,0,<>,<>,<>KX,<>
X BIN,QNTSIZKx,.QHTIP,QH.INV,S$LBIN,0,.OTBIN,0,0,L8<Interpreter>,<joLXbs>,<decks>,<inteLxrpreting>
X DBM,MQNTSIZ,.QHFRR,QH.M8IKS!QH.INV,S$DBM,MX0,.OTDBM,0,0,<>,<Mx>,<>,<>
X RDR,QNNTSIZ,.QHFRR,0,S$RN8DR,0,.OTRDR,0,0,<NX>,<>,<>,<>
XOSPLNx,SPLSIZ,.QHTQS,QHO.IKS!QH.INV,0,0,0O8,0,0,<>,<>,<>,<>
X PSB,PSBSIZ,.QHOxTQS,QH.IKS!QH.INVP,0,0,0,0,0,<>,<>,P8<>,<>
X OBJ,OBJSPXIZ,.QHTQS,QH.IKS!PxQH.INV,0,0,0,0,0,Q<>,<>,<>,<>
X USQ8E,USESIZ,.QHTQS,QQXH.IKS!QH.INV,0,0,Qx0,0,0,<>,<>,<>,<>R
X STR,STRSIZ,.QR8HTQS,QH.IKS!QH.INRXV,0,0,0,0,0,<>,<>Rx,<>,<>
X NET,NETSSIZ,.QHTQS,QH.IKSS8!QH.INV,0,0,.OTNCSXU,0,0,<>,<>,<>,<>Sx
IFN FTINFO,<
XT PID,PIDSIZ,.QHTQT8S,QH.IKS!QH.INV!QTXH.VAR,0,0,0,0,0,<Tx>,<>,<>,<>
>
X UIPC,IPCSIZ,.QHTQSU8,QH.IKS!QH.INV!QHUX.VAR,0,0,0,0,0,<>Ux,<>,<>,<>
X FAL,VQNTSIZ,.QHFRR,0,SV8$FAL,0,.OTFAL,0,0VX,<>,<>,<>,<>
X OVxDB,ODBSIZ,.QHTQS,WQH.IKS!QH.INV!QH.W8VAR,0,0,0,0,0,<>,WX<>,<>,<>
X QNM,QWxNMSIZ,.QHTQS,QH.IXKS!QH.INV!QH.OAV,X8S$NQC,0,.OTNQC,0,XX0,<>,<>,<>,<>
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;P 'g4t;ZP 'g4tKQ g4uwQ @ g4v Q @ g4v,wQ x g4v98P 'g6
XLIST/)
0DEFINE X (/HOTYP,PNAM,PTYP,PA/hTR,PDEP,PTXT), <
PRCTYP (PN0(AM,PTYP)
>
0H
..CNT==0
0h.XCREF ..CNT
1 DEFINE PRCTY1(P (PN,PT), <
1H IFIDN <A><1hPN>, <
2 IFG ..CNT-0, <2(
2H IF1,<
2h PRI3NTX ?More than on3(e entry in PRCDAT3H for same process3hor
4 >
4( >
4H B=='PT
4h ..CNT==.5.CNT+1
5( >
>
5H PRCDAT
5h 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 @! Z
LSTOF.
X <Invalid>,%I@`NVLD,100
X <IdA le>,%IDLE,0
X A <Active>,%ACTIV,0A@
X <Stopped>,%A`STOPD,0
X <NotB Started>,%NSTRT,B 0
X <Not AvailB@able>,%NAVAL,0
B` X <No PTYs>,%NPTC YS,.OTBAT
X <OC ffline>,%OFLNE,<.C@OTLPT,.OTPTP,.OTCC`DP,.OTPLT,.OTRDR>D
X <System FulD l>,%SFULL,.OTBAT
X <Shutting DoD`wn>,%SHTDN,0
XE <Aborting>,%CNCLE G,0
X <Opr ResE@p Wait>,%OREWT,0
X <Aligning FoF rms>,%ALIGN,.OTLPF T
X <>,%RESET,F@0
X <Reading>,F`%READN,.OTRDR
G X <Requeing>,%REQG UE,0
X <ShuttiG@ng Down>,%SHUTD,0G`
X <Opr OutputH Wait>,%OPRWT,.OTH LPT
X <Stop isH@ Pending>,%STPPN,H`0
X <No procesI sor>,%NOPRC,0
I X <Changing FormsI@>,%FRMCH,<.OTLPT,I`.OTPLT,.OTPTP,.OTJ CDP>
X <ConnecJ ting>,%CNECT,<.OTJ@NQC,.OTFAL>
X J`<Mount wait>,%MWAK IT,0
X <InactiK ve>,%INACT,0
LS TON.NACT,0
LSgR}J6 X Y
IFNDEF X9L.C,<PRINTX UndeXXfined limit paramXxeter C>
..Z==YB
..O==<L.C&77Y87777000000>_-^D18YX
..Z==..Z+..O
Yx ..S==<L.C&77700Z0>_-^D9
..P==<LZ8.C&777>
..P==^ZXD35-..P
..Z==..ZxZ+<..S>B11+<..P>B[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 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 8!i
IFNB < XB>,<TOPS10<A==B x>>
IFNB <C>,<T OPS20<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( !p IFN FTUUOS ,B ;DEFINE UNi?4H H!t 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@ P@% BYTE (3)AP`WHO (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 [Y ] <L.A&7770 00>_-^D9A&7770oPu[yQ p 8I#D
.EVA==<ZZ ==ZZ+1> MD$A==q@ h~
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 _i$$A,<
PRINTX `UNDEFINED COUNTER`( A USED
>
IF`HNDEF G$ITEM,<EXTE`hRN G$ITEM>
AOS G$ITEM+$$A
S +8 , z
LSTOF.
PUSHJ P,D$MDA_ E
CAI <<B>B2_(3!<A>B35>
LSTO N.A>B35>
LSTO '$[ c) D
LSTOF.
X (ICNT,Number chof items in recordd)
X (NOW,Curred(nt time of day)
dH X (STAR,QUASAR'sdh start time)
X e(QJOB,QUASAR's joe(b number)
X (IPeHCI,Total number oehf IPCF interruptsf received)
X (Rf(IPC,IPCF messagesfH received)
X (SfhIPC,IPCF messagesg sent)
X (IPCF,g(IPCF send failuregHs)
X (IPCU,Unreghcoverable IPCF sehnd failures)
X h((MREL,RELEASE meshHsages received)
hh X (MCHK,CHECKPOIiNT messages receii(ved)
X (MREQ,REiHQUEUE messages reihceived)
X (MNXTj,Total NEXTJOB mej(ssages sent by tyjHpe)
X (MLST,LISjhT messages receivked)
X (NLAP,LISk(TANSWER pages senkHt)
X (SCRE,Succkhessful creates dolne)
X (MMOD,MODl(IFY messages recelHived)
X (MKIL,KlhILL messages recemived)
X (MDEF,Dm(EFER messages recmHeived)
X (ISPL,mhImmediate SPOOL mnessages received)n(
X (DSPL,DeferrnHed SPOOL messagesnh received)
X (MoCAN,COUNTANSWER mo(essages sent)
XoH (SLCD,Scheduler ohloop countdowns)
X (DEAD,MDA deap(dlock avoidance cpHalls)
X (DFAL,MphDA deadlock avoidqance failures)
q(X (VSWM,Volume swqHitch tape mount)
X (TAPM,Tape morunt)
X (STRM,Phr(ysical structure rHmount)
X (USTM,rhUser structure mosunt)
X (GENM,Ges(neric mount)
X sH(TINP,Terminationsh batch requests)
X (TOUT,Terminat(tion print requestHts)
X (TCNI,Terthmination console uinput)
X (TCNO,u(Termination consouHle output)
X (EuhINP,Emulation batvch requests)
X v((EOUT,Emulation pvHrint requests)
vhX (ECNI,Emulationw console input)
w( X (ECNO,EmulatiowHn console output)wh
X (IPCE,Resendx queue expirationx(s)
X (DTAM,DECtxHape mounts)
LST ON.ounts)
LST NNI6 a)
IFNDEF aI$$B,<
PRINTX ahUNDEFINED COUNTERb B USED
>
IFb(NDEF G$ITEM,<EXTEbHRN G$ITEM>
STORbhE 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 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