Trailing-Edge
-
PDP-10 Archives
-
BB-4157F-BM_1983
-
fortran/tools/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 A@/
RADIX 5A+5
IF1,<IFDEF L.A,<PRINTX Mult. a defined limit pa!rameter A>>
IF1L <36-C>,<PRINTXP Illegal C for lpimit A>
IFL <35-D>,<PRINTX Ill0egal position forP limit A>
IFLEp <EQLMSZ-B>,<PRINTX Illegal B fo0r limit A>
L.PA==<BYTE (18) B p(9) C,D>
RADI X 4+4
>
RADII6 2 MaDr
X BAT
N X LPT
X CDP
N X 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 #yB# ASCIZ \DSK$:PRIVATE-MASTER-Q$8UEUE-FILE.QUASAR\ UE-FILE.QUASAR\I? : !9B
IFN <%% y.MOD-<SIXBIT /QUA YSAR/>>,<EXTERN G$!SCHD>
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 %D
XLIST
%9
X BMG,<Bad MOD$xIFY Group>,MF.FAT%a
X ICM,<Illegal& CREATE Message>,& MF.FAT
X IFS,<I&@llegal File Speci&`fication>,MF.FAT
X ILM,<Illegal ' LIST Message>,MF.'@FAT
X IFD,<Ille'`gally Formatted D( evice Name>,MF.FA( T
X IMT,<Illega(@l Message Type>,M(`F.FAT
X INF,<Il) legal Number of F) iles>,MF.FAT
X )@IPE,<Insufficient)` Privileges Enabl* ed>,MF.FAT
X MT* L,<Message Too Lo*@ng>,MF.FAT
X MT*`S,<Message is Too+ Short>,MF.FAT
+ X NKC,<Not a Know+@n Component>,MF.F+`AT
X NOR,<Numbe, r Out of Range>,M, F.FAT
X NYO,<No,@t Your Object>,MF,`.FAT
X SNY,<Spe- cified request is- Not Yours>,MF.FA-@T
X UQS,<Unknow-`n Queue Specified. >,MF.FAT
X UOS,. <Unknown Object S.@pecified>,MF.FAT
X WVN,<Wrong Ve/ rsion Number>,MF./ FAT
X IAS,<Inva/@lid Account Strin/`g Specified>,MF.F0 AT
X OHR,<Opera0 tor Has Restricte0@d Queue Entry Com0`mands>,MF.FAT
X1 IMM,<Illegal MOU1 NT Message>,MF.FA1@T
X MPN,<MOUNT 1`Request Processor2 Not Running>,MF.2 FAT
X CDU,<Can'2@t Default User Na2`me>,MF.FAT
X CD3 D,<Can't Default 3 Connected Directo3@ry>,MF.FAT
X NV3`M,<No Volume Moun4 ted On Drive>,MF.4 FAT
X VAU,<Volu4@me is Already in 4`Use>,MF.FAT
X D5 AU,<Drive is Alre5 ady in Use>,MF.FA5@T
X VIL,<Volume5` on Drive is Labe6 led>,MF.FAT
X U6 RB,<User Requeste6@d Bypass Label Vo6`lumes>,MF.FAT
X7 URL,<User Reques7 ted Labeled Volum7@es>,MF.FAT
X UR7`W,<User Requested8 Write-Locked Vol8 umes>,MF.FAT
X 8@URE,<User Request8`ed Write-Enabled 9 Volumes>,MF.FAT
9 X RDD,<Requested9@ Density Does not9` Match Volume Den: sity>,MF.FAT
X : VND,<Requested Vo:@lume not on this :`Device>,MF.FAT
; X IUD,<Illegal Fo; r UNAVAILABLE Dev;@ice>,MF.FAT
X N;`SD,<No Such Devic< e>,MF.FAT
X RLD< ,<Request Label T<@ype Doesn't Match<` Volume Label Typ= e>,MF.FAT
X DAD= ,<Drive is alread=@y available>,MF.F=`AT
X CDA,<Can't> Delete an Alloca> ted request>,MF.F>@AT
X CNI,<Comma>`nd Not Yet Implem? ented>,MF.FAT
X? IMO,<Invalid Mes?@sage from ORION>,?`MF.FAT
X PRB,<P@ rivileges Require@ d for Bypass Labe@@l Processing>,MF.@`FAT
X NVI,<VOLIA D Required for ThA is Volume>,MF.FATA@
X CIU,<Cannot A`IDENTIFY the UserB s Current Volume>B ,MF.FAT
X ICD,<B@Illegal ConnectedB` Directory SpecifC 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 @W
IFNDEF qL.C,<PRINTX UndeQfined limit param1eter C>
..Z==qB
..O==<L.C&77 7777000000>_-^D18 0
..Z==..Z+..O
P ..S==<L.C&77700 p0>_-^D9
..P==<L
.C&777>
..P==^
0D35-..P
..Z==..
PZ+<..S>B11+<..P>B
p5
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 o?.
X BAT,InaNP,<<1,,77>,<0,,^nAD3600>,0,<INPOIP,n!,0>,<1,,^D512>>
p X LPT,LPT,<<1,,7p(7>,<1,,^D500>,<FRpHMNOR>,<FLEACT,,0>ph,0>
X PTP,PTP,<q<1,,77>,<1,,^D500q(>,<FRMNOR>,<FLEACqHT,,0>,0>
X CDP,qhCDP,<<1,,77>,<1,,r^D500>,<FRMNOR>,<r(FLEACT,,0>,0>
XrH PLT,PLT,<<1,,77>rh,<1,,^D500>,<FRMNsOR>,<FLEACT,,0>,0s(>
X RDR,RDR,<0,sH0,0,0,0>
X BIN,shBIN,<0,0,0,0,0>
t X DBM,DBM,<0,0,0t(,0,0>
TOPS2tH0 <
X XFR,XFR,<th0,0,0,0,0>
X REuT,RET,<0,0,0,0,0>u(
X NOT,NOT,<0,0uH,0,0,0>
uh > ;END TOPS20
;END TOPS20
[ 3@ , *b <<<1_<A>> -1>B<B>>_<A>>[@ - *v
IFB <B-@>,<MAXSIZ==0
I-`RP A,<IFG <A-MA. XSIZ>,<MAXSIZ==A. >>>
IFNB <B>,<.@B==0
IRP A,<.`IFG <A-B>,<B== A>>>
B>,<B==[F:=P [I7p
[4ukzQ [4vx:Q @ [>!iSp [>!irp [>!iwp [>!kzp [>!lXp [>!l}p [>${P '[>$|Q x [F5h6 "yB ASCIZ\DSK:#9<SPOOL>PRIMARY-MA#STER-QUEUE-FILE.Q UASAR\UE-FILE.Q[Ht;ZQ x [HukzQ [Hv*2P '[Hvx:Q @ [NF:=p [c.
TP
] E0,- IF2,<IFDEFEP 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 kI>n
IFDEF k)A,<
IFL <A-Cl>,<PRINTX VALUE Ol@F A IS TOO SMALLl`>
IFG <A-D>,m <PRINTX VALUE OF m A IS TOO LARGE>
> ;END IFDEF m`A
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 NaE ;MACRO TOO GENERATE THE QUO!EUE HEADERS FROM O@THE QUEUES MACRO
DEFINE X(A,B,C,PD,E,F),< ;DEFINE P X FOR THE LATER EP@XPANSION OF QUEUEP`S
HDR'A:: INSVL.Q (<SIXBIT\ A\>,QQ H.NAM)!INSVL.(C,Q[email protected])!D
EXP 0
IFDIF <E> <0> ,R <GLOB(E)>
XWD ER ,INSVL.(B,QH.SIZ)R@
EXP F
EXP 0
> ;END OF DEFIS NE X
QUEUES ;S NOW EXPAND QUEUES
EXPAND QUEUEScV.Y9 D!Dj
XLIST !
X INP,QNTSIZY,.QHTIP,0,S$INPT,D LIQBAT
X LPT,QNCaTSIZ,.QHTOU,0,S$L PT,LIQLPT
X PTPDA,QNTSIZ,.QHTOU,0,D`S$PTP,LIQPTP
X E CDP,QNTSIZ,.QHTOUE ,0,S$CDP,LIQCDP
E@ X PLT,QNTSIZ,.QHE`TOU,0,S$PLT,LIQPLF T
X RET,QNTSIZ,F .QHTAR,QH.INV,S$RF@ET,LIQRET
X NOTF`,QNTSIZ,.QHTAR,QHG .INV,S$NOT,0
X G BIN,QNTSIZ,.QHTIPG@,QH.INV,S$BIN,0
G` X XFR,QNTSIZ,.QHH TOU,QH.INV,S$XFR,H 0
X DBM,QNTSIZ,[email protected],QH.INV,S$DH`BM,0
X RDR,QNTSI IZ,.QHFRR,0,S$RDRI ,0
X IPC,IPCSIZI@,.QHTQS,QH.IPC!QHI`.INV,0,0
X IPS,J IPCSIZ,.QHTQS,QH.J IPC!QH.INV,0,0
J@X SPL,SPLSIZ,.QHTJ`QS,QH.INV,0,0
XK PSB,PSBSIZ,.QHTQK S,QH.INV,0,0
X K@OBJ,OBJSIZ,.QHTQSK`,QH.INV,0,0
X UL SE,USESIZ,.QHTQS,L QH.INV,0,0
X STL@R,STRSIZ,.QHTQS,QL`H.INV,0,0
X NETM ,NETSIZ,.QHTQS,QHM .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 wA?z
XLIST
wa X <Invalid>,%INx VLD,100
X <Idlx e>,%IDLE,0
X <x@Active>,%ACTIV,0
X <Stopped>,%Sy TOPD,0
X <Not y Started>,%NSTRT,0y@
X <Not Availay`ble>,%NAVAL,0
z X <No Ptys>,%NPTYz S,.OTBAT
X <Ofz@fline>,%OFLNE,<.Oz`TLPT,.OTPTP,.OTCD{ P,.OTPLT,.OTRDR>
X <System Full{@>,%SFULL,.OTBAT
{` X <Shutting Dow| n>,%SHTDN,0
X | <Aborting>,%CNCLG|@,0
X <Opr Resp|` Wait>,%OREWT,0
} X <Aligning For} ms>,%ALIGN,.OTLPT}@
X <>,%RESET,0}`
X <Reading>,%~ READN,.OTRDR
X~ <Requeing>,%REQU~@E,0
X <Shuttin~`g Down>,%SHUTD,0
X <Opr Output Wait>,%OPRWT,.OTL PT
LIST
OTLgR}J6 1@s
IFNDEF QL.C,<PRINTX Unde pfined limit param
eter C>
..Z==
0B
..O==<L.C&77
P7777000000>_-^D18
p
..Z==..Z+..O
..S==<L.C&77700
..P==<L
..P==^
..Z==..Z+<..S>B11+<..P>B05
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 {h/d
IFNB <|B>,<TOPS10<A==B|(>>
IFNB <C>,<T|HOPS20<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( }H/l IFN FTUUOS ,B ;DEFINE UNi?4H ~/p 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 Q?|
ER$A==A..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,<
PRINTX 8UNDEFINED COUNTERX A USED
>
AOxS G$ITEM##+$$A
G$ITEM##+$$A
'$[ yB
XLIST
X (NOW,CURRENT T8IME OF DAY)
X (XSTAR,QUASAR STARTx TIME)
X (QJOB,QUASARS JOB NUMBE8R)
X (IPCI,TOTAXL NUMBER OF IPCF xINTERRUPTS RECEIVED)
X (RIPC,IPC8F MESSAGES RECEIVXED)
X (SIPC,IPCxF MESSAGES SENT)
X (IPCF,IPCF SE8ND FAILURES)
X X(IPCU,UNRECOVERABxLE IPCF SEND FAILURES)
X (MREL,R8ELEASE MESSAGES RXECEIVED)
X (MCHxK,CHECKPOINT MESSAGES RECEIVED)
8X (MREQ,REQUEUE MXESSAGES RECEIVED)x
X (MNXT,NEXTJOB MESSAGES SENT)
X (MABO,ABORT MXESSAGES SENT)
Xx (MLST,LIST MESSAGES RECEIVED)
X8 (NLAP,LISTANSWERX PAGES SENT)
X x(SCRE,SUCCESSFUL CREATES DONE)
X 8 (MMOD,MODIFY MES XSAGES RECEIVED)
x X (MKIL,KILL MES SAGES RECEIVED)
8 X (MDEF,DEFER ME XSSAGES RECEIVED)
X (ISPL,IMMEDIA TE SPOOL MESSAGES 8 RECEIVED)
X (D XSPL,DEFFERED SPOO xL MESSAGES RECEIV ED)
X (MCAN,COU 8NTANSWER MESSAGES X SENT)
X (SLCD, xSCHEDULER LOOP CO UNTDOWNS)
LIST
SALL
LIST 9A
IFNDEF Y$$B,<
PRINTX xUNDEFINED COUNTER B USED
>
ST8ORE 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