PDP-10 Archive: 43,50337/09/simmcr.unv from decuslib10-05

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/09/simmcr.unv

There are 6 other files named simmcr.unv in the archive. Click here to see a list.

xU@P EJ,` `GB@$GB@@$GB@$GB&@@$GB*@$GBtP@$GC@@$GC0@$GC@$GN@$GN-`@$	GN.@$GN. @$	GN.0@$GN.P@$AGN=p@$GNt@$GOP@$GO@$
GO@$
GO @$GO0@$GO`@$GOp@$GOt@$DI X	y
$$DEF==0x
IFE <^DC-^D36>,<DEFINE A(XB,O)8=
<$%W==B
IFNBX <O>,<$%W==B+<O>x
>
IFE <$$USE-3>,<LI $$$VAL
$$U8SE==1>
$F $%W(XBX)>
$$DEF==1>
IFxE <^DC-^D18>,<IFE <^DD-^D17>,
<8;
DEFINE A(XB,OX)=<
$%W==B
IFNxB <O>,<$%W==B+<O>>
IFE <$$USE-3>8,<LI $$$VAL
$$USXE==1>
IFE $$USE,x<$F $%W(XB)>
IFE <$$USE-1>,<$L $%8W(XB)>
IFE <$$USXE-2>,<PRINTX OPD-xOPR NESTING ERROR>
$$USE==2>
$$D8EF==1>
IFE <^DDX-^D35>,
<DEFINE xA(XB,O)=<
$%W==B
IFNB <O>,<$%W8==B+<O>>
IFE <$X$USE-3>,<LI $$$VAxL
$$USE==1>
IFE $$USE,<$F $%W(XB8)>
IFE <$$USE-1>X,<$R $%W(XB)>
IFxE <$$USE-2>,<PRINTX OPD-OPR NESTIN8G ERROR>
$$USE==X2>
$$DEF==1>
>x
IFE $$DEF,<
DEFINE A(XB,O)=<
$8%W==B
IFNB <O>,X<$%W==B+<O>>
IFxE <$$USE-3>,<LI $$$VAL
$$USE==1>
IFE $$USE,<$F $%XW(XB)>
IFE <$$USxE-1>,<$B [$A O(XB)]-$$RELO($$BAS)8>
IFE <$$USE-2>,X<PRINTX INVALID UxSE OF FIELD>
$$USE==2>
$$DEF==1>8
OPDEF $A [POINXT C,B,D]
$A=x=$A
%A==^DD
IFE <^DC-1>,<DSW (A,B,D)>
IH #

A%S==B#8
A%V==D
DEFINE A%F=<C>
IO8 -x



IFL <^.D36-^DC>,<$$E(<T.8OO BIG BIT NO>)>
IFE ^D36-^DC,<
 IFB <D>,<DEFIN/E A(ACC)=<
	IFE/8 <%OP%-2>,<$$E(<I/XLL SWITCH NAME>)>/x
	IFN <%OP%-2>,<0
	 IFE <%OP%-3>,08<%OP3 777777>
	 0XIFE <%OP%-4>,<%OP0x3>
	1IFL <%OP%-21>,<%OP4 B(ACC)>
			%OP%==2>>>
 1XIFNB <D>,<DEFINE1x A=<
	IFE <%OP%2-2>,<$$E(<ILL SWI28TCH NAME>)>
	IFN2X <%OP%-2>,<
	 IF2xE <%OP%-3>,<%OP3 3D,777777>
	 IFE38 <%OP%-4>,<%OP3 3XD,>
	4IFL <%OP%-3x2>,<%OP4 B(D)>
		     %OP%==2>>48>>
IFGE	^D35-^D4XC,<
	VA==1BC
4xIFE	^DC,<
	CA=5=377777777777>
I58FN	^DC,<
	CA==5X-1*VA-1>
IFGE ^5xD17-^DC,<
	CA=6=CA_-^D18
	VA=68=VA_-^D18>

DE6XFINE	$$TES1(X,Y,Z6x)<

IFGE	^D17-^7DC,<
IFB <Z>,<D78EFINE A(ACC)<
I7XFE <%OP%-1>,<%OP17x Y>
IFE %OP%,<%O8P1 X>
IFE <%OP%-882>,<$$E(<ILL SWIT8XCH NAME>)>
IFGE 8x<%OP%-3>,<IFB <AC9C>,<%OP1 Y>
	IFN98B <ACC>,<%OP1 ACC9X,Y>>
IFL<%OP%-2>9x,<%OP3 B(ACC)>
:%OP%==2>>
IFNB <:8Z>,<DEFINE A=<
:XIFE <%OP%-1>,<%OP:x1 Y>
IFE %OP%,<%;OP1 X>
IFE <%OP%;8-2>,<$$E(<ILL SWI;XTCH NAME>)>
IFGE;x <%OP%-3>,<%OP1 Z<,Y>
IFL <%OP%-2><8,<%OP3 B(Z)>
%O<XP%==2>>>

IFL ^<xD17-^DC,<
IFB <=D>,<DEFINE A(AC=8C)<
IFE %OP%-1,<=X%OP2 Y>
IFE %OP%=x,<%OP2 X>
IFE <%>OP%-2>,<$$E(<ILL >8SWITCH NAME>)>
I>XFGE <%OP%-3>,<IFB>x <ACC>,<%OP2 Y>
?	IFNB <ACC>,<%OP2?8 ACC,Y>>
IFL <%O?XP%-2>,<%OP3 B(AC?xC)>
%OP%==2>>
I@FNB <D>,<DEFINE @8A=<
IFE <%OP%-1@X>,<%OP2 Y>
IFE %@xOP%,<%OP2 X>
IFEA <%OP%-2>,<$$E(<IA8LL SWITCH NAME>)>AX
IFGE <%OP%-3>,<Ax%OP2 Z,Y>
IFL <%BOP%-2>,<%OP3 B(ZB8)>
%OP%==2>>
>BX
>
	$$TES1(\CA,Bx\VA,D)
	PURGE VA,CA
>
IVlM6@@$?S>p@$7S> @$DS>@@$<S>H @$GS>{ @$BS>0@$ES>$`@$1S>$a1@$/S>$a2@$3S>- @$<S>.)@@$FS>5@$S>51@$S>52@$!S>L0@$3S>L`@$5S>Lp@$6S>M@$4S>M`@$#S>Ma1@$!S>Ma2@$&S>N @$5S>N@@$6S>e@$4S>e`@$@S>f@$=S>f@@$;S>t @$ES>|0@$8S>|`@$:S>|p@$7S>}@$8S>~@$;S>~ @$9S>~@@$:S>~P@$(S>~Q1@$&S>~Q2@$*S>@$9S?`@$,S?a1@$*S?a2@$/S? @$FS?@$=[

0@ [0@ [@@ [I@ [@ [@ [@@ [p@ [y@ [/@ [/	@ [e@ [e@@ [e`@ [ei@ [@ [ @ [@ 
[@ 	[@ 	[@ [@ [$@

[%@&a-@$A.@$M`@$Mf@$@Mh`@$HMi@$GMj`@$Bd@@$H@ & @$C.P@$Ca"`@$

a"60@$

a"6`@$a#@@ )bP c
~[RP cDRP c$;wP c$N7P c$^P c$kVP c%wP c&ltP c$nP 0c;XRP cG,9P cJ,h9P cK&9(P cN~(rP cZN-P cj

0P cj P cjP cjP cj@P cj%`P cj%m@ cj& P cj. P ck P ck$PP ck&@P ckD P ckN0P e%@ e& @ e. @ eE@ eEp@ ee@ etP@ eup@ ep@ e@ e-`@ eS\Y  eS1

0fZ
X (CSCA)g        ;
X (CSSN)        ;
X (C

?`SSW)        ;
X

@(CSGO)        ;

@ X (CSNA)        ;

@@
X (CSES)

@` ;
X (CSEP)

A   ;
X (CSQU)	;

A 
X (CSSB)

A@;
X (CSSC)

A`  ;
X (CSER)

B    ;
X (CSEN)

B       ;

B@        ;
X (CSR

B`A)        ;
X (C

CSSA)        ;
;

C 
X (PHFV)

C@;
X (PHFA)

C`  ;
X (PHFM)

D    ;

D       ;
X (PHFT)

D@        ;
X (PHF

D`S)        ;
X (P

EHCV)        ;
;

E 
X (CPNE)

E@;
X (CPSP)

E`  ;
X (CPPD)

F    ;
X (TXDA)	;

F 
X (CPCA)

F@ ;
X (CPCD)

F`   ;
X (CPCI)

G     ;
X (CPE0)

G        ;
X (CPDT

G@,,S)     ;
X (CP

G`RS,,S)     ;
;

HX (OCEP)        ;

H 
X (OCIN,2)	;
X

H@ (OCSP,L)      ;

H`
;
X (TXBL,3,S)

I    ;
X (TXGC,,S

I )     ;
X (TXCY,

I@,S)     ;
X (TXG

I`I,,S)     ;
X (T

JXGR,,S)     ;
X

J (TXLT,,S)	;
X (T

J@XMN,,S)	;
X (TXP

J`F,,S)	;
X (TXPC,

K,S)	;
X (TXPX,,S

K )	;
X (TXPI,,S)

K@;
X (TXST,3,S)	;

K`
X (TXSE,,S)	;

LX (TXSU,3,S)	;
X

L  (TXRE)	;
X (TXV

L@A,3)	;
X (TXGF,,

L`S)	;
X (TXPR,,S)

M	;
;
Y (IOFI,,,

M 1)	;
Y (IOIN,,S,

M@1)	;
Y (IOOU,,S,

M`1)	;
Y (IOPF,,S,

N1)	;
Y (IODF,,S,

N 1)	;
X (IOIC,,S)

N@	;
X (IOLI,,S)	;

N`
X (IOII,,S)	;

OX (IOIR,,S)	;
X

O (IOIF,,S)	;
X (I

O@OIT,,S)	;
X (IOI

O`G,,S)	;
X (IOBO,

P,S)	;
X (IOOG,,S

P )	;
X (IOOC,,S)

P@;
X (IOOI,,S)	;

P`
X (IOOX,,S)	;
X

Q (IOOR,,S)	;
X (

Q IOOF,,S)	;
X (IO

Q@OT,,S)	;
X (IOLT

Q`,,S)	;
X (IOOP,,

RS)	;
X (IOCL,,S)

R 	;
X (IOEJ,,S)	;

R@
X (IOSP,,S)	;

R`X (IOLP,,S)	;
;

S
X (MAAC,L,,ACOS.

S )	;
X (DUMDUM,L)

S@
X (MAAS,L,,ASIN

S`.)	;
X (DUMDUM,L

T)
X (MAAT,L,,ATA

T N.)	;
X (MAATD,L

T@,,DATAN.)
X (MAC

T`I,L)		;
X (MACL,

UL)		;
X (MACO,L,

U ,COS.)	;
X (MACO

U@D,L,,DCOS.)
X (M

U`ACH,L,,COSH.)	;

VX (DUMDUM,L)
X (

V MAEX,L,,EXP.)	;

V@X (MAEXD,L,,DEXP.

V`)
X (MALN,L,,ALO

WG.)	;
X (MALND,L

W ,,DLOG.)
X (MASI

W@,L,,SIN.)	;
X (M

W`ASID,L,,DSIN.)
X

X (MASH,L,,SINH.)

X ;
X (DUMDUM,L)

X@X (MASQ,L,,SQRT.)

X`	;
X (MASQD,L,,D

YSQRT.)
X (MATA,L

Y ,,TAN.)	;
X (DUM

Y@DUM,L)
X (MATH,L

Y`,,TANH.)	;
X (DU

ZMDUM,L)
X (MARR,

Z L,,EXP3.)	;
X (M

Z@ALL,L,,DEXP3.)	;

Z`
X (MARI,L,,EXP2.

[)	;
X (MALI,L,,D

[ EXP2.)	;
;
;
X

[@ (RDDI,L,S)	;
X

[`(RDDR,L,S)	;
X (

\RDER,L,S)	;
X (R

\ DHI,L,S)	;
X (RD

\@LI,L,S)	;
X (RDN

\`E,L,S)	;
X (RDNO

],L,S)	;
X (RDPO,

] L,S)	;
X (RDRA,L

]@,S)	;
X (RDUN,L,

]`S)	;
X (RDHO,L,S

^)	;
;
X (SAGC,3

^ )	;
X (SAAR,3)	;

^@
;
Y (SSST,L,S)

^`	;
Y (SSLG,L,S)

_;
Y (SSLK,L,S)	;

_ 
Y (SSHD,L,S)	;

_@
X (SSSC,L,S)	;

_`X (SSPD,L,S)	;
X

` (SSOU,L,S)	;
X

` (SSFO,L,S)	;
X (

`@SSPC,L,S)	;
X (S

``SIT,L,S)	;
X (SS

aFT,L,S)	;
X (SSL

a T,L,S)	;
X (SSCL

a@,L,S)	;
X (SSCA,

a`L,S)	;
X (SSEY,L

b,S)	;
X (SSPV,L,

b S)	;
;
X (SUAC,

b@L)	;
Y (SUSI,L,S

b`)	;
Y (SUPS,L,S)

c	;
Y (SUMA,L,S)

c ;
X (SUHO,L,S)	;

c@
X (SUPA,L,S)	;

c`
X (SUWA,L,S)	;

dX (SUCA,L,S)	;
X

d  (SUAM,L,S)	;
X

d@(SUEV,L,S)    ;

d`X (SUNE,L,S)    ;

e
;
X (YFADR,L)

e ;
X (YFARG,L)	;

e@
X (YFAR2,L)	;
;

e`
X (YXA1,L)
X (

fYXA2,L)
X (YXA3,

f L)
X (YXA4,L)
X

f@ (YXA5,L)
X (YXA

f`6,L)
X (YXA7,L)

g
X (YXA10,L)
X (

g YXA11,L)
X (YXA1

g@2,L)
X (PHPT,L)

g`;
X (FOREX)	;
X

h (FORER)	;
X (OC

h IN8,3)	;
X (IOLN

h@)	;
X (CSEU)	;

h`X (OCEI)	;
X (OC

iINK,2)	;
X (IOCO

i M,2)	;
X (OCUU)

i@;
X (OCTR)	;

i`;
X (CSSW0)	;
X

j (IOCB)	;
X (IOC

j S)	;
X (IONB)	;

j@
X (IORB)	;
X (I

j`OERF)	;
X (OCIND

k,3)	;
X (IOCLA)

k ;
X (OCLD)	;
X (OCINC,3)	;
(2eVu@ ^ |;
	IFDEF ^@.DIRECTIVE,<.DIRE^`CTIVE .NOBIN>
	UNIVERSAL	A    D ECsystem-10/20 SI@MULA RTS %4A(310)   RTS %4A(310)g @$>g<0@$>g
%%%%%1==j 0
IRP A,<
A==j@%%%%%1
%%%%%1==<%%%%%1+1>>YgN@ gN@@ gN/@ gN5p@ gN6@@ gND@@ gNN@@ gNdp@ gNe0@ gNf@@ gN~P@ gO0@ gO@@ gO`@ gO0@ gO@@ gV

0@ gV@ !gV.`@ "gVEp@ gVl@ gVtP@ "gW@  gW0@ gW@ gW<@  ib@@$ib@$ib$@$ib<0@$ib<`@$ib=@$ib> @$ibf@@$ibm`@$ic0@$ic`@$ic@$ic @$ic@$icP@$icP@$ic@@$icP@$ic4@$ig) e(F/
X <ZDN,ZePBI,ZBP,ZCL,ZPB,ZTepE,ZTT,ZAR,ZAC,ZER,ZDR,ZYS,ZXB>
m-A dmK$=9P mK$YP dmK&\P mNM\ZP p ff`
IFIDN <Lch>,<B>,<
A=%%%%d%1
%%%%%1=<%%%%%dh1+1>
>
IFDIF <L

k`>,<B>,<
A=%%%%

l%2
%%%%%2=<%%%%%2+1>
>J[u\q@ q@ q&

0@ qJ

0@ qJ

4 @ qN

0@ qR

0@ q^

4 P q^

4@P r

l@ft
IFIDN <L

l`>,<B>,<X (A,L,

mC)>
IFDIF <L>,<

m B>,<
A%B=%%%%%2

m@
%%%%%2=%%%%%2+Z

m`CP%S
A=%%%%%2-Z

nPC%S
IFNB <D>,<

n %%%%%2=%%%%%2+<D

n@>>
A%E=%%%%%2
>(9Ou,s

L@@ #s$@@ $s)`@ #s|2@ s|h2@ s~2@ sb
@ $sb
@ (sb
 @ (sb
@@ )sb
 @ %sb
0@ %sb
@@ &sb
P@ &sb
`@ 'sb
p@ 'uY@ IxZDNTYPu\`P u]@P uh1 	@J
$%W==1
	`IFNB <B>,<$%W==1	 +<B>>
IFE <$$US	  E-3>,<LI $$$VAL
	 @$$USE==1>
IFE $$	 `USE,<$F $%W(A)>
IFE <$$USE-1>,<$	! L $%W(A)>
IFE <	!@$$USE-2>,<PRINTX 	!`OPD-OPR NESTING ERROR>
$$USE==2u=P 	% J2$%W==2
IF	%@NB <B>,<$%W==2+<	%`B>
>
IFE <$$US	&E-3>,<LI $$$VAL
	& $$USE==1>
$F $%W(A)u(6 	"0J%
$%W==1
	"PIFNB <B>,<$%W==1	"p+<B>>
IFE <$$US	#E-3>,<LI $$$VAL
	#0$$USE==1>
IFE $$	#PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	$R $%W(A)>
IFE <	$0$$USE-2>,<PRINTX 	$POPD-OPR NESTING ERROR>
$$USE==2u xP_W
$%W==0
xpIFNB <B>,<$%W==0y+<B>>
IFE <$$USy0E-3>,<LI $$$VAL
yP$$USE==1>
IFE $$ypUSE,<$F $%W(A)>
IFE <$$USE-1>,<$z0R $%W(A)>
IFE <zP$$USE-2>,<PRINTX zpOPD-OPR NESTING ERROR>
$$USE==2uM r_%
$%W==0
q`IFNB <B>,<$%W==0s+<B>>
IFE <$$USrpE-3>,<LI $$$VAL
x$$USE==1>
IFE $$qUSE,<$F $%W(A)>
IFE <$$USE-1>,<$sPB [$ZAPDTP B(A)sp]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pt0RINTX INVALID USEtP OF FIELD>
$$USE==24 @qN

0uXV u _@
$%W==0
u@IFNB <B>,<$%W==0u`+<B>>
IFE <$$USvE-3>,<LI $$$VAL
v $$USE==1>
IFE $$v@USE,<$F $%W(A)>
IFE <$$USE-1>,<$wB [$ZAPEBL B(A)w ]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pw`RINTX INVALID USEx OF FIELD>
$$USE==2]@Pu
L+Vum n0_
IFE <%OPnP%-1>,<%OP1 400000np>
IFE %OP%,<%OP1o 377777>
IFE <%Oo0P%-2>,<$$E(<ILL SoPWITCH NAME>)>
IFopGE <%OP%-3>,<IFB p<A>,<%OP1 400000p0>
	IFNB <A>,<%OpPP1 A,400000>>
IppFL<%OP%-2>,<%OP3 0(A)>
%OP%==2uyY {@_n
$%W==0
{`IFNB <B>,<$%W==0|+<B>>
IFE <$$US| E-3>,<LI $$$VAL
|@$$USE==1>
IFE $$|`USE,<$F $%W(A)>
IFE <$$USE-1>,<$} R $%W(A)>
IFE <}@$$USE-2>,<PRINTX }`OPD-OPR NESTING ERROR>
$$USE==2u,: ~0`
$%W==-1
IFNB <B>,<$%W==~p-1+<B>>
IFE <$$USE-3>,<LI $$$VAL0
$$USE==1>
IFE P$$USE,<$F $%W(A)p>
IFE <$$USE-1>,

<$R $%W(A)>
IFE

0 <$$USE-2>,<PRINT

PX OPD-OPR NESTING

p ERROR>
$$USE==2ug,:Qxu[ruY@ J5ZDNTYPu\`P u]@P u(2 	*JX$%W==2
IF	* NB <B>,<$%W==2+<	*@B>
>
IFE <$$US	*`E-3>,<LI $$$VAL
	+$$USE==1>
$F $%W(A)uKx 	8@KL$%W==-2
I	8`FNB <B>,<$%W==-2	9+<B>
>
IFE <$$	9 USE-3>,<LI $$$VAL	9@
$$USE==1>
$F $%W(A)Hq	jWuI7 	'JK
$%W==1
	'0IFNB <B>,<$%W==1	'P+<B>>
IFE <$$US	'pE-3>,<LI $$$VAL
	($$USE==1>
IFE $$	(0USE,<$F $%W(A)>
IFE <$$USE-1>,<$	(pR $%W(A)>
IFE <	)$$USE-2>,<PRINTX 	)0OPD-OPR NESTING ERROR>
$$USE==2uK{ 	5 K2$%W==2
IF	5@NB <B>,<$%W==2+<	5`B>
>
IFE <$$US	6E-3>,<LI $$$VAL
	6 $$USE==1>
$F $%W(A)RF;utI:u=1 	/K
$%W==3
	/ IFNB <B>,<$%W==3	/@+<B>>
IFE <$$US	/`E-3>,<LI $$$VAL
	0$$USE==1>
IFE $$	0 USE,<$F $%W(A)>
IFE <$$USE-1>,<$	0`B [$ZARSUB B(A)	1]-$$RELO($$BAS)>
IFE <$$USE-2>,<P	1@RINTX INVALID USE	1` OF FIELD>
$$USE==2-AF,mK$=9uN8 	+PJs
$%W==3
	+pIFNB <B>,<$%W==3	,+<B>>
IFE <$$US	,0E-3>,<LI $$$VAL
	,P$$USE==1>
IFE $$	,pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	-0B [$ZARTYP B(A)	-P]-$$RELO($$BAS)>
IFE <$$USE-2>,<P	.RINTX INVALID USE	.0 OF FIELD>
$$USE==2kVPc%wu\ 	6pK?$%W==3
IF	7NB <B>,<$%W==3+<	70B>
>
IFE <$$US	7PE-3>,<LI $$$VAL
	7p$$USE==1>
$F $%W(A)Ik$Y@u, 	20K%
$%W==3
	2PIFNB <B>,<$%W==3	2p+<B>>
IFE <$$US	3E-3>,<LI $$$VAL
	30$$USE==1>
IFE $$	3PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	4R $%W(A)>
IFE <	40$$USE-2>,<PRINTX 	4POPD-OPR NESTING ERROR>
$$USE==2u
HY@ HUZDNTYPu
H\`P u
H]@P u
L+V 	Ho
$%W==1
	0IFNB <B>,<$%W==1	P+<B>>
IFE <$$US	pE-3>,<LI $$$VAL

$$USE==1>
IFE $$

0USE,<$F $%W(A)>

P
IFE <$$USE-1>,<$

pB-[$ZBIBNM$B(A)	
IFEN<$$USE-2>,<P	E	
$$USE==2u
O, 	@I
$%W==1
	`IFNB <B>,<$%W==1	+<B>>
IFE <$$US	 E-3>,<LI $$$VAL
	@$$USE==1>
IFE $$	`USE,<$F $%W(A)>
IFE <$$USE-1>,<$	 R $%W(A)>
IFE <	@$$USE-2>,<PRINTX 	`OPD-OPR NESTING ERROR>
$$USE==2uY@ SxLku\`P u]@P uxt (pZ^
$%W==-3
IFNB <B>,<$%W==*-3+<B>>
IFE <$$)`USE-3>,<LI $$$VALxp
$$USE==1>
IFE ( $$USE,<$F $%W(A)*@>
IFE <$$USE-1>,*`<$B [$ZCPGCI B(+A)]-$$RELO($$BAS)+ >
IFE <$$USE-2>,+@<PRINTX INVALID U+`SE OF FIELD>
$$USE==2QWc	k+0u0 #pZ'$%W==-2
I$FNB <B>,<$%W==-2$0+<B>
>
IFE <$$$PUSE-3>,<LI $$$VAL$p
$$USE==1>
$F $%W(A)N	j.+u9 % Z@
IFE <%OP%@%-1>,<%OP1 400000%`>
IFE %OP%,<%OP1& 377777>
IFE <%O& P%-2>,<$$E(<ILL S&@WITCH NAME>)>
IF&`GE <%OP%-3>,<IFB '<A>,<%OP1 400000' >
	IFNB <A>,<%O'@P1 A,400000>>
I'`FL<%OP%-2>,<%OP3 (-3(A)>
%OP%==2E OF FIELD>
$$Uu

V  `Z
$%W==-1
IFNB <B>,<$%W==! -1+<B>>
IFE <$$!@USE-3>,<LI $$$VAL!`
$$USE==1>
IFE "$$USE,<$F $%W(A)" >
IFE <$$USE-1>,"@<$R $%W(A)>
IFE"` <$$USE-2>,<PRINT#X OPD-OPR NESTING#  ERROR>
$$USE==2	j&.PQI!	j&.Pu
IFE <%OP,0%-1>,<%OP1 20000>,P
IFE %OP%,<%OP1 ,p757777>
IFE <%OP-%-2>,<$$E(<ILL SW-0ITCH NAME>)>
IFG-PE <%OP%-3>,<IFB <-pA>,<%OP1 20000>
	IFNB <A>,<%OP1.0 A,20000>>
IFL<.P%OP%-2>,<%OP3 -3(A)>
%OP%==2 Uu8V PZ
$%W==-1
IFNB <B>,<$%W==-1+<B>>
IFE <$$0USE-3>,<LI $$$VALP
$$USE==1>
IFE p$$USE,<$F $%W(A)>
IFE <$$USE-1>,0<$L $%W(A)>
IFEP <$$USE-2>,<PRINTpX OPD-OPR NESTING  ERROR>
$$USE==2	j%NQO
$%W==-3
IFNB <B>,<$%W==0p-3+<B>>
IFE <$$0PUSE-3>,<LI $$$VALxP
$$USE==1>
IFE .p$$USE,<$F $%W(A)/>
IFE <$$USE-1>,10<$B [$ZCPSTA B(1PA)]-$$RELO($$BAS)1p>
IFE <$$USE-2>,2<PRINTX INVALID U20SE OF FIELD>
$$USE==2M>	k&lxuj2 4P[-$%W==-5
I4pFNB <B>,<$%W==-55+<B>
>
IFE <$$50USE-3>,<LI $$$VAL5P
$$USE==1>
$F $%W(A)j%NQu(x 3[ $%W==-4
I3 FNB <B>,<$%W==-43@+<B>
>
IFE <$$3`USE-3>,<LI $$$VAL4
$$USE==1>
$F $%W(A)j)u(9 	rO$%W==0
IF	r NB <B>,<$%W==0+<	r@B>
>
IFE <$$US	r`E-3>,<LI $$$VAL
	s$$USE==1>
$F $%W(A)zK	j-u, 	sPO%$%W==1
IF	spNB <B>,<$%W==1+<	tB>
>
IFE <$$US	t0E-3>,<LI $$$VAL
	tP$$USE==1>
$F $%W(A)wQFV	j%hwud+V 	i0N]
$%W==1
	iPIFNB <B>,<$%W==1	ip+<B>>
IFE <$$US	jE-3>,<LI $$$VAL
	j0$$USE==1>
IFE $$	jPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	kR $%W(A)>
IFE <	k0$$USE-2>,<PRINTX 	kPOPD-OPR NESTING ERROR>
$$USE==2ud82 	l Nt
$%W==0
	l@IFNB <B>,<$%W==0	l`+<B>>
IFE <$$US	mE-3>,<LI $$$VAL
	m $$USE==1>
IFE $$	m@USE,<$F $%W(A)>
IFE <$$USE-1>,<$	nL $%W(A)>
IFE <	n $$USE-2>,<PRINTX 	n@OPD-OPR NESTING ERROR>
$$USE==2ug(T 	oO
$%W==0
	o0IFNB <B>,<$%W==0	oP+<B>>
IFE <$$US	opE-3>,<LI $$$VAL
	p$$USE==1>
IFE $$	p0USE,<$F $%W(A)>
IFE <$$USE-1>,<$	ppR $%W(A)>
IFE <	q$$USE-2>,<PRINTX 	q0OPD-OPR NESTING ERROR>
$$USE==2uty ~@H
IFE <%OP~ %-1>,<%OP1 100000~>
IFE %OP%,<%OP10 677777>
IFE <%OP%-2>,<$$E(<ILL S{0WITCH NAME>)>
IF}0GE <%OP%-3>,<IFB }P<A>,<%OP1 100000p>
	IFNB <A>,<%O	P1 A,100000>>
I	0FL<%OP%-2>,<%OP3 0(A)>
%OP%==2ut;R gPFT
$%W==0
gpIFNB <B>,<$%W==0h+<B>>
IFE <$$USh0E-3>,<LI $$$VAL
hP$$USE==1>
IFE $$iUSE,<$F $%W(A)>
IFE <$$USE-1>,<$i@B [$ZDNCND B(A)i`]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pj RINTX INVALID USEj@ OF FIELD>
$$USE==2utI: jpFk
IFE <%OPk%-1>,<%OP1 400000k0>
IFE %OP%,<%OP1kP 377777>
IFE <%OkpP%-2>,<$$E(<ILL SlWITCH NAME>)>
IFl0GE <%OP%-3>,<IFB lP<A>,<%OP1 400000lp>
	IFNB <A>,<%OmP1 A,400000>>
Im0FL<%OP%-2>,<%OP3 0(A)>
%OP%==2uu9 	`H
IFE <%OP	@%-1>,<%OP1 40000>	 
IFE %OP%,<%OP1 	P737777>
IFE <%OP	0%-2>,<$$E(<ILL SW{ITCH NAME>)>
IFG	PE <%OP%-3>,<IFB <	pA>,<%OP1 40000>
	IFNB <A>,<%OP1	0 A,40000>>
IFL<	P%OP%-2>,<%OP3 0(A)>
%OP%==2USEuuKU 	HR
$%W==0
	 IFNB <B>,<$%W==0	@+<B>>
IFE <$$US	`E-3>,<LI $$$VAL
		$$USE==1>
IFE $$		 USE,<$F $%W(A)>
IFE <$$USE-1>,<$		`R $%W(A)>
IFE <	
$$USE-2>,<PRINTX 	
 OPD-OPR NESTING ERROR>
$$USE==2uvI9 n`Gi
IFE <%OPn@%-1>,<%OP1 200000n >
IFE %OP%,<%OP1| 577777>
IFE <%O{pP%-2>,<$$E(<ILL S{PWITCH NAME>)>
IFmPGE <%OP%-3>,<IFB mp<A>,<%OP1 200000|P>
	IFNB <A>,<%O|pP1 A,200000>>
I}FL<%OP%-2>,<%OP3 0(A)>
%OP%==2uvN8 	`H;
$%W==0
	@IFNB <B>,<$%W==0	p+<B>>
IFE <$$US	PE-3>,<LI $$$VAL
zp$$USE==1>
IFE $$	pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	0B [$ZDNTYP B(A)	P]-$$RELO($$BAS)>
IFE <$$USE-2>,<P	RINTX INVALID USE	0 OF FIELD>
$$USE==2uXT 
0P%
$%W==1

PIFNB <B>,<$%W==1
p+<B>>
IFE <$$US
E-3>,<LI $$$VAL

0$$USE==1>
IFE $$
PUSE,<$F $%W(A)>
p
IFE <$$USE-1>,<$
R $%W(A)>
IFE <
0$$USE-2>,<PRINTX 
POPD-OPR NESTING ERROR>
$$USE==2u(T 	@P
$%W==0
	`IFNB <B>,<$%W==0
+<B>>
IFE <$$US
 E-3>,<LI $$$VAL

@$$USE==1>
IFE $$
`USE,<$F $%W(A)>

IFE <$$USE-1>,<$
 R $%W(A)>
IFE <
@$$USE-2>,<PRINTX 
`OPD-OPR NESTING ERROR>
$$USE==2u, 	|POw
$%W==0
	|pIFNB <B>,<$%W==0	}+<B>>
IFE <$$US	}0E-3>,<LI $$$VAL
	}P$$USE==1>
IFE $$	}pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	~0L $%W(A)>
IFE <	~P$$USE-2>,<PRINTX 	~pOPD-OPR NESTING ERROR>
$$USE==2uY@ I	ZDNTYPu\`P u]@P uR 	@Ih
$%W==-1
IFNB <B>,<$%W==	-1+<B>>
IFE <$$	 USE-3>,<LI $$$VAL	@
$$USE==1>
IFE 	`$$USE,<$F $%W(A)	>
IFE <$$USE-1>,	 <$R $%W(A)>
IFE	@ <$$USE-2>,<PRINT	`X OPD-OPR NESTING	 ERROR>
$$USE==2uI7 	@I6
$%W==1
	`IFNB <B>,<$%W==1	+<B>>
IFE <$$US	 E-3>,<LI $$$VAL
	@$$USE==1>
IFE $$	`USE,<$F $%W(A)>
IFE <$$USE-1>,<$	 R $%W(A)>
IFE <	@$$USE-2>,<PRINTX 	`OPD-OPR NESTING ERROR>
$$USE==2u(1 	PI
$%W==1
	pIFNB <B>,<$%W==1	+<B>>
IFE <$$US	0E-3>,<LI $$$VAL
	P$$USE==1>
IFE $$	pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	0L $%W(A)>
IFE <	P$$USE-2>,<PRINTX 	pOPD-OPR NESTING ERROR>
$$USE==2u(T 	0IO
$%W==-1
IFNB <B>,<$%W==	p-1+<B>>
IFE <$$	USE-3>,<LI $$$VAL	0
$$USE==1>
IFE 	P$$USE,<$F $%W(A)	p>
IFE <$$USE-1>,	<$L $%W(A)>
IFE	0 <$$USE-2>,<PRINT	PX OPD-OPR NESTING	p ERROR>
$$USE==2u, 	PIu$%W==-2
I	pFNB <B>,<$%W==-2	+<B>
>
IFE <$$	0USE-3>,<LI $$$VAL	P
$$USE==1>
$F $%W(A)u(T 	cPN/
$%W==0
	cpIFNB <B>,<$%W==0	d+<B>>
IFE <$$US	d0E-3>,<LI $$$VAL
	dP$$USE==1>
IFE $$	dpUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	e0R $%W(A)>
IFE <	eP$$USE-2>,<PRINTX 	epOPD-OPR NESTING ERROR>
$$USE==2u,y 	``N
$%W==0
	aIFNB <B>,<$%W==0	a +<B>>
IFE <$$US	a@E-3>,<LI $$$VAL
	a`$$USE==1>
IFE $$	bUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	b@L $%W(A)>
IFE <	b`$$USE-2>,<PRINTX 	cOPD-OPR NESTING ERROR>
$$USE==2u5yY 	[Mj
$%W==0
	[ IFNB <B>,<$%W==0	[@+<B>>
IFE <$$US	[`E-3>,<LI $$$VAL
	\$$USE==1>
IFE $$	\ USE,<$F $%W(A)>
IFE <$$USE-1>,<$	\`L $%W(A)>
IFE <	]$$USE-2>,<PRINTX 	] OPD-OPR NESTING ERROR>
$$USE==2u7(T 	]pN
$%W==0
	^IFNB <B>,<$%W==0	^0+<B>>
IFE <$$US	^PE-3>,<LI $$$VAL
	^p$$USE==1>
IFE $$	USE,<$F $%W(A)>
IFE <$$USE-1>,<$	_PR $%W(A)>
IFE <	_p$$USE-2>,<PRINTX 	`OPD-OPR NESTING ERROR>
$$USE==2uY@ TZDNTYPu\`P u]@P uI7 
D T4
$%W==1

D@IFNB <B>,<$%W==1
D`+<B>>
IFE <$$US
EE-3>,<LI $$$VAL

E $$USE==1>
IFE $$
E@USE,<$F $%W(A)>
E`
IFE <$$USE-1>,<$
FR $%W(A)>
IFE <
F $$USE-2>,<PRINTX 
F@OPD-OPR NESTING ERROR>
$$USE==2u)9 
JTb
$%W==2

J IFNB <B>,<$%W==2
J@+<B>>
IFE <$$US
J`E-3>,<LI $$$VAL

K$$USE==1>
IFE $$
K USE,<$F $%W(A)>
K@
IFE <$$USE-1>,<$
K`R $%W(A)>
IFE <
L$$USE-2>,<PRINTX 
L OPD-OPR NESTING ERROR>
$$USE==2u); 
GTK
$%W==2

G0IFNB <B>,<$%W==2
GP+<B>>
IFE <$$US
GpE-3>,<LI $$$VAL

H$$USE==1>
IFE $$
H0USE,<$F $%W(A)>
HP
IFE <$$USE-1>,<$
HpL $%W(A)>
IFE <
I$$USE-2>,<PRINTX 
I0OPD-OPR NESTING ERROR>
$$USE==2u-H 
L`Tn$%W==3
IF
MNB <B>,<$%W==3+<
M B>
>
IFE <$$US
M@E-3>,<LI $$$VAL

M`$$USE==1>
$F $%W(A)u0Y@ S!IIu0\`P u0]@P u6J6 
_pV$%W==3
IF
`NB <B>,<$%W==3+<
`0B>
>
IFE <$$US
`PE-3>,<LI $$$VAL

`p$$USE==1>
$F $%W(A)SLJuS&<u7(V 
NPU
$%W==0

NpIFNB <B>,<$%W==0
O+<B>>
IFE <$$US
O0E-3>,<LI $$$VAL

OP$$USE==1>
IFE $$
OpUSE,<$F $%W(A)>
P
IFE <$$USE-1>,<$
P0L $%W(A)>
IFE <
PP$$USE-2>,<PRINTX 
PpOPD-OPR NESTING ERROR>
$$USE==2u7(t 
]Uz
$%W==2

] IFNB <B>,<$%W==2
]@+<B>>
IFE <$$US
]`E-3>,<LI $$$VAL

^$$USE==1>
IFE $$
^ USE,<$F $%W(A)>
^@
IFE <$$USE-1>,<$
^`R $%W(A)>
IFE <
_$$USE-2>,<PRINTX 
_ OPD-OPR NESTING ERROR>
$$USE==2u7)9 
ZUc
$%W==2

Z0IFNB <B>,<$%W==2
ZP+<B>>
IFE <$$US
ZpE-3>,<LI $$$VAL

[$$USE==1>
IFE $$
[0USE,<$F $%W(A)>
[P
IFE <$$USE-1>,<$
[pL $%W(A)>
IFE <
\$$USE-2>,<PRINTX 
\0OPD-OPR NESTING ERROR>
$$USE==2u7+ 
T0U5
$%W==1

TPIFNB <B>,<$%W==1
Tp+<B>>
IFE <$$US
UE-3>,<LI $$$VAL

U0$$USE==1>
IFE $$
UPUSE,<$F $%W(A)>
Up
IFE <$$USE-1>,<$
VL $%W(A)>
IFE <
V0$$USE-2>,<PRINTX 
VPOPD-OPR NESTING ERROR>
$$USE==2u7, 
Q@U
$%W==0

Q`IFNB <B>,<$%W==0
R+<B>>
IFE <$$US
R E-3>,<LI $$$VAL

R@$$USE==1>
IFE $$
R`USE,<$F $%W(A)>
S
IFE <$$USE-1>,<$
S R $%W(A)>
IFE <
S@$$USE-2>,<PRINTX 
S`OPD-OPR NESTING ERROR>
$$USE==2u7,V 
W UL
$%W==1

W@IFNB <B>,<$%W==1
W`+<B>>
IFE <$$US
XE-3>,<LI $$$VAL

X $$USE==1>
IFE $$
X@USE,<$F $%W(A)>
X`
IFE <$$USE-1>,<$
YR $%W(A)>
IFE <
Y $$USE-2>,<PRINTX 
Y@OPD-OPR NESTING ERROR>
$$USE==2ud 
"R#
$%W==1

"0IFNB <B>,<$%W==1
"P+<B>>
IFE <$$US
"pE-3>,<LI $$$VAL

#$$USE==1>
IFE $$
#0USE,<$F $%W(A)>
#P
IFE <$$USE-1>,<$
#pR $%W(A)>
IFE <
$$$USE-2>,<PRINTX 
$0OPD-OPR NESTING ERROR>
$$USE==2udr 
PQ+
$%W==0

0IFNB <B>,<$%W==0
+<B>>
IFE <$$US
0E-3>,<LI $$$VAL

P$$USE==1>
IFE $$
pUSE,<$F $%W(A)>

IFE <$$USE-1>,<$
0B [$ZFLAKD B(A)
P]-$$RELO($$BAS)>
p
IFE <$$USE-2>,<P
RINTX INVALID USE
0 OF FIELD>
$$USE==2ud 
PPZ
$%W==0

0IFNB <B>,<$%W==0
	`+<B>>
IFE <$$US
	@E-3>,<LI $$$VAL
zP$$USE==1>
IFE $$
`USE,<$F $%W(A)>

IFE <$$USE-1>,<$

 B [$ZFLATP B(A)

@]-$$RELO($$BAS)>

`
IFE <$$USE-2>,<P
RINTX INVALID USE
  OF FIELD>
$$USE==2ud;[ 
`QB
IFE <%OP
%-1>,<%OP1 20>
I
 FE %OP%,<%OP1 777
@757>
IFE <%OP%-2
`>,<$$E(<ILL SWITC
H NAME>)>
IFGE <
 %OP%-3>,<IFB <A>
@,<%OP1 20>
	IFNB
` <A>,<%OP1 A,20
>>
IFL<%OP%-2>,<
 %OP3 0(A)>
%OP%==2 INVALID USEud= 
+ Rp
$%W==0

+@IFNB <B>,<$%W==0
+`+<B>>
IFE <$$US
,E-3>,<LI $$$VAL

, $$USE==1>
IFE $$
,@USE,<$F $%W(A)>
,`
IFE <$$USE-1>,<$
-B [$ZFLCTP B(A)
- ]-$$RELO($$BAS)>
-@
IFE <$$USE-2>,<P
-`RINTX INVALID USE
. OF FIELD>
$$USE==2XO'	j%HWudM 
pPu
$%W==0

IFNB <B>,<$%W==0

0+<B>>
IFE <$$US

PE-3>,<LI $$$VAL

p$$USE==1>
IFE $$
USE,<$F $%W(A)>
0
IFE <$$USE-1>,<$
PB [$ZFLDTP B(A)
p]-$$RELO($$BAS)>

IFE <$$USE-2>,<P
0RINTX INVALID USE
P OF FIELD>
$$USE==2udm 
0Q^
$%W==0

IFNB <B>,<$%W==0
 +<B>>
IFE <$$USz0E-3>,<LI $$$VAL
z$$USE==1>
IFE $$
@USE,<$F $%W(A)>
`
IFE <$$USE-1>,<$
`B [$ZFLFTP B(A)
]-$$RELO($$BAS)>
 
IFE <$$USE-2>,<P
@RINTX INVALID USE
` OF FIELD>
$$USE==20Pcj uem 
P<
IFE <%OP
 %-1>,<%OP1 400000
@>
IFE %OP%,<%OP1
` 377777>
IFE <%O
P%-2>,<$$E(<ILL S
 WITCH NAME>)>
IF
@GE <%OP%-3>,<IFB 
`<A>,<%OP1 400000
>
	IFNB <A>,<%O
 P1 A,400000>>
I
@FL<%OP%-2>,<%OP3 0(A)>
%OP%==2ueyY 
%R:
$%W==1

% IFNB <B>,<$%W==1
%@+<B>>
IFE <$$US
%`E-3>,<LI $$$VAL

&$$USE==1>
IFE $$
& USE,<$F $%W(A)>
&@
IFE <$$USE-1>,<$
&`R $%W(A)>
IFE <
'$$USE-2>,<PRINTX 
' OPD-OPR NESTING ERROR>
$$USE==2ufI 
'pRU
$%W==0

(IFNB <B>,<$%W==0
(0+<B>>
IFE <$$US
(PE-3>,<LI $$$VAL

(p$$USE==1>
IFE $$
)USE,<$F $%W(A)>
)0
IFE <$$USE-1>,<$
)PB [$ZFLTDK B(A)
)p]-$$RELO($$BAS)>
*
IFE <$$USE-2>,<P
*0RINTX INVALID USE
*P OF FIELD>
$$USE==2<{QJ4	j

<{ufm 
0Q
IFE <%OP
P%-1>,<%OP1 4000>
p
IFE %OP%,<%OP1 7
73777>
IFE <%OP%
0-2>,<$$E(<ILL SWI
PTCH NAME>)>
IFGE
p <%OP%-3>,<IFB <
A>,<%OP1 4000>
	
0IFNB <A>,<%OP1 
PA,4000>>
IFL<%OP
p%-2>,<%OP3 0(A)>
%OP%==2ug(T 
0Qu
$%W==0

PIFNB <B>,<$%W==0
p+<B>>
IFE <$$US
E-3>,<LI $$$VAL

0$$USE==1>
IFE $$
PUSE,<$F $%W(A)>
p
IFE <$$USE-1>,<$
R $%W(A)>
IFE <
0$$USE-2>,<PRINTX 
POPD-OPR NESTING ERROR>
$$USE==2ug,: 
 R


$%W==1

@IFNB <B>,<$%W==1
`+<B>>
IFE <$$US
 E-3>,<LI $$$VAL

  $$USE==1>
IFE $$
 @USE,<$F $%W(A)>
 `
IFE <$$USE-1>,<$
!L $%W(A)>
IFE <
! $$USE-2>,<PRINTX 
!@OPD-OPR NESTING ERROR>
$$USE==2u[r b^'
$%W==0
b0IFNB <B>,<$%W==0bP+<B>>
IFE <$$USbpE-3>,<LI $$$VAL
c$$USE==1>
IFE $$c0USE,<$F $%W(A)>
IFE <$$USE-1>,<$cpB [$ZFPMOD B(A)d]-$$RELO($$BAS)>
IFE <$$USE-2>,<PdPRINTX INVALID USEdp OF FIELD>
$$USE==2KZPB	j5KsuyY e@^>
$%W==0
e`IFNB <B>,<$%W==0f+<B>>
IFE <$$USf E-3>,<LI $$$VAL
f@$$USE==1>
IFE $$f`USE,<$F $%W(A)>
IFE <$$USE-1>,<$g R $%W(A)>
IFE <g@$$USE-2>,<PRINTX g`OPD-OPR NESTING ERROR>
$$USE==2uK5 h0^Y
$%W==0
hPIFNB <B>,<$%W==0hp+<B>>
IFE <$$USiE-3>,<LI $$$VAL
i0$$USE==1>
IFE $$iPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$jB [$ZFPTMK B(A)j0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PjpRINTX INVALID USEk OF FIELD>
$$USE==2YZV"	k[u, k`^p
$%W==1
lIFNB <B>,<$%W==1l +<B>>
IFE <$$USl@E-3>,<LI $$$VAL
l`$$USE==1>
IFE $$mUSE,<$F $%W(A)>
IFE <$$USE-1>,<$m@R $%W(A)>
IFE <m`$$USE-2>,<PRINTX nOPD-OPR NESTING ERROR>
$$USE==2u2$XV 	f@NF
$%W==1
	f`IFNB <B>,<$%W==1	g+<B>>
IFE <$$US	g E-3>,<LI $$$VAL
	g@$$USE==1>
IFE $$	g`USE,<$F $%W(A)>
IFE <$$USE-1>,<$	h L $%W(A)>
IFE <	h@$$USE-2>,<PRINTX 	h`OPD-OPR NESTING ERROR>
$$USE==2u28Y@ VuZDNTYPKZu28\`P u28]@P u2>

R 
rW"
$%W==2

r IFNB <B>,<$%W==2
r@+<B>>
IFE <$$US
r`E-3>,<LI $$$VAL

s$$USE==1>
IFE $$
s USE,<$F $%W(A)>
s@
IFE <$$USE-1>,<$
s`R $%W(A)>
IFE <
t$$USE-2>,<PRINTX 
t OPD-OPR NESTING ERROR>
$$USE==2u2>=1 
oW
$%W==2

o0IFNB <B>,<$%W==2
oP+<B>>
IFE <$$US
opE-3>,<LI $$$VAL

p$$USE==1>
IFE $$
p0USE,<$F $%W(A)>
pP
IFE <$$USE-1>,<$
ppL $%W(A)>
IFE <
q$$USE-2>,<PRINTX 
q0OPD-OPR NESTING ERROR>
$$USE==2u2t

`k
$%W==0

0IFNB <B>,<$%W==0

P+<B>>
IFE <$$US

pE-3>,<LI $$$VAL

$$USE==1>
IFE $$

0USE,<$F $%W(A)>

P
IFE <$$USE-1>,<$

pR $%W(A)>
IFE <

$$USE-2>,<PRINTX

0OPD-OPR NESTING ERROR>
$$USE==2u2t

pa
$%W==0

IFNB <B>,<$%W==0

0+<B>>
IFE <$$US

PE-3>,<LI $$$VAL

p$$USE==1>
IFE $$

USE,<$F $%W(A)>

0
IFE <$$USE-1>,<$

PR $%W(A)>
IFE <

p$$USE-2>,<PRINTX

OPD-OPR NESTING ERROR>
$$USE==2u2t+

``T
$%W==0

IFNB <B>,<$%W==0

 +<B>>
IFE <$$US

@E-3>,<LI $$$VAL

`$$USE==1>
IFE $$

	USE,<$F $%W(A)>

	 
IFE <$$USE-1>,<$

	@B [$ZLNBLK B(A)

	`]-$$RELO($$BAS)>


IFE <$$USE-2>,<P

 RINTX INVALID USE

@ OF FIELD>
$$USE==2,yS0uS(1u2ur

p`#
IFE <%OP

%-1>,<%OP1 400000

0>
IFE %OP%,<%OP1

P 377777>
IFE <%O

pP%-2>,<$$E(<ILL S

WITCH NAME>)>
IF

0GE <%OP%-3>,<IFB

P<A>,<%OP1 400000

p>
	IFNB <A>,<%O

P1 A,400000>>
I

0FL<%OP%-2>,<%OP3 0(A)>
%OP%==2u2uJ7

a
$%W==0

 IFNB <B>,<$%W==0

@+<B>>
IFE <$$US

`E-3>,<LI $$$VAL

$$USE==1>
IFE $$

 USE,<$F $%W(A)>

@
IFE <$$USE-1>,<$

`L $%W(A)>
IFE <

$$USE-2>,<PRINTX

 OPD-OPR NESTING ERROR>
$$USE==2u2vN8 wP`9
$%W==0

PIFNB <B>,<$%W==0

p+<B>>
IFE <$$US

E-3>,<LI $$$VAL

0$$USE==1>
IFE $$

PUSE,<$F $%W(A)>

p
IFE <$$USE-1>,<$

B [$ZLNTYP B(A)

0]-$$RELO($$BAS)>

P
IFE <$$USE-2>,<P

pRINTX INVALID USE

 OF FIELD>
$$USE==2[Q]	uNf:6u7Y@ XCu7\`P u7]@P u7K{ ?\
$%W==1
?0IFNB <B>,<$%W==1?P+<B>>
IFE <$$US?pE-3>,<LI $$$VAL
@$$USE==1>
IFE $$@0USE,<$F $%W(A)>
IFE <$$USE-1>,<$@pR $%W(A)>
IFE <A$$USE-2>,<PRINTX A0OPD-OPR NESTING ERROR>
$$USE==2u7L[ Dp\9
$%W==2
EIFNB <B>,<$%W==2E0+<B>>
IFE <$$USEPE-3>,<LI $$$VAL
Ep$$USE==1>
IFE $$FUSE,<$F $%W(A)>
IFE <$$USE-1>,<$FPR $%W(A)>
IFE <Fp$$USE-2>,<PRINTX GOPD-OPR NESTING ERROR>
$$USE==2u7M JP\g
$%W==3
JpIFNB <B>,<$%W==3K+<B>>
IFE <$$USK0E-3>,<LI $$$VAL
KP$$USE==1>
IFE $$KpUSE,<$F $%W(A)>
IFE <$$USE-1>,<$L0R $%W(A)>
IFE <LP$$USE-2>,<PRINTX LpOPD-OPR NESTING ERROR>
$$USE==2u7k{ < [t
$%W==1
<@IFNB <B>,<$%W==1<`+<B>>
IFE <$$US=E-3>,<LI $$$VAL
= $$USE==1>
IFE $$=@USE,<$F $%W(A)>
IFE <$$USE-1>,<$>L $%W(A)>
IFE <> $$USE-2>,<PRINTX >@OPD-OPR NESTING ERROR>
$$USE==2u7l[ B\"
$%W==2
B IFNB <B>,<$%W==2B@+<B>>
IFE <$$USB`E-3>,<LI $$$VAL
C$$USE==1>
IFE $$C USE,<$F $%W(A)>
IFE <$$USE-1>,<$C`L $%W(A)>
IFE <D$$USE-2>,<PRINTX D OPD-OPR NESTING ERROR>
$$USE==2u7m G`\P
$%W==3
HIFNB <B>,<$%W==3H +<B>>
IFE <$$USH@E-3>,<LI $$$VAL
H`$$USE==1>
IFE $$IUSE,<$F $%W(A)>
IFE <$$USE-1>,<$I@L $%W(A)>
IFE <I`$$USE-2>,<PRINTX JOPD-OPR NESTING ERROR>
$$USE==2u7+8 90[]
$%W==0
9PIFNB <B>,<$%W==09p+<B>>
IFE <$$US:E-3>,<LI $$$VAL
:0$$USE==1>
IFE $$:PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$;R $%W(A)>
IFE <;0$$USE-2>,<PRINTX ;POPD-OPR NESTING ERROR>
$$USE==2u7,r 6@[F
$%W==0
6`IFNB <B>,<$%W==07+<B>>
IFE <$$US7 E-3>,<LI $$$VAL
7@$$USE==1>
IFE $$7`USE,<$F $%W(A)>
IFE <$$USE-1>,<$8 L $%W(A)>
IFE <8@$$USE-2>,<PRINTX 8`OPD-OPR NESTING ERROR>
$$USE==2uBY@ TqEV`uB\`P uB]@P uBI1 YY
$%W==3
`IFNB <B>,<$%W==3+<B>>
IFE <$$USpE-3>,<LI $$$VAL
y$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$PR $%W(A)>
IFE <p$$USE-2>,<PRINTX OPD-OPR NESTING ERROR>
$$USE==2uBK PX?
$%W==2
pIFNB <B>,<$%W==2+<B>>
IFE <$$US0E-3>,<LI $$$VAL
P$$USE==1>
IFE $$pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$0R $%W(A)>
IFE <P$$USE-2>,<PRINTX pOPD-OPR NESTING ERROR>
$$USE==2uBe `Y%
IFE <%OP@%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7P75777>
IFE <%OP%0-2>,<$$E(<ILL SWIyPTCH NAME>)>
IFGEP <%OP%-3>,<IFB <pA>,<%OP1 2000>
	IFNB <A>,<%OP1 0A,2000>>
IFL<%OPP%-2>,<%OP3 3(A)>
%OP%==2ID USEuBh6 Y?
IFE <%OP`%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7p76777>
IFE <%OP%P-2>,<$$E(<ILL SWIy0TCH NAME>)>
IFGEp <%OP%-3>,<IFB <A>,<%OP1 1000>
	0IFNB <A>,<%OP1 PA,1000>>
IFL<%OPp%-2>,<%OP3 3(A)>
%OP%==2ID USEuBhu pY
IFE <%OP%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7P73777>
IFE <%OP%p-2>,<$$E(<ILL SWITCH NAME>)>
IFGE0 <%OP%-3>,<IFB <PA>,<%OP1 4000>
	pIFNB <A>,<%OP1 A,4000>>
IFL<%OP0%-2>,<%OP3 3(A)>
%OP%==2ID USEuBlX `X(
$%W==2
IFNB <B>,<$%W==2 +<B>>
IFE <$$US@E-3>,<LI $$$VAL
`$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$@L $%W(A)>
IFE <`$$USE-2>,<PRINTX OPD-OPR NESTING ERROR>
$$USE==2uB9  XV
IFE <%OP@%-1>,<%OP1 400000`>
IFE %OP%,<%OP1	 377777>
IFE <%O	 P%-2>,<$$E(<ILL S	@WITCH NAME>)>
IF	`GE <%OP%-3>,<IFB 
<A>,<%OP1 400000
 >
	IFNB <A>,<%O
@P1 A,400000>>
I
`FL<%OP%-2>,<%OP3 3(A)>
%OP%==2uBN8 pXt
$%W==3
PIFNB <B>,<$%W==3
IFE <$$US

`E-3>,<LI $$$VAL
yp$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE[<$$USE-1>,<$)
IFE <$$USE-2>,<P RINTX INVALID USE@ OF FIELD>
$$USE==2RIRuI7uB)X `Yf$%W==4
IFNB <B>,<$%W==4+< B>
>
IFE <$$US@E-3>,<LI $$$VAL
`$$USE==1>
$F $%W(A)QKN	j)uB%;R ^`^


$%W==0
_IFNB <B>,<$%W==0_ +<B>>
IFE <$$US_@E-3>,<LI $$$VAL
_`$$USE==1>
IFE $$`USE,<$F $%W(A)>
IFE <$$USE-1>,<$`@B [$ZPDKND B(A)``]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pa RINTX INVALID USEa@ OF FIELD>
$$USE==2nQQU		j.nQuCY@ F3TYPP-uC\`P uC]@P uC+ 
wWJ
$%W==0

w IFNB <B>,<$%W==0
w@+<B>>
IFE <$$US
w`E-3>,<LI $$$VAL

x$$USE==1>
IFE $$
x USE,<$F $%W(A)>
x@
IFE <$$USE-1>,<$
x`L $%W(A)>
IFE <
y$$USE-2>,<PRINTX 
y OPD-OPR NESTING ERROR>
$$USE==2uCXV 
|`Wx
$%W==1

}IFNB <B>,<$%W==1
} +<B>>
IFE <$$US
}@E-3>,<LI $$$VAL

}`$$USE==1>
IFE $$
~USE,<$F $%W(A)>
~ 
IFE <$$USE-1>,<$
~@L $%W(A)>
IFE <
~`$$USE-2>,<PRINTX 
OPD-OPR NESTING ERROR>
$$USE==2uCX8 
ypWa
$%W==0

zIFNB <B>,<$%W==0
z0+<B>>
IFE <$$US
zPE-3>,<LI $$$VAL

zp$$USE==1>
IFE $$
{USE,<$F $%W(A)>
{0
IFE <$$USE-1>,<$
{PR $%W(A)>
IFE <
{p$$USE-2>,<PRINTX 
|OPD-OPR NESTING ERROR>
$$USE==2uC>6 
PX
$%W==1

pIFNB <B>,<$%W==1+<B>>
IFE <$$US0E-3>,<LI $$$VAL
P$$USE==1>
IFE $$pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$0R $%W(A)>
IFE <P$$USE-2>,<PRINTX pOPD-OPR NESTING ERROR>
$$USE==2uCY@ W%ZDNTYPkuC\`P uC]@P uC); 
uW1$%W==3
IF
u0NB <B>,<$%W==3+<
uPB>
>
IFE <$$US
upE-3>,<LI $$$VAL

v$$USE==1>
$F $%W(A)PPj

<{uK5yY 	u O<
$%W==0
	u@IFNB <B>,<$%W==0	u`+<B>>
IFE <$$US	vE-3>,<LI $$$VAL
	v $$USE==1>
IFE $$	v@USE,<$F $%W(A)>
IFE <$$USE-1>,<$	wL $%W(A)>
IFE <	w $$USE-2>,<PRINTX 	w@OPD-OPR NESTING ERROR>
$$USE==2uK7(T 	xOS
$%W==0
	x0IFNB <B>,<$%W==0	xP+<B>>
IFE <$$US	xpE-3>,<LI $$$VAL
	y$$USE==1>
IFE $$	y0USE,<$F $%W(A)>
IFE <$$USE-1>,<$	ypR $%W(A)>
IFE <	z$$USE-2>,<PRINTX 	z0OPD-OPR NESTING ERROR>
$$USE==2uK7, 	{O`$%W==1
IF	{ NB <B>,<$%W==1+<	{@B>
>
IFE <$$US	{`E-3>,<LI $$$VAL
	|$$USE==1>
$F $%W(A)XPjWuN%
2

$0bO
IFE <%OPw0%-1>,<%OP1 200000

'p>
IFE %OP%,<%OP1

( 577777>
IFE <%O

(0P%-2>,<$$E(<ILL S

(PWITCH NAME>)>
IF

(pGE <%OP%-3>,<IFB

)<A>,<%OP1 200000

)0>
	IFNB <A>,<%O

)PP1 A,200000>>
I

)pFL<%OP%-2>,<%OP3 0(A)>
%OP%==2uN%;R

5c>
$%W==0

5 IFNB <B>,<$%W==0

5@+<B>>
IFE <$$US

5`E-3>,<LI $$$VAL

6$$USE==1>
IFE $$

6 USE,<$F $%W(A)>

6@
IFE <$$USE-1>,<$

6`B [$ZSDKND B(A)

7]-$$RELO($$BAS)>

7 
IFE <$$USE-2>,<P

7@RINTX INVALID USE

7` OF FIELD>
$$USE==2+U!u7,uN%KR

%b=
IFE <%OP

%0%-1>,<%OP1 400000

%P>
IFE %OP%,<%OP1

%p 377777>
IFE <%O

&P%-2>,<$$E(<ILL S

&0WITCH NAME>)>
IF

&PGE <%OP%-3>,<IFB

&p<A>,<%OP1 400000

'>
	IFNB <A>,<%O

'0P1 A,400000>>
I

'PFL<%OP%-2>,<%OP3 0(A)>
%OP%==2uN%[r

1Pc#
$%W==0

1pIFNB <B>,<$%W==0

2+<B>>
IFE <$$US

20E-3>,<LI $$$VAL

2P$$USE==1>
IFE $$

2pUSE,<$F $%W(A)>

3
IFE <$$USE-1>,<$

30B [$ZSDMOD B(A)

3P]-$$RELO($$BAS)>

3p
IFE <$$USE-2>,<P

4RINTX INVALID USE

40 OF FIELD>
$$USE==2,OcuY@uN%k(

; cb$%W==1
IF

;@NB <B>,<$%W==1+<

;`B>
>
IFE <$$US

<E-3>,<LI $$$VAL

< $$USE==1>
$F $%W(A)[\%u7MuN%k)

<pco$%W==2
IF

=NB <B>,<$%W==2+<

=0B>
>
IFE <$$US

=PE-3>,<LI $$$VAL

=p$$USE==1>
$F $%W(A)6YSuBhuuN%yY

80cU
$%W==0

8PIFNB <B>,<$%W==0

8p+<B>>
IFE <$$US

9E-3>,<LI $$$VAL

90$$USE==1>
IFE $$

9PUSE,<$F $%W(A)>

9p
IFE <$$USE-1>,<$

:R $%W(A)>
IFE <

:0$$USE-2>,<PRINTX

:POPD-OPR NESTING ERROR>
$$USE==2uN&<

+bm
$%W==0

*`IFNB <B>,<$%W==0

,+<B>>
IFE <$$US

+pE-3>,<LI $$$VAL
w$$USE==1>
IFE $$

*USE,<$F $%W(A)>

*0
IFE <$$USE-1>,<$

,PB [$ZSDSPI B(A)

,p]-$$RELO($$BAS)>

-
IFE <$$USE-2>,<P

-0RINTX INVALID USE

-P OF FIELD>
$$USE==2Y@Ixu\`uN&N8

. c
$%W==0

.@IFNB <B>,<$%W==0

.`+<B>>
IFE <$$US

/E-3>,<LI $$$VAL

/ $$USE==1>
IFE $$

/@USE,<$F $%W(A)>

/`
IFE <$$USE-1>,<$

0B [$ZSDTYP B(A)

0 ]-$$RELO($$BAS)>

0@
IFE <$$USE-2>,<P

0`RINTX INVALID USE

1 OF FIELD>
$$USE==2,HruY@uN',

>0c{$%W==3
IF

>PNB <B>,<$%W==3+<

>pB>
>
IFE <$$US

?E-3>,<LI $$$VAL

?0$$USE==1>
$F $%W(A)8WMuC>6uNd SP]/
$%W==0
SpIFNB <B>,<$%W==0T+<B>>
IFE <$$UST0E-3>,<LI $$$VAL
TP$$USE==1>
IFE $$TpUSE,<$F $%W(A)>
IFE <$$USE-1>,<$U0R $%W(A)>
IFE <UP$$USE-2>,<PRINTX UpOPD-OPR NESTING ERROR>
$$USE==2uNd[Q Pp]
$%W==0
PPIFNB <B>,<$%W==0R+<B>>
IFE <$$USQ`E-3>,<LI $$$VAL
x0$$USE==1>
IFE $$PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$R@L $%W(A)>
IFE <R`$$USE-2>,<PRINTX SOPD-OPR NESTING ERROR>
$$USE==2uNf:6 M \~
IFE <%OPM@%-1>,<%OP1 400000M`>
IFE %OP%,<%OP1N 377777>
IFE <%ON P%-2>,<$$E(<ILL SN@WITCH NAME>)>
IFN`GE <%OP%-3>,<IFB O<A>,<%OP1 400000O >
	IFNB <A>,<%OO@P1 A,400000>>
IO`FL<%OP%-2>,<%OP3 0(A)>
%OP%==2uNlky

Pa1
$%W==-3

p
IFNB <B>,<$%W==

-3+<B>>
IFE <$$

0USE-3>,<LI $$$VAL

P
$$USE==1>
IFE

p$$USE,<$F $%W(A)

>
IFE <$$USE-1>,

0<$L $%W(A)>
IFE

P <$$USE-2>,<PRINT

pX OPD-OPR NESTING

 ERROR>
$$USE==2	j&	1P'	j&QuNn+H

paW$%W==-2
I

FNB <B>,<$%W==-2

0+<B>
>
IFE <$$

PUSE-3>,<LI $$$VAL

p
$$USE==1>
$F $%W(A)U7	j.nXuNnN8

@ar
$%W==0

`IFNB <B>,<$%W==0

+<B>>
IFE <$$US

 E-3>,<LI $$$VAL

@$$USE==1>
IFE $$

`USE,<$F $%W(A)>


IFE <$$USE-1>,<$

 B [$ZSMTYP B(A)

@]-$$RELO($$BAS)>

`
IFE <$$USE-2>,<P

RINTX INVALID USE

  OF FIELD>
$$USE==2NXQR	j5NXuNo+

`aJ
$%W==-3


IFNB <B>,<$%W==

 -3+<B>>
IFE <$$

@USE-3>,<LI $$$VAL

`
$$USE==1>
IFE

$$USE,<$F $%W(A)

 >
IFE <$$USE-1>,

@<$R $%W(A)>
IFE

` <$$USE-2>,<PRINT

X OPD-OPR NESTING

  ERROR>
$$USE==2	j..RQTM	j..RuNo,v

pb	
$%W==0

IFNB <B>,<$%W==0

0+<B>>
IFE <$$US

PE-3>,<LI $$$VAL

p$$USE==1>
IFE $$

 USE,<$F $%W(A)>

 0
IFE <$$USE-1>,<$

 PL $%W(A)>
IFE <

 p$$USE-2>,<PRINTX

!OPD-OPR NESTING ERROR>
$$USE==2uNo,y

!`b 
$%W==0

"IFNB <B>,<$%W==0

" +<B>>
IFE <$$US

"@E-3>,<LI $$$VAL

"`$$USE==1>
IFE $$

#USE,<$F $%W(A)>

# 
IFE <$$USE-1>,<$

#@R $%W(A)>
IFE <

#`$$USE-2>,<PRINTX

$OPD-OPR NESTING ERROR>
$$USE==2uOi7 X]I$%W==0
IFX0NB <B>,<$%W==0+<XPB>
>
IFE <$$USXpE-3>,<LI $$$VAL
Y$$USE==1>
$F $%W(A)Z	j

uO; V@]<$%W==-2
IV`FNB <B>,<$%W==-2W+<B>
>
IFE <$$W USE-3>,<LI $$$VALW@
$$USE==1>
$F $%W(A)K'	j.XuO, Y`]V$%W==1
IFZNB <B>,<$%W==1+<Z B>
>
IFE <$$USZ@E-3>,<LI $$$VAL
Z`$$USE==1>
$F $%W(A)XQO'	j$XuO(Y@ V
ZDNTYP\`uO(\`P uO(]@P uO,m 
a`V 
$%W==2

bIFNB <B>,<$%W==2
b +<B>>
IFE <$$US
b@E-3>,<LI $$$VAL

b`$$USE==1>
IFE $$
cUSE,<$F $%W(A)>
c 
IFE <$$USE-1>,<$
c@L $%W(A)>
IFE <
c`$$USE-2>,<PRINTX 
dOPD-OPR NESTING ERROR>
$$USE==2uO-KU 
g@VN
$%W==3

g`IFNB <B>,<$%W==3
h+<B>>
IFE <$$US
h E-3>,<LI $$$VAL

h@$$USE==1>
IFE $$
h`USE,<$F $%W(A)>
i
IFE <$$USE-1>,<$
i L $%W(A)>
IFE <
i@$$USE-2>,<PRINTX 
i`OPD-OPR NESTING ERROR>
$$USE==2uO-M 
dPV7
$%W==2

dpIFNB <B>,<$%W==2
e+<B>>
IFE <$$US
e0E-3>,<LI $$$VAL

eP$$USE==1>
IFE $$
epUSE,<$F $%W(A)>
f
IFE <$$USE-1>,<$
f0R $%W(A)>
IFE <
fP$$USE-2>,<PRINTX 
fpOPD-OPR NESTING ERROR>
$$USE==2uO/)9 
j0Ve
$%W==3

jPIFNB <B>,<$%W==3
jp+<B>>
IFE <$$US
kE-3>,<LI $$$VAL

k0$$USE==1>
IFE $$
kPUSE,<$F $%W(A)>
kp
IFE <$$USE-1>,<$
lR $%W(A)>
IFE <
l0$$USE-2>,<PRINTX 
lPOPD-OPR NESTING ERROR>
$$USE==2uO/, 
m Vr$%W==4
IF
m@NB <B>,<$%W==4+<
m`B>
>
IFE <$$US
nE-3>,<LI $$$VAL

n $$USE==1>
$F $%W(A)QPw	j5IuR&N8 [0]q
$%W==0
[PIFNB <B>,<$%W==0[p+<B>>
IFE <$$US\E-3>,<LI $$$VAL
\0$$USE==1>
IFE $$\PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$]B [$ZTDTYP B(A)]0]-$$RELO($$BAS)>
IFE <$$USE-2>,<P]pRINTX INVALID USE^ OF FIELD>
$$USE==2XOy	j&(9uR(Y@ KOZDNTYPh1uR(\`P uR(]@P uR,: 	@L
$%W==2
	@0IFNB <B>,<$%W==2	@P+<B>>
IFE <$$US	@pE-3>,<LI $$$VAL
	A$$USE==1>
IFE $$	A0USE,<$F $%W(A)>
IFE <$$USE-1>,<$	ApB [$ZTECHR B(A)	B]-$$RELO($$BAS)>
IFE <$$USE-2>,<P	BPRINTX INVALID USE	Bp OF FIELD>
$$USE==2uR,; 	:0Ke
$%W==1
	:PIFNB <B>,<$%W==1	:p+<B>>
IFE <$$US	;E-3>,<LI $$$VAL
	;0$$USE==1>
IFE $$	;PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	<L $%W(A)>
IFE <	<0$$USE-2>,<PRINTX 	<POPD-OPR NESTING ERROR>
$$USE==2uR-I7 	= K|
$%W==1
	=@IFNB <B>,<$%W==1	=`+<B>>
IFE <$$US	>E-3>,<LI $$$VAL
	> $$USE==1>
IFE $$	>@USE,<$F $%W(A)>
IFE <$$USE-1>,<$	?R $%W(A)>
IFE <	? $$USE-2>,<PRINTX 	?@OPD-OPR NESTING ERROR>
$$USE==2uRG(8 
1@S
$%W==0

1`IFNB <B>,<$%W==0
2+<B>>
IFE <$$US
2 E-3>,<LI $$$VAL

2@$$USE==1>
IFE $$
2`USE,<$F $%W(A)>
3
IFE <$$USE-1>,<$
3 R $%W(A)>
IFE <
3@$$USE-2>,<PRINTX 
3`OPD-OPR NESTING ERROR>
$$USE==2uRG- 
.PS
$%W==0

.pIFNB <B>,<$%W==0
/+<B>>
IFE <$$US
/0E-3>,<LI $$$VAL

/P$$USE==1>
IFE $$
/pUSE,<$F $%W(A)>
0
IFE <$$USE-1>,<$
00L $%W(A)>
IFE <
0P$$USE-2>,<PRINTX 
0pOPD-OPR NESTING ERROR>
$$USE==2uSY@ F5TPTCuS\`P uS]@P uSh2 
7pSG$%W==-1
I
8FNB <B>,<$%W==-1
80+<B>
>
IFE <$$
8PUSE-3>,<LI $$$VAL
8p
$$USE==1>
$F $%W(A)j)uS(2 
4PS-$%W==-3
I
4pFNB <B>,<$%W==-3
5+<B>
>
IFE <$$
50USE-3>,<LI $$$VAL
5P
$$USE==1>
$F $%W(A)L	k$XtuS,y 
6 S:$%W==-2
I
6@FNB <B>,<$%W==-2
6`+<B>
>
IFE <$$
7USE-3>,<LI $$$VAL
7 
$$USE==1>
$F $%W(A)LI	k&hxuS(1 
<0Su
$%W==0

<PIFNB <B>,<$%W==0
<p+<B>>
IFE <$$US
=E-3>,<LI $$$VAL

=0$$USE==1>
IFE $$
=PUSE,<$F $%W(A)>
=p
IFE <$$USE-1>,<$
>R $%W(A)>
IFE <
>0$$USE-2>,<PRINTX 
>POPD-OPR NESTING ERROR>
$$USE==2uS(T 
9@S^
$%W==0

9`IFNB <B>,<$%W==0
:+<B>>
IFE <$$US
: E-3>,<LI $$$VAL

:@$$USE==1>
IFE $$
:`USE,<$F $%W(A)>
;
IFE <$$USE-1>,<$
; L $%W(A)>
IFE <
;@$$USE-2>,<PRINTX 
;`OPD-OPR NESTING ERROR>
$$USE==2uS Y@ LZDNTYPuS \`P uS ]@P uS$< 	L0Lu
$%W==2
	LPIFNB <B>,<$%W==2	Lp+<B>>
IFE <$$US	ME-3>,<LI $$$VAL
	M0$$USE==1>
IFE $$	MPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	NR $%W(A)>
IFE <	N0$$USE-2>,<PRINTX 	NPOPD-OPR NESTING ERROR>
$$USE==2uS%KS 	I@L^
$%W==2
	I`IFNB <B>,<$%W==2	J+<B>>
IFE <$$US	J E-3>,<LI $$$VAL
	J@$$USE==1>
IFE $$	J`USE,<$F $%W(A)>
IFE <$$USE-1>,<$	K L $%W(A)>
IFE <	K@$$USE-2>,<PRINTX 	K`OPD-OPR NESTING ERROR>
$$USE==2uS&< 	C`L0
$%W==1
	DIFNB <B>,<$%W==1	D +<B>>
IFE <$$US	D@E-3>,<LI $$$VAL
	D`$$USE==1>
IFE $$	EUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	E@L $%W(A)>
IFE <	E`$$USE-2>,<PRINTX 	FOPD-OPR NESTING ERROR>
$$USE==2uS'- 	FPLG
$%W==1
	FpIFNB <B>,<$%W==1	G+<B>>
IFE <$$US	G0E-3>,<LI $$$VAL
	GP$$USE==1>
IFE $$	GpUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	H0R $%W(A)>
IFE <	HP$$USE-2>,<PRINTX 	HpOPD-OPR NESTING ERROR>
$$USE==2uS0Y@ F7YPEXuS0\`P uS0]@P uS4< 	XMS
$%W==1
	X0IFNB <B>,<$%W==1	XP+<B>>
IFE <$$US	XpE-3>,<LI $$$VAL
	Y$$USE==1>
IFE $$	Y0USE,<$F $%W(A)>
IFE <$$USE-1>,<$	YpR $%W(A)>
IFE <	Z$$USE-2>,<PRINTX 	Z0OPD-OPR NESTING ERROR>
$$USE==2uS5KS 	U M<
$%W==1
	U@IFNB <B>,<$%W==1	U`+<B>>
IFE <$$US	VE-3>,<LI $$$VAL
	V $$USE==1>
IFE $$	V@USE,<$F $%W(A)>
IFE <$$USE-1>,<$	WL $%W(A)>
IFE <	W $$USE-2>,<PRINTX 	W@OPD-OPR NESTING ERROR>
$$USE==2uS6< 	O@M
$%W==0
	O`IFNB <B>,<$%W==0	P+<B>>
IFE <$$US	P E-3>,<LI $$$VAL
	P@$$USE==1>
IFE $$	P`USE,<$F $%W(A)>
IFE <$$USE-1>,<$	Q L $%W(A)>
IFE <	Q@$$USE-2>,<PRINTX 	Q`OPD-OPR NESTING ERROR>
$$USE==2uS7- 	R0M%
$%W==0
	RPIFNB <B>,<$%W==0	Rp+<B>>
IFE <$$US	SE-3>,<LI $$$VAL
	S0$$USE==1>
IFE $$	SPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	TR $%W(A)>
IFE <	T0$$USE-2>,<PRINTX 	TPOPD-OPR NESTING ERROR>
$$USE==2ugY@ LxSug\`P ug]@P ugS 
B0T$%W==2
IF
BPNB <B>,<$%W==2+<
BpB>
>
IFE <$$US
CE-3>,<LI $$$VAL

C0$$USE==1>
$F $%W(A)ugI` 
?@T
$%W==1

?`IFNB <B>,<$%W==1
@+<B>>
IFE <$$US
@ E-3>,<LI $$$VAL

@@$$USE==1>
IFE $$
@`USE,<$F $%W(A)>
A
IFE <$$USE-1>,<$
A R $%W(A)>
IFE <
A@$$USE-2>,<PRINTX 
A`OPD-OPR NESTING ERROR>
$$USE==2$Y@P $\h 
v@G7

IFGE	^6D17-^D1,<
IFB <rPC>,<DEFINE ZSDHIDQ@(ACC)<
IFE <%OP%00-1>,<%OP1 B>
IF)@E %OP%,<%OP1 A>
IFE <%OP%-2>,<$$0E(<ILL SWITCH NAME>)>
IFGE <%OP%-

@3>,<IFB <ACC>,<%O
P1 B>
	IFNB <AC
C>,<%OP1 ACC,B>>
	 
IFL<%OP%-2>,<%O	0P3 0(ACC)>
%OP%=	=2>>
IFNB <C>,<~pDEFINE ZSDHID=<
oIFE <%OP%-1>,<%OPo01 B>
IFE %OP%,<oP%OP1 A>
IFE <%OopP%-2>,<$$E(<ILL SpWITCH NAME>)>
IFp0GE <%OP%-3>,<%OP1pP C,B>
IFL <%OPpp%-2>,<%OP3 0(C)>q
%OP%==2>>>

Iq0FL ^D17-^D1,<
IFqPB <>,<DEFINE ZSDHqpID(ACC)<
IFE %OPr%-1,<%OP2 B>
IFr0E %OP%,<%OP2 A>
IFE <%OP%-2>,<$$rpE(<ILL SWITCH NAMsE>)>
IFGE <%OP%-s03>,<IFB <ACC>,<%OsPP2 B>
	IFNB <ACspC>,<%OP2 ACC,B>>t
IFL <%OP%-2>,<%t0OP3 0(ACC)>
%OP%tP==2>>
IFNB <>,<DtpEFINE ZSDHID=<
IuFE <%OP%-1>,<%OP2u0 B>
IFE %OP%,<%uPOP2 A>
IFE <%OPup%-2>,<$$E(<ILL SWvITCH NAME>)>
IFGv0E <%OP%-3>,<%OP2 vPC,B>
IFL <%OP%vp-2>,<%OP3 0(C)>
%OP%==2>>
>
	j

;PQ $H	j

;P $H	j

<{Q 	j

<{ 	j

>PQ H	j

>P H	j2Q H	j2 H	j	Q 6

	j	 6

	j	1Q $	j	1 $	jZQ F	jZ F	jsQ H	js H	jXQ H	jX H	j(PQ 	j(P 	j)Q 	j) 	j+Q H	j+ H	j+Q 	j+ 	j,zQ $$	j,z $$	j-Q 6$	j- 6$	j-8Q 	j-8 	j.XQ H	j.X H	jWQ $$	jW $$	jXQ H	jX H	j	qQ @

~	j	q @

~	j
2Q 	j
2 	j
rQ F~	j
r F~	j

Q H	j

H	j

Q >~	j

 >~	j

qQ $H	j

q $H	j

zQ \~	j

z \~	jQQ ~	jQ ~	j$PQ 	j$P 	j$XQ 	j$X 	j%HWQ H	j%HW H	j%HpQ $H	j%Hp $H	j%NQQ H	j%NQ H	j%h1Q B	j%h1 B	j%hwQ 00	j%hw 00	j%iQ F	j%i F	j%jrQ @	j%jr @	j%kQ H	j%k H	j%mQ D	j%m D	j%mQ $	j%m $	j&	1Q H	j&	1 H	j&QQ H	j&Q H	j&XQ $H	j&X $H	j&(9Q H	j&(9 H	j&+Q H	j&+ H	j&.PQ $H	j&.P $H	j&.QQ $H	j&.Q $H	j&.XQ 	j&.X 	j&>QQ H	j&>Q H	j&>YQ $H	j&>Y $H	j&ksQ $H	j&ks $H	j&nQQ H	j&nQ H	j.+Q H	j.+ H	j..RQ $H	j..R H	j..[Q 	j..[ 	j.mQ 	j.m 	j.nQQ $H	j.nQ $H	j.nQQ H	j.nQ H	j.nRQ $H	j.nR $H	j.nVQ $H	j.nV $H	j.nXQ H	j.nX H	j.nYQ H	j.nY H	j5H2Q H	j5H2 H	j5H5Q 0

	j5H5 0

	j5H:Q <	j5H: <	j5HwQ ,	j5Hw ,	j5HzQ $	j5Hz $	j5IQ 6

	j5I 6

	j5IZQ $	j5IZ $	j5KZQ F	j5KZ F	j5KsQ H	j5Ks H	j5MQ 0(	j5M 0(	j5NQQ H	j5NQ H	j5NXQ $H	j5NX $H	j67Q 6

	j67 6

	j6sQH	j6sH	j6H	jdI1Q $H	jdI1 $H	jd|Q H	jd| H	jd|zQ $H	jd|z $H	jeh2Q H	jeh2 H	jehVQ $4	jehV $4	jekQ $H	jek $H	jemQ >	jem >	jn	Q H	jn	 H	jn	Q H	jn	 H	jn	Q H	jn	 H	jnWQ $H	jnW $H	jnYQ $H	jnY $H	jnZQ $H	jnZ $H	jnVQ H	jnV H	jnYQ $H	jnY $H	k9Q H	k9 H	k9Q H	k9 H	k9JQ 8	k9J 8	k;PQ 6	k;P 6	k;QQ :	k;Q :	k;YQ $H	k;Y $H	k<Q F	k< F	k=Q <	k= <	k>SQ 	k>S 	kJwQ 0

	kJw 0

	k(VQ $H	k(V $H	k)1Q $H	k)1 $H	k+0Q H	k+0 H	k,|Q H	k,| H	k>RQ 	k>R 	kksQ $H	kks $H	knQQ H	knQ H	knXQ 	knX 	kJQ D	kJ D	kJwQ $

	kJw $

	kK7Q *

	kK7 *

	kKVQ 	kKV 	kKsQ H	kKs H	kLxQ 8	kLx 8	kMQ 0	kM 0	kNXQ 	kNX 	kH2Q H	kH2 H	kI7Q $H	kI7 $H	kLtQ F	kLt F	kYWQ $H~	kYW $H~	k\WQ 	k\W 	k]Q @	k] @	k^VQ H~	k^V H~	k^YQ $H	k^Y H	k+RQ 	k+R 	k,vQ 	k,v 	k.XQ 	k.X 	kYZQ $H	kYZ $H	k[Q $H	k[ $H	k[Q H	k[ H	k^RQ H	k^R H	k^XQ 	k^X 	k$MQ <	k$M <	k$XtQ :	k$Xt :	k$XvQ $H	k$Xv $H	k$[Q H	k$[ H	k%PQ H	k%P H	k%ZQ $H	k%Z $H	k&9PQ 	k&9P 	k&<PQ ~	k&<P ~	k&<YQ 	k&<Y 	k&>PQ H	k&>P H	k&>QQ $H	k&>Q $H	k&HxQ H	k&Hx H	k&KQ $H	k&K $H	k&LxQ $H	k&Lx $H	k&NZQ H	k&NZ H	k&hxQ H	k&hx H	k&kQ $H	k&k $H	k&lxQ $H	k&lx $H	k&nZQ H	k&nZ H	kN:7Q 	kN:7 	kN;Q H	kN; H
(Q(P *
(Q)@$Ij

;PP j

<{P j

>PP j2P j	P j	1P jZP jsP jXP j(PP j)P j+P j+P j,zP j-P j-8P j.XP jWP jXP j	qP j
2P j
rP j

P j

P j

qP j

zP jQP j$PP j$XP j%HWP j%HpP j%NQP j%h1P j%hwP j%iP j%jrP j%kP j%mP j%mP j&	1P j&QP j&XP j&(9P j&+P j&.PP j&.QP j&.XP j&>QP j&>YP j&ksP j&nQP j.+P j..RP j..[P j.mP j.nQP j.nQP j.nRP j.nVP j.nXP j.nYP j5H2P j5H5P j5H:P j5HwP j5HzP j5IP j5IZP j5KZP j5KsP j5MP j5NQP j5NXP j67P j6sP j6^YP k+RP k,vP k.XP kYZP k[P k[P k^RP k^XP k$MP k$XtP k$XvP k$[P k%PP k%ZP k&9PP k&<PP k&<YP k&>PP k&>QP k&HxP k&KP k&LxP k&NZP k&hxP k&kP k&lxP k&nZP kN:7P kN;P :pP S@Q >}{woP