Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0135/comp/simrpa.unv
There are 6 other files named simrpa.unv in the archive. Click here to see a list.
x
, C@ P C@t{@ C@tk{@ C@u@ C@un@ C@v)7@ $ CO \Z XD GeK{ p0w SETZM YDSC SW(XLOW),|P G,i9 ppw AOS YDSCSW (XLOW)knXP GtV q0w SOS YDSCSW (XLOW)k KVP G~(T qpw HRROS YDSC SW(XLOW)NXP HMy a 6
IFG <IOa(DF-400K>,<EXTERN aHIODF%S,IODF%I,IODahF%M,IODF%Y,IODF%Db>
IFNB <IOFI>,<
IF1,<IFNDEF .IObHFI,<EXTERN .IOFI>bh>
Z .IOFI
>
cIFB <IOFI>,<Z>
c(BYTE (1)(3)QIOFI(cH1)1(13)0(18)IODF%chS ;[63]
Z IODF%dI
XWD -2,1
.d(IODF:: XWD QDFLNGdH,IODF%M
XWD QFdhIEBL,IODF%Y
XWeD ,QFIDLE
BYTe(E (1)1(17)0(18)IOeHDF%D
IFNB <Z>,eh<
Z
>
IFG <fIODF-400K>,<
IFNf( <<.-.IODF>-<IODFfH%E-IODF>>,<CFAIL fhINCONSIST. PROT. FOR IODF>
> HMyT 4IP
IFG <IO4hFI-400K>,<EXTERN 5IOFI%S,IOFI%I,IOF5(I%M,IOFI%Y,IOFI%D5H>
IFNB <>,<
IF5h1,<IFNDEF .,<EXTE6RN .>>
Z .
>
6( IFB <>,<Z>
BYT6HE (1)(3)QIOFI(1)16h(13)0(18)IOFI%S ;7[63]
Z IOFI%I 7(
XWD -2,
.IOFI7H:: XWD QFILNG,IOF7hI%M
XWD QFIEBL8,IOFI%Y
XWD 1,8(QFIDLE
BYTE (8H1)1(17)0(18)IOFI%8hD
IFNB <PTX>,<9
PTX
>
IFG 9(<IOFI-400K>,<
IF9HN <<.-.IOFI>-<IOF9hI%E-IOFI>>,<CFAIL: INCONSIST. PROT. FOR IOFI>
> HMz7 ?) (
IFG <IO?HIN-400K>,<EXTERN ?hIOIN%S,IOIN%I,IOI@N%M,IOIN%Y,IOIN%D@(>
IFNB <IOFI>,<
IF1,<IFNDEF .IO@hFI,<EXTERN .IOFI>A>
Z .IOFI
>
A(IFB <IOFI>,<Z>
AHBYTE (1)(3)QIOFI(Ah1)1(13)0(18)IOIN%BS ;[63]
Z IOIN%B(I
XWD -2,1
.BHIOIN:: XWD QIFLNGBh,IOIN%M
XWD QFCIEBL,IOIN%Y
XWC(D ,QFIDLE
BYTCHE (1)1(17)0(18)IOChIN%D
IFNB <Z>,D<
Z
>
IFG <D(IOIN-400K>,<
IFNDH <<.-.IOIN>-<IOINDh%E-IOIN>>,<CFAIL EINCONSIST. PROT. FOR IOIN>
> HM{z JI
IFG <IOJhOU-400K>,<EXTERN KIOOU%S,IOOU%I,IOOK(U%M,IOOU%Y,IOOU%DKH>
IFNB <IOFI>,<
IF1,<IFNDEF .IOLFI,<EXTERN .IOFI>L(>
Z .IOFI
>
LHIFB <IOFI>,<Z>
LhBYTE (1)(3)QIOFI(M1)1(13)0(18)IOOU%M(S ;[63]
Z IOOU%MHI
XWD -2,1
.MhIOOU:: XWD QOFLNGN,IOOU%M
XWD QFN(IEBL,IOOU%Y
XWNHD ,QFIDLE
BYTNhE (1)1(17)0(18)IOOOU%D
IFNB <Z>,O(<
Z
>
IFG <OHIOOU-400K>,<
IFNOh <<.-.IOOU>-<IOOUP%E-IOOU>>,<CFAIL P(INCONSIST. PROT. FOR IOOU>
>WHM| Ui \
IFG <IOVPF-400K>,<EXTERN V(IOPF%S,IOPF%I,IOPVHF%M,IOPF%Y,IOPF%DVh>
IFNB <IOOU>,<
IF1,<IFNDEF .IOW(OU,<EXTERN .IOOU>WH>
Z .IOOU
>
WhIFB <IOOU>,<Z>
XBYTE (1)(3)QIOFI(X(1)1(13)0(18)IOPF%XHS ;[63]
Z IOPF%XhI
XWD -2,2
.YIOPF:: XWD QPFLNGY(,IOPF%M
XWD QFYHIEBL,IOPF%Y
XWYhD ,QFIDLE
BYTZE (1)1(17)0(18)IOZ(PF%D
IFNB <Z>,ZH<
Z
>
IFG <ZhIOPF-400K>,<
IFN[ <<.-.IOPF>-<IOPF[(%E-IOPF>>,<CFAIL [HINCONSIST. PROT. FOR IOPF>
>@H : z
IFG <SSz8HD-400K>,<EXTERN zXSSHD%S,SSHD%I,SSHzxD%M,SSHD%Y,SSHD%D{>
IFNB <SSLG>,<
IF1,<IFNDEF .SS{XLG,<EXTERN .SSLG>{x>
Z .SSLG
>
|IFB <SSLG>,<Z>
|8BYTE (1)(3)QSSLG(|X1)0(13)0(18)SSHD%|xS ;[63]
Z SSHD%}I
XWD .SIMLV,}81
.SSHD:: XWD ZL}XG%S,SSHD%M
XWD}x .SIMLV-1,SSHD%Y ~
XWD ,3+.SIMVL ~8
BYTE (1)(17)0~X(18)SSHD%D
IFN~xB <>,<
>
IFG <SSHD-400K>,<
IFN <<.-.SSHD>-<XSSHD%E-SSHD>>,<CFxAIL INCONSIST. PR OT. FOR SSHD>
> 9H ; by'
IFG <SSbYLG-400K>,<EXTERN b9SSLG%S,SSLG%I,SSLpG%M,SSLG%Y,SSLG%Dp8>
IFNB <>,<
IFpX1,<IFNDEF .,<EXTEpxRN .>>
Z .
>
q IFB <>,<Z>
BYTq8E (1)(3)QSSLG(1)0qX(13)0(18)SSLG%S ;qx[63]
Z SSLG%I r
XWD .SIMLV,0
r8.SSLG:: XWD ZLG%SrX,SSLG%M
XWD .SrxIMLV-1,SSLG%Y
sXWD ,3+.SIMVL
s8 BYTE (1)(17)0(18sX)SSLG%D
IFNB <sx>,<
>
IFG t<SSLG-400K>,<
IFt8N <<.-.SSLG>-<SSLtXG%E-SSLG>>,<CFAILtx INCONSIST. PROT. FOR SSLG>
>z`H ; Y]
IFG <SSxLK-400K>,<EXTERN SSLK%S,SSLK%I,SSL8K%M,SSLK%Y,SSLK%DX>
IFNB <SSLG>,<
IF1,<IFNDEF .SSLG,<EXTERN .SSLG>8>
Z .SSLG
>
XIFB <SSLG>,<Z>
xBYTE (1)(3)QSSLG(1)0(13)0(18)SSLK%8S ;[63]
Z SSLK%XI
XWD .SIMLV,x1
.SSLK:: XWD ZL G%S,SSLK%M
XWD 8 .SIMLV-1,SSLK%Y X
XWD ,3+.SIMVL x
BYTE (1)(17)0
(18)SSLK%D
IFN
8B <>,<
>
I
XFG <SSLK-400K>,<
x
IFN <<.-.SSLK>-< SSLK%E-SSLK>>,<CF 8AIL INCONSIST. PR XOT. FOR SSLK>
>
fuB5L
MH <z ey[
IFG <SSfST-400K>,<EXTERN f8SSST%S,SSST%I,SSSfXT%M,SSST%Y,SSST%Dfx>
IFNB <>,<
IFg1,<IFNDEF .,<EXTEg8RN .>>
Z .
>
gX IFB <>,<Z>
BYTgxE (1)1(3)(1)1(13)h0(18)SSST%S ;[63]h8
Z SSST%I
XhXWD 0,0
.SSST:: XhxWD ZBI%S,SSST%M
XWD .SIMLV,SSSTi8%Y
XWD ,3+.SIMiXVL-1
BYTE (1)ix(17)0(18)SSST%D
IFNB <>,<
j8 >
IFG <SSST-400jXK>,<
IFN <<.-.SSjxST>-<SSST%E-SSST>k>,<CFAIL INCONSISk8T. PROT. FOR SSST >
>KK;r |jH [0 'yo
IFG <SU(MA-400K>,<EXTERN (8SUMA%S,SUMA%I,SUM(XA%M,SUMA%Y,SUMA%D(x>
IFNB <SUPS>,<
IF1,<IFNDEF .SU)8PS,<EXTERN .SUPS>)X>
Z .SUPS
>
)xIFB <SUPS>,<Z>
*BYTE (1)(3)QSUPS(*81)0(13)0(18)SUMA%*XS ;[63]
Z SUMA%*xI
XWD .SIMLV,+3
.SUMA:: XWD ZP+8S%S,SUMA%M
XWD+X .SIMLV-1,SUMA%Y +x
XWD ,3+.SIMVL ,
BYTE (1)(17)0,8(18)SUMA%D
IFN,XB <>,<
>
I,xFG <SUMA-400K>,<
IFN <<.-.SUMA>-<-8SUMA%E-SUMA>>,<CF-XAIL INCONSIST. PR-xOT. FOR SUMA>
> @ c Y@ H \ d
IFG <SUcYPS-400K>,<EXTERN c9SUPS%S,SUPS%I,SUP S%M,SUPS%Y,SUPS%D 8>
IFNB <SSLK>,<
IF1,<IFNDEF .SS xLK,<EXTERN .SSLK> >
Z .SSLK
>
8IFB <SSLK>,<Z>
XBYTE (1)(3)QSUPS( x1)0(13)0(18)SUPS% S ;[63]
Z SUPS% 8I
XWD .SIMLV, X2
.SUPS:: XWD ZP xS%S,SUPS%M
XWD .SIMLV-1,SUPS%Y 8
XWD ,3+.SIMVL X
BYTE (1)(17)0 x(18)SUPS%D
IFN!B <>,<
>
I!8FG <SUPS-400K>,<
IFN <<.-.SUPS>-<!xSUPS%E-SUPS>>,<CF"AIL INCONSIST. PR"8OT. FOR SUPS>
> % j682Q 5H \t ?
IFG <SU8SI-400K>,<EXTERN XSUSI%S,SUSI%I,SUSxI%M,SUSI%Y,SUSI%D>
IFNB <SSST>,<
IF1,<IFNDEF .SSXST,<EXTERN .SSST>x>
Z .SSST
>
IFB <SSST>,<Z>
8BYTE (1)1(3)QSUSIX(1)1(13)0(18)SUSIx%S ;[63]
Z SUSI%I
XWD 0,1
.8SUSI:: XWD ZSU%S,XSUSI%M
XWD .SIxMLV,SUSI%Y
XWD ,3+.SIMVL-1
8BYTE (1)(17)0(18)XSUSI%D
IFNB <>x,<
>
IFG <SUSI-400K>,<
IFN8 <<.-.SUSI>-<SUSIX%E-SUSI>>,<CFAIL xINCONSIST. PROT. FOR SUSI>
> Id y O9I
DEFINE DOX%A<
IFG <A-40Ox0K>,<EXTERN A%S,PA%I,A%M,A%Y,AP8%D>
IFNB <B>,<
IF1,<IFNDEF .BPx,<EXTERN .B>>
QZ .B
>
IFB <Q8B>,<Z>
BYTE (1)QXL(3)C(1)D(13)0Qx(18)A%S ;[63]
RZ A%I
XWD HR8,E
.A:: XWD FRX,A%M
XWD I,RxA%Y
XWD J,G S
BYTE (1)M(17S8)0(18)A%D
IFNSXB <K>,<
K
Sx>
IFG <A-400K>,T<
IFN <<.-.A>-<T8A%E-A>>,<CFAIL TXINCONSIST. PROT. TxFOR A>
>>
DEFIUNE E%A<
IFNB <U8B>,<
IF1,<IFNDEUXF .B,<EXTERN .BUx>>
Z .B
>
IVFB <B>,<Z>
BYTV8E (1)L(3)C(1)DVX(13)0(18)0
Z 0Vx
XWD H,E
.WA:: XWD F,0
XW8WD I,0
XWD JWX,G
BYTE (1)MWx(17)0(18)0
IFNXB <K>,<
K
X8>
IFG <A-400K>,XX<
IFN <<.-.A>-<XxA%E-A>>,<CFAIL YINCONSIST. PROT. FOR A>
>> I x{
$$DEF==0
IFE <^DC-^D36>8,<DEFINE A(XB,O)X=
<$%W==B
IFNBx <O>,<$%W==B+<O>
>
IFE <$$USE-38>,<LI $$$VAL
$$UXSE==1>
$F $%W(XBx)>
$$DEF==1>
IFE <^DC-^D18>,<IF8E <^DD-^D17>,
<X
DEFINE A(XB,O)x=<
$%W==B
IFNB <O>,<$%W==B+<O>8>
IFE <$$USE-3>,X<LI $$$VAL
$$USEx==1>
IFE $$USE,<$F $%W(XB)>
IFE 8<$$USE-1>,<$L $%WX(XB)>
IFE <$$USEx-2>,<PRINTX OPD-OPR NESTING ERROR>8
$$USE==2>
$$DEXF==1>
IFE <^DD-x^D35>,
<DEFINE A(XB,O)=<
$%W==8B
IFNB <O>,<$%W=X=B+<O>>
IFE <$$xUSE-3>,<LI $$$VAL
$$USE==1>
IFE 8$$USE,<$F $%W(XB) X>
IFE <$$USE-1>, x<$R $%W(XB)>
IFE
<$$USE-2>,<PRINT
8X OPD-OPR NESTING
X ERROR>
$$USE==2
x>
$$DEF==1>
>
IFE $$DEF,<
DEFI 8NE A(XB,O)=<
$% XW==B
IFNB <O>,< x$%W==B+<O>>
IFE
<$$USE-3>,<LI $$
8$VAL
$$USE==1>
XIFE $$USE,<$F $%W
x(XB)>
IFE><$$USEABO(XB
IFEI<$$USE-2>,<USE OF FIELD>
$$US8E==2>
$$DEF==1>
OPDEF $A [POINTx C,B,D]
$A==$A
%A==^DD
I8FE <^DC-1>,<DSW (A,B,D)>
IO8
IFL <^ 8D36-^DC>,<$$E(<T XOO BIG BIT NO>)>
IFE ^D36-^DC,<
IFB <D>,<DEFIN 8E A(ACC)=<
IFE X <%OP%-2>,<$$E(<I xLL SWITCH NAME>)>
IFN <%OP%-2>,< 8
IFE <%OP%-3>, X<%OP3 777777>
xIFE <%OP%-4>,<%OP 3>
IFL <%OP%-2 8>,<%OP4 B(ACC)>
%OP%==2>>>
xIFNB <D>,<DEFINE A=<
IFE <%OP% 8-2>,<$$E(<ILL SWI XTCH NAME>)>
IFN x <%OP%-2>,<
IF!E <%OP%-3>,<%OP3 !8D,777777>
IFE!X <%OP%-4>,<%OP3 !xD,>
"IFL <%OP%-"2>,<%OP4 B(D)>
%OP%==2>>"X>>
IFGE ^D35-^D"xC,<
VA==1BC
#IFE ^DC,<
CA=#8=377777777777>
I#XFN ^DC,<
CA==#x-1*VA-1>
IFGE ^$D17-^DC,<
CA=$8=CA_-^D18
VA=$X=VA_-^D18>
DE$xFINE $$TES1(X,Y,Z%)<
IFGE ^D17-^%8DC,<
IFB <Z>,<D%XEFINE A(ACC)<
I%xFE <%OP%-1>,<%OP1& Y>
IFE %OP%,<%O&8P1 X>
IFE <%OP%-&X2>,<$$E(<ILL SWIT&xCH NAME>)>
IFGE '<%OP%-3>,<IFB <AC'8C>,<%OP1 Y>
IFN'XB <ACC>,<%OP1 ACC'x,Y>>
IFL<%OP%-2>(,<%OP3 B(ACC)>
(8%OP%==2>>
IFNB <(XZ>,<DEFINE A=<
(xIFE <%OP%-1>,<%OP)1 Y>
IFE %OP%,<%)8OP1 X>
IFE <%OP%)X-2>,<$$E(<ILL SWI)xTCH NAME>)>
IFGE* <%OP%-3>,<%OP1 Z*8,Y>
IFL <%OP%-2>*X,<%OP3 B(Z)>
%O*xP%==2>>>
IFL ^+D17-^DC,<
IFB <+8D>,<DEFINE A(AC+XC)<
IFE %OP%-1,<+x%OP2 Y>
IFE %OP%,,<%OP2 X>
IFE <%,8OP%-2>,<$$E(<ILL ,XSWITCH NAME>)>
I,xFGE <%OP%-3>,<IFB- <ACC>,<%OP2 Y>
-8 IFNB <ACC>,<%OP2-X ACC,Y>>
IFL <%O-xP%-2>,<%OP3 B(AC.C)>
%OP%==2>>
I.8FNB <D>,<DEFINE .XA=<
IFE <%OP%-1.x>,<%OP2 Y>
IFE %/OP%,<%OP2 X>
IFE/8 <%OP%-2>,<$$E(<I/XLL SWITCH NAME>)>/x
IFGE <%OP%-3>,<0%OP2 Z,Y>
IFL <%08OP%-2>,<%OP3 B(Z0X)>
%OP%==2>>
>0x
>
$$TES1(\CA,1\VA,D)
PURGE VA,CA
>
Ik @ [Y
S==0
[xIFNB <B>,<S==B>\
K==QSIMPLE
I\8FNB <E>,<K==E>
M==QDECLARED
\xIFNB <D>,<M==D>]
N==0
IRPC A]9,<N==N+1>
IFG <]XN-^D12>,<PRINTX ]xA too long>
Q==^0
IFG <N-6>,<Q=^8=1B0>
Q==Q+<S>B^X<%ZSDSPI>+<C>B<%^xZSDTYP>+<M>B<%ZSD_MOD>+<K>B<%ZSDKND_8>+F
EXP Q
SI_XXBIT/A/
IFE <_xC-QREF>,<
IFB <`G>,<PRINTX REF q`8uantity should ha`Xve qualif>
Z G
> 9 j5 Ik Xv YYY
SIXBIT/YxA/
N==0
IRPCZ A,<N==N+1>
IFZ8L <N-7>,<Z>
IFNZXB <C>,<N==C>
ZxIFB <C>,<N==.+1>[
B%Y:: <QSYSCL> B<%ZSMTYP>+N
#JMy g) ^
IFNB <IOgHFI>,<
IF1,<IFNDghEF .IOFI,<EXTERN h.IOFI>>
Z .IOFIh(
>
IFB <IOFI>,hH<Z>
BYTE (1)(3)hhQIOFI(1)1(13)0(18i)0
Z 0
XWD i(-2,1
.IODF:: XWDiH QDFLNG,0
XWD ihQFIEBL,0
XWD ,jQFIDLE
BYTE (1j()1(17)0(18)0
IjHFNB <Z>,<
Z
jh>
IFG <IODF-400Kk>,<
IFN <<.-.IODk(F>-<IODF%E-IODF>>kH,<CFAIL INCONSISTkh. PROT. FOR IODF>
>|vaS@ Q JMyT :Iv
IFNB <>,:h<
IF1,<IFNDEF .;,<EXTERN .>>
Z ;(.
>
IFB <>,<Z>;H
BYTE (1)(3)QIO;hFI(1)1(13)0(18)0 <
Z 0
XWD -2,<(
.IOFI:: XWD QFI<HLNG,0
XWD QFIE<hBL,0
XWD 1,QFI=DLE
BYTE (1)1(=(17)0(18)0
IFNB=H <PTX>,<
PTX
=h >
IFG <IOFI-400>K>,<
IFN <<.-.IO>(FI>-<IOFI%E-IOFI>>H>,<CFAIL INCONSIS>hT. PROT. FOR IOFI >
>iu ,H: KJMz7 EI P
IFNB <IOEhFI>,<
IF1,<IFNDFEF .IOFI,<EXTERN F(.IOFI>>
Z .IOFIFH
>
IFB <IOFI>,Fh<Z>
BYTE (1)(3)GQIOFI(1)1(13)0(18G()0
Z 0
XWD GH-2,1
.IOIN:: XWDGh QIFLNG,0
XWD HQFIEBL,0
XWD ,H(QFIDLE
BYTE (1HH)1(17)0(18)0
IHhFNB <Z>,<
Z
I>
IFG <IOIN-400KI(>,<
IFN <<.-.IOIIHN>-<IOIN%E-IOIN>>Ih,<CFAIL INCONSISTJ. PROT. FOR IOIN>
>{u M{z Pi *
IFNB <IOQFI>,<
IF1,<IFNDQ(EF .IOFI,<EXTERN QH.IOFI>>
Z .IOFIQh
>
IFB <IOFI>,R<Z>
BYTE (1)(3)R(QIOFI(1)1(13)0(18RH)0
Z 0
XWD Rh-2,1
.IOOU:: XWDS QOFLNG,0
XWD S(QFIEBL,0
XWD ,SHQFIDLE
BYTE (1Sh)1(17)0(18)0
ITFNB <Z>,<
Z
T(>
IFG <IOOU-400KTH>,<
IFN <<.-.IOOThU>-<IOOU%E-IOOU>>U,<CFAIL INCONSISTU(. PROT. FOR IOOU>
>H j5t HJM| \
IFNB <IO\(OU>,<
IF1,<IFND\HEF .IOOU,<EXTERN \h.IOOU>>
Z .IOOU]
>
IFB <IOOU>,](<Z>
BYTE (1)(3)]HQIOFI(1)1(13)0(18]h)0
Z 0
XWD ^-2,2
.IOPF:: XWD^( QPFLNG,0
XWD ^HQFIEBL,0
XWD ,^hQFIDLE
BYTE (1_)1(17)0(18)0
I_(FNB <Z>,<
Z
_H>
IFG <IOPF-400K_h>,<
IFN <<.-.IOP`F>-<IOPF%E-IOPF>>`(,<CFAIL INCONSIST`H. PROT. FOR IOPF>
> j5 | J : Y)
IFNB <SS xLG>,<
IF1,<IFNDEF .SSLG,<EXTERN 8.SSLG>>
Z .SSLGX
>
IFB <SSLG>,x<Z>
BYTE (1)(3)QSSLG(1)0(13)0(188)0
Z 0
XWD X.SIMLV,1
.SSHD::x XWD ZLG%S,0
XWD .SIMLV-1,0
8XWD ,3+.SIMVL
XBYTE (1)(17)0(18)x0
IFNB <>,<
>
IFG <SSHD-8400K>,<
IFN <<.-X.SSHD>-<SSHD%E-SSxHD>>,<CFAIL INCONSIST. PROT. FOR S SHD>
>Mm6 J ; u9M
IFNB <>,uX<
IF1,<IFNDEF .ux,<EXTERN .>>
Z v.
>
IFB <>,<Z>v8
BYTE (1)(3)QSSvXLG(1)0(13)0(18)0 vx
Z 0
XWD .SIwMLV,0
.SSLG:: XWw8D ZLG%S,0
XWD wX.SIMLV-1,0
XWDwx ,3+.SIMVL
BYTxE (1)(17)0(18)0
IFNB <>,<
xX >
IFG <SSLG-400xxK>,<
IFN <<.-.SSyLG>-<SSLG%E-SSLG>y8>,<CFAIL INCONSISyXT. PROT. FOR SSLG >
>q `@ J ;
IFNB <SS
8LG>,<
IF1,<IFND
XEF .SSLG,<EXTERN
x.SSLG>>
Z .SSLG
>
IFB <SSLG>,
BYTE (1)(3))0(18
Z 0
XWD .SIMLV,1
.SSLK::8 XWD ZLG%S,0
XXWD .SIMLV-1,0
xXWD ,3+.SIMVL
BYTE (1)(17)0(18)80
IFNB <>,<
X
>
IFG <SSLK-x400K>,<
IFN <<.-.SSLK>-<SSLK%E-SS8LK>>,<CFAIL INCONXSIST. PROT. FOR S SLK>
>\t J <z ky
IFNB <>,l<
IF1,<IFNDEF .l8,<EXTERN .>>
Z lX.
>
IFB <>,<Z>lx
BYTE (1)1(3)(1m)1(13)0(18)0
Zm8 0
XWD 0,0
.SmXSST:: XWD ZBI%S,0mx
XWD .SIMLV,0 n
XWD ,3+.SIMVL-n81
BYTE (1)(17)nX0(18)0
IFNB <>nx,<
>
IFG <oSSST-400K>,<
IFNo8 <<.-.SSST>-<SSSToX%E-SSST>>,<CFAIL oxINCONSIST. PROT. FOR SSST>
> GJ [0 .9
IFNB <SU.XPS>,<
IF1,<IFND.xEF .SUPS,<EXTERN /.SUPS>>
Z .SUPS/8
>
IFB <SUPS>,/X<Z>
BYTE (1)(3)/xQSUPS(1)0(13)0(180)0
Z 0
XWD 08.SIMLV,3
.SUMA::0X XWD ZPS%S,0
X0xWD .SIMLV-1,0
1XWD ,3+.SIMVL
18BYTE (1)(17)0(18)1X0
IFNB <>,<
1x
>
IFG <SUMA-2400K>,<
IFN <<.-28.SUMA>-<SUMA%E-SU2XMA>>,<CFAIL INCON2xSIST. PROT. FOR S UMA>
> [W@ 1J \ "y;
IFNB <SS#LK>,<
IF1,<IFND#8EF .SSLK,<EXTERN #X.SSLK>>
Z .SSLK#x
>
IFB <SSLK>,$<Z>
BYTE (1)(3)$8QSUPS(1)0(13)0(18$X)0
Z 0
XWD $x.SIMLV,2
.SUPS::% XWD ZPS%S,0
X%8WD .SIMLV-1,0
%XXWD ,3+.SIMVL
%xBYTE (1)(17)0(18)&0
IFNB <>,<
&8
>
IFG <SUPS-&X400K>,<
IFN <<.-&x.SUPS>-<SUPS%E-SU'PS>>,<CFAIL INCON'8SIST. PROT. FOR S UPS>
>6<zQ ~?J \t 9g
IFNB <SSXST>,<
IF1,<IFNDxEF .SSST,<EXTERN .SSST>>
Z .SSST8
>
IFB <SSST>,X<Z>
BYTE (1)1(3x)QSUSI(1)1(13)0(18)0
Z 0
XWD8 0,1
.SUSI:: XWDX ZSU%S,0
XWD .xSIMLV,0
XWD ,3+.SIMVL-1
BYTE8 (1)(17)0(18)0
X IFNB <>,<
x>
IFG <SUSI-400K >,<
IFN <<.-.SUS 8I>-<SUSI%E-SUSI>> X,<CFAIL INCONSIST x. PROT. FOR SUSI>
> j5ZQ qKH, P KH-J1P KK;r M@|r ..N==0
M`IFNB <A>,<..N=AN >
IRP B,<
N QBENO=..N
>
PURGE ..N
KKX1 hPvY IRP A,<
hp DEFINE AERR(N,iMSG)<
RTSERR i0<N+QAENO>
IFiPN QDEBUG,<NOP [ASipCIZ/
MSG
/]
>j>
DEFINE Aj0ERC(C,N,MSG)<
jP RTSERR <C>,<N+QjpAENO>
IFN QDEkBUG,<NOP [ASCIZ/
MSG
/]
>>> MJ,P 6 S6)2 7 Su{R gPv= CAIN A,NO NE Y?< dpv1
IFNB <eA>,<XLOW=A>
epIFB <A>,<XLOW=XfIAC>
HRRZ XLOW ,.JBOPS
kN:7]>h6 r0w
LOWADRrP
L A,YDSIAR(X LOW)
] P ]?$lR 7 _69: (z <$A>&7777 77 aJ|:7 NAw
QOCIN== @1
QOCIO== 2
QIOU9== 4
QIONF= 10
4QQOCEP= 20
QALL=4p QIO+QIONF+QOCEP+5QOCIN+QOCIO
QRT50SYM= 777
Q==QA 5P
DEFINE X(N,E,D,5pU,O)<
%U==0
IR6P U,<%U==%U+Q'U>
IFN <QRTSYM-Q'D>6P,<
IFN <Q&%U>,6p<IFE <<Q'D>&Q>,<E7XTERN E>>
IFN 70<<Q'D>&Q>,<IFN <Q7P'D-%U>,<INTERN E>7p>
>
IF8N <Q&%U>,<
IFB80 <O>,<
OPDEF N 8P[PUSHJ XPDP,E]
8p>
IFNB <O>,<
9OPDEF N [O E]
> 90>
>
X(COP9PYSPEC,.OCIN6,OCIN9p,<OCIN,IONF>)
X:(CREATEFILE,.IOCF:0,IONF,<OCIN,IONF>:P)
X(ERRFILE,.IO:pERF,OCIO,<OCIN,IO;>)
X(FIL;0EENTER,.IOENT,ION;PF,<OCIN,IONF>)
;pX(FILEERROR,.IOFE<R,OCIO,IONF)
<0
X(FILELOOKU<PP,.IOLOK,IONF,<OC<pIN,IONF>)
X(FIN=DLOGICAL,.OCINJ,O=0CIN,<OCIN,IONF>) =P
X(FIXSWI=pTCH,.OCINF,OCIN,<>OCIN,IONF>)
>0
X(FREEBUFF,.O>PCINC,OCIO,<OCIN,I>pO>)
X(GETBUFF,.?OCIN7,OCIN,<OCIN,?0IONF>)
X(GETBYT?PE,.OCING,OCIO,<OC?pIN,OCIO,IONF>)
@
X(GETCHANN@0EL,.OCIN8,OCIO,<O@PCIN,IONF>)
X(GE@pTNAME,.OCIN1,OCIOA,<OCIN,IO,IONF>) A0
X(GETREST,.OCINAPH,OCIO,OCIN)
Ap
X(GETSPEC,.BOCINB,OCIN,<OCIN,B0IONF>)
X(LEGAL,BP.OCLA,OCIO,<OCEP,BpOCIO>)
X(LINKBCUFF,.OCIND,OCIO,<C0OCIN,IONF>)
X(OCPUTENTER,.OCINI,OCCpIN,<OCIN,IONF>)
X(OUTOCT,D0.OCOO,OCIO,<IONF,DPOCIO,OCEP>)
X(PDpRINTFILE,.OCIN9,OECIO,<OCIO,OCIN>) E0
X(PRINTSPEC,.OCEPINE,IONF,<OCIN,IOEpNF>)
X(REOPEN,OFCINK,RTSYM,IO)
X(SETUPFILE,IOCOFPM,RTSYM,IO)
X(FpSPECCOPY,.OCINZ,OGCIN,<OCIN,IONF>) G0
X(TTYSPEGPC,.OCINY,OCIN,<OCGpIN,IONF>)
X(TYPHENAME,.OCIN2,OCIOH0,ALL)
XHP(TYPESPEC,.IOTYS,HpOCIO,ALL)
X(TYIPDEC,.OCDT,OCIO,<I0OCIO,OCEP>)
X(TIPYPOCT,.OC8T,OCIO,Ip<OCIO,OCEP>)
JOPDEF OP [HRLI]
J0OPDEF OPZ [HRLZI]JP
QCHN==OFFSET(ZFJpICHN)
DEFINE FKILOP(OP,X,Y)<
IFK0B <Y>,<HLL X,QCHNKP(XWAC1)>
IFNB <YKp>,<HLL X,QCHN(Y)>L
TLO X,(<OP>)
L0 XCT X
>
DEFINLPE IOCHECK(X,Y,M)<Lp
IFB <M>,<HRRI XM,740000>
IFNB <M0M>,<HRRI X,M>
FMPILOP(STATZ,X,Y)
Mp >
IFE QDEC20N,<OPDEF PBOUT [OUN0TCHR X1]>
PUNPRGE %U,Q,QIO,QIONNpF,QOCIN,QOCIO,QRT SYM
0ubI`aS@ Q
$ b P #cf@P c[W@ c [W@ c5KS@ c ;wP c Q@ c Q@ c R@ c T@ c Y@ c Y@ c I`@ c Ip@ bc j6P c j7P cLKP cLXVQ ~cMKS@
c~)9P Fc KS@ c& \YP c&.mP c&5 YP c&5KS@
c&d zP c&eM:P Gc&l7P c&t^P c&|[W@ c&|j P c&}L @ c')2P c');P c' X`P c' tP c' wP c'%2P c2)rA ?c:
0 P c:> @
c>(2P c> [W@ c>5KS@
cB$^@ cB%I7@ cB5KS@ cBD[W@ cB}K4@ cJ$[W@ (cJ46P GcK&9(P cN
[W@ .cNM\P cO [W@ 1cO I`P cO,[W@ 1cO.
`P cO.:WP cO=k`@ cR/.+W@ eMj: |&
SEARCH p SIMMAC,SIMMCR
*@EXTERN .YFARG,.YF+@ADR
SALL
RT* ITLE RDA
ENTRY<` .RDA
ERRMAC R= D
MACINIT
DEFI= NE XX(N)<
DEFINE=@ ARG'N<N-1(XTAC)>=`
>
XX 1
XX 2>
XX 3
XX 4
> XX 5
SYN ARG1>@,RESULT
DEFINE>` RAND(N)<
L? X0,@ARG'N
SKIP? GE
ADD [377777?@777777]
TRO 1
MUL X0,[QMULTIP@ LIER]
ST X1,@AR@ G'N
TLZ X1,400@@K
>
DEFINE M@`AKEREAL(N<1>)<
A FLTR X0,X1
FSCA X0,N-44
>
DEA@FINE AR(A,B)<OFFSA`ET(ZAR'A)+2(XWAC'B B)>
DEFINE ARTB EST(A,B)<
HLRZ B@XWAC'A,OFFSET(ZARB`SUB)(XWAC'B)
CAC IE XWAC'A,QTSTAR
>
QMULTIPLIERC@==1
REPEAT ^D15,C`<QMULTIPLIER==QMUD LTIPLIER*5>;RESULD T IS 5**15
QTD@STAR==(<QREAL>B<%D`ZARTYP>+1B<%ZARSU B>)
e&=
SIZE(Q,kpA)
IFN <Q-^D18l>,<Q==0>
IFN <%l0A-^D35>,<Q==0>
lP IFE <Q>,
<CFAIlpL A is not right half>
1P eK$^ J`|h
IFN QDEK BUG,<
IFONA SWGK CT2
>
OUTSTR K@[ASCIZ /
A/]
IFN QDEBUG,<
L IF
IFOFFA SWGCL T3
GOTO FALSE
THEN
LI X2,[L`ASCIZ /
A/]
M EXEC SAPDTO
F I
>
eR/
IFN QDEH BUG,<
IFONA SWGH@CT2
>
OUTSTR H`[ASCIZ /
A/]
I IFN QDEBUG,<
IFI
IFOFFA SWGCT3I@
GOTO FALSE
I`THEN
LI X2,[ASJ CIZ /
A/]
EXJ EC SAPDTO
FI
>
eVu @ K b
IFDEF .K DIRECTIVE,<.DIRECK@TIVE .NOBIN>
UNK`IVERSAL A DEL Csystem-10/20 SIML ULA RTS %4A(310) RTS %4A(310) g<< , zx
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 / YSASW(A)>
%OP%= =2 g4X6 m0v
EXCH X1mP6,.JBOPS
q==YUUmpOAC
IFNB <A>,<nq==A>
ST X17,qn0+X17(X16)
LI X1nP7,q(X16)
BLT X1np7,q+X15(X16)
L oX17,X16
EXCH X1o07,.JBOPS
ST X17oP,q+X16(X16)
L Xop17,q+X17(X16)
P URGE q
JwP g
Ht e9 g
IFE <%OyP%-2>,<$$E(<ILL SWITCH NAME>)>
I9FN <%OP%-2>,<
YIFE <%OP%-3>,<%OPl3 777777>
IFE l0<%OP%-4>,<%OP3>
lP IFL <%OP%-2>,<%lpOP4 YBATCH(A)>
%OP%==2> Rg
%%%%%1==W 0
IRP A,<
A==W %%%%%1
%%%%%1==< %%%%%1+1>>XEH g ; v! B
IFE <%Ov@P%-2>,<$$E(<ILL Sv`WITCH NAME>)>
Iw FN <%OP%-2>,<
w IFE <%OP%-3>,<%OPw@3 777777>
IFE w`<%OP%-4>,<%OP3>
x IFL <%OP%-2>,<%x OP4 YDSCLOSE(A)>
%OP%==2> g%K{ fPv9
IFNB <fpA>,<XLOW=A>
gIFB <A>,<XLOW=X IAC>
gRJ1 3i
A= Q
3I IFB <B>,<Q==Q+13)>
IFNB <B>,<Q= =<B>+Q>
`P g^ + 0y%
IFE <%OPP%-2>,<$$E(<ILL SpWITCH NAME>)>
IFN <%OP%-2>,<
0IFE <%OP%-3>,<%OPP3 XLOW,777777>
p IFE <%OP%-4>,<%OP3 XLOW,>
IFL 0<%OP%-2>,<%OP4 YOPCSW+13(XLOW)>
%OP%==2> g^.,@ Px7
IFE <%OpP%-2>,<$$E(<ILL SWITCH NAME>)>
I0FN <%OP%-2>,<
PIFE <%OP%-3>,<%OPp3 XLOW,777777>
IFE <%OP%-4>,<%O0P3 XLOW,>
IFL P<%OP%-2>,<%OP4 YOpCSW+6(XLOW)>
%OP%==2> g^<0 Pyg
IFE <%OpP%-2>,<$$E(<ILL SWITCH NAME>)>
I0FN <%OP%-2>,<
PIFE <%OP%-3>,<%OPp3 XLOW,777777>
IFE <%OP%-4>,<%O 0P3 XLOW,>
IFL P<%OP%-2>,<%OP4 YO pCSW+16(XLOW)>
%OP%==2> g^<= 3 {.
IFE <%OP3 %-1>,<%OP1 1000003@>
IFE %OP%,<%OP13` 677777>
IFE <%O4 P%-2>,<$$E(<ILL S4 WITCH NAME>)>
IF4@GE <%OP%-3>,<IFB 4`<A>,<%OP1 1000005 >
IFNB <A>,<%O5 P1 A,100000>>
I5@FL<%OP%-2>,<%OP3 5`YSASW(A)>
%OP%= =2tV w G~(Tg^<= 60{I
IFE <%OP6P%-1>,<%OP1 40000>6p
IFE %OP%,<%OP1 7737777>
IFE <%OP70%-2>,<$$E(<ILL SW7PITCH NAME>)>
IFG7pE <%OP%-3>,<IFB <8A>,<%OP1 40000>
IFNB <A>,<%OP18P A,40000>>
IFL<8p%OP%-2>,<%OP3 YSA9SW(A)>
%OP%==2 g_ y wKg_ zg^<=
9`{d
IFE <%OP: %-1>,<%OP1 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 YSA<@SW(A)>
%OP%==2 q:= /P{
IFE <%OP/p%-1>,<%OP1 2000000>
IFE %OP%,<%OP100 577777>
IFE <%O0PP%-2>,<$$E(<ILL S0pWITCH NAME>)>
IF1GE <%OP%-3>,<IFB 10<A>,<%OP1 2000001P>
IFNB <A>,<%O1pP1 A,200000>>
I2FL<%OP%-2>,<%OP3 20YSASW(A)>
%OP%= =2 g^>=` 0xM
IFE <%OPP%-2>,<$$E(<ILL SpWITCH NAME>)>
IFN <%OP%-2>,<
0IFE <%OP%-3>,<%OPP3 XLOW,777777>
p IFE <%OP%-4>,<%O P3 XLOW,>
IFL 0<%OP%-2>,<%OP4 YO PCSW+7(XLOW)>
%OP%==2> g^EL
pxy
IFE2<%O$E(<ILL S
I <%OP%-2>,<
IE <%OP%-3>,<%OP3 XLOW,777777>
0 IFE <%OP%-4>,<%OPP3 XLOW,>
IFL p<%OP%-2>,<%OP4 YOCSW+11(XLOW)>
%OP%==2> g^Mi tw3
IFE <%Ot0P%-2>,<$$E(<ILL StPWITCH NAME>)>
ItpFN <%OP%-2>,<
uIFE <%OP%-3>,<%OPu03 XLOW,777777>
uP IFE <%OP%-4>,<%OupP3 XLOW,>
IFL v<%OP%-2>,<%OP4 YOv0CSW(XLOW)>
%OP%==2> g^d$j sa .
IFE <%Ot P%-2>,<$$E(<ILL St WITCH NAME>)>
It@FN <%OP%-2>,<
t`IFE <%OP%-3>,<%OPu 3 777777>
IFE u <%OP%-4>,<%OP3>
u@ IFL <%OP%-2>,<%u`OP4 YDSL35(A)>
%OP%==2>^<=g^ez` pyQ
IFE <%OP%-2>,<$$E(<ILL S0WITCH NAME>)>
IPFN <%OP%-2>,<
pIFE <%OP%-3>,<%OP3 XLOW,777777>
0 IFE <%OP%-4>,<%OPP3 XLOW,>
IFL p<%OP%-2>,<%OP4 YOCSW+15(XLOW)>
%OP%==2> g^uyq n
IFE <%OmaP%-2>,<$$E(<ILL SqaWITCH NAME>)>
Ir FN <%OP%-2>,<
r IFE <%OP%-3>,<%OPr@3 777777>
IFE r`<%OP%-4>,<%OP3>
s IFL <%OP%-2>,<%s OP4 YDSNOG(A)>
%OP%==2>Z
xc
IFE <%O
0P%-2>,<$$E(<ILL S
PWITCH NAME>)>
I
pFN <%OP%-2>,<
IFE <%OP%-3>,<%OP 03 XLOW,777777>
P IFE <%OP%-4>,<%O pP3 XLOW,>
IFL
<%OP%-2>,<%OP4 YO
0CSW+10(XLOW)>
%OP%==2> g_ r Py
IFE <%OpP%-2>,<$$E(<ILL SWITCH NAME>)>
I0FN <%OP%-2>,<
PIFE <%OP%-3>,<%OPp3 XLOW,777777>
IFE <%OP%-4>,<%O0P3 XLOW,>
IFL P<%OP%-2>,<%OP4 YOpCSW+12(XLOW)>
%OP%==2> g_ r |0wu
IFE <%O|PP%-2>,<$$E(<ILL S|pWITCH NAME>)>
I}FN <%OP%-2>,<
}0IFE <%OP%-3>,<%OP}P3 XLOW,777777>
}p IFE <%OP%-4>,<%O~P3 XLOW,>
IFL ~0<%OP%-2>,<%OP4 YO~PCSW+3(XLOW)>
%OP%==2>V`g_ t px!
IFE <%OP%-2>,<$$E(<ILL S0WITCH NAME>)>
IPFN <%OP%-2>,<
pIFE <%OP%-3>,<%OP3 XLOW,777777>
0 IFE <%OP%-4>,<%OPP3 XLOW,>
IFL p<%OP%-2>,<%OP4 YOCSW+5(XLOW)>
%OP%==2> g_ y yPw_
IFE <%OypP%-2>,<$$E(<ILL SzWITCH NAME>)>
Iz0FN <%OP%-2>,<
zPIFE <%OP%-3>,<%OPzp3 XLOW,777777>
{ IFE <%OP%-4>,<%O{0P3 XLOW,>
IFL {P<%OP%-2>,<%OP4 YO{pCSW+2(XLOW)>
%OP%==2> g_ z x
IFE <%O0P%-2>,<$$E(<ILL SPWITCH NAME>)>
IpFN <%OP%-2>,<
IFE <%OP%-3>,<%OP 03 XLOW,777777>
P IFE <%OP%-4>,<%O pP3 XLOW,>
IFL <%OP%-2>,<%OP4 YO0CSW+4(XLOW)>
%OP%==2> g_& y;
IFE <%O0P%-2>,<$$E(<ILL SPWITCH NAME>)>
IpFN <%OP%-2>,<
IFE <%OP%-3>,<%OP03 XLOW,777777>
P IFE <%OP%-4>,<%OpP3 XLOW,>
IFL <%OP%-2>,<%OP4 YO0CSW+14(XLOW)>
%OP%==2> g_&N vpwI
IFE <%OwP%-2>,<$$E(<ILL Sw0WITCH NAME>)>
IwPFN <%OP%-2>,<
wpIFE <%OP%-3>,<%OPx3 XLOW,777777>
x0 IFE <%OP%-4>,<%OxPP3 XLOW,>
IFL xp<%OP%-2>,<%OP4 YOyCSW+1(XLOW)>
g %OP%==2>=
X<CLPB,Sa8USI,SSLG,SUPS,IOF I> j5 s iF@ E |<
IFN QDEE@BUG,<
IFONA SWGE`CT2
>
OUTSTR F [ASCIZ /A/]
IFF N QDEBUG,<
IF
F@ IFOFFA SWGCT3
F` GOTO FALSE
THG EN
LI X2,[ASCIG Z /A/]
EXEC SG@APDTO
FI
>
iJM\z hvA SUB XPDP,[ 1,,1] p ay ..N==0
IbRP A,<QA==..N
..N==..N+1> pE P pE P pE P pE P pE P q& @ q
9 @ q
@ @ q ,` @ q NI @ q @ q `@ q$ @ q&
0 @ q' @ q( @ q, @ q0 @ q2~p @ q4 @ q8 @ q:
0 @ qJ
4 @ qN
0 @ qOX`@ qO8 @ qR
0 @ q^
4 P q^
5 P q^
5 P q^
5@P q` @ qc+ @ qcP @ qcT* @ qcV`@ qh @ qj
0 @ qj @ qj @ qj& @ qk0 @ s 8;@ s
Ht@ @ es zi@ fs zi@ fs (1@ s @
s.
@ s @ s z na
IFE <%OPo %-1>,<%OP1 400000o >
IFE %OP%,<%OP1o@ 377777>
IFE <%Oo`P%-2>,<$$E(<ILL Sp WITCH NAME>)>
IFp GE <%OP%-3>,<IFB p@<A>,<%OP1 400000p`>
IFNB <A>,<%Oq P1 A,400000>>
Iq FL<%OP%-2>,<%OP3 q@YDSWIT(A)>
%OP% ==2K4@ cJ$[Ws ((@ s (9@ s (w@ s ,p@ s 82@ s 9W@ s ;@ s <P@ s <{@ ls IW@ s M6@ s X2@ s [Y@ s 1@ s 9@ s W@ s y@ s Q@ s z@ !s Dj@ s Kp@ s ks@ s )3@ s .@ s =8 xa V
IFE <%Oy P%-2>,<$$E(<ILL Sy WITCH NAME>)>
Iy@FN <%OP%-2>,<
y`IFE <%OP%-3>,<%OPz 3 777777>
IFE z <%OP%-4>,<%OP3>
z@ IFL <%OP%-2>,<%z`OP4 YDSCRA(A)>
%OP%==2>J
0 s >@ s N@ s YW@ s z:@ s q@ !s +@ s +@ s-T @ s-[<@ s%yV@ sq@ is".
@ s&|-3@ $s&|:@ %s&}L @ s&~8;@ s&~:=@ s&~<@ -s&)Y@ -s*|+W@
s2~p @ "s>(2@ s>,Z@ ps> )H@ Ss> )I@ Ts> )W@ Ts> )Y@ Us> ,z@ Us> -2@ ds> -3@ Zs> I;@ s> i @ Vs> j6@ Ys> |`@ s> |q@ s> V@ s> S@ ds> xV@ s> Z@ es>
@ s> )7@ s> ):@ Rs> :7@ Rs> ;z@ Ss> =`@ Js> N@ s> YV@ ks> q@ "sB$^@ sB%@ @ msK% t@ sK&
@ sK-m@ sN
@ 4sN
)9@ 3sN
+z@ 5sN
I0@ 0sN
[R@ 6sN
i9@ 1sN
k@ 2sN
l]@ 8sN
xw@ 0sN
xz@ /sN
}@ sNN @ 3sN)6@ :sN)9@ 2sN8;@ :sN=@ /sN=@ sN=`@ 7sNH:@ 1sNJ6@ /sNKx@ 5sN,z@ 9sO-I;@
sO-i @ sO.1@ $sO.x@ "sO. Z@ #sO.8x@ #sON:7@ sON;z@ sS%@@ .sS%x@@ .sSD @ ZsSD+@@ esSD, @ fsSD,@ fsSDM6@ jsSD^@ hsSEM @ hsSF9w@ gsSFL @ gsSG-@ lsW-x1@ Bsb
82@ W isj.+@
sj.+`@ u
D-8 1 $%W==2
IFPNB <B>,<$%W==2+<pB>
>
IFE <$$US E-3>,<LI $$$VAL
0$$USE==1>
$F $%W (A)S@
cB%I7u
D;Z $%W==3
IF NB <B>,<$%W==3+<@B>
>
IFE <$$US`E-3>,<LI $$$VAL
$$USE==1>
$Fu$%W (A)W@ 6cb
D;w uIB
IFE %OP%ui-1,<%OP2 400000>
IFE %OP%,<%OP2 7v(77777377777>
IFEvH <%OP%-2>,<$$E(<IvhLL SWITCH NAME>)>w
IFGE <%OP%-3>,<w(IFB <A>,<%OP2 40wH0000>
IFNB <A>wh,<%OP2 A,400000>x>
IFL <%OP%-2>,<x(%OP3 0(A)>
%OP% ==2IELD>
$$USEu
DlR o
IFE <%OPo9%-1>,<%OP1 400000oX>
IFE %OP%,<%OP1ox 377777>
IFE <%OpP%-2>,<$$E(<ILL Sp8WITCH NAME>)>
IFpXGE <%OP%-3>,<IFB px<A>,<%OP1 400000q>
IFNB <A>,<%Oq8P1 A,400000>>
IqXFL<%OP%-2>,<%OP3 0(A)>
%OP%==2u
EI7 lIv
$%W==0
lhIFNB <B>,<$%W==0m+<B>>
IFE <$$USm(E-3>,<LI $$$VAL
mH$$USE==1>
IFE $$mhUSE,<$F $%W(A)>
IFE <$$USE-1>,<$n(L $%W(A)>
IFE <nH$$USE-2>,<PRINTX nhOPD-OPR NESTING E RROR>
$$USE==2u
EKU ri)
$%W==0
rIIFNB <B>,<$%W==0sY+<B>>
IFE <$$US !E-3>,<LI $$$VAL
$$USE==1>
IFE $$qxUSE,<$F $%W(A)>
IFE <$$USE-1>,<$tB [$ZBHLNK B(A)t8]-$$RELO($$BAS)>
IFE <$$USE-2>,<PtxRINTX INVALID USEu OF FIELD>
$$USE ==2 j5P u
F\r y9^
IFE <%OPy%-1>,<%OP1 400000xy>
IFE %OP%,<%OP1za 377777>
IFE <%OzAP%-2>,<$$E(<ILL SzWITCH NAME>)>
IFz!GE <%OP%-3>,<IFB xH<A>,<%OP1 400000{ >
IFNB <A>,<%O{@P1 A,400000>>
I{`FL<%OP%-2>,<%OP3 1(A)>
%OP%==2u
G(Z |qv
$%W==1
|QIFNB <B>,<$%W==1}a+<B>>
IFE <$$US aE-3>,<LI $$$VAL
@$$USE==1>
IFE $$| USE,<$F $%W(A)>
IFE <$$USE-1>,<$~ R $%W(A)>
IFE <~@$$USE-2>,<PRINTX ~`OPD-OPR NESTING E RROR>
$$USE==2u ,H: QU $%W==7
IFpNB <B>,<$%W==7+<B>
>
IFE <$$US0E-3>,<LI $$$VAL
P$$USE==1>
$Fj$%W (A)Q
$%W==5
1IFNB <B>,<$%W==5a+<B>>
IFE <$$USAE-3>,<LI $$$VAL
!$$USE==1>
IFE $$`USE,<$F $%W(A)>
IFE <$$USE-1>,<$ B [$ZBUSIZ B(A)@]-$$RELO($$BAS)>
IFE <$$USE-2>,<P RINTX INVALID USE OF FIELD>
$$USE ==2+w uN9Ru .=
1e
$%W==4
PIFNB <B>,<$%W==4
p+<B>>
IFE <$$US E-3>,<LI $$$VAL
0$$USE==1>
IFE $$ PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$
R $%W(A)>
IFE <
0$$USE-2>,<PRINTX
POPD-OPR NESTING E RROR>
$$USE==2u .\r
IFE1<%OPP1 400000
IFE7%OP%,<%OP1
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 5(A)>
%OP%==2u .xz aH
$%W==6
IFNB <B>,<$%W==6 +<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 E RROR>
$$USE==2u /(Z q1
$%W==5
IFNB <B>,<$%W==50+<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 E RROR>
$$USE==2u4+ i)_
$%W==26
IFNB <B>,<$%W==j926+<B>>
IFE <$$jUSE-3>,<LI $$$VAL A
$$USE==1>
IFE hX$$USE,<$F $%W(A)jx>
IFE <$$USE-1>,k<$R $%W(A)>
IFEk8 <$$USE-2>,<PRINTkXX OPD-OPR NESTINGkx ERROR>
$$USE==2 j5 Q Yu4[R S
IFE <%OS)P%-2>,<$$E(<ILL SSHWITCH NAME>)>
IShFN <%OP%-2>,<
TIFE <%OP%-3>,<%OPT(3 777777>
IFE TX<%OP%-4>,<%OP3>
Tx IFL <%OP%-2>,<%UOP4 7(A)>
%O P%==2>LI Gu56 Uy
$%W==24
IFNB <B>,<$%W==V824+<B>>
IFE <$$VXUSE-3>,<LI $$$VALVx
$$USE==1>
IFE W$$USE,<$F $%W(A)W8>
IFE <$$USE-1>,WX<$L $%W(A)>
IFEWx <$$USE-2>,<PRINTXX OPD-OPR NESTINGX8 ERROR>
$$USE==2 FuMh@ Iu5J6 Y
$%W==24
IFNB <B>,<$%W==YH24+<B>>
IFE <$$YhUSE-3>,<LI $$$VALZ
$$USE==1>
IFE Z($$USE,<$F $%W(A)ZH>
IFE <$$USE-1>,Zh<$R $%W(A)>
IFE[ <$$USE-2>,<PRINT[(X OPD-OPR NESTING[H ERROR>
$$USE==2 u )u5Kq _)
$%W==25
IFNB <B>,<$%W==_h25+<B>>
IFE <$$`USE-3>,<LI $$$VAL`(
$$USE==1>
IFE `H$$USE,<$F $%W(A)`h>
IFE <$$USE-1>,a<$R $%W(A)>
IFEa( <$$USE-2>,<PRINTaHX OPD-OPR NESTINGah ERROR>
$$USE==2 Q ' j5 'u5[r b'
IFE <%OPb9%-1>,<%OP1 400000bX>
IFE %OP%,<%OP1bx 377777>
IFE <%OcP%-2>,<$$E(<ILL Sc8WITCH NAME>)>
IFcXGE <%OP%-3>,<IFB cx<A>,<%OP1 400000d>
IFNB <A>,<%Od8P1 A,400000>>
IdXFL<%OP%-2>,<%OP3 dx26(A)>
%OP%==2 E OF FIELD>
$$Uu5}: f C
IFE <%OPei%-1>,<%OP1 200000eI>
IFE %OP%,<%OP1fy 577777>
IFE <%OfYP%-2>,<$$E(<ILL S aWITCH NAME>)>
IFeGE <%OP%-3>,<IFB g8<A>,<%OP1 200000gX>
IFNB <A>,<%OgxP1 A,200000>>
IhFL<%OP%-2>,<%OP3 h826(A)>
%OP%==2 E OF FIELD>
$$Uu6xz \
$%W==25
IFNB <B>,<$%W==\X25+<B>>
IFE <$$\xUSE-3>,<LI $$$VAL]
$$USE==1>
IFE ]8$$USE,<$F $%W(A)]X>
IFE <$$USE-1>,]x<$L $%W(A)>
IFE^ <$$USE-2>,<PRINT^8X OPD-OPR NESTING^X ERROR>
$$USE==2 |zu>4+
u|{ s0ym
SETZM Xs0,YOCSW(XLOW)
HrpRLI X0,YOCSW(XLOW )
HRRI X0,YOCSW 0+1(XLOW)
BLT X0 P,YOCSW+QSWNO-1(XL OW)
u$I; {A d $%W==YOCFD{`
IFNB <B>,<$%W=| =YOCFD+<B>
>
I| FE <$$USE-3>,<LI |@$$$VAL
$$USE==1>
$F $%W(A)V`u$^
$%W==YOC FD+2
IFNB <B>,<@$%W==YOCFD+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-O@PR NESTING ERROR>
$$USE==2uLJ7u$j6 } s $%W==YOCFD}0+1
IFNB <B>,<$%}PW==YOCFD+1+<B>
}p>
IFE <$$USE-3>,~<LI $$$VAL
$$USE~0==1>
$F $%W(A) u
G(Z iu ,H:u& Z Y g $%W==YOCFD x+5
IFNB <B>,<$%
W==YOCFD+5+<B>
8>
IFE <$$USE-3>,
X<LI $$$VAL
$$USE
x==1>
$F $%W(A) |ub@ #u&
S Q Y
$%W==YOCpFD+4
IFNB <B>,< $%W==YOCFD+4+<B> 0>
IFE <$$USE-3>, P<LI $$$VAL
$$USE p==1>
IFE $$USE,<
$F $%W(A)>
IFE
0<$$USE-1>,<$R $%W
P(A)>
IFE <$$USE
p-2>,<PRINTX OPD-O PR NESTING ERROR>
$$USE==2uB5K u&
U A @
$%W==YOC`FD+4
IFNB <B>,< $%W==YOCFD+4+<B> >
IFE <$$USE-3>,@<LI $$$VAL
$$USE`==1>
IFE $$USE,< $F $%W(A)>
IFE <$$USE-1>,<$L $%W@(A)>
IFE <$$USE`-2>,<PRINTX OPD-O PR NESTING ERROR>
$$USE==2u -3u&
$%W==YOC0FD+3
IFNB <B>,<P$%W==YOCFD+3+<B>p>
IFE <$$USE-3>,<LI $$$VAL
$$USE0==1>
IFE $$USE,<P$F $%W(A)>
IFE p<$$USE-1>,<$B [$ZFDPT B(A)]-$$RE0LO($$BAS)>
IFE <P$$USE-2>,<PRINTX pINVALID USE OF FI ELD>
$$USE==2Tu&9R
IFNB <B>,<$%W==YOCFD+6+<B>
(>
IFE <$$USE-3>,H<LI $$$VAL
$$USEh==1>
$F $%W(A) Q j Y uL 7aM
IFE <%OP7A%-1>,<%OP1 400>
7!IFE %OP%,<%OP1 778Q7377>
IFE <%OP%-812>,<$$E(<ILL SWIT&ACH NAME>)>
IFGE 6P<%OP%-3>,<IFB <A6p>,<%OP1 400>
IF9NB <A>,<%OP1 A,90400>>
IFL<%OP%-29P>,<%OP3 6(A)>
% OP%==2VALID USEuL S 79 C $%W==20
I7XFNB <B>,<$%W==207x+<B>
>
IFE <$$8USE-3>,<LI $$$VAL88
$$USE==1>
$F $ %W(A)j5ZP uL)Y <) j $%W==23
I<HFNB <B>,<$%W==23<h+<B>
>
IFE <$$=USE-3>,<LI $$$VAL=(
$$USE==1>
$F $ %W(A)j6<P uL+[ ba(
IFE %OP%bA-1,<%OP2 40000>
b!IFE %OP%,<%OP2 77ci7777737777>
IFE cI<%OP%-2>,<$$E(<IL#aL SWITCH NAME>)>
IFGE <%OP%-3>,<IapFB <A>,<%OP2 400d(00>
IFNB <A>,<dH%OP2 A,40000>>
dhIFL <%OP%-2>,<%OPe3 6(A)>
%OP%==2 F FIELD>
$$USEuL-3 i1_
$%W==10
IFNB <B>,<$%W==ip10+<B>>
IFE <$$jUSE-3>,<LI $$$VALj0
$$USE==1>
IFE jP$$USE,<$F $%W(A)jp>
IFE <$$USE-1>,k<$R $%W(A)>
IFEk0 <$$USE-2>,<PRINTkPX OPD-OPR NESTINGkp ERROR>
$$USE==2 u eyF
$%W==10
IFNB <B>,<$%W==g!10+<B>>
IFE <$$gUSE-3>,<LI $$$VAL#A
$$USE==1>
IFE fa$$USE,<$F $%W(A)e(>
IFE <$$USE-1>,g`<$B [$ZFICHN B(h A)]-$$RELO($$BAS)h >
IFE <$$USE-2>,h@<PRINTX INVALID Uh`SE OF FIELD>
$$U SE==2 +uM|uLD 1
$%W==16
IFNB <B>,<$%W== p16+<B>>
IFE <$$!USE-3>,<LI $$$VAL!0
$$USE==1>
IFE !P$$USE,<$F $%W(A)!p>
IFE <$$USE-1>,"<$B [$ZFID1 B(A"0)]-$$RELO($$BAS)>"P
IFE <$$USE-2>,<"pPRINTX INVALID US#E OF FIELD>
$$US E==2 )u uLD@ -q
$%W==17
IFNB <B>,<$%W==.017+<B>>
IFE <$$.PUSE-3>,<LI $$$VAL.p
$$USE==1>
IFE /$$USE,<$F $%W(A)/0>
IFE <$$USE-1>,/P<$B [$ZFID2 B(A/p)]-$$RELO($$BAS)>0
IFE <$$USE-2>,<00PRINTX INVALID US0PE OF FIELD>
$$US E==22Q 5 j682uLI 4A3
IFE <%OP4!%-1>,<%OP1 1000>
IFE %OP%,<%OP1 75176777>
IFE <%OP%5-2>,<$$E(<ILL SWI&aTCH NAME>)>
IFGE30 <%OP%-3>,<IFB <3PA>,<%OP1 1000>
5pIFNB <A>,<%OP1 6A,1000>>
IFL<%OP60%-2>,<%OP3 6(A)>
%OP%==2D USE uLI@ 'AK
IFE <%OP'!%-1>,<%OP1 20000>'
IFE %OP%,<%OP1 (1757777>
IFE <%OP(%-2>,<$$E(<ILL SW'aITCH NAME>)>
IFG&0E <%OP%-3>,<IFB <&PA>,<%OP1 20000>
IFNB <A>,<%OP1) A,20000>>
IFL<)0%OP%-2>,<%OP3 6( A)>
%OP%==2SE uLJ7 !
IFE <%OPa%-1>,<%OP1 2>
IFAE %OP%,<%OP1 777775>
IFE <%OP%-2>q,<$$E(<ILL SWITCHQ NAME>)>
IFGE <% qOP%-3>,<IFB <A>,<%OP1 2>
IFNB <PA>,<%OP1 A,2>>
IFL<%OP%-2>,<%OP3 11(A)>
%OP%== 2INTX INVALID UuLK7 qf
$%W==12
IFNB <B>,<$%W==
@12+<B>>
IFE <$$
`USE-3>,<LI $$$VAL
$$USE==1>
IFE $$USE,<$F $%W(A) @>
IFE <$$USE-1>, `<$B [$ZFIDMO B(
A)]-$$RELO($$BAS)
>
IFE <$$USE-2>,
@<PRINTX INVALID U
`SE OF FIELD>
$$U SE==2 uLKz A;
IFE <%OP!%-1>,<%OP1 1>
IFE %OP%,<%OP1 7777176>
IFE <%OP%-2>,<$$E(<ILL SWITCH!a NAME>)>
IFGE <%0OP%-3>,<IFB <A>,P<%OP1 1>
IFNB <pA>,<%OP1 A,1>>
IFL<%OP%-2>,<%OP03 11(A)>
%OP%== 2INTX INVALID UuLLu u9
IFE <%OPta%-1>,<%OP1 200000tA>
IFE %OP%,<%OP1uq 577777>
IFE <%OuQP%-2>,<$$E(<ILL S#WITCH NAME>)>
IFspGE <%OP%-3>,<IFB t<A>,<%OP1 200000v0>
IFNB <A>,<%OvPP1 A,200000>>
IvpFL<%OP%-2>,<%OP3 w11(A)>
%OP%==2 E OF FIELD>
$$UuLM ~a
IFE <%OP~A%-1>,<%OP1 100>
~!IFE %OP%,<%OP1 77Q7677>
IFE <%OP%-12>,<$$E(<ILL SWIT"CH NAME>)>
IFGE }P<%OP%-3>,<IFB <A}p>,<%OP1 100>
IF NB <A>,<%OP1 A, 0100>>
IFL<%OP%-2 P>,<%OP3 11(A)>
%OP%==2NVALID UuLMW xz $%W==13
IYFNB <B>,<$%W==13!+<B>
>
IFE <$$USE-3>,<LI $$$VAL!
$$USE==1>
$F $ %W(A)777777777uLXz >!
IFE <%OP>%-1>,<%OP1 100>
=aIFE %OP%,<%OP1 77?17677>
IFE <%OP%-?2>,<$$E(<ILL SWIT>qCH NAME>)>
IFGE =<%OP%-3>,<IFB <A=0>,<%OP1 100>
IF?pNB <A>,<%OP1 A,@100>>
IFL<%OP%-2@0>,<%OP3 6(A)>
% OP%==2VALID USEuL[R ;g
IFE <%OP:a%-1>,<%OP1 200>
:AIFE %OP%,<%OP1 77;q7577>
IFE <%OP%-;Q2>,<$$E(<ILL SWIT&!CH NAME>)>
IFGE 9p<%OP%-3>,<IFB <A:>,<%OP1 200>
IF<0NB <A>,<%OP1 A,<P200>>
IFL<%OP%-2<p>,<%OP3 6(A)>
% OP%==2VALID USEuL^ ! ~
$%W==16
IFNB <B>,<$%W== `16+<B>>
IFE <$$ USE-3>,<LI $$$VAL
$$USE==1>
IFE @$$USE,<$F $%W(A) `>
IFE <$$USE-1>, <$L $%W(A)>
IFE <$$USE-2>,<PRINT @X OPD-OPR NESTING ` ERROR>
$$USE==2 uLk` /uLmuLj6 Q e $%W==15
IpFNB <B>,<$%W==15 +<B>
>
IFE <$$ 0USE-3>,<LI $$$VAL P
$$USE==1>
$F $ %W(A) qcT* uLk A*
$%W==2
`IFNB <B>,<$%W==2 +<B>>
IFE <$$US E-3>,<LI $$$VAL
@$$USE==1>
IFE $$`USE,<$F $%W(A)>
IFE <$$USE-1>,<$ B [$ZFIFLN B(A)@]-$$RELO($$BAS)>
IFE <$$USE-2>,<P RINTX INVALID USE OF FIELD>
$$USE ==2 uLkR XQV
IFE %OP%X1-1,<%OP2 400000>
IFE %OP%,<%OP2 7YA77777377777>
IFEY! <%OP%-2>,<$$E(<I$ALL SWITCH NAME>)>W@
IFGE <%OP%-3>,<W`IFB <A>,<%OP2 40Z 0000>
IFNB <A>Z ,<%OP2 A,400000>Z@>
IFL <%OP%-2>,<Z`%OP3 6(A)>
%OP% ==2IELD>
$$USEuLk` Aa
IFE <%OPAA%-1>,<%OP1 40>
IA!FE %OP%,<%OP1 777BQ737>
IFE <%OP%-2B1>,<$$E(<ILL SWITC&H NAME>)>
IFGE <@P%OP%-3>,<IFB <A>@p,<%OP1 40>
IFNBC <A>,<%OP1 A,40C0>>
IFL<%OP%-2>,<CP%OP3 6(A)>
%OP% ==2INVALID USE uLm
$%W==2
0IFNB <B>,<$%W==2P+<B>>
IFE <$$USpE-3>,<LI $$$VAL
$$USE==1>
IFE $$0USE,<$F $%W(A)>
IFE <$$USE-1>,<$pB [$ZFIFTR B(A)]-$$RELO($$BAS)>
IFE <$$USE-2>,<PPRINTX INVALID USEp OF FIELD>
$$USE ==2 uMT A X
$%W==14
IFNB <B>,<$%W== 14+<B>>
IFE <$$ USE-3>,<LI $$$VAL@
$$USE==1>
IFE `$$USE,<$F $%W(A) >
IFE <$$USE-1>, <$R $%W(A)>
IFE@ <$$USE-2>,<PRINT`X OPD-OPR NESTING ERROR>
$$USE==2 q?.@ @ qJ
0 uMx AN
$%W==5
`IFNB <B>,<$%W==5 +<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 E RROR>
$$USE==2uM@ }
IFE <%OP a%-1>,<%OP1 200000 A>
IFE %OP%,<%OP1 Q 577777>
IFE <%O(aP%-2>,<$$E(<ILL S(@WITCH NAME>)>
IF pGE <%OP%-3>,<IFB <A>,<%OP1 200000 >
IFNB <A>,<%O 0P1 A,200000>>
I PFL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM3 q7 $%W==4
IFNB <B>,<$%W==4+<0B>
>
IFE <$$USPE-3>,<LI $$$VAL
p$$USE==1>
$F $%W (A) uM@ *ae
IFE <%OP*A%-1>,<%OP1 10000>*!
IFE %OP%,<%OP1 +Q767777>
IFE <%OP+1%-2>,<$$E(<ILL SW'AITCH NAME>)>
IFG)PE <%OP%-3>,<IFB <)pA>,<%OP1 10000>
IFNB <A>,<%OP1,0 A,10000>>
IFL<,P%OP%-2>,<%OP3 6( A)>
%OP%==2SE uM89 lAl $%W==11
Il`FNB <B>,<$%W==11m +<B>
>
IFE <$$m USE-3>,<LI $$$VALm@
$$USE==1>
$F $ %W(A) 9 j5uMHW Ta:
IFE <%OPU%-1>,<%OP1 1>
IFU E %OP%,<%OP1 7777U@76>
IFE <%OP%-2>U`,<$$E(<ILL SWITCHV NAME>)>
IFGE <%V OP%-3>,<IFB <A>,V@<%OP1 1>
IFNB <V`A>,<%OP1 A,1>>
IFL<%OP%-2>,<%OPW 3 6(A)>
%OP%==2 NTX INVALID USEuM[r '
O
$%W==17
IFNB <B>,<$%W=='P17+<B>>
IFE <$$'pUSE-3>,<LI $$$VAL(
$$USE==1>
IFE (0$$USE,<$F $%W(A)(P>
IFE <$$USE-1>,(p<$B [$ZFIMOD B()A)]-$$RELO($$BAS))0>
IFE <$$USE-2>,)P<PRINTX INVALID U)pSE OF FIELD>
$$U SE==2Q Z j5WuM] qa
IFE <%OPqA%-1>,<%OP1 20>
Iq!FE %OP%,<%OP1 777rQ757>
IFE <%OP%-2r1>,<$$E(<ILL SWITC#!H NAME>)>
IFGE <pP%OP%-3>,<IFB <A>pp,<%OP1 20>
IFNBs <A>,<%OP1 A,20s0>>
IFL<%OP%-2>,<sP%OP3 11(A)>
%OP %==2X INVALID UuMh6 9 P $%W==21
I9(FNB <B>,<$%W==219H+<B>
>
IFE <$$9hUSE-3>,<LI $$$VAL:
$$USE==1>
$F $ %W(A)j5zP uMh@ E5
IFE <%OPDa%-1>,<%OP1 20>
IDAFE %OP%,<%OP1 777EQ757>
IFE <%OP%-2%a>,<$$E(<ILL SWITC%@H NAME>)>
IFGE <Cp%OP%-3>,<IFB <A>D,<%OP1 20>
IFNBF <A>,<%OP1 A,20F0>>
IFL<%OP%-2>,<FP%OP3 6(A)>
%OP% ==2INVALID USE uMk )
IFE %OP% -1,<%OP2 100000>
IFE %OP%,<%OP2 7`177777677777>
IFE` <%OP%-2>,<$$E(<I$LL SWITCH NAME>)>_q
IFGE <%OP%-3>,<^8IFB <A>,<%OP2 10`p0000>
IFNB <A>a,<%OP2 A,100000>a0>
IFL <%OP%-2>,<aP%OP3 6(A)>
%OP% ==2IELD>
$$USEuMm6 K!k
IFE <%OPK%-1>,<%OP1 4>
IFJaE %OP%,<%OP1 7777L173>
IFE <%OP%-2>L,<$$E(<ILL SWITCHKq NAME>)>
IFGE <%JOP%-3>,<IFB <A>,J0<%OP1 4>
IFNB <LpA>,<%OP1 A,4>>
IFL<%OP%-2>,<%OPM03 6(A)>
%OP%==2 NTX INVALID USEuMxT ?
$%W==14
IFNB <B>,<$%W==p14+<B>>
IFE <$$USE-3>,<LI $$$VAL0
$$USE==1>
IFE P$$USE,<$F $%W(A)p>
IFE <$$USE-1>,<$L $%W(A)>
IFE0 <$$USE-2>,<PRINTPX OPD-OPR NESTINGp ERROR>
$$USE==2 g_&N w5iF@ uMy@ !
IFE <%OP a%-1>,<%OP1 100000 A>
IFE %OP%,<%OP1!q 677777>
IFE <%O!QP%-2>,<$$E(<ILL S(!WITCH NAME>)>
IF pGE <%OP%-3>,<IFB <A>,<%OP1 100000"0>
IFNB <A>,<%O"PP1 A,100000>>
I"pFL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM| e
IFE <%OP1%-1>,<%OP1 400000P>
IFE %OP%,<%OP1p 377777>
IFE <%OP%-2>,<$$E(<ILL S0WITCH NAME>)>
IFPGE <%OP%-3>,<IFB p<A>,<%OP1 400000 >
IFNB <A>,<%O 0P1 A,400000>>
I PFL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM}: .
IFE <%OP-a%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7.q73777>
IFE <%OP%.Q-2>,<$$E(<ILL SWI'!TCH NAME>)>
IFGE,p <%OP%-3>,<IFB <-A>,<%OP1 4000>
/0IFNB <A>,<%OP1 /PA,4000>>
IFL<%OP/p%-2>,<%OP3 6(A)>
%OP%==2ID USEuN @ $!1
IFE <%OP$%-1>,<%OP1 40000>#a
IFE %OP%,<%OP1 %737777>
IFE <%OP$q%-2>,<$$E(<ILL SW(ITCH NAME>)>
IFG#E <%OP%-3>,<IFB <#0A>,<%OP1 40000>
IFNB <A>,<%OP1%p A,40000>>
IFL<&%OP%-2>,<%OP3 6( A)>
%OP%==2SE uN z [qq
IFE %OP%[Q-1,<%OP2 200000>
IFE %OP%,<%OP2 7\y77777577777>
IFE\Y <%OP%-2>,<$$E(<I$!LL SWITCH NAME>)>\9
IFGE <%OP%-3>,<[ IFB <A>,<%OP2 20]80000>
IFNB <A>]X,<%OP2 A,200000>]x>
IFL <%OP%-2>,<^%OP3 6(A)>
%OP% ==2IELD>
$$USEuN
:Y ] $%W==22
I:xFNB <B>,<$%W==22;+<B>
>
IFE <$$;8USE-3>,<LI $$$VAL;X
$$USE==1>
$F $ %W(A)j688P uN
S 41 7
$%W==20
IFNB <B>,<$%W==4p20+<B>>
IFE <$$5USE-3>,<LI $$$VAL50
$$USE==1>
IFE 5P$$USE,<$F $%W(A)5p>
IFE <$$USE-1>,6<$R $%W(A)>
IFE60 <$$USE-2>,<PRINT6PX OPD-OPR NESTING6p ERROR>
$$USE==2 j5tP j5uN
U 1!
$%W==20
IFNB <B>,<$%W==1`20+<B>>
IFE <$$2 USE-3>,<LI $$$VAL2
$$USE==1>
IFE 2@$$USE,<$F $%W(A)2`>
IFE <$$USE-1>,3 <$L $%W(A)>
IFE3 <$$USE-2>,<PRINT3@X OPD-OPR NESTING3` ERROR>
$$USE==2 j6;Z ~q j6<uN
4
$%W==17
IFNB <B>,<$%W==$ 17+<B>>
IFE <$$$@USE-3>,<LI $$$VAL$`
$$USE==1>
IFE % $$USE,<$F $%W(A)% >
IFE <$$USE-1>,%@<$B [$ZFIPT B(A%`)]-$$RELO($$BAS)>&
IFE <$$USE-2>,<& PRINTX INVALID US&@E OF FIELD>
$$US E==28 S j5WuN+w Na
IFE <%OPNA%-1>,<%OP1 2>
IFN!E %OP%,<%OP1 7777OQ75>
IFE <%OP%-2>O1,<$$E(<ILL SWITCH% NAME>)>
IFGE <%MPOP%-3>,<IFB <A>,Mp<%OP1 2>
IFNB <PA>,<%OP1 A,2>>
IFL<%OP%-2>,<%OPPP3 6(A)>
%OP%==2 NTX INVALID USEuN9R 1!
IFE <%OP1%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7275777>
IFE <%OP%1q-2>,<$$E(<ILL SWI'TCH NAME>)>
IFGE0 <%OP%-3>,<IFB <00A>,<%OP1 2000>
2PIFNB <A>,<%OP1 2pA,2000>>
IFL<%OP3%-2>,<%OP3 6(A)>
%OP%==2ID=USEuN<
IF <B>,<$%W==2+< B>
>
IFE <$$US E-3>,<LI $$$VAL
@$$USE==1>
$F $%W (A) uN= @z
$%W==12
I!FNB <B>,<$%W==12 Q+<B>
>
IFE <$$ 1USE-3>,<LI $$$VAL!A
$$USE==1>
$FN$ %W(A)77776>
IFE %OP%a-1,<%OP2 40>
IFEA %OP%,<%OP2 77777 7777737>
IFE <%OiP%-2>,<$$E(<ILL S!!WITCH NAME>)>
IFIGE <%OP%-3>,<IFB p<A>,<%OP2 40>
IFNB <A>,<%OP2 HA,40>>
IFL <%OP%h-2>,<%OP3 12(A)>
%OP%==2ALID UuNH x!S
IFE <%OPx%-1>,<%OP1 20000>wa
IFE %OP%,<%OP1 y757777>
IFE <%OPxq%-2>,<$$E(<ILL SW"aITCH NAME>)>
IFGw0E <%OP%-3>,<IFB <yPA>,<%OP1 20000>
IFNB <A>,<%OP1z A,20000>>
IFL<z0%OP%-2>,<%OP3 11( A)>
%OP%==2USuNJ6 *A
j
$%W==17
IFNB <B>,<$%W==+ 17+<B>>
IFE <$$+ USE-3>,<LI $$$VAL+@
$$USE==1>
IFE +`$$USE,<$F $%W(A), >
IFE <$$USE-1>,, <$B [$ZFITIM B(,@A)]-$$RELO($$BAS),`>
IFE <$$USE-2>,- <PRINTX INVALID U- SE OF FIELD>
$$U SE==2 j5xuNM mq
IFE <%OPn%-1>,<%OP1 10>
In0FE %OP%,<%OP1 777nP767>
IFE <%OP%-2np>,<$$E(<ILL SWITCoH NAME>)>
IFGE <o0%OP%-3>,<IFB <A>oP,<%OP1 10>
IFNBop <A>,<%OP1 A,10p>>
IFL<%OP%-2>,<p0%OP3 11(A)>
%OP %==2X INVALID UuNM {ak
IFE <%OP{A%-1>,<%OP1 10000>{!
IFE %OP%,<%OP1 |1767777>
IFE <%OP"A%-2>,<$$E(<ILL SW" ITCH NAME>)>
IFGzPE <%OP%-3>,<IFB <zpA>,<%OP1 10000>
IFNB <A>,<%OP1} A,10000>>
IFL<}0%OP%-2>,<%OP3 11( A)>
%OP%==2USuN]q
IFE,%OP% 20>
IFEP%,<%OP2 77777
IFE <%OP%-2>,<$$E(<ILL S0WITCH NAME>)>
IFPGE <%OP%-3>,<IFB p<A>,<%OP2 20>
IFNB <A>,<%OP2 0A,20>>
IFL <%OP%P-2>,<%OP3 12(A)>
%OP%==2ALID UuNy HO
IFE <%OPGa%-1>,<%OP1 10>
IGAFE %OP%,<%OP1 777Hq767>
IFE <%OP%-2HQ>,<$$E(<ILL SWITC%!H NAME>)>
IFGE <Fp%OP%-3>,<IFB <A>G,<%OP1 10>
IFNBI0 <A>,<%OP1 A,10IP>>
IFL<%OP%-2>,<Ip%OP3 6(A)>
%OP% ==2 INVALID USEuN{ Qa#
$%W==6
QAIFNB <B>,<$%W==6Rq+<B>>
IFE <$$USRQE-3>,<LI $$$VAL
$a$$USE==1>
IFE $$PpUSE,<$F $%W(A)>
IFE <$$USE-1>,<$S0B [$ZFIWLR B(A)SP]-$$RELO($$BAS)>
IFE <$$USE-2>,<PTRINTX INVALID USET0 OF FIELD>
$$USE ==2 u 1 3 $%W==7
IFPNB <B>,<$%W==7+<pB>
>
IFE <$$USE-3>,<LI $$$VAL
0$$USE==1>
$F $%W (A) u a0~
IFE %OP%aP-1,<%OP2 1>
IFE ap%OP%,<%OP2 777777b777776>
IFE <%OPb0%-2>,<$$E(<ILL SWbPITCH NAME>)>
IFGbpE <%OP%-3>,<IFB <cA>,<%OP2 1>
IFc0NB <A>,<%OP2 A,cP1>>
IFL <%OP%-2>cp,<%OP3 3(A)>
%O P%==2NVALID USEu S @ $%W==10
I FNB <B>,<$%W==10@+<B>
>
IFE <$$`USE-3>,<LI $$$VAL
$$USE==1>
$F $ %W(A) u -3 y8]
$%W==5
yXIFNB <B>,<$%W==5yx+<B>>
IFE <$$USzE-3>,<LI $$$VAL
z8$$USE==1>
IFE $$zXUSE,<$F $%W(A)>
IFE <$$USE-1>,<${R $%W(A)>
IFE <{8$$USE-2>,<PRINTX {XOPD-OPR NESTING E RROR>
$$USE==2u I; T@}, $%W==1
IFT`NB <B>,<$%W==1+<U B>
>
IFE <$$USU E-3>,<LI $$$VAL
U@$$USE==1>
$F $%W (A) u ^ vHF
$%W==5
vhIFNB <B>,<$%W==5w+<B>>
IFE <$$USw(E-3>,<LI $$$VAL
wH$$USE==1>
IFE $$whUSE,<$F $%W(A)>
IFE <$$USE-1>,<$x(L $%W(A)>
IFE <xH$$USE-2>,<PRINTX xhOPD-OPR NESTING E RROR>
$$USE==2u j6 tx/ $%W==4
IFuNB <B>,<$%W==4+<u8B>
>
IFE <$$USuXE-3>,<LI $$$VAL
ux$$USE==1>
$F $%W (A)q, @ u k ^`~
$%W==3
_ IFNB <B>,<$%W==3_ +<B>>
IFE <$$US_@E-3>,<LI $$$VAL
_`$$USE==1>
IFE $$` USE,<$F $%W(A)>
IFE <$$USE-1>,<$`@R $%W(A)>
IFE <``$$USE-2>,<PRINTX a OPD-OPR NESTING E RROR>
$$USE==2u 6 [p}q
$%W==3
\IFNB <B>,<$%W==3\0+<B>>
IFE <$$US\PE-3>,<LI $$$VAL
\p$$USE==1>
IFE $$]USE,<$F $%W(A)>
IFE <$$USE-1>,<$]PL $%W(A)>
IFE <]p$$USE-2>,<PRINTX ^OPD-OPR NESTING E RROR>
$$USE==2u J6 Y }Z
$%W==2
Y IFNB <B>,<$%W==2Y@+<B>>
IFE <$$USY`E-3>,<LI $$$VAL
Z $$USE==1>
IFE $$Z USE,<$F $%W(A)>
IFE <$$USE-1>,<$Z`R $%W(A)>
IFE <[ $$USE-2>,<PRINTX [ OPD-OPR NESTING E RROR>
$$USE==2u KU O`}
$%W==-1
IFNB <B>,<$%W==P -1+<B>>
IFE <$$P@USE-3>,<LI $$$VALP`
$$USE==1>
IFE Q $$USE,<$F $%W(A)Q >
IFE <$$USE-1>,Q@<$L $%W(A)>
IFEQ` <$$USE-2>,<PRINTR X OPD-OPR NESTINGR ERROR>
$$USE==2 u h6 Rp} $%W==0
IFSNB <B>,<$%W==0+<S0B>
>
IFE <$$USSPE-3>,<LI $$$VAL
Sp$$USE==1>
$F $%W (A) u m6 kP~k
IFE %OP%k0-1,<%OP2 10>
IFEk %OP%,<%OP2 77777lX7777767>
IFE <%Ol8P%-2>,<$$E(<ILL S)@WITCH NAME>)>
IFlGE <%OP%-3>,<IFB j@<A>,<%OP2 10>
j`IFNB <A>,<%OP2 mA,10>>
IFL <%OP%m8-2>,<%OP3 3(A)>
%OP%==2LID USEu
! Z $%W==12
I
@FNB <B>,<$%W==12
`+<B>
>
IFE <$$ USE-3>,<LI $$$VAL
$$USE==1>
$F $ %W(A) u
S I &
$%W==7
hIFNB <B>,<$%W==7+<B>>
IFE <$$US(E-3>,<LI $$$VAL
H$$USE==1>
IFE $$hUSE,<$F $%W(A)>
IFE <$$USE-1>,<$(R $%W(A)>
IFE <H$$USE-2>,<PRINTX hOPD-OPR NESTING E RROR>
$$USE==2u
U Y
$%W==7
xIFNB <B>,<$%W==7 +<B>>
IFE <$$US 8E-3>,<LI $$$VAL
X$$USE==1>
IFE $$ xUSE,<$F $%W(A)>
IFE <$$USE-1>,<$8L $%W(A)>
IFE <X$$USE-2>,<PRINTX xOPD-OPR NESTING E RROR>
$$USE==2u
$%W==6
|HIFNB <B>,<$%W==6|h+<B>>
IFE <$$US}E-3>,<LI $$$VAL
}($$USE==1>
IFE $$}HUSE,<$F $%W(A)>
IFE <$$USE-1>,<$~B [$ZFSPT B(A)]~(-$$RELO($$BAS)>
~HIFE <$$USE-2>,<PR~hINTX INVALID USE OF FIELD>
$$USE= =2 &}VP u +w nh
IFE %OP%nH-1,<%OP2 4>
IFE n(%OP%,<%OP2 777777op777773>
IFE <%OPoP%-2>,<$$E(<ILL SW) ITCH NAME>)>
IFGo0E <%OP%-3>,<IFB <mXA>,<%OP2 4>
IFmxNB <A>,<%OP2 A,p04>>
IFL <%OP%-2>pP,<%OP3 3(A)>
%O P%==2NVALID USEu 8w Q M $%W==11
IpFNB <B>,<$%W==11 +<B>
>
IFE <$$ 0USE-3>,<LI $$$VAL P
$$USE==1>
$F $ %W(A) u 9R q g $%W==13
I
FNB <B>,<$%W==13
0+<B>
>
IFE <$$
PUSE-3>,<LI $$$VAL
p
$$USE==1>
$F $ %W(A) u := V}C
$%W==2
V0IFNB <B>,<$%W==2VP+<B>>
IFE <$$USVpE-3>,<LI $$$VAL
W$$USE==1>
IFE $$W0USE,<$F $%W(A)>
IFE <$$USE-1>,<$WpL $%W(A)>
IFE <X$$USE-2>,<PRINTX X0OPD-OPR NESTING E RROR>
$$USE==2u =1 e ~8
IFE %OP%e -1,<%OP2 2>
IFE d`%OP%,<%OP2 777777f(777775>
IFE <%OPf%-2>,<$$E(<ILL SW* ITCH NAME>)>
IFGehE <%OP%-3>,<IFB <dA>,<%OP2 2>
IFd0NB <A>,<%OP2 A,fh2>>
IFL <%OP%-2>g,<%OP3 3(A)>
%O P%==2NVALID USEu y h8~R
IFE %OP%h-1,<%OP2 20>
IFEgx %OP%,<%OP2 77777i@7777757>
IFE <%Oi P%-2>,<$$E(<ILL S)`WITCH NAME>)>
IFi GE <%OP%-3>,<IFB g(<A>,<%OP2 20>
gHIFNB <A>,<%OP2 j A,20>>
IFL <%OP%j -2>,<%OP3 3(A)>
%OP%==2LID USEu { q`"
$%W==3
q@IFNB <B>,<$%W==3s+<B>>
IFE <$$USrhE-3>,<LI $$$VAL
) $$USE==1>
IFE $$rHUSE,<$F $%W(A)>
IFE <$$USE-1>,<$qB [$ZFSWLR B(A)sH]-$$RELO($$BAS)>
IFE <$$USE-2>,<PtRINTX INVALID USEt( OF FIELD>
$$USE ==2 pE P u&4[R =Y ~
IFE <%O=yP%-2>,<$$E(<ILL S>WITCH NAME>)>
I>8FN <%OP%-2>,<
>XIFE <%OP%-3>,<%OP>x3 777777>
IFE ?(<%OP%-4>,<%OP3>
?H IFL <%OP%-2>,<%?hOP4 7(A)>
%O P%==2> u>4+ @I
$%W==24
IFNB <B>,<$%W==A24+<B>>
IFE <$$A(USE-3>,<LI $$$VALAH
$$USE==1>
IFE Ah$$USE,<$F $%W(A)B>
IFE <$$USE-1>,B(<$L $%W(A)>
IFEBH <$$USE-2>,<PRINTBhX OPD-OPR NESTINGC ERROR>
$$USE==2 u>5J6 CY
1
$%W==24
IFNB <B>,<$%W==D24+<B>>
IFE <$$D8USE-3>,<LI $$$VALDX
$$USE==1>
IFE Dx$$USE,<$F $%W(A)E>
IFE <$$USE-1>,E8<$R $%W(A)>
IFEEX <$$USE-2>,<PRINTExX OPD-OPR NESTINGF ERROR>
$$USE==2 v%]>h6 wuB5J7 P
$%W==26
IFNB <B>,<$%W==PX26+<B>>
IFE <$$PxUSE-3>,<LI $$$VALQ
$$USE==1>
IFE Q8$$USE,<$F $%W(A)QX>
IFE <$$USE-1>,Qx<$R $%W(A)>
IFER <$$USE-2>,<PRINTR8X OPD-OPR NESTINGRX ERROR>
$$USE==2 P q` @ uB5K M
|
$%W==26
IFNB <B>,<$%W==MH26+<B>>
IFE <$$MhUSE-3>,<LI $$$VALN
$$USE==1>
IFE N($$USE,<$F $%W(A)NH>
IFE <$$USE-1>,Nh<$L $%W(A)>
IFEO <$$USE-2>,<PRINTO(X OPD-OPR NESTINGOH ERROR>
$$USE==2 @ q ,` @ uB5L Iy
c
$%W==25
IFNB <B>,<$%W==J825+<B>>
IFE <$$JXUSE-3>,<LI $$$VALJx
$$USE==1>
IFE K$$USE,<$F $%W(A)K8>
IFE <$$USE-1>,KX<$R $%W(A)>
IFEKx <$$USE-2>,<PRINTLX OPD-OPR NESTINGL8 ERROR>
$$USE==2 {g^<= {1uB6< Fi
J
$%W==25
IFNB <B>,<$%W==G(25+<B>>
IFE <$$GHUSE-3>,<LI $$$VALGh
$$USE==1>
IFE H$$USE,<$F $%W(A)H(>
IFE <$$USE-1>,HH<$L $%W(A)>
IFEHh <$$USE-2>,<PRINTIX OPD-OPR NESTINGI( ERROR>
$$USE==2 @ cB}K4@ uO<I; Q $%W==0
IFpNB <B>,<$%W==0+<B>
>
IFE <$$US0E-3>,<LI $$$VAL
P$$USE==1>
$F $%W (A)@ x#g^<0 uO<^ qA
$%W==2
IFNB <B>,<$%W==20+<B>>
IFE <$$USPE-3>,<LI $$$VAL
p$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$PL $%W(A)>
IFE <p$$USE-2>,<PRINTX OPD-OPR NESTING E RROR>
$$USE==2uO<j6 !* $%W==1
IF@NB <B>,<$%W==1+<`B>
>
IFE <$$US E-3>,<LI $$$VAL
$$USE==1>
$F $%W (A)t x
aN $%W==4
IF NB <B>,<$%W==4+< B>
>
IFE <$$US @E-3>,<LI $$$VAL
`$$USE==1>
$F $%W (A) @ q^
4 ub 3 $%W==13
I3 FNB <B>,<$%W==133@+<B>
>
IFE <$$3`USE-3>,<LI $$$VAL4
$$USE==1>
$F $ %W(A)
c&eM:ub S # $%W==2
IF# NB <B>,<$%W==2+<#@B>
>
IFE <$$US#`E-3>,<LI $$$VAL
$ $$USE==1>
$F $%W (A): # j5Pub^ 'qQ
$%W==5
(IFNB <B>,<$%W==5(0+<B>>
IFE <$$US(PE-3>,<LI $$$VAL
(p$$USE==1>
IFE $$)USE,<$F $%W(A)>
IFE <$$USE-1>,<$)PL $%W(A)>
IFE <)p$$USE-2>,<PRINTX *OPD-OPR NESTING E RROR>
$$USE==2ubj6 &!: $%W==4
IF&@NB <B>,<$%W==4+<&`B>
>
IFE <$$US' E-3>,<LI $$$VAL
' $$USE==1>
$F $%W (A)
6 j5 WubI7 11 $%W==12
I1PFNB <B>,<$%W==121p+<B>
>
IFE <$$2USE-3>,<LI $$$VAL20
$$USE==1>
$F $ %W(A) c QubI`
$%W==1
0IFNB <B>,<$%W==1 P+<B>>
IFE <$$US pE-3>,<LI $$$VAL
!$$USE==1>
IFE $$!0USE,<$F $%W(A)>
IFE <$$USE-1>,<$!pR $%W(A)>
IFE <"$$USE-2>,<PRINTX "0OPD-OPR NESTING E RROR>
$$USE==2ubKS /a $%W==7
IF0 NB <B>,<$%W==7+<0 B>
>
IFE <$$US0@E-3>,<LI $$$VAL
0`$$USE==1>
$F8$%W (A) $%W==3
IF$pNB <B>,<$%W==3+<%B>
>
IFE <$$US%0E-3>,<LI $$$VAL
%P$$USE==1>
$F $%W (A)xQ k j5xub
Z *a^ $%W==6
IF+ NB <B>,<$%W==6+<+ B>
>
IFE <$$US+@E-3>,<LI $$$VAL
+`$$USE==1>
$F $%W (A)< H j69Tub
$%W==6
,PIFNB <B>,<$%W==6,p+<B>>
IFE <$$US-E-3>,<LI $$$VAL
-0$$USE==1>
IFE $$-PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$.B [$ZXBPT B(A)].0-$$RELO($$BAS)>
.PIFE <$$USE-2>,<PR.pINTX INVALID USE /OF FIELD>
$$USE= =26<tQ }E j6<tug S !b $%W==2
IF@NB <B>,<$%W==2+<`B>
>
IFE <$$US E-3>,<LI $$$VAL
$$USE==1>
$F $%W (A)9 E j5Sug qo $%W==4
IF NB <B>,<$%W==4+< 0B>
>
IFE <$$US PE-3>,<LI $$$VAL
p$$USE==1>
$F $%W (A)Q 9 j5ug 9R A| $%W==5
IF `NB <B>,<$%W==5+< B>
>
IFE <$$US E-3>,<LI $$$VAL
@$$USE==1>
$F $%W (A) j5$Y@P $\h ! l
IFGE ^}@D17-^D0,<
IFB <y`C>,<DEFINE YDSACTs8(ACC)<
IFE <%OP%ix-1>,<%OP1 B>
IFf8E %OP%,<%OP1 A>
IFE <%OP%-2>,<$$(E(<ILL SWITCH NAM E>)>
IFGE <%OP%-p3>,<IFB <ACC>,<%O0P1 B>
IFNB <ACC>,<%OP1 ACC,B>>|
IFL<%OP%-2>,<%OxPP3 YDSWIT(ACC)>
u0%OP%==2>>
IFNB <rC>,<DEFINE YDSACf@T=<
IFE <%OP%-1>c,<%OP1 B>
IFE %_POP%,<%OP1 A>
IF\E <%OP%-2>,<$$E(<Y ILL SWITCH NAME>)R0>
IFGE <%OP%-3>,O<%OP1 C,B>
IFLKP <%OP%-2>,<%OP3 YH0DSWIT(C)>
%OP%=E0=2>>>
IFL ^D17B-^D0,<
IFB <>,<D>PEFINE YDSACT(ACC);0<
IFE %OP%-1,<%O8P2 B>
IFE %OP%,4p<%OP2 A>
IFE <%1POP%-2>,<$$E(<ILL .0SWITCH NAME>)>
I+FGE <%OP%-3>,<IFB'p <ACC>,<%OP2 B>
IFNB <ACC>,<%OP!02 ACC,B>>
IFL < 0%OP%-2>,<%OP3 YDSr(WIT(ACC)>
%OP%==o2>>
IFNB <>,<DEFkxINE YDSACT=<
IFEh` <%OP%-1>,<%OP2 eHB>
IFE %OP%,<%OP*`2 A>
IFE <%OP%-+ 2>,<$$E(<ILL SWIT+ CH NAME>)>
IFGE +`<%OP%-3>,<%OP2 C `,B>
IFL <%OP%-2 >,<%OP3 YDSWIT(Cm@)>
%OP%==2>>
>
I`@ c Ip jZQ jZ jwQ jw jwQ " jw " j YQ F j Y F j Q $H j $H j Q D j D j H j^Q H j$hVQ H j$hV H j$i7Q j$i7 j$j6Q $H
j$j6 $H
j$kQ H
j$k H
j$kQ H
j$k H
j$k7Q F j$k7 F j$kzQ D j$kz D j$mqQ $H
j$mq $H
j&.XQ j4IQ V j4I V j4I<Q $H W j4I< $H W j4ITQ V j4IT V j4LQ X j4L X j4LQ $H X j4L H X j4LQ 6$ W j4L 6$ W j4LsQ Y j4Ls Y j58Q 4 j58 4 j59Q j59 j5SQ j5S j5WQ j5W j5ZQ H j5Z H j5tQ . j5t . j5Q 0 j5 0 j5 Q 0 j5 0 j5Q 6 j5 6 j5Q > j5 > j5Q & j5 & j5Q j5 j5Q $ j5 $ j5Q D j5 D j5Q 0 j5 0 j5Q j5 j51Q 0 j51 0 j57Q 2 j57 2 j5<Q $H j5< $H j5TQ j5T j5VQ "D j5V "D j5WQ " j5W " j5WQ . j5W . j5ZQ D j5Z D j51Q H j51 H j51Q H j51 H j53Q D j53 D j56Q j56 j57Q < j57 < j5pQ j5p j5Q $ j5 $ j57Q . j57 . j5:Q , j5: , j5PQ j5P j5QQ , j5Q , j5VQ j5V j5ZQ ( j5Z ( j5qQ $H j5q $H j5sQ B j5s B j5xQ F j5x F j5zQ : j5z : j5 Q @ j5 @ j5 Q j5 j5 Q j5 j5 Q $H j5 H j5 Q 6$ j5 6$ j5 WQ & j5 W & j5 sQ 8 j5 s 8 j5 xQ j5 x j5 zQ j5 z j5 |Q
j5 |
j5 Q > j5 > j5 Q 0 j5 0 j5 Q * j5 * j5 Q < j5 < j5 ;Q j5 ; j5 rQ * j5 r * j5 vQ &
j5 v &
j682Q j682 j688Q j688 j689Q j689 j68ZQ H j68Z H j69Q j69 j69<Q $H j69< $H j69TQ j69T j69VQ H j69V H j6:6Q $H j6:6 $H j6;Q H j6; H j6;Q $H j6; $H j6;PQ j6;P j6;ZQ j6;Z j6<Q j6< j6<Q $H j6< H j6<Q 6$ j6< 6$ j6<WQ j6<W j6<qQ j6<q j6<sQ j6<s j6<tQ $H j6<t $H j6<zQ j6<z j6=rQ j6=r j6=vQ
j6=v
jLi7Q jLi7 j|hVQ $H
j|hV $H
j|kQ H
j|k H
kkQ H kk H kkQ $H kk $H kkQ H
kk H
klxQ $H
klx $H
k yQ k y k y<Q $H k y< $H k yTQ k yT k |Q k | kD(6Q kD(6 kD(9Q kD(9 kD)<Q $H kD)< $H kD)TQ kD)T kD+Q kD+ kD+Q H kD+ H kD+Q kD+ kD, Q kD, kD,Q kD, kD,Q 6$ kD, 6$ kN89Q kN89 kN<Q kN< kN<sQ kN<s
(Q(P j
<{P jZP jwP jwP j YP j P j P jQP j$hVP j$i7P j$j6P j$kP j$kP j$k7P j$kzP j$mqP j4IP j4I<P j4ITP j4LP j4LP j4LP j4LsP j58P j59P j5SP j5WP
j5ZP j5tP j5P j5 P j5P j5P j5P j5P j5P j5P j5P j5P j51P j57P j5<P j5TP j5VP j5WP j5WP j5ZP j51P j51P j53P j56P j57P j5pP j5P j57P j5:P j5PP j5QP j5VP
j5ZP j5qP j5sP j5xP j5zP j5 P j5 P j5 P j5 P j5 P j5 WP j5 sP j5 xP j5 zP j5 |P j5 P j5 P
j5 P j5 P j5 ;P j5 rP j5 vP j6 7P j682P j688P j689P j68ZP j69P j69<P j69TP j69VP j6:6P j6;P j6;P j6;PP j6;ZP j6<P j6<P j6<P j6<WP j6<qP j6<sP j6<tP j6<zP j6=rP j6=vP jLi7P j|hVP j|kP kJwP kkP kkP kkP klxP k yP k y<P k yTP k |P k$M P kD(6P kD(9P kD)<P kD)TP kD+P kD+P kD+P kD, P kD,P kD,P kN89P kN<P kN<sP :p P S@P &| vP &|*7P &|K8P &|LP &}VP &}P &}3P &~
6P *|@ .>}{woP