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

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

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

x
(4U@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 {`J
$$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-OPR 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 USE 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)>
IH  \
A%S==B@
A%V==D
DEFINE A%F=<C>
IO8 X

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>,<%OP3>
	IFL <%OP%-2 >,<%OP4 B(ACC)>
			%OP%==2>>>
 `IFNB <D>,<DEFINE A=<
	IFE <%OP% -2>,<$$E(<ILL SWI@TCH NAME>)>
	IFN` <%OP%-2>,<
	 IFE <%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
>
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

Yxl

X (CSCA)	?P        
X (CSSNu8)        
X@(CSS      
X`(CS        
X(CA)        
X (SES)        
X@(CSEP)        
X` (CSQU)	
X(CSSB    
X (CSS      
X@(CS        
X`(CN)        
             
X (CSRA)        
X@ (CSSA)        
`
X(PHFV)       
X (PHFA)      
X@(PHFM)     
`          
X(PHFT)   
X (PHFS)  
X@(PHCV) 

X`(CPN      
X(CP        
X (CD)        
X@(XDA)	
X`(CPCA) 
X(CPCD)  
X (CPCI    
X@(CPE      
X`(CP,S)     
X(CS,,S)     

X  (OCEP)        
 @X (OCIN,2)	
X`(OP,L)      

X (TXBL,3,S)     
X@(TXGC,,S)     
X`(TXCY,,S)    
X(TXGI,,S)   
X (TXGR,,S)  
X@(TXLT,,S)	
X (TXMN,,S)	
X` (TXPF,,S)	
X(TC,,S)	
X (TXPX
X@(TXPI,,S
X`(TXST,3,S)	
X (TXSE,,S)	
X (TXSU,3,S)	
X (XRE)	
X@(TXVA,3
X`(TXGF,,S)	
X (TXPR,,S)	

%Y (IOFI,,,1)	
Y (IOIN,,S,1)	
Y@(OOU,,S,1)	
Y`(IF,,S,1)	
Y(IO,S,1)	
X (IOI)	
X@(IOLI,,
X`(IOII,,S)	
X (IOIR,,S)	
X (IOIF,,S)	
X (IT,,S)	
X@(IOIG
X`(IOBO,,S
X(IOOG,,S)	
X (IOOC,,S)	
X (IOOI,,S)	
X@(IO,S)	
X`(IOOR,
X(IOOF,,S)
X (IOOT,,S)	
) X (IOLT,,S)	
X@(OOP,,S)	
X`(IOC)	
X(IOEJ,,
X (IOSP,,S)	
X (IOLP,,S)	
*@
X`(MAAC,L,,ACOS.
X(DUMDUM,L)
X (MAAS,L,,ASIN.
X@(DUMDUM,L)
X`(MAAT,L,,ATAN.
X(MAATD,L,,D
X (MACI,L
X@(MACL,L)		
X`(MACO,L,,COS.
X(MACOD,L,,D
X (MACH,L,
X@(DUMD
X`(MAEX,L,
X(MAEXDXP.)
X (MAL,,ALOG.)	
X@(MALND,L,,DLOG.)
X(MASI,L,,SIN.)
X (MASID,L,,DS
X@(MASH,L,,
X`(DUMDU
X(MASQ,L,,
X (MASQDQRT.)
X@(MA,L,,TAN.)	
X`(DUMDUM,L)
X(MAL,,TANH.)	
X (DUMDUM,L)
X@(MAL,,EXP3.)	
X`(MALL,L,,DEXP3.)	
X (MARI,L,,EXP2
X@(MALI,L,,D


X`(RI,L,S)	
X(RDDS)	
X (RDER,
X@(RDHI,L,
X`(RDLI,L,S)
X(RDNE,L,S)	
X (RDNO,L,S)	
X  (RDPO,L,S)	
X@(DRA,L,S)	
X`(RDL,S)	
X(RDHO	

X (SAGC
X@(SAAR,3)	

Y`(SSST,L,S)	
Y (SSLG,L,S)	
6Y (SSLK,L,S)	
Y (SSHD,L,S)	
X@(SC,L,S)	
X`(SSPS)	
X(SSOU,
X (SSFO,L,
X@(SSPC,L,S)
X`(SSIT,L,S)	
X (SSFT,L,S)	
X (SSLT,L,S)	
X (SCL,L,S)	
X@(SSL,S)	
X`(SSEY	
X(SSPV,L

X (SUAC,L
Y@(SUSI,L,S)	
Y (SUPS,L,S)	
9`Y (SUMA,L,S)	
X(SUHO,L,S)	
X (SA,L,S)	
X@(SUWS)	
X`(SUCA,
X(SUAM,L,
X (SUEV,L,S)
X@(SUNE,L,S

X`(YFADR
X(YFARG,L)
X (YFAR2,L)	
< 
X (YXA1,L)
X@(XA2,L)
X`(YXA3,
X (YXA4,L)
X (YXA5,L)
X (YXA
X@(YXA7,L)
X (YXA10,L)
X`(XA11,L)
X(YXA1
X (PHPT,L)	
X (FOREX)	
X@(ORER)	
X`(OCIN8
X (IOLN)	
?X (CSEU)	
X (OCE
X@(OCINK,2)	
X (IOCOM,2)	
X` (OCUU)	
X(OCTR
		
X (CSSW0)
X (IOCB)	
X@(OCS)	
X`(IONB)	
X (IORB)	
X(IRF)	
X (OCIND,
X (IOCLA)	
A@X (OCLD)	
X (OCINC,3)	
]?	k)1eVu@ Dh0
	IFDEF .EDIRECTIVE,<.DIRECE(TIVE .NOBIN>
	UNEHIVERSAL	A    DEEhCsystem-10/20 SIMFULA RTS %4(300)  A RTS %4(300)  g @$>g<0@$>g
%%%%%1==Ph0
IRP A,<
A==Q%%%%%1
%%%%%1==<%%%%%1+1>>gN@ 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) 	=hKs
X <ZDN,Z	>BI,ZBP,ZCL,ZPB,ZT	>0E,ZTT,ZAR,ZAC,ZER,ZDR,ZYS,ZXB>m-A `mK$=9P mK$YP `mK&\P mNM\ZP p 	>Pl
IFIDN <L	<(>,<B>,<
A=%%%%	<H%1
%%%%%1=<%%%%%	=(1+1>
>
IFDIF<L,<
A=%%%%
%%%%%2=<%%%%%2+1>
>LIq@ q@ q&

0@ qJ

0@ qJ

4 @ qN

0@ qR

0@ q^

4 P q^

4@Pr 
IFIDN<L,<X (A,L,
IFDIF<<L>,<
A%B=%%%%%2
%%%%%2=%%%%%2+Z
A=%%%%%2-Z
IFNB%<D>,<%%%2+<D
A%E=%%%%%2
>j

0Pcj s

L@@ #s$@@ $s)`@ #s|2@ s|h2@ s~2@ sb
@ $sb
@ (sb
 @ (sb
@@ )sb
 @ %sb
0@ %sb
@@ &sb
P@ &sb
`@ 'sb
p@ 'uY@ O:ZDNTYPu\`P u]@P uh1 	w`OP
$%W==1
	xIFNB <B>,<$%W==1	x +<B>>
IFE <$$US	x@E-3>,<LI $$$VAL
	x`$$USE==1>
IFE $$	yUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	y@L $%W(A)>
IFE <	y`$$USE-2>,<PRINTX 	zOPD-OPR NESTING ERROR>
$$USE==2u=P 	}@Ot$%W==2
IF	}`NB <B>,<$%W==2+<	~B>
>
IFE <$$US	~ E-3>,<LI $$$VAL
	~@$$USE==1>
$F $%W(A)u(6 	zPOg
$%W==1
	zpIFNB <B>,<$%W==1	{+<B>>
IFE <$$US	{0E-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==2u

Pxe
$%W==0

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

Q8+<B>>
IFE <$$US

QXE-3>,<LI $$$VAL

Qx$$USE==1>
IFE $$

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

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

RXR $%W(A)>
IFE <

Rx$$USE-2>,<PRINTX

SOPD-OPR NESTING ERROR>
$$USE==2uM

J(dg
$%W==0

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

K8+<B>>
IFE <$$US

KE-3>,<LI $$$VAL
	P0$$USE==1>
IFE $$

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

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

KxB [$ZAPDTP B(A)

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

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

LXRINTX INVALID USE

Lx OF FIELD>
$$USE==2Xd	k%ZQXMuXV

MHe
$%W==0

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

N+<B>>
IFE <$$US

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

NH$$USE==1>
IFE $$

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

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

O(B [$ZAPEBL B(A)

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

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

PRINTX INVALID USE

P( OF FIELD>
$$USE==2cjPum

FXdI
IFE <%OP

Fx%-1>,<%OP1 400000

G>
IFE %OP%,<%OP1

G8 377777>
IFE <%O

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

GxWITCH NAME>)>
IF

HGE <%OP%-3>,<IFB

H8<A>,<%OP1 400000

HX>
	IFNB <A>,<%O

HxP1 A,400000>>
I

IFL<%OP%-2>,<%OP3 0(A)>
%OP%==2uyY

She0
$%W==0

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

T(+<B>>
IFE <$$US

THE-3>,<LI $$$VAL

Th$$USE==1>
IFE $$

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

U(
IFE <$$USE-1>,<$

UHR $%W(A)>
IFE <

Uh$$USE-2>,<PRINTX

VOPD-OPR NESTING ERROR>
$$USE==2u,:

VXeI
$%W==-1

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

W-1+<B>>
IFE <$$

W8USE-3>,<LI $$$VAL

WX
$$USE==1>
IFE

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

X>
IFE <$$USE-1>,

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

XX <$$USE-2>,<PRINT

XxX OPD-OPR NESTING

Y ERROR>
$$USE==2TPu,T]uY@ OwZDNTYPu\`P u]@P u(2 
 P$%W==2
IF
@NB <B>,<$%W==2+<
`B>
>
IFE <$$US
E-3>,<LI $$$VAL

 $$USE==1>
$F $%W(A)uKx 
`Q$%W==-2
I
FNB <B>,<$%W==-2
 +<B>
>
IFE <$$
@USE-3>,<LI $$$VAL
`
$$USE==1>
$F $%W(A)qJ

0uI7 	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==2uK{ 
@Pt$%W==2
IF
`NB <B>,<$%W==2+<
B>
>
IFE <$$US
 E-3>,<LI $$$VAL

@$$USE==1>
$F $%W(A)Pcj u=1 
 PP
$%W==3

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

 $$USE==1>
IFE $$
@USE,<$F $%W(A)>
`
IFE <$$USE-1>,<$
	B [$ZARSUB B(A)
	 ]-$$RELO($$BAS)>
	@
IFE <$$USE-2>,<P
	`RINTX INVALID USE

 OF FIELD>
$$USE==2uN8 
pP5
$%W==3

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

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

IFE <$$USE-2>,<P
0RINTX INVALID USE
P OF FIELD>
$$USE==2u\ 
Q$%W==3
IF
0NB <B>,<$%W==3+<
PB>
>
IFE <$$US
pE-3>,<LI $$$VAL

$$USE==1>
$F $%W(A)PeS\Yu, 

PPg
$%W==3


pIFNB <B>,<$%W==3
+<B>>
IFE <$$US
0E-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==2u
HY@ NZDNTYPu
H\`P u
H]@P u
L+V 	c0N1
$%W==1
	cPIFNB <B>,<$%W==1	cp+<B>>
IFE <$$US	dE-3>,<LI $$$VAL
	d0$$USE==1>
IFE $$	dPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	eB [$ZBIBNM B(A)	e0]-$$RELO($$BAS)>
IFE <$$USE-2>,<P	epRINTX INVALID USE	f OF FIELD>
$$USE==2u
O, 	f`NH
$%W==1
	gIFNB <B>,<$%W==1	g +<B>>
IFE <$$US	g@E-3>,<LI $$$VAL
	g`$$USE==1>
IFE $$	hUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	h@R $%W(A)>
IFE <	h`$$USE-2>,<PRINTX 	iOPD-OPR NESTING ERROR>
$$USE==2uY@ Y<Llxu\`P u]@P uxt

`"
$%W==-3

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

H-3+<B>>
IFE <$$

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


$$USE==1>
IFE

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

>
IFE <$$USE-1>,

(<$B [$ZCPGCI B(

HA)]-$$RELO($$BAS)

h>
IFE <$$USE-2>,

<PRINTX INVALID U

(SE OF FIELD>
$$USE==2	j.+Yzu0 |_i$%W==-2
I|8FNB <B>,<$%W==-2|X+<B>
>
IFE <$$|xUSE-3>,<LI $$$VAL}
$$USE==1>
$F $%W(A)j-8QQu9 }H`
IFE <%OP}h%-1>,<%OP1 400000~>
IFE %OP%,<%OP1~( 377777>
IFE <%O~HP%-2>,<$$E(<ILL S~hWITCH NAME>)>
IFGE <%OP%-3>,<IFB (<A>,<%OP1 400000H>
	IFNB <A>,<%OhP1 A,400000>>
I

FL<%OP%-2>,<%OP3

(-3(A)>
%OP%==2E OF FIELD>
$$Uu

V y_\
$%W==-1
IFNB <B>,<$%W==yH-1+<B>>
IFE <$$yhUSE-3>,<LI $$$VALz
$$USE==1>
IFE z($$USE,<$F $%W(A)zH>
IFE <$$USE-1>,zh<$R $%W(A)>
IFE{ <$$USE-2>,<PRINT{(X OPD-OPR NESTING{H ERROR>
$$USE==2QOi	j

>POiu

X`9
IFE <%OP

x%-1>,<%OP1 20000>


IFE %OP%,<%OP1

8757777>
IFE <%OP

X%-2>,<$$E(<ILL SW

xITCH NAME>)>
IFG

E <%OP%-3>,<IFB <

8A>,<%OP1 20000>

X
	IFNB <A>,<%OP1

x A,20000>>
IFL<

%OP%-2>,<%OP3 -3(A)>
%OP%==2 Uu8V ux_C
$%W==-1
IFNB <B>,<$%W==v8-1+<B>>
IFE <$$vXUSE-3>,<LI $$$VALvx
$$USE==1>
IFE w$$USE,<$F $%W(A)w8>
IFE <$$USE-1>,wX<$L $%W(A)>
IFEwx <$$USE-2>,<PRINTxX OPD-OPR NESTINGx8 ERROR>
$$USE==2Q\uS \`Pu=

(`W
$%W==-3


IFNB <B>,<$%W==

	8-3+<B>>
IFE <$$

	USE-3>,<LI $$$VAL	Q
$$USE==1>
IFE

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

X>
IFE <$$USE-1>,

	x<$B [$ZCPSTA B(

A)]-$$RELO($$BAS)

8>
IFE <$$USE-2>,

X<PRINTX INVALID U

xSE OF FIELD>
$$USE==2	k(VQ]uj2

`q$%W==-5
I

8FNB <B>,<$%W==-5

X+<B>
>
IFE <$$

xUSE-3>,<LI $$$VAL


$$USE==1>
$F $%W(A)k$XtQQ[u(x

H`d$%W==-4
I

hFNB <B>,<$%W==-4

+<B>
>
IFE <$$

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

H
$$USE==1>
$F $%W(A)knQUu(9 
J TZ$%W==0
IF
J@NB <B>,<$%W==0+<
J`B>
>
IFE <$$US
KE-3>,<LI $$$VAL

K $$USE==1>
$F $%W(A)RKutI:u, 
KpTg$%W==1
IF
LNB <B>,<$%W==1+<
L0B>
>
IFE <$$US
LPE-3>,<LI $$$VAL

Lp$$USE==1>
$F $%W(A)O-u(Tud+V 
APT
$%W==1

ApIFNB <B>,<$%W==1
B+<B>>
IFE <$$US
B0E-3>,<LI $$$VAL

BP$$USE==1>
IFE $$
BpUSE,<$F $%W(A)>
C
IFE <$$USE-1>,<$
C0R $%W(A)>
IFE <
CP$$USE-2>,<PRINTX 
CpOPD-OPR NESTING ERROR>
$$USE==2ud82 
D@T6
$%W==0

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

E@$$USE==1>
IFE $$
E`USE,<$F $%W(A)>
F
IFE <$$USE-1>,<$
F L $%W(A)>
IFE <
F@$$USE-2>,<PRINTX 
F`OPD-OPR NESTING ERROR>
$$USE==2ug(T 
G0TM
$%W==0

GPIFNB <B>,<$%W==0
Gp+<B>>
IFE <$$US
HE-3>,<LI $$$VAL

H0$$USE==1>
IFE $$
HPUSE,<$F $%W(A)>
Hp
IFE <$$USE-1>,<$
IR $%W(A)>
IFE <
I0$$USE-2>,<PRINTX 
IPOPD-OPR NESTING ERROR>
$$USE==2uty 	V`ME
IFE <%OP	V@%-1>,<%OP1 100000	V >
IFE %OP%,<%OP1	WP 677777>
IFE <%O	W0P%-2>,<$$E(<ILL S	SPWITCH NAME>)>
IF	UPGE <%OP%-3>,<IFB 	Up<A>,<%OP1 100000	X>
	IFNB <A>,<%O	X0P1 A,100000>>
I	XPFL<%OP%-2>,<%OP3 0(A)>
%OP%==2ut;R 	@L
$%W==0
	@0IFNB <B>,<$%W==0	@P+<B>>
IFE <$$US	@pE-3>,<LI $$$VAL
	A$$USE==1>
IFE $$	A@USE,<$F $%W(A)>
IFE <$$USE-1>,<$	BB [$ZDNCND B(A)	B ]-$$RELO($$BAS)>
IFE <$$USE-2>,<P	B`RINTX INVALID USE	C OF FIELD>
$$USE==2utI: 	C0L/
IFE <%OP	CP%-1>,<%OP1 400000	Cp>
IFE %OP%,<%OP1	D 377777>
IFE <%O	D0P%-2>,<$$E(<ILL S	DPWITCH NAME>)>
IF	DpGE <%OP%-3>,<IFB 	E<A>,<%OP1 400000	E0>
	IFNB <A>,<%O	EPP1 A,400000>>
I	EpFL<%OP%-2>,<%OP3 0(A)>
%OP%==2uu9 	ZM_
IFE <%OP	Y`%-1>,<%OP1 40000>	Y@
IFE %OP%,<%OP1 	Zp737777>
IFE <%OP	ZP%-2>,<$$E(<ILL SW	S0ITCH NAME>)>
IFG	XpE <%OP%-3>,<IFB <	YA>,<%OP1 40000>
	IFNB <A>,<%OP1	[P A,40000>>
IFL<	[p%OP%-2>,<%OP3 0(A)>
%OP%==2USEuuKU 	` N
$%W==0
	`@IFNB <B>,<$%W==0	``+<B>>
IFE <$$US	aE-3>,<LI $$$VAL
	a $$USE==1>
IFE $$	a@USE,<$F $%W(A)>
IFE <$$USE-1>,<$	bR $%W(A)>
IFE <	b $$USE-2>,<PRINTX 	b@OPD-OPR NESTING ERROR>
$$USE==2uvI9 	G M+
IFE <%OP	G%-1>,<%OP1 200000	F`>
IFE %OP%,<%OP1	T0 577777>
IFE <%O	TP%-2>,<$$E(<ILL S	SpWITCH NAME>)>
IF	FGE <%OP%-3>,<IFB 	F0<A>,<%OP1 200000	Tp>
	IFNB <A>,<%O	UP1 A,200000>>
I	U0FL<%OP%-2>,<%OP3 0(A)>
%OP%==2uvN8 	]M}
$%W==0
	\`IFNB <B>,<$%W==0	^+<B>>
IFE <$$US	]pE-3>,<LI $$$VAL
	S$$USE==1>
IFE $$	\USE,<$F $%W(A)>
IFE <$$USE-1>,<$	^PB [$ZDNTYP B(A)	^p]-$$RELO($$BAS)>
IFE <$$USE-2>,<P	_0RINTX INVALID USE	_P OF FIELD>
$$USE==2S@P >}{wouXT 
ZPUg
$%W==1

ZpIFNB <B>,<$%W==1
[+<B>>
IFE <$$US
[0E-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==2u(T 
W`UP
$%W==0

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

X`$$USE==1>
IFE $$
YUSE,<$F $%W(A)>
Y 
IFE <$$USE-1>,<$
Y@R $%W(A)>
IFE <
Y`$$USE-2>,<PRINTX 
ZOPD-OPR NESTING ERROR>
$$USE==2u, 
TpU9
$%W==0

UIFNB <B>,<$%W==0
U0+<B>>
IFE <$$US
UPE-3>,<LI $$$VAL

Up$$USE==1>
IFE $$
VUSE,<$F $%W(A)>
V0
IFE <$$USE-1>,<$
VPL $%W(A)>
IFE <
Vp$$USE-2>,<PRINTX 
WOPD-OPR NESTING ERROR>
$$USE==2uY@ NKZDNTYPu\`P u]@P uR 	r`O*
$%W==-1
IFNB <B>,<$%W==	s -1+<B>>
IFE <$$	s@USE-3>,<LI $$$VAL	s`
$$USE==1>
IFE 	t$$USE,<$F $%W(A)	t >
IFE <$$USE-1>,	t@<$R $%W(A)>
IFE	t` <$$USE-2>,<PRINT	uX OPD-OPR NESTING	u  ERROR>
$$USE==2uI7 	l`Nx
$%W==1
	mIFNB <B>,<$%W==1	m +<B>>
IFE <$$US	m@E-3>,<LI $$$VAL
	m`$$USE==1>
IFE $$	nUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	n@R $%W(A)>
IFE <	n`$$USE-2>,<PRINTX 	oOPD-OPR NESTING ERROR>
$$USE==2u(1 	ipNa
$%W==1
	jIFNB <B>,<$%W==1	j0+<B>>
IFE <$$US	jPE-3>,<LI $$$VAL
	jp$$USE==1>
IFE $$	kUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	kPL $%W(A)>
IFE <	kp$$USE-2>,<PRINTX 	lOPD-OPR NESTING ERROR>
$$USE==2u(T 	oPO
$%W==-1
IFNB <B>,<$%W==	p-1+<B>>
IFE <$$	p0USE-3>,<LI $$$VAL	pP
$$USE==1>
IFE 	pp$$USE,<$F $%W(A)	q>
IFE <$$USE-1>,	q0<$L $%W(A)>
IFE	qP <$$USE-2>,<PRINT	qpX OPD-OPR NESTING	r ERROR>
$$USE==2u, 	upO7$%W==-2
I	vFNB <B>,<$%W==-2	v0+<B>
>
IFE <$$	vPUSE-3>,<LI $$$VAL	vp
$$USE==1>
$F $%W(A)u(T 
;pSq
$%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==2u,y 
9SZ
$%W==0

9 IFNB <B>,<$%W==0
9@+<B>>
IFE <$$US
9`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==2u5yY 
3 S,
$%W==0

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

4 $$USE==1>
IFE $$
4@USE,<$F $%W(A)>
4`
IFE <$$USE-1>,<$
5L $%W(A)>
IFE <
5 $$USE-2>,<PRINTX 
5@OPD-OPR NESTING ERROR>
$$USE==2u7(T 
6SC
$%W==0

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

7$$USE==1>
IFE $$
70USE,<$F $%W(A)>
7P
IFE <$$USE-1>,<$
7pR $%W(A)>
IFE <
8$$USE-2>,<PRINTX 
80OPD-OPR NESTING ERROR>
$$USE==2uY@ YbZDNTYP>Yu\`P u]@P uI7 `Yx
$%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)9 "@Z&
$%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==2u); PZ
$%W==2
pIFNB <B>,<$%W==2 +<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-H %(Z2$%W==3
IF%HNB <B>,<$%W==3+<%hB>
>
IFE <$$US&E-3>,<LI $$$VAL
&($$USE==1>
$F $%W(A)u0Y@ XeIXu0\`P u0]@P u6J6 88[K$%W==3
IF8XNB <B>,<$%W==3+<8xB>
>
IFE <$$US9E-3>,<LI $$$VAL
98$$USE==1>
$F $%W(A)-u(TS]u7(V 'ZK
$%W==0
'8IFNB <B>,<$%W==0'X+<B>>
IFE <$$US'xE-3>,<LI $$$VAL
($$USE==1>
IFE $$(8USE,<$F $%W(A)>
IFE <$$USE-1>,<$(xL $%W(A)>
IFE <)$$USE-2>,<PRINTX )8OPD-OPR NESTING ERROR>
$$USE==2u7(t 5H[>
$%W==2
5hIFNB <B>,<$%W==26+<B>>
IFE <$$US6(E-3>,<LI $$$VAL
6H$$USE==1>
IFE $$6hUSE,<$F $%W(A)>
IFE <$$USE-1>,<$7(R $%W(A)>
IFE <7H$$USE-2>,<PRINTX 7hOPD-OPR NESTING ERROR>
$$USE==2u7)9 2X['
$%W==2
2xIFNB <B>,<$%W==23+<B>>
IFE <$$US38E-3>,<LI $$$VAL
3X$$USE==1>
IFE $$3xUSE,<$F $%W(A)>
IFE <$$USE-1>,<$48L $%W(A)>
IFE <4X$$USE-2>,<PRINTX 4xOPD-OPR NESTING ERROR>
$$USE==2u7+ ,xZy
$%W==1
-IFNB <B>,<$%W==1-8+<B>>
IFE <$$US-XE-3>,<LI $$$VAL
-x$$USE==1>
IFE $$.USE,<$F $%W(A)>
IFE <$$USE-1>,<$.XL $%W(A)>
IFE <.x$$USE-2>,<PRINTX /OPD-OPR NESTING ERROR>
$$USE==2u7, *Zb
$%W==0
*(IFNB <B>,<$%W==0*H+<B>>
IFE <$$US*hE-3>,<LI $$$VAL
+$$USE==1>
IFE $$+(USE,<$F $%W(A)>
IFE <$$USE-1>,<$+hR $%W(A)>
IFE <,$$USE-2>,<PRINTX ,(OPD-OPR NESTING ERROR>
$$USE==2u7,V /h[
$%W==1
0IFNB <B>,<$%W==10(+<B>>
IFE <$$US0HE-3>,<LI $$$VAL
0h$$USE==1>
IFE $$1USE,<$F $%W(A)>
IFE <$$USE-1>,<$1HR $%W(A)>
IFE <1h$$USE-2>,<PRINTX 2OPD-OPR NESTING ERROR>
$$USE==2ud 
zPWg
$%W==1

zpIFNB <B>,<$%W==1
{+<B>>
IFE <$$US
{0E-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==2udr 
hVo
$%W==0

gpIFNB <B>,<$%W==0
kP+<B>>
IFE <$$US
kpE-3>,<LI $$$VAL

l$$USE==1>
IFE $$
l0USE,<$F $%W(A)>
lP
IFE <$$USE-1>,<$
lpB [$ZFLAKD B(A)
m]-$$RELO($$BAS)>
m0
IFE <$$USE-2>,<P
mPRINTX INVALID USE
mp OF FIELD>
$$USE==2ud 
`pV
$%W==0

`PIFNB <B>,<$%W==0
b+<B>>
IFE <$$US
a`E-3>,<LI $$$VAL
	Rp$$USE==1>
IFE $$
`USE,<$F $%W(A)>
` 
IFE <$$USE-1>,<$
b@B [$ZFLATP B(A)
b`]-$$RELO($$BAS)>
c
IFE <$$USE-2>,<P
c RINTX INVALID USE
c@ OF FIELD>
$$USE==2ud;[ 
n W
IFE <%OP
n@%-1>,<%OP1 20>
I
n`FE %OP%,<%OP1 777
o757>
IFE <%OP%-2
o >,<$$E(<ILL SWITC
o@H NAME>)>
IFGE <
o`%OP%-3>,<IFB <A>
p,<%OP1 20>
	IFNB
p  <A>,<%OP1 A,20
p@>>
IFL<%OP%-2>,<
p`%OP3 0(A)>
%OP%==2 INVALID USEud= `X4
$%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==2Y@QuR(\`udM 
dV7
$%W==0

d0IFNB <B>,<$%W==0
dP+<B>>
IFE <$$US
dpE-3>,<LI $$$VAL

e$$USE==1>
IFE $$
e0USE,<$F $%W(A)>
eP
IFE <$$USE-1>,<$
epB [$ZFLDTP B(A)
f]-$$RELO($$BAS)>
f0
IFE <$$USE-2>,<P
fPRINTX INVALID USE
fp OF FIELD>
$$USE==2udm 
qpW"
$%W==0

qPIFNB <B>,<$%W==0
r`+<B>>
IFE <$$US
gPE-3>,<LI $$$VAL
	RP$$USE==1>
IFE $$
qUSE,<$F $%W(A)>
q 
IFE <$$USE-1>,<$
s B [$ZFLFTP B(A)
s@]-$$RELO($$BAS)>
s`
IFE <$$USE-2>,<P
tRINTX INVALID USE
t  OF FIELD>
$$USE==2uem 
] U~
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 
}@W~
$%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 0X
$%W==0
PIFNB <B>,<$%W==0p+<B>>
IFE <$$USE-3>,<LI $$$VAL
0$$USE==1>
IFE $$PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$B [$ZFLTDK B(A)0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PpRINTX INVALID USE OF FIELD>
$$USE==2XTUSu(Tufm 
hpV[
IFE <%OP
i%-1>,<%OP1 4000>
i0
IFE %OP%,<%OP1 7
iP73777>
IFE <%OP%
ip-2>,<$$E(<ILL SWI
jTCH NAME>)>
IFGE
j0 <%OP%-3>,<IFB <
jPA>,<%OP1 4000>
	
jpIFNB <A>,<%OP1 
kA,4000>>
IFL<%OP
k0%-2>,<%OP3 0(A)>
%OP%==2ug(T 
tpW9
$%W==0

uIFNB <B>,<$%W==0
u0+<B>>
IFE <$$US
uPE-3>,<LI $$$VAL

up$$USE==1>
IFE $$
vUSE,<$F $%W(A)>
v0
IFE <$$USE-1>,<$
vPR $%W(A)>
IFE <
vp$$USE-2>,<PRINTX 
wOPD-OPR NESTING ERROR>
$$USE==2ug,: 
w`WP
$%W==1

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

x`$$USE==1>
IFE $$
yUSE,<$F $%W(A)>
y 
IFE <$$USE-1>,<$
y@L $%W(A)>
IFE <
y`$$USE-2>,<PRINTX 
zOPD-OPR NESTING ERROR>
$$USE==2u[r

:8ci
$%W==0

:XIFNB <B>,<$%W==0

:x+<B>>
IFE <$$US

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

;8$$USE==1>
IFE $$

;XUSE,<$F $%W(A)>

;x
IFE <$$USE-1>,<$

<B [$ZFPMOD B(A)

<8]-$$RELO($$BAS)>

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

<xRINTX INVALID USE

= OF FIELD>
$$USE==2UR	j&XQU;uyY

=hd
$%W==0

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

>(+<B>>
IFE <$$US

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

>h$$USE==1>
IFE $$

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

?(
IFE <$$USE-1>,<$

?HR $%W(A)>
IFE <

?h$$USE-2>,<PRINTX

@OPD-OPR NESTING ERROR>
$$USE==2uK5

@Xd
$%W==0

@xIFNB <B>,<$%W==0

A+<B>>
IFE <$$US

A8E-3>,<LI $$$VAL

AX$$USE==1>
IFE $$

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

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

B8B [$ZFPTMK B(A)

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

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

CRINTX INVALID USE

C8 OF FIELD>
$$USE==2X6	j5IQV9u,

Dd2
$%W==1

D(IFNB <B>,<$%W==1

DH+<B>>
IFE <$$US

DhE-3>,<LI $$$VAL

E$$USE==1>
IFE $$

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

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

EhR $%W(A)>
IFE <

F$$USE-2>,<PRINTX

F(OPD-OPR NESTING ERROR>
$$USE==2u2$XV 
>`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 
AOPD-OPR NESTING ERROR>
$$USE==2u28Y@ \9ZDNTYPL5u28\`P u28]@P u2>

R JH\f
$%W==2
JhIFNB <B>,<$%W==2K+<B>>
IFE <$$USK(E-3>,<LI $$$VAL
KH$$USE==1>
IFE $$KhUSE,<$F $%W(A)>
IFE <$$USE-1>,<$L(R $%W(A)>
IFE <LH$$USE-2>,<PRINTX LhOPD-OPR NESTING ERROR>
$$USE==2u2>=1 GX\O
$%W==2
GxIFNB <B>,<$%W==2H+<B>>
IFE <$$USH8E-3>,<LI $$$VAL
HX$$USE==1>
IFE $$HxUSE,<$F $%W(A)>
IFE <$$USE-1>,<$I8L $%W(A)>
IFE <IX$$USE-2>,<PRINTX IxOPD-OPR NESTING ERROR>
$$USE==2u2t

cXf/
$%W==0

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

d+<B>>
IFE <$$US

d8E-3>,<LI $$$VAL

dX$$USE==1>
IFE $$

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

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

e8R $%W(A)>
IFE <

eX$$USE-2>,<PRINTX

exOPD-OPR NESTING ERROR>
$$USE==2u2t

i8f]
$%W==0

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

ix+<B>>
IFE <$$US

jE-3>,<LI $$$VAL

j8$$USE==1>
IFE $$

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

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

kR $%W(A)>
IFE <

k8$$USE-2>,<PRINTX

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

`(f
$%W==0

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

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

aE-3>,<LI $$$VAL

a($$USE==1>
IFE $$

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

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

bB [$ZLNBLK B(A)

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

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

bhRINTX INVALID USE

c OF FIELD>
$$USE==2uB]@Pu2ur

Z8eg
IFE <%OP

ZX%-1>,<%OP1 400000

Zx>
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 0(A)>
%OP%==2u2uJ7

fHfF
$%W==0

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

g+<B>>
IFE <$$US

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

gH$$USE==1>
IFE $$

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

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

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

hH$$USE-2>,<PRINTX

hhOPD-OPR NESTING ERROR>
$$USE==2u2vN8 	Pe}
$%W==0

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

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

]XE-3>,<LI $$$VAL

]x$$USE==1>
IFE $$

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

^8
IFE <$$USE-1>,<$

^XB [$ZLNTYP B(A)

^x]-$$RELO($$BAS)>

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

_8RINTX INVALID USE

_X OF FIELD>
$$USE==2WjufIXu7Y@ ]VCu7\`P u7]@P u7K{

XaO
$%W==1

xIFNB <B>,<$%W==1

+<B>>
IFE <$$US

8E-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==2u7L[

8a}
$%W==2

XIFNB <B>,<$%W==2

x+<B>>
IFE <$$US

E-3>,<LI $$$VAL

8$$USE==1>
IFE $$

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

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

R $%W(A)>
IFE <

8$$USE-2>,<PRINTX

XOPD-OPR NESTING ERROR>
$$USE==2u7M

#b+
$%W==3

#8IFNB <B>,<$%W==3

#X+<B>>
IFE <$$US

#xE-3>,<LI $$$VAL

$$$USE==1>
IFE $$

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

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

$xR $%W(A)>
IFE <

%$$USE-2>,<PRINTX

%8OPD-OPR NESTING ERROR>
$$USE==2u7k{

ha8
$%W==1

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

(+<B>>
IFE <$$US

HE-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==2u7l[

Haf
$%W==2

hIFNB <B>,<$%W==2

+<B>>
IFE <$$US

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

H$$USE==1>
IFE $$

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


IFE <$$USE-1>,<$

(L $%W(A)>
IFE <

H$$USE-2>,<PRINTX

hOPD-OPR NESTING ERROR>
$$USE==2u7m

 (b
$%W==3

 HIFNB <B>,<$%W==3

 h+<B>>
IFE <$$US

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

!($$USE==1>
IFE $$

!HUSE,<$F $%W(A)>

!h
IFE <$$USE-1>,<$

"L $%W(A)>
IFE <

"($$USE-2>,<PRINTX

"HOPD-OPR NESTING ERROR>
$$USE==2u7+8

xa!
$%W==0

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

8+<B>>
IFE <$$US

XE-3>,<LI $$$VAL

x$$USE==1>
IFE $$

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

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

XR $%W(A)>
IFE <

x$$USE-2>,<PRINTX

OPD-OPR NESTING ERROR>
$$USE==2u7,r

a

$%W==0

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

H+<B>>
IFE <$$US

hE-3>,<LI $$$VAL

$$USE==1>
IFE $$

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

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

hL $%W(A)>
IFE <

$$USE-2>,<PRINTX

(OPD-OPR NESTING ERROR>
$$USE==2uBY@ Z5EVuB\`P uB]@P uBI1 q(_
$%W==3
qIFNB <B>,<$%W==3r8+<B>>
IFE <$$USrE-3>,<LI $$$VAL
	Q0$$USE==1>
IFE $$p8USE,<$F $%W(A)>
IFE <$$USE-1>,<$rxR $%W(A)>
IFE <s$$USE-2>,<PRINTX s8OPD-OPR NESTING ERROR>
$$USE==2uBK ^^
$%W==2
^8IFNB <B>,<$%W==2^X+<B>>
IFE <$$US^xE-3>,<LI $$$VAL
_$$USE==1>
IFE $$8USE,<$F $%W(A)>
IFE <$$USE-1>,<$_xR $%W(A)>
IFE <`$$USE-2>,<PRINTX `8OPD-OPR NESTING ERROR>
$$USE==2uBe k^g
IFE <%OPjh%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7kx75777>
IFE <%OP%kX-2>,<$$E(<ILL SWI	QpTCH NAME>)>
IFGEix <%OP%-3>,<IFB <jA>,<%OP1 2000>
	l8IFNB <A>,<%OP1 lXA,2000>>
IFL<%OPlx%-2>,<%OP3 3(A)>
%OP%==2ID USEuBh6 n(_
IFE <%OPn%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7o76777>
IFE <%OP%nx-2>,<$$E(<ILL SWI	QPTCH NAME>)>
IFGEm <%OP%-3>,<IFB <m8A>,<%OP1 1000>
	oXIFNB <A>,<%OP1 oxA,1000>>
IFL<%OPp%-2>,<%OP3 3(A)>
%OP%==2ID USEuBhu g^M
IFE <%OPg8%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7gx73777>
IFE <%OP%h-2>,<$$E(<ILL SWIh8TCH NAME>)>
IFGEhX <%OP%-3>,<IFB <hxA>,<%OP1 4000>
	iIFNB <A>,<%OP1 i8A,4000>>
IFL<%OPiX%-2>,<%OP3 3(A)>
%OP%==2ID USEuBlX [(]l
$%W==2
[HIFNB <B>,<$%W==2[h+<B>>
IFE <$$US\E-3>,<LI $$$VAL
\($$USE==1>
IFE $$\HUSE,<$F $%W(A)>
IFE <$$USE-1>,<$]L $%W(A)>
IFE <]($$USE-2>,<PRINTX ]HOPD-OPR NESTING ERROR>
$$USE==2uB9 `h^
IFE <%OPa%-1>,<%OP1 400000a(>
IFE %OP%,<%OP1aH 377777>
IFE <%OahP%-2>,<$$E(<ILL SbWITCH NAME>)>
IFb(GE <%OP%-3>,<IFB bH<A>,<%OP1 400000bh>
	IFNB <A>,<%OcP1 A,400000>>
Ic(FL<%OP%-2>,<%OP3 3(A)>
%OP%==2uBN8 d8^6
$%W==3
dIFNB <B>,<$%W==3e(+<B>>
IFE <$$US	R0E-3>,<LI $$$VAL
	R$$USE==1>
IFE $$cHUSE,<$F $%W(A)>
IFE <$$USE-1>,<$ehB [$ZPCTYP B(A)f]-$$RELO($$BAS)>
IFE <$$USE-2>,<PfHRINTX INVALID USEfh OF FIELD>
$$USE==2q@uB)X t_($%W==4
IFt(NB <B>,<$%W==4+<tHB>
>
IFE <$$USthE-3>,<LI $$$VAL
u$$USE==1>
$F $%W(A)juK7(TUuB%;R

7cN
$%W==0

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

7H+<B>>
IFE <$$US

7hE-3>,<LI $$$VAL

8$$USE==1>
IFE $$

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

8H
IFE <$$USE-1>,<$

8hB [$ZPDKND B(A)

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

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

9HRINTX INVALID USE

9h OF FIELD>
$$USE==2T\	j$PT\uCY@ KwTYPP-uC\`P uC]@P uC+ OH]
$%W==0
OhIFNB <B>,<$%W==0P+<B>>
IFE <$$USP(E-3>,<LI $$$VAL
PH$$USE==1>
IFE $$PhUSE,<$F $%W(A)>
IFE <$$USE-1>,<$Q(L $%W(A)>
IFE <QH$$USE-2>,<PRINTX QhOPD-OPR NESTING ERROR>
$$USE==2uCXV U(]<
$%W==1
UHIFNB <B>,<$%W==1Uh+<B>>
IFE <$$USVE-3>,<LI $$$VAL
V($$USE==1>
IFE $$VHUSE,<$F $%W(A)>
IFE <$$USE-1>,<$WL $%W(A)>
IFE <W($$USE-2>,<PRINTX WHOPD-OPR NESTING ERROR>
$$USE==2uCX8 R8]%
$%W==0
RXIFNB <B>,<$%W==0Rx+<B>>
IFE <$$USSE-3>,<LI $$$VAL
S8$$USE==1>
IFE $$SXUSE,<$F $%W(A)>
IFE <$$USE-1>,<$TR $%W(A)>
IFE <T8$$USE-2>,<PRINTX TXOPD-OPR NESTING ERROR>
$$USE==2uC>6 X]S
$%W==1
X8IFNB <B>,<$%W==1XX+<B>>
IFE <$$USXxE-3>,<LI $$$VAL
Y$$USE==1>
IFE $$Y8USE,<$F $%W(A)>
IFE <$$USE-1>,<$YxR $%W(A)>
IFE <Z$$USE-2>,<PRINTX Z8OPD-OPR NESTING ERROR>
$$USE==2uCY@ \iZDNTYPVuC\`P uC]@P uC); MX\u$%W==3
IFMxNB <B>,<$%W==3+<NB>
>
IFE <$$USN8E-3>,<LI $$$VAL
NX$$USE==1>
$F $%W(A)	j5KsQXuK5yY 
M@T~
$%W==0

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

N@$$USE==1>
IFE $$
N`USE,<$F $%W(A)>
O
IFE <$$USE-1>,<$
O L $%W(A)>
IFE <
O@$$USE-2>,<PRINTX 
O`OPD-OPR NESTING ERROR>
$$USE==2uK7(T 
P0U
$%W==0

PPIFNB <B>,<$%W==0
Pp+<B>>
IFE <$$US
QE-3>,<LI $$$VAL

Q0$$USE==1>
IFE $$
QPUSE,<$F $%W(A)>
Qp
IFE <$$USE-1>,<$
RR $%W(A)>
IFE <
R0$$USE-2>,<PRINTX 
RPOPD-OPR NESTING ERROR>
$$USE==2uK7, 
S U"$%W==1
IF
S@NB <B>,<$%W==1+<
S`B>
>
IFE <$$US
TE-3>,<LI $$$VAL

T $$USE==1>
$F $%W(A)L5	j%jruN%
2

}h
IFE <%OP	Op%-1>,<%OP1 200000
IFE5%OP%,<%OP1
IFE%<%O,<$$E(<ILL S
IFGEA<%OP%-3>,<IFB0
	IFNB<A>,<%O>>
IHFL<%OP%-2>,<%OP3 0(A)>
%OP%==2uN%;R 
$%W==0
xIFNBB<B>,<$%W==0
IFE-<$$USI $$$VAL
X$$USE==1>
IFES$$<$F $%W(A)>
IFE-<$$USE-1>,<$A)
IFEI<$$USE-2>,<PUSE
$$USE==2N4uY@Y<uN%KR

}hh
IFE <%OP

~%-1>,<%OP1 400000

~(>
IFE %OP%,<%OP1

~H 377777>
IFE <%O

~hP%-2>,<$$E(<ILL S

WITCH NAME>)>
IF

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

H<A>,<%OP1 400000

h>
	IFNB<A>,<%O>>
I(FL<%OP%-2>,<%OP3 0(A)>
%OP%==2uN%[r 
(hh
$%W==0

HIFNB <B>,<$%W==0
h+<B>>
IFE-<$$USI $$$VAL
($$USE==1>
IFES$$<$F $%W(A)>
IFE <$$USE-1>,<$

B [$ZSDMOD B(A)

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

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

hRINTXIINVALID USE
$$USE==2O:u\`PuN%k( 
IFNB><B>,<$%W==1+<
>
IFE-<$$USI $$$VAL
x$$USE==1>
$Fi$%W(A)]u,ySFuN%k) 
IFNB><B>,<$%W==2+<
>
IFE-<$$USI $$$VAL
H$$USE==1>
$Fi$%W(A)u6J6[AuN%yY 
$%W==0
(IFNB><B>,<$%W==0
IFE-<$$USI $$$VAL
$$USE==1>
IFES$$<$F $%W(A)>
IFE <$$USE-1>,<$
IFE$<SE-2>,<PRINTXERROR>
$$USE==2uN&< 
$%W==0
8IFNB><B>,<$%W==0
IFE-<$$USI $$$VAL
	OP$$USE==1>
IFES$$<$F $%W(A)>
IFE-<$$USE-1>,<$A)
IFEI<$$USE-2>,<PUSE
$$USE==2XIO8.uN&N8 
$%W==0
IFNB><B>,<$%W==0
IFE-<$$USI $$$VAL
x$$USE==1>
IFES$$<$F $%W(A)>
IFE-<$$USE-1>,<$A)
IFEI<$$USE-2>,<PUSE
$$USE==2ck$PPuN', 
IFNB><B>,<$%W==3+<
>
IFE-<$$USI $$$VAL
$$USE==1>
$F $%W(A)VudmuNd

+xbq
$%W==0

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

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

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

,x$$USE==1>
IFE $$

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

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

-XR $%W(A)>
IFE <

-x$$USE-2>,<PRINTX

.OPD-OPR NESTING ERROR>
$$USE==2uNd[Q

)8bZ
$%W==0

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

*(+<B>>
IFE <$$US	PpE-3>,<LI $$$VAL
	PP$$USE==1>
IFE $$

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

(h
IFE <$$USE-1>,<$

*hL $%W(A)>
IFE <

+$$USE-2>,<PRINTX

+(OPD-OPR NESTING ERROR>
$$USE==2uNf:6

%hbB
IFE <%OP

&%-1>,<%OP1 400000

&(>
IFE %OP%,<%OP1

&H 377777>
IFE <%O

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

'WITCH NAME>)>
IF

'(GE <%OP%-3>,<IFB

'H<A>,<%OP1 400000

'h>
	IFNB <A>,<%O

(P1 A,400000>>
I

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

l fv
$%W==-3

l@
IFNB <B>,<$%W==

l`-3+<B>>
IFE <$$

mUSE-3>,<LI $$$VAL

m 
$$USE==1>
IFE

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

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

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

n  <$$USE-2>,<PRINT

n@X OPD-OPR NESTING

n` ERROR>
$$USE==2	j+QPv	j+uNn+H

r@g$%W==-2
I

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

s+<B>
>
IFE <$$

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

s@
$$USE==1>
$F $%W(A)T8	j%HpuNnN8

tg7
$%W==0

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

tP+<B>>
IFE <$$US

tpE-3>,<LI $$$VAL

u$$USE==1>
IFE $$

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

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

upB [$ZSMTYP B(A)

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

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

vPRINTX INVALID USE

vp OF FIELD>
$$USE==2+Nz	j&.PuNo+

o0g
$%W==-3

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

op-3+<B>>
IFE <$$

pUSE-3>,<LI $$$VAL

p0
$$USE==1>
IFE

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

pp>
IFE <$$USE-1>,

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

q0 <$$USE-2>,<PRINT

qPX OPD-OPR NESTING

qp ERROR>
$$USE==2	j

q_E	j

zuNo,v

w@gN
$%W==0

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

x+<B>>
IFE <$$US

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

x@$$USE==1>
IFE $$

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

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

y L $%W(A)>
IFE <

y@$$USE-2>,<PRINTX

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

z0ge
$%W==0

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

zp+<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==2uOi7

08c$%W==0
IF

0XNB <B>,<$%W==0+<

0xB>
>
IFE <$$US

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

18$$USE==1>
$F $%W(A)%uS(TYuO;

.hb~$%W==-2
I

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

/(+<B>
>
IFE <$$

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

/h
$$USE==1>
$F $%W(A)R(]@PuO,

2c$%W==1
IF

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

2HB>
>
IFE <$$US

2hE-3>,<LI $$$VAL

3$$USE==1>
$F $%W(A)juS6<R<uO(Y@ [NZDNTYPS/uO(\`P uO(]@P uO,m :([d
$%W==2
:HIFNB <B>,<$%W==2:h+<B>>
IFE <$$US;E-3>,<LI $$$VAL
;($$USE==1>
IFE $$;HUSE,<$F $%W(A)>
IFE <$$USE-1>,<$<L $%W(A)>
IFE <<($$USE-2>,<PRINTX <HOPD-OPR NESTING ERROR>
$$USE==2uO-KU @\
$%W==3
@(IFNB <B>,<$%W==3@H+<B>>
IFE <$$US@hE-3>,<LI $$$VAL
A$$USE==1>
IFE $$A(USE,<$F $%W(A)>
IFE <$$USE-1>,<$AhL $%W(A)>
IFE <B$$USE-2>,<PRINTX B(OPD-OPR NESTING ERROR>
$$USE==2uO-M =[{
$%W==2
=8IFNB <B>,<$%W==2=X+<B>>
IFE <$$US=xE-3>,<LI $$$VAL
>$$USE==1>
IFE $$>8USE,<$F $%W(A)>
IFE <$$USE-1>,<$>xR $%W(A)>
IFE <?$$USE-2>,<PRINTX ?8OPD-OPR NESTING ERROR>
$$USE==2uO/)9 Bx\)
$%W==3
CIFNB <B>,<$%W==3C8+<B>>
IFE <$$USCXE-3>,<LI $$$VAL
Cx$$USE==1>
IFE $$DUSE,<$F $%W(A)>
IFE <$$USE-1>,<$DXR $%W(A)>
IFE <Dx$$USE-2>,<PRINTX EOPD-OPR NESTING ERROR>
$$USE==2uO/, Eh\6$%W==4
IFFNB <B>,<$%W==4+<F(B>
>
IFE <$$USFHE-3>,<LI $$$VAL
Fh$$USE==1>
$F $%W(A)K	j%h1MKuR&N8

3Xc3
$%W==0

3xIFNB <B>,<$%W==0

4+<B>>
IFE <$$US

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

4X$$USE==1>
IFE $$

4xUSE,<$F $%W(A)>

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

58B [$ZTDTYP B(A)

5X]-$$RELO($$BAS)>

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

6RINTX INVALID USE

68 OF FIELD>
$$USE==2P7	j-8QQuR(Y@ QZDNTYP0uR(\`P uR(]@P uR,: 
0QY
$%W==2

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

0$$USE==1>
IFE $$
PUSE,<$F $%W(A)>
p
IFE <$$USE-1>,<$
B [$ZTECHR B(A)
0]-$$RELO($$BAS)>
P
IFE <$$USE-2>,<P
pRINTX INVALID USE
 OF FIELD>
$$USE==2mM1	j%muR,; 
PQ'
$%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==2uR-I7 
@Q>
$%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 
Xb
$%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==2uRG- XK
$%W==0
0IFNB <B>,<$%W==0P+<B>>
IFE <$$USpE-3>,<LI $$$VAL
$$USE==1>
IFE $$0USE,<$F $%W(A)>
IFE <$$USE-1>,<$pL $%W(A)>
IFE <	$$USE-2>,<PRINTX 	0OPD-OPR NESTING ERROR>
$$USE==2uSY@ KyTPTCuS\`P uS]@P uSh2 0Y$%W==-1
IPFNB <B>,<$%W==-1p+<B>
>
IFE <$$USE-3>,<LI $$$VAL0
$$USE==1>
$Fq$%W(A)O9	j&>QuS(2 
INBB<B>,<$%W==-3
>
IFEE<$$<LI $$$VAL
$$USE==1>
$F $%W(A)L	j%iuS,y `X~$%W==-2
IFNB <B>,<$%W==-2 +<B>
>
IFE <$$@USE-3>,<LI $$$VAL`
$$USE==1>
$F $%W(A)UR	j&QuS(1 pY9
$%W==0
IFNB <B>,<$%W==00+<B>>
IFE <$$USPE-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==2uS(T Y"
$%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==2uS Y@ Q\ZDNTYP(9uS \`P uS ]@P uS$< 
$PR7
$%W==2

$pIFNB <B>,<$%W==2
%+<B>>
IFE <$$US
%0E-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==2uS%KS 
!`R 
$%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==2uS&< 
Qr
$%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==2uS'- 
pR	
$%W==1

IFNB <B>,<$%W==1
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==2uS0Y@ K{YPEXuS0\`P uS0]@P uS4< 
00S
$%W==1

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

10$$USE==1>
IFE $$
1PUSE,<$F $%W(A)>
1p
IFE <$$USE-1>,<$
2R $%W(A)>
IFE <
20$$USE-2>,<PRINTX 
2POPD-OPR NESTING ERROR>
$$USE==2uS5KS 
-@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==2uS6< 
'`RP
$%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==2uS7- 
*PRg
$%W==0

*pIFNB <B>,<$%W==0
++<B>>
IFE <$$US
+0E-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==2ugY@ R:Sug\`P ug]@P ugS pY_$%W==2
IFNB <B>,<$%W==2+<0B>
>
IFE <$$USPE-3>,<LI $$$VAL
p$$USE==1>
$F $%W(A)PPj&.QugI` YR
$%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==2$Y@P $\h OL{

IFGE	^

HD17-^D1,<
IFB <

JxC>,<DEFINE ZSDHID

*(ACC)<
IFE <%OP%

x-1>,<%OP1 B>
IF

hE %OP%,<%OP1 A>
IFE <%OP%-2>,<$$nXE(<ILL SWITCH NAMk8E>)>
IFGE <%OP%-e3>,<IFB <ACC>,<%O
r@P1 B>
	IFNB <AC
g0C>,<%OP1 ACC,B>>
a@
IFL<%OP%-2>,<%O	]PP3 0(ACC)>
%OP%=	Z0=2>>
IFNB <C>,<	WDEFINE ZSDHID=<
	GPIFE <%OP%-1>,<%OP	Gp1 B>
IFE %OP%,<	H%OP1 A>
IFE <%O	H0P%-2>,<$$E(<ILL S	HPWITCH NAME>)>
IF	HpGE <%OP%-3>,<%OP1	I C,B>
IFL <%OP	I0%-2>,<%OP3 0(C)>	IP
%OP%==2>>>

I	IpFL ^D17-^D1,<
IF	JB <>,<DEFINE ZSDH	J0ID(ACC)<
IFE %OP	JP%-1,<%OP2 B>
IF	JpE %OP%,<%OP2 A>
IFE <%OP%-2>,<$$	K0E(<ILL SWITCH NAM	KPE>)>
IFGE <%OP%-	Kp3>,<IFB <ACC>,<%O	LP2 B>
	IFNB <AC	L0C>,<%OP2 ACC,B>>	LP
IFL <%OP%-2>,<%	LpOP3 0(ACC)>
%OP%	M==2>>
IFNB <>,<D	M0EFINE ZSDHID=<
I	MPFE <%OP%-1>,<%OP2	Mp B>
IFE %OP%,<%	NOP2 A>
IFE <%OP	N0%-2>,<$$E(<ILL SW	NPITCH NAME>)>
IFG	NpE <%OP%-3>,<%OP2 	OC,B>
IFL <%OP%	O0-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@P >}{woP