Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0135/comp/simmac.unv
There are 7 other files named simmac.unv in the archive. Click here to see a list.
x
,n@P CL `
.XCREF
IFN $$BST-10,<$! $E(<Illegal as>)>!@
$$BST==3
$$$AS
.CREF
CO\Z FXDE=@ 3@R
.XCREF
3`$$C($$,\<$$BSP>)=4=$$BST
$$C($$,\<4 $$BSP+1>)==$$L1
4@$$C($$,\<$$BSP+2>4`)==$$L2
$$C($$,\5<$$BSP+3>)==$$L3
$$C($$,\<$$BSP+45@>)==$$L4
$$C($$,5`\<$$BSP+5>)==$$L56
$$C($$,\<$$BSP+6 6>)==$$L6
$$C($$6@,\<$$BSP+7>)==$$L6`7
$$C($$,\<$$BSP7+10>)==$$L8
$$C(7 $$,\<$$BSP+11>)==7@$$L9
$$C($$,\<$$7`BSP+12>)==$$L10
8$$BST==11
$$BSP=8 =$$BSP+13
$$L1==8@$$L+1
$$L2==$$L+8`2
$$L3==$$L+3
$9$L4==$$L+4
$$L5=9 =$$L+5
$$L6==$$L9@+6
$$L7==$$L+7
9`$$L8==$$L+10
$$L:9==$$L+11
$$L10=: =$$L
$$L==$$L+12
.CREF
EJEJPRINTX AW
W%
G2,W XA
SKPINC
NOP
RRI1,ERRGRNK c0
TITLE cPA DECsystem-1cp0/20 SIMULA COMPILER %4A(330) IGVu@ d0-
IFDEF .dPDIRECTIVE,<.DIRECdpTIVE .NOBIN>
UNeIVERSAL A DEe0Csystem-10/20 SIMePULA COMPILER %4A(330) ILER %4A(IF=` 1h9
DEFINE 2X(NAM,NUMBER)=<
ch RADIX 8
DSW (N?AM,Y3OPEN,NUMBER)H
>
DEFINE Y(P 1,P2)=<SYN P1,YOP@'P2>
QOPNO==^D3`5
IRP A,<
RADIX 10
X (YOPA ,\<35-QCHA>)
R@ADIX 10
X (YPO`A,\<17-QCHA>)
Y (YOPA,\QOPNO)
QOPNO=QOPNO-1
>
Pc[ I =`I 4
$$DEF==04@
IFE <^DC-^D36>4`,<DEFINE A(XB,O)5=
<$%W==B
IFNB5 <O>,<$%W==B+<O>5@
>
IFE <$$USE-35`>,<LI $$$VAL
$$U6SE==1>
$F $%W(XB6 )>
$$DEF==1>
IF6@E <^DC-^D18>,<IF6`E <^DD-^D17>,
<7
DEFINE A(XB,O)7 =<
$%W==B
IFNB7@ <O>,<$%W==B+<O>7`>
IFE <$$USE-3>,8<LI $$$VAL
$$USE8 ==1>
IFE $$USE,<8@$F $%W(XB)>
IFE 8`<$$USE-1>,<$L $%W9(XB)>
IFE <$$USE9 -2>,<PRINTX OPD-O9@PR NESTING ERROR>9`
$$USE==2>
$$DE:F==1>
IFE <^DD-: ^D35>,
<DEFINE :@A(XB,O)=<
$%W==:`B
IFNB <O>,<$%W=;=B+<O>>
IFE <$$; USE-3>,<LI $$$VAL;@
$$USE==1>
IFE ;`$$USE,<$F $%W(XB)<>
IFE <$$USE-1>,< <$R $%W(XB)>
IFE<@ <$$USE-2>,<PRINT<`X OPD-OPR NESTING= ERROR>
$$USE==2= >
$$DEF==1>
>
=@IFE $$DEF,<
DEFI=`NE A(XB,O)=<
$%>W==B
IFNB <O>,<> $%W==B+<O>>
IFE>@ <$$USE-3>,<LI $$>`$VAL
$$USE==1>
?IFE $$USE,<$F $%W? (XB)>
IFE <$$USE?@-1>,<$B [$A O(XB?`)]-$$RELO($$BAS)>@
IFE <$$USE-2>,<@ PRINTX INVALID US@@E OF FIELD>
$$US@`E==2>
$$DEF==1>
OPDEF $A [POINTA C,B,D]
$A==A@$A
%A==^DD
IA`FE <^DC-1>,<DSW (A,B,D)>
I< H
.XCREF
IFN $$BST-2,<$$@E(<Illegal do>)>
$$$DO
$$C(L,\$$LT): $$BST==7
.CREF
c@IH B
A%S==BB@
A%V==D
DEFINE A%F=<C>
IJ h@Z PROC
.A:: SAVE <X2,X3,X4(,X5>
OUTSTR [ASHCIZ/ =h====
RECORD TYPE A AT ADDRESS /](
LI X3,22
MOVHE X4,X1
EXEC L2h
OUTSTR [ASCIZ/
===(==
/]
IRP BH < OUTSTR [ASCIZ/hB/]
OUTCHR ["="]
SIZE (QS(Z,B)
IFE <QSHZ-1>,<LI X4,"0"
h IFON B(X1)
LI X4,"1"(
OUTCHR X4H
>
IFN h<QSZ-1>,<LI X3,QSZ
LF (X4) (B(X1)
EXEHC L2
>
hOUTSTR [ASCIZ/
/]
>
OUTSTR [AS(CIZ/
/]
RETURNH
DEFINE A <EXECh .A>
L2(): SETZ X2,0
DIVI X2,3 (
SKIPE X3
AOJ H X2,0
MOVN X3,X h2
IMULI X3,3
ROT X4,(X3)
L3()
(: SETZ X5,0
ROT
HC X4,3
ADDI X5,
h"0"
OUTCHR X5
DECR X2,L3
POP(J XPDP,0
EPROC
LcR/ V Z
IFL <^V@D36-^DC>,<$$E(<TV`OO BIG BIT NO>)>
IFE ^D36-^DC,<
IFB <D>,<DEFINW@E A(ACC)=<
IFEW` <%OP%-2>,<$$E(<IXLL SWITCH NAME>)>X
IFN <%OP%-2>,<X@
IFE <%OP%-3>,X`<%OP3 777777>
YIFE <%OP%-4>,<%OPY 3>
YIFL <%OP%-2Y@>,<%OP4 B(ACC)>
%OP%==2>>>
ZIFNB <D>,<DEFINEZ A=<
IFE <%OP%Z@-2>,<$$E(<ILL SWIZ`TCH NAME>)>
IFN[ <%OP%-2>,<
IF[ E <%OP%-3>,<%OP3 [@D,777777>
IFE[` <%OP%-4>,<%OP3 \D,>
\IFL <%OP%-\ 2>,<%OP4 B(D)>
%OP%==2>>\`>>
IFGE ^D35-^D]C,<
VA==1BC
] IFE ^DC,<
CA=]@=377777777777>
I]`FN ^DC,<
CA==^-1*VA-1>
IFGE ^^ D17-^DC,<
CA=^@=CA_-^D18
VA=^`=VA_-^D18>
DE_FINE $$TES1(X,Y,Z_ )<
IFGE ^D17-^_@DC,<
IFB <Z>,<D_`EFINE A(ACC)<
I`FE <%OP%-1>,<%OP1` Y>
IFE %OP%,<%O`@P1 X>
IFE <%OP%-``2>,<$$E(<ILL SWITaCH NAME>)>
IFGE a <%OP%-3>,<IFB <ACa@C>,<%OP1 Y>
IFNa`B <ACC>,<%OP1 ACCb,Y>>
IFL<%OP%-2>b ,<%OP3 B(ACC)>
b@%OP%==2>>
IFNB <b`Z>,<DEFINE A=<
cIFE <%OP%-1>,<%OPc 1 Y>
IFE %OP%,<%c@OP1 X>
IFE <%OP%c`-2>,<$$E(<ILL SWIdTCH NAME>)>
IFGEd <%OP%-3>,<%OP1 Zd@,Y>
IFL <%OP%-2>d`,<%OP3 B(Z)>
%OeP%==2>>>
IFL ^e D17-^DC,<
IFB <e@D>,<DEFINE A(ACe`C)<
IFE %OP%-1,<f%OP2 Y>
IFE %OP%f ,<%OP2 X>
IFE <%f@OP%-2>,<$$E(<ILL f`SWITCH NAME>)>
IgFGE <%OP%-3>,<IFBg <ACC>,<%OP2 Y>
g@ IFNB <ACC>,<%OP2g` ACC,Y>>
IFL <%OhP%-2>,<%OP3 B(ACh C)>
%OP%==2>>
Ih@FNB <D>,<DEFINE h`A=<
IFE <%OP%-1i>,<%OP2 Y>
IFE %i OP%,<%OP2 X>
IFEi@ <%OP%-2>,<$$E(<Ii`LL SWITCH NAME>)>j
IFGE <%OP%-3>,<j %OP2 Z,Y>
IFL <%j@OP%-2>,<%OP3 B(Zj`)>
%OP%==2>>
>k
>
$$TES1(\CA,k \VA,D)
PURGE VA,CA
>
K3P
.XCREF
IFNI$$BST-5,<$$)>
$$LE==$$L
$ $L==$$L+1
GOTO @$$C(L,\$$LE)-$$RE`LO($$BAS)
$$C(L,\$$LF): $$BST==6
.CREF
K:$@ :`
.XCREF
;IFN $$BST-11,<$$E; (<Illegal endd>)>;@
$$BSP==$$BSP-13;`
$$$PD2(L,\$$L1)<
$$$PD2(L,\$$L2)<
$$$PD2(L,\$$L3)<@
$$$PD2(L,\$$L4)<`
$$$PD2(L,\$$L5)=
$$$PD2(L,\$$L6)=
$$$PD2(L,\$$L7)=@
$$$PD2(L,\$$L8)=`
$$$PD2(L,\$$L9)>
$$$PD2(L,\$$L10> )
$$BST==$$C($$,>@\$$BSP)
$$L1==$$>`C($$,\<$$BSP+1>)
$$L2==$$C($$,\<$? $BSP+2>)
$$L3==$?@$C($$,\<$$BSP+3>)?`
$$L4==$$C($$,\<@$$BSP+4>)
$$L5==@ $$C($$,\<$$BSP+5>@@)
$$L6==$$C($$,\@`<$$BSP+6>)
$$L7=A=$$C($$,\<$$BSP+7A >)
$$L8==$$C($$,A@\<$$BSP+10>)
$$LA`9==$$C($$,\<$$BSPB+11>)
$$L10==$$CB ($$,\<$$BSP+12>)
.CREF
K;$\S y?HENTER QCHA,YELAPKB~ I
IFE ES8SIZE,<$$E(<UnderfXlow in stack E>)>x
IFG ESSIZE,<
IFNB <A>,<A=ET8OP>
ETOP=$$C(E,X\ESSIZE,$)
$$$Px(E,\ESSIZE,$)
E SSIZE=ESSIZE-1
>hK:$@TKCx` "@6
.XCREF
IFDEF $$SNOY,<P#URGE $$SNOY>
IF# NDEF $$NO,<$$E(<I#@LLEGAL EPROC>)>
#` IFDEF $$NO,<
$$T1==0
PUR$ GE $$NO
REPEA$@T $$NR,<
IFDEF $$`$TEMP,<EPOP $$T1>%
IFNDEF $$TEMP,<% PPOP $$T1>
$$K%@ILL (\$$T1)>
%`PURGE $$NR
IFDE&F $$TEMP,<
& PURGE $$SNOX
P&@URGE $$TEMP>
P&`URGE $$T1
ENDD>KC.: 5
IFE ESXSIZE -7777,<$$E(<xOverflow in stack E>)>
ESSIZE=ES8SIZE+1
$$C(E,\EXSSIZE,$)=ETOP
ETOP=A
KK @KK @KK `KK KK@ KK` `KKJ `KK KK@ KOR@ KR~@ Kb,0
.XCREF
IFNB <B>,<
`$$LOOP==0
IRP B,<
$$LOOP==$$ LOOP-1
.CREF
@ STACK B
.XCRE`F>
>
.CREF
XEC A
.XCREF
IFDEF $$LOOP,<
SUB XPDP, [XWD` -$$LOOP,-$$LOOP]
PURGE $$LOOP>
.CREF
c@Mf9 ,@f$$C(L,\$$L,`F)-$$RELO($$BAS)M$ M$ @
.XCREF
IFN<$$BST-5>*<$$BST-6>,<$$E(<Ill egal fi>)>
IFE @$$BST-5,<
$$C(L`,\$$LF):>
IFE $$BST-6,<
$$C(L, \$$LE): $$$P2(L,\@$$LE)>
$$$P2(L,`\$$LT)
$$$P2(L,\$$LF)
$$BSP==$ $BSP-4
$$BST==$@$C($$,\<$$BSP>)
` $$LT==$$C($$,\<$$BSP+1>)
$$LF== $$C($$,\<$$BSP+2>@)
$$LE==$$C($$,`\<$$BSP+3>)
.CREF
O&2 y@
.XCREF
X=-1
IRPC A,y@<
X=X+1>
IFN y`X,<$$E(<Queue namze A not one lettz er>)>
IF1,< IFDEz@F AQSIZE,<$$E(<Dz`ouble decl. of qu{eue A>)>>
$$Q{ AB=0
$$QAT=0
AQSIZE=0
IFB{` <B>,<
DEFINE |AOUTQ(W)<
IFE | AQSIZE,<$$E(<Und|@erflow in queue |`A>)>
IFNB <W>,<}W=AHEAD>
AQSI} ZE=AQSIZE-1
$$}@$P(A,\$$QAB,%)}`
$$QAB=<$$QA~B+1>&7777
IFN ~ AQSIZE,<AHEAD=$~@$C(A,\$$QAB,%)~`>
>
DEFINE AINQ(W)<
IFE AQS IZE-7777,<$$E(<Ov@erflow in queue `A>)>
$$C(A,\$$QAT,%)=W
IFE AQSIZE,<AHEAD=W>@
AQSIZE=AQSIZ`E+1
$$QAT=<$$QAT+1>&7777
>
>
IFNB <B>,<
D@EFINE AOUTQ(L,R`)<
IFE AQSIZE,<$$E(<Underflow i n queue A>)>
I@FNB <L>,<L=AHEAD`L>
IFNB <R>,<R=AHEADR>
AQSIZ E=AQSIZE-1
$$$@P(A,\$$QAB,%)
$$QAB=<$$QAB+1>&7777
IFN AQSIZE,<AHEADL=$@$C(A,\$$QAB,%)`/1000000
AHEADR=$$C(A,\$$QA B,%)&777777>
>
@DEFINE AINQ(L,R`)<
IFE AQSIZE-7777,<$$E(<Overfl ow in queue A>)>@
$$C(A,\$$QAT`,%)=L*1000000+R
IFE AQSIZE,<AH EADL=L
AHEADR=@R>
AQSIZE=AQS`IZE+1
$$QAT=<$$QAT+1>&7777
>
>
.CREF
O&= jD
.XCREF
X=-1
IRPC A,j@<
X=X+1>
IFN j`X,<$$E(<Stack namke A not one lettk er>)>
IFE X,<
k@IF1,< IFDEF ASSIk`ZE,<$$E(<Double dlecl. of stack A>l )>>
ASSIZE=0
IFB <B>,<ATOPl`=0>
IFNB <B>,m<ATOPL=0
ATOm PR=0>
IFB <B>m@,<
DEFINE APUSm`H (D)<
IFE ASnSIZE -7777,<$$E(<n Overflow in stackn@ A>)>
ASSIZE=n`ASSIZE+1
$$C(oA,\ASSIZE,$)=ATo OP
ATOP=D
>>@
IFNB <B>,<
DEo`FINE APUSH (D,Ep)<
IFE ASSIZEp -7777,<$$E(<Overfp@low in stack A>)p`>
ASSIZE=ASSIqZE+1
$$C(A,\Aq SSIZE,$)=ATOPL*1q@000000+ATOPR
q`ATOPL=D
ATOPR=rE
>>
IFB <B>,r <
DEFINE APOP(r@D)<
IFE ASSIZr`E,<$$E(<Underflows in stack A>)>
s IFG ASSIZE,<
s@IFNB <D>,<D=ATOPs`>
ATOP=$$C(A,t\ASSIZE,$)
$$$t P(A,\ASSIZE,$)
ASSIZE=ASSIZEt`-1
>>>
IFNB <uB>,<
DEFINE APu OP (D,E)<
IFE u@ASSIZE,<$$E(<Undu`erflow in stack vA>)>
IFG ASSIZv E,<
IFNB <D>,<Dv@=ATOPL>
IFNB <v`E>,<E=ATOPR>
wATOPL=$$C(A,\ASw SIZE,$)/1000000
w@ ATOPR=$$C(A,\w`ASSIZE,$)&777777
$$$P(A,\ASSIZx E,$)
ASSIZE=Ax@SSIZE-1
>>>
>
.CREF
O>L` % <
.XCREF
$$C($$,\<$$BSP>%`)==$$BST
$$C($$&,\<$$BSP+1>)==$$L& T
$$C($$,\<$$BS&@P+2>)==$$LF
$$B&`SP==$$BSP+3
$$L'T==$$L
$$LF==$$' L+1
$$L==$$L+2
$$BST==4
$$$GOIF
.CREF
O?%p +O?%y 4@O?%y` 5`O?%yr 5 O?%{ 4 O?%{ 4`O?%{@ 5@S @Z
.XCREF
$$C($$,\<$$BSP> )==$$BST
$$C($$ ,\<$$BSP+1>)==$$L @T
$$C($$,\<$$BS `P+2>)==$$LF
$$C
($$,\<$$BSP+3>)==
$$LE
$$BSP==$$B
@SP+4
$$BST==1
` $$LT==$$L
$$LF==$$L+1
$$L==$$ L+2
$$$IF
.CREF
S.@ D"
LF() B(D A,D)
CAIN C
St\3 D`(
LF() B(EA,D)
CAIE C
CLE=@S|i@ q`
.XCREF
OPDEF %OP1 [HRLr ZI]
OPDEF r@ %OP2 [MOVEI]
Or`PDEF %OP3 [sTDNN]
OPDEF %Os P4 [SKIPN]
%OP%==1
.CREF
S|iP u`:
.XCREF
%OP%==3
v OPDEF %OP1v@ [TLNN ]
OPDEF v` %OP2 [TRNN w]
OPDEF %w OP3 [CAIN ]
.CREF
S}` o`
.XCREF
OPDEF %OP1 [HRLp ZI]
OPDEF p@ %OP2 [MOVEI]
Op`PDEF %OP3 [qTDNE]
OPDEF %Oq P4 [SKIPE]
%OP%==1
.CREF
S}h s`*
.XCREF
%OP%==3
t OPDEF %OP1t@ [TLNE ]
OPDEF t` %OP2 [TRNE u]
OPDEF %u OP3 [CAIE ]
.CREF
S: *`W
bPIFN QKA10IFN QKA10W
p @jE,LE,GE,W%
bIFN QKI10IFN QKI10W1
aPL10IFN QKL10X XD F0$$C(L,\$$L1)XE J@T$$C(L,\$$L10)XE KX$$C(L,\$$L11)XE K@\$$C(L,\$$L12)XE L`$$C(L,\$$L13)XE L@d$$C(L,\$$L14)XE( Mh$$C(L,\$$L15)XE0 M@l$$C(L,\$$L16)I@XE8 Np$$C(L,\$$L17)KGVu@XE@ N@t$$C(L,\$$L18)@TMf9 XEH Ox$$C(L,\$$L19)=O>L`XH F@4$$C(L,\$$L2)XL G8$$C(L,\$$L3)XP G@<$$C(L,\$$L4)XT H@$$C(L,\$$L5)XX H@D$$C(L,\$$L6)X\ IH$$C(L,\$$L7)X` I@L$$C(L,\$$L8)Xd JP$$C(L,\$$L9)Y Y ' J
OPDEF $L'@ [HLRZ A,]
OPDE'`F $R [HRRZ A,]
(OPDEF $F [MOVE A( ,]
OPDEF $B [LDB(@ A,]
$$USE==1
(`IFNB <B>,<
IFNB) <C>,<B,C>
IF) B <C>,<B>
>
Y( 1`
OPDEF $2L [HLRE A,]
OP2 DEF $R [HRRE A,]2@
OPDEF $F [MOVE2` A,]
PURGE $B,3$B
$$USE==1
I3 FNB <B>,<
IFN3@B <C>,<B,C>
3` IFB <C>,<B>
>
Y$ Y>^\ xH?DLOOKUP QCHA,YELA:^Y>~ `
.XCREF
$$C($$,\<$$BSP> )==$$BST
$$C($$@,\<$$BSP+1>)==$$L`T
$$C($$,\<$$BSP+2>)==$$LF
$$B SP==$$BSP+3
$$L@T==$$L
$$LF==$$`L+1
$$L==$$L+2
$$C(L,\$$LT): $ $BST==10
.CREF
YM
DF (ZLEID,ZLEREC,7,6) ;I DENTIFIER FIELD =` "I"
DF (ZLEIND,ZLEREC,8,16) ;BR EAK CHARACTER COM@BINATION INDICATO`R
DSW (ZLESRC,ZLEREC,7) ;ON IF L INE NUMBER IN SOU@RCE LINE
DSW (ZLEOK,ZLEREC,8) ;O`N IF SOURCE LINE NUMBER CAN BE USE@D IN LISTING
DS`W (ZLEBIT,ZLEREC,B17) ;RECORD INDICAHATOR = 1
;SYMBBOLIC NAMES ON ZLEwhIND VALUES ;[14 x22 15] Now defined in LC
x[T /
SEARCH /@UUOSYM
IFN QDEC2/`0,<SEARCH MONSYM>0
IF1,<ED$$MX==00 >
DEFINE EDIT(n0@)<
ED'n==n
IF0`1,<
IFG <n-ED$$1MX>,<ED$$MX==n>
1 >>
IF2,<
DEF1@INE $$ped(n)<PRIN1`TX Edit: n>
2 IFN ED$$MX,<$$p2 ed(\ED$$MX)>
2@ PURGE $$ped,ED2`$$MX
>
.XCREF3
$$L==20
.CREF
]? + _ @j
.XCREF
IFN $$BST-7,<$$E(<Illegal od>)>
GOTO $$C(L,\$$L@E)-$$RELO($$BAS)
$$C(L,\$$LF): $$BSP==$$BSP-4
$ $$P2(L,\$$LT)
$@$$P2(L,\$$LF)
$`$$P2(L,\$$LE)
$$BST==$$C($$,\<$$ BSP>)
$$LT==$$C@($$,\<$$BSP+1>)
` $$LF==$$C($$,\<$$BSP+2>)
$$LE== $$C($$,\<$$BSP+3>)
.CREF
RNK_69: 0`<$A>&777777aB~ ~
IFE PS~(SIZE,<$$E(<Underf~Hlow in stack P>)>~h
IFG PSSIZE,<
IFNB <A>,<A=PT(OP>
PTOP=$$C(P,H\PSSIZE,$)
$$$Ph(P,\PSSIZE,$)
PSSIZE=PSSIZE-1
>aC.: |l
IFE PS|HSIZE -7777,<$$E(<|hOverflow in stack} P>)>
PSSIZE=PS}(SIZE+1
$$C(P,\P}HSSIZE,$)=PTOP
PTOP=A
aJ|0 @0
.XCREF
`IFDEF $$NO,<$$E(<DOUBLE PROC>)>
I FDEF $$TEMP,<PURG@E $$TEMP>
IFNDEF` $$NO,<
BEGIN
.XCREF
$$NO==0
IRP A,<
$$NO@==$$NO-1>
$$NR`==-$$NO
IRP A,<
%.%==-$$NO
PPUSH %.%
$$C@(%.%,\%.%)==$$NO
$$HELP(A,\%.%)
$$NO==$$NO+1>>
.CREF
[(aOR@ aR~@ bP b:|kP ;b;$\@P <b;,kP ;bDt\YP bDvI9P PbDvx9P bHt\YP lbHvI9P bHvx9P `bLt\YP ,bLvI9P 8bLvx9P cfK7P
,pP (c
}{Pc,l`PAc/P cD;vP cDI1P cDIHP cD\YP cD^P cEhP cEiP cEiP cELhP cELiP cELzP cF)6P cF<QP cFLQP cFMP cG
SP cG,rP cdqP cdyP cP cP c,-3P c,4HP c,;P c-@P ?c.
P c$;wP c$N7P c$^P c$kVP c%wP c&:6P c<P cP c@P `cPP `cKqP c~@P c8P c
P cP c$P c$@P c*(P c*)P%c*)P.c+P c,@P c-P cDI;Q ggcDe@ cDky@ cEJ1Q Y&:6cEX1@ cE\4@ cH P c/
P c# P c&$J3@ c&$j6@ c&% 2@ c&%S@ c&%J7@ c&%Jp@ c&%kh@ c&%ki@ c&%ki@ c&%kj@ c&&
S@ c&&
W@ c&&9:@ c&&:6@ c&&:7@ c&&=:@ c&&N@ c&&]@ c&v<P c&vI3P c.
P c.JP c.bP c2
)6Pc2%PP Kc20P c2~z2P c3X6P c6 @ c6/
0P c:DK@P c:~)6P c:~N8P c;\{P c;xtP c;tP c;-@P c=J9P @c?k`P
cA
P cA
P cA
P cBKqP cB/xrP cC}P cG,tP cJKqP cJ,P cJ,`P cJ,i9P cJ-HrP cJ-HwP cJ-J)P cJ-J2P cJ-KP cJ-LP cJ-LzP cJ4 P cJf)0P cK&
P cN
I0PcN=PcN.`PcN.dPPcN.d@PcNM\PcNM\RQ hcO%KPcO&:=P @cO<P cO<P cO<IP cO<I3P&hcO<YP cO=P cO>P @cO>P cO>)P cO>9P cO>pP cO>yP cON0P cON8vP cON9Q ggcPP cR/
et( Q`$IRP A <IFRE <A-.K>,<STOPI>R
.I==0
R` R@IRP C <.I==.I+1
IFE <.I-AS>,<STOPI
S .C==C>
>
S@ .I==0
IRS`P B <.I==.I+1
T IFE <.I-A>,T <STOPI
BT@==.C>
>
>
PURGE C
reKy
IFDEF $@$NO,<
IFDEF $$`SNOX,<
REPEAT $$SNOX,<
SPOP $$TEMP
RPUSH $$@TEMP
UNSTK $$TE`MP
>
REPEAT $$SNOX,<
RPO P $$TEMP
SPUSH @$$TEMP
>
>`
>
IFNDEF $$N O,<
IFDEF $$SN OY,<
REPEAT $ @$SNOY,<
SPOP $$ `TEMP
RPUSH $$TE!MP
UNSTK $$TEMP!
>
REPEAT!@ $$SNOY,<
RPOP !`$$TEMP
SPUSH $$"TEMP
>
>
>
eq [@^
QIDB=Q[`NSYSID
QNSYSID==QNSYSID+1
<e{y J@Z
.XCREF
RESW$ BEGIN,,Z1KRWBM
RESW$ ENDK ,,Z1RWBE+Z1RWBM
RESW$ IF
RESK`W$ THEN
RESW$ LINTEGER,INT
REL SW$ REF
RESW$ L@DO
RESW$ PROCEL`DURE,PROC
RESWM$ NEW
RESW$ ACTM IVATE,ACTIV
RESM@W$ AFTER
RESW$M` AND
RESW$ ARRNAY
RESW$ AT
N RESW$ BEFORE,BEFN@OR
RESW$ BOOLEAN`N,BOOL
RESW$ CHOARACTER,CHAR
REO SW$ CLASS
RESWO@$ COMMENT,COMM,Z1O`RWBM
RESW$ DELAPY
RESW$ ELSE,,P Z1RWBE
RESW$ EP@Q
RESW$ EQV
P` RESW$ EXTERNAL,EQXT
RESW$ FALSEQ
RESW$ FOR
Q@RESW$ GE,NLESS
Q` RESW$ GO,,Z1RWBMR
RESW$ GOTO,,ZR 1RWBE
RESW$ GTR@,GRT
RESW$ HIDR`DEN,HIDDE
RESW$S IMP
RESW$ IN S
RESW$ INNER
S@ RESW$ INSPECT,INS`SPE
RESW$ IS
RESW$ LABEL
T RESW$ LE,NGRT
T@RESW$ LONG
REST`W$ LT,LESS
RESUW$ NAME
RESW$ U NE,NEQ
RESW$ NU@ONE
RESW$ NOT U`
RESW$ NOTEXT,NVOTEX
RESW$ OR V
RESW$ OPTIONS,V@OPT,Z1RWBM
RESWV`$ OTHERWISE,OTHERW,Z1RWBE
RESW$ PW RIOR
RESW$ PROW@TECTED,PROTE
REW`SW$ QUA
RESW$ XREACTIVATE,REACT X
RESW$ REAL
RX@ESW$ SHORT
RESX`W$ STEP
RESW$ YSWITCH,SWIT
REY SW$ TEXT
RESW$Y@ THIS
RESW$ TOY`,,Z1RWBM
RESW$Z TRUE
RESW$ UNZ TIL
RESW$ VALUZ@E
RESW$ VIRTUAZ`L,VIRT
RESW$ W[HEN,,Z1RWBE
RE[ SW$ WHILE
.CREF
8 r&Je ,~e&\W f
.XCREF
RESTORE
POPJ` XPDP,
.CREF
bPbe
e: P
.K==0
IRPP@ A <.K==.K+1>
RP`ENAM1 <1,2,3,4,5,Q6,7,10,11,12,13,1Q 4,15,16,17>,<A>,<B>
BX\eB~ P%
IFE RSpSIZE,<$$E(<Underflow in stack R>)>0
IFG RSSIZE,<
P IFNB <A>,<A=RTpOP>
RTOP=$$C(R,\RSSIZE,$)
$$$P0(R,\RSSIZE,$)
RPSSIZE=RSSIZE-1
>eC.: P
IFE RSSIZE -7777,<$$E(<0Overflow in stackP R>)>
RSSIZE=RSpSIZE+1
$$C(R,\RSSIZE,$)=RTOP
RTOP=A
eOR@ eRNK f5
TITLE f0A DECsystem-1fP0/20 SIMULA RTS %4A(330) RTS %eR~@ eVu@ gC
IFDEF .g0DIRECTIVE,<.DIRECgPTIVE .NOBIN>
UNgpIVERSAL A DEhCsystem-10/20 SIMh0ULA RTS %4A(330) RTS %4A(330) g "&
.XCREF
IFN $$BST-3,<$$"@E(<Illegal sa>)>
$$$SA
$$C(L,\#$$LF): $$BSP==$$B# SP-3
$$$P2(L,\$#@$LT)
$$$P2(L,\$#`$LF)
$$BST==$$C$($$,\<$$BSP>)
$$ $LT==$$C($$,\<$$B$@SP+1>)
$$LF==$$$`C($$,\<$$BSP+2>)
.CREF
g4P @^
.XCREF
`IFDEF $$NO,<
IFDEF $$SNOX,<
$$ E(<DOUBLE SAVE IL@LEGAL>)>
IFNDEF `$$SNOX,<
$$SNOX==0
$$TEMP==0
IRP A,<
$$SN@OX==$$SNOX+1
S`PUSH A
.CREF
STACK A
.XC REF>
REPEAT $$NR@,<
PPOP $$TEMP`
EPUSH $$TEMP
$$C(%.%,\$$TEM P)==-$$TEMP-$$SNO@X>>>
IFNDEF $$NO`,<
$$SNOY==0
IRP A,<
SPUS H A
$$SNOY==$@$SNOY+1
.CREF
` STACK A
.XCREF>>
.CREF
zg
1#
%%%%%1==1(0
IRP A,<
SYS1HA==%%%%%1
%%%%%1==<%%%%%1+1>>EBg
%%%%%1==I`0
IRP A,<
A==J%%%%%1
%%%%%1==<%%%%%1+1>>XEHg$-3 ~h@
EXTERN YBUFRB,YBHA
L( [XWD QBUFS-2,YBUHFRB+1+QBUFS+1]
h ST YBUFRB+1
HRRI YBUFRB+1
S(T YBUFRB+1+QBUFSH+1
HRLI 400K
hIFB<C>,<ST YBHA>
IFNB<C>,<MOV(SI X1,(^DCB11)
STD YBHA>
g$` 0
$$$VAL=0 A
SF()
$$USE=3
g%yP y`Z
.XCREF
%OP%==4
z OPDEF %OP1z@ [TLZ]
OPDEF z` %OP2 [TRZ]
{OPDEF %OP3 { [SETZ]
.CREF
g%yS k`j
.XCREF
OPDEF %OP1 [HRl LOI]
OPDEF l@ %OP2 [HRROI]
l`OPDEF %OP3 m[ANDM]
OPDEF %m OP4 [SETZM]
%OP%==0
.CREF
g%{@ m`z
.XCREF
OPDEF %OP1 [HRLn ZI]
OPDEF n@ %OP2 [MOVEI]
On`PDEF %OP3 [oIORM]
OPDEF %Oo P4 [SETOM]
%OP%==1
.CREF
g%{P w`J
.XCREF
%OP%==3
x OPDEF %OP1x@ [TLO]
OPDEF x` %OP2 [TRO]
yOPDEF %OP3 y [SETO]
.CREF
g0 g2 @g2 `g )`^
OPDEF $L* [HRLM A,]
OPDE* F $R [HRRM A,]
*@OPDEF $F [MOVEM *`A,]
OPDEF $B [DP+B A,]
$$USE==1
IFNB <B>,<
IFN+@B <C>,<B,C>
I+`FB <C>,<B>
>
g'TP 1
A=<<<$B>B59>&77>
gB) P gB~ `n
IFE SS
SIZE,<$$E(<Underf
low in stack S>)>
@
IFG SSSIZE,<
` IFNB <A>,<A=ST
STOP=$$C(S,
$$$PSSIZE,$)
SIZE=SSSIZE-1
>XdNY>~gC.: `Z
IFE SS
SIZE -7777,<$$E(<
@Overflow in stack
` S>)>
SSSIZE=SSSIZE+1
$$C(S,\S SSIZE,$)=STOP
STOP=A
W1
gOR@ gO$\ F@4
ADD A,[XWD B%S,B%S]gP @gR
:` ,>gR gR. E@0
$%X==AE`
IFNB <C>,<$%XF==C>
LI $%X,B%S(A)
hK:$@gR.
@ G@
IFE <B%G S-1>,< AOBJN A,G@C>
IFN <B%S-1>,G`<ADD A,[XWD B%SH,B%S]
JUMPL A,C>
S|iPgR~@ g^
((#
DEFINE R(L(LAB)<LAB-L2()+Y)h3SWAP>
EXTERN Y3*HSWAP
BEGIN
HLL*hZS .JBREN##
HLL)HZS .JBSA##
L X2*,[XWD L2(),Y3SWAP+]
BLT X2,RL(L9(+())
GOTO RL(L2()+H)
L2():! CORE X3)(,
HALT
IFN QSY*(S,<
IFNDEF YP1D+hEV,<EXTERN YP1DEV,,YP1PPN>
L YP1D,(EV
ST RL(L4())
L YP1PPN
ST R,hL(L4())+4
>
LI- X1,RL(L4())
GE-(TSEG X1,
SKIPA
GOTO RL(L3())
-h LI X1,RL(L5())
. GETSEG X1,
HAL.(T
L3():! BRANCH .H400011+C
L4(.h):! SIXBIT'DSK'
/ IFE QSYS,<SIXBIT/(/B/>
IFN QSYS,/H<SIXBIT/A/>
Zh
Z
Z
Z
L5()0:! EXP QSYSDEV
0(SIXBIT/A/
Z
0HZ
EXP D
Z
L9():!
ENDD
gfl H":
SYMBT1==SYMBL1+1
SYMBTH2==SYMBL2+1
SYMhBT3==SYMBL3+1
S(YMBT4==SYMBL4+1
h SYMBT5==SYMBL5+1
IFE B,<
DEFI(NE SYMBX(M,N,O,P,HQ)<
IFN N&A,<hC(M,\O,P,<Q>)>
IFE O-SYMBT1,<SYM(BT1==SYMBT1+1>
HIFE O-SYMBT2,<SYMhBT2==SYMBT2+1>
IFE O-SYMBT3,<SYM (BT3==SYMBT3+1>
HIFE O-SYMBT4,<SYM hBT4==SYMBT4+1>
!IFE O-SYMBT5,<SYM!(BT5==SYMBT5+1>
!H>
SYMBOL
>
!hIFN B,<
DEFINE "SYMBX(M,N,O,P,Q)<"(
IFL O-SYMBL1,<"H
IFN N&A,<
D"hEFINE SYMB'O<C(M#,\O,P,<Q>)>>>>
#(SYMBOL
DEFINE S#HYMBZ(F)<
IFDEF #hSYMB'F,<SYMB'F>>
SYMBY==-1
REP$(EAT SYMBL1,<
SY$HMBY==SYMBY+1
SY$hMBZ(\SYMBY)>
DEF%INE SYMBZ(F)<
DE%(FINE SYMBX(M,N,O,%HP,Q)<
IFE O-SYM%hBT'F,<
IFN N&A&,<C(M,\O,P,<Q>)>&(
SYMBT'F==SYMBT&H'F+1>>
SYMBOL>
SYMBZ 1
SYMBZ' 2
SYMBZ 3
SY'(MBZ 4
SYMBZ 5
>
gfl+P gfl+P gfl+ P gfl+ P ,gfl+
P 2gfl+
P 9gfl+P Ggfl+v b!F
.XCREF
SYMBX ACTIV,3,Sb@YMBT1,1,ACTIVATE
SYMBX ADEC,2,SYcMBT1
SYMBX AFTEc R,1,SYMBT5,,AFTERc@
SYMBX AND,3,24c`,,AND
SYMBX ARRdAY,1,SYMBT4,,ARRAd Y
SYMBX AT,1,SYd@MBT5,,AT
SYMBX d`BBLK,2,SYMBT2
SeYMBX BECOM,3,SYMBe T1,,<:=>
SYMBX e@BEFOR,1,SYMBT5,,Be`EFORE
SYMBX BEGfCL,2,SYMBT1,,BEGCf L
SYMBX BEGIN,1f@,SYMBT5,,BEGIN
f`SYMBX BEGPB,2,SYMgBT1,,BEGPB
SYMBg X BEGPR,2,SYMBT1,g@,BEGPRO
SYMBX Bg`OOL,1,SYMBT4,,BOOhLEAN
SYMBX BOUNh D,2,SYMBT1,,ARRAYh@BND
SYMBX BPROGh`,2,SYMBT2
SYMBXi CHAR,1,SYMBT4,,Ci HARACTER
SYMBX i@CLASS,1,SYMBT4,,Ci`LASS
SYMBX COLOjN,1,SYMBT5,,<:>
j SYMBX COMM,1,SYMj@BT5
SYMBX COMMAj`,1,36,,<,>
SYMBkX CONC,3,SYMBT3,1k ,CONSTANT
SYMBXk@ CONI,3,SYMBT3,2,k`CONSTANT
SYMBX lCONLR,3,SYMBT3,4,l CONSTANT
SYMBX l@CONR,3,SYMBT3,2,Cl`ONSTANT
SYMBX CmONT,3,SYMBT3,2,COm NSTANT
SYMBX COm@NVE,4,SYMBT1,,CONm`V
SYMBX CVBE,2,nSYMBT1,,<:=>
SYn MBX CVDE,2,SYMBT1n@,,<:->
SYMBX DEn`BUG,3,SYMBT2,1
oSYMBX DELAY,1,SYMo BT5,,DELAY
SYMBo@X DELOP,2,0
SYMo`BX DENOT,3,SYMBT1p,,<:->
SYMBX DEp Q,3,17,,<==>
SYp@MBX DIV,3,3,,</>
SYMBX DO,3,SYMBqT2,,DO
SYMBX DOq T,3,33,,<.>
SYMq@BX EBLK,2,SYMBT2
SYMBX EDCL,2,SYrMBT2
SYMBX EDPBr ,2,SYMBT2
SYMBXr@ ELSE,1,SYMBT5,,Er`LSE
SYMBX END,1s,SYMBT5,,END
SYs MBX ENDCL,2,SYMBTs@2
SYMBX ENDDO,2s`,SYMBT2
SYMBX EtNDFO,2,SYMBT2
St YMBX ENDPR,2,SYMBt@T2
SYMBX EOF,1,t`SYMBT5
SYMBX EPuROG,2,SYMBT2
SYu MBX EQ,3,13,,<=&@u@(EQ)>
SYMBX EQVu`,3,27,,EQV
SYMBvX ERROR,2,SYMBT2
SYMBX EXT,1,SYMv@BT4,,EXTERNAL
Sv`YMBX FALSE,3,SYMBwT3,,FALSE
SYMBXw FIX,2,SYMBT2,1
w@ SYMBX FOR,1,SYMBw`T5,,FOR
SYMBX FxORDO,2,SYMBT2
Sx YMBX FORSI,2,SYMBx@T1,,<:=/:->
SYMx`BX FORST,2,SYMBT1y,,<STEP/UNTIL>
y SYMBX FORWH,2,SYMy@BT1,,WHILE
SYMBy`X GO,1,SYMBT5,,GOz
SYMBX GOTO,3,Sz YMBT1,,GOTO
SYMz@BX GRT,3,14,,<&^&z`@(GT)>
SYMBX HI{DDE,1,SYMBT5,,HID{ DEN
SYMBX IDIV,{@3,4,,<//>
SYMBX{` IENDC,2,SYMBT2
| SYMBX IF,1,SYMBT| 5,,IF
SYMBX IFE|@X,2,SYMBT1,,ELSE
SYMBX IFEX1,4,S}YMBT1,,IF
SYMBX} IFST,2,SYMBT1,1,}@<IF>
SYMBX IFTR}`E,2,SYMBT1,1,<IF>~
SYMBX IFTRU,2,~ SYMBT1,,<IF>
SY~@MBX IMP,3,26,,IMP~`
SYMBX IN,3,22,,IN
SYMBX INNER ,3,SYMBT2,,INNER
SYMBX INSPE,3,S`YMBT1,1,INSPECT
SYMBX INT,1,SYMB T4,,INTEGER
SYM@BX IS,3,21,,IS
`SYMBX JUMP,2,SYMBT2,1
SYMBX LABE L,1,SYMBT5,,LABEL@
SYMBX LB,3,SYM`BT3,,<[>
SYMBX LESS,3,11,,<&\&@( LT)>
SYMBX LONG@,1,SYMBT4,,LONG
` SYMBX LP,3,SYMBT3,,<(>
SYMBX MI NUS,3,7,,<->
SY@MBX MOCEB,4,SYMBT`1,<:=>
SYMBX MULT,3,2,,<*>
SYM BX NAME,1,SYMBT5,@,NAME
SYMBX NDE`Q,3,20,,<=/=>
SYMBX NEQ,3,16,,<\ =&@(NE)>
SYMBX @NEW,3,31,,NEW
S`YMBX NGRT,3,12,,<&\=&@(LE)>
SYMB X NLESS,3,15,,<&^@=&@(GE)>
SYMBX `NONE,3,SYMBT3,,NONE
SYMBX NOT,3, 23,,<\&@(NOT)>
@SYMBX NOTEX,3,SYM`BT3,,NOTEXT
SYMBX NOTHR,2,SYMBT2
SYMBX OPT,3,SY@MBT2,1
SYMBX OR`,3,25,,OR
SYMBX OTHER,3,SYMBT2,, OTHERWISE
SYMBX @ PAREN,2,SYMBT1,, `PARENTHESIS
SYM
BX PARM,4,SYMBT1
SYMBX PCALL,4,S
@YMBT1
SYMBX PBE
`ND,2,SYMBT2
SYMBX PLUS,3,5,,<+>
SYMBX POW,3,1,,@<**>
SYMBX PRIO`R,1,SYMBT5,,PRIOR
SYMBX PROC,1,S
YMBT4,,PROCEDURE
@
SYMBX PROTE,1,S
`YMBT5,,PROTECTED
SYMBX PURGE,2,S
SYMBX QUA
SYMBL,4,SYMBT1,,QUALIF
SYMBX RB ,1,34,,<]>
SYMB@X REACT,1,SYMBT5,`,REACTIVATE
SYMBX REAL,1,SYMBT4, ,REAL
SYMBX REF@,1,SYMBT4,,REF
`SYMBX RP,3,35,,<)>
SYMBX SEMIC,3 ,SYMBT5,,<;>
SY@MBX SHORT,1,SYMBT`4,,SHORT
SYMBX STEP,1,SYMBT5,,ST EP
SYMBX SWEL,2@,SYMBT1,,SWITCHEL`EM
SYMBX SWEND,2,SYMBT2
SYMBX SWIT,1,SYMBT4,,SW@ITCH
SYMBX SWIT`C,2,SYMBT1
SYMBX TEXT,1,SYMBT4,, TEXT
SYMBX THEN@,1,SYMBT5,,THEN
` SYMBX THIS,3,30,,THIS
SYMBX TO, 1,SYMBT5,,TO
SY@MBX TONED,4,SYMBT`1
SYMBX TRUE,3,SYMBT3,,TRUE
SY MBX UDEF,2,SYMBT3@
SYMBX UNMIN,2,`10,,<->
SYMBX UNTIL,1,SYMBT5,,UN TIL
SYMBX UPLUS@,2,6,,<+>
SYMBX` VALUE,1,SYMBT5,,VALUE
SYMBX VIR T,1,SYMBT5,,VIRTU@AL
SYMBX WHEDO,`2,SYMBT1,,WHEN
SYMBX WHEN,1,SYMB T5,,WHEN
SYMBX @WHILE,3,SYMBT1,1,`WHILE
.CREF
q^
4(Pq^
4(gfl-P gfl- P ,gfl- P 2gfl-
P 9gfl-
P Ggfl. ("H
IFN B&H7,<SYMBXX(A,\C,hD,<E>)>
IFE C-SYMBT1,<SYMBT1=(=SYMBT1+1>
IFE HC-SYMBT2,<SYMBT2h==SYMBT2+1>
IFE C-SYMBT3,<SYMBT(3==SYMBT3+1>
IFHE C-SYMBT4,<SYMBhT4==SYMBT4+1>
IFE C-SYMBT5,<SYM)BT5==SYMBT5+1>
gfl. 'h">
%A=Bgg;P gg P gg@P gg`P ggP gg P gg@P gg`P ggP gg P gg \@
RESW$ N\`UMBER:1,NO1
RES\W$ NUMBER:2,NO2
] RESW$ NUMBER:3,N] O3
RESW$ NUMBER]@:4,NO4
RESW$ FI]`LE.,FIL
RESW$ I^NFILE,INF
RESW$^ OUTFILE,UTF
RE^@SW$ DIRECTFILE,DI^`F
RESW$ PRINTFI_LE,PRF
RESW$ SI_ MSET,SET
RESW$ _@SIMULATION,SIM
_`RESW$ LINKAGE,LKA`
RESW$ LINK,LIN`
RESW$ HEAD,HED`@
RESW$ PROCESS,``PRO
RESW$ SYSINa,SIN
RESW$ SYSOa UT,SUT
RESW$ TEXT.,TXT
gg4 P gg4@P gg4`P gg5P gg5 P gg5@P gg5`P gg6P
gg6 P
ggD P ggD@P ggD`P
ggEP
ggEgPgggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg00000A>
IFNB <A>,<%OA(P1 A,100000>>
IAHFL<%OP%-2>,<%OP3 AhYSWITCH(A)>
%OP%==2JXdNsli BX4+
IFE <%OPBx%-1>,<%OP1 40000>C
IFE %OP%,<%OP1 C8737777>
IFE <%OPCX%-2>,<$$E(<ILL SWCxITCH NAME>)>
IFGDE <%OP%-3>,<IFB <D8A>,<%OP1 40000>
IFNB <A>,<%OP1Dx A,40000>>
IFL<E%OP%-2>,<%OP3 YSWE8ITCH(A)>
%OP%==2cELhPs%
8v ;x3u
IFE <%OP<%-1>,<%OP1 200000<8>
IFE %OP%,<%OP1<X 577777>
IFE <%O<xP%-2>,<$$E(<ILL S=WITCH NAME>)>
IF=8GE <%OP%-3>,<IFB =X<A>,<%OP1 200000=x>
IFNB <A>,<%O>P1 A,200000>>
I>8FL<%OP%-2>,<%OP3 >XYSWITCH(A)>
%OP%==2$S|i@
s?% qX?#
IFE %OP%qx-1,<%OP2 40000>
rIFE %OP%,<%OP2 77r87777737777>
IFE rX<%OP%-2>,<$$E(<ILrxL SWITCH NAME>)>
IFGE <%OP%-3>,<Is8FB <A>,<%OP2 400sX00>
IFNB <A>,<sx%OP2 A,40000>>
tIFL <%OP%-2>,<%OPt83 Y3OPEN(A)>
%OP%==2S|i@
s?%@ k>n
IFE %OP%k -1,<%OP2 20000>
k@IFE %OP%,<%OP2 77k`7777757777>
IFE l<%OP%-2>,<$$E(<ILl L SWITCH NAME>)>
IFGE <%OP%-3>,<Il`FB <A>,<%OP2 200m00>
IFNB <A>,<m %OP2 A,20000>>
m@IFL <%OP%-2>,<%OPm`3 Y3OPEN(A)>
%OP%==2&uG.[Ys?%` d(>8
IFE %OP%dH-1,<%OP2 10000>
dhIFE %OP%,<%OP2 77e7777767777>
IFE e(<%OP%-2>,<$$E(<ILeHL SWITCH NAME>)>
IFGE <%OP%-3>,<IfFB <A>,<%OP2 100f(00>
IFNB <A>,<fH%OP2 A,10000>>
fhIFL <%OP%-2>,<%OPg3 Y3OPEN(A)>
%OP%==2u") -xs?4 ]p>
IFE %OP%^-1,<%OP2 4000>
I^0FE %OP%,<%OP2 777^P777773777>
IFE <^p%OP%-2>,<$$E(<ILL_ SWITCH NAME>)>
_0IFGE <%OP%-3>,<IF_PB <A>,<%OP2 4000_p>
IFNB <A>,<%O`P2 A,4000>>
IFL`0 <%OP%-2>,<%OP3 Y`P3OPEN(A)>
%OP%==2<;v4}sO<< s?4 W8=Q
IFE %OP%WX-1,<%OP2 2000>
IWxFE %OP%,<%OP2 777X777775777>
IFE <X8%OP%-2>,<$$E(<ILLXX SWITCH NAME>)>
XxIFGE <%OP%-3>,<IFYB <A>,<%OP2 2000Y8>
IFNB <A>,<%OYXP2 A,2000>>
IFLYx <%OP%-2>,<%OP3 YZ3OPEN(A)>
%OP%==2gg
@Ps?4@ Q=
IFE %OP%Q -1,<%OP2 1000>
IQ@FE %OP%,<%OP2 777Q`777776777>
IFE <R%OP%-2>,<$$E(<ILLR SWITCH NAME>)>
R@IFGE <%OP%-3>,<IFR`B <A>,<%OP2 1000S>
IFNB <A>,<%OS P2 A,1000>>
IFLS@ <%OP%-2>,<%OP3 YS`3OPEN(A)>
%OP%==2$\2gR.s?4` JH<j
IFE %OP%Jh-1,<%OP2 400>
IFKE %OP%,<%OP2 7777K(77777377>
IFE <%KHOP%-2>,<$$E(<ILL KhSWITCH NAME>)>
ILFGE <%OP%-3>,<IFBL( <A>,<%OP2 400>
IFNB <A>,<%OP2Lh A,400>>
IFL <%MOP%-2>,<%OP3 Y3OPM(EN(A)>
%OP%==2PhcO<YPs?5 D<7
IFE %OP%D0-1,<%OP2 200>
IFDPE %OP%,<%OP2 7777Dp77777577>
IFE <%EOP%-2>,<$$E(<ILL E0SWITCH NAME>)>
IEPFGE <%OP%-3>,<IFBEp <A>,<%OP2 200>
IFNB <A>,<%OP2F0 A,200>>
IFL <%FPOP%-2>,<%OP3 Y3OPFpEN(A)>
%OP%==2c.JPc.bs?5 =X<
IFE %OP%=x-1,<%OP2 100>
IF>E %OP%,<%OP2 7777>877777677>
IFE <%>XOP%-2>,<$$E(<ILL >xSWITCH NAME>)>
I?FGE <%OP%-3>,<IFB?8 <A>,<%OP2 100>
IFNB <A>,<%OP2?x A,100>>
IFL <%@OP%-2>,<%OP3 Y3OP@8EN(A)>
%OP%==2Pc,;Ps?5@ 7@;P
IFE %OP%7`-1,<%OP2 40>
IFE8 %OP%,<%OP2 777778 7777737>
IFE <%O8@P%-2>,<$$E(<ILL S8`WITCH NAME>)>
IF9GE <%OP%-3>,<IFB 9 <A>,<%OP2 40>
9@IFNB <A>,<%OP2 9`A,40>>
IFL <%OP%:-2>,<%OP3 Y3OPEN(A)>
%OP%==2s?5` 1(;
IFE %OP%1H-1,<%OP2 20>
IFE1h %OP%,<%OP2 7777727777757>
IFE <%O2(P%-2>,<$$E(<ILL S2HWITCH NAME>)>
IF2hGE <%OP%-3>,<IFB 3<A>,<%OP2 20>
3(IFNB <A>,<%OP2 3HA,20>>
IFL <%OP%3h-2>,<%OP3 Y3OPEN(A)>
%OP%==2#js?D +:m
IFE %OP%+0-1,<%OP2 10>
IFE+P %OP%,<%OP2 77777+p7777767>
IFE <%O,P%-2>,<$$E(<ILL S,0WITCH NAME>)>
IF,PGE <%OP%-3>,<IFB ,p<A>,<%OP2 10>
-IFNB <A>,<%OP2 -0A,10>>
IFL <%OP%-P-2>,<%OP3 Y3OPEN(A)>
%OP%==2N8s?D $x:;
IFE %OP%%-1,<%OP2 4>
IFE %8%OP%,<%OP2 777777%X777773>
IFE <%OP%x%-2>,<$$E(<ILL SW&ITCH NAME>)>
IFG&8E <%OP%-3>,<IFB <&XA>,<%OP2 4>
IF&xNB <A>,<%OP2 A,'4>>
IFL <%OP%-2>'8,<%OP3 Y3OPEN(A)>
%OP%==21Us?D@ `:
IFE %OP%-1,<%OP2 2>
IFE %OP%,<%OP2 777777@777775>
IFE <%OP`%-2>,<$$E(<ILL SW ITCH NAME>)>
IFG E <%OP%-3>,<IFB < @A>,<%OP2 2>
IF `NB <A>,<%OP2 A,!2>>
IFL <%OP%-2>! ,<%OP3 Y3OPEN(A)>
%OP%==2sO<@s?D` H9X
IFE %OP%h-1,<%OP2 1>
IFE %OP%,<%OP2 777777(777776>
IFE <%OPH%-2>,<$$E(<ILL SWhITCH NAME>)>
IFGE <%OP%-3>,<IFB <(A>,<%OP2 1>
IFHNB <A>,<%OP2 A,h1>>
IFL <%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2P s? JH<j
IFE %OP%Jh-1,<%OP2 400>
IFKE %OP%,<%OP2 7777K(77777377>
IFE <%KHOP%-2>,<$$E(<ILL KhSWITCH NAME>)>
ILFGE <%OP%-3>,<IFBL( <A>,<%OP2 400>
IFNB <A>,<%OP2Lh A,400>>
IFL <%MOP%-2>,<%OP3 Y3OPM(EN(A)>
%OP%==2PhcO<YPs?I1 d(>8
IFE %OP%dH-1,<%OP2 10000>
dhIFE %OP%,<%OP2 77e7777767777>
IFE e(<%OP%-2>,<$$E(<ILeHL SWITCH NAME>)>
IFGE <%OP%-3>,<IfFB <A>,<%OP2 100f(00>
IFNB <A>,<fH%OP2 A,10000>>
fhIFL <%OP%-2>,<%OPg3 Y3OPEN(A)>
%OP%==2u") -xs?IH 7@;P
IFE %OP%7`-1,<%OP2 40>
IFE8 %OP%,<%OP2 777778 7777737>
IFE <%O8@P%-2>,<$$E(<ILL S8`WITCH NAME>)>
IF9GE <%OP%-3>,<IFB 9 <A>,<%OP2 40>
9@IFNB <A>,<%OP2 9`A,40>>
IFL <%OP%:-2>,<%OP3 Y3OPEN(A)>
%OP%==2s?\Y k>n
IFE %OP%k -1,<%OP2 20000>
k@IFE %OP%,<%OP2 77k`7777757777>
IFE l<%OP%-2>,<$$E(<ILl L SWITCH NAME>)>
IFGE <%OP%-3>,<Il`FB <A>,<%OP2 200m00>
IFNB <A>,<m %OP2 A,20000>>
m@IFL <%OP%-2>,<%OPm`3 Y3OPEN(A)>
%OP%==2&uG.[Ys?^ $x:;
IFE %OP%%-1,<%OP2 4>
IFE %8%OP%,<%OP2 777777%X777773>
IFE <%OP%x%-2>,<$$E(<ILL SW&ITCH NAME>)>
IFG&8E <%OP%-3>,<IFB <&XA>,<%OP2 4>
IF&xNB <A>,<%OP2 A,'4>>
IFL <%OP%-2>'8,<%OP3 Y3OPEN(A)>
%OP%==21Us?h 1(;
IFE %OP%1H-1,<%OP2 20>
IFE1h %OP%,<%OP2 7777727777757>
IFE <%O2(P%-2>,<$$E(<ILL S2HWITCH NAME>)>
IF2hGE <%OP%-3>,<IFB 3<A>,<%OP2 20>
3(IFNB <A>,<%OP2 3HA,20>>
IFL <%OP%3h-2>,<%OP3 Y3OPEN(A)>
%OP%==2#js?i W8=Q
IFE %OP%WX-1,<%OP2 2000>
IWxFE %OP%,<%OP2 777X777775777>
IFE <X8%OP%-2>,<$$E(<ILLXX SWITCH NAME>)>
XxIFGE <%OP%-3>,<IFYB <A>,<%OP2 2000Y8>
IFNB <A>,<%OYXP2 A,2000>>
IFLYx <%OP%-2>,<%OP3 YZ3OPEN(A)>
%OP%==2gg
@Ps?Lh +:m
IFE %OP%+0-1,<%OP2 10>
IFE+P %OP%,<%OP2 77777+p7777767>
IFE <%O,P%-2>,<$$E(<ILL S,0WITCH NAME>)>
IF,PGE <%OP%-3>,<IFB ,p<A>,<%OP2 10>
-IFNB <A>,<%OP2 -0A,10>>
IFL <%OP%-P-2>,<%OP3 Y3OPEN(A)>
%OP%==2N8s?Lz ]p>
IFE %OP%^-1,<%OP2 4000>
I^0FE %OP%,<%OP2 777^P777773777>
IFE <^p%OP%-2>,<$$E(<ILL_ SWITCH NAME>)>
_0IFGE <%OP%-3>,<IF_PB <A>,<%OP2 4000_p>
IFNB <A>,<%O`P2 A,4000>>
IFL`0 <%OP%-2>,<%OP3 Y`P3OPEN(A)>
%OP%==2<;v4}sO<< s?)6 D<7
IFE %OP%D0-1,<%OP2 200>
IFDPE %OP%,<%OP2 7777Dp77777577>
IFE <%EOP%-2>,<$$E(<ILL E0SWITCH NAME>)>
IEPFGE <%OP%-3>,<IFBEp <A>,<%OP2 200>
IFNB <A>,<%OP2F0 A,200>>
IFL <%FPOP%-2>,<%OP3 Y3OPFpEN(A)>
%OP%==2c.JPc.bs?<Q `:
IFE %OP%-1,<%OP2 2>
IFE %OP%,<%OP2 777777@777775>
IFE <%OP`%-2>,<$$E(<ILL SW ITCH NAME>)>
IFG E <%OP%-3>,<IFB < @A>,<%OP2 2>
IF `NB <A>,<%OP2 A,!2>>
IFL <%OP%-2>! ,<%OP3 Y3OPEN(A)>
%OP%==2sO<@s?LQ qX?#
IFE %OP%qx-1,<%OP2 40000>
rIFE %OP%,<%OP2 77r87777737777>
IFE rX<%OP%-2>,<$$E(<ILrxL SWITCH NAME>)>
IFGE <%OP%-3>,<Is8FB <A>,<%OP2 400sX00>
IFNB <A>,<sx%OP2 A,40000>>
tIFL <%OP%-2>,<%OPt83 Y3OPEN(A)>
%OP%==2S|i@
s?M H9X
IFE %OP%h-1,<%OP2 1>
IFE %OP%,<%OP2 777777(777776>
IFE <%OPH%-2>,<$$E(<ILL SWhITCH NAME>)>
IFGE <%OP%-3>,<IFB <(A>,<%OP2 1>
IFHNB <A>,<%OP2 A,h1>>
IFL <%OP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2P s?
S Q=
IFE %OP%Q -1,<%OP2 1000>
IQ@FE %OP%,<%OP2 777Q`777776777>
IFE <R%OP%-2>,<$$E(<ILLR SWITCH NAME>)>
R@IFGE <%OP%-3>,<IFR`B <A>,<%OP2 1000S>
IFNB <A>,<%OS P2 A,1000>>
IFLS@ <%OP%-2>,<%OP3 YS`3OPEN(A)>
%OP%==2$\2gR.s?,r =X<
IFE %OP%=x-1,<%OP2 100>
IF>E %OP%,<%OP2 7777>877777677>
IFE <%>XOP%-2>,<$$E(<ILL >xSWITCH NAME>)>
I?FGE <%OP%-3>,<IFB?8 <A>,<%OP2 100>
IFNB <A>,<%OP2?x A,100>>
IFL <%@OP%-2>,<%OP3 Y3OP@8EN(A)>
%OP%==2Pc,;PsB| MX=
IFE <%OPMx%-1>,<%OP1 400>
NIFE %OP%,<%OP1 77N87377>
IFE <%OP%-NX2>,<$$E(<ILL SWITNxCH NAME>)>
IFGE O<%OP%-3>,<IFB <AO8>,<%OP1 400>
IFOXNB <A>,<%OP1 A,Ox400>>
IFL<%OP%-2P>,<%OP3 Y3OPEN(A)>
%OP%==2
sB|I1 g8>Q
IFE <%OPgX%-1>,<%OP1 10000>gx
IFE %OP%,<%OP1 h767777>
IFE <%OPh8%-2>,<$$E(<ILL SWhXITCH NAME>)>
IFGhxE <%OP%-3>,<IFB <iA>,<%OP1 10000>
IFNB <A>,<%OP1iX A,10000>>
IFL<ix%OP%-2>,<%OP3 Y3OjPEN(A)>
%OP%==2$luG,j<'KsB|IH :0;g
IFE <%OP:P%-1>,<%OP1 40>
I:pFE %OP%,<%OP1 777;737>
IFE <%OP%-2;0>,<$$E(<ILL SWITC;PH NAME>)>
IFGE <;p%OP%-3>,<IFB <A><,<%OP1 40>
IFNB<0 <A>,<%OP1 A,40<P>>
IFL<%OP%-2>,<<p%OP3 Y3OPEN(A)>
%OP%==2(c
}{sB|\Y n?
IFE <%OPn0%-1>,<%OP1 20000>nP
IFE %OP%,<%OP1 np757777>
IFE <%OPo%-2>,<$$E(<ILL SWo0ITCH NAME>)>
IFGoPE <%OP%-3>,<IFB <opA>,<%OP1 20000>
IFNB <A>,<%OP1p0 A,20000>>
IFL<pP%OP%-2>,<%OP3 Y3OppPEN(A)>
%OP%==2@P CLsB|^ 'h:R
IFE <%OP(%-1>,<%OP1 4>
IF((E %OP%,<%OP1 7777(H73>
IFE <%OP%-2>(h,<$$E(<ILL SWITCH) NAME>)>
IFGE <%)(OP%-3>,<IFB <A>,)H<%OP1 4>
IFNB <)hA>,<%OP1 A,4>>
IFL<%OP%-2>,<%OP*(3 Y3OPEN(A)>
%OP%==2uG,x@*sB}h 4;5
IFE <%OP48%-1>,<%OP1 20>
I4XFE %OP%,<%OP1 7774x757>
IFE <%OP%-25>,<$$E(<ILL SWITC58H NAME>)>
IFGE <5X%OP%-3>,<IFB <A>5x,<%OP1 20>
IFNB6 <A>,<%OP1 A,2068>>
IFL<%OP%-2>,<6X%OP3 Y3OPEN(A)>
%OP%==20xsB}i ZH=h
IFE <%OPZh%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7[(75777>
IFE <%OP%[H-2>,<$$E(<ILL SWI[hTCH NAME>)>
IFGE\ <%OP%-3>,<IFB <\(A>,<%OP1 2000>
\HIFNB <A>,<%OP1 \hA,2000>>
IFL<%OP]%-2>,<%OP3 Y3OPEN(A)>
%OP%==2sB}Lh .;
IFE <%OP. %-1>,<%OP1 10>
I.@FE %OP%,<%OP1 777.`767>
IFE <%OP%-2/>,<$$E(<ILL SWITC/ H NAME>)>
IFGE </@%OP%-3>,<IFB <A>/`,<%OP1 10>
IFNB0 <A>,<%OP1 A,100 >>
IFL<%OP%-2>,<0@%OP3 Y3OPEN(A)>
%OP%==2D[sB}Lz a>
IFE <%OPa %-1>,<%OP1 4000>
IFE %OP%,<%OP1 7a`73777>
IFE <%OP%b-2>,<$$E(<ILL SWIb TCH NAME>)>
IFGEb@ <%OP%-3>,<IFB <b`A>,<%OP1 4000>
cIFNB <A>,<%OP1 c A,4000>>
IFL<%OPc@%-2>,<%OP3 Y3OPEN(A)>
%OP%==2sB~)6 G <N
IFE <%OPG@%-1>,<%OP1 200>
G`IFE %OP%,<%OP1 77H7577>
IFE <%OP%-H 2>,<$$E(<ILL SWITH@CH NAME>)>
IFGE H`<%OP%-3>,<IFB <AI>,<%OP1 200>
IFI NB <A>,<%OP1 A,I@200>>
IFL<%OP%-2I`>,<%OP3 Y3OPEN(A)>
%OP%==2B/!P:!
IFE <%OP!p%-1>,<%OP1 2>
IF"E %OP%,<%OP1 7777"075>
IFE <%OP%-2>"P,<$$E(<ILL SWITCH"p NAME>)>
IFGE <%#OP%-3>,<IFB <A>,#0<%OP1 2>
IFNB <#PA>,<%OP1 A,2>>
IFL<%OP%-2>,<%OP$3 Y3OPEN(A)>
%OP%==2Pu-KUsB~LQ th?<
IFE <%OPu%-1>,<%OP1 40000>u(
IFE %OP%,<%OP1 uH737777>
IFE <%OPuh%-2>,<$$E(<ILL SWvITCH NAME>)>
IFGv(E <%OP%-3>,<IFB <vHA>,<%OP1 40000>
IFNB <A>,<%OP1w A,40000>>
IFL<w(%OP%-2>,<%OP3 Y3OwHPEN(A)>
%OP%==2JXdNsB~M 89o
IFE <%OPX%-1>,<%OP1 1>
IFxE %OP%,<%OP1 777776>
IFE <%OP%-2>8,<$$E(<ILL SWITCHX NAME>)>
IFGE <%xOP%-3>,<IFB <A>,<%OP1 1>
IFNB <8A>,<%OP1 A,1>>
IFL<%OP%-2>,<%OPx3 Y3OPEN(A)>
%OP%==2m-AGsB
S T=5
IFE <%OPT0%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7Tp76777>
IFE <%OP%U-2>,<$$E(<ILL SWIU0TCH NAME>)>
IFGEUP <%OP%-3>,<IFB <UpA>,<%OP1 1000>
VIFNB <A>,<%OP1 V0A,1000>>
IFL<%OPVP%-2>,<%OP3 Y3OPEN(A)>
%OP%==2`sB,r @h<
IFE <%OPA%-1>,<%OP1 100>
A(IFE %OP%,<%OP1 77AH7677>
IFE <%OP%-Ah2>,<$$E(<ILL SWITBCH NAME>)>
IFGE B(<%OP%-3>,<IFB <ABH>,<%OP1 100>
IFBhNB <A>,<%OP1 A,C100>>
IFL<%OP%-2C(>,<%OP3 Y3OPEN(A)>
%OP%==2sO< (82W
IFE %OP%(X-1,<%OP2 40>
IFE(x %OP%,<%OP2 77777)7777737>
IFE <%O)8P%-2>,<$$E(<ILL S)XWITCH NAME>)>
IF)xGE <%OP%-3>,<IFB *<A>,<%OP2 40>
*8IFNB <A>,<%OP2 *XA,40>>
IFL <%OP%*x-2>,<%OP3 YSWITCH(A)>
%OP%==2AsO<8 v7F
IFE <%OPv(%-1>,<%OP1 400000vH>
IFE %OP%,<%OP1vh 377777>
IFE <%OwP%-2>,<$$E(<ILL Sw(WITCH NAME>)>
IFwHGE <%OP%-3>,<IFB wh<A>,<%OP1 400000x>
IFNB <A>,<%Ox(P1 A,400000>>
IxHFL<%OP%-2>,<%OP3 xhYSWCHA(A)>
%OP%==2FE=@sO<9 y87a
IFE <%OPyX%-1>,<%OP1 200000yx>
IFE %OP%,<%OP1z 577777>
IFE <%Oz8P%-2>,<$$E(<ILL SzXWITCH NAME>)>
IFzxGE <%OP%-3>,<IFB {<A>,<%OP1 200000{8>
IFNB <A>,<%O{XP1 A,200000>>
I{xFL<%OP%-2>,<%OP3 |YSWCHA(A)>
%OP%==2,S}`|sO<9 |h7|
IFE <%OP}%-1>,<%OP1 100000}(>
IFE %OP%,<%OP1}H 677777>
IFE <%O}hP%-2>,<$$E(<ILL S~WITCH NAME>)>
IF~(GE <%OP%-3>,<IFB ~H<A>,<%OP1 100000~h>
IFNB <A>,<%OP1 A,100000>>
I(FL<%OP%-2>,<%OP3 HYSWCHA(A)>
%OP%==2l[TxsO<: 8
IFE <%OP8%-1>,<%OP1 40000>X
IFE %OP%,<%OP1 x737777>
IFE <%OP%-2>,<$$E(<ILL SW8ITCH NAME>)>
IFGXE <%OP%-3>,<IFB <xA>,<%OP1 40000>
IFNB <A>,<%OP18 A,40000>>
IFL<X%OP%-2>,<%OP3 YSWxCHA(A)>
%OP%==2PcELzPsO<; 8H3Z
IFE <%OP8h%-1>,<%OP1 4000009>
IFE %OP%,<%OP19( 377777>
IFE <%O9HP%-2>,<$$E(<ILL S9hWITCH NAME>)>
IF:GE <%OP%-3>,<IFB :(<A>,<%OP1 400000:H>
IFNB <A>,<%O:hP1 A,400000>>
I;FL<%OP%-2>,<%OP3 ;(YSWITCH(A)>
%OP%==2CLsO<;v Ox5
IFE <%OPP%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7PX75777>
IFE <%OP%Px-2>,<$$E(<ILL SWIQTCH NAME>)>
IFGEQ8 <%OP%-3>,<IFB <QXA>,<%OP1 2000>
QxIFNB <A>,<%OP1 RA,2000>>
IFL<%OPR8%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO<< H82
IFE <%OPh%-1>,<%OP1 20000>
IFE %OP%,<%OP1 (757777>
IFE <%OPH%-2>,<$$E(<ILL SWhITCH NAME>)>
IFGE <%OP%-3>,<IFB <(A>,<%OP1 20000>
IFNB <A>,<%OP1h A,20000>>
IFL<%OP%-2>,<%OP3 YSW(CHA(A)>
%OP%==2Pc8PsO<<@ x8M
IFE <%OP%-1>,<%OP1 10000>8
IFE %OP%,<%OP1 X767777>
IFE <%OPx%-2>,<$$E(<ILL SWITCH NAME>)>
IFG8E <%OP%-3>,<IFB <XA>,<%OP1 10000>
IFNB <A>,<%OP1 A,10000>>
IFL< 8%OP%-2>,<%OP3 YSW XCHA(A)>
%OP%==2@c&&
W@sO<<`
IFE1<%OPP1 2000>
IFE %OP%,<%OP1 775777>
IFE <%OP%8-2>,<$$E(<ILL SWIXTCH NAME>)>
IFGEx <%OP%-3>,<IFB <A>,<%OP1 2000>
8IFNB <A>,<%OP1 XA,2000>>
IFL<%OPx%-2>,<%OP3 YSWCHA(A)>
%OP%==2sO<=`
(8f
IFE <%OP
H%-1>,<%OP1 4000>
h
IFE %OP%,<%OP1 773777>
IFE <%OP%(-2>,<$$E(<ILL SWIHTCH NAME>)>
IFGEh <%OP%-3>,<IFB <
A>,<%OP1 4000>
(IFNB <A>,<%OP1
HA,4000>>
IFL<%OP
h%-2>,<%OP3 YSWCHA(A)>
%OP%==2 sO<>@ 583A
IFE %OP%5X-1,<%OP2 2000>
I5xFE %OP%,<%OP2 7776777775777>
IFE <68%OP%-2>,<$$E(<ILL6X SWITCH NAME>)>
6xIFGE <%OP%-3>,<IF7B <A>,<%OP2 200078>
IFNB <A>,<%O7XP2 A,2000>>
IFL7x <%OP%-2>,<%OP3 Y8SWITCH(A)>
%OP%==20 jD)Q.@sO<@ 1u
IFE %OP%8-1,<%OP2 2>
IFE X%OP%,<%OP2 777777x777775>
IFE <%OP%-2>,<$$E(<ILL SW8ITCH NAME>)>
IFGXE <%OP%-3>,<IFB <xA>,<%OP2 2>
IFNB <A>,<%OP2 A,82>>
IFL <%OP%-2>X,<%OP3 YSWITCH(A)>
%OP%==2~sO<H [H5r
IFE <%OP[h%-1>,<%OP1 400000\>
IFE %OP%,<%OP1\( 377777>
IFE <%O\HP%-2>,<$$E(<ILL S\hWITCH NAME>)>
IF]GE <%OP%-3>,<IFB ](<A>,<%OP1 400000]H>
IFNB <A>,<%O]hP1 A,400000>>
I^FL<%OP%-2>,<%OP3 ^(YSWDEF(A)>
%OP%==2
ggEP
sO<I ^x6
IFE <%OP_%-1>,<%OP1 200000_8>
IFE %OP%,<%OP1_X 577777>
IFE <%O_xP%-2>,<$$E(<ILL S`WITCH NAME>)>
IF`8GE <%OP%-3>,<IFB `X<A>,<%OP1 200000`x>
IFNB <A>,<%OaP1 A,200000>>
Ia8FL<%OP%-2>,<%OP3 aXYSWDEF(A)>
%OP%==2q^
4(PsO<I b(6(
IFE <%OPbH%-1>,<%OP1 100000bh>
IFE %OP%,<%OP1c 677777>
IFE <%Oc(P%-2>,<$$E(<ILL ScHWITCH NAME>)>
IFchGE <%OP%-3>,<IFB d<A>,<%OP1 100000d(>
IFNB <A>,<%OdHP1 A,100000>>
IdhFL<%OP%-2>,<%OP3 eYSWDEF(A)>
%OP%==2u"+0&sO<J eX6C
IFE <%OPex%-1>,<%OP1 40000>f
IFE %OP%,<%OP1 f8737777>
IFE <%OPfX%-2>,<$$E(<ILL SWfxITCH NAME>)>
IFGgE <%OP%-3>,<IFB <g8A>,<%OP1 40000>
IFNB <A>,<%OP1gx A,40000>>
IFL<h%OP%-2>,<%OP3 YSWh8DEF(A)>
%OP%==2,:u"-J2-&sO<L i6^
IFE <%OPi(%-1>,<%OP1 20000>iH
IFE %OP%,<%OP1 ih757777>
IFE <%OPj%-2>,<$$E(<ILL SWj(ITCH NAME>)>
IFGjHE <%OP%-3>,<IFB <jhA>,<%OP1 20000>
IFNB <A>,<%OP1k( A,20000>>
IFL<kH%OP%-2>,<%OP3 YSWkhDEF(A)>
%OP%==2+uG-K`*7sO<L@ l86y
IFE <%OPlX%-1>,<%OP1 10000>lx
IFE %OP%,<%OP1 m767777>
IFE <%OPm8%-2>,<$$E(<ILL SWmXITCH NAME>)>
IFGmxE <%OP%-3>,<IFB <nA>,<%OP1 10000>
IFNB <A>,<%OP1nX A,10000>>
IFL<nx%OP%-2>,<%OP3 YSWoDEF(A)>
%OP%==2(& ,sO<L` rx7+
IFE <%OPs%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7sX75777>
IFE <%OP%sx-2>,<$$E(<ILL SWItTCH NAME>)>
IFGEt8 <%OP%-3>,<IFB <tXA>,<%OP1 2000>
txIFNB <A>,<%OP1 uA,2000>>
IFL<%OPu8%-2>,<%OP3 YSWDEF(A)>
%OP%==20sO<M` oh7
IFE <%OPp%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7pH73777>
IFE <%OP%ph-2>,<$$E(<ILL SWIqTCH NAME>)>
IFGEq( <%OP%-3>,<IFB <qHA>,<%OP1 4000>
qhIFNB <A>,<%OP1 rA,4000>>
IFL<%OPr(%-2>,<%OP3 YSWDEF(A)>
%OP%==2sO= 2
IFE %OP%@-1,<%OP2 4>
IFE `%OP%,<%OP2 777777 777773>
IFE <%OP %-2>,<$$E(<ILL SW @ITCH NAME>)>
IFG `E <%OP%-3>,<IFB <!A>,<%OP2 4>
IF! NB <A>,<%OP2 A,!@4>>
IFL <%OP%-2>!`,<%OP3 YSWITCH(A)>
%OP%==2fl-sO=L S5,
IFE <%OPS(%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7Sh76777>
IFE <%OP%T-2>,<$$E(<ILL SWIT(TCH NAME>)>
IFGETH <%OP%-3>,<IFB <ThA>,<%OP1 1000>
UIFNB <A>,<%OP1 U(A,1000>>
IFL<%OPUH%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO=Lz Lh4z
IFE <%OPM%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7MH73777>
IFE <%OP%Mh-2>,<$$E(<ILL SWINTCH NAME>)>
IFGEN( <%OP%-3>,<IFB <NHA>,<%OP1 4000>
NhIFNB <A>,<%OP1 OA,4000>>
IFL<%OPO(%-2>,<%OP3 YSWITCH(A)>
%OP%==2sO=iQ V5E
IFE <%OPV8%-1>,<%OP1 400>
VXIFE %OP%,<%OP1 77Vx7377>
IFE <%OP%-W2>,<$$E(<ILL SWITW8CH NAME>)>
IFGE WX<%OP%-3>,<IFB <AWx>,<%OP1 400>
IFXNB <A>,<%OP1 A,X8400>>
IFL<%OP%-2XX>,<%OP3 YSWITCH(A)>
%OP%==2sO> I84a
IFE <%OPIX%-1>,<%OP1 10000>Ix
IFE %OP%,<%OP1 J767777>
IFE <%OPJ8%-2>,<$$E(<ILL SWJXITCH NAME>)>
IFGJxE <%OP%-3>,<IFB <KA>,<%OP1 10000>
IFNB <A>,<%OP1KX A,10000>>
IFL<Kx%OP%-2>,<%OP3 YSWLITCH(A)>
%OP%==2c&%kj@sO> +@2r
IFE %OP%+`-1,<%OP2 200>
IF,E %OP%,<%OP2 7777, 77777577>
IFE <%,@OP%-2>,<$$E(<ILL ,`SWITCH NAME>)>
I-FGE <%OP%-3>,<IFB- <A>,<%OP2 200>
IFNB <A>,<%OP2-` A,200>>
IFL <%.OP%-2>,<%OP3 YSWI. TCH(A)>
%OP%==2uG-
2&
uG-@sO> "(2&
IFE %OP%"H-1,<%OP2 10>
IFE"h %OP%,<%OP2 77777#7777767>
IFE <%O#(P%-2>,<$$E(<ILL S#HWITCH NAME>)>
IF#hGE <%OP%-3>,<IFB $<A>,<%OP2 10>
$(IFNB <A>,<%OP2 $HA,10>>
IFL <%OP%$h-2>,<%OP3 YSWITCH(A)>
%OP%==2 sO>0 23'
IFE %OP%20-1,<%OP2 1000>
I2PFE %OP%,<%OP2 7772p777776777>
IFE <3%OP%-2>,<$$E(<ILL30 SWITCH NAME>)>
3PIFGE <%OP%-3>,<IF3pB <A>,<%OP2 10004>
IFNB <A>,<%O40P2 A,1000>>
IFL4P <%OP%-2>,<%OP3 Y4pSWITCH(A)>
%OP%==2 Pb@sO>LV F4F
IFE <%OPF(%-1>,<%OP1 20000>FH
IFE %OP%,<%OP1 Fh757777>
IFE <%OPG%-2>,<$$E(<ILL SWG(ITCH NAME>)>
IFGGHE <%OP%-3>,<IFB <GhA>,<%OP1 20000>
IFNB <A>,<%OP1H( A,20000>>
IFL<HH%OP%-2>,<%OP3 YSWHhITCH(A)>
%OP%==2`cKqPsO>p .h3
IFE %OP%/-1,<%OP2 400>
IF/(E %OP%,<%OP2 7777/H77777377>
IFE <%/hOP%-2>,<$$E(<ILL 0SWITCH NAME>)>
I0(FGE <%OP%-3>,<IFB0H <A>,<%OP2 400>
IFNB <A>,<%OP21 A,400>>
IFL <%1(OP%-2>,<%OP3 YSWI1HTCH(A)>
%OP%==2+)uG.\r(osO? %02?
IFE %OP%%P-1,<%OP2 20>
IFE%p %OP%,<%OP2 77777&7777757>
IFE <%O&0P%-2>,<$$E(<ILL S&PWITCH NAME>)>
IF&pGE <%OP%-3>,<IFB '<A>,<%OP2 20>
'0IFNB <A>,<%OP2 'PA,20>>
IFL <%OP%'p-2>,<%OP3 YSWITCH(A)>
%OP%==2 sS=` @h5S
IFE <%O?(P%-2>,<$$E(<ILL SXxWITCH NAME>)>
IYFN <%OP%-2>,<
Y8IFE <%OP%-3>,<%OPYX3 777777>
IFE Yx<%OP%-4>,<%OP3>
Z IFL <%OP%-2>,<%Z8OP4 YTRPAS(A)>
%OP%==2>tGxRP$tGxVP"u-KU 68#E
$%W==2
6XIFNB <B>,<$%W==26x+<B>>
IFE <$$US7E-3>,<LI $$$VAL
78$$USE==1>
IFE $$7XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$8R $%W(A)>
IFE <88$$USE-2>,<PRINTX 8XOPD-OPR NESTING ERROR>
$$USE==2u.N8 3#.
$%W==0
3(IFNB <B>,<$%W==03H+<B>>
IFE <$$US3hE-3>,<LI $$$VAL
4$$USE==1>
IFE $$4(USE,<$F $%W(A)>
IFE <$$USE-1>,<$4hB [$ZDETYP B(A)5]-$$RELO($$BAS)>
IFE <$$USE-2>,<P5HRINTX INVALID USE5h OF FIELD>
$$USE==2AcDPuxt U.
ASSERT<U IRP A <
IFN <U@A>,<CFAIL ZEROCHU`ECK FAILURE>
>
>
c8u -`|
OPDEF $L. [HRRZS]
OPDEF $. R [HLLZS]
OPDEF .@$F [SETZM]
PURGE.` $B,$B
$$USE==1
IFNB <A>,<
IF/ NB <B>,<A,B>
/@ IFB <B>,<A>
>
u"Y@ 1WZDETYP9u"\`P u"]@P u"+ H0
IFE %OP%h-1,<%OP2 10>
IFE %OP%,<%OP2 77777(7777767>
IFE <%OHP%-2>,<$$E(<ILL ShWITCH NAME>)>
IFGE <%OP%-3>,<IFB (<A>,<%OP2 10>
HIFNB <A>,<%OP2 hA,10>>
IFL <%OP%-2>,<%OP3 3(A)>
%OP%==2LID USEu"I; e.>
$%W==3
e IFNB <B>,<$%W==3e@+<B>>
IFE <$$USe`E-3>,<LI $$$VAL
f$$USE==1>
IFE $$f USE,<$F $%W(A)>
IFE <$$USE-1>,<$f`B [$ZHBDEV B(A)g]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pg@RINTX INVALID USEg` OF FIELD>
$$USE==2{@lg%{Pu"^
IFE %OP%
`-1,<%OP2 1>
IFE
@%OP%,<%OP2 777777777776>
IFE2<%OPE(<ILL SWDITCH NAME>)>
IFG%OP%-3>,<IFB <pA>,<%OP2 1>
IF
NB <A>,<%OP2 A,H1>>
IFL <%OP%-2>h,<%OP3 3(A)>
%OP%==2NVALID USEu"9 P0C
IFE %OP%0-1,<%OP2 2>
IFE %OP%,<%OP2 777777X777775>
IFE <%OP8%-2>,<$$E(<ILL SWDHITCH NAME>)>
IFGE <%OP%-3>,<IFB <@A>,<%OP2 2>
IF`NB <A>,<%OP2 A,2>>
IFL <%OP%-2>8,<%OP3 3(A)>
%OP%==2NVALID USEu"Kq 80*
IFE %OP%-1,<%OP2 4>
IFE x%OP%,<%OP2 777777@777773>
IFE <%OP %-2>,<$$E(<ILL SWDhITCH NAME>)>
IFGE <%OP%-3>,<IFB <(A>,<%OP2 4>
IFHNB <A>,<%OP2 A,4>>
IFL <%OP%-2> ,<%OP3 3(A)>
%OP%==2NVALID USEu"YW |P/y
$%W==3
|0IFNB <B>,<$%W==3}x+<B>>
IFE <$$US}XE-3>,<LI $$$VAL
E$$USE==1>
IFE $$}8USE,<$F $%W(A)>
IFE <$$USE-1>,<$|B [$ZHBMFO B(A)~8]-$$RELO($$BAS)>
IFE <$$USE-2>,<P~xRINTX INVALID USE OF FIELD>
$$USE==2,T jD[,Tu"hu h0]
IFE %OP% H-1,<%OP2 2>
IFE (%OP%,<%OP2 777777
p777775>
IFE <%OP
P%-2>,<$$E(<ILL SWD(ITCH NAME>)>
IFG
0E <%OP%-3>,<IFB <XA>,<%OP2 2>
IFxNB <A>,<%OP2 A,02>>
IFL <%OP%-2>P,<%OP3 3(A)>
%OP%==2NVALID USEu"lX h0.Y
$%W==3
hPIFNB <B>,<$%W==3hp+<B>>
IFE <$$USiE-3>,<LI $$$VAL
i0$$USE==1>
IFE $$iPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$jB [$ZHBNRP B(A)j0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PjpRINTX INVALID USEk OF FIELD>
$$USE==2."Fgfl.u"
1$%W==4
IF(NB <B>,<$%W==4+<pB>
>
IFE <$$USE-3>,<LI $$$VAL
0$$USE==1>
$F $%W(A)Pc# u"8V o/
$%W==3
o0IFNB <B>,<$%W==3oP+<B>>
IFE <$$USopE-3>,<LI $$$VAL
p$$USE==1>
IFE $$p0USE,<$F $%W(A)>
IFE <$$USE-1>,<$ppB [$ZHBSBL B(A)q]-$$RELO($$BAS)>
IFE <$$USE-2>,<PqPRINTX INVALID USEqp OF FIELD>
$$USE==25Pq^
5 u"= r@/*
$%W==3
r`IFNB <B>,<$%W==3s+<B>>
IFE <$$USs E-3>,<LI $$$VAL
s@$$USE==1>
IFE $$s`USE,<$F $%W(A)>
IFE <$$USE-1>,<$t B [$ZHBSTD B(A)t@]-$$RELO($$BAS)>
IFE <$$USE-2>,<PuRINTX INVALID USEu OF FIELD>
$$USE==2`% uG-Pu">R up/E
$%W==3
vIFNB <B>,<$%W==3v0+<B>>
IFE <$$USvPE-3>,<LI $$$VAL
vp$$USE==1>
IFE $$wUSE,<$F $%W(A)>
IFE <$$USE-1>,<$wPB [$ZHBSZD B(A)wp]-$$RELO($$BAS)>
IFE <$$USE-2>,<Px0RINTX INVALID USExP OF FIELD>
$$USE==2`p$K`u"[Y x$$%W==4
IFXNB <B>,<$%W==4+< B>
>
IFE <$$USE-3>,<LI $$$VAL
Ch$$USE==1>
$F $%W(A)7777777777u"\ y/\
IFE %OP%y -1,<%OP2 20>
IFEy@ %OP%,<%OP2 77777y`7777757>
IFE <%OzP%-2>,<$$E(<ILL Sz WITCH NAME>)>
IFz@GE <%OP%-3>,<IFB z`<A>,<%OP2 20>
{IFNB <A>,<%OP2 { A,20>>
IFL <%OP%{@-2>,<%OP3 3(A)>
%OP%==2LID USEu"lZ k`.t
$%W==3
lIFNB <B>,<$%W==3l +<B>>
IFE <$$USl@E-3>,<LI $$$VAL
l`$$USE==1>
IFE $$mUSE,<$F $%W(A)>
IFE <$$USE-1>,<$m@B [$ZHBVRT B(A)m`]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pn RINTX INVALID USEn@ OF FIELD>
$$USE==2E@P
2 Y@-^
$%W==2
Y`IFNB <B>,<$%W==2Z+<B>>
IFE <$$USZ E-3>,<LI $$$VAL
Z@$$USE==1>
IFE $$Z`USE,<$F $%W(A)>
IFE <$$USE-1>,<$[ L $%W(A)>
IFE <[@$$USE-2>,<PRINTX [`OPD-OPR NESTING ERROR>
$$USE==2u") _ .
$%W==2
_@IFNB <B>,<$%W==2_`+<B>>
IFE <$$US`E-3>,<LI $$$VAL
` $$USE==1>
IFE $$`@USE,<$F $%W(A)>
IFE <$$USE-1>,<$aR $%W(A)>
IFE <a $$USE-2>,<PRINTX a@OPD-OPR NESTING ERROR>
$$USE==2u"* b.#
$%W==2
b0IFNB <B>,<$%W==2bP+<B>>
IFE <$$USbpE-3>,<LI $$$VAL
c$$USE==1>
IFE $$c0USE,<$F $%W(A)>
IFE <$$USE-1>,<$cpR $%W(A)>
IFE <d$$USE-2>,<PRINTX d0OPD-OPR NESTING ERROR>
$$USE==2u",: \0-u
$%W==2
\PIFNB <B>,<$%W==2\p+<B>>
IFE <$$US]E-3>,<LI $$$VAL
]0$$USE==1>
IFE $$]PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$^L $%W(A)>
IFE <^0$$USE-2>,<PRINTX ^POPD-OPR NESTING ERROR>
$$USE==2u"(Y@ 1UZDETYP0u"(\`P u"(]@P u",+V Jp,m
$%W==1
KIFNB <B>,<$%W==1K0+<B>>
IFE <$$USKPE-3>,<LI $$$VAL
Kp$$USE==1>
IFE $$LUSE,<$F $%W(A)>
IFE <$$USE-1>,<$LPB [$ZHEBNM B(A)Lp]-$$RELO($$BAS)>
IFE <$$USE-2>,<PM0RINTX INVALID USEMP OF FIELD>
$$USE==2@TKB~u",K A ,
$%W==0
A@IFNB <B>,<$%W==0A`+<B>>
IFE <$$USBE-3>,<LI $$$VAL
B $$USE==1>
IFE $$B@USE,<$F $%W(A)>
IFE <$$USE-1>,<$CR $%W(A)>
IFE <C $$USE-2>,<PRINTX C@OPD-OPR NESTING ERROR>
$$USE==2u",XV D,7
$%W==1
D0IFNB <B>,<$%W==1DP+<B>>
IFE <$$USDpE-3>,<LI $$$VAL
E$$USE==1>
IFE $$E0USE,<$F $%W(A)>
IFE <$$USE-1>,<$EpB [$ZHEEBL B(A)F]-$$RELO($$BAS)>
IFE <$$USE-2>,<PFPRINTX INVALID USEFp OF FIELD>
$$USE==2Z;'| kZwu",j< N -
$%W==1
N@IFNB <B>,<$%W==1N`+<B>>
IFE <$$USOE-3>,<LI $$$VAL
O $$USE==1>
IFE $$O@USE,<$F $%W(A)>
IFE <$$USE-1>,<$PB [$ZHEFIX B(A)P ]-$$RELO($$BAS)>
IFE <$$USE-2>,<PP`RINTX INVALID USEQ OF FIELD>
$$USE==2bXE(u"-I7 G@,R
$%W==1
G`IFNB <B>,<$%W==1H+<B>>
IFE <$$USH E-3>,<LI $$$VAL
H@$$USE==1>
IFE $$H`USE,<$F $%W(A)>
IFE <$$USE-1>,<$I B [$ZHELEN B(A)I@]-$$RELO($$BAS)>
IFE <$$USE-2>,<PJRINTX INVALID USEJ OF FIELD>
$$USE==2]9Q(b k]9u"-J2 U-:
$%W==0
U IFNB <B>,<$%W==0U@+<B>>
IFE <$$USU`E-3>,<LI $$$VAL
V$$USE==1>
IFE $$V USE,<$F $%W(A)>
IFE <$$USE-1>,<$V`R $%W(A)>
IFE <W$$USE-2>,<PRINTX W OPD-OPR NESTING ERROR>
$$USE==2u"-kt :+e
IFE <%OP:0%-1>,<%OP1 100>
:PIFE %OP%,<%OP1 77:p7677>
IFE <%OP%-;2>,<$$E(<ILL SWIT;0CH NAME>)>
IFGE ;P<%OP%-3>,<IFB <A;p>,<%OP1 100>
IF<NB <A>,<%OP1 A,<0100>>
IFL<%OP%-2<P>,<%OP3 0(A)>
%OP%==2VALID USEu"-z2 QP-#
$%W==0
QpIFNB <B>,<$%W==0R+<B>>
IFE <$$USR0E-3>,<LI $$$VAL
RP$$USE==1>
IFE $$RpUSE,<$F $%W(A)>
IFE <$$USE-1>,<$S0B [$ZHEOID B(A)SP]-$$RELO($$BAS)>
IFE <$$USE-2>,<PTRINTX INVALID USET0 OF FIELD>
$$USE==2(<Pc
,pu".;v =`,
$%W==0
=@IFNB <B>,<$%W==0?+<B>>
IFE <$$US>pE-3>,<LI $$$VAL
>P$$USE==1>
IFE $$<pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$?PB [$ZHESOL B(A)?p]-$$RELO($$BAS)>
IFE <$$USE-2>,<P@0RINTX INVALID USE@P OF FIELD>
$$USE==2=Pu".N8 7+N
$%W==0
7 IFNB <B>,<$%W==07@+<B>>
IFE <$$US7`E-3>,<LI $$$VAL
8$$USE==1>
IFE $$8 USE,<$F $%W(A)>
IFE <$$USE-1>,<$8`B [$ZHETYP B(A)9]-$$RELO($$BAS)>
IFE <$$USE-2>,<P9@RINTX INVALID USE9` OF FIELD>
$$USE==2q^
4 u".[Y Wp-G$%W==1
IFXNB <B>,<$%W==1+<X0B>
>
IFE <$$USXPE-3>,<LI $$$VAL
Xp$$USE==1>
$F $%W(A)VPc%wuG
j< p1A
$%W==0
IFNB <B>,<$%W==00+<B>>
IFE <$$USPE-3>,<LI $$$VAL
p$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$PR $%W(A)>
IFE <p$$USE-2>,<PRINTX OPD-OPR NESTING ERROR>
$$USE==2uG
$%W==0
IFNB <B>,<$%W==0@+<B>>
IFE <$$US`E-3>,<LI $$$VAL
$$USE==1>
IFE $$ USE,<$F $%W(A)>
IFE <$$USE-1>,<$`L $%W(A)>
IFE <$$USE-2>,<PRINTX OPD-OPR NESTING ERROR>
$$USE==2uG[Y `1N$%W==1
IFNB <B>,<$%W==1+< B>
>
IFE <$$US@E-3>,<LI $$$VAL
`$$USE==1>
$F $%W(A)0PcK&
uG(Y@ 1SZDETYPKuG(\`P uG(]@P uG,I , *q
IFE <%OP,%-1>,<%OP1 400>
+`IFE %OP%,<%OP1 77-7377>
IFE <%OP%-,p2>,<$$E(<ILL SWITEHCH NAME>)>
IFGE +<%OP%-3>,<IFB <A+0>,<%OP1 400>
IF-PNB <A>,<%OP1 A,-p400>>
IFL<%OP%-2.>,<%OP3 3(A)>
%OP%==2ALID USE uG,^ <x$X
IFE <%OP<X%-1>,<%OP1 20000><8
IFE %OP%,<%OP1 J757777>
IFE <%OPIh%-2>,<$$E(<ILL SWIHITCH NAME>)>
IFG;hE <%OP%-3>,<IFB <<A>,<%OP1 20000>
IFNB <A>,<%OP1Jh A,20000>>
IFL<K%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG,j< yX'_
$%W==1
yxIFNB <B>,<$%W==1z+<B>>
IFE <$$USz8E-3>,<LI $$$VAL
zX$$USE==1>
IFE $$zxUSE,<$F $%W(A)>
IFE <$$USE-1>,<${8L $%W(A)>
IFE <{X$$USE-2>,<PRINTX {xOPD-OPR NESTING ERROR>
$$USE==2uG,x@ )o
IFE <%OPh%-1>,<%OP1 20000>H
IFE %OP%,<%OP1 x757777>
IFE <%OPX%-2>,<$$E(<ILL SWFhITCH NAME>)>
IFGxE <%OP%-3>,<IFB <A>,<%OP1 20000>
IFNB <A>,<%OP1X A,20000>>
IFL<x%OP%-2>,<%OP3 3(A)>
%OP%==2SE uG,{ 9#\
IFE <%OP9(%-1>,<%OP1 40000>9H
IFE %OP%,<%OP1 9h737777>
IFE <%OP:%-2>,<$$E(<ILL SW:(ITCH NAME>)>
IFG:HE <%OP%-3>,<IFB <:hA>,<%OP1 40000>
IFNB <A>,<%OP1;( A,40000>>
IFL<;H%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG-
2 \X%t
IFE <%OP\8%-1>,<%OP1 20>
I\FE %OP%,<%OP1 777]H757>
IFE <%OP%-2](>,<$$E(<ILL SWITCHH NAME>)>
IFGE <[H%OP%-3>,<IFB <A>[h,<%OP1 20>
IFNB^ <A>,<%OP1 A,20^(>>
IFL<%OP%-2>,<^H%OP3 0(A)>
%OP%==2 INVALID USEuG-@ Rx%&
IFE <%OPRX%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7Sh73777>
IFE <%OP%SH-2>,<$$E(<ILL SWIHhTCH NAME>)>
IFGEQh <%OP%-3>,<IFB <RA>,<%OP1 4000>
T(IFNB <A>,<%OP1 THA,4000>>
IFL<%OPTh%-2>,<%OP3 0(A)>
%OP%==2D USE uG-R ((D
$%W==1
HIFNB <B>,<$%W==1h+<B>>
IFE <$$USE-3>,<LI $$$VAL
($$USE==1>
IFE $$HUSE,<$F $%W(A)>
IFE <$$USE-1>,<$R $%W(A)>
IFE <($$USE-2>,<PRINTX HOPD-OPR NESTING ERROR>
$$USE==2uG-` (*
IFE <%OP%-1>,<%OP1 10000>h
IFE %OP%,<%OP1 767777>
IFE <%OPx%-2>,<$$E(<ILL SWFHITCH NAME>)>
IFGE <%OP%-3>,<IFB <8A>,<%OP1 10000>
IFNB <A>,<%OP1 x A,10000>>
IFL<!%OP%-2>,<%OP3 3(A)>
%OP%==2SE uG-` OX%
IFE <%OPO8%-1>,<%OP1 10000>O
IFE %OP%,<%OP1 PH767777>
IFE <%OPP(%-2>,<$$E(<ILL SWIITCH NAME>)>
IFGNHE <%OP%-3>,<IFB <NhA>,<%OP1 10000>
IFNB <A>,<%OP1Q( A,10000>>
IFL<QH%OP%-2>,<%OP3 0(A)>
%OP%==2SE uG-P |('v
IFE <%OP|H%-1>,<%OP1 400000|h>
IFE %OP%,<%OP1} 377777>
IFE <%O}(P%-2>,<$$E(<ILL S}HWITCH NAME>)>
IF}hGE <%OP%-3>,<IFB ~<A>,<%OP1 400000~(>
IFNB <A>,<%O~HP1 A,400000>>
I~hFL<%OP%-2>,<%OP3 1(A)>
%OP%==2uG-;R ih&d
$%W==0
jIFNB <B>,<$%W==0j(+<B>>
IFE <$$USjHE-3>,<LI $$$VAL
jh$$USE==1>
IFE $$kUSE,<$F $%W(A)>
IFE <$$USE-1>,<$kHB [$ZQUKND B(A)kh]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pl(RINTX INVALID USElH OF FIELD>
$$USE==2c&% 2@uG-I7 L8$r
IFE <%OPL%-1>,<%OP1 10000>Kx
IFE %OP%,<%OP1 M(767777>
IFE <%OPM%-2>,<$$E(<ILL SWI(ITCH NAME>)>
IFGK(E <%OP%-3>,<IFB <KHA>,<%OP1 10000>
IFNB <A>,<%OP1N A,10000>>
IFL<N(%OP%-2>,<%OP3 0(A)>
%OP%==2USEuG-J2 x(-
$%W==1
IFNB <B>,<$%W==18+<B>>
IFE <$$USXE-3>,<LI $$$VAL
x$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$XB [$ZQULID B(A)x]-$$RELO($$BAS)>
IFE <$$USE-2>,<P8RINTX INVALID USEX OF FIELD>
$$USE==2t%@huG-KR 2@+&
$%W==3
2`IFNB <B>,<$%W==33+<B>>
IFE <$$US3 E-3>,<LI $$$VAL
3@$$USE==1>
IFE $$3`USE,<$F $%W(A)>
IFE <$$USE-1>,<$4 R $%W(A)>
IFE <4@$$USE-2>,<PRINTX 4`OPD-OPR NESTING ERROR>
$$USE==2uG-K` "H*#
IFE <%OP"(%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7#873777>
IFE <%OP%#-2>,<$$E(<ILL SWIF(TCH NAME>)>
IFGE!8 <%OP%-3>,<IFB <!XA>,<%OP1 4000>
#xIFNB <A>,<%OP1 $A,4000>>
IFL<%OP$8%-2>,<%OP3 3(A)>
%OP%==2D USE uG-[r f8&I
$%W==0
fXIFNB <B>,<$%W==0fx+<B>>
IFE <$$USgE-3>,<LI $$$VAL
g8$$USE==1>
IFE $$gXUSE,<$F $%W(A)>
IFE <$$USE-1>,<$hB [$ZQUMOD B(A)h8]-$$RELO($$BAS)>
IFE <$$USE-2>,<PhxRINTX INVALID USEi OF FIELD>
$$USE==2c,;PuG-h1 )>
$%W==3
(IFNB <B>,<$%W==3H+<B>>
IFE <$$UShE-3>,<LI $$$VAL
$$USE==1>
IFE $$(USE,<$F $%W(A)>
IFE <$$USE-1>,<$hB [$ZQUNAC B(A)]-$$RELO($$BAS)>
IFE <$$USE-2>,<PHRINTX INVALID USEh OF FIELD>
$$USE==2BS.@uG-kz _x&
IFE <%OP_X%-1>,<%OP1 10>
I_8FE %OP%,<%OP1 777a767>
IFE <%OP%-2`h>,<$$E(<ILL SWITC`HH NAME>)>
IFGE <^h%OP%-3>,<IFB <A>_,<%OP1 10>
IFNBaH <A>,<%OP1 A,10ah>>
IFL<%OP%-2>,<b%OP3 0(A)>
%OP%==2 INVALID USEuG-lq x(
$%W==1
XIFNB <B>,<$%W==1h+<B>>
IFE <$$USGHE-3>,<LI $$$VAL
G($$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$(B [$ZQUNSB B(A)H]-$$RELO($$BAS)>
IFE <$$USE-2>,<PRINTX INVALID USE( OF FIELD>
$$USE==2puG.
@ )U
IFE <%OP8%-1>,<%OP1 40000>X
IFE %OP%,<%OP1 x737777>
IFE <%OP%-2>,<$$E(<ILL SW8ITCH NAME>)>
IFGXE <%OP%-3>,<IFB <xA>,<%OP1 40000>
IFNB <A>,<%OP18 A,40000>>
IFL<X%OP%-2>,<%OP3 3(A)>
%OP%==2SEuG.
IFE <%OP(`%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7)p76777>
IFE <%OP%)P-2>,<$$E(<ILL SWIEhTCH NAME>)>
IFGE'x <%OP%-3>,<IFB <(A>,<%OP1 1000>
*0IFNB <A>,<%OP1 *PA,1000>>
IFL<%OP*p%-2>,<%OP3 3(A)>
%OP%==2ID USEuG.2 ()
$%W==2
HIFNB <B>,<$%W==2h+<B>>
IFE <$$USE-3>,<LI $$$VAL
($$USE==1>
IFE $$HUSE,<$F $%W(A)>
IFE <$$USE-1>,<$L $%W(A)>
IFE <($$USE-2>,<PRINTX HOPD-OPR NESTING ERROR>
$$USE==2uG.5 %h*=
IFE <%OP%H%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7&X75777>
IFE <%OP%&8-2>,<$$E(<ILL SWIFTCH NAME>)>
IFGE$X <%OP%-3>,<IFB <$xA>,<%OP1 2000>
'IFNB <A>,<%OP1 '8A,2000>>
IFL<%OP'X%-2>,<%OP3 3(A)>
%OP%==2ID USEuG.;Y / +
$%W==3
/IFNB <B>,<$%W==300+<B>>
IFE <$$US0E-3>,<LI $$$VAL
E($$USE==1>
IFE $$.0USE,<$F $%W(A)>
IFE <$$USE-1>,<$0pB [$ZQUSNR B(A)1]-$$RELO($$BAS)>
IFE <$$USE-2>,<P1PRINTX INVALID USE1p OF FIELD>
$$USE==2
"Dgfl uG.= pH'
$%W==0
phIFNB <B>,<$%W==0q+<B>>
IFE <$$USq(E-3>,<LI $$$VAL
qH$$USE==1>
IFE $$qhUSE,<$F $%W(A)>
IFE <$$USE-1>,<$r(B [$ZQUSTM B(A)rH]-$$RELO($$BAS)>
IFE <$$USE-2>,<PsRINTX INVALID USEs( OF FIELD>
$$USE==2cJ-LzPuG.>9 Y8%Z
IFE <%OPY%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7Z(75777>
IFE <%OP%Z-2>,<$$E(<ILL SWIH(TCH NAME>)>
IFGEX( <%OP%-3>,<IFB <XHA>,<%OP1 2000>
ZhIFNB <A>,<%OP1 [A,2000>>
IFL<%OP[(%-2>,<%OP3 0(A)>
%OP%==2ID USEuG.I6 vh'H
$%W==0
wIFNB <B>,<$%W==0w(+<B>>
IFE <$$USwHE-3>,<LI $$$VAL
wh$$USE==1>
IFE $$xUSE,<$F $%W(A)>
IFE <$$USE-1>,<$xHR $%W(A)>
IFE <xh$$USE-2>,<PRINTX yOPD-OPR NESTING ERROR>
$$USE==2uG.K5 m&
$%W==0
m8IFNB <B>,<$%W==0mX+<B>>
IFE <$$USmxE-3>,<LI $$$VAL
n$$USE==1>
IFE $$n8USE,<$F $%W(A)>
IFE <$$USE-1>,<$nxB [$ZQUTMK B(A)o]-$$RELO($$BAS)>
IFE <$$USE-2>,<PoXRINTX INVALID USEox OF FIELD>
$$USE==2c:
0PuG.L V%@
IFE <%OPUx%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7W73777>
IFE <%OP%Vh-2>,<$$E(<ILL SWIHHTCH NAME>)>
IFGEU <%OP%-3>,<IFB <U(A>,<%OP1 4000>
WHIFNB <A>,<%OP1 WhA,4000>>
IFL<%OPX%-2>,<%OP3 0(A)>
%OP%==2ID USEuG.N8 c&.
$%W==0
bxIFNB <B>,<$%W==0d(+<B>>
IFE <$$USdE-3>,<LI $$$VAL
Gh$$USE==1>
IFE $$b(USE,<$F $%W(A)>
IFE <$$USE-1>,<$dhB [$ZQUTYP B(A)e]-$$RELO($$BAS)>
IFE <$$USE-2>,<PeHRINTX INVALID USEeh OF FIELD>
$$USE==2c,l`PAuG.[Y 50+3$%W==4
IF5PNB <B>,<$%W==4+<5pB>
>
IFE <$$US6E-3>,<LI $$$VAL
60$$USE==1>
$F $%W(A) P
ggD uG.\r x([
IFE <%OP %-1>,<%OP1 400000 8>
IFE %OP%,<%OP1 X 377777>
IFE <%O xP%-2>,<$$E(<ILL S
WITCH NAME>)>
IF
8GE <%OP%-3>,<IFB
X<A>,<%OP1 400000
x>
IFNB <A>,<%OP1 A,400000>>
I8FL<%OP%-2>,<%OP3 2(A)>
%OP%==2uG/(@ )#
$%W==2
8IFNB <B>,<$%W==2X+<B>>
IFE <$$USxE-3>,<LI $$$VAL
$$USE==1>
IFE $$8USE,<$F $%W(A)>
IFE <$$USE-1>,<$xR $%W(A)>
IFE <$$USE-2>,<PRINTX 8OPD-OPR NESTING ERROR>
$$USE==2uG/* sx'1
$%W==0
tIFNB <B>,<$%W==0t8+<B>>
IFE <$$UStXE-3>,<LI $$$VAL
tx$$USE==1>
IFE $$uUSE,<$F $%W(A)>
IFE <$$USE-1>,<$uXR $%W(A)>
IFE <ux$$USE-2>,<PRINTX vOPD-OPR NESTING ERROR>
$$USE==2uG/,:
H(u
$%W==2
(IFNB><B>,<$%W==2
IFE3<$$US$$$VAL
G$$USE==1>
IFE $$XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$L $%W(A)>
IFE <8$$USE-2>,<PRINTX XOPD-OPR NESTING ERROR>
$$USE==2$` p$K` n${t t%@ h& D`&
PURGE ABC
$$LA==0&@ E *
IF2,<PURGEOAB>)>
IFDEF O@AB,<IF2,<PURGE AB>>W1
&8 r&J j&K` v&z l`P <P =P ABC$Y@P ( D"IF1,<PRINTD X *** ERROR: A ***>,15,16,17,18D[ @v
.CREF
D`EFINE A=<%.%B(XPDP)>
.XCREFp] pPURGE %.%ATx_`P bP bP b P b@P b`P bP b P b@P b`P bP b P b P b0P b@P bPP b`P bpP cP cP dPP d`P f@P [ ~0.XE$\h Ah$
IFGE ^j@D17-^D3,<
IFB <BhC>,<DEFINE YPOTRCch(ACC)<
IFE <%OP%C(-1>,<%OP1 B>
IF]0E %OP%,<%OP1 A>
IFE <%OP%-2>,<$$VxE(<ILL SWITCH NAME>)>
IFGE <%OP%-P@3>,<IFB <ACC>,<%O2HP1 B>
IFNB <ACJC>,<%OP1 ACC,B>>
IFL<%OP%-2>,<%OCPP3 Y3OPEN(ACC)>
x%OP%==2>>
IFNB <=C>,<DEFINE YPOTR}C=<
IFE <%OP%-1>7,<%OP1 B>
IFE %/pOP%,<%OP1 A>
IF0hE <%OP%-2>,<$$E(<)0ILL SWITCH NAME>)*P>
IFGE <%OP%-3>,"x<%OP1 C,B>
IFL$8 <%OP%-2>,<%OP3 Y83OPEN(C)>
%OP%= =2>>>
IFL ^D17(-^D3,<
IFB <>,<DEFINE YPOTRC(ACC)<
IFE %OP%-1,<%O`(P2 B>
IFE %OP%,]<%OP2 A>
IFE <%YhOP%-2>,<$$E(<ILL VHSWITCH NAME>)>
IS(FGE <%OP%-3>,<IFBP <ACC>,<%OP2 B>
IFNB <ACC>,<%OP=(2 ACC,B>>
IFL <=H%OP%-2>,<%OP3 Y3O=hPEN(ACC)>
%OP%==>2>>
IFNB <>,<DEF>(INE YPOTRC=<
IFE>H <%OP%-1>,<%OP2 >hB>
IFE %OP%,<%OP[2 A>
IFE <%OP%-Zh2>,<$$E(<ILL SWIT?hCH NAME>)>
IFGE @<%OP%-3>,<%OP2 C@(,B>
IFL <%OP%-2@H>,<%OP3 Y3OPEN(CA)>
%OP%==2>>
>
>
%OP%==2>>
j$[Q H j$[ H j$]Q B
j$] B
jD(VQ jD(V jD)Q ., jD) ., jD)<Q jD)< jD*rQ jD*r jD+Q jD+ jD+3Q
jD+3
jD+QQ jD+Q jD+YQ 8 jD+Y 8 jD,Q jD, jD,qQ jD,q jD,zQ jD,z jD,}Q
jD,}
jD-7Q jD-7 jD-8Q jD-8 jD-YQ ( jD-Y ( jD.Q $H jD. $H jD.RQ H jD.R H jD.TQ H jD.T H jD.XQ $H jD.X $H jDXWQ $ jDXW $ jDYQ H jDY H jDY1Q > jDY1 > jDYTQ 0 jDYT 0 jD[Q *( jD[ *( jD[Q H jD[ H jD[WQ 0 jD[W 0 jD[tQ $0 jD[t $0 jD\wQ $ jD\w $ jD]Q <
jD] <
jD]7Q jD]7 kTQ H kT H kQ $H k $H k7Q k7 kYQ 4 kY 4 kY<Q > kY< > kYTQ $H kYT $H kYqQ > kYq > kYvQ @ kYv @ kZQ , kZ , kZ1Q : kZ1 : kZ7Q H kZ7 H kZ7Q < kZ7 < kZ9Q < kZ9 < kZ;Q F kZ; F kZwQ $
kZw $
k[Q < k[ < k[Q $0 k[ $0 k[Q H k[ H k[Q : k[ : k[7Q *
k[7 *
k[PQ B
k[P B
k[WQ * k[W * k[YQ < k[Y < k\Q @ k\ @ k\Q 6 k\ 6 k\4Q $H k\4 8 k\wQ $ k\w $ k\zQ $, k\z $, k\|Q 8 k\| 8 k]Q H k] H k]Q $( k] $( k]Q : k] : k]Q 0 k] 0 k]7Q k]7 k]9Q F k]9 F k^QQ H k^Q H k^TQ H k^T H k^XQ $H k^X $H
(Q(P
+8
H@h
IRP A,<
h
OPDEF GOTOA [
OPDEF BRANA [JUMPA]>J;@ $X`@ 6I9@ :t@@
(<@ 3 @ :
J`@
,;v@
,ky@ ;
,xv@
,z7@ ;
,|@
,|@
}{@ 3
~[R@@+s@@D@@@4dy@@4}Kw@@<}[t@@<}[0@@}h`@@,}jt@@-}k@@-}l@@@.}m@@.}mR@@4)@@4IF@@,-3@!-H<@=-Kx@-kz@.@N`@x@!~@@&v@@ 5'@ +-\@ (2
)6@ A2@ /2.<`@ 2}i`@ 63@ 06Mm9@ 6|91@ 7-M@ :
:>-@ :d\y@ :}i @ 0:~@@ :~I<@ 1:~J@ )?@@ )?@
?% 9@R*B)7@RB+z@ B[R@ *B@ Bf\`@ B~p@ Cy@ BCx`@ 6C}@ BC.)r@ +G,@ 8O=@ R/
Rx@ER}i2@SY @1V$Y@@2VuZ7@VvJ6@EWM9@ZP jD)P jD)<P jD*rP jD+P jD+3P jD+QP jD+YP jD,P jD,qP
jD,zP
jD,}P jD-7P jD-8P jD-YP jD.P jD.RP jD.TP jD.XP jDXWP jDYP jDY1P jDYTP jD[P jD[P jD[WP jD[tP jD\wP jD]P jD]7P kTP kP k7P kYP kY<P kYTP kYqP kYvP kZP kZ1P kZ7P kZ7P kZ9P kZ;P kZwP k[P k[P k[P k[P k[7P k[PP k[WP k[YP k\P k\P k\4P k\wP k\zP k\|P k]P k]P k]P k]P k]7P k]9P k^QP k^TP k^XP S@P >}{woP