Trailing-Edge
-
PDP-10 Archives
-
decuslib10-05
-
43,50337/09/simmc1.unv
There are 3 other files named simmc1.unv in the archive. Click here to see a list.
x t@ P GVu @ @> ;
IFDEF `.DIRECTIVE,<.DIRE CTIVE .NOBIN>
U NIVERSAL A D@ECsystem-10/20 SI`MULA COMPILER %4A (310) ILER %4AI Ux
$$DEF==0V
IFE <^DC-^D36>V8,<DEFINE A(XB,O)VX=
<$%W==B
IFNBVx <O>,<$%W==B+<O>W
>
IFE <$$USE-3W8>,<LI $$$VAL
$$UWXSE==1>
$F $%W(XBWx)>
$$DEF==1>
IFXE <^DC-^D18>,<IFX8E <^DD-^D17>,
<XX;
DEFINE A(XB,OXx)=<
$%W==B
IFNYB <O>,<$%W==B+<OY8>>
IFE <$$USE-3>YX,<LI $$$VAL
$$USYxE==1>
IFE $$USE,Z<$F $%W(XB)>
IFEZ8 <$$USE-1>,<$L $%ZXW(XB)>
IFE <$$USZxE-2>,<PRINTX OPD-[OPR NESTING ERROR[8>
$$USE==2>
$$D[XEF==1>
IFE <^DD[x-^D35>,
<DEFINE \A(XB,O)=<
$%W==\8B
IFNB <O>,<$%W\X==B+<O>>
IFE <$\x$USE-3>,<LI $$$VA]L
$$USE==1>
IFE]8 $$USE,<$F $%W(XB]X)>
IFE <$$USE-1>]x,<$R $%W(XB)>
IF^E <$$USE-2>,<PRIN^8TX OPD-OPR NESTIN^XG ERROR>
$$USE==^x2>
$$DEF==1>
>
IFE $$DEF,<
DEF_8INE A(XB,O)=<
$_X%W==B
IFNB <O>,_x<$%W==B+<O>>
IF`E <$$USE-3>,<LI $`8$$VAL
$$USE==1>
IFE $$USE,<$F $%`xW(XB)>
IFE <$$USaE-1>,<$B [$A O(Xa8B)]-$$RELO($$BAS)aX>
IFE <$$USE-2>,ax<PRINTX INVALID UbSE OF FIELD>
$$Ub8SE==2>
$$DEF==1>bX
OPDEF $A [POINbxT C,B,D]
$A=c=$A
%A==^DD
c8IFE <^DC-1>,<DSW (A,B,D)>
I7IH T)%2
IFE <%OPTH%-1>,<%OP1 10>
IThFE %OP%,<%OP1 777U767>
IFE <%OP%-2U(>,<$$E(<ILL SWITCUHH NAME>)>
IFGE <Uh%OP%-3>,<%OP1 X1MVASK,10>
IFL <%OPV(%-2>,<%OP3 0(X1MA SK)>
%OP%==2 I7h QY%
IFE <%OPQx%-1>,<%OP1 4>
IFRE %OP%,<%OP1 7777R873>
IFE <%OP%-2>RX,<$$E(<ILL SWITCHRx NAME>)>
IFGE <%SOP%-3>,<%OP1 X1MAS8SK,4>
IFL <%OP%-SX2>,<%OP3 0(X1MASK )>
%OP%==2 IH cx!
A%S==Bd
A%V==D
DEFIN E A%F=<C>
IO8 xi
IFL <^x0D36-^DC>,<$$E(<TxPOO BIG BIT NO>)>
IFE ^D36-^DC,<
IFB <D>,<DEFINy0E A(ACC)=<
IFEyP <%OP%-2>,<$$E(<IypLL SWITCH NAME>)>z
IFN <%OP%-2>,<z0
IFE <%OP%-3>,zP<%OP3 777777>
zpIFE <%OP%-4>,<%OP{3>
{IFL <%OP%-2{0>,<%OP4 B(ACC)>
%OP%==2>>>
{pIFNB <D>,<DEFINE| A=<
IFE <%OP%|0-2>,<$$E(<ILL SWI|PTCH NAME>)>
IFN|p <%OP%-2>,<
IF}E <%OP%-3>,<%OP3 }0D,777777>
IFE}P <%OP%-4>,<%OP3 }pD,>
~IFL <%OP%-~2>,<%OP4 B(D)>
%OP%==2>>~P>>
IFGE ^D35-^D~pC,<
VA==1BC
IFE ^DC,<
CA=0=377777777777>
IPFN ^DC,<
CA==p-1*VA-1>
IFGE ^ D17-^DC,<
CA= 0=CA_-^D18
VA= P=VA_-^D18>
DE pFINE $$TES1(X,Y,Z)<
IFGE ^D17-^0DC,<
IFB <Z>,<DPEFINE A(ACC)<
IpFE <%OP%-1>,<%OP1 Y>
IFE %OP%,<%O0P1 X>
IFE <%OP%-P2>,<$$E(<ILL SWITpCH NAME>)>
IFGE <%OP%-3>,<IFB <AC0C>,<%OP1 Y>
IFNPB <ACC>,<%OP1 ACCp,Y>>
IFL<%OP%-2>,<%OP3 B(ACC)>
0%OP%==2>>
IFNB <PZ>,<DEFINE A=<
pIFE <%OP%-1>,<%OP1 Y>
IFE %OP%,<%0OP1 X>
IFE <%OP%P-2>,<$$E(<ILL SWIpTCH NAME>)>
IFGE <%OP%-3>,<%OP1 Z0,Y>
IFL <%OP%-2>P,<%OP3 B(Z)>
%OpP%==2>>>
IFL ^D17-^DC,<
IFB <0D>,<DEFINE A(ACPC)<
IFE %OP%-1,<p%OP2 Y>
IFE %OP%,<%OP2 X>
IFE <%0OP%-2>,<$$E(<ILL PSWITCH NAME>)>
IpFGE <%OP%-3>,<IFB <ACC>,<%OP2 Y>
0 IFNB <ACC>,<%OP2 P ACC,Y>>
IFL <%O pP%-2>,<%OP3 B(AC
C)>
%OP%==2>>
I
0FNB <D>,<DEFINE
PA=<
IFE <%OP%-1
p>,<%OP2 Y>
IFE % OP%,<%OP2 X>
IFE 0 <%OP%-2>,<$$E(<I PLL SWITCH NAME>)> p
IFGE <%OP%-3>,<
%OP2 Z,Y>
IFL <%
0OP%-2>,<%OP3 B(Z
P)>
%OP%==2>>
>
p
>
$$TES1(\CA,
PURGE VA,CA
>
J @ @O$^ iI P
SOSGE YihBHEXT+2
XEC O1Ej XT
ILDB A,YBHE XT+1
FINE PUTaW$IH ky c
SOSGE lYBHDF1+2
XEC Ol81DF1
IDPB A,Y BHDF1+1
Q !vaW$j6 gi H
IRP A,<h EXTERN YBHA
Dh(EFINE PUTA(REG)<hH
SOSGE YBHA+2hh
XEC O1A
IiDPB REG,YBHA+1
>
>
y< !GaW%h n u
SOSGE n8YBHIC1+2
XEC OnX1IC1
IDPB A,Y BHIC1+1
P aW%Lh qI
SOSGE qhYBHLS1+2
XEC Or1LS1
IDPB A,Y BHLS1+1
P aW&)6 m l
SOSGE m(YBHREL+2
XEC OmH1REL
IDPB A,Y BHREL+1
P aW'
S o) ~
SOSGE oHYBHXRF+2
XEC Ooh1XRF
IDPB A,Y BHXRF+1
P aW',r p9
SOSGE pXYBHZSE+2
XEC Opx1ZSE
IDPB A,Y BHZSE+1
P bDt\YP bDvI9P PbDvx9P bF&R@ ?bF&Z@ [bF&[@ bFJR@ bFJZ@ PbFJ[@ bFd3R@ bFd3Z@ ZbFd3[@
bFf3R@ bFf3Z@ ZbFf3[@
bG CR@ 7bG CZ@ [bG C[@ bG R@ $bG Z@ ZbG [@ bG #R@ $bG #Z@ ZbG #[@ bG"R@ @bG"Z@ ^bG"[@ cGU@@ cGU @ cGV @ cOX @ cOX`@
cOY @ cOY`@ cO\ @
cO\`@ cO] @
cO]`@
cjD P cjDP P ckP P ed 6 6=v u(ef=1 8 Li7 !|h @ ^iJ. YI%\
IFE <%OPYh%-1>,<%OP1 40>
IZFE %OP%,<%OP1 777Z(737>
IFE <%OP%-2ZH>,<$$E(<ILL SWITCZhH NAME>)>
IFGE <[%OP%-3>,<%OP1 X1M[(ASK,40>
IFL <%OP[H%-2>,<%OP3 0(X1MA SK)>
%OP%==2 iJL0 O %
IFE <%OPO(%-1>,<%OP1 2>
IFOHE %OP%,<%OP1 7777Oh75>
IFE <%OP%-2>P,<$$E(<ILL SWITCHP( NAME>)>
IFGE <%PHOP%-3>,<%OP1 X1MAPhSK,2>
IFL <%OP%-Q2>,<%OP3 0(X1MASK )>
%OP%==2 iJf0 Vy%G
IFE <%OPW%-1>,<%OP1 20>
IW8FE %OP%,<%OP1 777WX757>
IFE <%OP%-2Wx>,<$$E(<ILL SWITCXH NAME>)>
IFGE <X8%OP%-3>,<%OP1 X1MXXASK,20>
IFL <%OPXx%-2>,<%OP3 0(X1MA SK)>
%OP%==2 iK @ \%q
IFE <%OP\8%-1>,<%OP1 100>
\XIFE %OP%,<%OP1 77\x7677>
IFE <%OP%-]2>,<$$E(<ILL SWIT]8CH NAME>)>
IFGE ]X<%OP%-3>,<%OP1 X1]xMASK,100>
IFL <%^OP%-2>,<%OP3 0(X1 MASK)>
%OP%==2iK L9$s
IFE <%OPLX%-1>,<%OP1 1>
IFLxE %OP%,<%OP1 7777M76>
IFE <%OP%-2>M8,<$$E(<ILL SWITCHMX NAME>)>
IFGE <%MxOP%-3>,<%OP1 X1MANSK,1>
IFL <%OP%-N82>,<%OP3 0(X1MASK )>
%OP%==2 n @ pF @ pF \@@ pFLDG@ pFLD@@ pFd, @ @ pFd^ @ ` pFl u@ q pFwqj6@ q@@ q}:@ q3 N@ s
DIHA s
DIHs
EhA s
Ehs
ELhA s
ELhs
F)6A s
F)6s
G
SA s
G
Ss
G,rA s
G,rs }@
IFE <%OP%-1>,<%OP2 40>
I8FE %OP%,<%OP2 777X777777737>
IFE <x%OP%-2>,<$$E(<ILL SWITCH NAME>)>
8IFGE <%OP%-3>,<%OXP2 X1MASK,40>
IFxL <%OP%-2>,<%OP3 0(X1MASK)>
%OP%= =2 sh` Y '
IFE <%OPx%-1>,<%OP2 2>
IFE %OP%,<%OP2 7777877777775>
IFE <%XOP%-2>,<$$E(<ILL xSWITCH NAME>)>
IFGE <%OP%-3>,<%OP82 X1MASK,2>
IFL X<%OP%-2>,<%OP3 0(xX1MASK)>
%OP%==2 sl q
IFE <%OP %-1>,<%OP2 1>
IF 0E %OP%,<%OP2 7777 P77777776>
IFE <% pOP%-2>,<$$E(<ILL SWITCH NAME>)>
I0FGE <%OP%-3>,<%OPP2 X1MASK,1>
IFL p<%OP%-2>,<%OP3 0(X1MASK)>
%OP%==2 s%
IFE <%OP8%-1>,<%OP2 1000>
IFE %OP%,<%OP2 7x77777776777>
IFE <%OP%-2>,<$$E(<I8LL SWITCH NAME>)>X
IFGE <%OP%-3>,<x%OP2 X1MASK,1000>
IFL <%OP%-2>,<%8OP3 0(X1MASK)>
% OP%==2 s%
IFE <%OP$X%-1>,<%OP2 20000>$x
IFE %OP%,<%OP2 %777777757777>
IF%8E <%OP%-2>,<$$E(<%XILL SWITCH NAME>)%x>
IFGE <%OP%-3>,&<%OP2 X1MASK,2000&80>
IFL <%OP%-2>,&X<%OP3 0(X1MASK)>
%OP%==2 s%
IFE <%OP'@%-1>,<%OP2 40000>'`
IFE %OP%,<%OP2 ( 777777737777>
IF( E <%OP%-2>,<$$E(<(@ILL SWITCH NAME>)(`>
IFGE <%OP%-3>,) <%OP2 X1MASK,4000) 0>
IFL <%OP%-2>,)@<%OP3 0(X1MASK)>
%OP%==2 s%8y !r
IFE <%OP %-1>,<%OP2 2000>
IFE %OP%,<%OP2 7 `77777775777>
IFE <%OP%-2>,<$$E(<I LL SWITCH NAME>)> @
IFGE <%OP%-3>,< `%OP2 X1MASK,2000>
IFL <%OP%-2>,<% OP3 0(X1MASK)>
% OP%==2 s%=s i"
IFE <%OP %-1>,<%OP2 4000>
IFE %OP%,<%OP2 7 H77777773777>
IFE h <%OP%-2>,<$$E(<I LL SWITCH NAME>)> (
IFGE <%OP%-3>,< H%OP2 X1MASK,4000> h
IFL <%OP%-2>,<%!OP3 0(X1MASK)>
% OP%==2 s%=y !Q"
IFE <%OP!p%-1>,<%OP2 10000>"
IFE %OP%,<%OP2 "0777777767777>
IF"PE <%OP%-2>,<$$E(<"pILL SWITCH NAME>)#>
IFGE <%OP%-3>,#0<%OP2 X1MASK,1000#P0>
IFL <%OP%-2>,#p<%OP3 0(X1MASK)>
%OP%==2 s3 ; d9&7
$%W==YLSdXCLS
IFNB <B>,<$dx%W==YLSCLS+<B>>
IFE <$$USE-3>,<Le8I $$$VAL
$$USE==eX1>
IFE $$USE,<$Fex $%W(A)>
IFE <$f$USE-1>,<$R $%W(f8A)>
IFE <$$USE-2fX>,<PRINTX OPD-OPRfx NESTING ERROR>
$$USE==2 s3 ;A s3 ;s3 <r gY&Q
$%W==YLSgxCLS
IFNB <B>,<$h%W==YLSCLS+<B>>
IFE <$$USE-3>,<LhXI $$$VAL
$$USE==hx1>
IFE $$USE,<$Fi $%W(A)>
IFE <$i8$USE-1>,<$L $%W(iXA)>
IFE <$$USE-2ix>,<PRINTX OPD-OPRj NESTING ERROR>
$$USE==2 s3 [R a!
IFE <%OP %-1>,<%OP2 100>
IFE %OP%,<%OP2 77@7777777677>
IFE `<%OP%-2>,<$$E(<IL L SWITCH NAME>)>
IFGE <%OP%-3>,<%@OP2 X1MASK,100>
`IFL <%OP%-2>,<%OP 3 0(X1MASK)>
%OP %==2 s3 [[ 1!E
IFE <%OPP%-1>,<%OP2 400>
pIFE %OP%,<%OP2 777777777377>
IFE 0<%OP%-2>,<$$E(<ILPL SWITCH NAME>)>
IFGE <%OP%-3>,<%OP2 X1MASK,400>
0IFL <%OP%-2>,<%OPP3 0(X1MASK)>
%OP %==2 s3 A >
IFE <%OP`%-1>,<%OP2 4>
IF E %OP%,<%OP2 7777 77777773>
IFE <%@OP%-2>,<$$E(<ILL `SWITCH NAME>)>
I FGE <%OP%-3>,<%OP 2 X1MASK,4>
IFL @<%OP%-2>,<%OP3 0(`X1MASK)>
%OP%==2 s3 K jy&k
$%W==YLSkLLS
IFNB <B>,<$k8%W==YLSLLS+<B>>
IFE <$$USE-3>,<LkxI $$$VAL
$$USE==l1>
IFE $$USE,<$Fl8 $%W(A)>
IFE <$lX$USE-1>,<$R $%W(lxA)>
IFE <$$USE-2m>,<PRINTX OPD-OPRm8 NESTING ERROR>
$$USE==2IH % s3 KA s3 Ks3 Lr n'
$%W==YLSn8LLS
IFNB <B>,<$nX%W==YLSLLS+<B>>
IFE <$$USE-3>,<LoI $$$VAL
$$USE==o81>
IFE $$USE,<$FoX $%W(A)>
IFE <$ox$USE-1>,<$L $%W(pA)>
IFE <$$USE-2p8>,<PRINTX OPD-OPRpX NESTING ERROR>
$$USE==23[@
$%W==YLS^9NLS
IFNB <B>,<$v1%W==YLSNLS+<B>>
IFE <$$USE-3>,<L^yI $$$VAL
$$USE==_1>
IFE $$USE,<$F_8 $%W(A)>
IFE <$_X$USE-1>,<$R $%W(_xA)>
IFE <$$USE-2`>,<PRINTX OPD-OPR`8 NESTING ERROR>
$$USE==2 s3 kA s3 ks3 lr a&
$%W==YLSa8NLS
IFNB <B>,<$aX%W==YLSNLS+<B>>
IFE <$$USE-3>,<LbI $$$VAL
$$USE==b81>
IFE $$USE,<$FbX $%W(A)>
IFE <$bx$USE-1>,<$L $%W(cA)>
IFE <$$USE-2c8>,<PRINTX OPD-OPRcX NESTING ERROR>
$$USE==2 s3 m6 I!.
IFE <%OPh%-1>,<%OP2 200>
IFE %OP%,<%OP2 77(7777777577>
IFE H<%OP%-2>,<$$E(<ILhL SWITCH NAME>)>
IFGE <%OP%-3>,<%(OP2 X1MASK,200>
HIFL <%OP%-2>,<%OPh3 0(X1MASK)>
%OP %==2 s=,{ k
IFE <%OP 0%-1>,<%OP2 20>
I PFE %OP%,<%OP2 777 p777777757>
IFE <
%OP%-2>,<$$E(<ILL
0 SWITCH NAME>)>
PIFGE <%OP%-3>,<%O
pP2 X1MASK,20>
IF<%OP%-2>,<%OP3
%OP%= =2 sO<0 =i$
IFE <%OP>%-1>,<%OP1 20000>>(
IFE %OP%,<%OP1 >H757777>
IFE <%OP>h%-2>,<$$E(<ILL SW?ITCH NAME>)>
IFG?(E <%OP%-3>,<%OP1 ?HX1MASK,20000>
IF?hL <%OP%-2>,<%OP3 @0(X1MASK)>
%OP%= =2 sO<U CI$.
IFE <%OPCh%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7D(73777>
IFE <%OP%DH-2>,<$$E(<ILL SWIDhTCH NAME>)>
IFGEE <%OP%-3>,<%OP1 XE(1MASK,4000>
IFL EH<%OP%-2>,<%OP3 0(EhX1MASK)>
%OP%==2 sO<Xv ,q"y
IFE <%OP-%-1>,<%OP2 200000-0>
IFE %OP%,<%OP2-P 777777577777>
I-pFE <%OP%-2>,<$$E(.<ILL SWITCH NAME>.0)>
IFGE <%OP%-3>.P,<%OP2 X1MASK,200.p000>
IFL <%OP%-2/>,<%OP3 0(X1MASK) >
%OP%==2 sO<Xw :y#i
IFE <%OP;%-1>,<%OP1 40000>;8
IFE %OP%,<%OP1 ;X737777>
IFE <%OP;x%-2>,<$$E(<ILL SW<ITCH NAME>)>
IFG<8E <%OP%-3>,<%OP1 <XX1MASK,40000>
IF<xL <%OP%-2>,<%OP3 =0(X1MASK)>
%OP%= =2" s3 ;A *sO<YW 2)#$
IFE <%OP2H%-1>,<%OP1 4000002h>
IFE %OP%,<%OP13 377777>
IFE <%O3(P%-2>,<$$E(<ILL S3HWITCH NAME>)>
IF3hGE <%OP%-3>,<%OP14 X1MASK,400000>
4(IFL <%OP%-2>,<%OP4H3 0(X1MASK)>
%OP %==2 sO<[ 5#;
IFE <%OP58%-1>,<%OP1 2000005X>
IFE %OP%,<%OP15x 577777>
IFE <%O6P%-2>,<$$E(<ILL S68WITCH NAME>)>
IF6XGE <%OP%-3>,<%OP16x X1MASK,200000>
7IFL <%OP%-2>,<%OP783 0(X1MASK)>
%OP %==2JaW$IH ]sO<[7 8 #R
IFE <%OP8(%-1>,<%OP1 1000008H>
IFE %OP%,<%OP18h 677777>
IFE <%O9P%-2>,<$$E(<ILL S9(WITCH NAME>)>
IF9HGE <%OP%-3>,<%OP19h X1MASK,100000>
:IFL <%OP%-2>,<%OP:(3 0(X1MASK)>
%OP %==2pG $ @ sO<[8 * "b
IFE <%OP*(%-1>,<%OP2 100000*H>
IFE %OP%,<%OP2*h 777777677777>
I+FE <%OP%-2>,<$$E(+(<ILL SWITCH NAME>+H)>
IFGE <%OP%-3>+h,<%OP2 X1MASK,100,000>
IFL <%OP%-2,(>,<%OP3 0(X1MASK) >
%OP%==2 sO<[8 F9$E
IFE <%OPFX%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7G75777>
IFE <%OP%G8-2>,<$$E(<ILL SWIGXTCH NAME>)>
IFGEGx <%OP%-3>,<%OP1 XH1MASK,2000>
IFL H8<%OP%-2>,<%OP3 0(HXX1MASK)>
%OP%==2 sO<\ /Y#
IFE <%OP/x%-1>,<%OP2 4000000>
IFE %OP%,<%OP208 777777377777>
I0XFE <%OP%-2>,<$$E(0x<ILL SWITCH NAME>1)>
IFGE <%OP%-3>18,<%OP2 X1MASK,4001X000>
IFL <%OP%-21x>,<%OP3 0(X1MASK) >
%OP%==2 sk P ) T
IFE <%OPH%-1>,<%OP2 10>
IhFE %OP%,<%OP2 777 777777767>
IFE < (%OP%-2>,<$$E(<ILL H SWITCH NAME>)>
hIFGE <%OP%-3>,<%O
P2 X1MASK,10>
IF
(L <%OP%-2>,<%OP3
H0(X1MASK)>
%OP%= =2 sk T eI , ZSE1+QNRES W-QLOWID(A) vRsk T@ f 0 ZSE2+QNRES W-QLOWID(A) sHsk T` fI 4 ZSE3+QNRES W-QLOWID(A) t[u# z w'K
$%W==6
w8IFNB <B>,<$%W==6wX+<B>>
IFE <$$USwxE-3>,<LI $$$VAL
x$$USE==1>
IFE $$x8USE,<$F $%W(A)>
IFE <$$USE-1>,<$xxR $%W(A)>
IFE <y$$USE-2>,<PRINTX y8OPD-OPR NESTING E RROR>
$$USE==2u# [R t)'4
$%W==0
tHIFNB <B>,<$%W==0th+<B>>
IFE <$$USuE-3>,<LI $$$VAL
u($$USE==1>
IFE $$uHUSE,<$F $%W(A)>
IFE <$$USE-1>,<$vR $%W(A)>
IFE <v($$USE-2>,<PRINTX vHOPD-OPR NESTING E RROR>
$$USE==2u# xV z 'b
$%W==5
z(IFNB <B>,<$%W==5zH+<B>>
IFE <$$USzhE-3>,<LI $$$VAL
{$$USE==1>
IFE $${(USE,<$F $%W(A)>
IFE <$$USE-1>,<${hL $%W(A)>
IFE <|$$USE-2>,<PRINTX |(OPD-OPR NESTING E RROR>
$$USE==2u# )V x1$Z
IFE <%OPI %-1>,<%OP1 400000I(>
IFE %OP%,<%OP1IH 377777>
IFE <%OIhP%-2>,<$$E(<ILL SJWITCH NAME>)>
IFJ(GE <%OP%-3>,<IFB JH<A>,<%OP1 400000Jh>
IFNB <A>,<%OKP1 A,400000>>
IK(FL<%OP%-2>,<%OP3 6(A)>
%OP%==2u# = q9'
$%W==0
qXIFNB <B>,<$%W==0qx+<B>>
IFE <$$USrE-3>,<LI $$$VAL
r8$$USE==1>
IFE $$rXUSE,<$F $%W(A)>
IFE <$$USE-1>,<$sL $%W(A)>
IFE <s8$$USE-2>,<PRINTX sXOPD-OPR NESTING E RROR>
$$USE==2uG-}: @Y$
IFE <%OP@x%-1>,<%OP1 10000>A
IFE %OP%,<%OP1 A8767777>
IFE <%OPAX%-2>,<$$E(<ILL SWAxITCH NAME>)>
IFGBE <%OP%-3>,<%OP1 B8X1MASK,10000>
IFBXL <%OP%-2>,<%OP3 Bx0(X1MASK)>
%OP%= =2 uKY@ T LS QuK\`P uK]@P uK
I; $%W==3
IF><B>,<$%W==3+<
>
IFE3<$$US$$$VAL
$$USE==1>
$F $%W (A) uK
j6 i(V $%W==1
IF
NB <B>,<$%W==1+<
(B>
>
IFE <$$US
HE-3>,<LI $$$VAL
h$$USE==1>
$F$%W (A) uK
IFE <%OP I%-1>,<%OP1 200000 )>
IFE %OP%,<%OP1Y 577777>
IFE <%O9P%-2>,<$$E(<ILL SvWITCH NAME>)>
IFYGE <%OP%-3>,<IFB x<A>,<%OP1 200000>
IFNB <A>,<%O8P1 A,200000>>
IXFL<%OP%-2>,<%OP3 0(A)>
%OP%==2uK
9(c $%W==2
IF XNB <B>,<$%W==2+< xB>
>
IFE <$$US
E-3>,<LI $$$VAL
8$$USE==1>
$F $%W (A) uK<Q |y'{
IFE <%OP}%-1>,<%OP1 400000}8>
IFE %OP%,<%OP1}X 377777>
IFE <%O}xP%-2>,<$$E(<ILL S~WITCH NAME>)>
IF~8GE <%OP%-3>,<IFB ~X<A>,<%OP1 400000~x>
IFNB <A>,<%OP1 A,400000>>
I8FL<%OP%-2>,<%OP3 0(A)>
%OP%==2uK= (/
IFE <%OPi%-1>,<%OP1 100000I>
IFE %OP%,<%OP1y 677777>
IFE <%OYP%-2>,<$$E(<ILL SuqWITCH NAME>)>
IFyGE <%OP%-3>,<IFB <A>,<%OP1 1000008>
IFNB <A>,<%OXP1 A,100000>>
IxFL<%OP%-2>,<%OP3 0(A)>
%OP%==2uK,X (I
$%W==0
iIFNB <B>,<$%W==0+<B>>
IFE <$$USyE-3>,<LI $$$VAL
uQ$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$XR $%W(A)>
IFE <x$$USE-2>,<PRINTX OPD-OPR NESTING E RROR>
$$USE==2uN0Y@ E T=uN0\`P uN0]@P uN6 ` Y)G
$%W==2
xIFNB <B>,<$%W==2+<B>>
IFE <$$US8E-3>,<LI $$$VAL
X$$USE==1>
IFE $$xUSE,<$F $%W(A)>
IFE <$$USE-1>,<$8R $%W(A)>
IFE <X$$USE-2>,<PRINTX xOPD-OPR NESTING E RROR>
$$USE==2uN6
@ i)0
$%W==2
IFNB <B>,<$%W==2(+<B>>
IFE <$$USHE-3>,<LI $$$VAL
h$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$HL $%W(A)>
IFE <h$$USE-2>,<PRINTX OPD-OPR NESTING E RROR>
$$USE==2uN6
) $%W==2
IF8NB <B>,<$%W==2+<XB>
>
IFE <$$USxE-3>,<LI $$$VAL
$$USE==1>
$F $%W (A) uN68w I)
$%W==1
IFhNB <B>,<$%W==1+<B>
>
IFE <$$US(E-3>,<LI $$$VAL
H$$USE==1>
$F $%W (A) uN69R I)T $%W==3
IFhNB <B>,<$%W==3+<B>
>
IFE <$$US(E-3>,<LI $$$VAL
H$$USE==1>
$F $%W (A) uN6= y( $%W==0
IFNB <B>,<$%W==0+<8B>
>
IFE <$$USXE-3>,<LI $$$VAL
x$$USE==1>
$F $%W (A) $Y@P $\h 9 +
IFGE ^D17-^D2 ,<
IFB <vqC>,<DEFINE ZRQSTwD(ACC)<
IFE <%OPw1%-1>,<%OP1 B>
IwQFE %OP%,<%OP1 A>wq
IFE <%OP%-2>,<$Ky$E(<ILL SWITCH NAxME>)>
IFGE <%OP%k -3>,<IFB <ACC>,<%xqOP1 B>
IFNB <AyCC>,<%OP1 ACC,B>y1>
IFL<%OP%-2>,<%yQOP3 0(ACC)>
%OP%yq==2>>
IFNB <C>,z<DEFINE ZRQSTD=<
IFE <%OP%-1>,<%O{P1 B>
IFE %OP%,{1<%OP1 A>
IFE <%{QOP%-2>,<$$E(<ILL {qSWITCH NAME>)>
I|FGE <%OP%-3>,<%OP|11 C,B>
IFL <%O|QP%-2>,<%OP3 0(C)|q>
%OP%==2>>>
}IFL ^D17-^D2 ,<
}1IFB <>,<DEFINE ZR}QQSTD(ACC)<
IFE %}qOP%-1,<%OP2 B>
~IFE %OP%,<%OP2 A~1>
IFE <%OP%-2>,<~Q$$E(<ILL SWITCH NAME>)>
IFGE <%OP~q%-3>,<IFB <ACC>,<1%OP2 B>
IFNB <k)ACC>,<%OP2 ACC,Br1>>
IFL <%OP%-2>,rP<%OP3 0(ACC)>
%OrpP%==2>>
IFNB <>,s<DEFINE ZRQSTD=<
IFE <%OP%-1>,<%OsPP2 B>
IFE %OP%,sp<%OP2 A>
IFE <%tOP%-2>,<$$E(<ILL t0SWITCH NAME>)>
ItPFGE <%OP%-3>,<%OPtp2 C,B>
IFL <%OuP%-2>,<%OP3 0(C)u0>
%OP%==2>>
>
%OP%==2>>
>
ff8vP ` H * s3 ; ff8v ` H * s3 ; ff8yP ` $H * s3 ; ff8y ` $H * s3 ; ff;P ` H + s3 K ff; ` H + s3 K ff;P ` $H + s3 K ff; ` $H + s3 K ff;VP ` H ) s3 k ff;V ` H ) s3 k ff;YP ` $H ) s3 k ff;Y ` $H ) s3 k jF89Q H jF89 H jF97Q H jF97 H jF;qQ $H jF;q $H jF<zQ $H jF<z $H kQ k kTQ kT kzQ D kz D k Q k k yQ F k y F k zQ B k z B k YQ H k Y H k lQ H k l H k lQ $H k l $H k lQ k l k lqQ k lq k lsQ k ls k lzQ k lz ff8vP ff8yP ff;P ff;P ff;VP ff;YP jF89P jF97P jF;qP jF<zP kP kTP kzP k P k yP k zP k YP k lP k lP k lP k lqP k lsP k lzP S@Q E : L9() ! >}{woP