Google
 

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.
xt@P GVu@ @>;
	IFDEF `.DIRECTIVE,<.DIRECTIVE .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(X1MASK)>
%OP%==2I7h 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%==2IH cx!
A%S==Bd
A%V==D
DEFINE 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>

DEpFINE	$$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>
IFE0 <%OP%-2>,<$$E(<IPLL 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$^ iIP
	SOSGE	YihBHEXT+2
	XEC	O1Ej	XT
	ILDB	A,YBHEXT+1
FINE	PUTaW$IH kyc
		SOSGE	lYBHDF1+2
		XEC	Ol81DF1
		IDPB	A,YBHDF1+1
	Q!vaW$j6 giH
IRP A,<h	EXTERN	YBHA
	Dh(EFINE	PUTA(REG)<hH
		SOSGE	YBHA+2hh
		XEC	O1A
		IiDPB	REG,YBHA+1
	>
	>
y<!GaW%h nu
		SOSGE	n8YBHIC1+2
		XEC	OnX1IC1
		IDPB	A,YBHIC1+1
	P aW%Lh qI
		SOSGE	qhYBHLS1+2
		XEC	Or1LS1
		IDPB	A,YBHLS1+1
	P aW&)6 m	l
		SOSGE	m(YBHREL+2
		XEC	OmH1REL
		IDPB	A,YBHREL+1
	P aW'
S o)~
		SOSGE	oHYBHXRF+2
		XEC	Ooh1XRF
		IDPB	A,YBHXRF+1
	P aW',r p9
		SOSGE	pXYBHZSE+2
		XEC	Opx1ZSE
		IDPB	A,YBHZSE+1
	P bDt\YP bDvI9P PbDvx9P bF&R@ ?bF&Z@ [bF&[@ bFJR@ bFJZ@ PbFJ[@ bFd3R@ bFd3Z@ ZbFd3[@ 
bFf3R@ bFf3Z@ ZbFf3[@ 
bGCR@ 7bGCZ@ [bGC[@ bGR@ $bGZ@ ZbG[@ bG#R@ $bG#Z@ ZbG#[@ bG"R@ @bG"Z@ ^bG"[@ cGU@@ cGU	 @ cGV @ cOX @ cOX`@ 
cOY @ 	cOY`@ 	cO\@ 
cO\`@ cO]@ 
cO]`@ 
cjD P cjDPP ckPP ed 66=v u(ef=1 8Li7!|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(X1MASK)>
%OP%==2iJL0 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%==2iJf0 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(X1MASK)>
%OP%==2iK@ \%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(X1MASK)>
%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%==2n@pF@pF\@@pFLDG@pFLD@@ pFd,@@pFd^@`pFlu@qpFwqj6@ q@@ q}:@ q3N@ 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%==2sh` 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%==2sl	 q 
IFE <%OP%-1>,<%OP2 1>
IF0E %OP%,<%OP2 7777P77777776>
IFE <%pOP%-2>,<$$E(<ILL SWITCH NAME>)>
I0FGE <%OP%-3>,<%OPP2 X1MASK,1>
IFL p<%OP%-2>,<%OP3 0(X1MASK)>
%OP%==2s%
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%==2s%
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%==2s%
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%==2s%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%==2s%=s i"
IFE <%OP%-1>,<%OP2 4000>
IFE %OP%,<%OP2 7H77777773777>
IFEh <%OP%-2>,<$$E(<I LL SWITCH NAME>)> (
IFGE <%OP%-3>,< H%OP2 X1MASK,4000> h
IFL <%OP%-2>,<%!OP3 0(X1MASK)>
%OP%==2s%=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%==2s3; 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==2s3;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==2s3[R a!
IFE <%OP%-1>,<%OP2 100>
 IFE %OP%,<%OP2 77@7777777677>
IFE `<%OP%-2>,<$$E(<ILL SWITCH NAME>)>
IFGE <%OP%-3>,<%@OP2 X1MASK,100>
`IFL <%OP%-2>,<%OP3 0(X1MASK)>
%OP%==2s3[[ 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%==2s3 A >
IFE <%OP`%-1>,<%OP2 4>
IFE %OP%,<%OP2 7777 77777773>
IFE <%@OP%-2>,<$$E(<ILL `SWITCH NAME>)>
IFGE <%OP%-3>,<%OP 2 X1MASK,4>
IFL @<%OP%-2>,<%OP3 0(`X1MASK)>
%OP%==2s3K 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% s3KA  s3Ks3Lr 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==2s3kA  s3ks3lr 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==2s3m6 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%==2s=,{  k
IFE <%OP0%-1>,<%OP2 20>
IPFE %OP%,<%OP2 777p777777757>
IFE <
%OP%-2>,<$$E(<ILL
0 SWITCH NAME>)>

PIFGE <%OP%-3>,<%O
pP2 X1MASK,20>
IF<%OP%-2>,<%OP3 
%OP%==2sO<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%==2sO<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%==2sO<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%==2sO<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%==2sO<[  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%==2sO<[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%==2sO<\ /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%==2skP ) 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%==2skT  eI,ZSE1+QNRESW-QLOWID(A) vRskT@ f	0ZSE2+QNRESW-QLOWID(A) sHskT` fI4ZSE3+QNRESW-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 ERROR>
$$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 ERROR>
$$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 ERROR>
$$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 ERROR>
$$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%==2uKY@ TLS	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 <%OPI%-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
IFXNB <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 ERROR>
$$USE==2uN0Y@ ET=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 ERROR>
$$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 ERROR>
$$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+s3K	ff;`H+s3K	ff;P`$H+s3K	ff;`$H+s3K	ff;VP`H)s3k	ff;V`H)s3k	ff;YP`$H)s3k	ff;Y`$H)s3k	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	kQ 	k 	kyQ F	ky F	kzQ B	kz B	kYQ H	kY H	klQ H	kl H	klQ $H	kl $H	klQ 	kl 	klqQ 	klq 	klsQ 	kls 	klzQ 	klz ff8vP ff8yP ff;P ff;P ff;VP ff;YP jF89P jF97P jF;qP jF<zP kP kTP kzP kP kyP kzP kYP klP klP klP klqP klsP klzP S@Q E :L9()!>}{woP