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

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

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

xI@PeC@t{@xC@tk{@TMC@u@SC@un@C@v)7@$CO\Z8AOS	YDSCSW(XLOW) jnVGtV xq'SOS	YDSCSW(XLOW) k9JG~(T 8q+HRROS	YDSCSW(XLOW)k<HMy Ym
	IFG <IOxDF-400K>,<EXTERN	IODF%S,IODF%I,IOD8F%M,IODF%Y,IODF%DX>
IFNB <IOFI>,<
	IF1,<IFNDEF .IO	FI,<EXTERN .IOFI>	8>
	Z	.IOFI
>
		XIFB <IOFI>,<Z>
		xBYTE	(1)(3)QIOFI(
1)1(13)0(18)IODF%
8S	;[63]
	Z	IODF%
XI		;
	XWD	-2,1

x.IODF::	XWD	QDFLNG,IODF%M	;
	XWD	8QFIEBL,IODF%Y	;
X	XWD	,QFIDLE		;
x	BYTE	(1)1(17)0(1

8)IODF%D	;
	IFNB

8 <Z>,<
	Z	;
	>

X
IFG <IODF-400K>,

x<
IFNI<<.-.IODF>>,<
>

$Y@PHMyT Z
	IFG <IOZ8FI-400K>,<EXTERN	ZXIOFI%S,IOFI%I,IOFZxI%M,IOFI%Y,IOFI%D[>
IFNB <>,<
	IF[81,<IFNDEF .,<EXTE[XRN .>>
	Z	.
>
[x	IFB <>,<Z>
	BYT\E	(1)(3)QIOFI(1)1\8(13)0(18)IOFI%S	;\X[63]
	Z	IOFI%I		\x;
	XWD	-2,
.IOF]I::	XWD	QFILNG,IO]8FI%M	;
	XWD	QFIE]XBL,IOFI%Y	;
	XWD]x	1,QFIDLE		;
	BY^TE	(1)1(17)0(18)I^8OFI%D	;
	IFNB <P^XTX>,<
	PTX	;
	>^x
IFG <IOFI-400K>_,<
IFN <<.-.IOFI8>-<IOFI%E-IOFI>>,X<CFAIL INCONSIST.x PROT. FOR IOFI>
>}?	j5xQ{HMz7 eY
	IFG <IOe8IN-400K>,<EXTERN	eXIOIN%S,IOIN%I,IOIexN%M,IOIN%Y,IOIN%Df>
IFNB <IOFI>,<
	IF1,<IFNDEF .IOfXFI,<EXTERN .IOFI>fx>
	Z	.IOFI
>
	gIFB <IOFI>,<Z>
	g8BYTE	(1)(3)QIOFI(gX1)1(13)0(18)IOIN%gxS	;[63]
	Z	IOIN%hI		;
	XWD	-2,1
h8.IOIN::	XWD	QIFLNhXG,IOIN%M	;
	XWD	hxQFIEBL,IOIN%Y	;
i	XWD	,QFIDLE		;
i8	BYTE	(1)1(17)0(1iX8)IOIN%D	;
	IFNBix <Z>,<
	Z	;
	>
IFG <IOIN-400K>,j8<
IFN <<.-.IOIN>jX-<IOIN%E-IOIN>>,<jxCFAIL INCONSIST. kPROT. FOR IOIN>
>q-]?$lR
	IFG <IOpxOU-400K>,<EXTERN	qIOOU%S,IOOU%I,IOOq8U%M,IOOU%Y,IOOU%DqX>
IFNB <IOFI>,<
	IF1,<IFNDEF .IOrFI,<EXTERN .IOFI>r8>
	Z	.IOFI
>
	rXIFB <IOFI>,<Z>
	rxBYTE	(1)(3)QIOFI(s1)1(13)0(18)IOOU%s8S	;[63]
	Z	IOOU%sXI		;
	XWD	-2,1
sx.IOOU::	XWD	QOFLNtG,IOOU%M	;
	XWD	t8QFIEBL,IOOU%Y	;
tX	XWD	,QFIDLE		;
tx	BYTE	(1)1(17)0(1u8)IOOU%D	;
	IFNBu8 <Z>,<
	Z	;
	>X
IFG <IOOU-400K>,ux<
IFN <<.-.IOOU>v-<IOOU%E-IOOU>>,<v8CFAIL INCONSIST. vXPROT. FOR IOOU>
>sg_rq}HM| |
	IFG <IO|8PF-400K>,<EXTERN	|XIOPF%S,IOPF%I,IOP|xF%M,IOPF%Y,IOPF%D}>
IFNB <IOOU>,<
	IF1,<IFNDEF .IO}XOU,<EXTERN .IOOU>}x>
	Z	.IOOU
>
	~IFB <IOOU>,<Z>
	~8BYTE	(1)(3)QIOFI(~X1)1(13)0(18)IOPF%~xS	;[63]
	Z	IOPF%I		;
	XWD	-2,2
8.IOPF::	XWD	QPFLNXG,IOPF%M	;
	XWD	xQFIEBL,IOPF%Y	;
	XWD	,QFIDLE		;
8	BYTE	(1)1(17)0(1X8)IOPF%D	;
	IFNBx <Z>,<
	Z	;
	>
IFG <IOPF-400K>,8<
IFN <<.-.IOPF>X-<IOPF%E-IOPF>>,<xCFAIL INCONSIST. PROT. FOR IOPF>
>9uLMW?H: Q-
	IFG <SSpHD-400K>,<EXTERN	 SSHD%S,SSHD%I,SSH 0D%M,SSHD%Y,SSHD%D P>
IFNB <SSLG>,<
	IF1,<IFNDEF .SS!LG,<EXTERN .SSLG>!0>
	Z	.SSLG
>
	!PIFB <SSLG>,<Z>
	!pBYTE	(1)(3)QSSLG("1)0(13)0(18)SSHD%"0S	;[63]
	Z	SSHD%"PI		;
	XWD	.SIMLV"p,1
.SSHD::	XWD	Z#LG%S,SSHD%M	;
	X#0WD	.SIMLV-1,SSHD%#PY	;
	XWD	,3+.SIM#pVL		;
	BYTE	(1)($17)0(18)SSHD%D	;
	IFNB <>,<
		;
	>
IFG <SSHD-40$p0K>,<
IFN <<.-.S%SHD>-<SSHD%E-SSHD%0>>,<CFAIL INCONSI%PST. PROT. FOR SSHD>
>w?	j6;ZH; qS
	IFG <SSQLG-400K>,<EXTERN	1SSLG%S,SSLG%I,SSL1G%M,SSLG%Y,SSLG%DP>
IFNB <>,<
	IFp1,<IFNDEF .,<EXTERN .>>
	Z	.
>
0	IFB <>,<Z>
	BYTPE	(1)(3)QSSLG(1)0p(13)0(18)SSLG%S	;[63]
	Z	SSLG%I		0;
	XWD	.SIMLV,0
.SSLG::	XWD	ZLG%pS,SSLG%M	;
	XWD	.SIMLV-1,SSLG%Y	;0
	XWD	,3+.SIMVL	P	;
	BYTE	(1)(17)p0(18)SSLG%D	;
	IFNB <>,<
		;
	>0
IFG <SSLG-400K>P,<
IFN <<.-.SSLGp>-<SSLG%E-SSLG>>,<CFAIL INCONSIST.0 PROT. FOR SSLG>
>51x	j51H; +	
	IFG <SS+0LK-400K>,<EXTERN	+PSSLK%S,SSLK%I,SSL+pK%M,SSLK%Y,SSLK%D,>
IFNB <SSLG>,<
	IF1,<IFNDEF .SS,PLG,<EXTERN .SSLG>,p>
	Z	.SSLG
>
	-IFB <SSLG>,<Z>
	-0BYTE	(1)(3)QSSLG(-P1)0(13)0(18)SSLK%-pS	;[63]
	Z	SSLK%.I		;
	XWD	.SIMLV.0,1
.SSLK::	XWD	Z.PLG%S,SSLK%M	;
	X.pWD	.SIMLV-1,SSLK%/Y	;
	XWD	,3+.SIM/0VL		;
	BYTE	(1)(/P17)0(18)SSLK%D	;
	IFNB <>,<
		;
	>
IFG <SSLK-40000K>,<
IFN <<.-.S0PSLK>-<SSLK%E-SSLK0p>>,<CFAIL INCONSI1ST. PROT. FOR SSLK>
>Pc.
H<z 
q
	IFG <SSST-400K>,<EXTERN	0SSST%S,SSST%I,SSSPT%M,SSST%Y,SSST%Dp>
IFNB <>,<
	IF

1,<IFNDEF .,<EXTE

0RN .>>
	Z	.
>

P	IFB <>,<Z>
	BYT

pE	(1)1(3)(1)1(13)
	Z	SSST%I		;
	WD	0,0
.SSST::	S,SSST%M	;
	XWD	.SIMLV,SS0ST%Y	;
	XWD	,3+.PSIMVL-1		;
	BYTEp	(1)(17)0(18)SSST%D	;
	IFNB <>,<
		;
	>
IFG <SSPST-400K>,<
IFN <p<.-.SSST>-<SSST%E-SSST>>,<CFAIL IN0CONSIST. PROT. FOR SSST>
>	jQH[0 MQ
	IFG <SUMpMA-400K>,<EXTERN	NSUMA%S,SUMA%I,SUMN0A%M,SUMA%Y,SUMA%DNP>
IFNB <SUPS>,<
	IF1,<IFNDEF .SUOPS,<EXTERN .SUPS>O0>
	Z	.SUPS
>
	OPIFB <SUPS>,<Z>
	OpBYTE	(1)(3)QSUPS(P1)0(13)0(18)SUMA%P0S	;[63]
	Z	SUMA%PPI		;
	XWD	.SIMLVPp,3
.SUMA::	XWD	ZQPS%S,SUMA%M	;
	XQ0WD	.SIMLV-1,SUMA%QPY	;
	XWD	,3+.SIMQpVL		;
	BYTE	(1)(R17)0(18)SUMA%D	;
	IFNB <>,<
		;
	>
IFG <SUMA-40Rp0K>,<
IFN <<.-.SSUMA>-<SUMA%E-SUMAS0>>,<CFAIL INCONSISPST. PROT. FOR SUMA>
>Q	j$mqH\ 	A
	IFG <SUQPS-400K>,<EXTERN	1SUPS%S,SUPS%I,SUPBqS%M,SUPS%Y,SUPS%DC>
IFNB <SSLK>,<
	IF1,<IFNDEF .SSCPLK,<EXTERN .SSLK>Cp>
	Z	.SSLK
>
	DIFB <SSLK>,<Z>
	D0BYTE	(1)(3)QSUPS(DP1)0(13)0(18)SUPS%DpS	;[63]
	Z	SUPS%EI		;
	XWD	.SIMLVE0,2
.SUPS::	XWD	ZEPPS%S,SUPS%M	;
	XEpWD	.SIMLV-1,SUPS%FY	;
	XWD	,3+.SIMF0VL		;
	BYTE	(1)(FP17)0(18)SUPS%D	;
	IFNB <>,<
		;
	>
IFG <SUPS-40G00K>,<
IFN <<.-.SGPUPS>-<SUPS%E-SUPSGp>>,<CFAIL INCONSIHST. PROT. FOR SUPS>
>zGuH\t 7Qm
	IFG <SU7pSI-400K>,<EXTERN	8SUSI%S,SUSI%I,SUS80I%M,SUSI%Y,SUSI%D8P>
IFNB <SSST>,<
	IF1,<IFNDEF .SS9ST,<EXTERN .SSST>90>
	Z	.SSST
>
	9PIFB <SSST>,<Z>
	9pBYTE	(1)1(3)QSUSI:(1)1(13)0(18)SUSI:0%S	;[63]
	Z	SUSI:P%I		;
	XWD	0,1
:p.SUSI::	XWD	ZSU%S;,SUSI%M	;
	XWD	.;0SIMLV,SUSI%Y	;
	;PXWD	,3+.SIMVL-1		;p;
	BYTE	(1)(17)0<(18)SUSI%D	;
	IF<0NB <>,<
		;
	>P
IFG <SUSI-400K>,<p<
IFN <<.-.SUSI>=-<SUSI%E-SUSI>>,<=0CFAIL INCONSIST. =PPROT. FOR SUSI>
>j& @qk0Idy tq
DEFINE Dt0%A<
	IFG <A-40tP0K>,<EXTERN	A%S,tpA%I,A%M,A%Y,Au%D>
IFNB <B>,<
	IF1,<IFNDEF .BuP,<EXTERN .B>>
	upZ	.B
>
	IFB <vB>,<Z>
	BYTE	(1)v0L(3)C(1)D(13)0vP(18)A%S	;[63]
	vpZ	A%I		;
	XWD	wH,E
.A::	XWD	w0F,A%M	;
	XWD	IwP,A%Y	;
	XWD	J,wpG		;
	BYTE	(1)xM(17)0(18)A%D	;
	IFNB <K>,<
	xPK	;
	>
IFG <A-xp400K>,<
IFN <<.-y.A>-<A%E-A>>,<y0CFAIL INCONSIST. yPPROT. FOR A>
>>yp
DEFINE E%A<
IzFNB <B>,<
	IF1,z0<IFNDEF .B,<EXTEzPRN .B>>
	Z	.B
>
	IFB <B>,<Z>{
	BYTE	(1)L(3){0C(1)D(13)0(18)0	{P;
	Z	0	;
	XWD	{pH,E
.A::	XWD	|F,0	;
	XWD	I,0	|0;
	XWD	J,G	;
|P	BYTE	(1)M(17)0(|p18)0 ;
	IFNB <K}>,<
	K	;
	>
I}0FG <A-400K>,<
I}PFN <<.-.A>-<A%E}p-A>>,<CFAIL INCO~NSIST. PROT. FOR A>
>>
u
D;ZI 8	w
$$DEF==0X
IFE <^DC-^D36>x,<DEFINE A(XB,O)=
<$%W==B
IFNB8 <O>,<$%W==B+<O>X
>
IFE <$$USE-3x>,<LI $$$VAL
$$USE==1>
$F $%W(XB8)>
$$DEF==1>
IFXE <^DC-^D18>,<IFxE <^DD-^D17>,
<;
DEFINE A(XB,O8)=<
$%W==B
IFNXB <O>,<$%W==B+<Ox>>
IFE <$$USE-3>,<LI $$$VAL
$$US8E==1>
IFE $$USE,X<$F $%W(XB)>
IFEx <$$USE-1>,<$L $%W(XB)>
IFE <$$US8E-2>,<PRINTX OPD-XOPR NESTING ERRORx>
$$USE==2>
$$DEF==1>
IFE <^DD8-^D35>,
<DEFINE XA(XB,O)=<
$%W==xB
IFNB <O>,<$%W==B+<O>>
IFE <$8$USE-3>,<LI $$$VAXL
$$USE==1>
IFEx $$USE,<$F $%W(XB)>
IFE <$$USE-1>8,<$R $%W(XB)>
IFXE <$$USE-2>,<PRINxTX OPD-OPR NESTING ERROR>
$$USE==82>
$$DEF==1>
>X
IFE $$DEF,<
DEFxINE A(XB,O)=<
$%W==B
IFNB <O>,8<$%W==B+<O>>
IFXE <$$USE-3>,<LI $x$$VAL
$$USE==1>
IFE $$USE,<$F $%8W(XB)>
IFE <$$USXE-1>,<$B [$A O(XxB)]-$$RELO($$BAS)>
IFE <$$USE-2>,8<PRINTX INVALID UXSE OF FIELD>
$$UxSE==2>
$$DEF==1>
OPDEF $A [POIN8T C,B,D]
$A=X=$A
%A==^DD
xIFE <^DC-1>,<DSW (A,B,D)>
IO8 -X



IFL <^-xD36-^DC>,<$$E(<T.OO BIG BIT NO>)>
IFE ^D36-^DC,<
 IFB <D>,<DEFIN.xE A(ACC)=<
	IFE/ <%OP%-2>,<$$E(<I/8LL SWITCH NAME>)>/X
	IFN <%OP%-2>,</x
	 IFE <%OP%-3>,0<%OP3 777777>
	 08IFE <%OP%-4>,<%OP0X3>
	1IFL <%OP%-20x>,<%OP4 B(ACC)>
			%OP%==2>>>
 18IFNB <D>,<DEFINE1X A=<
	IFE <%OP%1x-2>,<$$E(<ILL SWI2TCH NAME>)>
	IFN28 <%OP%-2>,<
	 IF2XE <%OP%-3>,<%OP3 2xD,777777>
	 IFE3 <%OP%-4>,<%OP3 38D,>
	3IFL <%OP%-3X2>,<%OP4 B(D)>
		     %OP%==2>>4>>
IFGE	^D35-^D48C,<
	VA==1BC
4XIFE	^DC,<
	CA=4x=377777777777>
I5FN	^DC,<
	CA==58-1*VA-1>
IFGE ^5XD17-^DC,<
	CA=5x=CA_-^D18
	VA=6=VA_-^D18>

DE68FINE	$$TES1(X,Y,Z6X)<

IFGE	^D17-^6xDC,<
IFB <Z>,<D7EFINE A(ACC)<
I78FE <%OP%-1>,<%OP17X Y>
IFE %OP%,<%O7xP1 X>
IFE <%OP%-82>,<$$E(<ILL SWIT88CH NAME>)>
IFGE 8X<%OP%-3>,<IFB <AC8xC>,<%OP1 Y>
	IFN9B <ACC>,<%OP1 ACC98,Y>>
IFL<%OP%-2>9X,<%OP3 B(ACC)>
9x%OP%==2>>
IFNB <:Z>,<DEFINE A=<
:8IFE <%OP%-1>,<%OP:X1 Y>
IFE %OP%,<%:xOP1 X>
IFE <%OP%;-2>,<$$E(<ILL SWI;8TCH NAME>)>
IFGE;X <%OP%-3>,<%OP1 Z;x,Y>
IFL <%OP%-2><,<%OP3 B(Z)>
%O<8P%==2>>>

IFL ^<XD17-^DC,<
IFB <<xD>,<DEFINE A(AC=C)<
IFE %OP%-1,<=8%OP2 Y>
IFE %OP%=X,<%OP2 X>
IFE <%=xOP%-2>,<$$E(<ILL >SWITCH NAME>)>
I>8FGE <%OP%-3>,<IFB>X <ACC>,<%OP2 Y>
>x	IFNB <ACC>,<%OP2? ACC,Y>>
IFL <%O?8P%-2>,<%OP3 B(AC?XC)>
%OP%==2>>
I?xFNB <D>,<DEFINE @A=<
IFE <%OP%-1@8>,<%OP2 Y>
IFE %@XOP%,<%OP2 X>
IFE@x <%OP%-2>,<$$E(<IALL SWITCH NAME>)>A8
IFGE <%OP%-3>,<AX%OP2 Z,Y>
IFL <%AxOP%-2>,<%OP3 B(ZB)>
%OP%==2>>
>B8
>
	$$TES1(\CA,BX\VA,D)
	PURGE VA,CA
>
IXtJ9P IXtLuP"IXtMP  IXu]P IXvMP  IXvMP IXvMP Ik@ Q-
	S==0
	pIFNB	<B>,<S==B>
	K==QSIMPLE
	I0FNB	<E>,<K==E>
	M==QDECLARED
	pIFNB	<D>,<M==D>
	N==0
	IRPC	A1,<N==N+1>
	IFG	<PN-^D12>,<PRINTX pA too long>
	Q==0
	IFG	<N-6>,<Q=0=1B0>
	Q==Q+<S>BP<%ZSDSPI>+<C>B<%pZSDTYP>+<M>B<%ZSDMOD>+<K>B<%ZSDKND0>+F
	EXP	Q
	SIPXBIT/A/
	IFE	<pC-QREF>,<
	IFB	<G>,<PRINTX REF q0uantity should haPve qualif>
	Z	G
>xTDuMy@IkXv ~Q
	SIXBIT/~pA/
	N==0
	IRPC	A,<N==N+1>
	IF0L	<N-7>,<Z>
	IFNPB	<C>,<N==C>
	pIFB	<C>,<N==.+1>
B%Y::	<QSYSCL>B<%ZSMTYP>+N
6JMy 
IFNB <IO8FI>,<
	IF1,<IFNDXEF .IOFI,<EXTERN x.IOFI>>
	Z	.IOFI
>
	IFB <IOFI>,8<Z>
	BYTE	(1)(3)XQIOFI(1)1(13)0(18x)0	;
	Z	0	;
	XWD	-2,1
.IODF::	X8WD	QDFLNG,0	;
	XXWD	QFIEBL,0	;
	XxWD	,QFIDLE	;
	BYTE	(1)1(17)0(18)08 ;
	IFNB <Z>,<
X	Z	;
	>
IFG <IOxDF-400K>,<
IFN <<.-.IODF>-<IODF%E8-IODF>>,<CFAIL INXCONSIST. PROT. FOR IODF>
>QIJMyT `9%
IFNB <>,`X<
	IF1,<IFNDEF .`x,<EXTERN .>>
	Z	a.
>
	IFB <>,<Z>a8
	BYTE	(1)(3)QIOaXFI(1)1(13)0(18)0	ax;
	Z	0	;
	XWD	-b2,
.IOFI::	XWD	Qb8FILNG,0	;
	XWD	QbXFIEBL,0	;
	XWD	1bx,QFIDLE	;
	BYTE	c(1)1(17)0(18)0 ;
	IFNB <PTX>,<
	cXPTX	;
	>
IFG <IcxOFI-400K>,<
IFN d<<.-.IOFI>-<IOFI%d8E-IOFI>>,<CFAIL IdXNCONSIST. PROT. FOR IOFI>
>w{JMz7 kY
IFNB <IOkxFI>,<
	IF1,<IFNDlEF .IOFI,<EXTERN l8.IOFI>>
	Z	.IOFIlX
>
	IFB <IOFI>,lx<Z>
	BYTE	(1)(3)mQIOFI(1)1(13)0(18m8)0	;
	Z	0	;
	XWmXD	-2,1
.IOIN::	XmxWD	QIFLNG,0	;
	XnWD	QFIEBL,0	;
	Xn8WD	,QFIDLE	;
	BYnXTE	(1)1(17)0(18)0nx ;
	IFNB <Z>,<
o	Z	;
	>
IFG <IOo8IN-400K>,<
IFN <oX<.-.IOIN>-<IOIN%Eox-IOIN>>,<CFAIL INpCONSIST. PROT. FOR IOIN>
>PJM{z w]
IFNB <IOw8FI>,<
	IF1,<IFNDwXEF .IOFI,<EXTERN wx.IOFI>>
	Z	.IOFIx
>
	IFB <IOFI>,x8<Z>
	BYTE	(1)(3)xXQIOFI(1)1(13)0(18xx)0	;
	Z	0	;
	XWyD	-2,1
.IOOU::	Xy8WD	QOFLNG,0	;
	XyXWD	QFIEBL,0	;
	XyxWD	,QFIDLE	;
	BYzTE	(1)1(17)0(18)0z8 ;
	IFNB <Z>,<
zX	Z	;
	>
IFG <IOzxOU-400K>,<
IFN <{<.-.IOOU>-<IOOU%E{8-IOOU>>,<CFAIL IN{XCONSIST. PROT. FOR IOOU>
>PJM| Y9
IFNB <IOxOU>,<
	IF1,<IFNDEF .IOOU,<EXTERN 8.IOOU>>
	Z	.IOOUX
>
	IFB <IOOU>,x<Z>
	BYTE	(1)(3)QIOFI(1)1(13)0(188)0	;
	Z	0	;
	XWXD	-2,2
.IOPF::	XxWD	QPFLNG,0	;
	XWD	QFIEBL,0	;
	X8WD	,QFIDLE	;
	BYXTE	(1)1(17)0(18)0x ;
	IFNB <Z>,<
	Z	;
	>
IFG <IO8PF-400K>,<
IFN <X<.-.IOPF>-<IOPF%Ex-IOPF>>,<CFAIL INCONSIST. PROT. FOR IOPF>
>J: &U
IFNB <SS&0LG>,<
	IF1,<IFND&PEF .SSLG,<EXTERN &p.SSLG>>
	Z	.SSLG'
>
	IFB <SSLG>,'0<Z>
	BYTE	(1)(3)'PQSSLG(1)0(13)0(18'p)0	;
	Z	0	;
	XW(D	.SIMLV,1
.SSHD(0::	XWD	ZLG%S,0	;
	XWD	.SIMLV-1,0	(p;
	XWD	,3+.SIMVL)	;
	BYTE	(1)(17))00(18)0 ;
	IFNB <)P>,<
		;
	>
IFG)p <SSHD-400K>,<
I*FN <<.-.SSHD>-<SS*0HD%E-SSHD>>,<CFAI*PL INCONSIST. PROT. FOR SSHD>
>J; qy
IFNB <>,<
	IF1,<IFNDEF .0,<EXTERN .>>
	Z	P.
>
	IFB <>,<Z>p
	BYTE	(1)(3)QSSLG(1)0(13)0(18)0	0;
	Z	0	;
	XWD	.PSIMLV,0
.SSLG::	pXWD	ZLG%S,0	;
	XWD	.SIMLV-1,0	;
0	XWD	,3+.SIMVL	;
	BYTE	(1)(17)0(1p8)0 ;
	IFNB <>,<
		;
	>
IFG <S0SLG-400K>,<
IFN P<<.-.SSLG>-<SSLG%pE-SSLG>>,<CFAIL INCONSIST. PROT. FOR SSLG>
>j5J; 1Q1
IFNB <SS1pLG>,<
	IF1,<IFND2EF .SSLG,<EXTERN 20.SSLG>>
	Z	.SSLG2P
>
	IFB <SSLG>,2p<Z>
	BYTE	(1)(3)3QSSLG(1)0(13)0(1830)0	;
	Z	0	;
	XW3PD	.SIMLV,1
.SSLK3p::	XWD	ZLG%S,0	;
	XWD	.SIMLV-1,0	40;
	XWD	,3+.SIMVL4P	;
	BYTE	(1)(17)4p0(18)0 ;
	IFNB <5>,<
		;
	>
IFG50 <SSLK-400K>,<
I5PFN <<.-.SSLK>-<SS5pLK%E-SSLK>>,<CFAI6L INCONSIST. PROT. FOR SSLK>
>J<z q)
IFNB <>,<
	IF1,<IFNDEF .0,<EXTERN .>>
	Z	P.
>
	IFB <>,<Z>p
	BYTE	(1)1(3)(1)1(13)0(18)0	;
	0Z	0	;
	XWD	0,0
P.SSST::	XWD	ZBI%Sp,0	;
	XWD	.SIMLV,0	;
	XWD	,3+.SI0MVL-1	;
	BYTE	(1P)(17)0(18)0 ;
	IpFNB <>,<
		;
	>
IFG <SSST-400K>0,<
IFN <<.-.SSSTP>-<SSST%E-SSST>>,p<CFAIL INCONSIST. PROT. FOR SSST>
>5WJ	j5ZJ[0 TE
IFNB <SUT0PS>,<
	IF1,<IFNDTPEF .SUPS,<EXTERN Tp.SUPS>>
	Z	.SUPSU
>
	IFB <SUPS>,U0<Z>
	BYTE	(1)(3)UPQSUPS(1)0(13)0(18Up)0	;
	Z	0	;
	XWVD	.SIMLV,3
.SUMAV0::	XWD	ZPS%S,0	;
	XWD	.SIMLV-1,0	Vp;
	XWD	,3+.SIMVLW	;
	BYTE	(1)(17)W00(18)0 ;
	IFNB <WP>,<
		;
	>
IFGWp <SUMA-400K>,<
IXFN <<.-.SUMA>-<SUX0MA%E-SUMA>>,<CFAIXPL INCONSIST. PROT. FOR SUMA>
>TJ\ HQi
IFNB <SSHpLK>,<
	IF1,<IFNDIEF .SSLK,<EXTERN I0.SSLK>>
	Z	.SSLKIP
>
	IFB <SSLK>,Ip<Z>
	BYTE	(1)(3)JQSUPS(1)0(13)0(18J0)0	;
	Z	0	;
	XWJPD	.SIMLV,2
.SUPSJp::	XWD	ZPS%S,0	;
	XWD	.SIMLV-1,0	K0;
	XWD	,3+.SIMVLKP	;
	BYTE	(1)(17)Kp0(18)0 ;
	IFNB <L>,<
		;
	>
IFGL0 <SUPS-400K>,<
ILPFN <<.-.SUPS>-<SULpPS%E-SUPS>>,<CFAIML INCONSIST. PROT. FOR SUPS>
>SJ\t >
IFNB <SS>0ST>,<
	IF1,<IFND>PEF .SSST,<EXTERN >p.SSST>>
	Z	.SSST?
>
	IFB <SSST>,?0<Z>
	BYTE	(1)1(3?P)QSUSI(1)1(13)0(1?p8)0	;
	Z	0	;
	X@WD	0,1
.SUSI::	X@0WD	ZSU%S,0	;
	XW@PD	.SIMLV,0	;
	XW@pD	,3+.SIMVL-1	;
A	BYTE	(1)(17)0(18A0)0 ;
	IFNB <>,<
		;
	>
IFG <SUApSI-400K>,<
IFN <B<.-.SUSI>-<SUSI%EB0-SUSI>>,<CFAIL INBPCONSIST. PROT. FOR SUSI>
>uLXzKH,P KH-J1P KK;r q(w..N==0
		qHIFNB <A>,<..N=Aqh>
		IRP B,<
		rQBENO=..N
		>
		PURGE	..N
		KKX1

puIRP A,<

8		DEFINE	AERR(N,

XMSG)<
			RTSERR

x<N+QAENO>
			IFBUG,<NOP	[AS
MSG
/]
	>;

		DEFINE	SG)<
			RTSERR	<C>,<N+Q8AENO>
			IFN	QDXEBUG,<NOP	[ASCIZ/
MSG
/]
	>>>MJ,P 6 S6)2 7 Su{R pYCAIN	A,NONE k&HxP W
 xIFN QKA10 IFN QKA10W%
  IFN QKI10IFN QKI10Y?< 8pM
		IFNB <XA>,<XLOW=A>
			8IFB  <A>,<XLOW=X	XIAC>
		HRRZ	XLOW,.JBOPS
		 ]>h6 xq1
		LOWADR
		L	A,YDSIAR(XLOW)
	 k+0]?$lR 7 _69: 2<$A>&777777aJ|:7 r)
QOCIN==	c`1
QOCIO==	2
QIOy==	4
QIONF=	10
XIQOCEP=	20	;
QALLXh=	QIO+QIONF+QOCEPY+QOCIN+QOCIO	;
QY(RTSYM=	777
Q==QYHA	;
DEFINE X(N,EYh,D,U,O)<
%U==0	;Z
IRP U,<%U==%U+QZ('U>
IFN <QRTSYM-ZHQ'D>,<	;
	IFN <QZh&%U>,<IFE <<Q'D>&[Q>,<EXTERN E>>	;
	IFN <<Q'D>&Q>,<[HIFN <Q'D-%U>,<INT[hERN E>>	;
						\;
>
IFN <Q&%U>,\(<	;
	IFB <O>,<
\H	OPDEF N [PUSHJ X\hPDP,E]
	>
	IFNB] <O>,<
	OPDEF N ]([O E]
>	>
>;
]H
;

X(COPYSPEC,]h.OCIN6,OCIN,<OCIN^,IONF>)	;
X(CREA^(TEFILE,.IOCF,IONF^H,<OCIN,IONF>)	;
^hX(ERRFILE,.IOERF,_OCIO,<OCIN,IO>)	;_(
					;
X(FILEE_HNTER,.IOENT,IONF,_h<OCIN,IONF>)	;
X`(FILEERROR,.IOFER`(,OCIO,IONF)		;
	`H				;
X(FILELOOK`hUP,.IOLOK,IONF,<OaCIN,IONF>)	;
X(Fa(INDLOGICAL,.OCINJaH,OCIN,<OCIN,IONF>ah)	;
					;
X(FIbXSWITCH,.OCINF,OCb(IN,<OCIN,IONF>)	;bH
					;
X(FREEBbhUFF,.OCINC,OCIO,<cOCIN,IO>)	;
X(GEc(TBUFF,.OCIN7,OCINcH,<OCIN,IONF>)	;
chX(GETBYTE,.OCING,dOCIO,<OCIN,OCIO,Id(ONF>)	;
					;
dHX(GETCHANNEL,.OCIdhN8,OCIO,<OCIN,IONeF>)	;
X(GETNAME,e(.OCIN1,OCIO,<OCINeH,IO,IONF>)	;
X(GehETREST,.OCINH,OCIfO,OCIN)		;
					f(;
X(GETSPEC,.OCIfHNB,OCIN,<OCIN,IONfhF>)	;
X(LEGAL,.OgCLA,OCIO,<OCEP,OCg(IO>)		;
X(LINKBUgHFF,.OCIND,OCIO,<OghCIN,IONF>)	;
X(OhUTENTER,.OCINI,OCh(IN,<OCIN,IONF>)	;hH
					;
X(OUTOChhT,.OCOO,OCIO,<IONiF,OCIO,OCEP>)	;
i(X(PRINTFILE,.OCINiH9,OCIO,<OCIO,OCINih>)	;
X(PRINTSPECj,.OCINE,IONF,<OCIj(N,IONF>)	;
X(REOjHPEN,OCINK,RTSYM,IjhO)		;
X(SETUPFILkE,IOCOM,RTSYM,IO)k(		;
X(SPECCOPY,.kHOCINZ,OCIN,<OCIN,khIONF>)	;
					;
X(TTYSPEC,.OCINYl(,OCIN,<OCIN,IONF>lH)	;
X(TYPENAME,.lhOCIN2,OCIO,ALL)		m;
					;
X(TYPEm(SPEC,.IOTYS,OCIO,mHALL)		;
X(TYPDECmh,.OCDT,OCIO,<OCIOn,OCEP>)	;
X(TYPOn(CT,.OC8T,OCIO,<OCnHIO,OCEP>)	;

OPnhDEF	OP	[HRLI]
OPoDEF	OPZ	[HRLZI]
o(QCHN==OFFSET(ZFICoHHN)

DEFINE FILohOP(OP,X,Y)<
IFB	p<Y>,<HLL X,QCHN(Xp(WAC1)>
IFNB	<Y>,pH<HLL X,QCHN(Y)>
ph	TLO	X,(<OP>)
	XqCT	X
	>
DEFINE	q(IOCHECK(X,Y,M)<
qHIFB	<M>,<HRRI X,7qh40000>
	IFNB	<M>r,<HRRI	X,M>
	FILr(OP(STATZ,X,Y)
	>rH

	IFE QDEC20,<rhOPDEF PBOUT [OUTCsHR X1]>	;

	PURs(GE %U,Q,QIO,QIONFsH,QOCIN,QOCIO,QRTSYM
GcK&9(PaS@Q

$bP #cf@P c[W@ c[W@ c5KS@ c;wP cQ@ cQ@ cR@ cT@ cY@ cY@ cI`@ cIp@ bcj6P cj7P cLKP cLXVQ ~cMKS@ 
c~)9P FcKS@ c&\YP c&.mP c&5YP c&5KS@ 
c&dzP c&eM:P Gc&l7P c&t^P c&|[W@ c&|j P c&}L@ c')2P c');P c'X`P c'tP c'wP c'%2P c.
P c.JP c2)rA ?c:

0P c:>@

c>(2P c>[W@ c>5KS@ 
cB$^@ cB%I7@  cB5KS@ cBD[W@  cB}K4@ cJ$[W@ (cJ46P GcK&9(P cN

[W@ .cNM\P cO[W@ 1cOI`P cO,[W@ 1cO.

`PcO.:WPcO=k`@cR/.+W@ eMj: AXvB	;
	SEARCA8H	SIMMAC,SIMMCR
N	EXTERN	.YFARG,.YOFADR		;
	SALL
	MhRTITLE	RDA
	ENT`(RY	.RDA
	ERRMAC`H	RD
	MACINIT
DE`hFINE XX(N)<
DEFIaNE ARG'N<N-1(XTACa()>
>
	XX	1
	XXaH	2
	XX	3
	XX	4
	XX	5

	SYN	ARbG1,RESULT

DEFIb(NE RAND(N)<;
		;bH
	L	X0,@ARG'N
	bhSKIPGE	;
	ADD	[3c77777777777]
	TRc(O	1	;
	MUL	X0,[QcHMULTIPLIER]
	ST	chX1,@ARG'N	;
	TLZd	X1,400K	;
>

d(DEFINE MAKEREAL(NdH<1>)<	;
	FLTR	X0dh,X1
	FSC	X0,N-44e
>

DEFINE AR(e(A,B)<OFFSET(ZAR'AeH)+2(XWAC'B)>

DehEFINE ARTEST(A,B)f<
	HLRZ	XWAC'A,Of(FFSET(ZARSUB)(XWAfHC'B)
	CAIE	XWAC'fhA,QTSTAR
>

QMgULTIPLIER==1
REPg(EAT ^D15,<QMULTIPgHLIER==QMULTIPLIERgh*5>;RESULT IS 5**h15

	QTSTAR==(<h(QREAL>B<%ZARTYP>+1B<%ZARSUB>)
e&=q
	SIZE(Q,8A)
	IFN <Q-^D18X>,<Q==0>
	IFN <%xA-^D35>,<Q==0>
	IFE <Q>,
	<CFAI8L A is not right half>
	j.nVeK$^ n(w;<><><><>
	IFN QDEBUG,<
	nhIFONA	SWGCT2
	>
	OUTSTR	[ASCIZ	/o(

A/]
	IFN QDoHEBUG,<
	IF
		IFohOFFA	SWGCT3
		GOpTO	FALSE
	THEN
p(		LI	X2,[ASCIZ	/

A/]
		EXEC	SphAPDTO
	FI
	>
	eR/
	IFkhN QDEBUG,<
	IFONlA	SWGCT2
	>
	OUl(TSTR	[ASCIZ	/
AlH/]
	IFN QDEBUG,<lh
	IF
		IFOFFA	SmWGCT3
		GOTO	FALm(SE
	THEN
		LI	XmH2,[ASCIZ	/
A/]
		EXEC	SAPDTO
	FI
	>
	eVu@ ^z;
	IFDEF ^ .DIRECTIVE,<.DIRE^@CTIVE .NOBIN>
	U^`NIVERSAL	A     D_ECsystem-10/20 SI_ MULA RTS %4A(310)   RTS %4A(310)g<< Ohu
IFE <%OPP%-1>,<%OP1 400000P(>
IFE %OP%,<%OP1PH 377777>
IFE <%OPhP%-2>,<$$E(<ILL SQWITCH NAME>)>
IFQ(GE <%OP%-3>,<IFB QH<A>,<%OP1 400000Qh>
	IFNB <A>,<%ORP1 A,400000>>
IR(FL<%OP%-2>,<%OP3 RHYSASW(A)>
%OP%==2g4X6 xq;
	EXCH	X16,.JBOPS
	q==YU8UOAC
	IFNB <A>,X<q==A>;
	ST	X17x,q+X17(X16)
	LI	X17,q(X16)
	BLT	8X17,q+X15(X16)
	XL	X17,X16
	EXCH	xX17,.JBOPS
	ST	X17,q+X16(X16)
	L8	X17,q+X17(X16)
	PURGE	q
jekg
Ht 
1
	IFE <%O61P%-2>,<$$E(<ILL S6QWITCH NAME>)>
	I6qFN <%OP%-2>,<
	 7IFE <%OP%-3>,<%OP3 777777>
	 IFE  <%OP%-4>,<%OP3>
@	 IFL <%OP%-2>,<%`OP4 YBATCH(A)>
			%OP%==2>j59g
%%%%%1==j0
IRP A,<
A==j %%%%%1
%%%%%1==<%%%%%1+1>>Yg; qw
	IFE <%OP%-2>,<$$E(<ILL S0WITCH NAME>)>
	IPFN <%OP%-2>,<
	 pIFE <%OP%-3>,<%OP3 777777>
	 IFE 0<%OP%-4>,<%OP3>
P	 IFL <%OP%-2>,<%pOP4 YDSCLOSE(A)>
			%OP%==2>{zg%K{ 
pU
		IFNB <
8A>,<XLOW=A>
		
XIFB  <A>,<XLOW=XIAC>
		<PP gRJ1 Y9G
	A=	Q
Y	IFB	<B>,<Q==Q+1Xy>
	IFNB	<B>,<Q==<B>+Q>VQ{Jg^+ 5xsA
	IFE <%O6P%-2>,<$$E(<ILL S68WITCH NAME>)>
	I6XFN <%OP%-2>,<
	 6xIFE <%OP%-3>,<%OP73 XLOW,777777>
	78 IFE <%OP%-4>,<%O7XP3 XLOW,>
	 IFL 7x<%OP%-2>,<%OP4 YO8CSW+13(XLOW)>
		     %OP%==2>qg^.,@ (rS
	IFE <%O(8P%-2>,<$$E(<ILL S(XWITCH NAME>)>
	I(xFN <%OP%-2>,<
	 )IFE <%OP%-3>,<%OP)83 XLOW,777777>
	)X IFE <%OP%-4>,<%O)xP3 XLOW,>
	 IFL *<%OP%-2>,<%OP4 YO*8CSW+6(XLOW)>
		     %OP%==2>g^<0 >t
	IFE <%O>8P%-2>,<$$E(<ILL S>XWITCH NAME>)>
	I>xFN <%OP%-2>,<
	 ?IFE <%OP%-3>,<%OP?83 XLOW,777777>
	?X IFE <%OP%-4>,<%O?xP3 XLOW,>
	 IFL @<%OP%-2>,<%OP4 YO@8CSW+16(XLOW)>
		     %OP%==2>g^<=	 VHuJ
IFE <%OPVh%-1>,<%OP1 100000W>
IFE %OP%,<%OP1W( 677777>
IFE <%OWHP%-2>,<$$E(<ILL SWhWITCH NAME>)>
IFXGE <%OP%-3>,<IFB X(<A>,<%OP1 100000XH>
	IFNB <A>,<%OXhP1 A,100000>>
IYFL<%OP%-2>,<%OP3 Y(YSASW(A)>
%OP%==2g^<=	 Yxue
IFE <%OPZ%-1>,<%OP1 40000>Z8
IFE %OP%,<%OP1 ZX737777>
IFE <%OPZx%-2>,<$$E(<ILL SW[ITCH NAME>)>
IFG[8E <%OP%-3>,<IFB <[XA>,<%OP1 40000>
	IFNB <A>,<%OP1\ A,40000>>
IFL<\8%OP%-2>,<%OP3 YSA\XSW(A)>
%OP%==2g^<=
 ](v
IFE <%OP]H%-1>,<%OP1 20000>]h
IFE %OP%,<%OP1 ^757777>
IFE <%OP^(%-2>,<$$E(<ILL SW^HITCH NAME>)>
IFG^hE <%OP%-3>,<IFB <A>,<%OP1 20000>
	IFNB <A>,<%OP1_H A,20000>>
IFL<_h%OP%-2>,<%OP3 YSA`SW(A)>
%OP%==2g^<= Su/
IFE <%OPS8%-1>,<%OP1 200000SX>
IFE %OP%,<%OP1Sx 577777>
IFE <%OTP%-2>,<$$E(<ILL ST8WITCH NAME>)>
IFTXGE <%OP%-3>,<IFB Tx<A>,<%OP1 200000U>
	IFNB <A>,<%OU8P1 A,200000>>
IUXFL<%OP%-2>,<%OP3 UxYSASW(A)>
%OP%==2g^>=` *xri
	IFE <%O+P%-2>,<$$E(<ILL S+8WITCH NAME>)>
	I+XFN <%OP%-2>,<
	 +xIFE <%OP%-3>,<%OP,3 XLOW,777777>
	,8 IFE <%OP%-4>,<%O,XP3 XLOW,>
	 IFL ,x<%OP%-2>,<%OP4 YO-CSW+7(XLOW)>
		     %OP%==2>g^EL 08s
	IFE <%O0XP%-2>,<$$E(<ILL S0xWITCH NAME>)>
	I1FN <%OP%-2>,<
	 18IFE <%OP%-3>,<%OP1X3 XLOW,777777>
	1x IFE <%OP%-4>,<%O2P3 XLOW,>
	 IFL 28<%OP%-2>,<%OP4 YO2XCSW+11(XLOW)>
		     %OP%==2>g^Mi XqO
	IFE <%OxP%-2>,<$$E(<ILL SWITCH NAME>)>
	I8FN <%OP%-2>,<
	 XIFE <%OP%-3>,<%OPx3 XLOW,777777>
	 IFE <%OP%-4>,<%O8P3 XLOW,>
	 IFL X<%OP%-2>,<%OP4 YOxCSW(XLOW)>
		     %OP%==2>g^d$j 1c
	IFE <%OPP%-2>,<$$E(<ILL SpWITCH NAME>)>
	IFN <%OP%-2>,<
	 0IFE <%OP%-3>,<%OPP3 777777>
	 IFE p<%OP%-4>,<%OP3>
	 IFL <%OP%-2>,<%0OP4 YDSL35(A)>
			%OP%==2>;g^ez` ;8sm
	IFE <%O;XP%-2>,<$$E(<ILL S;xWITCH NAME>)>
	I<FN <%OP%-2>,<
	 <8IFE <%OP%-3>,<%OP<X3 XLOW,777777>
	<x IFE <%OP%-4>,<%O=P3 XLOW,>
	 IFL =8<%OP%-2>,<%OP4 YO=XCSW+15(XLOW)>
		     %OP%==2>g^uyq QO
	IFE <%O1P%-2>,<$$E(<ILL S1WITCH NAME>)>
	IPFN <%OP%-2>,<
	 pIFE <%OP%-3>,<%OP3 777777>
	 IFE 0<%OP%-4>,<%OP3>
P	 IFL <%OP%-2>,<%pOP4 YDSNOG(A)>
			%OP%==2>j51g_y9 -Xr
	IFE <%O-xP%-2>,<$$E(<ILL S.WITCH NAME>)>
	I.8FN <%OP%-2>,<
	 .XIFE <%OP%-3>,<%OP.x3 XLOW,777777>
	/ IFE <%OP%-4>,<%O/8P3 XLOW,>
	 IFL /X<%OP%-2>,<%OP4 YO/xCSW+10(XLOW)>
		     %OP%==2>g_r 3s+
	IFE <%O38P%-2>,<$$E(<ILL S3XWITCH NAME>)>
	I3xFN <%OP%-2>,<
	 4IFE <%OP%-3>,<%OP483 XLOW,777777>
	4X IFE <%OP%-4>,<%O4xP3 XLOW,>
	 IFL 5<%OP%-2>,<%OP4 YO58CSW+12(XLOW)>
		     %OP%==2>g_r xr
	IFE <%O P%-2>,<$$E(<ILL S 8WITCH NAME>)>
	I XFN <%OP%-2>,<
	  xIFE <%OP%-3>,<%OP!3 XLOW,777777>
	!8 IFE <%OP%-4>,<%O!XP3 XLOW,>
	 IFL !x<%OP%-2>,<%OP4 YO"CSW+3(XLOW)>
		     %OP%==2>g_t %8r=
	IFE <%O%XP%-2>,<$$E(<ILL S%xWITCH NAME>)>
	I&FN <%OP%-2>,<
	 &8IFE <%OP%-3>,<%OP&X3 XLOW,777777>
	&x IFE <%OP%-4>,<%O'P3 XLOW,>
	 IFL '8<%OP%-2>,<%OP4 YO'XCSW+5(XLOW)>
		     %OP%==2>g_y q{
	IFE <%O8P%-2>,<$$E(<ILL SXWITCH NAME>)>
	IxFN <%OP%-2>,<
	 IFE <%OP%-3>,<%OP83 XLOW,777777>
	X IFE <%OP%-4>,<%OxP3 XLOW,>
	 IFL <%OP%-2>,<%OP4 YO8CSW+2(XLOW)>
		     %OP%==2>g_z "Xr'
	IFE <%O"xP%-2>,<$$E(<ILL S#WITCH NAME>)>
	I#8FN <%OP%-2>,<
	 #XIFE <%OP%-3>,<%OP#x3 XLOW,777777>
	$ IFE <%OP%-4>,<%O$8P3 XLOW,>
	 IFL $X<%OP%-2>,<%OP4 YO$xCSW+4(XLOW)>
		     %OP%==2>g_&  8XsW
	IFE <%O8xP%-2>,<$$E(<ILL S9WITCH NAME>)>
	I98FN <%OP%-2>,<
	 9XIFE <%OP%-3>,<%OP9x3 XLOW,777777>
	: IFE <%OP%-4>,<%O:8P3 XLOW,>
	 IFL :X<%OP%-2>,<%OP4 YO:xCSW+14(XLOW)>
		     %OP%==2>g_&N  8qe
	IFE <%OXP%-2>,<$$E(<ILL SxWITCH NAME>)>
	IFN <%OP%-2>,<
	 8IFE <%OP%-3>,<%OPX3 XLOW,777777>
	x IFE <%OP%-4>,<%OP3 XLOW,>
	 IFL 8<%OP%-2>,<%OP4 YOXCSW+1(XLOW)>
		     %OP%==2>gg; 3
X<CLPB,S0USI,SSLG,SUPS,IOFI>N

quN

SiF@ hhvX;
	IFN QDiEBUG,<
	IFONA	SWi(GCT2
	>
	OUTSTRiH	[ASCIZ	/A/]
	IihFN QDEBUG,<
	IF
		IFOFFA	SWGCT3
		GOTO	FALSE
	TjHHEN
		LI	X2,[ASCjhIZ	/A/]
		EXEC	kSAPDTO
	FI
	>
	iJM\z Xp]SUB	XPDP,[1,,1]k&hxP p q9..N==0
	IRP A,<QA==..N
	..N==..N+1>N=pEP pEP pEP pEP pE P q& @ q
9 @ q
@@ q,`@ qNI @ q@ q`@ q$@ q&

0@ q'@ q(@ q,@ q0@ q2~p@ q4@ q8@ q:

0@ qJ

4 @ qN

0@ qOX`@ qO8@ qR

0@ q^

4 P q^

5P q^

5 P q^

5@P q`@ qc+@ qcP@ qcT* @ qcV`@ qh@ qj

0@ qj@ qj@ qj& @ qk0@ s8;@ s
Ht@@ eszi@ fszi@ fs(1@ s@ 
s.

@ s@ sz 1A
IFE <%OPP%-1>,<%OP1 400000p>
IFE %OP%,<%OP1 377777>
IFE <%O0P%-2>,<$$E(<ILL SPWITCH NAME>)>
IFpGE <%OP%-3>,<IFB <A>,<%OP1 4000000>
	IFNB <A>,<%OPP1 A,400000>>
IpFL<%OP%-2>,<%OP3 YDSWIT(A)>
%OP%==2<Q	j5<s((@ s(9@ s(w@ s,p@ s82@ s9W@ s;@ s<P@ s<{@ lsIW@ sM6@ sX2@ s[Y@ s1@ s9@ sW@ sy@ sQ@ sz@ !sDj@ sKp@ sks@ s)3@  s.@ s=8 1
	IFE <%OPP%-2>,<$$E(<ILL SpWITCH NAME>)>
	I FN <%OP%-2>,<
	  0IFE <%OP%-3>,<%OP P3 777777>
	 IFE  p<%OP%-4>,<%OP3>
!	 IFL <%OP%-2>,<%!0OP4 YDSCRA(A)>
			%OP%==2>?$lRs>@ sN@ sYW@  sz:@ sq@ !s+@ s+@ s-T @  s-[<@ s%yV@ sq@ is".

@ s&|-3@ $s&|:@ %s&}L@ 	s&~8;@ 	s&~:=@ s&~<@ -s&)Y@ -s*|+W@ 
s2~p@ "s>(2@ s>,Z@ ps>)H@ Ss>)I@ Ts>)W@ Ts>)Y@ Us>,z@ Us>-2@ ds>-3@ Zs>I;@ s>i@ Vs>j6@ Ys>|`@ s>|q@ s>V@ s>S@ ds>xV@ s>Z@ es>

@ s>)7@ s>):@ Rs>:7@ Rs>;z@ Ss>=`@ Js>N@ s>YV@ ks>q@ "sB$^@ sB%@@ msK%	t@ sK&

@ sK-m@ sN

@ 4sN

)9@ 3sN

+z@ 5sN

I0@ 0sN

[R@ 6sN

i9@ 1sN

k@ 2sN

l]@ 8sN

xw@ 0sN

xz@ /sN

}@sNN @ 3sN)6@ :sN)9@ 2sN8;@ :sN=@ /sN=@ sN=`@ 7sNH:@ 1sNJ6@ /sNKx@ 5sN,z@ 9sO-I;@

sO-i @ sO.1@ $sO.x@ "sO.	Z@ #sO.8x@ #sON:7@ sON;z@ sS%@@ .sS%x@@ .sSD @ ZsSD+@@ esSD,@ fsSD,@ fsSDM6@ jsSD^@ hsSEM@ hsSF9w@ gsSFL@ gsSG-@ lsW-x1@ Bsb

82@Wisj.+@

sj.+`@ u
D-8 #)
"$%W==2
IF#HNB <B>,<$%W==2+<#hB>
>
IFE <$$US$E-3>,<LI $$$VAL
$($$USE==1>
$F $%W(A)		j5pQ

u
D;Z $y
/$%W==3
IF%NB <B>,<$%W==3+<%8B>
>
IFE <$$US%XE-3>,<LI $$$VAL
%x$$USE==1>
$F $%W(A)/	j5V/u
D;w A	b
IFE %OP%a-1,<%OP2 400000>
IFE %OP%,<%OP2 7 77777377777>
IFE@ <%OP%-2>,<$$E(<I`LL SWITCH NAME>)>
IFGE <%OP%-3>,< IFB <A>,<%OP2 40@0000>
	IFNB <A>`,<%OP2 A,400000>>
IFL <%OP%-2>,< %OP3 0(A)>
%OP%==2IELD>
$$USEu
DlR q	+
IFE <%OP%-1>,<%OP1 4000000>
IFE %OP%,<%OP1P 377777>
IFE <%OpP%-2>,<$$E(<ILL SWITCH NAME>)>
IF0GE <%OP%-3>,<IFB P<A>,<%OP1 400000p>
	IFNB <A>,<%OP1 A,400000>>
I0FL<%OP%-2>,<%OP3 0(A)>
%OP%==2u
EI7 !	
$%W==0
@IFNB <B>,<$%W==0`+<B>>
IFE <$$USE-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
EKU A	I
$%W==0
!IFNB <B>,<$%W==0Q+<B>>
IFE <$$US1E-3>,<LI $$$VAL
Ci$$USE==1>
IFE $$PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$B [$ZBHLNK B(A)0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PpRINTX INVALID USE OF FIELD>
$$USE==2^yQuj6u
F\r 1	{
IFE <%OP%-1>,<%OP1 400000q>
IFE %OP%,<%OP19 377777>
IFE <%OP%-2>,<$$E(<ILL SCIWITCH NAME>)>
IFyGE <%OP%-3>,<IFB @<A>,<%OP1 400000x>
	IFNB <A>,<%OP1 A,400000>>
I8FL<%OP%-2>,<%OP3 1(A)>
%OP%==2u
G(Z  I

$%W==1
 )IFNB <B>,<$%W==1!Y+<B>>
IFE <$$US!9E-3>,<LI $$$VAL
C)$$USE==1>
IFE $$XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$"R $%W(A)>
IFE <"8$$USE-2>,<PRINTX "XOPD-OPR NESTING ERROR>
$$USE==2u,H: =It$%W==7
IF=hNB <B>,<$%W==7+<>B>
>
IFE <$$US>(E-3>,<LI $$$VAL
>H$$USE==1>
$F $%W(A)Og^+s-u.:= 4I9
$%W==5
4)IFNB <B>,<$%W==55Y+<B>>
IFE <$$US59E-3>,<LI $$$VAL
C	$$USE==1>
IFE $$3XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$6B [$ZBUSIZ B(A)68]-$$RELO($$BAS)>
IFE <$$USE-2>,<P6xRINTX INVALID USE7 OF FIELD>
$$USE==2KH,Pu.= .)
$%W==4
.HIFNB <B>,<$%W==4.h+<B>>
IFE <$$US/E-3>,<LI $$$VAL
/($$USE==1>
IFE $$/HUSE,<$F $%W(A)>
IFE <$$USE-1>,<$0R $%W(A)>
IFE <0($$USE-2>,<PRINTX 0HOPD-OPR NESTING ERROR>
$$USE==2u.\r 0y
IFE <%OP1%-1>,<%OP1 40000018>
IFE %OP%,<%OP11X 377777>
IFE <%O1xP%-2>,<$$E(<ILL S2WITCH NAME>)>
IF28GE <%OP%-3>,<IFB 2X<A>,<%OP1 4000002x>
	IFNB <A>,<%O3P1 A,400000>>
I38FL<%OP%-2>,<%OP3 5(A)>
%OP%==2u.xz :Yg
$%W==6
:xIFNB <B>,<$%W==6;+<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==2u/(Z 7iP
$%W==5
8IFNB <B>,<$%W==58(+<B>>
IFE <$$US8HE-3>,<LI $$$VAL
8h$$USE==1>
IFE $$9USE,<$F $%W(A)>
IFE <$$USE-1>,<$9HR $%W(A)>
IFE <9h$$USE-2>,<PRINTX :OPD-OPR NESTING ERROR>
$$USE==2u4+ 
$%W==26

a
IFNB <B>,<$%W==26+<B>>
IFEE<$$<LI $$$VALD	
$$USE==1>
IFE

0$$USE,<$F $%W(A)P>
IFE <$$USE-1>,p<$R $%W(A)>
IFE <$$USE-2>,<PRINT0X OPD-OPR NESTINGP ERROR>
$$USE==2qcT* @qcV`u4[R vaG
	IFE <%OwP%-2>,<$$E(<ILL Sw WITCH NAME>)>
	Iw@FN <%OP%-2>,<
	 w`IFE <%OP%-3>,<%OPx3 777777>
	 IFE x0<%OP%-4>,<%OP3>
xP	 IFL <%OP%-2>,<%xpOP4 7(A)>
			%OP%==2>j5:u56 yQa
$%W==24
IFNB <B>,<$%W==z24+<B>>
IFE <$$z0USE-3>,<LI $$$VALzP
$$USE==1>
IFE zp$$USE,<$F $%W(A){>
IFE <$$USE-1>,{0<$L $%W(A)>
IFE{P <$$USE-2>,<PRINT{pX OPD-OPR NESTING| ERROR>
$$USE==2j69Pj69<u5J6 |az
$%W==24
IFNB <B>,<$%W==} 24+<B>>
IFE <$$}@USE-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==2C@u@ C@unu5Kq ,
$%W==25
IFNB <B>,<$%W==@25+<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==2cB%I7@ cB5KSu5[r qE
IFE <%OP%-1>,<%OP1 4000000>
IFE %OP%,<%OP1P 377777>
IFE <%OpP%-2>,<$$E(<ILL SWITCH NAME>)>
IF0GE <%OP%-3>,<IFB P<A>,<%OP1 400000p>
	IFNB <A>,<%OP1 A,400000>>
I0FL<%OP%-2>,<%OP3 P26(A)>
%OP%==2E OF FIELD>
$$Uu5}: 	aa
IFE <%OP	A%-1>,<%OP1 200000	!>
IFE %OP%,<%OP1
Q 577777>
IFE <%O
1P%-2>,<$$E(<ILL SD)WITCH NAME>)>
IFpGE <%OP%-3>,<IFB <A>,<%OP1 2000000>
	IFNB <A>,<%OPP1 A,200000>>
IpFL<%OP%-2>,<%OP3

26(A)>
%OP%==2E OF FIELD>
$$Uu6xz q
$%W==25
IFNB <B>,<$%W==025+<B>>
IFE <$$PUSE-3>,<LI $$$VALp
$$USE==1>
IFE $$USE,<$F $%W(A)0>
IFE <$$USE-1>,P<$L $%W(A)>
IFEp <$$USE-2>,<PRINTX OPD-OPR NESTING0 ERROR>
$$USE==2c[W@c[Wu|{ xt	
	SETZM	XX0,YOCSW(XLOW)
	H8RLI	X0,YOCSW(XLOW@X)
	HRRI	X0,YOCSW@x+1(XLOW)
	BLT	X0A,YOCSW+QSWNO-1(XLOW)
u$I; "$%W==YOCFD"0
IFNB <B>,<$%W="P=YOCFD+<B>
>
I"pFE <$$USE-3>,<LI #$$$VAL
$$USE==1>
$F $%W(A)Yu$^ %QA
$%W==YOC%pFD+2
IFNB <B>,<&$%W==YOCFD+2+<B>&0>
IFE <$$USE-3>,&P<LI $$$VAL
$$USE&p==1>
IFE $$USE,<'$F $%W(A)>
IFE '0<$$USE-1>,<$L $%W'P(A)>
IFE <$$USE'p-2>,<PRINTX OPD-O(PR NESTING ERROR>
$$USE==2cJ$[Wu$j6 #a($%W==YOCFD$+1
IFNB <B>,<$%$ W==YOCFD+1+<B>
$@>
IFE <$$USE-3>,$`<LI $$$VAL
$$USE%==1>
$F $%W(A)c&5KS@
c&dzu&Z 2!$%W==YOCFD2@+5
IFNB <B>,<$%2`W==YOCFD+5+<B>
3>
IFE <$$USE-3>,3 <LI $$$VAL
$$USE3@==1>
$F $%W(A)qcT* @qcV`u&

S /!
$%W==YOC/@FD+4
IFNB <B>,</`$%W==YOCFD+4+<B>0>
IFE <$$USE-3>,0 <LI $$$VAL
$$USE0@==1>
IFE $$USE,<0`$F $%W(A)>
IFE 1<$$USE-1>,<$R $%W1 (A)>
IFE <$$USE1@-2>,<PRINTX OPD-O1`PR NESTING ERROR>
$$USE==2qJ

0u&

U ,u
$%W==YOC,0FD+4
IFNB <B>,<,P$%W==YOCFD+4+<B>,p>
IFE <$$USE-3>,-<LI $$$VAL
$$USE-0==1>
IFE $$USE,<-P$F $%W(A)>
IFE -p<$$USE-1>,<$L $%W.(A)>
IFE <$$USE.0-2>,<PRINTX OPD-O.PPR NESTING ERROR>
$$USE==2iJM\zu&
$%W==YOC)FD+3
IFNB <B>,<) $%W==YOCFD+3+<B>)@>
IFE <$$USE-3>,)`<LI $$$VAL
$$USE*==1>
IFE $$USE,<* $F $%W(A)>
IFE *@<$$USE-1>,<$B [$Z*`FDPT B(A)]-$$RE+LO($$BAS)>
IFE <+ $$USE-2>,<PRINTX +@INVALID USE OF FIELD>
$$USE==29u&9R 4+$%W==YOCFD40+6
IFNB <B>,<$%4PW==YOCFD+6+<B>
4p>
IFE <$$USE-3>,5<LI $$$VAL
$$USE50==1>
$F $%W(A)s(9@s(wuL [`}k
IFE <%OP[@%-1>,<%OP1 400>
[ IFE %OP%,<%OP1 77\07377>
IFE <%OP%-J(2>,<$$E(<ILL SWITJCH NAME>)>
IFGE ZP<%OP%-3>,<IFB <AZp>,<%OP1 400>
	IF\pNB <A>,<%OP1 A,]400>>
IFL<%OP%-2]0>,<%OP3 6(A)>
%OP%==2VALID USEuLS [a$%W==20
I[0FNB <B>,<$%W==20[P+<B>
>
IFE <$$[pUSE-3>,<LI $$$VAL\
$$USE==1>
$F $%W(A)uLk`uL)Y `$%W==23
I` FNB <B>,<$%W==23`@+<B>
>
IFE <$$``USE-3>,<LI $$$VALa
$$USE==1>
$F $%W(A)xu6uL+[ AF
IFE %OP%!-1,<%OP2 40000>
IFE %OP%,<%OP2 77I7777737777>
IFE )<%OP%-2>,<$$E(<ILG)L SWITCH NAME>)>
IFGE <%OP%-3>,<IPFB <A>,<%OP2 40000>
	IFNB <A>,<(%OP2 A,40000>>
HIFL <%OP%-2>,<%OPh3 6(A)>
%OP%==2F FIELD>
$$USEuL-3 
$%W==10
IFNB<<B>,<$%W==
IFEE<$$<LI $$$VAL
$$USE==1>
IFE 0$$USE,<$F $%W(A)P>
IFE <$$USE-1>,p<$R $%W(A)>
IFE <$$USE-2>,<PRINT0X OPD-OPR NESTINGP ERROR>
$$USE==2uL: 	Yd
$%W==10
IFNB <B>,<$%W==10+<B>>
IFE <$$
aUSE-3>,<LI $$$VALG	
$$USE==1>
IFE 
A$$USE,<$F $%W(A)	>
IFE <$$USE-1>,@<$B [$ZFICHN B(`A)]-$$RELO($$BAS)

>
IFE <$$USE-2>,

 <PRINTX INVALID U

@SE OF FIELD>
$$USE==2uLD  D7
$%W==16
IFNB <B>,<$%W==DP16+<B>>
IFE <$$DpUSE-3>,<LI $$$VALE
$$USE==1>
IFE E0$$USE,<$F $%W(A)EP>
IFE <$$USE-1>,Ep<$B [$ZFID1 B(AF)]-$$RELO($$BAS)>F0
IFE <$$USE-2>,<FPPRINTX INVALID USFpE OF FIELD>
$$USE==2uLD@ QQ#
$%W==17
IFNB <B>,<$%W==R17+<B>>
IFE <$$R0USE-3>,<LI $$$VALRP
$$USE==1>
IFE Rp$$USE,<$F $%W(A)S>
IFE <$$USE-1>,S0<$B [$ZFID2 B(ASP)]-$$RELO($$BAS)>Sp
IFE <$$USE-2>,<TPRINTX INVALID UST0E OF FIELD>
$$USE==2PpEuLI  X@}S
IFE <%OPX %-1>,<%OP1 1000>
IFE %OP%,<%OP1 7Y076777>
IFE <%OP%Y-2>,<$$E(<ILL SWIJHTCH NAME>)>
IFGEW0 <%OP%-3>,<IFB <WPA>,<%OP1 1000>
	YpIFNB <A>,<%OP1 ZA,1000>>
IFL<%OPZ0%-2>,<%OP3 6(A)>
%OP%==2D USE uLI@ K |i
IFE <%OPK%-1>,<%OP1 20000>J`
IFE %OP%,<%OP1 L757777>
IFE <%OPKp%-2>,<$$E(<ILL SWK(ITCH NAME>)>
IFGJE <%OP%-3>,<IFB <J0A>,<%OP1 20000>
	IFNB <A>,<%OP1Lp A,20000>>
IFL<M%OP%-2>,<%OP3 6(A)>
%OP%==2SE uLJ7 &?
IFE <%OP%a%-1>,<%OP1 2>
IF%AE %OP%,<%OP1 7777&q75>
IFE <%OP%-2>&Q,<$$E(<ILL SWITCHEI NAME>)>
IFGE <%$pOP%-3>,<IFB <A>,%<%OP1 2>
	IFNB <'0A>,<%OP1 A,2>>
IFL<%OP%-2>,<%OP'p3 11(A)>
%OP%==2INTX INVALID UuLK7 +Q
$%W==12
IFNB <B>,<$%W==. 12+<B>>
IFE <$$.@USE-3>,<LI $$$VAL.`
$$USE==1>
IFE /$$USE,<$F $%W(A)/ >
IFE <$$USE-1>,/@<$B [$ZFIDMO B(/`A)]-$$RELO($$BAS)0>
IFE <$$USE-2>,0 <PRINTX INVALID U0@SE OF FIELD>
$$USE==2Q	j5uLKz )!Y
IFE <%OP)%-1>,<%OP1 1>
IF(aE %OP%,<%OP1 7777*76>
IFE <%OP%-2>)q,<$$E(<ILL SWITCHE) NAME>)>
IFGE <%(OP%-3>,<IFB <A>,(0<%OP1 1>
	IFNB <*PA>,<%OP1 A,1>>
IFL<%OP%-2>,<%OP+3 11(A)>
%OP%==2INTX INVALID UuLLu aW
IFE <%OPA%-1>,<%OP1 200000!>
IFE %OP%,<%OP1Q 577777>
IFE <%O1P%-2>,<$$E(<ILL SFIWITCH NAME>)>
IFPGE <%OP%-3>,<IFB p<A>,<%OP1 200000>
	IFNB <A>,<%O0P1 A,200000>>
IPFL<%OP%-2>,<%OP3 p11(A)>
%OP%==2E OF FIELD>
$$UuLM "a%
IFE <%OP"A%-1>,<%OP1 100>
"!IFE %OP%,<%OP1 77#Q7677>
IFE <%OP%-#12>,<$$E(<ILL SWITEiCH NAME>)>
IFGE !P<%OP%-3>,<IFB <A!p>,<%OP1 100>
	IF$NB <A>,<%OP1 A,$0100>>
IFL<%OP%-2$P>,<%OP3 11(A)>
%OP%==2NVALID UuLMW 7Xt$$%W==13
I79FNB <B>,<$%W==139+<B>
>
IFE <$$8aUSE-3>,<LI $$$VALDI
$$USE==1>
$F $%W(A)777777777uLXz b ~!
IFE <%OPb%-1>,<%OP1 100>
a`IFE %OP%,<%OP1 77c7677>
IFE <%OP%-bp2>,<$$E(<ILL SWITIhCH NAME>)>
IFGE a<%OP%-3>,<IFB <Aa0>,<%OP1 100>
	IFcPNB <A>,<%OP1 A,cp100>>
IFL<%OP%-2d>,<%OP3 6(A)>
%OP%==2VALID USEuL[R ^`~
IFE <%OP^@%-1>,<%OP1 200>
^ IFE %OP%,<%OP1 77_p7577>
IFE <%OP%-_P2>,<$$E(<ILL SWIT_0CH NAME>)>
IFGE ]P<%OP%-3>,<IFB <A]p>,<%OP1 200>
	IF`0NB <A>,<%OP1 A,`P200>>
IFL<%OP%-2`p>,<%OP3 6(A)>
%OP%==2VALID USEuL^ A
$%W==16
IFNB <B>,<$%W==A@16+<B>>
IFE <$$A`USE-3>,<LI $$$VALB
$$USE==1>
IFE B $$USE,<$F $%W(A)B@>
IFE <$$USE-1>,B`<$L $%W(A)>
IFEC <$$USE-2>,<PRINTC X OPD-OPR NESTINGC@ ERROR>
$$USE==2uLj6 ?1$%W==15
I?PFNB <B>,<$%W==15?p+<B>
>
IFE <$$@USE-3>,<LI $$$VAL@0
$$USE==1>
$F $%W(A)uLk 6 {H
$%W==2
6@IFNB <B>,<$%W==26`+<B>>
IFE <$$US7E-3>,<LI $$$VAL
7 $$USE==1>
IFE $$7@USE,<$F $%W(A)>
IFE <$$USE-1>,<$8B [$ZFIFLN B(A)8 ]-$$RELO($$BAS)>
IFE <$$USE-2>,<P8`RINTX INVALID USE9 OF FIELD>
$$USE==29TQyP	j69TuLkR |0t
IFE %OP%|-1,<%OP2 400000>
IFE %OP%,<%OP2 7} 77777377777>
IFE} <%OP%-2>,<$$E(<IHLL SWITCH NAME>)>{ 
IFGE <%OP%-3>,<{@IFB <A>,<%OP2 40}`0000>
	IFNB <A>~,<%OP2 A,400000>~ >
IFL <%OP%-2>,<~@%OP3 6(A)>
%OP%==2IELD>
$$USEuLk` e@~;
IFE <%OPe %-1>,<%OP1 40>
IeFE %OP%,<%OP1 777f0737>
IFE <%OP%-2f>,<$$E(<ILL SWITCIHH NAME>)>
IFGE <d0%OP%-3>,<IFB <A>dP,<%OP1 40>
	IFNBfp <A>,<%OP1 A,40g>>
IFL<%OP%-2>,<g0%OP3 6(A)>
%OP%==2INVALID USE uLm 2p{-
$%W==2
3IFNB <B>,<$%W==230+<B>>
IFE <$$US3PE-3>,<LI $$$VAL
3p$$USE==1>
IFE $$4USE,<$F $%W(A)>
IFE <$$USE-1>,<$4PB [$ZFIFTR B(A)4p]-$$RELO($$BAS)>
IFE <$$USE-2>,<P50RINTX INVALID USE5P OF FIELD>
$$USE==2-3yhuI;uMT <!v
$%W==14
IFNB <B>,<$%W==<`14+<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&|*7P&|K8uMx ; {l
$%W==5
;@IFNB <B>,<$%W==5;`+<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==2uM@ A`|
IFE <%OPA@%-1>,<%OP1 200000A >
IFE %OP%,<%OP1BP 577777>
IFE <%OB0P%-2>,<$$E(<ILL SL(WITCH NAME>)>
IF@PGE <%OP%-3>,<IFB @p<A>,<%OP1 200000C>
	IFNB <A>,<%OC0P1 A,200000>>
ICPFL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM3 9P{U$%W==4
IF9pNB <B>,<$%W==4+<:B>
>
IFE <$$US:0E-3>,<LI $$$VAL
:P$$USE==1>
$F $%W(A)Zy	j6<uM@ N@}
IFE <%OPN %-1>,<%OP1 10000>N
IFE %OP%,<%OP1 O0767777>
IFE <%OPO%-2>,<$$E(<ILL SWKITCH NAME>)>
IFGM0E <%OP%-3>,<IFB <MPA>,<%OP1 10000>
	IFNB <A>,<%OP1P A,10000>>
IFL<P0%OP%-2>,<%OP3 6(A)>
%OP%==2SE uM89 !
$%W==11
I@FNB <B>,<$%W==11`+<B>
>
IFE <$$USE-3>,<LI $$$VAL 
$$USE==1>
$F $%W(A)uMHW x@X
IFE <%OPx`%-1>,<%OP1 1>
IFyE %OP%,<%OP1 7777y 76>
IFE <%OP%-2>y@,<$$E(<ILL SWITCHy` NAME>)>
IFGE <%zOP%-3>,<IFB <A>,z <%OP1 1>
	IFNB <z@A>,<%OP1 A,1>>
IFL<%OP%-2>,<%OP{3 6(A)>
%OP%==2NTX INVALID USEuM[r Jqm
$%W==17
IFNB <B>,<$%W==K017+<B>>
IFE <$$KPUSE-3>,<LI $$$VALKp
$$USE==1>
IFE L$$USE,<$F $%W(A)L0>
IFE <$$USE-1>,LP<$B [$ZFIMOD B(LpA)]-$$RELO($$BAS)M>
IFE <$$USE-2>,M0<PRINTX INVALID UMPSE OF FIELD>
$$USE==2PFcKSuM] A;
IFE <%OP!%-1>,<%OP1 20>
IFE %OP%,<%OP1 7771757>
IFE <%OP%-2>,<$$E(<ILL SWITCFiH NAME>)>
IFGE <0%OP%-3>,<IFB <A>P,<%OP1 20>
	IFNBp <A>,<%OP1 A,20>>
IFL<%OP%-2>,<0%OP3 11(A)>
%OP%==2X INVALID UuMh6 \an$%W==21
I]FNB <B>,<$%W==21] +<B>
>
IFE <$$]@USE-3>,<LI $$$VAL]`
$$USE==1>
$F $%W(A)uMxTuMh@ h`~S
IFE <%OPh@%-1>,<%OP1 20>
Ih FE %OP%,<%OP1 777i0757>
IFE <%OP%-2I(>,<$$E(<ILL SWITCIH NAME>)>
IFGE <gP%OP%-3>,<IFB <A>gp,<%OP1 20>
	IFNBip <A>,<%OP1 A,20j>>
IFL<%OP%-2>,<j0%OP3 6(A)>
%OP%==2INVALID USE uMk 	+
IFE %OP%i-1,<%OP2 100000>
IFE %OP%,<%OP2 777777677777>
IFEq <%OP%-2>,<$$E(<IGILL SWITCH NAME>)>Q
IFGE <%OP%-3>,<IFB <A>,<%OP2 10P0000>
	IFNB <A>p,<%OP2 A,100000>>
IFL <%OP%-2>,<0%OP3 6(A)>
%OP%==2IELD>
$$USEuMm6 o	
IFE <%OPn`%-1>,<%OP1 4>
IFn@E %OP%,<%OP1 7777p73>
IFE <%OP%-2>op,<$$E(<ILL SWITCHoP NAME>)>
IFGE <%mpOP%-3>,<IFB <A>,n<%OP1 4>
	IFNB <pPA>,<%OP1 A,4>>
IFL<%OP%-2>,<%OPq3 6(A)>
%OP%==2NTX INVALID USEuMxT 6i]
$%W==14
IFNB <B>,<$%W==9P14+<B>>
IFE <$$9pUSE-3>,<LI $$$VAL:
$$USE==1>
IFE :0$$USE,<$F $%W(A):P>
IFE <$$USE-1>,:p<$L $%W(A)>
IFE; <$$USE-2>,<PRINT;0X OPD-OPR NESTING;P ERROR>
$$USE==2j682Pj688uMy@ E|5
IFE <%OPD`%-1>,<%OP1 100000D@>
IFE %OP%,<%OP1EP 677777>
IFE <%OLP%-2>,<$$E(<ILL SKhWITCH NAME>)>
IFCpGE <%OP%-3>,<IFB D<A>,<%OP1 100000F>
	IFNB <A>,<%OF0P1 A,100000>>
IFPFL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM| =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 6(A)>
%OP%==2uM}: Q`}
IFE <%OPQ@%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7RP73777>
IFE <%OP%R0-2>,<$$E(<ILL SWIJhTCH NAME>)>
IFGEPP <%OP%-3>,<IFB <PpA>,<%OP1 4000>
	SIFNB <A>,<%OP1 S0A,4000>>
IFL<%OPSP%-2>,<%OP3 6(A)>
%OP%==2ID USEuN	@ H|O
IFE <%OPG`%-1>,<%OP1 40000>G@
IFE %OP%,<%OP1 Hp737777>
IFE <%OPHP%-2>,<$$E(<ILL SWKHITCH NAME>)>
IFGFpE <%OP%-3>,<IFB <GA>,<%OP1 40000>
	IFNB <A>,<%OP1IP A,40000>>
IFL<Ip%OP%-2>,<%OP3 6(A)>
%OP%==2SE uN	z Q
IFE %OP%1-1,<%OP2 200000>
IFE %OP%,<%OP2 7X77777577777>
IFE9 <%OP%-2>,<$$E(<IGiLL SWITCH NAME>)>
IFGE <%OP%-3>,<~`IFB <A>,<%OP2 200000>
	IFNB <A>8,<%OP2 A,200000>X>
IFL <%OP%-2>,<x%OP3 6(A)>
%OP%==2IELD>
$$USEuN

 ^1{$%W==22
I^PFNB <B>,<$%W==22^p+<B>
>
IFE <$$_USE-3>,<LI $$$VAL_0
$$USE==1>
$F $%W(A)uNMuN

S XU
$%W==20
IFNB <B>,<$%W==XP20+<B>>
IFE <$$XpUSE-3>,<LI $$$VALY
$$USE==1>
IFE Y0$$USE,<$F $%W(A)YP>
IFE <$$USE-1>,Yp<$R $%W(A)>
IFEZ <$$USE-2>,<PRINTZ0X OPD-OPR NESTINGZP ERROR>
$$USE==2uLI@|}uLJ7uN

U U<
$%W==20
IFNB <B>,<$%W==U@20+<B>>
IFE <$$U`USE-3>,<LI $$$VALV
$$USE==1>
IFE V $$USE,<$F $%W(A)V@>
IFE <$$USE-1>,V`<$L $%W(A)>
IFEW <$$USE-2>,<PRINTW X OPD-OPR NESTINGW@ ERROR>
$$USE==2qOX`@qO8uN
$%W==17
IFNB <B>,<$%W==H17+<B>>
IFE <$$H USE-3>,<LI $$$VALH@
$$USE==1>
IFE H`$$USE,<$F $%W(A)I>
IFE <$$USE-1>,I <$B [$ZFIPT B(AI@)]-$$RELO($$BAS)>I`
IFE <$$USE-2>,<JPRINTX INVALID USJ E OF FIELD>
$$USE==2P IXu]uN+w r@#
IFE <%OPr %-1>,<%OP1 2>
IFrE %OP%,<%OP1 7777s075>
IFE <%OP%-2>s,<$$E(<ILL SWITCHHH NAME>)>
IFGE <%q0OP%-3>,<IFB <A>,qP<%OP1 2>
	IFNB <spA>,<%OP1 A,2>>
IFL<%OP%-2>,<%OPt03 6(A)>
%OP%==2NTX INVALID USEuN9R U}9
IFE <%OPT`%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7V75777>
IFE <%OP%Up-2>,<$$E(<ILL SWIUPTCH NAME>)>
IFGESp <%OP%-3>,<IFB <TA>,<%OP1 2000>
	VPIFNB <A>,<%OP1 VpA,2000>>
IFL<%OPW%-2>,<%OP3 6(A)>
%OP%==2ID USEuN< 1 {$%W==2
IF1@NB <B>,<$%W==2+<1`B>
>
IFE <$$US2E-3>,<LI $$$VAL
2 $$USE==1>
$F $%W(A)@q8uN= , t($%W==12
I,FNB <B>,<$%W==12-1+<B>
>
IFE <$$-USE-3>,<LI $$$VALE	
$$USE==1>
$F $%W(A)777762>uN>7 4a4
IFE %OP%4A-1,<%OP2 40>
IFE4! %OP%,<%OP2 777775i7777737>
IFE <%O5IP%-2>,<$$E(<ILL SDiWITCH NAME>)>
IF5)GE <%OP%-3>,<IFB 3P<A>,<%OP2 40>
	3pIFNB <A>,<%OP2 6(A,40>>
IFL <%OP%6H-2>,<%OP3 12(A)>
%OP%==2ALID UuNH  q
IFE <%OPa%-1>,<%OP1 20000>A
IFE %OP%,<%OP1 q757777>
IFE <%OPQ%-2>,<$$E(<ILL SWF)ITCH NAME>)>
IFGE <%OP%-3>,<IFB <0A>,<%OP1 20000>
	IFNB <A>,<%OP1p A,20000>>
IFL<%OP%-2>,<%OP3 11(A)>
%OP%==2USuNJ6 N!
$%W==17
IFNB <B>,<$%W==N`17+<B>>
IFE <$$OUSE-3>,<LI $$$VALO 
$$USE==1>
IFE O@$$USE,<$F $%W(A)O`>
IFE <$$USE-1>,P<$B [$ZFITIM B(P A)]-$$RELO($$BAS)P@>
IFE <$$USE-2>,P`<PRINTX INVALID UQSE OF FIELD>
$$USE==2vZeVu@uNM Q!
IFE <%OPq%-1>,<%OP1 10>
IFE %OP%,<%OP1 7770767>
IFE <%OP%-2P>,<$$E(<ILL SWITCpH NAME>)>
IFGE <%OP%-3>,<IFB <A>0,<%OP1 10>
	IFNBP <A>,<%OP1 A,10p>>
IFL<%OP%-2>,<%OP3 11(A)>
%OP%==2X INVALID UuNM  A
IFE <%OP!%-1>,<%OP1 10000>
IFE %OP%,<%OP1  1767777>
IFE <%OP %-2>,<$$E(<ILL SWF	ITCH NAME>)>
IFG0E <%OP%-3>,<IFB <PA>,<%OP1 10000>
	IFNB <A>,<%OP1! A,10000>>
IFL<!0%OP%-2>,<%OP3 11(A)>
%OP%==2USuN]q 0q
IFE %OP%1-1,<%OP2 20>
IFE10 %OP%,<%OP2 777771P7777757>
IFE <%O1pP%-2>,<$$E(<ILL S2WITCH NAME>)>
IF20GE <%OP%-3>,<IFB 2P<A>,<%OP2 20>
	2pIFNB <A>,<%OP2 3A,20>>
IFL <%OP%30-2>,<%OP3 12(A)>
%OP%==2ALID UuNy k`~m
IFE <%OPk@%-1>,<%OP1 10>
Ik FE %OP%,<%OP1 777lP767>
IFE <%OP%-2l0>,<$$E(<ILL SWITCHhH NAME>)>
IFGE <jP%OP%-3>,<IFB <A>jp,<%OP1 10>
	IFNBm <A>,<%OP1 A,10m0>>
IFL<%OP%-2>,<mP%OP3 6(A)>
%OP%==2 INVALID USEuN{ u@A
$%W==6
u IFNB <B>,<$%W==6vP+<B>>
IFE <$$USv0E-3>,<LI $$$VAL
H($$USE==1>
IFE $$tPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$wB [$ZFIWLR B(A)w0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PwpRINTX INVALID USEx OF FIELD>
$$USE==2<WQy*	j6<Wu )zQ$%W==7
IF)0NB <B>,<$%W==7+<)PB>
>
IFE <$$US)pE-3>,<LI $$$VAL
*$$USE==1>
$F $%W(A)Pc>[Wu x=
IFE %OP%8-1,<%OP2 1>
IFE X%OP%,<%OP2 777777x777776>
IFE <%OP%-2>,<$$E(<ILL SW8ITCH NAME>)>
IFGXE <%OP%-3>,<IFB <xA>,<%OP2 1>
	IFNB <A>,<%OP2 A,81>>
IFL <%OP%-2>X,<%OP3 3(A)>
%OP%==2NVALID USEuS *`z^$%W==10
I+FNB <B>,<$%W==10+ +<B>
>
IFE <$$+@USE-3>,<LI $$$VAL+`
$$USE==1>
$Fu$%W(A)6cb
$%W==5
@IFNB <B>,<$%W==5`+<B>>
IFE <$$USE-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==2uI; x(wJ$%W==1
IFxHNB <B>,<$%W==1+<xhB>
>
IFE <$$USyE-3>,<LI $$$VAL
y($$USE==1>
$F $%W(A)QiF@vDu^ 0ye
$%W==5
PIFNB <B>,<$%W==5p+<B>>
IFE <$$USE-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==2uj6 `yN$%W==4
IFNB <B>,<$%W==4+< B>
>
IFE <$$US@E-3>,<LI $$$VAL
`$$USE==1>
$F $%W(A)uk Hx&
$%W==3
hIFNB <B>,<$%W==3+<B>>
IFE <$$US(E-3>,<LI $$$VAL
H$$USE==1>
IFE $$hUSE,<$F $%W(A)>
IFE <$$USE-1>,<$(R $%W(A)>
IFE <H$$USE-2>,<PRINTX hOPD-OPR NESTING ERROR>
$$USE==2u6 Xx
$%W==3
xIFNB <B>,<$%W==3+<B>>
IFE <$$US8E-3>,<LI $$$VAL
X$$USE==1>
IFE $$xUSE,<$F $%W(A)>
IFE <$$USE-1>,<$8L $%W(A)>
IFE <X$$USE-2>,<PRINTX xOPD-OPR NESTING ERROR>
$$USE==2uJ6 |hwx
$%W==2
}IFNB <B>,<$%W==2}(+<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==2uKU sHw0
$%W==-1
IFNB <B>,<$%W==t-1+<B>>
IFE <$$t(USE-3>,<LI $$$VALtH
$$USE==1>
IFE th$$USE,<$F $%W(A)u>
IFE <$$USE-1>,u(<$L $%W(A)>
IFEuH <$$USE-2>,<PRINTuhX OPD-OPR NESTINGv ERROR>
$$USE==2te&=$%W==0
IFvxNB <B>,<$%W==0+<wB>
>
IFE <$$USw8E-3>,<LI $$$VAL
wX$$USE==1>
$F $%W(A)hg^<=uum6 8y

IFE %OP%-1,<%OP2 10>
IFEx %OP%,<%OP2 77777@7777767>
IFE <%O P%-2>,<$$E(<ILL SMWITCH NAME>)>
IFGE <%OP%-3>,<IFB (<A>,<%OP2 10>
	HIFNB <A>,<%OP2 A,10>>
IFL <%OP% -2>,<%OP3 3(A)>
%OP%==2LID USEu

 .zx$%W==12
I. FNB <B>,<$%W==12.@+<B>
>
IFE <$$.`USE-3>,<LI $$$VAL/
$$USE==1>
$F $%W(A)r)g_yu

S &0zE
$%W==7
&PIFNB <B>,<$%W==7&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

U #@z.
$%W==7
#`IFNB <B>,<$%W==7$+<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
$%W==6
 0IFNB <B>,<$%W==6 P+<B>>
IFE <$$US pE-3>,<LI $$$VAL
!$$USE==1>
IFE $$!0USE,<$F $%W(A)>
IFE <$$USE-1>,<$!pB [$ZFSPT B(A)]"-$$RELO($$BAS)>
"0IFE <$$USE-2>,<PR"PINTX INVALID USE "pOF FIELD>
$$USE==2u+w Py#
IFE %OP%0-1,<%OP2 4>
IFE %OP%,<%OP2 777777X777773>
IFE <%OP8%-2>,<$$E(<ILL SWLhITCH NAME>)>
IFGE <%OP%-3>,<IFB <@A>,<%OP2 4>
	IF`NB <A>,<%OP2 A,4>>
IFL <%OP%-2>8,<%OP3 3(A)>
%OP%==2NVALID USEu8w ,0zk$%W==11
I,PFNB <B>,<$%W==11,p+<B>
>
IFE <$$-USE-3>,<LI $$$VAL-0
$$USE==1>
$F $%W(A)r?g^<0u9R /P{$%W==13
I/pFNB <B>,<$%W==130+<B>
>
IFE <$$00USE-3>,<LI $$$VAL0P
$$USE==1>
$F $%W(A)q
@u:= yxwa
$%W==2
zIFNB <B>,<$%W==2z8+<B>>
IFE <$$USzXE-3>,<LI $$$VAL
zx$$USE==1>
IFE $${USE,<$F $%W(A)>
IFE <$$USE-1>,<${XL $%W(A)>
IFE <{x$$USE-2>,<PRINTX |OPD-OPR NESTING ERROR>
$$USE==2u=1 	xW
IFE %OP%h-1,<%OP2 2>
IFE H%OP%,<%OP2 777777
777775>
IFE <%OP	p%-2>,<$$E(<ILL SWMHITCH NAME>)>
IFG	PE <%OP%-3>,<IFB <xA>,<%OP2 2>
	IFNB <A>,<%OP2 A,
P2>>
IFL <%OP%-2>
p,<%OP3 3(A)>
%OP%==2NVALID USEuy

 xp
IFE %OP%

-1,<%OP2 20>
IFE`5%OP%,<%OP2 77777
IFE-<%O$$E(<ILL SM(WITCH NAME>)>
IF

hGE <%OP%-3>,<IFB <A>,<%OP2 20>
	0IFNB <A>,<%OP2 
IFL <%OP%-2>,<%OP3 3(A)>
%OP%==2LID USEu{ HyA
$%W==3
(IFNB <B>,<$%W==3p+<B>>
IFE <$$USPE-3>,<LI $$$VAL
LH$$USE==1>
IFE $$0USE,<$F $%W(A)>
IFE <$$USE-1>,<$xB [$ZFSWLR B(A)0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PpRINTX INVALID USE OF FIELD>
$$USE==2u&4[R a1
	IFE <%OaQP%-2>,<$$E(<ILL SapWITCH NAME>)>
	IbFN <%OP%-2>,<
	 b0IFE <%OP%-3>,<%OPbP3 777777>
	 IFE c<%OP%-4>,<%OP3>
c 	 IFL <%OP%-2>,<%c@OP4 7(A)>
			%OP%==2>}q	j5Wu>4+ d!6
$%W==24
IFNB <B>,<$%W==d`24+<B>>
IFE <$$eUSE-3>,<LI $$$VALe 
$$USE==1>
IFE e@$$USE,<$F $%W(A)e`>
IFE <$$USE-1>,f<$L $%W(A)>
IFEf  <$$USE-2>,<PRINTf@X OPD-OPR NESTINGf` ERROR>
$$USE==2	j51~'	j57u>5J6 g1O
$%W==24
IFNB <B>,<$%W==gp24+<B>>
IFE <$$hUSE-3>,<LI $$$VALh0
$$USE==1>
IFE hP$$USE,<$F $%W(A)hp>
IFE <$$USE-1>,i<$R $%W(A)>
IFEi0 <$$USE-2>,<PRINTiPX OPD-OPR NESTINGip ERROR>
$$USE==2	j5pQ

	j5puB5J7 sq3
$%W==26
IFNB <B>,<$%W==t026+<B>>
IFE <$$tPUSE-3>,<LI $$$VALtp
$$USE==1>
IFE u$$USE,<$F $%W(A)u0>
IFE <$$USE-1>,uP<$R $%W(A)>
IFEup <$$USE-2>,<PRINTvX OPD-OPR NESTINGv0 ERROR>
$$USE==2j5Pj5uB5K pa
$%W==26
IFNB <B>,<$%W==q 26+<B>>
IFE <$$q@USE-3>,<LI $$$VALq`
$$USE==1>
IFE r$$USE,<$F $%W(A)r >
IFE <$$USE-1>,r@<$L $%W(A)>
IFEr` <$$USE-2>,<PRINTsX OPD-OPR NESTINGs  ERROR>
$$USE==2	j6<z0	j6<uB5L mQ
$%W==25
IFNB <B>,<$%W==n25+<B>>
IFE <$$n0USE-3>,<LI $$$VALnP
$$USE==1>
IFE np$$USE,<$F $%W(A)o>
IFE <$$USE-1>,o0<$R $%W(A)>
IFEoP <$$USE-2>,<PRINTopX OPD-OPR NESTINGp ERROR>
$$USE==2	j689Qz`	j689uB6< jAh
$%W==25
IFNB <B>,<$%W==k25+<B>>
IFE <$$k USE-3>,<LI $$$VALk@
$$USE==1>
IFE k`$$USE,<$F $%W(A)l>
IFE <$$USE-1>,l <$L $%W(A)>
IFEl@ <$$USE-2>,<PRINTl`X OPD-OPR NESTINGm ERROR>
$$USE==2	j5W)	j5suO<I; &I
<$%W==0
IF&hNB <B>,<$%W==0+<'B>
>
IFE <$$US'(E-3>,<LI $$$VAL
'H$$USE==1>
$F $%W(A)U	j5QuO<^ )i
`
$%W==2
*IFNB <B>,<$%W==2*(+<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==2uO<j6 (
I$%W==1
IF(8NB <B>,<$%W==1+<(XB>
>
IFE <$$US(xE-3>,<LI $$$VAL
)$$USE==1>
$F $%W(A)	j5x{uO>

 ,Y
m$%W==4
IF,xNB <B>,<$%W==4+<-B>
>
IFE <$$US-8E-3>,<LI $$$VAL
-X$$USE==1>
$F$%W(A)	j6:6xub Vy
IWFNB <B>,<$%W==13W8+<B>
>
IFE <$$WXUSE-3>,<LI $$$VALWx
$$USE==1>
$F $%W(A)j$i7BubS Fy

?$%W==2
IFGNB <B>,<$%W==2+<G8B>
>
IFE <$$USGXE-3>,<LI $$$VAL
Gx$$USE==1>
$F $%W(A)u4+jub^ Ki

p
$%W==5
LIFNB <B>,<$%W==5L(+<B>>
IFE <$$USLHE-3>,<LI $$$VAL
Lh$$USE==1>
IFE $$MUSE,<$F $%W(A)>
IFE <$$USE-1>,<$MHL $%W(A)>
IFE <Mh$$USE-2>,<PRINTX NOPD-OPR NESTING ERROR>
$$USE==2ubj6 J

Y$%W==4
IFJ8NB <B>,<$%W==4+<JXB>
>
IFE <$$USJxE-3>,<LI $$$VAL
K$$USE==1>
$F$%W(A)5uL[R~ubI7 U)
IUHFNB <B>,<$%W==12Uh+<B>
>
IFE <$$VUSE-3>,<LI $$$VALV(
$$USE==1>
$F $%W(A)jQ	KubI` D

2
$%W==1
D(IFNB <B>,<$%W==1DH+<B>>
IFE <$$USDhE-3>,<LI $$$VAL
E$$USE==1>
IFE $$E(USE,<$F $%W(A)>
IFE <$$USE-1>,<$EhR $%W(A)>
IFE <F$$USE-2>,<PRINTX F(OPD-OPR NESTING ERROR>
$$USE==2ubKS SY
IFSxNB <B>,<$%W==7+<TB>
>
IFE <$$UST8E-3>,<LI $$$VAL
TX$$USE==1>
$F $%W(A)?uO>


cub@ HI

L$%W==3
IFHhNB <B>,<$%W==3+<IB>
>
IFE <$$USI(E-3>,<LI $$$VAL
IH$$USE==1>
$F $%W(A)ZuL-3gub

Z NY

}$%W==6
IFNxNB <B>,<$%W==6+<OB>
>
IFE <$$USO8E-3>,<LI $$$VAL
OX$$USE==1>
$F$%W(A)uNJ6pub
$%W==6
PHIFNB <B>,<$%W==6Ph+<B>>
IFE <$$USQE-3>,<LI $$$VAL
Q($$USE==1>
IFE $$QHUSE,<$F $%W(A)>
IFE <$$USE-1>,<$RB [$ZXBPT B(A)]R(-$$RELO($$BAS)>
RHIFE <$$USE-2>,<PRRhINTX INVALID USE SOF FIELD>
$$USE==2wMu=1xlugS ?

$%W==2
IF?8NB <B>,<$%W==2+<?XB>
>
IFE <$$US?xE-3>,<LI $$$VAL
@$$USE==1>
$F $%W(A)g_rq}ug  @i

$%W==4
IFANB <B>,<$%W==4+<A(B>
>
IFE <$$USAHE-3>,<LI $$$VAL
Ah$$USE==1>
$F $%W(A)q& @ug9R B9

$%W==5
IFBXNB <B>,<$%W==5+<BxB>
>
IFE <$$USCE-3>,<LI $$$VAL
C8$$USE==1>
$F $%W(A)q2~p@$Y@P $\h 5t

IFGE	^!D17-^D0,<
IFB <XC>,<DEFINE YDSACT(ACC)<
IFE><%OP% B>
IF
E %OP%,<%OP1 A>
IFE <%OP%-2>,<$$5E(<ILL SWITCH NAM,pE>)>
IFGE <%OP%-)P3>,<IFB <ACC>,<%O&0P1 B>
	IFNB <AC#C>,<%OP1 ACC,B>>p
IFL<%OP%-2>,<%O0P3 YDSWIT(ACC)>
%OP%==2>>
IFNB <pC>,<DEFINE YDSAC
 T=<
IFE <%OP%-1>h,<%OP1 B>
IFE %0OP%,<%OP1 A>
IFxE <%OP%-2>,<$$E(<|`ILL SWITCH NAME>)v>
IFGE <%OP%-3>,rp<%OP1 C,B>
IFLo0 <%OP%-2>,<%OP3 YlDSWIT(C)>
%OP%=i=2>>>

IFL ^D17ep-^D0,<
IFB <>,<DbPEFINE YDSACT(ACC)_<
IFE %OP%-1,<%O\P2 B>
IFE %OP%,Xp<%OP2 A>
IFE <%U0OP%-2>,<$$E(<ILL RSWITCH NAME>)>
INpFGE <%OP%-3>,<IFBKP <ACC>,<%OP2 B>
	IFNB <ACC>,<%OPE02 ACC,B>>
IFL <B%OP%-2>,<%OP3 YDSWIT(ACC)>
%OP%==x2>>
IFNB <>,<DEF`INE YDSACT=<
IFE

H <%OP%-1>,<%OP2 	0B>
IFE %OP%,<%OPN(2 A>
IFE <%OP%-NH2>,<$$E(<ILL SWITNhCH NAME>)>
IFGE O(<%OP%-3>,<%OP2 CB(,B>
IFL <%OP%-2BH>,<%OP3 YDSWIT(CBh)>
%OP%==2>>
>
%OP%==2>>
>
	jZQ	jZH	jwQH	jw	jwQ"	jwD"	j	YQDF	j	YHF	jQH$H	j$H	jQD	jHD	j H	j^QQ H	j^Q H	j$hVQ H	j$hV H	j$i7Q 	j$i7 	j$j6Q $H
	j$j6 $H
	j$kQ H
	j$k H
	j$kQ H
	j$k H
	j$k7Q F	j$k7 F	j$kzQ D	j$kz D	j$mqQ $H
	j$mq $H
	j&.XQ 	j4IQ V	j4I V	j4I<Q $HW	j4I< $HW	j4ITQ V	j4IT V	j4LQ X	j4L X	j4LQ $HX	j4L HX	j4LQ 6$W	j4L 6$W	j4LsQ Y	j4Ls Y	j58Q 4	j58 4	j59Q 	j59 	j5SQ 		j5S 		j5WQ 	j5W 	j5ZQ H	j5Z H	j5tQ .	j5t .	j5Q 0	j5 0	j5	Q 0	j5	 0	j5Q 6	j5 6	j5Q >	j5 >	j5Q &	j5 &	j5Q 	j5 	j5Q $	j5 $	j5Q D	j5 D	j5Q 0	j5 0	j5Q 	j5 	j51Q 0	j51 0	j57Q 2	j57 2	j5<Q $H	j5< $H	j5TQ 	j5T 	j5VQ "D	j5V "D	j5WQ "	j5W "	j5WQ .	j5W .	j5ZQ D	j5Z D	j51Q H	j51 H	j51Q H	j51 H	j53Q D	j53 D	j56Q 	j56 	j57Q <	j57 <	j5pQ 	j5p 	j5Q $	j5 $	j57Q .	j57 .	j5:Q ,	j5: ,	j5PQ 	j5P 	j5QQ ,	j5Q ,	j5VQ 	j5V 	j5ZQ (	j5Z (	j5qQ $H	j5q $H	j5sQ B	j5s B	j5xQ F	j5x F	j5zQ :	j5z :	j5Q @	j5 @	j5Q  	j5  	j5Q 		j5 		j5Q $H	j5 H	j5Q 6$	j5 6$	j5WQ &	j5W &	j5sQ 8	j5s 8	j5xQ 	j5x 	j5zQ 	j5z 	j5|Q 
	j5| 
	j5Q >	j5 >	j5Q 0	j5 0	j5Q *	j5 *	j5Q <	j5 <	j5;Q 	j5; 	j5rQ *	j5r *	j5vQ &

	j5v &

	j682Q 	j682 	j688Q 	j688 	j689Q 	j689 	j68ZQ H	j68Z H	j69Q 	j69 	j69<Q $H	j69< $H	j69TQ 	j69T 	j69VQ H	j69V H	j6:6Q $H	j6:6 $H	j6;Q H	j6; H	j6;Q $H	j6; $H	j6;PQ 	j6;P 	j6;ZQ 	j6;Z 	j6<Q 	j6< 	j6<Q $H	j6< H	j6<Q 6$	j6< 6$	j6<WQ 	j6<W 	j6<qQ 	j6<q 	j6<sQ 	j6<s 	j6<tQ $H	j6<t $H	j6<zQ 	j6<z 	j6=rQ 	j6=r 	j6=vQ

	j6=v

	jLi7Q 	jLi7 	j|hVQ $H
	j|hV $H
	j|kQ H
	j|k H
	kkQ H	kk H	kkQ $H	kk $H	kkQ H
	kk H
	klxQ $H
	klx $H
	kyQ 	ky 	ky<Q $H	ky< $H	kyTQ 	kyT 	k|Q 	k| 	kD(6Q 	kD(6 	kD(9Q 	kD(9 	kD)<Q $H	kD)< $H	kD)TQ 	kD)T 	kD+Q 	kD+ 	kD+Q H	kD+ H	kD+Q 	kD+ 	kD,	Q 	kD,	 	kD,Q 	kD, 	kD,Q 6$	kD, 6$	kN89Q 	kN89 	kN<Q 	kN< 	kN<sQ 	kN<s 
(Q(P j

<{PjZPjwPjwP	j	YPjPjPjQP j$hVP j$i7P j$j6P j$kP j$kP j$k7P j$kzP j$mqP j4IP j4I<P j4ITP j4LP j4LP j4LP j4LsP j58P j59P j5SP j5WP 
j5ZP j5tP j5P j5	P j5P j5P j5P j5P j5P j5P j5P j5P j51P j57P j5<P j5TP j5VP 	j5WP 	j5WP j5ZP j51P j51P j53P j56P j57P j5pP j5P j57P j5:P j5PP j5QP j5VP 
j5ZP j5qP j5sP j5xP j5zP j5P j5P 	j5P j5P j5P j5WP j5sP j5xP j5zP j5|P j5P j5P

j5P j5P j5;P j5rP j5vP j67P j682P j688P j689P j68ZP j69P j69<P j69TP j69VP j6:6P j6;P j6;P j6;PP j6;ZP j6<P j6<P j6<P j6<WP j6<qP j6<sP j6<tP j6<zP j6=rP j6=vP jLi7P j|hVP j|kP kJwP kkP kkP kkP klxP kyP ky<P kyTP k|P k$MP kD(6P kD(9P kD)<P kD)TP kD+P kD+P kD+P kD,	P kD,P kD,P kN89P kN<P kN<sP :pP S@Q &|vP &|*7P &|K8P &|LP &}VP &}P &}3P &~
6P *|@ .>}{woP