Trailing-Edge
-
PDP-10 Archives
-
bb-bt99p-bb
-
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 * @ C6
X (BAT,OA.TYTTY)
X (LPT,*a.TYLPT)
X (PTP,O!.TYPTP)
X (CDP,O.TYCDP)
X (PLT,*!.TYPLT)
X (RDR, .TYCDR)
(RDR,C@ P CNah9Q CNajQP CNakQQ CNakXQ CNakYQ @ CNalQ CNalVQ CNalpQ CNamvQ @ CS&*1 %AJ
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 LRI.A,<PRINTX Mult.Rh defined limit paSrameter A>>
IFS(L <36-C>,<PRINTXSH Illegal C for lShimit A>
IFL <3T5-D>,<PRINTX IllT(egal position forTH limit A>
IFLETh <EQLMSZ-B>,<PRIUNTX Illegal B foU(r limit A>
L.UHA==<BYTE (18) B Uh(9) C,D>
RADI X 4+4
>
RADII6LUP I6 2 \%g
X BAT
\9 X LPT
X CDP
\XX PTP
X PLT
X\x 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? : | f
IFN <%%|I.MOD-<SIXBIT /QUA|)SAR/>>,<EXTERN G$|iSCHD>
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 "n
LSTOF.
X BMG,<Bad MO yDIFY Group>,MF.FAIT
X ICM,<Illegahl CREATE Message>,MF.FAT
X IFS,<(Illegal File SpecHification>,MF.FATh
X ILM,<Illegal LIST Message>,MF(.FAT
X IFD,<IllHegally 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 i s Not Yours>,MF.F (AT
X UQN,<Unkno Hwn Queue Name Spe hcified>,MF.FAT
X UQS,<Unknown Qu
(eue Specified>,MF
H.FAT
X UOS,<Unk
hnown Object Speci fied>,MF.FAT
X (WVN,<Wrong Versio Hn Number>,MF.FAT
X IAS,<Invalid
Account String Sp
(ecified>,MF.FAT
H X IMM,<Illegal M
hOUNT Message>,MF.
X MPN,<MOUNocess
X CDU,<Can't Default User (Name>,MF.FAT
X HCDD,<Can't Defaulht Connected Directory>,MF.FAT
X (NSD,<No such deviHce>,MF.FAT
X CDhA,<Can't Delete an Allocated reque(st>,MF.FAT
X PRHB,<Privileges Reqhuired for Bypass Label 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 R TE,<Route Table E (ntry does not Exi Hst>,MF.FAT
X IS hO,<Invalid Source Object Specified ( in Route Command H>,MF.FAT
X IDO, h<Invalid Destinat ion Object Specif (ied in Route Comm Hand>,MF.FAT
X C hRG,<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 <I$
X TMR,< <TIMER >,.POPJ,.PQ)OPJ,<EV.INT>,<>
X KSY,<KSYS >,I<i$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,.APOPJ,<0>,<ORION lA8og file closure> AX
X LCK,<FSLOCK>,Ax.POPJ,.POPJ,<EV.IBNT>,<>
X IGN,<IB8GNORE>,.POPJ,.POPBXJ,<EV.INT>,<>
XBx AFT,<AFTER >,.POCPJ,.POPJ,<EV.INT>C8,<>
X NLC,<LOCKCXED>,.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 W U
IFNDEF ViL.C,<PRINTX UndeVIfined limit paramV)eter C>
..Z==XYB
..O==<L.C&77Xx7777000000>_-^D18Y
..Z==..Z+..O
Y8 ..S==<L.C&77700YX0>_-^D9
..P==<LYx.C&777>
..P==^ZD35-..P
..Z==..Z8Z+<..S>B11+<..P>BZX5
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 2x!
IFNDEF 3LSTIN.,LSTIN.==0 38
IFE LSTIN.,<
3X IFIDN <XCREF><A3x>,<.XCREF>
4 XLIST>
LSTIN .==LSTIN.+1STINYO%{G 4X+
IFG LST4xIN.,LSTIN.==LSTIN5.-1
IFLE LSTIN58.,<.CREF
LIST>
Z P [xU 9)
X BAT,I9INP,<<1,,77>,<0,,^9hD600>,0,<INPOIP,,:0>,<1,,^D512>>
:(X LPT,LPT,<<1,,77:H>,<1,,^D500>,<FRM:hNOR>,<FLEACT,,0>,;0>
X PTP,PTP,<<;(1,,77>,<1,,^D500>;H,<FRMNOR>,<FLEACT;h,,0>,0>
X CDP,C<DP,<<1,,77>,<1,,^<(D500>,<FRMNOR>,<F<HLEACT,,0>,0>
X <hPLT,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@ 88C <<<1_<A>> -1>B<B>>_<A>>[@ 98W
IFB <B9X>,<MAXSIZ==0
I9xRP A,<IFG <A-MA:XSIZ>,<MAXSIZ==A:8>>>
IFNB <B>,<:XB==0
IRP A,<:xIFG <A-B>,<B== A>>>
B>,<B==[EJ6 _ y <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#Z
LSTOF.
X NVM,<No Vol/)ume Mounted On Dr/Hive>
X VAU,<Vol/hume is Already in0 Use>
X DAU,<Dr0(ive is Already in0H Use>
X VIL,<Vo0hlume on Drive is 1Labeled>
X RDM,1(<Reelid does not 1Hmatch user's requ1hest>
X URB,<Use2r Requested Bypas2(s Label Volumes>
X URL,<User Req2huested Labeled Vo3lumes>
X URW,<U3(ser Requested Wri3Hte-Locked Volumes3h>
X URE,<User R4equested Write-En4(abled Volumes>
4HX RDD,<Requested 4hDensity Does not 5Match Volume Dens5(ity>
X VND,<Req5Huested Volume not5h on this Device>
X IUD,<Illegal 6(for unavailable d6Hevice>
X RLD,<R6hequest Label Type7 Doesn't Match Vo7(lume Label Type>
X DAD,<Drive is7h already availabl8e>
X NVI,<VOLID8( Required for Thi8Hs Volume>
X CIU8h,<Cannot identify9 the Users Curren9(t Volume>
X TDM9H,<Request Track t9hype Doesn't Match: Device Type>
X:( DDD,<Device Allo:Hcation Error - De:hadlock Detected>
X IDD,<Illegal ;(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 } SIXBIT\QSR MS1\ SIXBIT\QSR[F5k) q 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 ] Qh 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: +!
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
I0FN FTDQS,<
X NQ0(C,NEBULA,%ONCE,<%0HNQOUT,%NQINP>,DEC0hNET
>
REPEAT 0,1<
X FOO,FOOSPL,1(%DEMND,%GENRC,,<S1HET 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- ]9& ;MACRO T]YO GENERATE THE QU]yEUE 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 0a
XWD E,INSVL.(Ba8,QH.SIZ)
EXP F
EXP G
EXP H
ax EXP I
EXP [ASCbIZ \J\]
EXP [ASb8CIZ \K\]
EXP [AbXSCIZ \L\]
EXP [bxASCIZ \M\]
> ;cEND OF DEFINE X
c8 QUEUES ;NOW EX PAND QUEUES
EXcV.Y9 DY%]
LSTOFD9.
X EVT,QNTSIZaI,.QHTEV,QH.IKS,S$E9EVT,LIQEVT,.OTEVTEY,DEPEVT,0,<Event>.),<event>,<>,<>
XE INP,QNTSIZ,.QHTIDyP,0,S$INPT,LIQBATEy,.OTBAT,DEPBAT,LIFST.T,<Batch>,<jobF8>,<runtime>,<execFXuting>
X LPT,QNTFxSIZ,.QHTOU,0,S$LPGT,LIQLPT,.OTLPT,DG8EPOUT,LIST.D,<PriGXnter>,<job>,<pageGxs>,<printing>
X HPTP,QNTSIZ,.QHTOUH8,0,S$PTP,LIQPTP,.HXOTPTP,DEPOUT,LISTHx.D,<Paper tape puInch>,<job>,<feet>I8,<punching>
X CDIXP,QNTSIZ,.QHTOU,0Ix,S$CDP,LIQCDP,.OTJCDP,DEPOUT,LIST.DJ8,<Card punch>,<joJXb>,<cards>,<punchJxing>
X PLT,QNTSIKZ,.QHTOU,0,S$PLT,K8LIQPLT,.OTPLT,DEPKXOUT,LIST.D,<PlottKxer>,<job>,<minuteLs>,<plotting>
X L8RET,QNTSIZ,.QHTARLX,QH.INV,S$RET,LIQLxRET,.OTRET,DEPRETM,LIST.D,<File retM8rieval>,<requestsMX>,<>,<retrieving>Mx
X NOT,QNTSIZ,.QNHTAR,QH.INV,S$NOTN8,0,0,0,0,<>,<>,<>NX,<>
X BIN,QNTSIZNx,.QHTIP,QH.INV,S$OBIN,0,.OTBIN,0,0,O8<Interpreter>,<joOXbs>,<decks>,<inteOxrpreting>
X DBM,PQNTSIZ,.QHFRR,QH.P8IKS!QH.INV,S$DBM,PX0,.OTDBM,0,0,<>,<Px>,<>,<>
X RDR,QNQTSIZ,.QHFRR,0,S$RQ8DR,0,.OTRDR,0,0,<QX>,<>,<>,<>
XRSPLQx,SPLSIZ,.QHTQS,QHR.IKS!QH.INV,0,0,0R8,0,0,<>,<>,<>,<>
X PSB,PSBSIZ,.QHRxTQS,QH.IKS!QH.INVS,0,0,0,0,0,<>,<>,S8<>,<>
X OBJ,OBJSSXIZ,.QHTQS,QH.IKS!SxQH.INV,0,0,0,0,0,T<>,<>,<>,<>
X UST8E,USESIZ,.QHTQS,QTXH.IKS!QH.INV,0,0,Tx0,0,0,<>,<>,<>,<>U
X STR,STRSIZ,.QU8HTQS,QH.IKS!QH.INUXV,0,0,0,0,0,<>,<>Ux,<>,<>
X NET,NETVSIZ,.QHTQS,QH.IKSV8!QH.INV,0,0,.OTNCVXU,0,0,<>,<>,<>,<>Vx
IFN FTINFO,<
XW PID,PIDSIZ,.QHTQW8S,QH.IKS!QH.INV!QWXH.VAR,0,0,0,0,0,<Wx>,<>,<>,<>
>
X XIPC,IPCSIZ,.QHTQSX8,QH.IKS!QH.INV!QHXX.VAR,0,0,0,0,0,<>Xx,<>,<>,<>
X FAL,YQNTSIZ,.QHFRR,0,SY8$FAL,0,.OTFAL,0,0YX,<>,<>,<>,<>
X OYxDB,ODBSIZ,.QHTQS,ZQH.IKS!QH.INV!QH.Z8VAR,0,0,0,0,0,<>,ZX<>,<>,<>
X QNM,QZxNMSIZ,.QHTQS,QH.I[KS!QH.INV!QH.OAV,[8S$NQC,0,.OTNQC,0,[X0,<>,<>,<>,<>
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
XLIST2)
3DEFINE X (2HOTYP,PNAM,PTYP,PA2hTR,PDEP,PTXT), <
PRCTYP (PN3(AM,PTYP)
>
3H
..CNT==0
3h.XCREF ..CNT
4 DEFINE PRCTY4(P (PN,PT), <
4H IFIDN <A><4hPN>, <
5 IFG ..CNT-0, <5(
5H IF1,<
5h PRI6NTX ?More than on6(e entry in PRCDAT6H for same process6hor
7 >
7( >
7H B=='PT
7h ..CNT==.8.CNT+1
8( >
>
8H PRCDAT
8h 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 C! r
LSTOF.
X <Invalid>,%IC`NVLD,100
X <IdD le>,%IDLE,0
X D <Active>,%ACTIV,0D@
X <Stopped>,%D`STOPD,0
X <NotE Started>,%NSTRT,E 0
X <Not AvailE@able>,%NAVAL,0
E` X <No PTYs>,%NPTF YS,.OTBAT
X <OF ffline>,%OFLNE,<.F@OTLPT,.OTPTP,.OTCF`DP,.OTPLT,.OTRDR>G
X <System FulG l>,%SFULL,.OTBAT
X <Shutting DoG`wn>,%SHTDN,0
XH <Aborting>,%CNCLH G,0
X <Opr ResH@p Wait>,%OREWT,0
X <Aligning FoI rms>,%ALIGN,.OTLPI T
X <>,%RESET,I@0
X <Reading>,I`%READN,.OTRDR
J X <Requeing>,%REQJ UE,0
X <ShuttiJ@ng Down>,%SHUTD,0J`
X <Opr OutputK Wait>,%OPRWT,.OTK LPT
X <Stop isK@ Pending>,%STPPN,K`0
X <No procesL sor>,%NOPRC,0
L X <Changing FormsL@>,%FRMCH,<.OTLPT,L`.OTPLT,.OTPTP,.OTM CDP>
X <ConnecM ting>,%CNECT,<.OTM@NQC,.OTFAL>
X M`<Mount wait>,%MWAN IT,0
X <InactiN ve>,%INACT,0
LS TON.NACT,0
LSgR}J6 [ q
IFNDEF [9L.C,<PRINTX Unde[Xfined limit param[xeter C>
..Z==\B
..O==<L.C&77\87777000000>_-^D18\X
..Z==..Z+..O
\x ..S==<L.C&77700]0>_-^D9
..P==<L]8.C&777>
..P==^]XD35-..P
..Z==..]xZ+<..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 !h
IFNB < @B>,<TOPS10<A==B `>>
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!o IFN FTUUOS ,B ;DEFINE UNi?4H 0!s 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@ Q(%
BYTE (3)AQHWHO (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 u <L.A&7770 00>_-^D9A&7770oPu[yQ p ;I#\
.EVA==<ZZ ==ZZ+1> MD$A==q@ P}
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 bi$$A,<
PRINTX cUNDEFINED COUNTERc( A USED
>
IFcHNDEF G$ITEM,<EXTEchRN G$ITEM>
AOS G$ITEM+$$A
S +8 /
LSTOF.
PUSHJ P,D$MDAb E
CAI <<B>B2b(3!<A>B35>
LSTO N.A>B35>
LSTO '$[ f) \
LSTOF.
X (ICNT,Number fhof items in recorgd)
X (NOW,Curreg(nt time of day)
gH X (STAR,QUASAR'sgh start time)
X h(QJOB,QUASAR's joh(b number)
X (IPhHCI,Total number ohhf IPCF interruptsi received)
X (Ri(IPC,IPCF messagesiH received)
X (SihIPC,IPCF messagesj sent)
X (IPCF,j(IPCF send failurejHs)
X (IPCU,Unrejhcoverable IPCF seknd failures)
X k((MREL,RELEASE meskHsages received)
kh X (MCHK,CHECKPOIlNT messages receil(ved)
X (MREQ,RElHQUEUE messages relhceived)
X (MNXTm,Total NEXTJOB mem(ssages sent by tymHpe)
X (MLST,LISmhT messages receivned)
X (NLAP,LISn(TANSWER pages sennHt)
X (SCRE,Succnhessful creates doone)
X (MMOD,MODo(IFY messages receoHived)
X (MKIL,KohILL messages recepived)
X (MDEF,Dp(EFER messages recpHeived)
X (ISPL,phImmediate SPOOL mqessages received)q(
X (DSPL,DeferrqHed SPOOL messagesqh received)
X (MrCAN,COUNTANSWER mr(essages sent)
XrH (SLCD,Scheduler rhloop countdowns)
X (DEAD,MDA deas(dlock avoidance csHalls)
X (DFAL,MshDA deadlock avoidtance failures)
t(X (VSWM,Volume swtHitch tape mount)
X (TAPM,Tape mouunt)
X (STRM,Phu(ysical structure uHmount)
X (USTM,uhUser structure movunt)
X (GENM,Gev(neric mount)
X vH(TINP,Terminationvh batch requests)
X (TOUT,Terminaw(tion print requeswHts)
X (TCNI,Terwhmination console xinput)
X (TCNO,x(Termination consoxHle output)
X (ExhINP,Emulation batych requests)
X y((EOUT,Emulation pyHrint requests)
yhX (ECNI,Emulationz console input)
z( X (ECNO,EmulatiozHn console output)zh
X (IPCE,Resend{ queue expiration{(s)
X (DTAM,DECt{Hape mounts)
LST ON.ounts)
LST NNI6 d) .
IFNDEF dI$$B,<
PRINTX dhUNDEFINED COUNTERe B USED
>
IFe(NDEF G$ITEM,<EXTEeHRN G$ITEM>
STORehE 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