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

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

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

x
,w@P CL "x
	.XCREF
	IFN $$BST-10,<$#8$E(<Illegal as>)>#X
	$$BST==3
	$$$AS
	.CREF
CO\Z W[E=@ 5Xc
.XCREF
5x$$C($$,\<$$BSP>)=6=$$BST
$$C($$,\<68$$BSP+1>)==$$L1
6X$$C($$,\<$$BSP+2>6x)==$$L2
$$C($$,\7<$$BSP+3>)==$$L3
$$C($$,\<$$BSP+47X>)==$$L4
$$C($$,7x\<$$BSP+5>)==$$L58
$$C($$,\<$$BSP+886>)==$$L6
$$C($$8X,\<$$BSP+7>)==$$L8x7
$$C($$,\<$$BSP9+10>)==$$L8
$$C(98$$,\<$$BSP+11>)==9X$$L9
$$C($$,\<$$9xBSP+12>)==$$L10
:$$BST==11
$$BSP=:8=$$BSP+13
$$L1==:X$$L+1
$$L2==$$L+:x2
$$L3==$$L+3
$;$L4==$$L+4
$$L5=;8=$$L+5
$$L6==$$L;X+6
$$L7==$$L+7
;x$$L8==$$L+10
$$L<9==$$L+11
$$L10=<8=$$L
$$L==$$L+12
.CREF
EJEJPRINTX AOXXSG2,W  A
	SKPINC
	NOP
RRI1,ERRGRNK eH0
	TITLE	ehA     DECsystem-1f0/20 SIMULA COMPILER %4A(310)  IGVu@ fH>
	IFDEF .fhDIRECTIVE,<.DIRECgTIVE .NOBIN>
	UNg(IVERSAL A     DEgHCsystem-10/20 SIMghULA COMPILER %4A(310)  ILER %4A(IF=` ,`8a
 DEFINE -X(NAM,NUMBER)=<
]`	RADIX	8
	DSW	(N9AM,Y3OPEN,NUMBER)z@
 >
 DEFINE Y(P
1,P2)=<SYN P1,YOP
8'P2>
	QOPNO==^D3
X5
 IRP A,<
	RA
xDIX	10
	X	(YOPA,\<35-QCHA>)
	R8ADIX	10
	X	(YPOXA,\<17-QCHA>)
	xY	(YOPA,\QOPNO)


	QOPNO=QOPNO-1
 >
c:~)6PI  =`I 68
$$DEF==06X
IFE <^DC-^D36>6x,<DEFINE A(XB,O)7=
<$%W==B
IFNB78 <O>,<$%W==B+<O>7X
>
IFE <$$USE-37x>,<LI $$$VAL
$$U8SE==1>
$F $%W(XB88)>
$$DEF==1>
IF8XE <^DC-^D18>,<IF8xE <^DD-^D17>,
<9
DEFINE A(XB,O)98=<
$%W==B
IFNB9X <O>,<$%W==B+<O>9x>
IFE <$$USE-3>,:<LI $$$VAL
$$USE:8==1>
IFE $$USE,<:X$F $%W(XB)>
IFE :x<$$USE-1>,<$L $%W;(XB)>
IFE <$$USE;8-2>,<PRINTX OPD-O;XPR NESTING ERROR>;x
$$USE==2>
$$DE<F==1>
IFE <^DD-<8^D35>,
<DEFINE <XA(XB,O)=<
$%W==<xB
IFNB <O>,<$%W===B+<O>>
IFE <$$=8USE-3>,<LI $$$VAL=X
$$USE==1>
IFE =x$$USE,<$F $%W(XB)>>
IFE <$$USE-1>,>8<$R $%W(XB)>
IFE>X <$$USE-2>,<PRINT>xX OPD-OPR NESTING? ERROR>
$$USE==2?8>
$$DEF==1>
>
?XIFE $$DEF,<
DEFI?xNE A(XB,O)=<
$%@W==B
IFNB <O>,<@8$%W==B+<O>>
IFE@X <$$USE-3>,<LI $$@x$VAL
$$USE==1>
AIFE $$USE,<$F $%WA8(XB)>
IFE <$$USEAX-1>,<$B [$A O(XBAx)]-$$RELO($$BAS)>B
IFE <$$USE-2>,<B8PRINTX INVALID USBXE OF FIELD>
$$USBxE==2>
$$DEF==1>
OPDEF $A [POINTC8 C,B,D]
$A==CX$A
%A==^DD
ICxFE <^DC-1>,<DSW (A,B,D)>
I'= d XEC DIRST.##XEC DIRST.I< Y
	.XCREF
	IFN $$BST-2,<$$XE(<Illegal do>)>
	$$$DO
	$$C(L,\$$LT): $$BST==7
	.CREF
0PIH D8%
A%S==BDX
A%V==D
DEFINE A%F=<C>
IJ  0@_	PROC
.AP::	SAVE	<X2,X3,X4p,X5>
	OUTSTR	[ASCIZ/            =0====
RECORD TYPEP A AT ADDRESS /]p
	LI	X3,22
	MOVE	X4,X1
	EXEC	L20
	OUTSTR	[ASCIZ/P
            ===p==

/]
	IRP B	<	OUTSTR	[ASCIZ/0B/]
			OUTCHR	[P"="]
			SIZE	(QSpZ,B)
			IFE	<QSZ-1>,<LI	X4,"0"
0					 IFON	B(X1)P
					 LI	X4,"1"p
					 OUTCHR	X4
					>
			IFN	0<QSZ-1>,<LI	X3,QSPZ
					 LF	(X4) pB(X1)
					 EXEC	L2
					>
			0OUTSTR	[ASCIZ/
/P]
>
	OUTSTR	[ASpCIZ/
/]
	RETURN	
DEFINE	A	<EXEC	0 .A>
L2():	SETZ	P	X2,0
	DIVI	X2,3	p
	SKIPE	X3
	AOJ
	X2,0
	MOVN	X3,X
02
	IMULI	X3,3
	
PROT	X4,(X3)
L3()
p:	SETZ	X5,0
	ROTC	X4,3
	ADDI	X5,0"0"
	OUTCHR	X5
P	DECR	X2,L3
	POPpJ	XPDP,0
	EPROC
[ PcjD IO8 X8k

IFL <^XXD36-^DC>,<$$E(<TXxOO BIG BIT NO>)>
IFE ^D36-^DC,<
 IFB <D>,<DEFINYXE A(ACC)=<
	IFEYx <%OP%-2>,<$$E(<IZLL SWITCH NAME>)>Z8
	IFN <%OP%-2>,<ZX
	 IFE <%OP%-3>,Zx<%OP3 777777>
	 [IFE <%OP%-4>,<%OP[83>
	[IFL <%OP%-2[X>,<%OP4 B(ACC)>
			%OP%==2>>>
 \IFNB <D>,<DEFINE\8 A=<
	IFE <%OP%\X-2>,<$$E(<ILL SWI\xTCH NAME>)>
	IFN] <%OP%-2>,<
	 IF]8E <%OP%-3>,<%OP3 ]XD,777777>
	 IFE]x <%OP%-4>,<%OP3 ^D,>
	^IFL <%OP%-^82>,<%OP4 B(D)>
		     %OP%==2>>^x>>
IFGE	^D35-^D_C,<
	VA==1BC
_8IFE	^DC,<
	CA=_X=377777777777>
I_xFN	^DC,<
	CA==`-1*VA-1>
IFGE ^`8D17-^DC,<
	CA=`X=CA_-^D18
	VA=`x=VA_-^D18>

DEaFINE	$$TES1(X,Y,Za8)<

IFGE	^D17-^aXDC,<
IFB <Z>,<DaxEFINE A(ACC)<
IbFE <%OP%-1>,<%OP1b8 Y>
IFE %OP%,<%ObXP1 X>
IFE <%OP%-bx2>,<$$E(<ILL SWITcCH NAME>)>
IFGE c8<%OP%-3>,<IFB <ACcXC>,<%OP1 Y>
	IFNcxB <ACC>,<%OP1 ACCd,Y>>
IFL<%OP%-2>d8,<%OP3 B(ACC)>
dX%OP%==2>>
IFNB <dxZ>,<DEFINE A=<
eIFE <%OP%-1>,<%OPe81 Y>
IFE %OP%,<%eXOP1 X>
IFE <%OP%ex-2>,<$$E(<ILL SWIfTCH NAME>)>
IFGEf8 <%OP%-3>,<%OP1 ZfX,Y>
IFL <%OP%-2>fx,<%OP3 B(Z)>
%OgP%==2>>>

IFL ^g8D17-^DC,<
IFB <gXD>,<DEFINE A(ACgxC)<
IFE %OP%-1,<h%OP2 Y>
IFE %OP%h8,<%OP2 X>
IFE <%hXOP%-2>,<$$E(<ILL hxSWITCH NAME>)>
IiFGE <%OP%-3>,<IFBi8 <ACC>,<%OP2 Y>
iX	IFNB <ACC>,<%OP2ix ACC,Y>>
IFL <%OjP%-2>,<%OP3 B(ACj8C)>
%OP%==2>>
IjXFNB <D>,<DEFINE jxA=<
IFE <%OP%-1k>,<%OP2 Y>
IFE %k8OP%,<%OP2 X>
IFEkX <%OP%-2>,<$$E(<IkxLL SWITCH NAME>)>l
IFGE <%OP%-3>,<l8%OP2 Z,Y>
IFL <%lXOP%-2>,<%OP3 B(Zlx)>
%OP%==2>>
>m
>
	$$TES1(\CA,m8\VA,D)
	PURGE VA,CA
>
K3P 8	
	.XCREF
	IFN $$BST-5,<$$xE(<Illegal else>)>
	$$LE==$$L
	$8$L==$$L+1
	GOTO X$$C(L,\$$LE)-$$RExLO($$BAS)
	$$C(L,\$$LF): $$BST==6
	.CREF
K:$@ <x#
.XCREF
=IFN $$BST-11,<$$E=8(<Illegal endd>)>=X
$$BSP==$$BSP-13=x
$$$PD2(L,\$$L1)>
$$$PD2(L,\$$L2)>8
$$$PD2(L,\$$L3)>X
$$$PD2(L,\$$L4)>x
$$$PD2(L,\$$L5)?
$$$PD2(L,\$$L6)?8
$$$PD2(L,\$$L7)?X
$$$PD2(L,\$$L8)?x
$$$PD2(L,\$$L9)@
$$$PD2(L,\$$L10@8)
$$BST==$$C($$,@X\$$BSP)
$$L1==$$@xC($$,\<$$BSP+1>)
$$L2==$$C($$,\<$A8$BSP+2>)
$$L3==$AX$C($$,\<$$BSP+3>)Ax
$$L4==$$C($$,\<B$$BSP+4>)
$$L5==B8$$C($$,\<$$BSP+5>BX)
$$L6==$$C($$,\Bx<$$BSP+6>)
$$L7=C=$$C($$,\<$$BSP+7C8>)
$$L8==$$C($$,CX\<$$BSP+10>)
$$LCx9==$$C($$,\<$$BSPD+11>)
$$L10==$$CD8($$,\<$$BSP+12>)
.CREF
K;$\S xp?M
	LI	X1,YyELA
	IF2,<IFNDEy0F O1JFNO,<EXTERN yPO1JFNO>>
	XEC	O1JFNO
cDKB~ 	0[
	IFE  ES	PSIZE,<$$E(<Underf	plow in stack E>)>

	IFG ESSIZE,<

0	IFNB <A>,<A=ET
POP>
	ETOP=$$C(E,
p\ESSIZE,$)
	$$$P(E,\ESSIZE,$)
	E0SSIZE=ESSIZE-1
>XEcXEKCx` $XG
.XCREF
 IFDEF $$SNOY,<P%URGE $$SNOY>
 IF%8NDEF $$NO,<$$E(<I%XLLEGAL EPROC>)>
%x IFDEF $$NO,<			
	 $$T1==0
	 PUR&8GE	$$NO		
 REPEA&XT $$NR,<
IFDEF $&x$TEMP,<EPOP $$T1>'
IFNDEF $$TEMP,<'8PPOP $$T1>
	 $$K'XILL	(\$$T1)>	
	 'xPURGE	$$NR
 IFDE(F $$TEMP,<			
	 (8PURGE	$$SNOX
	 P(XURGE	$$TEMP>
	 P(xURGE $$T1
	 ENDD>KC.: 0G
	IFE  ESpSIZE -7777,<$$E(<Overflow in stack0 E>)>
	ESSIZE=ESPSIZE+1
	$$C(E,\EpSSIZE,$)=ETOP
	ETOP=A
AK3PKK @KK @KK  `KK   KK@ KK` `KKJ  `KK   KK@  KOR@ KR~@ Kb,0 8!
.XCREF
 IFNB <B>,<
	 x$$LOOP==0
 IRP B,<
	 $$LOOP==$$8LOOP-1
	.CREF
	X STACK	B
	.XCRExF>
>
	.CREF
	 XEC	A 
	.XCREF
IFDEF $$LOOP,<
	 SUB	XPDP, [XWDx -$$LOOP,-$$LOOP]
	 PURGE	$$LOOP>
.CREF
PMf9  .Xw$$C(L,\$$L.xF)-$$RELO($$BAS)M$ M$ X/
	.XCREF
	IFN<$$BST-5>*<$$BST-6>,<$$E(<Ill8egal fi>)>
	IFE X$$BST-5,<
	$$C(Lx,\$$LF):>
	IFE $$BST-6,<
	$$C(L,8\$$LE): $$$P2(L,\X$$LE)>
	$$$P2(L,x\$$LT)
	$$$P2(L,\$$LF)
	$$BSP==$8$BSP-4
	$$BST==$X$C($$,\<$$BSP>)
x	$$LT==$$C($$,\<$$BSP+1>)
	$$LF==8$$C($$,\<$$BSP+2>X)
	$$LE==$$C($$,x\<$$BSP+3>)
	.CREF
(c,l`PAO&2 {Q
	.XCREF
	X=-1
	IRPC A,{X<
	X=X+1>
	IFN {xX,<$$E(<Queue nam|e A not one lett|8er>)>
IF1,<	IFDE|XF AQSIZE,<$$E(<D|xouble decl. of qu}eue A>)>>
	$$Q}8AB=0
	$$QAT=0
	AQSIZE=0
	IFB}x <B>,<
DEFINE  ~AOUTQ(W)<
	IFE ~8AQSIZE,<$$E(<Und~Xerflow in queue ~xA>)>
	IFNB <W>,<W=AHEAD>
	AQSI8ZE=AQSIZE-1
	$$X$P(A,\$$QAB,%)x
	$$QAB=<$$QAB+1>&7777
	IFN 8AQSIZE,<AHEAD=$X$C(A,\$$QAB,%)x>
>
DEFINE  AINQ(W)<
	IFE AQS8IZE-7777,<$$E(<OvXerflow in queue xA>)>
	$$C(A,\$$QAT,%)=W
	IFE 8AQSIZE,<AHEAD=W>X
	AQSIZE=AQSIZxE+1
	$$QAT=<$$QAT+1>&7777
>
>8
	IFNB <B>,<
DXEFINE  AOUTQ(L,Rx)<
	IFE AQSIZE,<$$E(<Underflow i8n queue A>)>
	IXFNB <L>,<L=AHEADxL>
	IFNB <R>,<R=AHEADR>
	AQSIZ8E=AQSIZE-1
	$$$XP(A,\$$QAB,%)
	$$QAB=<$$QAB+1>&7777
	IFN 8AQSIZE,<AHEADL=$X$C(A,\$$QAB,%)x/1000000
		AHEADR=$$C(A,\$$QA8B,%)&777777>
>
XDEFINE  AINQ(L,Rx)<
	IFE AQSIZE-7777,<$$E(<Overfl8ow in queue A>)>X
	$$C(A,\$$QATx,%)=L*1000000+R
		IFE AQSIZE,<AH	8EADL=L
	AHEADR=	XR>
	AQSIZE=AQS	xIZE+1
	$$QAT=<$
$QAT+1>&7777
>
>
.CREF
O&= lU
	.XCREF
	X=-1
	IRPC A,lX<
	X=X+1>
	IFN lxX,<$$E(<Stack namme A not one lettm8er>)>
	IFE X,<
mXIF1,<	IFDEF ASSImxZE,<$$E(<Double dnecl. of stack A>n8)>>
	ASSIZE=0	
	IFB <B>,<ATOPnx=0>	
	IFNB <B>,o<ATOPL=0	
	ATOo8PR=0>	
	IFB <B>oX,<
DEFINE  APUSoxH (D)<
	IFE  ASpSIZE -7777,<$$E(<p8Overflow in stackpX A>)>
	ASSIZE=pxASSIZE+1
	$$C(qA,\ASSIZE,$)=ATq8OP
	ATOP=D
>>X
	IFNB <B>,<
DEqxFINE  APUSH (D,Er)<
	IFE  ASSIZEr8-7777,<$$E(<OverfrXlow in stack A>)rx>
	ASSIZE=ASSIsZE+1
	$$C(A,\As8SSIZE,$)=ATOPL*1sX000000+ATOPR
	sxATOPL=D
	ATOPR=tE
>>
	IFB <B>,t8<
DEFINE  APOP(tXD)<
	IFE  ASSIZtxE,<$$E(<Underflowu in stack A>)>
u8	IFG ASSIZE,<
	uXIFNB <D>,<D=ATOPux>
	ATOP=$$C(A,v\ASSIZE,$)
	$$$v8P(A,\ASSIZE,$)
	ASSIZE=ASSIZEvx-1
>>>
	IFNB <wB>,<
DEFINE  APw8OP (D,E)<
	IFE  wXASSIZE,<$$E(<Undwxerflow in stack xA>)>
	IFG ASSIZx8E,<
	IFNB <D>,<DxX=ATOPL>
	IFNB <xxE>,<E=ATOPR>
	yATOPL=$$C(A,\ASy8SIZE,$)/1000000
yX	ATOPR=$$C(A,\yxASSIZE,$)&777777
	$$$P(A,\ASSIZz8E,$)
	ASSIZE=AzXSSIZE-1
>>>
>
.CREF
O>L` '8M
	.XCREF
	$$C($$,\<$$BSP>'x)==$$BST
	$$C($$(,\<$$BSP+1>)==$$L(8T
	$$C($$,\<$$BS(XP+2>)==$$LF
	$$B(xSP==$$BSP+3
	$$L)T==$$L
	$$LF==$$)8L+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 
Xk
	.XCREF
x
	$$C($$,\<$$BSP>)==$$BST
	$$C($$8,\<$$BSP+1>)==$$LXT
	$$C($$,\<$$BSxP+2>)==$$LF
	$$C

($$,\<$$BSP+3>)==

8$$LE
	$$BSP==$$B

XSP+4
	$$BST==1

x	$$LT==$$L
	$$LF+1
	$$L==$$
	$$$IF
	.CREF
S.@ F3
LF() B(F8A,D)
CAIN C
eKB~ISt\3 Fx9
LF() B(GA,D)
CAIE C
	Mf9 sS|i@ sx+
	.XCREF
	OPDEF	%OP1	[HRLt8ZI]
	OPDEF	     tX %OP2	[MOVEI]
	OtxPDEF	      %OP3	[uTDNN]
	OPDEF		%Ou8P4	[SKIPN]
	%OP%==1
	.CREF
S|iP wxK
	.XCREF
	      %OP%==3
x8	OPDEF	      %OP1xX	[TLNN ]
	OPDEF	xx      %OP2	[TRNN y]
	OPDEF	      %y8OP3	[CAIN ]
	.CREF
S}` qx
	.XCREF
	OPDEF	%OP1	[HRLr8ZI]
	OPDEF	     rX %OP2	[MOVEI]
	OrxPDEF	      %OP3	[sTDNE]
	OPDEF		%Os8P4	[SKIPE]
		%OP%==1
	.CREF
S}h  ux;
	.XCREF
	      %OP%==3
v8	OPDEF	      %OP1vX	[TLNE ]
	OPDEF	vx      %OP2	[TRNE w]
	OPDEF	      %w8OP3	[CAIE ]
	.CREF
S:  *`W
 c(IFN QKA10IFN QKA10W
p @oE,LE,GE,W%
 bhIFN QKI10IFN QKI10W1
 b(IFN QKL10IFN QKL10X  XD HA$$C(L,\$$L1)XE LXe$$C(L,\$$L10)XE Mi$$C(L,\$$L11)XE MXm$$C(L,\$$L12)XE Nq$$C(L,\$$L13)CLXE  NXu$$C(L,\$$L14)4I'=XE( Oy$$C(L,\$$L15)eMf9 sXE0 OX}$$C(L,\$$L16)*O>L`9XE8 P$$C(L,\$$L17)W1
XE@ PX$$C(L,\$$L18)gXEkXEH Q	$$C(L,\$$L19)KXTOXH HXE$$C(L,\$$L2)XL II$$C(L,\$$L3)XP IXM$$C(L,\$$L4)XT JQ$$C(L,\$$L5)XX JXU$$C(L,\$$L6)X\ KY$$C(L,\$$L7)X` KX]$$C(L,\$$L8)Xd La$$C(L,\$$L9)Y Y )8[
OPDEF $L)X [HLRZ A,]
OPDE)xF $R [HRRZ A,]
*OPDEF $F [MOVE A*8,]
OPDEF $B [LDB*X A,]
$$USE==1
*xIFNB <B>,<
IFNB+ <C>,<B,C>
IF+8B <C>,<B>
>
Y( 3x/
	OPDEF $4L [HLRE A,]
	OP48DEF $R [HRRE A,]4X
	OPDEF $F [MOVE4x A,]
	PURGE $B,5$B
	$$USE==1
	I58FNB <B>,<
	 IFN5XB <C>,<B,C>
	5x IFB  <C>,<B>
	>
Y$   Y>^\ s?C
	LI	X1,Yr ELA
	IF2,<IFNDEr@F O1JFNI,<EXTERN x0O1JFNI>>
	XEC	O1JFNI
#aORY>~ x
	.XCREF
	$$C($$,\<$$BSP> 8)==$$BST
	$$C($$ X,\<$$BSP+1>)==$$L xT
	$$C($$,\<$$BS!P+2>)==$$LF
	$$B!8SP==$$BSP+3
	$$L!XT==$$L
	$$LF==$$!xL+1
	$$L==$$L+2
	$$C(L,\$$LT): $"8$BST==10
	.CREF
YM

X?
	DF	(ZLE

xID,ZLEREC,7,6)	;I
	DF	(ZLEIND6)	;BREAK CHARACTER COM8BINATION INDICATOXR
	DSW	(ZLESRC,ZxLEREC,7)	;ON IF LINE NUMBER IN SOU8RCE LINE
	DSW	(ZxLEOK,ZLEREC,8)	;OXN IF SOURCE LINE NUMBER CAN BE USE8D IN LISTING
	DSXW	(ZLEBIT,ZLEREC,<17)	;RECORD INDIC;@ATOR = 1
		;SYMB<OLIC NAMES ON ZLEq`IND VALUES  ;[14 r22 15] Now defined in LC
	K:$@[T 18)
	SEARCH	1XUUOSYM
IFN QDEC21x0,<SEARCH MONSYM>2
	IF1,<ED$$MX==028>
	DEFINE EDIT(n2X)<
	ED'n==n
	IF2x1,<
	IFG <n-ED$$3MX>,<ED$$MX==n>
38	>>
	IF2,<
	DEF3XINE $$ped(n)<PRIN3xTX Edit: n>
	   4  IFN ED$$MX,<$$p48ed(\ED$$MX)>
	  4X   PURGE $$ped,ED4x$$MX
	>
	.XCREF5
	$$L==20
	.CREF
]? + _ X{
	.XCREF
	IFN $$BST-7,<$$E(<Illegal od>)>
	GOTO $$C(L,\$$LXE)-$$RELO($$BAS)
	$$C(L,\$$LF): $$BSP==$$BSP-4
	$8$$P2(L,\$$LT)
	$X$$P2(L,\$$LF)
	$x$$P2(L,\$$LE)
	$$BST==$$C($$,\<$$8BSP>)
	$$LT==$$CX($$,\<$$BSP+1>)
x	$$LF==$$C($$,\<$$BSP+2>)
	$$LE==8$$C($$,\<$$BSP+3>)
	.CREF
_69: 2x<$A>&777777aBv= dH$XEC PPNST.##XEC PPNST.aB~  
	IFE  PS@SIZE,<$$E(<Underf`low in stack P>)>
	IFG PSSIZE,<
 	IFNB <A>,<A=PT@OP>
	PTOP=$$C(P,`\PSSIZE,$)
	$$$P(P,\PSSIZE,$)
	P SSIZE=PSSIZE-1
>aC.: ~ ~
	IFE  PS~`SIZE -7777,<$$E(<Overflow in stack  P>)>
	PSSIZE=PS@SIZE+1
	$$C(P,\P`SSIZE,$)=PTOP
	PTOP=A
aJ|0 XA
.XCREF
xIFDEF $$NO,<$$E(<DOUBLE PROC>)>
I8FDEF $$TEMP,<PURGXE $$TEMP>
IFNDEFx $$NO,<
BEGIN
.XCREF
	$$NO==0
IRP A,<
	 $$NOX==$$NO-1>
	 $$NRx==-$$NO
IRP A,<
	 %.%==-$$NO
	8 PPUSH	%.%
	$$CX(%.%,\%.%)==$$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( Sx5IRP A <IFTE <A-.K>,<STOPI>T8
	   .I==0
	Tx TXIRP C <.I==.I+1
		    IFE <.I-AU>,<STOPI
				   U8.C==C>
		   >
UX	   .I==0
	   IRUxP B <.I==.I+1
	V	    IFE <.I-A>,V8<STOPI
				   BVX==.C>
		   >
	  >
PURGE C
aeKy 8!
 IFDEF $X$NO,<
  IFDEF $$xSNOX,<
   REPEAT  $$SNOX,<
	SPOP	 8$$TEMP
	RPUSH	$$ XTEMP
	UNSTK	$$TE xMP
   >
   REPE!AT $$SNOX,<
	RPO!8P	$$TEMP
	SPUSH	!X$$TEMP
   >
  >!x
 >
 IFNDEF $$N"O,<
  IFDEF $$SN"8OY,<
   REPEAT $"X$SNOY,<
	SPOP	$$"xTEMP
	RPUSH	$$TE#MP
	UNSTK	$$TEMP#8
   >
   REPEAT#X $$SNOY,<
	RPOP	#x$$TEMP
	SPUSH	$$$TEMP
   >
  >
 >
eq ]Xo
	QIDB=Q]xNSYSID
	QNSYSID==QNSYSID+1
e{y LXk
	.XCREF
	RESW$	BEGIN,,Z1MRWBM	
	RESW$	ENDM8 ,,Z1RWBE+Z1RWBM
	RESW$	IF 
	RESMxW$	THEN 
	RESW$	NINTEGER,INT 
	REN8SW$	REF 
	RESW$	NXDO 
	RESW$	PROCENxDURE,PROC 
	RESWO$	NEW
	RESW$	ACTO8IVATE,ACTIV
	RESOXW$	AFTER 
	RESW$Ox	AND 
	RESW$	ARRPAY 
	RESW$	AT 
P8	RESW$	BEFORE,BEFPXOR
	RESW$	BOOLEAPxN,BOOL
	RESW$	CHQARACTER,CHAR
	REQ8SW$	CLASS 
	RESWQX$	COMMENT,COMM,Z1QxRWBM
	RESW$	DELARY 
	RESW$	ELSE,,R8Z1RWBE 
	RESW$	ERXQ 
	RESW$	EQV 
Rx	RESW$	EXTERNAL,ESXT 
	RESW$	FALSES8 
	RESW$	FOR 
	SXRESW$	GE,NLESS 
Sx	RESW$	GO,,Z1RWBMT 
	RESW$	GOTO,,ZT81RWBE 
	RESW$	GTTX,GRT 
	RESW$	HIDTxDEN,HIDDE
	RESW$U	IMP 
	RESW$	IN U8
	RESW$	INNER 
UX	RESW$	INSPECT,INUxSPE 
	RESW$	IS 
	RESW$	LABEL 
	V8RESW$	LE,NGRT 
	VXRESW$	LONG 
	RESVxW$	LT,LESS 
	RESWW$	NAME 
	RESW$	W8NE,NEQ 
	RESW$	NWXONE 
	RESW$	NOT Wx
	RESW$	NOTEXT,NXOTEX 
	RESW$	OR X8
	RESW$	OPTIONS,XXOPT,Z1RWBM
	RESWXx$	OTHERWISE,OTHERY,Z1RWBE
	RESW$	PY8RIOR 
	RESW$	PROYXTECTED,PROTE
	REYxSW$	QUA 
	RESW$	ZREACTIVATE,REACT Z8
	RESW$	REAL
	RZXESW$	SHORT 
	RESZxW$	STEP 
	RESW$	[SWITCH,SWIT 
	RE[8SW$	TEXT 
	RESW$[X	THIS 
	RESW$	TO[x,,Z1RWBM 
	RESW$\	TRUE 
	RESW$	UN\8TIL 
	RESW$	VALU\XE 
	RESW$	VIRTUA\xL,VIRT 
	RESW$	W]HEN,,Z1RWBE 
	RE]8SW$	WHILE 
	.CREF
b Pe  ,~e&\W 8w
	.XCREF
	RESTORE
	 POPJx XPDP,
	.CREF
PcPe
e: R8.K==0
IRPRX A <.K==.K+1>
RRxENAM1 <1,2,3,4,5,S6,7,10,11,12,13,1S84,15,16,17>,<A>,<B>
EhPeB~ h6
	IFE  RSSIZE,<$$E(<Underf(low in stack R>)>H
	IFG RSSIZE,<
h	IFNB <A>,<A=RTOP>
	RTOP=$$C(R,(\RSSIZE,$)
	$$$PH(R,\RSSIZE,$)
	RhSSIZE=RSSIZE-1
>eC.: h"
	IFE  RS(SIZE -7777,<$$E(<HOverflow in stackh R>)>
	RSSIZE=RSSIZE+1
	$$C(R,\R(SSIZE,$)=RTOP
	RTOP=A
eOR@ eRNK h(F
	TITLE	hHA     DECsystem-1hh0/20 SIMULA RTS %4A(310)   RTS %eR~@ eVu@ i(T
	IFDEF .iHDIRECTIVE,<.DIRECihTIVE .NOBIN>
	UNjIVERSAL	A     DEj(Csystem-10/20 SIMjHULA RTS %4A(310)   RTS %4A(310) g $7
	.XCREF
	IFN $$BST-3,<$$$XE(<Illegal sa>)>
	$$$SA
	$$C(L,\%$$LF): $$BSP==$$B%8SP-3
	$$$P2(L,\$%X$LT)
	$$$P2(L,\$%x$LF)
	$$BST==$$C&($$,\<$$BSP>)
	$&8$LT==$$C($$,\<$$B&XSP+1>)
	$$LF==$$&xC($$,\<$$BSP+2>)
	.CREF
g4P Xo
.XCREF
xIFDEF $$NO,<
IFDEF $$SNOX,<
	 $$8E(<DOUBLE SAVE ILXLEGAL>)>
IFNDEF x$$SNOX,<
	 $$SNOX==0
	$$TEMP==0
IRP A,<
	 $$SNXOX==$$SNOX+1
	 SxPUSH 	A
	.CREF
	 STACK	A
	.XC8REF>
REPEAT $$NRX,<
	 PPOP	$$TEMPx
	EPUSH	$$TEMP
	 $$C(%.%,\$$TEM8P)==-$$TEMP-$$SNOXX>>>
IFNDEF $$NOx,<
	 $$SNOY==0
 IRP A,<
	 SPUS8H A
	 $$SNOY==$X$SNOY+1
	.CREF
x	 STACK A
	.XCREF>>
.CREF
g

 *@"`
%%%%%1==* 0
IRP A,<
SYS,A==%%%%%1
%%%%%1==<%%%%%1+1>>EBg
%%%%%1==Kx0
IRP A,<
A==L%%%%%1
%%%%%1==<%%%%%1+1>>pg$-3 0@
	EXTERN	PYBUFRB,YBHA
	Lp	[XWD QBUFS-2,YBUFRB+1+QBUFS+1]
0	ST	YBUFRB+1
	HPRRI	YBUFRB+1
	SpT	YBUFRB+1+QBUFS+1
	HRLI	400K
	0IFB<C>,<ST YBHAP>
	IFNB<C>,<MOVpSI X1,(^DCB11)
		STD	YBHA>
:g$` 2
$$$VAL=28A
SF()
$$USE=3
g%yP {xk
	.XCREF
	      %OP%==4
|8	OPDEF	      %OP1|X	[TLZ]
	OPDEF	  |x    %OP2	[TRZ]
	}OPDEF	      %OP3	}8[SETZ]
	.CREF
g%yS mx{
	.XCREF
	OPDEF		%OP1	[HRn8LOI]
	OPDEF	    nX  %OP2	[HRROI]
	nxOPDEF	      %OP3	o[ANDM]
	OPDEF		%o8OP4	[SETZM]
		%OP%==0
	.CREF
g%{@ ox
	.XCREF
	OPDEF	%OP1	[HRLp8ZI]
	OPDEF	     pX %OP2	[MOVEI]
	OpxPDEF	      %OP3	[qIORM]
	OPDEF		%Oq8P4	[SETOM]
		%OP%==1
	.CREF
g%{P yx[
	.XCREF
	      %OP%==3
z8	OPDEF	      %OP1zX	[TLO]
	OPDEF	  zx    %OP2	[TRO]
	{OPDEF	      %OP3	{8[SETO]
	.CREF
g0  g2 @g2  `g +xo
OPDEF $L, [HRLM A,]
OPDE,8F $R [HRRM A,]
,XOPDEF $F [MOVEM ,xA,]
OPDEF $B [DP-B A,]
$$USE==1
IFNB <B>,<
IFN-XB <C>,<B,C>
I-xFB <C>,<B>
>
g'TP 38
A=<<<$B>B59>&77>
gB) P gB~ 
	IFE  SSSIZE,<$$E(<Underf8low in stack S>)>X
	IFG SSSIZE,<
x	IFNB <A>,<A=STOP>
	STOP=$$C(S,8\SSSIZE,$)
	$$$PX(S,\SSSIZE,$)
	SxSSIZE=SSSIZE-1
>PcEiPgC.: xk
	IFE  SS

8SIZE -7777,<$$E(<

XOverflow in stack

x S>)>
	SSSIZE=SS
	$$C(S,\SSTOP
	STOP=A
_gOR@ gO$\ HXE
	ADD	A,[XWD	B%S,B%S]gP  @gR

:` ,>gR  gR. GXA
 $%X==AGx
 IFNB <C>,<$%XH==C>
 LI $%X,B%S(A)
`
@ IQ
IFE <B%I8S-1>,< AOBJN A,IXC>
IFN <B%S-1>,Ix<ADD A,[XWD B%SJ,B%S]
 JUMPL A,C>
HCgR~@ gSB e(XEC STPPN.##XEC STPPN.gfl  `"L
	SYMBT1= =SYMBL1+1
	SYMBT`2==SYMBL2+1
	SYMBT3==SYMBL3+1
	S@YMBT4==SYMBL4+1
 	SYMBT5==SYMBL5+1  
	IFE B,<
DEFI @NE SYMBX(M,N,O,P, `Q)<
	IFN N&A,<!C(M,\O,P,<Q>)>
	! IFE O-SYMBT1,<SYM!@BT1==SYMBT1+1>
	!`IFE O-SYMBT2,<SYM"BT2==SYMBT2+1>
	" IFE O-SYMBT3,<SYM"@BT3==SYMBT3+1>
	"`IFE O-SYMBT4,<SYM#BT4==SYMBT4+1>
	# IFE O-SYMBT5,<SYM#@BT5==SYMBT5+1>
	#`>
	SYMBOL
	>
	$IFN B,<
DEFINE $ SYMBX(M,N,O,P,Q)<$@
	IFL O-SYMBL1,<$`
	IFN N&A,<
	D%EFINE SYMB'O<C(M% ,\O,P,<Q>)>>>>
	%@SYMBOL
	DEFINE S%`YMBZ(F)<
	IFDEF &SYMB'F,<SYMB'F>>
	SYMBY==-1
	REP&@EAT SYMBL1,<
	SY&`MBY==SYMBY+1
	SY'MBZ(\SYMBY)>
DEF' INE SYMBZ(F)<
DE'@FINE SYMBX(M,N,O,'`P,Q)<
	IFE O-SYM(BT'F,<
	IFN N&A( ,<C(M,\O,P,<Q>)>(@
	SYMBT'F==SYMBT(`'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 d!W
	.XCREF
	SYMBX	ACTIV,3,SdXYMBT1,1,ACTIVATE
	SYMBX	ADEC,2,SYeMBT1
	SYMBX	AFTEe8R,1,SYMBT5,,AFTEReX
	SYMBX	AND,3,24ex,,AND
	SYMBX	ARRfAY,1,SYMBT4,,ARRAf8Y
	SYMBX	AT,1,SYfXMBT5,,AT
	SYMBX	fxBBLK,2,SYMBT2
	SgYMBX	BECOM,3,SYMBg8T1,,<:=>
	SYMBX	gXBEFOR,1,SYMBT5,,BgxEFORE
	SYMBX	BEGhCL,2,SYMBT1,,BEGCh8L
	SYMBX	BEGIN,1hX,SYMBT5,,BEGIN
	hxSYMBX	BEGPB,2,SYMiBT1,,BEGPB
	SYMBi8X	BEGPR,2,SYMBT1,iX,BEGPRO
	SYMBX	BixOOL,1,SYMBT4,,BOOjLEAN
	SYMBX	BOUNj8D,2,SYMBT1,,ARRAYjXBND
	SYMBX	BPROGjx,2,SYMBT2
	SYMBXk	CHAR,1,SYMBT4,,Ck8HARACTER
	SYMBX	kXCLASS,1,SYMBT4,,CkxLASS
	SYMBX	COLOlN,1,SYMBT5,,<:>
l8	SYMBX	COMM,1,SYMlXBT5
	SYMBX	COMMAlx,1,36,,<,>
	SYMBmX	CONC,3,SYMBT3,1m8,CONSTANT
	SYMBXmX	CONI,3,SYMBT3,2,mxCONSTANT
	SYMBX	nCONLR,3,SYMBT3,4,n8CONSTANT
	SYMBX	nXCONR,3,SYMBT3,2,CnxONSTANT
	SYMBX	CoONT,3,SYMBT3,2,COo8NSTANT
	SYMBX	COoXNVE,4,SYMBT1,,CONoxV
	SYMBX	CVBE,2,pSYMBT1,,<:=>
	SYp8MBX	CVDE,2,SYMBT1pX,,<:->
	SYMBX	DEpxBUG,3,SYMBT2,1
	qSYMBX	DELAY,1,SYMq8BT5,,DELAY
	SYMBqXX	DELOP,2,0
	SYMqxBX	DENOT,3,SYMBT1r,,<:->
	SYMBX	DEr8Q,3,17,,<==>
	SYrXMBX	DIV,3,3,,</>
	SYMBX	DO,3,SYMBsT2,,DO
	SYMBX	DOs8T,3,33,,<.>
	SYMsXBX	EBLK,2,SYMBT2
	SYMBX	EDCL,2,SYtMBT2
	SYMBX	EDPBt8,2,SYMBT2
	SYMBXtX	ELSE,1,SYMBT5,,EtxLSE
	SYMBX	END,1u,SYMBT5,,END
	SYu8MBX	ENDCL,2,SYMBTuX2
	SYMBX	ENDDO,2ux,SYMBT2
	SYMBX	EvNDFO,2,SYMBT2
	Sv8YMBX	ENDPR,2,SYMBvXT2
	SYMBX	EOF,1,vxSYMBT5
	SYMBX	EPwROG,2,SYMBT2
	SYw8MBX	EQ,3,13,,<=&@wX(EQ)>
	SYMBX	EQVwx,3,27,,EQV
	SYMBxX	ERROR,2,SYMBT2
	SYMBX	EXT,1,SYMxXBT4,,EXTERNAL
	SxxYMBX	FALSE,3,SYMByT3,,FALSE
	SYMBXy8	FIX,2,SYMBT2,1
yX	SYMBX	FOR,1,SYMByxT5,,FOR
	SYMBX	FzORDO,2,SYMBT2
	Sz8YMBX	FORSI,2,SYMBzXT1,,<:=/:->
	SYMzxBX	FORST,2,SYMBT1{,,<STEP/UNTIL>
	{8SYMBX	FORWH,2,SYM{XBT1,,WHILE
	SYMB{xX	GO,1,SYMBT5,,GO|
	SYMBX	GOTO,3,S|8YMBT1,,GOTO
	SYM|XBX	GRT,3,14,,<&^&|x@(GT)>
	SYMBX	HI}DDE,1,SYMBT5,,HID}8DEN
	SYMBX	IDIV,}X3,4,,<//>
	SYMBX}x	IENDC,2,SYMBT2
~	SYMBX	IF,1,SYMBT~85,,IF
	SYMBX	IFE~XX,2,SYMBT1,,ELSE
	SYMBX	IFEX1,4,SYMBT1,,IF
	SYMBX8	IFST,2,SYMBT1,1,X<IF>
	SYMBX	IFTRxE,2,SYMBT1,1,<IF>
	SYMBX	IFTRU,2,8SYMBT1,,<IF>
	SYXMBX	IMP,3,26,,IMPx
	SYMBX	IN,3,22,,IN
	SYMBX	INNER8,3,SYMBT2,,INNER
	SYMBX	INSPE,3,SxYMBT1,1,INSPECT
	SYMBX	INT,1,SYMB8T4,,INTEGER
	SYMXBX	IS,3,21,,IS
	xSYMBX	JUMP,2,SYMBT2,1
	SYMBX	LABE8L,1,SYMBT5,,LABELX
	SYMBX	LB,3,SYMxBT3,,<[>
	SYMBX	LESS,3,11,,<&\&@(8LT)>
	SYMBX	LONGX,1,SYMBT4,,LONG
x	SYMBX	LP,3,SYMBT3,,<(>
	SYMBX	MI8NUS,3,7,,<->
	SYXMBX	MOCEB,4,SYMBTx1,<:=>
	SYMBX	MULT,3,2,,<*>
	SYM8BX	NAME,1,SYMBT5,X,NAME
	SYMBX	NDExQ,3,20,,<=/=>
	SYMBX	NEQ,3,16,,<\8=&@(NE)>
	SYMBX	XNEW,3,31,,NEW
	SxYMBX	NGRT,3,12,,<&\=&@(LE)>
	SYMB8X	NLESS,3,15,,<&^X=&@(GE)>
	SYMBX	xNONE,3,SYMBT3,,NO	NE
	SYMBX	NOT,3,	823,,<\&@(NOT)>
		XSYMBX	NOTEX,3,SYM	xBT3,,NOTEXT
	SYM
BX	NOTHR,2,SYMBT2
8
	SYMBX	OPT,3,SY
XMBT2,1
	SYMBX	OR
x,3,25,,OR
	SYMBX	OTHER,3,SYMBT2,,8OTHERWISE
	SYMBXX	PAREN,2,SYMBT1,,xPARENTHESIS
	SYM

BX	PARM,4,SYMBT1

8
	SYMBX	PCALL,4,S

XYMBT1
	SYMBX	PBE

xND,2,SYMBT2
	SYMLUS,3,5,,<+>
	SYMBX	POW,3,1,,
	SYMBX	PRIO,PRIOR
	SYMBX	PROC,1,S8YMBT4,,PROCEDURE
	SYMBX	PROTE,1,SxYMBT5,,PROTECTED
	SYMBX	PURGE,2,S8YMBT2
	SYMBX	QUAX,3,32,,QUA
	SYMBxX	QUAL,4,SYMBT1,,QUALIF
	SYMBX	RB8,1,34,,<]>
	SYMBXX	REACT,1,SYMBT5,x,REACTIVATE
	SYMBX	REAL,1,SYMBT4,8,REAL
	SYMBX	REFX,1,SYMBT4,,REF
	xSYMBX	RP,3,35,,<)>
	SYMBX	SEMIC,38,SYMBT5,,<;>
	SYXMBX	SHORT,1,SYMBTx4,,SHORT
	SYMBX	STEP,1,SYMBT5,,ST8EP
	SYMBX	SWEL,2X,SYMBT1,,SWITCHELxEM
	SYMBX	SWEND,2,SYMBT2
	SYMBX	8SWIT,1,SYMBT4,,SWXITCH
	SYMBX	SWITxC,2,SYMBT1
	SYMBX	TEXT,1,SYMBT4,,8TEXT
	SYMBX	THENX,1,SYMBT5,,THEN
x	SYMBX	THIS,3,30,,THIS
	SYMBX	TO,81,SYMBT5,,TO
	SYXMBX	TONED,4,SYMBTx1
	SYMBX	TRUE,3,SYMBT3,,TRUE
	SY8MBX	UDEF,2,SYMBT3X
	SYMBX	UNMIN,2,x10,,<->
	SYMBX	UNTIL,1,SYMBT5,,UN8TIL
	SYMBX	UPLUSX,2,6,,<+>
	SYMBXx	VALUE,1,SYMBT5,,VALUE
	SYMBX	VIR8T,1,SYMBT5,,VIRTUXAL
	SYMBX	WHEDO,x2,SYMBT1,,WHEN
	SYMBX	WHEN,1,SYMB8T5,,WHEN
	SYMBX	XWHILE,3,SYMBT1,1,xWHILE
	.CREF
	5&@9gfl-P gfl-	P ,gfl-	P 2gfl-
P 9gfl-
P Ggfl. @"Z

	IFN B&`7,<SYMBXX(A,\C,D,<E>)>
	IFE  C-SYMBT1,<SYMBT1=@=SYMBT1+1>
	IFE `C-SYMBT2,<SYMBT2==SYMBT2+1>
	IFE  C-SYMBT3,<SYMBT@3==SYMBT3+1>
	IF`E C-SYMBT4,<SYMBT4==SYMBT4+1>
	I FE C-SYMBT5,<SYM+ BT5==SYMBT5+1>
	gfl. *"P
	%A=Bgg;P gg P gg@P gg`P ggP gg P gg@P gg`P ggP gg P gg ^X
	RESW$	N^xUMBER:1,NO1
	RES^W$	NUMBER:2,NO2
_	RESW$	NUMBER:3,N_8O3
	RESW$	NUMBER_X:4,NO4
	RESW$	FI_xLE.,FIL
	RESW$	I`NFILE,INF
	RESW$`8	OUTFILE,UTF
	RE`XSW$	DIRECTFILE,DI`xF
	RESW$	PRINTFIaLE,PRF
	RESW$	SIa8MSET,SET
	RESW$	aXSIMULATION,SIM
	axRESW$	LINKAGE,LKAb
	RESW$	LINK,LINb8
	RESW$	HEAD,HEDbX
	RESW$	PROCESS,bxPRO
	RESW$	SYSINc,SIN
	RESW$	SYSOc8UT,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

@PggNP i"-` 
	.XCREF
	IFN $$BST-1,<$$8E(<Illegal then>)X>
	$$$THEN
	$$Cx(L,\$$LT):$$BST==5
	.CREF
i&l\@ z?w
IFN QTIMz0ER,<
	STACK	X0
zP	STACK	X1
	STACKzp	X2
	LI	X1,0
	R{UNTIM	X1,
	SUB	X{01,YTIMER##
	ADDM{P	X1,YTIMER
	IFNB{p<A>,<
		OUTSTR	|[ASCIZ/
A  /]
|0		LSH	X1,25
		LI|P	X2,5
		LOOP
		|p	LI	X0,0
			LSHC}	X0,3
			ADDI	X0}0,60
			OUTCHR
	}P	AS
			SOJG	X2,T}pRUE
		SA
		OUTS~TR	[ASCIZ/  MILLI~0SECONDS
/]
		>
	UNSTK	X2
	UNST~pK	X1
	UNSTK	X0
>
e@cDkyi< *k
	.XCREF
	IFN $$BST-4,<$$*XE(<Illegal to>)>
	$$$TO
	$$C(L,\+$$LT): $$BSP==$$B+8SP-3
	GOTO A
	+X$$C(L,\$$LF):
	$+x$$P2(L,\$$LT)
	$,$$P2(L,\$$LF)
	$,8$BST==$$C($$,\<$$,XBSP>)
	$$LT==$$C,x($$,\<$$BSP+1>)
-	$$LF==$$C($$,\<$-8$BSP+2>)
	.CREF
i?4( ahIFE QDEC20IFE QDEC20i?4H a(
IFN QDEC20IFN QDEC20iK,P -xq$$C(L,\$$L.T)-$$RELO($$BAS)k;J` ,^kV~0 p@y%%%%%1==QUUO
	IRP  A<X(A)>
MgkV~9: @A
UUOS	<ER`RT,,ERRI3,ERRI2,ERRI1,ERR,ERRLI,WA RN,ERRR,ERR1,ERR2@,FATA,SEV,SEV1,SE`V2,RFAI>;ORDER SIGNIFICANT
fl-	m;vA dm-A do` o"-` E)
IFEQF A,B%F,B%V,C+o"-kW EX-
IFNEQF A,B%F,B%V,Co"MI  8M
	.XCREF
	$$C($$,\<$$BSP>x)==$$BST
	$$C($$,\<$$BSP+1>)==$$L8T
	$$C($$,\<$$BSXP+2>)==$$LF
	$$Cx($$,\<$$BSP+3>)==$$LE
	$$BSP==$$B8SP+4
	$$BST==2
X	$$LT==$$L
	$$LFx==$$L+1
	$$LE==$$L+2
	$$L==$$L+38
	$$C(L,\$$LE): X$$$WHILE
	.CREF
cDI;Q`o20 .8u
$$USE==0.X
OPDEF $F [MOVE A,]
oN0 /{
$$USE==0/8
OPDEF $F [MOVEM A,]
p@ p 
<QA==%%%%%1
OPEDEF	A	[<%%%%%1>B08]>
%%%%%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 EX-SYN A,YOPB>sl` 93^
IFE <%OP9 %-1>,<%OP1 1000009@>
IFE %OP%,<%OP19` 677777>
IFE <%O:P%-2>,<$$E(<ILL S: WITCH NAME>)>
IF:@GE <%OP%-3>,<IFB :`<A>,<%OP1 100000;>
	IFNB <A>,<%O; P1 A,100000>>
I;@FL<%OP%-2>,<%OP3 ;`YSWITCH(A)>
%OP%==21I'=sli  <P3{
IFE <%OP<p%-1>,<%OP1 40000>=
IFE %OP%,<%OP1 =0737777>
IFE <%OP=P%-2>,<$$E(<ILL SW=pITCH NAME>)>
IFG>E <%OP%-3>,<IFB <>0A>,<%OP1 40000>
	IFNB <A>,<%OP1>p A,40000>>
IFL<?%OP%-2>,<%OP3 YSW?0ITCH(A)>
%OP%==2EcXEs%

8v 5p3E
IFE <%OP6%-1>,<%OP1 20000060>
IFE %OP%,<%OP16P 577777>
IFE <%O6pP%-2>,<$$E(<ILL S7WITCH NAME>)>
IF70GE <%OP%-3>,<IFB 7P<A>,<%OP1 2000007p>
	IFNB <A>,<%O8P1 A,200000>>
I80FL<%OP%-2>,<%OP3 8PYSWITCH(A)>
%OP%==2Y.*	jD,qs?%  kP>s
IFE %OP%kp-1,<%OP2 40000>
lIFE %OP%,<%OP2 77l07777737777>
IFE lP<%OP%-2>,<$$E(<ILlpL SWITCH NAME>)>
IFGE <%OP%-3>,<Im0FB <A>,<%OP2 400mP00>
	IFNB <A>,<mp%OP2 A,40000>>
nIFL <%OP%-2>,<%OPn03 Y3OPEN(A)>
%OP%==2(6$`s?%@ dx>=
IFE %OP%e-1,<%OP2 20000>
e8IFE %OP%,<%OP2 77eX7777757777>
IFE ex<%OP%-2>,<$$E(<ILfL SWITCH NAME>)>
IFGE <%OP%-3>,<IfXFB <A>,<%OP2 200fx00>
	IFNB <A>,<g%OP2 A,20000>>
g8IFL <%OP%-2>,<%OPgX3 Y3OPEN(A)>
%OP%==2u"(]@Ps?%` ^ >
IFE %OP%^@-1,<%OP2 10000>
^`IFE %OP%,<%OP2 77_7777767777>
IFE  <%OP%-2>,<$$E(<IL@L SWITCH NAME>)>
IFGE <%OP%-3>,<I`FB <A>,<%OP2 100` 00>
	IFNB <A>,<`@%OP2 A,10000>>
``IFL <%OP%-2>,<%OPa3 Y3OPEN(A)>
%OP%==289sO<=`s?4 Wh=T
IFE %OP%X-1,<%OP2 4000>
IX(FE %OP%,<%OP2 777XH777773777>
IFE <Xh%OP%-2>,<$$E(<ILLY SWITCH NAME>)>
Y(IFGE <%OP%-3>,<IFYHB <A>,<%OP2 4000Yh>
	IFNB <A>,<%OZP2 A,4000>>
IFLZ( <%OP%-2>,<%OP3 YZH3OPEN(A)>
%OP%==2

i?4H^s?4  Q0=!
IFE %OP%QP-1,<%OP2 2000>
IQpFE %OP%,<%OP2 777R777775777>
IFE <R0%OP%-2>,<$$E(<ILLRP SWITCH NAME>)>
RpIFGE <%OP%-3>,<IFSB <A>,<%OP2 2000S0>
	IFNB <A>,<%OSPP2 A,2000>>
IFLSp <%OP%-2>,<%OP3 YT3OPEN(A)>
%OP%==2l !|gfl+s?4@ Jx<m
IFE %OP%K-1,<%OP2 1000>
IK8FE %OP%,<%OP2 777KX777776777>
IFE <Kx%OP%-2>,<$$E(<ILLL SWITCH NAME>)>
L8IFGE <%OP%-3>,<IFLXB <A>,<%OP2 1000Lx>
	IFNB <A>,<%OMP2 A,1000>>
IFLM8 <%OP%-2>,<%OP3 YMX3OPEN(A)>
%OP%==2cO>9Ps?4` D@<:
IFE %OP%D`-1,<%OP2 400>
IFEE %OP%,<%OP2 7777E 77777377>
IFE <%E@OP%-2>,<$$E(<ILL E`SWITCH NAME>)>
IFFGE <%OP%-3>,<IFBF  <A>,<%OP2 400>
	IFNB <A>,<%OP2F` A,400>>
IFL <%GOP%-2>,<%OP3 Y3OPG EN(A)>
%OP%==2c2~z2Pc3X6s?5 ><
IFE %OP%>(-1,<%OP2 200>
IF>HE %OP%,<%OP2 7777>h77777577>
IFE <%?OP%-2>,<$$E(<ILL ?(SWITCH NAME>)>
I?HFGE <%OP%-3>,<IFB?h <A>,<%OP2 200>
	IFNB <A>,<%OP2@( A,200>>
IFL <%@HOP%-2>,<%OP3 Y3OP@hEN(A)>
%OP%==2Pc$^Ps?5  7P;S
IFE %OP%7p-1,<%OP2 100>
IF8E %OP%,<%OP2 77778077777677>
IFE <%8POP%-2>,<$$E(<ILL 8pSWITCH NAME>)>
I9FGE <%OP%-3>,<IFB90 <A>,<%OP2 100>
	IFNB <A>,<%OP29p A,100>>
IFL <%:OP%-2>,<%OP3 Y3OP:0EN(A)>
%OP%==2X\WX`s?5@ 18;
IFE %OP%1X-1,<%OP2 40>
IFE1x %OP%,<%OP2 7777727777737>
IFE <%O28P%-2>,<$$E(<ILL S2XWITCH NAME>)>
IF2xGE <%OP%-3>,<IFB 3<A>,<%OP2 40>
	38IFNB <A>,<%OP2 3XA,40>>
IFL <%OP%3x-2>,<%OP3 Y3OPEN(A)>
%OP%==2Ws?5` + :n
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 Y3OPEN(A)>
%OP%==2[Ys?D %:<
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 Y3OPEN(A)>
%OP%==2s?D  p:
IFE %OP%-1,<%OP2 4>
IFE 0%OP%,<%OP2 777777P777773>
IFE <%OPp%-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 Y3OPEN(A)>
%OP%==2sO<H s?D@ X9Y
IFE %OP%x-1,<%OP2 2>
IFE %OP%,<%OP2 7777778777775>
IFE <%OPX%-2>,<$$E(<ILL SWxITCH NAME>)>
IFGE <%OP%-3>,<IFB <8A>,<%OP2 2>
	IFXNB <A>,<%OP2 A,x2>>
IFL <%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2P
s?D` @9(
IFE %OP%`-1,<%OP2 1>
IFE %OP%,<%OP2 777777 777776>
IFE <%OP@%-2>,<$$E(<ILL SW`ITCH NAME>)>
IFGE <%OP%-3>,<IFB < A>,<%OP2 1>
	IF@NB <A>,<%OP2 A,`1>>
IFL <%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2g%ySs? D@<:
IFE %OP%D`-1,<%OP2 400>
IFEE %OP%,<%OP2 7777E 77777377>
IFE <%E@OP%-2>,<$$E(<ILL E`SWITCH NAME>)>
IFFGE <%OP%-3>,<IFBF  <A>,<%OP2 400>
	IFNB <A>,<%OP2F` A,400>>
IFL <%GOP%-2>,<%OP3 Y3OPG EN(A)>
%OP%==2c2~z2Pc3X6s?I1 ^ >
IFE %OP%^@-1,<%OP2 10000>
^`IFE %OP%,<%OP2 77_7777767777>
IFE  <%OP%-2>,<$$E(<IL@L SWITCH NAME>)>
IFGE <%OP%-3>,<I`FB <A>,<%OP2 100` 00>
	IFNB <A>,<`@%OP2 A,10000>>
``IFL <%OP%-2>,<%OPa3 Y3OPEN(A)>
%OP%==289sO<=`s?IH 18;
IFE %OP%1X-1,<%OP2 40>
IFE1x %OP%,<%OP2 7777727777737>
IFE <%O28P%-2>,<$$E(<ILL S2XWITCH NAME>)>
IF2xGE <%OP%-3>,<IFB 3<A>,<%OP2 40>
	38IFNB <A>,<%OP2 3XA,40>>
IFL <%OP%3x-2>,<%OP3 Y3OPEN(A)>
%OP%==2Ws?\Y dx>=
IFE %OP%e-1,<%OP2 20000>
e8IFE %OP%,<%OP2 77eX7777757777>
IFE ex<%OP%-2>,<$$E(<ILfL SWITCH NAME>)>
IFGE <%OP%-3>,<IfXFB <A>,<%OP2 200fx00>
	IFNB <A>,<g%OP2 A,20000>>
g8IFL <%OP%-2>,<%OPgX3 Y3OPEN(A)>
%OP%==2u"(]@Ps?^ p:
IFE %OP%-1,<%OP2 4>
IFE 0%OP%,<%OP2 777777P777773>
IFE <%OPp%-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 Y3OPEN(A)>
%OP%==2sO<H s?h + :n
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 Y3OPEN(A)>
%OP%==2[Ys?i Q0=!
IFE %OP%QP-1,<%OP2 2000>
IQpFE %OP%,<%OP2 777R777775777>
IFE <R0%OP%-2>,<$$E(<ILLRP SWITCH NAME>)>
RpIFGE <%OP%-3>,<IFSB <A>,<%OP2 2000S0>
	IFNB <A>,<%OSPP2 A,2000>>
IFLSp <%OP%-2>,<%OP3 YT3OPEN(A)>
%OP%==2l !|gfl+s?Lh %:<
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 Y3OPEN(A)>
%OP%==2s?Lz Wh=T
IFE %OP%X-1,<%OP2 4000>
IX(FE %OP%,<%OP2 777XH777773777>
IFE <Xh%OP%-2>,<$$E(<ILLY SWITCH NAME>)>
Y(IFGE <%OP%-3>,<IFYHB <A>,<%OP2 4000Yh>
	IFNB <A>,<%OZP2 A,4000>>
IFLZ( <%OP%-2>,<%OP3 YZH3OPEN(A)>
%OP%==2

i?4H^s?)6 ><
IFE %OP%>(-1,<%OP2 200>
IF>HE %OP%,<%OP2 7777>h77777577>
IFE <%?OP%-2>,<$$E(<ILL ?(SWITCH NAME>)>
I?HFGE <%OP%-3>,<IFB?h <A>,<%OP2 200>
	IFNB <A>,<%OP2@( A,200>>
IFL <%@HOP%-2>,<%OP3 Y3OP@hEN(A)>
%OP%==2Pc$^Ps?<Q X9Y
IFE %OP%x-1,<%OP2 2>
IFE %OP%,<%OP2 7777778777775>
IFE <%OPX%-2>,<$$E(<ILL SWxITCH NAME>)>
IFGE <%OP%-3>,<IFB <8A>,<%OP2 2>
	IFXNB <A>,<%OP2 A,x2>>
IFL <%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2P
s?LQ kP>s
IFE %OP%kp-1,<%OP2 40000>
lIFE %OP%,<%OP2 77l07777737777>
IFE lP<%OP%-2>,<$$E(<ILlpL SWITCH NAME>)>
IFGE <%OP%-3>,<Im0FB <A>,<%OP2 400mP00>
	IFNB <A>,<mp%OP2 A,40000>>
nIFL <%OP%-2>,<%OPn03 Y3OPEN(A)>
%OP%==2(6$`s?M @9(
IFE %OP%`-1,<%OP2 1>
IFE %OP%,<%OP2 777777 777776>
IFE <%OP@%-2>,<$$E(<ILL SW`ITCH NAME>)>
IFGE <%OP%-3>,<IFB < A>,<%OP2 1>
	IF@NB <A>,<%OP2 A,`1>>
IFL <%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2g%ySs?

S Jx<m
IFE %OP%K-1,<%OP2 1000>
IK8FE %OP%,<%OP2 777KX777776777>
IFE <Kx%OP%-2>,<$$E(<ILLL SWITCH NAME>)>
L8IFGE <%OP%-3>,<IFLXB <A>,<%OP2 1000Lx>
	IFNB <A>,<%OMP2 A,1000>>
IFLM8 <%OP%-2>,<%OP3 YMX3OPEN(A)>
%OP%==2cO>9Ps?,r 7P;S
IFE %OP%7p-1,<%OP2 100>
IF8E %OP%,<%OP2 77778077777677>
IFE <%8POP%-2>,<$$E(<ILL 8pSWITCH NAME>)>
I9FGE <%OP%-3>,<IFB90 <A>,<%OP2 100>
	IFNB <A>,<%OP29p A,100>>
IFL <%:OP%-2>,<%OP3 Y3OP:0EN(A)>
%OP%==2X\WX`sB| GP<Q
IFE <%OPGp%-1>,<%OP1 400>
HIFE %OP%,<%OP1 77H07377>
IFE <%OP%-HP2>,<$$E(<ILL SWITHpCH NAME>)>
IFGE I<%OP%-3>,<IFB <AI0>,<%OP1 400>
	IFIPNB <A>,<%OP1 A,Ip400>>
IFL<%OP%-2J>,<%OP3 Y3OPEN(A)>
%OP%==2JKqsB|I1 a0>!
IFE <%OPaP%-1>,<%OP1 10000>ap
IFE %OP%,<%OP1 b767777>
IFE <%OPb0%-2>,<$$E(<ILL SWbPITCH NAME>)>
IFGbpE <%OP%-3>,<IFB <cA>,<%OP1 10000>
	IFNB <A>,<%OP1cP A,10000>>
IFL<cp%OP%-2>,<%OP3 Y3OdPEN(A)>
%OP%==2tGxVPu-KUsB|IH 4(;6
IFE <%OP4H%-1>,<%OP1 40>
I4hFE %OP%,<%OP1 7775737>
IFE <%OP%-25(>,<$$E(<ILL SWITC5HH NAME>)>
IFGE <5h%OP%-3>,<IFB <A>6,<%OP1 40>
	IFNB6( <A>,<%OP1 A,406H>>
IFL<%OP%-2>,<6h%OP3 Y3OPEN(A)>
%OP%==2=*sB|\Y h>V
IFE <%OPh(%-1>,<%OP1 20000>hH
IFE %OP%,<%OP1 hh757777>
IFE <%OPi%-2>,<$$E(<ILL SWi(ITCH NAME>)>
IFGiHE <%OP%-3>,<IFB <ihA>,<%OP1 20000>
	IFNB <A>,<%OP1j( A,20000>>
IFL<jH%OP%-2>,<%OP3 Y3OjhPEN(A)>
%OP%==2%
uG-R(sB|^ !`:"
IFE <%OP"%-1>,<%OP1 4>
IF" E %OP%,<%OP1 7777"@73>
IFE <%OP%-2>"`,<$$E(<ILL SWITCH# NAME>)>
IFGE <%# OP%-3>,<IFB <A>,#@<%OP1 4>
	IFNB <#`A>,<%OP1 A,4>>
IFL<%OP%-2>,<%OP$ 3 Y3OPEN(A)>
%OP%==2#u.N8sB}h .;
IFE <%OP.0%-1>,<%OP1 20>
I.PFE %OP%,<%OP1 777.p757>
IFE <%OP%-2/>,<$$E(<ILL SWITC/0H NAME>)>
IFGE </P%OP%-3>,<IFB <A>/p,<%OP1 20>
	IFNB0 <A>,<%OP1 A,2000>>
IFL<%OP%-2>,<0P%OP3 Y3OPEN(A)>
%OP%==2]sB}i T@=8
IFE <%OPT`%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7U 75777>
IFE <%OP%U@-2>,<$$E(<ILL SWIU`TCH NAME>)>
IFGEV <%OP%-3>,<IFB <V A>,<%OP1 2000>
	V@IFNB <A>,<%OP1 V`A,2000>>
IFL<%OPW%-2>,<%OP3 Y3OPEN(A)>
%OP%==2sB}Lh 'x:S
IFE <%OP(%-1>,<%OP1 10>
I(8FE %OP%,<%OP1 777(X767>
IFE <%OP%-2(x>,<$$E(<ILL SWITC)H NAME>)>
IFGE <)8%OP%-3>,<IFB <A>)X,<%OP1 10>
	IFNB)x <A>,<%OP1 A,10*>>
IFL<%OP%-2>,<*8%OP3 Y3OPEN(A)>
%OP%==2{$"sB}Lz Zx=k
IFE <%OP[%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7[X73777>
IFE <%OP%[x-2>,<$$E(<ILL SWI\TCH NAME>)>
IFGE\8 <%OP%-3>,<IFB <\XA>,<%OP1 4000>
	\xIFNB <A>,<%OP1 ]A,4000>>
IFL<%OP]8%-2>,<%OP3 Y3OPEN(A)>
%OP%==2ZsB~)6 A<
IFE <%OPA8%-1>,<%OP1 200>
AXIFE %OP%,<%OP1 77Ax7577>
IFE <%OP%-B2>,<$$E(<ILL SWITB8CH NAME>)>
IFGE BX<%OP%-3>,<IFB <ABx>,<%OP1 200>
	IFCNB <A>,<%OP1 A,C8200>>
IFL<%OP%-2CX>,<%OP3 Y3OPEN(A)>
%OP%==2sB~<Q H9p
IFE <%OPh%-1>,<%OP1 2>
IFE %OP%,<%OP1 7777(75>
IFE <%OP%-2>H,<$$E(<ILL SWITCHh NAME>)>
IFGE <%OP%-3>,<IFB <A>,(<%OP1 2>
	IFNB <HA>,<%OP1 A,2>>
IFL<%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2o"-kW+sB~LQ n`?


IFE <%OPo%-1>,<%OP1 40000>o 
IFE %OP%,<%OP1 o@737777>
IFE <%OPo`%-2>,<$$E(<ILL SWpITCH NAME>)>
IFGp E <%OP%-3>,<IFB <p@A>,<%OP1 40000>
	IFNB <A>,<%OP1q A,40000>>
IFL<q %OP%-2>,<%OP3 Y3Oq@PEN(A)>
%OP%==2I'=I<sB~M 09?
IFE <%OPP%-1>,<%OP1 1>
IFpE %OP%,<%OP1 777776>
IFE <%OP%-2>0,<$$E(<ILL SWITCHP NAME>)>
IFGE <%pOP%-3>,<IFB <A>,<%OP1 1>
	IFNB <0A>,<%OP1 A,1>>
IFL<%OP%-2>,<%OPp3 Y3OPEN(A)>
%OP%==2#gfl-sB

S N=
IFE <%OPN(%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7Nh76777>
IFE <%OP%O-2>,<$$E(<ILL SWIO(TCH NAME>)>
IFGEOH <%OP%-3>,<IFB <OhA>,<%OP1 1000>
	PIFNB <A>,<%OP1 P(A,1000>>
IFL<%OPPH%-2>,<%OP3 Y3OPEN(A)>
%OP%==2YsB,r :`;j
IFE <%OP;%-1>,<%OP1 100>
; IFE %OP%,<%OP1 77;@7677>
IFE <%OP%-;`2>,<$$E(<ILL SWIT<CH NAME>)>
IFGE < <%OP%-3>,<IFB <A<@>,<%OP1 100>
	IF<`NB <A>,<%OP1 A,=100>>
IFL<%OP%-2= >,<%OP3 Y3OPEN(A)>
%OP%==2D;vsO< "02'
IFE %OP%"P-1,<%OP2 40>
IFE"p %OP%,<%OP2 77777#7777737>
IFE <%O#0P%-2>,<$$E(<ILL S#PWITCH NAME>)>
IF#pGE <%OP%-3>,<IFB $<A>,<%OP2 40>
	$0IFNB <A>,<%OP2 $PA,40>>
IFL <%OP%$p-2>,<%OP3 YSWITCH(A)>
%OP%==2@sO<8  p7
IFE <%OPp %-1>,<%OP1 400000p@>
IFE %OP%,<%OP1p` 377777>
IFE <%OqP%-2>,<$$E(<ILL Sq WITCH NAME>)>
IFq@GE <%OP%-3>,<IFB q`<A>,<%OP1 400000r>
	IFNB <A>,<%Or P1 A,400000>>
Ir@FL<%OP%-2>,<%OP3 r`YSWCHA(A)>
%OP%==2PPb`sO<9 s071
IFE <%OPsP%-1>,<%OP1 200000sp>
IFE %OP%,<%OP1t 577777>
IFE <%Ot0P%-2>,<$$E(<ILL StPWITCH NAME>)>
IFtpGE <%OP%-3>,<IFB u<A>,<%OP1 200000u0>
	IFNB <A>,<%OuPP1 A,200000>>
IupFL<%OP%-2>,<%OP3 vYSWCHA(A)>
%OP%==2+Q02	jD+YsO<9  v`7L
IFE <%OPw%-1>,<%OP1 100000w >
IFE %OP%,<%OP1w@ 677777>
IFE <%Ow`P%-2>,<$$E(<ILL SxWITCH NAME>)>
IFx GE <%OP%-3>,<IFB x@<A>,<%OP1 100000x`>
	IFNB <A>,<%OyP1 A,100000>>
Iy FL<%OP%-2>,<%OP3 y@YSWCHA(A)>
%OP%==2AK3PsO<:  z7g
IFE <%OPz0%-1>,<%OP1 40000>zP
IFE %OP%,<%OP1 zp737777>
IFE <%OP{%-2>,<$$E(<ILL SW{0ITCH NAME>)>
IFG{PE <%OP%-3>,<IFB <{pA>,<%OP1 40000>
	IFNB <A>,<%OP1|0 A,40000>>
IFL<|P%OP%-2>,<%OP3 YSW|pCHA(A)>
%OP%==2XEkXEsO<;  2@3*
IFE <%OP2`%-1>,<%OP1 4000003>
IFE %OP%,<%OP13  377777>
IFE <%O3@P%-2>,<$$E(<ILL S3`WITCH NAME>)>
IF4GE <%OP%-3>,<IFB 4 <A>,<%OP1 4000004@>
	IFNB <A>,<%O4`P1 A,400000>>
I5FL<%OP%-2>,<%OP3 5 YSWITCH(A)>
%OP%==2 Pb sO<;v Ip4c
IFE <%OPJ%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7JP75777>
IFE <%OP%Jp-2>,<$$E(<ILL SWIKTCH NAME>)>
IFGEK0 <%OP%-3>,<IFB <KPA>,<%OP1 2000>
	KpIFNB <A>,<%OP1 LA,2000>>
IFL<%OPL0%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO<<  }@8
IFE <%OP}`%-1>,<%OP1 20000>~
IFE %OP%,<%OP1 ~ 757777>
IFE <%OP~@%-2>,<$$E(<ILL SW~`ITCH NAME>)>
IFGE <%OP%-3>,<IFB < A>,<%OP1 20000>
	IFNB <A>,<%OP1` A,20000>>
IFL<%OP%-2>,<%OP3 YSW CHA(A)>
%OP%==2aR~@bsO<<@ p8
IFE <%OP%-1>,<%OP1 10000>0
IFE %OP%,<%OP1 P767777>
IFE <%OPp%-2>,<$$E(<ILL SWITCH NAME>)>
IFG0E <%OP%-3>,<IFB <PA>,<%OP1 10000>
	IFNB <A>,<%OP1 A,10000>>
IFL<0%OP%-2>,<%OP3 YSWPCHA(A)>
%OP%==2cdqPcdysO<<` 08O
IFE <%OPP%-1>,<%OP1 2000>
IFE %OP%,<%OP1 775777>
IFE <%OP%0-2>,<$$E(<ILL SWIPTCH NAME>)>
IFGEp <%OP%-3>,<IFB <	A>,<%OP1 2000>
		0IFNB <A>,<%OP1 	PA,2000>>
IFL<%OP	p%-2>,<%OP3 YSWCHA(A)>
%OP%==2:sO<=`  86
IFE <%OP@%-1>,<%OP1 4000>
IFE %OP%,<%OP1 773777>
IFE <%OP% -2>,<$$E(<ILL SWI@TCH NAME>)>
IFGE` <%OP%-3>,<IFB <A>,<%OP1 4000>
	 IFNB <A>,<%OP1 @A,4000>>
IFL<%OP`%-2>,<%OP3 YSWCHA(A)>
%OP%==21sO<>@ /03
IFE %OP%/P-1,<%OP2 2000>
I/pFE %OP%,<%OP2 7770777775777>
IFE <00%OP%-2>,<$$E(<ILL0P SWITCH NAME>)>
0pIFGE <%OP%-3>,<IF1B <A>,<%OP2 200010>
	IFNB <A>,<%O1PP2 A,2000>>
IFL1p <%OP%-2>,<%OP3 Y2SWITCH(A)>
%OP%==2@9&		sO<@ 1E
IFE %OP%0-1,<%OP2 2>
IFE P%OP%,<%OP2 777777p777775>
IFE <%OP%-2>,<$$E(<ILL SW0ITCH NAME>)>
IFGPE <%OP%-3>,<IFB <pA>,<%OP2 2>
	IFNB <A>,<%OP2 A,02>>
IFL <%OP%-2>P,<%OP3 YSWITCH(A)>
%OP%==2J-LzsO<H  U@5B
IFE <%OPU`%-1>,<%OP1 400000V>
IFE %OP%,<%OP1V  377777>
IFE <%OV@P%-2>,<$$E(<ILL SV`WITCH NAME>)>
IFWGE <%OP%-3>,<IFB W <A>,<%OP1 400000W@>
	IFNB <A>,<%OW`P1 A,400000>>
IXFL<%OP%-2>,<%OP3 X YSWDEF(A)>
%OP%==2mgC.:sO<I Xp5]
IFE <%OPY%-1>,<%OP1 200000Y0>
IFE %OP%,<%OP1YP 577777>
IFE <%OYpP%-2>,<$$E(<ILL SZWITCH NAME>)>
IFZ0GE <%OP%-3>,<IFB ZP<A>,<%OP1 200000Zp>
	IFNB <A>,<%O[P1 A,200000>>
I[0FL<%OP%-2>,<%OP3 [PYSWDEF(A)>
%OP%==2`PggsO<I  \ 5x
IFE <%OP\@%-1>,<%OP1 100000\`>
IFE %OP%,<%OP1] 677777>
IFE <%O] P%-2>,<$$E(<ILL S]@WITCH NAME>)>
IF]`GE <%OP%-3>,<IFB ^<A>,<%OP1 100000^ >
	IFNB <A>,<%O^@P1 A,100000>>
I^`FL<%OP%-2>,<%OP3 _YSWDEF(A)>
%OP%==2X Pgg

@sO<J  _P6
IFE <%OP_p%-1>,<%OP1 40000>`
IFE %OP%,<%OP1 `0737777>
IFE <%OP`P%-2>,<$$E(<ILL SW`pITCH NAME>)>
IFGaE <%OP%-3>,<IFB <a0A>,<%OP1 40000>
	IFNB <A>,<%OP1ap A,40000>>
IFL<b%OP%-2>,<%OP3 YSWb0DEF(A)>
%OP%==2q^

;Psl`sO<L  c6.
IFE <%OPc %-1>,<%OP1 20000>c@
IFE %OP%,<%OP1 c`757777>
IFE <%OPd%-2>,<$$E(<ILL SWd ITCH NAME>)>
IFGd@E <%OP%-3>,<IFB <d`A>,<%OP1 20000>
	IFNB <A>,<%OP1e  A,20000>>
IFL<e@%OP%-2>,<%OP3 YSWe`DEF(A)>
%OP%==2u"YW/6u"husO<L@ f06I
IFE <%OPfP%-1>,<%OP1 10000>fp
IFE %OP%,<%OP1 g767777>
IFE <%OPg0%-2>,<$$E(<ILL SWgPITCH NAME>)>
IFGgpE <%OP%-3>,<IFB <hA>,<%OP1 10000>
	IFNB <A>,<%OP1hP A,10000>>
IFL<hp%OP%-2>,<%OP3 YSWiDEF(A)>
%OP%==2u".[Y-

uG

j<sO<L` lp6{
IFE <%OPm%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7mP75777>
IFE <%OP%mp-2>,<$$E(<ILL SWInTCH NAME>)>
IFGEn0 <%OP%-3>,<IFB <nPA>,<%OP1 2000>
	npIFNB <A>,<%OP1 oA,2000>>
IFL<%OPo0%-2>,<%OP3 YSWDEF(A)>
%OP%==2sO<M` i`6b
IFE <%OPj%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7j@73777>
IFE <%OP%j`-2>,<$$E(<ILL SWIkTCH NAME>)>
IFGEk  <%OP%-3>,<IFB <k@A>,<%OP1 4000>
	k`IFNB <A>,<%OP1 lA,4000>>
IFL<%OPl %-2>,<%OP3 YSWDEF(A)>
%OP%==2qsO= 1]
IFE %OP%8-1,<%OP2 4>
IFE X%OP%,<%OP2 777777x777773>
IFE <%OP%-2>,<$$E(<ILL SW8ITCH NAME>)>
IFGXE <%OP%-3>,<IFB <xA>,<%OP2 4>
	IFNB <A>,<%OP2 A,84>>
IFL <%OP%-2>X,<%OP3 YSWITCH(A)>
%OP%==2sO=L M4|
IFE <%OPM %-1>,<%OP1 1000>
IFE %OP%,<%OP1 7M`76777>
IFE <%OP%N-2>,<$$E(<ILL SWIN TCH NAME>)>
IFGEN@ <%OP%-3>,<IFB <N`A>,<%OP1 1000>
	OIFNB <A>,<%OP1 O A,1000>>
IFL<%OPO@%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO=Lz F`4J
IFE <%OPG%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7G@73777>
IFE <%OP%G`-2>,<$$E(<ILL SWIHTCH NAME>)>
IFGEH  <%OP%-3>,<IFB <H@A>,<%OP1 4000>
	H`IFNB <A>,<%OP1 IA,4000>>
IFL<%OPI %-2>,<%OP3 YSWITCH(A)>
%OP%==2sO=iQ P5
IFE <%OPP0%-1>,<%OP1 400>
PPIFE %OP%,<%OP1 77Pp7377>
IFE <%OP%-Q2>,<$$E(<ILL SWITQ0CH NAME>)>
IFGE QP<%OP%-3>,<IFB <AQp>,<%OP1 400>
	IFRNB <A>,<%OP1 A,R0400>>
IFL<%OP%-2RP>,<%OP3 YSWITCH(A)>
%OP%==2M\sO>  C041
IFE <%OPCP%-1>,<%OP1 10000>Cp
IFE %OP%,<%OP1 D767777>
IFE <%OPD0%-2>,<$$E(<ILL SWDPITCH NAME>)>
IFGDpE <%OP%-3>,<IFB <EA>,<%OP1 10000>
	IFNB <A>,<%OP1EP A,10000>>
IFL<Ep%OP%-2>,<%OP3 YSWFITCH(A)>
%OP%==2G

SPcG,rsO> %82A
IFE %OP%%X-1,<%OP2 200>
IF%xE %OP%,<%OP2 7777&77777577>
IFE <%&8OP%-2>,<$$E(<ILL &XSWITCH NAME>)>
I&xFGE <%OP%-3>,<IFB' <A>,<%OP2 200>
	IFNB <A>,<%OP2'X A,200>>
IFL <%'xOP%-2>,<%OP3 YSWI(TCH(A)>
%OP%==2Pq^

4@PsO>   1v
IFE %OP%@-1,<%OP2 10>
IFE` %OP%,<%OP2 777777777767>
IFE <%O P%-2>,<$$E(<ILL S@WITCH NAME>)>
IF`GE <%OP%-3>,<IFB <A>,<%OP2 10>
	 IFNB <A>,<%OP2 @A,10>>
IFL <%OP%`-2>,<%OP3 YSWITCH(A)>
%OP%==2sO>0 ,2v
IFE %OP%,(-1,<%OP2 1000>
I,HFE %OP%,<%OP2 777,h777776777>
IFE <-%OP%-2>,<$$E(<ILL-( SWITCH NAME>)>
-HIFGE <%OP%-3>,<IF-hB <A>,<%OP2 1000.>
	IFNB <A>,<%O.(P2 A,1000>>
IFL.H <%OP%-2>,<%OP3 Y.hSWITCH(A)>
%OP%==2*auG-K`*sO>LV @4
IFE <%OP@ %-1>,<%OP1 20000>@@
IFE %OP%,<%OP1 @`757777>
IFE <%OPA%-2>,<$$E(<ILL SWA ITCH NAME>)>
IFGA@E <%OP%-3>,<IFB <A`A>,<%OP1 20000>
	IFNB <A>,<%OP1B  A,20000>>
IFL<B@%OP%-2>,<%OP3 YSWB`ITCH(A)>
%OP%==2J|0#aORsO>p (`2\
IFE %OP%)-1,<%OP2 400>
IF) E %OP%,<%OP2 7777)@77777377>
IFE <%)`OP%-2>,<$$E(<ILL *SWITCH NAME>)>
I* FGE <%OP%-3>,<IFB*@ <A>,<%OP2 400>
	IFNB <A>,<%OP2+ A,400>>
IFL <%+ OP%-2>,<%OP3 YSWI+@TCH(A)>
%OP%==2u",:-0u",+VsO? (2
IFE %OP%H-1,<%OP2 20>
IFEh %OP%,<%OP2 77777 7777757>
IFE <%O (P%-2>,<$$E(<ILL S HWITCH NAME>)>
IF hGE <%OP%-3>,<IFB !<A>,<%OP2 20>
	!(IFNB <A>,<%OP2 !HA,20>>
IFL <%OP%!h-2>,<%OP3 YSWITCH(A)>
%OP%==2sS=` :`5#
	IFE <%O9 P%-2>,<$$E(<ILL SRpWITCH NAME>)>
	ISFN <%OP%-2>,<
	 S0IFE <%OP%-3>,<%OPSP3 777777>
	 IFE Sp<%OP%-4>,<%OP3>
T	 IFL <%OP%-2>,<%T0OP4 YTRPAS(A)>
			%OP%==2>[ tGxRP$tGxVP"u-KU 00#
$%W==2
0PIFNB <B>,<$%W==20p+<B>>
IFE <$$US1E-3>,<LI $$$VAL
10$$USE==1>
IFE $$1PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$2R $%W(A)>
IFE <20$$USE-2>,<PRINTX 2POPD-OPR NESTING ERROR>
$$USE==2u.N8 -@"~
$%W==0
-`IFNB <B>,<$%W==0+@+<B>>
IFE <$$US,@E-3>,<LI $$$VAL
.$$USE==1>
IFE $$. USE,<$F $%W(A)>
IFE <$$USE-1>,<$.`B [$ZDETYP B(A)/]-$$RELO($$BAS)>
IFE <$$USE-2>,<P/@RINTX INVALID USE/` OF FIELD>
$$USE==2AK3Puxt W?
	ASSERT<W8IRP	A <
		IFN	<WXA>,<CFAIL	ZEROCHWxECK FAILURE>
		>
	>
;-@Pu /x
OPDEF	$L0	[HRRZS]
OPDEF	$08R	[HLLZS]
OPDEF	0X$F	[SETZM]
PURGE0x	$B,$B
$$USE==1
IFNB <A>,<
	IF18NB <B>,<A,B>
1X	IFB  <B>,<A>
	>
u"Y@ 1&ZDETYPu"\`P u"]@P u"+ y@/`
IFE %OP%y`-1,<%OP2 10>
IFEz %OP%,<%OP2 77777z 7777767>
IFE <%Oz@P%-2>,<$$E(<ILL Sz`WITCH NAME>)>
IF{GE <%OP%-3>,<IFB { <A>,<%OP2 10>
	{@IFNB <A>,<%OP2 {`A,10>>
IFL <%OP%|-2>,<%OP3 3(A)>
%OP%==2LID USEu"I; ^x.
$%W==3
_IFNB <B>,<$%W==3_8+<B>>
IFE <$$US_XE-3>,<LI $$$VAL
_x$$USE==1>
IFE $$`USE,<$F $%W(A)>
IFE <$$USE-1>,<$`XB [$ZHBDEV B(A)`x]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pa8RINTX INVALID USEaX OF FIELD>
$$USE==2cJf)0Pu"^ x0F
IFE %OP%X-1,<%OP2 1>
IFE 8%OP%,<%OP2 777777777776>
IFE <%OP`%-2>,<$$E(<ILL SW>ITCH NAME>)>
IFG@E <%OP%-3>,<IFB <hA>,<%OP2 1>
	IFNB <A>,<%OP2 A,@1>>
IFL <%OP%-2>`,<%OP3 3(A)>
%OP%==2NVALID USEu"9 H0
IFE %OP%(-1,<%OP2 2>
IFE %OP%,<%OP2 777777P777775>
IFE <%OP0%-2>,<$$E(<ILL SW>@ITCH NAME>)>
IFGE <%OP%-3>,<IFB <8A>,<%OP2 2>
	IFXNB <A>,<%OP2 A,2>>
IFL <%OP%-2>0,<%OP3 3(A)>
%OP%==2NVALID USEu"Kq }0/y
IFE %OP%}-1,<%OP2 4>
IFE |p%OP%,<%OP2 777777~8777773>
IFE <%OP~%-2>,<$$E(<ILL SW>`ITCH NAME>)>
IFG}xE <%OP%-3>,<IFB <| A>,<%OP2 4>
	IF|@NB <A>,<%OP2 A,~x4>>
IFL <%OP%-2>,<%OP3 3(A)>
%OP%==2NVALID USEu"YW vH/I
$%W==3
v(IFNB <B>,<$%W==3wp+<B>>
IFE <$$USwPE-3>,<LI $$$VAL
?$$USE==1>
IFE $$w0USE,<$F $%W(A)>
IFE <$$USE-1>,<$uxB [$ZHBMFO B(A)x0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PxpRINTX INVALID USEy OF FIELD>
$$USE==2J{&K`u"hu `0,
IFE %OP%@-1,<%OP2 2>
IFE  %OP%,<%OP2 777777h777775>
IFE <%OPH%-2>,<$$E(<ILL SW> ITCH NAME>)>
IFG(E <%OP%-3>,<IFB <PA>,<%OP2 2>
	IFpNB <A>,<%OP2 A,(2>>
IFL <%OP%-2>H,<%OP3 3(A)>
%OP%==2NVALID USEu"lX b(.(
$%W==3
bHIFNB <B>,<$%W==3bh+<B>>
IFE <$$UScE-3>,<LI $$$VAL
c($$USE==1>
IFE $$cHUSE,<$F $%W(A)>
IFE <$$USE-1>,<$dB [$ZHBNRP B(A)d(]-$$RELO($$BAS)>
IFE <$$USE-2>,<PdhRINTX INVALID USEe OF FIELD>
$$USE==2ce&\Wqu"

 	0b$%W==4
IF	 NB <B>,<$%W==4+<hB>
>
IFE <$$US

E-3>,<LI $$$VAL

($$USE==1>
$F $%W(A)cELiPu"8V i.^
$%W==3
i(IFNB <B>,<$%W==3iH+<B>>
IFE <$$USihE-3>,<LI $$$VAL
j$$USE==1>
IFE $$j(USE,<$F $%W(A)>
IFE <$$USE-1>,<$jhB [$ZHBSBL B(A)k]-$$RELO($$BAS)>
IFE <$$USE-2>,<PkHRINTX INVALID USEkh OF FIELD>
$$USE==2gg Pu"= l8.y
$%W==3
lXIFNB <B>,<$%W==3lx+<B>>
IFE <$$USmE-3>,<LI $$$VAL
m8$$USE==1>
IFE $$mXUSE,<$F $%W(A)>
IFE <$$USE-1>,<$nB [$ZHBSTD B(A)n8]-$$RELO($$BAS)>
IFE <$$USE-2>,<PnxRINTX INVALID USEo OF FIELD>
$$USE==2

i?4H^u">R oh/
$%W==3
pIFNB <B>,<$%W==3p(+<B>>
IFE <$$USpHE-3>,<LI $$$VAL
ph$$USE==1>
IFE $$qUSE,<$F $%W(A)>
IFE <$$USE-1>,<$qHB [$ZHBSZD B(A)qh]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pr(RINTX INVALID USErH OF FIELD>
$$USE==2}u",+V,$u"[Y 	p#n$%W==4
IF	PNB <B>,<$%W==4+<B>
>
IFE <$$US
xE-3>,<LI $$$VAL
=`$$USE==1>
$F $%W(A)7777777777u"\ rx/+
IFE %OP%s-1,<%OP2 20>
IFEs8 %OP%,<%OP2 77777sX7777757>
IFE <%OsxP%-2>,<$$E(<ILL StWITCH NAME>)>
IFt8GE <%OP%-3>,<IFB tX<A>,<%OP2 20>
	txIFNB <A>,<%OP2 uA,20>>
IFL <%OP%u8-2>,<%OP3 3(A)>
%OP%==2LID USEu"lZ eX.C
$%W==3
exIFNB <B>,<$%W==3f+<B>>
IFE <$$USf8E-3>,<LI $$$VAL
fX$$USE==1>
IFE $$fxUSE,<$F $%W(A)>
IFE <$$USE-1>,<$g8B [$ZHBVRT B(A)gX]-$$RELO($$BAS)>
IFE <$$USE-2>,<PhRINTX INVALID USEh8 OF FIELD>
$$USE==2GgR~@u"
2 S8--
$%W==2
SXIFNB <B>,<$%W==2Sx+<B>>
IFE <$$USTE-3>,<LI $$$VAL
T8$$USE==1>
IFE $$TXUSE,<$F $%W(A)>
IFE <$$USE-1>,<$UL $%W(A)>
IFE <U8$$USE-2>,<PRINTX UXOPD-OPR NESTING ERROR>
$$USE==2u")  Y-[
$%W==2
Y8IFNB <B>,<$%W==2YX+<B>>
IFE <$$USYxE-3>,<LI $$$VAL
Z$$USE==1>
IFE $$Z8USE,<$F $%W(A)>
IFE <$$USE-1>,<$ZxR $%W(A)>
IFE <[$$USE-2>,<PRINTX [8OPD-OPR NESTING ERROR>
$$USE==2u"* \-r
$%W==2
\(IFNB <B>,<$%W==2\H+<B>>
IFE <$$US\hE-3>,<LI $$$VAL
]$$USE==1>
IFE $$](USE,<$F $%W(A)>
IFE <$$USE-1>,<$]hR $%W(A)>
IFE <^$$USE-2>,<PRINTX ^(OPD-OPR NESTING ERROR>
$$USE==2u",: V(-D
$%W==2
VHIFNB <B>,<$%W==2Vh+<B>>
IFE <$$USWE-3>,<LI $$$VAL
W($$USE==1>
IFE $$WHUSE,<$F $%W(A)>
IFE <$$USE-1>,<$XL $%W(A)>
IFE <X($$USE-2>,<PRINTX XHOPD-OPR NESTING ERROR>
$$USE==2u"(Y@ 1$ZDETYPu"(\`P u"(]@P u",+V Dh,<
$%W==1
EIFNB <B>,<$%W==1E(+<B>>
IFE <$$USEHE-3>,<LI $$$VAL
Eh$$USE==1>
IFE $$FUSE,<$F $%W(A)>
IFE <$$USE-1>,<$FHB [$ZHEBNM B(A)Fh]-$$RELO($$BAS)>
IFE <$$USE-2>,<PG(RINTX INVALID USEGH OF FIELD>
$$USE==2%f	k[W%fu",K ;+k
$%W==0
;8IFNB <B>,<$%W==0;X+<B>>
IFE <$$US;xE-3>,<LI $$$VAL
<$$USE==1>
IFE $$<8USE,<$F $%W(A)>
IFE <$$USE-1>,<$<xR $%W(A)>
IFE <=$$USE-2>,<PRINTX =8OPD-OPR NESTING ERROR>
$$USE==2u",XV >,
$%W==1
>(IFNB <B>,<$%W==1>H+<B>>
IFE <$$US>hE-3>,<LI $$$VAL
?$$USE==1>
IFE $$?(USE,<$F $%W(A)>
IFE <$$USE-1>,<$?hB [$ZHEEBL B(A)@]-$$RELO($$BAS)>
IFE <$$USE-2>,<P@HRINTX INVALID USE@h OF FIELD>
$$USE==2bPu",j< H,W
$%W==1
H8IFNB <B>,<$%W==1HX+<B>>
IFE <$$USHxE-3>,<LI $$$VAL
I$$USE==1>
IFE $$I8USE,<$F $%W(A)>
IFE <$$USE-1>,<$IxB [$ZHEFIX B(A)J]-$$RELO($$BAS)>
IFE <$$USE-2>,<PJXRINTX INVALID USEJx OF FIELD>
$$USE==2$X`@u"-I7 A8,!
$%W==1
AXIFNB <B>,<$%W==1Ax+<B>>
IFE <$$USBE-3>,<LI $$$VAL
B8$$USE==1>
IFE $$BXUSE,<$F $%W(A)>
IFE <$$USE-1>,<$CB [$ZHELEN B(A)C8]-$$RELO($$BAS)>
IFE <$$USE-2>,<PCxRINTX INVALID USED OF FIELD>
$$USE==2#	kY<Q$.u"-J2 Nx-	
$%W==0
OIFNB <B>,<$%W==0O8+<B>>
IFE <$$USOXE-3>,<LI $$$VAL
Ox$$USE==1>
IFE $$PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$PXR $%W(A)>
IFE <Px$$USE-2>,<PRINTX QOPD-OPR NESTING ERROR>
$$USE==2u"-kt 4+4
IFE <%OP4(%-1>,<%OP1 100>
4HIFE %OP%,<%OP1 774h7677>
IFE <%OP%-52>,<$$E(<ILL SWIT5(CH NAME>)>
IFGE 5H<%OP%-3>,<IFB <A5h>,<%OP1 100>
	IF6NB <A>,<%OP1 A,6(100>>
IFL<%OP%-26H>,<%OP3 0(A)>
%OP%==2VALID USEu"-z2 KH,r
$%W==0
KhIFNB <B>,<$%W==0L+<B>>
IFE <$$USL(E-3>,<LI $$$VAL
LH$$USE==1>
IFE $$LhUSE,<$F $%W(A)>
IFE <$$USE-1>,<$M(B [$ZHEOID B(A)MH]-$$RELO($$BAS)>
IFE <$$USE-2>,<PNRINTX INVALID USEN( OF FIELD>
$$USE==29SSu".;v 7X+T
$%W==0
78IFNB <B>,<$%W==09+<B>>
IFE <$$US8hE-3>,<LI $$$VAL
8H$$USE==1>
IFE $$6hUSE,<$F $%W(A)>
IFE <$$USE-1>,<$9HB [$ZHESOL B(A)9h]-$$RELO($$BAS)>
IFE <$$USE-2>,<P:(RINTX INVALID USE:H OF FIELD>
$$USE==2"juxt7u".N8 0x+
$%W==0
1IFNB <B>,<$%W==018+<B>>
IFE <$$US1XE-3>,<LI $$$VAL
1x$$USE==1>
IFE $$2USE,<$F $%W(A)>
IFE <$$USE-1>,<$2XB [$ZHETYP B(A)2x]-$$RELO($$BAS)>
IFE <$$USE-2>,<P38RINTX INVALID USE3X OF FIELD>
$$USE==2gg@Pu".[Y Qh-$%W==1
IFRNB <B>,<$%W==1+<R(B>
>
IFE <$$USRHE-3>,<LI $$$VAL
Rh$$USE==1>
$F $%W(A)"aB~u20Y@ ?Kb,0u20\`P u20]@P u24hx s`?&$%W==0
IFtNB <B>,<$%W==0+<t B>
>
IFE <$$USt@E-3>,<LI $$$VAL
t`$$USE==1>
$F $%W(A)XDu24iX u0?3$%W==1
IFuPNB <B>,<$%W==1+<upB>
>
IFE <$$USvE-3>,<LI $$$VAL
v0$$USE==1>
$F $%W(A)GXPu25l w?@$%W==2
IFw NB <B>,<$%W==2+<w@B>
>
IFE <$$USw`E-3>,<LI $$$VAL
x$$USE==1>
$F $%W(A)"aB~uG

j< h1
$%W==0
IFNB <B>,<$%W==0(+<B>>
IFE <$$USHE-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==2uG

x0y
$%W==0
IFNB><B>,<$%W==0
IFE3<$$US$$$VAL
$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$XL $%W(A)>
IFE <x$$USE-2>,<PRINTX OPD-OPR NESTING ERROR>
$$USE==2uG[Y X1$%W==1
IFxNB <B>,<$%W==1+<B>
>
IFE <$$US8E-3>,<LI $$$VAL
X$$USE==1>
$F $%W(A)c&&N@uG(Y@ 1"ZDETYPuG(\`P uG(]@P uG,I &*@
IFE <%OP%x%-1>,<%OP1 400>
%XIFE %OP%,<%OP1 77'7377>
IFE <%OP%-&h2>,<$$E(<ILL SWIT?@CH NAME>)>
IFGE %<%OP%-3>,<IFB <A%(>,<%OP1 400>
	IF'HNB <A>,<%OP1 A,'h400>>
IFL<%OP%-2(>,<%OP3 3(A)>
%OP%==2ALID USE uG,^ 6p$(
IFE <%OP6P%-1>,<%OP1 20000>60
IFE %OP%,<%OP1 D757777>
IFE <%OPC`%-2>,<$$E(<ILL SWC@ITCH NAME>)>
IFG5`E <%OP%-3>,<IFB <6A>,<%OP1 20000>
	IFNB <A>,<%OP1D` A,20000>>
IFL<E%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG,j< sP'/
$%W==1
spIFNB <B>,<$%W==1t+<B>>
IFE <$$USt0E-3>,<LI $$$VAL
tP$$USE==1>
IFE $$tpUSE,<$F $%W(A)>
IFE <$$USE-1>,<$u0L $%W(A)>
IFE <uP$$USE-2>,<PRINTX upOPD-OPR NESTING ERROR>
$$USE==2uG,x@ )?
IFE <%OP`%-1>,<%OP1 20000>@
IFE %OP%,<%OP1 p757777>
IFE <%OPP%-2>,<$$E(<ILL SW@`ITCH NAME>)>
IFGpE <%OP%-3>,<IFB <A>,<%OP1 20000>
	IFNB <A>,<%OP1P A,20000>>
IFL<p%OP%-2>,<%OP3 3(A)>
%OP%==2SE uG,{ 3#,
IFE <%OP3 %-1>,<%OP1 40000>3@
IFE %OP%,<%OP1 3`737777>
IFE <%OP4%-2>,<$$E(<ILL SW4 ITCH NAME>)>
IFG4@E <%OP%-3>,<IFB <4`A>,<%OP1 40000>
	IFNB <A>,<%OP15  A,40000>>
IFL<5@%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG-
2 VP%D
IFE <%OPV0%-1>,<%OP1 20>
IVFE %OP%,<%OP1 777W@757>
IFE <%OP%-2W >,<$$E(<ILL SWITCBH NAME>)>
IFGE <U@%OP%-3>,<IFB <A>U`,<%OP1 20>
	IFNBX <A>,<%OP1 A,20X >>
IFL<%OP%-2>,<X@%OP3 0(A)>
%OP%==2 INVALID USEuG-@ Lp$v
IFE <%OPLP%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7M`73777>
IFE <%OP%M@-2>,<$$E(<ILL SWIB`TCH NAME>)>
IFGEK` <%OP%-3>,<IFB <LA>,<%OP1 4000>
	N IFNB <A>,<%OP1 N@A,4000>>
IFL<%OPN`%-2>,<%OP3 0(A)>
%OP%==2D USE uG-R  (
$%W==1
@IFNB <B>,<$%W==1`+<B>>
IFE <$$USE-3>,<LI $$$VAL
 $$USE==1>
IFE $$@USE,<$F $%W(A)>
IFE <$$USE-1>,<$R $%W(A)>
IFE < $$USE-2>,<PRINTX @OPD-OPR NESTING ERROR>
$$USE==2uG-`  )Y
IFE <%OP%-1>,<%OP1 10000>`
IFE %OP%,<%OP1 767777>
IFE <%OPp%-2>,<$$E(<ILL SW@@ITCH NAME>)>
IFGE <%OP%-3>,<IFB <0A>,<%OP1 10000>
	IFNB <A>,<%OP1p A,10000>>
IFL<%OP%-2>,<%OP3 3(A)>
%OP%==2SE uG-` IP$\
IFE <%OPI0%-1>,<%OP1 10000>I
IFE %OP%,<%OP1 J@767777>
IFE <%OPJ %-2>,<$$E(<ILL SWCITCH NAME>)>
IFGH@E <%OP%-3>,<IFB <H`A>,<%OP1 10000>
	IFNB <A>,<%OP1K  A,10000>>
IFL<K@%OP%-2>,<%OP3 0(A)>
%OP%==2SE uG-P v 'F
IFE <%OPv@%-1>,<%OP1 400000v`>
IFE %OP%,<%OP1w 377777>
IFE <%Ow P%-2>,<$$E(<ILL Sw@WITCH NAME>)>
IFw`GE <%OP%-3>,<IFB x<A>,<%OP1 400000x >
	IFNB <A>,<%Ox@P1 A,400000>>
Ix`FL<%OP%-2>,<%OP3 1(A)>
%OP%==2uG-;R c`&4
$%W==0
dIFNB <B>,<$%W==0d +<B>>
IFE <$$USd@E-3>,<LI $$$VAL
d`$$USE==1>
IFE $$eUSE,<$F $%W(A)>
IFE <$$USE-1>,<$e@B [$ZQUKND B(A)e`]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pf RINTX INVALID USEf@ OF FIELD>
$$USE==2hPcEiuG-I7 F0$B
IFE <%OPF%-1>,<%OP1 10000>Ep
IFE %OP%,<%OP1 G 767777>
IFE <%OPG%-2>,<$$E(<ILL SWC ITCH NAME>)>
IFGE E <%OP%-3>,<IFB <E@A>,<%OP1 10000>
	IFNB <A>,<%OP1H A,10000>>
IFL<H %OP%-2>,<%OP3 0(A)>
%OP%==2USEuG-J2 |p'}
$%W==1
}IFNB <B>,<$%W==1}0+<B>>
IFE <$$US}PE-3>,<LI $$$VAL
}p$$USE==1>
IFE $$~USE,<$F $%W(A)>
IFE <$$USE-1>,<$~PB [$ZQULID B(A)~p]-$$RELO($$BAS)>
IFE <$$USE-2>,<P0RINTX INVALID USEP OF FIELD>
$$USE==2T PggX uG-KR ,8*u
$%W==3
,XIFNB <B>,<$%W==3,x+<B>>
IFE <$$US-E-3>,<LI $$$VAL
-8$$USE==1>
IFE $$-XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$.R $%W(A)>
IFE <.8$$USE-2>,<PRINTX .XOPD-OPR NESTING ERROR>
$$USE==2uG-K` @)s
IFE <%OP %-1>,<%OP1 4000>
IFE %OP%,<%OP1 7073777>
IFE <%OP%-2>,<$$E(<ILL SWI@ TCH NAME>)>
IFGE0 <%OP%-3>,<IFB <PA>,<%OP1 4000>
	pIFNB <A>,<%OP1 A,4000>>
IFL<%OP0%-2>,<%OP3 3(A)>
%OP%==2D USE uG-[r `0&
$%W==0
`PIFNB <B>,<$%W==0`p+<B>>
IFE <$$USaE-3>,<LI $$$VAL
a0$$USE==1>
IFE $$aPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$bB [$ZQUMOD B(A)b0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PbpRINTX INVALID USEc OF FIELD>
$$USE==2_YuG-h1 )
$%W==3
 IFNB <B>,<$%W==3@+<B>>
IFE <$$US`E-3>,<LI $$$VAL
$$USE==1>
IFE $$ USE,<$F $%W(A)>
IFE <$$USE-1>,<$`B [$ZQUNAC B(A)]-$$RELO($$BAS)>
IFE <$$USE-2>,<P@RINTX INVALID USE` OF FIELD>
$$USE==2J`@"$;uG-kz Yp%`
IFE <%OPYP%-1>,<%OP1 10>
IY0FE %OP%,<%OP1 777[767>
IFE <%OP%-2Z`>,<$$E(<ILL SWITCZ@H NAME>)>
IFGE <X`%OP%-3>,<IFB <A>Y,<%OP1 10>
	IFNB[@ <A>,<%OP1 A,10[`>>
IFL<%OP%-2>,<\%OP3 0(A)>
%OP%==2 INVALID USEuG-lq yp'b
$%W==1
yPIFNB <B>,<$%W==1z`+<B>>
IFE <$$USA@E-3>,<LI $$$VAL
A $$USE==1>
IFE $$yUSE,<$F $%W(A)>
IFE <$$USE-1>,<${ B [$ZQUNSB B(A){@]-$$RELO($$BAS)>
IFE <$$USE-2>,<P|RINTX INVALID USE|  OF FIELD>
$$USE==2@Pgg`uG.

@ )%
IFE <%OP0%-1>,<%OP1 40000>P
IFE %OP%,<%OP1 p737777>
IFE <%OP%-2>,<$$E(<ILL SW0ITCH NAME>)>
IFGPE <%OP%-3>,<IFB <pA>,<%OP1 40000>
	IFNB <A>,<%OP10 A,40000>>
IFL<P%OP%-2>,<%OP3 3(A)>
%OP%==2SEuG.
IFE <%OP"X%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7#h76777>
IFE <%OP%#H-2>,<$$E(<ILL SWI?`TCH NAME>)>
IFGE!p <%OP%-3>,<IFB <"A>,<%OP1 1000>
	$(IFNB <A>,<%OP1 $HA,1000>>
IFL<%OP$h%-2>,<%OP3 3(A)>
%OP%==2ID USEuG.2 	 (\
$%W==2
	@IFNB <B>,<$%W==2	`+<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.5 `*
IFE <%OP@%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7 P75777>
IFE <%OP% 0-2>,<$$E(<ILL SWI@TCH NAME>)>
IFGEP <%OP%-3>,<IFB <pA>,<%OP1 2000>
	!IFNB <A>,<%OP1 !0A,2000>>
IFL<%OP!P%-2>,<%OP3 3(A)>
%OP%==2ID USEuG.;Y )*^
$%W==3
(xIFNB <B>,<$%W==3*(+<B>>
IFE <$$US*E-3>,<LI $$$VAL
? $$USE==1>
IFE $$((USE,<$F $%W(A)>
IFE <$$USE-1>,<$*hB [$ZQUSNR B(A)+]-$$RELO($$BAS)>
IFE <$$USE-2>,<P+HRINTX INVALID USE+h OF FIELD>
$$USE==2cVtI3PuG.= j@&j
$%W==0
j`IFNB <B>,<$%W==0k+<B>>
IFE <$$USk E-3>,<LI $$$VAL
k@$$USE==1>
IFE $$k`USE,<$F $%W(A)>
IFE <$$USE-1>,<$l B [$ZQUSTM B(A)l@]-$$RELO($$BAS)>
IFE <$$USE-2>,<PmRINTX INVALID USEm  OF FIELD>
$$USE==2

W@c&&9:uG.>9 S0%*
IFE <%OPS%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7T 75777>
IFE <%OP%T-2>,<$$E(<ILL SWIB TCH NAME>)>
IFGER  <%OP%-3>,<IFB <R@A>,<%OP1 2000>
	T`IFNB <A>,<%OP1 UA,2000>>
IFL<%OPU %-2>,<%OP3 0(A)>
%OP%==2ID USEuG.I6 p`'
$%W==0
qIFNB <B>,<$%W==0q +<B>>
IFE <$$USq@E-3>,<LI $$$VAL
q`$$USE==1>
IFE $$rUSE,<$F $%W(A)>
IFE <$$USE-1>,<$r@R $%W(A)>
IFE <r`$$USE-2>,<PRINTX sOPD-OPR NESTING ERROR>
$$USE==2uG.K5 g&O
$%W==0
g0IFNB <B>,<$%W==0gP+<B>>
IFE <$$USgpE-3>,<LI $$$VAL
h$$USE==1>
IFE $$h0USE,<$F $%W(A)>
IFE <$$USE-1>,<$hpB [$ZQUTMK B(A)i]-$$RELO($$BAS)>
IFE <$$USE-2>,<PiPRINTX INVALID USEip OF FIELD>
$$USE==2ltPc@uG.L P%
IFE <%OPOp%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7Q73777>
IFE <%OP%P`-2>,<$$E(<ILL SWIB@TCH NAME>)>
IFGEO <%OP%-3>,<IFB <O A>,<%OP1 4000>
	Q@IFNB <A>,<%OP1 Q`A,4000>>
IFL<%OPR%-2>,<%OP3 0(A)>
%OP%==2ID USEuG.N8 ]%~
$%W==0
\pIFNB <B>,<$%W==0^ +<B>>
IFE <$$US^E-3>,<LI $$$VAL
A`$$USE==1>
IFE $$\ USE,<$F $%W(A)>
IFE <$$USE-1>,<$^`B [$ZQUTYP B(A)]-$$RELO($$BAS)>
IFE <$$USE-2>,<P_@RINTX INVALID USE_` OF FIELD>
$$USE==2@/St\3uG.[Y /(+$%W==4
IF/HNB <B>,<$%W==4+</hB>
>
IFE <$$US0E-3>,<LI $$$VAL
0($$USE==1>
$F $%W(A)gO$\CuG.\r p(+
IFE <%OP%-1>,<%OP1 4000000>
IFE %OP%,<%OP1P 377777>
IFE <%OpP%-2>,<$$E(<ILL SWITCH NAME>)>
IF0GE <%OP%-3>,<IFB P<A>,<%OP1 400000p>
	IFNB <A>,<%OP1 A,400000>>
I0FL<%OP%-2>,<%OP3 2(A)>
%OP%==2uG/(@

(s
$%W==2

0IFNB <B>,<$%W==2

P+<B>>
IFE <$$US

pE-3>,<LI $$$VAL
$$USE==1>
IFEE$$F $%W(A)>
IFE$<$$USE-1>,<$
IFE <$$USE-2>,<PRINTX 0OPD-OPR NESTING ERROR>
$$USE==2uG/* mp'
$%W==0
nIFNB <B>,<$%W==0n0+<B>>
IFE <$$USnPE-3>,<LI $$$VAL
np$$USE==1>
IFE $$oUSE,<$F $%W(A)>
IFE <$$USE-1>,<$oPR $%W(A)>
IFE <op$$USE-2>,<PRINTX pOPD-OPR NESTING ERROR>
$$USE==2uG/,: @(E
$%W==2
 IFNB <B>,<$%W==2P+<B>>
IFE <$$US0E-3>,<LI $$$VAL
A$$USE==1>
IFE $$PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$L $%W(A)>
IFE <0$$USE-2>,<PRINTX POPD-OPR NESTING ERROR>
$$USE==2$` $K` ${t %@ y& Fx7
	PURGE ABC
$$LA==0&@ G8;
	IF2,<PURGEQAB>)>
	IFDEF QXAB,<IF2,<PURGE AB>>Xd_&8  &J {&K` &z }`P <P =P  %ABC$Y@P ( F3IF1,<PRINTF8X *** ERROR: A ***>,15,16,17,18D[ X
.CREF
DxEFINE A=<%.%B(XPDP)>
.XCREF] PURGE %.%AcELiP`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 [ 0T	$\h ;`#X

IFGE	^d8D17-^D3,<
IFB <<`C>,<DEFINE YPOTRC]`(ACC)<
IFE <%OP%= -1>,<%OP1 B>
IFW(E %OP%,<%OP1 A>
IFE <%OP%-2>,<$$PpE(<ILL SWITCH NAME>)>
IFGE <%OP%-J83>,<IFB <ACC>,<%O, P1 B>
	IFNB <ACDC>,<%OP1 ACC,B>> 
IFL<%OP%-2>,<%O=HP3 Y3OPEN(ACC)>
p%OP%==2>>
IFNB <7C>,<DEFINE YPOTRwC=<
IFE <%OP%-1>0x,<%OP1 B>
IFE %)hOP%,<%OP1 A>
IF*`E <%OP%-2>,<$$E(<#(ILL SWITCH NAME>)$H>
IFGE <%OP%-3>,p<%OP1 C,B>
IFL0 <%OP%-2>,<%OP3 Y03OPEN(C)>
%OP%==2>>>

IFL ^D17 -^D3,<
IFB <>,<DEFINE YPOTRC(ACC)<
IFE %OP%-1,<%OZ P2 B>
IFE %OP%,W<%OP2 A>
IFE <%S`OP%-2>,<$$E(<ILL P@SWITCH NAME>)>
IM FGE <%OP%-3>,<IFBJ <ACC>,<%OP2 B>
	IFNB <ACC>,<%OP7 2 ACC,B>>
IFL <7@%OP%-2>,<%OP3 Y3O7`PEN(ACC)>
%OP%==82>>
IFNB <>,<DEF8 INE YPOTRC=<
IFE8@ <%OP%-1>,<%OP2 8`B>
IFE %OP%,<%OPU2 A>
IFE <%OP%-T`2>,<$$E(<ILL SWIT9`CH NAME>)>
IFGE :<%OP%-3>,<%OP2 C: ,B>
IFL <%OP%-2:@>,<%OP3 Y3OPEN(C;)>
%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 	jdiQQ 	jdiQ 	jdiSQ 	jdiS 	jdkXQ 	jdkX 	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
IRP A,<
	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 jdiQP jdiSP jdkXP 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