PDP-10 Archive: decus/20-0078/rts/simmc2.unv from decuslib20-03

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/rts/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