Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/rts/simmac.unv
There are 7 other files named simmac.unv in the archive. Click here to see a list.
x
,$w@P CL 2x#
	.XCREF
	IFN $$BST-10,<$38$E(<Illegal as>)>3X
	$$BST==3
	$$$AS
	.CREF
,CO\Z -WE=@ EX$c
.XCREF
Ex$$C($$,\<$$BSP>)=F=$$BST
$$C($$,\<F8$$BSP+1>)==$$L1
FX$$C($$,\<$$BSP+2>Fx)==$$L2
$$C($$,\G<$$BSP+3>)==$$L3
$$C($$,\<$$BSP+4GX>)==$$L4
$$C($$,Gx\<$$BSP+5>)==$$L5H
$$C($$,\<$$BSP+H86>)==$$L6
$$C($$HX,\<$$BSP+7>)==$$LHx7
$$C($$,\<$$BSPI+10>)==$$L8
$$C(I8$$,\<$$BSP+11>)==IX$$L9
$$C($$,\<$$IxBSP+12>)==$$L10
J$$BST==11
$$BSP=J8=$$BSP+13
$$L1==JX$$L+1
$$L2==$$L+Jx2
$$L3==$$L+3
$K$L4==$$L+4
$$L5=K8=$$L+5
$$L6==$$LKX+6
$$L7==$$L+7
Kx$$L8==$$L+10
$$LL9==$$L+11
$$L10=L8=$$L
$$L==$$L+12
.CREF
EJEJPRINTX AG2,W 
" R
	SKPINC
	NOP
RRI1,ERRGRNK uH0
	TITLE	uhA     DECsystem-1v0/20 SIMULA COMPILER %4A(310)  IGVu@ vH>
	IFDEF .vhDIRECTIVE,<.DIRECwTIVE .NOBIN>
	UNw(IVERSAL A     DEwHCsystem-10/20 SIMwhULA COMPILER %4A(310)  ILER %4A(IF=` <`Ia
 DEFINE =X(NAM,NUMBER)=<
m`	RADIX	8
	DSW	(NIAM,Y3OPEN,NUMBER)
@
 >
 DEFINE Y(P	1,P2)=<SYN P1,YOP	8'P2>
	QOPNO==^D3	X5
 IRP A,<
	RA	xDIX	10
	X	(YOPA	,\<35-QCHA>)
	R	8ADIX	10
	X	(YPO	XA,\<17-QCHA>)
		xY	(YOPA,\QOPNO)
	QOPNO=QOPNO-1
 >
cXE%gI  =`I F8-
$$DEF==0FX
IFE <^DC-^D36>Fx,<DEFINE A(XB,O)G=
<$%W==B
IFNBG8 <O>,<$%W==B+<O>GX
>
IFE <$$USE-3Gx>,<LI $$$VAL
$$UHSE==1>
$F $%W(XBH8)>
$$DEF==1>
IFHXE <^DC-^D18>,<IFHxE <^DD-^D17>,
<I
DEFINE A(XB,O)I8=<
$%W==B
IFNBIX <O>,<$%W==B+<O>Ix>
IFE <$$USE-3>,J<LI $$$VAL
$$USEJ8==1>
IFE $$USE,<JX$F $%W(XB)>
IFE Jx<$$USE-1>,<$L $%WK(XB)>
IFE <$$USEK8-2>,<PRINTX OPD-OKXPR NESTING ERROR>Kx
$$USE==2>
$$DELF==1>
IFE <^DD-L8^D35>,
<DEFINE LXA(XB,O)=<
$%W==LxB
IFNB <O>,<$%W=M=B+<O>>
IFE <$$M8USE-3>,<LI $$$VALMX
$$USE==1>
IFE Mx$$USE,<$F $%W(XB)N>
IFE <$$USE-1>,N8<$R $%W(XB)>
IFENX <$$USE-2>,<PRINTNxX OPD-OPR NESTINGO ERROR>
$$USE==2O8>
$$DEF==1>
>
OXIFE $$DEF,<
DEFIOxNE A(XB,O)=<
$%PW==B
IFNB <O>,<P8$%W==B+<O>>
IFEPX <$$USE-3>,<LI $$Px$VAL
$$USE==1>
QIFE $$USE,<$F $%WQ8(XB)>
IFE <$$USEQX-1>,<$B [$A O(XBQx)]-$$RELO($$BAS)>R
IFE <$$USE-2>,<R8PRINTX INVALID USRXE OF FIELD>
$$USRxE==2>
$$DEF==1>
OPDEF $A [POINTS8 C,B,D]
$A==SX$A
%A==^DD
ISxFE <^DC-1>,<DSW (A,B,D)>
I'= t XEC DIRST.##XEC DIRST.I< *"Y
	.XCREF
	IFN $$BST-2,<$$*XE(<Illegal do>)>
	$$$DO
	$$C(L,\+$$LT): $$BST==7
	.CREF
IH T8-%
A%S==BTX
A%V==D
DEFINE A%F=<C>
IJ  
0Q_	PROC
.A
P::	SAVE	<X2,X3,X4
p,X5>
	OUTSTR	[AS
CIZ/            =
0====
RECORD TYPE
P A AT ADDRESS /]
p
	LI	X3,22
	MOV
E	X4,X1
	EXEC	L2
0
	OUTSTR	[ASCIZ/
P
            ===
p==

/]
	IRP B
	<	OUTSTR	[ASCIZ/
0B/]
			OUTCHR	[
P"="]
			SIZE	(QS
pZ,B)
			IFE	<QS
Z-1>,<LI	X4,"0"

0					 IFON	B(X1)
P
					 LI	X4,"1"
p
					 OUTCHR	X4

					>
			IFN	
0<QSZ-1>,<LI	X3,QS
PZ
					 LF	(X4) 
pB(X1)
					 EXE
C	L2
					>
			
0OUTSTR	[ASCIZ/
/
P]
>
	OUTSTR	[AS
pCIZ/
/]
	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
	ROT
C	X4,3
	ADDI	X5,
0"0"
	OUTCHR	X5

P	DECR	X2,L3
	POP
pJ	XPDP,0
	EPROC
&ltPc@IO8 h8'k

IFL <^hXD36-^DC>,<$$E(<ThxOO BIG BIT NO>)>
IFE ^D36-^DC,<
 IFB <D>,<DEFINiXE A(ACC)=<
	IFEix <%OP%-2>,<$$E(<IjLL SWITCH NAME>)>j8
	IFN <%OP%-2>,<jX
	 IFE <%OP%-3>,jx<%OP3 777777>
	 kIFE <%OP%-4>,<%OPk83>
	kIFL <%OP%-2kX>,<%OP4 B(ACC)>
			%OP%==2>>>
 lIFNB <D>,<DEFINEl8 A=<
	IFE <%OP%lX-2>,<$$E(<ILL SWIlxTCH NAME>)>
	IFNm <%OP%-2>,<
	 IFm8E <%OP%-3>,<%OP3 mXD,777777>
	 IFEmx <%OP%-4>,<%OP3 nD,>
	nIFL <%OP%-n82>,<%OP4 B(D)>
		     %OP%==2>>nx>>
IFGE	^D35-^DoC,<
	VA==1BC
o8IFE	^DC,<
	CA=oX=377777777777>
IoxFN	^DC,<
	CA==p-1*VA-1>
IFGE ^p8D17-^DC,<
	CA=pX=CA_-^D18
	VA=px=VA_-^D18>

DEqFINE	$$TES1(X,Y,Zq8)<

IFGE	^D17-^qXDC,<
IFB <Z>,<DqxEFINE A(ACC)<
IrFE <%OP%-1>,<%OP1r8 Y>
IFE %OP%,<%OrXP1 X>
IFE <%OP%-rx2>,<$$E(<ILL SWITsCH NAME>)>
IFGE s8<%OP%-3>,<IFB <ACsXC>,<%OP1 Y>
	IFNsxB <ACC>,<%OP1 ACCt,Y>>
IFL<%OP%-2>t8,<%OP3 B(ACC)>
tX%OP%==2>>
IFNB <txZ>,<DEFINE A=<
uIFE <%OP%-1>,<%OPu81 Y>
IFE %OP%,<%uXOP1 X>
IFE <%OP%ux-2>,<$$E(<ILL SWIvTCH NAME>)>
IFGEv8 <%OP%-3>,<%OP1 ZvX,Y>
IFL <%OP%-2>vx,<%OP3 B(Z)>
%OwP%==2>>>

IFL ^w8D17-^DC,<
IFB <wXD>,<DEFINE A(ACwxC)<
IFE %OP%-1,<x%OP2 Y>
IFE %OP%x8,<%OP2 X>
IFE <%xXOP%-2>,<$$E(<ILL xxSWITCH NAME>)>
IyFGE <%OP%-3>,<IFBy8 <ACC>,<%OP2 Y>
yX	IFNB <ACC>,<%OP2yx ACC,Y>>
IFL <%OzP%-2>,<%OP3 B(ACz8C)>
%OP%==2>>
IzXFNB <D>,<DEFINE zxA=<
IFE <%OP%-1{>,<%OP2 Y>
IFE %{8OP%,<%OP2 X>
IFE{X <%OP%-2>,<$$E(<I{xLL SWITCH NAME>)>|
IFGE <%OP%-3>,<|8%OP2 Z,Y>
IFL <%|XOP%-2>,<%OP3 B(Z|x)>
%OP%==2>>
>}
>
	$$TES1(\CA,}8\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)-$$RE xLO($$BAS)
	$$C(L!,\$$LF): $$BST==6
	.CREF
K:$@ Lx%#
.XCREF
MIFN $$BST-11,<$$EM8(<Illegal endd>)>MX
$$BSP==$$BSP-13Mx
$$$PD2(L,\$$L1)N
$$$PD2(L,\$$L2)N8
$$$PD2(L,\$$L3)NX
$$$PD2(L,\$$L4)Nx
$$$PD2(L,\$$L5)O
$$$PD2(L,\$$L6)O8
$$$PD2(L,\$$L7)OX
$$$PD2(L,\$$L8)Ox
$$$PD2(L,\$$L9)P
$$$PD2(L,\$$L10P8)
$$BST==$$C($$,PX\$$BSP)
$$L1==$$PxC($$,\<$$BSP+1>)
$$L2==$$C($$,\<$Q8$BSP+2>)
$$L3==$QX$C($$,\<$$BSP+3>)Qx
$$L4==$$C($$,\<R$$BSP+4>)
$$L5==R8$$C($$,\<$$BSP+5>RX)
$$L6==$$C($$,\Rx<$$BSP+6>)
$$L7=S=$$C($$,\<$$BSP+7S8>)
$$L8==$$C($$,SX\<$$BSP+10>)
$$LSx9==$$C($$,\<$$BSPT+11>)
$$L10==$$CT8($$,\<$$BSP+12>)
.CREF
K;$\S 
pPM
	LI	X1,Y
	ELA
	IF2,<IFNDE
	0F O1JFNO,<EXTERN 
	PO1JFNO>>
	XEC	O1JFNO
B"uG(\`KB~ 0)[
	IFE  ESPSIZE,<$$E(<Underfplow in stack E>)>
	IFG ESSIZE,<
0	IFNB <A>,<A=ETPOP>
	ETOP=$$C(E,p\ESSIZE,$)
	$$$P(E,\ESSIZE,$)
	E0SSIZE=ESSIZE-1
>KCx` 4X+G
.XCREF
 IFDEF $$SNOY,<P5URGE $$SNOY>
 IF58NDEF $$NO,<$$E(<I5XLLEGAL EPROC>)>
5x IFDEF $$NO,<			
	 $$T1==0
	 PUR68GE	$$NO		
 REPEA6XT $$NR,<
IFDEF $6x$TEMP,<EPOP $$T1>7
IFNDEF $$TEMP,<78PPOP $$T1>
	 $$K7XILL	(\$$T1)>	
	 7xPURGE	$$NR
 IFDE8F $$TEMP,<			
	 88PURGE	$$SNOX
	 P8XURGE	$$TEMP>
	 P8xURGE $$T1
	 ENDD>%'q^
4 PKC.: 0)G
	IFE  ESpSIZE -7777,<$$E(<Overflow in stack0 E>)>
	ESSIZE=ESPSIZE+1
	$$C(E,\EpSSIZE,$)=ETOP
	ETOP=A
KK @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
	.XCRE"xF>
>
	.CREF
	 #XEC	A 
	.XCREF
IFDEF $$LOOP,<
	 SUB	XPDP, [XWD#x -$$LOOP,-$$LOOP]$
	 PURGE	$$LOOP>
.CREF
Mf9  >X#w$$C(L,\$$L>xF)-$$RELO($$BAS)Pq^
5PM$ M$ !X"/
	.XCREF
	IFN<$$BST-5>*<$"$BST-6>,<$$E(<Ill"8egal fi>)>
	IFE "X$$BST-5,<
	$$C(L"x,\$$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
O&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
xoubleAdecl. of qu
	$$Q
	$$QAT=0
	AQSIZE=0
	IFB>,<
DEFINE  AOUTQ(W)<
	IFE 8AQSIZE,<$$E(<UndXerflow 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,<AH8EADL=L
	AHEADR=XR>
	AQSIZE=AQSxIZE+1
	$$QAT=<$$QAT+1>&7777
>
>
.CREF
O&= | U
	.XCREF
	X=-1
	IRPC A,|X<
	X=X+1>
	IFN |xX,<$$E(<Stack nam}e A not one lett}8er>)>
	IFE X,<
}XIF1,<	IFDEF ASSI}xZE,<$$E(<Double d~ecl. of stack A>~8)>>
	ASSIZE=0	
	IFB <B>,<ATOP~x=0>	
	IFNB <B>,<ATOPL=0	
	ATO8PR=0>	
	IFB <B>X,<
DEFINE  APUSxH (D)<
	IFE  ASSIZE -7777,<$$E(<8Overflow in stackX A>)>
	ASSIZE=xASSIZE+1
	$$C(A,\ASSIZE,$)=AT8OP
	ATOP=D
>>X
	IFNB <B>,<
DExFINE  APUSH (D,E)<
	IFE  ASSIZE8-7777,<$$E(<OverfXlow in stack A>)x>
	ASSIZE=ASSIZE+1
	$$C(A,\A8SSIZE,$)=ATOPL*1X000000+ATOPR
	xATOPL=D
	ATOPR=E
>>
	IFB <B>,8<
DEFINE  APOP(XD)<
	IFE  ASSIZxE,<$$E(<Underflow in stack A>)>
8	IFG ASSIZE,<
	XIFNB <D>,<D=ATOPx>
	ATOP=$$C(A,\ASSIZE,$)
	$$$8P(A,\ASSIZE,$)
	ASSIZE=ASSIZEx-1
>>>
	IFNB <B>,<
DEFINE  AP8OP (D,E)<
	IFE  XASSIZE,<$$E(<Undxerflow in stack A>)>
	IFG ASSIZ8E,<
	IFNB <D>,<DX=ATOPL>
	IFNB <xE>,<E=ATOPR>
		ATOPL=$$C(A,\AS	8SIZE,$)/1000000
	X	ATOPR=$$C(A,\	xASSIZE,$)&777777

	$$$P(A,\ASSIZ
8E,$)
	ASSIZE=A
XSSIZE-1
>>>
>
.CREF
O>L` 78#M
	.XCREF
	$$C($$,\<$$BSP>7x)==$$BST
	$$C($$8,\<$$BSP+1>)==$$L88T
	$$C($$,\<$$BS8XP+2>)==$$LF
	$$B8xSP==$$BSP+3
	$$L9T==$$L
	$$LF==$$98L+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 X!k
	.XCREF
	$$C($$,\<$$BSP>)==$$BST
	$$C($$8,\<$$BSP+1>)==$$LXT
	$$C($$,\<$$BSxP+2>)==$$LF
	$$C($$,\<$$BSP+3>)==8$$LE
	$$BSP==$$BXSP+4
	$$BST==1
x	$$LT==$$L
	$$LF==$$L+1
	$$L==$$8L+2
	$$$IF
	.CREF
S.@ V-3
LF() B(V8A,D)
CAIN C
St\3 Vx-9
LF() B(WA,D)
CAIE C
S|i@ x(+
	.XCREF
	OPDEF	%OP1	[HRL8ZI]
	OPDEF	     X %OP2	[MOVEI]
	OxPDEF	      %OP3	[TDNN]
	OPDEF		%O8P4	[SKIPN]
	%OP%==1
	.CREF
S|iP x(K
	.XCREF
	      %OP%==3
8	OPDEF	      %OP1X	[TLNN ]
	OPDEF	x      %OP2	[TRNN 	]
	OPDEF	      %	8OP3	[CAIN ]
	.CREF
S}` x(
	.XCREF
	OPDEF	%OP1	[HRL8ZI]
	OPDEF	     X %OP2	[MOVEI]
	OxPDEF	      %OP3	[TDNE]
	OPDEF		%O8P4	[SKIPE]
		%OP%==1
	.CREF
S}h  x(;
	.XCREF
	      %OP%==3
8	OPDEF	      %OP1X	[TLNE ]
	OPDEF	x      %OP2	[TRNE ]
	OPDEF	      %8OP3	[CAIE ]
	.CREF
S:  *`W
 s(IFN QKA10IFN QKA10W
p QoE,LE,GE,W%
 rhIFN QKI10IFN QKI10W1
 r(IFN QKL10IFN QKL10X  XD X%A$$C(L,\$$L1)XE \X%e$$C(L,\$$L10)XE ]%i$$C(L,\$$L11)XE ]X%m$$C(L,\$$L12)XE ^%q$$C(L,\$$L13)XE  ^X%u$$C(L,\$$L14)XE( _%y$$C(L,\$$L15)XE0 _X%}$$C(L,\$$L16)XE8 `&$$C(L,\$$L17)XE@ `X&$$C(L,\$$L18)XEH a&	$$C(L,\$$L19)XH XX%E$$C(L,\$$L2)XL Y%I$$C(L,\$$L3)XP YX%M$$C(L,\$$L4)XT Z%Q$$C(L,\$$L5)XX ZX%U$$C(L,\$$L6)X\ [%Y$$C(L,\$$L7)X` [X%]$$C(L,\$$L8)Xd \%a$$C(L,\$$L9)Y Y 98+[
OPDEF $L9X [HLRZ A,]
OPDE9xF $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>
>
#{&K`$Y( Cx,/
	OPDEF $DL [HLRE A,]
	OPD8DEF $R [HRRE A,]DX
	OPDEF $F [MOVEDx A,]
	PURGE $B,E$B
	$$USE==1
	IE8FNB <B>,<
	 IFNEXB <C>,<B,C>
	Ex IFB  <C>,<B>
	>
Y$   Y>^\ 
PC
	LI	X1,Y
 ELA
	IF2,<IFNDE
@F O1JFNI,<EXTERN 
0O1JFNI>>
	XEC	O1JFNI
=	u"-J2Y>~ /x#
	.XCREF
	$$C($$,\<$$BSP>08)==$$BST
	$$C($$0X,\<$$BSP+1>)==$$L0xT
	$$C($$,\<$$BS1P+2>)==$$LF
	$$B18SP==$$BSP+3
	$$L1XT==$$L
	$$LF==$$1xL+1
	$$L==$$L+2
	$$C(L,\$$LT): $28$BST==10
	.CREF
YM
	DF	(ZLE	xID,ZLEREC,7,6)	;I	DENTIFIER FIELD =	X "I"
	DF	(ZLEIND	x,ZLEREC,8,16)	;BR	EAK CHARACTER COM	8BINATION INDICATO	XR
	DSW	(ZLESRC,Z	xLEREC,7)	;ON IF L	INE NUMBER IN SOU	8RCE LINE
	DSW	(Z	xLEOK,ZLEREC,8)	;O	XN IF SOURCE LINE 	 NUMBER CAN BE USE	 8D IN LISTING
	DS	 XW	(ZLEBIT,ZLEREC,L17)	;RECORD INDICK@ATOR = 1
		;SYMBLOLIC NAMES ON ZLE
`IND VALUES  ;[14 
22 15] Now defined in LC
	sO<L@[T A8$)
	SEARCH	AXUUOSYM
IFN QDEC2Ax0,<SEARCH MONSYM>B
	IF1,<ED$$MX==0B8>
	DEFINE EDIT(nBX)<
	ED'n==n
	IFBx1,<
	IFG <n-ED$$CMX>,<ED$$MX==n>
C8	>>
	IF2,<
	DEFCXINE $$ped(n)<PRINCxTX Edit: n>
	   D  IFN ED$$MX,<$$pD8ed(\ED$$MX)>
	  DX   PURGE $$ped,EDDx$$MX
	>
	.XCREFE
	$$L==20
	.CREF
]? + _ +X"{
	.XCREF
	IFN $$BST-7,<$$,E(<Illegal od>)>
	GOTO $$C(L,\$$L,XE)-$$RELO($$BAS)
	$$C(L,\$$LF): $-$BSP==$$BSP-4
	$-8$$P2(L,\$$LT)
	$-X$$P2(L,\$$LF)
	$-x$$P2(L,\$$LE)
	$.$BST==$$C($$,\<$$.8BSP>)
	$$LT==$$C.X($$,\<$$BSP+1>)
.x	$$LF==$$C($$,\<$/$BSP+2>)
	$$LE==/8$$C($$,\<$$BSP+3>)
	.CREF
_69: Bx,<$A>&777777aBv= tH$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 $X*A
.XCREF
$xIFDEF $$NO,<$$E(<%DOUBLE PROC>)>
I%8FDEF $$TEMP,<PURG%XE $$TEMP>
IFNDEF%x $$NO,<
BEGIN
.&XCREF
	&$$NO==0
IRP A,<
	 $$NO&X==$$NO-1>
	 $$NR&x==-$$NO
IRP A,<'
	 %.%==-$$NO
	'8 PPUSH	%.%
	'$$C'X(%.%,\%.%)==$$NO
	 $$HELP(A,\%.%()
	 $$NO==$$NO+1>>
.CREF
)9aOR@ 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( cx&5IRP A <IFdE <A-.K>,<STOPI>d8
	   .I==0
	dx dXIRP C <.I==.I+1
		    IFE <.I-Ae>,<STOPI
				   e8.C==C>
		   >
eX	   .I==0
	   IRexP B <.I==.I+1
	f	    IFE <.I-A>,f8<STOPI
				   BfX==.C>
		   >
	  >
PURGE C
eKy /8+!
 IFDEF $/X$NO,<
  IFDEF $$/xSNOX,<
   REPEAT0 $$SNOX,<
	SPOP	08$$TEMP
	RPUSH	$$0XTEMP
	UNSTK	$$TE0xMP
   >
   REPE1AT $$SNOX,<
	RPO18P	$$TEMP
	SPUSH	1X$$TEMP
   >
  >1x
 >
 IFNDEF $$N2O,<
  IFDEF $$SN28OY,<
   REPEAT $2X$SNOY,<
	SPOP	$$2xTEMP
	RPUSH	$$TE3MP
	UNSTK	$$TEMP38
   >
   REPEAT3X $$SNOY,<
	RPOP	3x$$TEMP
	SPUSH	$$4TEMP
   >
  >
 >
cN=Peq mX.o
	QIDB=QmxNSYSID
	QNSYSID==QNSYSID+1
e{y \X.k
	.XCREF
	RESW$	BEGIN,,Z1]RWBM	
	RESW$	END]8 ,,Z1RWBE+Z1RWBM
	RESW$	IF 
	RES]xW$	THEN 
	RESW$	^INTEGER,INT 
	RE^8SW$	REF 
	RESW$	^XDO 
	RESW$	PROCE^xDURE,PROC 
	RESW_$	NEW
	RESW$	ACT_8IVATE,ACTIV
	RES_XW$	AFTER 
	RESW$_x	AND 
	RESW$	ARR`AY 
	RESW$	AT 
`8	RESW$	BEFORE,BEF`XOR
	RESW$	BOOLEA`xN,BOOL
	RESW$	CHaARACTER,CHAR
	REa8SW$	CLASS 
	RESWaX$	COMMENT,COMM,Z1axRWBM
	RESW$	DELAbY 
	RESW$	ELSE,,b8Z1RWBE 
	RESW$	EbXQ 
	RESW$	EQV 
bx	RESW$	EXTERNAL,EcXT 
	RESW$	FALSEc8 
	RESW$	FOR 
	cXRESW$	GE,NLESS 
cx	RESW$	GO,,Z1RWBMd 
	RESW$	GOTO,,Zd81RWBE 
	RESW$	GTdX,GRT 
	RESW$	HIDdxDEN,HIDDE
	RESW$e	IMP 
	RESW$	IN e8
	RESW$	INNER 
eX	RESW$	INSPECT,INexSPE 
	RESW$	IS 
	RESW$	LABEL 
	f8RESW$	LE,NGRT 
	fXRESW$	LONG 
	RESfxW$	LT,LESS 
	RESgW$	NAME 
	RESW$	g8NE,NEQ 
	RESW$	NgXONE 
	RESW$	NOT gx
	RESW$	NOTEXT,NhOTEX 
	RESW$	OR h8
	RESW$	OPTIONS,hXOPT,Z1RWBM
	RESWhx$	OTHERWISE,OTHERi,Z1RWBE
	RESW$	Pi8RIOR 
	RESW$	PROiXTECTED,PROTE
	REixSW$	QUA 
	RESW$	jREACTIVATE,REACT j8
	RESW$	REAL
	RjXESW$	SHORT 
	RESjxW$	STEP 
	RESW$	kSWITCH,SWIT 
	REk8SW$	TEXT 
	RESW$kX	THIS 
	RESW$	TOkx,,Z1RWBM 
	RESW$l	TRUE 
	RESW$	UNl8TIL 
	RESW$	VALUlXE 
	RESW$	VIRTUAlxL,VIRT 
	RESW$	WmHEN,,Z1RWBE 
	REm8SW$	WHILE 
	.CREF
cELzPe  ,~e&\W .8*w
	.XCREF
	RESTORE
	 POPJ.x XPDP,
	.CREF
PcEhPe
e: b8&.K==0
IRPbX A <.K==.K+1>
RbxENAM1 <1,2,3,4,5,c6,7,10,11,12,13,1c84,15,16,17>,<A>,<B>
eB~ h)6
	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 x(F
	TITLE	xHA     DECsystem-1xh0/20 SIMULA RTS %4A(310)   RTS %eR~@ eVu@ y(T
	IFDEF .yHDIRECTIVE,<.DIRECyhTIVE .NOBIN>
	UNzIVERSAL	A     DEz(Csystem-10/20 SIMzHULA RTS %4A(310)   RTS %4A(310) g 4#7
	.XCREF
	IFN $$BST-3,<$$4XE(<Illegal sa>)>
	$$$SA
	$$C(L,\5$$LF): $$BSP==$$B58SP-3
	$$$P2(L,\$5X$LT)
	$$$P2(L,\$5x$LF)
	$$BST==$$C6($$,\<$$BSP>)
	$68$LT==$$C($$,\<$$B6XSP+1>)
	$$LF==$$6xC($$,\<$$BSP+2>)
	.CREF
iPg4P (X*o
.XCREF
(xIFDEF $$NO,<
IFD)EF $$SNOX,<
	 $$)8E(<DOUBLE SAVE IL)XLEGAL>)>
IFNDEF )x$$SNOX,<
	 $$SNO*X==0
	$$TEMP==0
IRP A,<
	 $$SN*XOX==$$SNOX+1
	 S*xPUSH 	A
	.CREF
	 STACK	A
	.XC+8REF>
REPEAT $$NR+X,<
	 PPOP	$$TEMP+x
	,EPUSH	$$TEMP
	 $$C(%.%,\$$TEM,8P)==-$$TEMP-$$SNO,XX>>>
IFNDEF $$NO,x,<
	 $$SNOY==0
- IRP A,<
	 SPUS-8H A
	 $$SNOY==$-X$SNOY+1
	.CREF
-x	 STACK A
	.XCREF>>
.CREF
(g
 :@3`
%%%%%1==: 0
IRP A,<
SYS<A==%%%%%1
%%%%%1==<%%%%%1+1>>EBg
%%%%%1==[x0
IRP A,<
A==\%%%%%1
%%%%%1==<%%%%%1+1>>g$-3 
0Q
	EXTERN	
PYBUFRB,YBHA
	L
p	[XWD QBUFS-2,YBU
FRB+1+QBUFS+1]

0	ST	YBUFRB+1
	H
PRRI	YBUFRB+1
	S
pT	YBUFRB+1+QBUFS
+1
	HRLI	400K
	
0IFB<C>,<ST YBHA
P>
	IFNB<C>,<MOV
pSI X1,(^DCB11)
		STD	YBHA>
g$` B,
$$$VAL=B8A
SF()
$$USE=3
g%yP x(k
	.XCREF

	      %OP%==4

8	OPDEF	      %OP1
X	[TLZ]
	OPDEF	  
x    %OP2	[TRZ]
	PDEF	      %OP3	
	.CREF
g%yS }x'{
	.XCREF
	OPDEF		%OP1	[HR~8LOI]
	OPDEF	    ~X  %OP2	[HRROI]
	~xOPDEF	      %OP3	[ANDM]
	OPDEF		%8OP4	[SETZM]
		%OP%==0
	.CREF
g%{@ x(
	.XCREF
	OPDEF	%OP1	[HRL8ZI]
	OPDEF	     X %OP2	[MOVEI]
	OxPDEF	      %OP3	[IORM]
	OPDEF		%O8P4	[SETOM]
		%OP%==1
	.CREF
g%{P 	x([
	.XCREF

	      %OP%==3

8	OPDEF	      %OP1
X	[TLO]
	OPDEF	  
x    %OP2	[TRO]
	OPDEF	      %OP3	8[SETO]
	.CREF
g0  g2 @g2  `g ;x+o
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>
>
Pb Pg'TP C8,
A=<<<$B>B59>&77>
gB) P gB~ x)
	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
>gC.: x)k
	IFE  SS8SIZE -7777,<$$E(<XOverflow in stackx S>)>
	SSSIZE=SSSIZE+1
	$$C(S,\S8SSIZE,$)=STOP
	STOP=A
gOR@ gO$\ XX-E
	ADD	A,[XWD	B%S,B%S]gP  @gR
:` ,>gR  gR. WX-A
 $%X==AWx
 IFNB <C>,<$%XX==C>
 LI $%X,B%S(A)
gR.
@ Y-Q
IFE <B%Y8S-1>,< AOBJN A,YXC>
IFN <B%S-1>,Yx<ADD A,[XWD B%SZ,B%S]
 JUMPL A,C>
gR~@ gSB u(XEC STPPN.##XEC STPPN.gfl  .`3L
	SYMBT1=/ =SYMBL1+1
	SYMBT/`2==SYMBL2+1
	SYM/BT3==SYMBL3+1
	S.@YMBT4==SYMBL4+1
0	SYMBT5==SYMBL5+10 
	IFE B,<
DEFI0@NE SYMBX(M,N,O,P,0`Q)<
	IFN N&A,<1C(M,\O,P,<Q>)>
	1 IFE O-SYMBT1,<SYM1@BT1==SYMBT1+1>
	1`IFE O-SYMBT2,<SYM2BT2==SYMBT2+1>
	2 IFE O-SYMBT3,<SYM2@BT3==SYMBT3+1>
	2`IFE O-SYMBT4,<SYM3BT4==SYMBT4+1>
	3 IFE O-SYMBT5,<SYM3@BT5==SYMBT5+1>
	3`>
	SYMBOL
	>
	4IFN B,<
DEFINE 4 SYMBX(M,N,O,P,Q)<4@
	IFL O-SYMBL1,<4`
	IFN N&A,<
	D5EFINE SYMB'O<C(M5 ,\O,P,<Q>)>>>>
	5@SYMBOL
	DEFINE S5`YMBZ(F)<
	IFDEF 6SYMB'F,<SYMB'F>>
	SYMBY==-1
	REP6@EAT SYMBL1,<
	SY6`MBY==SYMBY+1
	SY7MBZ(\SYMBY)>
DEF7 INE SYMBZ(F)<
DE7@FINE SYMBX(M,N,O,7`P,Q)<
	IFE O-SYM8BT'F,<
	IFN N&A8 ,<C(M,\O,P,<Q>)>8@
	SYMBT'F==SYMBT8`'F+1>>
	SYMBOL>
	SYMBZ 1
	SYMBZ9  2
	SYMBZ 3
	SY9@MBZ 4
	SYMBZ 5
	>
	Pq^
5`gfl+P gfl+P gfl+	P gfl+	P ,gfl+
P 2gfl+
P 9gfl+P Ggfl+v t2W
	.XCREF
	SYMBX	ACTIV,3,StXYMBT1,1,ACTIVATE
	SYMBX	ADEC,2,SYuMBT1
	SYMBX	AFTEu8R,1,SYMBT5,,AFTERuX
	SYMBX	AND,3,24ux,,AND
	SYMBX	ARRvAY,1,SYMBT4,,ARRAv8Y
	SYMBX	AT,1,SYvXMBT5,,AT
	SYMBX	vxBBLK,2,SYMBT2
	SwYMBX	BECOM,3,SYMBw8T1,,<:=>
	SYMBX	wXBEFOR,1,SYMBT5,,BwxEFORE
	SYMBX	BEGxCL,2,SYMBT1,,BEGCx8L
	SYMBX	BEGIN,1xX,SYMBT5,,BEGIN
	xxSYMBX	BEGPB,2,SYMyBT1,,BEGPB
	SYMBy8X	BEGPR,2,SYMBT1,yX,BEGPRO
	SYMBX	ByxOOL,1,SYMBT4,,BOOzLEAN
	SYMBX	BOUNz8D,2,SYMBT1,,ARRAYzXBND
	SYMBX	BPROGzx,2,SYMBT2
	SYMBX{	CHAR,1,SYMBT4,,C{8HARACTER
	SYMBX	{XCLASS,1,SYMBT4,,C{xLASS
	SYMBX	COLO|N,1,SYMBT5,,<:>
|8	SYMBX	COMM,1,SYM|XBT5
	SYMBX	COMMA|x,1,36,,<,>
	SYMB}X	CONC,3,SYMBT3,1}8,CONSTANT
	SYMBX}X	CONI,3,SYMBT3,2,}xCONSTANT
	SYMBX	~CONLR,3,SYMBT3,4,~8CONSTANT
	SYMBX	~XCONR,3,SYMBT3,2,C~xONSTANT
	SYMBX	CONT,3,SYMBT3,2,CO8NSTANT
	SYMBX	COXNVE,4,SYMBT1,,CONxV
	SYMBX	CVBE,2,SYMBT1,,<:=>
	SY8MBX	CVDE,2,SYMBT1X,,<:->
	SYMBX	DExBUG,3,SYMBT2,1
	SYMBX	DELAY,1,SYM8BT5,,DELAY
	SYMBXX	DELOP,2,0
	SYMxBX	DENOT,3,SYMBT1,,<:->
	SYMBX	DE8Q,3,17,,<==>
	SYXMBX	DIV,3,3,,</>
	SYMBX	DO,3,SYMBT2,,DO
	SYMBX	DO8T,3,33,,<.>
	SYMXBX	EBLK,2,SYMBT2
	SYMBX	EDCL,2,SYMBT2
	SYMBX	EDPB8,2,SYMBT2
	SYMBXX	ELSE,1,SYMBT5,,ExLSE
	SYMBX	END,1,SYMBT5,,END
	SY8MBX	ENDCL,2,SYMBTX2
	SYMBX	ENDDO,2x,SYMBT2
	SYMBX	ENDFO,2,SYMBT2
	S8YMBX	ENDPR,2,SYMBXT2
	SYMBX	EOF,1,xSYMBT5
	SYMBX	EPROG,2,SYMBT2
	SY8MBX	EQ,3,13,,<=&@X(EQ)>
	SYMBX	EQVx,3,27,,EQV
	SYMBX	ERROR,2,SYMBT2
	SYMBX	EXT,1,SYMXBT4,,EXTERNAL
	SxYMBX	FALSE,3,SYMB	T3,,FALSE
	SYMBX	8	FIX,2,SYMBT2,1
	X	SYMBX	FOR,1,SYMB	xT5,,FOR
	SYMBX	F
ORDO,2,SYMBT2
	S
8YMBX	FORSI,2,SYMB
XT1,,<:=/:->
	SYM
xBX	FORST,2,SYMBT1,,<STEP/UNTIL>
	8SYMBX	FORWH,2,SYMXBT1,,WHILE
	SYMBxX	GO,1,SYMBT5,,GO

	SYMBX	GOTO,3,S
8YMBT1,,GOTO
	SYM
XBX	GRT,3,14,,<&^&
x@(GT)>
	SYMBX	HIBT5,,HID
	SYMBX	IDIV,
	SYMBX,2,SYMBT2
	SYMBX	IF,1,SYMBT85,,IF
	SYMBX	IFEXX,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,,NONE
	SYMBX	NOT,3,823,,<\&@(NOT)>
	XSYMBX	NOTEX,3,SYMxBT3,,NOTEXT
	SYMBX	NOTHR,2,SYMBT28
	SYMBX	OPT,3,SYXMBT2,1
	SYMBX	ORx,3,25,,OR
	SYMBX	OTHER,3,SYMBT2,,8OTHERWISE
	SYMBXX	PAREN,2,SYMBT1,,xPARENTHESIS
	SYMBX	PARM,4,SYMBT1
	SYMBX	PCALL,4,SXYMBT1
	SYMBX	PBExND,2,SYMBT2
	SYMBX	PLUS,3,5,,<+>
	SYMBX	POW,3,1,,X<**>
	SYMBX	PRIOxR,1,SYMBT5,,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	RB 8,1,34,,<]>
	SYMB XX	REACT,1,SYMBT5, x,REACTIVATE
	SYM!BX	REAL,1,SYMBT4,!8,REAL
	SYMBX	REF!X,1,SYMBT4,,REF
	!xSYMBX	RP,3,35,,<)">
	SYMBX	SEMIC,3"8,SYMBT5,,<;>
	SY"XMBX	SHORT,1,SYMBT"x4,,SHORT
	SYMBX	#STEP,1,SYMBT5,,ST#8EP
	SYMBX	SWEL,2#X,SYMBT1,,SWITCHEL#xEM
	SYMBX	SWEND,$2,SYMBT2
	SYMBX	$8SWIT,1,SYMBT4,,SW$XITCH
	SYMBX	SWIT$xC,2,SYMBT1
	SYMB%X	TEXT,1,SYMBT4,,%8TEXT
	SYMBX	THEN%X,1,SYMBT5,,THEN
%x	SYMBX	THIS,3,30,&,THIS
	SYMBX	TO,&81,SYMBT5,,TO
	SY&XMBX	TONED,4,SYMBT&x1
	SYMBX	TRUE,3,'SYMBT3,,TRUE
	SY'8MBX	UDEF,2,SYMBT3'X
	SYMBX	UNMIN,2,'x10,,<->
	SYMBX	U(NTIL,1,SYMBT5,,UN(8TIL
	SYMBX	UPLUS(X,2,6,,<+>
	SYMBX(x	VALUE,1,SYMBT5,,)VALUE
	SYMBX	VIR)8T,1,SYMBT5,,VIRTU)XAL
	SYMBX	WHEDO,)x2,SYMBT1,,WHEN
	*SYMBX	WHEN,1,SYMB*8T5,,WHEN
	SYMBX	*XWHILE,3,SYMBT1,1,*xWHILE
	.CREF
	PcG
SPgfl-P gfl-	P ,gfl-	P 2gfl-
P 9gfl-
P Ggfl. +@3Z

	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,<SYM; BT5==SYMBT5+1>
	&8 $&Jgfl. :3P
	%A=BtGxVPuxtgg;P gg P gg@P gg`P ggP gg P gg@P gg`P ggP gg P gg nX/
	RESW$	NnxUMBER:1,NO1
	RESnW$	NUMBER:2,NO2
o	RESW$	NUMBER:3,No8O3
	RESW$	NUMBERoX:4,NO4
	RESW$	FIoxLE.,FIL
	RESW$	IpNFILE,INF
	RESW$p8	OUTFILE,UTF
	REpXSW$	DIRECTFILE,DIpxF
	RESW$	PRINTFIqLE,PRF
	RESW$	SIq8MSET,SET
	RESW$	qXSIMULATION,SIM
	qxRESW$	LINKAGE,LKAr
	RESW$	LINK,LINr8
	RESW$	HEAD,HEDrX
	RESW$	PROCESS,rxPRO
	RESW$	SYSINs,SIN
	RESW$	SYSOs8UT,SUT
	RESW$	TEXT.,TXT
y*ygg4 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"-` x!w
	.XCREF
	IFN $$BST-1,<$$8E(<Illegal then>)X>
	$$$THEN
	$$Cx(L,\$$LT):$$BST==5
	.CREF
i&l\@ 

Pw
IFN QTIM

0ER,<
	STACK	X0


P	STACK	X1
	STACK

p	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
/]
		>
P
	UNSTK	X2
	UNST
pK	X1
	UNSTK	X0
>
=`B Ii< :#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
JgSB&i?4( qhIFE QDEC20IFE QDEC20i?4H q(
IFN QDEC20IFN QDEC20iK,P =x#q$$C(L,\$$L>T)-$$RELO($$BAS)AYo"MI "1k;J` ,^kV~0 
pQy%%%%%1==QU
UO
	IRP  A<X(A)>
@c&%khkV~9: 
 @R
UUOS	<ER
 `RT,,ERRI3,ERRI2,E
!RRI1,ERR,ERRLI,WA
! RN,ERRR,ERR1,ERR2
!@,FATA,SEV,SEV1,SE
!`V2,RFAI>;ORDER SIGNIFICANT
3X6m;vA dm-A do` o"-` U-)
IFEQF A,B%F,B%V,Co"-kW UX--
IFNEQF A,B%F,B%V,Co"MI  &8"M
	.XCREF
	$$C($$,\<$$BSP>&x)==$$BST
	$$C($$',\<$$BSP+1>)==$$L'8T
	$$C($$,\<$$BS'XP+2>)==$$LF
	$$C'x($$,\<$$BSP+3>)==($$LE
	$$BSP==$$B(8SP+4
	$$BST==2
(X	$$LT==$$L
	$$LF(x==$$L+1
	$$LE==$)$L+2
	$$L==$$L+3)8
	$$C(L,\$$LE): )X$$$WHILE
	.CREF
o20 >8+u
$$USE==0>X
OPDEF $F [MOVE A,]
bpPoN0 ?+{
$$USE==0?8
OPDEF $F [MOVEM A,]
[&p@ p 	8QsIFNB<A>,
<QA==%%%%%1
OPUDEF	A	[<%%%%%1>B
08]>
%%%%%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 UX%-SYN A,YOPB>sl` ID^
IFE <%OPI %-1>,<%OP1 100000I@>
IFE %OP%,<%OP1I` 677777>
IFE <%OJP%-2>,<$$E(<ILL SJ WITCH NAME>)>
IFJ@GE <%OP%-3>,<IFB J`<A>,<%OP1 100000K>
	IFNB <A>,<%OK P1 A,100000>>
IK@FL<%OP%-2>,<%OP3 K`YSWITCH(A)>
%OP%==226ZuG-@sli  LPD{
IFE <%OPLp%-1>,<%OP1 40000>M
IFE %OP%,<%OP1 M0737777>
IFE <%OPMP%-2>,<$$E(<ILL SWMpITCH NAME>)>
IFGNE <%OP%-3>,<IFB <N0A>,<%OP1 40000>
	IFNB <A>,<%OP1Np A,40000>>
IFL<O%OP%-2>,<%OP3 YSWO0ITCH(A)>
%OP%==2G/*7muG/,:s%
8v EpDE
IFE <%OPF%-1>,<%OP1 200000F0>
IFE %OP%,<%OP1FP 577777>
IFE <%OFpP%-2>,<$$E(<ILL SGWITCH NAME>)>
IFG0GE <%OP%-3>,<IFB GP<A>,<%OP1 200000Gp>
	IFNB <A>,<%OHP1 A,200000>>
IH0FL<%OP%-2>,<%OP3 HPYSWITCH(A)>
%OP%==2R?|u"[Ys?%  	{POs
IFE %OP%	{p-1,<%OP2 40000>
	|IFE %OP%,<%OP2 77	|07777737777>
IFE 	|P<%OP%-2>,<$$E(<IL	|pL SWITCH NAME>)>
IFGE <%OP%-3>,<I	}0FB <A>,<%OP2 400	}P00>
	IFNB <A>,<	}p%OP2 A,40000>>
	~IFL <%OP%-2>,<%OP	~03 Y3OPEN(A)>
%OP%==2Lns?<Qs?%@ 	txO=
IFE %OP%	u-1,<%OP2 20000>
	u8IFE %OP%,<%OP2 77	uX7777757777>
IFE 	ux<%OP%-2>,<$$E(<IL	vL SWITCH NAME>)>
IFGE <%OP%-3>,<I	vXFB <A>,<%OP2 200	vx00>
	IFNB <A>,<	w%OP2 A,20000>>
	w8IFL <%OP%-2>,<%OP	wX3 Y3OPEN(A)>
%OP%==2ggD Ps?%` 	n O
IFE %OP%	n@-1,<%OP2 10000>
	n`IFE %OP%,<%OP2 77	o7777767777>
IFE 	o <%OP%-2>,<$$E(<IL	o@L SWITCH NAME>)>
IFGE <%OP%-3>,<I	pFB <A>,<%OP2 100	p 00>
	IFNB <A>,<	p@%OP2 A,10000>>
	p`IFL <%OP%-2>,<%OP	q3 Y3OPEN(A)>
%OP%==23Vg
IFE %OP%	h-1,<%OP2 4000>
I	h(FE %OP%,<%OP2 777	hH777773777>
IFE <	hh%OP%-2>,<$$E(<ILL	i SWITCH NAME>)>
	i(IFGE <%OP%-3>,<IF	iHB <A>,<%OP2 4000	ih>
	IFNB <A>,<%O	jP2 A,4000>>
IFL	j( <%OP%-2>,<%OP3 Y	jH3OPEN(A)>
%OP%==2cJ-LzPs?4  	a0N!
IFE %OP%	aP-1,<%OP2 2000>
I	apFE %OP%,<%OP2 777	b777775777>
IFE <	b0%OP%-2>,<$$E(<ILL	bP SWITCH NAME>)>
	bpIFGE <%OP%-3>,<IF	cB <A>,<%OP2 2000	c0>
	IFNB <A>,<%O	cPP2 A,2000>>
IFL	cp <%OP%-2>,<%OP3 Y	d3OPEN(A)>
%OP%==2%ki@c&%kjs?4@ 	ZxMm
IFE %OP%	[-1,<%OP2 1000>
I	[8FE %OP%,<%OP2 777	[X777776777>
IFE <	[x%OP%-2>,<$$E(<ILL	\ SWITCH NAME>)>
	\8IFGE <%OP%-3>,<IF	\XB <A>,<%OP2 1000	\x>
	IFNB <A>,<%O	]P2 A,1000>>
IFL	]8 <%OP%-2>,<%OP3 Y	]X3OPEN(A)>
%OP%==2cELzPs?4` 	T@M:
IFE %OP%	T`-1,<%OP2 400>
IF	UE %OP%,<%OP2 7777	U 77777377>
IFE <%	U@OP%-2>,<$$E(<ILL 	U`SWITCH NAME>)>
I	VFGE <%OP%-3>,<IFB	V  <A>,<%OP2 400>
	IFNB <A>,<%OP2	V` A,400>>
IFL <%	WOP%-2>,<%OP3 Y3OP	W EN(A)>
%OP%==2W%
W1
s?5 	NM
IFE %OP%	N(-1,<%OP2 200>
IF	NHE %OP%,<%OP2 7777	Nh77777577>
IFE <%	OOP%-2>,<$$E(<ILL 	O(SWITCH NAME>)>
I	OHFGE <%OP%-3>,<IFB	Oh <A>,<%OP2 200>
	IFNB <A>,<%OP2	P( A,200>>
IFL <%	PHOP%-2>,<%OP3 Y3OP	PhEN(A)>
%OP%==2(m`Ps?5  	GPLS
IFE %OP%	Gp-1,<%OP2 100>
IF	HE %OP%,<%OP2 7777	H077777677>
IFE <%	HPOP%-2>,<$$E(<ILL 	HpSWITCH NAME>)>
I	IFGE <%OP%-3>,<IFB	I0 <A>,<%OP2 100>
	IFNB <A>,<%OP2	Ip A,100>>
IFL <%	JOP%-2>,<%OP3 Y3OP	J0EN(A)>
%OP%==2uG,x@:SuG,{s?5@ 	A8L
IFE %OP%	AX-1,<%OP2 40>
IFE	Ax %OP%,<%OP2 77777	B7777737>
IFE <%O	B8P%-2>,<$$E(<ILL S	BXWITCH NAME>)>
IF	BxGE <%OP%-3>,<IFB 	C<A>,<%OP2 40>
		C8IFNB <A>,<%OP2 	CXA,40>>
IFL <%OP%	Cx-2>,<%OP3 Y3OPEN(A)>
%OP%==2s?5` 	; Kn
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%==2s?D 	5K<
IFE %OP%	5(-1,<%OP2 10>
IFE	5H %OP%,<%OP2 77777	5h7777767>
IFE <%O	6P%-2>,<$$E(<ILL S	6(WITCH NAME>)>
IF	6HGE <%OP%-3>,<IFB 	6h<A>,<%OP2 10>
		7IFNB <A>,<%OP2 	7(A,10>>
IFL <%OP%	7H-2>,<%OP3 Y3OPEN(A)>
%OP%==2,s?D  	.pK
IFE %OP%	/-1,<%OP2 4>
IFE 	/0%OP%,<%OP2 777777	/P777773>
IFE <%OP	/p%-2>,<$$E(<ILL SW	0ITCH NAME>)>
IFG	00E <%OP%-3>,<IFB <	0PA>,<%OP2 4>
	IF	0pNB <A>,<%OP2 A,	14>>
IFL <%OP%-2>	10,<%OP3 Y3OPEN(A)>
%OP%==2cZN-s?D@ 	(XJY
IFE %OP%	(x-1,<%OP2 2>
IFE 	)%OP%,<%OP2 777777	)8777775>
IFE <%OP	)X%-2>,<$$E(<ILL SW	)xITCH NAME>)>
IFG	*E <%OP%-3>,<IFB <	*8A>,<%OP2 2>
	IF	*XNB <A>,<%OP2 A,	*x2>>
IFL <%OP%-2>	+,<%OP3 Y3OPEN(A)>
%OP%==2Ps?D` 	"@J(
IFE %OP%	"`-1,<%OP2 1>
IFE 	#%OP%,<%OP2 777777	# 777776>
IFE <%OP	#@%-2>,<$$E(<ILL SW	#`ITCH NAME>)>
IFG	$E <%OP%-3>,<IFB <	$ A>,<%OP2 1>
	IF	$@NB <A>,<%OP2 A,	$`1>>
IFL <%OP%-2>	%,<%OP3 Y3OPEN(A)>
%OP%==2c@s? 	T@M:
IFE %OP%	T`-1,<%OP2 400>
IF	UE %OP%,<%OP2 7777	U 77777377>
IFE <%	U@OP%-2>,<$$E(<ILL 	U`SWITCH NAME>)>
I	VFGE <%OP%-3>,<IFB	V  <A>,<%OP2 400>
	IFNB <A>,<%OP2	V` A,400>>
IFL <%	WOP%-2>,<%OP3 Y3OP	W EN(A)>
%OP%==2W%
W1
s?I1 	n O
IFE %OP%	n@-1,<%OP2 10000>
	n`IFE %OP%,<%OP2 77	o7777767777>
IFE 	o <%OP%-2>,<$$E(<IL	o@L SWITCH NAME>)>
IFGE <%OP%-3>,<I	pFB <A>,<%OP2 100	p 00>
	IFNB <A>,<	p@%OP2 A,10000>>
	p`IFL <%OP%-2>,<%OP	q3 Y3OPEN(A)>
%OP%==23Vg
IFE %OP%	AX-1,<%OP2 40>
IFE	Ax %OP%,<%OP2 77777	B7777737>
IFE <%O	B8P%-2>,<$$E(<ILL S	BXWITCH NAME>)>
IF	BxGE <%OP%-3>,<IFB 	C<A>,<%OP2 40>
		C8IFNB <A>,<%OP2 	CXA,40>>
IFL <%OP%	Cx-2>,<%OP3 Y3OPEN(A)>
%OP%==2s?\Y 	txO=
IFE %OP%	u-1,<%OP2 20000>
	u8IFE %OP%,<%OP2 77	uX7777757777>
IFE 	ux<%OP%-2>,<$$E(<IL	vL SWITCH NAME>)>
IFGE <%OP%-3>,<I	vXFB <A>,<%OP2 200	vx00>
	IFNB <A>,<	w%OP2 A,20000>>
	w8IFL <%OP%-2>,<%OP	wX3 Y3OPEN(A)>
%OP%==2ggD Ps?^ 	.pK
IFE %OP%	/-1,<%OP2 4>
IFE 	/0%OP%,<%OP2 777777	/P777773>
IFE <%OP	/p%-2>,<$$E(<ILL SW	0ITCH NAME>)>
IFG	00E <%OP%-3>,<IFB <	0PA>,<%OP2 4>
	IF	0pNB <A>,<%OP2 A,	14>>
IFL <%OP%-2>	10,<%OP3 Y3OPEN(A)>
%OP%==2cZN-s?h 	; Kn
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%==2s?i 	a0N!
IFE %OP%	aP-1,<%OP2 2000>
I	apFE %OP%,<%OP2 777	b777775777>
IFE <	b0%OP%-2>,<$$E(<ILL	bP SWITCH NAME>)>
	bpIFGE <%OP%-3>,<IF	cB <A>,<%OP2 2000	c0>
	IFNB <A>,<%O	cPP2 A,2000>>
IFL	cp <%OP%-2>,<%OP3 Y	d3OPEN(A)>
%OP%==2%ki@c&%kjs?Lh 	5K<
IFE %OP%	5(-1,<%OP2 10>
IFE	5H %OP%,<%OP2 77777	5h7777767>
IFE <%O	6P%-2>,<$$E(<ILL S	6(WITCH NAME>)>
IF	6HGE <%OP%-3>,<IFB 	6h<A>,<%OP2 10>
		7IFNB <A>,<%OP2 	7(A,10>>
IFL <%OP%	7H-2>,<%OP3 Y3OPEN(A)>
%OP%==2,s?Lz 	ghNT
IFE %OP%	h-1,<%OP2 4000>
I	h(FE %OP%,<%OP2 777	hH777773777>
IFE <	hh%OP%-2>,<$$E(<ILL	i SWITCH NAME>)>
	i(IFGE <%OP%-3>,<IF	iHB <A>,<%OP2 4000	ih>
	IFNB <A>,<%O	jP2 A,4000>>
IFL	j( <%OP%-2>,<%OP3 Y	jH3OPEN(A)>
%OP%==2cJ-LzPs?)6 	NM
IFE %OP%	N(-1,<%OP2 200>
IF	NHE %OP%,<%OP2 7777	Nh77777577>
IFE <%	OOP%-2>,<$$E(<ILL 	O(SWITCH NAME>)>
I	OHFGE <%OP%-3>,<IFB	Oh <A>,<%OP2 200>
	IFNB <A>,<%OP2	P( A,200>>
IFL <%	PHOP%-2>,<%OP3 Y3OP	PhEN(A)>
%OP%==2(m`Ps?<Q 	(XJY
IFE %OP%	(x-1,<%OP2 2>
IFE 	)%OP%,<%OP2 777777	)8777775>
IFE <%OP	)X%-2>,<$$E(<ILL SW	)xITCH NAME>)>
IFG	*E <%OP%-3>,<IFB <	*8A>,<%OP2 2>
	IF	*XNB <A>,<%OP2 A,	*x2>>
IFL <%OP%-2>	+,<%OP3 Y3OPEN(A)>
%OP%==2Ps?LQ 	{POs
IFE %OP%	{p-1,<%OP2 40000>
	|IFE %OP%,<%OP2 77	|07777737777>
IFE 	|P<%OP%-2>,<$$E(<IL	|pL SWITCH NAME>)>
IFGE <%OP%-3>,<I	}0FB <A>,<%OP2 400	}P00>
	IFNB <A>,<	}p%OP2 A,40000>>
	~IFL <%OP%-2>,<%OP	~03 Y3OPEN(A)>
%OP%==2Lns?<Qs?M 	"@J(
IFE %OP%	"`-1,<%OP2 1>
IFE 	#%OP%,<%OP2 777777	# 777776>
IFE <%OP	#@%-2>,<$$E(<ILL SW	#`ITCH NAME>)>
IFG	$E <%OP%-3>,<IFB <	$ A>,<%OP2 1>
	IF	$@NB <A>,<%OP2 A,	$`1>>
IFL <%OP%-2>	%,<%OP3 Y3OPEN(A)>
%OP%==2c@s?
S 	ZxMm
IFE %OP%	[-1,<%OP2 1000>
I	[8FE %OP%,<%OP2 777	[X777776777>
IFE <	[x%OP%-2>,<$$E(<ILL	\ SWITCH NAME>)>
	\8IFGE <%OP%-3>,<IF	\XB <A>,<%OP2 1000	\x>
	IFNB <A>,<%O	]P2 A,1000>>
IFL	]8 <%OP%-2>,<%OP3 Y	]X3OPEN(A)>
%OP%==2cELzPs?,r 	GPLS
IFE %OP%	Gp-1,<%OP2 100>
IF	HE %OP%,<%OP2 7777	H077777677>
IFE <%	HPOP%-2>,<$$E(<ILL 	HpSWITCH NAME>)>
I	IFGE <%OP%-3>,<IFB	I0 <A>,<%OP2 100>
	IFNB <A>,<%OP2	Ip A,100>>
IFL <%	JOP%-2>,<%OP3 Y3OP	J0EN(A)>
%OP%==2uG,x@:SuG,{sB| 	WPMQ
IFE <%OP	Wp%-1>,<%OP1 400>
	XIFE %OP%,<%OP1 77	X07377>
IFE <%OP%-	XP2>,<$$E(<ILL SWIT	XpCH NAME>)>
IFGE 	Y<%OP%-3>,<IFB <A	Y0>,<%OP1 400>
	IF	YPNB <A>,<%OP1 A,	Yp400>>
IFL<%OP%-2	Z>,<%OP3 Y3OPEN(A)>
%OP%==2TsB|I1 	q0O!
IFE <%OP	qP%-1>,<%OP1 10000>	qp
IFE %OP%,<%OP1 	r767777>
IFE <%OP	r0%-2>,<$$E(<ILL SW	rPITCH NAME>)>
IFG	rpE <%OP%-3>,<IFB <	sA>,<%OP1 10000>
	IFNB <A>,<%OP1	sP A,10000>>
IFL<	sp%OP%-2>,<%OP3 Y3O	tPEN(A)>
%OP%==2gfl+PGgfl+vsB|IH 	D(L6
IFE <%OP	DH%-1>,<%OP1 40>
I	DhFE %OP%,<%OP1 777	E737>
IFE <%OP%-2	E(>,<$$E(<ILL SWITC	EHH NAME>)>
IFGE <	Eh%OP%-3>,<IFB <A>	F,<%OP1 40>
	IFNB	F( <A>,<%OP1 A,40	FH>>
IFL<%OP%-2>,<	Fh%OP3 Y3OPEN(A)>
%OP%==2lZ?+sB|\Y 	xOV
IFE <%OP	x(%-1>,<%OP1 20000>	xH
IFE %OP%,<%OP1 	xh757777>
IFE <%OP	y%-2>,<$$E(<ILL SW	y(ITCH NAME>)>
IFG	yHE <%OP%-3>,<IFB <	yhA>,<%OP1 20000>
	IFNB <A>,<%OP1	z( A,20000>>
IFL<	zH%OP%-2>,<%OP3 Y3O	zhPEN(A)>
%OP%==2+qoN0+wsB|^ 	1`K"
IFE <%OP	2%-1>,<%OP1 4>
IF	2 E %OP%,<%OP1 7777	2@73>
IFE <%OP%-2>	2`,<$$E(<ILL SWITCH	3 NAME>)>
IFGE <%	3 OP%-3>,<IFB <A>,	3@<%OP1 4>
	IFNB <	3`A>,<%OP1 A,4>>
IFL<%OP%-2>,<%OP	4 3 Y3OPEN(A)>
%OP%==2-[g$`sB}h 	>L
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>
	IFNB	@ <A>,<%OP1 A,20	@0>>
IFL<%OP%-2>,<	@P%OP3 Y3OPEN(A)>
%OP%==24bsO<;vsB}i 	d@N8
IFE <%OP	d`%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7	e 75777>
IFE <%OP%	e@-2>,<$$E(<ILL SWI	e`TCH NAME>)>
IFGE	f <%OP%-3>,<IFB <	f A>,<%OP1 2000>
		f@IFNB <A>,<%OP1 	f`A,2000>>
IFL<%OP	g%-2>,<%OP3 Y3OPEN(A)>
%OP%==2@sB}Lh 	7xKS
IFE <%OP	8%-1>,<%OP1 10>
I	88FE %OP%,<%OP1 777	8X767>
IFE <%OP%-2	8x>,<$$E(<ILL SWITC	9H NAME>)>
IFGE <	98%OP%-3>,<IFB <A>	9X,<%OP1 10>
	IFNB	9x <A>,<%OP1 A,10	:>>
IFL<%OP%-2>,<	:8%OP3 Y3OPEN(A)>
%OP%==25`P	sB}Lz 	jxNk
IFE <%OP	k%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7	kX73777>
IFE <%OP%	kx-2>,<$$E(<ILL SWI	lTCH NAME>)>
IFGE	l8 <%OP%-3>,<IFB <	lXA>,<%OP1 4000>
		lxIFNB <A>,<%OP1 	mA,4000>>
IFL<%OP	m8%-2>,<%OP3 Y3OPEN(A)>
%OP%==2]sB~)6 	QM
IFE <%OP	Q8%-1>,<%OP1 200>
	QXIFE %OP%,<%OP1 77	Qx7577>
IFE <%OP%-	R2>,<$$E(<ILL SWIT	R8CH NAME>)>
IFGE 	RX<%OP%-3>,<IFB <A	Rx>,<%OP1 200>
	IF	SNB <A>,<%OP1 A,	S8200>>
IFL<%OP%-2	SX>,<%OP3 Y3OPEN(A)>
%OP%==2?sB~<Q 	+HJp
IFE <%OP	+h%-1>,<%OP1 2>
IF	,E %OP%,<%OP1 7777	,(75>
IFE <%OP%-2>	,H,<$$E(<ILL SWITCH	,h NAME>)>
IFGE <%	-OP%-3>,<IFB <A>,	-(<%OP1 2>
	IFNB <	-HA>,<%OP1 A,2>>
IFL<%OP%-2>,<%OP	.3 Y3OPEN(A)>
%OP%==2cJ-HrPsB~LQ 	~`P

IFE <%OP	%-1>,<%OP1 40000>	 
IFE %OP%,<%OP1 	@737777>
IFE <%OP	`%-2>,<$$E(<ILL SW
ITCH NAME>)>
IFG
 E <%OP%-3>,<IFB <
@A>,<%OP1 40000>
`
	IFNB <A>,<%OP1
 A,40000>>
IFL<
 %OP%-2>,<%OP3 Y3O
@PEN(A)>
%OP%==2sO<H F*sO<IsB~M 	%0J?
IFE <%OP	%P%-1>,<%OP1 1>
IF	%pE %OP%,<%OP1 7777	&76>
IFE <%OP%-2>	&0,<$$E(<ILL SWITCH	&P NAME>)>
IFGE <%	&pOP%-3>,<IFB <A>,	'<%OP1 1>
	IFNB <	'0A>,<%OP1 A,1>>
IFL<%OP%-2>,<%OP	'p3 Y3OPEN(A)>
%OP%==2@c&%SsB
S 	^N
IFE <%OP	^(%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7	^h76777>
IFE <%OP%	_-2>,<$$E(<ILL SWI	_(TCH NAME>)>
IFGE	_H <%OP%-3>,<IFB <	_hA>,<%OP1 1000>
		`IFNB <A>,<%OP1 	`(A,1000>>
IFL<%OP	`H%-2>,<%OP3 Y3OPEN(A)>
%OP%==2`sB,r 	J`Lj
IFE <%OP	K%-1>,<%OP1 100>
	K IFE %OP%,<%OP1 77	K@7677>
IFE <%OP%-	K`2>,<$$E(<ILL SWIT	LCH NAME>)>
IFGE 	L <%OP%-3>,<IFB <A	L@>,<%OP1 100>
	IF	L`NB <A>,<%OP1 A,	M100>>
IFL<%OP%-2	M >,<%OP3 Y3OPEN(A)>
%OP%==2G.I6sO< 20C'
IFE %OP%2P-1,<%OP2 40>
IFE2p %OP%,<%OP2 7777737777737>
IFE <%O30P%-2>,<$$E(<ILL S3PWITCH NAME>)>
IF3pGE <%OP%-3>,<IFB 4<A>,<%OP2 40>
	40IFNB <A>,<%OP2 4PA,40>>
IFL <%OP%4p-2>,<%OP3 YSWITCH(A)>
%OP%==2qsO<8  	H
IFE <%OP	 %-1>,<%OP1 400000	@>
IFE %OP%,<%OP1	` 377777>
IFE <%O	P%-2>,<$$E(<ILL S	 WITCH NAME>)>
IF	@GE <%OP%-3>,<IFB 	`<A>,<%OP1 400000	>
	IFNB <A>,<%O	 P1 A,400000>>
I	@FL<%OP%-2>,<%OP3 	`YSWCHA(A)>
%OP%==2@B/sO=sO<9 	0H1
IFE <%OP	P%-1>,<%OP1 200000	p>
IFE %OP%,<%OP1	 577777>
IFE <%O	0P%-2>,<$$E(<ILL S	PWITCH NAME>)>
IF	pGE <%OP%-3>,<IFB 	<A>,<%OP1 200000	0>
	IFNB <A>,<%O	PP1 A,200000>>
I	pFL<%OP%-2>,<%OP3 	YSWCHA(A)>
%OP%==2
AUu"8VsO<9  	`HL
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 		@YSWCHA(A)>
%OP%==2[YBuG(Y@sO<:  	
Hg
IFE <%OP	
0%-1>,<%OP1 40000>	
P
IFE %OP%,<%OP1 	
p737777>
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%==2uG.5; uG.;YsO<;  B@D*
IFE <%OPB`%-1>,<%OP1 400000C>
IFE %OP%,<%OP1C  377777>
IFE <%OC@P%-2>,<$$E(<ILL SC`WITCH NAME>)>
IFDGE <%OP%-3>,<IFB D <A>,<%OP1 400000D@>
	IFNB <A>,<%OD`P1 A,400000>>
IEFL<%OP%-2>,<%OP3 E YSWITCH(A)>
%OP%==2 Pq^
4(sO<;v YpEc
IFE <%OPZ%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7ZP75777>
IFE <%OP%Zp-2>,<$$E(<ILL SWI[TCH NAME>)>
IFGE[0 <%OP%-3>,<IFB <[PA>,<%OP1 2000>
	[pIFNB <A>,<%OP1 \A,2000>>
IFL<%OP\0%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO<<  	
IFE1<%OP	P1 20000>	
IFE %OP%,<%OP1 	 757777>
IFE <%OP	@%-2>,<$$E(<ILL SW	`ITCH NAME>)>
IFG	E <%OP%-3>,<IFB <	 A>,<%OP1 20000>
	IFNB <A>,<%OP1	` A,20000>>
IFL<	%OP%-2>,<%OP3 YSW	 CHA(A)>
%OP%==2%%$Y@sO<<@ 	pI
IFE <%OP	%-1>,<%OP1 10000>	0
IFE %OP%,<%OP1 	P767777>
IFE <%OP	p%-2>,<$$E(<ILL SW	ITCH NAME>)>
IFG	0E <%OP%-3>,<IFB <	PA>,<%OP1 10000>
	IFNB <A>,<%OP1	 A,10000>>
IFL<	0%OP%-2>,<%OP3 YSW	PCHA(A)>
%OP%==2f@P[sO<<` 	0IO
IFE <%OP	P%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7	75777>
IFE <%OP%	0-2>,<$$E(<ILL SWI	PTCH NAME>)>
IFGE	p <%OP%-3>,<IFB <	A>,<%OP1 2000>
		0IFNB <A>,<%OP1 	PA,2000>>
IFL<%OP	p%-2>,<%OP3 YSWCHA(A)>
%OP%==2sO<=` 	 I6
IFE <%OP	@%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7	73777>
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%==2qsO<>@ ?0D
IFE %OP%?P-1,<%OP2 2000>
I?pFE %OP%,<%OP2 777@777775777>
IFE <@0%OP%-2>,<$$E(<ILL@P SWITCH NAME>)>
@pIFGE <%OP%-3>,<IFAB <A>,<%OP2 2000A0>
	IFNB <A>,<%OAPP2 A,2000>>
IFLAp <%OP%-2>,<%OP3 YBSWITCH(A)>
%OP%==2D`P
ggEsO<@ &BE
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>
	IF(NB <A>,<%OP2 A,(02>>
IFL <%OP%-2>(P,<%OP3 YSWITCH(A)>
%OP%==2D;vsO<H  e@FB
IFE <%OPe`%-1>,<%OP1 400000f>
IFE %OP%,<%OP1f  377777>
IFE <%Of@P%-2>,<$$E(<ILL Sf`WITCH NAME>)>
IFgGE <%OP%-3>,<IFB g <A>,<%OP1 400000g@>
	IFNB <A>,<%Og`P1 A,400000>>
IhFL<%OP%-2>,<%OP3 h YSWDEF(A)>
%OP%==28Pc
sO<I hpF]
IFE <%OPi%-1>,<%OP1 200000i0>
IFE %OP%,<%OP1iP 577777>
IFE <%OipP%-2>,<$$E(<ILL SjWITCH NAME>)>
IFj0GE <%OP%-3>,<IFB jP<A>,<%OP1 200000jp>
	IFNB <A>,<%OkP1 A,200000>>
Ik0FL<%OP%-2>,<%OP3 kPYSWDEF(A)>
%OP%==2
W@c&&9:sO<I  l Fx
IFE <%OPl@%-1>,<%OP1 100000l`>
IFE %OP%,<%OP1m 677777>
IFE <%Om P%-2>,<$$E(<ILL Sm@WITCH NAME>)>
IFm`GE <%OP%-3>,<IFB n<A>,<%OP1 100000n >
	IFNB <A>,<%On@P1 A,100000>>
In`FL<%OP%-2>,<%OP3 oYSWDEF(A)>
%OP%==2J9P@cA
sO<J  oPG
IFE <%OPop%-1>,<%OP1 40000>p
IFE %OP%,<%OP1 p0737777>
IFE <%OPpP%-2>,<$$E(<ILL SWppITCH NAME>)>
IFGqE <%OP%-3>,<IFB <q0A>,<%OP1 40000>
	IFNB <A>,<%OP1qp A,40000>>
IFL<r%OP%-2>,<%OP3 YSWr0DEF(A)>
%OP%==2cO%KPcO&:=sO<L  sG.
IFE <%OPs %-1>,<%OP1 20000>s@
IFE %OP%,<%OP1 s`757777>
IFE <%OPt%-2>,<$$E(<ILL SWt ITCH NAME>)>
IFGt@E <%OP%-3>,<IFB <t`A>,<%OP1 20000>
	IFNB <A>,<%OP1u  A,20000>>
IFL<u@%OP%-2>,<%OP3 YSWu`DEF(A)>
%OP%==2eRNKBeR~sO<L@ v0GI
IFE <%OPvP%-1>,<%OP1 10000>vp
IFE %OP%,<%OP1 w767777>
IFE <%OPw0%-2>,<$$E(<ILL SWwPITCH NAME>)>
IFGwpE <%OP%-3>,<IFB <xA>,<%OP1 10000>
	IFNB <A>,<%OP1xP A,10000>>
IFL<xp%OP%-2>,<%OP3 YSWyDEF(A)>
%OP%==2gfl+	P,gfl+
sO<L` |pG{
IFE <%OP}%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7}P75777>
IFE <%OP%}p-2>,<$$E(<ILL SWI~TCH NAME>)>
IFGE~0 <%OP%-3>,<IFB <~PA>,<%OP1 2000>
	~pIFNB <A>,<%OP1 A,2000>>
IFL<%OP0%-2>,<%OP3 YSWDEF(A)>
%OP%==2sO<M` y`Gb
IFE <%OPz%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7z@73777>
IFE <%OP%z`-2>,<$$E(<ILL SWI{TCH NAME>)>
IFGE{  <%OP%-3>,<IFB <{@A>,<%OP1 4000>
	{`IFNB <A>,<%OP1 |A,4000>>
IFL<%OP| %-2>,<%OP3 YSWDEF(A)>
%OP%==2sO= )B]
IFE %OP%)8-1,<%OP2 4>
IFE )X%OP%,<%OP2 777777)x777773>
IFE <%OP*%-2>,<$$E(<ILL SW*8ITCH NAME>)>
IFG*XE <%OP%-3>,<IFB <*xA>,<%OP2 4>
	IF+NB <A>,<%OP2 A,+84>>
IFL <%OP%-2>+X,<%OP3 YSWITCH(A)>
%OP%==2?sO=L ]E|
IFE <%OP] %-1>,<%OP1 1000>
IFE %OP%,<%OP1 7]`76777>
IFE <%OP%^-2>,<$$E(<ILL SWI^ TCH NAME>)>
IFGE^@ <%OP%-3>,<IFB <^`A>,<%OP1 1000>
	_IFNB <A>,<%OP1 _ A,1000>>
IFL<%OP_@%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO=Lz V`EJ
IFE <%OPW%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7W@73777>
IFE <%OP%W`-2>,<$$E(<ILL SWIXTCH NAME>)>
IFGEX  <%OP%-3>,<IFB <X@A>,<%OP1 4000>
	X`IFNB <A>,<%OP1 YA,4000>>
IFL<%OPY %-2>,<%OP3 YSWITCH(A)>
%OP%==2sO=iQ `F
IFE <%OP`0%-1>,<%OP1 400>
`PIFE %OP%,<%OP1 77`p7377>
IFE <%OP%-a2>,<$$E(<ILL SWITa0CH NAME>)>
IFGE aP<%OP%-3>,<IFB <Aap>,<%OP1 400>
	IFbNB <A>,<%OP1 A,b0400>>
IFL<%OP%-2bP>,<%OP3 YSWITCH(A)>
%OP%==2(<sO>  S0E1
IFE <%OPSP%-1>,<%OP1 10000>Sp
IFE %OP%,<%OP1 T767777>
IFE <%OPT0%-2>,<$$E(<ILL SWTPITCH NAME>)>
IFGTpE <%OP%-3>,<IFB <UA>,<%OP1 10000>
	IFNB <A>,<%OP1UP A,10000>>
IFL<Up%OP%-2>,<%OP3 YSWVITCH(A)>
%OP%==2jD)<QAL	jD)<sO> 58CA
IFE %OP%5X-1,<%OP2 200>
IF5xE %OP%,<%OP2 7777677777577>
IFE <%68OP%-2>,<$$E(<ILL 6XSWITCH NAME>)>
I6xFGE <%OP%-3>,<IFB7 <A>,<%OP2 200>
	IFNB <A>,<%OP27X A,200>>
IFL <%7xOP%-2>,<%OP3 YSWI8TCH(A)>
%OP%==2PcVtI3PsO>  , Bv
IFE %OP%,@-1,<%OP2 10>
IFE,` %OP%,<%OP2 77777-7777767>
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 <Cv
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%==22gfl-
P9sO>LV PE
IFE <%OPP %-1>,<%OP1 20000>P@
IFE %OP%,<%OP1 P`757777>
IFE <%OPQ%-2>,<$$E(<ILL SWQ ITCH NAME>)>
IFGQ@E <%OP%-3>,<IFB <Q`A>,<%OP1 20000>
	IFNB <A>,<%OP1R  A,20000>>
IFL<R@%OP%-2>,<%OP3 YSWR`ITCH(A)>
%OP%==2bPb sO>p 8`C\
IFE %OP%9-1,<%OP2 400>
IF9 E %OP%,<%OP2 77779@77777377>
IFE <%9`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%==2g%yP(]g%ySsO? /(C
IFE %OP%/H-1,<%OP2 20>
IFE/h %OP%,<%OP2 7777707777757>
IFE <%O0(P%-2>,<$$E(<ILL S0HWITCH NAME>)>
IF0hGE <%OP%-3>,<IFB 1<A>,<%OP2 20>
	1(IFNB <A>,<%OP2 1HA,20>>
IFL <%OP%1h-2>,<%OP3 YSWITCH(A)>
%OP%==2sS=` J`F#
	IFE <%OI P%-2>,<$$E(<ILL SbpWITCH NAME>)>
	IcFN <%OP%-2>,<
	 c0IFE <%OP%-3>,<%OPcP3 777777>
	 IFE cp<%OP%-4>,<%OP3>
d	 IFL <%OP%-2>,<%d0OP4 YTRPAS(A)>
			%OP%==2>EitGxRP$tGxVP"u-KU @04
$%W==2
@PIFNB <B>,<$%W==2@p+<B>>
IFE <$$USAE-3>,<LI $$$VAL
A0$$USE==1>
IFE $$APUSE,<$F $%W(A)>
IFE <$$USE-1>,<$BR $%W(A)>
IFE <B0$$USE-2>,<PRINTX BPOPD-OPR NESTING ERROR>
$$USE==2u.N8 =@3~
$%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==2woP uxt g&?
	ASSERT<g8IRP	A <
		IFN	<gXA>,<CFAIL	ZEROCHgxECK FAILURE>
		>
	>
u ?x,
OPDEF	$L@	[HRRZS]
OPDEF	$@8R	[HLLZS]
OPDEF	@X$F	[SETZM]
PURGE@x	$B,$B
$$USE==1
IFNB <A>,<
	IFA8NB <B>,<A,B>
AX	IFB  <B>,<A>
	>
u"Y@ B&ZDETYP&u"\`P u"]@P u"+ 	@@`
IFE %OP%	`-1,<%OP2 10>
IFE
 %OP%,<%OP2 77777
 7777767>
IFE <%O
@P%-2>,<$$E(<ILL S
`WITCH NAME>)>
IFGE <%OP%-3>,<IFB  <A>,<%OP2 10>
	@IFNB <A>,<%OP2 `A,10>>
IFL <%OP%
-2>,<%OP3 3(A)>
%OP%==2LID USEu"I; nx?
$%W==3
oIFNB <B>,<$%W==3o8+<B>>
IFE <$$USoXE-3>,<LI $$$VAL
ox$$USE==1>
IFE $$pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$pXB [$ZHBDEV B(A)px]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pq8RINTX INVALID USEqX OF FIELD>
$$USE==2c,l`PAu"^ xAF
IFE %OP%X-1,<%OP2 1>
IFE 8%OP%,<%OP2 777777777776>
IFE <%OP`%-2>,<$$E(<ILL SWNITCH NAME>)>
IFG@E <%OP%-3>,<IFB <hA>,<%OP2 1>
	IFNB <A>,<%OP2 A,@1>>
IFL <%OP%-2>`,<%OP3 3(A)>
%OP%==2NVALID USEu"9 HA
IFE %OP%(-1,<%OP2 2>
IFE %OP%,<%OP2 777777P777775>
IFE <%OP0%-2>,<$$E(<ILL SWN@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 
IFE,%OP% 4>
IFE 
p%OP%,<%OP2 7777778777773>
IFE <%OP%-2>,<$$E(<ILL SWN`ITCH NAME>)>
IFG%OP%-3>,<IFB <
 A>,<%OP2 4>
	IF
@NB <A>,<%OP2 A,x4>>
IFL <%OP%-2>,<%OP3 3(A)>
%OP%==2NVALID USEu"YW H@I
$%W==3
(IFNB <B>,<$%W==3p+<B>>
IFE <$$USPE-3>,<LI $$$VAL
O$$USE==1>
IFE $$0USE,<$F $%W(A)>
IFE <$$USE-1>,<$xB [$ZHBMFO B(A)0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PpRINTX INVALID USE	 OF FIELD>
$$USE==2@Pgg`u"hu `A,
IFE %OP%@-1,<%OP2 2>
IFE  %OP%,<%OP2 777777h777775>
IFE <%OPH%-2>,<$$E(<ILL SWN 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 r(?(
$%W==3
rHIFNB <B>,<$%W==3rh+<B>>
IFE <$$USsE-3>,<LI $$$VAL
s($$USE==1>
IFE $$sHUSE,<$F $%W(A)>
IFE <$$USE-1>,<$tB [$ZHBNRP B(A)t(]-$$RELO($$BAS)>
IFE <$$USE-2>,<PthRINTX INVALID USEu OF FIELD>
$$USE==2c,;Pu"
 Ab$%W==4
IF NB <B>,<$%W==4+<hB>
>
IFE <$$USE-3>,<LI $$$VAL
($$USE==1>
$F $%W(A)	jD.Q>0u"8V y?^
$%W==3
y(IFNB <B>,<$%W==3yH+<B>>
IFE <$$USyhE-3>,<LI $$$VAL
z$$USE==1>
IFE $$z(USE,<$F $%W(A)>
IFE <$$USE-1>,<$zhB [$ZHBSBL B(A){]-$$RELO($$BAS)>
IFE <$$USE-2>,<P{HRINTX INVALID USE{h OF FIELD>
$$USE==2c:
0Pu"= |8?y
$%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>,<$~B [$ZHBSTD B(A)~8]-$$RELO($$BAS)>
IFE <$$USE-2>,<P~xRINTX INVALID USE OF FIELD>
$$USE==2cJ-LzPu">R h@
$%W==3
IFNB <B>,<$%W==3(+<B>>
IFE <$$USHE-3>,<LI $$$VAL
h$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$HB [$ZHBSZD B(A)h]-$$RELO($$BAS)>
IFE <$$USE-2>,<P(RINTX INVALID USEH OF FIELD>
$$USE==2/e{y-cu"[Y p4n$%W==4
IFPNB <B>,<$%W==4+<B>
>
IFE <$$USxE-3>,<LI $$$VAL
M`$$USE==1>
$F $%W(A)7777777777u"\ x@+
IFE %OP%-1,<%OP2 20>
IFE8 %OP%,<%OP2 77777X7777757>
IFE <%OxP%-2>,<$$E(<ILL SWITCH NAME>)>
IF8GE <%OP%-3>,<IFB X<A>,<%OP2 20>
	xIFNB <A>,<%OP2 A,20>>
IFL <%OP%8-2>,<%OP3 3(A)>
%OP%==2LID USEu"lZ uX?C
$%W==3
uxIFNB <B>,<$%W==3v+<B>>
IFE <$$USv8E-3>,<LI $$$VAL
vX$$USE==1>
IFE $$vxUSE,<$F $%W(A)>
IFE <$$USE-1>,<$w8B [$ZHBVRT B(A)wX]-$$RELO($$BAS)>
IFE <$$USE-2>,<PxRINTX INVALID USEx8 OF FIELD>
$$USE==2c&%	2@u"
2 c8>-
$%W==2
cXIFNB <B>,<$%W==2cx+<B>>
IFE <$$USdE-3>,<LI $$$VAL
d8$$USE==1>
IFE $$dXUSE,<$F $%W(A)>
IFE <$$USE-1>,<$eL $%W(A)>
IFE <e8$$USE-2>,<PRINTX eXOPD-OPR NESTING ERROR>
$$USE==2u")  i>[
$%W==2
i8IFNB <B>,<$%W==2iX+<B>>
IFE <$$USixE-3>,<LI $$$VAL
j$$USE==1>
IFE $$j8USE,<$F $%W(A)>
IFE <$$USE-1>,<$jxR $%W(A)>
IFE <k$$USE-2>,<PRINTX k8OPD-OPR NESTING ERROR>
$$USE==2u"* l>r
$%W==2
l(IFNB <B>,<$%W==2lH+<B>>
IFE <$$USlhE-3>,<LI $$$VAL
m$$USE==1>
IFE $$m(USE,<$F $%W(A)>
IFE <$$USE-1>,<$mhR $%W(A)>
IFE <n$$USE-2>,<PRINTX n(OPD-OPR NESTING ERROR>
$$USE==2u",: f(>D
$%W==2
fHIFNB <B>,<$%W==2fh+<B>>
IFE <$$USgE-3>,<LI $$$VAL
g($$USE==1>
IFE $$gHUSE,<$F $%W(A)>
IFE <$$USE-1>,<$hL $%W(A)>
IFE <h($$USE-2>,<PRINTX hHOPD-OPR NESTING ERROR>
$$USE==2u"(Y@ B$ZDETYP%{u"(\`P u"(]@P u",+V Th=<
$%W==1
UIFNB <B>,<$%W==1U(+<B>>
IFE <$$USUHE-3>,<LI $$$VAL
Uh$$USE==1>
IFE $$VUSE,<$F $%W(A)>
IFE <$$USE-1>,<$VHB [$ZHEBNM B(A)Vh]-$$RELO($$BAS)>
IFE <$$USE-2>,<PW(RINTX INVALID USEWH OF FIELD>
$$USE==2q^
5 Pu",K K<k
$%W==0
K8IFNB <B>,<$%W==0KX+<B>>
IFE <$$USKxE-3>,<LI $$$VAL
L$$USE==1>
IFE $$L8USE,<$F $%W(A)>
IFE <$$USE-1>,<$LxR $%W(A)>
IFE <M$$USE-2>,<PRINTX M8OPD-OPR NESTING ERROR>
$$USE==2u",XV N=
$%W==1
N(IFNB <B>,<$%W==1NH+<B>>
IFE <$$USNhE-3>,<LI $$$VAL
O$$USE==1>
IFE $$O(USE,<$F $%W(A)>
IFE <$$USE-1>,<$OhB [$ZHEEBL B(A)P]-$$RELO($$BAS)>
IFE <$$USE-2>,<PPHRINTX INVALID USEPh OF FIELD>
$$USE==23Xgfl.3Nu",j< X=W
$%W==1
X8IFNB <B>,<$%W==1XX+<B>>
IFE <$$USXxE-3>,<LI $$$VAL
Y$$USE==1>
IFE $$Y8USE,<$F $%W(A)>
IFE <$$USE-1>,<$YxB [$ZHEFIX B(A)Z]-$$RELO($$BAS)>
IFE <$$USE-2>,<PZXRINTX INVALID USEZx OF FIELD>
$$USE==26tuG-lq8Qu"-I7 Q8=!
$%W==1
QXIFNB <B>,<$%W==1Qx+<B>>
IFE <$$USRE-3>,<LI $$$VAL
R8$$USE==1>
IFE $$RXUSE,<$F $%W(A)>
IFE <$$USE-1>,<$SB [$ZHELEN B(A)S8]-$$RELO($$BAS)>
IFE <$$USE-2>,<PSxRINTX INVALID USET OF FIELD>
$$USE==22 ^x>	
$%W==0
_IFNB <B>,<$%W==0_8+<B>>
IFE <$$US_XE-3>,<LI $$$VAL
_x$$USE==1>
IFE $$`USE,<$F $%W(A)>
IFE <$$USE-1>,<$`XR $%W(A)>
IFE <`x$$USE-2>,<PRINTX aOPD-OPR NESTING ERROR>
$$USE==2u"-kt D<4
IFE <%OPD(%-1>,<%OP1 100>
DHIFE %OP%,<%OP1 77Dh7677>
IFE <%OP%-E2>,<$$E(<ILL SWITE(CH NAME>)>
IFGE EH<%OP%-3>,<IFB <AEh>,<%OP1 100>
	IFFNB <A>,<%OP1 A,F(100>>
IFL<%OP%-2FH>,<%OP3 0(A)>
%OP%==2VALID USEu"-z2 [H=r
$%W==0
[hIFNB <B>,<$%W==0\+<B>>
IFE <$$US\(E-3>,<LI $$$VAL
\H$$USE==1>
IFE $$\hUSE,<$F $%W(A)>
IFE <$$USE-1>,<$](B [$ZHEOID B(A)]H]-$$RELO($$BAS)>
IFE <$$USE-2>,<P^RINTX INVALID USE^( OF FIELD>
$$USE==2=Pu".;v GX<T
$%W==0
G8IFNB <B>,<$%W==0I+<B>>
IFE <$$USHhE-3>,<LI $$$VAL
HH$$USE==1>
IFE $$FhUSE,<$F $%W(A)>
IFE <$$USE-1>,<$IHB [$ZHESOL B(A)Ih]-$$RELO($$BAS)>
IFE <$$USE-2>,<PJ(RINTX INVALID USEJH OF FIELD>
$$USE==2ckPPu".N8 @x<
$%W==0
AIFNB <B>,<$%W==0A8+<B>>
IFE <$$USAXE-3>,<LI $$$VAL
Ax$$USE==1>
IFE $$BUSE,<$F $%W(A)>
IFE <$$USE-1>,<$BXB [$ZHETYP B(A)Bx]-$$RELO($$BAS)>
IFE <$$USE-2>,<PC8RINTX INVALID USECX OF FIELD>
$$USE==2c2
)6Pu".[Y ah>$%W==1
IFbNB <B>,<$%W==1+<b(B>
>
IFE <$$USbHE-3>,<LI $$$VAL
bh$$USE==1>
$F $%W(A).	kY<5.u20Y@ PE4sO=iQu20\`P u20]@P u24hx 
`P&$%W==0
IF
NB <B>,<$%W==0+<
 B>
>
IFE <$$US
@E-3>,<LI $$$VAL

`$$USE==1>
$F $%W(A)@B&u"\`u24iX 
0P3$%W==1
IF
PNB <B>,<$%W==1+<
pB>
>
IFE <$$US
E-3>,<LI $$$VAL

0$$USE==1>
$F $%W(A)?au">Ru25l 
P@$%W==2
IF
 NB <B>,<$%W==2+<
@B>
>
IFE <$$US
`E-3>,<LI $$$VAL

$$USE==1>
$F $%W(A)<Wu",XVuG
j< hB
$%W==0
 IFNB <B>,<$%W==0 (+<B>>
IFE <$$US HE-3>,<LI $$$VAL
 h$$USE==1>
IFE $$!USE,<$F $%W(A)>
IFE <$$USE-1>,<$!HR $%W(A)>
IFE <!h$$USE-2>,<PRINTX "OPD-OPR NESTING ERROR>
$$USE==2uG
$%W==0
IFNB <B>,<$%W==08+<B>>
IFE <$$USXE-3>,<LI $$$VAL
x$$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 "XB$%W==1
IF"xNB <B>,<$%W==1+<#B>
>
IFE <$$US#8E-3>,<LI $$$VAL
#X$$USE==1>
$F $%W(A)XD%?uG(Y@ B"ZDETYP%suG(\`P uG(]@P uG,I 6;@
IFE <%OP5x%-1>,<%OP1 400>
5XIFE %OP%,<%OP1 7777377>
IFE <%OP%-6h2>,<$$E(<ILL SWITO@CH NAME>)>
IFGE 5<%OP%-3>,<IFB <A5(>,<%OP1 400>
	IF7HNB <A>,<%OP1 A,7h400>>
IFL<%OP%-28>,<%OP3 3(A)>
%OP%==2ALID USE uG,^ Fp5(
IFE <%OPFP%-1>,<%OP1 20000>F0
IFE %OP%,<%OP1 T757777>
IFE <%OPS`%-2>,<$$E(<ILL SWS@ITCH NAME>)>
IFGE`E <%OP%-3>,<IFB <FA>,<%OP1 20000>
	IFNB <A>,<%OP1T` A,20000>>
IFL<U%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG,j< P8/
$%W==1
pIFNB <B>,<$%W==1+<B>>
IFE <$$US0E-3>,<LI $$$VAL
P$$USE==1>
IFE $$pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$0L $%W(A)>
IFE <P$$USE-2>,<PRINTX pOPD-OPR NESTING ERROR>
$$USE==2uG,x@ &:?
IFE <%OP%`%-1>,<%OP1 20000>%@
IFE %OP%,<%OP1 &p757777>
IFE <%OP&P%-2>,<$$E(<ILL SWP`ITCH NAME>)>
IFG$pE <%OP%-3>,<IFB <%A>,<%OP1 20000>
	IFNB <A>,<%OP1'P A,20000>>
IFL<'p%OP%-2>,<%OP3 3(A)>
%OP%==2SE uG,{ C4,
IFE <%OPC %-1>,<%OP1 40000>C@
IFE %OP%,<%OP1 C`737777>
IFE <%OPD%-2>,<$$E(<ILL SWD ITCH NAME>)>
IFGD@E <%OP%-3>,<IFB <D`A>,<%OP1 40000>
	IFNB <A>,<%OP1E  A,40000>>
IFL<E@%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG-
2 fP6D
IFE <%OPf0%-1>,<%OP1 20>
IfFE %OP%,<%OP1 777g@757>
IFE <%OP%-2g >,<$$E(<ILL SWITCRH NAME>)>
IFGE <e@%OP%-3>,<IFB <A>e`,<%OP1 20>
	IFNBh <A>,<%OP1 A,20h >>
IFL<%OP%-2>,<h@%OP3 0(A)>
%OP%==2 INVALID USEuG-@ \p5v
IFE <%OP\P%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7]`73777>
IFE <%OP%]@-2>,<$$E(<ILL SWIR`TCH NAME>)>
IFGE[` <%OP%-3>,<IFB <\A>,<%OP1 4000>
	^ IFNB <A>,<%OP1 ^@A,4000>>
IFL<%OP^`%-2>,<%OP3 0(A)>
%OP%==2D USE uG-R  9
$%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 <%OP)p%-2>,<$$E(<ILL SWP@ITCH NAME>)>
IFG(E <%OP%-3>,<IFB <(0A>,<%OP1 10000>
	IFNB <A>,<%OP1*p A,10000>>
IFL<+%OP%-2>,<%OP3 3(A)>
%OP%==2SE uG-` YP5\
IFE <%OPY0%-1>,<%OP1 10000>Y
IFE %OP%,<%OP1 Z@767777>
IFE <%OPZ %-2>,<$$E(<ILL SWSITCH NAME>)>
IFGX@E <%OP%-3>,<IFB <X`A>,<%OP1 10000>
	IFNB <A>,<%OP1[  A,10000>>
IFL<[@%OP%-2>,<%OP3 0(A)>
%OP%==2SE uG-P  8F
IFE <%OP@%-1>,<%OP1 400000`>
IFE %OP%,<%OP1 377777>
IFE <%O P%-2>,<$$E(<ILL S@WITCH NAME>)>
IF`GE <%OP%-3>,<IFB <A>,<%OP1 400000 >
	IFNB <A>,<%O@P1 A,400000>>
I`FL<%OP%-2>,<%OP3 1(A)>
%OP%==2uG-;R s`74
$%W==0
tIFNB <B>,<$%W==0t +<B>>
IFE <$$USt@E-3>,<LI $$$VAL
t`$$USE==1>
IFE $$uUSE,<$F $%W(A)>
IFE <$$USE-1>,<$u@B [$ZQUKND B(A)u`]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pv RINTX INVALID USEv@ OF FIELD>
$$USE==2^@&4^uG-I7 V05B
IFE <%OPV%-1>,<%OP1 10000>Up
IFE %OP%,<%OP1 W 767777>
IFE <%OPW%-2>,<$$E(<ILL SWS ITCH NAME>)>
IFGU E <%OP%-3>,<IFB <U@A>,<%OP1 10000>
	IFNB <A>,<%OP1X A,10000>>
IFL<X %OP%-2>,<%OP3 0(A)>
%OP%==2USEuG-J2 
p8}
$%W==1
IFNB><B>,<$%W==1
IFE3<$$US$$$VAL
$$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==2`PcJ,i9uG-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 7-073777>
IFE <%OP%--2>,<$$E(<ILL SWIP TCH NAME>)>
IFGE+0 <%OP%-3>,<IFB <+PA>,<%OP1 4000>
	-pIFNB <A>,<%OP1 .A,4000>>
IFL<%OP.0%-2>,<%OP3 3(A)>
%OP%==2D USE uG-[r p07
$%W==0
pPIFNB <B>,<$%W==0pp+<B>>
IFE <$$USqE-3>,<LI $$$VAL
q0$$USE==1>
IFE $$qPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$rB [$ZQUMOD B(A)r0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PrpRINTX INVALID USEs OF FIELD>
$$USE==2@@#f9 uG-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==2{5"uG-
2uG-kz ip6`
IFE <%OPiP%-1>,<%OP1 10>
Ii0FE %OP%,<%OP1 777k767>
IFE <%OP%-2j`>,<$$E(<ILL SWITCj@H NAME>)>
IFGE <h`%OP%-3>,<IFB <A>i,<%OP1 10>
	IFNBk@ <A>,<%OP1 A,10k`>>
IFL<%OP%-2>,<l%OP3 0(A)>
%OP%==2 INVALID USEuG-lq 	p8b
$%W==1
	PIFNB <B>,<$%W==1
`+<B>>
IFE <$$USQ@E-3>,<LI $$$VAL
Q $$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==2Pc.buG.
@ ":%
IFE <%OP"0%-1>,<%OP1 40000>"P
IFE %OP%,<%OP1 "p737777>
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 3(A)>
%OP%==2SEuG.
IFE <%OP2X%-1>,<%OP1 1000>
IFE %OP%,<%OP1 73h76777>
IFE <%OP%3H-2>,<$$E(<ILL SWIO`TCH NAME>)>
IFGE1p <%OP%-3>,<IFB <2A>,<%OP1 1000>
	4(IFNB <A>,<%OP1 4HA,1000>>
IFL<%OP4h%-2>,<%OP3 3(A)>
%OP%==2ID USEuG.2  9\
$%W==2
@IFNB <B>,<$%W==2`+<B>>
IFE <$$USE-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 70P75777>
IFE <%OP%00-2>,<$$E(<ILL SWIPTCH NAME>)>
IFGE.P <%OP%-3>,<IFB <.pA>,<%OP1 2000>
	1IFNB <A>,<%OP1 10A,2000>>
IFL<%OP1P%-2>,<%OP3 3(A)>
%OP%==2ID USEuG.;Y 9;^
$%W==3
8xIFNB <B>,<$%W==3:(+<B>>
IFE <$$US:E-3>,<LI $$$VAL
O $$USE==1>
IFE $$8(USE,<$F $%W(A)>
IFE <$$USE-1>,<$:hB [$ZQUSNR B(A);]-$$RELO($$BAS)>
IFE <$$USE-2>,<P;HRINTX INVALID USE;h OF FIELD>
$$USE==2cELhPuG.= z@7j
$%W==0
z`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==2`#9SuG.>9 c06*
IFE <%OPc%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7d 75777>
IFE <%OP%d-2>,<$$E(<ILL SWIR TCH NAME>)>
IFGEb  <%OP%-3>,<IFB <b@A>,<%OP1 2000>
	d`IFNB <A>,<%OP1 eA,2000>>
IFL<%OPe %-2>,<%OP3 0(A)>
%OP%==2ID USEuG.I6 `8
$%W==0
IFNB <B>,<$%W==0 +<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.K5 w7O
$%W==0
w0IFNB <B>,<$%W==0wP+<B>>
IFE <$$USwpE-3>,<LI $$$VAL
x$$USE==1>
IFE $$x0USE,<$F $%W(A)>
IFE <$$USE-1>,<$xpB [$ZQUTMK B(A)y]-$$RELO($$BAS)>
IFE <$$USE-2>,<PyPRINTX INVALID USEyp OF FIELD>
$$USE==2@@	:~I<uG.L `6
IFE <%OPp%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7a73777>
IFE <%OP%``-2>,<$$E(<ILL SWIR@TCH NAME>)>
IFGE_ <%OP%-3>,<IFB <_ A>,<%OP1 4000>
	a@IFNB <A>,<%OP1 a`A,4000>>
IFL<%OPb%-2>,<%OP3 0(A)>
%OP%==2ID USEuG.N8 m6~
$%W==0
lpIFNB <B>,<$%W==0n +<B>>
IFE <$$USnE-3>,<LI $$$VAL
Q`$$USE==1>
IFE $$l USE,<$F $%W(A)>
IFE <$$USE-1>,<$n`B [$ZQUTYP B(A)o]-$$RELO($$BAS)>
IFE <$$USE-2>,<Po@RINTX INVALID USEo` OF FIELD>
$$USE==2|@
}{uG.[Y ?(<$%W==4
IF?HNB <B>,<$%W==4+<?hB>
>
IFE <$$US@E-3>,<LI $$$VAL
@($$USE==1>
$F $%W(A)c":QauG.\r p9+
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/(@ 9s
$%W==2
0IFNB <B>,<$%W==2P+<B>>
IFE <$$USpE-3>,<LI $$$VAL
$$USE==1>
IFE $$0USE,<$F $%W(A)>
IFE <$$USE-1>,<$pR $%W(A)>
IFE <$$USE-2>,<PRINTX 0OPD-OPR NESTING ERROR>
$$USE==2uG/* }p8
$%W==0
~IFNB <B>,<$%W==0~0+<B>>
IFE <$$US~PE-3>,<LI $$$VAL
~p$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$PR $%W(A)>
IFE <p$$USE-2>,<PRINTX OPD-OPR NESTING ERROR>
$$USE==2uG/,: @9E
$%W==2
 IFNB <B>,<$%W==2P+<B>>
IFE <$$US0E-3>,<LI $$$VAL
Q$$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
5@P& Vx%7
	PURGE ABC
$$LA==0&@ W8%;
	IF2,<PURGEaAB>)>
	IFDEF aXAB,<IF2,<PURGE AB>>&8  $&J #{
;P&K` $&z #}{woP `P <P =P  %%ABC$Y@P ( V%3IF1,<PRINTV8X *** ERROR: A ***>,15,16,17,18D[  X*
.CREF
D xEFINE A=<%.%B(XPDP)>
.XCREF]  *PURGE %.%A`P bP bP b P b@P b`P bP b P b@P b`P bP b P b P b0P b@P bPP b`P bpP cP cP dPP d`P f@P [ &0$\h K`4X

IFGE	^	t8D17-^D3,<
IFB <L`C>,<DEFINE YPOTRC	m`(ACC)<
IFE <%OP%M -1>,<%OP1 B>
IF	g(E %OP%,<%OP1 A>
IFE <%OP%-2>,<$$	`pE(<ILL SWITCH NAM%E>)>
IFGE <%OP%-	Z83>,<IFB <ACC>,<%O< P1 B>
	IFNB <AC	TC>,<%OP1 ACC,B>> 
IFL<%OP%-2>,<%O	MHP3 Y3OPEN(ACC)>
p%OP%==2>>
IFNB <	GC>,<DEFINE YPOTRC=<
IFE <%OP%-1>	@x,<%OP1 B>
IFE %9hOP%,<%OP1 A>
IF	:`E <%OP%-2>,<$$E(<3(ILL SWITCH NAME>)	4H>
IFGE <%OP%-3>,,p<%OP1 C,B>
IFL	.0 <%OP%-2>,<%OP3 Y&03OPEN(C)>
%OP%=	(=2>>>

IFL ^D17	! -^D3,<
IFB <>,<D	"EFINE YPOTRC(ACC)	!<
IFE %OP%-1,<%Oj P2 B>
IFE %OP%,g<%OP2 A>
IFE <%c`OP%-2>,<$$E(<ILL `@SWITCH NAME>)>
I] FGE <%OP%-3>,<IFBZ <ACC>,<%OP2 B>
	IFNB <ACC>,<%OPG 2 ACC,B>>
IFL <G@%OP%-2>,<%OP3 Y3OG`PEN(ACC)>
%OP%==H2>>
IFNB <>,<DEFH INE YPOTRC=<
IFEH@ <%OP%-1>,<%OP2 H`B>
IFE %OP%,<%OPe2 A>
IFE <%OP%-d`2>,<$$E(<ILL SWITI`CH NAME>)>
IFGE J<%OP%-3>,<%OP2 CJ ,B>
IFL <%OP%-2J@>,<%OP3 Y3OPEN(CK)>
%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 
Qm
IRP A,<
0
	OPDEF	GOTOA	[
PJUMPA]
	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