Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/comp/simmc1.unv
There are 3 other files named simmc1.unv in the archive. Click here to see a list.
x
(4t@P GVu@ vxA
	IFDEF .wDIRECTIVE,<.DIRECw8TIVE .NOBIN>
	UNwXIVERSAL A     DEwxCsystem-10/20 SIMxULA COMPILER %4(300)  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>,<IFE <^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>,<PRINTX OPD-OPR NESTING  ERROR>
$$USE==2@>
$$DEF==1>
>
`IFE $$DEF,<
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>,<$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(X1MASK)>
%OP%==2I7h 
*(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%==2IH 
b
A%S==B
 
A%V==D
DEFINE A%F=<C>
IO8 `^

IFL <^D36-^DC>,<$$E(<T OO BIG BIT NO>)>
IFE ^D36-^DC,<
 IFB <D>,<DEFINE 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,YBHEXT+1
FINE	PUTaW$IH 	DHL(
		SOSGE		DhYBHDF1+2
		XEC	O	E1DF1
		IDPB	A,YBHDF1+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,YBHIC1+1
	jD,zaW%Lh 	JLU
		SOSGE		J8YBHLS1+2
		XEC	O	JX1LS1
		IDPB	A,YBHLS1+1
	kYvaW&)6 	EXL1
		SOSGE		ExYBHREL+2
		XEC	O	F1REL
		IDPB	A,YBHREL+1
	jD)aW'
S 	GxLC
		SOSGE		HYBHXRF+2
		XEC	O	H81XRF
		IDPB	A,YBHXRF+1
	jDXWaW',r 	ILL
		SOSGE		I(YBHZSE+2
		XEC	O	IH1ZSE
		IDPB	A,YBHZSE+1
	jD]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 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(X1MASK)>
%OP%==2iJL0 
'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%==2iJf0 
/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(X1MASK)>
%OP%==2iK@ 
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(X1MASK)>
%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%==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}@ 	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%==2sh` 	[(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@q3N@sl	 	X@MV
IFE <%OP	X`%-1>,<%OP2 1>
IF	YE %OP%,<%OP2 7777	Y 77777776>
IFE <%	Y@OP%-2>,<$$E(<ILL 	Y`SWITCH NAME>)>
I	ZFGE <%OP%-3>,<%OP	Z 2 X1MASK,1>
IFL 	Z@<%OP%-2>,<%OP3 0(	Z`X1MASK)>
%OP%==2edK{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%==2s%
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%==2s%
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%==2s%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%==2s%=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%==2s%=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%==2s3; 
=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==2s3;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==2s3[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%==2s3[[ 	oO

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>
	qIFL <%OP%-2>,<%OP	q 3 0(X1MASK)>
%OP%==2s3 	^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%==2s3K 
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==2s3KA  s3Ks3Lr 
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==2s3k 
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==2s3kA  s3ks3lr 
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==2s3m6 	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%==2s=,{ 	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 	f0(X1MASK)>
%OP%==2sO<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%==2pFLD@@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%==2PlsO<[7QsO<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%==2sO<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%==2sO<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%==2sO<[  
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%==2sO<[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%==2sO<[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%==2sO<[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%==2sO<\ 
(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%==2skP 	`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%==2skT  	>KqZSE1+QNRESW-QLOWID(A) skT@ 	>XKuZSE2+QNRESW-QLOWID(A)skT` 	?KyZSE3+QNRESW-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 ERROR>
$$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 ERROR>
$$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 ERROR>
$$USE==2u#)V 	QR
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 ERROR>
$$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%==2L<s
G,rA LEuKY@ LLS	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 ERROR>
$$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 ERROR>
$$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 ERROR>
$$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=<
	SIFE <%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	VB <>,<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	XP2 B>
	IFNB <AC	CxC>,<%OP2 ACC,B>>	K
IFL <%OP%-2>,<%	K OP3 0(ACC)>
%OP%	K@==2>>
IFNB <>,<D	K`EFINE ZRQSTD=<
I	LFE <%OP%-1>,<%OP2	L  B>
IFE %OP%,<%	L@OP2 A>
IFE <%OP	L`%-2>,<$$E(<ILL SW	MITCH NAME>)>
IFG	M E <%OP%-3>,<%OP2 	M@C,B>
IFL <%OP%	M`-2>,<%OP3 0(C)>
%OP%==2>>
>
	ff8vP`HKos3;	ff8v`HKos3;	ff8yP`$HKos3;	ff8y`$HKos3;	ff;P`HKps3K	ff;`HKps3K	ff;P`$HKps3K	ff;`$HKps3K	ff;VP`HKns3k	ff;V`HKns3k	ff;YP`$HKns3k	ff;Y`$HKns3k	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@P E KL9()>}{woP