Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/rts/simmc1.unv
There are 3 other files named simmc1.unv in the archive. Click here to see a list.
x
( 4 t@ P GVu @ vxA
IFDEF .wDIRECTIVE,<.DIRECw8TIVE .NOBIN>
UNwXIVERSAL A DEwxCsystem-10/20 SIMxULA COMPILER %4(3 00) PILER %4(3I |@P
$$DEF==0|`
IFE <^DC-^D36>} ,<DEFINE A(XB,O)} =
<$%W==B
IFNB}@ <O>,<$%W==B+<O>}`
>
IFE <$$USE-3~ >,<LI $$$VAL
$$U~ SE==1>
$F $%W(XB~@)>
$$DEF==1>
IF~`E <^DC-^D18>,<IF E <^DD-^D17>,
<
DEFINE A(XB,O)@=<
$%W==B
IFNB` <O>,<$%W==B+<O> >
IFE <$$USE-3>, <LI $$$VAL
$$USE @==1>
IFE $$USE,< `$F $%W(XB)>
IFE <$$USE-1>,<$L $%W (XB)>
IFE <$$USE@-2>,<PRINTX OPD-O`PR NESTING ERROR>
$$USE==2>
$$DE F==1>
IFE <^DD-@^D35>,
<DEFINE `A(XB,O)=<
$%W== B
IFNB <O>,<$%W= =B+<O>>
IFE <$$@USE-3>,<LI $$$VAL`
$$USE==1>
IFE $$USE,<$F $%W(XB) >
IFE <$$USE-1>,@<$R $%W(XB)>
IFE` <$$USE-2>,<PRINT X OPD-OPR NESTING ERROR>
$$USE==2@>
$$DEF==1>
>
`IFE $$DEF,<
DEFI NE A(XB,O)=<
$% W==B
IFNB <O>,<@$%W==B+<O>>
IFE` <$$USE-3>,<LI $$ $VAL
$$USE==1>
IFE $$USE,<$F $%W@(XB)>
IFE <$$USE`-1>,<$B [$A O(XB )]-$$RELO($$BAS)>
IFE <$$USE-2>,<@PRINTX INVALID US`E OF FIELD>
$$US E==2>
$$DEF==1>
OPDEF $A [POINT @ C,B,D]
$A== `$A
%A==^DD
I
FE <^DC-1>,<DSW (A,B,D)>
I7IH
,xRw
IFE <%OP
-%-1>,<%OP1 10>
I
-8FE %OP%,<%OP1 777
-X767>
IFE <%OP%-2
-x>,<$$E(<ILL SWITC
.H NAME>)>
IFGE <
.8%OP%-3>,<%OP1 X1M
.XASK,10>
IFL <%OP
.x%-2>,<%OP3 0(X1MA SK)>
%OP%==2 I7h
*(Rb
IFE <%OP
*H%-1>,<%OP1 4>
IF
*hE %OP%,<%OP1 7777
+73>
IFE <%OP%-2>
+(,<$$E(<ILL SWITCH
+H NAME>)>
IFGE <%
+hOP%-3>,<%OP1 X1MA
,SK,4>
IFL <%OP%-
,(2>,<%OP3 0(X1MASK )>
%OP%==2 IH
b
A%S==B
A%V==D
DEFIN E A%F=<C>
IO8 `^
IFL <^ D36-^DC>,<$$E(<T OO BIG BIT NO>)>
IFE ^D36-^DC,<
IFB <D>,<DEFIN E A(ACC)=<
IFE <%OP%-2>,<$$E(<I@LL SWITCH NAME>)>`
IFN <%OP%-2>,<
IFE <%OP%-3>, <%OP3 777777>
@IFE <%OP%-4>,<%OP`3>
IFL <%OP%-2 >,<%OP4 B(ACC)>
%OP%==2>>>
@IFNB <D>,<DEFINE` A=<
IFE <%OP% -2>,<$$E(<ILL SWI TCH NAME>)>
IFN@ <%OP%-2>,<
IF`E <%OP%-3>,<%OP3 D,777777>
IFE <%OP%-4>,<%OP3 @D,>
IFL <%OP%- `2>,<%OP4 B(D)>
%OP%==2>> >>
IFGE ^D35-^D @C,<
VA==1BC
`IFE ^DC,<
CA= =377777777777>
I FN ^DC,<
CA== @-1*VA-1>
IFGE ^ `D17-^DC,<
CA= =CA_-^D18
VA= =VA_-^D18>
DE @FINE $$TES1(X,Y,Z `)<
IFGE ^D17-^ DC,<
IFB <Z>,<D EFINE A(ACC)<
I @FE <%OP%-1>,<%OP1 ` Y>
IFE %OP%,<%O! P1 X>
IFE <%OP%-! 2>,<$$E(<ILL SWIT!@CH NAME>)>
IFGE !`<%OP%-3>,<IFB <AC" C>,<%OP1 Y>
IFN" B <ACC>,<%OP1 ACC"@,Y>>
IFL<%OP%-2>"`,<%OP3 B(ACC)>
# %OP%==2>>
IFNB <# Z>,<DEFINE A=<
#@IFE <%OP%-1>,<%OP#`1 Y>
IFE %OP%,<%$ OP1 X>
IFE <%OP%$ -2>,<$$E(<ILL SWI$@TCH NAME>)>
IFGE$` <%OP%-3>,<%OP1 Z% ,Y>
IFL <%OP%-2>% ,<%OP3 B(Z)>
%O%@P%==2>>>
IFL ^%`D17-^DC,<
IFB <& D>,<DEFINE A(AC& C)<
IFE %OP%-1,<&@%OP2 Y>
IFE %OP%&`,<%OP2 X>
IFE <%' OP%-2>,<$$E(<ILL ' SWITCH NAME>)>
I'@FGE <%OP%-3>,<IFB'` <ACC>,<%OP2 Y>
( IFNB <ACC>,<%OP2( ACC,Y>>
IFL <%O(@P%-2>,<%OP3 B(AC(`C)>
%OP%==2>>
I) FNB <D>,<DEFINE ) A=<
IFE <%OP%-1)@>,<%OP2 Y>
IFE %)`OP%,<%OP2 X>
IFE* <%OP%-2>,<$$E(<I* LL SWITCH NAME>)>*@
IFGE <%OP%-3>,<*`%OP2 Z,Y>
IFL <%+ OP%-2>,<%OP3 B(Z+ )>
%OP%==2>>
>+@
>
$$TES1(\CA,+`\VA,D)
PURGE VA,CA
>
J @ @O$^ BL
SOSGE Y B8BHEXT+2
XEC O1E BXXT
ILDB A,YBHE XT+1
FINE PUTaW$IH DHL(
SOSGE DhYBHDF1+2
XEC O E1DF1
IDPB A,Y BHDF1+1
aW$j6 @8L
IRP A,< @X EXTERN YBHA
D @xEFINE PUTA(REG)< A
SOSGE YBHA+2 A8
XEC O1A
I AXDPB REG,YBHA+1
>
>
aW%h FhL:
SOSGE GYBHIC1+2
XEC O G(1IC1
IDPB A,Y BHIC1+1
jD,zaW%Lh JLU
SOSGE J8YBHLS1+2
XEC O JX1LS1
IDPB A,Y BHLS1+1
kYvaW&)6 EXL1
SOSGE ExYBHREL+2
XEC O F1REL
IDPB A,Y BHREL+1
jD)aW'
S GxLC
SOSGE HYBHXRF+2
XEC O H81XRF
IDPB A,Y BHXRF+1
jDXWaW',r ILL
SOSGE I(YBHZSE+2
XEC O IH1ZSE
IDPB A,Y BHZSE+1
jD] 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 K{ ef=1 K} h @ ^iJ.
2S!
IFE <%OP
28%-1>,<%OP1 40>
I
2XFE %OP%,<%OP1 777
2x737>
IFE <%OP%-2
3>,<$$E(<ILL SWITC
38H NAME>)>
IFGE <
3X%OP%-3>,<%OP1 X1M
3xASK,40>
IFL <%OP
4%-2>,<%OP3 0(X1MA SK)>
%OP%==2 iJL0
'XRM
IFE <%OP
'x%-1>,<%OP1 2>
IF
(E %OP%,<%OP1 7777
(875>
IFE <%OP%-2>
(X,<$$E(<ILL SWITCH
(x NAME>)>
IFGE <%
)OP%-3>,<%OP1 X1MA
)8SK,2>
IFL <%OP%-
)X2>,<%OP3 0(X1MASK )>
%OP%==2 iJf0
/HS
IFE <%OP
/h%-1>,<%OP1 20>
I
0FE %OP%,<%OP1 777
0(757>
IFE <%OP%-2
0H>,<$$E(<ILL SWITC
0hH NAME>)>
IFGE <
1%OP%-3>,<%OP1 X1M
1(ASK,20>
IFL <%OP
1H%-2>,<%OP3 0(X1MA SK)>
%OP%==2 iK @
4hS6
IFE <%OP
5%-1>,<%OP1 100>
5(IFE %OP%,<%OP1 77
5H7677>
IFE <%OP%-
5h2>,<$$E(<ILL SWIT
6CH NAME>)>
IFGE
6(<%OP%-3>,<%OP1 X1
6HMASK,100>
IFL <%
6hOP%-2>,<%OP3 0(X1 MASK)>
%OP%==2iK
%R8
IFE <%OP
%(%-1>,<%OP1 1>
IF
%HE %OP%,<%OP1 7777
%h76>
IFE <%OP%-2>
&,<$$E(<ILL SWITCH
&( NAME>)>
IFGE <%
&HOP%-3>,<%OP1 X1MA
&hSK,1>
IFL <%OP%-
'2>,<%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 }@ fHNF
IFE <%OP fh%-1>,<%OP2 40>
I gFE %OP%,<%OP2 777 g(777777737>
IFE < gH%OP%-2>,<$$E(<ILL gh SWITCH NAME>)>
hIFGE <%OP%-3>,<%O h(P2 X1MASK,40>
IF hHL <%OP%-2>,<%OP3 hh0(X1MASK)>
%OP%= =2 sh` [(Ml
IFE <%OP [H%-1>,<%OP2 2>
IF [hE %OP%,<%OP2 7777 \77777775>
IFE <% \(OP%-2>,<$$E(<ILL \HSWITCH NAME>)>
I \hFGE <%OP%-3>,<%OP ]2 X1MASK,2>
IFL ](<%OP%-2>,<%OP3 0( ]HX1MASK)>
%OP%==2 @ q3 N@ sl X@MV
IFE <%OP X`%-1>,<%OP2 1>
IF Y E %OP%,<%OP2 7777 Y 77777776>
IFE <% Y@OP%-2>,<$$E(<ILL Y`SWITCH NAME>)>
I Z FGE <%OP%-3>,<%OP Z 2 X1MASK,1>
IFL Z@<%OP%-2>,<%OP3 0( Z`X1MASK)>
%OP%==2 ed K{ef=1s%
IFE <%OP r%-1>,<%OP2 1000>
IFE %OP%,<%OP2 7 rH77777776777>
IFE rh <%OP%-2>,<$$E(<I sLL SWITCH NAME>)> s(
IFGE <%OP%-3>,< sH%OP2 X1MASK,1000> sh
IFL <%OP%-2>,<% tOP3 0(X1MASK)>
% OP%==2 s%
IFE <%OP }(%-1>,<%OP2 20000> }H
IFE %OP%,<%OP2 }h777777757777>
IF ~E <%OP%-2>,<$$E(< ~(ILL SWITCH NAME>) ~H>
IFGE <%OP%-3>, ~h<%OP2 X1MASK,2000 0>
IFL <%OP%-2>, (<%OP3 0(X1MASK)>
%OP%==2 s%
IFE <%OP
%-1>,<%OP2 40000>
0
IFE %OP%,<%OP2
P777777737777>
IF
pE <%OP%-2>,<$$E(<
ILL SWITCH NAME>)
0>
IFGE <%OP%-3>,
P<%OP2 X1MASK,4000
p0>
IFL <%OP%-2>,
<%OP3 0(X1MASK)>
%OP%==2 s%8y tPO7
IFE <%OP tp%-1>,<%OP2 2000>
IFE %OP%,<%OP2 7 u077777775777>
IFE uP <%OP%-2>,<$$E(<I upLL SWITCH NAME>)> v
IFGE <%OP%-3>,< v0%OP2 X1MASK,2000> vP
IFL <%OP%-2>,<% vpOP3 0(X1MASK)>
% OP%==2 s%=s w8OM
IFE <%OP wX%-1>,<%OP2 4000>
IFE %OP%,<%OP2 7 x77777773777>
IFE x8 <%OP%-2>,<$$E(<I xXLL SWITCH NAME>)> xx
IFGE <%OP%-3>,< y%OP2 X1MASK,4000> y8
IFL <%OP%-2>,<% yXOP3 0(X1MASK)>
% OP%==2 s%=y z Od
IFE <%OP z@%-1>,<%OP2 10000> z`
IFE %OP%,<%OP2 { 777777767777>
IF { E <%OP%-2>,<$$E(< {@ILL SWITCH NAME>) {`>
IFGE <%OP%-3>, | <%OP2 X1MASK,1000 | 0>
IFL <%OP%-2>, |@<%OP3 0(X1MASK)>
%OP%==2 s3 ;
=S|
$%W==YLS
=(CLS
IFNB <B>,<$
=H%W==YLSCLS+<B>>
=h
IFE <$$USE-3>,<L
>I $$$VAL
$$USE==
>(1>
IFE $$USE,<$F
>H $%W(A)>
IFE <$
>h$USE-1>,<$R $%W(
?A)>
IFE <$$USE-2
?(>,<PRINTX OPD-OPR
?H NESTING ERROR>
$$USE==2 s3 ;A s3 ;s3 <r
@(T
$%W==YLS
@HCLS
IFNB <B>,<$
@h%W==YLSCLS+<B>>
A
IFE <$$USE-3>,<L
A(I $$$VAL
$$USE==
AH1>
IFE $$USE,<$F
Ah $%W(A)>
IFE <$
B$USE-1>,<$L $%W(
B(A)>
IFE <$$USE-2
BH>,<PRINTX OPD-OPR
Bh NESTING ERROR>
$$USE==2 s3 [R i0N]
IFE <%OP iP%-1>,<%OP2 100>
ipIFE %OP%,<%OP2 77 j7777777677>
IFE j0<%OP%-2>,<$$E(<IL jPL SWITCH NAME>)>
IFGE <%OP%-3>,<% kOP2 X1MASK,100>
k0IFL <%OP%-2>,<%OP kP3 0(X1MASK)>
%OP %==2 s3 [[ o O
IFE <%OP o %-1>,<%OP2 400>
o@IFE %OP%,<%OP2 77 o`7777777377>
IFE p <%OP%-2>,<$$E(<IL p L SWITCH NAME>)>
IFGE <%OP%-3>,<% p`OP2 X1MASK,400>
q IFL <%OP%-2>,<%OP q 3 0(X1MASK)>
%OP %==2 s3 ^N
IFE <%OP ^0%-1>,<%OP2 4>
IF ^PE %OP%,<%OP2 7777 ^p77777773>
IFE <% _OP%-2>,<$$E(<ILL _0SWITCH NAME>)>
I _PFGE <%OP%-3>,<%OP _p2 X1MASK,4>
IFL `<%OP%-2>,<%OP3 0( `0X1MASK)>
%OP%==2 s3 K
CHT0
$%W==YLS
ChLLS
IFNB <B>,<$
D%W==YLSLLS+<B>>
D(
IFE <$$USE-3>,<L
DHI $$$VAL
$$USE==
Dh1>
IFE $$USE,<$F
E $%W(A)>
IFE <$
E($USE-1>,<$R $%W(
EHA)>
IFE <$$USE-2
Eh>,<PRINTX OPD-OPR
F NESTING ERROR>
$$USE==2 s3 KA s3 Ks3 Lr
FhTJ
$%W==YLS
GLLS
IFNB <B>,<$
G(%W==YLSLLS+<B>>
GH
IFE <$$USE-3>,<L
GhI $$$VAL
$$USE==
H1>
IFE $$USE,<$F
H( $%W(A)>
IFE <$
HH$USE-1>,<$L $%W(
HhA)>
IFE <$$USE-2
I>,<PRINTX OPD-OPR
I( NESTING ERROR>
$$USE==2 s3 k
7(SH
$%W==YLS
7NLS
IFNB <B>,<$ O %W==YLSNLS+<B>>
$(
IFE <$$USE-3>,<L
7HI $$$VAL
$$USE==
7h1>
IFE $$USE,<$F
8 $%W(A)>
IFE <$
8($USE-1>,<$R $%W(
8HA)>
IFE <$$USE-2
8h>,<PRINTX OPD-OPR
9 NESTING ERROR>
$$USE==2 s3 kA s3 ks3 lr
9hSb
$%W==YLS
:NLS
IFNB <B>,<$
:(%W==YLSNLS+<B>>
:H
IFE <$$USE-3>,<L
:hI $$$VAL
$$USE==
;1>
IFE $$USE,<$F
;( $%W(A)>
IFE <$
;H$USE-1>,<$L $%W(
;hA)>
IFE <$$USE-2
<>,<PRINTX OPD-OPR
<( NESTING ERROR>
$$USE==2 s3 m6 lNs
IFE <%OP l8%-1>,<%OP2 200>
lXIFE %OP%,<%OP2 77 lx7777777577>
IFE m<%OP%-2>,<$$E(<IL m8L SWITCH NAME>)>
IFGE <%OP%-3>,<% mxOP2 X1MASK,200>
nIFL <%OP%-2>,<%OP n83 0(X1MASK)>
%OP %==2 s=,{ c`N0
IFE <%OP d %-1>,<%OP2 20>
I d FE %OP%,<%OP2 777 d@777777757>
IFE < d`%OP%-2>,<$$E(<ILL e SWITCH NAME>)>
e IFGE <%OP%-3>,<%O e@P2 X1MASK,20>
IF e`L <%OP%-2>,<%OP3 f 0(X1MASK)>
%OP%= =2 sO<0
8QE
IFE <%OP
X%-1>,<%OP1 20000>
x
IFE %OP%,<%OP1
757777>
IFE <%OP
8%-2>,<$$E(<ILL SW
XITCH NAME>)>
IFG
xE <%OP%-3>,<%OP1
X1MASK,20000>
IF
8L <%OP%-2>,<%OP3
X0(X1MASK)>
%OP%= =2 pFLD@@ sO<U
Qs
IFE <%OP
8%-1>,<%OP1 4000>
X
IFE %OP%,<%OP1 7
x73777>
IFE <%OP%
-2>,<$$E(<ILL SWI
8TCH NAME>)>
IFGE
X <%OP%-3>,<%OP1 X
x1MASK,4000>
IFL
<%OP%-2>,<%OP3 0(
8X1MASK)>
%OP%==2 PlsO<[7 QsO<Xv
@P>
IFE <%OP
`%-1>,<%OP2 200000
>
IFE %OP%,<%OP2
777777577777>
I
@FE <%OP%-2>,<$$E(
`<ILL SWITCH NAME>
)>
IFGE <%OP%-3>
,<%OP2 X1MASK,200
@000>
IFL <%OP%-2
`>,<%OP3 0(X1MASK) >
%OP%==2 sO<Xw
HQ.
IFE <%OP
h%-1>,<%OP1 40000>
IFE %OP%,<%OP1
(737777>
IFE <%OP
H%-2>,<$$E(<ILL SW
hITCH NAME>)>
IFG
E <%OP%-3>,<%OP1
(X1MASK,40000>
IF
HL <%OP%-2>,<%OP3
h0(X1MASK)>
%OP%= =2 sO<YW
xPi
IFE <%OP
%-1>,<%OP1 400000
8>
IFE %OP%,<%OP1
X 377777>
IFE <%O
xP%-2>,<$$E(<ILL S
WITCH NAME>)>
IF
8GE <%OP%-3>,<%OP1
X X1MASK,400000>
xIFL <%OP%-2>,<%OP
3 0(X1MASK)>
%OP %==2 sO<[
hQ
IFE <%OP
%-1>,<%OP1 200000
(>
IFE %OP%,<%OP1
H 577777>
IFE <%O
hP%-2>,<$$E(<ILL S
WITCH NAME>)>
IF
(GE <%OP%-3>,<%OP1
H X1MASK,200000>
hIFL <%OP%-2>,<%OP
3 0(X1MASK)>
%OP %==2 sO<[7
XQ
IFE <%OP
x%-1>,<%OP1 100000
>
IFE %OP%,<%OP1
8 677777>
IFE <%O
XP%-2>,<$$E(<ILL S
xWITCH NAME>)>
IF
GE <%OP%-3>,<%OP1
8 X1MASK,100000>
XIFL <%OP%-2>,<%OP
x3 0(X1MASK)>
%OP %==2 sO<[8
XP'
IFE <%OP
x%-1>,<%OP2 100000
>
IFE %OP%,<%OP2
8 777777677777>
I
XFE <%OP%-2>,<$$E(
x<ILL SWITCH NAME>
)>
IFGE <%OP%-3>
8,<%OP2 X1MASK,100
X000>
IFL <%OP%-2
x>,<%OP3 0(X1MASK) >
%OP%==2 sO<[8
R
IFE <%OP
(%-1>,<%OP1 2000>
H
IFE %OP%,<%OP1 7
h75777>
IFE <%OP%
-2>,<$$E(<ILL SWI
(TCH NAME>)>
IFGE
H <%OP%-3>,<%OP1 X
h1MASK,2000>
IFL
!<%OP%-2>,<%OP3 0(
!(X1MASK)>
%OP%==2 sO<\
(PT
IFE <%OP
H%-1>,<%OP2 400000
h>
IFE %OP%,<%OP2
777777377777>
I
(FE <%OP%-2>,<$$E(
H<ILL SWITCH NAME>
h)>
IFGE <%OP%-3>
,<%OP2 X1MASK,400
(000>
IFL <%OP%-2
H>,<%OP3 0(X1MASK) >
%OP%==2 sk P `xN
IFE <%OP a%-1>,<%OP2 10>
I a8FE %OP%,<%OP2 777 aX777777767>
IFE < ax%OP%-2>,<$$E(<ILL b SWITCH NAME>)>
b8IFGE <%OP%-3>,<%O bXP2 X1MASK,10>
IF bxL <%OP%-2>,<%OP3 c0(X1MASK)>
%OP%= =2 sk T >Kq ZSE1+QNRES W-QLOWID(A) sk T@ >XKu ZSE2+QNRES W-QLOWID(A) sk T` ?Ky ZSE3+QNRES W-QLOWID(A) u# z
OhU
$%W==6
PIFNB <B>,<$%W==6
P(+<B>>
IFE <$$US
PHE-3>,<LI $$$VAL
Ph$$USE==1>
IFE $$
QUSE,<$F $%W(A)>
Q(
IFE <$$USE-1>,<$
QHR $%W(A)>
IFE <
Qh$$USE-2>,<PRINTX
ROPD-OPR NESTING E RROR>
$$USE==2u# [R
LxTy
$%W==0
MIFNB <B>,<$%W==0
M8+<B>>
IFE <$$US
MXE-3>,<LI $$$VAL
Mx$$USE==1>
IFE $$
NUSE,<$F $%W(A)>
N8
IFE <$$USE-1>,<$
NXR $%W(A)>
IFE <
Nx$$USE-2>,<PRINTX
OOPD-OPR NESTING E RROR>
$$USE==2u# xV
RXU'
$%W==5
RxIFNB <B>,<$%W==5
S+<B>>
IFE <$$US
S8E-3>,<LI $$$VAL
SX$$USE==1>
IFE $$
SxUSE,<$F $%W(A)>
T
IFE <$$USE-1>,<$
T8L $%W(A)>
IFE <
TX$$USE-2>,<PRINTX
TxOPD-OPR NESTING E RROR>
$$USE==2u# )V Q R
IFE <%OP
!X%-1>,<%OP1 400000
!x>
IFE %OP%,<%OP1
" 377777>
IFE <%O
"8P%-2>,<$$E(<ILL S
"XWITCH NAME>)>
IF
"xGE <%OP%-3>,<IFB
#<A>,<%OP1 400000
#8>
IFNB <A>,<%O
#XP1 A,400000>>
I
#xFL<%OP%-2>,<%OP3 6(A)>
%OP%==2u# =
JTb
$%W==0
J(IFNB <B>,<$%W==0
JH+<B>>
IFE <$$US
JhE-3>,<LI $$$VAL
K$$USE==1>
IFE $$
K(USE,<$F $%W(A)>
KH
IFE <$$USE-1>,<$
KhL $%W(A)>
IFE <
L$$USE-2>,<PRINTX
L(OPD-OPR NESTING E RROR>
$$USE==2uG-}:
(Q\
IFE <%OP
H%-1>,<%OP1 10000>
h
IFE %OP%,<%OP1
767777>
IFE <%OP
(%-2>,<$$E(<ILL SW
HITCH NAME>)>
IFG
hE <%OP%-3>,<%OP1
X1MASK,10000>
IF
(L <%OP%-2>,<%OP3
H0(X1MASK)>
%OP%= =2 L<s
G,rA LEuKY@ L LS QuK\`P uK]@P uK
I;
e8V3 $%W==3
IF
eXNB <B>,<$%W==3+<
exB>
>
IFE <$$US
fE-3>,<LI $$$VAL
f8$$USE==1>
$F $%W (A) uK
j6
bV $%W==1
IF
b8NB <B>,<$%W==1+<
bXB>
>
IFE <$$US
bxE-3>,<LI $$$VAL
c$$USE==1>
$F$%W (A) uK
Y8UX
IFE <%OP
Y%-1>,<%OP1 200000
Xx>
IFE %OP%,<%OP1
Z 577777>
IFE <%O N`P%-2>,<$$E(<ILL S N@WITCH NAME>)>
IF
X(GE <%OP%-3>,<IFB
XH<A>,<%OP1 200000
ZH>
IFNB <A>,<%O
ZhP1 A,200000>>
I
[FL<%OP%-2>,<%OP3 0(A)>
%OP%==2uK
chV& $%W==2
IF
dNB <B>,<$%W==2+<
d(B>
>
IFE <$$US
dHE-3>,<LI $$$VAL
dh$$USE==1>
$F $%W (A) uK<Q
UHU@
IFE <%OP
Uh%-1>,<%OP1 400000
V>
IFE %OP%,<%OP1
V( 377777>
IFE <%O
VHP%-2>,<$$E(<ILL S
VhWITCH NAME>)>
IF
WGE <%OP%-3>,<IFB
W(<A>,<%OP1 400000
WH>
IFNB <A>,<%O
WhP1 A,400000>>
I
XFL<%OP%-2>,<%OP3 0(A)>
%OP%==2uK=
\8Ur
IFE <%OP
\%-1>,<%OP1 100000
[x>
IFE %OP%,<%OP1
]( 677777>
IFE <%O
]P%-2>,<$$E(<ILL S N WITCH NAME>)>
IF
[(GE <%OP%-3>,<IFB
[H<A>,<%OP1 100000
]h>
IFNB <A>,<%O
^P1 A,100000>>
I
^(FL<%OP%-2>,<%OP3 0(A)>
%OP%==2uK,X
_8V
$%W==0
_IFNB <B>,<$%W==0
`H+<B>>
IFE <$$US
`(E-3>,<LI $$$VAL
N $$USE==1>
IFE $$
^HUSE,<$F $%W(A)>
^h
IFE <$$USE-1>,<$
aR $%W(A)>
IFE <
a($$USE-2>,<PRINTX
aHOPD-OPR NESTING E RROR>
$$USE==2uN0Y@ M
T=uN0\`P uN0]@P uN6 `
oW
$%W==2
o(IFNB <B>,<$%W==2
oH+<B>>
IFE <$$US
ohE-3>,<LI $$$VAL
p$$USE==1>
IFE $$
p(USE,<$F $%W(A)>
pH
IFE <$$USE-1>,<$
phR $%W(A)>
IFE <
q$$USE-2>,<PRINTX
q(OPD-OPR NESTING E RROR>
$$USE==2uN6
@
lVs
$%W==2
l8IFNB <B>,<$%W==2
lX+<B>>
IFE <$$US
lxE-3>,<LI $$$VAL
m$$USE==1>
IFE $$
m8USE,<$F $%W(A)>
mX
IFE <$$USE-1>,<$
mxL $%W(A)>
IFE <
n$$USE-2>,<PRINTX
n8OPD-OPR NESTING E RROR>
$$USE==2uN6
jHV\ $%W==2
IF
jhNB <B>,<$%W==2+<
kB>
>
IFE <$$US
k(E-3>,<LI $$$VAL
kH$$USE==1>
$F $%W (A) uN68w
hxVO $%W==1
IF
iNB <B>,<$%W==1+<
i8B>
>
IFE <$$US
iXE-3>,<LI $$$VAL
ix$$USE==1>
$F $%W (A) uN69R
qxW $%W==3
IF
rNB <B>,<$%W==3+<
r8B>
>
IFE <$$US
rXE-3>,<LI $$$VAL
rx$$USE==1>
$F $%W (A) uN6=
g(VB $%W==0
IF
gHNB <B>,<$%W==0+<
ghB>
>
IFE <$$US
hE-3>,<LI $$$VAL
h($$USE==1>
$F $%W (A) $Y@P $\h
\hLn
IFGE ^
YhD17-^D2,<
IFB < O@C>,<DEFINE ZRQSTD O`(ACC)<
IFE <%OP% P -1>,<%OP1 B>
IF P E %OP%,<%OP1 A>
IFE <%OP%-2>,<$$
$HE(<ILL SWITCH NAM P`E>)>
IFGE <%OP%- CX3>,<IFB <ACC>,<%O Q@P1 B>
IFNB <AC Q`C>,<%OP1 ACC,B>> R
IFL<%OP%-2>,<%O R P3 0(ACC)>
%OP%= R@=2>>
IFNB <C>,< R`DEFINE ZRQSTD=<
S IFE <%OP%-1>,<%OP S`1 B>
IFE %OP%,< T %OP1 A>
IFE <%O T P%-2>,<$$E(<ILL S T@WITCH NAME>)>
IF T`GE <%OP%-3>,<%OP1 U C,B>
IFL <%OP U %-2>,<%OP3 0(C)> U@
%OP%==2>>>
I U`FL ^D17-^D2,<
IF V B <>,<DEFINE ZRQS V TD(ACC)<
IFE %OP V@%-1,<%OP2 B>
IF V`E %OP%,<%OP2 A>
IFE <%OP%-2>,<$$ W E(<ILL SWITCH NAM W`E>)>
IFGE <%OP%- W@3>,<IFB <ACC>,<%O X P2 B>
IFNB <AC CxC>,<%OP2 ACC,B>> K
IFL <%OP%-2>,<% K OP3 0(ACC)>
%OP% K@==2>>
IFNB <>,<D K`EFINE ZRQSTD=<
I L FE <%OP%-1>,<%OP2 L B>
IFE %OP%,<% L@OP2 A>
IFE <%OP L`%-2>,<$$E(<ILL SW M ITCH NAME>)>
IFG M E <%OP%-3>,<%OP2 M@C,B>
IFL <%OP% M`-2>,<%OP3 0(C)>
%OP%==2>>
>
ff8vP ` H Ko s3 ; ff8v ` H Ko s3 ; ff8yP ` $H Ko s3 ; ff8y ` $H Ko s3 ; ff;P ` H Kp s3 K ff; ` H Kp s3 K ff;P ` $H Kp s3 K ff; ` $H Kp s3 K ff;VP ` H Kn s3 k ff;V ` H Kn s3 k ff;YP ` $H Kn s3 k ff;Y ` $H Kn 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@P E K L9() >}{woP