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

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

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

x{@P CL A0


	.XCREF
	IFN $$BST-10,<$Ap$E(<Illegal as>)>B
	$$BST==3
	$$$AS
	.CREF
CO\Z IcE=@ T
.XCREF
T0$$C($$,\<$$BSP>)=TP=$$BST
$$C($$,\<Tp$$BSP+1>)==$$L1
U$$C($$,\<$$BSP+2>U0)==$$L2
$$C($$,\UP<$$BSP+3>)==$$L3
$$C($$,\<$$BSP+4V>)==$$L4
$$C($$,V0\<$$BSP+5>)==$$L5VP
$$C($$,\<$$BSP+Vp6>)==$$L6
$$C($$W,\<$$BSP+7>)==$$LW07
$$C($$,\<$$BSPWP+10>)==$$L8
$$C(Wp$$,\<$$BSP+11>)==X$$L9
$$C($$,\<$$X0BSP+12>)==$$L10
XP$$BST==11
$$BSP=Xp=$$BSP+13
$$L1==Y$$L+1
$$L2==$$L+Y02
$$L3==$$L+3
$YP$L4==$$L+4
$$L5=Yp=$$L+5
$$L6==$$LZ+6
$$L7==$$L+7
Z0$$L8==$$L+10
$$LZP9==$$L+11
$$L10=Zp=$$L
$$L==$$L+12
.CREF
EJEJPRINTX AWXE[G2,W > ;r
	SKPINC
	NOP
,DMOVE,DGRNK  &;
	TITLE	@A     DECsystem-`10/20 SIMULA COMPILER %4A(310)  GVu@  4;
	IFDEF @.DIRECTIVE,<.DIRE`CTIVE .NOBIN>
	UNIVERSAL A     D ECsystem-10/20 SI@MULA COMPILER %4A(310)  ILER %4AIF=` R 3
 DEFINE R@X(NAM,NUMBER)=<
 	RADIX	8
	DSW	(N_@AM,Y3OPEN,NUMBER)!
 >
 DEFINE Y(P0P1,P2)=<SYN P1,YOP0p'P2>
	QOPNO==^D315
 IRP A,<
	RA10DIX	10
	X	(YOPA1P,\<35-QCHA>)
	R1pADIX	10
	X	(YPO2A,\<17-QCHA>)
	20Y	(YOPA,\QOPNO)
	QOPNO=QOPNO-1
 >
Pck[I  =`I TX
$$DEF==0Tx
IFE <^DC-^D36>U,<DEFINE A(XB,O)U8=
<$%W==B
IFNBUX <O>,<$%W==B+<O>Ux
>
IFE <$$USE-3V>,<LI $$$VAL
$$UV8SE==1>
$F $%W(XBVX)>
$$DEF==1>
IFVxE <^DC-^D18>,<IFWE <^DD-^D17>,
<W8;
DEFINE A(XB,OWX)=<
$%W==B
IFNWxB <O>,<$%W==B+<OX>>
IFE <$$USE-3>X8,<LI $$$VAL
$$USXXE==1>
IFE $$USE,Xx<$F $%W(XB)>
IFEY <$$USE-1>,<$L $%Y8W(XB)>
IFE <$$USYXE-2>,<PRINTX OPD-YxOPR NESTING ERRORZ>
$$USE==2>
$$DZ8EF==1>
IFE <^DDZX-^D35>,
<DEFINE ZxA(XB,O)=<
$%W==[B
IFNB <O>,<$%W[8==B+<O>>
IFE <$[X$USE-3>,<LI $$$VA[xL
$$USE==1>
IFE\ $$USE,<$F $%W(XB\8)>
IFE <$$USE-1>\X,<$R $%W(XB)>
IF\xE <$$USE-2>,<PRIN]TX OPD-OPR NESTIN]8G ERROR>
$$USE==]X2>
$$DEF==1>
>]x
IFE $$DEF,<
DEF^INE A(XB,O)=<
$^8%W==B
IFNB <O>,^X<$%W==B+<O>>
IF^xE <$$USE-3>,<LI $_$$VAL
$$USE==1>
IFE $$USE,<$F $%_XW(XB)>
IFE <$$US_xE-1>,<$B [$A O(X`B)]-$$RELO($$BAS)`8>
IFE <$$USE-2>,`X<PRINTX INVALID U`xSE OF FIELD>
$$UaSE==2>
$$DEF==1>a8
OPDEF $A [POINaXT C,B,D]
$A=ax=$A
%A==^DD
bIFE <^DC-1>,<DSW (A,B,D)>
I

@ I&` `In @I   I6~i  I6~i6 I6~k@  I6~kV  I:,p 1`;
	LD	A,2B
	DFN	A,A+1
gfl-QKgfl-	I:,{  2@;
	DFN	A,2`A+1
	STD	A,B
	DFN	A,A+1
I< 8PM
	.XCREF
	IFN $$BST-2,<$$9E(<Illegal do>)>
	$$$DO
	$$C(L,\9P$$LT): $$BST==7
	.CREF
cDI;IH bX
A%S==Bbx
A%V==D
DEFINE A%F=<C>
IJ  "x:c	PROC
.A#::	SAVE	<X2,X3,X4#8,X5>
	OUTSTR	[AS#XCIZ/            =#x====
RECORD TYPE$ A AT ADDRESS /]$8
	LI	X3,22
	MOV$XE	X4,X1
	EXEC	L2$x
	OUTSTR	[ASCIZ/%
            ===%8==

/]
	IRP B%X	<	OUTSTR	[ASCIZ/%xB/]
			OUTCHR	[&"="]
			SIZE	(QS&8Z,B)
			IFE	<QS&XZ-1>,<LI	X4,"0"
&x					 IFON	B(X1)'
					 LI	X4,"1"'8
					 OUTCHR	X4'X
					>
			IFN	'x<QSZ-1>,<LI	X3,QS(Z
					 LF	(X4) (8B(X1)
					 EXE(XC	L2
					>
			(xOUTSTR	[ASCIZ/
/)]
>
	OUTSTR	[AS)8CIZ/
/]
	RETURN)X
DEFINE	A	<EXEC)x .A>
L2():	SETZ*	X2,0
	DIVI	X2,3*8
	SKIPE	X3
	AOJ*X	X2,0
	MOVN	X3,X*x2
	IMULI	X3,3
	+ROT	X4,(X3)
L3()+8:	SETZ	X5,0
	ROT+XC	X4,3
	ADDI	X5,+x"0"
	OUTCHR	X5
,	DECR	X2,L3
	POP,8J	XPDP,0
	EPROC
ckPPIO8 vp_

IFL <^wD36-^DC>,<$$E(<Tw0OO BIG BIT NO>)>
IFE ^D36-^DC,<
 IFB <D>,<DEFINxE A(ACC)=<
	IFEx0 <%OP%-2>,<$$E(<IxPLL SWITCH NAME>)>xp
	IFN <%OP%-2>,<y
	 IFE <%OP%-3>,y0<%OP3 777777>
	 yPIFE <%OP%-4>,<%OPyp3>
	zIFL <%OP%-2z>,<%OP4 B(ACC)>
			%OP%==2>>>
 zPIFNB <D>,<DEFINEzp A=<
	IFE <%OP%{-2>,<$$E(<ILL SWI{0TCH NAME>)>
	IFN{P <%OP%-2>,<
	 IF{pE <%OP%-3>,<%OP3 |D,777777>
	 IFE|0 <%OP%-4>,<%OP3 |PD,>
	}IFL <%OP%-|p2>,<%OP4 B(D)>
		     %OP%==2>>}0>>
IFGE	^D35-^D}PC,<
	VA==1BC
}pIFE	^DC,<
	CA=~=377777777777>
I~0FN	^DC,<
	CA==~P-1*VA-1>
IFGE ^~pD17-^DC,<
	CA==CA_-^D18
	VA=0=VA_-^D18>

DEPFINE	$$TES1(X,Y,Zp)<

IFGE	^D17-^DC,<
IFB <Z>,<D0EFINE A(ACC)<
IPFE <%OP%-1>,<%OP1p Y>
IFE %OP%,<%OP1 X>
IFE <%OP%-02>,<$$E(<ILL SWITPCH NAME>)>
IFGE p<%OP%-3>,<IFB <ACC>,<%OP1 Y>
	IFN0B <ACC>,<%OP1 ACCP,Y>>
IFL<%OP%-2>p,<%OP3 B(ACC)>
%OP%==2>>
IFNB <0Z>,<DEFINE A=<
PIFE <%OP%-1>,<%OPp1 Y>
IFE %OP%,<%OP1 X>
IFE <%OP%0-2>,<$$E(<ILL SWIPTCH NAME>)>
IFGEp <%OP%-3>,<%OP1 Z,Y>
IFL <%OP%-2>0,<%OP3 B(Z)>
%OPP%==2>>>

IFL ^pD17-^DC,<
IFB <D>,<DEFINE A(AC0C)<
IFE %OP%-1,<P%OP2 Y>
IFE %OP%p,<%OP2 X>
IFE <%OP%-2>,<$$E(<ILL 0SWITCH NAME>)>
IPFGE <%OP%-3>,<IFBp <ACC>,<%OP2 Y>
	IFNB <ACC>,<%OP20 ACC,Y>>
IFL <%OPP%-2>,<%OP3 B(ACpC)>
%OP%==2>>
I	FNB <D>,<DEFINE 	0A=<
IFE <%OP%-1	P>,<%OP2 Y>
IFE %	pOP%,<%OP2 X>
IFE
 <%OP%-2>,<$$E(<I
0LL SWITCH NAME>)>
P
IFGE <%OP%-3>,<
p%OP2 Z,Y>
IFL <%OP%-2>,<%OP3 B(Z0)>
%OP%==2>>
>P
>
	$$TES1(\CA,p\VA,D)
	PURGE VA,CA
>
K3P -p
}
	.XCREF
	IFN $$BST-5,<$$.0E(<Illegal else>).P>
	$$LE==$$L
	$.p$L==$$L+1
	GOTO /$$C(L,\$$LE)-$$RE/0LO($$BAS)
	$$C(L/P,\$$LF): $$BST==6
	.CREF
K:$@ [0
.XCREF
[PIFN $$BST-11,<$$E[p(<Illegal endd>)>\
$$BSP==$$BSP-13\0
$$$PD2(L,\$$L1)\P
$$$PD2(L,\$$L2)\p
$$$PD2(L,\$$L3)]
$$$PD2(L,\$$L4)]0
$$$PD2(L,\$$L5)]P
$$$PD2(L,\$$L6)]p
$$$PD2(L,\$$L7)^
$$$PD2(L,\$$L8)^0
$$$PD2(L,\$$L9)^P
$$$PD2(L,\$$L10^p)
$$BST==$$C($$,_\$$BSP)
$$L1==$$0C($$,\<$$BSP+1>)
$$L2==$$C($$,\<$_p$BSP+2>)
$$L3==$`$C($$,\<$$BSP+3>)`0
$$L4==$$C($$,\<`P$$BSP+4>)
$$L5==`p$$C($$,\<$$BSP+5>a)
$$L6==$$C($$,\a0<$$BSP+6>)
$$L7=aP=$$C($$,\<$$BSP+7ap>)
$$L8==$$C($$,b\<$$BSP+10>)
$$Lb09==$$C($$,\<$$BSPbP+11>)
$$L10==$$Cbp($$,\<$$BSP+12>)
.CREF
K;$\S 89KENTER  QCHA,YELA{PKB~ 'XM
	IFE  ES'xSIZE,<$$E(<Underf(low in stack E>)>(8
	IFG ESSIZE,<
(X	IFNB <A>,<A=ET(xOP>
	ETOP=$$C(E,)\ESSIZE,$)
	$$$P)8(E,\ESSIZE,$)
	E)XSSIZE=ESSIZE-1
>@Mf9

gKCx` Bx9
.XCREF
 IFDEF $$SNOY,<PC8URGE $$SNOY>
 IFCXNDEF $$NO,<$$E(<ICxLLEGAL EPROC>)>
D IFDEF $$NO,<			;D8
	 $$T1==0
	 PUDXRGE	$$NO		;
 REPDxEAT $$NR,<
IFDEFE $$TEMP,<EPOP $$TE81>
IFNDEF $$TEMPEX,<PPOP $$T1>
	F$Ex$KILL	(\$$T1)>	;
	 PURGE	$$NR
 IF8FDEF $$TEMP,<			;FX
	FPURGE	$$SNOX
	GPURGE	$$TEMP>
	 PURGE $$T1
	 ENDD>KC.: %X9
	IFE  ES&SIZE -7777,<$$E(<&8Overflow in stack&X E>)>
	ESSIZE=ES&xSIZE+1
	$$C(E,\E'SSIZE,$)=ETOP
	ETOP=A
KK @KK @KK  `KK   KK@ KK` `KKJ  `KK   KK@  KOR@ KR~@ Kb,0 /X
.XCREF
 IFNB <B>,<
	 0$$LOOP==0
 IRP 08B,<
	 $$LOOP==$$0XLOOP-1
	.CREF
	0x STACK	B
	.XCRE1F>
>
	.CREF
	 18XEC	A ;
	.XCREF1X
 IFDEF $$LOOP,<1x
	 SUB	XPDP, [XW2D -$$LOOP,-$$LOOP28]
	 PURGE	$$LOOP>
.CREF
PMf9  M

k$$C(L,\$$LM0F)-$$RELO($$BAS)M$ M$ 0#
	.XCREF
	IFN<$$BST-5>*<$0P$BST-6>,<$$E(<Ill0pegal fi>)>
	IFE 1$$BST-5,<
	$$C(L10,\$$LF):>
	IFE $1P$BST-6,<
	$$C(L,1p\$$LE): $$$P2(L,\2$$LE)>
	$$$P2(L,20\$$LT)
	$$$P2(L,2P\$$LF)
	$$BSP==$2p$BSP-4
	$$BST==$3$C($$,\<$$BSP>)
30	$$LT==$$C($$,\<$3P$BSP+1>)
	$$LF==3p$$C($$,\<$$BSP+2>4)
	$$LE==$$C($$,40\<$$BSP+3>)
	.CREF
P GRNKM'@ @M'F  @M3&  `O&2 P
E
	.XCREF
	X=-1
	IRPC A,<
	X=X+1>
	IFN 0X,<$$E(<Queue namPe A not one lettper>)>
IF1,<	IFDEF AQSIZE,<$$E(<D0ouble decl. of quPeue A>)>>
	$$QpAB=0
	$$QAT=0
	AQSIZE=0
	IFB0 <B>,<
DEFINE  PAOUTQ(W)<
	IFE pAQSIZE,<$$E(<Underflow in queue 0A>)>
	IFNB <W>,<PW=AHEAD>
	AQSIpZE=AQSIZE-1
	$$$P(A,\$$QAB,%)0
	$$QAB=<$$QAPB+1>&7777
	IFN pAQSIZE,<AHEAD=$$C(A,\$$QAB,%)0>
>
DEFINE  AIPNQ(W)<
	IFE AQSpIZE-7777,<$$E(<Ov erflow in queue  0A>)>
	$$C(A,\$$ PQAT,%)=W
	IFE  pAQSIZE,<AHEAD=W>!
	AQSIZE=AQSIZ!0E+1
	$$QAT=<$$Q!PAT+1>&7777
>
>!p
	IFNB <B>,<
D"EFINE  AOUTQ(L,R"0)<
	IFE AQSIZE,"P<$$E(<Underflow i"pn queue A>)>
	I#FNB <L>,<L=AHEAD#0L>
	IFNB <R>,<R=#PAHEADR>
	AQSIZ#pE=AQSIZE-1
	$$$$P(A,\$$QAB,%)
	$$QAB=<$$QA$PB+1>&7777
	IFN $pAQSIZE,<AHEADL=$%$C(A,\$$QAB,%)%0/1000000
		AHEA%PDR=$$C(A,\$$QA%pB,%)&777777>
>
&DEFINE  AINQ(L,R&0)<
	IFE AQSIZE-&P7777,<$$E(<Overfl&pow in queue A>)>'
	$$C(A,\$$QAT'0,%)=L*1000000+R
'P	IFE AQSIZE,<AH'pEADL=L
	AHEADR=(R>
	AQSIZE=AQS(0IZE+1
	$$QAT=<$(P$QAT+1>&7777
>
>
.CREF
O&= 
P	I
	.XCREF
p
	X=-1
	IRPC A,<
	X=X+1>
	IFN 0X,<$$E(<Stack namPe A not one lettper>)>
	IFE X,<

IF1,<	IFDEF ASSI

0ZE,<$$E(<Double d

Pecl. of stack A>

p)>>
	ASSIZE=0	
	IFB	<B>,<ATOP
	IFNBO<B>,
	ATO	
	IFB <B>,<
DEFINE  APUS0H (D)<
	IFE  ASPSIZE -7777,<$$E(<pOverflow in stack A>)>
	ASSIZE=0ASSIZE+1
	$$C(PA,\ASSIZE,$)=ATpOP
	ATOP=D
>>
	IFNB <B>,<
DE0FINE  APUSH (D,EP)<
	IFE  ASSIZEp-7777,<$$E(<Overflow in stack A>)0>
	ASSIZE=ASSIPZE+1
	$$C(A,\ApSSIZE,$)=ATOPL*1000000+ATOPR
	0ATOPL=D
	ATOPR=PE
>>
	IFB <B>,p<
DEFINE  APOP(D)<
	IFE  ASSIZ0E,<$$E(<UnderflowP in stack A>)>
p	IFG ASSIZE,<
	IFNB <D>,<D=ATOP0>
	ATOP=$$C(A,P\ASSIZE,$)
	$$$pP(A,\ASSIZE,$)
	ASSIZE=ASSIZE0-1
>>>
	IFNB <PB>,<
DEFINE  APpOP (D,E)<
	IFE  ASSIZE,<$$E(<Und0erflow in stack PA>)>
	IFG ASSIZpE,<
	IFNB <D>,<D=ATOPL>
	IFNB <0E>,<E=ATOPR>
	PATOPL=$$C(A,\ASpSIZE,$)/1000000
	ATOPR=$$C(A,\0ASSIZE,$)&777777
	$$$P(A,\ASSIZpE,$)
	ASSIZE=ASSIZE-1
>>>
>
.CREF
O>L` Ep

A
	.XCREF
	$$C($$,\<$$BSP>F0)==$$BST
	$$C($$FP,\<$$BSP+1>)==$$LFpT
	$$C($$,\<$$BSGP+2>)==$$LF
	$$BG0SP==$$BSP+3
	$$LGPT==$$L
	$$LF==$$GpL+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 )
_
	.XCREF
	$$C($$,\<$$BSP>)P)==$$BST
	$$C($$)p,\<$$BSP+1>)==$$L*T
	$$C($$,\<$$BS*0P+2>)==$$LF
	$$C*P($$,\<$$BSP+3>)==*p$$LE
	$$BSP==$$B+SP+4
	$$BST==1
+0	$$LT==$$L
	$$LF+P==$$L+1
	$$L==$$+pL+2
	$$$IF
	.CREF
S.@ d8%
LF() B(dXA,D)
CAIN C
lSt\3 e+
LF() B(e8A,D)
CAIE C
*I#S|i@ 0
	.XCREF
	OPDEF	%OP1	[HRLpZI]
	OPDEF	      %OP2	[MOVEI]
	O0PDEF	      %OP3	[PTDNN]
	OPDEF		%OpP4	[SKIPN]
	%OP%==1
	.CREF
S|iP 0?
	.XCREF
	      %OP%==3
p	OPDEF	      %OP1	[TLNN ]
	OPDEF	0      %OP2	[TRNN P]
	OPDEF	      %pOP3	[CAIN ]
	.CREF
S}` 0
	.XCREF
	OPDEF	%OP1	[HRLpZI]
	OPDEF	      %OP2	[MOVEI]
	O0PDEF	      %OP3	[PTDNE]
	OPDEF		%OpP4	[SKIPE]
		%OP%==1
	.CREF
S}h  0/
	.XCREF
	      %OP%==3
p	OPDEF	      %OP1	[TLNE ]
	OPDEF	0      %OP2	[TRNE P]
	OPDEF	      %pOP3	[CAIE ]
	.CREF
S:  *`W
 @IFN QKA10IFN QKA10W
p .`:x
	PRINTX	/KI10 DEPENDENT CODE
	
	OPDEF	GW%
 IFN QKI10IFN QKI10W1
 @

IFN@QKL10IFNCQKL10XXDEfP5$$C(L,\$$L1)XE kY$$C(L,\$$L10)XE kP]$$C(L,\$$L11)XE la$$C(L,\$$L12)XE lPe$$C(L,\$$L13)XE  mi$$C(L,\$$L14)XE( mPm$$C(L,\$$L15)H@XE0 nq$$C(L,\$$L16)K"GVu@XE8 nPu$$C(L,\$$L17)@
XH g9$$C(L,\$$L2)XL gP=$$C(L,\$$L3)XP hA$$C(L,\$$L4)XT hPE$$C(L,\$$L5)XX iI$$C(L,\$$L6)X\ iPM$$C(L,\$$L7)X` jQ$$C(L,\$$L8)Xd jPU$$C(L,\$$L9)Y /@:~
	L	A,B/`
	L	A+1,1+B
A]B~Y GXM
OPDEF $LGx [HLRZ A,]
OPDEHF $R [HRRZ A,]
H8OPDEF $F [MOVE AHX,]
OPDEF $B [LDBHx A,]
$$USE==1
IIFNB <B>,<
IFNBI8 <C>,<B,C>
IFIXB <C>,<B>
>
Y( R!
	OPDEF $R8L [HLRE A,]
	OPRXDEF $R [HRRE A,]Rx
	OPDEF $F [MOVES A,]
	PURGE $B,S8$B
	$$USE==1
	ISXFNB <B>,<
	 IFNSxB <C>,<B,C>
	T IFB  <C>,<B>
	>
Y$   Y>^\ x9GLOOKUP QCHA,YELAPY>~ >0


	.XCREF
	$$C($$,\<$$BSP>>p)==$$BST
	$$C($$?,\<$$BSP+1>)==$$L?0T
	$$C($$,\<$$BS?PP+2>)==$$LF
	$$B?pSP==$$BSP+3
	$$L@T==$$L
	$$LF==$$@0L+1
	$$L==$$L+2
	$$C(L,\$$LT): $@p$BST==10
	.CREF
YM
	DF	(ZLE30ID,ZLEREC,7,6)	;I3PDENTIFIER FIELD =4 "I"
	DF	(ZLEIND40,ZLEREC,8,16)	;BR4PEAK CHARACTER COM4pBINATION INDICATO5R
	DSW	(ZLESRC,Z50LEREC,7)	;ON IF L5PINE NUMBER IN SOU5pRCE LINE
	DSW	(Z60LEOK,ZLEREC,8)	;O6N IF SOURCE LINE 6PNUMBER CAN BE USE6pD IN LISTING
	DS7W	(ZLEBIT,ZLEREC,b@17)	;RECORD INDICbATOR = 1
		;SYMBbHOLIC NAMES ON ZLEIND VALUES  ;[14 822 15] Now defined in LC
	c[T Op
	SEARCH	PUUOSYM;
IFN QDECP020,<SEARCH MONSYMPP>;
	IF1,<ED$$MX=Pp=0>
	DEFINE EDITQ(n)<;
	ED'n==n
Q0	IF1,<
	IFG <n-EQPD$$MX>,<ED$$MX==nQp>
	>>
	IF2,<
	RDEFINE $$ped(n)<PR0RINTX Edit: n>
	RP     IFN ED$$MX,<Rp$$ped(\ED$$MX)>
S	     PURGE $$pedS0,ED$$MX
	>
	.XCSPREF
	$$L==20
	.CREF
]? + _ :o
	.XCREF
	IFN $$BST-7,<$$:PE(<Illegal od>)>
	GOTO $$C(L,\$$L;E)-$$RELO($$BAS)
	$$C(L,\$$LF): $;P$BSP==$$BSP-4
	$;p$$P2(L,\$$LT)
	$<$$P2(L,\$$LF)
	$<0$$P2(L,\$$LE)
	$<P$BST==$$C($$,\<$$<pBSP>)
	$$LT==$$C=($$,\<$$BSP+1>)
=0	$$LF==$$C($$,\<$=P$BSP+2>)
	$$LE===p$$C($$,\<$$BSP+3>)
	.CREF
;v_69: Q	<$A>&777777a?H6 +aB~ X
	IFE  PSxSIZE,<$$E(<Underflow in stack P>)>8
	IFG PSSIZE,<
X	IFNB <A>,<A=PTxOP>
	PTOP=$$C(P, \PSSIZE,$)
	$$$P 8(P,\PSSIZE,$)
	P XSSIZE=PSSIZE-1
>aC.: Xq
	IFE  PSSIZE -7777,<$$E(<8Overflow in stackX P>)>
	PSSIZE=PSxSIZE+1
	$$C(P,\PSSIZE,$)=PTOP
	PTOP=A
aJ|0 2x3
.XCREF
3IFDEF $$NO,<$$E(<38DOUBLE PROC>)>
I3XFDEF $$TEMP,<PURG3xE $$TEMP>
IFNDEF4 $$NO,<
BEGIN
.48XCREF
	4$$NO==0
IRP A,<
	 $$NO4x==$$NO-1>
	 $$NR5==-$$NO
IRP A,<58
	 %.%==-$$NO
	5X PPUSH	%.%
	6$$C5x(%.%,\%.%)==$$NO
	 $$HELP(A,\%.%68)
	 $$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 c4P 
c4M@P c5\P c68@P 
cm}RP cm}WP 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 cfL@P c~ P c$nP 0c":Q b.Nkc"%`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<I3Q hcO<YP cO=P cO>P @cO>P cO>)P cO>9P cO>pP cO>yP cON0P cON8vP cON9Q ggcPP cR/

et( r0)IRP A <IFrPE <A-.K>,<STOPI>rp
	   .I==0
	s0 sIRP C <.I==.I+1
		    IFE <.I-AsP>,<STOPI
				   sp.C==C>
		   >
t	   .I==0
	   IRt0P B <.I==.I+1
	tP	    IFE <.I-A>,tp<STOPI
				   Bu==.C>
		   >
	  >
PURGE C
eKy =X
 IFDEF $=x$NO,<
  IFDEF $$>SNOX,<
   REPEAT>8 $$SNOX,<
	SPOP	>X$$TEMP
	RPUSH	$$>xTEMP
	UNSTK	$$TE?MP
   >
   REPE?8AT $$SNOX,<
	RPO?XP	$$TEMP
	SPUSH	?x$$TEMP
   >
  >@
 >
 IFNDEF $$N@8O,<
  IFDEF $$SN@XOY,<
   REPEAT $@x$SNOY,<
	SPOP	$$ATEMP
	RPUSH	$$TEA8MP
	UNSTK	$$TEMPAX
   >
   REPEATAx $$SNOY,<
	RPOP	B$$TEMP
	SPUSH	$$B8TEMP
   >
  >
 >
eq {xa
	QIDB=Q|NSYSID
	QNSYSID==QNSYSID+1
#e{y jx]
	.XCREF
	RESW$	BEGIN,,Z1k8RWBM	;
	RESW$	ENkXD ,,Z1RWBE+Z1RWBMkx
	RESW$	IF 
	RElSW$	THEN 
	RESW$l8	INTEGER,INT 
	RlXESW$	REF 
	RESW$lx	DO 
	RESW$	PROCmEDURE,PROC 
	RESm8W$	NEW
	RESW$	ACmXTIVATE,ACTIV
	REmxSW$	AFTER 
	RESWn$	AND 
	RESW$	ARn8RAY 
	RESW$	AT 
	RESW$	BEFORE,BEnxFOR
	RESW$	BOOLEoAN,BOOL
	RESW$	Co8HARACTER,CHAR
	RoXESW$	CLASS 
	RESoxW$	COMMENT,COMM,Zp1RWBM
	RESW$	DELp8AY 
	RESW$	ELSE,pX,Z1RWBE 
	RESW$	pxEQ 
	RESW$	EQV 
	RESW$	EXTERNAL,q8EXT 
	RESW$	FALSqXE 
	RESW$	FOR 
qx	RESW$	GE,NLESS 
	RESW$	GO,,Z1RWBr8M 
	RESW$	GOTO,,rXZ1RWBE 
	RESW$	GrxT,GRT 
	RESW$	HIsDDEN,HIDDE
	RESWs8$	IMP 
	RESW$	INsX 
	RESW$	INNER 
	RESW$	INSPECT,ItNSPE 
	RESW$	IS t8
	RESW$	LABEL 
tX	RESW$	LE,NGRT 
tx	RESW$	LONG 
	REuSW$	LT,LESS 
	REu8SW$	NAME 
	RESW$uX	NE,NEQ 
	RESW$	uxNONE 
	RESW$	NOTv 
	RESW$	NOTEXT,v8NOTEX 
	RESW$	ORvX 
	RESW$	OPTIONSvx,OPT,Z1RWBM
	RESwW$	OTHERWISE,OTHEw8R,Z1RWBE
	RESW$	wXPRIOR 
	RESW$	PRwxOTECTED,PROTE
	RxESW$	QUA 
	RESW$x8	REACTIVATE,REACTxX 
	RESW$	REAL
	xxRESW$	SHORT 
	REySW$	STEP 
	RESW$y8	SWITCH,SWIT 
	RyXESW$	TEXT 
	RESWyx$	THIS 
	RESW$	TzO,,Z1RWBM 
	RESWz8$	TRUE 
	RESW$	UzXNTIL 
	RESW$	VALzxUE 
	RESW$	VIRTU{AL,VIRT 
	RESW$	{8WHEN,,Z1RWBE 
	R{XESW$	WHILE 
	.CREF
q`Pe  ,~e&\W <Xi
	.XCREF
	RESTORE
	 POPJ= XPDP,
	.CREF
Pb`Pe
e: pp.K==0
IRPq A <.K==.K+1>
Rq0ENAM1 <1,2,3,4,5,qP6,7,10,11,12,13,1qp4,15,16,17>,<A>,<B>

}_eB~ #)
	IFE  RS#8SIZE,<$$E(<Underf#Xlow in stack R>)>#x
	IFG RSSIZE,<
$	IFNB <A>,<A=RT$8OP>
	RTOP=$$C(R,$X\RSSIZE,$)
	$$$P$x(R,\RSSIZE,$)
	R%SSIZE=RSSIZE-1
>eC.: !
	IFE  RS!XSIZE -7777,<$$E(<!xOverflow in stack" R>)>
	RSSIZE=RS"8SIZE+1
	$$C(R,\R"XSSIZE,$)=RTOP
	RTOP=A
eOR@ eRNK <;
	TITLE	 A     DECsystem-@10/20 SIMULA RTS %4A(310)   RTS eR~@ eVu@ J;
	IFDEF  .DIRECTIVE,<.DIRE@CTIVE .NOBIN>
	U`NIVERSAL	A     D	ECsystem-10/20 SI	 MULA RTS %4A(310)   RTS %4A(310)g BP

+
	.XCREF
	IFN $$BST-3,<$$CE(<Illegal sa>)>
	$$$SA
	$$C(L,\CP$$LF): $$BSP==$$BCpSP-3
	$$$P2(L,\$D$LT)
	$$$P2(L,\$D0$LF)
	$$BST==$$CDP($$,\<$$BSP>)
	$Dp$LT==$$C($$,\<$$BESP+1>)
	$$LF==$$E0C($$,\<$$BSP+2>)
	.CREF
g4P 6xa
.XCREF
7IFDEF $$NO,<
IFD78EF $$SNOX,<
	 $$7XE(<DOUBLE SAVE IL7xLEGAL>)>
IFNDEF 8$$SNOX,<
	 $$SNO88X==0
	$$TEMP==0
IRP A,<
	 $$SN8xOX==$$SNOX+1
	 S9PUSH 	A
	.CREF
	 STACK	A
	.XC9XREF>
REPEAT $$NR9x,<
	 PPOP	$$TEMP:
	:EPUSH	$$TEMP
	 $$C(%.%,\$$TEM:XP)==-$$TEMP-$$SNO:xX>>>
IFNDEF $$NO;,<
	 $$SNOY==0
;8 IRP A,<
	 SPUS;XH A
	 $$SNOY==$;x$SNOY+1
	.CREF
<	 STACK A
	.XCREF>>
.CREF
g

 Q@
%%%%%1==Q`0
IRP A,<
SYSRA==%%%%%1
%%%%%1==<%%%%%1+1>>EBg
%%%%%1==j0
IRP A,<
A==j8%%%%%1
%%%%%1==<%%%%%1+1>>Cg$-3 :
	EXTERN	8YBUFRB,YBHA
	LX	[XWD QBUFS-2,YBUxFRB+1+QBUFS+1]
 	ST	YBUFRB+1
	H 8RRI	YBUFRB+1
	S XT	YBUFRB+1+QBUFS x+1
	HRLI	400K
	!IFB<C>,<ST YBHA!8>
	IFNB<C>,<MOV!XSI X1,(^DCB11)
!x;***AUBEG
;	SPEC"IFY X0
		STD	X0,"8YBHA>
;***AUEND
c&&:7@g$` P8
$$$VAL=PXA
SF()
$$USE=3
g%yP 0_
	.XCREF
	      %OP%==4
p	OPDEF	      %OP1	[TLZ]
	OPDEF	  0    %OP2	[TRZ]
	POPDEF	      %OP3	p[SETZ]
	.CREF
g%yS

0o
	.XCREF

P
	OPDEF		%OP1	[HR

pLOI]
	OPDEF		[HROI]
	PDEF	      %OP3	
	OPDEF		%M]
		%OP%==0
	.CREF
g%{@ 0
	.XCREF
	OPDEF	%OP1	[HRLpZI]
	OPDEF	      %OP2	[MOVEI]
	O0PDEF	      %OP3	[PIORM]
	OPDEF		%OpP4	[SETOM]
		%OP%==1
	.CREF
g%{P 0O
	.XCREF
	      %OP%==3
p	OPDEF	      %OP1	[TLO]
	OPDEF	  0    %OP2	[TRO]
	POPDEF	      %OP3	p[SETO]
	.CREF
g0  g2 @g2  `g Ja
OPDEF $LJ8 [HRLM A,]
OPDEJXF $R [HRRM A,]
JxOPDEF $F [MOVEM KA,]
OPDEF $B [DPK8B A,]
$$USE==1
IFNB <B>,<
IFNKxB <C>,<B,C>
ILFB <C>,<B>
>
g'TP QX
A=<<<$B>B59>&77>
gB) P gB~ ,q
	IFE  SS,8SIZE,<$$E(<Underf,Xlow in stack S>)>,x
	IFG SSSIZE,<
-	IFNB <A>,<A=ST-8OP>
	STOP=$$C(S,-X\SSSIZE,$)
	$$$P-x(S,\SSSIZE,$)
	S.SSIZE=SSSIZE-1
>saC.:cgC.: *]
	IFE  SS*XSIZE -7777,<$$E(<*xOverflow in stack+ S>)>
	SSSIZE=SS+8SIZE+1
	$$C(S,\S+XSSIZE,$)=STOP
	STOP=A
_gOR@ gO$\ fx7
	ADD	A,[XWD	B%S,B%S]gP  @gR

:` ,>gR  1;

	ST	A,1 B
	ST	A+1,1+B
fl+	Pgfl+	gR. ex3
 $%X==Af
 IFNB <C>,<$%Xf8==C>
 LI $%X,B%S(A)
:+gR.
@ g8C
IFE <B%gXS-1>,< AOBJN A,gxC>
IFN <B%S-1>,h<ADD A,[XWD B%Sh8,B%S]
 JUMPL A,C>
%
gR~@ g^

 H`
DEFINE RH@L(LAB)<LAB-L2()+YJ 3SWAP>
EXTERN	Y3KSWAP
BEGIN
	HLLK ZS	.JBREN##
	HLLJZS	.JBSA##
	L	X2J@,[XWD L2(),Y3SWAPK@]
	BLT	X2,RL(L9(K`))
	GOTO	RL(L2()L)
L2():!	CORE	X3I`,
	HALT
IFN QSYJ`S,<
	IFNDEF YP1DL EV,<EXTERN YP1DEVL@,YP1PPN>
	L	YP1DL`EV
	ST	RL(L4())
	L	YP1PPN
	ST	RM L(L4())+4
>
	LIM@	X1,RL(L4())
	GEM`TSEG	X1,
	SKIPA
	GOTO	RL(L3())
N 	LI	X1,RL(L5())
N@	GETSEG	X1,
	HALN`T
L3():!	BRANCH	O400011+C ;

L4O ():!	SIXBIT'DSK'
	IFE QSYS,<SIXBIO`T/B/>
	IFN QSYSP,<SIXBIT/A/>
	ZP 
	Z
	Z
	Z
L5(P@):!	EXP	QSYSDEV
P`	SIXBIT/A/
	Z
Q	Z
	EXP	D
	Z
L9():!
ENDD
 gfl  =>
	SYMBT1==@=SYMBL1+1
	SYMBT>2==SYMBL2+1
	SYM= BT3==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>
	AIFE O-SYMBT4,<SYMA BT4==SYMBT4+1>
	A@IFE O-SYMBT5,<SYMA`BT5==SYMBT5+1>
	B>
	SYMBOL
	>
	B IFN B,<
DEFINE B@SYMBX(M,N,O,P,Q)<B`
	IFL O-SYMBL1,<C
	IFN N&A,<
	DC EFINE SYMB'O<C(MC@,\O,P,<Q>)>>>>
	C`SYMBOL
	DEFINE SDYMBZ(F)<
	IFDEF D SYMB'F,<SYMB'F>>
	SYMBY==-1
	REPD`EAT SYMBL1,<
	SYEMBY==SYMBY+1
	SYE MBZ(\SYMBY)>
DEFE@INE SYMBZ(F)<
DEE`FINE SYMBX(M,N,O,FP,Q)<
	IFE O-SYMF BT'F,<
	IFN N&AF@,<C(M,\O,P,<Q>)>F`
	SYMBT'F==SYMBTG'F+1>>
	SYMBOL>
	SYMBZ 1
	SYMBZG@ 2
	SYMBZ 3
	SYG`MBZ 4
	SYMBZ 5
	>
	gfl+P gfl+P gfl+	P gfl+	P ,gfl+
P 2gfl+
P 9gfl+P Ggfl+v 8I
	.XCREF
	SYMBX	ACTIV,3,SxYMBT1,1,ACTIVATE
	SYMBX	ADEC,2,SY8MBT1
	SYMBX	AFTEXR,1,SYMBT5,,AFTERx
	SYMBX	AND,3,24,,AND
	SYMBX	ARR8AY,1,SYMBT4,,ARRAXY
	SYMBX	AT,1,SYxMBT5,,AT
	SYMBX	BBLK,2,SYMBT2
	S8YMBX	BECOM,3,SYMBXT1,,<:=>
	SYMBX	xBEFOR,1,SYMBT5,,BEFORE
	SYMBX	BEG8CL,2,SYMBT1,,BEGCXL
	SYMBX	BEGIN,1x,SYMBT5,,BEGIN
	SYMBX	BEGPB,2,SYM8BT1,,BEGPB
	SYMBXX	BEGPR,2,SYMBT1,x,BEGPRO
	SYMBX	BOOL,1,SYMBT4,,BOO8LEAN
	SYMBX	BOUNXD,2,SYMBT1,,ARRAYxBND
	SYMBX	BPROG	,2,SYMBT2
	SYMBX	8	CHAR,1,SYMBT4,,C	XHARACTER
	SYMBX		xCLASS,1,SYMBT4,,C
LASS
	SYMBX	COLO
8N,1,SYMBT5,,<:>

X	SYMBX	COMM,1,SYM
xBT5
	SYMBX	COMMA,1,36,,<,>
	SYMB8X	CONC,3,SYMBT3,1X,CONSTANT
	SYMBXx	CONI,3,SYMBT3,2,

CONSTANT
	SYMBX

8CONLR,3,SYMBT3,4,

XCONSTANT
	SYMBX

xCONR,3,SYMBT3,2,C
	SYMBX	CMBT3,2,CO
	SYMBX	COBT1,,CONV
	SYMBX	CVBE,2,8SYMBT1,,<:=>
	SYXMBX	CVDE,2,SYMBT1x,,<:->
	SYMBX	DEBUG,3,SYMBT2,1
	8SYMBX	DELAY,1,SYMXBT5,,DELAY
	SYMBxX	DELOP,2,0
	SYMBX	DENOT,3,SYMBT18,,<:->
	SYMBX	DEXQ,3,17,,<==>
	SYxMBX	DIV,3,3,,</>
	SYMBX	DO,3,SYMB8T2,,DO
	SYMBX	DOXT,3,33,,<.>
	SYMxBX	EBLK,2,SYMBT2
	SYMBX	EDCL,2,SY8MBT2
	SYMBX	EDPBX,2,SYMBT2
	SYMBXx	ELSE,1,SYMBT5,,ELSE
	SYMBX	END,18,SYMBT5,,END
	SYXMBX	ENDCL,2,SYMBTx2
	SYMBX	ENDDO,2,SYMBT2
	SYMBX	E8NDFO,2,SYMBT2
	SXYMBX	ENDPR,2,SYMBxT2
	SYMBX	EOF,1,SYMBT5
	SYMBX	EP8ROG,2,SYMBT2
	SYXMBX	EQ,3,13,,<=&@x(EQ)>
	SYMBX	EQV,3,27,,EQV
	SYMB8X	ERROR,2,SYMBT2
	SYMBX	EXT,1,SYMxBT4,,EXTERNAL
	SYMBX	FALSE,3,SYMB8T3,,FALSE
	SYMBXX	FIX,2,SYMBT2,1
x	SYMBX	FOR,1,SYMBT5,,FOR
	SYMBX	F8ORDO,2,SYMBT2
	SXYMBX	FORSI,2,SYMBxT1,,<:=/:->
	SYMBX	FORST,2,SYMBT18,,<STEP/UNTIL>
	XSYMBX	FORWH,2,SYMxBT1,,WHILE
	SYMBX	GO,1,SYMBT5,,GO8
	SYMBX	GOTO,3,SXYMBT1,,GOTO
	SYMxBX	GRT,3,14,,<&^&@(GT)>
	SYMBX	HI8DDE,1,SYMBT5,,HIDXDEN
	SYMBX	IDIV,x3,4,,<//>
	SYMBX	IENDC,2,SYMBT2
8	SYMBX	IF,1,SYMBTX5,,IF
	SYMBX	IFExX,2,SYMBT1,,ELSE
	SYMBX	IFEX1,4,S8YMBT1,,IF
	SYMBXX	IFST,2,SYMBT1,1,x<IF>
	SYMBX	IFTRE,2,SYMBT1,1,<IF>8
	SYMBX	IFTRU,2,XSYMBT1,,<IF>
	SYxMBX	IMP,3,26,,IMP
	SYMBX	IN,3,22,8,IN
	SYMBX	INNERX,3,SYMBT2,,INNER
	SYMBX	INSPE,3,S YMBT1,1,INSPECT
 8	SYMBX	INT,1,SYMB XT4,,INTEGER
	SYM xBX	IS,3,21,,IS
	!SYMBX	JUMP,2,SYMB!8T2,1
	SYMBX	LABE!XL,1,SYMBT5,,LABEL!x
	SYMBX	LB,3,SYM"BT3,,<[>
	SYMBX	"8LESS,3,11,,<&\&@("XLT)>
	SYMBX	LONG"x,1,SYMBT4,,LONG
#	SYMBX	LP,3,SYMBT#83,,<(>
	SYMBX	MI#XNUS,3,7,,<->
	SY#xMBX	MOCEB,4,SYMBT$1,<:=>
	SYMBX	MU$8LT,3,2,,<*>
	SYM$XBX	NAME,1,SYMBT5,$x,NAME
	SYMBX	NDE%Q,3,20,,<=/=>
	S%8YMBX	NEQ,3,16,,<\%X=&@(NE)>
	SYMBX	%xNEW,3,31,,NEW
	S&YMBX	NGRT,3,12,,<&8&\=&@(LE)>
	SYMB&XX	NLESS,3,15,,<&^&x=&@(GE)>
	SYMBX	'NONE,3,SYMBT3,,NO'8NE
	SYMBX	NOT,3,'X23,,<\&@(NOT)>
	'xSYMBX	NOTEX,3,SYM(BT3,,NOTEXT
	SYM(8BX	NOTHR,2,SYMBT2(X
	SYMBX	OPT,3,SY(xMBT2,1
	SYMBX	OR),3,25,,OR
	SYMBX)8	OTHER,3,SYMBT2,,)XOTHERWISE
	SYMBX)x	PAREN,2,SYMBT1,,*PARENTHESIS
	SYM*8BX	PARM,4,SYMBT1
	SYMBX	PCALL,4,S*xYMBT1
	SYMBX	PBE+ND,2,SYMBT2
	SYM+8BX	PLUS,3,5,,<+>
	SYMBX	POW,3,1,,+x<**>
	SYMBX	PRIO,R,1,SYMBT5,,PRIOR,8
	SYMBX	PROC,1,S,XYMBT4,,PROCEDURE
	SYMBX	PROTE,1,S-YMBT5,,PROTECTED
	SYMBX	PURGE,2,S-XYMBT2
	SYMBX	QUA-x,3,32,,QUA
	SYMB.X	QUAL,4,SYMBT1,,.8QUALIF
	SYMBX	RB.X,1,34,,<]>
	SYMB.xX	REACT,1,SYMBT5,/,REACTIVATE
	SYM/8BX	REAL,1,SYMBT4,/X,REAL
	SYMBX	REF/x,1,SYMBT4,,REF
	0SYMBX	RP,3,35,,<)08>
	SYMBX	SEMIC,30X,SYMBT5,,<;>
	SY0xMBX	SHORT,1,SYMBT14,,SHORT
	SYMBX	18STEP,1,SYMBT5,,ST1XEP
	SYMBX	SWEL,21x,SYMBT1,,SWITCHEL2EM
	SYMBX	SWEND,282,SYMBT2
	SYMBX	2XSWIT,1,SYMBT4,,SW2xITCH
	SYMBX	SWIT3C,2,SYMBT1
	SYMB38X	TEXT,1,SYMBT4,,3XTEXT
	SYMBX	THEN3x,1,SYMBT5,,THEN
4	SYMBX	THIS,3,30,48,THIS
	SYMBX	TO,4X1,SYMBT5,,TO
	SY4xMBX	TONED,4,SYMBT51
	SYMBX	TRUE,3,58SYMBT3,,TRUE
	SY5XMBX	UDEF,2,SYMBT35x
	SYMBX	UNMIN,2,610,,<->
	SYMBX	U68NTIL,1,SYMBT5,,UN6XTIL
	SYMBX	UPLUS6x,2,6,,<+>
	SYMBX7	VALUE,1,SYMBT5,,78VALUE
	SYMBX	VIR7XT,1,SYMBT5,,VIRTU7xAL
	SYMBX	WHEDO,82,SYMBT1,,WHEN
	88SYMBX	WHEN,1,SYMB8XT5,,WHEN
	SYMBX	8xWHILE,3,SYMBT1,1,9WHILE
	.CREF
	Pq^

5Pgfl-Q gfl-	Q ,gfl-	Q 2gfl-
Q 9gfl-
Q Ggfl. 9`L

	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,<SYMB< T4==SYMBT4+1>
	I<@FE C-SYMBT5,<SYMI@BT5==SYMBT5+1>
	gfl. H B
	%A=Bgg;P gg P gg@P gg`P ggP gg P gg@P gg`P ggP gg P gg |x
	RESW$	N}UMBER:1,NO1
	RES|8W$	NUMBER:2,NO2
}8	RESW$	NUMBER:3,N}XO3
	RESW$	NUMBER}x:4,NO4
	RESW$	FI~LE.,FIL
	RESW$	I~8NFILE,INF
	RESW$~X	OUTFILE,UTF
	RE~xSW$	DIRECTFILE,DIF
	RESW$	PRINTFI8LE,PRF
	RESW$	SIXMSET,SET
	RESW$	xSIMULATION,SIM
	RESW$	LINKAGE,LKA8
	RESW$	LINK,LINX
	RESW$	HEAD,HEDx
	RESW$	PROCESS,PRO
	RESW$	SYSIN8,SIN
	RESW$	SYSOXUT,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"-` ,0
k
	.XCREF
	IFN $$BST-1,<$$,pE(<Illegal then>)->
	$$$THEN
	$$C-0(L,\$$LT):$$BST==5
	.CREF
i&l\@ x9u
IFN QTIMER,<
	STACK	X0
8	STACK	X1
	STACKX	X2
	LI	X1,0
	RxUNTIM	X1,
	SUB	X1,YTIMER##
	ADDM8	X1,YTIMER
	IFNBX<A>,<
		OUTSTR	x[ASCIZ/
A  /]
		LSH	X1,25
		LI8	X2,5
		LOOP
		X	LI	X0,0
			LSHCx	X0,3
			ADDI	X0,60
			OUTCHR
	8	AS
			SOJG	X2,TXRUE
		SA
		OUTSxTR	[ASCIZ/  MILLISECONDS
/]
		>
	UNSTK	X2
	UNSTXK	X1
	UNSTK	X0
>
c8Pi< HP

_
	.XCREF
	IFN $$BST-4,<$$IE(<Illegal to>)>
	$$$TO
	$$C(L,\IP$$LT): $$BSP==$$BIpSP-3
	GOTO A
	J$$C(L,\$$LF):
	$J0$$P2(L,\$$LT)
	$JP$$P2(L,\$$LF)
	$Jp$BST==$$C($$,\<$$KBSP>)
	$$LT==$$CK0($$,\<$$BSP+1>)
KP	$$LF==$$C($$,\<$Kp$BSP+2>)
	.CREF
i?4( IFE QDEC20IFE QDEC20i?4H @IFN QDEC20IFN QDEC20iK,P L0

e$$C(L,\$$LLPT)-$$RELO($$BAS)k;J` ,^kV~0 8@;F%%%%%1==QU8`UO
	IRP  A<X(A)>
AcpkV~9: 9 ;n
UUOS	<ER9@RT,,ERRI3,ERRI2,E9`RRI1,ERR,ERRLI,WA:RN,ERRR,ERR1,ERR2: ,FATA,SEV,SEV1,SE:@V2,RFAI>;ORDER SI:`GNIFICANT
;***AU;BEG
IFN QKA10,<
	QSUUO==QUUO
	Q;@UUO==24	; DFAD MU;`ST HAVE ZERO LOW <ORDER 2 BITS FOR < TRAP HANDLER

U<@UOS	<DFAD,DFSB,DF<`MP,DFDV,DMOVE,DMO=VN,FIX,,DMOVEM,DM= OVNM,FIXR,FLTR>
=@	QUUO==QSUUO
	PU=`RGE	QSUUO
;***AUEND
>3Es?

Sm;vA dmLz  ASCII\

@DECsystem-10/20 S`IMULA /KA  Version 4A		\  Versiom-A do` o"-` c8
IFEQF A,B%F,B%V,Co"-kW cx
IFNEQF A,B%F,B%V,Co"MI  4pA
	.XCREF
	$$C($$,\<$$BSP>50)==$$BST
	$$C($$5P,\<$$BSP+1>)==$$L5pT
	$$C($$,\<$$BS6P+2>)==$$LF
	$$C60($$,\<$$BSP+3>)==6P$$LE
	$$BSP==$$B6pSP+4
	$$BST==2
7	$$LT==$$L
	$$LF70==$$L+1
	$$LE==$7P$L+2
	$$L==$$L+37p
	$$C(L,\$$LE): 8$$$WHILE
	.CREF
G

SPcG,ro20 LXg
$$USE==0Lx
OPDEF $F [MOVE A,]
oN0 M8m
$$USE==0MX
OPDEF $F [MOVEM A,]
pA p 3p;@IFNB<A>,
<QA==%%%%%1
OPcPDEF	A	[<%%%%%1>B88]>
%%%%%1==%%%%%1+1
8so"-`p@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 d!SYN A,YOPB>sl` _8.
IFE <%OP_X%-1>,<%OP1 100000_x>
IFE %OP%,<%OP1` 677777>
IFE <%O`8P%-2>,<$$E(<ILL S`XWITCH NAME>)>
IF`xGE <%OP%-3>,<IFB a<A>,<%OP1 100000a8>
	IFNB <A>,<%OaXP1 A,100000>>
IaxFL<%OP%-2>,<%OP3 bYSWITCH(A)>
%OP%==2q[T

}sli  c..
IFE <%OPc(%-1>,<%OP1 40000>cH
IFE %OP%,<%OP1 ch737777>
IFE <%OPd%-2>,<$$E(<ILL SWd(ITCH NAME>)>
IFGdHE <%OP%-3>,<IFB <dhA>,<%OP1 40000>
	IFNB <A>,<%OP1e( A,40000>>
IFL<eH%OP%-2>,<%OP3 YSWehITCH(A)>
%OP%==2cF<QPs%

8v \(-x
IFE <%OP\H%-1>,<%OP1 200000\h>
IFE %OP%,<%OP1] 577777>
IFE <%O](P%-2>,<$$E(<ILL S]HWITCH NAME>)>
IF]hGE <%OP%-3>,<IFB ^<A>,<%OP1 200000^(>
	IFNB <A>,<%O^HP1 A,200000>>
I^hFL<%OP%-2>,<%OP3 _YSWITCH(A)>
%OP%==2!W
s?%  9&
IFE %OP%(-1,<%OP2 40000>
HIFE %OP%,<%OP2 77h7777737777>
IFE <%OP%-2>,<$$E(<IL(L SWITCH NAME>)>
IFGE <%OP%-3>,<IhFB <A>,<%OP2 40000>
	IFNB <A>,<(%OP2 A,40000>>
HIFL <%OP%-2>,<%OPh3 Y3OPEN(A)>
%OP%==2W
s?%@ 08q
IFE %OP%P-1,<%OP2 20000>
pIFE %OP%,<%OP2 77

7777757777>
IFE

0<%OP%-2>,<$$E(<IL

PL SWITCH NAME>)>

p
IFGE<<%OP%-3>,<I0
	IFNB <A>,<0>>
IFL <%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2#uG/*s?%` X8;
IFE %OP%x-1,<%OP2 10000>
IFE %OP%,<%OP2 7787777767777>
IFE X<%OP%-2>,<$$E(<ILxL SWITCH NAME>)>
IFGE <%OP%-3>,<I8FB <A>,<%OP2 100X00>
	IFNB <A>,<x%OP2 A,10000>>
IFL <%OP%-2>,<%OP83 Y3OPEN(A)>
%OP%==2u"(Y@+Xs?4 ~ 8
IFE %OP%~@-1,<%OP2 4000>
I~`FE %OP%,<%OP2 777777773777>
IFE < %OP%-2>,<$$E(<ILL@ SWITCH NAME>)>
`IFGE <%OP%-3>,<IFB <A>,<%OP2 4000 >
	IFNB <A>,<%O@P2 A,4000>>
IFL` <%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2<<`2lsO<=`s?4  wh7T
IFE %OP%x-1,<%OP2 2000>
Ix(FE %OP%,<%OP2 777xH777775777>
IFE <xh%OP%-2>,<$$E(<ILLy SWITCH NAME>)>
y(IFGE <%OP%-3>,<IFyHB <A>,<%OP2 2000yh>
	IFNB <A>,<%OzP2 A,2000>>
IFLz( <%OP%-2>,<%OP3 YzH3OPEN(A)>
%OP%==2
ai<

Cs?4@ q07!
IFE %OP%qP-1,<%OP2 1000>
IqpFE %OP%,<%OP2 777r777776777>
IFE <r0%OP%-2>,<$$E(<ILLrP SWITCH NAME>)>
rpIFGE <%OP%-3>,<IFsB <A>,<%OP2 1000s0>
	IFNB <A>,<%OsPP2 A,1000>>
IFLsp <%OP%-2>,<%OP3 Yt3OPEN(A)>
%OP%==2~@g^

s?4` jx6m
IFE %OP%k-1,<%OP2 400>
IFk8E %OP%,<%OP2 7777kX77777377>
IFE <%kxOP%-2>,<$$E(<ILL lSWITCH NAME>)>
Il8FGE <%OP%-3>,<IFBlX <A>,<%OP2 400>
	IFNB <A>,<%OP2m A,400>>
IFL <%m8OP%-2>,<%OP3 Y3OPmXEN(A)>
%OP%==2P@cO>Ps?5 d@6:
IFE %OP%d`-1,<%OP2 200>
IFeE %OP%,<%OP2 7777e 77777577>
IFE <%e@OP%-2>,<$$E(<ILL e`SWITCH NAME>)>
IfFGE <%OP%-3>,<IFBf  <A>,<%OP2 200>
	IFNB <A>,<%OP2f` A,200>>
IFL <%gOP%-2>,<%OP3 Y3OPg EN(A)>
%OP%==2c2%PPKc20s?5  ^6
IFE %OP%^(-1,<%OP2 100>
IF^HE %OP%,<%OP2 7777^h77777677>
IFE <%_OP%-2>,<$$E(<ILL _(SWITCH NAME>)>
IHFGE <%OP%-3>,<IFBh <A>,<%OP2 100>
	IFNB <A>,<%OP2`( A,100>>
IFL <%`HOP%-2>,<%OP3 Y3OP`hEN(A)>
%OP%==2Pc$;wPs?5@ Wp5S
IFE %OP%X-1,<%OP2 40>
IFEX0 %OP%,<%OP2 77777XP7777737>
IFE <%OXpP%-2>,<$$E(<ILL SYWITCH NAME>)>
IFY0GE <%OP%-3>,<IFB YP<A>,<%OP2 40>
	YpIFNB <A>,<%OP2 ZA,40>>
IFL <%OP%Z0-2>,<%OP3 Y3OPEN(A)>
%OP%==2s?5` QX5!
IFE %OP%Qx-1,<%OP2 20>
IFER %OP%,<%OP2 77777R87777757>
IFE <%ORXP%-2>,<$$E(<ILL SRxWITCH NAME>)>
IFSGE <%OP%-3>,<IFB S8<A>,<%OP2 20>
	SXIFNB <A>,<%OP2 SxA,20>>
IFL <%OP%T-2>,<%OP3 Y3OPEN(A)>
%OP%==2s?D K@4p
IFE %OP%K`-1,<%OP2 10>
IFEL %OP%,<%OP2 77777L 7777767>
IFE <%OL@P%-2>,<$$E(<ILL SL`WITCH NAME>)>
IFMGE <%OP%-3>,<IFB M <A>,<%OP2 10>
	M@IFNB <A>,<%OP2 M`A,10>>
IFL <%OP%N-2>,<%OP3 Y3OPEN(A)>
%OP%==2(@s?D  E(4>
IFE %OP%EH-1,<%OP2 4>
IFE Eh%OP%,<%OP2 777777F777773>
IFE <%OPF(%-2>,<$$E(<ILL SWFHITCH NAME>)>
IFGFhE <%OP%-3>,<IFB <GA>,<%OP2 4>
	IFG(NB <A>,<%OP2 A,GH4>>
IFL <%OP%-2>Gh,<%OP3 Y3OPEN(A)>
%OP%==2&Xs?D@ ?4
IFE %OP%?0-1,<%OP2 2>
IFE ?P%OP%,<%OP2 777777?p777775>
IFE <%OP@%-2>,<$$E(<ILL SW@0ITCH NAME>)>
IFG@PE <%OP%-3>,<IFB <@pA>,<%OP2 2>
	IFANB <A>,<%OP2 A,A02>>
IFL <%OP%-2>AP,<%OP3 Y3OPEN(A)>
%OP%==2sO<I s?D` 8x3[
IFE %OP%9-1,<%OP2 1>
IFE 98%OP%,<%OP2 7777779X777776>
IFE <%OP9x%-2>,<$$E(<ILL SW:ITCH NAME>)>
IFG:8E <%OP%-3>,<IFB <:XA>,<%OP2 1>
	IF:xNB <A>,<%OP2 A,;1>>
IFL <%OP%-2>;8,<%OP3 Y3OPEN(A)>
%OP%==2Ps? jx6m
IFE %OP%k-1,<%OP2 400>
IFk8E %OP%,<%OP2 7777kX77777377>
IFE <%kxOP%-2>,<$$E(<ILL lSWITCH NAME>)>
Il8FGE <%OP%-3>,<IFBlX <A>,<%OP2 400>
	IFNB <A>,<%OP2m A,400>>
IFL <%m8OP%-2>,<%OP3 Y3OPmXEN(A)>
%OP%==2P@cO>Ps?I1 X8;
IFE %OP%x-1,<%OP2 10000>
IFE %OP%,<%OP2 7787777767777>
IFE X<%OP%-2>,<$$E(<ILxL SWITCH NAME>)>
IFGE <%OP%-3>,<I8FB <A>,<%OP2 100X00>
	IFNB <A>,<x%OP2 A,10000>>
IFL <%OP%-2>,<%OP83 Y3OPEN(A)>
%OP%==2u"(Y@+Xs?IH Wp5S
IFE %OP%X-1,<%OP2 40>
IFEX0 %OP%,<%OP2 77777XP7777737>
IFE <%OXpP%-2>,<$$E(<ILL SYWITCH NAME>)>
IFY0GE <%OP%-3>,<IFB YP<A>,<%OP2 40>
	YpIFNB <A>,<%OP2 ZA,40>>
IFL <%OP%Z0-2>,<%OP3 Y3OPEN(A)>
%OP%==2s?\Y 08q
IFE %OP%P-1,<%OP2 20000>
pIFE %OP%,<%OP2 77

7777757777>
IFE

0<%OP%-2>,<$$E(<IL

PL SWITCH NAME>)>

p
IFGE<<%OP%-3>,<I0
	IFNB <A>,<0>>
IFL <%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2#uG/*s?^ E(4>
IFE %OP%EH-1,<%OP2 4>
IFE Eh%OP%,<%OP2 777777F777773>
IFE <%OPF(%-2>,<$$E(<ILL SWFHITCH NAME>)>
IFGFhE <%OP%-3>,<IFB <GA>,<%OP2 4>
	IFG(NB <A>,<%OP2 A,GH4>>
IFL <%OP%-2>Gh,<%OP3 Y3OPEN(A)>
%OP%==2&Xs?h QX5!
IFE %OP%Qx-1,<%OP2 20>
IFER %OP%,<%OP2 77777R87777757>
IFE <%ORXP%-2>,<$$E(<ILL SRxWITCH NAME>)>
IFSGE <%OP%-3>,<IFB S8<A>,<%OP2 20>
	SXIFNB <A>,<%OP2 SxA,20>>
IFL <%OP%T-2>,<%OP3 Y3OPEN(A)>
%OP%==2s?i wh7T
IFE %OP%x-1,<%OP2 2000>
Ix(FE %OP%,<%OP2 777xH777775777>
IFE <xh%OP%-2>,<$$E(<ILLy SWITCH NAME>)>
y(IFGE <%OP%-3>,<IFyHB <A>,<%OP2 2000yh>
	IFNB <A>,<%OzP2 A,2000>>
IFLz( <%OP%-2>,<%OP3 YzH3OPEN(A)>
%OP%==2
ai<

Cs?Lh K@4p
IFE %OP%K`-1,<%OP2 10>
IFEL %OP%,<%OP2 77777L 7777767>
IFE <%OL@P%-2>,<$$E(<ILL SL`WITCH NAME>)>
IFMGE <%OP%-3>,<IFB M <A>,<%OP2 10>
	M@IFNB <A>,<%OP2 M`A,10>>
IFL <%OP%N-2>,<%OP3 Y3OPEN(A)>
%OP%==2(@s?Lz ~ 8
IFE %OP%~@-1,<%OP2 4000>
I~`FE %OP%,<%OP2 777777773777>
IFE < %OP%-2>,<$$E(<ILL@ SWITCH NAME>)>
`IFGE <%OP%-3>,<IFB <A>,<%OP2 4000 >
	IFNB <A>,<%O@P2 A,4000>>
IFL` <%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2<<`2lsO<=`s?)6 d@6:
IFE %OP%d`-1,<%OP2 200>
IFeE %OP%,<%OP2 7777e 77777577>
IFE <%e@OP%-2>,<$$E(<ILL e`SWITCH NAME>)>
IfFGE <%OP%-3>,<IFBf  <A>,<%OP2 200>
	IFNB <A>,<%OP2f` A,200>>
IFL <%gOP%-2>,<%OP3 Y3OPg EN(A)>
%OP%==2c2%PPKc20s?<Q ?4
IFE %OP%?0-1,<%OP2 2>
IFE ?P%OP%,<%OP2 777777?p777775>
IFE <%OP@%-2>,<$$E(<ILL SW@0ITCH NAME>)>
IFG@PE <%OP%-3>,<IFB <@pA>,<%OP2 2>
	IFANB <A>,<%OP2 A,A02>>
IFL <%OP%-2>AP,<%OP3 Y3OPEN(A)>
%OP%==2sO<I s?LQ 9&
IFE %OP%(-1,<%OP2 40000>
HIFE %OP%,<%OP2 77h7777737777>
IFE <%OP%-2>,<$$E(<IL(L SWITCH NAME>)>
IFGE <%OP%-3>,<IhFB <A>,<%OP2 40000>
	IFNB <A>,<(%OP2 A,40000>>
HIFL <%OP%-2>,<%OPh3 Y3OPEN(A)>
%OP%==2W
s?M 8x3[
IFE %OP%9-1,<%OP2 1>
IFE 98%OP%,<%OP2 7777779X777776>
IFE <%OP9x%-2>,<$$E(<ILL SW:ITCH NAME>)>
IFG:8E <%OP%-3>,<IFB <:XA>,<%OP2 1>
	IF:xNB <A>,<%OP2 A,;1>>
IFL <%OP%-2>;8,<%OP3 Y3OPEN(A)>
%OP%==2Ps?

S q07!
IFE %OP%qP-1,<%OP2 1000>
IqpFE %OP%,<%OP2 777r777776777>
IFE <r0%OP%-2>,<$$E(<ILLrP SWITCH NAME>)>
rpIFGE <%OP%-3>,<IFsB <A>,<%OP2 1000s0>
	IFNB <A>,<%OsPP2 A,1000>>
IFLsp <%OP%-2>,<%OP3 Yt3OPEN(A)>
%OP%==2~@g^

s?,r ^6
IFE %OP%^(-1,<%OP2 100>
IF^HE %OP%,<%OP2 7777^h77777677>
IFE <%_OP%-2>,<$$E(<ILL _(SWITCH NAME>)>
IHFGE <%OP%-3>,<IFBh <A>,<%OP2 100>
	IFNB <A>,<%OP2`( A,100>>
IFL <%`HOP%-2>,<%OP3 Y3OP`hEN(A)>
%OP%==2Pc$;wPsB| n7
IFE <%OPn(%-1>,<%OP1 400>
nHIFE %OP%,<%OP1 77nh7377>
IFE <%OP%-o2>,<$$E(<ILL SWITo(CH NAME>)>
IFGE oH<%OP%-3>,<IFB <Aoh>,<%OP1 400>
	IFpNB <A>,<%OP1 A,p(400>>
IFL<%OP%-2pH>,<%OP3 Y3OPEN(A)>
%OP%==2UsB|I1 h8T
IFE <%OP%-1>,<%OP1 10000>(
IFE %OP%,<%OP1 H767777>
IFE <%OPh%-2>,<$$E(<ILL SW	ITCH NAME>)>
IFG	(E <%OP%-3>,<IFB <	HA>,<%OP1 10000>
	IFNB <A>,<%OP1
 A,10000>>
IFL<
(%OP%-2>,<%OP3 Y3O
HPEN(A)>
%OP%==2VuG-
2 sB|IH Z`5j
IFE <%OP[%-1>,<%OP1 40>
I[ FE %OP%,<%OP1 777[@737>
IFE <%OP%-2[`>,<$$E(<ILL SWITC\H NAME>)>
IFGE <\ %OP%-3>,<IFB <A>\@,<%OP1 40>
	IFNB\` <A>,<%OP1 A,40]>>
IFL<%OP%-2>,<] %OP3 Y3OPEN(A)>
%OP%==2cDPsB|\Y @9

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 Y3O PEN(A)>
%OP%==2G|^ H4U
IFE <%OPH8%-1>,<%OP1 4>
IFHXE %OP%,<%OP1 7777Hx73>
IFE <%OP%-2>I,<$$E(<ILL SWITCHI8 NAME>)>
IFGE <%IXOP%-3>,<IFB <A>,Ix<%OP1 4>
	IFNB <JA>,<%OP1 A,4>>
IFL<%OP%-2>,<%OPJX3 Y3OPEN(A)>
%OP%==2uG-@>sB}h TH58
IFE <%OPTh%-1>,<%OP1 20>
IUFE %OP%,<%OP1 777U(757>
IFE <%OP%-2UH>,<$$E(<ILL SWITCUhH NAME>)>
IFGE <V%OP%-3>,<IFB <A>V(,<%OP1 20>
	IFNBVH <A>,<%OP1 A,20Vh>>
IFL<%OP%-2>,<W%OP3 Y3OPEN(A)>
%OP%==22	KsB}i zx7k
IFE <%OP{%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7{X75777>
IFE <%OP%{x-2>,<$$E(<ILL SWI|TCH NAME>)>
IFGE|8 <%OP%-3>,<IFB <|XA>,<%OP1 2000>
	|xIFNB <A>,<%OP1 }A,2000>>
IFL<%OP}8%-2>,<%OP3 Y3OPEN(A)>
%OP%==2sB}Lh N05
IFE <%OPNP%-1>,<%OP1 10>
INpFE %OP%,<%OP1 777O767>
IFE <%OP%-2O0>,<$$E(<ILL SWITCOPH NAME>)>
IFGE <Op%OP%-3>,<IFB <A>P,<%OP1 10>
	IFNBP0 <A>,<%OP1 A,10PP>>
IFL<%OP%-2>,<Pp%OP3 Y3OPEN(A)>
%OP%==2bsB}Lz 08
IFE <%OPP%-1>,<%OP1 4000>
IFE %OP%,<%OP1 773777>
IFE <%OP%0-2>,<$$E(<ILL SWIPTCH NAME>)>
IFGEp <%OP%-3>,<IFB <A>,<%OP1 4000>
	0IFNB <A>,<%OP1 PA,4000>>
IFL<%OPp%-2>,<%OP3 Y3OPEN(A)>
%OP%==2RsB~)6 gP6Q
IFE <%OPgp%-1>,<%OP1 200>
hIFE %OP%,<%OP1 77h07577>
IFE <%OP%-hP2>,<$$E(<ILL SWIThpCH NAME>)>
IFGE i<%OP%-3>,<IFB <Ai0>,<%OP1 200>
	IFiPNB <A>,<%OP1 A,ip200>>
IFL<%OP%-2j>,<%OP3 Y3OPEN(A)>
%OP%==2C}sB~<Q B4$
IFE <%OPB %-1>,<%OP1 2>
IFB@E %OP%,<%OP1 7777B`75>
IFE <%OP%-2>C,<$$E(<ILL SWITCHC  NAME>)>
IFGE <%C@OP%-3>,<IFB <A>,C`<%OP1 2>
	IFNB <DA>,<%OP1 A,2>>
IFL<%OP%-2>,<%OPD@3 Y3OPEN(A)>
%OP%==2+usB~LQ 9?
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 Y3OxPEN(A)>
%OP%==2q[T

}sB~M ;h3r
IFE <%OP<%-1>,<%OP1 1>
IF<(E %OP%,<%OP1 7777<H76>
IFE <%OP%-2><h,<$$E(<ILL SWITCH= NAME>)>
IFGE <%=(OP%-3>,<IFB <A>,=H<%OP1 1>
	IFNB <=hA>,<%OP1 A,1>>
IFL<%OP%-2>,<%OP>(3 Y3OPEN(A)>
%OP%==2o"-kWsB

S t@78
IFE <%OPt`%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7u 76777>
IFE <%OP%u@-2>,<$$E(<ILL SWIu`TCH NAME>)>
IFGEv <%OP%-3>,<IFB <v A>,<%OP1 1000>
	v@IFNB <A>,<%OP1 v`A,1000>>
IFL<%OPw%-2>,<%OP3 Y3OPEN(A)>
%OP%==2@sB,r a6
IFE <%OPa8%-1>,<%OP1 100>
aXIFE %OP%,<%OP1 77ax7677>
IFE <%OP%-b2>,<$$E(<ILL SWITb8CH NAME>)>
IFGE bX<%OP%-3>,<IFB <Abx>,<%OP1 100>
	IFcNB <A>,<%OP1 A,c8100>>
IFL<%OP%-2cX>,<%OP3 Y3OPEN(A)>
%OP%==2sO< Hh,Z
IFE %OP%I-1,<%OP2 40>
IFEI( %OP%,<%OP2 77777IH7777737>
IFE <%OIhP%-2>,<$$E(<ILL SJWITCH NAME>)>
IFJ(GE <%OP%-3>,<IFB JH<A>,<%OP2 40>
	JhIFNB <A>,<%OP2 KA,40>>
IFL <%OP%K(-2>,<%OP3 YSWITCH(A)>
%OP%==2sO<8  81I
IFE <%OPX%-1>,<%OP1 400000x>
IFE %OP%,<%OP1 377777>
IFE <%O8P%-2>,<$$E(<ILL SXWITCH NAME>)>
IFxGE <%OP%-3>,<IFB <A>,<%OP1 4000008>
	IFNB <A>,<%OXP1 A,400000>>
IxFL<%OP%-2>,<%OP3 YSWCHA(A)>
%OP%==2*GgxpQ11sO<9 h1d
IFE <%OP%-1>,<%OP1 200000(>
IFE %OP%,<%OP1H 577777>
IFE <%OhP%-2>,<$$E(<ILL SWITCH NAME>)>
IF(GE <%OP%-3>,<IFB H<A>,<%OP1 200000h>
	IFNB <A>,<%OP1 A,200000>>
I(FL<%OP%-2>,<%OP3 HYSWCHA(A)>
%OP%==2W1

sO<9  1
IFE <%OP8%-1>,<%OP1 100000X>
IFE %OP%,<%OP1x 677777>
IFE <%OP%-2>,<$$E(<ILL S8WITCH NAME>)>
IFXGE <%OP%-3>,<IFB x<A>,<%OP1 100000>
	IFNB <A>,<%O8P1 A,100000>>
IXFL<%OP%-2>,<%OP3 xYSWCHA(A)>
%OP%==2saC.:csO<:   H2
IFE <%OP h%-1>,<%OP1 40000>!
IFE %OP%,<%OP1 !(737777>
IFE <%OP!H%-2>,<$$E(<ILL SW!hITCH NAME>)>
IFG"E <%OP%-3>,<IFB <"(A>,<%OP1 40000>
	IFNB <A>,<%OP1"h A,40000>>
IFL<#%OP%-2>,<%OP3 YSW#(CHA(A)>
%OP%==2PcFMPsO<;  Xx-]
IFE <%OPY%-1>,<%OP1 400000Y8>
IFE %OP%,<%OP1YX 377777>
IFE <%OYxP%-2>,<$$E(<ILL SZWITCH NAME>)>
IFZ8GE <%OP%-3>,<IFB ZX<A>,<%OP1 400000Zx>
	IFNB <A>,<%O[P1 A,400000>>
I[8FL<%OP%-2>,<%OP3 [XYSWITCH(A)>
%OP%==2EGRNK"sO<;v p(/
IFE <%OPpH%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7q75777>
IFE <%OP%q(-2>,<$$E(<ILL SWIqHTCH NAME>)>
IFGEqh <%OP%-3>,<IFB <rA>,<%OP1 2000>
	r(IFNB <A>,<%OP1 rHA,2000>>
IFL<%OPrh%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO<<  #x25
IFE <%OP$%-1>,<%OP1 20000>$8
IFE %OP%,<%OP1 $X757777>
IFE <%OP$x%-2>,<$$E(<ILL SW%ITCH NAME>)>
IFG%8E <%OP%-3>,<IFB <%XA>,<%OP1 20000>
	IFNB <A>,<%OP1& A,20000>>
IFL<&8%OP%-2>,<%OP3 YSW&XCHA(A)>
%OP%==2@cDky@sO<<@ '(2P
IFE <%OP'H%-1>,<%OP1 10000>'h
IFE %OP%,<%OP1 (767777>
IFE <%OP((%-2>,<$$E(<ILL SW(HITCH NAME>)>
IFG(hE <%OP%-3>,<IFB <)A>,<%OP1 10000>
	IFNB <A>,<%OP1)H A,10000>>
IFL<)h%OP%-2>,<%OP3 YSW*CHA(A)>
%OP%==2@c&&=:@sO<<` -h3
IFE <%OP.%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7.H75777>
IFE <%OP%.h-2>,<$$E(<ILL SWI/TCH NAME>)>
IFGE/( <%OP%-3>,<IFB </HA>,<%OP1 2000>
	/hIFNB <A>,<%OP1 0A,2000>>
IFL<%OP0(%-2>,<%OP3 YSWCHA(A)>
%OP%==2sO<=` *X2i
IFE <%OP*x%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7+873777>
IFE <%OP%+X-2>,<$$E(<ILL SWI+xTCH NAME>)>
IFGE, <%OP%-3>,<IFB <,8A>,<%OP1 4000>
	,XIFNB <A>,<%OP1 ,xA,4000>>
IFL<%OP-%-2>,<%OP3 YSWCHA(A)>
%OP%==2sO<>@ Uh-D
IFE %OP%V-1,<%OP2 2000>
IV(FE %OP%,<%OP2 777VH777775777>
IFE <Vh%OP%-2>,<$$E(<ILLW SWITCH NAME>)>
W(IFGE <%OP%-3>,<IFWHB <A>,<%OP2 2000Wh>
	IFNB <A>,<%OXP2 A,2000>>
IFLX( <%OP%-2>,<%OP3 YXHSWITCH(A)>
%OP%==2)	jD+3)~sO<@ <H+x
IFE %OP%<h-1,<%OP2 2>
IFE =%OP%,<%OP2 777777=(777775>
IFE <%OP=H%-2>,<$$E(<ILL SW=hITCH NAME>)>
IFG>E <%OP%-3>,<IFB <>(A>,<%OP2 2>
	IF>HNB <A>,<%OP2 A,>h2>>
IFL <%OP%-2>?,<%OP3 YSWITCH(A)>
%OP%==2qsO<H  {x/u
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>,<%O~P1 A,400000>>
I~8FL<%OP%-2>,<%OP3 ~XYSWDEF(A)>
%OP%==2ggFPsO<I (0
IFE <%OPH%-1>,<%OP1 200000h>
IFE %OP%,<%OP1 577777>
IFE <%O(P%-2>,<$$E(<ILL SHWITCH NAME>)>
IFhGE <%OP%-3>,<IFB <A>,<%OP1 200000(>
	IFNB <A>,<%OHP1 A,200000>>
IhFL<%OP%-2>,<%OP3 YSWDEF(A)>
%OP%==2q^

5PsO<I  X0+
IFE <%OPx%-1>,<%OP1 100000>
IFE %OP%,<%OP18 677777>
IFE <%OXP%-2>,<$$E(<ILL SxWITCH NAME>)>
IFGE <%OP%-3>,<IFB 8<A>,<%OP1 100000X>
	IFNB <A>,<%OxP1 A,100000>>
IFL<%OP%-2>,<%OP3 8YSWDEF(A)>
%OP%==2+u"9*\sO<J  0F
IFE <%OP(%-1>,<%OP1 40000>H
IFE %OP%,<%OP1 h737777>
IFE <%OP%-2>,<$$E(<ILL SW(ITCH NAME>)>
IFGHE <%OP%-3>,<IFB <hA>,<%OP1 40000>
	IFNB <A>,<%OP1( A,40000>>
IFL<H%OP%-2>,<%OP3 YSWhDEF(A)>
%OP%==2'u".;v%ssO<L  	80a
IFE <%OP	X%-1>,<%OP1 20000>	x
IFE %OP%,<%OP1 
757777>
IFE <%OP
8%-2>,<$$E(<ILL SW
XITCH NAME>)>
IFG
xE8<%OP%-3>,<IFB <A>,<%OP1 20000>
	IFNB <A>,<%OP1X A,20000>>
IFL<x%OP%-2>,<%OP3 YSW

DEF(A)>
%OP%==2#,uG-kz (sO<L@

h0|
IFE1<%OPP1 10000>
IFE7%OP%,<%OP1 
IFE2<%OPE(<ILL SWITCH NAME>)>
IFG(E <%OP%-3>,<IFB <HA>,<%OP1 10000>
	IFNB <A>,<%OP1 A,10000>>
IFL<(%OP%-2>,<%OP3 YSWHDEF(A)>
%OP%==2

o&K`

{sO<L` (1.
IFE <%OPH%-1>,<%OP1 2000>
IFE %OP%,<%OP1 775777>
IFE <%OP%(-2>,<$$E(<ILL SWIHTCH NAME>)>
IFGEh <%OP%-3>,<IFB <A>,<%OP1 2000>
	(IFNB <A>,<%OP1 HA,2000>>
IFL<%OPh%-2>,<%OP3 YSWDEF(A)>
%OP%==2~sO<M` 1
IFE <%OP8%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7x73777>
IFE <%OP%-2>,<$$E(<ILL SWI8TCH NAME>)>
IFGEX <%OP%-3>,<IFB <xA>,<%OP1 4000>
	IFNB <A>,<%OP1 8A,4000>>
IFL<%OPX%-2>,<%OP3 YSWDEF(A)>
%OP%==2sO= ?P,
IFE %OP%?p-1,<%OP2 4>
IFE @%OP%,<%OP2 777777@0777773>
IFE <%OP@P%-2>,<$$E(<ILL SW@pITCH NAME>)>
IFGAE <%OP%-3>,<IFB <A0A>,<%OP2 4>
	IFAPNB <A>,<%OP2 A,Ap4>>
IFL <%OP%-2>B,<%OP3 YSWITCH(A)>
%OP%==2fl-
sO=L s8//
IFE <%OPsX%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7t76777>
IFE <%OP%t8-2>,<$$E(<ILL SWItXTCH NAME>)>
IFGEtx <%OP%-3>,<IFB <uA>,<%OP1 1000>
	u8IFNB <A>,<%OP1 uXA,1000>>
IFL<%OPux%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO=Lz m.}
IFE <%OPm8%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7mx73777>
IFE <%OP%n-2>,<$$E(<ILL SWIn8TCH NAME>)>
IFGEnX <%OP%-3>,<IFB <nxA>,<%OP1 4000>
	oIFNB <A>,<%OP1 o8A,4000>>
IFL<%OPoX%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO=iQ vH/H
IFE <%OPvh%-1>,<%OP1 400>
wIFE %OP%,<%OP1 77w(7377>
IFE <%OP%-wH2>,<$$E(<ILL SWITwhCH NAME>)>
IFGE x<%OP%-3>,<IFB <Ax(>,<%OP1 400>
	IFxHNB <A>,<%OP1 A,xh400>>
IFL<%OP%-2y>,<%OP3 YSWITCH(A)>
%OP%==2sO>  ih.d
IFE <%OPj%-1>,<%OP1 10000>j(
IFE %OP%,<%OP1 jH767777>
IFE <%OPjh%-2>,<$$E(<ILL SWkITCH NAME>)>
IFGk(E <%OP%-3>,<IFB <kHA>,<%OP1 10000>
	IFNB <A>,<%OP1l A,10000>>
IFL<l(%OP%-2>,<%OP3 YSWlHITCH(A)>
%OP%==2c&&:6@sO> Kp,u
IFE %OP%L-1,<%OP2 200>
IFL0E %OP%,<%OP2 7777LP77777577>
IFE <%LpOP%-2>,<$$E(<ILL MSWITCH NAME>)>
IM0FGE <%OP%-3>,<IFBMP <A>,<%OP2 200>
	IFNB <A>,<%OP2N A,200>>
IFL <%N0OP%-2>,<%OP3 YSWINPTCH(A)>
%OP%==2uG-R"6uG-`sO>  BX,)
IFE %OP%Bx-1,<%OP2 10>
IFEC %OP%,<%OP2 77777C87777767>
IFE <%OCXP%-2>,<$$E(<ILL SCxWITCH NAME>)>
IFDGE <%OP%-3>,<IFB D8<A>,<%OP2 10>
	DXIFNB <A>,<%OP2 DxA,10>>
IFL <%OP%E-2>,<%OP3 YSWITCH(A)>
%OP%==2sO>0 R@-*
IFE %OP%R`-1,<%OP2 1000>
ISFE %OP%,<%OP2 777S 777776777>
IFE <S@%OP%-2>,<$$E(<ILLS` SWITCH NAME>)>
TIFGE <%OP%-3>,<IFT B <A>,<%OP2 1000T@>
	IFNB <A>,<%OT`P2 A,1000>>
IFLU <%OP%-2>,<%OP3 YU SWITCH(A)>
%OP%==2`PbsO>LV f8.I
IFE <%OPfX%-1>,<%OP1 20000>fx
IFE %OP%,<%OP1 g757777>
IFE <%OPg8%-2>,<$$E(<ILL SWgXITCH NAME>)>
IFGgxE <%OP%-3>,<IFB <hA>,<%OP1 20000>
	IFNB <A>,<%OP1hX A,20000>>
IFL<hx%OP%-2>,<%OP3 YSWiITCH(A)>
%OP%==2cDI;QsO>p O-
IFE %OP%O8-1,<%OP2 400>
IFOXE %OP%,<%OP2 7777Ox77777377>
IFE <%POP%-2>,<$$E(<ILL P8SWITCH NAME>)>
IPXFGE <%OP%-3>,<IFBPx <A>,<%OP2 400>
	IFNB <A>,<%OP2Q8 A,400>>
IFL <%QXOP%-2>,<%OP3 YSWIQxTCH(A)>
%OP%==2#uG/*!!sO? E`,B
IFE %OP%F-1,<%OP2 20>
IFEF  %OP%,<%OP2 77777F@7777757>
IFE <%OF`P%-2>,<$$E(<ILL SGWITCH NAME>)>
IFG GE <%OP%-3>,<IFB G@<A>,<%OP2 20>
	G`IFNB <A>,<%OP2 HA,20>>
IFL <%OP%H -2>,<%OP3 YSWITCH(A)>
%OP%==2sS=` a /V
	IFE <%O_`P%-2>,<$$E(<ILL Sy(WITCH NAME>)>
	IyHFN <%OP%-2>,<
	 yhIFE <%OP%-3>,<%OPz3 777777>
	 IFE z(<%OP%-4>,<%OP3>
zH	 IFL <%OP%-2>,<%zhOP4 YTRPAS(A)>
			%OP%==2>MtGxRP$tGxVP"u-KU VpI
$%W==2
WIFNB <B>,<$%W==2W0+<B>>
IFE <$$USWPE-3>,<LI $$$VAL
Wp$$USE==1>
IFE $$XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$XPR $%W(A)>
IFE <Xp$$USE-2>,<PRINTX YOPD-OPR NESTING ERROR>
$$USE==2u.N8 S@2
$%W==0
S`IFNB <B>,<$%W==0T+<B>>
IFE <$$UST E-3>,<LI $$$VAL
T@$$USE==1>
IFE $$T`USE,<$F $%W(A)>
IFE <$$USE-1>,<$U B [$ZDETYP B(A)U@]-$$RELO($$BAS)>
IFE <$$USE-2>,<PVRINTX INVALID USEV  OF FIELD>
$$USE==2\YPcD^uxt uP3
	ASSERT<upIRP	A <
		IFN	<vA>,<CFAIL	ZEROCHv0ECK FAILURE>
		>
	>
c":u N
OPDEF	$LN8	[HRRZS]
OPDEF	$NXR	[HLLZS]
OPDEF	Nx$F	[SETZM]
PURGEO	$B,$B
$$USE==1
IFNB <A>,<
	IFOXNB <B>,<A,B>
Ox	IFB  <B>,<A>
	>
u"Y@ +ZZDETYPru"\`P u"]@P u"+ x*
IFE %OP% -1,<%OP2 10>
IFE 8 %OP%,<%OP2 77777 X7777767>
IFE <%O xP%-2>,<$$E(<ILL S!WITCH NAME>)>
IF!8GE <%OP%-3>,<IFB !X<A>,<%OP2 10>
	!xIFNB <A>,<%OP2 "A,10>>
IFL <%OP%"8-2>,<%OP3 3(A)>
%OP%==2LID USEu"I; 0(A
$%W==3
PIFNB <B>,<$%W==3p+<B>>
IFE <$$USE-3>,<LI $$$VAL
0$$USE==1>
IFE $$PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$B [$ZHBDEV B(A)0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PpRINTX INVALID USE OF FIELD>
$$USE==2) PgB~u"^ -0*y
IFE %OP%--1,<%OP2 1>
IFE ,p%OP%,<%OP2 777777.8777776>
IFE <%OP.%-2>,<$$E(<ILL SWd@ITCH NAME>)>
IFG-xE <%OP%-3>,<IFB <, A>,<%OP2 1>
	IF,@NB <A>,<%OP2 A,.x1>>
IFL <%OP%-2>/,<%OP3 3(A)>
%OP%==2NVALID USEu"9 '*F
IFE %OP%&`-1,<%OP2 2>
IFE &@%OP%,<%OP2 777777(777775>
IFE <%OP'h%-2>,<$$E(<ILL SWeITCH NAME>)>
IFG'HE <%OP%-3>,<IFB <%pA>,<%OP2 2>
	IF&NB <A>,<%OP2 A,(H2>>
IFL <%OP%-2>(h,<%OP3 3(A)>
%OP%==2NVALID USEu"Kq #h*-
IFE %OP%#H-1,<%OP2 4>
IFE #(%OP%,<%OP2 777777$p777773>
IFE <%OP$P%-2>,<$$E(<ILL SWe ITCH NAME>)>
IFG$0E <%OP%-3>,<IFB <"XA>,<%OP2 4>
	IF"xNB <A>,<%OP2 A,%04>>
IFL <%OP%-2>%P,<%OP3 3(A)>
%OP%==2NVALID USEu"YW )|
$%W==3
`IFNB <B>,<$%W==3(+<B>>
IFE <$$USE-3>,<LI $$$VAL
e@$$USE==1>
IFE $$hUSE,<$F $%W(A)>
IFE <$$USE-1>,<$0B [$ZHBMFO B(A)h]-$$RELO($$BAS)>
IFE <$$USE-2>,<P(RINTX INVALID USEH OF FIELD>
$$USE==2%n	jD\wQ&
u"hu **`
IFE %OP%)x-1,<%OP2 2>
IFE )X%OP%,<%OP2 777777+ 777775>
IFE <%OP+%-2>,<$$E(<ILL SWd`ITCH NAME>)>
IFG*`E <%OP%-3>,<IFB <)A>,<%OP2 2>
	IF)(NB <A>,<%OP2 A,+`2>>
IFL <%OP%-2>,,<%OP3 3(A)>
%OP%==2NVALID USEu"lX `(\
$%W==3
	IFNB <B>,<$%W==3	 +<B>>
IFE <$$US	@E-3>,<LI $$$VAL
	`$$USE==1>
IFE $$
USE,<$F $%W(A)>
 
IFE <$$USE-1>,<$
@B [$ZHBNRP B(A)
`]-$$RELO($$BAS)>
IFE <$$USE-2>,<P RINTX INVALID USE@ OF FIELD>
$$USE==2@Pgg`u"

 /8+$%W==4
IF/XNB <B>,<$%W==4+<2 B>
>
IFE <$$US2@E-3>,<LI $$$VAL
2`$$USE==1>
$F $%W(A)6@c&%	2u"8V @)
$%W==3
`IFNB <B>,<$%W==3+<B>>
IFE <$$US E-3>,<LI $$$VAL
@$$USE==1>
IFE $$`USE,<$F $%W(A)>
IFE <$$USE-1>,<$ B [$ZHBSBL B(A)@]-$$RELO($$BAS)>
IFE <$$USE-2>,<PRINTX INVALID USE  OF FIELD>
$$USE==25`Pq^

;u"= p)-
$%W==3
IFNB <B>,<$%W==30+<B>>
IFE <$$USPE-3>,<LI $$$VAL
p$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$PB [$ZHBSTD B(A)p]-$$RELO($$BAS)>
IFE <$$USE-2>,<P0RINTX INVALID USEP OF FIELD>
$$USE==2I7
uG-J2u">R  )H
$%W==3
@IFNB <B>,<$%W==3`+<B>>
IFE <$$USE-3>,<LI $$$VAL
 $$USE==1>
IFE $$@USE,<$F $%W(A)>
IFE <$$USE-1>,<$B [$ZHBSZD B(A) ]-$$RELO($$BAS)>
IFE <$$USE-2>,<P`RINTX INVALID USE OF FIELD>
$$USE==2@

m&u"[Y 0("$%W==4
IF0NB <B>,<$%W==4+<1PB>
>
IFE <$$US10E-3>,<LI $$$VAL
d $$USE==1>
$F $%W(A)7777777777u"\ 0)_
IFE %OP%P-1,<%OP2 20>
IFEp %OP%,<%OP2 777777777757>
IFE <%O0P%-2>,<$$E(<ILL SPWITCH NAME>)>
IFpGE <%OP%-3>,<IFB <A>,<%OP2 20>
	0IFNB <A>,<%OP2 PA,20>>
IFL <%OP%p-2>,<%OP3 3(A)>
%OP%==2LID USEu"lZ

(w
$%W==3

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

P+<B>>
IFE <$$US

pE-3>,<LI $$$VAL
$$USE==1>
IFEE$$F $%W(A)>
IFE[<$$USE-1>,<$)]-$$RELO($$BAS)>
IFE <$$USE-2>,<PPRINTX INVALID USEp OF FIELD>
$$USE==2T PggX u"
2 yp'a
$%W==2
zIFNB <B>,<$%W==2z0+<B>>
IFE <$$USzPE-3>,<LI $$$VAL
zp$$USE==1>
IFE $${USE,<$F $%W(A)>
IFE <$$USE-1>,<${PL $%W(A)>
IFE <{p$$USE-2>,<PRINTX |OPD-OPR NESTING ERROR>
$$USE==2u")  P(
$%W==2
pIFNB <B>,<$%W==2+<B>>
IFE <$$US0E-3>,<LI $$$VAL
P$$USE==1>
IFE $$pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$0R $%W(A)>
IFE <P$$USE-2>,<PRINTX pOPD-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>,<$ R $%W(A)>
IFE <@$$USE-2>,<PRINTX `OPD-OPR NESTING ERROR>
$$USE==2u",: |`'x
$%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==2u"(Y@+XZDETYP
$%W==1
k@IFNB <B>,<$%W==1k`+<B>>
IFE <$$USlE-3>,<LI $$$VAL
l $$USE==1>
IFE $$l@USE,<$F $%W(A)>
IFE <$$USE-1>,<$mB [$ZHEBNM B(A)m ]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pm`RINTX INVALID USEn OF FIELD>
$$USE==2R@KR~u",K aP&
$%W==0
apIFNB <B>,<$%W==0b+<B>>
IFE <$$USb0E-3>,<LI $$$VAL
bP$$USE==1>
IFE $$bpUSE,<$F $%W(A)>
IFE <$$USE-1>,<$c0R $%W(A)>
IFE <cP$$USE-2>,<PRINTX cpOPD-OPR NESTING ERROR>
$$USE==2u",XV d@&:
$%W==1
d`IFNB <B>,<$%W==1e+<B>>
IFE <$$USe E-3>,<LI $$$VAL
e@$$USE==1>
IFE $$e`USE,<$F $%W(A)>
IFE <$$USE-1>,<$f B [$ZHEEBL B(A)f@]-$$RELO($$BAS)>
IFE <$$USE-2>,<PgRINTX INVALID USEg  OF FIELD>
$$USE==2[Q|	k[u",j< nP'
$%W==1
npIFNB <B>,<$%W==1o+<B>>
IFE <$$USo0E-3>,<LI $$$VAL
oP$$USE==1>
IFE $$opUSE,<$F $%W(A)>
IFE <$$USE-1>,<$p0B [$ZHEFIX B(A)pP]-$$RELO($$BAS)>
IFE <$$USE-2>,<PqRINTX INVALID USEq0 OF FIELD>
$$USE==2wXEHu"-I7 gp&U
$%W==1
hIFNB <B>,<$%W==1h0+<B>>
IFE <$$UShPE-3>,<LI $$$VAL
hp$$USE==1>
IFE $$iUSE,<$F $%W(A)>
IFE <$$USE-1>,<$iPB [$ZHELEN B(A)ip]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pj0RINTX INVALID USEjP OF FIELD>
$$USE==2^T!7	k^Xu"-J2 u0'=
$%W==0
uPIFNB <B>,<$%W==0up+<B>>
IFE <$$USvE-3>,<LI $$$VAL
v0$$USE==1>
IFE $$vPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$wR $%W(A)>
IFE <w0$$USE-2>,<PRINTX wPOPD-OPR NESTING ERROR>
$$USE==2u"-kt Z@%h
IFE <%OPZ`%-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 0(A)>
%OP%==2VALID USEu"-z2 r'&
$%W==0
r IFNB <B>,<$%W==0r@+<B>>
IFE <$$USr`E-3>,<LI $$$VAL
s$$USE==1>
IFE $$s USE,<$F $%W(A)>
IFE <$$USE-1>,<$s`B [$ZHEOID B(A)t]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pt@RINTX INVALID USEt` OF FIELD>
$$USE==2.;v ^&
$%W==0
]pIFNB <B>,<$%W==0_@+<B>>
IFE <$$US_ E-3>,<LI $$$VAL
_$$USE==1>
IFE $$] USE,<$F $%W(A)>
IFE <$$USE-1>,<$`B [$ZHESOL B(A)` ]-$$RELO($$BAS)>
IFE <$$USE-2>,<P``RINTX INVALID USEa OF FIELD>
$$USE==2#D[u".N8 W0%Q
$%W==0
WPIFNB <B>,<$%W==0Wp+<B>>
IFE <$$USXE-3>,<LI $$$VAL
X0$$USE==1>
IFE $$XPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$YB [$ZHETYP B(A)Y0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PYpRINTX INVALID USEZ OF FIELD>
$$USE==24(Pq^

4@u".[Y x 'J$%W==1
IFx@NB <B>,<$%W==1+<x`B>
>
IFE <$$USyE-3>,<LI $$$VAL
y $$USE==1>
$F $%W(A)P`cPuG

j< 6 +D
$%W==0
6@IFNB <B>,<$%W==06`+<B>>
IFE <$$US7E-3>,<LI $$$VAL
7 $$USE==1>
IFE $$7@USE,<$F $%W(A)>
IFE <$$USE-1>,<$8R $%W(A)>
IFE <8 $$USE-2>,<PRINTX 8@OPD-OPR NESTING ERROR>
$$USE==2uG
$%W==0
3PIFNB <B>,<$%W==03p+<B>>
IFE <$$US4E-3>,<LI $$$VAL
40$$USE==1>
IFE $$4PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$5L $%W(A)>
IFE <50$$USE-2>,<PRINTX 5POPD-OPR NESTING ERROR>
$$USE==2uG[Y 9+Q$%W==1
IF90NB <B>,<$%W==1+<9PB>
>
IFE <$$US9pE-3>,<LI $$$VAL
:$$USE==1>
$F $%W(A)PcNM\uG(Y@ +VZDETYP8vuG(\`P uG(]@P uG,I Lp$v
IFE <%OPLP%-1>,<%OP1 400>
L0IFE %OP%,<%OP1 77M`7377>
IFE <%OP%-M@2>,<$$E(<ILL SWITf CH NAME>)>
IFGE K`<%OP%-3>,<IFB <AL>,<%OP1 400>
	IFN NB <A>,<%OP1 A,N@400>>
IFL<%OP%-2N`>,<%OP3 3(A)>
%OP%==2ALID USE uG,^ ]0\
IFE <%OP]%-1>,<%OP1 20000>\p
IFE %OP%,<%OP1 j@757777>
IFE <%OPj %-2>,<$$E(<ILL SWjITCH NAME>)>
IFG\ E <%OP%-3>,<IFB <\@A>,<%OP1 20000>
	IFNB <A>,<%OP1k  A,20000>>
IFL<k@%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG,j< !c
$%W==1
0IFNB <B>,<$%W==1P+<B>>
IFE <$$USpE-3>,<LI $$$VAL
$$USE==1>
IFE $$0USE,<$F $%W(A)>
IFE <$$USE-1>,<$pL $%W(A)>
IFE <$$USE-2>,<PRINTX 0OPD-OPR NESTING ERROR>
$$USE==2uG,x@ <`#s
IFE <%OP<@%-1>,<%OP1 20000>< 
IFE %OP%,<%OP1 =0757777>
IFE <%OPg@%-2>,<$$E(<ILL SWg ITCH NAME>)>
IFG;PE <%OP%-3>,<IFB <;pA>,<%OP1 20000>
	IFNB <A>,<%OP1> A,20000>>
IFL<>0%OP%-2>,<%OP3 3(A)>
%OP%==2SE uG,{ Y@`
IFE <%OPY`%-1>,<%OP1 40000>Z
IFE %OP%,<%OP1 Z 737777>
IFE <%OPZ@%-2>,<$$E(<ILL SWZ`ITCH NAME>)>
IFG[E <%OP%-3>,<IFB <[ A>,<%OP1 40000>
	IFNB <A>,<%OP1[` A,40000>>
IFL<\%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG-
2 }0x
IFE <%OP}%-1>,<%OP1 20>
I|pFE %OP%,<%OP1 777~757>
IFE <%OP%-2h`>,<$$E(<ILL SWITCh@H NAME>)>
IFGE <| %OP%-3>,<IFB <A>|@,<%OP1 20>
	IFNB~@ <A>,<%OP1 A,20~`>>
IFL<%OP%-2>,<%OP3 0(A)>
%OP%==2 INVALID USEuG-@ s0*
IFE <%OPs%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7t 73777>
IFE <%OP%t-2>,<$$E(<ILL SWIi TCH NAME>)>
IFGEr  <%OP%-3>,<IFB <r@A>,<%OP1 4000>
	t`IFNB <A>,<%OP1 uA,4000>>
IFL<%OPu %-2>,<%OP3 0(A)>
%OP%==2D USE uG-R '"J
$%W==1
' IFNB <B>,<$%W==1'@+<B>>
IFE <$$US'`E-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-` ?`$
IFE <%OP?@%-1>,<%OP1 10000>? 
IFE %OP%,<%OP1 @P767777>
IFE <%OP@0%-2>,<$$E(<ILL SWgITCH NAME>)>
IFG>PE <%OP%-3>,<IFB <>pA>,<%OP1 10000>
	IFNB <A>,<%OP1A0 A,10000>>
IFL<AP%OP%-2>,<%OP3 3(A)>
%OP%==2SE uG-` p
IFE <%OPop%-1>,<%OP1 10000>oP
IFE %OP%,<%OP1 q767777>
IFE <%OPp`%-2>,<$$E(<ILL SWi@ITCH NAME>)>
IFGoE <%OP%-3>,<IFB <o A>,<%OP1 10000>
	IFNB <A>,<%OP1q` A,10000>>
IFL<r%OP%-2>,<%OP3 0(A)>
%OP%==2SE uG-P `!z
IFE <%OP%-1>,<%OP1 400000 >
IFE %OP%,<%OP1@ 377777>
IFE <%O`P%-2>,<$$E(<ILL SWITCH NAME>)>
IF GE <%OP%-3>,<IFB @<A>,<%OP1 400000`>
	IFNB <A>,<%OP1 A,400000>>
I FL<%OP%-2>,<%OP3 1(A)>
%OP%==2uG-;R 
  h
$%W==0

@IFNB <B>,<$%W==0
`+<B>>
IFE <$$USE-3>,<LI $$$VAL
 $$USE==1>
IFE $$@USE,<$F $%W(A)>
IFE <$$USE-1>,<$

B [$ZQUKND B(A)

]-$$RELO($$BAS)>

@
IFE <$$USE-2>,<P

`RINTXIINVALID USE
$$USE==2Jp@c&%khuG-I7 lpv
IFE <%OPlP%-1>,<%OP1 10000>l0
IFE %OP%,<%OP1 m`767777>
IFE <%OPm@%-2>,<$$E(<ILL SWi`ITCH NAME>)>
IFGk`E <%OP%-3>,<IFB <lA>,<%OP1 10000>
	IFNB <A>,<%OP1n@ A,10000>>
IFL<n`%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG-J2 #P"3
$%W==1
#pIFNB <B>,<$%W==1$+<B>>
IFE <$$US$0E-3>,<LI $$$VAL
$P$$USE==1>
IFE $$$pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$%0B [$ZQULID B(A)%P]-$$RELO($$BAS)>
IFE <$$USE-2>,<P&RINTX INVALID USE&0 OF FIELD>
$$USE==2J

o&K`uG-KR Rp%)
$%W==3
SIFNB <B>,<$%W==3S0+<B>>
IFE <$$USSPE-3>,<LI $$$VAL
Sp$$USE==1>
IFE $$TUSE,<$F $%W(A)>
IFE <$$USE-1>,<$TPR $%W(A)>
IFE <Tp$$USE-2>,<PRINTX UOPD-OPR NESTING ERROR>
$$USE==2uG-K` C$'
IFE <%OPB`%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7Cp73777>
IFE <%OP%CP-2>,<$$E(<ILL SWIf`TCH NAME>)>
IFGEAp <%OP%-3>,<IFB <BA>,<%OP1 4000>
	D0IFNB <A>,<%OP1 DPA,4000>>
IFL<%OPDp%-2>,<%OP3 3(A)>
%OP%==2D USE uG-[r p M
$%W==0
IFNB <B>,<$%W==00+<B>>
IFE <$$USPE-3>,<LI $$$VAL
p$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$PB [$ZQUMOD B(A)p]-$$RELO($$BAS)>
IFE <$$USE-2>,<P	0RINTX INVALID USE	P OF FIELD>
$$USE==2;wPc$N7uG-h1 5`#D
$%W==3
6IFNB <B>,<$%W==36 +<B>>
IFE <$$US6@E-3>,<LI $$$VAL
6`$$USE==1>
IFE $$7USE,<$F $%W(A)>
IFE <$$USE-1>,<$7@B [$ZQUNAC B(A)7`]-$$RELO($$BAS)>
IFE <$$USE-2>,<P8 RINTX INVALID USE8@ OF FIELD>
$$USE==2W%
uG-kz 0 
IFE <%OP%-1>,<%OP1 10>
IpFE %OP%,<%OP1 777@767>
IFE <%OP%-2 >,<$$E(<ILL SWITCH NAME>)>
IFGE < %OP%-3>,<IFB <A>@,<%OP1 10>
	IFNB <A>,<%OP1 A,10 >>
IFL<%OP%-2>,<@%OP3 0(A)>
%OP%==2 INVALID USEuG-lq  0"
$%W==1
 IFNB <B>,<$%W==1!@+<B>>
IFE <$$US! E-3>,<LI $$$VAL
h$$USE==1>
IFE $$@USE,<$F $%W(A)>
IFE <$$USE-1>,<$"B [$ZQUNSB B(A)" ]-$$RELO($$BAS)>
IFE <$$USE-2>,<P"`RINTX INVALID USE# OF FIELD>
$$USE==24`Pq^

5uG.

@ 8p#[
IFE <%OP9%-1>,<%OP1 40000>90
IFE %OP%,<%OP1 9P737777>
IFE <%OP9p%-2>,<$$E(<ILL SW:ITCH NAME>)>
IFG:0E <%OP%-3>,<IFB <:PA>,<%OP1 40000>
	IFNB <A>,<%OP1; A,40000>>
IFL<;0%OP%-2>,<%OP3 3(A)>
%OP%==2SEuG.
IFE <%OPI%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7J@76777>
IFE <%OP%J -2>,<$$E(<ILL SWIJTCH NAME>)>
IFGEH0 <%OP%-3>,<IFB <HPA>,<%OP1 1000>
	KIFNB <A>,<%OP1 K A,1000>>
IFL<%OPK@%-2>,<%OP3 3(A)>
%OP%==2ID USEuG.2 0#
$%W==2
0 IFNB <B>,<$%W==20@+<B>>
IFE <$$US0`E-3>,<LI $$$VAL
1$$USE==1>
IFE $$1 USE,<$F $%W(A)>
IFE <$$USE-1>,<$1`L $%W(A)>
IFE <2$$USE-2>,<PRINTX 2 OPD-OPR NESTING ERROR>
$$USE==2uG.5 F $A
IFE <%OPF%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7G75777>
IFE <%OP%Fp-2>,<$$E(<ILL SWIf@TCH NAME>)>
IFGEE <%OP%-3>,<IFB <E0A>,<%OP1 2000>
	GPIFNB <A>,<%OP1 GpA,2000>>
IFL<%OPH%-2>,<%OP3 3(A)>
%OP%==2ID USEuG.;Y Op%
$%W==3
OPIFNB <B>,<$%W==3P`+<B>>
IFE <$$USfE-3>,<LI $$$VAL
e`$$USE==1>
IFE $$OUSE,<$F $%W(A)>
IFE <$$USE-1>,<$Q B [$ZQUSNR B(A)Q@]-$$RELO($$BAS)>
IFE <$$USE-2>,<PRRINTX INVALID USER  OF FIELD>
$$USE==2+	Pgfl+	uG.= !
$%W==0
 IFNB <B>,<$%W==0@+<B>>
IFE <$$US`E-3>,<LI $$$VAL
$$USE==1>
IFE $$ USE,<$F $%W(A)>
IFE <$$USE-1>,<$`B [$ZQUSTM B(A)]-$$RELO($$BAS)>
IFE <$$USE-2>,<P@RINTX INVALID USE` OF FIELD>
$$USE==2I0PcN=uG.>9 yp`
IFE <%OPyP%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7{75777>
IFE <%OP%z`-2>,<$$E(<ILL SWIz@TCH NAME>)>
IFGEx` <%OP%-3>,<IFB <yA>,<%OP1 2000>
	{@IFNB <A>,<%OP1 {`A,2000>>
IFL<%OP|%-2>,<%OP3 0(A)>
%OP%==2ID USEuG.I6  !L
$%W==0
@IFNB <B>,<$%W==0`+<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.K5 
$%W==0
IFNB <B>,<$%W==0+<B>>
IFE <$$US0E-3>,<LI $$$VAL
P$$USE==1>
IFE $$pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$0B [$ZQUTMK B(A)P]-$$RELO($$BAS)>
IFE <$$USE-2>,<PRINTX INVALID USE0 OF FIELD>
$$USE==2)6Pc:~N8uG.L vPD
IFE <%OPv0%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7w@73777>
IFE <%OP%w -2>,<$$E(<ILL SWIiTCH NAME>)>
IFGEu@ <%OP%-3>,<IFB <u`A>,<%OP1 4000>
	xIFNB <A>,<%OP1 x A,4000>>
IFL<%OPx@%-2>,<%OP3 0(A)>
%OP%==2ID USEuG.N8 P 2
$%W==0
0IFNB <B>,<$%W==0`+<B>>
IFE <$$US@E-3>,<LI $$$VAL
h $$USE==1>
IFE $$`USE,<$F $%W(A)>
IFE <$$USE-1>,<$ B [$ZQUTYP B(A)@]-$$RELO($$BAS)>
IFE <$$USE-2>,<PRINTX INVALID USE  OF FIELD>
$$USE==2PcD;vuG.[Y U`%6$%W==4
IFVNB <B>,<$%W==4+<V B>
>
IFE <$$USV@E-3>,<LI $$$VAL
V`$$USE==1>
$F $%W(A)P

ggE uG.\r )P"a
IFE <%OP)p%-1>,<%OP1 400000*>
IFE %OP%,<%OP1*0 377777>
IFE <%O*PP%-2>,<$$E(<ILL S*pWITCH NAME>)>
IF+GE <%OP%-3>,<IFB +0<A>,<%OP1 400000+P>
	IFNB <A>,<%O+pP1 A,400000>>
I,FL<%OP%-2>,<%OP3 2(A)>
%OP%==2uG/(@ 2p#)
$%W==2
3IFNB <B>,<$%W==230+<B>>
IFE <$$US3PE-3>,<LI $$$VAL
3p$$USE==1>
IFE $$4USE,<$F $%W(A)>
IFE <$$USE-1>,<$4PR $%W(A)>
IFE <4p$$USE-2>,<PRINTX 5OPD-OPR NESTING ERROR>
$$USE==2uG/* 0!5
$%W==0
PIFNB <B>,<$%W==0p+<B>>
IFE <$$USE-3>,<LI $$$VAL
0$$USE==1>
IFE $$PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$R $%W(A)>
IFE <0$$USE-2>,<PRINTX POPD-OPR NESTING ERROR>
$$USE==2uG/,: - "{
$%W==2
-IFNB <B>,<$%W==2.0+<B>>
IFE <$$US.E-3>,<LI $$$VAL
g`$$USE==1>
IFE $$,0USE,<$F $%W(A)>
IFE <$$USE-1>,<$.pL $%W(A)>
IFE </$$USE-2>,<PRINTX /0OPD-OPR NESTING ERROR>
$$USE==2$`

u$K`

s${t

y%@

m& e0+
	PURGE ABC
$$LA==0&@ ep/
	IF2,<PURGEoAB>)>
	IFDEF pAB,<IF2,<PURGE AB>>[XE&8

w&J

o&K`

{&z

q`P <P =P  ABC$Y@P ( dP'IF1,<PRINTdpX *** ERROR: A ***>,15,16,17,18D[ .xy
.CREF
D/EFINE A=<%.%B(XPDP)>
.XCREF] .8sPURGE %.%AaR~@`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 [ 0cXE $\h b



IFGE	^
pD17-^D3,<
IFB <c C>,<DEFINE YPOTRC(ACC)<
IFE <%OP%c`-1>,<%OP1 B>
IF}`E %OP%,<%OP1 A>
IFE <%OP%-2>,<$$w(E(<ILL SWITCH NAM;HE>)>
IFGE <%OP%-pp3>,<IFB <ACC>,<%OSP1 B>
	IFNB <ACj8C>,<%OP1 ACC,B>>-X
IFL<%OP%-2>,<%OdP3 Y3OPEN(ACC)>
'(%OP%==2>>
IFNB <]HC>,<DEFINE YPOTRHC=<
IFE <%OP%-1>W0,<%OP1 B>
IFE %P@OP%,<%OP1 A>
IFQE <%OP%-2>,<$$E(<I`ILL SWITCH NAME>)K>
IFGE <%OP%-3>,C0<%OP1 C,B>
IFLDh <%OP%-2>,<%OP3 Y=3OPEN(C)>
%OP%=>P=2>>>

IFL ^D177X-^D3,<
IFB <>,<D88EFINE YPOTRC(ACC)78<
IFE %OP%-1,<%O`P2 B>
IFE %OP%,}`<%OP2 A>
IFE <%z OP%-2>,<$$E(<ILL wSWITCH NAME>)>
Is`FGE <%OP%-3>,<IFBp@ <ACC>,<%OP2 B>
	IFNB <ACC>,<%OP]`2 ACC,B>>
IFL <^%OP%-2>,<%OP3 Y3O^ PEN(ACC)>
%OP%==^@2>>
IFNB <>,<DEF^`INE YPOTRC=<
IFE_ <%OP%-1>,<%OP2 _ B>
IFE %OP%,<%OP{82 A>
IFE <%OP%-{2>,<$$E(<ILL SWIT` CH NAME>)>
IFGE `@<%OP%-3>,<%OP2 C``,B>
IFL <%OP%-2a>,<%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 -`:r
IRP A,<.
	OPDEF	GOTOA	[. JUMPA]
	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@Q 4M@ 5`;<
	STACK	6A+2
	JFCL	17,.+16 
	FDVL	A,B
	J6@OV	.+6
	MOVN	A+6`2,A
	FMPR	A+2,71+B
	UFA	A+1,7 A+2
	FDVR	A+2,7@B
	FADL	A,A+2
	UNSTK	A+2
v5\ 3 ;*
	STACK	3@A+2
	JFCL	17,.+13`
	L	A+2,A
	FM4PR	A+2,1+B
	FM4 PR	A+1,B
	UFA	4@A+1,A+2
	FMPL	4`A,B
	JOV	.+3
5	UFA	A+1,A+2
	5 FADL	A,A+2
	UNSTK	A+2
ggD >}{woP