Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/09/simmc2.unv
There are 3 other files named simmc2.unv in the archive. Click here to see a list.
x@P GMj: 8a,t
DEFINE	G9PUSHJ(A)<
	IFNDE9 F	A'$,<SETZM	YLXI9@AC>
	L	[PUSHJ	XP9`DP,A]
	IFGE	<A-4:00K>,<GENABS
	> 
	IFL	<A-400K>,<G:@ENFIX
	>
>
DEF:`INE	GJRST(A)<
	S;ETZM	YLXIAC
	L	[; JSP	A]
	IFGE	<A-;@400K>,<GENABS
	>;`
	IFL	<A-400K>,<<GENFIX
	>
>
;-< -- OPDEF'S
IFDEF<@ O2GWD,<OPDEF	GEN<`DW	[PUSHJ	XPDP,O2=GWD]>	;
OPDEF	GE= NOP	[PUSHJ	XPDP,O=@2GI]	;
OPDEF	GET=`AD	[PUSHJ	XPDP,O2>AD]	;
OPDEF	MEMO> P	[PUSHJ	XPDP,CGM>@O]	;
OPDEF	IFMEM>`O	[PUSHJ	XPDP,CGM?O1]	;
DEFINE	CON? ST	<WHENNOT XP1,Z?@CN>
OPDEF	IMMOP	?`[PUSHJ	XPDP,CGIM]@	;
OPDEF	IFIMMO	@ [PUSHJ	XPDP,CGIM1@@]	;
OPDEF	COMPVA@`L	[PUSHJ	XPDP,CGVAA]
OPDEF	COMPAD	A [PUSHJ	XPDP,CGAD]A@
OPDEF	COMPCA	[PA`USHJ	XPDP,CGCA]
BOPDEF	COMPCC	[PUSB HJ	XPDP,CGCC]
OPB@DEF	COMPCO	[PUSHJB`	XPDP,CGCO]
OPDECF	CLFIX	[PUSHJ	XPC DP,O2CF]	;
OPDEFC@	DEFIX	[PUSHJ	XPDC`P,O2DF]	;
OPDEF	DDISPLAY	[PUSHJ	XPD DP,CADS]
OPDEF	GD@ENABS	[PUSHJ	XPDPD`,O2GA]	;
OPDEF	GEENFIX	[PUSHJ	XPDPE ,O2GF]	;
OPDEF	GE@ENREL	[PUSHJ	XPDPE`,O2GR]	;
IFDEF CFGRD,<
OPDEF	GENRF LD	[PUSHJ	XPDP,CGF@RD]>	;
OPDEF	GENF`WRD	[PUSHJ	XPDP,OG2GW]	;
OPDEF	INVG AL	[PUSHJ	XPDP,O2G@IV]	;
DEFINE NEXG`TOP=<STEP	XP1,ZNOH>
OPDEF	NEXT	[POH PJ	XPDP,]
OPDEF	H@OP	[HRLI]			;
		H`			;
OPDEF	OPZ	[IHRLZI]			;
OPDEFI 	GETAC2	[PUSHJ	XPI@DP,CGG2]
OPDEF	GI`ETAC3	[PUSHJ	XPDPJ,CGG3]
OPDEF	GETJ AC4	[PUSHJ	XPDP,CJ@GG4]
OPDEF	RELACJ`2	[PUSHJ	XPDP,CGRK2]
OPDEF	RELAC3	K [PUSHJ	XPDP,CGR3]K@
OPDEF	RELAC4	[PK`USHJ	XPDP,CGR4]
LOPDEF	ACFIELD		[PL OINT	4,0,12]
OPDL@EF	INDEXFIELD	[POL`INT	4,0,17]	;
OPMDEF	LONG	[PUSHJ	XM PDP,CGLO]	; SKIP M@IF X1 POINTS TO ZM`NO FOR LONG (TWO NAC:S) QUANT
OPDEN F	IFLONG	[PUSHJ	XN@PDP,CGLO1]	; OPPOSITE TO LONG
GVu@ @>;
	IFDEF `.DIRECTIVE,<.DIRECTIVE .NOBIN>
	U NIVERSAL A     D@ECsystem-10/20 SI`MULA COMPILER %4A(310)  ILER %4AI Ux
$$DEF==0V
IFE <^DC-^D36>V8,<DEFINE A(XB,O)VX=
<$%W==B
IFNBVx <O>,<$%W==B+<O>W
>
IFE <$$USE-3W8>,<LI $$$VAL
$$UWXSE==1>
$F $%W(XBWx)>
$$DEF==1>
IFXE <^DC-^D18>,<IFX8E <^DD-^D17>,
<XX;
DEFINE A(XB,OXx)=<
$%W==B
IFNYB <O>,<$%W==B+<OY8>>
IFE <$$USE-3>YX,<LI $$$VAL
$$USYxE==1>
IFE $$USE,Z<$F $%W(XB)>
IFEZ8 <$$USE-1>,<$L $%ZXW(XB)>
IFE <$$USZxE-2>,<PRINTX OPD-[OPR NESTING ERROR[8>
$$USE==2>
$$D[XEF==1>
IFE <^DD[x-^D35>,
<DEFINE \A(XB,O)=<
$%W==\8B
IFNB <O>,<$%W\X==B+<O>>
IFE <$\x$USE-3>,<LI $$$VA]L
$$USE==1>
IFE]8 $$USE,<$F $%W(XB]X)>
IFE <$$USE-1>]x,<$R $%W(XB)>
IF^E <$$USE-2>,<PRIN^8TX OPD-OPR NESTIN^XG ERROR>
$$USE==^x2>
$$DEF==1>
>
IFE $$DEF,<
DEF_8INE A(XB,O)=<
$_X%W==B
IFNB <O>,_x<$%W==B+<O>>
IF`E <$$USE-3>,<LI $`8$$VAL
$$USE==1>
IFE $$USE,<$F $%`xW(XB)>
IFE <$$USaE-1>,<$B [$A O(Xa8B)]-$$RELO($$BAS)aX>
IFE <$$USE-2>,ax<PRINTX INVALID UbSE OF FIELD>
$$Ub8SE==2>
$$DEF==1>bX
OPDEF $A [POINbxT C,B,D]
$A=c=$A
%A==^DD
c8IFE <^DC-1>,<DSW (A,B,D)>
IH cx!
A%S==Bd
A%V==D
DEFINE A%F=<C>
IO8 xi

IFL <^x0D36-^DC>,<$$E(<TxPOO BIG BIT NO>)>
IFE ^D36-^DC,<
 IFB <D>,<DEFINy0E A(ACC)=<
	IFEyP <%OP%-2>,<$$E(<IypLL SWITCH NAME>)>z
	IFN <%OP%-2>,<z0
	 IFE <%OP%-3>,zP<%OP3 777777>
	 zpIFE <%OP%-4>,<%OP{3>
	{IFL <%OP%-2{0>,<%OP4 B(ACC)>
			%OP%==2>>>
 {pIFNB <D>,<DEFINE| A=<
	IFE <%OP%|0-2>,<$$E(<ILL SWI|PTCH NAME>)>
	IFN|p <%OP%-2>,<
	 IF}E <%OP%-3>,<%OP3 }0D,777777>
	 IFE}P <%OP%-4>,<%OP3 }pD,>
	~IFL <%OP%-~2>,<%OP4 B(D)>
		     %OP%==2>>~P>>
IFGE	^D35-^D~pC,<
	VA==1BC
IFE	^DC,<
	CA=0=377777777777>
IPFN	^DC,<
	CA==p-1*VA-1>
IFGE ^D17-^DC,<
	CA=0=CA_-^D18
	VA=P=VA_-^D18>

DEpFINE	$$TES1(X,Y,Z)<

IFGE	^D17-^0DC,<
IFB <Z>,<DPEFINE A(ACC)<
IpFE <%OP%-1>,<%OP1 Y>
IFE %OP%,<%O0P1 X>
IFE <%OP%-P2>,<$$E(<ILL SWITpCH NAME>)>
IFGE <%OP%-3>,<IFB <AC0C>,<%OP1 Y>
	IFNPB <ACC>,<%OP1 ACCp,Y>>
IFL<%OP%-2>,<%OP3 B(ACC)>
0%OP%==2>>
IFNB <PZ>,<DEFINE A=<
pIFE <%OP%-1>,<%OP1 Y>
IFE %OP%,<%0OP1 X>
IFE <%OP%P-2>,<$$E(<ILL SWIpTCH NAME>)>
IFGE <%OP%-3>,<%OP1 Z0,Y>
IFL <%OP%-2>P,<%OP3 B(Z)>
%OpP%==2>>>

IFL ^D17-^DC,<
IFB <0D>,<DEFINE A(ACPC)<
IFE %OP%-1,<p%OP2 Y>
IFE %OP%,<%OP2 X>
IFE <%0OP%-2>,<$$E(<ILL PSWITCH NAME>)>
IpFGE <%OP%-3>,<IFB	 <ACC>,<%OP2 Y>
	0	IFNB <ACC>,<%OP2	P ACC,Y>>
IFL <%O	pP%-2>,<%OP3 B(AC
C)>
%OP%==2>>
I
0FNB <D>,<DEFINE 
PA=<
IFE <%OP%-1
p>,<%OP2 Y>
IFE %OP%,<%OP2 X>
IFE0 <%OP%-2>,<$$E(<IPLL SWITCH NAME>)>p
IFGE <%OP%-3>,<

%OP2 Z,Y>
IFL <%

0OP%-2>,<%OP3 B(Z

P)>
%OP%==2>>
>

p
>
	$$TES1(\CA,
	PURGE VA,CA
>
KK|H W93
		IFG <^WDA>,<
			IFL <^/aDA-20>,<
				ER0RR	^DA,B>
			I0 FGE <^DA-20>,<
0@				IFL <^DA-40>0`,<
					ERR1<^D1A-20>,B>
				IF1 GE <^DA-40>,<CFA1@IL TOO LARGE ERRO1`R CODE IN ERROR1>2
			>
		>
		IF2 L <^DA>,<CFAIL N2@EGATIVE ERROR COD2`E IN ERROR1>
		I3FN QDEBUG,<NOP	[ASCIZ/C/]
>KK|I 3A3 
	ERR2	^D3`A
		IFN QDEBUG,4<NOP	[ASCIZ/B/]
>M$ 4A3(
	FATA	^D4`A
		IFN QDEBUG,5<NOP	[ASCIZ/B/]>
SL :y;_
	IFG $%R;EC-17,<CFAIL ILLE;8GAL IS>
	LF()	A;X%F($%REC,$%O)
	C;xAIE	A%V
	$%REC==77
jmPPaW$ O,|
	SOSGE	YO BHATR+2
	EXEC	O2O@ATR
	IDPB	A,YBHATR+1
bP cP cP cP c

P cEtP cMmP cdYZP c|H0P c|H9P c|HpP c|LPP c|MPP cX6P c2P cP cP cP c&)3P cP c;Y@P c;hWP cJ{vP cJH9P cJdzP cK2P cO<P cO=PP  cO>P @cO>pP cSF)3P cj`P cjL@P cjeP cju`P cjv0P cj~0P eN8 893m
	$%REC==:!A
	$%O=0
	IFNB=Q <B>,<$%O==B>
ZNNH@g$LR ~	0
IFE <%OP~(%-1>,<%OP1 200000~H>
IFE %OP%,<%OP1~h 577777>
IFE <%OP%-2>,<$$E(<ILL S(WITCH NAME>)>
IFHGE <%OP%-3>,<IFB h<A>,<%OP1 200000>
	IFNB <A>,<%O(P1 A,200000>>
IHFL<%OP%-2>,<%OP3 hYLINK(A)>
%OP%==2g

HJ -2|
IFE %OP%- -1,<%OP2 10>
IFE-@ %OP%,<%OP2 77777-`7777767>
IFE <%O.P%-2>,<$$E(<ILL S. WITCH NAME>)>
IF.@GE <%OP%-3>,<IFB .`<A>,<%OP2 10>
	/IFNB <A>,<%OP2 / A,10>>
IFL <%OP%/@-2>,<%OP3 YCADB(A)>
%OP%==2g

I 90!
IFE <%OPX%-1>,<%OP1 100000x>
IFE %OP%,<%OP1 677777>
IFE <%O8P%-2>,<$$E(<ILL SXWITCH NAME>)>
IFxGE <%OP%-3>,<IFB <A>,<%OP1 1000008>
	IFNB <A>,<%OXP1 A,100000>>
IxFL<%OP%-2>,<%OP3 YLINK(A)>
%OP%==2g
%%%%%1==k80
IRP A,<
A==kX%%%%%1
%%%%%1==<%%%%%1+1>>Yg{R i0<
IFE <%OP%-1>,<%OP1 40000>(
IFE %OP%,<%OP1 H737777>
IFE <%OPh%-2>,<$$E(<ILL SWITCH NAME>)>
IFG(E <%OP%-3>,<IFB <HA>,<%OP1 40000>
	IFNB <A>,<%OP1 A,40000>>
IFL<(%OP%-2>,<%OP3 YLIHNK(A)>
%OP%==2g.)V ;!3j
	IFE <%O;AP%-2>,<$$E(<ILL S;aWITCH NAME>)>
	I<FN <%OP%-2>,<
	 <!IFE <%OP%-3>,<%OP<@3 777777>
	 IFE <`<%OP%-4>,<%OP3>
=	 IFL <%OP%-2>,<%= OP4 YCERFL(A)>
			%OP%==2>=Eg<HH )1
IFE <%OPH%-1>,<%OP1 200000h>
IFE %OP%,<%OP1 577777>
IFE <%O(P%-2>,<$$E(<ILL SHWITCH NAME>)>
IFhGE <%OP%-3>,<IFB <A>,<%OP1 200000(>
	IFNB <A>,<%OHP1 A,200000>>
IhFL<%OP%-2>,<%OP3 YCGDB(A)>
%OP%==2g<HI Y1+
IFE <%OPx%-1>,<%OP1 100000>
IFE %OP%,<%OP18 677777>
IFE <%OXP%-2>,<$$E(<ILL SxWITCH NAME>)>
IFGE <%OP%-3>,<IFB 8<A>,<%OP1 100000X>
	IFNB <A>,<%OxP1 A,100000>>
IFL<%OP%-2>,<%OP3 8YCGDB(A)>
%OP%==2g<HI 	1F
IFE <%OP(%-1>,<%OP1 40000>H
IFE %OP%,<%OP1 h737777>
IFE <%OP%-2>,<$$E(<ILL SW(ITCH NAME>)>
IFGHE <%OP%-3>,<IFB <hA>,<%OP1 40000>
	IFNB <A>,<%OP1( A,40000>>
IFL<H%OP%-2>,<%OP3 YCGhDB(A)>
%OP%==2g>:x I0r
IFE <%OPh%-1>,<%OP1 10000>


IFE %OP%,<%OP1 

(767777>
IFE <%OP

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

hITCH NAME>)>
IFG%OP%-3>,<IFB><
	IFNB1<A>,<%OP1
IFL<%OP%-2>,<%OP3 YLI(NK(A)>
%OP%==2g}i 0W
IFE <%OP8%-1>,<%OP1 20000>X
IFE %OP%,<%OP1 x757777>
IFE <%OP	%-2>,<$$E(<ILL SW	8ITCH NAME>)>
IFG	XE <%OP%-3>,<IFB <	xA>,<%OP1 20000>

	IFNB <A>,<%OP1
8 A,20000>>
IFL<
X%OP%-2>,<%OP3 YLI
xNK(A)>
%OP%==2g4\H 5A3H
		IFG <^5`DA>,<
			IFL <^6DA-20>,<
				SE6 V	^DA,B>
			IF6@GE <^DA-20>,<
	6`			IFL <^DA-40>,7<
					SEV1	<^D7 A>,B>
				IFGE 7@<^DA-40>,<CFAIL 7`HIGH CODE A TO S8EVER1>
			>
		>8 
		IFL <^DA>,<C8@FAIL NEGATIVE A 8`TO SEVER1>
		IFN9 QDEBUG,<NOP	[ASCIZ/C/]
>g4\I 9A3P
	SEV2	<<9`^DA>B24>
		IFN :QDEBUG,<NOP [ASCIZ/B/]
>@GVu@g5HH 91a
IFE <%OPX%-1>,<%OP1 200000x>
IFE %OP%,<%OP1 577777>
IFE <%O8P%-2>,<$$E(<ILL SXWITCH NAME>)>
IFxGE <%OP%-3>,<IFB <A>,<%OP1 2000008>
	IFNB <A>,<%OXP1 A,200000>>
IxFL<%OP%-2>,<%OP3 YM2DB(A)>
%OP%==2g5HI I1z
IFE <%OPi%-1>,<%OP1 40000>
IFE %OP%,<%OP1 (737777>
IFE <%OPH%-2>,<$$E(<ILL SWhITCH NAME>)>
IFGE <%OP%-3>,<IFB <(A>,<%OP1 40000>
	IFNB <A>,<%OP1h A,40000>>
IFL<%OP%-2>,<%OP3 YM2(DB(A)>
%OP%==2M2DB(A)>
%OP%=g=D   A2
IFE %OP% `-1,<%OP2 2>
IFE !%OP%,<%OP2 777777! 777775>
IFE <%OP!@%-2>,<$$E(<ILL SW!`ITCH NAME>)>
IFG"E <%OP%-3>,<IFB <" A>,<%OP2 2>
	IF"@NB <A>,<%OP2 A,"`2>>
IFL <%OP%-2>#,<%OP3 YO2DB(A)>
%OP%==2g=D@ #I20
IFE %OP%#h-1,<%OP2 4>
IFE $%OP%,<%OP2 777777$(777773>
IFE <%OP$H%-2>,<$$E(<ILL SW$hITCH NAME>)>
IFG%E <%OP%-3>,<IFB <%(A>,<%OP2 4>
	IF%HNB <A>,<%OP2 A,%h4>>
IFL <%OP%-2>&,<%OP3 YO2DB(A)>
%OP%==2g=D` &Q2I
IFE %OP%&p-1,<%OP2 10>
IFE' %OP%,<%OP2 77777'07777767>
IFE <%O'PP%-2>,<$$E(<ILL S'pWITCH NAME>)>
IF(GE <%OP%-3>,<IFB (0<A>,<%OP2 10>
	(PIFNB <A>,<%OP2 (pA,10>>
IFL <%OP%)-2>,<%OP3 YO2DB(A)>
%OP%==2g=E )Y2a
IFE %OP%)x-1,<%OP2 20>
IFE* %OP%,<%OP2 77777*87777757>
IFE <%O*XP%-2>,<$$E(<ILL S*xWITCH NAME>)>
IF+GE <%OP%-3>,<IFB +8<A>,<%OP2 20>
	+XIFNB <A>,<%OP2 +xA,20>>
IFL <%OP%,-2>,<%OP3 YO2DB(A)>
%OP%==2gZ
IFE <%OPzy%-1>,<%OP1 400000{>
IFE %OP%,<%OP1{8 377777>
IFE <%O{XP%-2>,<$$E(<ILL S{xWITCH NAME>)>
IF|GE <%OP%-3>,<IFB |8<A>,<%OP1 400000|X>
	IFNB <A>,<%O|xP1 A,400000>>
I}FL<%OP%-2>,<%OP3 }8YLINK(A)>
%OP%==2/WGVu@2oj7 P2d
	WARN	AP1
		IFN QDEBUG,<N,AOP	[ASCIZ/B/]
>p\P q. P q1@ q1@ qAP qA@ qYP qYP qjDP@ s.)VA  s.)Vs<H@A  s<H@s2Mj`A  s2Mj`s5H@A  s5H@s=H@A  s=H@sO< n/
IFE %OP%n -1,<%OP2 40>
IFEn@ %OP%,<%OP2 77777n`7777737>
IFE <%OoP%-2>,<$$E(<ILL So WITCH NAME>)>
IFo@GE <%OP%-3>,<IFB o`<A>,<%OP2 40>
	pIFNB <A>,<%OP2 p A,40>>
IFL <%OP%p@-2>,<%OP3 YSWITCH(A)>
%OP%==2sO<0 ^Y.	
IFE %OP%^x-1,<%OP2 1>
IFE _%OP%,<%OP2 777777_8777776>
IFE <%OP_X%-2>,<$$E(<ILL SW_xITCH NAME>)>
IFG`E <%OP%-3>,<IFB <`8A>,<%OP2 1>
	IF`XNB <A>,<%OP2 A,`x1>>
IFL <%OP%-2>a,<%OP3 YSWITCH(A)>
%OP%==2sO<@ aa."
IFE %OP%b-1,<%OP2 2>
IFE b %OP%,<%OP2 777777b@777775>
IFE <%OPb`%-2>,<$$E(<ILL SWcITCH NAME>)>
IFGc E <%OP%-3>,<IFB <c@A>,<%OP2 2>
	IFc`NB <A>,<%OP2 A,d2>>
IFL <%OP%-2>d ,<%OP3 YSWITCH(A)>
%OP%==2sO= di.:
IFE %OP%e-1,<%OP2 4>
IFE e(%OP%,<%OP2 777777eH777773>
IFE <%OPeh%-2>,<$$E(<ILL SWfITCH NAME>)>
IFGf(E <%OP%-3>,<IFB <fHA>,<%OP2 4>
	IFfhNB <A>,<%OP2 A,g4>>
IFL <%OP%-2>g(,<%OP3 YSWITCH(A)>
%OP%==2sO=A  sO=sO=P q	/
IFE %OP%q(-1,<%OP2 100>
IFqHE %OP%,<%OP2 7777qh77777677>
IFE <%rOP%-2>,<$$E(<ILL r(SWITCH NAME>)>
IrHFGE <%OP%-3>,<IFBrh <A>,<%OP2 100>
	IFNB <A>,<%OP2s( A,100>>
IFL <%sHOP%-2>,<%OP3 YSWIshTCH(A)>
%OP%==2sO> t1/9
IFE %OP%tP-1,<%OP2 200>
IFtpE %OP%,<%OP2 7777u77777577>
IFE <%u0OP%-2>,<$$E(<ILL uPSWITCH NAME>)>
IupFGE <%OP%-3>,<IFBv <A>,<%OP2 200>
	IFNB <A>,<%OP2vP A,200>>
IFL <%vpOP%-2>,<%OP3 YSWIwTCH(A)>
%OP%==2sO>  gq.S
IFE %OP%h-1,<%OP2 10>
IFEh0 %OP%,<%OP2 77777hP7777767>
IFE <%OhpP%-2>,<$$E(<ILL SiWITCH NAME>)>
IFi0GE <%OP%-3>,<IFB iP<A>,<%OP2 10>
	ipIFNB <A>,<%OP2 jA,10>>
IFL <%OP%j0-2>,<%OP3 YSWITCH(A)>
%OP%==2sO>p wY/S
IFE %OP%wx-1,<%OP2 400>
IFxE %OP%,<%OP2 7777x877777377>
IFE <%xXOP%-2>,<$$E(<ILL xxSWITCH NAME>)>
IyFGE <%OP%-3>,<IFBy8 <A>,<%OP2 400>
	IFNB <A>,<%OP2yx A,400>>
IFL <%zOP%-2>,<%OP3 YSWIz8TCH(A)>
%OP%==2sO? jy.k
IFE %OP%k-1,<%OP2 20>
IFEk8 %OP%,<%OP2 77777kX7777757>
IFE <%OkxP%-2>,<$$E(<ILL SlWITCH NAME>)>
IFl8GE <%OP%-3>,<IFB lX<A>,<%OP2 20>
	lxIFNB <A>,<%OP2 mA,20>>
IFL <%OP%m8-2>,<%OP3 YSWITCH(A)>
%OP%==2uY@ 3VRERRFu\`P u]@P u) Cq41
$%W==0
DIFNB <B>,<$%W==0D0+<B>>
IFE <$$USDPE-3>,<LI $$$VAL
Dp$$USE==1>
IFE $$EUSE,<$F $%W(A)>
IFE <$$USE-1>,<$EPL $%W(A)>
IFE <Ep$$USE-2>,<PRINTX FOPD-OPR NESTING ERROR>
$$USE==2u* Fa4H
$%W==0
GIFNB <B>,<$%W==0G +<B>>
IFE <$$USG@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==2upY@ ;IZNOTYP8Vup\`P up]@P uvN8 `6
$%W==0
_aIFNB <B>,<$%W==0a)+<B>>
IFE <$$USa	E-3>,<LI $$$VAL
Uy$$USE==1>
IFE $$`iUSE,<$F $%W(A)>
IFE <$$USE-1>,<$0B [$ZCNTYP B(A)ah]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pb(RINTX INVALID USEbH OF FIELD>
$$USE==2uvh6 c6!$%W==1
IFc8NB <B>,<$%W==1+<cXB>
>
IFE <$$UScxE-3>,<LI $$$VAL
d$$USE==1>
$F $%W(A)uY@ 3TFLH,u\`P u]@P u) >4
$%W==0
>0IFNB <B>,<$%W==0>P+<B>>
IFE <$$US>pE-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==2u,: A4
$%W==0
A IFNB <B>,<$%W==0A@+<B>>
IFE <$$USA`E-3>,<LI $$$VAL
B$$USE==1>
IFE $$B USE,<$F $%W(A)>
IFE <$$USE-1>,<$B`R $%W(A)>
IFE <C$$USE-2>,<PRINTX C OPD-OPR NESTING ERROR>
$$USE==2u@Y@ ;?umQ:u@\`P u@]@P uD;r M4~
$%W==0
M IFNB <B>,<$%W==0M@+<B>>
IFE <$$USM`E-3>,<LI $$$VAL
N$$USE==1>
IFE $$N USE,<$F $%W(A)>
IFE <$$USE-1>,<$N`B [$ZFXCOD B(A)O]-$$RELO($$BAS)>
IFE <$$USE-2>,<PO@RINTX INVALID USEO` OF FIELD>
$$USE==2uFN8 IQ4c
$%W==0
IpIFNB <B>,<$%W==0J+<B>>
IFE <$$USJ0E-3>,<LI $$$VAL
JP$$USE==1>
IFE $$JpUSE,<$F $%W(A)>
IFE <$$USE-1>,<$K0B [$ZFXTYP B(A)KP]-$$RELO($$BAS)>
IFE <$$USE-2>,<PLRINTX INVALID USEL0 OF FIELD>
$$USE==2uFh6 P15
$%W==0
PPIFNB <B>,<$%W==0Pp+<B>>
IFE <$$USQE-3>,<LI $$$VAL
Q0$$USE==1>
IFE $$QPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$RR $%W(A)>
IFE <R0$$USE-2>,<PRINTX RPOPD-OPR NESTING ERROR>
$$USE==2u& Y@ ;OZNOTYP9u& \`P u& ]@P u&%Q g96O
IFE <%OPgY%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7h73777>
IFE <%OP%h8-2>,<$$E(<ILL SWIhXTCH NAME>)>
IFGEhx <%OP%-3>,<IFB <iA>,<%OP1 4000>
	i8IFNB <A>,<%OP1 iXA,4000>>
IFL<%OPix%-2>,<%OP3 0(A)>
%OP%==2ID USEu&%;R ty7=
$%W==0
uIFNB <B>,<$%W==0u8+<B>>
IFE <$$USuXE-3>,<LI $$$VAL
ux$$USE==1>
IFE $$vUSE,<$F $%W(A)>
IFE <$$USE-1>,<$vXB [$ZIDKND B(A)vx]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pw8RINTX INVALID USEwX OF FIELD>
$$USE==2.Uu)4u&%[r qI7"
$%W==0
qhIFNB <B>,<$%W==0r+<B>>
IFE <$$USr(E-3>,<LI $$$VAL
rH$$USE==1>
IFE $$rhUSE,<$F $%W(A)>
IFE <$$USE-1>,<$s(B [$ZIDMOD B(A)sH]-$$RELO($$BAS)>
IFE <$$USE-2>,<PtRINTX INVALID USEt( OF FIELD>
$$USE==22KgZk)6i
IFE <%OPk	%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7l75777>
IFE <%OP%ky-2>,<$$E(<ILL SWIUYTCH NAME>)>
IFGEj <%OP%-3>,<IFB <j8A>,<%OP1 2000>
	lXIFNB <A>,<%OP1 lxA,2000>>
IFL<%OPm%-2>,<%OP3 0(A)>
%OP%==2ID USEu&&N8 n)7
$%W==0
n	IFNB <B>,<$%W==0o9+<B>>
IFE <$$USoE-3>,<LI $$$VAL
U9$$USE==1>
IFE $$m9USE,<$F $%W(A)>
IFE <$$USE-1>,<$oxB [$ZIDTYP B(A)p]-$$RELO($$BAS)>
IFE <$$USE-2>,<PpXRINTX INVALID USEpx OF FIELD>
$$USE==2@cO>pPu&') ~	8
$%W==1
~(IFNB <B>,<$%W==1~H+<B>>
IFE <$$US~hE-3>,<LI $$$VAL
$$USE==1>
IFE $$(USE,<$F $%W(A)>
IFE <$$USE-1>,<$hL $%W(A)>
IFE <$$USE-2>,<PRINTX (OPD-OPR NESTING ERROR>
$$USE==2u&'* x)7T
$%W==0
xHIFNB <B>,<$%W==0xh+<B>>
IFE <$$USyE-3>,<LI $$$VAL
y($$USE==1>
IFE $$yHUSE,<$F $%W(A)>
IFE <$$USE-1>,<$zR $%W(A)>
IFE <z($$USE-2>,<PRINTX zHOPD-OPR NESTING ERROR>
$$USE==2u&',: {7k
$%W==1
{8IFNB <B>,<$%W==1{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==2u2HY@ ;KZNOTYP9Xu2H\`P u2H]@P u2MJ2 di68
$%W==0
eIFNB <B>,<$%W==0e(+<B>>
IFE <$$USeHE-3>,<LI $$$VAL
eh$$USE==1>
IFE $$fUSE,<$F $%W(A)>
IFE <$$USE-1>,<$fHR $%W(A)>
IFE <fh$$USE-2>,<PRINTX gOPD-OPR NESTING ERROR>
$$USE==2u7Y@ ;GZDETYP9su7\`P u7]@P u:pY@ ;SZNOTYP8 u:p\`P u:p]@P u:t;r .I;
$%W==1
.hIFNB <B>,<$%W==1/+<B>>
IFE <$$US/(E-3>,<LI $$$VAL
/H$$USE==1>
IFE $$/hUSE,<$F $%W(A)>
IFE <$$USE-1>,<$0(L $%W(A)>
IFE <0H$$USE-2>,<PRINTX 0hOPD-OPR NESTING ERROR>
$$USE==2u:u;R %9:A
$%W==0
%XIFNB <B>,<$%W==0%x+<B>>
IFE <$$US&E-3>,<LI $$$VAL
&8$$USE==1>
IFE $$&XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$'B [$ZNNKND B(A)'8]-$$RELO($$BAS)>
IFE <$$USE-2>,<P'xRINTX INVALID USE( OF FIELD>
$$USE==2cO=PP u:u[r "	:&
$%W==0
"(IFNB <B>,<$%W==0"H+<B>>
IFE <$$US"hE-3>,<LI $$$VAL
#$$USE==1>
IFE $$#(USE,<$F $%W(A)>
IFE <$$USE-1>,<$#hB [$ZNNMOD B(A)$]-$$RELO($$BAS)>
IFE <$$USE-2>,<P$HRINTX INVALID USE$h OF FIELD>
$$USE==2,vbPu:vN8 Y:
$%W==0
xIFNB <B>,<$%W==0+<B>>
IFE <$$US8E-3>,<LI $$$VAL
X$$USE==1>
IFE $$xUSE,<$F $%W(A)>
IFE <$$USE-1>,<$ 8B [$ZNNTYP B(A) X]-$$RELO($$BAS)>
IFE <$$USE-2>,<P!RINTX INVALID USE!8 OF FIELD>
$$USE==2u:w+W (i:X
$%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==2u:w,: +Y:o
$%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==2u:xY@ ;Au{Q5Hu:x\`P u:x]@P u:}Lz Vq5B
IFE <%OPVQ%-1>,<%OP1 200000V1>
IFE %OP%,<%OP1Vy 577777>
IFE <%OVYP%-2>,<$$E(<ILL SV9WITCH NAME>)>
IFUaGE <%OP%-3>,<IFB V<A>,<%OP1 200000W`>
	IFNB <A>,<%OXP1 A,200000>>
IX FL<%OP%-2>,<%OP3 0(A)>
%OP%==2u:~I9 S5,
IFE <%OPS!%-1>,<%OP1 400000S@>
IFE %OP%,<%OP1S` 377777>
IFE <%OTP%-2>,<$$E(<ILL ST WITCH NAME>)>
IFT@GE <%OP%-3>,<IFB T`<A>,<%OP1 400000U>
	IFNB <A>,<%OU P1 A,400000>>
IU@FL<%OP%-2>,<%OP3 0(A)>
%OP%==2u:~N8 Y15`
$%W==0
YIFNB <B>,<$%W==0ZA+<B>>
IFE <$$USZ!E-3>,<LI $$$VAL
V$$USE==1>
IFE $$XAUSE,<$F $%W(A)>
IFE <$$USE-1>,<$[B [$ZNOTYP B(A)[ ]-$$RELO($$BAS)>
IFE <$$USE-2>,<P[`RINTX INVALID USE\ OF FIELD>
$$USE==2u;Y@ ;QZNOTYP9<u;\`P u;]@P u;y7 )9p
$%W==1
HIFNB <B>,<$%W==1h+<B>>
IFE <$$USE-3>,<LI $$$VAL
($$USE==1>
IFE $$HUSE,<$F $%W(A)>
IFE <$$USE-1>,<$B [$ZNSGEN B(A)(]-$$RELO($$BAS)>
IFE <$$USE-2>,<PhRINTX INVALID USE OF FIELD>
$$USE==2u;;R Y8S
$%W==0
xIFNB <B>,<$%W==0+<B>>
IFE <$$US8E-3>,<LI $$$VAL
X$$USE==1>
IFE $$xUSE,<$F $%W(A)>
IFE <$$USE-1>,<$	8B [$ZNSKND B(A)	X]-$$RELO($$BAS)>
IFE <$$USE-2>,<P
RINTX INVALID USE
8 OF FIELD>
$$USE==2u;I; q9U
$%W==1
QIFNB <B>,<$%W==1+<B>>
IFE <$$USyE-3>,<LI $$$VAL
U$$USE==1>
IFE $$YUSE,<$F $%W(A)>
IFE <$$USE-1>,<$XB [$ZNSLEV B(A)x]-$$RELO($$BAS)>
IFE <$$USE-2>,<P8RINTX INVALID USEX OF FIELD>
$$USE==2u;[r )88
$%W==0
HIFNB <B>,<$%W==0h+<B>>
IFE <$$USE-3>,<LI $$$VAL
($$USE==1>
IFE $$HUSE,<$F $%W(A)>
IFE <$$USE-1>,<$B [$ZNSMOD B(A)(]-$$RELO($$BAS)>
IFE <$$USE-2>,<PhRINTX INVALID USE OF FIELD>
$$USE==2u;+y I9
IFE %OP%i-1,<%OP2 400000>
IFE %OP%,<%OP2 7(77777377777>
IFEH <%OP%-2>,<$$E(<IhLL SWITCH NAME>)>
IFGE <%OP%-3>,<(IFB <A>,<%OP2 40H0000>
	IFNB <A>h,<%OP2 A,400000>>
IFL <%OP%-2>,<(%OP3 1(A)>
%OP%==2IELD>
$$USEu;93 998
IFE %OP%-1,<%OP2 200000>
IFE %OP%,<%OP2 7a77777577777>
IFEA <%OP%-2>,<$$E(<ILL SWITCH NAME>)>!
IFGE <%OP%-3>,<HIFB <A>,<%OP2 20 0000>
	IFNB <A>@,<%OP2 A,200000>`>
IFL <%OP%-2>,<%OP3 1(A)>
%OP%==2IELD>
$$USEu;N8 y8
$%W==0
IFNB <B>,<$%W==08+<B>>
IFE <$$USXE-3>,<LI $$$VAL
x$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$XB [$ZNSTYP B(A)x]-$$RELO($$BAS)>
IFE <$$USE-2>,<P8RINTX INVALID USEX OF FIELD>
$$USE==2u;+W 	8j
$%W==0
(IFNB <B>,<$%W==0H+<B>>
IFE <$$UShE-3>,<LI $$$VAL


$$USE==1>
IFE $$

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

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

hR $%W(A)>
IFEU<-2>,<PRINTXERROR>
$$USE==2u;,: 
$%W==1
IFNB <B>,<$%W==18+<B>>
IFE <$$USXE-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==2u?Y@ ;MZNOTYP8;u?\`P u?]@P u?H@ \15w
IFE %OP%\Q-1,<%OP2 1>
IFE \p%OP%,<%OP2 777777]777776>
IFE <%OP]0%-2>,<$$E(<ILL SW]PITCH NAME>)>
IFG]pE <%OP%-3>,<IFB <^A>,<%OP2 1>
	IF^0NB <A>,<%OP2 A,^P1>>
IFL <%OP%-2>^p,<%OP3 0(A)>
%OP%==2VALID USE uG[ 19;!
$%W==0
1XIFNB <B>,<$%W==01x+<B>>
IFE <$$US2E-3>,<LI $$$VAL
28$$USE==1>
IFE $$2XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$3B [$ZQREL B(A)]38-$$RELO($$BAS)>
3XIFE <$$USE-2>,<PR3xINTX INVALID USE 4OF FIELD>
$$USE==26	jmPQ6$uG\@ 4i;<
$%W==0
5IFNB <B>,<$%W==05(+<B>>
IFE <$$US5HE-3>,<LI $$$VAL
5h$$USE==1>
IFE $$6USE,<$F $%W(A)>
IFE <$$USE-1>,<$6HB [$ZQRER B(A)]6h-$$RELO($$BAS)>
7IFE <$$USE-2>,<PR7(INTX INVALID USE 7HOF FIELD>
$$USE==27n	jLNX7m$Y@P $\h a-'

IFGE	^nyD17-^D19,<
IFB <kYC>,<DEFINE ZNSSE`IF(ACC)<
IFE <%OPZ%-1>,<%OP1 B>
IW!FE %OP%,<%OP1 A>Wy
IFE <%OP%-2>,<$X$E(<ILL SWITCH NA[ME>)>
IFGE <%OP%I-3>,<IFB <ACC>,<%X9OP1 B>
	IFNB <AXYCC>,<%OP1 ACC,B>Xy>
IFL<%OP%-2>,<%YOP3 1(ACC)>
%OP%Y9==2>>
IFNB <C>,YY<DEFINE ZNSSEF=<
IFE <%OP%-1>,<%OZP1 B>
IFE %OP%,Z9<%OP1 A>
IFE <%ZYOP%-2>,<$$E(<ILL ZySWITCH NAME>)>
I[YFGE <%OP%-3>,<%OP\1 C,B>
IFL <%O\9P%-2>,<%OP3 1(C)\Y>
%OP%==2>>>

\yIFL ^D17-^D19,<
]IFB <>,<DEFINE ZN]9SSEF(ACC)<
IFE %]yOP%-1,<%OP2 B>
]YIFE %OP%,<%OP2 A^>
IFE <%OP%-2>,<PY$$E(<ILL SWITCH NPyAME>)>
IFGE <%OPQ%-3>,<IFB <ACC>,<Q8%OP2 B>
	IFNB <QXACC>,<%OP2 ACC,BQx>>
IFL <%OP%-2>,R<%OP3 1(ACC)>
%OR8P%==2>>
IFNB <>,RX<DEFINE ZNSSEF=<
IFE <%OP%-1>,<%OSP2 B>
IFE %OP%,S8<%OP2 A>
IFE <%SXOP%-2>,<$$E(<ILL SxSWITCH NAME>)>
ITFGE <%OP%-3>,<%OPT82 C,B>
IFL <%OTXP%-2>,<%OP3 1(C)Tx>
%OP%==2>>
>

%OP%==2>>
>
X`P$	j>RQ$H	j>R$H	j>TQH	j>T H	jmQ 0	jm 0	jmPQ 	jmP 	j$>RQ $H	j$>R $H	j$>XQ H	j$>X H	j7wQ $$	j7w $$	j7

	jLJw $

	jLK7Q *

	jLK7 *

	jLL|Q 8	jLL| 8	jLMQ 0	jLM 0	jLNRQ $H	jLNR $H	jLNTQ H	jLNT H	jLNXQ H	jLNX H	jeQ H	je H	juhwQ $H	juhw $H	jujwQ $

	jujw $

	juk7Q *

	juk7 *

	jumQ 0	jum 0	junWQ H	junW H	junXQ H	junX H	ju{Q D	ju{ D	ju}Q F	ju} F	ju}Q <	ju} <	jv9rQ 0	jv9r 0	jv:wQ $

	jv:w $

	jv;Q 	jv; 	jv;7Q *

	jv;7 *

	jv<WQ "	jv<W "	jv<rQ  	jv<r  	jv=Q 0	jv= 0	jv>WQ H	jv>W H	jv>XQ $H	jv>X $H	j~;Q 	j~; 	k)6Q B

	k)6 B

	k)9Q 

	k)9 


(Q(Pj>RPj>TPjmPjmPPj$>RPj$>XPj7wPj7 jeP juhwP jujwP juk7P jumP junWP junXP ju{P ju}P ju}P jv9rP jv:wP jv;P jv;7P jv<WP 	jv<rP 	jv=P jv>WP jv>XP j~;P k)6P k)9P 
S@Q >}{woP