Trailing-Edge
-
PDP-10 Archives
-
BB-H137C-BM
-
galaxy-subsys/qsrmac.unv
There are 88 other files named qsrmac.unv in the archive. Click here to see a list.
x
,5 c@ P C
yhrp C
yj2p C
yj:p C
ykWp C
yl}p C
ym p C
ym7p C
~\yP CjvP C@ P CHtkQP 'CHuI7A x CHu[rQ x CHv
ZP 'CHvIWP 'CHvLwQ h x CHvN8@ 'CJh9p CJiVp CJiWp CJjp CJkHp CJkIp CJlp CJl}p CJmp CJm p CJmp CJ9ip CJ9jp GqhVp Gql}p
P G7
P G8&:=P G?)l}p GLtIYP GLtiP 'GLtkP GLu+qQ x GLuKqP '~ GNih3p GNii7p GNiiRp GNiiVp GNiiXp GNiiYp GNijQp GNikp GNikZp GNiktp GNilWp GNn:=p I5J6 kiG
RADIX 5li+5
IF1,<IFDEF Ll).A,<PRINTX Mult.l defined limit palIrameter A>>
IFnYL <36-C>,<PRINTXnx Illegal C for loimit A>
IFL <3o85-D>,<PRINTX IlloXegal position forox limit A>
IFLEp <EQLMSZ-B>,<PRIp8NTX Illegal B fopXr limit A>
L.pxA==<BYTE (18) B q(9) C,D>
RADI X 4+4
>
RADII6 2 9 KL
X BAT
9) X LPT
X CDP
9HX PTP
X PLT
X MNT
X RET
XIr%lP Ir5lP ItI1P It[:P ItkQQ x Iu
xP Iu+qP 'IvLVP IjQp Ikzp Il}p I$v8:Q @ I$vN8P 'I&:=p I7
kV !H~ ASCIZ \DSKA:PRIVATE-MASTER-Q`UEUE-FILE.QUASAR\ UE-FILE.QUASAR\I? :
aHd
IFN <%%
!.MOD-<SIXBIT /QUA
SAR/>>,<EXTERN G$
ASCHD>
SETOM G$S CHD
SETOM G$SJ P KDtzP @ KDuWP KDu9P KDu(QP KDuKtP 'KDukzP KDum6P 'KDv
TP KDv
WQ x KDv
[P KDv)P PKDv98Q x KDv<P @KDvlYQ x KF <}P KFF:=p KFN:=p KFe\}P KFu\}P KGF:=p KH$+3P KH$9P KH$9P KH$9P KH$::P KH$;TP KH$H2P KH$H:P
KH%7P KH%:P KH%SP KH% P KH% 2P KH%\P
KH%]P KH%]P KH%jqP KH%kyP KH%lrP KH%mTP KH%mVP
KH%n7P KH%zP KH&
QP KH&)P KH&+P KH&;\P KH&[yP KH&\9P KH&\QP KH&\RP KH&\VP KH&\[P KH&h:P
KH&j6P KH&}WP KK9 AJr
XLIST
a
X BMG,<Bad MOD IFY Group>,MF.FAT
X ICM,<Illegal( CREATE Message>,HMF.FAT
X IFS,<Ihllegal File Specification>,MF.FAT
X ILM,<Illegal HLIST Message>,MF.hFAT
X IFD,<Illegally Formatted D(evice Name>,MF.FAHT
X IMT,<Illegahl Message Type>,MF.FAT
X INF,<Il(legal Number of FHiles>,MF.FAT
X hIPE,<Insufficient Privileges Enabl(ed>,MF.FAT
X MTHL,<Message Too Lohng>,MF.FAT
X MTS,<Message is Too( Short>,MF.FAT
HX NKC,<Not a Knowhn Component>,MF.FAT
X NOR,<Numbe(r Out of Range>,MHF.FAT
X NYO,<Noht Your Object>,MF.FAT
X SNY,<Spe(cified request isH Not Yours>,MF.FAhT
X UQS,<Unknown Queue Specified(>,MF.FAT
X UOS,H<Unknown Object Shpecified>,MF.FAT
X WVN,<Wrong Ve(rsion Number>,MF.HFAT
X IAS,<Invahlid Account String Specified>,MF.F(AT
X OHR,<OperaHtor Has Restrictehd Queue Entry Com mands>,MF.FAT
X ( IMM,<Illegal MOU HNT Message>,MF.FA hT
X MPN,<MOUNT Request Processor ( Not Running>,MF. HFAT
X CDU,<Can' ht Default User Na me>,MF.FAT
X CD (D,<Can't Default HConnected Directo hry>,MF.FAT
X NV M,<No Volume Moun (ted On Drive>,MF. HFAT
X VAU,<Volu hme is Already in Use>,MF.FAT
X D (AU,<Drive is Alre Hady in Use>,MF.FA hT
X VIL,<Volume! on Drive is Labe!(led>,MF.FAT
X U!HRB,<User Requeste!hd Bypass Label Vo"lumes>,MF.FAT
X"( URL,<User Reques"Hted Labeled Volum"hes>,MF.FAT
X UR#W,<User Requested#( Write-Locked Vol#Humes>,MF.FAT
X #hURE,<User Request$ed Write-Enabled $(Volumes>,MF.FAT
$H X RDD,<Requested$h Density Does not% Match Volume Den%(sity>,MF.FAT
X %HVND,<Requested Vo%hlume not on this &Device>,MF.FAT
&(X IUD,<Illegal Fo&Hr UNAVAILABLE Dev&hice>,MF.FAT
X N'SD,<No Such Devic'(e>,MF.FAT
X RLD'H,<Request Label T'hype Doesn't Match( Volume Label Typ((e>,MF.FAT
X DAD(H,<Drive is alread(hy available>,MF.F)AT
X CDA,<Can't)( Delete an Alloca)Hted request>,MF.F)hAT
X CNI,<Comma*nd Not Yet Implem*(ented>,MF.FAT
X*H IMO,<Invalid Mes*hsage from ORION>,+MF.FAT
X PRB,<P+(rivileges Require+Hd for Bypass Labe+hl Processing>,MF.,FAT
X NVI,<VOLI,(D Required for Th,His Volume>,MF.FAT,h
X CIU,<Cannot -IDENTIFY the User-(s Current Volume>-H,MF.FAT
X ICD,<-hIllegal Connected. Directory Specif.(ied>,MF.FAT
L IST
SALL
LMF:=P M2,zP 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)VQ | M@v<P @ M@w P MBn:=p MCF:=p MJmkyQ ]?X6MJn: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 =P MO |P MR%eHQ MRV>9Q MS) Q MS 2P MS.[yP N: LP N: LP N:%kyQ ]?X6N:%m1P N:&
TP N:5I0P N:L9P tN:L;yP N:MKsP N:MLP dN:N P dN:N
TP
O%J6 r9G1
IFNDEF rL.C,<PRINTX Undeqyfined limit paramqYeter C>
..Z==tB
..O==<L.C&77t87777000000>_-^D18tX
..Z==..Z+..O
tx ..S==<L.C&77700u0>_-^D9
..P==<Lu8.C&777>
..P==^uXD35-..P
..Z==..uxZ+<..S>B11+<..P>Bv5
LDB A,[EXP . .Z]
A,[EXP .P P QtlVQ @ Q
yiVp Q
ykzp Q
ylXp Q
yl}p d Q4.2P $ Q4kP 'Q6i9Q x QaiVp QakVp : QakWp Qakqp Qal}p QuX<P 'QukzQ x S;9P tS;;yP S;KsP S;X<P S;z8P S; yP dS; P dS;
}P SB p SB Y9p SB
[p SB (yp $ SB ,}P $ SB 9p % SB :2p SB :=p SBih2P 'SBihzQ x SCiVQ @ SCj2Q X SCj3Q SCj<P 'SCmQ @ U&j2p U&jWp & U&lxp - U&m9p t U&:=p W&akzp W&alXp u W&al}p u X:KsQ u ( X: +qQ y $X: krQ HX: |RQ y $X: J6Q HX:$\P $X:5I0Q X:5|VP HX:t+Q $X:u}Q HX:u} Q HX:}ZP X:}J6Q $X:}krQ HX:~]P X;\zP X; 9Q $X; LQ $X; Q $X;
Q }@ Y'
(:Q @ Y'
9Q Y' Q Y';P YC%]6P YLtQ YLtlzQ Z P [xU Z)F
X BAT,IZ NP,<<1,,77>,<0,,^YiD3600>,0,<INPOIP,YI,0>,<1,,^D512>>
[1 X LPT,LPT,<<1,,7[P7>,<1,,^D500>,<FR[pMNOR>,<FLEACT,,0>\,0>
X PTP,PTP,<\0<1,,77>,<1,,^D500\P>,<FRMNOR>,<FLEAC\pT,,0>,0>
X CDP,]CDP,<<1,,77>,<1,,]0^D500>,<FRMNOR>,<]PFLEACT,,0>,0>
X]p PLT,PLT,<<1,,77>^,<1,,^D500>,<FRMN^0OR>,<FLEACT,,0>,0^P>
X RDR,RDR,<0,^p0,0,0,0>
X BIN,_BIN,<0,0,0,0,0>
_0 X DBM,DBM,<0,0,0_P,0,0>
TOPS2_p0 <
X XFR,XFR,<`0,0,0,0,0>
X RE`0T,RET,<0,0,0,0,0>`P
X NOT,NOT,<0,0`p,0,0,0>
a > ;END TOPS20
;END TOPS20
[ 3@ -p*o <<<1_<A>> -1>B<B>>_<A>>[@ .p+
IFB <B/>,<MAXSIZ==0
I/0RP A,<IFG <A-MA/PXSIZ>,<MAXSIZ==A/p>>>
IFNB <B>,<0B==0
IRP A,<00IFG <A-B>,<B== A>>>
B>,<B==[F:=P [I7p
[4ukzQ [4vx:Q @ [>!iSp [>!irp [>!iwp [>!kzp [>!lXp [>!l}p [>${P '[>$|Q x [F5h6 !Ht ASCIZ\DSK:a<SPOOL>PRIMARY-MAASTER-QUEUE-FILE.Q UASAR\UE-FILE.Q[Ht;ZQ x [HukzQ [Hv*2P '[Hvx:Q @ [NF:=p [c.
TP
] G ,: IF2,<IFDEFG! A,<A==A>>QIFN DEF]A,<A==B>]$Q ]$ qp ]$,p ]$;vp P ]$<rp ]%VQ ]%p ]%h6p ]%hYp ]%l{Q @ ]%{VQ ]&
ZQ x ]PvKzQ x @ ]PvLPP ' ]PvN8Q ` ]Pw
%KQ _
%M1Q _
Ql}p _
T8:p _
TH:p _
U p _
Ukrp _
V
2p _
V
Vp _
V8tp _
V:=p _
V=p _
V=p _
VJ6p _
VN8p _
V[Tp X<P ' Z7Q x ,}P -9Q H0Q lYQ <Q =Q @ =Q =8Q a VqEH
IFDEF VQA,<
IFL <A-CWA>,<PRINTX VALUE OWhF A IS TOO SMALLX>
IFG <A-D>,X(<PRINTX VALUE OF XHA IS TOO LARGE>
> ;END IFDEF YA
IFNDEF A,<A ==B>
F A,<Aa3$J;P a3%]6P aNkp aNJ6p aNh6p aNxUp aN
2p aN:=p aN5kzP 'aNd=9Q x aNeX<P 'aSJ;P aS]6P ctzP @ 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 x cv<P @cvZWP 'cF:=p cOtkP '~ cOu[P " cOu P $ cOuh6Q x c v : Kt ;MACRO T:)O GENERATE THE QU:IEUE HEADERS FROM :hTHE QUEUES MACRO
DEFINE X(A,B,C,;)D,E,F),< ;DEFINE ;HX FOR THE LATER E;hXPANSION OF QUEUE<S
HDR'A:: INSVL.<((<SIXBIT\ A\>,Q<HH.NAM)!INSVL.(C,Q<hH.TYP)!D
EXP 0
IFDIF <E> <0> ,=(<GLOB(E)>
XWD E=H,INSVL.(B,QH.SIZ)=h
EXP F
EXP 0
> ;END OF DEFI>(NE X
QUEUES ;>HNOW EXPAND QUEUES
EXPAND QUEUEScV.Y9 /IKD
XLISTkI
X INP,QNTSIZ|,.QHTIP,0,S$INPT,/(LIQBAT
X LPT,QN/ TSIZ,.QHTOU,0,S$Lk)PT,LIQLPT
X PTP/i,QNTSIZ,.QHTOU,0,0S$PTP,LIQPTP
X 0(CDP,QNTSIZ,.QHTOU0H,0,S$CDP,LIQCDP
0h X PLT,QNTSIZ,.QH1TOU,0,S$PLT,LIQPL1(T
X RET,QNTSIZ,1H.QHTAR,QH.INV,S$R1hET,LIQRET
X NOT2,QNTSIZ,.QHTAR,QH2(.INV,S$NOT,0
X 2HBIN,QNTSIZ,.QHTIP2h,QH.INV,S$BIN,0
3 X XFR,QNTSIZ,.QH3(TOU,QH.INV,S$XFR,3H0
X DBM,QNTSIZ,3h.QHTOU,QH.INV,S$D4BM,0
X RDR,QNTS4(IZ,.QHFRR,0,S$RDR4H,0
X IPC,IPCSIZ4h,.QHTQS,QH.IPC!QH5.INV,0,0
X IPS,5(IPCSIZ,.QHTQS,QH.5HIPC!QH.INV,0,0
5hX SPL,SPLSIZ,.QHT6QS,QH.INV,0,0
X6( PSB,PSBSIZ,.QHTQ6HS,QH.INV,0,0
X 6hOBJ,OBJSIZ,.QHTQS7,QH.INV,0,0
X U7(SE,USESIZ,.QHTQS,7HQH.INV,0,0
X ST7hR,STRSIZ,.QHTQS,Q8H.INV,0,0
X NET8(,NETSIZ,.QHTQS,QH8H.INV,0,0
LIST
,0
LISTeYj:p eYkWp eYl}p eYm p eYm7p e:=p e.:=P eahUp eahVp eaiRp eaj:p eal}p e iVp e j7p e j:p e l}p e0tKQ @ e0u+qP 'e0v<Q e<t Q x e<v
Q @ e<v[TP 'e>:=p eDuWQ @ eDv+Q eO)hrp eO)hwp eO)ip eO)kWp eO)l}p eO)m p eO)m7p gDI3P gDjQP gEKUP gE[rP gF*TP gF8tP g$tkQ @ g$u P 'g@t(:Q @ g@tIYQ g@u+qP 'g@uKqP 'g@ujQ x g@v:=P 'gBah[p gBai3p gBaiTp gBaiVp gBajp gBajQp gBalp gBal}p gBdZp gBdlVp gBe+qp gBeXQP gBekzp gBez2p gBf
TP gBf+qp gBf,=p gBf:=p gBf=Q DSK: gBfH8Q gCLLP 'gCM+qQ x gCMI7P 'gPuySP gPu{@P gPv
TP gPv91P gRM9 biFT
XLIST
c X <Invalid>,%INc(VLD,100
X <IdlcHe>,%IDLE,0
X <chActive>,%ACTIV,0
X <Stopped>,%Sd(TOPD,0
X <Not dHStarted>,%NSTRT,0dh
X <Not Availaeble>,%NAVAL,0
e(X <No Ptys>,%NPTYeHS,.OTBAT
X <Ofehfline>,%OFLNE,<.OfTLPT,.OTPTP,.OTCDf(P,.OTPLT,.OTRDR>
X <System Fullfh>,%SFULL,.OTBAT
g X <Shutting Dowg(n>,%SHTDN,0
X gH<Aborting>,%CNCLGgh,0
X <Opr Resph Wait>,%OREWT,0
h( X <Aligning ForhHms>,%ALIGN,.OTLPThh
X <>,%RESET,0i
X <Reading>,%i(READN,.OTRDR
XiH <Requeing>,%REQUihE,0
X <Shuttinjg Down>,%SHUTD,0
X <Opr Output jHWait>,%OPRWT,.OTL PT
LIST
OTLgR}J6 vYGM
IFNDEF vyL.C,<PRINTX Undewfined limit paramw8eter C>
..Z==wXB
..O==<L.C&77wx7777000000>_-^D18x
..Z==..Z+..O
x8 ..S==<L.C&77700xX0>_-^D9
..P==<Lxx.C&777>
..P==^yD35-..P
..Z==..y8Z+<..S>B11+<..P>ByX5
DPB A,[EXP . .Z]
A,[EXP .gSh6p gS:=p gS=p gS {VQ gS :=P gS <{Q @ gS)hrp gS)lQp gS)l}p gV6:Q @ gWhwp gWiVp gWkWp gWlzp gWl}p gWm p gWm7p gg
V }8/q
IFNB <}YB>,<TOPS10<A==B}x>>
IFNB <C>,<T~OPS20<A==C>>
PS20<A==C>>
i&m{PP i4,.8Q i4-i;Q i4-m6Q i4-|{Q i4.8yQ @ i4.i\Q i4.y7Q i?4( /y IFN FTUUOS ,B ;DEFINE UNi?4H X/} IFN FTJSYS , INTERN AEDT k
rHQ k
r$Q k
rU+Q k
rdJQ k
sQ k
t PQ k
t YQ @ k
tMZQ k
u=Q ` k
uyVQ k
vLUQ k
vl{Q k
v{Q kI7p kN.:=P m0t;ZQ x m0tI7Q @ m0uHZQ < m0uySP 'm0v8yQ m0v:Q m0v=Q p m>eI7p mLt;ZQ x mLtI7P 'mLuHZQ mLuMVP mLui;Q mLum6Q mLuySP '~ mLu|Q mLvK8Q mLvLUQ x mLvN8Q p mLvi\Q mLvl{Q @ mLv{Q mNeI7p
mNuI7P oPu[yQ p yyFV
ER$A==ji..XX
..XX=..XX+ 1
RN $$A
$$q@
A==:B
A==:BqcG P P &<P
NsP NtP NzP N<P lWP l87P
l:P lI3P m:6P mLzP m[rP mnP n)6P n)8P uH8P u}`P
IFNDEF |A$$A,<
PRINTX |`UNDEFINED COUNTER} A USED
>
AO} S G$ITEM##+$$A
G$ITEM##+$$A
'$[ !H\
XLIST
A X (NOW,CURRENT T`IME OF DAY)
X ( STAR,QUASAR START TIME)
X (QJOB, @QUASARS JOB NUMBE `R)
X (IPCI,TOTA L NUMBER OF IPCF INTERRUPTS RECEIV@ED)
X (RIPC,IPC`F MESSAGES RECEIV ED)
X (SIPC,IPC F MESSAGES SENT)
X (IPCF,IPCF SE`ND FAILURES)
X (IPCU,UNRECOVERAB LE IPCF SEND FAIL@URES)
X (MREL,R`ELEASE MESSAGES R ECEIVED)
X (MCH K,CHECKPOINT MESS@AGES RECEIVED)
`X (MREQ,REQUEUE M ESSAGES RECEIVED)
X (MNXT,NEXTJO@B MESSAGES SENT)
X (MABO,ABORT M ESSAGES SENT)
X (MLST,LIST MESSA@GES RECEIVED)
X` (NLAP,LISTANSWER PAGES SENT)
X (SCRE,SUCCESSFUL @CREATES DONE)
X` (MMOD,MODIFY MES SAGES RECEIVED)
X (MKIL,KILL MES@SAGES RECEIVED)
` X (MDEF,DEFER ME SSAGES RECEIVED)
X (ISPL,IMMEDIA @TE SPOOL MESSAGES ` RECEIVED)
X (D
SPL,DEFFERED SPOO
L MESSAGES RECEIV
@ED)
X (MCAN,COU
`NTANSWER MESSAGES SENT)
X (SLCD, SCHEDULER LOOP CO @UNTDOWNS)
LIST
SALL
LIST }aGv
IFNDEF ~$$B,<
PRINTX ~ UNDEFINED COUNTER~@ B USED
>
ST~`ORE A,G$ITEM##+$ $B
G$ITEM##+$
v yP J;P ewP
RP 9P vP t;P N:`P [ ] P ^ $ P 8 8QP 8TP :6P H9P H9P KqP LzP 9P TP
6P H9P HTP J1P J6P TP h6P :~JQP :~K6P :~M P ;N9P ; LZP >5KRP >uJ7Q ?-zP ?]zP BGvP J(:P JI6P J,P J. 2P J.9:P K YP K [PP K [QP K [uP N6[P NFIP NF]P O$1P O$P O$7P O$ zP O%X<P O%|P R P W 9P Z}HVP Z}LqP ;G P \ zP S@P 5:6P 6)6P L)p L)p \zP &=P
zp
Zp
:p
;wp
I2p *2P +qp 98P :9p <p <p d(P fP h4P h9P hwP iWP j6P lHp lIp lpP lzp Sp I7p X<P (rp X5P 2P 3 2P 3 \yP 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 6nXrp z 6n[9p z 6n[<p y 6n[Wp { 6v)P 6v)1P 6v+VP 6v- P 6v9P 6vLzP 6vMP 6|H1P 6|K4P 6|LP 7zp 7kp
7+qp 7Ksp
7h6p 7
2p 7)8p 7*2p 7\yp 7lvp 7% P 7&
2P 7&=P 7&N8P 7&kvP >)qp >;yP >kP >
TP ><wP >=P >H8P >J6P >5H3p >5I0Q x >DLYp >|kP >|lVP >}J6P >~
TP >~H8P ?WP ?\P ?*7Q x F zP F ZP F )wP F +P
F 9P F j6P F lVP F (WP
F kzP
F mP F yP F z2P F
TP F 2P
F )9P F [TP F [ZP F,;wp F,<Rp F,I2p F,J7p F- p F- p F-(Qp F-(Wp F-+qP F-J6p F-KUp F-j2p F-xUp F-z2P F-}wp
F.
Zp F.*2P F.+qp F.98P F.=p
FDZp FDlYP FEJ9p FEKUp FF3p FFH9P FFJ8P FFK2P FFKzP FFL9P FFN8p FLkQP $ FN):P " F|WP F|87P F|:P F|;zP F|<2P F|<RP F|IYP F}WP
F} 6P F}:6P F}H7P F}J9P F}X9P F}X:P F}[PP F}[ZP
F}[rP F}]P F}]P 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$)9p J$*Qp J$*Vp J$+{p J$,Xp J|(:p J|+Rp J|- p J|-0p NlP Nmh6P R$I;p R$MZp R% p R%(Wp RlI7P RlK<P RlLKP RlLLP RlL[P RmTP RmKVP RmM P Rn+5P Rn9:P Rn=P RnkvP RnlP V (wp V +Vp V ,zp V -Vp V -Yp Zdkp Zeh6p Ze}wp ZfXqp Zflvp [ p [ =Vp [ kp [ KVp [ Yp [ )6p [ Xqp [ kvp
[ lwp >}{woP