Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/08/simmc2.unv
There are 3 other files named simmc2.unv in the archive. Click here to see a list.
x
(4@P GMj: Z4
DEFINE	G(PUSHJ(A)<
	IFNDEHF	A'$,<SETZM	YLXIhAC>
	L	[PUSHJ	XPDP,A]
	IFGE	<A-4(00K>,<GENABS
	>H
	IFL	<A-400K>,<GhENFIX
	>
>
DEFINE	GJRST(A)<
	S(ETZM	YLXIAC
	L	[HJSP	A]
	IFGE	<A-h400K>,<GENABS
	>
	IFL	<A-400K>,<(GENFIX
	>
>
;-H-- OPDEF'S
IFDEFh O2GWD,<OPDEF	GENDW	[PUSHJ	XPDP,O2(GWD]>	
OPDEF	GENHOP	[PUSHJ	XPDP,O2hGI]	
OPDEF	GETAD	[PUSHJ	XPDP,O2AD(]	
OPDEF	MEMOP	[HPUSHJ	XPDP,CGMO]	h
OPDEF	IFMEMO	[PUSHJ	XPDP,CGMO1]	(
DEFINE	CONST	<WHHENNOT XP1,ZCN>
hOPDEF	IMMOP	[PUSHJ	XPDP,CGIM]	
OP(DEF	IFIMMO	[PUSHJH	XPDP,CGIM1]	
OPhDEF	COMPVAL	[PUSHJ	XPDP,CGVA]
OPD(EF	COMPAD	[PUSHJ	HXPDP,CGAD]
OPDEFh	COMPCA	[PUSHJ	XPDP,CGCA]
OPDEF	C(OMPCC	[PUSHJ	XPDPH,CGCC]
OPDEF	COMhPCO	[PUSHJ	XPDP,CGCO]
OPDEF	CLFIX(	[PUSHJ	XPDP,O2CFH]	
OPDEF	DEFIX	[hPUSHJ	XPDP,O2DF]	
OPDEF	DISPLAY	[(PUSHJ	XPDP,CADS]
OPDEF	GENABS	[PUhSHJ	XPDP,O2GA]	
OPDEF	GENFIX	[PUS(HJ	XPDP,O2GF]	
OHPDEF	GENREL	[PUSHhJ	XPDP,O2GR]	
IFDEF CGRD,<
OPDEF(	GENRLD	[PUSHJ	XPHDP,CGRD]>	
OPDEFh	GENWRD	[PUSHJ	XPDP,O2GW]	
OPDEF	(INVAL	[PUSHJ	XPDPH,O2IV]	
DEFINE NhEXTOP=<STEP	XP1,Z NO>
OPDEF	NEXT	[ (POPJ	XPDP,]
OPDE HF	OP	[HRLI]			
	 h				
OPDEF	OPZ	[!HRLZI]			
OPDEF	!(GETAC2	[PUSHJ	XPD!HP,CGG2]
OPDEF	GE!hTAC3	[PUSHJ	XPDP,"CGG3]
OPDEF	GETA"(C4	[PUSHJ	XPDP,CG"HG4]
OPDEF	RELAC2"h	[PUSHJ	XPDP,CGR2#]
OPDEF	RELAC3	[#(PUSHJ	XPDP,CGR3]
OPDEF	RELAC4	[PU#hSHJ	XPDP,CGR4]
O$PDEF	ACFIELD		[PO$(INT	4,0,12]
OPDE$HF	INDEXFIELD	[POI$hNT	4,0,17]	
OPDE%F	LONG	[PUSHJ	XPD%(P,CGLO]	; SKIP IF%H X1 POINTS TO ZNO%h FOR LONG (TWO AC&:S) QUANT
OPDEF	&(IFLONG	[PUSHJ	XPD&HP,CGLO1]	; OPPOSITE TO LONG
GVu@ vxA
	IFDEF .wDIRECTIVE,<.DIRECw8TIVE .NOBIN>
	UNwXIVERSAL A     DEwxCsystem-10/20 SIMxULA COMPILER %4(300)  PILER %4(3I |@P
$$DEF==0|`
IFE <^DC-^D36>},<DEFINE A(XB,O)} =
<$%W==B
IFNB}@ <O>,<$%W==B+<O>}`
>
IFE <$$USE-3~>,<LI $$$VAL
$$U~ SE==1>
$F $%W(XB~@)>
$$DEF==1>
IF~`E <^DC-^D18>,<IFE <^DD-^D17>,
< 
DEFINE A(XB,O)@=<
$%W==B
IFNB` <O>,<$%W==B+<O>>
IFE <$$USE-3>, <LI $$$VAL
$$USE@==1>
IFE $$USE,<`$F $%W(XB)>
IFE <$$USE-1>,<$L $%W (XB)>
IFE <$$USE@-2>,<PRINTX OPD-O`PR NESTING ERROR>
$$USE==2>
$$DE F==1>
IFE <^DD-@^D35>,
<DEFINE `A(XB,O)=<
$%W==B
IFNB <O>,<$%W= =B+<O>>
IFE <$$@USE-3>,<LI $$$VAL`
$$USE==1>
IFE $$USE,<$F $%W(XB) >
IFE <$$USE-1>,@<$R $%W(XB)>
IFE` <$$USE-2>,<PRINTX OPD-OPR NESTING  ERROR>
$$USE==2@>
$$DEF==1>
>
`IFE $$DEF,<
DEFINE A(XB,O)=<
$% W==B
IFNB <O>,<@$%W==B+<O>>
IFE` <$$USE-3>,<LI $$$VAL
$$USE==1>
 IFE $$USE,<$F $%W@(XB)>
IFE <$$USE`-1>,<$B [$A O(XB)]-$$RELO($$BAS)> 
IFE <$$USE-2>,<@PRINTX INVALID US`E OF FIELD>
$$US	E==2>
$$DEF==1>
OPDEF $A [POINT	@ C,B,D]
$A==	`$A
%A==^DD
I
FE <^DC-1>,<DSW (A,B,D)>
IH 
b
A%S==B
 
A%V==D
DEFINE A%F=<C>
IO8 `^

IFL <^D36-^DC>,<$$E(<T OO BIG BIT NO>)>
IFE ^D36-^DC,<
 IFB <D>,<DEFINE A(ACC)=<
	IFE  <%OP%-2>,<$$E(<I@LL SWITCH NAME>)>`
	IFN <%OP%-2>,<
	 IFE <%OP%-3>, <%OP3 777777>
	 @IFE <%OP%-4>,<%OP`3>
	IFL <%OP%-2>,<%OP4 B(ACC)>
			%OP%==2>>>
 @IFNB <D>,<DEFINE` A=<
	IFE <%OP%-2>,<$$E(<ILL SWI TCH NAME>)>
	IFN@ <%OP%-2>,<
	 IF`E <%OP%-3>,<%OP3 D,777777>
	 IFE  <%OP%-4>,<%OP3 @D,>
	IFL <%OP%-`2>,<%OP4 B(D)>
		     %OP%==2>> >>
IFGE	^D35-^D@C,<
	VA==1BC
`IFE	^DC,<
	CA==377777777777>
I FN	^DC,<
	CA==@-1*VA-1>
IFGE ^`D17-^DC,<
	CA==CA_-^D18
	VA= =VA_-^D18>

DE@FINE	$$TES1(X,Y,Z`)<

IFGE	^D17-^ DC,<
IFB <Z>,<D  EFINE A(ACC)<
I @FE <%OP%-1>,<%OP1 ` Y>
IFE %OP%,<%O!P1 X>
IFE <%OP%-! 2>,<$$E(<ILL SWIT!@CH NAME>)>
IFGE !`<%OP%-3>,<IFB <AC"C>,<%OP1 Y>
	IFN" B <ACC>,<%OP1 ACC"@,Y>>
IFL<%OP%-2>"`,<%OP3 B(ACC)>
#%OP%==2>>
IFNB <# Z>,<DEFINE A=<
#@IFE <%OP%-1>,<%OP#`1 Y>
IFE %OP%,<%$OP1 X>
IFE <%OP%$ -2>,<$$E(<ILL SWI$@TCH NAME>)>
IFGE$` <%OP%-3>,<%OP1 Z%,Y>
IFL <%OP%-2>% ,<%OP3 B(Z)>
%O%@P%==2>>>

IFL ^%`D17-^DC,<
IFB <&D>,<DEFINE A(AC& C)<
IFE %OP%-1,<&@%OP2 Y>
IFE %OP%&`,<%OP2 X>
IFE <%'OP%-2>,<$$E(<ILL ' SWITCH NAME>)>
I'@FGE <%OP%-3>,<IFB'` <ACC>,<%OP2 Y>
(	IFNB <ACC>,<%OP2(  ACC,Y>>
IFL <%O(@P%-2>,<%OP3 B(AC(`C)>
%OP%==2>>
I)FNB <D>,<DEFINE ) A=<
IFE <%OP%-1)@>,<%OP2 Y>
IFE %)`OP%,<%OP2 X>
IFE* <%OP%-2>,<$$E(<I* LL SWITCH NAME>)>*@
IFGE <%OP%-3>,<*`%OP2 Z,Y>
IFL <%+OP%-2>,<%OP3 B(Z+ )>
%OP%==2>>
>+@
>
	$$TES1(\CA,+`\VA,D)
	PURGE VA,CA
>
KK|H /@`X
		IFG <^/ DA>,<
			IFL <^
hDA-20>,<
				ER
RR	^DA,B>
			I
(FGE <^DA-20>,<
H				IFL <^DA-40>
h,<
					ERR1<^D
	A-20>,B>
				IF
	(GE <^DA-40>,<CFA
	HIL TOO LARGE ERRO
	hR CODE IN ERROR1>

			>
		>
		IF
(L <^DA>,<CFAIL N
HEGATIVE ERROR COD
hE IN ERROR1>
		I
FN QDEBUG,<NOP	[ASCIZ/C/]
>KK|I 
H``
	ERR2	^D
hA
		IFN QDEBUG,
<NOP	[ASCIZ/B/]
>M$ 
H`h
	FATA	^D
hA
		IFN QDEBUG,
<NOP	[ASCIZ/B/]>
SL 
	IFG-$%R<CFAIL ILLE
	LF()	AEC,$%O)
	CAIE	A%V
	$%REC==77
Qa]	j$>XaW$ 'Z<
	SOSGE	Y'(BHATR+2
	EXEC	O2'HATR
	IDPB	A,YBHATR+1
bP cP cP cP c
PcEtP 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 
	$%REC==
(A
	$%O=0
	IFNB
X <B>,<$%O==B>
ZNNg$LR V]G
IFE <%OPV0%-1>,<%OP1 200000VP>
IFE %OP%,<%OP1Vp 577777>
IFE <%OWP%-2>,<$$E(<ILL SW0WITCH NAME>)>
IFWPGE <%OP%-3>,<IFB Wp<A>,<%OP1 200000X>
	IFNB <A>,<%OX0P1 A,200000>>
IXPFL<%OP%-2>,<%OP3 XpYLINK(A)>
%OP%==2g
HJ 
`<
IFE %OP%
(-1,<%OP2 10>
IFE
H %OP%,<%OP2 77777
h7777767>
IFE <%O
P%-2>,<$$E(<ILL S
(WITCH NAME>)>
IF
HGE <%OP%-3>,<IFB 
h<A>,<%OP2 10>
	
IFNB <A>,<%OP2 
(A,10>>
IFL <%OP%
H-2>,<%OP3 YCADB(A)>
%OP%==2g
I Y@]b
IFE <%OPY`%-1>,<%OP1 100000Z>
IFE %OP%,<%OP1Z  677777>
IFE <%OZ@P%-2>,<$$E(<ILL SZ`WITCH NAME>)>
IF[GE <%OP%-3>,<IFB [ <A>,<%OP1 100000[@>
	IFNB <A>,<%O[`P1 A,100000>>
I\FL<%OP%-2>,<%OP3 \ YLINK(A)>
%OP%==2g
%%%%%1==QH0
IRP A,<
A==Qh%%%%%1
%%%%%1==<%%%%%1+1>>g{R \p]}
IFE <%OP]%-1>,<%OP1 40000>]0
IFE %OP%,<%OP1 ]P737777>
IFE <%OP]p%-2>,<$$E(<ILL SW^ITCH NAME>)>
IFG^0E <%OP%-3>,<IFB <^PA>,<%OP1 40000>
	IFNB <A>,<%OP1_ A,40000>>
IFL<_0%OP%-2>,<%OP3 YLI_PNK(A)>
%OP%==2S@P >}{wog.)V 
(a*
	IFE <%O
HP%-2>,<$$E(<ILL S
hWITCH NAME>)>
	I
FN <%OP%-2>,<
	 
(IFE <%OP%-3>,<%OP
H3 777777>
	 IFE 
h<%OP%-4>,<%OP3>
	 IFL <%OP%-2>,<%
(OP4 YCERFL(A)>
			%OP%==2>g<HH g0^Q
IFE <%OPgP%-1>,<%OP1 200000gp>
IFE %OP%,<%OP1h 577777>
IFE <%Oh0P%-2>,<$$E(<ILL ShPWITCH NAME>)>
IFhpGE <%OP%-3>,<IFB i<A>,<%OP1 200000i0>
	IFNB <A>,<%OiPP1 A,200000>>
IipFL<%OP%-2>,<%OP3 jYCGDB(A)>
%OP%==2g<HI j`^l
IFE <%OPk%-1>,<%OP1 100000k >
IFE %OP%,<%OP1k@ 677777>
IFE <%Ok`P%-2>,<$$E(<ILL SlWITCH NAME>)>
IFl GE <%OP%-3>,<IFB l@<A>,<%OP1 100000l`>
	IFNB <A>,<%OmP1 A,100000>>
Im FL<%OP%-2>,<%OP3 m@YCGDB(A)>
%OP%==2g<HI n_
IFE <%OPn0%-1>,<%OP1 40000>nP
IFE %OP%,<%OP1 np737777>
IFE <%OPo%-2>,<$$E(<ILL SWo0ITCH NAME>)>
IFGoPE <%OP%-3>,<IFB <opA>,<%OP1 40000>
	IFNB <A>,<%OP1p0 A,40000>>
IFL<pP%OP%-2>,<%OP3 YCGppDB(A)>
%OP%==2g>:x cP^3
IFE <%OPcp%-1>,<%OP1 10000>d
IFE %OP%,<%OP1 d0767777>
IFE <%OPdP%-2>,<$$E(<ILL SWdpITCH NAME>)>
IFGeE <%OP%-3>,<IFB <e0A>,<%OP1 10000>
	IFNB <A>,<%OP1ep A,10000>>
IFL<f%OP%-2>,<%OP3 YLIf0NK(A)>
%OP%==2g}i ` ^
IFE <%OP`@%-1>,<%OP1 20000>``
IFE %OP%,<%OP1 a757777>
IFE <%OPa %-2>,<$$E(<ILL SWa@ITCH NAME>)>
IFGa`E <%OP%-3>,<IFB <bA>,<%OP1 20000>
	IFNB <A>,<%OP1b@ A,20000>>
IFL<b`%OP%-2>,<%OP3 YLIcNK(A)>
%OP%==2g4\H 
Ha
		IFG <^
hDA>,<
			IFL <^
DA-20>,<
				SE
(V	^DA,B>
			IF
HGE <^DA-20>,<
	
h			IFL <^DA-40>,
<
					SEV1	<^D
(A>,B>
				IFGE 
H<^DA-40>,<CFAIL 
hHIGH CODE A TO S
EVER1>
			>
		>
(
		IFL <^DA>,<C
HFAIL NEGATIVE A 
hTO SEVER1>
		IFN
 QDEBUG,<NOP	[ASCIZ/C/]
>g4\I 
Ha
	SEV2	<<
h^DA>B24>
		IFN 
QDEBUG,<NOP [ASCIZ/B/]
>g5HH q@_"
IFE <%OPq`%-1>,<%OP1 200000r>
IFE %OP%,<%OP1r  577777>
IFE <%Or@P%-2>,<$$E(<ILL Sr`WITCH NAME>)>
IFsGE <%OP%-3>,<IFB s <A>,<%OP1 200000s@>
	IFNB <A>,<%Os`P1 A,200000>>
ItFL<%OP%-2>,<%OP3 t YM2DB(A)>
%OP%==2g5HI tP_;
IFE <%OPtp%-1>,<%OP1 40000>u
IFE %OP%,<%OP1 u0737777>
IFE <%OPuP%-2>,<$$E(<ILL SWupITCH NAME>)>
IFGvE <%OP%-3>,<IFB <v0A>,<%OP1 40000>
	IFNB <A>,<%OP1vp A,40000>>
IFL<w%OP%-2>,<%OP3 YM2w0DB(A)>
%OP%==2M2DB(A)>
%OP%=g=D  xH_X
IFE %OP%xh-1,<%OP2 2>
IFE y%OP%,<%OP2 777777y(777775>
IFE <%OPyH%-2>,<$$E(<ILL SWyhITCH NAME>)>
IFGzE <%OP%-3>,<IFB <z(A>,<%OP2 2>
	IFzHNB <A>,<%OP2 A,zh2>>
IFL <%OP%-2>{,<%OP3 YO2DB(A)>
%OP%==2g=D@ {P_q
IFE %OP%{p-1,<%OP2 4>
IFE |%OP%,<%OP2 777777|0777773>
IFE <%OP|P%-2>,<$$E(<ILL SW|pITCH NAME>)>
IFG}E <%OP%-3>,<IFB <}0A>,<%OP2 4>
	IF}PNB <A>,<%OP2 A,}p4>>
IFL <%OP%-2>~,<%OP3 YO2DB(A)>
%OP%==2g=D` ~X`	
IFE %OP%~x-1,<%OP2 10>
IFE %OP%,<%OP2 7777787777767>
IFE <%OXP%-2>,<$$E(<ILL SxWITCH NAME>)>
IF
GE <%OP%-3>,<IFB 
8<A>,<%OP2 10>
	
XIFNB <A>,<%OP2 
xA,10>>
IFL <%OP%
-2>,<%OP3 YO2DB(A)>
%OP%==2g=E 
``"
IFE %OP%
-1,<%OP2 20>
IFE
  %OP%,<%OP2 77777
@7777757>
IFE <%O
`P%-2>,<$$E(<ILL S
WITCH NAME>)>
IF
 GE <%OP%-3>,<IFB 
@<A>,<%OP2 20>
	
`IFNB <A>,<%OP2 
A,20>>
IFL <%OP%
 -2>,<%OP3 YO2DB(A)>
%OP%==2gZ
IFE <%OPS%-1>,<%OP1 400000S >
IFE %OP%,<%OP1S@ 377777>
IFE <%OS`P%-2>,<$$E(<ILL STWITCH NAME>)>
IFT GE <%OP%-3>,<IFB T@<A>,<%OP1 400000T`>
	IFNB <A>,<%OUP1 A,400000>>
IU FL<%OP%-2>,<%OP3 U@YLINK(A)>
%OP%==2oj7 (`$
	WARN	A(8
		IFN QDEBUG,<N
HOP	[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< F\D
IFE %OP%F(-1,<%OP2 40>
IFEFH %OP%,<%OP2 77777Fh7777737>
IFE <%OGP%-2>,<$$E(<ILL SG(WITCH NAME>)>
IFGHGE <%OP%-3>,<IFB Gh<A>,<%OP2 40>
	HIFNB <A>,<%OP2 H(A,40>>
IFL <%OP%HH-2>,<%OP3 YSWITCH(A)>
%OP%==2sO<0 6`[J
IFE %OP%7-1,<%OP2 1>
IFE 7 %OP%,<%OP2 7777777@777776>
IFE <%OP7`%-2>,<$$E(<ILL SW8ITCH NAME>)>
IFG8 E <%OP%-3>,<IFB <8@A>,<%OP2 1>
	IF8`NB <A>,<%OP2 A,91>>
IFL <%OP%-2>9 ,<%OP3 YSWITCH(A)>
%OP%==2sO<@ 9h[b
IFE %OP%:-1,<%OP2 2>
IFE :(%OP%,<%OP2 777777:H777775>
IFE <%OP:h%-2>,<$$E(<ILL SW;ITCH NAME>)>
IFG;(E <%OP%-3>,<IFB <;HA>,<%OP2 2>
	IF;hNB <A>,<%OP2 A,<2>>
IFL <%OP%-2><(,<%OP3 YSWITCH(A)>
%OP%==2sO= <p[{
IFE %OP%=-1,<%OP2 4>
IFE =0%OP%,<%OP2 777777=P777773>
IFE <%OP=p%-2>,<$$E(<ILL SW>ITCH NAME>)>
IFG>0E <%OP%-3>,<IFB <>PA>,<%OP2 4>
	IF>pNB <A>,<%OP2 A,?4>>
IFL <%OP%-2>?0,<%OP3 YSWITCH(A)>
%OP%==2sO=A  sO=sO=P I\_
IFE %OP%I0-1,<%OP2 100>
IFIPE %OP%,<%OP2 7777Ip77777677>
IFE <%JOP%-2>,<$$E(<ILL J0SWITCH NAME>)>
IJPFGE <%OP%-3>,<IFBJp <A>,<%OP2 100>
	IFNB <A>,<%OP2K0 A,100>>
IFL <%KPOP%-2>,<%OP3 YSWIKpTCH(A)>
%OP%==2sO> L8\y
IFE %OP%LX-1,<%OP2 200>
IFLxE %OP%,<%OP2 7777M77777577>
IFE <%M8OP%-2>,<$$E(<ILL MXSWITCH NAME>)>
IMxFGE <%OP%-3>,<IFBN <A>,<%OP2 200>
	IFNB <A>,<%OP2NX A,200>>
IFL <%NxOP%-2>,<%OP3 YSWIOTCH(A)>
%OP%==2sO>  ?x\
IFE %OP%@-1,<%OP2 10>
IFE@8 %OP%,<%OP2 77777@X7777767>
IFE <%O@xP%-2>,<$$E(<ILL SAWITCH NAME>)>
IFA8GE <%OP%-3>,<IFB AX<A>,<%OP2 10>
	AxIFNB <A>,<%OP2 BA,10>>
IFL <%OP%B8-2>,<%OP3 YSWITCH(A)>
%OP%==2sO>p O`]
IFE %OP%P-1,<%OP2 400>
IFP E %OP%,<%OP2 7777P@77777377>
IFE <%P`OP%-2>,<$$E(<ILL QSWITCH NAME>)>
IQ FGE <%OP%-3>,<IFBQ@ <A>,<%OP2 400>
	IFNB <A>,<%OP2R A,400>>
IFL <%R OP%-2>,<%OP3 YSWIR@TCH(A)>
%OP%==2sO? C\,
IFE %OP%C -1,<%OP2 20>
IFEC@ %OP%,<%OP2 77777C`7777757>
IFE <%ODP%-2>,<$$E(<ILL SD WITCH NAME>)>
IFD@GE <%OP%-3>,<IFB D`<A>,<%OP2 20>
	EIFNB <A>,<%OP2 E A,20>>
IFL <%OP%E@-2>,<%OP3 YSWITCH(A)>
%OP%==2uY@ aRERRFu\`P u]@P u) 
xaq
$%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>,<$
XL $%W(A)>
IFE <
x$$USE-2>,<PRINTX 
OPD-OPR NESTING ERROR>
$$USE==2u* 
hb
$%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==2upY@ i
ZNOTYP;Rup\`P up]@P uvN8 
8cU
$%W==0
7hIFNB <B>,<$%W==0
90+<B>>
IFE <$$US
9E-3>,<LI $$$VAL
.$$USE==1>
IFE $$
8pUSE,<$F $%W(A)>
7
IFE <$$USE-1>,<$
78B [$ZCNTYP B(A)
9p]-$$RELO($$BAS)>
:
IFE <$$USE-2>,<P
:0RINTX INVALID USE
:P OF FIELD>
$$USE==2uvh6 
; cb$%W==1
IF
;@NB <B>,<$%W==1+<
;`B>
>
IFE <$$US
<E-3>,<LI $$$VAL
< $$USE==1>
$F $%W(A)uY@ aFLH,u\`P u]@P u) 
aC
$%W==0
8IFNB <B>,<$%W==0
X+<B>>
IFE <$$US
xE-3>,<LI $$$VAL
$$USE==1>
IFE $$
8USE,<$F $%W(A)>
X
IFE <$$USE-1>,<$
xL $%W(A)>
IFE <
$$USE-2>,<PRINTX 
8OPD-OPR NESTING ERROR>
$$USE==2u,: 
aZ
$%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>,<$
hR $%W(A)>
IFE <
$$USE-2>,<PRINTX 
(OPD-OPR NESTING ERROR>
$$USE==2u@Y@ ieu&',:u@\`P u@]@P uD;r 
%b>
$%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>,<$
&hB [$ZFXCOD B(A)
']-$$RELO($$BAS)>
'(
IFE <$$USE-2>,<P
'HRINTX INVALID USE
'h OF FIELD>
$$USE==2uFN8 
!Xb#
$%W==0
!xIFNB <B>,<$%W==0
"+<B>>
IFE <$$US
"8E-3>,<LI $$$VAL
"X$$USE==1>
IFE $$
"xUSE,<$F $%W(A)>
#
IFE <$$USE-1>,<$
#8B [$ZFXTYP B(A)
#X]-$$RELO($$BAS)>
#x
IFE <$$USE-2>,<P
$RINTX INVALID USE
$8 OF FIELD>
$$USE==2uFh6 
(8bU
$%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>,<$
*R $%W(A)>
IFE <
*8$$USE-2>,<PRINTX 
*XOPD-OPR NESTING ERROR>
$$USE==2u& Y@ iZNOTYP+Wu& \`P u& ]@P u&%Q 
?@d
IFE <%OP
?`%-1>,<%OP1 4000>
@
IFE %OP%,<%OP1 7
@ 73777>
IFE <%OP%
@@-2>,<$$E(<ILL SWI
@`TCH NAME>)>
IFGE
A <%OP%-3>,<IFB <
A A>,<%OP1 4000>
	
A@IFNB <A>,<%OP1 
A`A,4000>>
IFL<%OP
B%-2>,<%OP3 0(A)>
%OP%==2ID USEu&%;R 
Md~
$%W==0
M IFNB <B>,<$%W==0
M@+<B>>
IFE <$$US
M`E-3>,<LI $$$VAL
N$$USE==1>
IFE $$
N USE,<$F $%W(A)>
N@
IFE <$$USE-1>,<$
N`B [$ZIDKND B(A)
O]-$$RELO($$BAS)>
O 
IFE <$$USE-2>,<P
O@RINTX INVALID USE
O` OF FIELD>
$$USE==2PP cO>u&%[r 
IPdc
$%W==0
IpIFNB <B>,<$%W==0
J+<B>>
IFE <$$US
J0E-3>,<LI $$$VAL
JP$$USE==1>
IFE $$
JpUSE,<$F $%W(A)>
K
IFE <$$USE-1>,<$
K0B [$ZIDMOD B(A)
KP]-$$RELO($$BAS)>
Kp
IFE <$$USE-2>,<P
LRINTX INVALID USE
L0 OF FIELD>
$$USE==2Pcu&&>9 
C0d*
IFE <%OP
C%-1>,<%OP1 2000>
Bp
IFE %OP%,<%OP1 7
D 75777>
IFE <%OP%
D-2>,<$$E(<ILL SWI-`TCH NAME>)>
IFGE
B  <%OP%-3>,<IFB <
B@A>,<%OP1 2000>
	
D`IFNB <A>,<%OP1 
EA,2000>>
IFL<%OP
E %-2>,<%OP3 0(A)>
%OP%==2ID USEu&&N8 
F0dH
$%W==0
FIFNB <B>,<$%W==0
G@+<B>>
IFE <$$US
G E-3>,<LI $$$VAL
-@$$USE==1>
IFE $$
E@USE,<$F $%W(A)>
E`
IFE <$$USE-1>,<$
HB [$ZIDTYP B(A)
H ]-$$RELO($$BAS)>
H@
IFE <$$USE-2>,<P
H`RINTX INVALID USE
I OF FIELD>
$$USE==2u&') 
VeC
$%W==1
V0IFNB <B>,<$%W==1
VP+<B>>
IFE <$$US
VpE-3>,<LI $$$VAL
W$$USE==1>
IFE $$
W0USE,<$F $%W(A)>
WP
IFE <$$USE-1>,<$
WpL $%W(A)>
IFE <
X$$USE-2>,<PRINTX 
X0OPD-OPR NESTING ERROR>
$$USE==2u&'* 
P0e
$%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==2u&',: 
S e,
$%W==1
S@IFNB <B>,<$%W==1
S`+<B>>
IFE <$$US
TE-3>,<LI $$$VAL
T $$USE==1>
IFE $$
T@USE,<$F $%W(A)>
T`
IFE <$$USE-1>,<$
UR $%W(A)>
IFE <
U $$USE-2>,<PRINTX 
U@OPD-OPR NESTING ERROR>
$$USE==2u2HY@ i
ZNOTYP[ru2H\`P u2H]@P u2MJ2 
<pcy
$%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==2u7Y@ iZDETYPN8u7\`P u7]@P u:pY@ iZNOTYP\hu:p\`P u:p]@P u:t;r 
$%W==1
pIFNB><B>,<$%W==1
IFE-<$$USI $$$VAL
P$$USE==1>
IFES$$<$F $%W(A)>
IFE <$$USE-1>,<$
IFE$<SE-2>,<PRINTXERROR>
$$USE==2u:u;R 
}@h
$%W==0
}`IFNB <B>,<$%W==0
~+<B>>
IFE <$$US
~ E-3>,<LI $$$VAL
~@$$USE==1>
IFE $$
~`USE,<$F $%W(A)>

IFE <$$USE-1>,<$
 B [$ZNNKND B(A)
@]-$$RELO($$BAS)>
`
IFEI<$$USE-2>,<PUSE
$$USE==2u:u[r 
zgg
$%W==0
z0IFNB <B>,<$%W==0
zP+<B>>
IFE <$$US
zpE-3>,<LI $$$VAL
{$$USE==1>
IFE $$
{0USE,<$F $%W(A)>
{P
IFE <$$USE-1>,<$
{pB [$ZNNMOD B(A)
|]-$$RELO($$BAS)>
|0
IFE <$$USE-2>,<P
|PRINTX INVALID USE
|p OF FIELD>
$$USE==2u:vN8 
v`gL
$%W==0
wIFNB <B>,<$%W==0
w +<B>>
IFE <$$US
w@E-3>,<LI $$$VAL
w`$$USE==1>
IFE $$
xUSE,<$F $%W(A)>
x 
IFE <$$USE-1>,<$
x@B [$ZNNTYP B(A)
x`]-$$RELO($$BAS)>
y
IFE <$$USE-2>,<P
y RINTX INVALID USE
y@ OF FIELD>
$$USE==2u:w+W 
$%W==0
IFNB><B>,<$%W==0
IFE-<$$USI $$$VAL
p$$USE==1>
IFES$$<$F $%W(A)>
IFE <$$USE-1>,<$
IFE$<SE-2>,<PRINTXERROR>
$$USE==2u:w,: 
$%W==1
IFNB><B>,<$%W==1
IFE-<$$USI $$$VAL
`$$USE==1>
IFES$$<$F $%W(A)>
IFE <$$USE-1>,<$
IFE$<SE-2>,<PRINTXERROR>
$$USE==2u:xY@ iceu:u;Ru:x\`P u:x]@P u:}Lz 
.xc
IFE <%OP
.X%-1>,<%OP1 200000
.8>
IFE %OP%,<%OP1/ 577777>
IFE <%O.`P%-2>,<$$E(<ILL S.@WITCH NAME>)>
IF
-hGE <%OP%-3>,<IFB 
.<A>,<%OP1 200000
/h>
	IFNB <A>,<%O
0P1 A,200000>>
I
0(FL<%OP%-2>,<%OP3 0(A)>
%OP%==2u:~I9 
+bl
IFE <%OP
+(%-1>,<%OP1 400000
+H>
IFE %OP%,<%OP1
+h 377777>
IFE <%O
,P%-2>,<$$E(<ILL S
,(WITCH NAME>)>
IF
,HGE <%OP%-3>,<IFB 
,h<A>,<%OP1 400000
->
	IFNB <A>,<%O
-(P1 A,400000>>
I
-HFL<%OP%-2>,<%OP3 0(A)>
%OP%==2u:~N8 
18c 
$%W==0
1IFNB <B>,<$%W==0
2H+<B>>
IFE <$$US
2(E-3>,<LI $$$VAL
. $$USE==1>
IFE $$
0HUSE,<$F $%W(A)>
0h
IFE <$$USE-1>,<$
3B [$ZNOTYP B(A)
3(]-$$RELO($$BAS)>
3H
IFE <$$USE-2>,<P
3hRINTX INVALID USE
4 OF FIELD>
$$USE==2u;Y@ iZNOTYPH@u;\`P u;]@P u;y7 
s0g1
$%W==1
sPIFNB <B>,<$%W==1
sp+<B>>
IFE <$$US
tE-3>,<LI $$$VAL
t0$$USE==1>
IFE $$
tPUSE,<$F $%W(A)>
tp
IFE <$$USE-1>,<$
uB [$ZNSGEN B(A)
u0]-$$RELO($$BAS)>
uP
IFE <$$USE-2>,<P
upRINTX INVALID USE
v OF FIELD>
$$USE==2u;;R 
_`f
$%W==0
`IFNB <B>,<$%W==0
` +<B>>
IFE <$$US
`@E-3>,<LI $$$VAL
``$$USE==1>
IFE $$
aUSE,<$F $%W(A)>
a 
IFE <$$USE-1>,<$
a@B [$ZNSKND B(A)
a`]-$$RELO($$BAS)>
b
IFE <$$USE-2>,<P
b RINTX INVALID USE
b@ OF FIELD>
$$USE==2u;I; 
oxg
$%W==1
oXIFNB <B>,<$%W==1
q +<B>>
IFE <$$US
qE-3>,<LI $$$VAL
- $$USE==1>
IFE $$
p`USE,<$F $%W(A)>
o(
IFE <$$USE-1>,<$
q`B [$ZNSLEV B(A)
r]-$$RELO($$BAS)>
r 
IFE <$$USE-2>,<P
r@RINTX INVALID USE
r` OF FIELD>
$$USE==2u;[r 
\0ey
$%W==0
\PIFNB <B>,<$%W==0
\p+<B>>
IFE <$$US
]E-3>,<LI $$$VAL
]0$$USE==1>
IFE $$
]PUSE,<$F $%W(A)>
]p
IFE <$$USE-1>,<$
^B [$ZNSMOD B(A)
^0]-$$RELO($$BAS)>
^P
IFE <$$USE-2>,<P
^pRINTX INVALID USE
_ OF FIELD>
$$USE==2{Pju}u;+y 
hPf[
IFE %OP%
hp-1,<%OP2 400000>
i
IFE %OP%,<%OP2 7
i077777377777>
IFE
iP <%OP%-2>,<$$E(<I
ipLL SWITCH NAME>)>
j
IFGE <%OP%-3>,<
j0IFB <A>,<%OP2 40
jP0000>
	IFNB <A>
jp,<%OP2 A,400000>
k>
IFL <%OP%-2>,<
k0%OP3 1(A)>
%OP%==2IELD>
$$USEu;93 
l@fx
IFE %OP%
l -1,<%OP2 200000>
l
IFE %OP%,<%OP2 7
mh77777577777>
IFE
mH <%OP%-2>,<$$E(<I
mLL SWITCH NAME>)>
m(
IFGE <%OP%-3>,<
kPIFB <A>,<%OP2 20
n(0000>
	IFNB <A>
nH,<%OP2 A,200000>
nh>
IFL <%OP%-2>,<
o%OP3 1(A)>
%OP%==2IELD>
$$USEu;N8 
Ye^
$%W==0
Y IFNB <B>,<$%W==0
Y@+<B>>
IFE <$$US
Y`E-3>,<LI $$$VAL
Z$$USE==1>
IFE $$
Z USE,<$F $%W(A)>
Z@
IFE <$$USE-1>,<$
Z`B [$ZNSTYP B(A)
[]-$$RELO($$BAS)>
[ 
IFE <$$USE-2>,<P
[@RINTX INVALID USE
[` OF FIELD>
$$USE==2L|d0	jLMu;+W 
cf+
$%W==0
c0IFNB <B>,<$%W==0
cP+<B>>
IFE <$$US
cpE-3>,<LI $$$VAL
d$$USE==1>
IFE $$
d0USE,<$F $%W(A)>
dP
IFE <$$USE-1>,<$
dpR $%W(A)>
IFE <
e$$USE-2>,<PRINTX 
e0OPD-OPR NESTING ERROR>
$$USE==2u;,: 
ffB
$%W==1
f IFNB <B>,<$%W==1
f@+<B>>
IFE <$$US
f`E-3>,<LI $$$VAL
g$$USE==1>
IFE $$
g USE,<$F $%W(A)>
g@
IFE <$$USE-1>,<$
g`L $%W(A)>
IFE <
h$$USE-2>,<PRINTX 
h OPD-OPR NESTING ERROR>
$$USE==2u?Y@ iZNOTYP93u?\`P u?]@P u?H@ 
48c7
IFE %OP%
4X-1,<%OP2 1>
IFE 
4x%OP%,<%OP2 777777
5777776>
IFE <%OP
58%-2>,<$$E(<ILL SW
5XITCH NAME>)>
IFG
5xE <%OP%-3>,<IFB <
6A>,<%OP2 1>
	IF
68NB <A>,<%OP2 A,
6X1>>
IFL <%OP%-2>
6x,<%OP3 0(A)>
%OP%==2VALID USE uG[ 
$%W==0
	`IFNB <B>,<$%W==0
+<B>>
IFE <$$US
 E-3>,<LI $$$VAL

@$$USE==1>
IFE $$
`USE,<$F $%W(A)>
IFE$<$$USE-1>,<$A)]
`IFE <$$USE-2>,<PR
INTX INVALID USE 
 OF FIELD>
$$USE==2.)VA a,s<H@uG\@ 
ph}
$%W==0
IFNB><B>,<$%W==0
IFE3<$$US $$$VAL
p$$USE==1>
IFES$$<$F $%W(A)>
IFE$<$$USE-1>,<$A)]
IFEX<$$USE-2>,<PR
$$USE==2&>9d>u&&N8$Y@P $\h 
lhZh

IFGE	^
GD17-^D19,<
IFB <
C`C>,<DEFINE ZNSSE
8PF(ACC)<
IFE <%OP
2%-1>,<%OP1 B>
I
/(FE %OP%,<%OP1 A>0
IFE <%OP%-2>,<$0 $E(<ILL SWITCH NA3 ME>)>
IFGE <%OP%wP-3>,<IFB <ACC>,<%0@OP1 B>
	IFNB <A0`CC>,<%OP1 ACC,B>1>
IFL<%OP%-2>,<%1 OP3 1(ACC)>
%OP%1@==2>>
IFNB <C>,1`<DEFINE ZNSSEF=<
IFE <%OP%-1>,<%O2 P1 B>
IFE %OP%,2@<%OP1 A>
IFE <%2`OP%-2>,<$$E(<ILL 3SWITCH NAME>)>
I3`FGE <%OP%-3>,<%OP4 1 C,B>
IFL <%O4@P%-2>,<%OP3 1(C)4`>
%OP%==2>>>

5IFL ^D17-^D19,<
5 IFB <>,<DEFINE ZN5@SSEF(ACC)<
IFE %6OP%-1,<%OP2 B>
5`IFE %OP%,<%OP2 A6 >
IFE <%OP%-2>,<(`$$E(<ILL SWITCH N)AME>)>
IFGE <%OP) %-3>,<IFB <ACC>,<)@%OP2 B>
	IFNB <)`ACC>,<%OP2 ACC,B*>>
IFL <%OP%-2>,* <%OP3 1(ACC)>
%O*@P%==2>>
IFNB <>,*`<DEFINE ZNSSEF=<
IFE <%OP%-1>,<%O+ P2 B>
IFE %OP%,+@<%OP2 A>
IFE <%+`OP%-2>,<$$E(<ILL ,SWITCH NAME>)>
I, FGE <%OP%-3>,<%OP,@2 C,B>
IFL <%O,`P%-2>,<%OP3 1(C)->
%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@P >}{woP