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

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

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

x
,n@P CL  `


	.XCREF
	IFN $$BST-10,<$! $E(<Illegal as>)>!@
	$$BST==3
	$$$AS
	.CREF
CO\Z FXDE=@ 3@R
.XCREF
3`$$C($$,\<$$BSP>)=4=$$BST
$$C($$,\<4 $$BSP+1>)==$$L1
4@$$C($$,\<$$BSP+2>4`)==$$L2
$$C($$,\5<$$BSP+3>)==$$L3
$$C($$,\<$$BSP+45@>)==$$L4
$$C($$,5`\<$$BSP+5>)==$$L56
$$C($$,\<$$BSP+6 6>)==$$L6
$$C($$6@,\<$$BSP+7>)==$$L6`7
$$C($$,\<$$BSP7+10>)==$$L8
$$C(7 $$,\<$$BSP+11>)==7@$$L9
$$C($$,\<$$7`BSP+12>)==$$L10
8$$BST==11
$$BSP=8 =$$BSP+13
$$L1==8@$$L+1
$$L2==$$L+8`2
$$L3==$$L+3
$9$L4==$$L+4
$$L5=9 =$$L+5
$$L6==$$L9@+6
$$L7==$$L+7
9`$$L8==$$L+10
$$L:9==$$L+11
$$L10=: =$$L
$$L==$$L+12
.CREF
EJEJPRINTX AW
W%
G2,W XA
	SKPINC
	NOP
RRI1,ERRGRNK c0
	TITLE	cPA     DECsystem-1cp0/20 SIMULA COMPILER %4A(310)  IGVu@ d0-
	IFDEF .dPDIRECTIVE,<.DIRECdpTIVE .NOBIN>
	UNeIVERSAL A     DEe0Csystem-10/20 SIMePULA COMPILER %4A(310)  ILER %4A(IF=` 1h9
 DEFINE 2X(NAM,NUMBER)=<
ch	RADIX	8
	DSW	(N?AM,Y3OPEN,NUMBER)H
 >
 DEFINE Y(P 1,P2)=<SYN P1,YOP@'P2>
	QOPNO==^D3`5
 IRP A,<
	RADIX	10
	X	(YOPA ,\<35-QCHA>)
	R@ADIX	10
	X	(YPO`A,\<17-QCHA>)
	Y	(YOPA,\QOPNO)
	QOPNO=QOPNO-1
 >
Pc[ I  =`I 4 
$$DEF==04@
IFE <^DC-^D36>4`,<DEFINE A(XB,O)5=
<$%W==B
IFNB5  <O>,<$%W==B+<O>5@
>
IFE <$$USE-35`>,<LI $$$VAL
$$U6SE==1>
$F $%W(XB6 )>
$$DEF==1>
IF6@E <^DC-^D18>,<IF6`E <^DD-^D17>,
<7
DEFINE A(XB,O)7 =<
$%W==B
IFNB7@ <O>,<$%W==B+<O>7`>
IFE <$$USE-3>,8<LI $$$VAL
$$USE8 ==1>
IFE $$USE,<8@$F $%W(XB)>
IFE 8`<$$USE-1>,<$L $%W9(XB)>
IFE <$$USE9 -2>,<PRINTX OPD-O9@PR NESTING ERROR>9`
$$USE==2>
$$DE:F==1>
IFE <^DD-: ^D35>,
<DEFINE :@A(XB,O)=<
$%W==:`B
IFNB <O>,<$%W=;=B+<O>>
IFE <$$; USE-3>,<LI $$$VAL;@
$$USE==1>
IFE ;`$$USE,<$F $%W(XB)<>
IFE <$$USE-1>,< <$R $%W(XB)>
IFE<@ <$$USE-2>,<PRINT<`X OPD-OPR NESTING= ERROR>
$$USE==2= >
$$DEF==1>
>
=@IFE $$DEF,<
DEFI=`NE A(XB,O)=<
$%>W==B
IFNB <O>,<> $%W==B+<O>>
IFE>@ <$$USE-3>,<LI $$>`$VAL
$$USE==1>
?IFE $$USE,<$F $%W? (XB)>
IFE <$$USE?@-1>,<$B [$A O(XB?`)]-$$RELO($$BAS)>@
IFE <$$USE-2>,<@ PRINTX INVALID US@@E OF FIELD>
$$US@`E==2>
$$DEF==1>
OPDEF $A [POINTA  C,B,D]
$A==A@$A
%A==^DD
IA`FE <^DC-1>,<DSW (A,B,D)>
I< H
	.XCREF
	IFN $$BST-2,<$$@E(<Illegal do>)>
	$$$DO
	$$C(L,\$$LT): $$BST==7
	.CREF
c@IH B 
A%S==BB@
A%V==D
DEFINE A%F=<C>
IJ  h@Z	PROC
.A::	SAVE	<X2,X3,X4(,X5>
	OUTSTR	[ASHCIZ/            =h====
RECORD TYPE A AT ADDRESS /](
	LI	X3,22
	MOVHE	X4,X1
	EXEC	L2h
	OUTSTR	[ASCIZ/
            ===(==

/]
	IRP BH	<	OUTSTR	[ASCIZ/hB/]
			OUTCHR	["="]
			SIZE	(QS(Z,B)
			IFE	<QSHZ-1>,<LI	X4,"0"
h					 IFON	B(X1)
					 LI	X4,"1"(
					 OUTCHR	X4H
					>
			IFN	h<QSZ-1>,<LI	X3,QSZ
					 LF	(X4) (B(X1)
					 EXEHC	L2
					>
			hOUTSTR	[ASCIZ/
/]
>
	OUTSTR	[AS(CIZ/
/]
	RETURNH
DEFINE	A	<EXECh .A>
L2():	SETZ		X2,0
	DIVI	X2,3	(
	SKIPE	X3
	AOJ	H	X2,0
	MOVN	X3,X	h2
	IMULI	X3,3
	
ROT	X4,(X3)
L3()
(:	SETZ	X5,0
	ROT
HC	X4,3
	ADDI	X5,
h"0"
	OUTCHR	X5
	DECR	X2,L3
	POP(J	XPDP,0
	EPROC
LcR/ V Z

IFL <^V@D36-^DC>,<$$E(<TV`OO BIG BIT NO>)>
IFE ^D36-^DC,<
 IFB <D>,<DEFINW@E A(ACC)=<
	IFEW` <%OP%-2>,<$$E(<IXLL SWITCH NAME>)>X 
	IFN <%OP%-2>,<X@
	 IFE <%OP%-3>,X`<%OP3 777777>
	 YIFE <%OP%-4>,<%OPY 3>
	YIFL <%OP%-2Y@>,<%OP4 B(ACC)>
			%OP%==2>>>
 ZIFNB <D>,<DEFINEZ  A=<
	IFE <%OP%Z@-2>,<$$E(<ILL SWIZ`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 SWITaCH NAME>)>
IFGE a <%OP%-3>,<IFB <ACa@C>,<%OP1 Y>
	IFNa`B <ACC>,<%OP1 ACCb,Y>>
IFL<%OP%-2>b ,<%OP3 B(ACC)>
b@%OP%==2>>
IFNB <b`Z>,<DEFINE A=<
cIFE <%OP%-1>,<%OPc 1 Y>
IFE %OP%,<%c@OP1 X>
IFE <%OP%c`-2>,<$$E(<ILL SWIdTCH NAME>)>
IFGEd  <%OP%-3>,<%OP1 Zd@,Y>
IFL <%OP%-2>d`,<%OP3 B(Z)>
%OeP%==2>>>

IFL ^e D17-^DC,<
IFB <e@D>,<DEFINE A(ACe`C)<
IFE %OP%-1,<f%OP2 Y>
IFE %OP%f ,<%OP2 X>
IFE <%f@OP%-2>,<$$E(<ILL f`SWITCH NAME>)>
IgFGE <%OP%-3>,<IFBg  <ACC>,<%OP2 Y>
g@	IFNB <ACC>,<%OP2g` ACC,Y>>
IFL <%OhP%-2>,<%OP3 B(ACh C)>
%OP%==2>>
Ih@FNB <D>,<DEFINE h`A=<
IFE <%OP%-1i>,<%OP2 Y>
IFE %i OP%,<%OP2 X>
IFEi@ <%OP%-2>,<$$E(<Ii`LL SWITCH NAME>)>j
IFGE <%OP%-3>,<j %OP2 Z,Y>
IFL <%j@OP%-2>,<%OP3 B(Zj`)>
%OP%==2>>
>k
>
	$$TES1(\CA,k \VA,D)
	PURGE VA,CA
>
K3P 
	.XCREF
	IFNI$$BST-5,<$$)>
	$$LE==$$L
	$ $L==$$L+1
	GOTO @$$C(L,\$$LE)-$$RE`LO($$BAS)
	$$C(L,\$$LF): $$BST==6
	.CREF
K:$@ :`
.XCREF
;IFN $$BST-11,<$$E; (<Illegal endd>)>;@
$$BSP==$$BSP-13;`
$$$PD2(L,\$$L1)<
$$$PD2(L,\$$L2)< 
$$$PD2(L,\$$L3)<@
$$$PD2(L,\$$L4)<`
$$$PD2(L,\$$L5)=
$$$PD2(L,\$$L6)= 
$$$PD2(L,\$$L7)=@
$$$PD2(L,\$$L8)=`
$$$PD2(L,\$$L9)>
$$$PD2(L,\$$L10> )
$$BST==$$C($$,>@\$$BSP)
$$L1==$$>`C($$,\<$$BSP+1>)
$$L2==$$C($$,\<$? $BSP+2>)
$$L3==$?@$C($$,\<$$BSP+3>)?`
$$L4==$$C($$,\<@$$BSP+4>)
$$L5==@ $$C($$,\<$$BSP+5>@@)
$$L6==$$C($$,\@`<$$BSP+6>)
$$L7=A=$$C($$,\<$$BSP+7A >)
$$L8==$$C($$,A@\<$$BSP+10>)
$$LA`9==$$C($$,\<$$BSPB+11>)
$$L10==$$CB ($$,\<$$BSP+12>)
.CREF
K;$\S y?HENTER  QCHA,YELAPKB~ I
	IFE  ES8SIZE,<$$E(<UnderfXlow in stack E>)>x
	IFG ESSIZE,<
	IFNB <A>,<A=ET8OP>
	ETOP=$$C(E,X\ESSIZE,$)
	$$$Px(E,\ESSIZE,$)
	E	SSIZE=ESSIZE-1
>hK:$@TKCx` "@6
.XCREF
 IFDEF $$SNOY,<P#URGE $$SNOY>
 IF# NDEF $$NO,<$$E(<I#@LLEGAL EPROC>)>
#` IFDEF $$NO,<			
	 $$T1==0
	 PUR$ GE	$$NO		
 REPEA$@T $$NR,<
IFDEF $$`$TEMP,<EPOP $$T1>%
IFNDEF $$TEMP,<% PPOP $$T1>
	 $$K%@ILL	(\$$T1)>	
	 %`PURGE	$$NR
 IFDE&F $$TEMP,<			
	 & PURGE	$$SNOX
	 P&@URGE	$$TEMP>
	 P&`URGE $$T1
	 ENDD>KC.: 5
	IFE  ESXSIZE -7777,<$$E(<xOverflow in stack E>)>
	ESSIZE=ES8SIZE+1
	$$C(E,\EXSSIZE,$)=ETOP
	ETOP=A
KK @KK @KK  `KK   KK@ KK` `KKJ  `KK   KK@  KOR@ KR~@ Kb,0  
.XCREF
 IFNB <B>,<
	 `$$LOOP==0
 IRP B,<
	 $$LOOP==$$ LOOP-1
	.CREF
	@ STACK	B
	.XCRE`F>
>
	.CREF
	 XEC	A 
	.XCREF
IFDEF $$LOOP,<
	 SUB	XPDP, [XWD` -$$LOOP,-$$LOOP]
	 PURGE	$$LOOP>
.CREF
c@Mf9  ,@f$$C(L,\$$L,`F)-$$RELO($$BAS)M$ M$ @
	.XCREF
	IFN<$$BST-5>*<$$BST-6>,<$$E(<Ill egal fi>)>
	IFE @$$BST-5,<
	$$C(L`,\$$LF):>
	IFE $$BST-6,<
	$$C(L, \$$LE): $$$P2(L,\@$$LE)>
	$$$P2(L,`\$$LT)
	$$$P2(L,\$$LF)
	$$BSP==$ $BSP-4
	$$BST==$@$C($$,\<$$BSP>)
`	$$LT==$$C($$,\<$$BSP+1>)
	$$LF== $$C($$,\<$$BSP+2>@)
	$$LE==$$C($$,`\<$$BSP+3>)
	.CREF
O&2 y@
	.XCREF
	X=-1
	IRPC A,y@<
	X=X+1>
	IFN y`X,<$$E(<Queue namze A not one lettz er>)>
IF1,<	IFDEz@F AQSIZE,<$$E(<Dz`ouble decl. of qu{eue A>)>>
	$$Q{ AB=0
	$$QAT=0
	AQSIZE=0
	IFB{` <B>,<
DEFINE  |AOUTQ(W)<
	IFE | AQSIZE,<$$E(<Und|@erflow in queue |`A>)>
	IFNB <W>,<}W=AHEAD>
	AQSI} ZE=AQSIZE-1
	$$}@$P(A,\$$QAB,%)}`
	$$QAB=<$$QA~B+1>&7777
	IFN ~ AQSIZE,<AHEAD=$~@$C(A,\$$QAB,%)~`>
>
DEFINE  AINQ(W)<
	IFE AQS IZE-7777,<$$E(<Ov@erflow in queue `A>)>
	$$C(A,\$$QAT,%)=W
	IFE  AQSIZE,<AHEAD=W>@
	AQSIZE=AQSIZ`E+1
	$$QAT=<$$QAT+1>&7777
>
> 
	IFNB <B>,<
D@EFINE  AOUTQ(L,R`)<
	IFE AQSIZE,<$$E(<Underflow i n queue A>)>
	I@FNB <L>,<L=AHEAD`L>
	IFNB <R>,<R=AHEADR>
	AQSIZ E=AQSIZE-1
	$$$@P(A,\$$QAB,%)
	$$QAB=<$$QAB+1>&7777
	IFN  AQSIZE,<AHEADL=$@$C(A,\$$QAB,%)`/1000000
		AHEADR=$$C(A,\$$QA B,%)&777777>
>
@DEFINE  AINQ(L,R`)<
	IFE AQSIZE-7777,<$$E(<Overfl ow in queue A>)>@
	$$C(A,\$$QAT`,%)=L*1000000+R
	IFE AQSIZE,<AH EADL=L
	AHEADR=@R>
	AQSIZE=AQS`IZE+1
	$$QAT=<$$QAT+1>&7777
>
>
.CREF
O&= jD
	.XCREF
	X=-1
	IRPC A,j@<
	X=X+1>
	IFN j`X,<$$E(<Stack namke A not one lettk er>)>
	IFE X,<
k@IF1,<	IFDEF ASSIk`ZE,<$$E(<Double dlecl. of stack A>l )>>
	ASSIZE=0	
	IFB <B>,<ATOPl`=0>	
	IFNB <B>,m<ATOPL=0	
	ATOm PR=0>	
	IFB <B>m@,<
DEFINE  APUSm`H (D)<
	IFE  ASnSIZE -7777,<$$E(<n Overflow in stackn@ A>)>
	ASSIZE=n`ASSIZE+1
	$$C(oA,\ASSIZE,$)=ATo OP
	ATOP=D
>>@
	IFNB <B>,<
DEo`FINE  APUSH (D,Ep)<
	IFE  ASSIZEp -7777,<$$E(<Overfp@low in stack A>)p`>
	ASSIZE=ASSIqZE+1
	$$C(A,\Aq SSIZE,$)=ATOPL*1q@000000+ATOPR
	q`ATOPL=D
	ATOPR=rE
>>
	IFB <B>,r <
DEFINE  APOP(r@D)<
	IFE  ASSIZr`E,<$$E(<Underflows in stack A>)>
s 	IFG ASSIZE,<
	s@IFNB <D>,<D=ATOPs`>
	ATOP=$$C(A,t\ASSIZE,$)
	$$$t P(A,\ASSIZE,$)
	ASSIZE=ASSIZEt`-1
>>>
	IFNB <uB>,<
DEFINE  APu OP (D,E)<
	IFE  u@ASSIZE,<$$E(<Undu`erflow in stack vA>)>
	IFG ASSIZv E,<
	IFNB <D>,<Dv@=ATOPL>
	IFNB <v`E>,<E=ATOPR>
	wATOPL=$$C(A,\ASw SIZE,$)/1000000
w@	ATOPR=$$C(A,\w`ASSIZE,$)&777777
	$$$P(A,\ASSIZx E,$)
	ASSIZE=Ax@SSIZE-1
>>>
>
.CREF
O>L` % <
	.XCREF
	$$C($$,\<$$BSP>%`)==$$BST
	$$C($$&,\<$$BSP+1>)==$$L& T
	$$C($$,\<$$BS&@P+2>)==$$LF
	$$B&`SP==$$BSP+3
	$$L'T==$$L
	$$LF==$$' L+1
	$$L==$$L+2
	$$BST==4
	$$$GOIF
	.CREF
O?%p +O?%y  4@O?%y` 5`O?%yr 5 O?%{ 4 O?%{ 4`O?%{@ 5@S @Z
	.XCREF
	$$C($$,\<$$BSP>	)==$$BST
	$$C($$	 ,\<$$BSP+1>)==$$L	@T
	$$C($$,\<$$BS	`P+2>)==$$LF
	$$C
($$,\<$$BSP+3>)==
 $$LE
	$$BSP==$$B
@SP+4
	$$BST==1

`	$$LT==$$L
	$$LF==$$L+1
	$$L==$$ L+2
	$$$IF
	.CREF
S.@ D"
LF() B(D A,D)
CAIN C
St\3 D`(
LF() B(EA,D)
CAIE C
CLE=@S|i@ q`
	.XCREF
	OPDEF	%OP1	[HRLr ZI]
	OPDEF	     r@ %OP2	[MOVEI]
	Or`PDEF	      %OP3	[sTDNN]
	OPDEF		%Os P4	[SKIPN]
	%OP%==1
	.CREF
S|iP u`:
	.XCREF
	      %OP%==3
v 	OPDEF	      %OP1v@	[TLNN ]
	OPDEF	v`      %OP2	[TRNN w]
	OPDEF	      %w OP3	[CAIN ]
	.CREF
S}` o`

	.XCREF
	OPDEF	%OP1	[HRLp ZI]
	OPDEF	     p@ %OP2	[MOVEI]
	Op`PDEF	      %OP3	[qTDNE]
	OPDEF		%Oq P4	[SKIPE]
		%OP%==1
	.CREF
S}h  s`*
	.XCREF
	      %OP%==3
t 	OPDEF	      %OP1t@	[TLNE ]
	OPDEF	t`      %OP2	[TRNE u]
	OPDEF	      %u OP3	[CAIE ]
	.CREF
S:  *`W
 bPIFN QKA10IFN QKA10W
p @jE,LE,GE,W%
 bIFN QKI10IFN QKI10W1
aPL10IFN QKL10X  XD F0$$C(L,\$$L1)XE J@T$$C(L,\$$L10)XE KX$$C(L,\$$L11)XE K@\$$C(L,\$$L12)XE L`$$C(L,\$$L13)XE  L@d$$C(L,\$$L14)XE( Mh$$C(L,\$$L15)XE0 M@l$$C(L,\$$L16)I@XE8 Np$$C(L,\$$L17)KGVu@XE@ N@t$$C(L,\$$L18)@TMf9 XEH Ox$$C(L,\$$L19)=O>L`XH F@4$$C(L,\$$L2)XL G8$$C(L,\$$L3)XP G@<$$C(L,\$$L4)XT H@$$C(L,\$$L5)XX H@D$$C(L,\$$L6)X\ IH$$C(L,\$$L7)X` I@L$$C(L,\$$L8)Xd JP$$C(L,\$$L9)Y Y ' J
OPDEF $L'@ [HLRZ A,]
OPDE'`F $R [HRRZ A,]
(OPDEF $F [MOVE A( ,]
OPDEF $B [LDB(@ A,]
$$USE==1
(`IFNB <B>,<
IFNB) <C>,<B,C>
IF) B <C>,<B>
>
Y( 1`
	OPDEF $2L [HLRE A,]
	OP2 DEF $R [HRRE A,]2@
	OPDEF $F [MOVE2` A,]
	PURGE $B,3$B
	$$USE==1
	I3 FNB <B>,<
	 IFN3@B <C>,<B,C>
	3` IFB  <C>,<B>
	>
Y$   Y>^\ xH?DLOOKUP QCHA,YELA:^Y>~ `
	.XCREF
	$$C($$,\<$$BSP> )==$$BST
	$$C($$@,\<$$BSP+1>)==$$L`T
	$$C($$,\<$$BSP+2>)==$$LF
	$$B SP==$$BSP+3
	$$L@T==$$L
	$$LF==$$`L+1
	$$L==$$L+2
	$$C(L,\$$LT): $  $BST==10
	.CREF
YM
	DF	(ZLEID,ZLEREC,7,6)	;I DENTIFIER FIELD =` "I"
	DF	(ZLEIND,ZLEREC,8,16)	;BR EAK CHARACTER COM@BINATION INDICATO`R
	DSW	(ZLESRC,ZLEREC,7)	;ON IF L INE NUMBER IN SOU@RCE LINE
	DSW	(ZLEOK,ZLEREC,8)	;O`N IF SOURCE LINE  NUMBER CAN BE USE@D IN LISTING
	DS`W	(ZLEBIT,ZLEREC,B17)	;RECORD INDICAHATOR = 1
		;SYMBBOLIC NAMES ON ZLEwhIND VALUES  ;[14 x22 15] Now defined in LC
	x[T / 
	SEARCH	/@UUOSYM
IFN QDEC2/`0,<SEARCH MONSYM>0
	IF1,<ED$$MX==00 >
	DEFINE EDIT(n0@)<
	ED'n==n
	IF0`1,<
	IFG <n-ED$$1MX>,<ED$$MX==n>
1 	>>
	IF2,<
	DEF1@INE $$ped(n)<PRIN1`TX Edit: n>
	   2  IFN ED$$MX,<$$p2 ed(\ED$$MX)>
	  2@   PURGE $$ped,ED2`$$MX
	>
	.XCREF3
	$$L==20
	.CREF
]? + _ @j
	.XCREF
	IFN $$BST-7,<$$E(<Illegal od>)>
	GOTO $$C(L,\$$L@E)-$$RELO($$BAS)
	$$C(L,\$$LF): $$BSP==$$BSP-4
	$ $$P2(L,\$$LT)
	$@$$P2(L,\$$LF)
	$`$$P2(L,\$$LE)
	$$BST==$$C($$,\<$$ BSP>)
	$$LT==$$C@($$,\<$$BSP+1>)
`	$$LF==$$C($$,\<$$BSP+2>)
	$$LE== $$C($$,\<$$BSP+3>)
	.CREF
RNK_69: 0`<$A>&777777aB~ ~
	IFE  PS~(SIZE,<$$E(<Underf~Hlow in stack P>)>~h
	IFG PSSIZE,<
	IFNB <A>,<A=PT(OP>
	PTOP=$$C(P,H\PSSIZE,$)
	$$$Ph(P,\PSSIZE,$)
	PSSIZE=PSSIZE-1
>aC.: |l
	IFE  PS|HSIZE -7777,<$$E(<|hOverflow in stack} P>)>
	PSSIZE=PS}(SIZE+1
	$$C(P,\P}HSSIZE,$)=PTOP
	PTOP=A
aJ|0 @0
.XCREF
`IFDEF $$NO,<$$E(<DOUBLE PROC>)>
I FDEF $$TEMP,<PURG@E $$TEMP>
IFNDEF` $$NO,<
BEGIN
.XCREF
	$$NO==0
IRP A,<
	 $$NO@==$$NO-1>
	 $$NR`==-$$NO
IRP A,<
	 %.%==-$$NO
	  PPUSH	%.%
	$$C@(%.%,\%.%)==$$NO
	 $$HELP(A,\%.%)
	 $$NO==$$NO+1>>
.CREF
[(aOR@ aR~@ bP b:|kP ;b;$\@P <b;,kP ;bDt\YP bDvI9P PbDvx9P bHt\YP lbHvI9P bHvx9P `bLt\YP ,bLvI9P 8bLvx9P  cfK7P 
,pP (c
}{Pc,l`PAc/P cD;vP cDI1P cDIHP cD\YP cD^P cEhP cEiP cEiP cELhP cELiP cELzP cF)6P cF<QP cFLQP cFMP cG

SP cG,rP cdqP cdyP cP cP c,-3P c,4HP c,;P c-@P ?c.

P c$;wP c$N7P c$^P c$kVP c%wP c&:6P c&ltP cP c@P `cPP `cKqP c~@P c8P c

P cP c$P c$@P c*(P c*)P%c*)P.c+P c,@P c-P cDI;Q ggcDe@ cDky@ cEJ1Q Y&:6cEX1@ cE\4@ cH P c/

P c# P c&$J3@ c&$j6@ c&%	2@ c&%S@ c&%J7@ c&%Jp@ c&%kh@ c&%ki@ c&%ki@ c&%kj@ c&&

S@ c&&

W@ c&&9:@ c&&:6@ c&&:7@ c&&=:@ c&&N@ c&&]@ c&v<P c&vI3P c.
P c.JP c.bP c2

)6Pc2%PP Kc20P c2~z2P c3X6P c6	@ c6/

0P c:DK@P c:~)6P c:~N8P c;\{P  c;xtP c;tP 	c;-@P c=J9P @c?k`P 
cA

P cA

P cA

P cBKqP cB/xrP cC}P cG,tP cJKqP cJ,P cJ,`P cJ,i9P cJ-HrP cJ-HwP cJ-J)P cJ-J2P cJ-KP cJ-LP cJ-LzP cJ4 P cJf)0P cK&

P cN

I0PcN=PcN.`PcN.dPPcN.d@PcNM\PcNM\RQ hcO%KPcO&:=P @cO<P cO<P cO<IP cO<I3P&hcO<YP cO=P cO>P @cO>P cO>)P cO>9P cO>pP cO>yP cON0P cON8vP cON9Q ggcPP cR/

et( Q`$IRP A <IFRE <A-.K>,<STOPI>R 
	   .I==0
	R` R@IRP C <.I==.I+1
		    IFE <.I-AS>,<STOPI
				   S .C==C>
		   >
S@	   .I==0
	   IRS`P B <.I==.I+1
	T	    IFE <.I-A>,T <STOPI
				   BT@==.C>
		   >
	  >
PURGE C
reKy  
 IFDEF $@$NO,<
  IFDEF $$`SNOX,<
   REPEAT $$SNOX,<
	SPOP	 $$TEMP
	RPUSH	$$@TEMP
	UNSTK	$$TE`MP
   >
   REPEAT $$SNOX,<
	RPO P	$$TEMP
	SPUSH	@$$TEMP
   >
  >`
 >
 IFNDEF $$N O,<
  IFDEF $$SN  OY,<
   REPEAT $ @$SNOY,<
	SPOP	$$ `TEMP
	RPUSH	$$TE!MP
	UNSTK	$$TEMP! 
   >
   REPEAT!@ $$SNOY,<
	RPOP	!`$$TEMP
	SPUSH	$$"TEMP
   >
  >
 >
eq [@^
	QIDB=Q[`NSYSID
	QNSYSID==QNSYSID+1
<e{y J@Z
	.XCREF
	RESW$	BEGIN,,Z1KRWBM	
	RESW$	ENDK  ,,Z1RWBE+Z1RWBM
	RESW$	IF 
	RESK`W$	THEN 
	RESW$	LINTEGER,INT 
	REL SW$	REF 
	RESW$	L@DO 
	RESW$	PROCEL`DURE,PROC 
	RESWM$	NEW
	RESW$	ACTM IVATE,ACTIV
	RESM@W$	AFTER 
	RESW$M`	AND 
	RESW$	ARRNAY 
	RESW$	AT 
N 	RESW$	BEFORE,BEFN@OR
	RESW$	BOOLEAN`N,BOOL
	RESW$	CHOARACTER,CHAR
	REO SW$	CLASS 
	RESWO@$	COMMENT,COMM,Z1O`RWBM
	RESW$	DELAPY 
	RESW$	ELSE,,P Z1RWBE 
	RESW$	EP@Q 
	RESW$	EQV 
P`	RESW$	EXTERNAL,EQXT 
	RESW$	FALSEQ  
	RESW$	FOR 
	Q@RESW$	GE,NLESS 
Q`	RESW$	GO,,Z1RWBMR 
	RESW$	GOTO,,ZR 1RWBE 
	RESW$	GTR@,GRT 
	RESW$	HIDR`DEN,HIDDE
	RESW$S	IMP 
	RESW$	IN S 
	RESW$	INNER 
S@	RESW$	INSPECT,INS`SPE 
	RESW$	IS 
	RESW$	LABEL 
	T RESW$	LE,NGRT 
	T@RESW$	LONG 
	REST`W$	LT,LESS 
	RESUW$	NAME 
	RESW$	U NE,NEQ 
	RESW$	NU@ONE 
	RESW$	NOT U`
	RESW$	NOTEXT,NVOTEX 
	RESW$	OR V 
	RESW$	OPTIONS,V@OPT,Z1RWBM
	RESWV`$	OTHERWISE,OTHERW,Z1RWBE
	RESW$	PW RIOR 
	RESW$	PROW@TECTED,PROTE
	REW`SW$	QUA 
	RESW$	XREACTIVATE,REACT X 
	RESW$	REAL
	RX@ESW$	SHORT 
	RESX`W$	STEP 
	RESW$	YSWITCH,SWIT 
	REY SW$	TEXT 
	RESW$Y@	THIS 
	RESW$	TOY`,,Z1RWBM 
	RESW$Z	TRUE 
	RESW$	UNZ TIL 
	RESW$	VALUZ@E 
	RESW$	VIRTUAZ`L,VIRT 
	RESW$	W[HEN,,Z1RWBE 
	RE[ SW$	WHILE 
	.CREF
8 r&Je  ,~e&\W  f
	.XCREF
	RESTORE
	 POPJ` XPDP,
	.CREF
bPbe
e: P 
.K==0
IRPP@ A <.K==.K+1>
RP`ENAM1 <1,2,3,4,5,Q6,7,10,11,12,13,1Q 4,15,16,17>,<A>,<B>
BX\eB~ P%
	IFE  RSpSIZE,<$$E(<Underflow in stack R>)>0
	IFG RSSIZE,<
P	IFNB <A>,<A=RTpOP>
	RTOP=$$C(R,\RSSIZE,$)
	$$$P0(R,\RSSIZE,$)
	RPSSIZE=RSSIZE-1
>eC.: P
	IFE  RSSIZE -7777,<$$E(<0Overflow in stackP R>)>
	RSSIZE=RSpSIZE+1
	$$C(R,\RSSIZE,$)=RTOP
	RTOP=A
eOR@ eRNK f5
	TITLE	f0A     DECsystem-1fP0/20 SIMULA RTS %4A(310)   RTS %eR~@ eVu@ gC
	IFDEF .g0DIRECTIVE,<.DIRECgPTIVE .NOBIN>
	UNgpIVERSAL	A     DEhCsystem-10/20 SIMh0ULA RTS %4A(310)   RTS %4A(310) g "&
	.XCREF
	IFN $$BST-3,<$$"@E(<Illegal sa>)>
	$$$SA
	$$C(L,\#$$LF): $$BSP==$$B# SP-3
	$$$P2(L,\$#@$LT)
	$$$P2(L,\$#`$LF)
	$$BST==$$C$($$,\<$$BSP>)
	$$ $LT==$$C($$,\<$$B$@SP+1>)
	$$LF==$$$`C($$,\<$$BSP+2>)
	.CREF
g4P @^
.XCREF
`IFDEF $$NO,<
IFDEF $$SNOX,<
	 $$ E(<DOUBLE SAVE IL@LEGAL>)>
IFNDEF `$$SNOX,<
	 $$SNOX==0
	$$TEMP==0
IRP A,<
	 $$SN@OX==$$SNOX+1
	 S`PUSH 	A
	.CREF
	 STACK	A
	.XC REF>
REPEAT $$NR@,<
	 PPOP	$$TEMP`
	EPUSH	$$TEMP
	 $$C(%.%,\$$TEM P)==-$$TEMP-$$SNO@X>>>
IFNDEF $$NO`,<
	 $$SNOY==0
 IRP A,<
	 SPUS H A
	 $$SNOY==$@$SNOY+1
	.CREF
`	 STACK A
	.XCREF>>
.CREF
zg

1#


%%%%%1==1(0
IRP A,<
SYS1HA==%%%%%1
%%%%%1==<%%%%%1+1>>EBg
%%%%%1==I`0
IRP A,<
A==J%%%%%1
%%%%%1==<%%%%%1+1>>XEHg$-3 ~h@

	EXTERN	YBUFRB,YBHA
	L(	[XWD QBUFS-2,YBUHFRB+1+QBUFS+1]
h	ST	YBUFRB+1
	HRRI	YBUFRB+1
	S(T	YBUFRB+1+QBUFSH+1
	HRLI	400K
	hIFB<C>,<ST YBHA>
	IFNB<C>,<MOV(SI X1,(^DCB11)
		STD	YBHA>
g$` 0
$$$VAL=0 A
SF()
$$USE=3
g%yP y`Z
	.XCREF
	      %OP%==4
z 	OPDEF	      %OP1z@	[TLZ]
	OPDEF	  z`    %OP2	[TRZ]
	{OPDEF	      %OP3	{ [SETZ]
	.CREF
g%yS k`j
	.XCREF
	OPDEF		%OP1	[HRl LOI]
	OPDEF	    l@  %OP2	[HRROI]
	l`OPDEF	      %OP3	m[ANDM]
	OPDEF		%m OP4	[SETZM]
		%OP%==0
	.CREF
g%{@ m`z
	.XCREF
	OPDEF	%OP1	[HRLn ZI]
	OPDEF	     n@ %OP2	[MOVEI]
	On`PDEF	      %OP3	[oIORM]
	OPDEF		%Oo P4	[SETOM]
		%OP%==1
	.CREF
g%{P w`J
	.XCREF
	      %OP%==3
x 	OPDEF	      %OP1x@	[TLO]
	OPDEF	  x`    %OP2	[TRO]
	yOPDEF	      %OP3	y [SETO]
	.CREF
g0  g2 @g2  `g )`^
OPDEF $L* [HRLM A,]
OPDE* F $R [HRRM A,]
*@OPDEF $F [MOVEM *`A,]
OPDEF $B [DP+B A,]
$$USE==1
IFNB <B>,<
IFN+@B <C>,<B,C>
I+`FB <C>,<B>
>
g'TP 1 

A=<<<$B>B59>&77>
gB) P gB~ `n
	IFE  SS

SIZE,<$$E(<Underf

 low in stack S>)>

@
	IFG SSSIZE,<

`	IFNB <A>,<A=ST
	STOP=$$C(S,
	$$$PSSIZE,$)
	SIZE=SSSIZE-1
>XdNY>~gC.: 	`Z
	IFE  SS
 SIZE -7777,<$$E(<
@Overflow in stack
` S>)>
	SSSIZE=SSSIZE+1
	$$C(S,\S SSIZE,$)=STOP
	STOP=A
W1
gOR@ gO$\ F@4
	ADD	A,[XWD	B%S,B%S]gP  @gR

:` ,>gR  gR. E@0
 $%X==AE`
 IFNB <C>,<$%XF==C>
 LI $%X,B%S(A)
hK:$@gR.
@ G@
IFE <B%G S-1>,< AOBJN A,G@C>
IFN <B%S-1>,G`<ADD A,[XWD B%SH,B%S]
 JUMPL A,C>

S|iPgR~@ g^

 ((#
DEFINE R(L(LAB)<LAB-L2()+Y)h3SWAP>
EXTERN	Y3*HSWAP
BEGIN
	HLL*hZS	.JBREN##
	HLL)HZS	.JBSA##
	L	X2*,[XWD L2(),Y3SWAP+]
	BLT	X2,RL(L9(+())
	GOTO	RL(L2()+H)
L2():!	CORE	X3)(,
	HALT
IFN QSY*(S,<
	IFNDEF YP1D+hEV,<EXTERN YP1DEV,,YP1PPN>
	L	YP1D,(EV
	ST	RL(L4())
	L	YP1PPN
	ST	R,hL(L4())+4
>
	LI-	X1,RL(L4())
	GE-(TSEG	X1,
	SKIPA
	GOTO	RL(L3())
-h	LI	X1,RL(L5())
.	GETSEG	X1,
	HAL.(T
L3():!	BRANCH	.H400011+C 

L4(.h):!	SIXBIT'DSK'
/	IFE QSYS,<SIXBIT/(/B/>
	IFN QSYS,/H<SIXBIT/A/>
	Zh
	Z
	Z
	Z
L5()0:!	EXP	QSYSDEV
	0(SIXBIT/A/
	Z
	0HZ
	EXP	D
	Z
L9():!
ENDD
gfl  H":
	SYMBT1==SYMBL1+1
	SYMBTH2==SYMBL2+1
	SYMhBT3==SYMBL3+1
	S(YMBT4==SYMBL4+1
h	SYMBT5==SYMBL5+1
	IFE B,<
DEFI(NE SYMBX(M,N,O,P,HQ)<
	IFN N&A,<hC(M,\O,P,<Q>)>
	IFE O-SYMBT1,<SYM(BT1==SYMBT1+1>
	HIFE O-SYMBT2,<SYMhBT2==SYMBT2+1>
	 IFE O-SYMBT3,<SYM (BT3==SYMBT3+1>
	 HIFE O-SYMBT4,<SYM hBT4==SYMBT4+1>
	!IFE O-SYMBT5,<SYM!(BT5==SYMBT5+1>
	!H>
	SYMBOL
	>
	!hIFN B,<
DEFINE "SYMBX(M,N,O,P,Q)<"(
	IFL O-SYMBL1,<"H
	IFN N&A,<
	D"hEFINE SYMB'O<C(M#,\O,P,<Q>)>>>>
	#(SYMBOL
	DEFINE S#HYMBZ(F)<
	IFDEF #hSYMB'F,<SYMB'F>>
	SYMBY==-1
	REP$(EAT SYMBL1,<
	SY$HMBY==SYMBY+1
	SY$hMBZ(\SYMBY)>
DEF%INE SYMBZ(F)<
DE%(FINE SYMBX(M,N,O,%HP,Q)<
	IFE O-SYM%hBT'F,<
	IFN N&A&,<C(M,\O,P,<Q>)>&(
	SYMBT'F==SYMBT&H'F+1>>
	SYMBOL>
	SYMBZ 1
	SYMBZ' 2
	SYMBZ 3
	SY'(MBZ 4
	SYMBZ 5
	>
	gfl+P gfl+P gfl+	P gfl+	P ,gfl+
P 2gfl+
P 9gfl+P Ggfl+v b!F
	.XCREF
	SYMBX	ACTIV,3,Sb@YMBT1,1,ACTIVATE
	SYMBX	ADEC,2,SYcMBT1
	SYMBX	AFTEc R,1,SYMBT5,,AFTERc@
	SYMBX	AND,3,24c`,,AND
	SYMBX	ARRdAY,1,SYMBT4,,ARRAd Y
	SYMBX	AT,1,SYd@MBT5,,AT
	SYMBX	d`BBLK,2,SYMBT2
	SeYMBX	BECOM,3,SYMBe T1,,<:=>
	SYMBX	e@BEFOR,1,SYMBT5,,Be`EFORE
	SYMBX	BEGfCL,2,SYMBT1,,BEGCf L
	SYMBX	BEGIN,1f@,SYMBT5,,BEGIN
	f`SYMBX	BEGPB,2,SYMgBT1,,BEGPB
	SYMBg X	BEGPR,2,SYMBT1,g@,BEGPRO
	SYMBX	Bg`OOL,1,SYMBT4,,BOOhLEAN
	SYMBX	BOUNh D,2,SYMBT1,,ARRAYh@BND
	SYMBX	BPROGh`,2,SYMBT2
	SYMBXi	CHAR,1,SYMBT4,,Ci HARACTER
	SYMBX	i@CLASS,1,SYMBT4,,Ci`LASS
	SYMBX	COLOjN,1,SYMBT5,,<:>
j 	SYMBX	COMM,1,SYMj@BT5
	SYMBX	COMMAj`,1,36,,<,>
	SYMBkX	CONC,3,SYMBT3,1k ,CONSTANT
	SYMBXk@	CONI,3,SYMBT3,2,k`CONSTANT
	SYMBX	lCONLR,3,SYMBT3,4,l CONSTANT
	SYMBX	l@CONR,3,SYMBT3,2,Cl`ONSTANT
	SYMBX	CmONT,3,SYMBT3,2,COm NSTANT
	SYMBX	COm@NVE,4,SYMBT1,,CONm`V
	SYMBX	CVBE,2,nSYMBT1,,<:=>
	SYn MBX	CVDE,2,SYMBT1n@,,<:->
	SYMBX	DEn`BUG,3,SYMBT2,1
	oSYMBX	DELAY,1,SYMo BT5,,DELAY
	SYMBo@X	DELOP,2,0
	SYMo`BX	DENOT,3,SYMBT1p,,<:->
	SYMBX	DEp Q,3,17,,<==>
	SYp@MBX	DIV,3,3,,</>
	SYMBX	DO,3,SYMBqT2,,DO
	SYMBX	DOq T,3,33,,<.>
	SYMq@BX	EBLK,2,SYMBT2
	SYMBX	EDCL,2,SYrMBT2
	SYMBX	EDPBr ,2,SYMBT2
	SYMBXr@	ELSE,1,SYMBT5,,Er`LSE
	SYMBX	END,1s,SYMBT5,,END
	SYs MBX	ENDCL,2,SYMBTs@2
	SYMBX	ENDDO,2s`,SYMBT2
	SYMBX	EtNDFO,2,SYMBT2
	St YMBX	ENDPR,2,SYMBt@T2
	SYMBX	EOF,1,t`SYMBT5
	SYMBX	EPuROG,2,SYMBT2
	SYu MBX	EQ,3,13,,<=&@u@(EQ)>
	SYMBX	EQVu`,3,27,,EQV
	SYMBvX	ERROR,2,SYMBT2
	SYMBX	EXT,1,SYMv@BT4,,EXTERNAL
	Sv`YMBX	FALSE,3,SYMBwT3,,FALSE
	SYMBXw 	FIX,2,SYMBT2,1
w@	SYMBX	FOR,1,SYMBw`T5,,FOR
	SYMBX	FxORDO,2,SYMBT2
	Sx YMBX	FORSI,2,SYMBx@T1,,<:=/:->
	SYMx`BX	FORST,2,SYMBT1y,,<STEP/UNTIL>
	y SYMBX	FORWH,2,SYMy@BT1,,WHILE
	SYMBy`X	GO,1,SYMBT5,,GOz
	SYMBX	GOTO,3,Sz YMBT1,,GOTO
	SYMz@BX	GRT,3,14,,<&^&z`@(GT)>
	SYMBX	HI{DDE,1,SYMBT5,,HID{ DEN
	SYMBX	IDIV,{@3,4,,<//>
	SYMBX{`	IENDC,2,SYMBT2
|	SYMBX	IF,1,SYMBT| 5,,IF
	SYMBX	IFE|@X,2,SYMBT1,,ELSE
	SYMBX	IFEX1,4,S}YMBT1,,IF
	SYMBX} 	IFST,2,SYMBT1,1,}@<IF>
	SYMBX	IFTR}`E,2,SYMBT1,1,<IF>~
	SYMBX	IFTRU,2,~ SYMBT1,,<IF>
	SY~@MBX	IMP,3,26,,IMP~`
	SYMBX	IN,3,22,,IN
	SYMBX	INNER ,3,SYMBT2,,INNER
	SYMBX	INSPE,3,S`YMBT1,1,INSPECT
	SYMBX	INT,1,SYMB T4,,INTEGER
	SYM@BX	IS,3,21,,IS
	`SYMBX	JUMP,2,SYMBT2,1
	SYMBX	LABE L,1,SYMBT5,,LABEL@
	SYMBX	LB,3,SYM`BT3,,<[>
	SYMBX	LESS,3,11,,<&\&@( LT)>
	SYMBX	LONG@,1,SYMBT4,,LONG
`	SYMBX	LP,3,SYMBT3,,<(>
	SYMBX	MI NUS,3,7,,<->
	SY@MBX	MOCEB,4,SYMBT`1,<:=>
	SYMBX	MULT,3,2,,<*>
	SYM BX	NAME,1,SYMBT5,@,NAME
	SYMBX	NDE`Q,3,20,,<=/=>
	SYMBX	NEQ,3,16,,<\ =&@(NE)>
	SYMBX	@NEW,3,31,,NEW
	S`YMBX	NGRT,3,12,,<&\=&@(LE)>
	SYMB X	NLESS,3,15,,<&^@=&@(GE)>
	SYMBX	`NONE,3,SYMBT3,,NONE
	SYMBX	NOT,3, 23,,<\&@(NOT)>
	@SYMBX	NOTEX,3,SYM`BT3,,NOTEXT
	SYMBX	NOTHR,2,SYMBT2 
	SYMBX	OPT,3,SY@MBT2,1
	SYMBX	OR`,3,25,,OR
	SYMBX		OTHER,3,SYMBT2,,	 OTHERWISE
	SYMBX	@	PAREN,2,SYMBT1,,	`PARENTHESIS
	SYM
BX	PARM,4,SYMBT1
 
	SYMBX	PCALL,4,S
@YMBT1
	SYMBX	PBE
`ND,2,SYMBT2
	SYMBX	PLUS,3,5,,<+>
	SYMBX	POW,3,1,,@<**>
	SYMBX	PRIO`R,1,SYMBT5,,PRIOR


	SYMBX	PROC,1,S

YMBT4,,PROCEDURE

@
	SYMBX	PROTE,1,S

`YMBT5,,PROTECTED
	SYMBX	PURGE,2,S
	SYMBX	QUA
	SYMBL,4,SYMBT1,,QUALIF
	SYMBX	RB ,1,34,,<]>
	SYMB@X	REACT,1,SYMBT5,`,REACTIVATE
	SYMBX	REAL,1,SYMBT4, ,REAL
	SYMBX	REF@,1,SYMBT4,,REF
	`SYMBX	RP,3,35,,<)>
	SYMBX	SEMIC,3 ,SYMBT5,,<;>
	SY@MBX	SHORT,1,SYMBT`4,,SHORT
	SYMBX	STEP,1,SYMBT5,,ST EP
	SYMBX	SWEL,2@,SYMBT1,,SWITCHEL`EM
	SYMBX	SWEND,2,SYMBT2
	SYMBX	 SWIT,1,SYMBT4,,SW@ITCH
	SYMBX	SWIT`C,2,SYMBT1
	SYMBX	TEXT,1,SYMBT4,, TEXT
	SYMBX	THEN@,1,SYMBT5,,THEN
`	SYMBX	THIS,3,30,,THIS
	SYMBX	TO, 1,SYMBT5,,TO
	SY@MBX	TONED,4,SYMBT`1
	SYMBX	TRUE,3,SYMBT3,,TRUE
	SY MBX	UDEF,2,SYMBT3@
	SYMBX	UNMIN,2,`10,,<->
	SYMBX	UNTIL,1,SYMBT5,,UN TIL
	SYMBX	UPLUS@,2,6,,<+>
	SYMBX`	VALUE,1,SYMBT5,,VALUE
	SYMBX	VIR T,1,SYMBT5,,VIRTU@AL
	SYMBX	WHEDO,`2,SYMBT1,,WHEN
	SYMBX	WHEN,1,SYMB T5,,WHEN
	SYMBX	@WHILE,3,SYMBT1,1,`WHILE
	.CREF
	q^

4(Pq^

4(gfl-P gfl-	P ,gfl-	P 2gfl-
P 9gfl-
P Ggfl. ("H

	IFN B&H7,<SYMBXX(A,\C,hD,<E>)>
	IFE C-SYMBT1,<SYMBT1=(=SYMBT1+1>
	IFE HC-SYMBT2,<SYMBT2h==SYMBT2+1>
	IFE C-SYMBT3,<SYMBT(3==SYMBT3+1>
	IFHE C-SYMBT4,<SYMBhT4==SYMBT4+1>
	IFE C-SYMBT5,<SYM)BT5==SYMBT5+1>
	gfl. 'h">
	%A=Bgg;P gg P gg@P gg`P ggP gg P gg@P gg`P ggP gg P gg \@

	RESW$	N\`UMBER:1,NO1
	RES\W$	NUMBER:2,NO2
]	RESW$	NUMBER:3,N] O3
	RESW$	NUMBER]@:4,NO4
	RESW$	FI]`LE.,FIL
	RESW$	I^NFILE,INF
	RESW$^ 	OUTFILE,UTF
	RE^@SW$	DIRECTFILE,DI^`F
	RESW$	PRINTFI_LE,PRF
	RESW$	SI_ MSET,SET
	RESW$	_@SIMULATION,SIM
	_`RESW$	LINKAGE,LKA`
	RESW$	LINK,LIN` 
	RESW$	HEAD,HED`@
	RESW$	PROCESS,``PRO
	RESW$	SYSINa,SIN
	RESW$	SYSOa UT,SUT
	RESW$	TEXT.,TXT
gg4 P gg4@P gg4`P gg5P gg5 P gg5@P 	gg5`P 	gg6P 
gg6 P 
ggD P ggD@P ggD`P

ggEP

ggE@P ggFP ggF P ggT P ggX P gg

@P ggNP i"-` `f
	.XCREF


	IFN $$BST-1,<$$

 E(<Illegal then>)

@>
	$$$THEN
	$$C

`(L,\$$LT):$$BST==5
	.CREF
i&l\@ yH?r
IFN QTIMyhER,<
	STACK	X0
z	STACK	X1
	STACKz(	X2
	LI	X1,0
	RzHUNTIM	X1,
	SUB	Xzh1,YTIMER##
	ADDM{	X1,YTIMER
	IFNB{(<A>,<
		OUTSTR	{H[ASCIZ/
A  /]
{h		LSH	X1,25
		LI|	X2,5
		LOOP
		|(	LI	X0,0
			LSHC|H	X0,3
			ADDI	X0|h,60
			OUTCHR
	}	AS
			SOJG	X2,T}(RUE
		SA
		OUTS}HTR	[ASCIZ/  MILLI}hSECONDS
/]
		>
	UNSTK	X2
	UNST~(K	X1
	UNSTK	X0
>
c@P`i< (Z
	.XCREF
	IFN $$BST-4,<$$(@E(<Illegal to>)>
	$$$TO
	$$C(L,\)$$LT): $$BSP==$$B) SP-3
	GOTO A
	)@$$C(L,\$$LF):
	$)`$$P2(L,\$$LT)
	$*$$P2(L,\$$LF)
	$* $BST==$$C($$,\<$$*@BSP>)
	$$LT==$$C*`($$,\<$$BSP+1>)
+	$$LF==$$C($$,\<$+ $BSP+2>)
	.CREF
i?4( a	IFE QDEC20IFE QDEC20i?4H `PIFN QDEC20IFN QDEC20iK,P +``$$C(L,\$$L,T)-$$RELO($$BAS)k;J` ,^kV~0 (@t%%%%%1==QUHUO
	IRP  A<X(A)>
g4P2kV~9: xA	
UUOS	<ERRT,,ERRI3,ERRI2,E8RRI1,ERR,ERRLI,WAXRN,ERRR,ERR1,ERR2x,FATA,SEV,SEV1,SEV2,RFAI>;ORDER SIGNIFICANT
m;vA dm-A do` o"-` C
IFEQF A,B%F,B%V,Co"-kW C@
IFNEQF A,B%F,B%V,Co"MI   <
	.XCREF
	$$C($$,\<$$BSP>`)==$$BST
	$$C($$,\<$$BSP+1>)==$$L T
	$$C($$,\<$$BS@P+2>)==$$LF
	$$C`($$,\<$$BSP+3>)==$$LE
	$$BSP==$$B SP+4
	$$BST==2
@	$$LT==$$L
	$$LF`==$$L+1
	$$LE==$$L+2
	$$L==$$L+3 
	$$C(L,\$$LE): @$$$WHILE
	.CREF
ELzPcF)6o20 , d
$$USE==0,@
OPDEF $F [MOVE A,]
oN0 -j
$$USE==0- 
OPDEF $F [MOVEM A,]
p@ p @@nIFNB<A>,
<QA==%%%%%1
OPCDEF	A	[<%%%%%1>B
%%%%%1==%%%%%1+1

	OPDEF	Gp@P pDP pEP pEP pEP pEP pE P pE(P pE0P pHP pLP pPP pTP pXP p\P q ,qB&P q^

4 P q^

4(P q^

4(P q^

4@P q^

4`P q^

5P q^

5 P q^

5@P q^

5`P q^

;P r C@SYN A,YOPB>sl` ?4
IFE <%OP?(%-1>,<%OP1 100000?H>
IFE %OP%,<%OP1?h 677777>
IFE <%O@P%-2>,<$$E(<ILL S@(WITCH NAME>)>
IF@HGE <%OP%-3>,<IFB @h<A>,<%OP1 100000A>
	IFNB <A>,<%OA(P1 A,100000>>
IAHFL<%OP%-2>,<%OP3 AhYSWITCH(A)>
%OP%==2JXdNsli  BX4+
IFE <%OPBx%-1>,<%OP1 40000>C
IFE %OP%,<%OP1 C8737777>
IFE <%OPCX%-2>,<$$E(<ILL SWCxITCH NAME>)>
IFGDE <%OP%-3>,<IFB <D8A>,<%OP1 40000>
	IFNB <A>,<%OP1Dx A,40000>>
IFL<E%OP%-2>,<%OP3 YSWE8ITCH(A)>
%OP%==2cELhPs%

8v ;x3u
IFE <%OP<%-1>,<%OP1 200000<8>
IFE %OP%,<%OP1<X 577777>
IFE <%O<xP%-2>,<$$E(<ILL S=WITCH NAME>)>
IF=8GE <%OP%-3>,<IFB =X<A>,<%OP1 200000=x>
	IFNB <A>,<%O>P1 A,200000>>
I>8FL<%OP%-2>,<%OP3 >XYSWITCH(A)>
%OP%==2$S|i@

s?%  qX?#
IFE %OP%qx-1,<%OP2 40000>
rIFE %OP%,<%OP2 77r87777737777>
IFE rX<%OP%-2>,<$$E(<ILrxL SWITCH NAME>)>
IFGE <%OP%-3>,<Is8FB <A>,<%OP2 400sX00>
	IFNB <A>,<sx%OP2 A,40000>>
tIFL <%OP%-2>,<%OPt83 Y3OPEN(A)>
%OP%==2S|i@

s?%@ k>n
IFE %OP%k -1,<%OP2 20000>
k@IFE %OP%,<%OP2 77k`7777757777>
IFE l<%OP%-2>,<$$E(<ILl L SWITCH NAME>)>
IFGE <%OP%-3>,<Il`FB <A>,<%OP2 200m00>
	IFNB <A>,<m %OP2 A,20000>>
m@IFL <%OP%-2>,<%OPm`3 Y3OPEN(A)>
%OP%==2&uG.[Ys?%` d(>8
IFE %OP%dH-1,<%OP2 10000>
dhIFE %OP%,<%OP2 77e7777767777>
IFE e(<%OP%-2>,<$$E(<ILeHL SWITCH NAME>)>
IFGE <%OP%-3>,<IfFB <A>,<%OP2 100f(00>
	IFNB <A>,<fH%OP2 A,10000>>
fhIFL <%OP%-2>,<%OPg3 Y3OPEN(A)>
%OP%==2u") -xs?4 ]p>
IFE %OP%^-1,<%OP2 4000>
I^0FE %OP%,<%OP2 777^P777773777>
IFE <^p%OP%-2>,<$$E(<ILL_ SWITCH NAME>)>
_0IFGE <%OP%-3>,<IF_PB <A>,<%OP2 4000_p>
	IFNB <A>,<%O`P2 A,4000>>
IFL`0 <%OP%-2>,<%OP3 Y`P3OPEN(A)>
%OP%==2<;v4}sO<< s?4  W8=Q
IFE %OP%WX-1,<%OP2 2000>
IWxFE %OP%,<%OP2 777X777775777>
IFE <X8%OP%-2>,<$$E(<ILLXX SWITCH NAME>)>
XxIFGE <%OP%-3>,<IFYB <A>,<%OP2 2000Y8>
	IFNB <A>,<%OYXP2 A,2000>>
IFLYx <%OP%-2>,<%OP3 YZ3OPEN(A)>
%OP%==2gg

@Ps?4@ Q=
IFE %OP%Q -1,<%OP2 1000>
IQ@FE %OP%,<%OP2 777Q`777776777>
IFE <R%OP%-2>,<$$E(<ILLR  SWITCH NAME>)>
R@IFGE <%OP%-3>,<IFR`B <A>,<%OP2 1000S>
	IFNB <A>,<%OS P2 A,1000>>
IFLS@ <%OP%-2>,<%OP3 YS`3OPEN(A)>
%OP%==2$\2gR.s?4` JH<j
IFE %OP%Jh-1,<%OP2 400>
IFKE %OP%,<%OP2 7777K(77777377>
IFE <%KHOP%-2>,<$$E(<ILL KhSWITCH NAME>)>
ILFGE <%OP%-3>,<IFBL( <A>,<%OP2 400>
	IFNB <A>,<%OP2Lh A,400>>
IFL <%MOP%-2>,<%OP3 Y3OPM(EN(A)>
%OP%==2PhcO<YPs?5 D<7
IFE %OP%D0-1,<%OP2 200>
IFDPE %OP%,<%OP2 7777Dp77777577>
IFE <%EOP%-2>,<$$E(<ILL E0SWITCH NAME>)>
IEPFGE <%OP%-3>,<IFBEp <A>,<%OP2 200>
	IFNB <A>,<%OP2F0 A,200>>
IFL <%FPOP%-2>,<%OP3 Y3OPFpEN(A)>
%OP%==2c.JPc.bs?5  =X<
IFE %OP%=x-1,<%OP2 100>
IF>E %OP%,<%OP2 7777>877777677>
IFE <%>XOP%-2>,<$$E(<ILL >xSWITCH NAME>)>
I?FGE <%OP%-3>,<IFB?8 <A>,<%OP2 100>
	IFNB <A>,<%OP2?x A,100>>
IFL <%@OP%-2>,<%OP3 Y3OP@8EN(A)>
%OP%==2Pc,;Ps?5@ 7@;P
IFE %OP%7`-1,<%OP2 40>
IFE8 %OP%,<%OP2 777778 7777737>
IFE <%O8@P%-2>,<$$E(<ILL S8`WITCH NAME>)>
IF9GE <%OP%-3>,<IFB 9 <A>,<%OP2 40>
	9@IFNB <A>,<%OP2 9`A,40>>
IFL <%OP%:-2>,<%OP3 Y3OPEN(A)>
%OP%==2s?5` 1(;
IFE %OP%1H-1,<%OP2 20>
IFE1h %OP%,<%OP2 7777727777757>
IFE <%O2(P%-2>,<$$E(<ILL S2HWITCH NAME>)>
IF2hGE <%OP%-3>,<IFB 3<A>,<%OP2 20>
	3(IFNB <A>,<%OP2 3HA,20>>
IFL <%OP%3h-2>,<%OP3 Y3OPEN(A)>
%OP%==2#js?D +:m
IFE %OP%+0-1,<%OP2 10>
IFE+P %OP%,<%OP2 77777+p7777767>
IFE <%O,P%-2>,<$$E(<ILL S,0WITCH NAME>)>
IF,PGE <%OP%-3>,<IFB ,p<A>,<%OP2 10>
	-IFNB <A>,<%OP2 -0A,10>>
IFL <%OP%-P-2>,<%OP3 Y3OPEN(A)>
%OP%==2N8s?D  $x:;
IFE %OP%%-1,<%OP2 4>
IFE %8%OP%,<%OP2 777777%X777773>
IFE <%OP%x%-2>,<$$E(<ILL SW&ITCH NAME>)>
IFG&8E <%OP%-3>,<IFB <&XA>,<%OP2 4>
	IF&xNB <A>,<%OP2 A,'4>>
IFL <%OP%-2>'8,<%OP3 Y3OPEN(A)>
%OP%==21Us?D@ `:

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 Y3OPEN(A)>
%OP%==2sO<@s?D` H9X
IFE %OP%h-1,<%OP2 1>
IFE %OP%,<%OP2 777777(777776>
IFE <%OPH%-2>,<$$E(<ILL SWhITCH NAME>)>
IFGE <%OP%-3>,<IFB <(A>,<%OP2 1>
	IFHNB <A>,<%OP2 A,h1>>
IFL <%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2P	s? JH<j
IFE %OP%Jh-1,<%OP2 400>
IFKE %OP%,<%OP2 7777K(77777377>
IFE <%KHOP%-2>,<$$E(<ILL KhSWITCH NAME>)>
ILFGE <%OP%-3>,<IFBL( <A>,<%OP2 400>
	IFNB <A>,<%OP2Lh A,400>>
IFL <%MOP%-2>,<%OP3 Y3OPM(EN(A)>
%OP%==2PhcO<YPs?I1 d(>8
IFE %OP%dH-1,<%OP2 10000>
dhIFE %OP%,<%OP2 77e7777767777>
IFE e(<%OP%-2>,<$$E(<ILeHL SWITCH NAME>)>
IFGE <%OP%-3>,<IfFB <A>,<%OP2 100f(00>
	IFNB <A>,<fH%OP2 A,10000>>
fhIFL <%OP%-2>,<%OPg3 Y3OPEN(A)>
%OP%==2u") -xs?IH 7@;P
IFE %OP%7`-1,<%OP2 40>
IFE8 %OP%,<%OP2 777778 7777737>
IFE <%O8@P%-2>,<$$E(<ILL S8`WITCH NAME>)>
IF9GE <%OP%-3>,<IFB 9 <A>,<%OP2 40>
	9@IFNB <A>,<%OP2 9`A,40>>
IFL <%OP%:-2>,<%OP3 Y3OPEN(A)>
%OP%==2s?\Y k>n
IFE %OP%k -1,<%OP2 20000>
k@IFE %OP%,<%OP2 77k`7777757777>
IFE l<%OP%-2>,<$$E(<ILl L SWITCH NAME>)>
IFGE <%OP%-3>,<Il`FB <A>,<%OP2 200m00>
	IFNB <A>,<m %OP2 A,20000>>
m@IFL <%OP%-2>,<%OPm`3 Y3OPEN(A)>
%OP%==2&uG.[Ys?^ $x:;
IFE %OP%%-1,<%OP2 4>
IFE %8%OP%,<%OP2 777777%X777773>
IFE <%OP%x%-2>,<$$E(<ILL SW&ITCH NAME>)>
IFG&8E <%OP%-3>,<IFB <&XA>,<%OP2 4>
	IF&xNB <A>,<%OP2 A,'4>>
IFL <%OP%-2>'8,<%OP3 Y3OPEN(A)>
%OP%==21Us?h 1(;
IFE %OP%1H-1,<%OP2 20>
IFE1h %OP%,<%OP2 7777727777757>
IFE <%O2(P%-2>,<$$E(<ILL S2HWITCH NAME>)>
IF2hGE <%OP%-3>,<IFB 3<A>,<%OP2 20>
	3(IFNB <A>,<%OP2 3HA,20>>
IFL <%OP%3h-2>,<%OP3 Y3OPEN(A)>
%OP%==2#js?i W8=Q
IFE %OP%WX-1,<%OP2 2000>
IWxFE %OP%,<%OP2 777X777775777>
IFE <X8%OP%-2>,<$$E(<ILLXX SWITCH NAME>)>
XxIFGE <%OP%-3>,<IFYB <A>,<%OP2 2000Y8>
	IFNB <A>,<%OYXP2 A,2000>>
IFLYx <%OP%-2>,<%OP3 YZ3OPEN(A)>
%OP%==2gg

@Ps?Lh +:m
IFE %OP%+0-1,<%OP2 10>
IFE+P %OP%,<%OP2 77777+p7777767>
IFE <%O,P%-2>,<$$E(<ILL S,0WITCH NAME>)>
IF,PGE <%OP%-3>,<IFB ,p<A>,<%OP2 10>
	-IFNB <A>,<%OP2 -0A,10>>
IFL <%OP%-P-2>,<%OP3 Y3OPEN(A)>
%OP%==2N8s?Lz ]p>
IFE %OP%^-1,<%OP2 4000>
I^0FE %OP%,<%OP2 777^P777773777>
IFE <^p%OP%-2>,<$$E(<ILL_ SWITCH NAME>)>
_0IFGE <%OP%-3>,<IF_PB <A>,<%OP2 4000_p>
	IFNB <A>,<%O`P2 A,4000>>
IFL`0 <%OP%-2>,<%OP3 Y`P3OPEN(A)>
%OP%==2<;v4}sO<< s?)6 D<7
IFE %OP%D0-1,<%OP2 200>
IFDPE %OP%,<%OP2 7777Dp77777577>
IFE <%EOP%-2>,<$$E(<ILL E0SWITCH NAME>)>
IEPFGE <%OP%-3>,<IFBEp <A>,<%OP2 200>
	IFNB <A>,<%OP2F0 A,200>>
IFL <%FPOP%-2>,<%OP3 Y3OPFpEN(A)>
%OP%==2c.JPc.bs?<Q `:

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 Y3OPEN(A)>
%OP%==2sO<@s?LQ qX?#
IFE %OP%qx-1,<%OP2 40000>
rIFE %OP%,<%OP2 77r87777737777>
IFE rX<%OP%-2>,<$$E(<ILrxL SWITCH NAME>)>
IFGE <%OP%-3>,<Is8FB <A>,<%OP2 400sX00>
	IFNB <A>,<sx%OP2 A,40000>>
tIFL <%OP%-2>,<%OPt83 Y3OPEN(A)>
%OP%==2S|i@

s?M H9X
IFE %OP%h-1,<%OP2 1>
IFE %OP%,<%OP2 777777(777776>
IFE <%OPH%-2>,<$$E(<ILL SWhITCH NAME>)>
IFGE <%OP%-3>,<IFB <(A>,<%OP2 1>
	IFHNB <A>,<%OP2 A,h1>>
IFL <%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2P	s?

S Q=
IFE %OP%Q -1,<%OP2 1000>
IQ@FE %OP%,<%OP2 777Q`777776777>
IFE <R%OP%-2>,<$$E(<ILLR  SWITCH NAME>)>
R@IFGE <%OP%-3>,<IFR`B <A>,<%OP2 1000S>
	IFNB <A>,<%OS P2 A,1000>>
IFLS@ <%OP%-2>,<%OP3 YS`3OPEN(A)>
%OP%==2$\2gR.s?,r =X<
IFE %OP%=x-1,<%OP2 100>
IF>E %OP%,<%OP2 7777>877777677>
IFE <%>XOP%-2>,<$$E(<ILL >xSWITCH NAME>)>
I?FGE <%OP%-3>,<IFB?8 <A>,<%OP2 100>
	IFNB <A>,<%OP2?x A,100>>
IFL <%@OP%-2>,<%OP3 Y3OP@8EN(A)>
%OP%==2Pc,;PsB| MX=
IFE <%OPMx%-1>,<%OP1 400>
NIFE %OP%,<%OP1 77N87377>
IFE <%OP%-NX2>,<$$E(<ILL SWITNxCH NAME>)>
IFGE O<%OP%-3>,<IFB <AO8>,<%OP1 400>
	IFOXNB <A>,<%OP1 A,Ox400>>
IFL<%OP%-2P>,<%OP3 Y3OPEN(A)>
%OP%==2

sB|I1 g8>Q
IFE <%OPgX%-1>,<%OP1 10000>gx
IFE %OP%,<%OP1 h767777>
IFE <%OPh8%-2>,<$$E(<ILL SWhXITCH NAME>)>
IFGhxE <%OP%-3>,<IFB <iA>,<%OP1 10000>
	IFNB <A>,<%OP1iX A,10000>>
IFL<ix%OP%-2>,<%OP3 Y3OjPEN(A)>
%OP%==2$luG,j<'KsB|IH :0;g
IFE <%OP:P%-1>,<%OP1 40>
I:pFE %OP%,<%OP1 777;737>
IFE <%OP%-2;0>,<$$E(<ILL SWITC;PH NAME>)>
IFGE <;p%OP%-3>,<IFB <A><,<%OP1 40>
	IFNB<0 <A>,<%OP1 A,40<P>>
IFL<%OP%-2>,<<p%OP3 Y3OPEN(A)>
%OP%==2(c
}{sB|\Y n?
IFE <%OPn0%-1>,<%OP1 20000>nP
IFE %OP%,<%OP1 np757777>
IFE <%OPo%-2>,<$$E(<ILL SWo0ITCH NAME>)>
IFGoPE <%OP%-3>,<IFB <opA>,<%OP1 20000>
	IFNB <A>,<%OP1p0 A,20000>>
IFL<pP%OP%-2>,<%OP3 Y3OppPEN(A)>
%OP%==2@P CLsB|^ 'h:R
IFE <%OP(%-1>,<%OP1 4>
IF((E %OP%,<%OP1 7777(H73>
IFE <%OP%-2>(h,<$$E(<ILL SWITCH) NAME>)>
IFGE <%)(OP%-3>,<IFB <A>,)H<%OP1 4>
	IFNB <)hA>,<%OP1 A,4>>
IFL<%OP%-2>,<%OP*(3 Y3OPEN(A)>
%OP%==2uG,x@*sB}h 4;5
IFE <%OP48%-1>,<%OP1 20>
I4XFE %OP%,<%OP1 7774x757>
IFE <%OP%-25>,<$$E(<ILL SWITC58H NAME>)>
IFGE <5X%OP%-3>,<IFB <A>5x,<%OP1 20>
	IFNB6 <A>,<%OP1 A,2068>>
IFL<%OP%-2>,<6X%OP3 Y3OPEN(A)>
%OP%==20xsB}i ZH=h
IFE <%OPZh%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7[(75777>
IFE <%OP%[H-2>,<$$E(<ILL SWI[hTCH NAME>)>
IFGE\ <%OP%-3>,<IFB <\(A>,<%OP1 2000>
	\HIFNB <A>,<%OP1 \hA,2000>>
IFL<%OP]%-2>,<%OP3 Y3OPEN(A)>
%OP%==2sB}Lh .;
IFE <%OP. %-1>,<%OP1 10>
I.@FE %OP%,<%OP1 777.`767>
IFE <%OP%-2/>,<$$E(<ILL SWITC/ H NAME>)>
IFGE </@%OP%-3>,<IFB <A>/`,<%OP1 10>
	IFNB0 <A>,<%OP1 A,100 >>
IFL<%OP%-2>,<0@%OP3 Y3OPEN(A)>
%OP%==2D[sB}Lz a>
IFE <%OPa %-1>,<%OP1 4000>
IFE %OP%,<%OP1 7a`73777>
IFE <%OP%b-2>,<$$E(<ILL SWIb TCH NAME>)>
IFGEb@ <%OP%-3>,<IFB <b`A>,<%OP1 4000>
	cIFNB <A>,<%OP1 c A,4000>>
IFL<%OPc@%-2>,<%OP3 Y3OPEN(A)>
%OP%==2sB~)6 G <N
IFE <%OPG@%-1>,<%OP1 200>
G`IFE %OP%,<%OP1 77H7577>
IFE <%OP%-H 2>,<$$E(<ILL SWITH@CH NAME>)>
IFGE H`<%OP%-3>,<IFB <AI>,<%OP1 200>
	IFI NB <A>,<%OP1 A,I@200>>
IFL<%OP%-2I`>,<%OP3 Y3OPEN(A)>
%OP%==2B/!P:!
IFE <%OP!p%-1>,<%OP1 2>
IF"E %OP%,<%OP1 7777"075>
IFE <%OP%-2>"P,<$$E(<ILL SWITCH"p NAME>)>
IFGE <%#OP%-3>,<IFB <A>,#0<%OP1 2>
	IFNB <#PA>,<%OP1 A,2>>
IFL<%OP%-2>,<%OP$3 Y3OPEN(A)>
%OP%==2Pu-KUsB~LQ th?<
IFE <%OPu%-1>,<%OP1 40000>u(
IFE %OP%,<%OP1 uH737777>
IFE <%OPuh%-2>,<$$E(<ILL SWvITCH NAME>)>
IFGv(E <%OP%-3>,<IFB <vHA>,<%OP1 40000>
	IFNB <A>,<%OP1w A,40000>>
IFL<w(%OP%-2>,<%OP3 Y3OwHPEN(A)>
%OP%==2JXdNsB~M 89o
IFE <%OPX%-1>,<%OP1 1>
IFxE %OP%,<%OP1 777776>
IFE <%OP%-2>8,<$$E(<ILL SWITCHX NAME>)>
IFGE <%xOP%-3>,<IFB <A>,<%OP1 1>
	IFNB <8A>,<%OP1 A,1>>
IFL<%OP%-2>,<%OPx3 Y3OPEN(A)>
%OP%==2m-AGsB

S T=5
IFE <%OPT0%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7Tp76777>
IFE <%OP%U-2>,<$$E(<ILL SWIU0TCH NAME>)>
IFGEUP <%OP%-3>,<IFB <UpA>,<%OP1 1000>
	VIFNB <A>,<%OP1 V0A,1000>>
IFL<%OPVP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2`sB,r @h<
IFE <%OPA%-1>,<%OP1 100>
A(IFE %OP%,<%OP1 77AH7677>
IFE <%OP%-Ah2>,<$$E(<ILL SWITBCH NAME>)>
IFGE B(<%OP%-3>,<IFB <ABH>,<%OP1 100>
	IFBhNB <A>,<%OP1 A,C100>>
IFL<%OP%-2C(>,<%OP3 Y3OPEN(A)>
%OP%==2sO< (82W
IFE %OP%(X-1,<%OP2 40>
IFE(x %OP%,<%OP2 77777)7777737>
IFE <%O)8P%-2>,<$$E(<ILL S)XWITCH NAME>)>
IF)xGE <%OP%-3>,<IFB *<A>,<%OP2 40>
	*8IFNB <A>,<%OP2 *XA,40>>
IFL <%OP%*x-2>,<%OP3 YSWITCH(A)>
%OP%==2AsO<8  v7F
IFE <%OPv(%-1>,<%OP1 400000vH>
IFE %OP%,<%OP1vh 377777>
IFE <%OwP%-2>,<$$E(<ILL Sw(WITCH NAME>)>
IFwHGE <%OP%-3>,<IFB wh<A>,<%OP1 400000x>
	IFNB <A>,<%Ox(P1 A,400000>>
IxHFL<%OP%-2>,<%OP3 xhYSWCHA(A)>
%OP%==2FE=@sO<9 y87a
IFE <%OPyX%-1>,<%OP1 200000yx>
IFE %OP%,<%OP1z 577777>
IFE <%Oz8P%-2>,<$$E(<ILL SzXWITCH NAME>)>
IFzxGE <%OP%-3>,<IFB {<A>,<%OP1 200000{8>
	IFNB <A>,<%O{XP1 A,200000>>
I{xFL<%OP%-2>,<%OP3 |YSWCHA(A)>
%OP%==2,S}`|sO<9  |h7|
IFE <%OP}%-1>,<%OP1 100000}(>
IFE %OP%,<%OP1}H 677777>
IFE <%O}hP%-2>,<$$E(<ILL S~WITCH NAME>)>
IF~(GE <%OP%-3>,<IFB ~H<A>,<%OP1 100000~h>
	IFNB <A>,<%OP1 A,100000>>
I(FL<%OP%-2>,<%OP3 HYSWCHA(A)>
%OP%==2l[TxsO<:  8
IFE <%OP8%-1>,<%OP1 40000>X
IFE %OP%,<%OP1 x737777>
IFE <%OP%-2>,<$$E(<ILL SW8ITCH NAME>)>
IFGXE <%OP%-3>,<IFB <xA>,<%OP1 40000>
	IFNB <A>,<%OP18 A,40000>>
IFL<X%OP%-2>,<%OP3 YSWxCHA(A)>
%OP%==2PcELzPsO<;  8H3Z
IFE <%OP8h%-1>,<%OP1 4000009>
IFE %OP%,<%OP19( 377777>
IFE <%O9HP%-2>,<$$E(<ILL S9hWITCH NAME>)>
IF:GE <%OP%-3>,<IFB :(<A>,<%OP1 400000:H>
	IFNB <A>,<%O:hP1 A,400000>>
I;FL<%OP%-2>,<%OP3 ;(YSWITCH(A)>
%OP%==2CLsO<;v Ox5
IFE <%OPP%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7PX75777>
IFE <%OP%Px-2>,<$$E(<ILL SWIQTCH NAME>)>
IFGEQ8 <%OP%-3>,<IFB <QXA>,<%OP1 2000>
	QxIFNB <A>,<%OP1 RA,2000>>
IFL<%OPR8%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO<<  H82
IFE <%OPh%-1>,<%OP1 20000>
IFE %OP%,<%OP1 (757777>
IFE <%OPH%-2>,<$$E(<ILL SWhITCH NAME>)>
IFGE <%OP%-3>,<IFB <(A>,<%OP1 20000>
	IFNB <A>,<%OP1h A,20000>>
IFL<%OP%-2>,<%OP3 YSW(CHA(A)>
%OP%==2Pc8PsO<<@ x8M
IFE <%OP%-1>,<%OP1 10000>8
IFE %OP%,<%OP1 X767777>
IFE <%OPx%-2>,<$$E(<ILL SWITCH NAME>)>
IFG8E <%OP%-3>,<IFB <XA>,<%OP1 10000>
	IFNB <A>,<%OP1	 A,10000>>
IFL<	8%OP%-2>,<%OP3 YSW	XCHA(A)>
%OP%==2@c&&

W@sO<<` 
IFE1<%OPP1 2000>
IFE %OP%,<%OP1 775777>
IFE <%OP%8-2>,<$$E(<ILL SWIXTCH NAME>)>
IFGEx <%OP%-3>,<IFB <A>,<%OP1 2000>
	8IFNB <A>,<%OP1 XA,2000>>
IFL<%OPx%-2>,<%OP3 YSWCHA(A)>
%OP%==2sO<=` 
(8f
IFE <%OP
H%-1>,<%OP1 4000>
h
IFE %OP%,<%OP1 773777>
IFE <%OP%(-2>,<$$E(<ILL SWIHTCH NAME>)>
IFGEh <%OP%-3>,<IFB <

A>,<%OP1 4000>

(IFNB <A>,<%OP1

HA,4000>>
IFL<%OP

h%-2>,<%OP3 YSWCHA(A)>
%OP%==2	sO<>@ 583A
IFE %OP%5X-1,<%OP2 2000>
I5xFE %OP%,<%OP2 7776777775777>
IFE <68%OP%-2>,<$$E(<ILL6X SWITCH NAME>)>
6xIFGE <%OP%-3>,<IF7B <A>,<%OP2 200078>
	IFNB <A>,<%O7XP2 A,2000>>
IFL7x <%OP%-2>,<%OP3 Y8SWITCH(A)>
%OP%==20	jD)Q.@sO<@ 1u
IFE %OP%8-1,<%OP2 2>
IFE X%OP%,<%OP2 777777x777775>
IFE <%OP%-2>,<$$E(<ILL SW8ITCH NAME>)>
IFGXE <%OP%-3>,<IFB <xA>,<%OP2 2>
	IFNB <A>,<%OP2 A,82>>
IFL <%OP%-2>X,<%OP3 YSWITCH(A)>
%OP%==2~sO<H  [H5r
IFE <%OP[h%-1>,<%OP1 400000\>
IFE %OP%,<%OP1\( 377777>
IFE <%O\HP%-2>,<$$E(<ILL S\hWITCH NAME>)>
IF]GE <%OP%-3>,<IFB ](<A>,<%OP1 400000]H>
	IFNB <A>,<%O]hP1 A,400000>>
I^FL<%OP%-2>,<%OP3 ^(YSWDEF(A)>
%OP%==2

ggEP

sO<I ^x6
IFE <%OP_%-1>,<%OP1 200000_8>
IFE %OP%,<%OP1_X 577777>
IFE <%O_xP%-2>,<$$E(<ILL S`WITCH NAME>)>
IF`8GE <%OP%-3>,<IFB `X<A>,<%OP1 200000`x>
	IFNB <A>,<%OaP1 A,200000>>
Ia8FL<%OP%-2>,<%OP3 aXYSWDEF(A)>
%OP%==2q^

4(PsO<I  b(6(
IFE <%OPbH%-1>,<%OP1 100000bh>
IFE %OP%,<%OP1c 677777>
IFE <%Oc(P%-2>,<$$E(<ILL ScHWITCH NAME>)>
IFchGE <%OP%-3>,<IFB d<A>,<%OP1 100000d(>
	IFNB <A>,<%OdHP1 A,100000>>
IdhFL<%OP%-2>,<%OP3 eYSWDEF(A)>
%OP%==2u"+0&sO<J  eX6C
IFE <%OPex%-1>,<%OP1 40000>f
IFE %OP%,<%OP1 f8737777>
IFE <%OPfX%-2>,<$$E(<ILL SWfxITCH NAME>)>
IFGgE <%OP%-3>,<IFB <g8A>,<%OP1 40000>
	IFNB <A>,<%OP1gx A,40000>>
IFL<h%OP%-2>,<%OP3 YSWh8DEF(A)>
%OP%==2,:u"-J2-&sO<L  i6^
IFE <%OPi(%-1>,<%OP1 20000>iH
IFE %OP%,<%OP1 ih757777>
IFE <%OPj%-2>,<$$E(<ILL SWj(ITCH NAME>)>
IFGjHE <%OP%-3>,<IFB <jhA>,<%OP1 20000>
	IFNB <A>,<%OP1k( A,20000>>
IFL<kH%OP%-2>,<%OP3 YSWkhDEF(A)>
%OP%==2+uG-K`*7sO<L@ l86y
IFE <%OPlX%-1>,<%OP1 10000>lx
IFE %OP%,<%OP1 m767777>
IFE <%OPm8%-2>,<$$E(<ILL SWmXITCH NAME>)>
IFGmxE <%OP%-3>,<IFB <nA>,<%OP1 10000>
	IFNB <A>,<%OP1nX A,10000>>
IFL<nx%OP%-2>,<%OP3 YSWoDEF(A)>
%OP%==2(&		,sO<L` rx7+
IFE <%OPs%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7sX75777>
IFE <%OP%sx-2>,<$$E(<ILL SWItTCH NAME>)>
IFGEt8 <%OP%-3>,<IFB <tXA>,<%OP1 2000>
	txIFNB <A>,<%OP1 uA,2000>>
IFL<%OPu8%-2>,<%OP3 YSWDEF(A)>
%OP%==20sO<M` oh7
IFE <%OPp%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7pH73777>
IFE <%OP%ph-2>,<$$E(<ILL SWIqTCH NAME>)>
IFGEq( <%OP%-3>,<IFB <qHA>,<%OP1 4000>
	qhIFNB <A>,<%OP1 rA,4000>>
IFL<%OPr(%-2>,<%OP3 YSWDEF(A)>
%OP%==2sO=  2
IFE %OP%@-1,<%OP2 4>
IFE `%OP%,<%OP2 777777 777773>
IFE <%OP  %-2>,<$$E(<ILL SW @ITCH NAME>)>
IFG `E <%OP%-3>,<IFB <!A>,<%OP2 4>
	IF! NB <A>,<%OP2 A,!@4>>
IFL <%OP%-2>!`,<%OP3 YSWITCH(A)>
%OP%==2fl-sO=L S5,
IFE <%OPS(%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7Sh76777>
IFE <%OP%T-2>,<$$E(<ILL SWIT(TCH NAME>)>
IFGETH <%OP%-3>,<IFB <ThA>,<%OP1 1000>
	UIFNB <A>,<%OP1 U(A,1000>>
IFL<%OPUH%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO=Lz Lh4z
IFE <%OPM%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7MH73777>
IFE <%OP%Mh-2>,<$$E(<ILL SWINTCH NAME>)>
IFGEN( <%OP%-3>,<IFB <NHA>,<%OP1 4000>
	NhIFNB <A>,<%OP1 OA,4000>>
IFL<%OPO(%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO=iQ V5E
IFE <%OPV8%-1>,<%OP1 400>
VXIFE %OP%,<%OP1 77Vx7377>
IFE <%OP%-W2>,<$$E(<ILL SWITW8CH NAME>)>
IFGE WX<%OP%-3>,<IFB <AWx>,<%OP1 400>
	IFXNB <A>,<%OP1 A,X8400>>
IFL<%OP%-2XX>,<%OP3 YSWITCH(A)>
%OP%==2sO>  I84a
IFE <%OPIX%-1>,<%OP1 10000>Ix
IFE %OP%,<%OP1 J767777>
IFE <%OPJ8%-2>,<$$E(<ILL SWJXITCH NAME>)>
IFGJxE <%OP%-3>,<IFB <KA>,<%OP1 10000>
	IFNB <A>,<%OP1KX A,10000>>
IFL<Kx%OP%-2>,<%OP3 YSWLITCH(A)>
%OP%==2c&%kj@sO> +@2r
IFE %OP%+`-1,<%OP2 200>
IF,E %OP%,<%OP2 7777, 77777577>
IFE <%,@OP%-2>,<$$E(<ILL ,`SWITCH NAME>)>
I-FGE <%OP%-3>,<IFB-  <A>,<%OP2 200>
	IFNB <A>,<%OP2-` A,200>>
IFL <%.OP%-2>,<%OP3 YSWI. TCH(A)>
%OP%==2uG-
2&
uG-@sO>  "(2&
IFE %OP%"H-1,<%OP2 10>
IFE"h %OP%,<%OP2 77777#7777767>
IFE <%O#(P%-2>,<$$E(<ILL S#HWITCH NAME>)>
IF#hGE <%OP%-3>,<IFB $<A>,<%OP2 10>
	$(IFNB <A>,<%OP2 $HA,10>>
IFL <%OP%$h-2>,<%OP3 YSWITCH(A)>
%OP%==2	sO>0 23'
IFE %OP%20-1,<%OP2 1000>
I2PFE %OP%,<%OP2 7772p777776777>
IFE <3%OP%-2>,<$$E(<ILL30 SWITCH NAME>)>
3PIFGE <%OP%-3>,<IF3pB <A>,<%OP2 10004>
	IFNB <A>,<%O40P2 A,1000>>
IFL4P <%OP%-2>,<%OP3 Y4pSWITCH(A)>
%OP%==2 Pb@sO>LV F4F
IFE <%OPF(%-1>,<%OP1 20000>FH
IFE %OP%,<%OP1 Fh757777>
IFE <%OPG%-2>,<$$E(<ILL SWG(ITCH NAME>)>
IFGGHE <%OP%-3>,<IFB <GhA>,<%OP1 20000>
	IFNB <A>,<%OP1H( A,20000>>
IFL<HH%OP%-2>,<%OP3 YSWHhITCH(A)>
%OP%==2`cKqPsO>p .h3


IFE %OP%/-1,<%OP2 400>
IF/(E %OP%,<%OP2 7777/H77777377>
IFE <%/hOP%-2>,<$$E(<ILL 0SWITCH NAME>)>
I0(FGE <%OP%-3>,<IFB0H <A>,<%OP2 400>
	IFNB <A>,<%OP21 A,400>>
IFL <%1(OP%-2>,<%OP3 YSWI1HTCH(A)>
%OP%==2+)uG.\r(osO? %02?
IFE %OP%%P-1,<%OP2 20>
IFE%p %OP%,<%OP2 77777&7777757>
IFE <%O&0P%-2>,<$$E(<ILL S&PWITCH NAME>)>
IF&pGE <%OP%-3>,<IFB '<A>,<%OP2 20>
	'0IFNB <A>,<%OP2 'PA,20>>
IFL <%OP%'p-2>,<%OP3 YSWITCH(A)>
%OP%==2 sS=` @h5S
	IFE <%O?(P%-2>,<$$E(<ILL SXxWITCH NAME>)>
	IYFN <%OP%-2>,<
	 Y8IFE <%OP%-3>,<%OPYX3 777777>
	 IFE Yx<%OP%-4>,<%OP3>
Z	 IFL <%OP%-2>,<%Z8OP4 YTRPAS(A)>
			%OP%==2>tGxRP$tGxVP"u-KU 68#E
$%W==2
6XIFNB <B>,<$%W==26x+<B>>
IFE <$$US7E-3>,<LI $$$VAL
78$$USE==1>
IFE $$7XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$8R $%W(A)>
IFE <88$$USE-2>,<PRINTX 8XOPD-OPR NESTING ERROR>
$$USE==2u.N8 3#.
$%W==0
3(IFNB <B>,<$%W==03H+<B>>
IFE <$$US3hE-3>,<LI $$$VAL
4$$USE==1>
IFE $$4(USE,<$F $%W(A)>
IFE <$$USE-1>,<$4hB [$ZDETYP B(A)5]-$$RELO($$BAS)>
IFE <$$USE-2>,<P5HRINTX INVALID USE5h OF FIELD>
$$USE==2AcDPuxt U.
	ASSERT<U IRP	A <
		IFN	<U@A>,<CFAIL	ZEROCHU`ECK FAILURE>
		>
	>
c8u -`|
OPDEF	$L.	[HRRZS]
OPDEF	$. R	[HLLZS]
OPDEF	.@$F	[SETZM]
PURGE.`	$B,$B
$$USE==1
IFNB <A>,<
	IF/ NB <B>,<A,B>
/@	IFB  <B>,<A>
	>
u"Y@ 1WZDETYP9u"\`P u"]@P u"+ H0
IFE %OP%h-1,<%OP2 10>
IFE %OP%,<%OP2 77777(7777767>
IFE <%OHP%-2>,<$$E(<ILL ShWITCH NAME>)>
IFGE <%OP%-3>,<IFB (<A>,<%OP2 10>
	HIFNB <A>,<%OP2 hA,10>>
IFL <%OP%-2>,<%OP3 3(A)>
%OP%==2LID USEu"I; e.>
$%W==3
e IFNB <B>,<$%W==3e@+<B>>
IFE <$$USe`E-3>,<LI $$$VAL
f$$USE==1>
IFE $$f USE,<$F $%W(A)>
IFE <$$USE-1>,<$f`B [$ZHBDEV B(A)g]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pg@RINTX INVALID USEg` OF FIELD>
$$USE==2{@lg%{Pu"^ 
IFE %OP%

`-1,<%OP2 1>
IFE

@%OP%,<%OP2 777777777776>
IFE2<%OPE(<ILL SWDITCH NAME>)>
IFG%OP%-3>,<IFB <pA>,<%OP2 1>
	IF

NB <A>,<%OP2 A,H1>>
IFL <%OP%-2>h,<%OP3 3(A)>
%OP%==2NVALID USEu"9 P0C
IFE %OP%0-1,<%OP2 2>
IFE %OP%,<%OP2 777777X777775>
IFE <%OP8%-2>,<$$E(<ILL SWDHITCH NAME>)>
IFGE <%OP%-3>,<IFB <@A>,<%OP2 2>
	IF`NB <A>,<%OP2 A,2>>
IFL <%OP%-2>8,<%OP3 3(A)>
%OP%==2NVALID USEu"Kq 80*
IFE %OP%-1,<%OP2 4>
IFE x%OP%,<%OP2 777777@777773>
IFE <%OP %-2>,<$$E(<ILL SWDhITCH NAME>)>
IFGE <%OP%-3>,<IFB <(A>,<%OP2 4>
	IFHNB <A>,<%OP2 A,4>>
IFL <%OP%-2> ,<%OP3 3(A)>
%OP%==2NVALID USEu"YW |P/y
$%W==3
|0IFNB <B>,<$%W==3}x+<B>>
IFE <$$US}XE-3>,<LI $$$VAL
E$$USE==1>
IFE $$}8USE,<$F $%W(A)>
IFE <$$USE-1>,<$|B [$ZHBMFO B(A)~8]-$$RELO($$BAS)>
IFE <$$USE-2>,<P~xRINTX INVALID USE OF FIELD>
$$USE==2,T	jD[,Tu"hu 	h0]
IFE %OP%	H-1,<%OP2 2>
IFE 	(%OP%,<%OP2 777777
p777775>
IFE <%OP
P%-2>,<$$E(<ILL SWD(ITCH NAME>)>
IFG
0E <%OP%-3>,<IFB <XA>,<%OP2 2>
	IFxNB <A>,<%OP2 A,02>>
IFL <%OP%-2>P,<%OP3 3(A)>
%OP%==2NVALID USEu"lX h0.Y
$%W==3
hPIFNB <B>,<$%W==3hp+<B>>
IFE <$$USiE-3>,<LI $$$VAL
i0$$USE==1>
IFE $$iPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$jB [$ZHBNRP B(A)j0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PjpRINTX INVALID USEk OF FIELD>
$$USE==2."Fgfl.u"

 1$%W==4
IF(NB <B>,<$%W==4+<pB>
>
IFE <$$USE-3>,<LI $$$VAL
0$$USE==1>
$F $%W(A)Pc# u"8V o/
$%W==3
o0IFNB <B>,<$%W==3oP+<B>>
IFE <$$USopE-3>,<LI $$$VAL
p$$USE==1>
IFE $$p0USE,<$F $%W(A)>
IFE <$$USE-1>,<$ppB [$ZHBSBL B(A)q]-$$RELO($$BAS)>
IFE <$$USE-2>,<PqPRINTX INVALID USEqp OF FIELD>
$$USE==25Pq^

5 u"= r@/*
$%W==3
r`IFNB <B>,<$%W==3s+<B>>
IFE <$$USs E-3>,<LI $$$VAL
s@$$USE==1>
IFE $$s`USE,<$F $%W(A)>
IFE <$$USE-1>,<$t B [$ZHBSTD B(A)t@]-$$RELO($$BAS)>
IFE <$$USE-2>,<PuRINTX INVALID USEu  OF FIELD>
$$USE==2`% uG-Pu">R up/E
$%W==3
vIFNB <B>,<$%W==3v0+<B>>
IFE <$$USvPE-3>,<LI $$$VAL
vp$$USE==1>
IFE $$wUSE,<$F $%W(A)>
IFE <$$USE-1>,<$wPB [$ZHBSZD B(A)wp]-$$RELO($$BAS)>
IFE <$$USE-2>,<Px0RINTX INVALID USExP OF FIELD>
$$USE==2`p$K`u"[Y x$$%W==4
IFXNB <B>,<$%W==4+< B>
>
IFE <$$USE-3>,<LI $$$VAL
Ch$$USE==1>
$F $%W(A)7777777777u"\ y/\
IFE %OP%y -1,<%OP2 20>
IFEy@ %OP%,<%OP2 77777y`7777757>
IFE <%OzP%-2>,<$$E(<ILL Sz WITCH NAME>)>
IFz@GE <%OP%-3>,<IFB z`<A>,<%OP2 20>
	{IFNB <A>,<%OP2 { A,20>>
IFL <%OP%{@-2>,<%OP3 3(A)>
%OP%==2LID USEu"lZ k`.t
$%W==3
lIFNB <B>,<$%W==3l +<B>>
IFE <$$USl@E-3>,<LI $$$VAL
l`$$USE==1>
IFE $$mUSE,<$F $%W(A)>
IFE <$$USE-1>,<$m@B [$ZHBVRT B(A)m`]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pn RINTX INVALID USEn@ OF FIELD>
$$USE==2E@P
2 Y@-^
$%W==2
Y`IFNB <B>,<$%W==2Z+<B>>
IFE <$$USZ E-3>,<LI $$$VAL
Z@$$USE==1>
IFE $$Z`USE,<$F $%W(A)>
IFE <$$USE-1>,<$[ L $%W(A)>
IFE <[@$$USE-2>,<PRINTX [`OPD-OPR NESTING ERROR>
$$USE==2u")  _ .


$%W==2
_@IFNB <B>,<$%W==2_`+<B>>
IFE <$$US`E-3>,<LI $$$VAL
` $$USE==1>
IFE $$`@USE,<$F $%W(A)>
IFE <$$USE-1>,<$aR $%W(A)>
IFE <a $$USE-2>,<PRINTX a@OPD-OPR NESTING ERROR>
$$USE==2u"* b.#
$%W==2
b0IFNB <B>,<$%W==2bP+<B>>
IFE <$$USbpE-3>,<LI $$$VAL
c$$USE==1>
IFE $$c0USE,<$F $%W(A)>
IFE <$$USE-1>,<$cpR $%W(A)>
IFE <d$$USE-2>,<PRINTX d0OPD-OPR NESTING ERROR>
$$USE==2u",: \0-u
$%W==2
\PIFNB <B>,<$%W==2\p+<B>>
IFE <$$US]E-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==2u"(Y@ 1UZDETYP0u"(\`P u"(]@P u",+V Jp,m
$%W==1
KIFNB <B>,<$%W==1K0+<B>>
IFE <$$USKPE-3>,<LI $$$VAL
Kp$$USE==1>
IFE $$LUSE,<$F $%W(A)>
IFE <$$USE-1>,<$LPB [$ZHEBNM B(A)Lp]-$$RELO($$BAS)>
IFE <$$USE-2>,<PM0RINTX INVALID USEMP OF FIELD>
$$USE==2@TKB~u",K A ,
$%W==0
A@IFNB <B>,<$%W==0A`+<B>>
IFE <$$USBE-3>,<LI $$$VAL
B $$USE==1>
IFE $$B@USE,<$F $%W(A)>
IFE <$$USE-1>,<$CR $%W(A)>
IFE <C $$USE-2>,<PRINTX C@OPD-OPR NESTING ERROR>
$$USE==2u",XV D,7
$%W==1
D0IFNB <B>,<$%W==1DP+<B>>
IFE <$$USDpE-3>,<LI $$$VAL
E$$USE==1>
IFE $$E0USE,<$F $%W(A)>
IFE <$$USE-1>,<$EpB [$ZHEEBL B(A)F]-$$RELO($$BAS)>
IFE <$$USE-2>,<PFPRINTX INVALID USEFp OF FIELD>
$$USE==2Z;'|	kZwu",j< N -
$%W==1
N@IFNB <B>,<$%W==1N`+<B>>
IFE <$$USOE-3>,<LI $$$VAL
O $$USE==1>
IFE $$O@USE,<$F $%W(A)>
IFE <$$USE-1>,<$PB [$ZHEFIX B(A)P ]-$$RELO($$BAS)>
IFE <$$USE-2>,<PP`RINTX INVALID USEQ OF FIELD>
$$USE==2bXE(u"-I7 G@,R
$%W==1
G`IFNB <B>,<$%W==1H+<B>>
IFE <$$USH E-3>,<LI $$$VAL
H@$$USE==1>
IFE $$H`USE,<$F $%W(A)>
IFE <$$USE-1>,<$I B [$ZHELEN B(A)I@]-$$RELO($$BAS)>
IFE <$$USE-2>,<PJRINTX INVALID USEJ  OF FIELD>
$$USE==2]9Q(b	k]9u"-J2 U-:
$%W==0
U IFNB <B>,<$%W==0U@+<B>>
IFE <$$USU`E-3>,<LI $$$VAL
V$$USE==1>
IFE $$V USE,<$F $%W(A)>
IFE <$$USE-1>,<$V`R $%W(A)>
IFE <W$$USE-2>,<PRINTX W OPD-OPR NESTING ERROR>
$$USE==2u"-kt :+e
IFE <%OP:0%-1>,<%OP1 100>
:PIFE %OP%,<%OP1 77:p7677>
IFE <%OP%-;2>,<$$E(<ILL SWIT;0CH NAME>)>
IFGE ;P<%OP%-3>,<IFB <A;p>,<%OP1 100>
	IF<NB <A>,<%OP1 A,<0100>>
IFL<%OP%-2<P>,<%OP3 0(A)>
%OP%==2VALID USEu"-z2 QP-#
$%W==0
QpIFNB <B>,<$%W==0R+<B>>
IFE <$$USR0E-3>,<LI $$$VAL
RP$$USE==1>
IFE $$RpUSE,<$F $%W(A)>
IFE <$$USE-1>,<$S0B [$ZHEOID B(A)SP]-$$RELO($$BAS)>
IFE <$$USE-2>,<PTRINTX INVALID USET0 OF FIELD>
$$USE==2(<Pc
,pu".;v =`,
$%W==0
=@IFNB <B>,<$%W==0?+<B>>
IFE <$$US>pE-3>,<LI $$$VAL
>P$$USE==1>
IFE $$<pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$?PB [$ZHESOL B(A)?p]-$$RELO($$BAS)>
IFE <$$USE-2>,<P@0RINTX INVALID USE@P OF FIELD>
$$USE==2=Pu".N8 7+N
$%W==0
7 IFNB <B>,<$%W==07@+<B>>
IFE <$$US7`E-3>,<LI $$$VAL
8$$USE==1>
IFE $$8 USE,<$F $%W(A)>
IFE <$$USE-1>,<$8`B [$ZHETYP B(A)9]-$$RELO($$BAS)>
IFE <$$USE-2>,<P9@RINTX INVALID USE9` OF FIELD>
$$USE==2q^

4 u".[Y Wp-G$%W==1
IFXNB <B>,<$%W==1+<X0B>
>
IFE <$$USXPE-3>,<LI $$$VAL
Xp$$USE==1>
$F $%W(A)VPc%wuG

j< p1A
$%W==0
IFNB <B>,<$%W==00+<B>>
IFE <$$USPE-3>,<LI $$$VAL
p$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$PR $%W(A)>
IFE <p$$USE-2>,<PRINTX OPD-OPR NESTING ERROR>
$$USE==2uG
$%W==0
 IFNB <B>,<$%W==0@+<B>>
IFE <$$US`E-3>,<LI $$$VAL
$$USE==1>
IFE $$ USE,<$F $%W(A)>
IFE <$$USE-1>,<$`L $%W(A)>
IFE <$$USE-2>,<PRINTX  OPD-OPR NESTING ERROR>
$$USE==2uG[Y `1N$%W==1
IFNB <B>,<$%W==1+< B>
>
IFE <$$US@E-3>,<LI $$$VAL
`$$USE==1>
$F $%W(A)0PcK&

uG(Y@ 1SZDETYPKuG(\`P uG(]@P uG,I , *q
IFE <%OP,%-1>,<%OP1 400>
+`IFE %OP%,<%OP1 77-7377>
IFE <%OP%-,p2>,<$$E(<ILL SWITEHCH NAME>)>
IFGE +<%OP%-3>,<IFB <A+0>,<%OP1 400>
	IF-PNB <A>,<%OP1 A,-p400>>
IFL<%OP%-2.>,<%OP3 3(A)>
%OP%==2ALID USE uG,^ <x$X
IFE <%OP<X%-1>,<%OP1 20000><8
IFE %OP%,<%OP1 J757777>
IFE <%OPIh%-2>,<$$E(<ILL SWIHITCH NAME>)>
IFG;hE <%OP%-3>,<IFB <<A>,<%OP1 20000>
	IFNB <A>,<%OP1Jh A,20000>>
IFL<K%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG,j< yX'_
$%W==1
yxIFNB <B>,<$%W==1z+<B>>
IFE <$$USz8E-3>,<LI $$$VAL
zX$$USE==1>
IFE $$zxUSE,<$F $%W(A)>
IFE <$$USE-1>,<${8L $%W(A)>
IFE <{X$$USE-2>,<PRINTX {xOPD-OPR NESTING ERROR>
$$USE==2uG,x@ )o
IFE <%OPh%-1>,<%OP1 20000>H
IFE %OP%,<%OP1 x757777>
IFE <%OPX%-2>,<$$E(<ILL SWFhITCH NAME>)>
IFGxE <%OP%-3>,<IFB <A>,<%OP1 20000>
	IFNB <A>,<%OP1X A,20000>>
IFL<x%OP%-2>,<%OP3 3(A)>
%OP%==2SE uG,{ 9#\
IFE <%OP9(%-1>,<%OP1 40000>9H
IFE %OP%,<%OP1 9h737777>
IFE <%OP:%-2>,<$$E(<ILL SW:(ITCH NAME>)>
IFG:HE <%OP%-3>,<IFB <:hA>,<%OP1 40000>
	IFNB <A>,<%OP1;( A,40000>>
IFL<;H%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG-
2 \X%t
IFE <%OP\8%-1>,<%OP1 20>
I\FE %OP%,<%OP1 777]H757>
IFE <%OP%-2](>,<$$E(<ILL SWITCHH NAME>)>
IFGE <[H%OP%-3>,<IFB <A>[h,<%OP1 20>
	IFNB^ <A>,<%OP1 A,20^(>>
IFL<%OP%-2>,<^H%OP3 0(A)>
%OP%==2 INVALID USEuG-@ Rx%&
IFE <%OPRX%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7Sh73777>
IFE <%OP%SH-2>,<$$E(<ILL SWIHhTCH NAME>)>
IFGEQh <%OP%-3>,<IFB <RA>,<%OP1 4000>
	T(IFNB <A>,<%OP1 THA,4000>>
IFL<%OPTh%-2>,<%OP3 0(A)>
%OP%==2D USE uG-R ((D
$%W==1
HIFNB <B>,<$%W==1h+<B>>
IFE <$$USE-3>,<LI $$$VAL
($$USE==1>
IFE $$HUSE,<$F $%W(A)>
IFE <$$USE-1>,<$R $%W(A)>
IFE <($$USE-2>,<PRINTX HOPD-OPR NESTING ERROR>
$$USE==2uG-` (*	
IFE <%OP%-1>,<%OP1 10000>h
IFE %OP%,<%OP1  767777>
IFE <%OPx%-2>,<$$E(<ILL SWFHITCH NAME>)>
IFGE <%OP%-3>,<IFB <8A>,<%OP1 10000>
	IFNB <A>,<%OP1 x A,10000>>
IFL<!%OP%-2>,<%OP3 3(A)>
%OP%==2SE uG-` OX%


IFE <%OPO8%-1>,<%OP1 10000>O
IFE %OP%,<%OP1 PH767777>
IFE <%OPP(%-2>,<$$E(<ILL SWIITCH NAME>)>
IFGNHE <%OP%-3>,<IFB <NhA>,<%OP1 10000>
	IFNB <A>,<%OP1Q( A,10000>>
IFL<QH%OP%-2>,<%OP3 0(A)>
%OP%==2SE uG-P |('v
IFE <%OP|H%-1>,<%OP1 400000|h>
IFE %OP%,<%OP1} 377777>
IFE <%O}(P%-2>,<$$E(<ILL S}HWITCH NAME>)>
IF}hGE <%OP%-3>,<IFB ~<A>,<%OP1 400000~(>
	IFNB <A>,<%O~HP1 A,400000>>
I~hFL<%OP%-2>,<%OP3 1(A)>
%OP%==2uG-;R ih&d
$%W==0
jIFNB <B>,<$%W==0j(+<B>>
IFE <$$USjHE-3>,<LI $$$VAL
jh$$USE==1>
IFE $$kUSE,<$F $%W(A)>
IFE <$$USE-1>,<$kHB [$ZQUKND B(A)kh]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pl(RINTX INVALID USElH OF FIELD>
$$USE==2c&%	2@uG-I7 L8$r
IFE <%OPL%-1>,<%OP1 10000>Kx
IFE %OP%,<%OP1 M(767777>
IFE <%OPM%-2>,<$$E(<ILL SWI(ITCH NAME>)>
IFGK(E <%OP%-3>,<IFB <KHA>,<%OP1 10000>
	IFNB <A>,<%OP1N A,10000>>
IFL<N(%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG-J2 x(-
$%W==1
IFNB <B>,<$%W==18+<B>>
IFE <$$USXE-3>,<LI $$$VAL
x$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$XB [$ZQULID B(A)x]-$$RELO($$BAS)>
IFE <$$USE-2>,<P8RINTX INVALID USEX OF FIELD>
$$USE==2t%@huG-KR 2@+&
$%W==3
2`IFNB <B>,<$%W==33+<B>>
IFE <$$US3 E-3>,<LI $$$VAL
3@$$USE==1>
IFE $$3`USE,<$F $%W(A)>
IFE <$$USE-1>,<$4 R $%W(A)>
IFE <4@$$USE-2>,<PRINTX 4`OPD-OPR NESTING ERROR>
$$USE==2uG-K` "H*#
IFE <%OP"(%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7#873777>
IFE <%OP%#-2>,<$$E(<ILL SWIF(TCH NAME>)>
IFGE!8 <%OP%-3>,<IFB <!XA>,<%OP1 4000>
	#xIFNB <A>,<%OP1 $A,4000>>
IFL<%OP$8%-2>,<%OP3 3(A)>
%OP%==2D USE uG-[r f8&I
$%W==0
fXIFNB <B>,<$%W==0fx+<B>>
IFE <$$USgE-3>,<LI $$$VAL
g8$$USE==1>
IFE $$gXUSE,<$F $%W(A)>
IFE <$$USE-1>,<$hB [$ZQUMOD B(A)h8]-$$RELO($$BAS)>
IFE <$$USE-2>,<PhxRINTX INVALID USEi OF FIELD>
$$USE==2c,;PuG-h1 )>
$%W==3
(IFNB <B>,<$%W==3H+<B>>
IFE <$$UShE-3>,<LI $$$VAL
$$USE==1>
IFE $$(USE,<$F $%W(A)>
IFE <$$USE-1>,<$hB [$ZQUNAC B(A)]-$$RELO($$BAS)>
IFE <$$USE-2>,<PHRINTX INVALID USEh OF FIELD>
$$USE==2BS.@uG-kz _x&
IFE <%OP_X%-1>,<%OP1 10>
I_8FE %OP%,<%OP1 777a767>
IFE <%OP%-2`h>,<$$E(<ILL SWITC`HH NAME>)>
IFGE <^h%OP%-3>,<IFB <A>_,<%OP1 10>
	IFNBaH <A>,<%OP1 A,10ah>>
IFL<%OP%-2>,<b%OP3 0(A)>
%OP%==2 INVALID USEuG-lq x(
$%W==1
XIFNB <B>,<$%W==1h+<B>>
IFE <$$USGHE-3>,<LI $$$VAL
G($$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$(B [$ZQUNSB B(A)H]-$$RELO($$BAS)>
IFE <$$USE-2>,<PRINTX INVALID USE( OF FIELD>
$$USE==2puG.

@ )U
IFE <%OP8%-1>,<%OP1 40000>X
IFE %OP%,<%OP1 x737777>
IFE <%OP%-2>,<$$E(<ILL SW8ITCH NAME>)>
IFGXE <%OP%-3>,<IFB <xA>,<%OP1 40000>
	IFNB <A>,<%OP18 A,40000>>
IFL<X%OP%-2>,<%OP3 3(A)>
%OP%==2SEuG.
IFE <%OP(`%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7)p76777>
IFE <%OP%)P-2>,<$$E(<ILL SWIEhTCH NAME>)>
IFGE'x <%OP%-3>,<IFB <(A>,<%OP1 1000>
	*0IFNB <A>,<%OP1 *PA,1000>>
IFL<%OP*p%-2>,<%OP3 3(A)>
%OP%==2ID USEuG.2 ()


$%W==2
HIFNB <B>,<$%W==2h+<B>>
IFE <$$USE-3>,<LI $$$VAL
($$USE==1>
IFE $$HUSE,<$F $%W(A)>
IFE <$$USE-1>,<$L $%W(A)>
IFE <($$USE-2>,<PRINTX HOPD-OPR NESTING ERROR>
$$USE==2uG.5 %h*=
IFE <%OP%H%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7&X75777>
IFE <%OP%&8-2>,<$$E(<ILL SWIFTCH NAME>)>
IFGE$X <%OP%-3>,<IFB <$xA>,<%OP1 2000>
	'IFNB <A>,<%OP1 '8A,2000>>
IFL<%OP'X%-2>,<%OP3 3(A)>
%OP%==2ID USEuG.;Y / +
$%W==3
/IFNB <B>,<$%W==300+<B>>
IFE <$$US0E-3>,<LI $$$VAL
E($$USE==1>
IFE $$.0USE,<$F $%W(A)>
IFE <$$USE-1>,<$0pB [$ZQUSNR B(A)1]-$$RELO($$BAS)>
IFE <$$USE-2>,<P1PRINTX INVALID USE1p OF FIELD>
$$USE==2

"Dgfl uG.= pH'
$%W==0
phIFNB <B>,<$%W==0q+<B>>
IFE <$$USq(E-3>,<LI $$$VAL
qH$$USE==1>
IFE $$qhUSE,<$F $%W(A)>
IFE <$$USE-1>,<$r(B [$ZQUSTM B(A)rH]-$$RELO($$BAS)>
IFE <$$USE-2>,<PsRINTX INVALID USEs( OF FIELD>
$$USE==2cJ-LzPuG.>9 Y8%Z
IFE <%OPY%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7Z(75777>
IFE <%OP%Z-2>,<$$E(<ILL SWIH(TCH NAME>)>
IFGEX( <%OP%-3>,<IFB <XHA>,<%OP1 2000>
	ZhIFNB <A>,<%OP1 [A,2000>>
IFL<%OP[(%-2>,<%OP3 0(A)>
%OP%==2ID USEuG.I6 vh'H
$%W==0
wIFNB <B>,<$%W==0w(+<B>>
IFE <$$USwHE-3>,<LI $$$VAL
wh$$USE==1>
IFE $$xUSE,<$F $%W(A)>
IFE <$$USE-1>,<$xHR $%W(A)>
IFE <xh$$USE-2>,<PRINTX yOPD-OPR NESTING ERROR>
$$USE==2uG.K5 m&
$%W==0
m8IFNB <B>,<$%W==0mX+<B>>
IFE <$$USmxE-3>,<LI $$$VAL
n$$USE==1>
IFE $$n8USE,<$F $%W(A)>
IFE <$$USE-1>,<$nxB [$ZQUTMK B(A)o]-$$RELO($$BAS)>
IFE <$$USE-2>,<PoXRINTX INVALID USEox OF FIELD>
$$USE==2c:

0PuG.L V%@
IFE <%OPUx%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7W73777>
IFE <%OP%Vh-2>,<$$E(<ILL SWIHHTCH NAME>)>
IFGEU <%OP%-3>,<IFB <U(A>,<%OP1 4000>
	WHIFNB <A>,<%OP1 WhA,4000>>
IFL<%OPX%-2>,<%OP3 0(A)>
%OP%==2ID USEuG.N8 c&.
$%W==0
bxIFNB <B>,<$%W==0d(+<B>>
IFE <$$USdE-3>,<LI $$$VAL
Gh$$USE==1>
IFE $$b(USE,<$F $%W(A)>
IFE <$$USE-1>,<$dhB [$ZQUTYP B(A)e]-$$RELO($$BAS)>
IFE <$$USE-2>,<PeHRINTX INVALID USEeh OF FIELD>
$$USE==2c,l`PAuG.[Y 50+3$%W==4
IF5PNB <B>,<$%W==4+<5pB>
>
IFE <$$US6E-3>,<LI $$$VAL
60$$USE==1>
$F $%W(A) P
ggD uG.\r x([
IFE <%OP	%-1>,<%OP1 400000	8>
IFE %OP%,<%OP1	X 377777>
IFE <%O	xP%-2>,<$$E(<ILL S
WITCH NAME>)>
IF
8GE <%OP%-3>,<IFB 
X<A>,<%OP1 400000
x>
	IFNB <A>,<%OP1 A,400000>>
I8FL<%OP%-2>,<%OP3 2(A)>
%OP%==2uG/(@ )#
$%W==2
8IFNB <B>,<$%W==2X+<B>>
IFE <$$USxE-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==2uG/* sx'1
$%W==0
tIFNB <B>,<$%W==0t8+<B>>
IFE <$$UStXE-3>,<LI $$$VAL
tx$$USE==1>
IFE $$uUSE,<$F $%W(A)>
IFE <$$USE-1>,<$uXR $%W(A)>
IFE <ux$$USE-2>,<PRINTX vOPD-OPR NESTING ERROR>
$$USE==2uG/,:

H(u
$%W==2

(IFNB><B>,<$%W==2
IFE3<$$US$$$VAL
G$$USE==1>
IFE $$XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$L $%W(A)>
IFE <8$$USE-2>,<PRINTX XOPD-OPR NESTING ERROR>
$$USE==2$` p$K` n${t t%@ h& D`&
	PURGE ABC
$$LA==0&@ E *
	IF2,<PURGEOAB>)>
	IFDEF O@AB,<IF2,<PURGE AB>>W1
&8  r&J j&K` v&z l`P <P =P  ABC$Y@P ( D"IF1,<PRINTD X *** ERROR: A ***>,15,16,17,18D[ @v
.CREF
D`EFINE A=<%.%B(XPDP)>
.XCREFp] pPURGE %.%ATx_`P bP bP b P b@P b`P bP b P b@P b`P bP b P b P b0P b@P bPP b`P bpP cP cP dPP d`P f@P [ ~0.XE$\h Ah$

IFGE	^j@D17-^D3,<
IFB <BhC>,<DEFINE YPOTRCch(ACC)<
IFE <%OP%C(-1>,<%OP1 B>
IF]0E %OP%,<%OP1 A>
IFE <%OP%-2>,<$$VxE(<ILL SWITCH NAME>)>
IFGE <%OP%-P@3>,<IFB <ACC>,<%O2HP1 B>
	IFNB <ACJC>,<%OP1 ACC,B>>
IFL<%OP%-2>,<%OCPP3 Y3OPEN(ACC)>
x%OP%==2>>
IFNB <=C>,<DEFINE YPOTR}C=<
IFE <%OP%-1>7,<%OP1 B>
IFE %/pOP%,<%OP1 A>
IF0hE <%OP%-2>,<$$E(<)0ILL SWITCH NAME>)*P>
IFGE <%OP%-3>,"x<%OP1 C,B>
IFL$8 <%OP%-2>,<%OP3 Y83OPEN(C)>
%OP%= =2>>>

IFL ^D17(-^D3,<
IFB <>,<DEFINE YPOTRC(ACC)<
IFE %OP%-1,<%O`(P2 B>
IFE %OP%,]<%OP2 A>
IFE <%YhOP%-2>,<$$E(<ILL VHSWITCH NAME>)>
IS(FGE <%OP%-3>,<IFBP <ACC>,<%OP2 B>
	IFNB <ACC>,<%OP=(2 ACC,B>>
IFL <=H%OP%-2>,<%OP3 Y3O=hPEN(ACC)>
%OP%==>2>>
IFNB <>,<DEF>(INE YPOTRC=<
IFE>H <%OP%-1>,<%OP2 >hB>
IFE %OP%,<%OP[2 A>
IFE <%OP%-Zh2>,<$$E(<ILL SWIT?hCH NAME>)>
IFGE @<%OP%-3>,<%OP2 C@(,B>
IFL <%OP%-2@H>,<%OP3 Y3OPEN(CA)>
%OP%==2>>
>
>
%OP%==2>>
	j$[Q H	j$[ H	j$]Q B

	j$] B

	jD(VQ 	jD(V 	jD)Q .,	jD) .,	jD)<Q 	jD)< 	jD*rQ 	jD*r 	jD+Q 	jD+ 	jD+3Q

	jD+3

	jD+QQ 	jD+Q 	jD+YQ 8 	jD+Y 8 	jD,Q 	jD, 	jD,qQ 	jD,q 	jD,zQ 	jD,z 	jD,}Q 
	jD,} 
	jD-7Q 	jD-7 	jD-8Q 	jD-8 	jD-YQ ( 	jD-Y ( 	jD.Q $H	jD. $H	jD.RQ H	jD.R H	jD.TQ H	jD.T H	jD.XQ $H	jD.X $H	jDXWQ $	jDXW $	jDYQ H	jDY H	jDY1Q >	jDY1 >	jDYTQ 0	jDYT 0	jD[Q *(	jD[ *(	jD[Q H	jD[ H	jD[WQ 0	jD[W 0	jD[tQ $0	jD[t $0	jD\wQ $	jD\w $	jD]Q <

	jD] <

	jD]7Q 	jD]7 	kTQ H	kT H	kQ $H	k $H	k7Q 	k7 	kYQ 4	kY 4	kY<Q >	kY< >	kYTQ $H	kYT $H	kYqQ >	kYq >	kYvQ @	kYv @	kZQ ,	kZ ,	kZ1Q :	kZ1 :	kZ7Q H	kZ7 H	kZ7Q <	kZ7 <	kZ9Q <	kZ9 <	kZ;Q F	kZ; F	kZwQ $

	kZw $

	k[Q <	k[ <	k[Q $0	k[ $0	k[Q H	k[ H	k[Q :	k[ :	k[7Q *

	k[7 *

	k[PQ B

	k[P B

	k[WQ *	k[W *	k[YQ <	k[Y <	k\Q @	k\ @	k\Q 6	k\ 6	k\4Q $H	k\4 8	k\wQ $ 	k\w $ 	k\zQ $,	k\z $,	k\|Q 8	k\| 8	k]Q H	k] H	k]Q $(	k] $(	k]Q :	k] :	k]Q 0	k] 0	k]7Q 	k]7 	k]9Q F	k]9 F	k^QQ H	k^Q H	k^TQ H	k^T H	k^XQ $H	k^X $H
(Q(P 
+8

H@h
IRP A,<

h
	OPDEF	GOTOA	[
	OPDEF	BRANA	[JUMPA]>J;@ $X`@ 6I9@ :t@@ 
(<@ 3 @ :
J`@  
,;v@ 
,ky@ ;
,xv@ 
,z7@ ;
,|@ 
,|@ 
}{@ 3
~[R@@+s@@D@@@4dy@@4}Kw@@<}[t@@<}[0@@}h`@@,}jt@@-}k@@-}l@@@.}m@@.}mR@@4)@@4IF@@,-3@!-H<@=-Kx@-kz@.@N`@x@!~@@&v@@ 5'@ +-\@ (2

)6@ A2@ /2.<`@ 2}i`@ 63@ 06Mm9@ 6|91@ 7-M@ :

:>-@ :d\y@ :}i @ 0:~@@ 	:~I<@ 1:~J@ )?@@ )?@ 
?%	9@R*B)7@RB+z@ B[R@ *B@ Bf\`@ B~p@ Cy@ BCx`@ 6C}@ BC.)r@ +G,@ 8O=@ R/

Rx@ER}i2@SY @1V$Y@@2VuZ7@VvJ6@EWM9@ZP jD)P jD)<P jD*rP jD+P jD+3P jD+QP jD+YP jD,P jD,qP 
jD,zP

jD,}P jD-7P jD-8P jD-YP jD.P jD.RP jD.TP jD.XP jDXWP jDYP jDY1P jDYTP jD[P jD[P jD[WP jD[tP jD\wP jD]P jD]7P kTP kP k7P kYP kY<P kYTP kYqP kYvP kZP kZ1P kZ7P kZ7P kZ9P kZ;P kZwP k[P k[P k[P k[P k[7P k[PP k[WP k[YP k\P k\P k\4P k\wP k\zP k\|P k]P k]P k]P k]P k]7P k]9P k^QP k^TP k^XP S@P >}{woP