@CAT,P 1045-001-001.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1045-001-001,,,130500053241,000 )@@G@@**PF**@@@[9 @@@@@@@@@@@[@K=@@@]FE^3"@@@@J@@E8@@@]F^ W<@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@P@@K^@@@]F^A@"@@A@@[@@@@[W@@@@W@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[F@@@AC )@@G@@@[J@@@@@@@@@@@@@@@@@N@@@@@@@@@@@X@@@@@@@[P@@P@@T@@@@@@@@@@@@@@@@@>@@@@@@AD )@@G@@@@.@@@@@D@@@@@@@@@@@@@@@@@J@@@@@@@@@@@@@@@@[#@@@@@@@@C@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@^@[L@@@@@@@@@@@@@@@@@@@@@@[N@@@@@@@@@@[B@@@@@@@@@@@\@@@@@@@@@@@@@@@AF )@@G@@@@@@@9@@<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[[@@@@@@@@@@@@@@@@@]AG )@@G@@@@@@@$@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@[AH )@@G@@@@@@@@@@@@@@@@@@@1@@@@@@@@@@@@@@F@@@@@@@@R@@Z@@@@@@@@@@@@@@@@@@@@H@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;@@@@@@@@@@@V@@@@@@@@@@@@@@A@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(@@@@@_@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@[H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@:@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@3@@@@@@@@7@@@@@@@@@@@@@@@@@@@@5@@@@@@@@@AM )@@G@@@@!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@[WAN )@@G@@NOTICE @@@@@@@@[@@@ @ @@@[[@@@@#@@@@W@GV9#MLDESCRIPTION AO )@@G@@@@@@@@@K[@@@ @ @@@[B@@@^?@@@@W#ETSEPKMANUAL @@@@@@@K[@@@AP )@@G@@ @ @@@[B@@@ )@@@@)\FS.[TLPROCEDURES @@@@@@@@]@@@ AQ )@@G@@@ @@@[[@@@ (@@@@&JGWZ#MLAET$P @@@@[ @@]@@@ @ @@@[[@@@@.AR )@@G@@@@@@:8GW+#MLDX$P @@@@@@@@]@@@ @ @@@[N@@@[V@@@@?5GW>#MLAS )@@G@@SCAN$P @@@@@@@@]@@@ @[@@@[]@@@@G@@@@,KGW&#MLPROCS AT )@@G@@@@@@@@@@]@@@FOR-RLIB$ @ @@@[[@@@@]@@@@,WGW(#MLIF$P @@@@@@@@[@@EAU )@@G@@ @ @@@[O@@@[<@@@@,YN*]#]LIF$P @@@@@@@@B@@@ AV )@@G@@@@@@@@O@@@[+@@@@0[N*]#]LASMLKP @@@@@@@@[@@G @ @@@[N@@@[^AW )@@G@@@@@@1EXFCHARTAB @@@@@@@@ @@@ BA )@@G@@@@@@5@@@[@@#@@@@4.H8ACPECTNCY$ @@@@@@@@[@@M @ @@@[N@@@#>BB )@@G@@@@@@5[@['D[JCTNCY$ @@@@@@@@ @@@ @@@@8.@@]@@R@@@@8&@^-D[JBC )@@G@@DASG$ @@@@@@@@[@@O @ @@@[N@@@@W@@@@8_ND+]GIDASG$ BD )@@G@@@@@@@@@@ @@@ @@@@9Y@@[@@#@@@@9VJT?]CHDCDWORD @@@@@@@@[@@QBE )@@G@@ @ @@@[N@@@]6@@@@9ZJHNBOKDCDWORD @@@@@@@@ @@@ BF )@@G@@@@@@/:@@]@@Q@@@@/P@:^C[JEASC$ @@@@@@@@[@@S @ @@@[N@@@@RBG )@@G@@@@@@/!@HEEUIEASC$ @@@@@@@@ @@@ @@@@.C@@[@@^@@@@.^@H%EUIBH )@@G@@EDIT$EXT @@@@@@@@[@@U @ @@@[N@@@@D@@@@.DNHY]GIEDIT$EXT BI )@@G@@@@@@@@@@ @@@ @@@@.N@@[@@[@@@@.M[G/^]EEDIT$$ @@@@[D@@[@@WBJ )@@G@@ @ @@@[]@@@[N@@@@.O#K!#OGEDIT$$ @@@@@@@@ @@@ BK )@@G@@@@@@"0@@^@@D@@@@"$#L[#OGEFLP$ @@@@@@@@[@@Y @ @@@[]@@@@*BL )@@G@@@@@@"4G<0 YGEFLP$ @@@@@@@@ @@@ @@@@_-@@[@@ @@@@_WG=) YGBM )@@G@@EINS$ @@@@@@@@[@@) @ @@@[N@@@[P@@@@_+]3=FPJEINS$ BN )@@G@@@@@@@@@@ @@@ @@@[[^@@]@@H@@@[@7]3/FPJERMNEMONICS @@@@@@@@[@@+BO )@@G@@ @ @@@[N@@@@U@@@[[A@/PCTKERMNEMONICS @@@@@@@@ @@@ BP )@@G@@@@@[[$@@[@@B@@@[[)@/QCTKEVX$ @@@@@@@@[@@= @ @@@[N@@@#&BQ )@@G@@@@@[[*@G D#JEVX$ @@@@@@@@ @@@ @@@[ V@@[@@H@@@[ I[1/CWIBR )@@G@@EHEX$ @@@@@@@@[@@& @ @@@[N@@@@J@@@[ WO5PEOIEHEX$ BS )@@G@@@@@@@@@@ @@@ @@@[ !@@[@@]@@@[ :O5REOIINFOR$$ @@@@@@@@[@@*BT )@@G@@ @ @@@[N@@@][@@@[ ,]"3#EIINFOR$$ @@@@@@@@ @@@ BU )@@G@@@@@[B/@@]@@H@@@[B\# V#EILSTAET @@@@@@@@[@@% @ @@@[N@@@["BV )@@G@@@@@[B"[1UCPKLSTAET @@@@@@@@ @@@ @@@[EG@@]@@K@@@[D/ECJBWIBW )@@G@@NAME$ @@@@@@@@[@@? @ @@@[N@@@@Q@@@[EIO!JECJNAME$ BX )@@G@@@@@@@@@@ @@@ @@@[E*@@]@@^@@@[E=O!6ECJQARROW @@@@@@@@[@@,BY )@@G@@ @ @@@[N@@@@^@@@[E%O_?FYJQARROW @@@@@@@@ @@@ BZ )@@G@@@@@[E0@@[@@]@@@[E,O_1FYJSCAN$ @@@@@@@@[@@0 @ @@@[N@@@#RCA )@@G@@@@@[E1#:)^GKSCAN$ @@@@@@@@ @@@ @@@[IP@@^@@H@@@[ICH_M[AJCB )@@G@@SCHAET @@@@@@@@[@@2 @ @@@[N@@@#Y@@@[IT[<\#PKSCHAET CC )@@G@@@@@@@@@@ @@@ @@@[ML@@#@@U@@@[L7[$'#PKWRTAET @@@@@@@@[@@4CD )@@G@@ @ @@@[N@@@]\@@@[MOO=HFLIWRTAET @@@@@@@@ @@@ CE )@@G@@@@@[PS@@[@@P@@@[P#O?FFLIBREAKS @@@@@@@@[@@6 @ @[@]N@@@[9CF )@@G@@@@@[PTOIB[KKBREAKS @@@@@@@@ @@@ @@@[R%@@A@@S@@@[RMOIC[KKCG )@@G@@CMMD @@@@@@@@[@@8 @ @@@[N@@@[@@@@[R0[B.]JLCMMD CH )@@G@@@@@@@@@@ @@@ @@@[TD@@A@@T@@@[S0[B"]JLDCDWORD-LC13@@@@[R@@[@@'CI )@@G@@ @ @@@[N@@@@[@@@[TJ[C4C#IDCDWORD-LC13@@@@@@@@ @@@ CJ )@@G@@@@@[TL@@[@@[@@@[TK@DICFIDX @[U@@@@@[@@/ @ @@@[N@@@#QCK )@@G@@@@@[TMNY^CSKDX @@@@@@@@ @[W @@@[XT@@ @@1@@@[W*NY^CSKCL )@@G@@DXLEVEL @@@@[T@@[@@" @ @@@[N@@@@F@@@[XY['7]JLDXLEVEL CM )@@G@@@@@@@@@@ @@@ @@@[X%@@[@@[@@@[X(['8]JLERRORS @@@@@@@@[@[@CN )@@G@@ @ @@@[N@@@@W@@@[X:[Q7D KERRORS @@@@@@@@ @@@ CO )@@G@@@@@[YJ@@#@@C@@@[YB[Q8D KEVX$-LC13 @@@@@@@@[@[] @ @@@[N@@@@[CP )@@G@@@@@[YM@9*AXIEVX$-LC13 @@@@@@@@ @@@ @@@[YO@@[@@[@@@[YN@[]CFICQ )@@G@@FIND @@@@@@@@[@[^ @ @@@[N@@@@Y@@@[YPJW@BOKFIND CR )@@G@@@@@@@@@@ @@@ @@@[Y;@@]@@C@@@[Y3JW[BOKGETPUTWD @@@@@@@@[@[ACS )@@G@@ @ @@@[N@@@@P@@@[Y.NQDCSKGETPUTWD @@@@@@@@ @@@ CT )@@G@@@@@[ZR@@]@@ @@@[ZMNQECSKMAP @@@@@@@@[@[C @ @@@[N@@@@3CU )@@G@@@@@[ZT@5EFRJMAP @@@@@@@@ @@@ @@@[)V@@^@@J@@@[)G@5FFRJCV )@@G@@MISC @@@@@@@@[@[E @ @@@[N@@@@3@@@[)Z@8,D#KMISC CW )@@G@@@@@@@@@@ @@@ @@@[-Z@@^@@H@@@[-M@8\D#KPATCH @@@@@@@@[@[GCX )@@G@@ @ @@@[N@@@[G@@@[-<^AMCRKPATCH @@@@@@@@ @@@ CY )@@G@@@@@[+.@@^@@I@@@[+\^ANCRKPCT @@@@@@@@[@[I @ @@@[N@@@@*CZ )@@G@@@@@[<[C7[DIJPCT @@@@@@@@ @@@ @@@[<3@@#@@E@@@[<(C7]DIJDA )@@G@@PGTERM @@@@@@@@[@[K @ @@@[N@@@[O@@@[<6[4:]JLPGTERM DB )@@G@@@@@@@@@@ @@@ @@@[>X@@^@@N@@@[>E[4?]JLPRINT @@@@@@@@[@[MDC )@@G@@ @ @@@[N@@@@7@@@[>-]DWD JPRINT @@@@@@@@ @@@ DD )@@G@@@@@[&<@@^@@F@@@[&S]DWD JRES @@@@@@@@[@[O @ @@@[N@@@]JDE )@@G@@@@@[&$[G7]JLRES @@@@@@@@ @@@ @@@[(L@@ @@V@@@[*6[G7]JLDF )@@G@@SPECS @@@@@@@@[@[Q @ @@@[N@@@]U@@@[(QOQ!GFKSPECS DG )@@G@@@@@@@@@@ @@@ @@@[? @@A@@P@@@[:0OQ,GFKUTILITIES @@@@@@@@[@[SDH )@@G@@ @ @@@[N@@@@&@@@[?FOG/GFKUTILITIES @@@@@@@@ @@@ DI )@@G@@@@@[?/@@ @@F@@@[?1OG"GFKNONRES @@@@@@@@[@[VMAP @ @@@[A@@@@]DJ )@@G@@@@@[![[&LEBJDX @@@@@@@@[@@@MAP @ @@@[A@@@@]@@@[!#@H3FBKDK )@@G@@NONRES @@@@@@@@ @@@ @@@[2B@@^@ ]@@@[! GX.#MLDX DL )@@G@@@@@@@@@@A@@@ )@@]@@@@@@A'@@@[2FGYD#ML HV E+ RON&LD >W81MS999915-20 202ND ST DN )@@G@@ BAYSIDE NY 11360BOX 430 DUTCH QUAD ALBANY NY 122DO )@@G@@22 0000 +00 HV E+<@E#@E#@@0RMA094409343FRA3K > RON&LD DP )@@G@@>W81MS999915-20 202ND ST BAYSIDE NY 11360BOX 430 DUTCH QDQ )@@G@@UAD ALBANY NY 12222 0000 +00 DR )@@G@@ +000000+000000+000000+000000+000000+000000+000000+000000+000DS )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000+00000DT )@@G@@0+000000+000000+000000+000000+000000+000000+000000+000000+000000+000000+DU )@@G@@000000+000000+000000+000000+000000+000000+000000 DV )@@G@@ 86835 DW )@@G@@275+00800330800330+000000+000000+000000+000000+000000+000000+000000+0000DX )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0DY )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000DZ )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00EA )@@G@@0000+000000+000000999999000000P EB )@@G@@ 000+00 EC )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000ED )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999EE )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999EF )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000EG )@@G@@999999000000 EH )@@G@@ 000+00 +000000+000000+000EI )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+EJ )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000EK )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0EL )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 EM )@@G@@ EN )@@G@@ 000+00 +000000+000000+000000+000000+000000+EO )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000EP )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0EQ )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000ER )@@G@@0+000000+000000+000000+000000+000000999999000000 ES )@@G@@ ET )@@G@@000+00 +000000+000000+000000+000000+000000+000000+000000+0000EU )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0EV )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000EW )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00EX )@@G@@0000+000000+000000999999000000 EY )@@G@@ 000+00 EZ )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000FA )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999FB )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999FC )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000FD )@@G@@999999000000 FE )@@G@@ 000+00 +000000+000000+000FF )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+FG )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000FH )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0FI )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 FJ )@@G@@ FK )@@G@@ 000+00 +000000+000000+000000+000000+000000+FL )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000FM )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0FN )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000FO )@@G@@0+000000+000000+000000+000000+000000999999000000 FP )@@G@@ @@@@@@FQ )@@G@@@@@@_0@@@[_)@@@]_K@@@#_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@H(?&[L@E#@E#@@1 093461349FRO8T > JAN% FT )@@G@@>R81FM9999PO BOX 551 NORTHVILLE NY 1213412 WESTLYN PL FU )@@G@@ ALBANY NY 12203 00008101+00 FV )@@G@@ +007700+023100+000000+000000+000000+023100+000000+000000+000FW )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000+01670FX )@@G@@0+045600+000000+000000+000000+045600+000000+000000+000000+000000+000000+FY )@@G@@000000+000000+000000+000000+000000+000000+000000 FZ )@@G@@ 86405 GA )@@G@@300+00810105810123+007700+023100+000000+000000+000000+023100+000000+0000GB )@@G@@00+000000810105810116+000000+000000+000000+00000^@)^@0AS)^[[E[K (^C(BEL GC )@@G@@C*)^@)^@)^@)^@)^@)^@)^[KDD#^[S @2 C,@B@@@A^@)^@)^@)^@)^@)^@0AK)^[[E[K (^GD )@@G@@C(#DDNDDJD0,@I@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[[E[K *1ETO (^C(# (#D[[EK)GE )@@G@@^@)^@)^@)^@)^@)^[KDD#^[S 0)^@)@I@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[[E[K *2GF )@@G@@D1^ (^C(# (#D[[EK)^@)^@)^@)^@)^@)^[KDD#^[S 0)^@)@G@@@A^@)^@)^@)^@)^@)^@0GG )@@G@@AK)^[ADDGD- EK)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @2AC3 C,@@@@@A@A@@@A^@)^@)GH )@@G@@^@)^[AC))^[OEL[D1N (ADDGC*)^@)@D@@@A^@)^@)^@)^@)^@)^[]D-JCTF^[#D9IE-[DDIGI )@@G@@ES)AC)EL CTJEL^ES)@D@@@A^@)^@)^@)^@)^@)^[GCD]C(G^[MC(#D9MC-N^[[EL ^[JD(DGJ )@@G@@E-OC(^@E@@@A^@)^@)^@)^@)^@)^[^CDOCC)EL CTJEL^^[DES)E-MCDIES!E-[CK!EL CS,GK )@@G@@@B@@@A^@)^@)^@)^[#D9KFC)E[OEL[D1N (OCD]D([E@,^@)@#@@@A^@)^@)^@) 8)^@)^@)GL )@@G@@@D@@@A^@)^@)^@)^[RD9MDTDD1B (NE-JEL[C9 ^[NC(#E-DD9I 0)^@)^@)@A@@@A^@)^@)GM )@@G@@^@)^@0AC)^[CC-B (DD1AD8,^@)^@)@G@@@A^@)^@)^@)^@)^@)^@0AK)^[NCTCD9JD))^@)GN )@@G@@^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @6 C,@H@@@A^@)^@)^@)^@)^@)^@0AK)^[ADDGD- GO )@@G@@EK)^@)^@)^@)^@)^@)^@)E[DCS)F@)E1[D-PC*)ETKCD#C*,@G@@@A^@)^@)^@)^@)^@)^@0GP )@@G@@AK)^[NCTC (IE(H^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9BC,^@)@H@@@A^@)^@)^@)^@)GQ )@@G@@^@)^@0AK)^[ADDGD- EK)^@)^@)^@)^@)^@)^@)E[DCS)F@)E1[D-PC*)ETKCD#C*,@M@@@AGR )@@G@@^@)^@)^@)^@)^@)^@0AK)^[NCTC (ICDHC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KGS )@@G@@DD#^[S @2A@(^[QCDGE( ^[NE[[CT ES,^@)@A@@@A^@)^@)^@)^@0AC)^[NCTCD9JD)!E-[GT )@@G@@CLGC*,@J@@@A^@)^@)^@)^@)^@)^@0AK)^[ADDGD- EK)E[DCS)F@*AK0 C)E1[D-PC*)^8*GU )@@G@@CDME-N^@:^[NCTDC(ICT C$ 0)^@)@H@@@A^@)^@)^@)^@)^@)^@0AK)^[ADDGD- EK)E[DGV )@@G@@CS)F@*AK0 C)E1[D-PC*)^8*CLPETDD1 ETN C$ 0)@H@@@A^@)^@)^@)^@)^@)^@0AK)^[AGW )@@G@@DDGD- EK)E[DCS)F@*AK0 C)E1[D-PC*)^8*C(^E(#CDODDJD0(^8,@J@@@A^@)^@)^@)^@)GX )@@G@@^@)^@0AK)^[ADDGD- EK)E[DCS)F@*AK0 C)E1[D-PC*)^8*D-DCLMCDMFC)ET#DD D1#C*(GY )@@G@@^8,^@)@J@@@A^@)^@)^@)^@)^@)^@0AK)^[ADDGD- EK)E[DCS)F@*AK0 C)E1[D-PC*)^8*GZ )@@G@@ETJCTDCDG^[RC(GC1[EL C$ 0)^@)@G@@@A^@)^@)^@)^@)^@)^@0AK)^[ADDGD- EK)E[DHA )@@G@@CS)F@*AK0 C)E1[D-PC*)ETKCD#C*,^@)^@)@G@@@A^@)^@)^@)^@)^@)^@0AK)^[ADDGD- HB )@@G@@EK)E[DCS)F@*AK0 C)E1[D-PC*)ETKCD#C*,^@)^@)@G@@@A^@)^@)^@)^@)^@)^@0AK)^[AHC )@@G@@DDGD- EK)E[DCS)F@*AK0 C)E1[D-PC*)ETKCD#C*,^@)^@)@J@@@A^@)^@)^@)^@)^@)^@0HD )@@G@@AK)^[ADDGD- EK)E[DCS)F@*AK0 C)E1[D-PC*)^8*E[PCLGDD#^[[C1ACDDELN C$ 0)^@)HE )@@G@@@J@@@A^@)^@)^@)^@)^@)^@0AK)^[ADDGD- EK)E[DCS)F@*AK0 C)E1[D-PC*)^8*CTMDDHHF )@@G@@DDICDG^[EE(NE-DCT C$ 0)@J@@@A^@)^@)^@)^@)^@)^@0AK)^[ADDGD- EK)E[DCS)F@*HG )@@G@@AK0 C)E1[D-PC*)^8*ET#D[JD9G^[KETTCTC C$ 0)^@)^@)@H@@@A^@)^@)^@)^@)^@)^@0HH )@@G@@AK)^[ADDGD- EK)E[DCS)F@*AK0 C)E1[D-PC*)^8*D1PELNDDIC8(^8,^@)@G@@@A^@)^@)HI )@@G@@^@)^@)^@)^@0AK)^[ADDGD- EK)E[DCS)F@*AK4A@(^[QCDGE( ^[NE[[CT 0)^@)@J@@@AHJ )@@G@@^@)^@)^@)^@)^@)^@0AK)^[ADDGD- EK)E[DCS)F@*AK0 C)E1[D-PC*)^8*C9MCD^^[NE-PHK )@@G@@C-DC(N C$ 0)^@)^@)@G@@@D^@)^@)^@)^@)^@)^@0AK)^[ADDGD- EK)E[DCS)F@*B@0 C)HL )@@G@@E1[D-PC*)ETKCD#C*,^@)^@)@J@@@D^@)^@)^@)^@)^@)^@0AK)^[ADDGD- EK)E[DCS)F@*HM )@@G@@AK0 C)E1[D-PC*)^8*CTJD1O^[NE-PC-DC(N C$ 0)^@)^@)@H@@@A^@)^@)^@)^@0AC)^[NHN )@@G@@CTCD9JD)!C(IE-MDD ES)EL C- C1DD1 ES)ET#D[JD9G (OCD]D- 0)^@)@I@D@A^@)^@)HO )@@G@@^@)^@)^@)^@0AK)^[NCTCD9JD)!C(IE-MFC)D9#CTPELN^@2A*)E-DD( ES)E[DCS)F@*AK0HP )@@G@@ C,^@)@I@@@D^@)^@)^@)^@)^@)^@0AK)^[NCTCD9JD)!C(IE-MFC)D9#CTPELN^@3A@)E-DHQ )@@G@@D( ES)E[DCS)F@*AK0 C,^@)@H@@@A^@)^@)^@)^@0AC)^[RES!E-MCDIES!E1[D))^@)^@)HR )@@G@@^@)^@)^@)^@)^@)^[KDD#^[S @2A*( 0)^@)@G@@@A^@)^@)^@)^@0AC)^[ND[JELO (OEL[HS )@@G@@D1N^[MC(^C(ADDIC(N^[RES!E-MCDIES!E1[D),^@)@G@@@A^@)^@)^@)^@)^@)^@0AK)^[NHT )@@G@@D[O (OEL[D1N^@)^@)^@)^@)^@)^@)^@)E[DCS)F@*AC2 C,@G@@@A^@)^@)^@)^@)^@)^@0HU )@@G@@AK)^[ADDGD- EK)^@)^@)^@)^@)^@)^@)^@)^@)E[DCS)F@*AC3 C,@A@@@A^@)^@)^@)^@0HV )@@G@@AC)^[RES!A1^DDBDDO 0)^@)@G@@@A^@)^@)^@)^@)^@)^@0AK)^[RES!A1^DDBDDO *1^@)HW )@@G@@^@)^@)^@)^@)^@)^@)E[DCS)BC9 0)@H@@@A^@)^@)^@)^@)^@)^@0AK)^@)C1DD-GC(M^@)HX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*A)( 0)^@)@J@@@A^@)^@)^@)^@0AC)^[CDDBD@!HY )@@G@@C9MC*!CTJD(]DDIC(^^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGE( ^[UC(MD8,^@)@J@@@AHZ )@@G@@^@)^@)^@)^@0AC)^[CDDBD@!C9MC*!E1 EL]CDG^@)^@)^@)^@)^@)^@)E[DCS)BC9BC)E1[IA )@@G@@D-PC*)FL ELJ 0)^@)@J@@@A^@)^@)^@)^@0AC)^[CDDBD@!C9MC*!EDPCDIE))^@)^@)^@)IB )@@G@@^@)^@)^@)E[DCS)BC9BC)E1[D-PC*)FL ELJ 0)^@)@J@@@A^@)^@)^@)^@0AC)^[CDDBD@!IC )@@G@@C9MC*!CDICDG^@)^@)^@)^@)^@)^@)^@)E[DCS)BC9BC)E1[D-PC*)FL ELJ 0)^@)@D@@@AID )@@G@@^@)^@)^@)^@0AC)^[^DDNE[GCDT (#D9PD1O (OCD]D- 0)^@)^@)@J@@@A^@)^@)^@)^@)IE )@@G@@^@)^@0AK)^[^DDNE[GCDT (#D9PD1O^[JCT#E(MES)BC)E-DD( ES)^@)^[KDD#^@9 @4 C,IF )@@G@@^@)^@)@D@@@A^@)^@)^@)^@0AC)^[RES!C-DETKD-[FC!CTJE(IE)!E-[CLGC*,^@)@J@@@AIG )@@G@@^@)^@)^@)^@)^@)^@0AK)^[RES!C-DETKD-[FC!CTJE(IE))D9#CTPELN^@9^[ODDHC(N^@)IH )@@G@@^@)E[DCS)F@*A0( 0)@B@@@A^@)^@)^@)^@0AC)^[NDDS (^DDBDDO (OCD]D- 0)@G@@@AII )@@G@@^@)^@)^@)^@)^@)^@0AK)^[#D9^C*!E-J (OEL[D1N^@)D9#CTPELN^@5A@0^[ODDHC(N^@)IJ )@@G@@@J@@@A^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[[ET#C(IC-DD1B^[FC(T^[NIK )@@G@@DDS (^DDBDDO (#D9^C*)^@)@I@@@A^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IL )@@G@@^@)DDIC- F[ C))CLT^[NDDS (^DDB (DC-S 0)^@)@H@@@A^@)^@)^@)^@)^@)^@)^@0AS)IM )@@G@@^[NDDS (^DDBDDO (#D9^C*)^@)^@)^@)^@)^[KDD#^[S @6 C,^@)@G@@@A^@)^@)^@)^@)IN )@@G@@^@)^@)^@0AS)^[OEL[D1N (QCDG^@)^@)^@)^@)^@)^@)E[DCS)F@*AK5 C,@A@@@A^@)^@)IO )@@G@@^@)^[#D9KFC)E-^ (KELJCS,^@)^@)@H@@@A^@)^@)^@)^@0AC)^[ D1^ (LD-K (AD-[C8)IP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S 0)^@)@D@@@A^@)^@)^@)^@)^@)^@8B@)^[ IQ )@@G@@D1^ (LD-K^[QCDGE( ^@$FC$ 0)^@)@J@@@A^@)^@)^@)^@0AC)^[BEL (#D9HCLDD1 C)!IR )@@G@@AC)^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-PC*)FL ELJ 0)@J@@@A^@)^@)^@)^@0IS )@@G@@AC)^[BEL (#D9HCLDD1 C)!AK)^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-PC*)FL IT )@@G@@ELJ 0)@J@@@A^@)^@)^@)^@0AC)^[BEL (#D9HCLDD1 C)!AS)^@)^@)^@)^@)^@)^@)^[KIU )@@G@@DD#^@9 @4 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[E[K (^C(B (QC(MCL[IV )@@G@@D))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AC0 C)E1[D-PC*)FL ELJ 0)^@)@J@@@A^@)^@)IW )@@G@@^@)^@0AC)^[[E[K (^C(B (LE([D1O^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AC0 C)E1[D-PIX )@@G@@C*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[E[K (^C(B (QC(MCL[D)!CTIE))^@)^@)^@)IY )@@G@@^@)^@)^@)^@)E[DCS)BC*A)(00+000000999999000000+000000+000000+000000+00000IZ )@@G@@0+000000+000000+000000+000000+000000999999000000 JA )@@G@@ JB )@@G@@000+00 +000000+000000+000000+000000+000000+000000+000000+0000JC )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0JD )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000JE )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00JF )@@G@@0000+000000+000000999999000000 JG )@@G@@ 000+00 JH )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000JI )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999JJ )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999JK )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000JL )@@G@@999999000000 JM )@@G@@ 000+00 +000000+000000+000JN )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+JO )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000JP )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0JQ )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 JR )@@G@@ JS )@@G@@ 000+00 +000000+000000+000000+000000+000000+JT )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000JU )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0JV )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000JW )@@G@@0+000000+000000+000000+000000+000000999999000000 JX )@@G@@ ;BKC\:JY )@@G@@@E#@E#@@3RMA096463684GIL1INDER> LYN> > 81FS999930 KELLOGG AVE JZ )@@G@@ PORT JERVIS NY 12771134 SPRING ST ALBANY NY 122KA )@@G@@08 00008103+00 ;BKC\:@E#@E#@@3RMA096463684GIL1INDER> LYN> KB )@@G@@> 81FS999930 KELLOGG AVE PORT JERVIS NY 12771134 SPRING ST KC )@@G@@ ALBANY NY 12208 00008103+00 KD )@@G@@ +005450+016050+000000+000000+000000+016050+000000+000000+000KE )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000+04982KF )@@G@@5+142517+000000+000000+000000+142517+000000+000000+000000+000000+000000+KG )@@G@@000000+000000+000000+000000+000000+000000+000000 KH )@@G@@ 86755 KI )@@G@@300+00810119810531+005450+016050+000000+000000+000000+016050+000000+0000KJ )@@G@@00+000000801124810220+000000+000000+000000+000000+000000+000000+000000+0KK )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000KL )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00KM )@@G@@0000+000000+000000999999000000P KN )@@G@@ 000+00 KO )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000KP )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999KQ )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999KR )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000KS )@@G@@999999000000 KT )@@G@@ 000+00 +000000+000000+000KU )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+KV )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000KW )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0KX )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 KY )@@G@@ KZ )@@G@@ 000+00 +000000+000000+000000+000000+000000+LA )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000LB )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0LC )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000LD )@@G@@0+000000+000000+000000+000000+000000999999000000 LE )@@G@@ LF )@@G@@000+00 +000000+000000+000000+000000+000000+000000+000000+0000LG )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0LH )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000LI )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00LJ )@@G@@0000+000000+000000999999000000 LK )@@G@@ 000+00 LL )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000LM )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999LN )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999LO )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000LP )@@G@@999999000000 LQ )@@G@@ 000+00 +000000+000000+000LR )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+LS )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000LT )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0LU )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 LV )@@G@@^[QCDGE( ^[UC(MD8,@K@@@A^@)^@)^@)^@0AC)^[[E[K (^C(B (LE([D1O (#D1O^@)^@)LW )@@G@@^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGE( ^[UC(MD8,^@)@J@@@A^@)^@)^@)^@0AC)^[[LX )@@G@@E[K (^C(B ([D1[D))^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MD8,^@)LY )@@G@@@K@@@A^@)^@)^@)^@0AC)^[[E[K (^C(B ([D1[D)!CTIE))^@)^@)^@)^@)^@)^@)^@)^[KLZ )@@G@@DD#^@9 @4 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[E1 ([E[K (^C(B (QMA )@@G@@C(MCL[D))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AS(^[QCDGE( ^[UC(MD8,@K@@@A^@)^@)MB )@@G@@^@)^@0AC)^[[E1 ([E[K (^C(B (LE([D1O^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AS(^[QMC )@@G@@CDGE( ^[UC(MD8,^@)@K@@@A^@)^@)^@)^@0AC)^[[E1 ([E[K (^C(B ([D1[D))^@)^@)MD )@@G@@^@)^@)^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[ME )@@G@@C-HDDO (^C(B (QC(MCL[D))^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MMF )@@G@@D8,^@)@J@@@A^@)^@)^@)^@0AC)^[[C-HDDO (^C(B (LE([D1O^@)^@)^@)^@)^@)^@)^[KMG )@@G@@DD#^@9 @1A@(^[QCDGE( ^[UC(MD8,@L@@@A^@)^@)^@)^@0AC)^[[C-HDDO (^C(B (QC(MMH )@@G@@CL[D)!CTIE))^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-PC*)FL ELJ 0)^@)@K@@@AMI )@@G@@^@)^@)^@)^@0AC)^[[C-HDDO (^C(B (LE([D1O (#D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9MJ )@@G@@ @4 C)E1[D-PC*)FL ELJ 0)@J@@@A^@)^@)^@)^@0AC)^[[C-HDDO (^C(B ([D1[D))^@)MK )@@G@@^@)^@)^@)^@)^@)E[DCS)BC*AC0 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[ML )@@G@@C-HDDO (^C(B ([D1[D)!CTIE))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGE( ^[UMM )@@G@@C(MD8,@L@@@A^@)^@)^@)^@0AC)^[[E1 ([C-HDDO (^C(B (QC(MCL[D))^@)^@)^@)^@)MN )@@G@@^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0AC)^[[E1 ([MO )@@G@@C-HDDO (^C(B (LE([D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)MP )@@G@@@K@@@A^@)^@)^@)^@0AC)^[[E1 ([C-HDDO (^C(B ([D1[D))^@)^@)^@)^@)^@)^@)^@)MQ )@@G@@E[DCS)BC*AS(^[QCDGE( ^[UC(MD8,@K@@@A^@)^@)^@)^@0AC)^[ D1MD9G (^C(B (QC(MMR )@@G@@CL[D))^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MD8,^@)@J@@@A^@)^@)MS )@@G@@^@)^@0AC)^[ D1MD9G (^C(B (LE([D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGMT )@@G@@E( ^[UC(MD8,@L@@@A^@)^@)^@)^@0AC)^[ D1MD9G (^C(B (QC(MCL[D)!CTIE))^@)^@)MU )@@G@@^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0AC)^[ MV )@@G@@D1MD9G (^C(B (LE([D1O (#D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-PC*)FL MW )@@G@@ELJ 0)@J@@@A^@)^@)^@)^@0AC)^[ D1MD9G (^C(B ([D1[D))^@)^@)^@)^@)^@)^@)E[DMX )@@G@@CS)BC*AC0 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[ D1MD9G (^C(B ([D1[MY )@@G@@D)!CTIE))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGE( ^[UC(MD8,@L@@@A^@)^@)MZ )@@G@@^@)^@0AC)^[[E1 ( D1MD9G (^C(B (QC(MCL[D))^@)^@)^@)^@)^@)^@)^[KDD#^@9 @3NA )@@G@@ C)E1[D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0AC)^[[E1 ( D1MD9G (^C(B (LE([NB )@@G@@D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0NC )@@G@@AC)^[[E1 ( D1MD9G (^C(B ([D1[D))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AS(^[QCDGND )@@G@@E( ^[UC(MD8,@K@@@A^@)^@)^@)^@0AC)^[[E[K (KELB (QC(MCL[D))^@)^@)^@)^@)^@)NE )@@G@@^@)^@)E[DCS)BC*AC0 C)E1[D-PC*)FL ELJ 0)^@)@J@@@A^@)^@)^@)^@0AC)^[[E[K (KNF )@@G@@ELB (LE([D1O^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AC0 C)E1[D-PC*)FL ELJ 0)@K@@@ANG )@@G@@^@)^@)^@)^@0AC)^[[E[K (KELB (QC(MCL[D)!CTIE))^@)^@)^@)^@)^@)^@)^@)E[DCS)NH )@@G@@BC*A)(^[QCDGE( ^[UC(MD8,@K@@@A^@)^@)^@)^@0AC)^[[E[K (KELB (LE([D1O (#D1ONI )@@G@@^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGE( ^[UC(MD8,^@)@J@@@A^@)^@)^@)^@0NJ )@@G@@AC)^[[E[K (KELB ([D1[D))^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MNK )@@G@@D8,^@)@K@@@A^@)^@)^@)^@0AC)^[[E[K (KELB ([D1[D)!CTIE))^@)^@)^@)^@)^@)^@)NL )@@G@@^@)^[KDD#^@9 @4 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[E1 ([E[K (KNM )@@G@@ELB (QC(MCL[D))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AS(^[QCDGE( ^[UC(MD8,@K@@@ANN )@@G@@^@)^@)^@)^@0AC)^[[E1 ([E[K (KELB (LE([D1O^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*NO )@@G@@AS(^[QCDGE( ^[UC(MD8,^@)@K@@@A^@)^@)^@)^@0AC)^[[E1 ([E[K (KELB ([D1[D))NP )@@G@@^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0NQ )@@G@@AC)^[[C-HDDO (KELB (QC(MCL[D))^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( NR )@@G@@^[UC(MD8,^@)@J@@@A^@)^@)^@)^@0AC)^[[C-HDDO (KELB (LE([D1O^@)^@)^@)^@)^@)NS )@@G@@^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MD8,@L@@@A^@)^@)^@)^@0AC)^[[C-HDDO (KELBNT )@@G@@ (QC(MCL[D)!CTIE))^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-PC*)FL ELJ 0)^@)NU )@@G@@@K@@@A^@)^@)^@)^@0AC)^[[C-HDDO (KELB (LE([D1O (#D1O^@)^@)^@)^@)^@)^@)^[KNV )@@G@@DD#^@9 @4 C)E1[D-PC*)FL ELJ 0)@J@@@A^@)^@)^@)^@0AC)^[[C-HDDO (KELB ([D1[NW )@@G@@D))^@)^@)^@)^@)^@)^@)E[DCS)BC*AC0 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0NX )@@G@@AC)^[[C-HDDO (KELB ([D1[D)!CTIE))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGNY )@@G@@E( ^[UC(MD8,@L@@@A^@)^@)^@)^@0AC)^[[E1 ([C-HDDO (KELB (QC(MCL[D))^@)^@)NZ )@@G@@^@)^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0AC)^[[OA )@@G@@E1 ([C-HDDO (KELB (LE([D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL OB )@@G@@ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[E1 ([C-HDDO (KELB ([D1[D))^@)^@)^@)^@)^@)OC )@@G@@^@)^@)E[DCS)BC*AS(^[QCDGE( ^[UC(MD8,@K@@@A^@)^@)^@)^@0AC)^[ D1MD9G (KELBOD )@@G@@ (QC(MCL[D))^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MD8,^@)@J@@@AOE )@@G@@^@)^@)^@)^@0AC)^[ D1MD9G (KELB (LE([D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(OF )@@G@@^[QCDGE( ^[UC(MD8,@L@@@A^@)^@)^@)^@0AC)^[ D1MD9G (KELB (QC(MCL[D)!CTIE))OG )@@G@@^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0OH )@@G@@AC)^[ D1MD9G (KELB (LE([D1O (#D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-POI )@@G@@C*)FL ELJ 0)@J@@@A^@)^@)^@)^@0AC)^[ D1MD9G (KELB ([D1[D))^@)^@)^@)^@)^@)OJ )@@G@@^@)E[DCS)BC*AC0 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[ D1MD9G (KELBOK )@@G@@ ([D1[D)!CTIE))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGE( ^[UC(MD8,@L@@@AOL )@@G@@^@)^@)^@)^@0AC)^[[E1 ( D1MD9G (KELB (QC(MCL[D))^@)^@)^@)^@)^@)^@)^[KDD#OM )@@G@@^@9 @3 C)E1[D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0AC)^[[E1 ( D1MD9G (KELBON )@@G@@ (LE([D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)OO )@@G@@^@)^@0AC)^[[E1 ( D1MD9G (KELB ([D1[D))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AS(OP )@@G@@^[QCDGE( ^[UC(MD8,@K@@@A^@)^@)^@)^@0AC)^[[E[K (NCTC (QC(MCL[D))^@)^@)^@)OQ )@@G@@^@)^@)^@)^@)E[DCS)BC*AC0 C)E1[D-PC*)FL ELJ 0)^@)@J@@@A^@)^@)^@)^@0AC)^[[OR )@@G@@E[K (NCTC (LE([D1O^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*0+000000+000000+000000+0OS )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000OT )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00OU )@@G@@0000+000000+000000999999000000P OV )@@G@@ 000+00 OW )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000OX )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999OY )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999OZ )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000PA )@@G@@999999000000 PB )@@G@@ 000+00 +000000+000000+000PC )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+PD )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000PE )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0PF )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 PG )@@G@@ PH )@@G@@ 000+00 +000000+000000+000000+000000+000000+PI )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000PJ )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0PK )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000PL )@@G@@0+000000+000000+000000+000000+000000999999000000 PM )@@G@@ PN )@@G@@000+00 +000000+000000+000000+000000+000000+000000+000000+0000PO )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0PP )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000PQ )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00PR )@@G@@0000+000000+000000999999000000 PS )@@G@@ 000+00 PT )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000PU )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999PV )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999PW )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000PX )@@G@@999999000000 PY )@@G@@ 000+00 +000000+000000+000PZ )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+QA )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000QB )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0QC )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 QD )@@G@@ QE )@@G@@ 000+00 +000000+000000+000000+000000+000000+QF )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000QG )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0QH )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000QI )@@G@@0+000000+000000+000000+000000+000000999999000000 QJ )@@G@@ ;BKC\:QK )@@G@@@E#@E#@@6RMA092486819GRE%NBAUM> MIT*HELL > 80MS010177-27 166 ST QL )@@G@@ FLUSHING NY 1136660 SALISBURY RD DELMAR NY 120QM )@@G@@54 00008005-01 E@&(HI@E#@E#@@6RMA092486819GRE%NBAUM> MIT*HELL QN )@@G@@> 80MS010177-27 166 ST FLUSHING NY 1136660 SALISBURY RDQO )@@G@@ DELMAR NY 12054 00008005-01 QP )@@G@@ +000000+000000+000000+000000+000000+000000+000000+000000+000QQ )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000+00810QR )@@G@@0+024300+000000+000088+000000+024212+000000+000000+000000+000000+000000+QS )@@G@@000000+000000+000000+000000+000000+000000+000000 QT )@@G@@ 50174 QU )@@G@@300-01790901800524+000000+000000+000000+000000+000000+000000+000000+0000QV )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0QW )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000QX )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00QY )@@G@@0000+000000+000000999999000000P QZ )@@G@@ 000+00 RA )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000RB )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999RC )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999RD )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000RE )@@G@@999999000000 RF )@@G@@ 000+00 +000000+000000+000RG )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+RH )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000RI )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0RJ )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 RK )@@G@@ RL )@@G@@ 000+00 +000000+000000+000000+000000+000000+RM )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000RN )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0RO )@@G@@00000+000000+000000+0000AC0 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[RP )@@G@@E[K (NCTC (QC(MCL[D)!CTIE))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGE( ^[URQ )@@G@@C(MD8,@K@@@A^@)^@)^@)^@0AC)^[[E[K (NCTC (LE([D1O (#D1O^@)^@)^@)^@)^@)^@)RR )@@G@@^@)E[DCS)BC*A)(^[QCDGE( ^[UC(MD8,^@)@J@@@A^@)^@)^@)^@0AC)^[[E[K (NCTC ([RS )@@G@@D1[D))^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MD8,^@)@K@@@A^@)^@)RT )@@G@@^@)^@0AC)^[[E[K (NCTC ([D1[D)!CTIE))^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)RU )@@G@@E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[E1 ([E[K (NCTC (QC(MCL[D))^@)RV )@@G@@^@)^@)^@)^@)^@)^@)E[DCS)BC*AS(^[QCDGE( ^[UC(MD8,@K@@@A^@)^@)^@)^@0AC)^[[RW )@@G@@E1 ([E[K (NCTC (LE([D1O^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AS(^[QCDGE( ^[UC(MRX )@@G@@D8,^@)@K@@@A^@)^@)^@)^@0AC)^[[E1 ([E[K (NCTC ([D1[D))^@)^@)^@)^@)^@)^@)RY )@@G@@^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[C-HDDO (NCTCRZ )@@G@@ (QC(MCL[D))^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MD8,^@)@J@@@ASA )@@G@@^@)^@)^@)^@0AC)^[[C-HDDO (NCTC (LE([D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(SB )@@G@@^[QCDGE( ^[UC(MD8,@L@@@A^@)^@)^@)^@0AC)^[[C-HDDO (NCTC (QC(MCL[D)!CTIE))SC )@@G@@^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0SD )@@G@@AC)^[[C-HDDO (NCTC (LE([D1O (#D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-PSE )@@G@@C*)FL ELJ 0)@J@@@A^@)^@)^@)^@0AC)^[[C-HDDO (NCTC ([D1[D))^@)^@)^@)^@)^@)SF )@@G@@^@)E[DCS)BC*AC0 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[C-HDDO (NCTCSG )@@G@@ ([D1[D)!CTIE))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGE( ^[UC(MD8,@L@@@ASH )@@G@@^@)^@)^@)^@0AC)^[[E1 ([C-HDDO (NCTC (QC(MCL[D))^@)^@)^@)^@)^@)^@)^[KDD#SI )@@G@@^@9 @3 C)E1[D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0AC)^[[E1 ([C-HDDO (NCTCSJ )@@G@@ (LE([D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)SK )@@G@@^@)^@0AC)^[[E1 ([C-HDDO (NCTC ([D1[D))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AS(SL )@@G@@^[QCDGE( ^[UC(MD8,@K@@@A^@)^@)^@)^@0AC)^[ D1MD9G (NCTC (QC(MCL[D))^@)^@)SM )@@G@@^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MD8,^@)@J@@@A^@)^@)^@)^@0AC)^[ SN )@@G@@D1MD9G (NCTC (LE([D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MD8,SO )@@G@@@L@@@A^@)^@)^@)^@0AC)^[ D1MD9G (NCTC (QC(MCL[D)!CTIE))^@)^@)^@)^@)^@)^@)SP )@@G@@^[KDD#^@9 @4 C)E1[D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0AC)^[ D1MD9G (NCTCSQ )@@G@@ (LE([D1O (#D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-PC*)FL ELJ 0)@J@@@ASR )@@G@@^@)^@)^@)^@0AC)^[ D1MD9G (NCTC ([D1[D))^@)^@)^@)^@)^@)^@)E[DCS)BC*AC0 C)SS )@@G@@E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[ D1MD9G (NCTC ([D1[D)!CTIE))^@)ST )@@G@@^@)^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGE( ^[UC(MD8,@L@@@A^@)^@)^@)^@0AC)^[[SU )@@G@@E1 ( D1MD9G (NCTC (QC(MCL[D))^@)^@)^@)^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)SV )@@G@@FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0AC)^[[E1 ( D1MD9G (NCTC (LE([D1O^@)^@)^@)SW )@@G@@^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[E1 ( SX )@@G@@D1MD9G (NCTC ([D1[D))^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AS(^[QCDGE( ^[UC(MD8,SY )@@G@@@K@@@A^@)^@)^@)^@0AC)^[[E[K (#CDHE@!E1 EL]CDG^@)^@)^@)^@)^@)^@)^@)E[DCS)SZ )@@G@@BC*AC0 C)E1[D-PC*)FL ELJ 0)^@)@J@@@A^@)^@)^@)^@0AC)^[[E[K (#CDHE@!EDPCDITA )@@G@@E))^@)^@)^@)^@)^@)^@)E[DCS)BC*AC0 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0TB )@@G@@AC)^[[E[K (#CDHE@!E1 EL]CDG (#D1O^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGTC )@@G@@E( ^[UC(MD8,@K@@@A^@)^@)^@)^@0AC)^[[E[K (#CDHE@!EDPCDIE)!CTIE))^@)^@)^@)TD )@@G@@^@)^@)^@)E[DCS)BC*A)(^[QCDGE( ^[UC(MD8,^@)@J@@@A^@)^@)^@)^@0AC)^[[E[K (#TE )@@G@@CDHE@!CDICDG^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MD8,^@)@K@@@ATF )@@G@@^@)^@)^@)^@0AC)^[[E[K (#CDHE@!CDICDG (#D1O^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9TG )@@G@@ @4 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[E1 ([E[K (#CDHE@!E1 EL]TH )@@G@@CDG^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AS(^[QCDGE( ^[UC(MD8,@K@@@A^@)^@)^@)^@0TI )@@G@@AC)^[[E1 ([E[K (#CDHE@!EDPCDIE))^@)^@)^@)^@)^@)^@)E[DCS)BC*AS(^[QCDGE( TJ )@@G@@^[UC(MD8,^@)@K@@@A^@)^@)^@)^@0AC)^[[E1 ([E[K (#CDHE@!CDICDG^@)^@)^@)^@)TK )@@G@@^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[C-HDDOTL )@@G@@ (#CDHE@!E1 EL]CDG^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MD8,^@)TM )@@G@@@J@@@A^@)^@)^@)^@0AC)^[[C-HDDO (#CDHE@!EDPCDIE))^@)^@)^@)^@)^@)^[KDD#^@9TN )@@G@@ @1A@(^[QCDGE( ^[UC(MD8,@L@@@A^@)^@)^@)^@0AC)^[[C-HDDO (#CDHE@!E1 EL]CDGTO )@@G@@ (#D1O^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)TP )@@G@@^@)^@0AC)^[[C-HDDO (#CDHE@!EDPCDIE)!CTIE))^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)TQ )@@G@@E1[D-PC*)FL ELJ 0)@J@@@A^@)^@)^@)^@0AC)^[[C-HDDO (#CDHE@!CDICDG^@)^@)^@)TR )@@G@@^@)^@)^@)E[DCS)BC*AC0 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[C-HDDOTS )@@G@@ (#CDHE@!CDICDG (#D1O^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGE( ^[UC(MD8,TT )@@G@@@L@@@A^@)^@)^@)^@0AC)^[[E1 ([C-HDDO (#CDHE@!E1 EL]CDG^@)^@)^@)^@)^@)^@)TU )@@G@@^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0AC)^[[E1 ([C-HDDOTV )@@G@@ (#CDHE@!EDPCDIE))^@)^@)^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)@K@@@ATW )@@G@@^@)^@)^@)^@0AC)^[[E1 ([C-HDDO (#CDHE@!CDICDG^@)^@)^@)^@)^@)^@)^@)E[DCS)TX )@@G@@BC*AS(^[QCDGE( ^[UC(MD8,@K@@@A^@)^@)^@)^@0AC)^[ D1MD9G (#CDHE@!E1 EL]CDGTY )@@G@@^@)^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UC(MD8,^@)@J@@@A^@)^@)^@)^@0TZ )@@G@@AC)^[ D1MD9G (#CDHE@!EDPCDIE))^@)^@)^@)^@)^@)^[KDD#^@9 @1A@(^[QCDGE( ^[UUA )@@G@@C(MD8,@L@@@A^@)^@)^@)^@0AC)^[ D1MD9G (#CDHE@!E1 EL]CDG (#D1O^@)^@)^@)^@)UB )@@G@@^@)^@)^[KDD#^@9 @4 C)E1[D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0AC)^[ D1MD9GUC )@@G@@ (#CDHE@!EDPCDIE)!CTIE))^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)E1[D-PC*)FL ELJ 0)UD )@@G@@@J@@@A^@)^@)^@)^@0AC)^[ D1MD9G (#CDHE@!CDICDG^@)^@)^@)^@)^@)^@)E[DCS)BC*UE )@@G@@AC0 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[ D1MD9G (#CDHE@!CDICDG (#UF )@@G@@D1O^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*A)(^[QCDGE( ^[UC(MD8,@L@@@A^@)^@)^@)^@0UG )@@G@@AC)^[[E1 ( D1MD9G (#CDHE@!E1 EL]CDG^@)^@)^@)^@)^@)^@)^[KDD#^@9 @3 C)E1[UH )@@G@@D-PC*)FL ELJ 0)^@)@K@@@A^@)^@)^@)^@0AC)^[[E1 ( D1MD9G (#CDHE@!EDPCDIE))UI )@@G@@^@)^@)^@)^@)^@)^[KDD#^@9 @3 C)E1[D-PC*)FL ELJ 0)@K@@@A^@)^@)^@)^@0AC)^[[UJ )@@G@@E1 ( D1MD9G (#CDHE@!CDICDG^@)^@)^@)^@)^@)^@)^@)E[DCS)BC*AS(^[QCDGE( ^[UUK )@@G@@C(MD8,@#@@@A^@)^@)^@) 8)^@)^@)@A@@@A^@)^@)^@)^[MC(KD9ME))ET CTODDJD0,^@)UL )@@G@@ UM )@@G@@ 000+00 +000000+000000+000000+000000+000000+UN )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000UO )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0UP )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000UQ )@@G@@0+000000+000000+000000+000000+000000999999000000 UR )@@G@@ C5F351US )@@G@@@E#@E#@@8NON093508708HAA8E > MAR0 >M81MS999915 SUNSET TERR UT )@@G@@ APALACHIN NY 13732COLONIAL QUAD/BX911 ALBANY NY 122UU )@@G@@22 00007907+00 C5F351@E#@E#@@8NON093508708HAA8E > MAR0 UV )@@G@@>M81MS999915 SUNSET TERR APALACHIN NY 13732COLONIAL QUAD/BUW )@@G@@X911 ALBANY NY 12222 00007907+00 UX )@@G@@ +000000+000000+000000+000000+000000+000000+000000+000000+000UY )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000+00000UZ )@@G@@0+000000+000000+000000+000000+000000+000000+000000+000000+000000+000000+VA )@@G@@000000+000000+000000+000000+000000+000000+000000 VB )@@G@@ 86405 VC )@@G@@240+00790515790526+000000+000000+000000+000000+000000+000000+000000+0000VD )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0VE )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000VF )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00VG )@@G@@0000+000000+000000999999000000F VH )@@G@@ 000+00 VI )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000VJ )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999VK )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999VL )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000VM )@@G@@999999000000 VN )@@G@@ 000+00 +000000+000000+000VO )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+VP )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000VQ )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0VR )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 VS )@@G@@ VT )@@G@@ 000+00 +000000+000000+000000+000000+000000+VU )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000VV )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0VW )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000VX )@@G@@0+000000+000000+000000+000000+000000999999000000 VY )@@G@@ VZ )@@G@@000+00 +000000+000000+000000+000000+000000+000000+000000+0000WA )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0WB )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000WC )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00WD )@@G@@0000+000000+000000999999000000 WE )@@G@@ 000+00 WF )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000WG )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999WH )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999WI )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000WJ )@@G@@999999000000 WK )@@G@@ 000+00 +000000+000000+000WL )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+WM )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000WN )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0WO )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 WP )@@G@@ WQ )@@G@@ 000+00 +000000+000000+000000+000000+000000+WR )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000WS )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0WT )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000WU )@@G@@0+000000+000000+000000+000000+000000999999000000 WV )@@G@@ N3_X.NWW )@@G@@@E#@E#@@9RMA094546050HAL5ERN > LES1IE >F81FS9999358 W IVY LN WX )@@G@@ ENGLEWOOD NJ 07631240 WESTERN AVE ALBANY NY 122WY )@@G@@03 00008101+00 N3_X.N@E#@E#@@9RMA094546050HAL5ERN > LES1IE WZ )@@G@@>F81FS9999358 W IVY LN ENGLEWOOD NJ 07631240 WESTERN AVEXA )@@G@@ ALBANY NY 12203 00008101+00 XB )@@G@@ +003800+013300+000000+000000+000000+013300+000000+000000+000XC )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000+05150XD )@@G@@0+159220+000000+000000+000000+159220+000000+000000+000000+000000+000000+XE )@@G@@000000+000000+000000+000000+000000+000000+000000 XF )@@G@@ 86405 XG )@@G@@350+00800903810124+003800+013300+000000+000000+000000+013300+000000+0000XH )@@G@@00+000000801208801231+000000+000000+000000+00000@A@@@A^@)^@)^@)^[MC))^[LXI )@@G@@D-K (MC(KD9ME))^@)@L@@@A^@)^@)^@)^@)^@)^[#D9IE-MD9GES)CDMC*)C1DD1[D))^[[XJ )@@G@@E[K (NCTCD9JD))^[[E[K (KELJC9MCDH^@)CDKE@!C- C9MC( ^@)@D@@@A^@)^@)^@)^@)XK )@@G@@^@)^[KCDBC*)D-DD(DE))DDN^@6A0)D-DD1 ES)^@)@A@@@A^@)^@)^@)^@)^@)^[CC([C-DXL )@@G@@D1B^@7^@)^@)@B@@@A^@)^@)^@)^@)^@)^[ADDMETO^[^C(OCDDD))AC6^@)@B@@@A^@)^@)XM )@@G@@^@)^@)^@)^[GCDNE))C- E-[DDG^@6A@,^@)@C@@@A^@)^@)^@)^@0AC)^[OFDKC*)E[[C9 XN )@@G@@^[CC([C-DD1B 0)^@)@D@@@A^@)^@)^@)^@)^@)^@0AK)^[GDDIC*)D1PD(]C(M^[DES)A8,XO )@@G@@^@)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A*3^@)^@)^@)^@)^@)^@)XP )@@G@@^@)^[KDD#^[S @2A8(^@)^[QCDGE( @F@@@A^@)^@)^@)^@)^@)^@$ETOCDOC*)E(IDDQ 0)XQ )@@G@@D9A^[IFC)CDO^[[D-]CDIFC$ 0)^@)@D@@@A^@)^@)^@)^@)^@)^@0AK)^[GDDIC*)D1PD(]XR )@@G@@C(M^[DES)B@,^@)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC)^@)^@)XS )@@G@@^@)^@)^@)^@)^@)^[KDD#^[S @1A8(^@)^[QCDGE( @D@@@A^@)^@)^@)^@)^@)^@$EL E[JXT )@@G@@ELO^[ID8,^@2A00BC5A)$ 0)^@)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HXU )@@G@@D0)A)9^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @2BC(^@)^[QCDGE( @G@@@A^@)^@)^@)^@)XV )@@G@@^@)^@$EL E[JELO^[JD0)D( CDI^[BEL ^[NCTJEL ES)C1JEK$ 0)^@)^@)@K@@@A^@)^@)XW )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A89^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)XX )@@G@@^@)^[ND9PEL#C*)^@)@B@@@A^@)^@)^@)^@)^@)^[NC(H (NC(HD( ETOC(M 0)^@)@L@@@AXY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC0A@)^@)^@)^@)^@)^@)^@)^[KDD#^[SXZ )@@G@@F@\^@)^@)^[ND9PEL#C*)D(J 0)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HYA )@@G@@D0)AC0AS)^@)^@)^@)^@)^@)^@)^[KDD#^[SF@\^@)^@)^[ND9PEL#C*)C-^ 0)^@)@L@@@AYB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC0A0)^@)^@)^@)^@)^@)^@)^[KDD#^[SYC )@@G@@F@)^@)^@)^[ND9PEL#C*)FDT 0)^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HYD )@@G@@D0)AC1AK)^@)^@)^@)^@)^@)^@)^[KDD#^[S @4 C)^@)^[QCDGE( ^@$E[[C9 ^8,^@)^@)YE )@@G@@@K@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC1B@)^@)^@)^@)^@)^@)^@)^[KYF )@@G@@DD#^[UFK9^@)^@)^[ND9PEL#C*)^@)@A@@@A^@)^@)^@)^@)^@)^[KCDBC*!CTJE(IE- EK,YG )@@G@@@D@@@A^@)^@)^@)^@)^@)^@0AK)^[GDDIC*)D1PD(]C(M^[DES)AC0 0)^@)@K@@@A^@)^@)YH )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A*0^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @3A@(YI )@@G@@^@)^[ND9PEL#C*)^@)@A@@@A^@)^@)^@)^@)^@)^[CC-B (DD1AD8,^@)^@)@D@@@A^@)^@)YJ )@@G@@^@)^@)^@)^@0AK)^[GDDIC*)D1PD(]C(M^[DES)AC3 0)^@)@J@@@A^@)^@)^@)^@)^@)^@)YK )@@G@@^@)^@0AS)^[#D9GE(HD0)AC)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @9 C)^@)^[QCDGE( YL )@@G@@@A@@@A^@)^@)^@)^@)^@)^@$ETDF@)C-DC9DE)$ 0)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0YM )@@G@@AS)^[#D9GE(HD0)AS4^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @2AS(^@)^[QCDGE( @E@@@AYN )@@G@@^@)^@)^@)^@)^@)^@$ *! *! *! ([E[KD-DC(^ *! *! *! *! *$ 0)^@)@L@@@A^@)^@)YO )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A04^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)YP )@@G@@^@)^[QCDGE( ^@$ K$ 0)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A08YQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @2AS(^@)^[QCDGE( @E@@@A^@)^@)^@)^@)^@)^@$YR )@@G@@ *! *! *! ([C-HDDOE- C)! *! *! *! *$ 0)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0YS )@@G@@AS)^[#D9GE(HD0)BC8^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ K$YT )@@G@@ 0)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC0AK)^@)^@)^@)^@)^@)YU )@@G@@^@)^[KDD#^[S @1B@(^@)^[QCDGE( @D@@@A^@)^@)^@)^@)^@)^@$ *! *! *!C(IELJD-GYV )@@G@@C(^ *! *!^8,^@)^@)@D@@@A^@)^@)^@)^@)^@)^@0AK)^[GDDIC*)D1PD(]C(M^[DES)AC4YW )@@G@@ 0)^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A))^@)^@)^@)^@)^@)^@)YX )@@G@@^@)E[DCS)F@*A)(^@)^@)E1[D-PC*)^9#D9^C*$ 0)^@)^@)@M@@@A^@)^@)^@)^@)^@)^@)YY )@@G@@^@)^@0AS)^[#D9GE(HD0)AS4^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @6 C)^@)^[QCDGE( YZ )@@G@@^@$E1 EL]CDG^8,^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A)4^@)^@)ZA )@@G@@^@)^@)^@)^@)^@)^[KDD#^[S @5 C)^@)^[QCDGE( ^@$EDPCDIE)$ 0)^@)@M@@@A^@)^@)ZB )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A*4^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @4 C)ZC )@@G@@^@)^[QCDGE( ^@$CDICDG^8,^@)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HZD )@@G@@D0)A04^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ K$ 0)^@)@M@@@AZE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A08^@)^@)^@)^@)^@)^@)^@)^[KDD#^[SZF )@@G@@ @6 C)^@)^[QCDGE( ^@$E1 EL]CDG^8,^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#ZG )@@G@@D9GE(HD0)A88^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @5 C)^@)^[QCDGE( ^@$EDPCDIE)$ZH )@@G@@ 0)^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)B@8^@)^@)^@)^@)^@)^@)ZI )@@G@@^@)^[KDD#^[S @4 C)^@)^[QCDGE( ^@$CDICDG^8,^@)^@)@L@@@A^@)^@)^@)^@)^@)^@)ZJ )@@G@@^@)^@0AS)^[#D9GE(HD0)BC8^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ZK )@@G@@^@$ K$ 0)^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC0AK)^@)^@)^@)ZL )@@G@@^@)^@)^@)^[KDD#^[S @6 C)^@)^[QCDGE( ^@$E1 EL]CDG^8,^@)@M@@@A^@)^@)^@)^@)ZM )@@G@@^@)^@)^@)^@0AS)^[#D9GE(HD0)AC1AK)^@)^@)^@)^@)^@)^@)^[KDD#^[S @5 C)^@)^[QZN )@@G@@CDGE( ^@$EDPCDIE)$ 0)^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC2ZO )@@G@@AK)^@)^@)^@)^@)^@)^@)^[KDD#^[S @4 C)^@)^[QCDGE( ^@$CDICDG^8,^@)^@)@F@@@AZP )@@G@@^@)^@)^@)^@0AC)^[^C(BEL C*!C1JD9O^[OFDKC*)CTA^[[E[K (^C(BEL C*,^@)@E@@@AZQ )@@G@@^@)^@)^@)^@)^@)^@0AK)^[GDDIC*)D1PD(]C(M^[DES)E[GE(N^@3 0)^@)@M@@@A^@)^@)ZR )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @6 C)ZS )@@G@@^[ND9PEL#C*)E9N *6C-DC9DE),^@)@H@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HZT )@@G@@D0)AC0^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @1AK(@D@@@A^@)^@)^@)^@)^@)^@)^@)^@)ZU )@@G@@^@)^[ND9PEL#C*)ETCE)!E-MCDIES,@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HZV )@@G@@D0)AS3^[KDD#^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!CTJE(IE)) @1 C,^@)@K@@@AZW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AS9^[KDD#^[UFLU^[ND9PEL#C*)^[[E1 ZX )@@G@@ ([E[K (^C(B (QC(MCL[D),@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A)3ZY )@@G@@^[KDD#^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!CTJE(IE)) @2 C,^@)@K@@@A^@)^@)ZZ )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A)9^[KDD#^[UFLU^[ND9PEL#C*)^[[E1 ([E[KAA )@@G@@ (^C(B (LE([D1O 0)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A*3^[KDD#AB )@@G@@^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!CTJE(IE)) @3 C,^@)@K@@@A^@)^@)^@)^@)AC )@@G@@^@)^@)^@)^@0AS)^[#D9GE(HD0)A*9^[KDD#^[UFLU^[ND9PEL#C*)^[[E1 ([E[K (^C(BAD )@@G@@ ([D1[D),^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A04^@)^@)^@)^@)AE )@@G@@^@)^@)^@)^[KDD#^[S^@)^@)00+000000999999000000+000000+000000+000000+00000AF )@@G@@0+000000+000000+000000+000000+000000999999000000 AG )@@G@@ AH )@@G@@000+00 +000000+000000+000000+000000+000000+000000+000000+0000AI )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0AJ )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000AK )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00AL )@@G@@0000+000000+000000999999000000 AM )@@G@@ 000+00 AN )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000AO )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999AP )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999AQ )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000AR )@@G@@999999000000 AS )@@G@@ 000+00 +000000+000000+000AT )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+AU )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000AV )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0AW )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 AX )@@G@@ AY )@@G@@ 000+00 +000000+000000+000000+000000+000000+AZ )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000BA )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0BB )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000BC )@@G@@0+000000+000000+000000+000000+000000999999000000 BD )@@G@@ %A\;+!BE )@@G@@@E#@E#@@;NON096468870HAN8ON > ROB%RT >N79MS0000355 VIOLET AVE BF )@@G@@ POUGHKEEPSIE NY 12601INDIAN QUAD ALBANY NY 122BG )@@G@@22 00007906+00 %A\;+!@E#@E#@@;NON096468870HAN8ON > ROB%RT BH )@@G@@>N79MS0000355 VIOLET AVE POUGHKEEPSIE NY 12601INDIAN QUAD BI )@@G@@ ALBANY NY 12222 00007906+00 BJ )@@G@@ +000000+000000+000000+000000+000000+000000+000000+000000+000BK )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000+00000BL )@@G@@0+000000+000000+000000+000000+000000+000000+000000+000000+000000+000000+BM )@@G@@000000+000000+000000+000000+000000+000000+000000 BN )@@G@@ 86570 BO )@@G@@240+00780821790525+000000+000000+000000+000000+000000+000000+000000+0000BP )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0BQ )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000BR )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00BS )@@G@@0000+000000+000000999999000000P BT )@@G@@ 000+00 BU )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000BV )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999BW )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999BX )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000BY )@@G@@999999000000 BZ )@@G@@ 000+00 +000000+000000+000CA )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+CB )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000CC )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0CD )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 CE )@@G@@ CF )@@G@@ 000+00 +000000+000000+000000+000000+000000+CG )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000CH )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0CI )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000CJ )@@G@@0+000000+000000+000000+000000+000000999999000000 CK )@@G@@ CL )@@G@@000+00 +000000+000000+000000+000000+000000+000000+000000+0000CM )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0CN )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000CO )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00CP )@@G@@0000+000000+000000999999000000 CQ )@@G@@ 000+00 CR )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000CS )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999CT )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999CU )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000CV )@@G@@999999000000 CW )@@G@@ 000+00 +000000+000000+000CX )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+CY )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000CZ )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0DA )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 DB )@@G@@^@)^[QCDGE( ^@$ K$ 0)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A07DC )@@G@@^[KDD#^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!CTJE(IE)) @4 C,^@)@L@@@A^@)^@)DD )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A83^[KDD#^[UFLU^[ND9PEL#C*)^[[E1 ([C-HDE )@@G@@DDO (^C(B (QC(MCL[D),^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A87DF )@@G@@^@)E[DCS)F@*A0(^[ND9PEL#C*)E9N (^DDNE[GCDT (#D9PD1O^@*A*( 0)^@)^@)@L@@@ADG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)B@3^@)E[DCS)FLUFK)ETJE(MCT ^@)CDQDH )@@G@@C*!CD^D(DE)!C- C8!EDPCDIE),^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HDI )@@G@@D0)B@7^@)E[DCS)F@*A0(^[ND9PEL#C*)E9N (^DDNE[GCDT (#D9PD1O^@*A0( 0)^@)^@)DJ )@@G@@@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)BC3^@)E[DCS)FLUFK)ETJE(MCT DK )@@G@@^@)CDQC*!CD^D(DE)!C- C8!CDICDG 0)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#DL )@@G@@D9GE(HD0)BC8^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ K$ 0)^@)DM )@@G@@@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC0AC)E[DCS)F@*A0(^[ND9PEL#DN )@@G@@C*)E9N (^DDNE[GCDT (#D9PD1O^@*A8( 0)^@)^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0DO )@@G@@AS)^[#D9GE(HD0)AC0A8)E[DCS)FLUFK)ETJE(MCT ^@)CDQC*!C(IELJD)!C- C8!E1 EL]DP )@@G@@CDG 0)^@)^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC1AC)E[DCS)F@*DQ )@@G@@A0(^[ND9PEL#C*)E9N (^DDNE[GCDT (#D9PD1O^@*B@( 0)^@)^@)@L@@@A^@)^@)^@)^@)DR )@@G@@^@)^@)^@)^@0AS)^[#D9GE(HD0)AC1A8)E[DCS)FLUFK)ETJE(MCT ^@)CDQC*!C(IELJD)!DS )@@G@@C- C8!EDPCDIE),^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC2AC)E[DDT )@@G@@CS)F@*A0(^[ND9PEL#C*)E9N (^DDNE[GCDT (#D9PD1O^@*BC( 0)^@)^@)@L@@@A^@)^@)DU )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC2A8)E[DCS)FLUFK)ETJE(MCT ^@)CDQC*!C(IDV )@@G@@ELJD)!C- C8!CDICDG 0)^@)@G@@@A^@)^@)^@)^@0AC)^[KELJC9MCDH (AD9JE))E-TE[ DW )@@G@@^[#C0)CDKE@!E[MD9BEL[D*,^@)^@)@E@@@A^@)^@)^@)^@)^@)^@0AK)^[GDDIC*)D1PD(]DX )@@G@@C(M^[DES)E[GE(N^@3 0)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC)DY )@@G@@^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @2BC(^@)^[QCDGE( @G@@@A^@)^@)^@)^@)^@)^@$DZ )@@G@@ K%^@)E-JE-[D))E-CDDN^[^C(KCDME-HC(IE))^@% K$ 0)^@)^@)@L@@@A^@)^@)^@)^@)EA )@@G@@^@)^@)^@)^@0AS)^[#D9GE(HD0)AS3^[KDD#^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!EB )@@G@@CTJE(IE)) @1 C,^@)@K@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AS9^[KDD#EC )@@G@@^[UFLU^[ND9PEL#C*)^[[E1 ([E[K (KELB (QC(MCL[D),@L@@@A^@)^@)^@)^@)^@)^@)ED )@@G@@^@)^@0AS)^[#D9GE(HD0)A)3^[KDD#^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!CTJE(IEE )@@G@@E)) @2 C,^@)@K@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A)9^[KDD#^[UFLUEF )@@G@@^[ND9PEL#C*)^[[E1 ([E[K (KELB (LE([D1O 0)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0EG )@@G@@AS)^[#D9GE(HD0)A*3^[KDD#^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!CTJE(IE)) @3EH )@@G@@ C,^@)@K@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A*9^[KDD#^[UFLU^[ND9PEI )@@G@@EL#C*)^[[E1 ([E[K (KELB ([D1[D),^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#EJ )@@G@@D9GE(HD0)A04^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ K$ 0)^@)EK )@@G@@@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A07^[KDD#^[S @6 C)ETJE(MCT EL )@@G@@^[RES!C-DETKD-[FC!CTJE(IE)) @4 C,^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#EM )@@G@@D9GE(HD0)A83^[KDD#^[UFLU^[ND9PEL#C*)^[[E1 ([C-HDDO (KELB (QC(MCL[D),^@)EN )@@G@@@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A87^[KDD#^[S @6 C)ETJE(MCT EO )@@G@@^[RES!C-DETKD-[FC!CTJE(IE)) @5 C,^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#EP )@@G@@D9GE(HD0)B@3^[KDD#^[UFLU^[ND9PEL#C*)^[[E1 ([C-HDDO (KELB (LE([D1O 0)^@)EQ )@@G@@@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)B@7^[KDD#^[S @6 C)ETJE(MCT ER )@@G@@^[RES!C-DETKD-[FC!CTJE(IE)) @6 C,^@)@K@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#ES )@@G@@D9GE(HD0)BC3^[KDD#^[UFLU^[ND9PEL#C*)^[[E1 ([C-HDDO (KELB ([D1[D),@L@@@AET )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)BC8^@)^@)^@)^@)^@)^@)^@)^[KDD#^[SEU )@@G@@^@)^@)^@)^[QCDGE( ^@$ K$ 0)^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HEV )@@G@@D0)AC0AC)E[DCS)F@*A0(^[ND9PEL#C*)E9N (^DDNE[GCDT (#D9PD1O^@*A8( 0)^@)^@)EW )@@G@@@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC0A8)E[DCS)FLUFK)ETJE(MCT EX )@@G@@^@)CDQC*!C(IELJD)!E[MC8!E1 EL]CDG 0)^@)^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0EY )@@G@@AS)^[#D9GE(HD0)AC1AC)E[DCS)F@*A0(^[ND9PEL#C*)E9N (^DDNE[GCDT (#D9PD1O^@*EZ )@@G@@B@( 0)^@)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC1A8)E[DCS)FLUFA )@@G@@FK)ETJE(MCT ^@)CDQC*!C(IELJD)!E[MC8!EDPCDIE),^@)@M@@@A^@)^@)^@)^@)^@)^@)FB )@@G@@^@)^@0AS)^[#D9GE(HD0)AC2AC)E[DCS)F@*A0(^[ND9PEL#C*)E9N (^DDNE[GCDT (#D9PFC )@@G@@D1O^@*BC( 0)^@)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC2A8)E[DFD )@@G@@CS)FLUFK)ETJE(MCT ^@)CDQC*!C(IELJD)!E[MC8!CDICDG 0)^@)@M@@@A^@)^@)^@)^@0FE )@@G@@AC)^[NCTCD9JD)!C1JD9O^[OFDKC*)CTA^[[E[K (NCTCD9JD))BS)D1 F[O^[BELJE(K^[DFF )@@G@@ES)D1 F[O^[KCDBC*,^@)^@)@E@@@A^@)^@)^@)^@)^@)^@0AK)^[GDDIC*)D1PD(]C(M^[DFG )@@G@@ES)E[GE(N^@3 0)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AS)^@)^@)FH )@@G@@^@)^@)^@)^@)^@)^[KDD#^[S @2AC(^@)^[QCDGE( @D@@@A^@)^@)^@)^@)^@)^@$ K)E-JFI )@@G@@E-[D))E-CDDN^[NCTCD9JD)) K$ 0)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HFJ )@@G@@D0)AS3^[KDD#^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!CTJE(IE)) @1 C,^@)@K@@@AFK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AS9^[KDD#^[UFLU^[ND9PEL#C*)^[[E1 FL )@@G@@ ([E[K (NCTC (QC(MCL[D),@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A)3FM )@@G@@^[KDD#^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!CTJE(IE)) @2 C,^@)@K@@@A^@)^@)FN )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A)9^[KDD#^[UFLU^[ND9PEL#C*)^[[E1 ([E[KFO )@@G@@ (NCTC (LE([D1O 0)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A*3^[KDD#FP )@@G@@^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!CTJE(IE)) @3 C,^@)@K@@@A^@)^@)^@)^@)FQ )@@G@@^@)^@)^@)^@0AS)^[#D9GE(HD0)A*9^[KDD#^[UFLU^[ND9PEL#C*)^[[E1 ([E[K (NCTCFR )@@G@@ ([D1[D),^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A04^@)^@)^@)^@)FS )@@G@@^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ K$ 0)^@)@L@@@A^@)^@)^@)^@)^@)^@)FT )@@G@@^@)^@0AS)^[#D9GE(HD0)A07^[KDD#^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!CTJE(IFU )@@G@@E)) @4 C,^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A83^[KDD#^[UFLUFV )@@G@@^[ND9PEL#C*)^[[E1 ([C-HDDO (NCTC (QC(MCL[D),^@)@L@@@A^@)^@)^@)^@)^@)^@)FW )@@G@@^@)^@0AS)^[#D9GE(HD0)A87^[KDD#^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!CTJE(IFX )@@G@@E)) @5 C,^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#0+000000+000000+000000+0FY )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000FZ )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00GA )@@G@@0000+000000+000000999999000000P GB )@@G@@ 90406 325+00800121800329GC )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000GD )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999GE )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999GF )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000GG )@@G@@999999000000P GH )@@G@@ 000+00 +000000+000000+000GI )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+GJ )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000GK )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0GL )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 GM )@@G@@ GN )@@G@@ 000+00 +000000+000000+000000+000000+000000+GO )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000GP )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0GQ )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000GR )@@G@@0+000000+000000+000000+000000+000000999999000000 GS )@@G@@ GT )@@G@@000+00 +000000+000000+000000+000000+000000+000000+000000+0000GU )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0GV )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000GW )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00GX )@@G@@0000+000000+000000999999000000 GY )@@G@@ 000+00 GZ )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000HA )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999HB )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999HC )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000HD )@@G@@999999000000 HE )@@G@@ 000+00 +000000+000000+000HF )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+HG )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000HH )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0HI )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 HJ )@@G@@ HK )@@G@@ 000+00 +000000+000000+000000+000000+000000+HL )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000HM )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0HN )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000HO )@@G@@0+000000+000000+000000+000000+000000999999000000 HP )@@G@@ (2L3?HHQ )@@G@@@E#@E#@@"NON096547469IRW,N > PHI1LIP >R80MS9999PO BOX 188-B HR )@@G@@ WEST MONROE NY 13167325 WESTERN AVE ALBANY NY 122HS )@@G@@03 00007906+00 (2L3?H@E#@E#@@"NON096547469IRW,N > PHI1LIP HT )@@G@@>R80MS9999PO BOX 188-B WEST MONROE NY 13167325 WESTERN AVEHU )@@G@@ ALBANY NY 12203 00007906+00 HV )@@G@@ +000000+000000+000000+000000+000000+000000+000000+000000+000HW )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000+00000HX )@@G@@0+000000+000000+000000+000000+000000+000000+000000+000000+000000+000000+HY )@@G@@000000+000000+000000+000000+000000+000000+000000 HZ )@@G@@ IA )@@G@@000+00 +000000+000000+000000+000000+000000+000000+000000+0000IB )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0IC )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000ID )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00IE )@@G@@0000+000000+000000999999000000 IF )@@G@@ 86835 225+00790401790526IG )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000IH )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999II )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999IJ )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000IK )@@G@@999999000000P IL )@@G@@ 000+00 +000000+000000+000IM )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+IN )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000IO )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0IP )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 IQ )@@G@@ IR )@@G@@ 000+00 +000000+000000+000000+000000+000000+IS )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000IT )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0IU )@@G@@00000+000000+000000+0000D9GE(HD0)B@3^[KDD#^[UFLU^[ND9PEL#C*)^[[E1 ([C-HIV )@@G@@DDO (NCTC (LE([D1O 0)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)B@7IW )@@G@@^[KDD#^[S @6 C)ETJE(MCT ^[RES!C-DETKD-[FC!CTJE(IE)) @6 C,^@)@K@@@A^@)^@)IX )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)BC3^[KDD#^[UFLU^[ND9PEL#C*)^[[E1 ([C-HIY )@@G@@DDO (NCTC ([D1[D),@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)BC8^@)^@)IZ )@@G@@^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ K$ 0)^@)@M@@@A^@)^@)^@)^@)JA )@@G@@^@)^@)^@)^@0AS)^[#D9GE(HD0)AC0AC)E[DCS)F@*A0(^[ND9PEL#C*)E9N (^DDNE[GCDTJB )@@G@@ (#D9PD1O^@*A8( 0)^@)^@)@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC0JC )@@G@@A8)E[DCS)FLUFK)ETJE(MCT ^@)CDQC*!C(IELJD)!ET#D@!E1 EL]CDG 0)^@)^@)@M@@@AJD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC1AC)E[DCS)F@*A0(^[ND9PEL#C*)E9NJE )@@G@@ (^DDNE[GCDT (#D9PD1O^@*B@( 0)^@)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#JF )@@G@@D9GE(HD0)AC1A8)E[DCS)FLUFK)ETJE(MCT ^@)CDQC*!C(IELJD)!ET#D@!EDPCDIE),^@)JG )@@G@@@M@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC2AC)E[DCS)F@*A0(^[ND9PEL#JH )@@G@@C*)E9N (^DDNE[GCDT (#D9PD1O^@*BC( 0)^@)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0JI )@@G@@AS)^[#D9GE(HD0)AC2A8)E[DCS)FLUFK)ETJE(MCT ^@)CDQC*!C(IELJD)!ET#D@!CDICDGJJ )@@G@@ 0)^@)@E@@@A^@)^@)^@)^@0AC)^[#CDHE[PES!C1JD9O^[OFDKC*)CTA^[ADDICDG 0)^@)JK )@@G@@@D@@@A^@)^@)^@)^@)^@)^@0AK)^[GDDIC*)D1PD(]C(M^[DES)AC7 0)^@)@J@@@A^@)^@)JL )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AS)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @1A8(JM )@@G@@^@)^[QCDGE( @D@@@A^@)^@)^@)^@)^@)^@$ K)CT[D(KE(N^[OD9OCDGES) K$ 0)^@)^@)JN )@@G@@@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AS3^@)^@)^@)^@)^@)^@)^@)^[KJO )@@G@@DD#^[S^@)^@)^@)^[QCDGE( ^@$ @$ 0)^@)@K@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#JP )@@G@@D9GE(HD0)AS4^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9BC9BC)^@)^[ND9PEL#C*)^@)@D@@@AJQ )@@G@@^@)^@)^@)^@)^@)^[[E[K (#CDHE@!E1 EL]CDG (#D1O 0)^@)^@)@L@@@A^@)^@)^@)^@)JR )@@G@@^@)^@)^@)^@0AS)^[#D9GE(HD0)AS8^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QJS )@@G@@CDGE( ^@$ C$ 0)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AS9^@)^@)JT )@@G@@^@)^@)^@)^@)^@)^[KDD#^[UFLU^@)^@)ETJE(MCT @D@@@A^@)^@)^@)^@)^@)^[[E1 ([JU )@@G@@E[K (#CDHE@!E1 EL]CDG 0)^@)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HJV )@@G@@D0)A)3^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ @$ 0)^@)@K@@@AJW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A)4^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9JX )@@G@@BC9BC)^@)^[ND9PEL#C*)^@)@C@@@A^@)^@)^@)^@)^@)^[[E[K (#CDHE@!EDPCDIE)!CTIJY )@@G@@E),^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A)8^@)^@)^@)^@)^@)^@)JZ )@@G@@^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ C$ 0)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0KA )@@G@@AS)^[#D9GE(HD0)A)9^@)^@)^@)^@)^@)^@)^@)^[KDD#^[UFLU^@)^@)ETJE(MCT @C@@@AKB )@@G@@^@)^@)^@)^@)^@)^[[E1 ([E[K (#CDHE@!EDPCDIE),^@)@L@@@A^@)^@)^@)^@)^@)^@)KC )@@G@@^@)^@0AS)^[#D9GE(HD0)A*3^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( KD )@@G@@^@$ @$ 0)^@)@K@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A*4^@)^@)^@)^@)KE )@@G@@^@)^@)^@)^[KDD#^@9BC9BC)^@)^[ND9PEL#C*)^@)@C@@@A^@)^@)^@)^@)^@)^[[E[K (#KF )@@G@@CDHE@!CDICDG (#D1O 0)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A*8KG )@@G@@^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ C$ 0)^@)@J@@@A^@)^@)KH )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A*9^@)^@)^@)^@)^@)^@)^@)^[KDD#^[UFLU^@)KI )@@G@@^@)ETJE(MCT @C@@@A^@)^@)^@)^@)^@)^[[E1 ([E[K (#CDHE@!CDICDG 0)^@)@L@@@AKJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A04^@)^@)^@)^@)^@)^@)^@)^[KDD#^[SKK )@@G@@^@)^@)^@)^[QCDGE( ^@$ K$ 0)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HKL )@@G@@D0)A07^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ @$ 0)^@)@K@@@AKM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A08^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9KN )@@G@@BC9BC)^@)^[ND9PEL#C*)^@)@D@@@A^@)^@)^@)^@)^@)^[[C-HDDO (#CDHE@!E1 EL]CDGKO )@@G@@ (#D1O 0)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A82^@)^@)^@)^@)KP )@@G@@^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ C$ 0)^@)@J@@@A^@)^@)^@)^@)^@)^@)KQ )@@G@@^@)^@0AS)^[#D9GE(HD0)A83^@)^@)^@)^@)^@)^@)^@)^[KDD#^[UFLU^@)^@)ETJE(MCT KR )@@G@@@D@@@A^@)^@)^@)^@)^@)^[[E1 ([C-HDDO (#CDHE@!E1 EL]CDG 0)^@)@L@@@A^@)^@)KS )@@G@@^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A87^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)KT )@@G@@^@)^[QCDGE( ^@$ @$ 0)^@)@K@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)A88KU )@@G@@^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9BC9BC)^@)^[ND9PEL#C*)^@)@D@@@A^@)^@)^@)^@)KV )@@G@@^@)^[[C-HDDO (#CDHE@!EDPCDIE)!CTIE),^@)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0KW )@@G@@AS)^[#D9GE(HD0)B@2^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ C$KX )@@G@@ 0)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)B@3^@)^@)^@)^@)^@)^@)KY )@@G@@^@)^[KDD#^[UFLU^@)^@)ETJE(MCT @D@@@A^@)^@)^@)^@)^@)^[[E1 ([C-HDDO (#CDHKZ )@@G@@E@!EDPCDIE),^@)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)B@7^@)^@)LA )@@G@@^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ @$ 0)^@)@K@@@A^@)^@)^@)^@)LB )@@G@@^@)^@)^@)^@0AS)^[#D9GE(HD0)B@8^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9BC9BC)^@)^[NLC )@@G@@D9PEL#C*)^@)@D@@@A^@)^@)^@)^@)^@)^[[C-HDDO (#CDHE@!CDICDG (#D1O 0)^@)^@)LD )@@G@@@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)BC2^@)^@)^@)^@)^@)^@)^@)^[KLE )@@G@@DD#^[S^@)^@)^@)^[QCDGE( ^@$ C$ 0)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#LF )@@G@@D9GE(HD0)BC3^@)^@)^@)^@)^@)^@)^@)^[KDD#^[UFLU^@)^@)ETJE(MCT @D@@@A^@)^@)LG )@@G@@^@)^@)^@)^[[E1 ([C-HDDO (#CDHE@!CDICDG 0)^@)^@)@L@@@A^@)^@)^@)^@)^@)^@)LH )@@G@@^@)^@0AS)^[#D9GE(HD0)BC8^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( LI )@@G@@^@$ K$ 0)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC0AC)^@)^@)^@)LJ )@@G@@^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ @$ 0)^@)@K@@@A^@)^@)^@)^@)^@)^@)LK )@@G@@^@)^@0AS)^[#D9GE(HD0)AC0AK)^@)^@)^@)^@)^@)^@)^[KDD#^@9BC9BC)^@)^[ND9PEL#LL )@@G@@C*)^@)@D@@@A^@)^@)^@)^@)^@)^[ D1MD9G (#CDHE@!E1 EL]CDG (#D1O 0)^@)@L@@@ALM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC0A0)^@)^@)^@)^@)^@)^@)^[KDD#^[SLN )@@G@@^@)^@)^@)^[QCDGE( ^@$ C$ 0)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HLO )@@G@@D0)AC0A8)^@)^@)^@)^@)^@)^@)^[KDD#^[UFLU^@)^@)ETJE(MCT @D@@@A^@)^@)^@)^@)LP )@@G@@^@)^[[E1 ( D1MD9G (#CDHE@!E1 EL]CDG 0)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0LQ )@@G@@AS)^[#D9GE(HD0)AC1AC)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ @$LR )@@G@@ LS )@@G@@ 000+00 +000000+000000+000000+000000+000000+LT )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000LU )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0LV )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000LW )@@G@@0+000000+000000+000000+000000+000000999999000000 LX )@@G@@ @@@@@@LY )@@G@@@@@@_0@@@[_)@@@]_K@@@#_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@KFYZ*B@E#@E#@[@ 096408412KAP1AN > WIL1IAM MB )@@G@@>A81MS990180 SOUTHSIDE AVE FREEPORT NY 1152080 SOUTHSIDE AVMC )@@G@@E FREEPORT NY 11520 00007907+00 MD )@@G@@ +000000+000000+000000+000000+000000+000000+000000+000000+000ME )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000+00000MF )@@G@@0+000000+000000+000000+000000+000000+000000+000000+000000+000000+000000+MG )@@G@@000000+000000+000000+000000+000000+000000+000000 MH )@@G@@ 90876 MI )@@G@@250+00790515790518+000000+000000+000000+000000+000000+000000+000000+0000MJ )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0MK )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000ML )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00MM )@@G@@0000+000000+000000999999000000P MN )@@G@@ 000+00 MO )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000MP )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999MQ )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999MR )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000MS )@@G@@999999000000 MT )@@G@@ 000+00 +000000+000000+000MU )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+MV )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000MW )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0MX )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 MY )@@G@@ MZ )@@G@@ 000+00 +000000+000000+000000+000000+000000+NA )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000NB )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0NC )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000ND )@@G@@0+000000+000000+000000+000000+000000999999000000 NE )@@G@@ NF )@@G@@000+00 +000000+000000+000000+000000+000000+000000+000000+0000NG )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0NH )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000NI )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00NJ )@@G@@0000+000000+000000999999000000 NK )@@G@@ 000+00 NL )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000NM )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999NN )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999NO )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000NP )@@G@@999999000000 NQ )@@G@@ 000+00 +000000+000000+000NR )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+NS )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000NT )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0NU )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 NV )@@G@@ NW )@@G@@ 000+00 +000000+000000+000000+000000+000000+NX )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000NY )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0NZ )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000OA )@@G@@0+000000+000000+000000+000000+000000999999000000 OB )@@G@@ _)!T_ KAT!RYN >A83FS9999RD1WEATHERBURN APTS5OD )@@G@@BEAST GREENBUSH NY 12061RD1WEATHERBURN APTS5BEAST GREENBUSH NY 120OE )@@G@@61 00008103+00 _)!T_<@E#@E#@[[NON095549738KEL1MAN > KAT!RYN OF )@@G@@>A83FS9999RD1WEATHERBURN APTS5BEAST GREENBUSH NY 12061RD1WEATHERBURN OG )@@G@@APTS5BEAST GREENBUSH NY 12061 00008103+00 OH )@@G@@ +025700+077100+000000+000000+000000+077100+000000+000000+000OI )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000+03580OJ )@@G@@0+107400+000000+000000+000000+107400+000000+000000+000000+000000+000000+OK )@@G@@000000+000000+000000+000000+000000+000000+000000 OL )@@G@@ 90655 OM )@@G@@300+00801020810331+025700+077100+000000+000000+000000+077100+000000+0000ON )@@G@@00+000000801208810227+000000+000000+000000+00000 0)^@)@K@@@A^@)^@)^@)^@)OO )@@G@@^@)^@)^@)^@0AS)^[#D9GE(HD0)AC1AK)^@)^@)^@)^@)^@)^@)^[KDD#^@9BC9BC)^@)^[NOP )@@G@@D9PEL#C*)^@)@D@@@A^@)^@)^@)^@)^@)^[ D1MD9G (#CDHE@!EDPCDIE)!CTIE),^@)^@)OQ )@@G@@@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC1A0)^@)^@)^@)^@)^@)^@)^[KOR )@@G@@DD#^[S^@)^@)^@)^[QCDGE( ^@$ C$ 0)^@)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#OS )@@G@@D9GE(HD0)AC1A8)^@)^@)^@)^@)^@)^@)^[KDD#^[UFLU^@)^@)ETJE(MCT @D@@@A^@)^@)OT )@@G@@^@)^@)^@)^[[E1 ( D1MD9G (#CDHE@!EDPCDIE),^@)^@)@L@@@A^@)^@)^@)^@)^@)^@)OU )@@G@@^@)^@0AS)^[#D9GE(HD0)AC2AC)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( OV )@@G@@^@$ @$ 0)^@)@K@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC2AK)^@)^@)^@)OW )@@G@@^@)^@)^@)^[KDD#^@9BC9BC)^@)^[ND9PEL#C*)^@)@D@@@A^@)^@)^@)^@)^@)^[ D1MD9GOX )@@G@@ (#CDHE@!CDICDG (#D1O 0)^@)^@)@L@@@A^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HOY )@@G@@D0)AC2A0)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^[QCDGE( ^@$ C$ 0)^@)@J@@@AOZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@0AS)^[#D9GE(HD0)AC2A8)^@)^@)^@)^@)^@)^@)^[KDD#^[UPA )@@G@@FLU^@)^@)ETJE(MCT @D@@@A^@)^@)^@)^@)^@)^[[E1 ( D1MD9G (#CDHE@!CDICDG 0)PB )@@G@@^@)^@)@#@@@A^@)^@)^@) 8)^@)^@)@B@@@A^@)^@)^@)^[KELJCT C-PEL ^[^DDQDDNDDJPC )@@G@@D0,^@)@A@@@A^@)^@)^@)^[^C(#D-[EL[E-DE1 ES,^@)^@)@B@@@A^@)^@)^@)^[^D8!C- PD )@@G@@C9MC( ^[NC(#E-DD9I 0)^@)@G@@@A^@)^@)^@)^@)^@)^[PET ^[]C(AD9MC*)EL E[JELOPE )@@G@@DDIC8)C- C9MC( (AD9JE),^@)^@)@A@@@A^@)^@)^@)^[[E1B (^C(BEL C*!CLMC([DS,PF )@@G@@@M@@@A^@)^@)^@) K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%PG )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K%@M@@@A^@)^@)^@) K)^@)^@)^@)E9CPH )@@G@@C(I^[OD[ ^[^C(BEL C*)CTCCDIC9 ES?^[DE)$ES)E-DD( ^[OD8)CTJD(KE(OC*)E-CC*)PI )@@G@@^@)^@)^@)^@%@M@@@A^@)^@)^@) K)^@)^@)^@)CDQC(MCDBC(N^[[D1^^[KELDD1O^[[^[MPJ )@@G@@C(KD9ME))D-DD1 0)^[ADDMETO^[RC*)ET CDMCTC^[OD[ ^@)^@%@M@@@A^@)^@)^@) K)PK )@@G@@^@)^@)^@)E-[CLGC*)D9A^[OEL[D1ND-[E-DD9IES)CDIC))C1DD1^^[OD[ ^[[E[KELJE[MPL )@@G@@DD[E- ^[HD1 D(JD1DCS)^@%@M@@@A^@)^@)^@) K)^@)^@)^@)C1JEK)E-CC*)C- C9MC( PM )@@G@@ 0)^[OD[ D0)E9 ^[^D8)E-CC*)C-DE1DETDD9IES)CDIC))FL ELJ^[JE(O^@)^@%@M@@@APN )@@G@@^@)^@)^@) K)^@)^@)^@)E-CC*)CLPCTFC(OES,^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@%@M@@@A^@)^@)^@) K% K% K% K% K% K% K%PP )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%PQ )@@G@@ K% K%@D@@@E^@)^@)^@)^@)^@)^[NC(O^[NDDS (^DDB (DC-S^[OD8)AC,^@)^@)@D@@@APR )@@G@@^@)^@)^@)^@)^@)^[NC([EL#D@)CDGD))CTJC- (OD8!E-MCDIES)@J@E@A^@)^@)^@)^@)PS )@@G@@^@)^@)^@)^@)^@)^@)^[[E))C(IC))D(JE1 ^[NE[[CT ES)E-J^[RES!E-MCDIES!E1[D))PT )@@G@@^@)^@)@H@@@E^@)^@)^@)^@)^@)^@)^@)^@)^[[E))C(IC))D(JE1 ^[NE[[CT ES)E-J^[RPU )@@G@@ES!E-MCDIES!E1[D))@L@E@A^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[RD[ D0)ETDF@!C-DPV )@@G@@C9DE)!CTJC- ^@*ETDF@!C-DC8!DD^F@(^@.^[RES!A1^DDBDDO^@)@K@@@E^@)^@)^@)^@)PW )@@G@@^@)^@)^@)^@)^[RD[ D0)ETDF@!C-DC9DE)!CTJC- ^@*ETDF@!C-DC8!DD^F@(^@.^[RES!PX )@@G@@A1^DDBDDO^@)@L@E@A^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HD9QC*)E-MCDIES!E1[D))PY )@@G@@ [NDDS (^DDB (DC-S C)E-J^[RES!E-MCDIES!E1[D),^@)@K@@@E^@)^@)^@)^@)^@)^@)PZ )@@G@@^@)^@)^[HD9QC*)E-MCDIES!E1[D)) [NDDS (^DDB (DC-S C)E-J^[RES!E-MCDIES!E1[QA )@@G@@D),^@)@E@@@A^@)^@)^@)^@)^@)^[DC0)CDKE@!C- C8!E1 EL]CDG (#D1O^@.^[UC(MD8)QB )@@G@@@H@@@A^@)^@)^@)^@)^@)^@)^@)D(JE1 ^[NE[[CT ES)E-J^[RES!C-DETKD-[FC!CTJE(IQC )@@G@@E)) @1 C)^@)@H@@@A^@)^@)^@)^@)^@)^@)^@)D(JE1 ^[UC(MD8)E-J^[[E1 ([E[K (^QD )@@G@@C(B (QC(MCL[D))C(GET ^@)@E@@@A^@)^@)^@)^@)^@)^[NE-MDDIC8)^8*^8)C- D-DD(DQE )@@G@@E- C))CLT^[NDDUC*)@I@@@A^@)^@)^@)^@)^@)^@)^@)^@)^@)CDKE@!C- C8!E1 EL]CDGQF )@@G@@ (#D1O^[^C(GDDHDDOC(^^[]FC)ETDFL ^@)@E@@@A^@)^@)^@)^@)^@)^@)^@)^@)^@)^8(QG )@@G@@^8)C- D-DD(DE- C))CLT^[NDDUC*)@D@@@A^@)^@)^@)^@)^@)^[DD1OD8)E9N (^DDNE[GQH )@@G@@CDT (#D9PD1O^@*AC(@G@@@A^@)^@)^@)^@)^@)^[#D9HE[PE- ^[[E1 ([E[K (^C(B (QQI )@@G@@C(MCL[D))ELJE(IC- C))B*)@H@@@A^@)^@)^@)^@)^@)^@)^@)^[[E[K (^C(B (QC(MCL[QJ )@@G@@D)) 8)CDKE@!C- C8!E1 EL]CDG (#D1O 0)@E@@@A^@)^@)^@)^@)^@)^[DC0)CDKE@!C- QK )@@G@@C8!EDPCDIE)!CTIE))B*)FL ELJ^@)@H@@@A^@)^@)^@)^@)^@)^@)^@)D(JE1 ^[NE[[CT QL )@@G@@ES)E-J^[RES!C-DETKD-[FC!CTJE(IE)) @2 C)^@)@H@@@A^@)^@)^@)^@)^@)^@)^@)D(JQM )@@G@@E1 ^[UC(MD8)E-J^[[E1 ([E[K (^C(B (LE([D1O^[ D-NC*)^@)@E@@@A^@)^@)^@)^@)QN )@@G@@^@)^[NE-MDDIC8)^8*^8)C- D-DD(DE- C))CLT^[NDDUC*)@I@@@A^@)^@)^@)^@)^@)^@)QO )@@G@@^@)^@)^@)CDKE@!C- C8!EDPCDIE)!CTIE))C- D-DD(DE- C))CLT^[NDDUC*)^@)@E@@@AQP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^8(^8)C- D-DD(DE- C))CLT^[NDDUC*)@D@@@A^@)^@)QQ )@@G@@^@)^@)^@)^[DD1OD8)E9N (^DDNE[GCDT (#D9PD1O^@*AK(@G@@@A^@)^@)^@)^@)^@)^[#QR )@@G@@D9HE[PE- ^[[E1 ([E[K (^C(B (LE([D1O^[MD9PD1^C(^^@.^@)@H@@@A^@)^@)^@)^@)QS )@@G@@^@)^@)^@)^[[E[K (^C(B (LE([D1O^@\^[[E[K (^C(B (LE([D1O (#D1O 0)^@)@E@@@AQT )@@G@@^@)^@)^@)^@)^@)^[DC0)CDKE@!C- C8!CDICDG (#D1O^@.^[UC(MD8)^@)@H@@@A^@)^@)QU )@@G@@^@)^@)^@)^@)^@)D(JE1 ^[NE[[CT ES)E-J^[RES!C-DETKD-[FC!CTJE(IE)) @3 C)^@)QV )@@G@@@G@@@A^@)^@)^@)^@)^@)^@)^@)D(JE1 ^[UC(MD8)E-J^[[E1 ([E[K (^C(B ([D1[D))QW )@@G@@C(GET @E@@@A^@)^@)^@)^@)^@)^[NE-MDDIC8)^8*^8)C- D-DD(DE- C))CLT^[NDDUC*)QX )@@G@@@H@@@A^@)^@)^@)^@)^@)^@)^@)^@)^@)CDKE@!C- C8!CDICDG (#D1O^[^C(GDDHDDOC(^QY )@@G@@^[]FC)ETDFL @E@@@A^@)^@)^@)^@)^@)^@)^@)^@)^@)^8(^8)C- D-DD(DE- C))CLT^[NQZ )@@G@@DDUC*)@D@@@A^@)^@)^@)^@)^@)^[DD1OD8)E9N (^DDNE[GCDT (#D9PD1O^@*AS(@G@@@ARA )@@G@@^@)^@)^@)^@)^@)^[#D9HE[PE- ^[[E1 ([E[K (^C(B ([D1[D))ELJE(IC- C))B*)^@)RB )@@G@@@G@@@A^@)^@)^@)^@)^@)^@)^@)^[[E[K (^C(B ([D1[D)) 8)CDKE@!C- C8!CDICDG (#RC )@@G@@D1O 0)@F@@@A^@)^@)^@)^@)^@)^[DC0)CD^D(DE)!C- C8!E1 EL]CDG (#D1O^@.^[UC(MRD )@@G@@D8)^@)@H@@@A^@)^@)^@)^@)^@)^@)^@)D(JE1 ^[NE[[CT ES)E-J^[RES!C-DETKD-[FC!RE )@@G@@CTJE(IE)) @4 C)^@)@H@@@A^@)^@)^@)^@)^@)^@)^@)D(JE1 ^[UC(MD8)E-J^[[E1 ([RF )@@G@@C-HDDO (^C(B (QC(MCL[D))C(GET @E@@@A^@)^@)^@)^@)^@)^[NE-MDDIC8)^8*^8)C- RG )@@G@@D-DD(DE- C))CLT^[NDDUC*)@J@@@A^@)^@)^@)^@)^@)^@)^@)^@)^@)CD^D(DE)!C- C8!RH )@@G@@E1 EL]CDG (#D1O^[^C(GDDHDDOC(^^[]FC)ETDFL ^@)^@)@E@@@A^@)^@)^@)^@)^@)^@)RI )@@G@@^@)^@)^@)^8(^8)C- D-DD(DE- C))CLT^[NDDUC*)@D@@@A^@)^@)^@)^@)^@)^[DD1OD8)RJ )@@G@@E9N (^DDNE[GCDT (#D9PD1O^@*A)(@H@@@A^@)^@)^@)^@)^@)^[#D9HE[PE- ^[[E1 ([RK )@@G@@C-HDDO (^C(B (QC(MCL[D))00+000000999999000000+000000+000000+000000+00000RL )@@G@@0+000000+000000+000000+000000+000000999999000000 RM )@@G@@ RN )@@G@@000+00 +000000+000000+000000+000000+000000+000000+000000+0000RO )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0RP )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000RQ )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00RR )@@G@@0000+000000+000000999999000000 RS )@@G@@ 000+00 RT )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000RU )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999RV )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999RW )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000RX )@@G@@999999000000 RY )@@G@@ 000+00 +000000+000000+000RZ )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+SA )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000SB )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0SC )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 SD )@@G@@ SE )@@G@@ 000+00 +000000+000000+000000+000000+000000+SF )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000SG )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0SH )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000SI )@@G@@0+000000+000000+000000+000000+000000999999000000 SJ )@@G@@ @@@@@@SK )@@G@@@@@@_0@@@[_)@@@]_K@@@#_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@2.> <@@E#@E#@[# 092548941KLE,N > SEP9EMBERSN )@@G@@>R82FS010183 WINTHROP AVE ALBANY NY 1220383 WINTHROP AVESO )@@G@@ ALBANY NY 12203 00008006+00 SP )@@G@@ +000000+000000+000000+000000+000000+000000+000000+000000+000SQ )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000+00300SR )@@G@@0+007500+000000+000000+000000+007500+000000+000000+000000+000000+000000+SS )@@G@@000000+000000+000000+000000+000000+000000+000000 ST )@@G@@ 86405 SU )@@G@@250+00800602800613+000000+000000+000000+000000+000000+000000+000000+0000SV )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0SW )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000SX )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00SY )@@G@@0000+000000+000000999999000000P SZ )@@G@@ 000+00 TA )@@G@@+000000+000000+000000+000000+000000+000000+000000+000000+000000999999000TB )@@G@@000+000000+000000+000000+000000+000000+000000+000000+000000+000000999999TC )@@G@@000000+000000+000000+000000+000000+000000+000000+000000+000000+000000999TD )@@G@@999000000+000000+000000+000000+000000+000000+000000+000000+000000+000000TE )@@G@@999999000000 TF )@@G@@ 000+00 +000000+000000+000TG )@@G@@000+000000+000000+000000+000000+000000+000000999999000000+000000+000000+TH )@@G@@000000+000000+000000+000000+000000+000000+000000999999000000+000000+0000TI )@@G@@00+000000+000000+000000+000000+000000+000000+000000999999000000+000000+0TJ )@@G@@00000+000000+000000+000000+000000+000000+000000+000000999999000000 TK )@@G@@ TL )@@G@@ 000+00 +000000+000000+000000+000000+000000+TM )@@G@@000000+000000+000000+000000999999000000+000000+000000+000000+000000+0000TN )@@G@@00+000000+000000+000000+000000999999000000+000000+000000+000000+000000+0TO )@@G@@00000+000000+000000+000000+000000999999000000+000000+000000+000000+00000TP )@@G@@0+000000+000000+000000+000000+000000999999000000 TQ )@@G@@ TR )@@G@@000+00 +000000+000000+000000+000000+000000+000000+000000+0000TS )@@G@@00+000000999999000000+000000+000000+000000+000000+000000+000000+000000+0TT )@@G@@00000+000000999999000000+000000+000000+000000+000000+000000+000000+00000TU )@@G@@0+000000+000000999999000000+000000+000000+000000+000000+000000+000000+00TV )@@G@@0000+000000+000000999999000000 TW )@@G@@ 000+00 TX )@@G@@+000000+000000+000000+000000+000000+000000+00000@O@O_@22 ]#@@@@TY )@@G@@@@@@@O042481@@@@@@@O@O_@@@@@@@@@@@@O @@@[K______@@@@@@@@@@@@@O@O_@@@@@@@TZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UA )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@UB )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@UC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@UD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UE )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@UF )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@UG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UH )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@UI )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@UJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@UK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UL )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@UM )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@UN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UO )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@UP )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@UQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@22 ]#@@@@@@@@@O042481@@@@@@@O@O_@UR )@@G@@@@@@@@@@@@@O @@@[K______@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@US )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@UT )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@UU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UV )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@UW )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@UX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@UY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UZ )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@VA )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@VB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VC )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@VD )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@VE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@VF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VG )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@VH )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@VI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VJ )@@G@@@O@O_@22 ]#@@@@@@@@@O042481@@@@@@@O@O_@@@@@@@@@@@@O @@@[K______VK )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@VL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@VM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VN )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@VO )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@VP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VQ )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@VR )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@VS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@VT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VU )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@VV )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@VW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VX )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@VY )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@VZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@WA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WB )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@22 ]#@@@@WC )@@G@@@@@@@O042481@@@@@@@O@O_@@@@@@@@@@@@O @@@[K______@@@@@@@@@@@@@O@O_@@@@@@@WD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WE )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@WF )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@WG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@WH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WI )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@WJ )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@WK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WL )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@WM )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@WN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@WO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WP )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@WQ )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@WR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WS )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@WT )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@WU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@22 ]#@@@@@@@@@O042481@@@@@@@O@O_@WV )@@G@@@@@@@@@@@@@O @@@[K______@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WW )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@WX )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@WY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WZ )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@XA )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@XB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@XC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XD )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@XE )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@XF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XG )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@XH )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@XI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@XJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XK )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@XL )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@XM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XN )@@G@@@O@O_@22 ]#@@@@@@@@@O042481@@@@@@@O@O_@@@@@@@@@@@@O @@@[K______XO )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@XP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@XQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XR )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@XS )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@XT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XU )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@XV )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@XW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@XX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XY )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@XZ )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@YA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YB )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@YC )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@YD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@YE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YF )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@22 ]#@@@@YG )@@G@@@@@@@O042481@@@@@@@O@O_@@@@@@@@@@@@O @@@[K______@@@@@@@@@@@@@O@O_@@@@@@@YH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YI )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@YJ )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@YK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@YL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YM )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@YN )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@YO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YP )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@YQ )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@YR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@YS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YT )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@YU )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@YV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YW )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@YX )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@YY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@22 ]#@@@@@@@@@O042481@@@@@@@O@O_@YZ )@@G@@@@@@@@@@@@@O @@@[K______@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZA )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@ZB )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@ZC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZD )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@ZE )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@ZF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@ZG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZH )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@ZI )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@ZJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZK )@@G@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@ZL )@@G@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@ZM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@ZN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZO )@@G@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@ZP )@@G@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@ZQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@O_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZR )@@G@@@O@O=@D00A@1A)4A*1E[TA@1A@2B@0AC4A))^@)^@0A@0CTJD[ D0?^[[^@)^@)^@)^@)^@)ZS )@@G@@^@)^@)^@)^@0A@0A@2A07EK0A@0A@0A)6D80A@0A@3AC4D0)^@1^[I@O@O=@D00A@1A)4A*1ZT )@@G@@DD#A@1AC6B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ZU )@@G@@A@0JS0A@0A@0A)5DC0A@0A@0A)5DC)^@)^[I@O@O=@D00A@1A)4A*1E[TA@1AC8B@0^@1A*6ZV )@@G@@^@)^@0A@0CTJD[ D0)CDID0)D*)^@)^@)^@)^@)^@)^@)^@0A@0A@2A08D80A@0A@0A)5EK0ZW )@@G@@A@0A@3AC4D0)^@1^[I@O@O=@D00A@1A)4A*1E[TA@2A@7B@0AC7AC)^@)^@0A@0CTJD[ D0?ZX )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AC4D00A@0A@0A@0A@0A@0A@3AC4D0)^@0^[IZY )@@G@@@O@O=@D00A@1A)4A*1DD#A@2AC9B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)ZZ )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)4C)0A@0A@0A)4C))^@)^[I@O@O=@D00A@1A)4A*1AA )@@G@@E[TA@3AC7B@0^@1BC8^@)^@0A@0CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2AB )@@G@@A80DK0A@0A@0A)4D*0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@3AC9B@0^@)^@)AC )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)3D@0AD )@@G@@A@0A@0A)3D@)^@)^[I@O@O=@D00A@1A)4A*1E[TA@4A@8B@0^@2AC4^@)^@0A@0CTJD[ D0?AE )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A80E@0A@0A@0A)3EC0A@0A@3AC4D0)^@0^[IAF )@@G@@@O@O=@D00A@1A)4A*1DD#A@4AC8B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)AG )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)3CC0A@0A@0A)3CC)^@)^[I@O@O=@D00A@1A)4A*1AH )@@G@@E[TA@5AC5B@0^@2A)1^@)^@0A@0CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2AI )@@G@@A81D*0A@0A@0A)3DK0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@5AC9B@0^@)^@)AJ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)2C)0AK )@@G@@A@0A@0A)2C))^@)^[I@O@O=@D00A@1A)4A*1E[TA@6AC2B@0^@)^@9^@)^@0A@0CTJD[ D0?AL )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A82DK0A@0A@0A)2D*0A@0A@3AC4D0)^@0^[IAM )@@G@@@O@O=@D00A@1A)4A*1DD#A@6AC8B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)AN )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)1C80A@0A@0A)1C8)^@)^[I@O@O=@D00A@1A)4A*1AO )@@G@@E[TA@7AC4B@0^@)AS0^@)^@0A@0CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2AP )@@G@@A82EC0A@0A@0A)1E@0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@7AC7B@0^@)^@)AQ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)1JS0AR )@@G@@A@0A@0A)1JS)^@)^[I@O@O=@D00A@1A)4A*1E[TA@8AC2B@0^@)A*1^@)^@0A@0CTJD[ D0?AS )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A83D00A@0A@0A)1J*0A@0A@3AC4D0)^@0^[IAT )@@G@@@O@O=@D00A@1A)4A*1DD#A@8AK0B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)AU )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)0CS0A@0A@0A)0CS)^@)^[I@O@O=@D00A@1A)4A*1AV )@@G@@E[TA@9A@9B@0^@)A81^@)^@0A@0CTJD[ D0?CC)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2AW )@@G@@A84DS0A@0A@0A)0D)0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@9AC8B@0^@)^@)AX )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS9C80AY )@@G@@A@0A@0AS9C8)^@)^[I@O@O=@D00A@1A)4A*1E[TAC0A@9B@0^@)BC3^@)^@0A@0CTJD[ D0?AZ )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A84EC0A@0A@0AS9E@0A@0A@3AC4D0)^@0^[IBA )@@G@@@O@O=@D00A@1A)4A*1DD#AC0AC7B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)BB )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS9JS0A@0A@0AS9JS)^@)^[I@O@O=@D00A@1A)4A*1BC )@@G@@E[TAC1AC3B@0^@1AC8^@)^@0A@0CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BD )@@G@@A85D00A@0A@0AS9J*0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#AC1AC9B@0^@)^@)BE )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS8CS0BF )@@G@@A@0A@0AS8CS)^@)^[I@O@O=@D00A@1A)4A*1E[TAC2AC1B@0^@1AS6^@)^@0A@0CTJD[ D0?BG )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A86DS0A@0A@0AS8D)0A@0A@3AC4D0)^@0^[IBH )@@G@@@O@O=@D00A@1A)4A*1DD#AC2AC7B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)BI )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS7C00A@0A@0AS7C0)^@)^[I@O@O=@D00A@1A)4A*1BJ )@@G@@E[TA@1A@8B@1^@1A*0^@)^@0A@0CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BK )@@G@@A86EK0A@0A@0AS7D80A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@1AK0B@1^@)^@)BL )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS6DC0BM )@@G@@A@0A@0AS6DC)^@)^[I@O@O=@D00A@1A)4A*1E[TA@2AC2B@1^@1A86^@)^@0A@0CTJD[ D0?BN )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A87D80A@0A@0AS6EK0A@0A@3AC4D0)^@0^[IBO )@@G@@@O@O=@D00A@1A)4A*1DD#A@2AC8B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)BP )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS6CK0A@0A@0AS6CK)^@)^[I@O@O=@D00A@1A)4A*1BQ )@@G@@E[TA@3AC6B@1^@1BC8^@)^@0A@0CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BR )@@G@@A88D)0A@0A@0AS6DS0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@3AC9B@1^@)^@)BS )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS5C*0BT )@@G@@A@0A@0AS5C*)^@)^[I@O@O=@D00A@1A)4A*1E[TA@4AC5B@1^@2AK0^@)^@0A@0CTJD[ D0?BU )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A89J*0A@0A@0AS5D00A@0A@3AC4D0)^@0^[IBV )@@G@@@O@O=@D00A@1A)4A*1DD#A@4AK0B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)BW )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS4D@0A@0A@0AS4D@)^@)^[I@O@O=@D00A@1A)4A*1BX )@@G@@E[TA@5AC4B@1^@2A)1^@)^@0A@0CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BY )@@G@@A89E@0A@0A@0AS4EC0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@5AC9B@1^@)^@)BZ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS4CC0CA )@@G@@A@0A@0AS4CC)^@)^[I@O@O=@D00A@1A)4A*1E[TA@6AC1B@1^@)^@9^@)^@)^@)CTJD[ D0?CB )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@0D*0A@0A@0AS4DK0A@0A@3AC4D0)^@0^[ICC )@@G@@@O@O=@D00A@1A)4A*1DD#A@6AC7B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)CD )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS3A)0A@0A@0AS3A))^@)^[I@O@O=@D00A@1A)4A*1CE )@@G@@E[TA@7AC3B@1^@1AS1^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2CF )@@G@@B@1DK0A@0A@0AS3D*0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@7AK0B@1^@)^@)CG )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2A80CH )@@G@@A@0A@0AS2A8)^@)^[I@O@O=@D00A@1A)4A*1E[TA@8A@6B@1^@)A)9^@)^@)^@)CTJD[ D0?CI )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@1EC0A@0A@0AS2E@0A@0A@3AC4D0)^@0^[ICJ )@@G@@@O@O=@D00A@1A)4A*1DD#A@8AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)CK )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2A@0A@0A@0AS2A@)^@)^[I@O@O=@D00A@1A)4A*1CL )@@G@@E[TA@9AC5B@1^@)A86^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2CM )@@G@@B@2D00A@0A@0AS2J*0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@9AK1B@1^@)^@)CN )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS1AS0CO )@@G@@A@0A@0AS1AS)^@)^[I@O@O=@D00A@1A)4A*1E[TAC0AC5B@1^@)BC8^@)^@)^@)CTJD[ D0?CP )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@3DS0A@0A@0AS1D)0A@0A@3AC4D0)^@0^[ICQ )@@G@@@O@O=@D00A@1A)4A*1DD#AC0AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)CR )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0A00A@0A@0AS0A0)^@)^[I@O@O=@D00A@1A)4A*1CS )@@G@@E[TAC1AC3B@1^@1AC9^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2CT )@@G@@B@3EK0A@0A@0AS0D80A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#AC1AC8B@1^@)^@)CU )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9BC0CV )@@G@@A@0A@0AK9BC)^@)^[I@O@O=@D00A@1A)4A*1E[TAC2AC5B@1^@1AS9^@)^@)^@)CTJD[ D0?CW )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@4D80A@0A@0AK9EK0A@0A@3AC4D0)^@0^[ICX )@@G@@@O@O=@D00A@1A)4A*1DD#AC2AC6B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)CY )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9AK0A@0A@0AK9AK)^@)^[I@O@O=@D00A@1A)4A*1CZ )@@G@@E[TA@1AC3B@2^@1A*6^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2DA )@@G@@B@5D)0A@0A@0AK9DS0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@1AC8B@2^@)^@)DB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8A*0DC )@@G@@A@0A@0AK8A*)^@)^[I@O@O=@D00A@1A)4A*1DD#A@2AC7B@2^@)^@)^@)^@)^@)DDIE- EL DD )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8A*0A@0A@0AK8A*)^@)^[IDE )@@G@@@O@O=@D00A@1A)4A*1E[TA@2AK6B@2^@1B@9^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)DF )@@G@@^@)^@)^@)^@0A@0A@2A*7D00A@0A@0A*7J*0A@0A@3AC4D0)^@1^[I@O@O=@D00A@1A)4A*1DG )@@G@@E[TA@3AC1B@2^@1BC8^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3DH )@@G@@AC4D00A@0A@0A@0A@0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@3AC7B@2^@)^@)DI )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7A@0DJ )@@G@@A@0A@0AK7A@)^@)^[I@O@O=@D00A@1A)4A*1E[TA@4AC5B@2^@2AK2^@)^@)^@)CTJD[ D0?DK )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@7D00A@0A@0AK7J*0A@0A@3AC4D0)^@0^[IDL )@@G@@@O@O=@D00A@1A)4A*1DD#A@4AC9B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)DM )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK6AS0A@0A@0AK6AS)^@)^[I@O@O=@D00A@1A)4A*1DN )@@G@@E[TA@5AC1B@2^@2A)0^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2DO )@@G@@B@8DS0A@0A@0AK6D)0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@5AC8B@2^@)^@)DP )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK5A00DQ )@@G@@A@0A@0AK5A0)^@)^[I@O@O=@D00A@1A)4A*1E[TA@6AC5B@2^@)AC1^@)^@)^@)CTJD[ D0?DR )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@8EK0A@0A@0AK5D80A@0A@3AC4D0)^@0^[IDS )@@G@@@O@O=@D00A@1A)4A*1DD#A@6AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)DT )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK4BC0A@0A@0AK4BC)^@)^[I@O@O=@D00A@1A)4A*1DU )@@G@@E[TA@7AC2B@2^@)AK9^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2DV )@@G@@B@9D80A@0A@0AK4EK0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@7AK0B@2^@)^@)DW )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK4AC0DX )@@G@@A@0A@0AK4AC)^@)^[I@O@O=@D00A@1A)4A*1E[TA@8A@2B@2^@)A)4^@)^@)^@)CTJD[ D0?DY )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC0D*0A@0A@0AK4DK0A@0A@3AC4D0)^@0^[IDZ )@@G@@@O@O=@D00A@1A)4A*1DD#A@8AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)EA )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK3A)0A@0A@0AK3A))^@)^[I@O@O=@D00A@1A)4A*1EB )@@G@@E[TA@9A@8B@2^@)A81^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2EC )@@G@@BC1DK0A@0A@0AK3D*0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@9AK0B@2^@)^@)ED )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2A80EE )@@G@@A@0A@0AK2A8)^@)^[I@O@O=@D00A@1A)4A*1E[TAC0A@6B@2^@)BC1^@)^@)^@)CTJD[ D0?EF )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC1EC0A@0A@0AK2E@0A@0A@3AC4D0)^@0^[IEG )@@G@@@O@O=@D00A@1A)4A*1DD#AC0AK1B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)EH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2A@0A@0A@0AK2A@)^@)^[I@O@O=@D00A@1A)4A*1EI )@@G@@DD#AC1AC8B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0EJ )@@G@@A@0A@0A@0A@0AK2A@0A@0A@0AK2A@)^@)^[I@O@O=@D00A@1A)4A*1E[TAC1AC9B@2^@1AK3EK )@@G@@^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A80D00A@0A@0A)4J*0EL )@@G@@A@0A@3AC4D0)^@1^[I@O@O=@D00A@1A)4A*1E[TAC2AC5B@2^@1AS9^@)^@)^@)CTJD[ D0?EM )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AC4D00A@0A@0A@0A@0A@0A@3AC4D0)^@0^[IEN )@@G@@@O@O=@D00A@1A)4A*1DD#AC2AK1B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)EO )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0A*0A@0A@0AK0A*)^@)^[I@O@O=@D00A@1A)4A*1EP )@@G@@E[TA@1AC2B@3^@1A*6^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2EQ )@@G@@BC4J*0A@0A@0AK0D00A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@1AK0B@3^@)^@)ER )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC9B@0ES )@@G@@A@0A@0AC9B@)^@)^[I@O@O=@D00A@1A)4A*1DD#A@2AC7B@3^@)^@)^@)^@)^@)DDIE- EL ET )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC9B@0A@0A@0AC9B@)^@)^[IEU )@@G@@@O@O=@D00A@1A)4A*1E[TA@2AC8B@3^@1B@4^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)EV )@@G@@^@)^@)^@)^@0A@0A@2A84EK0A@0A@0AS9D80A@0A@3AC4D0)^@1^[I@O@O=@D00A@1A)4A*1EW )@@G@@DD#A@3AC7B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0EX )@@G@@A@0A@0A@0A@0AC9AC0A@0A@0AC9AC)^@)^[I@O@O=@D00A@1A)4A*1E[TA@3AK1B@3^@2A@5EY )@@G@@^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC5D*0A@0A@0AC9DK0EZ )@@G@@A@0A@3AC4D0)^@1^[I@O@O=@D00A@1A)4A*1E[TA@4AC5B@3^@2AK3^@)^@)^@)CTJD[ D0?FA )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AC4D00A@0A@0A@0A@0A@0A@3AC4D0)^@0^[IFB )@@G@@@O@O=@D00A@1A)4A*1DD#A@4AC9B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)FC )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC7A00A@0A@0AC7A0)^@)^[I@O@O=@D00A@1A)4A*1FD )@@G@@E[TA@5AC1B@3^@2A)1^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2FE )@@G@@BC6EK0A@0A@0AC7D80A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@5AC8B@3^@)^@)FF )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC6B@0FG )@@G@@A@0A@0AC6B@)^@)^[I@O@O=@D00A@1A)4A*1E[TA@6AC6B@3^@2A06^@)^@)^@)CTJD[ D0?FH )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC7E@0A@0A@0AC6EC0A@0A@3AC4D0)^@0^[IFI )@@G@@@O@O=@D00A@1A)4A*1DD#A@6AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)FJ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC6AC0A@0A@0AC6AC)^@)^[I@O@O=@D00A@1A)4A*1FK )@@G@@E[TA@7A@7B@3^@)^@4^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2FL )@@G@@BC8D*0A@0A@0AC6DK0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@7AC9B@3^@)^@)FM )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC5AS0FN )@@G@@A@0A@0AC5AS)^@)^[I@O@O=@D00A@1A)4A*1E[TA@8AC2B@3^@)AS0^@)^@)^@)CTJD[ D0?FO )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC9DS0A@0A@0AC5D)0A@0A@3AC4D0)^@0^[IFP )@@G@@@O@O=@D00A@1A)4A*1DD#A@8AC8B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)FQ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC4A00A@0A@0AC4A0)^@)^[I@O@O=@D00A@1A)4A*1FR )@@G@@DD#A@9AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FS )@@G@@A@0A@0A@0A@0AC4A00A@0A@0AC4A0)^@)^[I@O@O=@D00A@1A)4A*1E[TA@9AK3B@3^@)A00FT )@@G@@^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@5D)0A@0A@0AK9DS0FU )@@G@@A@0A@3AC4D0)^@1^[I@O@O=@D00A@1A)4A*1DD#AC0AC9B@3^@)^@)^@)^@)^@)DDIE- EL FV )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC3BC0A@0A@0AC3BC)^@)^[IFW )@@G@@@O@O=@D00A@1A)4A*1E[TAC0AK0B@3^@)A89^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)FX )@@G@@^@)^@)^@)^@0A@0A@3A@0D80A@0A@0AC3EK0A@0A@3AC4D0)^@1^[I@O@O=@D00A@1A)4A*1FY )@@G@@E[TAC1AC1B@3^@)BC5^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3FZ )@@G@@AC4D00A@0A@0A@0A@0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#AC1AK1B@3^@)^@)GA )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC2AS0GB )@@G@@A@0A@0AC2AS)^@)^[I@O@O=@D00A@1A)4A*1E[TAC2AC5B@3^@1AC7^@)^@)^@)CTJD[ D0?GC )@@G@@CC)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A@2DS0A@0A@0AC2D)0A@0A@3AC4D0)^@0^[IGD )@@G@@@O@O=@D00A@1A)4A*1DD#AC2AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)GE )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC1A00A@0A@0AC1A0)^@)^[I@O@O=@D00A@1A)4A*1GF )@@G@@E[TA@1AC1B@4^@1AS3^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3GG )@@G@@A@2EK0A@0A@0AC1D80A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@1AC7B@4^@)^@)GH )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC0B@0GI )@@G@@A@0A@0AC0B@)^@)^[I@O@O=@D00A@1A)4A*1E[TA@2A@6B@4^@1A*2^@)^@)^@)CTJD[ D0?GJ )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A@3E@0A@0A@0AC0EC0A@0A@3AC4D0)^@0^[IGK )@@G@@@O@O=@D00A@1A)4A*1DD#A@2AK0B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)GL )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC0AC0A@0A@0AC0AC)^@)^[I@O@O=@D00A@1A)4A*1GM )@@G@@E[TA@3A@6B@4^@1A83^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3GN )@@G@@A@4D*0A@0A@0AC0DK0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@3AK1B@4^@)^@)GO )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@9AS0GP )@@G@@A@0A@0A@9AS)^@)^[I@O@O=@D00A@1A)4A*1E[TA@4AC2B@4^@2A@0^@)^@)^@)CTJD[ D0?GQ )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A@5DS0A@0A@0A@9D)0A@0A@3AC4D0)^@0^[IGR )@@G@@@O@O=@D00A@1A)4A*1DD#A@4AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)GS )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@8A*0A@0A@0A@8A*)^@)^[I@O@O=@D00A@1A)4A*1GT )@@G@@E[TA@5A@9B@4^@2AC8^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3GU )@@G@@A@6J*0A@0A@0A@8D00A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@5AK2B@4^@)^@)GV )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@7B@0GW )@@G@@A@0A@0A@7B@)^@)^[I@O@O=@D00A@1A)4A*1E[TA@5AS1B@4^@2AS3^@)^@)^@)CTJD[ D0?GX )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A@6E@0A@0A@0A@7EC0A@0A@3AC4D0)^@0^[IGY )@@G@@@O@O=@D00A@1A)4A*1DD#A@6AK1B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)GZ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@7A@0A@0A@0A@7A@)^@)^[I@O@O=@D00A@1A)4A*1HA )@@G@@E[TA@7A@3B@4^@)^@2^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3HB )@@G@@A@7D00A@0A@0A@7J*0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@7AC9B@4^@)^@)HC )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@6AK0HD )@@G@@A@0A@0A@6AK)^@)^[I@O@O=@D00A@1A)4A*1E[TA@8A@6B@4^@)AK5^@)^@)^@)CTJD[ D0?HE )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A@8D)0A@0A@0A@6DS0A@0A@3AC4D0)^@0^[IHF )@@G@@@O@O=@D00A@1A)4A*1DD#A@8AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HG )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@5A*0A@0A@0A@5A*)^@)^[I@O@O=@D00A@1A)4A*1HH )@@G@@DD#A@9AK0B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HI )@@G@@A@0A@0A@0A@0A@5A*0A@0A@0A@5A*)^@)^[I@O@O=@D00A@1A)4A*1E[TA@9AK4B@4^@)A00HJ )@@G@@^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A@3D00A@0A@0AC1J*0HK )@@G@@A@0A@3AC4D0)^@1^[I@O@O=@D00A@1A)4A*1E[TAC0A@4B@4^@)A08^@)^@)^@)CTJD[ D0?HL )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AC4D00A@0A@0A@0A@0A@0A@3AC4D0)^@0^[IHM )@@G@@@O@O=@D00A@1A)4A*1DD#AC0AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HN )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@3BC0A@0A@0A@3BC)^@)^[I@O@O=@D00A@1A)4A*1HO )@@G@@E[TAC1A@9B@4^@)BC4^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3HP )@@G@@AC0D80A@0A@0A@3EK0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#AC1AK7B@4^@)^@)HQ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@3AC0HR )@@G@@A@0A@0A@3AC)^@)^[I@O@O=@D00A@1A)4A*1E[TAC2AC2B@4^@1AC5^@)^@)^@)CTJD[ D0?HS )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AC1D*0A@0A@0A@3DK0A@0A@3AC4D0)^@0^[IHT )@@G@@@O@O=@D00A@1A)4A*1DD#AC2AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HU )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@2A)0A@0A@0A@2A))^@)^[I@O@O=@D00A@1A)4A*1HV )@@G@@E[TA@1A@7B@5^@1AK5^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3HW )@@G@@AC2DK0A@0A@0A@2D*0A@0A@3AC4D0)^@0^[I@O@O=@D00A@1A)4A*1DD#A@1AK5B@5^@)^@)HX )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@1A00HY )@@G@@A@0A@0A@1A0)^@)^[I@O@O=@D00A@1A)4A*1E[TA@2A@5B@5^@1A)7^@)^@)^@)CTJD[ D0?HZ )@@G@@^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AC2EK0A@0A@0A@1D80A@0A@3AC4D0)^@0^[IIA )@@G@@@O@O=@D00A@1A)4A*1DD#A@2AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)IB )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0B@0A@0A@0A@0B@)^@)^[I@O@O=@D00A@1A)4A*1IC )@@G@@E[TA@3A@6B@5^@1A08^@)^@)^@)CTJD[ D0?^[[^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3ID )@@G@@AC6D)0A@0A@0A@0EC0A@0A@3AC7DK)^@0^[I@O@O=@D00A@1A)4A*1DD#A@3AK1B@5^@)^@)IE )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0IF )@@G@@A@0A@0A@0A@)^@)^[I@O@O=@D00A@1A)4A*1DD#A@4AC9B@5^@)^@)^@)^@)^@)DDIE- EL IG )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@)^[IIH )@@G@@@O@O=@D00A@1A)4A*1DD#A@5AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)II )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@)^[I@O@O=@D00A@1A)4A*1IJ )@@G@@DD#A@6AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0IK )@@G@@A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@)^[I@O@O=@D00A@1A)4A*1DD#A@7AC9B@5^@)^@)IL )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0IM )@@G@@A@0A@0A@0A@)^@)^[I@O@O=@D00A@1A)4A*1DL A@7AK4B@5BC0B@1^@)^@)^@)E9MDDOC*)IN )@@G@@D9AC0)CD#CTO^@)^@)^@)^@)^@)^@0A@0A@0A@0EC0A@0A@0A@0B@0A@0A@0A@0A@)^@1^[IIO )@@G@@@O@O=@D00A@1A)4A01CLAA@7A@1A87^@)^@)^@)^@)^@)CL[D-[D1#C*)C1JELRCDMC))^@)IP )@@G@@^@)^@)^@)^@0A@3A@5AC8JS0A@0AC3AK3JS0A@3AC8A)1JS)^@)^[I@O@O=@D00A@1A)4A01IQ )@@G@@DD#A@7AK0A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0IR )@@G@@A@0JS0A@0A@0A86CS0A@0A@0A86CS)^@)^[I@O@O=@D00A@1A)4A01ETOA@7AK5A87ETO^@)IS )@@G@@^@)^@0A@0A@8A@1A86 *0A80AC7A8)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0IT )@@G@@A@0A@0A@0A@)^@7^[I@O@O=@D00A@1A)4A01E[TA@7AK6A87AS9CC)^@)^@0A@0E[[FDHC(IIU )@@G@@E))^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@3A@0J*0A@0A@3A@0J*)^@7^[IIV )@@G@@@O@O=@D00A@1A)4A01E[TA@8A@3A87A)5CC)^@)^@0A@0E[[FDHC(IE))^@)^@)^@)^@)^@)IW )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@3A@0J*0A@0A@3A@0J*)^@7^[I@O@O=@D00A@1A)4A01IX )@@G@@DD#A@8AC8A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0IY )@@G@@A@0JS0A@0A@0A86CS0A@0A@0A86CS)^@)^[I@O@O=@D00A@1A)4A01DD[A@9AC9A87DD[^@)IZ )@@G@@^@)^@0A@0CD^DK)C1JEK)A@8A86 *0A87A8)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@4A03DK0JA )@@G@@A@0A@4A03DK)^@7^[I@O@O=@D00A@1A)4A01DD#A@9AK1A87^@)^@)^@)^@)^@)DDIE- EL JB )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A86CS0A@0A@0A86CS)^@)^[IJC )@@G@@@O@O=@D00A@1A)4A01DD#AC0AK0A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JD )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A86CS0A@0A@0A86CS)^@)^[I@O@O=@D00A@1A)4A01JE )@@G@@E[TAC0AK1A87AC0AK)^@)^@0A@0CT[ELGDDGC*?^[E^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0JF )@@G@@A@0A@0A@0A@3A@0J*0A@0A@3A@0J*)^@7^[I@O@O=@D00A@1A)4A01DD#AC1AC8A87^@)^@)JG )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A86CS0JH )@@G@@A@0A@0A86CS)^@)^[I@O@O=@D00A@1A)4A01E[TAC1AK3A87AC2A*)^@)^@0A@0CT[ELGDDGJI )@@G@@C*)DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@3A@0J*0A@0A@3A@0J*)^@7^[IJJ )@@G@@@O@O=@D00A@1A)4A01E[TAC2AC9A87^@1A)1^@)^@0A@0CT[ELDD- ^[E^@)^@)^@)^@)^@)JK )@@G@@^@)^@)^@)^@0A@0A@2A*8D80A@0A@0A)1D*0A@0A@3A@0J*)^@7^[I@O@O=@D00A@1A)4A01JL )@@G@@DD#AC2AK0A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0JM )@@G@@A@0JS0A@0A@0A86CS0A@0A@0A86CS)^@)^[I@O@O=@D00A@1A)4A01DD#A@1AC8A88^@)^@)JN )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A85C00JO )@@G@@A@0A@0A85C0)^@)^[I@O@O=@D00A@1A)4A01DD#A@2AK0A88^@)^@)^@)^@)^@)DDIE- EL JP )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A85C00A@0A@0A85C0)^@)^[IJQ )@@G@@@O@O=@D00A@1A)4A01E[TA@3A@8A88^@1BC5^@)^@0A@0CT[ELGDDGC*?^[E^@)^@)^@)^@)JR )@@G@@^@)^@)^@)^@0A@0A@3A@0J*0A@0A@0A@0JS0A@0A@3A@0J*)^@7^[I@O@O=@D00A@1A)4A01JS )@@G@@E[TA@3A@8A88^@1BC5^@)^@0A@0CT[ELGDDGC*?^[E^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0JT )@@G@@A82D00A@0A@2AK7D00A@0A@3A@0J*)^@7^[I@O@O=@D00A@1A)4A01DD#A@3AK0A88^@)^@)JU )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A84C80JV )@@G@@A@0A@0A84C8)^@)^[I@O@O=@D00A@1A)4A01DD#A@4AC9A88^@)^@)^@)^@)^@)DDIE- EL JW )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A84C80A@0A@0A84C8)^@)^[IJX )@@G@@@O@O=@D00A@1A)4A01E[TA@5A@5A88^@2AS7^@)^@0A@0CT[ELGDDGC*?^[E^@)^@)^@)^@)JY )@@G@@^@)^@)^@)^@0A@0A@1A*0D80A@0A@1A)9D*0A@0A@3A@0J*)^@7^[I@O@O=@D00A@1A)4A01JZ )@@G@@DD#A@5AC8A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KA )@@G@@A@0JS0A@0A@0A84CS0A@0A@0A84CS)^@)^[I@O@O=@D00A@1A)4A01DD#A@6AK0A88^@)^@)KB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A84CS0KC )@@G@@A@0A@0A84CS)^@)^[I@O@O=@D00A@1A)4A01E[TA@7AC0A88AK7^@)^@)^@0A@0CT[ELGDDGKD )@@G@@C*?^[E^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A*1D*0A@0A@1A)8D80A@0A@3A@0J*)^@7^[IKE )@@G@@@O@O=@D00A@1A)4A01DD#A@7AC8A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KF )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A84JS0A@0A@0A84JS)^@)^[I@O@O=@D00A@1A)4A01KG )@@G@@DD#A@8AC6A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KH )@@G@@A@0JS0A@0A@0A84JS0A@0A@0A84JS)^@)^[I@O@O=@D00A@1A)4A01E[KA@9AC1A88E[K^@)KI )@@G@@^@)^@0A@0A@6A@1A88 *0A00AC7BC)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@0JS0KJ )@@G@@A@0A@0A@0JS)^@7^[I@O@O=@D00A@1A)4A01DL A@9AC3A88A@9A@2^@)^@0A@0D1J^[DD1OKK )@@G@@^[^E( ^[JD0)E[HE-N 9KE@)^@)^@0A@0A@0A84D)0A@0A@0A84CS0A@0A@0A@0JS)^@7^[IKL )@@G@@@O@O=@D00A@1A)4A01DD#A@9AC9A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KM )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A83D@0A@0A@0A83D@)^@)^[I@O@O=@D00A@1A)4A01KN )@@G@@DD#AC0AC8A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KO )@@G@@A@0JS0A@0A@0A83D@0A@0A@0A83D@)^@)^[I@O@O=@D00A@1A)4A01E[TAC1A@2A88AC1A@)KP )@@G@@^@)^@0A@0CT[ELGDDGC*?^[E^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A@0J*0A@0A@0A@0JS0KQ )@@G@@A@0A@3A@0J*)^@7^[I@O@O=@D00A@1A)4A01DD#AC1AK0A88^@)^@)^@)^@)^@)DDIE- EL KR )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A83JS0A@0A@0A83JS)^@)^[IKS )@@G@@@O@O=@D00A@1A)4A01DD#AC2AC8A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KT )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A83JS0A@0A@0A83JS)^@)^[I@O@O=@D00A@1A)4A01KU )@@G@@DD#A@1AC8A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KV )@@G@@A@0JS0A@0A@0A83JS0A@0A@0A83JS)^@)^[I@O@O=@D00A@1A)4A01DD#A@2AC9A89^@)^@)KW )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A83JS0KX )@@G@@A@0A@0A83JS)^@)^[I@O@O=@D00A@1A)4A01E[TA@3A@5A89AC9AC)^@)^@0A@0CT[ELGDDGKY )@@G@@C*?^[E^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@3A@0J*0A@0A@3A@0J*)^@7^[IKZ )@@G@@@O@O=@D00A@1A)4A01DD#A@3AC9A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)LA )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A83JS0A@0A@0A83JS)^@)^[I@O@O=@D00A@1A)4A01LB )@@G@@E[TA@3AK9A89AK0BC)^@)^@0A@0CT[ELGDDGC*?^[E^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LC )@@G@@A@0A@0A@0A@3A@0J*0A@0A@3A@0J*)^@7^[I@O@O=@D00A@1A)4A01DD#A@4AC8A89^@)^@)LD )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A83JS0LE )@@G@@A@0A@0A83JS)^@)^[I@O@O=@D00A@1A)4A01DL A@4AK6A89AK0A*0^@)^@0A@0D1J^[DD1OLF )@@G@@^[^E( ^[JD0)D([EK)E[HE-N^@)^@0A@0A@6A@0J*0A@0A@6A@0A@0A@0A@0A@0A@)^@7^[ILG )@@G@@@O@O=@D00A@1A)4A01D( A@5A@4A89D( ^@)^@)^@0A@0ET D1O^[AD9MD*)A@5A@3A89^@)LH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@7^[I@O@O=@D00A@1A)4A01LI )@@G@@DD#A@5AC7A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LJ )@@G@@A@0JS0A@0A@0A81C*0A@0A@0A81C*)^@)^[I@O@O=@D00A@1A)4A01E[TA@5AS0A89AK5AC)LK )@@G@@^@)^@0A@0CT[ELGDDGC*?^[E^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@3A@0J*0LL )@@G@@A@0A@3A@0J*)^@7^[I@O@O=@D00A@1A)4A01DD#A@6AC9A89^@)^@)^@)^@)^@)DDIE- EL LM )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A81C*0A@0A@0A81C*)^@)^[ILN )@@G@@@O@O=@D00A@1A)4A01D-OA@6AK1A89AK0A80^@)^@0A@0A88 87BC)^@)^@)^@)^@)^@)^@)LO )@@G@@^@)^@)^@)^@0A@0A*4A@0J*0A@0A@5A)4J*0A@0A*9A)4J*)^@7^[I@O@O=@D00A@1A)4A01LP )@@G@@E[KA@6AK9A89E[K^@)^@)^@0A@0A@6A@1A89 *0A00AC8A@)^@)^@)^@)^@)^@)^@0A@0A@0LQ )@@G@@A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@7^[I@O@O=@D00A@1A)4A01E[TA@7AC2A89AK9^@)LR )@@G@@^@)^@0A@0CT[ELGDDGC*?^[E^@)^@)^@)^@)^@)^@)^@)^@0A@1A@4A)1D)0A@0A@0AS5D*0LS )@@G@@A@1A@4A86E@)^@7^[I@O@O=@D00A@1A)4A01DD#A@7AC2A89DD#^@)^@)^@0A@0DDIE))D9ILT )@@G@@^[RELJD1B^[]CDGCDICT ^@)^@)^@0A@0A@0A@0A@0A@0A@0AS9E@0A@0A@0AS9E@)^@7^[ILU )@@G@@@O@O=@D00A@1A)4A01DD#A@7AC8A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)LV )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS1DC0A@0A@0AS1DC)^@)^[I@O@O=@D00A@1A)4A01LW )@@G@@DD#A@8AK0A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LX )@@G@@A@0JS0A@0A@0AS1DC0A@0A@0AS1DC)^@)^[I@O@O=@D00A@1A)4A01DD#A@9AC9A89^@)^@)LY )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS1DC0LZ )@@G@@A@0A@0AS1DC)^@)^[I@O@O=@D00A@1A)4A01DD#AC0AC7A89^@)^@)^@)^@)^@)DDIE- EL MA )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS1DC0A@0A@0AS1DC)^@)^[IMB )@@G@@@O@O=@D00A@1A)4A01DD#AC1AC6A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MC )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS1DC0A@0A@0AS1DC)^@)^[I@O@O=@D00A@1A)4A01MD )@@G@@DD#AC2AC9A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ME )@@G@@A@0JS0A@0A@0AS1DC0A@0A@0AS1DC)^@)^[I@O@O=@D00A@1A)4A01DD#A@1AC6B@0^@)^@)MF )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS1DC0MG )@@G@@A@0A@0AS1DC)^@)^[I@O@O=@D00A@1A)4A01DD#A@2AC9B@0^@)^@)^@)^@)^@)DDIE- EL MH )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS1DC0A@0A@0AS1DC)^@)^[IMI )@@G@@@O@O=@D00A@1A)4A01DD#A@3AC9B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MJ )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS1DC0A@0A@0AS1DC)^@)^[I@O@O=@D00A@1A)4A01MK )@@G@@DD#A@4AC8B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ML )@@G@@A@0JS0A@0A@0AS1DC0A@0A@0AS1DC)^@)^[I@O@O=@D00A@1A)4A01DD#A@5AC9B@0^@)^@)MM )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS1DC0MN )@@G@@A@0A@0AS1DC)^@)^[I@O@O=@D00A@1A)4A01DD#A@6AC8B@0^@)^@)^@)^@)^@)DDIE- EL MO )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS1DC0A@0A@0AS1DC)^@)^[IMP )@@G@@@O@O=@D00A@1A)4A01DD#A@7AC7B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MQ )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS1DC0A@0A@0AS1DC)^@)^[I@O@O=@D00A@1A)4A01MR )@@G@@E[KA@8AC4B@0E[K^@)^@)^@0A@0A@6A@1B@0 *0A00AC8A@)^@)^@)^@)^@)^@)^@0A@0A@0MS )@@G@@A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@2^[I@O@O=@D00A@1A)4A01D-OA@8AC5B@0AS0B@5MT )@@G@@^@)^@1A*0A89 88A@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A*4A@0J*0A@0A@3B@2E@0MU )@@G@@A@0A*7B@2E@)^@2^[I@O@O=@D00A@1A)4A01DD#A@8AK0B@0^@)^@)^@)^@)^@)DDIE- EL MV )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC8C)0A@0A@0AC8C))^@)^[IMW )@@G@@@O@O=@D00A@1A)4A01DD#A@9AC8B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MX )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC8C)0A@0A@0AC8C))^@)^[I@O@O=@D00A@1A)4A01MY )@@G@@DD#AC0AC7B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0MZ )@@G@@A@0JS0A@0A@0AC8C)0A@0A@0AC8C))^@)^[I@O@O=@D00A@1A)4A01DD#AC1AC9B@0^@)^@)NA )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC8C)0NB )@@G@@A@0A@0AC8C))^@)^[I@O@O=@D00A@1A)4A01DD#AC2AC7B@0^@)^@)^@)^@)^@)DDIE- EL NC )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC8C)0A@0A@0AC8C))^@)^[IND )@@G@@@O@O=@D00A@1A)4A01DD#A@1AK0B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NE )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC8C)0A@0A@0AC8C))^@)^[I@O@O=@D00A@1A)4A01NF )@@G@@DD#A@2AC8B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0NG )@@G@@A@0JS0A@0A@0AC8C)0A@0A@0AC8C))^@)^[I@O@O=@D00A@1A)4A01DD#A@3AC9B@1^@)^@)NH )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC8C)0NI )@@G@@A@0A@0AC8C))^@)^[I@O@O=@D00A@1A)4A01DD#A@4AK0B@1^@)^@)^@)^@)^@)DDIE- EL NJ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC8C)0A@0A@0AC8C))^@)^[INK )@@G@@@O@O=@D00A@1A)4A01DD#A@5AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NL )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC8C)0A@0A@0AC8C))^@)^[I@O@O=@D00A@1A)4A01NM )@@G@@DD#A@6AC7B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0NN )@@G@@A@0A@0A@0A@0AC8A)0A@0A@0AC8A))^@)^[I@O@O=@D00A@1A)4A01DD#A@7AK0B@1^@)^@)NO )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC8A)0NP )@@G@@A@0A@0AC8A))^@)^[I@O@O=@D00A@1A)4A01DD#A@8AC9B@1^@)^@)^@)^@)^@)DDIE- EL NQ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC8A)0A@0A@0AC8A))^@)^[INR )@@G@@@O@O=@D00A@1A)4A01DD#A@9AK1B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NS )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC8A)0A@0A@0AC8A))^@)^[I@O@O=@D00A@1A)4A01NT )@@G@@D-OAC0AC3B@1A)1A@4^@)^@)^@)A0\B@1 *6 88AC)^@)^@)^@)^@)^@)^@)^@)^@0A@0A*4NU )@@G@@A@0^C0A@0A@2AK1DK0A@0A*6AK1DK)^@4^[I@O@O=@D00A@1A)4A01DD[AC0AC4B@1DD[^@)NV )@@G@@^@)^@)^@)CD^DK)C1JEK)D-O^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0B@0E@0NW )@@G@@A@0A@0B@0E@)^@4^[I@O@O=@D00A@1A)4A01E[KAC0AC5B@1E[K^@)^@)^@)^@)A@6A@1B@1NX )@@G@@ *0A00AC8AK)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@4^[INY )@@G@@@O@O=@D00A@1A)4A01DD#AC0AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NZ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@4BC0A@0A@0A@4BC)^@)^[I@O@O=@D00A@1A)4A01OA )@@G@@DD#AC1AC8B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0OB )@@G@@A@0A@0A@0A@0A@4BC0A@0A@0A@4BC)^@)^[I@O@O=@D00A@1A)4A01DD#AC2AC6B@1^@)^@)OC )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@4BC0OD )@@G@@A@0A@0A@4BC)^@)^[I@O@O=@D00A@1A)4A01DD#A@1AC8B@2^@)^@)^@)^@)^@)DDIE- EL OE )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@4BC0A@0A@0A@4BC)^@)^[IOF )@@G@@@O@O=@D00A@1A)4A01DD#A@2AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)OG )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@4BC0A@0A@0A@4BC)^@)^[I@O@O=@D00A@1A)4A01OH )@@G@@DD#A@3AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0OI )@@G@@A@0A@0A@0A@0A@4BC0A@0A@0A@4BC)^@)^[I@O@O=@D00A@1A)4A01DD#A@4AC9B@2^@)^@)OJ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@4BC0OK )@@G@@A@0A@0A@4BC)^@)^[I@O@O=@D00A@1A)4A01DD#A@5AC8B@2^@)^@)^@)^@)^@)DDIE- EL OL )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@4BC0A@0A@0A@4BC)^@)^[IOM )@@G@@@O@O=@D00A@1A)4A01DD#A@6AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)ON )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@4BC0A@0A@0A@4BC)^@)^[I@O@O=@D00A@1A)4A01OO )@@G@@D-OA@6AS0B@2A*0A07^@)^@)^@)A0\B@1 *6 88AK)^@)^@)^@)^@)^@)^@)^@)^@0A@0AC9OP )@@G@@A09D)0A@0A@0A*8EC0A@0AK0AK8DK)^@1^[I@O@O=@D00A@1A)4B@1CLAA@7A@1A87^@)^@)OQ )@@G@@^@)^@)^@)CL[D-[D1#C*)C1JELRCDMC))^@)^@)^@)^@)^@0A@0AS9BC3C80A@0A@0A@0JS0OR )@@G@@A@0AS9BC3C8)^@)^[I@O@O=@D00A@1A)4B@1DD#A@7AK0A87^@)^@)^@)^@)^@)DDIE- EL OS )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC0JS0A@0A@0AC0JS)^@)^[IOT )@@G@@@O@O=@D00A@1A)4B@1DD#A@8AC8A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)OU )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC0JS0A@0A@0AC0JS)^@)^[I@O@O=@D00A@1A)4B@1OV )@@G@@DD#A@9AK1A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0OW )@@G@@A@0JS0A@0A@0AC0JS0A@0A@0AC0JS)^@)^[I@O@O=@D00A@1A)4B@1E[TA@9AK6A87B@3CC)OX )@@G@@^@)^@0A@0D[JET D-OD9I^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2AS0J*0A@0A@0AK0J*0OY )@@G@@A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)4B@1DD#AC0AK0A87^@)^@)^@)^@)^@)DDIE- EL OZ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@9C)0A@0A@0A@9C))^@)^[IPA )@@G@@@O@O=@D00A@1A)4B@1E[TAC0AK8A87AC0A8)^@)^@0A@0D[JET D-OD9I ))EK)^@)^@)^@)PB )@@G@@^@)^@)^@)^@0A@0A@2A*0J*0A@0A@0A@0JS0A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)4B@1PC )@@G@@DD#AC1AC8A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PD )@@G@@A@0JS0A@0A@0A@8D@0A@0A@0A@8D@)^@)^[I@O@O=@D00A@1A)4B@1DD#AC2AK0A87^@)^@)PE )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@8D@0PF )@@G@@A@0A@0A@8D@)^@)^[I@O@O=@D00A@1A)4B@1E[TA@1AC6A88AC5A8)^@)^@0A@0D[JET D-OPG )@@G@@D9I^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2AK1EC0A@0A@0AK8DS0A@0A@2A*0J*)^@7^[IPH )@@G@@@O@O=@D00A@1A)4B@1DD#A@1AC8A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)PI )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@8CK0A@0A@0A@8CK)^@)^[I@O@O=@D00A@1A)4B@1PJ )@@G@@DD#A@2AK0A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PK )@@G@@A@0JS0A@0A@0A@8CK0A@0A@0A@8CK)^@)^[I@O@O=@D00A@1A)4B@1E[TA@3A@8A88^@1BC5PL )@@G@@^@)^@0A@0D[JET D-OD9I ))EK)^@)^@)^@)^@)^@)^@)^@0A@0A@2AK4EC0A@0A@0AK5DS0PM )@@G@@A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)4B@1DD#A@3AK0A88^@)^@)^@)^@)^@)DDIE- EL PN )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@7C80A@0A@0A@7C8)^@)^[IPO )@@G@@@O@O=@D00A@1A)4B@1E[TA@4A@5A88AK1A))^@)^@0A@0D[JET D-OD9I ))EK)^@)^@)^@)PP )@@G@@^@)^@)^@)^@0A@0A@2A)2D)0A@0A@0A@7E@0A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)4B@1PQ )@@G@@DD#A@4AC9A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PR )@@G@@A@0JS0A@0A@0A@7CC0A@0A@0A@7CC)^@)^[I@O@O=@D00A@1A)4B@1DD#A@5AC8A88^@)^@)PS )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@7CC0PT )@@G@@A@0A@0A@7CC)^@)^[I@O@O=@D00A@1A)4B@1E[TA@5AS1A88AK5AS)^@)^@0A@0D[JET D-OPU )@@G@@D9I ))EK)^@)^@)^@)^@)^@)^@)^@0A@0A@2AS5EC0A@0A@0AC4DS0A@0A@2A*0J*)^@7^[IPV )@@G@@@O@O=@D00A@1A)4B@1DD#A@6AK0A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)PW )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@6C*0A@0A@0A@6C*)^@)^[I@O@O=@D00A@1A)4B@1PX )@@G@@DD#A@7AC8A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PY )@@G@@A@0JS0A@0A@0A@6C*0A@0A@0A@6C*)^@)^[I@O@O=@D00A@1A)4B@1E[TA@7AK8A88A)1^@)PZ )@@G@@^@)^@0A@0D[JET D-OD9I ))EK)^@)^@)^@)^@)^@)^@)^@0A@0A@2AS7J*0A@0A@0AC3J*0QA )@@G@@A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)4B@1DD#A@8AC6A88^@)^@)^@)^@)^@)DDIE- EL QB )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@5DC0A@0A@0A@5DC)^@)^[IQC )@@G@@@O@O=@D00A@1A)4B@1E[TA@8AK8A88A03^@)^@)^@0A@0D[JET D-OD9I ))EK)^@)^@)^@)QD )@@G@@^@)^@)^@)^@0A@0A@2A)4DK0A@0A@0A@5EK0A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)4B@1QE )@@G@@DD#A@9AC9A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QF )@@G@@A@0JS0A@0A@0A@5CS0A@0A@0A@5CS)^@)^[I@O@O=@D00A@1A)4B@1E[TAC0A@3A88B@8^@)QG )@@G@@^@)^@0A@0D[JET D-OD9I ))EK)^@)^@)^@)^@)^@)^@)^@0A@0A@2A)4E@0A@0A@0A@5D)0QH )@@G@@A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)4B@1DD#AC0AC8A88^@)^@)^@)^@)^@)DDIE- EL QI )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@4C80A@0A@0A@4C8)^@)^[IQJ )@@G@@@O@O=@D00A@1A)4B@1E[TAC1A@9A88AC1A*)^@)^@0A@0D[JET D-OD9I ))EK)^@)^@)^@)QK )@@G@@^@)^@)^@)^@0A@0A@2A)5D)0A@0A@0A@4E@0A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)4B@1QL )@@G@@DD#AC1AK0A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QM )@@G@@A@0JS0A@0A@0A@4JS0A@0A@0A@4JS)^@)^[I@O@O=@D00A@1A)4B@1DD#AC2AC8A88^@)^@)QN )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@4JS0QO )@@G@@A@0A@0A@4JS)^@)^[I@O@O=@D00A@1A)4B@1DD#A@1AC8A89^@)^@)^@)^@)^@)DDIE- EL QP )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@4JS0A@0A@0A@4JS)^@)^[IQQ )@@G@@@O@O=@D00A@1A)4B@1E[TA@2AC3A89AC7A8)^@)^@0A@0D[JET D-OD9I ))EK)^@)^@)^@)QR )@@G@@^@)^@)^@)^@0A@0A@2AS8J*0A@0A@0AC2J*0A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)4B@1QS )@@G@@DD#A@2AC9A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QT )@@G@@A@0JS0A@0A@0A@3C)0A@0A@0A@3C))^@)^[I@O@O=@D00A@1A)4B@1DD#A@3AC9A89^@)^@)QU )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@3C)0QV )@@G@@A@0A@0A@3C))^@)^[I@O@O=@D00A@1A)4B@1DD#A@4AC8A89^@)^@)^@)^@)^@)DDIE- EL QW )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@3C)0A@0A@0A@3C))^@)^[IQX )@@G@@@O@O=@D00A@1A)4B@1E[TA@5AC0A89AK3B@)^@)^@0A@0D[JET D-OD9I ))EK)^@)^@)^@)QY )@@G@@^@)^@)^@)^@0A@0A@2AS9EC0A@0A@0AC0DS0A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)4B@1QZ )@@G@@DD#A@5AC7A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RA )@@G@@A@0JS0A@0A@0A@2DC0A@0A@0A@2DC)^@)^[I@O@O=@D00A@1A)4B@1DD#A@6AC9A89^@)^@)RB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@2DC0RC )@@G@@A@0A@0A@2DC)^@)^[I@O@O=@D00A@1A)4B@1DD#A@7AC8A89^@)^@)^@)^@)^@)DDIE- EL RD )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@2DC0A@0A@0A@2DC)^@)^[IRE )@@G@@@O@O=@D00A@1A)4B@1DD#A@8AK0A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)RF )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@2DC0A@0A@0A@2DC)^@)^[I@O@O=@D00A@1A)4B@1RG )@@G@@E[TA@8AK8A89A02^@)^@)^@0A@0D[JET D-OD9I ))EK)^@)^@)^@)^@)^@)^@)^@0A@0A@2RH )@@G@@AS8D*0A@0A@0AC1D80A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)4B@1E[TA@9AC3A89A83^@)RI )@@G@@^@)^@0A@0D[JET D-OD9I ))EK)^@)^@)^@)^@)^@)^@)^@0A@0A@2A*0J*0A@0A@0A@0A@0RJ )@@G@@A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)4B@1DD#A@9AC9A89^@)^@)^@)^@)^@)DDIE- EL RK )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@1C00A@0A@0A@1C0)^@)^[IRL )@@G@@@O@O=@D00A@1A)4B@1DD#AC0AC7A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)RM )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@1C00A@0A@0A@1C0)^@)^[I@O@O=@D00A@1A)4B@1RN )@@G@@DD#AC1AC6A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RO )@@G@@A@0JS0A@0A@0A@1C00A@0A@0A@1C0)^@)^[I@O@O=@D00A@1A)4B@1DD#AC2AC9A89^@)^@)RP )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@1C00RQ )@@G@@A@0A@0A@1C0)^@)^[I@O@O=@D00A@1A)4B@1E[TAC2AK0A89AC4AC)^@)^@0A@0D[JET D-ORR )@@G@@D9I ))EK)^@)^@)^@)^@)^@)^@)^@0A@0A@1BC3D80A@0A@0A@6D*0A@0A@2A@0J*)^@7^[IRS )@@G@@@O@O=@D00A@1A)4B@1DD#A@1AC6B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)RT )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@1CC0A@0A@0A@1CC)^@)^[I@O@O=@D00A@1A)4B@1RU )@@G@@DD#A@2AC9B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RV )@@G@@A@0JS0A@0A@0A@1CC0A@0A@0A@1CC)^@)^[I@O@O=@D00A@1A)4B@1DD#A@3AC9B@0^@)^@)RW )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@1CC0RX )@@G@@A@0A@0A@1CC)^@)^[I@O@O=@D00A@1A)4B@1DD#A@4AC8B@0^@)^@)^@)^@)^@)DDIE- EL RY )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@1CC0A@0A@0A@1CC)^@)^[IRZ )@@G@@@O@O=@D00A@1A)4B@1E[TA@5AC5B@0^@2A)1^@)^@0A@0D[JET D-OD9I ))EK)^@)^@)^@)SA )@@G@@^@)^@)^@)^@0A@0A@4A*8DK0A@0A@0A@4D*0A@0A@4A02D0)^@7^[I@O@O=@D00A@1A)5AC1SB )@@G@@CLAA@7A@1A87^@)^@)^@)^@)^@)CL[D-[D1#C*)C1JELRCDMC))^@)^@)^@)^@)^@0A@0A83SC )@@G@@B@4C80A@0A@0A@0JS0A@0A83B@4C8)^@)^[I@O@O=@D00A@1A)5AC1DD#A@7AK0A87^@)^@)SD )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC8C*0SE )@@G@@A@0A@0AC8C*)^@)^[I@O@O=@D00A@1A)5AC1DD#A@8AC8A87^@)^@)^@)^@)^@)DDIE- EL SF )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC8C*0A@0A@0AC8C*)^@)^[ISG )@@G@@@O@O=@D00A@1A)5AC1DD#A@9AK1A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)SH )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC8C*0A@0A@0AC8C*)^@)^[I@O@O=@D00A@1A)5AC1SI )@@G@@E[TAC0A@4A87B@9CC)^@)^@0A@0D[[CDB^[K^@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3SJ )@@G@@BC4D00A@0A@0A*5D00A@0A@4A*0J*)^@0^[I@O@O=@D00A@1A)5AC1DD#AC0AK0A87^@)^@)SK )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC7C*0SL )@@G@@A@0A@0AC7C*)^@)^[I@O@O=@D00A@1A)5AC1DD#AC1AC8A87^@)^@)^@)^@)^@)DDIE- EL SM )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC7C*0A@0A@0AC7C*)^@)^[ISN )@@G@@@O@O=@D00A@1A)5AC1DD#AC2AK0A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)SO )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC7C*0A@0A@0AC7C*)^@)^[I@O@O=@D00A@1A)5AC1SP )@@G@@E[TAC2AK9A87^@1A)6^@)^@0A@0D[[CDB^[K^@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3SQ )@@G@@BC7D00A@0A@0A*2D00A@0A@4A*0J*)^@0^[I@O@O=@D00A@1A)5AC1DD#A@1AC8A88^@)^@)SR )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC6C*0SS )@@G@@A@0A@0AC6C*)^@)^[I@O@O=@D00A@1A)5AC1DD#A@2AK0A88^@)^@)^@)^@)^@)DDIE- EL ST )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC6C*0A@0A@0AC6C*)^@)^[ISU )@@G@@@O@O=@D00A@1A)5AC1DD#A@3AK0A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)SV )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC6C*0A@0A@0AC6C*)^@)^[I@O@O=@D00A@1A)5AC1SW )@@G@@E[TA@4A@5A88AK1A))^@)^@0A@0D[[CDB ))E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4SX )@@G@@A@0D00A@0A@0A)9D00A@0A@4A*0J*)^@0^[I@O@O=@D00A@1A)5AC1DD#A@4AC9A88^@)^@)SY )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC5C*0SZ )@@G@@A@0A@0AC5C*)^@)^[I@O@O=@D00A@1A)5AC1DD#A@5AC8A88^@)^@)^@)^@)^@)DDIE- EL TA )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC5C*0A@0A@0AC5C*)^@)^[ITB )@@G@@@O@O=@D00A@1A)5AC1DD#A@6AK0A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)TC )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC5C*0A@0A@0AC5C*)^@)^[I@O@O=@D00A@1A)5AC1TD )@@G@@E[TA@7AC0A88AK7^@)^@)^@0A@0D[[CDB ))E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4TE )@@G@@A@3D00A@0A@0A)6D00A@0A@4A*0J*)^@0^[I@O@O=@D00A@1A)5AC1DD#A@7AC8A88^@)^@)TF )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC4C*0TG )@@G@@A@0A@0AC4C*)^@)^[I@O@O=@D00A@1A)5AC1DD#A@8AC6A88^@)^@)^@)^@)^@)DDIE- EL TH )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC4C*0A@0A@0AC4C*)^@)^[ITI )@@G@@@O@O=@D00A@1A)5AC1DD#A@9AC9A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)TJ )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC4C*0A@0A@0AC4C*)^@)^[I@O@O=@D00A@1A)5AC1TK )@@G@@E[TAC0AC3A88BC6^@)^@)^@0A@0D[[CDB ))E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4TL )@@G@@A@6D00A@0A@0A)3D00A@0A@4A*0J*)^@0^[I@O@O=@D00A@1A)5AC1DD#AC0AC8A88^@)^@)TM )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC3C*0TN )@@G@@A@0A@0AC3C*)^@)^[I@O@O=@D00A@1A)5AC1DD#AC1AK0A88^@)^@)^@)^@)^@)DDIE- EL TO )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC3C*0A@0A@0AC3C*)^@)^[ITP )@@G@@@O@O=@D00A@1A)5AC1DD#AC2AC8A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)TQ )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC3C*0A@0A@0AC3C*)^@)^[I@O@O=@D00A@1A)5AC1TR )@@G@@E[TA@1AC5A89AC5A0)^@)^@0A@0D[[CDB ))E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4TS )@@G@@A@9D00A@0A@0A)0D00A@0A@4A*0J*)^@0^[I@O@O=@D00A@1A)5AC1DD#A@1AC8A89^@)^@)TT )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC2C)0TU )@@G@@A@0A@0AC2C))^@)^[I@O@O=@D00A@1A)5AC1DD#A@2AC9A89^@)^@)^@)^@)^@)DDIE- EL TV )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC2C)0A@0A@0AC2C))^@)^[ITW )@@G@@@O@O=@D00A@1A)5AC1DD#A@3AC9A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)TX )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC2C)0A@0A@0AC2C))^@)^[I@O@O=@D00A@1A)5AC1TY )@@G@@E[TA@4AC0A89AK1A8)^@)^@0A@0D[[CDB ))E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4TZ )@@G@@AC2EC0A@0A@0AS7DS0A@0A@4A*0J*)^@0^[I@O@O=@D00A@1A)5AC1DD#A@4AC8A89^@)^@)UA )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC1C)0UB )@@G@@A@0A@0AC1C))^@)^[I@O@O=@D00A@1A)5AC1DD#A@5AC7A89^@)^@)^@)^@)^@)DDIE- EL UC )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC1C)0A@0A@0AC1C))^@)^[IUD )@@G@@@O@O=@D00A@1A)5AC1DD#A@6AC9A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)UE )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC1C)0A@0A@0AC1C))^@)^[I@O@O=@D00A@1A)5AC1UF )@@G@@D( A@6AK8A89D( ^@)^@)^@0A@0EL C1PET C))D(I^[KD-[D0)^@)^@)^@)^@)^@0A@0A@0UG )@@G@@A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[I@O@O=@D00A@1A)5AC1E[TA@7AC0A89AK7^@)UH )@@G@@^@)^@0A@0D[[CDB ))E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4AC5EC0A@0A@0AS4DS0UI )@@G@@A@0A@4A*0J*)^@0^[I@O@O=@D00A@1A)5AC1DD#A@7AC8A89^@)^@)^@)^@)^@)DDIE- EL UJ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC0C)0A@0A@0AC0C))^@)^[IUK )@@G@@@O@O=@D00A@1A)5AC1DD#A@8AK0A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)UL )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC0C)0A@0A@0AC0C))^@)^[I@O@O=@D00A@1A)5AC1UM )@@G@@DD#A@9AC9A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UN )@@G@@A@0JS0A@0A@0AC0C)0A@0A@0AC0C))^@)^[I@O@O=@D00A@1A)5AC1DD#AC0AC7A89^@)^@)UO )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC0C)0UP )@@G@@A@0A@0AC0C))^@)^[I@O@O=@D00A@1A)5AC1E[TAC0AC9A89BC9^@)^@)^@0A@0D[[CDB ))UQ )@@G@@E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4A@8D*0A@0A@0A)1D80A@0A@4A*0J*)^@1^[IUR )@@G@@@O@O=@D00A@1A)5AC1DD#AC1AC6A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)US )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@9CS0A@0A@0A@9CS)^@)^[I@O@O=@D00A@1A)5AC1UT )@@G@@DD#AC2AC9A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UU )@@G@@A@0JS0A@0A@0A@9CS0A@0A@0A@9CS)^@)^[I@O@O=@D00A@1A)5AC1DD#A@1AC6B@0^@)^@)UV )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@9CS0UW )@@G@@A@0A@0A@9CS)^@)^[I@O@O=@D00A@1A)5AC1E[TA@2A@5B@0^@1A09^@)^@0A@0D[[CDB ))UX )@@G@@E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4AK2DK0A@0A@0AK7EK0A@0A@4A*0J*)^@1^[IUY )@@G@@@O@O=@D00A@1A)5AC1DD#A@2AC9B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)UZ )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@8CS0A@0A@0A@8CS)^@)^[I@O@O=@D00A@1A)5AC1VA )@@G@@DD#A@3AC9B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VB )@@G@@A@0JS0A@0A@0A@8CS0A@0A@0A@8CS)^@)^[I@O@O=@D00A@1A)5AC1E[TA@4AC0B@0^@2AC6VC )@@G@@^@)^@0A@0D[[CDB ))E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4AS3D*0A@0A@0AC6D80VD )@@G@@A@0A@4A*0J*)^@0^[I@O@O=@D00A@1A)5AC1DD#A@4AC8B@0^@)^@)^@)^@)^@)DDIE- EL VE )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@7CK0A@0A@0A@7CK)^@)^[IVF )@@G@@@O@O=@D00A@1A)5AC1DD#A@5AC9B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)VG )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@7CK0A@0A@0A@7CK)^@)^[I@O@O=@D00A@1A)5AC1VH )@@G@@DD#A@6AC8B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VI )@@G@@A@0JS0A@0A@0A@7CK0A@0A@0A@7CK)^@)^[I@O@O=@D00A@1A)5AC1E[TA@7AC0B@0^@)AK8VJ )@@G@@^@)^@0A@0D[[CDB ))E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4AK8D*0A@0A@0AK1D80VK )@@G@@A@0A@4A*0J*)^@0^[I@O@O=@D00A@1A)5AC1DD#A@7AC7B@0^@)^@)^@)^@)^@)DDIE- EL VL )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@6CC0A@0A@0A@6CC)^@)^[IVM )@@G@@@O@O=@D00A@1A)5AC1DD#A@8AK0B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)VN )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@6CC0A@0A@0A@6CC)^@)^[I@O@O=@D00A@1A)5AC1VO )@@G@@DD#A@9AC8B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VP )@@G@@A@0JS0A@0A@0A@6CC0A@0A@0A@6CC)^@)^[I@O@O=@D00A@1A)5AC1DD#AC0AC7B@0^@)^@)VQ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@6CC0VR )@@G@@A@0A@0A@6CC)^@)^[I@O@O=@D00A@1A)5AC1E[TAC1AC3B@0^@1AC8^@)^@0A@0D[[CDB ))VS )@@G@@E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4AK5D80A@0A@0AK4D*0A@0A@4A*0J*)^@1^[IVT )@@G@@@O@O=@D00A@1A)5AC1DD#AC1AC9B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)VU )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@5CC0A@0A@0A@5CC)^@)^[I@O@O=@D00A@1A)5AC1VV )@@G@@DD#AC2AC7B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VW )@@G@@A@0JS0A@0A@0A@5CC0A@0A@0A@5CC)^@)^[I@O@O=@D00A@1A)5AC1E[TA@1AC4B@1^@1A*4VX )@@G@@^@)^@0A@0D[[CDB ))E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4AS9EC0A@0A@0AC0DS0VY )@@G@@A@0A@4A*0J*)^@0^[I@O@O=@D00A@1A)5AC1DD#A@1AK0B@1^@)^@)^@)^@)^@)DDIE- EL VZ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@4JS0A@0A@0A@4JS)^@)^[IWA )@@G@@@O@O=@D00A@1A)5AC1DD#A@2AC8B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)WB )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@4JS0A@0A@0A@4JS)^@)^[I@O@O=@D00A@1A)5AC1WC )@@G@@DD#A@3AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0WD )@@G@@A@0JS0A@0A@0A@4JS0A@0A@0A@4JS)^@)^[I@O@O=@D00A@1A)5AC1DD#A@4AK0B@1^@)^@)WE )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@4JS0WF )@@G@@A@0A@0A@4JS)^@)^[I@O@O=@D00A@1A)5AC1E[TA@5A@6B@1^@2AS5^@)^@0A@0D[[CDB ))WG )@@G@@E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4AS4J*0A@0A@0AC6J*0A@0A@4A*0J*)^@1^[IWH )@@G@@@O@O=@D00A@1A)5AC1DD#A@5AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)WI )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@2DC0A@0A@0A@2DC)^@)^[I@O@O=@D00A@1A)5AC1WJ )@@G@@DD#A@6AC7B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0WK )@@G@@A@0A@0A@0A@0A@2BC0A@0A@0A@2BC)^@)^[I@O@O=@D00A@1A)5AC1DD#A@7AK0B@1^@)^@)WL )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@2BC0WM )@@G@@A@0A@0A@2BC)^@)^[I@O@O=@D00A@1A)5AC1E[TA@7AK2B@1^@)AS8^@)^@)^@)D[[CDB ))WN )@@G@@E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4A)1D)0A@0A@0A@8E@0A@0A@4A*0^C)^@1^[IWO )@@G@@@O@O=@D00A@1A)5AC1DD#A@8AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)WP )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@1B@0A@0A@0A@1B@)^@)^[I@O@O=@D00A@1A)5AC1WQ )@@G@@DD#A@9AK1B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0WR )@@G@@A@0A@0A@0A@0A@1B@0A@0A@0A@1B@)^@)^[I@O@O=@D00A@1A)5AC1DD#AC0AC9B@1^@)^@)WS )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@1B@0WT )@@G@@A@0A@0A@1B@)^@)^[I@O@O=@D00A@1A)5AC1E[TAC1A@3B@1^@1AC1^@)^@)^@)D[[CDB ))WU )@@G@@E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4A)4D80A@0A@0A@5D*0A@0A@4A*0^C)^@1^[IWV )@@G@@@O@O=@D00A@1A)5AC1DD#AC1AC8B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)WW )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A80A@0A@0A@0A8)^@)^[I@O@O=@D00A@1A)5AC1WX )@@G@@DD#AC2AC6B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0WY )@@G@@A@0A@0A@0A@0A@0A80A@0A@0A@0A8)^@)^[I@O@O=@D00A@1A)5AC1DD#A@1AC8B@2^@)^@)WZ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A80XA )@@G@@A@0A@0A@0A8)^@)^[I@O@O=@D00A@1A)5AC1E[TA@2A@3B@2^@1A82^@)^@)^@)D[[CDB ))XB )@@G@@E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A05EC0A@0A@0A@2DK0A@0A@2A07EK)^@1^[IXC )@@G@@@O@O=@D00A@1A)5AC1DD#A@2AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)XD )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@)^[I@O@O=@D00A@1A)5AC1XE )@@G@@DL A@3AC2B@2A*0AS1^@)^@)^@)E9MDDOC*)D9AC0)CD#CTO^@)^@)^@)^@)^@)^@0A@0A@0XF )@@G@@A@0E@0A@0A@0A@0A80A@0A@0A@0A@)^@0^[I@O@O=@D00A@1A)5AK1CLAA@7A@1A87^@)^@)XG )@@G@@^@)^@)^@)CL[D-[D1#C*)C1JELRCDMC))^@)^@)^@)^@)^@0A@3AK9B@6C80A@0A@0A@0JS0XH )@@G@@A@3AK9B@6C8)^@)^[I@O@O=@D00A@1A)5AK1D( A@7AK0A87D( AC)^@)^@0A@0A8)E[G^@)XI )@@G@@^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@7^[IXJ )@@G@@@O@O=@D00A@1A)5AK1DD#A@7AK0A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)XK )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0B@2C*0A@0A@0B@2C*)^@)^[I@O@O=@D00A@1A)5AK1XL )@@G@@E[TA@8A@9A87A)9CC)^@)^@0A@0E[[FDHC(IE))^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1XM )@@G@@A07D00A@0A@0B@2D00A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)5AK1DD#A@8AC8A87^@)^@)XN )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0B@2JS0XO )@@G@@A@0A@0B@2JS)^@)^[I@O@O=@D00A@1A)5AK1E[TA@8AK3A87A*9CC)^@)^@0A@0E[[FDHC(IXP )@@G@@E))^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A@0J*0A@0A@0A@0JS0A@0A@3A@0J*)^@7^[IXQ )@@G@@@O@O=@D00A@1A)5AK1E[TA@9A@8A87A82^@)^@)^@0A@0E[[FDHC(IE))^@)^@)^@)^@)^@)XR )@@G@@^@)^@)^@)^@0A@0A@4AC8J*0A@0A@0B@2J*0A@0A@5A@0J*)^@7^[I@O@O=@D00A@1A)5AK1XS )@@G@@DD#A@9AK1A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0XT )@@G@@A@0JS0A@0A@0B@0CS0A@0A@0B@0CS)^@)^[I@O@O=@D00A@1A)5AK1E[TA@9AK6A87B@3CC)XU )@@G@@^@)^@0A@0DL[D1NCC)D*)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A@0J*0A@0A@0A@0JS0XV )@@G@@A@0A@3A@0J*)^@7^[I@O@O=@D00A@1A)5AK1DD#AC0AK0A87^@)^@)^@)^@)^@)DDIE- EL XW )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A89C*0A@0A@0A89C*)^@)^[IXX )@@G@@@O@O=@D00A@1A)5AK1E[TAC0AK1A87AC0AK)^@)^@0A@0DL[D1NCC?^[K^@)^@)^@)^@)^@)XY )@@G@@^@)^@)^@)^@0A@0A@4A@0J*0A@0A@0A@0JS0A@0A@4A@0J*)^@7^[I@O@O=@D00A@1A)5AK1XZ )@@G@@E[TAC0AK8A87AC0A8)^@)^@0A@0DL[D1NCC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3YA )@@G@@A@0J*0A@0A@0A@0JS0A@0A@3A@0J*)^@7^[I@O@O=@D00A@1A)5AK1DD#AC1AC8A87^@)^@)YB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A87D@0YC )@@G@@A@0A@0A87D@)^@)^[I@O@O=@D00A@1A)5AK1E[TAC1AK3A87AC2A*)^@)^@0A@0DL[D1NCC)YD )@@G@@D*)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A02D*0A@0A@2AS7D80A@0A@3A@0J*)^@7^[IYE )@@G@@@O@O=@D00A@1A)5AK1E[TAC2A@6A87AC3AK)^@)^@0A@0DL[D1NCC)D*)^@)^@)^@)^@)^@)YF )@@G@@^@)^@)^@)^@0A@0A@2A*0J*0A@0A@0A@0JS0A@0A@2A*0J*)^@7^[I@O@O=@D00A@1A)5AK1YG )@@G@@DD#AC2AK0A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0YH )@@G@@A@0JS0A@0A@0A87JS0A@0A@0A87JS)^@)^[I@O@O=@D00A@1A)5AK1E[TAC2AK9A87^@1A)6YI )@@G@@^@)^@0A@0DL[D1NCC)E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5A@0J*0A@0A@0A@0JS0YJ )@@G@@A@0A@5A@0J*)^@7^[I@O@O=@D00A@1A)5AK1DD#A@1AC8A88^@)^@)^@)^@)^@)DDIE- EL YK )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A85C80A@0A@0A85C8)^@)^[IYL )@@G@@@O@O=@D00A@1A)5AK1E[TA@1AK4A88AC6A))^@)^@0A@0DL[D1NCC)E@)^@)^@)^@)^@)^@)YM )@@G@@^@)^@)^@)^@0A@0A@5A@0J*0A@0A@0A@0JS0A@0A@5A@0J*)^@7^[I@O@O=@D00A@1A)5AK1YN )@@G@@E[TA@2A@2A88AC7AC)^@)^@0A@0DL[D1NCC)E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3YO )@@G@@A@0J*0A@0A@0A@0JS0A@0A@3A@0J*)^@7^[I@O@O=@D00A@1A)5AK1DD#A@2AK0A88^@)^@)YP )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A83C80YQ )@@G@@A@0A@0A83C8)^@)^[I@O@O=@D00A@1A)5AK1E[TA@3A@2A88AC9AC)^@)^@0A@0DL[D1NCC?YR )@@G@@^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A83D80A@0A@2AK6D*0A@0A@3A@0J*)^@7^[IYS )@@G@@@O@O=@D00A@1A)5AK1E[TA@3A@8A88^@1BC5^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)YT )@@G@@^@)^@)^@)^@0A@0AS0A@0J*0A@0A@0A@0JS0A@0AS0A@0J*)^@7^[I@O@O=@D00A@1A)5AK1YU )@@G@@DD#A@3AK0A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0YV )@@G@@A@0JS0A@0A@0A06JS0A@0A@0A06JS)^@)^[I@O@O=@D00A@1A)5AK1DD#A@4AC9A88^@)^@)YW )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A06JS0YX )@@G@@A@0A@0A06JS)^@)^[I@O@O=@D00A@1A)5AK1E[TA@4AK4A88AK2A8)^@)^@0A@0DL[D1NCC?YY )@@G@@^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0AS7A*0J*0A@0A@0A@0JS0A@0AS7A*0J*)^@7^[IYZ )@@G@@@O@O=@D00A@1A)5AK1DD#A@5AC8A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)ZA )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A*6C80A@0A@0A*6C8)^@)^[I@O@O=@D00A@1A)5AK1ZB )@@G@@E[TA@5AK5A88AK5A@)^@)^@0A@0DL[D1NCC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2ZC )@@G@@AC1D)0A@0A@1B@8E@0A@0A@4A@0J*)^@3^[I@O@O=@D00A@1A)5AK1E[TA@6A@7A88A*)^@)ZD )@@G@@^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4A00EK0A@0A@0A@0JS0ZE )@@G@@A@0A@4A00EK)^@3^[I@O@O=@D00A@1A)5AK1DD#A@6AK0A88^@)^@)^@)^@)^@)DDIE- EL ZF )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A*5JS0A@0A@0A*5JS)^@)^[IZG )@@G@@@O@O=@D00A@1A)5AK1E[TA@6AK6A88AC8^@)^@)^@0A@0DL[D1NCC?^[K^@)^@)^@)^@)^@)ZH )@@G@@^@)^@)^@)^@0A@0A@5A@0J*0A@0A@0A@0JS0A@0A@5A@0J*)^@4^[I@O@O=@D00A@1A)5AK1ZI )@@G@@DD#A@7AC8A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ZJ )@@G@@A@0JS0A@0A@0A*3C80A@0A@0A*3C8)^@)^[I@O@O=@D00A@1A)5AK1E[TA@8A@7A88A)7^@)ZK )@@G@@^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@6A01DS0A@0A@0A@0JS0ZL )@@G@@A@0A@6A01DS)^@2^[I@O@O=@D00A@1A)5AK1DD#A@8AC6A88^@)^@)^@)^@)^@)DDIE- EL ZM )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A*3C80A@0A@0A*3C8)^@)^[IZN )@@G@@@O@O=@D00A@1A)5AK1DD#A@9AC9A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)ZO )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A*2CC0A@0A@0A*2CC)^@)^[I@O@O=@D00A@1A)5AK1ZP )@@G@@E[TAC0AC3A88BC6^@)^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0AC0ZQ )@@G@@A@0D*0A@0A@1A00EC0A@0AC1A01DS)^@1^[I@O@O=@D00A@1A)5AK1DD#AC0AC8A88^@)^@)ZR )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)9C00ZS )@@G@@A@0A@0A)9C0)^@)^[I@O@O=@D00A@1A)5AK1DD#AC1AK0A88^@)^@)^@)^@)^@)DDIE- EL ZT )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)9C00A@0A@0A)9C0)^@)^[IZU )@@G@@@O@O=@D00A@1A)5AK1DD#AC2AC8A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)ZV )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)9C00A@0A@0A)9C0)^@)^[I@O@O=@D00A@1A)5AK1ZW )@@G@@E[TAC2AK1A88AC4AS)^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2ZX )@@G@@BC9DK0A@0A@2A@0EK0A@0A@5A@0J*)^@1^[I@O@O=@D00A@1A)5AK1E[TA@1A@9A89AC5AK)ZY )@@G@@^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@6A01DS0A@0A@0A@0A@0ZZ )@@G@@A@0A@6A01DS)^@1^[I@O@O=@D00A@1A)5AK1DD#A@1AC8A89^@)^@)^@)^@)^@)DDIE- EL AA )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)7CK0A@0A@0A)7CK)^@)^[IAB )@@G@@@O@O=@D00A@1A)5AK1DD[A@2A@7A89DD[^@)^@)^@0A@0DDIE- EL ETO^[[C-E^@)^@)^@)AC )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A@1D80A@0A@0A@1D8)^@)^[I@O@O=@D00A@1A)5AK1AD )@@G@@DD#A@2AC9A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AE )@@G@@A@0JS0A@0A@0A)7CK0A@0A@0A)7CK)^@)^[I@O@O=@D00A@1A)5AK1E[TA@3AC5A89AC9BC)AF )@@G@@^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0AC0A06EC0A@0A@0BC4D*0AG )@@G@@A@0AC1A01DS)^@0^[I@O@O=@D00A@1A)5AK1DD#A@3AC9A89^@)^@)^@)^@)^@)DDIE- EL AH )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)4C*0A@0A@0A)4C*)^@)^[IAI )@@G@@@O@O=@D00A@1A)5AK1DD#A@4AC8A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)AJ )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)4C*0A@0A@0A)4C*)^@)^[I@O@O=@D00A@1A)5AK1AK )@@G@@DD#A@5AC7A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AL )@@G@@A@0JS0A@0A@0A)4C*0A@0A@0A)4C*)^@)^[I@O@O=@D00A@1A)5AK1E[TA@5AS0A89AK5AC)AM )@@G@@^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0AC0AK7E@0A@0A@1AS3D00AN )@@G@@A@0AC1A01DS)^@0^[I@O@O=@D00A@1A)5AK1E[TA@6AC5A89AC1^@)^@)^@0A@0DL[D1NCC?AO )@@G@@^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3B@7DK0A@0A@0A@0A@0A@0A@3B@7DK)^@0^[IAP )@@G@@@O@O=@D00A@1A)5AK1DD#A@6AC9A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)AQ )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)1JS0A@0A@0A)1JS)^@)^[I@O@O=@D00A@1A)5AK1AR )@@G@@DD#A@7AC8A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AS )@@G@@A@0JS0A@0A@0A)1JS0A@0A@0A)1JS)^@)^[I@O@O=@D00A@1A)5AK1E[TA@7AC9A89AS4^@)AT )@@G@@^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A@5DK0A@0A@0B@2J*0AU )@@G@@A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@8AK0A89^@)^@)^@)^@)^@)DDIE- EL AV )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0A)0CK0A@0A@0A)0CK)^@)^[IAW )@@G@@@O@O=@D00A@1A)5AK1E[TA@8AK8A89A02^@)^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)AX )@@G@@^@)^@)^@)^@0A@0A@3A)6EK0A@0A@0A)0DS0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1AY )@@G@@DD#A@9AC9A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AZ )@@G@@A@0JS0A@0A@0AS9CS0A@0A@0AS9CS)^@)^[I@O@O=@D00A@1A)5AK1E[TA@9AK5A89B@1^@)BA )@@G@@^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A)7EC0A@0A@0AS9D)0BB )@@G@@A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#AC0AC7A89^@)^@)^@)^@)^@)DDIE- EL BC )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS8C*0A@0A@0AS8C*)^@)^[IBD )@@G@@@O@O=@D00A@1A)5AK1E[TAC0AK4A89AC0AK)^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)BE )@@G@@^@)^@)^@)^@0A@0A@3A)8D80A@0A@0AS8D00A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1BF )@@G@@DD#AC1AC6A89^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BG )@@G@@A@0JS0A@0A@0AS7C00A@0A@0AS7C0)^@)^[I@O@O=@D00A@1A)5AK1E[TAC1AK0A89AC2AC)BH )@@G@@^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A)9D00A@0A@0AS7D80BI )@@G@@A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#AC2AC9A89^@)^@)^@)^@)^@)DDIE- EL BJ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS6C80A@0A@0AS6C8)^@)^[IBK )@@G@@@O@O=@D00A@1A)5AK1E[TA@1A@2B@0AC4A))^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)BL )@@G@@^@)^@)^@)^@0A@0A@3A*0D*0A@0A@0AS6E@0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1BM )@@G@@DD#A@1AC6B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BN )@@G@@A@0JS0A@0A@0AS5DC0A@0A@0AS5DC)^@)^[I@O@O=@D00A@1A)5AK1E[TA@1AK9B@0AC6A))BO )@@G@@^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A*1DS0A@0A@0AS5EK0BP )@@G@@A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@2AC9B@0^@)^@)^@)^@)^@)DDIE- EL BQ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS5JS0A@0A@0AS5JS)^@)^[IBR )@@G@@@O@O=@D00A@1A)5AK1E[TA@3AC0B@0AC9AS)^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)BS )@@G@@^@)^@)^@)^@0A@0A@3A*2DK0A@0A@0AS5J*0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1BT )@@G@@E[TA@3AC9B@0^@2A@0^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3BU )@@G@@A*3J*0A@0A@0AS4DK0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@3AC9B@0^@)^@)BV )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS4CC0BW )@@G@@A@0A@0AS4CC)^@)^[I@O@O=@D00A@1A)5AK1DD#A@4AC8B@0^@)^@)^@)^@)^@)DDIE- EL BX )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS3CK0A@0A@0AS3CK)^@)^[IBY )@@G@@@O@O=@D00A@1A)5AK1E[TA@4AK1B@0^@2AK3^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)BZ )@@G@@^@)^@)^@)^@0A@0A@3A*3EK0A@0A@0AS3DS0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1CA )@@G@@DD#A@5AC9B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0CB )@@G@@A@0JS0A@0A@0AS2CS0A@0A@0AS2CS)^@)^[I@O@O=@D00A@1A)5AK1E[TA@5AK0B@0^@2A)4CC )@@G@@^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A*4EC0A@0A@0AS2D)0CD )@@G@@A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@6AC8B@0^@)^@)^@)^@)^@)DDIE- EL CE )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AS1C)0A@0A@0AS1C))^@)^[ICF )@@G@@@O@O=@D00A@1A)5AK1E[TA@6AK4B@0^@)AC7^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)CG )@@G@@^@)^@)^@)^@0A@0A@3A*5E@0A@0A@0AS1D*0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1CH )@@G@@DD#A@7AC7B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0CI )@@G@@A@0JS0A@0A@0AS0C00A@0A@0AS0C0)^@)^[I@O@O=@D00A@1A)5AK1E[TA@8A@4B@0^@)A)5CJ )@@G@@^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A*6D00A@0A@0AS0D80CK )@@G@@A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@8AK0B@0^@)^@)^@)^@)^@)DDIE- EL CL )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AK9C80A@0A@0AK9C8)^@)^[ICM )@@G@@@O@O=@D00A@1A)5AK1E[TA@9A@4B@0^@)A08^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)CN )@@G@@^@)^@)^@)^@0A@0A@3A*7D*0A@0A@0AK9E@0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1CO )@@G@@DD#A@9AC8B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0CP )@@G@@A@0JS0A@0A@0AK8D@0A@0A@0AK8D@)^@)^[I@O@O=@D00A@1A)5AK1E[TA@9AK5B@0^@)B@3CQ )@@G@@^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A*8D)0A@0A@0AK8EC0CR )@@G@@A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#AC0AC7B@0^@)^@)^@)^@)^@)DDIE- EL CS )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AK7DC0A@0A@0AK7DC)^@)^[ICT )@@G@@@O@O=@D00A@1A)5AK1E[TAC0AK3B@0^@1A@3^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)CU )@@G@@^@)^@)^@)^@0A@0A@3A*9DS0A@0A@0AK7EK0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1CV )@@G@@DD#AC1AC9B@0^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0CW )@@G@@A@0JS0A@0A@0AK7JS0A@0A@0AK7JS)^@)^[I@O@O=@D00A@1A)5AK1DD#AC2AC7B@0^@)^@)CX )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AK7JS0CY )@@G@@A@0A@0AK7JS)^@)^[I@O@O=@D00A@1A)5AK1E[TAC2AS0B@0^@1A)6^@)^@0A@0DL[D1NCC?CZ )@@G@@^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@7AK0DS0A@0A@0A*4J*0A@0A@7A84DS)^@1^[IDA )@@G@@@O@O=@D00A@1A)5AK1DD#A@1AK0B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)DB )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AK5CK0A@0A@0AK5CK)^@)^[I@O@O=@D00A@1A)5AK1DC )@@G@@E[TA@1AK2B@1^@1A01^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3DD )@@G@@A01EK0A@0A@0AK5DS0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@2AC8B@1^@)^@)DE )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AK4CS0DF )@@G@@A@0A@0AK4CS)^@)^[I@O@O=@D00A@1A)5AK1E[TA@2AK5B@1^@1B@5^@)^@0A@0DL[D1NCC?DG )@@G@@^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A02EC0A@0A@0AK4D)0A@0A@3B@7DK)^@0^[IDH )@@G@@@O@O=@D00A@1A)5AK1DD#A@3AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)DI )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AK3C)0A@0A@0AK3C))^@)^[I@O@O=@D00A@1A)5AK1DJ )@@G@@E[TA@4A@2B@1^@2AC1^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3DK )@@G@@A03E@0A@0A@0AK3D*0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@4AK0B@1^@)^@)DL )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AK2C*0DM )@@G@@A@0A@0AK2C*)^@)^[I@O@O=@D00A@1A)5AK1E[TA@5A@6B@1^@2AS5^@)^@0A@0DL[D1NCC?DN )@@G@@^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A04D80A@0A@0AK2D00A@0A@3B@7DK)^@0^[IDO )@@G@@@O@O=@D00A@1A)5AK1DD#A@5AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)DP )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AK1C*0A@0A@0AK1C*)^@)^[I@O@O=@D00A@1A)5AK1DQ )@@G@@E[TA@5AK9B@1^@2A*1^@)^@0A@0DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3DR )@@G@@A05D80A@0A@0AK1D00A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@6AC7B@1^@)^@)DS )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0A00DT )@@G@@A@0A@0AK0A0)^@)^[I@O@O=@D00A@1A)5AK1E[TA@6AS0B@1^@)AK2^@)^@)^@)DL[D1NCC?DU )@@G@@^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A06D00A@0A@0AK0D80A@0A@3B@7DK)^@0^[IDV )@@G@@@O@O=@D00A@1A)5AK1DD#A@7AK0B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)DW )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC9A80A@0A@0AC9A8)^@)^[I@O@O=@D00A@1A)5AK1DX )@@G@@DD#A@8AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0DY )@@G@@A@0A@0A@0A@0AC9A80A@0A@0AC9A8)^@)^[I@O@O=@D00A@1A)5AK1E[TA@9A@2B@1^@)A08DZ )@@G@@^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A)7E@0A@0A@0AS9D*0EA )@@G@@A@0A@3B@7DK)^@1^[I@O@O=@D00A@1A)5AK1E[TA@9AC5B@1^@)A86^@)^@)^@)DL[D1NCC?EB )@@G@@^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3B@7DK0A@0A@0A@0A@0A@0A@3B@7DK)^@0^[IEC )@@G@@@O@O=@D00A@1A)5AK1DD#A@9AK1B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)ED )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC7BC0A@0A@0AC7BC)^@)^[I@O@O=@D00A@1A)5AK1EE )@@G@@E[TAC0A@1B@1^@)B@8^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3EF )@@G@@A09DS0A@0A@0AC7EK0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#AC0AC9B@1^@)^@)EG )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC6BC0EH )@@G@@A@0A@0AC6BC)^@)^[I@O@O=@D00A@1A)5AK1E[TAC0AK8B@1^@1A@7^@)^@)^@)DL[D1NCC?EI )@@G@@^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A80DS0A@0A@0AC6EK0A@0A@3B@7DK)^@0^[IEJ )@@G@@@O@O=@D00A@1A)5AK1DD#AC1AC8B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)EK )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC6A@0A@0A@0AC6A@)^@)^[I@O@O=@D00A@1A)5AK1EL )@@G@@E[TAC2A@9B@1^@1AS5^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3EM )@@G@@A81DK0A@0A@0AC6J*0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#AC2AC6B@1^@)^@)EN )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC5AC0EO )@@G@@A@0A@0AC5AC)^@)^[I@O@O=@D00A@1A)5AK1DD#A@1AC8B@2^@)^@)^@)^@)^@)DDIE- EL EP )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC5AC0A@0A@0AC5AC)^@)^[IEQ )@@G@@@O@O=@D00A@1A)5AK1E[TA@1AC9B@2^@1A01^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)ER )@@G@@^@)^@)^@)^@0A@0A@3A*6EK0A@0A@0AS0DS0A@0A@3B@7DK)^@1^[I@O@O=@D00A@1A)5AK1ES )@@G@@E[TA@2A@3B@2^@1A82^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3ET )@@G@@B@7DK0A@0A@0A@0A@0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@2AC7B@2^@)^@)EU )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC3AK0EV )@@G@@A@0A@0AC3AK)^@)^[I@O@O=@D00A@1A)5AK1E[TA@2AK6B@2^@1B@9^@)^@)^@)DL[D1NCC?EW )@@G@@^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A83EK0A@0A@0AC3DS0A@0A@3B@7DK)^@0^[IEX )@@G@@@O@O=@D00A@1A)5AK1DD#A@3AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)EY )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC2AS0A@0A@0AC2AS)^@)^[I@O@O=@D00A@1A)5AK1EZ )@@G@@E[TA@4A@6B@2^@2AC6^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3FA )@@G@@A84EC0A@0A@0AC2D)0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@4AC9B@2^@)^@)FB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC1A)0FC )@@G@@A@0A@0AC1A))^@)^[I@O@O=@D00A@1A)5AK1E[TA@4AS0B@2^@2AS3^@)^@)^@)DL[D1NCC?FD )@@G@@^[HCDMC9[EL E))^@)^@)^@)^@)^@0A@0A@3A85E@0A@0A@0AC1D*0A@0A@3B@7DK)^@0^[IFE )@@G@@@O@O=@D00A@1A)5AK1E[[A@4AS0B@2E[[^@)^@)^@)^@)A@4AS0B@2 *0A80AC8AK)^@)^@)FF )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[I@O@O=@D00A@1A)5AK1FG )@@G@@DD#A@5AC8B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FH )@@G@@A@0A@0A@0A@0AC0A)0A@0A@0AC0A))^@)^[I@O@O=@D00A@1A)5AK1E[TA@6A@3B@2^@)^@3FI )@@G@@^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A86E@0A@0A@0AC0D*0FJ )@@G@@A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@6AC7B@2^@)^@)^@)^@)^@)DDIE- EL FK )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@9A*0A@0A@0A@9A*)^@)^[IFL )@@G@@@O@O=@D00A@1A)5AK1E[TA@7AC2B@2^@)AK9^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)FM )@@G@@^@)^@)^@)^@0A@0A@3A87D80A@0A@0A@9D00A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1FN )@@G@@DD#A@7AK0B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FO )@@G@@A@0A@0A@0A@0A@8A*0A@0A@0A@8A*)^@)^[I@O@O=@D00A@1A)5AK1E[TA@8A@2B@2^@)A)4FP )@@G@@^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A88D80A@0A@0A@8D00FQ )@@G@@A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@8AC7B@2^@)^@)^@)^@)^@)DDIE- EL FR )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@7A00A@0A@0A@7A0)^@)^[IFS )@@G@@@O@O=@D00A@1A)5AK1E[TA@9A@7B@2^@)A80^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)FT )@@G@@^@)^@)^@)^@0A@0A@3A89D00A@0A@0A@7D80A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1FU )@@G@@DD#A@9AK0B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FV )@@G@@A@0A@0A@0A@0A@6A00A@0A@0A@6A0)^@)^[I@O@O=@D00A@1A)5AK1E[TAC0AC8B@2^@)BC9FW )@@G@@^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3B@0D00A@0A@0A@6D80FX )@@G@@A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#AC0AK1B@2^@)^@)^@)^@)^@)DDIE- EL FY )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@5A80A@0A@0A@5A8)^@)^[IFZ )@@G@@@O@O=@D00A@1A)5AK1E[TAC0AK9B@2^@1A@8^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)GA )@@G@@^@)^@)^@)^@0A@0A@3B@1D*0A@0A@0A@5E@0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1GB )@@G@@DD#AC1AC8B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0GC )@@G@@A@0A@0A@0A@0A@4A80A@0A@0A@4A8)^@)^[I@O@O=@D00A@1A)5AK1E[TAC2A@3B@2^@1AS1GD )@@G@@^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3B@2D*0A@0A@0A@4E@0GE )@@G@@A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#AC2AK1B@2^@)^@)^@)^@)^@)DDIE- EL GF )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@3B@0A@0A@0A@3B@)^@)^[IGG )@@G@@@O@O=@D00A@1A)5AK1E[TA@1A@6B@3^@1A*2^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)GH )@@G@@^@)^@)^@)^@0A@0A@3B@3D)0A@0A@0A@3EC0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1GI )@@G@@DD#A@1AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0GJ )@@G@@A@0A@0A@0A@0A@2B@0A@0A@0A@2B@)^@)^[I@O@O=@D00A@1A)5AK1E[TA@1AK1B@3^@1A04GK )@@G@@^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3B@4D)0A@0A@0A@2EC0GL )@@G@@A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1DD#A@2AC7B@3^@)^@)^@)^@)^@)DDIE- EL GM )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@1BC0A@0A@0A@1BC)^@)^[IGN )@@G@@@O@O=@D00A@1A)5AK1E[TA@2AK4B@3^@1B@8^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)GO )@@G@@^@)^@)^@)^@0A@0A@3B@5DS0A@0A@0A@1EK0A@0A@3B@7DK)^@0^[I@O@O=@D00A@1A)5AK1GP )@@G@@DD#A@3AC7B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0GQ )@@G@@A@0A@0A@0A@0A@0BC0A@0A@0A@0BC)^@)^[I@O@O=@D00A@1A)5AK1E[TA@4A@7B@3^@2AC7GR )@@G@@^@)^@)^@)DL[D1NCC?^[H^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A00D80A@0A@0A@0EK0GS )@@G@@A@0A@3A01D0)^@0^[I@O@O=@D00A@1A)5AS1CLAA@7A@1A87^@)^@)^@)^@)^@)CL[D-[D1#GT )@@G@@C*)C1JELRCDMC))^@)^@)^@)^@)^@0A@0A82A@0JS0A@0A@6BC0JS0A@0A88BC0JS)^@)^[IGU )@@G@@@O@O=@D00A@1A)5AS1DD#A@7AK0A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)GV )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC8JS0A@0A@0AC8JS)^@)^[I@O@O=@D00A@1A)5AS1GW )@@G@@D( A@7AK0A87D( AC)^@)^@0A@0A@>^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0GX )@@G@@A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@7^[I@O@O=@D00A@1A)5AS1CTOA@7AK6A87DK4A@1GY )@@G@@^@)^@1A@0A@8A86 *0A07A8)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@8A@0J*0A@0A@1B@0J*0GZ )@@G@@A@0A@9B@0J*)^@7^[I@O@O=@D00A@1A)5AS1DD#A@8AC8A87^@)^@)^@)^@)^@)DDIE- EL HA )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC6JS0A@0A@0AC6JS)^@)^[IHB )@@G@@@O@O=@D00A@1A)5AS1DD#A@9AK1A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HC )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC6JS0A@0A@0AC6JS)^@)^[I@O@O=@D00A@1A)5AS1HD )@@G@@DD#AC0AK0A87^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HE )@@G@@A@0JS0A@0A@0AC6JS0A@0A@0AC6JS)^@)^[I@O@O=@D00A@1A)5AS1DD#AC1AC8A87^@)^@)HF )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC6JS0HG )@@G@@A@0A@0AC6JS)^@)^[I@O@O=@D00A@1A)5AS1DD#AC2AK0A87^@)^@)^@)^@)^@)DDIE- EL HH )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC6JS0A@0A@0AC6JS)^@)^[IHI )@@G@@@O@O=@D00A@1A)5AS1DD#A@1AC8A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HJ )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC6JS0A@0A@0AC6JS)^@)^[I@O@O=@D00A@1A)5AS1HK )@@G@@DD#A@2AK0A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HL )@@G@@A@0JS0A@0A@0AC6JS0A@0A@0AC6JS)^@)^[I@O@O=@D00A@1A)5AS1DD#A@3AK0A88^@)^@)HM )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC6JS0HN )@@G@@A@0A@0AC6JS)^@)^[I@O@O=@D00A@1A)5AS1DD#A@4AC9A88^@)^@)^@)^@)^@)DDIE- EL HO )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC6JS0A@0A@0AC6JS)^@)^[IHP )@@G@@@O@O=@D00A@1A)5AS1DL A@5AC5A88A*0AK)^@)^@0A@0E[HE))D([C- ^@3 *1A)!A88^@)HQ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@4A*0J*0A@0A@4A*0J*)^@7^[I@O@O=@D00A@1A)5AS1HR )@@G@@DD#A@5AC8A88^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HS )@@G@@A@0JS0A@0A@0AC6JS0A@0A@0AC6JS)^@)^[I@O@O=@D00A@1A)5AS1DL A@5AS1A88A00A@)HT )@@G@@^@)^@0A@0DL ^@5A@2^[RELJD1B^[^E( ^[OD8)D-OES)^@0A@0A@3BC0J*0A@0A@3BC0A@0HU )@@G@@A@0A@0A@0A@)^@7^[I@O@O=@D00A@1A)5AS1DD#A@6AK0A88^@)^@)^@)^@)^@)DDIE- EL HV )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC5JS0A@0A@0AC5JS)^@)^[IHW )@@G@@@O@O=@D00A@1A)5AS1D-OA@6AK7A88A@6AC3^@)^@1A@0A87 *7B@)^@)^@)^@)^@)^@)^@)HX )@@G@@^@)^@)^@)^@0A@0A@8A@0J*0A@0A@1B@0D)0A@0A@9B@0D))^@7^[I@O@O=@D00A@1A)5AS1HY )@@G@@D-OA@6AK7A88A@6AC3^@)^@1A@0A86 *7A8)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@8HZ )@@G@@A@0J*0A@0A@1A*6D)0A@0A@9A*6D))^@7^[I@O@O=@D00A@1A)5AS1E[KA@6AK8A88E[K^@)IA )@@G@@^@)^@0A@0A@1A@1A88 *0AC0AC7BC)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0IB )@@G@@A@0A@0A@0A@)^@7^[I@O@O=@D00A@1A)5AS1DD#A@7AC8A88^@)^@)^@)^@)^@)DDIE- EL IC )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AC1JS0A@0A@0AC1JS)^@)^[IID )@@G@@@@@@@%@@@@@@@@@@@@@@G@@@@[>@@@@@(@@@@@@@@@@@8@@@@@@@@@@@@@@@@@@@@@@[$@@@IE )@@G@@@@@@@2@@@@@A@[Z@@@@@@@@@@@@@@Z@@@@@@@@@@[4@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@R@@@@@@@[*@@@@@@@@@@@@@@Q@@@@@@@[!@@@@@@@@@@@$@@V@@@IK )@@G@@@@@@@@@@@@@@@@@@@K@@=@@@@@:@]D@@@@@@@@@@@@@@P@@@@@@@@@@@3@@@@@@@@^@@H@@@IL )@@G@@@@@@@*@@@@@@@[1@@@@@_@[,@@@@@?@@0@@@@@@@@@@@@@@@@[D@@M@@@@@@@@@@@5@@@@@@IM )@@G@@@@@@@@@@+@@@@@@@[?@[K@@@@@@@@@@[+@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@L@@@@[VIN )@@G@@@@@@[2@@)@@@@@@@[;@[E@@@@@B@@@@@Y@@1@@@@@@@@F@@@@@#@@@@@T@@@@@@@@@@[%@@@IO )@@G@@@@@@@@@]F@@@@@@@@&@["@[7@@@@@"@[ @@@@[-@@O@@^@]FC$TY @@^@@@@@@K\]IP )@@G@@E$RMSG @@^@@@@@@K\]C$TNCY @@^@[\@@@K\]C$TYOPS @@^@@@@@@K\]IQ )@@G@@C$PKT @@^@@/@@@K0)ERR$PKT @@^@@D@@@K0)E$RFAC @@^@@@@@@K17IR )@@G@@E$RSTT @@^@@<@@@K17E$RSYM @@^@@@@@@K17E$RCKP @@^@[M@@@K17IS )@@G@@E$RRST @@^@@U@@@K17E$RR @@^@@N@@@K17E$RM @@^@[6@@@K17IT )@@G@@E$RL @@^@@@@@@K3CE$RF @@^@@@@@@K3CE$RO @@^@@@@@@K4/IU )@@G@@E$MS @@^@@;@@@K6GGRS$ @@^@@@@@@K':ACC$ @@^@@@@@@L[GIV )@@G@@FNC$ @@^@][@@@L^8ELT$ @@^@@7@@@LT$DEF$ @@^@@S@@@LW:IW )@@G@@MNM$ @@^@[I@@@LW:HEX$ @@^@@4@@@LY&BIN$ @@^@[S@@@L-+IX )@@G@@P$AD$ @@^@@W@@@L=!P$CT @@^@@@@@@L>6P$FS @@^@@@@@@L$TIY )@@G@@P$FI @@^@@9@@@L$TP$FD @@^@@@@@@L$TI$O @@^@@@@@@L$TIZ )@@G@@I$OW @@^@[R@@@L$TP$FWL @@^@[/@@@L$TF$ACIL @@^@@@@@@L$TJA )@@G@@F$ACIT @@^@@@@@@L$TM$CT @@^@@\@@@L$TM$SCON @@^@@@@@@L$TJB )@@G@@P$RINT @@^@]E@@@L%YA$PRINT @@^@@@@@@L%YC$SF @@^@[H@@@L%YJC )@@G@@A$CSF @@^@[#@@@L%YP$RTCN @@^@@@@@@L%YA$PRTCN @@^@@@@@@L%YJD )@@G@@ERAX @@^@[N@@@L!*ERA @@^@[G@@@L!*LOC$ @@^@[:@@@L2EJE )@@G@@RBJ$ @@^@@@@@@L57RBJ @@^@@@@@@L6ZRMTBLK @@^@[B@@@L7,JF )@@G@@RMTRTN @@^@@@@@@L8*IF$ @@^@@@@@@MMDIF$$ @@^@@@@@@MMDJG )@@G@@I$F @@^@@'@@@MQASLJA @@^@@@@@@MRXTK @@^@@@@@@MS>JH )@@G@@TNK @@^@@.@@@MS>TO @@^@@@@@@MTSTNO @@^@['@@@MTSJI )@@G@@JOP @@^@[0@@@MU?JNP @@^@@@@@@MU?TL @@^@[=@@@MX[JJ )@@G@@TNL @@^@[F@@@MX[TGE @@^@@@@@@MX[DECR @@^@]^@@@MY=JK )@@G@@ICW @@^@@@@@@M=AP$FP @@^@[Q@@@M(-I$ODX @@^@]B@@@M1#JL )@@G@@I$OTX @@^@@@@@@M1#I$OD @@^@@@@@@M1#I$OT @@^@@@@@@M1#JM )@@G@@BLANKS @@^@@@@@@M3XPZEROS @@^@@@@@@M3XNZEROS @@^@@@@@@M3XJN )@@G@@C$DUMP @@^@@@@@@M47MKRS @@^@[P@@@M'&MKRC @@^@@@@@@M'&JO )@@G@@OFS @@^@@@@@@M/;LJDZ @@^@[.@@@M"=LJDS @@^@@@@@@M"=JP )@@G@@LJDR @@^@[_@@@M"=LJSZ @@^@@@@@@M"=LJSS @@^@@@@@@M"=JQ )@@G@@LJSR @@^@@@@@@M"=LJHZ @@^@@@@@@M"=LJHS @@^@@@@@@M"=JR )@@G@@LJHR @@^@[X@@@M"=RJFY @@^@@@@@@N#!LJFY @@^@]C@@@N#!JS )@@G@@CNTR @@^@@@@@@N#!L$SKIP @@^@@@@@@NERL$DISC @@^@@@@@@NFNJT )@@G@@AE$PKT @@ @@@@@@NH0AE$TAB @@ @@@@@@NPWDXDEF @@A@@@@@@N$&JU )@@G@@DX$EXIT @@A@@@@@@N?#DX$BRK @@A@@@@@@N?#DX$LOAD @@A@@@@@@N?#JV )@@G@@DX$IALL @@A@@@@@@N?#DX$CREG @@A@@@@@@N?#CIOPR @@A@@@@@@N?/JW )@@G@@INCRLC @@A@@@@@@N!STAG @@A@@@@@@N!!FILL @@A@@@@@@N,1JX )@@G@@DATA @@A@@@@@@N,1RESDEF @@A@@@@@@N2-RESGEN @@A@[8@@@N2-JY )@@G@@NRSDEF @@A@[9@@@O@(NRSGEN @@A@] @@@O@(ERROR @@A@@@@@@OBZJZ )@@G@@ERRORS @@A@@@@@@OD_NERMSG @@A@@@@@@OF7SYNTAX @@A@@@@@@OH:KA )@@G@@STXLOC @@A@@@@@@OH:S$TD @@B@@@@@@OJ]S$ND @@B@]#@@@OJ]KB )@@G@@S$CAN @@B@@@@@@OJ]S$CANR @@B@@@@@@OJ]S$FIND @@B@@@@@@OJ]KC )@@G@@S$GSXO @@B@@@@@@OJ]S$GO @@B@@@@@@OJ]S$TE @@B@@@@@@OJ]KD )@@G@@S$NE @@B@@@@@@OJ]S$TS @@B@@@@@@OJ]S$NS @@B@@@@@@OJ]KE )@@G@@S$TN @@B@@@@@@OJ]S$NN @@B@@@@@@OJ]S$TF @@B@@@@@@OJ]KF )@@G@@S$NF @@B@@@@@@OJ]S$T @@B@@@@@@OJ]S$N @@B@@@@@@OJ]KG )@@G@@S$BKSP @@B@@@@@@OJ]S$CANX @@B@@@@@@OJ]S$GCRX @@B@@@@@@OJ]KH )@@G@@S$GRX @@B@@@@@@OJ]S$G0 @@B@@@@@@OL$S$G @@B@@@@@@OL$KI )@@G@@S$PKT @@B@@@@@@OL"DXERR @@C@@@@@@OOMDXBRK @@C@@@@@@OO&KJ )@@G@@^@4A*3^@)AS9A8)^@3A09^@)AS1BC)^@6A)9@H@@@[AK2^@)AS8A@)^@3A@2^@)BC8AK)AS0KK )@@G@@A@0^@2BC5BC)^@1A89^@2A@4A))AK0A88^@1BC1A8)^@6A)1@H@@@[AK2^@)AK0AC)^@1AC3KL )@@G@@^@)^@8B@)^@)A*3^@)AC1A0)^@)AC9^@)AK4AK)^@1AC6^@)^@2AS)^@4A*2@H@@@[AK2^@)KM )@@G@@AC9A@)^@3A83^@)AK8A*)^@2A83^@)AK7A))^@1AC6^@)^@1A@)^@4AK2^@)A08A@)^@3A@1KN )@@G@@@H@@@[AK2^@)^@7AK)^@)BC5^@)AK1A8)^@1A)7^@)AC8BC)^@)BC8^@)^@8A8)^@1AK8^@)KO )@@G@@AK1AK)^@1A)0@H@@@[AK2^@)AC6B@)^@4AS4^@)AC8BC)^@4A)9^@)A*2AS)^@6A@9^@)A)7KP )@@G@@A8)^@1AK1^@)A*8A*)^@1AC8@H@@@[AK2^@)AC4A))^@6AK8^@)AS0A@)^@)AK3^@)AK1B@)KQ )@@G@@^@4A82^@)A)3A8)^@3A*4^@)A87A@)^@4A@1@H@@@[AK2^@)^@3A*)^@1AC7^@)^@6A*)^@)KR )@@G@@A*7^@)^@2A))^@1A@9^@)^@3AC)^@)A*9^@)^@1B@)^@)AK7@H@@@[AK2^@)^@6A))^@3AK4KS )@@G@@^@)AK2BC)^@3AK6^@)AS8B@)^@1A82^@1B@6A))AC6A@9^@2BC8A*)^@2AC0@H@@@[AK2^@2KT )@@G@@BC6A))^@1A@6^@)A*0AC)AC2A03^@1A)1AS)^@3A)0^@)^@6AS)^@1A*7^@)A)8BC)^@)A)6KU )@@G@@@H@@@[AK2^@1A)1AS)^@1AC6^@2AC8A@)^@6AK3^@2A88A))AS0A@0^@3A@0A@)AS0A@0^@3KV )@@G@@A@0A@)AS0A@0@H@@@[AK2^@2BC9A0)AS0A@0^@2BC1A))AS0A@0^@2BC8AS)AS0A@0^@2A)1KW )@@G@@AC)^@3BC7^@)A)5AS)AC0A@6@H@@@[AK2^@)^@4AK)^@)B@7^@)A)4AS)^@4AS6^@)^@9A8)KX )@@G@@AC0A)1^@)AK2AK)^@)^@0^@)^@)AK)^@)^@0@H@@@[AK2^@)AC3A))^@3A*7^@)AS9A0)^@3KY )@@G@@AC2^@)AK2A))^@1AS6^@)AC7A0)^@4BC2^@)AS2AS)^@2AC7@G@[@@AC1^@)AK0B@)^@2A@7KZ )@@G@@^@)A)1AC)^@4B@2^@)A*6A0)^@9AK2^@2AC1B@)^@3A@0A@)^@)^@)___@@@@@@@@@@@@@@@LA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LJ )@@G@@ 1 0 0@^@@@A35 0 0 0 0 0 0 0 0 0 1 0@^@@@A36 0 0 0 0 0 0 0 0 0 0 1@^@@@ALK )@@G@@37 1 0 0 0 0 0 0 0 0 0 0@^@@@A38 0 0 0 0 0 0 0 0 0 0 0@^@@@A39 0 1 0 0 0LL )@@G@@ 0 0 0 0 0 0@^@@@A40 0 0 1 0 0 0 0 0 0 0 0@^@@@A41 0 0 0 1 0 0 0 0 0 0 0LM )@@G@@@^@@@A42 0 0 0 0 1 0 0 0 0 0 0@^@@@A43 0 0 0 0 0 1 0 0 0 0 0@^@@@A44 0 0LN )@@G@@ 0 0 0 0 1 0 0 0 0@^@@@A45 0 0 0 0 0 0 0 1 0 0 0@^@@@A46 0 0 0 0 0 0 0 0LO )@@G@@ 1 0 0@ @@@A 47 0 0 0 0 0 0 0 0 0 1 0 @^@@@A48 0 0 0 0 0 0 0 0 0 0 1LP )@@G@@@[@@@A$ @]@@@ELOAD WI $ @E@@@E1 1 1 1 0 0 0 0 0 0 0 1 1 1 1 1 0 0 LQ )@@G@@0 0 0 0 0 1 1 1 1 1 @B@@@E0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 1 $ LR )@@G@@@]@@@ELOAD SP $ @F@@@EI 0 0 0 0 1 1 0 0 0 1 1 0 0 0 0 0 1 1 0 0 0 1 1 LS )@@G@@0 0 0 0 0 1 1 @B@@@E0 0 0 1 1 0 0 0 0 0 1 1 0 0 0 1 1 0 $ @#@@@ELT )@@G@@GENR CONST = 1 $ @#@E@AGENR CONST = 1 $ @]@D@APRINT (A) $ @F@@@DLIST (LU )@@G@@A)SALES TREN OCT DEC JAN FEB MAR APR MAY JUN JUL AUG SEP $ @]@@@ADSTAT LV )@@G@@(A) $ @[@@@APLOT $@G@E@AOLSQ SALES CONST TREN OCT DEC JAN FEB MAR APR MALW )@@G@@Y JUN JUL AUG SEP $ @H@@@EOLSQ SALES CONST TREN OCT DEC JAN FEB MAR LX )@@G@@APR MAY JUN JUL AUG SEP WI SP $ @A@@@DRETRIEVE ACT 32,FIT 33, SER 16LY )@@G@@ $ @^@@@DGENR RES = ACT - FIT $ @^@@@DGENR SRES = RES / SER $ @^@@@DLZ )@@G@@PRINT ACT FIT RES SRES $@ @@@DSPLOT XVAR=SALES,YVAR=RES $ @[@@@DEND MA )@@G@@@[@D@AEND ___^@)@I@@[@AC)AC)AC)AC)A@)A@)A@)A@)A@)A@)A@)AC)AC)AC)AC)AC)MB )@@G@@A@)A@)A@)A@)A@)A@)A@)AC)AC)AC)AC)AC)@F@@[@A@)A@)*[S@@@*SDFF*@A@@@@HEADINMC )@@G@@G $KOOL KAMP SALES FORECAST$ @]@@@@SAMPLE 1 48$@[@@@@PLOT $@F@@@@LOAD SMD )@@G@@ALES TREND OCT DEC JAN FEB MAR APR MAY JUN JUL AUG SEPT @ @@@@1.3 1 ME )@@G@@1 0 0 0 0 0 0 0 0 0 0 @ @@@@0.1 2 0 0 0 0 0 0 0 0 0 0 0 @ @@@@0.5 3 MF )@@G@@0 1 0 0 0 0 0 0 0 0 0 @ @@@@9.5 4 0 0 1 0 0 0 0 0 0 0 0 @ @@@@37.2 5MG )@@G@@ 0 0 0 1 0 0 0 0 0 0 0 @ @@@@81.1 6 0 0 0 0 1 0 0 0 0 0 0 @ @@@@87.3 7MH )@@G@@ 0 0 0 0 0 1 0 0 0 0 0 @ @@@@59.5 8 0 0 0 0 0 0 1 0 0 0 0 @ @@@@72.9 9MI )@@G@@ 0 0 0 0 0 0 0 1 0 0 0 @ @@@@58.6 10 0 0 0 0 0 0 0 0 1 0 0 @ @@@@28.1 1MJ )@@G@@1 0 0 0 0 0 0 0 0 0 1 0 @ @@@@14.1 12 0 0 0 0 0 0 0 0 0 0 1 @ @@@@6.4 13MK )@@G@@ 1 0 0 0 0 0 0 0 0 0 0 @ @@@@12.7 14 0 0 0 0 0 0 0 0 0 0 0 @ @@@@13.3 1ML )@@G@@5 0 1 0 0 0 0 0 0 0 0 0 @ @@@@20.9 16 0 0 1 0 0 0 0 0 0 0 0 @ @@@@65.5 1MM )@@G@@7 0 0 0 1 0 0 0 0 0 0 0 @ @@@@124.5 18 0 0 0 0 1 0 0 0 0 0 0@ @@@@144.0 MN )@@G@@19 0 0 0 0 0 1 0 0 0 0 0@ @@@@137.8 20 0 0 0 0 0 0 1 0 0 0 0@A@@@@156 ?.MO )@@G@@0 21 0 0 0 0 0 0 0 1 0 0 0 @ @@@@89.2 22 0 0 0 0 0 0 0 0 1 0 0 @ @@@@MP )@@G@@36.9 23 0 0 0 0 0 0 0 0 0 1 0 @ @@@@25.2 24 0 0 0 0 0 0 0 0 0 0 1 @ @@@@MQ )@@G@@18.8 25 1 0 0 0 0 0 0 0 0 0 0 @ @@@@13.2 26 0 0 0 0 0 0 0 0 0 0 0 @ @@@@MR )@@G@@11.6 27 0 1 0 0 0 0 0 0 0 0 0 @ @@@@53.4 28 0 0 1 0 0 0 0 0 0 0 0 @ @@@@MS )@@G@@126.2 29 0 0 0 1 0 0 0 0 0 0 0@ @@@@153.9 30 0 0 0 0 1 0 0 0 0 0 0@ @@@@MT )@@G@@188.2 31 0 0 0 0 0 1 0 0 0 0 0@ @@@@206.1 32 0 0 0 0 0 0 1 0 0 0 0@ @@@@MU )@@G@@168.9 33 0 0 0 0 0 0 0 1 0 0 0@ @@@@97.6 34 0 0 0 0 0 0 0 0 1 0 0 @ @@@@MV )@@G@@35.2 35 0 0 0 0 0 0 0 0 0 1 0 @ @@@@33.7 36 0 0 0 0 0 0 0 0 0 0 1 @A@@@@MW )@@G@@20.4 37 1 ?0 0 0 0 0 0 0 0 0 0 @ @@@@13.5 38 0 0 0 0 0 0 0 0 0 0 0 MX )@@G@@@ @@@@22.8 39 0 1 0 0 0 0 0 0 0 0 0 @ @@@@92.7 40 0 0 1 0 0 0 0 0 0 0 0 MY )@@G@@@ @@@@161.7 41 0 0 0 1 0 0 0 0 0 0 0@ @@@@316.8 42 0 0 0 0 1 0 0 0 0 0 0MZ )@@G@@@ @@@@372.8 43 0 0 0 0 0 1 0 0 0 0 0@ @@@@272.4 44 0 0 0 0 0 0 1 0 0 0 0NA )@@G@@@ @@@@181.0 45 0 0 0 0 0 0 0 1 0 0 0@ @@@@92.1 46 0 0 0 0 0 0 0 0 1 0 0 NB )@@G@@@ @@@@39.9 47 0 0 0 0 0 0 0 0 0 1 0 @ @@@@34.2 48 0 0 0 0 0 0 0 0 0 0 1 NC )@@G@@@[@@@@$ @#@@@@GENR CONST = 1$ @ @@@@LIST (A) MONTH ACTUAL SALES ND )@@G@@@]@@@@DSTAT(A)$ @E@@@@OLSQ SALES CONST TREND OCT DEC JAN FEB MAR APR MNE )@@G@@AY JUN JUL @]@@@@AUG SEPT$ @ @@@@RETRIEVE ACT32,FIT33,SER16$ @#@@@@NF )@@G@@GENR RES=ACT-FIT$ @#@@@@GENR SRES=RES/SER$@ @@@@SPLOT XVAR=SALES,YVAR=RENG )@@G@@S$ @ @@@@SPLOT XVAR=SALES,YVAR=SRES$ @[@@@@END$ ___@@@RETRIEVE ACTNH )@@G@@32,FIT33,SER16$ @#@@@@GENR RES=ACT-FIT$ @#@@@@GENR SRES=RES/SER$@ @@@@NI )@@G@@SPLOT XVAR=SALES,YVAR=RE*[S@@@*SDFF*@#@@@HSAMPLE 1 48 $ @]@@@HLOAD SNJ )@@G@@ALES $@F@@@H1.3 .1 .5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28.1 14.1 6.4 12NK )@@G@@.7 @E@@@H13.3 20.9 65.5 124.5 144 137.8 156. 89.2 36.9 25.2 18.8 13.2NL )@@G@@@E@@@H11.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6 35.2 33.7 20.4 @E@@@HNM )@@G@@13.5 22.8 92.7 161.7 316.8 372.8 272.4 181. 92.1 39.9 34.2 $@#@@@HGENR CNN )@@G@@ONST = 1 $ @D@@@HLOAD OCT DEC JAN FEB MAR APR MAY JUN JUL AUG SEP $ NO )@@G@@@^@@@H 1 0 0 0 0 0 0 0 0 0 0 @^@@@H0 0 0 0 0 0 0 0 0 0 0 @^@@@H0 1 0 NP )@@G@@0 0 0 0 0 0 0 0 @^@@@H0 0 1 0 0 0 0 0 0 0 0 @^@@@H0 0 0 1 0 0 0 0 0 NQ )@@G@@0 0 @^@@@H0 0 0 0 1 0 0 0 0 0 0 @^@@@H0 0 0 0 0 1 0 0 0 0 0 @^@@@HNR )@@G@@0 0 0 0 0 0 1 0 0 0 0 @^@@@H0 0 0 0 0 0 0 1 0 0 0 @^@@@H0 0 0 0 0 0 NS )@@G@@0 0 1 0 0 @^@@@H0 0 0 0 0 0 0 0 0 1 0 @^@@@H0 0 0 0 0 0 0 0 0 0 1 NT )@@G@@@^@@@H1 0 0 0 0 0 0 0 0 0 0 @^@@@H0 0 0 0 0 0 0 0 0 0 0 @^@@@H0 1 0 NU )@@G@@0 0 0 0 0 0 0 0 @^@@@H0 0 1 0 0 0 0 0 0 0 0 @^@@@H0 0 0 1 0 0 0 0 0 NV )@@G@@0 0 @^@@@H0 0 0 0 1 0 0 0 0 0 0 @^@@@H0 0 0 0 0 1 0 0 0 0 0 @^@@@HNW )@@G@@0 0 0 0 0 0 1 0 0 0 0 @^@@@H0 0 0 0 0 0 0 1 0 0 0 @^@@@H0 0 0 0 0 0 NX )@@G@@0 0 1 0 0 @^@@@H0 0 0 0 0 0 0 0 0 1 0 @^@@@H0 0 0 0 0 0 0 0 0 0 1 NY )@@G@@@^@@@H1 0 0 0 0 0 0 0 0 0 0 @^@@@H0 0 0 0 0 0 0 0 0 0 0 @^@@@H0 1 0 NZ )@@G@@0 0 0 0 0 0 0 0 @^@@@H0 0 1 0 0 0 0 0 0 0 0 @^@@@H0 0 0 1 0 0 0 0 0 OA )@@G@@0 0 @^@@@H0 0 0 0 1 0 0 0 0 0 0 @^@@@H0 0 0 0 0 1 0 0 0 0 0 @^@@@HOB )@@G@@0 0 0 0 0 0 1 0 0 0 0 @^@@@H0 0 0 0 0 0 0 1 0 0 0 @^@@@H0 0 0 0 0 0 OC )@@G@@0 0 1 0 0 @^@@@H0 0 0 0 0 0 0 0 0 1 0 @^@@@H0 0 0 0 0 0 0 0 0 0 1 OD )@@G@@@^@@@H1 0 0 0 0 0 0 0 0 0 0 @^@@@H0 0 0 0 0 0 0 0 0 0 0 @^@@@H0 1 0 OE )@@G@@0 0 0 0 0 0 0 0 @^@@@H0 0 1 0 0 0 0 0 0 0 0 @^@@@H0 0 0 1 0 0 0 0 0 OF )@@G@@0 0 @^@@@H0 0 0 0 1 0 0 0 0 0 0 @^@@@H0 0 0 0 0 1 0 0 0 0 0 @^@@@HOG )@@G@@0 0 0 0 0 0 1 0 0 0 0 @^@@@H0 0 0 0 0 0 0 1 0 0 0 @^@@@H0 0 0 0 0 0 OH )@@G@@0 0 1 0 0 @^@@@H0 0 0 0 0 0 0 0 0 1 0 @^@@@H0 0 0 0 0 0 0 0 0 0 1 $ OI )@@G@@@]@@@HLOAD TREND $@E@@@H1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 OJ )@@G@@20 21 22 23 @E@@@H24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 OK )@@G@@42 @^@@@H43 44 45 46 47 48 $ @ @I@HGENR TREND = TREND ** 2 $ OL )@@G@@@ @J@IGENR TREND = LOG(TREND) $ @^@K@JGENR TREND = TREND **3 $@ @@@KOM )@@G@@GENR TREND = 1/(TREND ** 2) $ @E@@@HOLSQ SALES CONST TREND OCT DEC JAN FON )@@G@@EB MAR APR MAY JUN JUL @]@@@HAUG SEP $ @A@@@HSPLOT XVAR = TREND,YVAR OO )@@G@@= SALES $ @[@@@HEND $ ___ 0 0 0 0 1 0 @^@@@G0 0 0 0 0 0 0 0 0 0 1 $ OP )@@G@@*[S@@@*SDFF*@]@ @^SAMPLE 1 6 $@]@@@ SAMPLE 1 7 $@A@@@^LIST(A) SALES CONSOQ )@@G@@T TREND HIGH $ @]@@@^LOAD SALES $@B@ @^133.2 648.7 194.9 896.7 233.2 OR )@@G@@1397.4 $ @C@@@ 347.5 133.2 648.7 194.9 896.7 233.2 1397.4 $ @]@@@^OS )@@G@@CONST = 1 $ @]@@@^LOAD TREND $@#@ @^1 2 3 4 5 6 $ @#@@@ 1 2 3 4 5 6 OT )@@G@@7 $ @]@@@^LOAD HIGH $ @#@ @^0 1 0 1 0 1 $ @#@@@ 1 0 1 0 1 0 1 $ OU )@@G@@@[@@@BPLOT $@ @@@^OLSQ SALES CONST TREND HIGH $ @]@ @^DSTAT(A) @]@A@ OV )@@G@@DSTAT (A) @A@ @^SPLOT YVAR = SALES, XVAR = TREND $ @A@@@^RETRIEVE ACTOW )@@G@@ 32, FIT 33, SER 16 $ @^@@@^GENR RES = ACT - FIT $ @^@@@^GENR SRES = OX )@@G@@RES / SER $ @^@@@^PRINT ACT FIT RES SRES $@A@B@^SPLOT XVAR = TREND, YVAROY )@@G@@ = RES $ @ @@@BSPLOT XVAR = FIT,YVAR = RES $ @[@@@^END $ @[@@@^EXIT OZ )@@G@@___@@#END $ @[@@@#EXIT ___AK?^[ADDO^@3AS?^[NC(M^@1A0)^))^@)@A@@@#C9 D1MPA )@@G@@^[MC(N^@.^[[CTO^@!^[ADDO^@=^@)@A@@@#C9 D1M^[NEL *[S@@@*SDFF*@A@@@@HEADINPB )@@G@@G $KOOL KAMP SALES FORECAST$ @]@@@@SAMPLE 1 48$@[@@@@PLOT $@F@@@@LOAD SPC )@@G@@ALES TREND OCT DEC JAN FEB MAR APR MAY JUN JUL AUG SEPT @ @@@@1.3 1 PD )@@G@@1 0 0 0 0 0 0 0 0 0 0 @ @@@@0.1 2 0 0 0 0 0 0 0 0 0 0 0 @ @@@@0.5 3 PE )@@G@@0 1 0 0 0 0 0 0 0 0 0 @ @@@@9.5 4 0 0 1 0 0 0 0 0 0 0 0 @ @@@@37.2 5PF )@@G@@ 0 0 0 1 0 0 0 0 0 0 0 @ @@@@81.1 6 0 0 0 0 1 0 0 0 0 0 0 @ @@@@87.3 7PG )@@G@@ 0 0 0 0 0 1 0 0 0 0 0 @ @@@@59.5 8 0 0 0 0 0 0 1 0 0 0 0 @ @@@@72.9 9PH )@@G@@ 0 0 0 0 0 0 0 1 0 0 0 @ @@@@58.6 10 0 0 0 0 0 0 0 0 1 0 0 @ @@@@28.1 1PI )@@G@@1 0 0 0 0 0 0 0 0 0 1 0 @ @@@@14.1 12 0 0 0 0 0 0 0 0 0 0 1 @ @@@@6.4 13PJ )@@G@@ 1 0 0 0 0 0 0 0 0 0 0 @ @@@@12.7 14 0 0 0 0 0 0 0 0 0 0 0 @ @@@@13.3 1PK )@@G@@5 0 1 0 0 0 0 0 0 0 0 0 @ @@@@20.9 16 0 0 1 0 0 0 0 0 0 0 0 @ @@@@65.5 1PL )@@G@@7 0 0 0 1 0 0 0 0 0 0 0 @ @@@@124.5 18 0 0 0 0 1 0 0 0 0 0 0@ @@@@144.0 PM )@@G@@19 0 0 0 0 0 1 0 0 0 0 0@ @@@@137.8 20 0 0 0 0 0 0 1 0 0 0 0@A@]@@156 ?.PN )@@G@@0 21 0 0 0 0 0 0 0 1 0 0 0 @ @@@]156.0 21 0 0 0 0 0 0 0 1 0 0 0@ @@@@PO )@@G@@89.2 22 0 0 0 0 0 0 0 0 1 0 0 @ @@@@36.9 23 0 0 0 0 0 0 0 0 0 1 0 @ @@@@PP )@@G@@25.2 24 0 0 0 0 0 0 0 0 0 0 1 @ @@@@18.8 25 1 0 0 0 0 0 0 0 0 0 0 @ @@@@PQ )@@G@@13.2 26 0 0 0 0 0 0 0 0 0 0 0 @ @@@@11.6 27 0 1 0 0 0 0 0 0 0 0 0 @ @@@@PR )@@G@@53.4 28 0 0 1 0 0 0 0 0 0 0 0 @ @@@@126.2 29 0 0 0 1 0 0 0 0 0 0 0@ @@@@PS )@@G@@153.9 30 0 0 0 0 1 0 0 0 0 0 0@ @@@@188.2 31 0 0 0 0 0 1 0 0 0 0 0@ @@@@PT )@@G@@206.1 32 0 0 0 0 0 0 1 0 0 0 0@ @@@@168.9 33 0 0 0 0 0 0 0 1 0 0 0@ @@@@PU )@@G@@97.6 34 0 0 0 0 0 0 0 0 1 0 0 @ @@@@35.2 35 0 0 0 0 0 0 0 0 0 1 0 @ @@@@PV )@@G@@33.7 36 0 0 0 0 0 0 0 0 0 0 1 @A@@@@20.4 37 1 ?0 0 0 0 0 0 0 0 0 0 PW )@@G@@@ @@@@13.5 38 0 0 0 0 0 0 0 0 0 0 0 @ @@@@22.8 39 0 1 0 0 0 0 0 0 0 0 0 PX )@@G@@@ @@@@92.7 40 0 0 1 0 0 0 0 0 0 0 0 @ @@@@161.7 41 0 0 0 1 0 0 0 0 0 0 0PY )@@G@@@ @@@@316.8 42 0 0 0 0 1 0 0 0 0 0 0@ @@@@372.8 43 0 0 0 0 0 1 0 0 0 0 0PZ )@@G@@@ @@@@272.4 44 0 0 0 0 0 0 1 0 0 0 0@ @@@@181.0 45 0 0 0 0 0 0 0 1 0 0 0QA )@@G@@@ @@@@92.1 46 0 0 0 0 0 0 0 0 1 0 0 @ @@@@39.9 47 0 0 0 0 0 0 0 0 0 1 0 QB )@@G@@@ @@@@34.2 48 0 0 0 0 0 0 0 0 0 0 1 @[@@@@$ @#@@@@GENR CONST = 1$ QC )@@G@@@ @@@@LIST (A) MONTH ACTUAL SALES @]@@@@DSTAT(A)$ @E@@@@OLSQ SALES CQD )@@G@@ONST TREND OCT DEC JAN FEB MAR APR MAY JUN JUL @]@@@@AUG SEPT$ @ @@@@QE )@@G@@RETRIEVE ACT32,FIT33,SER16$ @#@@@@GENR RES=ACT-FIT$ @#@@@@GENR SRES=REQF )@@G@@S/SER$@ @@@@SPLOT XVAR=SALES,YVAR=RES$ @ @@@@SPLOT XVAR=SALES,YVAR=SRQG )@@G@@ES$ @[@@@@END$ ___@@@GENR RES=ACT-FIT$ @#@@@@GENR SRES=RES/SER$@ @@@@QH )@@G@@SPLOT XVAR=SALES,YVAR=RE*[S@@@*SDFF*@A@@@@HEADING $KOOL KAMP SALES FORECQI )@@G@@AST$ @]@@@@SAMPLE 1 48$@[@@@@PLOT $@F@@@@LOAD SALES TREND OCT DEC JAN FQJ )@@G@@EB MAR APR MAY JUN JUL AUG SEPT @ @@@@1.3 1 1 0 0 0 0 0 0 0 0 0 0 QK )@@G@@@ @@@@0.1 2 0 0 0 0 0 0 0 0 0 0 0 @ @@@@0.5 3 0 1 0 0 0 0 0 0 0 0 0 QL )@@G@@@ @@@@9.5 4 0 0 1 0 0 0 0 0 0 0 0 @ @@@@37.2 5 0 0 0 1 0 0 0 0 0 0 0 QM )@@G@@@ @@@@81.1 6 0 0 0 0 1 0 0 0 0 0 0 @ @@@@87.3 7 0 0 0 0 0 1 0 0 0 0 0 QN )@@G@@@ @@@@59.5 8 0 0 0 0 0 0 1 0 0 0 0 @ @@@@72.9 9 0 0 0 0 0 0 0 1 0 0 0 QO )@@G@@@ @@@@58.6 10 0 0 0 0 0 0 0 0 1 0 0 @ @@@@28.1 11 0 0 0 0 0 0 0 0 0 1 0 QP )@@G@@@ @@@@14.1 12 0 0 0 0 0 0 0 0 0 0 1 @ @@@@6.4 13 1 0 0 0 0 0 0 0 0 0 0 QQ )@@G@@@ @@@@12.7 14 0 0 0 0 0 0 0 0 0 0 0 @ @@@@13.3 15 0 1 0 0 0 0 0 0 0 0 0 QR )@@G@@@ @@@@20.9 16 0 0 1 0 0 0 0 0 0 0 0 @ @@@@65.5 17 0 0 0 1 0 0 0 0 0 0 0 QS )@@G@@@ @@@@124.5 18 0 0 0 0 1 0 0 0 0 0 0@ @@@@144.0 19 0 0 0 0 0 1 0 0 0 0 0QT )@@G@@@ @@@@137.8 20 0 0 0 0 0 0 1 0 0 0 0@A@]@@156 ?.0 21 0 0 0 0 0 0 0 1 0 0QU )@@G@@ 0 @ @@@]156.0 21 0 0 0 0 0 0 0 1 0 0 0@ @@@@89.2 22 0 0 0 0 0 0 0 0 QV )@@G@@1 0 0 @ @@@@36.9 23 0 0 0 0 0 0 0 0 0 1 0 @ @@@@25.2 24 0 0 0 0 0 0 0 0 QW )@@G@@0 0 1 @ @@@@18.8 25 1 0 0 0 0 0 0 0 0 0 0 @ @@@@13.2 26 0 0 0 0 0 0 0 0 QX )@@G@@0 0 0 @ @@@@11.6 27 0 1 0 0 0 0 0 0 0 0 0 @ @@@@53.4 28 0 0 1 0 0 0 0 0 QY )@@G@@0 0 0 @ @@@@126.2 29 0 0 0 1 0 0 0 0 0 0 0@ @@@@153.9 30 0 0 0 0 1 0 0 0QZ )@@G@@ 0 0 0@ @@@@188.2 31 0 0 0 0 0 1 0 0 0 0 0@ @@@@206.1 32 0 0 0 0 0 0 1 0RA )@@G@@ 0 0 0@ @@@@168.9 33 0 0 0 0 0 0 0 1 0 0 0@ @@@@97.6 34 0 0 0 0 0 0 0 0 RB )@@G@@1 0 0 @ @@@@35.2 35 0 0 0 0 0 0 0 0 0 1 0 @ @@@@33.7 36 0 0 0 0 0 0 0 0 RC )@@G@@0 0 1 @A@@@@20.4 37 1 ?0 0 0 0 0 0 0 0 0 0 @ @@@@13.5 38 0 0 0 0 0 RD )@@G@@0 0 0 0 0 0 @ @@@@22.8 39 0 1 0 0 0 0 0 0 0 0 0 @ @@@@92.7 40 0 0 1 0 0 RE )@@G@@0 0 0 0 0 0 @ @@@@161.7 41 0 0 0 1 0 0 0 0 0 0 0@ @@@@316.8 42 0 0 0 0 1RF )@@G@@ 0 0 0 0 0 0@ @@@@372.8 43 0 0 0 0 0 1 0 0 0 0 0@ @@@@272.4 44 0 0 0 0 0RG )@@G@@ 0 1 0 0 0 0@ @@@@181.0 45 0 0 0 0 0 0 0 1 0 0 0@ @@@@92.1 46 0 0 0 0 0 RH )@@G@@0 0 0 1 0 0 @ @@@@39.9 47 0 0 0 0 0 0 0 0 0 1 0 @ @@@@34.2 48 0 0 0 0 0 RI )@@G@@0 0 0 0 0 1 @[@@@@$ @#@@@@GENR CONST = 1$ @ @@@@LIST (A) MONTH ACTRJ )@@G@@UAL SALES @]@@@@DSTAT(A)$ @E@@@@OLSQ SALES CONST TREND OCT DEC JAN FRK )@@G@@EB MAR APR MAY JUN JUL @]@@@@AUG SEPT$ @ @@@@RETRIEVE ACT32,FIT33,SERRL )@@G@@16$ @#@@@@GENR RES=ACT-FIT$ @#@@@@GENR SRES=RES/SER$@ @@@@SPLOT XVAR=SRM )@@G@@ALES,YVAR=RES$ @ @@@@SPLOT XVAR=SALES,YVAR=SRES$ @[@@@@END$ ___@@@RN )@@G@@RETRIEVE ACT32,FIT33,SER16$ @#@@@@GENR RES=ACT-FIT$ @#@@@@GENR SRES=RERO )@@G@@*[S@@@*SDFF*@A@@@@HEADING $KOOL KAMP SALES FORECAST$ @]@@@@SAMPLE 1 48$RP )@@G@@@[@@@@PLOT $@F@^@@LOAD SALES TREND OCT DEC JAN FEB MAR APR MAY JUN JUL ARQ )@@G@@UG SEPT @E@@@^SALES TREND OCT DEC JAN FEB MAR APR MAY JUN JUL AUG SERR )@@G@@PT$ @ @@@@1.3 1 1 0 0 0 0 0 0 0 0 0 0 @ @@@@0.1 2 0 0 0 0 0 0 0 0 0 RS )@@G@@0 0 @ @@@@0.5 3 0 1 0 0 0 0 0 0 0 0 0 @ @@@@9.5 4 0 0 1 0 0 0 0 0 0 RT )@@G@@0 0 @ @@@@37.2 5 0 0 0 1 0 0 0 0 0 0 0 @ @@@@81.1 6 0 0 0 0 1 0 0 0 0RU )@@G@@ 0 0 @ @@@@87.3 7 0 0 0 0 0 1 0 0 0 0 0 @ @@@@59.5 8 0 0 0 0 0 0 1 0 0RV )@@G@@ 0 0 @ @@@@72.9 9 0 0 0 0 0 0 0 1 0 0 0 @ @@@@58.6 10 0 0 0 0 0 0 0 0 RW )@@G@@1 0 0 @ @@@@28.1 11 0 0 0 0 0 0 0 0 0 1 0 @ @@@@14.1 12 0 0 0 0 0 0 0 0 RX )@@G@@0 0 1 @ @@@@6.4 13 1 0 0 0 0 0 0 0 0 0 0 @ @@@@12.7 14 0 0 0 0 0 0 0 0 RY )@@G@@0 0 0 @ @@@@13.3 15 0 1 0 0 0 0 0 0 0 0 0 @ @@@@20.9 16 0 0 1 0 0 0 0 0 RZ )@@G@@0 0 0 @ @@@@65.5 17 0 0 0 1 0 0 0 0 0 0 0 @ @@@@124.5 18 0 0 0 0 1 0 0 0SA )@@G@@ 0 0 0@ @@@@144.0 19 0 0 0 0 0 1 0 0 0 0 0@ @@@@137.8 20 0 0 0 0 0 0 1 0SB )@@G@@ 0 0 0@A@]@@156 ?.0 21 0 0 0 0 0 0 0 1 0 0 0 @ @@@]156.0 21 0 0 0 0 0SC )@@G@@ 0 0 1 0 0 0@ @@@@89.2 22 0 0 0 0 0 0 0 0 1 0 0 @ @@@@36.9 23 0 0 0 0 0 SD )@@G@@0 0 0 0 1 0 @ @@@@25.2 24 0 0 0 0 0 0 0 0 0 0 1 @ @@@@18.8 25 1 0 0 0 0 SE )@@G@@0 0 0 0 0 0 @ @@@@13.2 26 0 0 0 0 0 0 0 0 0 0 0 @ @@@@11.6 27 0 1 0 0 0 SF )@@G@@0 0 0 0 0 0 @ @@@@53.4 28 0 0 1 0 0 0 0 0 0 0 0 @ @@@@126.2 29 0 0 0 1 0SG )@@G@@ 0 0 0 0 0 0@ @@@@153.9 30 0 0 0 0 1 0 0 0 0 0 0@ @@@@188.2 31 0 0 0 0 0SH )@@G@@ 1 0 0 0 0 0@ @@@@206.1 32 0 0 0 0 0 0 1 0 0 0 0@ @@@@168.9 33 0 0 0 0 0SI )@@G@@ 0 0 1 0 0 0@ @@@@97.6 34 0 0 0 0 0 0 0 0 1 0 0 @ @@@@35.2 35 0 0 0 0 0 SJ )@@G@@0 0 0 0 1 0 @ @@@@33.7 36 0 0 0 0 0 0 0 0 0 0 1 @A@@@@20.4 37 1 ?0 0 0 SK )@@G@@0 0 0 0 0 0 0 @ @@@@13.5 38 0 0 0 0 0 0 0 0 0 0 0 @ @@@@22.8 39 0 1 SL )@@G@@0 0 0 0 0 0 0 0 0 @ @@@@92.7 40 0 0 1 0 0 0 0 0 0 0 0 @ @@@@161.7 41 0 0SM )@@G@@ 0 1 0 0 0 0 0 0 0@ @@@@316.8 42 0 0 0 0 1 0 0 0 0 0 0@ @@@@372.8 43 0 0SN )@@G@@ 0 0 0 1 0 0 0 0 0@ @@@@272.4 44 0 0 0 0 0 0 1 0 0 0 0@ @@@@181.0 45 0 0SO )@@G@@ 0 0 0 0 0 1 0 0 0@ @@@@92.1 46 0 0 0 0 0 0 0 0 1 0 0 @ @@@@39.9 47 0 0 SP )@@G@@0 0 0 0 0 0 0 1 0 @ @@@@34.2 48 0 0 0 0 0 0 0 0 0 0 1 @[@@@@$ @#@@@@SQ )@@G@@GENR CONST = 1$ @ @@@@LIST (A) MONTH ACTUAL SALES @]@@@@DSTAT(A)$ SR )@@G@@@E@@@@OLSQ SALES CONST TREND OCT DEC JAN FEB MAR APR MAY JUN JUL @]@@@@SS )@@G@@AUG SEPT$ @ @@@@RETRIEVE ACT32,FIT33,SER16$ @#@@@@GENR RES=ACT-FIT$ ST )@@G@@@#@@@@GENR SRES=RES/SER$@ @@@@SPLOT XVAR=SALES,YVAR=RES$ @ @@@@SPLOT SU )@@G@@XVAR=SALES,YVAR=SRES$ @[@@@@END$ ___ 0 0 0 0 *[S@@@*SDFF*@A@@@@HEADINSV )@@G@@G $KOOL KAMP SALES FORECAST$ @]@@@@SAMPLE 1 48$@[@@@@PLOT $@F@]@@LOAD SSW )@@G@@ALES TREND OCT DEC JAN FEB MAR APR MAY JUN JUL AUG SEPT @F@@@]LOAD SSX )@@G@@ALES TREND OCT DEC JAN FEB MAR APR MAY JUN JUL AUG SEPT$ @ @@@@1.3 1 SY )@@G@@1 0 0 0 0 0 0 0 0 0 0 @ @@@@0.1 2 0 0 0 0 0 0 0 0 0 0 0 @ @@@@0.5 3 SZ )@@G@@0 1 0 0 0 0 0 0 0 0 0 @ @@@@9.5 4 0 0 1 0 0 0 0 0 0 0 0 @ @@@@37.2 5TA )@@G@@ 0 0 0 1 0 0 0 0 0 0 0 @ @@@@81.1 6 0 0 0 0 1 0 0 0 0 0 0 @ @@@@87.3 7TB )@@G@@ 0 0 0 0 0 1 0 0 0 0 0 @ @@@@59.5 8 0 0 0 0 0 0 1 0 0 0 0 @ @@@@72.9 9TC )@@G@@ 0 0 0 0 0 0 0 1 0 0 0 @ @@@@58.6 10 0 0 0 0 0 0 0 0 1 0 0 @ @@@@28.1 1TD )@@G@@1 0 0 0 0 0 0 0 0 0 1 0 @ @@@@14.1 12 0 0 0 0 0 0 0 0 0 0 1 @ @@@@6.4 13TE )@@G@@ 1 0 0 0 0 0 0 0 0 0 0 @ @@@@12.7 14 0 0 0 0 0 0 0 0 0 0 0 @ @@@@13.3 1TF )@@G@@5 0 1 0 0 0 0 0 0 0 0 0 @ @@@@20.9 16 0 0 1 0 0 0 0 0 0 0 0 @ @@@@65.5 1TG )@@G@@7 0 0 0 1 0 0 0 0 0 0 0 @ @@@@124.5 18 0 0 0 0 1 0 0 0 0 0 0@ @@@@144.0 TH )@@G@@19 0 0 0 0 0 1 0 0 0 0 0@ @@@@137.8 20 0 0 0 0 0 0 1 0 0 0 0@A@@@@156 ?.TI )@@G@@0 21 0 0 0 0 0 0 0 1 0 0 0 @ @@@@89.2 22 0 0 0 0 0 0 0 0 1 0 0 @ @@@@TJ )@@G@@36.9 23 0 0 0 0 0 0 0 0 0 1 0 @ @@@@25.2 24 0 0 0 0 0 0 0 0 0 0 1 @ @@@@TK )@@G@@18.8 25 1 0 0 0 0 0 0 0 0 0 0 @ @@@@13.2 26 0 0 0 0 0 0 0 0 0 0 0 @ @@@@TL )@@G@@11.6 27 0 1 0 0 0 0 0 0 0 0 0 @ @@@@53.4 28 0 0 1 0 0 0 0 0 0 0 0 @ @@@@TM )@@G@@126.2 29 0 0 0 1 0 0 0 0 0 0 0@ @@@@153.9 30 0 0 0 0 1 0 0 0 0 0 0@ @@@@TN )@@G@@188.2 31 0 0 0 0 0 1 0 0 0 0 0@ @@@@206.1 32 0 0 0 0 0 0 1 0 0 0 0@ @@@@TO )@@G@@168.9 33 0 0 0 0 0 0 0 1 0 0 0@ @@@@97.6 34 0 0 0 0 0 0 0 0 1 0 0 @ @@@@TP )@@G@@35.2 35 0 0 0 0 0 0 0 0 0 1 0 @ @@@@33.7 36 0 0 0 0 0 0 0 0 0 0 1 @A@@@@TQ )@@G@@20.4 37 1 ?0 0 0 0 0 0 0 0 0 0 @ @@@@13.5 38 0 0 0 0 0 0 0 0 0 0 0 TR )@@G@@@ @@@@22.8 39 0 1 0 0 0 0 0 0 0 0 0 @ @@@@92.7 40 0 0 1 0 0 0 0 0 0 0 0 TS )@@G@@@ @@@@161.7 41 0 0 0 1 0 0 0 0 0 0 0@ @@@@316.8 42 0 0 0 0 1 0 0 0 0 0 0TT )@@G@@@ @@@@372.8 43 0 0 0 0 0 1 0 0 0 0 0@ @@@@272.4 44 0 0 0 0 0 0 1 0 0 0 0TU )@@G@@@ @@@@181.0 45 0 0 0 0 0 0 0 1 0 0 0@ @@@@92.1 46 0 0 0 0 0 0 0 0 1 0 0 TV )@@G@@@ @@@@39.9 47 0 0 0 0 0 0 0 0 0 1 0 @ @@@@34.2 48 0 0 0 0 0 0 0 0 0 0 1 TW )@@G@@@[@@@@$ @#@@@@GENR CONST = 1$ @ @@@@LIST (A) MONTH ACTUAL SALES TX )@@G@@@]@@@@DSTAT(A)$ @E@@@@OLSQ SALES CONST TREND OCT DEC JAN FEB MAR APR MTY )@@G@@AY JUN JUL @]@@@@AUG SEPT$ @ @@@@RETRIEVE ACT32,FIT33,SER16$ @#@@@@TZ )@@G@@GENR RES=ACT-FIT$ @#@@@@GENR SRES=RES/SER$@ @@@@SPLOT XVAR=SALES,YVAR=REUA )@@G@@S$ @ @@@@SPLOT XVAR=SALES,YVAR=SRES$ @[@@@@END$ ___=RES/SER$@ @@@@UB )@@G@@SPLOT XVAR=SALES,YVAR=RE*[S@@@*SDFF*@ @@@@HEADING $ KOOL KAMP SALES $ UC )@@G@@@#@@@@SAMPLE 1 48 $ @[@@@@PLOT $@]@@@@LOAD SALES $@E@@@@1.3 0.1 0.5 UD )@@G@@9.5 37.2 81.1 87.3 59.5 72.9 58.6 28.1 14.1 6.4 @F@@@@12.7 13.3 20.9 65.UE )@@G@@5 124.5 144.0 137.8 156.0 89.2 36.9 25.2 18.8 @E@@@@13.2 11.6 53.4 126UF )@@G@@.2 153.9 188.2 206.1 168.9 97.6 35.2 33.7 @E@@@@20.4 13.5 22.8 92.7 161.UG )@@G@@7 316.8 372.8 272.4 181.0 92.1 39.9 @[@@@@34.2 $@]@@@@LOAD TREND $@E@@@@UH )@@G@@1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 @E@@@@23 24 UI )@@G@@25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 @^@@@@43 44 45 46 UJ )@@G@@47 48 $ @]@@@@LOAD HIGH $ @D@[@@0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 1 UK )@@G@@1 1 1 0 0 0 0 @C@@@[0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 UL )@@G@@@D@@@@0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 $ @]@@@@LOAD LUM )@@G@@OW $ @C@@@@1 1 1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 @D@@@@1 1 1 UN )@@G@@0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 $ @#@@@@GENR CONST = 1 $ UO )@@G@@@ @@@@LIST(A) SALES TREND HIGH LOW $@]@]@@PRINT A $ @]@@@]PRINT (A) $ UP )@@G@@@]@@@@DSTAT (A) $ @A@@@@OLSQ SALES CONST TREND HIGH LOW $ @ @@@@OLSQ SUQ )@@G@@ALES CONST TREND HIGH $ @ @@@@OLSQ SALES CONST TREND LOW $ @A@@@@RETRIEUR )@@G@@VE ACT 32,FIT 33,SER 16 $ @^@@@@GENR RES = ACT-FIT $ @^@@@@GENR SUS )@@G@@RES = RES/SER $ @ @@@@SPLOT XVAR=SALES,YVAR=RES $ @ @@@@SPLOT XVAR=SUT )@@G@@ALES,YVAR=SRES $ @[@@@@END ___ETL^[NCDGC(N^[#D9IETO^[OEL D1^^[CDDBD@)UU )@@G@@*[S@@@*SDFF*@D@@@@HEADING $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ UV )@@G@@@#@@@@SAMPLE 1 12 $ @]@@@@LOAD MONTH $@[@@@@222.2 @]@@@@333.3 $ UW )@@G@@@]@@@@LOAD SALES $@]@@@@444 444 $ @#@@@@OLSQ SALES MONTH $@[@@@@END $ UX )@@G@@___@[@A)4A))A)4A))^))^@)@ @@[@D9GETL^[NCDGC(N^[HD9IE-C^@=^@)@]@@[@C(IC))UY )@@G@@^))^@)___^#*H<9@@CG;0@@[/K@ N@C@@@NE'=@@@8/K@[_4*[S@@@*SDFF*@ @@@BHEADINUZ )@@G@@G $ KOOL KAMP SALES $ @#@@@BSAMPLE 1 48 $ @]@@@BLOAD SALES $@E@@@BVA )@@G@@1.3 0.1 0.5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28.1 14.1 @F@@@B6.4 12VB )@@G@@.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 36.9 25.2 @E@@@B18.8 1VC )@@G@@3.2 11.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6 35.2 @E@@@B33.7 20.4 13VD )@@G@@.5 22.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1 @]@@@B39.9 34.2 $ @E@@@BVE )@@G@@LOAD TREN OCT DEC JAN FEB MAR APR MAY JUN JUL AUG SEP $ @^@@@B1 1 0 VF )@@G@@0 0 0 0 0 0 0 0 0 @^@@@B2 0 0 0 0 0 0 0 0 0 0 0 @^@@@B3 0 1 0 0 0 0 0 0 VG )@@G@@0 0 0 @^@@@B4 0 0 1 0 0 0 0 0 0 0 0 @^@@@B5 0 0 0 1 0 0 0 0 0 0 0 @^@@@BVH )@@G@@6 0 0 0 0 1 0 0 0 0 0 0 @^@@@B7 0 0 0 0 0 1 0 0 0 0 0 @^@@@B8 0 0 0 0 0 VI )@@G@@0 1 0 0 0 0 @^@@@B9 0 0 0 0 0 0 0 1 0 0 0 @^@@@B10 0 0 0 0 0 0 0 0 1 0 0VJ )@@G@@@^@@@B11 0 0 0 0 0 0 0 0 0 1 0@^@@@B12 0 0 0 0 0 0 0 0 0 0 1@^@@@B13 1 0VK )@@G@@ 0 0 0 0 0 0 0 0 0@^@@@B14 0 0 0 0 0 0 0 0 0 0 0@^@@@B15 0 1 0 0 0 0 0 0VL )@@G@@ 0 0 0@^@@@B16 0 0 1 0 0 0 0 0 0 0 0@^@@@B17 0 0 0 1 0 0 0 0 0 0 0@^@@@BVM )@@G@@18 0 0 0 0 1 0 0 0 0 0 0@^@@@B19 0 0 0 0 0 1 0 0 0 0 0@^@@@B20 0 0 0 0 0VN )@@G@@ 0 1 0 0 0 0@^@@@B21 0 0 0 0 0 0 0 1 0 0 0@^@@@B22 0 0 0 0 0 0 0 0 1 0 0VO )@@G@@@^@@@B23 0 0 0 0 0 0 0 0 0 1 0@^@@@B24 0 0 0 0 0 0 0 0 0 0 1@^@@@B25 1 0VP )@@G@@ 0 0 0 0 0 0 0 0 0@^@@@B26 0 0 0 0 0 0 0 0 0 0 0@^@@@B27 0 1 0 0 0 0 0 0VQ )@@G@@ 0 0 0@^@@@B28 0 0 1 0 0 0 0 0 0 0 0@^@@@B29 0 0 0 1 0 0 0 0 0 0 0@^@@@BVR )@@G@@30 0 0 0 0 1 0 0 0 0 0 0@^@@@B31 0 0 0 0 0 1 0 0 0 0 0@^@@@B32 0 0 0 0 0VS )@@G@@ 0 1 0 0 0 0@^@@@B33 0 0 0 0 0 0 0 1 0 0 0@^@@@B34 0 0 0 0 0 0 0 0 1 0 0VT )@@G@@@^@@@B35 0 0 0 0 0 0 0 0 0 1 0@^@@@B36 0 0 0 0 0 0 0 0 0 0 1@^@@@B37 1 0VU )@@G@@ 0 0 0 0 0 0 0 0 0@^@@@B38 0 0 0 0 0 0 0 0 0 0 0@^@@@B39 0 1 0 0 0 0 0 0VV )@@G@@ 0 0 0@^@@@B40 0 0 1 0 0 0 0 0 0 0 0@^@@@B41 0 0 0 1 0 0 0 0 0 0 0@^@@@BVW )@@G@@42 0 0 0 0 1 0 0 0 0 0 0@^@@@B43 0 0 0 0 0 1 0 0 0 0 0@^@@@B44 0 0 0 0 0VX )@@G@@ 0 1 0 0 0 0@^@@@B45 0 0 0 0 0 0 0 1 0 0 0@^@@@B46 0 0 0 0 0 0 0 0 1 0 0VY )@@G@@@ @@@B 47 0 0 0 0 0 0 0 0 0 1 0 @^@@@B48 0 0 0 0 0 0 0 0 0 0 1@[@@@BVZ )@@G@@$ @]@@@ELOAD WI $ @E@@@E1 1 1 1 0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 WA )@@G@@0 0 1 1 1 1 1 @B@@@E0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 1 $ @]@@@EWB )@@G@@LOAD SP $ @F@@@EI 0 0 0 0 1 1 0 0 0 1 1 0 0 0 0 0 1 1 0 0 0 1 1 0 0 0 WC )@@G@@0 0 1 1 @B@@@E0 0 0 1 1 0 0 0 0 0 1 1 0 0 0 1 1 0 $ @#@@@EGENR CWD )@@G@@ONST = 1 $ @#@E@BGENR CONST = 1 $ @]@D@BPRINT (A) $ @F@@@DLIST (A)SALEWE )@@G@@S TREN OCT DEC JAN FEB MAR APR MAY JUN JUL AUG SEP $ @]@@@BDSTAT (A) $ WF )@@G@@@[@@@BPLOT $@G@E@BOLSQ SALES CONST TREN OCT DEC JAN FEB MAR APR MAY JUN WG )@@G@@JUL AUG SEP $ @H@@@EOLSQ SALES CONST TREN OCT DEC JAN FEB MAR APR MAWH )@@G@@Y JUN JUL AUG SEP WI SP $ @A@@@DRETRIEVE ACT 32,FIT 33, SER 16 $ WI )@@G@@@^@@@DGENR RES = ACT - FIT $ @^@@@DGENR SRES = RES / SER $ @^@@@DPRINT WJ )@@G@@ACT FIT RES SRES $@ @@@DSPLOT XVAR=SALES,YVAR=RES $ @[@@@DEND @[@D@BWK )@@G@@END ___ 0 0 0 0 0 1 1 0 0 0 1 1 0 $ @#@@@EGENR CONST = 1 $ @#@E@AWL )@@G@@GENR CONST = 1 $ @]@D@APRINT (A) $ @F@@@DLIST (A)SALES TREN OCT DEC JANWM )@@G@@ FEB MAR APR MAY JUN JUL*[S@@@*SDFF*@^@@@@HEADING$FORECASTING$ @]@@@@WN )@@G@@SAMPLE 1 48$@#@@@@LOAD SALES$@FIN ___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@D@@@@HEADINWP )@@G@@G $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ @#@[@@SAMPLE 1 12 $ WQ )@@G@@@#@@@[SAMPLE 1 12 $ @]@[@@LOAD MONTH $@]@@@[LOAD OCT $ @[@[@@222.2 WR )@@G@@@ @@@[1 0 0 0 0 0 0 0 0 0 0 0 $ @]@[@@333.3 $ @]@[@@LOAD SALES $WS )@@G@@@]@@@[LOAD NOV $ @]@[@@444 444 $ @ @@@[0 1 0 0 0 0 0 0 0 0 0 0 $ WT )@@G@@@]@@@[LOAD SALES $@C@@@[1.3 .1 .5 9.5 37.2 81.8 87.3 59.5 72.9 58.6 WU )@@G@@@]@@@[28.1 14.1 @C@@@[6.4 12.7 13.3 20.9 65.5 124.5 144 137.8 156.0 WV )@@G@@@#@@@[89.2 36.9 25.2 $ @^@@@[OLSQ SALES OCT NOV $ @#@[@@OLSQ SALES MWW )@@G@@ONTH $@[@[@@END $ ___ 07^@1AS,AS)AK0 09^@6A*,A*)AC2A),A*)AC4A))AC3A8,B@)WX )@@G@@AC5A0,A@)^@)@^@@[@B@9 02^@3A0,BC)AK5 02^@=@ @@[@D9GETL^[NCDGC(N^[JCTO^[IWY )@@G@@*[S@@@*SDFF*@ @@@CHEADING $ KOOL KAMP SALES $ @#@@@CSAMPLE 1 48 $ WZ )@@G@@@]@@@CLOAD SALES $@E@@@C1.3 0.1 0.5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28XA )@@G@@.1 14.1 @F@@@C6.4 12.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 3XB )@@G@@6.9 25.2 @E@@@C18.8 13.2 11.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6XC )@@G@@ 35.2 @E@@@C33.7 20.4 13.5 22.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1 XD )@@G@@@]@@@C39.9 34.2 $ @E@@@CLOAD TREN OCT DEC JAN FEB MAR APR MAY JUN JUL AUXE )@@G@@G SEP $ @^@@@C1 1 0 0 0 0 0 0 0 0 0 0 @^@@@C2 0 0 0 0 0 0 0 0 0 0 0 XF )@@G@@@^@@@C3 0 1 0 0 0 0 0 0 0 0 0 @^@@@C4 0 0 1 0 0 0 0 0 0 0 0 @^@@@C5 0 0 XG )@@G@@0 1 0 0 0 0 0 0 0 @^@@@C6 0 0 0 0 1 0 0 0 0 0 0 @^@@@C7 0 0 0 0 0 1 0 0 XH )@@G@@0 0 0 @^@@@C8 0 0 0 0 0 0 1 0 0 0 0 @^@@@C9 0 0 0 0 0 0 0 1 0 0 0 @^@@@CXI )@@G@@10 0 0 0 0 0 0 0 0 1 0 0@^@@@C11 0 0 0 0 0 0 0 0 0 1 0@^@@@C12 0 0 0 0 0XJ )@@G@@ 0 0 0 0 0 1@^@@@C13 1 0 0 0 0 0 0 0 0 0 0@^@@@C14 0 0 0 0 0 0 0 0 0 0 0XK )@@G@@@^@@@C15 0 1 0 0 0 0 0 0 0 0 0@^@@@C16 0 0 1 0 0 0 0 0 0 0 0@^@@@C17 0 0XL )@@G@@ 0 1 0 0 0 0 0 0 0@^@@@C18 0 0 0 0 1 0 0 0 0 0 0@^@@@C19 0 0 0 0 0 1 0 0XM )@@G@@ 0 0 0@^@@@C20 0 0 0 0 0 0 1 0 0 0 0@^@@@C21 0 0 0 0 0 0 0 1 0 0 0@^@@@CXN )@@G@@22 0 0 0 0 0 0 0 0 1 0 0@^@@@C23 0 0 0 0 0 0 0 0 0 1 0@^@@@C24 0 0 0 0 0XO )@@G@@ 0 0 0 0 0 1@^@@@C25 1 0 0 0 0 0 0 0 0 0 0@^@@@C26 0 0 0 0 0 0 0 0 0 0 0XP )@@G@@@^@@@C27 0 1 0 0 0 0 0 0 0 0 0@^@@@C28 0 0 1 0 0 0 0 0 0 0 0@^@@@C29 0 0XQ )@@G@@ 0 1 0 0 0 0 0 0 0@^@@@C30 0 0 0 0 1 0 0 0 0 0 0@^@@@C31 0 0 0 0 0 1 0 0XR )@@G@@ 0 0 0@^@@@C32 0 0 0 0 0 0 1 0 0 0 0@^@@@C33 0 0 0 0 0 0 0 1 0 0 0@^@@@CXS )@@G@@34 0 0 0 0 0 0 0 0 1 0 0@^@@@C35 0 0 0 0 0 0 0 0 0 1 0@^@@@C36 0 0 0 0 0XT )@@G@@ 0 0 0 0 0 1@^@@@C37 1 0 0 0 0 0 0 0 0 0 0@^@@@C38 0 0 0 0 0 0 0 0 0 0 0XU )@@G@@@^@@@C39 0 1 0 0 0 0 0 0 0 0 0@^@@@C40 0 0 1 0 0 0 0 0 0 0 0@^@@@C41 0 0XV )@@G@@ 0 1 0 0 0 0 0 0 0@^@@@C42 0 0 0 0 1 0 0 0 0 0 0@^@@@C43 0 0 0 0 0 1 0 0XW )@@G@@ 0 0 0@^@@@C44 0 0 0 0 0 0 1 0 0 0 0@^@@@C45 0 0 0 0 0 0 0 1 0 0 0@^@@@CXX )@@G@@46 0 0 0 0 0 0 0 0 1 0 0@ @@@C 47 0 0 0 0 0 0 0 0 0 1 0 @^@@@C48 0 0XY )@@G@@ 0 0 0 0 0 0 0 0 1@[@@@C$ @]@@@ELOAD WI $ @E@@@E1 1 1 1 0 0 0 0 0 XZ )@@G@@0 0 1 1 1 1 1 0 0 0 0 0 0 0 1 1 1 1 1 @B@@@E0 0 0 0 0 0 0 1 1 1 1 1 YA )@@G@@0 0 0 0 0 0 0 1 $ @]@@@ELOAD SP $ @F@G@EI 0 0 0 0 1 1 0 0 0 1 1 0 0 0 YB )@@G@@0 0 1 1 0 0 0 1 1 0 0 0 0 0 1 1 @F@@@G0 0 0 0 1 1 0 0 0 1 1 0 0 0 0 YC )@@G@@0 1 1 0 0 0 1 1 0 0 0 0 0 1 1 0 @B@@@E0 0 0 1 1 0 0 0 0 0 1 1 0 0 0 YD )@@G@@1 1 0 $ @#@@@EGENR CONST = 1 $ @#@E@CGENR CONST = 1 $ @]@D@CPRINT YE )@@G@@(A) $ @F@G@DLIST (A)SALES TREN OCT DEC JAN FEB MAR APR MAY JUN JUL AUG SYF )@@G@@EP $ @]@G@CDSTAT (A) $ @[@@@CPLOT $@G@E@COLSQ SALES CONST TREN OCT DEC YG )@@G@@JAN FEB MAR APR MAY JUN JUL AUG SEP $ @H@@@EOLSQ SALES CONST TREN OCYH )@@G@@T DEC JAN FEB MAR APR MAY JUN JUL AUG SEP WI SP $ @A@@@DRETRIEVE ACTYI )@@G@@ 32,FIT 33, SER 16 $ @^@@@DGENR RES = ACT - FIT $ @^@@@DGENR SRES = YJ )@@G@@RES / SER $ @^@@@DPRINT ACT FIT RES SRES $@ @@@DSPLOT XVAR=SALES,YVAR=REYK )@@G@@S $ @[@@@DEND @[@D@CEND ___AC)^@)^@)@F@@@EA@)A@)A@)A@)A@)A@)A@)AC)YL )@@G@@AC)AC)AC)AC)A@)A@)A@)A@)A@)A@)A@)AC)^))^@)@#@@@E*[S@@@*SDFF*@D@@@@HEADINYM )@@G@@G $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ @#@[@@SAMPLE 1 12 $ YN )@@G@@@#@@@[SAMPLE 1 12 $ @]@[@@LOAD MONTH $@]@@@[LOAD OCT $ @[@[@@222.2 YO )@@G@@@ @@@[1 0 0 0 0 0 0 0 0 0 0 0 $ @]@[@@333.3 $ @]@[@@LOAD SALES $YP )@@G@@@]@@@[LOAD NOV $ @]@[@@444 444 $ @ @@@[0 1 0 0 0 0 0 0 0 0 0 0 $ YQ )@@G@@@#@@@]SAMPLE 1 24 $ @]@@@[LOAD SALES $@C@@@[1.3 .1 .5 9.5 37.2 81.8 YR )@@G@@87.3 59.5 72.9 58.6 @]@@@[28.1 14.1 @C@@@[6.4 12.7 13.3 20.9 65.5 YS )@@G@@124.5 144 137.8 156.0 @#@@@[89.2 36.9 25.2 $ @^@@@[OLSQ SALES OCT NOVYT )@@G@@ $ @[@@@]END $ @#@[@@OLSQ SALES MONTH $@[@[@@END $ ___13.3 20.9 65.5 YU )@@G@@124.5 144 137.8 156.0 @#@@@[89.2 36.9 25.2 $ @^@@@[OLSQ SALES OCT NOVYV )@@G@@*[S@@@*SDFF*@ @@@DHEADING $ KOOL KAMP SALES $ @#@@@DSAMPLE 1 48 $ YW )@@G@@@]@@@DLOAD SALES $@E@@@D1.3 0.1 0.5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28YX )@@G@@.1 14.1 @F@@@D6.4 12.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 3YY )@@G@@6.9 25.2 @E@@@D18.8 13.2 11.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6YZ )@@G@@ 35.2 @E@@@D33.7 20.4 13.5 22.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1 ZA )@@G@@@]@@@D39.9 34.2 $ @E@@@DLOAD TREN OCT DEC JAN FEB MAR APR MAY JUN JUL AUZB )@@G@@G SEP $ @^@@@D1 1 0 0 0 0 0 0 0 0 0 0 @^@@@D2 0 0 0 0 0 0 0 0 0 0 0 ZC )@@G@@@^@@@D3 0 1 0 0 0 0 0 0 0 0 0 @^@@@D4 0 0 1 0 0 0 0 0 0 0 0 @^@@@D5 0 0 ZD )@@G@@0 1 0 0 0 0 0 0 0 @^@@@D6 0 0 0 0 1 0 0 0 0 0 0 @^@@@D7 0 0 0 0 0 1 0 0 ZE )@@G@@0 0 0 @^@@@D8 0 0 0 0 0 0 1 0 0 0 0 @^@@@D9 0 0 0 0 0 0 0 1 0 0 0 @^@@@DZF )@@G@@10 0 0 0 0 0 0 0 0 1 0 0@^@@@D11 0 0 0 0 0 0 0 0 0 1 0@^@@@D12 0 0 0 0 0ZG )@@G@@ 0 0 0 0 0 1@^@@@D13 1 0 0 0 0 0 0 0 0 0 0@^@@@D14 0 0 0 0 0 0 0 0 0 0 0ZH )@@G@@@^@@@D15 0 1 0 0 0 0 0 0 0 0 0@^@@@D16 0 0 1 0 0 0 0 0 0 0 0@^@@@D17 0 0ZI )@@G@@ 0 1 0 0 0 0 0 0 0@^@@@D18 0 0 0 0 1 0 0 0 0 0 0@^@@@D19 0 0 0 0 0 1 0 0ZJ )@@G@@ 0 0 0@^@@@D20 0 0 0 0 0 0 1 0 0 0 0@^@@@D21 0 0 0 0 0 0 0 1 0 0 0@^@@@DZK )@@G@@22 0 0 0 0 0 0 0 0 1 0 0@^@@@D23 0 0 0 0 0 0 0 0 0 1 0@^@@@D24 0 0 0 0 0ZL )@@G@@ 0 0 0 0 0 1@^@@@D25 1 0 0 0 0 0 0 0 0 0 0@^@@@D26 0 0 0 0 0 0 0 0 0 0 0ZM )@@G@@@^@@@D27 0 1 0 0 0 0 0 0 0 0 0@^@@@D28 0 0 1 0 0 0 0 0 0 0 0@^@@@D29 0 0ZN )@@G@@ 0 1 0 0 0 0 0 0 0@^@@@D30 0 0 0 0 1 0 0 0 0 0 0@^@@@D31 0 0 0 0 0 1 0 0ZO )@@G@@ 0 0 0@^@@@D32 0 0 0 0 0 0 1 0 0 0 0@^@@@D33 0 0 0 0 0 0 0 1 0 0 0@^@@@DZP )@@G@@34 0 0 0 0 0 0 0 0 1 0 0@^@@@D35 0 0 0 0 0 0 0 0 0 1 0@^@@@D36 0 0 0 0 0ZQ )@@G@@ 0 0 0 0 0 1@^@@@D37 1 0 0 0 0 0 0 0 0 0 0@^@@@D38 0 0 0 0 0 0 0 0 0 0 0ZR )@@G@@@^@@@D39 0 1 0 0 0 0 0 0 0 0 0@^@@@D40 0 0 1 0 0 0 0 0 0 0 0@^@@@D41 0 0ZS )@@G@@ 0 1 0 0 0 0 0 0 0@^@@@D42 0 0 0 0 1 0 0 0 0 0 0@^@@@D43 0 0 0 0 0 1 0 0ZT )@@G@@ 0 0 0@^@@@D44 0 0 0 0 0 0 1 0 0 0 0@^@@@D45 0 0 0 0 0 0 0 1 0 0 0@^@@@DZU )@@G@@46 0 0 0 0 0 0 0 0 1 0 0@ @@@D 47 0 0 0 0 0 0 0 0 0 1 0 @^@@@D48 0 0ZV )@@G@@ 0 0 0 0 0 0 0 0 1@[@@@D$ @]@@@ELOAD WI $ @E@H@E1 1 1 1 0 0 0 0 0 ZW )@@G@@0 0 1 1 1 1 1 0 0 0 0 0 0 0 1 1 1 1 1 @C@@@H0 0 0 0 0 0 1 1 1 0 0 1 ZX )@@G@@0 0 0 0 0 0 1 1 1 0 0 1 @B@H@E0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 1 $ ZY )@@G@@@D@@@H0 0 0 0 0 0 1 1 1 0 0 1 0 0 0 0 0 0 1 1 1 0 0 1 $ @]@@@ELOAD SZZ )@@G@@P $ @F@G@EI 0 0 0 0 1 1 0 0 0 1 1 0 0 0 0 0 1 1 0 0 0 1 1 0 0 0 0 0 1 AA )@@G@@1 @F@@@G0 0 0 0 1 1 0 0 0 1 1 0 0 0 0 0 1 1 0 0 0 1 1 0 0 0 0 0 1 1 AB )@@G@@0 @B@@@E0 0 0 1 1 0 0 0 0 0 1 1 0 0 0 1 1 0 $ @#@@@EGENR CONST =AC )@@G@@ 1 $ @#@E@DGENR CONST = 1 $ @F@G@DLIST (A)SALES TREN OCT DEC JAN FEB MAD )@@G@@AR APR MAY JUN JUL AUG SEP $ @]@G@DDSTAT (A) $ @[@@@DPLOT $@G@E@DOLSQ SAE )@@G@@ALES CONST TREN OCT DEC JAN FEB MAR APR MAY JUN JUL AUG SEP $ @H@@@EAF )@@G@@OLSQ SALES CONST TREN OCT DEC JAN FEB MAR APR MAY JUN JUL AUG SEP WI SP AG )@@G@@$ @A@@@DRETRIEVE ACT 32,FIT 33, SER 16 $ @^@@@DGENR RES = ACT - FAH )@@G@@IT $ @^@@@DGENR SRES = RES / SER $ @^@@@DPRINT ACT FIT RES SRES $@ @@@DAI )@@G@@SPLOT XVAR=SALES,YVAR=RES $ @[@@@DEND ___NT *[S@@@*SDFF*@D@@@@HEADINAJ )@@G@@G $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ @#@[@@SAMPLE 1 12 $ AK )@@G@@@#@#@[SAMPLE 1 12 $ @#@@@#SAMPLE 1 48 $ @]@@@#LOAD OCT $ @C@@@#AL )@@G@@1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 @D@@@#1 0 0 0 0 0 0 0 0 AM )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 $ @]@@@#LOAD NOV $ @C@@@#0 1 0 0 0 0 AN )@@G@@0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 @D@@@#0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 AO )@@G@@0 0 0 0 0 0 0 0 0 $ @]@@@#LOAD DEC $ @C@@@#0 0 1 0 0 0 0 0 0 0 0 0 AP )@@G@@0 0 1 0 0 0 0 0 0 0 0 0 @D@@@#0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 AQ )@@G@@0 0 0 $ @]@@@#LOAD SALES $@G@@@#1.3 0.1 0.5 0 0 0 0 0 0 0 0 0 6.4 12AR )@@G@@.7 13.3 0 0 0 0 0 0 0 0 0 0 0 0 @B@@@#18.8 13.2 11.6 0 0 0 0 0 0 0 0AS )@@G@@ 0 0 0 0 @B@@@#20.4 13.5 22.8 0 0 0 0 0 0 0 0 0 0 0 0 $ @]@[@@LOAD MAT )@@G@@ONTH $@]@#@[LOAD OCT $ @[@[@@222.2 @ @#@[1 0 0 0 0 0 0 0 0 0 0 0 $ AU )@@G@@@]@[@@333.3 $ @]@[@@LOAD SALES $@]@#@[LOAD NOV $ @]@[@@444 444 $ AV )@@G@@@ @#@[0 1 0 0 0 0 0 0 0 0 0 0 $ @#@#@]SAMPLE 1 24 $ @]@#@[LOAD SAW )@@G@@ALES $@C@#@[1.3 .1 .5 9.5 37.2 81.8 87.3 59.5 72.9 58.6 @]@#@[28.1 1AX )@@G@@4.1 @C@#@[6.4 12.7 13.3 20.9 65.5 124.5 144 137.8 156.0 @#@#@[89.2 3AY )@@G@@6.9 25.2 $ @^@#@[OLSQ SALES OCT NOV $ @^@@@#OLSQ SALES OCT NOV DEC$ AZ )@@G@@@ @@@#LIST (A) SALES OCT NOV DEC $ @]@@@#DSTAT (A) $ @[@@@]END $ @#@[@@BA )@@G@@OLSQ SALES MONTH $@[@[@@END $ ___[@@A)4A))A)4A))^))^@)@B[@@[A@)AC)A@)A@)BB )@@G@@A@)A@)A@)A@)A@)A@)A@)A@)*[S@@@*SDFF*@D@@@@HEADING $ KOOL KAMP CASE - BRUBC )@@G@@CE HOROWITZ, TOM FIES $ @#@[@@SAMPLE 1 12 $ @#@#@[SAMPLE 1 12 $ BD )@@G@@@#@@@#SAMPLE 1 48 $ @]@@@#LOAD OCT $ @C@@@#1 0 0 0 0 0 0 0 0 0 0 0 BE )@@G@@1 0 0 0 0 0 0 0 0 0 0 0 @D@@@#1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 BF )@@G@@0 0 0 $ @]@@@#LOAD NOV $ @C@@@#0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 BG )@@G@@0 0 0 0 0 0 @D@@@#0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 $ BH )@@G@@@]@@@#LOAD DEC $ @C@@@#0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 BI )@@G@@@D@@@#0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 $ @]@@@#LOAD SBJ )@@G@@ALES $@G@^@#1.3 0.1 0.5 0 0 0 0 0 0 0 0 0 6.4 12.7 13.3 0 0 0 0 0 0 0 0 BK )@@G@@0 0 0 0 @ @@@^1.3 0.1 0.5 0 0 0 0 0 0 0 0 0 @A@@@^6.4 12.7 13.3 0 0 BL )@@G@@0 0 0 0 0 0 0 @B@^@#18.8 13.2 11.6 0 0 0 0 0 0 0 0 0 0 0 0 @A@@@^BM )@@G@@18.8 13.2 11.6 0 0 0 0 0 0 0 0 0 @B@^@#20.4 13.5 22.8 0 0 0 0 0 0 0 0BN )@@G@@ 0 0 0 0 $ @A@@@^20.4 13.5 22.8 0 0 0 0 0 0 0 0 0 $ @]@[@@LOAD MONTH $BO )@@G@@@]@#@[LOAD OCT $ @[@[@@222.2 @ @#@[1 0 0 0 0 0 0 0 0 0 0 0 $ @]@[@@BP )@@G@@333.3 $ @]@[@@LOAD SALES $@]@#@[LOAD NOV $ @]@[@@444 444 $ @ @#@[BQ )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 $ @#@#@]SAMPLE 1 24 $ @]@#@[LOAD SALES $BR )@@G@@@C@#@[1.3 .1 .5 9.5 37.2 81.8 87.3 59.5 72.9 58.6 @]@#@[28.1 14.1 BS )@@G@@@C@#@[6.4 12.7 13.3 20.9 65.5 124.5 144 137.8 156.0 @#@#@[89.2 36.9 25BT )@@G@@.2 $ @^@#@[OLSQ SALES OCT NOV $ @^@@@#OLSQ SALES OCT NOV DEC$ @ @@@#BU )@@G@@LIST (A) SALES OCT NOV DEC $ @]@@@#DSTAT (A) $ @[@@@]END $ @#@[@@OLSQ SBV )@@G@@ALES MONTH $@[@[@@END $ ___A))^))^@)@B@#@[A@)AC)A@)A@)A@)A@)A@)A@)A@)A@)BW )@@G@@A@)A@)^@=^@)@^@#@]ET[D(K*[S@@@*SDFF*@D@@@[HEADING $ KOOL KAMP CASE - BRUBX )@@G@@CE HOROWITZ, TOM FIES $ @#@#@[SAMPLE 1 12 $ @#@@@#SAMPLE 1 48 $ BY )@@G@@@]@@@ LOAD TREND $@D@@@ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 BZ )@@G@@20 @E@@@ 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 CA )@@G@@@ @@@ 41 42 43 44 45 46 47 48 $ @]@@@#LOAD OCT $ @C@@@#1 0 0 0 0 0 CB )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 @D@@@#1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 CC )@@G@@0 0 0 0 0 0 0 0 0 $ @]@@@#LOAD NOV $ @C@@@#0 1 0 0 0 0 0 0 0 0 0 0 CD )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 @D@@@#0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 CE )@@G@@0 0 0 $ @]@@@#LOAD DEC $ @C@@@#0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 CF )@@G@@0 0 0 0 0 0 @D@@@#0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 $ CG )@@G@@@]@@@#LOAD SALES $@G@^@#1.3 0.1 0.5 0 0 0 0 0 0 0 0 0 6.4 12.7 13.3 0 0 CH )@@G@@0 0 0 0 0 0 0 0 0 0 @ @@@^1.3 0.1 0.5 0 0 0 0 0 0 0 0 0 @A@@@^6.4 12CI )@@G@@.7 13.3 0 0 0 0 0 0 0 0 0 @B@^@#18.8 13.2 11.6 0 0 0 0 0 0 0 0 0 0 0CJ )@@G@@ 0 @A@@@^18.8 13.2 11.6 0 0 0 0 0 0 0 0 0 @B@^@#20.4 13.5 22.8 0 0CK )@@G@@ 0 0 0 0 0 0 0 0 0 0 $ @A@@@^20.4 13.5 22.8 0 0 0 0 0 0 0 0 0 $ @#@@@ CL )@@G@@GENR CONST =1 $ @]@#@[LOAD OCT $ @ @#@[1 0 0 0 0 0 0 0 0 0 0 0 $ CM )@@G@@@]@#@[LOAD NOV $ @ @#@[0 1 0 0 0 0 0 0 0 0 0 0 $ @#@#@]SAMPLE 1 24 CN )@@G@@$ @]@#@[LOAD SALES $@C@#@[1.3 .1 .5 9.5 37.2 81.8 87.3 59.5 72.9 58.CO )@@G@@6 @]@#@[28.1 14.1 @C@#@[6.4 12.7 13.3 20.9 65.5 124.5 144 137.8 15CP )@@G@@6.0 @#@#@[89.2 36.9 25.2 $ @^@#@[OLSQ SALES OCT NOV $ @^@ @#OLSQ SCQ )@@G@@ALES OCT NOV DEC$ @ @@@ OLSQ TREND SALES OCT NOV DEC$ @[@@@ PLOT $@ @@@#CR )@@G@@LIST (A) SALES OCT NOV DEC $ @]@@@#DSTAT (A) $ @[@@@]END $ ___^@)@]@[@@CS )@@G@@AK2AK,AK)^@)@B@#@[AC)A@)A@)A@)A@)A@)A@)A@)A@)A@)A@)A@)^))^@)@#@[@@AS3AS,CT )@@G@@AS)^))^@)^@)@#@[@@D-JCD^^[NCDGC(N^@=@#@#@[D-JCD^*[S@@@*SDFF*@D@@@]HEADINCU )@@G@@G $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ @#@#@]SAMPLE 1 12 $ CV )@@G@@@#@@@#SAMPLE 1 48 $ @]@@@ LOAD TREND $@D@@@ 1 2 3 4 5 6 7 8 9 10 11 CW )@@G@@12 13 14 15 16 17 18 19 20 @E@@@ 21 22 23 24 25 26 27 28 29 30 31 32 CX )@@G@@33 34 35 36 37 38 39 40 @ @@@ 41 42 43 44 45 46 47 48 $ @]@@@#LOAD OCY )@@G@@CT $ @C@@@#1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 @D@@@#1 0 0 CZ )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 $ @]@@@#LOAD NOV $ @C@@@#DA )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 @D@@@#0 1 0 0 0 0 0 0 0 DB )@@G@@0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 $ @]@@@#LOAD DEC $ @C@@@#0 0 1 0 0 0 DC )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 @D@@@#0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 DD )@@G@@0 0 0 0 0 0 0 0 0 $ @]@@@#LOAD SALES $@G@^@#1.3 0.1 0.5 0 0 0 0 0 0 DE )@@G@@0 0 0 6.4 12.7 13.3 0 0 0 0 0 0 0 0 0 0 0 0 @ @@@^1.3 0.1 0.5 0 0 0 DF )@@G@@0 0 0 0 0 0 @A@@@^6.4 12.7 13.3 0 0 0 0 0 0 0 0 0 @B@^@#18.8 13.2 11DG )@@G@@.6 0 0 0 0 0 0 0 0 0 0 0 0 @A@@@^18.8 13.2 11.6 0 0 0 0 0 0 0 0 0 DH )@@G@@@B@^@#20.4 13.5 22.8 0 0 0 0 0 0 0 0 0 0 0 0 $ @A@@@^20.4 13.5 22.8 0 DI )@@G@@0 0 0 0 0 0 0 0 $ @#@@@ GENR CONST =1 $ @]@#@]LOAD OCT $ @ @#@]1 0 0 DJ )@@G@@0 0 0 0 0 0 0 0 0 $ @]@#@]LOAD NOV $ @ @#@]0 1 0 0 0 0 0 0 0 0 0 0 DK )@@G@@ $ @#@#@]SAMPLE 1 24 $ @]@#@]LOAD SALES $@C@#@]1.3 .1 .5 9.5 37.2DL )@@G@@ 81.8 87.3 59.5 72.9 58.6 @]@#@]28.1 14.1 @C@#@]6.4 12.7 13.3 20.9DM )@@G@@ 65.5 124.5 144 137.8 156.0 @#@#@]89.2 36.9 25.2 $ @^@#@]OLSQ SALES ODN )@@G@@CT NOV $ @^@ @#OLSQ SALES OCT NOV DEC$ @ @A@ OLSQ TREND SALES OCT NOVDO )@@G@@ DEC$ @ @@@AOLSQ SALES TREND OCT NOV DEC$ @[@@@ PLOT $@ @@@#LIST (A) SALDP )@@G@@ES OCT NOV DEC $ @]@@@#DSTAT (A) $ @[@@@]END $ ___A@)A@)A@)A@)A@)A@)A@)DQ )@@G@@A@)A@)^))^@)@#@[@@AS3AS,AS)^))^@)^@)@#@[@@D-JCD^^[NCDGC(N^@=@#@#@[D-JCD^DR )@@G@@*[S@@@*SDFF*___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@#@@@@MBA*FCST(1).TSPT ___)@[C]@@@@DU )@@G@@@@@@]@'=@@[ /@%@@@:8)@@]/K@["I*0@^]%/KE@@@:8)@@[/K@ G\/K@[.=R#K@NDR#0@NDDV )@@G@@C]!=+JG])@ND[Q\=+O?@0@@Q/K@ M!8KK M:R;@@]#P;J@@@*[S@@@*SDFF*@D@@@#HEADINDW )@@G@@G $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ @#@@@#SAMPLE 1 48 $ DX )@@G@@@]@@@ LOAD TREND $@D@@@ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 DY )@@G@@20 @E@@@ 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 DZ )@@G@@@ @@@ 41 42 43 44 45 46 47 48 $ @]@@@#LOAD OCT $ @C@@@#1 0 0 0 0 0 EA )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 @D@@@#1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 EB )@@G@@0 0 0 0 0 0 0 0 0 $ @]@@@#LOAD NOV $ @C@@@#0 1 0 0 0 0 0 0 0 0 0 0 EC )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 @D@@@#0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 ED )@@G@@0 0 0 $ @]@@@#LOAD DEC $ @C@@@#0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 EE )@@G@@0 0 0 0 0 0 @D@@@#0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 $ EF )@@G@@@]@@@BLOAD JAN $ @C@@@B0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 EG )@@G@@@D@@@B0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 $ @]@@@BLOAD FEH )@@G@@EB $ @C@@@B0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 @D@@@B0 0 0 EI )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 $ @]@@@BLOAD MAR $ @C@@@BEJ )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 @D@@@B0 0 0 0 0 1 0 0 0 EK )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 $ @]@@@BLOAD APR $ @C@@@B0 0 0 0 0 0 EL )@@G@@1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 @D@@@B0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 EM )@@G@@0 0 0 1 0 0 0 0 0 $ @]@@@BLOAD MAY $ @C@@@B0 0 0 0 0 0 0 1 0 0 0 0 EN )@@G@@0 0 0 0 0 0 0 1 0 0 0 0 @D@@@B0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 EO )@@G@@0 0 0 $ @]@@@BLOAD JUN $ @C@@@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 EP )@@G@@0 0 1 0 0 0 @D@@@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 $ EQ )@@G@@@]@@@BLOAD JUL $ @D@@@B0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 ER )@@G@@$ @D@@@B0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @]@@@BES )@@G@@LOAD AUG $ @C@@@B0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 @D@@@BET )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 $ @]@@@BLOAD SEP $ EU )@@G@@@C@@@B0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 @D@@@B0 0 0 0 0 0 EV )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 $ @]@@@#LOAD SALES $@E@@@B1.3 0.EW )@@G@@1 0.5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28.1 14.1 @F@@@B6.4 12.7 13.EX )@@G@@3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 36.9 25.2 @F@@@B18.8 13.2 11EY )@@G@@.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6 35.2 33.7 @F@@@B20.4 13.5 22EZ )@@G@@.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1 39.9 34.2 @G@^@#1.3 0.1 0.5 FA )@@G@@0 0 0 0 0 0 0 0 0 6.4 12.7 13.3 0 0 0 0 0 0 0 0 0 0 0 0 @ @B@^1.3 0.FB )@@G@@1 0.5 0 0 0 0 0 0 0 0 0 @A@B@^6.4 12.7 13.3 0 0 0 0 0 0 0 0 0 @B@^@#FC )@@G@@18.8 13.2 11.6 0 0 0 0 0 0 0 0 0 0 0 0 @A@B@^18.8 13.2 11.6 0 0 0 0 FD )@@G@@0 0 0 0 0 @B@^@#20.4 13.5 22.8 0 0 0 0 0 0 0 0 0 0 0 0 $ @A@B@^20.4 1FE )@@G@@3.5 22.8 0 0 0 0 0 0 0 0 0 $ @#@@@ GENR CONST =1 $ @^@ @#OLSQ SALES OFF )@@G@@CT NOV DEC$ @ @A@ OLSQ TREND SALES OCT NOV DEC$ @ @B@AOLSQ SALES TREND OFG )@@G@@CT NOV DEC$ @[@@@ PLOT $@E@@@BOLSQ SALES CONST TREND OCT NOV DEC JAN FEBFH )@@G@@ MAR APR MAY JUN @#@@@BJUL AUG SEP $ @F@@@BLIST (A) SALES TREND OCTFI )@@G@@ NOV DEC JAN FEB MAR APR MAY JUN JUL AUG @[@@@BSEP $ @ @B@#LIST (A) SALFJ )@@G@@ES OCT NOV DEC $ @]@@@#DSTAT (A) $ @[@@@#END $ ___AS,AK)AC1 06^@5AS,A))FK )@@G@@AC2A0,AK)AC5AS,BC)AC8B@,AK)AK0A0,AC)AC6B@,BC)BC7 06^@3A*,AK)AS3 07@K@@[@FL )@@G@@AK0 04^@1AS,A*)AK2 08^@9AK,A8)AC6AC,A8)AS1A0,B@)*[S@@@*SDFF*@D@@@^HEADINFM )@@G@@G $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ @#@@@^SAMPLE 1 48 $ FN )@@G@@@]@@@ LOAD TREND $@D@@@ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 FO )@@G@@20 @E@@@ 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 FP )@@G@@@ @@@ 41 42 43 44 45 46 47 48 $ @]@@@^LOAD OCT $ @C@@@^1 0 0 0 0 0 FQ )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 @D@@@^1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 FR )@@G@@0 0 0 0 0 0 0 0 0 $ @]@@@^LOAD NOV $ @C@@@^0 1 0 0 0 0 0 0 0 0 0 0 FS )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 @D@@@^0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 FT )@@G@@0 0 0 $ @]@@@^LOAD DEC $ @C@@@^0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 FU )@@G@@0 0 0 0 0 0 @D@@@^0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 $ FV )@@G@@@]@@@BLOAD JAN $ @C@@@B0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 FW )@@G@@@D@@@B0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 $ @]@@@BLOAD FFX )@@G@@EB $ @C@@@B0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 @D@@@B0 0 0 FY )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 $ @]@@@BLOAD MAR $ @C@@@BFZ )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 @D@@@B0 0 0 0 0 1 0 0 0 GA )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 $ @]@@@BLOAD APR $ @C@@@B0 0 0 0 0 0 GB )@@G@@1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 @D@@@B0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 GC )@@G@@0 0 0 1 0 0 0 0 0 $ @]@@@BLOAD MAY $ @C@@@B0 0 0 0 0 0 0 1 0 0 0 0 GD )@@G@@0 0 0 0 0 0 0 1 0 0 0 0 @D@@@B0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 GE )@@G@@0 0 0 $ @]@@@BLOAD JUN $ @C@@@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 GF )@@G@@0 0 1 0 0 0 @D@@@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 $ GG )@@G@@@]@@@BLOAD JUL $ @D@C@B0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 GH )@@G@@$ @C@@@C0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 @D@@@B0 0 0 GI )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @]@@@BLOAD AUG $ @C@@@BGJ )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 @D@@@B0 0 0 0 0 0 0 0 0 GK )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 $ @]@@@BLOAD SEP $ @C@@@B0 0 0 0 0 0 GL )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 @D@@@B0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 GM )@@G@@0 0 0 0 0 0 0 0 1 $ @]@@@^LOAD SALES $@E@@@B1.3 0.1 0.5 9.5 37.2 81.GN )@@G@@1 87.3 59.5 72.9 58.6 28.1 14.1 @F@@@B6.4 12.7 13.3 20.9 65.5 124.5 GO )@@G@@144.0 137.8 156.0 89.2 36.9 25.2 @F@@@B18.8 13.2 11.6 53.4 126.2 153.GP )@@G@@9 188.2 206.1 168.9 97.6 35.2 33.7 @F@@@B20.4 13.5 22.8 92.7 161.7 316.GQ )@@G@@8 372.8 272.4 181.0 92.1 39.9 34.2 @ @B@^1.3 0.1 0.5 0 0 0 0 0 0 0 0 0 GR )@@G@@@A@B@^6.4 12.7 13.3 0 0 0 0 0 0 0 0 0 @A@B@^18.8 13.2 11.6 0 0 0 0 GS )@@G@@0 0 0 0 0 @A@B@^20.4 13.5 22.8 0 0 0 0 0 0 0 0 0 $ @#@@@ GENR CONST =GT )@@G@@1 $ @^@ @^OLSQ SALES OCT NOV DEC$ @ @A@ OLSQ TREND SALES OCT NOV DEC$ GU )@@G@@@ @B@AOLSQ SALES TREND OCT NOV DEC$ @[@@@ PLOT $@E@@@BOLSQ SALES CONST TGV )@@G@@REND OCT NOV DEC JAN FEB MAR APR MAY JUN @#@@@BJUL AUG SEP $ @F@@@BGW )@@G@@LIST (A) SALES TREND OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG @[@@@BGX )@@G@@SEP $ @ @B@^LIST (A) SALES OCT NOV DEC $ @]@@@^DSTAT (A) $ @[@@@^END $ GY )@@G@@___ 22.8 0 0 0 0 0 0 0 0 0 0 0 0 $ @A@B@^20.4 13.5 22.8 0 0 0 0 0 0 0 GZ )@@G@@0 0 $ @#@@@ GENR CONST =*[S@@@*SDFF*@D@@@^HEADING $ KOOL KAMP CASE - BRUHA )@@G@@CE HOROWITZ, TOM FIES $ @#@@@^SAMPLE 1 48 $ @]@@@ LOAD TREND $@D@@@ HB )@@G@@1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 @E@@@ 21 22 23 24 HC )@@G@@25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 @ @@@ 41 42 43 44 45 46 HD )@@G@@47 48 $ @]@@@^LOAD OCT $ @C@@@^1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 HE )@@G@@0 0 0 0 0 0 @D@@@^1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 $ HF )@@G@@@]@@@^LOAD NOV $ @C@@@^0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 HG )@@G@@@D@@@^0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 $ @]@@@^LOAD DHH )@@G@@EC $ @C@@@^0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 @D@@@^0 0 1 HI )@@G@@0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 $ @]@@@BLOAD JAN $ @C@@@BHJ )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 @D@@@B0 0 0 1 0 0 0 0 0 HK )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 $ @]@@@BLOAD FEB $ @C@@@B0 0 0 0 1 0 HL )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 @D@@@B0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 HM )@@G@@0 1 0 0 0 0 0 0 0 $ @]@@@BLOAD MAR $ @C@@@B0 0 0 0 0 1 0 0 0 0 0 0 HN )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 @D@@@B0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 HO )@@G@@0 0 0 $ @]@@@BLOAD APR $ @C@@@B0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 HP )@@G@@1 0 0 0 0 0 @D@@@B0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 $ HQ )@@G@@@]@@@BLOAD MAY $ @C@@@B0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 HR )@@G@@@D@@@B0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 $ @]@@@BLOAD JHS )@@G@@UN $ @C@@@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 @D@@@B0 0 0 HT )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 $ @]@@@BLOAD JUL $ @D@C@BHU )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @C@@@C0 0 0 0 0 0 HV )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 @D@@@B0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 HW )@@G@@0 0 0 0 0 0 1 0 0 $ @]@@@BLOAD AUG $ @C@@@B0 0 0 0 0 0 0 0 0 0 1 0 HX )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 @D@@@B0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 HY )@@G@@0 1 0 $ @]@@@BLOAD SEP $ @C@@@B0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 HZ )@@G@@0 0 0 0 0 1 @D@@@B0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 $ IA )@@G@@@]@@@^LOAD SALES $@E@@@B1.3 0.1 0.5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28IB )@@G@@.1 14.1 @F@@@B6.4 12.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 3IC )@@G@@6.9 25.2 @F@@@B18.8 13.2 11.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6ID )@@G@@ 35.2 33.7 @F@@@B20.4 13.5 22.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1IE )@@G@@ 39.9 34.2 @ @B@^1.3 0.1 0.5 0 0 0 0 0 0 0 0 0 @A@B@^6.4 12.7 13.3 0 0 IF )@@G@@0 0 0 0 0 0 0 @A@B@^18.8 13.2 11.6 0 0 0 0 0 0 0 0 0 @A@B@^20.4 1IG )@@G@@3.5 22.8 0 0 0 0 0 0 0 0 0 $ @#@@@ GENR CONST =1 $ @^@ @^OLSQ SALES OIH )@@G@@CT NOV DEC$ @ @A@ OLSQ TREND SALES OCT NOV DEC$ @ @B@AOLSQ SALES TREND OII )@@G@@CT NOV DEC$ @[@@@ PLOT $@E@@@BOLSQ SALES CONST TREND OCT NOV DEC JAN FEBIJ )@@G@@ MAR APR MAY JUN @#@@@BJUL AUG SEP $ @F@@@BLIST (A) SALES TREND OCTIK )@@G@@ NOV DEC JAN FEB MAR APR MAY JUN JUL AUG @[@@@BSEP $ @ @B@^LIST (A) SALIL )@@G@@ES OCT NOV DEC $ @]@@@^DSTAT (A) $ @[@@@^END $ ___ 22.8 0 0 0 0 0 0 0 0IM )@@G@@ 0 0 0 0 $ @A@B@^20.4 13.5 22.8 0 0 0 0 0 0 0 0 0 $ @#@@@ GENR CONST =IN )@@G@@*[S@@@*SDFF*@D@@@ HEADING $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ IO )@@G@@@#@@@ SAMPLE 1 48 $ @]@@@ LOAD TREND $@D@@@ 1 2 3 4 5 6 7 8 9 10 11 IP )@@G@@12 13 14 15 16 17 18 19 20 @E@@@ 21 22 23 24 25 26 27 28 29 30 31 32 IQ )@@G@@33 34 35 36 37 38 39 40 @ @@@ 41 42 43 44 45 46 47 48 $ @]@@@ LOAD OIR )@@G@@CT $ @C@@@ 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 @D@@@ 1 0 0 IS )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 $ @]@@@ LOAD NOV $ @C@@@ IT )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 @D@@@ 0 1 0 0 0 0 0 0 0 IU )@@G@@0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 $ @]@@@ LOAD DEC $ @C@@@ 0 0 1 0 0 0 IV )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 @D@@@ 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 IW )@@G@@0 0 0 0 0 0 0 0 0 $ @]@@@BLOAD JAN $ @C@@@B0 0 0 1 0 0 0 0 0 0 0 0 IX )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 @D@@@B0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 IY )@@G@@0 0 0 $ @]@@@BLOAD FEB $ @C@@@B0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 IZ )@@G@@0 0 0 0 0 0 @D@@@B0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 $ JA )@@G@@@]@@@BLOAD MAR $ @C@@@B0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 JB )@@G@@@D@@@B0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 $ @]@@@BLOAD AJC )@@G@@PR $ @C@@@B0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 @D@@@B0 0 0 JD )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 $ @]@@@BLOAD MAY $ @C@@@BJE )@@G@@0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 @D@@@B0 0 0 0 0 0 0 1 0 JF )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 $ @]@@@BLOAD JUN $ @C@@@B0 0 0 0 0 0 JG )@@G@@0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 @D@@@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 JH )@@G@@0 0 0 0 0 1 0 0 0 $ @]@@@BLOAD JUL $ @D@C@B0 0 0 0 0 0 0 0 0 1 0 0 JI )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 $ @C@@@C0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 JJ )@@G@@0 0 0 1 0 0 @D@@@B0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ JK )@@G@@@]@@@BLOAD AUG $ @C@@@B0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 JL )@@G@@@D@@@B0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 $ @]@@@BLOAD SJM )@@G@@EP $ @C@@@B0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 @D@@@B0 0 0 JN )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 $ @]@@@ LOAD SALES $@E@@@BJO )@@G@@1.3 0.1 0.5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28.1 14.1 @F@@@B6.4 12JP )@@G@@.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 36.9 25.2 @F@@@B18.8 1JQ )@@G@@3.2 11.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6 35.2 33.7 @F@@@B20.4 1JR )@@G@@3.5 22.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1 39.9 34.2 @ @B@ 1.3 0.JS )@@G@@1 0.5 0 0 0 0 0 0 0 0 0 @A@B@ 6.4 12.7 13.3 0 0 0 0 0 0 0 0 0 @A@B@ JT )@@G@@18.8 13.2 11.6 0 0 0 0 0 0 0 0 0 @A@B@ 20.4 13.5 22.8 0 0 0 0 0 0 0 JU )@@G@@0 0 $ @#@@@ GENR CONST =1 $ @ @A@ OLSQ TREND SALES OCT NOV DEC$ @ @B@AJV )@@G@@OLSQ SALES TREND OCT NOV DEC$ @[@@@ PLOT $@E@@@BOLSQ SALES CONST TREND OJW )@@G@@CT NOV DEC JAN FEB MAR APR MAY JUN @#@@@BJUL AUG SEP $ @F@@@BLIST (JX )@@G@@A) SALES TREND OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG @[@@@BSEP $ JY )@@G@@@ @B@ LIST (A) SALES OCT NOV DEC $ @]@@@ DSTAT (A) $ @[@@@ END $ ___@@^JZ )@@G@@DSTAT (A) $ @[@@@^END $ ___ 22.8 0 0 0 0 0 0 0 0 0 0 0 0 $ @A@B@^20.4 1KA )@@G@@3.5 22.8 0 0 0 0 0 0 0 0 0 $ @#@@@ GENR CONST =*[S@@@*SDFF*@D@@@ HEADINKB )@@G@@G $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ @#@@@ SAMPLE 1 48 $ KC )@@G@@@]@@@ LOAD TREND $@D@@@ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 KD )@@G@@20 @E@@@ 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 KE )@@G@@@ @@@ 41 42 43 44 45 46 47 48 $ @]@@@ LOAD OCT $ @C@D@ 1 0 0 0 0 0 KF )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 @C@@@D1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 KG )@@G@@0 0 0 0 0 0 0 @D@D@ 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 KH )@@G@@$ @C@@@D1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 $ @]@@@ LOAD NKI )@@G@@OV $ @C@D@ 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 @C@@@D0 0 0 KJ )@@G@@0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 @D@D@ 0 1 0 0 0 0 0 0 0 0 0 0 KK )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 $ @C@@@D0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 KL )@@G@@0 0 0 0 $ @]@@@ LOAD DEC $ @C@D@ 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 KM )@@G@@0 0 0 0 0 0 @C@@@D0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 @D@D@ KN )@@G@@0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 $ @C@@@D0 1 0 0 0 0 KO )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 $ @]@@@BLOAD JAN $ @C@D@B0 0 0 1 0 0 KP )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 @C@@@D0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 KQ )@@G@@0 0 0 0 0 0 0 @D@D@B0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 KR )@@G@@$ @C@@@D0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 $ @]@@@BLOAD FKS )@@G@@EB $ @C@D@B0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 @C@@@D0 0 0 KT )@@G@@1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 @D@D@B0 0 0 0 1 0 0 0 0 0 0 0 KU )@@G@@0 0 0 0 1 0 0 0 0 0 0 0 $ @C@@@D0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 KV )@@G@@0 0 0 0 $ @]@@@BLOAD MAR $ @C@D@B0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 KW )@@G@@0 0 0 0 0 0 @C@@@D0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 @D@D@BKX )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 $ @C@@@D0 0 0 0 1 0 KY )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 $ @]@@@BLOAD APR $ @C@D@B0 0 0 0 0 0 KZ )@@G@@1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 @C@@@D0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 LA )@@G@@0 1 0 0 0 0 0 @D@D@B0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 LB )@@G@@$ @C@@@D0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 $ @]@@@BLOAD MLC )@@G@@AY $ @C@D@B0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 @C@@@D0 0 0 LD )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 @D@D@B0 0 0 0 0 0 0 1 0 0 0 0 LE )@@G@@0 0 0 0 0 0 0 1 0 0 0 0 $ @C@@@D0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 LF )@@G@@0 0 0 0 $ @]@@@BLOAD JUN $ @C@D@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 LG )@@G@@0 0 1 0 0 0 @C@@@D0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 @D@D@BLH )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 $ @C@@@D0 0 0 0 0 0 LI )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 $ @]@@@BLOAD JUL $ @D@C@B0 0 0 0 0 0 LJ )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @C@D@C0 0 0 0 0 0 0 0 0 1 0 0 LK )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 @C@@@D0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 LL )@@G@@0 @D@D@B0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @C@@@DLM )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @]@@@BLOAD AUG $ @C@D@BLN )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 @C@@@D0 0 0 0 0 0 0 0 0 LO )@@G@@1 0 0 0 0 0 0 0 0 0 0 1 0 @D@D@B0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 LP )@@G@@0 0 0 0 1 0 $ @C@@@D0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 $ LQ )@@G@@@]@@@BLOAD SEP $ @C@D@B0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 LR )@@G@@@C@@@D0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 @D@D@B0 0 0 0 0 0 LS )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 $ @C@@@D0 0 0 0 0 0 0 0 0 0 1 0 LT )@@G@@0 0 0 0 0 0 0 0 0 1 $ @]@@@ LOAD SALES $@E@@@B1.3 0.1 0.5 9.5 37.2 81.LU )@@G@@1 87.3 59.5 72.9 58.6 28.1 14.1 @F@D@B6.4 12.7 13.3 20.9 65.5 124.5 LV )@@G@@144.0 137.8 156.0 89.2 36.9 25.2 @F@@@D6.4 12.7 13.3 20.9 65.5 124.5 LW )@@G@@144.0 137.8 156.0 89.2 36.9 25.2 @F@@@B18.8 13.2 11.6 53.4 126.2 153.LX )@@G@@9 188.2 206.1 168.9 97.6 35.2 33.7 @F@@@B20.4 13.5 22.8 92.7 161.7 316.LY )@@G@@8 372.8 272.4 181.0 92.1 39.9 34.2 @ @B@ 1.3 0.1 0.5 0 0 0 0 0 0 0 0 0 LZ )@@G@@@A@B@ 6.4 12.7 13.3 0 0 0 0 0 0 0 0 0 @A@B@ 18.8 13.2 11.6 0 0 0 0 MA )@@G@@0 0 0 0 0 @A@B@ 20.4 13.5 22.8 0 0 0 0 0 0 0 0 0 $ @#@@@ GENR CONST =MB )@@G@@1 $ @ @A@ OLSQ TREND SALES OCT NOV DEC$ @ @B@AOLSQ SALES TREND OCT NOVMC )@@G@@ DEC$ @[@@@ PLOT $@E@@@BOLSQ SALES CONST TREND OCT NOV DEC JAN FEB MAR AMD )@@G@@PR MAY JUN @#@@@BJUL AUG SEP $ @F@@@BLIST (A) SALES TREND OCT NOV DME )@@G@@EC JAN FEB MAR APR MAY JUN JUL AUG @[@@@BSEP $ @ @B@ LIST (A) SALES OCTMF )@@G@@ NOV DEC $ @]@@@ DSTAT (A) $ @[@@@ END $ ___A@)A@)A@)A@)A@)A@)AC)A@)A@)MG )@@G@@A@)A@)A@)A@)A@)A@)A@)A@)AC)A@)^))^@)@#@@@BD-JCD^^[NC(K^@=^@)@G[@@BA@)A@)MH )@@G@@*[S@@@*SDFF*@D@@@AHEADING $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ MI )@@G@@@#@E@ASAMPLE 1 48 $ @#@@@ESAMPLE 1 44 $ @]@@@ALOAD TREND $@D@@@AMJ )@@G@@1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 @E@@@A21 22 23 24 MK )@@G@@25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 @ @@@A41 42 43 44 45 46 ML )@@G@@47 48 $ @]@@@ALOAD OCT $ @C@D@A1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 MM )@@G@@0 0 0 0 0 0 @C@@@D1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 @D@D@AMN )@@G@@1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 $ @C@@@D1 0 0 0 0 0 MO )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 $ @]@@@ALOAD NOV $ @C@D@A0 1 0 0 0 0 MP )@@G@@0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 @C@@@D0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 MQ )@@G@@0 0 0 0 0 0 0 @D@D@A0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 MR )@@G@@$ @C@@@D0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 $ @]@@@ALOAD DMS )@@G@@EC $ @C@D@A0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 @C@@@D0 1 0 MT )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 @D@D@A0 0 1 0 0 0 0 0 0 0 0 0 MU )@@G@@0 0 1 0 0 0 0 0 0 0 0 0 $ @C@@@D0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 MV )@@G@@0 0 0 0 $ @]@@@BLOAD JAN $ @C@D@B0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 MW )@@G@@0 0 0 0 0 0 @C@@@D0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 @D@D@BMX )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 $ @C@@@D0 0 1 0 0 0 MY )@@G@@0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 $ @]@@@BLOAD FEB $ @C@D@B0 0 0 0 1 0 MZ )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 @C@@@D0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 NA )@@G@@0 0 0 0 0 0 0 @D@D@B0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 NB )@@G@@$ @C@@@D0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 $ @]@@@BLOAD MNC )@@G@@AR $ @C@D@B0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 @C@@@D0 0 0 ND )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 @D@D@B0 0 0 0 0 1 0 0 0 0 0 0 NE )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 $ @C@@@D0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 NF )@@G@@0 0 0 0 $ @]@@@BLOAD APR $ @C@D@B0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 NG )@@G@@1 0 0 0 0 0 @C@@@D0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 @D@D@BNH )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 $ @C@@@D0 0 0 0 0 1 NI )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 $ @]@@@BLOAD MAY $ @C@D@B0 0 0 0 0 0 NJ )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 @C@@@D0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 NK )@@G@@0 0 1 0 0 0 0 @D@D@B0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 NL )@@G@@$ @C@@@D0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 $ @]@@@BLOAD JNM )@@G@@UN $ @C@D@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 @C@@@D0 0 0 NN )@@G@@0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 @D@D@B0 0 0 0 0 0 0 0 1 0 0 0 NO )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 $ @C@@@D0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 NP )@@G@@1 0 0 0 $ @]@@@BLOAD JUL $ @D@C@B0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 NQ )@@G@@0 0 0 1 0 0 $ @C@D@C0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 NR )@@G@@@C@@@D0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 @D@D@B0 0 0 0 0 0 NS )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @C@@@D0 0 0 0 0 0 0 0 1 0 0 0 NT )@@G@@0 0 0 0 0 0 0 1 0 0 $ @]@@@BLOAD AUG $ @C@D@B0 0 0 0 0 0 0 0 0 0 1 0 NU )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 @C@@@D0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 NV )@@G@@0 @D@D@B0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 $ @C@@@DNW )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 $ @]@@@BLOAD SEP $ @C@D@BNX )@@G@@0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 @C@@@D0 0 0 0 0 0 0 0 0 NY )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 1 @D@D@B0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 NZ )@@G@@0 0 0 0 0 1 $ @C@@@D0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 $ OA )@@G@@@]@@@ALOAD SALES $@E@@@B1.3 0.1 0.5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28OB )@@G@@.1 14.1 @F@D@B6.4 12.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 3OC )@@G@@6.9 25.2 @F@@@D6.4 12.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 3OD )@@G@@6.9 25.2 @F@@@B18.8 13.2 11.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6OE )@@G@@ 35.2 33.7 @F@@@B20.4 13.5 22.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1OF )@@G@@ 39.9 34.2 @ @B@A1.3 0.1 0.5 0 0 0 0 0 0 0 0 0 @A@B@A6.4 12.7 13.3 0 0 OG )@@G@@0 0 0 0 0 0 0 @A@B@A18.8 13.2 11.6 0 0 0 0 0 0 0 0 0 @A@B@A20.4 1OH )@@G@@3.5 22.8 0 0 0 0 0 0 0 0 0 $ @#@@@AGENR CONST =1 $ @ @B@AOLSQ SALES TOI )@@G@@REND OCT NOV DEC$ @[@@@APLOT $@E@@@BOLSQ SALES CONST TREND OCT NOV DEC JOJ )@@G@@AN FEB MAR APR MAY JUN @#@@@BJUL AUG SEP $ @F@@@BLIST (A) SALES TREOK )@@G@@ND OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG @[@@@BSEP $ @ @B@ALIST (OL )@@G@@A) SALES OCT NOV DEC $ @]@@@ADSTAT (A) $ @[@@@AEND $ ___2 @ @B@ 1.3 0.OM )@@G@@1 0.5 0 0 0 0 0 0 0 0 0 @A@B@ 6.4 12.7 13.3 0 0 0 0 0 0 0 0 0 @A@B@ ON )@@G@@18.8 13.2 11.6 0 0 0 0 *[S@@@*SDFF*@D@@@BHEADING $ KOOL KAMP CASE - BRUOO )@@G@@CE HOROWITZ, TOM FIES $ @#@E@BSAMPLE 1 48 $ @#@@@ESAMPLE 1 44 $ OP )@@G@@@]@@@BLOAD TREND $@D@@@B1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 OQ )@@G@@20 @E@@@B21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 OR )@@G@@@ @@@B41 42 43 44 45 46 47 48 $ @]@@@BLOAD OCT $ @C@D@B1 0 0 0 0 0 OS )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 @C@@@D1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 OT )@@G@@0 0 0 0 0 0 0 @D@D@B1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 OU )@@G@@$ @C@@@D1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 $ @]@@@BLOAD NOV )@@G@@OV $ @C@D@B0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 @C@@@D0 0 0 OW )@@G@@0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 @D@D@B0 1 0 0 0 0 0 0 0 0 0 0 OX )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 $ @C@@@D0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 OY )@@G@@0 0 0 0 $ @]@@@BLOAD DEC $ @C@D@B0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 OZ )@@G@@0 0 0 0 0 0 @C@@@D0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 @D@D@BPA )@@G@@0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 $ @C@@@D0 1 0 0 0 0 PB )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 $ @]@@@BLOAD JAN $ @C@D@B0 0 0 1 0 0 PC )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 @C@@@D0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 PD )@@G@@0 0 0 0 0 0 0 @D@D@B0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 PE )@@G@@$ @C@@@D0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 $ @]@@@BLOAD FPF )@@G@@EB $ @C@D@B0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 @C@@@D0 0 0 PG )@@G@@1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 @D@D@B0 0 0 0 1 0 0 0 0 0 0 0 PH )@@G@@0 0 0 0 1 0 0 0 0 0 0 0 $ @C@@@D0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 PI )@@G@@0 0 0 0 $ @]@@@BLOAD MAR $ @C@D@B0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 PJ )@@G@@0 0 0 0 0 0 @C@@@D0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 @D@D@BPK )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 $ @C@@@D0 0 0 0 1 0 PL )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 $ @]@@@BLOAD APR $ @C@D@B0 0 0 0 0 0 PM )@@G@@1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 @C@@@D0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 PN )@@G@@0 1 0 0 0 0 0 @D@D@B0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 PO )@@G@@$ @C@@@D0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 $ @]@@@BLOAD MPP )@@G@@AY $ @C@D@B0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 @C@@@D0 0 0 PQ )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 @D@D@B0 0 0 0 0 0 0 1 0 0 0 0 PR )@@G@@0 0 0 0 0 0 0 1 0 0 0 0 $ @C@@@D0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 PS )@@G@@0 0 0 0 $ @]@@@BLOAD JUN $ @C@D@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 PT )@@G@@0 0 1 0 0 0 @C@@@D0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 @D@D@BPU )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 $ @C@@@D0 0 0 0 0 0 PV )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 $ @]@@@BLOAD JUL $ @D@C@B0 0 0 0 0 0 PW )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @C@D@C0 0 0 0 0 0 0 0 0 1 0 0 PX )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 @C@@@D0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 PY )@@G@@0 @D@D@B0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @C@@@DPZ )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @]@@@BLOAD AUG $ @C@D@BQA )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 @C@@@D0 0 0 0 0 0 0 0 0 QB )@@G@@1 0 0 0 0 0 0 0 0 0 0 1 0 @D@D@B0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 QC )@@G@@0 0 0 0 1 0 $ @C@@@D0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 $ QD )@@G@@@]@@@BLOAD SEP $ @C@D@B0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 QE )@@G@@@C@@@D0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 @D@D@B0 0 0 0 0 0 QF )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 $ @C@@@D0 0 0 0 0 0 0 0 0 0 1 0 QG )@@G@@0 0 0 0 0 0 0 0 0 1 $ @#@@@FSAMPLE 1 48 $ @]@@@BLOAD SALES $@E@@@BQH )@@G@@1.3 0.1 0.5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28.1 14.1 @F@D@B6.4 12QI )@@G@@.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 36.9 25.2 @F@@@D6.4 12QJ )@@G@@.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 36.9 25.2 @F@@@B18.8 1QK )@@G@@3.2 11.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6 35.2 33.7 @F@@@B20.4 1QL )@@G@@3.5 22.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1 39.9 34.2 @#@@@BGENR CQM )@@G@@ONST =1 $ @[@@@BPLOT $@E@@@BOLSQ SALES CONST TREND OCT NOV DEC JAN FEBQN )@@G@@ MAR APR MAY JUN @#@@@BJUL AUG SEP $ @F@@@BLIST (A) SALES TREND OCTQO )@@G@@ NOV DEC JAN FEB MAR APR MAY JUN JUL AUG @[@@@BSEP $ @]@@@BDSTAT (A) $ QP )@@G@@@@@@#Y@[,@@@@@@@#W@[!@#V@@@@#S@[?@#R@@@@@@@[%@@@@@@@#P@[(@@@@@@@#O@[>@#NQQ )@@G@@@@@@#M@[=@@@@@@@#K@[+@@@@@@@#J@@@@@@@@@@#F@[-@@@@[Z@#D@[X@#B@@@@@@@[W@@@QR )@@G@@@[V@#A@[S@@@@@@@# @[Q@@@@@@@##@@@@@@@[P@@@@[N@@@@@@@]"@[M@].@@@@]/@@@@@@QS )@@G@@@@@@@@@[K@@@@@@@@@@[H@@@@@@@];@[F@@@@[E@]9@[D@]7@@@@]6@[C@@@@@@@]2@[B@@@QT )@@G@@@@@@]1@@@@]0@@@@]\@[ @@@@@@@],@@@@@@@@@@]!@[#@@@@@@@@@@[[@@@@@@@]%@[@@@@QU )@@G@@@@@@](@@_@]*@@@@]$@@/@]&@@'@]=@@@@@@@@@@]-@@7@@@@@@@@@@@@@@@@@@@]Z@@6@]YQV )@@G@@@@@@]U@@5@@@@@@@]S@@3@@@@@@@]R@@\@@@@@,@@@@@:@@@@@@@]Q@@(@@@@@@@@@@@@@@@QW )@@G@@@@@@]P@@*@@@@@@@]M@@@@@@@@@@@@@@$@@@@@&@]L@@=@@@@@@@@@@@-@@@@@)@@@@@Y@@@QX )@@G@@@@X@@@@@@@]K@@@@]I@@W@@@@@@@@@@@@@@@@@@@@@@@U@@@@@@@@@@@R@]H@@@@]G@@@@]FQY )@@G@@@@@@]E@@Q@@@@@@@]C@@@@@@@@@@]B@@O@@@@@N@] @@@@@@@@@@]]@@M@][@@@@["@@L@@@QZ )@@G@@@@@@[/@@J@@@@@@@@@@@I@[;@@@@['@@@@[8@@H@[7@@E@@@@@D@[5@@@@@@@@@@[4@@B@@@RA )@@G@@@@@@@@@@A@@@@@@@[3@@ @@@@@@@[2@@[@@@@@@@[\@@^@#YEXEC @[O@@]@@@@@@RB )@@G@@CTX @[G@@#@@@@@@SNEXT$S @@0@@^@@@@@@ERMSG$ @@M@@@@@@@@@RC )@@G@@BMI @[Q@@@@@@@@@REGTAB @@I@@@@@@@@@LC13END @[S@@C@@@@@@RD )@@G@@CLEAR @@6@@@@@@@@@QARROW @@,@@@@@@@@@NRSDATA @[S@@F@@@@@@RE )@@G@@CTPKT @[O@@G@@@@@@FBI @@2@@@@@@@@@BREAKS @@6@@@@@@@@@RF )@@G@@DEC @[Q@@@@@@@@@SCR @[O@@K@@@@@@WRTAET @@4@@@@@@@@@RG )@@G@@ECOLN$ @@W@@@@@@@@@SLCHAR @@8@@@@@@@@@EVALUATE @[E@@@@@@@@@RH )@@G@@NCDW0 @[S@@P@@@@@@STHIS$D @@0@@@@@@@@@QWI @[Q@@@@@@@@@RI )@@G@@TWI @[Q@@S@@@@@@PCT @[I@@T@@@@@@SGSXO$ @@0@@@@@@@@@RJ )@@G@@WRTCC @[O@@V@@@@@@FEN @@2@@@@@@@@@IPLOAD @[O@@@@@@@@@RK )@@G@@EINS$U @@)@@@@@@@@@NCDBAD @[Q@@Z@@@@@@RESTART @[O@@@@@@@@@RL )@@G@@ASMNEM @@G@@@@@@@@@HEX @[Q@@+@@@@@@STHIS$S @@0@@<@@@@@@RM )@@G@@RINF$ @@*@@@@@@@@@EINS$P @[S@@>@@@@@@ELT$ @@*@@@@@@@@@RN )@@G@@EINS$O @[S@@@@@@@@@FSI @@2@@@@@@@@@RESFIND @[O@@@@@@@@@RO )@@G@@EVX$ERR @[@@@%@@@@@@PGMCTR @@6@@@@@@@@@NCDAD @[Q@@?@@@@@@RP )@@G@@DXLVL @@"@@!@@@@@@SGO$ @@0@@@@@@@@@PRINT2 @[S@@@@@@@@@RQ )@@G@@PRINT1 @[S@@0@@@@@@EINS$B @[S@@1@@@@@@FBN @@2@@2@@@@@@RR )@@G@@EFILL$ @@U@@@@@@@@@ENAME$ @@?@@4@@@@@@EINS$ @@)@@@@@@@@@RS )@@G@@EOCTF$ @@W@@@@@@@@@PRTOFF @[O@@@@@@@@@SCRL @[O@@8@@@@@@RT )@@G@@EHEXF$ @@&@@9@@@@@@FJATAB @@I@@@@@@@@@ED$MSG @@8@@;@@@@@@RU )@@G@@BMRGTAB @@I@@@@@@@@@ASC @[Q@@.@@@@@@GLBERR @[@@@"@@@@@@RV )@@G@@SNEXT$E @@0@@@@@@@@@HWO @[Q@@@@@@@@@ALSLGH @@I@@@@@@@@@RW )@@G@@CBUFL @[K@[]@@@@@@REQ @@8@@@@@@@@@INFOR$ @@*@[^@@@@@@RX )@@G@@FJAJK @@I@@@@@@@@@DEFAULT @[E@[A@@@@@@SNEXT$N @@0@@@@@@@@@RY )@@G@@SFIND$ @@0@@@@@@@@@EVX$ @@=@@@@@@@@@PSKIP @[S@@@@@@@@@RZ )@@G@@SYMLIST @[Q@@@@@@@@@SCAN$ @@0@[G@@@@@@REGADDR @@G@@@@@@@@@SA )@@G@@FDA @[Q@[I@@@@@@MAP @[C@[J@@@@@@FSN @@2@@@@@@@@@SB )@@G@@RES @[O@[L@@@@@@EDITR$ @@W@@@@@@@@@PRINT @[M@@@@@@@@@SC )@@G@@SVCERR @[@@[O@@@@@@PCLLGH @@8@@@@@@@@@XCMLIST @[E@@@@@@@@@SD )@@G@@FIND @[^@[R@@@@@@ADRERR @[@@@@@@@@@@ICTY @[V@[T@@@@[TSE )@@G@@ICTY @[G@[U@@@@@@CMLIST @[E@@@@@@@@@CHARTAB @@K@@@@@@@@@SF )@@G@@NCDRAD @[Q@@@@@@@@@PRTON @[O@[Y@@@@@@EMSG$ @@W@@@@@@@@@SG )@@G@@NONRES @[V@[)@@@@[)NONRES @[K@@@@@@@@@STHIS$E @@0@@@@@@@@@SH )@@G@@DCDWORD @@Q@[<@@@@@@JDSTAB @@I@@@@@@@@@EFLP$ @@Y@@@@@@@@@SI )@@G@@RESEND @[O@[&@@@@@@RD$EOF @@8@[$@@@@@@EDECF$ @@W@[*@@@@@@SJ )@@G@@DASG$ @@O@@@@@@@@@RESDATA @[O@@@@@@@@@PATCH @[G@[:@@@@@@SK )@@G@@STHIS$N @@0@@@@@@@@@FABSV @@2@@@@@@@@@REGLGH @@I@@@@@@@@@SL )@@G@@BANK @[C@@@@@@@@@EXEUNT @[O@[0@@@@@@DFLTF$ @@*@[1@@@@@@SM )@@G@@ESKIP$ @@W@@@@@@@@@AEP @[G@@@@@@@@@VFYADR @@2@@@@@@@@@SN )@@G@@SCANX$ @@0@@@@@@@@@STXERR @[@@[6@@@@@@JUMP @@6@@@@@@@@@SO )@@G@@FABS @@2@@@@@@@@@OTHMSG @@8@[9@@@@@@REGMNEM @@G@@@@@@@@@SP )@@G@@EOCTV$ @@W@@@@@@@@@NRREGS @[O@@@@@@@@@FNAME$ @@?@[.@@@@@@SQ )@@G@@CTNCY$ @@M@@@@@@@@@OUTPUT @[E@[_@@@@@@SYNTAX @[@@]@@@@@@@SR )@@G@@EHEXV$ @@&@@@@@@@@@FMTLIST @[Q@@@@@@@@@TRAP @@6@]#@@@@@@SS )@@G@@SNEXT$ @@0@]^@@@@@@EDCFZ$ @@W@@@@@@@@@EDFLP$ @@Y@]A@@@@@@ST )@@G@@ECOL$ @@W@@@@@@@@@XICTY @@8@@@@@@@@@FMASK @[^@]D@@@@@@SU )@@G@@ECOPY$ @@W@@@@@@@@@SNEXT$F @@0@@@@@@@@@SVCBRK @@6@@@@@@@@@SV )@@G@@EFD1$ @@W@@@@@@@@@SETMASK @@8@@@@@@@@@LSTAET @@%@]J@@@@@@SW )@@G@@ECLEAR$ @@W@@@@@@@@@CHANGE @[M@@@@@@@@@RSTAET @@2@@@@@@@@@SX )@@G@@FMLLGTH @[Q@]N@@@@@@SBP @[G@]O@@@@@@DX @@/@@@@@@@@@SY )@@G@@ERTABL @@+@@@@@@@@@IPRINT @[M@@@@@@@@@FJALGH @@I@@@@@@@@@SZ )@@G@@EDIT$T @@W@]T@@@@@@EASC$ @@S@@@@@@@@@TCLLGH @@8@]V@@@@@@TA )@@G@@SET @@6@]W@@@@@@STHIS$ @@0@]X@@@@@@ERTAB @@+@@@@@@@@@TB )@@G@@SATSTAT @@2@@@@@@@@@DISCADD @[E@])@@@@@@SCHAET @@2@@@@@@@@@TC )@@G@@ENTRY @[C@]+@@@@@@PUTWD @[A@]<@@@@@@SBKSP$ @@0@@@@@@@@@TD )@@G@@STHIS$F @@0@]>@@@@@@FILE$ @@*@@@@@@@@@ADDRESS @[C@@@@@@@@@TE )@@G@@EDECV$ @@W@@@@@@@@@CTYOPS$ @@M@@@@@@@@@OCT @[Q@@@@@@@@@TF )@@G@@CLREQ @@8@]:@@@@@@EXECUTE @@6@]?@@@@@@EPACK$ @@W@@@@@@@@@TG )@@G@@EDIT$ @@W@@@@@@@@@TREAD @[S@@@@@@@@@ALSTAB @@I@@@@@@@@@TH )@@G@@LSTABSVT @@%@@@@@@@@@DFP @[Q@@@@@@@@@DCDAD @[Q@]3@@@@@@TI )@@G@@CLRALL @@6@]4@@@@@@SGRX$ @@0@]5@@@@@@FJAJ @@I@@@@@@@@@TJ )@@G@@WCFMT @[Q@@@@@@@@@NRSINIT @[V@]8@@@@]8NRSINIT @[S@@@@@@@@@TK )@@G@@FMTTAB @[S@]'@@@@@@SG$ @@0@@@@@@@@@EDECZ$ @@W@@@@@@@@@TL )@@G@@SGCRX$ @@0@@@@@@@@@FENAME$ @@?@@@@@@@@@NCDPAD @[Q@]_@@@@@@TM )@@G@@PSR @[I@#@@@@@@@GETWD @[A@#[@@@@@@EFD2$ @@W@#]@@@@@@TN )@@G@@EWC$ @@U@@@@@@@@@SFP @[Q@#^@@@@@@EICW$ @@U@@@@@@@@@TO )@@G@@ABSVALUE @[C@@@@@@@@@SCANR$ @@0@@@@@@@@@ERRMSG @[E@#C@@@@@@TP )@@G@@ASMFJA @@G@@@@@@@@@FREL @@2@#E@@@@@@FEPN @@2@@@@@@@@@TQ )@@G@@DXBKPT @[O@#G@@@@@@SNEXT$D @@0@#H@@@@@@DASGA$ @@O@#I@@@@@@TR )@@G@@FJACODES @@I@@@@@@@@@ICGY @[O@@@@@@@@@FEI @@2@#L@@@@@@TS )@@G@@SELT$ @@*@@@@@@@@@CORBUF @[K@@@@@@@@@SXERSUB @[@@@@@@@@@@TT )@@G@@LSTEPNT @@%@@@@@@@@@DUSE$ @@*@#Q@@@@@@ECHAR$ @@W@@@@@@@@@TU )@@G@@SWMODE @[S@@@@@@@@@GO @@6@#T@@@@@@EMSGR$ @@W@#U@@@@@@TV )@@G@@EDITX$ @@W@@@@@@@@@BMREGS @@G@@@@@@@@@NCDW @[S@#X@@@@@@TW )@@G@@STEP @@6@@@@@@@@@DEBUG @[G@@@@@@@@@0 0 0 $ @]@@@BLOAD FTX )@@G@@EB $ @C@@@B0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 @D@@@B0 0 0 TY )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 $ @]@@@BLOAD MAR $ @C@@@BTZ )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 @D@@@B0 0 0 0 0 1 0 0 0 UA )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 $ @]@@@BLOAD APR $ @C@@@B0 0 0 0 0 0 UB )@@G@@1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 @D@@@B0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 UC )@@G@@0 0 0 1 0 0 0 0 0 $ @]@@@BLOAD MAY $ @C@@@B0 0 0 0 0 0 0 1 0 0 0 0 UD )@@G@@0 0 0 0 0 0 0 1 0 0 0 0 @D@@@B0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 UE )@@G@@0 0 0 $ @]@@@BLOAD JUN $ @C@@@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 UF )@@G@@0 0 1 0 0 0 @D@@@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 $ UG )@@G@@@]@@@BLOAD JUL $ @D@C@B0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 UH )@@G@@$ @C@@@C0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 @D@@@B0 0 0 UI )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @]@@@BLOAD AUG $ @C@@@BUJ )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 @D@@@B0 0 0 0 0 0 0 0 0 UK )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 $ @]@@@BLOAD SEP $ @C@@@B0 0 0 0 0 0 UL )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 @D@@@B0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 UM )@@G@@0 0 0 0 0 0 0 0 1 $ @]@@@ LOAD SALES $@E@@@B1.3 0.1 0.5 9.5 37.2 81.UN )@@G@@1 87.3 59.5 72.9 58.6 28.1 14.1 @F@@@B6.4 12.7 13.3 20.9 65.5 124.5 UO )@@G@@144.0 137.8 156.0 89.2 36.9 25.2 @F@@@B18.8 13.2 11.6 53.4 126.2 153.UP )@@G@@9 188.2 206.1 168.9 97.6 35.2 33.7 @F@@@B20.4 13.5 22.8 92.7 161.7 316.UQ )@@G@@8 372.8 272.4 181.0 92.1 39.9 34.2 @ @B@ 1.3 0.1 0.5 0 0 0 0 0 0 0 0 0 UR )@@G@@@A@B@ 6.4 12.7 13.3 0 0 0 0 0 0 0 0 0 @A@B@ 18.8 13.2 11.6 0 0 0 0 US )@@G@@0 0 0 0 0 @A@B@ 20.4 13.5 22.8 0 0 0 0 0 0 0 0 0 $ @#@@@ GENR CONST =UT )@@G@@1 $ @ @A@ OLSQ TREND SALES OCT NOV DEC$ @ @B@AOLSQ SALES TREND OCT NOVUU )@@G@@ DEC$ @[@@@ PLOT $@E@@@BOLSQ SALES CONST TREND OCT NOV DEC JAN FEB MAR AUV )@@G@@PR MAY JUN @#@@@BJUL AUG SEP $ @F@@@BLIST (A) SALES TREND OCT NOV DUW )@@G@@EC JAN FEB MAR APR MAY JUN JUL AUG @[@@@BSEP $ @ @B@ LIST (A) SALES OCTUX )@@G@@ NOV DEC $ @]@@@ DSTAT (A) $ @[@@@ END $ ___@@^DSTAT (A) $ @[@@@^END $ UY )@@G@@___ 22.8 0 0 0 0 0 0 0 0 0 0 0 0 $ @A@B@^20.4 13.5 22.8 0 0 0 0 0 0 0 UZ )@@G@@0 0 $ @#@@@ GENR CONST =*[S@@@*SDFF*@D@@@AHEADING $ KOOL KAMP CASE - BRUVA )@@G@@CE HOROWITZ, TOM FIES $ @#@@@ASAMPLE 1 48 $ @]@@@ALOAD TREND $@D@@@AVB )@@G@@1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 @E@@@A21 22 23 24 VC )@@G@@25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 @ @@@A41 42 43 44 45 46 VD )@@G@@47 48 $ @]@@@ALOAD OCT $ @C@@@A1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 VE )@@G@@0 0 0 0 0 0 @D@@@A1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 $ VF )@@G@@@]@@@ALOAD NOV $ @C@@@A0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 VG )@@G@@@D@@@A0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 $ @]@@@ALOAD DVH )@@G@@EC $ @C@@@A0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 @D@@@A0 0 1 VI )@@G@@0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 $ @]@@@BLOAD JAN $ @C@@@BVJ )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 @D@@@B0 0 0 1 0 0 0 0 0 VK )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 $ @]@@@BLOAD FEB $ @C@@@B0 0 0 0 1 0 VL )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 @D@@@B0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 VM )@@G@@0 1 0 0 0 0 0 0 0 $ @]@@@BLOAD MAR $ @C@@@B0 0 0 0 0 1 0 0 0 0 0 0 VN )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 @D@@@B0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 VO )@@G@@0 0 0 $ @]@@@BLOAD APR $ @C@@@B0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 VP )@@G@@1 0 0 0 0 0 @D@@@B0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 $ VQ )@@G@@@]@@@BLOAD MAY $ @C@@@B0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 VR )@@G@@@D@@@B0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 $ @]@@@BLOAD JVS )@@G@@UN $ @C@@@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 @D@@@B0 0 0 VT )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 $ @]@@@BLOAD JUL $ @D@C@BVU )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @C@@@C0 0 0 0 0 0 VV )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 @D@@@B0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 VW )@@G@@0 0 0 0 0 0 1 0 0 $ @]@@@BLOAD AUG $ @C@@@B0 0 0 0 0 0 0 0 0 0 1 0 VX )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 @D@@@B0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 VY )@@G@@0 1 0 $ @]@@@BLOAD SEP $ @C@@@B0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 VZ )@@G@@0 0 0 0 0 1 @D@@@B0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 $ WA )@@G@@@]@@@ALOAD SALES $@E@@@B1.3 0.1 0.5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28WB )@@G@@.1 14.1 @F@@@B6.4 12.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 3WC )@@G@@6.9 25.2 @F@@@B18.8 13.2 11.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6WD )@@G@@ 35.2 33.7 @F@@@B20.4 13.5 22.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1WE )@@G@@ 39.9 34.2 @ @B@A1.3 0.1 0.5 0 0 0 0 0 0 0 0 0 @A@B@A6.4 12.7 13.3 0 0 WF )@@G@@0 0 0 0 0 0 0 @A@B@A18.8 13.2 11.6 0 0 0 0 0 0 0 0 0 @A@B@A20.4 1WG )@@G@@3.5 22.8 0 0 0 0 0 0 0 0 0 $ @#@E@AGENR CONST =1 $ @ @B@AOLSQ SALES TWH )@@G@@REND OCT NOV DEC$ @[@@@APLOT $@E@@@BOLSQ SALES CONST TREND OCT NOV DEC JWI )@@G@@AN FEB MAR APR MAY JUN @#@@@BJUL AUG SEP $ @F@@@BLIST (A) SALES TREWJ )@@G@@ND OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG @[@@@BSEP $ @ @B@ALIST (WK )@@G@@A) SALES OCT NOV DEC $ @]@@@ADSTAT (A) $ @[@@@AEND $ ___^@)@#@@@ D-JCD^WL )@@G@@^[NCDGC(N^@=@J@@@BAC,AS)A@,AC)A@,A*)BC,A*)AS7 02^@8AC,AC)B@7 03^@5BC,A*)WM )@@G@@A82 09^@5B@,A0)AK8 01^@1A),AC)^@)^@)@K@@@BA0,A))AC2 07^@1AS,AS)AK0 09^@6WN )@@G@@*[S@@@*SDFF*@D@@@BHEADING $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ WO )@@G@@@#@@@BSAMPLE 1 48 $ @]@@@BLOAD TREND $@D@@@B1 2 3 4 5 6 7 8 9 10 11 WP )@@G@@12 13 14 15 16 17 18 19 20 @E@@@B21 22 23 24 25 26 27 28 29 30 31 32 WQ )@@G@@33 34 35 36 37 38 39 40 @ @@@B41 42 43 44 45 46 47 48 $ @]@@@BLOAD OWR )@@G@@CT $ @C@@@B1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 @D@@@B1 0 0 WS )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 $ @]@@@BLOAD NOV $ @C@@@BWT )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 @D@@@B0 1 0 0 0 0 0 0 0 WU )@@G@@0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 $ @]@@@BLOAD DEC $ @C@@@B0 0 1 0 0 0 WV )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 @D@@@B0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 WW )@@G@@0 0 0 0 0 0 0 0 0 $ @]@@@BLOAD JAN $ @C@@@B0 0 0 1 0 0 0 0 0 0 0 0 WX )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 @D@@@B0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 WY )@@G@@0 0 0 $ @]@@@BLOAD FEB $ @C@@@B0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 WZ )@@G@@0 0 0 0 0 0 @D@@@B0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 $ XA )@@G@@@]@@@BLOAD MAR $ @C@@@B0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 XB )@@G@@@D@@@B0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 $ @]@@@BLOAD AXC )@@G@@PR $ @C@@@B0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 @D@@@B0 0 0 XD )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 $ @]@@@BLOAD MAY $ @C@@@BXE )@@G@@0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 @D@@@B0 0 0 0 0 0 0 1 0 XF )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 $ @]@@@BLOAD JUN $ @C@@@B0 0 0 0 0 0 XG )@@G@@0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 @D@@@B0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 XH )@@G@@0 0 0 0 0 1 0 0 0 $ @]@@@BLOAD JUL $ @D@C@B0 0 0 0 0 0 0 0 0 1 0 0 XI )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 $ @C@@@C0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 XJ )@@G@@0 0 0 1 0 0 @D@@@B0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ XK )@@G@@@]@@@BLOAD AUG $ @C@@@B0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 XL )@@G@@@D@@@B0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 $ @]@@@BLOAD SXM )@@G@@EP $ @C@@@B0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 @D@@@B0 0 0 XN )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 $ @]@@@BLOAD SALES $@E@@@BXO )@@G@@1.3 0.1 0.5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28.1 14.1 @F@@@B6.4 12XP )@@G@@.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 36.9 25.2 @F@@@B18.8 1XQ )@@G@@3.2 11.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6 35.2 33.7 @F@@@B20.4 1XR )@@G@@3.5 22.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1 39.9 34.2 @#@E@BGENR CXS )@@G@@ONST =1 $ @[@F@BPLOT $@E@@@BOLSQ SALES CONST TREND OCT NOV DEC JAN FEBXT )@@G@@ MAR APR MAY JUN @#@@@BJUL AUG SEP $ @F@@@BLIST (A) SALES TREND OCTXU )@@G@@ NOV DEC JAN FEB MAR APR MAY JUN JUL AUG @[@@@BSEP $ @]@@@BDSTAT (A) $ XV )@@G@@@[@@@BEND $ ___A@)AC)A@)A@)A@)A@)A@)A@)A@)A@)A@)A@)A@)AC)A@)^))^@)@#@@@BXW )@@G@@*[S@@@*SDFF*@D@@@CHEADING $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ XX )@@G@@@#@@@CSAMPLE 1 48 $ @]@@@CLOAD TREND $@D@@@C1 2 3 4 5 6 7 8 9 10 11 XY )@@G@@12 13 14 15 16 17 18 19 20 @E@@@C21 22 23 24 25 26 27 28 29 30 31 32 XZ )@@G@@33 34 35 36 37 38 39 40 @ @@@C41 42 43 44 45 46 47 48 $ @]@@@CLOAD OYA )@@G@@CT $ @C@@@C1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 @D@@@C1 0 0 YB )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 $ @]@@@CLOAD NOV $ @C@@@CYC )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 @D@@@C0 1 0 0 0 0 0 0 0 YD )@@G@@0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 $ @]@@@CLOAD DEC $ @C@@@C0 0 1 0 0 0 YE )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 @D@@@C0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 YF )@@G@@0 0 0 0 0 0 0 0 0 $ @]@@@CLOAD JAN $ @C@@@C0 0 0 1 0 0 0 0 0 0 0 0 YG )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 @D@@@C0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 YH )@@G@@0 0 0 $ @]@@@CLOAD FEB $ @C@@@C0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 YI )@@G@@0 0 0 0 0 0 @D@@@C0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 $ YJ )@@G@@@]@@@CLOAD MAR $ @C@@@C0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 YK )@@G@@@D@@@C0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 $ @]@@@CLOAD AYL )@@G@@PR $ @C@@@C0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 @D@@@C0 0 0 YM )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 $ @]@@@CLOAD MAY $ @C@@@CYN )@@G@@0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 @D@@@C0 0 0 0 0 0 0 1 0 YO )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 $ @]@@@CLOAD JUN $ @C@@@C0 0 0 0 0 0 YP )@@G@@0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 @D@@@C0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 YQ )@@G@@0 0 0 0 0 1 0 0 0 $ @]@@@CLOAD JUL $ @C@@@C0 0 0 0 0 0 0 0 0 1 0 0 YR )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 @D@@@C0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 YS )@@G@@1 0 0 $ @]@@@CLOAD AUG $ @C@@@C0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 YT )@@G@@0 0 0 0 1 0 @D@@@C0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 $ YU )@@G@@@]@@@CLOAD SEP $ @C@@@C0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 YV )@@G@@@D@@@C0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 $ @]@@@CLOAD SYW )@@G@@ALES $@E@@@C1.3 0.1 0.5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28.1 14.1 YX )@@G@@@F@@@C6.4 12.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 36.9 25.2 YY )@@G@@@F@@@C18.8 13.2 11.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6 35.2 33.7 YZ )@@G@@@F@@@C20.4 13.5 22.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1 39.9 34.2 ZA )@@G@@@#@E@CGENR CONST =1 $ @[@F@CPLOT $@E@G@COLSQ SALES CONST TREND OCT NOVZB )@@G@@ DEC JAN FEB MAR APR MAY JUN @D@@@GOLSQ SALES TREND OCT NOV DEC JAN FEBZC )@@G@@ MAR APR MAY JUN @#@@@CJUL AUG SEP $ @F@@@CLIST (A) SALES TREND OCTZD )@@G@@ NOV DEC JAN FEB MAR APR MAY JUN JUL AUG @[@@@CSEP $ @]@@@CDSTAT (A) $ ZE )@@G@@@[@@@CEND $ ___68.9 97.6 35.2 33.7 @F@@@B20.4 13.5 22.8 92.7 161.7 316.ZF )@@G@@*[S@@@*SDFF*@D@@@DHEADING $ KOOL KAMP CASE - BRUCE HOROWITZ, TOM FIES $ ZG )@@G@@@#@@@DSAMPLE 1 48 $ @]@@@DLOAD TREND $@D@@@D1 2 3 4 5 6 7 8 9 10 11 ZH )@@G@@12 13 14 15 16 17 18 19 20 @E@@@D21 22 23 24 25 26 27 28 29 30 31 32 ZI )@@G@@33 34 35 36 37 38 39 40 @ @@@D41 42 43 44 45 46 47 48 $ @]@@@DLOAD OZJ )@@G@@CT $ @C@@@D1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 @D@@@D1 0 0 ZK )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 $ @]@@@DLOAD NOV $ @C@@@DZL )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 @D@@@D0 1 0 0 0 0 0 0 0 ZM )@@G@@0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 $ @]@@@DLOAD DEC $ @C@@@D0 0 1 0 0 0 ZN )@@G@@0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 @D@@@D0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 ZO )@@G@@0 0 0 0 0 0 0 0 0 $ @]@@@DLOAD JAN $ @C@@@D0 0 0 1 0 0 0 0 0 0 0 0 ZP )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 @D@@@D0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 ZQ )@@G@@0 0 0 $ @]@@@DLOAD FEB $ @C@@@D0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 ZR )@@G@@0 0 0 0 0 0 @D@@@D0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 $ ZS )@@G@@@]@@@DLOAD MAR $ @C@@@D0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 ZT )@@G@@@D@@@D0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 $ @]@@@DLOAD AZU )@@G@@PR $ @C@@@D0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 @D@@@D0 0 0 ZV )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 $ @]@@@DLOAD MAY $ @C@@@DZW )@@G@@0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 @D@@@D0 0 0 0 0 0 0 1 0 ZX )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 $ @]@@@DLOAD JUN $ @C@@@D0 0 0 0 0 0 ZY )@@G@@0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 @D@@@D0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 ZZ )@@G@@0 0 0 0 0 1 0 0 0 $ @]@@@DLOAD JUL $ @C@@@D0 0 0 0 0 0 0 0 0 1 0 0 AA )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 @D@@@D0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 AB )@@G@@1 0 0 $ @]@@@DLOAD AUG $ @C@@@D0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 AC )@@G@@0 0 0 0 1 0 @D@@@D0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 $ AD )@@G@@@]@@@DLOAD SEP $ @C@@@D0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 AE )@@G@@@D@@@D0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 $ @]@@@DLOAD SAF )@@G@@ALES $@E@@@D1.3 0.1 0.5 9.5 37.2 81.1 87.3 59.5 72.9 58.6 28.1 14.1 AG )@@G@@@F@@@D6.4 12.7 13.3 20.9 65.5 124.5 144.0 137.8 156.0 89.2 36.9 25.2 AH )@@G@@@F@@@D18.8 13.2 11.6 53.4 126.2 153.9 188.2 206.1 168.9 97.6 35.2 33.7 AI )@@G@@@F@H@D20.4 13.5 22.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1 39.9 34.2 AJ )@@G@@@F@@@H20.4 13.5 22.8 92.7 161.7 316.8 372.8 272.4 181.0 92.1 39.9 34.2 $AK )@@G@@@#@E@DGENR CONST =1 $ @[@F@DPLOT $@E@G@DOLSQ SALES CONST TREND OCT NOVAL )@@G@@ DEC JAN FEB MAR APR MAY JUN @D@@@GOLSQ SALES TREND OCT NOV DEC JAN FEBAM )@@G@@ MAR APR MAY JUN @#@@@DJUL AUG SEP $ @F@@@DLIST (A) SALES TREND OCTAN )@@G@@ NOV DEC JAN FEB MAR APR MAY JUN JUL AUG @[@@@DSEP $ @]@@@DDSTAT (A) $ AO )@@G@@@[@@@DEND $ ___TREND OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG @[@@@CAP )@@G@@SEP $ @]@@@CDSTAT (A) $ @[@@@CEND $ ___68.9 97.6 35.2 33.7 @F@@@B20.4 1AQ )@@G@@3.5 22.8 92.7 161.7 316.*[S@@@*SDFF*@D@@@EHEADING $ KOOL KAMP CASE - BRUAR )@@G@@CE HOROWITZ, TOM FIES $ @#@@@ESAMPLE 1 48 $ @]@@@ELOAD TREND $@D@@@EAS )@@G@@1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 @E@@@E21 22 23 24 AT )@@G@@25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 @ @@@E41 42 43 44 45 46 AU )@@G@@47 48 $ @]@@@ELOAD OCT $ @C@@@E1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 AV )@@G@@0 0 0 0 0 0 @D@@@E1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 $ AW )@@G@@@]@@@ELOAD NOV $ @C@@@E0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 AX )@@G@@@D@@@E0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 $ @]@@@ELOAD DAY )@@G@@EC $ @C@@@E0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 @D@@@E0 0 1 AZ )@@G@@0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 $ @]@@@ELOAD JAN $ @C@@@EBA )@@G@@0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 @D@@@E0 0 0 1 0 0 0 0 0 BB )@@G@@0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 $ @]@@@ELOAD FEB $ @C@@@E0 0 0 0 1 0 BC )@@G@@0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 @D@@@E0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 BD )@@G@@0 1 0 0 0 0 0 0 0 $ @]@@@ELOAD MAR $ @C@@@E0 0 0 0 0 1 0 0 0 0 0 0 BE )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 @D@@@E0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 BF )@@G@@0 0 0 $ @]@@@ELOAD APR $ @C@@@E0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 BG )@@G@@1 0 0 0 0 0 @D@@@E0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 $ BH )@@G@@@]@@@ELOAD MAY $ @C@@@E0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 BI )@@G@@@D@@@E0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 $ @]@@@ELOAD JBJ )@@G@@UN $ @C@@@E0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 @D@@@E0 0 0 BK )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 $ @]@@@ELOAD JUL $ @C@@@EBL )@@G@@0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 @D@@@E0 0 0 0 0 0 0 0 0 BM )@@G@@1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 $ @]@@@ELOAD AUG $ @C@@@E0 0 0 0 0 0 BN )@@G@@0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 @D@@@E0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 BO )@@G@@0 0 0 0 0 0 0 1 0 $ @]@@@ELOAD SEP $ @C@@@E0 0 0 0 0 0 0 0 0 0 0 1 BP )@@G@@0 0 0 0 0 0 0 0 0 0 0 1 @D@@@E0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 BQ )@@G@@0 0 1 $ @]@@@ELOAD SALES $@E@@@E1.3 0.1 0.5 9.5 37.2 81.1 87.3 59.5 BR )@@G@@72.9 58.6 28.1 14.1 @F@@@E6.4 12.7 13.3 20.9 65.5 124.5 144.0 137.8 BS )@@G@@156.0 89.2 36.9 25.2 @F@@@E18.8 13.2 11.6 53.4 126.2 153.9 188.2 206.BT )@@G@@1 168.9 97.6 35.2 33.7 @F@H@E20.4 13.5 22.8 92.7 161.7 316.8 372.8 272.BU )@@G@@4 181.0 92.1 39.9 34.2 @F@@@H20.4 13.5 22.8 92.7 161.7 316.8 372.8 272.BV )@@G@@4 181.0 92.1 39.9 34.2 $@[@F@EPLOT $@E@G@EOLSQ SALES CONST TREND OCT NOVBW )@@G@@ DEC JAN FEB MAR APR MAY JUN @D@@@GOLSQ SALES TREND OCT NOV DEC JAN FEBBX )@@G@@ MAR APR MAY JUN @#@@@EJUL AUG SEP $ @F@@@ELIST (A) SALES TREND OCTBY )@@G@@ NOV DEC JAN FEB MAR APR MAY JUN JUL AUG @[@@@ESEP $ @]@@@EDSTAT (A) $ BZ )@@G@@@[@@@EEND $ ___AT (A) $ *[S@@@*SDFF*@D@@@FHEADING $ KOOL KAMP CASE - BRUCA )@@G@@CE HOROWITZ, TOM FIES $ @#@@@FSAMPLE 1 48 $ @]@@@FLOAD TREND $@D@@@FCB )@@G@@1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 @@@@@@@@@@@@@@@@@@@@@@@@CC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ED )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ES )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ET )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ID )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@II )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ME )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ML )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ND )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ON )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ST )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@US )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ED )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ES )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ET )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@H@@@@NOTE: THE 1100-SERIES META-ASEV )@@G@@SEMBLER (@MASM) MUST BE USED WHEN ASSEMBLING @G@@@@ ANY OF THE EW )@@G@@ELEMENTS IN THIS FILE. MANY SUBROUTINES INCLUDE SELF-@H@@@@ CONTAEX )@@G@@INED TEST DRIVERS WHICH SHOULD BE DISABLED BY FINDING AN IMAGE @F@@@@EY )@@G@@ 'TEST $EQU 1/1/1' AND CHANGING THE FIRST '1' TO A '0'. @@@@@@EZ )@@G@@@D@@@@ ALL PROCEDURES MUST BE @PDP'D WITH AN M-OPTION.___@@@@@@@@@FA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@[*SDFF*@@@@@@@#@@@@D9KE-DD9I^[ -JD0)@#@@@@FC )@@G@@D9KE-DD9I^[A -JD0)@#@@@@D9KE-DD9I^[G -JD0)@#@@@@D9KE-DD9I^[O -JD0)@#@@@@FD )@@G@@D9KE-DD9I^[Q -JD0)@#@@@@D- D1BE-C^@6BC)^@)@]@@@@ETKCD#C*)AS)@E@@@@E-DE-GFE )@@G@@C*)^@)^[^F@'^@)CC)E[MD9BEL[D*)C- CLPC9BDDIC8)ETTETOC(H@E@@@@CT D1OC(M^[^FF )@@G@@F@'^@)CC)E[MD9BEL[D*)C- CLPC9BDDIC8)ETTETOC(H^@)@]@@@@ETKCD#C*)^@)@A@@@@FG )@@G@@CT D1OC(M^[]G(,HL-H((H0)C*,^[#H[(^@)@A@@@@CT D1OC(M^[#H9!I[5I-(H1$^[#G(,FH )@@G@@I->IK)@G@@@@CT D1OC(M^[NI--I->^[PH1(I1>IL3HD4JC)H9&^[IG(7^[TH92HS)GD4^[[FI )@@G@@H-+GD,JC)^@)@A@@@@CT D1OC(M^[[H-+GD,JC)D1T^@1AK2AK2^@)@]@@@@ETKCD#C*)AS)FJ )@@G@@@ @@@@CT D1OC(M^@%^[[CLNE-MCD#E)) K)@]@@@@ETKCD#C*)^@)@M@@@@^@)^@)^[^F@)FK )@@G@@HD3^[-^[=G(+I($G9(H1$^[3JD3I->H*)GD?H-\I9(H1$^[G))G(8G(^[0IL\G92GD!^[5H1=G(2^[4G(3I))@L@@@@^[2I(,FN )@@G@@IS)HD,^[4H[>^[,H92H(-H))G1-IT*HD\H0,^@)E(0H9,^[,H92H(-H))H92^[>IL2H92^[4FO )@@G@@G(2H((H1-I-(H9, ))H92^@)@L@@@@^[5I[\H0)G(,GT\I(,I->IL(H1$^[-^[0IL>I1(H95FP )@@G@@IT?JC)IT>I))GL2G(-HT0H9(H14 ))C-S^[#H9,I-2H9?^[HH9=G*)HD3^@)@M@@@@^[>H14FQ )@@G@@G(2G(= ))GD4^[7H[(GT*^[4HD!G*)I-*G*)G(8G(^[(H13I[>GT4G(=^[\IK)^@)@F@@@@^[!H9=HD&HD>G)?^[\IK)G(8G(IT5H(>G)?^[(G0)G->IT(IL>G),@]@@@@ETKCD#C*)AK)@^@@@@ADDD1OELJC-PCTODDJFT )@@G@@D0)^@)@M@@@@^@)^@)^[^G(+I($G9(H1$^[-^[0IL\G92GD!^[(H0)G->H(-H1=^[J[(H1$^[-H1=^[=HD&G1(GT5H-4^[4GD3HS?^@)@K@@@@^[>IT0G(^[0IL\G92GD!^[(IS)H9&^[-H19^[^[=G(+I($G9(H1$^[-HD=IS?^[( 1> 0?^[KD(^ ))ETIFX )@@G@@D9JE[T^[-H1=^[AD-DE)?^[-H-?^[*GD6G*)I-*G((IK)^@)@B@@@@^[0GD2I-(GT5H--IK)FY )@@G@@IT*H92I-H*)I[2H96HD=HD,G8)I-*G*)I(3G(2^[^[>J[>GT5I-(H9,^[\G0)GC)G9(I1>H0)I[2H9$IL-H*,^@)E-*G*)GB )@@G@@I[2H9$IL-H*)I-\^[+G*)G->GL5G9$G(=^[,G(>G))@K@@@@^[>J[(IT4^[\H1?JC)HD,^[-GC )@@G@@GL3H9?I(4G*)G1\IL!^[3HD,GT>^[5IT(H1$^[^F@)IL>ID5HD2G(3^[,H8)IT0G(GT4HD\H0,^@)CL>GT-I(3G*)C-S^[\I[>IL-I->IS)H9,^[4H[>^[-GL3GE )@@G@@H9?I(4G*)I[2H9$IL-H*?^[4H[>^@)@G@@@@^[?GD,G95GD$G*)HD,^[7H[(GT*^[(I))I9-GF )@@G@@IS)I92HD4I->H0)HD3^[(H(!GD4G(2HD-H),@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[RH[(GG )@@G@@H->^[^F@)HD3^[(H0)EL5H0)D(\G-> ))I-*G*)I[2H9$IL-H*)I(,G->IK)I->IT4^[2I(,GH )@@G@@IS)GD4^[&I(?H))^@)@M@@@@^[3I[>G(=^@*IL-I-*G(2^[4H[-H0)HD,I->IL0IL>I-(I1>GI )@@G@@H-9 C?^[2G(4I(2H1(H1$^[4H8)C-S^[#H9,I-2H9?^[HH9=G*)H9,H-9^@)@L@@@@^[5I[\GJ )@@G@@H0)H1\IL!GD?^[\IK)G(2IL\IK)I->IL!HD,GD4HD\H0?^[\IK)I(0H9,^[>H1GD:I[\HD,I),^@)E9*HD?G*)HD,^[#GL )@@G@@H9,I-2H9?^[HH9=G*?^[^F@)HD,I->IL-GT4IS)GT\H16G(2IT-I-(H9,GD?H-9^@)@M@@@@GM )@@G@@^[7HD4H@)I-*G*)I(3G(2 0)^[DH0)I-*HD3^[!H9=G*?^[H14IS)H9&^[2G($HD3GN )@@G@@I->IL3 ))H(>H(\IL9 ))I-*G*)E[#E))^@)@L@@@@^[-H1=^[(H1=G(>G)?^[4H[>^[>H14GO )@@G@@HD2G*)G(8G(^[(H13I[>GT4G(= ))GD,G))GP )@@G@@@L@@@@^[2G($HD3I->IK)GD,G))H(>H(\IL9^[H14IS)GT-H0)GL>^[-H-4G(2G(=GQ )@@G@@ 0)^[DG0)G->IT(IL>G)?^[>J[>GT5I-(H9,@M@@@@^[IT5H(>G))GD4^[-GR )@@G@@H0)GD2GL(I-2GD2HD?JC)GT*H93G(,^[?H9HD4H[>IK)HD,^[3HD,G9?G*!GS )@@G@@J8)^@)@I@@@@^[\IK)H(5H-4HD0H-> (3I->I@)G1-IT*HD\H0?^[\IK)GL9^[2G(4I(2H1(GT )@@G@@H1$^[4H8)EL5H0)D(\G-> 0)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[[I-4G(,I-(H9,^[(GU )@@G@@IS)G9(I1>H0)I-\^[:G(>I[(H1$^[4H[>^[^[3HD!I[?G*)GV )@@G@@GD,G))@L@@@@^[4H[>^[\I(4I[5I))GT?G(-IK)GD,G))GT\H(0GD^@)@M@@@@^@1AC0A@!IT>IL(G(3^[(H13GX )@@G@@I-2I(IK)I-*G*)GL-IT(GS)G1>GD4I(2G(3^[\G0)C-SGY )@@G@@^[(H0)GD,^@)@L@@@@^[*H95IK)H92^[?G(3IS,^@)E-*G*)IT9IT4G(!^[(IS)I(3G(-GL?GZ )@@G@@G*)H9,^[-H19^@1AC0A@!IT>IL(G(3^[!GD 0)^@)@]@@@@ETKCD#C*)AK)@^@@@@HA )@@G@@ADRD[[E))C-S^[^D9 ES)^@)@F@@@@ALKIL\G92GD!^[ J[>GT5I-(H9,^[-H1=^[KH93I)!HB )@@G@@D(\IL4G(!^[[H1-H-9IT(IS)@L@@@@^@)^@)^[[IS)GC)GT\H1I->^[>J[-H(0H-> ))HC )@@G@@I9>^[IK)I-*G*)G1\H-?H97HD,G8)I[2H9$IL-H*,^@)E9*G(,@J@@@@^[>J[>HD )@@G@@GT5I->G)?^[4H[>^[0IL\G92GD!^[0IL(H14IS)GD,^[(H(-G9> ))I-*G(,^[2G(-G-3^[-HE )@@G@@H0)HD!GD$G*,@M@@@@^[^G(0G(,G-(H1$^[\H0)I-*G*)GT\H14G(,I-3^[\G0)I-*G*)HD,HF )@@G@@I[5I)?^[(I))I-*G(,^[>HD4H[>IK)G(8HD4IS)H1\IL!GD?H-9^@)@E@@@@^@*C(M^[ F[DHG )@@G@@E)= C)H92^[(H0)G(2IL\IK)H(\G->^@*C(M^[ ELM^)( 0)@]@@@@ETKCD#C*)^@)@]@@@@HH )@@G@@C1SC1JELH^@)@^@@@@^[@D([ETH -N^[OC(NE))^@)@F@@@@^[HCDND*)ATMAC)ELGDD]^@7HI )@@G@@A-MAC)A@8 80BC\B@0^@0A@'A@2BK2A0) @0 C)^@)@H@@@@^@)^@)^@)^@)^@)^@)^@)^@)HJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)AC,^@)^)*AC(^@)^@)CDSEK=^@)@L@@@@^@1^@0A@0A@0HK )@@G@@A@)^@1A@)A@0^@0A@)A@0^@0^@0A@0A@0AS)^@)AK,^@)ETOCDME))^@)E@=ELDD1O^@) @0HL )@@G@@AC0AS?EDPC(MFC(^@)@C@@@@^@)^@0A@0A@0AC)^@7AK)AC1^@0A@)A@0^@0^@0A@0A@0A@)HM )@@G@@@K@@@@^@)^@0A@0A@0AK)^@1A@)A@0^@0A@)A@0^@0^@0A@0A@0A))^@)AS,^@)^@)^@)^@)HN )@@G@@^@)EK=C([C))^@) [ D9A -]E(A C)@C@@@@^@)^@0A@0A@0AS)^@7AK)AC1^@0A@)A@0^@0HO )@@G@@^@0A@0A@0A@)@J@@@@^@)^@0A@0A@0A))^@1A@)A@0^@0AC)A@0^@0^@0A@0A@0A@)^@)A),HP )@@G@@^@)^@)^@)^@)^@)D))^@)^@)^@)CC1 -]E(A@L@@@@^@)^@0A@0A@0A*)^@5AK)A@0^@0AC)HQ )@@G@@A@0^@0^@0A@0A@0A*)^@)A*,^@)^@)^@)^@)^@)E- ^@)^@)^@)CC1 )*^9BD9JC),^@$ C)HR )@@G@@@J@@@@^@)^@0A@0A@0A0)^@7AK)AC1^@0A@)A@0^@0^@0A@0A@0A@)^@)A0,^@)C(JC0)^@)HS )@@G@@^@)C(M^@)^@)^@)C(MEK=^@)@J@@@@^@)^@0A@0A@0A8)^@7AK)AC1^@0A@)A@0^@0^@0A@0HT )@@G@@A@0A@)^@)A8,^@)^@)^@)^@)^@)C(M^@)^@)^@)C(SDDO^))@G@@@@^@)^@)^@)^@)^@)^@)HU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)B@,^@)^)*A@(^@)^@) 0)@K@@@@^@0^@0A@0A@0HV )@@G@@A@)^@1A*2A)3A)0A*0A02A8)^@)^@)^@)^@)^@)BC,^@)EDPC(MFC)^@)^9CD9R^[[EL ^[OHW )@@G@@D[DD1BES_^8)@A@@@@^@)^@0A@0A@0AC)^@1AK0A*3AC1A*1A02AS)@A@@@@^@)^@0A@0A@0HX )@@G@@AK)^@1A)3A@5A)0A*0A*0A*)@G@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HY )@@G@@^@)^@)^@1A@,^@)^)*AK(^@)^@) 0)@I@@@@^@2^@0A@0A@0A@)^@)^@)^@)^@)^@)^@)^@)HZ )@@G@@^@)^@)^@)^@)^@1AC,^@)CLPC0)^@)^@)^-MC(N^@)^@)AK8@J@@@@^@)^@)^@)^@)^@)^@0IA )@@G@@A@0A@0A@)^@)^@)^@)^@)^@)^@)^@)^@1AK,^@)^@)^@)^@)^@)^- D1^^@)^@)ETOCDME))IB )@@G@@@A@@@@^@0^@0A@0A@0AS)^@0A@0AC0AS)A@0A@0A@0@A@@@@^@)^@0A@0A@0A))^@0A@0A@0IC )@@G@@A0)A@0A@0A@0@A@@@@^@)^@0A@0A@0A*)^@1A)2A)2A)1AC7A*0A*)@]@@@@ETKCD#C*)^@)ID )@@G@@@L@@@@^[GD9#CDODDJD0)CTJE(IE- ELNBK)^@)^@= @0 C)^@0A@0A@0A0)^@)^@= @1 C)IE )@@G@@^@0A@0A@1A@)^@)^@= @2 C)^@0A@0A@3A))@[@@@@C(IC))@]@@@@ETKCD#C*)^@)@H@@@@IF )@@G@@^@)^@)^[[G14G(2^[GT4HD\H0?^[4H[>^[0IL\G92GD!^[BK)^[(H0)GD?H))G(8GD!I[?G(3 ))H95I-0I(4^[(H(-G9>IS)GD2G*)I(0I[>IJ )@@G@@IK)GT-IT> ))HD,I[5I))H-\I9>IK)@]@@@@^[^[H16HD2H9,H(>H14^[!GD9^[+G*)I-*H95G9*I))I-\^[+IL )@@G@@G*)C(SC(#^[(H0)I-*G*)IT>H13G*)@K@@@@^[4H[-I))C(SC(#^[?H9-G-3^[4H[>^[0IL\IM )@@G@@G92GD!^[(H0)IL>IT0H9,IT>^[4H8)I-*G*)C[SEDO^[IS)GT\H14IL\H))I-\^[(I),^@)E9*G(,^[4H[>^[0IL\G92GD!^[4G(2H((H1-I->IS?IO )@@G@@^[IS)GD,H94H[>IK)H--JD>IK)H9&^[^[(H14G(2I[\IT>G))^@)@L@@@@^[+G(4I9>G(,^[ F[ CS)GD,G))I-*G*)H9+IR )@@G@@HL>GT4^[0IL\G92GD! 0)^[DH13I->GD=^[\G0)G9(I1(H1$^[4H[>^[@F[LE))^@)@D@@@@IS )@@G@@^[G-3^[-IS)G1\H-?H97IS'^@)@]@@@@ETKCD#C*)^@)IT )@@G@@@]@@@@C1SC1JELH^@)@#@@@@^[@G-8^[4G(3I))^@)@]@@@@^[^F@)AK,A0)@ @@@@^@*C-SIU )@@G@@^[DD0)ELPD0)D(JC- 0(^@)@^@@@@^[CD9R^[[EL ^[OD[DD1BES_@]@@@@^[+GD= 0)^@)IV )@@G@@@ @@@@^[ ELM^))C(MELJEK) [#D9^C*)A@(@C@@@@^@)CDO^@0AC0A@6^@*E- ETO 01 S6IW )@@G@@ C)B- EK)C(MEK=B0,@[@@@@^@"^@)@[@@@@C(IC))@]@@@@ETKCD#C*)^@)@H@@@@^@*C-(IX )@@G@@G1&G(2G(,I))HD,I[5I))I9-IS)I(3G(=^[4H[(IS)I-(H(>^[&H92^[6GD2HD>I-9 0(^@)IY )@@G@@@]@@@@ETKCD#C*)^@)@M@@@@^@)^@)^[RH[-I))H[-I[0G(,IS)GD3^[-^[2G(3I(?I))H9&IZ )@@G@@^[(H16H9:HD,G8)I-*G*)C[^F@)GT\H(!GD,G))GD+H96G*)HD3^[4H[>^@)@L@@@@^[&H9?JA )@@G@@H-\I9(H1$BK)^[OH[>^[@C-S^[0IL\GT>IT3H92^[&HD,G-3^[4H[>^[-GL3H9?I(4G*)G(?JB )@@G@@G(!G(,I))E- ETO^[-H1=^@)@M@@@@^[I8)GD+IT\H-5I->^[>JC )@@G@@H->H(>H14^[\G0)I9*HDI8)^@)@M@@@@JD )@@G@@^[>H->H(>H14^[(IS)I-*G(,^[>J[>GT5I->G))I1(GC)GC)H[(G-=G(,^@*C[[C-^G(= C)JE )@@G@@C[SEDO^[3I--I->H(>H14 0)^[OH[(IS)^@)@M@@@@^[>J[>GT5I-(H9,^[^[(H0)JH )@@G@@E- ETO^@*I9*HDIT(G->IS)HD,^[>J[-GT4H-9^@)@L@@@@^[4H[>^[3GD!G*)H(>JI )@@G@@H(\IL9^[?H9^[(H0)^LMI(,^[HH9=JK )@@G@@G*+ 0)^[OH[>^[J[>GT5I->G)?^@)@L@@@@^[I-5IL,G(=^[4H8)C-S^@)@M@@@@^@*IL-I-*G(2JO )@@G@@^[4H[-H0)I-\^[ F[ CS( *!H(\IL>^[3I[>GT(G1(GT-H-?JC?^[4H8)I-*G*)GT\H14IL\JP )@@G@@H))GT\G->^[4H[>^[@C-S^@)@K@@@@^[0IL\GT>IT3H92^[-I[0G(,G->G))I-\^[>H->H(>JQ )@@G@@H14^[OC(NE))HD,^[GD4HD,G8)I-*G*)H1>I8)GD+IT\H-5I->@L@@@@^[>H->H(>H14JR )@@G@@ 0)^[IH97^[^F@)HD3^[3GD(G))I-\^[+G*)HD,^@+CT\H14IL\H))D(\G->^K,^@)C-S^[2JS )@@G@@G(0H92I-3^[4H[>^@)@L@@@@^[>I1>H14^[4H[-I))GT-I(3G(=^[4G(2H((H1-I-(H9,^[4JT )@@G@@H8)H9^[-G-=IL>IT3^[\G0)I-*G*)I->IL!HD,GD?@K@@@@^[(H13I-2I(H->H(>H14 (2G(?GD4HD6G*)G1\IL!^@*E- ETO 01 S6 ))I-*JW )@@G@@G*)^K1^K)H(>GD,HD,G8)^)*AC( C,@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[JH1I[4^[=G(+I($G9(H1$^[^[>J[-KA )@@G@@H(0H-> 0)^[IH97^[4H[>^[5IT>IK)H(-JC)HD,IT0G(H16HD2H9,H(>H14 *!H1-H(>H-9^[2G($HD3I->IK)H92KC )@@G@@^[!G(!H92JC)GT\H14G(,I-3 ))I-*G*)E[#E)?^[4H[>^[KETM 0)@J@@@@^[AH92^[>J[-KD )@@G@@H(0H-> ))I-\^[3G(>^[7H[-I))I9-IS)GDIT4 02 S0^@)@]@@@@KF )@@G@@^[OC(NE),AK)@B@@@@^@0A)0A@0A0)A@0A@0A@)A@7A@6AC1 )7A*0A*0A*)@[@@@@^@"^@)KG )@@G@@@[@@@@C(IC))@]@@@@ETKCD#C*)^@)@F@@@@^[\IK?^[(G0)H9,G*)I9\I(?G))IL-I-*G(2KH )@@G@@^[3G(>^[(I))HD,^[AHD>H-=GD4GC?@]@@@@ETKCD#C*)^@)@]@@@@C1SC1JELH^@)@^@@@@KI )@@G@@^@"I->IT4 02 S0^[&G--^@)@]@@@@^[OC(NE),AK)@ @@@@^@0A)0A@0A0)A@0A@0A@)CL[KJ )@@G@@C),^@)@[@@@@^@"^@)@[@@@@C(IC))@]@@@@ETKCD#C*)^@)@K@@@@^[OH[>^[2G(1I(>IT4KK )@@G@@G(=^[6GD?I(>^[(IS)I[2G(^[-G-=IL>IT3^[-H1=KL )@@G@@^[(I-3@L@@@@^[-G-=IL>IT3^[2G(?GD4HD6G*)I-\^@= @2 C)H9&^[>H->H(>H14^[OC(NKM )@@G@@E),^@)DD4^[H14HD\H1>G))I-*GD4@L@@@@^[4H[2H95G9*H95I))C-S ))KN )@@G@@H(>H(\IL9^[-G-=IL>IT3G(3^[!GD9^[+G*)IT0G(G))G((I-*G(2^[-GL3H9?I(4KO )@@G@@G(?JC)@M@@@@^@*A@4A@0A@6 C)H92^[(H0)G(?G(!G(,I)!IL>H--I-(I1>^[&H92H*) [OKP )@@G@@C(NE),AK:A@( 0)^[DH0)I-*G*)GT-IT>^[\G0)I-*G*)^@)@L@@@@^[?GD4I->IK)G1\IL!KQ )@@G@@ ))I-*G*)GD=G-2G(3IS)H(-JC)GL>^[(H1=G(8G(=^@*G*,G8, ))D([DDI 00 S0AC0 -SKR )@@G@@AS( ))HD,^@)@L@@@@^[7H[(GT*^[^[H14IS)H9&^[4H[>^[3I[>KS )@@G@@GT(G1(G(=^[(H1=G(8^[2G($HD3I->IK)I9*G(,^[^F@)^@)@K@@@@^[>H14G(2G(=^[#H9,KT )@@G@@I-2H9?^[HH9=G*)I9(H-?^[+G*)GD=G->G))I-\^[4H[>^[3I[>GT(G1(G(=^[-G-=IL>IT3KU )@@G@@^[4H8)@D@@@@^[=G(4G(2H((H1>^[4H[>^[>G1&G(^[-G-=IL>IT3 0)^@)@]@@@@KV )@@G@@ETKCD#C*)^@)@L@@@@^@)^@)^[MG($HD3I->IL3^[!GD9^[-H-3H8)GL>^[>J[-H((H1>G),KW )@@G@@^@)E-\^[3G(>^[4H[>^[MC([C)=^[3I--I-5IS)I9\IL=BK)@]@@@@ETKCD#C*)^@)@]@@@@KX )@@G@@C1SC1JELH^@)@[@@@@^@"GC0@ @@@@^[[A@)^@)A@0A@0A@0 )0A@0A@0AC)@[@@@@^@"^@)KY )@@G@@@[@@@@C(IC))@]@@@@ETKCD#C*)^@)@M@@@@^@)^@)^[OH[>^[H14IS)H9&^[-H0)KZ )@@G@@G(,I-(IL>^[+H-\GT:^[\G0)H(>H(\IL9^[\IK)GC)G92H95I@)H9&^[2G($HD3I->IL3^@)LA )@@G@@@K@@@@^[!GD9^[+G*)IL>ID5G(3I->G))HD,^[-^[3HD,G9?G*)GT\H(!GD,G),^@)E-\^[6LB )@@G@@HD>I8)I-*G*)G(,I-(IL>^[MC([C)=@]@@@@^[+I(&G1>IK'@]@@@@ETKCD#C*)^@)@]@@@@LC )@@G@@C1SC1JELH^@)@]@@@@^@" 0)AK8^@)@M@@@@^@0A)0A@0A0)A@0A@0A@)^@0A80A01AC?A85LD )@@G@@A@5A@5^@0A@0A@0A@?A@0A@0A@0^@0A@0A@0A@?A@0A@0A@0^@0A@0A@0A@?A@0A@0A@0^@)LE )@@G@@@F@@@@^@0A)0A@1AK)A@0A@0A))^@0AS0^[RD9MC-N^[JC0)A@0A@0A@0 )0A@0A@0A@)^@)LF )@@G@@@[@@@@^@"^@)@[@@@@C(IC))@]@@@@ETKCD#C*)^@)@L@@@@^[DH0)I-*HD3^[>J[-H(0H->LG )@@G@@^[4H[>^@+AK8^K)HD3^[-^[7H92G))GT\I(,I),^@)E-*G*)^K,^K)HD3^[4H[>^[-G-=IL>LH )@@G@@IT3^@)@M@@@@^[3I[>GT(G1(GT-I-(H9, 0)^[^F@)I[>IL!HD4IS)H15H(>IL\I(3^[-GL+LI )@@G@@IL>I1(GD4HD\H13^[(H0)G(?G(!G(,I)!IL>H--I-(I1>^@)@M@@@@^[-G-=IL>IT3G(3 0)LJ )@@G@@^[DG0)I-*G*)H9&G13G(4^[(IS)H1\I))IT0G(G)?^[(I))HD3^[-IT3I(!G(=^[4LK )@@G@@H8)GL>^['G(2H8,^@)@L@@@@^@*E- ETO 02^@.^[OC(NE),AK:A@) 0(^@)C15IL4H[>IK?LL )@@G@@^[(G0)I-*G*)H-\GT-I-(H9,^[G)?@K@@@@^[(I))HD3^[-LM )@@G@@IT3I(!G(=^[4H8)GL>^[4H[>^[3GD!G*)GD3^[4H[-I))G9(I1>H0)HD,^[4H[>^[?GD3I))LN )@@G@@I[2G(6HD\I(3@M@@@@^[-G-=IL>IT3^[3I[>GT(G1(G(= 0)^[OH[>^[3GD!G*)GD0I[?HD>LO )@@G@@IS)G1\IK)I-*G*)G(?G(!G(,I))H1-H(> 0)^@*E-*I(3 ))HD,^@)@K@@@@^[4H[>^[J[4^[\G0)I-*G*)IT5GT^[>J[-H(0H->IS)GD+H96G*?^@,^@.^[OC(NE),LQ )@@G@@AK:A@) 0(^@)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[DH0)GC)IT(H((H--IK)H(-H1,G(2LR )@@G@@^[4H[>^[KCTO^[-H1=^[4H[>^[KETM ))H92^[-^[0GD2I-(GT5H--IK)GL(I))H9&@B@@@@LS )@@G@@^[4H[>^[KETM^[!GD9^[+G*)G(8GD!HD,G(=BK)^@)@]@@@@ETKCD#C*)^@)@]@@@@C1SC1JLT )@@G@@ELH^@)@#@@@@^@"I[^[3G(-ILG))G1\IK)I-*G*)H9^[\G0)GC)IT0G(G))I9\IL=^@)@L@@@@^[6GD?I(> 0)^[AH92^[>J[-H(0H-> ))I9>^[GD2GD,GT>@M@@@@^[\G0)I-*G*)LZ )@@G@@HD,IT4IL5GT4HD\H0)C(M^[MC([C)= 0)^[OH[(IS)HD3^[=H9,G*)GL9^[5IT(H1$^[4H[>MA )@@G@@^[ADDIC))GT\H(!GD,G)?^@)@J@@@@^[3I[>GT(G19HD,G8)I9*G(2G*)I-\^[3I--IL4^[3MB )@@G@@G(-ILH14H-9^[>J[^[7H92G))GT\I(,I))I9(MH )@@G@@H-?^[+G*)G(8I[?GD(H1>G))H--I->IK, C)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[[^[3MI )@@G@@G(-ILGD2GT* 0)^@)@]@@@@ETKCD#MK )@@G@@C*)^@)@L@@@@^@)^@)^[[^[,H94 (5H1*G(-IL= (\G0)IT(I-5GD4HD\H0)HD3^[7H[>H0)ML )@@G@@H9,G*)H(5IT4^[=G(+I($^[-^[0IL\G92GD!^[&H92@K@@@@^[7H[(GT*^[,H8)GT\H-?G(GD=HD?JC)GD6GD(H--GL?G*,^@)E-*HD3^[(IS)H1\^@)MN )@@G@@@K@@@@^[(H(0G(=HD!G(,I))I9*HD?G*)I(3HD,G8)C-S 0)^[OH8)I1(G(7^[4H[>^@*G(3MO )@@G@@IT>H14HD-H-?JC)I-2HD6HD-H)(^@)@M@@@@^[GT4HD\H0)IL>IT5H-4IS)G1\IK)MP )@@G@@GL\I-*^[D *)GD,G))C)!GL-H1:IS)H9&^[\I(2^[3GD!I[?G*)I[2H9$IL-H*?^[\H1>^@)MQ )@@G@@@A@@@@^[!GD9^[$HD6G*)I-*G*)GT\H(!GD,G))^@)@]@@@@ETKCD#C*)^@)@]@@@@C1SC1JMR )@@G@@ELH^@)@]@@@@^@"H(-I@)HD=@D@@@@^[D (]CDIDS)^-DCL[D1F^[VA-X^@*A@0AC0A@0 *0MS )@@G@@A@1A87A8(^@)@A@@@@^[OC(NE))^@)^@)^@)^@)A@1^@)A@0AC0A@0@A@@@@^@1ETO^[PD1PMT )@@G@@ET C))CD^C-MBK)A@0AC0AC0@D@@@@^[^ (]CDIDS)^-^CL[D1F^[VA(X^@*A@4A@0A@0 *0MU )@@G@@A)0A87A8(^@)@A@@@@^[OC(NE))^@)^@)^@)^@)A@0^@)A@4A@0A@0@A@@@@^@)^@)^@)^@)MV )@@G@@^@)^@)^@)A@2^@)A@4A@0A@6@A@@@@^@1ETO^[PD1PET C))CD^C-MBK)A@4A@0A)2@A@@@@MW )@@G@@^[KELJC9MCDH^[NE-[ELOES)CDO^@0AC0A@0@[@@@@^@"^@)@[@@@@C(IC))@]@@@@ETKCD#MX )@@G@@C*)^@)@L@@@@^@)^@)^[OH[>IT>^[=GD4GC)G->IL(I1> ))H9&^[IS)I-*GD4^@)@L@@@@^[&H92H*)I[-IL4^[\G0)I-*MZ )@@G@@G*)GD+IT\H-5I->^[>H->H(>H14 0)^[ H14IL(G(3^[(H0)I-*G*)G(?G(!G(,I)$IS)C(,NA )@@G@@I-2JC)@M@@@@^[KH9(H14^[IGD!G*)I--GL?G*)GD,G))CD+IT\H-5I->^[QGD?I(>^[IGD!NB )@@G@@G*)I--GL?G*)H(-JC)GD?IT\^[+G*)HD,IT0G(G))^@)@H@@@@^[&H92^[6GD?I(>^[5NC )@@G@@IT(H1$^[4H[>^[ D1OELT^[-H1=^[[CLNE1[D-PC*)GT\H(!GD,G-3 0)^@)@M@@@@^@)^@)ND )@@G@@^[OH[>^[>J[-H(0H->IS)GD+H96G*)IT*H97^[*H97^[-H0)GD2GL(I-2GD2HD?JC)GT*H93NE )@@G@@G(,^[0IL\G92GD!^[J[>GT5I->G))I(,G->IK)C-S^[-H1=^[4NF )@@G@@H[>H0)IT5GL%G(G))I-\^[-^[3G(?G(^[0H93I)!H(\IL4G(!@M@@@@^[-H1-NG )@@G@@H-9IT(IS,^@)E-*G*)I->IL!^@+I[\IT4 (!H92I->H*+^[(IS)GD^[3HD,GT>^[4H[>^@)@L@@@@^[0IL\G92GD!^[\H1?JC)GD0I[>GD2IS)I-\NI )@@G@@^[+G*)G->GD= ))GD3^[&I(2I-*G(2^[=HD3GT5IT3HD\H0)I9(H-?^[2G(6G(-H),@]@@@@NJ )@@G@@ETKCD#C*)AK)@F@@@@ALK (MG($HD3I->IK)CL2G(-HT0H9(H14IS)GD,G))D90G(2GD,G))NK )@@G@@E-2GD0IS)^@)@M@@@@^@)^@)^[RH[>H0)G->GL5G9$HD,G8)GC)I[2H9$IL-H*)H9,G*)G12NL )@@G@@G(1I(>H14H-9^[(IS)H(\IL>^[(H14G(2G(3I->G))HD,^[4H[>^@)@L@@@@^[IL3^[-H1=^[!G(!H92JC)GT\H14G(,I-3NN )@@G@@ C)GD4^[3H9!G*)^@)@L@@@@^[0H9(H14^[(H0)I-*G*)I[2H9$IL-H*)H94H[>IK)I-*GD,NO )@@G@@^[(I-3^[&HD,GD?^[>J[(I),^@)C-S^[0IL\I1(G->IS)I-*G*)^@)@L@@@@^[-GL(H-(I-9NP )@@G@@^[4H8)IT0G(IT3^[3I(H0)NQ )@@G@@GD,G))HD&^[4H[>^@)@K@@@@^[K (2G($HD3I->IK) [0IL\G92GD!^[IS)I-*GD4^[6GD?I(> ))EL5H0)D(\G->^[(IS)^@)@M@@@@^[4G(2H((H1-I->G))NS )@@G@@GD,G))CT\H14IL\H))D(\G->^[>H14G(2G(= 0)^[OH[(IS)HD3^[-GTG))NT )@@G@@GL9^[GT-H-?HD,G8)NU )@@G@@I-*G*)IT-H(0H->^[0IL\G92GD!^[=G(3GT2HD+G(=^[-GL\I1> ))@M@@@@^[3I(0I[\IT>NV )@@G@@^[\H1>^[7HD3H[>G))I-\^[>H14G(2^[G-(GD4G(?JC)GD&NW )@@G@@I->IK)G(8G(^[OC*)HD,IT4IL5GT4HD\H0)GD4^[OC(NE),NX )@@G@@AC:A*'@]@@@@ETKCD#C*)^@)@]@@@@C1SC1JELH^@)@#@@@@^[@G-8 -+^[4G(3I))@]@@@@NY )@@G@@^[^F@)AK,A0)@C@@@@^[KC9H^[NE-[ELOES)CDO^@0AC0A@0^@*E- ETO 01 S0 C,@ @@@@NZ )@@G@@^[]ELF^[[C-^EK'^[4G(3I),AC:A*)@ @@@@^@*C-S^[DD0)ELPD0)D(JC- 0(^@)@^@@@@OA )@@G@@^[CD9R^[[EL ^[OD[DD1BES_@]@@@@^[$H9\G),^@)@E@@@@^[]ELFBK)E- ETO 01 S5^@/OB )@@G@@E- ^[[AC? 00 S5B0)^[IC(SE)'^@, S7^@)@[@@@@^@"^@)@[@@@@C(IC))@]@@@@ETKCD#OC )@@G@@C*)^@)@L@@@@^@)^@)^[IH97^[^F@)HD3^[(H0)GT\H14IL\H))H(\G->^[-H1=^[4H[>^[>OD )@@G@@J[>GT5I-(H9,^[>H16HD2H9,H(>H14^[GT4G(=^[(H0)I-*OE )@@G@@G*)H(-H1,G(2^[=G(3GT2HD+G(=^[>GD2H-(G(2 0)^[IH94G*)I-*GD4^[4H[>^[?GD3I))OF )@@G@@@L@@@@^[(H13I-2I(J[>GT5I->G))HD3^[=HD3I[?GD9G(=^[-H1= ))HD&^[(OG )@@G@@I))GL>^[-H0)HD,IT4IL5GT4HD\H0)I-*GD4@K@@@@^[!H9=HD&HD>IS)I-*G*)E@!IL>G9(OH )@@G@@IT4G(2 ))I-*HD3^[(IS)GD?IT\^[(H1=HD^[2G(JD+H9-IL=^[+IL>OJ )@@G@@GD:^@*C[@F@)CS(^[7HD?H))IT(H((H--IL?JC)GT-I(3G*)C-S^@)@A@@@@^[4H8)G(,I->OK )@@G@@IK)CT\H14IL\H))D(\G-> 0)@]@@@@ETKCD#C*)^@)@K@@@@^@)^@)^[[^[3HD4I(-I-(H9,OL )@@G@@^[4H[-I))H(\IT4^[\G0)I(3^[*GD6G*)G(8I[>IL(G(,GT>G))GD4^[\H1>^[4HD!G*)H92OM )@@G@@@K@@@@^[-H1\I-*G(2^[(IS)I-*GD4^[7H[>IL>^[4H[>^[H14IS)H9&^[3H9!G*)ON )@@G@@H(>H(\IL9^[?H9J[0G(G-?JC)GD,G))G(2IL\H1>OO )@@G@@H95IT?JC)GD?I->IL>G)?^[4H[>^[5H-4HD!GD4G*)IL>IT5H-4^[0G(2H[-I[3^@)@L@@@@OP )@@G@@^[+G((H1$^[DC9^D*)H92^[DD9KEK,^@)E[\IT4 (!H92I->H*)GD,GD?JD3HD3^[\G14G(,OQ )@@G@@^[\G1&G(2IS)GD4^[+G(3I))H9,H-9@K@@@@^[4H[>^[&GD(H14G(3I))H9&^[@K@@@@^[&GDIL-I-(H9,IS)HD,^[4H[>^[3G(,OT )@@G@@IT>^[4H[-I))HD&^[-@L@@@@^[3I[>GT(G1(G(=^[-G-=IL>IT3^[\IK)IL-H1$G*)H9&^[-OU )@@G@@G-=IL>IT3G(3^[(IS)G(6G(2^[5IT>G))GD3^[-H0)H90G(2GD,G)?@L@@@@^[MI(,^[HH9=OV )@@G@@G*)I9(H-?^[+G*)HD!H(>G-(GD4G(?JC)I->IL!HD,GD4G(=^[-H1=^[#H9,I-2H9?^[HH9=OW )@@G@@G*)G(,I->IL>G),^@)@L@@@@^[JI[>IL-H1=^[4IL-I[0HD,G8)GT-H0)GL>^[2G(3I-2HDG))I-\^[\H1?JC)H(>H(\IL9^[2G(-G-3^[\IK)H(>H(\IL9^@)@L@@@@^[7IL(I->IS?OY )@@G@@^[(G0)G->IT(IL>G),^@) [OH[>^[\I[>IL-H1=^[4IL-I@)H(-HT>IS)I(3G*)H9&^[4H[>OZ )@@G@@^[*GD2G-7GD2G*)^@)@L@@@@^[+IL>GD:I[\HD,I))IL>G9(IT4G(2^[0IL>IT>H14^[(H0)PA )@@G@@I-*G*)AC1AC0 ))AC1A@0 84A@)GD,G))AC1A@0 88A@)GD,G)?^@)@L@@@@^[4H[>IL>G1\PB )@@G@@IL> ))HD3^[,H94^[-I1-HD?GD+H->^[\H0)H94H[>IK)H(-GT*HD,G(3^[(H0)I-*G*)AC1PC )@@G@@A@0^[3G(2HD>IS, C)@]@@@@ETKCD#C*)AK)@A@@@@ALMG(4I(2H1(H1$^[4H8)EL5H0)D(\PD )@@G@@G->^@)@M@@@@^@)^@)^[RG*)H[-I1>^[3G(>H0)I-*GD4^[^F@)CT\H14IL\H))D(\G->^[(PE )@@G@@IS)G(,I->IL>G))I9*G(,G(6G(2^[4H[>^[0IL\G92GD!^@)@K@@@@^[5H1=G(2^[4G(3I))PF )@@G@@I->IL!HD,GD4G(3^@*G((I-*G(2^[,H92H(-H-?JC)H92^[(H0)G(2IL\IK(^[\IK)I9*G(,PG )@@G@@^[-^@)@M@@@@^[K (2G($HD3I->IK)GL2G(-HT0H9(H14^[\IK)H90G(2GD,G))I-2GD0^[(PH )@@G@@IS)G(,GT\I(,I->IL>G),^@)DD,^[4H[>^[&H92H(>IK)^@)@L@@@@^[^[KPI )@@G@@ (2G($HD3I->IK)GT\H14G(,I-3^[(IS)H1\^[?H9,G9>IK)G->G1(H1>G),^@)DD,^[4H[>PJ )@@G@@^[?GD4I->IK)@K@@@@^[^[2G(3PK )@@G@@I(!G(=^@*EL5H0)D(\G->^[2G(>H14G(2G(= C)GL9@A@@@@^[$HD6HD,G8)I-*G*)C9J^[^[3I-(H-?^[(H0)CT\H14PM )@@G@@IL\H))D(\G-> ))H(\IL>^[+IL>GD:I[\HD,I-3^[I)) [5I@)I-\@M@@@@PN )@@G@@^@1A0)GL2G(-HT0H9(H14^[-G-=IL>IT3G(3^[!GD9^[+G*)IL>G9(IT4G(2G(=^[-I))GD,PO )@@G@@JC)H9,G*)I-(H(> C)GD,G)\H92^[-H0)^@)@L@@@@^[\I[>IL-H1=^[4IL-I@)IT>I)) [(PP )@@G@@G0)I-*G*)H[-IL=I9-IL>^[(IS)GD6GD(H--GL?G*( 0)^[[G-=HD4HD\H1-H-?JC?^[4H[>PQ )@@G@@@L@@@@^[BD8)GT\H(!GD,G))H(-JC)IT0G(IT3^@*^LBD8)GD=G-2PR )@@G@@^K( 0)^[DH0)I-*HD3^[G(,I->PS )@@G@@IL>G)?^[+I(4^[#H9,I-2H9?^[HH9=G*)IL>I-5IL,G(=^[4H8)I9*G(,^[-H1=^[(G0)I-*PT )@@G@@G*)^@)@I@@@@^[K (2G($HD3I->IK)GT\H14G(,I-3^[(IS)G(1I(-H))I-\^[4H[>^[3I[>PU )@@G@@GT(G1(G(=^[-G-=IL>IT3 0)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[ I1>H0)HD&^[4H[>PV )@@G@@^[0IL\G92GD!^[*GD3^[4G(2H((H1-I->G)?^[4H[>^[K (2G($HD3I->IK)GT\H14G(,I-3PW )@@G@@^[!GD9@L@@@@^[+G*)G->G1(H1>G))I(3HD,G8)I-*G*)GT\H(!GD,G))^LKC9HCTOEK)GD=PX )@@G@@G-2^K,^@)CC)IT5GL3G(1I(>H14^[BD8)I9(H-?^@)@L@@@@^[^[>J[>GT5I-(H9,PY )@@G@@^[4H8)IL>IT5H(>^[-I))I-*G*)IT0G(G))GD=G-2G(3IS,^@)CD?I->IL,GD4HD6PZ )@@G@@G(?JC?@M@@@@^[\H1>^[!GD9^[5IT>^[4H[>^[IT5H(>^[>J[>GT5I-(H9,^[2G($GD2G-?G(3IS)H9&^@)@E@@@@^[4H[>^[2G(-IT\H0)QB )@@G@@CT\H14IL\H))D(\G->^[7GD3^[>H14G(2G(= 0)^@)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)QC )@@G@@^[QG(2JC)G12G(1I(>H14H-9^[\H1>^[7HD3H[>IS)I-\^[!H9,HD4H92^[\H0)GD,^[(H13QD )@@G@@I-2I(^[0IL\G92G(3QE )@@G@@IS)H9&^[>J[>GT5I-(H9, 0)^[OH[(IS)H(-JC)GL>^[-GTG))^@)@M@@@@QF )@@G@@^[5IT(H1$^[4H[>^[NE- E@)GT\H(!GD,G),^@)C9(I1(H1$^[4H[>^[G9(IT4G(2^[+G((H1$^[(H1H(>H14QI )@@G@@G(=^@)@L@@@@^[-I[0IL\I[2HD-I->H-9^@*H92^[-G-%I(3I->G)?^[(H0)I-*G*)GT-IT>QJ )@@G@@^[\G0)GC)HL5H(0^[\IK)IT:HD0 C,^@)E9*HD?G*)@L@@@@^[3I->I[0HD,G8?^[>GDG))HD,^[-^[&GD3H[(H9,^[3HD!QL )@@G@@HD?GD2@K@@@@^[4H8)GL2G(-HT0H9(H14^[\GTH1I[\IL4IS)GD3^[3H[\QM )@@G@@I9,^[(H0)I-*G*)G(8GD!I[?G*)GD+H96G*,@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[[IS)QN )@@G@@GD,^[>J[-H(0H-> ))H->I))I(3^[3I--IL4^[3I->I[0HD,G8)I-*IL\I($H@)H95IK)IT-QO )@@G@@H(0H->^[0IL\G92GD!@A@@@@^[3I--IL4HD,G8)GD4^[?H9IS) [(H13I->GD=^[\G0)GC)IT(H1$H->^[ C?^[\H1>^@)QZ )@@G@@@C@@@@^[!GD9^[5IT>^[4H[>^[^[2G(!GD2HT>G))I-*GD4^[\H1?JC)I9*HD?G*)GT-IL2RB )@@G@@JD(H1$^[\I(4^[4H[>^[NE- E@)GT\H(!GD,G))^@)@L@@@@^[=H9>IS)C-S^[>J[>GT5I->RC )@@G@@^[4H[>^[0IL\G92GD!^[5H1=G(2^[4G(3I))HD,I->IL0IL>I-(I1>H-9 ))I-*HD3^[+G((RD )@@G@@H1$^@)@K@@@@^[,G(I--HD,^[G9(IT4G(2^[>I1>H0)HD&^[4H[>@B@@@@^[0IL\G92GD!^[>J[>GT5I->IS)GC)RF )@@G@@HL5H(0 0)^@)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[NH[\I(?G))H9,G*)I9(IT*^[4H8)RG )@@G@@GL>G9(H0)IT4G(0I[(H1$^[-I))I-*G*)I1>IL9^[+G($HD,H1(H1$^[\G0)GC)^@)@L@@@@RH )@@G@@^[0IL\G92GD! ))C-S^[3H[\I(?G))GL>^[G))I9(I-*^[-H0)D0!H90I-(H9, 0)RI )@@G@@^[DH0)I-*HD3^[^[-GL3H9?I(4G*)G(?G(!G(,I))HD3RJ )@@G@@^[?H9-G->G)?^[#H9,I-2H9?^[HH9=G*)HD3^[>H14G(2G(=^[(H(!G(=HD-I->H-9 0)^@)RK )@@G@@@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[[H1\I-*G(2^[(H(0H92I--H14^[^F@)H90I-(H9,RL )@@G@@ ))I-*G*)E@!H90I-(H9, ))GT-I(3G(3^[4H[>^[0IL\G92GD!^@)@L@@@@^[5H1=G(2^[4RM )@@G@@G(3I))I-\^[+G*)GT-H-?G(=^[-IS)GC)I[2H9@L@@@@^[(IS)G1\IL!G(= 0)^[DH0)I-*HD3^[GD3H9,IS?^[,H94@L@@@@^[4H8)G(,I->RP )@@G@@IK)CT\H14IL\H))D(\G->^[5H14HD?^[-G14G(2^[4H[>^[DD1AD9M^[4GD+H->^[*GD3^[+RQ )@@G@@G(>H0)IL>GD= 0)^@)@]@@@@ETKCD#C*)AK)@D@@@@AL#H[-H1$HD,G8)I-*G*)C(8G(^[(H0)GT\H14IL\H))H(\G-> ))RS )@@G@@GT\H14G(,I-3^[\G0)H(>H(\IL9^[\IK)IL>G9(IT4G(2IS)HD3^[>GD3HD?JC)^@)@L@@@@RT )@@G@@^[J[-H(0H-> ))I-\^[IT4^[3I-2HD,RU )@@G@@G8)I(3G(=^[-I))H-\GT-I-(H9,^@5@A@@@@^[\G0)H95IK)I->IT4^[0IL\G92GD!BK)^@)RV )@@G@@@]@@@@ETKCD#C*)^@)@]@@@@C1SC1JELH^@)@A@@@@^@"GT*GD,G9>^[4G(3I),A@:A*)G1=RW )@@G@@GC)^@)@B@@@@^@0A)0A@0A*)A@0A@0A*)C9JD9^ 0)B0$GL-G),^@)@[@@@@C(IC))@]@@@@RX )@@G@@ETKCD#C*)^@)@L@@@@^[OH[>^[!HD3IT(H1$^[4IL-HD?HD,G8)GD0H93I-2H90H[>^[(H0)RY )@@G@@I-*G*)IL>I[?GDG14 (%I(3I-(G1(G(=^[-H1=^[3I[-GT> (&HD?H->G),^@)SA )@@G@@E9>IL>^[4H[>@L@@@@^[-I[\IT4IL\I[*G*)I[2G(3G(,I)?^[4H[>^[3I-2HD,G8)I9\I(?SB )@@G@@G))H[-I1>^[+G(>H0)IL(G9*I)!HL5IT4HD&HD>G))GD,G))@L@@@@^['G(2H8!G1(H-?G(=SC )@@G@@ 0)^[[ET#DDD^[3I-2HD,G93^[!GD9^[-H-3H8)GL>^[>H14G(2G(=^[+JC)I(3HD,G8)ID5SD )@@G@@H94GD4HD\H0)@C@@@@^[!GD2HT3^[(H13I->GD=^[\G0)GD0H93I-2H90H[>IS,^@)@]@@@@SE )@@G@@ETKCD#C*)^@)@M@@@@^@)^@)^@3A0!GL(I))HD,I[5I))I1-H-5G(3 ))IT5GT*^[-IS)I-*SF )@@G@@G*)H9,G(3^[3H9?HDIL>G))HD,^[-^[6GD2HD>I-9^[\G0)G1\IL!GD4IS)GD3SH )@@G@@HD=G*)G12H9!^[4H[>@L@@@@^[AHD>H-=GD4GC)GD,G))CDNCTDDC)H9,G(3^[=G(3GT2HD+SI )@@G@@G(=^[-GL\I1> 0)^[DH14G($G(2^[\GT4GD?^[\IK)G->GT(H(-H)?@L@@@@^[3HD,G9?G*!SJ )@@G@@I[2G(I[4GD+H-> 0)^@)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)SM )@@G@@^[MG($HD3I->IK)GT\H14G(,I-3^[!GD9^[+G*)GD?I->IL>G))IT(H((H--IL?JC,^@)E[#SN )@@G@@E))GT\H14G(,I-3 ))H9&^@)@M@@@@^[^[=HD2G(IL>G))GL9^[4H[>^[5IT>IK,^@)E[NEK)GT\H14G(,I-3^[!GD9^[+G*)^@)@M@@@@SP )@@G@@^[^[&SQ )@@G@@I(?H-9^[=G(3GT2HD+G(=^[?GD4G(2BK)^@)@]@@@@ETKCD#C*)^@)@ @@@@^@"G(8G(IL>^[4H[>^[,I(!GL>IK)H1,SS )@@G@@H0)IT0G(IS)I-*G*)IL>ID5HD2G(=^[+HD4^[3G(4I-(H1$ 0)^@)@]@@@@ETKCD#ST )@@G@@C*)AK)@C@@@@ALJI-*G(2^[AG(-I-5IL>IS)GD,G))CT\H16G(,HD>H1H1>IL-H))IL>H(-IL: ))HD4^[H14HD\H1>G))I-*GD4^[-SV )@@G@@H-?^[^F@)CT\H14IL\H))D(\G->^@)@L@@@@^[^[-GL+IL>I1(SW )@@G@@GD4G(=^[4H8)I-*G((IK)G1(IL3I))I-7H8)H->I-4G(2IS)HD&^[=G(3HD2G(= 0)@M@@@@SX )@@G@@^[DH1=G(>G)?^[4H[>^[!H93I))G12G(1I(>H14H-9^[5IT>G))GT\H(!GD,G-3^[!GD9^[+SY )@@G@@G*)GD+GL2G(6HD-I->G))I-\^[4H[>HD2^@)@M@@@@^[&HD2IT4^[?G(4I->IK,^@)DD,GD3SZ )@@G@@H(5GT*^[-IS)G(8I[>IL(G(,GT>^[*GD3^[3H[\I9,^[4H[-I))^LNE- E@)AC+^[(IS)I-*TA )@@G@@G*)^@)@M@@@@^[3HD,G9?G*)H(\IT4^[&IL>ID5G(,I-?JC)I(3G(=^[H0)I-\^[*GD6G*)I-*HD3^[!G(-H1(H1$ 0)^[OH[>^[^C(ACDPD-O^[G))I-\^[2G(=G(&HD,G*)I-*G*)H(>GD,HD,G8)H9&^[-^[6TE )@@G@@H9(G))GT\H(!GD,G))HD&^[4H[>^[5IT>IK)I9(IT*G(3 0)@]@@@@ETKCD#C*)^@)@L@@@@TF )@@G@@^@)^@)^[NHD4I(-I-(H9,IS)IT\H(>I-(H(>IS)GD2HD3G*)I9*G(2G*)H9,G*)I9(IT*G(3TG )@@G@@^[4H8)HD,I1\HT>^[4H[>^[3GD!G*)@M@@@@^[3G(1I(>H1TH )@@G@@I[>GD4G(=H-9 0)^[AH92^[>J[-H(0H-> ))HD,^[=G(+I($G9(H1$^[-^[0IL\G92GD!^@)TI )@@G@@@M@@@@^[?H9\I@?^[\H1>^[!GD9^[7HD3H@)I-\^[6HD>I8)I-*G*)GT\H14G(,I-3^[\G0)TJ )@@G@@CC3 ([A*)GD,G))H9&^[GD^[!GD9^[0IL>I[-IL>^[-^@+GT-H1,G(=^K)TM )@@G@@GT\H(!GD,G))H-(IT4^[5IT(H1$^[4H[>^[#D(GDDNE))^@)@#@@@@^[^[>J[>GT5I->IS)I-*G*)I[2H9$IL-H*)I(,G->IK)C-S ))IT>I-4HD,G8)GC)TR )@@G@@GL2G(-HT0H9(H14^[-I))^@)@M@@@@^[HCDDD0,AC:A@4A*5 0)^[RH[>H0)I-*G*)GL2G(-TS )@@G@@HT0H9(H14^[(IS)G(,GT\I(,I->IL>G)?^[4H[>^[G))GT\H(!GD,G))^@)@H@@@@TT )@@G@@^[?HD3I))H(-JC)GL>^[(H16H9:G(=^[+JC)G9(I1(H1$^[4H[>^[SCTHD-DETO^[I))H(-HD, 01 S0A)5A*)^@)TX )@@G@@@[@@@@^@"J@)@G@@@@^[]ELFBK)D([DDI 01 S0A)5A*)B-EC9^^[[A*? 0:A@4A@4B0)^[ITY )@@G@@C(SE)'^@, S0A)0A))@ @@@@^[[AS)^@)^@,AC4A*9A@0A@0 S0A@)@D@@@@^[[A))^@)AC4TZ )@@G@@AS0A07 )3AC3A86A0)A@0A@0A@0 )0A@0A@0AC)^@)@]@@@@^[HCDDD0,AK)@B@@@@^@0A)0UA )@@G@@A@2AK)A@0A@2A@)^@) 01A@0A@0A@0A@:A@0@[@@@@^@"J@)@F@@@@^[]ELFBK) 0:A@4A*5UB )@@G@@^@/DLBC))CC5 ), S0A)0A)"^@)D1 F[OBK) 0:A@4A@4^@)@ @@@@^[[AS)^@)^@,AC4A*9UC )@@G@@A@0A@0 S0A@)@D@@@@^[[A))^@)AC4AS0A@0 )0A@0A@0A@)A@0A@0A@0 )0A@0A@0A@)^@)UD )@@G@@@]@@@@^[HCDDD0,AK)@B@@@@^@0A)0A@2AS)A@0A@2AC)^@) 01A@0A@0A@0A@:A@1@[@@@@UE )@@G@@^@"J@)@B@@@@^[]ELFBK) 0:A@4A*5^@/DLBC))CC5 ), S0A)0A)"@ @@@@^[[AS)^@)^@,UF )@@G@@AC4A*9A@0A@0 S0AC)@D@@@@^[[A))^@)AC4A04A@0 )0A@0A@0A@)A87A87A87 )7A87A87UG )@@G@@A0)^@)@]@@@@^[HCDDD0,AK)@B@@@@^@0A)0A@2A))A@0A@2AK)^@) 01A@0A@0A@0A@:A@2UH )@@G@@@[@@@@^@"^@)@[@@@@C(IC))@]@@@@ETKCD#C*)^@)@M@@@@^@)^@)^[DH1-IT!I(IT>^[G))GT\H(!GD,G))H-(IT4IS)GD2G*)I92HD4I->H0)HD,I-\^[4G(!UJ )@@G@@I[\IL-IL9^@)@L@@@@^[=GD4GC)G1(H->IS)GL9^[^F@?^[4H[>JC)I9(H-?^[>J[(IT4^[&UK )@@G@@H92^[4H[>^[=I(2GD4HD\H0)H9&^[4H[>^[2I(, 0)^[DH0)@L@@@@^[&GD^[>UM )@@G@@GDH0)GC)H1-H(> 0)^[HH92G(\I1>IK?^[(G0)UN )@@G@@H9,G*)I9(IT*G(3 ))H9,G*)GT-H0)GT2G(-I->^[4H[>IT>@F@@@@^[?HD3I-3^[5IT(H1$UO )@@G@@^[4H[>^[4G(8I))G(=HD4H92^[(H13I->GD=^[\G0)C-S 0)@]@@@@ETKCD#C*)^@)@]@@@@UP )@@G@@ETKCD#C*)^@)@L@@@@^@)^@)^[KIL(H14^[\I(4I[5I))IT5I[0IL>IT3HD\H0)HD3^[-H1\UQ )@@G@@I-*G(2^[&G(-I-5IL>^[\G0)C-S^[4H[-I))H(-JC)GL>^@)@L@@@@^[\I[4HD\H1-H-?JC)UR )@@G@@HD,I1\HT>G),^@)DD&^[4H[>^[0IL\G92GD!^[5H1=G(2^[4G(3I))HD3^[3I(@L@@@@^[6H9?I(!G*)H9&^[0IL(H14^[\I(4I[5I))HD3^[$G(,G(2GD4G(=UT )@@G@@^[+G(&H92G*)GD2IL(I1(H1$^[-I))I-*G*)I[-IL4^[\G0)@L@@@@^[4H[>^[0IL\G92GD!UU )@@G@@^[\G0)HD,I->IL>IT4 ))GT-H-?HD,G8)C-S^[7HD4H@)GC)EC!H90I-(H9,^[7HD?H))GT-UV )@@G@@I(3G*)I-*HD3@L@@@@^[\I(4I[5I))I-\^[+G*)IT5I[0IL>IT3G(= 0)^[JI(4I[5I))HD3UW )@@G@@^[2G(>H1-GL?G(=^[4H[>^[!H9!G(,I))C-S^[>H14G(2IS)@L@@@@^[#H9,I-2H9?^[HH9=UX )@@G@@G*,^@)CD?I->IL,GD4G(?JC?^[7H[(H->^[(H0)CT\H14IL\H))D(\G-> ))IT5GL3G(1I(>UY )@@G@@H14^[MI(,^@)@K@@@@^[HH9=G*)H95I-0I(4^[IT3G(=^[+JC)G9(UZ )@@G@@I1(H1$^[4H[>^[G))H95I-0I(4^[(IS)GDG))I-\^[-^[0IL(VB )@@G@@H14^[&HD?G*)^K=C-SE[MC0+@M@@@@^[7H[(GT*^[!GD9^[3I(+IT>ID5G(,I-?JC)GL>^[>VC )@@G@@J[-H((H1>G))I(3HD,G8)I-*G*)I->J[4^[>G-(I-\IK?^[(G0)G->IT(IL>G),^@)@]@@@@VD )@@G@@ETKCD#C*)^@)@L@@@@^@)^@)^[DH13I--H1H0)I-*G*)I(3G(2^[!VE )@@G@@GD9^[7HD3H@)I-\^[>J[>GT5I->^[-H0)GD2GL(I-2GD2JC)@L@@@@^[(H13I-2I(^[K (2G($HD3I->IK)HD3^[H14H-9@L@@@@^[0H9(H14HD,G8)H92 ))I[>IL*GD0IS?^[-H0)HD,IT4IL5GT4HD\VH )@@G@@H0)I-*GD4^[(IS)G1\I(,G))H1\I9*G(2G*)HD,^[4H[>^@)@A@@@@^[0IL\G92GD! 0)^[OVI )@@G@@H[>^[^[3I[>GT(G1(G(=^[-G-=IL>IT3^[4H8)GL>^[>J[>GT5I->G)?@ @@@@^[7H[(H->^[4VL )@@G@@H[>^[^[4H[>^[>J[0G(G))IL>IT5H-4 0)VN )@@G@@@]@@@@ETKCD#C*)AK)@^@@@@ADCD9R^[^F@)E9JELFES)^@)@K@@@@^@)^@)^[[IS)H(>H14VO )@@G@@HD\H1>G))G(-IL?HD>IK?^[4H[>^[@C-S^[0IL\GT>IT3H92^[GD4G(3^[-H0)GD+IT\VP )@@G@@H-5I->@L@@@@^[>H->H(>H14^[\G0)I9*HD^[>H->H(>H14^[4VQ )@@G@@H8)GL>^[4G(3I->G))G1\IL!IS)GC)I[-IL4 0)^@)@M@@@@^[OH[(IS)H1>I8)G(?G(!G(,VR )@@G@@I))G-(G1&G(2IS)G12H9!^[4H[>^[\IL(G9(H1-H))HD,^[3G(6G(2GD?^[(H(0H92I--H14VS )@@G@@^[7GD9IS,^@)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[AHD2IT4H-9 ))I-*G*)I[2H9$IL-VT )@@G@@H*$IS)H(-HD,^[D (+GD,HS)HD3^[>J[0GD,G->G))HD,^[3HD'G*)GL9^[\H1>^@)@L@@@@VU )@@G@@^[^[+GD,HS$IS)IT4GD2I))GD=G-2G(3VV )@@G@@IS)G-\I9,I9-IL=^[+JC)A@1A@0A@)@L@@@@^[7H92G-3 0)^[DH0)H(\IT4^[(H13I--H1^[,G(7^[>H->H(>H14 ))I-*G*)@K@@@@VX )@@G@@^[D (+GD,HS)I9(H-?^[3I--IL4^[-I))GD=G-2G(3IS)A@0A@0A@,^@)E-*HD3^[G))I-\@M@@@@^[IT(G->H14^[IS)GD,G))GD,JC)G--I--^[4H[-I))H(5IT4^[2G(!GD(H0)HD,I--GT4^[-WB )@@G@@IS)G(8G(G(,^[MI(,WC )@@G@@^[HH9=G*)GD,G))CT\H14IL\H))D(\G-> 0)@]@@@@ETKCD#C*)^@)@K@@@@^@)^@)^[ J[>WD )@@G@@GT5I-(H9,^[(H0)GL?H9H14HD-H))I[2H9+H->WE )@@G@@H(3^[3HD,GT>@L@@@@^[?H9^[(H0)H[(G-=G(,WF )@@G@@^[3I-\IL-G9> 0)^[OH[>IT>^[0IL\GL?G(!IS)GD2G*)^@)@L@@@@^[-I1\HD=G(=^[-IS)WG )@@G@@H-\H1$^[-IS)I-*G(3G*)A@2A@0^[?H9J[>WH )@@G@@GT5I-(I1>^@)@L@@@@^[2G(1I(>IT4IS?^[ND-E^[>H14IL9^[0H9(H14IS?^[D 9J^[+I(&WI )@@G@@G1>IL3^[,H92^[?H9-G))H92^[3I-\IL>^[\I[>IL-H1=IS,@]@@@@ETKCD#C*)^@)@M@@@@WJ )@@G@@^@)^@)^[OH[5IS)I-*G*)H1>I8)GD+IT\H-5I->^[0IL\G92GD!^93^[D (+GD,HS)GT\H13WK )@@G@@HD3I-3^[\G0)I-*HD3^[2G(3HD=G(,I))^@)@L@@@@^[^F@)GT\IL>^[+H-\GT:^@*H[>H1G))I-\^[-IS)EL ET]D-F C?^[&H9?H-\I9>G))GL9^[4H[>^@)WM )@@G@@@L@@@@^[\IL(G9(H1-H))DC!GL-H1:^[7HD4H@)HD4IS)IT4GD2I))GD=G-2G(3IS)I(,GT*WN )@@G@@GD,G9>G),^@)D1\^[H1^[0IL\G92GD!^93^[^ (+GD,HS)G1\IK)I-7H8)IL>GD3H9,IS,^@)C1(IL3I-?JC?WP )@@G@@@L@@@@^[(H0)H(-H19^[(H13I--H1IL>^[(IS)H1\^[-G-=IL>IT3^[3I[-GT>WQ )@@G@@^[+G(4I9>G(,^[-^[0IL\G92GD!^93^[D (_@L@@@@^[-H1=^[^ (+GD,HT3 0)^[NG(^[\G0)GC)IT>G9!G(,I->G))I[2H9$IL-H*?^[ F[ CS)^@)WS )@@G@@@L@@@@^[>J[0G(^[3G($H(>H14^[?H9-G))I--GL?G*)I-\^[+G*)GD4^[4H[>WT )@@G@@^[6G(2JC)GL>G9(H1,HD,G8)H9&^[4H[>^@)@K@@@@^[^ (+GD,HS) [,H8)H(-I-4G(2^[*WU )@@G@@H97^[*GD2G))JD\I*)H(-JC)I-2JC)I-\^[4G(?H))HD4^[\I-*G(2I9(IT>^[6HD-@F@@@@WV )@@G@@^[-H-4G(2GD4HD\H13^[4H8)I-*G*)I[2H9$IL-H*$IS)H[>GD=G(2^[4GD+H-> C,@]@@@@WW )@@G@@ETKCD#C*)^@)@L@@@@^@)^@)^[OH[>^[3G(^[+G(4WX )@@G@@I9>G(,^[4H[>^[\IL(G9(H1-H))GD,G))GT2G(-I->G))^@)@L@@@@^[-GL3H9?I(4G*)G(?WY )@@G@@G(!G(,I-3^[(IS)I-*GD4^[(H0)I-*G*)GT\I(2IT>^[\G0)GL5HD?G-(H1$^[4H[>^[?GD4WZ )@@G@@I->IK)G12H9!@M@@@@^[4H[>^[&H92H(>IK?^[ID5G(3I-3^[-IL>^[-H-4G(2G(= 0)^[DCDGD)=^93^@)@K@@@@^[-H1=^[#EL XB )@@G@@C8=^93^[-IL>^[2G(,G->IL>G))HD!I[\I->H14^[+JC)GL>HD,G8)IL>I[?GD^[IL4G(=^[4XD )@@G@@H8)C(MEK=^93^[7HD4H@)IT0G(GT\G9,HD4HD\H0)^@)@L@@@@^[GD:I[\XF )@@G@@HD,I))HD3^[4H8)GL>@L@@@@^[3G(4^@*C[^F@)GT-H-?G(=^[7HD4H@)GC)CK!H90I-(H9,XG )@@G@@ C?^[4H[>^[(H13I-2I(G))@M@@@@^[+IL>GD:^[-XH )@@G@@G-=IL>IT3^[(IS)IT-I1>G))HD,^[MC(NCLGDS)GD,G))IL>I[?GD^[(H0)I-*G*)CC!G1(G(?G),@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[AHD,GD?H-9XK )@@G@@ ))I-*G*)I[2H9$IL-H*$IS)IT4GD2I))GD=G-2G(3IS)HD3^[-H-4G(2G(=^[4H8)I[\HD,XL )@@G@@I))I-\^[-^@)@ @@@@^[?H9I8)GD+IT\H-5I->^[0IL\G92GD!^[0IL\G-5GT>G))GL9^[@C-S^[(XN )@@G@@IS)I92HD4I->H0)HD,I-\^[-@M@@@@^[4G(!I[\IL-IL9^[0IL\G92GD!^[&HD?G*)^-^F@)XO )@@G@@GD4^[4H[>^[3GD!G*)IT>GT4H92^[?H9^@)@J@@@@XP )@@G@@^[\IL(G9(H1-H))I[2H9$IL-H*,^@)CD?IT\^[(H13G(2I->G))HD,^@=C-S^[(IS)GC)IT\XQ )@@G@@I(2GT>^[>H->H(>H14@M@@@@^[^[(H(-G9>^@*GD,^[@XR )@@G@@F[LE))H92^[0IL\GT>IT3H92^[XS )@@G@@H0)C[[C-^G(= ))GT-I(3G(3^[4H[>^[,G(7^[0IL\G92GD!^[4H8)GL>^[?H9-G->G))GD,XT )@@G@@G))G(8G(G95H0)^@)@K@@@@^[-I))I-*G*)IT4GD2I))GD=G-2G(3IS)HD,XU )@@G@@^[MC(NCLGDS?^[-IS)H(>H14HD\H1>G))GD+H96G*,^@)CC)I-*HD2G))^@)@M@@@@^[H14^[\G0)I-*HD3^[&HD?G*) [-H-4H[\I($H@)H1\I))HD,^[4H[>^[&H92H*)H9&XW )@@G@@^[-H0)G(?G(!G(,I)(^[(IS)GC)^@)@L@@@@^[@E@@@@XY )@@G@@^[(H14H8)I[?GD9^[7H[>H0)C-S^[>H14G(2IS)GT\H14IL\H))H(\G-> 0)@]@@@@ETKCD#XZ )@@G@@C*)^@)@L@@@@^@)^@)^[DI))HD3^[4H[(IS)H1\H12G(3HD=G(,I))GT\G-> ))GD?H9,G8)YA )@@G@@I9(I-*^[4H[>^[2G(3HD=G(,I))GT\G->^[(H0)^@)@L@@@@^[MC(NCLGDS)I-*GD4^[(IS)YB )@@G@@IL>G1>IL2G(=^[4H8)I-*IL\I($H[\I(4^[4H[(IS)G->IT^[7YC )@@G@@H92G))@M@@@@^@+C-S^K) [-IS)H90I[\IT>G))I-\^[4H[>^[@C-S^[0IL\GT>IT3H92^[7YD )@@G@@H[(GT*^[GD4G(3^[4H[(IS)G1(H->^[-H1=^[(I-3^@)@H@@@@^[H14IS?^[+YE )@@G@@I(4^[4H[>IL>GD&I->IK)G-2H90IS)H95I))H9&^[4H[>^[0HD C,@]@@@@ETKCD#YF )@@G@@C*)^@)@L@@@@^@)^@)^[OH[5IS?^[7H[>H0)I-*G*)H1>I8)I[2H9$IL-H*)HD3^[?H9-G->YG )@@G@@G))GD,G))G(8G(G)?^@)@M@@@@^[IS)YH )@@G@@I-\^[^[2G($HD3I->IL3^[7HD4YI )@@G@@H@)C(SC(#^@)@]@@@@C1SC1JELH^@)@K@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@0YJ )@@G@@A@0A@0^@! *! *! *! *! *! *)^@)A@0A@0A@) *! *! *! *! *! *!^@)@K@@@@^@)^@)YK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[/^[MG(3HD=G(,I))J))^@)^@)^@)^@)J))YL )@@G@@EL>IT(G->H14^[/^@)@K@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[/^@)YM )@@G@@^@)C-S^@)^@)J))^@)^@)^@)^@)J))^@)^[^F@)^@)^[/^@)@K@@@@^@)^@)^@)^@)^@)^@)YN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^[/^@*EL ET]D-F C)J))^@)^@)^@)^@)J)) [MC(NCLGDS(YO )@@G@@^[/^@)@K@@@@^@)A@1A@0A@) *! *! *! *! *! *!^@)^@0AC0A@0^[/ *! *! *! *! *!YP )@@G@@J))^@)A@1A@0A@)J)! *! *! *! *! (/^@)@K@@@@^@)^@)^@)^@)J))^[PIT>IK$IS)^[/YQ )@@G@@^@)^@)^@)^@)^[/^@)E(3G(2^93^@)J))^@)^@)^@)^@)J))^@)D1\H0!^@)^[/^@)@K@@@@YR )@@G@@^@)^@)^@)^@)J))^@)D(-HD,^@)^[/^@)^@)^@)^@)^[/^@)^[HGD(H0)^@)J))^@)^@)^@)YS )@@G@@^@)J))IL>IT(G->H14^[/^@)@K@@@@^@)^@)^@)^@)J))^[D (+GD,HS)^[/^@)^@)^@)^@)YT )@@G@@^[/^@)DC!GL-H1:^@)J))^@)^@)^@)^@)J))^@)^[^F@)^@)^[/^@)@K@@@@^@)^@)^@)^@)YU )@@G@@J))^@)GT\G->^@)^[/^@)^@)^@)^@)^[/^@)^[^@)^[/^@)@K@@@@^@)^@)^@)^@)J))^@)^@)^@)^@)^[/^@)^@)^@)^@)^[/^@)^@)^@)YW )@@G@@^@)^@)J))^@)^@)^@)^@)J))^@)^@)^@)^@)^[/^@)@K@@@@^@)^@)^@)^@)J))^@)^@)^@)YX )@@G@@^@)^[/^@)^@)^@)^@)^[/^@)^@)^@)^@)^@)J))^@)^@)^@)^@)J))^@)^@)^@)^@)^[/^@)YY )@@G@@@K@@@@^[GCDNE-D^)) *! *! *! *! *! *!^@)D-[ETODC=^@! *! *! *! *! *! *)^@)YZ )@@G@@^@)^@)^@)J))^@)^@)^@)^@)^[/^@)@K@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)J))^@)^@)^@)^@)^[/^@)@K@@@@^@)^@)ZB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCDNE-D^)) *!ZC )@@G@@ *! *! *! *! *!^@)@]@@@@ETKCD#C*)^@)@J@@@@^@)^@)^@)^@)^@)^@) [- C)^@)^@)ZD )@@G@@^@)^@)^@)^@)^@)^@)^@*GK(^@)^@)^@)^@)^@)^@)^@)^@)^@) [< C)^@)@]@@@@ETKCD#ZE )@@G@@C*)^@)@E@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[AHD$I(2G*)AC)ZF )@@G@@@]@@@@ETKCD#C*)^@)@D@@@@^@)^@)^@*GC(^@)D92HD$HD,GD?^[0IL\G92GD!^93^[D (+ZG )@@G@@GD,HS,@J@@@@^@)^@)^@*GK(^@)E[2H9$IL-H*$IS)DC!GL-H1:^[7H[(H->^[2I(,H1(H1$ZH )@@G@@^[5H1=G(2^[^F@)GD4^[4HD!G*)H9&@C@@@@^@)^@)^@)^@)^@)HD,HD4HD-H))I[2H9$IL-ZI )@@G@@H*)H-\GD= 0)@I@@@@^@)^@)^@*GS(^@)E[2H9$IL-H*$IS)DC!GL-H1:^[-G14G(2^[>H14ZJ )@@G@@G(2HD,G8)CT\H14IL\H))D(\G-> 0)@[@@@@C(IC))@]@@@@ETKCD#C*)AK)@L@@@@^[4H[>ZK )@@G@@^[^[(H0)EL ET]D-F^[-H1=^[4H[>H0)I[-IT3G(3^[IK)I->IT4^[!GD9^[+G($HD,@M@@@@^[>J[>GT5I-(ZN )@@G@@H9,^@*EL5H0)D(\G->^[>H14G(2G(= C?^[4H[-I))HD3 ))I(,H->IT3^[@C-S^[7GD3^[G))I9(I-*^[-H0)^@)@H@@@@^[I (\I[4HD\H0?^[(H0)I9*HD ))CT\ZP )@@G@@H14IL\H))D(\G->^[(IS)G(,I->IL>G),^@)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[^F@$ZQ )@@G@@IS)GT\H14HD,G9>H1JC)H9ZS )@@G@@^[0IL\G92GD!^[5H1=G(2^[4G(3I),^@)E-*I(3^[4H[>^@)@M@@@@^[\GTH1^[0IL\G92GD!^[\G0)GC)GL\H1- (&HD=G*)G(2IL\IK)H9&^[-H19^[\G0)I-*ZU )@@G@@G(3G*)I-9I[>IS)^@)@L@@@@^[7HD?H))GT-I(3G*)GT\H14IL\H))I-\^[0GD3IS)I-\^[@L@@@@^[-H1=^[#H9,ZW )@@G@@I-2H9?^[HH9=G*)I-\^[+G*)G(,I->IL>G),^@)D(\IL>H96G(2 ))GL>GT-I(3G*)H9&^[4ZX )@@G@@H[>^[0IL\G92GD!^@)@L@@@@^[0GD4GT*G(3^[(H13G(2I->G))HD,^[4H[>^[,G(7^[-GL3ZY )@@G@@H9?I(4G*)G(?G(!G(,I)) [3I[>GT(G1(GT-H-?JC)GD?H))C(M^@)@L@@@@^[ F[DE)=^93ZZ )@@G@@^[-H1=^[-H19^[3I[>GT(G1(G(=^[+IL>GD:I[\HD,I-3^[+G((H1$^[2G(0H--GT>G))GL9AA )@@G@@^[H(0I))GL9^[4H[>^[0IL\AB )@@G@@G92GD!^[4H8)G(8HD4^[\IK)I-\^[>J[>GT5I->^[-@M@@@@^[+IL>GD:I[\HD,I->G))HD,AC )@@G@@IT4IL5GT4HD\H0)I9(H-?^[-H-3H8)GT-I(3G*)CT\H14IL\H))D(\G->^[4H8)GL>^[>H14AD )@@G@@G(2G(= 0)^@)@]@@@@ETKCD#C*)^@)@K@@@@^@)^@)^[PI[\H0)G(,I->IL(H1$^[#H9,I-2AE )@@G@@H9?^[HH9=G*?^[^F@)IT-I1>IS)I-*G*)G(,I-(IL>^[>J[>GT5I-(H9,^@)@L@@@@^[>H16AF )@@G@@HD2H9,H(>H14 *!IT0G(IL3^[-H1=^[4H[>^[KAG )@@G@@ETM^[!H9=G*,^@)E-*G*)^@)@M@@@@^[5IT>IK$IS)I[-IL4^[\G0)I-*G*)DC!GL-H1:^@*AH )@@G@@I-*GD4^[7H[(GT*^[(H(!G(=HD-I->H-9^[&H9?H-\I93^[MC(NCLGDS(^[(IS)^@)@M@@@@AI )@@G@@^[2H9?H->G))H95I))I-\^[!GD3IS)IT4H92GD$G*)GD,G))I-*G*)GT\IL>^[\I1>IL?GD(AJ )@@G@@G))I9(I-*^[,H9,IL>IT(G->H14^[^F@,^@)@L@@@@^@*E-*G*)GL-H1:^[(IS)G(8I[-H1=AK )@@G@@G(= ))HD&^[,G(^[7H[(GT* ))GD3AL )@@G@@@J@@@@^[,H94G(=^[>GD2H-(G(2 ))IL5H13^[3H9!G*)AC3^[@M@@@@^[-I[0GD2G(,I-?JC)G(8GT>IT3HD6G*)IT>GD2GT*AN )@@G@@^[7H92G))GT\I(,I))HD,^[4H[>^[ADDIC))G(8GD!I[?G*)G-(ITG))^@)@K@@@@AO )@@G@@^[0IL>I1(H95IT?JC, C)^[OH[>^[,GD4I(2G*)H9&^[4H[>^[>I1>H14^[7H[(GT*^[G))EL5H0)D(\G->^[4H8)@K@@@@^[4G(2H((H1-I->^[(IS)IL>I[\IL4G(=^[-H1=^[^AQ )@@G@@F@)HD3^[2G(-G-9^[4H8)GDI[4^[#H9,I-2H9?^[HH9=G*)^@)@#@@@@^[H14HD\H1>G))HD,^[4H[>^[0IL>AS )@@G@@I1(H95IS)IT>GT4HD\H0?^[4H[>^[5IT>IK)H(-JC?^[7H[(H->^[(H0)^@)@L@@@@^[#H9,AT )@@G@@I-2H9?^[HH9=G*?^[3HD,G9?G*!IT4G(0^[4H[2H95G9*^[-^[3G(IS)G(,I->IL(H1$AV )@@G@@^[MI(,^[HH9=G*?^[>J[>GT5I-(H1$^[-^[3HD,G9?G*)HD,IT4IL5GT4HD\H0)^@)@M@@@@AW )@@G@@^[-H1=^[4H[>H0)IL>I-5IL,HD,G8)I-\^[#H9,I-2H9?^[HH9=G*,^@)E-\^[=H8)I-*HD3AX )@@G@@ ))HD4^[(IS)H1\I))G(,H95G9*^[4H8)^@)@M@@@@^[!G(2G(?JC)G1>I-^[!GD,JC)H(-GT*HD,AZ )@@G@@G*)^@)@L@@@@^[(H13I-2I(IK)I-*G*)E@!IL>G9(IT4G(2^[-H1= ))BA )@@G@@G1\IK)G(8GD!I[?G*?^[ F@$HD,G8)GC)HL5H(0^@)@J@@@@^[(H13I-2I(^[^F@)I-\^[?H93G*)GT\H14IL\H))H9&^[0IL\G92GD!^[&H-\I8,@]@@@@BC )@@G@@ETKCD#C*)^@)@K@@@@^@)^@)^[DI))HD3^[&H92^[4H[(IS)IL>GD3H9,^[4H[-I))I9*HD?BD )@@G@@G*)IT(H1$H-> (3I->I[0HD,G8) [\IK)I9*G(,^@)@J@@@@^[3GD4HD3G19HD,G8)GD,^[ BE )@@G@@F[ CTPE- ^[IL0IL>I-(I1>H-9 0)^[[IS)G(-GT*^[(H13I-2I(BG )@@G@@I-G)?^[(I))HD3^[-H1-H-9JL>G))^@)@M@@@@^[4H8)G->I->IL!HD,G*)I9*G(4H[>BH )@@G@@IK)HD4^[(IS)GC)HL5H(0^@*G*,G8, ))DLBC)( ))GD,^[ F@)H92^[-H0)C(M ))IT(H1IT>^[-IL>^[4H[>^[\H1?JC)HT(H1=IS)H9&^[(H13I-2I(IK)I-*G*)^@)@K@@@@^[K (2G($HD3I->IK)BK )@@G@@ [>J[IT4IS?^[> 1$ 0?^[OD1U ))I9*HDG))BL )@@G@@GL9^[-@M@@@@^[3HD!I[?G(2^[!G(^[\BM )@@G@@G0)I-*G(3G*)GT-IT>IS?^[(I))HD3^[>J[>GT5I->G))^@)@M@@@@^[7HD4H[\I(4^[&I(2BN )@@G@@I-*G(2^[-G-\ ))GD,G))I-*G*)E@!IL>G9(IT4G(2^[3HD!I[?JC)HD,GT2G(!G(,I->G))BO )@@G@@ [4I9(GT> ))HD&^@)@G@@@@^[-^[4G(3I))HD,IT4IL5GT4HD\H0)JD(G(?G-3^[-^[4IL5BP )@@G@@G*)GT\H1=HD4HD\H0( 0)^@)@]@@@@ETKCD#C*)^@)@K@@@@^@)^@)^[AH92^[K (-H-4G(2BQ )@@G@@HD,G8)HD,IT4IL5GT4HD\H13 ))I-*G*)G-(IL>GT4^[5H1(H1=G(8G(=^[>G1&G(BR )@@G@@@L@@@@^[\I[>IL-H1=^[(IS)G1(IL3I))GT\H(0I(4G(=^@*H(-HT(H1$^[5IT>^[\G0)I-*BS )@@G@@G*)I(3G(2^93^[3GD6G(=^[2G($HD3I->IK)@M@@@@^[-H1=^[D (+GD,HS)GT\H14G(,I-3BT )@@G@@^[-IS)H1>GT>IT3GD2JC( 0)^[DG0)I-*G*)HD,IT4IL5GT4HD\H0)HD3^[-H0)C(S ))I-*BU )@@G@@G*)^@)@L@@@@^[(H13I-2I(^[ F@$G(=^[(IS)G1>I-G))GD,G))BV )@@G@@IL>IT5GL%G(G))I-\^[4H[(IS)G(,I-(IL>^@)@L@@@@^[-H1-H-9IT(IS,^@)DD,^[4BW )@@G@@H[>^[^[%I(!I@)I--IL$G(4^[-G-=IL>IT3^[(IS)IT-BX )@@G@@I1>G)?@M@@@@^[4H[(IS)GD=G-2G(3IS)GL>HD,G8)IL>I[?GDIT3^[4H8)BZ )@@G@@I9*HDJ[H--I-(I1>IS)@M@@@@^@*CDOEL CD^^)?^[>I-< 0(CC )@@G@@ ))GD2G*)I-2G(-I->G))GD3^[\IL=HD,GD2JC)HD,IT4IL5GT4HD\H13 0)^[OH[>IT>^[3CD )@@G@@I[>GT(GD?^@)@K@@@@^[I1>IK?^[-IL>^[^[\G0)GD?I->CE )@@G@@IL(H1$^[4H[>^[K (2G($HD3I->IK)GD,G))GD2G*)@E@@@@^[4IL>GD4G(=^[(H0)GC)H(-CF )@@G@@H1,G(2^[3HD!HD?GD2^[4H8)HL5H(0IS,^@)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[RHD4CG )@@G@@H@)I-*G*)E@!IL>G9(IT4G(2^93^[7HD,G93^[3H8)I[(H1(H9,G(= ))I-*G*)I(3G(2^93CH )@@G@@^[2G($HD3I->IL3 ))@L@@@@^[KETM^[-H1=^[D (+GD,HS)GD2G*)IL>H-\GD=G(= ))GD,CI )@@G@@G))I-*G*)HD,IT4IL5GT4HD\H0)G(8G(^[4H[-I))GD&I->IL7GD2G-3 ))C-S^[7HD?H))IT4HD?H))GL>^[(H0)CT\H14IL\H))CK )@@G@@D(\G-> 0)^@)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[[H-?^[4H[(IS)IT\I(,G-3^[!I(^[@M@@@@CM )@@G@@^[!H9=I(?G*)HD,^[MC(NCLGDS)I-*GD4^[(H14G(2I[2G(4HD6G(?JC)G(8G(G))G1\IK)@B@@@@CP )@@G@@^@+H92G-(H1-IL9^K)HD,IT4IL5GT4HD\H13 0)^@)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)CQ )@@G@@^[OH[(IS)HD,I->IL0IL>I-(I1>^[>J[>GT5I-(H9,^[!H9=I(?G*)GD?IT\^[GD:CS )@@G@@I[\HD,I),^@)E9*G(,^[4H[>^[5IT>IK?^[7H[(H->^[(H0)CT\H14IL\H))@M@@@@^[HH9=CT )@@G@@G*?^[3I[>GT(G1(G(3^[-^[+IL>GD:I[\HD,I))GD=G-2G(3IS?^[4H[-I))GD=G-2G(3IS)CU )@@G@@HD3^[3HD!I[?JC)IL>GT\IL=G(=^@)@L@@@@^[(H0)GC)GL2G(-HT0H9(H14^[?HD3I))HD,CV )@@G@@^[MC(NCLGDS,^@)E9*G(,^[4H[>^[5IT>IK)GT\H(!GD,G-3^[-^[2G(4I(2H0)I-\@L@@@@CW )@@G@@^[MI(,^[HH9=G*?^[4H[>^[!H9=I(?G*)I-*GD4^[2G(3I-\IL>IS)I-*G*)I(3G(2^93^[>CX )@@G@@J[>GT5I-(H9,^[>H16HD2H9,H(>H14@M@@@@^[3GT-H13^[4H[2H95G9*^[4H[(IS)H-(IT4CY )@@G@@ ))IT-I1(H1$^[4H[>^[H14IS)H9&^[>GD^[?H9G))HD,^[4H[>^[?HD3I))GD,G))IL>I[?GDH14IS)I9(I-*^[-H0)C(M^[ ELM^))I9(I-*^@)@L@@@@^[-H0)A@1A0)HD,^[4H[>^[-DB )@@G@@ (&HD>H-= 0)^[RH[>H0)EL5H0)D(\G->^[(IS)G(,I->IL>G))GD,G))H9,G*)H9&^[4H[>DC )@@G@@IT>^@)@M@@@@^[?H9H1^@)@M@@@@^[(IS)IL>G(,I->IL>DE )@@G@@G)?^[4H[>^[\IL(G9(H1-H))HD,IT4IL5GT4HD\H0)HD3^[0I(4^[+GDJ[>GT5I->G))I(3HD,G8)I-*G*)HD,I->IL0IL>DG )@@G@@I-(I1>^[!H9=I(?G*?^[-H1=^[4H[>^[>I1>H14^[2G(0H92I->G))I-\^@)@#@@@@^[4H[>DH )@@G@@^[5IT>IK,^@)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[JI[>IL-H1=^[4IL-I[3^@*GD3IT5DI )@@G@@H((H1$^[4H[>^[*GD2G-7GD2G*)I-\^[+G*)GD6GD(H--GL?G*(^[-IL>^[=G(-H-4@M@@@@DJ )@@G@@^[7HD4H@)IT(H((H--IL?JC?^[>J[^[GT>IT3GD2JC)IT(H1
^[$G(,G(2GD4G(3^[4H[>^[^[4H[>^[^F@)GT\H14IL\H))H(>GT*GD,HD3H*)HD3^[3HD,DO )@@G@@G9?G*!I-*IL>GD= ))GD!GL(G95HD4HD>IS)@K@@@@^[-IL(IT>^[7H[>H0)C-S^[(IS)GD0DP )@@G@@I[?HD>G))I-\^[-^[!I(?I-( (-GT4HD6HD4JC)I[2H9$IL-H*,^@)E-*G*)C-S^@)@L@@@@DQ )@@G@@^[^[(IS)IL>G9(IT4G(2G(=^[-IS)I[2H9$IL-H*!I9(DR )@@G@@G->^[3H8)GT\H1&I(3HD\H0)GT-H0)@L@@@@^[>H13I(>^[(G0)H(\IL>^[4H[-H0)H9,G*)DS )@@G@@GDH14G(2^[#H9,I-2H9?^[HH9=G*,^@)C-S@L@@@@DT )@@G@@^[(IS)GL>IT4^[2G(3G(2I1>G))G1\IK)I(3G*)H9,^[3HD,G9?G*!GDH14^[0H--H0)I-\^[?HD+G(2GD?DV )@@G@@HD'G*)I-*HD3^[2G(3I-2HDIK)GL-H1:^@*CL^DC)B*)A)(^[\DY )@@G@@G0)I-*G*)I[2H9$IL-H*)H(5IT4^[+G*)GC)IT4GD4HD<^[D (+GD,HS,^@)@M@@@@^[OH[(DZ )@@G@@IS)HD3^[-H-7GD9IS)I-*G*)GT-IT>^[(H0)GL-H1: ((H(0H-(G(=^@*^L\IL=HD,GD2JC+EA )@@G@@ C)GT\H-?G(^[IL7HD3EB )@@G@@G*,^@)ET\H(>^[4H[\I($H[4^[(IS)GL>HD,G8)G9(I1>H0)I-\^[-H0)^@)@M@@@@^[-H-4EC )@@G@@G(2H1-I->^[!G(IL>HD,^[-H-?^[4H[>^[^F@)GT\G->^[7H95H-=^[2ED )@@G@@G(3HD=G*)HD,IT4G(-G))HD,^[-^@)@L@@@@^[3G(0GD2GD4G*)GD,G))G(8I-2GC)DC!GL-EE )@@G@@H1:^[+GD3G(=^[\H0)I-*G*)I(4HD?HD4JC)E[NEK,^@)DD,^[4H[-I))GT-IT> ))@L@@@@EF )@@G@@^[-H19^[0IL\G92GD!^[5IT(H1$^[,H8)I(4HD?HD4JC)DC!GL-H1:^[I1>IL>^[2G(3I-2HDG1\IL> ))GL5I))IT4HD?H))H1\I))GT\H(0H->I->H-9^@)@L@@@@^[$G(,EI )@@G@@G(2GD? 0)^[NI($G9>IT4HD\H13^[2G($GD2G-(H1$^[4H[(IS)I[2H9+H->H*)I9\I(?G))EJ )@@G@@GL>^[2G(G))I9(I-*@#@@@@^[(H14G(2G(3I),^@)@]@@@@ETKCD#C*)^@)@M@@@@EK )@@G@@^@)^@)^[OH[>^[>J[>GT5I-(I1>^[2G(1I(>IT4IS)DD[D-G^))GD,G))CTMC(B^)?^[7H[>EL )@@G@@IL>^[4H[>JC)GD0I[>GD2^[7HD4H[(H0)^@)@L@@@@^[4H[>^[5IT>IK$IS)I[2H9$IL-H*?EM )@@G@@^[-IL>^[2G(,G->IL>G))H15G9-I-\IL9^[+JC)GL>HD,G8)IL>I[?GDGD,IS)I-*GD4^[=G(+I($G9(H1$^[H1IS)HD3^[-H-7GD9IS)GT-I[4I(2G(=^[+JC)EQ )@@G@@C-S 0)@M@@@@^[RH[-I))H9,G*)H(5IT4^[=H8)I9*G(,^[3I(H1H14IS)H(-ES )@@G@@H15GD?H-9^[&IL\H*)I-*G*)C-S^[0GDI))I-\^[4H[>^[5IT>IK)I[-GT:G(4^[-H1=ET )@@G@@^[4H[>H0)HL5H(0^@)@C@@@@^[4H8)I-*G*)I(3G(2^[^[5H1=EV )@@G@@G(2I9-JC)IT5GT*^[4H[-I))I9*G(,^[@C-S^[(IS)GT-H-?G(=^@)@M@@@@^[7HD4H@)GC)EW )@@G@@CS!H90I-(H9, ))I-*G*)H9^[\G0)GD,JC)GL\H1- (&HD=G*)G(2IL\IK)EX )@@G@@GT\H1=HD4HD\H0)G1\IK)^@)@K@@@@^[7H[(GT*^[4H[>^[5IT>IK)H[-IS)IL>G9(IT4G(2EY )@@G@@G(=^[-^[^[7HD?H))GT-I(3G*)@M@@@@^[^[7HD4H[\I(4^[?G(-I1(H1$^[MI(,^[HH9=FA )@@G@@G*,^@)D(\IL>H96G(2 ))^@)@M@@@@^[(G0)I-*G*)CS!H90I-(H9,^[+G*)H9!HD4I->G)?FB )@@G@@^[4H[>^[5IT>IK)GT-H0)G(,I->IK)I-*GD4^[2H95I-(H1>^[-G14G(2^[^F@)^@)@M@@@@FC )@@G@@^[*GD3^[G))GT\H14IL\H))IT(H(0H-9^[+JC)G9(I1(H1$^[4H[>^@+C9J^K)FD )@@G@@GT\H(!GD,G),^@)CD4^[0IL>IT>H14 ))^@)@L@@@@^[-H19^[3I(H(0I))I-\FE )@@G@@^[2G(4I(2H0)I-\^[MI(,^[HH9=G*)G9(I1>IS)IL(IT>^[4H8)I-*G*)H(>IT3GD$G*)^@)FF )@@G@@@B@@@@^@+E[MD9BEL[D*)D[[ES)E- ELHDDICDOC(^ 0+^@)@]@@@@ETKCD#C*)^@)@K@@@@FG )@@G@@^@)^@)^[DI))H(-JC)GL>^[!G(,I-(H9,G(=^[4H[-I))I-*G(2G*)GD2G*)HD,IT4GD,GT>FH )@@G@@IS)I9*G(2G*)C-S^[7HD?H))@L@@@@^[3I(G(=^[7H[>IL>^[\I-*G(2^[=G(+I($G9(FI )@@G@@H1$^[4H9\H-3^[&GD(H),^@)D9,G*)G(8GD!I[?G*)HD3^[7H[>IL>^[4H[>@M@@@@^[0IL\FJ )@@G@@G92GD!^[5H1=G(2^[4G(3I))GDIT3G(3^[-^[IL,^[4H8)C-S 0)@]@@@@ETKCD#C*)AK)@#@@@@AD#D9ICTGE(NDDJD0)@M@@@@^@)^@)FN )@@G@@^[DH0)IT5H(!GD2JC?^[4H[>^[!H93I))GD0I[>GD?HD,G8)G1>GD4I(2G(3^[\G0)C-S^[-FO )@@G@@IL>^[4H[-I)) @1 C)HD4^[(IS)^@)@K@@@@^[>GD3JC)I-\^[?G(-IL,^[-H1=^[4H8)I(3FP )@@G@@G*?^@*AK(^[(I))IL>ID5HD2G(3^[,H8)IT0G(FQ )@@G@@I[-IL-I-(H9,^[-H1=^@*AS(^[(I))HD3^[>GT\H1\H((GT-H))I-\^[2I(, 0)^[OH[>^[NFR )@@G@@JD3I->H(3^[BIL\I(0^[-H1=@M@@@@^[\I-*G(2IS)GD4^[NE(IFC!CD?GL-H19^[*GD6G*)FS )@@G@@I(3G(=^[(I))GD3^[-^[0IL(H(-IL9^[=G(+I($G9(H1$^[4H9\H))G1\IK)GC)^@)@M@@@@FT )@@G@@^[,I(!GL>IK)H9&^[9G(-IL3^[-H1=^[(I-3^[5IT>^[*GD3^[=HD&G15IT>G)) [\IK?^[(FU )@@G@@H0)IT\H(>^[GD:G(= C)^@)@M@@@@^[4H8)H94H[>IK)AC1A@0^[(H13I--FV )@@G@@H-?GD4HD\H13^[-IS)I9>H-? 0)^[RH[(H->^[(H(0IL\I1>H(>H14IS)GT\H14HD,I(>^[4FW )@@G@@H8)^@)@L@@@@^[\GT^[%I(=G9>^[^F@)I-\^[+G*)IT5G1&HDH14H-9^[!FX )@@G@@GD4I(2G*)GD3^[4H8)GL>^[2G(-G-9^[&H92^[5IT>@F@@@@^[+JC)H94H[>IL3^[(H0)I-*FY )@@G@@G*)AC1A@0^[IK)@]@@@@ETKCD#GG )@@G@@C*)AS1@F@@@@CT D1OC(M^[#D9KFDMDDBD[O^@*GS(^@1BC7A*?^@1BC7A0?^@1BC7BC?^@1GH )@@G@@BC8A@)@^@@@@CT D1OC(M^[] 0)C*,^[#H[(@A@@@@CT D1OC(M^[[H-+GD,JC)D1T^@1AK2GI )@@G@@AK2^@)@^@@@@ADDD1OELJC-PCTODDJD0)^@)@L@@@@^@)^@)C-S^[(IS)GC)G9>H1>IL-H)!GJ )@@G@@I[5IL0H93G*)I[2H9$IL-H*!G->GL5G9$HD,G8)IT9IT4G(! 0)^[DI))I[2H96HD=G(3^@)GK )@@G@@@L@@@@^[4H[>^[(H14G(2GD^[5IT>IK)GT\H(0H->I->^[IK)GL )@@G@@I-*G*)I[2H9$IL-H*)I(,G->IK)I->IT4^@)@K@@@@^[&IL\H*)I-*G*)H(\H(>H14^[(I))GM )@@G@@HD3^[?H9-G->G))I(,I-(H))GT\H14IL\H))HD3^[2G(4I(2H1>G))I-\^[ F[ CS,@K@@@@GN )@@G@@^[DI))GT-I(3G(3^[?H9-G-(H1$^[\G0)I-*G*)I(3G(2^93^[0IL\G92GD! ))HD,HD4HD-GO )@@G@@I->IS)I-*G*)H--I-4G(2^93@K@@@@^[>J[>GT5I-(H9, ))GD,G))GD4I->H1=IS)I-\^[,GP )@@G@@H92H(-H))GD,G))G(2IL\IK)I->IL!HD,GD4HD\H13^[(H0)GD,^@)@ @@@@^[\IL=G(2H-9GQ )@@G@@^[&GD3H[(H9, 0)^@)@]@@@@ETKCD#C*)^@)@^@@@@DDIC- F@)C-S ))I(3GD$G*)@K@@@@GR )@@G@@^@)^@)C-S^[(IS)G(1I(-H-?JC)I(3G(-GL?G*)G1\IK)I[2H9$IL-H(3^[7IL(I-4G(,^[(GS )@@G@@H0)GC)I1-IL(G(4JC)H9&^@)@K@@@@^[=HD&G1>IL>H14^[?GD,G95GD$G(3^[3HD,GT> ))GT )@@G@@I(,H-(HT>^[3H9!G*)H94H[>IK)G-9H1-H((GS)G->GL5G9$HD,G8)@L@@@@^[-HD=IS) [>GU )@@G@@ 1$ 0)ETID9JE[T C?^[(I))HD3^[,H94^[GT4G(=^[(H14H8)I-*G*)I(3G(2^[0GV )@@G@@IL\G92GD! 0)^[DI))@L@@@@^[\I[>IL-I->IS)HD,IT4G(-G))H9,^[4H[>^[5IT>IK)I[2GW )@@G@@H9$IL-H*)HD,^[(I-3^[-GL3H9?I(4G*)G1\IL! 0)^@*E-*HD3^@)@K@@@@^[(H1GX )@@G@@IS)I[2H9$IL-H(3^[GT4G(=^[+JC)I-*G*)^LJH-=^[#H9?H->GT4H92^K) [HCDKGY )@@G@@^@2AS)GD,G))@L@@@@^[>GD2H-(G(2 C?^[-IT3I(!HD,G8)I-*GD4^[4H[>^[?G(6G(?^[\GZ )@@G@@G0)I-*G*)AC1A@0^[JI[>IL-I-(H1$^[NJD3I->H*)HD3^@)@K@@@@^[3I(IL!HD4^[>J[>GT5I-(H9,^[\G0)IT5GT*^[0IL\G92GD!IS, C)^[RH[>H0)GT-H-?G(=HB )@@G@@ ))C-S@L@@@@^[+I((H-=IS)GC)H1>I8)GD+IT\H-5I->^[>H->H(>H14 ))GT\H(+HD,HD,HC )@@G@@G8)I-*G*)I(3G(2^93^[0IL\G92GD!^[7HD4H@)^@)@ @@@@^[3G($H(>H14IS)H9&^[(I-3HD )@@G@@G(?G0,@]@@@@ETKCD#C*)^@)@^@@@@DDIC- F@)EL5H0)D(\G->^@)@ @@@@DDIC- F@)CT\HE )@@G@@H14IL\H))D(\G->^@)@L@@@@^@)^@)E9*HD?G*)I-*G*)I(3G(2^93^[0IL\G92GD!^[(IS)HF )@@G@@IL5H1,HD,G8?^[^F@)HD3^[3GD(G))I-\^[+G*)HD,^@+EL5H0)^@)@J@@@@^[HH9=G*+ 0)HG )@@G@@^[[G14G(2^[4G(2H((H1-I-(H9, ))C-S^[(IS)HD,^@+CT\H14IL\H))D(\G->^K,^@)DD4HH )@@G@@^[(IS)@L@@@@^[0H93IT(GL?G*)GD,G))H9&I->H0)G->IT(IL-GL?G*)I-\^[>H14G(2^[#HI )@@G@@H9,I-2H9?^[HH9=G*)I[2HD\IK)I-\^[0IL\ *)^@)@L@@@@^[$IL-H*)I->IL!HD,GD4HD\HJ )@@G@@H0,^@)E-*HD3^[(IS)G-\H1>^[+JC)IT0G(^[0IL\G92GD! 0)^[RH[>H0)I-*HL )@@G@@G*)HD,IT4IL5GT4HD\H0)GD4^[4H[(IS)^@)@L@@@@^[-G-=IL>IT3^[(IS)G(,GT\I(,I->HM )@@G@@IL>G))G-5IL(H1$^[MI(,^[HH9=G*?^[(I))HD3^[>J[>GT5I->G))GD,G))CT\H14IL\H))HN )@@G@@@K@@@@^[HH9=G*)HD3^[(H(!G(=HD-I->H-9^[>H14G(2G(= 0)^[[I))I-*HD3^[0H9(H14HO )@@G@@ ))GD?H))CT\H14IL\H))D(\G->^@)@L@@@@^[&I(,GT4HD\H13^[+G(^[>J[-H((H1-I-(H9,^[-H1= 9\IK)H(\G-(G1( *)@K@@@@HQ )@@G@@^[IK)GT\H14G(,I-3 ))I-*G*)IT>I-4HD,HR )@@G@@G8)H9&^[-G-=HD4HD\H1-H))@L@@@@^[+IL>GD:I[\HD,I-3 ))G(4GS,^@)E-*G(,^[MI(,HS )@@G@@^[HH9=G*)GT-H0)GL>^[2G((H13I--I->G)?^[>HD4H[>IK)GD4^[4H[>^@)@L@@@@^[-G-=HT )@@G@@IL>IT3^[?H9$HD^[+IL>GD:I[\HD,I))H92^[-I))GD,HU )@@G@@JC)H94H[>IK)G->IT(IL>G))@L@@@@^[0IL\G92GD!^[-G-=IL>IT3 0)^[[H-4G(2H1-I->HV )@@G@@H-9 ))I-*G*)I(3G(2^[HW )@@G@@^[2G(3I(?I))H9&^[>GD^[0IL\HX )@@G@@G92GD!^[0IL\ *)^@)@L@@@@^[$IL>IT3G(3 0)^[OH[>^[+IL>GD:I[\HD,I))G1>GD4I(2HY )@@G@@G*)GD?H-\I93^[IT\IL4HD,G8)I-\^[-^[&I(?H))I-2GD^[(IB )@@G@@H0)EL5H0)D(\G-> ))I-*G*)HD!GD$G*)^L@C[S^[#^K)HD3^[2G(G)?^[^F@)HD!IC )@@G@@H(> *)@L@@@@^[=HD-I->H-9^[>H14G(2IS)CT\H14IL\H))D(\G-> 0)^[OH[>^[\GTH1GC!^@)@K@@@@^[4G(=^[3HD!HD?GD2H-9^[(IE )@@G@@H0)GD?H))IL>IT0G(^[\G0)GC)GL2G(-HT0H9(H14IF )@@G@@@#@@@@^[>H1^[=HD2G(G))I-\^[4H[>^[3G(^[]G($HD,H1(H1$^[PIT>IK+^[-I))I-*G*)G(,G))H9&^[4H[(IS)II )@@G@@H(-H15GD? 0)@]@@@@ADPET[C9 ^@)@K@@@@^@)^@)D9,G*)H1\IL!GD?H-9^[IS)IJ )@@G@@H-\GD=HD,G8)GD,G))G(8G(IL>^@+I[2G9!^K)HD3^[4H[>^[,GD!IM )@@G@@G*)H9&^[-H0)GD+IT\H-5I->^[>H->H(>H14 ))GD,G))H(-JC)HD,GT?I(=G*)GC)@ @@@@IN )@@G@@DDIC- F@)C-S ))GT-H-?HD,G8)^@)@^@@@@DDIC- F@)CT-H-?HD,G8)C-S@A@@@@DDIC- IO )@@G@@F@)E[2H9 ))I1>IL3HD\H0)H1-H(>IP )@@G@@ ))GD,G))IT\^[&H92I-* 0)^[OH8)G(8G(IK)C-S ))G9(I1>^@)@ @@@@IQ )@@G@@^[(H13I->GD=^[4H[>^[^[0IS )@@G@@IL\G92GD!^[\I[4HD\H0)H->I-4G(2IS) [(G0)GD,JC(^[*GD6G*)GL>G(,^[!H96G(=^[4IT )@@G@@H8)^@)@L@@@@^[4H[>^[3G(^[7H[>IL>^[!H92G*)I-*GD,^@1AK)@K@@@@^[\I[4HD\H13^[,G(>G))GL>IV )@@G@@^[3I[>GT(G1(G(= ))G9(I1>^[4H[>^[3I[>GT(G1(GT-I-(H9,^[(H0)H9I-5IL,G(=^[+JC)C(M^[JE[O^), C)@]@@@@ETKCD#C*)^@)IX )@@G@@@C@@@@DDIC- F@)C-S ))I[2H9^[4H[>^[&H9?JA )@@G@@H-\I9(H1$^[>G1&G(GT(G1(G(=BK)@]@@@@ETKCD#C*)^@)JB )@@G@@@]@@@@CTJD-PD(I^@6@K@@@@^@)CK)^[DH(0H--H14^[-^[+IL>GD:I[\HD,I))G-5IL(H1$JC )@@G@@^[?H9-G-(H1$ 0)^[#H9,I-2H9?^[HH9=G*)I9(H-?^[+G*)@L@@@@^@)^@)^[>H14G(2G(=JD )@@G@@^[(G0)GD,G))I9*G(,^[4H[>^[(H13I-2I(IT3^[(IS)JE )@@G@@G(8G(G*)GD?IT\^[4H[>^[NC(O^[^[7HD?H))@L@@@@^@)^@)JH )@@G@@^[+G*)G(,I->IL>G))HD&^[-H1=^[7H[>H0)I-*G*)I[2H9$IL-H*)IL>GD=IS)G12H9!^[\JI )@@G@@IK)I92HD4G(3^[(H14H8)^@)@L@@@@^@)^@)^[4H[>^[IT3 0)^@*E-*HD3^[&G(-I-5IL>^[(IS)GD6GD( *)^@)@L@@@@^@)^@)JK )@@G@@^[?GD+H->^[\H1?JC)H9,^[4H[>^@1AC1A@?^@1AC0A@\A)0 ))AC1A@0 88A@, C)^@*ET>JL )@@G@@G*)GD?IT\^[4H[>^[OEL[E@)@^@@@@^@)^@)^[^@)@L@@@@^@)D0)^[[G14G(2^[?H9-G-(H1$ ))JN )@@G@@HD!H(>G-(GD4G(?JC)G(,I->IK)CT\H14IL\H))D(\G-> 0)^[DG0)GC)ETOC(K^[\IK)^@)JO )@@G@@@L@@@@^@)^@)^[BD8)GT\H(!GD,G))GL>^[3I(+IT>ID5G(,I-?JC)G9(I1>H0?^[>J[>GT5JP )@@G@@I-(H9,^[7HD?H))GT\H(!G(,GT>^[-I))^@)@C@@@@^@)^@)^[4H[>^[0IL\G92GD!^[3I--JQ )@@G@@IL4^[-G-=IL>IT3 0)@]@@@@ETKCD#C*)^@)@K@@@@^@)EC)^[NI(0I[2G(3IS)GD?H))I[2JR )@@G@@HD,I->G))H95I-0I(4^[$G(,G(2GD4G(=^[+JC)I-*G*)I[2H9$IL-H*,^@) [NG(>@C@@@@JS )@@G@@^@)^@)^[-H-3H8)I-*G*)D9PE-KE(O^[GD2^[\H0)I-*G*)I[2H9H-9^[&H9?JX )@@G@@H-\I8)I-*G*)I[2H9$IL-H*)H90I-(H9,^[&HD>H-=^@*G1(G(?G))AK( 0)^[ J[-H(0H->JY )@@G@@BK)^@)@]@@@@ETKCD#C*)^@)@A@@@@^@)^@)^[@E[MCTNEK?CDS^@)ETD -MD8?ETJ@]@@@@JZ )@@G@@ETKCD#C*)^@)@B@@@@^@)^@)^@)^[(IS)IL5H0)I(,G->IK)C-S^[5IT(H1$@]@@@@ETKCD#KA )@@G@@C*)^@)@C@@@@^@)^@)^[@C-S -K^@)E[MCTNEK?CDS ))ETD -MD8?ETJ^@)@]@@@@ETKCD#KB )@@G@@C*)^@)@F@@@@^@)^@)^@)^[OH8)IL5H0)^LKEL#ETM^K)I9(I-*H95I))H90I-(H9,IS?^[5KC )@@G@@IT>^@)@]@@@@ETKCD#C*)^@)@C@@@@^@)^@)^[@C-S -K^@)E[MCTNEK? ))ETD -MD8?ETJKD )@@G@@^@,^@)@]@@@@ETKCD#C*)^@)@]@@@@CTJD-PD(I^@2@^@@@@DDIC- F@)CL2G(-HT0H9(H14KE )@@G@@@ @@@@DDIC- F@)D90G(2GD,G))I-2GD0^@)@ @@@@DDIC- F@)E-2GD0 ))H90G(2GD,G))KF )@@G@@@L@@@@^@)^@)DD&^[-^[+IL>GD:I[\HD,I))H92^[\I[>IL-H1=^[4IL-I@)HD3^[2G(1I(>KG )@@G@@IT4G(= ))C-S^[7HD?H))HD,G-(GT-I->^@)@K@@@@^[4H[>^[0IL\G92GD!^[3I--IL4^[-KH )@@G@@G-=IL>IT3^[(H0)GL\I-*^[-GL3H9?I(4G*)GD,G))G(?G(!G(,I)!IL>H--I-(I1>@L@@@@KI )@@G@@^[&H92H*?^[( 1> 0'^@)^LKC9H^[NE-[ELOES)CDO^@0AK0AC0^@*D([DDI 01 S0 C,^[]KJ )@@G@@ELF^[[C-^EK'^K?^[-GL3H9?I(4G*)@L@@@@^[?H9HD,G8)IL>KK )@@G@@H--I-(I1>^[?H9IK)H-\GT-I-(H9,^[^[5IT>IK)I-9I[>IS)I-*G*)G->IT(IL>G))KM )@@G@@GL2G(-HT0H9(H14^[\IK)I-2GD0^@)@K@@@@^[?H9IK)I-*G*)GT\H-\KN )@@G@@H0?^[5IT(H1$^[>HD4H[>IK)H9&^[4H[>IT>^[&H92H(3 0)^@*CC)I1\HD=@D@@@@^[2G(3KO )@@G@@I[\H13G*)I9(H-?^[H))I-*G*)IL>ID5G(3I), C)@]@@@@ETKCD#C*)^@)@G@@@@KP )@@G@@^@)^@)D90I-(H9,IS)D0)GD,G))E@)H(-JC)H1\I))GL\I-*^[+G*)IT0G(G),^@)KQ )@@G@@@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)DD&^[\I[4HD\H0)E@)GL>^[$HD6G(, ))G-\^[,H94KR )@@G@@^[(H(0H--H14^[-^[+IL>GD:I[\HD,I)) [\I[4HD\H0)CK(^[\IK)@L@@@@^[3G(4^[-H0)KS )@@G@@H90G(2GD,G))I-2GD0^@*H90I-(H9,^[P C)I9*G(2G*)HD4^[7HD?H))GL>^[>H1G))I-\^[2G(-G))GL>G1\IL>KU )@@G@@^[+IL>GD:I[\HD,I))@E@@@@^[4H[>^[DD1AD9M^[4GD+H->^[(IS)IL>GD=^[+JC)I-*G*)KV )@@G@@I[2H9$IL-H*,@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)CD&I->IK)GD,JC)IT0G(G))KW )@@G@@GL2G(-HT0H9(H14^[(IS)HD!I[?GD,I->G))GD,G)\H92^[\I[>IL-H1=^[4IL-I@)@^@@@@KX )@@G@@DDIC- F@)EL5H0)D(\G->^@)@C@@@@DDIC- F@)CT\H14HD,G9>H1IL!HD,GD4HD\KY )@@G@@H0)^@)@C@@@@DDIC- F@)E->IL!HD,GD4HD\H0?^[IL!HD,GD4HD\H0?^[,H92H(-LA )@@G@@H))^@)@ @@@@DDIC- F@)E-(H(> ))G(?GD0IT>G))@ @@@@DDIC- F@)C(?GD0IT>G))I-(LB )@@G@@H(>^@)@K@@@@^[3G(4 ))I-*G*)I[2H9$IL-H*)HD3^[?H9-G->G))GD,G))G(8G(G95H0) [5H1?G(3IS)I-*G*)D0)^@)@L@@@@^[\I[4HD\H0)GL>^[3I[>GT(G1(G(=LD )@@G@@ C,^@)C-S^[2G(!GD(H13^[(H0)EL5H0)D(\G->^[5H14HD?^[-^[GD:I[\HD,I))HD3^[>H1LF )@@G@@IL-H1=^[(IS)I-2GD0I[>G)?^[\IK)@K@@@@^[,H92H(-H))I->IL!HD,GD4HD\H0) [ EK)LG )@@G@@C(SDDO^)(^[(IS)IL>GDG),^@)CT\H14IL\H))D(\G->^[(IS)I-*G(,@K@@@@^[>H14LH )@@G@@G(2G(= ))GD,JC)G(2IL\IK)GT\H1=HD4HD\H0)I-*GD4^[!GD9^[*GD6G*)GD2HD3G(,^[(LI )@@G@@IS)G->ITG)?@E@@@@^[-H1=^[4H[>^[>H--I[3G(=^[#E[P^[4HD!G*)HD3^[0IL\LJ )@@G@@I1(G->G),^@)@^@@@@AD#D9IE-MD9G^[HD9^C*)^@)@ @@@@DDIC- F@)CT\H14IL\H))D(\LK )@@G@@G->^@)@B@@@@DDIC- F@)CT\H(!GD,G))IT\H-(GT(I--I-(H9,^@)@K@@@@^@)^@)D9,^[>LL )@@G@@H14G(2HD,G8)CT\H14IL\H))D(\G->^[-H1=^[3I(+IT>ID5G(,I-?JC?^[^F@)HD,G-(GT-LM )@@G@@I->IS)IL>GC!@K@@@@^[=HD,G(3IS)I-\^[-GTI*)H9&^[-^@)@L@@@@^[^[$HD6G(, ))CT\H14LP )@@G@@IL\H))@#@@@@DDIC- F@)C[KD(^^@)@K@@@@^[HH9=G*)HD3^[4G(2H((H1-I->G))GD,G))LQ )@@G@@GT\H14IL\H))IL>I-5IL,G(=^[4H8)C(SC(# 0)^@*E[\IT4 (!H92I->H*)@J@@@@^[=I(!LR )@@G@@I[3^[-IL>^[3I-(H-?^[0H93IT(GL?G*)HD&^[4H[>^[G9(IT4G(2^[H14IS)LT )@@G@@@L@@@@^@)^@)E9*HD?G*)HD,^[#H9,I-2H9?^[HH9=G*?^[4H[>^[H14IS)H9&^[-LU )@@G@@H-?^[6H9?GD4HD?G*)IL>G9(IT4G(2IS)^@)@K@@@@^[-IS)I-*G(9^[7G(2G*)I9*G(,^[MLV )@@G@@I(,^[HH9=G*)GT>GD3G(=^[-IL>^[3GD6G(=^[-H1=^[-I1-HD?GD+H->^[&H92^@)@C@@@@LW )@@G@@^[(H13I[>GT4HD\H0)GD,G))H(\G-(G1(GT-I-(H9, 0)^@)@#@@@@AL^F@)CT\H(!GD,G-3LX )@@G@@@ @@@@DDIC- F@)C-S^[G))@B@@@@DDIC- F@)CD+GL2G(6LZ )@@G@@HD-I->G))GT\H(!GD,G-3^@)@L@@@@^@)^@)CD3^[,H94G(=^[-GL\I1> ))GD?H))GT\H(!MA )@@G@@GD,G-3^[-IL>^[3H9?HDG))GL9^[-^[I-5IL, 0)^[ GDITG))GL>H-\I8)H(-JC)@L@@@@^[+G*)GD+GL2G(6HD-I->G)?^[(G0)G->IT(IL>G)?MD )@@G@@^[4H8)I-*G*)G1(IL3I))I-7H8)H->I-4G(2IS)H9&^[(I-3^[,GD!G*,^@)@K@@@@^[[G-=ME )@@G@@HD4HD\H1-H-?JC?^[4H[>^[!H93I))GT\H(!H9,H-9^[5IT>G))GT\H(!GD,G-3^[!GD9^[+MF )@@G@@G*)G15IL4H[>IK)^@)@K@@@@^[-GL+IL>I1(GD4G(=^[4H8)GC)IT(H1$H->^[?G(4I->IK,MG )@@G@@^@)E-*G(3G*)GT\H(!GD,G-3^[-IL>^[(H1=HDH14H[>IT>IS)G1\H-?H97HD,G8)I-*G((IK)H1-H(>MI )@@G@@IS,^@)@K@@@@^[OH[5IS)^L F[ CTPE- ^K)H(-JC)GL>^[-GL+IL>I1(GD4G(=^[4H8)^L MJ )@@G@@F[ ^K?^@+C(S^K)H92^@+C*+ ))GL5I))^@)@F@@@@^@+C(IE-MFC+^[!GD9^[+G*)GD+GL2MK )@@G@@G(6HD-I->G))H9,H-9^[4H8)^L D0+ 0)^@)@]@@@@ETKCD#C*)^@)@A@@@@DDIC- F@)CD=ML )@@G@@G-2^[3I[>GT(G1(GT-I-(H9,@B@@@@DDIC- F@)CD=G-2G(3IS)IT0G(GT(G1(GT-I-(H9,^@)@C@@@@DDIC- F@)E9\IL=^[GT(G1(GT-I-(H9,^@)@A@@@@DDIC- F@)C1!I))IT0G(GT(G1(GT-I-(H9,^@)@L@@@@^@)^@)ET0G(^[+IL-GT:G(4IS)FTX^[-IL>^[\I[4HD\H1-H);^[(G0)H9!HD4I->MQ )@@G@@G)?^@)@L@@@@^[=G(&GD5H-4^[6GD?I(>IS) [4H8)GL>^[>J[0H--HD,G(=^[?GD4G(2 C)MR )@@G@@GD2G*)I--HT>H0,^@)E-*G*)GD+GL2G(6HD- *)^@)@L@@@@^[4HD\H13^@+GD=G-2^K?^@+MS )@@G@@I9<^K?^@+G1!I)+^[(H0)I-*G*)G->ITIT0MT )@@G@@G(< *)@L@@@@^[4HD6G(?JC?^[&H92^@+GD=G-2G(3IS+ ))^L7H92G))GT\I(,I)+^[-H1=MU )@@G@@^@+G1\IL!GD4^K,^@)E-*G*)G1\IL!IS)I-*G(3G*)@J@@@@^[3I[>GT(G1(GT-I-(H9,IS)MV )@@G@@H(-JC)GD3IT5H(>^[-IL>^[=G(3GT2HD+G(=^[(H0)GC)H--I->IK)IT>GT4HD\H0?@L@@@@MW )@@G@@^[-H-4H[\I($H@)HD4^[!GD9^[+G*)H(>H14HD\H1>G))H[>IL>^[4H[-I))H15H(>IL(GS)MX )@@G@@HD4G(!IS)HD,^[3I[>GT(G1(GT- *)@K@@@@^[4HD\H13^[-IL>^[(H14G(2I[2G(4G(=^[-MY )@@G@@IS)H9JC)GT\H14GD(H0)GC)H->GD=HD,G8)JL>IL\ ))@K@@@@^[=G( 0)^[^G(&GD5H-4^[6GD?I(>IS)G1\IK)I-*G(3G*)IT0G(@A@@@@^[-H-3H8)G(8I[?GD(H1>G))I-*G(2G*,^@)@]@@@@ETKCD#NB )@@G@@C*)^@)@C@@@@DDIC- F@)ET9H14GD8^[>IL2H92 ))C-S^[IL2H92^@)@K@@@@^@)^@)DD&^[^F@)HL5G-$G(3^[-^[NE )@@G@@^[(H0)G(2IL\IK)IT9H14GDH1=HD,G8)HD4G(!^[7HD4H@)GD,^[J[-H(0H-> ))HD,NG )@@G@@@]@@@@ETKCD#C*)^@)@^@@@@^@"A@4A@0AK-AS)C- CS)^@)@#@@@@^@)^@)^@)^[YB8)^@)NH )@@G@@@]@@@@ETKCD#C*)^@)@H@@@@^[^F@)H[-IS)HD,G-(GT-I->G))I-*G*)G->H-(H((I->IK)NI )@@G@@^K-^K)I-\^[+G*)HD,^[>IL2H92 0)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)E-*G*)GT\H(!NJ )@@G@@GD,G-3^[-I1-HD?GD+H->^[7H[(H->^[(H0)CT\H14IL\H))D(\G->^[IS'@]@@@@ETKCD#C*)^@)@]@@@@NL )@@G@@CTJD-PD(I^@6@#@@@@D[TE[CC(I^[JC1A^@)@K@@@@^[- C)^[=G(3GT2HD0I-(H9,^[\G0)NM )@@G@@I-*G*)I(3G(2^93^[\I[>IL-I-(H1$^[>H16HD2H9,H(>H14BK)^[[C-^EL ETN ))@F@@@@NN )@@G@@^@)^@)^[[CLNE1[D-PC*?^[]CDIDS?^[ D1OELT ))D([E@?^[KCTO ))E[NEK;^@)@]@@@@NO )@@G@@ETKCD#C*)^@)@L@@@@^[+ C)^[(H13I[>GT4HD\H0)GD,G)\H92^[!H9=HD&HDG9(IT4G(2^[H14IS'^@)@C@@@@^@)^@)^[KELDD1O ))NQ )@@G@@C1DD1^ ))C1HCDNDS?^[#D[[D1BC*;@]@@@@ETKCD#C*)^@)@K@@@@^[< C)^[!H9=HD&HDIL(IT4HDIK)GL2G(-HT0H9(H14IS'^@)ET E)?^@)@ @@@@^@)^@)^[#D- NV )@@G@@CDM ))CLMC([DTNBS)@]@@@@ETKCD#C*)^@)@I@@@@^[> C)^[3G(4I-(H1$^[\IK)GT?G(-NW )@@G@@IL(H1$^[-H0)H90G(2GD,G))GD=G-2G(3IS)I-2GD0BK)^[OEL[E@;@]@@@@ETKCD#C*)^@)NX )@@G@@@G@@@@^[& C)^[?G(-I1(H1$^[#H9,I-2H9?^[HH9=G*'^@)ETOC(K ))C9J ))DLPD(K ))NY )@@G@@F[^F@;@]@@@@ETKCD#C*)^@)@L@@@@^[$ C)^[!HD3GT>H-?GD,G(\I(3BK)^[KC9HCTOEK?NZ )@@G@@^[ F[ CTPE- ))C(QCDGE([E- ))C(MELHETB ))D[ D-K ))D(JEL 0)@]@@@@CTJD-POA )@@G@@D(I^@2@#@@@@D[TE[CC(I^[JD0)^@)@]@@@@ETKCD#C*)^@)@K@@@@^@)^@)E-*G*)G1\H-?OB )@@G@@H97HD,G8)IT5GL3G(IT^[-H-?^[4H[>IT>^[^[\G0)G(-GT*^[3I(+IT>GT4HD\H0)IT*H97IS)I-*G*)GT\H(!OD )@@G@@GD,G))G1\IL!GD4 0)@]@@@@ETKCD#C*)^@)@C@@@@ATPIT>IK$IS)D90G(2GD4HD,G8)C(,OE )@@G@@I1(IL\H1!G(,I))^@)@ @@@@A)"CD^C-MC(NES*CC(^[VGD=G-2F*)@A@@@@DDIC- F@)CD^OF )@@G@@C-MC(NES)GT\H(!GD,G))^@)@^@@@@DDIC- F@)CC)GT\H(!GD,G))@L@@@@^[DG0)GD=G-2OG )@@G@@^[+G*)IT0G(G)?^[0IL(H14^[(I-3^[-GL3H9?I(4G*)GD,G))IL>H--I-(I1>^[>OH )@@G@@ID5HD6GD?G(,I-3 0)@L@@@@^[DG0)I(,IT0G(G)?^[4H[>^[?GD3I))I[2G(6HD\OI )@@G@@I(3^[-G-=IL>IT3^[2G(&G(2IL>G))I-\^[(IS)GD3IT5H(>G),^@)@]@@@@ETKCD#C*)^@)OJ )@@G@@@D@@@@A)"CL[D1F^[VGL-H1: (,GD!G(X^@)H92^@)B1]CDIDS)^T+G-(^@)@ @@@@DDIC- OK )@@G@@F@)CL[D1F^[^[?HD!HD4IS)GD,G))H94OL )@@G@@H[>IK)GT*GD2GDIL(IT4HD^[3I[>GT(G1(G(=@L@@@@^[+GD,HS,^@)OM )@@G@@D1\I->BK)^[OH[>^[!GD(H0)DC!GL-H1:^[7HD?H))GL>^[&H95H1=^[4H8)H[-I1>^[+G(>ON )@@G@@H0)G(8I[-H1=G(=^@)@L@@@@^[+JC)C-S^[4H8)GD+H95I))A06A@0^[7H92G-3^@*A@1A*)OO )@@G@@GT\IL>^[+H-\GT:IS(^[5H1?G(3IS)HD4^[7GD3^[(H1(I-(GD? *)@L@@@@^[?JC)H9&^[-OP )@@G@@I))H->GD3I))I-*GD4^[3HD'G*,^@)E-*HD3^[^@)@C@@@@^[^F@)G1(IL3I))G(,I->IL3^[#H9,I-2H9?^[HH9=G*,^@)OR )@@G@@@]@@@@ETKCD#C*)^@)@^@@@@A)"D([E@*D*(^[VDDXFT^F*)@ @@@@DDIC- F@)D([E@)GT\OS )@@G@@H(!GD,G))^@)@^@@@@DDIC- F@)D*)GT\H(!GD,G))@K@@@@^[NH[\I8)I-*G*)IT4GD2I))OT )@@G@@GD=G-2G(3IS)G1\IK)G(-GT*^[>H->H(>H14^[-H1=^[?H9IK)HD,OU )@@G@@@L@@@@^[4H[>^[3I[>GT(G1(G(=^[+GD,HS*IS(^@*DC)GD,G)\H92^[^ C,^@)E-*G*)I[2OV )@@G@@H9$IL-H*)IT4GD2I))GD=G-2G(3IS)HD3^@)@#@@@@^[-H-3H8)IT*H97H0,@]@@@@ETKCD#OW )@@G@@C*)^@)@]@@@@A)"E[#E))^@)@ @@@@DDIC- F@)E[#E))GT\H(!GD,G))^@)@L@@@@^[DH1=OX )@@G@@HDH14H-9^[-IT3HD$H1>OY )@@G@@G))I-\^[4H[>^[2I(, 0)^@)@]@@@@ETKCD#C*)^@)@B@@@@A)"E[#E))FT+H-\GT: 1XG17OZ )@@G@@^[VI9G))GL?H9^[KCTO 0)^@)@K@@@@^[OH[>^[?H97PB )@@G@@G(3I)) [-H1=^[=G(&GD5H-4 C)GL?H9^[?HD3I-(H1$PC )@@G@@^[&H92H(-I))@H@@@@^[7HD?H))GL>^[*GD?G0!I9\IL=^[\GT4GD?^[5H1?G(3IS)H94H[>PD )@@G@@IL7HD3G*)IT0G(G),@]@@@@ETKCD#C*)^@)@ @@@@A)"E[NEK)FT^HS?C-? -^H*?PE )@@G@@ 0, 1X@^@@@@DDIC- F@)E[NEK)GT\H(!H1=@L@@@@^[DH1=HDG))E[NEK)H(\G->^[+HD4IS)GDIT3HD+H->^[4H8)^@)PG )@@G@@@L@@@@^[4H[>^[5IT>IK)I1(GC)I-*G*)H[-IL=I9-IL>^@+ETKC)+^[(H13I-2I(^[!G(-H1(H1$^[\G0)G(-GT*^[\G0)I-*G*)GL(I-3^[(IS)HD,G-(GT-I->G))HD,^@)PJ )@@G@@@K@@@@^[4H[>^[2G(3I[\H13G*)I-\^[4H[>^[PK )@@G@@^[3I[>GT(G1(G(=^[(H0)I-*G*)^@)@K@@@@^[BK)^[KETM^[+HD4IS)GT-H0)GL>^[-H-4G(2G(=^[+JC)^@)@ @@@@^[$HD6PM )@@G@@HD,G8)I-*G*)GT\H(!GD,G))@]@@@@ETKCD#C*)^@)@ @@@@^@"C(SC(#E(OC*)D-KC))H1,PN )@@G@@H0)^@)@]@@@@ETKCD#C*)^@)@D@@@@^[7H[>IL>^[,H1,^[(IS)I-*G*)G->IT(IL>G))IT>PO )@@G@@I-4HD,G8, C)@]@@@@ETKCD#C*)^@)@^@@@@A)"C(IE-MFC)FT3JD!GL\H-X@ @@@@DDIC- PP )@@G@@F@)C(IE-MFC)GT\H(!GD,G))@B@@@@DDIC- F@)ET9H(+H9? ))G(,I-2JC)I[\HD,I))^@)PQ )@@G@@@B@@@@DDIC- F@)ET9H(+H9? ))G(8I->IL,GD?HD'G(=^@)@ @@@@DDIC- F@)C(,I-2JC)PR )@@G@@E[\HD,I))^@)@A@@@@DDIC- F@)C(,I-2JC)E[\HD,I))E--GL?G*)@L@@@@^[BHD6G*)I-*PS )@@G@@G*)IL>H--I-(I1>^[-H1=^[-GL3H9?I(4G*)GD=G-2G(3IT>IS)GD3IT\GT(GD4G(=^[7HD4PT )@@G@@H@)I-*G*)IT0G*!^@)@L@@@@^[G))G(8I->IL,GD?HD'G(=^[3JD!GL\H)) [>H14PU )@@G@@IL9^[0H9(H14 C,^@)DD&^[,H8)IT9H(+H9?^[+G*)IT0G(G)?^[4PV )@@G@@H[>^[>H14HD2G*)C(,I-2JC)E[\HD,I))E--GL?G*)G1\IK)I-*G*)I[2H9$IL-H*)HD3^[?PW )@@G@@HD3I->G),^@)@]@@@@ETKCD#C*)^@)@ @@@@A)"CD]ETQCDGE( ^[VIT9H(+H9?F*)@A@@@@PX )@@G@@DDIC- F@)CD]ETQCDGE( ^[^[QGD?I(>PY )@@G@@^[OGD+H->^@)@B@@@@DDIC- F@)ET9H(+H9? ))GD+IT\H-5I->^[6GD?I(>@L@@@@^[BHD6PZ )@@G@@G*)I-*G*)H15H(>IL(GS)I1-H-5G*)GD3IT\GT(GD4G(=^[7HD4H@)I-*G*)IT0G(QA )@@G@@G))G(8I->IL,GD?HD'G(=^@)@K@@@@^[3JD!GL\H),^@)DD&^[,H8)IT9H(+H9?^[+G*)IT0QB )@@G@@G(G)?^[4H[>^[>H14HD2G*)CD+IT\H-5I->^[QGD?I(>^@)@D@@@@^[OGD+H->^[&QC )@@G@@H92^[4H[>^[0IL\G92GD!^[(IS)H-(IT4G(= 0)^@)@]@@@@ETKCD#C*)^@)@B@@@@AT#H92QD )@@G@@G*)CD,G))EL>G9(IT4G(2^[#H9,I->H14IS)@B@@@@A)"FTKELDD1O^[XFT-G-=ILX^[VI9^[H14IS)@B@@@@DDIC- F@)CT\IL>^[H14IS?^[?HD3I-(H1$QH )@@G@@@C@@@@DDIC- F@)D-(IT4HD,G8)IL>G9(IT4G(2^[H14IS)@C@@@@DDIC- F@)EL>QI )@@G@@G9(IT4G(2^[H14IS?^[?HD3I-(H1$@L@@@@^[GHD3I))I-*G*)GT\H14G(,I-3^[\QJ )@@G@@G0)I9<^[7H92G-3^[\G0)GT\IL>^@*H92^[7GS)IL>G9(IT4G(2IS(^[3I--IL4HD,G8)^@)QK )@@G@@@K@@@@^[7HD4H@)I-*G*)I9\IL=^[7H[\IT>^[-G-=IL>IT3^[(IS)GD=G-2^@*H92^[2G($QL )@@G@@HD3I->IK)I9*H93G*)H1-H(>^[(IS)@L@@@@^[-G-=IK( 0)^[GHD3I-(H1$^[(IS)G-\H1>QM )@@G@@^[5IT(H1$^[4H[>^[=G(&GD5H-4^[&H92H(-I))I(,H->IT3^[-H1\I-*G(2^[+G*)@L@@@@QN )@@G@@^[2G(1I(>IT4G(= ))I(3HD,G8)I-*G*)G1!I))IT0G(< ))HD,^[7H[(GT*^[^[3I[>GT(G1(G(=^[&H92H(-I))@L@@@@^[+G(^[,G(7^[=G(&GD5H-4QP )@@G@@^[&H92H(-I))G1\IK)IT5GL3G(1I(>H14^[KELDD1O^[^[7GS)IT0G(^[\H((I-4G(= ))I-*G*)H--IT4^[0IL>I1(QR )@@G@@H95IT?JC)IT0G(G))@K@@@@^[6GD?I(>^[(IS)I(3G(= 0)^[DG0)HD4^[+G*)G9(QS )@@G@@I1>H0?^[(I))GL>GT\H(>IS)I-*G*)H1>I8)G->G1-I(?I))I9< 0)@]@@@@ETKCD#C*)^@)QT )@@G@@@J@@@@^[IH94G*)I-*GD4^[4H[(IS)HD3^[4H[>^[\H1>^[^[,GD!QU )@@G@@G*)H(-JC)GL>^[\H((I-4G(=@L@@@@^[>H14HD2G(?JC! (4H[>^[0IL>IT>H1^[\I-*G(2^[3I[>GT(G1(GT-I-(H9,IS)^@)@L@@@@^[(H(0QW )@@G@@H-(G(3^[KELDD1O 0)^[[H0)G(,I-(IL>H-9^[6H9(G))GT\H(!GD,G)?^[*H97G(6G(2^@*QX )@@G@@HL5IT4^[-^[IS)I-*G*)GT\H(!GD,QY )@@G@@G))ETOC(K^@1 0)^@*ET>G*)C- C1[E(GE))GT\H(!GD,G), C)^@)@]@@@@ETKCD#C*)^@)QZ )@@G@@@C@@@@A)"CTCCDIC9 [# C)FT-G-=ILX^[VI9^[H14IS?^[IK)GT\H14G(,I-3@D@@@@DDIC- RD )@@G@@F@)EL>G9(IT4G(2^[H14IS?^[^@*H92^[7GS)IL>G9(IT4G(2IS(^[3RF )@@G@@I--IL4HD,G8)@K@@@@^[7HD4H@)I-*G*)I9\IL=^[7H[\IT>^[-G-=IL>IT3^[(IS)GD=G-2RG )@@G@@^@*H92^[2G($HD3I->IK)I9*H93G*)H1-H(>^[(IS)@K@@@@^[-G-=IK( 0)^[AH92^[>GD^[G))GD,G))I-*G*)G->IT(IL>G))IL>I[?GDH-9^@)@K@@@@^[&H9?H-\I9(H1$^[4H[>^[?HD3I->G))I1-RK )@@G@@H-5G*,^@)D-(IT4HD,G8)HD3^[=H9,G*)I(3HD,G8)I-*G*)G->G1-I(?I))@K@@@@^[&H92RL )@@G@@H(-I))I(,H->IT3^[-H1\I-*G(2^[+G*)IL>ID5G(3I->G)?^[5IT(H1$^[4H[>^[&H(4^[3RM )@@G@@I[>GS,^@)AS6 (+HD4@K@@@@^[6GD?I(>IS)H(-JC)GL>^[>H14G(2G(=^[5IT(H1$^[-H19RN )@@G@@^[\G0)I-*G*)G1\IL!GD4IS)G->ITG))H--I->IK)@K@@@@^[5H1=G(2^@+DD,I[5RO )@@G@@I))E1-H-5G*)C1\IL!GD4IS+ 0)^[PI[\H0)IL>GT>HD6HD,G8)I-*G*)H1>I8)I1-H-5G*?RP )@@G@@^[4H[>@L@@@@^[3GD!G*)I[2H9G))G1\IK)IT5GTG-(H1$RQ )@@G@@^[7H92G-3^[5H14HD?^[4H[>^[7H92G))GT\I(,I))@^@@@@^[(IS)G(8H[-I(3I->G),^@)RR )@@G@@@]@@@@ETKCD#C*)^@)@K@@@@^@)^@)DD,IT4G(-G))H9&^[>H14G(2HD,G8)GC)I1-H-5G*?RS )@@G@@^[4H[>^[&H9?H-\I9(H1$^[2G(3I[\H13G(3^[G))IL>IT5H-4IS'^@)@]@@@@ETKCD#C*)^@)@#@@@@DDIC- F@)C[@RU )@@G@@F@)CS)@B@@@@^@"F0)^@)^@)^@)GL-GT:IT0GDIL!HD,GD4G*)CTCCDIC9 ^[F(X@ @@@@DDIC- F@)C1DRY )@@G@@D1^^[^[2G(!GD(H1=G(2^[\G0)I-*G*)GL-H1:^[(SA )@@G@@IS)^@)@K@@@@^[3G(-ILG))G1\IK)GC)H(-I-G))SB )@@G@@AS6 (+HD4^[6GD?I(>^@*IT>G*)^LDH10I(4@K@@@@^[QGD?I(>^[AH92H(-I-3^K( 0)^[DSC )@@G@@G0)H1\^[6GD?I(>^[+G*)IT0G(G)?^[4H[>^[6GD?I(>^[&IL\H*)I-*G*)@K@@@@SD )@@G@@^[?GD3I))I[2G(6HD\I(3^[ADDIC))GT\H(!GD,G))HD3^[5IT>G),^@)E-*HD3^[(IS)GC)SE )@@G@@H(-IT:G(=^[3G(-ILH0)^@)@]@@@@ETKCD#SF )@@G@@C*)^@)@E@@@@CT D1OC(M^[7H92G),CDIC),H(-IT:^@.^[6GD?I(> 1[D1^ 1!GD3HS)^@)SG )@@G@@@]@@@@ETKCD#C*)^@)@L@@@@^[OH[>^[!GD3HS)HD3^[(H1(I-(GD?H-9^[4IL-H13I[-IL>SH )@@G@@H14^@* *0 C)GL5I))GT-H0)GL>^[-H-4G(2G(=^[+JC)I-*G*)^@)@A@@@@^[AD([ETF^[^[-G-=IL>IT3^[7H[>IL>^[4H[>^[&HD,G))H9IL>GD&I->IK)GT-SK )@@G@@H0)GL>^[2G(&G(2G(,GT>G))@L@@@@^[+JC)I-*G*)IT9H(+H9?^@=C0,^@)DD&^[+H94H@)SL )@@G@@GD=G-2^[-H1=^[6GD?I(>^[+G*)H9!HD4I->G))HD,^[-^[3I(+IT> *)^@)@J@@@@^[1I(>SM )@@G@@H14^[ADDIC))GT\H(!GD,G)?^[3G(-ILH1F*)@ @@@@DDIC- SO )@@G@@F@)C1HCDNDS)GT\H(!GD,G))@^@@@@DDIC- F@)D(-IT: ))C1DD1^@L@@@@^[DG0)H1\^[6SP )@@G@@GD?I(>^[+G*)IT0G(G)?^[4H[>^[6GD?I(>^[\G0)I-*G*)GT5IL2G(,I))H(-IT:SQ )@@G@@^[(IS)IL>I[\IK!^@)@L@@@@^[4G(= 0)^[ H-3G*?^[4H[>^[6GD?I(>^[(IS)GDI[4SR )@@G@@G(=^[-IS)I-*G*)H1>I8)H(-IT:^[&H92^[3I(+IT>ID5G(,I))^@)@L@@@@^[ADDIC))GT\SS )@@G@@H(!GD,G-3 0)^[[H19^@3A0!GL(I))I1-H-5G*)HD3^[-GT^@+DD,ST )@@G@@I[5I))E1-H-5G*)^@)@#@@@@^[AH92H(-I-3^K( 0)@]@@@@ETKCD#C*)^@)@C@@@@ATHH9=SU )@@G@@HD&JD(H1$^[^F@)CT*GD2GDIL(IT4HDH14HD2G(?JC)I1\HD=^[I-5IL, C)GL>^[$HD6G(, ))I-*G*)@L@@@@^[G1-I(?SZ )@@G@@I))GT\H(!GD,G),^@)@L@@@@^[OH[(IS)GT\H(!GD,G)) [^C(ACDPD-O C)GD?H-\I93^[4TA )@@G@@H[>^[2G(0H--GT>H(>H14^[\G0)ETOC(K^@1^[7HD4H@)GD,JC)^@)@H@@@@^[\I-*G(2^[3TB )@@G@@I-2HD,G8)H1\I))G(8GT>G(=HD,G8)A0)GT*GD2GDIL3^[(H0)H->H1$I-* 0)@]@@@@TC )@@G@@ETKCD#C*)^@)@D@@@@A)"D9PE-KE(O [J C)D9AC0)^[\IK)^[JE(OE[PE)*D8(^[JD0)^@)TD )@@G@@@ @@@@DDIC- F@)D9PE-KE(O^[IT3HD\H0)H9&^[0IL(H14G(=^[\I(4I[5I))HD,^[MI(,^[HH9=G*)TF )@@G@@@L@@@@^[OH[>IL>^[-IL>^[(H13I--H1IL>^[4H[>^[0IL\G92GD!^[5H1=G(2TG )@@G@@^[4G(3I))G9>H1>IL-I->IS)GC)H--IL$G*)@K@@@@^[6H9?I(!G*)H9&^[0IL(H14G(=^[\TH )@@G@@I(4I[5I))I9*HDIL>IT4^[7H[(H->^[2I(,H1(H1$@K@@@@TI )@@G@@^[5H1=G(2^[^F@,^@)E-*G*)D9PE-KE(O^[JC1A^[IS)GD?H))H95TJ )@@G@@I-0I(4^[$G(,G(2GD4G(=^@)@K@@@@^[7H[(H->^[(H0)EL5H0)D(\G->^[4H8)GL>^[3I(0TK )@@G@@I[2G(3IT>G),^@)D95I-0I(4^[G(,GD+H->G))GL9@J@@@@^[5IT(H1$^[4TL )@@G@@H[>^[JE(OE[PE))D9I^[^[3I(0I[2G(3IT>G))H95I-0I(4^[!GD9^[?TN )@@G@@GD4G(2^[+G*)G(8GD!HD,G(=^[+JC)GDIT3HD,G8)I-*G*)I[2HD,I))@D@@@@^[&HD?TO )@@G@@G*)^-^F[KELA^[7HD4H@)I-*G*)E->J[4^[ G-(I-\IK,^@)@]@@@@ETKCD#C*)^@)@C@@@@TP )@@G@@A)"C-DET#CD^C))D9I^@)H92^@)C-DET#CD^C))D9AC0)^@)@A@@@@DDIC- F@)C-DET#CD^TQ )@@G@@C))GT\H(!GD,G))^@)@H@@@@DDIC- F@)ET5I[0IL>IT3HD\H0)H9&^[@CD^C->G))HD,I[5TR )@@G@@I))HD,^[#H9,I-2H9?^[HH9=G*)^@)@K@@@@^[DG0)I-*G*)I[2H9$IL-H*)I(,G->IK)I->TS )@@G@@IT4^[(IS)IL>GD=HD,G8)HD,I[5I))G12H9!^[-H0)C[[C-^G(=^[=GD4GC)@L@@@@^[3H95TT )@@G@@ILIL3^[-H0)G(2IL\IK)GT-I(3HD,G8)TU )@@G@@C-S^[4H8)IL>I-5IL,^[4H8)@K@@@@^[#H9,I-2H9?^[HH9=G*?^[4H[>^[2G(!GD(H1(H1$TV )@@G@@^[(H(-G9>IS)G12H9!^[4H[>^[=GD4GC)IT\I(2GT>^[7HD?H))GL>@K@@@@^[(H1TW )@@G@@GT4H-9^[4GD:G(,^[-IS)C-S^[G))GL9^@)@L@@@@^[G))HD!GD$G*)IL>GD=^[7H[(H->TY )@@G@@^[(H0)CT\H14IL\H))D(\G->^[4H8)GL>^[(G9,H92G(=^@)@L@@@@^[-H1=^[=HD3GT-IL=TZ )@@G@@G(= 0)^[OH[(IS)G1>GD4I(2G*)GT-H0)GL>^[=HD3GD+H->G))I9(I-*^[4H[>^[^DDNCT[UA )@@G@@C-^^[JC1A^@)@L@@@@^[H1-GL?G(=^[7HD4H@)I-*G*)C-DET#UB )@@G@@CD^C))D9I^[^[(IS)D9IUC )@@G@@ 0(^@)@]@@@@ETKCD#C*)^@)@A@@@@ATK (2G($HD3I->IK)CL2G(-HT0H9(H14IS)@C@@@@UD )@@G@@DDIC- F@)CL2G(-HT0H9(H14IS?^[K (2G($HD3I->IK)^@)@B@@@@DDIC- F@)E@!IL>G9(UE )@@G@@IT4G(2^[+IL>GD:I[\HD,I-3@B@@@@DDIC- F@)DD!I[?GD,I->G))GL2G(-HT0H9(H14IS)UF )@@G@@@#@@@@A)"ET E))FT-G-=ILX@ @@@@DDIC- F@)ET E))GT\H(!GD,G))^@)@L@@@@^[DH(0UG )@@G@@H--H14^[-^[+IL>GD:I[\HD,I))GD4^[4H[>^[3I[>GT(G1(G(=^[-G-=IL>IT3 0)^[OH[>UH )@@G@@^[-G-=IL>IT3^[,G(>G))^@)@L@@@@^[,H94^[+G*)HD,^[-^[H14H-9 (?H9-G->UI )@@G@@G))IT>G9!G(,I),^@)E(0^[4H8)AC6^[(H(0H--H14G(=^[+IL>GD: *)^@)@G@@@@^[0H9(UJ )@@G@@H14IS)H(-JC)GL>^[(H0)G(8HD3I->H1^[&HD2IT4^[&H92H*)GT?G(-IL3^[4H[>^[(UM )@@G@@H(0H--H14G(=^[+IL>GD:I[\HD,I))GD4^[4H[>^[3I[>GT(G1(G(=@J@@@@^[-G-=IL>IT3UN )@@G@@ 0)^[OH[>^[3G(GD2IS)GD?H))HD!I[?GD,I->G))GL2G(-HT0H9(UO )@@G@@H14IS,@]@@@@ETKCD#C*)^@)@#@@@@A)"CLMC([DTN [] C)@ @@@@DDIC- F@)CLMC([DTNUP )@@G@@^[IK)H9&^[-ITIT3 ))GD?H))GT5IL2G(,UR )@@G@@I-?JC)HD!I[?GD,I->G))GL2G(- *)@K@@@@^[:I[\HD,I-3 0)^@*E[2H9$IL-H(!G(=^[+US )@@G@@IL>GD:I[\HD,I-3^@*^L^F[]ELF^K(^[-IL>^[,H94^[?HD3I->G), C)^@)@]@@@@ETKCD#UT )@@G@@C*)^@)@B@@@@ATOIL-I[0HD,G8)D90G(2GD,G))CD=G-2G(3IT>IS)@B@@@@DDIC- F@)CL2UU )@@G@@G(-HT0H9(H14IS?^[\I[>IL-H1=^@)@L@@@@^[OH[(IS)G1>GD4I(2G*)HD3^[-I1-HD?GD+UV )@@G@@H->^[\H1?JC)H9,^[4H[>^@1AC1A@?^@1AC0A@\A)0^[-H1=^@1AC0A@\B@0^[-IS)@L@@@@UW )@@G@@^[(I))IL>ID5HD2G(3^[4H[>^[+IL>GD:I[\HD,I))IL>G9(IT4G(2^[*GD2G-7GD2G*)G1\UX )@@G@@IK)HD4IS)G15H1IL-H1=VA )@@G@@^[-G-=IL>IT3^[4IL-I@,^@)C-5IL(H1$^[3I(+IT>ID5G(,I))I[2H9$IL-H*)G(8G(HD4H[>IK)HD,^[MI(,^[HH9=G*)H92^[7H[(H->^[3I->I[0HD,G8?^[-VC )@@G@@H0)HD,I->IL2I(0I))I9(H-?^[\GTGT4HD6G*)H90VD )@@G@@G(2GD,G))GD=G-2G(3IS)I*)HD3^[>H1GD=HD,G8)^@)VE )@@G@@@B@@@@^[-H1= 9\IK)I92HD4HD,G8)IT5GT*^[4H[-I))^@)@]@@@@ETKCD#C*)^@)@C@@@@VF )@@G@@CT D1OC(M^[5 1JEK,H(-IT:^@.^[-G-=IK,D9M 1!GD3HS)@]@@@@ETKCD#C*)^@)@L@@@@VG )@@G@@^[OH[>^[(H14G(2IL5I[4^[\GTH1G))I-\^[2G(-G-3VH )@@G@@^[&IL\H*) [7IL(I->IS)I-\ C)^@)@L@@@@^[!GD(H0)IT4H92GD$G*)GD3^[\I[4HD\H0)VI )@@G@@EK) [R C)HD3^[3I[>GT(G1(G(= 0)^[DG0)H1>HD4H[>IK)EK)H1\IK)E8)GL>^@)@C@@@@VJ )@@G@@^[3I[>GT(G1(G(= ))GL\I-*^[-IL>^[-IT3I(!G(= 0)^@)@]@@@@ETKCD#C*)^@)@L@@@@VK )@@G@@^@)^@)E-*G*)G(1I(-H-(I-9^[!GD3HS)H(-JC)H1\I))G(8GT>G(=^@0A87^[-H1=^[IT3G(3 0)^[ J[-H(0H->BK)^@"E-MCDK^@0A)0AK2AS)E8)A@1A8)I9(H-?^@)@J@@@@VN )@@G@@^[4IL-I@)GD?H))I92HD4G(3^[4H8)H(-HD,^[3I-\IL-G9>^[(H0)I-*G*)IL-H1$G*)H9&VO )@@G@@^[-G-=IL>IT3G(3^@)@L@@@@^@0A)0AK2A@!A@4A@2AS7 0)^[DG0)H9!HD4I->G)?^[!GD3VP )@@G@@HS)B*)A@)HD3^[-IT3I(!G(= 0)^[#H95H14^[,^[!GD9^[,H94^@)@^@@@@^[>J[G))VQ )@@G@@A@7A87 0)^@)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)C9(I1(H1$^[4H[>^[-GL\I1>^[H-3^[-H19^[0IL>I1(H95IS)IT(H((H--IK)GT\H(!GD,G),^@)@K@@@@VS )@@G@@^[JH1?JC)H9,G*)GD=G-2G(3IS) [\IK)GL?H9IT3G(3 C)GT-H0)GL>VT )@@G@@^[3I[>GT(G1(G(=^[&H92^@)@B@@@@^[4IL-I[0HD,G8)GD4^[-H19^[$HD6G(,^[4HD!G*,VU )@@G@@@]@@@@ETKCD#C*)^@)@#@@@@A)"E-MCDK [O C)A@)@E@@@@^[#GD,GT>H))GD?H))H90G(2VV )@@G@@GD,G))GD=G-2G(3IS)I-2GD0I[(H1$ 0)^@)@]@@@@ETKCD#C*)^@)@#@@@@A)"E-MCDK [OVW )@@G@@ C)^@)@K@@@@^[GHD3I))I-*G*)H(\IT4^[2G(G))H90G(2GD,VX )@@G@@G))GD=G-2G(3IS)I-\^[+G*)I-2GD0I[>G),@]@@@@ETKCD#C*)^@)@A@@@@ATGG(-I1(H1$VY )@@G@@^[#H9,I-2H9?^[HH9=G*)^@)@^@@@@A)"ETOC(K [N C)FT,F*)^@)@ @@@@DDIC- F@)ETOVZ )@@G@@C(K^[WA )@@G@@ (^[3I->I[0HD,G8)HD,^[MI(,^[HH9=G*)@L@@@@^[MG(3I(!G*)EL5H0)D(\G->WB )@@G@@^[-H1=^[>J[>GT5I->^[4H[>^[,G(8I))H0)HD,IT4IL5GT4HD\H0)GT9GT?G(3 0)^[OH[>WC )@@G@@H0)^@)@L@@@@^[2G(4I(2H0)I-\^[#H9,I-2H9?^[HH9=G*,^@)DD&^[,^[(IS)H1\I))IT0WD )@@G@@G(G)?^[-^[3HD,G9?G*)GT9GT?G*)HD3^@)@#@@@@^[-IT3I(!G(= 0)^@)@]@@@@WE )@@G@@ETKCD#C*)^@)@K@@@@^[[H0)G(,I-(IL>H-9^[6H9(G))GT\H(!GD,G)) [%I(3I))GC)GT-WF )@@G@@IL2HD-G9>^[2G(4I(2H0(^[(H(0H-(G(3^@+ETOC(K@E@@@@^@1^K,^@) [CH97G(6G(2 ))WG )@@G@@IT>G*)C- C1[E(GE))GT\H(!GD,G), C)^@)@]@@@@ETKCD#C*)^@)@#@@@@A)"C9J [B C)WH )@@G@@FT,F*)@^@@@@DDIC- F@)C9J^[ ))IL>I-5IL,HD,G8)I-\@K@@@@^[MG(3I(!G*)EL5H0)D(\G->WJ )@@G@@ ))IL>I-5IL,HD,G8)I-\^[#H9,I-2H9?^[HH9=G*)H9,H-9^[-G14G(2^[,^[+IL>GD: *)WK )@@G@@@K@@@@^[0H9(H14IS)GD2G*)G(,GT\I(,I->IL>G)?^[\IK)GD4^[0IL\G92GD!^[4G(2H((WL )@@G@@H1-I-(H9, 0)^[DG0)H0)HD3^[,H94@K@@@@^[3I[>GT(G1(G(= ))I1-H-5G*)AC)HD3^[-WM )@@G@@IT3I(!G(= 0)^[#H95H14^[,^[!GD9^[,H94^[>J[G))A@7A87 0)^@)@]@@@@ETKCD#WN )@@G@@C*)^@)@#@@@@A)"C9J [B C)GD=G-2@K@@@@^[MG(3I(!G*)EL5H0)D(\G-> ))IL>I-5IL,WO )@@G@@HD,G8)I-\^[#H9,I-2H9?^[HH9=G*)H9,H-9^[-G14G(2^[>HD4H[>IK)GC)@L@@@@^[+IL>WP )@@G@@GD:I[\HD,I))H92^[4H[>^[(H13I-2I(G))GD=G-2WQ )@@G@@G(3IS)HD3^[>H1GT4 ))GC)H9,G*!I-(WR )@@G@@H(>^[+IL>GD:I[\HD,I))HD3^[(H(0H--H14G(=^[-I))I-*G*)IT0G*!^@)@K@@@@^[G))GD=G-2G(3IS)GL>G1\IL>^[2G(3I(!HD,G8)EL5H0)D(\G-> ))I-*G*)GL2G(-HT0WT )@@G@@H9(H14^[+G((H1$^@)@E@@@@^[2G(!H96G(=^[5I[\H0)IL>G(,I->IL(H1$^[#H9,I-2H9?WU )@@G@@^[HH9=G*,^@)@]@@@@ETKCD#C*)^@)@L@@@@^[OH[>^[G15H))G1\IK)IT4G(0I[(H1$^[4H[2H95G9*^[3I(+IL\I(4HD,G*)@]@@@@WW )@@G@@^[^[3I[>GT(G1(G(=WZ )@@G@@^[-G-=IL>IT3 0)^@)@K@@@@^[OH[(IS)GT\H(!GD,G))H(-JC)GL>^[5IT>G))G(6G(,^[-XA )@@G@@G14G(2^[4H[>^[0IL\G92GD!^[*GD3^[4G(2H((H1-I->G)?@K@@@@^[>HD4H[>IK)H1\IL!XB )@@G@@GD?H-9^[\IK)HD,^[>IL2H92 0)^@*ET>G*)GD?IT\^[4H[>^[KC9HCTOEK)GT\H(!GD,G),XC )@@G@@ C)^@)@]@@@@ETKCD#C*)^@)@]@@@@A)"F[^F@)^@)@ @@@@DDIC- F@)F[^F@)GT\H(!GD,XD )@@G@@G))^@)@A@@@@DDIC- F@)C(SC(# ))IL>I-5IL,HD,G8)I-\@L@@@@^[MG(3I-\IL>^[-H-?XE )@@G@@^[2G($HD3I->IL3^[7HD4H@)I-*G*)GT\H14G(,I-3^[4H[>JC)H[-G))I9*G(,^[MI(,^[HXF )@@G@@H9=G*)I9-IS)@L@@@@^[?GD3I))G(8HD4G(=^[-H1=^[2G(4I(2H0)GT\H14IL\H))I-\^[ XG )@@G@@F[ CS,^@)CD,^[SC-S^[H1>I1>IK)GD,^[ F[ CS)GT\H14IL\H))IT4GD4G(!G(,I))HD3^[4JD0G(=^[(H0)XI )@@G@@H-(G(5^[\G0)@K@@@@^[-^[G9(IT4G(2^[2G(3I-\IL-I-(XJ )@@G@@H9,^[(IS)G1\IK)I[5IL0H93G(3^[\G0)GD,JC)^@)@ @@@@^[3I(+IT>ID5G(,I))C[KD(^XK )@@G@@ 0(^@)@]@@@@ETKCD#C*)^@)@A@@@@ATHHD3GT>H-?GD,G(\I(3^[#H9!H(-H1=IS)@ @@@@XL )@@G@@A)"E[BD(#E-M [K C)FT-G-=ILX^@)@ @@@@DDIC- F@)E[BD(#E-M^[IK)GT\H14G(,XN )@@G@@I-3 ))GD?I->IL(H1$@K@@@@^[OH[(IS)GT\H(!GD,G))HD3^[3HD!HD?GD2^[4H8)I-*G*)XO )@@G@@DLPD(K^[^[0IL\G92GD!@L@@@@^[^[,G(8I))HD,IT4IL5GT4XQ )@@G@@HD\H0)I-\^@)@K@@@@^[+G*)G(8G(G))GD=G-2G(3IS,^@)E(,H-(HT>^[EE(HE@?^@)@L@@@@^[*H97G(6G(2 ))C-S^[2G(!XS )@@G@@GD(H13^[(H0)CT\H14IL\H))D(\G->^[(H0)GD,I-(GT(I[-I-(H9,^[\G0)GC)ETOC(K ))XT )@@G@@C9J^@)@ @@@@^[\IK)DLPD(K^[IT3^[+G*)IT0G(G)?^[4H[>^[H14^[H14IS)H9&XV )@@G@@^[4H[>^[0IL\G92GD!@F@@@@^[G))GL5I))IL>H(-HD,XW )@@G@@IS)I(,GD?I->IL>G),@]@@@@ETKCD#C*)^@)@ @@@@A)"C(SC(#E(OC**C*(^[VGD=G-2F*)XX )@@G@@@A@@@@DDIC- F@)C(SC(#E(OC*)GT\H(!GD,G))^@)@^@@@@DDIC- F@)C*)GT\H(!GD,G))XY )@@G@@@L@@@@^[ J[>GT5I->^[4H[>^[(H13I-2I(G))GD=XZ )@@G@@G-2G(3IS,^@)E-*HD3^[!GD9^[-H-4G(2^@)@L@@@@^[2G($HD3I->IK)GD,G)\H92^[IL3^[4H[>^[K (2G($HD3I->IK)H9,H-9^[(G0)^@)YB )@@G@@@J@@@@^[4H[>IL>^[+G*)GC)GL2G(-HT0H9(H14^[H14H-9^[-GT4HD6G*?^[3HD,YC )@@G@@GT>^[\I-*G(2I9(IT>^[4H[>@K@@@@^[K (2G($HD3I->IK)GT\H14G(,I-3^[(IS)I(,G->YD )@@G@@G1(H1>G),^@)C-S^[2G(!GD(H13^[(H0)CT\H14IL\H))D(\G-> 0)@]@@@@ETKCD#C*)^@)YE )@@G@@@A@@@@A)"C(SC(#E(OC**C*(^[(H13I-2I(GT5I->^[4H[>^[3I[>YF )@@G@@GT(G1(G(=^[!GD^[(H13I-2I(^[2G(!GD2HT3^[(H(!G(=HD-YG )@@G@@I-> *)@K@@@@^[?JC)GD+H96G*)GD0I[?JC,^@)E-*G*)HD,IT4IL5GT4HD\H0)H(-JC)GL>YH )@@G@@^[3I[>GT(G1(G(=^[(H0)GD,JC)H9&^[4H[>@I@@@@^[&H92H(-I-3^[=G(3GT2HD+G(=^[+YI )@@G@@G(?H97^[5H1=G(2^@+DD,I[5I))E1-H-5G*)C1\IL!GD4IS+ 0)^@)@]@@@@ETKCD#C*)^@)YJ )@@G@@@ @@@@A)"CTHD-DETO^[VH-(IT4^[,GD!G(X@ @@@@DDIC- F@)CTHD-DETO^[^[7H[>YL )@@G@@IL>^[\H1>^[7HD3H[>IS)I-\^[2G(0G(-I))GC)H15H(+G(2^[\G0)I-(H(>IS)^@)@K@@@@YM )@@G@@^[7HD4H[\I(4^[-H-4G(2GD4HD\H0)GC)IT>ID5G(,GT>^[\G0)C-S^[@L@@@@^[!HD$H[4^[7HD3H@)I-\^[3I->I@)I-*IL\I($H@)YO )@@G@@GC)A8!HD,IT4IL5GT4HD\H0)H-\H90^[!GD,JC)I-(H(>IS?^[>GD^[H14IS)H9&^[-AS)GD,G))H-\GT-I-(H9,^@0A)0YQ )@@G@@AK3A@,^@)D9,G*)GT-H0)^@)@L@@@@^[>H14G(2^[-^@+GT-H1,G(=^K)H-(IT4^[\G0)C-SYR )@@G@@^[G))GL9^[4H[>YT )@@G@@^[=G(3HD2G(=^[IL!HD,GD4G*)I-*G*)H-(IT4^[7HD4H@)^L@C(JYU )@@G@@C0+ 0)@]@@@@ETKCD#C*)^@)@E@@@@^[AH92^[4H[>^[>J[-H(0H->^[-GL\I1> ))H9,G*)YV )@@G@@I9\I(?G))I-9I[>^@)@]@@@@ETKCD#C*)^@)@]@@@@^@"CTHD-DETO@]@@@@ETKCD#C*)A@)YW )@@G@@@#@@@@^[#BLNE- E@)A8)^@)@]@@@@ETKCD#C*)A@)@]@@@@^[#BL[AS)^@)@]@@@@ETKCD#YX )@@G@@C*)A@)@#@@@@^[#BK0A)0AK3A@)^@)@]@@@@ETKCD#C*)A@)@]@@@@^[#BL@C(JC0)@]@@@@YY )@@G@@ETKCD#C*)^@)@A@@@@DDIC- F@)F[#D(GDDNE))GT\H(!GD,G))^@)@L@@@@^[OH[>IL>GD&YZ )@@G@@I->IK?^[4H[(IS)H-(IT4^[\G0)GT\H(!GD,G-3^[G))I9(I-*^[4ZA )@@G@@H[>^[SCTHD-DETO^@)@B@@@@^[ ))GT\H(!GD,G))H-(IT4@A@@@@DDIC- F@)CT\ZC )@@G@@H(!GD,G))H-(IT4^[,GD!G*)@K@@@@^[[^[GD2^[-H0)ZD )@@G@@H90I-(H9,GD?^[,GD!G*)GT\H(0IL(IT(H1$^[-I))H(\IT4^[3HD8@L@@@@^[-H-0H[-H(>ZE )@@G@@IL(GS)GT*GD2GDIL3 0)^[OH[>IL>^[!GD9^[+G*)HD,G->G1(H1(I->H-9^[!GD,JC)ZF )@@G@@GT\G(8HD3I-(H1$^@)@L@@@@^[G1(H1>G)?^[>J[(IT4^[&H92^[4H[>^[=I(2GC!^@)@L@@@@^[4HD\H0)H9&ZH )@@G@@^[4H[>^[2I(, 0)^[DH1=G(>G)?^[(H1-IT!I(JC)GD2G*)GDIS?^[4H[>JC)GT-H0)GL>^[GD4G(=ZJ )@@G@@^[(H1=G(0G(,G->H14H-9^[\G0)C-S^[5IT(H1$^[4H[>^[4G(8I))@K@@@@^[>G-(I-\IK?ZK )@@G@@^[4H[>^[G))J[8J@)IL>IT(G-(H1$^[(H0)G1(H->^@=^-^ZL )@@G@@F[#^-8J[8 0)@]@@@@ETKCD#C*)^@)@K@@@@^[#H9!H(-H1=^[?HD3I-3^[!GD9^[^[#D(GDDNE))H1\IK)I-*G*)F[#D(GDDNE))^@)@D@@@@^[^[,G(3I->G),^@)@]@@@@ETKCD#C*)^@)@A@@@@ZO )@@G@@A)"F[#D(GDDNE)*F@(^[VH-(IT4^[,GD!G(X@A@@@@DDIC- F@)F[#D(GDDNE))GT\H(!GD,ZP )@@G@@G))^@)@^@@@@DDIC- F@)F@)GT\H(!GD,G))@K@@@@^[ J[>GT5I->^[4H[>^[^F@)GT\H(!ZQ )@@G@@GD,G-3^[(H0)GC)I[2G(6HD\I(3H-9 (=G(&HD,G(=^[J[0IL>IT3HD\H0)^@)@A@@@@DDIC- F@)C(QZS )@@G@@CDGE([E- ^[G9>IK)^@)ZT )@@G@@@B@@@@DDIC- F@)CD+IT\H-5I->^[6GD?I(>^[3JD!GL\H))@B@@@@DDIC- F@)ET9H(+H9?ZU )@@G@@ ))GD+IT\H-5I->^[6GD?I(>@L@@@@^[ I1-H-5GD4G*)I-*G*)HD,I->G9>IK)G(8I[2G(3ZV )@@G@@IT(H9,^[$HD6G(,^[-H1=^[0IL(H14^[4H[>^[2G(3I(?I),^@)E-*G*)^@)@L@@@@^[>J[0ZW )@@G@@IL>IT3HD\H0)H(-JC)GT\H14GD(H0)IT9H(+H9?IS)G12H9!^[4H[>^[[GL3H9?I(4G*)E1-ZX )@@G@@H-5G*)E--GL?G*) [3G(>^@)@L@@@@^[[CLNE1[D-PC*)GT\H(!GD,G)( 0)^[OH[>^[&H92ZY )@@G@@H*)GD,^[>J[0IL>IT3HD\H0)H(-JC)GD3IT5H(>^[(IS)G->ITG))@F@@@@^[(H0)ZZ )@@G@@I-*G*)IT>GT4HD\H0)^LDH14G($G(2^[ J[0IL>IT3HD\H13^K)GL>H-\I8,@]@@@@ETKCD#AA )@@G@@C*)^@)@]@@@@A)"C(MELHETB@ @@@@DDIC- F@)C(MELHETB^[AB )@@G@@^[IS)GC)I[?GD(H0!H--H1$I(-G9>^[>J[0H--H1-I-(H9,^[\AC )@@G@@G0)GD,JC)G(2IL\IK)@G@@@@^[H1^[?GD3AD )@@G@@I))HD,^[MI(,^[HH9=G*,^@)@]@@@@ETKCD#C*)^@)@A@@@@A)"D[ D-K [C C)FTH0)GC)C-S^[GT(G1(G(= ))I-*AH )@@G@@G*)IT9H14GDGT(AI )@@G@@G1(GT-I-(H9,IS)HD3^[0IL\I1(G->G),^@)E9*G(,^[,H8)GT\H(!GD,G))H1-H(>^[(IS)AJ )@@G@@@G@@@@^[3I[>GT(G1(G(= ))GC)H-(IT4^[\G0)GD?H))C-S^[G))GT\H1^[3JD,I--J@)H9&^[^F@)@#@@@@^[IT3 ))E9\IL=^[#H95H14^[-H1=^[AH92H(-I))AP )@@G@@ET0G(^[-AQ )@@G@@H0)^L-G-=IK+ ))^L7GS+^[\IK)^L&H(4^K)IT0G(AR )@@G@@^[&H92H(3^[4H[>IT>^[3I[>GT(G1(GT-I-(H9,IS)H(-JC)GD3IT5H(>^[-IL>^[=G(3GT2AS )@@G@@HD+G(=^[+G(?H97 0)@L@@@@^[II(!G(2HD<^[(I->H(3^[(H0)IT0G(^[(H14G(2I[2G(4G(=^[-IS)H9JC)^@)@F@@@@^[ 0)@]@@@@ETKCD#C*)^@)AV )@@G@@@A@@@@AT[G-=IL>IT3^[3I[>GT(G1(GT-I-(H9,^@)@B@@@@DDIC- F@)CD=G-2G(3IS)IT0AW )@@G@@G(IT3@L@@@@AX )@@G@@^@)^@)^[[G-=IL>IT3G(3^[!GD9^[+G*)IT0G(G))HD,^[4I9\^[7GD9IS! (>HD4AY )@@G@@H[>IK)GD+IT\H-5I->H-9^@*HD,^@)@L@@@@^[4H[>^[0IL\G92GD! (7HD=G*)IT>H13G*(AZ )@@G@@^[\IK)IL>H--I-(I1>^[4H8)GC)H-\GT-I-(H9,^[H->H(>H14 0)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)^[^F@)G-(IT4BB )@@G@@HD,G95HD3H[>IS)H9,G*)I-9I[>^[\G0)IT0G(^[\I-*BC )@@G@@G(2^[+JC)^@)@K@@@@^[4H[>^[-GL3G(,GT>^[\IK)I[2G(3G(,GT>^[\G0)GC)I[>IL(H9=BD )@@G@@ 0)^[ HD4H[>IK)I-9I[>^[!GD9^[+G*)GL(GD3G(=@L@@@@^[7HD4H@)I-*G*)GT5IL2G(,BE )@@G@@I))GT\H14G(,I-3^[\G0)GD,^[(H1=G(8^[2G($HD3I->IK)G(8GT>I[4^[&H92^[4H[>^[IL>^[4H[>^[3I[>GT(G1(GT-I-(H9,^[(IS)GC)IL>G9(IT4G(2^[,BG )@@G@@GD!G*,@]@@@@ETKCD#C*)^@)@K@@@@^@)^@)^[[IL(I-*H(>I-(GS)G(8I[2G(3IT(H9,IS?BH )@@G@@^[7H[>H0)I(3G(= ))H(-JC)GT\H14GD(H0)G->GT(H(-H))GD,G))@K@@@@^[\GT4GD?^[,BI )@@G@@I(!GL>IL3 ))I[-IL>H14H[>IT>IS?^[-H1=^[-H-?^[(H14G($G(2^[\I[>IL-I-\IL3^[?BJ )@@G@@G($GD?^[&H92@H@@@@^[5IT>^[(H0)C[HCDND*,^@) [NG(>^@+DD,I->G9>IK)C(8I[2G(3BK )@@G@@IT(H9,IS+^[+G(?H97 0(^@)@C@@@@A-MG(?GD4HD6G*)CD=G-2G(3IS)ET0G(H--I-(BM )@@G@@I1>^[-G-=IL>IT3^@)@J@@@@^@)^@)^[OH[>^[3JD,I--GT4HD^@)@#@@@@DDIC- F@)C(?I-,H*)@A@@@@DDIC- F@)D-\BQ )@@G@@GT-I-(H9,^[IL>^[>H-4H1!^[(IS)BR )@@G@@GD,^[>H->H(>H14^[,GD!G*)GT\H(0IL(IT(H1$^@1 *1AK)GT*GD2GDIL3 ))GD,G))BS )@@G@@H-<^@)@K@@@@^[(IS)GD,^[\GT4GD?^[\IK)G->GT(H(-H))H15H(+G(2^[3I[>GT(G19HD,BT )@@G@@G8)GC)H-\GT-I-(H9,^[H--G-=IK)GL>^[-GL3G(,I)?^[4H[>^[?H97G(3I))GD=G-2G(3IS) [,GD!G(?JC?^@)BV )@@G@@@L@@@@^['G(2H8(^[&H92^[4H[>^[3I[>GT(G1(G(=^[?H9IK)HD3BW )@@G@@^[(H(0H-(G(= 0)^[DG0)I[2G(3G(,I)?^@)@K@@@@^[(I))HD3^[-H0)HD,I->G9>IK)G(8BX )@@G@@I[2G(3IT(H9,^[7H[\IT>^[6GD?I(>^[(IS)I-\^[+G*)GD=G->G))I-\^[4H[(IS)@#@@@@BY )@@G@@^[-G-=IL>IT3 0)^@)@]@@@@ETKCD#C*)^@)@K@@@@^@)^@)^[DG0) -8^[+G*)I[2G(3G(,BZ )@@G@@I)?^[8^[!I(3I))GL>^[-H0)CDSEK=^[!H1>H(\H1(GS)G1\IK)GD,^[(H1=G(8^@)@L@@@@CA )@@G@@^[2G($HD3I->IK) [SAC!CC3 C,^@)E-*G*)GT5IL2G(,I))GT\H14G(,I-3^[\G0)I-*G*)CB )@@G@@IT0G(G))IL>G9(IT4G(2^@)@J@@@@^[7HD?H))GL>^[-G-=G(=^[4H8)I-*G*)IL>CC )@@G@@H--I-(I1>^[3I[>GT(G1(GT-I-(H9,^[0IL>GT>G-(H1$^[(I),^@)@]@@@@ETKCD#C*)^@)CD )@@G@@@K@@@@^@)^@)^[JGL3G(2I1>^[4H[-I))I-*G*) S)IT>IL6G(3^[4H8)IT>I[-IL-I->^[4CE )@@G@@H[>^[,I(!G(2HD<^[&HD>H-=^[?GS)@K@@@@^[&IL\H*)I-*G*)G1(G(?G))IL>H--G-=IK)CF )@@G@@I9*HD^[3HD!I[?JC)GC)H15H(+G(2 0)^[DG0)I-*G*)^@)@J@@@@^[?GD4CG )@@G@@I->IK)GL>^[-H0)G(8I[2G(3IT(H9, ))HD4^[!GD9^[^@)@C@@@@^[0IL\G92GD!^93^[[GL3H9?I(4G*)E1-H-5G*)E--GL?G*,@]@@@@CI )@@G@@ETKCD#C*)^@)@L@@@@^@)^@)^[DG0)G(?I-,H*)GL>^[-GL3G(,I)?^[4H[>^[?GD3I))I[2CJ )@@G@@G(6HD\I(3H-9^[3I[>GT(G1(G(=^[>H->H(>H14^[,GD!G*)@L@@@@^[(IS)I(3G(= 0)^[DCK )@@G@@G0)H-<^[-G-=HD4HD\H1-H-?JC)GL>^[-GL3G(,I)?^[4H[>^[?GD3I))I[2G(6HD\I(3H-9CL )@@G@@^[3I[>GT( *)@K@@@@^[&HD>G))H-\GT-I-(H9,^[^[0IL>IT>H14^[+I(4^[?GS)H1\I)?@L@@@@^[4H[>^[?H97G(3I))H-\GT-CN )@@G@@I-(H9,^[H(0H-\JD>G))HD,^[4H[>^[3I[>GT(G1(G(=^[>H->H(>H14^[(CO )@@G@@IS)^@)@]@@@@^[5IT>G),^@)@]@@@@ETKCD#C*)^@)@#@@@@DDIC- F@)CK=CS)^@)@C@@@@CP )@@G@@DDIC- F@)CL?GD,HS)GT\H(!H9, ))IL>G1>IL2HD,G8)I-\@K@@@@^@)^@)^[IH94G*'^@)CQ )@@G@@CD3^[-^[H1(G(,GT>^[&H92^[4H[>^[5IT>IK?^[(G0)I-*G*)AS)GT*GD2GDCR )@@G@@IL3^@)@L@@@@^@+CK=CS+^[+G*)IT0G(G))G1\IK)G(?I-,H*?^[4H[>JC)I9(H-?CS )@@G@@^[+G*)I--HT>H0)GD3^[-H0)GD+GL2G(6HD- *)^@)@K@@@@^[4HD\H0)G1\IK)^L]D-[D1FCT )@@G@@^-#D9HD(JD0+^[(G0)I-*G*)H--I-4G(2^[>J[(IT4IS,^@)E-*I(3 ))CK=CS, S3 K3B@)CU )@@G@@@F@@@@^[NI[>GT(G1(G(3^[4H[>^@1AC5I-*^[7H92G))HD,^[+H--H1:^[^[-CX )@@G@@G-=IL>IT3^@)@J@@@@^@)^@)^[OH[>^[3JD,I--GT4HD^[3I[>GT(G1(GT-I-(H9,^[(IS'^@)@]@@@@ETKCD#C*)^@)@D@@@@CT D1OC(M^[VCZ )@@G@@FT+H1:H1!BLXFT3G($H1!F*'F(-GL3GD=G-2FS?J[X@]@@@@ETKCD#C*)^@)@^@@@@DDIC- DA )@@G@@F@)CL-H1:^[,GD!G*)@#@@@@DDIC- F@)CL,HT,H*)@ @@@@DDIC- F@)ET>G9!G(,I))H1-DB )@@G@@H(>^@)@#@@@@DDIC- F@)ET>G9,H*)@K@@@@^[7H[>IL>^[-GL3GD=G-2^[(IS)GC)H15H(+DC )@@G@@G(2 ))HD,I->G9>IK)G(8I[2G(3IT(H9, ))H92^[2G($HD3I->IK)H1-H(>@L@@@@^@*GD3DD )@@G@@^[(H0)CDSEK= C,^@)DD&^[-H0)G(8I[2G(3IT(H9, ))HD4^[!GD9^[^@)@L@@@@^[0IL\G92GD!^93^[ H14IL9^[KH9(H14^[IGD!G*)DF )@@G@@H92^[[GL3H9?I(4G*)E1-H-5G*)E--GL?G(3^@*IT>G*)C(IE-MFC)GD,G))@I@@@@^[[CLNDG )@@G@@E1[D-PC*)GT\H(!GD,G-3 C?^[\IK)GL>^[\H1>^[\G0)I-*G*)G1\H-?H97HD,G8)IT9H(+DH )@@G@@H9?IS'@]@@@@ETKCD#C*)^@)@]@@@@CTJD-PD(I^@7@]@@@@DDIC- F@)^))@H@@@@^@)^))DI )@@G@@^@)H(>GD,HD,G8)I-*G*)H--IT4^[0IL>I1(H95IT?JC)IT0G(G))GD=G-2G(3IS;DJ )@@G@@@]@@@@ETKCD#C*)^@)@]@@@@DDIC- F@)^)=@K@@@@^@)^)=^@)H(>GD,HD,G8)^)) S)I-*DK )@@G@@G*)I9\IL=^[H(0H-\JD>G))HD,^[4H[>^[?GD3I))I[2G(6HD\I(3^@)@ @@@@DL )@@G@@^@)^@)^@)I[2HD,I))GT\H(!GD,G);@]@@@@ETKCD#C*)^@)@]@@@@DDIC- F@)^-]@K@@@@DM )@@G@@^@)^-]^@)H(>GD,HD,G8)I-*G*)GD=G-2G(3IS)H9&^[4H[>^[!H93I))IL>GT>H14H-9^[\DN )@@G@@GTGD: ))@H@@@@^@)^@)^@)I-2GD0 ))C[@F@)CS)H92^[(H13I-2I(GD,HD,G8)I-*G*)GD=G-2G(3IS)H9&^[4H[>^[?GD3I))IT5GTG))GD,G))I-*G*)IL>H(-DS )@@G@@HD,HD,G8)IT0G*!^@)@L@@@@^[^[^[+GD,HS?^[-H0)GD^[+GD,HS)@L@@@@^[4GD:G(3^[0DU )@@G@@IL>GT>G->H1^[\H1> ))GD,G))GD!H9,G8)HD,GD^[+GD,HT3 ))^@)@I@@@@^[4H[>^[\H1>^[7HD4H@)I-*G*)H-\I9>IK)CL^DC)I9(H-?DW )@@G@@^[+G*)GT*H93G(, 0)^[DH0)H92G-(H1-IL9@J@@@@^@*GL-H1: ((H(0H-(G(= C)GT\H-?DX )@@G@@G(G(=^[,G(6G(2^[+G*)IT0G(G),@]@@@@ETKCD#DY )@@G@@C*)^@)@L@@@@^@)^@)^[DG0)I-*G*)IT>G9!G(,I))H1-H(>^@*^L3G($H1!BK+ C)GL>^[\DZ )@@G@@H((I-4G(= ))I-*G*)H--IT4^[0IL>I1(H95IT?JC)@L@@@@^[3I[>GT(G1(G(=^[3G($H(>EA )@@G@@H14^[,GD!G*)HD3^[5IT>G),^@)DD,^[5H13G($H(>H14G(=^[0IL\G92GD!IS)IT>G9,H*'EB )@@G@@^[(IS)@#@@@@^[,G(6G(2^[5IT>G),@]@@@@ETKCD#C*)^@)@K@@@@^@)^@)^[DG0) -8^[+EC )@@G@@G*)I[2G(3G(,I)?^[8^[!I(3I))GL>^[-H0)CDSEK=^[!H1>H(\H1(GS)G1\IK)GD,^[(H1=ED )@@G@@G(8^@)@L@@@@^[2G($HD3I->IK) [SAC!CC3 C,^@)E-*G*)GT5IL2G(,I))GT\H14G(,I-3EE )@@G@@^[\G0)I-*G*)IT0G(G))IL>G9(IT4G(2^@)@J@@@@^[7HD?H))GL>^[-G-=G(=^[4EF )@@G@@H8)I-*G*)GD+IT\H-5I->^[3I[>GT(G1(GT-I-(H9,^[0IL>GT>G-(H1$^[(I),^@)@]@@@@EG )@@G@@ETKCD#C*)^@)@L@@@@^@)^@)^[IH94G*?^[-IS)IT*H97H0)GD+H96G*?^[4H[-I))HD&^[>EH )@@G@@HD4H[>IK)GC)GL-H1:^[\IK)GC)IT>G9!G(,I))H1-H(>^@)@L@@@@^[+G*)IT0G(EI )@@G@@G)?^[4H[>^[3G(^[+G*)@K@@@@^[$HD6G(, ))I-*G*)G1(IL3I))GT\H-\H0)H(5IT4^[-H-3H8)GL>EK )@@G@@^[0IL>IT>H14 ))I9*G(4H[>IK)H92^[,H94^[-^@)@A@@@@^[3G($H(>H14^[,GD!G*)HD3EL )@@G@@^[$HD6G(, 0)@]@@@@ETKCD#C*)^@)@B@@@@ATRH92G))CT\I(,I))ET0G(GT(G1(GT-I-(H9,^@)@C@@@@DDIC- EN )@@G@@F@)ET0G(^[7H92G))GT\EO )@@G@@I(,I)) [7GS(^[3I[>GT(G1(G(=^[&H92^[-^[H0)GD3^[-H0)EP )@@G@@@K@@@@^[(H14G($G(2^[,I(!GL>IK)H92^[>J[0IL>IT3HD\H0) [3G(>^@+DD,I->G9>IK)EQ )@@G@@C(8I[2G(3IT(H9,IS+^[+G(?H97 C,@K@@@@^[[H19^[7H92G))GT\I(,I))IT0G(ER )@@G@@G))HD,^[-^[KELDD1O^[^[=G(&GD5H-4@F@@@@^[7H92ES )@@G@@G))GT\I(,I))G1\IK)IT5GL3G(1I(>H14^[KELDD1O^[^[3I[>GT(G1(G(= ))I-*G(9^[!I(3I))GL>^@)@I@@@@^[3G(0GD2GD4G(=^[+JC)GC)EV )@@G@@IT0GDHD4H[>IK)H92G->IK,^@)@]@@@@ETKCD#EW )@@G@@C*)^@)@F@@@@ATAH92H(-I))ET0G(GT(G1(GT-I-(H9,^@)@B@@@@DDIC- F@)ET0EY )@@G@@G(^[&H92H(-EZ )@@G@@I-3^@)@B@@@@DDIC- F@)C1\IL!GD4IS?^[\I(4I[5I))I1-H-5G*)@L@@@@^@)^@)^[[^[,FA )@@G@@I(!GL>IK)H9&^[ 1$ 0?^[KELDD1O ))E[#E)(^[2G(3I[\H1=^[7HD4FB )@@G@@H@)GC)G-(IT0H--JC)@K@@@@^[\G0)H9,G*)H92^[!H92G*)AS6 (+HD4^[,I(!GL>IL3 0)FC )@@G@@^[OH[>^[&H92H(-I))I(,G->IK)I9*HDIL3^[-IL>FD )@@G@@^[>H1G))GL9^[4H[>^[5IT>IK)HD,^[4H[>^[&H(4FE )@@G@@^[&HD>H-=^@)@L@@@@^[\G0)GC)GT\H(!GD,G))IT0G(^[&H92H(-FG )@@G@@I-3^[-IL>^[3H[\I9,^[+G(?H97 0)^[[H-?^[G))I-\^[-FH )@@G@@^[3HD,G9?G*)@L@@@@^[?G(4I->IK)G(8GT>I[4^[^C1K^[-H1=^[CC(S ))I9*HD^[-GL+IL>I1(GD4G(=^[\H1?JC)I-\^[^C0?^[CC*?@M@@@@^[2G(3I[>GT4HD6G(?FJ )@@G@@JC,^@)E-*G*)I--GL?G*)IT*H97IS)I-*G*)IL>IT5H-4IS)H9&^[3I[>GT(G19HD,G8)G(-FK )@@G@@GT*^[&H92H(-I))^@)@B@@@@^[&H92^[4H[>^[3GD!G*)AS6 (+HD4^[6GD?I(> 0)@]@@@@FL )@@G@@ETKCD#C*)^@)@F@@@@^@)D(,H(,GS)^[ H1ITGT(H(-H))^@)@K@@@@^@)^[CE9J^@)^@2AS2A@4AK?A@2AS4A*6^@)^@)^@)FQ )@@G@@^@)H[-H-& (7H92G))H9 (0IL>GT(IT(H9,^[&H-\GD4HD,G8!FS )@@G@@I[\HD,I))^@)@K@@@@^@)^[^C1K^@)^@,AK1B@7B@9A*1 S0A03^@)^@)^@)^@)G-\I(+H->FT )@@G@@ (0IL>GT(IT(H9,^[&H-\GD4HD,G8!I[\HD,I))^@)@F@@@@^@)^[CC(S^@)^[SA-^A@8B@2FU )@@G@@A82C*)^@)^@)^@)^@)^@)H[>J[-G->GT(H(-H))^@)@E@@@@^@)^[AC-[^@)^[IDS:F(R ))FV )@@G@@^@)^@)^@)^@)^@)^@)^@)C1(G(?G--I--^@)@G@@@@^@)^[[ET#^@)^[NCK)^@+^[^AS)^@,FW )@@G@@^@)^@)^@)^@)^@)ED5GD2I->IK!I9\IL=^[[ET#DDD@G@@@@^@)^[OE9D^@)^[GEK?F[CAC)FX )@@G@@EK2 )0AK3A)5A0?F@2^@)I-*HD2G)!I9\IL=^[!H9=G*)^@)@G@@@@^@)^[LE9D^@)^[GEK?FY )@@G@@EC2^[MAK?A@2AS4A*6 -SAK)^@)ID5GD2I->IK!I9\IL=^[!H9=G*)@E@@@@^@)^[]D(D^@)FZ )@@G@@^[GEK?A))EK2 )0AK3A)5A0?F@2^@)^@)GL9I->^[!H9=G*)@]@@@@ETKCD#C*)^@)@L@@@@GA )@@G@@^@)^@)^[DH0)I-*G*)GT-IT>^[\G0)CDNCTDDC)G1\IL!GD4 ))I-7H8!H->I-4G(2^[(I->GB )@@G@@H(3^[2G(0IL>IT>H14^[!H1> *)^@)@L@@@@^[!H9,HDIK!GT-IT>^[^[2G(0IL>IT>H14G(=^[+JC)I-*G*)GT\IL2G(3I[\H1=HD,G8)I(0I[>IK!GT-IT>GE )@@G@@^[IL(H9= 0)^@)@]@@@@GF )@@G@@ETKCD#C*)^@)@K@@@@^@)^@)^[[H19^[&H92H(-I))IT0G(G))HD,^[-^[KELDD1OGG )@@G@@^[^[=G(&GD5H-4@E@@@@^[&H92H(-I))G1\IK)IT5GL3GH )@@G@@G(1I(>H14^[KELDD1O^[IT3HD\H13@B@@@@DDIC- F@)C(8I[2G(3IT(H9,IS?^[(H14G($G(2^@)@B@@@@GJ )@@G@@DDIC- F@)DD,I->G9>IK)G(8I[2G(3IT(H9,IS)^@)@L@@@@^@)^@)^[OH[>^[5IT>^[\G0)GK )@@G@@HD,I->G9>IK)G(8I[2G(3IT(H9,IS)HD,IT4G(-G))H9&^[(H14G($G(2IS)HD3^[0G(2H((GL )@@G@@IS!^@)@L@@@@^[3HD+H->^[(H0)H(-H19^[3I[>GT(G1(GT-I-(H9,IS?^[-IS)H1\I->G))GM )@@G@@GD+H96G*,^@)CD,^[(H14G($G(2^[>J[0IL>IS!^@)@K@@@@^[3HD\H0)HD3^[-^[3I-2HD,GN )@@G@@G8)H9&^[(H14G($G(2IS?^[\I[>IL-I-\IL3^[-H1=^[0GD2G(,I-*G(3G(3 0)^[GG($GD?GO )@@G@@@D@@@@^[\I[>IL-I-\IL3^[-H1=^[4H[>HD2^[*HD>IL-ILBK)@]@@@@ETKCD#GP )@@G@@C*)^@)@#@@@@CTJD-PD(I^@2A0)^@)@A@@@@^@)^@)^@)^@)^@)^@)^@)I(,GD2JC) S? *)GQ )@@G@@@C@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@% 8)^@)^@)^[3H[(G14^@)@L@@@@^@)^@)^@)^@)GR )@@G@@^@)^@)^@% )\ )\ 8? 8\ 8)^[!I(?I-(I[?JC?^[=HD6HD=G*?^[^[&HD2IT4^[(I->H(3^[*GD6HD,G8)I-*G*)H[(G9*G(3I))I[2G( 0)GY )@@G@@^[KGD2G(,I-*G(3G(3^[!GD9^[+G*)@G@@@@^[5IT>G))G12G(>H-9^[4H8)H96G(2IL(G->GZ )@@G@@^[\I[>IL-I-\IK)I[2G(IS,^@)@]@@@@ETKCD#C*)^@)@ @@@@ALDH10I(4^[QHA )@@G@@GD?I(>^[AH92H(-I-3@B@@@@DDIC- F@)DD,I[5I))I1-H-5G*)G1\IL!GD4IS)^@)@B@@@@HB )@@G@@DDIC- F@)C1\IL!GD4IS?^[(H10I(4^[6GD?I(>^@)@L@@@@^@)^@)ET\H(>^[ID5HD2G*)I-*G*)I(3G(2^[4H8)IT5I[0HD )@@G@@H-9^@)@K@@@@^[-^@3A0!GL(I))I9\IL=^[6GD?I(> 0)^[OH[>^[2G(1I((IL>G))I1-H-5HE )@@G@@G*)H(-JC)GL>^[4JD0G(=^[(H0)GD,JC)H9&@A@@@@^[4H[>^[&H9?H-\I9(H1$^[&H92H(3HF )@@G@@BK)^@)@]@@@@ETKCD#C*)^@)@]@@@@EL D([DDI^@9@]@@@@ETKCD#C*)^@)@D@@@@CT D1OHG )@@G@@C(M^[R^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) @1 C)^@)@D@@@@CT D1OC(M^[CAC?D@2HH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@) @2 C)^@)@D@@@@CT D1OC(M^[OAC?E)2 -OAS)^@)^@)HI )@@G@@^@)^@)^@)^@)^@) @3 C)^@)@D@@@@CT D1OC(M^[LAC?EC2 -LAS?EC4^@)^@)^@)^@)^@)HJ )@@G@@^@) @4 C)^@)@D@@@@CT D1OC(M^[NAC?ES2 -NAS?ES4 -NA*?ES6^@)^@)^@) @5 C)^@)HK )@@G@@@D@@@@CT D1OC(M^@$GT< 0, 0)^@)^@)^@)^@)^@)^@)^@)^@) @6 C)^@)@D@@@@CT D1OHL )@@G@@C(M^@$GT< 0, 0$^@)^@)^@)^@)^@)^@)^@)^@) @7 C)^@)@D@@@@CT D1OC(M^[VITXG),HM )@@G@@G-VIT=F*)^@)^@)^@)^@)^@)^@) @8 C)^@)@D@@@@CT D1OC(M^[& -%^@)GC? L5 )%J@)HN )@@G@@^@)^@)^@)^@)^@) @9 C)^@)@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)DD,^[&H92H(3^@*AC!HO )@@G@@A*(^[R^[4H[2H95G9*^[NA0)GD2G*)HD,I->G9>IL3 ))HD,I->IL0IL>I->G))GD3^[\GT4HP )@@G@@GD?^@)@L@@@@^[(G0)I9(I-*^[?G(-G-(H1$^['G(2H8?^[=G(HQ )@@G@@ 0)^[ GDG9>IK)H(-JC)GL>GD2^[-^@)@^@@@@^[?G(-G-(H1$^[3HD$H0,^@)HR )@@G@@@]@@@@ETKCD#C*)^@)@L@@@@^@)^@)DD,^[&H92H(3^@*A0?A8( ))GT< 0, 0)GD2G*)I(0HS )@@G@@^[4H8)A0)C1(G(?G--I--^[^[-GL3HT )@@G@@G(,I))I-2GD(H-(H1$^[-I[\IT4IL\I[*G*)GT-I(3G(3^[4H[>^[4G(8I))I-\^[+G*)^@)HU )@@G@@@H@@@@^[?G(&I)!HL5IT4HD&HD>G)?^[3I[-GT> (&HD?H->G),^@)DD,^@*A8( ))I-*G*)HV )@@G@@I->J[4^[(IS)@K@@@@^[2HD$H[4 (%I(3I-(G1(G(= ))JL>IL\ (&HD?H->G),^@)DD,^[>HW )@@G@@HD4H[>IK?^[-H0)GD0H93I-2H90H[>^[H1 (1I(\I->IS) @+ C)GD2G*)I(3G(=^[(H13I->GD=^[\G0)GD0H93HZ )@@G@@I-2H8!@L@@@@^[0H[>IS?^[^[(H14G(2I[2G(4G(=^[-IS)ID5GD2IA )@@G@@I->IK!I9\IL=^[[ET#DDD^[(H13I->GD=^[\G0)^@)@#@@@@^[AHD>H-=GD4GC,^@)@]@@@@IB )@@G@@ETKCD#C*)^@)@K@@@@^@)^@)DD,^[&H92H*) @8 C?^[>GDGD^[(H14G($G(2^[\IK)I-*G*)G12GD^[!GD,I-(IT3IE )@@G@@GC)^@)@K@@@@^[!GD9^[+G*)H9!HD4I->G)?^[(G0)G->IT(IL>G),^@)CD3^[(H(0H-(G(=IF )@@G@@^[+JC)I-*G*)IT1I(-IL>^[+IL-GT:G(4IS?@L@@@@^[4H[>^[!GD,I-(IT3GC)IT(G9,^[-IG )@@G@@H1=^[4H[>^[>J[0H9,G(,I))H(-JC)G(-GT*^[+G*)H90I-(H9,GD?H-9^[\H((I-4G(= 0)IH )@@G@@@J@@@@^[OH[>^[2G(3I(?I))I9(H-?^[+G*)GL(H1-IL9^[3HD,G9?G*!I[2G(G1(H1>G))HD,^@)IK )@@G@@@K@@@@^[[F[M^)?^[>J[IL(GS,^@)C->IT(G9,IL )@@G@@GD4G*)I-*G*)I(,GD3IT(G9,G(=^@)@L@@@@^[2G($HD3I->IL3^@0AS3 ))A@3A))GL9^[4IM )@@G@@GD$IS)CC1A0?^[[AC7 0)^[OH[>^[-H-4G(2H1-I->^[,GD!G(3^[NEK1 (NEK3 ))@L@@@@IN )@@G@@^[EA@!DK3^[!GD9^[+G*)I(3G(=^[&H92^[4H[>^[2G($HD3I->IL3^[MAS!EK9^[(H16H9?IO )@@G@@I1>G))HD,^[+JD4G*)H(-H1(I[5 *)@K@@@@^[?GD4HD\H0,^@)G0)H(5IT4^[+G*)IT9H(+IP )@@G@@H9?HD< ))I9*HD?G*)I*)H(5IT4^[+G*)G((I-*G(2^[-^[2G($HD3I->IK)@L@@@@^[,GD!IQ )@@G@@G*?^[-H0)^L EK+^[!H1>H(\H1(GS)H92^[-H0)HD,I->G9>IK) [7HD4H@)H90I-(H9,GD?IR )@@G@@^[!HD,I(3^[3HD$H0( 0)^@)@E@@@@^[OH[>^[-IT4G(2HD3HT3^[-IL>^[\I[4HD\H1-H)?IS )@@G@@^[\G0)GT\I(2IT> 0)@A@@@@ADID9OC(N^[[D1^^[MC(NE-MDD#E-DD9IES)@A@@@@DDIC- IT )@@G@@F@)C-S ))IL>IT4IL(GT4HD\H13^@)@A@@@@DDIC- F@)EL>IT4IL(GT4HD\H13 ))C-S^@)IU )@@G@@@L@@@@^@)^@)C1\IK)C-S^[4H8)G15H1IL?JC?^[4H[>^[ *)@L@@@@^[=HD-I->H-9^[0IL>GT>G-(H1$^[4IW )@@G@@H[>^[!GD(H0)DC!GL-H1:^@*I9*HD^[-IT3HD$H1>G))I-\^[4H[>^[0IL\G92GD! 0)^[OH[(IS)IY )@@G@@GL-H1:^[!I(3I))GL>^[-^[3I--I-(GS)^@)@K@@@@^[+GD,HS)GD,G))H[-I1>^[-^[3I--IZ )@@G@@IL4HD,G8)GD=G-2G(3IS)H1\I))H->IT3^[4H[-H0)A@1A@0A@,^@)DD&^[4H[(IS)@K@@@@JA )@@G@@^[+GD,HS)GL>GT\H(>IS)I(,GL-IT>G))GL9^[>J[>GT5I-(H9,^[\G0)GD,^[GDDE^[\IK)JB )@@G@@D-]DK?^[^F@)I9(H-?^[,H8)@L@@@@^[?H9,G9>IK)GL>^[-GL?G*)I-\^[^[IK)CT\H14IL\H))D(\G->^@)@C@@@@^[5H14JD )@@G@@HD?^[-H1=^[5H1?G(3IS)HD4^[(IS)IL>GL-IT>G),@]@@@@ETKCD#C*)^@)@F@@@@DDIC- JE )@@G@@F@)CT\H14HD,G9>H1IS)I9*HD?G*)HD,^[#H9,I-2H9?^[HH9=G*)^@)@D@@@@DDIC- JF )@@G@@F@)CT\H14IL\H))D(\G-> ))GT\H14HD,G9>H1IS)^@)@ @@@@DDIC- F@)C-S^[#D9IJG )@@G@@E-DD1BC(ICTT@#@@@@DDIC- F@)C[@F@)CS)@K@@@@^@)^@)CT\H14HD,G9>H1IS)H9^[4IL-I[0G(=^[+JC)GC)IT>I[-IL-I->^[2H95I-(H1> 0)^[OH[>^[!G(3JJ )@@G@@IT-G9>^@+C-S^[#D9IE-DD1BC(I *)@L@@@@^[#FC+^[7HD?H))GD0I[>GD2 ))G1\H-?H97JK )@@G@@G(=^[+JC)I-*G*)GT\H14HD,G9>H1 0)^[OH[>^[5IT>IK)GT-H0)^@)@F@@@@JL )@@G@@^[2G(4I(2H0)I-\^[#H9,I-2H9?^[HH9=G*)GL9^[4JD0HD,G8)^L@C[S^[#^K,^@)@B@@@@JM )@@G@@ALNI[>GT(GD?^[ IL2H92^[ J[(I))C1>GD4I(2G(3@K@@@@^@)^@)E-*G*)G1\H-?H97HD,JN )@@G@@G8)G1>GD4I(2G(3^[-IL>^[\G0)HD,I->IL>IT4^[4H8)I-*G*)I-*H93G*)I92HD4HD,G8)JO )@@G@@@G@@@@^[0IL\G92GD!IS)HD,^[-IT3G(!GL?G(2^@*C[[ETH^[\IK)C[HCDND*(^[?GD,G95JP )@@G@@GD$G*,@]@@@@ETKCD#C*)^@)@E@@@@DDIC- F@)DDJE[M^[0IL\G92GD!^[>J[IL2H92^[3I-\I@)^@)@K@@@@^@)^@)CD,JC)GD4I->H(0I))JS )@@G@@I-\^[>J[>GT5I->^[-H0)HD,IT4IL5GT4HD\H0)I9*H93G*)G0!G1(G(?G))HD3^['G(2H8)JT )@@G@@@L@@@@^[7HD?H))G9(I1>^[2HD3G*)I-\^[-^[(H-?G($GD?^[\I[>IL-I-(H9,^[0IL\G92JU )@@G@@GD!^[>J[J[>GT5I-(H9, 0)^[DG0)IT5GT*^[-H0)HD,IT4IL5GT4HD\H0)HD3@K@@@@JW )@@G@@^[>J[>GT5I->G))I(,G->IK)C-S^[-H1= ))G15IL4H[>IK?^[*GD3^[8 *)GD,G))H[( (&JX )@@G@@HD>H-=IS)JL>IL\^[7H[(H->@L@@@@^[4H[>^[% *)GD,G))GC!G1(G(?G-3^[+H94H@)GT\JY )@@G@@H14GD(H0)I-*G*)H15H(+G(2^@0AC2 ))HD4^[(IS)HD,I->IL0IL>I->G))@K@@@@^[-IS)JZ )@@G@@GC)^L,I(!GL>IL>G))G(2IL\IK)IT4H90^K?^[4H[>^[>IL2H92^[,I(!GL>IK)GL>HD,G8)KA )@@G@@GT\H14GD(H1>G))HD,@H@@@@^[4H[>^[5 (&HD>H-= ))GD,G))HD4IS)H9KB )@@G@@^[2G(0H92I->G))GD3^[3I(^[4KD )@@G@@H8)G9>H1>IL-I->^[4H[>^[(H13I-2I(GD2IS)GD4^[2G(?GD4HD6G*)H-\GT-I-(H9,^@0A*5^[5H1=G(2^@)KG )@@G@@@L@@@@^[?H9IK)AC)HD,^[>H->H(>H14^@+D([DDI^K?^[-H1=^[=KH )@@G@@I(2HD,G8)EL5H0)D(\G-> ))GT\H14IL\H))@L@@@@^[0GD3IT>IS)I-\^[4H[(IS)H-\GT-KI )@@G@@I-(H9, ))I-*G*)G1\H-?H97HD,G8)I->IL!HD,GD4HD\H0)H(>IT3GD$G*)I9\I(?G))^@)KJ )@@G@@@F@@@@^[+G*)I[2H96HD=G(=^[7H[>H0)C-S^[>H14G(2IS)CT\H14IL\H))D(\G->BK)^@)KK )@@G@@@]@@@@ETKCD#C*)^@)@H@@@@CT D1OC(M^[ ELMD9M^[NE-JE@)^S1AC*A@1AS(^[[E))A@2KL )@@G@@A@6A*) [HCDDD0,AC:A@5A*( 0)^@)@]@@@@ETKCD#C*)^@)@B@@@@DDIC- F@)CL2G(-HT0KM )@@G@@H9(H14 ))I[2H9$IL-H(!G(=@#@@@@DDIC- F@)C-SCLMDS)@L@@@@^@)^@)E-*G*)I(3G(2KN )@@G@@^[!GD9^[7HD3H@)I-\^[(H(+G(=^[\H1>^[\IK)H(\IL>^[+IL>GD:I[\HD,I-3^[(H0)H[(KO )@@G@@IS)GT\G->^@)@L@@@@^[-I))I-*G*)IT\I(2GT>^[?G(6G(?^[2GD4H[>IK)I-*GD,^[-I))KP )@@G@@H-\GD=^[4HD!G*)H92^[=I(2HD,G8)G(8G(^[(H0)CT\KQ )@@G@@H14IL\H))D(\G-> 0)^[OH[>^[(H13I-2I(GT\G9,HD'G(=^[-IS)GC)GL2G(-HT0H9(H14^[+JC)C-SKS )@@G@@^[-H1=^[3H8)I-2G(-I->G),^@)D1\I-> ))H[\I9> *)^@)@K@@@@^[6G(2 ))I-*GD4^[4KT )@@G@@H[>^[0IL\G92GD!^[2I(,^[,H92H(-H-?JC) [,H94^[7HD4H@)C-S C)I9(H-?^[2G(3I(?KU )@@G@@I))HD,@L@@@@^[>IL2H92^[4G(2H((H1-I-(H9,^[7H[>H0)I-*HD3^[(H13I-2I(IL>G),^@)E-*G*)I[2H8!^@)@J@@@@^[^[5IT>G))I-\^[$G(,G(2GD4G*)I-*HD3^[(H13I-2I(^[]G($HD,H1(H1$^[PIT>IK)^@)@L@@@@KY )@@G@@^@)^@)D9,H-9^[-^[&G(7^[\G0)I-*G*)C-S^[G(=G(=^[&H92KZ )@@G@@^[(I-3^[5IT>G15H))G(!I[?H99 *)@L@@@@^[!G(,I),^@)C1-H((H-(GD2HD4JC)I9(I-*LA )@@G@@^[4H[>^[KELDD1O^[H14^[&H92^[0IL\ *)^@)@B@@@@LB )@@G@@^[$IL-H*)I[\IT4 (!H92I->H*)GD,GD?JD3HD3 0)@]@@@@ETKCD#C*)^@)@K@@@@^@)^@)LC )@@G@@E-\^[+G*)GD+H->^[4H8)IT(H1$H-> (3I->I@)I-*IL\I($H@)I[\IL4HD\H13^[\G0)GC)LD )@@G@@I[2H9$IL-H*?^[4H[>@K@@@@^[5IT>IK)H1>G(=IS)I-\^[:H1\I8)I-*G*)G15H1^[@C-S^[] *?^[O *)GD,G))D0!H90I-(H9,IS,@]@@@@LG )@@G@@ETKCD#C*)^@)@L@@@@^@)^@)E-*G*)IL>H(-HD,G->IK)H9&^[4H[>^[^F@)GT\H(!GD,G-3LH )@@G@@^[-IL>^[\G0)H(\IL>^[3I[>GT(GD?HD'G(=^[5IT-G9>^@)@E@@@@^[\IK)GD2G*)I[2H96LI )@@G@@HD=G(=^[!GD(H1?JC)GD3^[H1(G(,GT>IS,@]@@@@ETKCD#C*)^@)@C@@@@AL H1*LJ )@@G@@GD,GT>H(>H14IS)GD,G))DD!I[2H96G(!G(,I-3^@)@K@@@@^@)^@)^[NI($G9>IT4HD\H13LK )@@G@@^[&H92^[>H1*GD,GT>H(>H14IS)H92^[(H(0IL\I1>H(>H14IS)HD,^[^F@)H92^[(I-3^@)LL )@@G@@@J@@@@^[=H9^[2G(G))I9(I-*^[(H14G(2G(3LM )@@G@@I))GL9^[4H[>^[-I(4H[\IK,_@@@@@G))DD!I[2H96G(!G(,I-3^@)@K@@@@^@)^@)^[NI($LN )@@G@@G9>IT4HD\H13^[&H92^[>H1*GD,GT>H(>H14IS)H92^[(H(0IL\I1>H(>H14IS)HD,^[^F@)LO )@@G@@H92^[(I-3^@)@J@@@@^[=H91 @ @@@@LV )@@G@@ $ANDF I**P$(0,*0) @^@@@@J $EQU 0 @G@@@@K LW )@@G@@ $DO $SL(P$(1,I+1)) ,J $EQU J++1*/('Z'-$SS(P$(1,I+1),K,1)) @B@@@@LX )@@G@@ LXI,14 12,($GFORM 10,0,26,J) @#@@@@ $ENDF @ @@@@LY )@@G@@ LMJ 11,P$(0,0) @]@@@@ $END@[@@@@. @[@@@@. LZ )@@G@@@#@@@@P$ $PROC *1@#@@@@C$PKT* $NAME 0 @#@@@@ERR$PKT* $NAME 1 MA )@@G@@@#@@@@E('MXP') $EQU 1 @#@@@@E('MXC') $EQU 1 @E@@@@ $DO P$(1)>MB )@@G@@1 ,I $DO P$(1)-1 ,E(P$(1,I+1)) $EQU 0 @D@@@@ +($GFORM 6,E('MXMC )@@G@@P'),6,E('MXC'),6,0,18,P$(1,1))@]@@@@ +0,0@B@@@@ $DO \$TNODMD )@@G@@(EMS$) ,EMS$ $EQU 0 @^@@@@ $IF EMS$ @F@@@@ $DME )@@G@@O P$(0,0) ,I $DO EMS$//2 , +EMS$(2*I-1),EMS$(2*I) @C@@@@ $DMF )@@G@@O \P$(0,0) ,I $DO E$RN , +EMS$(I) @#@@@@ $ENDF @]@@@@ MG )@@G@@ $END@[@@@@/. @#@@@@P$ $PROC *1@C@@@@E$RFAC* $NAME 040 MH )@@G@@ . FACILITIES ERROR.@C@@@@E$RSTT* $NAME 041 . @START ERROMI )@@G@@R. @D@@@@E$RSYM* $NAME 042 . @SYM/@BRKPT ERROR. @C@@@@MJ )@@G@@E$RCKP* $NAME 044 . @CKPT ERROR. @C@@@@E$RRST* $NAME 04MK )@@G@@5 . @RSTRT ERROR. @^@@@@P$(1,1) $EQU P$(0,0) @#@@@@P$(0,0ML )@@G@@) $EQU 0 @#@@@@E$RR* $NAME 0 @#@@@@E$RM* $NAME 1 @C@@@@ MM )@@G@@ I$ 0,012,012,0,0,P$(0,0)*/6+P$(1,1)@]@@@@ $END@[@@@@. MN )@@G@@@#@@@@P$ $PROC *1@D@@@@E$RL* $NAME 2 . CALL: E$RLMO )@@G@@ ADDR[,OFS]@F@@@@P$(1,3) $EQU P$(1,2) . FOR E$RL, MAKE P$(1,3) MP )@@G@@THE OFFSET, @D@@@@P$(1,2) $EQU 0 . AND CLEAR P$(1,2). MQ )@@G@@@F@@@@E$RF* $NAME 3 . CALL: E$RF ADDR[,[CCT][,OFS]] MR )@@G@@@B@@@@O(0) $EQU P$(1,3) . OFFSET. @G@@@@D(0) $EQU O(MS )@@G@@0)/6 . REDUCE OFFSET TO VALUE IN RANGE 0-5. @ @@@@O(0) $EQUMT )@@G@@ O(0)-6*D(0) @ @@@@ DO O(0)>-1 , GO FINISH@^@@@@D(0) $EQUMU )@@G@@ D(0)-1 @^@@@@O(0) $EQU O(0)+6 @#@@@@FINISH $NAME @^@@@@MV )@@G@@F FORM 6,6,6,18@C@@@@ F 0,O(0),P$(1,2),P$(1,1)+D(0MW )@@G@@) @]@@@@ $END@[@@@@. @[@@@@. @#@@@@P$ $PROC *1MX )@@G@@@F@@@@E$RO* $NAME . CALL: E$RO ADDR[,[DCT][,JDS]] MY )@@G@@@C@@@@D(0) $EQU P$(1,2) . DIGIT COUNT. @C@@@@J(0) $EQUMZ )@@G@@ P$(1,3) . J-DESIGNATOR. @H@@@@ DO (J(0)=J(0)**017)=0 NA )@@G@@, T$FLAG . IF J-DESIGNATOR > 017, FORCE T-FLAG. @G@@@@ DO P$(1)>3NB )@@G@@ , E$FLAG . IF TOO MANY ARGUMENTS, FORCE E-FLAG. @^@@@@F FORMNC )@@G@@ 6,6,6,18@A@@@@ F 1,J(0),D(0),P$(1,1) @]@@@@ $ENDND )@@G@@@[@@@@. @[@@@@. @D@@@@P$ $PROC *1 . USED WITH CNE )@@G@@$TY ONLY. @#@@@@E$MS* $NAME @D@@@@E$RN* $EQU E$RN+1 .NF )@@G@@ BUMP MESSAGE COUNTER. @F@@@@ $DO \$IBITS(P$(1,1))**1*/5 ,P$(1,1NG )@@G@@) $EQU $CFS(P$(1,1)) @E@@@@EMS$(E$RN)* $EQU +($GFORM 12,1, 6,$SL(P$(1NH )@@G@@,1))//6, 18,$) @D@@@@ $DISPLAY 'EMS$(':$CD(E$RN):') .',EMS$(E$NI )@@G@@RN) @#@@@@ P$(1,1) @]@@@@ $END@[@@@@/. @[@@@@. ^ON NJ )@@G@@@G@@@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . NK )@@G@@. . . @D@@@@. *** ASSEMBLER PROCEDURE LIBRARY *** @E@@@@NL )@@G@@. COPYRIGHT 1974,1975,1977,1980, B. E. CHI @D@@@@. NM )@@G@@ SUNY-ALBANY, ALBANY NY 12222 @G@@@@. . . . . . . . . NN )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . @C@@@@. NO )@@G@@ *** DEF$P *** @G@@@@. THESE PROCEDURES SERVE ONLY NP )@@G@@TO DEFINE MNEMONICS AND FUNCTIONS. NO @ @@@@. CODE IS EVER GENERATEDNQ )@@G@@. @G@@@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . NR )@@G@@. . . . . . @G@@@@. THE PROCEDURE CALL GRS$ DEFINES REGISTER AND J-DNS )@@G@@ESIGNATOR MNEMON- @G@@@@. ICS. IN ADDITION TO THOSE DEFINITIONS GIVEN ANT )@@G@@S IN AXR$, THE FOLLOWING@#@@@@. ARE PROVIDED: @F@@@@. A16 EQU NU )@@G@@28 SJ0 EQU 4 SJ2 EQU 6 @F@@@@. A17 EQU NV )@@G@@29 SJ1 EQU 5 SJ3 EQU 7 @G@@@@. THE FIRST COLUMNNW )@@G@@ APPLIES TO THE TWO UNASSIGNED REGISTERS IN THE GRS. @G@@@@. THE SECONDNX )@@G@@ COLUMN DEFINES J-DESIGNATORS USED IN CONNECTION WITH BYTE- @G@@@@. HARDNY )@@G@@WARE REGISTERS J0-J3. ALSO, TAG 'ASM$' WILL HAVE VALUE 1(0) AS @G@@@@NZ )@@G@@. THE ASSEMBLER IN USE IS @ASM(@MASM), AND CONVERSELY FOR TAG 'MASM$'. OA )@@G@@@I@@@@ DEF . OB )@@G@@ ^OFF @#@@@@X0 EQU 0 @#@@@@X1 EQU 1 @#@@@@OC )@@G@@X2 EQU 2 @#@@@@X3 EQU 3 @#@@@@X4 EQU 4 @#@@@@OD )@@G@@X5 EQU 5 @#@@@@X6 EQU 6 @#@@@@X7 EQU 7 @#@@@@OE )@@G@@X8 EQU 8 @#@@@@X9 EQU 9 @#@@@@X10 EQU 10@#@@@@OF )@@G@@X11 EQU 11@#@@@@A0 EQU 12@#@@@@A1 EQU 13@#@@@@OG )@@G@@A2 EQU 14@#@@@@A3 EQU 15@#@@@@A4 EQU 16@#@@@@OH )@@G@@A5 EQU 17@#@@@@A6 EQU 18@#@@@@A7 EQU 19@#@@@@OI )@@G@@A8 EQU 20@#@@@@A9 EQU 21@#@@@@A10 EQU 22@#@@@@OJ )@@G@@A11 EQU 23@#@@@@A12 EQU 24@#@@@@A13 EQU 25@#@@@@OK )@@G@@A14 EQU 26@#@@@@A15 EQU 27@#@@@@A16 EQU 28@#@@@@OL )@@G@@A17 EQU 29@#@@@@R1 EQU 65@#@@@@R2 EQU 66@#@@@@OM )@@G@@R3 EQU 67@#@@@@R4 EQU 68@#@@@@R5 EQU 69@#@@@@ON )@@G@@R6 EQU 70@#@@@@R7 EQU 71@#@@@@R8 EQU 72@#@@@@OO )@@G@@R9 EQU 73@#@@@@R10 EQU 74@#@@@@R11 EQU 75@#@@@@OP )@@G@@R12 EQU 76@#@@@@R13 EQU 77@#@@@@R14 EQU 78@#@@@@OQ )@@G@@R15 EQU 79@#@@@@SR1 EQU 67@#@@@@SR2 EQU 68@#@@@@OR )@@G@@SR3 EQU 69@#@@@@J0 EQU 70@#@@@@J1 EQU 71@#@@@@OS )@@G@@J2 EQU 72@#@@@@J3 EQU 73@[@@@@. @#@@@@W EQU OT )@@G@@ 0 @#@@@@H2 EQU 1 @#@@@@H1 EQU 2 @#@@@@XH2 EQU OU )@@G@@ 3 @#@@@@XH1 EQU 4 @#@@@@T3 EQU 5 @#@@@@T2 EQU OV )@@G@@ 6 @#@@@@T1 EQU 7 @^@@@@S1 EQU 015 @^@@@@S2 OW )@@G@@ EQU 014 @^@@@@S3 EQU 013 @^@@@@S4 EQU 01OX )@@G@@2 @^@@@@S5 EQU 011 @^@@@@S6 EQU 010 @#@@@@OY )@@G@@Q1 EQU 7 @#@@@@Q2 EQU 4 @#@@@@Q3 EQU 6 @#@@@@OZ )@@G@@Q4 EQU 5 @^@@@@U EQU 016 @^@@@@XU EQU 01PA )@@G@@7 @#@@@@SJ0 EQU 4 @#@@@@SJ1 EQU 5 @#@@@@SJ2 EQU PB )@@G@@ 6 @#@@@@SJ3 EQU 7 @[@@@@. @D@@@@ASM$ EQU 0<0=0 PC )@@G@@ . 1(0) AS @ASM(@MASM). @D@@@@MASM$ EQU 0=0=0 . 1(0) PD )@@G@@AS @MASM(@ASM). @[@@@@. @#@@@@GRS$* PROC *0@I@@@@ END PE )@@G@@ . ^ON PF )@@G@@@G@@@@/ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . PG )@@G@@. . . @G@@@@. THE PROCEDURE CALL ACC$ CAUSES NAMES FOR THE ASCII NONPH )@@G@@-PRINTING @F@@@@. CHARACTERS TO BECOME DEFINED. THE NAMES ARE THE STAPI )@@G@@NDARD ASCII @C@@@@. NAMES PRECEDED BY 'A$'. E.G., A$ETX $EQU 03. @G@@@@PJ )@@G@@ $DEF . ^OFFPK )@@G@@@H@@@@A$NUL $EQU $CAS(0) . THE DEFINITIONS ARE GIVEN IN DECIMAPL )@@G@@L SO AS @G@@@@A$SOH $EQU $CAS(1) . TO AVOID ANY $OCTAL/$HPM )@@G@@EX SENSITIVITY. @^@@@@A$STX $EQU $CAS(2) @^@@@@A$ETX $EQU $CPN )@@G@@AS(3) @^@@@@A$EOT $EQU $CAS(4) @^@@@@A$ENQ $EQU $CAS(5) @^@@@@PO )@@G@@A$ACK $EQU $CAS(6) @^@@@@A$BEL $EQU $CAS(7) @^@@@@A$BS $EQUPP )@@G@@ $CAS(8) @^@@@@A$HT $EQU $CAS(9) @^@@@@A$LF $EQU $CAS(10)PQ )@@G@@@^@@@@A$VT $EQU $CAS(11)@^@@@@A$FF $EQU $CAS(12)@^@@@@A$CR PR )@@G@@ $EQU $CAS(13)@^@@@@A$SO $EQU $CAS(14)@^@@@@A$SI $EQU $CPS )@@G@@AS(15)@^@@@@A$DLE $EQU $CAS(16)@^@@@@A$DC1 $EQU $CAS(17)@^@@@@PT )@@G@@A$DC2 $EQU $CAS(18)@^@@@@A$DC3 $EQU $CAS(19)@^@@@@A$DC4 $EQUPU )@@G@@ $CAS(20)@^@@@@A$NAK $EQU $CAS(21)@^@@@@A$SYN $EQU $CAS(22)PV )@@G@@@^@@@@A$ETB $EQU $CAS(23)@^@@@@A$CAN $EQU $CAS(24)@^@@@@A$EM PW )@@G@@ $EQU $CAS(25)@^@@@@A$SUB $EQU $CAS(26)@^@@@@A$ESC $EQU $CPX )@@G@@AS(27)@^@@@@A$FS $EQU $CAS(28)@^@@@@A$GS $EQU $CAS(29)@^@@@@PY )@@G@@A$RS $EQU $CAS(30)@^@@@@A$US $EQU $CAS(31)@ @@@@A$DEL $EQUPZ )@@G@@ $CAS(127) @#@@@@ACC$* $PROC *0@]@@@@ $END@G@@@@/ . . QA )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ^ON @G@@@@QB )@@G@@. THE PROCEDURE CALL FNC$ CAUSES THE FOLLOWING FUNCTIONS TO BECOME QC )@@G@@@]@@@@. DEFINED: @[@@@@. ^OFF@I@@@@ DEF . QD )@@G@@ ^ON @D@@@@. J-REGISTER FUNCTQE )@@G@@ION. USAGE: JRG(OFS,BL,INC,I,E). @E@@@@. OFS BYTE OFFSET (MUST BE SQF )@@G@@PECIFIED AND NON-NEGATIVE) @C@@@@. BL BYTE LENGTH (6,9,12 OR 18; DQG )@@G@@EFAULT: 6) @B@@@@. INC BYTE INCREMENTATION (DEFAULT: +1)@F@@@@. I QH )@@G@@ J/X-REGISTER MODIFICATION DESIGNATOR (0 OR 1; DEFAULT: 1)@C@@@@. E QI )@@G@@ SIGN EXTENSION (0 OR 1; DEFAULT: 0) @I@@@@JRG* FUNC QJ )@@G@@ . ^OFF @B@@@@I QK )@@G@@ EQU (JRG<4)+(JRG>3)*JRG(4) @C@@@@BITS EQU (JRG(2)<9)*6+(QL )@@G@@JRG(2)>6)*JRG(2) @C@@@@BL EQU (BITS=18)+(BITS=6)*2+(BITS=12)*3QM )@@G@@@ @@@@E EQU (JRG>4)*JRG(5)@F@@@@ DO JRG(1)<0 , DO 0=0=1QN )@@G@@ , ? . INDICATE ERROR IF OFFSET < 0.@G@@@@ DO JRG(1)<0 , DO 0=0=0QO )@@G@@ , $DISPLAY 'OFFSET < 0 ILLEGAL',JRG(1)? @ @@@@OW EQU BITS*JRGQP )@@G@@(1)/36@F@@@@OB EQU (JRG(1)-36/BITS*OW)*(1+(BL=0)+(BL=3)+3*(BL=1QQ )@@G@@)) @F@@@@ DO (JRG(3)<-1)++(JRG(3)>1) , DO 0=0=1 , ? . INDICATEQR )@@G@@ ERROR@H@@@@ DO (JRG(3)<-1)++(JRG(3)>1) , DO 0=0=0 , ; . IF ABS(IQS )@@G@@NCREMENT) > 1. @D@@@@ $DISPLAY 'INCREMENT OUT OF RANGE',JRG(3)QT )@@G@@? @ @@@@IW EQU JRG(3)*/-3 @F@@@@IB EQU ((JRG(3)QU )@@G@@+(JRG<3))*(1+(BL=0)+(BL=3)+3*(BL=1)))**7 @A@@@@JR FORM 1,2,1,11QV )@@G@@,3,15,3 @B@@@@ END +(JR I,BL,E,IW,IB,OW,OB) .@G@@@@/ . . QW )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ^ON @F@@@@QX )@@G@@. STRING FIELD FUNCTION. EXAMPLES: STF('AB CDE',1) = 'AB'. @G@@@@QY )@@G@@. STF('AB CDE',2) = 'CDE'. STF('AB CDE',3) = ''. STF(' FG',1) = ''. QZ )@@G@@@D@@@@. STF(' FG',2) = 'FG'. STF('AB***CD',2,'*') ='CD'. @I@@@@F$ RA )@@G@@ $FUNC . ^ORB )@@G@@FF @#@@@@STF* $NAME @D@@@@F $EQU 1 . NEXT-RC )@@G@@FIELD COUNTER. @D@@@@S $EQU 0 . THIS-SEPARATOR CORD )@@G@@UNTER.@H@@@@IC $EQU 1 . LOCATION OF 1ST CHARACTER OF RE )@@G@@REQUIRED FIELD. @F@@@@IL $EQU 0 . CHARACTER COUNT ORF )@@G@@F REQUIRED FIELD. @F@@@@ $DO F$<4 ,F$(3) $EQU ' ' . DEFAULT SEPARRG )@@G@@ATOR IS BLANK(S). @[@@@@. @E@@@@ $IF $TSTR(F$(1)) . THEN RH )@@G@@ARGUMENT 1 IS A STRING. @E@@@@I $REPEAT 1,$SL(F$(1)) . FOR EACH CHRI )@@G@@ARACTER IN STRING:@G@@@@ $IF $SS(F$(1),I)=F$(3) . THEN CURRENRJ )@@G@@TLY SCANNING SEPARATOR. @E@@@@ $DO F=F$(2) , $ENDI . UNLESS REQURK )@@G@@IRED FIELD FOUND, @D@@@@S $EQU F . UPDATE SEPARATOR RL )@@G@@COUNT.@E@@@@ $ELSE . CURRENTLY SCANNING FIELD. RM )@@G@@@D@@@@F $EQU S+1 . UPDATE FIELD COUNT. @F@@@@ RN )@@G@@ $IF F=F$(2) . THEN THIS IS THE REQUIRED FIELD. @G@@@@ RO )@@G@@ $DO \IL ,IC $EQU I . IF FIRST CHARACTER, REMEMBER LOCATION. @E@@@@RP )@@G@@IL $EQU IL+1 . UPDATE FIELD CHARACTER COUNT.@C@@@@ RQ )@@G@@ $ENDF . REQUIRED FIELD. @D@@@@ $ENDF RR )@@G@@ . SEPARATOR VS. FIELD. @#@@@@ $ENDR @E@@@@ $ELSRS )@@G@@E . ARGUMENT 1 NOT A STRING. @F@@@@F$(1) $EQU ''RT )@@G@@? . MAKE IT ONE AND GENERATE E-FLAG. @#@@@@ $ENDF RU )@@G@@@A@@@@ $END $SS(F$(1),IC,IL) @G@@@@. . . . . . . . . . . . RV )@@G@@. . . . . . . . . . . . . . . . . . . . . . ^ON @G@@@@. LOWER-CASE FUNCTRW )@@G@@ION. ALL CHARACTERS IN THE ARGUMENT STRING WITH ASCII@G@@@@. CODES IN TRX )@@G@@HE RANGE 0100-0137 ARE CONVERTED TO LOWER CASE IF THE ARGU- @E@@@@. MENTRY )@@G@@ IS A STRING AND THE CURRENT CHARACTER SET IS $ASCII. @I@@@@F$ $FUNRZ )@@G@@C . ^OFF SA )@@G@@@#@@@@LC$* $NAME @A@@@@ $IF $IBITS(F$(1))**1*/6 @ @@@@SB )@@G@@I $REPEAT $SL(F$(1)) @ @@@@C $EQU $SS(F$(1),I) @E@@@@SC )@@G@@ $DO 0100<=C<=0137 ,F$(1) $EQU $SSS(F$(1),C+040,I) @#@@@@ SD )@@G@@ $ENDR @#@@@@ $ENDF @^@@@@ $END F$(1) @G@@@@SE )@@G@@/ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ^ON SF )@@G@@@G@@@@. BYTE ADDRESS FUNCTION. EXAMPLES (ASSUMING $ASCII DIRECTIVE IN ESG )@@G@@F- @G@@@@. FECT): BAD('ABCDEFGFEDCBA','F') = 1,,Q2. BAD('ABCDEFGFEDCSH )@@G@@BA','F',2) @G@@@@. = 1,,Q4. GENERALLY, BAD(S,C[,N]) RETURNS THE BYTE LSI )@@G@@OCATION OF THE @G@@@@. NTH OCCURRENCE OF CHARACTER C IN STRING S, N ASJ )@@G@@SSUMED 1 IF NOT SPE- @G@@@@. CIFIED. THE CURRENT CHARACTER SET IS AUSK )@@G@@TOMATICALLY ACCOUNTED FOR. @I@@@@F$ $FUNC . SL )@@G@@ ^OFF @G@@@@BAD* $NAME 0 SM )@@G@@ . TO INITIALIZE F$(0) (= HITS COUNTER). @H@@@@ $DO SN )@@G@@F$<4 ,F$(3) $EQU 1 . IF UNSPECIFIED, ACCEPT FIRST OCCURRENCE. @F@@@@SO )@@G@@I $REPEAT 0,$SL(F$(1))-1 . FOR EACH CHARACTER IN STRING: @H@@@@SP )@@G@@ $IF F$(2)=$SS(F$(1),I+1) . SEE IF SAME AS SPECIFIED CHARACTESQ )@@G@@R. @E@@@@F$(0) $EQU F$(0)+1 . IF SO, BUMP HITS COUNTER. SR )@@G@@@H@@@@ $DO F$(0)=F$(3) , $ENDI . BREAK OUT IF REQ'D NUMBER OF HITSS )@@G@@S OCCURRED. @#@@@@ $ENDF @#@@@@ $ENDR @F@@@@ ST )@@G@@ $IF F$(0)=F$(3) . THEN SPECIFIED CHARACTER WAS FOUND.@G@@@@ SU )@@G@@ $IF 1**$TMODES . THEN CURRENT CHARACTER SET IS ASCII. @G@@@@SV )@@G@@I $EQUF I/4,,$L0(7,4,6,5)(I///4) . U,,J FOR SPECIFIED CHARACTER.SW )@@G@@@B@@@@ $ELSE . FIELDATA. @B@@@@I $EQUF I/SX )@@G@@6,,015-I///6 . DITTO. @#@@@@ $ENDF @D@@@@ $ELSE SY )@@G@@ . CHARACTER NOT FOUND. @F@@@@ $DISPLAY 'SPECIFIED CHSZ )@@G@@ARACTER ''':F$(2):''' NOT FOUND.' @G@@@@I $EQU 0,? .TA )@@G@@ RETURN VALUE ZER0 AND GENERATE E-FLAG. @#@@@@ $ENDF @#@@@@TB )@@G@@ $END I @G@@@@/ . . . . . . . . . . . . . . . . . . . . . . . TC )@@G@@. . . . . . . . . . ^ON @H@@@@. OPTION-BIT FUNCTION. EXAMPLE: OPB('ABXTD )@@G@@YZ') = 0300000007. THE ARGUMENT @G@@@@. MAY BE OF ANY LENGTH. NON-LTE )@@G@@ETTERS AND DUPLICATE LETTERS ARE IGNORED. @I@@@@F$ $FUNC TF )@@G@@ . ^OFF @A@@@@OPB* TG )@@G@@ $NAME +($GFORM 10,0,26,0) @ @@@@I $REPEAT $SL(F$(1)) @A@@@@TH )@@G@@C $EQU 'Z'-$SS(F$(1),I,1) @C@@@@ $DO 0<=C<26 ,F$(0) $EQTI )@@G@@U F$(0)++1*/C @#@@@@ $ENDR @^@@@@ $END +F$(0) TJ )@@G@@@G@@@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . TK )@@G@@. ^ON @H@@@@. FUNCTION TO OBVERT A STRING. EXAMPLE: OBV('ABXYZ') = 'ZYTL )@@G@@XBA'. THE AR- @ @@@@. GUMENT MAY BE OF ANY LENGTH.@I@@@@F$ $FUNTM )@@G@@C . ^OFF TN )@@G@@@#@@@@OBV* $NAME ''@E@@@@I $DO $SL(F$(1)) ,F$(0) $EQU $SS(F$(TO )@@G@@1),I,1):F$(0) @^@@@@ $END F$(0) @G@@@@. . . . . . . . . TP )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . ^ON @G@@@@. BASE-2 LOGTQ )@@G@@ARITHM. LG2$(N) IS THE INVERSE OF 1*/N. THE ARGUMENT MAY @G@@@@. BE STR )@@G@@INGLE- OR DOUBLE-PRECISION. EXAMPLE: LG2$(1*/40) = 40. IF THE @C@@@@TS )@@G@@. VALUE IS NOT AN INTEGER, VALUE -0 IS RETURNED.@I@@@@LG2$* $FUNC TT )@@G@@ . ^OFF @C@@@@TU )@@G@@I $DO 0,72 , $DO LG2$(1)=1*/I , $ENDD @ @@@@ $DO I=72 ,TV )@@G@@I $EQU -0 @#@@@@ $END I @G@@@@. . . . . . . . . . . . . . . TW )@@G@@. . . . . . . . . . . . . . . . . . . ^ON @G@@@@. FLOATING-POINT TO INTETX )@@G@@GER CONVERSION. FX$(X) RETURNS THE 36-BIT IN- @G@@@@. TEGER PART OF FLTY )@@G@@OATING-POINT NUMBER X. X MAY BE SINGLE- OR DOUBLE- @G@@@@. PRECISION.TZ )@@G@@ DFX$(X) SIMILARLY RETURNS THE 72-BIT INTEGER PART OF X. @I@@@@F$ UA )@@G@@ $FUNC . ^OUB )@@G@@FF @#@@@@FX$* $NAME 0 @#@@@@DFX$* $NAME *0@I@@@@ $DO UC )@@G@@F$(1)<0 ,I $DO 0,1 ,F$(I) $EQU -F$(I) . F$(0),(1) = SIGN, MAGNITUDE. UD )@@G@@@F@@@@F $EQU F$(1)+0.0D . FORCE ARGUMENT TO DOUBLE-PRECISION.UE )@@G@@@I@@@@ $END +($GFORM F$(*0)->72!36,((1D*/60-1)**F)*/((F*/-60)-UF )@@G@@02074)--F$(0)) @G@@@@. . . . . . . . . . . . . . . . . . . . . . . . UG )@@G@@. . . . . . . . . . . . @#@@@@FNC$* PROC 0 @]@@@@ END @G@@@@UH )@@G@@/ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ^ON UI )@@G@@@F@@@@. THE PROCEDURE CALL ELT$ DEFINES TAGS FOR ELT$ IN INFOR$. UJ )@@G@@@I@@@@ DEF . UK )@@G@@ ^OFF @ @@@@FQL EQUF ELT$,,015 @ @@@@FNL EQUFUL )@@G@@ ELT$,,014 @ @@@@FCL EQUF ELT$,,013 @ @@@@RKL EQUFUM )@@G@@ ELT$,,012 @ @@@@WKL EQUF ELT$,,011 @ @@@@IQF EQUFUN )@@G@@ ELT$,,010 @[@@@@. @ @@@@ENL EQUF ELT$+1,,015 @ @@@@UO )@@G@@EVL EQUF ELT$+1,,014 @ @@@@ECL EQUF ELT$+1,,013 @ @@@@UP )@@G@@CFN EQUF ELT$+1,,012 @ @@@@ECC EQUF ELT$+1,,011 @ @@@@UQ )@@G@@BEC EQUF ELT$+1,,010 @[@@@@. @^@@@@FQUAL EQU ELT$+2 UR )@@G@@@^@@@@FNAME EQU ELT$+4 @^@@@@FCYC EQU ELT$+6 @^@@@@RKEY US )@@G@@ EQU ELT$+7 @^@@@@WKEY EQU ELT$+8 @^@@@@ENAME EQU ELUT )@@G@@T$+9 @^@@@@EVER EQU ELT$+11 @^@@@@ECYC EQU ELT$+13 @#@@@@UU )@@G@@ELT$* PROC 0 @I@@@@ END . UV )@@G@@ ^ON @G@@@@. . . . . . . . . . . . . . . UW )@@G@@. . . . . . . . . . . . . . . . . . . . . @H@@@@. THE PROCEDURE CALL MUX )@@G@@NM$ IS EQUIVALENT TO THE TWO CALLS GRS$ , FNC$ . @G@@@@. THE PROCEDUY )@@G@@URE CALL DEF$ IS EQUIVALENT TO THE THREE CALLS GRS$ , @G@@@@. FNC$UZ )@@G@@ , ELT$ . BOTH CAUSE VARIABLE PASS$(0) TO ALWAYS EQUAL THE CUR- @B@@@@VA )@@G@@. RENT ASSEMBLER PASS NUMBER (1 OR 2). @I@@@@P$ PROC *0 VB )@@G@@ . ^OFF @]@@@@DEF$* VC )@@G@@ NAME@]@@@@ ELT$@]@@@@MNM$* NAME@]@@@@ FNC$@]@@@@ VD )@@G@@ GRS$@ @@@@PASS$*(0) EQU PASS$(0)+1 @I@@@@ END VE )@@G@@ . ^ON @G@@@@/ . . VF )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . @G@@@@VG )@@G@@. HEX-TO-BINARY CONVERSION FUNCTION. '+HX('3AF')' RETURNS VALUE 01657. VH )@@G@@@G@@@@. MORE GENERALLY, HX('NNN..NN'), WHERE EACH N IS A HEXADECIMAL DIGVI )@@G@@IT, @G@@@@. RETURNS THE ACTUAL VALUE. . THE FUNCTION IS DEFINED BY INVJ )@@G@@VOKING THE @^@@@@. PROCEDURE 'HEX$'. @I@@@@ $DEF VK )@@G@@ . ^OFF @#@@@@F VL )@@G@@ $FUNC @D@@@@HX* $NAME 0 . (SETS F(0) TO ZERO.) VM )@@G@@@D@@@@I $EQU $TMODES**2 . REMEMBER INITIAL RADIX.@^@@@@ VN )@@G@@ I->$HEX!$NIL @E@@@@J $DO $SL(F(1)) ,F(0) $EQU F(0)*/4+0[$SS(FVO )@@G@@(1),J)] @D@@@@ I->$OCTAL!$NIL . RESTORE INITIAL RADIX. VP )@@G@@@^@@@@ $END F(0) @F@@@@HEX$* $PROC *0,0 . DUMMYVQ )@@G@@ PROC FOR EXTERNALIZATION. @I@@@@ $END . VR )@@G@@ ^ON @G@@@@. . . . . . . . . VS )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . @G@@@@. BINARY-TO-VT )@@G@@BINARY CONVERSION FUNCTION. '+BN('1110101111')' RETURNS @G@@@@. VALUVU )@@G@@E 01657. MORE GENERALLY, BN('NNN..NN'), WHERE EACH N IS A BINARY @F@@@@VV )@@G@@. DIGIT, RETURNS THE ACTUAL VALUE. IMBEDDED BLANKS MAY BE PRESENT@F@@@@VW )@@G@@. AMONG THE N'S TO IMPROVE LEGIBILITY. THEY HAVE NO EFFECT ON THE@E@@@@VX )@@G@@. FUNCTION'S VALUE--THE EXAMPLE ABOVE COULD ALSO BE ENCODED @F@@@@. '+BNVY )@@G@@('1 110 101 111')'. THE FUNCTION IS DEFINED BY INVOKING THE@^@@@@. PROCVZ )@@G@@EDURE 'BIN$'. @I@@@@ $DEF . WA )@@G@@ ^OFF @#@@@@F $FUNC @D@@@@BN* WB )@@G@@ $NAME 0 . (SETS F(0) TO ZERO.) @ @@@@I $REPEAT $SWC )@@G@@L(F(1)) @ @@@@K $EQU $SS(F(1),I,1) @A@@@@ $IF (KWD )@@G@@='0')++(K='1') @A@@@@F(0) $EQU F(0)*/1+(K='1') @^@@@@ WE )@@G@@ $ELSF K<>' ' @]@@@@ ? @#@@@@ $ENDF @#@@@@ WF )@@G@@ $ENDR @^@@@@ $END F(0) @F@@@@BIN$* $PROC *0,0 WG )@@G@@ . DUMMY PROC FOR EXTERNALIZATION. @I@@@@ $END WH )@@G@@ . ^ON @[@@@@/. WI )@@G@@@[@@@@. ^ON @G@@@@. . . . . . . . . . . . . . . . . . . . . . . . . . . WJ )@@G@@. . . . . . . . . @D@@@@. *** ASSEMBLER PROCEDURE LIBRARWK )@@G@@Y *** @D@@@@. COPYRIGHT 1974,1975, B. E. CHI @D@@@@WL )@@G@@. SUNY-ALBANY, ALBANY NY 12222 @G@@@@. . . . . . WM )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . @C@@@@. WN )@@G@@ *** ER$P *** @C@@@@. THESE PROCEDURES GENERWO )@@G@@ATE EXECUTIVE REQUESTS. @G@@@@. . . . . . . . . . . . . . . . . . . . . WP )@@G@@. . . . . . . . . . . . . ^OFF@H@@@@. COMPUTE GENERALIZED ADDRESS. FOR WQ )@@G@@USE BY OTHER PROCEDURES SUCH AS THOSE @A@@@@. BELOW, WHICH SEE FOR EWR )@@G@@XAMPLES. @]@@@@ DEF @]@@@@P$AD* FUNC@C@@@@F EQU P$WS )@@G@@AD(1) . FIELD INDEX. @C@@@@S EQU P$AD(2) . SUBFIWT )@@G@@ELD INDEX. @ @@@@I$ FORM 6,4,4,4,2,16 @F@@@@ END +(WU )@@G@@I$ ,,,P$(F,S+1),2*P$(F,*S+1)+P$(F,*S),P$(F,S)) @^@@@@P$AD$* PROC *0WV )@@G@@,0 @]@@@@ END @G@@@@. . . . . . . . . . . . . . . . . . . . . WW )@@G@@. . . . . . . . . . . . . ^ON @G@@@@. ACCESS PCT. CALL: P$CT [,WC][,BUF]] . DEFAULT WC = 1. @A@@@@P$ PROC *1 .WY )@@G@@ ^OFF @]@@@@P$CT* NAME@#@@@@ P$AD$ @E@@@@ DO P$(1)>2WZ )@@G@@ , LA,14*(P$(1)<5)+P$(1,5) 12,P$AD(1,3) @ @@@@ LA,14 13,P$(1,XA )@@G@@1) @B@@@@ LXI,14 13,(P$(1,2)=0)+P$(1,2) @^@@@@ ER XB )@@G@@ PCT$ @ @@@@ END .@G@@@@. . . . . . . . . XC )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . ^ON @G@@@@. EXECUTIVE XD )@@G@@REQUESTS. CALL: X$XXX [LOC[,[X][,J]]] WHERE X$XXX IS @G@@@@. P$FSXE )@@G@@, P$FI, P$FD, I$O, I$OW, P$FWL, F$ACIL, F$ACIT, M$CT, M$SCON. @D@@@@XF )@@G@@. IF NO J-DESIGNATOR BE SPECIFIED, 'U' IS ASSUMED. @A@@@@P$ PROCXG )@@G@@ *1 . ^OFF @^@@@@P$FS* NAME PFS$ @^@@@@P$FI* NAMEXH )@@G@@ PFI$ @^@@@@P$FD* NAME PFD$ @^@@@@I$O* NAME IO$ XI )@@G@@@^@@@@I$OW* NAME IOW$ @^@@@@P$FWL* NAME PFWL$ @^@@@@F$ACILXJ )@@G@@* NAME FACIL$ @^@@@@F$ACIT* NAME FACIT$ @^@@@@M$CT* NAME MCXK )@@G@@T$ @^@@@@M$SCON* NAME MSCON$ @#@@@@ P$AD$ @E@@@@ XL )@@G@@ DO P$(1)>1 , LA,15*(P$(1)<3)+P$(1,3) 12,P$AD(1,1) @B@@@@ DO PXM )@@G@@$(1)=1 , LA,15 12,P$(1,1) @^@@@@ ER P$(0,0) @ @@@@ XN )@@G@@ END .@G@@@@/ . . . . . . . . . . . . . . . . . . . . XO )@@G@@. . . . . . . . . . . . . ^ON @D@@@@. EXECUTIVE REQUESTS. CALL: X$XXX XP )@@G@@[LOC[,[X][,J]]] @F@@@@. OR: X$XXX[,N] 'FIELDATXQ )@@G@@A OR ASCII STRING'@G@@@@. WHERE X$XXX IS C$SF, A$CSF, P$RINT, A$PRINT, PXR )@@G@@$RTCN, A$PRTCN. IN THE @G@@@@. FIRST FORM OF THE CALL, IF NO J-DESIGNATXS )@@G@@OR BE SPECIFIED, 'W' IS AS- @G@@@@. SUMED. IN THE SECOND FORM (USEABLXT )@@G@@E ONLY WITH @MASM), THE APPROPRIATE @G@@@@. LITERALS ARE GENERATED. PARXU )@@G@@AMETER N IS THE LINE SPACING COUNT. IT IS@G@@@@. IGNORED EXCEPT FOR P$RXV )@@G@@INT, A$PRINT AND, IF NOT SPECIFIED FOR THESE @ @@@@. CASES, IS ASSUMEXW )@@G@@D TO BE 1. @A@@@@P$ PROC *1 . ^OFF @^@@@@P$RINT* NAMEXX )@@G@@ PRINT$ @^@@@@A$PRINT* NAME *APRINT$@D@@@@ DO P$(0)<2 ,P$(0XY )@@G@@,1) EQU 1 . SET DEFAULT N. @^@@@@C$SF* NAME CSF$ @^@@@@A$CSF*XZ )@@G@@ NAME *ACSF$ @^@@@@P$RTCN* NAME PRTCN$ @^@@@@A$PRTCN* NAME *AYA )@@G@@PRTCN$@F@@@@ DO 0=0=0 , DO $TSTR(P$(1,1)) , DO P$(1)=1 , GO STRINYB )@@G@@G @#@@@@ P$AD$ @B@@@@ DO P$>1 , LA,P$(1,3) 12,P$ADYC )@@G@@(1,1) @^@@@@ GO CALL @]@@@@STRING NAME@^@@@@ $IF YD )@@G@@ P$(0,*0)@F@@@@ $DO \$IBITS(P$(1,1))**1*/6 ,P$(1,1) $EQU $CAS(YE )@@G@@P$(1,1)) @#@@@@CPW $EQU 4 @#@@@@ $ELSE @F@@@@ YF )@@G@@ $DO \$IBITS(P$(1,1))**1*/5 ,P$(1,1) $EQU $CFS(P$(1,1)) @#@@@@CPW YG )@@G@@ $EQU 6 @#@@@@ $ENDF @E@@@@ LA 12,(P$(0,1)*/6YH )@@G@@+$SL(P$(1,1))//CPW,(P$(1,1)L))@]@@@@CALL NAME@^@@@@ ER P$YI )@@G@@(0,0) @]@@@@ END @G@@@@. . . . . . . . . . . . . . . . . . . . . YJ )@@G@@. . . . . . . . . . . . . ^ON @G@@@@. ENCODE EXECUTIVE REQUEST WITH PARAYK )@@G@@METER IN A OR A,X FIELD. THE CALL @G@@@@. 'ERAX N,U' GENERATES THE WOYL )@@G@@RD $GFORM 6,072, 4,011, 8,N, 18,U . SIM-@G@@@@. ILARLY, THE CALL 'ERA YM )@@G@@ N,U' GENERATES THE WORD $GFORM 6,072, 4,011, @#@@@@. 4,N, 4,0, 18,U. YN )@@G@@@A@@@@P$ PROC *1 . ^OFF @ @@@@ERAX* NAME $L0('8',YO )@@G@@'') @ @@@@ERA* NAME $L0('4,4',',')@A@@@@F FORM 6,4,[P$(YP )@@G@@0,0,0)],18 @D@@@@ F 072,011,P$(1,1),[P$(0,0,1)]P$(1,2) YQ )@@G@@@]@@@@ END @G@@@@. . . . . . . . . . . . . . . . . . . . . . . . YR )@@G@@. . . . . . . . . . ^ON @[@@@@/. @[@@@@. ^ON @G@@@@. . . . . . . . . YS )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . @D@@@@. YT )@@G@@ *** ASSEMBLER PROCEDURE LIBRARY *** @D@@@@. COPYU )@@G@@YRIGHT 1976,1977, B. E. CHI @D@@@@. SUNY-ALBANY, AYV )@@G@@LBANY NY 12222 @G@@@@. . . . . . . . . . . . . . . . . . . . . . . . YW )@@G@@. . . . . . . . . . . . @C@@@@. *** FLOW$P **YX )@@G@@* @F@@@@. THESE PROCEDURES ARE USED AS AIDS IN STRUCTURING PROGRAM FYY )@@G@@LOW. @G@@@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . YZ )@@G@@. . . . . . @G@@@@. LOCAL LABELS. ANY REFERENCE TO THE FUNCTION B$(N) ZA )@@G@@, WHERE N IS AN @G@@@@. INTEGER > 0, WILL RETURN THE VALUE OF THE NTH ZB )@@G@@TAG 'L$(L$)' PRECEDING @G@@@@. THE REFERENCE. SIMILARLY, ANY REFERENCEZC )@@G@@ TO F$(N) WILL RETURN THE @G@@@@. VALUE OF THE NTH TAG FOLLOWING THEZD )@@G@@ REFERENCE. IF A SPECIFIED TAG DOES@G@@@@. NOT EXIST, THE UNDEFINED SYMZE )@@G@@BOL 'UNDEFLOC$' WILL BE RETURNED INSTEAD. @G@@@@. THE FUNCTIONS B$, F$ BZF )@@G@@ECOME DEFINED BY CALLING THE PROCEDURE LOC$ . @E@@@@. NOTE: SYMBOLS LZG )@@G@@$, B$ AND F$ BECOME RESERVED. EXAMPLE: @#@@@@. LOC$ @^@@@@ZH )@@G@@. $(0) $RES 2 @]@@@@. LOC1 . @^@@@@. L$(L$) $RES 2 ZI )@@G@@@E@@@@. L,U A0,F$(2) . EQUIVALENT TO L,U A0,'ABC' .@E@@@@ZJ )@@G@@. L$(L$) S A0,B$(1) . EQUIVALENT TO S A0,LOC1 . @^@@@@. L$(LZK )@@G@@$) $EQU 'ABC' @#@@@@. $END @A@@@@ $DEF ZL )@@G@@ . ^OFF @#@@@@F$* $FUNC @B@@@@F$(1) $EQU (L$(L$-L$(0,0)ZM )@@G@@)<>$)-F$(1) @#@@@@B$* $NAME @^@@@@ $DO \$LP , $END @A@@@@ZN )@@G@@L(0) $EQU L$-L$(0,0)-F$(1) @A@@@@ $IF 0I$FLAG!; . (INSIST ON PRIOR RBJ$ CALL.) @D@@@@ AK )@@G@@ J P$(1,1) . LEAP TO REMOTE BLOCK. @ @@@@ $LEVEL 0,AL )@@G@@$LEV-1,0 @E@@@@RBJ$2 $EQU RBJ$2+1 . INCREMENT RBJ CALL COUNAM )@@G@@T. @F@@@@RBJ$4(RBJ$2) $EQU P$(1,1) . REMEMBER ADDRESS OF REMOTE BLAN )@@G@@OCK. @E@@@@RBJ$5(RBJ$2) $EQU $ . REMEMBER RETURN ADDRESS. AO )@@G@@@^@@@@ $LEVEL 0,0,0 @]@@@@ $END@[@@@@. @D@@@@RMTBLKAP )@@G@@* $PROC 0,0 . BEGIN REMOTE BLOCK. @^@@@@ RBJ$1=0->IAQ )@@G@@$FLAG @^@@@@ RBJ$1=1->$END @G@@@@RBJ$3* $EQU -1 .AR )@@G@@ FIND RETURN ADDR FOR SUBSEQUENT RMTRTN. @E@@@@I $DO RBJ$4 , $DO AS )@@G@@RBJ$4(I)=$ ,RBJ$3* $EQU RBJ$5(I) @C@@@@ $DO RBJ$3=-1 ,RBJ$3* $AT )@@G@@EQU UNDEFLOC$ @]@@@@ $END@[@@@@. @^@@@@P$ $PROC *1AU )@@G@@,1 @D@@@@RMTRTN* $NAME . EXIT REMOTE BLOCK. @ @@@@AV )@@G@@ RBJ$1=0->I$FLAG!; @ @@@@ J RBJ$3+P$(1,1) @A@@@@AW )@@G@@ $END . ^ON @]@@@@. PCN:L,0. @G@@@@/ . . . . . AX )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . @[@@@@. AY )@@G@@@E@@@@. *** 'IF' AND 'REPEAT' CONTROL STRUCTURES *** @[@@@@AZ )@@G@@. @^@@@@. 1) ONE-LINE 'IF'. @[@@@@. @G@@@@. THE CONSTRUCTIONBA )@@G@@ 'IF ABC IS ZERO, /SZ,H1 XYZ' WILL CAUSE THE LEFT @F@@@@. HALF OF LOBB )@@G@@CATION 'XYZ' TO BE CLEARED IF [ABC] = 0 (OR -0). MORE@]@@@@. GENERALLY,BC )@@G@@@[@@@@. @ @@@@. IF , /III@[@@@@. @G@@@@. WHERBD )@@G@@E 'III' IS AN INSTRUCTION, WILL CAUSE THE INSTRUCTION TO BE EXECU-@G@@@@BE )@@G@@. TED IF AND ONLY IF THE SPECIFIED CONDITION IS TRUE. THE TEST SPECI- BF )@@G@@@G@@@@. FIED IN THE CONSTRUCTION ('') MAY BE ANY OF THE FOLLOBG )@@G@@WING: @[@@@@. @^@@@@. VVV IS ZERO @^@@@@. VVV IS NBH )@@G@@ONZ @^@@@@. VVV IS POS @^@@@@. VVV IS NEG @^@@@@BI )@@G@@. VVV EQ AREG @^@@@@. VVV NE AREG @^@@@@. VVBJ )@@G@@V LE AREG @^@@@@. VVV GT AREG @^@@@@. VVV LT AREG BK )@@G@@@^@@@@. VVV GE AREG @^@@@@. VVV OP AREG @^@@@@. BL )@@G@@ VVV EP AREG @[@@@@. @G@@@@. WHERE 'VVV' IS ANY EFFECTIVE OPERABM )@@G@@ND (SEE BELOW) AND 'AREG' (IN THE @G@@@@. FORMS WHERE IT APPEARS) IS ABN )@@G@@N A-REGISTER MNEMONIC. (THE RELATIONAL @G@@@@. OPERATIONS OP(EP) YIELBO )@@G@@D A TRUE CONDITION IF [VVV]**[AREG] CONTAINS AN @ @@@@. ODD(EVEN) NUMBERBP )@@G@@ OF 1-BITS.)@[@@@@. @^@@@@. THE COMPOUND FORMS @[@@@@. @D@@@@BQ )@@G@@. IF AND , /III @D@@@@. IFBR )@@G@@ OR , /III @[@@@@. @G@@@@. ARE ALSO PBS )@@G@@ERMISSIBLE. UP TO FOUR CONDITIONS, CONNECTED BY 'AND'S OR @F@@@@. 'OR'BT )@@G@@S, MAY BE EMPLOYED. SINCE BOTH CONJUNCTIONS ARE GIVEN EQUAL@G@@@@. PRECBU )@@G@@EDENCE, THE CONDITIONS ARE SIMPLY PARSED LEFT TO RIGHT: IF C IS A@G@@@@BV )@@G@@. CONDITION AND X A CONJUNCTION, C1 X1 C2 X2 C3 X3 C4 IS INTERPRETED AS BW )@@G@@@ @@@@. ((C1 X1 C2) X2 C3) X3 C4. @[@@@@. @F@@@@. FIELD 'VVV' DESIBX )@@G@@GNATES ANY REGISTER, CORE LOCATION OR IMMEDIATE @G@@@@. OPERAND AND MAY BY )@@G@@ASSUME THE *U,*X,J FORM, IF REQUIRED. FOR CONDITIONS @G@@@@. 'VVV LT ARBZ )@@G@@EG', 'VVV GE AREG', 'VVV' MUST BE AN UNINDEXED IMMEDIATE @B@@@@. OPERCA )@@G@@AND (E.G., '-0400,,XU', 'KMAX,,U'). @[@@@@. @G@@@@. THE INSTRUCTION CB )@@G@@'III' MAY BE A NORMAL MACHINE LANGUAGE INSTRUCTION @G@@@@. ('F,J A,*UCC )@@G@@,*X' OR 'F A,*U,*X,J') OR A DIRECTIVE (PROCEDURE) AS LONG AS@B@@@@. IT GCD )@@G@@ENERATES EXACTLY ONE WORD OF CODE. @[@@@@. @]@@@@. PCN:L,0. @[@@@@CE )@@G@@/. @E@@@@. 2) IF CLAUSE ('IF'/'ANDIF'/'ELSEIF'/'ELSE'/'ENDIF'). CF )@@G@@@[@@@@. @^@@@@. THE CODING SEQUENCE @[@@@@. @^@@@@. IFCG )@@G@@ ABC IS ZERO@ @@@@. (BLOCK OF CODE @ @@@@. TO BE CH )@@G@@EXECUTED @ @@@@. IF [ABC] = 0) @#@@@@. ELSE CI )@@G@@@ @@@@. (BLOCK OF CODE @ @@@@. TO BE EXECUTED CJ )@@G@@@ @@@@. IF [ABC] _ 0) @#@@@@. ENDIF @[@@@@. CK )@@G@@@F@@@@. WILL EXECUTE IN A SELF-EVIDENT MANNER. MORE GENERALLY, ONE HAS CL )@@G@@@[@@@@. @E@@@@. IF [AND/OR [AND/OR ; @G@@@@. [AND/ORCN )@@G@@ ]]]@#@@@@. (CODE)@#@@@@. [ELSE @^@@@@. CO )@@G@@ (CODE)] @#@@@@. ENDIF @[@@@@. @G@@@@. WHERE , . . ., ARE AS DESCRIBED IN (1), EACH '(CODE)'@G@@@@. REPRCQ )@@G@@ESENTS SOME INSTRUCTION SEQUENCE OF ARBITRARY LENGTH, AND THE @E@@@@CR )@@G@@. PORTIONS OF THE STRUCTURE IN SQUARE BRACKETS ARE OPTIONAL.@[@@@@. CS )@@G@@@B@@@@. 'IF'-CLAUSES MAY BE NESTED TO ANY DEPTH:@[@@@@. @^@@@@. CT )@@G@@ IF ABC IS NONZ@ @@@@. IF ABC IS NEG @^@@@@. CU )@@G@@ (CODE) @#@@@@. ENDIF @#@@@@. (CODE)@#@@@@. CV )@@G@@ ELSE @D@@@@. IF 5,,U LT A7 AND R5 NE A5, /L,Q4 A0,0,*X5CW )@@G@@@#@@@@. ENDIF @[@@@@. @G@@@@. WITH RESPECT TO THE DIRECTIVCX )@@G@@E 'ELSEIF', THE FOLLOWING SEQUENCES ARE @#@@@@. EQUIVALENT: @[@@@@CY )@@G@@. @E@@@@. IF IF CZ )@@G@@@C@@@@. (CODE) (CODE)@F@@@@. ELDA )@@G@@SE ELSEIF @A@@@@. DB )@@G@@IF @C@@@@. (CODE) DC )@@G@@(CODE)@F@@@@. ELSE ELSEIF @A@@@@. IF @C@@@@. (CDE )@@G@@ODE) (CODE)@C@@@@. ENDIF DF )@@G@@ ENDIF @#@@@@. ENDIF @[@@@@. @G@@@@. WITH RESPECT TO DG )@@G@@THE DIRECTIVE 'ANDIF', THE FOLLOWING SEQUENCES ARE @#@@@@. EQUIVALENTDH )@@G@@: @[@@@@. @E@@@@. IF IF @C@@@@. (CODE) (CODE) @F@@@@DJ )@@G@@. IF ANDIF @D@@@@DK )@@G@@. (CODE) (CODE) @F@@@@. DL )@@G@@ENDIF ELSE OR ELSEIF OR ENDIF@B@@@@. ELDM )@@G@@SE OR ELSEIF OR ENDIF @[@@@@. @G@@@@. AN INITIALIZATION CALLDN )@@G@@ OF THE PROCEDURE 'IF$' (WHICH GENERATES NO @G@@@@. CODE) MUST PRECEDO )@@G@@DE ANY USAGE OF DIRECTIVES 'IF', 'ELSE', 'ENDIF'. @G@@@@. TAGS OF FODP )@@G@@RM 'IF$XX' ('XX' ANY CHARACTERS) SHOULD BE AVOIDED BY THE @A@@@@. USERDQ )@@G@@ AS THEY ARE USED INTERNALLY. @[@@@@. @G@@@@. THESE CONTROL STRUCTURDR )@@G@@ES FUNCTION ONLY UNDER @MASM (NOT @ASM) AND BE- @G@@@@. HAVE SIMILARLY TDS )@@G@@O @MASM DIRECTIVES $IF, $ANDF, $ELSF, $ELSE, $ENDF. @]@@@@. PCN:L,0. DT )@@G@@@F@@@@. 3) REPEAT CLAUSE ('REPEAT'/'EXCEPT'/'OTHERWISE'/'ESCAPE'/ DU )@@G@@@ @@@@. 'ATEND'/'ENDRPT'). @[@@@@. @^@@@@. THE CODING SEQUEDV )@@G@@NCE @[@@@@. @A@@@@. REPEAT WHILE @#@@@@. DW )@@G@@ (CODE) @#@@@@. ENDRPT @[@@@@. @G@@@@. WILL CAUSE THE CDX )@@G@@ODE BETWEEN THE TWO DIRECTIVES TO BE EXECUTED REPEA- @G@@@@. TEDLY AS LDY )@@G@@ONG AS THE CONDITIONS ARE TRUE AT THE BEGINNING OF EACH @G@@@@. PASSDZ )@@G@@. THE CONDITIONS ARE THE SAME AS THOSE DEFINED FOR 'IF' CLAUSES. @[@@@@EA )@@G@@. @^@@@@. THE CODING SEQUENCE @[@@@@. @A@@@@. REPEAT UNTEB )@@G@@IL @#@@@@. (CODE) @#@@@@. ENDRPT @[@@@@EC )@@G@@. @G@@@@. WILL SIMILARLY CAUSE REPEATED EXECUTION, REPETITION BEING ED )@@G@@TERMINATED @F@@@@. IF THE CONDITION IS FOUND TO BE TRUE AT THE END OF AEE )@@G@@NY PASS. @[@@@@. @^@@@@. THE CODING SEQUENCE @[@@@@. @#@@@@EF )@@G@@. REPEAT @#@@@@. (CODE) @#@@@@. ENDRPT @[@@@@EG )@@G@@. @^@@@@. WILL EXECUTE FOREVER. @[@@@@. @G@@@@. THE BRACKETED COEH )@@G@@DE IN ALL OF THESE FORMS, HOWEVER, MAY CONTAIN ONE OR @A@@@@. MORE EXCEPEI )@@G@@T CLAUSES OF THE FORM @[@@@@. @A@@@@. EXCEPT IF @#@@@@. (CODE)@^@@@@. OTHERWISE @[@@@@. EK )@@G@@@G@@@@. IN WHICH CASE, IF THE EXCEPT CONDITIONS ARE SATISFIED, THE CODE EL )@@G@@IMME- @G@@@@. DIATELY FOLLOWING IS EXECUTED AND CONTROL PASSES TO THE FIEM )@@G@@RST INSTRU- @G@@@@. CTION AFTER THE ENDRPT. IF THE CONDITIONS ARE NOT SEN )@@G@@ATISFIED, THE @F@@@@. CODE IS NOT EXECUTED AND CONTROL PASSES TO THEEO )@@G@@ FIRST INSTRUCTION@^@@@@. AFTER THE OTHERWISE. @[@@@@. @G@@@@. IF TEP )@@G@@HE CODE BETWEEN THE EXCEPT AND THE OTHERWISE IS VOID (AS IS OFTEN @D@@@@EQ )@@G@@. THE CASE), THE ENTIRE CLAUSE CAN BE REPLACED BY @[@@@@. @B@@@@ER )@@G@@. ESCAPE [IF ] . @[@@@@. @G@@@@. THE ESCAPEES )@@G@@ DIRECTIVE, LIKE THE REPEAT DIRECTIVE, MAY BE UNCONDITION- @G@@@@. AL. ET )@@G@@ THE UNCONDITIONAL ESCAPE GENERATES ONE WORD OF CODE AND THUS @G@@@@EU )@@G@@. MAY BE USED IN CONNECTION WITH 'NON-STANDARD' TESTS, SUCH AS 'TLEM', EV )@@G@@@G@@@@. 'TW', 'SE', 'DTE', WHICH ARE NOT IMPLEMENTED IN THE STANDARD CONEW )@@G@@DI- @#@@@@. TION REPERTOIRE.@[@@@@. @F@@@@. CERTAIN EXECUTIVE REQUEX )@@G@@ESTS, SUCH AS READ$, REQUIRE AN EOF RETURN@ @@@@. ADDRESS IN THE PACKET,EY )@@G@@ E.G.:@[@@@@. @ @@@@. R$EAD (EOF,BUF) @[@@@@. @F@@@@EZ )@@G@@. TO EFFECT AN ESCAPE ON THE OCCURRENCE OF AN EOF IMAGE, USE THE @E@@@@FA )@@G@@. FUNCTION 'ESCP()' (WITH VOID ARGUMENT) AS THE EOF ADDRESS:@[@@@@. FB )@@G@@@ @@@@. R$EAD (ESCP(),BUF) @[@@@@. @G@@@@. IF ONE OR MORE EFC )@@G@@XCEPT CLAUSES AND/OR ESCAPE STATEMENTS BE PRESENT, @G@@@@. THERE MAY FD )@@G@@BE OPTIONALLY AN ATEND STATEMENT AFTER THE LAST OTHERWISE @C@@@@. OR EFE )@@G@@SCAPE STATEMENT AND PRECEDING THE ENDRPT: @[@@@@. @^@@@@. OTFF )@@G@@HERWISE @#@@@@. (CODE)@#@@@@. ATEND @#@@@@. FG )@@G@@ (CODE) @#@@@@. ENDRPT @[@@@@. @G@@@@. THE CODE FOLLOWIFH )@@G@@NG THE ATEND WILL BE EXECUTED IF AND ONLY IF THE RE- @G@@@@. PEAT TERMIFI )@@G@@NATES NORMALLY, THAT IS, BY VIOLATION OF THE WHILE CONDI- @G@@@@. TIONFJ )@@G@@S OR SATISFACTION OF THE UNTIL CONDITIONS. IT WILL NOT BE EXECU- @G@@@@FK )@@G@@. TED IF ANY EXCEPT/ESCAPE CONDITIONS ARE SATISFIED. THE ATEND STATE- FL )@@G@@@G@@@@. MENT IS NEITHER PERMITTED NOR NECESSARY IF THE REPEAT CONTAINS NFM )@@G@@EI- @C@@@@. THER EXCEPT CLAUSES NOR ESCAPE STATEMENTS. @[@@@@. FN )@@G@@@E@@@@. IN SUMMARY, THE TYPICAL FORM OF A REPEAT STRUCTURE IS: @[@@@@FO )@@G@@. @C@@@@. REPEAT [WHILE/UNTIL ] @#@@@@. FP )@@G@@ (CODE) @A@@@@. EXCEPT IF @#@@@@. FQ )@@G@@(CODE)@^@@@@. OTHERWISE @#@@@@. (CODE) @A@@@@. FR )@@G@@ ESCAPE IF @#@@@@. (CODE) @#@@@@. . FS )@@G@@. . @A@@@@. EXCEPT IF @#@@@@. (CODE)FT )@@G@@@^@@@@. OTHERWISE @#@@@@. (CODE) @#@@@@. ATENFU )@@G@@D @#@@@@. (CODE) @#@@@@. ENDRPT @[@@@@. @E@@@@FV )@@G@@. REPEATS MAY CONTAIN INNER REPEATS TO ANY DEPTH REQUIRED. @[@@@@. FW )@@G@@@G@@@@. THE PROCEDURE CALL 'IF$' DESCRIBED EARLIER IS ALSO USED TO INITIFX )@@G@@ALIZE @G@@@@. THESE REPEAT STRUCTURES. TAGS OF THE FORM 'RP$XX' ARE RESFY )@@G@@ERVED FOR @#@@@@. INTERNAL USAGE. @I@@@@/. FZ )@@G@@ ^OFF @#@@@@P$ $PROGA )@@G@@C *1@C@@@@IF$* $NAME . INITIALIZATION. @^@@@@P$(1,1GB )@@G@@) $EQU 'IF$P' @H@@@@IF$$* $NAME . (FOR DEBUGGING. SGC )@@G@@PECIFY OMNIBUS NAME IN CALL.) @C@@@@I $EQU (\\IF$D)**$LP . SHOUGD )@@G@@LD BE ZERO. @C@@@@L $EQU (\\RP$D)**$LP . SHOULD BE ZERO. @^@@@@GE )@@G@@ $INCLUDE P$(1,1)@B@@@@IF$I* $EQU 0 . IF COUNTER.GF )@@G@@@C@@@@IF$D* $EQU 0 . IF-LEVEL DEPTH. @F@@@@IF$P* $EQUGG )@@G@@ P$(0,1) . TURN ON TO DISPLAY IF PARAMETERS. @B@@@@RP$I* $EQUGH )@@G@@ 0 . IF COUNTER.@C@@@@RP$D* $EQU 0 . REPEAGI )@@G@@T DEPTH. @G@@@@RP$P* $EQU P$(0,2) . TURN ON TO DISPLAY REPEGJ )@@G@@AT PARAMETERS. @E@@@@ I->$DISPLAY!$NIL 'PROGRAM ENDS WITH IF-CGK )@@G@@LAUSE OPEN.'@F@@@@ L->$DISPLAY!$NIL 'PROGRAM ENDS WITH REPEAT-CLAGL )@@G@@USE OPEN.' @F@@@@ I++L->$LEVEL!$END ,$LEV+1 . IF EITHER, GENERATGM )@@G@@E L-FLAG. @]@@@@ $END@[@@@@/. @[@@@@. ^ON @G@@@@. . . . . . GN )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . @D@@@@. GO )@@G@@ *** ASSEMBLER PROCEDURE LIBRARY *** @D@@@@. GP )@@G@@ COPYRIGHT 1974,1975, B. E. CHI @D@@@@. SUNY-ALBGQ )@@G@@ANY, ALBANY NY 12222 @G@@@@. . . . . . . . . . . . . . . . . . . . . GR )@@G@@. . . . . . . . . . . . . . . @C@@@@. *** INGS )@@G@@ST$P *** @C@@@@. THESE PROCEDURES GENERATE PSEUDO-INSTRUCTIONS.@G@@@@GT )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ^OFFGU )@@G@@@D@@@@. PROCEDURE TO CONSTRUCT INSTRUCTION-FORMAT WORD. @^@@@@I$F* GV )@@G@@ PROC 1,1 @F@@@@ DO I$F(1,1)<070 , DO I$F(1,2)>014 , DO IGW )@@G@@$F(1,4)=0 , GO IU @G@@@@ I$ I$F(1,1),I$F(1,2),I$F(1,3),I$F(1GX )@@G@@,4),I$F(1,5),I$F(1,6) @^@@@@ GO END @]@@@@IU NAMEGY )@@G@@@ @@@@IU$ FORM 6,4,4,4,18 @D@@@@ IU$ I$F(1,1),I$F(1GZ )@@G@@,2),I$F(1,3),0,I$F(1,6) @]@@@@END NAME@]@@@@ END @G@@@@. . . HA )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ^ON @H@@@@HB )@@G@@. GENERATE SLJ WITH PARAMETER (<16) IN A-FIELD. CALL: SLJA N,[*]LOC[,[HC )@@G@@*]X]. @A@@@@P$ PROC 1,1 . ^OFF @]@@@@SLJA* NAME@A@@@@HD )@@G@@ +P$(1,1)*/22+(SLJ P$(1,2)) @ @@@@ END .HE )@@G@@@G@@@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . HF )@@G@@. ^ON @C@@@@. TEST JUMP SELECT SWITCH N (0'H' , I$F P$(0,0),14,P$(1,1)-12,0,0,1*/('Z'-P$(1,2)) @G@@@@ HP )@@G@@ DO P$(1,2)<'I' , I$F P$(0,0),0,P$(1,1)-12,0,0,(1*/('Z'-P$(1,2)))@ @@@@HQ )@@G@@ END .@G@@@@. . . . . . . . . . . . . . . . . . HR )@@G@@. . . . . . . . . . . . . . . . . . @[@@@@/. ^ON@E@@@@. JUMP IF OPTION BHS )@@G@@IT; JUMP IF NO OPTION BIT. SAMPLE CALLS: @C@@@@. JOP,'S' A5,ADDR HT )@@G@@ JNP,'B' A2,ADDR @A@@@@P$ PROC *1 . ^OFF @#@@@@HU )@@G@@JOP* NAME 0 @#@@@@JNP* NAME 1 @#@@@@ P$AD$ @A@@@@HV )@@G@@ DO (P$(0,1)='Z')=0 , GO NOTZ@C@@@@ DO P$(0,0)=0 , JB P$(1HW )@@G@@,1),P$AD(1,2) @B@@@@ DO P$(0,0) , JNB P$(1,1),P$AD(1,2)@^@@@@HX )@@G@@ GO END @]@@@@NOTZ NAME@B@@@@ DO P$(0,0)=0 , THY )@@G@@NO P$(1,1),P$(0,1)@B@@@@ DO P$(0,0) , TO P$(1,1),P$(0,1) @ @@@@HZ )@@G@@ J P$AD(1,2) @]@@@@END NAME@]@@@@ END @G@@@@IA )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ^ON IB )@@G@@@G@@@@. TEST IF LESS THAN; TEST IF NOT LESS THAN; TEST IF GREATER THAN OIC )@@G@@R @G@@@@. EQUAL TO. USE ONLY WITH IMMEDIATE J-DESIGNATOR (U, XU). ID )@@G@@EACH CALL @C@@@@. GENERATES ONE WORD OF CODE. SAMPLE CALLS: @^@@@@IE )@@G@@. TGE,U A0,5 @^@@@@. TL,U A4,3,X1 @ @@@@. TNL IF )@@G@@ A14,-0100,,XU @ @@@@. TGE,U A7,*0,*X3 @A@@@@P$ PROCIG )@@G@@ 1,1 . ^OFF @^@@@@TL* NAME 054 @^@@@@TNL* NAMEIH )@@G@@ 055 @^@@@@TGE* NAME 055 @G@@@@ DO P$(0)>1 , DO II )@@G@@P$(1)>3 ,E1 EQU ? . ALLOW ONLY 1 J-DESIGNATOR. @B@@@@ DO P$(0)<2IJ )@@G@@ ,P$(0,1) EQU P$(1,4) @F@@@@ DO P$(0,1)<14 ,E2 EQU ? . INSURE TIK )@@G@@HAT J IS IMMEDIATE. @I@@@@ I$F P$(0,0),P$(0,1),P$(1,1)-12IL )@@G@@,P$(1,3),2*P$(1,*3)+P$(1,*2),P$(1,2)+1 @]@@@@ END @G@@@@. . . IM )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ^ON @G@@@@IN )@@G@@. DECREMENT REGISTER. GENERATES 'JGD REG,$+1.' SAMPLE CALL: DECR A5 .IO )@@G@@@A@@@@P$ $PROC 1,1 . ^OFF @#@@@@DECR* $NAME @ @@@@IP )@@G@@ JGD P$(1,1),$+1 @]@@@@ $END@G@@@@. . . . . . . . . IQ )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . ^ON @[@@@@/. @[@@@@IR )@@G@@. ^ON @G@@@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . IS )@@G@@. . . . . . @D@@@@. *** ASSEMBLER PROCEDURE LIBRARY *** IT )@@G@@@D@@@@. COPYRIGHT 1974,1975, B. E. CHI @D@@@@. IU )@@G@@ SUNY-ALBANY, ALBANY NY 12222 @G@@@@. . . . . . . . . IV )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . @C@@@@. IW )@@G@@ *** PKT$P *** @F@@@@. THESE PROCEDURES GENERATE PAIX )@@G@@CKETS FOR ER AND SUBROUTINE CALLS. @G@@@@. . . . . . . . . . . . . . . IY )@@G@@. . . . . . . . . . . . . . . . . . . . . @G@@@@. GENERATE IMAGE CONTROLIZ )@@G@@ WORDS FOR PRINT$, PRTCN$, CSF$, ETC. USAGE: @[@@@@. @#@@@@. JA )@@G@@ ICW[,L] @A@@@@. 'FIELDATA OR ASCII STRING' @#@@@@. TAG1 ICW[JB )@@G@@,L] S @A@@@@. 'FIELDATA OR ASCII STRING' @#@@@@. TAG2 ICW[,L] S JC )@@G@@@]@@@@. ... @]@@@@. ... @A@@@@. 'FIELDATA OR ASCII STRJD )@@G@@ING' @#@@@@. TAGI ICW[,L] S @[@@@@. @F@@@@. THE FIRST ICW CALL INIJE )@@G@@TIALIZES THE PROC, NOTING CURRENT LOCATION@G@@@@. COUNTER AND ITS CONTENJF )@@G@@TS. SUBSEQUENT CALLS (WITH NON-VOID S-FIELD) @H@@@@. GENERATE IMAGE CJG )@@G@@ONTROL WORDS, THE LINE-SPACING COUNT BEING SPECIFIED BY @G@@@@. THE JH )@@G@@S-PARAMETER (WHICH MAY BE ZERO). IF THE L-PARAMETER BE GIVEN IN @G@@@@JI )@@G@@. ANY CALL, THAT AND ALL SUBSEQUENT ICW CALLS WILL GENERATE CODE UNDER JJ )@@G@@@G@@@@. COUNTER L UNTIL ANOTHER L BE SPECIFIED. (THE COUNTER ASSOCIATEDJK )@@G@@ WITH @E@@@@. THE QUOTE LINES IS NOT AFFECTED BY ANY L-SPECIFICATION.) JL )@@G@@@[@@@@. @C@@@@. TAG 'ICW$' IS RESERVED FOR INTERNAL USAGE. @[@@@@JM )@@G@@. @G@@@@. A SECOND FORM OF THE CALL, USEABLE ONLY WITH @MASM, IS AS JN )@@G@@FOLLOWS: @[@@@@. @C@@@@. TAG1 ICW[,L] S,'FIELDATA OR ASCII STRINJO )@@G@@G' @C@@@@. TAG2 ICW[,L] S,'FIELDATA OR ASCII STRING' @]@@@@. JP )@@G@@ ... @]@@@@. ... @C@@@@. TAGI ICW[,L] S,'FIELDATA OR ASCII STRINJQ )@@G@@G' @[@@@@. @G@@@@. THIS CALL IS FUNCTIONALLY EQUIVALENT TO THE FIJR )@@G@@RST FORM, BUT SIMPLER TO@[@@@@. USE.@A@@@@/P$ PROC *1 .JS )@@G@@ ^OFF @]@@@@ICW* NAME@A@@@@ ON (ICW$(0)=PASS$(0))=0@G@@@@JT )@@G@@ICW$*(0) EQU PASS$(0) . CODE BETWEEN 'ON' AND 'OFF' IS PROCESSED JU )@@G@@@F@@@@ DO 0=0=1 ,ICW$*(1) EQU & . ONLY ON FIRST CALL OF ICW. JV )@@G@@@A@@@@ DO 0=0=0 ,ICW$*(1) EQU $LCN @]@@@@ OFF @F@@@@ JW )@@G@@ DO P$(0)>1 ,; . ACCEPT NEW ICW L.C. IF L GIVEN. @^@@@@ICW$*(JX )@@G@@1) EQU P$(0,1) @B@@@@ ON P$(1)>0 . IF S GIVEN,@ @@@@JY )@@G@@ DO 0=0=1 ,J EQU & @ @@@@ DO 0=0=0 ,J EQU $LCN @C@@@@JZ )@@G@@ ON P$(1)>1 . IF SECOND FORM, @#@@@@ICW$*(2) EQU $ KA )@@G@@@E@@@@ P$(1,2) . GENERATE THE QUOTE LINE. @^@@@@KB )@@G@@ OFF P$(1)>1 @G@@@@ICWORD EQU +(P$(1,1)*/6+$-ICW$(2),ICWKC )@@G@@$(2)) . THEN CALCULATE ICW @]@@@@$(ICW$(1)) .@F@@@@* +ICWORD KD )@@G@@ . AND GENERATE UNDER PROPER LC. @E@@@@$(J) . KE )@@G@@ . THEN RESTORE ORIGINAL LC @^@@@@ OFF P$(1)>0 KF )@@G@@@G@@@@ICW$*(2) EQU $ . AND REMEMBER ITS VALUE FOR NEXT CAKG )@@G@@LL. @ @@@@ END .@G@@@@/ . . . . . . . . . . . KH )@@G@@. . . . . . . . . . . . . . . . . . . . . . ^ON @D@@@@. GENERATE PFI$ PAKI )@@G@@CKET. TWO FORMATS ARE DEFINED: @[@@@@. @G@@@@. P$FP 'FKJ )@@G@@NAME','ENAME','VNAME',TYPECODE,TEXTLENGTH,TEXTADDR @[@@@@. @[@@@@KK )@@G@@. OR @[@@@@. @E@@@@. P$FP 'FNAME','ENAME','VNAME' TYPECODKL )@@G@@E,FLAGBITS ;@E@@@@. TEXTADDR TIMEKM )@@G@@,DATE @[@@@@. @A@@@@. WHERE THE TYPE-DEPENDENT FIELD IS @[@@@@. KN )@@G@@@F@@@@. +CYCLIM,CYCLE,CYCCT,SUBTYPE,TEXTLENGTH IF SYMBOLIC,KO )@@G@@@G@@@@. +PREAMADDR,PREAMLENGTH,TEXTLENGTH IF RELOCATABKP )@@G@@LE, @F@@@@. +FLAGBITS,USER-BANKS,COMMON-BANKS,TEXTLENGTH IF ABSKQ )@@G@@OLUTE,@F@@@@. +72-BIT-DATUM OTHERWKR )@@G@@ISE. @G@@@@. THE SYMBOLIC SUBTYPE MAY BE NUMERIC OR ANY OF THE STANDARDKS )@@G@@ MNEMONICS, @#@@@@. E.G., 'DOC'. @[@@@@. @G@@@@. ANY VOID NAME FIKT )@@G@@ELD GENERATES +0D. IF THE TYPE CODE IS PRECEDED BY @B@@@@. AN ASTERISKU )@@G@@K, THE DELETE-FLAG IS SET. @A@@@@P$ $PROC 5,12 . ^OFF KV )@@G@@@#@@@@P$FP* $NAME @B@@@@ P$(1,1)->P$(1,1)LD!0D . FILE NAME.KW )@@G@@@C@@@@ P$(1,2)->P$(1,2)LD!0D . ELEMENT NAME. @B@@@@ +0,0KX )@@G@@ . LINKS. @[@@@@. @F@@@@ $IF P$>2 KY )@@G@@ . THEN MULTI-FIELD (NEW) FORMAT. @H@@@@ $GFORM 12,P$(2,KZ )@@G@@2)+P$(2,*1)*/11, 6,P$(2,1), 18,0 . FLAGS, TYPE, LINK. @C@@@@ P$(1LA )@@G@@,3)->P$(1,3)LD!0D . VERSION NAME. @F@@@@ $IF P$(3)=5 .LB )@@G@@ THEN SYMBOLIC/PROCEDURE ELEMENT. @ @@@@ $IF $TSTR(P$(3,4))LC )@@G@@@G@@@@ST $EQU $L0('SYM','ELT','ASM','COB','FOR','ALG','MAP','DOCLD )@@G@@',; @G@@@@ 'SEC','SSG','APL','BAS','LSP','PLS','PL1LE )@@G@@','FTN',; @G@@@@ 'FLT','PNC','TCL','MSM','MSD','MACLF )@@G@@','APT','PGA',; @ @@@@ 'QLP') @D@@@@I $DO LG )@@G@@ST-1,0,-1 , $DO P$(3,4)=ST(I) , $ENDD @#@@@@P$(3,4) $EQU I @#@@@@LH )@@G@@ $ENDF @D@@@@ $GFORM 12,P$(3,1), 12,P$(3,2), 12,P$(3,LI )@@G@@3),; @C@@@@ 6,P$(3,4), 12,0, 18,P$(3,5) @E@@@@ LJ )@@G@@ $ELSF P$(3)=3 . THEN RELOCATABLE ELEMENT. @D@@@@ $GFOLK )@@G@@RM 36,P$(3,1), 18,P$(3,2), 18,P$(3,3) @G@@@@ $ELSF P$(3)=4 LL )@@G@@ . THEN ABSOLUTE ELEMENT (NEW COLLECTOR). @H@@@@ $GFORM 6,LM )@@G@@040++P$(3,1), 6,0, 12,P$(3,2), 12,P$(3,3), 18,0, 18,P$(3,4) @F@@@@ LN )@@G@@ $ELSE . WHO KNOWS? JUST USE FIRST SUBFIELD.@#@@@@ LO )@@G@@ +P$(3,1)D @#@@@@ $ENDF @E@@@@ +P$(4,1) .LP )@@G@@ SECTOR LOCATION OF TEXT. @B@@@@ +P$(5,1),P$(5,2) . TIME,LQ )@@G@@ DATE.@[@@@@. @E@@@@ $ELSE . SINGLE-FIELD (OLDLR )@@G@@) FORMAT. @C@@@@ $GFORM 12,P$(1,*4)*/11, 6,P$(1,4), 18,0@C@@@@LS )@@G@@ P$(1,3)->P$(1,3)LD!0D . VERSION NAME. @]@@@@ +0 @C@@@@LT )@@G@@ +0,P$(1,5) . TEXT LENGTH. @E@@@@ +P$(1,6) LU )@@G@@ . SECTOR LOCATION OF TEXT. @]@@@@ +0,0@#@@@@ LV )@@G@@ $ENDF @[@@@@. @]@@@@ $END@G@@@@/ . . . . . . . . . . . LW )@@G@@. . . . . . . . . . . . . . . . . . . . . . ^ON @G@@@@. GENERATE IO$ PACLX )@@G@@KET. ENTRY POINTS I$OD, I$OT ARE DEFINED EXACTLY AS @G@@@@. IN SYS$*RLLY )@@G@@IB$.PROC$. ENTRY POINT I$ODX IS USED EXACTLY THE SAME WAY @G@@@@. AS ILZ )@@G@@S I$OD, EXCEPT THAT THE FIRST 2 SUBFIELDS OF THE FIRST FIELD ARE @G@@@@MA )@@G@@. TAKEN VERBATIM FOR THE FILE NAME INSTEAD OF THE LATTER BEING GIVEN BY MB )@@G@@@G@@@@. THE FIRST SUBFIELD, LEFT-JUSTIFIED AND SPACE-FILLED. I$ODX IS UMC )@@G@@SEFUL @G@@@@. MAINLY IN THOSE SITUATIONS WHERE THE FILE NAME IS PASSED TMD )@@G@@O THE PROCE-@G@@@@. DURE VIA TAGS, RATHER THAN EXPLICITLY. THE COMPLETEME )@@G@@ PARAMETER LISTS @ @@@@. FOR I$OD AND I$ODX ARE: @G@@@@. I$ODMF )@@G@@ 'FNAME',FUNC,INT-ADDR,INT-ID WC,FWA,G DRUM-ADDR,SENT @H@@@@. MG )@@G@@ I$ODX FNAME0,FNAME1,FUNC,INT-ADDR,INT-ID WC,FWA,G DRUM-ADDR,SENT MH )@@G@@@G@@@@. A FOURTH ENTRY POINT, I$OTX, IS RELATED TO I$OT IN EXACTLY THE SMI )@@G@@AME @ @@@@. WAY AS IS I$ODX TO I$OD. @A@@@@P$ PROC *3 MJ )@@G@@ . ^OFF @#@@@@I$ODX* NAME 2 @#@@@@I$OTX* NAME 3 @#@@@@LJDS* MK )@@G@@ PROC 0 @#@@@@ +P$(1,1) @#@@@@ +P$(1,2) @]@@@@ ML )@@G@@ END @#@@@@I$OD* NAME 0 @#@@@@I$OT* NAME 1 @^@@@@ LJDSMM )@@G@@ P$(1,1) @ @@@@K EQU P$(0,0)*/-1 @^@@@@F1 FORM 12MN )@@G@@,6,18 @B@@@@ F1 0,P$(1,4+K),P$(1,3+K) @^@@@@F2 FORMMO )@@G@@ 6,6,6,18@A@@@@ F2 0,P$(1,2+K),0,0 @^@@@@F3 FORMMP )@@G@@ 2,16,18 @F@@@@ F3 (P$(2,3)='N')+2*(P$(2,3)='D'),P$(2,1),MQ )@@G@@P$(2,2) @A@@@@ DO P$(0,0)**1 , END @^@@@@F4 FORMMR )@@G@@ 12,24 @ @@@@ F4 0,P$(3,1) @ @@@@ DO P$(3,2)MS )@@G@@=0 , END @^@@@@ LJSS P$(3,2) @^@@@@ F4 +0,0 MT )@@G@@@]@@@@ END @G@@@@. . . . . . . . . . . . . . . . . . . . . . . . MU )@@G@@. . . . . . . . . . ^ON @G@@@@. CONSTANT FILL: XXXX N WHERE XXXX = 'BLMV )@@G@@ANKS', 'PZEROS', 'NZEROS'. @A@@@@P$ PROC *1 . ^OFF MW )@@G@@@]@@@@BLANKS* NAME@B@@@@ DO ' '=05 ,P$(0,0) EQU ' ' @B@@@@MX )@@G@@ DO ' '=040 ,P$(0,0) EQU ' ' @#@@@@PZEROS* NAME 0 @#@@@@MY )@@G@@NZEROS* NAME -0@#@@@@ +P$(0,0) @#@@@@ UNLIST @A@@@@MZ )@@G@@ DO P$(1,1)-1 , +P$(0,0) @]@@@@ LIST@ @@@@ END NA )@@G@@ .@G@@@@/. . . . . . . . . . . . . . . . . . . . . . . .NB )@@G@@ . . . . . . . . . . ^ON@D@@@@. GENERATE CALL TO CDUMP$. CALL: C$DUMP NC )@@G@@WC,FWA . @C@@@@. ALTERS NO REGISTERS; PSR-MODE INSENSITIVE. @A@@@@ND )@@G@@P$ PROC *1 . ^OFF @]@@@@C$DUMP* NAME@^@@@@ SLJ NE )@@G@@ CDUMP$ @^@@@@ +P$(1,1),P$(1,2)@]@@@@ END @G@@@@. . . NF )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ^ON @[@@@@NG )@@G@@/. @[@@@@. ^ON @G@@@@. . . . . . . . . . . . . . . . . . . . . . . . NH )@@G@@. . . . . . . . . . . . @D@@@@. *** ASSEMBLER PROCEDURE NI )@@G@@LIBRARY *** @C@@@@. COPYRIGHT 1976, B. E. CHI@D@@@@NJ )@@G@@. SUNY-ALBANY, ALBANY NY 12222 @G@@@@. . . . . . NK )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . @C@@@@. NL )@@G@@ *** STRING$P *** @G@@@@. THESE PROCEDURES ARE MNM )@@G@@AINLY CONCERNED WITH STRING MANIPULATIONS, PLAIN@]@@@@. AND FANCY.@G@@@@NN )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . NO )@@G@@@G@@@@. CALCULATE OFFSETS FOR USE IN BYTE-MANIPULATION SETUPS. USAGE ISNP )@@G@@ BEST @A@@@@. EXPLAINED BY AN EXAMPLE. THE CALL@ @@@@. MKRS ,,NQ )@@G@@1,11,,,,,,,1@ @@@@. FOLLOWED BY THE FOUR CALLS @]@@@@. OFS1 OFS @]@@@@NR )@@G@@. OFS2 OFS @]@@@@. OFS3 OFS @]@@@@. OFS4 OFS @C@@@@. WOULD BE EQUIVALNS )@@G@@ENT TO THE FOUR STATEMENTS @#@@@@. OFS1 EQU 2 @#@@@@. OFS2 EQU NT )@@G@@ 4 @#@@@@. OFS3 EQU 5 @#@@@@. OFS4 EQU 13@G@@@@. THE ARGUMENU )@@G@@NT OF THE 'MKRS' CALL IS AN ENTIRELY ARBITRARY SEQUENCE OF @G@@@@. COMMNV )@@G@@AS AND 1'S (EXCEPT THAT THERE MAY NOT APPEAR MORE THAN 11 CONSECU-@G@@@@NW )@@G@@. TIVE 1'S WITH NO INTERVENING COMMAS). IT IS INTENDED TO BE TYPED DI- NX )@@G@@@H@@@@. RECTLY BELOW A QUOTE LINE, EACH '1' MARKING A BYTE OFFSET IN THENY )@@G@@ LATTER. @[@@@@. @G@@@@. AN ALTERNATE CALL, 'MKRC', DOES NOT INITNZ )@@G@@IALIZE THE OFFSET TO ZERO, BUT@G@@@@. RATHER BASES OFFSETS RELATIVE TO TOA )@@G@@HE FIRST BYTE POSITION OF A PREVIOUS@F@@@@. CALL TO 'MKRS'. IF THE PREVOB )@@G@@IOUS EXAMPLE BE FOLLOWED BY THE CALL@^@@@@. MKRC ,,1,1 @G@@@@OC )@@G@@. TWO SUCCESSIVE CALLS OF 'OFS' WOULD RETURN VALUES 20, 22. NOTE THAT OD )@@G@@@G@@@@. THE BYTE STRING SPECIFIED IN THE EARLIER 'MKRS' IS ASSUMED TO EXOE )@@G@@TEND @A@@@@. TO THE END OF A MACHINE WORD. @[@@@@. @G@@@@. THE OF )@@G@@PROCEDURE WILL DETERMINE WHETHER THE ASSEMBLER IS CURRENTLY OPER- @G@@@@OG )@@G@@. ATING IN ASCII OR FIELDATA CHARACTER MODE, AND ADJUST THE BYTE LENGTH OH )@@G@@@#@@@@. ACCORDINGLY. @[@@@@. @A@@@@/P$ PROC *1 .OI )@@G@@ ^OFF @#@@@@MKRS* NAME 1 @#@@@@MKRC* NAME 0 @[@@@@. @#@@@@OJ )@@G@@CT1S* PROC *0@^@@@@C*(0) EQU C(0)/10 @^@@@@C*(1) EQU C(OK )@@G@@1)+1 @]@@@@ END @[@@@@. @]@@@@COUNT* FUNC@^@@@@C(0) EQU OL )@@G@@ COUNT(1)@#@@@@C(1) EQU 0 @A@@@@ DO 11 , DO C(0)>0 , CTOM )@@G@@1S @^@@@@ END +C(1) @[@@@@. @#@@@@INCR* PROC *0ON )@@G@@@^@@@@MKN***(0) EQU MKN(0)+1@^@@@@MKR***(C(2)) EQU MKN(0) @^@@@@C**(2)OO )@@G@@ EQU C(2)+1 @]@@@@ END @[@@@@. @#@@@@SBFLD* PROC *0OP )@@G@@@A@@@@ DO COUNT(P$(1,I)) , INCR @^@@@@MKN**(0) EQU MKN(0)+1OQ )@@G@@@]@@@@ END @[@@@@. @A@@@@ DO P$(0,0) ,MKN*(0) EQU -1 OR )@@G@@@#@@@@C(2) EQU 0 @^@@@@I DO P$(1) , SBFLD@B@@@@BL EQU OS )@@G@@ ('A'=6)*6+('A'=0101)*9 @A@@@@MKN*(0) EQU MKN(0)//BL*BL-1 OT )@@G@@@#@@@@MKX*(0) EQU 0 @]@@@@ END @[@@@@. @[@@@@. @#@@@@OU )@@G@@OFS* PROC *0@ @@@@* EQU MKR(MKX(0)) @^@@@@MKX*(0) EQU OV )@@G@@ MKX(0)+1@ @@@@ END .@G@@@@. . . . . . . . . OW )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . ^ON @G@@@@/. LEFT-JUSTOX )@@G@@IFY A QUOTE CONSTANT. CALL: LJWF 'XXX' WHERE XXX ARE @G@@@@. FIELOY )@@G@@DATA CHARACTERS, 'F' IS 'Z'/'S'/'R' FOR ZERO/SPACE/RUBOUT-FILL @G@@@@OZ )@@G@@. (RUBOUT=077), AND THE RESULT IS HALF/SINGLE/DOUBLE-WORD AS 'W' IS PA )@@G@@@ @@@@. 'H'/'S'/'D'. EXAMPLES: @E@@@@. 000000 27 16 14 00 537777 PB )@@G@@ L,U A0,+(LJHR ':') @D@@@@. 000001 060710050505 PC )@@G@@ LJDS 'ABC' @^@@@@. 000002 050505050505 @A@@@@P$ PROC *1PD )@@G@@ . ^OFF @D@@@@LJDZ* NAME 01400 . DOUBLE-WORD,ZERO-PE )@@G@@FILL. @D@@@@LJDS* NAME 01405 . DOUBLE-WORD,SPACE-FILL.@E@@@@PF )@@G@@LJDR* NAME 01477 . DOUBLE-WORD,RUBOUT-FILL. @D@@@@LJSZ* PG )@@G@@ NAME 0600 . SINGLE-WORD,ZERO-FILL. @D@@@@LJSS* NAME 0PH )@@G@@605 . SINGLE-WORD,SPACE-FILL.@E@@@@LJSR* NAME 0677 .PI )@@G@@ SINGLE-WORD,RUBOUT-FILL. @D@@@@LJHZ* NAME 0300 . HALF-PJ )@@G@@WORD,ZERO-FILL. @D@@@@LJHS* NAME 0305 . HALF-WORD,SPACE-FPK )@@G@@ILL. @D@@@@LJHR* NAME 0377 . HALF-WORD,RUBOUT-FILL. @^@@@@PL )@@G@@C EQU P$(0,0) @C@@@@FCH EQU C**077 . FILL CHARACPM )@@G@@TER. @C@@@@CCT EQU C*/-6 . CHARACTER COUNT. @D@@@@WDL PN )@@G@@ EQU 36*(1+(CCT>6)) . WORD LENGTH (BITS). @D@@@@E EQU 6*PO )@@G@@(CCT-1) . MASK LENGTH (BITS). @^@@@@F FORM WDL @^@@@@PP )@@G@@G FORM WDL-E,E @E@@@@H EQU +(G 0,-0) . LEFTMOST-CHPQ )@@G@@ARACTER MASK. @C@@@@I(0) EQU +(F P$(1,1)) . QUOTE CONSTANT. PR )@@G@@@C@@@@ ON WDL=72 . FOR DOUBLE WORDS,@E@@@@J EQU PS )@@G@@ -1D*/36+1 . DISCARD ANY SIGN EXTENSION.@ @@@@ DO I(PT )@@G@@0)**J=J ,; @^@@@@I(0) EQU -J**I(0)@]@@@@ OFF @E@@@@ PU )@@G@@ DO CCT , ; . SHIFT OUT LEADING ZEROS AND @A@@@@ DO PV )@@G@@ (I(0)**H)=I(0) ,; @F@@@@I(0) EQU I(0)*/6+FCH . FILL WITH PW )@@G@@SPECIFIED CHARACTER. @^@@@@ F I(0) @]@@@@ END PX )@@G@@@G@@@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . PY )@@G@@. ^ON @G@@@@/. COMBINE STRINGS S1,S2,...SN INTO A SINGLE STRING AND CENTPZ )@@G@@ER IT IN A @G@@@@. W-COLUMN IMAGE BY PRECEDING IT WITH AN APPROPRIATE NQA )@@G@@UMBER OF BLANKS. @F@@@@. NO SI MAY EXCEED 12 CHARACTERS NOR START WITH QB )@@G@@A NULL. CALL: @^@@@@. CNTR,W S1,S2,...,SN .@F@@@@. AN ALTERNATE CALQC )@@G@@L, RJFY,W , RIGHT-JUSTIFIES THE CHARACTERS. @G@@@@. A THIRD CALL, LQD )@@G@@JFY,N , LEFT-JUSTIFIES THE CHARACTERS, PRECEDING THEM @#@@@@. WITH N NULQE )@@G@@LS. @A@@@@P$ PROC *1 . ^OFF @#@@@@RJFY* NAME -1QF )@@G@@@#@@@@LJFY* NAME 0 @#@@@@CNTR* NAME 1 @^@@@@L EQU 1DQG )@@G@@*/66-1@ @@@@M EQU -1D*/35+1 @^@@@@N EQU 1D*/36-1QH )@@G@@@#@@@@F FORM 36@#@@@@D FORM 72@^@@@@T FORM 1,QI )@@G@@35 @[@@@@. @#@@@@SUBF* PROC *0@A@@@@S(0) EQU +(D P$(1QJ )@@G@@,P$(1)-I+1))@E@@@@ DO S(0)**M=M ,; DISCARD SIGN-EXTENSION QK )@@G@@OF @F@@@@S(0) EQU N**S(0) . NEGATIVE 6-CHARACTER STRINGSQL )@@G@@. @]@@@@AGAIN* NAME@^@@@@ ON S(0) @ @@@@C*(K(0)+5) EQM )@@G@@QU S(0)**077 @ @@@@S(0) EQU (S(0)*/-6)**L @^@@@@K*(0) EQU QN )@@G@@ K(0)+1 @^@@@@ GO AGAIN @]@@@@ OFF @]@@@@ QO )@@G@@ END @[@@@@. @#@@@@WORD* PROC *0@B@@@@I DO 6 ,S(0) EQU SQP )@@G@@(0)*/6+C(K(0)-I+5)@^@@@@ F S(0) @^@@@@K*(0) EQU K(QQ )@@G@@0)-6 @]@@@@ END @[@@@@. @#@@@@K(0) EQU 0 @G@@@@. STARQR )@@G@@TING AT RIGHT, PUT SUCCESSIVE CHARACTERS IN C(5), C(6), . . . @^@@@@QS )@@G@@I DO P$(1) , SUBF @H@@@@ ON P$(0,0) . FOR CNTR, RQT )@@G@@JFY, INSERT REQUIRED LEADING BLANKS:@ @@@@J(0) EQU P$(0,1)-K(0) QU )@@G@@@H@@@@ DO J(0)<0 ,J(0) EQU +(T 2) . FORCE T-FLAG IF TOO MANY CHARQV )@@G@@ACTERS. @B@@@@ DO P$(0,0)=1 ,J(0) EQU J(0)/2 @G@@@@. FOLLQW )@@G@@OW CHARACTERS WITH SUFFICIENT BLANKS IN C(K+5), . . . C(N+5) TO @C@@@@QX )@@G@@. CENTER THE TEXT: (W - #CHARS)/2 = #BLANKS. @B@@@@I DO J(0) ,CQY )@@G@@(K(0)+I-1+5) EQU ' ' @ @@@@K(0) EQU K(0)+J(0) @^@@@@ QZ )@@G@@ OFF P$(0,0) @G@@@@ DO P$(0,0)=0 ,; FOR LJFY, ACCOUNTRA )@@G@@ FOR LEADING NULLS. @ @@@@K(0) EQU K(0)+P$(0,1) @G@@@@I RB )@@G@@ DO 5 ,C(I-1) EQU ' ' . (SOME TRAILING BLANKS MAY BE NEEDED.) @G@@@@RC )@@G@@. BUILD OUTPUT WORDS, PUTTING C(N+5), . . . C(K), . . . C(0) IN SUCCES- RD )@@G@@@^@@@@. SIVE SIXTH-WORDS. @ @@@@ DO K(0)//6 , WORD @]@@@@RE )@@G@@ END @G@@@@. . . . . . . . . . . . . . . . . . . . . . . . . . . RF )@@G@@. . . . . . . ^ON @[@@@@/. @[@@@@. ^ON @G@@@@. . . . . . . . . . . . RG )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . @D@@@@. RH )@@G@@*** ASSEMBLER PROCEDURE LIBRARY *** @D@@@@. COPYRIGHTRI )@@G@@ 1974,1975, B. E. CHI @D@@@@. SUNY-ALBANY, ALBANY RJ )@@G@@NY 12222 @G@@@@. . . . . . . . . . . . . . . . . . . . . . . . . . . RK )@@G@@. . . . . . . . . @C@@@@. *** SYMB$P *** RL )@@G@@@D@@@@. THESE PROCEDURES CREATE SPECIAL SYMBIONT CALLS. @G@@@@. . . RM )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . @B@@@@RN )@@G@@. SKIP N PRINT LINES. CALL: L$SKIP N . @A@@@@P$ PROC *1 RO )@@G@@ . ^OFF @]@@@@L$SKIP* NAME@ @@@@ DO P$(1,1)=0 , END @A@@@@RP )@@G@@ L 12,(P$(1,1)*/24) @^@@@@ ER PRINT$ @ @@@@RQ )@@G@@ END .@G@@@@. . . . . . . . . . . . . . . . . . RR )@@G@@. . . . . . . . . . . . . . . . ^ON @G@@@@. DISCARD NEXT N PRINT$ IMAGESRS )@@G@@ ('@@SKIP N'). CALL: L$DISC N . (N<64.)@A@@@@P$ PROC *1 RT )@@G@@ . ^OFF @]@@@@L$DISC* NAME@#@@@@D FORM 72@F@@@@O EQU RU )@@G@@ (D P$(1,1)>63)*/60 . SET T-FLAG IF COUNT > 63. @ @@@@T EQU RV )@@G@@ P$(1,1)/10 @ @@@@U EQU P$(1,1)-10*T @^@@@@F FORMRW )@@G@@ 60,6,6 @D@@@@ L 12,(2,((F O,T,U)+'D,@@SKIP 00')) RX )@@G@@@^@@@@ ER PRTCN$ @]@@@@ END @G@@@@. . . . . . . . . RY )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . ^ON ___'ABC' @^@@@@RZ )@@G@@*[S@@@*SDFF*@G@@@@. DATA EXCHANGE BETWEEN THE CALLING PROGRAM AND SUBROUSA )@@G@@TINE SCHAET IS BY @G@@@@. MEANS OF AN 11-WORD PACKET WHOSE FWA IS FIXED SB )@@G@@BY THE TAG 'AEPKT'. THE@G@@@@. PACKET CONTENTS RELATES AN ABSOLUTE ADDRSC )@@G@@ESS BASED ON SOME BANK IN AN @G@@@@. ABSOLUTE PROGRAM TO A RELATIVE ADDSD )@@G@@RESS BASED ON A LOCATION COUNTER OF @F@@@@. AN ELEMENT AND SEGMENT. THESE )@@G@@ PACKET CONTENTS IS AS FOLLOWS: @[@@@@. @F@@@@ DEF SF )@@G@@ . ------------------------------- @F@@@@BNKNM EQUF AEPSG )@@G@@KT+0 . 0 : BANK : @F@@@@. SH )@@G@@ . ------------ ------------ @F@@@@BNKLIM EQUF AEPSI )@@G@@KT+2 . 1 : NAME : @F@@@@BNKWC EQUF AEPSJ )@@G@@KT+2,,H1 . ------------------------------- @F@@@@BNKFW EQUF AEPSK )@@G@@KT+2,,H2 . 2 : BANK WC : BANK FWA : @F@@@@BDI EQUF AEPSL )@@G@@KT+3,,T1 . ------------------------------- @F@@@@BNKFLG EQUF AEPSM )@@G@@KT+3,,S3 . 3 : BDI : BF : UNUSED : @F@@@@. SN )@@G@@ . ------------------------------- @F@@@@SEGNM EQUF AEPSO )@@G@@KT+4 . 4 : SEGMENT : @F@@@@SLTP$ EQUF *AESP )@@G@@PKT+6 . ------------ ------------ @F@@@@SGI EQUF AEPSQ )@@G@@KT+6,,T1 . 5 : NAME : @F@@@@DNMCFLG EQUF AEPSR )@@G@@KT+6,,S3 . ------------------------------- @F@@@@SLTPTR EQUF AEPSS )@@G@@KT+6,,H2 . 6 : SEG # : DF : SLT$ PTR : @F@@@@. ST )@@G@@ . ------------------------------- @F@@@@ELTNM EQUF AEPSU )@@G@@KT+7 . 7 : ELEMENT : @F@@@@. SV )@@G@@ . ------------ ------------ @F@@@@ELI EQUF AEPSW )@@G@@KT+9,,T1 . 8 : NAME : @F@@@@LC EQUF AEPSX )@@G@@KT+9,,S3 . ------------------------------- @F@@@@RELADDR EQUF AEPSY )@@G@@KT+9,,H2 . 9 : ELT # : LC : REL ADDR : @F@@@@AETSMRY EQUF AEPSZ )@@G@@KT+10 . ------------------------------- @F@@@@ABSADDR EQUF AEPTA )@@G@@KT+10,,H1 . 10 : ABS ADDR :LCTAB ITEM PTR: @F@@@@LCTPTR EQUF AEPTB )@@G@@KT+10,,XH2 . ------------------------------- @[@@@@. @G@@@@. NOTETC )@@G@@: [DNMCFLG] = 040(0) AS APPLICATION IS DYNAMIC(STATIC). SEE @F@@@@TD )@@G@@. SUBROUTINE SCHAET FOR A DEFINITION OF THESE TERMS. IF DYNAMIC: @G@@@@TE )@@G@@. 'TP SLTP$' WILL SKIP IF SEGMENT DESCRIBED IN PACKET IS ACTIVE. ALSO, TF )@@G@@@F@@@@. [BNKFLG] = 4/3/2/1/0 AS BDI IN PACKET IS MI/MD/UI/UD/INACTIVE. TG )@@G@@@[@@@@. @G@@@@. THESE DEFINITIONS BECOME KNOWN TO A REFERENCING PROGTH )@@G@@RAM BY INVOKING @#@@@@. THE PROCEDURE @#@@@@AE$PKT* PROC *0@]@@@@TI )@@G@@ END @[@@@@. @[@@@@. @G@@@@. DATA USED BY SCHAET TO FILL TJ )@@G@@THE PACKET ARE OBTAINED FROM A TABLE WHOSE@G@@@@. FWA IS FIXED BY THE TATK )@@G@@G 'AETAB'. THIS TABLE IS CONSTRUCTED BY SUBROU-@G@@@@. TINE WRTAET FOR TL )@@G@@A GIVEN ABSOLUTE ELEMENT USING DATA DRAWN FROM THE @G@@@@. ELEMENT'S TM )@@G@@FILE HEADER AND DIAGNOSTIC TABLES. THE TABLE COMPRISES @G@@@@. THRETN )@@G@@E WORDS OF INITIAL-LOAD INFORMATION, A 4-WORD DIRECTORY, A LIST OF@G@@@@TO )@@G@@. OF BANKS, A LIST OF SEGMENT NAMES, A LIST OF OF ELEMENT NAMES, A LOCA-TP )@@G@@@G@@@@. TION COUNTER TABLE AND LISTS OF ENTRY POINT AND ABSOLUTE VALUE NTQ )@@G@@AMES. @G@@@@. THE LOCATION COUNTER TABLE CONTAINS ENTRIES WHICH POINT TOTR )@@G@@ THE PRECE- @G@@@@. DING LISTS, AND IS EXACTLY AS IF PRODUCED BY THE NEWTS )@@G@@ COLLECTOR, EXCEPT@G@@@@. THAT THE SEGMENT AND ELEMENT INDICES ARE REPLATT )@@G@@CED BY ORDINAL NUMBERS @G@@@@. (0, 1, 2, ETC.). THE ARRANGEMENT OF THETU )@@G@@ ENTIRE TABLE IS AS FOLLOWS: @]@@@@/ DEF @F@@@@SLTFWA EQUF AETV )@@G@@TAB+0,,H1 . =============================== @F@@@@PGMSTRT EQUF AETW )@@G@@TAB+0,,H2 . : SLTFWA : PGMSTRT : @F@@@@IMIBDI EQUF AETX )@@G@@TAB+1,,H1 . ------------------------------- @G@@@@IMDBDI EQUF AETY )@@G@@TAB+1,,H2 . : IMIBDI : IMDBDI :(INITIALLY@G@@@@IUIBDI EQUFTZ )@@G@@ AETAB+2,,H1 . ------------------------------- BASED @G@@@@IUDBDIUA )@@G@@ EQUF AETAB+2,,H2 . : IUIBDI : IUDBDI : BANKS) @F@@@@UB )@@G@@. . =============================== @F@@@@UC )@@G@@BNKTAB EQUF AETAB+3 . :# OF BNKS: 3 : BNKTFW-$-3 : @F@@@@UD )@@G@@. . ------------------------------- @F@@@@UE )@@G@@SGNTAB EQUF AETAB+4 . :# OF SEGS: 2 : SGNTFW-$-2 : @F@@@@UF )@@G@@. . ------------------------------- @F@@@@UG )@@G@@ELNTAB EQUF AETAB+5 . :# OF ELTS: 2 : ELNTFW-$-2 : @F@@@@UH )@@G@@. . ------------------------------- @F@@@@UI )@@G@@LCTAB EQUF AETAB+6 . :# OF LC'S: 3 : LCTFW-$-3 : @F@@@@UJ )@@G@@. . ------------------------------- @F@@@@UK )@@G@@EPNTAB EQUF AETAB+7 . :# OF EPNS: 3 : EPNTFW-$-3 : @F@@@@UL )@@G@@. . ------------------------------- @F@@@@UM )@@G@@ABSVTAB EQUF AETAB+8 . :# OF ABVS: 3 : ABSVTFW-$-3 : @F@@@@UN )@@G@@. . =============================== @F@@@@UO )@@G@@. . BNKTFW . : 3-WORD : @F@@@@UP )@@G@@. . : BANK ITEM : @F@@@@UQ )@@G@@. . ------------------------------- @F@@@@UR )@@G@@. . \ FURTHER \ @F@@@@US )@@G@@. . / 3-WORD / @F@@@@UT )@@G@@. . \ BANK ITEMS \ @F@@@@UU )@@G@@. . =============================== @F@@@@UV )@@G@@. . SGNTFW . : 2-WORD : @F@@@@UW )@@G@@. . : SEGMENT NAME : @F@@@@UX )@@G@@. . ------------------------------- @F@@@@UY )@@G@@. . \ FURTHER \ @F@@@@UZ )@@G@@. . / 2-WORD / @F@@@@VA )@@G@@. . \ SEGMENT NAMES \ @F@@@@VB )@@G@@. . =============================== @F@@@@VC )@@G@@. . ELNTFW . : 2-WORD : @F@@@@VD )@@G@@. . : ELEMENT NAME : @F@@@@VE )@@G@@. . ------------------------------- @F@@@@VF )@@G@@. . \ FURTHER \ @F@@@@VG )@@G@@. . / 2-WORD / @F@@@@VH )@@G@@. . \ ELEMENT NAMES \ @F@@@@VI )@@G@@. . =============================== @F@@@@VJ )@@G@@. . LCTFW . : 3-WORD : @F@@@@VK )@@G@@. . : ELT/LC ITEM : @F@@@@VL )@@G@@. . ------------------------------- @F@@@@VM )@@G@@. . \ FURTHER \ @F@@@@VN )@@G@@. . / 3-WORD / @F@@@@VO )@@G@@. . \ ELT/LC ITEMS \ @F@@@@VP )@@G@@. . =============================== @D@@@@VQ )@@G@@. (MORE) @F@@@@/. VR )@@G@@ . =============================== @F@@@@. VS )@@G@@ . EPNTFW . : 3-WORD ENTRY : @F@@@@. VT )@@G@@ . : POINT ITEM : @F@@@@. VU )@@G@@ . ------------------------------- @F@@@@. VV )@@G@@ . \ FURTHER \ @F@@@@. VW )@@G@@ . / 3-WORD ENTRY / @F@@@@. VX )@@G@@ . \ POINT ITEMS \ @F@@@@. VY )@@G@@ . =============================== @F@@@@. VZ )@@G@@ . ABSVTFW . : 3-WORD ABSOLUTE : @F@@@@. WA )@@G@@ . : VALUE ITEM : @F@@@@. WB )@@G@@ . ------------------------------- @F@@@@. WC )@@G@@ . \ FURTHER \ @F@@@@. WD )@@G@@ . / 3-WORD ABSOLUTE / @F@@@@. WE )@@G@@ . \ VALUE ITEMS \ @F@@@@. WF )@@G@@ . =============================== @[@@@@. @G@@@@WG )@@G@@. THESE DEFINITIONS BECOME KNOWN TO A REFERENCING PROGRAM BY INVOKING WH )@@G@@@#@@@@. THE PROCEDURE @#@@@@AE$TAB* PROC *0@]@@@@ END @[@@@@WI )@@G@@. @F@@@@. . =============================WJ )@@G@@== @F@@@@. FORMAT OF A BANK ITEM: . : BANK WK )@@G@@ : @F@@@@. . ------------ ----------WL )@@G@@-- @F@@@@. . : NAME WM )@@G@@ : @F@@@@. . -----------------------------WN )@@G@@-- @F@@@@. . : BDI :BLOCKSIZE:SLR LOWEWO )@@G@@R: @F@@@@. . =============================WP )@@G@@== @[@@@@. @F@@@@. . =================WQ )@@G@@============== @F@@@@. FORMAT OF AN LCT ITEM: . : SEGMENT # : WR )@@G@@ ELEMENT # : @F@@@@. . -----------------WS )@@G@@-------------- @F@@@@. . :DLCXR : WT )@@G@@LC : BDI : @F@@@@. . -----------------WU )@@G@@-------------- @F@@@@. . : WORD COUNT : WV )@@G@@LOAD ADDRESS : @F@@@@. . =================WW )@@G@@============== @[@@@@. @F@@@@. . =====WX )@@G@@========================== @F@@@@. FORMAT OF AN ENTRY POINT . : WY )@@G@@ ENTRY : @F@@@@. ITEM: . -----WZ )@@G@@------- POINT ------------ @F@@@@. . : XA )@@G@@ NAME : @F@@@@. . -----XB )@@G@@-------------------------- @F@@@@. . : AXC )@@G@@BS ADDR :LCTAB ITEM PTR: @F@@@@. . =====XD )@@G@@========================== @[@@@@. @F@@@@. XE )@@G@@ . =============================== @F@@@@. FORMAT OF AN ABSOLUTE XF )@@G@@ . : ABSOLUTE : @F@@@@. VALUE IXG )@@G@@TEM: . ------------ VALUE ------------ @F@@@@. XH )@@G@@ . : NAME : @F@@@@. XI )@@G@@ . ------------------------------- @F@@@@. XJ )@@G@@ . : ABSOLUTE VALUE : @F@@@@. XK )@@G@@ . =============================== ___ 3-WORD ABSOLUTE XL )@@G@@ : @F@@@@. *[S@@@*SDFF*@E@@@@. COPYRIGHT 1977, B. E. CHI, SXM )@@G@@UNY-ALBANY, ALBANY NY 12222. @[@@@@. @ @@@@. DX INTERNAL PROCEDURESXN )@@G@@. @[@@@@. @]@@@@ $DEF@^@@@@. GENERAL DX PARAMETERS.@D@@@@XO )@@G@@BRKLGH $EQU 16 . BREAKPOINT LIST LENGTH.@F@@@@UCSECT $EQUXP )@@G@@ 01000 . START SECTOR FOR USER CORE SWAPOUT.@F@@@@NRSECT $EQUXQ )@@G@@ 02000 . START SECTOR FOR NONRESIDENT DX. @F@@@@DXEX $EQUXR )@@G@@ 017 . ER ERR$ A-FIELD FOR NORMAL EXIT. @G@@@@DXBK $EQUXS )@@G@@ 016 . ER ERR$ A-FIELD FOR PROGRAMMED BREAK. @G@@@@DXLD XT )@@G@@ $EQU 015 . ER ERR$ A-FIELD FOR CALLS. @G@@@@XU )@@G@@DXIL $EQU 014 . ER CEND$ A-FIELD FOR CALLS. XV )@@G@@@G@@@@DXCR $EQU 013 . ER CEND$ A-FIELD FOR CALXW )@@G@@LS. @E@@@@DXTPF $EQU '$DX' . DX TEMPORARY PROGRAM FILE. XX )@@G@@@[@@@@. @ @@@@. RESERVED-USAGE REGISTERS. @E@@@@D $EQU X7XY )@@G@@ . POINTS TO FWA OF RESIDENT DX.@G@@@@IX $EQU X8 XZ )@@G@@ . UTILITY POINTER (INCREMENT ALWAYS +1). @G@@@@CD $EQU A1YA )@@G@@5 . FIRST 3 LETTERS OF CURRENT CMMD NAME. @C@@@@FORTY $EQUYB )@@G@@ R14 . CONTAINS AN 040. @C@@@@ONE $EQU R15 .YC )@@G@@ CONTAINS A 1. @[@@@@. @#@@@@. TAGS FOR SCAN . @E@@@@SPKT $EQUYD )@@G@@F 0,X4 . ADDRESS OF SCAN$ PACKET. @C@@@@SLOC $EQUF *SYE )@@G@@PKT . SCAN$ POINTER. @D@@@@SXC $EQUF SPKT,,S2 . SYMBOYF )@@G@@L EXT. TABLE WC. @D@@@@STP $EQUF SPKT+1,,S3 . SCAN$ STOP CHARACYG )@@G@@TER. @F@@@@THSITM $EQUF SPKT+5,,H1 . START COL OF LAST ITEM SCANNEYH )@@G@@D. @F@@@@NXTITM $EQUF SPKT+5,,XH2 . START COL OF NEXT ITEM TO SCAYI )@@G@@N. @^@@@@NUMBER $EQU 0100 @^@@@@SYMBOL $EQU 0200 @^@@@@YJ )@@G@@ENDSTR $EQU 0300 @[@@@@. @#@@@@DXDEF* $PROC 0 @]@@@@ YK )@@G@@ $END@[@@@@. @F@@@@. SPECIAL INSTRUCTIONS TO REPLACE CERTAIN EXECUTYL )@@G@@IVE REQUESTS. @#@@@@P $PROC *0@ @@@@DX$EXIT* $NAME $L1(DXEXYM )@@G@@,ERR$)@ @@@@DX$BRK* $NAME $L1(DXBK,ERR$)@ @@@@DX$LOAD* $NAME $L1(DXLDYN )@@G@@,ERR$)@A@@@@DX$IALL* $NAME $L1(DXIL,CEND$) @A@@@@DX$CREG* $NAME $LYO )@@G@@1(DXCR,CEND$) @C@@@@ I$ 072,011,P(0,0,1),0,0,P(0,0,2) YP )@@G@@@]@@@@ $END@[@@@@. @A@@@@. GENERATE A RECOGNIZABLE IOPR. YQ )@@G@@@#@@@@P $PROC *1@#@@@@CIOPR* $NAME @A@@@@ I$ 0,YR )@@G@@012,012,0,0,P(1,1)@]@@@@ $END@B@@@@/. UTILITY PROCS USED IN DATA YS )@@G@@GENERATION. @[@@@@. @#@@@@P $PROC *1@#@@@@INCRLC* $NAME YT )@@G@@@ @@@@LC* $EQUF LC+P(1,1) @]@@@@ $END@[@@@@. @[@@@@YU )@@G@@. @#@@@@P $PROC *1@#@@@@TAG* $NAME @^@@@@ $IF YV )@@G@@ GEN @^@@@@ $IF P>1 @B@@@@DLM $EQU $SL(LB)-YW )@@G@@>','!$SR(' ',12) @A@@@@LB* $EQU LB:DLM:$LF(1)(0) @^@@@@ YX )@@G@@ $ELSF $LF(1) @ @@@@ $DISPLAY $LF(1)(0):':'@#@@@@ $ENDYY )@@G@@F @#@@@@ $ENDF @C@@@@ $DO $LF(1)=1 ,** $EQUF LC+P(YZ )@@G@@1,1),,P(1,2)@]@@@@ $END@[@@@@. @[@@@@. @#@@@@P $PROZA )@@G@@C *2@A@@@@. GENERATE P(1,1) WORDS OF P(1,2). @#@@@@FILL* $NAME ZB )@@G@@@^@@@@P(0,0) $EQU P(1,1) @ @@@@ $DO DEF , $GO DEFINE @C@@@@ZC )@@G@@ $DO $LF(1)=1 , $DISPLAY $LF(1)(0):':' @#@@@@LB* $EQU ''ZD )@@G@@@ @@@@ $DO P(1,1)>0 , +P(1,2)@#@@@@ $UNLIST @ @@@@ ZE )@@G@@ $DO P(1,1)-1 , +P(1,2)@#@@@@ $LIST @^@@@@ $GO INZF )@@G@@CRMT @[@@@@. @G@@@@. GENERATE A WORD OF DATA. ALL STANDARD FORMS AZG )@@G@@RE PERMISSIBLE, EXCEPT @G@@@@DATA* $NAME 1 . THAT THE 4ZH )@@G@@-SUBFIELD FORM IS 6,6,6,18. @ @@@@ $DO DEF , $GO DEFINE @G@@@@ZI )@@G@@ $DO $LF(1)=1 ,LB* $EQU $SSS(LB,$LF(1)(0):':',1,$SL($LF(1)(0))+1)ZJ )@@G@@@^@@@@ $DISPLAY LB @^@@@@ $IF P(1)=4 @D@@@@ ZK )@@G@@ $GFORM 6,P(1,1),6,P(1,2),6,P(1,3),18,P(1,4) @#@@@@ $ELSE ZL )@@G@@@G@@@@ [$SS('+P(1,1),P(1,2),P(1,3),P(1,4),P(1,5),P(1,6)',1,7*P(1)ZM )@@G@@)] @#@@@@ $ENDF @#@@@@LB* $EQU ''@^@@@@ $GO ZN )@@G@@ INCRMT @[@@@@. @F@@@@DEFINE $NAME . COME HERE UZO )@@G@@NLESS GEN LAST PASS. @A@@@@ $DO $LF(1)=1 ,** $EQUF LC @ @@@@ZP )@@G@@ $DO GEN , RES P(0,0) @#@@@@INCRMT $NAME @ @@@@LC* $EQUZQ )@@G@@F LC+P(0,0) @]@@@@ $END@G@@@@/. RESIDENT DATA TABLE THE CZR )@@G@@ALL 'RESDEF' MERELY DEFINES TAGS RELATIVE @G@@@@. TIVE TO LOCATION 'RESDZS )@@G@@ATA', THE TAGS FLOATING ON INDEX REGISTER 'D'. @G@@@@. THE CALL 'RESGENZT )@@G@@' GENERATES THE TABLE, THE TAGS FLOATING ON NO INDEX. @#@@@@P $PROZU )@@G@@C *0@#@@@@RESDEF* $NAME 0 @#@@@@RESGEN* $NAME 1 @D@@@@GEN $EQUZV )@@G@@ P(0,0) . ON IF GENERATING TABLE.@G@@@@DEF $EQU \(GEN**$ZW )@@G@@LP) . ON UNLESS LAST PASS OF TABLE GENERATION. @[@@@@. @^@@@@LC ZX )@@G@@ $EQUF RESDATA @#@@@@LB $EQU ''@[@@@@. @F@@@@. ITEMS MARKZY )@@G@@ED '*' ARE INITIALIZED PRIOR TO PROGRAM LOAD BY @DX. @[@@@@. @G@@@@ZZ )@@G@@USERGRS DATA +0 . BASE OF USER'S SAVED GRS (AND DUMMY X0). AA )@@G@@@[@@@@. @C@@@@XREGS FILL 11 . USER'S X1-X11. @D@@@@AB )@@G@@AREGS FILL 18 . USER'S A0-A15,034,035. @[@@@@. @I@@@@AC )@@G@@PABSADR TAG ,H1 . LAST PREV ABSADDR REFERENCED (EXCEPT FOR AD )@@G@@BRKPT). @E@@@@PLCTITM TAG ,XH2 . LCTAB ITEM ADDRESS FOR AE )@@G@@ABOVE.@^@@@@PRVSPEC DATA +0,0 @[@@@@. @G@@@@BABSADR TAG ,HAF )@@G@@1 . LAST PREVIOUS ABSADDR ENCODED FOR BREAK. @E@@@@BLCTITM TAG AG )@@G@@ ,XH2 . LCTAB ITEM ADDRESS FOR ABOVE.@^@@@@LPBRKPT DATA +0AH )@@G@@,0 @[@@@@. @D@@@@STIME DATA +0 . PROGRAM START TIMAI )@@G@@E. @[@@@@. @C@@@@BRKLIST FILL 2*BRKLGH,-0 . * BREAKPOINT LIST.AJ )@@G@@@[@@@@. @C@@@@RREGS FILL 15 . USER'S R1-R15. @E@@@@AK )@@G@@ DO RREGS-XREGS<>R1-X1 , ? . PRESERVE GRS SPACING. @[@@@@. AL )@@G@@@D@@@@BP$PKT FILL 2 . PACKET FOR SETBP$. @[@@@@. AM )@@G@@@E@@@@DFCMMD DATA 'STEP 1' . DEFAULT COMMAND, FOLLOWED BY @[@@@@AN )@@G@@. @D@@@@ TAG ,S1 . RUBOUT TERMINATOR. @E@@@@AO )@@G@@CHGMODE TAG ,S2 . ON WHILE IN CHANGE MODE. @G@@@@U8FLAGAP )@@G@@ TAG ,S3 . * ON IF SYSTEM IS U1106/8, OFF IF U1110. @C@@@@AQ )@@G@@ TAG ,H2 . USER'S PSR BITS. @^@@@@UPSR DATA -0AR )@@G@@,0,0,0@[@@@@. @G@@@@EXADDR TAG ,XH1 . ADDRESS OF INSTRUAS )@@G@@CTION TO BE EXEC'D. @F@@@@NXTADDR TAG ,XH2 . * P-REGISTER AT )@@G@@VALUE ON EXIT FROM EXEC.@^@@@@IADDR DATA +0,0 @[@@@@. @I@@@@AU )@@G@@NCDFMT TAG ,S1 . LAST PREVIOUS FORMAT SPECIFIED IN PRINT CAV )@@G@@OMMAND. @F@@@@CMLLGH TAG ,S2 . NUMBER OF DX COMMANDS EAW )@@G@@NABLED. @G@@@@NPRFLAG TAG ,S3 . * ON IF PRINT$ IMAGES CURAX )@@G@@RENTLY SUPPRESSED.@G@@@@ADCFLAG TAG ,S4 . ON IF @ADDED COMMAY )@@G@@ANDS ARE TO BE IGNORED. @G@@@@FINDFMT TAG ,S5 . DECODING FOAZ )@@G@@RMAT FOR LAST 'FIND' VALUE. @G@@@@CLTFLAG TAG ,S6 . ON IFBA )@@G@@ READING COMMANDS FROM COMMAND LIST.@ @@@@ DATA +3,0,0,1,3,0 BB )@@G@@@[@@@@. @B@@@@ TAG ,H1 . SPARE. @H@@@@EXSAVEBC )@@G@@ TAG ,XH2 . SAVE OF 'NXTADDR' DURING 'EXECUTE' COMMAND. BD )@@G@@@^@@@@ DATA +0,0 @[@@@@. @C@@@@STPCT TAG ,T1 BE )@@G@@ . STEP SKIP COUNT. @B@@@@BRKCT TAG ,T2 . GO COUNT. BF )@@G@@@I@@@@WRDCT TAG ,T3 . LAST PREVIOUS WORD COUNT SPECIFIED BG )@@G@@IN PRINT CMMD. @^@@@@ DATA +0,0,1 @[@@@@. @E@@@@FINDWCBH )@@G@@ TAG ,H1 . RESIDUAL WC FROM LAST 'FIND'.@D@@@@FINDADR TAG BI )@@G@@ ,H2 . ADDRESS OF LAST 'FIND'.@^@@@@ DATA +0,0 BJ )@@G@@@F@@@@FINDVAL DATA +0 . VALUE SPECIFIED FOR LAST 'FIND'. BK )@@G@@@F@@@@FINDMSK DATA -0 . MASK SPECIFIED FOR LAST 'FIND'. BL )@@G@@@[@@@@. @A@@@@. PACKET FOR SWAPPING USER CORE. @^@@@@UPKT DATABM )@@G@@ (DXTPF)L@^@@@@ DATA ''L @^@@@@ DATA +0,0 BN )@@G@@@B@@@@ TAG ,S1 . I/O STATUS.@B@@@@UFCT TAG ,SBO )@@G@@2 . R$ OR W$. @H@@@@BKPFLAG TAG ,S3 . IF SET, BREBP )@@G@@AKPOINTS ARE IMPLANTED IN USER CODE.@^@@@@ TAG ,H2 @^@@@@BQ )@@G@@ DATA +0,0,0,0@E@@@@UACW DATA +0,0 . * SHOULD BE TBR )@@G@@HE SAME AS [DACW].@^@@@@ DATA +UCSECT @[@@@@. @B@@@@. PACKBS )@@G@@ET FOR ACCESSING SWAPPED-OUT CORE. @^@@@@CPKT DATA (DXTPF)L@^@@@@BT )@@G@@ DATA ''L @H@@@@CBCONT DATA +0,0 . FWA,LWA+1 (BU )@@G@@RELATIVE TO FWA OF SWAPPED-OUT CORE)@I@@@@ TAG ,S1 .BV )@@G@@ I/O STATUS. \ OF CORE IMAGE IN CORBUF. @H@@@@CFCT TAG BW )@@G@@ ,S2 . IF ON (R$ OR W$), BUFFER CONTENTS UNCHANGED. @G@@@@BX )@@G@@CFLG TAG ,S3 . IF ON (040), LAST REF WAS TO CORBUF. BY )@@G@@@F@@@@ TAG ,H2 . LAST ADDRESS REFERENCED VIA GETWD. BZ )@@G@@@ @@@@CPTR DATA +0,R$,0,0 @^@@@@CACW DATA +0,0 @#@@@@CA )@@G@@CSCT DATA +0@[@@@@. @B@@@@. PACKET FOR LOADING NON-RESIDENT DXCB )@@G@@. @^@@@@DPKT DATA (DXTPF)L@^@@@@ DATA ''L @^@@@@CC )@@G@@ TAG ,H1 @E@@@@DLWP1 TAG ,H2 . * CONTENTS = CD )@@G@@[H1]+[H2] OF DACW.@^@@@@ DATA +0,0 @ @@@@ DATA +0CE )@@G@@,R$,0,0 @E@@@@DACW DATA +0,0 . * SHOULD BE THE SAME AS [CF )@@G@@UACW].@^@@@@ DATA +NRSECT @[@@@@. @ @@@@ $DO GEN++$CG )@@G@@LP , $END @F@@@@/. FLOAT ALL PUBLIC ENTRY POINTS TO 'RES' ON INDEX REGCH )@@G@@ISTER 'D'. @[@@@@. @#@@@@P $PROC *0@#@@@@FLOAT* $NAME CI )@@G@@@ @@@@* $EQUF [$LF(1)(0)],D @]@@@@ $END@[@@@@. @#@@@@CJ )@@G@@CTPKT* FLOAT @#@@@@DXBKPT* FLOAT @#@@@@EXEC* FLOAT @#@@@@CK )@@G@@EXEUNT* FLOAT @#@@@@ICGY* FLOAT @#@@@@NRREGS* FLOAT @#@@@@CL )@@G@@PRTOFF* FLOAT @#@@@@PRTON* FLOAT @#@@@@RESDATA* FLOAT @#@@@@CM )@@G@@RESFIND* FLOAT @#@@@@RESTART* FLOAT @#@@@@SCR* FLOAT @#@@@@CN )@@G@@WRTCC* FLOAT @[@@@@. @]@@@@ $END@G@@@@/. NONRESIDENT DATCO )@@G@@A TABLE. THE CALL 'NRSDEF' MERELY DEFINES TAGS RELA- @G@@@@. TIVE TO LOCP )@@G@@CATION 'NRSDATA'. THE CALL 'NRSGEN' ADDITIONALLY GENERATES @G@@@@. THE CQ )@@G@@TABLE. ('NRSGEN,1' CAUSES THE DYNAMIC FLAG IN AEPKT TO BE SET.) @[@@@@CR )@@G@@. @#@@@@P $PROC *0@#@@@@NRSDEF* $NAME 0 @#@@@@NRSGEN* $NAMCS )@@G@@E 1 @^@@@@GEN $EQU P(0,0) @ @@@@DEF $EQU \(GEN**$LP) CT )@@G@@@[@@@@. @^@@@@LC $EQUF NRSDATA @#@@@@LB $EQU ''@[@@@@CU )@@G@@. @C@@@@RD$BUF FILL 15 . READ$ BUFFER. @[@@@@. CV )@@G@@@C@@@@ED$BUF FILL 28 . EDIT$ BUFFER. @[@@@@. @C@@@@CW )@@G@@SCPKT TAG . SCAN$ PACKET. @C@@@@ $DO GEN , CX )@@G@@S$PKT RD$BUF 'SXT',1,SYMLIST@#@@@@ INCRLC 7 @[@@@@. @C@@@@CY )@@G@@EPKT TAG . EDIT$ PACKET. @A@@@@ $DO GEN , CZ )@@G@@E$PKT 12,ED$BUF @#@@@@ INCRLC 6 @[@@@@. @C@@@@ERPKT DATADA )@@G@@ +0,0,0,0 . ERRPR$ PACKET. @^@@@@ DATA +0,0 @#@@@@DB )@@G@@ DATA 0 @[@@@@. @F@@@@SPCADDR TAG ,H1 . MOST DC )@@G@@RECENTLY SPECIFIED ADDRESS. @F@@@@BRKADDR TAG ,H2 . ADDREDD )@@G@@SS OF MOST RECENT TRAP/BREAK. @^@@@@ DATA +0,0 @[@@@@. DE )@@G@@@G@@@@FRLFLAG TAG ,S1 . ON IF SPECIFIED ADDRESS CONTAINS '$DF )@@G@@F'. @C@@@@ . CORE ADDRESS. @H@@@@PRLFLADG )@@G@@G TAG ,S2 . ON IF SPECIFIED ADDRESS CONTAINS '$' OR '$$'. DH )@@G@@@G@@@@BRLFLAG TAG ,S3 . ON IF SPECIFIED ADDRESS CONTAINS '$DI )@@G@@B'. @H@@@@REGFLAG TAG ,S4 . WORD COUNT IF SPECIFIED ADDREDJ )@@G@@SS IS A REGISTER. @F@@@@ . ZERO IF SPECIFIEDDK )@@G@@ ADDRESS IS CORE. @G@@@@WCTFLAG TAG ,S5 . ON IF LAST COMMANDL )@@G@@D SPECIFIED WORD COUNT. @G@@@@FMTFLAG TAG ,S6 . ON IF LAST DM )@@G@@COMMAND SPECIFIED A FORMAT. @G@@@@ . IF REDN )@@G@@GFLAG ON, CONTAINS FORMAT CODE. @ @@@@SPCFLGS DATA +0,0,0,0,0,0 DO )@@G@@@[@@@@. @C@@@@AEPKT TAG . SCHAET PACKET. @B@@@@DP )@@G@@ FILL 2 . BANK NAME. @C@@@@ DATA +0,0 DQ )@@G@@ . BANK WC, FWA. @D@@@@ DATA +0,0,0, . BANK BDI, BDR )@@G@@ANK FLAG. @C@@@@ FILL 2 . SEGMENT NAME. @G@@@@DS )@@G@@ DATA +0,0,P(0,1)*/5,0 . SEG INDEX, DYNAMIC FLAG, SLT POINTER.DT )@@G@@@C@@@@ FILL 2 . ELEMENT NAME. @F@@@@ DATADU )@@G@@ +0,0,0,0 . ELT INDEX, LC, RELATIVE ADDRESS. @G@@@@ DATADV )@@G@@ +0,0 . ABSOLUTE ADDRESS, LCTAB ITEM POINTER. @E@@@@ DW )@@G@@ AE$PKT . TAG DEFINITIONS FOR AEPKT. @[@@@@. @G@@@@DX )@@G@@AETAB TAG . ABSOLUTE ELEMENT TABLE. MUST BE LAST. DY )@@G@@@E@@@@ AE$TAB . TAG DEFINITIONS FOR AETAB. @[@@@@DZ )@@G@@. @]@@@@ $END@G@@@@/. TO PRINT GLOBAL ERROR MESSAGE N, CALL 'EA )@@G@@ERROR *N'. TO PRINT LOCAL @F@@@@. (INTRA-ELEMENT) ERROR MESSAGE N, CEB )@@G@@ALL 'ERROR N'. N < 0400. @[@@@@. @^@@@@P $PROC *1,1 EC )@@G@@@#@@@@ERROR* $NAME @G@@@@ $DO P(1,1)>=2*/8 , $DISPLAY 1*/73 ED )@@G@@. T-FLAG IF CODE >= 0400. @G@@@@ I$ 072,1,P(1,1)**017,,1EE )@@G@@,P(1,1)/020+(P(1,*1)->GLBERR!LCLERR)@]@@@@ $END@[@@@@. @[@@@@EF )@@G@@. @F@@@@. REGISTER LIST OF GLOBAL ERROR MESSAGES AS SHOWN IN THE FOLEG )@@G@@LOWING@]@@@@. EXAMPLE: @[@@@@. @^@@@@. ERRORS GLOBAL @A@@@@EH )@@G@@. NERMSG 'ERROR MESSAGE 0' @A@@@@. NERMSG 'ERROR MESSAGEEI )@@G@@ 1' @#@@@@. . . . @^@@@@. ERRORS END @[@@@@. EJ )@@G@@@G@@@@. FOR LIST OF LOCAL (INTRA-ELEMENT) ERROR MESSAGES, REPLACE 'GLOBAEK )@@G@@L', @G@@@@. ABOVE, WITH 'LOCAL'. ANY 'NERMSG' CALL WITH VOID STRING FEL )@@G@@IELD WILL @G@@@@. CAUSE THE STRING 'ERROR #N' TO BE SUPPLIED, 'N' BEINEM )@@G@@G THE APPROPRIATE @G@@@@. DECIMAL INTEGER. SEE PROCEDURE 'ERROR' ABOVE EN )@@G@@AND SUBROUTINE 'SVCERR' @G@@@@. IN ELEMENT 'ERRORS' FOR THE MEANS BY WHIEO )@@G@@CH THESE MESSAGES ARE CAUSED @#@@@@. TO BE PRINTED. @[@@@@. @#@@@@EP )@@G@@P $PROC *1@#@@@@ERRORS* $NAME @E@@@@ $IF \(P(1,1)EQ )@@G@@=END) . THEN THIS IS OPENING CALL. @H@@@@ETBTYPE* $EQU P(1,1)=GLOBAL-ER )@@G@@>'GLB*'!'LCL' . REMEMBER IF GLOBAL OR LOCAL. @F@@@@ERPCWS* $EQU $LES )@@G@@CV . REMEMBER FWA OF MESSAGE PCW'S. @D@@@@ $ELSE ET )@@G@@ . THIS IS CLOSING CALL. @G@@@@[$SSS(ETBTYPE,'ERR',4,0)]* . .EU )@@G@@ EXTERNALIZE TAG 'GLBERR*' OR 'LCLERR'. @G@@@@E $DO 0,($LCV-ERPCEV )@@G@@WS)/020 , I$ ,E,,,,SVCERR . THEN GENERATE THE @H@@@@ EW )@@G@@ . REQUIRED NUMBER OF INDIRECT SLJA TARGETS, @H@@@@ EX )@@G@@ I$ ,,,12,,ERPCWS . FOLLOWED BY INDEXED BACK-POINTER TO PCW'S. EY )@@G@@@#@@@@ $ENDF @]@@@@ $END@[@@@@. @[@@@@. @#@@@@EZ )@@G@@P $PROC *1@#@@@@NERMSG* $NAME @B@@@@MSGNO $EQU 'ERROR #FA )@@G@@':$CD($LCV-ERPCWS)@B@@@@ $DO P(1)=0 ,P(1,1) $EQU MSGNO @^@@@@FB )@@G@@ $DISPLAY MSGNO @B@@@@ +1*/6+$SL(P(1,1))//6,(P(1,1)L) FC )@@G@@@]@@@@ $END@G@@@@/. CALL 'SYNTAX XXX' TO LMJ VIA A0 TO LOCATION XFD )@@G@@XX WHEN SYNTAX ERROR IS @G@@@@. DETECTED, OR 'SYNTAX ERROR' TO LMJ TO LOFE )@@G@@CATION 'STXERR'. THE FIRST @G@@@@. CALL OCCURRING IN AN ELEMENT WILL FF )@@G@@GENERATE A 2-WORD PACKET UNDER $(13)@G@@@@. COMPRISING THE NAME OF THE EFG )@@G@@LEMENT (TRUNCATED TO 6 CHARACTERS) AND THE@G@@@@. BASE VALUE OF THE LOCAFH )@@G@@TION COUNTER UNDER WHICH THE CALL OCCURRED. TO @C@@@@. MERELY GENERATE FI )@@G@@THE PACKET, CALL 'STXLOC'. @[@@@@. @#@@@@P$ $PROC *1@]@@@@FJ )@@G@@SYNTAX* NAME@#@@@@ P$AD$ @D@@@@ LMJ 12,P$(1,1)=ERRFK )@@G@@OR->STXERR!P$AD(1,1) @A@@@@ $DO \\$AP($(13)) , $END @[@@@@FL )@@G@@. @#@@@@STXLOC* $NAME @B@@@@RESTORE $EQU 2**$TMODES->$LIST!$NFM )@@G@@IL @#@@@@ $UNLIST @^@@@@$(13) $SS($PAR(1),1,6)@ @@@@ FN )@@G@@ +$ILCN,$LCB($ILCN) @#@@@@$($ILCN) RESTORE @]@@@@ $END___,1)FO )@@G@@>=2*/8 , $DISPLAY 1*/73 . T-FLAG IF CODE >= 0400. @G@@@@ I$ FP )@@G@@ 072,1,P(1,1)**017,,1,P(1,1)/020+(P(1,*1)->GL*[S@@@*SDFF*@#@@@@P$ FQ )@@G@@ PROC *1@^@@@@S$TD* NAME STHIS$D @^@@@@S$ND* NAME SNEXT$D FR )@@G@@@^@@@@S$CAN* NAME SCAN$ @^@@@@S$CANR* NAME SCANR$ @^@@@@S$FINDFS )@@G@@* NAME SFIND$ @#@@@@A EQU 12@#@@@@ GO L @^@@@@FT )@@G@@S$GSXO* NAME SGSXO$ @^@@@@S$GO* NAME SGO$ @#@@@@A EQU FU )@@G@@ 13@]@@@@L NAME@^@@@@ ON P$(1) @A@@@@HI EQU FV )@@G@@ 2*P$(1,*2)+P$(1,*1) @A@@@@J EQU (P$(1)<3)*15+P$(1,3)@B@@@@FW )@@G@@ I$ 027,J,A,P$(1,2),HI,P$(1,1)@]@@@@ OFF @^@@@@S$TE* FX )@@G@@ NAME STHIS$E @^@@@@S$NE* NAME SNEXT$E @^@@@@S$TS* NAME STFY )@@G@@HIS$S @^@@@@S$NS* NAME SNEXT$S @^@@@@S$TN* NAME STHIS$N @^@@@@FZ )@@G@@S$NN* NAME SNEXT$N @^@@@@S$TF* NAME STHIS$F @^@@@@S$NF* NAMEGA )@@G@@ SNEXT$F @^@@@@S$T* NAME STHIS$ @^@@@@S$N* NAME SNEXT$ GB )@@G@@@^@@@@S$BKSP* NAME SBKSP$ @^@@@@S$CANX* NAME SCANX$ @^@@@@S$GCRXGC )@@G@@* NAME SGCRX$ @^@@@@S$GRX* NAME SGRX$ @ @@@@ LMJ 11GD )@@G@@,P$(0,0) @]@@@@ END @[@@@@. @#@@@@P$ PROC *0@#@@@@GE )@@G@@S$G0* NAME 0 @#@@@@S$G* NAME 2 @B@@@@ I$ 072,010,GF )@@G@@0,6,P$(0,0),SG$ @]@@@@ END @]@@@@/P$ PROC@]@@@@S$PKT* NAMEGG )@@G@@@#@@@@P('STP') EQU 0 @#@@@@P('CBF') EQU 0 @#@@@@P('LDF') EQU 0 GH )@@G@@@#@@@@P('RDX') EQU 0 @#@@@@P('DXT') EQU 0 @#@@@@P('SXT') EQU 0 GI )@@G@@@^@@@@I DO P$-2 ,; @^@@@@P(P$(I+1,1)) EQU I+1 @C@@@@P('STPGJ )@@G@@') EQU (P('STP')=0)*077+P$(P('STP'),2) @ @@@@P('CBF') EQU P('CBF')GK )@@G@@=0 @ @@@@P('LDF') EQU P('LDF')>0 @[@@@@. @^@@@@F FORMGL )@@G@@ 6,6,6,18@D@@@@ F P$(P('DXT'),2),P$(P('SXT'),2),5,P$(1,1) GM )@@G@@@B@@@@ F P('CBF'),P('LDF'),P('STP'),0 @ @@@@ F P$(P('RDGN )@@G@@X'),2),0,0,0@]@@@@ +0 @]@@@@ +0 @]@@@@ -0,0@A@@@@GO )@@G@@ DO P('DXT')+P('SXT')>0 , ; @B@@@@ +P$(P('DXT'),3),P$(P('GP )@@G@@SXT'),3) @]@@@@ END ___ILCN) RESTORE @]@@@@ $END___,1)GQ )@@G@@>=2*/8 , $DISPLAY 1*/73 . T-FLAG IF CODE >= 0400. @G@@@@ I$ GR )@@G@@ 072,1,P(1,1)**017,,1,P(1,1)/020+(P(1,*1)->GL*[S@@@*SDFF*@^@@@@P$ GS )@@G@@ PROC *1,1 @]@@@@DXERR* NAME@A@@@@ I$ ,012,012,,,P$(GT )@@G@@1,1) @]@@@@ END @[@@@@. @^@@@@P$ PROC *1,1 @]@@@@GU )@@G@@DXBRK* NAME@A@@@@ I$ 072,011,016,,,ERR$ @]@@@@ END GV )@@G@@___SXO* NAME SGSXO$ @^@@@@S$GO* NAME SGO$ @#@@@@A EQU GW )@@G@@ 13@]@@@@L NAME*[S@@@*SDFF*@]@@@@ $DEF@[@@@@. @#@@@@GX )@@G@@TT $EQU -0@H@@@@TF $EQU -1 . TEMPORARY MNEMONIGY )@@G@@CS FOR BUILDING KEY TABLE. @[@@@@. @^@@@@ $LEVEL ,$LEV GZ )@@G@@@[@@@@. @A@@@@. CONDITION SPECIFICATION MNEMONICS.@[@@@@. @^@@@@HA )@@G@@EP $EQU 044 @^@@@@OP $EQU 045 @^@@@@ZERO $EQUHB )@@G@@ 050 @^@@@@NONZ $EQU 051 @^@@@@EQ $EQU 052 HC )@@G@@@^@@@@NE $EQU 053 @^@@@@LE $EQU 054 @^@@@@GT HD )@@G@@ $EQU 055 @^@@@@LT $EQU -LE @^@@@@GE $EQU -GHE )@@G@@T @^@@@@POS $EQU 060 @^@@@@NEG $EQU 061 @#@@@@HF )@@G@@OR $EQU 0 @#@@@@AND $EQU 1 @[@@@@. @#@@@@. REPEAT TYPHG )@@G@@ES. @[@@@@. @#@@@@WHILE $EQU 0 @#@@@@UNTIL $EQU 1 @[@@@@HH )@@G@@. @#@@@@. NOISE WORDS. @#@@@@IS $EQU 0 @#@@@@IF $EQUHI )@@G@@ 0 @G@@@@/. GENERATE KEY TABLE. FOR EACH IF$Q(), THE FIRST SUBSCRIPTHJ )@@G@@ IS THE @G@@@@. NUMBER OF FIELDS IN THE PROCEDURE CALL. THE SECOND HK )@@G@@SUBSCRIPT IS 0 TO @G@@@@. GENERATE A SKIP IF CONDITIONS ARE SATISFIED ORHL )@@G@@ A JUMP IF UNSATISFIED, @G@@@@. AND 1 FOR A SKIP IF UNSATISFIED OR JUMP HM )@@G@@IF SATISFIED. THE REMAINING @G@@@@. SUBSCRIPTS CORRESPOND TO THE CONJUHN )@@G@@NCTIONS 'OR' (0) OR 'AND' (1) IN @G@@@@. THE CONDITION SPECIFICATIONSHO )@@G@@. TEMPORARY MNEMONICS 'TT', 'TF', MEAN @G@@@@. 'DO TEST', 'DO INVERTEHP )@@G@@D TEST'. NUMBERS '+M' MEAN 'J $+M', EXCEPT @G@@@@. '+0' MEANS 'J P$HQ )@@G@@(2,3)' IF GENERATING A JUMP, OR 'J END-OF-LIST' IF @G@@@@. GENERATINGHR )@@G@@ A SKIP. EXAMPLE: IF ONE WISHES TO GENERATE A JUMP IF THE @G@@@@. CONDHS )@@G@@ITION 'A IS TRUE OR B IS TRUE' IS NOT SATISFIED, THE REQUIRED KEY @G@@@@HT )@@G@@. IS IF$Q(7,0,0) = $L1(TT,TF,+2). THE RESULTING CODE GENERATED IS: HU )@@G@@@#@@@@. TT A @#@@@@. TF B @^@@@@. J $+HV )@@G@@2 @F@@@@. J P$(2,3) . NOT FROM KEY--APPENDED AT ENDHW )@@G@@. 0[@@@@L,1. 0[@@@@L,1. 0[@@@@L,1. 0[@@@@?1HE 0[@@@@?1HE 0[@@@@HX )@@G@@?1HE 0[@@@@FMPE @[@@@@. @ @@@@IF$Q(3,1) $EQU $L1(TT)@ @@@@HY )@@G@@IF$Q(3,0) $EQU $L1(TF)0[@@@@?1HE @A@@@@IF$Q(7,1, 0) $EQU $HZ )@@G@@L1(TT,TF,+2)@A@@@@IF$Q(7,0, 0) $EQU $L1(TT,TF) @A@@@@IF$Q(7,1, 1)IA )@@G@@ $EQU $L1(TF,TT) @A@@@@IF$Q(7,0, 1) $EQU $L1(TF,TT,+2)@B@@@@IB )@@G@@IF$Q(11,1, 0,0) $EQU $L1(TT,TF,+3,TT) @B@@@@IF$Q(11,0, 0,0) $EQU $IC )@@G@@L1(TT,TF,+2,TF) @A@@@@IF$Q(11,1, 0,1) $EQU $L1(TT,TF,TT)@B@@@@IF$Q(1ID )@@G@@1,0, 0,1) $EQU $L1(TT,TF,TT,+2) @B@@@@IF$Q(11,1, 1,0) $EQU $L1(TF,IE )@@G@@TT,TF,+2) @A@@@@IF$Q(11,0, 1,0) $EQU $L1(TF,TT,TF)@B@@@@IF$Q(11,1, 1IF )@@G@@,1) $EQU $L1(TF,TT,+0,TT) @B@@@@IF$Q(11,0, 1,1) $EQU $L1(TF,TT,+3,IG )@@G@@TF) @C@@@@IF$Q(15,1, 0,0,0) $EQU $L1(TT,TF,+5,TT,TF,+2) @B@@@@IF$Q(1IH )@@G@@5,0, 0,0,0) $EQU $L1(TT,TF,+3,TT,TF)@B@@@@IF$Q(15,1, 0,0,1) $EQU $L1(TT,II )@@G@@TF,+2,TF,TT)@C@@@@IF$Q(15,0, 0,0,1) $EQU $L1(TT,TF,+2,TF,TT,+2) @B@@@@IJ )@@G@@IF$Q(15,1, 0,1,0) $EQU $L1(TT,TF,TT,TF,+2)@B@@@@IF$Q(15,0, 0,1,0) $EQU $IK )@@G@@L1(TT,TF,TT,TF) @B@@@@IF$Q(15,1, 0,1,1) $EQU $L1(TT,TF,TT,+0,TT)@B@@@@IL )@@G@@IF$Q(15,0, 0,1,1) $EQU $L1(TT,TF,TT,+3,TF)@B@@@@IF$Q(15,1, 1,0,0) $EQU $IM )@@G@@L1(TF,TT,TF,+3,TT)@B@@@@IF$Q(15,0, 1,0,0) $EQU $L1(TF,TT,TF,+2,TF)@B@@@@IN )@@G@@IF$Q(15,1, 1,0,1) $EQU $L1(TF,TT,TF,TT) @B@@@@IF$Q(15,0, 1,0,1) $EQU $IO )@@G@@L1(TF,TT,TF,TT,+2)@C@@@@IF$Q(15,1, 1,1,0) $EQU $L1(TF,TT,+2,TT,TF,+2) IP )@@G@@@B@@@@IF$Q(15,0, 1,1,0) $EQU $L1(TF,TT,+2,TT,TF)@B@@@@IF$Q(15,1, 1,1,1) IQ )@@G@@$EQU $L1(TF,TT,+0,TF,TT)@C@@@@IF$Q(15,0, 1,1,1) $EQU $L1(TF,TT,+5,TF,TT,IR )@@G@@+2) 0[@@@@?1HE 0[@@@@FMPE 0[@@@@FMPE @[@@@@/. @^@@@@P$ $PROIS )@@G@@C *999 @#@@@@T$COND* $NAME @I@@@@CN $EQU P$(1,1) .IT )@@G@@ NODE WHOSE SELECTORS SPECIFY CONDITIONS TO TEST. @G@@@@FF $EQUIU )@@G@@ P$(1,2) . CN(FF,1) IS FIRST CONDITION SELECTOR. @F@@@@NF IV )@@G@@ $EQU P$(1,3) . NUMBER OF CONDITION SELECTORS. @H@@@@. IW )@@G@@ $EQU P$(2,1) . IF SET, SKIP OR JUMP IF CONDITION SATISFIED; IX )@@G@@@I@@@@ . IF CLEAR, SKIP OR JUMP IF CONDITIONIY )@@G@@ UNSATISFIED. @H@@@@. $EQU P$(2,2) . IF SET, CODE GENEIZ )@@G@@RATES A CONDITIONAL JUMP; @F@@@@ . IF CJA )@@G@@LEAR, A CONDITIONAL SKIP. @G@@@@. $EQU P$(2,3) . JUMP JB )@@G@@DESTINATION IF CONDITIONAL JUMP. @ @@@@ .JC )@@G@@@C@@@@KEY $EQU NF=3->IF$Q(3,P$(2,1)--P$(2,2))!;@E@@@@ JD )@@G@@ NF=7->IF$Q(7,P$(2,1)--P$(2,2),CN(FF+3,1))!; @G@@@@ NF=JE )@@G@@11->IF$Q(11,P$(2,1)--P$(2,2),CN(FF+3,1),CN(FF+7,1))!; @I@@@@ JF )@@G@@NF=15->IF$Q(15,P$(2,1)--P$(2,2),CN(FF+3,1),CN(FF+7,1),CN(FF+11,1))!0 JG )@@G@@@F@@@@ KEY->$NIL!$DISPLAY NF? . E-FLAG IF ILLEGAL FIELD COUNT. JH )@@G@@@[@@@@. @D@@@@. BEGIN GENERATION OF APPROPRIATE TEST INSTRUCTION(S).JI )@@G@@@[@@@@. @F@@@@ $LP->$GO!$NIL GEN . IF FIRST PASS OF MAIN AJJ )@@G@@SSEMBLY, @D@@@@ $RES KEY+P$(2,2) . JUST RESERVE SPACE. JK )@@G@@@A@@@@ 1->$END . DONE.@[@@@@/. @E@@@@GEN $NAMJL )@@G@@E . LAST PASS. GENERATE CODE. @G@@@@P$(2,3) P$(2,2)->$JM )@@G@@NIL!$EQU $+KEY . IF A SKIP, FIX INTERNAL JUMP TARGET. @E@@@@WD $REPJN )@@G@@EAT KEY . FOR EACH ITEM IN CHOSEN KEY: @^@@@@M $EQU KEJO )@@G@@Y(WD) @[@@@@. @D@@@@ M<+0->$GO!$NIL TEST . IF A JUMP INSTRUCJP )@@G@@TION, @G@@@@ J M->+($+M)!P$(2,3) . JUMP AHEAD IF M>0, JUMP JQ )@@G@@OUT IF M=+0.@E@@@@ $GO ENDR . SHORT-CUT TO END OF $REJR )@@G@@PEAT. @[@@@@. @H@@@@TEST $NAME . NOT A JUMP, BUT RJS )@@G@@ATHER A TEST INSTRUCTION. @E@@@@A $EQU \\CN(FF+1,1) . ON IFJT )@@G@@ RELATION NOT 'IS'. @F@@@@ A->$NIL!$GO I$3 . IF 'IS', GOJU )@@G@@ GENERATE INSTRUCTION. @F@@@@ CN(FF+1,1)>0->$GO!$NIL I$1 . IF REJV )@@G@@LATION IS 'LT' OR 'GE', @E@@@@CN(FF+1,1) $EQU -CN(FF+1,1) . CONVERT TOJW )@@G@@ 'GT' OR 'LE' @D@@@@CN(FF,1) $EQU CN(FF,1)+1 . AND ADJUST OPERAJX )@@G@@ND. @F@@@@ CN(FF,3)>015->$GO!$NIL I$2 . IF NOT EXPLICITLY IMMEDJY )@@G@@IATE, @F@@@@ . CHECK IF IMMEDIATE VIA $EQUFJZ )@@G@@. @H@@@@C $EQU $BA(CN(FF,1))(0) . = $L1(6,4,4,4,2,16) IF CNKA )@@G@@(FF,1) IN I$ FORM.@F@@@@C C<>6->$EQU!$NIL 0 . CLEAR C IF CN(FF,KB )@@G@@1) NOT IN I$ FORM.@E@@@@I $DO C ,C C(I)<>$L1(6,4,4,4,2,16)(I)->$EQKC )@@G@@U!$NIL 0 @H@@@@ C->($AP(CN(FF,1))**(I$ -0,016,-0,,,)=(I$ ,016,KD )@@G@@,,,))->$NIL!$DO!$DO ? @E@@@@ $GO I$3 . GO GENERATEKE )@@G@@ INSTRUCTION. @#@@@@I$1 $NAME @F@@@@ CN(FF,3)<016->$GKF )@@G@@O!$NIL I$3 . IF EXPLICITLY IMMEDIATE, @#@@@@I$2 $NAME @H@@@@KG )@@G@@ CN(FF,2)->$GO!CN(FF,*2)->$GO!CN(FF,*1)->$GO!$NIL I$3 . AND X=H=KH )@@G@@I=0, @F@@@@CN(FF,1) $EQUF CN(FF,1),,CN(FF,3) . EXPAND CN(FF,1) TO 18 KI )@@G@@BITS. @#@@@@CN(FF,3) $EQU 0 @#@@@@I$3 $NAME @E@@@@ I$ KJ )@@G@@ CN(FF+2-A,1)---M,CN(FF,3),A->CN(FF+2,1)-12,;@E@@@@ KK )@@G@@ CN(FF,2),2*CN(FF,*2)+CN(FF,*1),CN(FF,1)@[@@@@. @E@@@@FF $EQUKL )@@G@@ FF+4 . INCREMENT TO NEXT CONDITION. @[@@@@. @#@@@@ENDR KM )@@G@@ $NAME @#@@@@ $ENDR @[@@@@. @G@@@@ P$(2,2)->JKN )@@G@@!$NIL P$(2,3) . GENERATE FINAL INSTRUCTION IF JUMP. @[@@@@. @D@@@@KO )@@G@@ $END . OF PROCEDURE T$COND. @[@@@@/. 0[@@@@KP )@@G@@L,1. 0[@@@@?1HE @^@@@@P$ $PROC *999 @#@@@@IF* $NAME 0 KQ )@@G@@@F@@@@IFF* $NAME 1 . OPTIONAL ENTRY FOR 1-LINE IF'S. KR )@@G@@@E@@@@NCF $EQU P$-1-(P$**1) . NUMBER OF CONDITION FIELDS. @C@@@@KS )@@G@@ P$(0,0)->$GO OLF . SKIP BOOKKEEPING @E@@@@ P$**1->$GOKT )@@G@@!P$(NCF)>1->$GO!$NIL OLF . IF 1-LINE IF. @E@@@@ $LEVEL ,$LEV-1 KU )@@G@@ . UPDATE ALL THE COUNTERS. @F@@@@IF$NN(IF$D) $EQU IF$N .KV )@@G@@ PREVIOUS IF-LEVEL NUMBER (IF ANY). @G@@@@IF$RR(IF$D) $EQU IF$R .KW )@@G@@ CURRENT RUNG COUNT FOR PREVIOUS IF-LEVEL.@H@@@@IF$EE(IF$D) $EQU IF$E KX )@@G@@ . CURRENT ELSE-FOUND FLAG FOR PREVIOUS IF-LEVEL. @D@@@@IF$I $EQUKY )@@G@@ IF$I+1 . INCREMENT IF COUNT. @E@@@@IF$D $EQU IF$D+1 KZ )@@G@@ . INCREMENT IF-LEVEL DEPTH. @E@@@@IF$N $EQU IF$I .LA )@@G@@ CURRENT IF-LEVEL NUMBER. @F@@@@IF$R $EQU 0 . RESETLB )@@G@@ RUNG COUNT FOR THIS IF-LEVEL.@D@@@@IF$E $EQU 0 . CLEARLC )@@G@@ ELSE-FOUND FLAG. @G@@@@ IF$P->IF$S . DISPLAY ANY REQUILD )@@G@@RED DIAGNOSTIC DATA. @C@@@@ T$COND P$,1,NCF 0,1,IF$L(IF$N,IFLE )@@G@@$R+1) @D@@@@ 1->$END . DONE IF MULTI-LINE IF. @D@@@@LF )@@G@@OLF $NAME . COME HERE IF 1-LINE IF.@D@@@@ T$COLG )@@G@@ND P$,1,NCF . GENERATE THE SKIP TEST.@H@@@@ $TCON(P$(NCF,2))LH )@@G@@->$NIL!$DISPLAY /0 . V FLAG IF NOT AN INSTRUCTION. @#@@@@S $EQULI )@@G@@ ''@^@@@@I $REPEAT NCF,P$-1@^@@@@D $EQU ' ' @A@@@@LJ )@@G@@J $REPEAT NCF=I->2!1,P$(I) @D@@@@G $EQU \$TCON(P$(I,J)LK )@@G@@)->P$(I,*J)->'*'!''!'' @D@@@@S $EQU S:D:G:'P$(':$CD(I):',':$CDLL )@@G@@(J):')' @^@@@@D $EQU ',' @#@@@@ $ENDR @#@@@@LM )@@G@@ $ENDR @#@@@@ $INSERT S @]@@@@ $END@[@@@@. LN )@@G@@@[@@@@. @^@@@@P$ $PROC *999 @#@@@@ELSEIF* $NAME 0 @#@@@@LO )@@G@@ELSE* $NAME 1 @E@@@@ \IF$D->IF$X . INFORM IF NO IF-CLP )@@G@@LAUSE OPEN. @H@@@@ IF$E->$DISPLAY!$NIL '''ELSE'' FOR THIS IF-CLAULQ )@@G@@SE ALREADY FOUND.'? @^@@@@ $LEVEL ,$LEV-1 @G@@@@IF$E P$(0,0)LR )@@G@@->$EQU!$NIL 1 . IF ENTRY VIA 'ELSE', SET ELSE-FOUND FLAG.@H@@@@ LS )@@G@@ J IF$F(IF$N) . END PREVIOUS CLAUSE WITH JUMP TO BOTTOM RUNG. LT )@@G@@@D@@@@IF$R $EQU IF$R+1 . INCREMENT RUNG COUNT. @E@@@@IF$L(ILU )@@G@@F$N,IF$R) $EQU $ . ENTRY POINT FOR THIS CLAUSE. @G@@@@ IF$PLV )@@G@@->IF$S . DISPLAY ANY REQUIRED DIAGNOSTIC DATA. @F@@@@ LW )@@G@@ P$(0,0)->$END!T$COND P$,1,P$-1 0,1,IF$L(IF$N,IF$R+1) @]@@@@ LX )@@G@@ $END@[@@@@/. @^@@@@P$ $PROC *999 @#@@@@ANDIF* $NAME LY )@@G@@@E@@@@ \IF$D->IF$X . INFORM IF NO IF-CLAUSE OPEN. @G@@@@LZ )@@G@@ IF$P->IF$S . DISPLAY ANY REQUIRED DIAGNOSTIC DATA. MA )@@G@@@B@@@@ T$COND P$,1,P$-1 0,1,IF$F(IF$N) @]@@@@ $END@[@@@@MB )@@G@@. @[@@@@. @#@@@@ENDIF* $PROC *0@E@@@@ \IF$D->IF$X MC )@@G@@ . INFORM IF NO IF-CLAUSE OPEN. @^@@@@ $LEVEL ,$LEV-1 @D@@@@MD )@@G@@IF$R $EQU IF$R+1 . INCREMENT RUNG COUNT. @G@@@@ IF$PME )@@G@@->IF$S . DISPLAY ANY REQUIRED DIAGNOSTIC DATA. @D@@@@IF$L(IMF )@@G@@F$N,IF$R) $EQU $ . ADDRESS OF BOTTOM RUNG.@C@@@@IF$F(IF$N) $EQU $MG )@@G@@ . REMEMBER AS SUCH.@E@@@@IF$D $EQU IF$D-1 . DECREMH )@@G@@MENT IF-LEVEL DEPTH. @E@@@@ \IF$D->$END . DONE IF NO MI )@@G@@OUTER IF-LEVEL. @G@@@@IF$N $EQU IF$NN(IF$D) . ELSE, RESTORE PREMJ )@@G@@VIOUS IF-LEVEL NUMBER. @E@@@@IF$R $EQU IF$RR(IF$D) . RESTORE PREMK )@@G@@VIOUS RUNG NUMBER.@F@@@@IF$E $EQU IF$EE(IF$D) . RESTORE PREVIOUS ML )@@G@@ELSE-FOUND FLAG. @D@@@@ $END . OF ENDIF PROCEDURMM )@@G@@E. @[@@@@. @[@@@@. @E@@@@. AUXILIARY PROCEDURE FOR GENERATINGMN )@@G@@ MESSAGE AND L-FLAG. @[@@@@. @^@@@@IF$X* $PROC 0,0 @C@@@@MO )@@G@@ $LEVEL 0,$LEV+1,0 . GENERATE L-FLAG. @C@@@@ $DISPLAY 'MP )@@G@@NO IF-CLAUSE CURRENTLY OPEN.' @]@@@@ $END@[@@@@. @[@@@@. MQ )@@G@@@E@@@@. AUXILIARY PROCEDURE FOR GENERATING DIAGNOSTIC DISPLAYS. @[@@@@MR )@@G@@. @^@@@@IF$S* $PROC 0,0 @F@@@@ $DISPLAY $SR('> ',IF$DMS )@@G@@):'[':$CD(IF$N):',':$CD(IF$R):']' @]@@@@ $END@[@@@@/. @^@@@@MT )@@G@@P$ $PROC *999 @#@@@@REPEAT* $NAME @E@@@@ $LEVEL ,$MU )@@G@@LEV-1 . UPDATE ALL THE COUNTERS. @F@@@@RP$NN(RP$D) $EQU RP$N MV )@@G@@ . PREVIOUS REPEAT NUMBER (IF ANY). @G@@@@RP$RR(RP$D) $EQU RP$R MW )@@G@@ . CURRENT RUNG COUNT FOR PREVIOUS REPEAT. @H@@@@RP$EE(RP$D) $EQU RMX )@@G@@P$E . CURRENT ESCAPE-FOUND FLAG FOR PREVIOUS REPEAT. @D@@@@RP$I MY )@@G@@ $EQU RP$I+1 . INCREMENT REPEAT COUNT.@D@@@@RP$D $EQU RPMZ )@@G@@$D+1 . INCREMENT REPEAT DEPTH.@D@@@@RP$N $EQU RP$I .NA )@@G@@ CURRENT REPEAT NUMBER. @F@@@@RP$R $EQU 0 . RESET RUNG NB )@@G@@COUNT FOR THIS REPEAT. @E@@@@RP$E $EQU 0 . CLEAR ESCAPNC )@@G@@E-FOUND FLAG. @G@@@@ RP$P->RP$S . DISPLAY ANY REQUIND )@@G@@RED DIAGNOSTIC DATA. @E@@@@RP$B(RP$N) $EQU $ . JUMP TARGETNE )@@G@@ FOR ATEND/ENDRPT.@G@@@@RP$C(RP$N) P$(1,1)->$EQU!$NIL P$ . IF REPEAT UNTNF )@@G@@IL, SAVE CONDITIONS. @H@@@@ P$=1->$END!\P$(1,1)->T$COND P$,2,PNG )@@G@@$-2 0,1,RP$A(RP$N) . IF RPT WHILE, @I@@@@ $END .NH )@@G@@ \ JUMP IF FALSE TO ATEND OR ENDRPT. @[@@@@. @^@@@@NI )@@G@@P$ $PROC *999 @#@@@@EXCEPT* $NAME @F@@@@ \RP$D->RP$NJ )@@G@@X . INFORM IF NO REPEAT-CLAUSE OPEN. @G@@@@ RP$E>0->RPNK )@@G@@$Y 'OTHERWISE' . INFORM IF NO PRECEDING OTHERWISE. @^@@@@ $LEVNL )@@G@@EL ,$LEV-1 @E@@@@RP$E $EQU 1 . MARK EXCEPT ENCOUNTEREDNM )@@G@@. @G@@@@ RP$P->RP$S . DISPLAY ANY REQUIRED DIAGNOSTNN )@@G@@IC DATA. @H@@@@ T$COND P$,2,P$-2 0,1,RP$L(RP$N,RP$R+1) . JUMNO )@@G@@P IF FALSE TO OTHERWISE.@]@@@@ $END@[@@@@. @^@@@@OTHERWISE* $NP )@@G@@PROC *0 @F@@@@ \RP$D->RP$X . INFORM IF NO REPEAT-CLANQ )@@G@@USE OPEN. @F@@@@ RP$E<>1->RP$Y 'EXCEPT' . INFORM IF NO PRECEDINNR )@@G@@G EXCEPT. @D@@@@ J RP$F(RP$N) . JUMP TO ENDRPT END. NS )@@G@@@^@@@@ $LEVEL ,$LEV-1 @E@@@@RP$E $EQU -1 . MARK NT )@@G@@OTHERWISE ENCOUNTERED. @E@@@@RP$R $EQU RP$R+1 . INCREMENT ONU )@@G@@THERWISE COUNT. @F@@@@RP$L(RP$N,RP$R) $EQU $ . JUMP TARGET FOR PNV )@@G@@RECEDING EXCEPT. @G@@@@ RP$P->RP$S . DISPLAY ANY REQUINW )@@G@@RED DIAGNOSTIC DATA. @]@@@@ $END@[@@@@. @^@@@@P$ $PRONX )@@G@@C *999 @#@@@@ESCAPE* $NAME @F@@@@ \RP$D->RP$X .NY )@@G@@ INFORM IF NO REPEAT-CLAUSE OPEN. @G@@@@ RP$E>0->RP$Y 'OTHERWISNZ )@@G@@E' . INFORM IF NO PRECEDING OTHERWISE. @^@@@@ $LEVEL ,$LEV-1 OA )@@G@@@E@@@@RP$E $EQU -1 . MARK ESCAPE ENCOUNTERED. @G@@@@OB )@@G@@ RP$P->RP$S . DISPLAY ANY REQUIRED DIAGNOSTIC DATA. OC )@@G@@@E@@@@ $IF P$=1 . THEN UNCONDITIONAL ESCAPE. @D@@@@OD )@@G@@ J RP$F(RP$N) . JUMP TO ENDRPT END. @#@@@@ $ELSOE )@@G@@E @G@@@@ T$COND P$,2,P$-2 1,1,RP$F(RP$N) . JUMP IF TRUE TO OF )@@G@@ENDRPT END. @#@@@@ $ENDF @]@@@@ $END@[@@@@/. @E@@@@OG )@@G@@ESCP* $FUNC . ESCP(): ESCAPE JUMP TARGET. @F@@@@ OH )@@G@@ \RP$D->RP$X . INFORM IF NO REPEAT-CLAUSE OPEN. @G@@@@ OI )@@G@@ RP$E>0->RP$Y 'OTHERWISE' . INFORM IF NO PRECEDING OTHERWISE. @^@@@@OJ )@@G@@ $LEVEL ,$LEV-1 @E@@@@RP$E $EQU -1 . MARK ESCAPEOK )@@G@@ ENCOUNTERED. @G@@@@ RP$P->RP$S . DISPLAY ANY REQUIOL )@@G@@RED DIAGNOSTIC DATA. @ @@@@ $END RP$F(RP$N) @[@@@@. OM )@@G@@@[@@@@. @#@@@@P$ $PROC *0@#@@@@ATEND* $NAME 0 @H@@@@ ON )@@G@@ RP$E>-1->RP$Y 'ESCAPE/OTHERWISE' . INFORM IF NO PRECEDING ESC/OTHW. OO )@@G@@@^@@@@ $LEVEL ,$LEV-1 @D@@@@RP$E $EQU 2 . MARK OP )@@G@@ATEND ENCOUNTERED.@#@@@@ENDRPT* $NAME 2 @H@@@@ RP$E=1->RP$Y 'ESOQ )@@G@@CAPE/OTHERWISE' . INFORM IF NO PRECEDING ESC/OTHW. @F@@@@ \RP$OR )@@G@@D->RP$X . INFORM IF NO REPEAT-CLAUSE OPEN. @G@@@@ RP$POS )@@G@@->RP$S . DISPLAY ANY REQUIRED DIAGNOSTIC DATA. @^@@@@ OT )@@G@@ $LEVEL ,$LEV-1 @G@@@@ RP$E=P$(0,0)->$GO!$NIL EXIT . IF ATEND, OU )@@G@@OR ENDRPT WITHOUT ATEND:@D@@@@ $IF $TNOD(RP$C(RP$N)) . THEN ROV )@@G@@EPEAT UNTIL.@H@@@@ T$COND RP$C(RP$N),2,RP$C(RP$N)-2 0,1,RP$B(RPOW )@@G@@$N) . GENERATE THE JUMP.@D@@@@ $ELSE . REPEAT OR ROX )@@G@@EPEAT WHILE.@C@@@@ J RP$B(RP$N) . JUST JUMP BACK. @E@@@@OY )@@G@@RP$A(RP$N) $EQU $ . JUMP TARGET FOR REPEAT WHILE.@#@@@@ OZ )@@G@@ $ENDF @C@@@@ \P$(0,0)->$END . DONE IF ATEND. @G@@@@PA )@@G@@EXIT $NAME . COME HERE IF ENDRPT PRECEDED BY ATEND. PB )@@G@@@F@@@@RP$F(RP$N) $EQU $ . JUMP TARGET FOR ESCAPE/OTHERWISE. PC )@@G@@@D@@@@RP$D $EQU RP$D-1 . DECREMENT REPEAT DEPTH.@E@@@@ PD )@@G@@ \RP$D->$END . DONE IF NO OUTER REPEAT. @G@@@@RP$N $EQUPE )@@G@@ RP$NN(RP$D) . ELSE, RESTORE PREVIOUS REPEAT NUMBER. @E@@@@RP$R PF )@@G@@ $EQU RP$RR(RP$D) . RESTORE PREVIOUS RUNG NUMBER.@F@@@@RP$E $EQUPG )@@G@@ RP$EE(RP$D) . RESTORE PREVIOUS EXCEPT-FOUND FLAG.@]@@@@ $ENDPH )@@G@@@[@@@@/. @E@@@@. AUXILIARY PROCEDURE FOR GENERATING MESSAGE AND L-FLAPI )@@G@@G. @[@@@@. @^@@@@P$ $PROC 1,0 @#@@@@RP$X* $NAME 0 PJ )@@G@@@#@@@@RP$Y* $NAME 1 @C@@@@ $LEVEL ,$LEV+1 . GENERATE L-PK )@@G@@FLAG. @^@@@@ $IF P$(0,0) @E@@@@ $DISPLAY 'PRECEDING ''PL )@@G@@':P$(1,1):''' NOT FOUND.' @#@@@@ $ELSE @D@@@@ $DISPM )@@G@@PLAY 'NO REPEAT-CLAUSE CURRENTLY OPEN.' @#@@@@ $ENDF @]@@@@PN )@@G@@ $END@[@@@@. @[@@@@. @E@@@@. AUXILIARY PROCEDURE FOR GENEPO )@@G@@RATING DIAGNOSTIC DISPLAYS. @[@@@@. @^@@@@RP$S* $PROC 0,0 PP )@@G@@@F@@@@ $DISPLAY $SR('> ',RP$D):'[':$CD(RP$N):',':$CD(RP$R):']' PQ )@@G@@@]@@@@ $END@[@@@@. @[@@@@. @D@@@@ $END PR )@@G@@ . OF $DEF-MODE ASSEMBLY. _@@@@@@]@@@@ $END@[@@@@. @[@@@@PS )@@G@@. @D@@@@ $END . OF $DEF-MODE ASSEMBLY. _@@@@@PT )@@G@@ $L1(6,4,4,4,2,16) IF CN*MASM*C)E@@@[@]CK"@@@K@BK@D@@@[@AB/&D@@@@@ENDRPTPU )@@G@@#@#@@%@['@@%K @@@][@^CHR#@@@@@UNTIL K @@@[C)E@@@[@]CHR@@@K@BK@D@@@[@ACJ3PV )@@G@@D@@@@@REPEAT#@#@@>@@6@@>K @@@@C)D@@@[@]CJ3@@@K@BK@D@@@[@ B/ME@@@@@ESCP PW )@@G@@@@]@@(@@6@@([@^CB##@@@@@POS K @@@0C)E@@@[@]CB#@@@K@BK@D@@@[@ACGRD@@@@@PX )@@G@@T$COND#@#@@S@@6@@SK @@@@C)D@@@[@]CGR@@@K@BK@D@@@[@ B7VD@@@@@IF$S @@]@@=PY )@@G@@@@6@@=C)B@@@[@[B7V@@@C@B[@^CMA]@@@@@IF$Q @@@B7ZC)B@@@[@]B7Z@@@C@#C@ @@@PZ )@@G@@#)#B9I@@@B7+@@^B7VC)B@@@[@]B9I@@@C@#C@ @@@]@#B8G+@JB7Z@@@B9LC)B@@@[@]B9LQA )@@G@@@@@C@#C@ @@@#)#B9O@@@B9(@@]B9IC)B@@@[@]B9O@@@C@#C@ @@@]@#B9(+@[B9L@@@B9RQB )@@G@@C)B@@@[@]B9R@@@C@#C@ @@@#)#B'W@@@B9U@@]B9OC)B@@@[@]B'W@@@C@#C@ @@@]@#B9UQC )@@G@@+@[B9R@@@B'ZC)B@@@[@]B'Z@@@C@#C@ @@@#)#B;@@@@B'+@@]B'WC)B@@@[@]B;@@@@C@#QD )@@G@@C@ @@@]@#B'++@[B'Z@@@B;#C)B@@@[@]B;#@@@C@#C@ @@@#)#C :@@@C B@@]B;@C)B@@@QE )@@G@@[@]C :@@@C@#C@ @@@]@#C B+@[B;#@@@B;AC)B@@@[@]B;A@@@C@#C@ @@@#)#C *@@@C WQF )@@G@@@@ C :C)A@@@[@[C *@@@C@#]@#C ><@ B;AMH@___C)A@@@[@[C >@@@C@#]@#C +<@^C *QG )@@G@@MH@__"C)A@@@[@[C +@@@C@#]@#C Z<@#C >K @@@@C)A@@@[@[C Z@@@C@#]@#C W<@]C +QH )@@G@@MH@___C)A@@@[@[C W@@@C@#]@#C B<@[C ZMH@__"C)B@@@[@]C B@@@C@#C@ @@@]@#B'+QI )@@G@@+@@C :@@@B''C)B@@@[@]B''@@@C@#C@ @@@#)#C ^@@@C^5@@AC BC)A@@@[@[C ^@@@C@#QJ )@@G@@]@#C [<@AB''K @@@]C)A@@@[@[C [@@@C@#]@#C^"<@ C ^MH@__"C)A@@@[@[C^"@@@C@#QK )@@G@@]@#C^;<@^C [MH@___C)A@@@[@[C^;@@@C@#]@#C^8<@#C^"K @@@]C)A@@@[@[C^8@@@C@#QL )@@G@@]@#C^5<@]C^;MH@___C)A@@@[@[C^5@@@C@#]@#B'+<@[C^8MH@__"C)B@@@[@]B'+@@@C@#QM )@@G@@C@ @@@]@#B9U+@@B;@@@@B'>C)B@@@[@]B'>@@@C@#C@ @@@#)#C^)@@@C#_@@]B'+C)B@@@QN )@@G@@[@]C^)@@@C@#C@ @@@]@#C#_+@[B'>@@@B'*C)B@@@[@]B'*@@@C@#C@ @@@#)#C^X@@@C^OQO )@@G@@@@^C^)C)A@@@[@[C^X@@@C@#]@#C^U<@^B'*MH@___C)A@@@[@[C^U@@@C@#]@#C^R<@#C^XQP )@@G@@MH@__"C)A@@@[@[C^R@@@C@#]@#C^O<@]C^UMH@___C)A@@@[@[C^O@@@C@#]@#C#_<@[C^RQQ )@@G@@MH@__"C)B@@@[@]C#_@@@C@#C@ @@@]@#B9U+@@C^)@@@B'QC)B@@@[@]B'Q@@@C@#C@ @@@QR )@@G@@#)#C#/@@@C#0@@ C#_C)A@@@[@[C#/@@@C@#]@#C#9<@ B'QMH@___C)A@@@[@[C#9@@@C@#QS )@@G@@]@#C#6<@^C#/K @@@#C)A@@@[@[C#6@@@C@#]@#C#3<@#C#9MH@__"C)A@@@[@[C#3@@@C@#QT )@@G@@]@#C#0<@]C#6MH@___C)A@@@[@[C#0@@@C@#]@#B9U<@[C#3MH@__"C)B@@@[@]B9U@@@C@#QU )@@G@@C@ @@@]@#B9(+@@B'W@@@B9XC)B@@@[@]B9X@@@C@#C@ @@@#)#B'^@@@B9)@@]B9UC)B@@@QV )@@G@@[@]B'^@@@C@#C@ @@@]@#B9)+@[B9X@@@B'BC)B@@@[@]B'B@@@C@#C@ @@@#)#C#V@@@C]'QW )@@G@@@@]B'^C)B@@@[@]C#V@@@C@#C@ @@@]@#C]'+@[B'B@@@B'EC)B@@@[@]B'E@@@C@#C@ @@@QX )@@G@@#)#C#S@@@C#G@@ C#VC)A@@@[@[C#S@@@C@#]@#C#P<@ B'EMH@___C)A@@@[@[C#P@@@C@#QY )@@G@@]@#C#M<@^C#SK @@@@C)A@@@[@[C#M@@@C@#]@#C#J<@#C#PMH@___C)A@@@[@[C#J@@@C@#QZ )@@G@@]@#C#G<@]C#MMH@__"C)A@@@[@[C#G@@@C@#]@#C]'<@[C#JMH@___C)B@@@[@]C]'@@@C@#RA )@@G@@C@ @@@]@#B9)+@@C#V@@@B9"C)B@@@[@]B9"@@@C@#C@ @@@#)#C]7@@@C]:@@ C]'C)A@@@RB )@@G@@[@[C]7@@@C@#]@#C]4<@ B9"K @@@]C)A@@@[@[C]4@@@C@#]@#C]1<@^C]7MH@__"C)A@@@RC )@@G@@[@[C]1@@@C@#]@#C],<@#C]4MH@___C)A@@@[@[C],@@@C@#]@#C]:<@]C]1MH@__"C)A@@@RD )@@G@@[@[C]:@@@C@#]@#B9)<@[C],MH@___C)B@@@[@]B9)@@@C@#C@ @@@]@#B9(+@@B'^@@@B9@@@C]Q@@AC]*C)A@@@[@[C]>@@@C@#SS )@@G@@]@#C]+<@AB9;K @@@]C)A@@@[@[C]+@@@C@#]@#C]Z<@ C]>MH@___C)A@@@[@[C]Z@@@C@#ST )@@G@@]@#C]W<@^C]+MH@__"C)A@@@[@[C]W@@@C@#]@#C]T<@#C]ZK @@@]C)A@@@[@[C]T@@@C@#SU )@@G@@]@#C]Q<@]C]WMH@__"C)A@@@[@[C]Q@@@C@#]@#C][<@[C]TMH@___C)B@@@[@]C][@@@C@#SV )@@G@@C@ @@@]@#B8G+@@C]*@@@B9FC)B@@@[@]B9F@@@C@#C@ @@@#)#C["@@@C[2@@ C][C)A@@@SW )@@G@@[@[C["@@@C@#]@#C[;<@ B9FMH@__"C)A@@@[@[C[;@@@C@#]@#C[8<@^C["MH@___C)A@@@SX )@@G@@[@[C[8@@@C@#]@#C[5<@#C[;K @@@#C)A@@@[@[C[5@@@C@#]@#C[2<@]C[8MH@__"C)A@@@SY )@@G@@[@[C[2@@@C@#]@#B8G<@[C[5MH@___C)B@@@[@]B8G@@@C@#C@ @@@]@#B7,+@FB9I@@@B8JSZ )@@G@@C)B@@@[@]B8J@@@C@#C@ @@@#)#B8M@@@B8-@@]B8GC)B@@@[@]B8M@@@C@#C@ @@@]@#B8-TA )@@G@@+@[B8J@@@B8PC)B@@@[@]B8P@@@C@#C@ @@@#)#B86@@@B8S@@]B8MC)B@@@[@]B86@@@C@#TB )@@G@@C@ @@@]@#B8S+@[B8P@@@B89C)B@@@[@]B89@@@C@#C@ @@@#)#C[F@@@C@0@@]B86C)B@@@TC )@@G@@[@]C[F@@@C@#C@ @@@]@#C@0+@[B89@@@B8/C)B@@@[@]B8/@@@C@#C@ @@@#)#C[C@@@C@_TD )@@G@@@@^C[FC)A@@@[@[C[C@@@C@#]@#C[ <@^B8/MH@___C)A@@@[@[C[ @@@C@#]@#C[]<@#C[CTE )@@G@@K @@@@C)A@@@[@[C[]@@@C@#]@#C@_<@]C[ MH@___C)A@@@[@[C@_@@@C@#]@#C@0<@[C[]TF )@@G@@MH@__"C)B@@@[@]C@0@@@C@#C@ @@@]@#B8S+@@C[F@@@B80C)B@@@[@]B80@@@C@#C@ @@@TG )@@G@@#)#C@!@@@C@=@@^C@0C)A@@@[@[C@!@@@C@#]@#C@%<@^B80K @@@]C)A@@@[@[C@%@@@C@#TH )@@G@@]@#C@$<@#C@!MH@__"C)A@@@[@[C@$@@@C@#]@#C@=<@]C@%MH@___C)A@@@[@[C@=@@@C@#TI )@@G@@]@#B8S<@[C@$MH@__"C)B@@@[@]B8S@@@C@#C@ @@@]@#B8-+@@B86@@@B8VC)B@@@[@]B8VTJ )@@G@@@@@C@#C@ @@@#)#C@M@@@B_7@@]B8SC)B@@@[@]C@M@@@C@#C@ @@@]@#B_7+@[B8V@@@B8YTK )@@G@@C)B@@@[@]B8Y@@@C@#C@ @@@#)#C@J@@@C@D@@#C@MC)A@@@[@[C@J@@@C@#]@#C@G<@#B8YTL )@@G@@MH@___C)A@@@[@[C@G@@@C@#]@#C@D<@]C@JMH@__"C)A@@@[@[C@D@@@C@#]@#B_7<@[C@GTM )@@G@@MH@___C)B@@@[@]B_7@@@C@#C@ @@@]@#B8-+@@C@M@@@B8AC)B@@@[@]B8A@@@C@#C@ @@@TN )@@G@@#)#B_4@@@B_:@@^B_7C)A@@@[@[B_4@@@C@#]@#B_1<@^B8AMH@___C)A@@@[@[B_1@@@C@#TO )@@G@@]@#B_,<@#B_4K @@@#C)A@@@[@[B_,@@@C@#]@#B_:<@]B_1MH@__"C)A@@@[@[B_:@@@C@#TP )@@G@@]@#B8-<@[B_,MH@___C)B@@@[@]B8-@@@C@#C@ @@@]@#B7,+@@B8M@@@B8=C)B@@@[@]B8=TQ )@@G@@@@@C@#C@ @@@#)#B8_@@@B8$@@]B8-C)B@@@[@]B8_@@@C@#C@ @@@]@#B8$+@[B8=@@@B9]TR )@@G@@C)B@@@[@]B9]@@@C@#C@ @@@#)#C[U@@@C@/@@]B8_C)B@@@[@]C[U@@@C@#C@ @@@]@#C@/TS )@@G@@+@[B9]@@@B9 C)B@@@[@]B9 @@@C@#C@ @@@#)#C[R@@@C[I@@^C[UC)A@@@[@[C[R@@@C@#TT )@@G@@]@#C[O<@^B9 MH@__"C)A@@@[@[C[O@@@C@#]@#C[L<@#C[RK @@@#C)A@@@[@[C[L@@@C@#TU )@@G@@]@#C[I<@]C[OMH@___C)A@@@[@[C[I@@@C@#]@#C@/<@[C[LMH@__"C)B@@@[@]C@/@@@C@#TV )@@G@@C@ @@@]@#B8$+@@C[U@@@B83C)B@@@[@]B83@@@C@#C@ @@@#)#C@9@@@C@3@@#C@/C)A@@@TW )@@G@@[@[C@9@@@C@#]@#C@6<@#B83MH@__"C)A@@@[@[C@6@@@C@#]@#C@3<@]C@9MH@___C)A@@@TX )@@G@@[@[C@3@@@C@#]@#B8$<@[C@6MH@__"C)B@@@[@]B8$@@@C@#C@ @@@]@#B7,+@@B8_@@@B8%TY )@@G@@C)B@@@[@]B8%@@@C@#C@ @@@#)#C@-@@@C@A@@]B8$C)B@@@[@]C@-@@@C@#C@ @@@]@#C@ATZ )@@G@@+@[B8%@@@B8!C)B@@@[@]B8!@@@C@#C@ @@@#)#C@Y@@@C@P@@^C@-C)A@@@[@[C@Y@@@C@#UA )@@G@@]@#C@V<@^B8!K @@@]C)A@@@[@[C@V@@@C@#]@#C@S<@#C@YMH@___C)A@@@[@[C@S@@@C@#UB )@@G@@]@#C@P<@]C@VMH@__"C)A@@@[@[C@P@@@C@#]@#C@A<@[C@SMH@___C)B@@@[@]C@A@@@C@#UC )@@G@@C@ @@@]@#B7,+@@C@-@@@B8DC)B@@@[@]B8D@@@C@#C@ @@@#)#C@#@@@B_'@@^C@AC)A@@@UD )@@G@@[@[C@#@@@C@#]@#C@@<@^B8DMH@__"C)A@@@[@[C@@@@@C@#]@#B_.<@#C@#K @@@]C)A@@@UE )@@G@@[@[B_.@@@C@#]@#B_'<@]C@@MH@__"C)A@@@[@[B_'@@@C@#]@#B7,<@[B_.MH@___C)B@@@UF )@@G@@[@]B7,@@@C@#C@ @@@]@#B7++@BB8G@@@B71C)B@@@[@]B71@@@C@#C@ @@@#)#B74@@@B7.UG )@@G@@@@]B7,C)B@@@[@]B74@@@C@#C@ @@@]@#B7.+@[B71@@@B77C)B@@@[@]B77@@@C@#C@ @@@UH )@@G@@#)#B_W@@@B_E@@]B74C)B@@@[@]B_W@@@C@#C@ @@@]@#B_E+@[B77@@@B7'C)B@@@[@]B7'UI )@@G@@@@@C@#C@ @@@#)#B_T@@@B_Q@@]B_WC)A@@@[@[B_T@@@C@#]@#B_Q<@]B7'MH@___C)A@@@UJ )@@G@@[@[B_Q@@@C@#]@#B_E<@[B_TMH@__"C)B@@@[@]B_E@@@C@#C@ @@@]@#B7.+@@B_W@@@B7*UK )@@G@@C)B@@@[@]B7*@@@C@#C@ @@@#)#B"B@@@B"[@@#B_EC)A@@@[@[B"B@@@C@#]@#B"^<@#B7*UL )@@G@@K @@@]C)A@@@[@[B"^@@@C@#]@#B"[<@]B"BMH@__"C)A@@@[@[B"[@@@C@#]@#B7.<@[B"^UM )@@G@@MH@___C)B@@@[@]B7.@@@C@#C@ @@@]@#B7++@@B74@@@B8@C)B@@@[@]B8@@@@C@#C@ @@@UN )@@G@@#)#B_*@@@B_N@@]B7.C)B@@@[@]B_*@@@C@#C@ @@@]@#B_N+@[B8@@@@B8#C)B@@@[@]B8#UO )@@G@@@@@C@#C@ @@@#)#B_>@@@B_Z@@#B_*C)A@@@[@[B_>@@@C@#]@#B_+<@#B8#K @@@]C)A@@@UP )@@G@@[@[B_+@@@C@#]@#B_Z<@]B_>MH@___C)A@@@[@[B_Z@@@C@#]@#B_N<@[B_+MH@__"C)B@@@UQ )@@G@@[@]B_N@@@C@#C@ @@@]@#B7++@@B_*@@@B7:C)B@@@[@]B7:@@@C@#C@ @@@#)#B_K@@@B_HUR )@@G@@@@]B_NC)A@@@[@[B_K@@@C@#]@#B_H<@]B7:MH@__"C)A@@@[@[B_H@@@C@#]@#B7+<@[B_KUS )@@G@@MH@___C)B@@@[@]B7+@@@C@#C@ @@@]@#CMA+@#B7,@@@B7>C)B@@@[@]B7>@@@C@#C@ @@@UT )@@G@@#)#B.8@@@B."@@]B7+C)B@@@[@]B.8@@@C@#C@ @@@]@#B."+@[B7>@@@B/2C)B@@@[@]B/2UU )@@G@@@@@C@#C@ @@@#)#B/5@@@B/5@@[B.8C)A@@@[@[B/5@@@C@#]@#B."<@[B/2MH@___C)B@@@UV )@@G@@[@]B."@@@C@#C@ @@@]@#CMA+@@B.8@@@B7SC)B@@@[@]B7S@@@C@#C@ @@@#)#B.;@@@B.;UW )@@G@@@@[B."C)A@@@[@[B.;@@@C@#]@#CMA<@[B7SMH@__"C)E@@@[@]CMA@@@K@BK@D@@@[@ACJMUX )@@G@@D@@B7VRP$Y #@#@@!@@6@@!K @@@[C)E@@@[@]CJM@@@K@BK@D@@@[@ACE,D@@@@@ESCAPEUY )@@G@@#@#@@*@@6@@*K @@@@C)E@@@[@]CE,@@@K@BK@D@@@[@AB;'D@@@@@ANDIF #@#@@-@@6@@-UZ )@@G@@K @@@@[@^B/Q#@@@@@EQ K @@@%[@^CEN#@@@@@NEG K @@@1C)E@@@[@]CEN@@@K@BVA )@@G@@K@D@@@[@ACM@D@@@@@ELSE #@#@@)@@6@@)K @@@[C)E@@@[@]CM@@@@K@BK@D@@@[@AB/IVB )@@G@@D@@CENRP$X #@#@@!@@6@@!K @@@@[@^B/%#@@@@@GE MH@__M[@^B;%#@@B/IIS VC )@@G@@K @@@@[@^B/]#@@@@@EP K @@@=[@^B/A#@@@@@LE K @@@?[@^CEH#@@@@@GT VD )@@G@@K @@@!C)E@@@[@]CEH@@@K@BK@D@@@[@AB/UD@@B/AELSEIF#@#@@)@@6@@)K @@@@[@^B/EVE )@@G@@#@@@@@OR K @@@@[@^B/,#@@@@@LT MH@__N[@^CCZ#@@@@@IF K @@@@C)E@@@VF )@@G@@[@]CCZ@@@K@BK@D@@@[@AB;6D@@B/,IF #@#@@X@@6@@XK @@@@[@^B/Y#@@@@@NONZ VG )@@G@@K @@@([@^CC>#@@B;6AND K @@@[C)E@@@[@]CC>@@@K@BK@D@@@[@ACF+D@@@@@IFF VH )@@G@@#@#@@X@@6@@XK @@@[C)D@@@[@]CF+@@@K@BK@D@@@[@ B/+D@@@@@ENDIF @@]@@+@@6@@+VI )@@G@@[@^CF.#@@@@@WHILE K @@@@C)D@@@[@]CF.@@@K@BK@D@@@[@ CK8D@@@@@IF$X @@]@@C)E@@@[@]CH.@@@K@BK@D@@@[@ACI&D@@@@@EXCEPT#@#@@&VM )@@G@@@@6@@&K @@@@C)E@@@[@]CI&@@@K@DK@F@@@[@AB;"D)@@@@OTHERWISE @@]@@$@@6@@$VN )@@G@@[@^@@@#@@@@@NE K @@@:C)&@@@]@@@@$@@@K@F#@RP$X*R RP$E<>1->RP$Y 'EXCEPT'*H J RVP )@@G@@P$F(RP$N)*J $LEVEL ,$LEV-1*GRP$E $EQU -1*KRP$R $EQU RP$R+1*QRP$L(RP$N,RPVQ )@@G@@$R) $EQU $*F RP$P->RP$S* $END@@@@@@C)<@@@]@@@@&@@@K@F#@)CML@@&@@@@@@@@[VR )@@G@@[C)@@@M@@@@@@J$@@@@@@@@@P$ M#8)G \RP$D->RP$X*T RP$E>0->RP$Y 'OTVS )@@G@@HERWISE'*J $LEVEL ,$LEV-1*FRP$E $EQU 1*F RP$P->RP$S*$ T$COND P$,2,P$-2 0VT )@@G@@,1,RP$L(RP$N,RP$R+1)* $END@@@C)S@@@]@@@@,@@@K@F#@PCF$@@,@@@@@@@@[[CP@@@VU )@@G@@E@@@@@@@@@@@@@@@@@RP$S M I)' $DISPLAY $SR('> ',RP$D):'">':$CD(RP$VV )@@G@@N):',':$CD(RP$R):'"&'* $END@>C)T@@@]@@@@<@@@K@F#@QCE4@@<@@@@@@@@[[CQ@@@VW )@@G@@E@@@@@@@@@@@@@@@@@IF$X M#U)M $LEVEL 0,$LEV+1,0** $DISPLAY 'NO IF-VX )@@G@@CLAUSE CURRENTLY OPEN.'* $END@ $EQUC)1@@@]@@@@+@@@K@F#@,CBZ@@+@@@@@@@@[VY )@@G@@[C,@@@M@@@@@@@@@@@@@@@@@ENDIF M#D)G \IF$D->IF$X*J $LEVEL ,$LEV-1*KVZ )@@G@@IF$R $EQU IF$R+1*F IF$P->IF$S*QIF$L(IF$N,IF$R) $EQU $*LIF$F(IF$N) $EQU $WA )@@G@@*KIF$D $EQU IF$D-1*G \IF$D->$END*PIF$N $EQU IF$NN(IF$D)*PIF$R $EQU IF$RRWB )@@G@@(IF$D)*PIF$E $EQU IF$EE(IF$D)* $END@@ CVOC-^@@@]@]@@X@@@K@BK@F@@@]-@CDSWC )@@G@@@@X@@@@@@@@][D@@@ZM@@@@@@J$@@Y@@@@@@P$ M]N)PNCF $EQU P$-1-(P$**WD )@@G@@1)*L P$(0,0)->$GO OLF*< P$**1->$GO!P$(NCF)>1->$GO!$NIL OLF*J $LEVEL ,$LEWE )@@G@@V-1*PIF$NN(IF$D) $EQU IF$N*PIF$RR(IF$D) $EQU IF$R*PIF$EE(IF$D) $EQU IF$EWF )@@G@@*KIF$I $EQU IF$I+1*KIF$D $EQU IF$D+1*IIF$N $EQU IF$I*FIF$R $EQU 0*FIF$E WG )@@G@@$EQU 0*F IF$P->IF$S*& T$COND P$,1,NCF 0,1,IF$L(IF$N,IF$R+1)*C 1->$ENDM]IF$X(] IF$E->$DISPLAY!$NIL '")ELSE") FOR WK )@@G@@THIS IF-CLAUSE ALREADY FOUND.'#*J $LEVEL ,$LEV-1*TIF$E P$(0,0)->$EQU!$NIWL )@@G@@L 1*H J IF$F(IF$N)*KIF$R $EQU IF$R+1*QIF$L(IF$N,IF$R) $EQU $*F IF$P->IF$WM )@@G@@S*5 P$(0,0)->$END!T$COND P$,1,P$-1 0,1,IF$L(IF$N,IF$R+1)* $END@QUC)S@@@WN )@@G@@]@@@@-@@@K@F#@PCI?@@-@@@@@@@@[[CP@@@M@@@@@@J$@@@@@@@@@P$ M#])G WO )@@G@@\IF$D->IF$X*F IF$P->IF$S*) T$COND P$,1,P$-1 0,1,IF$F(IF$N)* $END@C)(@@@WP )@@G@@]@@@@*@@@K@F#@&CLX@@*@@@@@@@@[[C&@@@M@@@@@@J$@@@@@@@@@P$ M^H)G WQ )@@G@@\RP$D->RP$X*T RP$E>0->RP$Y 'OTHERWISE'*J $LEVEL ,$LEV-1*GRP$E $EQU -1*F WR )@@G@@RP$P->RP$S*D $IF P$=1*H J RP$F(RP$N)*A $ELSE*) T$COND P$,2,P$-2 1,1,RP$FWS )@@G@@(RP$N)*A $ENDF* $END@@@C)&@@@]@@@@!@@@K@F#@ ',IF$D):'">':$WX )@@G@@CD(IF$N):',':$CD(IF$R):'"&'* $END@&C-^@@@]@]@@S@@@K@BK@F@@@]-@CJS@@S@@@WY )@@G@@@@@@@[[D@@@TM@@@@@@J$@@U@@@@@@P$ M[M)JCN $EQU P$(1,1)*JFF $EQU WZ )@@G@@P$(1,2)*JNF $EQU P$(1,3)TBIF$Q(3,P$(2,1)--P$(2,2))!NF=7XA )@@G@@->IF$Q(7,P$(2,1)--P$(2,2),CN(FF+3,1))!NF=11->IF$Q(11,P$(2,1)--P$(2,2),CNXB )@@G@@(FF+3,1),CN(FF+7,1))!NF=15->IF$Q(15,P$(2,1)--P$(2,2),CN(FF+3,1),CN(FF+7,XC )@@G@@1),CN(FF+11,1))!0T^)R KEY->$NIL!$DISPLAY NF#T^)M $LP->$GO!$NIL GEN8J $REXD )@@G@@S KEY+P$(2,CC)G@@@]@]@@U@@@K@HK@J@@@#@CC\D@@U@@@@@@@@[@CC@@@GEN XE )@@G@@]@#@@S@@&@@TC)Y@@@]@@@@(@@@K@F#@VCGW@@(@@@@@@@@[[CV@@@M@@@@@@@@@@@@@@@@@XF )@@G@@ESCP M^U)G \RP$D->RP$X*T RP$E>0->RP$Y 'OTHERWISE'*J $LEVEL ,$LEV-XG )@@G@@1*GRP$E $EQU -1*F RP$P->RP$S*K $END RP$F(RP$N)@_C)"@@@]@@@@>@@@K@F#@;CJ8XH )@@G@@@@>@@@@@@@@[[C;@@@M@@@@@@J$@@@@@@@@@P$ M#$)J $LEVEL ,$LEV-1*PRPXI )@@G@@$NN(RP$D) $EQU RP$N*PRP$RR(RP$D) $EQU RP$R*PRP$EE(RP$D) $EQU RP$E*KRP$I XJ )@@G@@$EQU RP$I+1*KRP$D $EQU RP$D+1*IRP$N $EQU RP$I*FRP$R $EQU 0*FRP$E $EQU 0*XK )@@G@@F RP$P->RP$S*LRP$B(RP$N) $EQU $*)RP$C(RP$N) P$(1,1)->$EQU!$NIL P$*5 P$=1XL )@@G@@->$END!\P$(1,1)->T$COND P$,2,P$-2 0,1,RP$A(RP$N)* $END@@___C-^@@@]@]@@%XM )@@G@@@@@K@BK@F@@@]-@@@@@@%@@@@@@@@][D@@@?M@@@@@@@@@@:@@@@@@P$ M^=)- XN )@@G@@RP$E>-1->RP$Y 'ESCAPE/OTHERWISE'*J $LEVEL ,$LEV-1*FRP$E $EQU 2M^*)) RP$EXO )@@G@@=1->RP$Y 'ESCAPE/OTHERWISE'*G \RP$D->RP$X*F RP$P->RP$S*J $LEVEL ,$LEV-1*XP )@@G@@W RP$E=P$(0,0)->$GO!$NIL EXIT*Q $IF $TNOD(RP$C(RP$N))*0 T$COND RP$C(RP$NXQ )@@G@@),2,RP$C(RP$N)-2 0,1,RP$B(RP$N)*A $ELSE*H J RP$B(RP$N)*LRP$A(RP$N) $EQU XR )@@G@@$*A $ENDF*J \P$(0,0)->$ENDM^50^RP$FCC)G@@@]@]@@:@@@K@HK@J@@@#@C@@@@@:@@@XS )@@G@@@@@@@[@CC@@@EXIT ]@#@@%@ 6@@%C-#@@@]@[@@T@@@K@B]-@B"E@@T@@@@@@@@[XT )@@G@@@-@@@V)]2)*C 1->$ENDM[*))P$(2,3) P$(2,2)->$NIL!$EQU $+KEY*IWD $REPEAT KEXU )@@G@@Y*IM $EQU KEY(WD)T])O M<+0->$GO!$NIL TEST*O J M->+($+M)!P$(2,3)*D $GO ENXV )@@G@@DRT])ETEST $NAME*NA $EQU \\CN(FF+1,1)*K A->$NIL!$GO I$3*V CN(FF+1,1)>0->XW )@@G@@$GO!$NIL I$1*VCN(FF+1,1) $EQU -CN(FF+1,1)*SCN(FF,1) $EQU CN(FF,1)+1*V CNXX )@@G@@(FF,3)>015->$GO!$NIL I$2T])RC $EQU $BA(CN(FF,1))(0)*NC C<>6->$EQU!$NIL 0XY )@@G@@8#I $CC-#@@@]@[@@V@@@K@B]-@CBD@@V@@@@@@@@[@-@@@W)\DO C ,C C(I)<>$L1(6,4,XZ )@@G@@4,4,2,16)(I)->$EQU!$NIL 0(^ C->($AP(CN(FF,1))**(I$ -0,016,-0,,,)=(I$ ,01YA )@@G@@6,,,,))->$NIL!$DO!$DO #*C $GO I$3*DI$1 $NAME*V CN(FF,3)<016->$GO!$NIL I$YB )@@G@@3*DI$2 $NAME*5 CN(FF,2)->$GO!CN(FF,*2)->$GO!CN(FF,*1)->$GO!$NIL I$3*-CN(YC )@@G@@FF,1) $EQUF CN(FF,1),,CN(FF,3)*JCN(FF,3) $EQU 0*DI$3 $NAME8; I$ CN(FF+2-YD )@@G@@A,1)---M,CN(FF,3),A->CN(FF+2,1)-12,CN(FF,2),2*CCC)T@@@]@[@@W@@@K@B#@QCC:YE )@@G@@@@W@@@@@@@@[@)Q@@U)VN(FF,*2)+CN(FF,*1),CN(FF,1)T#)GFF $EQU FF+4T])EENDR YF )@@G@@$NAME*A $ENDRT])S P$(2,2)->J!$NIL P$(2,3)T]) $END@ST*C)0@@@]@[@@Z@@@K@BYG )@@G@@#@!CL^@@Z@@@@@@@@[@)!@@Y)[F*< $TCON(P$(NCF,2))->$NIL!$DISPLAY /0*DS $EQUYH )@@G@@ ''*MI $REPEAT NCF,P$-1*ED $EQU ' '*UJ $REPEAT NCF=I->2!1,P$(I)*:G $EQU YI )@@G@@\$TCON(P$(I,J))->P$(I,*J)->'*'!''!''**S $EQU S:D:G:'P$(':$CD(I):',':$CD(YJ )@@G@@J):')'*ED $EQU ','*A $ENDR*A $ENDR*E $INSERT S* $END@C)W@@@]@[@@?@@@K@BYK )@@G@@#@T@@@@@?@@@@@@@@[@)T@@:)H(RP$N) $EQU $*KRP$D $EQU RP$D-1*G \RP$D->$END*YL )@@G@@PRP$N $EQU RP$NN(RP$D)*PRP$R $EQU RP$RR(RP$D)*PRP$E $EQU RP$EE(RP$D)* $YM )@@G@@END@(2@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___YN )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___YO )@@G@@*[S@@@*SDFF*@G@@@@TEST EQU 1/1/1 . SET TO 0 FOR SUBROUTINEYP )@@G@@, 1 FOR SELF-TEST.@C@@@@. COPYRIGHT 1976, 1979, B. E. CHI, SUNY-ALBANY. YQ )@@G@@@[@@@@. @]@@@@ AXR$@]@@@@$(1) LIT @[@@@@. ^ON @B@@@@. ANALYR )@@G@@YZE GIVEN OP-CODE MNEMONIC. CALL: @A@@@@. L A0, @ @@@@. LMJ X11,ASMFJA @#@@@@. @C@@@@YT )@@G@@. . [A0] = F-VALUE. @G@@@@. YU )@@G@@ . [A1] = J-VALUE (-0 IF J NOT A SUBCODE). @G@@@@. YV )@@G@@ . [A2] = A-VALUE (-0 IF A NOT A SUBCODE). @H@@@@. YW )@@G@@ . [A3] = TEST CODES J,A,XHI,U,P,S (CF. ASMTAB). YX )@@G@@@B@@@@. ALTERS A0-A3,R1. PSR-MODE INSENSITIVE. @[@@@@. ^OFF@]@@@@ASMFJAYY )@@G@@* . @#@@@@ SZ A1@D@@@@ DSL A0,24 . SYMBOYZ )@@G@@L IN T1,T2 OF A1. @B@@@@ S R2,A3 . RESCUE R2. @D@@@@ZA )@@G@@ L,U R1,FJALGH . SYMBOL TABLE LENGTH. @C@@@@ L ZB )@@G@@ R2,(-07777) . SEARCH MASK. @ @@@@ L A0,(1,-1) ZC )@@G@@@D@@@@ MSE A1,FJATAB+1,*A0 . SEARCH FOR SYMBOL. @G@@@@ ZD )@@G@@ LMJ A2,ALIAS . IF NOT FOUND, GO SEARCH ALIAS TABLE. @B@@@@ZE )@@G@@ L R2,A3 . RESTORE R2.@D@@@@ L,U A0,0,A0 ZF )@@G@@ . CLEAR OUT INCREMENT. @E@@@@ SPD R1 . REMEMZG )@@G@@BER CURRENT WORD MODE @D@@@@ LPD 0140 . AND SET TOZH )@@G@@ THIRD-WORD.@D@@@@ L,T3 A3,FJATAB,A0 . GET TEST CODE POINTER. ZI )@@G@@@D@@@@ LN,U A1,0 . ASSUME NO SUBCODES. @^@@@@ ZJ )@@G@@ LN,U A2,0 @D@@@@ LXM,T3 A2,FJACODES,A3 . GET BACK-POINTEZK )@@G@@R. @D@@@@ TNZ,U 0,A2 . IF NO BACK-POINTER, @C@@@@ZL )@@G@@ J RESTORE . GO FINISH UP. @F@@@@ TE,U A0ZM )@@G@@,FJAJK-FJATAB . ELSE, ADJUST MNEMONIC POINTER @G@@@@ TNE,U A0ZN )@@G@@,FJAJK+1-FJATAB . IF MNEMONIC WAS 'JK' OR 'HJK'. @ @@@@ AN,UZO )@@G@@ A0,FJAJK-FJAJ @]@@@@/FINDJA . @F@@@@ ANU,T2 A0,FJATAB,A2 .ZP )@@G@@ COMPUTE J- OR A-VALUE (IF ANY). @ @@@@ LN A0,FJATAB,A2 ZQ )@@G@@@^@@@@ SSL A0,36-6 @D@@@@ A A1,A0 . [A1] ZR )@@G@@= J- OR A-VALUE. @D@@@@ L,U A0,0,A2 . A-SUBCODE POINTERZS )@@G@@ OR F.@F@@@@ TNZ,T3 FJATAB,A0 . DOES THIS F,J HAVE AN A-SUBCOZT )@@G@@DE? @D@@@@ J CHECKJA . NO. LOOKUP COMPLETE. @H@@@@ZU )@@G@@ DSL A1,18 . YES. A-VALUE TO A2 INCREMENT. FIND J-VALUZV )@@G@@E. @C@@@@ LXM,T3 A2,FJATAB,A0 . GET BACK-POINTER.@^@@@@ ZW )@@G@@ J FINDJA @[@@@@. @]@@@@CHECKJA . @H@@@@ TN,T3 FJZX )@@G@@ATAB,A0 . DOES THIS F HAVE A- BUT NO J-SUBCODE (E.G. SZ)?@A@@@@ ZY )@@G@@ J RESTORE . NO. @F@@@@ DSL A1,18 . YES. ZZ )@@G@@A-SUBCODE TO A2 INCREMENT. @D@@@@ LN,U A1,0 . MARK AA )@@G@@NO J-SUBCODE. @]@@@@RESTORE . @E@@@@ LXM A2,R1 .AB )@@G@@ RESTORE ORIGINAL WORD MODE. @^@@@@ LPD 0,A2 @D@@@@ AC )@@G@@ SSA A2,18 . A-SUBCODE (IF ANY). @^@@@@ J FIAD )@@G@@NISH @[@@@@. @[@@@@. @F@@@@ALIAS . . COME AE )@@G@@HERE IF MNEMONIC NOT FOUND. @E@@@@ L,U R1,ALSLGH . ALIASAF )@@G@@ SYMBOL TABLE LENGTH. @^@@@@ LXM,U A0,-1 @E@@@@ MSE AG )@@G@@ A1,ALSTAB+1,*A0 . SEARCH ALIAS SYMBOL TABLE.@D@@@@ J NOAH )@@G@@MNEM . IF NOT FOUND, GIVE UP. @F@@@@ L A0,ALSTAB,A0 .AI )@@G@@ ELSE, GET POINTER TO MAIN ENTRY. @C@@@@ AND,U A0,07777 .AJ )@@G@@ (POINTER IN T3.) @C@@@@ LSSL A0,24 .(POINTER IN T3.) AK )@@G@@@^@@@@ SSL A0,24 @D@@@@ J 0,A2 . RETURAL )@@G@@N TO MAINSTREAM. @[@@@@. @]@@@@NOMNEM . @D@@@@ L R2AM )@@G@@,A3 . RESTORE R2 IF NOT FOUND@C@@@@ J 0,X11 .AN )@@G@@ AND RETURN. @[@@@@/. ^ON@F@@@@. FIND OP-CODE MNEMONIC FOR GIVEN MAAO )@@G@@CHINE INSTRUCTION. CALL: @A@@@@. L A0, AP )@@G@@@ @@@@. LMJ X11,ASMNEM @#@@@@. @D@@@@. AQ )@@G@@ . [A0] = MNEMONIC, RJZF. @G@@@@. AR )@@G@@ . [A1] = J-VALUE (-0 IF J IS A SUBCODE). @G@@@@. AS )@@G@@ . [A2] = A-VALUE (-0 IF A IS A SUBCODE). @H@@@@. AT )@@G@@ . [A3] = TEST CODES J,A,XHI,U,P,S (CF. ASMTAB). AU )@@G@@@B@@@@. ALTERS A0-A3,R1. PSR-MODE INSENSITIVE. @[@@@@. ^OFF@]@@@@ASMNEMAV )@@G@@* . @B@@@@ DSL A0,30 . F-VALUE. @B@@@@ TE,UAW )@@G@@ A0,070 . F = JGD? @A@@@@ J $+4 . NO. AX )@@G@@@C@@@@ DSL A1,72-8 . YES. [A2] = J,A. @E@@@@ LN,UAY )@@G@@ A1,0 . MARK NO SEPARATE J-FIELD. @^@@@@ J $+AZ )@@G@@3 @C@@@@ DSL A1,36-4 . NO. [A1] = J. @B@@@@ BA )@@G@@ SSL A2,36-4 . [A2] = A. @E@@@@ L A0,FJATAB,A0 .BB )@@G@@ GET MNEMONIC TABLE ENTRY. @F@@@@ JP A0,FFOUND . DOES BC )@@G@@THIS F REQUIRE A SUBCODE? @I@@@@ TEP,U A0,1*/11 . BUT IBD )@@G@@F J NOT A SUBCODE, MOMENTARILY SWAP J AND A @F@@@@ DSC A1BE )@@G@@,36 . SO AS TO DO LOOKUP ONLY ON A. @F@@@@ L R1BF )@@G@@,A2 . YES. RESCUE A AND DO LOOKUP ON J. @^@@@@ L A2BG )@@G@@,A1 @ @@@@ LMJ A3,SUBCODE @B@@@@ L A2,R1 BH )@@G@@ . RESTORE A. @G@@@@ JN A0,$-2 . IF THIS F,J REQUIBI )@@G@@RES A-SUBCODE, REPEAT. @B@@@@ JZ A2,FFOUND . IF A > 0 BJ )@@G@@@C@@@@ TNE A0,FJAJ . AND F = 'J' @D@@@@ L BK )@@G@@ A0,FJAJK . REPLACE WITH 'JK'. @C@@@@ TNE A0,FJAJ+BL )@@G@@1 . OR IF F = 'HJ', @D@@@@ L A0,FJAJK+1 . REPLACE WIBM )@@G@@TH 'HJK'. @]@@@@FFOUND . @D@@@@ JZ A0,0,X11 . NO-FIBN )@@G@@ND, IF ILLEGAL OP.@F@@@@ L A3,A0 . ELSE, IS0LATE TESBO )@@G@@T CODE POINTER. @^@@@@ LSSL A3,24 @^@@@@ SSL A3BP )@@G@@,24 @C@@@@ SSL A0,12 . RJZF MNEMONIC. @D@@@@ BQ )@@G@@ TZ,S1 FJACODES,A3 . IF J NOT A SUBCODE @B@@@@ TZ,S2 FJBR )@@G@@ACODES,A3 . BUT A IS, @^@@@@ J $+2 @C@@@@ L BS )@@G@@ A1,A2 . RESTORE J TO A1.@G@@@@ TNZ,S1 FJACODES,A3 .BT )@@G@@ IF NO SEPARATE J-FIELD (J A SUBCODE), @B@@@@ LN,U A1,0 BU )@@G@@ . SO MARK. @G@@@@ TNZ,S2 FJACODES,A3 . IF NO SEPARATE A-BV )@@G@@FIELD (A A SUBCODE), @B@@@@ LN,U A2,0 . SO MARK. BW )@@G@@@^@@@@. J FINISH @]@@@@/FINISH . @C@@@@ L A3BX )@@G@@,FJACODES,A3 . GET TEST CODES.@E@@@@ SSL A3,12 . SHIFTBY )@@G@@ OUT ANY BACK-POINTER. @D@@@@ TEP,U A3,1*/11 . IF PRIVILEGBZ )@@G@@ED BIT ON, @C@@@@ A A3,(1*/30-1*/11) . MOVE TO S1. @C@@@@CA )@@G@@ TEP,U A3,1*/10 . IF 1110 BIT ON, @C@@@@ A A3CB )@@G@@,(1*/24-1*/10) . MOVE TO S2. @E@@@@ SSC A3,24 . [A3] CC )@@G@@= CODES J,A,XHI,U,P,S. @B@@@@ J 1,X11 . RETURN. CD )@@G@@@[@@@@. @F@@@@SUBCODE . (A3). TABLE LOOKUP ON J- OR A-SUBCODE. ENTERCE )@@G@@ WITH [A0] @G@@@@ . = SUBCODE POINTER, [A2] = SUBCODE. EXIT WITCF )@@G@@H [A0] = ITEM. @G@@@@ DSA A0,36-6 . [A0] = -JMIN FOR CG )@@G@@THIS F (OR -AMIN, FJ). @B@@@@ A A0,A2 . J - JMIN. CH )@@G@@@B@@@@ JN A0,0,X11 . J < JMIN? @E@@@@ DSL A1CI )@@G@@,36-6 . NO. JMAX - JMIN FOR THIS F. @B@@@@ TLE A1,A0 CJ )@@G@@ . J > JMAX? @C@@@@ J 0,X11 . YES. NO-FIND. CK )@@G@@@H@@@@ SSL A2,36-12 . NO. REATIVE BASE ADDR OF SUBCODES FCL )@@G@@OR THIS F. @^@@@@ A A0,A2 @B@@@@ L A0,FJATACM )@@G@@B,A0 . GET ITEM. @^@@@@ J 0,A3 @^@@@@/A20 EQU A0CN )@@G@@+20 @^@@@@R16 EQU R15+1 @[@@@@. ^ON @H@@@@. DETERMINE IF ABSCO )@@G@@OLUTE ADDRESS IS WITHIN GRS. IF SO, CONVERT TO REGISTER @^@@@@. NAMECP )@@G@@ MNEMONIC. CALL: @ @@@@. L A0,
@ @@@@. LMJ CQ )@@G@@ X11,REGMNEM @C@@@@. . [A0] UNALTERED. CR )@@G@@@D@@@@. . [A0] = MNEMONIC, RJZF. @A@@@@. ALTECS )@@G@@RS A0. PSR-MODE INSENSITIVE. @[@@@@. ^OFF@]@@@@REGMNEM* . @C@@@@ CT )@@G@@ JN A0,0,X11 . X- OR A-REGISTER?@^@@@@ TLE,U A0,A20 CU )@@G@@@A@@@@ J $+5 . YES. @C@@@@ TG,U A0,R1 CV )@@G@@ . NO. R-REGISTER? @^@@@@ TG,U A0,R16 @E@@@@ J CW )@@G@@ 0,X11 . NO. NOT A REGISTER ADDRESS. @E@@@@ AN,U A0CX )@@G@@,R1-A20 . YES. CLOSE UP A20-R1 GAP. @E@@@@ TG,U A0,REGLGCY )@@G@@H . GET MNEMONIC TABLE ENTRY. @A@@@@ L,H2 A0,REGTAB-REGLCZ )@@G@@GH,A0 @ @@@@ TLE,U A0,REGLGH @ @@@@ L,H1 A0,REGTADA )@@G@@B,A0 @A@@@@ TOP,U A0,040 . RJZF.@^@@@@ SSL A0DB )@@G@@,6 @^@@@@ J 1,X11 @[@@@@. @[@@@@. @[@@@@. ^ON DC )@@G@@@G@@@@. IF [A0] = 'R3'-'R9', REPLACE WITH 'SR1'-'J3', RESPECTIVELY. CALDD )@@G@@L: @[@@@@. @A@@@@. L A0, @ @@@@. DE )@@G@@ LMJ X11,BMREGS @D@@@@. . [A0] = MNEMDF )@@G@@ONIC, RJZF. @A@@@@. ALTERS A0. PSR-MODE INSENSITIVE. @[@@@@. ^OFF@]@@@@DG )@@G@@BMREGS* . @D@@@@ TG,U A0,'R3' . IF NOT AMONG R3-R9, DH )@@G@@@^@@@@ TGE,U A0,'R9' @B@@@@ J 0,X11 . RETUDI )@@G@@RN. @C@@@@ AN,U A0,'R3' . ELSE, TRANSLATE. @ @@@@ DJ )@@G@@ L,H2 A0,BMRGTAB,A0 @A@@@@ TOP,U A0,040 . RJZF.@^@@@@DK )@@G@@ SSL A0,6 @^@@@@ J 0,X11 @[@@@@/. ^ON@G@@@@DL )@@G@@. DETERMINE IF SYMBOL IS REGISTER NAME MNEMONIC. IF SO, RETURN GRS DM )@@G@@@^@@@@. ADDRESS VALUE. CALL: @A@@@@. L A0, DN )@@G@@@ @@@@. LMJ X11,REGADDR @C@@@@. .DO )@@G@@ [A0] UNALTERED. @D@@@@. . [A0] = GRS ADDRESDP )@@G@@S. @B@@@@. ALTERS A0,A1,R1. PSR-MODE INSENSITIVE. @[@@@@. ^OFF@]@@@@DQ )@@G@@REGADDR* . @ @@@@ AND A0,(0,-0) @D@@@@ TE,U A1DR )@@G@@,' ' . H2 OF SYMBOL BLANK? @C@@@@ J 0,X11 .DS )@@G@@ NO. NO-FIND. @D@@@@ SSL A0,18 . YES. SHIFT OUT BLDT )@@G@@ANKS. @ @@@@ L A1,(1,-1) @E@@@@ L,U R1,REGLGDU )@@G@@H . SEARCH H1 OF MNEMONIC LIST. @A@@@@ SE,H1 A0,REGTAB+1,*ADV )@@G@@1 @^@@@@ J $+2 @B@@@@ J $+4 .DW )@@G@@ FOUND. @D@@@@ L,U R1,REGLGH . SEARCH H2 OF LIST. DX )@@G@@@B@@@@ SE,H2 A0,REGTAB-REGLGH+1,*A1 @^@@@@ J NODY )@@G@@TREG @B@@@@ L,U A0,0,A1 . FOUND. @F@@@@ TG,UDZ )@@G@@ A0,A20 . INSERT A20-R1 GAP IF NECESSARY. @ @@@@ A,U EA )@@G@@ A0,R1-A20 @C@@@@ TG,U A0,R16 . IF STILL > R15, EB )@@G@@@G@@@@ AN,U A0,R16-SR1 . MUST BE BYTE-MANIPULATION REGISTEREC )@@G@@. @^@@@@ J 1,X11 @]@@@@NOTREG . @E@@@@ LSSLED )@@G@@ A0,18 . NOT FOUND. RESTORE BLANKS. @^@@@@ A,U A0EE )@@G@@,' '@^@@@@ J 0,X11 @^@@@@ DO TEST=0 , END @A@@@@EF )@@G@@/. TEST PROGRAM. TO BE RUN UNDER DX.@]@@@@$(0) LIT @]@@@@NOFIND . EG )@@G@@@^@@@@ L A4,A0 @^@@@@ P$RINT 'NOFIND'@^@@@@ EH )@@G@@ L A0,A4 @]@@@@START . @#@@@@ DXBRK @^@@@@ EI )@@G@@ J $(2) @^@@@@ ER EXIT$ @ @@@@$(2) LMJ X1EJ )@@G@@1,ASMNEM @^@@@@ J NOFIND @^@@@@ J START EK )@@G@@@ @@@@$(4) LMJ X11,ASMFJA @^@@@@ J NOFIND @^@@@@EL )@@G@@ J START @ @@@@$(6) LMJ X11,REGMNEM @^@@@@ EM )@@G@@ J NOFIND @^@@@@ J START @ @@@@$(8) LMJ X1EN )@@G@@1,REGADDR @^@@@@ J NOFIND @^@@@@ J START EO )@@G@@@ @@@@$(10) LMJ X11,BMREGS @^@@@@ J START @^@@@@EP )@@G@@ END START ___N,UX11 @]@@@@NOTREG . @E@@@@ LSSLEQ )@@G@@ A0,18 . NOT FOUND. RESTORE BLANKS. )@@[M@(@@)C]^@E@@@C8G@@@ER )@@G@@N@)@@J/\)@@$9@W)@[C@@@]NN@)@]MN8K@@@^@)@@J;G@@@S @@@@HAA@@@@)@E[E^C@KK)]ES )@@G@@^@(@B8@K@@@@%8@@@@/K@@@<(8I@@@QR\@@@D8)@@@D8K@@@CO/@@@B0@@[)B4@@[[AB@@@@ET )@@G@@)@N[](@B8@M=@Z)^K)[K)[@K)[@@@@(OG@@@C8I@@@G@K@@G;C@@@YD@I@@@LSI@@@H8@@@@EU )@@G@@:8@@@[AC@@@@)@V[N@^C@O[]@ @@@@B0I@@@Q#)@[[D8K@@@;GK@@M/K@@@<1OG@@@/K@@@PEV )@@G@@QR?@@@;GK@@M/K@@@ZAD@@@@)@>[EK]=@*-@G)CK#@@@@@@@;*@@@S+8@@__C@G@@@/K@@@0EW )@@G@@9@W)@[Q;@__"N8K@@@/K@@[P;K)@@MAE@@@@)@,[U@[@[@@@;GK@@)/K@@@'D8K@@@;GK@[@EX )@@G@@/K@@@8%8@@@8;G@@@Y/KF@@@N@)@@J/KI@@@;C@@@SAF@@@@)@9[MK)[K@[@^@@@@@/G@@[@EY )@@G@@C@)@[[/\0@[XC@)@@HN@K@@I;^K@@==8@@)@/C@@[CC@G@@@;C)@@)AG@@@@)[#[F@K)^K)#EZ )@@G@@K)^K)#@@@@@@;C0@@S;*0@@SC@0@@G/@F@@@C@@@@[:@@@@[C@@@@@:@@@@@/@)@[CAH@@@@FA )@@G@@)[G[EK)]K)]K[]@CK)]@@@@@D8)@@@(0J@@@D8K@@@(4J@@@C@K@@I/K@@[L*0J@@@*4J@@@FB )@@G@@;C@@@GAI@@@@)[P[N]@C^@K@@@@@@@G@@@@I;O@@@Y/KF@@[;@0@@SG@0@]P=80@K@G@0@]OFC )@@G@@=80@)@;C0@@GC@_@@@AJ@@@@)[Z[M@[]@^@@@@@@@@?8@@@)/GF@@@/KJ@@@C@G@@@G@@@@IFD )@@G@@;C)@@S/KF@@@?@K@@G;GK@@Y/GF@@@AK@@@@)[([F@@]=@'^[B)BEK#*K^@@CCG@@@?8@@@@FE )@@G@@C^G@@@!8@@@@H8@@@-/KF@@@!8@@[K!8@@[[/K@@[,AL@@@@)[2[U@@K)D@@/KF@@@;C@@@AFF )@@G@@>8@@@)C^G@@@H8@@R3/KF@@@!8@@R'!8@@R3/KF@@[;C@@@A>8@@@)AM@@@@)[.[F@@K]=@'FG )@@G@@^[]@)@@@@@@@/K@@]D/K@@]A2CH)@[N8K@@@C@K@]N;C@@@M/KF@@@%8K +@@@]QAN@@@@FH )@@G@@)]A[M(@I-@L8[4@@@@;*@@@M/KF@@[H8@@@H!8@@[KG8@@@-!8@@@)C8H@@@/K@@]J2^H)@[FI )@@G@@N8K@@@AO@@@@)]K@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@___@@__0@@___)@@@[__"FJ )@@G@@____@@/KF@@@G8@ AP@@@@@@^@@]@@A@@E@@U@@ @@,@@@@@E@@@@@@@]RFJALGH FK )@@G@@FJATAB FJACODES FJAJK FJAJ ALSLGH ALSTAB FL )@@G@@REGLGH REGTAB BMRGTAB ASMFJA @@[@@@@@@@@@ASMNEM FM )@@G@@@@[@@@@@@@@2BMREGS @@[@@@@@@@[5REGADDR @@[@@@@@@@[.REGMNEM FN )@@G@@@@[@@@@@@@[$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO )@@G@@*[S@@@*SDFF*@[@@@@. ^ON @G@@@@. IN THE MNEMONIC TABLES THAT FOLLOW, EACHFP )@@G@@ PRIMARY ENTRY (PROC 'F') @ @@@@. TAKES THE FOLLOWING FORM: @A@@@@FQ )@@G@@. F 'MNEM' J,A,XHI,U P,S @G@@@@. WHERE MNEM IS AN OPCODE MNEMFR )@@G@@ONIC, J,A,XHI,U ARE TEST CODES FOR THE @G@@@@. CORRESPONDING INSTRUCTFS )@@G@@ION'S J- A- XHI- AND U-FIELDS, P=1 IF THE IN- @G@@@@. STRUCTION IS EXEFT )@@G@@CUTABLE ONLY IN PRIVILEGED MODE (0 OTHERWISE), AND S=1@G@@@@. IF THE INSFU )@@G@@TRUCTION APPLIES ONLY TO AN 1110 (0 OTHERWISE). THE MEAN- @B@@@@. INGSFV )@@G@@ OF THE TEST CODES ARE AS FOLLOWS: @[@@@@. @#@@@@. J TEST CODES: FW )@@G@@@[@@@@. @B@@@@. 0 J IS A FUNCTION SUBCODE (E.G.: DSL).@A@@@@. 1 FX )@@G@@NO RESTRICTIONS (E.G.: LA). @B@@@@. 2 J MAY NOT BE IMMEDIATE (E.G.: FY )@@G@@SA). @E@@@@. 3 J MUST BE WHOLE-WORD OR SIGN-EXTENDED (E.G.: LM). FZ )@@G@@@[@@@@. @#@@@@. A TEST CODES: @[@@@@. @B@@@@. 0 A IS A FUNCTGA )@@G@@ION SUBCODE (E.G.: TSS).@D@@@@. 1 THE A-FIELD DESIGNATES AN A-REGISTERGB )@@G@@ (E.G.: LA).@D@@@@. 2 THE A-FIELD HAS NO MNEMONIC (E.G.: NOP, JK). GC )@@G@@@D@@@@. 3 THE A-FIELD DESIGNATES AN X-REGISTER (E.G.: LX).@D@@@@. 4 GD )@@G@@THE A-FIELD DESIGNATES AN R-REGISTER (E.G.: LR).@G@@@@. 5 THE F-FIELD GE )@@G@@IS JGD; COMBINE J- AND A-FIELDS FOR REGISTER ADDRESS. @C@@@@. 6 THE INGF )@@G@@STRUCTION HAS NO A-FIELD (E.G.: TZ).@[@@@@. @#@@@@. XHI TEST CODES: GG )@@G@@@[@@@@. @A@@@@. 0 NO RESTRICTIONS (E.G.: LA). @G@@@@. 1 X- ANDGH )@@G@@ A-FIELDS MUST DIFFER AND H--I MUST BE 1 (E.G.: BT, SE). @B@@@@. 2 GI )@@G@@X,H,I MUST ALL BE ZERO (E.G.: QB). @A@@@@. 3 H-FIELD MUST BE 1 (E.G.:GJ )@@G@@ BM). @[@@@@. @F@@@@. U TEST CODES (LET M=1 IF U IS MAIN STORAGE; M=GK )@@G@@0 OTHERWISE): @[@@@@. @A@@@@. 0 NO RESTRICTIONS (E.G.: NOP). GL )@@G@@@C@@@@. 1 IF M=0, X MUST BE NON-ZERO (E.G.: J). @F@@@@. 2 SHIFT.GM )@@G@@ IF M=1, I MUST BE 1; IF M=X=0, U MUST BE < 144. @]@@@@. 3 ER. GN )@@G@@@F@@@@. 4 IF M=X=0, J<016, U IN GRS USER SET, ENCODE MNEMONICALLY. GO )@@G@@@A@@@@. 5 U MUST BE ZERO (E.G.: QB). @[@@@@. @ @@@@/. ASM MNEMOGP )@@G@@NIC TABLES. ^EOF @[@@@@. @F@@@@F2 $FORM 24,12 . FORM GQ )@@G@@FOR MNEMONIC TABLE ENTRY. @F@@@@F4 $FORM 6,6,12,12 . FORM GR )@@G@@FOR SUBCODE FORWARD POINTER. @F@@@@F7 $FORM 6,6,1,1,4,6,12 . FORGS )@@G@@M FOR TEST CODE TABLE ENTRY. @[@@@@. @D@@@@F* $PROC *3 GT )@@G@@ . PROCESS OPCODE ENTRY. @G@@@@. N.B.: F(2,1),...,F(2,4) = J-TEST,GU )@@G@@...U-TEST CODES. F(3,1) IS SET IF @G@@@@. THE INSTRUCTION IS PRIVILEGEGV )@@G@@D; F(3,2) IF APPLICABLE TO 1110 ONLY. @D@@@@ $IF \$LP GW )@@G@@ . THEN THIS IS PASS 1. @C@@@@ $RES 1 . JUST GX )@@G@@BUMP LC. @C@@@@ $ELSE . THIS IS PASS 2. @F@@@@GY )@@G@@ $DO \\SBC(F(1,1)) ,; . IF BEGINNING A NEW SUBCODE GROUP, @H@@@@GZ )@@G@@BP* $EQU SBC(F(1,1)) . SET BACK POINTER TO PARENT OPCODE OR SUBHA )@@G@@CODE. @F@@@@TCODE $EQU +(F7 F(2,1),F(2,2),F(3,1),F(3,2),F(2,3),F(2,HB )@@G@@4),BP)@D@@@@ F2 F(1,1),F(1,1)->((TCODE))-FJACODES!0 @#@@@@HC )@@G@@ $ENDF @]@@@@ $END@[@@@@. @F@@@@Q* $PROC *2HD )@@G@@ . PROCESS SUBCODE FORWARD POINTER. @G@@@@ $IF \$HE )@@G@@LP . N.B.: Q(2,1),Q(2,2) = JMIN,JMAX FOR THIS@E@@@@ $RESHF )@@G@@ 1 . J, OR AMIN,AMAX FOR THIS F,J.@H@@@@ $ELSE HG )@@G@@ . N.B.: Q(2,1) FLAGGED IF A A SUBCODE BUT J NOT.@F@@@@SBC(Q(HH )@@G@@1,1))* $EQU $-$LCB(1) . REMEMBER SUBCODE POINTER ADDRESS. @G@@@@ HI )@@G@@ F4 -Q(2,1),Q(2,2)-Q(2,1),[Q(1,1)]-$LCB(1),Q(2,*1)->-BP!BP @#@@@@HJ )@@G@@ $ENDF @]@@@@ $END@[@@@@. @D@@@@A* $PROC *1HK )@@G@@ . MAKE ALIAS TABLE ENTRY.@C@@@@ $GFORM 24,+A(1,1),12,HL )@@G@@[A(1,1)]-FJATAB @]@@@@ $END@[@@@@. @E@@@@BP $EQU 0 HM )@@G@@ . INITIALIZE BACK POINTER. @]@@@@$(1) $LIT@]@@@@/FJATAHN )@@G@@B* . @B@@@@ F 00 0,0,0,0 0,0 . 000 @B@@@@ F 'SHO )@@G@@A' 2,1,0,4 0,0 . 001 @B@@@@SNA F 'SN' 2,1,0,4 0,0 . 00HP )@@G@@2 @B@@@@SMA F 'SM' 2,1,0,4 0,0 . 003 @B@@@@ F 'SHQ )@@G@@R' 2,4,0,4 0,0 . 004 @B@@@@ Q 'SZ' *000,017 0,0 . 00HR )@@G@@5 @B@@@@ F 'SX' 2,3,0,4 0,0 . 006 @B@@@@ Q 'SHS )@@G@@IA' 000,017 0,0 . 007 @B@@@@ F 'LA' 1,1,0,4 0,0 . 01HT )@@G@@0 @B@@@@LNA F 'LN' 1,1,0,4 0,0 . 011 @B@@@@LMA F 'LHU )@@G@@M' 3,1,0,4 0,0 . 012 @B@@@@LNMA F 'LNM' 3,1,0,4 0,0 . 01HV )@@G@@3 @B@@@@ F 'AA' 1,1,0,4 0,0 . 014 @B@@@@ F 'AHW )@@G@@NA' 1,1,0,4 0,0 . 015 @B@@@@AMA F 'AM' 3,1,0,4 0,0 . 01HX )@@G@@6 @B@@@@ANMA F 'ANM' 3,1,0,4 0,0 . 017 @B@@@@ F 'AHY )@@G@@U' 1,1,0,4 0,0 . 020 @B@@@@ F 'ANU' 1,1,0,4 0,0 . 02HZ )@@G@@1 @B@@@@ F 'BT' 2,3,1,4 0,0 . 022 @B@@@@ F 'LIA )@@G@@R' 1,4,0,4 0,0 . 023 @B@@@@ F 'AX' 1,3,0,4 0,0 . 02IB )@@G@@4 @B@@@@ F 'ANX' 1,3,0,4 0,0 . 025 @B@@@@ F 'LIC )@@G@@XM' 1,3,0,4 0,0 . 026 @B@@@@ F 'LX' 1,3,0,4 0,0 . 02ID )@@G@@7 @B@@@@ F 'MI' 1,1,0,4 0,0 . 030 @B@@@@ F 'MIE )@@G@@SI' 1,1,0,4 0,0 . 031 @B@@@@ F 'MF' 1,1,0,4 0,0 . 03IF )@@G@@2 @B@@@@ Q 'BM' 000,017 0,0 . 033 @B@@@@ F 'DIG )@@G@@I' 1,1,0,4 0,0 . 034 @B@@@@ F 'DSF' 1,1,0,4 0,0 . 03IH )@@G@@5 @B@@@@ F 'DF' 1,1,0,4 0,0 . 036 @B@@@@ Q 'QII )@@G@@B' 000,007 0,0 . 037 @B@@@@ F 'OR' 1,1,0,4 0,0 . 04IJ )@@G@@0 @B@@@@ F 'XOR' 1,1,0,4 0,0 . 041 @B@@@@ F 'AIK )@@G@@ND' 1,1,0,4 0,0 . 042 @B@@@@ F 'MLU' 1,1,0,4 0,0 . 04IL )@@G@@3 @B@@@@ F 'TEP' 1,1,0,4 0,0 . 044 @B@@@@ F 'TIM )@@G@@OP' 1,1,0,4 0,0 . 045 @B@@@@ F 'LXI' 1,3,0,4 0,0 . 04IN )@@G@@6 @B@@@@TNGM F 'TLEM' 1,3,0,4 0,0 . 047 @B@@@@ F 'TIO )@@G@@Z' 1,6,0,4 0,0 . 050 @B@@@@ F 'TNZ' 1,6,0,4 0,0 . 05IP )@@G@@1 @B@@@@ F 'TE' 1,1,0,4 0,0 . 052 @B@@@@ F 'TIQ )@@G@@NE' 1,1,0,4 0,0 . 053 @B@@@@TNG F 'TLE' 1,1,0,4 0,0 . 05IR )@@G@@4 @B@@@@ F 'TG' 1,1,0,4 0,0 . 055 @B@@@@ F 'TIS )@@G@@W' 1,1,0,4 0,0 . 056 @B@@@@ F 'TNW' 1,1,0,4 0,0 . 05IT )@@G@@7 @B@@@@ F 'TP' 3,6,0,4 0,0 . 060 @B@@@@ F 'TIU )@@G@@N' 3,6,0,4 0,0 . 061 @B@@@@ F 'SE' 1,1,1,4 0,0 . 06IV )@@G@@2 @B@@@@ F 'SNE' 1,1,1,4 0,0 . 063 @B@@@@SNG F 'SIW )@@G@@LE' 1,1,1,4 0,0 . 064 @B@@@@ F 'SG' 1,1,1,4 0,0 . 06IX )@@G@@5 @B@@@@ F 'SW' 1,1,1,4 0,0 . 066 @B@@@@ F 'SIY )@@G@@NW' 1,1,1,4 0,0 . 067 @B@@@@ F 'JGD' 1,5,0,1 0,0 . 07IZ )@@G@@0 @B@@@@ Q 'MSE' 000,017 0,0 . 071 @B@@@@ Q 'IJA )@@G@@MI' 000,017 0,0 . 072 @B@@@@ Q 'SSC' 000,017 0,0 . 07JB )@@G@@3 @B@@@@ Q 'JZ' 000,017 0,0 . 074 @B@@@@ Q 'LJC )@@G@@IC' 000,017 0,0 . 075 @B@@@@ Q 'FA' 000,017 0,0 . 07JD )@@G@@6 @B@@@@ F 00 0,0,0,0 0,0 . 077 @[@@@@. @B@@@@JE )@@G@@SZ F 'SZ' 2,0,0,4 0,0 . 005,,000@B@@@@ F 'SNZ' 2,0,0,JF )@@G@@4 0,0 . 005,,001@B@@@@ F 'SP1' 2,0,0,4 0,0 . 005,,002@B@@@@JG )@@G@@ F 'SN1' 2,0,0,4 0,0 . 005,,003@B@@@@ F 'SFS' 2,0,0,JH )@@G@@4 0,0 . 005,,004@B@@@@ F 'SFZ' 2,0,0,4 0,0 . 005,,005@B@@@@JI )@@G@@ F 'SAS' 2,0,0,4 0,0 . 005,,006@B@@@@ F 'SAZ' 2,0,0,JJ )@@G@@4 0,0 . 005,,007@B@@@@ F 'INC' 2,0,0,4 0,0 . 005,,010@B@@@@JK )@@G@@ F 'DEC' 2,0,0,4 0,0 . 005,,011@B@@@@ F 'INC2' 2,0,0,JL )@@G@@4 0,0 . 005,,012@B@@@@ F 'DEC2' 2,0,0,4 0,0 . 005,,013@B@@@@JM )@@G@@ F 'ENZ' 2,0,0,4 0,0 . 005,,014@B@@@@ F 'ENZ' 2,0,0,JN )@@G@@4 0,0 . 005,,015@B@@@@ F 'ENZ' 2,0,0,4 0,0 . 005,,016@B@@@@JO )@@G@@ F 'ENZ' 2,0,0,4 0,0 . 005,,017@B@@@@SIA F 'SIA' 0,1,0,JP )@@G@@0 1,1 . 007,000 @B@@@@ F 'SOA' 0,1,0,0 1,1 . 007,001 @B@@@@JQ )@@G@@ F 'SIP' 0,1,0,0 1,1 . 007,002 @B@@@@ F 'SOP' 0,1,0,JR )@@G@@0 1,1 . 007,003 @B@@@@ F 'LIA' 0,1,0,0 1,1 . 007,004 @B@@@@JS )@@G@@ F 'LOA' 0,1,0,0 1,1 . 007,005 @B@@@@ F 'LIP' 0,1,0,JT )@@G@@0 1,1 . 007,006 @B@@@@ F 'LOP' 0,1,0,0 1,1 . 007,007 @B@@@@JU )@@G@@ F 'LCB' 0,1,2,0 1,1 . 007,010 @B@@@@ F 'LPI' 0,1,2,JV )@@G@@0 1,1 . 007,011 @B@@@@ F 'LDJ' 0,3,0,1 0,0 . 007,012 @B@@@@JW )@@G@@ F 'LIJ' 0,3,0,1 0,0 . 007,013 @B@@@@ F 'LPD' 0,6,0,JX )@@G@@0 0,0 . 007,014 @B@@@@ F 'SPD' 0,6,0,4 0,0 . 007,015 @B@@@@JY )@@G@@ Q 'LBR' 000,001 0,0 . 007,016 @B@@@@ F 'LBJ' 0,3,0,JZ )@@G@@1 0,0 . 007,017 @B@@@@BM F 'BM' 0,6,3,1 0,1 . 033,000 @B@@@@KA )@@G@@ F 'BMT' 0,6,3,1 0,1 . 033,001 @B@@@@ F 'BTT' 0,1,3,KB )@@G@@1 0,1 . 033,002 @B@@@@ F 'BTC' 0,1,3,1 0,1 . 033,003 @B@@@@KC )@@G@@ F 'BC' 0,1,3,1 0,1 . 033,004 @B@@@@ F 'BPD' 0,6,3,KD )@@G@@1 0,1 . 033,005 @B@@@@ F 'PDB' 0,6,3,1 0,1 . 033,006 @B@@@@KE )@@G@@ F 'EDIT' 0,6,3,1 0,1 . 033,007 @B@@@@ F 'BI' 0,1,3,KF )@@G@@1 0,1 . 033,010 @B@@@@ F 'BDI' 0,1,3,1 0,1 . 033,011 @B@@@@KG )@@G@@ F 'IB' 0,1,3,1 0,1 . 033,012 @B@@@@ F 'DIB' 0,1,3,KH )@@G@@1 0,1 . 033,013 @B@@@@ F 'BF' 0,1,3,1 0,1 . 033,014 @B@@@@KI )@@G@@ F 'BDF' 0,1,3,1 0,1 . 033,015 @B@@@@ F 'FB' 0,1,3,KJ )@@G@@1 0,1 . 033,016 @B@@@@ F 'DFB' 0,1,3,1 0,1 . 033,017 @B@@@@KK )@@G@@QB F 'QB' 0,1,2,5 0,1 . 037,000 @B@@@@ F 'BQ' 0,1,2,KL )@@G@@5 0,1 . 037,001 @B@@@@ F 'QBH' 0,1,2,5 0,1 . 037,002 @B@@@@KM )@@G@@ F 'BHQ' 0,1,2,5 0,1 . 037,003 @B@@@@ F 'QDB' 0,1,2,KN )@@G@@5 0,1 . 037,004 @B@@@@ F 'DBQ' 0,1,2,5 0,1 . 037,005 @B@@@@KO )@@G@@ F 'BA' 0,6,3,1 0,1 . 037,006 @B@@@@ F 'BAN' 0,6,3,KP )@@G@@1 0,1 . 037,007 @B@@@@MSE F 'MSE' 0,1,1,4 0,0 . 071,000 @B@@@@KQ )@@G@@ F 'MSNE' 0,1,1,4 0,0 . 071,001 @B@@@@MSNG F 'MSLE' 0,1,1,KR )@@G@@4 0,0 . 071,002 @B@@@@ F 'MSG' 0,1,1,4 0,0 . 071,003 @B@@@@KS )@@G@@ F 'MSW' 0,1,1,4 0,0 . 071,004 @B@@@@ F 'MSNW' 0,1,1,KT )@@G@@4 0,0 . 071,005 @B@@@@ F 'MASL' 0,1,1,4 0,0 . 071,006 @B@@@@KU )@@G@@ F 'MASG' 0,1,1,4 0,0 . 071,007 @B@@@@ F 'DA' 0,1,0,KV )@@G@@4 0,0 . 071,010 @B@@@@ F 'DAN' 0,1,0,4 0,0 . 071,011 @B@@@@KW )@@G@@ F 'DS' 0,1,0,4 0,0 . 071,012 @B@@@@ F 'DL' 0,1,0,KX )@@G@@4 0,0 . 071,013 @B@@@@ F 'DLN' 0,1,0,4 0,0 . 071,014 @B@@@@KY )@@G@@ F 'DLM' 0,1,0,4 0,0 . 071,015 @B@@@@ F 'DJZ' 0,1,0,KZ )@@G@@4 0,0 . 071,016 @B@@@@ F 'DTE' 0,1,0,4 0,0 . 071,017 @B@@@@LA )@@G@@IMI F 'IMI' 0,2,0,0 1,0 . 072,000 @B@@@@ F 'SLJ' 0,6,0,LB )@@G@@1 0,0 . 072,001 @B@@@@ F 'JPS' 0,1,0,1 0,0 . 072,002 @B@@@@LC )@@G@@ F 'JNS' 0,1,0,1 0,0 . 072,003 @B@@@@ F 'AH' 0,1,0,LD )@@G@@4 0,0 . 072,004 @B@@@@ F 'ANH' 0,1,0,4 0,0 . 072,005 @B@@@@LE )@@G@@ F 'AT' 0,1,0,4 0,0 . 072,006 @B@@@@ F 'ANT' 0,1,0,LF )@@G@@4 0,0 . 072,007 @B@@@@ F 'EX' 0,6,0,4 0,0 . 072,010 @B@@@@LG )@@G@@ F 'ER' 0,6,0,3 0,0 . 072,011 @B@@@@ F 00 0,0,0,LH )@@G@@0 0,0 . 072,012 @B@@@@ F 'PAIJ' 0,6,0,1 1,0 . 072,013 @B@@@@LI )@@G@@ F 'SCN' 0,2,0,4 0,0 . 072,014 @B@@@@ F 'TRA' 0,3,0,LJ )@@G@@0 0,0 . 072,015 @B@@@@ F 'SRS' 0,1,0,0 0,0 . 072,016 @B@@@@LK )@@G@@ F 'LRS' 0,1,0,0 0,0 . 072,017 @B@@@@SSC F 'SSC' 0,1,0,LL )@@G@@2 0,0 . 073,000 @B@@@@ F 'DSC' 0,1,0,2 0,0 . 073,001 @B@@@@LM )@@G@@ F 'SSL' 0,1,0,2 0,0 . 073,002 @B@@@@ F 'DSL' 0,1,0,LN )@@G@@2 0,0 . 073,003 @B@@@@ F 'SSA' 0,1,0,2 0,0 . 073,004 @B@@@@LO )@@G@@ F 'DSA' 0,1,0,2 0,0 . 073,005 @B@@@@ F 'LSC' 0,1,0,LP )@@G@@4 0,0 . 073,006 @B@@@@ F 'DLSC' 0,1,0,4 0,0 . 073,007 @B@@@@LQ )@@G@@ F 'LSSC' 0,1,0,2 0,0 . 073,010 @B@@@@ F 'LDSC' 0,1,0,LR )@@G@@2 0,0 . 073,011 @B@@@@ F 'LSSL' 0,1,0,2 0,0 . 073,012 @B@@@@LS )@@G@@ F 'LDSL' 0,1,0,2 0,0 . 073,013 @B@@@@ Q 'III' 000,01LT )@@G@@5 0,0 . 073,014 @B@@@@ Q 'SIL' 000,017 1,0 . 073,015 @B@@@@LU )@@G@@ Q 'LCR' 000,001 0,0 . 073,016 @B@@@@ Q 'TS' 000,00LV )@@G@@2 0,0 . 073,017 @B@@@@JZ F 'JZ' 0,1,0,1 0,0 . 074,000 @B@@@@LW )@@G@@ F 'JNZ' 0,1,0,1 0,0 . 074,001 @B@@@@ F 'JP' 0,1,0,LX )@@G@@1 0,0 . 074,002 @B@@@@ F 'JN' 0,1,0,1 0,0 . 074,003 @B@@@@LY )@@G@@FJAJ* F 'J' 0,6,0,1 0,0 . 074,004 @B@@@@ F 'HJ' 0,6,0,LZ )@@G@@1 0,0 . 074,005 @B@@@@ F 'NOP' 0,2,0,0 0,0 . 074,006 @B@@@@MA )@@G@@ F 'AAIJ' 0,6,0,1 0,0 . 074,007 @B@@@@ F 'JNB' 0,1,0,MB )@@G@@1 0,0 . 074,010 @B@@@@ F 'JB' 0,1,0,1 0,0 . 074,011 @B@@@@MC )@@G@@ F 'JMGI' 0,3,0,1 0,0 . 074,012 @B@@@@ F 'LMJ' 0,3,0,MD )@@G@@1 0,0 . 074,013 @B@@@@ Q 'JO' 000,003 0,0 . 074,014 @B@@@@ME )@@G@@ Q 'JNO' 000,003 0,0 . 074,015 @B@@@@ F 'JC' 0,6,0,MF )@@G@@1 0,0 . 074,016 @B@@@@ F 'JNC' 0,6,0,1 0,0 . 074,017 @C@@@@MG )@@G@@FJAJK* F 'JK' 0,2,0,1 0,0 . 074,004,A @C@@@@ F 'HJK' MH )@@G@@0,2,0,1 0,0 . 074,005,A @B@@@@LIC F 'LIC' 0,2,0,0 1,0 . 07MI )@@G@@5,000 @B@@@@ F 'SIOF' 0,3,0,0 1,0 . 075,001 @B@@@@ F 'JMJ )@@G@@IC' 0,2,0,0 1,0 . 075,002 @B@@@@ F 'TSC' 0,3,0,0 1,0 . 07MK )@@G@@5,003 @B@@@@ F 'HDV' 0,3,0,0 1,0 . 075,004 @B@@@@ F 'HML )@@G@@CH' 0,3,0,0 1,0 . 075,005 @B@@@@ F 'JOC' 0,2,0,0 1,0 . 07MM )@@G@@5,006 @B@@@@ F 'DOC' 0,2,0,5 1,0 . 075,007 @B@@@@ F 'LMN )@@G@@CR' 0,3,0,0 1,0 . 075,010 @B@@@@ F 'LTCW' 0,3,0,0 1,0 . 07MO )@@G@@5,011 @B@@@@ F 'JFC' 0,2,0,0 1,0 . 075,012 @B@@@@ F 0MP )@@G@@0 0,0,0,0 1,0 . 075,013 @B@@@@ F 'AACI' 0,2,0,5 1,0 . 07MQ )@@G@@5,014 @B@@@@ F 'PACI' 0,2,0,5 1,0 . 075,015 @B@@@@ F 'AMR )@@G@@CI' 0,2,0,0 1,1 . 075,016 @B@@@@ F 'PCI' 0,2,0,0 1,1 . 07MS )@@G@@5,017 @B@@@@FA F 'FA' 0,1,0,4 0,0 . 076,000 @B@@@@ F 'FMT )@@G@@AN' 0,1,0,4 0,0 . 076,001 @B@@@@ F 'FM' 0,1,0,4 0,0 . 07MU )@@G@@6,002 @B@@@@ F 'FD' 0,1,0,4 0,0 . 076,003 @B@@@@ F 'LMV )@@G@@UF' 0,1,0,4 0,0 . 076,004 @B@@@@ F 'LCF' 0,1,0,4 0,0 . 07MW )@@G@@6,005 @B@@@@ F 'MCDU' 0,1,0,4 0,0 . 076,006 @B@@@@ F 'CMX )@@G@@DU' 0,1,0,4 0,0 . 076,007 @B@@@@ F 'DFA' 0,1,0,4 0,0 . 07MY )@@G@@6,010 @B@@@@ F 'DFAN' 0,1,0,4 0,0 . 076,011 @B@@@@ F 'DMZ )@@G@@FM' 0,1,0,4 0,0 . 076,012 @B@@@@ F 'DFD' 0,1,0,4 0,0 . 07NA )@@G@@6,013 @B@@@@ F 'DFU' 0,1,0,4 0,0 . 076,014 @B@@@@DFP F 'DNB )@@G@@LCF' 0,1,0,4 0,0 . 076,015 @B@@@@ F 'FEL' 0,1,0,4 0,0 . 07NC )@@G@@6,016 @B@@@@ F 'FCL' 0,1,0,4 0,0 . 076,017 @[@@@@. @C@@@@ND )@@G@@LBR F 'LBR' 0,0,0,0 1,1 . 007,016,000 @C@@@@ F 'SJS' NE )@@G@@0,0,0,0 1,1 . 007,016,001 @C@@@@III F 'III' 0,2,0,0 1,0 . 07NF )@@G@@3,014,000 @C@@@@ F 'III' 0,2,0,0 1,0 . 073,014,001 @C@@@@NG )@@G@@ F 'III' 0,2,0,0 1,0 . 073,014,002 @C@@@@ F 'III' NH )@@G@@0,2,0,0 1,0 . 073,014,003 @C@@@@ F 'III' 0,2,0,0 1,0 . 07NI )@@G@@3,014,004 @C@@@@ F 'III' 0,2,0,0 1,0 . 073,014,005 @C@@@@NJ )@@G@@ F 00 0,0,0,0 1,0 . 073,014,006 @C@@@@ F 00 NK )@@G@@0,0,0,0 1,0 . 073,014,007 @C@@@@ F 'LDC' 0,0,0,5 1,0 . 07NL )@@G@@3,014,010 @C@@@@ F 'EDC' 0,0,0,5 1,0 . 073,014,011 @C@@@@NM )@@G@@ F 'DDC' 0,0,0,5 1,0 . 073,014,012 @C@@@@ F 'SDC' NN )@@G@@0,0,0,5 1,0 . 073,014,013 @C@@@@ F 'MDA' 0,0,0,0 1,0 . 07NO )@@G@@3,014,014 @C@@@@ F 'MDB' 0,0,0,0 1,0 . 073,014,015 @C@@@@NP )@@G@@SIL F 'SIL' 0,0,0,0 1,0 . 073,015,000 @C@@@@ F 00 NQ )@@G@@0,0,0,0 1,0 . 073,015,001 @C@@@@ F 'LBRX' 0,0,0,0 1,0 . 07NR )@@G@@3,015,002 @C@@@@ F 'LQT' 0,0,0,0 1,0 . 073,015,003 @C@@@@NS )@@G@@ F 'IIIX' 0,0,0,0 1,0 . 073,015,004 @C@@@@ F 'SPID' NT )@@G@@0,0,0,0 1,0 . 073,015,005 @C@@@@ F 'RAT' 0,0,0,0 1,0 . 07NU )@@G@@3,015,006 @C@@@@ F 'TAP' 0,0,0,0 1,0 . 073,015,007 @C@@@@NV )@@G@@ F 'LB' 0,0,0,0 1,0 . 073,015,010 @C@@@@ F 'LL' NW )@@G@@0,0,0,0 1,0 . 073,015,011 @C@@@@ F 'LAE' 0,0,0,0 1,0 . 07NX )@@G@@3,015,012 @C@@@@ F 'SQT' 0,0,0,0 1,0 . 073,015,013 @C@@@@NY )@@G@@ F 'LD' 0,0,0,0 1,0 . 073,015,014 @C@@@@ F 'SD' NZ )@@G@@0,0,0,0 1,0 . 073,015,015 @C@@@@ F 'UR' 0,0,0,0 1,0 . 07OA )@@G@@3,015,016 @C@@@@ F 'SSS' 0,0,0,0 1,0 . 073,015,017 @C@@@@OB )@@G@@LCR F 'LCR' 0,0,0,0 1,0 . 073,016,000 @C@@@@ F 'LLA' OC )@@G@@0,0,0,0 1,0 . 073,016,001 @C@@@@TS F 'TS' 0,0,0,1 0,0 . 07OD )@@G@@3,017,000 @C@@@@ F 'TSS' 0,0,0,1 0,1 . 073,017,001 @C@@@@OE )@@G@@ F 'TCS' 0,0,0,1 0,1 . 073,017,002 @C@@@@JO F 'JO' OF )@@G@@0,0,0,1 0,0 . 074,014,000 @C@@@@ F 'JFU' 0,0,0,1 0,1 . 07OG )@@G@@4,014,001 @C@@@@ F 'JFO' 0,0,0,1 0,1 . 074,014,002 @C@@@@OH )@@G@@ F 'JDF' 0,0,0,1 0,1 . 074,014,003 @C@@@@JNO F 'JNO' OI )@@G@@0,0,0,1 0,0 . 074,015,000 @C@@@@ F 'JNFU' 0,0,0,1 0,1 . 07OJ )@@G@@4,015,001 @C@@@@ F 'JNFO' 0,0,0,1 0,1 . 074,015,002 @C@@@@OK )@@G@@ F 'JNDF' 0,0,0,1 0,1 . 074,015,003 @ @@@@FJALGH* $EQU OL )@@G@@$-FJATAB @[@@@@/. @]@@@@ALSTAB* . @A@@@@ A 'SNA' OM )@@G@@ . 'SN'.@A@@@@ A 'SMA' . 'SM'.@A@@@@ A ON )@@G@@ 'LNA' . 'LN'.@A@@@@ A 'LMA' . 'LM'.@B@@@@OO )@@G@@ A 'LNMA' . 'LNM'. @A@@@@ A 'AMA' OP )@@G@@ . 'AM'.@B@@@@ A 'ANMA' . 'ANM'. @B@@@@ OQ )@@G@@ A 'TNGM' . 'TLEM'. @B@@@@ A 'TNG' .OR )@@G@@ 'TLE'. @B@@@@ A 'SNG' . 'SLE'. @B@@@@ OS )@@G@@ A 'MSNG' . 'MSLE'. @B@@@@ A 'DFP' .OT )@@G@@ 'DLCF'. @^@@@@ALSLGH* $EQU $-ALSTAB@F@@@@/. PART-WORD DESIGNATORSOU )@@G@@; H1(H2) FOR THIRD(QUARTER)-WORD MODE. @[@@@@. @]@@@@JDSTAB* . OV )@@G@@@#@@@@ 'W W ' @#@@@@ 'H2 H2 ' @#@@@@ 'H1 H1 ' OW )@@G@@@#@@@@ 'XH2XH2' @#@@@@ 'XH1Q2 ' @#@@@@ 'T3 Q4 ' OX )@@G@@@#@@@@ 'T2 Q3 ' @#@@@@ 'T1 Q1 ' @#@@@@ 'S6 S6 ' OY )@@G@@@#@@@@ 'S5 S5 ' @#@@@@ 'S4 S4 ' @#@@@@ 'S3 S3 ' OZ )@@G@@@#@@@@ 'S2 S2 ' @#@@@@ 'S1 S1 ' @#@@@@ 'U U ' PA )@@G@@@#@@@@ 'XU XU ' @[@@@@. @[@@@@. @ @@@@. REGISTER NAME MNPB )@@G@@EMONICS. @[@@@@. @]@@@@REGTAB* . @#@@@@ 'X0 A15' @#@@@@PC )@@G@@ 'X1 A16' @#@@@@ 'X2 A17' @#@@@@ 'X3 A18' @#@@@@PD )@@G@@ 'X4 A19' @#@@@@ 'X5 R1 ' @#@@@@ 'X6 R2 ' @#@@@@PE )@@G@@ 'X7 R3 ' @#@@@@ 'X8 R4 ' @#@@@@ 'X9 R5 ' @#@@@@PF )@@G@@ 'X10R6 ' @#@@@@ 'X11R7 ' @#@@@@ 'A0 R8 ' @#@@@@PG )@@G@@ 'A1 R9 ' @#@@@@ 'A2 R10' @#@@@@ 'A3 R11' @#@@@@PH )@@G@@ 'A4 R12' @#@@@@ 'A5 R13' @#@@@@ 'A6 R14' @#@@@@PI )@@G@@ 'A7 R15' @]@@@@BMRGTAB* . @#@@@@ 'A8 SR1' @#@@@@ PJ )@@G@@ 'A9 SR2' @#@@@@ 'A10SR3' @#@@@@ 'A11J0 ' @#@@@@ PK )@@G@@ 'A12J1 ' @#@@@@ 'A13J2 ' @#@@@@ 'A14J3 ' @^@@@@REGLGHPL )@@G@@* $EQU $-REGTAB @[@@@@. @]@@@@/FJACODES* .@]@@@@ $END_@@@@@PM )@@G@@SR1' @#@@@@ 'A9 SR2' @#@@@@ 'A10SR3' @#@@@@ 'A11PN )@@G@@)@@[U@@@@@@@@@LM@^@@LN@#@@LA@#_J[K@@@@SX@]_J[@__@@SR@[@@SM@@@@SN@@@@SA@@PO )@@G@@@@@@@@AA@@@@)@F[U@@@@@@@@ANX@B@@AX@B@@LR@A@@BT@ @ANU@#@@AU@#@ANM@^@@AM@^PP )@@G@@@ANA@#@@AA@#@LNM@^AB@@@@)@Q[U@@@@@@@@@OR@#_B[0@@@@DF@#@DSF@#@@DI@#_J[)@@PQ )@@G@@@@MF@#@MSI@#@@MI@#@@LX@B@LXM@BAC@@@@)@-[U@@@@@@@@TNE@#@@TE@#@TNZ@C@@TZ@CPR )@@G@@TLEM@B@LXI@B@TOP@#@TEP@#@MLU@#@AND@#@XOR@#AD@@@@)@?[U@@@@@@@@@SW@E@@SG@EPS )@@G@@@SLE@E@SNE@E@@SE@E@@TN@D@@TP@D@TNW@#@@TW@#@@TG@#@TLE@#AE@@@@)@7[U@@@@@@@PT )@@G@@@SNZ@G@@SZ@G@@@@@@_J#E@@_J]'@@_J]*@@_J]S@@_J]C@@_J[8@@@JGD@F@SNW@EAF@@@@PU )@@G@@)[][U@@@@@@@@ENZ@GDEC2@GINC2@G@DEC@G@INC@G@SAZ@G@SAS@G@SFZ@G@SFS@G@SN1@GPV )@@G@@@SP1@GAG@@@@)[H[U@@@@@@@@LOP@H@LIP@H@LOA@H@LIA@H@SOP@H@SIP@H@SOA@H@SIA@HPW )@@G@@@ENZ@G@ENZ@G@ENZ@GAH@@@@)[S[U@@@@@@@@BTT@N@BMT@M@@BM@M@LBJ@J_[#U@B@SPD@LPX )@@G@@@LPD@K@LIJ@J@LDJ@J@LPI@I@LCB@IAI@@@@)[<[U@@@@@@@@BDF@N@@BF@N@DIB@N@@IB@NPY )@@G@@@BDI@N@@BI@NEDIT@M@PDB@M@BPD@M@@BC@N@BTC@NAJ@@@@)[,[U@@@@@@@@MSE@Q@BAN@PPZ )@@G@@@@BA@P@DBQ@O@QDB@O@BHQ@O@QBH@O@@BQ@O@@QB@O@DFB@N@@FB@NAK@@@@)[9[U@@@@@@@QA )@@G@@@@DL@R@@DS@R@DAN@R@@DA@RMASG@QMASL@QMSNW@Q@MSW@Q@MSG@QMSLE@QMSNE@QAL@@@@QB )@@G@@)]^[U@@@@@@@@@AT@V@ANH@V@@AH@V@JNS@U@JPS@U@SLJ@T@IMI@S@DTE@R@DJZ@R@DLM@RQC )@@G@@@DLN@RAM@@@@)]J[U@@@@@@@@DSC@+@SSC@+@LRS@-@SRS@-@TRA@)@SCN@ZPAIJ@Y@@@@@@QD )@@G@@@@ER@X@@EX@W@ANT@VAN@@@@)]U[U@@@@@@@_H#W@;LDSL@+LSSL@+LDSC@+LSSC@+DLSC@[U@@@@@@@AAIJ@>@NOP@&@@HJ@>@@@J@>QF )@@G@@@@JN@=@@JP@=@JNZ@=@@JZ@=_]#/@;_[#'@;_J#%@;AP@@@@)]0[U@@@@@@@@LIC@(@HJK@*QG )@@G@@@@JK@*@JNC@>@@JC@>_#^#@/_##_@/@LMJ@$JMGI@$@@JB@=@JNB@=AQ@@@@)];[U@@@@@@@QH )@@G@@@@@@@@@JFC@!LTCW@?@LCR@?@DOC@:@JOC@(@HCH@%@HDV@%@TSC@%@JIC@(SIOF@%AR@@@@QI )@@G@@)#A[U@@@@@@@MCDU@0@LCF@0@LUF@0@@FD@0@@FM@0@FAN@0@@FA@0@PCI@\@ACI@\PACI@,QJ )@@G@@AACI@,AS@@@@)#L[U@@@@@@@@SJS@1@LBR@1@FCL@0@FEL@0DLCF@0@DFU@0@DFD@0@DFM@0QK )@@G@@DFAN@0@DFA@0@CDU@0AT@@@@)#W[U@@@@@@@@DDC@3@EDC@3@LDC@3@@@@@@@@@@@@@III@2QL )@@G@@@III@2@III@2@III@2@III@2@III@2AU@@@@)#$[U@@@@@@@@TAP@5@RAT@5SPID@5IIIX@5QM )@@G@@@LQT@5LBRX@5@@@@@@@SIL@5@MDB@4@MDA@4@SDC@3AV@@@@)#2[U@@@@@@@@@TS@7@LLA@6QN )@@G@@@LCR@6@SSS@5@@UR@5@@SD@5@@LD@5@SQT@5@LAE@5@@LL@5@@LB@5AW@@@@)#.[U@@@@@@@QO )@@G@@@SNA@]JNDF@/JNFO@/JNFU@/@JNO@;@JDF@'@JFO@'@JFU@'@@JO@9@TCS@8@TSS@8AX@@@@QP )@@G@@)^C[U@@@@@@@@DFP#RMSNG['@SNG@4@TNG@?TNGM@$ANMA@J@AMA@ILNMA@F@LMA@E@LNA@DQQ )@@G@@@SMA@#AY@@@@)^N[U@@@@@@@S4 S4 S5 S5 S6 S6 T1 Q1 T2 Q3 T3 Q4 XH1Q2 XH2XH2QR )@@G@@H1 H1 H2 H2 W W AZ@@@@)^Y[U@@@@@@@X5 R1 X4 A19X3 A18X2 A17X1 A16X0 A15QS )@@G@@XU XU U U S1 S1 S2 S2 S3 S3 BA@@@@)^([U@@@@@@@A4 R12A3 R11A2 R10A1 R9 QT )@@G@@A0 R8 X11R7 X10R6 X9 R5 X8 R4 X7 R3 X6 R2 BB@@@@)^4[U@@@@@@@][@^@@A14J3 QU )@@G@@A13J2 A12J1 A11J0 A10SR3A9 SR2A8 SR1A7 R15A6 R14A5 R13BC@@@@)^_[U@@@@@@@QV )@@G@@[ @[@@[[[^@@#A@^@@[A@^@@[#@^@@[^@^@@]#[^@@#[@^@@[[@^@@]#@^@@]^@^@@BD@@@@QW )@@G@@) E[U@@@@@@@@[[^@9@AN[@Z@[M @Z@[N[@V@AN[@V@A@^@B@A@@@B@#@[@B@[2@@B@[0@@BQX )@@G@@]@@^@ BE@@@@) P[U@@@@@@@@[@@@'@#@@@'@]@^@'@A)[@'@A@#@'@A@^@'@[@^@'@[@[@'QY )@@G@@@A@[@'@])@@'@[@^@9BF@@@@) )[U@@@@@@@@#)@]&@]) @.@#)@@.@])@@.@]@[@/@#@[@/QZ )@@G@@@]@@@/@A@[@/@[@[@/@[@^@;@[@]@;BG@@@@) :[U@@@@@@@@@@[]$@@)@]&@@)@]>@@)@]=RA )@@G@@@@) ]=@])@]=@@0@[Y@[@^@"@]0@]&@]) ]&@])@]&BH@@@@) 6@%@@@@@@@@@@@@@@@@@@@RB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@K[]5@@@[]5@@K[]4@@@[]4@@K[]$BI@@@@@@@@@@@@@@@@RC )@@G@@@TNE@#@@TE@#@TNZ@C@@TZ@CTLEM@B@LXI@B@TOP@#@TEP@#@MLU@#@AND@#@XOR@#AD@@@@RD )@@G@@@@^@@]@@A@@@@@A@@F@@2@@@@@E@@@@@@@ ;ALSLGH @C@@@@@@@@@GALSTAB RE )@@G@@@@[@@@@@@@^BBMRGTAB @@[@@@@@@@^7FJACODES @@[@@@@@@@^"FJAJ RF )@@G@@@@[@@@@@@@]?FJAJK @@[@@@@@@@]8FJALGH @C@@@@@@@@^BFJATAB RG )@@G@@@@[@@@@@@@@@JDSTAB @@[@@@@@@@^NREGLGH @C@@@@@@@@@VREGTAB RH )@@G@@@@[@@@@@@@^<@D@[@@WARNING: NEW ELEMENT WILL REP*[S@@@*SDFF*@[@@@@. ^ON RI )@@G@@@G@@@@. USING A CHARACTER CODE AS AN ADDRESS RELATIVE TO LOCATION 'CHARTRJ )@@G@@AB', @E@@@@. RETRIEVE CORRESPONDING CODE FOR DIFFERENT CHARACTER SET: RK )@@G@@@ @@@@. IF ADDR = FDATA, H1 = ASCII.@A@@@@. IF ADDR = ASCII-040, S5 = FDRL )@@G@@ATA. @A@@@@. IF ADDR = ASCII&077, S6 = FDATA. @A@@@@P PROC *1RM )@@G@@ . ^EOF @#@@@@A* NAME 9 @#@@@@F* NAME 6 @^@@@@RN )@@G@@B EQU P(0,0) @#@@@@D FORM 72@ @@@@Q(0) EQU +(RO )@@G@@D P(1,1)) @#@@@@R* PROC *0@#@@@@S FORM 36@A@@@@T**(N(RP )@@G@@0)) EQU +(S Q(0)*/(B-72)) @^@@@@Q*(0) EQU Q(0)*/B @^@@@@N**(0)RQ )@@G@@ EQU N(0)+1 @]@@@@ END @^@@@@ DO 72/B , R @]@@@@RR )@@G@@ END @#@@@@N(0) EQU 0 @A@@@@ F ' !"#$%&''()*+RS )@@G@@' @ @@@@ F ',-./01234567'@ @@@@ F '89:;<=>RT )@@G@@?@ABC'@ @@@@ F 'DEFGHIJKLMNO'@ @@@@ F 'PQRSTUVRU )@@G@@WXYZ['@ @@@@ F '\]^_ '@#@@@@ ASCII @ @@@@RV )@@G@@ A '@[]#^ AB' @ @@@@ A 'CDEFGHIJ' @ @@@@RW )@@G@@ A 'KLMNOPQR' @ @@@@ A 'STUVWXYZ' @ @@@@RX )@@G@@ A ')-+<=>&$' @ @@@@ A '*(%:?!,\' @ @@@@RY )@@G@@ A '01234567' @ @@@@ A '89'';/."_' @ @@@@RZ )@@G@@C FORM 9,9,6,6,6 @]@@@@CHARTAB* . @#@@@@I DO 64 , ; SA )@@G@@@D@@@@ C 0,T(I+71),0,T(I-1),T((I+037)**077) @]@@@@ SB )@@G@@ END ___^@) 0,T(I+71),0,T(I-1),T((I+037)**077) @]@@@@ END SC )@@G@@___^@)@C@@@@^@)^@)^@)^@)C0)^@)^@)^@)^9WF(YF8)^@))@@[S@@@@@@@@[ @*J@[^@)ISD )@@G@@@[#@(H@[]@'G@[[@&F@@)@%E@[Y@$D@@<@#C@[X@"B@[V@!A@[@@ @AA@@@@)@F[S@@@@@@@SE )@@G@@@[K@5U@[J@4T@[I@3S@[H@2R@[G@1Q@[F@0P@[E@/O@[D@.N@[C@-M@[B@,L@[A@+KAB@@@@SF )@@G@@)@Q[S@@@@@@@@@(@@ @[U@?_@[T@>^@[S@=]@[R@<\@[Q@;[@[P@:Z@[O@9Y@[N@8X@[M@7WSG )@@G@@@[L@6VAC@@@@)@-[S@@@@@@@@@'@K+@@>@J*@@*@I)@@%@H(@@=@G'@@&@F&@@"@E%@@.@D$SH )@@G@@@@/@C#@@:@B"@@!@A!AD@@@@)@?[S@@@@@@@@@6@V6@@5@U5@@4@T4@@3@S3@@2@R2@@1@Q1SI )@@G@@@@0@P0@[W@O/@@?@N.@@-@M-@@_@L,AE@@@@)@7[C@@@@@@@@@@@@@@@@@@@@[Z@_?@@+@^>SJ )@@G@@@@,@]=@@\@\<@@;@[;@@$@Z:@@9@Y9@@8@X8@@7@W7AF@@@@@@^@@[@@ @@@@@ @@[@@D@@@SK )@@G@@@@@@[@CHARTAB @@@@@@@@@@@@/K@ #*/,0^4SL )@@G@@C-J@@B/[@ #3C^J@@#/,0^4,O#J@@ !@J@@O[@J@@O[@J@@ /,0^4U/@@ #8[^J@@A/,0 ]%SM )@@G@@*[S@@@*SDFF*@D@@@@. COPYRIGHT 1975,1976, B. E. CHI, SUNY-ALBANY. ^ON SN )@@G@@@E@@@@. CTNCY$--A GENERAL CONTINGENCY AND ERROR MESSAGE HANDLER. @[@@@@SO )@@G@@. @G@@@@. THIS ROUTINE CAPTURES CONTROL UPON THE OCCURRENCE OF IOSP )@@G@@PR, IGDM, II@G@@@@. AND EMODE CONTINGENCIES AND PROVIDES AN APPROPRIATE SQ )@@G@@DIAGNOSTIC MES- @G@@@@. SAGE. ADDITIONALLY IT PROVIDES THE ABILITY TOSR )@@G@@ PRINT SIMPLE OR COMPLEX@G@@@@. ERROR MESSAGES (COMPLEX IN THE SENSE THASS )@@G@@T A MESSAGE MAY CONTAIN VARIA-@G@@@@. BLE OCTAL OR FIELDATA INFORMATION)ST )@@G@@. UPON COMPLETION OF PRINTING OF @G@@@@. THE CONTINGENCY OR ERROR MESSU )@@G@@SAGE, CONTROL CAN BE RETURNED TO THE MAIN @G@@@@. PROGRAM OR THE RUN TERSV )@@G@@MINATED VIA ERR$ (SO AS TO TRIGGER ANY SUBSE- @#@@@@. QUENT @PMD,E). SW )@@G@@@[@@@@. @G@@@@. USAGE OF THE ROUTINE IS ORGANIZED INTO THREE LEVESX )@@G@@LS OF INCREASING @G@@@@. COMPLEXITY AS DESCRIBED BELOW. WHERE PROCEDURSY )@@G@@E CALLS ARE SHOWN, THE @G@@@@. CORRESPONDING GENERATED CODE IS SHOWN TOSZ )@@G@@ THE RIGHT. THE FORM 'F', @ @@@@. WHERE USED, IS 6,6,6,18. @[@@@@TA )@@G@@. @[@@@@. @B@@@@. *LEVEL 0 USAGE--CONTINGENCY HANDLING. @[@@@@TB )@@G@@. @D@@@@. TO ENABLE THE CONTINGENCY HANDLER, GIVE THE CALL @[@@@@TC )@@G@@. @E@@@@. C$TNCY EPKT L,U A0,EPKT TD )@@G@@@E@@@@. LMJ X11,CTNCY$@[@@@@TE )@@G@@. @D@@@@. NO REGISTER CONTENTS ARE ALTERED EXCEPT FOR A0. @[@@@@TF )@@G@@. @E@@@@. 'EPKT' IS THE ADDRESS OF A PACKET OF THE FOLLOWING FORMAT:TG )@@G@@@[@@@@. @D@@@@. ------------------------------------- TH )@@G@@@D@@@@. 0 : MXP : MXC : 0 : RETURN : @D@@@@. TI )@@G@@ ------------------------------------- @D@@@@. 1 :[CCDTJ )@@G@@]:[EMF]:[ENM]: [CTCY PKT ADDR] : @D@@@@. -----------------TK )@@G@@-------------------- @[@@@@. @G@@@@. IF CELL 'RETURN' BE VOID,TL )@@G@@ ANY ERROR TERMINATION OF THE PROGRAM @G@@@@. WILL CAUSE AN EXIT VIATM )@@G@@ 'ER ERR$' AFTER AN APPROPRIATE MESSAGE HAS @F@@@@. BEEN PRINTED. ITN )@@G@@F NON-VOID, IT IS TAKEN AS AN ADDRESS TO WHICH @G@@@@. CONTROL IS TRANSTO )@@G@@FERRED AFTER THE ERROR IS PROCESSED, IN WHICH CASE @G@@@@. ALL REGISTTP )@@G@@ERS WILL BE AS THEY WERE WHEN THE ERROR OCCURRED, AND WORD @G@@@@. 1,H2TQ )@@G@@ OF THE PACKET WILL CONTAIN THE ADDRESS OF THE TWO-WORD CONTIN- @F@@@@TR )@@G@@. GENCY PACKET INTERNAL TO CTNCY$. IF THE PROGRAM TERMINATED IN @G@@@@TS )@@G@@. CONTINGENCY MODE FOR REASONS OTHER THAN ENCOUNTERING A CODED IOPR TT )@@G@@@G@@@@. ('CIOPR', SEE BELOW), CELL 'CCD' WILL BE SET NON-ZERO. OTHERWISTU )@@G@@E, IT @G@@@@. WILL BE ZERO AND CELL 'ENM' WILL CONTAIN THE NUMBER OF THETV )@@G@@ CIOPR IF @G@@@@. TERMINATION WAS VIA 'E$RR N' OR THE ERROR MESSAGE NUTW )@@G@@MBER IF VIA 'E$RM @G@@@@. N'. IN THE LATTER CASE, CELL 'EMF' WILL BE SETX )@@G@@T. OTHERWISE IT WILL @]@@@@. BE CLEAR. 0[@@@@L,1. @[@@@@. @G@@@@TY )@@G@@. IF THE CELLS MXP AND/OR MXC HAVE NONZERO CONTENTS, MAX PAGES AND/ORTZ )@@G@@@ @@@@. MAX CARDS WILL BE IGNORED. @[@@@@. @G@@@@. AN ADDITIONALUA )@@G@@ FEATURE ALLOWS CHECKING FOR ILLEGAL OPTION BITS SPE- @G@@@@. CIFIED IN UB )@@G@@THE PROGRAM CALL (ER OPT$). THIS IS DONE BY REPLACING THE @ @@@@. ENABUC )@@G@@LING CALL ABOVE WITH @[@@@@. @E@@@@. C$TNCY EPKT,'LEGAL-UD )@@G@@OPTION- L,U A0,EPKT @G@@@@. LETTEUE )@@G@@RS' LXI,U A0,(LEGAL-OPTION-BITS)@E@@@@. UF )@@G@@ LMJ X11,CTNCY$@[@@@@. @G@@@@. IF THE PROGRAM BE CALLUG )@@G@@ED WITH NO OPTIONS OTHER THAN THOSE SPECIFIED @G@@@@. IN THE C$TNCY CAUH )@@G@@LL, A NORMAL RETURN IS TAKEN WITH THE ACTUAL OPTION @G@@@@. BITS IN A0UI )@@G@@. NO OTHER REGISTERS ARE ALTERED. OTHERWISE, AN ERROR TER-@G@@@@. MINAUJ )@@G@@TION WILL OCCUR JUST AS FOR A CONTINGENCY. (THE OPTION LETTER @G@@@@UK )@@G@@. SUBFIELD MAY CONTAIN AT MOST 12 CHARACTERS (8 IF IN ASCII MODE). IF UL )@@G@@@D@@@@. MORE LETTERS ARE NEEDED, USE ADDITIONAL SUBFIELDS.) @[@@@@. UM )@@G@@@G@@@@. IN REUSEABLE PROCESSORS, OPTION BITS FOR ALL CALLS BUT THE FIRSTUN )@@G@@ ARE @G@@@@. NOT AVAILABLE VIA ER OPT$ , BUT MUST BE OBTAINED FROM THEUO )@@G@@ MOST RECENT@C@@@@. INFOR TABLE. TO MERELY TEST OPTION BITS, CALL@[@@@@UP )@@G@@. @G@@@@. C$TYOPS ADDR-OF-BITS-TO-BE- L,U A0,(BITS-TUQ )@@G@@O-BE-TESTED)@G@@@@. TESTED,'LEGAL-OPTION-LETTERS' LXI,U A0,(UR )@@G@@LEGAL-OPTION-BITS)@F@@@@. LMJ US )@@G@@ X11,CTYOPS$ @[@@@@. @E@@@@. TO GENERATE THE PACKET, ONE MAY UT )@@G@@INVOKE THE PROCEDURE @[@@@@. @C@@@@. ERR$PKT [RETURN][,['UU )@@G@@MXP'][,'MXC']] @[@@@@. @G@@@@. IF EITHER OR BOTH OF THE SUBFIELDSUV )@@G@@ 'MXP','MXC' BE ENCODED (WITH APO- @G@@@@. STROPHES, AS SHOWN), THE CORUW )@@G@@RESPONDING CONDITION WILL CAUSE A SYMBIONT@^@@@@. ERROR TERMINATION. UX )@@G@@@[@@@@. @G@@@@. ON THE OCCURRENCE OF ANY CONTINGENCY, AN ERROR MEUY )@@G@@SSAGE OF THE FORM @[@@@@. @D@@@@. XXXX ERROR, COUZ )@@G@@DE N, AT YYYYY. @[@@@@. @G@@@@. IS PRINTED, WHERE XXXX IS A MNEMONVA )@@G@@IC (E.G. 'IGDM', 'SYMB'), N IS AN @G@@@@. ERROR CODE, AND YYYYY THE ADVB )@@G@@DRESS WHERE THE CONTINGENCY AROSE. IN @G@@@@. SOME INSTANCES (IO$, CVC )@@G@@OM$) A PACKET ADDRESS IS ASSOCIATED WITH THE @G@@@@. CONTINGENCY, IN VD )@@G@@WHICH CASE THE PACKET ADDRESS AND CONTENTS ARE ALSO @]@@@@. PRINTED. VE )@@G@@@[@@@@. @G@@@@. THE MAIN PROGRAM MAY CONTAIN ONE OR MORE INSTRUCTVF )@@G@@ION WORDS WITH @F@@@@. ZERO F-FIELD (IOPR'S). THESE ARE TREATED AS BVG )@@G@@ONA-FIDE ERRORS IF@G@@@@. EXECUTED UNLESS THE J- AND A-FIELDS BOTH CONTAVH )@@G@@IN 012 AND THE X- AND @G@@@@. HI-FIELDS ZERO, IN WHICH CASE THEY ARE IVI )@@G@@NTERPRETED AS CODED-IOPR'S @F@@@@. (CIOPR'S). WHEN A CIOPR IS EXECUTVJ )@@G@@ED WITH A U-FIELD CONTAINING A@F@@@@. NUMBER N IN THE RANGE 000-077, IT VK )@@G@@WILL BE TREATED SIMILARLY TO A@G@@@@. USER-CODED 'ER ERR$', EXCEPT THAT VL )@@G@@THE NUMBER N WILL APPEAR IN THE @F@@@@. ERROR MESSAGE. THIS ALLOWS VM )@@G@@IDENTIFICATION OF WHICH OF SEVERAL @G@@@@. POSSIBLE ERROR CONDITIONS ACVN )@@G@@TUALLY OCCURRED. THE NUMBER N IS ALSO @D@@@@. RETURNED IN WORD 1,H1 VO )@@G@@OF THE USER'S ERROR PACKET. 0[@@@@L,1. @[@@@@. @G@@@@. THESE NVP )@@G@@UMBERED CIOPRS CAN BE GENERATED WITH THE PROCEDURE CALL @[@@@@. VQ )@@G@@@E@@@@. E$RR N I$ 0,012,012,0,0,N@[@@@@VR )@@G@@. @[@@@@. @B@@@@. *LEVEL 1 USAGE--SIMPLE ERROR MESSAGES. @[@@@@VS )@@G@@. @G@@@@. THE USER MAY WISH TO TERMINATE THE PROGRAM IN ERROR ANDVT )@@G@@ PRINT A @G@@@@. FIELDATA ERROR MESSAGE RATHER THAN USING A NUMBERED VU )@@G@@'ER ERR$'. CTNCY$@G@@@@. PROVIDES FOR UP TO 077 SUCH MESSAGES, EACH OF VV )@@G@@WHICH IS A FIELDATA @G@@@@. STRING TERMINATED BY A DOUBLE REVERSE-SLVW )@@G@@ANT ('\\'), AND CONTAINS NO @G@@@@. EMBEDDED REVERSE SLANTS (EXCEPT ASVX )@@G@@ NOTED BELOW). THESE STRINGS MUST @G@@@@. BEAR CONSECUTIVE LABELS EMS$VY )@@G@@(1), EMS$(2), ETC., AND MUST APPEAR IN THE@G@@@@. PROGRAM PRIOR TO THE EVZ )@@G@@RR$PKT DESCRIBED IN LEVEL 0. THE PACKET WILL BE@E@@@@. EXPANDED TO INCLWA )@@G@@UDE A LIST OF ADDRESSES OF THESE STRINGS. @[@@@@. @G@@@@. TO CAUSWB )@@G@@E MESSAGE N TO BE PRINTED, EXECUTE AN CIOPR WITH 0100+N IN @G@@@@. THE WC )@@G@@U-FIELD. SUCH AN INSTRUCTION CAN BE GENERATED WITH THE PROCEDURE @[@@@@WD )@@G@@. CALL@[@@@@. @F@@@@. E$RM N I$ 0,0WE )@@G@@12,012,0,0,N+0100 @[@@@@. @G@@@@. THE NUMBER 0100+N IS ALSO RETURNEDWF )@@G@@ IN WORD 1,H1 OF THE USER'S ERROR @G@@@@. PACKET. NOTE: IF N=0, REGIWG )@@G@@STER A0 IS PRESUMED ALREADY TO CONTAIN A @C@@@@. PRINT$ PACKET FOR SOMEWH )@@G@@ MESSAGE TO BE PRINTED. @[@@@@. @G@@@@. IF IT IS DESIRED TO CAUSEWI )@@G@@ A MESSAGE TO OCCUPY MORE THAN ONE PRINT @G@@@@. LINE, THE TWO CHARACTEWJ )@@G@@RS \; WITHIN THE MESSAGE WILL CAUSE THE CUR- @E@@@@. RENT PRINT LINE WK )@@G@@TO BE TERMINATED AND ANOTHER ONE BEGUN. @[@@@@. @G@@@@. IF THE WL )@@G@@CONSTRUCTION \CN\ (WHERE N IS AN INTEGER < 132) BE ENCOUN-@G@@@@. TEREWM )@@G@@D WITHIN THE MESSAGE, THE REMAINDER OF THE MESSAGE FOLLOWING THE @G@@@@WN )@@G@@. SECOND REVERSE SLANT WILL BE PRINTED STARTING IN COLUMN N. (THE LEFT-WO )@@G@@@B@@@@. MOST COLUMN ON THE PAGE IS COLUMN 0.) @[@@@@. @B@@@@. *LEVWP )@@G@@EL 2 USAGE--COMPLEX ERROR MESSAGES. @[@@@@. @G@@@@. CASES OFTEN AWQ )@@G@@RISE WHERE IT IS DESIRED THAT SOME PORTION OF AN ERROR@G@@@@. MESSAGE BEWR )@@G@@ VARIABLE IN CONTENT--THE PORTION DEPENDING ON THE CURRENT @G@@@@. PROGWS )@@G@@RAM CONDITION. ALTERNATELY, ONE MAY WISH TO LINK ONE MESSAGE TO @G@@@@WT )@@G@@. ANOTHER, AND SO FORTH, THE WHOLE FORMING LOGICALLY A SINGLE MESSAGE. WU )@@G@@@[@@@@. @G@@@@. A) IF THE CONSTRUCTION \REG,N\ BE ENCOUNTERED WIWV )@@G@@THIN A MESSAGE, @G@@@@. WHERE 'REG' IS A REGISTER NAME (AS DEFINED IN WW )@@G@@AXR$), THE CONTENTS OF @G@@@@. THE INDICATED REGISTER WILL BE INSERTED WX )@@G@@IN PLACE OF THE CONSTRUCTION. @G@@@@. THE 'N'-SPECIFICATION DETERMINES HWY )@@G@@OW THE REGISTER CONTENTS IS TO BE @]@@@@. ENCODED: @[@@@@. @D@@@@WZ )@@G@@. N MODE OF ENCODING @[@@@@. @D@@@@XA )@@G@@. DECIMAL NUMBER ENCODE AS N-DIGIT OCTAL NUMBER@E@@@@. LEXB )@@G@@TTER 'D' ENCODE AS SIGNED DECIMAL INTEGER @G@@@@. LETTER 'XC )@@G@@F' ENCODE AS FIELDATA, SKIPPING NULLS AND BLANKS @E@@@@. LEXD )@@G@@TTER 'G' ENCODE AS FIELDATA, SKIPPING NULLS @F@@@@. ',N' OMITXE )@@G@@TED ENCODE AS OCTAL NUMBER, USING ONLY AS MANY@C@@@@. XF )@@G@@ DIGITS AS IS NECESSARY @[@@@@. @G@@@@. B) IF THE MESSAGE TEXG )@@G@@RMINATOR '\\' BE REPLACED BY '\&', THE WORD @G@@@@. IMMEDIATELY FOLLXH )@@G@@OWING THE STRING MUST BE ONE OF THE THREE PROCEDURE @ @@@@. CALLS E$RXI )@@G@@L, E$RF, E$RO . @[@@@@. @D@@@@. 1) E$RL NEXT[,S] XJ )@@G@@ F 0,S,0,NEXT@[@@@@. @G@@@@. CONTINUES THIS MESSAGE WITH THE STXK )@@G@@RING STARTING AT ADDRESS 'NEXT'. @[@@@@. @D@@@@. 2) E$RF XL )@@G@@LOC,N[,S] F 0,S,N,LOC @A@@@@. 'REST OF MESSAGE . .XM )@@G@@ . @[@@@@. @G@@@@. INSERTS INTO THE MESSAGE N CHARACTERS FROM THEXN )@@G@@ STRING STARTING AT @G@@@@. ADDRESS 'LOC'. THE MESSAGE IS THEN CONTXO )@@G@@INUED WITH THE STRING IMMEDIA-@A@@@@. TELY FOLLOWING THE E$RF CALL. XP )@@G@@@[@@@@. @G@@@@. (THE S SUBFIELD, IF SPECIFIED, IS A SIGNED NUMBER. XQ )@@G@@THE INDICATED @G@@@@. STRING IS THEN ASSUMED TO BEGIN S CHARACTERS AXR )@@G@@WAY FROM THE SPECIFIED @]@@@@. ADDRESS.) @[@@@@. @D@@@@. 3) E$XS )@@G@@RO LOC[,[N][,J]] F 1,J,N,LOC @A@@@@. 'REST OF MESSAXT )@@G@@GE . . . @[@@@@. @G@@@@. INSERTS INTO THE MESSAGE THE CONTENTS OFXU )@@G@@ ADDRESS 'LOC', ENCODED AS AN @G@@@@. N-DIGIT OCTAL NUMBER. THE MESSAGEXV )@@G@@ IS THEN CONTINUED WITH THE STRING @G@@@@. IMMEDIATELY FOLLOWING THE E$XW )@@G@@RO CALL. IF N BE OMITTED, ONLY AS MANY @G@@@@. DIGITS AS IS NECESSARYXX )@@G@@ ARE USED. IF A PARTIAL-WORD ACCESS OF 'LOC' IS@G@@@@. DESIRED, ENCODE XY )@@G@@THE J SUBFIELD, USING A J-DESIGNATOR AS DEFINED IN @]@@@@. AXR$. XZ )@@G@@@[@@@@. @G@@@@. ANY \...\ CONSTRUCTION ENCOUNTERED THAT SYNTACTICYA )@@G@@ALLY VIOLATES THE @D@@@@. RULES DESCRIBED ABOVE WILL BE PRINTED LITERALLYB )@@G@@Y. @[@@@@. @ @@@@. EXAMPLE OF LEVEL-2 USAGE. @[@@@@. @G@@@@YC )@@G@@. SHOWN BELOW IS A PORTION OF A PROGRAM THAT READS A FILE AND ELEMENTYD )@@G@@@G@@@@. NAME FROM THE INFOR TABLE, ASSIGNS THE FILE, AND SEARCHES THE FIYE )@@G@@LE FOR@G@@@@. THE SPECIFIED ELEMENT. THE READER IS ASSUMED TO BE FAMILIYF )@@G@@AR WITH THE @E@@@@. INFOR$ PACKAGE WHICH SERVES AS A VEHICLE FOR THE EXAYG )@@G@@MPLE. @[@@@@. @G@@@@. C$TNCY ERPKT,'SRA' . REGISTER CTNCY$YH )@@G@@ ROUTINE. ONLY LEGAL @D@@@@. L A0,(28,BUF) . OPTIONS YI )@@G@@ARE S,R,A. @D@@@@. LMJ X11,RINF$ . READ THE INFOR TABLE.YJ )@@G@@@F@@@@. E$RM 0 . NO TABLE. [A0] = PRINT$ PACKET. YK )@@G@@@E@@@@. L,U A0,1 . TABLE FOUND. GET SPEC 1. @ @@@@YL )@@G@@. LMJ X11,SELT$ @G@@@@. E$RM 1 . NO YM )@@G@@SPEC 1. TERMINATE WITH MESSAGE 1. @B@@@@. DL A0,('FNAME YN )@@G@@ ') @G@@@@. LMJ X11,DUSE$ . ATTACH INTERNAL NAME YO )@@G@@TO SPEC-1 FILE. @B@@@@. L A0,(2,('@ASG,A FNAME')) @E@@@@YP )@@G@@. ER CSF$ . ATTEMPT TO ASSIGN THE FILE.@E@@@@. YQ )@@G@@ TP A0 . ASSIGNMENT SUCCESSFUL? @F@@@@. E$YR )@@G@@RM 2 . NO. TERMINATE WITH MESSAGE 2. @F@@@@. TNYS )@@G@@Z ENL . YES. ANY ELEMENT NAME GIVEN? @F@@@@. E$YT )@@G@@RM 1 . NO. TERMINATE WITH MESSAGE 1. @F@@@@. DLYU )@@G@@ A3,ENAME . YES. PUT NAME IN PFS$ PACKET. @ @@@@. DSYV )@@G@@ A3,PFPKT+2 @F@@@@. L,U A0,PFPKT . SEARCH THE FILEYW )@@G@@ FOR THE ELEMENT. @^@@@@. ER PFS$ @B@@@@. TZ YX )@@G@@A2 . FOUND? @F@@@@. E$RM 3 . NO. TERMIYY )@@G@@NATE WITH MESSAGE 3. @#@@@@. . . . @#@@@@. . . . YZ )@@G@@@A@@@@. EMS$(1) 'NO ELEMENT SPECIFIED.\&' @^@@@@. E$RL TERM ZA )@@G@@@D@@@@. EMS$(2) 'FILE ASSIGNMENT RETURNED STATUS \A0,12\.\&'@^@@@@. ZB )@@G@@ E$RL TERM @F@@@@. EMS$(3) 'SEARCH FOR ELEMENT \A3,F\\A4,F\ RETURZC )@@G@@NED STATUS \A2\.' @A@@@@. TERM ' PROGRAM TERMINATED.\\' @[@@@@. . ZD )@@G@@@F@@@@. ERPKT ERR$PKT . NOTE THAT THE PACKET FOLLOWS THE MESSAGES. ZE )@@G@@@[@@@@. @B@@@@. /\/\/\/\ @[@@@@. ZF )@@G@@@^@@@@. *SUBROUTINE ERMSG$ @[@@@@. @G@@@@. THE PRINTING OF COMZG )@@G@@PLEX ERROR MESSAGES AS DESCRIBED ABOVE IS NOT @G@@@@. RESTRICTED TO ERZH )@@G@@ROR TERMINATION CALLS 'E$RM N'. TO PRINT AN ARBITRARY@B@@@@. MESSAGE OFZI )@@G@@ THE FORM DESCRIBED ABOVE, @[@@@@. @E@@@@. E$RMSG MSGADDZJ )@@G@@R L,U A0,MSGADDR@E@@@@. ZK )@@G@@ LMJ X11,ERMSG$@B@@@@. NO REGISTERS ARE ALTERED IN CONTENZL )@@G@@T. @[@@@@. @[@@@@. ^EOF@G@@@@/TEST EQU 1/1/1 . SET TZM )@@G@@O 1 FOR SELF-TEST, CLEAR OTHERWISE. @]@@@@$(1) MNM$@#@@@@GET* PROCZN )@@G@@ *0@^@@@@ EX 0,*X6 @]@@@@ END @#@@@@PUT* PROCZO )@@G@@ *1@B@@@@ DO PUT(1)>0 , L,U A2,PUT(1,1) @^@@@@ EX ZP )@@G@@ 0,*X8 @]@@@@ END @[@@@@. @[@@@@. @G@@@@. INITIALIZEZQ )@@G@@ CONTINGENCY ROUTINE. (NO REGISTERS ALTERED EXCEPT A0.) @]@@@@CTNCY$ZR )@@G@@* . @^@@@@ DS A0,SVA0 @F@@@@ S,H2 A0,ERRPKT .ZS )@@G@@ SAVE USER'S ERROR PACKET ADDRESS. @G@@@@ L A0,(0120300,CTZT )@@G@@YPKT) . REGISTER CONTINGENCY ROUTINES @E@@@@DX1 ER IALL$ ZU )@@G@@ . FOR IOPR, IGDM, II, EMODE. @H@@@@ TNZ,H1 SVA0 .ZV )@@G@@ ADDRESS (IF ANY) IF OPTION-BIT TEST PARAMETER. @C@@@@ J 0,ZW )@@G@@X11 . RETURN IF NONE. @D@@@@ ER OPT$ . ELSE,ZX )@@G@@ GET OPTION BITS. @^@@@@ J $+3 @G@@@@CTYOPS$* . ZY )@@G@@ . ENTER HERE JUST TO TEST OPTION BITS. @^@@@@ DS ZZ )@@G@@ A0,SVA0 @D@@@@ L A0,0,A0 . GET BITS TO BE TESTED. AA )@@G@@@G@@@@ L,H1 A1,SVA0 . ADDRESS OF OPTION-BIT TEST PARAMETEAB )@@G@@R. @C@@@@ LN A1,0,A1 . FETCH AS MASK. @^@@@@ AC )@@G@@ AND A0,A1 @D@@@@ S A1,TEMP . SAVE ANY ILLEGAL AD )@@G@@BITS @C@@@@ L A1,SVA0+1 . AND RESTORE A1. @C@@@@ AE )@@G@@ TNZ TEMP . ANY ILLEGAL BITS?@B@@@@ J 0,X11 AF )@@G@@ . NO. RETURN.@D@@@@ J OPTEST . YES. GO ISSUE MESAG )@@G@@SAGE. @[@@@@. @[@@@@. @F@@@@ERMSG$* . (X11). ENCODE COMPLEX MESSAH )@@G@@AGE WHOSE ADDRESS IS IN A0. @ @@@@. (NO REGISTERS ALTERED.) @E@@@@AI )@@G@@ DS A0,SVA0 . SAVE MESSAGE ADDRESS, A1-A3. @^@@@@ AJ )@@G@@ DS A2,SVA2 @G@@@@ LMJ A2,SVREGS . ENTER ERROR ROUTIAK )@@G@@NE WITH NONVOID A2. @C@@@@/. CONTROL COMES HERE IF CONTINGENCY OCCURAL )@@G@@S. @]@@@@$(0) . @]@@@@CTYPKT +0D @^@@@@ J $(1) AM )@@G@@@B@@@@$(1) DS A0,SVA0 . SAVE A0,A1.@B@@@@ L,H1 A0AN )@@G@@,CTYPKT . GET CODES. @D@@@@ L,H2 A1,CTYPKT . GET RETURN AO )@@G@@ADDRESS. @B@@@@ TNZ,S1 *ERRPKT . IF ALLOWED @^@@@@ AP )@@G@@ J $+3 @C@@@@ TNE,U A0,024112 . AND MAX PAGES AQ )@@G@@@^@@@@ J CANCEL @^@@@@ TNZ,S2 *ERRPKT @^@@@@ AR )@@G@@ J $+3 @C@@@@ TNE,U A0,024212 . OR MAX CARDS AS )@@G@@@F@@@@ J CANCEL . RESTART AT REENTRY ADDRESS. AT )@@G@@@D@@@@ A,U A1,1 . BUMP RETURN ADDRESS. @D@@@@ AU )@@G@@ TE,U A0,010010 . IF CONSOLE INTERRUPT, @C@@@@ TNE,U A0AV )@@G@@,020010 . OR @@X C KEYIN, @E@@@@ J CANCEL . RETUAW )@@G@@RN TO NEXT INSTRUCTION. @[@@@@. @F@@@@CTNGCY .AX )@@G@@ THE CONTINGENCY IS NOT IGNORABLE. @E@@@@ SZ TEMP .AY )@@G@@ MARK NOT HERE FOR OPTEST. @F@@@@OPTEST . . ENTERAZ )@@G@@ HERE FOR OPTION BIT TEST. @B@@@@ DS A2,SVA2 . SAVE BA )@@G@@A2,A3.@F@@@@ SZ A2 . ENTER ERROR ROUTINE WITH VOIDBB )@@G@@ A2. @]@@@@SVREGS . @C@@@@ L A0,(-1,X11-X6) . SAVE X6-XBC )@@G@@11. @^@@@@ L A1,X6,A0@ @@@@ S A1,SVX6,A0 BD )@@G@@@^@@@@ JMGI A0,$-2 @E@@@@ P$CT 6,1,CTYWD . SAVE BE )@@G@@USER'S CONTINGENCY WORD.@G@@@@DX2 L A0,(0200,INTCPKT) . REGISTBF )@@G@@ER IGDM CONTINGENCY ROUTINE. @^@@@@DX3 ER IALL$ @D@@@@ BG )@@G@@ JNZ A2,ERMSG$$ . HERE VIA ERMSG$ CALL? @E@@@@ L A1BH )@@G@@,TEMP . NO. GET ILLEGAL OPTION BITS @D@@@@ JZ A1,NOTOPBI )@@G@@TS . IF HERE FOR OPTEST. @F@@@@ LMJ X11,CLRBUF . IN WHBJ )@@G@@ICH CASE, CLEAR OUTPUT BUFFER.@F@@@@ L A0,('OPTION') . BEGIBK )@@G@@N ILLEGAL-OPTION MESSAGE. @^@@@@ S A0,0,*X9@^@@@@ BL )@@G@@ LSC A2,TEMP @C@@@@ LSSL A2,2 . [A0] NONZERO BM )@@G@@@F@@@@ JZ A2,$+3 . IF MORE THAN 1 ILLEGAL OPTION. BN )@@G@@@F@@@@ PUT 'S' . IN WHICH CASE, PLURALIZE 'OPTION'. BO )@@G@@@^@@@@ PUT ' ' @D@@@@ LSSL A1,36-26 . A-OPTBP )@@G@@ION BIT TO SIGN. @F@@@@ L A2,(-077,25*077+'Z') . ENCODE ILBQ )@@G@@LEGAL OPTIONS. @^@@@@ JPS A1,$+2 @]@@@@ PUT @^@@@@BR )@@G@@ JMGI A2,$-2 @F@@@@ L,U X7,OPMSG . THEN COMPLEBS )@@G@@TE THE MESSAGE WITH @D@@@@ LMJ X10,MSG . ' ILLEGAL.BT )@@G@@', PRINT, @D@@@@ J FINIS . AND TAKE ERROR EXIT. BU )@@G@@@]@@@@NOTOPTS . @C@@@@ L A0,(0100,0) . CONTINGENCY. BV )@@G@@@G@@@@ LMJ X11,PRTCLR . SKIP A LINE AND CLEAR OUTPUT BUFFERBW )@@G@@. @F@@@@ L,H2 A0,ERRPKT . GET USER'S ERROR PACKET ADDREBX )@@G@@SS. @F@@@@ L,U A1,CTYPKT . PUT CONTINGENCY PACKET ADDRESBY )@@G@@S @E@@@@ S A1,1,A0 . IN WORD 1 OF USER'S PACKET. BZ )@@G@@@C@@@@ L,H1 A2,CTYPKT . GET ERROR CODES. @F@@@@ TNE,CA )@@G@@U A2,020212 . 2ND ABNORMAL RETURN FROM READ$? @E@@@@ ER CB )@@G@@ EXIT$ . IF SO, EXIT IMMEDIATELY. @E@@@@ L,H2 A3CC )@@G@@,CTYPKT . ELSE, GET REENTRY ADDRESS. @A@@@@ TE,U A2,1 CD )@@G@@ . IOPR?@A@@@@ J NOTCIOPR . NO. @F@@@@ L CE )@@G@@ A1,0,A3 . YES. GET THE IOPR INSTRUCTION. @G@@@@ DSL CF )@@G@@ A1,16 . [A1] = F,J,A,X,HI FIELDS, [A2] = U FIELD.@C@@@@ CG )@@G@@ TE A1,((E$RR )*/-16) . CODED IOPR? @A@@@@ J NOTCIOPRCH )@@G@@ . NO. @F@@@@ SSL A2,36-16 . YES. RIGHT-JUSTIFY CODECI )@@G@@ IN U-FIELD.@D@@@@ S,H1 A2,1,A0 . PUT IN USER'S PACKET. CJ )@@G@@@^@@@@ ANU,U A2,0100 @C@@@@ JN A3,NUMBERR . CODE CK )@@G@@< 0100? @G@@@@ AN,U A3,1 . NO. NUMBERED ERROR MSG.CL )@@G@@ [A3] = MSG # - 1.@B@@@@ JN A3,ERMSG0 . # = 0? @G@@@@CM )@@G@@ SSC A3,1 . NO. 0,A3 = (#-1)/2; [A3]<0 IF # EVEN. CN )@@G@@@G@@@@ A,H2 A3,ERRPKT . [ERRPKT]+2 IS START OF MESSAGE ADDRCO )@@G@@S. @^@@@@ LXM,H1 X7,2,A3 @F@@@@ TP A3 .CP )@@G@@ ODD MESSAGES IN H1, EVEN IN H2. @^@@@@ LXM,H2 X7,2,A3 @F@@@@CQ )@@G@@ J NCDMSG . GO COPY MESSAGE TO OUTPUT BUFFER. @[@@@@CR )@@G@@. @]@@@@NUMBERR . @F@@@@ S A2,TEMP . NUMBERED CICS )@@G@@OPR. SAVE CODE (< 0100).@^@@@@ LXM,U X7,ESTOP@^@@@@ J CT )@@G@@ NCDMSG @[@@@@. @]@@@@NOTCIOPR . @G@@@@ L,S3 A1,CTYPKCU )@@G@@T . NOT CODED IOPR. GET CONTINGENCY TYPE. @F@@@@ S,S1 A1CV )@@G@@,1,A0 . SET CCD CELL IN USER'S PACKET. @A@@@@ TE,U A1CW )@@G@@,1 . IOPR?@^@@@@ J ECODE @A@@@@ L A0CX )@@G@@,('IOPR') . YES. @F@@@@ L,S1 A2,0,A3 . GET F-FIELD AND CY )@@G@@GO ENCODE MESSAGE.@^@@@@ J CTYMSG @[@@@@. @]@@@@ECODE CZ )@@G@@ . @F@@@@ L,S2 A2,CTYPKT . NO. IGDM OR EMODE. GET ERROR DA )@@G@@CODE. @]@@@@GETMNEM . @F@@@@ L,S1 A0,CTYPKT . GET 0 (IF IDB )@@G@@GDM) OR EMODE TYPE. @C@@@@ L A0,ELIST,A0 . GET MNEMONIDC )@@G@@C. @]@@@@CTYMSG . @C@@@@ S A2,TEMP . SAVE ERROR DD )@@G@@CODE. @F@@@@ LMJ X11,FDA . ENCODE ERROR TYPE NAME (IN A0DE )@@G@@). @H@@@@ LXM,U X7,CTMSG . SET TEXT WORD POINTER TO CONTDF )@@G@@INGENCY MESSAGE. @]@@@@NCDMSG . @C@@@@ LMJ X10,MSG .DG )@@G@@ ENCODE MESSAGE. @D@@@@ L,S3 A0,CTYPKT . GET CONTINGENCY TDH )@@G@@YPE. @B@@@@ TNE,U A0,012 . EMODE? @G@@@@ TNZ,DI )@@G@@H2 CTYPKT+1 . AND PACKET ADDRESS IN CONTINGENCY PACKET?@A@@@@ DJ )@@G@@ J FINIS . NO. @D@@@@ L,S1 A0,CTYPKT . YES. DK )@@G@@GET ERROR TYPE. @B@@@@ TNE,U A0,1 . I/O ERROR @^@@@@DL )@@G@@ J $+3 @D@@@@ TE,U A0,5 . OR CONSOLEDM )@@G@@ ERROR? @A@@@@ J FINIS . NO. @E@@@@ LXM,DN )@@G@@U X7,PKTMSG . YES. ENCODE PACKET ADDRESS. @^@@@@ LMJ X1DO )@@G@@0,MSG @D@@@@ L X10,CTYPKT+1 . SET POINTER TO PACKET. @^@@@@DP )@@G@@ LXI,U X10,1 @F@@@@ LXM,U X6,GETC . SET POINTERDQ )@@G@@ TO CONTROL STRING. @ @@@@ LXM,S1 X7,CTYPKT @E@@@@ DR )@@G@@ LXM,U X7,IOPKT-1,X7 . (N.B.: CONSPKT-IOPKT = 5-1.)@]@@@@NCDPKT . DS )@@G@@@D@@@@ GET . GET A CONTROL CODE. @^@@@@ DT )@@G@@ ANU,U A2,13 @B@@@@ JP A3,NCDPKT1,A3 . CODE > 12?@F@@@@DU )@@G@@ L A3,A2 . NO. CODE = [A3] = DIGIT COUNT. @C@@@@DV )@@G@@ L,U A2,' ' . ENCODE A BLANK @E@@@@ LMJ X1DW )@@G@@1,NCDP . AND [A3] OCTAL DIGITS, USING@D@@@@ J NCDPKT DX )@@G@@ . CONTENTS OF UPPER A1.@[@@@@. @]@@@@NCDPKT1 . @F@@@@ DY )@@G@@ LMJ X11,PRTBUF . CODE 13: PRINT BUFFER AND CLEAR. @G@@@@ DZ )@@G@@ L A1,0,*X10 . CODE 14: GET ANOTHER WORD FROM PACKET. @^@@@@EA )@@G@@ J NCDPKT @G@@@@ L A0,0,*X10 . CODE 16: GEEB )@@G@@T A WORD AND ENCODE FIELDATA. @^@@@@ LMJ X11,FDA @^@@@@ EC )@@G@@ J NCDPKT @E@@@@ J FINIS . CODE 19: ALL DONEED )@@G@@. BREAK OUT.@[@@@@. @]@@@@ERMSG0 . @F@@@@ L A0,SVA0 EE )@@G@@ . E$RM 0 => [A0] = PRINT$ PACKET. @^@@@@PRINT ER PRINT$ EF )@@G@@@]@@@@FINIS . @F@@@@ L,H2 X11,*ERRPKT . GET USER'S ERROR EG )@@G@@RETURN ADDRESS. @D@@@@ JMGI X11,RSTREGS . IF NONE SPECIFIEDEH )@@G@@, @F@@@@ SZ CTYWD . CANCEL USER'S CONTINGENCY WOEI )@@G@@RD. @E@@@@ L,U X11,(ER ERR$) . AND SET TO CAUSE @PMD,E. EJ )@@G@@@F@@@@ J RSTREGS . GO RESTORE REGISTERS AND EXIT. EK )@@G@@@[@@@@. @[@@@@. @]@@@@ERMSG$$ . @D@@@@ LMJ X11,CLRBEL )@@G@@UF . CLEAR PRINT BUFFER. @C@@@@ L X7,SVA0 . SET TEM )@@G@@EXT POINTER.@D@@@@ LMJ X10,MSG . ENCODE THE MESSAGE. EN )@@G@@@D@@@@ L,H2 X11,SVX11 . GET RETURN ADDRESS. @]@@@@RSTREGEO )@@G@@S . @D@@@@ S X11,RETURN . SET RETURN ADDRESS. @F@@@@EP )@@G@@ L,H1 A0,CTYWD . RESTORE ANY CONTINGENCY ROUTINE. @^@@@@EQ )@@G@@ LSSL A0,24 @^@@@@ LXM,H2 A0,CTYWD@^@@@@DX4 ER ER )@@G@@ IALL$ @E@@@@ L A0,(-1,X11-X6) . RESTORE ALL REGISTERSES )@@G@@ USED.@ @@@@ L A1,SVX6,A0 @^@@@@ S A1,X6,A0ET )@@G@@@^@@@@ JMGI A0,$-2 @^@@@@ DL A0,SVA0 @^@@@@ EU )@@G@@ DL A2,SVA2 @E@@@@ J *RETURN . EXIT OR RETURN OREV )@@G@@ ER ERR$. @[@@@@. @[@@@@. @]@@@@CANCEL . @D@@@@ S EW )@@G@@ A1,TEMP . SAVE RETURN ADDRESS. @ @@@@ L,H2 A0,ERRPKEX )@@G@@T @E@@@@ SZ 1,A0 . CLEAN UP USER'S ERROR PACKET EY )@@G@@@E@@@@ SZ CTYPKT . AND CONTINGENCY PACKET. @^@@@@EZ )@@G@@ SZ CTYPKT+1@C@@@@ DL A0,SVA0 . RESTORE A0,FA )@@G@@ A1. @^@@@@ ER CEND$ @B@@@@ J *TEMP .FB )@@G@@ RETURN. @G@@@@/MSG . (X10). COPY COMPLEX MESSAGE TO OUTPUT BUFFERFC )@@G@@ AND PRINT. ENTER@D@@@@. WITH X7 POINTING TO FIRST WORD OF SOURCE STRINFD )@@G@@G. @E@@@@ L X6,(1,GETC) . RESET TEXT CHARACTER POINTER.FE )@@G@@@F@@@@ LXI,U X7,1 . SET TEXT WORD POINTER INCREMENT. FF )@@G@@@]@@@@MSG1 . @F@@@@ GET . GET A CHARACTER FFG )@@G@@ROM TEXT STRING. @C@@@@ TNE,U A2,'\' . STRING FLAG? FH )@@G@@@^@@@@ J $+3 @G@@@@ PUT . NO. PFI )@@G@@UT IN OUTPUT STRING AND REPEAT. @^@@@@ J MSG1 @E@@@@FJ )@@G@@ S X6,SVCP . YES. SAVE POINTERS IN CASE @D@@@@ FK )@@G@@ S X7,SVWP . '\' IS OUT-OF-CONTEXT.@D@@@@ GET FL )@@G@@ . GET ANOTHER CHARACTER. @C@@@@ TNE,U A2,'\' .FM )@@G@@ ANOTHER FLAG? @D@@@@ J MSG8 . YES. END OF MESSAFN )@@G@@GE. @E@@@@ TE,U A2,';' . NO. START NEW PRINT LINE? FO )@@G@@@^@@@@ J $+3 @E@@@@ LMJ X11,PRTBUF . YES. FP )@@G@@PRINT BUFFER, CLEAR, AND@E@@@@ J MSG1 . CONTINUE WFQ )@@G@@ITH TEXT STRING. @D@@@@ TE,U A2,'C' . NO. TAB TO COLUMNFR )@@G@@ N? @A@@@@ J MSG2 . NO. @B@@@@ LMJ X1FS )@@G@@1,DECODE . YES. GET N.@G@@@@ JN A3,MSG9 . TREAT '\' LFT )@@G@@ITERALLY IF NO DIGITS FOUND. @F@@@@ TNE,U A2,'\' . [A3]=FU )@@G@@N. IF NEXT CHARACTER NOT '\' @B@@@@ TG,U A3,132 . OR NFV )@@G@@>131, @F@@@@ J MSG9 . TREAT PRECEDING '\' LITERALLFW )@@G@@Y. @F@@@@ SZ A2 . ELSE, CONVERT N TO WORD, SIXTFX )@@G@@H. @^@@@@ DI,U A2,6 @E@@@@ LXM,U X8,PUTC,A3 .FY )@@G@@ SET PUT INDICES TO SPECIFIED @B@@@@ LXM,U X9,BUF,A2 . COLUFZ )@@G@@MN. @E@@@@ J MSG1 . CONTINUE WITH TEXT STRING. GA )@@G@@@[@@@@. @]@@@@MSG2 . @^@@@@ LN,U A1,0 @E@@@@ GB )@@G@@ TNE,U A2,'X' . CHECK IF 'X', 'A' OR 'R'. @E@@@@ L,U GC )@@G@@ A1,X0 . IF SO, SET A1 TO POINT TO @E@@@@ TNE,U A2GD )@@G@@,'A' . BASE OF REGISTER GROUP. @^@@@@ L,U A1,A0 GE )@@G@@@^@@@@ TNE,U A2,'R' @^@@@@ L,U A1,R1-1 @C@@@@ GF )@@G@@ JN A1,MSG6 . ANY OF THE ABOVE?@H@@@@ LMJ X11,DECOGG )@@G@@DE . YES. DECODE SUCCEEDING DIGITS. RESULT IN A3. @G@@@@ JN GH )@@G@@ A3,MSG9 . TREAT '\' LITERALLY IF NO DIGITS FOUND. @E@@@@ GI )@@G@@ A A1,A3 . [A1] = REGISTER ADDRESS. @C@@@@ TL,UGJ )@@G@@ A1,A17 . USER REGISTER? @^@@@@ J $+4 @^@@@@GK )@@G@@ TG,U A1,R1 @^@@@@ TGE,U A1,R15 @F@@@@ J GL )@@G@@ MSG9 . NO. TREAT PRECEDING '\' LITERALLY. @D@@@@ TGE,GM )@@G@@U A1,A3 . YES. IF IN SET X6-A3, @^@@@@ J $+3 GN )@@G@@@^@@@@ TG,U A1,X6 @H@@@@ A,U A1,SVX0 . RESEGO )@@G@@T ADDRESS TO SAVED-REGISTER CONTENTS. @E@@@@ S,H2 A1,GETREGP )@@G@@G . SAVE AS U FOR 'L A0,$-$'. @G@@@@ L,U X11,NCDV .GQ )@@G@@ SET TO ENCODE [A0] WITH LEADING ZERO. @F@@@@ TNE,U A2,'\' GR )@@G@@ . FLAG ENCOUNTERED DURING DECODE? @H@@@@ J MSG5 GS )@@G@@ . YES. ENCODE [A0] AND CONTINUE WITH STRING. @C@@@@ TE,UGT )@@G@@ A2,',' . NO. A COMMA? @E@@@@ J MSG9 .GU )@@G@@ NO. TREAT '\' LITERALLY. @G@@@@ LMJ X11,DECODE . YES. GV )@@G@@DECODE SUCCEEDING DIGITS (IF ANY). @F@@@@ L,U X11,NCDF .GW )@@G@@ SET TO ENCODE [A0] TO [A3] DIGITS. @H@@@@ JP A3,MSG4 .GX )@@G@@ IF DIGITS FOUND, ENCODE [A0] AND CONTINUE. @H@@@@ L,U X1GY )@@G@@1,DEC . ELSE, SET TO ENCODE [A0] AS SIGNED DECIMAL. @B@@@@ GZ )@@G@@ TNE,U A2,'D' . LETTER 'D'?@A@@@@ J MSG3 .HA )@@G@@ YES. @F@@@@ L,U X11,FDA . NO. SET TO ENCODE [A0] AS FIEHB )@@G@@LDATA.@B@@@@ TNE,U A2,'F' . LETTER 'F'?@G@@@@ J HC )@@G@@ MSG3 . YES. ENCODE, SKIPPING BLANKS AND NULLS. @E@@@@ HD )@@G@@ L,U X11,FDAB . NO. ALTER TO ALLOW BLANKS. @B@@@@ TE,UHE )@@G@@ A2,'G' . LETTER 'G'?@F@@@@ J MSG9 . NO. THF )@@G@@REAT PRECEDING '\' LITERALLY. @]@@@@MSG3 . @G@@@@ GET HG )@@G@@ . GET CHARACTER FOLLOWING 'D', 'F' OR 'G'. @]@@@@MSG4 . HH )@@G@@@C@@@@ TE,U A2,'\' . NEXT THE FLAG? @E@@@@ J HI )@@G@@ MSG9 . NO. TREAT '\' LITERALLY. @]@@@@MSG5 . @E@@@@HJ )@@G@@ EX GETREG . YES. GET REGISTER CONTENTS. @C@@@@ HK )@@G@@ LMJ X11,0,X11 . ENCODE [A0]. @E@@@@ J MSG1 HL )@@G@@ . THEN CONTINUE WITH STRING. @[@@@@. @]@@@@MSG6 . @E@@@@HM )@@G@@ TE,U A2,'&' . NOT A REGISTER. A VECTOR? @E@@@@ HN )@@G@@ J MSG9 . NO. TREAT '\' LITERALLY. @A@@@@ AN,UHO )@@G@@ X6,GETC . YES. @F@@@@ TZ,U 0,X6 . SKIP ANY PAHP )@@G@@RT WORD IN TEXT STRING @^@@@@ A,U X7,1 @G@@@@ L,S1HQ )@@G@@ A0,0,X7 . AND GET VECTOR CODE FROM NEXT WORD. @G@@@@ HR )@@G@@ L,S3 A3,0,X7 . GET ANY SPECIFIED CHARACTER/DIGIT COUNT, @E@@@@HS )@@G@@ L,H2 A1,0,X7 . AND STRING/VALUE ADDRESS. @B@@@@ HT )@@G@@ JZ A0,MSG7 . CODE 0? @E@@@@ L,S2 A0,0,*X7 .HU )@@G@@ NO. CODE 1. GET J-DESIGNATOR.@^@@@@ LSSL A0,2 @G@@@@ HV )@@G@@ S,S2 A0,GETVAL . PUT IN FETCH COMMAND (LA,0 A0,0,A1). @F@@@@HW )@@G@@ EX GETVAL . GET THE VALUE WHOSE ADDRESS IS [A1]@D@@@@HX )@@G@@ JNZ A3,$+3 . AND ENCODE TO OCTAL. @^@@@@ LMJ HY )@@G@@ X11,NCDV@^@@@@ J MSG @^@@@@ LMJ X11,NCDFHZ )@@G@@@G@@@@ J MSG . THEN CONTINUE WITH NEXT WORD OF STRIA )@@G@@ING. @[@@@@. @]@@@@MSG7 . @F@@@@ LXM,S2 X6,0,*X7 .IB )@@G@@ CODE 0. GET ANY SPECIFIED OFFSET. @^@@@@ A,U X6,GETC @E@@@@IC )@@G@@ S X7,TEMP . RESCUE TEXT STRING POINTER. @F@@@@ ID )@@G@@ LXM,U X7,0,A1 . SET POINTER TO SPECIFIED ADDRESS. @F@@@@ IE )@@G@@ AN,U A3,1 . SPECIFIED CHARACTER COUNT - 1. @F@@@@ IF )@@G@@ JN A3,MSG1 . IF CT=0, CONTINUE WITH NEW STRING. @G@@@@ IG )@@G@@ GET . ELSE, COPY CT CHARACTERS FROM ADDRESS @C@@@@IH )@@G@@ PUT . TO OUTPUT STRING@^@@@@ JGD A3II )@@G@@,$-2 @H@@@@ L X7,TEMP . AND THEN CONTINUE WITH ORIGIIJ )@@G@@NAL TEXT STRING. @^@@@@ J MSG @[@@@@. @]@@@@MSG8 IK )@@G@@ . @F@@@@ LMJ X11,PRTBUF . END OF MESSAGE. PRINT AND CLEIL )@@G@@AR. @B@@@@ J 0,X10 . RETURN. @[@@@@. @]@@@@IM )@@G@@MSG9 . @G@@@@ PUT '\' . ENCODE OUT-OF-CONTEXT 'IN )@@G@@\' LITERALLY. @E@@@@ LXM X6,SVCP . RESTORE POINTERS IO )@@G@@TO FOLLOWING@F@@@@ LXM X7,SVWP . CHARACTER AND CONTINUEIP )@@G@@ SCANNING. @^@@@@ J MSG1 @[@@@@. @[@@@@. @^@@@@IQ )@@G@@ L,S6 A2,0,*X7@^@@@@ LMJ X6,0,X6 @C@@@@GETC L,S1IR )@@G@@ A2,0,X7 . ALTERS X6,X7,A2. @^@@@@ L,S2 A2,0,X7 @^@@@@IS )@@G@@ L,S3 A2,0,X7 @^@@@@ L,S4 A2,0,X7 @^@@@@ L,S5IT )@@G@@ A2,0,X7 @ @@@@ LMJ X6,GETC-2 @[@@@@. @]@@@@PTRESEIU )@@G@@T . @^@@@@ S,S6 A2,0,X9 @E@@@@ TLEM,U X9,BUF+21 .IV )@@G@@ BUFFER ABOUT TO OVERFLOW? @^@@@@ J $+2 @G@@@@ IW )@@G@@ L,U X9,RETURN . IF SO, SUPPRESS FURTHER INCREMENTATION. @^@@@@IX )@@G@@ LMJ X8,0,X8 @C@@@@PUTC S,S1 A2,0,X9 . ALTERS X8,XIY )@@G@@9. @^@@@@ S,S2 A2,0,X9 @^@@@@ S,S3 A2,0,X9 @^@@@@IZ )@@G@@ S,S4 A2,0,X9 @^@@@@ S,S5 A2,0,X9 @ @@@@ LMJ JA )@@G@@ X8,PTRESET @F@@@@/DECODE . (X11). DECODE DECIMAL FIELDATA STRING.JB )@@G@@ X6,X7,A2,A3. @E@@@@ LN,U A3,0 . BINARY VALUE RETUJC )@@G@@RNED IN A3. @]@@@@ GET @^@@@@ TG,U A2,'0' @^@@@@ JD )@@G@@ TG,U A2,'9'+1@F@@@@ J 0,X11 . RETURN WHEN NON-DJE )@@G@@IGIT ENCOUNTERED. @^@@@@ AN,U A2,'0' @^@@@@ MSI,U A3JF )@@G@@,10 @^@@@@ A A3,A2 @^@@@@ J DECODE+1@[@@@@JG )@@G@@. @E@@@@NCDF . (X11). ENCODE [A0] TO [A3] DIGITS. X8,X9,A0-A3. JH )@@G@@@E@@@@ L,U A1,0,A3 . [A3] = REQUIRED DIGIT COUNT. @C@@@@JI )@@G@@ MSI,U A1,3 . [A1] = 3*DIGITS. @E@@@@ DSL A0JJ )@@G@@,0,A1 . SHIFT DESIRED DIGITS INTO A1.@C@@@@ J NCD JK )@@G@@ . GO ENCODE THEM. @[@@@@. @G@@@@NCDV . (X11). ENCODE [A0] WJL )@@G@@ITH LEADING '0', USING AS MANY DIGITS AS @ @@@@. IS REQUIRED. X8,X9,A0-JM )@@G@@A3. @^@@@@ LN,U A3,1 @D@@@@ DSL A0,3 .JN )@@G@@ LOW DIGIT INTO A1. @C@@@@ A,U A3,1 . BUMP DIGIT JO )@@G@@COUNT @D@@@@ JNZ A0,$-2 . REPEAT UNTIL A0 EMPTY. @D@@@@JP )@@G@@ JZ A3,NCDD . UNLESS ONLY ONE DIGIT, @C@@@@ PUT JQ )@@G@@ '0' . ENCODE A ZERO. @]@@@@NCDD . @D@@@@ L,U JR )@@G@@ A2,'0'*/-3 . ENCODE [A3]-1 DIGITS. @^@@@@ LDSC A1,3 JS )@@G@@@]@@@@NCDP . @]@@@@ PUT @]@@@@NCD . @^@@@@ JGD JT )@@G@@ A3,NCDD @^@@@@ J 0,X11 @G@@@@/DEC . (X11). ENCODE JU )@@G@@[A0] AS SIGNED DECIMAL INTEGER, USING AS MANY @C@@@@. DIGITS AS IS REQJV )@@G@@UIRED. ALTERS X8,X9,A0-A3. @C@@@@ JP A0,$+4 . IF NEJW )@@G@@GATIVE, @C@@@@ PUT '-' . ENCODE A SIGN @C@@@@JX )@@G@@ LN A0,A0 . AND COMPLEMENT. @^@@@@ DSL A2JY )@@G@@,72 @^@@@@ DSL A0,36 @^@@@@ DI,U A0,10 @ @@@@JZ )@@G@@ A,U A2,'0',A1 @^@@@@ DSC A2,6 @^@@@@ KA )@@G@@ JNZ A0,$-4 @^@@@@ LDSC A2,6 @]@@@@ PUT @^@@@@KB )@@G@@ JN A3,$-2 @^@@@@ J 0,X11 @[@@@@. @H@@@@KC )@@G@@FDA . (X11). ENCODE NON-NULL NON-BLANK CHARACTERS IN A0. X8,X9,A1-AKD )@@G@@3. @^@@@@ L,U A1,' ' @^@@@@ J $+2 @F@@@@KE )@@G@@FDAB . (X11). ENCODE NON-NULL CHARACTERS IN A0. X8,X9,A1-A3. @^@@@@KF )@@G@@ LN,U A1,0 @^@@@@ L A3,A0 @]@@@@FDA1 . KG )@@G@@@^@@@@ JZ A3,0,X11@#@@@@ SZ A2@^@@@@ LDSLKH )@@G@@ A2,6 @^@@@@ JZ A2,FDA1 @^@@@@ TE A2,A1 KI )@@G@@@]@@@@ PUT @^@@@@ J FDA1 @[@@@@. @F@@@@PRTBUFKJ )@@G@@ . (X11). PRINT OUTPUT BUFFER. THEN BLANK-FILL. X8,X9,A0. @ @@@@ KK )@@G@@ L A0,(0126,BUF) @F@@@@PRTCLR . (X11). PRINT. THEN BLANK-FILL OUKL )@@G@@TPUT BUFFER. X8,X9. @^@@@@ ER PRINT$ @F@@@@CLRBUF . (XKM )@@G@@11). BLANK-FILL OUTPUT BUFFER, RESET POINTERS. X8,X9.@^@@@@ L KN )@@G@@ X8,(''L)@ @@@@ L X9,(-1,21) @ @@@@ S X8KO )@@G@@,BUF,X9 @^@@@@ JMGI X9,$-1 @ @@@@ L X8,(1,PUKP )@@G@@TC) @ @@@@ L X9,(1,BUF) @^@@@@ J 0,X11 KQ )@@G@@@]@@@@/$(0) . @]@@@@ELIST . @#@@@@ +'IGDM' @#@@@@ KR )@@G@@ +'I/O' @#@@@@ +'SYMB' @#@@@@ +'ERR$' @#@@@@ KS )@@G@@ +'ER' @#@@@@ +'CONS' @#@@@@ +'COM1' @#@@@@ KT )@@G@@ +'COM2' @#@@@@ +'REP' @[@@@@. @^@@@@ESTOP 'ERROR STOKU )@@G@@P #\&'@^@@@@ E$RO TEMP,3 @]@@@@ '\&'@^@@@@ E$RLKV )@@G@@ WHEREAT @ @@@@CTMSG ' ERROR, CODE \&' @^@@@@ E$RO TEKW )@@G@@MP @#@@@@WHEREAT ', AT \&' @^@@@@ E$RO CTYPKT,6@#@@@@ KX )@@G@@ '.\\' @[@@@@. @ @@@@PKTMSG 'PACKET ADDRESS: \&' @ @@@@ KY )@@G@@ E$RO CTYPKT+1,6 @#@@@@ '.\\' @[@@@@. @^@@@@OPMSG KZ )@@G@@ ' ILLEGAL.\\' @[@@@@. @]@@@@ ICW @E@@@@ 'ILLEGAL ALA )@@G@@DDRESS ENCOUNTERED IN ERROR ROUTINE.' @#@@@@NOMSG ICW 1 @[@@@@LB )@@G@@. @A@@@@. CONTROL CODES FOR PACKET ENCODING.@^@@@@IOPKT 0,16,16,13LC )@@G@@,4,2 @^@@@@ 6,13,2,2,2,6 @^@@@@ 13,6,6,13,4,8 @#@@@@LD )@@G@@ 13,19,,,, @^@@@@CNSPKT 14,2,2,2,6,13 @^@@@@ 2,4,6,13,6LE )@@G@@,6 @#@@@@ 13,19,,,, @]@@@@/$(2) . @ @@@@GETVAL LA,$-$ A0LF )@@G@@,$-$,A1 @^@@@@GETREG L A0,$-$ @[@@@@. @^@@@@SVX0 EQU LG )@@G@@ $-6 @#@@@@SVX6 RES 5 @#@@@@SVX11 RES 1 @#@@@@SVA0 LH )@@G@@ RES 2 @#@@@@SVA2 RES 2 @[@@@@. @#@@@@ERRPKT +0,$-$ LI )@@G@@@#@@@@TEMP RES 1 @#@@@@CTYWD RES 1 @^@@@@SVWP EQUF $,LJ )@@G@@,H1 @^@@@@SVCP EQUF $,,H2 @#@@@@ RES 1 @^@@@@BUF LK )@@G@@ RES 22-1 @D@@@@INTCPKT RES 1 . LAST WORD OF BUFFLL )@@G@@ER. @E@@@@RETURN RES 1 . BUFFER OVERFLOW GOES HERE. LM )@@G@@@^@@@@ J $(1) @E@@@@$(1) SZ A0 . INTERLN )@@G@@NAL ERROR OCCURRED. @D@@@@ ER IALL$ . CLEAN UP ANLO )@@G@@D EXIT. @^@@@@ P$RINT NOMSG @^@@@@ ER ERR$ LP )@@G@@@^@@@@ $IF TEST @A@@@@/$(3) LIT . TEST PROGRAM. LQ )@@G@@@]@@@@START . @C@@@@ P$CT 6,1,DXCTWD . FUDGE FOR DX. LR )@@G@@@ @@@@ L,H1 A0,DXCTWD @^@@@@ LSSL A0,6 @ @@@@LS )@@G@@ S,H1 A0,DXCTWD @ @@@@ L,U A0,DXCTWD @^@@@@LT )@@G@@ S,H2 A0,DX2 @ @@@@ L A0,(ER $-$) @^@@@@ LU )@@G@@ LXM,U A0,IALL$@^@@@@ S A0,DX1 @^@@@@ S A0LV )@@G@@,DX3 @^@@@@ S A0,DX4 @ @@@@ L R1,('BEGIN'L) LW )@@G@@@^@@@@ E$RMSG TESTMSG @ @@@@ C$TNCY EPKT,'ABCXYZ' @^@@@@LX )@@G@@TESTIT L,U A0,AGAIN@^@@@@ S,H2 A0,EPKT @A@@@@ L LY )@@G@@ A0,(0101,('EMSG 0'))@^@@@@ L,U X5,5 @^@@@@ L,U LZ )@@G@@ X6,6 @ @@@@ L,U A3,0123456 @^@@@@ L,U A4MA )@@G@@,A4 @^@@@@ L,U R15,R15 @^@@@@ L,U A2,19 @^@@@@MB )@@G@@ S A2,A17 @ @@@@ L R1,('EMP TY') @ @@@@ MC )@@G@@ L A2,(1,AGAIN) @^@@@@AGAIN J 1,*A2 @A@@@@ I$ MD )@@G@@ 077,,,,, . IOPR.@A@@@@ J 3 . IGDM.@B@@@@ME )@@G@@ ER LINK$ . REP ERROR. @^@@@@ ER ERR$ MF )@@G@@@C@@@@ E$RR 33 . NUMBERED CIOPR. @E@@@@ E$RMMG )@@G@@ 0 . ERROR MESSAGE; [A0] = PACKET.@D@@@@ E$RM 1 MH )@@G@@ . ERROR MESSAGE EMS$(1) .@D@@@@ E$RM 2 .MI )@@G@@ ERROR MESSAGE EMS$(2) .@D@@@@ E$RM 3 . ERROR MESSAMJ )@@G@@GE EMS$(3). @D@@@@ E$RM 4 . ERROR MESSAGE EMS$(4). MK )@@G@@@B@@@@ J IOERR . I/O ERROR. @C@@@@ J COML )@@G@@NSERR . CONSOLE ERROR. @^@@@@ L,U R1,'END'@^@@@@ MM )@@G@@ E$RMSG TESTMSG @D@@@@ SZ,H2 EPKT . FORCE ERR$ FINAL MN )@@G@@EXIT @D@@@@ I$ 077,,,,, . AFTER ONE LAST IOPR. @^@@@@MO )@@G@@IOERR I$OW FPKT @^@@@@CONSERR C$OM CPKT @D@@@@EMS$(1) 'EMSMP )@@G@@ 1--A3=\A3\, X6=\X6,6\.\;R1 IS \R1,F\.\\' @^@@@@EMS$(2) 'EMS 2--A \&' MQ )@@G@@@^@@@@ E$RL CDEF,2 @^@@@@CDEF '//LITERAL \ \&'@ @@@@ MR )@@G@@ E$RF INSERT,5,2 @^@@@@ ' EUREKA!\&' @^@@@@ E$ROMS )@@G@@ VALUE @^@@@@ '\C60\ S6=\&' @ @@@@ E$RO VALUE,4,MT )@@G@@S6 @]@@@@ '\\'@^@@@@INSERT '//HERE./////' @#@@@@VALUE +012MU )@@G@@34567 @G@@@@EMS$(3) 'EMS 3-- \X5\ \X6,D\ \A3\ \A4\ \A17,D\ \R1,G\ \R15\ MV )@@G@@\R16\\' @ @@@@EMS$(4) '^^\C130\^^^^^^^^^^' @A@@@@TESTMSG '\R1,F\ ROMW )@@G@@UTINE TEST.\\' @ @@@@CPKT C$OMPK 0100,0,0100,0 @C@@@@FPKT I$ODMX )@@G@@ '$DUMMYFILE$',R$ 28,BUF 07654321@^@@@@EPKT ERR$PKT TESTIT @]@@@@MY )@@G@@DXCTWD +0 @#@@@@ $ENDF @ @@@@ $END TEST->START MZ )@@G@@___ACTART ___ACTER FOLLOWING 'D', 'F' OR 'G'. @]@@@]MSG4 . @C@@@]NA )@@G@@ ADDR] : @D@@@@)@@[F[KOG@^C@^^K)[K^^@@@9*@@@C/K@@@E'=@@@@/KF@@@NB )@@G@@(C@@@C'=@@@@C@@@@1[^@@@G9*@@@CAA@@@@)@D[MKKKO [^[[@@@@9*@@@C/K@@@>/KF@@@NC )@@G@@(@@@@HC@K@@D[@K@@H+@@@@HD@X@@@CCK@@CC@G@@@AB@@@@)@N@N[K@@@@@)@@@S^G@K@@@ND )@@G@@)@P@N[K0@@@@CC@@@@9*@@@C/K@@@P@@@@@@@@@@@@/\)@@$9*)@@EAC@@@@)@R[N#@[[K[@NE )@@G@@KO@K@@G8K@@[/K@@]$:8@]+E/K@@@)(0@K@G/K@@]$:8@]-E/K@@@W(4@K@GC^K@@@AD@@@@NF )@@G@@)@-[M^[[KL#@@KO@@@/:@@@*[@W@@]C@W@@AC@@@@2 @@@@I9*)@@E @@@@H/K@@]$:8@]@CNG )@@G@@%8@[@CAE@@@@)@:[F[[]@D#@[]@[@KO@@@@@/@K@[AC@K@@H/^)@]R'=@@@@C@@@@3'=@@@@NH )@@G@@&;K@@[C8K@@AC8@@@IAF@@@@)@4[N@K0@^^K@@@@@@')C)@@C8)@@ ')C)@@C8)@@S/@)@@/NI )@@G@@;*)@@];S)@@H[@D)@@C@@@@4/,0@ +AG@@@@)@"[EK0@K[@ES@C]@-)@@@@@C@@@@6/K@@]MNJ )@@G@@/,)@]\R90@@Z/:)@[@')C)@@'CK@[]C@)@@5;*K@@EAH@@@@)[B[F@KM&@@-)@CK[*S@@@@@NK )@@G@@%8)@@[C^0@@@'=@@@@:8)]]ECC)@@@[@W@@[C8K@@@C^@@@G/,0@ -AI@@@@)[K[N@[#@[@@NL )@@G@@K@@@@@H80@@[/G0@[-L8)@[@[C?@@[;C)@@O/K@@[=%@K@@7;GK@@KC@Z@@@/K@@[=AJ@@@@NM )@@G@@)[U[N@^^[@KM&@]@@@/K@@[1Q90@@G[@)@@H/K@@[1Q _@@]0@@@@JQD_@@]G^0@@G;@0@@[NN )@@G@@/G0@]KAK@@@@)[=[F#@@^[#@@K^G@^G@@@@@C4@@@@C0)@@@/K@@[,C4\@@@C@@@@8/K@@[:NO )@@G@@%8K@@[[4W@@[C?K@@@AL@@@@)[![F#@[[K]&@]@-)@CS@C@@/K@@]M(^@@@[:8@@@EC?@@@@NP )@@G@@/,)@]\Q90@@M/,0@ P[@)@@HC@G@@#AM@@@@)[6[F#@@K[@ES@C]A@@@@@@@&')@@[R])@@[NQ )@@G@@/,)@]\Q90@@U/K@@]M%8@@@ /K@@[;:8@@@[C4@@@@AN@@@@)[_[M*CS@CS@@)@)C@/K@@]]NR )@@G@@/,0@ ^C8)@@ C@0@@I/C_@]DL8)@@H')A)@@Q97@@(Q50@@@Q9)@^XAO@@@@)]D[N@^@K^[@NS )@@G@@KOC[^^RA0K@G'=@@@@C@@@@C/K@@]M/K@@]]/,0@ PC@E)@@/K@@]]C@U)@@/,0@ )AP@@@@NT )@@G@@)]N[F@KM&@]@)CE@)*C@@@@@A]0@@&RA0@@B/,)@]\R[0@@C/,0@ +/K@@]VR'0@@9 @@@@INU )@@G@@/%0@]VAQ@@@@)]W[F[^ ]@[#@[[^[[@@@@@@9?@@@C/:@@]-[@W@@AC@W@@]C@@@@2'=@@@@NV )@@G@@QB@@@I;*@@@SCC@@@IAR@@@@)]>[F[KO [^G@^G@^ ]@O@@@'=@@@@9?@@@C @@@@[ @@@@@NW )@@G@@ @G@@[C^@@@G[@K@@H/K@K@&9?)@@EAS@@@@)],[N[K0@@K[@KO^@@AD0@@JA )@@J/K@@]1NX )@@G@@')C)@@/K@@]6:8)@@\')A)@@&90@@[R[)@@'/K@K@HAT@@@@)]8[M^@K^[@^[@@@@@/,0@^,NY )@@G@@/K@@#F%8)@@C/K@@]1/,0@ )/K@@]_%8)@@;/K@@^O:8)@@\')A)@@AU@@@@)#][N@[@[@KONZ )@@G@@@@@@@@D8K@@@/K@@]1Q'Y@@KQ'J@^*W8)@@A @@@@I/K@@^Q!80@]^:8)@@\/G0@^QAV@@@@OA )@@G@@)#G[U@[@K^@@?8K@@YG@K@@J/G0@^Q/,0@^,/GK@#7C8K@[@:8)@@RC8K@@G:8)@@AC8K@@@OB )@@G@@:8)@@XAW@@@@)#R[N@[@^@FE]O@@@@R'0@^;[^K@@[G8K__;!8K@@A/K@@#Z!8K@@K/K@@^QOC )@@G@@!8K@[K!8K@[[/K@@#VAX@@@@)#-[MK[@K])) @K@@@/K@@#1:8)@@DR'0@ B/C0@#2R'0@^7OD )@@G@@/,0@^,/K@@^Q%8)@@,/K@@#4:8)@@\AY@@@@)#:[M*]@O[@[@KK@@@')@@@[/K@@^Q%8)@@\OE )@@G@@')A)@@/K@@^Q%8)@@GR'0@ R/K@@#1:8)@@FR'0@ PAZ@@@@)#5[MK[@E@@@@@@@@@C^R@@@OF )@@G@@C?7@@@C4B@@@O90@@[*8A@@@P9)@^X/K@@^Q%8)@@&/K@@]1/,;@@@BA@@@@)#_[N@[[KO[@OG )@@G@@K^[@@@/K@@]\/,0@^7/K@@]\/,0@^;/^0@^B')@@@@[0@@@@;*@@@]C0B)@@/@@@^DBB@@@@OH )@@G@@)^D[ME]]]@]@))@@@@R[0@@H8#0@^J')C)@@')A)@@/G0@]1H80@@[Q9.@@@A[0@@HO9)@^XOI )@@G@@Q1$)@@BC@@@@)^N[N@K@^ [K@@@@@@/!&@@@C)$)@@/K@@]1QD0@@JQ )@@J')C)@@C8)@@\OJ )@@G@@/KE@@@/,0@ )/K@@]\BD@@@@)^X[M@^@EE@OK@@@@@R'K@@&/K@@^$$'K@@>[)(@@@/!)@^VOK )@@G@@C=$@@@C*$@@@C?$@@@C0$@@@C4$@@@BE@@@@)^$[U@[@@@@@!8)@@'!8)@@0')A)@@D80@@@OL )@@G@@/,@@^<[=(@@@[*(@@@[?(@@@[0(@@@[4(@@@/,C@@@BF@@@@)^2[U@K@^@@@;G@@@#D80@@[OM )@@G@@/K@@ ;GH@@@T8K@@#C8Z@@@/K@@^\G@0@@IT80@@EH8)@@0/KF@@@BG@@@@)^.[MK^@@^@@ON )@@G@@@@@@@@/KF@@@8#0@ ]')C)@@;=K@@#C8)@@A')C)@@C8)@@0/@0@ ]/^@@^/G80@@[BH@@@@OO )@@G@@) B[V@@@[@@@;=)@@A/^@@ G;^)@@AG8!@@0W8@@@E;G@@@=;G)@[CD@@@@G')C)@@C8)@@-OP )@@G@@/C@@ FBI@@@@) M[UK@K@@K@/@)@ T;?)@@A @@@@I/@;@@@C@0@@GD8K@@@/K@@ SC8K@@ OQ )@@G@@/KF@@@/G0@ L')C)@@BJ@@@@) X[E^[#@[]@L#@[#@[[K@@@/%K@ =A]D@@KR]K@@.R]@@@/OR )@@G@@'=@@@@C@@@@;/K@@ T')C)@@%@)@@HBK@@@@) &@V#@[#@@@)@#@0@@@@@@@@@CONS@@@@EROS )@@G@@@@ERR$@@SYMB@@@I/O@@IGDM/KF@@@R]K@@_R]@@@"BL@@@@)@D[S@@*-K@@, CODE ERROROT )@@G@@@@@@@Q\& [@#@@H\& STOP #ERROR @@@REP@@COM2@@COM1BM@@@@)@O[SEC @@E@OU )@@G@@.\\ [@A@@[SS: \& ADDREPACKET.\\ [@A@@@& , AT \[@@@@H \& BN@@@@OV )@@G@@)@Z[S@@@E@@@@[C@@-NE. ROUTI ERRORRED INCOUNTEESS ENL ADDRILLEGAAL.\\ OW )@@G@@ ILLEGBO@@@@)@%@8@@@@@@@)@@@O@@@@@@@C@@@@@C@H@@@HN@@@@]^AHAAI]]]AHHN@@@@OX )@@G@@HAAH^CAH]]]A@KKH^]BP@@@@)@G@G@)@$@H@@@@@@@) (@%K)@K0@K)^K)A@'=@@@@'=@@@@OY )@@G@@C@@@@('=@@@@ @@@@G/K@@ (@@@@@@BQ@@@@)@1[K*[L@[]@S()]@@@@[@^X'=@@@@@@IOPROZ )@@G@@@@@]%@@[@@@@__@@TAOPTION@]@@@>__"@@ E#@@@@BR@@@@)@;@**)O0[EC@@@@@@@@@@@@PA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@K@@[@^*__"@@P @[Q@@KBS@@@@@@@@@@@@K[@EPB )@@G@@S@C]A@@@@@@@&')@@[R])@@[/,)@]\Q90@@U/K@@]M%8@@@ /K@@[;:8@@@[C4@@@@AN@@@@PC )@@G@@@@^@@#@@B@@B@@P@@#@@-@@@@@E@[@@@@@ ,@@@@@*IALL$ OPT$ PCT$ PD )@@G@@ EXIT$ PRINT$ CEND$ ERR$ CTNCY$ @@[@@@PE )@@G@@@@@@@@CTYOPS$ @@[@@@@@@@@CERMSG$ @@[@@@@@@@@MRA0@@B/,)@]\R[0@@CPF )@@G@@/,0@ +/K@@]VR'0@@9 @@@@I/%0@]VAQ@@@@)]W[F[^ ]@[#@[[^[[@@@@@@9?@@@C/:@@]-PG )@@G@@[@W@@AC@W@@]C@@@@2'=@@@@QB@@@I;*@@@SCC@@@IAR@@@@*[S@@@*SDFF*@G@@@@. COPYPH )@@G@@RIGHT 1973,1974,1978, B. E. CHI, SUNY-ALBANY, ALBANY NY 12222. ^ON@[@@@@PI )@@G@@. @G@@@@. THIS SUBROUTINE ATTACHES AN INTERNAL NAME TO AN EXTERNAL NPJ )@@G@@AME, CHECKS @G@@@@. FILE STATUS AND ASSIGNS THE FILE IF NOT ALREADY ASSIPK )@@G@@GNED. THE EXTER- @G@@@@. NAL NAME IS ASSUMED TO RESIDE IN ELT$+2 . . . PL )@@G@@ELT$+8 AS THE RESULT OF @G@@@@. A PRIOR CALL TO SELT$ (OF INFOR$). THE PM )@@G@@USER MUST PROVIDE A 12-WORD @F@@@@. PACKET ('PKT' BELOW) WITH THE INTEPN )@@G@@RNAL NAME IN PKT+2, PKT+3: @[@@@@. @#@@@@. PKT $RES 2 @B@@@@PO )@@G@@. 'INTERNAL FILE NAME' (2 WORDS) @#@@@@. $RES 8 @[@@@@PP )@@G@@. @ @@@@. THE CALLING SEQUENCE IS: @[@@@@. @G@@@@. L[LNPQ )@@G@@],U A0,PKT . AS EXCLUSIVE ASSIGN NOT NEEDED [NEEDED]. @ @@@@. PR )@@G@@ LMJ X11,DASG$ @D@@@@. . [A0]=@ASG SPS )@@G@@TATUS (<0). @G@@@@. . [A0]=FILE MODE BITS, [APT )@@G@@1]=@ASG STATUS. @[@@@@. @A@@@@. AN ALTERNATE CALLING SEQUENCE IS: PU )@@G@@@[@@@@. @G@@@@. L[LN],U A0,PKT . AS EXCLUSIVE ASSIGN NOTPV )@@G@@ NEEDED [NEEDED]. @ @@@@. LMJ X11,DASGA$ @D@@@@. . [A0]=@ASG STATUS (<0). @D@@@@. PX )@@G@@ . [A0]=400010000000. @G@@@@. . [A0]=PY )@@G@@FILE MODE BITS, [A1]=@ASG STATUS. @[@@@@. @G@@@@. THE ERROR EXIT IPZ )@@G@@S TAKEN IF ANY REQUIRED @ASG FAILS. THE LAST 8 WORDS @G@@@@. OF THE PACQA )@@G@@KET REFLECT THE FILE STATUS PRIOR TO THE ATTEMPTED @ASG. @[@@@@. QB )@@G@@@G@@@@. OTHERWISE, THE NORMAL EXIT IS TAKEN. THE LAST 8 WORDS OF THE PAQC )@@G@@CKET @A@@@@. REFLECT THE CURRENT FILE STATUS. @[@@@@. @G@@@@. SUBSQD )@@G@@EQUENT TO EITHER EXIT, AN 'ER CSF$' CALL USING THE FIRST 4 WORDS @G@@@@QE )@@G@@. OF THE PACKET WILL RESTORE THE FILE TO ITS ORIGINAL STATE BEFORE THE QF )@@G@@@#@@@@. SUBROUTINE CALL.@[@@@@. @A@@@@. THE ENTIRE MINOR SET IS USEDQG )@@G@@. @[@@@@. ^EOF@]@@@@ MNM$@^@@@@CSFPKT $EQUF 0,X11 @^@@@@QH )@@G@@FACPKT $EQUF 2,X11 @]@@@@$(1) $LIT@[@@@@. @]@@@@DASGA$* . QI )@@G@@@C@@@@ LXI,U X11,1 . MARK EXIT OFFSET.@^@@@@ J QJ )@@G@@ $+2 @]@@@@DASG$* . @D@@@@ L,U X11,0,X11 . MARK QK )@@G@@NO EXIT OFFSET. @E@@@@ S X11,SVX11 . SAVE OFFSET, RETUQL )@@G@@RN ADDRESS. @C@@@@ S A0,SVA0 . SAVE A0 SIGN @^@@@@QM )@@G@@ LM A0,A0 @D@@@@ S,H2 A0,SVA0 . AND PACKETQN )@@G@@ ADDRESS. @D@@@@ DL A0,2,A0 . GET INTERNAL NAME. QO )@@G@@@E@@@@ LMJ X11,DUSE$ . DO DYNAMIC @USE (IN INFOR$). @D@@@@QP )@@G@@ L,H2 X11,SVA0 . SET PACKET POINTER. @D@@@@ L,H2QQ )@@G@@ A3,SVX11 . GET RETURN ADDRESS @E@@@@ A,H1 A3,SVX11QR )@@G@@ . AND INCLUDE ANY OFFSET. @E@@@@ SZ,H1 SVX11 .QS )@@G@@ SET INDIRECT ERROR RETURN. @C@@@@ L,U A0,FACPKT . CHECKQT )@@G@@ FACILITY. @^@@@@ ER FACIT$ @E@@@@ DL A1,ASG QU )@@G@@ . SET UP @ASG, @FREE OPTIONS. @E@@@@ TN SVA0 .QV )@@G@@ EXCLUSIVE @ASG REQUIRED? @A@@@@ J $+4 . NO. QW )@@G@@@D@@@@ L,S2 A0,FACPKT+6 . YES. GET FILE MODE. @D@@@@ QX )@@G@@ TOP,U A0,040 . ALREADY EXCLUSIVE? @C@@@@ LXI,U A2QY )@@G@@,'AX ' . IF NOT, FIX. @D@@@@ DS A1,CSFPKT . SAVE QZ )@@G@@@ASG STATEMENT. @D@@@@ L A1,FREE . SET UP @FREE STATRA )@@G@@EMENT.@D@@@@ TZ,S1 FACPKT+6 . FILE ALREADY ASSIGNED? @A@@@@RB )@@G@@ J $+3 . YES. @F@@@@ A,U A2,'R'-' ' .RC )@@G@@ NO. SET TO RELEASE WHEN @FREED. @^@@@@ SSC A2,6 @C@@@@RD )@@G@@ TNE A2,ASG+1 . ANY @ASG NEEDED? @A@@@@ J ASRE )@@G@@GOK . NO. @B@@@@ L,U A0,CSFPKT . YES. DO IT.@^@@@@RF )@@G@@ LXI,U A0,4 @^@@@@ ER CSF$ @D@@@@ JN RG )@@G@@ A0,ASGBAD . UNLESS @ASG STATUS BAD,@D@@@@ S A0,R1 RH )@@G@@ . SAVE FAC STATUS AND @D@@@@ L,U A0,FACPKT . UPDRI )@@G@@ATE FACIT$ PACKET.@^@@@@ ER FACIT$ @^@@@@ J $+RJ )@@G@@2 @]@@@@ASGOK . @F@@@@ L R1,(1*/33) . IF ALREADY RK )@@G@@@ASG'D, FAKE FAC STATUS.@D@@@@ DS A1,CSFPKT . SAVE @FREE RL )@@G@@STATEMENT. @G@@@@ L A1,R1 . GET FAC STATUS, FILE MORM )@@G@@DE, AND EXIT. @ @@@@ L,S2 A0,FACPKT+6 @^@@@@ J RN )@@G@@ 1,A3 @]@@@@ASGBAD . @B@@@@ L A2,ASG+1 . '@FRERO )@@G@@E,A'. @ @@@@ DS A1,CSFPKT @D@@@@ TE A0,(1*/3RP )@@G@@5+1*/21) . FILE NOT FOUND? @D@@@@ J *SVX11 . NO. TRQ )@@G@@AKE ERROR EXIT. @F@@@@ J 0,A3 . YES. TAKE NO-FINDRR )@@G@@ EXIT (IF ANY). @[@@@@. @#@@@@ASG '@ASG, ' @#@@@@ 'A RS )@@G@@ ' @#@@@@FREE '@FREE,' @]@@@@$(2) . @#@@@@SVA0 $RES 1 RT )@@G@@@#@@@@SVX11 $RES 1 @]@@@@ $END___^@)TAKE NO-FIND EXIT (IF ANRU )@@G@@)@@[MK[[KL[^C@^^@@RA0@@@/,0@@@9?G@@][^@@@@E@@@@G[@@@@@A]0@@[R';@@@/K@@@#RV )@@G@@&'0@@[AA@@@@)@E[N[KO^K)[K^ @@@>8@@@)C0F@@C/K@@@P1@@@@@9?K@@\'=@@@@C8F@@]RW )@@G@@ C@@@[GC0@@[C^0@@[AB@@@@)@O[M^@K@K^@@@@@@@C8F@@@/K@@@>:@)@@0;@)@@AG8)@@MRX )@@G@@/K@@@V*4F@@CC@K@@19*V@@@&;)AX AC@@@@)@Y[MK)]K@K)[K^@@@C@K@[[9*V@@@N@K@@2RY )@@G@@/K@@@&'=@@@@C8F@@][@@@[[/G@@@%'=@@@@&;@@@^AD@@@@)@*[U^@K^^@@C@@@@@@FREE,RZ )@@G@@A @ASG, /KJ@@@/K@K@[%@@@@39*V@@@C@)@@0/KJ@@[C0F@@CAE@@@@)@3@E@@@@@@@SA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@C@@@AF@@@@SB )@@G@@@@^@@#@@B@@#@@H@@]@@P@@@@@E@@@@@@@@4@@@@@]DUSE$ FACIT$ CSF$ SC )@@G@@ DASGA$ @@[@@@@@@@@@DASG$ @@[@@@@@@@@] AFFECTED BY ANY LSD )@@G@@-SPECIFICATION.) @[@@@@*[S@@@*SDFF*@E@@@@. COPYRIGHT 1978, B. E. CHI, SSE )@@G@@UNY-ALBANY, ALBANY NY 12222. @H@@@@TEST $EQU 1/1/1 . SET TSF )@@G@@O 0 FOR SUBROUTINE; 1 FOR SELF-TEST. ^ON @G@@@@. DECODE FIELDATA STRINGSG )@@G@@ TO 1 36-BIT WORD. THE STRING MAY BE ANY OF THE@]@@@@. FOLLOWING:@[@@@@SH )@@G@@. @F@@@@. FORMAT CODE DESCRIPTION RESI )@@G@@SULT @F@@@@. W 1 W AN INTEGER INSJ )@@G@@TEGER @F@@@@. H,H 3 EACH H AN INTEGER INSK )@@G@@TEGER @F@@@@. T,T,T 1 EACH T AN INTEGER INSL )@@G@@TEGER @F@@@@. Q,Q,Q,Q 3 EACH Q AN INTEGER INSM )@@G@@TEGER @F@@@@. S,S,S,S,S,S 3 EACH S AN INTEGER INSN )@@G@@TEGER @G@@@@. [S]D.D[SD] 4 SEE BELOW FLSO )@@G@@OATING POINT@G@@@@. 'CC... 6 EACH C A CHARACTER SP )@@G@@ LJSF FIELDATA @G@@@@. 'CCC..' 6 EACH C A CHARACSQ )@@G@@TER RJZF FIELDATA @G@@@@. "CC... 7 EACH C A SR )@@G@@CHARACTER LJSF ASCII @G@@@@. "CCC.." 7 EACSS )@@G@@H C A CHARACTER RJZF ASCII @F@@@@. F,J A,*U,*X 8-10ST )@@G@@ SEE BELOW I$ FORM @[@@@@. @F@@@@. THE ROUTINE ACCESU )@@G@@PTS THE STRING AS INPUT, RETURNING AS OUTPUT THE@G@@@@. NUMERIC VALUE ('SV )@@G@@RESULT') AND THE CODE FOR THE TYPE OF STRING FOUND. @[@@@@. @G@@@@SW )@@G@@. FOR ALL CODES EXCEPT 4, INTEGER FIELDS ARE INTERPRETED AS OCTAL IF SX )@@G@@@G@@@@. THEY START WITH A ZERO, DECIMAL OTHERWISE. INTEGER FIELDS MAY BSY )@@G@@E PRE-@#@@@@. DED BY A SIGN. @[@@@@. @G@@@@. FOR FLOATING POINT INPSZ )@@G@@UT (CODES 4), EACH D IS A STRING OF DECIMAL @G@@@@. DIGITS, EACH S ATA )@@G@@ SIGN. EITHER THE INTEGER OR THE FRACTIONAL PART OF @G@@@@. THE MANTISTB )@@G@@SA MAY BE OMITTED, IF DESIRED. AS IMPLIED BY THE SQUARE @G@@@@. BRACTC )@@G@@KETS, THE MANTISSA SIGN AND THE EXPONENT MAY EACH BE OPTIONALLY @G@@@@TD )@@G@@. OMITTED. THE EXPONENT MAY OPTIONALLY BE PRECEDED BY THE LETTER 'D' TE )@@G@@@E@@@@. OR 'E'; HOWEVER, THE RESULT IS ALWAYS SINGLE-PRECISION. @[@@@@TF )@@G@@. @G@@@@. WITH CODE 6, TO ENCODE AN APOSTROPHE, TYPE TWO APOSTROPHESTG )@@G@@. WITH CODE@B@@@@. 7, TO ENCODE A QUOTE, TYPE TWO QUOTES. @[@@@@. TH )@@G@@@G@@@@. FOR CODES 8-10 (I$ FORM), ALL FIELDS ARE SYMBOLIC (USUAL AXR$ MNTI )@@G@@EMON- @G@@@@. ICS) EXCEPT J WHICH MAY BE SYMBOLIC OR NUMERIC, AND U WHICTJ )@@G@@H MAY BE AN @G@@@@. INTEGER, A REGISTER NAME OR AN ER TAG, AS APPROPRIATTK )@@G@@E. (UNASSIGNED @G@@@@. REGISTERS 033-037 ARE REFERRED TO BY TAGS A16-TL )@@G@@A19; BYTE-MANIPULATION @G@@@@. REGISTERS SR1-SR3, J0-J3 WILL BE CORRECTTM )@@G@@LY RECOGNIZED.) CODE 8 IS @G@@@@. RETURNED UNLESS THE J-FIELD IS SPETN )@@G@@CIFICALLY ONE OF THE QUARTER-WORD @G@@@@. DESIGNATORS (Q1-Q4), IN WHICTO )@@G@@H CASE, CODE 9 IS RETURNED, OR ONE OF THE @D@@@@. NUMBERS 4-7, IN WHICH TP )@@G@@CASE, CODE 10 IS RETURNED. @[@@@@. @G@@@@. THE ROUTINE REQUIRES CTQ )@@G@@OROUTINES ASMLKP, ASMTAB, CHARTAB, ERMNEMONICS @H@@@@. AND SCAN$, AND UTR )@@G@@SES REGISTERS X11-A3, R1. IT IS WORD-MODE INSENSITIVE. @G@@@@. ENTRTS )@@G@@Y MUST BE PRECEDED BY A CALL TO SCAN$, WHOSE PACKET POINTS TO A @E@@@@TT )@@G@@. ONE-WORD SYMBOL EXTENSION TABLE CONTAINING A DOLLAR SIGN: @[@@@@. TU )@@G@@@^@@@@. L,U A0,PKT @ @@@@. LMJ X11,SCAN$ @ @@@@TV )@@G@@. LMJ X11,DCDWORD @H@@@@. . [A0] = ABOTW )@@G@@RT ADDR+1; [A1] = # OF CHAR IN ERROR. @G@@@@. TX )@@G@@. [A0] = DECODED VALUE; [A1] = FORMAT CODE. @A@@@@/ MNM$ TY )@@G@@ . ^EOF @^@@@@. TAGS FOR SCAN$ USAGE: @^@@@@SPKT $EQUF 0TZ )@@G@@,X4 @^@@@@SLOC $EQUF *SPKT @ @@@@DXC $EQUF SPKT+0,,S1 UA )@@G@@@ @@@@STP $EQUF SPKT+1,,S3 @ @@@@RDX $EQUF SPKT+2,,S1 UB )@@G@@@ @@@@THSITM $EQUF SPKT+5,,H1 @ @@@@NXTITM $EQUF SPKT+5,,XH2 UC )@@G@@@^@@@@ITEMS $EQUF SPKT+5 @ @@@@DXADDR $EQUF SPKT+6,,H1 @^@@@@UD )@@G@@NUMBER $EQU 0100 @^@@@@SYMBOL $EQU 0200 @^@@@@ENDSTR $EQUUE )@@G@@ 0300 @[@@@@. @ @@@@. MNEMONICS FOR FORMAT CODES. @#@@@@OCT UF )@@G@@ $EQU 1 @#@@@@HWO $EQU 3@#@@@@FLP $EQU 4@#@@@@FDA UG )@@G@@ $EQU 6@#@@@@ASC $EQU 7@#@@@@I$T $EQU 8@#@@@@I$Q UH )@@G@@ $EQU 9@#@@@@I$B $EQU 10@[@@@@. @#@@@@SYNTAX* PROC *0UI )@@G@@@^@@@@ LMJ A0,ERROR@]@@@@ $END@[@@@@. @F@@@@U1110 UJ )@@G@@ $EQU 0 . TURN ON TO EXPLOIT BYTE HARDWARE. @[@@@@. UK )@@G@@@[@@@@. @]@@@@$(1) $LIT@[@@@@. @]@@@@DCDWORD* . @D@@@@ UL )@@G@@ S X1,SAVEX1 . SAVE X1, X11M, A4, A5. @ @@@@ S X1UM )@@G@@1,RETURN @^@@@@ DS A4,SVA45@G@@@@ SZ X1 UN )@@G@@ . ASSUME EMPTY STRING; SET OCTAL FORMAT. @D@@@@ S$N UO )@@G@@ . GET FIRST STRING ITEM. @B@@@@ TLE,U A2,NUMBER .UP )@@G@@ DELIMITER? @A@@@@ J DELIMITER . YES. @E@@@@ SSL UQ )@@G@@ A2,6 . NO. BRANCH ON TYPE CODE. @^@@@@ J $,UR )@@G@@A2 @B@@@@ J NUM0 . A NUMBER. @B@@@@ J US )@@G@@ SYM0 . A SYMBOL. @E@@@@ J FINIS . STRINUT )@@G@@G VOID. ([A3] = 0.) @]@@@@/DELIMITER .@B@@@@ TE,U A2,'-' UU )@@G@@ . MINUS SIGN?@B@@@@ TNE,U A2,',' . OR COMMA? @G@@@@UV )@@G@@ J NUM0 . YES. SIGNED OR MULTIPLE NUMBER FIELDS. UW )@@G@@@C@@@@ TE,U A2,'+' . NO. PLUS SIGN @D@@@@ TNE,UX )@@G@@U A2,'.' . OR DECIMAL POINT? @G@@@@ J NUM0 UY )@@G@@ . YES. DITTO OR FLOATING-POINT NUMBER. @C@@@@ TE,U A2UZ )@@G@@,'"' . NO. QUOTE MARK? @^@@@@ J FDA0 @G@@@@ VA )@@G@@ LMJ A3,FDA1 . YES. SET PARAMETERS FOR 1/4-WORD ASCII. @#@@@@VB )@@G@@ +ASC,9 @#@@@@ $CAS(''L) @ @@@@ A,H1 A3,CHARTVC )@@G@@AB,A2 @[@@@@. @]@@@@FDA0 . @C@@@@ TE,U A2,'''' .VD )@@G@@ NO. APOSTROPHE? @E@@@@ SYNTAX ERROR . NO. TYPE UNRECOGNVE )@@G@@IZABLE. @F@@@@ LMJ A3,FDA1 . YES. SET PARAMETERS FORVF )@@G@@ FIELDATA. @#@@@@ +FDA,6 @#@@@@ +' ' @^@@@@ VG )@@G@@ A A3,A2 @[@@@@. @]@@@@FDA1 . @E@@@@ S$GSXO NXVH )@@G@@TITM,,W . OPEN CHARACTER FETCH ROUTINE.@E@@@@ L X1,0,A3 VI )@@G@@ . SET FORMAT CODE, SHIFT COUNT.@F@@@@ L A4,1,A3 .VJ )@@G@@ GET BLANKS FOR FINAL JUSTIFICATION.@E@@@@ L,U A0,2,A3 .VK )@@G@@ SET POINTER TO CONCATENATOR. @F@@@@ L,U A1,36 . INITIVL )@@G@@ALIZE JUSTIFYING SHIFT COUNT. @D@@@@ SZ A3 . CLEARVM )@@G@@ RECEIVING AREA. @F@@@@ S A2,R1 . SAVE INITIAL DELIVN )@@G@@MITER (" OR '). @]@@@@FDA2 . @C@@@@ JZ A1,FDA6 .VO )@@G@@ IS WORD FULL YET?@D@@@@ S$G . NO. GET A CHARACTVP )@@G@@ER. @C@@@@ TNE A2,STP . END OF STRING? @F@@@@ VQ )@@G@@ J FDA5 . YES. NO TRAILING DELIMITER FOUND. @C@@@@ VR )@@G@@ TNE A2,R1 . NO. DELIMITER? @^@@@@ J FDA4 VS )@@G@@@]@@@@FDA3 . @D@@@@ LSSL A3,0,X1 . NO. ACCEPT CHARACVT )@@G@@TER. @^@@@@ EX 0,A0 @^@@@@ AN,U A1,0,X1 @^@@@@VU )@@G@@ J FDA2 @]@@@@FDA4 . @C@@@@ S$G VV )@@G@@ . YES. GET ANOTHER.@D@@@@ TNE A2,R1 . ALSO AN DELVW )@@G@@IMITER? @D@@@@ J FDA3 . YES. ACCEPT VERBATIM. VX )@@G@@@H@@@@ J FDA6 . NO. RESULT RJZF IN A3, FORMAT CODE VY )@@G@@IN X1I. @]@@@@FDA5 . @^@@@@ LDSL A3,0,A1 @]@@@@FDA6 VZ )@@G@@ . @F@@@@ S$GRX . CLOSE CHARACTER FETCH ROUTINEWA )@@G@@. @G@@@@ J FINIS . RESULT LJSF IN A3, FORMAT CODWB )@@G@@E IN X1I. @]@@@@/NUM0 . @D@@@@ L A4,THSITM . SAVE WC )@@G@@STRING POINTER. @A@@@@ L A5,(6,,9,12,18,36) @]@@@@NUM1 WD )@@G@@ . @^@@@@ TNE,U A2,' ' @^@@@@ SYNTAX ERROR @C@@@@WE )@@G@@ TNE,U A2,',' . COUNT COMMAS. @^@@@@ SSA A5WF )@@G@@,6 @E@@@@ TNE,U A2,'.' . BUT IF PERIOD ENCOUNTERED, WG )@@G@@@B@@@@ LN,U A5,0 . MAKE NOTE.@]@@@@ S$NE@^@@@@WH )@@G@@ J NUM1 @D@@@@ S A4,NXTITM . RESTORE STRWI )@@G@@ING POINTER.@H@@@@ JN A5,FLP0 . IF '.' ENCOUNTERED, GO WJ )@@G@@DECODE FLOATING POINT. @D@@@@ L A0,A5 . NO '.'. DECWK )@@G@@ODE INTEGER.@F@@@@ AND,U A0,077 . SUBFIELD LENGTH FOR COMWL )@@G@@MA COUNT. @D@@@@ TNZ A1 . LEGAL COMMA COUNT? WM )@@G@@@^@@@@ SYNTAX ERROR @A@@@@ LXI,U A1,OCT . YES. WN )@@G@@@E@@@@ TEP,U A1,3 . UNLESS WHOLE- OR THIRD-WORD, @D@@@@WO )@@G@@ LXI,U A1,HWO . SET HALF-WORD FORMAT. @E@@@@ L WP )@@G@@ X1,A1 . [X1] = FORMAT, FIELD LENGTH. @]@@@@NUM2 . @G@@@@WQ )@@G@@ SZ A4 . SET VOID FIELD DEFAULT VALUE TO ZERO. WR )@@G@@@E@@@@ S$ND ',' . NEXT ITEM END OF SUBFIELD @B@@@@WS )@@G@@ TNE,U A2,ENDSTR . OR FIELD? @A@@@@ J NUM3 WT )@@G@@ . YES. @C@@@@ TNE,U A2,'-' . NO. IF - SIGN, @D@@@@WU )@@G@@ LN,U A4,0 . SET COMPLEMENT MASK. @C@@@@ TE,UWV )@@G@@ A2,'+' . IF EITHER SIGN, @^@@@@ TNE,U A2,'-' @C@@@@WW )@@G@@ S$N . GET NEXT ITEM. @E@@@@ TE,U A2WX )@@G@@,NUMBER . ERROR-FREE NUMERIC ITEM? @A@@@@ SYNTAX ERROR WY )@@G@@ . NO. @E@@@@ L A2,A0 . YES. [A2] = NUMERIC VALWZ )@@G@@UE. @F@@@@ XOR A2,A4 . COMPLEMENT IF PRECEDED BY '-'XA )@@G@@. @D@@@@ DSA A3,0,X1 . SHIFT TO TOP OF A4. @E@@@@XB )@@G@@ TZ A3 . NUMBER TOO LARGE FOR FIELD? @A@@@@ XC )@@G@@ SYNTAX ERROR . YES. @D@@@@ S$N . NO. GXD )@@G@@ET NEXT ITEM. @E@@@@ TNE,U A2,',' . NEXT MUST BE COMMXE )@@G@@A OR END. @^@@@@ J NUM3 @ @@@@ TE,U A2,ENDSTXF )@@G@@R @B@@@@ SYNTAX ERROR . NEITHER. @]@@@@NUM3 . XG )@@G@@@^@@@@ LDSC A4,0,X1 @C@@@@ TE,U A2,ENDSTR . END OXH )@@G@@F INPUT? @E@@@@ J NUM2 . NO. GO ON TO NEXT SUBFIXI )@@G@@ELD. @G@@@@ L A3,A5 . YES. RESULT IN A3, FORMAT CODXJ )@@G@@E IN X1I. @^@@@@ J FINIS @D@@@@/. XK )@@G@@ -[D]- @D@@@@. XL )@@G@@ / \ @F@@@@. --[+]-- --[NNN]--[.]-------------- ---[XM )@@G@@E]-------------- @F@@@@. / \ / \ \ / XN )@@G@@ \ \ @H@@@@. ------------ \ ------XO )@@G@@-----------[+]-----[NN]----- @H@@@@. \ / \ \ XP )@@G@@ / \ \ / / @H@@@@. --[-]-- -------[.XQ )@@G@@]---------[NNN]-- \ --[-]-- / @G@@@@. XR )@@G@@ \ /@G@@@@. XS )@@G@@ ---------------------- @[@@@@XT )@@G@@. @]@@@@FLP0 . @^@@@@ $IF U1110=0 @G@@@@ L XU )@@G@@ A0,DXADDR . SAVE USER'S DELIMITER EXTENSION DATA. @^@@@@ XV )@@G@@ LXI A0,DXC @F@@@@ S A0,SAVE . (N.B.: THIS CLEAXW )@@G@@RS SAVE,,S1.) @D@@@@ L A0,RDX . SAVE USER'S RADIXXX )@@G@@. @^@@@@ S,S2 A0,SAVE @G@@@@ L,U A0,('D'D*/36+'XY )@@G@@E') . DEFINE 'D', 'E' TO BE DELIMITERS. @ @@@@ S A0,DXADDXZ )@@G@@R @^@@@@ L,U A0,2 @^@@@@ S A0,DXC @D@@@@YA )@@G@@ L,U A0,10 . SET RADIX TO DECIMAL. @^@@@@ S YB )@@G@@ A0,RDX @F@@@@ LN,U A4,0 . DP -0 MEANS NO MANTISSAYC )@@G@@ YET FOUND. @^@@@@ LN,U A5,0 @C@@@@ S$N YD )@@G@@ . GET FIRST ITEM. @C@@@@ TNE,U A2,NUMBER . IS IT A NUMYE )@@G@@BER? @F@@@@ J FLP1 . YES. IMPLIED POSITIVE MANTISSYF )@@G@@A. @C@@@@ TNE,U A2,'+' . NO. A + SIGN? @A@@@@ YG )@@G@@ J $+4 . YES. @C@@@@ TE,U A2,'-' . NO. AYH )@@G@@ - SIGN? @F@@@@ J FLP2 . NO. MANTISSA INTEGER PAYI )@@G@@RT VOID. @E@@@@ S,S1 A2,SAVE . YES. MARK MANTISSA NEGAYJ )@@G@@TIVE. @C@@@@ S$N . GET NEXT ITEM. @B@@@@ YK )@@G@@ TE,U A2,NUMBER . A NUMBER? @F@@@@ J FLP2 .YL )@@G@@ NO. MANTISSA INTEGER PART VOID. @]@@@@FLP1 . @E@@@@ TP YM )@@G@@ A0 . YES. NUMBER EXCEEDS 35 BITS? @A@@@@ SYNTAX ERYN )@@G@@ROR . YES. @F@@@@ DSL A0,36 . NO. INTEGER PART YO )@@G@@OF MANTISSA FOUND.@E@@@@ L,U A3,02000+60 . CONVERT TO DOUBLEYP )@@G@@-PRECISION @E@@@@ DLCF A3,A0 . FLOATING-POINT IN A4,AYQ )@@G@@5. @C@@@@ S$N . GET NEXT ITEM. @]@@@@FLP2 YR )@@G@@ . @C@@@@ TE,U A2,'.' . DECIMAL POINT? @A@@@@ YS )@@G@@ SYNTAX ERROR . NO. @D@@@@ S$N . YES. YT )@@G@@GET NEXT ITEM. @B@@@@ TNE,U A2,NUMBER . A NUMBER? @A@@@@YU )@@G@@ J $+3 . YES. @F@@@@ JP A4,FLP3 .YV )@@G@@ NO. ANY MANTISSA INTEGER PART? @D@@@@ SYNTAX ERROR .YW )@@G@@ NO. NO MANTISSA AT ALL.@[@@@@. @H@@@@ TP A0 .YX )@@G@@ FRACTIONAL PART OF MANTISSA EXCEEDS 35 BITS? @A@@@@ SYNTAX ERYY )@@G@@ROR . YES. @D@@@@ L A3,A0 . NO. CONVERT TO DPYZ )@@G@@FP. @#@@@@ SZ A2@ @@@@ L,U A1,02000+60 @I@@@@ZA )@@G@@ DLCF A1,A2 . [A2,A3] = MANTISSA FRACTIONAL PART (AS INZB )@@G@@TEGER). @H@@@@ L A0,NXTITM . FIND NUMBER OF DIGITS KZC )@@G@@ OF FRACTIONAL PART. @F@@@@ AN A0,THSITM . DIVIDE FRACZD )@@G@@TIONAL PART BY 10^K: @E@@@@ L A1,(-2,10) . SET POINTEZE )@@G@@R TO P10-TABLE. @G@@@@ LSSL A0,30 . SHIFT BIT FOR 10ZF )@@G@@^32 TO SIGN POSITION. @D@@@@ JPS A0,$+2 . FOR EACH BZG )@@G@@IT SET, @H@@@@ DFD A2,P10,A1 . SCALE FRACTIONAL PARTZH )@@G@@ BY CORRESPONDING 10^N. @H@@@@ JMGI A1,$-2 . DO FOR 10^ZI )@@G@@32, 10^16, 10^8, 10^4, 10^2, 10^1. @G@@@@ DFA A4,A2 .ZJ )@@G@@ DONE. ADD FRACTIONAL TO INTEGER PART. @F@@@@. AT THIS POINT, [A4,A5]ZK )@@G@@ = MAGNITUDE OF MANTISSA AS DPFP NUMBER. @C@@@@ S$N ZL )@@G@@ . GET NEXT ITEM. @]@@@@FLP3 . @D@@@@ SZ X1 ZM )@@G@@ . CLEAR EXPONENT SIGN. @B@@@@ TNE,U A2,'E' . AN 'EZN )@@G@@'? @^@@@@ J $+3 @B@@@@ TE,U A2,'D' .ZO )@@G@@ OR A 'D'? @A@@@@ J FLP4 . NO. @E@@@@ L,U ZP )@@G@@ X1,1 . YES. SET EXPONENT SIGN TO +. @C@@@@ S$N ZQ )@@G@@ . GET NEXT ITEM. @B@@@@ TNE,U A2,NUMBER . A NUMZR )@@G@@BER? @A@@@@ J FLP5 . YES. @]@@@@FLP4 . @C@@@@ZS )@@G@@ TNE,U A2,'+' . IF A + SIGN, @E@@@@ L,U X1ZT )@@G@@,1 . SET EXPONENT SIGN TO +. @C@@@@ TNE,U A2,'-' ZU )@@G@@ . IF A - SIGN, @B@@@@ L,U X1,-1 . SET TO -. ZV )@@G@@@E@@@@ TNZ X1 . 'E' AND/OR + OR - FOUND? @A@@@@ZW )@@G@@ J FLP7 . NO. @E@@@@ S$NN .ZX )@@G@@ YES. NEXT ITEM A NUMBER? @A@@@@ SYNTAX ERROR . NO. ZY )@@G@@@]@@@@FLP5 . @C@@@@ JMGI X1,FLP6 . - SIGN FOUND? ZZ )@@G@@@E@@@@ LN A0,A0 . YES. COMPLEMENT EXPONENT @C@@@@AA )@@G@@ A,U A0,64 . AND ADD 64. @E@@@@ DFM A4AB )@@G@@,(1.0D*-64) . DIVIDE MANTISSA BY 10^64. @C@@@@ TP A0 AC )@@G@@ . STILL NEGATIVE? @A@@@@ SYNTAX ERROR . YES. @]@@@@AD )@@G@@FLP6 . @E@@@@ L A1,(-2,10) . NO. SET POINTER TO P10-AE )@@G@@TABLE.@G@@@@ LSSL A0,30 . SHIFT BIT FOR 10^32 TO SIGN PAF )@@G@@OSITION. @C@@@@ JPS A0,$+2 . FOR EACH BIT SET,@G@@@@AG )@@G@@ DFM A4,P10,A1 . SCALE MANTISSA BY CORRESPONDING 10^N. AH )@@G@@@H@@@@ JMGI A1,$-2 . DO FOR 10^32, 10^16, 10^8, 10^4, 10AI )@@G@@^2, 10^1. @C@@@@ S$N . GET NEXT ITEM. @G@@@@AJ )@@G@@/. AT THIS POINT THE MAGNITUDE OF THE FINAL RESULT IS COMPLETELY DETER- AK )@@G@@@F@@@@. MINED AS A DOUBLE-PRECISION FLOATING-POINT NUMBER IN A4,A5. AL )@@G@@@]@@@@FLP7 . @C@@@@ TE,U A2,ENDSTR . END OF STRING? AM )@@G@@@A@@@@ SYNTAX ERROR . NO. @H@@@@ TLE A4,(0220AN )@@G@@000,0) . WITHIN RANGE OF SINGLE-PRECISION NUMBERS? @ @@@@ TLE AO )@@G@@ A4,(0160040,0)@A@@@@ SYNTAX ERROR . NO. @F@@@@ AP )@@G@@ L A0,A4 . YES. ROUND MANTISSA TO 27 BITS. @ @@@@ AQ )@@G@@ AND A0,(-0,0,0) @ @@@@ L A2,(1*/32) @^@@@@ AR )@@G@@ DFA A4,A1 @E@@@@ FCL A3,A4 . COMPRESS TO SINGLAS )@@G@@E PRECISION.@E@@@@ TZ,S1 SAVE . IF MANTISSA SIGN NEGATIAT )@@G@@VE, @D@@@@ LN A3,A3 . COMPLEMENT RESULT. @G@@@@AU )@@G@@ L,H2 A0,SAVE . RESTORE USER'S SCAN$ PACKET CONTENTS. AV )@@G@@@ @@@@ S A0,DXADDR @^@@@@ L,S3 A0,SAVE @^@@@@AW )@@G@@ S A0,DXC @^@@@@ L,S2 A0,SAVE @^@@@@ S AX )@@G@@ A0,RDX @C@@@@ LXI,U X1,FLP . SET FORMAT CODE. @^@@@@AY )@@G@@ J FINIS @[@@@@. @#@@@@P10 1.0D*+1 @#@@@@ AZ )@@G@@ 1.0D*+2 @#@@@@ 1.0D*+4 @#@@@@ 1.0D*+8 @#@@@@ BA )@@G@@ 1.0D*+16 @#@@@@ 1.0D*+32 @[@@@@. @ @@@@ $ELSE IFBB )@@G@@ U1110=1 @H@@@@/. FOR COMPARISON WE RECODE THIS PORTION EXPLOITING THBC )@@G@@E 1110 BYTE HARDWARE. @[@@@@. @D@@@@ DL A0,SR1 .BD )@@G@@ SAVE USER'S SR1-J0. @^@@@@ DL A4,SR3 @G@@@@ SZ BE )@@G@@ A2 . CONVERT START COLUMN TO BYTE OFFSET. @^@@@@ BF )@@G@@ DI,U A2,6 @^@@@@ LSSL A3,33 @^@@@@ DSL A2BG )@@G@@,33 @E@@@@ A A3,(JRG(0)) . BYTE POINTER VALUE READY. BH )@@G@@@F@@@@ L A2,THSITM . COLUMN NUMBER JUST BEFORE ENDSTR BI )@@G@@@A@@@@ A,U A2,1 . + 1 @F@@@@ AN A2,NXTITBJ )@@G@@M . - START COLUMN = BYTE COUNT. @B@@@@ LSSL A2,27 BK )@@G@@ . PUT IN Q1. @E@@@@ SZ SR1 . SET UP STAGING REBL )@@G@@GISTERS, J0.@^@@@@ SZ SR2 @^@@@@ DS A2,SR3 BM )@@G@@@F@@@@ BF A3,SLOC . DO THE BYTE-TO-FLOATING CONVERSION.BN )@@G@@@G@@@@ L A2,SR3 . RESCUE STATUS AND RESTORE SR1-SR3, BO )@@G@@J0. @^@@@@ DS A0,SR1 @^@@@@ DS A4,SR3 @C@@@@BP )@@G@@ LXI,U X1,FLP . SET FORMAT CODE. @E@@@@ JZ A2BQ )@@G@@,FINIS . FINISHED WITH RESULT IN A3 @G@@@@ SYNTAX ERROR BR )@@G@@ . UNLESS ANY ERROR BITS WERE RETURNED. @^@@@@ $ENDF U1BS )@@G@@110 @]@@@@/SYM0 . @F@@@@ L,U X11,I$T . SET FORMAT BT )@@G@@CODE TO THIRD-WORD MODE.@ @@@@ S X11,I$FMT @E@@@@ BU )@@G@@ MSI,XU A3,-6 . RIGHT-JUSTIFY THE SYMBOL. @^@@@@ DSL BV )@@G@@ A0,72,A3@D@@@@ L A4,A1 . [A4] = SYMBOL, RJZF. BW )@@G@@@F@@@@ TE,U A4,'A' . CHECK FOR ABBREVIATED MNEMONICS. BX )@@G@@@^@@@@ TNE,U A4,'AN' @^@@@@ J $+5 @^@@@@ BY )@@G@@ TNE,U A4,'L' @^@@@@ J $+3 @^@@@@ TE,U A4BZ )@@G@@,'S' @C@@@@ J SYM1 . NONE OF ABOVE. @F@@@@ CA )@@G@@ L A5,ITEMS . ONE OF ABOVE. RESCUE POINTERS. @]@@@@ CB )@@G@@ S$N @C@@@@ TNE,U A2,ENDSTR . SCAN FOR A BLANK.@^@@@@ CC )@@G@@ SYNTAX ERROR @^@@@@ TE,U A2,' ' @^@@@@ J $-CD )@@G@@4 @D@@@@ S$NS . GET FOLLOWING SYMBOL. @B@@@@CE )@@G@@ SYNTAX ERROR . NO-FIND. @^@@@@ L A3,A0 CF )@@G@@@^@@@@ SSL A3,18 @^@@@@ TOP,U A3,1*/5 @C@@@@ CG )@@G@@ TLE,U A3,'A0 ' . IF AMONGST A0-A3,@^@@@@ J $+3 CH )@@G@@@^@@@@ TLE,U A3,'A4 '@D@@@@ L,U A3,'A ' . FORCCI )@@G@@E A-MNEMONIC. @^@@@@ SSL A0,30 @C@@@@ TE,U A0CJ )@@G@@,'J' . IF J-REGISTER @D@@@@ TNE,U A0,'S' . OR SCK )@@G@@TAGING REGISTER, @D@@@@ L,U A3,'R ' . FORCE R-MNEMONICCL )@@G@@. @G@@@@ LSSL A3,18 . [A3] = 'A', 'X', 'R', 'S' OR CM )@@G@@'J', LJ. @G@@@@ LDSC A3,6 . 'L' NOW 'LX', 'LA' OR 'CN )@@G@@LR', FOR EXAMPLE. @E@@@@ S A5,ITEMS . RESTORE STRING POCO )@@G@@INTERS. @]@@@@SYM1 . @^@@@@ L A0,A4 @E@@@@ CP )@@G@@ LMJ X11,ASMFJA . SEARCH ASM MNEMONIC TABLE. @B@@@@ SYNTCQ )@@G@@AX ERROR . NO-FIND. @F@@@@ L X1,A1 . FOUNDCR )@@G@@. [X1] = J-SUBCODE OR -0. @D@@@@ LM A5,A2 . [A5] CS )@@G@@= A-SUBCODE OR +0.@B@@@@ LSSL A5,36-4 . A,0 (4,32).@E@@@@CT )@@G@@ SSL A3,12 . SAVE J,A,XHI,U TEST CODES. @^@@@@ CU )@@G@@ S A3,UCODE@^@@@@ SSL A3,6 @^@@@@ S,H1 A3CV )@@G@@,SAVE @B@@@@ L A4,A0 . [A4] = F. @]@@@@ S$N CW )@@G@@@D@@@@ TP X1 . J-DESIGNATOR POSSIBLE? @D@@@@ CX )@@G@@ TE,U A2,',' . AND NEXT A COMMA? @D@@@@ J SYCY )@@G@@M4 . NO. END OF F,J FIELDS. @E@@@@ S$NN .CZ )@@G@@ YES. J-DESIGNATOR A NUMBER? @^@@@@ J SYM2 @D@@@@ DA )@@G@@ TGE,U A0,XU . YES. LEGAL (J < 020)? @^@@@@ SYNTAX ERDB )@@G@@ROR @D@@@@ TG,U A0,4 . YES. IF 4 <= J <= 7, @^@@@@DC )@@G@@ TGE,U A0,7 @^@@@@ J SYM3 @F@@@@ L,U DD )@@G@@ X11,I$B . RESET FORMAT CODE TO BYTE MODE. @ @@@@ S DE )@@G@@ X11,I$FMT @^@@@@ J SYM3 @]@@@@SYM2 . @F@@@@DF )@@G@@ TNE,U A2,SYMBOL . IF NOT A NUMBER, TRY FOR A SYMBOL @E@@@@DG )@@G@@ TGE,U A3,3 . OF AT MOST 3 CHARACTERS. @F@@@@ DH )@@G@@ SYNTAX ERROR . NOT A SYMBOL OR > 3 CHARACTERS. @B@@@@ DI )@@G@@ DSL A0,36+18 . SYMBOL OK. @^@@@@ L A0,(1,0)@C@@@@DJ )@@G@@ TNE,U A1,'W ' . 'WHOLE WORD'? @B@@@@ J SYDK )@@G@@M3 . YES. J = 0.@F@@@@ L,U R1,XU . NO. SEARCH DL )@@G@@J-DESIGNATOR TABLE. @A@@@@ SE,H1 A1,JDSTAB+1,*A0 @^@@@@DM )@@G@@ J $+2 @C@@@@ J SYM3 . FOUND. 0,A0DN )@@G@@ = J. @E@@@@ L,U R1,XU . NOT FOUND. TRY QUARTER-WORD. DO )@@G@@@^@@@@ LXM,U A0,0 @A@@@@ SE,H2 A1,JDSTAB+1,*A0 DP )@@G@@@E@@@@ SYNTAX ERROR . SYMBOL NOT A J-DESIGNATOR. @F@@@@DQ )@@G@@ L,U X11,I$Q . J IS QUARTER-WORD. SET FORMAT. @ @@@@DR )@@G@@ S X11,I$FMT @]@@@@SYM3 . @D@@@@ L,U X1DS )@@G@@,0,A0 . RETAIN J-VALUE IN X1. @]@@@@ S$N @]@@@@SYM4 . DT )@@G@@@C@@@@ LSSL A4,4 . MAKE ROOM FOR J. @H@@@@ A DU )@@G@@ A4,X1 . [A4] = 0,F,J (26,6,4). (JGD WILL BE WRONG.) @C@@@@DV )@@G@@ TE,U A2,' ' . NEXT A BLANK? @^@@@@ SYNTAX ERDW )@@G@@ROR @C@@@@ L A1,ACODE . YES. GET A-CODE. @D@@@@ DX )@@G@@ TE,U A1,6 . NO A-FIELD ALLOWED @G@@@@ JNZ A1DY )@@G@@,$+3 . OR IS A A SUBCODE (CURRENTLY IN A5)? @H@@@@ LDSLDZ )@@G@@ A4,4+4+2+16 . YES. [A4]=F,J,A,0,0,0 (6,4,4,4,2,16), [A5]=0. @^@@@@EA )@@G@@ J SYM8 @D@@@@ S$NS . NO. GET SYMEB )@@G@@BOL IN A0. @B@@@@ J SYM5 . NO-FIND. @D@@@@ EC )@@G@@ LMJ X11,REGADDR . GET NUMERIC CODE IN A0.@B@@@@ SYNTAX ERED )@@G@@ROR . NO-FIND. @C@@@@ L A1,ACODE . GET A-CODE EE )@@G@@AGAIN.@D@@@@ TE,U A1,5 . IS INSTRUCTION 'JGD'? @D@@@@EF )@@G@@ J SYM6-1,A1 . NO. BRANCH ON A-CODE. @F@@@@ L,U EG )@@G@@ A4,070*/8,A0 . YES. [A4] = 0,070,JA (22,6,8). @^@@@@ J EH )@@G@@ SYM7 @]@@@@SYM5 . @C@@@@ L A1,ACODE . GET AEI )@@G@@-CODE AGAIN.@C@@@@ TNE,U A2,NUMBER . A-FIELD A NUMBER @G@@@@EJ )@@G@@ TE,U A1,2 . AND J,F = NOP, JK, HJK (A-CODE = 2)? EK )@@G@@@^@@@@ SYNTAX ERROR @C@@@@ J $+2 . YES. EL )@@G@@[A0] = A. @]@@@@SYM6 . @D@@@@ AN,U A0,A0 . CODE EM )@@G@@1: A-REGISTER. @C@@@@ NOP 0,0 . CODE 2: ABSOLUTE.EN )@@G@@@D@@@@ A,U A0,R1-1 . CODE 3: X-REGISTER. @D@@@@ EO )@@G@@ ANU,U A0,R1-1 . CODE 4: R-REGISTER. @^@@@@ DSL A1EP )@@G@@,4 @C@@@@ TZ A1 . TRUNCATION ERROR?@^@@@@ EQ )@@G@@ SYNTAX ERROR @D@@@@ L A3,A2 . NO. [A3] = A,0 (4ER )@@G@@,32). @F@@@@ LDSC A3,4 . NO. [A4] = 0,F,J,A (22,6,4,4)ES )@@G@@. @]@@@@SYM7 . @F@@@@ LSSL A4,4+2+16 . [A4] = F,J,ET )@@G@@A,0,0,0 (6,4,4,4,2,16). @D@@@@ SZ A5 . CLEAR U-FIEEU )@@G@@LD CELL. @^@@@@ S$ND ',' @F@@@@ J SYM13 EV )@@G@@ . (IF FJ = 'QB', END OF COMMAND.) @]@@@@SYM8 . @C@@@@ EW )@@G@@ L A1,XCODE . GET XHI-CODE. @B@@@@ TNE,U A1,3 EX )@@G@@ . IF CODE 3, @B@@@@ A,U A4,1*/17 . SET H-BIT.@C@@@@EY )@@G@@ S$ND '*' . I-BIT SPECIFIED? @^@@@@ J $+EZ )@@G@@4 @D@@@@ A,U A4,1*/16 . YES. ADD TO RESULT. @D@@@@FA )@@G@@ SZ X1 . CANCEL ANY IMMEDIATE J.@]@@@@ S$N FB )@@G@@@C@@@@ TE,U A2,SYMBOL . NEXT A SYMBOL? @A@@@@ J FC )@@G@@ SYM11 . NO. @A@@@@ TLE,U A3,4 . YES. @C@@@@FD )@@G@@ LMJ X11,REGADDR . REGISTER NAME? @A@@@@ J SYFE )@@G@@M9 . NO. @A@@@@ L A5,A0 . YES. @^@@@@ FF )@@G@@ J SYM12 @]@@@@SYM9 . @D@@@@ TLE,U A3,7 .FG )@@G@@ MORE THAN 6 CHARACTERS?@A@@@@ J SYM10 . NO. @D@@@@FH )@@G@@ TE A1,('$'L) . EXACTLY 7, 7TH A '$'? @A@@@@ SYNTFI )@@G@@AX ERROR . NO. @F@@@@ LN A0,A0 . YES. COMPLEFJ )@@G@@MENT FIRST 6 CHARACTERS.@]@@@@SYM10 . @G@@@@ L A1,(1,-1FK )@@G@@) . SEARCH FOR MATCH IN ER MNEMONIC TABLE. @ @@@@ L,U R1FL )@@G@@,ERTABL @ @@@@ SE A0,ERTAB+1,*A1@B@@@@ SYNTAX ERFM )@@G@@ROR . NO-FIND. @F@@@@ L,U A5,0,A1 . FOUND. [A5]FN )@@G@@ = ABSOLUTE EQUIVALENT. @^@@@@ J SYM12 @]@@@@SYM11 . FO )@@G@@@D@@@@ TE,U A2,NUMBER . NOT A SYMBOL. A NUMBER?@A@@@@ FP )@@G@@ J $+3 . NO. @C@@@@ L A5,A0 . YES. FQ )@@G@@GET IT. @^@@@@ J SYM12 @B@@@@ TE,U A2,'-' FR )@@G@@ . NO. A SIGN?@A@@@@ SYNTAX ERROR . NO. @]@@@@ FS )@@G@@ S$NN@^@@@@ SYNTAX ERROR @C@@@@ XOR A0,(0,-0) .FT )@@G@@ YES. NEGATE IT. @^@@@@ L A5,A1 @C@@@@SYM12 . FU )@@G@@ . [A5] = U-FIELD. @E@@@@ L A0,THSITM . SAVE FV )@@G@@POINTER TO U-FIELD IN @E@@@@ S A0,J0U . CASE OF FIFW )@@G@@ELD OVERFLOW. @B@@@@ S$ND ',' . COMMA NEXT?@A@@@@FX )@@G@@ J SYM13 . NO. @D@@@@ S$ND '*' .FY )@@G@@ YES. H-BIT SPECIFIED? @A@@@@ J $+4 . NO. @E@@@@FZ )@@G@@ TOP,U A4,1*/17 . YES. SET UNLESS ALREADY SET. @^@@@@ GA )@@G@@ A,U A4,1*/17@]@@@@ S$N @C@@@@ TE,U A2,SYMBOL .GB )@@G@@ NEXT A SYMBOL? @^@@@@ SYNTAX ERROR @D@@@@ LMJ X1GC )@@G@@1,REGADDR . YES. REGISTER NAME? @^@@@@ SYNTAX ERROR @E@@@@GD )@@G@@ SZ X1 . YES. CANCEL ANY IMMEDIATE J. @B@@@@ GE )@@G@@ TGE,U A0,A3 . X-REG? @^@@@@ SYNTAX ERROR @E@@@@GF )@@G@@ LSSL A0,18 . YES. COMBINE WITH F,J,A. @^@@@@ GG )@@G@@ A A4,A0 @]@@@@ S$N @]@@@@SYM13 . @C@@@@ TE,UGH )@@G@@ A2,ENDSTR . END OF INPUT? @A@@@@ SYNTAX ERROR .GI )@@G@@ NO. @F@@@@ L A2,J0U . YES. RESTORE POINTER TO U-FIEGJ )@@G@@LD. @ @@@@ S A2,THSITM @D@@@@ L A2,(0,-0GK )@@G@@) . SET MASK FOR U-FIELD. @E@@@@ TLEM,U X1,U . UNLESGL )@@G@@S IMMEDIATE AND I=X=0, @D@@@@ SSL A2,2 . USE ONLY 1GM )@@G@@6 BITS. @D@@@@ AND A2,A5 . [A3] = TRIMMED U-FIELD.GN )@@G@@@E@@@@ TE A3,A5 . CHECK FOR FIELD OVERFLOW. @^@@@@GO )@@G@@ SYNTAX ERROR @E@@@@ A A3,A4 . [A3] = COMPGP )@@G@@LETE INSTRUCTION. @C@@@@ LXI X1,I$FMT . GET FORMAT CODE. GQ )@@G@@@[@@@@. @]@@@@FINIS . @C@@@@ L A0,A3 . GET FGR )@@G@@INAL VALUE. @C@@@@ L A1,X1 . GET FORMAT CODE. @^@@@@GS )@@G@@ SSL A1,18 @D@@@@ L,U A2,1 . SET NORMAL GT )@@G@@RETURN. @^@@@@ J EXIT @]@@@@ERROR . @D@@@@ GU )@@G@@ L,U A0,0,A0 . CLEAN UP ERROR ADDRESS.@G@@@@ L A1GV )@@G@@,THSITM . [A1] = NUMBER OF CHARACTER IN ERROR. @C@@@@ SZ GW )@@G@@ A2 . SET ERROR RETURN.@]@@@@EXIT . @D@@@@ L GX )@@G@@ X1,SAVEX1 . RESTORE X1, A4, A5. @^@@@@ DL A4,SVA45GY )@@G@@@ @@@@ A A2,RETURN @^@@@@ J 0,A2 @]@@@@GZ )@@G@@/$(2) . @^@@@@I$FMT $EQUF $,,H1 @^@@@@RETURN $EQUF $,,H2 HA )@@G@@@]@@@@ +0,0@^@@@@JCODE $EQUF $,,S1 @^@@@@ACODE $EQUF $,HB )@@G@@,S2 @^@@@@XCODE $EQUF $,,S3 @^@@@@J0U $EQUF $,,H1 @^@@@@HC )@@G@@UCODE $EQUF $,,S4 @^@@@@SAVE +0,0,0,0,0,0 @]@@@@SVA45 +0D HD )@@G@@@]@@@@SAVEX1 +0 @^@@@@/ $IF TEST @A@@@@. TEST PROGRAM. THE )@@G@@O BE RUN UNDER DX.@]@@@@$(3) $LIT@]@@@@START . @#@@@@ E$OPHF )@@G@@EN @^@@@@ J AGAIN @]@@@@ERR . @F@@@@ AN,UHG )@@G@@ A0,DCDWORD+1 . FIND ADDRESS OF ERROR DETECTION. @A@@@@ L,U HH )@@G@@ A4,0,A0 . SAVE.@^@@@@ L,U A2,' ' @^@@@@ JGD HI )@@G@@ A1,$+2 @^@@@@ J $+3 @]@@@@ E$FD@^@@@@ HJ )@@G@@ JGD A1,$-1 @E@@@@ E$FD '^' . MARK CHARACTER INHK )@@G@@ ERROR. @]@@@@ E$SP@F@@@@ E$OCTF 5,A4 . GIVE HL )@@G@@ADDRESS WHERE ERROR FOUND. @#@@@@ E$PRINT @#@@@@BREAK DXBRHM )@@G@@K @]@@@@AGAIN . @D@@@@ R$EAD ((ER EXIT$),RBUF). READ A HN )@@G@@STRING. @^@@@@ JZ A0,BREAK@E@@@@ SN A0,RBUF,HO )@@G@@A0 . TERMINATE WITH A RUBOUT. @B@@@@ S$CAN RPKT .HP )@@G@@ OPEN SCAN$.@ @@@@ LMJ X11,DCDWORD @C@@@@ J ERHQ )@@G@@R . ERROR RETURN. @G@@@@ J $,A1 . NORMAHR )@@G@@L RETURN. ENCODE RESULT ACCORDING @E@@@@ J WWORD .HS )@@G@@ TO FORMAT CODE RETURNED. @#@@@@ DXERR 2 @^@@@@ J HT )@@G@@ HWORD @^@@@@ J FLPT @#@@@@ DXERR 5 @^@@@@HU )@@G@@ J FDATA @^@@@@ J ASCII @]@@@@ NOP HV )@@G@@@]@@@@ NOP @B@@@@ S A0,A6 . I$ FORM. @A@@@@HW )@@G@@ L A4,(6,4,4,4,2,16) @^@@@@I$FLD DSL A2,72 @#@@@@HX )@@G@@ SZ A5@^@@@@ LDSL A3,6 @^@@@@ LDSL A5HY )@@G@@,0,A3 @^@@@@ A,U A3,2 @^@@@@ DI,U A2,3 @^@@@@HZ )@@G@@ L A0,A5 @^@@@@ L A1,A2 @#@@@@ E$OCIA )@@G@@TF @]@@@@ E$SP@^@@@@ JNZ A4,I$FLD@^@@@@ J IB )@@G@@ PRINT @^@@@@ASCII L A3,A0 @^@@@@ L,U A1,3 IC )@@G@@@#@@@@ SZ A2@^@@@@ LDSL A2,9 @#@@@@ TZ ID )@@G@@ A2@A@@@@ L,S5 A2,CHARTAB-040,A2 @]@@@@ E$FD@ @@@@IE )@@G@@ JGD A1,ASCII+2 @^@@@@ J PRINT @^@@@@FDATA IF )@@G@@ S A0,EBUF$@^@@@@ J PRINT @#@@@@FLPT E$FLP IG )@@G@@@^@@@@ J PRINT @^@@@@HWORD S A0,A4 @^@@@@ IH )@@G@@ SSL A0,18 @#@@@@ E$OCTF 6 @^@@@@ E$FD ',' II )@@G@@@^@@@@ E$OCTF 6,A4 @^@@@@ J PRINT @#@@@@WWORD IJ )@@G@@ E$OCTF 12@#@@@@PRINT E$PRINT @^@@@@ J AGAIN @]@@@@IK )@@G@@/$(4) . @A@@@@RPKT S$PKT RBUF 'SXT',1,('$') @#@@@@RBUF $RESIL )@@G@@ 12@#@@@@ $ENDF @ @@@@ $END TEST->START _@@@@@IM )@@G@@)@@[N[KO^K)@^@K^@@/K@@@7/KI@@C;C)@@A/K@@@G?8)@[@/,0@@@ @@@@[9(@@@]AA0@@@IN )@@G@@A@K@@^AA@KY7)@E[N@K@K@K[@@@@@@/K@@@S%8)@@"/K@@@7:8)@@.%8)@@+/K@@@7:8)@@,IO )@@G@@%8)@@-/K@@AK/K@@#RAB@KY7)@O[N@[]@^K^@@@@@@G@0@@I @@A@@A/\0@@Y/\@@APIP )@@G@@%8)@@'GC"@@@^@)^@)@@B@@D/\0@@YAC@KY7)@Y[MK)]@@K^C@0@@@')A)@@/@K@@5[@)@[[IQ )@@G@@ @@@@JC8K@@=C8J@@]C[J@@[R@Z@@@/,0@@@RJO@@ AD@KY7)@*[MK[@@K^C@0@@@@:@)@[[IR )@@G@@')A)@@/K@@@&H8L@@@')G@@@;*1@@@/K@@@0:@)@[[/K@@@4:?=@@[AE@KY7)@2[N@K[]@L@IS )@@G@@^@K@@@:8)@@,/\@@AP:8)@@ C[K@AWCD^@@ /K@@AK/,0@@@;?.@@@/K@@@5/K@@@?AF@KY7IT )@@G@@)@/[M[]@P@^@@@@@@@(@@@@H+8@@@_C@@@@L/HK@[&[H^@@ /K@@@9/,0@@@D9K@@@:8)@@.IU )@@G@@;LK@@AAG@KY7)[A[N@@@K)A^@@@@@@/K@@[-:8)@#@/,0@@@R_@@@, @@@@KR@K@@H&;K@@#IV )@@G@@=8K@@#&;K@@[/\@@APAH@KY7)[K[M@K)@^@@@@@@@@;O1@@@-@)@@KC@)@@G/\@@AP%8)@[@IW )@@G@@/,0@@@:8)@@-%8)@@+D9@@@@:8)@@-AI@KY7)[U[MK^C@[@^@^@@@@/K@@[F%8)@#@;>[@@@IX )@@G@@/\@@AP%8)@#@/K@@[-:8)@@,/,0@@@/\@@AP*@@@@JAJ@KY7)[=[MK@KL[E@@@@@@@C8@@@]IY )@@G@@[C^@@AC8@@AX[0@@@[C4^@@][@@@@[&7^@@@CC^@@A/K@@AKC@0@@LAK@KY7)[,[M@^C@[@^IZ )@@G@@@@@@@@/K@@[;:8)@@+/K@@[":8)@[@/,0@@@D9K@@@D9@@@@[4^@@]C8@@@E[4^@@@AL@KY7JA )@@G@@)[8[MK^ ]@@K[@@@@@C80@K/;G@@@=/\@@AP0@@@@G/K@@]^%8)@[@/,0@@@[4)@@[/K@@]^JB )@@G@@%8)@@-AM@KY7)]][MK)@^[]@@K^[@@0@@@@G/\@@AP/D@@]U/K@@]F:8)@[@/,0@@@/\@@APJC )@@G@@%8)@@./,0@@@"40@@GAN@KY7)]G[N@@@K[@@@@@@@@'C@@]R;*@@@YC@K@AZHC^@@ CG^@@ JD )@@G@@"4K@@IC8K@K/ @@@@IC@0@@G/\@@APAO@KY7)]Q[N@K[]@@^@K@@@@R8K@@[/K@@]<%8)@@DJE )@@G@@/K@@]Z:8)@@E @@@@[/,0@@@"-@@@I/:K@]P"?!@#FAP@KY7)])[N]@@K@@K^C[0@@/,0@@@JF )@@G@@/K@@]7(@@@@[R8K__":8)@@-R8K@@[:8)@@+/K@@]::8)@[@/,0@@@AQ@KY7)]%[N@K@K[@KJG )@@G@@[@@@@@'C@@]5;*@@@YC@K@AZ/\@@AP0@@@@G"(@@A)G8@@[@D@@@@G/*K@]1/\@@APAR@KY7JH )@@G@@)]4[N@K^C@[@K^[@^@+@@@A=C@@@@K/\@@AP?[@@AAT@KY7)#C[U^@@@@@@@@@@@@KV\:0)@@@@@@KI$^@@@@@@@@KB2@@@JK )@@G@@@@@@@@K^*@@@/K@@AK&8K@@^[4^@@]AU@KY7)#N[U@^^@@@@:9@@AN%9@@@AC[@@@H;GJ@[CJL )@@G@@T/0__9AE0@@@R'0@@C%]!0!UL:$WQ!\0K@@@K6<-\DAV@KY7)#Y[N@^@K[]@@K@@@@%8)@@ JM )@@G@@/\@@AP:8)@#@/,0@@@C[O@@ /K@@#9%9@@@S/K@@#<:9@@@L/K@@#80@@);C0@@MC@0@@G/\@@AP/,0@@@/K@@#=AX@KY7JO )@@G@@)#2[M@@^C]O@@@@@@@/\@@AP/,0@@@C@@@@K[[O@@ ;=0@@A;*0@@MC80R :8@@@S%8@@@JJP )@@G@@;C@@@YAY@KY7)#/[M@KL[^C@@@@@@@0@@@@[/,0@@@C[@@@G[C0@@[;C0@@A[*0@@[;C0@@GJQ )@@G@@;(K@@)E[K@@IR@K@@HAZ@KY7)^A[MK^C[4@K@K@@@@R'0@@E/K@@^%8)@@,BA@KY7)^K[N[K@K[@^@@@@@@N8K@@J/K@@^<:8KW JS )@@G@@C@@@A&;G@@@6/\@@AP!80@@^:8)@]@/K@@^%8)@]@JZ )@@G@@/,0@@@ @@@@[G9@K@@/K@@ N/,0@@@R_@@@*G9@)@@BH@KY7) Q[N]@!@^@K^[@^@@C@K@A*KA )@@G@@D@@@@G/\@@AP%@K@A$/K@@ Z?80@@B/K@@ \C[K@@G/K@@ U/,0@@@BI@KY7) )[M(@S-@U)KB )@@G@@]@C@)@%8)@@-/K@@ \C[K@@G/K@@ (%8)@[@/K@@ \C9X@@@/\@@AP2@H)@[N8K@@@BJ@KY7KC )@@G@@) %[F@K)BK^@^^K)A@@@@@@@/,0@@@R_@@@,[C@@@[CC^@@ C[K@@H-@@@A(/\@@AP/,0@@@KD )@@G@@/\@@APBK@KY7) 3[F@^C[=@^C@[@@@@@@@@@/\@@AP%8)@]@/,0@@@G9@)@@>9@)@@/K@@ 'KE )@@G@@/,0@@@R_@@@*/K@@A^BL@KY7) /[N]@!@[@[]@@K@@/\@@AP%8)@#@/,0@@@G[@@@G;*@@@MKF )@@G@@/\@@AP!8@@@K @@@@[/\@@AP/,0@@@BM@KY7)AA[N[^@@K[[@@@@@@&CK@@@G@0@@K/\@@APKG )@@G@@%@0@@L+@)@@L;C)@@]$8K@@IC@)@A([C=@@ CC)@@[BN@KY7)AK[M@K@^ [@@@@@@@9!@@@]KH )@@G@@R@K@@^ @@@@ICCO@@ C8G@@@/K@@ASC8)@@[;CK@@MC@K@@[C@@@@JBO@KY7)AU@N[@@@@@@KI )@@G@@)@@@?@@@@@@@)AW@E@A@DGM=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KI@@@G^)@@@BP@KY7KJ )@@G@@)AX[U@@@@@@@$ @@[@@@^@@@@@__@@@@I@)@@@M@@@@@D'O9'UG?%B_%__.@@E@@@@@EKK )@@G@@@@@@@DBQ@KY7)A*@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KL )@@G@@@@@@@@@@@___@@[__"BR@KY7@@^@@#@@B@@I@@<@@[@@$@@@@@E@@@@@@@A%@@@@@ SNEXT$KM )@@G@@ CHARTAB SGSXO$ SG$ SGRX$ SNEXT$E SNEXT$KN )@@G@@D SNEXT$N SNEXT$S ASMFJA JDSTAB REGADDR ERTABLKO )@@G@@ ERTAB DCDWORD @@[@@@@@@@@@C@0@@G/\@@APAO@KY7)]Q[N@K[]@@^KP )@@G@@@K@@@@R8K@@[/K@@]<%8)@@D/K@@]Z:8)@@E @@@@[/,0@@@"-@@@I/:K@]P"?!@#FAP@KY7KQ )@@G@@*[S@@@*SDFF*@G@@@@TEST EQU 1/1/1 . ON FOR SELF-TEST, OFF FKR )@@G@@OR SUBROUTINE. @[@@@@. ^ON @G@@@@. THIS ROUTINE RENDERS INTO PRINTABLKS )@@G@@E FIELDATA ALL POSSIBLE 7-BIT ASCII @G@@@@. CODES. ENTERED AT EASC$, THKT )@@G@@E LOW 7 BITS OF EACH OF THE FOUR QUARTERS @F@@@@. OF [A0] ARE INTERPRETEKU )@@G@@D AS AN ASCII CHARACTER AND ENCODED INTO A@ @@@@. 3-COLUMN FIELD AS FOLLKV )@@G@@OWS: @G@@@@. 1. IF THE ASCII CODE HAS A FIELDATA EQUIVALENT, THE CHKW )@@G@@ARACTER IS @F@@@@. CENTERED IN THE FIELD, E.G., UPPER-CASE 'A' IS ENCODKX )@@G@@ED ' A '. @E@@@@. 2. IF THE CODE IS NON-PRINTING, A 2-LETTER MNEMOKY )@@G@@NIC IS@E@@@@. LEFT-JUSTIFIED IN THE FIELD, E.G., STX IS ENCODED 'SX '. KZ )@@G@@@G@@@@. 3. IF THE ASCII CODE IS A LOWER-CASE LETTER, IT IS PRECEDED LA )@@G@@WITH A@G@@@@. PERIOD AND LEFT-JUSTIFIED, E.G., LOWER-CASE 'A' IS ENCODEDLB )@@G@@ '.A '. @G@@@@. 4. THE SIX ASCII CHARACTERS WITH NO FIELDATA EQULC )@@G@@IVALENTS, NAMELY @G@@@@. UNDERSCORE, GRAVE, OPEN BRACE, VERTICAL LINE, LD )@@G@@CLOSE BRACE, TILDE, ARE @F@@@@. ENCODED AS 'UL' 'GV', 'OB', 'VL', 'CB', LE )@@G@@'TL', RESPECTIVELY. @[@@@@. @G@@@@. THE ROUTINE'S MAIN USE IS FOLF )@@G@@R DUMPING ASCII BUFFERS. REGISTERS X11-A3@G@@@@. ARE ALTERED. THE ROUTLG )@@G@@INE IS I-BANK REENTRANT, HAS NO D-BANK, AND IS @^@@@@. PSR-MODE INSENSILH )@@G@@TIVE. @[@@@@. ^EOF@]@@@@$(1) AXR$@[@@@@. @]@@@@ATAB . @#@@@@LI )@@G@@P* $PROC *1@#@@@@Q* $FUNC @E@@@@K $EQU $SL(P(1,LJ )@@G@@Q(1)))=1->' ':P(1,Q(1))!P(1,Q(1)) @B@@@@ $END ' ':$SS(K,2):$LK )@@G@@SS(K,1) @B@@@@I $DO P(1)/2 , +Q(2*I-1),Q(2*I) @]@@@@ LL )@@G@@ $END@E@@@@ P 'NU','SH','SX','EX','ET','EQ','AK','BL' LM )@@G@@@E@@@@ P 'BS','HT','LF','VT','FF','CR','SO','SI' @E@@@@LN )@@G@@ P 'DE','D1','D2','D3','D4','NK','SY','EB' @E@@@@ LO )@@G@@ P 'CN','EM','SB','EC','FS','GS','RS','US' @D@@@@ P LP )@@G@@ 'SP','!','"','#','$','%','&','''' @C@@@@ P '(',')',LQ )@@G@@'*','+',',','-','.','/' @C@@@@ P '0','1','2','3','4','5','6LR )@@G@@','7' @C@@@@ P '8','9',':',';','<','=','>','?' @C@@@@ LS )@@G@@ P '@','A','B','C','D','E','F','G' @C@@@@ P 'H','I',LT )@@G@@'J','K','L','M','N','O' @C@@@@ P 'P','Q','R','S','T','U','VLU )@@G@@','W' @C@@@@ P 'X','Y','Z','[','\',']','^','UL'@E@@@@ LV )@@G@@ P 'GV','.A','.B','.C','.D','.E','.F','.G' @E@@@@ P LW )@@G@@ '.H','.I','.J','.K','.L','.M','.N','.O' @E@@@@ P '.LX )@@G@@P','.Q','.R','.S','.T','.U','.V','.W' @E@@@@ P '.X','.YLY )@@G@@','.Z','OB','VL','CB','TL','RB' @[@@@@. @]@@@@/EASC$* . @D@@@@LZ )@@G@@ L,U A3,4-1 . SET QUARTER COUNTER. @D@@@@ DSL MA )@@G@@ A0,1 . BIT 0 TO A1'S SIGN. @D@@@@NEXT . MB )@@G@@ . FOR EACH QUARTER-WORD, @G@@@@ LDSC A0,9 . BIT MC )@@G@@0 TO A0'S SIGN, BITS 1-8 TO A1. @C@@@@ AND,U A1,077 .MD )@@G@@ BITS 1-6 TO A2. @C@@@@ TN A0 . IF BIT 0 CLEAR, ME )@@G@@@C@@@@ L,H1 A2,ATAB,A2 . ENCODE FROM H1. @A@@@@ TP MF )@@G@@ A0 . ELSE,@B@@@@ L,H2 A2,ATAB,A2 . FROM H2. MG )@@G@@@E@@@@ EX EDIT$T,*X2 . ENCODE 3 FIELDATA CHARACTERS.@^@@@@MH )@@G@@ SSL A2,6 @^@@@@ JNZ A2,$-2 @E@@@@ JGD MI )@@G@@ A3,NEXT . REPEAT AS QUARTERS REMAIN. @B@@@@ J 0,MJ )@@G@@X11 . RETURN. @^@@@@ DO \TEST , END @[@@@@. @C@@@@MK )@@G@@$(0) $LIT . TEST ROUTINE. @ @@@@START L A4ML )@@G@@,(0,1,2,3) @^@@@@ E$DIT EPKT @^@@@@ L,U A5,3 MM )@@G@@@^@@@@ L A0,A4 @ @@@@ LMJ X11,EASC$ @ @@@@MN )@@G@@ A A4,(4,4,4,4) @^@@@@ JGD A5,$-3 @ @@@@ MO )@@G@@ P$RINT (0110,IMAGE) @ @@@@ TE A4,(1,2,3,4) @^@@@@ MP )@@G@@ J START+1 @^@@@@ ER EXIT$ @[@@@@. @^@@@@EPKT MQ )@@G@@ E$PKT 8,IMAGE @#@@@@IMAGE $RES 8 @^@@@@ $END START MR )@@G@@___^@) A4,(4,4,4,4) @^@@@@ JGD A5)@@[U@@@@@@@ 4D KN 2D 3DMS )@@G@@ ED 1D OS IS FF RC FL TV SB TH KA LB TE QE XS XE UN HSAA@@@D)@F[U@@@@@@@MT )@@G@@ * + ( ) & ' $ % " # PS ! SR SU SF SG BS CE NC ME YS BEAB@@@DMU )@@G@@)@Q[U@@@@@@@ @ A > ? < = : ; 8 9 6 7 4 5 2 3 0 1 . / MV )@@G@@ , - AC@@@D)@-[U@@@@@@@ V W T U R S P Q N O L M J K H I MW )@@G@@ F G D E B C AD@@@D)@?[U@@@@@@@ L. M. J. K. H. I. F. G. D. E. B. C.MX )@@G@@ VG A. ^ LU \ ] Z [ X Y AE@@@D)@7[U@@@@@@@;G@@@[C80@@# LT BR LV BCMY )@@G@@ Z. BO X. Y. V. W. T. U. R. S. P. Q. N. O.AF@@@D)[][M[@^[]@@K^@@@@8#0@[]MZ )@@G@@/^)@[C;C)@@A')])@@C^,@@@0@@@@GCC,@@@1@@@@G+8K@@_;=@@@DAG@@@D)[G@E@@@@@@@NA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@@AH@@@DNB )@@G@@@@^@@]@@A@@[@@C@@[@@G@@@@@E@@@@@@@[HEDIT$T EASC$ @@[@@@@@@@[@NC )@@G@@/,0@@@CW@@@@)F#[N]@[@K)4[@^^K@/@)@FVRB!)@@O#K@#0/KF@@@8K)@FEN^!@@@/@V@@@ND )@@G@@RBK@@[/K@@FX(^@@@@CX@@@@*[S@@@*SDFF*@G@@@@. COPYRIGHT 1974,1978, B. E. CNE )@@G@@HI, SUNY-ALBANY, ALBANY NY 12222. ^ON @G@@@@. MISCELLANEOUS EXTENSIONF )@@G@@NS TO EDIT$. SUPPORTED BY PROCS IN ELEMENT @ @@@@. 'SYS*N.EDIT$P' (NG )@@G@@WHICH SEE). @A@@@@$(1) MNM$ . ^OFF @[@@@@. ^ON @F@@@@NH )@@G@@. USING DATA IN EDIT$ PACKET, CALCULATE PRINT$ IMAGE CONTROL WORD.@[@@@@NI )@@G@@. @]@@@@. CALL: @B@@@@. L,U A0, NJ )@@G@@@ @@@@. LMJ X11,EICW$ @D@@@@. ([A0]NK )@@G@@ = PRINT$ CONTROL WORD.)@[@@@@. ^OFF@]@@@@EICW$* . @^@@@@ LSSLNL )@@G@@ A0,6 @^@@@@ A,U A0,0,X3 @^@@@@ TZ,U 0,X2 NM )@@G@@@^@@@@ A,U A0,1 @^@@@@ AN,H2 A0,0,X1 @^@@@@ NN )@@G@@ LSSL A0,18 @^@@@@ LXM A0,0,X1 @^@@@@ J 0,NO )@@G@@X11 @[@@@@. ^ON @A@@@@. CALCULATE IMAGE WORD COUNT. CALL:@^@@@@. NP )@@G@@ LMJ X11,EWC$@C@@@@. ([A0] = WORD COUNT.) NQ )@@G@@@[@@@@. ^OFF@]@@@@EWC$* . @^@@@@ L,U A0,0,X3 @^@@@@ NR )@@G@@ TZ,U 0,X2 @^@@@@ A,U A0,1 @^@@@@ AN,H2 A0NS )@@G@@,0,X1 @^@@@@ J 0,X11 @[@@@@. ^ON @B@@@@. BLANK-FILL REMAINT )@@G@@NDER OF CURRENT WORD. @[@@@@. @]@@@@. CALL: @ @@@@. LMJ NU )@@G@@ X11,EFILL$ @^@@@@. @[@@@@. ^OFF@]@@@@EFILL$NV )@@G@@* . @^@@@@ L,U A2,' ' @^@@@@ TNZ,U 0,X2 @^@@@@NW )@@G@@ J 0,X11 @ @@@@ EX EDIT$T,*X2 @^@@@@ NX )@@G@@ J $-3 @[@@@@. @]@@@@ $END___DS!X2 @^@@@@ NY )@@G@@ J $-3 @[@@@@)@@[U@@@@@@@O;@@@[*8]@@@R;#@@@/KF@@@Q#[@@@;*@@@MNZ )@@G@@PB[@@@O;@@@[*8]@@@O;#@@@;*@@@AAA@@@@)@F@'@^C@^@@@@@@@@@@@@@@@@@@@@@@@@@@OA )@@G@@/K@@@I')])@@/KF@@@(8]@@@R;)@@ /KF@@@PB[@@@AB@@@@@@^@@]@@A@@[@@C@@#@@O@@@OB )@@G@@@@@@@@@@@@@MEDIT$T EICW$ @@[@@@@@@@@@EWC$ @@[@@@@@@@@COC )@@G@@EFILL$ @@[@@@@@@@@H AA,U A0,0,X2 @^@@@@ LA,U A1OD )@@G@@*[S@@@*SDFF*@#@@@@ AXR$ @D@@@@ E$DEF *** EDITOE )@@G@@$ EDITING PACKAGE *** @E@@@@. LOCAL INSERTIONS ARE MARKED BY '<<<', DEOF )@@G@@LETIONS BY '>>>'. @F@@@@EMSGL EQUF PKT,,S1 . <<< EMSGOG )@@G@@$ LINK CHARACTER. @#@@@@$(1) LIT. @C@@@@ . INITOH )@@G@@IAL ENTRY TO EDIT MODE @]@@@@ . @G@@@@EDIT$* SX PX,SOI )@@G@@AVE1-PKT,A0 SAVE THE NON-VOLATILE REGISTERS @A@@@@ SX OJ )@@G@@ CX,SAVE2-PKT,A0 @A@@@@ SX WX,SAVE3-PKT,A0 @F@@@@ OK )@@G@@ LXM,U PX,,A0 SET UP THE PACKET ADDRESS @C@@@@ OL )@@G@@ LXI,U WX,1 . <<< @C@@@@ SZ,S3 RETUOM )@@G@@RN . <<< @C@@@@ECLEAR$* . <>> LX WX,ILOC SET UP THE WORD INDEX OQ )@@G@@@^@@@@. >>> LXI,U WX,1@C@@@@ LXM WX,ILOC OR )@@G@@ . <<< @E@@@@ LA,U A0,(' ') BLANK THE LINEOS )@@G@@ IMAGE@ @@@@ BT WX,,*A0 @F@@@@ LXM WX,IOT )@@G@@LOC INITIALIZE THE WORD INDEX @C@@@@. >>> SZ,S3 RETUOU )@@G@@RN FUDGE @C@@@@ J 0,X11 REOV )@@G@@TURN @]@@@@ . @B@@@@ . RE-ENTRY TO EDIT MODE OW )@@G@@@]@@@@ . @G@@@@EDITR$* SX PX,SAVE1-PKT,A0 SAVE THEOX )@@G@@ NON-VOLATILE REGISTERS @A@@@@ SX CX,SAVE2-PKT,A0 @A@@@@OY )@@G@@ SX WX,SAVE3-PKT,A0 @F@@@@ LXM,U PX,,A0 OZ )@@G@@ SET UP THE PACKET ADDRESS @G@@@@ LXI,U CX,1 PA )@@G@@ RESTORE THE CHARACTER INDEX @ @@@@ LXM CX,CPB )@@G@@IX @F@@@@ LXI,U WX,1 RESTORE THE WORD INDPC )@@G@@EX @ @@@@ LXM WX,WIX @ @@@@ AX WX,IPD )@@G@@LOC @C@@@@ J 0,X11 RETURN @]@@@@ PE )@@G@@ . @B@@@@ . EXIT FROM EDIT MODE @]@@@@ . PF )@@G@@@F@@@@EDITX$* SX CX,CIX SAVE THE CHARACTER INDEX PG )@@G@@@E@@@@ ANX WX,ILOC SAVE THE WORD INDEX @ @@@@PH )@@G@@ SX WX,WIX @E@@@@ LA,U A0,PKT PI )@@G@@ A0 = PACKET LOCATION@H@@@@ LXM PX,SAVE1 REPJ )@@G@@STORE THE NON-VOLATILE REGISTERS @A@@@@ LX CX,SAVE2-PPK )@@G@@KT,A0 @A@@@@ LX WX,SAVE3-PKT,A0 @C@@@@ J PL )@@G@@ 0,X11 RETURN @]@@@@ . @]@@@@/ . @A@@@@PM )@@G@@ . STORE VECTOR @]@@@@ . @ @@@@EDIT$T* SAPN )@@G@@,S1 A2,WI @ @@@@ SA,S2 A2,WI @ @@@@ SAPO )@@G@@,S3 A2,WI @ @@@@ SA,S4 A2,WI @ @@@@ SAPP )@@G@@,S5 A2,WI @D@@@@ LMJ CX,$+1 BREAK OUPQ )@@G@@T @F@@@@ SA,S6 A2,,*WX STORE THE LAST CHARAPR )@@G@@CTER @D@@@@ SX,H2 CX,RETURN SET UP RETURN @F@@@@PS )@@G@@ LXM,U CX,0 INITIALIZE CHARACTER INDEX@ @@@@PT )@@G@@ J *RETURN @]@@@@ . @B@@@@ . PU )@@G@@ STORE A CHARACTER @]@@@@ . @C@@@@ECHAR$* LA,U A2,,PV )@@G@@A0 A2 = A0 @E@@@@ EX STORE STPW )@@G@@ORE THE CHARACTER @C@@@@ J 0,X11 RETURN PX )@@G@@@]@@@@ . @C@@@@ . POSITION TO A FIXED COLUMN PY )@@G@@@]@@@@ . @D@@@@ECOL$* DSL A0,36 SET UP DPZ )@@G@@IVIDE @D@@@@ DI,U A0,6 DIVIDE BY 6 @F@@@@QA )@@G@@ AA A0,ILOC GET THE WORD LOCATION @F@@@@QB )@@G@@ LXM,U CX,,A1 SET UP THE CHARACTER INDEX@F@@@@QC )@@G@@ LXM,U WX,,A0 SET UP THE WORD INDEX @C@@@@QD )@@G@@ J 0,X11 RETURN @]@@@@ . @A@@@@QE )@@G@@ . SKIP AN AREA @]@@@@ . @F@@@@ESKIP$* AAQF )@@G@@,U A0,CI ADD THE CHARACTER INDEX @E@@@@ LAQG )@@G@@,U A1,WI A1 = WORD INDEX @E@@@@ ANA QH )@@G@@ A1,ILOC MAKE IT RELATIVE @G@@@@ MSI,U A1,6QI )@@G@@ GET THE NUMBER OF CHARACTERS @E@@@@ AA,U QJ )@@G@@ A0,,A1 A0 = COLUMN NUMBER @D@@@@ J ECOLQK )@@G@@$ FINISH UP @]@@@@ . @F@@@@ . QL )@@G@@ CLEAR BUFFER TO SPACES AND RESET TO COLUMN 0 @I@@@@ ON QM )@@G@@ . <<< UNNECESSARY DUPLICATION OF CODE ABOV @E@@@@QN )@@G@@ECLEAR$* LR R1,IL . R1 = IMAGE LENGTH @E@@@@ QO )@@G@@ LXM WX,ILOC . SET UP WORD INDEX @E@@@@ LAQP )@@G@@,U A0,(' ') . BLANK THE LINE IMAGE@B@@@@ BT QQ )@@G@@ WX,,*A0 . @E@@@@ LXM,U CX,0 . REQR )@@G@@SET TO COLUMN 0 @B@@@@ LXM WX,ILOC . @C@@@@QS )@@G@@ J 0,X11 . RETURN @C@@@@ OFF QT )@@G@@ . <<< @C@@@@ . COMPUTE THE COLUQU )@@G@@MN NUMBER @]@@@@ . @E@@@@ECOLN$* LA,U A0,WI QV )@@G@@ A0 = WORD INDEX @E@@@@ ANA A0,ILOC MAQW )@@G@@KE IT RELATIVE @G@@@@ MSI,U A0,6 GET THE QX )@@G@@NUMBER OF CHARACTERS @F@@@@ AA,U A0,CI ADQY )@@G@@D THE CHARACTER INDEX @C@@@@ J 0,X11 REQZ )@@G@@TURN @]@@@@ . @]@@@@/ . @D@@@@ . STORRA )@@G@@E FIELDATA (ONE OR TWO WORDS) @]@@@@ . @C@@@@EFD1$* LA,U RB )@@G@@ A3,5 ONE WORD@C@@@@ J $+2 RC )@@G@@ SKIP @D@@@@EFD2$* LA,U A3,11 TWO WORDS RD )@@G@@@G@@@@EFD1 DSC A0,66 POSITION THE NEXT CHARACTERE )@@G@@R @E@@@@ AND,U A1,1*/6-1 ISOLATE IT IN A2 RF )@@G@@@E@@@@ TE,U A2,' ' IS IT A BLANK ? @E@@@@RG )@@G@@ TNE,U A2,'@' OR A MASTER-SPACE ? @C@@@@ RH )@@G@@ J $+2 NO, SKIP@C@@@@ EX STORRI )@@G@@E STORE IT@D@@@@ JGD A3,EFD1 LORJ )@@G@@OP ON A3 @C@@@@ J 0,X11 RETURN @]@@@@RK )@@G@@ . @E@@@@ . COPY A STRING WITH OR WITHOUT PACKRL )@@G@@ING @]@@@@ . @E@@@@EPACK$* LXI,XU X11,-1 INRM )@@G@@DICATE PACKING @C@@@@ J $+2 SKIP RN )@@G@@@D@@@@ECOPY$* LXI,U X11,0 NO PACKING @E@@@@ RO )@@G@@ LA,U A3,,A1 A3 = CHARACTER COUNT@G@@@@ DSRP )@@G@@L A0,18 POSITION THE CHARACTER INDEX @F@@@@ RQ )@@G@@ SSL A1,18 POSITION THE WORD INDEX @E@@@@ RR )@@G@@ LXI,U A0,1 SET UP INCREMENTS @^@@@@ LXRS )@@G@@I,U A1,1@D@@@@ECOPY1 JGD A3,$+2 LOOP ON A3 RT )@@G@@@C@@@@ J 0,X11 RETURN @F@@@@ EXRU )@@G@@ EDITL,*A0 GET THE NEXT CHARACTER @D@@@@ TPRV )@@G@@ X11 NO PACKING ? @E@@@@ TE,U A2,'RW )@@G@@@' OR IS A2 NON-ZERO ? @D@@@@ EX STORE RX )@@G@@ YES, STORE IT @C@@@@ J ECOPY1 LORY )@@G@@OP @]@@@@ . @C@@@@/ . GENERALIZED MESSAGE EDRZ )@@G@@ITOR @G@@@@. EMSG$ ENHANCEMENT---IF A STRING CHARACTER IS ENCOUNTERED WSA )@@G@@HICH IS @G@@@@. THE SAME AS THE CONTENTS OF WORD 0, S1 OF THE EDIT$ SB )@@G@@PACKET, THE NEXT @G@@@@. WHOLE WORD IN THE STRING IS TAKEN AS A NEW STRSC )@@G@@ING POINTER AND EMSG$ @G@@@@. STARTED ANEW. THIS PERMITS LINKING OF SSD )@@G@@EVERAL MESSAGES TO A COMMON @^@@@@. TERMINATING MESSAGE. @]@@@@ SE )@@G@@ . @G@@@@EMSGR$* LA A0,CIM RESTORE THE CHARACTESF )@@G@@R INDEX @F@@@@ LA A1,WIM RESTORE THE WOSG )@@G@@RD INDEX @C@@@@ J EMSG1 BYPASS @G@@@@SH )@@G@@EMSG$* DSL A0,18 POSITION THE CHARACTER INDEX SI )@@G@@@F@@@@ SSL A1,18 POSITION THE WORD INDEX SJ )@@G@@@F@@@@EMSG1 LXI,U A0,1 SET UP THE INCREMENTS SK )@@G@@@^@@@@ LXI,U A1,1@F@@@@EMSG2 EX EDITL,*A0 SL )@@G@@ GET THE NEXT CHARACTER @E@@@@ TNE A2,EMSGC SM )@@G@@ IS IT THE SIGNAL ? @C@@@@ J EMSG3 YESN )@@G@@S @F@@@@ TNE A2,EMSGL . <<< NO. IS IT THE LISO )@@G@@NK? @C@@@@ J EMSG4 . <<< YES.@D@@@@ SP )@@G@@ EX STORE NO. STORE IT. @C@@@@ J SQ )@@G@@ EMSG2 LOOP @F@@@@EMSG3 SA A0,CIM SR )@@G@@ SAVE THE CHARACTER INDEX @E@@@@ SA A1,WIM SS )@@G@@ SAVE THE WORD INDEX @C@@@@ J 0,X11 REST )@@G@@TURN @H@@@@EMSG4 TZ,U 0,A0 . <<< BUMP POINTER TO SU )@@G@@NEXT WHOLE WORD. @^@@@@ A,U A1,1@I@@@@ L SV )@@G@@ A0,0,A1 . <<< TAKE AS NEW EMSG$ PARAMETER AND REST @C@@@@SW )@@G@@ J EMSG$ . <<< @]@@@@ . @A@@@@SX )@@G@@ . LOAD VECTOR @]@@@@ . @ @@@@EDITL LASY )@@G@@,S1 A2,,A1 @ @@@@ LA,S2 A2,,A1 @ @@@@ LASZ )@@G@@,S3 A2,,A1 @ @@@@ LA,S4 A2,,A1 @ @@@@ LATA )@@G@@,S5 A2,,A1 @D@@@@ LMJ A0,$+1 BREAK OUTB )@@G@@T @F@@@@ LA,S6 A2,,*A1 LOAD THE LAST CHARACTC )@@G@@TER @E@@@@ SA,H2 A0,RETURN SET UP THE RETURN TD )@@G@@@G@@@@ LXM,U A0,0 INITIALIZE THE CHARACTER ITE )@@G@@NDEX @C@@@@ J *RETURN GET BACK@]@@@@ TF )@@G@@ . @]@@@@/ . @C@@@@ . VARIABLE LENGTH OCTAL TG )@@G@@EDIT @]@@@@ . @C@@@@EOCTV$* LA,U A3,0 A3TH )@@G@@ = 0 @F@@@@ DSL A0,3 SHIFT OFF LOW-ORDER TI )@@G@@DIGIT @F@@@@ JZ A0,EOCTV2 ONLY ONE DIGIT - BYPTJ )@@G@@ASS @C@@@@EOCTV1 AA,U A3,1 ADD 1 @F@@@@ TK )@@G@@ DSL A0,3 SHIFT OFF THE NEXT DIGIT @E@@@@ TL )@@G@@ JNZ A0,EOCTV1 MORE TO GO - LOOP @E@@@@ LATM )@@G@@,U A2,'0' STORE A LEADING ZERO@ @@@@ EX TN )@@G@@ STORE @C@@@@EOCTV2 LA,U A2,0 CLEAR A2@F@@@@TO )@@G@@ LDSC A1,3 POSITION THE NEXT DIGIT @E@@@@TP )@@G@@ AA,U A2,'0' MAKE IT FIELDATA @C@@@@ TQ )@@G@@ EX STORE STORE IT@D@@@@ JGD A3,ETR )@@G@@OCTV2 LOOP ON A3 @C@@@@ J 0,X11 TS )@@G@@ RETURN @]@@@@ . @C@@@@ . FIXED LENGTH OCTTT )@@G@@AL EDIT @]@@@@ . @G@@@@. THE FOLLOWING ALTERATIONS ALLOW ARTU )@@G@@BITRARILY LARGE CHARACTER COUNT SPE-@H@@@@. CIFICATIONS ([A1]). THE UNITV )@@G@@VAC VERSION DISCARDS LOW BITS IF [A1] > 12. @]@@@@EOCTF$* . @C@@@@TW )@@G@@. >>> LA,U A3,,A1 A3 = A1 @F@@@@. >>> MSI,U TX )@@G@@ A1,3 COMPUTE THE NUMBER OF BITS@D@@@@. >>> DSL TY )@@G@@ A0,,A1 SHIFT THEM OFF@D@@@@. >>> ANA,U A3,1 TZ )@@G@@ DECREMENT A3 @G@@@@ AN,U A1,13 . <>> LXI,XU X11,-1 MARK FOR LEADING ZERUL )@@G@@OS @C@@@@ LXI,U X11,'0' . <<< @B@@@@ UM )@@G@@ J EDECF0 . @F@@@@EDECV$* LA,U A1,0 UN )@@G@@ SIZE DEPENDS ON VALUE @]@@@@EDECF$* . @F@@@@. >>> LXUO )@@G@@I,U X11,0 MARK FOR LEADING SPACES @C@@@@ LXUP )@@G@@I,U X11,' ' . <<< @E@@@@EDECF0 LR,U R1,,A1 UQ )@@G@@ R1 = FIELD SIZE @C@@@@ LA,U A3,0 UR )@@G@@ A3 = 0 @D@@@@EDECF1 DSA A0,36 SET UP DIVIDE US )@@G@@@D@@@@ DI,U A0,10 DIVIDE BY 10 @D@@@@ UT )@@G@@ LMA,XU A1,,A1 GET THE DIGIT @D@@@@ LDSL UU )@@G@@ A2,6 MAKE ROOM @D@@@@ AA,U A3,'0',A1 UV )@@G@@ THROW IT IN @D@@@@ JGD R1,$+1 DEUW )@@G@@CREMENT R1 @D@@@@ JNZ A0,EDECF1 MORE TO GO UX )@@G@@@E@@@@ JP A0,EDECF2 IT WAS POSITIVE @D@@@@UY )@@G@@ LDSL A2,6 MAKE ROOM @E@@@@ AAUZ )@@G@@,U A3,'-' THROW IN THE SIGN @D@@@@ JGD VA )@@G@@ R1,$+1 DECREMENT R1 @C@@@@EDECF2 LA A1,A2 VB )@@G@@ A1 = A2 @D@@@@. >>> LA,U A2,' ' A2 = A BVC )@@G@@LANK @F@@@@. >>> TP X11 TEST FOR LEADING SPAVD )@@G@@CES @F@@@@. >>> LA,U A2,'0' LEADING ZEROS DESIREVE )@@G@@D @G@@@@ L A2,X11 . <<< GET THE FILL CHAVF )@@G@@RACTER. @F@@@@ SSL A2,18 . <<< SHIFT INTOVG )@@G@@ POSITION. @C@@@@ J $+2 SKIP @E@@@@VH )@@G@@ EX STORE STORE THE BLANK @D@@@@ VI )@@G@@ JGD R1,$-1 LOOP ON R1 @C@@@@ LA VJ )@@G@@ A2,A3 A2 = A3 @F@@@@EDECF3 EX STORE VK )@@G@@ STORE THE NEXT CHARACTER @D@@@@ DSL A1,6 VL )@@G@@ MOVE DOWN ONE @D@@@@ JNZ A2,EDECF3 MORE TO VM )@@G@@GO @C@@@@ J 0,X11 RETURN @]@@@@ VN )@@G@@ . @#@@@@ END ___0,CTURN @]@@@@ . @#@@@@ VO )@@G@@ END ___0,CIM SAVE THE CHARA)@@[U@@K@*@@M@/)@@C8@@]%VP )@@G@@Q^1@@@R@)@](N?L@@@ ?[@@]&80@@[Q8W@@@A@/@@ A@?@@^A^W@@#AA@@@@)@F[U@@@@@@@VQ )@@G@@O^1@@@Q01@@[&80@@[Q4-@@[&8)@@[Q8W@@@A@/@@ A@?@@^A^W@@#/KF@@@Q^1@@@AB@@@@VR )@@G@@)@Q[U@@@@@@@[0<@@@[4<@@@/KF@@@R@/@@ R@?@@^Q^L@@#C8[@@@A01@@[P^1@@@A4-@@[VS )@@G@@/KF@@@AC@@@@)@-[U[@@[@@@/KF@@@')])@ZC8?@@@/K[K@]Q8)@@@A^-@@][)<)@@/?)@@>VT )@@G@@[=<@@@[*<@@@[?<@@@AD@@@@)@?[U@@@@@@@G8H@@@T8K@@AH^L@@@C8N@@@G8]@@@/KF@@@VU )@@G@@Q8/@@@Q8!@@@G^[@@@W8@@@A;G@@@=AE@@@@)@7[V@@@K@@@+8K@@_;^@@[]C80@@F/K@@[@VV )@@G@@C80@@ /KF@@@G8]@@@T8@@@AH^[@@@C8#@@@/K@@@?AF@@@@)[][M^[@K@K@@@@@@@C8.@@@VW )@@G@@&'0@@@/K@@[F&"0__"/KF@@@8#0@[@')])@Z/K@@[A:8)@@@%8)@@ AG@@@@)[G[M@K[@[@@VX )@@G@@@@@@@@')])@Z%8)@@@0@@@@F')G)[?/KF@@@8#0@[M&;K@@[&;@@@[;CK@@M;G@@@MAH@@@@VY )@@G@@)[Q[N@[@@^@@@@@@@@:0-@@@')G)[?&;K@@[&;@@@[;CK@@M;G@@@M/K@@[WC^L@@[C?[@@[VZ )@@G@@/K@@[KAI@@@@)[)[N@^[@K@@@@@@@@O;K@@[*8G@@@/KF@@@[^L@@[[?[@@[/K@@[Y')])@ZWA )@@G@@/K@@[*:4-@@@/K@@[>AJ@@@@)[%[UK@@K@@@Q;@@@@[^[@@]C)!)@@/\@@[2C=!@@@C*!@@@WB )@@G@@C?!@@@C0!@@@C4!@@@/K@@[UR#H@@@AK@@@@)[5[U[@[@^@@;=K@@#C8)@@@')])@ZC8)@@0WC )@@G@@/^@@[9;G@@@#G80@@[/@@@[";G@@@#C80@@@/K[K@]AL@@@@)]@[MK^@^@K^@@@@@@R;.@@GWD )@@G@@8#K@]A')])@ZR;)@@0/GK@]DP;K@@H/KF@@@8#0@["')])@ZG8)@@0AM@@@@)]E[U^@K@@@@WE )@@G@@W8@@@E;O@@@=C80@@@N8X@@@&'0@@ C8K@@@/K@@]L&'0@@0/K@@[";GH@@$T8K@@#AN@@@@WF )@@G@@)]P[M[@K^@^@@@@@@@C@K@@I8KK@]YG80@@-;?)@@A/C@@]Y/^@@]N8KK@]TG8.@@0;?)@@AWG )@@G@@E/X@@@AO@@@@)]Z[M^[@K[@^@@@@@@/KF@@@/^)@]>;GK@@A')])@ZC@)@@J8KK@]+')])@ZWH )@@G@@/K@@]<;C)@@MR#)@@FAP@@@@)](@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WI )@@G@@@@@@@@@@@@@@@@@@@@ @@[@@@AQ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@@@@A@@P@[U@@@WK )@@G@@@@@@@@@@@@]:EDIT$ @@[@@@@@@@@@ECLEAR$ @@[@@@@@@@@AEDITR$ WL )@@G@@@@[@@@@@@@@HEDITX$ @@[@@@@@@@@REDIT$T @@[@@@@@@@@ZECHAR$ WM )@@G@@@@[@@@@@@@@(ECOL$ @@[@@@@@@@@?ESKIP$ @@[@@@@@@@@2ECOLN$ WN )@@G@@@@[@@@@@@@@8EFD1$ @@[@@@@@@@@.EFD2$ @@[@@@@@@@@_EPACK$ WO )@@G@@@@[@@@@@@@[CECOPY$ @@[@@@@@@@[EEMSGR$ @@[@@@@@@@[REMSG$ WP )@@G@@@@[@@@@@@@[UEOCTV$ @@[@@@@@@@[6EOCTF$ @@[@@@@@@@]^EDECZ$ WQ )@@G@@@@[@@@@@@@]HEDCFZ$ @@[@@@@@@@]HEDECV$ @@[@@@@@@@]JEDECF$ WR )@@G@@@@[@@@@@@@]K@@@@@@G@@^.Y@@@@@@H@@ []#@@@@#/C@@I(^@@@@@*@@@@GA@@@C#@@@@@@WS )@@G@@@@@@@@/K@ B&@@@@@@/,0 1.0? @^@@@@ YA )@@G@@ J $+3 @E@@@@ DFM A0,(1.0D*+307 . IF NOT, MULTIPLYYB )@@G@@ BY 10**307 @C@@@@ AN,U A2,307 . AND ADJUST 10EX.@G@@@@YC )@@G@@ L,U R1,9 . SET SCALING SEARCH COUNTER, POINTER. YD )@@G@@@ @@@@ L X11,(-2,18 @]@@@@EFLP1 . @B@@@@ S YE )@@G@@ A2,EXP10 . SAVE 10EX. @G@@@@ SLE A0,P10-2,*X11 . FINDYF )@@G@@ LARGEST 10**N IN TABLE < [A0,A1]. @F@@@@ J EFLP2 .YG )@@G@@ NO-FIND. 1.0 /= 10**8?@F@@@@ DFD A0,P10 . IF SO, DIVIDE BY 10 ANDYS )@@G@@ BUMP 10EX. @^@@@@ L A2,EXP10@^@@@@ A,U A2,1 YT )@@G@@@^@@@@ S A2,EXP10@]@@@@EFLP3 . @C@@@@ DFU A0YU )@@G@@,A0 . UNPACK VALUE. @^@@@@ LN A0,A0 @E@@@@ YV )@@G@@ DSL A1,02000+60,A0 . CONVERT TO INTEGER IN A2. @E@@@@ L,U YW )@@G@@ R1,8-1 . ENCODE 8 INTEGER DIGITS. @ @@@@ LMJ X1YX )@@G@@1,EFLP4 @C@@@@ L R1,EXP10 . RESCUE 10EX. @C@@@@YY )@@G@@ LMJ X11,EFD2$ . WRITE THE DIGITS.@^@@@@ L,U A2YZ )@@G@@,'+' @D@@@@ TP R1 . ENCODE SIGN OF 10EX. @^@@@@ZA )@@G@@ L,U A2,'-' @]@@@@ E$FD@D@@@@ LM A2,R1 ZB )@@G@@ . GET 10EX MAGNITUDE. @E@@@@ L,U R1,2-1 . ENCODZC )@@G@@E 2 INTEGER DIGITS OR, @D@@@@ TZ DFLAG . IF DOUBLE ZD )@@G@@PRECISION, @D@@@@ L,U R1,3-1 . 3 INTEGER DIGITS. ZE )@@G@@@ @@@@ LMJ X11,EFLP4 @D@@@@ SZ DFLAG .ZF )@@G@@ CLEAN UP THE PACKET. @D@@@@ L X11,RET . RESTORE RETZG )@@G@@URN ADDRESS.@E@@@@ J EFD1$ . WRITE THE DIGITS AND REZH )@@G@@TURN. @[@@@@. @D@@@@EFLP4 . [X11] ENCODE [A2] TO [R1]+1 INTEGER DIZI )@@G@@GITS. @^@@@@ DSL A0,72 @^@@@@ DSL A2,36 @^@@@@ZJ )@@G@@ DI,U A2,10 @ @@@@ A,U A1,'0',A3 @^@@@@ ZK )@@G@@ DSC A0,CBC @^@@@@ JGD R1,$-4 @^@@@@ J 0,ZL )@@G@@X11 @^@@@@ DO TEST=0 , END @D@@@@/$(3) . TEST PROGRAM. CALL ZM )@@G@@WITH @XQT. ENTER DATA @D@@@@. S,VAL TO TEST SINGLE-PRECISION RZN )@@G@@OUTINE, @D@@@@. D,VALH,VALL TO TEST DOUBLE-PRECISION ROUTINE, ZO )@@G@@@E@@@@. WHERE VAL, VALH,VALL ARE SINGLE- AND DOUBLE-PRECISION @ @@@@ZP )@@G@@. FLOATING-POINT NUMBERS. @[@@@@. @]@@@@ LOC$@]@@@@START ZQ )@@G@@ . @C@@@@ LMJ X11,RDSC . READ THE STRING. @]@@@@ ZR )@@G@@ S$NS@^@@@@ J STX @^@@@@ SSL A0,18 @^@@@@ZS )@@G@@ TNE,U A0,'D '@^@@@@ J F$(1) @^@@@@ TE,UZT )@@G@@ A0,'S '@^@@@@ J STX @#@@@@ SZ A0@F@@@@ZU )@@G@@L$(L$) L A4,A0 . [A4] = 0 IFF SINGLE-PRECISION. @^@@@@ZV )@@G@@ S$ND ' ' @^@@@@ J STX @]@@@@ S$NNZW )@@G@@@^@@@@ J STX @C@@@@ L A5,A0 . SAVE ZX )@@G@@FIRST VALUE.@^@@@@ JZ A4,F$(1)@^@@@@ S$ND ',' ZY )@@G@@@^@@@@ J STX @]@@@@ S$NN@^@@@@ J STZZ )@@G@@X @^@@@@ L A6,A0 @]@@@@L$(L$) S$NE@^@@@@ J AA )@@G@@ STX @^@@@@ E$DIT EPKT @^@@@@ JNZ A4,F$(1)AB )@@G@@@#@@@@ E$FLP A5@^@@@@ J F$(2) @#@@@@L$(L$) E$DFAC )@@G@@LP A5@ @@@@L$(L$) P$RINT (0114,BUF) @^@@@@ J START AD )@@G@@@[@@@@. @]@@@@STX . @^@@@@ L,H1 A0,5,X4 @^@@@@ AE )@@G@@ A,U A0,1 @ @@@@ LMJ X11,QARROW @^@@@@ J AF )@@G@@ START @[@@@@. @]@@@@$(2) . @^@@@@EPKT E$PKT 12,BUF AG )@@G@@@#@@@@BUF RES 12@^@@@@ END START ___$* J AH )@@G@@ START @[@@@@. @]@@@@$(2) . @^@@@@EPKT E$PKT 12,BUF AI )@@G@@@#@@@@BUF RES 12)@@[U@@@@@@@L:$WQ!\0K@@@K6<-\D@@@@@@KV\:0)@@@@@@AJ )@@G@@KI$^@@@@@@@@KB2@@@@@@@@@K^*@@@AA@@@@)@F[U@@^@K@@/K@@@T"8@@@G"@@@[U ?[@@]AK )@@G@@"9797YXN%$;:2S#(.Z/8.<9K[)@@@AJ@@@@AU )@@G@@@@^@@]@@A@@#@@G@@]@@O@@@@@@@@@@@@@[=EDIT$T EFD2$ EFD1$ AV )@@G@@EFLP$ @@[@@@@@@@@MEDFLP$ @@[@@@@@@@@Q,P$(1,1) . EX EDIT$T,*2AW )@@G@@ . END . XHIU$* FUNC . *[S@@@*SDFF*@G@@@@. COPYRIGHT 1975, 1976, 1978, AX )@@G@@B. E. CHI, SUNY-ALBANY, ALBANY NY 12222. @H@@@@TEST EQU 1/1/1 AY )@@G@@ . SET TO 0 FOR SUBROUTINE, 1 FOR SELF-TEST. ^ON @G@@@@. EDIT [A0] AZ )@@G@@AS AN INSTRUCTION INTO ALREADY-OPENED EDIT$ BUFFER. CALL: @[@@@@. BA )@@G@@@A@@@@. L A0,INSTRUCTION-WORD @ @@@@. L,U A1,X*/6+BB )@@G@@Y*/5+Z@ @@@@. LMJ X11,EINS$ @[@@@@. @G@@@@. AT LEAST OBC )@@G@@NE SPACE IS ENCODED BETWEEN THE OPERATOR AND OPERAND FIELDS.@G@@@@. IF XBD )@@G@@ > 0, THE OPERAND FIELD WILL BE SHIFTED TO THE RIGHT AS NECESSARY @G@@@@BE )@@G@@. SO AS TO START X COLUMNS AFTER THE OPERATOR FIELD. X MUST NOT EXCEED BF )@@G@@@[@@@@. 63. @[@@@@. @G@@@@. IF THE WORD IS NOT INTERPRETABLE AS AN IBG )@@G@@NSTRUCTION (E.G., F-FIELD = 0)@G@@@@. AND Y = 1, NOTHING WILL BE ENCODEDBH )@@G@@, BUT IF Y = 0, THE WORD WILL BE EN-@F@@@@. CODED AS A 12-DIGIT OCTAL NUBI )@@G@@MBER, FOLLOWED BY ITS F, J, A AND X @A@@@@. FIELDS, ENCLOSED IN PARENTHEBJ )@@G@@SES. @[@@@@. @G@@@@. IF Z = 0, THIRD-WORD-MODE INTERPRETATION WILL BK )@@G@@APPLY TO J-DESIGNATORS. @E@@@@. IF Z = 1, QUARTER-WORD MODE INTERPRETATIBL )@@G@@ON WILL APPLY. @E@@@@. IF Z = 2, J-DESIGNATORS 4-7 WILL BE ENCODED NUBM )@@G@@MERICALLY. @[@@@@. @G@@@@. ALTERS X11-A3, R1. UPON RETURN, [A0]=0 BN )@@G@@UNLESS THE WORD WAS NOT INTER-@F@@@@. PRETABLE AS AN INSTRUCTION AND Y =BO )@@G@@ 1, IN WHICH CASE, [A0] = -0. @[@@@@. ^EOF@]@@@@$(1) MNM$@]@@@@EINS$*BP )@@G@@ . @D@@@@ S A0,INSTR . SAVE INSTRUCTION WORD, @^@@@@BQ )@@G@@ DSL A1,6 @C@@@@ S A1,OPLGH . OP FIELD LBR )@@G@@ENGTH,@^@@@@ DSL A2,36-1 @F@@@@ S A2,NOTIFLG .BS )@@G@@ NOT-AN-INSTRUCTION ACTION FLAG, @^@@@@ SSL A3,36-5 @B@@@@BT )@@G@@ S A3,QTMODE . MODE, @B@@@@ S X11,SVX1BU )@@G@@1 . X11, @E@@@@ S R2,SVR2 . FORBIDDEN REBV )@@G@@GISTERS, @^@@@@ DS A4,SVA45@#@@@@ E$COLN @D@@@@BW )@@G@@ S A0,STCOL . AND START COLUMN.@D@@@@ L BX )@@G@@ A0,INSTR . GET INSTRUCTION WORD. @D@@@@ LMJ X11,ASMNBY )@@G@@EM . SEARCH MNEMONIC TABLE. @E@@@@ J NCDABS . NO-FIBZ )@@G@@ND. ENCODE ABSOLUTE. @ @@@@ S A3,TCODES @C@@@@ CA )@@G@@ DS A1,A4 . SAVE J, A VALUES.@D@@@@ E$FD1 CB )@@G@@ . ENCODE F-MNEMONIC. @D@@@@ JZ A4,JFLAGS . IF JCC )@@G@@=0, SKIP J-TEST. @F@@@@ L A0,TESTJ . (JCODE=0 ALWAYS RCD )@@G@@ETURNS J=-0.) @E@@@@ J $,A0 . ELSE, BRANCH ON JCE )@@G@@-TEST CODE. @^@@@@ J JTEST1 @^@@@@ J JTEST2 CF )@@G@@@]@@@@JTEST3 . @E@@@@ TE,U A4,W . F-PROTOTYPE: LM. CG )@@G@@J MUST BE @E@@@@ TNE,U A4,XU . WHOLE-WORD OR SIGN-EXTCH )@@G@@ENDED.@^@@@@ J JTEST1 @^@@@@ TG,U A4,XH2 @^@@@@CI )@@G@@ TGE,U A4,T1 @E@@@@ J NOTINST . IF NOT, ENCCJ )@@G@@ODE ABSOLUTE. @^@@@@ J JTEST1 @]@@@@JTEST2 . @C@@@@CK )@@G@@ TG,U A4,U . F-PROTOTYPE: SA. @D@@@@ J NOCL )@@G@@TINST . REJECT IF J IMMEDIATE. @]@@@@JTEST1 . @D@@@@ E$FDCM )@@G@@ ',' . ENCODE J-MNEMONIC. @^@@@@ L A1,A4 CN )@@G@@@ @@@@ L,H1 A0,JDSTAB,A1 @D@@@@ TG,U A1,4 .CO )@@G@@ UNLESS J IN RANGE 4-7, @^@@@@ TGE,U A1,7 @D@@@@ J CP )@@G@@ NCDJ . GO ENCODE MNEMONIC. @A@@@@ L A2,QTMODCQ )@@G@@E . ELSE,@F@@@@ TNE,U A2,1 . IF QUARTER-WORD MODE SCR )@@G@@PECIFIED, @F@@@@ L,H2 A0,JDSTAB,A1 . USE ALTERNATE MNEMONICS )@@G@@C LIST. @E@@@@ TNE,U A2,2 . OR, IF BYTE-MODE SPECIFCT )@@G@@IED, @D@@@@ L,U A0,'0',A1 . ENCODE NUMERICALLY. @]@@@@CU )@@G@@NCDJ . @#@@@@ E$FD1 @]@@@@JFLAGS . @E@@@@ SZ CV )@@G@@ X11 . CLEAR 'A-FIELD-ENCODED' FLAG.@B@@@@ L R1CW )@@G@@,A4 . HOLD J. @D@@@@ L,U R2,1 . SET J-IMMEDCX )@@G@@IATE FLAG. @D@@@@ TLE,U A4,U . IF J NON-IMMEDIATE CY )@@G@@@D@@@@ SZ R2 . CLEAR IMMEDIATE FLAG. @C@@@@ CZ )@@G@@ TZ R2 . IF J IMMEDIATE, @E@@@@ SZ R1 DA )@@G@@ . CLEAR PARTIAL-WORD FLAG. @B@@@@ SZ A4 .DB )@@G@@ CLEAR J. @]@@@@ E$SP@#@@@@ E$COLN @C@@@@ L DC )@@G@@ A1,A0 . CURRENT COLUMN. @^@@@@ L A0,STCOL@F@@@@DD )@@G@@ A A0,OPLGH . SPECIFIED COLUMN FOR OPERAND FIELD.@^@@@@DE )@@G@@ TLE A1,A0 @C@@@@ E$COL . TAB IF NECEDF )@@G@@SSARY.@E@@@@ LM A4,A5 . [A4] = A (AND J IF JGD). DG )@@G@@@^@@@@ L A0,TESTA@D@@@@ J $+1,A0 . BRANCDH )@@G@@H ON A-TEST CODE. @^@@@@ J ATEST0 @^@@@@ J ATDI )@@G@@EST1 @^@@@@ J ATEST2 @^@@@@ J ATEST3 @^@@@@DJ )@@G@@ J ATEST4 @B@@@@ J NCDA . F=JGD. DK )@@G@@@]@@@@ATEST6 . @F@@@@ JNZ A4,NOTINST . F-PROTOTYPE: TZ. DL )@@G@@REJECT IF A>0. @^@@@@ J ATEST0 @]@@@@ATEST4 . @D@@@@DM )@@G@@ JZ A4,NOTINST . R-REGISTER. REJECT R0. @E@@@@ A,U DN )@@G@@ A4,R1-1 . ELSE, SET ABSOLUTE ADDRESS. @^@@@@ J NCDO )@@G@@DA @]@@@@ATEST3 . @D@@@@ JZ A4,NOTINST . X-REGISTER.DP )@@G@@ REJECT X0. @^@@@@ J NCDA @]@@@@ATEST2 . @D@@@@ DQ )@@G@@ E$OCTV A4 . NOP. ENCODE ABSOLUTE. @^@@@@ J MADR )@@G@@RKA @]@@@@ATEST1 . @F@@@@ A,U A4,A0 . A-REGISTER.DS )@@G@@ SET ABSOLUTE ADDRESS. @]@@@@NCDA . @^@@@@ L A0,A4 DT )@@G@@@E@@@@ LMJ X11,REGMNEM . ENCODE REGISTER MNEMONIC. @H@@@@DU )@@G@@ J NOTINST . (ONLY NO-FIND POSSIBLE IS ILLEGAL JGD REGDV )@@G@@.) @#@@@@ E$FD1 @]@@@@MARKA . @E@@@@ LXI,U X1DW )@@G@@1,1*/17 . SET 'A-FIELD-ENCODED' FLAG. @]@@@@ATEST0 . @B@@@@ DX )@@G@@ L A1,A4 . HOLD A. @D@@@@ L A5,INSTR .DY )@@G@@ GET INSTRUCTION AGAIN. @C@@@@ LSSL A5,6+4+4 . SHIFT OFF DZ )@@G@@F,J,A.@^@@@@ DSL A3,72 @E@@@@ DSC A4,36-4 .EA )@@G@@ [A5] = X; [A4,H1] = H,I,U. @D@@@@ TZ R2 . UNLESEB )@@G@@S J IMMEDIATE @B@@@@ JZ A5,$+3 . AND X=0, @D@@@@EC )@@G@@ LDSL A3,2 . ISOLATE HI-FIELD. @^@@@@ SSL ED )@@G@@ A4,2 @^@@@@ SSA A4,18 @G@@@@. NOW [A1,A3,A4,A5]=A,HIEE )@@G@@,U,X; [R1]>0 IF PART-WORD, [R2]>0 IF IMMEDIATE. @ @@@@ L A0EF )@@G@@,TESTXHI @D@@@@ J $+1,A0 . BRANCH ON XHI-TEST. EG )@@G@@@^@@@@ J XHITEST0@^@@@@ J XHITEST1@^@@@@ EH )@@G@@ J XHITEST2@]@@@@XHITEST3 . @E@@@@ TOP,U A3,2 .EI )@@G@@ (F,J) = J-REG INSTRUCTION. @D@@@@ J NOTINST . REJECEJ )@@G@@T UNLESS H=1. @^@@@@ J XHITEST0@]@@@@XHITEST2 . @F@@@@EK )@@G@@ JNZ A3,NOTINST . (F,J)=ER . REJECT UNLESS X=H=I=0. @ @@@@EL )@@G@@ JNZ A5,NOTINST @^@@@@ J ITEST @]@@@@XHITESEM )@@G@@T1 . @D@@@@ TE A5,A1 . F-PROTOTYPE: BT,SE. @E@@@@EN )@@G@@ TOP,U A3,3 . REJECT IF X=A OR HI=00,11. @^@@@@ EO )@@G@@ J NOTINST @]@@@@XHITEST0 . @D@@@@ TG,U A4,01000 .EP )@@G@@ [(07770 AND U POSITIVE)], @^@@@@ JN ER )@@G@@ A4,ITEST@G@@@@ LXI,U A3,-1 . SET EFFECTIVE-U-IS-MAIES )@@G@@N-STORAGE FLAG. @]@@@@ITEST . @^@@@@ L A0,TESTU@D@@@@ET )@@G@@ TN X11 . WAS A-FIELD ENCODED? @D@@@@ J EU )@@G@@ $+4 . NO. NO COMMA NEEDED. @A@@@@ L,U A2,',' EV )@@G@@ . YES. @F@@@@ TE,U A0,5 . UNLESS INSTRUCTION HASEW )@@G@@ NO U-FIELD,@C@@@@ E$FD . ENCODE A COMMA.@B@@@@EX )@@G@@ TEP,U A3,2 . IF H=1, @C@@@@ LN A5,A5 EY )@@G@@ . COMPLEMENT X. @A@@@@ TOP,U A3,1 . I=1? @A@@@@EZ )@@G@@ J $+4 . NO. @E@@@@ JP A3,NOTINST .FA )@@G@@ YES. REJECT IF MS FLAG OFF. @D@@@@ E$FD '*' . ELSE,FB )@@G@@ ENCODE ASTERISK. @C@@@@ TZ R1 . J PARTIAL-WORD? FC )@@G@@@E@@@@ JP A3,NOTINST . IF SO, REJECT IF MS FLAG OFF.@C@@@@FD )@@G@@ J $+1,A0 . BRANCH ON U-TEST.@^@@@@ J UTFE )@@G@@EST0 @^@@@@ J UTEST1 @^@@@@ J UTEST2 @^@@@@FF )@@G@@ J UTEST3 @^@@@@ J UTEST4 @]@@@@UTEST5 . FG )@@G@@@E@@@@ JNZ A4,NOTINST . PROTOTYPE: QB. NO U-FIELD. @^@@@@FH )@@G@@ J FINIS @]@@@@UTEST4 . @B@@@@ JN A3,UTESTFI )@@G@@0 . MS FLAG ON?@B@@@@ L A0,A4 . NO. GET U. @B@@@@FJ )@@G@@ TNZ R2 . IS J < 016 @E@@@@ LMJ X11,REGMFK )@@G@@NEM . AND U A REGISTER ADDRESS? @A@@@@ J UTEST0 .FL )@@G@@ NO. @D@@@@ E$FD1 . YES. ENCODE MNEMONIC. @C@@@@FM )@@G@@ J NCDX . U-FIELD DONE. @]@@@@UTEST3 . @E@@@@FN )@@G@@ JN A4,NOTINST . (F,J)=ER. REJECT IF U < 0. @B@@@@ FO )@@G@@ TNZ A5 . IF INDEXED @E@@@@ TG,U A4,ERTABL .FP )@@G@@ OR NOT AMONG DEFINED ER'S. @C@@@@ J UTEST0 . ENCOFQ )@@G@@DE ABSOLUTE.@^@@@@ L A2,A4 @D@@@@ LM A0,ERTABFR )@@G@@,A2 . ELSE, GET MNEMONIC. @#@@@@ SZ A1@E@@@@ TP FS )@@G@@ ERTAB,A2 . APPEND '$' IF NECESSARY. @^@@@@ L,U A1FT )@@G@@,'$' @#@@@@ E$FD2 @^@@@@ J NCDX @]@@@@UTEST2FU )@@G@@ . @G@@@@ TGE,U A4,4*36 . (F,J)=SHIFT. REJECT IF U>4 WOFV )@@G@@RD LENGTHS @B@@@@ JZ A5,NOTINST . AND X=0. @^@@@@ FW )@@G@@ J UTEST0 @]@@@@UTEST1 . @H@@@@ JP A3,NOTINST .FX )@@G@@ (F,J) PROTOTYPE: JZ. REJECT IF MS FLAG OFF. @]@@@@UTEST0 . @D@@@@FY )@@G@@ LM A0,A4 . GET U'S MAGNITUDE. @B@@@@ L,S1FZ )@@G@@ A1,INSTR . GET F. @D@@@@ TE,U A1,044 . IF F GA )@@G@@IS 'TOP', 'TEP' @^@@@@ TNE,U A1,045 @D@@@@ TNZ R2GB )@@G@@ . AND J IS IMMEDIATE, @^@@@@ J $+3 @D@@@@GC )@@G@@ LXM A0,A4 . ENCODE ABSOLUTE. @^@@@@ J GD )@@G@@ NCDU2 @C@@@@ JN A4,NCDU1 . ELSE, IF U < 0 @G@@@@GE )@@G@@ JP A3,NCDU2 . OR MS FLAG OFF, ENCODE SIGNED MAGNITUDE.GF )@@G@@@G@@@@ EX EINS$U . [EINS$U] = , UNLESS PATCHEGG )@@G@@D. @^@@@@ J NCDX @]@@@@NCDU1 . @^@@@@ E$FDGH )@@G@@ '-' @]@@@@NCDU2 . @#@@@@ E$OCTV @]@@@@NCDX . GI )@@G@@@B@@@@ TN A5 . IF H-BIT ON@C@@@@ JZ A5GJ )@@G@@,FINIS . OR X NON-ZERO, @B@@@@ E$FD ',' . ENCODGK )@@G@@E X. @^@@@@ LM A0,A5 @B@@@@ JP A5,$+3 .GL )@@G@@ IF H WAS 1,@C@@@@ E$FD '*' . ENCODE ASTERISK.@D@@@@GM )@@G@@ LMJ X11,REGMNEM . ENCODE X-MNEMONIC. @^@@@@ ER GN )@@G@@ ERR$ @#@@@@ E$FD1 @^@@@@ J FINIS @]@@@@GO )@@G@@/NOTINST . @E@@@@ E$COLN . FIND CURRENT COLUMN NUMGP )@@G@@BER. @^@@@@ L A4,A0 @F@@@@ AN A4,STCOL .GQ )@@G@@ FIND NUMBER OF COLUMNS USED SO FAR.@C@@@@ E$COL STCOL,,W .GR )@@G@@ RESET COLUMN. @D@@@@ L,U A2,' ' . ERASE THE COLUMNSGS )@@G@@. @^@@@@ J $+2 @]@@@@ E$FD@^@@@@ JGD GT )@@G@@ A4,$-1 @D@@@@ E$COL STCOL,,W . RESET COLUMN AGAIN. GU )@@G@@@]@@@@NCDABS . @^@@@@ LN,U A0,0 @F@@@@ TZ NOGV )@@G@@TIFLG . IF NOT AN INSTRUCTION, GIVE UP? @E@@@@ J REGW )@@G@@STORE . YES. RETURN WITH [A0]=-0. @D@@@@ E$OCTF 12,INSTRGX )@@G@@ . NO. ENCODE WHOLE WORD. @]@@@@ E$SP@^@@@@ E$FD '(GY )@@G@@' @E@@@@ L A4,INSTR . THEN ENCODE F,J,A,X FIELDS. GZ )@@G@@@^@@@@ DSL A4,36-6 @^@@@@ E$OCTF 2,A4 @^@@@@ HA )@@G@@ L,U R1,3-1 @]@@@@NCDJAX . @#@@@@ SZ A4@^@@@@ HB )@@G@@ LDSL A4,4 @]@@@@ E$SP@^@@@@ E$OCTF 2,A4 @ @@@@HC )@@G@@ JGD R1,NCDJAX @^@@@@ E$FD ')' @[@@@@. HD )@@G@@@]@@@@FINIS . @D@@@@ SZ A0 . RETURN WITH [A0]=HE )@@G@@+0. @]@@@@RESTORE . @E@@@@ DL A4,SVA45 . RESTORE FORHF )@@G@@BIDDEN REGISTERS. @^@@@@ L R2,SVR2 @ @@@@ L X1HG )@@G@@1,SVX11 @^@@@@ J 0,X11 @[@@@@. @]@@@@$(2) . HH )@@G@@@G@@@@EINS$U* J NCDU2 . PATCH IF SPECIAL U-FIELD ENCODING RHI )@@G@@EQ'D. @^@@@@TESTJ $EQUF $,,S1 @^@@@@TESTA $EQUF $,,S2 @^@@@@HJ )@@G@@TESTXHI $EQUF $,,S3 @^@@@@TESTU $EQUF $,,S4 @^@@@@TCODES +0,0HK )@@G@@,0,0,0,0 @^@@@@QTMODE $EQUF $,,S1 @^@@@@OPLGH $EQUF $,,S2 HL )@@G@@@^@@@@NOTIFLG $EQUF $,,S3 @^@@@@STCOL $EQUF $,,H2 @]@@@@ HM )@@G@@ +0,0@]@@@@INSTR +0 @]@@@@SVX11 +0 @]@@@@SVR2 +0 @]@@@@SVA45 HN )@@G@@ +0D @^@@@@/ $IF TEST @#@@@@. TEST PROGRAM. @]@@@@$(0),QHO )@@G@@QQ . @^@@@@ L A15,A0 @A@@@@ P$RINT (0101,('???'L)HP )@@G@@) @^@@@@ L A0,A15 @#@@@@BREAK DXBRK @G@@@@START HQ )@@G@@ R$EAD ((ER EXIT$),RBUF) . READ 'F,J,A,X,HI,U', ALL OCTAL. @^@@@@HR )@@G@@ JZ A0,BREAK@C@@@@ SN A0,RBUF,A0 . INSERT STOPHS )@@G@@PER. @B@@@@ S$CAN SPKT . OPEN SCAN$.@D@@@@ L HT )@@G@@ A4,(4,4,4,2,16,0) . SET SHIFT COUNTS. @D@@@@ SZ A5 HU )@@G@@ . CLEAR RESULT REGISTER. @]@@@@FIELD . @C@@@@ S$NN HV )@@G@@ . NEXT A NUMBER? @A@@@@ J QQQ . NO. HW )@@G@@@C@@@@ A A5,A0 . YES. MOVE IT IN. @C@@@@ JZ HX )@@G@@ A4,DONE . ANY MORE FIELDS? @E@@@@ SZ A3 .HY )@@G@@ YES. GET NEXT SHIFT COUNT. @^@@@@ LDSL A3,6 @D@@@@ HZ )@@G@@ LSSL A5,0,A3 . SHIFT PREVIOUS FIELDS. @C@@@@ S$ND ',IA )@@G@@' . NEXT A COMMA? @A@@@@ J QQQ . NO. IB )@@G@@@E@@@@ J FIELD . YES. GO ON TO NEXT FIELD. @[@@@@IC )@@G@@. @C@@@@DONE S$NE . END OF STRING? @A@@@@ ID )@@G@@ J QQQ . NO. @A@@@@ E$DIT EPKT . YES. IE )@@G@@@C@@@@ E$OCTF 12,A5 . ENCODE OCTAL. @]@@@@ E$SPIF )@@G@@@C@@@@ L A0,A5 . ENCODE MNEMONIC. @#@@@@ SZ IG )@@G@@ A1@ @@@@ LMJ X11,EINS$ @D@@@@ P$RINT (0112,RBIH )@@G@@UF) . PRINT THE RESULTS. @C@@@@ J START . TRY AII )@@G@@NOTHER. @[@@@@. @^@@@@EPKT E$PKT 12,RBUF @ @@@@SPKT S$PKIJ )@@G@@T RBUF 'RDX',8 @#@@@@RBUF $RES 12@#@@@@PBUF $RES 64@^@@@@IK )@@G@@ $ENDF TEST @ @@@@ $END TEST->START _@@@@@ IL )@@G@@ $ENDF TEST @ @@@@ $END TEST->START _@@@@@@D@@@@ IM )@@G@@ TLE,U A4,U . IF J NON-IMMEDIATE )@@[N[^^KL[KO [@@@9(@@@AIN )@@G@@^@)@@ A]0@@^[40@@];C0@@Z[?)@@];G)@@<[0K@@];GK@@A[@@@@#AA@@@@)@E[F]@[[KOCIO )@@G@@@O[[^C@=@@@@/[@@@!/,0@@@9*K@@K[@0@@[/K@@#A/,0@@@C@@@@#[^@@@]/,0@@@AB@@@@IP )@@G@@)@N[N[K^[@[@[@@@@@/K@@];!9@@@C!9@@@#/K@@@):9@@@J%9@@@@/K@@@Y/K@@@)/KG@@OIQ )@@G@@C4@@@[AC@@@@)@X[N@^@K)#^C[@K@@/K@@@?!8K@@C!8K@@^CCH@@@C@K@@K')])@@C/)@@,IR )@@G@@/K@@];!9@@@I/K@@@)AD@@@@)@$[N[^C[@K)]@@@@@?9@@@IN8)@@[N@K@@K @@@@F/,0@@@IS )@@G@@C8H@@0:8)@@]C^H@@@:8)@@[C4)@@]AE@@@@)@1[M@^C@4C@[[KK@@G0@@@]C^@@@]C@K@@GIT )@@G@@/,0@@@')])@@C/)@@ @@@@K @@@[[*@@@[] @@@[]AF@@@@)@;[MK) ^ @K^[@K^@/K@@[CIU )@@G@@/K@@[F/K@@[H/K@@[K/K@@[Q/KG@[@C0@@@[E[@@@L/,0@@@?@K@@GAG@@@@)[ [N@K^[@^[IV )@@G@@@K[]@S/,0@@@C@@@@K/K@@[L/[@@];/K@@[LG9@@[@/[@@];/K@@[Q/ @@];/K@@[LAH@@@@IW )@@G@@)[J[N@[]@X@K)][[@@;(K@@IC[K@@#C@K@@K&'0)@@/,0@@@/K@@];/,0@@@C@@@@KG9@@@GIX )@@G@@/K@@[PAI@@@@)[T[M[@@KO[@@@@@@@/K@@[,/KG@[+C?@@@[;L@@@M;D@@@];?0@@]/[K@[ZIY )@@G@@*@@@[]; @@@);G0@[CAJ@@@@)[<[N@K[@K^[@K@@@@>80@@#%[K@@H/K@@[3/ K@];/^0@];IZ )@@G@@/K@@[,/K@@];>80@@]/K@@[*/K@@[:AK@@@@)[![N@[@K[[^@@@@@@C8)@@,/K@@[91@@@@FJA )@@G@@C*@@@[&;0__"/H@@[3/[K@[3!9@J__!9@@C@/K@@];AL@@@@)[7[MK)#@K^@K)#@@@*@@@[[JB )@@G@@')])@@C/)@@*/C0@];/K@@]@>80@@[D[K@@L=80@@]')])@@%8@@@ AM@@@@)][[F@K^[@K^JC )@@G@@[@K^@@@@@@@@/K@@#)/ @@];/K@@]E/K@@]L/K@@]W/K@@]Z/K@@])/KG@]#/C0@];AN@@@@JD )@@G@@)]E[F@[]@X@K)]K^@@@@@@@@(@@@@L/H@@];/K@@]\/,0@@@/K@@])/,0@@@(@@@[]C@@@@KJE )@@G@@/G0@])AO@@@@)]N[E(@K)]^[C-@MCK C@@@@/K@@]\/,0@@@C8K@@$0@I@@@ @@@@HE@I@@@JF )@@G@@C@)@@K/K@@])!9@@@@AP@@@@)]W[MK^[@^^[@@@@@@/K@@]*(@@@[]:8K@@>%8K@@=C4K@@#JG )@@G@@E@@@@K/C0@];/K@@])/[K@];!9@@]LAQ@@@@)]&[EK^[@KO@K)#K)A@@@@@@/,0@@@')])@@JH )@@G@@C/)@@-/K@@]\')@@@@/C0@],/H@@]?/K@@],Q#@@@KAR@@@@)]\[EK[]@GK[]@H]@W@@@@@@JI )@@G@@/,0@@@')])@@C/)@@*/DK@]7E@@@@L')])@@C/)@@,/[K@#)1@@@@LAS@@@@)]8[F]@!]@D@JJ )@@G@@K)@^ [K) @@@C8)@@ /,0@@@C^@@@]H @@@]C[@@@G/,0@@@/K@@#)/,0@@@'=@@@@AT@@@@JK )@@G@@)#[[F@K)#K^ ]@OKO[[@@@@@C@@@@#/K@@#-*?@@@]D8@@@@/,0@@@C^@@@]8^@@#]')])@@JL )@@G@@/K@@##AU@@@@)#E[MK)G^C@1]@H[@@C8K@@]C@@@@K;H@@@YC[@@@#')])@@C/)@@(')])@@JM )@@G@@C/)@@ /,0@@@C8K@@GAV@@@@)#O[N]@0@K)#[]@1@@8KK@#Q/,0@@@C8K@@]C@@@@K')])@@JN )@@G@@C/)@@ ;!@@@^ @@@@KN8K@@]/,0@@@AW@@@@)#Y@'K)#^ [KK@@@@@)@@@H@@@@@@@/K@@],JO )@@G@@/KF@@@R]0@@^N@)@@ 9!@@@A @@@@G')])@@C/)@@)AX@@@@)@[@/@@@@@@@@@@@@@@@@@@@JP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AY@@@@@@@@@@@@@@@@JQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JR )@@G@@@@^@@#@@B@@H@@-@@]@@(@@@@@E@@@@@@@#>@@@@@CECOLN$ ASMNEM EFD1$ JS )@@G@@ EDIT$T JDSTAB ECOL$ EOCTV$ REGMNEM ERTABLJT )@@G@@ ERTAB EFD2$ ERR$ EOCTF$ EINS$ @@[@@@JU )@@G@@@@@@@@EINS$U @@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@[@@@@. ^ON JW )@@G@@@G@@@@. THE ABSOLUTE CODE FOR EACH EXECUTIVE REQUEST IS THE ADDRESS RELAJX )@@G@@TIVE @G@@@@. TO ENTRY POINT 'ERTAB' OF THE CORRESPONDING MNEMONIC FOR TJY )@@G@@HE EXECU- @G@@@@. TIVE REQUEST. MNEMONICS ARE LEFT-JUSTIFIED AND SPACJZ )@@G@@E-FILLED. THOSE @G@@@@. FEW ER'S CONSISTING OF 7 CHARACTERS (LAST CHARKA )@@G@@ACTER A '$') ARE TRUN- @G@@@@. CATED TO SIX CHARACTERS AND COMPLEMENTEDKB )@@G@@, BEING RECOGNIZABLE BY THEIR @G@@@@. SIGN. UNDEFINED ER'S HAVE ENTRIESKC )@@G@@ CONSISTING OF MERELY THEIR OCTAL @E@@@@. CODES (IN FIELDATA), RIGHT-JKD )@@G@@USTIFIED AND ZERO-FILLED. @[@@@@. @F@@@@. THE CURRENT TABLE LENGKE )@@G@@TH IS 0221 AND CAN BE REFERENCED VIA LABEL@]@@@@. 'ERTABL'. 0[@@@@L,1. KF )@@G@@@[@@@@. ^EOF@[@@@@. @]@@@@ERTAB* . @]@@@@ +'0' @#@@@@ KG )@@G@@ 'IO$' @#@@@@ 'IOI$' @#@@@@ 'IOW$' @#@@@@ KH )@@G@@ 'EDJS$' @#@@@@ 'IODYA$' @#@@@@ 'WAIT$' @#@@@@ KI )@@G@@ 'WANY$' @#@@@@ 'COM$' @#@@@@ 'EXIT$' @#@@@@ KJ )@@G@@ 'ABORT$' @#@@@@ 'FORK$' @#@@@@ 'TFORK$' @#@@@@ KK )@@G@@ 'READ$' @#@@@@ 'PRINT$' @#@@@@ 'CSF$' @#@@@@ KL )@@G@@ 'IOAXI$' @#@@@@ 'IOARB$' @#@@@@ 'DATE$' @#@@@@ KM )@@G@@ 'TIME$' @#@@@@ 'IOWI$' @#@@@@ 'IOXI$' @#@@@@ KN )@@G@@ 'EABT$' @#@@@@ 'II$' @#@@@@ 'ABSAD$' @#@@@@ KO )@@G@@ 'LABEL$' @#@@@@ 'FITEM$' @#@@@@ 'INT$' @#@@@@ KP )@@G@@ 'IDENT$' @#@@@@ 'CRTN$' @#@@@@ 'BBEOF$' @#@@@@ KQ )@@G@@ 'WALL$' @#@@@@ 'ERR$' @#@@@@ 'MCT$' @#@@@@ KR )@@G@@ 'READA$' @#@@@@ 'MCORE$' @#@@@@ 'LCORE$' @#@@@@ KS )@@G@@ 'CMS$' @#@@@@ 'CMT$' @#@@@@ 'CMI$' @#@@@@ KT )@@G@@ 'CMO$' @#@@@@ 'CMD$' @#@@@@ 'CMH$' @#@@@@ KU )@@G@@ 'CMSA$' @#@@@@ 'TDATE$' @#@@@@ 'CPOOL$' @#@@@@ KV )@@G@@ 'CGET$' @#@@@@ 'CADD$' @#@@@@ 'TWAIT$' @#@@@@ KW )@@G@@ 'RT$' @#@@@@ 'NRT$' @#@@@@ 'OPT$' @#@@@@ KX )@@G@@ 'PCT$' @#@@@@ 'SETC$' @#@@@@ 'COND$' @#@@@@ KY )@@G@@ 'UNLCK$' @#@@@@ -'APRINT' @#@@@@ -'APRNTA' @#@@@@ KZ )@@G@@ -'APUNCH' @#@@@@ -'APNCHA' @#@@@@ -'APRTCN' @#@@@@ LA )@@G@@ -'APCHCN' @#@@@@ -'APRTCA' @#@@@@ -'APCHCA' @#@@@@ LB )@@G@@ 'CEND$' @#@@@@ 'IALL$' @#@@@@ 'TREAD$' @#@@@@ LC )@@G@@ 'SWAIT$' @#@@@@ 'PFI$' @#@@@@ 'PFS$' @#@@@@ LD )@@G@@ 'PFD$' @#@@@@ 'PFUWL$' @#@@@@ 'PFWL$' @#@@@@ LE )@@G@@ 'LOAD$' @#@@@@ 'RSI$' @#@@@@ 'TSQCL$' @#@@@@ LF )@@G@@ 'FACIL$' @#@@@@ 'BDSPT$' @#@@@@ 'INFO$' @#@@@@ LG )@@G@@ 'CQUE$' @#@@@@ 'TRMRG$' @#@@@@ 'TSQRG$' @#@@@@ LH )@@G@@ 'CTSQ$' @#@@@@ 'CTS$' @#@@@@ 'CTSA$' @#@@@@ LI )@@G@@ 'MSCON$' @#@@@@ 'SNAP$' @#@@@@ 'SWTCH$' @#@@@@ LJ )@@G@@ 'PUNCH$' @#@@@@ 'FFORK$' @#@@@@ 'EXSNP$' @#@@@@ LK )@@G@@ 'ROUTE$' @#@@@@ 'AWAIT$' @#@@@@ 'TSWAP$' @#@@@@ LL )@@G@@ 'TINTL$' @#@@@@ 'PRTCN$' @#@@@@ 'ACSF$' @#@@@@ LM )@@G@@ -'ACLIST' @#@@@@ 'TLBL$' @#@@@@ 'FACIT$' @#@@@@ LN )@@G@@ 'PRNTA$' @#@@@@ 'PNCHA$' @#@@@@ 'NAME$' @#@@@@ LO )@@G@@ 'ACT$' @#@@@@ 'DACT$' @#@@@@ 'CJOIN$' @#@@@@ LP )@@G@@ 'CREL$' @#@@@@ 'CLIST$' @#@@@@ 'ADACT$' @#@@@@ LQ )@@G@@ 'PRTCA$' @#@@@@ 'SETBP$' @#@@@@ 'PSR$' @#@@@@ LR )@@G@@ 'BANK$' @#@@@@ 'ADED$' @#@@@@ 'XCTS$' @#@@@@ LS )@@G@@ 'ACCNT$' @#@@@@ 'PCHCN$' @#@@@@ 'PCHCA$' @#@@@@ LT )@@G@@ 'AREAD$' @#@@@@ -'AREADA' @#@@@@ -'ATREAD' @#@@@@ LU )@@G@@ 'LINK$' @#@@@@ 'RLINK$' @#@@@@ 'EXLNK$' @#@@@@ LV )@@G@@ 'UNLNK$' @#@@@@ 'RLIST$' @#@@@@ -'SYSBAL' @#@@@@ LW )@@G@@ 'USER$' @#@@@@ 'SYMB$' @#@@@@ 'SIO$' @#@@@@ LX )@@G@@ 'ERRPR$' @#@@@@ 'SYSER$' @#@@@@ 'CKRS$' @#@@@@ LY )@@G@@ 'IOLNK$' @#@@@@ 'IOADH$' @#@@@@ 'LEVEL$' @#@@@@ LZ )@@G@@ 'LOG$' @#@@@@ 'SMU$' @#@@@@ 'CREG$' @#@@@@ MA )@@G@@ 'SREG$' @#@@@@ 'SUVAL$' @#@@@@ +'0215' @#@@@@ MB )@@G@@ 'STAB$' @#@@@@ 'PRMGA$' @#@@@@ 'PRMDB$' @^@@@@ERTABLMC )@@G@@* EQU $-ERTAB @]@@@@ END _@@@@@$' @#@@@@ 'PRMGA$' MD )@@G@@@]@]@['PRMDB$' @#@@@@ 'PRMDB$' @#@[@@ 'PRMGA$' @^@@@@ME )@@G@@ERTABL* EQU $-ERTAB )@@[S@@@@@@@ABORT$EXIT$ COM$ WANY$ WAIT$ IODYA$MF )@@G@@EDJS$ IOW$ IOI$ IO$ @@@@@0AA@@@@)@F[S@@@@@@@IOXI$ IOWI$ TIME$ DATE$ MG )@@G@@IOARB$IOAXI$CSF$ PRINT$READ$ TFORK$FORK$ AB@@@@)@Q[S@@@@@@@ERR$ WALL$ MH )@@G@@BBEOF$CRTN$ IDENT$INT$ FITEM$LABEL$ABSAD$II$ EABT$ AC@@@@)@-[S@@@@@@@MI )@@G@@CMSA$ CMH$ CMD$ CMO$ CMI$ CMT$ CMS$ LCORE$MCORE$READA$MCT$ AD@@@@MJ )@@G@@)@?[S@@@@@@@COND$ SETC$ PCT$ OPT$ NRT$ RT$ TWAIT$CADD$ CGET$ CPOOL$MK )@@G@@TDATE$AE@@@@)@7[S@@@@@@@IALL$ CEND$ 9%72799%*&799%727?9%*&7?9%?7299%>?72ML )@@G@@9%*?&99%*1?&UNLCK$AF@@@@)[][S@@@@@@@FACIL$TSQCL$RSI$ LOAD$ PFWL$ PFUWL$MM )@@G@@PFD$ PFS$ PFI$ SWAIT$TREAD$AG@@@@)[H[S@@@@@@@SWTCH$SNAP$ MSCON$CTSA$ MN )@@G@@CTS$ CTSQ$ TSQRG$TRMRG$CQUE$ INFO$ BDSPT$AH@@@@)[S[S@@@@@@@TLBL$ 97,1$&MO )@@G@@ACSF$ PRTCN$TINTL$TSWAP$AWAIT$ROUTE$EXSNP$FFORK$PUNCH$AI@@@@)[<[S@@@@@@@MP )@@G@@PRTCA$ADACT$CLIST$CREL$ CJOIN$DACT$ ACT$ NAME$ PNCHA$PRNTA$FACIT$AJ@@@@MQ )@@G@@)[,[S@@@@@@@9&*5969*5969AREAD$PCHCA$PCHCN$ACCNT$XCTS$ ADED$ BANK$ PSR$ MR )@@G@@SETBP$AK@@@@)[9[S@@@@@@@SYSER$ERRPR$SIO$ SYMB$ USER$ $-$89,RLIST$UNLNK$MS )@@G@@EXLNK$RLINK$LINK$ AL@@@@)]^[S@@@@@@@STAB$ @@0215SUVAL$SREG$ CREG$ SMU$ MT )@@G@@LOG$ LEVEL$IOADH$IOLNK$CKRS$ AM@@@@)]J@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PRMDB$PRMGA$AN@@@@@@^@@]@@A@@@@@A@@]@@I@@@MV )@@G@@@@E@]L@@@@@@ERTAB @@@@@@@@@@@@ERTABL @C@@@@@@@@]L@^@@@G AMW )@@G@@LBANY, N.Y. 12201@[@@@G* @A@@@G THOMAS J. DORATO, PRESIDNET MX )@@G@@*[S@@@*SDFF*@G@@@@TEST $EQU 1/1/1 . OFF FOR SUBROUTINE, ON MY )@@G@@FOR SELF-TEST. @E@@@@. COPYRIGHT 1976, B. E. CHI, SUNY-ALBANY, ALBANYMZ )@@G@@ 12222. ^ON @G@@@@. ROUTINE EVX$ EVALUATES INTEGER EXPRESSIONS. A CO-RONA )@@G@@UTINE, SCAN$, IS @G@@@@. USED TO LEXICALLY ANALYZE AN INPUT STRING OF CNB )@@G@@HARACTERS, SORTING IT @F@@@@. INTO A LIST OF INTEGER CONSTANTS, VARIABNC )@@G@@LES AND OPERATORS. EVX$@G@@@@. PERFORMS THE SYNTACTICAL ANALYSIS REQUIRND )@@G@@ED TO COMBINE THESE ITEMS, @F@@@@. ACCORDING TO HIERARCHIAL RULES, SONE )@@G@@ AS TO YIELD A NUMERIC VALUE. @[@@@@. @G@@@@. CHARACTERS RECOGNIZED NF )@@G@@BY EVX$ AS OPERATORS ARE +, -, *, /, <, =, >, ( @G@@@@. AND ), WITH THEING )@@G@@R USUAL MEANINGS. ADDITIONALLY, DOUBLE CHARACTERS ++,@G@@@@. --, **, //NH )@@G@@, */ ARE INTERPRETED AS HAVING THE SAME MEANINGS AS IN @ASM.@G@@@@. ANOTNI )@@G@@HER OPERATOR IS ///, WHICH IF USED IN THE CONTEXT 'A///B' YIELDS @G@@@@NJ )@@G@@. THE VALUE OF THE REMAINDER RESULTING WHEN A IS DIVIDED BY B. ANY NK )@@G@@@G@@@@. OTHER DELIMITER (E.G., A SPACE OR COMMA) IS INTERPRETED AS THE ENL )@@G@@ND OF @G@@@@. THE EXPRESSION TO BE EVALUATED. THE COMPLETE LIST OF OPERNM )@@G@@ATORS AND @B@@@@. THEIR HIERARCHIES (HIGHEST FIRST) IS: @[@@@@. NN )@@G@@@B@@@@. UNARY +,- (SEE NOTE BELOW) @ @@@@. *NO )@@G@@/ SHIFT@G@@@@. *,/,//,/// MULTIPLY, DIVIDE, COVERED DIVNP )@@G@@IDE, REMAINDER @B@@@@. +,- ADD, SUBTRACT @A@@@@NQ )@@G@@. ** LOGICAL AND@B@@@@. ++,-- LOGICNR )@@G@@AL OR, XOR @A@@@@. <,=,> RELATIONAL @[@@@@. @G@@@@NS )@@G@@. SEE THE @ASM MANUAL, SECTION 1.8, FOR MORE DETAILS. THE UNARY SIGN ISNT )@@G@@@G@@@@. ACCEPTED ONLY IF IT IS THE FIRST CHARACTER OF THE EXPRESSION, ORNU )@@G@@ IF IT@A@@@@. IMMEDIATELY FOLLOWS A */ OR (. @[@@@@. @G@@@@. CONSNV )@@G@@TANTS IN THE EXPRESSION MAY BE DECIMAL, OCTAL OR HEXADECIMAL, THE @G@@@@NW )@@G@@. LATTER TWO RADICES DISTINGUISHED BY LEADING CHARACTER ZERO AND #, NX )@@G@@@F@@@@. RESPECTIVELY. THEY MAY ALSO BE IN THE FORM OF FIELDATA OR ASCIINY )@@G@@@E@@@@. STRINGS, DELIMITED BY APOSTROPHES OR QUOTES, RESPECTIVELY.@[@@@@NZ )@@G@@. @G@@@@. SYMBOLS MAY CONTAIN UP TO 12 CHARACTERS FROM THE SET A-Z, OA )@@G@@0-9, $, THE @G@@@@. FIRST CHARACTER BEING A LETTER. IF SYMBOLS ARE TO BOB )@@G@@E ALLOWED IN THE @G@@@@. EXPRESSION, THE ROUTINE TO EVALUATE THEM MUST OC )@@G@@BE SUPPLIED BY THE USER.@[@@@@. @G@@@@. TO CALL THE ROUTINE, SCAN$ MOD )@@G@@UST BE OPEN AND ITS POINTERS SET TO THE @A@@@@. FIRST ITEM OF THE EXPROE )@@G@@ESSION: @[@@@@. @ @@@@. LMJ X11,SCAN$ @]@@@@. OF )@@G@@ S$N @^@@@@. LMJ X11,EVX$@#@@@@. +H++C,S @D@@@@. OG )@@G@@ . [A0],[A1]: SEE BELOW. @E@@@@. . [A0] = VALUE OF EXPRESSION. @[@@@@. @G@@@@. IF HEXADECOI )@@G@@IMAL NUMBERS ARE NOT TO BE ALLOWED, SET PARAMETER H TO ZERO.@ @@@@. OTHEOJ )@@G@@RWISE, SET H TO 1*/17. @[@@@@. @G@@@@. IF CHARACTER CONSTANTS ARE NOK )@@G@@OT TO BE ALLOWED, SET PARAMETER C TO ZERO.@G@@@@. OTHERWISE, SET C TO 1*OL )@@G@@/16. FIELDATA CONSTANTS MAY BE 1-6 CHARACTERS @G@@@@. DELIMITED BY APOOM )@@G@@STROPHES ('). ASCII CONSTANTS MAY BE 1-4 CHARACTERS @G@@@@. DELIMITED ON )@@G@@BY QUOTES ("). THEY WILL BE RIGHT-JUSTIFIED AND ZEROFILLED @^@@@@. IN AOO )@@G@@ 36-BIT WORD. @[@@@@. @G@@@@. IF SYMBOLS ARE NOT TO BE ALLOWED, OP )@@G@@SET PARAMETER S TO ZERO. OTHERWISE,@G@@@@. WHEN A SYMBOL IS ENCOUNTEREDOQ )@@G@@, THE ROUTINE SUPPLIED BY THE USER WILL BE@G@@@@. ENTERED AT ADDRESS S BOR )@@G@@Y AN LMJ VIA X11 WITH A0-A3 CONTAINING THE PARA-@G@@@@. METERS RETURNED OS )@@G@@BY SCAN$ FOR THE SYMBOL. THE USER ROUTINE MUST EXIT @G@@@@. BY A JUMP OT )@@G@@TO 0,X11 WITH THE SYMBOL'S VALUE IN A0, AND [A2]=0100. IF @C@@@@. THE OU )@@G@@VALUE CANNOT BE FOUND, RETURN WITH [A2]=0.@[@@@@. @G@@@@. THE HEXADEOV )@@G@@CIMAL FEATURE CAN BE ELIMINATED ENTIRELY FROM THE CODE BY @G@@@@. REASOW )@@G@@SEMBLING WITH PARAMETER 'HEX' SET TO ZERO. SIMILARLY, THE CHARAC-@G@@@@OX )@@G@@. TER CONSTANT AND SYMBOL FEATURES CAN BE SUPPRESSED BY SETTING TO ZERO OY )@@G@@@G@@@@. THE PARAMETERS 'CHAR' AND 'SYM', RESPECTIVELY. IF 'HEX', 'CHAR'OZ )@@G@@ AND @F@@@@. 'SYM' ARE ALL ZERO, THE ERROR EXIT SHOULD IMMEDIATELY FOLLPA )@@G@@OW THE@B@@@@. SUBROUTINE CALL IN THE CALLING PROGRAM. @[@@@@. @G@@@@PB )@@G@@. THE ERROR EXIT FROM EVX$ IS TAKEN UNDER THE FOLLOWING CONDITIONS: PC )@@G@@@[@@@@. @F@@@@. ERROR CONDITION [A0] PD )@@G@@ [A1]@F@@@@. EXPRESSION TOO COMPLEX (STACK OVERFLOW) 1 PE )@@G@@ -0 @F@@@@. UNMATCHED PARENTHESES 2 PF )@@G@@ -0 @F@@@@. SYMBOL VALUE UNKNOWN 3 PG )@@G@@ -0 @F@@@@. INPUT NUMBER EXCEEDS 36 BITS 4 PH )@@G@@ -0 @G@@@@. SYNTACTICAL ERROR ABORT ADDRPI )@@G@@+1 # OF CHAR IN @G@@@@. PJ )@@G@@ ERROR @[@@@@. @G@@@@. THE ROUTINE ALTERS THE CONTEPK )@@G@@NTS OF X11-A3, R1. ON NORMAL RETURN, @G@@@@. POINTERS IN THE SCAN$ PL )@@G@@PACKET ARE SET TO THE ITEM THAT TERMINATED THE @#@@@@. EXPRESSION. PM )@@G@@@[@@@@. ^OFF@]@@@@/$(1) MNM$@]@@@@ LOC$@I@@@@HEX $EQU 1 PN )@@G@@ . SET TO 0(1) TO DISABLE(ENABLE) HEXADECIMAL CODE. @I@@@@PO )@@G@@CHAR $EQU 1 . SET TO 0(1) TO DISABLE(ENABLE) CHARACTER PP )@@G@@CONSTANT @G@@@@SYM $EQU 1 . SET TO 0(1) TO DISABLE(PQ )@@G@@ENABLE) SYMBOLS. @ @@@@R $EQU HEX++CHAR++SYM@^@@@@SPKT $EQUFPR )@@G@@ 0,X4 @^@@@@STP $EQUF 1,X4,S3 @ @@@@THSITM $EQUF SPKT+5,,PS )@@G@@H1 @ @@@@NXTITM $EQUF SPKT+5,,H2 @[@@@@. @]@@@@EVX$* . PT )@@G@@@C@@@@ S X1,SVX1 . SAVE X1, X2, X11.@^@@@@ S PU )@@G@@ X2,SVX2 @ @@@@ S X11,SVX11 @G@@@@ L,XU X1PV )@@G@@,-2 . RESET HOLDING STACK (HSTACK) POINTER. @G@@@@ L,XUPW )@@G@@ X2,-1 . RESET POLISH STACK (PSTACK) POINTER. @F@@@@ PX )@@G@@ DL A0,LPAREN . MARK BEGINNING OF EXPRESSION WITH @B@@@@ PY )@@G@@ DS A0,THIS . DUMMY (. @G@@@@ S$TS .PZ )@@G@@ GET CURRENT STRING ITEM AND TEST TYPE. @C@@@@ J NOTSYM QA )@@G@@ . NOT A SYMBOL. @B@@@@ J SYMBOL . A SYMBOL. QB )@@G@@@[@@@@. @]@@@@GETTHIS . @C@@@@ DL A0,NEXT . GET AQC )@@G@@NOTHER ITEM.@^@@@@PUTTHIS DS A0,THIS @^@@@@ L A0,TSYMBQD )@@G@@@D@@@@ TNE,U A0,'?' . IF END OF EXPRESSION, @F@@@@ QE )@@G@@ J COMPREC . SKIP LOOK-AHEAD OF FOLLOWING ITEM.@F@@@@GETNEXQF )@@G@@T S$NS . ELSE, GET IT AND TEST IF A SYMBOL @E@@@@ QG )@@G@@ J NOTSYM . (IN THE SCAN$ CONTEXT). @]@@@@SYMBOL . QH )@@G@@@^@@@@ $IF SYM @G@@@@ TNZ,H2 PARAMS . ANY SQI )@@G@@YMBOL ROUTINE SUPPLIED BY USER? @F@@@@ J NOSYM .QJ )@@G@@ NO, OR SYMBOL CODE SUPPRESSED. @H@@@@ LMJ X11,SWPX1X2 .QK )@@G@@ YES. SAVE POINTERS AND RESTORE USER X1, X2. @ @@@@ L X1QL )@@G@@1,SVX11 @D@@@@ LMJ X11,*0,X11 . GO EVALUATE SYMBOL. QM )@@G@@@G@@@@ LMJ X11,SWPX1X2 . SAVE USER X1, X2 AND RESTORE POINTEQN )@@G@@RS. @C@@@@ TNE,U A2,0100 . VALUE FOUND? @D@@@@ QO )@@G@@ J SAVNUM . YES. TREAT AS NUMBER. @^@@@@ $ENDF SYQP )@@G@@M @F@@@@ J NOSYM . NO. (OR SYMBOL FEATURE DISABLQQ )@@G@@ED.) @[@@@@. @]@@@@NOTSYM . @^@@@@ $IF HEX @E@@@@QR )@@G@@ TP PARAMS . HEXADECIMAL NUMBERS ALLOWED @C@@@@ QS )@@G@@ TE,U A2,'#' . AND ONE FOLLOWS?@A@@@@ J NOTHEX QT )@@G@@ . NO. @F@@@@ S$GSXO NXTITM,,W . YES. SET SCAN$ LADDER PQU )@@G@@OINTERS. @C@@@@ DSL A0,72 . CLEAR A0,A1,A3. @#@@@@QV )@@G@@ SZ A3@C@@@@L$(L$) S$G . GET NEXT DIGIT. QW )@@G@@@A@@@@ TG,U A2,'A' . A-F? @^@@@@ TGE,U A2,'F' QX )@@G@@@^@@@@ J F$(1) @A@@@@ A,U A2,10-'A' . YES. QY )@@G@@@^@@@@ J F$(2) @B@@@@L$(L$) TG,U A2,'0' . NO. 0QZ )@@G@@-9? @^@@@@ TGE,U A2,'9' @^@@@@ J F$(2) @A@@@@RA )@@G@@ AN,U A2,'0' . YES. @D@@@@L$(L$) LDSL A1,72-4 .RB )@@G@@ INCLUDE NEW DIGIT. @^@@@@ LDSC A0,4 @D@@@@ JNZ RC )@@G@@ A1,VLOFLO . ABORT IF OVERFLOW. @G@@@@ LMJ A3,B$(3)RD )@@G@@ . ELSE, MARK DIGIT RECEIVED AND CONTINUE. @H@@@@L$(L$) JNZ A3RE )@@G@@,BKSP . NOT 0-9, A-F. DONE IF ANY DIGITS RECEIVED. @D@@@@ RF )@@G@@ LMJ A0,STXERR . IF JUST A '#', ABORT. @[@@@@. @]@@@@NOTHEXRG )@@G@@ . @^@@@@ $ENDF HEX @^@@@@ $IF CHAR @D@@@@RH )@@G@@ L,H1 A3,PARAMS . NOT SYMBOL NOR HEX. @E@@@@ TOP,RI )@@G@@U A3,1*/16 . CHARACTER CONSTANTS ALLOWED? @A@@@@ J NORJ )@@G@@TCHAR . NO. @D@@@@ TE,U A2,'"' . YES. THIS A QUOTERK )@@G@@ MARK?@A@@@@ J F$(1) . NO. @G@@@@ L,U A3RL )@@G@@,9 . YES. SET BYTE SIZE FOR 1/4-WORD ASCII. @^@@@@ J RM )@@G@@ F$(2) @]@@@@L$(L$) . @G@@@@ TE,U A2,'''' . NOT SRN )@@G@@YMBOL, HEX NOR QUOTE. APOSTROPHE? @A@@@@ J NOTCHAR .RO )@@G@@ NO. @F@@@@ L,U A3,6 . YES. SET PARAMETERS FOR FIELDRP )@@G@@ATA. @E@@@@L$(L$) S$GSXO NXTITM,,W . SET SCAN$ LADDER POINTERS. RQ )@@G@@@F@@@@ S A2,R1 . SAVE INITIAL DELIMITER (" OR '). RR )@@G@@@^@@@@ DSL A0,72 @]@@@@L$(L$) . @C@@@@ S$G RS )@@G@@ . GET A CHARACTER. @C@@@@ TNE A2,STP . END ORT )@@G@@F STRING? @F@@@@ LMJ A0,STXERR . YES. MISSING TRAILING DRU )@@G@@ELIMITER. @D@@@@ TNE A2,R1 . NO. STRING DELIMITER? RV )@@G@@@A@@@@ J F$(2) . YES. @D@@@@L$(L$) TNE,U A3,9 RW )@@G@@ . NO. IF BYTE SIZE IS 9, @F@@@@ L,H1 A2,CHARTAB,A2 . TRARX )@@G@@NSLATE FIELDATA TO ASCII. @D@@@@ DSC A1,0,A3 . PUT IRY )@@G@@N TOP OF A1 AND @E@@@@ LDSC A0,0,A3 . THENCE INTO BOTTRZ )@@G@@OM OF A0. @D@@@@ JNZ A1,VLOFLO . ABORT OF OVERFLOW. SA )@@G@@@E@@@@ J B$(2) . ELSE, GET ANOTHER CHARACTER. @]@@@@SB )@@G@@L$(L$) . @F@@@@ S$G . TRAILING DELIMITER FOUNSC )@@G@@D. GET NEXT.@C@@@@ TNE A2,R1 . ALSO A DELIMITER?@D@@@@SD )@@G@@ J B$(2) . YES. ACCEPT VERBATIM. @^@@@@ J SE )@@G@@ BKSP @[@@@@. @]@@@@NOTCHAR . @^@@@@ $ENDF CHAR SF )@@G@@@H@@@@ TE,U A2,0100 . NOT SYMBOL, HEX NOR CHARACTER STRINSG )@@G@@G. A NUMBER?@A@@@@ J NOTNUM . NO. @ @@@@ $IF SH )@@G@@ HEX++CHAR @A@@@@ J SAVNUM . YES. @]@@@@BKSP SI )@@G@@ . @E@@@@ S$GCRX . BACKSPACE COLUMN NUMBER. SJ )@@G@@@^@@@@ AN,U A3,1 @ @@@@ S A3,NXTITM @ @@@@SK )@@G@@ $ENDF HEX++CHAR @B@@@@SAVNUM L A1,A0 . [A1]=SL )@@G@@VALUE.@D@@@@ L A0,NUMBER . [A0]=KEYTAB KEYWORD. @B@@@@SM )@@G@@ J PUTNEXT . GO SAVE. @[@@@@. @]@@@@NOTNUM . SN )@@G@@@C@@@@ TNE,U A2,0101 . NUMBER OVERFLOW? @D@@@@ J SO )@@G@@ VLOFLO . IF SO, TAKE ERROR EXIT.@C@@@@ TNE,U A2,0300 SP )@@G@@ . END OF STRING? @F@@@@ L,U A2,'?' . IF SO, MARKSQ )@@G@@ END OF EXPRESSION. @C@@@@ TG,U A2,0100 . A DELIMITERSR )@@G@@? @F@@@@ LMJ A0,STXERR . NO. MUST BE A SCAN$ ERROR CODSS )@@G@@E. @A@@@@ L,U R1,KEYCT . YES. @E@@@@ L A0ST )@@G@@,L2M2 . SEARCH KEYTAB FOR DELIMITER. @A@@@@ SE,S1 A2,KEYTASU )@@G@@B+2,*A0 @F@@@@ L,U A0,NOFIND . IF NO-FIND, END OF EXPRSV )@@G@@ESSION. @F@@@@ DL A0,KEYTAB,A0 . SAVE KEYTAB ENTRY CORRESW )@@G@@SPONDING TO @B@@@@ DS A0,NEXT . NEXT ITEM.@D@@@@ SX )@@G@@ SZ A0 . NOW TEST FOR DIAGRAMS. @^@@@@ L A2SY )@@G@@,NSYMB@F@@@@ TE A2,TSYMB . IF SYMBOL IS REPEATED, REPLACSZ )@@G@@E @^@@@@ J F$(1) @A@@@@ TNE,U A2,'+' .TA )@@G@@ '++'@B@@@@ DL A0,OR . WITH '!',@A@@@@ TNE,TB )@@G@@U A2,'-' . '--'@B@@@@ DL A0,XOR . WITH '\',TC )@@G@@@A@@@@ TNE,U A2,'*' . '**'@B@@@@ DL A0,AND TD )@@G@@ . WITH '&',@A@@@@ TNE,U A2,'/' . '//'@B@@@@ TE )@@G@@ DL A0,COVER . WITH ':'.@E@@@@ JNZ A0,PUTTHIS .TF )@@G@@ IF ANY, USE AS THIS ITEM. @E@@@@ J SYNTAX . ELSE,TG )@@G@@ GO TAKE SYNTAX TEST. @]@@@@L$(L$) . @D@@@@ TE,U A2,'/' TH )@@G@@ . CHECK FOR '*/', ':/'. @^@@@@ J F$(1) @^@@@@ TI )@@G@@ L A1,TSYMB@C@@@@ TNE,U A1,'*' . REPLACE '*/' TJ )@@G@@@B@@@@ DL A0,SCALE . WITH '^'. @F@@@@ TNE,U A1TK )@@G@@,':' . REPLACE ':/' (ORIGINALLY '///') @B@@@@ DL A0TL )@@G@@,RMNDR . WITH ';'. @ @@@@ JNZ A0,PUTTHIS @]@@@@L$(L$)TM )@@G@@ . @F@@@@ TNZ UFLAG . MAY THIS ITEM PRECEDE A UNARYTN )@@G@@ SIGN?@A@@@@ J SYNTAX . NO. @D@@@@ TNE,U A2TO )@@G@@,'+' . YES. IF UNARY PLUS, @C@@@@ J GETNEXT .TP )@@G@@ SIMPLY DISCARD. @ @@@@ DL A0,UMINUS @F@@@@ TNE,TQ )@@G@@U A2,'-' . IF UNARY MINUS, REPLACE WITH '''. @^@@@@PUTNEXT DS TR )@@G@@ A0,NEXT @]@@@@SYNTAX . @^@@@@ L A0,TTYPE@F@@@@ TS )@@G@@ TNE A0,NTYPE . IS THIS ITEM COMPATIBLE WITH NEXT? @C@@@@ TT )@@G@@ LMJ A0,STXERR . NO. SYNTAX ERROR.@]@@@@COMPREC . @D@@@@ TU )@@G@@ L A0,TPREC . COMPARE PRECEDENCES OF @E@@@@ TNG A0TV )@@G@@,HPREC . HSTACK ITEM AND THIS ITEM. @C@@@@ J HGT TW )@@G@@ . HSTACK>THIS. @^@@@@ TNE A0,HPREC@C@@@@ J TX )@@G@@ HET . HSTACK=THIS. @C@@@@. J HLT .TY )@@G@@ HSTACKTHIS. @D@@@@ TZ HSUK )@@G@@YMB . IS STACK ITEM A NUMBER?@A@@@@ J OPERATE .UL )@@G@@ NO. @F@@@@ L A0,HSTACK+1,X1 . YES. PULL NUMBER FROM HSTACUM )@@G@@K @^@@@@ A,U X2,1 @D@@@@ S A0,PSTACK,X2 .UN )@@G@@ AND PUSH INTO PSTACK. @C@@@@ TLEM,U X2,PLGTH . PSTACK OVERUO )@@G@@FLOW? @F@@@@ J F$(1) . NO. GO DECREMENT HSTACK POINTUP )@@G@@ER. @E@@@@ J LEVEL . YES. EXPRESSION TOO COMPLEX. UQ )@@G@@@[@@@@. @]@@@@OPERATE . @E@@@@ AN,U X2,1 . HSTACUR )@@G@@K ITEM AN OPERATOR. @E@@@@ DL A1,PSTACK,X2 . GET LAST 2 US )@@G@@NUMBERS IN PSTACK.@F@@@@ EX HSTACK+1,X1 . COMBINE USING SPEUT )@@G@@CIFIED OPERATION. @E@@@@OPRTRN S A2,PSTACK,X2 . PUT RESULT BACK IUU )@@G@@NTO PSTACK. @E@@@@L$(L$) AN,U X1,2 . DECREMENT HSTACK POINTEUV )@@G@@R. @E@@@@ J COMPREC . GO COMPARE NEXT HSTACK ITEM. UW )@@G@@@[@@@@. @]@@@@ENDEXPR . @F@@@@ TZ,U 0,X1 . END OUX )@@G@@F EXPRESSION. HSTACK EMPTY? @C@@@@ J PAREN . NO. MUY )@@G@@ISSING ). @G@@@@ TZ,U 0,X2 . YES. POLISH STACK DOWN UZ )@@G@@TO A SINGLE ENTRY?@D@@@@ ER ERR$ . NO. ROUTINE FAILUVA )@@G@@RE. @D@@@@ L A0,PSTACK . YES. GET THE RESULT. @D@@@@VB )@@G@@ L,U X11,1 . TAKE NORMAL RETURN. @^@@@@ J VC )@@G@@ EXIT @[@@@@. @]@@@@STXERR . @G@@@@ L A1,THSITVD )@@G@@M . GET COLUMN NUMBER OF CHARACTER IN ERROR. @^@@@@ J ERVE )@@G@@ROR @[@@@@. @]@@@@L$(L$) . @G@@@@LEVEL LMJ A0,F$(1) .VF )@@G@@ ERROR CODE 1: EXPRESSION TOO COMPLEX. @G@@@@PAREN LMJ A0,F$(1)VG )@@G@@ . ERROR CODE 2: UNMATCHED PARENTHESES. @G@@@@NOSYM LMJ A0VH )@@G@@,F$(1) . ERROR CODE 3: SYMBOL VALUE UNKNOWN. @H@@@@VLOFLO LMJ VI )@@G@@ A0,F$(1) . ERROR CODE 4: INPUT NUMBER EXCEEDS 36 BITS. @^@@@@VJ )@@G@@L$(L$) AN,U A0,B$(1)@D@@@@ LN,U A1,0 . MARK NOT SYVK )@@G@@NTAX ERROR. @C@@@@ERROR L,U A0,0,A0 . CLEAR INCREMENT. @^@@@@VL )@@G@@ SZ X11 @^@@@@ $IF TEST @ @@@@ S,H1VM )@@G@@ X1,STKPTRS @ @@@@ S,H2 X2,STKPTRS @^@@@@ $ENDVN )@@G@@F TEST @D@@@@EXIT A X11,SVX11 . RESTORE X11, X2, X1. VO )@@G@@@^@@@@ L X2,SVX2 @^@@@@ L X1,SVX1 @B@@@@ VP )@@G@@ J R,X11 . RETURN. @[@@@@. @[@@@@. @^@@@@ VQ )@@G@@ $IF SYM @F@@@@SWPX1X2 . [X11] . EXCHANGE [X1,X2] VR )@@G@@WITH [SVX1,SVX2]. @^@@@@ L R1,SVX1 @^@@@@ S X1VS )@@G@@,SVX1 @^@@@@ L X1,R1 @^@@@@ L R1,SVX2 @^@@@@VT )@@G@@ S X2,SVX2 @^@@@@ L X2,R1 @^@@@@ J VU )@@G@@ 0,X11 @#@@@@ $ENDF @G@@@@/. INDIVIDUAL OPERATIONS. ENTVV )@@G@@ER WITH FIRST OPERAND IN A1, SECOND IN A2.@F@@@@. RETURN TO 'OPRTRN' WITVW )@@G@@H RESULT IN A2. A0, A3 USED FOR SCRATCH. @[@@@@. @A@@@@LESS DSC VX )@@G@@ A1,36 . AB. @#@@@@VY )@@G@@ SZ A2@ @@@@ JZ A1,OPRTRN @ @@@@ JN VZ )@@G@@ A1,OPRTRN @^@@@@ J F$(1) @[@@@@. @A@@@@EQUAL WA )@@G@@ AN A1,A2 . A=B. @#@@@@ SZ A2@ @@@@ JNZ WB )@@G@@ A1,OPRTRN @^@@@@L$(L$) L,U A2,1 @^@@@@ J OPWC )@@G@@RTRN @[@@@@. @A@@@@REMAIN LN,U A0,0 . A;B. @^@@@@ WD )@@G@@ J F$(1) @E@@@@DIVIDE SZ A0 . A/B. MARK NO // WE )@@G@@ADJUSTMENT. @^@@@@ J F$(1) @E@@@@CDIVIDE L,U A0,1 WF )@@G@@ . A//B. MARK // ADJUSTMENT. @C@@@@L$(L$) DSC A1,36 .WG )@@G@@ [A1,A2]=B,A. @E@@@@ DSA A2,36 . [A2,A3]=A, SIGN EWH )@@G@@XTENDED. @F@@@@ DI A2,A1 . [A2]=QUOTIENT, [A3]=REMWI )@@G@@AINDER. @D@@@@ TP A0 . IF FUNCTION IS A;B WJ )@@G@@@E@@@@ LDSL A2,36 . SET TO RETURN REMAINDER. @F@@@@WK )@@G@@ JZ A3,OPRTRN . RETURN IF A;B OR IF NO REMAINDER. @D@@@@WL )@@G@@ TP A2 . ELSE, IF QUOTIENT<0, @F@@@@ LN WM )@@G@@ A0,A0 . COMPLEMENT ANY // ADJUSTMENT. @F@@@@ A WN )@@G@@ A2,A0 . INCLUDE THE ADJUSTMENT, IF ANY. @^@@@@ J WO )@@G@@ OPRTRN @[@@@@. @A@@@@SHIFT LM A0,A2 . A*/B.@^@@@@WP )@@G@@ TG,U A0,36+1 @D@@@@ L,U A0,36 . [A0]=MIN(36WQ )@@G@@,ABS(B)). @C@@@@ DSC A1,36 . [A1,A2]=B,A. @#@@@@WR )@@G@@ TN A1@^@@@@ LSSC A2,0,A0 @#@@@@ TP A1WS )@@G@@@^@@@@ SSA A2,0,A0 @^@@@@ J OPRTRN @[@@@@. WT )@@G@@@D@@@@COMPL LN A2,A2 . -B. SINGLE OPERAND. @F@@@@ WU )@@G@@ A,U X2,1 . ADJUST PSTACK POINTER ACCORDINGLY. @^@@@@ WV )@@G@@ J OPRTRN @ @@@@/. OPERATOR KEYWORD TABLE. @[@@@@. @]@@@@WW )@@G@@KEYTAB . @#@@@@P $PROC *7@#@@@@TAB* $NAME @D@@@@ WX )@@G@@ +P(1,1),P(2,1),P(3,1),P(4,1),P(5,1),P(6,1) @^@@@@ DO P>7 , +WY )@@G@@P(7,1)@]@@@@ $END@C@@@@. OPR T S U Y Z OPERATIOWZ )@@G@@N @C@@@@. ----------------------------------------- @C@@@@ XA )@@G@@ TAB '<' 1 2 0 0 0 +(J LESS) @C@@@@ TAB '=' 1 2 XB )@@G@@ 0 0 0 +(J EQUAL) @C@@@@ TAB '>' 1 2 0 0 0 +(J GREAXC )@@G@@TER) @C@@@@ TAB '+' 7 8 0 0 0 +(AU A1,A2) @C@@@@ XD )@@G@@ TAB '-' 7 8 0 0 0 +(ANU A1,A2) @C@@@@ TAB '*' 9 10XE )@@G@@ 0 0 0 +(MSI A2,A1) @C@@@@ TAB '/' 9 10 0 0 0 +(J DIVIXF )@@G@@DE) @ @@@@LPAREN TAB '(' 17 0 1 0 1@G@@@@L2M2 +2,-2 XG )@@G@@ . NO OPERATOR; USE SPACE FOR CONSTANT.@ @@@@ TAB ')' XH )@@G@@ 0 0 0 1 0@G@@@@KEYCT $EQU ($-KEYTAB)//2 . NUMBER OF SYMBOLS ABOVXI )@@G@@E. NONE OF THE @G@@@@ . SYMBOLS BELOXJ )@@G@@W ARE ALLOWED IN INPUT. @C@@@@OR TAB '!' 3 4 0 0 0 +(OR A1XK )@@G@@,A2) @C@@@@XOR TAB '\' 3 4 0 0 0 +(XOR A1,A2) @C@@@@AND XL )@@G@@ TAB '&' 5 6 0 0 0 +(AND A1,A2) @C@@@@COVER TAB ':' 9 10XM )@@G@@ 0 0 0 +(J CDIVIDE) @C@@@@RMNDR TAB ';' 9 10 0 0 0 +(J REMAXN )@@G@@IN) @C@@@@SCALE TAB '^' 11 12 1 0 0 +(J SHIFT) @C@@@@UMINUSXO )@@G@@ TAB '''' 13 14 0 0 1 +(J COMPL) @ @@@@NUMBER TAB 000 15 16XP )@@G@@ 0 1 1@^@@@@NOFIND $EQU $-KEYTAB@H@@@@ TAB '?' 0 0 0 1 0XQ )@@G@@ . USE THIS ITEM IN CASE NO-FIND OCCURS. @[@@@@. @B@@@@. THE XR )@@G@@TABLE PARAMETERS ARE AS FOLLOWS: @H@@@@. OPR OPERATOR SYMBOL. (THXS )@@G@@OSE AFTER 'KEYCT' ARE USED ONLY INTERNALLY.) @B@@@@. T INPUT ITEXT )@@G@@M PRECEDENCE ('THIS'). @B@@@@. S STACK ITEM PRECEDENCE ('HSTACK').XU )@@G@@@E@@@@. U IF SET FOR THIS ITEM, NEXT ITEM MAY BE UNARY SIGN. @G@@@@XV )@@G@@. Y,Z Y OF THIS INPUT ITEM AND Z OF NEXT INPUT ITEM MUST DIFFER. XW )@@G@@@D@@@@. IF NOT, EXPRESSION CONTAINS SYNTAX ERROR. @]@@@@/$(2) XX )@@G@@ . @#@@@@SVX1 $RES 1 @#@@@@SVX2 $RES 1 @^@@@@SVX11 $EQUFXY )@@G@@ $,,H2 @#@@@@PARAMS $EQUF *$@#@@@@ +0,$-$ @[@@@@. XZ )@@G@@@F@@@@THIS $RES 2 . (MUST IMMEDIATELY PRECEDE HSTACK.) YA )@@G@@@^@@@@TSYMB $EQUF THIS,,S1@^@@@@TPREC $EQUF THIS,,S2@^@@@@UFLAG YB )@@G@@ $EQUF THIS,,S4@^@@@@TTYPE $EQUF THIS,,S5@[@@@@. @E@@@@HLGTH YC )@@G@@ $EQU 2*16 . HOLDING STACK DEPTH = 16. @^@@@@HSTACK $RESYD )@@G@@ HLGTH @ @@@@HSYMB $EQUF HSTACK,X1,S1 @ @@@@HPREC $EQUF HSYE )@@G@@TACK,X1,S3 @[@@@@. @E@@@@PLGTH $EQU 16 . POLISH STACYF )@@G@@K DEPTH = 16. @^@@@@PSTACK $RES PLGTH @[@@@@. @D@@@@NEXT YG )@@G@@ $RES 2 . (MUST FOLLOW STACKS.) @^@@@@NSYMB $EQUF NEYH )@@G@@XT,,S1@^@@@@NTYPE $EQUF NEXT,,S6@^@@@@ DO TEST=0 , END @D@@@@YI )@@G@@STKPTRS +0,0 . [X1],[X2] UPON RETURN. @^@@@@/. TEST PROGYJ )@@G@@RAM. ^ON @]@@@@. PCN: L,0. @G@@@@. @EVX EVALUATES INTEGER EXPRESSIONSYK )@@G@@. CALLED AS A PROCESSOR, IT SOLI- @C@@@@. CITS INPUT WITH A ':'. THE YL )@@G@@USER RESPONDS WITH@[@@@@. @^@@@@. [[VAR:]EXPR][,FORM] @[@@@@. YM )@@G@@@G@@@@. 'EXPR' IS THE INTEGER (AS OPPOSED TO FLOATING-POINT) EXPRESSION YN )@@G@@TO BE @G@@@@. EVALUATED. 'VAR' IS A VARIABLE NAME TO BE ASSIGNED TO THEYO )@@G@@ RESULT. @G@@@@. 'FORM' IS THE FORMAT WITH WHICH THE RESULT IS TO BE YP )@@G@@PRINTED. AFTER AN@G@@@@. EXPRESSION IS EVALUATED, ITS VALUE IS ALWAYS PYQ )@@G@@RINTED EXCEPT WHEN 'VAR'@A@@@@. IS SPECIFIED AND 'FORM' IS NOT. @[@@@@YR )@@G@@. @G@@@@. THE [] ABOVE ARE NOT PART OF THE INPUT BUT INSTEAD INDICATYS )@@G@@E FIELDS @A@@@@. THAT MAY BE OPTIONALLY OMITTED. @[@@@@. @F@@@@YT )@@G@@. EXPRESSIONS MAY CONTAIN CONSTANTS, VARIABLE NAMES AND OPERATORS.@G@@@@YU )@@G@@. LEGAL OPERATORS ARE +, -, *, /, <, =, >, ( AND ), WITH THEIR USUAL YV )@@G@@@G@@@@. MEANINGS. ADDITIONALLY, DOUBLE CHARACTERS ++, --, **, //, */ ARYW )@@G@@E @G@@@@. INTERPRETED AS HAVING THE SAME MEANINGS AS IN @ASM. ANOTHYX )@@G@@ER OPERATOR @G@@@@. IS ///, WHICH IF USED IN THE CONTEXT 'A///B' YIELDS YY )@@G@@THE VALUE OF THE @F@@@@. REMAINDER RESULTING WHEN A IS DIVIDED BY B. AYZ )@@G@@NY OTHER DELIMITER@G@@@@. (E.G., A SPACE OR COMMA) IS INTERPRETED AS THEZA )@@G@@ END OF THE EXPRESSION @G@@@@. TO BE EVALUATED. THE COMPLETE LIST OF OZB )@@G@@PERATORS AND THEIR HIERARCHIES@^@@@@. (HIGHEST FIRST) IS: @[@@@@. ZC )@@G@@@B@@@@. UNARY +,- (SEE NOTE BELOW) @ @@@@. *ZD )@@G@@/ SHIFT@G@@@@. *,/,//,/// MULTIPLY, DIVIDE, COVERED DIVZE )@@G@@IDE, REMAINDER @B@@@@. +,- ADD, SUBTRACT @A@@@@ZF )@@G@@. ** LOGICAL AND@B@@@@. ++,-- LOGICZG )@@G@@AL OR, XOR @A@@@@. <,=,> RELATIONAL @[@@@@. @G@@@@ZH )@@G@@. THE UNARY SIGN IS ALLOWED ONLY IF IT BEGINS THE EXPRESSION OR IF IT ZI )@@G@@@A@@@@. IMMEDIATELY FOLLOWS A */ OR (. @[@@@@. @G@@@@. VARIABLES ZJ )@@G@@MAY APPEAR IN AN EXPRESSION ONLY IF THEY HAVE BEEN GIVEN A @G@@@@. VALUZK )@@G@@E AS A RESULT OF AN EARLIER EVALUATION OR ARE DEFINED ON INITIAL @G@@@@ZL )@@G@@. PROGRAM ENTRY. ALL SYMBOLS DEFINED IN ERU$ FALL IN THE LATTER CLASS. ZM )@@G@@@[@@@@. @G@@@@. CONSTANTS MAY BE DECIMAL, OCTAL OR HEXADECIMAL, THE ZN )@@G@@LATTER TWO RADICES@G@@@@. DISTINGUISHED BY LEADING CHARACTER ZERO AND #,ZO )@@G@@ RESPECTIVELY. THEY MAY@G@@@@. ALSO BE IN THE FORM OF FIELDATA OR ASCIIZP )@@G@@ STRINGS, DELIMITED BY APO- @F@@@@. STROPHES OR QUOTES, RESPECTIVELY. ZQ )@@G@@ EXAMPLES OF THE VARIOUS WAYS @G@@@@. CONSTANTS CAN BE SPECIFIED ARE SHOZR )@@G@@WN BELOW IN THE DISCUSSION OF THE @#@@@@. FORMAT FIELD. @[@@@@. ZS )@@G@@@G@@@@. THE VARIABLE FIELD MAY BE USED ONLY IF THE EXPRESSION FIELD IS PZT )@@G@@RE- @G@@@@. SENT. THE VARIABLE NAMED IN THE FIELD BECOMES DEFINED ANDZU )@@G@@ GIVEN THE @G@@@@. VALUE OF THE EXPRESSION. A REFERENCE TO THIS VARIABZV )@@G@@LE IN ANY SUBSE- @G@@@@. QUENT EXPRESSION WILL CAUSE THE CORRESPONDING ZW )@@G@@VALUE TO BE SUBSTITUTED.@G@@@@. (IF THE VARIABLE FIELD BE ABSENT, THE VAZX )@@G@@RIABLE '$' IS GIVEN THE VALUE @G@@@@. OF THE EXPRESSION.) VARIABLE NAMEZY )@@G@@S CONSIST OF 1-12 CHARACTERS FROM @G@@@@. THE SET A-Z, 0-9, $, THE FIRZZ )@@G@@ST BEING A LETTER. THERE MAY BE INDEFINI-@C@@@@. TELY MANY VARIABLES. AA )@@G@@EXAMPLE: BETA:ALPHA/4+8@[@@@@. @G@@@@. IF THE EXPRESSION FIELD IS EAB )@@G@@NTIRELY ABSENT THE EXPRESSION '+$' IS IM- @B@@@@. PLIED AND ITS CURRENT AC )@@G@@VALUE IS PRINTED. @[@@@@. @G@@@@. THE FORMAT FIELD SPECIFIES THE WAYAD )@@G@@ THE VALUE OF THE EXPRESSION IS TO @F@@@@. BE PRINTED. IT CONSISTS OF AE )@@G@@A COMMA, FOLLOWED BY ONE OF THE SIX @G@@@@. LETTERS A, B, D, F, H, O. IAF )@@G@@F MISSING, THE MOST PREVIOUSLY SPECIFIED @G@@@@. FORMAT IS USED. ON ENAG )@@G@@TRY TO @EVX, THE FORMAT IS SET TO 'B' UNLESS ONE@G@@@@. OF THE OTHER LETAH )@@G@@TERS IS GIVEN AS A PROCESSOR OPTION (E.G.: @EVX,D). @#@@@@. THE FORMATAI )@@G@@S ARE:@[@@@@. @C@@@@. SPEC FORMAT RESULT AJ )@@G@@@C@@@@. ,A ASCII "S8K" @C@@@@. AK )@@G@@ ,B SIGNED OCTAL 0123270113@C@@@@. ,D SIGNED DECAL )@@G@@IMAL 21852235 @C@@@@. ,F FIELDATA '@[NR[F' AM )@@G@@@C@@@@. ,H HEXADECIMAL #0014D704B@D@@@@. AN )@@G@@ ,O 12-DIGIT OCTAL 000123270113 @[@@@@. @C@@@@. (ALL EXAMPAO )@@G@@LES ARE FOR THE SAME NUMERIC VALUE.)@[@@@@. ^EOF@[@@@@/. @]@@@@$(3) AP )@@G@@ $LIT@]@@@@START . @ @@@@ C$TNCY CPKT,'ABDFHO' @D@@@@ AQ )@@G@@ L,U A1,BFORM . ASSUME NO FORMAT SPEC. @[@@@@. @^@@@@F AR )@@G@@ $PROC *999 @#@@@@OPTNS* $NAME @^@@@@F(I,1)* $EQU F(I,1) AS )@@G@@@D@@@@ TNO A0,F(I,1) . IF FORMAT OPTION GIVEN,@E@@@@ AT )@@G@@ L,U A1,[F(I,1):'FORM'] . SET INITIAL FORMAT. @]@@@@ $ENDAU )@@G@@@[@@@@. @B@@@@I DO 5 , OPTNS 'A' 'D' 'F' 'H' 'O' @ @@@@ AV )@@G@@ S A1,FORMAT @C@@@@ R$EAD RPKT . DISCARD INFAW )@@G@@OR. @H@@@@ L,U A15,1+ERUTABL . MARK SYMBOL TABLE EMPTY EXCEAX )@@G@@PT FOR '$', ERU$. @]@@@@AGAIN . @E@@@@ L,U X8,STAB .AY )@@G@@ SET SYMBOL POINTER TO '$'. @D@@@@ L A14,VAL$ . GET $AZ )@@G@@'S CURRENT VALUE. @F@@@@ L X9,FORMAT . SET TO PRINT EXPRBA )@@G@@ESSION VALUE. @D@@@@ T$READ TRPKT . READ THE INPUT STBB )@@G@@RING. @^@@@@ L,U A0,0,A0 @G@@@@ JZ A0,0,X9 .BC )@@G@@ IF INPUT VOID, LIST $'S CURRENT VALUE. @E@@@@ SN A0,BUF,ABD )@@G@@0 . ELSE, INSERT TERMINATOR. @B@@@@ S$CAN SCPKT .BE )@@G@@ OPEN SCAN$.@]@@@@ S$N @D@@@@ TNE,U A2,',' . JUST BF )@@G@@A FORMAT SPEC? @A@@@@ J NEWFMT . YES. @E@@@@ BG )@@G@@ TE,U A2,0200 . NO. FIRST ITEM A SYMBOL? @D@@@@ J BH )@@G@@ CALL . NO. GO ENTER EVX$. @D@@@@ DL A6,A0 BI )@@G@@ . YES. RESCUE SYMBOL @E@@@@ L A8,ITEMS . AND BJ )@@G@@CURRENT SCAN$ POINTERS. @D@@@@ S$ND ':' . NEXT ITEM ABK )@@G@@ COLON? @A@@@@ J NOSAVE . NO. @D@@@@ DL BL )@@G@@ A0,A6 . YES. SEE IF SYMBOL IS @D@@@@ LMJ A3,SLOOKBM )@@G@@ . ALREADY IN TABLE. @D@@@@ J F$(1) . IT ISBN )@@G@@. X7 POINTS TO IT.@G@@@@ L,U A0,3+2,X7 . IT ISN'T. [A0]=LWBO )@@G@@A REQUIRED FOR NEW ITEM.@^@@@@ XOR,U A0,0,X7 @F@@@@ TEP,BP )@@G@@U A1,01000 . IS ANOTHER CORE BLOCK REQUIRED? @C@@@@ ER BQ )@@G@@ MCORE$ . IF SO, GET IT. @D@@@@ A,U A15,1 .BR )@@G@@ YES. BUMP SYMBOL COUNT.@E@@@@ SZ 3,*X7 . X7 POINTS TBS )@@G@@O FIRST VACANCY. @D@@@@L$(L$) S$N . SET SCAN$ TO NEXTBT )@@G@@ ITEM.@D@@@@ L,U X8,0,X7 . SET SYMBOL POINTER. @E@@@@BU )@@G@@ L,U X9,AGAIN . SET TO BYPASS PRINTING VALUE.@^@@@@ BV )@@G@@ J CALL @]@@@@NOSAVE . @F@@@@ S A8,ITEMS .BW )@@G@@ NO COLON. RESTORE SCAN$ POINTERS. @D@@@@CALL LMJ X11,EVX$ .BX )@@G@@ GO EVALUATE EXPRESSION.@F@@@@ DO R , +3*/16,EVSYMB . ALLOW HEX, BY )@@G@@CHARACTERS, SYMBOLS. @C@@@@ J EVXERR . ERROR RETURBZ )@@G@@N. @F@@@@ S A0,A14 . NORMAL RETURN. HOLD NEW VALUECA )@@G@@. @C@@@@ S$TE . END OF INPUT? @^@@@@ CB )@@G@@ TNE,U A2,' ' @E@@@@ J SAVEV . YES. VALUE IS ACCCC )@@G@@EPTABLE. @D@@@@ TNE,U A2,',' . NO. FORMAT FOLLOWS? CD )@@G@@@E@@@@NEWFMT S$NS . AND NEXT ITEM A SYMBOL? @C@@@@CE )@@G@@ J SNTXER . NO. SYNTAX ERROR.@F@@@@ TE,U A3CF )@@G@@,1 . YES. FORMAT SPEC JUST 1 CHARACTER? @C@@@@ J F$CG )@@G@@(1) . NO. GIVE WARNING.@C@@@@ DSL A0,72-6 . YES. CH )@@G@@PUT IN A1. @[@@@@. @#@@@@FMT* $PROC *0@D@@@@ TNE,U A1CI )@@G@@,F(I,1) . IF FORMAT LETTER LEGAL,@F@@@@ L,U A0,[F(I,1):'FOCJ )@@G@@RM'] . GET CORRESPONDING POINTER. @]@@@@ $END@[@@@@. @#@@@@CK )@@G@@I DO F , FMT@C@@@@ JZ A0,F$(1) . FORMAT LEGAL? CL )@@G@@@E@@@@ S A0,FORMAT . YES. SAVE AS NEW FORMAT. @ @@@@CM )@@G@@ L X9,FORMAT @^@@@@ J SAVEV @D@@@@L$(L$)CN )@@G@@ P$RINT '(FORMAT SPEC BAD; IGNORED.)' . NO. @C@@@@SAVEV TNZ 0,CO )@@G@@X8 . IF SYMBOL IS NEW,@B@@@@ DS A6,0,X8 . SAVECP )@@G@@ IT. @E@@@@ S A14,2,X8 . PUT VALUE AWAY IN TABLE. CQ )@@G@@@^@@@@ J 0,X9 @[@@@@. @[@@@@. @A@@@@SLOOK . [ACR )@@G@@3] FIND SYMBOL IN TABLE.@^@@@@ L R1,A15 @ @@@@ L CS )@@G@@ X7,(3,STAB-3) @^@@@@L$(L$) SE A0,3,*X7@B@@@@ J 1,CT )@@G@@A3 . NOT FOUND. @^@@@@ TE A1,1,X7 @^@@@@ J CU )@@G@@ B$(1) @B@@@@ J 0,A3 . FOUND. @[@@@@. CV )@@G@@@A@@@@EVSYMB . [X11] FIND SYMBOL VALUE. @D@@@@ DS A0,R14 CW )@@G@@ . SAVE FOR ERROR MESSAGE.@C@@@@ SZ A2 . ASSUMCX )@@G@@E NO-FIND. @C@@@@ LMJ A3,SLOOK . LOOK FOR SYMBOL. @D@@@@CY )@@G@@ L,U A2,0100 . IF FOUND, SET FLAG. @C@@@@ L CZ )@@G@@ A0,2,X7 . GET ANY VALUE. @C@@@@ J 0,X11 .DA )@@G@@ RETURN TO EVX$. @G@@@@/. ENCODING ROUTINES FOR VARIOUS FORMATS. NUMBEDB )@@G@@R TO ENCODE IN A14. @[@@@@. @A@@@@AFORM . ENCODE AS ASCII WORDDC )@@G@@. @A@@@@ L A13,($CAS('" ="')) @^@@@@ LDSC A1DD )@@G@@3,9 @^@@@@ DS A13,BUF @ @@@@ A$PRINT (0102,BUF) DE )@@G@@@^@@@@ J AGAIN @[@@@@. @E@@@@BFORM . ENCODE AS SIGNDF )@@G@@ED VARIABLE-LENGTH OCTAL NUMBER. @^@@@@ LM A13,A14 @A@@@@DG )@@G@@ L,U A0,(' =\A14\\\'L) @^@@@@ TP A14 @A@@@@DH )@@G@@ L,U A0,(' =-\A13\\\'L) @^@@@@ J ERMSG @[@@@@DI )@@G@@. @E@@@@DFORM . ENCODE AS SIGNED VARIABLE-LENGTH DECIMAL NUMBER. DJ )@@G@@@A@@@@ L,U A0,(' =\A14,D\\\'L) @^@@@@ J ERMSG DK )@@G@@@[@@@@. @A@@@@FFORM . ENCODE AS FIELDATA WORD. @A@@@@ L DL )@@G@@ A13,(''' =''') @^@@@@ LDSC A13,18 @^@@@@ J DM )@@G@@ PRINT @[@@@@. @F@@@@HFORM . ENCODE AS 9-DIGIT HEXADECIMAL NUDN )@@G@@MBER WITH LEADING '#'. @^@@@@ L A1,A14 @^@@@@ LN,UDO )@@G@@ A13,0 @ @@@@ LN,U A14,-' =#' @#@@@@L$(L$) SZ A0DP )@@G@@@^@@@@ LDSL A0,4 @^@@@@ TG,U A0,10 @A@@@@ DQ )@@G@@ AN,U A0,'0'-('A'-10) @^@@@@ LDSL A13,6 @ @@@@ DR )@@G@@ A,U A14,'0',A0 @ @@@@ JN A13,B$(1) @^@@@@PRINT DS )@@G@@ DS A13,BUF @ @@@@ P$RINT (0102,BUF) @^@@@@ J DT )@@G@@ AGAIN @[@@@@. @B@@@@OFORM . ENCODE AS 12-DIGIT OCTAL NUMBER.DU )@@G@@@A@@@@ L,U A0,(' =\A14,12\\\'L)@ @@@@ERMSG LMJ X11,ERMSDV )@@G@@G$ @^@@@@ J AGAIN @#@@@@/. ERROR HANDLING.@C@@@@EVXERRDW )@@G@@ JP A1,F$(1) . SYNTAX ERROR? @A@@@@ J $,A0 DX )@@G@@ . NO. @#@@@@ E$RM 1 @#@@@@ E$RM 2 @#@@@@ DY )@@G@@ E$RM 3 @#@@@@ E$RM 4 @[@@@@. @^@@@@SNTXER L,H1 A1DZ )@@G@@,ITEMS@D@@@@L$(L$) A,U A1,1 . YES. [A1]=ERROR COLUMN.@#@@@@EA )@@G@@ SZ A0@^@@@@ DI,U A0,6 @F@@@@ L R1EB )@@G@@,A0 . PRINT '?' IN OFFENDING COLUMN. @^@@@@ L,U A0EC )@@G@@,(''L)@ @@@@ L A2,(1,BUF) @^@@@@ BT A2,0,*A0ED )@@G@@@^@@@@ MSI,U A1,6 @ @@@@ L A0,('?'L) @^@@@@EE )@@G@@ SSC A0,0,A1 @^@@@@ S A0,0,*A2@^@@@@ AN,UEF )@@G@@ A2,BUF @^@@@@ L,U A0,BUF @ @@@@ LXI,U A0,0100,EG )@@G@@A2 @^@@@@ ER PRINT$ @^@@@@ J AGAIN @[@@@@EH )@@G@@/. @A@@@@EMS$(1) 'EXPRESSION TOO COMPLEX.\\' @A@@@@EMS$(2) 'UNMATCHEDEI )@@G@@ PARENTHESES.\\' @D@@@@EMS$(3) 'VARIABLE ''\R14,F\\R15,F\'' UNDEFINED.\EJ )@@G@@\' @B@@@@EMS$(4) 'INPUT NUMBER EXCEEDS 36 BITS.\\' @ @@@@TRPKT ICW EK )@@G@@ 1,+(LJSR ':') @^@@@@RPKT (ER EXIT$),BUF @[@@@@. @]@@@@$(4) EL )@@G@@ . @^@@@@CPKT ERR$PKT AGAIN @A@@@@SCPKT S$PKT BUF 'SXT',1,('EM )@@G@@$') @^@@@@ITEMS $EQU SCPKT+5 @#@@@@FORMAT +BFORM @#@@@@BUF EN )@@G@@ $RES 28@C@@@@STAB '$'D . DEFAULT SYMBOL. @]@@@@EO )@@G@@VAL$ +0 @G@@@@ERUTAB $UNLIST . (ERU$ SYMBOL TABLE LISTEP )@@G@@ING SUPPRESSED.) @^@@@@P $PROC *1,3 @#@@@@ERU* $NAME EQ )@@G@@@#@@@@ P(1,1)LD @#@@@@ +[P(1,1)] @]@@@@ $END@#@@@@ER )@@G@@ ERU 'ABORT$' @]@@@@ ERU 'ABR$' @#@@@@ ERU 'ABSAD$' @]@@@@ ERU 'ES )@@G@@ABSR$'@]@@@@ ERU 'ABSW$'@#@@@@ ERU 'ACCNT$' @#@@@@ ERU 'ACLIST$' ET )@@G@@@]@@@@ ERU 'ACQ$' @]@@@@ ERU 'ACSF$'@]@@@@ ERU 'ACT$' @#@@@@ ERU 'ADACT$EU )@@G@@' @]@@@@ ERU 'ADED$'@#@@@@ ERU 'APCHCA$' @#@@@@ ERU 'APCHCN$' EV )@@G@@@#@@@@ ERU 'APNCHA$' @#@@@@ ERU 'APRINT$' @#@@@@ ERU 'APRNTA$' EW )@@G@@@#@@@@ ERU 'APRTCA$' @#@@@@ ERU 'APRTCN$' @#@@@@ ERU 'APUNCH$' EX )@@G@@@#@@@@ ERU 'AREADA$' @#@@@@ ERU 'AREAD$' @#@@@@ ERU 'ASCII$' EY )@@G@@@#@@@@ ERU 'ATREAD$' @#@@@@ ERU 'AWAIT$' @]@@@@ ERU 'BANK$'@#@@@@EZ )@@G@@ ERU 'BBEOF$' @]@@@@ ERU 'BDR$' @#@@@@ ERU 'BDSPT$' @]@@@@ ERU 'FA )@@G@@BDW$' @]@@@@ ERU 'BRD$' @]@@@@ ERU 'BSD$' @]@@@@ ERU 'BSF$' @]@@@@ ERU 'FB )@@G@@BSRD$'@]@@@@ ERU 'CADD$'@]@@@@ ERU 'CEND$'@]@@@@ ERU 'CGET$'@#@@@@ ERU 'FC )@@G@@CJOIN$' @]@@@@ ERU 'CKRS$'@#@@@@ ERU 'CLIST$' @]@@@@ ERU 'CMD$' FD )@@G@@@]@@@@ ERU 'CMH$' @]@@@@ ERU 'CMI$' @]@@@@ ERU 'CMO$' @]@@@@ ERU 'CMSA$'FE )@@G@@@]@@@@ ERU 'CMS$' @]@@@@ ERU 'CMT$' @]@@@@ ERU 'COM$' @]@@@@ ERU 'COND$'FF )@@G@@@#@@@@ ERU 'CPOOL$' @]@@@@ ERU 'CQUE$'@]@@@@ ERU 'CREG$'@]@@@@ ERU 'FG )@@G@@CREL$'@]@@@@ ERU 'CRTN$'@]@@@@ ERU 'CSF$' @]@@@@ ERU 'CTSA$'@]@@@@ ERU 'FH )@@G@@CTSQ$'@]@@@@ ERU 'CTS$' @]@@@@ ERU 'CW$' @#@@@@ ERU 'CYCLIM$' @]@@@@FI )@@G@@ ERU 'DACT$'@]@@@@ ERU 'DADD$'@]@@@@ ERU 'DATE$'@#@@@@ ERU 'DBACK$' FJ )@@G@@@]@@@@ ERU 'DBB$' @#@@@@ ERU 'DBITS$' @]@@@@ ERU 'DCYC$'@#@@@@ ERU 'FK )@@G@@DGETP$' @]@@@@ ERU 'DGET$'@]@@@@ ERU 'DKEY$'@#@@@@ ERU 'DLAPS$' FL )@@G@@@#@@@@ ERU 'DLINK$' @#@@@@ ERU 'DMBTS$' @]@@@@ ERU 'DMBT$'@#@@@@FM )@@G@@ ERU 'DREAD$' @]@@@@ ERU 'DREG$'@#@@@@ ERU 'DUNLD$' @]@@@@ ERU 'FN )@@G@@EABT$'@]@@@@ ERU 'EACQ$'@]@@@@ ERU 'EDJS$'@#@@@@ ERU 'EQUIP$' @#@@@@FO )@@G@@ ERU 'ERRPR$' @]@@@@ ERU 'ERR$' @]@@@@ ERU 'EXIT$'@#@@@@ ERU 'EXLNK$FP )@@G@@' @#@@@@ ERU 'EXSNP$' @#@@@@ ERU 'FACIL$' @#@@@@ ERU 'FACIT$FQ )@@G@@' @#@@@@ ERU 'FBLKSX$' @]@@@@ ERU 'FEQP$'@#@@@@ ERU 'FFILEX$' FR )@@G@@@#@@@@ ERU 'FFORK$' @#@@@@ ERU 'FITEM$' @]@@@@ ERU 'FORK$'@#@@@@FS )@@G@@ ERU 'FREELX$' @]@@@@ ERU 'FSF$' @]@@@@ ERU 'GW$' @]@@@@ ERU 'IALL$'FT )@@G@@@#@@@@ ERU 'IDENT$' @]@@@@ ERU 'II$' @#@@@@ ERU 'INFILE$' @]@@@@FU )@@G@@ ERU 'INFO$'@]@@@@ ERU 'INT$' @#@@@@ ERU 'IOADH$' @#@@@@ ERU 'IOARB$FV )@@G@@' @#@@@@ ERU 'IOAXI$' @#@@@@ ERU 'IODYA$' @]@@@@ ERU 'IOI$' FW )@@G@@@#@@@@ ERU 'IOLNK$' @]@@@@ ERU 'IOWI$'@]@@@@ ERU 'IOW$' @]@@@@ ERU 'FX )@@G@@IOXI$'@]@@@@ ERU 'IO$' @#@@@@ ERU 'LABEL$' @#@@@@ ERU 'LCORE$' FY )@@G@@@#@@@@ ERU 'LEVEL$' @]@@@@ ERU 'LINK$'@#@@@@ ERU 'LNAME$' @]@@@@FZ )@@G@@ ERU 'LOAD$'@]@@@@ ERU 'LOG$' @]@@@@ ERU 'MB$' @#@@@@ ERU 'MCORE$' GA )@@G@@@#@@@@ ERU 'MCSTAT$' @]@@@@ ERU 'MCT$' @]@@@@ ERU 'MF$' @]@@@@ ERU 'GB )@@G@@MODE$'@#@@@@ ERU 'MSALL$' @#@@@@ ERU 'MSCON$' @#@@@@ ERU 'MSSUM$GC )@@G@@' @]@@@@ ERU 'MS$' @]@@@@ ERU 'NAME$'@]@@@@ ERU 'NRT$' @]@@@@ ERU 'GD )@@G@@OPT$' @#@@@@ ERU 'PCHCA$' @#@@@@ ERU 'PCHCN$' @#@@@@ ERU 'PCTBD$GE )@@G@@' @]@@@@ ERU 'PCT$' @]@@@@ ERU 'PFD$' @]@@@@ ERU 'PFI$' @]@@@@ ERU 'GF )@@G@@PFS$' @#@@@@ ERU 'PFTEXT$' @#@@@@ ERU 'PFUWL$' @]@@@@ ERU 'PFWL$'GG )@@G@@@#@@@@ ERU 'PNCHA$' @#@@@@ ERU 'PRINT$' @#@@@@ ERU 'PRMDB$' GH )@@G@@@#@@@@ ERU 'PRMGA$' @#@@@@ ERU 'PRNTA$' @#@@@@ ERU 'PRTCA$' GI )@@G@@@#@@@@ ERU 'PRTCN$' @]@@@@ ERU 'PSA$' @]@@@@ ERU 'PSF$' @]@@@@ ERU 'GJ )@@G@@PSR$' @#@@@@ ERU 'PUALT$' @#@@@@ ERU 'PUNCH$' @]@@@@ ERU 'RB$' GK )@@G@@@]@@@@ ERU 'RDL$' @#@@@@ ERU 'READA$' @]@@@@ ERU 'READ$'@]@@@@ ERU 'GL )@@G@@REL$' @]@@@@ ERU 'REWI$'@]@@@@ ERU 'REW$' @#@@@@ ERU 'RLINK$' @#@@@@GM )@@G@@ ERU 'RLIST$' @#@@@@ ERU 'ROUTE$' @#@@@@ ERU 'RPCTA$' @]@@@@GN )@@G@@ ERU 'RR$' @#@@@@ ERU 'RSAGAW$' @#@@@@ ERU 'RSBAT$' @#@@@@ ERU 'GO )@@G@@RSCNTL$' @#@@@@ ERU 'RSDEM$' @#@@@@ ERU 'RSGAW$' @#@@@@ ERU 'GP )@@G@@RSGDEM$' @#@@@@ ERU 'RSGET$' @#@@@@ ERU 'RSGIO$' @#@@@@ ERU 'GQ )@@G@@RSGPR$' @#@@@@ ERU 'RSGPU$' @#@@@@ ERU 'RSGTA$' @#@@@@ ERU 'GR )@@G@@RSGTI$' @#@@@@ ERU 'RSGTW$' @]@@@@ ERU 'RSI$' @#@@@@ ERU 'RSNOT$GS )@@G@@' @#@@@@ ERU 'RSPLST$' @#@@@@ ERU 'RSPUN$' @#@@@@ ERU 'RSPUT$GT )@@G@@' @#@@@@ ERU 'RSTRA$' @#@@@@ ERU 'RSTRD$' @#@@@@ ERU 'RSTRM$GU )@@G@@' @#@@@@ ERU 'RSTRO$' @#@@@@ ERU 'RSTRY$' @#@@@@ ERU 'RSWAP$GV )@@G@@' @]@@@@ ERU 'RT$' @]@@@@ ERU 'R$' @]@@@@ ERU 'SCRB$'@]@@@@ ERU 'GW )@@G@@SCR$' @]@@@@ ERU 'SD$' @#@@@@ ERU 'SETBP$' @]@@@@ ERU 'SETC$'@]@@@@GX )@@G@@ ERU 'SIO$' @#@@@@ ERU 'SITID$' @]@@@@ ERU 'SMU$' @]@@@@ ERU 'SM$' GY )@@G@@@]@@@@ ERU 'SNAP$'@]@@@@ ERU 'SRD$' @]@@@@ ERU 'SREG$'@]@@@@ ERU 'STAB$'GZ )@@G@@@]@@@@ ERU 'SUP$' @#@@@@ ERU 'SUVAL$' @#@@@@ ERU 'SWAIT$' @#@@@@HA )@@G@@ ERU 'SWTCH$' @]@@@@ ERU 'SW$' @]@@@@ ERU 'SYMB$'@#@@@@ ERU 'SYSBALHB )@@G@@$' @#@@@@ ERU 'SYSER$' @#@@@@ ERU 'TDATE$' @#@@@@ ERU 'TFORK$HC )@@G@@' @]@@@@ ERU 'TIME$'@#@@@@ ERU 'TINTL$' @]@@@@ ERU 'TLBL$'@#@@@@HD )@@G@@ ERU 'TREAD$' @#@@@@ ERU 'TRMRG$' @]@@@@ ERU 'TRUN$'@]@@@@ ERU 'HE )@@G@@TSA$' @]@@@@ ERU 'TSF$' @#@@@@ ERU 'TSQCL$' @#@@@@ ERU 'TSQRG$' HF )@@G@@@#@@@@ ERU 'TSWAP$' @#@@@@ ERU 'TWAIT$' @#@@@@ ERU 'UNLCK$' HG )@@G@@@#@@@@ ERU 'UNLNK$' @]@@@@ ERU 'UNL$' @]@@@@ ERU 'UNTR$'@]@@@@ ERU 'HH )@@G@@USER$'@#@@@@ ERU 'USRID$' @]@@@@ ERU 'WAIT$'@]@@@@ ERU 'WALL$'@]@@@@HI )@@G@@ ERU 'WANY$'@]@@@@ ERU 'WEF$' @]@@@@ ERU 'W$' @]@@@@ ERU 'W$R$' @]@@@@HJ )@@G@@ ERU 'XCTS$'@#@@@@ $LIST @G@@@@ERUTABL $EQU ($-ERUTAB)/3 .HK )@@G@@ (TABLE FROM RLIB$.ERU$ DATED 8/6/79.) @G@@@@ $RES 3*26 HL )@@G@@ . START WITH ROOM FOR 26 MORE SYMBOLS. @^@@@@ $END STHM )@@G@@ART ___TS$ANY$' @^@]@@ ERU 'COM$' @^@]@@ ERU 'EHN )@@G@@XIT$' @^@]@@ ERU 'ABORT$'@^@]@@ )@@[N[KO^^[[K)@K^@/K@@@LHO )@@G@@/K@@@U/,0@@@9*@@@#9?@@#3R/)__"R/K__.AA0@@]A@)@@[A@K@@@AA@^)$)@E[F[KO^K^CHP )@@G@@@O[[K@@@@@@@/K@@],(^@K@]/K@@@U/,0@@@/K@@]#:8@@@?C4@@@#9*@@@#9?@@@5AB@^)$HQ )@@G@@)@N[N@KL@^[@KL@@@@/K@@@1%8)@@#0@@K@]/K@@],/K@@[O:8)@[@/,0@]8/,;K@@RA0@@]HR )@@G@@/,0@]8AC@^)$)@X[MK)][]@G^@K@@@/K@@@:G8)@@^/K@@@$!8)@@G!8)@@A')A)@@ @@@@JHS )@@G@@;G@@[C/,0@@@RBO@@ AD@^)$)@$[M^@[@K^[@@@@@@/\@@]%/^0@[L/\0@@-/^K@]\;=@@@^HT )@@G@@;?K@[^H8)@@0/K@@@\!8)@@'!8)@@0AE@^)$)@1[N[^@K[@^@@@@@@C80@@A/K@@[I%8)@@'HU )@@G@@/K@@@;C80@@D/K@@@8%8)@@"/K@@[I>80K@@CC0K@]AF@^)$)@;[MK)][]@GK[@@@@:80@@DHV )@@G@@/K@@[E:@)@[[/\@@]%:?=@@[')A)@@;G@@[C[@)@[[/,0@@@RBO@@ AG@^)$)[ [N]@K^[@KHW )@@G@@)#^[@@%8)@[@/K@@[L/K@@[^:@)@[[')A)@@/K@@@_/^K@]\;=J@@@;^Z@@@CC,@@@AH@^)$HX )@@G@@)[J[N@K^C[K^[@^@@@/K@@]\:8)@[[/K@@[_C@@@^^C@K@@G[^4@@ H80@@[/,0@@@/K@@[OHY )@@G@@/K@@[RAI@^)$)[T[M[@^[@^[[@@@@@9*@@@59?G@#>C8@@@)24?)#$C@@@#4N8K@@D/\@@]%HZ )@@G@@!8)@[@C8)@@?:8)@#@AJ@^)$)[<[MKO @^@K[@@@@@9?@@#':8)@@*9?@@#8:8)@@-9?@@#6IA )@@G@@:8)@@+/K@@[1%4)@@#C4)@@5 @@@@GAK@^)$)[![MK^[@^[[^@@@@@:8K@@:9?@@^@:8K@@*IB )@@G@@C4K@@#/K@@[9%8)@@//K@@]@/^@@@F9?@@#/:8)@@/AL@^)$)[7[N@K^ @^[@^ [@@C=@@@#IC )@@G@@9*@@@5:8)@@-9?@@^]/K@@@J:8)@@+/K@@]@(*@@@#/^@@@F9?@@#"AM@^)$)][[N[K^ [K^ID )@@G@@ @^ [@9*[@@ 9?@@@#O8K@@]/K@@]I:?[@@ /K@@]P??[@@ C0@@@#/\@@]%:)@@@5AN@^)$IE )@@G@@)]F[MK^[[^@^[@@@@@/K@@]!/K@@@E18[@@@P8K@@]/K@@]<:8@@@?C4@@@#/K@@]?/K@@@EIF )@@G@@$8K@@)AO@^)$)]P[N[K^^KL@K[[@@@9?M@@>P8)@@[/K@@]?/K@@]-$8)@@K[@]@@>O8)@@[IG )@@G@@C@[@@A/K@@]X*4[@@ AP@^)$)]Z[N[KL@^@K)AKK@@R'0@@[C@@@@>'=@@@@*8]@@@/K@@]!IH )@@G@@*8[@@@/K@@]#P8K@@][@+@@>')[@@AAQ@^)$)]([N@^[@K^[@E@@@@C8G@@@D8K@@@H8@@]?II )@@G@@/\@@]0/\@@]0/\@@]0/\@@]0/K@@]2CCO@@ /K@@]4AR@^)$)]3[MKO [^ [^ [@@@A@)@@[IJ )@@G@@N@K@@[R@K@[[A@K@@@N@K@@@/KF@@[R@K@@@R@)@@[OA0@@] @@@@FAS@^)$)].[M@^[@K@@IK )@@G@@@@@@@@ @@@@IH@K@@I/K@@#C/GK@])/@K@]) @@@@IH@K@@I;^K@@=/KF@@@R@)@[[AT@^)$IL )@@G@@)#B[N@^@K[@@@@@@@@;O)@@=;^K@@=C8@@@[/K@@#J @@@@G/K@@#JD8@@@@/K@@])C8)@@[IM )@@G@@/^K@])AU@^)$)#L[U[@@K@@@C8@@@=!8@@@>E@@@@I/K@@])G@)@@GD@@@@G0@@@@I/@0@])IN )@@G@@;?)@@=0@@@@GW@)@@HAV@^)$)#W[U@^@^@K@/K@@]_<[]@@@/K@@])O8)@@[D@)@@I/K@@])IO )@@G@@;K?@@@0@@@@H;)?@@@1@@@@H;^K@@=AW@^)$)#$[UK[@@@@@/DE@@@T@)@@H*DE@@@L@K@@IIP )@@G@@-BC@@@K@K@@I+BC@@@/K@@#@>[]@@@/K@@# =[]@@@AX@^)$)#2[V@@@@@@@:DE@@@+@K@@IIQ )@@G@@& A@@@-@K@@I\#^@@@)@K@@I!#^@@@)@@@[@@@]__.(L@[@[/K@@#GAY@^)$)#.[F@^@K[@@IR )@@G@@)@]@G@@@@@@@?@@@[@@JK@[[/K@@#+'HI@@[/K@@#T^FG[@@/K@@#E;DE@@@/K@@#IAZ@^)$IS )@@G@@@@^@@#@@B@@B@@P@@[@@T@@@@@E@@@@@@@^A@@@@@7STHIS$S SNEXT$S SGSXO$IT )@@G@@ SG$ CHARTAB SGCRX$ ERR$ EVX$ @@[@@@IU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@I@@@@. COPYRIGHT 1976, 1978, B. E. IV )@@G@@CHI, SUNY-ALBANY, ALBANY NY 12222. ^ON @G@@@@. FIXED (EHEIW )@@G@@XF$) AND VARIABLE (EHEXV$) HEXADECIMAL EDIT. USAGE IDENTI- @B@@@@. CAL IX )@@G@@TO EOCTF$, EOCTV$, RESPECTIVELY. @I@@@@. IY )@@G@@ ^EOF @H@@@@. THE ASCII IZ )@@G@@VERSION (AS OPPOSED TO THE FIELDATA VERSION) IS OBTAINED ON ASSEM-@H@@@@JA )@@G@@. BLING THIS ELEMENT ACCORDING TO WHETHER OR NOT THE FIRST LETTER OF THEJB )@@G@@ RELO-@C@@@@. CATABLE BINARY OUTPUT ELEMENT'S NAME IS 'A'. @[@@@@. JC )@@G@@@]@@@@ MNM$@]@@@@$(1) $LIT@B@@@@A $EQU $SS($PAR(2),1)JD )@@G@@='A'->'A'!''@ @@@@ A='A'->$ASCII!$NIL @[@@@@. @]@@@@[A]EHEJE )@@G@@XF$* .@E@@@@ AN,U A1,10 . CHARACTER COUNT (CC) - 10. JF )@@G@@@B@@@@ JN A1,$+4 . CC > 9? @E@@@@ L,U A2JG )@@G@@,'0' . IF SO, STORE CC - 9 ZEROS. @ @@@@ EX [A]EDIT$JH )@@G@@T,*X2 @^@@@@ JGD A1,$-1 @C@@@@ L,U A3,10,A1 .JI )@@G@@ MIN(CC,9)-10. @C@@@@ MSI,U A1,4 . 4*MIN(CC,9)-40. JJ )@@G@@@F@@@@ DSL A0,40,A1 . SHIFT BITS TO BE ENCODED INTO A1. JK )@@G@@@D@@@@ J HEX3 . GO ENCODE [A3] DIGITS. @[@@@@. JL )@@G@@@]@@@@[A]EHEXV$* .@D@@@@ SZ A3 . RESET DIGIT COUNTJM )@@G@@ER. @D@@@@ L,U A2,'0',A0 . ASSUME VALUE IS < 10. @B@@@@JN )@@G@@ TLE,U A0,10 . IF SO, @C@@@@ J HEX2 JO )@@G@@ . JUST GO ENCODE. @D@@@@ J $+2 . ELSE, COUNTJP )@@G@@ DIGITS. @D@@@@ A,U A3,1 . BUMP DIGIT COUNTER JQ )@@G@@@E@@@@ DSL A0,4 . AND KEEP COUNTING DIGITS. @C@@@@JR )@@G@@ JNZ A0,$-2 . GOOD STUFF IN A1.@F@@@@ L,U A2JS )@@G@@,'0' . NOW [A3] = NUMBER OF DIGITS - 1. @D@@@@ EX [AJT )@@G@@]EDIT$T,*X2 . ENCODE A LEADING ZERO.@]@@@@HEX1 . @E@@@@ LSSCJU )@@G@@ A1,4 . NEXT 4 BITS TO BOTTOM OF A1. @E@@@@ AND,U A1JV )@@G@@,017 . [A2] = DIGIT BINARY VALUE. @C@@@@ TLE,U A2,10 JW )@@G@@ . IF VALUE < 10, @C@@@@ A,U A2,'0' . BIAS TO '0JX )@@G@@'. @F@@@@ TLE,U A2,'0' . IF NO BIAS OCCURRED (VALUE > JY )@@G@@9), @C@@@@ A,XU A2,'A'-10 . BIAS TO 'A'. @]@@@@HEX2 JZ )@@G@@ . @D@@@@ EX [A]EDIT$T,*X2 . ENCODE THE DIGIT. @]@@@@KA )@@G@@HEX3 . @F@@@@ JGD A3,HEX1 . REPEAT UNTIL DIGIT COUNKB )@@G@@T EXHAUSTED.@^@@@@ J 0,X11 @[@@@@. @]@@@@ $ENDKC )@@G@@___@@@,HEX1 . REPEAT UNTIL DIGIT COUNT EXHAUSTED.@^@@@@ J KD )@@G@@ 0,X11 @[@@@@. )@@[MK[]@[@@K@@@@@ @@@@J/K@@@U;GH@@*T8K@@^C8.@@EKE )@@G@@8#K@@#')])@@C8)@@0/GK@@ H8K@@EAA@@@@)@E[M^[@[@^C@@@@@@;)K@@^')])@@C8)@@0KF )@@G@@/^@@@I;G@@@^G80@@[/K@@@J/K@@@T?8@@@EC8?@@0AB@@@@)@O[]@^C@^@@@@@@@@@@@@@@KG )@@G@@@@@@@@/KF@@@8#0@@N')])@@G/)__;?8)@@0G8)@@0?8)@@E+8K@@JAC@@@@@@@@@@@P?@Q[KH )@@G@@CK]@@@@D(^]-@P1@Q[GK]@@@@D4^]-@P.@Q[E)]@@@@D"^]-@P1@Q^C)]@@@@EB^]-@Q^@P1KI )@@G@@@@^@@]@@A@@[@@C@@]@@K@@@@@E@@@@@@@@WEDIT$T EHEXF$ @@[@@@@@@@@@KJ )@@G@@EHEXV$ @@[@@@@@@@@D@E8^#)@P$@@@4K@@@@@E_^#)@P?@@@8K@@@@@FA^#)@P1@@@KK )@@G@@/K@@@@@FH^#)@P6@@@'0@@@@*[S@@@*SDFF*@D@@@@TEST $EQU 1/1/1 .KL )@@G@@ TURN ON FOR SELF-TEST. @[@@@@. ^ON @D@@@@. *** INFOKM )@@G@@R TABLE HANDLERS *** @[@@@@. @E@@@@. DESIGNED AND IKN )@@G@@MPLEMENTED BY DEREK A. ZAVE @[@@@@. @E@@@@. SUNY-ALKO )@@G@@BANY MODIFICATIONS BY B. E. CHI @[@@@@. @[@@@@. @G@@@@. THISKP )@@G@@ ROUTINE IS DESIGNED TO PERFORM STANDARD OPERATIONS ON THE INFOR @G@@@@KQ )@@G@@. TABLE WHICH IS PRESENTED TO PROCESSORS BY READ$. THE CODE IS I-BANK KR )@@G@@@C@@@@. RE-ENTRANT AND QUARTER/THIRD-WORD INSENSITIVE.@[@@@@. @^@@@@KS )@@G@@. AVAILABLE ROUTINES: @[@@@@. @A@@@@. RINF$ - READ THE INFOR TKT )@@G@@ABLE @D@@@@. SELT$ - SEARCH FOR ELEMENT OR FILE NOTATION @A@@@@KU )@@G@@. DUSE$ - PERFORM A DYNAMIC @USE@[@@@@. @[@@@@. @[@@@@. KV )@@G@@@ @@@@. RINF$ - READ THE INFOR TABLE@[@@@@. @ @@@@. CALL: LMJ KW )@@G@@X11,RINF$ @ @@@@. @ @@@@. @[@@@@. @D@@@@. WITH A0 = LENGTH,LOCATION OF THE KY )@@G@@INFOR BUFFER@[@@@@. @G@@@@. UPON NORMAL RETURN THE INFOR TABLE HAS BKZ )@@G@@EEN READ INTO THE USER BUFFER @G@@@@. IMMEDIATELY FOLLOWED BY A WORD OF LA )@@G@@ZERO. THE PARAMETER SUPPLIED IS @G@@@@. SAVED IN THE CELL INFOR$. TOLB )@@G@@ AVOID ACCIDENTAL OVERSTORES, THE BUFFER @B@@@@. LENGTH SHOULD BE OF THLC )@@G@@E FORM 27*N+1. @[@@@@. @G@@@@. UPON AN ERROR RETURN, A0 CONTAINS LD )@@G@@THE PRINT CONTROL WORD FOR AN APPRO-@G@@@@. PRIATE ERROR MESSAGE AND A1 LE )@@G@@CONTAINS THE ERROR NUMBER. POSSIBLE VALUES@[@@@@. ARE @[@@@@. @ @@@@LF )@@G@@. 1 - NO INFOR TABLE @B@@@@. 2 - ABNORMAL RETURN FROM RLG )@@G@@EAD$ @A@@@@. 3 - INFOR TABLE TOO LARGE @[@@@@. @A@@@@$(1) LH )@@G@@ $LIT . ^OFF @]@@@@ AXR$@[@@@@. @]@@@@RINF$*LI )@@G@@ . @F@@@@ TZ INFOR$ . HAS SOMEBODY ALREADY READ INFLJ )@@G@@OR? @E@@@@ J 1,X11 . RETURN IF INFOR ALREADY READ.LK )@@G@@@D@@@@ SZ INFOR$+1 . INITIALIZE A FLAG. @]@@@@RINFD LL )@@G@@ . @B@@@@ S A0,INFOR$ . SAVE ACW. @D@@@@ SZ LM )@@G@@ INFOR$+1 . ZERO A0 SAVE LOCATION. @D@@@@ LA,U A1,,A0 LN )@@G@@ . A1 = BUFFER LOCATION. @E@@@@ AU,H1 A1,INFOR$ . A2 = LO )@@G@@LAST BUFFER LOCATION+1. @G@@@@ AN,U A2,27 . A2 = LAST PLP )@@G@@OSSIBLE STARTING ADDRESS. @E@@@@ LXI,U A1,RINF3 . BUILDLQ )@@G@@ THE READ$ CONTROL WORD.@B@@@@RINF1 LA A0,A1 . A0 = A1. LR )@@G@@@E@@@@ ER READ$ . READ THE NEXT CHUNK OF INFOR.@E@@@@LS )@@G@@ TNZ INFOR$+1 . ONLY SAVE A0 ONCE EACH CALL. @C@@@@ LT )@@G@@ SA A0,INFOR$+1 . SAVE A0 BITS. @]@@@@RINF1D . @E@@@@ LU )@@G@@ AA,U A1,,A0 . ADD THE AMOUNT JUST READ. @E@@@@ SZ LV )@@G@@ 0,A1 . CLEAR THE FOLLOWING LOCATION.@C@@@@ TOP A0LW )@@G@@,(1*/31) . WAS IT INFOR? @B@@@@ J RINF2 . NO, ELX )@@G@@RROR. @D@@@@ TOP A0,(1*/30) . IS THERE MORE TO READ? @D@@@@LY )@@G@@ J 1,X11 . NO, NORMAL RETURN. @E@@@@ LA,ULZ )@@G@@ A0,,A1 . A0 = NEXT READ LOCATION. @C@@@@ TLE,U A0MA )@@G@@,,A2 . ARE WE FULL? @C@@@@ J RINF1 . NO, TMB )@@G@@RY AGAIN. @G@@@@ LA A0,PEM3 . YES, A0 = ERROR MESSAGEMC )@@G@@ CONTROL WORD. @D@@@@ LA,U A1,3 . A1 = ERROR NUMBERMD )@@G@@. @C@@@@ J 0,X11 . ERROR RETURN. @G@@@@RINF2 ME )@@G@@ LA A0,PEM1 . A0 = ERROR MESSAGE PRINT CONTROL WORD. @D@@@@MF )@@G@@ LA,U A1,1 . A1 = ERROR NUMBER. @C@@@@ J MG )@@G@@ 0,X11 . ERROR RETURN. @]@@@@RINF3 . @C@@@@ SA MH )@@G@@ A0,INFOR$+1 . SAVE A0 BITS. @G@@@@ LA A0,PEM2 .MI )@@G@@ A0 = ERROR MESSAGE PRINT CONTROL WORD. @D@@@@ LA,U A1,2 MJ )@@G@@ . A1 = ERROR NUMBER. @C@@@@ J 0,X11 . ERRORMK )@@G@@ RETURN. @[@@@@/. ^ON@[@@@@. @ @@@@. SELT$ - BUILD THE ELT$ TABLEML )@@G@@@[@@@@. @ @@@@. CALL: LMJ X11,SELT$ @ @@@@. @ @@@@. @[@@@@. @A@@@@. WIMN )@@G@@TH A0 = LN,FN (FORM 30,6)@[@@@@. @G@@@@. WHERE 'LN' IS THE DESIMO )@@G@@RED LIST NUMBER, AND 'FN' THE DESIRED FIELD NUM-@G@@@@. BER WITHIN THE LMP )@@G@@IST. (LIST 0 CONTAINS THE PROCESSOR NAME, LIST 1 @G@@@@. COMPRISES MQ )@@G@@THE 'NORMAL' PROCESSOR CALL SPECIFICATIONS. WHILE LISTS @G@@@@. BEYOMR )@@G@@ND LIST 1 ARE NOT RETURNED AT PRESENT BY READ$, THEY MAY BE SOME- @^@@@@MS )@@G@@. TIME IN THE FUTURE.) @[@@@@. @G@@@@. THIS ROUTINE IS DESIGNED TO MT )@@G@@PICK UP A COMPLETE FIELD OF EITHER FILE @G@@@@. NOTATION OR ELEMENT NOMU )@@G@@TATION. IN ELEMENT NOTATION, FILE CONTINUATION @G@@@@. BY MEANS OF A LEMV )@@G@@ADING '.' ON THE ELEMENT NAME IS PROCESSED; THE ELE- @G@@@@. MENT CYCLEMW )@@G@@ IS ALSO EDITED TO BINARY. THE INFORMATION IS PLACED IN THE @C@@@@. TABLMX )@@G@@E ELT$ WHICH HAS THE FOLLOWING FORMAT: @[@@@@. @C@@@@. FQL ELMY )@@G@@T$+0,,S1 LENGTH OF QUALIFIER OR 0@C@@@@. FNL ELT$+0,,S2 LENGTHMZ )@@G@@ OF FILE NAME OR 0@C@@@@. FCL ELT$+0,,S3 LENGTH OF F-CYCLE OR 0 NA )@@G@@@C@@@@. RKL ELT$+0,,S4 LENGTH OF READ KEY OR 0 @C@@@@. WKL ELNB )@@G@@T$+0,,S5 LENGTH OF WRITE KEY OR 0@C@@@@. IQF ELT$+0,,S6 IMPLIENC )@@G@@D QUALIFIER FLAG @D@@@@. ENL ELT$+1,,S1 LENGTH OF ELEMENT NAME OND )@@G@@R 0 @D@@@@. EVL ELT$+1,,S2 LENGTH OF ELEMENT VERSION OR 0@D@@@@NE )@@G@@. ECL ELT$+1,,S3 LENGTH OF ELEMENT CYCLE OR 0 @D@@@@. CFN ELNF )@@G@@T$+1,,S4 CONTINUATION FIELD NUMBER OR 0@D@@@@. ECC ELT$+1,,S5 NG )@@G@@ELEMENT CYCLE SIGNAL CHARACTER@C@@@@. BEC ELT$+1,,S6 BINARY ELEMENH )@@G@@NT CYCLE @D@@@@. FQUAL ELT$+2 FILE QUALIFIER (TWO WORDS) NI )@@G@@@C@@@@. FNAME ELT$+4 FILE NAME (TWO WORDS) @A@@@@. FCYC ELNJ )@@G@@T$+6 F-CYCLE @A@@@@. RKEY ELT$+7 READ KEY @A@@@@NK )@@G@@. WKEY ELT$+8 WRITE KEY @C@@@@. ENAME ELT$+9 ELEMENNL )@@G@@T NAME (TWO WORDS)@D@@@@. EVER ELT$+11 ELEMENT VERSION (TWO WORNM )@@G@@DS) @B@@@@. ECYC ELT$+13 ELEMENT CYCLE @[@@@@. @G@@@@NN )@@G@@. NOTE 1: THE IMPLIED QUALIFIER FLAG WILL BE NON-ZERO IF NO QUALIFIER NO )@@G@@@C@@@@. WAS GIVEN BUT A '*' PRECEEDED THE FILE NAME.@[@@@@. @G@@@@NP )@@G@@. NOTE 2: IF THE FILE NAME INFORMATION WAS TAKEN FROM ANOTHER FIELD BY NQ )@@G@@@G@@@@. MEANS OF FILE NAME CONTINUATION THEN CFN WILL CONTAIN THE NUMBNR )@@G@@ER OF @C@@@@. THAT FIELD; OTHERWISE CFN WILL BE ZERO. @[@@@@. NS )@@G@@@G@@@@. NOTE 3: IF THE CYCLE FIELD IS NOT CODED THEN UPON RETURN ECC = NT )@@G@@'-' @#@@@@. AND BEC = 0. @[@@@@. @G@@@@. IF THE CYCLE FIELD INU )@@G@@S CODED THEN THE NUMERIC PORTION OF THE CYCLE @G@@@@. WILL BE CONVERNV )@@G@@TED TO BINARY AND THE RESULT WILL BE PLACED IN BEC. IF@G@@@@. THE CYCLNW )@@G@@E IS NOT NUMERIC, NUMERIC WITH A LEADING SIGN, OR GREATER @F@@@@. THNX )@@G@@AN 63, THE FIELD ECC WILL CONTAIN 'E' AND THE CYCLE IS TO BE@G@@@@. CONY )@@G@@NSIDERED IN ERROR; OTHERWISE ECC WILL CONTAIN 0, '+', OR '-' IF @G@@@@NZ )@@G@@. THE FIRST CHARACTER OF THE CYCLE IS NUMERIC, '+', OR '-', RESPECTI- OA )@@G@@@]@@@@. VELY. @[@@@@. @G@@@@. NOTE 4: ELT$ IS NOT CLEARED. THE OB )@@G@@CHARACTER COUNTS MUST THEREFORE BE @G@@@@. EXAMINED TO DETERMINE WHICOC )@@G@@H FIELDS CONTAIN MEANINGFUL INFORMATION. @[@@@@. @G@@@@. NOTE 5: UOD )@@G@@PON A NO FIND RETURN A0 CONTAINS THE LOCATION OF THE WORD OF@G@@@@. THOE )@@G@@E INFOR TABLE WHICH STOPPED THE SEARCH. IF THIS WORD IS ZERO, THEN@G@@@@OF )@@G@@. THE REST OF THE INFOR TABLE IS EMPTY. IF, ON THE OTHER HAND, THE OG )@@G@@@G@@@@. CONTENTS OF S1 OF THIS WORD EXCEEDS THE SPECIFIED LIST NUMBER,OH )@@G@@ THE @G@@@@. SPECIFIED FIELD NUMBER EXCEEDS THE NUMBER OF FIELDS IN TOI )@@G@@HE LIST. @[@@@@. @G@@@@. NOTE 6: SCANNING NORMALLY BEGINS WITH LOJ )@@G@@IST 1; IF LIST 0 BE SPECIFIED,@G@@@@. LIST 1 IS ASSUMED. (THIS IS TO OK )@@G@@MAINTAIN COMPATIBILITY WITH EARLIER @F@@@@. VERSIONS OF INFOR$.) TO SOL )@@G@@CAN LIST 0 (WHICH COMPRISES JUST ONE@G@@@@. FIELD--THE PROCESSOR NAME)OM )@@G@@, CALL THE SUBROUTINE WITH A0 = 0. THE @B@@@@. SPECIFIED LIST NUMBEON )@@G@@R IS SAVED IN R3. @[@@@@. @[@@@@. ^OFF@[@@@@. @]@@@@SELT$* . OO )@@G@@@D@@@@ TNZ A0 . IF LIST 0 IS REQUIRED, @E@@@@ OP )@@G@@ L,XU A0,-0100+1 . SET UP FOR LIST 0, FIELD 1. @H@@@@ TLE,OQ )@@G@@U A0,0100 . ELSE, IF LIST 0 AND NONZERO FIELD SPECIFIED, @C@@@@OR )@@G@@ A,U A0,0100 . ASSUME LIST 1. @D@@@@ DSL A0OS )@@G@@,6 . ISOLATE LIST NUMBER. @C@@@@ S A0,R3 .OT )@@G@@ SAVE IT IN R3. @D@@@@ SSL A1,30 . ISOLATE FIELD NUMOU )@@G@@BER. @C@@@@ S A1,R1 . SAVE IT IN R1. @D@@@@ OV )@@G@@ L,H2 A0,INFOR$ . LOCN OF INFOR TABLE. @E@@@@ A,U A0OW )@@G@@,1 . SET TO FIRST DESCRIPTOR. @D@@@@ L,U A5,1 OX )@@G@@ . LOOK FOR FIRST FIELD. @C@@@@ SZ ELT$+1 . CLEAROY )@@G@@ FLAGS. @]@@@@SELT1 . @E@@@@ L,U R2,0 . CLEAROZ )@@G@@ FILE CONTINUATION FLAG.@C@@@@ L A1,0,A0 . GET DESCRIPPA )@@G@@TOR. @D@@@@ JZ A1,SELT7 . END OF INFOR TABLE. @D@@@@PB )@@G@@ SSL A1,30 . ISOLATE LIST NUMBER. @D@@@@ TLE PC )@@G@@ A1,R3 . HAVE WE GONE TOO FAR? @E@@@@ J SELT3 PD )@@G@@ . NO, GO TO NEXT DESCRIPTOR. @D@@@@ TNE A1,R3 .PE )@@G@@ DID WE PASS THE LIST? @E@@@@ TE,S2 A5,,A0 . OR DID WE PPF )@@G@@ASS THE FIELD? @A@@@@ J SELT7 . YES. @E@@@@ PG )@@G@@ LA,S3 A1,,A0 . A1 = SPECIFICATION TYPE. @D@@@@ TG,UPH )@@G@@ A1,6 . ELEMENT INFORMATION? @C@@@@ J SELT4 PI )@@G@@ . YES, BYPASS. @F@@@@ TE A5,CFN . DO WE HAVE PJ )@@G@@MORE FROM THIS FIELD? @E@@@@ SZ ELT$ . NO, CLEAR TPK )@@G@@HE FILE FLAGS. @D@@@@ SA A5,CFN . STORE THE FIELD NPL )@@G@@UMBER.@G@@@@SELT2 DL A2,1,A0 . A2(AND MAYBE A3) = THE SPECIFPM )@@G@@ICATION. @E@@@@ LA,S6 A4,,A0 . A4 = SPECIFICATION LENGPN )@@G@@TH. @C@@@@ TNE,U A4,1 . ONLY ONE WORD? @C@@@@ PO )@@G@@ LA A3,(' '). YES, BLANK FILL.@C@@@@ EX SELTA-1,PP )@@G@@A1 . STORE THE FIELD. @F@@@@ ANA,U A4,1 . COMPUTE THEPQ )@@G@@ NUMBER OF CHARACTERS. @^@@@@ MSI,U A4,6 @^@@@@ AA,SPR )@@G@@5 A4,,A0 @C@@@@ EX SELTB-1,A1 . STORE THE RESULT.@C@@@@PS )@@G@@SELT3 AA,S6 A0,,A0 . MOVE UP ONE. @^@@@@ AA,U A0PT )@@G@@,1 @B@@@@ J SELT1+1 . TRY AGAIN. @[@@@@. @E@@@@PU )@@G@@SELT4 TNE,U A5,1 . IS THIS THE FIRST FIELD? @E@@@@ PV )@@G@@ J SELT5 . YES, NO FILE CONTINUATION. @E@@@@ LA,SPW )@@G@@4 A2,,A0 . A2 = SPECIAL INFOR FIELD. @D@@@@ TNE,U A2PX )@@G@@,'.' . FILE CONTINUATION? @D@@@@ LR,U R2,1 .PY )@@G@@ YES, SET THE FLAG. @F@@@@SELT5 TE A5,R1 . IS THIS THEPZ )@@G@@ FIELD WE'RE AFTER? @D@@@@ J SELT3 . NO, IGNORE QA )@@G@@THE FIELD. @F@@@@ J SELT2 . YES, PICK UP THE SPECIFQB )@@G@@ICATION. @[@@@@. @D@@@@SELT6 TE A2,(' '). IMPLIED QUQC )@@G@@ALIFIER? @F@@@@ SA A4,FQL . NO, STORE THE CHARACTERQD )@@G@@ COUNT. @D@@@@ TNE A2,(' '). IMPLIED QUALIFIER? QE )@@G@@@D@@@@ SA A5,IQF . YES, SET THE FLAG. @B@@@@ QF )@@G@@ J SELT3 . GET BACK. @[@@@@. @C@@@@SELT7 TNZ R2QG )@@G@@ . CONTINUATION? @G@@@@ TNE A5,CFN . OR DIQH )@@G@@D THE FILE COME FROM THIS FIELD? @C@@@@ J SELT8 .QI )@@G@@ YES, BYPASS. @D@@@@ SA A5,CFN . STORE THE FIELD NQJ )@@G@@UMBER.@D@@@@ SZ ELT$ . CLEAR THE FILE FLAGS. @E@@@@QK )@@G@@SELT8 TNE A5,R1 . IS THIS THE FIELD WE WANT? @C@@@@ QL )@@G@@ J SELT9 . YES, BYPASS. @E@@@@ AA,U A5,1 QM )@@G@@ . INCREMENT THE FIELD POINTER. @D@@@@ TNZ 0,A0 .QN )@@G@@ END OF INFOR TABLE? @^@@@@ J $+3 @D@@@@ TG,SQO )@@G@@1 A1,0,A0 . OR BEYOND LIST NUMBER? @A@@@@ J SELT1 QP )@@G@@ . NO. @D@@@@ SZ ELT$ . YES, CLEAR THE FLAGS. QQ )@@G@@@^@@@@ SZ ELT$+1 @D@@@@ J 0,X11 . RETURQR )@@G@@N WITH NO FIND. @F@@@@SELT9 TNE A5,CFN . DID WE GET THE FIQS )@@G@@LE FROM THIS SPEC?@G@@@@ SZ CFN . YES, CLEAR THE COQT )@@G@@NTINUATION FIELD NUMBER.@C@@@@ DL A1,ELT$ . A0,A1 = FLAQU )@@G@@GS. @C@@@@ DJZ A1,,X11 . NO FIND - RETURN.@B@@@@ QV )@@G@@ LA,U A0,'-' . A0 = '-'. @E@@@@ SA A0,ECC .QW )@@G@@ STORE THE SIGNAL CHARACTER. @E@@@@ TNZ ECL . WAS TQX )@@G@@HE ELEMENT CYCLE CODED? @D@@@@ J 1,X11 . NO, RETURN QY )@@G@@WITH A FIND.@E@@@@ LA A0,ECYC . A0 = FIELDATA ELEMENT CQZ )@@G@@YCLE. @B@@@@ LNA,U A2,0 . A2 = -0. @B@@@@ LA,URA )@@G@@ A3,0 . A3 = 0. @E@@@@ LA A4,ECL . A4 = RB )@@G@@NUMBER OF CHARACTERS. @B@@@@SELT10 JGD A4,SELT12 . LOOP ON A4.RC )@@G@@@E@@@@ TN A2 . DID WE FIND SOME DIGITS? @D@@@@RD )@@G@@ TG,U A2,64 . AND IS A2 IN RANGE? @D@@@@SELT11 LA,URE )@@G@@ A3,'E' . NO, INDICATE AN ERROR. @D@@@@ SA A2,BEC RF )@@G@@ . STORE THE BINARY CYCLE.@E@@@@ SA A3,ECC . STORERG )@@G@@ THE SIGNAL CHARACTER. @D@@@@ J 1,X11 . RETURN WITHRH )@@G@@ A FIND. @B@@@@SELT12 LA,U A1,0 . A1 = 0. @D@@@@ RI )@@G@@ LDSC A0,6 . A1 = NEXT CHARACTER. @C@@@@ TLE,U A1RJ )@@G@@,'9'+1 . IS A1 NUMERIC? @^@@@@ TLE,U A1,'0' @B@@@@ RK )@@G@@ J SELT13 . NO, BYPASS.@F@@@@ TNZ A3 .RL )@@G@@ DO WE HAVE A SIGNAL CHARACTER? @C@@@@ LA,U A3,0100 .RM )@@G@@ NO, GET ONE. @D@@@@ ANA,U A1,'0' . CONVERT A1 TO BINRN )@@G@@ARY. @C@@@@ MSI,U A2,10 . MULTIPLY BY 10. @C@@@@ RO )@@G@@ AA,U A2,,A1 . BUILD THE RESULT.@C@@@@ J SELT10 RP )@@G@@ . LOOK SOME MORE. @F@@@@SELT13 JNZ A3,SELT11 . WE ALREADY RQ )@@G@@HAVE A SIGNAL - ERROR. @C@@@@ TE,U A1,'+' . IS A1 A SIGRR )@@G@@N? @^@@@@ TNE,U A1,'-' @C@@@@ LA,U A3,,A1 .RS )@@G@@ YES, A3 = 1. @D@@@@ JZ A3,SELT11 . ILLEGAL CHARACTERRT )@@G@@. @C@@@@ J SELT10 . LOOK SOME MORE. @]@@@@ RU )@@G@@ . @D@@@@SELTA DS A2,FQUAL . 1 - FILE QUALIFIER. @C@@@@RV )@@G@@ DS A2,FNAME . 2 - FILE NAME. @C@@@@ SA A2RW )@@G@@,FCYC . 3 - F-CYCLE. @C@@@@ SA A2,RKEY . 4 - RRX )@@G@@EAD KEY. @C@@@@ SA A2,WKEY . 5 - WRITE KEY. @C@@@@RY )@@G@@ DS A2,ENAME . 6 - ELEMENT NAME.@D@@@@ DS A2RZ )@@G@@,EVER . 7 - ELEMENT VERSION. @D@@@@ SA A2,ECYC .SA )@@G@@ 8 - ELEMENT CYCLE. @]@@@@ . @D@@@@SELTB J SELT6 SB )@@G@@ . 1 - FILE QUALIFIER. @C@@@@ SA A4,FNL . 2 - FSC )@@G@@ILE NAME. @C@@@@ SA A4,FCL . 3 - F-CYCLE. @C@@@@SD )@@G@@ SA A4,RKL . 4 - READ KEY. @C@@@@ SA A4SE )@@G@@,WKL . 5 - WRITE KEY. @C@@@@ SA A4,ENL . 6 - ESF )@@G@@LEMENT NAME.@D@@@@ SA A4,EVL . 7 - ELEMENT VERSION. SG )@@G@@@D@@@@ SA A4,ECL . 8 - ELEMENT CYCLE. @]@@@@ SH )@@G@@ . @[@@@@/. ^ON@C@@@@. . DUSE$ - PERFORM A DYNAMIC @USESI )@@G@@@[@@@@. @ @@@@. CALL: LMJ X11,DUSE$ @[@@@@. @C@@@@. WISJ )@@G@@TH A0,A1 = INTERNAL FILE NAME (LJSF) @[@@@@. @G@@@@. THIS ROUTISK )@@G@@NE EQUATES THE INTERNAL FILE NAME TO THE FILE NAME DESCRIBED@F@@@@. IN TSL )@@G@@HE ELT$ TABLE. IF NO FILE NAME IS SPECIFIED, THEN 'TPF$' IS @G@@@@. ASSUSM )@@G@@MED. UPON RETURN THE FILE NAME MAY BE FOUND NICELY EDITED IN THE @D@@@@SN )@@G@@. 8-WORD AREA FILE$ AND A0 = STATUS BITS FROM CSF$. @[@@@@. @G@@@@SO )@@G@@. ANOTHER FILE NAME MAY BE SUBSTITUTED FOR THE DEFAULT NAME 'TPF$' BY SP )@@G@@@G@@@@. STORING IT, LEFT-JUSTIFIED, IN LOCATIONS DFLTF$, DFLTF$+1, ALONGSQ )@@G@@ WITH @A@@@@. ITS CHARACTER COUNT IN DFLTF$+2. @[@@@@. ^EOF@[@@@@. SR )@@G@@@C@@@@DUSE$* LA,U A3,11 . A3 = LOOP COUNT. @D@@@@ AND,SS )@@G@@U A1,077 . A2 = LAST CHARACTER. @C@@@@ TNE,U A2,' ' ST )@@G@@ . IS IT A BLANK? @E@@@@ DSC A0,6 . YES, MOVE ISU )@@G@@T TO THE TOP. @B@@@@ JGD A3,DUSE$+1 . LOOP ON A3.@E@@@@SV )@@G@@ DS A0,IFN . STORE THE INTERNAL FILE NAME.@C@@@@ SW )@@G@@ LA A0,(1,FILE$) . A0 = WORD INDEX. @D@@@@ LA A1,(1,DUSX )@@G@@SET) . A1 = CHARACTER INDEX. @C@@@@ LA,U A2,7 . A2 = SY )@@G@@LOOP COUNT. @C@@@@ L A3,(''L) . GET SOME BLANKS. @D@@@@SZ )@@G@@ SA A3,FILE$,A2 . BLANK THE IMAGE AREA. @^@@@@ JGD TA )@@G@@ A2,$-1 @D@@@@ LR R1,FQL . R1 = QUALIFIER LENGTH. TB )@@G@@@D@@@@ DL A4,FQUAL . A4,A5 = QUALIFIER. @D@@@@ TC )@@G@@ LMJ A2,DUSEC . INSERT THE QUALIFIER. @B@@@@ LA,U A5TD )@@G@@,'*' . A5 = '*'. @C@@@@ TNZ FQL . REAL QUALIFTE )@@G@@IER? @D@@@@ TZ IQF . OR IMPLIED QUALIFIER? @E@@@@TF )@@G@@ EX 0,*A1 . YES, INSERT THE CHARACTER. @D@@@@ TG )@@G@@ LR R1,FNL . R1 = FILE NAME LENGTH. @D@@@@ DL A4TH )@@G@@,FNAME . A4,A5 = FILE NAME. @E@@@@ TZ R1 .TI )@@G@@ WAS A FILE NAME SPECIFIED? @C@@@@ J DUSE1 . YES, TJ )@@G@@BYPASS. @C@@@@ DL A4,DFLTF$ . NO, ASSUME TPF$. @ @@@@TK )@@G@@ L R1,DFLTF$+2 @D@@@@DUSE1 LMJ A2,DUSEC . INSERTL )@@G@@T THE FILE NAME. @D@@@@ LR R1,FCL . R1 = F-CYCLE LENGTM )@@G@@TH. @D@@@@ TNZ R1 . IS THERE AN F-CYCLE. @B@@@@TN )@@G@@ J DUSE2 . NO, BYPASS.@C@@@@ LA,U A5,'(' TO )@@G@@ . INSERT A '('. @^@@@@ EX 0,*A1 @C@@@@ LA TP )@@G@@ A4,FCYC . A4 = F-CYCLE. @B@@@@ LMJ A2,DUSEC .TQ )@@G@@ INSERT IT. @C@@@@ LA,U A5,')' . INSERT A ')'. @^@@@@TR )@@G@@ EX 0,*A1 @B@@@@DUSE2 TNZ RKL . READ KEY? TS )@@G@@@C@@@@ TZ WKL . OR WRITE KEY? @C@@@@ J TT )@@G@@ DUSE4 . YES, BYPASS. @E@@@@DUSE3 LA A0,(12,USE) .TU )@@G@@ A0 = @USE IMAGE DESCRIPTION. @C@@@@ ER CSF$ . PERFOTV )@@G@@RM THE @USE.@B@@@@ J 0,X11 . RETURN. @C@@@@DUSE4 TW )@@G@@ LA,U A5,'/' . INSERT A '/'. @^@@@@ EX 0,*A1 TX )@@G@@@D@@@@ LR R1,RKL . R1 = READ KEY LENGTH. @C@@@@ TY )@@G@@ LA A4,RKEY . A4 = READ KEY. @D@@@@ LMJ A2,DUSECTZ )@@G@@ . INSERT THE READ KEY. @D@@@@ LR R1,WKL . R1 = UA )@@G@@WRITE KEY LENGTH. @D@@@@ TNZ R1 . IS THERE A WRITE UB )@@G@@KEY? @C@@@@ J DUSE3 . NO, GET BACK. @C@@@@ UC )@@G@@ LA,U A5,'/' . INSERT A '/'. @^@@@@ EX 0,*A1 UD )@@G@@@C@@@@ LA A4,WKEY . A4 = WRITE KEY. @B@@@@ LMJ UE )@@G@@ A2,DUSEC . INSERT IT. @B@@@@ J DUSE3 . FINISUF )@@G@@H UP. @]@@@@ . @E@@@@ LDSC A4,6 . POSITION THUG )@@G@@E NEXT CHARACTER. @B@@@@ EX 0,*A1 . STORE IT. @B@@@@UH )@@G@@DUSEC JGD R1,$-2 . LOOP ON R1.@B@@@@ J 0,A2 UI )@@G@@ . RETURN. @]@@@@ . @^@@@@ SA,S6 A5,,*A0 @^@@@@UJ )@@G@@ LMJ A1,0,A1 @D@@@@DUSET SA,S1 A5,,A0 . CHARACTER SUK )@@G@@TORE VECTOR.@^@@@@ SA,S2 A5,,A0 @^@@@@ SA,S3 A5,,A0 UL )@@G@@@^@@@@ SA,S4 A5,,A0 @^@@@@ SA,S5 A5,,A0 @ @@@@ UM )@@G@@ LMJ A1,DUSET-2 @]@@@@ . @]@@@@/ . @A@@@@ UN )@@G@@ . ASSORTED DATA. @]@@@@ . @B@@@@EM1 'PROCESSORUO )@@G@@ CALLED WITH @XQT.' @ @@@@EM2 'NO ACTION TAKEN!' @D@@@@EM3 UP )@@G@@ 'TOO MANY SPECIFICATIONS. NO ACTION TAKEN!' @ @@@@PEM1 +0100+EM3-UQ )@@G@@EM1,EM1 @ @@@@PEM2 +0100+EM3-EM2,EM2 @ @@@@PEM3 +0100+PEM1UR )@@G@@-EM3,EM3 @[@@@@. @[@@@@. @]@@@@$(2) . @C@@@@INFOR$* + US )@@G@@ 0 . RINF$ PARAMETER. @D@@@@ + 0 .UT )@@G@@ A0 BITS SAVE AREA. @]@@@@ . @B@@@@USE '@USE ' UU )@@G@@ . @USE IMAGE.@D@@@@IFN + 0D . INTERNAL FILE NAMUV )@@G@@E. @#@@@@ ', ' @C@@@@FILE$* $RES 8 . EDITEUW )@@G@@D FILE NAME.@]@@@@ . @D@@@@ELT$* $RES 14 . ELEMEUX )@@G@@NT NOTATION TABLE.@E@@@@ ELT$ . CALL DEF PROC TO UY )@@G@@DEFINE TAGS.@]@@@@ . @D@@@@DFLTF$* 'TPF$ ' . DEFAUUZ )@@G@@LT FILE NAME. @E@@@@ + 4 . CHARACTER COUNT FVA )@@G@@OR DFLTF$. @^@@@@ $IF TEST @E@@@@/. TEST PROGRAM. REPORTVB )@@G@@ EVERY FIELD FOUND IN INFOR TABLE. @]@@@@$(3) $LIT@#@@@@P $PROVC )@@G@@C @]@@@@ITEM* NAME@ @@@@ L A1,P(1,1) @^@@@@ VD )@@G@@ JZ A1,OUT @ @@@@ DL A2,P(1,3) @^@@@@ E$RMVE )@@G@@SG $(0) @B@@@@$(0) LJFY ' ',P(1,2),'=\A1,2\' @^@@@@ VF )@@G@@ DO P(1)>2 , ; @D@@@@ LJFY ' ',P(1,4),'=\A2,F\',P(1,*3)*'\VG )@@G@@A3,F\'@]@@@@ '\\'@]@@@@$(3),OUT . @]@@@@ $END@[@@@@. VH )@@G@@@]@@@@START . @ @@@@ L A0,(55,BUF) @ @@@@ LMJ VI )@@G@@ X11,RINF$ @^@@@@ J PRINT @ @@@@ L X1VJ )@@G@@,(1,-1) @]@@@@SPEC . @^@@@@ L,U A0,1,*X1@ @@@@ VK )@@G@@ LMJ X11,SELT$ @^@@@@ J NOFIND @^@@@@ L,U VL )@@G@@ A1,0,X1 @^@@@@ E$RMSG MSG1 @B@@@@ ITEM FQL,'FQLVM )@@G@@',*FQUAL,'FQUAL' @B@@@@ ITEM FNL,'FNL',*FNAME,'FNAME' @B@@@@VN )@@G@@ ITEM FCL,'FCL',FCYC,'FCYC' @B@@@@ ITEM RKL,'RKLVO )@@G@@',RKEY,'RKEY' @B@@@@ ITEM WKL,'WKL',WKEY,'WKEY' @ @@@@VP )@@G@@ ITEM IQF,'IQF' @B@@@@ ITEM ENL,'ENL',*ENAME,'ENVQ )@@G@@AME' @B@@@@ ITEM EVL,'EVL',*EVER,'EVER' @B@@@@ ITEMVR )@@G@@ ECL,'ECL',ECYC,'ECYC' @ @@@@ ITEM CFN,'CFN' @ @@@@VS )@@G@@ ITEM ECC,'ECC' @ @@@@ ITEM BEC,'BEC' @^@@@@VT )@@G@@ J SPEC @[@@@@. @]@@@@NOFIND . @^@@@@ TZ VU )@@G@@ 0,A0 @^@@@@ J SPEC @C@@@@ L A0,(0202VV )@@G@@,(LJDS 'END TEST')) @^@@@@PRINT ER PRINT$ @^@@@@ ER VW )@@G@@ EXIT$ @[@@@@. @ @@@@$(0),MSG1 '\;SPEC \A1,D\:\\' @#@@@@$(4),BVX )@@G@@UF $RES 55@#@@@@ $ENDF @ @@@@ $END TEST->START VY )@@G@@___@@@@ @@@@ ITEM ECC,'ECC' @ @@@@ ITEM BEC,'BECVZ )@@G@@' @^@@@@ J )@@[N[^ [KL[])@@@@C@@@@H&;K@@WH8)@@VKCK@@@C8W@@@WA )@@G@@ @@@@[[@@@@@ @@@@[/KF@@[*@@@@@AA@@@@)@E[N]@[[KKK^[@@@@C8H@@@/KF@@[>@@@#?WB )@@G@@/K@@@T>@@@#: @H@@@G8W@@@[@@@@[(@@@@['=@@@@AB@@@@)@O[MK^@^@^ @@@@@@C@@@#(WC )@@G@@[@@@@[/KF@@@C8K@@[C@@@#*/KF@@@C8K@@#C@@@#%/K@@@D?8I@@@AC@@@@)@Y[U@@@KK@@WD )@@G@@C^@@@@[@K@[[;CK@@Y[@@@[#;G@@@AG8@@[@?8@@[@C/@__@(@@@@G/KF@@@C8K@@]AD@@@@WE )@@G@@)@([U^^^@^@@%1W@@@:@K@[#/K@@[^?@K@[#;CK@@Y/@K@[OC@W@@@N8)@@@ @@@@JC9K@@[WF )@@G@@G8@@@[AE@@@@)@4[N@[@KO [@@@@@@:9@@@[C-G@@@9??@@[[(K@@J @@@@I%(K@@J/K@@[BWG )@@G@@!8K@@AC?W@@@/K@@[OAF@@@@)@"[N@K@^@^@@@@@@@:9K@@[/K@@@!G8@@@[G)G@@@')H@]IWH )@@G@@G>G@@@T9@@@AH9@@@[')H@]AC@0@#!AG@@@@)[C[N@@^[@K^ @@@@@:@)@#![5@@@I%@)@#!WI )@@G@@/K@@@;/K@@[^%[K@[[N8)@@[:8)@@.C*?@@@/K@@[GAH@@@@)[M[N[K[[K^ [^@@@@G9K@@[WJ )@@G@@/K@@[<:[K@[[ @@@@I[(K@@J/K@@[T:(K@@J(@@@[]/K@@[^[-K@@IAI@@@@)[W[MK[@KO^KWK )@@G@@O [@@@9?K@@I *@@@J:(K@@J/KF@@@ @@@@J @@@@I/K@@@?!4W@@@/K@@[)(@G@@@AJ@@@@WL )@@G@@)[&[M^ [^^^ @@@@@@8^@@[6C!@@@JC80@@@D8)@@@C@@@@V/KF@@[(?@@@J[=@@@JC8@@@-WM )@@G@@98V@@@AK@@@@)[0[U[[KK@K@/K@@][?8K@@0?8K@@';=@@@AC8K@@@/KF@@[[=0@@J[))@@JWN )@@G@@C80@@E!8)@[@1@@@@IAL@@@@)[;[U@^[@@K@/@0@[2C8.@@@:8K@@-%8K@@+/^0@[2/K@@[\WO )@@G@@G8!@@@T8)@@EH8K@@0C80@[@(@@@@JAM@@@@)]A[F@KO [KO [KO^@@@@@@@[@)@@V9*)@@TWP )@@G@@9*)@@R[@)@@Q[@)@@P[@)@@O9*)@@M9*)@@K/K@@[\AN@@@@)]J[N@KO [KO [KK@@+8K@@_WQ )@@G@@C80@@F[!@@@J[1@@@J[5@@@J[>@@@I[(@@@I[!@@@I[1@@@I/K@@[JAO@@@@)]T[M^[[K^@KWR )@@G@@^ @@@@8#)@]-[@"@@AC@0@#!C8)@@BC@K@#\C@@@#,9*@@@#8#0@]S;^@@@A:8)@@ AP@@@@WS )@@G@@)]<[N[KO@KO^KO^@@@*@@@[[9!@@@MN0K@@I')H)@@*)@@@I(4@@@IC9K@@*/\)@#J9!@@@KWT )@@G@@N4K@@IAQ@@@@)]![N@KO @KL@[[@@@C[@@@O')H)@@C9K@@(/K@@]'(@@@[[N?K@@I/\)@#JWU )@@G@@N@K@@Y9!@@@W/K@@]0AR@@@@)]7[N@[[KO[@K)[@@@C9K@@//KF@@@'=@@@@C@@@#0/K@@#@WV )@@G@@*=@@@I(*@@@I')H)@@C9K@@)/\)@#JAS@@@@)#[[MKO @KL@[[@@@@C[@@@Q')H)@@C9K@@/WW )@@G@@/K@@].(@@@[[N=K@@I/\)@#JC[@@@PN*K@@I')H)@@AT@@@@)#F[V@K@K@@@[!W@@@[1W@@@WX )@@G@@[5W@@@/\X@@@[-W)@@/KI@@@8KK@#H')H)@@;>@@@A/K@@]./\)@#JAU@@@@)#Q[U^@@@@@@WY )@@G@@KEN! ION TANO ACTQT. ITH @XLLED WSOR CAPROCES/\K@#L[>W@@@[(W@@@AV@@@@WZ )@@G@@)#-[M@@E[KE@@@@@@@@[B@#-@[#@#Y@[C@#TAKEN! TION T NO ACTIONS.CIFICANY SPEXA )@@G@@TOO MAAW@@@@)@@@4@@@@@@@)@W@W@@@@@@@@@@@@^ TPF$ , @@@@@@@@@@@@XB )@@G@@@USE @@@@@@@@@@@@AX@@@@)#:@2@*>@*)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@]XC )@@G@@@@[@#N@@[@@A [@@@@@]@@@@@AY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@#@@B@@]@@F@@B@@$@@@XE )@@G@@@@E@@@@@@@#1@@@@@ZREAD$ CSF$ DFLTF$ @@]@@@@@@@@WDUSE$ XF )@@G@@ @@[@@@@@@@]RELT$ @@]@@@@@@@@IFILE$ @@]@@@@@@@@AINFOR$XG )@@G@@ @@]@@@@@@@@@RINF$ @@[@@@@@@@@@SELT$ @@[@@@@@@@@)@@@@@@XH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@G@@@@TEST EQU 1/1/1 .XJ )@@G@@ SET FOR PROCESSOR, CLEAR FOR SUBROUTINE. @F@@@@. COPYRIGHT 1977, B. E. XK )@@G@@CHI, SUNY-ALBANY, ALBANY NY 12222. ^ON @D@@@@. PRINT TABLE OF CONTENTXL )@@G@@S OF ABSOLUTE ELEMENT. CALL: @[@@@@. @B@@@@. @AETOC[,OPTIONS] [FNAMXM )@@G@@E.][ENAME[/EVER]] @[@@@@. @]@@@@. OPTIONS: @[@@@@. @E@@@@. N XN )@@G@@LIST ONLY COLLECTION TIME AND DATE AND START ADDRESS. @C@@@@. I LIST OXO )@@G@@NLY THE ELEMENT'S I-BANK ADDRESSES. @C@@@@. D LIST ONLY THE ELEMENT'S XP )@@G@@D-BANK ADDRESSES. @C@@@@. E LIST ENTRY POINT NAMES AND ADDRESSES. XQ )@@G@@@B@@@@. A LIST EXTERNALIZED ABSOLUTE VALUES. @D@@@@. L SAME AS OPTIXR )@@G@@ONS I, D, E, A, GIVEN TOGETHER. @D@@@@. H LIST ADDRESSES IN HEXADEXS )@@G@@CIMAL INSTEAD OF OCTAL. @[@@@@. @G@@@@. THE COLLECTION TIME AND DATEXT )@@G@@ AND PROGRAM START ADDRESS OF THE SPECI- @G@@@@. FIED ABSOLUTE ELEMENT XU )@@G@@IS LISTED, FOLLOWED BY THE START ADDRESS OF @G@@@@. EVERY RELOCATABLXV )@@G@@E ELEMENT COLLECTED INTO THE ABSOLUTE ELEMENT. PRO- @D@@@@. GRAM SEGMEXW )@@G@@NTATION DATA, IF ANY, ARE ALSO SHOWN. @[@@@@. @G@@@@. IF 'FNAME.XX )@@G@@', 'ENAME' BOTH BE GIVEN IN THE CALL, ABSOLUTE ELEMENT ELE- @G@@@@. MENTXY )@@G@@ 'ENAME' IN FILE 'FNAME' IS LISTED; IF 'ENAME' BE OMITTED, THE @G@@@@XZ )@@G@@. LAST ABSOLUTE ELEMENT IN FILE 'FNAME' IS IMPLIED. IF 'FNAME.' BE YA )@@G@@@A@@@@. OMITTED, FILE 'TPF$' IS INFERRED. @[@@@@. ^OFF@G@@@@. THIS PROCEYB )@@G@@SSOR SERVES AS A TEST DRIVER FOR SUBROUTINES LSTAET, WRTAET.@^@@@@ YC )@@G@@ $IF TEST @]@@@@$(3) LIT @]@@@@ DEF$@]@@@@ LOC$YD )@@G@@@]@@@@START . @G@@@@ C$TNCY CPKT,'NIDEALH' . REGISTER ERROR YE )@@G@@ROUTINE, LEGAL OPTIONS. @D@@@@ L A1,A0 . [A1] = OPTIYF )@@G@@ON BITS. @ @@@@ AND A1,(OPB('EA'))@E@@@@ JNZ A2YG )@@G@@,$+3 . IF NEITHER E- NOR A-OPTION, @E@@@@ TOP A1,(OPB(YH )@@G@@'ID')) . NEITHER I- NOR D-OPTION @C@@@@ OR A0,(OPB('ID'))YI )@@G@@ . IMPLIES BOTH. @C@@@@ TNO A1,'L' . IF L-OPTION, YJ )@@G@@@F@@@@ OR A0,(OPB('IDEA')) . TURN ON ALL LISTING OPTIONS. YK )@@G@@@C@@@@ L A15,A1 . SAVE OPTIONS. @[@@@@. @B@@@@YL )@@G@@ L A0,(28,IMAGE) . READ INFOR@ @@@@ LMJ X11,RINFYM )@@G@@$ @#@@@@ E$RM 0 @^@@@@ L,U A0,1 @D@@@@ YN )@@G@@ LMJ X11,SELT$ . AND GET SPEC FIELD 1. @F@@@@ NOP 0,YO )@@G@@0 . (IF NO SPEC, LAST ABS IN TPF$.) @[@@@@. @^@@@@ YP )@@G@@ L,U A0,FPKT @C@@@@ LMJ X11,DASGA$ . ASSIGN FILE. YQ )@@G@@@#@@@@ E$RM 1 @#@@@@ E$RM 2 @[@@@@. @D@@@@ YR )@@G@@ L,U A0,PPKT . FIND SPECIFIED ELEMENT.@ @@@@ LMJ X1YS )@@G@@1,FINDX$ @B@@@@ E$RM 3 . NO-FIND. @D@@@@ YT )@@G@@ E$RM 4 . FILE NOT READABLE. @E@@@@ E$RM 5 YU )@@G@@ . FILE NOT A PROGRAM FILE. @D@@@@ DL A0,PPKT YV )@@G@@ . FOUND. GET FILE NAME, @D@@@@ L A2,PPKT+10 . TEXTYW )@@G@@ SECTOR ADDRESS, @D@@@@ L,U A3,TABLE . TABLE BUFFER ADYX )@@G@@DRESS,@D@@@@ LMJ X11,WRTAET . AND GO CREATE TABLE.@F@@@@YY )@@G@@ DS A0,PPKT+8 . ON RETURN, SAVE FORMAT, TDATE$. @^@@@@YZ )@@G@@ E$DIT EPKT @D@@@@ TNZ FPKT+4 . ANY EXPLICIZA )@@G@@T FILE NAME?@A@@@@ J F$(2) . NO. @E@@@@ DL ZB )@@G@@ A0,FPKT+6 . YES. ENCODE ANY QUALIFIER. @^@@@@ JZ A0ZC )@@G@@,F$(1)@#@@@@ E$FD2 @^@@@@ E$FD '*' @C@@@@L$(L$)ZD )@@G@@ E$FD2 FPKT+4 . ENCODE FILE NAME.@^@@@@ E$FD '.' ZE )@@G@@@D@@@@L$(L$) E$FD2 PPKT+2 . ENCODE ELEMENT NAME, @ @@@@ ZF )@@G@@ L,S1 A0,PPKT+6 @^@@@@ TNE,U A0,' ' @^@@@@ J ZG )@@G@@ F$(1) @^@@@@ E$FD '/' @D@@@@ E$FD2 PPKT+6 ZH )@@G@@ . AND ANY VERSION NAME.@ @@@@L$(L$) L A4,PPKT+9 @D@@@@ZI )@@G@@ JZ A4,F$(1) . ANY COLLECTION DATE? @E@@@@ E$MSZJ )@@G@@G (' COLLECTED & AT & [&C]&') . YES. ENCODE. @^@@@@ SSC A4ZK )@@G@@,18 @#@@@@ E$DAY1 A4@#@@@@ E$MSGR @#@@@@ E$TIZL )@@G@@ME A4@#@@@@ E$MSGR @^@@@@ J F$(2) @F@@@@L$(L$)ZM )@@G@@ E$MSG (' (COLLECTION DATE UNKNOWN) [&C]&') . NO. SAY SO.@E@@@@L$(L$)ZN )@@G@@ E$FD PPKT+8,,S1 . 'O' OR 'N' COLLECTOR FORMAT. @#@@@@ E$MSZO )@@G@@GR @C@@@@ L,U A0,2*/6 . PRINT THE IMAGE @D@@@@ ZP )@@G@@ LMJ X11,PRINT . AND CLEAR THE BUFFER. @C@@@@ JOP,'N' A1ZQ )@@G@@5,F$(2) . UNLESS N-OPTION, @^@@@@ L A0,A15 @ @@@@ ZR )@@G@@ AND A0,(OPB('ID'))@E@@@@ JZ A1,F$(2) . OR NEITHERZS )@@G@@ I- NOR D-OPTIONS,@E@@@@ L,U A0,TABLE . LIST ELEMENT COMZT )@@G@@POSITION. @C@@@@ TNE A1,(OPB('ID')) . BOTH OPTIONS? @E@@@@ZU )@@G@@ J F$(1) . YES. IGNORE ANY BANK OPTIONS.@^@@@@ ZV )@@G@@ LXI,U A0,1 @F@@@@ TNO A15,'D' . ELSE, SPECIFY APPZW )@@G@@ROPRIATE BANKS. @^@@@@ LXI,U A0,2 @ @@@@L$(L$) LMJ X1ZX )@@G@@1,LSTAET @#@@@@ L$SKIP 1 @B@@@@ TNZ,H1 TABLE .ZY )@@G@@ ANY SLT$? @^@@@@ J F$(1) @D@@@@ E$MSG ('SLT ATZZ )@@G@@ &; &'L) . IF SO, ENCODE IT. @^@@@@ L,H1 A0,TABLE@^@@@@ AA )@@G@@ L,U A1,6 @^@@@@ LMJ X11,NCDF@#@@@@ E$MSGR AB )@@G@@@A@@@@L$(L$) E$MSG ('START ADDRESS: &')@^@@@@ L,H2 A0,TABLEAC )@@G@@@^@@@@ L,U A1,6 @^@@@@ LMJ X11,NCDF@C@@@@ AD )@@G@@ L,U A0,1*/6 . PRINT THE IMAGE @D@@@@ LMJ X11,PRINAE )@@G@@T . AND CLEAR THE BUFFER. @C@@@@ JOP,'N' A15,CLOSE . DONE AF )@@G@@IF N-OPTION.@^@@@@ L,U A0,TABLE@C@@@@ TNO A15,'E' AG )@@G@@ . IF E-OPTION, @G@@@@ LMJ X11,LSTEPNT . LIST ENTRYAH )@@G@@ POINT NAMES AND ADDRESSES. @^@@@@ L,U A0,TABLE@C@@@@ AI )@@G@@ TNO A15,'A' . IF A-OPTION, @D@@@@ LMJ X11,LSTAAJ )@@G@@BSVT . LIST ABSOLUTE VALUES. @#@@@@ L$SKIP 1 @ @@@@CLOSE P$RIAK )@@G@@NT 'END AETOC' @C@@@@ C$SF (4,FPKT) . RELEASE THE FILE.AL )@@G@@@^@@@@ ER EXIT$ @F@@@@/P$ PROC . THESEAM )@@G@@ PROCS ARE KLUDGES TO ALLOW @F@@@@E$OCTV* NAME NCDV . VARIAN )@@G@@ABLE RADIX ADDRESS LISTINGS @G@@@@E$FD1* NAME EFD1$ . WITHAO )@@G@@OUT MESSING AROUND INSIDE LSTAET. @C@@@@ DO P$(1)>0 , L,P$(1,3)AP )@@G@@ A0,+(E$AD 1,1) @ @@@@ LMJ X11,P$(0,0) @]@@@@ END AQ )@@G@@@[@@@@. @#@@@@NCDV . [X11]. @ @@@@ JNP,'H' A15,EOCTV$ AR )@@G@@@^@@@@ E$FD 'X' @^@@@@ J EHEXV$ @[@@@@. AS )@@G@@@]@@@@P$ PROC@]@@@@E$OCTF* NAME@C@@@@ DO P$(1)>1 , L,P$(1,4)AT )@@G@@ A0,+(E$AD 1,2) @A@@@@ DO P$(1)>0 , L,U A1,P$(1,1) @^@@@@ AU )@@G@@ LMJ X11,NCDF@]@@@@ END @[@@@@. @#@@@@NCDF . [X11]. AV )@@G@@@ @@@@ JNP,'H' A15,EOCTF$ @^@@@@ E$FD 'X' @F@@@@AW )@@G@@ L A2,A1 . FOR HEX, REDUCE CHARACTER COUNT @B@@@@AX )@@G@@ SSL A2,2 . TO 3/4THS.@^@@@@ AN A1,A2 AY )@@G@@@^@@@@ J EHEXF$ @[@@@@. @]@@@@$(4) . @C@@@@EMS$(1AZ )@@G@@) 'FILE ASSIGNMENT STATUS \A0,12\.\\' @ @@@@EMS$(2) 'FILE NOT FOUND.BA )@@G@@\\' @ @@@@EMS$(3) 'ELEMENT NOT FOUND.\\'@ @@@@EMS$(4) 'FILE NOT READABBB )@@G@@LE.\\'@A@@@@EMS$(5) 'FILE NOT A PROGRAM FILE.\\'@]@@@@/$(6) . @D@@@@BC )@@G@@CPKT ERR$PKT CLOSE . ERROR ROUTINE PACKET. @^@@@@EPKT E$PKBD )@@G@@T 12,IMAGE@#@@@@FPKT '@FREE,A' @^@@@@ '$AETOC$PF$' @#@@@@BE )@@G@@ RES 8 @A@@@@PPKT P$FP '$AETOC$PF$',,,6 @#@@@@IMAGE BF )@@G@@ RES 28@[@@@@. @E@@@@TABLE RES 100 . MUST BE LASBG )@@G@@T FOR MCORE$. @[@@@@/. ^ON@]@@@@. PCN: L,0. @G@@@@. SUBROUTINE LSTAEBH )@@G@@T PRODUCES A @MAP-LIKE LISTING OF THE COMPOSITION OF @G@@@@. A SPECIFIEBI )@@G@@D ABSOLUTE ELEMENT FOR WHICH A TABLE HAS ALREADY BEEN PRE- @G@@@@. PAREBJ )@@G@@D BY SUBROUTINE WRTAET. THE ARRANGEMENT OF THE TABLE IS DESCRIBED@G@@@@BK )@@G@@. IN PROCEDURE ELEMENT AET$P. LSTAET PRESUMES AN EDIT$ BUFFER ALREADY BL )@@G@@@E@@@@. OPEN AND CLEARED TO BLANKS UPON ENTRY. CALLING SEQUENCE: @[@@@@BM )@@G@@. @^@@@@. E$DIT EPKT @A@@@@. L,U A0, @^@@@@. LXI,U A0,N @ @@@@. LMJ X11,LSTAET BO )@@G@@@^@@@@. @[@@@@. @G@@@@. IF N = 0, ALL BANKS ARBP )@@G@@E LISTED. ELSE, IF N IS ODD(EVEN), ONLY I-(D-) @^@@@@. BANKS ARE LISTEDBQ )@@G@@. @[@@@@. @G@@@@. THE ROUTINE IS I-BANK REENTRANT, PSR-MODE INSEBR )@@G@@NSITIVE, AND ALTERS THE @ @@@@. CONTENTS OF X11-A3, R1. @A@@@@ BS )@@G@@ $ELSE . ^OFF @]@@@@ MNM$@]@@@@ LOC$@#@@@@BT )@@G@@ $ENDF @[@@@@. @]@@@@P$ PROC@]@@@@PRINT* NAME@ @@@@BU )@@G@@ L,U A0,P$(1,1)*/6 @ @@@@ LMJ X11,PRINT @]@@@@BV )@@G@@ END @[@@@@. @]@@@@P$ PROC@]@@@@ENCODE* NAME@ @@@@ BW )@@G@@ L,U A1,P$(1,1) @ @@@@ LMJ X11,ENCODE @]@@@@ BX )@@G@@ END @[@@@@. @^@@@@DBIT EQU 1*/5 @^@@@@LBIT EQU 1*BY )@@G@@/4 @^@@@@CBIT EQU 1*/3 @^@@@@XBIT EQU 1*/2 @^@@@@BZ )@@G@@RBIT EQU 1*/1 @[@@@@. @]@@@@$(1) LIT @]@@@@LSTAET* . CA )@@G@@@D@@@@ LMJ A1,SETUP . SAVE REGISTERS AND @E@@@@ CB )@@G@@ NOP 0,LCTAB . SET UP TO ACCESS LCTAB. @G@@@@ JZ CC )@@G@@ A4,NODIAG . IF NO DIAGNOSTIC TABLES, SUMMARIZE BANKS.@^@@@@ CD )@@G@@ LN,U A0,0 @D@@@@ S A0,PRVITMS . MARK NO CURRENT BCE )@@G@@ANK. @F@@@@ SZ TEMP . MARK NO PREVIOUS LWA+1 TO LISCF )@@G@@T. @D@@@@ TNZ,T1 SGNTAB . IS PROGRAM SEGMENTED? @C@@@@CG )@@G@@ SZ PRVSGI . IF NOT, SO MARK. @F@@@@ J LCCH )@@G@@TEND . WHILE LC ITEMS REMAIN (A4 > 0): @]@@@@LCTBEG . @F@@@@CI )@@G@@ JZ A6,F$(1) . ANY BANK SPECIFICATION IN CALL? @E@@@@CJ )@@G@@ TP LCITEM+1 . YES. IF THIS AN I-BANK AND @E@@@@ CK )@@G@@ JNB A6,F$(1) . I-BANKS REQUESTED, GO DO. @C@@@@ TN CL )@@G@@ LCITEM+1 . AND VICE-VERSA. @^@@@@ JB A6,F$(1)@D@@@@CM )@@G@@ NOP 0,0,*X5 . ELSE, GO ON TO NEXT LC.@^@@@@ J CN )@@G@@ LCTEND @E@@@@L$(L$) L,T3 A5,LCITEM+1 . GET BDI FOR THIS LC ITECO )@@G@@M. @E@@@@ TNE A5,PRVBDI . SAME AS FOR PREVIOUS ITEM? CP )@@G@@@E@@@@ J SEGMENT . YES. DON'T REPEAT BANK DATA. @D@@@@CQ )@@G@@ S A5,PRVBDI . NO. REMEMBER THIS BANK.@D@@@@ TZ CR )@@G@@ PRVSGI . UNLESS UNSEGMENTED, @E@@@@ SN A5,PRVSGCS )@@G@@I . MARK NO CURRENT SEGMENT. @E@@@@ SN A5,PRVELI .CT )@@G@@ MARK NO CURRENT ELEMENT. @F@@@@ LMJ X11,LSTLWP1 . LIST CU )@@G@@LWA+1 OF ANY PREVIOUS BANK. @D@@@@ L,U A2,BNKTAB . SET UCV )@@G@@P TO SEARCH BANK @D@@@@ A,H2 A2,BNKTAB . TABLE FOR THIS BCW )@@G@@DI. @^@@@@ LXI,U A2,3 @ @@@@ L,T1 R1,BNKTAB CX )@@G@@@ @@@@ SE,T1 A5,3+2,*A2 @E@@@@ ER ERR$ .CY )@@G@@ NO-FIND SHOULD NEVER OCCUR. @C@@@@ DL A0,0,A2 . GET BCZ )@@G@@ANK NAME. @A@@@@ DS A0,TEMP . SAVE.@C@@@@ LXI,DA )@@G@@T3 A0,2,A2 . BANK FIRST BLOCK.@C@@@@ LXM,T2 A0,2,A2 .DB )@@G@@ BANK BLOCK COUNT.@E@@@@ A,T3 A0,2,A2 . FIRST BLOCK, LASTDC )@@G@@ BLOCK + 1. @^@@@@ LSSL A0,9 @C@@@@ AN,U A0,1 DD )@@G@@ . BANK FWA, LWA. @C@@@@ S A0,TEMP+2 . HOLD TEMPORDE )@@G@@ARILY.@C@@@@ L A0,('I-BANK') . ENCODE BANK TYPE@C@@@@ DF )@@G@@ TP LCITEM+1 . (IF D-BIT SET, @C@@@@ LXI,U A0,'D-B'DG )@@G@@ . IT'S A D-BANK) @F@@@@ TNE A0,TEMP . UNLESS IDDH )@@G@@ENTICAL TO BANK NAME. @^@@@@ J F$(1) @#@@@@ E$FDDI )@@G@@1 @]@@@@ E$SP@D@@@@L$(L$) E$FD2 TEMP . THEN ENCODEDJ )@@G@@ BANK NAME, @A@@@@ E$MSG (' [&] (&-&)&'L) @A@@@@ L DK )@@G@@ A0,PRVBDI . BDI.@F@@@@ LMJ X11,EOCTV$ . (OCTAL REGADL )@@G@@RDLESS OF H-OPTION.) @#@@@@ E$MSGR @B@@@@ E$OCTF 6,DM )@@G@@TEMP+2,,H1 . BANK FWA. @#@@@@ E$MSGR @B@@@@ E$OCTF 6,DN )@@G@@TEMP+2,,H2 . BANK LWA. @#@@@@ E$MSGR @C@@@@ SZ TEDO )@@G@@MP . CLEAR LWA+1. @D@@@@ PRINT 2 . SKIP DP )@@G@@A LINE AND PRINT. @]@@@@SEGMENT . @C@@@@ L,S1 A5,LCITEM+1 .DQ )@@G@@ GET DLXCR BITS. @D@@@@ L,H1 A0,LCITEM . GET SEGMENT NUMBEDR )@@G@@R. @E@@@@ TNE A0,PRVSGI . SAME AS PREVIOUS NUMBER? DS )@@G@@@F@@@@ J ELEMENT . YES. DON'T REPEAT SEGMENT DATA. DT )@@G@@@E@@@@ S A0,PRVSGI . NO. REMEMBER THIS SEGMENT @E@@@@DU )@@G@@ SN A0,PRVELI . AND MARK NO CURRENT ELEMENT.@F@@@@ DV )@@G@@ LMJ X11,LSTLWP1 . LIST LWA+1 OF ANY PREVIOUS SEGMENT.@^@@@@ DW )@@G@@ SZ TEMP @C@@@@ L A0,('SGMT:') . ENCODE 'SGMT:' DX )@@G@@@D@@@@ TEP,U A5,RBIT . OR, IF APPROPRIATE, @B@@@@ DY )@@G@@ L A0,('RSEG:') . 'RSEG:'. @#@@@@ E$FD1 @]@@@@ DZ )@@G@@ E$SP@B@@@@ L A0,PRVSGI . LOOK UP AND@D@@@@ ENCOEA )@@G@@DE SGNTAB . ENCODE SEGMENT NAME. @D@@@@ PRINT 2 EB )@@G@@ . SKIP A LINE AND PRINT. @]@@@@ELEMENT . @D@@@@ L,H2 A0EC )@@G@@,LCITEM . GET ELEMENT NUMBER. @E@@@@ TNE A0,PRVELI .ED )@@G@@ SAME AS FOR PREVIOUS ITEM? @F@@@@ J F$(1) . YES. EE )@@G@@DON'T REPEAT ELEMENT NAME. @E@@@@ S A0,PRVELI . NO. REF )@@G@@EMEMBER THIS ELEMENT. @F@@@@ ENCODE ELNTAB . LOOK UP ANDEG )@@G@@ ENCODE ELEMENT NAME. @C@@@@ TOP,U A5,LBIT . IF FROM RLIEH )@@G@@B$, @^@@@@ J F$(1) @#@@@@ E$COL 24@C@@@@ EI )@@G@@ E$FD2 ('(RLIB$)') . SO INDICATE. @#@@@@L$(L$) E$COL 13@F@@@@EJ )@@G@@ TEP,U A5,XBIT . IS THIS AN ACTUAL COMMON BLOCK? @^@@@@EK )@@G@@ J F$(1) @D@@@@ L,S4 A0,LCITEM+1 . NO. ENCODE EL )@@G@@LC NUMBER. @^@@@@ L,U A1,2 @D@@@@ LMJ X11,EOCTEM )@@G@@F$ . (ALWAYS IN OCTAL.) @^@@@@ J F$(2) @C@@@@L$(L$)EN )@@G@@ E$FD1 'CB',,U . YES. ENCODE 'CB'.@#@@@@L$(L$) E$SP 2 @F@@@@EO )@@G@@ TEP,U A5,CBIT . IS THIS A COMMON BLOCK REFERENCE? @^@@@@EP )@@G@@ J F$(1) @C@@@@ L,H2 A0,LCITEM+2 . NO. GET FWAEQ )@@G@@, @C@@@@ AU,H1 A0,LCITEM+2,*X0 . FIND LWA+1, @B@@@@ ER )@@G@@ S A1,TEMP . SAVE, @C@@@@ E$OCTF 6 .ES )@@G@@ ENCODE FWA. @^@@@@ J F$(2) @D@@@@L$(L$) L,H2 A0ET )@@G@@,LCITEM+2,*X0 . YES. SET POINTER TO @D@@@@ MSI,U A0,3 .EU )@@G@@ LC ITEM REFERRED TO, @^@@@@ A,U A0,LCTAB@^@@@@ A,H2EV )@@G@@ A0,LCTAB@F@@@@ L,H2 A0,3,A0 . GET THE ELEMENT NUMBEEW )@@G@@R THEREIN, @^@@@@ E$FD '[' @F@@@@ ENCODE ELNTAB EX )@@G@@ . AND ENCODE COMMON BLOCK NAME. @^@@@@ E$FD ']' EY )@@G@@@C@@@@L$(L$) PRINT 1 . PRINT THE LINE. @E@@@@LCTEND JGD EZ )@@G@@ A4,LCTBEG . REPEAT WHILE LC ITEMS REMAIN.@E@@@@ LMJ X1FA )@@G@@1,LSTLWP1 . LIST ANY REMAINING LWA+1. @^@@@@ J RETURN FB )@@G@@@[@@@@. @[@@@@. @E@@@@. COME HERE IF NO DIAGNOSTIC TABLES AND LIFC )@@G@@ST BANK LIMITS. @]@@@@NODIAG . @D@@@@ P$RINT 'NO DIAGNOSTICFD )@@G@@ TABLES. BANKS ARE:' @C@@@@ L,T1 A4,BNKTAB . GAT BANK COFE )@@G@@UNT. @E@@@@ L,U X5,BNKTAB . SET POINTER TO BANK TABLE. FF )@@G@@@ @@@@ A,H2 X5,BNKTAB @^@@@@ LXI,U X5,3 @F@@@@FG )@@G@@ J F$(2) . WHILE BANKS REMAIN ([A4] > 0): @C@@@@FH )@@G@@L$(L$) E$FD2 3,*X5 . ENCODE BANK NAME.@C@@@@ LXI,T3 A0FI )@@G@@,2,X5 . BANK FIRST BLOCK.@C@@@@ LXM,T2 A0,2,X5 . BANK FJ )@@G@@BLOCK COUNT.@E@@@@ A,T3 A0,2,X5 . FIRST BLOCK, LAST BLOCKFK )@@G@@ + 1. @^@@@@ LSSL A0,9 @C@@@@ AN,U A0,1 .FL )@@G@@ BANK FWA, LWA. @^@@@@ S A0,TEMP @#@@@@ E$SP 2 FM )@@G@@@C@@@@ E$OCTF 6,TEMP,,H1 . ENCODE BANK FWA, @^@@@@ E$FDFN )@@G@@ '-' @B@@@@ E$OCTF 6,TEMP,,H2 . BANK LWA. @B@@@@ FO )@@G@@ PRINT 1 . PRINT. @E@@@@L$(L$) JGD A4,B$(1) .FP )@@G@@ REPEAT WHILE BANKS REMAIN. @C@@@@ J RETURN . THEN FQ )@@G@@RETURN. @[@@@@/. ^ON@G@@@@. SUBROUTINE LSTEPNT LISTS THE ENTRY POINTFR )@@G@@ NAME TABLE FOR A GIVEN ABSO- @G@@@@. LUTE ELEMENT. THE CALLING SEQUENCFS )@@G@@E IS THE SAME AS FOR SUBROUTINE @F@@@@. LSTAET EXCEPT THAT THE INITIFT )@@G@@AL A0 INCREMENT ('N') IS IGNORED. @[@@@@. ^OFF@[@@@@. @]@@@@LSTEPNFU )@@G@@T* . @D@@@@ LMJ A1,SETUP . SAVE REGISTERS AND @E@@@@FV )@@G@@ NOP 0,EPNTAB . SET UP TO ACCESS EPNTAB. @B@@@@ FW )@@G@@ E$MSG ('ENTRY POINT NAMES: &') @B@@@@ JZ A4,NONAMES .FX )@@G@@ ANY NAMES? @A@@@@ PRINT 2 . YES. @E@@@@ J FY )@@G@@ F$(2) . FOR EACH ENTRY POINT NAME: @C@@@@L$(L$) E$FD2 3,FZ )@@G@@*X5 . ENCODE THE NAME. @#@@@@ E$COL 13@E@@@@ E$OCGA )@@G@@TF 6,2,X5,H1 . ENCODE ABSOLUTE ADDRESS. @ @@@@ E$MSG ('GB )@@G@@ &.&+&'L) @B@@@@ L,H2 A0,2,X5 . GET LCTPTR.@B@@@@ GC )@@G@@ A,U A0,AETAB . BASE IT. @C@@@@ L,S4 A5,1,A0 .GD )@@G@@ GET LC NUMBER. @C@@@@ L,H1 A6,2,X5 . ABSOLUTE ADDRESS GE )@@G@@@G@@@@ AN,H2 A6,2,A0 . - LC LOAD ADDRESS = RELATIVE ADDREGF )@@G@@SS. @C@@@@ L,H2 A0,0,A0 . ELEMENT NUMBER @D@@@@ GG )@@G@@ LSSL A0,1 . *2 = ELNTAB INDEX. @E@@@@ A,U A0GH )@@G@@,ELNTAB . SET POINTER TO ELEMENT NAME. @ @@@@ A,H2 A0,ELNTAGI )@@G@@B @ @@@@ A,S3 A0,ELNTAB @D@@@@ E$FD2 0,A0 GJ )@@G@@ . ENCODE ELEMENT NAME. @#@@@@ E$MSGR @C@@@@ E$DEGK )@@G@@CV A5 . ENCODE LC NUMBER.@#@@@@ E$MSGR @D@@@@ GL )@@G@@ E$OCTV A6 . ENCODE RELATIVE ADDRESS@G@@@@ PRINT 1 GM )@@G@@ . PRINT THE LINE AND CLEAR THE BUFFER. @D@@@@L$(L$) JGD GN )@@G@@ A4,B$(1) . REPEAT FOR ALL NAMES. @^@@@@ J RETURN GO )@@G@@@[@@@@/. ^ON@G@@@@. SUBROUTINE LSTABSVT LISTS THE TABLE OF EXTERNALIZED GP )@@G@@ABSOLUTE VALUES @G@@@@. FOR A GIVEN ABSOLUTE ELEMENT. THE CALLING SEQGQ )@@G@@UENCE IS IDENTICAL TO @ @@@@. THAT FOR SUBROUTINE LSTEPNT.@[@@@@. ^OFFGR )@@G@@@[@@@@. @]@@@@LSTABSVT* . @D@@@@ LMJ A1,SETUP . SAVE GS )@@G@@REGISTERS AND @E@@@@ NOP 0,ABSVTAB .. SET UP TO ACCESGT )@@G@@S ABSVTAB. @D@@@@ E$MSG ('EXTERNALIZED ABSOLUTE VALUES: &') GU )@@G@@@B@@@@ JZ A4,NONAMES . ANY NAMES? @A@@@@ PRINT 2 GV )@@G@@ . YES. @C@@@@ J F$(2) . FOR EACH NAME, GW )@@G@@@C@@@@L$(L$) E$FD2 3,*X5 . ENCODE THE NAME. @#@@@@ E$COGX )@@G@@L 13@C@@@@ E$OCTF 12,2,X5 . ENCODE THE VALUE.@#@@@@ GY )@@G@@ PRINT 1 @B@@@@L$(L$) JGD A4,B$(1) . REPEAT. @^@@@@ GZ )@@G@@ J RETURN @[@@@@. @[@@@@. @E@@@@NONAMES E$FD1 ('NONE')HA )@@G@@ . IF NO NAMES, SO INDICATE. @#@@@@ PRINT 2 @^@@@@. HB )@@G@@ J RETURN @[@@@@. @]@@@@RETURN . @E@@@@ L A0HC )@@G@@,UPSR . THEN CLEAN UP AND GO HOME. @^@@@@ LPD 0,A0 HD )@@G@@@^@@@@ DL A4,SVA45@^@@@@ L A6,SVA6 @ @@@@ HE )@@G@@ L X11,SVX11 @^@@@@ L X5,SVX5 @^@@@@ LXM HF )@@G@@ X4,SVX4M@^@@@@ J 0,X11 @#@@@@/. SUBROUTINES. @[@@@@HG )@@G@@. @D@@@@SETUP . [A1]. SAVE REGISTERS AND SET UP POINTERS. @D@@@@HH )@@G@@ S X4,SVX4M . SAVE VARIOUS REGISTERS.@^@@@@ S HI )@@G@@ X5,SVX5 @ @@@@ S X11,SVX11 @^@@@@ DS A4HJ )@@G@@,SVA45@^@@@@ S A6,SVA6 @^@@@@ SPD UPSR @D@@@@HK )@@G@@ LPD 0100 . ENTER THIRD-WORD MODE. @D@@@@ LXM HL )@@G@@ X4,A0 . SET TABLE POINTER. @E@@@@ SSL A0,18 HM )@@G@@ . BANK INDICATORS TO MODIFIER. @G@@@@ L A6,A0 .HN )@@G@@ [A6] ZERO/ODD/EVEN FOR ALL/I/D BANKS. @F@@@@ L,U X5,*0,A1HO )@@G@@ . SET POINTER TO DIRECTORY ITEM. @E@@@@ LXI,S3 X5,*0,A1HP )@@G@@ . SET INCREMENT TO WORDS/ITEM. @H@@@@ A,H2 X5,*0,A1 .HQ )@@G@@ SET POINTER TO TABLE START LESS INCREMENT. @C@@@@ L,T1 A4HR )@@G@@,*0,A1 . SET ITEM COUNT. @B@@@@ J 1,A1 . RETURHS )@@G@@N. @[@@@@. @D@@@@LSTLWP1 . [X11] . LIST LWA+1 OF ANY SEGMENT OR BHT )@@G@@ANK. @D@@@@ TNZ TEMP . ANY ADDRESS TO LIST? @B@@@@HU )@@G@@ J 0,X11 . NO. RETURN.@E@@@@ S,H1 X11,TEMPHV )@@G@@ . YES. SAVE RETURN ADDRESS. @B@@@@ E$MSG ('1ST UNUSED AHW )@@G@@DDR: &') @B@@@@ E$OCTF 6,TEMP,,H2 . ADDRESS. @E@@@@ HX )@@G@@ LXM,H1 X11,TEMP . RESTORE RETURN ADDRESS AND @E@@@@ L,U HY )@@G@@ A0,1*/6 . AND FALL INTO PRINT ROUTINE.@E@@@@PRINT . [X11] PRHZ )@@G@@INT CURRENT LINE. THEN RESET EDIT$ BUFFER.@E@@@@ A,S3 A0,0,X1 IA )@@G@@ . GET WC FROM EDIT$ PACKET. @^@@@@ LSSL A0,18 @D@@@@IB )@@G@@ A,H2 A0,0,X1 . GET IMAGE ADDRESS. @^@@@@ ER IC )@@G@@ PRINT$ @F@@@@ J ECLEAR$ . GO CLEAR THE BUFFER TO ID )@@G@@BLANKS. @[@@@@. @B@@@@ENCODE . [X11] LOOK UP NAME AND ENCODE. IE )@@G@@@E@@@@ LSSL A0,1 . CONVERT NUMBER TO INDEX. @^@@@@IF )@@G@@ A,U A0,0,A1 @^@@@@ A,H2 A0,0,A1 @C@@@@ DL IG )@@G@@ A0,2,A0 . GET THE NAME @C@@@@ J EFD2$ .IH )@@G@@ AND ENCODE. @[@@@@. @]@@@@/$(2) . @^@@@@PRVBDI EQUF $,II )@@G@@,T1 @^@@@@PRVSGI EQUF $,,T2 @^@@@@PRVELI EQUF $,,T3 @#@@@@IJ )@@G@@PRVITMS +0,0,0 @^@@@@SVX4M EQUF $,,H1 @]@@@@UPSR +0,0@]@@@@IK )@@G@@SVX5 +0 @]@@@@SVX11 +0 @]@@@@SVA45 +0D @]@@@@SVA6 +0 @]@@@@IL )@@G@@TEMP +0D @]@@@@ +0 @[@@@@. @C@@@@AETAB EQUF 0,X4 IM )@@G@@ . POINTER TO TABLE.@G@@@@ AE$TAB . DEFINES BNKIN )@@G@@TAB, SGNTAB, ELNTAB, LCTAB, @H@@@@LCITEM EQUF 3,X5 . POINTIO )@@G@@ER TO CURRENT LC ITEM. \ EPNTAB, ABSVTAB.@[@@@@. @ @@@@ $ENDIP )@@G@@ TEST->START _@@@@@ $END TEST->START _@@@@@DI. @^@@@@IQ )@@G@@ LXI,U A2,3 )@@[N@^@KO^KO[@@@@/[)@@K/K@@][ S@@@@(W^@@^ @@@@BIR )@@G@@[@@@@@D8@@@@/[@@]^/S^@@A/\K@#*AA@@)J)@E[MK[@^@KO[[@@@@[XK@@@/K@@[@:XK@@@IS )@@G@@CPP@@^/K@@][/S )@@/>)@@K1@ @@^/-)@@K0@ @@^AB@@)J)@O[N[KO @@[]@@@@@'=@@@@IT )@@G@@2XY)@ NWO@@#&;)@@#G^=@@#C8=@@#/,0@#7]PK@@@]TK@@@*S@@@@AC@@)J)@Y[UKK@KO@@IU )@@G@@&;@D-B0@ @@^C@@@^F[@@@@DH8@@@[;*@@@DGOI@@]QVI@@]&RI@@]9*@@@B9?I@@@AD@@)JIV )@@G@@)@([F[K^C@L]@D[K)#K^C[@@/,0@@@C8@@^G/,0@@@9?@@@B')])@@C/)@@ /,0@@@/K@@@,IW )@@G@@:@@@@BAE@@)J)@2[F[K) K)AKL]@X]@T[@@@C8K@@AC^@@@D/,0@@@/,0@@@C8K@@ACC@@@DIX )@@G@@/,0@@@/,0@@@CW@@@@AF@@)J)@;[F]@X]@T[^@^ @@@@@@@@/K@@[N:S@@@@CC @@#C5P@@^IY )@@G@@/,0@^[C8@@]@ @@@@B/,0@@@/,0@@@AG@@)J)[^[F[KO[[K[@K)[@@@@@@@@C/)@@ /,0@@@IZ )@@G@@C@@@^J=9K@@]C@@@^I @@@@B/,0@#7]O@@@@[S@@@@AH@@)J)[H[N]@D[^@K[[K^^@[O@@@@JA )@@G@@/K@@[Z:O@@@@C^ @@#/,0@^[C8@@]@/,0@^AC8O@@^CS@@@@')])@@AI@@)J)[R[EK[@^C]^JB )@@G@@[]@G@@@@@@@@C/@@@H/,0@@@9?@@^K/,0@@@C/@@@S/K@@[Z>9K@@K/,0@^AC8O@@ AJ@@)JJC )@@G@@)[)[F]@)K@K)BK[]@^@@@@@@/,0@@@C8@@CB/K@@[(/,0@@@C8K@@]C* @@^/K@@[$=9K@@^JD )@@G@@/,0@@@AK@@)J)[([EK)]K)]^@^^@@@@@@@@@C8K@@A[@K@@BKC )@ C^ @@ /K@@[4=9K@@CJE )@@G@@')])@@')])@@C/)@@ AL@@)J)[2[N]@X@@@K)]@@@@C8O@@ ')])@@C/)@@[C^G@@#G^^@@AJF )@@G@@G8^@@AT8@@@#C^ )@ /K@@[_/,0@@@AM@@)J)[/[F@^C@-@K^[@K@@@@@@@@C@@@^S/K@@#)JG )@@G@@/,0@#78^@@@D/,0@^[C8@@[@')])@@C/)@@]/,0@^AAN@@)J)] [N]@=@K[]@G@@@@QV @@]JH )@@G@@&R @@]/,0@@@9? )@#/K@@])&9K@@#O O@@#R9O@@#CX^@@#'=@@@@AO@@)J)]J[E[[^C@=CJI )@@G@@@=^@@@@@@@@@C8K@@ACC@@@B')])@@')])@@C/)@@ [@@@@BH8@@@[;*@@@DGO @@]AP@@)JJJ )@@G@@)]S[F]@WK)]KL]@WK^@@@@@@8^@@]F/,0@^[C8@@[@/,0@@@C8K@@AC^@@@B')])@@C/)@@-JK )@@G@@/,0@@@AQ@@)J)]-[N@K[@K)^K[@K@@9? )@#/K@@#B/,0@^[C8@@]@/[@@#W/,0@@@C8@@^TJL )@@G@@/S^@@B/\K@#*/K@@#)AR@@)J)]:[F]@GK)C[]@X@K)^@@@@@C^ @@]/,0@@@C8@@^X/,0@@@JM )@@G@@C8K@@ACC @@]/,0@@@C/@@@H/,0@@@AS@@)J)]4[U@@@K)#@/,0@@@9?G@@@G?^@@ G^^@@ JN )@@G@@G8^@@ ;*@@@[C^G@@@H ?@@]CD>@@]C(W@@[G8^@@@AT@@)J)]_[F]@SK)EK)A^C[L@K@@@@JO )@@G@@8^@@]%/,0@^[C8@@[@/,0@@@C@@@@M/,0@@@/,0@@@C@@@@L/,0@@@AU@@)J)#C[N@K[@K)^JP )@@G@@K[@K@@9? )@#/K@@#U/,0@^[C8@@]@/[@@#W/,0@@@C8@@^Z/S^@@C/\K@#*/K@@#)AV@@)JJQ )@@G@@)#M[F]@GK)C[]@WK^@@@@@@@8^@@#L/,0@^[C8@@[@/,0@@@C8K@@GC@ @@]/,0@@@C/@@@HJR )@@G@@/,0@@@AW@@)J)#V[N@K^C@L@KL[KO^R]0@@#C[)@@A9!@@@^B0G@@@C@@@@[/,0@^[C8@@]@JS )@@G@@/,0@@@C@@@^>/K@@#)AX@@)J)#>[N[KL[KO [KO^@@B0@@[@B4@@@[[[)@@A9(@@@^A]0@@#JT )@@G@@A[K@@]AD@@@[/KF@@@QD@@@[R[K@@]AY@@)J)#\[U@@^^KK@AE0@@B/KF@@@(@@@@B/KH@@[JU )@@G@@CXHK@@O XK@@&!XK@@R9XK@@C[)@@G;C@@@MQ[@@@GAZ@@)J)#'[N@K)^KL]@X[@@@G^[@@@JV )@@G@@;*@@@MG?[@@@C8@@[@QE0@@B/,0@@@C8K@@AC^@@@B/,0@@@C8@@^&BA@@)J)^^@;]@>]@?@JW )@@G@@K)#@@@)@@@O@@@@@@@@@@@@@/K@@@@9?G@@]G^H@@@G8H@@@;*@@@[/K@@@@'=@@@@BB@@)JJX )@@G@@)@][^@@@@@@@)^F@M@ [&] (I-BANK@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JY )@@G@@@@@@@@BC@@)J)^H[U@@@@@@@RE: ANKS AES. BC TABLGNOSTINO DIARLIB$)@@@@@(JZ )@@G@@@RSEG:@SGMT:&-&)& BD@@)J)^S[U*@@@@@@UTE VA ABSOLALIZEDEXTERN& &.&+KA )@@G@@ & NAMES:POINT ENTRY @[A@^MBE@@)J)^<@2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@@@DDR: &USED A1ST UN@@NONE & LUES: BF@@)J@@^@@#@@B@@G@@Z@@#@@:@@@KC )@@G@@@@E@@@@@@@^(@@@@@EERR$ EFD1$ EDIT$T EFD2$ EMSG$ KD )@@G@@ EOCTV$ EMSGR$ EOCTF$ ECOL$ PRINT$ EDECV$KE )@@G@@ ECLEAR$ LSTABSVT @@[@@@@@@@#DLSTAET @@[@@@@@@@@@LSTEPNKF )@@G@@T @@[@@@@@@@]+R;0^^)RBZ@@KP;K@@[ABZ@@K(@@@@H/K@[A;/K@LBY/S@@@@'^@[C$KG )@@G@@/K@LB2/S@@@@/,0[D"0@@^ E*[S@@@*SDFF*@I@@@@. COPYRIGHT 1979, B. E. CHI, SKH )@@G@@UNY-ALBANY, ALBANY NY 12222. ^ON @B@@@@. USING THE KI )@@G@@DATA IN INFOR$'S ELT$ TABLE, @A@@@@. FNAME$ ENCODES THE FILE NAME, KJ )@@G@@@B@@@@. ENAME$ ENCODES THE ELEMENT NAME, @C@@@@. FENAME$ ENCODEKK )@@G@@S THE FILE AND ELEMENT NAMES @G@@@@. INTO AN ALREADY INITIALIZED EDIT$ KL )@@G@@BUFFER. THE ROUTINE HAS NO D-BANK, @E@@@@. IS PSR-MODE INSENSITIVE, ANDKM )@@G@@ ALTERS REGISTERS X11-A3, R1. @I@@@@. KN )@@G@@ ^EOF @D@@@@TEST $EQU 1/KO )@@G@@1/1 . SET FOR SELF-TEST. @[@@@@. @]@@@@$(1) $LIT@]@@@@KP )@@G@@ DEF$@]@@@@ LOC$@]@@@@ IF$ @[@@@@. @A@@@@ KQ )@@G@@ $EQU +(E$FD )+(E$FD2 ) @[@@@@. @]@@@@FNAME$* . @ @@@@ KR )@@G@@ L,U X11,0,X11 @^@@@@ LMJ A0,F$(2)@]@@@@FENAME$* . KS )@@G@@@^@@@@ LMJ A0,F$(1)@]@@@@ENAME$* . @#@@@@ SZ A0KT )@@G@@@ @@@@L$(L$) LXI,U X11,1*/17 @F@@@@L$(L$) S X11,R1 .KU )@@G@@ SAVE RETURN ADDRESS, DO-ENAME FLAG.@[@@@@. @D@@@@ IF A0 IS NKV )@@G@@ONZ . THEN ENCODE FILE NAME. @ @@@@ DL A0,FQUAL KW )@@G@@@A@@@@ IF FQL IS NONZ, /E$FD2 @^@@@@ L,U A2,'*'KX )@@G@@@C@@@@ IF FQL IS NONZ OR IQF IS NONZ, /E$FD @ @@@@ DLKY )@@G@@ A0,FNAME @A@@@@ IF FNL IS NONZ, /E$FD2 @^@@@@ KZ )@@G@@ IF FCL IS NONZ@ @@@@ E$MSG ('(&)&'L) @^@@@@ LA )@@G@@E$FD1 FCYC@#@@@@ E$MSGR@#@@@@ ENDIF @[@@@@/. LB )@@G@@@ @@@@ E$MSG ('&/&/&'L) @C@@@@ IF RKL IS NONZ OR WKLC )@@G@@L IS NONZ, /E$MSGR@ @@@@ L A0,RKEY @A@@@@ IFLD )@@G@@ RKL IS NONZ, /E$FD1 @^@@@@ IF WKL IS NONZ@#@@@@ LE )@@G@@E$MSGR@^@@@@ E$FD1 WKEY@#@@@@ ENDIF @^@@@@ LF )@@G@@ L,U A2,'.'@C@@@@ IF ELT$ IS NONZ OR CFN IS NONZ, /E$FD LG )@@G@@@D@@@@ ENDIF . FILE NAME COMPLETE. @[@@@@. LH )@@G@@@E@@@@ IF R1 IS NEG . THEN ENCODE ELEMENT NAME. @ @@@@LI )@@G@@ DL A0,ENAME @A@@@@ IF ENL IS NONZ, /E$FD2 LJ )@@G@@@^@@@@ IF EVL IS NONZ@^@@@@ E$FD '/' @^@@@@ LK )@@G@@ E$FD2 EVER@#@@@@ ENDIF @^@@@@ IF ECL IS NONZLL )@@G@@@ @@@@ E$MSG ('(&)&'L) @^@@@@ E$FD1 ECYC@#@@@@LM )@@G@@ E$MSGR@#@@@@ ENDIF @D@@@@ ENDIF LN )@@G@@ . ELEMENT NAME COMPLETE. @[@@@@. @D@@@@ L X11,R1 LO )@@G@@ . RESTORE RETURN ADDRESS.@^@@@@ J 0,X11 @G@@@@/. TESLP )@@G@@T PROGRAM. CALL AS PROCESSOR. F-OPTION CAUSES ELEMENT NAMES IN @G@@@@LQ )@@G@@. CALL LINE TO BE PRINTED, E-OPTION FILE NAMES, AND NO OPTION, BOTH. LR )@@G@@@[@@@@. @^@@@@ $IF TEST @]@@@@$(3) $LIT@]@@@@START LS )@@G@@ . @C@@@@ L A6,A5 . SAVE OPTIONS. @C@@@@ LT )@@G@@ L A0,(28,BUF) . READ INFOR TABLE.@ @@@@ LMJ X11,RINFLU )@@G@@$ @^@@@@ ER ERR$ @#@@@@ E$OPEN @^@@@@ LV )@@G@@ L X4,(1,0)@C@@@@ IF (OPB('F')) OP A6 AND (OPB('E')) EP A6LW )@@G@@@ @@@@ L,U X10,FNAME$ @D@@@@ ELSEIF (OPB('E')) OP ALX )@@G@@6 AND (OPB('F')) EP A6 @ @@@@ L,U X10,ENAME$ @]@@@@ LY )@@G@@ ELSE@ @@@@ L,U X10,FENAME$ @#@@@@ ENDIF @[@@@@LZ )@@G@@. @]@@@@ITEM . @^@@@@ L,U A7,1 @^@@@@ L,U MA )@@G@@ A0,0,X4 @ @@@@ LMJ X11,SELT$ @#@@@@ SZ A7MB )@@G@@@D@@@@ IF A7 IS ZERO AND 0,A0 IS ZERO, /ER EXIT$ @ @@@@ MC )@@G@@ E$DECF 2,0,*X4,U @#@@@@ E$SP 2 @ @@@@ LMJ X1MD )@@G@@1,0,X10 @#@@@@ E$PRINT @^@@@@ J ITEM @[@@@@ME )@@G@@. @#@@@@$(2),BUF $RES 28@#@@@@ $ENDF @[@@@@. @ @@@@MF )@@G@@ $END TEST->START ___ /E@#@@@@$(2),B)@@[MK^@@K^C@^C@@@*4@@@@MG )@@G@@9?@@@]/K@@@%(@@@@GA]0@[[&'0)@@ @@@@G/\@@@^/\@@@ R';@@@AA@@@@)@E[#]@^K)@KMH )@@G@@)@K)]K)@K)@K)[@@@@/,0@@@*0@@@@9?@@@^')])@@*)@@@@(4@@@@C8)@@*/,0@@@AB@@@@MI )@@G@@)@M[#]@[@K^C@4C@^C[^C[O@@@@@@@C8@@@_/,0@@@/,0@@@C@@@@A/,0@@@C8@@@"/K@@@TMJ )@@G@@(?@@@@AC@@@@)@U[#]@H]@[]@[]@P]@[]@[]@L]@@@(=@@@@/,0@@@**@@@@C@@@@B/,0@@@MK )@@G@@*=@@@@(*@@@@/,0@@@AD@@@@)@+[#@K) K)@K)^^C@^C@^C@)@@@@@')])@@**@@@[(@@@@@ML )@@G@@C8)@@./,0@@@C@@@@C/,0@@@/K@@@&AE@@@@)@%[EK^C@^C@^C@OC@^@K)]@')])@@C/)@@/MM )@@G@@/K@@@5(0@@@[/,0@@@*4@@@[9?@@@D/K@@@/1@@@[[AF@@@@)@3[#]@[]@ ]@[@K^C@4C@^CMN )@@G@@[@@@@@/,0@@@C@@@@H/,0@@@C8@@@"/K@@@/(?@@@[/,0@@@9?@@@FAG@@@@)@;@:]@O@@@@MO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&/&/& (&)& /KF@@@R]0@[[/,0@@@AH@@@@MP )@@G@@@@^@@]@@A@@A@@M@@#@@Y@@@@@E@@@@@@@[@ELT$ EFD2$ EDIT$T MQ )@@G@@EMSG$ EFD1$ EMSGR$ ENAME$ @@[@@@@@@@@#FENAME$ MR )@@G@@@@[@@@@@@@@]FNAME$ @@[@@@@@@@@@/K@A*6Q;KE;B&;K@@[&;@@@[N8K@@EM#W)@@MS )@@G@@**@E/1/K@ "K*@@E;R/K@ "OC8@@@@/,0 ;[C8@@@[[*@E/1C8@E;R[@@U;BC@@E;'[@@U;CMT )@@G@@C@@E;/(@@E;&C/@__"[@@U;DC8@E;.*@@E;>/K@ "-C/K__"*[S@@@*SDFF*@[@@@@. ^ON MU )@@G@@@G@@@@. PRINT A '^?' WITH THE ARROW ALIGNED IN COLUMN [A0]. ALTERS A0-AMV )@@G@@3. @^@@@@$(1) MNM$ . ^EOF @]@@@@ IF$ @#@@@@QARROW* . [XMW )@@G@@11]. @A@@@@ IF 72,,U LT A0, /L,U A0,72 @^@@@@ DSL A0MX )@@G@@,36 @^@@@@ DI,XU A0,-6 @^@@@@ MSI,U A1,6 @ @@@@MY )@@G@@ DL A2,('^?'LD) @^@@@@ DSC A2,0,A1 @^@@@@ MZ )@@G@@ DS A2,ARROW@^@@@@ LN A1,A0 @ @@@@ L,U A0NA )@@G@@,ARROW,A0 @ @@@@ LXI,U A0,0102,A1 @^@@@@ ER PRNB )@@G@@INT$ @^@@@@ J 0,X11 @^@@@@$(2) $SR(' ',60) @]@@@@NC )@@G@@ARROW +0D @]@@@@ $END_@@@@@ ER PRINT$ @^@@@@ ND )@@G@@)@@[M@^G@[[^^@@@@@C8G@@ED@K@@G9*)@@E;^!@@@9?)@@@T8K@@AW/@__9;G@@@=C8@@[CNE )@@G@@!8@@[DAA@@@@)@E@UK)@@@@@)@@@4@@@@@@@ NF )@@G@@/KF@@@'=@@@@&;H@[]AB@@@@)@A@4@@@@@@@)@@@K@@@@@@@@@@@@@ ^? @@@@@@NG )@@G@@@@@@@@ AC@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@#@@B@@[@@D@@[@@H@@@NI )@@G@@@@E@@]@@@@@H@@@@@GPRINT$ QARROW @@[@@@@@@@@@@@@@@@@@@@@@@@@@@@NJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NK )@@G@@*[S@@@*SDFF*@F@@@@. COPYRIGHT 1977, 1979, B. E. CHI, SUNY-ALBANY, ALBANYNL )@@G@@ NY 12222. @H@@@@TEST EQU 1/1/1 . SET TO 0 FOR SUBROUTINENM )@@G@@, 1 FOR SELF-TEST. ^ON @[@@@@. @G@@@@. SCAN$ IS A COLLECTION OF ROUNN )@@G@@TINES WHICH MAY BE USED TO PARSE OR DECODE@G@@@@. INPUT STRINGS OF FIELDNO )@@G@@ATA CHARACTERS. IN NORMAL USAGE, THE STRING IS @G@@@@. SCANNED FROM LEFNP )@@G@@T TO RIGHT, THE ROUTINE RETURNING A SET OF PARAMETERS @#@@@@. EACH TIME NQ )@@G@@A @G@@@@. * SYMBOLIC ITEM (LETTERS AND DIGITS, FIRST CHARACTER A NR )@@G@@LETTER), @A@@@@. * NUMERIC ITEM (ALL DIGITS), OR@D@@@@. * DELIMNS )@@G@@ITER (ANY OTHER CHARACTER) IS ENCOUNTERED.@[@@@@. @G@@@@. THE ROUTINT )@@G@@NE IS REENTRANT, WORD-MODE INSENSITIVE, AND USES NO D-BANK @G@@@@. STORNU )@@G@@AGE. WORKING STORAGE IS PROVIDED BY A 6- OR 7-WORD PACKET SUP- @D@@@@NV )@@G@@. PLIED BY THE USER. THE PACKET IS ILLUSTRATED BELOW:@[@@@@. @E@@@@NW )@@G@@. ------------------------------------- @E@@@@. NX )@@G@@ 0 : DXC : SXC : 5 : SLOC : @E@@@@. NY )@@G@@ ------------------------------------- @E@@@@. NZ )@@G@@1 : CBF : LDF : STP : : @E@@@@. ---OA )@@G@@---------------------------------- @E@@@@. 2 : RDX ::: : @E@@@@. ---------------OC )@@G@@---------------------- @E@@@@. 3 : : @E@@@@. ---------------------------OE )@@G@@---------- @E@@@@. 4 : OF )@@G@@ : @E@@@@. ------------------------------------- OG )@@G@@@E@@@@. 5 : : : @E@@@@OH )@@G@@. ------------------------------------- @E@@@@. OI )@@G@@ 6 : DXADDR : SXADDR : @E@@@@. OJ )@@G@@ ------------------------------------- @[@@@@. @H@@@@. CELLOK )@@G@@S MARKED WITH TAGS ENCLOSED BY <> ARE USED ONLY FOR TEMPORARY STOR- OL )@@G@@@#@@@@. AGE BY SCAN$. @[@@@@. @G@@@@. BEFORE ANALYSIS OF STRING ITOM )@@G@@EMS IS BEGUN, SCAN$ MUST BE OPENED. ONCE @G@@@@. THE ROUTINE IS OPEN, XON )@@G@@4 MODIFIER IS USED AS A POINTER BY SCAN$. THE @H@@@@. ORIGINAL CONTENTOO )@@G@@S OF THIS MODIFIER IS SAVED IN THE PACKET TO BE RESTORED @H@@@@. WHENOP )@@G@@ THE ROUTINE IS CLOSED. THE ONLY OTHER REGISTERS USED BY SCAN$ ARE OQ )@@G@@@B@@@@. X11-A3, R1, WHICH ARE NEVER RESTORED. @[@@@@. @H@@@@. ALL OR )@@G@@ENTRIES INTO THE ROUTINE ARE VIA LMJ X11'S AND ARE SUPPORTED BY PRO- OS )@@G@@@H@@@@. CEDURE CALLS, AS IS THE GENERATION OF THE PACKET. PACKET GENERAOT )@@G@@TION IS @ @@@@. IMPLEMENTED BY THE CALL: @[@@@@. @B@@@@. SPKTOU )@@G@@ S$PKT SLOC ARG1 ARG2 . . . @[@@@@. @H@@@@. THE FIRST PROCEDOV )@@G@@URE ARGUMENT, 'SLOC', IS THE ADDRESS OF THE STRING TO BE @G@@@@. SCANOW )@@G@@NED, AND IS OBLIGATORY. REMAINING ARGUMENTS 'ARG1', 'ARG2', ETC.,@G@@@@OX )@@G@@. ARE OPTIONAL, MAY APPEAR IN ANY ORDER, AND HAVE THE FOLLOWING SIGNIFI-OY )@@G@@@]@@@@. CANCE: @[@@@@. @H@@@@. 'STP',N RETURN END-OF-STRINGOZ )@@G@@ STATUS WHEN FIELDATA CHARACTER WHOSE @G@@@@. CODE IS PA )@@G@@N IS ENCOUNTERED. IF THIS ARGUMENT BE OMITTED, @B@@@@. DEPB )@@G@@FAULT VALUE IS N = 077. @[@@@@. @G@@@@. 'SXT',N,ADDR INCLUDE AMONG PC )@@G@@THOSE CHARACTERS ACCEPTABLE FOR SYMBOLIC @G@@@@. ITEMS THPD )@@G@@E CHARACTERS IN S6 OF THE N-WORD LIST WHOSE @G@@@@. ADPE )@@G@@DRESS IS ADDR. THE ADDRESS IS STORED IN CELL 'SXADDR'@C@@@@. PF )@@G@@ WHILE N IS STORED IN 'SXC'. @[@@@@. @G@@@@. 'DXT',N,ADDR EXPG )@@G@@CLUDE FROM SYMBOLIC AND NUMERIC ITEMS (I.E., TAKE AS @G@@@@. PH )@@G@@ DELIMITERS) THOSE CHARACTERS IN S6 OF THE N-WORD LIST @G@@@@. PI )@@G@@ WHOSE ADDRESS IS ADDR. THE ADDRESS IS STORED IN CELL @G@@@@PJ )@@G@@. 'DXADDR', WHILE N IS STORED IN 'DXC'. IF BOTH THIS AND PK )@@G@@@G@@@@. THE PREVIOUS ARGUMENT ('SXT') BE OMITTED, THE LASTPL )@@G@@ WORD @D@@@@. OF THE PACKET IS NOT GENERATED AT ALL.@[@@@@PM )@@G@@. @G@@@@. IF A PARTICULAR CHARACTER APPEARS IN BOTH THPN )@@G@@E DELIMITER @G@@@@. AND THE SYMBOL EXTENSION TABLES, THE FPO )@@G@@ORMER TAKES PRECE-@^@@@@. DENCE. @[@@@@. @G@@@@. 'RDXPP )@@G@@',N N = 0, 1, 8, 10 OR 16. IF 8, 10 OR 16, NUMERIC ITEMS @G@@@@PQ )@@G@@. ARE ASSUMED TO TO BE OCTAL, DECIMAL OR HEXADECIMAL, PR )@@G@@@G@@@@. RESPECTIVELY. IF 0, NUMERIC ITEMS ARE TAKEN AS OCPS )@@G@@TAL @F@@@@. IF THE FIRST DIGIT OF THE ITEM IS A ZERO, DEPT )@@G@@CIMAL @G@@@@. OTHERWISE. IF 1, NUMERIC ITEMS ARE TAKEN ASPU )@@G@@ HEXADECI- @G@@@@. MAL IF THE FIRST DIGIT OF THE ITEM IS PV )@@G@@A ZERO, DECIMAL @G@@@@. OTHERWISE. IF THIS ARGUMENT BE PW )@@G@@OMITTED, DEFAULT VALUE @ @@@@. IS N = 0. 0[@@@@L,1. PX )@@G@@@[@@@@. @G@@@@. 'CBF',N IF N = 0, EACH BLANK IN THE STRING WILPY )@@G@@L BE TREATED AS A @G@@@@. SEPARATE DELIMITER. IF N = 1, MPZ )@@G@@ULTIPLE BLANKS WILL BE @G@@@@. COMPRESSED TO A SINGLE BLAQA )@@G@@NK; TRAILING BLANKS WILL BE @G@@@@. IGNORED. IF THIS ARQB )@@G@@GUMENT BE OMITTED, DEFAULT VALUE IS @^@@@@. N = 1. @[@@@@QC )@@G@@. @G@@@@. 'LDF',N IF N = 0, SYMBOLS MUST START WITH A LETTER (QD )@@G@@OR A CHARAC-@G@@@@. TER IN THE SYMBOL EXTENSION TABLE). IQE )@@G@@F N = 1, SYMBOLS @G@@@@. MAY START WITH A DIGIT. IF THISQF )@@G@@ ARGUMENT BE OMITTED, @B@@@@. DEFAULT VALUE IS N = 0. QG )@@G@@@[@@@@. @H@@@@. DESCRIBED BELOW ARE THE CALLING SEQUENCES FOR THE VAQH )@@G@@RIOUS ENTRIES TO THE @G@@@@. ROUTINE. SHOWN ON THE LEFT IS THE PROCEQI )@@G@@DURE CALL; ON THE RIGHT THE @G@@@@. GENERATED CODE. WHEREVER THE PROCQJ )@@G@@EDURE CALL INVOLVES AN ARGUMENT, THE@G@@@@. LATTER MAY ASSUME THE USUAL QK )@@G@@*U,*X,J FORM IF DESIRED. IF THE ARGUMENT @D@@@@. BE OMITTED ENTIRELY, OQL )@@G@@NLY THE LMJ LINE IS CODED. @[@@@@. @#@@@@. *** OPEN SCAN$ @[@@@@QM )@@G@@. @D@@@@. S$CAN SPKT L,U A0,SPKT@E@@@@QN )@@G@@. LMJ X11,SCAN$ @[@@@@. QO )@@G@@@G@@@@. FUNCTION: SAVE USER X4. SET X4 TO POINT TO THE PACKET AND INDIQP )@@G@@CES TO@G@@@@. POINT TO THE BEGINNING OF THE STRING WHOSE ADDRESS IS IN TQQ )@@G@@HE PACKET @H@@@@. (SLOC). MARK THAT NO PREVIOUS ITEM HAS BEEN SCANNEDQR )@@G@@ (SEE STHIS$ BELOW). @[@@@@. @^@@@@. *** GET THE NEXT ITEM.@[@@@@QS )@@G@@. @E@@@@. S$N LMJ X11,SNEXT$ QT )@@G@@@[@@@@. @C@@@@. FUNCTION: GET THE NEXT ITEM IN THE STRING. @[@@@@QU )@@G@@. @ @@@@. *** GET THIS ITEM (AGAIN). @[@@@@. @E@@@@. S$TQV )@@G@@ LMJ X11,STHIS$ @[@@@@. @C@@@@. FUNCQW )@@G@@TION: GET AGAIN THE LAST ITEM SCANNED. @[@@@@. @G@@@@. ON EXITINGQX )@@G@@ FROM SNEXT$ AND STHIS$, [A2] DESCRIBES THE CURRENT ITEM. @G@@@@. UNLEQY )@@G@@SS [A2] = 0100 OR 0200, [A0], [A1] AND [A3] ARE ALL CLEARED TO +0:@[@@@@QZ )@@G@@. @G@@@@. [A2] < 0100: ITEM IS A DELIMITER CHARACTER, [A2] ITS FIRA )@@G@@ELDATA CODE.@[@@@@. @A@@@@. [A2] = 0100: ITEM IS A NUMBER: @B@@@@RB )@@G@@. [A0] = BINARY VALUE; @E@@@@. [A1] =RC )@@G@@ CONVERSION RADIX USED (8 OR 10); @G@@@@. NOTE: IF ERRD )@@G@@RORS ARE DETECTED DURING CONVERSION, THE @H@@@@. RE )@@G@@ FOLLOWING ERROR CODES WILL BE OR'D WITH THE TYPE @D@@@@. RF )@@G@@ CODE 0100 RETURNED IN A2: @E@@@@. RG )@@G@@ 1 IF THE NUMBER EXCEEDS 36 BITS;@G@@@@. 2 RH )@@G@@IF AN ILLEGAL CHARACTER WAS ENCOUNTERED. @G@@@@. RI )@@G@@ IF [A2] = 0101, 0102 OR 0103, [A0] IS MEANING- @ @@@@. RJ )@@G@@ LESS.@G@@@@. [A3] = DIGIT COUNT (INCLUDING ANY LERK )@@G@@ADING ZEROS). @[@@@@. @A@@@@. [A2] = 0200: ITEM IS A SYMBOL: RL )@@G@@@F@@@@. [A0,A1] = FIELDATA SYMBOL, LJSF, TRUNCATED TO 12RM )@@G@@@D@@@@. CHARACTERS IF NECESSARY; @F@@@@. RN )@@G@@ [A3] = ACTUAL CHARACTER COUNT (MAY BE > 12). @[@@@@. RO )@@G@@@C@@@@. [A2] = 0300: END OF STRING ENCOUNTERED. @F@@@@. [A2] = 0RP )@@G@@301: SNEXT$ CALLED AFTER END OF STRING ENCOUNTERED. @G@@@@. [A2] = 0RQ )@@G@@302: STHIS$ CALLED BUT NO ITEMS HAVE YET BEEN SCANNED. @[@@@@. RR )@@G@@@H@@@@. ADDITIONALLY, THE STARTING COLUMN NUMBER FOR THE ITEM JUST SCANNRS )@@G@@ED WILL @G@@@@. BE SAVED IN THE CELL 'THSITM' IN THE PACKET, AND 'NXRT )@@G@@TITM' WILL CONTAIN@H@@@@. THE START COLUMN FOR THE NEXT ITEM TO BE SCANNRU )@@G@@ED. (NOTE: STRING CHAR- @F@@@@. ACTER POSITIONS OR COLUMNS ARE NUMRV )@@G@@BERED STARTING WITH 0, NOT 1.)@[@@@@. @A@@@@. *** BACKSPACE POINTERSRW )@@G@@ ONE ITEM. @[@@@@. @E@@@@. S$BKSP LMJRX )@@G@@ X11,SBKSP$ @[@@@@. @G@@@@. FUNCTION: BACKSPACE POINTERS THSIRY )@@G@@TM AND NXTITM ONE ITEM. STATUS CODE@H@@@@. 0303 IS RETURNED IN A2 IF NXRZ )@@G@@TITM ALREADY POINTS TO THE BEGINNING OF THE @G@@@@. STRING SO THAT NSA )@@G@@O BACKSPACE IS POSSIBLE; STATUS CODE 0 OTHERWISE. @[@@@@. @#@@@@SB )@@G@@. *** CLOSE SCAN$ @[@@@@. @E@@@@. S$CANX SC )@@G@@ LMJ X11,SCANX$ @[@@@@. @G@@@@. FUNCTION: RESTORE X4 MODIFISD )@@G@@ER TO ITS ORIGINAL VALUE AND RETURN WITH @ @@@@. THE PACKET ADDRESS IN SE )@@G@@A0. @[@@@@. @#@@@@. *** REOPEN SCAN$@[@@@@. @D@@@@. S$CSF )@@G@@ANR SPKT L,U A0,SPKT@E@@@@. SG )@@G@@ LMJ X11,SCANR$ @[@@@@. @G@@@@. FUNCTION: SAVE SH )@@G@@X4 MODIFIER; REESTABLISH SCANNING AT THE POINT WHERE @ @@@@. SCANX$ WASSI )@@G@@ CALLED EARLIER. @[@@@@. @G@@@@. THE THREE CALLS SCAN$, SCANX$, SCASJ )@@G@@NR$ FUNCTION EXACTLY ANALAGOUSLY TO @E@@@@. THE CALLS EDIT$, EDITX$, EDISK )@@G@@TR$ OF THE EDIT$ PACKAGE. @[@@@@. @ @@@@. *** FIND A GIVEN CHARASL )@@G@@CTER. @[@@@@. @D@@@@. S$FIND 'C' L,U ASM )@@G@@0,'C' @E@@@@. LMJ X11,SFIND$ SN )@@G@@@[@@@@. @G@@@@. FUNCTION: STARTING WITH COLUMN [NXTITM], SCAN FORWASO )@@G@@RD, SEARCHING FOR @G@@@@. THE SPECIFIED CHARACTER 'C'. SCANNING STOPS WSP )@@G@@HEN EITHER 'C' OR THE @G@@@@. STOP CHARACTER 'STP' IS FOUND. A0 CONTASQ )@@G@@INS THE COLUMN NUMBER WHERE @G@@@@. 'C' OR 'STP' WAS ENCOUNTERED; [A1]SR )@@G@@=[A0]+1 IF 'C' WAS FOUND, -0 IF NOT.@H@@@@. [A1] IS ALSO SAVED IN NXTITMSS )@@G@@, WHILE THE START COLUMN IS SAVED IN THSITM. @[@@@@. @G@@@@. THE ST )@@G@@REMAINING ENTRIES ARE EXTENSIONS TO THE CALLS TO SNEXT$, STHIS$, @G@@@@SU )@@G@@. ADDITIONALLY PERFORMING A TEST ON THE ITEM, SKIPPING THE FOLLOWING SV )@@G@@@B@@@@. INSTRUCTION IF THE TEST IS SUCCESSFUL. @[@@@@. @E@@@@. *** SW )@@G@@GET NEXT/THIS ITEM; TEST IF IT IS THE DELIMITER 'D': @[@@@@. @D@@@@SX )@@G@@. S$ND 'D' L,U A0,'D' @E@@@@. SY )@@G@@ LMJ X11,SNEXT$D @D@@@@. S$TD 'SZ )@@G@@D' L,U A0,'D' @E@@@@. TA )@@G@@ LMJ X11,STHIS$D @[@@@@. @D@@@@. *** GET NEXT/THIS ITEMTB )@@G@@; TEST IF IT IS A NUMBER: @[@@@@. @E@@@@. S$NN TC )@@G@@ LMJ X11,SNEXT$N @[@@@@. @E@@@@. S$TN TD )@@G@@ LMJ X11,STHIS$N @[@@@@. @D@@@@. *** GET NETE )@@G@@XT/THIS ITEM; TEST IF IT IS A SYMBOL: @[@@@@. @E@@@@. S$NTF )@@G@@S LMJ X11,SNEXT$S @[@@@@. @E@@@@. TG )@@G@@ S$TS LMJ X11,STHIS$S @[@@@@. @D@@@@TH )@@G@@. *** GET NEXT/THIS ITEM; TEST IF IT IS END OF STRING:@[@@@@. @E@@@@TI )@@G@@. S$NE LMJ X11,SNEXT$E @[@@@@. TJ )@@G@@@E@@@@. S$TE LMJ X11,STHIS$E @[@@@@TK )@@G@@. @F@@@@. *** GET NEXT/THIS ITEM; TEST IF IT IS END OF STRING OR A BTL )@@G@@LANK: @[@@@@. @E@@@@. S$NF LMJ XTM )@@G@@11,SNEXT$F @[@@@@. @E@@@@. S$TF LMJTN )@@G@@ X11,STHIS$F @[@@@@. @B@@@@. -/\/\/TO )@@G@@\/\- @[@@@@. @B@@@@. DIRECT USAGE OF CHARACTER-ACCESS LADDER:@[@@@@TP )@@G@@. @G@@@@. MEANS IS PROVIDED FOR THE USER TO DIRECTLY EMPLOY THE CHARTQ )@@G@@ACTER-ACCESS@G@@@@. ROUTINE ONCE SCAN$ HAS BEEN OPENED, ALLOWING FETCHESTR )@@G@@ OF SUCCESSIVE @G@@@@. STRING CHARACTERS WITHOUT ANALYSIS WITH REGARDTS )@@G@@ TO CHARACTER TYPE. RE-@H@@@@. GISTERS X5,X6 ARE USED AS LADDER INDICESTT )@@G@@ AND MUST BE INITIALIZED BEFORE @^@@@@. ANY FETCHES OCCUR. @[@@@@TU )@@G@@. @F@@@@. >>SAVE X5,X6 CONTENTS AND SET TO ACCESS STARTING AT COLUMNTV )@@G@@ N: @[@@@@. @D@@@@. S$GSXO N L,U ATW )@@G@@1,N @E@@@@. LMJ X11,SGSXO$ TX )@@G@@@[@@@@. @G@@@@. ALTERS A0,A1,X5,X6. (TO OMIT THE X5,X6-SAVE, OMIT TTY )@@G@@HE LETTERS 'SX' IN@#@@@@. THE CALL NAME.) @[@@@@. @G@@@@. >>PUT THE TZ )@@G@@NEXT CHARACTER INTO A2 AND INCREMENT THE COLUMN POINTER. @[@@@@. UA )@@G@@@D@@@@. S$G EX SG$,*X6@[@@@@. UB )@@G@@@G@@@@. ALTERS A2,X5,X6. (TO OMIT INCREMENTATION OF THE COLUMN POINTER,UC )@@G@@ OMIT @C@@@@. THE H-BIT ON X6, OR USE THE PROCEDURE S$G0.) @[@@@@. UD )@@G@@@G@@@@. >>PUT IN A3 THE NUMBER OF THE NEXT COLUMN TO BE ACCESSED AND RESUE )@@G@@TORE @D@@@@. X5,X6 TO THE VALUES SAVED IN AN EARLIER S$GSI CALL: @[@@@@UF )@@G@@. @E@@@@. S$GCRX LMJ X11,SGCRX$ UG )@@G@@@[@@@@. @G@@@@. ALTERS A3,X5,X6. (TO OMIT CALCULATION OF THE COLUMNUH )@@G@@ NUMBER, OMIT THE @E@@@@. LETTER 'C' IN THE CALL NAME. [A3] WILL NOT BEUI )@@G@@ ALTERED.) @[@@@@. ^EOF@]@@@@/ AXR$@C@@@@. PACKET ITEMS MARKED '*UJ )@@G@@' ARE INPUT TO SCAN$. @C@@@@PX EQU X4 . PACKET POINUK )@@G@@TER. @E@@@@WX EQU X5 . WORD INDEX (NO INCREMENT). UL )@@G@@@G@@@@CX EQU X6 . CHARACTER INDEX (INCREMENT +1 OR -1UM )@@G@@). @C@@@@PKT EQUF 0,PX . PACKET ADDRESS. @G@@@@DXC UN )@@G@@ EQUF PKT,,S1 * DELIMITER CHARACTER EXTENSION TABLE WC. @G@@@@UO )@@G@@SXC EQUF PKT,,S2 * SYMBOL CHARACTER EXTENSION TABLE WC. UP )@@G@@@F@@@@SLOC EQUF *PKT * STRING ADDRESS (WITH H-BIT ON). UQ )@@G@@@F@@@@CBF EQUF PKT+1,,S1 * IF ON, COMPRESS MULTIPLE BLANKS. UR )@@G@@@G@@@@LDF EQUF PKT+1,,S2 * IF ON, SYMBOL MAY START WITH A DIGIUS )@@G@@T. @D@@@@STP EQUF PKT+1,,S3 * STRING STOP CHARACTER. @D@@@@UT )@@G@@RET EQUF PKT+1,,H2 . SAVE RETURN ADDRESS. @F@@@@RDX EQUFUU )@@G@@ PKT+2,,S1 * CONVERSION RADIX (0 IF VARIABLE). @F@@@@TRX EQUFUV )@@G@@ PKT+2,,S2 . RADIX USED FOR LATEST NUMERIC ITEM.@E@@@@FLG EQUFUW )@@G@@ PKT+2,,S3 . ERROR CODES FOR NUMERIC ITEM.@C@@@@SAVEPX EQUF PKUX )@@G@@T+2,,H2 . PX MODIFIER SAVE.@B@@@@SAVEWX EQUF PKT+3 . WX SAUY )@@G@@VE. @B@@@@SAVECX EQUF PKT+4 . CX SAVE. @^@@@@ITEMS EQUFUZ )@@G@@ PKT+5 @F@@@@THSITM EQUF PKT+5,,H1 . START COL FOR LATEST ITVA )@@G@@EM SCANNED. @E@@@@NXTITM EQUF PKT+5,,XH2 . START COL FOR NEXT ITEMVB )@@G@@. @E@@@@TESTCDE EQUF NXTITM . TEMP SAVE FOR TEST CODE. VC )@@G@@@G@@@@DXADDR EQUF PKT+6,,H1 * DELIMITER CHARACTER EXTENSION TABLEVD )@@G@@ ADDR.@G@@@@SXADDR EQUF PKT+6,,H2 * SYMBOL CHARACTER EXTENSION TAVE )@@G@@BLE ADDR. @[@@@@. @^@@@@. PACKET ARRANGEMENT: @[@@@@. @C@@@@VF )@@G@@. ------------------------------------- @C@@@@. 0 : DXC : SXC VG )@@G@@: 5 : SLOC : @C@@@@. ------------------------------VH )@@G@@------- @C@@@@. 1 : CBF : LDF : STP : RET : @C@@@@VI )@@G@@. ------------------------------------- @C@@@@. 2 : RDX : TRX VJ )@@G@@: FLG : SAVEPX : @C@@@@. ------------------------------VK )@@G@@------- @C@@@@. 3 : SAVEWX : @C@@@@VL )@@G@@. ------------------------------------- @C@@@@. 4 : VM )@@G@@ SAVECX : @C@@@@. ------------------------------VN )@@G@@------- @C@@@@. 5 : THSITM : NXTITM : @C@@@@VO )@@G@@. ------------------------------------- @C@@@@. 6 : DXADDRVP )@@G@@ : SXADDR : @C@@@@. ------------------------------VQ )@@G@@------- @[@@@@. @E@@@@. CONTENTS OF THSITM, NXTITM (CN = START CVR )@@G@@OLUMN OF ITEM N): @C@@@@. CONDITION [THSITM] [NXTITM]VS )@@G@@@C@@@@. AFTER SCAN$(*) -0 +0 @C@@@@. AFTER 1STVT )@@G@@ CALL TO SNEXT$ +0 C1 @C@@@@. AFTER 2ND CALL TO SNEXT$ VU )@@G@@ C1 C2 @C@@@@. . . . .. .. VV )@@G@@@C@@@@. AFTER END OF STRING FOUND CE -0 @[@@@@. @D@@@@VW )@@G@@. *OR AFTER SBKSP$ CALL WITH [THSITM] INITIALLY +0. @]@@@@/$(1) LIT VX )@@G@@@]@@@@SCAN$* . @F@@@@ L A1,(-0,0) . MARK NO CURRENT IVY )@@G@@TEM. RESET COL NO.@A@@@@ S A1,ITEMS-PKT,A0 @]@@@@SCANR$VZ )@@G@@* . @D@@@@ S PX,SAVEPX-PKT,A0 . SAVE PX MODIFIER. @D@@@@WA )@@G@@ LXM,U PX,0,A0 . SET PACKET POINTER. @F@@@@ L,U WB )@@G@@ A0,WX . BUILD INDIRECT POINTER: BUF,WX. @^@@@@ J WC )@@G@@ 0,X11 @[@@@@. @]@@@@SCANX$* . @D@@@@ L,U A0,PKT WD )@@G@@ . GET PACKET ADDRESS. @D@@@@ LXM PX,SAVEPX . RESTOWE )@@G@@RE PX MODIFIER. @^@@@@ J 0,X11 @[@@@@. @#@@@@S$* WF )@@G@@ PROC *1@D@@@@ L,U A0,0100*S$(1,1)+(S$(1,1)=0)*1*/10 WG )@@G@@@^@@@@ J S$(1,2) @]@@@@ END @[@@@@. @D@@@@STHIS$WH )@@G@@* S$ 0,STHIS$D . GET THIS ITEM (AGAIN). @C@@@@SNEXT$* S$ 0,WI )@@G@@SNEXT$D . GET NEXT ITEM. @F@@@@STHIS$N* S$ 1,STHIS$D . GET TWJ )@@G@@HIS ITEM; SKIP IF NUMBER. @F@@@@SNEXT$N* S$ 1,SNEXT$D . GET NWK )@@G@@EXT ITEM; SKIP IF NUMBER. @F@@@@STHIS$S* S$ 2,STHIS$D . GET TWL )@@G@@HIS ITEM; SKIP IF SYMBOL. @F@@@@SNEXT$S* S$ 2,SNEXT$D . GET NWM )@@G@@EXT ITEM; SKIP IF SYMBOL. @G@@@@STHIS$E* S$ 3,STHIS$D . GET TWN )@@G@@HIS ITEM; SKIP IF END OF STRING. @G@@@@SNEXT$E* S$ 3,SNEXT$D .WO )@@G@@ GET NEXT ITEM; SKIP IF END OF STRING. @H@@@@STHIS$F* S$ 4,STHIS$WP )@@G@@D . GET THIS ITEM; SKIP IF BLANK OR END OF STRING. @H@@@@SNEXT$F* S$ WQ )@@G@@ 4,SNEXT$D . GET NEXT ITEM; SKIP IF BLANK OR END OF STRING. @E@@@@WR )@@G@@/SBKSP$* . BACKSPACE POINTERS ONE ITEM. @^@@@@ WS )@@G@@ L,U A2,0303 @^@@@@ J $+2 @G@@@@STHIS$D* WT )@@G@@ . GET THIS ITEM; SKIP IF SAME AS [A0]. @^@@@@ L,U WU )@@G@@ A2,0302 @[@@@@. @H@@@@ L A1,ITEMS . GET COL NO WV )@@G@@FOR PREVIOUS ITEM (-0 IF NONE). @^@@@@ SSA A1,18 @^@@@@WW )@@G@@ J $+3 @G@@@@SNEXT$D* . GET NEXT ITWX )@@G@@EM; SKIP IF SAME AS [A0]. @^@@@@ L,U A2,0301 @G@@@@ WY )@@G@@ L A1,NXTITM . GET COL NO FOR NEXT ITEM (-0 IF NONE). @[@@@@WZ )@@G@@. @#@@@@ SZ A3@E@@@@ JN A1,EXIT . IF NOXA )@@G@@ ITEM, EXIT IMMEDIATELY.@E@@@@ S X11,RET . ELSE, SAVE XB )@@G@@RETURN ADDRESS. @E@@@@ S A1,THSITM . SAVE START COLUMNXC )@@G@@ NUMBER. @C@@@@ S A0,TESTCDE . SAVE TEST CODE. @H@@@@XD )@@G@@ LMJ X11,SGSXO$ . SAVE USER WX,CX, SET UP CHARACTER POINTERXE )@@G@@S. @D@@@@ TNE,U A2,0303 . WAS ENTRY VIA SBKSP$? @F@@@@XF )@@G@@ J BKSPTRS . YES. GO BACK POINTERS UP ONE ITEM. @E@@@@XG )@@G@@ DSL A0,72 . NO. CLEAR RECEIVING AREA. @E@@@@ XH )@@G@@ LMJ X11,GET . GET ITS FIRST CHARACTER. @C@@@@ J XI )@@G@@ DELIMITER . IT'S A DELIMITER.@C@@@@ J SYMBOL .XJ )@@G@@ IT'S A LETTER. @C@@@@. J NUMBER . IT'S A DIGIT. XK )@@G@@@[@@@@. @[@@@@. @]@@@@NUMBER . @D@@@@ SZ FLG XL )@@G@@ . CLEAR ERROR FLAGS. @E@@@@ L A3,RDX . SET RXM )@@G@@ADIX FOR THIS NUMBER: @E@@@@ L,U X11,10 . INITIALLY, XN )@@G@@ASSUME DECIMAL. @H@@@@ L X11,A3 . INITIALLY ASSUME XO )@@G@@FIXED RADIX (8, 10 OR 16). @E@@@@ TG,U A3,8 . IF [RXP )@@G@@DX] = ONE OF THESE, @D@@@@ J NUM0 . ASSUMPTIONXQ )@@G@@ CORRECT. @E@@@@ L,U X11,8 . VARIABLE RADIX. ASSUMEXR )@@G@@ 8. @C@@@@ TZ A3 . OR, IF [RDX] = 1,@B@@@@ XS )@@G@@ L,U X11,16 . ASSUME 16.@D@@@@ TE,U A2,'0' .XT )@@G@@ IF FIRST DIGIT NONZERO,@D@@@@ L,U X11,10 . USE DECIMAXU )@@G@@L INSTEAD. @E@@@@NUM0 S X11,TRX . SAVE FOR THIS CONVERSIOXV )@@G@@N. @F@@@@ AN,U X11,15 . [X11] > 0 ONLY IF HEXADECIMALXW )@@G@@. @^@@@@ J NUM2 @[@@@@/. @]@@@@NUM1 . @D@@@@XX )@@G@@ LMJ X11,GET . GET ANOTHER CHARACTER. @C@@@@ J XY )@@G@@ NUM9 . DELIMITER FOUND. @C@@@@ J NUM5 .XZ )@@G@@ LETTER FOUND. @E@@@@NUM2 AN,U A2,'0' . DIGIT FOUND. STRIYA )@@G@@P FIELDATA. @E@@@@ TN A2 . LEGAL DIGIT FOR THIS RAYB )@@G@@DIX? @^@@@@ TG A2,TRX @A@@@@ J NUM7 .YC )@@G@@ NO. @F@@@@NUM3 DSL A2,36 . YES. [A2,A3] = NEW DIGIT (ND)YD )@@G@@. @E@@@@ JN A1,NUM4 . OVERFLOW ABOUT TO OCCUR? YE )@@G@@@F@@@@ LDSL A0,36 . NO. [A0] = PREVIOUS DIGITS (PD). YF )@@G@@@D@@@@ MI A0,TRX . [A0,A1] = RADIX*PD. @E@@@@ YG )@@G@@ DA A0,A2 . [A0,A1] = RADIX*PD + ND. @B@@@@ JZ YH )@@G@@ A0,NUM1 . OVERFLOW? @D@@@@NUM4 L,U A2,1 . YES. YI )@@G@@SET OVERFLOW FLAG.@^@@@@ J NUM8 @[@@@@. @]@@@@NUM5 YJ )@@G@@ . @B@@@@ TP X11 . RADIX 16? @A@@@@ J YK )@@G@@ NUM6 . NO. @D@@@@ TLE,U A2,'F'+1 . YES. LETTERYL )@@G@@ 'A' - 'F'? @^@@@@ TLE,U A2,'A' @A@@@@ J NUM6 YM )@@G@@ . NO. @D@@@@ A,U A2,10-'A' . YES. STRIP FIELDATA. YN )@@G@@@B@@@@ J NUM3 . GO FOLD IN.@[@@@@. @]@@@@NUM6 YO )@@G@@ . @H@@@@ TZ LDF . LETTER FOUND. MAY SYMBOL STARYP )@@G@@T WITH A DIGIT? @A@@@@ J NUM10 . YES. @]@@@@NUM7 YQ )@@G@@ . @F@@@@ L,U A2,2 . NO. SET ILLEGAL-CHARACTER FLAYR )@@G@@G. @F@@@@NUM8 OR A2,FLG . COMBINE WITH ANY PREVIOUS FLAYS )@@G@@GS. @^@@@@ S A3,FLG @E@@@@ DSL A0,72 .YT )@@G@@ CLEAR OUT ANY RESULT AND SCAN@C@@@@ J NUM1 . END YU )@@G@@OF ITEM. @[@@@@. @]@@@@NUM9 . @F@@@@ L A0,A1 YV )@@G@@ . DELIMITER FOUND. RESULT TO A0. @C@@@@ L A1,TRX YW )@@G@@ . RADIX TO A1. @^@@@@ L,U X11,0100@G@@@@ A YX )@@G@@ X11,FLG . [X11] = (NUMERIC CODE)++(ERROR FLAGS). @E@@@@ YY )@@G@@ J BKSP1C . GO BACKSPACE OVER DELIMITER. @[@@@@. @]@@@@YZ )@@G@@NUM10 . @F@@@@ L A1,THSITM . RESET POINTER TO BEGINNZA )@@G@@ING OF ITEM.@^@@@@ LMJ X11,SGO$@E@@@@ EX SG$,*CX ZB )@@G@@ . GET FIRST CHARACTER AGAIN. @E@@@@. J SYMBOL .ZC )@@G@@ GO TREAT ITEM AS SYMBOL. @]@@@@/SYMBOL . @E@@@@ SZ A3ZD )@@G@@ . INITIALIZE CHARACTER COUNT. @G@@@@ DL A0,(''LDZE )@@G@@) . INITIALIZE RECEIVING AREA WITH BLANKS. @^@@@@ J SYZF )@@G@@MB2 @[@@@@. @]@@@@SYMB1 . @D@@@@ LMJ X11,GET .ZG )@@G@@ GET ANOTHER CHARACTER. @C@@@@ J SYMB3 . DELIMITER FZH )@@G@@OUND. @B@@@@ NOP 0,0 . DIGIT OR @C@@@@ L ZI )@@G@@ A3,X11 . LETTER FOUND. @E@@@@ SSL A3,18 .ZJ )@@G@@ GET CURRENT CHARACTER COUNT @]@@@@SYMB2 . @C@@@@ LXI,U X1ZK )@@G@@1,1,A3 . AND INCREMENT. @F@@@@ TG,U A3,12 . DISCAZL )@@G@@RD CHARACTERS BEYOND 12TH @D@@@@ J SYMB1 . (BUTZM )@@G@@ MAINTAIN COUNT). @F@@@@ LDSL A0,6 . IF < 12, INCLUDE ZN )@@G@@NEW CHARACTER. @^@@@@ A A1,A2 @^@@@@ J SYZO )@@G@@MB1 @[@@@@. @]@@@@SYMB3 . @D@@@@ L A3,X11 .ZP )@@G@@ GET CHARACTER COUNT. @^@@@@ SSL A3,18 @B@@@@ TG,UZQ )@@G@@ A3,13 . IF > 12, @C@@@@ L,U A3,12 . TRUNZR )@@G@@CATE TO 12. @E@@@@ MSI,U A3,6 . FIND JUSTIFYING SHIFT CZS )@@G@@OUNT. @D@@@@ DSC A0,0,A3 . LEFT-JUSTIFY SYMBOL. @D@@@@ZT )@@G@@ L,U X11,0200 . [X11] = SYMBOLIC CODE. @E@@@@ J ZU )@@G@@ BKSP1C . GO BACKSPACE OVER DELIMITER. @[@@@@. @]@@@@DELIMIZV )@@G@@TER . @F@@@@ TNE A2,STP . IS DELIMITER THE STOP CHARACTZW )@@G@@ER? @A@@@@ J ENDSTR . YES. @D@@@@ L X1ZX )@@G@@1,A2 . [X11] = CHARACTER. @C@@@@ TNE,U A2,' ' .ZY )@@G@@ IF NOT A BLANK, @F@@@@ TNZ CBF . OR IF COMPRESS-BZZ )@@G@@LANKS FLAG OFF, @C@@@@ J FINIS . ACCEPT VERBATIM.AA )@@G@@@E@@@@ EX SG$,*CX . ELSE, SCAN FOR NON-BLANK. @E@@@@AB )@@G@@ TNE A2,STP . IS IT THE STOP CHARACTER? @A@@@@ AC )@@G@@ J ENDSTR . YES. @D@@@@ TNE,U A2,' ' . NO. AAD )@@G@@NOTHER BLANK? @D@@@@ J $-4 . YES. KEEP SCANNINAE )@@G@@G. @I@@@@. J BKSP1C . NO. RETURN A BLANK AND BACKSPAF )@@G@@ACE OVER NON-BLANK. @[@@@@. @]@@@@BKSP1C . @D@@@@ AN AG )@@G@@ CX,(1,1) . BACKSPACE 1 CHARACTER. @^@@@@ J FINIS AH )@@G@@@[@@@@. @]@@@@ENDSTR . @D@@@@ L,U X11,0300 . GET EAI )@@G@@ND-OF-STRING CODE.@D@@@@ L WX,(-0) . BLOCK FURTHER SCAAJ )@@G@@NNING.@^@@@@. J FINIS @]@@@@/FINIS . @C@@@@ L AK )@@G@@ A2,X11 . GET ITEM CODE. @F@@@@ LMJ X11,SGCRX$ .AL )@@G@@ FIND NEXT COLUMN, RESTORE WX,CX. @C@@@@ LXI A3,TESTCDE .AM )@@G@@ GET TEST VALUE. @C@@@@ S A3,NXTITM . SAVE NEXT COLUMN.AN )@@G@@@F@@@@ SSL A3,18 . MOVE TEST VALUE INTO POSITION. AO )@@G@@@D@@@@ L X11,RET . GET RETURN ADDRESS. @]@@@@EXIT AP )@@G@@ . @F@@@@ TE,U A2,05 . IF RESULTANT CODE IS 05 OR 03AQ )@@G@@00 @^@@@@ TNE,U A2,0300 @E@@@@ TE,U A3,0400 .AR )@@G@@ AND CODE SPECIFIED WAS 0400 @H@@@@ TNE A2,A3 . OR IFAS )@@G@@ RESULTANT CODE SAME AS SPECIFIED CODE, @E@@@@ A,U X11,1 AT )@@G@@ . INCREMENT RETURN ADDRESS. @F@@@@ TE,U A2,0100 .AU )@@G@@ UNLESS ITEM IS NUMBER OR SYMBOL, @^@@@@ TNE,U A2,0200 @^@@@@AV )@@G@@ J $+4 @C@@@@ DSL A0,72 . CLEAR A0,AAW )@@G@@1,A3. @#@@@@ SZ A3@^@@@@ J 0,X11 @G@@@@ AX )@@G@@ L A3,NXTITM . ELSE, FIND DIGIT OR CHARACTER COUNT. @ @@@@AY )@@G@@ AN A3,THSITM @^@@@@ J 0,X11 @]@@@@/BKSPTAZ )@@G@@RS . @D@@@@ TZ THSITM . [THSITM] CURRENTLY +0? @^@@@@BA )@@G@@ J $+3 @C@@@@ SN A1,WX . YES. MAKE -BB )@@G@@0. @^@@@@ J BKSP3 @[@@@@. @F@@@@ LXI,XU CXBC )@@G@@,-1 . NO. SET POINTERS TO DECREMENT. @E@@@@ EX SGBD )@@G@@$,*CX . DISCARD FIRST CHARACTER. @E@@@@ SZ A0 BE )@@G@@ . CLEAR DELIMITER-FOUND AND @E@@@@BKSP1 . .BF )@@G@@ ITEM-NOT-DELIMITER FLAGS. @G@@@@ LMJ X11,GET . SCANNBG )@@G@@ING BKWDS, GET CHAR OF PREV ITEM. @G@@@@BKSP2 LXM,U A0,1 .BH )@@G@@ IF DELIMITER, SET DELIMITER-FOUND FLAG. @E@@@@ NOP 0,0 BI )@@G@@ . IF LETTER OR DIGIT, DON'T. @F@@@@ JB A0,$+3 .BJ )@@G@@ IS THIS CHARACTER A DELIMITER? @G@@@@ LXI,U A0,1 .BK )@@G@@ IF NOT, MARK THIS ITEM NOT A DELIMITER @F@@@@ J BKSP1 BL )@@G@@ . AND CONTINUE SCANNING BACKWARDS. @[@@@@. @H@@@@ A BM )@@G@@ CX,(1,1) . NOW A0=(0,1), (1,0) OR (1,1). INCR COL NO. @D@@@@BN )@@G@@ TOP A0,(1,1) . IF BOTH FLAGS SET, @F@@@@ A,U BO )@@G@@ CX,1 . INCREMENT COLUMN NUMBER AGAIN. @]@@@@BKSP3 . BP )@@G@@@F@@@@ LMJ X11,SGCRX$ . FIND COLUMN NUMBER, RESTORE WX,CX. BQ )@@G@@@^@@@@ LSSL A3,18 @E@@@@ LXM A3,THSITM . [A3] BR )@@G@@= NEW THSITM,NXTITM. @^@@@@ S A3,ITEMS@D@@@@ L BS )@@G@@ X11,RET . GET RETURN ADDRESS. @C@@@@ SZ A2 BT )@@G@@ . RETURN STATUS 0. @^@@@@ J 0,X11 @]@@@@/SFIND$* . BU )@@G@@@E@@@@ S A0,R1 . SAVE SPECIFIED CHARACTER. @D@@@@BV )@@G@@ L A0,ITEMS . GET THSITM, NXTITM. @^@@@@ SSA BW )@@G@@ A0,18 @ @@@@ L A1,NXTITM @F@@@@ JN A1BX )@@G@@,0,X11 . IF ALREADY END OF STRING, RETURN. @E@@@@ S A1BY )@@G@@,THSITM . ELSE, NXTITM BECOMES THSITM. @D@@@@ S X11,RET BZ )@@G@@ . SAVE RETURN ADDRESS. @H@@@@ LMJ X11,SGSXO$ . SAVE CA )@@G@@USER WX,CX, SET UP CHARACTER POINTERS. @]@@@@SFIND . @E@@@@ CB )@@G@@ DL A0,WX . SAVE CURRENT POINTER VALUES. @C@@@@ EX CC )@@G@@ SG$,*CX . GET A CHARACTER. @C@@@@ TE A2,STP .CD )@@G@@ END OF STRING? @^@@@@ J $+3 @D@@@@ L WXCE )@@G@@,(-0) . IF SO, MAKE NOTE AND @D@@@@ J $+3 .CF )@@G@@ BREAK OUT OF LOOP. @[@@@@. @G@@@@ TE A2,R1 .CG )@@G@@ IF NOT, IS IT THE SPECIFIED CHARACTER? @D@@@@ J SFIND CH )@@G@@ . IF NOT, KEEP SCANNING. @F@@@@ LMJ X11,SGCRX$ . END OCI )@@G@@F STRING OR CHARACTER FOUND. @E@@@@ S A3,NXTITM . SAVE CJ )@@G@@NEXT COLUMN NUMBER. @F@@@@ MSI,U A0,6 . FIND COL NUCK )@@G@@MBER JUST BEFORE STOP. @^@@@@ A,U A0,0,A1 @G@@@@ L CL )@@G@@ A1,A3 . NEXT COL NUMBER (OR -0 IF END OF STRING).@D@@@@ CM )@@G@@ L X11,RET . GET RETURN ADDRESS. @^@@@@ J 0,CN )@@G@@X11 @G@@@@/GET . (X11). GET A CHARACTER AND ANALYZE ITS TYPE. ALTECO )@@G@@RS A2,A3,R1.@C@@@@ EX SG$,*CX . GET A CHARACTER. @C@@@@CP )@@G@@ TNE A2,STP . STOP CHARACTER? @E@@@@ J 0,CQ )@@G@@X11 . YES. TAKE DELIMITER RETURN. @A@@@@ LXI,U A3,1 CR )@@G@@ . NO. @G@@@@ TNZ DXC . IS THERE A DELIMITER EXCS )@@G@@TENSION LIST? @A@@@@ J AEXT . NO. @D@@@@ CT )@@G@@ L R1,DXC . YES. SEARCH THE LIST. @ @@@@ LXM A3CU )@@G@@,DXADDR @^@@@@ SE,S6 A2,0,*A3@B@@@@ J AEXT CV )@@G@@ . NO-FIND. @E@@@@ J 0,X11 . FOUND. TAKE DELIMCW )@@G@@ITER RETURN.@[@@@@. @]@@@@AEXT . @F@@@@ TNZ SXC CX )@@G@@ . IS THERE AN ALPHA EXTENSION LIST? @A@@@@ J TYPE CY )@@G@@ . NO. @D@@@@ L R1,SXC . YES. SEARCH THE LIST. CZ )@@G@@@ @@@@ LXM A3,SXADDR @^@@@@ SE,S6 A2,0,*A3@B@@@@DA )@@G@@ J TYPE . NO-FIND. @E@@@@ J 1,X11 DB )@@G@@ . FOUND. TAKE ALPHA RETURN. @[@@@@. @]@@@@TYPE . @B@@@@DC )@@G@@ TLE,U A2,'A' . IF < 'A', @B@@@@ J 0,X11 DD )@@G@@ . DELIMITER.@C@@@@ TLE,U A2,')' . ELSE, IF < ')', DE )@@G@@@B@@@@ J 1,X11 . LETTER. @C@@@@ TLE,U A2DF )@@G@@,'0' . ELSE, IF < '0', @B@@@@ J 0,X11 . DELIDG )@@G@@MITER.@D@@@@ TLE,U A2,'''' . ELSE, IF < APOSTROPHE, @B@@@@DH )@@G@@ J 2,X11 . DIGIT. @C@@@@ J 0,X11 DI )@@G@@ . ELSE, DELIMITER. @[@@@@. @^@@@@. BYTE-ACCESS LADDER. @]@@@@DJ )@@G@@SG$DC . @F@@@@ JMGI WX,$+2 . ARE WE AT BEGINNING OF DK )@@G@@STRING? @E@@@@ J BKSP2 . IF SO, ESCAPE BACKSPACEDL )@@G@@ LOOP.@G@@@@ AN,U WX,1 . ELSE, BACKSPACE POINTERS 1 CHDM )@@G@@ARACTER. @^@@@@ LXM,U CX,5 @^@@@@ AN,U A2,1 DN )@@G@@@D@@@@ J 0,A2 . REPEAT 'EX SG$,*CX '. @[@@@@. DO )@@G@@@E@@@@ LMJ A2,SG$DC . (FALLS HERE IF 0,CX = -1.) @^@@@@DP )@@G@@SG$* L,S1 A2,SLOC @^@@@@ L,S2 A2,SLOC @^@@@@ L,S3DQ )@@G@@ A2,SLOC @^@@@@ L,S4 A2,SLOC @^@@@@ L,S5 A2,SLOC DR )@@G@@@^@@@@ L,S6 A2,SLOC @E@@@@ LMJ A2,$+1 . (FALLDS )@@G@@S HERE IF 0,CX = +6.) @^@@@@ A,U WX,1 @^@@@@ LXM,DT )@@G@@U CX,0 @^@@@@ AN,U A2,1 @F@@@@ J 0,A2 DU )@@G@@ . IF OVERSHOOT, REPEAT 'EX SG$,*CX '.@G@@@@/SGSXO$*. (X11). SAVE USDV )@@G@@ER CONTENTS OF WX,CX AND SET CHARACTER POINTERS @E@@@@ . USING CODW )@@G@@LUMN NUMBER IN A1. ALTERS A0,A1,WX,CX. @ @@@@ S WX,SAVEWDX )@@G@@X @ @@@@ S CX,SAVECX @#@@@@SGO$* SZ A0@^@@@@DY )@@G@@ DI,U A0,6 @^@@@@ DS A0,WX @^@@@@ LXI,DZ )@@G@@U CX,1 @^@@@@ J 0,X11 @[@@@@. @[@@@@. @G@@@@EA )@@G@@SGCRX$* . (X11). PUT IN A3 COLUMN NUMBER CORRESPONDING TO CURRENT CON- EB )@@G@@@G@@@@ . TENTS OF WX,CX. RESTORE USER CONTENTS OF WX,CX. ALTERSEC )@@G@@ A3, @#@@@@ . WX,CX. @^@@@@ L A3,WX @^@@@@ ED )@@G@@ MSI,U A3,6 @E@@@@ TE A3,(-0) . IF [WX] = -0, RETEE )@@G@@URN -0. @^@@@@ A,XU A3,0,CX @ @@@@SGRX$* L WX,SAVEWEF )@@G@@X @ @@@@ L CX,SAVECX @^@@@@ J 0,X11 EG )@@G@@@[@@@@. @^@@@@ DO \TEST , END @G@@@@/. TEST PROGRAM. TO BE REH )@@G@@UN UNDER DX. IN RESPONSE TO '*', TYPE 'RD' TO @G@@@@. READ A TEST STRIEI )@@G@@NG; 'TE', 'NE', ETC., TO EXECUTE ONE OF THE CALLS; @ @@@@. NOTHING TOEJ )@@G@@ CAUSE A DX BREAK.@]@@@@$(3) LIT @A@@@@QQQ P$RINT (0101,('???'L)EK )@@G@@) @]@@@@START . @^@@@@ T$READ REQ @D@@@@ JNZ EL )@@G@@ A0,GTCMMD . ANY RESPONSE TO '*'? @^@@@@ DL A0,A5 EM )@@G@@@^@@@@ DL A2,A7 @F@@@@ DXBRK . A15 EN )@@G@@AND ENTER DX COMMAND MODE. @^@@@@ J START @]@@@@GTCMMDEO )@@G@@ . @D@@@@ L,T1 A4,RQBUF . ELSE, ANALYZE RESPONSE.@^@@@@EP )@@G@@ TE,U A4,'RD' @^@@@@ J NOTRD @E@@@@ R$EAEQ )@@G@@D ((ER EXIT$),BUF) . IF 'RD', READ A STRING. @C@@@@ SN A0ER )@@G@@,BUF,A0 . INSERT STOPPER. @^@@@@ J START @]@@@@NOTRD ES )@@G@@ . @#@@@@ SZ A3@^@@@@P* PROC *999 @#@@@@I ET )@@G@@ REPEAT P @ @@@@ TNE,U A4,P(I,1) @ @@@@ L,U A3EU )@@G@@,P(I,2) @]@@@@ ENDR@]@@@@ END @E@@@@ P 'TEV )@@G@@E',STHIS$E 'NE',SNEXT$E 'TN',STHIS$N ; @E@@@@ 'NN',SNEEW )@@G@@XT$N 'TS',STHIS$S 'NS',SNEXT$S ; @F@@@@ 'T ',STHIS$ 'NEX )@@G@@ ',SNEXT$ 'BS',SBKSP$ 'SX',SCANX$ ; @F@@@@ 'TF',STHIS$F 'EY )@@G@@NF',SNEXT$F 'S ',SCAN$ 'SR',SCANR$ ;@D@@@@ 'TD',STHIS$D 'EZ )@@G@@ND',SNEXT$D 'FD',SFIND$ @D@@@@ JZ A3,QQQ . RECOGNIZABLFA )@@G@@E COMMAND? @D@@@@ L,S4 A0,RQBUF . YES. GET INPUT ARGUMENTFB )@@G@@@D@@@@ TE,U A4,'S ' . OR, IF SCAN$, SCANR$, @ @@@@ FC )@@G@@ TNE,U A4,'SR' .@C@@@@ L,U A0,SPKT . PACKET ADFD )@@G@@DRESS.@D@@@@ L A15,('[SKP]') . ANTICIPATE SKIP EXIT. @D@@@@FE )@@G@@ LMJ X11,0,A3 . ENTER THE SUBROUTINE. @F@@@@ SZ FF )@@G@@ A15 . IF RETURN HERE, CLEAR SKIP MESSAGE.@D@@@@ DS FG )@@G@@ A0,A5 . SAVE A0-A3 IN A5-A8. @A@@@@ DS A2,A7 FH )@@G@@ . 5 @A@@@@ E$DIT EPKT . 5 @C@@@@ JZ FI )@@G@@ A15,$+5 . IF SKIP EXIT, @B@@@@ E$FD1 A15 .FJ )@@G@@ MAKE NOTE.@]@@@@ E$SP@C@@@@ L,XH1 A0,SPKT+5 . ENCODFK )@@G@@E [THSITM], @ @@@@ LMJ X11,DEC .@^@@@@ E$FD ',FL )@@G@@' @B@@@@ L,XH2 A0,SPKT+5 . [NXTITM]. @ @@@@ LMJ FM )@@G@@ X11,DEC .@F@@@@ TE,U A4,'S ' . IF SCAN$, SCANR$,FN )@@G@@ SCANX$, SBKSP$, @ @@@@ TNE,U A4,'SR' .@ @@@@ J FO )@@G@@ PRINT .@ @@@@ TE,U A4,'SX' .@ @@@@ TNE,FP )@@G@@U A4,'BS' .@D@@@@ J PRINT . GO PRINT RESULTSFQ )@@G@@. @^@@@@ E$FD ':' @]@@@@ E$SP@B@@@@ TE,UFR )@@G@@ A4,'FD' . IF SFIND$, @ @@@@ J NOTFIND .@C@@@@FS )@@G@@ E$OCTV A5 . PRINT [A0]. @ @@@@ J PRFT )@@G@@INT .@ @@@@NOTFIND . .@ @@@@ L A0FU )@@G@@,A7 .@ @@@@ SSL A0,6 .@D@@@@ J $+FV )@@G@@1,A0 . ELSE, BRANCH ON [A2]: @B@@@@ J NCD0XX .FW )@@G@@ [A2]=0XX. @B@@@@ J NCD1XX . [A2]=1XX. @B@@@@ FX )@@G@@ J NCD2XX . [A2]=2XX. @B@@@@. J NCD3XX .FY )@@G@@ [A2]=3XX. @]@@@@NCD3XX . @D@@@@ E$OCTV A7 . [A2]FZ )@@G@@=3XX. PRINT [A2]. @ @@@@ J PRINT .@ @@@@NCD0XX . GA )@@G@@ .@G@@@@ E$FD A7,,W . ITEM IS A DELIMITGB )@@G@@ER. PRINT [A2] FDA. @ @@@@ J PRINT .@ @@@@NCD1XXGC )@@G@@ . .@E@@@@ E$OCTV A5 . ITEM IS A NGD )@@G@@UMBER. PRINT [A0],@ @@@@ E$SP .@B@@@@ E$OCGE )@@G@@TV A6 . [A1], @D@@@@ J $+3 . GO GF )@@G@@PRINT [A2], [A3]. @ @@@@NCD2XX . .@G@@@@ E$FDGG )@@G@@2 A5 . ITEM IS A SYMBOL. PRINT [A0,A1] FDA, @ @@@@ GH )@@G@@ E$SP .@C@@@@ E$OCTV A7 . PRINT [A2]GI )@@G@@, @ @@@@ E$SP .@B@@@@ E$DECV A8 GJ )@@G@@ . [A3]. @]@@@@PRINT . @ @@@@ P$RINT (0114,RQBUF) GK )@@G@@@^@@@@ J START @]@@@@ . @^@@@@ LJSR '*GL )@@G@@' @#@@@@REQ +0101,$-1 @^@@@@ (ER EXIT$),RQBUF@]@@@@DEC GM )@@G@@ . @ @@@@ JP A0,EDECV$ @^@@@@ E$FD '-' GN )@@G@@@^@@@@ LN A0,A0 @^@@@@ J EDECV$ @[@@@@. GO )@@G@@@]@@@@$(0) . @^@@@@SPKT S$PKT BUF @#@@@@$(2),BUF RES 12GP )@@G@@@^@@@@EPKT E$PKT 12,RQBUF@#@@@@RQBUF RES 12@^@@@@ END GQ )@@G@@ START _@@@@@ L A3,NXTITM . ELSE, FIND DIGIT OR CHAGR )@@G@@RACTER COUNT. @ @@@@ AN A3,THSIT)@@[V@@@@K@@/K@@@ZC8@@K@GS )@@G@@/KF@@@Q ^@@]C8^@@@/KF@@@C8@@@ Q9G@@@A G@@][@W@@ C@K@^AAA@@@@)@F[MK[@^@K[GT )@@G@@@@@@@@/K@@@GW )@@G@@;KK@@MC@O@@ C8)@#]AD@@@@)@%[N@^@K^[@@@@@@@R'0@@EC44@@] ?^@@]/K@@[=/K@@['GX )@@G@@/,0@#F;G@@[C/K@@]X:8)@##/,0@#8AE@@@@)@4[U^@@@K@@/K@@[]P'0@@JA24@@]R'0@@EGY )@@G@@%8)@@0R'0@@K*@@@@JR'0@@C/K@@@/!80@@CR]0@@JAF@@@@)@_[N@K^@[@^@@@@@@;?@@@=GZ )@@G@@/GK@[G;G)@@=/K@@[R!0=@@]1@@@@IH8)@@0/K@@[I/K@@[W/,0@#FAG@@@@)[D[M^@K[@[@HA )@@G@@@@@@@@/K@@[P?8)@@A?8)@@G/K@@[P0@@@@F/K@@[SC8)@@[/@@@@_9)@@@IS0^@@]AH@@@@HB )@@G@@)[N[UK[@@^@@C0O@@]C@@@@H/K@@@_;G@@[C[?4@@])?=@@]C8)@@]/K@@[-*0^@@[/K@@[AHC )@@G@@G8)@@^AI@@@@)[Y[M^@K^@K^[@@@@@/,0@#F/K@@[?9?@@^B @@@@J')A)#!/,0@#'CCO@@ HD )@@G@@/K@@] O,4@@]R'0@[@AJ@@@@)[*[V@@[@[@@C@0@@F/K@@[$G@K@@I;?@@@A/K@@[$!80@@GHE )@@G@@&'_@@[;C0@@MC@0@@F/S@@@@/K@@[2AK@@@@)[3[U@[@^@@@:8)@@ R]0@@I/K@@]B:?=@@[HF )@@G@@/K@@] R'0@]@;^J@@@T80@@AC80@@G!80@@H;C0@@MAL@@@@)["[MK^@K[@K^@@@@@R'0@#@HG )@@G@@/K@@]DP[)@^D/K@@]@:8)@@ /K@@]B:?=@@[')A)#!/K@@]D(4^@@[AM@@@@)]C[V@^@@@@@HH )@@G@@:@)@@J%80@^@:8)@#@%8)@@ RA4@@[;C0@@M[G4@@ &J4@@ /,0@#_C@)@@FR[K@^EAN@@@@HI )@@G@@)]N[U[@@@@@@*C^@@ /KF@@@HC4@@ CG4@@ /KF@@@ @@@@J;G@@[C/K@@]U:8)@]@%8)@[@HJ )@@G@@O'0@@[AO@@@@)]Y[N@^@K[@[@@@@@@/=@@]%/S@@@@Q;@@@[/,0@#F @@@@G')A)#!&.)__"HK )@@G@@/K@@]!]@K@@ /K@@]-AP@@@@)]*[MK^[@^@@@@@@@@RA4@@[[@4@@ QF4@@ ;*0@@M/,0@#_HL )@@G@@O9)@@[>@@@^DO[)@^D/K@@]=&;@@@[AQ@@@@)]2[U@@[@@@@9?@@@ /,0@#8AA4@@[[CO@@ HM )@@G@@/GV@@@CGO@@ ;K@@@MC@^@@ [@@@[[/KF@@@ @@@@IAR@@@@)].[N@^[@K[@K@@@@@T8@@@AHN )@@G@@[G4@@ /,0@#_/K@@]/%@)@[[/K@@#^R[K@^E/K@@#]%?=@@[')A)#!AS@@@@)#B[U@K@[@@@HO )@@G@@N4O@@@/K@@#Q(4^@@@&;0@@[/KF@@@:?=@@[')A)#!/KF@@@RA4@@[C@K@@JG8H@@@AT@@@@HP )@@G@@)#M[U^@^@[@@/KF@@[/K@@#X2)\)@@QB4@@AN0O@@@/K@@#X(0^@@@/KF@@@/K@@#Q2)\)@@HQ )@@G@@QF4@@AAU@@@@)#X[U@@[@K@@/K@@]>/(K@#*/KF@@@/KF@@]?8)@@'/KF@@@?8)@@0/KF@@[HR )@@G@@?8)@@)/KF@@@?8)@@AAV@@@@)#*[U@K@@@@@C)=K@@C==K@@C*=K@@C?=K@@C0=K@@C4=K@@HS )@@G@@/\)@#&/KI@@@H8)@@[Q9)@@ P9K@@[AW@@@@)#3[V@@@@@@@&9)@@[9*@@@ W8@@@A @@@@GHT )@@G@@A[=@@^A[O@@#/KI@@@H8)@@[Q9)@@@O9K@@[/\)@#4AX@@@@)#"[U[@@@@@@ HU )@@G@@___@@@/KF@@@R[=@@^R[O@@#G/6@@@%@0@^ET80@@AC@0@@ /KF@@@AY@@@@)^D@M@@@@@@@HV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@______@@[@@[AZ@@@@HW )@@G@@@@^@@]@@A@@@@@A@@Q@[Y@@@@@E@@@@@@@^FSBKSP$ @@[@@@@@@@@XSCANR$ HX )@@G@@@@[@@@@@@@@]SCANX$ @@[@@@@@@@@ASCAN$ @@[@@@@@@@@@SFIND$ HY )@@G@@@@[@@@@@@@]4SGCRX$ @@[@@@@@@@#_SGO$ @@[@@@@@@@#'SGRX$ HZ )@@G@@@@[@@@@@@@^#SGSXO$ @@[@@@@@@@#8SG$ @@[@@@@@@@#!SNEXT$ IA )@@G@@@@[@@@@@@@@FSNEXT$D @@[@@@@@@@@@1$H@ICS@FK'E0$@@@@@@#'* L-@@@@@@CU)JK@[(##[3IF )@@G@@D*@@@@E+B@E@G8@@@@[2#[DU*[S@@@*SDFF*@G@@@@TEST EQU 1/1/1 .IG )@@G@@ SET FOR SELF-TEST; CLEAR FOR SUBROUTINE. @F@@@@. ^ON . COPYRIGHT 1976,IH )@@G@@ B. E. CHI, SUNY-ALBANY, ALBANY NY 12222. @G@@@@. SUBROUTINE SCHAET RETUII )@@G@@RNS TO THE CALLING PROGRAM VARIOUS KINDS OF IN- @G@@@@. FORMATION CONCERIJ )@@G@@NING THE COMPOSITION OF A SPECIFIED ABSOLUTE ELEMENT. @G@@@@. THE INFORMIK )@@G@@ATION IS DRAWN FROM A TABLE FOR THE ELEMENT PREVIOUSLY PRE- @G@@@@. PAREIL )@@G@@D BY SUBROUTINE WRTAET, AND IS EXCHANGED WITH THE CALLING PROGRAM @G@@@@IM )@@G@@. VIA A PACKET. THE ARRANGEMENT AND CONTENTS OF THE TABLE AND OF THE IN )@@G@@@D@@@@. PACKET ARE DESCRIBED IN PROCEDURE ELEMENT AET$P. @[@@@@. IO )@@G@@@G@@@@. BEFORE THE SUBROUTINE PACKAGE IS TO BE USED, IT MUST BE INITIALIIP )@@G@@ZED AS@]@@@@. FOLLOWS: @[@@@@. @A@@@@. L A0,(PKTADDR,TAIQ )@@G@@BADDR)@ @@@@. LMJ X11,SCHAET @[@@@@. @G@@@@. THE ABSOLUIR )@@G@@TE ELEMENT SPECIFIED MAY BE EITHER THE ONE CURRENTLY EXECU- @G@@@@. TINGIS )@@G@@ (OF WHICH THIS SUBROUTINE IS A PART), OR SOME OTHER ELEMENT. THE@G@@@@IT )@@G@@. FORMER CASE IS TERMED A 'DYNAMIC' APPLICATION OF THIS SUBROUTINE; THE IU )@@G@@@A@@@@. LATTER A 'STATIC' APPLICATION. @[@@@@. @G@@@@. CERTAIN OFIV )@@G@@ THE ROUTINES REQUIRE INFORMATION CONCERNING CURRENTLY-BASED@G@@@@. BANKIW )@@G@@S AND/OR CURRENTLY-ACTIVE SETMENTS. IN STATIC APPLICATIONS, INI- @G@@@@IX )@@G@@. TIAL-LOAD CONDITIONS WILL BE ASSUMED TO BE CURRENT IN THIS CONTEXT. IY )@@G@@@[@@@@. @G@@@@. EACH OF THE CALLS DESCRIBED BELOW IS MADE BY AN LMJ IZ )@@G@@VIA X11, THE CON- @G@@@@. TENTS OF THE REGISTERS UPON ENTRY BEING IGNOREJA )@@G@@D, ALL INPUT PARAMETERS @G@@@@. BEING CONVEYED VIA THE PACKET. UPON RETJB )@@G@@URN, A0 CONTAINS A STATUS @]@@@@. CODE: @[@@@@. @C@@@@. 0 JC )@@G@@ REQUESTED DATA FOUND AND IN PACKET. @^@@@@. 1 NO SUCH BDI. JD )@@G@@@^@@@@. 2 NO SUCH BANK. @^@@@@. 3 NO SUCH SEGMENT.@^@@@@. 4 JE )@@G@@ NO SUCH ELEMENT.@ @@@@. 5 NO ELEMENT SPECIFIED. @B@@@@. 6 NO SJF )@@G@@UCH LC FOR ELEMENT IN BANK. @C@@@@. 7 NO SUCH LC FOR ELEMENT IN ANJG )@@G@@Y BANK. @B@@@@. 8 NO SUCH ADDRESS IN LC FOR ELEMENT.@A@@@@. 9 JH )@@G@@ NO SUCH ADDRESS IN BANK. @A@@@@. 10 NO SUCH ADDRESS IN ANY BANK.JI )@@G@@@C@@@@. 11 NO SUCH ADDRESS IN ANY ACTIVE BANK. @^@@@@. 12 NO SJJ )@@G@@UCH SYMBOL. @C@@@@. 13 SPECIFIED LCT ITEM ADDRESS OUT OF RANGE.@B@@@@JK )@@G@@. 14 NO DIAGNOSTIC TABLES AVAILABLE. @C@@@@. 15 PACKET AND/OR TAJL )@@G@@BLE ADDRESS UNKNOWN. @[@@@@. @G@@@@. FOR EACH CALL, THE APPLICABLJM )@@G@@E STATUS CODES ARE SHOWN IN '[]'. STATUS @ @@@@. 15 APPLIES UNIVERSALLYJN )@@G@@. @[@@@@. @G@@@@. THE ROUTINE IS I-BANK REENTRANT, PSR-MODE INSEJO )@@G@@NSITIVE, AND ALTERS THE @^@@@@. CONTENTS OF A0-A3, R1.@C@@@@/ MNJP )@@G@@M$ . ^OFF @]@@@@ LOC$@[@@@@. @#@@@@JQ )@@G@@P PROC *1@]@@@@EXIT* NAME@#@@@@P(1,1) EQU 0 @]@@@@NOFINDJR )@@G@@* NAME@ @@@@ +P(1,1)*/22+(SLJ EXIT)@]@@@@ END @[@@@@. JS )@@G@@@#@@@@P PROC *1@]@@@@EXTRNL* NAME@^@@@@ LMJ A3,ENTERJT )@@G@@@ @@@@ LMJ X11,P(1,1) @^@@@@ NOFIND P(1,2) @]@@@@JU )@@G@@ EXIT@]@@@@ END @[@@@@. @]@@@@$(2) . @D@@@@PKTADDJV )@@G@@R EQUF $,,H1 . PACKET ADDRESS SAVE. @D@@@@TBLADDR EQUF $,JW )@@G@@,H2 . TABLE ADDRESS SAVE. @E@@@@AETPTRS +0,0 .JX )@@G@@ MUST BEGIN L.C. 2 (FOR DX). @[@@@@. @A@@@@$(1) LIT JY )@@G@@ . ^ON @D@@@@. FBN: GIVEN BDI, FIND REMAINING BANK DATA. [0,1,14]JZ )@@G@@@A@@@@FBN* EXTRNL FBKNM,1 . ^OFF @[@@@@. ^ON @E@@@@. FBI: GIVEKA )@@G@@N BANK NAME, FIND REMAINING BANK DATA. [0,2,14]@A@@@@FBI* EXTRNL FBKB )@@G@@DI,2 . ^OFF @[@@@@. ^ON @G@@@@. FSN: GIVEN SEGMENT INDEX, FIND REKC )@@G@@MAINING SEGMENT DATA. [0,3,14] @A@@@@FSN* EXTRNL FSGNM,3 .KD )@@G@@ ^OFF @[@@@@. ^ON @F@@@@. FSI: GIVEN SEGMENT NAME, FIND REMAINING SEGMEKE )@@G@@NT DATA. [0,3,14]@A@@@@FSI* EXTRNL FSGI,3 . ^OFF @[@@@@. ^ON KF )@@G@@@E@@@@. FEN: GIVEN ELEMENT INDEX, FIND ELEMENT NAME. [0,4,14] @A@@@@KG )@@G@@FEN* EXTRNL FELNM,4 . ^OFF @[@@@@/. ^ON@G@@@@. FEI: GIVEN ELEMKH )@@G@@ENT NAME, FIND ELEMENT INDEX, LOWEST LC FOR ELEMENT, @G@@@@. CORRESPONDKI )@@G@@ING BDI. (IF NO LC'S ATTACHED TO ELEMENT, SET [LC] AND @ @@@@. [BDIKJ )@@G@@] TO 0.) [0,4,5,14] @A@@@@FEI* . . ^OFF @B@@@@KK )@@G@@ LMJ A3,ENTER . INITIALIZE.@D@@@@ LMJ X11,FELIKL )@@G@@ . FIND ELEMENT INDEX. @D@@@@ NOFIND 4 . NO SUKM )@@G@@CH ELEMENT NAME. @F@@@@ L,U X3,LCTAB . INDEX FOUND. SET KN )@@G@@UP TO SCAN LCTAB. @ @@@@ LMJ A0,SETSCH @G@@@@ L KO )@@G@@ A0,ELI . GET ELEMENT INDEX FOR SEARCH COMPARE. @G@@@@ KP )@@G@@ L,U A1,1 . GET A BIG NUMBER WITH LOW 18 BITS ZERO. @^@@@@KQ )@@G@@ LSSL A1,18 @F@@@@L$(L$) SE,H2 A0,3+0,*X3 . FIND NEXT OKR )@@G@@CCURRENCE OF INDEX. @D@@@@ J F$(1) . NO MORE OCCKS )@@G@@URRENCES. @G@@@@ TG,H2 A1,1,X3 . ONE FOUND. THIS LC,BDI KT )@@G@@SMALLEST SO FAR? @C@@@@ L,H2 A1,1,X3 . IF SO, GET IT. KU )@@G@@@D@@@@ J B$(1) . CONTINUE SEARCHING. @E@@@@L$(L$)KV )@@G@@ S A1,BDI . WHEN SEARCH COMPLETE, SAVE @F@@@@ SSL KW )@@G@@ A1,12 . SMALLEST LC AND CORRESPONDING BDI.@^@@@@ S KX )@@G@@ A1,LC @]@@@@ EXIT@[@@@@. @[@@@@. ^ON @H@@@@. VFYADR: VKY )@@G@@ERIFY THAT ABSOLUTE ADDRESS IS WITHIN LIMITS OF SOME ACTIVE BANK. @A@@@@KZ )@@G@@. IF SO, FILL IN BANK DATA. [0,11] @A@@@@VFYADR* . .LA )@@G@@ ^OFF @H@@@@ LMJ A3,ENTERND . INITIALIZE. (RETURN EVEN IF NLB )@@G@@O DIAG TABLES.) @F@@@@ L,U A0,07777 . ALLOW A FIND ON ALC )@@G@@NY ACTIVE BANK. @^@@@@ S A0,BDI @^@@@@ LMJ X1LD )@@G@@1,VFY @#@@@@ NOFIND 11@]@@@@ EXIT@[@@@@/. ^ON@G@@@@. FABSLE )@@G@@: GIVEN BANK NAME, ELEMENT NAME, LOCATION COUNTER AND RELATIVE @G@@@@LF )@@G@@. ADDRESS, FILL IN REST OF PACKET. (IF NO BANK NAME BE GIVEN AND A LG )@@G@@@G@@@@. MATCH OF ALL THE OTHER SPECIFICATIONS IS FOUND FOR MORE THAN ONELH )@@G@@ BANK,@G@@@@. AN ACTIVE (BASED) BANK TAKES PRECEDENCE OVER AN INACTIVE BLI )@@G@@ANK; OF TWO @G@@@@. BANKS OF EQUAL PRECEDENCE, THE ONE WITH THE LOWER BDLJ )@@G@@I VALUE WILL BE @G@@@@. CHOSEN.) THE ABSOLUTE ADDRESS OF THE 3-WORD LLK )@@G@@CTAB ITEM RELEVANT TO @G@@@@. THE SPECIFIED ADDRESS IS RETURNED IN THELL )@@G@@ HALF-WORD 'LCTPTR' IN THE @ @@@@. PACKET. [0,2,4,5,6,7,8,14] @A@@@@LM )@@G@@FABS* . . ^OFF @B@@@@ LMJ A3,ENTER .LN )@@G@@ INITIALIZE.@C@@@@ LMJ X11,SETBNK . SET UP BANK DATA.@C@@@@LO )@@G@@ NOFIND 2 . NO SUCH BANK. @D@@@@ LMJ X1LP )@@G@@1,FELI . FIND ELEMENT INDEX. @C@@@@ NOFIND 4 .LQ )@@G@@ NO SUCH ELEMENT. @]@@@@FABS1 . @F@@@@ L,U X3,LCTAB .LR )@@G@@ ELI FOUND. SET UP TO SCAN LCTAB. @ @@@@ LMJ A0,SETSCH LS )@@G@@@D@@@@ L A0,ELI . GET SPECIFIED ELI, LC. @^@@@@ LT )@@G@@ L A1,LC @C@@@@ J FABS3 . WHILE R1 > 0: LU )@@G@@@]@@@@FABS2 . @C@@@@ TNE,H2 A0,3+0,*X3 . ELI AND LC MATCH?LV )@@G@@@^@@@@ TE,S4 A1,1,X3 @A@@@@ J FABS3 . NO. LW )@@G@@@D@@@@ L,T3 A2,1,X3 . YES. GET LC ITEM'S BDI.@G@@@@ LX )@@G@@ LMJ A3,TBDI . TEST AGAINST SPECIFIED OR ACTIVE BDI'S. @^@@@@LY )@@G@@ J FABS3 @^@@@@ J FABS4 @[@@@@. @F@@@@LZ )@@G@@FABS3 JGD R1,FABS2 . NO MATCH. REPEAT WHILE LC'S REMAIN.@G@@@@MA )@@G@@ TN BDI . NONE REMAIN. WAS BANK SPECIFIED ALLOWED? MB )@@G@@@A@@@@ NOFIND 6 . YES. @E@@@@ TNZ BDIX MC )@@G@@ . NO. WAS ACTIVE BANK REQUIRED?@A@@@@ NOFIND 7 .MD )@@G@@ NO. @D@@@@ SZ BDIX . YES. ALLOW ANY BANK @D@@@@ME )@@G@@ J FABS1 . AND REPEAT SEARCH. @[@@@@. @]@@@@MF )@@G@@FABS4 . @D@@@@ L,S1 A0,1,X3 . GET LC ITEM FLAG BITS. MG )@@G@@@F@@@@ TOP,U A0,1*/3 . THIS ITEM REFERENCES A COMMON BANK?MH )@@G@@@^@@@@ J F$(1) @F@@@@ L,H2 A0,2,X3 . IF SOMI )@@G@@, RESET POINTER TO LC ITEM @^@@@@ MSI,U A0,3 @E@@@@ MJ )@@G@@ L,U X3,3,A0 . FOR ACTUAL COMMON BLOCK. @^@@@@ A,H2MK )@@G@@ X3,LCTAB@E@@@@L$(L$) L A0,RELADDR . IS SPECIFIED RELATIVE AML )@@G@@DDRESS@C@@@@ TG,H1 A0,2,X3 . < LC ITEM WC? @A@@@@ MM )@@G@@ NOFIND 8 . NO. @F@@@@ A,H2 A0,2,X3 . YES. MN )@@G@@CALCULATE ABSOLUTE ADDRESS @B@@@@ S A0,ABSADDR . AND MO )@@G@@SAVE. @E@@@@ S X3,LCTPTR . SAVE POINTER TO LCTAB ITEM. MP )@@G@@@E@@@@ J INDICES . GO SAVE INDICES AND NAMES. @[@@@@MQ )@@G@@/. ^ON@G@@@@. FEPN: GIVEN ENTRY POINT NAME LJSF IN A0,A1, FILL IN REMAIMR )@@G@@NDER OF @#@@@@. PACKET. [0,12] @[@@@@. @G@@@@. FABSV: GIVEN ABMS )@@G@@SOLUTE VALUE NAME LJSF IN A0,A1, RETURN VALUE IN A1. @]@@@@. [0,12] MT )@@G@@@A@@@@FEPN* DLN A0,A0 . ^OFF @F@@@@FABSV* DS A0,SYMBOMU )@@G@@L . HOLD GIVEN SYMBOL TEMPORARILY. @B@@@@ LMJ A3,ENTERMV )@@G@@ . INITIALIZE.@F@@@@ L,U X11,(NOFIND 12) . ANTICIPATE SYMMW )@@G@@BOL NOT FOUND. @G@@@@ L,U X3,ABSVTAB . SET POINTER TO ABMX )@@G@@SOLUTE VALUE TABLE. @D@@@@ TP SYMBOL . BUT IF ENTRMY )@@G@@Y VIA FEPN, @G@@@@ L,U X3,EPNTAB . SET INSTEAD TO ENTRY PMZ )@@G@@OINT NAME TABLE. @F@@@@ DLM A1,SYMBOL . SEARCH FOR GIVEN NA )@@G@@SYMBOL IN TABLE. @ @@@@ LMJ A3,SCHIDX @D@@@@ L NB )@@G@@ A1,2,X3 . FOUND. GET TABLE ENTRY.@D@@@@ TN SYMBOL NC )@@G@@ . IF ENTRY VIA FABSV, @B@@@@ EXIT . FININD )@@G@@SHED. @F@@@@ A,U A1,AETAB . ELSE, BASE THE LCTAB ITEM POINE )@@G@@NTER @F@@@@ S A1,AETSMRY . AND USE ENTRY AS SUMMARY WORDNF )@@G@@. @^@@@@ J F$(1) @[@@@@/. ^ON@G@@@@. RSTAET: USING TNG )@@G@@HE SUMMARY WORD ([AETSMRY]), RESTORE THE CONTENTS OF @B@@@@. THE REMAINNH )@@G@@DER OF THE PACKET. [0,13] @A@@@@RSTAET* . ^OFF NI )@@G@@@H@@@@ LMJ A3,ENTERND . INITIALIZE. (RETURN EVEN IF NO DIAGNJ )@@G@@ TABLES.) @D@@@@ TZ AETSMRY . SUMMARY WORD VOID? NK )@@G@@@^@@@@ J F$(1) @^@@@@ L,U A0,AEPKT@F@@@@ NL )@@G@@ L A2,DNMCFLG . YES. RESCUE DYNAMIC USAGE FLAG, @C@@@@ NM )@@G@@ LMJ X11,CLRPKT . CLEAR PACKET, @C@@@@ S A2,DNMCFNN )@@G@@LG . RESTORE FLAG, @C@@@@ EXIT . AND RETURNNO )@@G@@. @[@@@@. @F@@@@L$(L$) L A0,LCTPTR . NO. GET LCTAB POINP )@@G@@NTER FROM PACKET. @C@@@@ JP A0,F$(1) . IF NEGATIVE, NQ )@@G@@@F@@@@ SN A0,BDI . IT'S AN *ABS* BDI IN MAGNITUDE. NR )@@G@@@H@@@@ J NOELT . CHECK THAT BANK HASN'T CONTRACTEDNS )@@G@@ MEANWHILE. @E@@@@L$(L$) L,U A0,LCTAB . ELSE, POINTER IS BONAFINT )@@G@@DE. @F@@@@ A,H2 A0,LCTAB . [A0] = ADDR-3 OF FIRST LCT ITNU )@@G@@EM. @^@@@@ L,T1 A1,LCTAB@C@@@@ MSI,S3 A1,LCTAB .NV )@@G@@ [A1] = LCT WC. @E@@@@ A A1,A0 . [A1] = ADDR OF LANW )@@G@@ST LCT ITEM.@E@@@@ TW A0,LCTPTR . IS GIVEN ITEM WITHIN RANX )@@G@@NGE? @A@@@@ NOFIND 13 . NO. @F@@@@ L X3NY )@@G@@,LCTPTR . YES. SET POINTER TO SPECIFIED ITEM.@D@@@@ L,H2 A0NZ )@@G@@,0,X3 . COPY ELEMENT INDEX @^@@@@ S A0,ELI @E@@@@OA )@@G@@ L,S4 A0,1,X3 . AND LC NUMBER TO PACKET. @^@@@@ OB )@@G@@ S A0,LC @F@@@@ LMJ X11,FELNM . GET CORRESPONDINGOC )@@G@@ ELEMENT NAME. @^@@@@ ER ERR$ @D@@@@ L X3OD )@@G@@,LCTPTR . RESTORE ITEM POINTER. @E@@@@ L A0,ABSADDR .OE )@@G@@ RESTORE RELATIVE ADDRESS. @^@@@@ AN,H2 A0,2,X3 @ @@@@ OF )@@G@@ S A0,RELADDR @F@@@@ SZ BNKNM . FORCE RESTOOG )@@G@@RATION OF BANK NAME. @D@@@@INDICES . . (COME HERE OH )@@G@@FROM FABS.) @B@@@@ L,H1 A0,0,X3 . SAVE SGI, @^@@@@ OI )@@G@@ S A0,SGI @A@@@@ L,T3 A0,1,X3 . BDI,@^@@@@ OJ )@@G@@ S A0,BDI @E@@@@ J NAMES . SEGMENT AND BANOK )@@G@@K NAMES. @[@@@@/. ^ON@G@@@@. FREL: GIVEN BANK AND SEGMENT NAMES AND OL )@@G@@ABSOLUTE ADDRESS, FILL IN @G@@@@. REST OF PACKET. (IF NO BANK NAME OM )@@G@@BE GIVEN, THE REMARKS FOR 'FABS' @G@@@@. APPLY EQUALLY FOR 'FREL'. SON )@@G@@IMILARLY, IF NO SEGMENT NAME BE GIVEN, @G@@@@. AMBIGUITIES ARE RESOLVOO )@@G@@ED, IF POSSIBLE, IN FAVOR OF ACTIVE SEGMENTS.) @G@@@@. THE ABSOLUTE ADDOP )@@G@@RESS OF THE 3-WORD LCTAB ITEM RELEVANT TO THE SPECI- @F@@@@. FIED ADDREOQ )@@G@@SS IS RETURNED IN THE HALFWORD 'LCTPTR' IN THE PACKET.@#@@@@. [0,2,3,9,1OR )@@G@@0] 0[@@@@L,1. @A@@@@FREL* . . ^OFF @H@@@@ OS )@@G@@ LMJ A3,ENTERND . INITIALIZE. (RETURN EVEN IF NO DIAG TABLES.) OT )@@G@@@C@@@@ LMJ X11,SETBNK . SET UP BANK DATA.@C@@@@ NOFIOU )@@G@@ND 2 . NO SUCH BANK. @]@@@@FREL1 . @F@@@@ LMJ OV )@@G@@ X11,SETSEG . BDI FOUND. SET UP SEGMENT DATA. @D@@@@ NOFIOW )@@G@@ND 3 . SEGMENT NAME NOT FOUND.@]@@@@FREL2 . @D@@@@ OX )@@G@@ L,U X3,LCTAB . SET UP TO SCAN LCTAB. @ @@@@ LMJ A0OY )@@G@@,SETSCH @ @@@@ L A0,ABSADDR @C@@@@ J FROZ )@@G@@EL4 . WHILE R1 > 0: @]@@@@FREL3 . @D@@@@ L,S1 A1PA )@@G@@,3+1,*X3 . GET LC ITEM FLAG BITS. @G@@@@ TEP,U A1,1*/3 .PB )@@G@@ THIS ITEM REFERENCES A COMMON BLOCK? @A@@@@ J FREL4 PC )@@G@@ . YES. @F@@@@ ANU,H2 A0,2,X3 . NO. [A1] = ABS ADDR - LPD )@@G@@C ITEM FWA @E@@@@ JN A1,FREL4 . = REL ADDR. REL ADDR PE )@@G@@< 0? @D@@@@ TG,H1 A1,2,X3 . NO. REL ADDR < WC? @A@@@@PF )@@G@@ J FREL4 . NO. @E@@@@ L,H1 A2,0,X3 .PG )@@G@@ YES. GET LC SEGMENT INDEX. @B@@@@ TNE A2,SGI . [A2] PH )@@G@@= SGI?@C@@@@ J F$(1) . YES. ACCEPT. @G@@@@ PI )@@G@@ TN SGI . NO. ANY SEGMENT SPECIFIED IN PACKET? @C@@@@PJ )@@G@@ J FREL4 . YES. REJECT. @F@@@@ TNZ SGPK )@@G@@IX . NO. IS ACTIVE SEGMENT REQUIRED? @D@@@@ J F$PL )@@G@@(1) . NO. ACCEPT ANY SEGMENT.@E@@@@ LMJ A3,SETPTR .PM )@@G@@ YES. SET UP ACTIVE TEST. @^@@@@ TP 0,A2 @D@@@@ PN )@@G@@ J FREL4 . REJECT IF INACTIVE. @E@@@@L$(L$) L,T3 A2PO )@@G@@,1,X3 . ELSE, GET LC BANK INDEX. @D@@@@ LMJ A3,TBDI PP )@@G@@ . IS IT THE RIGHT ONE? @A@@@@ J FREL4 . NO. PQ )@@G@@@E@@@@ J FREL6 . YES. ALL PARAMETERS FIT. @F@@@@PR )@@G@@FREL4 JGD R1,FREL3 . NO MATCH. REPEAT WHILE LC'S REMAIN.@F@@@@PS )@@G@@ TNZ SEGNM . NONE REMAIN. WAS SEGMENT SPECIFIED?@A@@@@PT )@@G@@ J F$(1) . NO. @E@@@@ TN BDI .PU )@@G@@ YES. WAS BANK SPECIFIED? @A@@@@ NOFIND 9 . YES. PV )@@G@@@A@@@@ NOFIND 10 . NO. @E@@@@L$(L$) TNZ SGIX PW )@@G@@ . WAS ACTIVE SEGMENT REQUIRED? @^@@@@ J F$(1) @D@@@@PX )@@G@@ SZ SGIX . YES. ALLOW ANY SEGMENT @D@@@@ J PY )@@G@@ FREL2 . AND REPEAT SEARCH. @D@@@@L$(L$) TN BDI PZ )@@G@@ . NO. WAS BANK SPECIFIED?@A@@@@ J NOELT . YES. QA )@@G@@@E@@@@ TNZ BDIX . NO. WAS ACTIVE BANK REQUIRED?@A@@@@QB )@@G@@ J F$(1) . NO. @D@@@@ SZ BDIX .QC )@@G@@ YES. ALLOW ANY BANK @D@@@@ J FREL1 . AND REPEATQD )@@G@@ SEARCH. @E@@@@L$(L$) L,U A0,07777 . IF NO BANK WAS SPECIFIEQE )@@G@@D, @F@@@@ S A0,BDI . RESET BDI TO 'ANY ACTIVE BANQF )@@G@@K'. @]@@@@NOELT . @F@@@@ LMJ X11,VFY . IS ADDRESS QG )@@G@@WITHIN BANK LIMITS? @^@@@@ J $+2 @A@@@@ J QH )@@G@@ FREL5 . YES. @D@@@@ TN BDI . NO. WAS BDIQI )@@G@@ SPECIFIC? @G@@@@ NOFIND 9 . YES. NO SUCH ADDRESS INQJ )@@G@@ SPECIFIED BANK. @E@@@@ TNZ BDIX . NO. WAS ACTIVE BAQK )@@G@@NK REQUIRED?@F@@@@ NOFIND 10 . NO. NO SUCH ADDRESS IN QL )@@G@@ANY BANK. @D@@@@ SZ BDIX . YES. ALLOW ANY BANK QM )@@G@@@D@@@@ J NOELT . AND REPEAT SEARCH. @G@@@@FREL5 QN )@@G@@ . . ADDRESS IN BANK, BUT NOT IN ANY ELEMENT. @D@@@@QO )@@G@@ LN A0,BDI . SAVE -[BDI] IN LCTPTR, @ @@@@ S QP )@@G@@ A0,LCTPTR @D@@@@ L A0,ABSADDR . [ABSADDR] IN REQQ )@@G@@LADDR.@ @@@@ S A0,RELADDR @C@@@@ DSL A0,72 QR )@@G@@ . GET SOME ZEROS. @D@@@@ DS A0,SEGNM . CLEAR SEGMEQS )@@G@@NT NAME, @C@@@@ S A0,SLTPTR . SLT$ POINTER, @C@@@@QT )@@G@@ S A0,LC . LC NUMBER, @C@@@@ SN A0QU )@@G@@,SGI . SEGMENT INDEX,@D@@@@ SN A0,ELI . EQV )@@G@@LEMENT INDEX. @ @@@@ DL A0,('*ABS*'LD)@E@@@@ DS QW )@@G@@ A0,ELTNM . MARK ELEMENT NAME AS '*ABS*'.@]@@@@ EXIT@[@@@@QX )@@G@@. @]@@@@FREL6 . @C@@@@ S A2,BDI . SAVE ACTUALQY )@@G@@ BDI, @D@@@@ S A1,RELADDR . RELATIVE ADDRESS, @C@@@@QZ )@@G@@ L,H2 A0,0,X3 . ELEMENT INDEX, @^@@@@ S A0RA )@@G@@,ELI @C@@@@ L,S4 A0,1,X3 . LC NUMBER, @^@@@@ RB )@@G@@ S A0,LC @D@@@@ L,H1 A0,0,X3 . SEGMENT INDEXRC )@@G@@, @^@@@@ S A0,SGI @E@@@@ S X3,LCTPTR .RD )@@G@@ POINTER TO LCTAB ITEM. @D@@@@ LMJ X11,FELNM . GET ARE )@@G@@LL THE NAMES. @^@@@@ ER ERR$ @^@@@@ TZ SERF )@@G@@GNM @^@@@@ J F$(1) @F@@@@NAMES . .RG )@@G@@ (COME HERE FROM FABS AND RSTAET.) @ @@@@ LMJ X11,FSGNM RH )@@G@@@^@@@@ ER ERR$ @^@@@@L$(L$) TZ BNKNM @]@@@@ RI )@@G@@ EXIT@ @@@@ LMJ X11,FBKNM @^@@@@ ER ERR$ RJ )@@G@@@]@@@@ EXIT@^@@@@/. INTERNAL SUBROUTINES.@[@@@@. @F@@@@SETSEGRK )@@G@@ . [X11]. IF SEGMENT NAME GIVEN, FIND REST OF SEGMENT DATA.@F@@@@. IF NRL )@@G@@OT, SET SGI TO -0 IF PROGRAM IS SEGMENTED, TO +0 IF NOT. @D@@@@ RM )@@G@@ LM A0,SEGNM . GET NAME FROM PACKET. @C@@@@ JNZ A0RN )@@G@@,FSGI . IF NAME IS VOID, @C@@@@ SZ SGI . SET RO )@@G@@SGI TO +0 @D@@@@ TZ,T1 SGNTAB . OR, IF SLT EXISTS, RP )@@G@@@B@@@@ SN A0,SGI . TO -0. @^@@@@ J 1,RQ )@@G@@X11 @A@@@@ . ELSE,@F@@@@FSGI . [X11]. GRR )@@G@@IVEN SEGMENT NAME, FIND REST OF SEGMENT DATA. @E@@@@ DL A1RS )@@G@@,SEGNM . GET NAME FROM PACKET AND @E@@@@ L,U X3,SGNTART )@@G@@B . SEARCH FOR MATCH IN TABLE. @E@@@@ LMJ A3,SCHIDX .RU )@@G@@ (EXITS VIA 0,X11 IF NO-FIND.)@E@@@@ S A0,SGI . SGI FRV )@@G@@OUND. PUT IN PACKET. @D@@@@ J F$(2) . GO SET SLT RW )@@G@@POINTER. @[@@@@. @D@@@@FSGNM . [X11]. GIVEN SGI, FIND REST OF SRX )@@G@@EGMENT DATA.@^@@@@ L A0,SGI @E@@@@ DSL A1,72 RY )@@G@@ . ASSUME PROGRAM UNSEGMENTED. @D@@@@ TNZ,T1 SGNTAB .RZ )@@G@@ ASSUMPTION CORRECT? @F@@@@ JZ A0,F$(1) . YES. SKIP NSA )@@G@@AME SEARCH IF SGI=0. @E@@@@ L,U X3,SGNTAB . IF SEGMENTESB )@@G@@D, OR SGI > 0, @G@@@@ LMJ A3,SCHNAME . FIND NAME. (EXITSC )@@G@@ 0,X11 IF NO-FIND.) @D@@@@L$(L$) DS A1,SEGNM . PUT NAME INSD )@@G@@ PACKET. @E@@@@L$(L$) L A2,SGI . SET POINTER FOR ACTIVE SE )@@G@@TEST. @ @@@@ LMJ A3,SETPTR @ @@@@ S A2,SLTPTSF )@@G@@R @^@@@@ J 1,X11 @[@@@@. @H@@@@VFY . [X11]. VSG )@@G@@ERIFY THAT ABSOLUTE ADDRESS IS IN SPECIFIED BANK. RETURN @G@@@@. AT 0SH )@@G@@,X11 IF NOT, AT 1,X11 OTHERWISE, WITH REST OF BANK DATA IN PACKET.@G@@@@SI )@@G@@. (IF ANY ACTIVE BANK IS ACCEPTABLE, ENTER WITH [BDI]=07777; IF ANY BANKSJ )@@G@@@C@@@@. AT ALL IS ACCEPTABLE, ENTER WITH [BDI]=07700.)@E@@@@ L,U SK )@@G@@ X3,BNKTAB . SET UP TO SCAN BANK TABLE. @ @@@@ LMJ A0SL )@@G@@,SETSCH @C@@@@ J F$(2) . WHILE R1 > 0: @C@@@@SM )@@G@@L$(L$) L,T1 A2,3+2,*X3 . GET NEXT BDI. @D@@@@ LMJ A3SN )@@G@@,TBDI . SAME AS SPECIFIED BDI? @A@@@@ J F$(1) .SO )@@G@@ NO. @D@@@@ L,T3 A0,2,X3 . YES. GET SLR LOWER, @C@@@@SP )@@G@@ L,T2 A1,2,X3 . BLOCK SIZE. @C@@@@ LDSL A0SQ )@@G@@,9 . CONVERT TO WORDS.@D@@@@ AN,U A0,1 . [A0] SR )@@G@@= BANK FWA-1, @C@@@@ A A1,A0 . [A1] = BANK LWA. SS )@@G@@@E@@@@ TNW A0,ABSADDR . IS ADDRESS WITHIN THIS BANK? @A@@@@ST )@@G@@ J F$(2) . YES. @F@@@@ TP BDI .SU )@@G@@ NO. IS BDI IN PACKET SPECIFIC? @F@@@@L$(L$) JGD R1,B$(1) .SV )@@G@@ IF NOT, REPEAT WHILE BANKS REMAIN. @E@@@@ J 0,X11 .SW )@@G@@ THEN TAKE NO-FIND RETURN. @]@@@@L$(L$) . @H@@@@ S A2SX )@@G@@,BDI . SAVE FOUND BDI (IN CASE PKT WAS NON-SPECIFIC). @E@@@@ SY )@@G@@ J FBKNM1 . GO FILL IN REST OF BANK DATA.@G@@@@/SETBNK . [XSZ )@@G@@11]. IF BANK NAME GIVEN, FIND REST OF BANK DATA. IF NOT, @#@@@@. SET TA )@@G@@BDI TO -0. @F@@@@ LM A0,BNKNM . ASSUMING NAME NOT GIVENTB )@@G@@ (BNKNM=0), @C@@@@ SN A0,BDI . SET BDI TO -0 @C@@@@TC )@@G@@ JZ A0,1,X11 . AND RETURN. @A@@@@ TD )@@G@@ . ELSE,@E@@@@FBDI . [X11]. GIVEN BANK NAME, FIND REST OF BTE )@@G@@ANK DATA. @E@@@@ DL A1,BNKNM . GET NAME FROM PACKET ANTF )@@G@@D @E@@@@ L,U X3,BNKTAB . SEARCH FOR MATCH IN TABLE. TG )@@G@@@E@@@@ LMJ A3,SCHIDX . (EXITS VIA 0,X11 IF NO-FIND.)@F@@@@TH )@@G@@ L,T1 A2,2,X3 . NAME FOUND. PUT BDI IN PACKET. @^@@@@TI )@@G@@ S A2,BDI @E@@@@ J F$(1) . GO GET RESTTJ )@@G@@ OF BANK DATA. @[@@@@. @D@@@@FBKNM . [X11]. GIVEN BDI, FIND RESTK )@@G@@T OF BANK DATA. @D@@@@ L,U X3,BNKTAB . SET UP SEARCH FORTL )@@G@@ BDI. @ @@@@ LMJ A0,SETSCH @^@@@@ L A2,BDI TM )@@G@@@ @@@@ SE,T1 A2,3+2,*X3 @B@@@@ J 0,X11 .TN )@@G@@ NO-FIND. @D@@@@FBKNM1 . . (COME HERE FROM VFY.) TO )@@G@@@F@@@@ DL A0,0,X3 . FOUND. PUT BANK NAME IN PACKET. TP )@@G@@@^@@@@ DS A0,BNKNM@F@@@@L$(L$) DL A0,ACTVBKS . [A1,ATQ )@@G@@2] = BDI'S FOR MI, MD, UI, UD.@^@@@@ L,U A3,3 @^@@@@L$(L$)TR )@@G@@ LDSC A0,18 @F@@@@ TE,U A2,0,A1 . TEST BDI AGAINST TS )@@G@@ACTIVE BANKS. @^@@@@ JGD A3,B$(1)@^@@@@ A,U A3TT )@@G@@,1 @I@@@@ S A3,BNKFLG . [A3] = 4/3/2/1/0 AS BDI IS MITU )@@G@@/MD/UI/UD/INACTIVE. @C@@@@ L,T3 A0,2,X3 . GET START BTV )@@G@@LOCK, @C@@@@ LXI,T2 A0,2,X3 . BLOCK SIZE. @E@@@@ TW )@@G@@ LSSL A0,9 . CONVERT BLOCKS TO WORDS. @C@@@@ S TX )@@G@@ A0,BNKLIM . PUT IN PACKET. @^@@@@ J 1,X11 @C@@@@TY )@@G@@/FELNM . [X11]. GIVEN ELI, FIND ELEMENT NAME. @E@@@@ L,U X3TZ )@@G@@,ELNTAB . POINTER TO DIRECTORY ITEM. @^@@@@ L A0,ELI UA )@@G@@@B@@@@ LMJ A3,SCHNAME . GET NAME @D@@@@ DS A1UB )@@G@@,ELTNM . AND PUT IN PACKET. @^@@@@ J 1,X11 @[@@@@UC )@@G@@. @C@@@@FELI . [X11]. GIVEN ELEMENT NAME, FIND ELI, @E@@@@ UD )@@G@@ TNZ ELTNM . ANY ELEMENT NAME SPECIFIED? @#@@@@ NOFIUE )@@G@@ND 5 @G@@@@ DL A1,ELTNM . YES. SEARCH FOR ELEMENT NAME UF )@@G@@IN TABLE. @ @@@@ L,U X3,ELNTAB @E@@@@ LMJ A3UG )@@G@@,SCHIDX . (EXITS VIA 0,X11 IF NO-FIND.)@E@@@@ S A0,ELI UH )@@G@@ . ELI FOUND. PUT IN PACKET. @^@@@@ J 1,X11 @[@@@@UI )@@G@@. @A@@@@TBDI . [A3]. SKIP IF BDI = [A2] @E@@@@ . UJ )@@G@@ OR BDI = 07777 AND [A2] AN ACTIVE BDI @A@@@@ . OR UK )@@G@@BDI = 07700.@D@@@@ TNE A2,BDI . [A2] = BDI IN PACKET? UL )@@G@@@C@@@@ J 1,A3 . YES. ACCEPT. @F@@@@ TN UM )@@G@@ BDI . NO. ANY BDI SPECIFIED IN PACKET? @C@@@@ J UN )@@G@@ 0,A3 . YES. REJECT. @E@@@@ TNZ BDIX .UO )@@G@@ NO. IS ACTIVE BANK REQUIRED? @D@@@@ J 1,A3 . NO. AUP )@@G@@CCEPT ANY BANK. @C@@@@ TE A2,BDIMI . YES. ACTIVE BDI? UQ )@@G@@@^@@@@ TNE A2,BDIMD@C@@@@ J 1,A3 . YES. UR )@@G@@ACCEPT. @^@@@@ TE A2,BDIUI@^@@@@ TNE A2,BDIUDUS )@@G@@@^@@@@ J 1,A3 @B@@@@ J 0,A3 . NO. RUT )@@G@@EJECT.@[@@@@. @[@@@@. @I@@@@SCHAET* . SAVE UU )@@G@@PACKET, TABLE ADDRESSES, INITIALIZE PACKET. @ @@@@ S A0UV )@@G@@,AETPTRS @^@@@@ SSL A0,18 @]@@@@CLRPKT . @^@@@@ UW )@@G@@ SZ 0,A0 @^@@@@ AU A0,(1,1)@^@@@@ L,U R1UX )@@G@@,10 @^@@@@ BT A1,0,*A0@^@@@@ J 0,X11 @H@@@@UY )@@G@@/SETSCH . [A0]. SET UP FOR TABLE SEARCH. ENTER WITH X3 POINTING TO DIRECUZ )@@G@@- @]@@@@. TORY ITEM.@B@@@@ L,T1 R1,0,X3 . ITEM COUNT.VA )@@G@@@B@@@@ LXI,S3 X3,0,X3 . ITEM WC. @C@@@@ A,H2 X3VB )@@G@@,0,X3 . TABLE START. @^@@@@ J 0,A0 @[@@@@. VC )@@G@@@G@@@@SCHIDX . [A3]. SEARCH FOR NAME IN TABLE, COMPUTE CORRESPONDING INVD )@@G@@DEX. @G@@@@. ENTER WITH X3 POINTING TO DIRECTORY ITEM, [A1,A2] = NAME. VE )@@G@@ EXIT WITH @#@@@@. [A0] = INDEX. @D@@@@ L,S3 A0,0,X3 .VF )@@G@@ SET ITEM LENGTH (ILGH) @D@@@@ S,S6 A0,SELOC . FOR SE INSVG )@@G@@TRUCTION. @E@@@@ LMJ A0,SETSCH . SET UP R1, X3 FOR SEARCVH )@@G@@H. @H@@@@ LN,U A0,0,X3 . [A0] = -(TABLE FWA - ILGH). (VI )@@G@@ILGH = 2 OR 3.) @E@@@@ SE A1,*SELOC . EFFECTIVELY SE AVJ )@@G@@1,ILGH,*X3 .@E@@@@ J 0,X11 . NO-FIND. EXIT 2 LEVELS VK )@@G@@UP. @E@@@@ TE A2,1,X3 . WORD 1 MATCHES. WORD 2 ALSO? VL )@@G@@@D@@@@ J $-3 . NO. CONTINUE SEARCHING.@G@@@@ VM )@@G@@ A,U A0,0,X3 . YES. -(TABLE FWA) + (ILGH) + (FIND ADDR) @B@@@@VN )@@G@@ AN,S6 A0,SELOC . - (ILGH) @^@@@@ DSL A0,36 VO )@@G@@@C@@@@ DI,S6 A0,SELOC . /ILGH = INDEX. @D@@@@ J VP )@@G@@ 0,A3 . [A0] = INDEX. RETURN. @[@@@@. @G@@@@SCHNAME . [AVQ )@@G@@3]. FIND SEGMENT OR ELEMENT NAME FROM CORRESPONDING INDEX. @G@@@@. ENTEVR )@@G@@R WITH X3 POINTING TO DIRECTORY ITEM, [A0] = INDEX. EXIT WITH @#@@@@VS )@@G@@. [A1,A2] = NAME. @C@@@@ TN A0 . INDEX IN RANGE? VT )@@G@@@^@@@@ TG,T1 A0,0,X3 @D@@@@ J 0,X11 . NO. EVU )@@G@@XIT 2 LEVELS UP. @F@@@@ LSSL A0,1 . YES. 2*INDEX = POVV )@@G@@SITION IN TABLE. @D@@@@ A,H2 X3,0,X3 . [X3] = TABLE STARVW )@@G@@T - 2.@^@@@@ A,U X3,0,A0 @C@@@@ DL A1,2,X3 .VX )@@G@@ GET THE NAME. @^@@@@ J 0,A3 @[@@@@. @G@@@@SETPTRVY )@@G@@ . [A3]. GIVEN SEGMENT NUMBER IN A2, SET [0,A2] >(<) 0 AS SEGMENT@^@@@@VZ )@@G@@. IS ACTIVE(INACTIVE). @D@@@@ LSSL A2,2 . SET POINTERWA )@@G@@ INTO SLT. @ @@@@ A A2,SLTFWA @E@@@@ TZ DNWB )@@G@@MCFLG . BUT IF APPLICATION IS STATIC @E@@@@ TNZ,T1 SGNTAB WC )@@G@@ . OR PROGRAM NON-SEGMENTED, @D@@@@ SZ A2 .WD )@@G@@ SET POINTER TO ZERO. @F@@@@ J 0,A3 . (NOTE: 'TPWE )@@G@@ 0,X0' ALWAYS SKIPS.) @B@@@@/ENTER . [A3]. SUBROUTINE INITIALIZATION.WF )@@G@@@H@@@@ L,U A3,0,A3 . MARK FOR NOFIND EXIT IF NO DIAGNOSTWG )@@G@@IC TABLES. @^@@@@ J $+2 @D@@@@ENTERND . [A3]. RETURN EWH )@@G@@VEN IF NO DIAGNOSTIC TABLES. @^@@@@ LXI,U A3,1*/17@E@@@@ WI )@@G@@ S X11,SVX11M . SAVE RETURN ADDRESS, X1-X3. @^@@@@ S WJ )@@G@@ X1,SVX1M@^@@@@ S X2,SVX2M@^@@@@ S X3,SVX3 WK )@@G@@@D@@@@ SPD A0 . SAVE USER PSR MODE @E@@@@ WL )@@G@@ LPD 0100 . AND ENTER THIRD-WORD MODE. @^@@@@ S WM )@@G@@ A0,UPSR @^@@@@ TZ PKTADDR @G@@@@ TNZ TBLADDR WN )@@G@@ . ARE PACKET AND TABLE ADDRESSES KNOWN? @A@@@@ NOFIND 15WO )@@G@@ . NO. @D@@@@ LXM X1,PKTADDR . SET PACKET POINTEWP )@@G@@R @D@@@@ LXM X2,TBLADDR . AND TABLE POINTER. @G@@@@WQ )@@G@@ DL A0,AETAB+1 . YES. GET BDI'S OF INITIALLY-BASED BANKS. WR )@@G@@@D@@@@ TNZ DNMCFLG . IS APPLICATION DYNAMIC?@A@@@@ WS )@@G@@ J SETBKS . NO. @F@@@@ L,U X3,BNKTAB . YES. WT )@@G@@PREPARE TO SCAN BANK TABLE @E@@@@ LMJ A0,SETSCH . TO UWU )@@G@@PDATE BANK BLOCK SIZES. @E@@@@ J BKSEND . WHILE BANKSWV )@@G@@ REMAIN (R1 > 0): @C@@@@BKSBEG L,T1 A0,3+2,*X3 . GET BANK'S BDI. WW )@@G@@@ @@@@ LXI,U A0,1*/17+1 @E@@@@ ER BANK$ .WX )@@G@@ [A0] = SLR (UPPER,LOWER)*/9 @D@@@@ JZ A0,F$(1) . (UNLWY )@@G@@ESS BANK IS VOID).@B@@@@ SSL A0,18+9 . SLR UPPER @C@@@@WZ )@@G@@ AN,T3 A0,2,X3 . - SLR LOWER @A@@@@ A,U A0XA )@@G@@,1 . + 1@D@@@@L$(L$) S,T2 A0,2,X3 . = BANK BLOCK SXB )@@G@@IZE. @E@@@@BKSEND JGD R1,BKSBEG . REPEAT FOR REMAINING BLOCKS. XC )@@G@@@E@@@@ LXI,U A0,1*/17 . FIND BDI'S OF ACTIVE BANKS. @^@@@@XD )@@G@@ ER BANK$ @F@@@@SETBKS DS A0,ACTVBKS . SET ACTIVE XE )@@G@@(OR INITIAL) BDI'S. @E@@@@ JN A3,0,A3 . RETURN IF EXF )@@G@@NTRY VIA ENTERND. @F@@@@ TNZ LCTAB . ELSE, IF NO DIAGNXG )@@G@@OSTIC TABLES, @D@@@@ NOFIND 14 . TAKE NO-FIND EXIXH )@@G@@T. @^@@@@ J 0,A3 @[@@@@. @]@@@@$(2) . @B@@@@XI )@@G@@EXIT J $-$ . SLJ HERE. @^@@@@ J $(1) XJ )@@G@@@C@@@@$(1) L,H2 A0,EXIT . ADDR+1 OF SLJ. @^@@@@ AN,UXK )@@G@@ A0,1 @B@@@@ L A0,0,A0 . GET SLJ AND@D@@@@ XL )@@G@@ LSSL A0,6+4 . SHIFT OUT F,J FIELDS, @F@@@@ SSL A0XM )@@G@@,36-4 . X,H,I,U FIELDS, TO GET STATUS. @E@@@@ L A3XN )@@G@@,UPSR . RESTORE USER'S PSR BITS. @^@@@@ LPD 0,A3 XO )@@G@@@C@@@@ L X3,SVX3 . RESTORE X1-X3. @^@@@@ LXM XP )@@G@@ X2,SVX2M@^@@@@ LXM X1,SVX1M@^@@@@ J *RETURN XQ )@@G@@@[@@@@/. ^ON@A@@@@. /\/\/\ @[@@@@. @G@@@@XR )@@G@@. SUBROUTINE SATSTAT CAUSES PRINTING OF A MESSAGE APPROPRIATE TO A NON- XS )@@G@@@G@@@@. ZERO STATUS CODE RETURNED BY SUBROUTINE SCHAET. CALLING SEQUENCXT )@@G@@E: @[@@@@. @A@@@@. L,U A0, @ @@@@. XU )@@G@@ LMJ X11,SATSTAT @^@@@@. @[@@@@. @G@@@@XV )@@G@@. THE ROUTINE IS FULLY REENTRANT AND WORD-MODE INSENSITIVE. ONLY A0 IS XW )@@G@@@^@@@@. ALTERED IN CONTENT. @[@@@@. ^OFF@]@@@@SATSTAT* . @#@@@@ XX )@@G@@ TN A0@^@@@@ TG,U A0,K @#@@@@ SZ A0@ @@@@XY )@@G@@ L A0,MSGS,A0 @^@@@@ ER PRINT$ @^@@@@ XZ )@@G@@ J 0,X11 @[@@@@. @#@@@@P PROC *1@]@@@@PCW* NAMEYA )@@G@@@A@@@@K*(K) EQU +(0100+$-L(0),L(0)) @#@@@@L*(0) EQU $ @]@@@@YB )@@G@@ END @#@@@@L(0) EQU $ @^@@@@L(1) EQU L(1)+1 @[@@@@YC )@@G@@. @B@@@@ 'ILLEGAL SCHAET STATUS CODE.' @]@@@@ PCW YD )@@G@@@^@@@@ 'NO SUCH BDI.' @]@@@@ PCW @^@@@@ 'NO SUCH BYE )@@G@@ANK.' @]@@@@ PCW @ @@@@ 'NO SUCH SEGMENT.' @]@@@@ YF )@@G@@ PCW @ @@@@ 'NO SUCH ELEMENT.' @]@@@@ PCW @A@@@@ YG )@@G@@ 'NO ELEMENT SPECIFIED.' @]@@@@ PCW @B@@@@ 'NO SUCH LYH )@@G@@C FOR ELEMENT IN BANK.' @]@@@@ PCW @C@@@@ 'NO SUCH LC FOR YI )@@G@@ELEMENT IN ANY BANK.' @]@@@@ PCW @C@@@@ 'NO SUCH ADDRESSYJ )@@G@@ IN LC FOR ELEMENT.' @]@@@@ PCW @A@@@@ 'NO SUCH ADDRESSYK )@@G@@ IN BANK.' @]@@@@ PCW @B@@@@ 'NO SUCH ADDRESS IN ANY BANKYL )@@G@@.' @]@@@@ PCW @C@@@@ 'NO SUCH ADDRESS IN ANY ACTIVE BANYM )@@G@@K.' @]@@@@ PCW @ @@@@ 'NO SUCH SYMBOL.' @]@@@@ YN )@@G@@ PCW @D@@@@ 'SPECIFIED LCT ITEM ADDRESS OUT OF RANGE.' @]@@@@YO )@@G@@ PCW @B@@@@ 'NO DIAGNOSTIC TABLES AVAILABLE.' @]@@@@ YP )@@G@@ PCW @D@@@@ 'AET PACKET AND/OR TABLE ADDRESS UNKNOWN.' @]@@@@YQ )@@G@@ PCW @[@@@@. @]@@@@MSGS . @ @@@@I DO K/L(1) , +K(IYR )@@G@@-1) @[@@@@. @]@@@@$(2) . @^@@@@AEPKT EQUF 0,X1 @E@@@@YS )@@G@@ AE$PKT . DEFINES ALL TAGS IN AEPKT. @ @@@@BDIX YT )@@G@@ EQUF AEPKT+3,,S2 @ @@@@SGIX EQUF AEPKT+6,,S2 @^@@@@AETAB YU )@@G@@ EQUF 0,X2 @G@@@@ AE$TAB . DEFINES BKNTAB, SYV )@@G@@GNTAB, ELNTAB, LCTAB, @E@@@@. . EPNTAB, ABYW )@@G@@SVTAB, SLTFWA. @^@@@@SVX1M EQUF $,,H1 @^@@@@SVX2M EQUF $,YX )@@G@@,H2 @]@@@@ +0,0@]@@@@SVX3 +0 @^@@@@UPSR EQUF $,,T1 YY )@@G@@@^@@@@SVX11M EQUF $,,H2 @D@@@@RETURN +0,0 . (S3 MYZ )@@G@@UST BE ZERO.) @^@@@@BDIMI EQUF $,,H1 @^@@@@BDIMD EQUF $,ZA )@@G@@,H2 @]@@@@ACTVBKS +0,0@^@@@@BDIUI EQUF $,,H1 @^@@@@BDIUD EQUFZB )@@G@@ $,,H2 @]@@@@ +0,0@[@@@@. @ @@@@SELOC NOP 0,$-$,*XZC )@@G@@3 @[@@@@. @E@@@@SYMBOL +0D . TEMP SAVE FOR USEZD )@@G@@R'S SYMBOL. @^@@@@ DO TEST=0 , END @G@@@@/. TEST PROGRAM. CREATESZE )@@G@@ THE TABLE FOR ELEMENT SPECIFIED IN PROCESSOR @G@@@@. CALL. IF NO ELEMZF )@@G@@ENT SPECIFIED, CREATE TABLE FOR ITSELF. THEN ENTER @^@@@@. ROUTINE TEZG )@@G@@ST LOOP. @]@@@@ ELT$@]@@@@$(3) LIT @]@@@@START . @E@@@@ZH )@@G@@ C$TNCY CPKT . REGISTER CONTINGENCY HANDLER.@ @@@@ ZI )@@G@@ L A0,(28,ATAB) @D@@@@ LMJ X11,RINF$ . READ THE INZJ )@@G@@FOR TABLE. @#@@@@ E$RM 0 @D@@@@ L,U A0,1 .ZK )@@G@@ GET THE ELEMENT SPEC. @ @@@@ LMJ X11,SELT$ @B@@@@ ZL )@@G@@ J F$(1) . NO-FIND. @^@@@@ L,U A0,GPKT @E@@@@ZM )@@G@@ LMJ X11,DASG$ . ASSIGN THE PROGRAM FILE. @#@@@@ ZN )@@G@@ E$RM 1 @^@@@@ DL A0,ENAME@ @@@@ DS A0,ELEMEZO )@@G@@NT @^@@@@ DL A0,EVER @^@@@@ TZ EVL @ @@@@ZP )@@G@@ DS A0,VERSION @C@@@@ P$FS PPKT . FIND ZQ )@@G@@THE ELEMENT.@#@@@@ TZ A2@#@@@@ E$RM 2 @ @@@@ ZR )@@G@@ L A2,TEXTADR @^@@@@ J F$(2) @[@@@@. @F@@@@ZS )@@G@@L$(L$) P$CT 0110,3,PPKT . NO ELEMENT SPECIFIED. USE THIS ONE.@ @@@@ZT )@@G@@ L A2,PPKT+2 @^@@@@L$(L$) DL A0,PPKT @^@@@@ ZU )@@G@@ L,U A3,ATAB @ @@@@ LMJ X11,WRTAET @^@@@@ L ZV )@@G@@ A2,A0 @^@@@@ SSL A2,18 @C@@@@ E$RMSG ('\A2,F\ZW )@@G@@: TDATE$=\A1,12\\\') @ @@@@ L A0,(APKT,ATAB)@ @@@@ ZX )@@G@@ LMJ X11,SCHAET @^@@@@ L,U A0,040 @E@@@@ TNZ ZY )@@G@@ ENL . IF NO ELEMENT SPECIFIED, @E@@@@ S,S3 A0ZZ )@@G@@,APKT+6 . MARK APPLICATION DYNAMIC. @#@@@@AGAIN DXBRK @^@@@@AA )@@G@@ SZ IMAGE @^@@@@ T$READ TPKT @G@@@@ DL AB )@@G@@ A1,(''LD) . FOLLOW IMAGE WITH 2 WORDS OF BLANKS. @ @@@@ AC )@@G@@ DS A1,IMAGE,A0 @D@@@@ L,H1 A0,IMAGE . GET A SUBROAD )@@G@@UTINE NAME. @E@@@@ L X11,(1,ENTRY-1) . SEARCH FOR IT IN LISAE )@@G@@T. @^@@@@ L,U R1,ENTCT@ @@@@ SE,H1 A0,1,*X11 AF )@@G@@@B@@@@ J AGAIN . NO-FIND. @E@@@@ L,H2 A0AG )@@G@@,0,X11 . FOUND. GET ENTRY ADDRESS. @D@@@@ LMJ X11,0,A0AH )@@G@@ . ENTER THE ROUTINE. @C@@@@L$(L$) JNZ A0,F$(1) . IF STAI )@@G@@ATUS GOOD, @C@@@@DUMP E$RMSG PMSG . DUMP THE PACKET.@^@@@@AJ )@@G@@ J AGAIN @ @@@@L$(L$) LMJ X11,SATSTAT @^@@@@ AK )@@G@@ J AGAIN @[@@@@. @D@@@@EPNAME DL A0,IMAGE . FOR EAL )@@G@@NTRY POINT NAME, @C@@@@ L A2,IMAGE+2 . GET THE NAME. AM )@@G@@@D@@@@ LDSL A0,24 . SHIFT OUT COMMAND. @^@@@@ AN )@@G@@ SSL A1,24 @^@@@@ LDSL A1,24 @C@@@@ LMJ X1AO )@@G@@1,FEPN . SEARCH FOR NAME. @C@@@@ J B$(2) . GO TEAP )@@G@@ST RESULT. @[@@@@. @E@@@@ABSVNAME DL A0,IMAGE . FOR ABSOLUTAQ )@@G@@E VALUE NAME, @C@@@@ L A2,IMAGE+2 . GET THE NAME. AR )@@G@@@D@@@@ LDSL A0,24 . SHIFT OUT COMMAND. @^@@@@ AS )@@G@@ SSL A1,24 @^@@@@ LDSL A1,24 @C@@@@ LMJ X1AT )@@G@@1,FABSV . SEARCH FOR NAME. @E@@@@ JNZ A0,B$(1) . IF BAAU )@@G@@D STATUS, GO REPORT. @B@@@@ L,U A0,('VALUE: \A1,12\.\\') AV )@@G@@@#@@@@ E$RMSG @^@@@@ J AGAIN @[@@@@. @C@@@@AW )@@G@@MCORE L,U A0,LASTD$+01000 . EXPAND D-BANK.@^@@@@ ER MCAX )@@G@@ORE$ @^@@@@ J AGAIN @[@@@@. @E@@@@LCORE L,U A0AY )@@G@@,LASTD$ . RESTORE ORIGINAL D-BANK SIZE.@^@@@@ ER LCORE$ AZ )@@G@@@^@@@@ J AGAIN @[@@@@/. @^@@@@ENTRY +'DUM',DUMP BA )@@G@@@#@@@@ +'FBN',FBN@#@@@@ +'FBI',FBI@#@@@@ +'FSN',FSNBB )@@G@@@#@@@@ +'FSI',FSI@#@@@@ +'FEN',FEN@#@@@@ +'FEI',FEIBC )@@G@@@^@@@@ +'FAB',FABS @^@@@@ +'FRE',FREL @^@@@@ BD )@@G@@ +'FEP',EPNAME @^@@@@ +'FAV',ABSVNAME @^@@@@ +'RST',RSTBE )@@G@@AET @^@@@@ +'VFY',VFYADR @^@@@@ +'MCO',MCORE @^@@@@BF )@@G@@ +'LCO',LCORE @^@@@@ENTCT EQU $-ENTRY @[@@@@. @^@@@@BG )@@G@@BYEBYE C$SF (4,GPKT)@^@@@@ ER EXIT$ @[@@@@. @]@@@@BH )@@G@@$(4) . @C@@@@EMS$(1) 'FILE @ASG FAILED. STATUS: \A0,12\.\\' @D@@@@BI )@@G@@EMS$(2) 'ELEMENT NOT FOUND. PFS$ STATUS: \A2\.\\' @]@@@@PMSG '\&'BJ )@@G@@@^@@@@ E$RF APKT,12 @#@@@@ '\;\&' @ @@@@ E$ROBK )@@G@@ APKT+2,6,H1 @#@@@@ ' \&' @ @@@@ E$RO APKT+2,6BL )@@G@@,H2 @#@@@@ '\;\&' @ @@@@ E$RO APKT+3,4,T1 @#@@@@BM )@@G@@ ' \&' @ @@@@ E$RO APKT+3,2,S3 @#@@@@ '\;\BN )@@G@@&' @ @@@@ E$RF APKT+4,12 @#@@@@ '\;\&' @ @@@@BO )@@G@@ E$RO APKT+6,4,T1 @#@@@@ ' \&' @ @@@@ E$ROBP )@@G@@ APKT+6,2,S3 @#@@@@ ' \&' @ @@@@ E$RO APKT+6,6BQ )@@G@@,H2 @#@@@@ '\;\&' @ @@@@ E$RF APKT+7,12 @#@@@@BR )@@G@@ '\;\&' @ @@@@ E$RO APKT+9,4,T1 @#@@@@ ' \&BS )@@G@@' @ @@@@ E$RO APKT+9,2,S3 @#@@@@ ' \&' @ @@@@BT )@@G@@ E$RO APKT+9,6,H2 @#@@@@ '\;\&' @ @@@@ E$ROBU )@@G@@ APKT+10,6,H1 @#@@@@ ' \&' @ @@@@ E$RO APKT+10,BV )@@G@@6,H2 @]@@@@ '\\'@A@@@@TPKT ICW 1,+(LJSR 'R: ') @^@@@@BW )@@G@@ +BYEBYE,IMAGE @[@@@@. @]@@@@$(6) . @^@@@@CPKT ERR$BX )@@G@@PKT BYEBYE @#@@@@GPKT '@FREE,A' @^@@@@ 'INT$FILENAME' @#@@@@BY )@@G@@IMAGE RES 8 @B@@@@PPKT P$FP 'INT$FILENAME',,' ',6 @^@@@@BZ )@@G@@ELEMENT EQU PPKT+2 @^@@@@VERSION EQU PPKT+6 @^@@@@TEXTADR EQU CA )@@G@@ PPKT+10 @]@@@@$(8) . @#@@@@APKT RES 11@]@@@@$(10) . CB )@@G@@@#@@@@ATAB RES 28@^@@@@ END START _@@@@@ . @#@@@@CC )@@G@@APKT RES 11@]@@@@$(10) . @#@@@@ATAB RES 28@^@@@@ CD )@@G@@ END START _@@@@@)@@@G@)@@[#@K^ [K^[[KK@@'^@@@['^)@@[/,0@^D/\0@ -CE )@@G@@'^@@@['^K@@[/,0@^J/\0@ -@@@@@@AA@@@@)@C[F@K^ [K^[[KO@@@@@@@@/\0@ -'^@@@[CF )@@G@@'^0@@[/,0@#=/\0@ -'^@@@['^0@@[/,0@#(/\0@ -AB@@@@)@L[N@KO @K^^K@@@@C8K@@[CG )@@G@@CW[@@D/\@@ ]R82@@A' @@@[/,0@^$/\0@ -'^@@@[' @@@[/,0@^+AC@@@@)@V[M^@^@[[@CH )@@G@@@@@@@@'^@@@[[?L@@D;CK@@G[WL@@#/K@@@WC^N@@[!^N@@[/K@@@-2^#)@#;*K@@MAD@@@@CI )@@G@@)@>[N@[@KO @K^ @@@/,0@^$'^)@@[/,0@^A/\0@ -'^@@@['A0@@[/,0@#4[W[@@#C8@@__CJ )@@G@@/\0@ 8@@@CC4#@@[AH@@@@)[I[M^@KO@*]]@@@@@R82@@BCN )@@G@@0@@@@DR82@@CR'0@B3/\0@ -9*@@@D90@@@G/K@@[_AG1@@E[C[@@EAI@@@@)[S[N[K[[KKKCO )@@G@@^@@@@@*@[@@E/\0@ $ 2.59 AVERAGE COES )@@G@@ST PER UNIT 5228.@F__@@ I N D U ET )@@G@@*[S@@@*SDFF*@F@@@@. ^ON COPYRIGHT 1976, B. E. CHI, SUNY-ALBANY, ALBANYEU )@@G@@ NY 12222. @[@@@@. @G@@@@. SUBROUTINE WRTAET CREATES FOR A SPECIFIEEV )@@G@@D ABSOLUTE ELEMENT A TABLE IN @G@@@@. CORE THAT CAN BE USED SUBSEQUENTLYEW )@@G@@ FOR COMPUTATION OF ABSOLUTE AND @G@@@@. RELATIVE ADDRESSES OR FOR PREX )@@G@@ODUCING A MAP-LIKE LISTING FOR THE ELE- @G@@@@. MENT. THE INFORMATIONEY )@@G@@ IN THE TABLE IS DRAWN FROM THE ELEMENT'S FILE @G@@@@. HEADER AND DIAGNEZ )@@G@@OSTIC TABLES. AN OPEN-ENDED BUFFER IN WHICH TO BUILD @E@@@@. THE TABLE FA )@@G@@MUST BE SUPPLIED BY THE USER. CALLING SEQUENCE:@[@@@@. @F@@@@. FB )@@G@@ DL A0, @E@@@@. FC )@@G@@ L A2, @D@@@@. L FD )@@G@@ A3, @ @@@@. LMJ X11,WRTAFE )@@G@@ET @G@@@@. . [A0] = 'FMT',LENGTH OF TABLE FF )@@G@@CREATED; @G@@@@. . [A1] = PGM CREATION DATFG )@@G@@E/TIME (FROM FHT).@[@@@@. @G@@@@. 'FMT' = 'OLD' OR 'NEW' ACCORDING TFH )@@G@@O WHETHER THE ELEMENT IS IN THE OLD @G@@@@. OR NEW COLLECTOR FORMAT. IFFI )@@G@@ THE CONTENTS OF A0 IS NEGATIVE, AN I/O @G@@@@. ERROR OCCURRED WHILE AFJ )@@G@@TTEMPTING TO READ THE FILE, AND THE MAGNITUDE OF@A@@@@. THE CONTENTS IS FK )@@G@@THE STATUS CODE. @[@@@@. @F@@@@. UNDER THE OLD COLLECTOR, BANKS BORFL )@@G@@E NO NAMES. THE ROUTINE WILL @G@@@@. CONSTRUCT IN THESE CIRCUMSTANCES AFM )@@G@@ DUMMY BANK NAME TABLE WITH BANK @G@@@@. NAMES 'I-BANK' AND 'D-BANK' FN )@@G@@AND BDI'S 4 AND 5 RESPECTIVELY FOR THE @]@@@@. ELEMENT. @[@@@@. FO )@@G@@@G@@@@. IF THE ELEMENT WAS COLLECTED USING A 'Z'-OPTION, NO DIAGNOSTIC TFP )@@G@@ABLES @G@@@@. WILL HAVE BEEN PRODUCED AT ALL. IN THIS INSTANCE, THE ROUFQ )@@G@@TINE WILL @F@@@@. RETURN ONLY A BANK NAME TABLE FOR THE ELEMENT, CELLSFR )@@G@@ 'SGNTAB', @G@@@@. 'ELNTAB' AND 'LCTAB' ALL BEING CLEARED TO ZERO. FORFS )@@G@@ ELEMENTS COLLEC- @G@@@@. TED WITH THE NEW COLLECTOR, DUMMY BANK NAMES 'FT )@@G@@BANKN' WILL BE SUPPLIED,@D@@@@. WHERE 'N' IS THE DECIMAL BDI VALUE FOR TFU )@@G@@HE BANK. @[@@@@. @G@@@@. IF THE SUBROUTINE IS NEVER TO BE USED WIFV )@@G@@TH ELEMENTS IN THE OLD COL- @G@@@@. LECTOR FORMAT, A MAJOR PORTION OF FW )@@G@@IT CAN BE ELIMINATED. THIS CAN BE @G@@@@. DONE BY REASSEMBLING THE SUBFX )@@G@@ROUTINE WITH TAG 'OLD' SET TO ZERO. THIS @G@@@@. VERSION WILL RETURN 0 FY )@@G@@IN A0 IF IT IS USED WITH AN ELEMENT IN OLD COL- @#@@@@. LECTOR FORMAT. FZ )@@G@@@[@@@@. @G@@@@. THE ARRANGEMENT OF THE TABLE PRODUCED IS DESCRIBED IGA )@@G@@N PROCEDURE ELE- @G@@@@. MENT AET$P. THE ARRANGEMENT OF THE DIAGNOSTICGB )@@G@@ TABLES WITHIN THE ABSO-@G@@@@. LUTE ELEMENT IS DESCRIBED IN VOL. 8, CHAGC )@@G@@P. 4 OF THE TECHNICAL DOCUMEN-@G@@@@. TATION FOR THE OLD COLLECTOR, AND GD )@@G@@IN CHAP. 5 OF THE SYSTEMS MEMORANDUM@A@@@@. (REV. 14) FOR THE NEW COLLECGE )@@G@@TOR. @[@@@@. @G@@@@. THE ROUTINE IS I-BANK REENTRANT, PSR-MODE INSEGF )@@G@@NSITIVE, AND ALTERS THE @B@@@@. CONTENTS OF REGISTERS A0-A3 AND R1. GG )@@G@@@G@@@@/OLD EQU 1 . ^EOF. SET 'OLD' TO ZERO IF ONLY NGH )@@G@@EW @G@@@@ LOC$ . COLLECTOR FORMAT ELEMGI )@@G@@ENTS ARE @D@@@@$(1) MNM$ . TO BE ALLOWED. GJ )@@G@@@]@@@@WRTAET* . @C@@@@ DS A0,FPKT . SAVE FILE NAME. GK )@@G@@@E@@@@ S A2,FSECT . SAVE ELEMENT'S START SECTOR. @D@@@@GL )@@G@@ SPD UPSR . SAVE USER'S PSR BITS. @D@@@@ LPD GM )@@G@@ 0100 . ENTER THIRD-WORD MODE. @C@@@@ S X1,SVX1MGN )@@G@@ . SAVE X1,X2,X3. @^@@@@ S X2,SVX2 @^@@@@ S GO )@@G@@ X3,SVX3 @ @@@@ S X11,SVX11M @G@@@@ LXM X1GP )@@G@@,A3 . [X1] = TABLE ADDRESS. (0,X1 = AETAB.) @D@@@@ LXI,GQ )@@G@@U A3,28 . SET ACW AND READ FHT. @^@@@@ S A3,FACW GR )@@G@@@^@@@@ LMJ X11,READ@D@@@@ L,H2 A0,FHT+4 . GET SGS )@@G@@TART ADDRESS. @C@@@@ TN FHT . NEW COLLECTOR? GT )@@G@@@A@@@@ J OLDCOL . NO. @C@@@@ LXI,H2 A0,FHT+0GU )@@G@@21 . YES. GET SLT FWA.@C@@@@ S A0,AETAB . PUT IN TABLGV )@@G@@E. @G@@@@. SINCE FHT+1 = AETAB+1, THE BDI'S OF INITIALLY LOADED BANKSGW )@@G@@ ARE ALREADY@ @@@@. IN THEIR CORRECT LOCATIONS. @D@@@@ L A0GX )@@G@@,FHT+015 . GET TDATE$ OF ELEMENT @D@@@@ S A0,EDATE .GY )@@G@@ AND SAVE FOR EXIT. @[@@@@. @D@@@@ L,H1 A0,FHT+6 .GZ )@@G@@ PUT NUMBER OF SEGMENTS @D@@@@ S,T1 A0,SGNTAB . IN TABLE DHA )@@G@@IRECTORY. @ @@@@ L,H2 A0,FHT+031 @E@@@@ SSL A0HB )@@G@@,1 . BLT LENGTH/2 = # OF BANKS. @C@@@@ S,T1 A0,BNKTAHC )@@G@@B . PUT IN DIRECTORY.@C@@@@ L,H2 A0,FHT+027 . LENGTH OF EHD )@@G@@NT. @C@@@@ LXI,H1 A0,FHT+026 . LENGTH OF LCT. @^@@@@ HE )@@G@@ DSL A0,36 @E@@@@ DI,U A0,3 . [A0] = (#LC'S,#ELHF )@@G@@EMENTS). @C@@@@ S,T1 A0,ELNTAB . PUT IN DIRECTORY.@^@@@@HG )@@G@@ SSL A0,18 @^@@@@ S,T1 A0,LCTAB@C@@@@ L,H1HH )@@G@@ A2,FHT+030 . LENGTH OF EPNT. @C@@@@ LXI,H1 A2,FHT+031 .HI )@@G@@ LENGTH OF ABSVT. @E@@@@ DI,U A1,3 . [A1] = (#ABSV'S,#HJ )@@G@@EPN'S). @C@@@@ S,T1 A1,EPNTAB . PUT IN DIRECTORY.@^@@@@HK )@@G@@ SSL A1,18 @ @@@@ S,T1 A1,ABSVTAB @[@@@@. HL )@@G@@@E@@@@ L,U A0,3 . SET TABLE WORD ITEM LENGTHS. @C@@@@HM )@@G@@ S,S3 A0,BNKTAB . 3 WORDS/ITEM FOR @F@@@@ S,S3 A0HN )@@G@@,LCTAB . BANK, LC, EPN AND ABSV TABLES; @ @@@@ S,S3 A0HO )@@G@@,EPNTAB @ @@@@ S,S3 A0,ABSVTAB @^@@@@ L,U A0HP )@@G@@,2 @C@@@@ S,S3 A0,SGNTAB . 2 WORDS/ITEM FOR @F@@@@ HQ )@@G@@ S,S3 A0,ELNTAB . SEGMENT AND ELEMENT NAME TABLES. @D@@@@/. FINHR )@@G@@D RELATIVE SECTOR LOCATIONS OF VARIOUS TABLES. @ @@@@ L,H1 A0HS )@@G@@,FHT+021 @ @@@@ A,H2 A0,FHT+030 @E@@@@ LMJ X1HT )@@G@@1,CDV28 . (LWPT + LWBTX)//28 = WBT SC. @F@@@@ A A0,FHT+0HU )@@G@@20 . + DIAGNOSTIC TABLE FSA = SNT FSA. @C@@@@ L R1,A0 HV )@@G@@ . [R1] = SNT FSA. @B@@@@ L,H1 A0,FHT+027 . SNT WC//28 HW )@@G@@@B@@@@ LMJ X11,CDV28 . = SNT SC. @E@@@@ S,H2 A0HX )@@G@@,ELNTAB . = DISTANCE FROM SNT TO ENT. @[@@@@. @B@@@@ L,H2HY )@@G@@ A0,FHT+027 . ENT WC//28 @B@@@@ LMJ X11,CDV28 . = ENHZ )@@G@@T SC. @C@@@@ L A2,A0 . [A2] = SNT SC. @^@@@@ IA )@@G@@ A A0,R1 @G@@@@ A,H2 A0,ELNTAB . SNT FSA + SNT SC IB )@@G@@+ ENT SC = BNT FSA. @C@@@@ AN,U A0,1 . BNT FSA - BIC )@@G@@LT FSA@E@@@@ S,H2 A0,BNKTAB . = DISTANCE FROM BLT TO BNT. ID )@@G@@@[@@@@. @ @@@@ AU,H2 A2,ELNTAB @H@@@@ SN,H2 A3IE )@@G@@,SGNTAB . - ENT SC - SNT SC = DISTANCE FROM BNT TO SNT. @[@@@@. IF )@@G@@@B@@@@ L,H2 A0,FHT+026 . BNT WC//28 @B@@@@ LMJ X1IG )@@G@@1,CDV28 . = BNT SC. @C@@@@ A A0,A2 . BNT SC + ENIH )@@G@@T SC @E@@@@ S,H2 A0,LCTAB . = DISTANCE FROM ENT TO LCT. II )@@G@@@[@@@@. @B@@@@ L,H1 A0,FHT+026 . LCT WC//28 @B@@@@ IJ )@@G@@ LMJ X11,CDV28 . = LCT SC @E@@@@ S,H2 A0,EPNTAB .IK )@@G@@ = DISTANCE FROM LCT TO EPNT.@[@@@@. @B@@@@ L,H1 A0,FHT+0IL )@@G@@30 . EPNT WC//28@B@@@@ LMJ X11,CDV28 . = EPNT SC @F@@@@IM )@@G@@ S,H2 A0,ABSVTAB . = DISTANCE FROM EPNT TO ABSVT. @[@@@@IN )@@G@@. @A@@@@. READ BLT, LEAVING A GAP FOR BNT. @D@@@@ L,T1 A0IO )@@G@@,BNKTAB . FIND BNT WORD COUNT. @ @@@@ MSI,S3 A0,BNKTAB IP )@@G@@@C@@@@ L,U X2,BNKTFW . BANK TABLE FWA @^@@@@ L IQ )@@G@@ X3,X2 @D@@@@ A X3,A0 . + BNT WC = BLT FWA. IR )@@G@@@B@@@@ LXI,H2 X3,FHT+031 . BLT WC. @^@@@@ S X3IS )@@G@@,FACW @B@@@@ L A0,FSECT . FHT SECTOR @D@@@@ A,U IT )@@G@@ A0,1 . + 1 = BLT SECTOR. @^@@@@ S A0,FSECTIU )@@G@@@F@@@@ LMJ X11,READ . READ BLT. (FHT NOW DESTROYED.) IV )@@G@@@E@@@@ L A3,(1,0) . SET TABLE PROCESSING INDEX. @C@@@@IW )@@G@@/. READ BNT, SNT, ENT, LCT, PROCESSING EACH. @C@@@@FIXTAB S X2IX )@@G@@,FACW . SET TABLE FWA. @F@@@@ L,U A2,BNKTAB . SET PIY )@@G@@OINTER TO DIRECTORY ITEM. @^@@@@ A,U A2,0,A3 @[@@@@. IZ )@@G@@@D@@@@ L,T1 A1,0,A2 . NUMBER OF TABLE ITEMS @D@@@@ JA )@@G@@ MSI,S1 A1,TBX,A3 . * MS WC OF EACH ITEM @D@@@@ S,H1 A1JB )@@G@@,FACW . = WORDS TO READ. @[@@@@. @F@@@@ L A1JC )@@G@@,FSECT . SECTOR ADDRESS OF PREVIOUS TABLE. @C@@@@ A,XH2 A1JD )@@G@@,0,A2 . + DISPLACEMENT @F@@@@ S A1,FSECT . = SJE )@@G@@ECTOR ADDRESS OF THIS TABLE. @[@@@@. @B@@@@ L,U A1,0,X2 JF )@@G@@ . TABLE FWA. @^@@@@ AN,U A1,0,A2 @^@@@@ AN,S3 A1JG )@@G@@,0,A2 @F@@@@ S,H2 A1,0,A2 . DIRECTORY POINTER TO THIS TABJH )@@G@@LE. @[@@@@. @C@@@@ LMJ X11,READ . READ THE TABLE. JI )@@G@@@[@@@@. @E@@@@ TZ,U 0,A3 . UNLESS THIS IS BANK TABJJ )@@G@@LE, @E@@@@ L X3,X2 . SET POINTER TO THIS TABLE. JK )@@G@@@D@@@@ LXI,S3 X2,0,A2 . ITEM WC OF CORE TABLE. @D@@@@ JL )@@G@@ LXI,S2 X3,TBX,A3 . ITEM WC OF MS TABLE. @C@@@@ L,T1 R1JM )@@G@@,0,A2 . NUMBER OF ITEMS. @E@@@@ J *TBX,*A3 . GO PRJN )@@G@@OCESS PARTICULAR TABLE. @^@@@@PT FORM 6,6,24 @ @@@@TBX PT JO )@@G@@ 3,2,FIXBKT @ @@@@ PT 4,4,FIXSET @ @@@@ PT JP )@@G@@ 3,3,FIXSET @ @@@@ PT 3,3,FIXLCT @ @@@@ PT JQ )@@G@@ 3,3,FIXEPNT @ @@@@ PT 3,3,FIXABSVT @G@@@@/. FOR BANK JR )@@G@@TABLE, TAKE BDI, BLOCK SIZE, FIRST BLOCK FROM EACH BLT ITEM @C@@@@. AND JS )@@G@@PUT IN CORRESPONDING BANK TABLE ITEM. @G@@@@FIXBKT L,T1 A0,ELNTAJT )@@G@@B . GET ELT COUNT (0 IF NO DIAG TABLES). @F@@@@ J F$JU )@@G@@(4) . WHILE BANKS REMAIN ([R1] > 0): @E@@@@L$(L$) JNZ A0JV )@@G@@,F$(2) . IF NO DIAGNOSTIC TABLES, @E@@@@ L,T1 A0,0,X3 JW )@@G@@ . CONSTRUCT DUMMY BANK NAME @D@@@@ L A2,(''L) .JX )@@G@@ 'BANKN', WHERE 'N' IS @D@@@@L$(L$) DSL A0,36 . DECIMAL JY )@@G@@BDI VALUE. @^@@@@ DI,U A0,10 @^@@@@ A,U A1,'0' JZ )@@G@@@^@@@@ DSL A1,6 @^@@@@ JNZ A0,B$(1)@ @@@@ KA )@@G@@ L A1,(' BANK') @E@@@@ LDSC A1,12 . [A1,A2] = 'KB )@@G@@BANKN', LJSF. @G@@@@ DS A1,0,X2 . PUT IN WORDS 0,1 KC )@@G@@OF BANK TABLE ITEM. @C@@@@L$(L$) DL A1,0,*X3 . GET BLT ITEKD )@@G@@M. @C@@@@ LDSC A1,12 . [A2] = BS,FB,BDI.@C@@@@ KE )@@G@@ SSC A2,12 . [A2] = BDI,BS,FB.@F@@@@ S A2,2,*X2KF )@@G@@ . PUT IN WORD 2 OF BANK TABLE ITEM. @E@@@@L$(L$) JGD R1,B$(3)KG )@@G@@ . REPEAT WHILE BANKS REMAIN. @G@@@@ JZ A0,NODNEW .KH )@@G@@ IF NO DIAGNOSTIC TABLES, WE'RE DONE. @E@@@@ J FIXTAB KI )@@G@@ . ELSE GO ON TO NEXT TABLE. @[@@@@. @[@@@@. @G@@@@. FOR KJ )@@G@@SEGMENT AND ELEMENT TABLES, JUST DISCARD EVERYTHING BUT NAMES. @^@@@@KK )@@G@@L$(L$) DL A1,0,*X3@^@@@@ DS A1,0,*X2@G@@@@FIXSET JGD KL )@@G@@ R1,B$(1) . REPEAT WHILE ELEMENTS OR SEGMENTS REMAIN.@E@@@@ KM )@@G@@ J FIXTAB . THEN GO ON TO NEXT TABLE. @[@@@@. @[@@@@KN )@@G@@. @G@@@@. FOR LC TABLE, CONVERT SEGMENT, ELEMENT AND ANY LC INDEX TOKO )@@G@@ ORDINAL @]@@@@. NUMBERS. @C@@@@L$(L$) L,S1 A1,1,X2 . [A1] KP )@@G@@= DLCXR0. @E@@@@ TOP,U A1,1*/3 . C-BIT (ACTUAL COMMON BLKQ )@@G@@OCK)? @A@@@@ J F$(1) . NO. @C@@@@ L,H2 A1KR )@@G@@,2,X2 . YES. LC INDEX @^@@@@ DSL A1,36 @A@@@@ KS )@@G@@ DI,U A1,3 . /3 @C@@@@ S,H2 A1,2,X2 . = LKT )@@G@@C NUMBER. @C@@@@L$(L$) L,H1 A1,0,X2 . SEGMENT INDEX @A@@@@KU )@@G@@ DSL A1,36+2 . /4 @D@@@@ S,H1 A2,0,X2 .KV )@@G@@ = SEGMENT NUMBER. @C@@@@ L,H2 A2,0,X2 . ELEMENT INDKW )@@G@@EX @A@@@@ DI,U A1,3 . /3 @D@@@@ S,H2 A1KX )@@G@@,0,*X2 . = ELEMENT NUMBER. @E@@@@FIXLCT JGD R1,B$(2) .KY )@@G@@ REPEAT WHILE LC ITEMS REMAIN.@E@@@@ J FIXTAB . THEN KZ )@@G@@GO ON TO NEXT TABLE. @G@@@@/. FOR ENTRY POINT NAME TABLE, CONVERT RELLA )@@G@@ATIVE TO ABSOLUTE ADDRESS. @F@@@@FIXEPNT L,U A0,LCTAB . POINTLB )@@G@@S TO LCTAB DIRECTORY ITEM. @^@@@@ A,H2 A0,0,A0 @D@@@@ LC )@@G@@ A,S3 A0,LCTAB . POINTS TO FWA OF LCTAB.@E@@@@ J F$LD )@@G@@(2) . FOR EACH ENTRY POINT NAME: @F@@@@L$(L$) AU,H1 A0,2,X2 LE )@@G@@ . SET POINTER TO RELEVANT LC ITEM. @F@@@@ L,H2 A2,2,A1 LF )@@G@@ . GET LC BASE ADDRESS FOR THIS NAME. @D@@@@ A,H2 A2,2,X2 LG )@@G@@ . ADD IN DISPLACEMENT. @D@@@@ AN,U A1,AETAB . UNBASLH )@@G@@E THE POINTER. @E@@@@ LXI,U A1,0,A2 . [A1] = (ABSADDR,LLI )@@G@@CTPTR). @D@@@@ S A1,2,*X2 . PUT BACK IN TABLE. LJ )@@G@@@E@@@@L$(L$) JGD R1,B$(1) . REPEAT WHILE NAMES REMAIN. @E@@@@LK )@@G@@ J FIXTAB . THEN GO ON TO NEXT TABLE. @[@@@@. LL )@@G@@@[@@@@. @D@@@@. NO ALTERATIONS REQUIRED IN ABSOLUTE VALUE TABLE. LM )@@G@@@E@@@@FIXABSVT A,H1 X2,FACW . JUST SET POINTER TO FIRST @C@@@@LN )@@G@@. . UNUSED LOCATION.@D@@@@ LXI,U X2LO )@@G@@,'NEW' . MARK COLLECTOR FORMAT. @F@@@@ J FINIS .LP )@@G@@ TABLES COMPLETE. [X2] = FMT,LWA+1.@]@@@@/OLDCOL . @^@@@@ ON LQ )@@G@@ OLD=0 @E@@@@ L,U X2,AETAB . IF OLD FORMAT NOT PERMILR )@@G@@TTED, @D@@@@ J FINIS . EXIT WITH [A0]=0. @^@@@@LS )@@G@@ OFF OLD=0 @B@@@@ ON OLD . OTHERWISE, LT )@@G@@@C@@@@ LXI,H2 A0,FHT+6 . GET SLT FWA. @C@@@@ S LU )@@G@@ A0,AETAB . PUT IN TABLE. @F@@@@ SZ EDATE .LV )@@G@@ NO DATE AVAILABLE IN OLD FORMAT. @G@@@@ L,H1 A3,FHT+6 .LW )@@G@@ NUMBER OF SEGMENTS (0 IF UNSEGMENTED). @B@@@@ LSSL A3,24 LX )@@G@@ . PUT IN T1. @G@@@@ AH A3,(2,SGNTFW-SGNTAB-2) . SET UP LY )@@G@@SEGMENT DIRECTORY ITEM. @F@@@@. DUMMY UP 2-ENTRY BANK TABLE--3 WORDS EACLZ )@@G@@H FOR I- AND D-BANK. @E@@@@ LPD 0110 . ENTER QUARTMA )@@G@@ER-WORD MODE. @B@@@@ L,Q3 A1,FHT+1 . I-BANK FB. @B@@@@MB )@@G@@ L,Q1 A0,FHT+3 . LB - 1. @C@@@@ A,U A0,04000MC )@@G@@1 . BDI,LB (24,12). @B@@@@ AN A0,A1 . BDI,BS. MD )@@G@@@^@@@@ LSSL A1,24 @C@@@@ LDSL A0,12 . I-BANME )@@G@@K BDI,BS,FB.@D@@@@ L,Q3 A2,FHT+2 . DO THE SAME FOR D-BANK.MF )@@G@@@^@@@@ L,Q3 A1,FHT+3@ @@@@ A,U A1,050001 @^@@@@MG )@@G@@ AN A1,A2 @^@@@@ LSSL A2,24 @C@@@@ LDSLMH )@@G@@ A1,12 . D-BANK BDI,BS,FB.@E@@@@ LPD 0100 .MI )@@G@@ RETURN TO THIRD-WORD MODE. @D@@@@ S A0,BNKTFW+2 . PUT IMJ )@@G@@N BANK TABLE. @ @@@@ S A1,BNKTFW+5 @E@@@@ L MK )@@G@@ A0,(4,5) . DUMMY UP INITIALLY-BASED @B@@@@ SZ A1ML )@@G@@ . BDI'S. @ @@@@ DS A0,AETAB+1 @E@@@@ MM )@@G@@ L A0,FHT+7 . GET DIAGNOSTIC TABLE FSA. @B@@@@ L MN )@@G@@ R1,A0 . HOLD IN R1.@^@@@@ A A0,FSECT@^@@@@ MO )@@G@@ S A0,FSECT@A@@@@ DL A0,(LJDS 'I-BANK') @C@@@@ MP )@@G@@ DS A0,BNKTFW . SET BANK NAMES. @^@@@@ LXI,U A0,'D-B'MQ )@@G@@@ @@@@ DS A0,BNKTFW+3 @G@@@@ L A2,(0203,BNKTFMR )@@G@@W-BNKTAB-3). BANK TABLE DIRECTORY ITEM. @G@@@@ DS A2,BNKTAMS )@@G@@B . INSERT BANK AND SEGMENT DIRECTORY ITEMS. @D@@@@ JGD R1MT )@@G@@,F$(1) . ANY DIAGNOSTIC TABLES? @D@@@@ L,U X2,SGNTFW .MU )@@G@@ NO. NOTHING MORE TO DO.@^@@@@ LXI,U X2,'OLD'@^@@@@ J MV )@@G@@ NODOLD @C@@@@/. BANK TABLE COMPLETE. READ SEGMENT TABLE. @D@@@@MW )@@G@@L$(L$) L,T1 A0,SGNTAB . GET SEGMENT COUNT. @B@@@@ TNZ MX )@@G@@ A0 . IF ZERO, @D@@@@ L,U A0,1 . THERMY )@@G@@E'S REALLY ONE. @G@@@@ L R1,A0 . SAVE COUNT FOR REMZ )@@G@@ADING ELEMENT TABLES. @B@@@@ LSSL A0,2+18 . 4*SEGMENTS.NA )@@G@@@D@@@@ LXM,U A0,SGNTFW . SEGMENT TABLE FWA. @B@@@@ NB )@@G@@ S A0,FACW . SET FOR R$.@D@@@@ LMJ X11,READ .NC )@@G@@ READ SEGMENT TABLE. @E@@@@ L,U X2,SGNTFW-4 . SET POINTERND )@@G@@ TO SEGMENT TABLE.@G@@@@ L,U X3,SGNTFW . INITIALIZE POINTENE )@@G@@R TO ELEMENT TABLE. @^@@@@ A,H1 X3,FACW @D@@@@ S NF )@@G@@ X3,ELNTAB . SAVE ELEMENT TABLE FWA.@^@@@@ LXI,U X2,4 NG )@@G@@@D@@@@ SZ A3 . CLEAR RUNNING SEG, ELT,@D@@@@ NH )@@G@@ SZ LCTAB . EVEN/ODD LC COUNTS. @F@@@@ J SENI )@@G@@GEND . WHILE SEGMENTS REMAIN (R1 > 0): @[@@@@. @G@@@@. FOR NJ )@@G@@EACH SEGMENT, READ ITS ELEMENT TABLE. IN WORD 2,H2 OF EACH SEG- @G@@@@NK )@@G@@. MENT ITEM, INSERT THE CORRESPONDING ELEMENT TABLE FWA. IN EACH ELE- NL )@@G@@@C@@@@. MENT TABLE ITEM, MODIFY WORDS 2,3 AS FOLLOWS: @[@@@@. @F@@@@NM )@@G@@. ------------------------- -------------------------@F@@@@NN )@@G@@. 2 :A: MAXLC+1 : FWD INDEX : : 0 :A: MAXLC+1 :@F@@@@NO )@@G@@. ------------------------- BECOMES -------------------------@F@@@@NP )@@G@@. 3 : TDATE$ : : SEG # : ELT # : ELC # :@F@@@@NQ )@@G@@. ------------------------- -------------------------@[@@@@NR )@@G@@. @G@@@@. THE THIRD-WORD ITEMS IN WORD 3 ARE CUMULATIVE, BEGINNING WNS )@@G@@ITH VALUE @G@@@@. ZERO AND INCREASING MONOTONICALLY. IN PARTICULAR, 'ENT )@@G@@LC #' IS THE NUM- @F@@@@. BER OF NON-VOID EVEN LC'S ENCOUNTERED PREVIOUSNU )@@G@@ TO THIS ELEMENT. @]@@@@/SEGBEG . @G@@@@ S,H2 X3,4+2,*X2 .NV )@@G@@ PUT ELEMENT TABLE FWA IN SEGMENT TABLE. @D@@@@ L,H1 A0,FACW NW )@@G@@ . FIND ELEMENT TABLE FSA.@ @@@@ LMJ X11,CDV28 @^@@@@NX )@@G@@ A A0,FSECT@^@@@@ S A0,FSECT@D@@@@ L NY )@@G@@ A2,2,X2 . ELEMENT TABLE WC,FWA. @^@@@@ S A2,FACW NZ )@@G@@@D@@@@ LMJ X11,READ . READ ELEMENT TABLE. @C@@@@ OA )@@G@@ NOP 0,0,*A2 . [A2] = WC, LWA+1.@D@@@@ LXM,U X11,0,A2OB )@@G@@ . SAVE LWA+1 FOR STOPPER.@G@@@@ J ELTEND . WHILEOC )@@G@@ ELEMENTS REMAIN (0,X3 < 0,X11): @]@@@@ELTBEG . @F@@@@ S OD )@@G@@ A3,3,X3 . PUT SEG #, ELT #, ELC # IN TABLE. @E@@@@ L,H1OE )@@G@@ A0,2,X3 . GET A, ELEMENT LC COUNT. @C@@@@ AND,U A0OF )@@G@@,1*/15-1 . A1 = LC COUNT. @F@@@@ XOR,H1 A1,2,X3 . A2 = OG )@@G@@A (RLIB$, COMMON FLAG BITS). @D@@@@ SSL A2,15 . FLAGSOH )@@G@@ TO BITS 1,0. @B@@@@ S,H1 A2,2,X3 . PUT FLAGS, @E@@@@OI )@@G@@ S,H2 A1,2,X3 . LC COUNT BACK IN TABLE. @F@@@@ OJ )@@G@@ A,U X3,4 . BUMP POINTER TO FIRST LC WORD. @F@@@@ OK )@@G@@ LN A2,LCTAB . GET COUNT OF ODD LC'S FOUND SO FAR.@^@@@@ OL )@@G@@ LSSL A0,18+2 @F@@@@ SSL A0,36-1 . [A0]=0 UNLESS ACTOM )@@G@@UAL COMMON BLOCK. @E@@@@ J LCEND . WHILE LC'S REMAINON )@@G@@ (A1 > 0): @]@@@@LCBEG . @G@@@@ JNZ A0,F$(1) . NEVEROO )@@G@@ SKIP LC 0 IF ACTUAL COMMON BLOCK. @D@@@@ L A0,0,X3 .OP )@@G@@ ELSE, GET THE WORD. @E@@@@ TEP,U A0,1*/17 . IF COMMON BOQ )@@G@@LOCK REFERENCE, @C@@@@ SZ 0,X3 . CLEAR IT OUT. OR )@@G@@@D@@@@ TNZ,H1 0,X3 . IF LC WORD-COUNT > 0, @^@@@@ OS )@@G@@ J F$(2) @D@@@@ TN A2 . AND IF THIS LC OOT )@@G@@DD, @D@@@@ A,U A2,1 . BUMP ODD LC COUNT; @D@@@@OU )@@G@@ TP A2 . OR IF THIS LC EVEN, @D@@@@L$(L$) AT OV )@@G@@ A3,(0,0,1) . BUMP EVEN LC COUNT. @E@@@@L$(L$) LN A2,A2 OW )@@G@@ . INVERT EVEN/ODD INDICATOR. @C@@@@ A,U X3,1 .OX )@@G@@ BUMP POINTER. @E@@@@ SZ A0 . CLEAR ACTUAL-CB LOY )@@G@@C-0 FLAG. @E@@@@LCEND JGD A1,LCBEG . REPEAT WHILE LC'S REMAIOZ )@@G@@N. @E@@@@ AT A3,(0,1,0) . THEN BUMP ELEMENT COUNT AND PA )@@G@@@F@@@@ SM A2,LCTAB . SAVE # OF ODD LC'S FOUND SO FAR. PB )@@G@@@D@@@@ELTEND TLEM,U X3,0,X11 . IF ELEMENTS REMAIN, @C@@@@ PC )@@G@@ J ELTBEG . GO DO ANOTHER. @E@@@@ AT A3,(1,0,PD )@@G@@0) . THEN BUMP SEGMENT COUNT. @E@@@@SEGEND JGD R1,SEGBEG .PE )@@G@@ REPEAT WHILE SEGMENTS REMAIN.@E@@@@/. ALL ELEMENT TABLES IN CORE AND EDPF )@@G@@ITED. BUILD LC TABLE. @E@@@@ SM A2,FACW . SAVE FINAL PG )@@G@@ODD LC COUNT. @B@@@@ AT A3,FACW . FIND AND @E@@@@PH )@@G@@ S,T1 A3,LCTAB . SAVE FINAL TOTAL LC COUNT. @^@@@@ PI )@@G@@ SSL A3,12 @E@@@@ S,T1 A3,ELNTAB . SAVE FINAL ELEMENPJ )@@G@@T COUNT. @D@@@@ S,H2 X3,LCTAB . SAVE LC TABLE FWA. PK )@@G@@@C@@@@ L,T1 A0,LCTAB . GET LC COUNT. @E@@@@ MSI,PL )@@G@@U A0,3 . FIND LENGTH OF LC TABLE. @E@@@@ A,U A0PM )@@G@@,0,X3 . EXPAND CORE TO CONTAIN IT. @^@@@@ ER MCORE$ PN )@@G@@@E@@@@ LXI,U X3,3 . SET INCREMENT FOR LC POINTER.@G@@@@PO )@@G@@. THE CODE FROM PASSBEG TO PASSEND IS TRAVERSED TWICE--ONCE FOR ODD AND PP )@@G@@@G@@@@. ONCE FOR EVEN LC'S--THE ELEMENT TABLE CORRESPONDINGLY BEING SCANPQ )@@G@@NED @G@@@@. TWICE. THE SECOND PASS IS MARKED BY SETTING X2'S MODIFIERPR )@@G@@ TO -0. @F@@@@ SZ X2 . SET TO DO ODD LC'S IN FPS )@@G@@IRST PASS. @]@@@@PASSBEG . @E@@@@ LXM,H2 X2,ELNTAB . SET PPT )@@G@@OINTER TO ELEMENT TABLE.@F@@@@ J ELEND . UNTIL END OPU )@@G@@F LAST ELEMENT REACHED: @]@@@@ELBEG . @F@@@@ L,H2 R1,2,X2 PV )@@G@@ . GET LC COUNT FOR THIS ELEMENT. @^@@@@ L,T2 A0,3,X2 PW )@@G@@@D@@@@ LXI,T1 A0,3,X2 . [A3] = SEG #, ELT #. @E@@@@ PX )@@G@@ L,H1 A1,2,X2 . GET RLIB$, COMMON BLOCK BITS.@C@@@@ TEP,PY )@@G@@U A1,2 . IF RLIB$ BIT SET,@B@@@@ LXI,U A1,1*/16 .PZ )@@G@@ SET L-BIT.@E@@@@ TEP,U A1,1 . IF COMMON BLOCK BIT SETQA )@@G@@, @B@@@@ LXI,U A1,1*/14 . SET X-BIT.@G@@@@ LXM,QB )@@G@@U A1,4 . INITIALIZE BDI FIELD, SET LC TO ZERO. @F@@@@ QC )@@G@@ A,U X2,4 . BUMP ELEMENT POINTER TO FIRST LC. @C@@@@ QD )@@G@@ J LCTEND . WHILE R1 > 0: @]@@@@LCTBEG . @E@@@@ QE )@@G@@ TNZ 0,X2 . AND IF WC OR FWA NON-ZERO, @^@@@@ J QF )@@G@@ F$(3) @E@@@@ AND A1,(02400,077,4) . CLEAN UP LC/BDI WOQG )@@G@@RD. @^@@@@ LDSL A1,36 @D@@@@ TOP,U A1,1*/12 .QH )@@G@@ IF LC IS EVEN (D-BANK),@E@@@@ A A1,(1*/35+1) . SET D-BIT,QI )@@G@@ SET BDI TO 5. @D@@@@ TN X2 . IF THIS IS PASS 1QJ )@@G@@, @E@@@@ JN A1,F$(3) . IGNORE IF THIS LC EVEN. QK )@@G@@@D@@@@ TP X2 . IF THIS IS PASS 2, @D@@@@ QL )@@G@@ JP A1,F$(3) . IGNORE IF THIS LC ODD.@C@@@@ L A2QM )@@G@@,0,X2 . GET LC WC,FWA. @C@@@@ JN A2,F$(1) . NORMAQN )@@G@@L ITEM? @C@@@@ TNZ,H2 0,X2 . YES. IF FWA ZERO,@D@@@@QO )@@G@@ A A1,(1*/31) . SET R-BIT (R-SEG). @^@@@@ J QP )@@G@@ F$(2) @G@@@@L$(L$) A A1,(1*/33) . NO. COMMON BLOCK REFEREQQ )@@G@@NCE. SET C-BIT. @^@@@@ LSSL A2,1 @F@@@@ DSL A2QR )@@G@@,18+1 . [A2] = ELEMENT RELATIVE INDEX. @^@@@@ SSL A2QS )@@G@@,2 @^@@@@ MSI,U A2,5 @D@@@@ SSL A3,18 .QT )@@G@@ [A3] = SEGMENT NUMBER. @E@@@@ LSSL A3,2 . FORM SEGMENQU )@@G@@T TABLE POINTER. @ @@@@ A,U A3,SGNTFW @G@@@@ A,H2QV )@@G@@ A2,2,A3 . POINTER TO ACTUAL COMMON BLOCK ENTRY. @E@@@@ QW )@@G@@ L,T3 A2,3,A2 . GET COMMON BLOCK EVEN LC #. @D@@@@ A QX )@@G@@ A2,FACW . ADD TOTAL ODD LC COUNT.@E@@@@L$(L$) DS A0,0,X3 QY )@@G@@ . PUT SEG #, ELT #, DLXCR-BITS,@F@@@@ S A2,2,*X3 .QZ )@@G@@ LC, BDI, WC AND FWA IN TABLE. @E@@@@L$(L$) A,U X2,1 .RA )@@G@@ BUMP ELEMENT TABLE POINTER. @C@@@@ A,U A1,1*/12 . BUMP RB )@@G@@LC NUMBER. @E@@@@LCTEND JGD R1,LCTBEG . REPEAT TO END OF ELEMENRC )@@G@@T. @D@@@@ELEND TLEM,U X2,0,X11 . IF ELEMENTS REMAIN, @B@@@@RD )@@G@@ J ELBEG . REPEAT. @H@@@@PASSEND TP X2 RE )@@G@@ . ELSE, WAS THIS PASS 1 THROUGH ELEMENT TABLE? @G@@@@ J RF )@@G@@ $+3 . NO, PASS 2. ALL LC'S (ODD & EVEN) DONE. @F@@@@ RG )@@G@@ L,XU X2,-1 . YES. SET TO RESCAN ELEMENT TABLE. @E@@@@ RH )@@G@@ J PASSBEG . THIS TIME DOING EVEN LC'S. @[@@@@. @B@@@@RI )@@G@@. ALL TABLES COMPLETE. CLOSE UP ALL GAPS. @E@@@@ L,U X2,SGNTFRJ )@@G@@W . SET POINTER TO SEGMENT ITEMS.@ @@@@ L,U X3,SGNTFW RK )@@G@@@D@@@@ LXI,U X3,4 . COMPRESS 4-WORD ITEMS @C@@@@ RL )@@G@@ LXI,U X2,2 . TO 2-WORD ITEMS.@D@@@@ L,T1 R1,SGNTARM )@@G@@B . GET SEGMENT COUNT. @B@@@@ TNZ R1 . IF NORN )@@G@@NE, @D@@@@ A,U X3,4 . SKIP OVER DUMMY ITEM. @C@@@@RO )@@G@@ J $+3 . WHILE R1 > 0: @C@@@@ DL A0RP )@@G@@,0,*X3 . COMPRESS TABLE. @^@@@@ DS A0,0,*X2@^@@@@ RQ )@@G@@ JGD R1,$-2 @[@@@@. @G@@@@ L,U A0,0,X2 . NEW SRR )@@G@@TART ADDRESS FOR ELEMENT TABLE. @ @@@@ AN,U A0,ELNTAB+2 RS )@@G@@@G@@@@ S,H2 A0,ELNTAB . FIX UP ELEMENT TABLE DIRECTORY ITEMRT )@@G@@. @^@@@@ L,U A0,2 @ @@@@ S,S3 A0,ELNTAB RU )@@G@@@C@@@@ L,T1 R1,ELNTAB . ELEMENT COUNT. @C@@@@ J RV )@@G@@ F$(2) . WHILE R1 > 0: @C@@@@L$(L$) DL A0,0,X3 .RW )@@G@@ COMPRESS TABLE. @^@@@@ DS A0,0,*X2@^@@@@ A,H2 X3RX )@@G@@,2,X3 @^@@@@ A,U X3,4 @^@@@@L$(L$) JGD R1,B$(1)@[@@@@RY )@@G@@. @F@@@@ L,U A0,0,X2 . NEW START ADDRESS FOR LC TABLRZ )@@G@@E. @ @@@@ AN,U A0,LCTAB+3 @F@@@@ S,H2 A0,LCTABSA )@@G@@ . FIX UP LC TABLE DIRECTORY ITEM. @^@@@@ L,U A0,3 SB )@@G@@@^@@@@ S,S3 A0,LCTAB@D@@@@ MSI,T1 A0,LCTAB . LENGTSC )@@G@@H OF LC TABLE. @^@@@@ L R1,A0 @E@@@@ LXI,U X2SD )@@G@@,1 . BLOCK-TRANSFER LC TABLE. @^@@@@ LXI,U X3,1 SE )@@G@@@^@@@@ BT X2,0,*X3@D@@@@ LXI,U X2,'OLD' . MARK SF )@@G@@COLLECTOR FORMAT. @^@@@@ J OFINIS @^@@@@ OFF OLSG )@@G@@D @D@@@@/. COME HERE IF NO DIAGNOSTIC TABLES AND NEW FORMAT. @]@@@@SH )@@G@@NODNEW . @^@@@@ LXI,U X2,'NEW'@E@@@@NODOLD SZ SGNTAB SI )@@G@@ . AND HERE, IF OLD FORMAT. @G@@@@ SZ ELNTAB .SJ )@@G@@ MARK NO SEGMENT, ELEMENT OR LC TABLES. @^@@@@ SZ LCTAB SK )@@G@@@^@@@@OFINIS SZ EPNTAB @^@@@@ SZ ABSVTAB @]@@@@FINIS SL )@@G@@ . @I@@@@ ON 0 . DELETE LCTAB SORT INTO INCREASM )@@G@@SING INDICIAL ORDER. @^@@@@ LXI,U X3,3 @E@@@@ LXM,SN )@@G@@U X11,LCTAB . SET POINTER TO LC TABLE. @E@@@@ A,H2 X1SO )@@G@@1,0,X11 . POINTS TO FIRST ITEM - 3. @C@@@@ L,T1 A0,LCTABSP )@@G@@ . LC ITEM COUNT. @D@@@@ J SORTEND . ENTER BUBBLSQ )@@G@@E SORT. @[@@@@. @F@@@@SORTBEG L R1,A0 . NUMBER OF RSR )@@G@@EMAINING ITEMS - 1. @F@@@@ LXM,U X11,3,X11 . POINTS TO FSS )@@G@@IRST REMAINING ITEM. @E@@@@ LXM,U X3,0,X11 . SET 'SLE'-CST )@@G@@OMPARISON POINTER.@F@@@@L$(L$) L,U A3,0,X3 . POINTER TO ITEM TSU )@@G@@O COMPARE AGAINST.@E@@@@ L A1,0,A3 . GET ITS SEG,ELT ISV )@@G@@NDICES. @C@@@@ L,T3 A2,1,A3 . GET ITS BDI. @H@@@@SW )@@G@@L$(L$) SLE A1,3,*X3 . LOOK FOR ANOTHER WITH LOWER INDICES, SAMESX )@@G@@ BDI. @C@@@@ J F$(1) . NONE REMAIN. @E@@@@ SY )@@G@@ TE,T3 A2,1,X3 . SOMETHING FOUND. SAME BDI? @G@@@@ J SZ )@@G@@ F$(1) . YNO. ABANDON SEARCH AGAINST THIS ITEM. @G@@@@ TA )@@G@@ TNE A1,0,X3 . YES. INDICES MERELY EQUAL (NOT LOWER)? @D@@@@TB )@@G@@ J B$(1) . YES. KEEP SEARCHING. @G@@@@ J TC )@@G@@ B$(2) . NO, LOWER. USE AS NEW COMPARISON ITEM. @[@@@@. TD )@@G@@@F@@@@L$(L$) TNE,U A3,0,X11 . ANY ITEM FOUND WITH LOWER INDICES? TE )@@G@@@^@@@@ J SORTEND @F@@@@I $REPEAT 0,2 . IF SOTF )@@G@@, SWAP WITH ORIGINAL ITEM. @ @@@@ $DO \\I , L A1,I,A3 @^@@@@TG )@@G@@ L A2,I,X11@^@@@@ S A1,I,X11@^@@@@ S TH )@@G@@ A2,I,A3 @#@@@@ $ENDR @F@@@@SORTEND JGD A0,SORTBEG .TI )@@G@@ REPEAT WITH NEXT REMAINING ITEM. @D@@@@ OFF .TJ )@@G@@ END OF SORT DELETION. @F@@@@/ L A0,X2 . [A0] = 'NEWTK )@@G@@' OR 'OLD', TABLE LWA+1.@D@@@@ AN,U A0,AETAB . FIND TABLE TL )@@G@@LENGTH. @F@@@@ERROR L A1,UPSR . COME HERE IF I/O ERROR TM )@@G@@ARISES. @E@@@@ LPD 0,A1 . RESTORE USER'S PSR BITSTN )@@G@@. @E@@@@ L A1,EDATE . GET COLLECTION DATE (IF ANY).TO )@@G@@@D@@@@ LXM X1,SVX1M . RESTORE REGISTERS. @^@@@@ TP )@@G@@ L X2,SVX2 @^@@@@ L X3,SVX3 @ @@@@ LXM X1TQ )@@G@@1,SVX11M @B@@@@ J 0,X11 . RETURN. @#@@@@/. SUBTR )@@G@@ROUTINES. @G@@@@READ . [X11]. DO ANY REQUIRED MCORE$, THEN READ ANDTS )@@G@@ TEST STATUS. @A@@@@ L,H1 A0,FACW . WC. @E@@@@ TT )@@G@@ JZ A0,0,X11 . IF ZERO, NOTHING TO READ. @C@@@@ A,H2TU )@@G@@ A0,FACW . WC + FW = LW + 1.@A@@@@ AN,U A0,1 .TV )@@G@@ LW. @C@@@@ ER MCORE$ . EXPAND CORE. @A@@@@ TW )@@G@@ I$OW FPKT . READ.@B@@@@ LN,S1 A0,FPKT+3 . GET STX )@@G@@TATUS.@C@@@@ JZ A0,0,X11 . RETURN IF OK. @C@@@@ TY )@@G@@ J ERROR . ERR OFF IF NOT. @[@@@@. @B@@@@CDV28 . [XTZ )@@G@@11]. SET [A0] = [A0]//28. @^@@@@ A,U A0,28-1 @^@@@@ UA )@@G@@ DSL A0,36 @^@@@@ DI,U A0,28 @^@@@@ J 0,UB )@@G@@X11 @[@@@@. @[@@@@. @]@@@@$(2) . @D@@@@AETAB EQUF 0,UC )@@G@@X1 . POINTER TO TABLE FWA. @^@@@@FHT EQUF AETAB @G@@@@UD )@@G@@ AE$TAB . DEFINES BNKTAB, SGNTAB, ELNTAB, LCTAB, UE )@@G@@@G@@@@BNKTFW EQUF BNKTAB+6 . \ EPNTAB, ABUF )@@G@@SVTAB.@G@@@@SGNTFW EQUF BNKTFW+6 . FWA OF SEGMENT TABLE FOR OLD UG )@@G@@COLLECTOR. @[@@@@. @]@@@@FPKT +0D @]@@@@UPSR +0,0@#@@@@ UH )@@G@@ +R$,0,0 @]@@@@FACW +0,0@]@@@@FSECT +0 @[@@@@. @F@@@@EDATE UI )@@G@@ +0,0 . PROGRAM COLLECTION DATE & TIME. @^@@@@SVX11MUJ )@@G@@ EQUF $,,H1 @^@@@@SVX1M EQUF $,,H2 @]@@@@ +0,0@]@@@@UK )@@G@@SVX2 +0 @]@@@@SVX3 +0 @]@@@@ END ___ AM COLLECTION DATEUL )@@G@@ & TIME. @^@@@@SVX11M)@@[N[KO^KO [KK@@@&;0@@WQ@K@@JAE0@@BA@0@@DA@)@@CUM )@@G@@A^K@@BB0@@[@B4@@@][@)@@ 9*@@@@AA@@@D)@E[N[K@K@^^@@@@@@CC[@@A[@@@@AC@[@@HUN )@@G@@[@[@@@&B[@@L/K@@]=1@[@@@C^[@@^/,0@ 7[@0@@^AB@@@D)@O[U@@@@@@@[W[@@A;C@@@MUO )@@G@@[W[@@ W8@@@#;G@@@=&F[@@QC^[@@R[W[@@#;C@@@[C^[@@T[W[@@^AC@@@D)@Z[U@@@@@@@UP )@@G@@[?[@@C[?[@@B[?[@@A[?[@@#C8@@@#[WL@@C;CK@@M[WL@@BW8K@@#&F-@@TCC-@@SAD@@@DUQ )@@G@@)@%[U@^@[@@@[^[@@ /,0@A[CC[@@RN@K@@GG@[@@K/,0@A[G^[@@SCC[@@L[?[@@ [?[@@^UR )@@G@@C8@@@]AE@@@D)@5[UK@@@K@@/,0@A[C^[@@Q]^1@@^K^-@@ [^[@@#H8@@@[G^[@@ G@@@[[US )@@G@@C@)@@G/,0@A[C^[@@RAF@@@D)[@[U[@[@@@@R8-@@DT?[@@#CW[@@#[^[@@C/,0@A[CC[@@SUT )@@G@@[^[@@B/,0@A[CC[@@Q[^[@@AG@@@@IAG@@@D)[F[M[[KL[K^G@^^@@A@)@@^C@0@@@/,0@ 7UU )@@G@@[@@@@ G8@@@[C@@@@ A@0@@^&^1@@TO@0@@GR@0@@]AH@@@D)[P[M[@KO^KK@@@@@@H8Y@@@UV )@@G@@C8M@@@[@K@@ GGY@@@C@K@@ [CK@@^T4Z@[*CWY@@@G8\@@@C8-@@#AI@@@D)[Z[M^@[@^@'UW )@@G@@8@@@@@#]@@[,/KJ0[*NWY@@@&0_@[*&?,@@@R@0@@]*8J@@@/,0@ 7[^Y@@@H?Y@@@AJ@@@DUX )@@G@@)[([]'8@I,@#:)@'8@I,@[@K@@@@@@/^@@[;/K@@[_CW[@@ ##@@]-##@@]P##@@]N##@@]^UY )@@G@@^^@@]^AK@@@D)[1[MK0@@^[#@@@@@@9*M@@@;=K@@GC@K@@]/^@@[3;GK@@AG8K@@0W8@@@EUZ )@@G@@;G@@@=C@)@@[CW#@@@AL@@@D)[;[M@K^[@[@@@@@@@8KK@]]9*M)@@9?N)@@/K@@[O/@@@ $VA )@@G@@8KK@[0[@+)@];@)@@G;=K@@G9?N)@@AM@@@D)] [V@[@@@@@[C+@@@;GK@@&CCM@@@[^M@@]VB )@@G@@W8K@@#;GK@@=C^M@@]/K@@]H>8K@@CC4M@@[/K@@[OAN@@@D)]K[U[@K@^@@C^!@@]KC]@@]VC )@@G@@/K@@]ZG?[@@AG^G@@@C8[@@A/K@@[O8KK@]A[^M)@@W8K@@#C^+@@@AO@@@D)]V[M@K^[[^@VD )@@G@@@@@@@@&B[@@A/K@@ !&8)NEWOC)@@^/K@@[O8KK@]T[@M)@]&;Y@@@H8L@@@G^+@@]AP@@@DVE )@@G@@)]>[MKKK0@@@@@@@@@H@@@@HG8@^@[CW[@@#CSL@@[B0@@[C'K0@@#;*0@@SCC1@@A @@@@AVF )@@G@@[@[@@@AQ@@@D)]\[U@@@@@@@[@L@@I[@[@@FB0@@[@;?K@@G;*)@@SH@K@@IG8K @[CSL@@#VG )@@G@@CS-@@];?@@@G;*K@@SAR@@@D)]'[N#@@@KO #@@@@@&;@D-B9*[@@D9?@@@ [@@@@ G@@@@ VH )@@G@@N@K@@GC@[@@B9*[@@[ @@@@HC@@@@^AS@@@D)#^[MK0@^@^@@@@@@@C8@@@[(@@@@GCW[@@^VI )@@G@@/K@@ *&8)OLDR8-@@J8KK@#F9*-@@#C@)@@B9*[@@GAT@@@D)#I[U[[K@KK@ @@@@J&8)@@^VJ )@@G@@A@1@@ OC0@@^R81@@JR8-@@F/,0@ 7[@@@@^Q;[@@J;*@@@ON@K@@GAU@@@D)#T[MK[[K^ [VK )@@G@@^ @@@@/,0@ 7[@)@@^C@+@@][@@@@ G@@@@ /,0@A[CC@@@^A^2)@A/K@@^ @[@@AAV@@@DVL )@@G@@)#<[U^@@@@@@O80@@^[^N@@][C<@@];C)@@J-CN@@]+8@B__CC#@@][@3@@#/K@@^]Q'"@@@VM )@@G@@/SI)@@AW@@@D)#,[U[@K@[@@1@@@@I/K@@#/(C#@@@ @#@@@=8@)@@C@#@@@/^@@#;/K@@#_VN )@@G@@;C@@@<;*@@@OD@-@@AAX@@@D)#9[M^G@@^[#@@@@@@$8;@@@#@-@@A'S0@@D8#K@#2 @@@@GVO )@@G@@O80@@[D@)@@I'S0@@C0@@@@IG8)@@[AY@@@D)^#[N@K0@K^ [@@@@@CW[@@AA^1@@A[W1@@ VP )@@G@@;C0@@G[W1@@A'S0@@^#@)@@^8KK@#V'S0@@E/K@@#&AZ@@@D)^H[M^C@@^@@@@@@@@&Z]@@#VQ )@@G@@CS]@@#N^M@@]/K@@^"Q^-@@ @@@@]&80@@#'=@@@@G8#@@@T8@@@#BA@@@D)^R[M@@K[@@@VR )@@G@@@@@@@@/K@@^;(@]@@@/K@@^.O8)@@^Q;K@@^&;K^@@=8K@@[&;KK@@=8K@@]CCM@@]BB@@@DVS )@@G@@)^-[N#@@^G@[@^@K@@/G)@^,C@+@@@/CK@^;0@@@@]/GK@^;1@@@@]G@K@@G>8K[@@;?K@@=VT )@@G@@+@K@@FBC@@@D)^:[MK0@K^G@@@@@@@;*0@@];C0@@MT8)@@ ;C)@@];G)@@N;*)@@[G@K@@IVU )@@G@@/K@@^9G@K@@H(^]@@@BD@@@D)^5[U[[@^@K@/K@@^O$8:@@@8KK@^ZG8K[@@O8)@@[[@<)@]VV )@@G@@9*#@@@G@)@@^CO,@@#G^\@@]G81@@JBE@@@D) @[UK[@@@@@O80@@^(@@@[[NWL@@^&8)@@]VW )@@G@@&80@@^R81@@JR8-@@J/K@@^MR/)__"/K@@ ^0@@@@]BF@@@D) F[V@[@@@K@/K@@ UNWL@@ VX )@@G@@[?[@@ C8@@@][^[@@ H8[@@BC8]@@@8KK@ G9*])@@9?#)@@/K@@ IBG@@@D) Q[U@K@@@@@VY )@@G@@TW[@@A[?[@@AC8@@@#[^[@@AH8[@@DC8]@@@8KK@ QO80@@^O^3@@]9*])@@9?#@@@BH@@@DVZ )@@G@@) -[U@^@@@@@ @[@@B @[@@A @[@@ @[@@^&8)NEW/K@@ :&8)OLDM@<)@@&80@@[&8)@@[WA )@@G@@N@K@@GBI@@@D) ?[M[[^ [KO [@@@@QE0@@BR@0@@DR@)@@CQ^K@@BC@K@@AB0H@@@C@K@@]WB )@@G@@H8[@@@C@@@@] @[@@CBJ@@@D) 6[MKL[^C@]+-@]))/@F@@@D4@@@#'=@@@@C/@@@@'=@@@@WC )@@G@@H8@@@[G^@@@^/@F@@@CC@@@^/KF@@@BK@@@D)A@@:@@@@@@@)@@@=@/V]@C@@@@@@@@@@@@@WD )@@G@@@@@@@@@@@@@@/KF@@@W8@@@W;G@@@=G8@@@V/K@@ \BL@@@D)@^@4@@@@@@@)@@@S@@@@@@@WE )@@G@@ BANK @@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BM@@@D)@#[S@@@@@@@WF )@@G@@]@@@@@)@@@@[O@@_@^@[@@@@@@@[@@@@@@@[@]#@@# I-BANK@@^@@ @@]@@DBN@@@DWG )@@G@@)@I@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WH )@@G@@C@@@@@BO@@@D@@@@@@@[@^@'8@@@@@#]@@[,/KJ0[*NWY@@@&0_@[*&?,@@@R@0@@]*8J@@@WI )@@G@@/,0@ 7[^Y@@@H?Y@@@AJ@@@D@@^@@#@@B@@#@@H@@[@@L@@@@@E@@J@@@@A @@@@@EMCORE$WJ )@@G@@ IOW$ R$ WRTAET @@[@@@@@@@@@9*M@@@;=K@@GC@K@@]WK )@@G@@/^@@[3;GK@@AG8K@@0W8@@@E;G@@@=C@)@@[CW#@@@AL@@@D*[S@@@*SDFF*@E@@@@. COPYWL )@@G@@RIGHT 1979, B. E. CHI, SUNY-ALBANY, ALBANY NY 12222. @G@@@@. THIS ELEMEWM )@@G@@NT IMPLEMENTS COMMANDS RELATED TO PROGRAM BREAKS AND TRAPS. @[@@@@. WN )@@G@@@]@@@@$(1) MNM$@]@@@@ IF$ @]@@@@ LOC$@#@@@@ DXDEWO )@@G@@F @#@@@@ RESDEF @#@@@@ NRSDEF @[@@@@. @^@@@@WP )@@G@@. GO COMMAND. FORMAT: @ @@@@. >GO [N] OR >GO ADDR @G@@@@. BOTHWQ )@@G@@ FORMS RETURN TO RUN MODE. THE FIRST FORM RETURNS TO CONTROL @F@@@@WR )@@G@@. MODE WHEN N BREAKS HAVE OCCURRED, THE SECOND WHEN THE P-COUNTER @B@@@@WS )@@G@@. CONTENTS EQUALS THE SPECIFIED ADDRESS. @[@@@@. @]@@@@GO* . WT )@@G@@@F@@@@ IF NXTADDR IS ZERO, /ERROR 0 . PROGRAM HAS TERMINATED. WU )@@G@@@D@@@@ SZ A6 . DEFAULT GO COUNT IS 1. @E@@@@ WV )@@G@@ IF ENDSTR,,U NE A2 . THEN SPECIFICATION PRESENT. @C@@@@ LMWW )@@G@@J X11,DCDAD . DECODE SPEC. @C@@@@ J STXERR .WX )@@G@@ SYNTAX ERROR. @C@@@@ J F$(1) . ADDRESS ERROR. WY )@@G@@@E@@@@ TNZ REGFLAG . ADDRESS DECODED. IS IT CORE? @E@@@@WZ )@@G@@ S$TE . AND END OF SPEC ENCOUNTERED? @A@@@@ XA )@@G@@ SYNTAX ERROR . NO. @F@@@@ IF BNKFLG IS ZERO, /ERROXB )@@G@@R *4 . THEN BANK NOT BASED. @E@@@@ L A0,ABSADDR . SETXC )@@G@@ 1-TIME BREAKPOINT. @ @@@@ LXI A0,SLTPTR @G@@@@ XD )@@G@@ A A0,(1*/35) . MARK TO BE REMOVED ON FIRST SWAPOUT. @G@@@@XE )@@G@@ S A0,BRKLIST . PUT IN LOCATION RESERVED FOR GO BREAK. XF )@@G@@@^@@@@ J F$(2) @[@@@@. @H@@@@L$(L$) IF 10,,U NE XG )@@G@@A0, /J ADRERR . THEN NOT 'NO SUCH ADDR IN ANY BANK'. @G@@@@ XH )@@G@@L A6,ABSADDR . ELSE, TAKE DECODED VALUE AS GO COUNT. @B@@@@ XI )@@G@@ AN,U A6,1 . COUNT - 1. @H@@@@ IF A6 IS NEG OR 07XJ )@@G@@77,,U LE A6, /ERROR 1 . COUNT < 1 OR > 511. @F@@@@L$(L$) ENDIF XK )@@G@@ . CASE WHERE GO SPECIFICATION GIVEN. @[@@@@. @D@@@@ XL )@@G@@ S A6,BRKCT . SAVE BREAK COUNT - 1. @F@@@@ LM A3XM )@@G@@,NXTADDR . GET ADDRESS OF NEXT INSTRUCTION. @^@@@@ J REXN )@@G@@START @ @@@@/. JUMP COMMAND. FORMAT: @#@@@@. >JUMP [ADDR] @E@@@@XO )@@G@@. RETURN TO RUN MODE, STARTING AT THE SPECIFIED ADDRESS. @[@@@@. XP )@@G@@@ @@@@. PGMCTR COMMAND. FORMAT: @#@@@@. >PGMCTR [ADDR] @H@@@@. SET XQ )@@G@@PROGRAM COUNTER TO SPECIFIED ADDRESS (EVEN IF PROGRAM HAS TERMINATED) XR )@@G@@@A@@@@. FOR SUBSEQUENT 'STEP' OR 'GO'. @[@@@@. @]@@@@PGMCTR* . XS )@@G@@@E@@@@ IF ENDSTR,,U EQ A2 . THEN NO ADDRESS SPECIFIED. @F@@@@XT )@@G@@ IF NXTADDR IS ZERO, /ERROR 0 . PROGRAM HAS TERMINATED. @A@@@@XU )@@G@@ E$MSG ('[P]: & = &'L) @D@@@@ LM A0,NXTADDR .XV )@@G@@ ELSE, ENCODE [NXTADDR].@#@@@@ E$OCTV @#@@@@ E$MSGR XW )@@G@@@ @@@@ LM A0,NXTADDR @^@@@@ SZ A1 @ @@@@XX )@@G@@ LMJ X11,NCDAD @^@@@@ J ED$MSG@D@@@@ XY )@@G@@ ENDIF . CASE OF VOID SPEC. @]@@@@JUMP* . @D@@@@XZ )@@G@@ LMJ X11,DCDAD . DECODE ANY SPEC GIVEN. @D@@@@ J YA )@@G@@ STXERR . SYNTAX ERROR RETURN. @D@@@@ J ADRERR YB )@@G@@ . NO-SUCH-ADDRESS RETURN.@E@@@@ IF BNKFLG IS ZERO, /ERROR *4YC )@@G@@ . THEN BANK NOT BASED. @C@@@@ S$TE . END OF SPECYD )@@G@@? @A@@@@ SYNTAX ERROR . NO. @D@@@@ L A3YE )@@G@@,ABSADDR . YES. GET START ADDRESS.@F@@@@ IF 'JUM',,U EQ CD, /J YF )@@G@@RESTART . IF 'JUMP', ENTER RUN MODE.@D@@@@ S A3,NXTADDR .YG )@@G@@ IF 'PGMCTR', JUST SAVE.@^@@@@ J REQ @D@@@@/. EXECUTE NYH )@@G@@ INSTRUCTION CYCLES. COMMAND FORMAT: @]@@@@. >STEP [N] @[@@@@. YI )@@G@@@]@@@@STEP* . @G@@@@ IF NXTADDR IS ZERO, /ERROR 0 . THEN PROGYJ )@@G@@RAM HAS TERMINATED. @E@@@@ SZ A4 . DEFAULT STEYK )@@G@@P COUNT IS 1. @E@@@@ IF ENDSTR,,U NE A2 . THEN SPECIFICATIOYL )@@G@@N PRESENT. @F@@@@ IF NUMBER,,U NE A2, /SYNTAX ERROR . IT MUST YM )@@G@@BE A NUMBER.@^@@@@ AN,U A0,1 @C@@@@ L A4,A0 YN )@@G@@ . [A4] = COUNT - 1.@#@@@@ S$NE @E@@@@ SYNTAXYO )@@G@@ ERROR . NEXT MUST BE END OF STRING. @H@@@@ IF A4 IS NEG OYP )@@G@@R 04000,,U LE A4, /ERROR *2 . COUNT < 1 OR > 2048. @E@@@@ ENDIYQ )@@G@@F . CASE WHERE STEP COUNT GIVEN. @F@@@@ LM A3YR )@@G@@,NXTADDR . GET ADDRESS OF NEXT INSTRUCTION. @F@@@@ S A3YS )@@G@@,EXADDR . SAVE FOR SVCBRK ROUTINE BELOW. @D@@@@ S A4YT )@@G@@,STPCT . SAVE STEP COUNT - 1. @E@@@@ SLJ EXEC .YU )@@G@@ EXECUTE INSTRUCTION AT [A3] @E@@@@. J SVCBRK . AND YV )@@G@@GO DESCRIBE RESULTS. @G@@@@/. THE CONTENTS OF THE TWO CELLS 'EXADDR' YW )@@G@@AND 'NXTADDR' IN RESIDENT DX @A@@@@. HAVE THE FOLLOWING SIGNIFICANCE: YX )@@G@@@[@@@@. @G@@@@. ON ENTRY INTO 'EXEC', EXADDR'S MAGNITUDE IS THE ADDRYY )@@G@@ESS OF THE IN- @G@@@@. STRUCTION TO BE EXECUTED. EXADDR IS NEGATIVE YZ )@@G@@IF THE CALL IS DUE TO A @C@@@@. BREAK; POSITIVE IF DUE TO A STEP COMMANDZA )@@G@@. @[@@@@. @F@@@@. ON EXITING FROM 'EXEC' (WHEREIN SEVERAL INSTRUZB )@@G@@CTIONS MAY HAVE @G@@@@. BEEN EXECUTED IN CASE OF 'STEP N'), EXADDR'S MZC )@@G@@AGNITUDE IS THE ADDRESS @H@@@@. OF THE LAST INSTRUCTION EXECUTED; NXTADDZD )@@G@@R'S MAGNITUDE THAT TO BE EXECU- @G@@@@. TED NEXT. NXTADDR IS NEGATIZE )@@G@@VE IF THE LAST INSTRUCTION ALTERED THE P- @F@@@@. REGISTER IN THE SENSE ZF )@@G@@OF A SKIP OR JUMP; POSITIVE OTHERWISE. @[@@@@. @G@@@@SVCBRK* ZG )@@G@@ . COME HERE IF BREAK/TRAP/@@X C OCCURS. @F@@@@ ZH )@@G@@ LM A0,EXADDR . ENCODE ADDRESS OF LAST INSTRUCTION.@ @@@@ ZI )@@G@@ LMJ X11,NCDBAD @F@@@@ S A1,LPBRKPT . SAVE LCT ITZJ )@@G@@EM FOR LATER REFERENCE. @ @@@@ LM A0,EXADDR @D@@@@ ZK )@@G@@ SLJ GETWD . GET THE INSTRUCTION. @E@@@@ IF (DX$BRKZL )@@G@@ ) NE A0 . THEN NOT A PROGRAMMED BREAK. @C@@@@ L A5,A0 ZM )@@G@@ . HOLD INSTRUCTION.@B@@@@ E$MSG (' <&>& NEXT: &'L) ZN )@@G@@@E@@@@ LMJ X11,SWMODE . SET WORD MODE FOR EINS$. @^@@@@ZO )@@G@@ L A0,A5 @D@@@@ LMJ X11,EINS$B . ENCODE THE ZP )@@G@@INSTRUCTION.@#@@@@ E$MSGR @E@@@@ ANDIF NXTADDR IS NEGZQ )@@G@@ . THEN SKIP OR JUMP OCCURRED.@F@@@@ L,U R1,UCJCT . SEE IZR )@@G@@F SKIP OR CONDITIONAL JUMP. @A@@@@ L R2,(I$ -0,-0) ZS )@@G@@@ @@@@ L A0,(1,0) @A@@@@ MSE A5,UCJMPS,ZT )@@G@@*A0 @B@@@@ J $+2 . IT WAS. @B@@@@ ZU )@@G@@J F$(1) . IT WASN'T. @F@@@@ E$MSGR . ENCODZV )@@G@@E NEXT INSTRUCTION ADDRESS. @ @@@@ LM A0,NXTADDR@ @@@@ZW )@@G@@ LMJ X11,NCDBAD@#@@@@L$(L$) ENDIF @^@@@@ J ZX )@@G@@ ED$MSG @[@@@@. @^@@@@UCJMPS LIJ 0,0 @^@@@@ LDJ ZY )@@G@@ 0,0 @^@@@@ LBJ 0,0 @^@@@@ SLJ 0,0 ZZ )@@G@@@^@@@@ JK 0,0 @^@@@@ LMJ 0,0 @^@@@@UCJCT AA )@@G@@ EQU $-UCJMPS@F@@@@/. EXECUTE AN ARBITRARILY GIVEN INSTRUCTION. COAB )@@G@@MMAND FORMAT: @C@@@@. >EXECUTE [ADDR] OR >EXECUTE INSTRUCTION AC )@@G@@@[@@@@. @]@@@@EXECUTE* . @D@@@@ L A4,THSITM . SAVE AD )@@G@@SCAN$ POINTER. @E@@@@ IF ENDSTR,,U NE A2 . THEN SPECIFICATIOAE )@@G@@N PRESENT. @E@@@@L$(L$) S$NF . SCAN TO END OF FIRST FIAF )@@G@@ELD. @^@@@@ J B$(1) @F@@@@ ANDIF ENDSTR,,U NE AAG )@@G@@2 . THEN ANOTHER FIELD FOLLOWS. @E@@@@ S A4,NXTITM AH )@@G@@. MUST BE INSTRUCTION ITSELF. @B@@@@ LMJ X11,DCDWORD . DEAI )@@G@@CODE. @ @@@@ SYNTAX ERROR @F@@@[ SZ A4 AJ )@@G@@ . INSTRUCTION IN A0. MARK AS FOUND. @#@@@[ ENDIF @[@@@[AK )@@G@@. @H@[@@ ELSE . NO SPEC ('$' IMPLIED) OR ONE AL )@@G@@FIELD (ADDRESS). @H@@@[ IF A4 IS NONZ . NO SPEC ('$' IMPLAM )@@G@@IED) OR ONE FIELD (ADDRESS). @ @@@@ S A4,THSITM @D@@@@AN )@@G@@ S$T . RESCAN FIRST ITEM. @E@@@@ LMAO )@@G@@J X11,DCDAD . DECODE ADDRESS SPECIFICATION.@^@@@@ J AP )@@G@@STXERR@^@@@@ J ADRERR@F@@@@ IF REGFLAG IS NONZ, AQ )@@G@@/ERROR 2 . ADDRESS NOT MAIN STORAGE.@E@@@@ IF BNKFLG IS ZERO, /AR )@@G@@ERROR *4 . BANK INACTIVE. @D@@@@ L A0,ABSADDR . GET SAS )@@G@@PECIFIED ADDRESS @E@@@@ SLJ GETWD . AND INSTRUCTION AT )@@G@@THEREAT. @#@@@@ ENDIF @A@@@@/. REQUIRED INSTRUCTION NOW INAU )@@G@@ A0. @E@@@@ IF (ER SETBP$) EQ A0 . THEN JUST SAVE SETBP$ PACKET.AV )@@G@@@I@@@@ IF U8FLAG IS NONZ, /ERROR 4 . UNLESS NO HARDWARE BREAKPOAW )@@G@@INT AVAILABLE. @ @@@@ DL A0,AREGS @ @@@@ DSAX )@@G@@ A0,BP$PKT @C@@@@ ELSE . NOT ER SETBP$. AY )@@G@@@E@@@@ L A4,A0 . [A4] = DESIRED INSTRUCTION. @C@@@@AZ )@@G@@ L,U A3,A4 . A3 POINTS TO A4. @F@@@@ L BA )@@G@@A0,NXTADDR . SAVE ANY BREAK OR STEP ADDRESS. @ @@@@ S BB )@@G@@A0,EXSAVE @G@@@@ S ONE,EXADDR . MARK 'EXECUTE', IN CASEBC )@@G@@ OF CONTINGENCY. @E@@@@ SLJ EXEC . GO EXECUTE THE INBD )@@G@@STRUCTION. @G@@@@ LN A0,NXTADDR . GET RESULTING P-REG (>0BE )@@G@@ IF SKIP/JUMP). @F@@@@ L A1,EXSAVE . RESTORE BREAK OR BF )@@G@@STEP ADDRESS. @ @@@@ S A1,NXTADDR @^@@@@ SZBG )@@G@@ EXSAVE@E@@@@ ANDIF A0 IS POS . THEN SKIP/JUMP OCCURREDBH )@@G@@. @G@@@@ IF A1 IS ZERO, /ERROR 3 . INFORM IF NO BREAKPOINBI )@@G@@T ACTIVE. @H@@@@ IF A4+2,,U EQ A0, /L,U A0,1,A1 . ELSE, INCBJ )@@G@@REMENT BREAK OR SKIP @H@@@@ BK )@@G@@ . ADDRESS IF SKIP (NOT JUMP). @F@@@@ S A0,NXTADDRBL )@@G@@ . SAVE NEW BREAK OR STEP ADDRESS. @#@@@@ ENDIF @^@@@@ BM )@@G@@ J REQ @D@@@@/. SET A (P-COUNTER) BREAKPOINT. COMMAND FORMATBN )@@G@@: @#@@@@. >SET [ADDR] @[@@@@. @ @@@@. CLEAR A BREAKPOINT. FBO )@@G@@ORMAT:@ @@@@. >CLEAR [ADDR] OR >CLEAR!@B@@@@. THE LATTER FORM CLEARSBP )@@G@@ ALL BREAKPOINTS. @[@@@@. @F@@@@. 2-WORD BREAKPOINT LIST ITEMS ARE ABQ )@@G@@S FOLLOWS: IF [WORD 0] = -0, @F@@@@. IGNORE ENTIRELY. ELSE, BITS 17-0 BR )@@G@@OF WORD 0 GIVE THE ADDRESS OF @F@@@@. THE BREAKPOINT, BITS 34-18 POINT TBS )@@G@@O ANY SLT$ ITEM APPLICABLE TO @F@@@@. THIS ADDRESS (0 IF NO SLT). BIT 3BT )@@G@@5, IF ON, INDICATES THAT THIS @F@@@@. BREAKPOINT SHOULD BE DELETED THE NBU )@@G@@EXT TIME IT IS EXTRACTED. THE@F@@@@. INSTRUCTION AT THE BREAKPOINT ADDRBV )@@G@@ESS IS SAVED IN WORD 1 OF THE @]@@@@. ITEM. @[@@@@. @G@@@@. N.B.BW )@@G@@: BREAKPOINT ITSELF IS IMPLANTED IN USER CODE BY 'SWPBKP' CALL @^@@@@BX )@@G@@. IN 'SWAPIN' ROUTINE. @[@@@@. @F@@@@CLRALL* . .BY )@@G@@ CLEAR ALL BREAKPOINTS ('CLEAR!'). @E@@@@ IF ENDSTR,,U NE A2, /SBZ )@@G@@YNTAX ERROR . END OF SPEC? @G@@@@ LMJ X11,SETUP . YES. CA )@@G@@SET UP FOR BREAKPOINT LIST SEARCH. @D@@@@ SZ A4 .CB )@@G@@ CLEAR FIND COUNTER. @D@@@@ LN,U A2,0 . SEARCH FOR CC )@@G@@A NON-(-0). @^@@@@L$(L$) SNE A2,2,*A1@B@@@@ J F$(1) CD )@@G@@ . NO MORE. @D@@@@ S A2,0,A1 . ONE FOUND. WIPE ICE )@@G@@T OUT @D@@@@ A,U A4,1 . AND BUMP THE COUNT. @E@@@@CF )@@G@@ J B$(1) . GO SEE IF THERE'RE MORE. @[@@@@. CG )@@G@@@F@@@@L$(L$) IF A4 IS ZERO, /ERROR 5 . NONE REMAIN. ANY FOUND AT ALL? CH )@@G@@@D@@@@ E$DECV A4 . YES. REPORT COUNT. @B@@@@ CI )@@G@@ E$MSG (' BREAKPOINT& CLEARED.&')@^@@@@ L,U A2,'S' @^@@@@CJ )@@G@@ TE,U A4,1 @]@@@@ E$FD@#@@@@ E$MSGR @^@@@@CK )@@G@@ J ED$MSG @[@@@@/. @]@@@@SET* . @]@@@@CLEAR* . CL )@@G@@@E@@@@ LMJ X11,DCDAD . DECODE ADDRESS SPECIFICATION.@^@@@@CM )@@G@@ J STXERR @^@@@@ J ADRERR @C@@@@ S$TECN )@@G@@ . ANYTHING MORE? @A@@@@ SYNTAX ERROR .CO )@@G@@ YES. @G@@@@ LMJ X11,SETUP . NO. SET UP TO SEARCH BREAKPOICP )@@G@@NT LIST. @F@@@@ L A0,ABSADDR . SPECIFIED ADDRESS AND SCQ )@@G@@LT POINTER. @ @@@@ LXI A0,SLTPTR @^@@@@ LN,U A2CR )@@G@@,0 @E@@@@ IF 'CLE',,U EQ CD . THEN COMMAND WAS 'CLEAR'. CS )@@G@@@E@@@@ SE A0,2,*A1 . IS SPECIFIED ADDRESS IN LIST?@A@@@@CT )@@G@@ ERROR 6 . NO. @D@@@@ S A2,0,A1 .CU )@@G@@ YES. DELETE FROM LIST. @D@@@@ ELSE . COMMAND WASCV )@@G@@ 'SET'. @G@@@@ SE A0,2,*A1 . IS BREAKPOINT AT ADDRESCW )@@G@@S ALREADY SET? @^@@@@ J $+2 @A@@@@ ERROR CX )@@G@@ 7 . YES. @F@@@@ LMJ X11,SETUP . NO. SET UP TO SEACY )@@G@@RCH LIST AGAIN. @D@@@@ SE A2,2,*A1 . IS THERE ROOM IN CZ )@@G@@LIST? @A@@@@ ERROR 8 . NO. @C@@@@ S DA )@@G@@A0,0,A1 . YES. STICK IT IN.@C@@@@ ENDIF . CLEARDB )@@G@@ VS. SET. @^@@@@ J REQ @[@@@@. @[@@@@. @E@@@@DC )@@G@@SETUP . (X11). SET UP FOR SEARCH OR BT ON BREAKPOINT LIST.@G@@@@ DD )@@G@@ L,U R1,BRKLGH-1 . NOTE: THE FIRST LIST ENTRY IS RESERVED @H@@@@DE )@@G@@ L,U A1,BRKLIST . FOR A GO BREAK. 'SET', 'CLEAR' AND 'BREDF )@@G@@AKS' @G@@@@ LXI,U A1,2 . OPERATE ONLY ON THE REMAININDG )@@G@@G ENTRIES. @^@@@@ J 0,X11 @G@@@@/. LIST BREAKPOINTS IN ODH )@@G@@RDER OF ASCENDING ADDRESS. COMMAND FORMAT: @[@@@@. @]@@@@. >BREDI )@@G@@AKS @[@@@@. @]@@@@BREAKS* . @B@@@@ IF ENDSTR,,U NE A2, /SDJ )@@G@@YNTAX ERROR @H@@@@ LMJ X11,SWMODE . SET WORD MODE FOR EINS$DK )@@G@@ ACCORDING TO UPSR. @G@@@@ LN,U A6,0 . INITIALIZE DL )@@G@@LOWEST-FOUND-ADDRESS TO -0. @C@@@@ SZ A8 . CLEARDM )@@G@@ SLT VALUE. @[@@@@. @]@@@@BREAK . @C@@@@ LMJ X11,SETUDN )@@G@@P . SET UP SEARCH. @D@@@@ L A7,(1*/35-1) . SET SEARCH DO )@@G@@UPPER LIMIT.@F@@@@ SW A6,2,*A1 . SEARCH FOR [A6] < ENTRYDP )@@G@@ [A6]. @F@@@@DS )@@G@@ L A6,A7 . SAVE NEW LOWEST-FOUND-ADDRESS. @D@@@@DT )@@G@@ SSL A7,18 . [A7] = SLT POINTER. @F@@@@ IFDU )@@G@@ A7 NE A8 . THEN DIFFERENT SEGMENT FROM BEFORE.@E@@@@ DV )@@G@@L A8,A7 . REMEMBER NEW SLT POINTER. @D@@@@ AN DW )@@G@@ A7,SLTFWA . COMPUTE SEGMENT INDEX:@E@@@@ SSL A7,2 .DX )@@G@@ SGI = (RELATIVE SLT ADDR)/4.@ @@@@ S A7,SGI @D@@@@DY )@@G@@ LMJ X11,FSN . LOOK UP SEGMENT NAME. @B@@@@ DZ )@@G@@E$FD2 SEGNM . ENCODE. @^@@@@ E$FD ':' @#@@@@ EA )@@G@@ ENDIF @E@@@@ E$OCTF 6,A6 . ENCODE ABSOLUTE ADDRESSEB )@@G@@. @#@@@@ E$SP @ @@@@ S A6,ABSADDR @ @@@@EC )@@G@@ LMJ X11,FREL @E@@@@ LMJ X11,NCDRAD . ENCODED )@@G@@E RELATIVE ADDRESS. @#@@@@ E$SP @G@@@@ IF SLTP$EE )@@G@@ IS NEG . THEN SPECIFIED SEGMENT IS NOT LOADED. @G@@@@ EF )@@G@@E$FD2 ('////////////') . ADDRESS CONTENTS NOT AVAILABLE. @#@@@@ EG )@@G@@ ELSE @ @@@@ L A0,A6 @ @@@@ L,U EH )@@G@@ A0,0,A0 @ @@@@ SLJ GETWD @D@@@@ LMJ EI )@@G@@ X11,NCDW . ENCODE INSTRUCTION. @#@@@@ ENDIF @ @@@@ EJ )@@G@@ LMJ X11,PRINT1 @D@@@@ J BREAK . REPEAT TO EEK )@@G@@ND OF LIST. @C@@@@ ENDIF . NO ITEMS REMAIN. @F@@@@EL )@@G@@ IF A6 IS NEG, /ERROR 5 . NOTIFY IF NO ITEMS FOUND AT ALL. @^@@@@EM )@@G@@ J REQ @B@@@@/. SET ADDRESS TRAP. COMMAND FORMAT: EN )@@G@@@E@@@@. >TRAP [ADDR [[R][W] [MASK]]] OR >TRAP ADDR P [MASK]' @G@@@@EO )@@G@@. ONCE SET, DURING SUBSEQUENT PROGRAM EXECUTION, AN INTERRUPT WILL OCCUREP )@@G@@@E@@@@. IF AN EFFECTIVE OPERAND ADDRESS U IS ENCOUNTERED SUCH THAT@G@@@@EQ )@@G@@. (U.OR.MASK) = (ADDR.OR.MASK). THE INTERRUPT OCCURRENCE IS RESTRICTED ER )@@G@@@G@@@@. TO READS FROM STORAGE(WRITES TO STORAGE) AS OPTION 'R'('W') IS SES )@@G@@PECI- @G@@@@. FIED. IF NEITHER 'R' NOR 'W' BE SPECIFIED, BOTH ARE ASSUMET )@@G@@ED. THE @G@@@@. EQUALITY MASK MAY NOT EXCEED 077 AND CAN BE USED TO EU )@@G@@TRAP A BLOCK OF UP@^@@@@. TO 0100 ADDRESSES. @[@@@@. @H@@@@. GIVIEV )@@G@@NG THE ABOVE COMMAND CANCELS ANY PREVIOUS SIMILAR COMMAND. TO CAN- EW )@@G@@@E@@@@. CEL OPERAND ADDRESS TRAPPING ENTIRELY, GIVE THE COMMAND @]@@@@EX )@@G@@. >TRAP 0 @[@@@@. @G@@@@. TO DETERMINE WHAT ADDRESS IS CURRENTLY REY )@@G@@EGISTERED FOR TRAPPING, GIVE @#@@@@. THE COMMAND @]@@@@. >TRAP EZ )@@G@@@[@@@@. @]@@@@TRAP* . @H@@@@ IF U8FLAG IS NONZ, /ERROR 4 FA )@@G@@. THEN NO BREAKPOINT HARDWARE AVAILABLE. @F@@@@ IF ENDSTR,,U EQ FB )@@G@@A2 . THEN NO COMMAND SPECIFICATION. @E@@@@ IF BP$PKT IS ZFC )@@G@@ERO, /ERROR 9 . THEN NO U-TRAP SET. @E@@@@ DL A0,BP$PKT .FD )@@G@@ ELSE, FILL IN AET PACKET. @ @@@@ S A0,ABSADDR @^@@@@FE )@@G@@ S A1,BDI@ @@@@ LMJ X11,FBN @G@@@@ FF )@@G@@ E$FD2 BNKNM . ENCODE BANK NAME AND ABSOLUTE ADDRESS. @A@@@@FG )@@G@@ E$MSG (':& & &,&'L) @ @@@@ E$OCTF 6,ABSADDR FH )@@G@@@#@@@@ E$MSGR @^@@@@ SZ SEGNM @ @@@@ L FI )@@G@@ A0,ABSADDR @^@@@@ SZ A1 @ @@@@ LMJ FJ )@@G@@X11,NCDAD @#@@@@ E$MSGR @C@@@@ L,S1 A2,BP$PKT .FK )@@G@@ GET CONTROL BITS.@ @@@@ L A1,(1,-1) @ @@@@ L,FL )@@G@@U R1,BPBL @F@@@@ SE,S5 A2,BPB+1,*A1 . FIND CORRESPONDFM )@@G@@ING MNEMONIC. @^@@@@ ER ERR$ @E@@@@ E$FD1 FN )@@G@@BPB,A1,H1 . ENCODE 'R', 'W', 'RW' OR 'P'.@B@@@@ L,S2 A0,BP$FO )@@G@@PKT . GET MASK. @E@@@@ IF A0 IS NONZ . THEN MASK NOT TRAFP )@@G@@NSPARENT. @B@@@@ E$MSGR . ENCODE. @#@@@@ FQ )@@G@@ E$OCTV@#@@@@ ENDIF @^@@@@ J ED$MSG@E@@@@FR )@@G@@ ELSE . TRAP SPECIFICATION GIVEN. @H@@@@ FS )@@G@@ IF NUMBER,,U EQ A2 AND A0 IS ZERO . THEN FIRST SPEC THE NUMBER ZERO.FT )@@G@@@C@@@@ S$NE . END OF COMMAND? @ @@@@ FU )@@G@@ SYNTAX ERROR @E@@@@ SZ BP$PKT . YES. CLEAR THE TRFV )@@G@@AP WORD. @D@@@@ ELSE . NON-ZERO SPEC PRESENT. FW )@@G@@@D@@@@ LMJ X11,DCDAD . GET TRAP ADDRESS. @ @@@@ FX )@@G@@ J STXERR @ @@@@ J ADRERR @F@@@@ FY )@@G@@ IF REGFLAG IS NONZ, /SYNTAX ERROR . MAIN STORAGE? @G@@@@ FZ )@@G@@ L,U A4,013*/6 . YES. ASSUME NO 'RW' SPEC; SET R/W BITS. @F@@@@GA )@@G@@ S$TD ' ' . ADDRESS TERMINATED BY A SPACE? @E@@@@GB )@@G@@ J F$(2) . NO. MUST BE END OF COMMAND. @D@@@@ GC )@@G@@ S$NS . YES. NEXT A SYMBOL? @G@@@@ J GD )@@G@@ F$(1) . NO. MUST BE COMMA. ('RW' SPEC VOID.) @[@@@@. @C@@@@GE )@@G@@ SSL A0,18 . SYMBOL PRESENT. @F@@@@ L GF )@@G@@ A1,(1,-1) . LOOK UP CORRESPONDING BITS. @A@@@@ L,GG )@@G@@U R1,BPBL @A@@@@ SE,H1 A0,BPB+1,*A1@G@@@@ GH )@@G@@ SYNTAX ERROR . NOT 'R', 'W', 'RW', 'WR' NOR 'P'. @D@@@@GI )@@G@@ L,H2 A4,BPB,A1 . FOUND. GET BITS. @^@@@@ GJ )@@G@@ S$N @G@@@@L$(L$) IF ',',,U EQ A2 . THEN BIT SPEC TERMINATGK )@@G@@ED BY A COMMA. @D@@@@ S$NN . YES. NEXT A NUMBEGL )@@G@@R? @A@@@@ SYNTAX ERROR @C@@@@ IFGM )@@G@@ 0100,,U LE A0, /SYNTAX ERROR @F@@@@ A A4,A0 . YES.GN )@@G@@ COMBINE MASK WITH R/W BITS. @^@@@@ S$N @^@@@@L$(L$)GO )@@G@@ ENDIF @C@@@@ IF ENDSTR,,U NE A2, /SYNTAX ERROR GP )@@G@@@E@@@@ LSSL A4,36-12 . SHIFT R/W BITS, MASK TO T1. @D@@@@GQ )@@G@@ A A4,ABSADDR . GET TRAP ADDRESS. @D@@@@ GR )@@G@@L A5,BDI . GET TRAP BANK INDEX. @E@@@@ DS A4,BGS )@@G@@P$PKT . SAVE FOR FUTURE REFERENCE. @E@@@@ ENDIF .GT )@@G@@ SPEC ZERO VS. SPEC NON-ZERO. @^@@@@ J REQ @C@@@@ GU )@@G@@ ENDIF . SPEC VS. NO SPEC.@[@@@@/. @^@@@@BPB +'W GV )@@G@@ ',011*/6 @^@@@@ +'R ',012*/6 @^@@@@ +'RW ',013*/6 GW )@@G@@@^@@@@ +'WR ',013*/6 @^@@@@ +'P ',014*/6 @^@@@@BPBL GX )@@G@@ $EQU $-BPB @[@@@@. @[@@@@. @^@@@@ ERRORS LOCAL GY )@@G@@@B@@@@ NERMSG 'PROGRAM HAS TERMINATED.' @D@@@@ NERMSG 'NGZ )@@G@@O GO COUNT MAY EXCEED 511(=0777).' @E@@@@ NERMSG 'EXECUTE ADDREHA )@@G@@SS MUST BE IN MAIN STORAGE.' @E@@@@ NERMSG '(ATTEMPT TO ALTER PHB )@@G@@-REGISTER IGNORED.)' @E@@@@ NERMSG 'ADDRESS TRAP NOT AVAILABLHC )@@G@@E ON 1106/8.' @B@@@@ NERMSG 'NO BREAKPOINTS FOUND.' @C@@@@HD )@@G@@ NERMSG 'NO BREAK SET AT THIS ADDRESS.' @D@@@@ NERMSG 'BHE )@@G@@REAK ALREADY SET AT THIS ADDRESS.' @D@@@@ NERMSG 'BREAKPOINT LIHF )@@G@@ST FULL. NO BREAK SET.' @C@@@@ NERMSG 'NO ADDRESS TRAP CURRENTLYHG )@@G@@ SET.'@^@@@@ ERRORS END @]@@@@ $END_@@@@@. @ @@@@HH )@@G@@)@@[F]@[@[@K)[K)]K^C@0@@(*@@@//K@@@M/K@@@@/,0@@@/K@@@T:8)@#@ @@@@M'^@K QHI )@@G@@(GB@[OAA@@@@)@D@N]@L]@C@)@@@Q[*()]@@)@F@N]@H]@O@@@@@@@' @K@@(?@@[@@@[@@@HJ )@@G@@BREAKS/\@@@@/,0@@@AB@@@@)@H[#]@H]@H#@[]@[@^C[=C@0@@@@@CD)@[B/K@@@@%8@@@EHK )@@G@@/K@@@T[@B@@-G@@@@@&B@@[#CC@@[BAC@@@@)@P[E[@K)@K)@K)B^@@@@@@@/K@@@(%8)@#@HL )@@G@@/KB@@@EG7@[O[T$@[R'^KK Q!9)@B_1@@@@MH9)@@[AD@@@@)@Y[#]@[@K0@K)CK)@K)DK)EHM )@@G@@K)@@@@EGB@[O/,0@@@/,0@@@EGB@[O/,0@@@C8@@@['^@K Q(GB@[OAE@@@@)@&[]K)FK)GKHN )@@G@@)[K)]K)AK)#K) @@@@' @K@@(?@@[@/K@@@@/K@@@@/,0@@@/K@@@@/,0@@@ @@@@HAF@@@@HO )@@G@@)@,[#]@L]@D]@GK)BK)@K)HK)@@@@@(GB@[O/K@@@@[G7@[O/KB@@@:;0JUMCC0@[B/\@@@@HP )@@G@@/,0@@@AG@@@@)@6[F@[@^C@)K)I@@@@@@@@@/,0@@@C[@@@GH8@@@[/\@@@@%8)@[@/K@@[#HQ )@@G@@:8)@#@ @@@@K'^@K QAH@@@@)@_[#]@C^C[OC@^C@^C@^C#0@@@@@@'^B@@@[XB@[R[K7@[OHR )@@G@@EG7@[O'^)K@@!9@@)@1@@@@K/\@@@@AI@@@@)[B[#]@[][[]@[]@[][ #@[@@@@@@@C[K@@GHS )@@G@@/K@@[):@@@@#'^@@@@EKB@[O[@R@@Z/,0@@@EKB@[OAJ@@@@)[J[##@[]@-][CK)NK)EK)@KHT )@@G@@@@@@@@/K@@[)1GB@[O/,0@@@/,0@@@C@@@@L/,0@@@/,0@@@C8@@@^AK@@@@)[R[]K0@K0@KHU )@@G@@^[@K)EK)@@@@@@@@@@EGB@[O/,0@@@/K@@[)/K@@[X9[W)[-C@@@@CN@)@@BN8K@@AAL@@@@HV )@@G@@)[Z[N][[]@0@@@@@@@:8)@#@CD^@@ /?@@@@/K@@@@'^@@@@B/@@@@B*@@@@B?@@@@/K@@@@HW )@@G@@/,0@@@AM@@@@)[([F@K)OK[@^C OC@)@@@@@ @@@@K/\@@@@/,0@@@[H^@@ /K@@[2:8)@#@HX )@@G@@/K@@[%/,0@@@/K@@[2AN@@@@)[2[EK[][T]@ ]@D]@T]@H@@'^)K Q**@@@//K@@@@/K@@@@HY )@@G@@/,0@@@/,0@@@[D^@@ /K@@[_(@@@@KAO@@@@)[;[#]@H]@P]@H][ #@[@K)@K@@@@@' @K QHZ )@@G@@*?B@[N/K@@]A%@@@@D'^@@@@CC@@[B' @K@@(?@@[@AP@@@@)]#[#]@[]@[@[]@[]@[]@@@@IA )@@G@@@@@@@@^N7@[O[GB@[QCGB@[OC80@@KC[@@@G/K@@]R9*B@[K9?B@@GAQ@@@@)]F[F]@.]@[]IB )@@G@@@[]@[]@@K[@@'^0K Q(@@@@H/K@@]R0@@@@G GB@[Q[GR@[OCGR@[QDGB@[O'^B@@@AR@@@@IC )@@G@@)]O[M^C@^C#L]@D@@@3@!)@]D8)@@@ @@@@K/,0@#^/\@@@@%8)@#@/K@@@@[GB@[OC8H@@[ID )@@G@@:8@@@MAS@@@@)]Y[F@[@^@K)RK0@@@@@@@@@C8@@@E/,0@@@C@@@@K' KK Q(@@@@K/K@@]XIE )@@G@@G9@@@[[@!@@@/K@@]+AT@@@@)]$[#]@)^CA^C]=C#^C@OC@)@@@@@@/K@@@@/,0@@@/K@@@@IF )@@G@@/,0@@@')])@@%9@@@[C8)@@S/,0@@@AU@@@@)]\[F]@T]@L]@D@K)#K)#[@@/K@@]/%;0CLEIG )@@G@@D8)@@@&B@@[#CC@@[B/,0@#^/\@@@@/,0@@@/K@@@@AV@@@@)]8[MK[@^[@K[@@@@@'A@K QIH )@@G@@2@!)@]/,0@#^' 0K Q/K@@]_2@H)@]/K@@##[@!@@@' )K Q2@H)@]AW@@@@)#][EK)H^C@@II )@@G@@^C@=C^)@@@@@/,0@@@/\@@@@%8)@#@/KF@@@&;K@@]C8R@@-N8K@@J/K@@@@[@H@@@AX@@@@IJ )@@G@@)#F[M^[#@@K[@K0@K@/K@@#7:[0@@I/K@@#JC[.@@@/K@@#N6[!)@]C[0@@I/,0@#^ @@@@OIK )@@G@@D9)@@@AY@@@@)#P[E[@^C@1]@H][=@@@@@@@/,0@@@[X0@[#;D0@@]HD0@[CC]@@@N/K@@#+IL )@@G@@:]@@@N;D0@@MC[)@@NAZ@@@@)#Y[F]@H][*K)S[][?K)S@@@')])@@C/)@@ /,0@@@C8K@@AIM )@@G@@C@@@@M')])@@C/)@@:/,0@@@9?@@[[BA@@@@)#$[#]@H][1][4K)SK)#K^G@@@@@@@9?@@@JIN )@@G@@/K@@#11@@K[#')])@@C/)@@ /,0@@@/,0@@@[D)@[BBB@@@@)#\[F][(@[][ ][9][.@@@@@IO )@@G@@0@@@@M/K@@#H/,0@@@/,0@@@'^@@@@C8G@@@C@@@@M/K@@#5/,0@@@BC@@@@)#8[F@K)HK)@IP )@@G@@K[@K)@K^C@@@9?B@[K'AKK Q(@B@[K/K@@^Z%8)@#@' @K Q*?B@[N/K@@@@' KK QBD@@@@IQ )@@G@@)^[[#]@H]@H]][]@H][(#@[]@-]@G@CC@@[B/,0@@@C8@@@L/,0@@@9?@@@./,0@@@[WK@[@IR )@@G@@[C@@[BBE@@@@)^D[]K)VK)EK)#K)#^C]4C])@@@@@@/,0@@@/,0@@@ @@@@HCC@@[B @@@[[IS )@@G@@/,0@@@/,0@@@C8K@@ABF@@@@)^L[F]@[#@@K^CCO[]]D]@@@(@@@@GC0B@[K/,0@@@CCH@ BIT )@@G@@'=@@@@2=!) CN8K@@ C@K@@NC4$@[KBG@@@@)^U[F@K)EK)DK)GK@K^C#)@@/,0@@@/K@@^&IU )@@G@@*@@@@G:8)@[@/K@@ B/K@@@@/,0@@@/,0@@@/K@@^XBH@@@@)^<[#]@D]@[@K)[K)]K)AK)#IV )@@G@@K)]@@@/\@@@@**@@@//K@@@@/K@@@@/,0@@@/K@@ A @B@[K/\@@@@BI@@@@)^:[E^CC4[]]IW )@@G@@L@^G@@@@@@@@N8K@@ C@K@@N;C@@@M/K@@^8/,0@@@/K@@ @/,0@@@R_@@@ C9@@F@BJ@@@@IX )@@G@@)^4[F@K)]K^CDL@K)&K)]@@@!8@@[@/\@@@@/,0@@@/K@@ @%8)@@,/,0@@@C H@ B/\@@@@IY )@@G@@2CH) CBK@@@@)^.[F]@CK)>^C@-]@H]@H]@@9(B@[KCXK@[@GD@@[B;(@@@S/\@@@@%8)@#@IZ )@@G@@/,0@@@G[@@@G/\@@@@BL@@@@) A[F]@4@]&@[N@@()@@@@@@@[B@@Y@[A@@S@[^@@OP @G@JA )@@G@@WR @F@RW @F@R @E@W @D@/K@@@@BM@@@@) J[]()@O0@ES@ G@]&@[N@@()@-[I@@@@@@JB )@@G@@@[ @[C@[A@[]@[A@@/@[ @@7@[^@@3@[B@@?@[B@@>BN@@@@) R@F@@@@@@@)@@[@[]]^@@@JC )@@G@@_/@@@@ & NEXT: <&>& '$)@@@ = & [P]: &)@@@@@@@G@ GBO@@@@)@C[SK)*@@@@JD )@@G@@,& :& & &////////////Z_____ED.& CLEARPOINT& BREAK'=@@@@@@[@@@BP@@@@JE )@@G@@)@N[S@@@@@@@77). 11(=07CEED 5MAY EXCOUNT NO GO ATED. TERMINM HAS PROGRAJF )@@G@@@@[__"BQ@@@@)@Y[S@@@@@@@P-REGIALTER PT TO (ATTEMAGE. N STORIN MAIST BE JG )@@G@@ESS MUE ADDREXECUTBR@@@@)@([S@@@@@@@NO BRE. 1106/8LE ON VAILAB NOT AJH )@@G@@S TRAPADDRES.) GNOREDSTER IBS@@@@)@4[S@@@@@@@Y SET ALREADBREAK RESS. JI )@@G@@IS ADD AT THAK SETNO BREND. TS FOUAKPOINBT@@@@)@_[S@@@@@@@RESS TNO ADDJJ )@@G@@ SET. BREAKLL. NOIST FUOINT LBREAKPESS. S ADDRAT THIBU@@@@)[E@S@@@@@@@JK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Y SET.RRENTLRAP CUBV@@@@JL )@@G@@@@^@@I@@M@@(@[=@@F@]K@@@@@E@[H@@@@ S)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@JM )@@G@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@@@@@@]RESDATA DCDAD STXERR JN )@@G@@NRSDATA STHIS$E GLBERR ADRERR RESTART EMSG$ JO )@@G@@EOCTV$ EMSGR$ NCDAD ED$MSG REQ SNEXT$E JP )@@G@@EXEC NCDBAD GETWD SWMODE EINS$B SNEXT$F JQ )@@G@@DCDWORD STHIS$ EDECV$ EDIT$T FSN EFD2$ JR )@@G@@EOCTF$ FREL NCDRAD NCDW PRINT1 FBN JS )@@G@@ERR$ EFD1$ STHIS$D SNEXT$S SNEXT$ SNEXT$N JT )@@G@@SVCERR SETBP$ BREAKS @@[@@@@@@@#CCLEAR @@[@@@@@@@]!JU )@@G@@CLRALL @@[@@@@@@@]SEXECUTE @@[@@@@@@@[$GO @@[@@@@@@@@@JV )@@G@@JUMP @@[@@@@@@@@(PGMCTR @@[@@@@@@@@WSET @@[@@@@@@@]!JW )@@G@@STEP @@[@@@@@@@@5SVCBRK @@[@@@@@@@[BTRAP @@[@@@@@@@#'JX )@@G@@@ @@@@ LMJ X11,GETWD @I@@@@ IF R3 EQ A0, /JGD R1JY )@@G@@,$-2 . IF SAME AS 1ST WD, RPT UNLESS WC EXHAUSTED. @H@@@@ ANJZ )@@G@@*[S@@@*SDFF*@E@@@@. COPYRIGHT 1979, B. E. CHI, SUNY-ALBANY, ALBANY NY 12KA )@@G@@222. @[@@@@. @]@@@@$(1) MNM$@]@@@@ IF$ @]@@@@ LOC$KB )@@G@@@#@@@@ DXDEF @#@@@@ RESDEF @#@@@@ NRSDEF KC )@@G@@@[@@@@. @D@@@@. RETURN HERE FROM INTERNAL CONTINGENCY OCCURRENCE. KD )@@G@@@[@@@@. @]@@@@XICTY* . @^@@@@ LN,U A0,0 @^@@@@ KE )@@G@@ LXI,U A0,0202 @^@@@@ S A0,CTPKT@^@@@@ SZ STKF )@@G@@PCT @G@@@@RDA$EOF SZ CLTFLAG . TERMINATE INPUT FROM ANY COMMKG )@@G@@AND LIST. @^@@@@ J CLREQ @[@@@@. @#@@@@. SOLICIT COKH )@@G@@MMAND.@[@@@@. @]@@@@ED$MSG* . @G@@@@ L A0,(0114,ED$BUKI )@@G@@F) . COME HERE TO PRINT EDIT$ BUFFER. @]@@@@OTHMSG* . @F@@@@ KJ )@@G@@ ER PRINT$ . COME HERE TO PRINT OTHER MESSAGES. @]@@@@CLREQ*KK )@@G@@ . @H@@@@ E$CLEAR . COME HERE TO DISCARD EDIT$ BUKL )@@G@@FFER PRIOR TO REQ.@]@@@@REQ* . @D@@@@ LPD 0140 .KM )@@G@@ INSURE THIRD-WORD MODE.@E@@@@ SZ CHGMODE . MARK NOT INKN )@@G@@ CHANGE MODE. @D@@@@ SZ SPCFLGS . CLEAR SPEC-TYPE FKO )@@G@@LAGS. @G@@@@ L A1,(1*/35) . SET @ADD-IMAGE COUNTER IN CASKP )@@G@@E NEEDED. @E@@@@ DL A2,DFCMMD . PUT DEFAULT COMMAND IN KQ )@@G@@READ$ @F@@@@L$(L$) DS A2,RD$BUF . BUFFER IN CASE COMMAND IS VOKR )@@G@@ID. @E@@@@ IF CLTFLAG IS ZERO . THEN COMMANDS ARE FROM READ$.KS )@@G@@@E@@@@ T$READ CPCW . PRINT '>', AWAIT COMMAND. @F@@@@KT )@@G@@ IF (1*/31) OP A0 . THEN DISCARD THIS INFOR IMAGE. @D@@@@KU )@@G@@ P$RINT '>>>NOTE: INFOR IMAGE DISCARDED.' @ @@@@ KV )@@G@@J B$(1) @#@@@@ ENDIF @I@@@@ IF ADCFLAG IS KW )@@G@@NONZ AND (1*/34) OP A0 . THEN DISCARD THIS @ADDED IMAGE. @F@@@@ KX )@@G@@ JGD A1,B$(1) . IF FIRST, GIVE WARNING MESSAGE. @F@@@@ KY )@@G@@ P$RINT '>>>NOTE: @ADDED INPUT IMAGES DISCARDED.' @D@@@@ KZ )@@G@@ J B$(1) . GO READ ANOTHER IMAGE. @#@@@@ ENDIF LA )@@G@@@E@@@@ ELSE . COMMANDS ARE FROM READA$. @^@@@@LB )@@G@@ R$EADA CLPKT @#@@@@ ENDIF @^@@@@ L,U A0LC )@@G@@,0,A0 @H@@@@ IF A0 IS NONZ, /SN A0,RD$BUF,A0 . INSERT STOPPER IF LD )@@G@@COMMAND NONVOID. @^@@@@/. COMMAND ANALYSIS. @G@@@@ L A0LE )@@G@@,RD$BUF . CHANGE ANY 'CLEAR!' COMMAND TO 'CLRALL'. @D@@@@ IF (LF )@@G@@'CLEAR!') EQ A0 OR ('CLEA!'L) EQ A0 ; @F@@@@ OR ('CLE!'L) ELG )@@G@@Q A0 OR ('CL!'L) EQ A0, /L A0,('CLRALL') @B@@@@ IF ('C!'L) EQ A0LH )@@G@@, /L A0,('CLRALL')@ @@@@ S A0,RD$BUF @[@@@@. @B@@@@LI )@@G@@ S$CAN SCPKT . OPEN SCAN$.@F@@@@ L,U A0,077 LJ )@@G@@ . SET RUBOUT AS SCAN$ STOP CHARACTER.@^@@@@ S A0,STP LK )@@G@@@F@@@@ S ONE,SXC . SYMBOL EXTENSION LIST JUST '$'. LL )@@G@@@D@@@@ S$NS . IS FIRST ITEM A SYMBOL?@D@@@@ LM )@@G@@ J IPRINT . NO. 'PRINT' IMPLIED. @H@@@@ LMJ X1LN )@@G@@1,SETMASK . SET SEARCH MASK ACCORDING TO SYMBOL LENGTH. @C@@@@ LO )@@G@@ L A4,A0 . RESCUE SYMBOL. @E@@@@ S$NF LP )@@G@@ . NEXT ITEM A FIELD TERMINATOR?@D@@@@ J IPRINT .LQ )@@G@@ NO. 'PRINT' IMPLIED. @D@@@@ IF ENDSTR,,U NE A2, /S$N . GET NEXLR )@@G@@T, IF ANY. @D@@@@ LMJ X11,SCNLIST . SEARCH COMMAND LIST. LS )@@G@@@F@@@@ J IPRINT . NO-FIND. MUST BE IMPLIED 'PRINT'. LT )@@G@@@F@@@@ L,H1 CD,CLIST,X5 . IF FOUND, REMEMBER COMMAND NAME. LU )@@G@@@E@@@@ L,H2 X5,CLIST,X5 . GO TO APPROPRIATE ROUTINE. @E@@@@LV )@@G@@ J 0,X5 . [A0-A3] DESCRIBE FIRST SPEC. @[@@@@. LW )@@G@@@[@@@@. @F@@@@SETMASK* . (X11). SET SEARCH MASK ACCORDING TO CHAR COLX )@@G@@UNT IN A3. @E@@@@ L R2,(-0,) . YES. SET UP 3-CHARACTERLY )@@G@@ MASK.@F@@@@ IF 2,,U EQ A3, /L R2,(-0,,) . IF FEWER THAN 3 CHARACLZ )@@G@@TERS, @G@@@@ IF 1,,U EQ A3, /L R2,(-0,,,,,) . ADJUST MASK CORRESMA )@@G@@PONDINGLY. @^@@@@ J 0,X11 @[@@@@. @[@@@@. @#@@@@MB )@@G@@CPCW +0101,$+2 @^@@@@ +RD$EOF,RD$BUF @^@@@@SLCHAR* LJSR '>MC )@@G@@' @[@@@@. @D@@@@RD$EOF* JP A0,CLREQ . IGNORE ANY TRUE @MD )@@G@@EOF. @C@@@@XDX J EXEUNT . ELSE, EXIT DX. @[@@@@. ME )@@G@@@^@@@@CLPKT +RDA$EOF,RD$BUF @#@@@@ '$DXC$'D @G@@@@/. PROCEDUREMF )@@G@@ AND SUBROUTINE FOR PRINTING SUCCESSIVE STRINGS. CALL: @C@@@@. MG )@@G@@ PRTEXT STRING1 STRING2 STRING3 . . . @G@@@@. EACH STRING IS PRINTEDMH )@@G@@ ON A SEPARATE LINE. WARNING: THE ROUTINE MUST@G@@@@. BE ELABORATED INMI )@@G@@ ANY USAGE WHERE TWO OF THE STRINGS ARE IDENTICAL. @[@@@@. @^@@@@MJ )@@G@@P $PROC *999 @#@@@@PRTEXT* $NAME @E@@@@I $DO P-1 ,JMK )@@G@@ $EQU (P(I,1)) . GENERATE STRING LITERALS.@E@@@@ L,U A0,(P(1,ML )@@G@@1)) . SET ADDRESS OF FIRST STRING. @E@@@@I $REPEAT 0,(P-1)//9-1 .MM )@@G@@ FOR EACH GROUP OF 9 STRINGS: @#@@@@J $EQU 0 @E@@@@K $EQUMN )@@G@@ P-1-9*I . NUMBER OF STRINGS REMAINING. @B@@@@K $EQU KK!9 . MIN(K,9). @C@@@@L $REPEAT K . FOR EACH LIMP )@@G@@NE: @I@@@@J $EQU J++($SL(P(9*I+L,1))//6)*/(36-4*L) . CAPTURE MQ )@@G@@4-BIT STRING LENGTH. @#@@@@ $ENDR @H@@@@ L A1MR )@@G@@,(J) . STRING LENGTHS. ($FORM 4,4,4,4,4,4,4,4,4.) @D@@@@ MS )@@G@@ LMJ X11,PRTEXT . PRINT UP TO 9 STRINGS. @#@@@@ $ENDR MT )@@G@@@]@@@@ $END@[@@@@. @]@@@@PRTEXT . @#@@@@ SZ A2MU )@@G@@@F@@@@ LDSC A1,4 . NEXT STRING WC TO BOTTOM OF A2. MV )@@G@@@D@@@@ LXI,U A0,0100,A2 . BUILD PRINT$ PARAMETER.@^@@@@ MW )@@G@@ ER PRINT$ @D@@@@ A,U A0,0,A2 . ADVANCE STRING ADMX )@@G@@DRESS.@F@@@@ JNZ A1,PRTEXT . REPEAT UNTIL ALL STRINGS PRINMY )@@G@@TED. @^@@@@ J 0,X11 @G@@@@/. COMMAND LIST. FOR COMMANDSMZ )@@G@@ BEGINNING WITH THE SAME LETTER, ONLY THE @H@@@@. FIRST MAY BE ABBREVIATNA )@@G@@ED TO A SINGLE LETTER. FLAGGED COMMANDS ('*') ARE @F@@@@. MAINLY FORNB )@@G@@ DEBUGGING DX AND, THEREFORE, NOT PUBLICLY DOCUMENTED.@]@@@@$(0) . NC )@@G@@@]@@@@CLIST . @#@@@@P $PROC *1@#@@@@CDEF* $NAME @#@@@@ND )@@G@@CM $EQU ''@^@@@@ $IF P>1 @^@@@@I $REPEAT 3,NE )@@G@@999 @ @@@@J $EQU $SS(P(1,1),I) @ @@@@ $DO J=' ' , $ENDNF )@@G@@I @A@@@@ $DO J<>'[' ,CM $EQU CM:J @#@@@@ $ENDR NG )@@G@@@C@@@@ +$SS(CM,1,3),P(0)>1->(ERROR *0)![CM] @B@@@@ +010NH )@@G@@0+$SL(P(1,1))//6,(P(1,1)L) @#@@@@ $ENDF @^@@@@ $IF NI )@@G@@ \P(1,*1)@D@@@@ $IF (P>1)**($SL(CI(CN+1))+$SL(CM)<72) NJ )@@G@@@ @@@@CI(CN+1)* $EQU CI(CN+1):' ':CM@#@@@@ $ELSE @^@@@@CN* NK )@@G@@ $EQU CN+1 @^@@@@CI(CN+1)* $EQU ' ':CM @#@@@@ $ENDF NL )@@G@@@#@@@@ $ENDF @]@@@@ $END@[@@@@. @A@@@@CI(1) $EQUNM )@@G@@ 'DX COMMANDS ARE: ' @#@@@@CN $EQU 0 @[@@@@. @A@@@@ NN )@@G@@ CDEF ' >ADDRESS [ADDR]' @B@@@@ CDEF ' >ABSVALUE [SYMBOL]NO )@@G@@' @ @@@@ CDEF ' >BREAKS' @D@@@@ CDEF ' >BANK NP )@@G@@[BANK-NAME] OR >BANK #BDI'@C@@@@ CDEF ' >CHANGE [ADDR [WC]NQ )@@G@@ [FMT]]' @C@@@@ CDEF ' >CMLIST [COMMAND LIST NAME]' @C@@@@NR )@@G@@ CDEF ' >CLEAR [ADDR] OR >CLEAR!' @D@@@@ CDEF *' NS )@@G@@>CLRALL' . FOR 'CLEAR!' ABOVE. @C@@@@ CDEF ' >DEFAULT NEWNT )@@G@@-DEFAULT-COMMAND' @ @@@@ CDEF *' >DEBUG' @D@@@@ CDEFNU )@@G@@ ' >DISCADD ON OR >DISCADD OFF' @E@@@@ CDEF ' >EXECUNV )@@G@@TE INSTR OR >EXECUTE [ADDR]' @A@@@@ CDEF ' >ENTRY [SYMBNW )@@G@@OL]' @ @@@@ CDEF ' >ERRMSG' @C@@@@ CDEF ' >EVALUNX )@@G@@ATE EXPRESSION [FMT]' @B@@@@ CDEF ' >FIND [ADDR [VALUE]]' NY )@@G@@@A@@@@ CDEF ' >FMASK [VALUE]' @B@@@@ CDEF ' >GO [NNZ )@@G@@] OR >GO ADDR'@B@@@@ CDEF ' >HELP [COMMAND-NAME]' @A@@@@OA )@@G@@ CDEF ' >JUMP [ADDR]' @ @@@@ CDEF ' >MAP [I][D]'OB )@@G@@@^@@@@ CDEF ' >MORE'@C@@@@ CDEF ' >OUTPUT ON OR OC )@@G@@>OUTPUT OFF'@A@@@@ CDEF ' >PGMCTR [ADDR]' @C@@@@ CDEFOD )@@G@@ ' >[PRINT ][ADDR] [WC] [FMT]' @D@@@@ CDEF ' >PCT [[BLOCKOE )@@G@@.]WORD [WC] [FMT]]' @B@@@@ CDEF ' >PSR [DK,DL,DM,...]' OF )@@G@@@ @@@@ CDEF ' >STEP [N]' @ @@@@ CDEF ' >SET [ADDR]'OG )@@G@@@H@@@@ CDEF ' >TRAP [ADDR [[R][W] [MASK]]] OR >TRAP ADDR POH )@@G@@ [MASK]' @C@@@@ CDEF ' >XCMLIST [COMMAND LIST NAME]' @^@@@@OI )@@G@@ CDEF ' >XDX' @ @@@@PCLLGH* $EQU ($-CLIST)/2 @^@@@@ OJ )@@G@@ CDEF *' >AEP' @^@@@@ CDEF *' >CTX' @ @@@@ CDEF *' OK )@@G@@>PATCH ADDR'@ @@@@ CDEF *' >SBP ADDR' @ @@@@ CDEF *' OL )@@G@@>SYNTAX' @]@@@@ CDEF@ @@@@TCLLGH* $EQU ($-CLIST)/2 @]@@@@OM )@@G@@$(1) . @B@@@@/. DESCRIBE DX COMMANDS. COMMAND FORMAT: @^@@@@. >HELON )@@G@@P [COMMAND-NAME] @[@@@@. @]@@@@HELP . @D@@@@ IF ENDSTR,OO )@@G@@,U EQ A2 . THEN NO SPEC PRESENT. @H@@@@CI(CN+1) $EQU 'FOR HELP WIOP )@@G@@TH A PARTICULAR COMMAND, TYPE ''HELP ''.' @D@@@@CI(CN+2) $EQU OQ )@@G@@'FOR MORE HELP, TYPE ''MORE''.' @G@@@@I $EQU 'PRTEXT' .OR )@@G@@ LIST NAMES OF ALL COMMANDS, FOLLOWED BY @F@@@@J $DO CN+2 ,I $EOS )@@G@@QU I:' CI(':$CD(J):')' . TEXT ABOVE. @#@@@@ [I] @^@@@@OT )@@G@@ J REQ @H@@@@ ELSE . HELP FOR A OU )@@G@@PARTICULAR COMMAND IS REQUESTED. @F@@@@ IF SYMBOL,,U NE A2, /SOV )@@G@@YNTAX ERROR . SPEC MUST BE A SYMBOL.@H@@@@ LMJ X11,SETMASK OW )@@G@@. SET SEARCH MASK ACCORDING TO SYMBOL LENGTH. @C@@@@ L OX )@@G@@A4,A0 . RESCUE SYMBOL. @C@@@@ S$NE . END OOY )@@G@@F COMMAND? @ @@@@ SYNTAX ERROR @E@@@@ LMJ OZ )@@G@@X11,SCNLIST . YES. SEARCH COMMAND LIST. @E@@@@ ERROR *0 PA )@@G@@ . IF NO-FIND, NO SUCH COMMAND. @H@@@@ L A0,CLIST+1,XPB )@@G@@5 . FOUND. PRINT FORM OF SPECIFIED COMMAND. @^@@@@ J PC )@@G@@OTHMSG@#@@@@ ENDIF @[@@@@. @[@@@@. @[@@@@. @B@@@@PD )@@G@@SCNLIST . (X11). SEARCH COMMAND LIST. @F@@@@ L,U R1,PCLLGPE )@@G@@H . SET UP FOR COMMAND LIST SEARCH. @H@@@@ IF CMLLGH IS NONPF )@@G@@Z, /L,U R1,TCLLGH . ENABLE DEBUG COMMANDS IF FLAG SET.@ @@@@ L PG )@@G@@ X5,(2,-2) @ @@@@ MSE A4,CLIST+2,*X5@D@@@@ J PH )@@G@@ 0,X11 . COMMAND NOT FOUND. @C@@@@ J 1,X11 PI )@@G@@ . COMMAND FOUND. @ @@@@/. MORE HELP. COMMAND FORMAT:@]@@@@. >MORPJ )@@G@@E @[@@@@. @]@@@@MORE . @#@@@@ PRTEXT ; @G@@@@'COMMAPK )@@G@@ND NAMES MAY BE ABBREVIATED TO 1, 2, OR 3 LETTERS. IN CASE OF' ; @G@@@@PL )@@G@@'AMBIGUITY, THE EARLIER ONE IN THE ''HELP'' LIST IS ASSUMED. ADDRESS' ;PM )@@G@@@A@@@@'SPECIFICATIONS ARE IN THE FORM' ; @F@@@@' [ELTNM].[LC][+RELADDPN )@@G@@R][,X] FOR RELATIVE ADDRESSES, AND' ; @F@@@@' [[BNKNM:][SEGNM]:]ABPO )@@G@@SADDR[,X] FOR ABSOLUTE ADDRESSES.' ; @E@@@@'FORMAT SPECIFICATIONS (PP )@@G@@WHICH MAY BE ABBREVIATED) ARE:' ; @E@@@@' OCT, DEC, HWO, SFP, DFP, FPQ )@@G@@DA, ASC, TWI, QWI, BMI .' @^@@@@ J REQ @[@@@@. PR )@@G@@@]@@@@ $END0[@@@@L,1. _@@@@@ BMI .' @^@@@@ J REPS )@@G@@Q @[@@@@. @]@@@@)@@[]^C@^C@OC@O[#@[]@C@@@@@@@@'=@@@@C@@@[E/K@@@CPT )@@G@@ )B@[P WB@[R[@B@@@&;@@]]D8@@@@AA@@@@)@C[#]@GK)[K)^K0@K)[K)^K)[@@@@*)B@[PPU )@@G@@9*)@@@9?$@[MC@K@[F @@@@/ 0B@[NB0@@[)/,0@@@AB@@@@)@K[#@E]^@%A@]@-)@-@^)@@PV )@@G@@@@@@@@/K@@@I'=@@@@C@@@[N/K@@@S>@@@[G'=@@@@C8@@[B/K@@@)AC@@@@)@S[F]@ #@[@PW )@@G@@K^G@^C@=[@E@C8@@[G/K@@@+/K@@@I'=@@@@C@@@[W8#K@@I/K@@@Z>@@@[O**B@[PAD@@@@PX )@@G@@)@-[#]@S^C[^C[^G@^G@^@@@@@@@@@/K@@@::@@@[Y%@@@[XC@@@@@]@G@@@*@@@@GC8G@@@PY )@@G@@'=@@@@AE@@@@)@([##@[#@[#@[#@[#@[]@L]@L]@W@/,0@@@R_@@@:[@@@@@C@@@[-:@@@[+PZ )@@G@@C@@@[-:@@@[)%@@@[ZAF@@@@)@1[E[]@-]@>@^C]=C]K@@@@/K@@@@/,0@@@C[@@@G/,0@[[QA )@@G@@/K@@@@/,0@@@^34@@@[?^@@[C8@@@_AG@@@@)@'[EK)FK^C]OG@^G@[#@@@@:80@@]N@)@[_____@[E@@@@[[@[D/KF@@@N@)@[>:80@@[N@)@[=AI@@@@)[G[M0OC[@@KQD )@@G@@)]^@@@/KF@@@/^K@[JG8I@@@'=@@@@&;I@[@;=K@@^ @@@@I $DXC$ @@^@@@AJ@@@@QE )@@G@@)@@[@(@UO]=[1KEKB>@(@)O@@@@@@@@[A@[\BAN@@@@[]@[!BRE@@@@[^@[(ABS@@@@[#@[&QF )@@G@@ADD@@@AK@@@@)@C[@(@+O]=]LKEKD>@(@*O@@@@@@@@[]@]^CLR@@@@[ @[_CLE@@@@[ @['QG )@@G@@CML@@@@[ @[5CHA@@@AL@@@@)@K[@(@%O]=]1KEKF>@(@0O@@@@@@@@[B@]NEXE@@@@[A@]HQH )@@G@@DIS@@@@[]@]FDEB@@@@[ @]ADEF@@@AM@@@@)@S[@(@2O]=#LKEKH>@(@8O@@@@@@@@[^@]=QI )@@G@@FIN@@@@[ @]ZEVA@@@@[]@]XERR@@@@[#@]UENT@@@AN@@@@)@)[@(@'O]=#1KES@>@(@"O@QJ )@@G@@@@@@@@@[#@]3JUM@@@@[^@]\HEL@[Q@[^@]:GO @@@@[#@]*FMA@@@AO@@@@)@*[@([@O]&@QK )@@G@@DKEKK>@([^O@@@@@@@@[#@]"PGM@@@@[ @]9OUT@@@@[[@]8MOR@[,@[]@]6MAP@@@AP@@@@QL )@@G@@)@0[@([AO]=^-KEKM>@([GO@@@@@@@@[]@#KSTE@@@@[^@#GPSR@@@@[A@#APCT@@@@[ @#[QM )@@G@@PRI@@@AQ@@@@)@8[@([IO]= [KEKO>@()]O@@@@@@@@[[@#CTX@@@@[[@#=AEP@@@AS@@@@)[C@K([WO@@@)[Q@2K]&@]A@]@)@@@/K@@@DQP )@@G@@/,0@[JC@K@^XC8@@#?/K@@[X%8)@#@@[]@#%SYN@@@AT@@@@)[W@V@^CF0@@)@@@Q[*()]@@QQ )@@G@@)[Z@N@@@@@@@C[@@@G/,0@[[@@[@@@CMMD /\@@@@%8)@]@/K@@[$AU@@@@)[-[F]#[]].@QR )@@G@@K)1K0@K[]@^@N8K@@>*0B@[PN8K@@)/K@@@BC@ @@['^@K@@/,0@[$/\@@@@/,0@@@AV@@@@QS )@@G@@)[%[##@[#@@]&@]A@]@)@@@@@@@@@@/K@@@D/,0@[JC@K@ -C8@@^Z/KF@@[/KF@@@9[ )@]QT )@@G@@R[K@^YAW@@@@)[E[L]@K@@])@@@@@@@[A@[H. CARDEDGE DISOR IMAE: INF>>>NOTQU )@@G@@]@@@@@)@@@@@@[G@@JAX@@@@)[O[S@@])@@@CLEA! CLEAR!@[B@[PED. ISCARDAGES DQV )@@G@@PUT IMDED INE: @AD>>>NOTK@@@@@AY@@@@)[Z[S@@@@@@@ >ABSVDDR] ESS [A >ADDRQW )@@G@@_@@@@@__@@@@___@@@C! CLRALLCL! CLE! AZ@@@@)[%[S@@@@@@@K #BDI >BANQX )@@G@@ OR -NAME] [BANK >BANKKS >BREA] SYMBOLALUE [BA@@@@)[5[S@@@@@@@QY )@@G@@ >CLEAAME] LIST NMMAND ST [CO >CMLI]] ] [FMTDR [WCGE [AD >CHANBB@@@@QZ )@@G@@)]@[S@@@@@@@MMAND ULT-COW-DEFAULT NE >DEFALL >CLRALEAR! R >CR] ORA )@@G@@R [ADDBC@@@@)]F[S@@@@@@@STR UTE IN >EXECFF CADD O >DIS OR ADD ONRB )@@G@@ >DISCG >DEBUBD@@@@)]Q[S@@@@@@@UATE E >EVALSG >ERRMBOL] Y [SYMRC )@@G@@ >ENTRR] E [ADDEXECUTOR >BE@@@@)]-[S@@@@@@@ >GO [UE] K [VAL >FMASRD )@@G@@E]] [VALU [ADDR >FINDMT] ION [FXPRESSBF@@@@)]?[S@@@@@@@ >MAP ] RE )@@G@@ [ADDR >JUMPME] AND-NA [COMM >HELPO ADDRR >GN] OBG@@@@)]7[S@@@@@@@RF )@@G@@ >[PRIDR] TR [AD >PGMCUT OFF >OUTP OR UT ON >OUTP >MORE[I][D]BH@@@@RG )@@G@@)#][S@@@@@@@ >PSR ] [FMT]D [WC]K.]WOR[[BLOC >PCT MT] WC] [FDDR] [RH )@@G@@NT ][ABI@@@@)#H[S@@@@@@@W] [MA [[R][ [ADDR >TRAP[ADDR] >SET [N] >STEPRI )@@G@@.] ,DM,..[DK,DLBJ@@@@)#S[S@@@@@@@NAME] LIST OMMANDIST [C >XCMLK] RJ )@@G@@P [MAS ADDR >TRAP OR SK]]] BK@@@@)#<[S@@@@@@@MANDS DX COMAX >SYNTRK )@@G@@ADDR >SBP H ADDR >PATC >CTX >AEP >XDX BL@@@@)#,[S@@@@@@@AULT D DEFRL )@@G@@ CLEARCMLISTHANGE BANK CREAKS ALUE BS ABSVADDRESARE: BM@@@@)#9[S@@@@@@@RM )@@G@@ MAPP JUMPGO HELFMASK FIND ALUATEMSG EVRY ERRTE ENT EXECUISCADDBN@@@@RN )@@G@@)^^[S@@@@@@@FOR HET XDX XCMLIS TRAP EP SETPSR STT PCT R PRIN PGMCTOUTPUTRO )@@G@@ MORE BO@@@@)^J[S@@@@@@@RE HELFOR MO. CMMD>'HELP [S@@@@@@@NE IN LIER OHE EARITY, TRR )@@G@@AMBIGUF CASE O. IN ETTERSOR 3 L1, 2, BR@@@@)^0[S@@@@@@@E FORM IN THRS )@@G@@NS AREICATIOSPECIFDDRESSED. A ASSUMIST ISELP' LTHE 'HBS@@@@)^;[S@@@@@@@RT )@@G@@ [[B, AND RESSESVE ADDRELATI FOR ][,X] ELADDRLC][+RTNM].[ [ELBT@@@@RU )@@G@@) A[S@@@@@@@ SPECIFORMATSES. ADDRESOLUTE OR ABSX] FADDR[,]:]ABS[SEGNMRV )@@G@@NKNM:]BU@@@@) L[S@@@@@@@SFP, D HWO, , DEC, OCT ARE: IATED)ABBREVAY BE RW )@@G@@HICH MONS (WFICATIBV@@@@) W@0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@25%(=@RX )@@G@@BMI . QWI, , TWI,A, ASCFP, FDBW@@@@@@@@@@[IO]= [KEKO>@()]O@@@@@@@@[[@#XICTY @@[@@@@@@@@@/K@^^7RR/@@@SM )@@G@@O#0@@HR#_@@@C5G@@@[(@^^-/,0@CT@@@@@@C[\@@@C[_@@[*[S@@@*SDFF*@#@@@@$(13) SN )@@G@@ 'DCDWRD' @#@@@@ +1,DCDWORD@]@@@@ $END___ -^@#@@@@ SO )@@G@@ +1,DCDWORD@]@@@@ $END___ -^CT^E9JEL^^@)@#@@@@^@)^@)^@)^@)^- D1^SP )@@G@@)@@@Q[*(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@SQ )@@G@@DCDWRDAA@@@@@@@@@@@]@@@@NCDREL . @E@@@@ L A0,PVELT .SR )@@G@@ GET PREVIOUS ELEMENT IN@@^@@I@@M@@[@@O@@@@@O@@@@@E@@@@@@@@@)@@@@@)@@@@@SS )@@G@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@@@@@@]DCDWORD ST )@@G@@LADDR'. @E@@@@ L A0,PVLC .*[S@@@*SDFF*@E@@@@. COPYSU )@@G@@RIGHT 1979, B. E. CHI, SUNY-ALBANY, ALBANY NY 12222. @G@@@@ DEF$SV )@@G@@ . DEFINE REGISTER MNEMONICS, ELT$ TAGS. @D@@@@ SW )@@G@@ DXDEF . DEFINE DX PARAMETERS. @F@@@@ RESDEF SX )@@G@@ . DEFINE TAGS IN RESIDENT DX TABLE. @]@@@@ IF$ @]@@@@SY )@@G@@$(1) LOC$@D@@@@E $EQU X6 . CONTENTS = RES FWA. SZ )@@G@@@C@@@@IOWC $EQU A5 . IOW$ WORD COUNT. @E@@@@USTART $EQUTA )@@G@@ A14 . USER PROGRAM START ADDRESS. @C@@@@BNKCTR $EQU A1TB )@@G@@5 . BANK COUNTER. @G@@@@EU $EQU 0110 . PCT TTC )@@G@@AG FOR PROGRAM CURRENTLY EXECUTING. @G@@@@NB $EQU 0 .TD )@@G@@ PRINT THE FOLLOWING NB SIGN-ON MESSAGES @F@@@@. TE )@@G@@ . WHEN DXTPF IS FIRST ASSIGNED. @F@@@@OPTIONS $EQU 'BNPQTX'TF )@@G@@ . DEFINE LEGAL @DX PROCESSOR OPTIONS.@ @@@@I $REPEAT $SL(OPTITG )@@G@@ONS) @A@@@@J $EQU $SS(OPTIONS,I,1) @^@@@@K $EQU 'ZTH )@@G@@'-J @^@@@@ $IF K<18 @D@@@@OPB[J] $EQUF 1*/K,,U .TI )@@G@@ E.G., OPBX $EQUF 4,,U .@#@@@@ $ELSE @F@@@@OPB[J] $EQU (1TJ )@@G@@*/K) . E.G., OPBB $EQU (000100000000) . @#@@@@ $ENDF TK )@@G@@@#@@@@ $ENDR @[@@@@. @D@@@@DV* $PROC 1,2 .TL )@@G@@ DIVIDE BY A CONSTANT. @ @@@@ DSA DV(1,1),36 @A@@@@ TM )@@G@@ DI,XU DV(1,1),DV(1,2) @]@@@@ $END@[@@@@. @[@@@@. TN )@@G@@@]@@@@DX* . @B@@@@ P$RINT DXLVL . 'DX M.N'. @G@@@@TO )@@G@@ C$TNCY ERRPKT,OPTIONS . ENABLE ERROR ROUTINE, CHECK DX OPTIONS.TP )@@G@@@F@@@@. READ THE INFOR TABLE AND CHECK PROGRAM OPTION SPECIFICATION. TQ )@@G@@@[@@@@. @ @@@@ L A0,(BLGH,BUF) @C@@@@ LMJ X1TR )@@G@@1,RINF$ . READ INFOR TABLE.@#@@@@ E$RM 0 @G@@@@ SZ TS )@@G@@ A12 . CLEAR PROGRAM OPTION SPEC INDICATOR. @^@@@@ TT )@@G@@ L,U A0,2 @C@@@@ LMJ X11,SELT$ . GET THE SPEC TU )@@G@@@B@@@@ J F$(1) . (IF ANY) @C@@@@ DL TV )@@G@@A10,ENAME . AND SAVE IT. @ @@@@ L A12,ENL @E@@@@TW )@@G@@ SZ ENL . SHOULD BE NOTHING BUT ENAME. @E@@@@ TX )@@G@@ IF ELT$ IS NONZ OR ELT$+1,,H1 IS NONZ, /E$RM 1 @]@@@@L$(L$) . TY )@@G@@@B@@@@/. FIND THE SPECIFIED ABSOLUTE PROGRAM. @[@@@@. @F@@@@ TZ )@@G@@ L,U A0,1 . PROGRAM NAME IS INFOR FIELD 1. @ @@@@ UA )@@G@@ LMJ X11,SELT$ @G@@@@ NOP 0,0 . IGNORE NO-FUB )@@G@@IND (USE LAST ABS IN TPF$). @D@@@@ L,U A0,ASGP . ASSIGUC )@@G@@N PROGRAM FILE AND@E@@@@ LMJ X11,DASGA$ . ATTACH NAME '$DXUD )@@G@@$UPGM$'. @C@@@@ E$RM 2 . ASSIGN FAILED. @C@@@@UE )@@G@@ E$RM 3 . NO SUCH FILE. @H@@@@ IF 2,,U OPUF )@@G@@ A0, /E$RM 4 . TERMINATE IF FILE LOCKED AGAINST READING. @G@@@@ UG )@@G@@ L,U A0,PFPKT . ASSIGNMENT OK. FIND SPECIFIED ELEMENT. @ @@@@UH )@@G@@ LMJ X11,FINDX$ @B@@@@ E$RM 5 . NOT FUI )@@G@@OUND. @C@@@@ ER ERR$ . FILE I/O ERROR. @D@@@@ UJ )@@G@@ E$RM 6 . NOT A PROGRAM FILE. @[@@@@. @G@@@@ UK )@@G@@ DL A0,WPKT . ELEMENT FOUND. REPLACE FILE NAME IN ELT$ @D@@@@UL )@@G@@ DS A0,FNAME . WITH TEMP FILE NAME. @D@@@@ DS UM )@@G@@ A0,PFPKT . ALSO IN PFP PACKET. @G@@@@ DL A0,PFPKTUN )@@G@@+2 . ALSO COPY ENAME/EVER FROM PFP PACKET @G@@@@ DS A0UO )@@G@@,ENAME . TO ELT$ IN CASE IT WASN'T SPECIFIED. @ @@@@ DL UP )@@G@@ A0,PFPKT+6 @^@@@@ DS A0,EVER @D@@@@ DL A1UQ )@@G@@,(1D*/60+1*/30) . MARK FNAME, ENAME @E@@@@ IF (''LD) NE A0, /A A2UR )@@G@@,A1 . AND EVER (IF NON-VOID) @D@@@@ DS A1,ELT$ . PREUS )@@G@@SENT IN ELT$. @C@@@@/. CHECK @DX OPTION BITS. LEGAL OPTIONS ARE: UT )@@G@@@ @@@@. B: ACCEPT BREAK ADDRESS. @A@@@@. U: ACCEPT OPERAND TRAP ADDRUU )@@G@@ESS. @E@@@@. N: AFTER LOADING PROGRAM, IMMEDIATELY ENTER CONTROL MODE.UV )@@G@@@B@@@@. P: CALL USER'S PROGRAM AS PROCESSOR. @B@@@@. Q: SUPPRESS PROUW )@@G@@GRAM'S PRINT$ OUTPUT. @A@@@@. X: SUPPRESS PROGRAM LOADING. @[@@@@UX )@@G@@. @F@@@@ TCS SLITES . SET U8 FLAG IF THIS AN U1106/UY )@@G@@8. @C@@@@ ER OPT$ . GET @DX OPTIONS. @E@@@@ UZ )@@G@@ SZ A4 . CLEAR PROCESSOR INDICATOR. @F@@@@ IF OVA )@@G@@PBB OP A0, /S A0,PTRAP . MARK IF BREAK REQUESTED. @G@@@@ IF OVB )@@G@@PBT OP A0 . THEN OPERAND ADDRESS TRAP REQUESTED. @G@@@@ VC )@@G@@ IF U8 IS NONZ, /E$RM 7 . TERMINATE IF NO BREAKPOINT HARDWARE. @B@@@@VD )@@G@@ S A0,UTRAP . ELSE, MARK.@#@@@@ ENDIF @G@@@@VE )@@G@@ IF OPBQ EP A0, /SZ PRTOFF . NO PRINT-SUPPRESS UNLESS Q-OPTION. VF )@@G@@@F@@@@ IF OPBX OP A0, /SZ ADD . SUPPRESS LOADING IF X-OPTION. VG )@@G@@@F@@@@ IF OPBN EP A0, /SZ NOPT . SUPPRESS EXECUTION IF N-OPTION. VH )@@G@@@F@@@@ IF OPBP OP A0 . THEN CALL PROGRAM AS PROCESSOR. VI )@@G@@@F@@@@ IF OPBN OP A0, /E$RM 8 . IF SO, N-OPTION INAPPROPRIATE. VJ )@@G@@@C@@@@ L,U A4,1 . ELSE, SO MARK. @#@@@@ ENDIVK )@@G@@F @[@@@@. @F@@@@. NOW [A4] > 0 IFF USER'S PROGRAM IS TO BE CALLEVL )@@G@@D AS PROCESSOR; @C@@@@. [PTRAP] > 0 IF PROGRAM BREAK IS TO BE SET. VM )@@G@@@C@@@@. [UTRAP] > 0 IF OPERAND TRAP IS TO BE SET. @C@@@@. [NOPT] >VN )@@G@@ 0 IF EXECUTION IS TO BE SUPPRESSED.@D@@@@. [PRTOFF] > 0 IF PRINT$ IMAGEVO )@@G@@S TO BE SUPPRESSED. @G@@@@/. CONSTRUCT PROGRAM CALL CARD '@XQT,OPTS VP )@@G@@PGM' OR '@PGM,OPTS A,B,C,...'.@[@@@@. @^@@@@ E$DIT ECPKT VQ )@@G@@@F@@@@ A,U X3,1 . MAKE ROOM FOR SDFF CONTROL WORD. VR )@@G@@@^@@@@ E$FD '@' @D@@@@ IF A4 IS NONZ . THEN VS )@@G@@CALL AS PROCESSOR.@D@@@@ LMJ X11,FENAME$ . ENCODE PROGRAM NVT )@@G@@AME. @C@@@@ ELSE . CALL VIA '@XQT'. @ @@@@ VU )@@G@@ L,U A0,'XQT' @#@@@@ E$FD1 @#@@@@ ENDIF VV )@@G@@@[@@@@. @F@@@@ IF A12 IS NONZ . THEN PROGRAM OPTIONS SPVW )@@G@@ECIFIED. @^@@@@ E$FD ',' @F@@@@ DL A0,A10VX )@@G@@ . GET OPTION SPEC SAVED EARLIER. @D@@@@ AN,U A12,1 VY )@@G@@ . OPTION SPEC CC - 1. @G@@@@ IF A0 IS POS . THEN VZ )@@G@@OPTIONS SPECIFIED USING LETTERS. @F@@@@L$(L$) LDSC A0,6 .WA )@@G@@ ISOLATE CHARACTERS 1 BY 1 IN A2. @ @@@@ AND,U A1,077 WB )@@G@@@D@@@@ IF 'A',,U GT A2 OR 'Z',,U LT A2, /E$RM 1 @D@@@@ WC )@@G@@ E$FD . ENCODE INTO CALL CARD.@F@@@@ JGD WD )@@G@@ A12,B$(1) . REPEAT UNTIL LETTERS EXHAUSTED. @F@@@@ ELSE WE )@@G@@ . OPTIONS SPECIFIED AS BINARY NUMBER.@^@@@@ SZ WF )@@G@@ A3 @C@@@@L$(L$) LDSC A0,6 . DECODE TO BINARY.@ @@@@ WG )@@G@@ AND,U A1,077 @ @@@@ AN,U A2,'0' @C@@@@ WH )@@G@@ IF A2 IS NEG OR 7,,U LT A2, /E$RM 1 @B@@@@ LSSL A2,3WI )@@G@@6-3 . FOLD IT IN.@^@@@@ LDSC A2,3@F@@@@ JGD WJ )@@G@@ A12,B$(1) . REPEAT UNTIL DIGITS EXHAUSTED. @D@@@@ LDSL WK )@@G@@ A2,36-26 . 'A'-BIT TO TOP OF A3. @G@@@@ IF A2 IS NONZ, /E$WL )@@G@@RM 1 . TERMINATE IF ANY ILLEGAL BITS. @B@@@@ L A2,(WM )@@G@@-077,25*077+'Z') @D@@@@ JPS A3,$+2 . ELSE, ENCODE THEMWN )@@G@@. @#@@@@ E$FD @ @@@@ JMGI A2,$-2 @E@@@@WO )@@G@@ ENDIF . LETTER VS BINARY OPTIONS. @D@@@@ WP )@@G@@ ENDIF . OPTIONS VS NO OPTIONS. @]@@@@ E$SP@E@@@@WQ )@@G@@/ L X8,(1,3) . SET UP INFOR FIELD POINTER. @C@@@@ WR )@@G@@ JNZ A4,PRCALL . PROCESSOR CALL? @D@@@@ LMJ X11,FENAWS )@@G@@ME$ . NO. ENCODE PROGRAM NAME.@D@@@@ L,U A0,0,*X8 . ANY MWT )@@G@@ORE INFOR ITEMS? @ @@@@ LMJ X11,SELT$ @^@@@@ TZ WU )@@G@@ 0,A0 @A@@@@ E$RM 9 . YES. @E@@@@ J WV )@@G@@ ENDCALL . NO. CALL CARD TEXT COMPLETE. @[@@@@. @]@@@@PRCALLWW )@@G@@ . @#@@@@ E$COLN @E@@@@L$(L$) L A6,A0 . NOTE WX )@@G@@CURRENT COLUMN POSITION.@D@@@@ L,U A0,0,*X8 . GET NEXT INWY )@@G@@FOR ITEM. @ @@@@ LMJ X11,SELT$ @D@@@@ J F$WZ )@@G@@(1) . THIS ITEM NOT FOUND. @I@@@@ IF CFN IS NONZ, /SZ ELXA )@@G@@T$ . FOUND. TREAT ANY FILE CONTINUATION LITERALLY. @B@@@@ LMJ XB )@@G@@ X11,FENAME$ . ENCODE. @^@@@@ J F$(2) @E@@@@L$(L$)XC )@@G@@ TNZ 0,A0 . IF NO-FIND, ANY MORE ITEMS? @E@@@@ J XD )@@G@@ ENDCALL . NO. CALL CARD TEXT COMPLETE. @D@@@@L$(L$) E$FD ',XE )@@G@@' . MORE ITEMS. CONTINUE. @#@@@@ E$COLN @E@@@@ XF )@@G@@ TLE,U A0,6+84 . STILL ROOM FOR A SEMICOLON? @D@@@@ J XG )@@G@@ B$(3) . YES. DO ANOTHER FIELD. @G@@@@ E$COL A6,,W XH )@@G@@ . NO. BACKSPACE OVER FIELD JUST ENCODED. @F@@@@ E$FD ';XI )@@G@@' . REPLACE WITH CONTINUATION MARKER. @^@@@@ J $+XJ )@@G@@2 @]@@@@ENDCALL . @#@@@@ SZ A6@E@@@@ E$FILL XK )@@G@@ . SPACE-FILL ANY PARTIAL WORD. @G@@@@ E$WC XL )@@G@@ . FIND WC, INCLUDING SDFF CONTROL WORD. @C@@@@ AN,U A0XM )@@G@@,1 . TEXT WORD COUNT. @^@@@@ LSSL A0,24 @D@@@@ XN )@@G@@ S A0,*ECPKT . PUT IN CONTROL WORD. @E@@@@ S,H2 X3XO )@@G@@,ECPKT . RESET EDIT$ BUFFER ORIGIN. @F@@@@ A,U X3,1 XP )@@G@@ . MAKE ROOM FOR SDFF CONTROL WORD. @F@@@@ AN,U X8,1 XQ )@@G@@ . BACK UP INFOR POINTER AND RECODE @E@@@@ JNZ A6,PRCALXR )@@G@@L . FIELD UNLESS NO MORE ITEMS. @E@@@@ LN,U A0,0 .XS )@@G@@ ELSE, TERMINATE ELEMENT. @ @@@@ S A0,*ECPKT @E@@@@XT )@@G@@ L,U A0,0,X3 . FIND TOTAL ELEMENT LENGTH. @^@@@@ XU )@@G@@ AN,U A0,DBUF @D@@@@ TG,U A0,DLGH+1 . CALL CARD OVERFLOXV )@@G@@W? @C@@@@ E$RM 10 . IF SO, ERR OFF. @G@@@@/. ASSXW )@@G@@IGN TEMPORARY FILES. FIND ELEMENT (@DX) CURRENTLY EXECUTING. @[@@@@XX )@@G@@. @G@@@@ C$SF '@ASG,T ':DXTPF:',F///999999' . TEMPORARY PRXY )@@G@@OGRAM FILE. @G@@@@ IF A0 IS ZERO . THEN THIS IS FIRST @DX XZ )@@G@@CALL IN THIS RUN. @A@@@@I $DO NB , P$RINT SIGNON(I) @G@@@@ YA )@@G@@ C$SF '@ASG,T ':DXTPF:'PRF,F///1500' . SCRATCH PRINT$ FILE. @C@@@@YB )@@G@@ ELSE . NOT FIRST CALL. @E@@@@ SZ YC )@@G@@BUF . IF FILE ALREADY ASSIGNED, @D@@@@ L,U IOWC,1YD )@@G@@*/16+28 . ZERO OUT SECTOR 0. @ @@@@ LMJ X11,WRITE @#@@@@YE )@@G@@ ENDIF @[@@@@. @F@@@@ P$CT EU,3,CDPKT . FIND YF )@@G@@THIS ELEMENT'S FILE LOCATION. @D@@@@. [CDPKT,CDPKT+1] = FILE NAME, [CDPKYG )@@G@@T+2] = FHT SECTOR.@[@@@@. @E@@@@/. READ HEADER TABLE, ANY BANK LOAD YH )@@G@@TABLE. ALTER BANK DATA. @[@@@@. @C@@@@ L A0,PFPKT+10 .YI )@@G@@ GET START SECTOR.@E@@@@ S A0,RPKT+5 . PUT IN R$ AND W$ YJ )@@G@@PACKETS. @ @@@@ S A0,WPKT+5 @G@@@@ L,U IOYK )@@G@@WC,BLGH . READ HEADER AND ANY BANK LOAD TABLE. @^@@@@ LMJ YL )@@G@@ X11,READ@E@@@@ IF PFPKT+8 IS POS . THEN OLD-FORMAT COLLECTYM )@@G@@ION. @C@@@@ SZ X8 . CLEAR P1 SWITCH. @E@@@@ YN )@@G@@ L,H1 A0,PFPKT+8 . INCREMENT I-BANK WORD COUNT. @ @@@@ A,YO )@@G@@U A0,01000 @ @@@@ S,H1 A0,PFPKT+8 @E@@@@ L,YP )@@G@@H2 A0,FHT+1 . DECREMENT I-BANK FIRST WORD. @ @@@@ AN,U YQ )@@G@@A0,01000 @ @@@@ S,H2 A0,FHT+1 @F@@@@ L,U YR )@@G@@BNKCTR,1 . SET BANK COUNT (ONLY 1 IF NOT P1). @H@@@@ YS )@@G@@ . [A0] = MAIN I-BANK FWA, [BNKCTR] = BANK COUNT. @D@@@@ YT )@@G@@ ELSE . NEW (P1) COLLECTION. @C@@@@ L,U YU )@@G@@X8,P1 . SET P1 SWITCH. @B@@@@ L,H2 A1,FHT+031 . BLT LYV )@@G@@ENGTH.@H@@@@ IF BLGH-28,,U LT A1, /E$RM 11 . TERMINATE IF BLT OYW )@@G@@VERFLOWS BUFFER. @D@@@@ L,T2 BNKCTR,PFPKT+8 . GET BANK COUNYX )@@G@@T. @C@@@@ L A3,AFLG . CHECK A-FLAG @^@@@@ YY )@@G@@ LSSL A3,1 @C@@@@ AND A3,FFLG . AGAINST F-FLAG. YZ )@@G@@@C@@@@ IF A4 IS NONZ . THEN TERMINATE. @ @@@@ ZA )@@G@@SZ ABORT @^@@@@ E$RM 12 @#@@@@ ENDIF ZB )@@G@@@E@@@@ L A3,BLT+1 . GET MAIN I-BANK BLT ITEM. @F@@@@ZC )@@G@@ AND A3,(-1*/33) . DISCARD ANY WRITE-PROTECT BIT. @H@@@@ZD )@@G@@ AT A4,(,1,-1) . INCREMENT BLOCK SIZE, DECREMENT START BLOZE )@@G@@CK. @C@@@@ S A4,BLT+1 . PUT IT BACK. @F@@@@ ZF )@@G@@ SSL A4,36-3 . DISCARD ALL BUT BANK TYPE BITS. @G@@@@ ZG )@@G@@ L,T3 A0,BLT+1 . [A0] = RESBLK = BLOCK FOR RESIDENT DX. @F@@@@ZH )@@G@@ IF A0 IS NEG OR A4 IS NONZ, /E$RM 13 . THEN TERMINATE. @H@@@@ZI )@@G@@ LSSL A0,9 . [A0] = MAIN I-BANK FWA; [BNKCTR] = BANK CZJ )@@G@@OUNT. @D@@@@ ENDIF . OLD VS NEW COLLECTION. @F@@@@ZK )@@G@@/. ALTER PFI$ PACKET, FILE HEADER TABLE, TO DESCRIBE NEW ELEMENT. @[@@@@ZL )@@G@@. @G@@@@ L,U E,0,A0 . SET POINTER TO RES FWA FOR REZM )@@G@@LOCATIONS. @E@@@@ A,U A0,IPLOAD . RES INITIAL ENTRY POINTZN )@@G@@. @F@@@@ L,H2 USTART,FHT+4 . GET USER PROGRAM START ADDRESZO )@@G@@S. @G@@@@ S,H2 A0,FHT+4 . REPLACE WITH RES INITIAL ENTRZP )@@G@@Y POINT. @I@@@@ IF NOPT IS NONZ, /LN USTART,USTART . IF N-OPTNZQ )@@G@@, USE ST ADDR AS BRK ADDR. @D@@@@ L,U A1,RSSEG . GET SZR )@@G@@LT$ INDEX FOR RES.@D@@@@ LSSL A1,2 . CONVERT TO POINTEZS )@@G@@R. @B@@@@ L,H1 A1,SLT$+1,A1 . RES WC - 1.@H@@@@ A,U ZT )@@G@@ A1,1+(28-1)+28 . FIND SECTORS REQUIRED FOR RES TEXT, LCG. @D@@@@ZU )@@G@@ DV A1,28 . [A1] = SECTORS FOR RES.@G@@@@ IF DZV )@@G@@IAGTAB IS NONZ . THEN DIAGNOSTIC TABLE ADDRESS IS GIVEN. @D@@@@ ZW )@@G@@ AU A1,DIAGTAB . FIND ITS NEW LOCATION. @ @@@@ S ZX )@@G@@A2,DIAGTAB @#@@@@ ENDIF @E@@@@ A,H2 A1,PFPKT+9 .ZY )@@G@@ FIND NEW TOTAL SECTOR COUNT. @ @@@@ S,H2 A1,PFPKT+9 @D@@@@ZZ )@@G@@ MSI,U A1,28 . ELEMENT WORD COUNT. @B@@@@ S AA )@@G@@ A1,ELTWC . PUT IN FHT.@E@@@@/. WRITE HEADER TABLE, ANY BANK LOADAB )@@G@@ TABLE. PREPARE TO @D@@@@. COPY TEXT UP TO ACW'S FOR INITIALLY-LOADAC )@@G@@ED SEGMENTS.@[@@@@. @E@@@@ L,H2 A4,FHT+031 . GET BLT LENAD )@@G@@GTH (0 IF NOT P1).@E@@@@ A,U A4,28-1+28 . FIND SECTOR COUNTAE )@@G@@ OF FHT+BLT.@^@@@@ DV A4,28 @E@@@@ MI,U A4,28 AF )@@G@@ . [IOWC(=A5)] = FHT+BLT WC. @B@@@@ LMJ X11,WRITE .AG )@@G@@ WRITE BOTH.@H@@@@ S A1,RPKT+5 . SET NEXT READ LOCATION AH )@@G@@TO SECTOR AFTER BLT. @[@@@@. @E@@@@ AN A1,PFPKT+10 .AI )@@G@@ NEXT RELATIVE SECTOR ADDRESS @G@@@@ AN A1,FHT+5 . - SEAJ )@@G@@CTOR ADDRESS OF CTRL BANK ACW'S @G@@@@ SM,H1 A1,RPKT+4 .AK )@@G@@ = - SECTORS TO COPY. SAVE SECTOR COUNT.@[@@@@. @E@@@@. CONSTRUCT AL )@@G@@ELEMENT DIRECTORY FOR USE BY SCHAET ROUTINE. @[@@@@. @C@@@@ AM )@@G@@ DL A0,RPKT . USER FILE NAME. @C@@@@ L A2,PFPKTAN )@@G@@+10 . ELEMENT FSA. @^@@@@ L,U A3,AETAB@D@@@@ LMJ AO )@@G@@ X11,WRTAET . GO MAKE DIRECTORY. @E@@@@ IF A0 IS NEG, /EAP )@@G@@$RM 14 . TERMINATE IF I/O ERROR. @F@@@@ S A0,AETWC .AQ )@@G@@ SAVE DIRECTORY WC FOR NRSEG GW$. @D@@@@ L A0,(AEPKT,AETAAR )@@G@@B) . INITIALIZE SCHAET. @ @@@@ LMJ X11,SCHAET @H@@@@ AS )@@G@@ SM USTART,ABSADDR . INITIALIZE AEPKT WITH PROGRAM START ADDRESS. AT )@@G@@@G@@@@ SZ DNMCFLG . INFORM SCHAET APPLICATION IS STATICAU )@@G@@. @ @@@@ L A0,NODIAG @G@@@@ IF LCTAB IS ZEROAV )@@G@@, /ER PRINT$ . INFORM IF NO DIAGNOSTIC TABLES. @C@@@@/. SOLICIT BREAK (AW )@@G@@B-OPTION) AND TRAP (U-OPTION).@[@@@@. @H@@@@ DL A6,PTRAPAX )@@G@@ . [A6]/[A7] NON-ZERO AS BREAK/TRAP REQUESTED. @E@@@@ AU AY )@@G@@ A7,A6 . [A8] NON-ZERO IF EITHER. @B@@@@ IF NOPT ISAZ )@@G@@ NONZ OR A8 IS NONZ @^@@@@ E$DIT EPKT @B@@@@ E$BA )@@G@@MSG ('PGM STARTS AT & (&)&')@F@@@@ E$OCTV ABSADDR . ENCODBB )@@G@@E ABSOLUTE START ADDRESS. @E@@@@ IF LCTAB IS NONZ . THEN BC )@@G@@ENCODE RELATIVE ADDRESS.@#@@@@ E$MSGR@F@@@@ LMJ BD )@@G@@ X11,FREL . LOOK UP RELATIVE ADDRESS DATA. @G@@@@ IF A0 BE )@@G@@IS NONZ, /E$RM 14 . TERMINATE IF NO SUCH ADDRESS. @ @@@@ BF )@@G@@E$FD2 ELTNM @^@@@@ E$FD '.' @^@@@@ E$OCTVBG )@@G@@ LC @^@@@@ E$FD '+' @ @@@@ E$OCTV RELADDR BH )@@G@@@#@@@@ E$MSGR@#@@@@ ENDIF @^@@@@ E$FD BI )@@G@@'.' @A@@@@ P$RINT (0114,ED$BUF) @[@@@@/. @C@@@@ BJ )@@G@@ IF A6 IS NONZ . THEN B-OPTION. @E@@@@ L A0,BBK )@@G@@RKREQ . PRINT, SOLICIT AND DECODE @C@@@@ LMJ X10,DCDAD BL )@@G@@. BREAK ADDRESS. @D@@@@ IF A0 IS POS . THEN NON-VOID RESBM )@@G@@PONSE.@D@@@@ L A1,SGI . GET SEGMENT INDEX. @G@@@@BN )@@G@@ LSSL A1,2 . POINTER INTO SEGMENT LOAD TABLE (IF ANY).BO )@@G@@@D@@@@ A A1,SLTFWA . POINTER TO SLT ITEM.@ @@@@ BP )@@G@@ LXI A0,A1 @D@@@@ ELSE . RESPONSE WABQ )@@G@@S VOID. @B@@@@ P$RINT 'BRK REQ CANCELLED.'@ @@@@ BR )@@G@@ LN,U A0,0 @D@@@@ ENDIF . VOID/NONVOIBS )@@G@@D RESPONSE. @D@@@@ S A0,PTRAP . SAVE ADDRESS (OR -0). BT )@@G@@@B@@@@ ENDIF . B-OPTION. @[@@@@. @C@@@@ BU )@@G@@ IF A7 IS NONZ . THEN U-OPTION. @E@@@@ L A0,TBV )@@G@@RPREQ . PRINT, SOLICIT AND DECODE @C@@@@ LMJ X10,DCDAD BW )@@G@@. TRAP ADDRESS. @D@@@@ IF A0 IS POS . THEN NON-VOID RESBX )@@G@@PONSE.@F@@@@ LXI,U A0,013*/12 . SET SETBP$ R/W BITS, BDI BY )@@G@@FLAG. @ @@@@ L A1,BDI @D@@@@ ELSE BZ )@@G@@ . RESPONSE WAS VOID. @C@@@@ P$RINT 'TRAP REQ CANCCA )@@G@@ELLED.' @ @@@@ LN,U A0,0 @D@@@@ ENDIF CB )@@G@@ . VOID/NONVOID RESPONSE. @E@@@@ DS A0,UTRAP .CC )@@G@@ SAVE TRAP PARAMETERS (OR -0).@B@@@@ ENDIF . U-OPTCD )@@G@@ION. @D@@@@ ENDIF . N-, B- OR U-OPTION. @[@@@@CE )@@G@@/. @C@@@@. COPY TEXT UP TO INITIALLY-LOADED SEGMENTS. @[@@@@. CF )@@G@@@C@@@@ L,H1 A3,RPKT+4 . GET SECTOR COUNT.@^@@@@ LMJ CG )@@G@@ X10,COPY@F@@@@. READ RSEG 'RSSEG' (RESIDENT DX), RELOCATE AND WRITE CH )@@G@@WITH LCG. @[@@@@. @F@@@@ L,U A0,RSSEG . READ AND RECI )@@G@@LOCATE RSEG 'RSSEG'. @^@@@@ L,U A3,RES,E@^@@@@ LMJ CJ )@@G@@ X11,SEG @C@@@@ LXI A2,IOWC . [A2] = WC,FWA. @D@@@@CK )@@G@@ S A2,ACWS . PUT IN LCG FOR RES, @F@@@@ L,U CL )@@G@@ A0,(1*/34) . FOLLOWED BY 27 WORDS OF NOP ACW'S.@ @@@@ LMJ CM )@@G@@ X11,CLACWS @E@@@@ L,U D,TEXT-RES . SET POINTER TO RECN )@@G@@S IMAGE FWA.@D@@@@. COPY USER'S ENVIRONMENTAL DATA TO RESIDENT DX IMAGE.CO )@@G@@@D@@@@. DL A1,UTRAP . UTRAP, PTRAP ADDRESSES.@ @@@@. CP )@@G@@ DS A1,BP$PKT @^@@@@ L A1,PTRAP@ @@@@ S CQ )@@G@@ A1,BRKLIST+2 @G@@@@ S USTART,NXTADDR . SET PGM START ACR )@@G@@DDRESS (<0 IF N-OPTION).@^@@@@ L,U A1,NRSEG@^@@@@ LSSLCS )@@G@@ A1,2 @H@@@@ L,H1 A1,SLT$+1,A1 . NONRESIDENT DX CODE WC-CT )@@G@@1 (EXCLUDING AETAB). @^@@@@ A,U A1,1 @F@@@@ A CU )@@G@@ A1,AETWC . NONRES TOTAL WC (INCLUDING AETAB). @E@@@@ AU,UCV )@@G@@ A1,RESEND,E . NONRESIDENT DX CODE LWA+1. @^@@@@ S A2CW )@@G@@,DLWP1@^@@@@ LSSL A1,18 @C@@@@ LXM,U A1,RESEND,E .CX )@@G@@ NONRES WC,FWA. @B@@@@ S A1,UACW . NONRES ACW.@^@@@@CY )@@G@@ S A1,DACW @C@@@@ L A1,U8 . U1106/8 FLACZ )@@G@@G. @ @@@@ S A1,U8FLAG @D@@@@ L A1,PRTOFDA )@@G@@F . PRINT$-SUPPRESS FLAG. @ @@@@ S A1,NPRFLAG @ @@@@DB )@@G@@ L A0,(1,RD$BUF) @D@@@@ ER PCT$ . GET ODC )@@G@@RIGINAL RUN-ID. @ @@@@ L A0,RD$BUF @^@@@@ L,U DD )@@G@@ A1,1 @H@@@@ IF ('BEC'L) EQ A0, /S A1,CMLLGH . ENABLE DEBUGDE )@@G@@ COMMANDS IF 'BEC'. @D@@@@ A,U IOWC,28 . FIX WC OF RDF )@@G@@ES LCG,TEXT.@B@@@@ LMJ X11,WRITE . WRITE. @G@@@@/. READG )@@G@@D LOAD CONTROL GROUP; LOOK FOR CONTROL BANK ACW'S, WRITE. THEN @D@@@@DH )@@G@@. COPY FOLLOWING TEXT UP TO NEXT LOAD CONTROL GROUP. @[@@@@. @]@@@@DI )@@G@@LCG . @^@@@@ L,U IOWC,28 @B@@@@ LMJ X11,READDJ )@@G@@ . READ A LCG.@E@@@@ L,U A4,28-1 . RESET TEXT WORD CDK )@@G@@OUNTER. @^@@@@ L,U R1,28-1 @ @@@@ L A3,(1,ACDL )@@G@@WS-1) @^@@@@ L A0,A3 @]@@@@ACW . @B@@@@ L DM )@@G@@ A1,1,*A3 . GET AN ACW.@C@@@@ TNE A1,(0,-0) . END ODN )@@G@@F LOAD? @A@@@@ JGD BNKCTR,F$(1) . YES. @D@@@@ DSL DO )@@G@@ A1,36-2 . NO. DETERMINE ACW TYPE.@^@@@@ SSL A2,2+18 DP )@@G@@@F@@@@ TOP,U A1,3 . UNLESS A NOP OR ZERO-FILL ACW, DQ )@@G@@@C@@@@ A A4,A2 . UPDATE TEXT WC. @D@@@@L$(L$) JGD DR )@@G@@ R1,ACW . REPEAT TO END OF LCG. @]@@@@ENDLCG . @C@@@@ DS )@@G@@ LMJ X11,WRITE . WRITE THE LCG. @D@@@@ SZ A3 DT )@@G@@ . FIND TEXT SECTOR COUNT.@^@@@@ DI,U A3,28 @C@@@@ DU )@@G@@ LMJ X10,COPY . COPY THE TEXT. @^@@@@ TN BNKCTR DV )@@G@@@D@@@@ JNZ BNKCTR,LCG . REPEAT AS BANKS REMAIN.@E@@@@/. COPDW )@@G@@Y ANY DIAGNOSTIC TABLES. CHECK FINAL SECTOR COUNT. @[@@@@. @F@@@@DX )@@G@@ ANU A1,PFPKT+10 . NEXT WRITE LOC - TEXT START ADDR @H@@@@DY )@@G@@ ANU,H2 A2,PFPKT+9 . - CALC TEXT LENGTH = - SECTORS REMAININGDZ )@@G@@. @H@@@@ IF A3 IS NEG . THEN SECTORS REMAIN. THEY MUSEA )@@G@@T CONTAIN THE @H@@@@ LMJ X10,COPY . DIAGNOSTIC TABLEEB )@@G@@S. COPY THEM. (NO PATCHES.) @F@@@@ ANU A1,PFPKT+10 . AGAIEC )@@G@@N CALCULATE SECTORS REMAINING.@ @@@@ ANU,H2 A2,PFPKT+9 @#@@@@ED )@@G@@ ENDIF @G@@@@ IF A3 IS NONZ, /E$RM 15 . NOW THERE SHOUEE )@@G@@LD BE NOTHING LEFT. @[@@@@. @B@@@@. WRITE @ADD ELEMENT; MAKE TOCEF )@@G@@ INSERTIONS.@[@@@@. @F@@@@ S A1,TFPKT+10 . SET ADD ELEEG )@@G@@MENT START LOCATION. @C@@@@ L,U A0,DBUF . WRITE CALL EH )@@G@@CARD. @ @@@@ S,H2 A0,WPKT+4 @ @@@@ L,U IOWC,DLGEI )@@G@@H @G@@@@ LMJ X11,WRITE . EXIT WITH [A1] = NEXT WRITE LEJ )@@G@@OCATION. @^@@@@ DL A2,TFPKT@^@@@@ DS A2,PFPKTEK )@@G@@@^@@@@ L,U A0,PFPKT@G@@@@ ER PFI$ . MAKE EL )@@G@@TOC INSERTION FOR ABSOLUTE ELEMENT. @F@@@@ LN,U A0,TFPKT .EM )@@G@@ MAKE TOC INSERTION FOR ADD ELEMENT;@D@@@@ ER PFI$ .EN )@@G@@ UPDATE WRITE LOCATION.@[@@@@. @E@@@@. READ NONRESIDENT RSEG, RELOCEO )@@G@@ATE, AND WRITE CORE IMAGES. @[@@@@. @^@@@@ L,U A1,NRSEGEP )@@G@@@^@@@@ LSSL A1,2 @H@@@@ L,H1 A1,SLT$+1,A1 . NONREEQ )@@G@@SIDENT DX CODE WC-1 (EXCLUDING AETAB). @^@@@@ A,U A1,1 ER )@@G@@@D@@@@ S A1,NRSWC . PUT IN GW$ PACKET. @C@@@@ ES )@@G@@ L,U A0,BUF . USE FULL BUFFER. @ @@@@ S,H2 A0,CDPKTET )@@G@@+4 @ @@@@ S,H2 A0,WPKT+4 @^@@@@ L,U A0,NRSEGEU )@@G@@@ @@@@ L,U A3,01000,E @^@@@@ LMJ X11,SEG @F@@@@EV )@@G@@ L,U A0,NRSPKT . GATHER-WRITE NONRES WITH AETAB. @ @@@@EW )@@G@@ LMJ X11,EROPR @[@@@@. @A@@@@. @ADD PROGRAM CALL CARDEX )@@G@@ AND EXIT. @[@@@@. @^@@@@ IF ADD IS NONZ @A@@@@ C$EY )@@G@@SF '@ADD ':DXTPF:'.X'@]@@@@ ELSE@ @@@@ P$RINT 'READYEZ )@@G@@!' @#@@@@ ENDIF @^@@@@ J FREEUP @E@@@@/SEG FA )@@G@@ . (X11). READ RELOCATABLE SEGMENT AND RELOCATE. @F@@@@ LSSLFB )@@G@@ A0,2 . CONVERT SLT$ INDEX TO POINTER. @E@@@@ L FC )@@G@@ A1,SLT$+3,A0 . RSEG RELATIVE SECTOR LOCATION@D@@@@ A A1FD )@@G@@,CDPKT+2 . + ELEMENT FHT SECTOR @E@@@@ S A1,CDPKT+5 .FE )@@G@@ = ABSOLUTE SECTOR LOCATION.@E@@@@ L,U A0,4 . READ FF )@@G@@FIRST 4 WORDS OF LCG. @ @@@@ S,H1 A0,CDPKT+4 @^@@@@ FG )@@G@@ I$OW CDPKT @D@@@@ A,U A1,1 . TEXT SECTOR LOCATFH )@@G@@ION. @ @@@@ S A1,CDPKT+5 @D@@@@ L,H2 A0,CDPKTFI )@@G@@+4 . FWA OF INPUT BUFFER. @C@@@@ L,H1 IOWC,0,A0 . RSEG FJ )@@G@@TEXT WC @D@@@@ AU,H1 IOWC,2,A0 . + RELOCATION BIT WC FK )@@G@@@D@@@@ S,H1 A6,CDPKT+4 . = WORDS TO READ. @D@@@@ FL )@@G@@ AU A0,(1,0) . [A1] = TEXT POINTER. @F@@@@ AU,H1 A1FM )@@G@@,0,A0 . [A2] = RELOCATION BIT POINTER. @E@@@@ DS A1FN )@@G@@,X1 . SAVE FOR RELOCATION BELOW. @^@@@@ AN,U A6,1 FO )@@G@@@F@@@@ A A0,A6 . BUFFER FWA + TEXT WC + BIT WC - 1. FP )@@G@@@F@@@@ ER MCORE$ . INSURE SUFFICIENT BUFFER SIZE. FQ )@@G@@@C@@@@ I$OW CDPKT . READ THE RSEG. @D@@@@ L FR )@@G@@ A6,IOWC . SET TEXT WORD COUNTER. @C@@@@ AN,U A6,1 FS )@@G@@ . TEXT WC - 1. @^@@@@ LXI A3,(-0) @E@@@@ L FT )@@G@@ A2,A3 . [A2] = -0,BASE (RELOCATE RH).@E@@@@ LSSC A3FU )@@G@@,18 . [A3] = BASE,-0 (RELOCATE LH).@F@@@@ AU A3,A2 FV )@@G@@ . [A4] = BASE,BASE (RELOCATE BOTH). @G@@@@. THE '-0'S ABOVE ARE NEFW )@@G@@EDED TO CAUSE TEXT '-0'S TO RELOCATE CORRECTLY. @]@@@@R18W . @E@@@@FX )@@G@@ L A0,0,*X2 . GET 18 RELOCATION BIT PAIRS. @C@@@@ FY )@@G@@ L,U R1,18-1 . SET PAIR COUNTER.@]@@@@R1W . @E@@@@ FZ )@@G@@ LSSC A0,2 . NEXT 2 BITS TO BOTTOM OF A0. @D@@@@ AND,GA )@@G@@U A0,3 . [A1] = 0,1,2 OR 3. @C@@@@ L A7,0,X1 GB )@@G@@ . GET A TEXT WORD. @H@@@@ IF A1 IS NONZ, /AH A7,A1,A1 . RELOGC )@@G@@CATE AS REQURED UNLESS ABSOLUTE. @F@@@@ GD )@@G@@ . (NOTE: TEXT MAY BE -0.) @C@@@@ S A7,0,*X1 .GE )@@G@@ PUT IT BACK. @C@@@@ JGD A6,$+2 . ANY MORE TEXT? GF )@@G@@@G@@@@ J 0,X11 . NO. RETURN WITH [IOWC] = WC, [A2] =GG )@@G@@ BASE.@F@@@@ JGD R1,R1W . YES. REPEAT UNLESS BITS EXHAUGH )@@G@@STED. @E@@@@ J R18W . THEN GO REFILL BIT BUFFER. GI )@@G@@@G@@@@/DCDAD . (X10). READ AND DECODE ABSOLUTE OR ELEMENT-RELATIVE ADDRGJ )@@G@@ESS. @^@@@@ S A0,TRPKT@^@@@@ T$READ TRPKT @D@@@@GK )@@G@@ L,U A0,0,A0 . GET INPUT WORD COUNT. @D@@@@ SN GL )@@G@@ A0,RD$BUF,A0 . SET SCAN$ STOPPER. @^@@@@ LN A0,A0 GM )@@G@@@F@@@@ JZ A0,0,X10 . RETURN WITH [A0] = -0 IF SPEC VOID.GN )@@G@@@[@@@@. @C@@@@ S$CAN SCPKT . ELSE, OPEN SCAN$.@D@@@@GO )@@G@@ SZ AETSMRY . CLEAR SCHAET PACKET. @ @@@@ LMJ GP )@@G@@ X11,RSTAET @D@@@@ L,U A0,12 . EXTEND SYMBOL-CHAGQ )@@G@@ACTER @F@@@@ S A0,SXC . LIST TO INCLUDE A-Z, 0-9, $,GR )@@G@@ -. @D@@@@ S$FIND '.' . ANY PERIOD IN STRING? @F@@@@GS )@@G@@ IF A1 IS POS . THEN PERIOD FOUND. ADDRESS ELT-RELATIVE. @[@@@@GT )@@G@@. @F@@@@ S$TS . TABLES PRESENT. THIS ITEM A SGU )@@G@@YMBOL?@A@@@@ J SYNTAX . NO. @E@@@@ IF 12,,UGV )@@G@@ LT A3, /J SYNTAX . TOO MANY CHARACTERS. @[@@@@. @D@@@@ DSGW )@@G@@ A0,ELTNM . SAVE AS ELEMENT NAME. @C@@@@ S$ND '.' GX )@@G@@ . NEXT A PERIOD? @C@@@@ J SYNTAX . NO. SYNTAX GY )@@G@@ERROR.@G@@@@ SZ SXC . YES. DISCARD SYMBOL EXTENSIONGZ )@@G@@ TABLE. @D@@@@ S$NN . NEXT ITEM A NUMBER? HA )@@G@@@A@@@@ J SYNTAX . NO. @[@@@@. @E@@@@ IFHB )@@G@@ 64,,U LT A0, /J SYNTAX . LC NUMBER TOO BIG. @B@@@@ S HC )@@G@@A0,LC . SAVE AS LC.@F@@@@ SZ RELADDR . ASSUME NO RHD )@@G@@ELATIVE ADDRESS GIVEN. @D@@@@ S$ND '+' . LC FOLLOWEDHE )@@G@@ BY A SIGN? @F@@@@ J F$(1) . NO. USE RELATIVE ADDRESHF )@@G@@S ZERO. @[@@@@. @D@@@@ S$NN . YES. NEXT AHG )@@G@@ NUMBER? @A@@@@ J SYNTAX . NO. @D@@@@ HH )@@G@@A A0,RELADDR . YES. FOLD IN OFFSET. @ @@@@ S A0,RHI )@@G@@ELADDR@#@@@@ S$N @[@@@@. @C@@@@L$(L$) L,U X11,FAHJ )@@G@@BS . VERIFY ADDRESS. @]@@@@ ELSE@[@@@@/. @F@@@@ SZHK )@@G@@ NXTITM . NO PERIOD. RESET STRING POINTER. @E@@@@ S$HL )@@G@@FIND ':' . SCAN STRING FOR A COLON. @C@@@@ IF A1 ISHM )@@G@@ POS . THEN COLON FOUND.@B@@@@ S$T . GET IHN )@@G@@TEM. @G@@@@ IF 0200,,U NE A2 OR 12,,U LT A3, /J SYNTAX . ILLHO )@@G@@EGAL SYMBOL.@D@@@@ DS A0,SEGNM . SAVE AS SEGMENT NAME. HP )@@G@@@C@@@@ S$ND ':' . NEXT THE COLON? @A@@@@ HQ )@@G@@J SYNTAX . NO. @D@@@@ S$N . YES. GET NEHR )@@G@@XT ITEM. @#@@@@ ENDIF @[@@@@. @F@@@@ SZ HS )@@G@@SXC . DISCARD SYMBOL EXTENSION TABLE. @D@@@@ S$TN HT )@@G@@ . THIS ITEM A NUMBER? @^@@@@ J SYNTAX@F@@@@HU )@@G@@ S A0,ABSADDR . YES. SAVE AS ABSOLUTE ADDRESS. @#@@@@HV )@@G@@ S$N @G@@@@ L,U X11,FREL . FIND CORRESPONDINHW )@@G@@G RELATIVE ADDRESS. @D@@@@ ENDIF . RELATIVE VSHX )@@G@@ ABSOLUTE. @[@@@@. @F@@@@ IF ENDSTR,,U NE A2, /J SYNTAX . SHHY )@@G@@OULD BE NOTHING MORE. @G@@@@ LMJ X11,0,X11 . VERIFY RELAHZ )@@G@@TIVE OR ABSOLUTE ADDRESS. @C@@@@ IF A0 IS ZERO . THEN IA )@@G@@ADDRESS OK. @B@@@@ L A0,ABSADDR . GET IT @C@@@@ IB )@@G@@ J 0,X10 . AND RETURN. @#@@@@ ENDIF @[@@@@IC )@@G@@. @D@@@@ LMJ X11,SATSTAT . ELSE, REPORT PROBLEM @D@@@@ID )@@G@@ J AGAIN . AND RESOLICIT SPEC. @[@@@@. @]@@@@IE )@@G@@SYNTAX . @D@@@@ L,H2 A0,TRPKT . FIX UP INDENT COUNT FORIF )@@G@@@F@@@@ DL A1,0,A0 . QARROW: FIND COLUMN OF RUBOUT IN IG )@@G@@@C@@@@ L,U A0,11 . TREAD$ MESSAGE, @^@@@@ AND,IH )@@G@@U A2,077 @^@@@@ DSL A1,6 @^@@@@ TE,U A3,077 II )@@G@@@^@@@@ JGD A0,$-3 @G@@@@ A A0,THSITM . TO WIJ )@@G@@HICH, ADD LOCATION OF ITEM IN ERROR.@E@@@@ LMJ X11,QARROW .IK )@@G@@ INFORM OF SYNTAX PROBLEM. @]@@@@AGAIN . @D@@@@ L A0IL )@@G@@,TRYAGAIN . PRINT 'TRY AGAIN:' @^@@@@ J DCDAD @H@@@@IM )@@G@@/READ . (X11). READ [IOWC] WORDS; UPDATE SECTOR ADDRESS. ALTERS A0-A2IN )@@G@@. @^@@@@ L,U A0,RPKT @^@@@@ J F$(1) @E@@@@IO )@@G@@WRITE . (X11). WRITE [IOWC] WORDS; UPDATE SECTOR ADDRESS. @^@@@@ IP )@@G@@ L,U A0,WPKT @C@@@@L$(L$) S,H1 IOWC,4,A0 . SET WORD COUNT. IQ )@@G@@@^@@@@EROPR ER IOW$ @B@@@@ L,S1 A1,3,A0 . GET SIR )@@G@@TATUS.@E@@@@ IF 05,,U LT A1, /E$RM 16 . TERMINATE IF I/O ERROR. IS )@@G@@@D@@@@ L A1,IOWC . NO. FIND SECTOR COUNT. @^@@@@ IT )@@G@@ A,U A1,27 @^@@@@ DV A1,28 @F@@@@ A A1IU )@@G@@,5,A0 . BUMP SECTOR ADDRESS IN PACKET. @^@@@@ S A1IV )@@G@@,5,A0 @G@@@@ J 0,X11 . EXIT WITH [A1] = NEXT SECTOR IW )@@G@@ADDRESS. @[@@@@. @H@@@@COPY . (X10). COPY ABS([A3]) SECTORS ELIX )@@G@@EMENT TO ELEMENT, PATCHING CER- @D@@@@ . TAIN CODE IF [A3]>0.IY )@@G@@ ALTERS X11-A3, R1. @D@@@@ SN A3,R1 . SET R1 > 0 IZ )@@G@@IF A3 < 0. @D@@@@ LM A3,A3 . [A3] = SECTOR COUNT. JA )@@G@@@^@@@@ MSI,U A3,28 @E@@@@ L,U IOWC,BLGH . SET FJB )@@G@@OR STANDARD BUFFER SIZE.@]@@@@L$(L$) . @F@@@@ IF A3 IS NONZ JC )@@G@@ . THEN TEXT REMAINS TO BE COPIED. @H@@@@ IF BLGH,,U GT JD )@@G@@A3, /L IOWC,A3 . IF FEWER THAN BLGH WORDS REMAIN, @F@@@@ JE )@@G@@ . REDUCE BUFFER SIZE. @C@@@@ LMJF )@@G@@J X11,READ . READ A BUFFER. @F@@@@ JGD R1,F$(1) .JG )@@G@@ SKIP PATCHING IF [A3] WAS < 0. @A@@@@ L A0,EROPR .JH )@@G@@ ELSE,@ @@@@ LXM,U A0,EXIT$ @A@@@@ L A1,(DXJI )@@G@@$EXIT ) @F@@@@ LMJ X11,PATCH . REPLACE 'ER EXIT$' WITHJJ )@@G@@ CODED ERR$.@ @@@@ LXM,U A0,LOAD$ @A@@@@ L JK )@@G@@A1,(DX$LOAD ) @F@@@@ LMJ X11,PATCH . REPLACE 'ER LOAD$JL )@@G@@' WITH CODED ERR$.@ @@@@ LXM,U A0,IALL$ @A@@@@ L JM )@@G@@ A1,(DX$IALL ) @G@@@@ LMJ X11,PATCH . REPLACE 'ERJN )@@G@@ IALL$' WITH CODED 'ER CEND$'.@ @@@@ LXM,U A0,CREG$ @A@@@@JO )@@G@@ L A1,(DX$CREG ) @G@@@@ LMJ X11,PATCH .JP )@@G@@ REPLACE 'ER CREG$' WITH CODED 'ER CEND$'.@D@@@@L$(L$) LMJ X11,WRJQ )@@G@@ITE . THEN WRITE THE BUFFER. @E@@@@ AN A3,IOWC . UPDATJR )@@G@@E REMAINING WORD COUNT. @^@@@@ J B$(2) @#@@@@ ENDIJS )@@G@@F @^@@@@ J 0,X10 @H@@@@/PATCH . (X11). REPLACE CODE JT )@@G@@WITH [A1] WHEREVER [A0] IS FOUND. ALTERS A2,R1. @^@@@@ L R1JU )@@G@@,IOWC @ @@@@ L A2,(1,BUF-1) @^@@@@L$(L$) SE A0,1,*A2JV )@@G@@@^@@@@ J 0,X11 @^@@@@ S A1,0,A2 @^@@@@ JW )@@G@@ J B$(1) @[@@@@. @F@@@@CLACWS . (X11). CLEAR ACWS+1 TO ACWJX )@@G@@S+27 TO [0,A0]. ALTERS A1,R1.@ @@@@ L A1,(1,ACWS+1) @^@@@@JY )@@G@@ L,U R1,27 @^@@@@ BT A1,0,*A0@^@@@@ J JZ )@@G@@ 0,X11 @[@@@@. @A@@@@. RETURN HERE FROM ERROR$ ROUTINE. @]@@@@KA )@@G@@EXIT . @A@@@@ P$RINT 'DX TERMINATED.' @]@@@@FREEUP . KB )@@G@@@E@@@@ C$SF (4,ASGP) . RELEASE USER PROGRAM FILE. @^@@@@KC )@@G@@ ER EXIT$ @#@@@@/. ERROR MESSAGES.@]@@@@$(0) . @D@@@@KD )@@G@@EMS$(1) 'ILLEGAL PROGRAM OPTION SPECIFICATION.\\' @B@@@@EMS$(2) '@ASKE )@@G@@G,A OF PROGRAM FILE FAILED.\\'@ @@@@EMS$(3) 'NO SUCH FILE.\\' @B@@@@KF )@@G@@EMS$(4) 'PROGRAM FILE NOT READ-ENABLED.\\'@ @@@@EMS$(5) 'PROGRAM NOT FOUKG )@@G@@ND.\\'@A@@@@EMS$(6) 'FILE NOT A PROGRAM FILE.\\'@D@@@@EMS$(7) 'U-OPTION KH )@@G@@NOT AVAILABLE EXCEPT ON 1110.\\' @A@@@@EMS$(8) 'N/P OPTION CONFLICT.\KI )@@G@@\' @E@@@@EMS$(9) 'SPECIFICATION(S) BEYOND SECOND MEANINGLESS.\\' KJ )@@G@@@A@@@@EMS$(10) 'SPECIFICATION OVERFLOW.\\'@C@@@@EMS$(11) 'ABNORMALLY LONKK )@@G@@G BANK LOAD TABLE.\\' @^@@@@EMS$(12) 'FILE ERROR\\' @B@@@@EMS$(13) 'NOKL )@@G@@ CORE AVAILABLE FOR DX.\\' @C@@@@EMS$(14) 'ERROR IN READING DIAGNOSTIKM )@@G@@C TABLES.\\'@A@@@@EMS$(15) 'DX SECTOR COUNT ERROR.\\' @A@@@@EMS$(16) 'MAKN )@@G@@SS STORAGE I/O ERROR.\\'@#@@@@/. FIXED DATA. @[@@@@$(0) @^@@@@ KO )@@G@@ CHAR '%',077 @A@@@@BRKREQ ICW 1,'BRK ADDR: %' @A@@@@TRPREQKP )@@G@@ ICW 1,'TRAP ADDR: %' @A@@@@TRYAGAIN ICW 1,'TRY AGAIN: %' KQ )@@G@@@^@@@@ CHAR '%',052 @H@@@@NODIAG ICW 1,'DIAGNOSTIC TABLEKR )@@G@@S ABSENT. ALL ADDRESSES MUST BE ABSOLUTE.'@^@@@@ABORT $EQUF *EXIT KS )@@G@@@]@@@@P0 . @^@@@@ELTWC $EQUF *$,X8 @E@@@@ +FHT+0 KT )@@G@@ . POINTERS FOR OLD-STYLE FHT. @^@@@@DIAGTAB $EQUF *$,X8 KU )@@G@@@#@@@@ +FHT+7 @^@@@@SLT $EQUF *$,X8 @#@@@@ +FHTKV )@@G@@+6 @^@@@@TABLES $EQUF $,X8 @^@@@@ +1,FHT+012-1 @^@@@@KW )@@G@@P1 $EQU $-P0 @E@@@@ +FHT+032 . POINTERS FOKX )@@G@@R NEW-STYLE FHT. @#@@@@ +FHT+020 @#@@@@ +FHT+021 @^@@@@KY )@@G@@ +1,FHT+022-1 @[@@@@. @F@@@@SYMLIST +'$' .KZ )@@G@@ SYMBOL EXTENSION LIST FOR SCAN$. @]@@@@ +'-'@ @@@@I $DO LA )@@G@@0,9 , +$CD(I) @A@@@@/. PACKETS, BUFFERS, VARIABLE DATA. @]@@@@$(2) LB )@@G@@ . @^@@@@ERRPKT ERR$PKT EXIT @[@@@@. @[@@@@. @#@@@@ASGP LC )@@G@@ '@FREE,A' @ @@@@PFPKT P$FP '$DX$UPGM$' @ @@@@TFPKT P$FP DXLD )@@G@@TPF,'X',,1,4@^@@@@TSCELL $EQU $-1 @[@@@@. @]@@@@TRPKT +0,0LE )@@G@@@^@@@@ +EXIT,RD$BUF @[@@@@. @^@@@@ECPKT E$PKT 0,CCARD LF )@@G@@@A@@@@/RPKT I$OD '$DX$UPGM$',R$ 0,BUF@ @@@@WPKT I$OD DXTPF,W$LG )@@G@@ 0,BUF@ @@@@CDPKT I$OD ,R$ ,TEXT @B@@@@NRSPKT I$OD DXTPF,GWLH )@@G@@$ 2,F$(1) NRSECT @^@@@@NRSWC $EQUF $,,H1 @#@@@@L$(L$) +0,BUF LI )@@G@@@^@@@@AETWC $EQUF $,,H1 @#@@@@ +0,AETAB @[@@@@. @]@@@@LJ )@@G@@PTRAP -0 @F@@@@UTRAP -0D . MUST IMMEDIATELY FOLLOWLK )@@G@@ PTRAP. @^@@@@U8 $EQUF $,,S1 @^@@@@ADD $EQUF $,,S2 LL )@@G@@@^@@@@NOPT $EQUF $,,S3 @^@@@@PRTOFF $EQUF $,,S4 @^@@@@AFLG LM )@@G@@ $EQUF $,,S5 @^@@@@SLITES +0,1,1,1,1, @A@@@@/$(10),NRSDATA . MLN )@@G@@UST END D-BANK. @F@@@@ NRSGEN . GENERATE NON-RESILO )@@G@@DENT DATA TABLE. @[@@@@. @ @@@@$(3) . MUST END I-BANK. @[@@@@LP )@@G@@. @G@@@@DSLGH $EQU 4 . SECTOR SIZE FOR PGM CALL CARDLQ )@@G@@ BUFFER. @E@@@@BLGH $EQU 36*28 . INITIAL SIZE OF BUFFER LR )@@G@@'BUF'.@[@@@@. @]@@@@FHT . @ @@@@FFLG $EQUF $+013,X8,S4 LS )@@G@@@]@@@@ACWS . @E@@@@BUF $RES BLGH . BUFFER FOR EVERYTLT )@@G@@HING ELSE. @^@@@@BLT $EQU FHT+28 @^@@@@TEXT $EQU ACWS+28 LU )@@G@@@^@@@@DLGH $EQU 28*DSLGH@D@@@@DBUF 05001,0,0 . BUFFELV )@@G@@R FOR PGM CALL. @#@@@@ '*SDFF*' @F@@@@CCARD $RES DLGH-2 LW )@@G@@ . I-BANK EXPANDS FROM THIS POINT. @[@@@@. @]@@@@ $ENDLX )@@G@@_@@@@@ A7,0,*X1 . PUT IT BACK. @C@@@@ JGD A6,$+2 LY )@@G@@ . ANY MORE TEXT? @G@@@@ J 0,X11 . NO. RETURN LZ )@@G@@)@@[#]@[]@^*>G@^C@=G@^C@0@@@@@@%)@[@/,0@@@C@@@["/,0@@@&;@@[.C8@@@@'=@@@@MA )@@G@@C@@@@@AA@@@@)@C[]^C[^[]@P]@P]@P]@O@@@@@@@@(@@@@@ 4@@@[C7@@@[9,)@@D/K@@@MMB )@@G@@/,0@@@C8@@@] @@@@SAB@@@@)@K[N]@O^C[@**K#@@=8@@@]@%)@[#@%)@[]/,0@@@C8@@@EMC )@@G@@/S@@@@/,0@@@C8@@@[@%)@[[*C@@@[AC@@@@)@U[EEE^@8-@KCE^@%]@@@@@9*@@@G9*@@@^MD )@@G@@9?@@@2@%)@[A'=@@@@@%)@[ /,0@@@C8@@@G@%)@[^AD@@@@)@<[#[K) KOC[OG@^G@[]@O@ME )@@G@@@@@@@@9*K@@@G@)@@H%@@@][9?K@[_9*@@@F9?@@@M9*@@@D9?@@@IAE@@@@)@:[F[K)D^G@MF )@@G@@^^K^^@@@@@@@@%)@[B*4@@[D/K@@@5>8@@[@[@@@[A=@@@[/ @@@@K'=@@@@;/)@[DAF@@@@MG )@@G@@)@4[N[^^KL[^@@@@@@=8@[@@/K@@[@>8@@K@ ?@@[D>8@[@@ 0@@[D=8@@@^ *@@[D>8@@C@MH )@@G@@[@@@[BAG@@@@)@"[E]+-@O]^[S)@@@@@@@@@/K@@[D(@@@@K')])@@C/)@@@O80@@[/,0@@@MI )@@G@@C/@@@&C9@@@[@%)@[CAH@@@@)[B[F]@1@^C#L@^C]0@@@@@@9?@@@Q')])@@C/)@@,/K@@[?MJ )@@G@@(@@@@S/,0@@@C8@XQT/K@@[F/,0@@@AI@@@@)[K[M^@@^C]4@@@@@@8A@@[N')])@@@%)@[[MK )@@G@@!8)@@)!8)@@A+8K@@_;=@@@A/K@@[V0@@@@GH;@@@[AJ@@@@)[U[V@@@@K@@8A@@[W;=)@@#ML )@@G@@;*)@@-@%)@[[!8)@@C1@@@@IH8)@@0+8K@@_;=@@@A @@@@J/K@@[?AK@@@@)[>[E[#@[@K)MM )@@G@@FK[]@?@@@@@@')])@@C/)@@ /:)@[(')])@@'C0@[:C@)@]#@%)@[[*@@@@I;?)@@EAL@@@@MN )@@G@@)[,[F#@[@K)G^C[@K^C#)@@@/,0@@@/K@@]F@%)@[D*@G@@@/,0@@@C8C)@@/,0@@@/ @@[6MO )@@G@@R]@@]^AM@@@@)[7[E^C[^[]@P]@P]@1@@@@@(@G@@@/K@@][/,0@@@ @@@@@**@@@[/K@@[_MP )@@G@@/,0@@@C8C)@@C[)@@GAN@@@@)]@[F@^C]4C#-@^C#0@@@@@@C/)@@;/,0@@@C@@@@M/K@@[7MQ )@@G@@?8@@[U/,0@@@')])@@C/)@@,/K@@]FAO@@@@)]D[F]@!@^C^^C^KKO^@@@@@A^0@@&[@@K@&MR )@@G@@;*@@@SH8@@@[/,0@@@/,0@@@ @@@@M/K@@]G')])@@AP@@@@)]M[M^@KK()A]A@@@@C@@@]DMS )@@G@@@%)@[E!8@@[1H8@@J0C8#@@@[@@K@&D8@@@@/ )@[6P'@@@[O80@@[AQ@@@@)]W[F][CK^G@MT )@@G@@^C^=[#@GK@@@/,0@CPC9KK@W @@@@@/K@@]>'=@@@@C@@@]I/K@@]+*@@@@G'=@@@@AR@@@@MU )@@G@@)]>[N[[][H[KO^K^^@0@@@@O/,0@CNC9K@J0[@@@@7[@@@@1C@@@@Q'=@@@@&;K@@#C8K@[CMV )@@G@@C8@@@8AS@@@@)]\[N@^^KOG@1#@GK@/K@@#JC;0@@[[^@@@[H8@@C@C^@@@[[C@@@OG8@@C@MW )@@G@@CC@@@O @@@@C/K@@]9AT@@@@)]9[MK0#[[KL#@GK@@/K@@# (@@@@K+*8@@F;*0@@[C=0@[DMX )@@G@@CV0@@O@%)@[F!8K@JPC^K@@TR'@@@^AU@@@@)##[F@^G@4G@^G@^G@1#@G@@1@@@@GCO@@@XMY )@@G@@;D@@@-[[@@@X'T@@]K+@0@]JC@0@@X@%)@[G @@KDBAV@@@@)#G[E@EKECS[*S[*C@@@@@@@MZ )@@G@@D#)@@U*?@@[D[^@@@^CB)@@^G8@@@@R9?@@@;*@@@D@%)@[H*@@@@KAW@@@@)#P[E(@%CKF@NA )@@G@@CS@C]A@@@@@@K@SK[(/K@@#Z(@CK[(W/K@@W;OK@@=G8K@@8CCX@@[;*K@@]C8K@@@AX@@@@NB )@@G@@)#Y[F#@[[KL#@[#@G@@@@@@@W.@@@W;P@@@=G9@@@7C @@@T[@SK[*T8K@@W[^K@@PG^K@@PNC )@@G@@[@*K[(AY@@@@)#$[EK^ [K0#KO [K0E@@@@@C80@[CC@)@@Q9?@@@?#CK@@0H@K@@ H@K@@QND )@@G@@[@K@@1/,0@CPS9@@@WAZ@@@@)#0[#][W^ #@[][-#@(#@*@@@@@@@@ ?@@[##F)@[B/,0@@@NE )@@G@@C@@@]L[C@@[ @%)@[I0@@@@G/,0@@@BA@@@@)#8[F#@[#@(]@ [^^K^@@@@@/K@@^8/K@@^[NF )@@G@@*@@@@O(?@@[DK[0@@M9!)@[A'=@@@@(@@@[IC@@@[$BB@@@@)^[[##@(]@(#@[][>#@(][(#NG )@@G@@@(@@@@/K@@^S(@@@[I/,0@@@CC@@[B/,0@@@C8@@]M/,0@@@C/@@@2BC@@@@)^D[F][!][0^NH )@@G@@G]=CBL]@!#@*C?@@[A')])@@C/)@@./,0@@@9?@@[^@%)@[I*@@@@G/,0@@@/,0@@@BD@@@@NI )@@G@@)^M[#][*K)FK0EK)UK)V^C]0@@@@@@')])@@C/)@@./,0@@@/,0@@@C^@@[A')])@@C/)@@+NJ )@@G@@/,0@@@BE@@@@)^U[F#@[]@^K^G@^@K^G])@@CWK@[#/K@@^$0@@@@G/,)@B[C@@@[Q/K@@^:NK )@@G@@(@@@@M'=@@@@C@@@]QBF@@@@)^<[EK0E^[#@[]@^KK@@@@@@(@@@@N[@@@[AD8@@@@'=@@@@NL )@@G@@C@@@]U/K@@^%&#@@@HGCK@[C;*K@@]BG@@@@)^?[F@K0@K[@^G]=[#@@@@@@C@@@]Z/K@@^7NM )@@G@@CWK@[@&;@F@@/K@@^40@@@@G/,)@B[C@@@[T/K@@^8BH@@@@)^5[F]@^KO @EKE*KJC@@@@@NN )@@G@@&#)@@L/,0@ATC86@@@C8@@@@/,)@C+CC0@@09*@@[BD8@@@@'=@@@@BI@@@@)^"[##@G()@)NO )@@G@@ G@_@/)*KJ*KJ>CC@@C8K@@@[J$@[O[@R@@8K@@#NT )@@G@@;C)@@O;GK@@+8A0@ (:@K@]=C@Z)@[C@@@@JC@0@]CC[@EC@@@@@C8@@@"/,0@ATC86@C@C8@@@@[^@@@6[^@@@/NY )@@G@@C8@@@@[CK@[^G8K@@[BR@@@@)AK[F@KO[#@[][D@K0@K)[K@/K@@DD'=@@@@C@@@](/K@@ASNZ )@@G@@'=@@@@C@@@]$/K@@AQ(0@@[D/,0@CRBS@@@@)AT[EK)QKO^KM+-[A@@@@@@@G8K@@['=@@@@OA )@@G@@C/@@@8[C@@@/C8@@@^[@K@@.G@K@@'C@W@@#;*@@@]BT@@@@)A+[N[KKKOG@@@@@@@G@@@@MOB )@@G@@H9)@@[9*K@@[KCW@@@K@@@]%[D)@@/KDW@@]CDW@@@C^@@@/[@K@@.BU@@@@)A?[N]]K**KLOC )@@G@@)-)@@@C@])@@K@0@@I;)0@@MC@)@@J�@]:H9)@@[C[)@@L'=@@@@C/@@@8'=@@@@BV@@@@OD )@@G@@)A6[U@@K[@K@/K@@A58KK@A7/KF@@@8^)@A_[[1)@@'L.@@H*@@@@HC[1@@@+8@@@#;)@@@]OE )@@G@@N8K@@LBW@@@@)B[[F[EE^^*-)O]A[M^^0@@@/,0@@@R_@@@:/@E@@@D@@@@G]@G@@@C8G@@@OF )@@G@@'=@@@@C8@@@=[@@@@=BX@@@@)BE[F#@(]]W[]])K^CEK@@@@/,0@@@/K@@B:0@@@@H/,0@@@OG )@@G@@R_@@@.[0^@@@C8@@@G/,0@@@ @@@[BBY@@@@)BN[F@^[#@*K)%K[]]?@@@@@/,0@@@ 0^@@@OH )@@G@@/K@@CC/,0@@@R_@@@.9*@@[^/K@@CC!80@@H/K@@CCBZ@@@@)BW[F@^[#@(#@*K)%K^CE0@@OI )@@G@@/,0@@@/K@@B(/,0@@@R_@@@+ ^@@[A[?@@[A/K@@CC!8@@[[/K@@CCCA@@@@)B>[F@K0EK0EOJ )@@G@@K)?EKQ*@CKO@/,0@@@R_@@@: G^@@ /K@@B_R'0@@@/,0@@@[^@@[AG^@@[A/K@@CCCB@@@@OK )@@G@@)B,[EK^CF)K^G]-]]*@@@@@@/,0@@@R_@@@:9*@@[[/K@@CC!80@@H:8)@]@/,0@@@/K@@B9OL )@@G@@0@@@@HCC@@@@)B7[F@K)?^CF4[#@(]]0(@8@%8)@#@R'0@@@/,0@@@[C@@[B/K@@CC/,0@@@OM )@@G@@ 0^@@@/,0@@@/K@@CCCD@@@@)C@[N@[@K0E^CG^[[@9?W@@@C^@@@=/K@@CL/,0@@@/KE@@@ON )@@G@@CC@@[B/K@@CA*@@@@G/,;@@@/K@@CCCE@@@@)CE[M@K[]# #@[@EC@C8@@@?/K@@B[C@@@[WOO )@@G@@/,0@@@GC^@@ 8#@@CF%80@@_;GK@@A+8)@@_C8@@@FCF@@@@)CO[N@EC-[A@@@@@@@;OK@@=OP )@@G@@G8K@@VC@K@@L@%)@[K!8K@@AC4W@@#'=@@@@[DW@@^C8@@@2/K@@CQCG@@@@)CY[U@@[@@@@OQ )@@G@@?80@J0/K@@C/(@@@@JC9K@J0T80@@WE@0@@J]@0@[[/KF@@@[@W@@ G@W@@ W/K@@WCH@@@@OR )@@G@@)C([EK^[@EKTCS@C[M#H#@@@C@K@]!Q;@@@@/,0@C.C@K@]?Q;@@@@C@@@CR8KK@C9/,0@CNOS )@@G@@C[K@@JCI@@@@)C2[F@EKUCS@C[M#P#@[@K@@H@0@@L/,0@CP/,0@C.C@K@]\Q;@@@@/,0@C.OT )@@G@@C@K@],Q;@@@@/,0@C.CJ@@@@)C;[N@[#@@[@K0@@@@N8K@@VC@K@]0/K@@C_[@Y@@@/KF@@@OU )@@G@@2@I)@[C@)@]G@0@@@@@@[@@D@@@@@A@@@@@B@@@@@@@[E@[XPH )@@G@@TE. ABSOLUST BE CV@@@@)[?[@/S#@G/S#@G/S#@G()A@@@@@@@@@@@@1@@@@@0@@@@@-PI )@@G@@@@@@@$@@[@@L@@@@@L@@@@@K@@@@@UCW@@@@)[4[@@@@@@@@)@@@G*@@@@@@[[@@DB@@@@@9PJ )@@G@@@@@@@8@@@@@7@@@@@6@@@@@5@@@@@4@@@@@3@@@@@2CX@@@@)@[@4GS@M&@[<@]O0@GS@M&@PK )@@G@@[<@]O0@GS@M&@@@@@@@@%@@2@@Z@@&@@Q@@U@@H@@K@@@@@B@@@@@@CY@@@@)@B[^1)[ES@APL )@@G@@G@DN@@1)[ES@@@@@@@@@@@@@GM$ $DX$UPA @FREE,@[F@[J@@_@[^@@7@@.CZ@@@@PM )@@G@@)@J[W@@@@@@@ $DX @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PN )@@G@@@@@@@@DA@@@@)@U[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@[@@@PO )@@G@@@@@@@@ X DB@@@@)@>[O0OG]+&@S@@@@@@@@@@@GM$ $DX$UP@@@@@@@@@@@@PP )@@G@@@@@@@@[[@@@@@@@@@@&&@@J2@DB@@@DC@@@@)@\[G;:]#S()A@BXSKV>G@0@@@@@@@@@@@@@PQ )@@G@@@@@@@@@@@@@@ $DX @@@@@@@@@@@@@@@@@@DD@@@@)@8[G@;:]#S()A@@@@@@@@@@PR )@@G@@@@@@@@ $DX @@@@@@@@@@@W@@@@@@@@@@@@ DE@@@@)[[[G;:]#)*-PS )@@G@@N@H#@*@@@@@@@[[[[@__________________@@@@[C@@@@@@@@@@K@@@]@[^@@@@@@DF@@@@PT )@@G@@)@@[Y[K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PU )@@G@@@@@@@@DG@@@@)@F[Y[K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PV )@@G@@@@@@@@@@@@@@@@@@@@DH@@@@)@Q[Y[K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DI@@@@)@-[Y[K@@@*@@[ @@@@@@@@@@@@@@@@@@@@@PX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DJ@@@@)@?[Q[K@ES@ @@@@@@@@@@@@PY )@@G@@[[@@@@@@@@@@&&G@@J@@@@[0___@@@@@@@@@@@@@@@@@@@@@[@_@@@DK@@@@)@6[Y[K@@@@@PZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DL@@@@QA )@@G@@)[[@"[K@@@@@)J0@Q@S@@@@@*SDFF**[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QB )@@G@@@@@@@@DM@@@@)[/[S]&@S@@@ $DX,F@ASG,T@@[@@#__@@TA [@@@@@@[@@@@QC )@@G@@@J0@@@@[@[T^@[@@@@DN@@@@)]B[K])@ @@@@@@@@@@@@[_"7_____@@^@]E1500 F,F///QD )@@G@@ $DXPR@ASG,T@@^@] 999 ///999DO@@@@)]L[C)S OG])[#@*@@@@@@@@ELLED.Q CANCQE )@@G@@BRK RE@[G@@J)& T & (&ARTS APGM ST@@.@[CDP@@@@)]U[K*@[K^G])!)A@@@@[__"QF )@@G@@BEC @@[@@@K@@@@@@[^@]V. CELLEDEQ CANTRAP R@[#@]RDQ@@@@)]=[K@*[K[]@QG )@@G@@-]@)@@'$K@@@'$0@@@______@@[@@@@[[@]*READY!@@]@]>DX.X @ADD $@@@___DR@@@@QH )@@G@@)],[[]#>]#=()A@O]+@@@@@@@@@@@@@@^@@E@[#@]1D. MINATEDX TER@@[@@['&0@@@QI )@@G@@'$@@@@DS@@@@@@@@@@@@@@@@PROGRA\\ ABLED.EAD-EN NOT RM FILEPROGRA.\\ QJ )@@G@@H FILENO SUC\\ CN@@@@@@^@@F@@J@@'@]#@@[@]B@@@@@E@]6@@@@DG@@@@[E@@@@L)QK )@@G@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@@@@@[CDXLVL PRINT$ CTNCY$QL )@@G@@ RINF$ SELT$ ELT$ DASGA$ FINDX$ ERR$ QM )@@G@@ OPT$ EDIT$ EDIT$T FENAME$ EFD1$ ECOLN$QN )@@G@@ ECOL$ EFILL$ EWC$ CSF$ PCT$ IPLOADQO )@@G@@ RSSEG SLT$ WRTAET SCHAET EMSG$ EOCTV$QP )@@G@@ EMSGR$ FREL EFD2$ RES RESDATA NRSEG QQ )@@G@@ RESEND PFI$ IOW$ MCORE$ TREAD$ SCAN$ QR )@@G@@ RSTAET SFIND$ STHIS$S SNEXT$D SNEXT$N SNEXT$QS )@@G@@ FABS STHIS$ STHIS$N SATSTAT QARROW EXIT$ QT )@@G@@ LOAD$ IALL$ CREG$ R$ W$ GW$ QU )@@G@@ CEND$ DX @@[@@@@@@@@@FLAG:=FALSE$@C@@@& FOR P:=PQV )@@G@@*[S@@@*SDFF*@I@@@@LEVEL $EQU '2.2' . MAJOR RELEASE. QW )@@G@@ 1/18/80. @I@@@@LEVEL $EQU '2.3' . FIX SQX )@@G@@CHAET TO MAKE FREL YIELD '*ABS*'. 3/24/80. @H@@@@LEVEL $EQU '2QY )@@G@@.4' . FIX FIND TO CORRECTLY DISPLAY FOUND VALUE. @I@@@@ QZ )@@G@@ . 7/20/8RA )@@G@@0. @I@@@@LEVEL $EQU '2.5' . FIX UTILITIES TO PRINT 8 FIELRB )@@G@@DATA WORDS/LINE IN- @H@@@@ . STEAD OF 1RC )@@G@@0 (WHICH WON'T FIT) AND TO PRINT U- @I@@@@ .RD )@@G@@ FIELD IN OCTAL FOR CHANGE COMMAND IF INSTRUCTION @I@@@@ RE )@@G@@ . FORMAT. ADD 'C!' TO COMMAND LIST. 8/15/80. RF )@@G@@@H@@@@LEVEL $EQU '2.6' . INCORPORATE FINDELT$, NEW ER MNEMONRG )@@G@@ICS INTO DX.@G@@@@ . TREAT 'ER CREG$' SAME ARH )@@G@@S 'ER IALL$'. @F@@@@ . INCLUDE IABT CONTRI )@@G@@INGENCY HANDLING. @H@@@@ . CHANGE ':' TO '>'RJ )@@G@@ IN CHA AND CML SOLICITATIONS.@I@@@@ . FORBIRK )@@G@@D NEGATIVE WORD COUNTS. 9/5/80. @H@@@@LEVEL $EQU '2RL )@@G@@.7' . ALWAYS GIVE LC # WHEN LISTING ELT-RELATIVE @I@@@@ RM )@@G@@ . ADDRESSES. 10/24/8RN )@@G@@0. @I@@@@LEVEL $EQU '2.8' . DISCARD INFOR IMAGE IF RECEIVRO )@@G@@ED WHILE IN COMMAND @I@@@@ . MODE. RP )@@G@@ 11/7/80. @I@@@@LEVEL $EQU '2.9' RQ )@@G@@ . HEX OUTPUT FORMAT OPTION. 12/10/80. @I@@@@LEVEL RR )@@G@@ $EQU '2.10' . DETECT ILLEGAL JUMPS INTO RES. 2/15/8RS )@@G@@1. @ @@@@DXLVL* ICW 1,'DX ':LEVEL @]@@@@ $END_@@@@@8^K@THRT )@@G@@/K@@TNA#!@@@$FW@@^/K@@TF/,0@\UR;)@@)/K@@TF[[H@@@R]0^ _$FW@@^/K@@TS/K@@\URU )@@G@@A#W@@@/KF@@@(*G@@[/,)@9U9*K^A@A#0^A]A]0^A#9()^A^)@@@S])@@@@@@@@@@@@@@@@@RV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[]@@@0 DX 2.1AA@@@@@@@@@@[[0^AERW )@@G@@E@K@@K"9@@@H"KK@@HP;K@]@T8K@[H;KK@@C1@@@@HO;K@@[C]K@@HD@K@@H/,0@S&9!0@@KRX )@@G@@@@^@@]@@A@@@@@A@@[@@E@@@@@E@@#@@@@@@DXLVL @@@@@@@@@@@]CD=@@ H.)@@^RY )@@G@@9!]@@Y,[@@@M/,0@8W[D=@@ C =@@ G.)@@[9!]@@W,[@@@M/,0@8W[ =@@ /K@@YLC@N@@ARZ )@@G@@C =@@ G@K@@MCDO@@ N8)@@^*[S@@@*SDFF*@E@@@@. COPYRIGHT 1979, B. E. CHI, SSA )@@G@@UNY-ALBANY, ALBANY NY 12222. @F@@@@. THIS ELEMENT RESPONDS TO USER ERROSB )@@G@@RS WITH APPROPRIATE MESSAGES. @G@@@@. IT MUST BE FIRST, AND 'UTILITIES' SC )@@G@@LAST IN COLLECTION OF 'NONRES'. @[@@@@. @]@@@@ MNM$@#@@@@SD )@@G@@ DXDEF @#@@@@ RESDEF @#@@@@ NRSDEF @[@@@@SE )@@G@@. @H@@@@. LOCAL AND GLOBAL ERROR MESSAGES. SEE PROCS 'ERROR', 'ERROSF )@@G@@RS', 'NERMSG'. @C@@@@$(2) . NOTE THAT THIS CODE IS NON-REENTRANT. SG )@@G@@@D@@@@SVCERR* NOP 0,$-$,A0 . [H2] = ADDR+1 OF SLJ. @^@@@@ SH )@@G@@ LN,U A0,1 @D@@@@ L A0,*SVCERR . [A0] = SLJ INSTRUSI )@@G@@CTION.@F@@@@ AN A0,(SLJ *0) . DISCARD ALL BUT A- AND U-FIELSJ )@@G@@DS. @E@@@@ A A0,0,A0 . PICK UP HIGH BITS OF CODE. SK )@@G@@@F@@@@ AN,U A0,SVCERR . RESTORE A0 MODIFIER TO $-2 VALUE. SL )@@G@@@^@@@@ A,U A0,1 @F@@@@ TNZ,S3 0,A0 . INDEXSM )@@G@@ PAST END OF VECTOR TABLE @G@@@@ J $-2 . TO ISN )@@G@@NDEXED POINTER TO PCW FOR MESSAGE 0.@C@@@@ A,U A0,*0 .SO )@@G@@ APPEND I-BIT @F@@@@ S,H2 A0,$+2 . AND IMPLANT IN LSP )@@G@@OAD INSTRUCTION. @D@@@@ SSL A0,22 . RIGHT-JUSTIFY CODSQ )@@G@@E AND @F@@@@ L A0,*$-$ . AND PICK UP CORRESPONDING PCSR )@@G@@W. @F@@@@ J OTHMSG . GO PRINT MESSAGE AND AWAIT COSS )@@G@@MMAND.@[@@@@. @A@@@@$(0) . END OF NON-REENTRANT CODE.@^@@@@ ST )@@G@@ ERRORS GLOBAL @B@@@@ NERMSG 'COMMAND NOT IMPLEMENTED.'@G@@@@SU )@@G@@ NERMSG 'SPECIFIED RANGE OF ADDRESSES EXCEEDS BANK LIMITS.' SV )@@G@@@H@@@@ NERMSG 'NO COUNT MAY EXCEED 2047(=03777) FOR CORE, 44(=05SW )@@G@@4) FOR GRS.'@F@@@@ NERMSG 'SPECIFIED COUNT MUST BE NON-ZERO AND SX )@@G@@POSITIVE.' @C@@@@ NERMSG 'SPECIFIED BANK NOT ACTIVE.' @C@@@@SY )@@G@@ NERMSG 'SPECIFIED SEGMENT NOT LOADED.' @^@@@@ ERRORS ENSZ )@@G@@D @B@@@@/. COME HERE IF SYNTAX ERROR DETECTED. @]@@@@$(1) . TA )@@G@@@]@@@@STXERR* . @B@@@@ L,U X11,CLREQ . SET RETURN.@H@@@@TB )@@G@@SXERSUB* . COME HERE TO INDICATE SYNTAX ERROR POSITITC )@@G@@ON. @F@@@@ AN,U A0,1 . [A0] = ADDR WHERE ERROR DETECTD )@@G@@TED. @G@@@@ S A0,SXERLOC . SAVE FOR USE BY 'SYNTAX' IF RTE )@@G@@EQUESTED. @ @@@@ L A0,THSITM @^@@@@ A,U A0TF )@@G@@,1 @ @@@@ A A0,CHGMODE @H@@@@ J QARROW TG )@@G@@ . POINT TO FIELD CONTAINING ERROR. (EXITS 0,X11.)@[@@@@. @[@@@@TH )@@G@@. @G@@@@. SYNTAX COMMAND. INFORM USER WHERE SYNTAX ERROR WAS DETECTTI )@@G@@ED. FORMAT:@]@@@@. :SYNTAX @[@@@@. @]@@@@SYNTAX* . @C@@@@ TJ )@@G@@ L A0,LC13BEG . 2*WC UNDER $(13).@E@@@@ SSL A0,1 TK )@@G@@ . NUMBER OF 'STXLOC' CALLS. @^@@@@ L R1,A0 @ @@@@TL )@@G@@ L X5,(2,-3) @E@@@@ L,H2 A4,SXERLOC . GET ETM )@@G@@RROR DETECTION ADDRESS. @F@@@@ TZ A4 . UNLESS NO ATN )@@G@@DDRESS CURRENTLY KNOWN, @G@@@@ SG,H2 A4,LC13BEG+5,*X5 . FIND ETO )@@G@@LEMENT WHERE ERROR DETECTED. @D@@@@ ERROR 0 . NO-FITP )@@G@@ND OR NO ADDRESS. @E@@@@ E$FD1 LC13BEG,X5 . FOUND. ENCODE ELETQ )@@G@@MENT NAME, @ @@@@ E$MSG ('.&+&'L) @B@@@@ E$DECV LCTR )@@G@@13BEG+1,X5,H1 . LC @#@@@@ E$MSGR @A@@@@ AN,H2 A4TS )@@G@@,LC13BEG+1,X5 @D@@@@ E$OCTV A4 . AND RELATIVE ADDTT )@@G@@RESS. @B@@@@ J ED$MSG . GO REPORT. @[@@@@. @[@@@@TU )@@G@@. @D@@@@. COME HERE WITH SCHAET ERROR CODE IN A0 TO REPORT. @[@@@@TV )@@G@@. @]@@@@ADRERR* . @#@@@@ TNZ A0@#@@@@ ERROR 1 TW )@@G@@@ @@@@ LMJ X11,SATSTAT @^@@@@ J CLREQ @E@@@@TX )@@G@@/. COME HERE WITH EVX$ ERROR CODES IN A0, A1 TO REPORT. @[@@@@. TY )@@G@@@]@@@@EVX$ERR* . @ @@@@ JN A1,$+1,A0 @C@@@@ J TZ )@@G@@ STXERR . SYNTAX ERROR. @D@@@@ ERROR 2 .UA )@@G@@ TOO MANY PARENTHESES. @D@@@@ ERROR 3 . UNMATCHED PUB )@@G@@ARENTHESES. @D@@@@ ERROR 4 . SYMBOL VALUE UNKNOWN. UC )@@G@@@C@@@@ ERROR 5 . NUMERIC OVERFLOW.@[@@@@. @[@@@@UD )@@G@@. @^@@@@ ERRORS LOCAL @F@@@@ NERMSG 'NO SYNTAX ERRUE )@@G@@OR ADDRESS CURRENTLY RECORDED.' @G@@@@ NERMSG 'NO DIAGNOSTICUF )@@G@@ TABLES. ALL ADDRESSES MUST BE ABSOLUTE.' @F@@@@ NERMSG 'EXPRESSUG )@@G@@ION TOO COMPLEX (TOO MANY PARENTHESES).' @B@@@@ NERMSG 'UNMATCHUH )@@G@@ED PARENTHESES.' @B@@@@ NERMSG 'SYMBOL VALUE UNKNOWN.' @D@@@@UI )@@G@@ NERMSG 'INPUT NUMERIC VALUE EXCEEDS 36 BITS.'@^@@@@ ERROUJ )@@G@@RS END @[@@@@. @[@@@@. @]@@@@$(13) . @^@@@@LC13BEG +LC1UK )@@G@@3END-$-1 @]@@@@$(2) . @]@@@@SXERLOC +$-$@[@@@@. @]@@@@ UL )@@G@@ $END_@@@@@ . @]@@@@SXERLOC +$-$@[@@@@. @]@@@@ $END_@@@@@UM )@@G@@LC13BEG +LC13END-$-1 @]@@@@$(2) . @]@@@@)@@[O^ #@@ECCC@@@@G8@K@@UN )@@G@@/K@@@A(?G@@@G8@@@[H8@@@@G@G@@@H@@@@CC@@K@@D8@@@[/SG@@@AA@@@@)@E@>[[]@@@@UO )@@G@@)@@@)* @* @@@@@@@@@[C@@)@[E@@Q@[D@@H@[^@@D/K@@@@C@@K@@;C@@@Q[^@@@GAB@@@@UP )@@G@@)@^@)* [[K@@)@@@%(@]CC@@G8@@@[CC^@@ [@@@@IH8@@@[R'0@@@@@G@@@@@@@@@@[ @@!UQ )@@G@@@[ @@*AC@@@@)@ [F]@D]@H#@4^G@^^K0H@@5 )@ *@@@@KC @@@IR[K@@2N@K@@G;C@@@[UR )@@G@@C@@@@@/K@@@@G0B@[NAD@@@@)@I[#@K0HK)^K0@K) K0HK)AK)B@@@/,0@@@/,0@@@CC @@[US )@@G@@/,0@@@C8@@@3/,0@@@C@ @@@'^@K@%AE@@@@)@Q[F#@4K)CK)D^[]@(]@ @@/GW@@Z/K@@@@UT )@@G@@/,0@@@'^KK@%(@@@@G/K@@@@/,0@@@C@@@@KH @@[AF@@@@)@Z[#@K^[@K]&@[N@@()@@@@UU )@@G@@@@@@@@@[C@[ @[D@@/@[C@@4' KK@%' @K@%'^0K@%'^)K@%/K@@@@AG@@@@)@$@%()@O0@EUV )@@G@@S@CE@@)@@@I[:1)C]"@@@@@@@@@@@@_____"@@G@@=@@@@@@@[A@[P@[^@[L@[^@[HAH@@@@UW )@@G@@)@I@G@)@C[C@@@@@@@ ADDRENGE OFIED RASPECIFENTED.IMPLEMD NOT COMMAN'^@K@@UX )@@G@@@@@@@@AI@@@@)@L[S@@@@@@@7) FOR(=0377D 2047 EXCEENT MAYNO COU. LIMITSUY )@@G@@ BANK XCEEDSSSES EAJ@@@@)@W[S@@@@@@@ POSITRO ANDNON-ZEST BE UNT MUIED COUZ )@@G@@SPECIFR GRS.54) FO 44(=0 CORE,AK@@@@)@$[S@@@@@@@ADED. NOT LOGMENT IED SEVA )@@G@@SPECIFE. ACTIVNK NOTIED BASPECIFIVE. AL@@@@)@2[S@@@@@@@NO DIA. VB )@@G@@CORDEDTLY RECURRENDRESS ROR ADTAX ERNO SYN.&+& @@]__/AM@@@@)@.[S@@@@@@@VC )@@G@@OO COMSION TEXPRESLUTE. E ABSOMUST BESSES L ADDRES. ALC TABLGNOSTIAN@@@@VD )@@G@@)[C[S@@@@@@@ VALUESYMBOLSES. RENTHEHED PAUNMATCES). ENTHESNY PARTOO MAVE )@@G@@PLEX (AO@@@@)[N[@@@@@@@@@@@@@@@@@@@@@@@@@@ BITS.EDS 36E EXCEC VALUNUMERIVF )@@G@@INPUT WN. UNKNOAP@@@@@@^@@I@@M@@G@@%@@B@[A@@@@@E@[V@@@@@?@@@@@J)@@@@@VG )@@G@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@@@@@@[OTHMSG VH )@@G@@CLREQ RESDATA QARROW EFD1$ EMSG$ EDECV$ VI )@@G@@EMSGR$ EOCTV$ ED$MSG SATSTAT LC13END ADRERR VJ )@@G@@@@[@@@@@@@@UEVX$ERR @@[@@@@@@@@YGLBERR @@@@@@@@@@@ASTXERR VK )@@G@@@@[@@@@@@@@@SVCERR @@]@@@@@@@@@SXERSUB @@[@@@@@@@@[SYNTAX VL )@@G@@@@[@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@#@@@@$(13) 'EVX$' @#@@@@ VN )@@G@@ +1,EVX$ @]@@@@ $END___@@@@#@@@@ +1,EVX$ @]@@@@ VO )@@G@@ $END___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@Q[*(@@@@@@@@@@@@@@@@VP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@EVX$ AA@@@@@@@@@@10 DVQ )@@G@@EP 000003@^@[@@ 0011 MOM 000002@^@[@@ 0012 POTS 000003VR )@@G@@@@^@@I@@M@@[@@O@@@@@O@@@@@E@@@@@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@VS )@@G@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@@@@@@]EVX$ @@@@@@@@@@@@@@@@@@@@@@@@VT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@E@@@@. COPYRIGHT 1979, B. E. CHI, SVU )@@G@@UNY-ALBANY, ALBANY NY 12222. @[@@@@. @]@@@@$(1) MNM$@#@@@@ VV )@@G@@ DXDEF @#@@@@ RESDEF @#@@@@ NRSDEF @]@@@@ VW )@@G@@ LOC$@]@@@@ IF$ @C@@@@ERROR $EQU +(ERROR ) . TO AVOID V-VX )@@G@@FLAG. @B@@@@E$FD $EQU +(E$FD ) . DITTO. @[@@@@. @C@@@@VY )@@G@@. SET OR REPORT MASK FOR FIND COMMAND. FORMAT: @#@@@@. >FMASK [VALUE] VZ )@@G@@@[@@@@. @]@@@@FMASK* . @G@@@@ IF ENDSTR,,U EQ A2 . THEN WA )@@G@@JUST REPORT CURRENT MASK VALUE. @B@@@@ E$MSG ('CURRENT FIWB )@@G@@ND MASK: &')@ @@@@ E$OCTF 12,FINDMSK @^@@@@ J WC )@@G@@ED$MSG@[@@@@. @F@@@@ ELSE, . ACCEPT SPEC VALUEWD )@@G@@ AS NEW MASK. @D@@@@ L A1,THSITM . BACK UP SCAN$ POIWE )@@G@@NTER. @ @@@@ S A1,NXTITM @B@@@@ LMJ X11,DCWF )@@G@@DWORD . DECODE IT.@ @@@@ J STXERR @C@@@@L$(L$) S WG )@@G@@ A0,FINDMSK . SAVE MASK VALUE. @^@@@@ J REQ @#@@@@WH )@@G@@ ENDIF @[@@@@/. @F@@@@. FIND NEXT LOCATION CONTAINING SPECWI )@@G@@IFIED VALUE. COMMAND FORMAT: @^@@@@. >FIND [ADDR [VALUE]] @[@@@@. WJ )@@G@@@]@@@@FIND* . @E@@@@ SZ A6 . CLEAR VALUE-SPECIWK )@@G@@FIED FLAG. @G@@@@ IF ENDSTR,,U NE A2 . THEN SEARCH START ADDREWL )@@G@@SS SPECIFIED. @D@@@@ LMJ X11,DCDAD . GET START ADDRESSWM )@@G@@. @^@@@@ J STXERR@C@@@@ J ADRERR .WN )@@G@@ NO SUCH ADDRESS. @F@@@@ IF REGFLAG IS NONZ, /ERROR 0 . ADDRESSWO )@@G@@ NOT MAIN STORAGE.@F@@@@ IF BNKFLG IS ZERO, /ERROR *4 . ADDRESSWP )@@G@@ IN UNBASED BANK. @G@@@@ IF SLTP$ IS NEG, /ERROR *5 . ADDRESS IWQ )@@G@@N UNLOADED SEGMENT. @D@@@@ LXM IX,SPCADDR . GET SPECIFIWR )@@G@@ED ADDRESS. @C@@@@ L A5,BNKWC . BANK WORD COUNT @C@@@@WS )@@G@@ AN,U A5,0,IX . - START ADDRESS @F@@@@ A WT )@@G@@A5,BNKFW . + BANK FWA = WORDS TO SEARCH. @[@@@@. @D@@@@ WU )@@G@@ S$T . RESCAN CURRENT ITEM. @E@@@@ IF ENDSTWV )@@G@@R,,U NE A2 . THEN SEARCH VALUE SPECIFIED. @D@@@@ LMJ X11,WW )@@G@@DCDWORD . GET VALUE TO FIND. @C@@@@ J STXERR . SYNTAWX )@@G@@X ERROR. @C@@@@ S A0,FINDVAL . VALUE FOUND. @D@@@@WY )@@G@@ S A1,FINDFMT . SAVE DECODING FORMAT.@B@@@@ WZ )@@G@@L,U A6,1 . SO MARK. @#@@@@ ENDIF @E@@@@ S XA )@@G@@ A5,FINDWC . IF EVERYTHING OK, SAVE WC. @D@@@@ ELSE XB )@@G@@ . NO ADDRESS SPECIFIED. @H@@@@ IF FINDADR IS ZERO, XC )@@G@@/ERROR 1 . NOTIFY IF NO PREVIOUS FIND ADDRESS. @F@@@@ LXM XD )@@G@@IX,FINDADR . ELSE, GET PREVIOUS FIND ADDRESS. @D@@@@ A,U XE )@@G@@IX,1 . START AT NEXT LOCATION.@F@@@@ ENDIF .XF )@@G@@ CASE OF ADDRESS GIVEN/NOT GIVEN. @[@@@@/. @F@@@@ LMJ X1XG )@@G@@0,RESFIND . LEAP TO RESIDENT DX TO SEARCH. @C@@@@ L X9XH )@@G@@,FINDFMT . GET VALUE FORMAT.@D@@@@ IF 0,IX,U IS ZERO . THEN XI )@@G@@VALUE NOT FOUND. @C@@@@ P$RINT 'END OF BANK ENCOUNTERED.' XJ )@@G@@@ @@@@ L A5,FINDVAL @G@@@@ LMJ X10,NCDVAL .XK )@@G@@ ENCODE VALUE IF MASKED OR NOT SPECIFIED. @D@@@@ E$MSG (' NOTXL )@@G@@ FOUND. & WORD& SCANNED.&') @^@@@@ E$OCTV FINDWC@#@@@@ XM )@@G@@ E$MSGR @ @@@@ L A0,FINDWC @^@@@@ L,U XN )@@G@@A2,'S'@ @@@@ IF 1,,U NE A0, /E$FD@C@@@@ ELSE XO )@@G@@ . VALUE WAS FOUND. @F@@@@ AN,U IX,1 . BACK UP POIXP )@@G@@NTER TO WORD FOUND. @C@@@@ S IX,FINDADR . SAVE ADDRESXQ )@@G@@S. @ @@@@ L,U A0,0,IX @^@@@@ SLJ GETWD XR )@@G@@@^@@@@ L A5,A0 @G@@@@ LMJ X10,NCDVAL . ENCODXS )@@G@@E VALUE IF MASKED OR NOT SPECIFIED. @B@@@@ E$MSG (' FOUND AT XT )@@G@@& (&).&') @E@@@@ E$OCTF 6,0,IX,U . ENCODE ABSOLUTE ADDRESSXU )@@G@@. @#@@@@ E$MSGR @E@@@@ L,U A0,0,IX . ENCODXV )@@G@@E RELATIVE ADDRESS. @^@@@@ SZ A1 @ @@@@ LMXW )@@G@@J X11,NCDAD @D@@@@ S A1,PRVSPEC . SAVE SUMMARY WORDXX )@@G@@. @C@@@@ ENDIF . NO-FIND VS FOUND.@#@@@@ XY )@@G@@ E$MSGR @^@@@@ J ED$MSG @[@@@@/. @#@@@@NCDVAL . (XXZ )@@G@@10). @A@@@@ E$MSG ('VALUE& [&]&**&'L) @B@@@@ L A7YA )@@G@@,FINDMSK . GET MASK. @H@@@@ IF (-0) NE A7 OR A6 IS ZERO . THENYB )@@G@@ MASK NONTRANSPARENT OR VALUE NOT @H@@@@ E$MSGR .YC )@@G@@ \ SPECIFIED. @^@@@@ L YD )@@G@@A0,A5 @F@@@@ LMJ X11,NCDW0 . ENCODE VALUE FOUND OR NOT FOYE )@@G@@UND. @#@@@@ E$MSGR @E@@@@ ANDIF (-0) NE A7 . THEN YF )@@G@@MASK NONTRANSPARENT. @D@@@@ E$MSGR . SO ENCODE MYG )@@G@@ASK AS WELL.@ @@@@ E$OCTF 12,A7 @#@@@@ ENDIF YH )@@G@@@^@@@@ J 0,X10 @[@@@@. @[@@@@. @^@@@@ ERROYI )@@G@@RS LOCAL @C@@@@ NERMSG 'REGISTER SEARCH NOT ALLOWED.' @C@@@@YJ )@@G@@ NERMSG 'NO PREVIOUS FIND ON RECORD.' @^@@@@ ERRORS ENYK )@@G@@D @[@@@@. @[@@@@. @]@@@@ $END_@@@@@O PREVIOUS FIND ONYL )@@G@@ RECORD.' @^@@@@ )@@[EK^G@^C@^C@L]@D]@G@@CCO@@ /K@@@@/,0@@@C8K@@GYM )@@G@@C@B@[U/,0@@@C8@@@@/K@@@C%8)@#@AA@@@@)@D[EK)^K) K)[K)A[@K)B@@/,0@@@/K@@@*YN )@@G@@:8)@#@ @@@@M/K@@@@[@B@[U/K@@@@/,0@@@[GO@@ AB@@@@)@M[#]@P]@-]@>@K)DK)EK)DYO )@@G@@K)E@@@' KK@@0@@K[#' @K@@(?@@[@'^@K[=**@@@//K@@@@/K@@@@AC@@@@)@U[#]@>]@=KYP )@@G@@)DK)F^[]@K@@@@@@@@/,0@@@/K@@@&:8)@#@/,0@@@G K@@_H9S@@@CDK@@_QE@@@;AD@@@@YQ )@@G@@)@+[#]@P]@ ]@^K)[K^C@O@@@@@@@@'^KK[=(^B@[S/K@@@?[DR@[SC9)@@[[=R@[P[@B@[TYR )@@G@@/K@@@@AE@@@@)@%[#]@^K)GK)[^[#@[]@4@@@@@@@@'=@@@@C@@@@C/K@@@"*8C@@@R&R@[PYS )@@G@@/,$@@@O'@@@[QAB@[SAF@@@@)@2[#]@ @K0@K)@K)[K)IK)JK)[@@@CCB@[S/,0@@@/,0@@@YT )@@G@@CCB@[S/,0@@@C8@@@D/,)@[KC[R@[TAG@@@@)@'[E^C^^@K)[^C^K@@@@@@@C[K@@G'^@@@@YU )@@G@@C8C@@@AAB@[SP'@@@[/K@@[I')])@@%8@@@[C8)@@SAH@@@@)[#[F@K0@K)@[]@D]@/@@@@@YV )@@G@@ @@@@HC8C@@@/,0@@@/,0@@@C8K@@AC8C@@@/,0@@@C8@@@I/,)@[KAI@@@@)[G[#][D]@ ]YW )@@G@@@.]@H#@[]@[]@ #@@@%[0@@OC[7@[U/,0@@@C8@@@L/K@@@@/,0@@@[@R@@Y/,0@@@AJ@@@@YX )@@G@@)[O[F@^[]@/K)NK)JK0@K@@@/K@@[-:[0@@O/,0@@@/,0@@@C@@@@L/,0@@@/K@@[-*@@@@MYY )@@G@@/K@@[RAK@@@@)[X[F]@/^C@)()@O0@K)OK@@@@G@[+@@@@@@@[ @@U@[ @@P/KE@@@/,0@@@YZ )@@G@@C8K@@GC@@@@N/,0@@@AL@@@@)@@[S@@])@@@OUND. NOT F@[^@@^TERED.ENCOUN BANK ZA )@@G@@END OF & MASK:T FINDCURRENAM@@@@)@F[S@@@@@@@REGIST______*& [&]&*ZB )@@G@@VALUE&(&).& AT & FOUNDNED.& & SCAN& WORDAN@@@@)@Q[C@@@@@@@@@@@@@@@@@@@ZC )@@G@@RD. N RECOFIND OVIOUS NO PREWED. T ALLORCH NOER SEAAO@@@@@@@@@@@@@@@@ZD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZE )@@G@@@@^@@]@@A@@P@@0@@]@@8@@@@@E@@Z@@@@[&EMSG$ RESDATA EOCTF$ ZF )@@G@@ED$MSG DCDWORD STXERR REQ DCDAD ADRERR ZG )@@G@@NRSDATA GLBERR STHIS$ RESFIND PRINT$ EOCTV$ ZH )@@G@@EMSGR$ EDIT$T GETWD NCDAD NCDW0 SVCERR ZI )@@G@@FIND @@[@@@@@@@@IFMASK @@[@@@@@@@@@*[S@@@*SDFF*@E@@@@. COPYZJ )@@G@@RIGHT 1979, B. E. CHI, SUNY-ALBANY, ALBANY NY 12222. @ @@@@. USER CORE ZK )@@G@@ACCESS ROUTINES. @F@@@@. 'GETWD' ALTERS ONLY [A0]; 'PUTWD' ALTERS NO REZL )@@G@@GISTER CONTENTS. @[@@@@. @#@@@@P $PROC *7@#@@@@REPLACE* $NAZM )@@G@@ME @ @@@@ TNE P(5,1),P(1,1) @ @@@@ L P(5,1),PZN )@@G@@(3,1) @]@@@@ $END@[@@@@. @]@@@@$(2) MNM$@#@@@@ DXDEZO )@@G@@F @#@@@@ RESDEF @[@@@@. @G@@@@GETWD* . (SLJ). ZP )@@G@@ . EFFECTS 'L A0,0,A0' EVEN IF A0 POINTS @E@@@@ J $-ZQ )@@G@@$ . TO SWAPPED-OUT USER CORE. @^@@@@ J $(1) ZR )@@G@@@E@@@@$(1) SZ CFLG . CLEAR CORBUF REFERENCE FLAG. @D@@@@ZS )@@G@@ TL,U A0,R15 . IF REFERENCE IS TO GRS,@^@@@@ TLE,ZT )@@G@@U A0,R1 @^@@@@ TL,U A0,A17 @G@@@@ A,U A0,USERGZU )@@G@@RS . REBASE TO POINT TO SAVED REGISTERS. @F@@@@ TG,H2 A0ZV )@@G@@,DACW . IS ADDRESS AMONG THOSE SWAPPED OUT?@^@@@@ TG A0ZW )@@G@@,DLWP1@F@@@@ J SAVPTR . NO. GO SAVE POINTER, GET WORDZX )@@G@@. @H@@@@ S FORTY,CFLG . FIND LOC'N RELATIVE TO FWA OFZY )@@G@@ SWAPPED-OUT CORE.@E@@@@ AN,H2 A0,DACW . FIND FASTRAND WORZZ )@@G@@D LOCATION. @F@@@@ TG,H1 A0,CBCONT . DOES CORBUF CONTAIN THIAA )@@G@@S WORD? @ @@@@ TG,H2 A0,CBCONT @^@@@@ J $+AB )@@G@@3 @F@@@@ AN,H1 A0,CBCONT . YES. FIND RELATIVE BUFFER ADDAC )@@G@@RESS. @E@@@@ J SETPTR . GO SET POINTER, GET WORD. AD )@@G@@@D@@@@ DS A0,SAVE . NO. NEW READ REQUIRED. @F@@@@ AE )@@G@@ SLJ WRTCC . WRITE ANY ACCUMULATED CHANGES. @D@@@@ AF )@@G@@ L A0,SAVE . GET ADDRESS AGAIN. @^@@@@ DSL A0AG )@@G@@,36 @D@@@@ DI,U A0,28 . [A0,A1] = SECTOR,WORD. @E@@@@AH )@@G@@ S A1,SAVE . SAVE NEW BUFFER WORD POINTER.@F@@@@ AI )@@G@@ AU,U A0,UCSECT . ADD BASE SECTOR FOR USER CODE. @F@@@@ AJ )@@G@@ S A1,CSCT . SET UP PACKET AND RESET CORBUF @D@@@@ AK )@@G@@ MSI,U A0,28 . CONTENTS INDICATORS. @^@@@@ AU,H1 A0AL )@@G@@,CACW @I@@@@ LXI,U A1,0,A0 . FWA,LWA+1 OF CORBUF CORE IMAGAM )@@G@@ES, RELATIVE TO FWA @I@@@@ S A1,CBCONT . SAVE CONTENAN )@@G@@TS INDICATORS. \ OF SWAPPED-OUT CORE. @C@@@@ L,U A0,R$ AO )@@G@@ . READ INTO CORBUF.@^@@@@ S A0,CFCT @^@@@@ L,U AP )@@G@@ A0,CPKT @^@@@@ ER IOW$ @^@@@@ DL A0,SAVE AQ )@@G@@@]@@@@SETPTR . @ @@@@ A,U A0,CORBUF @]@@@@/SAVPTR . AR )@@G@@@D@@@@ S,H2 A0,CPTR . SAVE POINTER FOR PUTWD.@C@@@@ AS )@@G@@ L A0,0,A0 . GET THE WORD. @C@@@@ REPLACE (DX$EXITAT )@@G@@ ) WITH (ER EXIT$) IN A0@C@@@@ REPLACE (DX$LOAD ) WITH (ER LOAD$)AU )@@G@@ IN A0@C@@@@ REPLACE (DX$IALL ) WITH (ER IALL$) IN A0@C@@@@ AV )@@G@@ REPLACE (DX$CREG ) WITH (ER CREG$) IN A0@^@@@@ J GETWD AW )@@G@@@[@@@@. @]@@@@$(2) . @F@@@@PUTWD* . (SLJ). . STOREAX )@@G@@ [A3] IN LOCATION [CPTR]. @^@@@@ J $-$ @^@@@@ AY )@@G@@ J $(1) @C@@@@$(1) REPLACE (ER EXIT$) WITH (DX$EXIT ) IN A3AZ )@@G@@@C@@@@ REPLACE (ER LOAD$) WITH (DX$LOAD ) IN A3@C@@@@ REPLBA )@@G@@ACE (ER IALL$) WITH (DX$IALL ) IN A3@C@@@@ REPLACE (ER CREG$) WITBB )@@G@@H (DX$CREG ) IN A3@^@@@@ S A3,*CPTR@E@@@@ TZ CFBC )@@G@@LG . DOES CPTR POINT TO CORBUF? @E@@@@ SZ CFCT BD )@@G@@ . IF SO, MARK CORBUF ALTERED. @^@@@@ J PUTWD @[@@@@BE )@@G@@. @]@@@@$(2) . @]@@@@SAVE +0D @]@@@@ $END_@@@@@^@)^@)BF )@@G@@CC0 -#D9MCLPC0)^@)@#@@@@ 9NCDQE[OEK) 0)^@)@I@@@@)@@@OK@@@@@@)@@@3]@@[]@[BG )@@G@@]@@@@@!^B@[:G8B@@@?8@@@Y?8@@[[?8@@[K ?B@[=/K@@@@/K@@@@AA@@@@)@A[#]@[@K)@BH )@@G@@K)@K)@K)@K^C@@@@@@HCB@[AD@@@@)@)[](@C-@@CS@CS@CS@CS@CS@@@@@:@@@@^C@@@@#:@@@@]BL )@@G@@C@@@@[:@@@@@C@G@@@[^B@[=G8@@@@AE@@@@)@*@<#@[#@[#@[[@@@)@]@OK@@@@@@@@@@@@BM )@@G@@@@@@@@/K@@@?/K@@@@/K@@@@C@@@@B:@@@@AC@@@@ AF@@@@)@?[##@[#@[#@[#@[#@[#@[#BN )@@G@@@[#@@@C@0@@A:@0@@BC@0@@^:@0@@ C@0@@]:@0@@#C@0@@@:@0@@[AG@@@@)@4@<]@[]@[]BO )@@G@@@[[@@@)@^@O@)@@@D]@O@@@@'$0@@@@@@@@@@@@@@@/K@@@] 0B@[=*?B@[=[@7K[=AH@@@@BP )@@G@@)@[@9]@T]@P]@X]@-]@>]@-]@*@@@@@@@@@@'=@@@@'&0@@@'=@@@@'$@@@@'=@@@@'$K@@@BQ )@@G@@'=@@@@AI@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@#@@B@@F@@X@@]@@>@@@@@E@@C@@@@@8@@@@@ARESDATBS )@@G@@A WRTCC R$ IOW$ CORBUF ERR$ EXIT$ BT )@@G@@ LOAD$ CEND$ IALL$ CREG$ GETWD @@]@@@BU )@@G@@@@@@@@PUTWD @@]@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BW )@@G@@*[S@@@*SDFF*@E@@@@. COPYRIGHT 1979, B. E. CHI, SUNY-ALBANY, ALBANY NY 12BX )@@G@@222. @]@@@@$(1) MNM$@#@@@@ DXDEF @#@@@@ RESDEF BY )@@G@@@#@@@@ NRSDEF @]@@@@ LOC$@]@@@@ IF$ @[@@@@. BZ )@@G@@@C@@@@. LIST ELEMENT COMPOSITION. COMMAND FORMAT: @#@@@@. >MAP [I][DCA )@@G@@] @[@@@@. @]@@@@MAP* . @F@@@@ IF ENDSTR,,U NE A2 .CB )@@G@@ THEN BANK SPECIFICATION PRESENT. @H@@@@ IF SYMBOL,,U NE A2, CC )@@G@@/SYNTAX ERROR . SPEC MUST BE AN 'I' AND/OR 'D'. @F@@@@ DSL CD )@@G@@A0,18+36 . 1ST 3 CHARACTERS TO A1 MODIFIER. @H@@@@ IF 'ID 'CE )@@G@@,,U NE A1 AND 'DI ',,U NE A1 . THEN NOT BOTH I- AND D-BANKS.@B@@@@ CF )@@G@@ IF 'I ',,U EQ A1, /L,U A0,1 @B@@@@ IF 'D ',,U EQ A1,CG )@@G@@ /L,U A0,2 @ @@@@ L A4,A0 @D@@@@ ELSE CH )@@G@@ . BOTH I- AND D-BANKS. @ @@@@ L A4,(1,0) CI )@@G@@@#@@@@ ENDIF @C@@@@ TZ A4 . ANY OF ABOVCJ )@@G@@E? @C@@@@ S$NE . AND NOTHING MORE?@A@@@@ CK )@@G@@ SYNTAX ERROR . NO. @C@@@@ L,U A0,AETAB . YES. CL )@@G@@CALL LSTAET.@^@@@@ LXI A0,A4 @ @@@@ LMJ X11,LSCM )@@G@@TAET @B@@@@ ENDIF . SPEC GIVEN.@E@@@@ IF SCN )@@G@@LTFWA IS NONZ . THEN GIVE LOCATION OF SLT. @A@@@@ E$MSG CO )@@G@@('SLT AT &; &'L) @^@@@@ E$OCTV SLTFWA@#@@@@ E$MSGR CP )@@G@@@#@@@@ ENDIF @B@@@@ E$MSG ('PROGRAM STARTS AT &') CQ )@@G@@@^@@@@ E$OCTV PGMSTRT @^@@@@ J ED$MSG @G@@@@/. LISCR )@@G@@T VALUE ASSOCIATED WITH EXTERNALIZED SYMBOL. COMMAND FORMAT: @B@@@@CS )@@G@@. >ENTRY [NAME] OR >ABSVALUE [NAME] @G@@@@. IF NO SPECIFICATION, TCT )@@G@@HE ENTIRE ENTRY POINT OR ABSOLUTE VALUE TABLE IS@]@@@@. LISTED. @[@@@@CU )@@G@@. @]@@@@ENTRY* . @]@@@@ABSVALUE* . @D@@@@ IF ENDSTR,,U EQ CV )@@G@@A2 . THEN LIST ENTIRE TABLE.@ @@@@ L,U A0,AETAB @C@@@@CW )@@G@@ IF 'ENT',,U EQ CD, /LMJ X11,LSTEPNT @C@@@@ IF 'ABS'CX )@@G@@,,U EQ CD, /LMJ X11,LSTABSVT @^@@@@ J REQ @C@@@@ CY )@@G@@ ELSE . NAME SPECIFIED. @D@@@@ L,U A0,12 CZ )@@G@@ . SPEC GIVEN. EXPAND @E@@@@ S A0,SXC . SYMBDA )@@G@@OL-CHARACTER TABLE. @C@@@@ S$TS . RESCAN ITEMDB )@@G@@. @C@@@@ SYNTAX ERROR . NOT A SYMBOL. @B@@@@ DC )@@G@@ DS A0,A4 . SAVE IT. @B@@@@ S$NE .DD )@@G@@ ANY MORE? @A@@@@ SYNTAX ERROR . YES. @D@@@@ DLDE )@@G@@ A0,A4 . NO. RESTORE SYMBOL. @E@@@@ IF 'ENT',,U EQDF )@@G@@ CD . THEN COMMAND WAS 'ENTRY'. @C@@@@ LMJ X11,FEPN .DG )@@G@@ LOOK UP DATA. @B@@@@ JNZ A0,ADRERR . NOT FOUND.@D@@@@DH )@@G@@ E$FD2 A4 . FOUND. ENCODE SYMBOL, @ @@@@ DI )@@G@@E$MSG (' = &'L) @B@@@@ E$OCTV ABSADDR . ABSOLUTE @ @@@@DJ )@@G@@ E$MSG (' = &'L) @E@@@@ LMJ X11,NCDRAD . ANDK )@@G@@D RELATIVE ADDRESSES. @D@@@@ ELSE . COMMAND WASDL )@@G@@ 'ABSVALUE'.@ @@@@ LMJ X11,FABSV @B@@@@ JNZ DM )@@G@@ A0,ADRERR . NOT FOUND.@D@@@@ S A1,R2 . FOUND. SAVEDN )@@G@@ VALUE. @C@@@@ E$FD2 A4 . ENCODE SYMBOL @ @@@@DO )@@G@@ E$MSG (' = &'L) @B@@@@ E$OCTV R2 . AND DP )@@G@@VALUE.@D@@@@ ENDIF . ENTRY VS ABSVALUE. @^@@@@DQ )@@G@@ J ED$MSG@C@@@@ ENDIF . SPEC VS NO DR )@@G@@SPEC. @E@@@@/. LIST ABSOLUTE AND RELATIVE ADDRESS. COMMAND FORMAT: DS )@@G@@@#@@@@. >ADDRESS [ADDR] @[@@@@. @]@@@@ADDRESS* . @D@@@@ LMJ DT )@@G@@ X11,DCDAD . DECODE ANY SPEC GIVEN. @D@@@@ J STXERR DU )@@G@@ . SYNTAX ERROR RETURN. @D@@@@ J ADRERR . NO-SUDV )@@G@@CH-ADDRESS RETURN.@C@@@@ DL A0,SEGNM . GET SEGMENT NAME.DW )@@G@@@E@@@@ IF A0 IS NONZ . THEN SEGMENT NAME NON-VOID. @B@@@@DX )@@G@@ E$FD2 . ENCODE. @^@@@@ E$FD ':' DY )@@G@@@#@@@@ ENDIF @E@@@@ E$OCTV ABSADDR . ENCODE ABSODZ )@@G@@LUTE ADDRESS. @ @@@@ E$MSG (' = &'L) @B@@@@ IF REA )@@G@@EGFLAG IS NONZ . THEN GRS. @ @@@@ L A0,ABSADDR @D@@@@EB )@@G@@ LMJ X11,REGMNEM . ENCODE REGISTER NAME.@^@@@@ EREC )@@G@@ ERR$ @#@@@@ E$FD1 @C@@@@ ELSE .ED )@@G@@ MAIN STORAGE. @E@@@@ LMJ X11,NCDRAD . ENCODE RELATIVE AEE )@@G@@DDRESS. @D@@@@ ENDIF . GRS VS MAIN STORAGE. EF )@@G@@@C@@@@ J ED$MSG . GO PRINT RESULT. ) @@@@/. BANK COMMEG )@@G@@AND. FORMAT: @G@@@@/. LIST BANK NAMES OR PARTICULARS OF SPECIFIED BEH )@@G@@ANK. COMMAND FORMAT: @B@@@@. >BANK [BANK-NAME] OR >BANK #BDI EI )@@G@@@[@@@@. @]@@@@BANK* . @E@@@@ IF ENDSTR,,U EQ A2 . THEN EJ )@@G@@NO BANK NAME SPECIFIED. @E@@@@ L X9,BNKTAB . SET POINTEREK )@@G@@ TO BANK ITEMS. @ @@@@ A,U X9,BNKTAB @ @@@@ A,EL )@@G@@S3 X9,BNKTAB @ @@@@ LXI,S3 X9,BNKTAB @C@@@@ L,EM )@@G@@T1 R3,BNKTAB . GET BANK COUNT. @C@@@@ J F$(2) .EN )@@G@@ FOR EACH BANK: @[@@@@. @B@@@@L$(L$) L,T1 A0,2,*X9 . GET BEO )@@G@@DI. @^@@@@ S A0,BDI@D@@@@ LMJ X11,FBN .EP )@@G@@ GET REST OF BANK DATA. @B@@@@ LMJ X10,LSTBANK . LIST IT. EQ )@@G@@@ @@@@L$(L$) JGD R3,B$(1) @[@@@@. @B@@@@ E$MSG ER )@@G@@('ACTIVE BANKS: &'L) @E@@@@ LXI,U A0,1*/17 . GET BDI'S OES )@@G@@F ACTIVE BANKS. @^@@@@ ER BANK$ @^@@@@ DS ET )@@G@@A0,SCR@[@@@@. @^@@@@P* $PROC *2 @B@@@@ TNZ EU )@@G@@P(2,1),P(2,2),P(2,3) @^@@@@ J F$(1) @A@@@@ L,EV )@@G@@U A0,P(1,1):'=' @#@@@@ E$FD1 @B@@@@ E$OCTV EW )@@G@@P(2,1),P(2,2),P(2,3) @#@@@@ E$SP @#@@@@L$(L$)* $END EX )@@G@@@ @@@@ P 'MI' SCR,,H1@ @@@@ P 'MD' SCR,,H2EY )@@G@@@A@@@@ P 'UI' SCR+1,,H1 @A@@@@ P 'UD' SEZ )@@G@@CR+1,,H2 @F@@@@ ELSE . BANK SPECIFIED BY NAME FA )@@G@@OR BDI. @[@@@@/. @E@@@@ IF '#',,U EQ A2 . THEN BANK SFB )@@G@@PECIFIED VIA BDI. @B@@@@ S$NN . GET IT. @C@@@@FC )@@G@@ SYNTAX ERROR . NOT A NUMBER. @E@@@@ S FD )@@G@@ A0,BDI . BDI FOUND. PUT IN AETABL. @D@@@@ LMJ X11,FE )@@G@@FBN . LOOK UP BANK DATA. @E@@@@ ELSE . BANK FF )@@G@@SPECIFIED VIA NAME. @ @@@@ L,U A0,12 @F@@@@ FG )@@G@@ S A0,SXC . RESCAN ITEM USING EXTENDED SYMBOL- @C@@@@ FH )@@G@@ S$TS . CHARACTER TABLE.@C@@@@ SYNTAX ERROFI )@@G@@R . NOT A SYMBOL. @F@@@@ DS A0,BNKNM . SYMBOL FOUNFJ )@@G@@D. TAKE AS BANK NAME. @D@@@@ LMJ X11,FBI . LOOK UP BANFK )@@G@@K DATA. @C@@@@ ENDIF . BDI VS NAME. @B@@@@FL )@@G@@ JNZ A0,ADRERR . LOOK-UP OK?@E@@@@ LMJ X10,LSFM )@@G@@TBANK . YES. PRINT DATA FROM TABLE. @E@@@@ E$MSG (' & &-BANKFN )@@G@@&'L) . REPORT BANK BASING. @F@@@@ L A0,BNKFLG . 0/1/2FO )@@G@@/3/4 AS INACTIVE/UD/UI/MD/MI. @^@@@@ A,U A0,1 @C@@@@ FP )@@G@@ AND,U A0,6 . [A1] = 0/2/2/4/4.@ @@@@ E$FD2 $(0),AFQ )@@G@@1 @^@@@@$(0) 'INACTIVE'D @^@@@@ 'UTILITY'D @#@@@@FR )@@G@@ 'MAIN'D @#@@@@$(1) E$MSGR @E@@@@ L A0,BDIFS )@@G@@ . GET BANK CHARACTERISTIC BITS.@ @@@@ LXI,U A0,1*/17+1 FT )@@G@@@^@@@@ ER BANK$ @B@@@@ L A4,A1 . BITS FU )@@G@@IN A4.@^@@@@ L,U A2,'I'@B@@@@ IF 1*/8,,U OP A4, /LFV )@@G@@,U A2,'D' @#@@@@ E$FD @G@@@@ E$MSGR .FW )@@G@@ IMAGE: 'UTILITY I-BANK', FOR EXAMPLE. @^@@@@Q* $PROC *1 FX )@@G@@@ @@@@ DL A0,(Q(1,2)D)@B@@@@ IF 1*/Q(1,1),,U OP AFY )@@G@@4, /E$FD2 @#@@@@ $END @A@@@@ Q 14,',DYNAMICFZ )@@G@@' @A@@@@ Q 13,',WRITEPRTCTD' @A@@@@ Q GA )@@G@@12,',GUARDMODE' @A@@@@ Q 11,',VFYDGENTRY' @E@@@@ GB )@@G@@ ENDIF . BANK SPECIFIED VS UNSPECIFED.@^@@@@ J GC )@@G@@ ED$MSG @#@@@@/LSTBANK . [X10]. @B@@@@ E$OCTF 3,BDI .GD )@@G@@ ENCODE BDI.@#@@@@ E$SP 2 @C@@@@ E$FD2 BNKNM .GE )@@G@@ ENCODE BANK NAME.@#@@@@ E$COL 18@B@@@@ E$OCTF 6,BNKFW GF )@@G@@ . ENCODE FWA.@^@@@@ E$FD '-' @^@@@@ L A0GG )@@G@@,BNKFW@^@@@@ A A0,BNKWC@^@@@@ AN,U A0,1 @B@@@@GH )@@G@@ E$OCTF 6 . ENCODE LWA.@ @@@@ LMJ X11,PRINGI )@@G@@T1 @^@@@@ J 0,X10 @[@@@@. @]@@@@ $END_@@@@@GJ )@@G@@ . ENCODE LWA.@ @@@@ LMJ X11,PRINT1 @^@@@@ J GK )@@G@@ 0,X10 @[@@@@. @]@@@@ $END_@@@@@ETKCD#C*)^@)@^@@@@A)"C(IGL )@@G@@)@@@+K[]@@@@)@@@Q[*()]@@)@^@M@%8KID ;G@@@6@@[@@@MAP /\@@@@%8)@]@/K@@@PGM )@@G@@:8)@#@AA@@@@)@A[MK@@K^G@@@@@@@*@@@@KC[@@@A/K@@@JC[@@@GC8@@@]:8KD C8@@@[GN )@@G@@:8KI /K@@@I:8KDI AB@@@@)@K[#]@ ]@[]@CK)#K)]K^G@@@@@@@C8@@@B/K@@@W(C@@[CGO )@@G@@/,0@@@&#@@@KC8@@[C/\@@@@/,0@@@AC@@@@)@S[#]@L]@D]@P]@T#@[]@L]@D]@O@/,0@@@GP )@@G@@C^@@[C/,0@@@C8@@@D/,0@@@/,0@@@CC@@[C/,0@@@AD@@@@)@)[F]@WK^C@-]@)K)DK)E@@GQ )@@G@@/K@@@@/,0@@@:;0ABS/,0@@@:;0ENTC8@@[C/K@@@%%8)@#@/K@@@@AE@@@@)@([F@[]@!]@GR )@@G@@@K)[K)@@@@@@9?@@@K/\@@@@/,0@@@9*@@@K/\@@@@/,0@@@[0^@@@C8@@@G/K@@[EAF@@@@GS )@@G@@)@2[]K^C#^C#L]@9#@[]@K@@@@@@@@/,0@@@C8@@@H/,0@@@9?@@@K/^@@@@/,0@@@/K@@[@GT )@@G@@%;0ENTAG@@@@)@'[#]@D]@P#@[]@L]@.@K)KK)H@@@/^@@@@/,0@@@/K@@[D/,0@@@/,0@@@GU )@@G@@C8@@@H/,0@@@CC@@[BAH@@@@)[][E^C#=G@^C[[]@P]@X][^/,0@@@/K@@@@/,0@@@C@@@[]GV )@@G@@/,0@@@C8@@@H/,0@@@9?@@@K[@K@[]AI@@@@)[F[#]@[]@5]@CK^C#-][C@@@@@@@@')])@@GW )@@G@@C/)@@:/,0@@@/K@@[N(@@@@G9?@@[[/K@@@@/K@@@@AJ@@@@)[N[#]@D]@P#@[]@L]@D@K)]GX )@@G@@K)N@@@/,0@@@CC@@[B/K@@[Y(*@@@//,0@@@C8@@@H/,0@@@CC@@[BAK@@@@)[V[#][L][P@GY )@@G@@K)JK)B^[]@C@@@@@@@R]K@[F/K@@]N%8)@#@/K@@@@/,0@@@/K@@[Z/,0@@@'=@@@@AL@@@@GZ )@@G@@)[<[#]@D]@D]@D]@D@^C@=C )@@@@@/,0@@@[W@@[@CWD)@]/K@@[?NW0@[F&,K@[FO,K@[FHA )@@G@@O'K@[FAM@@@@)[:[#@K^G@^C[[][X][-][)@@@@@@@(CB@@@9*B@@@'=@@@@&;@)@@/,0@@@HB )@@G@@C8@@@I8K0@[*/,)@#@AN@@@@)[3[F@^C OCA^C[L][D][-@@/K@@]](^B@@@')])@@C/)@@ HC )@@G@@/,0@@@CCB@@@/,0@@@C8@MI=/K@@['AO@@@@)[/[EK)PK)SK) ^C^=CA^@@@C8@UI=/K@@]EHD )@@G@@(CB@@[')])@@C/)@@ /,0@@@C^B@@@/,0@@@C8@MD=AP@@@@)] [#][P][-]@OK)MK)SK@@@HE )@@G@@@@@@@@C8@UD=/K@@]M(^B@@[')])@@C/)@@ /,0@@@CCB@@[/,0@@@AQ@@@@)]H[F][P][-]HF )@@G@@@OK)MK[@K)T@/,0@@@/K@@]U%8)@@#/K@@]_')])@@C/)@@ /,0@@@C^B@@[/,0@@@AR@@@@HG )@@G@@)]Q[#]@[]@D][T@[]@!]@@@@@@@@@@/\@@@@/,0@@@[0^@@@C8@@@G/K@@])/,0@@@[W@@[@HH )@@G@@/\@@@@AS@@@@)]Y[#]@D][(]@5@K0@K)^K)]@@@@@@G8@@@[C?@@[@/,0@@@C8@@@L/,)@#@HI )@@G@@/^@@@@/,0@@@9*@@@.AT@@@@)]&@UK0@K)I@)@@@0@@@@@@@ MAIN Y UTILITHJ )@@G@@VE INACTI/,0@@@9?H@@@+8@@@AAU@@@@)]([F]@T]@CK)R@^C^)@@@@@')])@@C8)@@DHK )@@G@@=9@@^@C8)@@IC[@@@H'=@@@@&;@)@[CW@@[@/,0@@@AV@@@@)]2[F]@T#@@K)IK0@^C#=G@@HL )@@G@@=9@[@@9?@@@R/,0@@@=9@]@@9?@@@P/,0@@@=9@^@@9?@@@N/,0@@@AW@@@@)];[F]@9#@@KHM )@@G@@)IK)BK)]^CA0C/)@@ /,0@@@C8K@@#CW@@[@/K@@@@/,0@@@=9@@)@9?@@@T/,0@@@AX@@@@HN )@@G@@)#^[#][D][D]@D]@8K)WK)]@@@@@@@C8K@@AC^@@@_/,0@@@C/@@@M/,0@@@9?@@@.')])@@HO )@@G@@')])@@AY@@@@)#G[F][?K)MK)]K)][][!][4/,0@@@/,0@@@C8K@@AH8@@@[GC@@@_C^@@@_HP )@@G@@')])@@C/)@@-/,0@@@AZ@@@@)#P@E@)@A[C@@@@@@@ACTIVE = & & TS AT M STARHQ )@@G@@PROGRA &; & SLT AT@@[@@@/KE@@@BA@@@@)@J[S@@@@@@@@,VFYDRDMODE@@,GUAPRTCTDHR )@@G@@,WRITEYNAMIC@@@@,DBANK& & &-: & BANKSBB@@@@)@U@C@@@@@@@@@@@@@@@@@@@HS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GENTRYBC@@@@@@@@@@ A0HT )@@G@@,BNKFW@^@@@@ A A0,BNKWC@^@@@@ AN,U A0,1 @B@@@@HU )@@G@@@@^@@I@@M@@Y@[I@@ @[+@@@@@E@@V@@@@#Q)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@HV )@@G@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@@@@@@]STXERR SNEXT$E NRSDATA HW )@@G@@LSTAET EMSG$ EOCTV$ EMSGR$ ED$MSG LSTEPNT HX )@@G@@LSTABSVT REQ STHIS$S FEPN ADRERR EFD2$ HY )@@G@@NCDRAD FABSV DCDAD EDIT$T REGMNEM ERR$ HZ )@@G@@EFD1$ FBN BANK$ SCR SNEXT$N FBI IA )@@G@@EOCTF$ ECOL$ PRINT1 ABSVALUE @@[@@@@@@@@-ADDRESS IB )@@G@@@@[@@@@@@@[EBANK @@[@@@@@@@[)ENTRY @@[@@@@@@@@-MAP IC )@@G@@@@[@@@@@@@@@DD#^[#D9HE[PE-DD1B^@! *)CLPD-GC(ODDI^@)^@)@[@[@@ 0)^@)@^@[@@ID )@@G@@^@)^@)^@)^[E^[DES)C1JEK)*[S@@@*SDFF*@E@@@@. COPYRIGHT 1979, B. E. CHI, SIE )@@G@@UNY-ALBANY, ALBANY NY 12222. @[@@@@. @B@@@@. MISCELLANEOUS SHORT UNIF )@@G@@RELATED COMMANDS. @[@@@@. @]@@@@$(1) MNM$@#@@@@ DXDEF IG )@@G@@@#@@@@ RESDEF @#@@@@ NRSDEF @]@@@@ LOC$@]@@@@IH )@@G@@ IF$ @]@@@@ RBJ$@[@@@@. @ @@@@E$MSGR $EQU +(E$MSGRII )@@G@@ ) @[@@@@. @D@@@@. DEFINE DEFAULT COMMAND IMPLIED BY BARE CR. FOIJ )@@G@@RMAT: @ @@@@. >DEFAULT NEW-DEFAULT-COMMAND@[@@@@. @]@@@@DEFAULT* . IK )@@G@@@F@@@@ IF ENDSTR,,U EQ A2, /SYNTAX ERROR . SPEC MUST BE GIVEN. IL )@@G@@@E@@@@ L A1,THSITM . SET CHARACTER-ACCESS POINTER @F@@@@IM )@@G@@ S$GSXO . TO START OF STRING TO BE SAVED. @D@@@@IN )@@G@@ L A0,(6,-30) . SET CHARACTER COUNTER. @^@@@@ L IO )@@G@@ A1,(''L)@[@@@@. @D@@@@L$(L$) SZ A3 . CLEAR BLANKIP )@@G@@-FOUND FLAG.@C@@@@ S$G . GET A CHARACTER. @H@@@@IQ )@@G@@ IF ' ',,U EQ A2, /LMJ A3,$-1 . IF BLANK, SET FLAG AND GET ANOTHEIR )@@G@@R. @D@@@@ IF 077,,U NE A2 . UNLESS END OF STRING, @F@@@@IS )@@G@@ IF A3 IS NONZ . IF NON-BLANK PRECEDED BY BLANKS, @D@@@@IT )@@G@@ JMGI A0,(ERROR 0) . AND SPACE REMAINS,@D@@@@ IU )@@G@@LSSC A1,6 . SHIFT IN A BLANK. @#@@@@ ENDIF @D@@@@IV )@@G@@ JMGI A0,(ERROR 0) . IF SPACE REMAINS, @E@@@@ LSIW )@@G@@SL A2,30 . SHIFT IN THE NON-BLANK. @^@@@@ LDSL IX )@@G@@A1,6 @E@@@@ J B$(1) . GO ON TO NEXT CHARACTER. IY )@@G@@@#@@@@ ENDIF @D@@@@ SSC A1,30,A0 . LJSF STRINGIZ )@@G@@ IN A1. @E@@@@ S A1,DFCMMD . SAVE NEW DEFAULT COMMANJA )@@G@@D. @^@@@@ J REQ @B@@@@/. ENABLE OR DISABLE USER OUTPJB )@@G@@UT. FORMAT:@ @@@@. >OUTPUT ON OR >OUTPUT OFF@[@@@@. @F@@@@. ENABJC )@@G@@LE OR DISABLE DISCARDING OF @ADDED USER INPUT. FORMAT: @A@@@@. >DISJD )@@G@@CADD ON OR >DISCADD OFF @[@@@@. @]@@@@OUTPUT* . @]@@@@DISCADJE )@@G@@D* . @^@@@@ LN,U A4,0 @C@@@@ IF ('ON'L) EQ A0, /L,UJF )@@G@@ A4,1 . SPEC 'ON' @D@@@@ IF ('OFF'L) EQ A0, /L,U A4,0 . OR 'OFF'JG )@@G@@? @#@@@@ TN A4@C@@@@ S$NE . AND NJH )@@G@@OTHING MORE?@^@@@@ SYNTAX ERROR @D@@@@ IF 'DIS',,U EQ CJI )@@G@@D . YES. IF 'DISCADD', @B@@@@ S A4,ADCFLAG . SO MJJ )@@G@@ARK. @C@@@@ ELSE . IF 'OUTPUT', @C@@@@ JK )@@G@@ XOR,U A4,1 . INVERT THE BIT. @ @@@@ S A5,NPRJL )@@G@@FLAG @D@@@@ ANDIF A5 IS NONZ . THEN 'OUTPUT OFF'. @H@@@@JM )@@G@@ C$SF '@ASG,T ':DXTPF:'PRF' . ASSIGN DISCARDED-OUTPUT FILEJN )@@G@@. @#@@@@ ENDIF @^@@@@ J REQ @H@@@@/. DEFJO )@@G@@INE A LIST OF DX CONTROL MODE COMMANDS FOR LATER EXECUTION. FORMAT: JP )@@G@@@ @@@@. >CMLIST [COMMAND LIST NAME] @[@@@@. @E@@@@. EXECUTE A LIST OJQ )@@G@@F PREVIOUSLY DEFINED COMMANDS. FORMAT: @ @@@@. >XCMLIST [COMMAND LISTJR )@@G@@ NAME]@[@@@@. @]@@@@CMLIST* . @G@@@@ IF CLTFLAG IS NONZ, /EJS )@@G@@RROR 1 . NESTED COMMAND LISTS ILLEGAL. @^@@@@ J F$(1) JT )@@G@@@]@@@@XCMLIST* . @H@@@@ IF CLTFLAG IS NONZ, /ERROR 2 . LIST MAY JU )@@G@@NOT CONTAIN 'XCMLIST' COMMAND.@D@@@@L$(L$) L A4,(''L) . DEFAULJV )@@G@@T NAME IS BLANKS. @E@@@@ IF ENDSTR,,U NE A2 . THEN COMMAND LISTJW )@@G@@ HAS A NAME.@F@@@@ L,U A0,12 . YES. EXPAND SYMBOL-CHARJX )@@G@@ACTER TABLE.@^@@@@ S A0,SXC@C@@@@ S$TS JY )@@G@@ . RESCAN SPEC. @C@@@@ SYNTAX ERROR . NOT A SYMBOJZ )@@G@@L. @G@@@@ IF 6,,U LT A3, /ERROR 3 . THEN SYMBOL EXCEEDS 6 CHKA )@@G@@ARACTERS. @C@@@@ L A4,A0 . RESCUE NAME. @C@@@@KB )@@G@@ S$NE . END OF COMMAND? @A@@@@ SYNTAXKC )@@G@@ ERROR . NO. @#@@@@ ENDIF @[@@@@. @F@@@@ C$SFKD )@@G@@ '@BRKPT $DXC$' . CLOSE ANY PREVOUS COMMAND LIST. @ @@@@ L KE )@@G@@ A3,('$$DXC$') @H@@@@ DL A1,('@USE $DXC$,'L) . [A1-A3] = KF )@@G@@'@USE $DXC$, $$DXC$:SPEC'. @^@@@@ DS A1,SCR @^@@@@ KG )@@G@@ DS A3,SCR+2@E@@@@ L,U A0,SCR . ATTACH INTERNAL NKH )@@G@@AME $DXC$. @^@@@@ LXI,U A0,4 @^@@@@ ER CSF$ KI )@@G@@@[@@@@. @ @@@@ DL A0,('$DXC$'DL)@^@@@@ DS A0KJ )@@G@@,SCR+1@E@@@@ L,U A0,SCR+1 . SEE IF FILE IS ASSIGNED. KK )@@G@@@^@@@@ LXI,U A0,10 @^@@@@ ER FITEM$ @D@@@@ KL )@@G@@ L,S1 A2,SCR+1+6 . GET EQUIPMENT CODE. @I@@@@ IF 030,,U KM )@@G@@GT A2 OR 040,,U LE A2, /SZ A2 . CLEAR IF NOT SECTOR-FORMATTED. @E@@@@KN )@@G@@ IF A2 IS ZERO . THEN FILE DOES NOT EXIST. @I@@@@ KO )@@G@@ IF 'CML',,U EQ CD . THEN COMMAND WAS 'CMLIST', FILE MUST BE ASSIGNEKP )@@G@@D. @A@@@@ C$SF '@ASG,T $DXC$' @D@@@@ ELSE KQ )@@G@@ . COMMAND WAS 'XCMLIST'. @D@@@@ ERROR 4 .KR )@@G@@ NO SUCH COMMAND LIST. @D@@@@ ENDIF . CMLIST VS XKS )@@G@@CMLIST. @D@@@@ ENDIF . NEW VS EXISTING FILE. KT )@@G@@@[@@@@/. @E@@@@ IF 'CML',,U EQ CD . THEN COMMAND WAS 'CMLISKU )@@G@@T'. @D@@@@ L,U A0,RD$BUF . SET UP FOR PRNTA$. @^@@@@KV )@@G@@ S A0,SCR@[@@@@. @G@@@@L$(L$) T$READ ($GFORM 18,0KW )@@G@@101, 18,(LJSR 'C>'), 18,F$(1), 18,RD$BUF) @F@@@@ S,H1 A0,SCRKX )@@G@@ . SOLICIT COMMAND, SAVE WORD COUNT. @C@@@@ L,U A0,SCRKY )@@G@@ . WRITE IT OUT. @^@@@@ ER PRNTA$@^@@@@ J KZ )@@G@@ B$(1) @F@@@@L$(L$) . . ESCAPE WHEN @EOF ECNCOULA )@@G@@NTERED. @D@@@@ ELSE . COMMAND WAS 'XCMLIST'. LB )@@G@@@F@@@@ S ONE,CLTFLAG . TELL 'CMMD' TO READ FROM $DXC$. LC )@@G@@@D@@@@ ENDIF . CMLIST VS XCMLIST. @^@@@@ LD )@@G@@ J REQ @D@@@@/. EVALUATE AN INTEGER ARITHMETIC EXPRESSION. FLE )@@G@@ORMAT:@ @@@@. >EVALUATE EXPRESSION [FMT] @[@@@@. @[@@@@. @]@@@@LF )@@G@@EVALUATE* . @E@@@@ LMJ X11,EVX$ . GO EVALUATE THE EXPRESSLG )@@G@@ION. @^@@@@ +1*/16,EVSYM @ @@@@ J EVX$ERR LH )@@G@@@D@@@@ S A0,A4 . SAVE EXPRESSION VALUE. @D@@@@ LI )@@G@@ L,U X9,OCT . ASSUME NONE SPECIFIED. @D@@@@ S$TE LJ )@@G@@ . IF MORE IN STRING, @F@@@@ RBJ FORMAT .LK )@@G@@ GET FORMAT SPECIFICATION (IN A4). @C@@@@ E$MSG (' =& &'L) .LL )@@G@@ ENCODE DATUM. @H@@@@ IF FMTTAB,X9,S3 IS ZERO, /E$MSGR . (ALWALM )@@G@@YS ENCODE 1 LEADING SPACE.) @B@@@@ L A0,A4 . GET DLN )@@G@@ATUM @F@@@@ LMJ X11,NCDW . AND ENCODE ACCORDING TO FORMLO )@@G@@AT. @C@@@@ J ED$MSG . GO PRINT VALUE. @[@@@@. LP )@@G@@@[@@@@. @]@@@@EVSYM . @D@@@@ L R2,X11 . SAVE LQ )@@G@@RETURN ADDRESS. @H@@@@ LMJ X11,FABSV . GO LOOK UP SYMBOLLR )@@G@@ IN ABSOLUTE VALUE TABLE. @D@@@@ S R2,X11 . RESTOLS )@@G@@RE RETURN ADDRESS.@C@@@@ SZ A2 . ASSUME NO-FIND. LT )@@G@@@C@@@@ IF A0 IS ZERO . THEN VALUE FOUND.@B@@@@ L,LU )@@G@@U A2,0100 . SO MARK. @^@@@@ L A0,A1 @#@@@@ LV )@@G@@ ENDIF @^@@@@ J 0,X11 @[@@@@. @[@@@@. @#@@@@LW )@@G@@FORMAT RMTBLK @E@@@@ TNE,U A2,' ' . EXPRESSION DELIMILX )@@G@@TER A SPACE @D@@@@ S$NS . AND NEXT A SYMBOL? LY )@@G@@@F@@@@ J F$(1) . NO. IGNORE AND USE OCTAL FORMAT. LZ )@@G@@@G@@@@ LMJ X11,SETMASK . SET MASK ACCORDING TO SYMBOL LENGTHMA )@@G@@. @C@@@@ L A1,(1,0) . SET SEARCH INDEX.@ @@@@ MB )@@G@@ L,U R1,FMLLGTH @F@@@@ MSE A0,FMTLIST,*A1 . SEARCH FOMC )@@G@@RMAT MNEMONIC LIST. @D@@@@ J F$(1) . MNEMONIC NOMD )@@G@@T FOUND. @C@@@@ L,U X9,0,A1 . FOUND. SET VALUE @C@@@@ME )@@G@@ RMTRTN . AND RETURN. @[@@@@. @E@@@@L$(L$)MF )@@G@@ P$RINT '(FORMAT SPEC ILLEGAL; OCTAL ASSUMED.)' @#@@@@ RMTRMG )@@G@@TN @D@@@@/. DESCRIBE USER ERROR IN PLAIN ENGLISH. FORMAT: @]@@@@MH )@@G@@. >ERRMSG @[@@@@. @]@@@@ERRMSG* . @D@@@@ IF ENDSTR,,U NE MI )@@G@@A2, /SYNTAX ERROR . NO SPEC. @E@@@@ IF ERPKT IS ZERO, /ERROR 5 .MJ )@@G@@ NO ERROR ON RECORD. @#@@@@ L$DISC 1 @^@@@@ L,U A0MK )@@G@@,ERPKT@^@@@@ ER ERRPR$ @^@@@@ J REQ @^@@@@ML )@@G@@/$(0) ERRORS LOCAL @E@@@@ NERMSG 'COMMAND EXCEEDS 6 CHARACTMM )@@G@@ERS; IGNORED.' @F@@@@ NERMSG 'COMMAND LIST MAY NOT CONTAIN ''MN )@@G@@CMLIST'' COMMAND.'@G@@@@ NERMSG 'COMMAND LIST MAY NOT CONTAIN ''MO )@@G@@XCMLIST'' COMMAND.' @F@@@@ NERMSG 'COMMAND LIST NAME MAY NOTMP )@@G@@ EXCEED 6 CHARACTERS.' @D@@@@ NERMSG 'SPECIFIED COMMAND LIST NOMQ )@@G@@T FOUND.' @E@@@@ NERMSG 'NO ERROR CONDITION CURRENTLY RECORDEDMR )@@G@@.' @^@@@@ ERRORS END @[@@@@. @]@@@@ $END_@@@@@MS )@@G@@CORDED.' @^@@@@ )@@@MK)@@@@@)@@@Q[*()]@@)@]@UK)[K0@@C@@@@C/,0@@@MT )@@G@@CCO@@ @@[@@@MISC /\@@@@:8)@#@AA@@@@)@ [F#@@K)]^@K[@@@@@@@@@/K@@@K(@@@@JMU )@@G@@/K@@@O:8)@@_/\0@@B:8)@@ ')A)@@ @@@@JC@K@@DAB@@@@)@I[F#@@K0@[@^C@4C[@@@@@MV )@@G@@/K@@@@[@R@[M;@W@@Y/K@@@A;?K@@A;*)@@Y/:@@@E;)K@@A/:@@@EAC@@@@)@R[EK0@^G@@MW )@@G@@K) K)@@@@@@@%;0DIS/\@@@@/,0@@@1@@@@KC9@@@@:@@@@GC9@@@[:@@@@FD9@@@@AD@@@@MX )@@G@@)@)[F@K)#K[]@GK^G@^C[)@@'=@@@@C@@@@K/K@@@((@@@@L[!R@[P-9@@@[/K@@@([(B@[PMY )@@G@@/K@@@____@@]@@TNP )@@G@@ $DXC$@ASG,T $DXC$ DXC$, @USE $$$DXC$AT@@@@)@Y[K1)#K)E@@@@@@@) NQ )@@G@@SUMED.TAL ASAL; OC ILLEGT SPEC(FORMA@@[@@@ =& & @[Z@@@AU@@@@)@*[S*@O@@@@NR )@@G@@D. IGNORETERS; CHARACEDS 6 D EXCECOMMAN@@]@@(IP 01D,@@SK@[B@@-AV@@@@NS )@@G@@)@3[S@@@@@@@ MAY ND LISTCOMMANAND. ' COMMCMLISTTAIN 'OT CON MAY ND LISTNT )@@G@@COMMANAW@@@@)@"[S@@@@@@@ED 6 CT EXCEMAY NO NAME D LISTCOMMANMAND. T' COMNU )@@G@@XCMLISTAIN 'OT CONAX@@@@)[D[S@@@@@@@DITIONOR CONNO ERRND. OT FOULIST NNV )@@G@@MMAND IED COSPECIFERS. HARACTAY@@@@)[O@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NW )@@G@@@@@@@@@@@@@@@@@@@@D. ECORDENTLY R CURREAZ@@@@@@^@@I@@M@@Z@[K@@B@[?@@@NX )@@G@@@@E@[S@@@@]J)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@NY )@@G@@)@@@@@@@@@@]STXERR SGSXO$ SG$ RESDATA REQ NZ )@@G@@SNEXT$E CSF$ STHIS$S SCR FITEM$ NRSDATA OA )@@G@@TREAD$ PRNTA$ EVX$ EVX$ERR OCT STHIS$E OB )@@G@@EMSG$ FMTTAB EMSGR$ NCDW ED$MSG FABSV OC )@@G@@SNEXT$S SETMASK FMLLGTH FMTLIST PRINT$ PRTCN$ OD )@@G@@ERRPR$ SVCERR CMLIST @@[@@@@@@@@%DEFAULT @@[@@@@@@@@@OE )@@G@@DISCADD @@[@@@@@@@@RERRMSG @@[@@@@@@@]AEVALUATE @@[@@@@@@@[+OF )@@G@@OUTPUT @@[@@@@@@@@RXCMLIST @@[@@@@@@@@!119999992211129291444444OG )@@G@@*[S@@@*SDFF*@E@@@@. COPYRIGHT 1979, B. E. CHI, SUNY-ALBANY, ALBANY NY 12OH )@@G@@222. @[@@@@. @D@@@@. THE FOLLOWING COMMANDS ARE USED FOR DEBUGGING OI )@@G@@@DX. @[@@@@. @]@@@@$(1) MNM$@#@@@@ DXDEF @#@@@@ OJ )@@G@@ RESDEF @#@@@@ NRSDEF @]@@@@ LOC$@]@@@@ IF$ OK )@@G@@@[@@@@. @ @@@@ERROR $EQU +(ERROR ) @E@@@@. (ARTIFICIALLY) EOL )@@G@@NTER DX CONTINGENCY MODE. COMMAND FORMAT:@[@@@@. >CTX@[@@@@. @]@@@@OM )@@G@@CTX* . @^@@@@ SZ ICGY @^@@@@ J ICGY+2 ON )@@G@@@[@@@@. @[@@@@. @C@@@@. ENABLE DX DEBUGGING COMMANDS. COMMAND FOO )@@G@@ORMAT:@]@@@@. >DEBUG @[@@@@. @]@@@@DEBUG* . @E@@@@ S OP )@@G@@ ONE,CMLLGH . ENABLE DEBUGGING COMMANDS. @^@@@@ J REOQ )@@G@@Q @[@@@@/. @ @@@@. PATCH DX. COMMAND FORMAT: @#@@@@. >PATCH ADDOR )@@G@@R @[@@@@. @D@@@@. SET HARDWARE BREAKPOINT IN DX. COMMAND FORMATOS )@@G@@: @]@@@@. >SBP ADDR @[@@@@. @]@@@@PATCH* . @]@@@@SBP* . OT )@@G@@@I@@@@ IF NUMBER,,U NE A2 OR 8,,U NE A1, /SYNTAX ERROR . SPEC AN OU )@@G@@OCTAL NUMBER? @A@@@@ L X9,A0 . YES. @C@@@@ OV )@@G@@ S$NE . ANYTHING MORE? @A@@@@ SYNTAX ERROR OW )@@G@@ . YES. @A@@@@ L A0,X9 . NO. @D@@@@ IF 'OX )@@G@@SBP',,U EQ CD . THEN COMMAND WAS 'SBP'.@D@@@@ IF A0 IS NONZ OY )@@G@@ . THEN SET BREAKPOINT. @G@@@@ IF RES,D,U GT A0 OR DLWPOZ )@@G@@1 LE A0, /ERROR 0 . ADDRESS IN DX? @D@@@@ LXI,U A0,040000 PA )@@G@@. YES. SET SETBP$ P-BIT.@F@@@@ ENDIF . (IF [A0] = PB )@@G@@0, CLEAR BREAKPOINT.) @C@@@@ S A0,DXBKPT . SAVE FOR SAPC )@@G@@VEU, @F@@@@ ER SETBP$ . AND SET OR CLEAR THE BREAKPOPD )@@G@@INT. @^@@@@ J REQ @#@@@@ ENDIF @D@@@@/ PE )@@G@@ . COMMAND WAS 'PATCH'. @F@@@@ IF RES,D,UPF )@@G@@ GT A0 OR DLWP1 LE A0, /ERROR 0 . ADDRESS IN DX?@G@@@@ IF 0200,,UPG )@@G@@ GT A0, /ERROR 1 . YES. ADDRESS IN HIDDEN STORAGE? @G@@@@ E$OCPH )@@G@@TF 12,0,X9 . NO. ENCODE THE WORD TO PATCH IN OCTAL @ @@@@ PI )@@G@@ E$MSG (' (&)&'L) @^@@@@ L A0,0,X9 @#@@@@ SZ PJ )@@G@@ A1@D@@@@ LMJ X11,EINS$O . AND AS AN INSTRUCTION.@#@@@@PK )@@G@@ E$MSGR @F@@@@ LMJ X10,TREAD . PRINT OLD VALUE APL )@@G@@ND ACCEPT NEW. @C@@@@ J REQ . IF NONE, IGNORE. PM )@@G@@@[@@@@. @E@@@@ S$CAN SCPKT . ELSE, SCAN THE RESPONSEPN )@@G@@. @E@@@@ LMJ X11,DCDWORD . DECODE TO ONE MACHINE WORD. PO )@@G@@@C@@@@ J STXERR . SYNTAX ERROR. @C@@@@ S PP )@@G@@ A0,0,X9 . RESULT OK. STORE.@F@@@@ TLEM,U X9,RESEND,D .PQ )@@G@@ IS PATCHED WORD IN RESIDENT DX? @B@@@@ J REQ .PR )@@G@@ YES. DONE. @[@@@@. @G@@@@ DL A2,DPKT . NO. BUILD IPS )@@G@@OW$ PACKET FOR NONRESIDENT DX.@^@@@@ DS A2,SCR @ @@@@ PT )@@G@@ DL A2,DPKT+2 @^@@@@ DS A2,SCR+2@F@@@@ L,U PU )@@G@@ A2,0,X9 . FIND SECTOR/WORD IN NONRESIDENT DX.@ @@@@ AN,UPV )@@G@@ A2,01000,D @^@@@@ DSL A2,36 @^@@@@ DI,U A2PW )@@G@@,28 @G@@@@ A,U A2,NRSECT . [A2] = ABSOLUTE SECTOR, [A3] PX )@@G@@= WORD. @ @@@@ L A1,(28,ED$BUF)@E@@@@ DS A1PY )@@G@@,SCR+4 . SET ACW, SECTOR ADDRESS. @G@@@@ L,U A0,SCR PZ )@@G@@ . READ THE SECTOR CONTAINING CHANGED WORD. @^@@@@ ER IOQA )@@G@@W$ @C@@@@ L A1,0,X9 . PATCH THE WORD. @ @@@@ QB )@@G@@ S A1,ED$BUF,A3 @D@@@@ L,U A1,W$ . WRITE SECTOQC )@@G@@R BACK OUT. @^@@@@ S,S2 A1,3,A0 @^@@@@ ER IOW$ QD )@@G@@@^@@@@ J CLREQ @[@@@@/. @B@@@@. DISPLAY SCHAET PACKET.QE )@@G@@ COMMAND FORMAT: @[@@@@. >AEP@[@@@@. @]@@@@AEP* . @F@@@@ QF )@@G@@ L X9,(-1,AELSTL-1) . SET POINTER TO LISTING PROGRAM.@[@@@@. QG )@@G@@@E@@@@L$(L$) E$OCTF 3,AELST,X9,S1 . ENCODE RELATIVE LOCATION. @^@@@@QH )@@G@@ E$FD ':' @^@@@@L$(L$) E$FD ' ' @C@@@@ L,S1QI )@@G@@ A0,AELST,X9 . DATA POINTER. @D@@@@ L,S2 A1,AELST,X9 .QJ )@@G@@ EDIT$ DIGIT COUNT. @D@@@@ L,S3 A2,AELST,X9 . FETCH/ENCODQK )@@G@@E POINTER. @D@@@@ L,S4 X10,AELST,*X9 . DATA SHIFT COUNT. QL )@@G@@@D@@@@ EX FETCH,A2 . DATA TO A0 OR A0,A1. @D@@@@ QM )@@G@@ SSL A0,0,X10 . SHIFT INTO POSITION. @D@@@@ EX ENQN )@@G@@CODE,A2 . ENCODE APPROPRIATELY. @G@@@@ JMGI X10,B$(1) .QO )@@G@@ GO ON TO NEXT DATUM IF NOT END OF LINE. @F@@@@ LMJ X11,PRINQP )@@G@@T1 . END OF LINE (NO SHIFT). PRINT. @C@@@@ TN,XU 0,X9 QQ )@@G@@ . ANY MORE DATA? @C@@@@ J B$(2) . YES. CONTINQR )@@G@@UE. @C@@@@ J REQ . NO. FINISHED. @[@@@@. QS )@@G@@@ @@@@FETCH L A0,AEPKT,A0 @ @@@@ DL A0,AEPKT,A0 QT )@@G@@@[@@@@. @ @@@@ENCODE LMJ X11,EOCTF$ @ @@@@ LMJ X1QU )@@G@@1,EFD2$ @[@@@@. @ @@@@F $FORM 6,6,6,6,12 @B@@@@AELST QV )@@G@@ F 10,6,0,0 . LAST ITEM. @^@@@@ F 10,6,0,18@^@@@@QW )@@G@@ F 9,6,0,0 @^@@@@ F 9,2,0,18@^@@@@ F QX )@@G@@ 9,4,0,24@^@@@@ F 7,0,1,0 @^@@@@ F 6,6,0,0 QY )@@G@@@^@@@@ F 6,2,0,18@^@@@@ F 6,4,0,24@^@@@@ QZ )@@G@@ F 4,0,1,0 @^@@@@ F 3,6,0,0 @^@@@@ F 3,RA )@@G@@2,0,18@^@@@@ F 3,4,0,24@^@@@@ F 2,6,0,0 @^@@@@RB )@@G@@ F 2,6,0,18@B@@@@ F 0,0,1,0 . FIRST ITEM.RC )@@G@@@^@@@@AELSTL $EQU $-AELST @G@@@@/. THE CODE BELOW HANDLES CONTINGENCRD )@@G@@IES WHILE DX IS IN CONTROL MODE @G@@@@. (WHICH, IF DX WERE ERROR-FRERE )@@G@@E, WOULD NEVER OCCUR). IT IS IN EFFECT @G@@@@. A 'MINI-DX' IN THAT ITRF )@@G@@ PERMITS INSPECTION OF REGISTERS AND CORE AFTER @G@@@@. ANY SUCH CONTINGRG )@@G@@ENCY ARISES. SUCH AN OCCURRENCE IS INDICATED BY THE @H@@@@. PRINTING ORH )@@G@@F THE MESSAGE '* DX CONTINGENCY *' FOLLOWED BY THE CONTINGENCY @G@@@@RI )@@G@@. CODES. THEREAFTER, THE USER MAY TYPE A REGISTER NAME OR OCTAL ADDRESSRJ )@@G@@@G@@@@. TO VIEW ITS CONTENTS OR 'J' TO DISPLAY THE JUMP STACK. INPUTTINRK )@@G@@G A @H@@@@. BLANK LINE IMPLIES 'LAST ADDRESS SPECIFIED + 1'. TYPE '@@RL )@@G@@X C' TO RETURN @^@@@@. TO DX CONTROL MODE. @[@@@@. @G@@@@. THE RM )@@G@@CODE IS SELF-CONTAINED TO MINIMIZE CHANCES OF FAILURE DUE TO COR- @C@@@@RN )@@G@@. RUPTION OF OTHER PORTIONS OF NON-RESIDENT DX. @[@@@@. @H@@@@. IF ARO )@@G@@ CONTINGENCY ARISES WHILE EXECUTING CODE BELOW, TREAT AS COMMAND ERROR. RP )@@G@@@F@@@@. IT PROBABLY RESULTED FROM SPECIFYING A NON-EXISTENT ADDRESS. RQ )@@G@@@[@@@@. @E@@@@ATATXC $EQUF 020010,,U . KEYBOARD INTERRUPT (@@XRR )@@G@@ C). @F@@@@RD$2AR $EQUF 020212,,U . 2ND ABNORMAL RETURN FROM READRS )@@G@@$. @F@@@@TD$2AR $EQUF 023712,,U . 2ND ABNORMAL RETURN FROM TREART )@@G@@D$. @[@@@@. @]@@@@$(2) $LIT@I@@@@ 'DX INT' .RU )@@G@@ RESIDENT DX TESTS FOR THE PRESENCE OF THIS WORD. @]@@@@ICTY* . RV )@@G@@@B@@@@ IF ADDR,,H2 IS NONZ, /J CTYCTY @F@@@@ DS A0RW )@@G@@,SVA0A1 . SAVE A0-A3. (THIS ROUTINE USES @D@@@@ DS A2RX )@@G@@,SVA2A3 . NO OTHER REGISTERS.) @C@@@@ LMJ A1,PRTON .RY )@@G@@ ENABLE PRINT$. @E@@@@ C$SF '@BRKPT $DXC$' . DISCARD ANY COMRZ )@@G@@MAND LIST. @^@@@@ SZ CLTFLAG @B@@@@ L,H1 A0,ICGY SA )@@G@@ . GET CODES. @E@@@@ IF ATATXC EQ A0, /J ICTX . EXIT ROUTINE SB )@@G@@IF @@X C. @H@@@@ IF RD$2AR EQ A0 OR TD$2AR EQ A0, /J EXEUNT . ESC )@@G@@XIT DX IF 2ND ABNORMAL @I@@@@ P$RINT '* DX CONTINGENCY *' . SD )@@G@@ RETURN FROM (T)READ$. @D@@@@ L,U A0,JHSTKSE )@@G@@ . CAPTURE ANY JUMP STACK.@E@@@@ SNZ 0,A0 . SEE ISF )@@G@@F THIS IS AN 1100/80. @E@@@@ IF 0,A0 IS NEG, /LXI,U A0,8 . IF SSG )@@G@@O, ENLARGE BUFFER.@^@@@@ ER EDJS$ @G@@@@ L,U A2SH )@@G@@,ICGY . GET ADDRESS OF ERROR CODES AND ADDRESS. @]@@@@BASE . SI )@@G@@@G@@@@ A,H2 A2,ADDR . AFTER LAST DIGIT, ADD ANY BASE ADDRSJ )@@G@@ESS. @D@@@@ S,H2 A2,ADDR . SAVE BASED ADDRESS. @C@@@@SK )@@G@@ DL A0,SVA0A1 . RESTORE A0-A3. @ @@@@ DL A2SL )@@G@@,SVA2A3 @F@@@@ADDR L A2,$-$ . GET CONTENTS OF REQUESTSM )@@G@@ED ADDRESS @C@@@@ LMJ A3,NCD . AND ENCODE. @D@@@@SN )@@G@@ DS A0,BUF+1 . PUT IN PRINT BUFFER. @D@@@@ L,H2SO )@@G@@ A2,ADDR . GET THE ADDRESS ITSELF.@C@@@@ TGE,U A2,A17 SP )@@G@@ . TEST IF GRS. @^@@@@ TG,U A2,R1 @^@@@@ TGE,SQ )@@G@@U A2,R15 @C@@@@ LXI,U A2,1*/17 . SET FLAG IF NOT. @C@@@@SR )@@G@@ IF A2 IS POS . THEN ADDRESS IS GRS. @F@@@@ IF X9,,USS )@@G@@ GE A2, /A,U A2,'X9'-X9 . ENCODE AXR$ MNEMONIC. @C@@@@ IF X11,,ST )@@G@@U GE A2, /A,U A2,'X11'-X11 @B@@@@ IF A9,,U GE A2, /A,U A2,'ASU )@@G@@9'-A9 @C@@@@ IF A17,,U GE A2, /A,U A2,'A17'-A17 @B@@@@ SV )@@G@@ IF R9,,U GE A2, /A,U A2,'R9'-R9 @C@@@@ IF R15,,U GE A2, /A,SW )@@G@@U A2,'R15'-R15 @ @@@@ LXI,U A1,' ' @B@@@@ IFSX )@@G@@ 1*/11,,U OP A2, /DSC A1,6 @^@@@@ DSC A1,18 @D@@@@ SY )@@G@@ ELSE . NOT GRS. ENCODE OCTAL. @^@@@@ LMJ SZ )@@G@@A3,NCD@C@@@@ ENDIF . CASE GRS OR NOT. @H@@@@ TA )@@G@@ LSSL A1,6 . LEFT-JUSTIFY MNEMONIC OR TRIM OCTAL TO 5 DIGITSTB )@@G@@@D@@@@ A,U A1,' ' . AND FOLLOW WITH BLANK.@D@@@@ TC )@@G@@ S A1,BUF . PUT IN PRINT BUFFER. @D@@@@ L,U A0TD )@@G@@,' >':077 . INSERT PRINT$ STOPPER. @^@@@@ S,H1 A0,BUF+3@B@@@@TE )@@G@@ J F$(1) . GO PRINT. @[@@@@. @I@@@@CTYCTY . TF )@@G@@ . COME HERE IF CONTINGENCY ARISES WITHIN THIS CODE. TG )@@G@@@B@@@@ L,H1 A0,ICGY . GET CODES. @E@@@@ IF ATATXC TH )@@G@@EQ A0, /J ICTX . EXIT ROUTINE IF @@X C. @E@@@@ERR . TI )@@G@@ . COME HERE IF ERROR ARISES. @^@@@@ L A0,QQQ @^@@@@TJ )@@G@@ S A0,BUF @E@@@@L$(L$) T$READ PCW . PRINT IMAGETK )@@G@@, SOLICIT REQUEST.@D@@@@ IF A0 IS ZERO . THEN RESPONSE IS TL )@@G@@VOID. @F@@@@ L,U A2,1 . JUST INCREMENT PREVIOUS ADDRETM )@@G@@SS. @C@@@@ ELSE . RESPONSE NONVOID.@D@@@@ TN )@@G@@ IF 1,,U NE A0, /J ERR . EXACTLY ONE WORD? @F@@@@ L,U TO )@@G@@A3,8 . YES. ASSUME OCTAL ADDR; SET RADIX. @D@@@@ SZ,H2 TP )@@G@@ADDR . CLEAR BASE ADDRESS. @E@@@@ DSL A1,72 .TQ )@@G@@ BUILD DECODED VALUE IN A2. @C@@@@ L A0,BUF . GET TTR )@@G@@HE RESPONSE.@D@@@@ DSL A0,30 . FIRST CHARACTER IN A0. TS )@@G@@@D@@@@ A,U A1,' ' . SET DECODING STOPPER. @F@@@@ TT )@@G@@ IF 'X',,U EQ A0, /LN,U A0,X0 . FIRST CHARACTER AN 'X'? @D@@@@ TU )@@G@@ IF 'A',,U EQ A0, /LN,U A0,A0 . OR AN 'A'? @E@@@@ IF 'R',,TV )@@G@@U EQ A0, /LN,U A0,R1-1 . OR AN 'R'? @I@@@@ IF 'J',,U EQ ATW )@@G@@0, /LN,U A0,JHSTK . OR A 'J' (JUMP HISTORY STACK)? @E@@@@ TX )@@G@@ JP A0,F$(1) . IF NOT, GO TREAT AS DIGIT. @E@@@@ SNTY )@@G@@,H2 A0,ADDR . IF SO, SAVE BASE ADDRESS. @G@@@@ L,U TZ )@@G@@A3,10 . USE DECIMAL RADIX FOR REG MNEMONICS. @]@@@@DCD . UA )@@G@@@E@@@@ SZ A0 . PREPARE TO DECODE A DIGIT. @D@@@@UB )@@G@@ LDSL A0,6 . NEXT CHARACTER IN A0. @G@@@@L$(L$) IFUC )@@G@@ ' ',,U EQ A0, /J F$(1) . ESCAPE WHEN END OF STRING FOUND. @D@@@@ UD )@@G@@ AN,U A0,'0' . ELSE, STRIP FIELDATA. @D@@@@ IF A0 ISUE )@@G@@ NEG OR A3 LE A0, /J ERR . A DIGIT? @D@@@@ MSI A2,A3 .UF )@@G@@ YES. FOLD IN NEW DIGIT.@^@@@@ A A2,A0 @E@@@@ J UG )@@G@@ DCD . GO ON TO NEXT CHARACTER. @F@@@@L$(L$) ENDIF UH )@@G@@ . CASE OF VOID VS NONVOID RESPONSE. @^@@@@ J BAUI )@@G@@SE @[@@@@. @[@@@@. @G@@@@ICTX . COME UJ )@@G@@HERE TO RETURN TO CONTROL MODE. @E@@@@ SZ,H2 ADDR .UK )@@G@@ CLEAR INITIALIZATION SWITCH. @F@@@@ LMJ A2,NRREGS . CLEANUL )@@G@@ UP AND RESET EVERYTHING. @D@@@@ J XICTY . REENTUM )@@G@@ER CONTROL MODE. @[@@@@. @[@@@@. @H@@@@NCD . [A3]. UN )@@G@@ . ENCODE [A2] TO 12 FIELDATA DIGITS IN A0,A1. @^@@@@ DSL UO )@@G@@ A0,72 @^@@@@L$(L$) LDSL A0,36 @^@@@@L$(L$) LSSL A1,3 UP )@@G@@@^@@@@ LDSL A1,3 @^@@@@ A,U A1,'0' @^@@@@ UQ )@@G@@ JP A1,B$(1)@^@@@@ JZ A0,B$(2)@^@@@@ J 0,UR )@@G@@A3 @[@@@@. @[@@@@. @^@@@@QQQ '*?* >':077 @#@@@@PCW US )@@G@@ +0104,BUF @#@@@@ +$+1,BUF @^@@@@ P$RINT 'END DX'@ @@@@UT )@@G@@ DL A0,SVA0A1 @ @@@@ DL A2,SVA2A3 @^@@@@UU )@@G@@ ER EXIT$ @[@@@@. @[@@@@. @#@@@@BUF $RES 4 UV )@@G@@@#@@@@JHSTK $RES 8 @#@@@@SVA0A1 $RES 2 @#@@@@SVA2A3 $RES 2 UW )@@G@@@[@@@@/. @]@@@@$(0) $LIT@^@@@@$(1) ERRORS LOCAL @A@@@@ UX )@@G@@ NERMSG 'ADDRESS NOT IN DX.'@C@@@@ NERMSG 'ADDRESS IN HIDDEN SUY )@@G@@TORAGE.' @^@@@@ ERRORS END @[@@@@. @]@@@@ $ENDUZ )@@G@@_@@@@@@#@@@@BUF $RES 4 @#@@@@JHSTK $RES 8 @#@@@@SVA0A1 $RESVA )@@G@@ 2 @#@@@@SVA2A3 $RES 2 @[@@@@/. @]@@@@$(0) $LIT@^@@@@$(1) VB )@@G@@ ERRORS LOCAL @A@@@@)@@@;]@[]@[]@ ]@C^C@0@@@@@@@@@@@@@@@/\@@@@%8K@@CVC )@@G@@:8)@[@/K@@@@^37@[P/KB@@] @B@@@AA@@@@)@@@Q[*()]@@)@B@2K)^K)#[@@@@@@/K@@@QVD )@@G@@%;0SBPC@@@@D/\@@@@/,0@@@R]K@@G@@[@@@PATCH AB@@@@)@H[EK]=@%^@E@CK#CK#*K[@VE )@@G@@/K@@@@'=@@@@[@B@@@&;@^@@'^@K[%!^B@[(!8B@@@/K@@@N(@@@@GAC@@@@)@Q[E(@E-@])VF )@@G@@]@]^[]A@@@@@C8@@@@/,0@@@C8K@@GC@D@@@'^KK[%?8@@]@'^@K[%!^B@[(!8B@@@AD@@@@VG )@@G@@)@Z[#]@=^C]=C]4C#^C@=C#K@@@@@@R_@@@:/K@@@@/,)@@@/,0@@@/,0@@@ @@@@HC@D@@@VH )@@G@@/,0@@@AE@@@@)@$[#]@9]@.]@GK)KK)]K)[K)L@@@@9*$@@@9?$@[$/K@@@@$'R@@@[@D@@@VI )@@G@@/K@@@@/,0@@@/,0@@@AF@@@@)@\[F]@ ][^@^G@^C^K@@@@@9*R@@^C@K@@[G8)@K@W8)@@WVJ )@@G@@;G)@@=H8$@C@C8(@@@9*$@@]9?$@[(AG@@@@)@8[#][ ][CK)HEKD+^]M^])@@@@@@/K@@@@VK )@@G@@'=@@@@[0W@@#C8K@@@[@Z@@JC@T@@@'=@@@@C8B@@@AH@@@@)[@[F#@[@^C][][OK)PK@@@@VL )@@G@@C4D@[S')])@@C/)@@ ')])@@C/)@@:/,0@@@C8K@@#C4D@[SR]K@@]AI@@@@)[D[N@K^[@^[VM )@@G@@@K)Q^@/K@@[[1/D@@@/,0@@@/%)@[A')I@[Q;CE@@@')I@[OR%()[SC?(@[SC0T@[SAJ@@@@VN )@@G@@)[N[F]@D]@5]@5]@-][W@@@@D]@M@@DA@@@@EA@M@@EA@@@@/,0@@@/,0@@@9?G@@.C@G@@.VO )@@G@@/K@@@@AK@@@@)[W[U@@@@@@@]A@M@@]A@@@@#^@S@@#]@M@@#A@@@@^@[@@@A^@S@@A]@M@@VP )@@G@@AA@@@@B@[@@@D^@S@@AL@@@@)[$@E@)@@[^KO [KOCA^ ][='=@@@@C@@@]G/\R@@@9*)@]CVQ )@@G@@9*@@]A/K@@@.*^@@@VDX INT@@[@@@AM@@@@)@C[H]@ ]@@KKK)UKOCA0@@@'=@@@@C@@@]KVR )@@G@@/KB@@@:8@]ZE%8@]]E/K@@[$:8@]@CCCB@@@ )B@[PAN@@@@)@L[G*)CKICK@CE]))@@@@@@VS )@@G@@9?@@]A[^)@@VG^)@@VC8$@@@'=@@@@&;@@@C0@G@@@ @W@@@C8@@["AO@@@@)@U[P[^ [KK@VT )@@G@@@@@@@@0@@@@I&;))@@!8)@[K!8)@[[!8)@@YC^)@@V9*@@[;/\0@[%C@)@@@9?)@]CAP@@@@VU )@@G@@)@=[X[@@@@@@G8)@Q0?8)@[EG8)A1U?8)@@YG8)@A=?8)@@QG8)X1&?8)@@GG8)@X0?8)@@EVV )@@G@@/K@@@6AQ@@@@)@\[W@[[KKKK[@K@['G8K@@ ;*K@@A/\0@[%/K@@@7;^K@@M;^K@@A=8)@)@VW )@@G@@&;K G8)R0&?8)@[KAR@@@@)@'[GKO ]@@KO [EC@@@@@@@C8@@[3[@@@['C@@@[2/K@@[$VX )@@G@@:8@]@CCCB@@@/K@@[][C@@[.C8@ >_AS@@@@)[#[P][4KL[^^KK@@@;GK@[C ^@@@VC80@@CVY )@@G@@/K@@[@%8@@@[/K@@[&C8)@@[/K@@[C*@@@@G'=@@@@AT@@@@)[H[X[@@@EC@D8@@[":8@@@JVZ )@@G@@D8@@[@:8@@@RD8@@@G:8@@@AD8@@@@:8@@@XG8K@@ ;G@@@YC@@@['AU@@@@)[S[P[KK[[@@WA )@@G@@@@@@@@!@@@@J1@@@@GH8@@@0/K@@[&:8@@@ ;?@@@A @@@@GC80@@E]^@@@V/C@@[XAV@@@@WB )@@G@@)[+[P[[[KO ][9][/@;?@@@=;G@@[C/K@@@@/\$@@@ ^@@@V/K@@@R/K@@[VG@)@@GT@)@@JWC )@@G@@/K@@[@AW@@@@)[?[O[[KKED-> [@@@C@@@]M@[5@['@[^@['*?* >_/KJ@@@/@@@[:/CK@[?WD )@@G@@G8K@@0;?K@@#;*K@@#AX@@@@)[6@>][![KOCC@@@@@)[*@U()@O0@K)-@@@@@@@@@@@[ @@AWE )@@G@@@[#@@#'=@@@@9?)@]C9?@@]A'=@@@@AY@@@@)[:@F@@@@@@@)@@[@K)H@@@@S IN HADDRESWF )@@G@@IN DX.S NOT ADDRES__"@@J@@W@@J (&)& @@G@[*AZ@@@@)@C@S@)]E@/]+@OK@@@[#@]HWG )@@G@@ENCY *ONTING* DX C@@]@]E $DXC$@BRKPTE. STORAGIDDEN BA@@@@)]L@OEC@@@@@WH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[[@]LEND DXBB@@@@WI )@@G@@@@^@@I@@M@@+@[Q@@A@[,@@@@@E@@F@@@@[?@@@@]N)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@WJ )@@G@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@@@@@@]ICGY RESDATA REQ WK )@@G@@STXERR SNEXT$E RES DXBKPT SETBP$ EOCTF$ WL )@@G@@EMSG$ EINS$O EMSGR$ TREAD NRSDATA SCAN$ WM )@@G@@DCDWORD RESEND SCR IOW$ W$ CLREQ WN )@@G@@EDIT$T PRINT1 EFD2$ PRTON CSF$ EXEUNT WO )@@G@@PRINT$ EDJS$ TREAD$ NRREGS XICTY EXIT$ WP )@@G@@SVCERR AEP @@[@@@@@@@[@CTX @@[@@@@@@@@@DEBUG WQ )@@G@@@@[@@@@@@@@]ICTY @@]@@@@@@@@[PATCH @@[@@@@@@@@^SBP WR )@@G@@@@[@@@@@@@@^O^3@@@O8/@@@*[S@@@*SDFF*@E@@@@. COPYRIGHT 1979, B. E. CHI, SWS )@@G@@UNY-ALBANY, ALBANY NY 12222. @[@@@@. @]@@@@$(1) MNM$@#@@@@ WT )@@G@@ DXDEF @#@@@@ RESDEF @#@@@@ NRSDEF @]@@@@ WU )@@G@@ LOC$@]@@@@ IF$ @ @@@@ERROR $EQU +(ERROR ) @[@@@@. WV )@@G@@@B@@@@. LIST PORTION OF PCT. COMMAND FORMAT: @A@@@@. >PCT [[BLOCK.]WOWW )@@G@@RD [WC] [FMT]] @[@@@@. @ @@@@FORMAT $EQUF FMTTAB,X9 @ @@@@WX )@@G@@WPL $EQUF FORMAT,,S1 @[@@@@. @]@@@@PCT* . @A@@@@ WY )@@G@@ L A0,(1*/17+1,PCTBD$) @D@@@@ ER BANK$ . GET PWZ )@@G@@CT STORAGE LIMITS.@E@@@@ LN,XU A1,0,A0 . FARBLE INTO BLOCKXA )@@G@@ COUNT. @^@@@@ SSA A0,18 @ @@@@ A,U A1,01000XB )@@G@@,A0 @D@@@@ LDSL A0,27 . 0,A0 = BLOCK COUNT. @A@@@@XC )@@G@@ L,U A14,0,A0 . SAVE.@G@@@@ IF ENDSTR,,U EQ A2, /JXD )@@G@@ PCT2 . IF NO SPEC, GO REPORT BLOCK COUNT.@F@@@@ L A0,THSITXE )@@G@@M . ELSE, SCAN COMMAND FOR A PERIOD. @ @@@@ S A0,NXTITXF )@@G@@M @^@@@@ S$FIND '.' @E@@@@ L A13,A1 .XG )@@G@@ SAVE FIND/NO-FIND STATUS. @E@@@@ S$T . RESCAXH )@@G@@N ITEM AFTER COMMAND. @D@@@@ IF A13 IS NEG . THEN NO PERXI )@@G@@IOD IN SPEC.@E@@@@ L,U A13,1 . DEFAULT BLOCK NUMBER ISXJ )@@G@@ 1. @]@@@@ ELSE@G@@@@ LMJ X11,EVX$ . EVALUATE EXXK )@@G@@PRESSION FOR BLOCK NUMBER. @F@@@@ +0,0 . (NO HXL )@@G@@EX, FIELDATA NOR SYMBOLS.) @ @@@@ J EVX$ERR @D@@@@XM )@@G@@ IF 1,,U GT A0, /ERROR 0 . BLOCK NUMBER > 0? @C@@@@ S XN )@@G@@ A0,A13 . YES. SAVE RESULT.@G@@@@ S$TD '.' .XO )@@G@@ THE PERIOD SHOULD FOLLOW THE EXPRESSION. @B@@@@ SYNTAX ERROXP )@@G@@R . IT DOESN'T.@F@@@@ L A0,NXTITM . IT DOES. BUMP POIXQ )@@G@@NTER TO NEXT ITEM.@ @@@@ S A0,THSITM @G@@@@ IFXR )@@G@@ A13 GT A14, /J PCT1 . BLOCK NUMBER EXCEEDS BLOCK COUNT? @I@@@@ XS )@@G@@ ENDIF . YES. END CASE SPECIFIED VS IMPLIED BLOCK NUMBERXT )@@G@@. @[@@@@/. @H@@@@ LMJ X11,EVX$ . EVALUATE EXPRESSIXU )@@G@@ON FOR BLOCK-RELATIVE FWA. @]@@@@ +0,0@ @@@@ J XV )@@G@@EVX$ERR @A@@@@ S A0,A12 . SAVE.@E@@@@ LMJ XW )@@G@@ X11,WCFMT . GET ANY WORD COUNT, FORMAT. @B@@@@ S A0XX )@@G@@,A11 . SAVE WC. @F@@@@ S A1,X9 . SAVE FORMATXY )@@G@@ CODE (OR 0 -> OCTAL). @D@@@@ LN A13,A13 . [A13] = - BXZ )@@G@@LOCK NUMBER.@C@@@@ A,U A13,1*/9+1 . PCT BLOCK FWA IS @G@@@@YA )@@G@@ LSSL A13,9 . 1*/18 - (BLOCK-1)*01000 (MOD 1*/18). YB )@@G@@@D@@@@ A A13,A12 . [A13] = ABSOLUTE FWA. @C@@@@ YC )@@G@@ AU A13,A11 . [A14] = LWA + 1. @E@@@@ IF (1*/18+01001)YD )@@G@@ LE A14, /ERROR 1 . OUT OF RANGE? @]@@@@LINE . @C@@@@ E$OCYE )@@G@@TF 6,A13 . ENCODE ADDRESS. @]@@@@ E$SP@F@@@@ L YF )@@G@@ A14,WPL . # WORDS/LINE FOR SPECIFIED FORMAT. @F@@@@ IF AYG )@@G@@11 LE A14, /L A14,A11 . MIN(WORDS/LINE, REMAINING WC).@G@@@@ L,U YH )@@G@@ A0,SCR+1 . SET PARAMETERS FOR PCT$: BUFFER ADDR; @A@@@@ YI )@@G@@ L A1,A13 . FWA;@B@@@@ LXI A1,A14 . WCYJ )@@G@@. @F@@@@ TNE A13,(0777777) . IF FWA IS BLOCK 2, WORD 0777YK )@@G@@, @F@@@@ DAN A0,(0777777000001D) . FUDGE AROUND PCT$ BUGYL )@@G@@. @^@@@@ ER PCT$ @E@@@@ A A13,A14 .YM )@@G@@ INCREMENT FW, DECREMENT WC @C@@@@ AN A11,A14 . FOR YN )@@G@@NEXT LINE. @D@@@@ AN,U A14,1 . A6 = LINE WORD COUNTER.YO )@@G@@@C@@@@ LXM,U IX,SCR+1 . SET WORD POINTER.@]@@@@WORD . YP )@@G@@@C@@@@ L A0,0,*IX . PUT DATUM IN A0. @C@@@@ LMJ YQ )@@G@@ X11,NCDW . ENCODE DATUM. @D@@@@ JGD A14,WORD .YR )@@G@@ REPEAT UNTIL LINE FULL.@[@@@@. @D@@@@ LMJ X11,PRINT1 .YS )@@G@@ THEN PRINT THE LINE. @E@@@@ JNZ A11,LINE . REPEAT UNTIYT )@@G@@L WC EXHAUSTED. @[@@@@. @^@@@@ J REQ @[@@@@/. YU )@@G@@@G@@@@PCT1 E$MSG ('REQUESTED BLOCK NUMBER (&) OUT OF RANGE--ONLY &'YV )@@G@@) @^@@@@ E$DECV A13 @#@@@@ E$MSGR @^@@@@PCT2 YW )@@G@@ E$DECV A14 @A@@@@ E$MSG (' PCT BLOCK&.&'L) @^@@@@ YX )@@G@@ L,U A2,'S' @^@@@@ TE,U A14,1 @]@@@@ E$FD@#@@@@YY )@@G@@ E$MSGR @^@@@@ J ED$MSG @[@@@@. @[@@@@. YZ )@@G@@@^@@@@ ERRORS LOCAL @C@@@@ NERMSG 'LOWEST PCT BLOCK ISZA )@@G@@ BLOCK 1.' @F@@@@ NERMSG 'SPECIFIED PCT LAST-WORD-ADDRESS OUT OZB )@@G@@F RANGE.' @^@@@@ ERRORS END @^@@@@/. PSR COMMAND. FORMAT:ZC )@@G@@@^@@@@. >PSR [DK,DL,DM,...] @[@@@@. @]@@@@PSR* . @C@@@@ ZD )@@G@@ LXM,U IX,0 . SET TEXT POINTER.@F@@@@ L A5,UPSR ZE )@@G@@ . GET USER'S SPD-PROVIDED PSR BITS. @D@@@@ L,U A4,0177 ZF )@@G@@ . ASSUME ALL BITS WANTED.@G@@@@ IF ENDSTR,,U NE A2 . THEN ZG )@@G@@ONLY SELECTED BIT(S) SPECIFIED. @F@@@@ SZ A4 .ZH )@@G@@ CLEAR REQUIRED-BITS INDICATOR. @H@@@@L$(L$) IF 3,,U LT A3 OR SYMZI )@@G@@BOL,,U NE A2, /SYNTAX ERROR . AN OK SYMBOL? @A@@@@ SSL ZJ )@@G@@A0,18 . YES. @E@@@@ L,U R1,7 . SEARCH THE BIT NAZK )@@G@@ME TABLE. @ @@@@ L A1,(1,-1) @A@@@@ SE,H1 ZL )@@G@@A0,PSRTAB+1,*A1 @B@@@@ SYNTAX ERROR . NO FIND. @F@@@@ZM )@@G@@ L,U A3,1 . FOUND. MARK THIS BIT TO BE DONE. @ @@@@ZN )@@G@@ LSSL A3,0,A1 @^@@@@ OR A3,A4 @C@@@@ ZO )@@G@@ S$ND ',' . NEXT A COMMA? @^@@@@ J $+3 ZP )@@G@@@D@@@@ S$N . YES. GET NEXT ITEM. @^@@@@ ZQ )@@G@@ J B$(1) @G@@@@ IF ENDSTR,,U NE A2, /SYNTAX ERROR . NOZR )@@G@@. MUST BE END OF STRING.@D@@@@ ENDIF . ALL VS SPECZS )@@G@@IFED BITS. @[@@@@. @D@@@@L$(L$) JNB A4,F$(1) . THIS BIT SPZT )@@G@@ECIFIED? @E@@@@ E$COPY 3,PSRTAB,IX,U . YES. ENCODE STATUS FZU )@@G@@OR IT.@A@@@@ L,U A0,(' ON OFF 'L) @^@@@@ L,U ZV )@@G@@A1,5 @A@@@@ IF 1,,U EP A5, /LXI,U A0,4@#@@@@ E$COPY ZW )@@G@@@ @@@@ E$MSG PSRTAB,IX,H2@ @@@@ LMJ X11,PRINT1 ZX )@@G@@@D@@@@L$(L$) DSL A4,1 . SHIFT TO NEXT BIT. @B@@@@ ZY )@@G@@ A,U IX,1 . BUMP INDEX.@C@@@@ JNZ A4,B$(2) .ZZ )@@G@@ ANY MORE TO DO? @A@@@@ J REQ . NO. @]@@@@/$(0) AA )@@G@@ . @B@@@@PSRTAB . TEXT FOR PSR COMMAND RESPONSES. @A@@@@ +'D4AB )@@G@@ ',('(BYTE MODE)&') @A@@@@ +'D5 ',('(DP UNDERFLOW)&') @A@@@@AC )@@G@@ +'D8 ',('(FLPT ZERO)&') @A@@@@ +'D10',('(1/4-WORD MODAD )@@G@@E)&') @A@@@@ +'D12',('(UTIL PSR/SLR)&') @A@@@@ +'D17',('(AE )@@G@@FLPT RESIDUE)&') @A@@@@ +'D20',('(ARITH EXCEPT)&') @[@@@@. AF )@@G@@@]@@@@ $END___E*)7',('(FLPT RESIDUE)&') @A@@@@ +'D20',('(AG )@@G@@ARITH EXCEPT)&') @[@@@@. @]@@@@ $END)@@[N#@[]@@@[@@@@@CC^@@ AH )@@G@@/K@@[F:8)@#@C;?@@@;?@@@VG8W@C@;K@@@MD/W@@@'=@@@@C@@@@BAA@@@@)@E[E^C@L]@CAI )@@G@@K[@@@@@@@@@@/K@@@)C;K@@[/K@@@N1@@@@T/,0@@@C#K@@H/,0@@@R_@@@.[G^@@ AB@@@@AJ )@@G@@)@N[F]@GK)^^@^C[OC[)@@@@/\@@@@/,0@@@R_@@@.[@@@@T'^@K[Q?8@@@[/K@@@@@@@@@@AK )@@G@@/,0@@@AC@@@@)@@@Q[*()]@@)@W@2[@K)#@@@@@@@@@@@@@@/,0@@@/K@@[A?#)@@T[C^@@ AL )@@G@@CG^@@ @@[@@@PCT AD@@@@)@+[N]@KK)B@@@@@@@K#K@@RG#K@@S;:K@@DG;K@C[D#K@@TAM )@@G@@[@K@@D[@@@@R/,0@@@[@@@@S/K@@@@AE@@@@)@?[F#@[@[]@)K)DK)E@@@@@!#)@@RC7(@@@AN )@@G@@')])@@C/)@@ /,0@@@C8K@@AC@@@@T'^KK[Q!#)@@CAF@@@@)@5[EK)F[#@[#@[]@0@@@@@@AO )@@G@@H]0@@UG#K@@U'=@@@@9=@@@E:#K@@D&#K@@UC@K@@TC8B@@[C#)@@RAG@@@@)@"[EK)F^C#OAP )@@G@@[]@9@K)JK0@@C8@@@G/K@@@@/A0@@,/,0@@@8A)@[@/,0@@@C@C)@@Q'B@@[H;)@@[AH@@@@AQ )@@G@@)[B[F][@K)LK)M^C^OG@^C^@C8)@@S/,0@@@C8@@@O/,0@@@C@@@@U/,0@@@/,0@@@C@@@@TAR )@@G@@/,0@@@AI@@@@)[K[]K)DK)MK)NES@ G@^C ^@@@@@@@@G@[O@@@@@@@[C@@W@[ @@R/K@@@@AS )@@G@@/,0@@@')])@@%;)@@[AJ@@@@)[S[MK)P[@@K)A@@@@;C@@@M/\@@@@%8)@]@?80@@^ @@@@KAT )@@G@@/K@@[0:8)@#@C9@@[_C[R@[NQ'@@@@AK@@@@)[+[EK0@K0@K)A@^C )@@@@@/,0@@@R_@@@,AU )@@G@@)@0@@K;*.@@@C80@@[/\@@@@2CH)@[C@K@@=N8K@@BAL@@@@)[:[F@K)RK[]@T@K0@^CA@@@AV )@@G@@/,0@@@C8K@@#C8C@@@/-@@[//\@@@@%8)@#@/K@@[Y/,0@@@/K@@[,AM@@@@)[4[E()@@-@0AW )@@G@@-)@-@)-@W@@@;H@@@[/,0@@@/,0@@@C^C@@@/,0@@@&;@@@^>9K@@[C8K@@ C8@@@>AN@@@@AX )@@G@@)[.@UK^C#0@@)@@@** @* @*@@@@@@D12@@1D10@@,D8 @@?D5 @@(D4 @@$/K@@@@/ @@[0AY )@@G@@O'@@@[AO@@@@)@ [K* @(@2@@@@@@@OCK NUTED BLREQUES___@@[@@@@@@@@@___@@[@C[AZ )@@G@@)@[@@@D20@@7D17@@4AP@@@@)@J[S@@@@@@@LOCK I PCT BLOWEST& LOCK&. PCT BBA )@@G@@NLY & NGE--O OF RA&) OUTMBER (AQ@@@@)@U[S@@@@@@@@@[__"GE. OF RANS OUT BB )@@G@@ADDRES-WORD-T LASTIED PCSPECIFK 1. S BLOCAR@@@@)@>[S@@@@@@@ORD MO(1/4-WBC )@@G@@ZERO)&(FLPT W)& DERFLO(DP UNMODE)&(BYTE FF ON OAS@@@@)@0[K@@@@@@@BD )@@G@@@@@@@@T)& EXCEP(ARITHE)& RESIDU(FLPT R)& PSR/SL(UTIL DE)& AT@@@@BE )@@G@@@@^@@I@@M@@U@[A@@]@[I@@@@@E@@'@@@@]@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@BF )@@G@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@@@@@@]BANK$ SFIND$ STHIS$ BG )@@G@@EVX$ EVX$ERR STHIS$D STXERR WCFMT EOCTF$ BH )@@G@@EDIT$T FMTTAB SCR PCT$ NCDW PRINT1 BI )@@G@@REQ EMSG$ EDECV$ EMSGR$ ED$MSG SVCERR BJ )@@G@@RESDATA SNEXT$D SNEXT$ ECOPY$ PCTBD$ PCT BK )@@G@@@@[@@@@@@@@@PSR @@[@@@@@@@[S $ED370-1 CHILD DEV FOR TEACHERS BL )@@G@@*[S@@@*SDFF*@E@@@@. COPYRIGHT 1979, B. E. CHI, SUNY-ALBANY, ALBANY NY 12BM )@@G@@222. @H@@@@. THIS CODE IS ALWAYS FRESHLY LOADED FROM MASS STORAGE BEFORBN )@@G@@E BEING EXECUTED. @H@@@@. AFTER EXECUTION THE CORE IT OCCUPIES IS USED ABO )@@G@@S AN I/O BUFFER BY 'GETPUTWD'.@[@@@@. @]@@@@$(2) LIT @]@@@@ BP )@@G@@ MNM$@#@@@@ DXDEF @#@@@@ RESDEF @#@@@@ NRSDBQ )@@G@@EF @]@@@@ LOC$@]@@@@ IF$ @]@@@@ RBJ$@[@@@@. BR )@@G@@@B@@@@CC $EQU 026 . PCT TAG. @D@@@@HDWBK $EQUF 00BS )@@G@@0014,,U . BREAKPOINT CONTINGENCY.@C@@@@KBDBK $EQUF 020010,,U .BT )@@G@@ @@X C OCCURRED. @D@@@@ERERR$ $EQUF 030012,,U . ER ERR$ ENCOUNTERBU )@@G@@ED. @F@@@@RD$2AR $EQUF 020212,,U . 2ND ABNORMAL RETURN FROM READBV )@@G@@$. @F@@@@TD$2AR $EQUF 023712,,U . 2ND ABNORMAL RETURN FROM TREABW )@@G@@D$. @^@@@@IOPR $EQUF 01,,U @^@@@@IGDM $EQUF 02,,U @^@@@@BX )@@G@@IABT $EQUF 07,,U @^@@@@EMODE $EQUF 012,,U @^@@@@IO $EQUBY )@@G@@F 01,,U @^@@@@CONS $EQUF 05,,U @[@@@@. @E@@@@ETYPE $EQUBZ )@@G@@F CTPKT,,S1 . CELLS IN CONTINGENCY PACKET. @ @@@@ECODE $EQUF CTCA )@@G@@PKT,,S2 @ @@@@CTYPE $EQUF CTPKT,,S3 @ @@@@CTCODES $EQUF CTCB )@@G@@PKT,,H1 @ @@@@CTADDR $EQUF CTPKT,,H2 @ @@@@PKADDR $EQUF CTCC )@@G@@PKT+1,,H2 @[@@@@. @]@@@@CORBUF* . @]@@@@NONRES* . @F@@@@ CD )@@G@@ L,U A0,CORBUF . INITIALLY USE THESE FIRST 28 WORDS @^@@@@ CE )@@G@@ LXI,U A0,28 @E@@@@ S A0,CACW . AS I/O BUFFER FOCF )@@G@@R GETPUTWD. @[@@@@/. @H@@@@ IF CTPKT IS NONZ . THEN CONTINCG )@@G@@GENCY ACTUALLY OCCURRED (NOT @DX,N).@[@@@@. @G@@@@ LM CH )@@G@@A0,EXADDR . REPLACE CTADDR WITH ORIGINAL ADDRESS IF @I@@@@ IFCI )@@G@@ RESEND,D,U LE A0, /S A0,CTADDR . STEPPING OR SERVICING BREAKPOINT. CJ )@@G@@@H@@@@ IF 1,,U EQ A0, /SZ CTADDR . DISCARD CTNCY ADDR IF INSTR CK )@@G@@WAS '>EX'D. @[@@@@. @G@@@@ L A2,CTCODES . ERROR TYPE,CL )@@G@@ ERROR CODE, CONTINGENCY TYPE.@D@@@@ L A3,CTADDR . CONTICM )@@G@@NGENCY ADDRESS. @[@@@@. @E@@@@ IF KBDBK EQ A2, /J ATATXC CN )@@G@@. ESCAPE IF '@@X C'. @F@@@@ IF HDWBK EQ A2, /J UBRKPT . OR ICO )@@G@@F HARDWARE BREAKPOINT. @[@@@@. @G@@@@ L A0,A3 .CP )@@G@@ ELSE, GET THE OFFENDING INSTRUCTION. @E@@@@ $AP($LCV)<27->CQ )@@G@@$DO!$NIL 27-$AP($LCV) , /NOP 0,0 @I@@@@ SLJ GETWD .CR )@@G@@ (AT LEAST 27 WDS MUST PRECEDE THIS INSTRUCTION.) @G@@@@ L CS )@@G@@ A4,A0 . [A2,A3,A4] = CODES, ADDRESS, INSTRUCTION.@[@@@@. CT )@@G@@@G@@@@ IF ERERR$ EQ A2 . THEN TERMINATION WAS DUE TO 'ER ERRCU )@@G@@$'. @E@@@@ IF (ER EXIT$) EQ A4 . THEN NORMAL TERMINATION. CV )@@G@@@C@@@@ E$MSG ('ER EXIT$&'L) . SAY SO @F@@@@ CW )@@G@@ SZ CTCODES . AND MARK NO STATUS TO REPORT. @E@@@@ CX )@@G@@ELSE . TERMINATION IS ABNORMAL. @H@@@@ IF (CY )@@G@@DX$BRK ) EQ A4, /J PBRKPT . ESCAPE IF PROGRAMMED BREAK. @H@@@@ CZ )@@G@@ IF (ER ERR$) NE A4, /J BRKPT . IF NO LONGER ER ERR$, IMPLANTED DA )@@G@@@I@@@@ ENDIF . NORMAL VS ABNORMAL TERMINATION. DB )@@G@@ \BREAK. @G@@@@ ENDIF . SPECIAL (NOT ORDIDC )@@G@@NARY) ER ERR$ HANDLING. @[@@@@/. @ @@@@ L A2,CTCODES DD )@@G@@@D@@@@ IF IOPR EQ A2 . THEN IOPR CONTINGENCY. @F@@@@ DE )@@G@@ AND,XU A4,-0177777 . MASK OUT U-FIELD OF INSTRUCTION.@E@@@@ DF )@@G@@ ANDIF (CIOPR ) EQ A5 . THEN IT'S A CODED IOPR. @D@@@@ DG )@@G@@ RBJ NCDC . ENCODE 'ERROR STOP #N' @F@@@@ SZ CTDH )@@G@@CODES . AND MARK NO STATUS TO REPORT. @#@@@@ ENDIF @[@@@@DI )@@G@@. @E@@@@ IF CTCODES IS NONZ . THEN REPORT TYPE AND CODE. DJ )@@G@@@H@@@@ RBJ NCDE . ENCODE CONTINGENCY TYPE, ERROR TYPEDK )@@G@@ AND CODE. @F@@@@ DL A0,CTPKT . SAVE CONTINGENCY PACKETDL )@@G@@ CONTENTS @D@@@@ DS A0,ERPKT . FOR ERRMSG COMMAND. DM )@@G@@@I@@@@ IF CTADDR IS NONZ, /LMJ X11,PRINT1 . START NEW LINE IFDN )@@G@@ ADDR PRESENT. @#@@@@ ENDIF @[@@@@. @E@@@@ IFDO )@@G@@ CTADDR IS NONZ . THEN ENCODE ERROR ADDRESS. @^@@@@ RBJ DP )@@G@@ NCDA@H@@@@ ANDIF CTCODES IS NONZ . THEN NEITHER ER EXIT$ NODQ )@@G@@R CODED IOPR. @E@@@@ RBJ NCDI . ENCODE OFFENDING DR )@@G@@INSTRUCTION.@ @@@@ L A0,CTYPE@G@@@@ IF EDS )@@G@@MODE EQ A0 . THEN CONTINGENCY TYPE 012 (ERROR MODE). @A@@@@ DT )@@G@@ L A0,ETYPE @H@@@@ IF IO EQ A0 OR CONS EQ A0,DU )@@G@@ /RBJ NCDP . ENCODE PKT ADDRESS. @^@@@@ ENDIF @D@@@@DV )@@G@@ RBJ NCDT . ENCODE ELAPSED TIME. @#@@@@ ENDW )@@G@@DIF @[@@@@. @E@@@@ E$FD '.' . TERMINATE IMAGE WDX )@@G@@ITH A PERIOD@C@@@@ LMJ X11,PRINT1 . AND PRINT IT. @F@@@@DY )@@G@@ IF CTADDR IS NONZ, /RBJ NCDJ . LIST JUMP STACK IF VALID.@H@@@@DZ )@@G@@ L A4,CTCODES . SEE IF 2ND ABNORMAL RTN FROM (T)READ$ OCCEA )@@G@@URRED.@E@@@@ IF RD$2AR EQ A4 OR TD$2AR EQ A4 . THEN IT DID. EB )@@G@@@H@@@@ E$MSG ('SECOND ABNORMAL RETURN FROM (A)&READ$ ENCOUNEC )@@G@@TERED.&') @ @@@@ L,U A2,'T' @A@@@@ IF TD$ED )@@G@@2AR EQ A4, /E$FD @#@@@@ E$MSGR@ @@@@ LMJ X11,EE )@@G@@PRINT1@E@@@@ P$RINT 'NO SUBSEQUENT DX COMMANDS ALLOWED.' EF )@@G@@@ @@@@ J EXEUNT @#@@@@ ENDIF @E@@@@ EG )@@G@@ LN,U A0,0 . ELSE, CLEAN UP EVERYTHING. @ @@@@ LXEH )@@G@@I,U A0,0202 @^@@@@ S A0,CTPKT@^@@@@ SZ EI )@@G@@IADDR @^@@@@ SZ STPCT @^@@@@ SZ BRKCT @G@@@@EJ )@@G@@ ENDIF . CASE OF ACTUAL CONTINGENCY (NOT @DX,N). EK )@@G@@@[@@@@. @^@@@@ LMJ A0,PSKIP@F@@@@ L A0,BUFSIEL )@@G@@ZE . NOW LET GETPUTWD HAVE THIS ENTIRE @E@@@@ S,H1 A0,CACW EM )@@G@@ . ELEMENT FOR AN I/O BUFFER. @G@@@@ SZ CBCONT .EN )@@G@@ DISCARD CURRENT (SMALL) BUFFER CONTENTS. @D@@@@ J REQ EO )@@G@@ . THEN GO AWAIT COMMAND. @[@@@@/. @E@@@@NCDC RMTBLK EP )@@G@@ . ENCODE CODED IOPR IN A4. @C@@@@ AND,U A4,0177777 .EQ )@@G@@ ISOLATE U-FIELD. @B@@@@ E$MSG ('ERROR STOP #&(&)&'L) @E@@@@ER )@@G@@ E$DECV A5 . ENCODE U-FIELD IN DECIMAL @#@@@@ ES )@@G@@ E$MSGR @C@@@@ E$OCTV A5 . AND IN OCTAL. @#@@@@ET )@@G@@ E$MSGR @#@@@@ RMTRTN @[@@@@. @[@@@@. @H@@@@EU )@@G@@NCDE RMTBLK . ENCODE CONTINGENCY TYPE, ERROR TYPE AND CEV )@@G@@ODE. @^@@@@ L A2,CTYPE@G@@@@ IF IABT GE A2 .EW )@@G@@ THEN CONTINGENCY IS IOPR, IGDM OR IABT. @E@@@@ IF IABT EQ A2,EX )@@G@@ /SZ A2 . RECODE IABT AS IOPR - 1. @F@@@@ AN A2,IGDM .EY )@@G@@ TREAT AS IF EMODE TYPE 0, -1 OR -2.@B@@@@ ANDIF A2 IS ZERO .EZ )@@G@@ THEN IGDM. @ @@@@ L A0,CTADDR @G@@@@ ANDIF FA )@@G@@(0,-0) EQ A0 . THEN ILLEGAL JUMP INTO RESIDENT DX. @G@@@@ FB )@@G@@ E$MSG ('ILLEGAL JUMP FROM UNKNOWN POINT IN PROGRAM '; @D@@@@ FC )@@G@@ 'TO LOCATION BELOW &') @A@@@@ E$OCFD )@@G@@TV RESEND,,U @F@@@@ SZ CTADDR . SUPPRESS FURTHER FE )@@G@@ERROR MESSAGES. @^@@@@ RMTRTN @E@@@@ ELSE FF )@@G@@ . NEITHER IABT, IGDM NOR IOPR. @D@@@@ L A2,ETYFG )@@G@@PE . GET ACTUAL EMODE TYPE. @#@@@@ ENDIF @G@@@@ E$FDFH )@@G@@1 ERRTYPE,A2 . ENCODE 'IOPR, 'IGDM', 'I/O', 'SYMB', ETC.@B@@@@ FI )@@G@@ E$MSG (' ERROR (CODE &)&'L) @D@@@@ E$OCTV ECODE .FJ )@@G@@ ENCODE ERROR CODE. @#@@@@ E$MSGR @#@@@@ RMTRTN FK )@@G@@@[@@@@. @F@@@@ 'IABT' . MNEMONICS FOR ERROR CONFL )@@G@@DITIONS. @#@@@@ 'IOPR' @#@@@@ERRTYPE 'IGDM' @#@@@@ FM )@@G@@ 'I/O' @#@@@@ 'SYMB' @#@@@@ 'ERR$' @]@@@@ FN )@@G@@ 'ER'@#@@@@ 'CONS' @#@@@@ 'CON2' @#@@@@ 'COMFO )@@G@@M' @#@@@@ 'REP' @[@@@@/. @G@@@@NCDA RMTBLK FP )@@G@@ . ENCODE RELATIVE AND ABSOLUTE ADDRESS. @A@@@@ E$MSG ('FQ )@@G@@ AT & (&)&'L) @^@@@@ E$OCTV CTADDR @#@@@@ E$MSGR FR )@@G@@@ @@@@ L A0,CTADDR @ @@@@ LMJ X11,NCDBAD FS )@@G@@@#@@@@ E$MSGR @#@@@@ RMTRTN @[@@@@. @[@@@@. FT )@@G@@@E@@@@NCDI RMTBLK . ENCODE INSTRUCTION IN A4. @ @@@@FU )@@G@@ E$MSG (' <&>&'L) @F@@@@ LMJ X11,SWMODE . SET WFV )@@G@@ORD MODE FOR J-DESIGNATOR. @^@@@@ L A0,A4 @D@@@@ FW )@@G@@ LMJ X11,EINS$B . ENCODE THE INSTRUCTION.@#@@@@ E$MSGR FX )@@G@@@#@@@@ RMTRTN @[@@@@. @[@@@@. @D@@@@NCDP RMTBLK FY )@@G@@ . ENCODE PACKET ADDRESS. @A@@@@ E$MSG (',&PKT AT &'LFZ )@@G@@) @C@@@@ LMJ X11,PRINT1 . START A NEW LINE.@#@@@@ GA )@@G@@ E$MSGR @D@@@@ E$OCTV PKADDR . ENCODE PACKET ADDRESS. GB )@@G@@@#@@@@ RMTRTN @[@@@@. @[@@@@. @D@@@@NCDT RMTBLK GC )@@G@@ . ENCODE ELAPSED TIME. @ @@@@ E$MSG ('.&.& SEC&'L)GD )@@G@@@C@@@@ LMJ X11,PRINT1 . START NEW LINE. @D@@@@ P$CTGE )@@G@@ CC,1,FTIME . GET PGM FINISH TIME. @C@@@@ L A0,FTIMEGF )@@G@@ . GET FINISH TIME. @D@@@@ AN A0,STIME . SUBTRACT STGG )@@G@@ART TIME. @C@@@@ DSL A0,36 . CONVERT TO MSEC. @^@@@@GH )@@G@@ DI,U A0,5 @D@@@@ DSL A0,36 . CONVERT TO GI )@@G@@SECONDS. @^@@@@ DI,U A0,01000@D@@@@ L A5,A1 GJ )@@G@@ . RESCUE FRACTIONAL PART.@D@@@@ E$DECV . ENCODGK )@@G@@E INTEGER PART. @#@@@@ E$MSGR @D@@@@ E$DCFZ 3,A5 GL )@@G@@ . ENCODE FRACTIONAL PART.@#@@@@ E$MSGR @#@@@@ RMTRGM )@@G@@TN @[@@@@/. @D@@@@NCDJ RMTBLK . ENCODE JUMP STACKGN )@@G@@. @H@@@@ IF U8FLAG IS NONZ, /RMTRTN . SINCE NO JUMP STACK HARGO )@@G@@DWARE AVAILABLE. @E@@@@ L,U A0,JHSTK . ELSE, CAPTURE THEGP )@@G@@ STACK. @D@@@@ L,U X4,4-1 . ASSUME STACK LENGTH 4. GQ )@@G@@@^@@@@ SNZ JHSTK @E@@@@ IF JHSTK IS NEG . THEN GR )@@G@@THIS IS AN 1100/80. @D@@@@ L,U X4,8-1 . STACK LENGTGS )@@G@@H IS 8. @^@@@@ LXI,U A0,8 @#@@@@ ENDIF @^@@@@GT )@@G@@ ER EDJS$ @[@@@@. @^@@@@ L X5,(1,0)@^@@@@GU )@@G@@ L X6,(1,0)@D@@@@L$(L$) L A0,JHSTK,X5 . GET ADDRESSGV )@@G@@ FROM STACK.@D@@@@ JZ A0,F$(2) . IF NONE, GO ON TO NEXT.GW )@@G@@@E@@@@ S A0,ABSADDR . ELSE, SAVE ABSOLUTE ADDRESS. @^@@@@GX )@@G@@ SSL A0,18 @B@@@@ S A0,BDI . SAVE BDI. GY )@@G@@@D@@@@ LMJ X11,FBN . LOOK UP BANK DATA. @G@@@@ GZ )@@G@@ LMJ X11,FREL . FIND CORRESPONDING RELATIVE ADDRESS. @F@@@@HA )@@G@@ JNZ A0,F$(2) . IF NO-FIND, MUST BE RESIDENT DX. @E@@@@HB )@@G@@ JMGI X6,F$(1) . ELSE, IF IT HASN'T BEEN SAID,@A@@@@ HC )@@G@@ P$RINT,2 'JUMP HISTORY:' @C@@@@L$(L$) E$OCTF 6,ABSADDR . ENCODHD )@@G@@E ABSOLUTE @ @@@@ E$MSG (' (&) <&>&'L)@E@@@@ LMJ X1HE )@@G@@1,NCDRAD . AND RELATIVE ADDRESSES. @#@@@@ E$MSGR @D@@@@HF )@@G@@ IF BNKFLG IS ZERO . THEN BANK NOT BASED. @D@@@@ E$HG )@@G@@MSG ('BANK ''&'' NOT CURRENTLY BASED>&')@C@@@@ E$FD2 BNKNM HH )@@G@@ . IF NOT, INFORM. @C@@@@ ELSE . BANK IS BASHI )@@G@@ED. @B@@@@ L A0,ABSADDR . IF SO, @C@@@@ SLHJ )@@G@@J GETWD . GET CONTENTS @ @@@@ LMJ X11,SWMODE HK )@@G@@@C@@@@ LMJ X11,EINS$B . AND ENCODE. @D@@@@ ENDIHL )@@G@@F . BANK BASED VS UNBASED. @#@@@@ E$MSGR @ @@@@HM )@@G@@ LMJ X11,PRINT1 @E@@@@L$(L$) TLEM,U X5,0,X4 . REPEAHN )@@G@@T WHILE ITEMS REMAIN. @^@@@@ J B$(3) @#@@@@ RMTRHO )@@G@@TN @G@@@@/. THE CONTENTS OF THE TWO CELLS 'EXADDR' AND 'NXTADDR' IN RHP )@@G@@ESIDENT DX @A@@@@. HAVE THE FOLLOWING SIGNIFICANCE: @[@@@@. @G@@@@HQ )@@G@@. ON ENTRY INTO 'EXEC', EXADDR'S MAGNITUDE IS THE ADDRESS OF THE IN- HR )@@G@@@G@@@@. STRUCTION TO BE EXECUTED. EXADDR IS NEGATIVE IF THE CALL IS DUEHS )@@G@@ TO A @C@@@@. BREAK; POSITIVE IF DUE TO A STEP COMMAND. @[@@@@. HT )@@G@@@F@@@@. ON EXITING FROM 'EXEC' (WHEREIN SEVERAL INSTRUCTIONS MAY HAVE HU )@@G@@@G@@@@. BEEN EXECUTED IN CASE OF 'STEP N'), EXADDR'S MAGNITUDE IS THE ADHV )@@G@@DRESS @H@@@@. OF THE LAST INSTRUCTION EXECUTED; NXTADDR'S MAGNITUDE THATHW )@@G@@ TO BE EXECU- @G@@@@. TED NEXT. NXTADDR IS NEGATIVE IF THE LAST INSHX )@@G@@TRUCTION ALTERED THE P- @F@@@@. REGISTER IN THE SENSE OF A SKIP OR JUMP;HY )@@G@@ POSITIVE OTHERWISE. @[@@@@. @F@@@@PBRKPT .HZ )@@G@@ SERVICE PROGRAMMED BREAKPOINT. @A@@@@ L,U A0,('PGMD BRK:IA )@@G@@ &'L) @D@@@@ L A4,BRKCT . IF COUNTING BREAKS, @E@@@@IB )@@G@@ JGD A4,BKLOOP . DECREMENT COUNT AND RESTART.@^@@@@ IC )@@G@@ J F$(1) @[@@@@. @C@@@@UBRKPT . SERVIID )@@G@@CE U-TRAP. @A@@@@ L,U A0,('TRAP: &'L) @^@@@@ J IE )@@G@@ F$(1) @[@@@@. @C@@@@ATATXC . SERVICE @@IF )@@G@@X C. @G@@@@ SZ CLTFLAG . TERMINATE INPUT FROM ANY COMMIG )@@G@@AND LIST. @ @@@@ C$SF '@BRKPT $DXC$'@B@@@@ L,U A0IH )@@G@@,('@@X C AFTER: &'L) @[@@@@. @E@@@@L$(L$) SN A3,EXADDR .II )@@G@@ SAVE BREAK OR TRAP ADDRESS. @^@@@@ A,U A3,1 @C@@@@ IJ )@@G@@ S A3,NXTADDR . SET NEXT ADDRESS.@F@@@@ J F$(1) IK )@@G@@ . GO REPORT BREAK, @@X C OR TRAP. @[@@@@. @]@@@@BRKPT . IL )@@G@@@D@@@@ SN A3,EXADDR . SAVE BREAK ADDRESS. @E@@@@ IM )@@G@@ SLJ EXEC . EXECUTE TRAPPED INSTRUCTION. @^@@@@ L IN )@@G@@ A4,BRKCT@C@@@@ JGD A4,BKLOOP . COUNTING BREAKS? @ @@@@IO )@@G@@ L,U A0,('BRK: &'L)@[@@@@. @C@@@@L$(L$) SM A3,BRKADIP )@@G@@DR . NO. GO REPORT. @#@@@@ E$MSG @G@@@@ L A0IQ )@@G@@,BUFSIZE . (LET GETPUTWD HAVE THIS ENTIRE ELEMENT @C@@@@ S,H1IR )@@G@@ A0,CACW . FOR I/O BUFFER.)@G@@@@ SZ CBCONT .IS )@@G@@ DISCARD CURRENT (SMALL) BUFFER CONTENTS. @^@@@@ J SVCBRK IT )@@G@@@[@@@@. @E@@@@BKLOOP S A4,BRKCT . YES. SAVE RESIDUAL COUNIU )@@G@@T. @C@@@@ LM A3,NXTADDR . RESUME RUN MODE. @^@@@@ IV )@@G@@ J RESTART @[@@@@/. @#@@@@JHSTK $RES 8 @#@@@@FTIME $RESIW )@@G@@ 1 @G@@@@CBUFL* $EQU ((('/\/\/\'))-$LCB)/28*28 . TRUE LENGTH OF TIX )@@G@@HIS ELEMENT,@F@@@@BUFSIZE +CBUFL . TRUNCATED TO SECTOR BOIY )@@G@@UNDARY. @[@@@@. @]@@@@ $END_@@@@@GETPUTWD HAVE THIS ENTIRIZ )@@G@@)@@[G*+^@]^@E]-@@-@^-@]@:8@@@[[^B@@@!8B@@@EKB@[O/K@@[)(@B@@@[@B@[>&;@@@WJA )@@G@@C8@@@@AA@@@@)@D[H]@ ]@ ]@^KL[@@@@@@@/S@@@@C@@@@J/K@@#3:8)@@G/K@@#5:8)]@CJB )@@G@@C^7@@@CC$@@@ ^B@@@AB@@@@)@M[W@@[]@G@C[@@@G'^@@@@/S@@@@/S@@@@/S@@@@/S@@@@JC )@@G@@/S@@@@/S@@@@/S@@@@/S@@@@/S@@@@AC@@@@)@X[GKO [KOC[^C@O [@@@@@:[@@^S/K@@@(JD )@@G@@ CB@@@/,0@@@C8@@^Q/K@@@>%[@@^P/K@@@(%8)#@EAD@@@@)@&[P[KO ]@^KL[KO^/K@@[>JE )@@G@@/K@@@1%[K@^U+.@0@@/K@@@1%8)@@[CC$@@@/K@@#.%[@@^T/K@@#\AE@@@@)@0[ ]@ ]@ [JF )@@G@@KOC@OC[OC@OC[)@@@@/,0@@@*^B@@@9*@@@89?B@@@/K@@[\/K@@@8(CB@@@ CB@@@AF@@@@JG )@@G@@)@8[H]@ [KOC@O [K)[^^@@@/K@@[ %8@@@EC?B@@@/K@@]Y/K@@[A(CB@@@/K@@]P/K@@[AJH )@@G@@(^B@@@AG@@@@)[[[H]@^^ [^C[4C[=C@K@@@*^B@@@/,0@@@')])@@C/)@@./K@@]?/K@@]>JI )@@G@@:8@@@ %8@@@[C4B@@@AH@@@@)[E[P[K)[[[KO ]@K@:9@]ZEC8)@@T/,0@@@C8@@^V/K@@[UJJ )@@G@@/K@@[K:9@]ZE%9@]]ECDB@@@/K@@#[AI@@@@)[O[ ]@X]@-]@T[K)DK)E@@@@@@@@@&;@@]]JK )@@G@@D8@@@@/KB@@@'=@@@@C@@@^%/,0@@@/,0@@@')])@@AJ@@@@)[W[ ]@ ]@[]@[]@[]@![K)@JL )@@G@@K)@@@@ @B@[<[CB@[>C@@@^O/\@@@@ SB@[R WB@[R @B@[O[@B@@@AK@@@@)[=[H]@0KOC[JM )@@G@@[]@5]@)K)I@@/,0@@@C@@@@L/,0@@@/,0@@@C@@@@L/,0@@@C8@@^:+9@J__/K@@@@AL@@@@JN )@@G@@)[![P]@-[K)[^^@KK@/K@@]]*@@@@IH8)@@] @@@@I:8)@@B/K@@][!8)@@CC?$@@@/K@@@0JO )@@G@@/,0@@@AM@@@@)[7[ ]@ [KO ]@L]@D]@9]@^@@@@@@ ^B@@@/,0@@@C8@@@@/,0@@@C8@@^\JP )@@G@@/K@@]]%@@@^,C^B@@@AN@@@@)[_[ [KOC@O ]@.[K)^K)[@@@@@@@@C0B@@@/,0@@@C8@@^'JQ )@@G@@/,0@@@C@I@]GC4$@@@/K@@]]/K@@@4AO@@@@)]B[P]@9]@-[@@@@@@ER ERR$ SYMB JR )@@G@@I/O IGDM IOPR IABT /K@@@4/,0@@@/,0@@@AP@@@@)]L[G@KOC[^C@OC#=C]@@@@@JS )@@G@@/,0@@@/,0@@@C^B@@@/,0@@@C8@@^.REP COMM CON2 CONS AQ@@@@)]U[ ]@ ][[]JT )@@G@@@-[KOC[^C^K@@@@@@@C@@@@K/,0@@@/,0@@@C8@@^_/K@@@;/,0@@@/,0@@@C^B@@@AR@@@@JU )@@G@@)]+[ ][D]@-[KOC[^C[=C]^C@K@@@@C^B@@[/,0@@@/,0@@@/,0@@@C8@@ @/K@@@"/,0@@@JV )@@G@@/,0@@@AS@@@@)]%[H]@9[KOC[^C[=^^C^0@@'=@@@@&;K@@[C8K@@QC8@@^N/,0@@@/,0@@@JW )@@G@@C8@@ ]/K@@[ /,0@@@AT@@@@)]3[P[K)@@[]@5]@)@C@@@@L/,0@@@/,0@@@C[K@@HW8@@C@JX )@@G@@;G@@@=W8@@@ ;G@@@=H@B@@)C@@@^NAU@@@@)].[GK)OK)CKOC@^^*+]@@@@ @K@^FR9@@@#JY )@@G@@C8@@^F/K@@[F*?B@[N/K@@[A/,0@@@/,0@@@C8K@@#AV@@@@)#A[H[KKK)PKO [KK@@@@@@@JZ )@@G@@/@@@#?C@ @^FR[)@ ^R[K@ ^'=@@@@&;@@@CR9@@@B/K@@#E1@@@^FAW@@@@)#J[ ]@OK) KKA )@@G@@)QK)RKO [@@@@@@@@@C@@@ C/()@#S/^@@#?/,0@@@/,0@@@[W@@[@;C@@@M[C@@[BAX@@@@KB )@@G@@)#R[ ]@>]@OK)SKOC[^CAOC]@@@@@@/,0@@@/,0@@@/,0@@@C8@@ D/,0@@@C8K@@ACC@@[BKC )@@G@@'=@@@@AY@@@@)#Z[ ]@P[KOC[^C[OCA= ]@O@@@@@@CC@@[B/K@@#%/,0@@@9?@@@./,0@@@KD )@@G@@C8@@ F/K@@#&*?@@[@AZ@@@@)#$[ ]@H][ ][D]@-]@SKO^@@@@@@@/K@@[F/K@@#H$9O@@@KE )@@G@@/,0@@@/,0@@@/,0@@@/,0@@@'^@@@@BA@@@@)#\[G**K@CE]OO ]@[[K)V@@'=@@@@C@@@ QKF )@@G@@ )B@[P/K@@#9C8@@ M/K@@#98^@@^CCTB@[RC8@@ KBB@@@@)#8[^**K@]^@]]-@@-@8-@@@KG )@@G@@@@@@@@CTB@[R'^B@@@]K7@[O/K@@^][G7@[OG80@@[]K7@[OC8@@ RBC@@@@)^@[ [EE^@%^KH )@@G@@@+]-@@-@@-@'@@@@@@/K@@@@ @B@[<[CB@[>C@@@^O/,0@@@#^0@@;C8@@ U8^@@^CBD@@@@KI )@@G@@)^C@X]@[]@[][8@@@@)^O@?K)Z[]]@'$)@@@T$& ER EXI'=@@@@@@@@ K/KB@@@EG7@[OKJ )@@G@@[TB@[RBE@@@@)^T[X]]@@@@@D.& UNTERE$ ENCO)&READROM (ATURN FMAL RE ABNORKK )@@G@@SECOND@%)@@@'=@@@@BF@@@@)^=[W@@*)@@@@@@___&(&)& STOP #ERROR @[A@^=WED. KL )@@G@@S ALLOOMMANDT DX CSEQUENNO SUBBG@@@@)^\[W@@@@@@@ & BELOWCATION TO LOKM )@@G@@ROGRAMT IN PN POINUNKNOW FROM L JUMPILLEGABH@@@@)^'[W@@@@@@@@@[@@@EC& KN )@@G@@.&.& SAT & ,&PKT <&>& (&)& AT & &)& (CODE ERRORBI@@@@) [W@*)@@@@KO )@@G@@ASED>&NTLY B CURRE&' NOTBANK '&>& (&) <@]#@ : ISTORYJUMP HBJ@@@@KP )@@G@@) K[W@@*)@@@BRK: & & AFTER:@@X C @@]@ O $DXC$@BRKPT& TRAP: RK: & KQ )@@G@@PGMD BBK@@@@) V@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KR )@@G@@@@@@@@@@@@@@/\/\/\BL@@@@@@^@@#@@B@@-@[D@@#@[P@@@@@E@@@@@@@@@@@@@ WRESDATKS )@@G@@A CTPKT RESEND GETWD EMSG$ NRSDATA PRINT1KT )@@G@@ EDIT$T EMSGR$ PRINT$ EXEUNT PSKIP REQ KU )@@G@@ EDECV$ EOCTV$ EFD1$ NCDBAD SWMODE EINS$BKV )@@G@@ PCT$ EDCFZ$ EDJS$ FBN FREL EOCTF$KW )@@G@@ NCDRAD EFD2$ CSF$ EXEC SVCBRK RESTARKX )@@G@@T EXIT$ ERR$ CBUFL @C@@@@@@@@ KCORBUF @@]@@@KY )@@G@@@@@@@@NONRES @@]@@@@@@@@@@@@]< #SA@@@]< #SA@@@][PRINT ][ADDR] [WC] [FMT] LH )@@G@@@[@@@@. @C@@@@. CHANGE CORE OR REGISTER CONTENTS. FORMAT: @ @@@@LI )@@G@@. >CHANGE [ADDR [WC] [FMT]] @[@@@@. @G@@@@IPRINT* . LJ )@@G@@ . ENTER HERE FOR IMPLIED PRINT COMMAND. @^@@@@ L,U CDLK )@@G@@,'PRI'@F@@@@ SZ THSITM . BACK UP POINTER TO START OF ILL )@@G@@MAGE. @]@@@@ S$T @[@@@@. @]@@@@PRINT* . @]@@@@CHANGE* . LM )@@G@@@D@@@@ LMJ X11,DCDAD . DECODE ANY SPEC GIVEN. @D@@@@ LN )@@G@@ J STXERR . SYNTAX ERROR RETURN. @D@@@@ J LO )@@G@@ADRERR . NO-SUCH-ADDRESS RETURN.@C@@@@ LXM IX,SPCADDR .LP )@@G@@ GET ADDRESS. @I@@@@ IF 0,IX,U IS ZERO, /LXM IX,ABSADDR . IF LQ )@@G@@NONE, USE LAST PREVIOUS ADDRESS. @B@@@@ L,U A4,0,IX .LR )@@G@@ [A4] = FWA.@C@@@@ ANU,U A4,1 . [A5] = FWA - 1. @H@@@@LS )@@G@@ LMJ X11,WCFMT . DECODE ANY WORD COUNT, FORMAT SPECIFICATILT )@@G@@ONS. @F@@@@ S A0,A6 . SAVE ANY SPECIFIED WORD COUNTLU )@@G@@. @E@@@@ S A1,X9 . SAVE ANY SPECIFIED FORMAT. LV )@@G@@@D@@@@/ IF REGFLAG IS ZERO . THEN MAIN STORAGE. @E@@@@ LW )@@G@@ IF BNKFLG IS ZERO, /ERROR *4 . IS BANK BASED? @E@@@@ IFLX )@@G@@ SLTP$ IS NEG, /ERROR *5 . IS SEGMENT LOADED? @E@@@@ IF 'PRI'LY )@@G@@,,U EQ CD AND WCTFLAG IS ZERO, /L A6,WRDCT@B@@@@ IF FMTFLAG IS LZ )@@G@@ZERO, /L X9,NCDFMT@D@@@@ A A5,A6 . [A4,A5] = CORE FWMA )@@G@@A,LWA.@D@@@@ L,U A0,0,IX . CHECK ADDRESS RANGE. @^@@@@MB )@@G@@ LXI A0,A6 @^@@@@ ER BANK$ @C@@@@ IFMC )@@G@@ A0 IS ZERO, /ERROR *1 . ADDRESS OK?@E@@@@ IF 'PRI',,U EQ CD .MD )@@G@@ YES. IF COMMAND WAS 'PRINT', @F@@@@ S A6,WRDCT . SAVEME )@@G@@ ANY SPECIFIED WORD COUNT @E@@@@ S X9,NCDFMT . ANDMF )@@G@@ ANY SPECIFIED FORMAT. @F@@@@ SZ A7 . MARK NO ELEMG )@@G@@MENT NAME/LC PRINTED. @#@@@@ ENDIF @[@@@@. @C@@@@ MH )@@G@@ ELSE . ADDRESS IS GRS. @[@@@@. @D@@@@ A MI )@@G@@ A5,A6 . [A4,A5] = GRS FWA,LWA. @D@@@@. IF R1 > FWA AND A17 < MJ )@@G@@LWA, INSERT A17-R1 OFFSET. @E@@@@ IF R1,,U GT A4 AND A17,,U MK )@@G@@LT A5, /A,U A5,R1-A17-1 @F@@@@ IF R15,,U LT A5, /L,U A5,R15 . DML )@@G@@ON'T RUN OFF END OF GRS.@]@@@@GRS . @D@@@@ SZ A6 MM )@@G@@ . [A4,A5,A6] = FWA,LWA,0.@D@@@@ IF X11,,U GE A4 . THEN MN )@@G@@FWA AN X-REGISTER.@H@@@@ IF X11,,U LT A5, /L A6,(A0,X11) . YEMO )@@G@@S. IF SO IS LWA, SET RPT-FWA, @I@@@@ ELSEIF A17,,U GE A4 . THENMP )@@G@@ FWA AN A-REGISTER. \THIS-LWA. @H@@@@ IF A17MQ )@@G@@,,U LT A5, /L A6,(R1,A17) . YES. IF SO IS LWA, SET RPT-FWA, @I@@@@ MR )@@G@@ ENDIF . \THIS-LWMS )@@G@@A. @E@@@@ IF A6 IS NONZ . THEN REPEAT WILL BE REQUIRED.MT )@@G@@@E@@@@ DSC A5,18 . [A6] = ORIGINAL LWA, RPT-FWA.@E@@@@MU )@@G@@ SSL A5,18 . [A5] = LWA FOR THIS PASS. @#@@@@ MV )@@G@@ ENDIF @D@@@@ ENDIF . MAIN STORAGE VS GRS. MW )@@G@@@]@@@@/PROCESS . @D@@@@ L,U A0,0,IX . GET ABSOLUTE ADDRMX )@@G@@ESS. @E@@@@ LMJ X11,REGMNEM . LOOK UP REGISTER MNEMONIC. MY )@@G@@@E@@@@ SZ A0 . (RETURN HERE IF NOT GRS.) @D@@@@MZ )@@G@@ IF A0 IS NONZ . THEN IT'S A REGISTER. @C@@@@ E$NA )@@G@@FD1 . ENCODE MNEMONIC @F@@@@ LXM,U X2,3 .NB )@@G@@ AND SET EDIT$ POINTER TO COLUMN 3.@D@@@@ ELSE .NC )@@G@@ IT'S MAIN STORAGE. @[@@@@. @D@@@@ S IX,ABSADDR .ND )@@G@@ SET ABSOLUTE ADDRESS @G@@@@ LMJ X11,FREL . AND FIND CNE )@@G@@ORRESPONDING RELATIVE ADDRESS.@C@@@@ IF A0 IS NONZ . THEN NF )@@G@@NO-FIND. @D@@@@ SZ SEGNM . CLEAR OUT SEGMENT NAME NG )@@G@@@C@@@@ LMJ X11,FREL . AND TRY AGAIN. @D@@@@ NH )@@G@@JNZ A0,ADRERR . IF NO-FIND, GIVE UP. @#@@@@ ENDIF @I@@@@NI )@@G@@ IF LCTPTR NE A7 . THEN ELEMENT AND/OR LC DIFFERENT FROM PRENJ )@@G@@V LINE. @D@@@@ E$FD2 ELTNM . ENCODE ELEMENT NAME, NK )@@G@@@^@@@@ E$FD '.' @D@@@@ E$OCTV LC . LOCANL )@@G@@TION COUNTER. @ @@@@ LMJ X11,PRINT1@E@@@@ NM )@@G@@L A7,LCTPTR . REMEMBER SAME FOR THIS LINE.@#@@@@ ENDIF NN )@@G@@@E@@@@ E$OCTF 6,0,IX,U . ENCODE ABSOLUTE ADDRESS. @#@@@@NO )@@G@@ E$SP @C@@@@ L A0,ELTNM . GET ELEMENT NAME.NP )@@G@@@F@@@@ IF ('*ABS*'L) EQ A0 . THEN BEYOND LAST ELEMENT IN BANK. NQ )@@G@@@H@@@@ E$FD1 . ENCODE '*ABS*' INSTEAD OF RELATIVENR )@@G@@ ADDRESS. @#@@@@ ELSE @G@@@@ E$OCTF 5,RELADDR NS )@@G@@. OTHERWISE, ENCODE RELATIVE ADDRESS. @#@@@@ ENDIF @D@@@@NT )@@G@@ ENDIF . GRS VS MASS STORAGE. @D@@@@ E$SPNU )@@G@@ . FINISH UP WITH A SPACE.@ @@@@ IF 'PRI',,U EQ CNV )@@G@@D @^@@@@ RBJ PRT @]@@@@ ELSE@^@@@@ RBNW )@@G@@J CHG @#@@@@ ENDIF @E@@@@ IF 0,IX,U LE A5, /J PRNX )@@G@@OCESS . CONTINUE IF MORE DATA.@[@@@@. @H@@@@ IF REGFLAG IS ZENY )@@G@@RO OR A6 IS ZERO, /J REQ . DONE UNLESS REGISTER GAP @I@@@@ DSL NZ )@@G@@ A4,72 . \ TO BE SPANNED. OA )@@G@@@^@@@@ DSC A5,18 @C@@@@ LDSL A4,18 . [A4] OB )@@G@@= NEW FWA, @D@@@@ LDSL A5,36 . [A5] = ORIGINAL LWA. OC )@@G@@@D@@@@ LXM IX,A4 . SET ADDRESS POINTER. @B@@@@ OD )@@G@@ J GRS . GO PROCESS.@F@@@@/PRT RMTBLK .OE )@@G@@ COME HERE TO PRINT A LINE OF DATA. @B@@@@ L A0,A5 .OF )@@G@@ [A0] = LWA.@^@@@@ AN,U A0,0,IX @C@@@@ L,U R1,0,A0 OG )@@G@@ . REMAINING WC-1. @E@@@@ L,U A0,0,IX . GET FIRST ROH )@@G@@EMAINING WORD. @^@@@@ SLJ GETWD @B@@@@ L R2OI )@@G@@,A0 . HOLD IN R2.@D@@@@ L A1,IX . SET SEARCH OJ )@@G@@POINTER. @F@@@@ L,U A0,0,*A1 . GET A WORD AND BUMP THEOK )@@G@@ POINTER. @^@@@@ SLJ GETWD @F@@@@ IF R2 EQ A0, /JGOL )@@G@@D R1,$-2 . REPEAT IF SAME AS FIRST WORD. @H@@@@ AN A1,IX OM )@@G@@ . (NUMBER OF IDENTICAL DATA)+1 (+0 IF R1<0). @F@@@@ IF RON )@@G@@1 IS POS . UNLESS END OF BLOCK ENCOUNTERED, @E@@@@ ANOO )@@G@@,U A1,1 . NUMBER OF IDENTICAL DATA. @F@@@@ DSA OP )@@G@@A1,36 . TRUNCATE TO INTEGRAL LINES' WORTH. @^@@@@ DI OQ )@@G@@A1,WPL@^@@@@ MSI A1,WPL@#@@@@ ENDIF @F@@@@ OR )@@G@@ IF 3,,U LE A1 . THEN AT LEAST 3 REPEATED DATA. @C@@@@ OS )@@G@@ A IX,A1 . ADJUST POINTER. @#@@@@ E$SP @F@@@@OT )@@G@@ E$OCTV A1 . ENCODE REPEAT COUNT AND WORD VALUE.@A@@@@OU )@@G@@ E$MSG (' WORDS OF &'L) @^@@@@ L A0,R2 @^@@@@OV )@@G@@ SZ R2 @ @@@@ LMJ X11,NCDW0 @D@@@@ OW )@@G@@ ELSE . ENCODE DATA NORMALLY. @D@@@@ L OX )@@G@@R2,WPL . SET LINE WORD COUNTER. @E@@@@ J F$(2) .OY )@@G@@ WHILE ROOM REMAINS ON LINE: @B@@@@L$(L$) L,U A0,0,*IX . GET DOZ )@@G@@ATUM. @^@@@@ SLJ GETWD @B@@@@ LMJ X11,NCDW .PA )@@G@@ ENCODE IT. @H@@@@L$(L$) IF 0,IX,U LE A5, /JGD R2,B$(1) . REPEAT UNLEPB )@@G@@SS END OF DATA OR LINE. @#@@@@ ENDIF @G@@@@ LMJ X1PC )@@G@@1,PRINT1 . THEN PRINT THE LINE AND CLEAR THE BUFFER.@#@@@@ RMTRPD )@@G@@TN @E@@@@/CHG RMTBLK . COME HERE TO ALTER A WORD. PE )@@G@@@C@@@@ L,U A0,0,*IX . GET THE WORD. @^@@@@ SLJ PF )@@G@@ GETWD @G@@@@ LMJ X11,NCDW . ENCODE ACCORDING TO SPEPG )@@G@@CIFIED FORMAT. @D@@@@ LMJ X10,TREAD . SOLICIT NEW VALUEPH )@@G@@. @D@@@@ RMTRTN . IF NONE, WORD DONE. @[@@@@PI )@@G@@. @A@@@@ L,H1 A1,RD$BUF . ELSE,@F@@@@ IF 1,,U EQPJ )@@G@@ A0 AND '^ ',,U EQ A1 . THEN RESPONSE JUST '^'.@F@@@@ IF RELADPK )@@G@@DR IS ZERO, /ERROR 0 . AT BEGINNING OF ELEMENT? @F@@@@ AN,U PL )@@G@@IX,2 . BACK UP POINTER TO PRECEDING WORD @D@@@@ RMTRTN PM )@@G@@ . AND GO PROCESS IT. @F@@@@ ELSE .PN )@@G@@ NORMAL RESPONSE (VALUE) GIVEN. @C@@@@ S$CAN SCPKT .PO )@@G@@ SCAN RESPONSE. @C@@@@ LMJ X11,DCDWORD . DECODE VALUE. PP )@@G@@@D@@@@ J F$(1) . SYNTAX ERROR FOUND. @B@@@@ PQ )@@G@@ L A3,A0 . VALUE OK. @^@@@@ SLJ PUTWD @#@@@@PR )@@G@@ RMTRTN @[@@@@. @E@@@@L$(L$) LMJ X11,SXERSUB . IF SPS )@@G@@YNTAX ERROR, SHOW WHERE.@E@@@@ AN,U IX,1 . THEN BACK UPT )@@G@@P WORD POINTER @D@@@@ RMTRTN . AND ALLOW ANOTHEPU )@@G@@R TRY.@F@@@@ ENDIF . BACKUP ('^') VS NORMAL RESPONPV )@@G@@SE. @[@@@@. @[@@@@. @^@@@@ ERRORS LOCAL @H@@@@ PW )@@G@@ NERMSG 'BACKSPACE THROUGH START OF LOCATION COUNTER NOT ALLOWED.' PX )@@G@@@^@@@@ ERRORS END @[@@@@. @]@@@@ $END___ PY )@@G@@ ERRORS END @[@@@@. @]@@@@ $END___ ERRORS LOCAL PZ )@@G@@)@@@Q[*()]@@)@@@2^C@^C@OC@=C@0/K@@@@/K@@@@/,0@@@/,0@@@ C^@@ C;0PRI@@[@@@QA )@@G@@PRINT AA@@@@)@A[F]@KK)^[]@O^C[@@@@@@**@@@/[@K@@D[@@@@M/,0@@@L9@@@[C9C@@@QB )@@G@@QE@@[B(8C@@@QE@@@;AB@@@@)@J[#@K)^K)AK)^K)A^[]@K@@@@@@@(=@@@//K@@@S%;0PRIQC )@@G@@' KK@@0@@K[#' @K@@(?@@[@/K@@@&AC@@@@)@R[F]@X]@L]@W[]@)K)A@@@'^KK@@(@@@@GQD )@@G@@'=@@@@&#@@@MC8C@@@G[K@@MR6R@[P()@@@/CP$@[RAD@@@@)@)[MK^C[4C[1@[@@@!9K@@YQE )@@G@@/K@@@:!9@@[[G[K@@M/K@@@; @@@@NA6R@[P[P$@[R/K@@@>%;0PRIAE@@@@)@%[M@^@K0@KQF )@@G@@@@@@@@!9@@@Y/K@@@7C[)@@@!9K@@G/K@@@3!9@@@G @@@@MC9K@[J!9K@[KG9K@@@^CA=[][?K]&@@@@@[E@@ /K@@[*P'@@@[/,0@@@/K@@[*'^@@@@QW )@@G@@C@0@@G/K@@]0/,0@@@AT@@@@)]4@N][1@@@@)@@@8@@@@@@@ACE THBACKSP OF & WORDSQX )@@G@@*ABS* @[[@@X@@G@@F@@G@]3@@@@@@AU@@@@)@B[@@@@@@@@@@@@@@@@@@@@@@@@@@D. QY )@@G@@ALLOWER NOT COUNTEATION OF LOCSTART ROUGH AV@@@@@@^@@I@@M@@X@[G@@#@[S@@@QZ )@@G@@@@E@@J@@@@]6)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@RA )@@G@@)@@@@@@@@@@]STHIS$ DCDAD STXERR ADRERR NRSDATA RB )@@G@@WCFMT GLBERR RESDATA BANK$ REGMNEM EFD1$ RC )@@G@@FREL EFD2$ EDIT$T EOCTV$ PRINT1 EOCTF$ RD )@@G@@REQ GETWD FMTTAB EMSG$ NCDW0 NCDW RE )@@G@@TREAD SCAN$ DCDWORD PUTWD SXERSUB SVCERR RF )@@G@@CHANGE @@[@@@@@@@@#IPRINT @@[@@@@@@@@@PRINT @@[@@@@@@@@#RG )@@G@@@^@)@@@[@@@@@@@@@@@@@@@@CSJ@@?@@@@@@@@@@M@@@@@>=@@@@'G@@@@@@@@@@@@@@@@@@RH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RI )@@G@@*[S@@@*SDFF*@E@@@@. COPYRIGHT 1979, B. E. CHI, SUNY-ALBANY, ALBANY NY 12RJ )@@G@@222. @D@@@@. COMMENTS MARKED '*' HAVE ADDRESSES FILLED IN BY @DX.@]@@@@RK )@@G@@ MNM$@#@@@@ DXDEF @]@@@@ LOC$@]@@@@ IF$ RL )@@G@@@[@@@@. @A@@@@. SELECTED CONTINGENCY STATUS CODES.@D@@@@CNSINT $EQURM )@@G@@F 010010,,U . CONSOLE INTERRUPT. @E@@@@ATATXC $EQUF 020010,,RN )@@G@@U . KEYBOARD INTERRUPT (@@X C). @D@@@@MAXPGS $EQUF 024112,,U .RO )@@G@@ MAX PAGES EXCEEDED. @[@@@@. @G@@@@. THIS ELEMENT MAY CONTAIN NO RP )@@G@@LITERALS. MOREOVER, SINCE IT NORMALLY RE-@G@@@@. SIDES IN BLOCK 0, THE RQ )@@G@@FIRST 0200 WORDS LIE IN HIDDEN STORAGE, REQUIR- @G@@@@. ING THAT THEY BERR )@@G@@ FREE FROM EXECUTIVE REQUESTS, TARGETS OF LOADS AND @C@@@@. STORES, SLRS )@@G@@J ENTRY POINTS, AND I/O BUFFERS. @[@@@@. @G@@@@. THE LABEL ON AN RT )@@G@@'ENTRY' LINE WILL BE EQUATED TO THE CURRENT $LCV, BUT @C@@@@. ALSO BE EXRU )@@G@@TERNALIZED WITHOUT ITS LC BASING. @[@@@@. @^@@@@P $PROC *1RV )@@G@@,0 @#@@@@ENTRY* $NAME . @B@@@@ $INFO 6 $LF(1)(0),$AP($LCRW )@@G@@V) @]@@@@ $END@[@@@@. @[@@@@. @G@@@@. THE FOLLOWING PRRX )@@G@@OCEDURE IS USED TO RESET THE CURRENT LOCATION COUNTER @A@@@@. TO THE SPERY )@@G@@CIFIED RELATIVE ADDRESS.@[@@@@. @#@@@@P $PROC *1@#@@@@LOC* RZ )@@G@@ $NAME @ @@@@ $RES P(1,1)-$LCV @]@@@@ $END@[@@@@SA )@@G@@/. @]@@@@$(0) . @#@@@@RES ENTRY . @]@@@@UCTNCY . @B@@@@SB )@@G@@ DS A0,AREGS . SAVE A0,A1.@B@@@@ L,H1 A0,CTPKTSC )@@G@@ . GET STATUS.@D@@@@ IF MAXPGS EQ A0 OR CNSINT EQ A0, /J IGNOSD )@@G@@RE @C@@@@ DL A0,AREGS . RESTORE A0,A1. @D@@@@ SE )@@G@@ SLJ SAVEU . SAVE USER ENVIRONMENT. @F@@@@ IF BKPFLAGSF )@@G@@ IS NONZ, /LMJ X10,EXTRACT . REMOVE BREAKPOINTS.@G@@@@ IF CTPKT,,SG )@@G@@XH2 IS NONZ . THEN CONTINGENCY ACTUALLY OCCURRED. @G@@@@ L,SH )@@G@@H2 A0,CTPKT . GET ADDRESS OF LAST INSTRUCTION EXECUTED.@E@@@@ SI )@@G@@ L A1,0,A0 . THEN GET THE INSTRUCTION. @E@@@@ ANSJ )@@G@@DIF DXLOAD$ EQ A1 . THEN A SEGMENT LOAD REQUEST.@F@@@@ L SK )@@G@@ A3,AREGS+1 . GET ADDRESS TO GO TO AFTER LOAD$.@G@@@@ IF A3 SL )@@G@@IS ZERO, /L,U A3,1,A0 . IF NONE, CONTINUE INLINE. @D@@@@ SM )@@G@@L A0,AREGS . GET SEGMENT POINTER. @C@@@@ L,U A1,SSN )@@G@@TART . GO TO 'START' @F@@@@ J ERLOAD$ . AFTER LOADSO )@@G@@ING SPECIFIED SEGMENT. @#@@@@ ENDIF @F@@@@ LMJ A1SP )@@G@@,PRTON . NOT A SEGMENT LOAD. ENABLE PRINT$. @D@@@@CLOSE . SQ )@@G@@ . (COME HERE IF @DX,N.) @C@@@@ LMJ X11,SWAPOUT .SR )@@G@@ SWAP OUT USER. @E@@@@ J NONRES+RESEND-RES,D . ENTER NONRSS )@@G@@ESIDENT DX. @[@@@@/. @E@@@@. SAVE OR RESTORE X4-A17, R2-R15. CALLED ST )@@G@@BY SAVEU, RESTU. @[@@@@. @#@@@@XFREGS . [X1] @ @@@@ L,U SU )@@G@@ X2,XREGS+3 @^@@@@ LXI,U X2,1 @^@@@@ L,U X3SV )@@G@@,X4 @^@@@@ LXI,U X3,1 @ @@@@ L,U R1,A15+2-X3 SW )@@G@@@^@@@@ EX 0,X1 @ @@@@ LXM,U X2,RREGS+1 @^@@@@SX )@@G@@ LXM,U X3,R1+1 @ @@@@ L,U R1,R15-R1 @^@@@@ SY )@@G@@ EX 0,X1 @^@@@@ J 1,X1 @[@@@@. @[@@@@. SZ )@@G@@@[@@@@. @H@@@@RESFIND ENTRY . [X10] . COME HERE TO PERFORM SETA )@@G@@ARCH FOR 'FIND' COMMAND.@C@@@@ LMJ X11,SWAPIN . LOAD USER CTB )@@G@@ORE. @D@@@@ L R1,FINDWC . SET SEARCH WORD COUNT, @C@@@@TC )@@G@@ L R2,FINDMSK . SEARCH MASK, @D@@@@ L A1TD )@@G@@,FINDVAL . AND SEARCH VALUE. @C@@@@ MSE A1,0,*IX .TE )@@G@@ SEARCH FOR VALUE.@F@@@@ LXM,U IX,0 . IF NO-FIND, CLEARTF )@@G@@ SEARCH POINTER. @H@@@@ IF 0,IX,U IS NONZ, /S R1,FINDWC . ELSE, TG )@@G@@SAVE RESIDUAL WORD COUNT. @D@@@@ LMJ X11,SWAPOUT . LOAD TH )@@G@@NONRESIDENT DX. @^@@@@ J 0,X10 @G@@@@/. IMPLANT BREAKPOTI )@@G@@INTS INTO OR EXTRACT BREAKPOINTS FROM CODE. CALL: @A@@@@. LMJ TJ )@@G@@ X10,IMPLANT/EXTRACT @^@@@@. @[@@@@. @F@@@@TK )@@G@@. 2-WORD BREAKPOINT LIST ITEMS ARE AS FOLLOWS: IF [WORD 0] = -0, @F@@@@TL )@@G@@. IGNORE ENTIRELY. ELSE, BITS 17-0 OF WORD 0 GIVE THE ADDRESS OF @F@@@@TM )@@G@@. THE BREAKPOINT, BITS 34-18 POINT TO ANY SLT$ ITEM APPLICABLE TO @F@@@@TN )@@G@@. THIS ADDRESS (0 IF NO SLT). BIT 35, IF ON, INDICATES THAT THIS @F@@@@TO )@@G@@. BREAKPOINT SHOULD BE DELETED THE NEXT TIME IT IS EXTRACTED. THE@F@@@@TP )@@G@@. INSTRUCTION AT THE BREAKPOINT ADDRESS IS SAVED IN WORD 1 OF THE @]@@@@TQ )@@G@@. ITEM. @[@@@@. @#@@@@SWPBKP . [X11] @G@@@@ S A0TR )@@G@@,BKPFLAG . SET OR CLEAR BREAKPOINTS-IMPLANTED FLAG. @F@@@@ DL TS )@@G@@ A2,SWPPTRS . [A2] = +2,BRKLIST-2; [A3] = DX$BRK.@D@@@@ LN,UTT )@@G@@ A4,0 . [A4] = -0 THROUGHOUT. @F@@@@ L,U R1,BRKLGTU )@@G@@H . MAXIMUM NUMBER OF BREAKPOINTS. @]@@@@L$(L$) . @E@@@@ TV )@@G@@ SNE A4,2,*A2 . FIND NEXT BREAKPOINT IN LIST.@D@@@@ J TW )@@G@@ 0,X10 . IF NONE REMAIN, RETURN.@C@@@@ L,H1 A0,0,A2 TX )@@G@@ . GET SLT$ POINTER.@E@@@@ AND,U A0,1*/17-1 . DISCARD ANYTY )@@G@@ DELETE FLAG. @D@@@@ L,H2 A0,0,A2 . GET BREAKPOINT ADTZ )@@G@@DRESS.@H@@@@ IF A1 IS ZERO OR 0,A1 IS POS, /J 0,X11 . IF IN ACTIVUA )@@G@@E SEGMENT, GO IM- @I@@@@ J B$(1) . ELSE, GO ON TO NEUB )@@G@@XT. \ PLANT OR EXTRACT. @[@@@@. @#@@@@IMPLANT . [X10] UC )@@G@@@E@@@@ L,U A0,1 . MARK BREAKPOINTS IMPLANTED @H@@@@UD )@@G@@ LMJ X11,SWPBKP . AND ENTER BREAKPOINT LIST SEARCH ROUTINEUE )@@G@@. @E@@@@ L A1,0,A0 . GET INSTRUCTION FROM PROGRAM UF )@@G@@@D@@@@ S A1,1,A2 . AND SAVE IN LIST. @G@@@@ UG )@@G@@ S A3,0,A0 . REPLACE INSTRUCTION WITH BREAKPOINT. @E@@@@UH )@@G@@ J B$(1) . GO ON TO NEXT BREAKPOINT. @[@@@@. UI )@@G@@@#@@@@EXTRACT . [X10] @E@@@@ L,U A0,0 . MARK BREAKPUJ )@@G@@OINTS REMOVED @H@@@@ LMJ X11,SWPBKP . AND ENTER BREAKPUK )@@G@@OINT LIST SEARCH ROUTINE. @F@@@@ L A1,1,A2 . GET SUL )@@G@@AVED INSTRUCTION FROM LIST. @D@@@@ S A1,0,A0 . PUT UM )@@G@@BACK IN PROGRAM. @G@@@@ IF 0,A2 IS NEG, /S A4,0,A2 . IF MARKED FUN )@@G@@OR DELETION, DISCARD. @E@@@@ J B$(1) . GO ON TO NEUO )@@G@@XT BREAKPOINT. @G@@@@/. RESTORE USER'S ENVIRONMENT AND EXECUTE THE INUP )@@G@@STRUCTION WHOSE ADDRESS @E@@@@. IS IN A3. IF [STPCT] = 0, SAVE ENVIRONMUQ )@@G@@ENT AND RETURN. @B@@@@. ELSE, DECREMENT [STPCT] AND REPEAT. @[@@@@UR )@@G@@. @D@@@@. EQUATE TAGS TO F,J VALUE OF VARIOUS OPERATION CODES.@G@@@@US )@@G@@P $EQU $L1('LMJ','LIJ','LDJ','LBJ','DJZ','SLJ','JNC','EX',; UT )@@G@@@B@@@@ 'ER','JNS','NOP','JZ')@D@@@@I $DO P ,[P(UU )@@G@@I)] $EQUF (/[P(I)] A0,)*/-26,,U @A@@@@JGD $EQUF (/JGD 0,)*/-30UV )@@G@@,,U @[@@@@. @]@@@@EXNEXT . @E@@@@ S A3,STPCT .UW )@@G@@ SAVE RESIDUAL STEP COUNT. @E@@@@ LM A3,NXTADDR . GET NUX )@@G@@EXT INSTRUCTION ADDRESS.@ @@@@ S A3,EXADDR @]@@@@EXTHISUY )@@G@@ . @C@@@@ L A4,0,A3 . GET INSTRUCTION. @D@@@@ UZ )@@G@@ A,U A3,1 . INCREMENT P-COUNTER. @F@@@@ S A3VA )@@G@@,NXTADDR . SAVE NEXT INSTRUCTION ADDRESS. @]@@@@TESTOP . @C@@@@VB )@@G@@ S A4,INSTR . SAVE INSTRUCTION.@H@@@@ L,S1 A3VC )@@G@@,INSTR . TEST IF A JUMP, EXECUTIVE REQUEST OR EXECUTE. @B@@@@ VD )@@G@@ DSL A4,36-6-4 . F,J-FIELDS.@B@@@@ TE A4,EX .VE )@@G@@ EXECUTE? @D@@@@ LMJ A2,TESTLXJ . LOAD INDEX AND JUMP? VF )@@G@@@D@@@@ J JEXER . IF SO, AN EX OR A JUMP.@E@@@@ VG )@@G@@ IF JGD EQ A3 OR DJZ EQ A4, /J JEXER . THEN A JUMP. @F@@@@ IF SVH )@@G@@LJ GT A4 OR JNC LT A4, /J RESTENV . THEN NOT A JUMP. @F@@@@ IF EVI )@@G@@R EQ A4 OR JNS GE A4, /J JEXER . THEN AN ER OR JUMP. @F@@@@ IF NVJ )@@G@@OP EQ A4 OR JZ GT A4, /J RESTENV . THEN NOT A JUMP. @]@@@@JEXER . VK )@@G@@@D@@@@ L A6,A4 . IT'S AN ER, EX OR JUMP.@D@@@@ VL )@@G@@ LDSC A5,4 . [A6] = F,J,A FIELDS. @C@@@@ AND,U A6VM )@@G@@,017 . [A7] = A-FIELD. @F@@@@ LSSL A6,36-6-4-4 . SHIFTVN )@@G@@ F,J,A FIELDS INTO POSITION. @D@@@@ SSL A5,6+4+4 . [A5] VO )@@G@@= X,H,I,U FIELDS. @[@@@@. @[@@@@/. @E@@@@ IF ER EQ A4 VP )@@G@@ . THEN AN EXECUTIVE REQUEST. @H@@@@ SP1 A0 .VQ )@@G@@ [A0] = 1 IFF THIS AN 1100/80, 0 OTHERWISE. @F@@@@ IF A0 ISVR )@@G@@ ZERO . THEN ER OPERANDS ALWAYS IMMEDIATE. @C@@@@ L,H2 VS )@@G@@ A5,INSTR . GET THE OPERAND. @H@@@@ J TESTRD$ . BYPASVT )@@G@@S EFFECTIVE OPERAND ADDRESS COMPUTATION. @#@@@@ ENDIF @F@@@@VU )@@G@@ ELSE . INSTRUCTION AN EXECUTE OR JUMP. @D@@@@VV )@@G@@ TE A4,SLJ . IF A SUBROUTINE JUMP, @ @@@@ LMVW )@@G@@J A2,TESTLXJ @E@@@@ L A6,J . REPLACE WITH ORDVX )@@G@@INARY JUMP. @D@@@@ A,U A6,TARGET . SET JUMP DIVERSION. VY )@@G@@@F@@@@ S A6,INSTR . SAVE DIVERTED JUMP FOR EXECUTION. VZ )@@G@@@E@@@@ ENDIF . CASE ER VS EXECUTE/JUMP. @[@@@@WA )@@G@@. @D@@@@ DL A2,LDX . RESTORE X-REGISTERS. @^@@@@WB )@@G@@ L,U R1,A1 @^@@@@ BT A3,0,*A2@ @@@@ DL WC )@@G@@ A2,AREGS+2 @D@@@@L$(L$) AND A5,XHU . [A6] = X,H,U FIELWD )@@G@@DS. @G@@@@ IF X GT A6, /AND,U A5,1*/16-1 . IF X = 0, SUPPRESS AWE )@@G@@NY H-BIT. @E@@@@ A A6,LUA5 . [A6] = (L,U A5,0)++(X,HWF )@@G@@,U). @H@@@@ IF *0,,U OP A5, /AN A6,IMMDTE . IF INDIRECT, CHANGE WG )@@G@@'L,U' TO 'L'. @^@@@@ S A6,XREGS@D@@@@ EX XRWH )@@G@@EGS . [A5] = EFFECTIVE U. @I@@@@ IF IMMDTE EP A6, /J B$WI )@@G@@(1) . IF INDIRECT, REPEAT WITH NEW X,H,I,U IN A5. @F@@@@ DS WJ )@@G@@ A2,AREGS+2 . ELSE, SAVE X-REGISTERS. (THEY WILL @G@@@@ DL WK )@@G@@ A2,LDX . HAVE BEEN CHANGED IF ANY H-BIT WAS SET.)@^@@@@ WL )@@G@@ L,U R1,A1 @^@@@@ BT A2,0,*A3@G@@@@ L A3WM )@@G@@,A5 . [A5] = DIRECT UNINDEXED OPERAND ADDRESS. @[@@@@. @C@@@@WN )@@G@@ IF EX EQ A4 . THEN AN EXECUTE. @G@@@@ L WO )@@G@@A4,0,A3 . GET THE INSTR TO BE EX'ED & START AGAIN. @^@@@@ J WP )@@G@@ TESTOP@#@@@@ ENDIF @[@@@@. @[@@@@/. @G@@@@TESTRDWQ )@@G@@$ . . SEE IF WE MUST CAPTURE READ$ @EOF RETURN.@E@@@@WR )@@G@@ IF ER EQ A4 . (N.B.: [A0] = [AREGS].) @C@@@@ WS )@@G@@ IF READ$,,U EQ A5 OR AREAD$,,U EQ A5 @G@@@@ L,U A2,AWT )@@G@@REGS . SET POINTER TO WORD CONTAINING @EOF ADDR.@G@@@@ J WU )@@G@@ F$(2) . GO SAVE AS JUMP ADDR; SET NEW @EOF ADDR. @D@@@@ ELWV )@@G@@SEIF TREAD$,,U EQ A5 OR ATREAD$,,U EQ A5 @E@@@@ DL A0,0WW )@@G@@,A0 . COPY TREAD$ PACKET TO SCR. @ @@@@ DS A0,SCR WX )@@G@@@G@@@@ L,U A2,SCR+1 . SET POINTER TO WORD CONTAINING @EOFWY )@@G@@ ADDR.@E@@@@ J F$(1) . GO SET NEW PACKET ADDRESS. WZ )@@G@@@D@@@@ ELSEIF READA$,,U EQ A5 OR AREADA$,,U EQ A5 @D@@@@ XA )@@G@@ L A1,0,A0 . COPY PACKET TO SCR. @ @@@@ S XB )@@G@@ A1,SCR @ @@@@ DL A1,1,A0 @ @@@@ DS XC )@@G@@ A1,SCR+1 @G@@@@ L,U A2,SCR . SET POINTER TO WORD CONXD )@@G@@TAINING @EOF ADDR.@D@@@@L$(L$) L,U A0,SCR . SET NEW PACKET ADXE )@@G@@DRESS.@ @@@@ S,H2 A0,AREGS @E@@@@L$(L$) L,H1 A0,0XF )@@G@@,A2 . GET USER'S @EOF ADDRESS. @D@@@@ S,H2 A0,JADDR .XG )@@G@@ TREAT AS JUMP ADDRESS. @F@@@@ L,U A0,TARGET . SET NEW @EXH )@@G@@OF ADDRESS IN PACKET. @ @@@@ S,H1 A0,0,A2 @E@@@@ XI )@@G@@ ENDIF . CASE READ$ OR ITS VARIANTS. @E@@@@ ELSEXJ )@@G@@ . NOT AN ER. MUST BE A JUMP. @E@@@@ L XK )@@G@@A6,NXTADDR . GET ADDR+1 OF INSTRUCTION. @C@@@@ IF SLJ EQ A4 XL )@@G@@ . THEN AN SLJ. @D@@@@ S,H2 A6,0,A3 . SET SLJ RETXM )@@G@@URN ADDRESS @D@@@@ A,U A3,1 . AND BUMP JUMP ADDRESS.XN )@@G@@@#@@@@ ENDIF @D@@@@ S,H2 A3,JADDR . SAVE JUMP DXO )@@G@@ESTINATION. @C@@@@ L A3,A7 . GET A-FIELD AND, @D@@@@XP )@@G@@ LMJ A2,TESTLXJ . IF LIJ, LDJ, LBJ, LMJ,@E@@@@ XQ )@@G@@S,H2 A6,XREGS-1,A3 . SET RETURN ADDRESS. @C@@@@ ENDIF XR )@@G@@ . CASE ER VS JUMP. @[@@@@/. @]@@@@RESTENV . @D@@@@ XS )@@G@@ L A0,INSTR . GET THE INSTRUCTION. @G@@@@ L A1XT )@@G@@,LOADSEG . [A1] = DETOUR TO SEGMENT LOAD ROUTINE. @F@@@@ IF DXU )@@G@@XLOAD$ EQ A0, /S A1,INSTR . IF LOAD$, SET DETOUR. @E@@@@ SLJ XV )@@G@@ RESTU . RESTORE USER'S ENVIRONMENT. @H@@@@ $DO $LCV-$XW )@@G@@LCB<0200 , $DISPLAY '>>>ATTEMPTED STORE BELOW 0200.',$++0 @E@@@@INSTR XX )@@G@@ NOP $-$ . EXECUTE THE INSTRUCTION. @F@@@@ J XY )@@G@@ SAVENV . NON-SKIPS, NON-JUMPS FALL HERE. @C@@@@ S XZ )@@G@@ A0,AREGS . SKIPS FALL HERE. @ @@@@ L A0,NXTADDR YA )@@G@@@^@@@@ A,U A0,1 @^@@@@ J MARKJMP @[@@@@. YB )@@G@@@]@@@@LOADSEG . @^@@@@ J $+1 @H@@@@ S A1YC )@@G@@,SCR . COME HERE IF 'ER LOAD$'. SAVE RESTART ADDRESS. @F@@@@ YD )@@G@@ SZ A1 . CONTINUE INLINE AFTER SEGMENT LOAD.@C@@@@ERLOADYE )@@G@@$ ER LOAD$ . LOAD THE SEGMENT.@F@@@@ L A1,SCR YF )@@G@@ . RESTORE RESTART ADDRESS (IF ANY). @E@@@@ JZ A1,SAVENYG )@@G@@V . IF NONE, CONTINUE INLINE. @D@@@@ S,H2 A1,JADDR .YH )@@G@@ ELSE, TREAT AS JUMP. @]@@@@TARGET . @C@@@@ S A0,AREGSYI )@@G@@ . JUMPS FALL HERE. @^@@@@JADDR L,U A0,$-$ @]@@@@MARKJMP . YJ )@@G@@@F@@@@ SN A0,NXTADDR . (COMPLEMENT MARKS SKIP OR JUMP.) YK )@@G@@@^@@@@ L A0,AREGS@]@@@@SAVENV . @E@@@@ SLJ SAYL )@@G@@VEU . SAVE USER'S ENVIRONMENT. @^@@@@ L A3,STPCTYM )@@G@@@C@@@@ JGD A3,EXNEXT . ANY MORE TO DO? @D@@@@ LMJ YN )@@G@@ X11,SWAPOUT . NO. SWAP OUT USER. @#@@@@EXEC ENTRY . @E@@@@YO )@@G@@ J $-$ . RETURN TO NONRESIDENT DX. @E@@@@ YP )@@G@@ LMJ X11,SWAPIN . UPON ENTRY, SWAP IN USER. @^@@@@ J YQ )@@G@@ EXTHIS @[@@@@/. @G@@@@. THE CONTENTS OF THE TWO CELLS 'EXADDR' AYR )@@G@@ND 'NXTADDR' IN RESIDENT DX @A@@@@. HAVE THE FOLLOWING SIGNIFICANCE: YS )@@G@@@[@@@@. @G@@@@. ON ENTRY INTO 'EXEC', EXADDR'S MAGNITUDE IS THE ADDRYT )@@G@@ESS OF THE IN- @G@@@@. STRUCTION TO BE EXECUTED. EXADDR IS NEGATIVE YU )@@G@@IF THE CALL IS DUE TO A @C@@@@. BREAK; POSITIVE IF DUE TO A STEP COMMANDYV )@@G@@. @[@@@@. @G@@@@. ON EXITING FROM 'EXEC' (WHEREIN SEVERAL INSTRUYW )@@G@@CTIONS MAY HAVE BEEN @G@@@@. EXECUTED IN CASE OF 'STEP N'), EXADDR'S YX )@@G@@MAGNITUDE IS THE ADDRESS OF @G@@@@. THE LAST INSTRUCTION EXECUTED; NXTYY )@@G@@ADDR'S MAGNITUDE THAT TO BE EXECU- @G@@@@. TED NEXT. NXTADDR IS NEGATIYZ )@@G@@VE IF THE LAST INSTRUCTION ALTERED THE P- @G@@@@. REGISTER IN THE SENSE ZA )@@G@@OF A SKIP, JUMP OR READ$ @EOF; POSITIVE OTHER- @]@@@@. WISE. 0[@@@@ZB )@@G@@L,1. @[@@@@. @[@@@@. @E@@@@TESTLXJ . [A2]. SKIP UNLESS OPCODE IZC )@@G@@S LIJ, LDJ, LBJ, LMJ. @B@@@@ IF LIJ EQ A4 OR LDJ EQ A4, /J 0,A2ZD )@@G@@@B@@@@ IF LBJ EQ A4 OR LMJ EQ A4, /J 0,A2@^@@@@ J 1,ZE )@@G@@A2 @[@@@@/. @E@@@@SWAPOUT . [X11]. SWAP OUT USER CODE, READ IN NONZF )@@G@@RESIDENT DX.@G@@@@ L,U A0,$-$ . LWA OF NONRES. (U-FIELDZG )@@G@@ SET BY IPLOAD.) @E@@@@ ER MCORE$ . ACQUIRE CORE FOR ZH )@@G@@NONRES. @^@@@@ L,U A0,W$ @^@@@@ S A0,UFCT ZI )@@G@@@D@@@@ L,U A0,UPKT . WRITE OUT USER CORE. @^@@@@ ZJ )@@G@@ ER IOW$ @E@@@@ L,U A0,DPKT . READ IN DIAGNOSTIZK )@@G@@C CODE. @^@@@@ ER IOW$ @H@@@@ J NRSINIT+ZL )@@G@@RESEND-RES,D . INITIALIZE NONRESIDENT DX AND RETURN. @[@@@@. @A@@@@ZM )@@G@@SWAPIN . [X11]. SWAP IN USER CODE. @F@@@@ SLJ WRTCC .ZN )@@G@@ WRITE ANY ACCUMULATED CORE CHANGES.@D@@@@ L,U A0,R$ .ZO )@@G@@ READ IN USER CORE. @^@@@@ S A0,UFCT @^@@@@ L,U ZP )@@G@@ A0,UPKT @^@@@@ ER IOW$ @F@@@@ SZ,H2 DPKT+3 ZQ )@@G@@ . MARK NONRES NO LONGER IN CORE. @^@@@@ J 0,X11 ZR )@@G@@@[@@@@. @E@@@@WRTCC ENTRY . . WRITE ANY CORE IMAGE CHZS )@@G@@ANGES.@^@@@@ J $-$ @F@@@@ IF CFCT IS ZERO .ZT )@@G@@ THEN CORE CHANGES HAVE OCCURRED. @C@@@@ L,U A0,W$ .ZU )@@G@@ WRITE THEM OUT. @ @@@@ S A0,CFCT @ @@@@ L,ZV )@@G@@U A0,CPKT @^@@@@ ER IOW$ @#@@@@ ENDIF ZW )@@G@@@D@@@@ SZ CBCONT . MARK CORE BUFFER EMPTY.@^@@@@ ZX )@@G@@ J WRTCC @[@@@@. @H@@@@PRTOFF ENTRY . . DISABZY )@@G@@LE PRIMARY PRINT$ FILE (IF NPRFLAG ON). @H@@@@ LXI,U A0,POFFWZZ )@@G@@C . WORD COUNT OF '@BRKPT PRINT$/':DXTPF:'PRF'. @^@@@@ J AA )@@G@@ F$(1) @H@@@@PRTON ENTRY . . ENABLE PRIMARY PRINT$ FAB )@@G@@ILE (IF NPRFLAG ON). @F@@@@ LXI,U A0,PONWC . WORD COUNT AC )@@G@@OF '@BRKPT PRINT$'. @E@@@@L$(L$) LXM,U A0,BRKPRT . GET ADDRESSAD )@@G@@ OF CSF$ IMAGE. @F@@@@ IF NPRFLAG IS NONZ, ; THEN PRINT$ SUPPRAE )@@G@@ESSION SPECIFIED. @F@@@@ /ER CSF$ . '@BRKPT PRINT$[/'AF )@@G@@:DXTPF:'PRF]'. @^@@@@ J 0,A1 @I@@@@/IGNORE . COME HERAG )@@G@@E TO IGNORE A CONTINGENCY. [A0,A1] = STATUS, REENTRY ADDRESS. @D@@@@AH )@@G@@ ER CEND$ . EXIT CONTINGENCY MODE. @A@@@@ IF CAI )@@G@@NSINT EQ A0, /A,U A1,1 @E@@@@ S,H2 A1,SAVEU . SET TO RETUAJ )@@G@@RN TO RUN MODE @E@@@@ DL A0,AREGS . AFTER RESTORING AK )@@G@@A0, A1. @[@@@@. @E@@@@SAVEU . . SAVE USER'SAL )@@G@@ ENVIRONMENT. @^@@@@ J $-$ @ @@@@ S X1AM )@@G@@,XREGS+0 @ @@@@ S X2,XREGS+1 @ @@@@ S X3AN )@@G@@,XREGS+2 @^@@@@ S R1,RREGS@ @@@@ LMJ X1,XFREGAO )@@G@@S @^@@@@ BT X2,0,*X3@E@@@@ SPD UPSR .AP )@@G@@ CAPTURE USER'S MODE BITS. @B@@@@ LMJ A2,NRREGS . SEE BAQ )@@G@@ELOW. @^@@@@ J SAVEU @[@@@@. @[@@@@. @^@@@@NRREGSAR )@@G@@ ENTRY . [A2]. @G@@@@ L A0,DCNT . REGISTER INTERNALAS )@@G@@ CONTINGENCY ROUTINE. @^@@@@ ER IALL$ @E@@@@ L AT )@@G@@ A0,DXBKPT . SET ANY DEBUG BREAKPOINT. @F@@@@ IF U8FLAG AU )@@G@@IS ZERO, /ER SETBP$ . BUT DON'T IF NO HARDWARE. @E@@@@ L,U D,AV )@@G@@RES . SET POINTER TO RESIDENT DX. @D@@@@ LPD 0140 AW )@@G@@ . ENTER THIRD-WORD MODE. @E@@@@ LXI,U IX,1 . SET UAX )@@G@@TILITY INDEX INCREMENT. @E@@@@ L,U ONE,1 . SET CONVENIAY )@@G@@ENCE CONSTANTS. @ @@@@ L,U FORTY,040 @^@@@@ J AZ )@@G@@ 0,A2 @[@@@@. @[@@@@. @E@@@@RESTU . .BA )@@G@@ RESTORE USER'S ENVIRONMENT. @ @@@@ J $-$ *@^@@@@BB )@@G@@ L A0,UPSR @E@@@@ LPD 0,A0 . RESTORE USEBC )@@G@@R'S WORD MODE. @^@@@@ L A0,UCNT @F@@@@ ER IABD )@@G@@LL$ . RESTORE USER'S CONTINGENCY ROUTINE.@F@@@@ DL A0BE )@@G@@,BP$PKT . RESTORE ANY HARDWARE BREAKPOINT. @A@@@@ IF A0 IS NBF )@@G@@ONZ, /ER SETBP$ @D@@@@ LMJ X1,XFREGS . RESTORE MAJOR SETBG )@@G@@. @^@@@@ BT X3,0,*X2@^@@@@ L R1,RREGS@ @@@@BH )@@G@@ L X3,XREGS+2 @ @@@@ L X2,XREGS+1 @ @@@@BI )@@G@@ L X1,XREGS+0 @^@@@@ J RESTU @E@@@@/CTPKTBJ )@@G@@ ENTRY . . USER'S CONTINGENCY PACKET. @I@@@@ +020BK )@@G@@2,-0 . INITIALIZED TO 'IGDM AT -0000'. IF FOUND TO STILL BL )@@G@@@I@@@@ +0 . HAVE THIS VALUE IN PGTERM, INFERENBM )@@G@@CE IS THAT AN @G@@@@ ER CEND$ . ILLEGAL JUMP OCCBN )@@G@@URRED INTO THIS ELEMENT.@^@@@@ J UCTNCY @[@@@@. @#@@@@BO )@@G@@EXEUNT ENTRY . @F@@@@ SZ NPRFLAG . MARK TO ENABLE PRBP )@@G@@IMARY PRINT FILE. @G@@@@ L,U A3,ENDDX . NO. CLEAN UP AND BQ )@@G@@PASS CONTROL TO EXEC. @^@@@@. J RESTART @[@@@@. @[@@@@BR )@@G@@. @F@@@@RESTART ENTRY . . RETURN HERE TO RESTART USER PBS )@@G@@GM. @D@@@@ LMJ X11,SWAPIN . SWAP IN USER CODE. @]@@@@BT )@@G@@START . @G@@@@ S,H2 A3,RESTU . [A3]=START ADDR. GO THEBU )@@G@@RE AFTER RESTU. @D@@@@ LMJ X10,IMPLANT . IMPLANT BREAKPOINBV )@@G@@TS. @E@@@@ LN,U A0,0 . CLEAR CONTINGENCY PACKET, BW )@@G@@@^@@@@ LXI,U A0,0202 @^@@@@ S A0,CTPKT@C@@@@ BX )@@G@@ SZ STPCT . STEP COUNT, @G@@@@ SZ IADDR BY )@@G@@ . ADDRESS OF NEXT INSTRUCTION TO EXECUTE. @F@@@@ LMJ A1BZ )@@G@@,PRTOFF . DISABLE PRINT$ OUTPUT IF SPECIFIED.@G@@@@ J RECA )@@G@@STU+1 . RESTORE USER REGS AND ENTER USER PGM. @[@@@@. @[@@@@CB )@@G@@. @ @@@@NDX ICW 1,'END DX' @^@@@@ENDDX L A0,NDX CC )@@G@@@^@@@@ ER PRINT$ @H@@@@ DL A0,AREGS . (IN CCD )@@G@@ASE HERE FROM 2ND ABNML RTN FROM READ$.) @^@@@@EREXIT$ ER EXIT$ CE )@@G@@@#@@@@DXLOAD$ DX$LOAD @[@@@@. @E@@@@J J 000000 .CF )@@G@@ PARAMETERS FOR EXEC ROUTINE. @#@@@@LDX +1,XREGS @#@@@@ +1,XCG )@@G@@1 @ @@@@LUA5 L,U A5,000000 @ @@@@XHU I$ 0,0,0,-0CH )@@G@@,2,-0 @ @@@@X I$ 0,0,0,X1,0,0 @ @@@@IMMDTE I$ 0,U,0,0,CI )@@G@@0,0 @[@@@@. @H@@@@DCNT +0520300,ICTPKT . INTERNAL IALL$: CJ )@@G@@BRKPT, ERR$, IINT, IGDM, IOPR.@E@@@@UCNT +0530300,CTPKT . USER CK )@@G@@IALL$: ABOVE + IABT. @[@@@@. @F@@@@SWPPTRS +2,BRKLIST-2 .CL )@@G@@ PARAMETERS FOR IMPLANT/EXTRACT. @#@@@@ DX$BRK @[@@@@. CM )@@G@@@#@@@@BRKPRT '@BRKPT ' @#@@@@ 'PRINT$' @^@@@@PONWC $EQU $-CN )@@G@@BRKPRT@ @@@@ '/':DXTPF:'PRF . ' @^@@@@POFFWC $EQU $-BRKPRTCO )@@G@@@G@@@@/. THE CODE BELOW HANDLES CONTINGENCIES WHILE DX IS IN CONTROL MODCP )@@G@@E @G@@@@. (WHICH, IF DX WERE ERROR-FREE, WOULD NEVER OCCUR). AFTER CQ )@@G@@THE CON- @G@@@@. TINGENCY IS CAPTURED, CONTROL PASSES TO A SERVICE ROCR )@@G@@UTINE AT 'ICTY' @F@@@@. IN ELEMENT 'PATCH' IN NONRESIDENT DX (WHICH, OCS )@@G@@NE HOPES, HAS NOT @F@@@@. MEANWHILE BEEN CORRUPTED). SEE THE COMMENTS TCT )@@G@@HERE. TO RETURN @A@@@@. TO CONTROL MODE, TYPE '@@X C'. @[@@@@. CU )@@G@@@]@@@@SVA0 +$-$@#@@@@ICGY ENTRY . @]@@@@ICTPKT +0D @D@@@@ CV )@@G@@ S A0,SVA0 . TEMPORARILY SAVE A0. @I@@@@ L A0CW )@@G@@,ICTY-1+RESEND-RES,D . CHECK FOR PRESENCE OF SERVICE ROUTINE. @H@@@@CX )@@G@@ IF DXCON NE A0 . THEN CONTINGENCY SERVICE ROUTINE CORRUPTECY )@@G@@D. @B@@@@ P$RINT EABTMSG . SO NOTIFY. @D@@@@ L CZ )@@G@@ A0,SVA0 . RESTORE A0 FOR @PMD. @^@@@@ ER EABT$ DA )@@G@@@D@@@@ ENDIF . CASE OF NO RECOVERY. @C@@@@ DB )@@G@@ L A0,SVA0 . ELSE, RESTORE A0 @H@@@@ J ICTY+RESDC )@@G@@END-RES,D . AND ENTER CONTINGENCY SERVICE ROUTINE. @[@@@@. @]@@@@DD )@@G@@DXCON . @H@@@@EABTMSG ICW 1,'DX INTERNAL CONTINGENCY SERVICE ROUDE )@@G@@TINE CORRUPTED. ':; @B@@@@ 'RECOVERY IMPOSSIBLE.' DF )@@G@@@F@@@@/. MISCELLANEOUS RESIDENT STORAGE. (SEE PROC DX$P FOR DETAILS.) DG )@@G@@@#@@@@RESDATA ENTRY @#@@@@ RESGEN @#@@@@SCR ENTRY . DH )@@G@@@G@@@@/. THE FOLLOWING IS EXECUTED ONLY UPON PROGRAM ENTRY AND THEREAFTEDI )@@G@@R @ @@@@. SERVES AS A SCRATCH AREA. @[@@@@. @H@@@@ LOC DJ )@@G@@ RESDATA+1 . PUT INITIALIZATION CODE IN REGISTER SAVE AREA. @#@@@@DK )@@G@@IPLOAD ENTRY . @C@@@@ S R3,STIME . SAVE START TIME. DL )@@G@@@E@@@@ L A0,DLWP1 . SET NONRES LWA FOR MCORE$. @^@@@@DM )@@G@@ AN,U A0,1 @ @@@@ S,H2 A0,SWAPOUT @E@@@@ DN )@@G@@ L A0,XQT . GET MESSAGE 'IN RUN MODE.'. @I@@@@ IF NDO )@@G@@XTADDR IS NEG, /L A0,NOXQT . BUT IF '@DX,N', 'IN CTRL MODE' INSTEAD. DP )@@G@@@^@@@@ ER PRINT$ @E@@@@ J F$(1) . GO ENDQ )@@G@@TER RUN OR CONTROL MODE.@[@@@@. @B@@@@XQT ICW 1,'(DX IN RUN DR )@@G@@MODE.)' @B@@@@NOXQT ICW 1,'(DX IN CONTROL MODE.)' @^@@@@ DS )@@G@@ LOC SCR @G@@@@L$(L$) SLJ SAVEU . SAVE INITIAL PROGDT )@@G@@RAM LOAD CONDITIONS. @ @@@@ L A3,NXTADDR @F@@@@ DU )@@G@@ JP A3,START . IF NO N-OPTION, GO ENTER RUN MODE. @E@@@@ DV )@@G@@ SZ CTPKT . ELSE, MARK ENTRY VIA IPLOAD @E@@@@ J DW )@@G@@ CLOSE . AND ENTER CONTROL MODE. @[@@@@. @[@@@@. DX )@@G@@@ @@@@I $REPEAT 0777-$+RES @]@@@@ +0 @#@@@@ $UNLDY )@@G@@IST @#@@@@ $ENDR @#@@@@ $LIST @^@@@@SCREND $EQUDZ )@@G@@ $LCV @ @@@@SCRL* $EQU SCREND-SCR @#@@@@DXBKPT ENTRY . EA )@@G@@@E@@@@ +0 . DEBUG BREAKPOINT PARAMETER. @#@@@@EB )@@G@@RESEND ENTRY . @[@@@@. @]@@@@ $END_@@@@@A0,NOXQT . BUT IF EC )@@G@@'@DX,N', 'IN CTRL MODE' INSTEAD. @^@@@@ ER PRINT$ @E@@@@ED )@@G@@ J F$(1) . GO ENTER RUN OR C)@@[L@K@K^[@K^[@@@(G@@^)EE )@@G@@/,)@[@*?@@A_'^@@#/9?@@ !/K@@#7:8@[@C%8@]-ECC@@^)9*@@ !AA@@@@)@E[L@K[@K^@EF )@@G@@^@*@@@C8K@^$C@@@ !C8/@@[(@@@@JC@0@ ,/K@@@P%@K@^6C@W@@@C^@@^)/K@@@PAB@@@@EG )@@G@@)@O[L@K^[]@[@@@@@@')[@@@N8K@@U&80@@[R80@@^&8)@@[R8)@ >/KB@C@/,0@#R/\K@#2EH )@@G@@/K@@#[AC@@@@)@Y[L@@^[@K^@@@@@@9@S)@@C@K@A'N@)@A;NCK@A9/,0@#)/K[@@[')[@@@EI )@@G@@N8K@@IQ80@[]Q8)@AK@@^C[)@@K/K@@]3EP )@@G@@?9@@J@%9@@JA/K@@[ZAJ@@@@)[&[K^[@K^@K^@*@@@G9)@# C[)@^7/\)@#K%9@@I-/K@@[1EQ )@@G@@/K@@]CC K@]8/K@@[:*@@@@G @)@@GAK@@@@)[0[L@K@K^[@^@@@@@=9KK@@G[)@^'+9KJ__ER )@@G@@?[)@^/+[K@^;9?)@ \M#")@@N8K@@H9?)@^8[[)@]8AL@@@@)['[L@K^[@K^[@@@@@C@0@@LES )@@G@@M#\)@@N8K@@H9?)@^89*)@ \/K@@[5>[)@^.')@@ +[[)@ +H[)@^.AM@@@@)]^[CK[@^@(@ET )@@G@@]O)]K@@@@@@@/K@@]I:9K@@@%9K@@@/K@@]%%9@@I(/K@@[HC[J@@@/K@@]C%9@@I*AN@@@@EU )@@G@@)]H[D@K^[@EK[>C[^[@@@@@@9?G@@@/K@@]U/K@@]P:9K@@@%9K@@@/K@@](/K@@]>C8)@ !EV )@@G@@/K@@]LAO@@@@)]Q[D@E]@) C[M=@2@)@@@@@C@W@@@/K@@](/K@@]Y:9K@@@%9K@@@/K@@](EW )@@G@@/K@@] @A@@@@JM )@@G@@. @^@@@@. @[@@@@JN )@@G@@. @G@@@@. IF A SYNTAX ERROR ARISES, THE SCAN$ PACKET POINTS TO THE OJO )@@G@@FFENDING @F@@@@. ITEM AND [A0]-1 GIVES THE ADDRESS WHERE THE ERROR WAJP )@@G@@S DETECTED. @[@@@@. @G@@@@. IF THE NO-SUCH-ADDRESS CONDITION ARISES,JQ )@@G@@ A0 CONTAINS THE CORRESPONDING@G@@@@. SCHAET STATUS CODE. (IF [A0]=0, TJR )@@G@@HERE ARE NO DIAGNOSTIC TABLES AND @G@@@@. ALL ADDRESS SPECIFICATIONS MJS )@@G@@UST BE ABSOLUTE AND WITHOUT SEGMENT SPECI-@]@@@@. FICATION.)@[@@@@. JT )@@G@@@G@@@@. UPON NORMAL RETURN, A0 CONTAINS THE ABSOLUTE ADDRESS, ALL ITEMS JU )@@G@@IN @G@@@@. 'AEPKT' WILL BE COMPLETELY FILLED IN AND THE SCAN$ PACKET JV )@@G@@WILL POINT @G@@@@. TO THE TERMINATING DELIMITER. THE ABSOLUTE ADDRESS JW )@@G@@IS ALSO STORED IN @]@@@@. SPCADDR. @[@@@@. @G@@@@. IF THE ADDRESS SJX )@@G@@PECIFICATION BE VOID, DATA WILL BE INFERRED FROM CELL @C@@@@. 'PRVSPEC' JY )@@G@@BUT 'SPCADDR' WILL BE LEFT CLEAR. @[@@@@. @G@@@@. ***NOTE: THIS RJZ )@@G@@OUTINE INFERS THE EXISTENCE OF THE DIAGNOSTIC TABLES @E@@@@. FROM A NONKA )@@G@@-ZERO CONTENTS OF CELL 'LCTAB' IN TABLE 'AETAB'.@[@@@@. @[@@@@. KB )@@G@@@[@@@@. @]@@@@DCDAD* . @E@@@@ L,U X11,2,X11 . SET NKC )@@G@@ORMAL RETURN ADDRESS @B@@@@ S X11,DCDRTN . AND SAVE. KD )@@G@@@^@@@@ SZ SPCADDR @H@@@@ IF AETSMRY IS ZERO . THEN KE )@@G@@FIRST CALL SINCE ENTERING CONTROL MODE. @E@@@@ L A0,PRVKF )@@G@@SPEC . GET PREVIOUS SPECIFICATION @E@@@@ S A0,AETSMRY .KG )@@G@@ AND FILL OUT SCHAET PACKET. @ @@@@ LMJ X11,RSTAET @#@@@@KH )@@G@@ ENDIF @[@@@@. @C@@@@ S$T . RESCAKI )@@G@@N THIS ITEM.@E@@@@ IF ' ',,U EQ A2 OR STOP EQ A2 . THEN SPEC IS VKJ )@@G@@OID. @H@@@@ L A0,ABSADDR . GET ABSOLUTE ADDRESS FOR LASTKK )@@G@@ PREVIOUS SPEC. @ @@@@ J *DCDRTN @D@@@@ ENDIKL )@@G@@F . CASE OF VOID SPEC. @[@@@@. @G@@@@ SZ KM )@@G@@ BNKNM . SPEC PRESENT. CLEAR BANK, SEGMENT NAMES. @^@@@@ KN )@@G@@ SZ SEGNM @D@@@@ L,U A4,12 . EXTEND SYMBOL-CHAKO )@@G@@ACTER @F@@@@ S A4,SXC . LIST TO INCLUDE A-Z, 0-9, $,KP )@@G@@ -. @D@@@@ L A5,THSITM . BACK UP SCAN$ POINTER. @ @@@@KQ )@@G@@ S A5,NXTITM @E@@@@ S$FIND '.' . LOOK KR )@@G@@FOR PERIOD IN STRING. @H@@@@/ IF A1 IS POS . THEN PERIODKS )@@G@@ FOUND AND ADDRESS IS ELT-RELATIVE. @H@@@@ IF LCTAB IS ZERO, /JKT )@@G@@ ERR1 . NO RELATIVE ADDRESSES IF NO TABLES. @F@@@@ S$T KU )@@G@@ . TABLES PRESENT. RESCAN THIS ITEM. @E@@@@ IF SMBL KV )@@G@@EQ A2 . THEN THIS ITEM A SYMBOL. @F@@@@ IF 12,,U LT KW )@@G@@A3, /SYNTAX ERR0 . AT MOST 12 CHARACTERS? @E@@@@ DS A0,EKX )@@G@@LTNM . YES. SAVE AS ELEMENT NAME. @D@@@@ IF ('B$C'L) EQ A0 KY )@@G@@. THEN SYMBOL IS 'B$C'. @B@@@@ DL A0,('BLANK$COMMON') KZ )@@G@@@E@@@@ L,U A2,ELNTAB . SEARCH ELEMENT NAME TABLE@D@@@@LA )@@G@@ L,T1 R1,0,A2 . FOR 'BLANK$COMMON'. @ @@@@ LB )@@G@@ LXI,S3 A2,0,A2 @ @@@@ A,H2 A2,0,A2 @ @@@@ LC )@@G@@ SE A0,2,*A2@B@@@@ J F$(1) . NOT FOUND. @H@@@@LD )@@G@@ IF 1,A2 NE A1, /J $-2 . KEEP TRYING UNTIL BOTH WORDS MATCHLE )@@G@@. @G@@@@ DS A0,ELTNM . THEN REPLACE 'B$C' WITH 'BLLF )@@G@@ANK$COMMON'.@D@@@@L$(L$) ENDIF . CASE SYMBOL 'B$C'. LG )@@G@@@F@@@@ SZ A4 . MARK ANY PREVIOUS LC INAPPLICABLE. LH )@@G@@@C@@@@ S$N . GET NEXT ITEM. @E@@@@ ENLI )@@G@@DIF . CASE FIRST ITEM A SYMBOL. @F@@@@ IF '.',,LJ )@@G@@U NE A2, /SYNTAX ERR0 . THIS ITEM THE PERIOD? @F@@@@ S LK )@@G@@ONE,SXC . YES. CONTRACT SXTAB TO JUST '$'. @C@@@@ S$N LL )@@G@@ . GET NEXT ITEM. @D@@@@ IF NMBR EQ A2 . THEN LM )@@G@@IT'S A NUMBER. @F@@@@ IF 64,,U LT A0, /SYNTAX ERR0 . LEGITLN )@@G@@IMATE LC NUMBER? @C@@@@ S A0,LC . YES. SAVE AS LC LO )@@G@@@D@@@@ S$N . AND GET NEXT ITEM. @G@@@@ LP )@@G@@ ELSE . NOT A NUMBER. IF NO PREVIOUS LC KNOWN, @G@@@@LQ )@@G@@ IF A4 IS ZERO, /LMJ X11,FEI . USE LOWEST LC OF ELEMENT. LR )@@G@@@E@@@@ ENDIF . CASE ITEM A NUMBER OR NOT. @F@@@@LS )@@G@@ SZ RELADDR . ASSUME NO RELATIVE ADDRESS GIVEN. @C@@@@LT )@@G@@ S$T . RESCAN THIS ITEM.@H@@@@ IF '+',,LU )@@G@@U EQ A2 OR '-',,U EQ A2 . THEN RELATIVE ADDRESS FOLLOWS. @D@@@@ LV )@@G@@ LMJ X11,EVX$ . EVALUATE EXPRESSION. @G@@@@ +0,EVALW )@@G@@BSYM . (SYMBOL EVALUATION ROUTINE ADDRESS.) @D@@@@ LX )@@G@@J ERR0 . SYNTAX ERROR RETURN. @G@@@@ LMJ X11,LY )@@G@@INDEX . BIAS ADDRESS WITH ANY SPECIFIED INDEX. @E@@@@ A LZ )@@G@@ A0,RELADDR . (EX'D BY INDEX ROUTINE.) @E@@@@ S A0,RMA )@@G@@ELADDR . (EX'D BY INDEX ROUTINE.) @G@@@@ ENDIF .MB )@@G@@ (IF NO RELATIVE ADDRESS, ASSUME VALUE 0.)@G@@@@ LMJ X11,FAMC )@@G@@BS . FIND CORRESPONDING ABSOLUTE ADDRESS. @G@@@@/ ELSE MD )@@G@@ . NO PERIOD FOUND AND ADDRESS IS ABSOLUTE. @D@@@@ S ME )@@G@@ A5,NXTITM . RESTORE STRING POINTER.@G@@@@ L,U R2,2-1MF )@@G@@ . PREPARE TO LOOK FOR AT MOST 2 COLONS. @E@@@@L$(L$) S$FIND MG )@@G@@':' . SCAN STRING FOR A COLON. @F@@@@ IF A1 IS POS MH )@@G@@ . THEN FIRST OR SECOND COLON FOUND. @C@@@@ S$T MI )@@G@@ . GET CURRENT ITEM.@G@@@@ IF SMBL EQ A2 AND 12,,U GE A3 MJ )@@G@@. THEN ITS A LEGAL SYMBOL. @F@@@@ DL A4,SEGNM . RESMK )@@G@@CUE ANY PREVIOUS NAME FOUND @E@@@@ DS A0,SEGNM . ANML )@@G@@D SAVE AS SEGMENT NAME. @C@@@@ S$ND ':' . NEXT THE COMM )@@G@@LON? @C@@@@ SYNTAX ERR0 . NO. SYNTAX ERROR.@H@@@@ MN )@@G@@ JGD R2,B$(1) . IF THIS WAS 1ST COLON, SEARCH FOR ANOTHER. MO )@@G@@@F@@@@ DS A4,BNKNM . IF 2ND, FIRST NAME WAS BANK NAME.MP )@@G@@@H@@@@ ELSE . NOT A SYMBOL. IT MUST BE 2ND COLON MQ )@@G@@('BNKNM::').@E@@@@ IF R2 IS NONZ OR ':',,U NE A2, /SYNTAX EMR )@@G@@RR0 @E@@@@ DL A0,SEGNM . IT IS. NAME SPECIFIED WAS MS )@@G@@@C@@@@ DS A0,BNKNM . BANK NAME. @F@@@@ MT )@@G@@ DS A4,SEGNM . RESTORE ORIGINAL SEGMENT NAME. @E@@@@ MU )@@G@@ENDIF . CURRENT ITEM SYMBOL VS COLON.@D@@@@ L MV )@@G@@ A0,NXTITM . BUMP SCAN$ POINTER @C@@@@ S A0,THSITM MW )@@G@@. TO NEXT ITEM. @H@@@@ ELSE . SCAN FROM CURRENTMX )@@G@@ POSITION FOUND NO COLON. @H@@@@ IF R2 IS NONZ . NO COMY )@@G@@LONS FOUND AT ALL (I.E., NO SEGMENT NAME).@G@@@@ S ONMZ )@@G@@E,REGFLAG . ASSUME SPEC TO BE A REGISTER NAME. @D@@@@ LMJ NA )@@G@@ X11,REGTEST . SEE IF IT IS. @H@@@@ SZ REGFLANB )@@G@@G . IF NOT, CLEAR 'ADDRESS-IS-REGISTER' FLAG. @D@@@@ ENDIF NC )@@G@@ . CASE NO COLONS AT ALL. @F@@@@ ENDIF .ND )@@G@@ AT LEAST ONE COLON FOUND VS NOT. @[@@@@. @E@@@@ S NE )@@G@@ONE,SXC . CONTRACT SXTAB TO JUST '$'. @F@@@@ IF REGFLAG IS NF )@@G@@ZERO . THEN SPEC NOT A REGISTER NAME. @G@@@@ LMJ X11,NG )@@G@@EVX$ . EVALUATE ABSOLUTE ADDRESS EXPRESSION. @G@@@@ +0,EVSNH )@@G@@YM . (SYMBOL EVALUATION ROUTINE ADDRESS.) @D@@@@ NI )@@G@@J ERR0 . SYNTAX ERROR RETURN. @G@@@@ LMJ X11,NJ )@@G@@INDEX . BIAS ADDRESS WITH ANY SPECIFIED INDEX. @E@@@@ A NK )@@G@@ A0,ABSADDR . (EX'D BY INDEX ROUTINE.) @E@@@@ S A0,ANL )@@G@@BSADDR . (EX'D BY INDEX ROUTINE.) @[@@@@. @G@@@@ LMJ NM )@@G@@ X11,FREL . FIND CORRESPONDING RELATIVE ADDRESS. @F@@@@ ENNN )@@G@@DIF . CASE SPEC NOT A REGISTER NAME. @G@@@@ ENDINO )@@G@@F . CASE ELT-RELATIVE VS ABSOLUTE ADDRESS. @G@@@@/ NP )@@G@@ IF REGFLAG IS ZERO . THEN ADDRESS SPECIFIED IS MAIN STORAGE. @G@@@@NQ )@@G@@ IF A0 IS NONZ, /J ERR1 . DID FABS OR FREL RETURN ERROR STATUS?NR )@@G@@@D@@@@ L A0,AETSMRY . NO. UPDATE PRVSPEC. @ @@@@ NS )@@G@@ S A0,PRVSPEC @D@@@@ L A0,ABSADDR . GET ABSOLUTNT )@@G@@E ADDRESS. @H@@@@ IF PRLFLAG IS ZERO, /S ONE,WRDCT . RESTORE DNU )@@G@@EFAULT WC TO 1 UNLESS @H@@@@ ENDIF . NV )@@G@@ \ SPEC WAS $-RELATIVE. @G@@@@ S A0,SPCADDR .NW )@@G@@ SAVE RETURN ARGUMENT (REG OR CORE ADDR). @D@@@@ J *DCDRTN NX )@@G@@ . TAKE NORMAL RETURN. @[@@@@/. @ @@@@. SYMBOL EVALUATION FOR NY )@@G@@EVX$. @[@@@@. @D@@@@EVSYM . EVALUATE ABSOLUTE OR ENTRY POINT SYMBONZ )@@G@@L. @ @@@@ L,U X11,0,X11 @E@@@@ S X11,EVRTOA )@@G@@N . SAVE EVX$ REENTRY ADDRESS. @^@@@@ IF ('$B'L) EQ A0@G@@@@OB )@@G@@ L A1,BABSADR . THEN USE MOST RECENT BREAK/TRAP ADDRESS OC )@@G@@@E@@@@ S ONE,BRLFLAG . AND MARK '$B' ENCOUNTERED. @H@@@@OD )@@G@@ IF A1 IS ZERO, /ERROR 0 . BUT INFORM IF NO PREVIOUS BREAK/TRAPOE )@@G@@. @ @@@@ ELSEIF ('$F'L) EQ A0 @F@@@@ L A1,FINOF )@@G@@DADR . THEN USE MOST RECENT FIND ADDRESS @E@@@@ S ONE,FROG )@@G@@LFLAG . AND MARK '$F' ENCOUNTERED. @G@@@@ IF A1 IS ZERO, /ERROOH )@@G@@R 1 . BUT INFORM IF NO PREVIOUS FIND. @C@@@@ ELSEIF ('$'L) EQOI )@@G@@ A0 OR ('$$'L) EQ A0 @H@@@@ L A1,PABSADR . THEN USE MOJ )@@G@@OST RECENTLY SPECIFIED ADDRESS. @I@@@@ IF ('$$'L) EQ A0, /AOK )@@G@@ A1,WRDCT . (+ MOST RECENTLY SPECIFED WC IF '$$'.) @F@@@@ S OL )@@G@@ ONE,PRLFLAG . MARK '$' OR '$$' ENCOUNTERED. @H@@@@ IFOM )@@G@@ PABSADR IS ZERO, /ERROR 2 . BUT INFORM IF NO PREV SPECIFIED ADDR.@]@@@@ON )@@G@@ ELSE@I@@@@ LMJ X11,FEPN . IF NONE OF ABOVE, SEAROO )@@G@@CH ENTRY POINT NAME TABLE. @F@@@@ L A1,ABSADDR . GET EOP )@@G@@QUIVALENT VALUE (IF FOUND). @E@@@@ ANDIF A0 IS NONZ . THEN OQ )@@G@@VALUE NOT YET FOUND. @I@@@@ L X11,EVRTN . RESTORE REOR )@@G@@TURN AND SEARCH ABSOLUTE VALUE TABLE. @A@@@@EVABSYM . EVALUATE ABSOLOS )@@G@@UTE SYMBOL. @ @@@@ L,U X11,0,X11 @E@@@@ S OT )@@G@@ X11,EVRTN . SAVE EVX$ REENTRY ADDRESS. @ @@@@ LMJ X11,OU )@@G@@FABSV @E@@@@ IF A0 IS NONZ, /J ERR1 . GIVE UP IF NOT FOUND. OV )@@G@@@#@@@@ ENDIF @C@@@@ LDSL A0,36 . MOVE VALUE OW )@@G@@TO A0.@C@@@@ L,U A2,0100 . MARK VALUE FOUND.@C@@@@ OX )@@G@@ J *EVRTN . REENTER EVX$. @F@@@@/INDEX . (X11). BIAS SPOY )@@G@@ECIFIED ADDRESS WITH ANY GIVEN INDEX. @E@@@@ EX 1,X11 OZ )@@G@@ . SAVE ADDRESS FOUND SO FAR. @E@@@@ L,U X11,2,X11 .PA )@@G@@ SET SKIP RETURN ADDRESS. @ @@@@ S X11,IXRTN @]@@@@PB )@@G@@ S$T @H@@@@ IF ',',,U NE A2, /J *IXRTN . TAKE SKIP RETURN PC )@@G@@UNLESS COMMA DELIMITER. @]@@@@ S$N @F@@@@ LMJ X11,REGTPD )@@G@@EST . ELSE, REGISTER NAME MUST FOLLOW. @B@@@@ SYNTAX ERR0 PE )@@G@@ . IT DOESN'T.@G@@@@ IF A3,,U LT A0, /SYNTAX ERR0 . IT DOES. PF )@@G@@AN INDEXING REGISTER? @H@@@@ A,U A0,USERGRS . YES. FOLD IPG )@@G@@N BASE OF USER'S SAVED REGISTERS @D@@@@ L A0,0,A0 .PH )@@G@@ AND GET CONTENTS. @E@@@@ L X11,IXRTN . RESET RETURPI )@@G@@N TO NON-SKIP. @^@@@@ AN,U X11,2 @E@@@@ EX 0,PJ )@@G@@X11 . BIAS PREVIOUSLY SAVED ADDRESS@C@@@@ J 1,X11 PK )@@G@@ . AND GO RESAVE. @[@@@@. @[@@@@. @F@@@@REGTEST . [X11]. DPL )@@G@@ETERMINE IF CURRENT ITEM IS A REGISTER NAME. @F@@@@ . RETURN IPM )@@G@@F NOT. SYNTAX ERR0 IF SO, BUT NOT END OF FIELD.@F@@@@ . ELSE, TAPN )@@G@@KE SKIP RETURN WITH CORRESPONDING GRS ADDRESS. @ @@@@ L,U X1PO )@@G@@1,0,X11 @D@@@@ S X11,RGRTN . SAVE RETURN ADDRESS. PP )@@G@@@]@@@@ S$T @F@@@@ IF SMBL NE A2, /J *RGRTN . RETURN UNLESSPQ )@@G@@ ITEM A SYMBOL. @D@@@@ LMJ X11,REGADDR . UNLESS A REGISTERPR )@@G@@ NAME @E@@@@ J *RGRTN . IF NOT A REGISTER, RETURN. PS )@@G@@@D@@@@ IF A0 IS ZERO, /J *RGRTN . IF 'X0', RETURN. @F@@@@ PT )@@G@@ S A0,R2 . ELSE, SAVE GRS ADDRESS TEMPORARILY.@]@@@@ PU )@@G@@ S$NF@E@@@@ SYNTAX ERR0 . ERROR UNLESS END OF FIELD. PV )@@G@@@D@@@@ L A0,R2 . RECOVER GRS ADDRESS @D@@@@ PW )@@G@@ L X11,RGRTN . AND TAKE SKIP RETURN. @^@@@@ J 1,PX )@@G@@X11 @[@@@@/. @^@@@@. ALL ERRORS COME HERE. @ @@@@ERR0 LMJ X1PY )@@G@@1,F$(1) @ @@@@ERR1 LMJ X11,F$(1) @F@@@@L$(L$) AN,U X1PZ )@@G@@1,$+1 . CALCULATE RETURN ADDRESS CORRES- @E@@@@ A X1QA )@@G@@1,DCDRTN . PONDING TO TYPE OF ERROR. @^@@@@ J 0,X11 QB )@@G@@@^@@@@ J *DCDRTN @[@@@@. @[@@@@. @^@@@@DCDRTN $EQUQC )@@G@@F SCR @^@@@@EVRTN $EQUF SCR+1 @^@@@@IXRTN $EQUF SCR+2 QD )@@G@@@^@@@@RGRTN $EQUF SCR+3 @G@@@@/. WCFMT: SCAN PORTION OF COMMAND SQE )@@G@@TRING FOR WORD-COUNT AND/OR FORMAT @G@@@@. SPECIFICATION. ENTER WITH SQF )@@G@@CAN$ POINTING TO PRECEDING DELIMITER. USES@G@@@@. SAME REGISTERS AND SCAQG )@@G@@N$ PACKET AS DOES DCDAD. THE WC SPEC MAY BE AN @G@@@@. EXPRESSION. THEQH )@@G@@ FORMAT SPEC MUST BE 1-3 LETTERS. THESE SPECS, IF @B@@@@. GIVEN, MUSQI )@@G@@T TERMINATE THE STRING. CALL:@[@@@@. @ @@@@. LMJ X11,WCFMQJ )@@G@@T @[@@@@. @F@@@@. UPON RETURN, IF A WORD-COUNT SPECIFICATION WASQK )@@G@@ ENCOUNTERED, CELL@F@@@@. WCTFLAG WILL BE SET NON-ZERO. IF A FORMAT SPEQL )@@G@@CIFICATION WAS EN-@F@@@@. COUNTERED, FMTFLAG WILL BE SET NON-ZERO. ANY QM )@@G@@WORD-COUNT GIVEN @F@@@@. WILL BE FOUND IN A0 (WHOSE CONTENTS WILL BE ONQN )@@G@@E OTHERWISE). @F@@@@. THE CODE FOR ANY FORMAT SPECIFIED WILL SIMILARQO )@@G@@LY BE FOUND IN A1.@ @@@@. A2 WILL ALWAYS CONTAIN 0200.@[@@@@. @]@@@@QP )@@G@@WCFMT* . @ @@@@ L,U X11,0,X11 @D@@@@ S X1QQ )@@G@@1,WCFRTN . SAVE RETURN ADDRESS. @E@@@@ DL A0,(1D*/36+0) QR )@@G@@. SET DEFAULT WC, FMT TO 1, 0.@^@@@@ SZ SAVEFMT @ @@@@ QS )@@G@@ DS A0,SAVEWCT @[@@@@. @]@@@@FIELD S$TE@^@@@@ J QT )@@G@@ F$(1) @G@@@@ DL A0,SAVEWCT . IF END OF STRING, GET AQU )@@G@@NY WC, FMT FOUND. @B@@@@ J *WCFRTN . RETURN. @[@@@@QV )@@G@@. @D@@@@L$(L$) S$NS . ELSE, NEXT A SYMBOL? @E@@@@QW )@@G@@ J TRYWCT . NO. GO TRY FOR WORD-COUNT. @D@@@@ QX )@@G@@ L A4,A0 . YES. RESCUE SYMBOL @E@@@@ S$GO NXQY )@@G@@TITM,,W . AND PREVIEW NEXT CHARACTER. @]@@@@ S$G0@D@@@@ QZ )@@G@@ IF ' ',,U EQ A2 OR 077,,U EQ A2, /J TRYFMT @G@@@@ RA )@@G@@ . IF END OF FIELD, TRY FOR FORMAT MNEMONIC.@[@@@@/. @F@@@@RB )@@G@@TRYWCT TZ WCTFLAG . ELSE, UNLESS WC SPEC ALREADY FOUND,@^@@@@RC )@@G@@ SYNTAX ERROR @D@@@@ LMJ X11,EVX$ . EVALUATE ERD )@@G@@XPRESSION. @#@@@@ +0,EVABSYM@D@@@@ SYNTAX ERROR .RE )@@G@@ EXPRESSION IN ERROR. @D@@@@ TZ REGFLAG . EXPRESSION RF )@@G@@OK. IF GRS, @C@@@@ TL,U A0,054 . COUNT < 45, @D@@@@RG )@@G@@ TG,U A0,04000 . OR IF CORE, < 2048? @A@@@@ ERRORH )@@G@@R *2 . NO. @E@@@@ TLE,U A0,1 . YES. NON-ZERI )@@G@@RO AND POSITIVE? @A@@@@ ERROR *3 . NO. @F@@@@ RJ )@@G@@ S A0,SAVEWCT . YES. HOLD THE RESULT FOR EXIT. @E@@@@ RK )@@G@@ S ONE,WCTFLAG . MARK WC SPEC ENCOUNTERED. @C@@@@ S$TFRL )@@G@@ . END OF FIELD? @A@@@@ SYNTAX ERROR .RM )@@G@@ NO. @F@@@@ J FIELD . YES. CONTINUE ANALYZING STRINRN )@@G@@G. @[@@@@. @G@@@@TRYFMT LMJ X11,SETMASK . SET MASK ACCORDINRO )@@G@@G TO SYMBOL LENGTH. @C@@@@ L A1,(1,0) . SET SEARCH RP )@@G@@INDEX.@ @@@@ L,U R1,FMLLGTH @F@@@@ TNZ FMTFLAG RQ )@@G@@ . UNLESS FMT SPEC ALREADY FOUND, @F@@@@ MSE A4,FMTLIRR )@@G@@ST,*A1 . SEARCH FORMAT MNEMONIC LIST. @E@@@@ SYNTAX ERROR RS )@@G@@ . REDUNDANT SPEC OR NO-FIND. @F@@@@ S A1,SAVEFMT .RT )@@G@@ FOUND. HOLD THE RESULT FOR EXIT. @G@@@@ S ONE,FMTFLAG .RU )@@G@@ IF SO, MARK FORMAT SPEC ENCOUNTERED. @D@@@@ L A0,NXTITRV )@@G@@M . BUMP SCAN$ POINTER. @ @@@@ S A0,THSITM @E@@@@RW )@@G@@ J FIELD . CONTINUE ANALYZING STRING. @[@@@@. RX )@@G@@@[@@@@. @^@@@@SAVEWCT $EQUF SCR @^@@@@SAVEFMT $EQUF SCR+1 RY )@@G@@@^@@@@WCFRTN $EQUF SCR+2 0[@@@@L,1. @B@@@@/. FORMAT MNEMONICS AND RZ )@@G@@SCAN$ EXTENSIONS. @]@@@@$(0) . @]@@@@SYMLIST* . @]@@@@FMTLIST* . SA )@@G@@@#@@@@P $PROC *1@#@@@@FDEF* $NAME @^@@@@ +P(1,1),P(SB )@@G@@1,2) @ @@@@ $DO \P(1,1) , $END @ @@@@FMLLGTH** $EQU $-FMTLISSC )@@G@@T @^@@@@[P(1,1)]** $EQU FMLLGTH @]@@@@ $END@ @@@@ FDEFSD )@@G@@ +'OCT','$' @ @@@@ FDEF +'DEC','-' @ @@@@ FDEFSE )@@G@@ +'HWO','0' @ @@@@ FDEF +'SFP','1' @ @@@@ FDEFSF )@@G@@ +'DFP','2' @ @@@@ FDEF +'FDA','3' @ @@@@ FDEFSG )@@G@@ +'ASC','4' @ @@@@ FDEF +'TWI','5' @ @@@@ FDEFSH )@@G@@ +'QWI','6' @ @@@@ FDEF +'BMI','7' @ @@@@ FDEFSI )@@G@@ +'HEX','8' @ @@@@ FDEF ,'9' @]@@@@$(1) . SJ )@@G@@@G@@@@/. NCDAD: ENCODE RELATIVE ADDRESS IN FORM 'ELTNM.LC+RELADDR', OR SK )@@G@@IF @G@@@@. FOR SOME REASON, IT CANNOT BE COMPUTED, ENCODE 'SEGNM:ABSASL )@@G@@DDR'. CALL:@[@@@@. @ @@@@. L,U A0,ABSADDR @F@@@@. SM )@@G@@ L A1, @ @@@@. SN )@@G@@ LMJ X11,NCDAD @[@@@@. @B@@@@. (THE EDIT$ BUFFER MUST ALREASO )@@G@@DY BE OPEN.)@[@@@@. @G@@@@. IF THE PRESENT ITEM HAS THE SAME ELEMENTSP )@@G@@ NAME AS THAT OF THE PREVIOUS @ @@@@. ITEM, THE NAME IS OMITTED. @[@@@@SQ )@@G@@. @G@@@@. THE ROUTINE EXITS WITH A1 CONTAINING THE AET SUMMARY WORD SR )@@G@@(AETSMRY) @G@@@@. FOR THE SPECIFIED ADDRESS. THE CONTENTS OF THE SCHASS )@@G@@ET PACKET IS, HOW-@A@@@@. EVER, NOT ALTERED BY THE CALL. @[@@@@. ST )@@G@@@G@@@@. THE TWO ALTERNATE ENTRY POINTS 'NCDPAD' AND 'NCDBAD' REQUIRE NO SU )@@G@@PARA- @G@@@@. METER IN A1, BUT RATHER USE AND UPDATE THE AET SUMMARY WORSV )@@G@@DS 'PRVSPEC'@ @@@@. AND 'LPBRKPT' RESPECTIVELY. @[@@@@. @G@@@@. THE SW )@@G@@AUXILIARY ENTRY POINT 'NCDRAD' MERELY ENCODES THE RELATIVE ADDRESS@G@@@@SX )@@G@@. (WITH NO ABBREVIATIONS) DESCRIBED IN THE AET. NO INPUT PARAMETER IS SY )@@G@@@#@@@@. REQUIRED IN A1. @[@@@@. @G@@@@. THE ROUTINE ALTERS X11-A3, RSZ )@@G@@1, AND IS WORD-MODE INSENSITIVE. IT DOES @A@@@@. NOT ALTER ANY EMSG$ POTA )@@G@@INTERS. @[@@@@. @[@@@@. @]@@@@NCDAD* . @ @@@@ L,U TB )@@G@@ X11,0,X11 @^@@@@ J F$(1) @]@@@@NCDPAD* . @ @@@@TC )@@G@@ LXI,U X11,1*/12 @ @@@@ L A1,PLCTITM @^@@@@TD )@@G@@ J F$(1) @]@@@@NCDBAD* . @^@@@@ LXI,U X11,1*/6TE )@@G@@@ @@@@ L A1,BLCTITM @[@@@@. @F@@@@L$(L$) S X1TF )@@G@@1,NCDRTN . SAVE ENTRY FLAG, RETURN ADDRESS. @F@@@@ L A2TG )@@G@@,AETSMRY . RESCUE INITIAL AET SUMMARY WORD. @ @@@@ S A2TH )@@G@@,NCDAET @C@@@@ L A2,(1,AEPKT) . CLEAR OUT AET. @^@@@@TI )@@G@@ L,U A3,(0) @^@@@@ L,U R1,11 @^@@@@ BT TJ )@@G@@ A2,0,*A3@ @@@@ S FORTY,DNMCFLG @E@@@@ S A0TK )@@G@@,ABSADDR . ABSOLUTE ADDRESS TO AEPKT. @E@@@@/ LN,U A0,0 TL )@@G@@ . ASSUME PREVIOUS ITEM UNKNOWN.@F@@@@ IF A1 IS NONZ .TM )@@G@@ THEN PREVIOUS LCTAB POINTER GIVEN. @ @@@@ L,H2 A0,0,A1 TN )@@G@@@G@@@@ LXI,S4 A0,1,A1 . GET PREVIOUS ITEM'S ELEMENT NAME, LTO )@@G@@C#. @#@@@@ ENDIF @D@@@@ S A0,PVITEM . SAVE TP )@@G@@FOR COMPARISON. @E@@@@ LMJ X11,FREL . LOOK UP RELATIVE TQ )@@G@@ADDRESS. @H@@@@ IF A0 IS NONZ OR LCTPTR IS ZERO . THEN LOOKUP TR )@@G@@FAILED OR NO RELATIVE @I@@@@ DL A0,SEGNM . GET SEGMENTTS )@@G@@ NAME. \ ADDRESS EXISTS. @^@@@@ IF A0 IS NONZ TT )@@G@@@C@@@@ E$FD2 . ENCODE 'SEGNM:'. @^@@@@ TU )@@G@@E$FD ':' @E@@@@ ENDIF . CASE NON-VOID SEGMENT NTV )@@G@@AME. @D@@@@ L A0,ABSADDR . GET ABSOLUTE ADDRESS. @[@@@@TW )@@G@@. @D@@@@ ELSE . RELATIVE ADDRESS FOUND.@[@@@@TX )@@G@@. @E@@@@ L A0,PVELT . GET PREVIOUS ELEMENT INDEX. TY )@@G@@@H@@@@ IF ELI NE A0, /J F$(1) . IF DIFF FROM CURRENT, 'ELTNM.LCTZ )@@G@@+RELADDR'. @E@@@@ J F$(2) . ELSE, ENCODE '.LC + RELUA )@@G@@ADDR'.@F@@@@/. (BREAK IN HERE FOR UNABBREVIATED ENCODING OF DATA IN AEPKUB )@@G@@T.) @]@@@@NCDRAD* . @D@@@@ LXI,U X11,1*/17 . MARK ENTRY UC )@@G@@VIA NCDRAD. @ @@@@ S X11,NCDRTN @^@@@@L$(L$) E$FD2 UD )@@G@@ELTNM @^@@@@L$(L$) E$FD '.' @^@@@@ E$OCTV LC @^@@@@UE )@@G@@ E$FD '+' @ @@@@ L A0,RELADDR @H@@@@ UF )@@G@@ ENDIF . ABSOLUTE VS RELATIVE ADDRESS ENCODING MODE. UG )@@G@@@[@@@@. @G@@@@ E$OCTV . ENCODE THE NUMERIC PARTUH )@@G@@ OF THE ADDRESS. @H@@@@ IF NCDRTN IS POS . THEN CLEANUP REQUUI )@@G@@IRED. (NOT VIA 'NCDRAD'.) @G@@@@ L A1,AETSMRY . GET UUJ )@@G@@PDATED SUMMARY WORD FROM AEPKT. @F@@@@ L A2,NCDAET .UK )@@G@@ RESTORE AET TO INITIAL CONTENTS. @E@@@@ S A1,NCDAET .UL )@@G@@ RESCUE EXITING PARAMETER. @ @@@@ S A2,AETSMRY @ @@@@UM )@@G@@ LMJ X11,RSTAET @ @@@@ L A1,NCDAET @#@@@@UN )@@G@@ ENDIF @^@@@@ J *NCDRTN @[@@@@. @[@@@@. UO )@@G@@@^@@@@ ERRORS LOCAL @E@@@@ NERMSG 'NO PREVIOUS BREAK NUP )@@G@@OR TRAP ON RECORD.' @C@@@@ NERMSG 'NO PREVIOUS FIND ON RECORUQ )@@G@@D.' @E@@@@ NERMSG 'NO ADDRESS HAS BEEN PREVIOUSLY SPECIFIED.' UR )@@G@@@^@@@@ ERRORS END @[@@@@. @[@@@@. @^@@@@PVITEM $EQUUS )@@G@@F SCR @ @@@@PVLC $EQUF PVITEM,,H1 @ @@@@PVELT $EQUF PVUT )@@G@@ITEM,,H2 @^@@@@NCDRTN $EQUF SCR+1 @^@@@@NCDAET $EQUF SCR+2 UU )@@G@@@[@@@@. @]@@@@ $END_@@@@@R+1 @^@@@@NCDAET $EQUF SCR+2 UV )@@G@@@[@@@@. @]@@@@ $END_@@@@@ DELIMITER. )@@@Q[*()]@@)@@@%K)@K)[KUW )@@G@@)[K@@@@@@@@@/K@@@C*@@@[B C@@@;A]7@@@R';@@]@@[@@@SPECS AA@@@@)@ [F]@D]@ ]UX )@@G@@@H]@K^[@K)[@CC@@[B/K@@@J/K@@@H:8)@#@%8)@@ /,0@@@/,0@@@[@@@[BC@B@@YAB@@@@UY )@@G@@)@I[F]@[]@ ]@^@^C[K@@@@@/,0@@@R_@@@.[HO@@ CDO@@ [1^@@@C9@@@G @@@[[ @@@@.UZ )@@G@@/KBK@@AC@@@@)@R[EK^C@O[]@KK[@@@@@@@@/\@@#B!80@@H/K@@@\%8)@]@/,0@@@/K@@#CVA )@@G@@(@@@[I/K@@[E0@@@@HAD@@@@)@)[F]@ #@[@K0@K)[@@@@@@2@I)@]G^,@@@&\,@@@NWY@@@VB )@@G@@C8)@[H9?@@@H/K@@@!%@@@@G9*@@[^AE@@@@)@([F@^[]@^K)A^@@@@@@@@@^34@@@/\@@#BVC )@@G@@%8)@@./,0@@@ @@@@K9*@@[^/K@@@*%@Y@@[/K@@@!AF@@@@)@2[F]@SK[@K)[K)AK@@@@@@VD )@@G@@(@@@@K/K@@@//,0@@@[?@@[A/\@@#B!8@@[[/K@@@'%8)@[@/,0@@@AG@@@@)@;[F]@X]@ ]VE )@@G@@@K^[@K)CE@@@@@@@]Z/,0@@@/K@@[C/K@@[]:8)@@-%8)@@+/,0@@@ ^@@[A/,0@@@AH@@@@VF )@@G@@)[^[F@K^C@OC@OC]O@@@@@@@R_@@@:N8)@@[[HO@@ /K@@[4/,0@@@[^@@[AG^@@[A/,0@]$VG )@@G@@/K@@#BAI@@@@)[H[F]@OK^C[@K^C@OC@K@@@9*@@[[9!@@[[/K@@[W!80@@H:8)@]@/,0@@@VH )@@G@@/K@@[>0@@@@H/,0@@@AJ@@@@)[Q[EK)EK^[]@ @[@@@@@@@@/\@@#B%8)@@:(@@@[]/K@@[+VI )@@G@@9(@@@.8K)@[G/\@@#B/,0@@@R_@@@:AK@@@@)[Z[F]@ ]@ ]@^^@K^C@K@@@^:0@@//K@@[%VJ )@@G@@(@@@[]/K@@[%[C^@@ CG^@@ 9(@@[[9*@@@.9?@@[[AL@@@@)[*[F@K)[^C@O[]@)*C]@@@@VK )@@G@@/,0@]$/K@@#B@@@@[_/,0@@@/K@@[4**@@@/^34@@@ *@@@//,0@]8AM@@@@)[1[#]@ ]@ ]VL )@@G@@@!]@ @^[]@^@@@@@@@C@@@[B/K@@#C*@@@@G/K@@[.**@@@//,0@@@[C@@[BGC@@[BAN@@@@VM )@@G@@)[9[#]@D]@ ]@ ]@D]@ ]@@K)@@@@@A]7@@[R';@@@/KBK@@[C@@@;^R7@[R(0@@@/CC@@[BVN )@@G@@[@B@@YAO@@@@)][[F#@[@K)]K)[^[@K0@K@@/K@@]J%@@@@K/K@@]='^@K^9(@@@@H^\0@@/VO )@@G@@CCR@@Z/K@@]C%@@@@JAP@@@@)]E[F]@D]@^K^[#@[#@[@K@@/K@@]U/K@@]N:@@@@M%@@@@LVP )@@G@@/K@@]='^KK^9(@@@@H^70@@/C^R@[SAQ@@@@)]N[#]@D#@[]@D]@ ]@D@K^C#@@@@@/,0@@@VQ )@@G@@/K@@]='^)K^9(CB@@Y^30@@/GOR@[R:@@@@MCCR@@YAR@@@@)]V[F]@^K^C@[]@[]@4K@@@@VR )@@G@@/K@@#C*@@@@G/,0@@@A]7@@[R';@@@R]7@@[/K@@]=(@@@@GCCK@[BAS@@@@)]=[E^C@@K)@VS )@@G@@K)^^C@@@@@@@/KBK@]%8)@@,/,0@@@A]7@@]R';@@]')F@@[/KBK@[C8)@[@;?@@@=AT@@@@VT )@@G@@)]![F]@T@K[@K)]^C@@@@@@@P'0@@]R]7@@]C@G@@@G8B@@@/\@@#B!8@@@K/\@@#B/,0@]8VU )@@G@@/,0@@@AU@@@@)]6[E[]@[]@KK)@K)IK)@@@@/KBK@#/,0@@@/KBK@#%8)@]@/,0@@@A]7@@#VV )@@G@@R';@@@/KF@@[')F@@@AV@@@@)]_[EK)@^C#4@K)@^@@@@@@@/,0@#D/KF@@[R]7@@#C@@@[]VW )@@G@@/\@@#B/,0@@@[@@@[]/KBK@#(@@@@GAW@@@@)#C[F@E]^@@-@@CK@CS@CK@@ @B@@[9?@@@NVX )@@G@@A]7@@]R';@@@/KBK@@/KF@@@O]7@@@P'0@#E/,0@#DAX@@@@)#L[F]@[][[@K)@K)@K)LK@@VY )@@G@@RJO@@ C[@@@G/K@@#Z/,0@@@/KBK@]9?B@@@/K@@#Q/,0@@@9*B@@@AY@@@@)#U[F][D][G^VZ )@@G@@[]@ ][L]@)*@@@@@]Z/,0@@@/\@@@@*=@@@//K@@#\:8)@@_%8)@@ ')A@@@/,0@@@AZ@@@@WA )@@G@@)#<[F][L]@^^C L][P]@[]@^^$0@@/[@B@@@'^0K@@?8@@@['^)K@@!8@@)@?8@@@!**@@@/WB )@@G@@/\@@@@BA@@@@)#?[#][T][L@K)RK0@^C@OG@@@@@@@9[H)@@()@@@/N8K@@FC@K@@P/,0@@@WC )@@G@@/K@@#M/\@@@@/,0@@@BB@@@@)#4@3][L]@[]@^^@@@)@@@S@HWO@@0DEC@@-OCT@@$/K@@#MWD )@@G@@[C^@@ CG^@@ ^<0@@/[@R@@[/\@@@@BC@@@@)@#[C@@@@@@@)#'@E@R';@@@@@@@@9HEX@@8WE )@@G@@BMI@@7QWI@@6TWI@@5ASC@@4FDA@@3DFP@@2SFP@@1BD@@@@)#;[F@^C@=@K)]K)@K)[K)@@WF )@@G@@[@$@@]C@)@[BA]7@@[CGR@@Z&'0@[@/K@@^[CGR@@Y&'0[@@/K@@^[BE@@@@)^^[F#@@()@]WG )@@G@@^@E^@CC@@@@@/K@@^J(@@@@HD8@@@@[C@@[B^\)@[#M#\)@@N8K@@FC80@@RC@)@@QBF@@@@WH )@@G@@)^H[E^C@^C]1]@ @K^C@K@@@9?@@[[/K@@^X/K@@^P(G@@[B(@@@@G/,0@@@[@B@@@&:H@@[WI )@@G@@C^H@@@BG@@@@)^Q[EK^CA[][>]@ @K)@K)[@%W@@[AC^B@@@/K@@^?CC@@[B')])@@C/)@@:WJ )@@G@@/,0@@@/K@@^V(@@@@GBH@@@@)^Z[F@K[]@[]@ ][)K)TK)[@C?@@[A')])@@C/)@@./,0@@@WK )@@G@@9?@@[^A]7@@[&'0)@@/K@@^>/K@@^0@@@@H/,0@@@AJ@@@@@@^@@I@@M@@W@[E@@O@]U@@@WT )@@G@@@@E@@:@@@@^;)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@WU )@@G@@)@@@@@@@@@@]SCR NRSDATA RESDATA RSTAET STHIS$ WV )@@G@@SFIND$ SNEXT$ FEI EVX$ FABS SNEXT$D WW )@@G@@FREL FEPN FABSV REGADDR SNEXT$F STHIS$E WX )@@G@@SNEXT$S SGO$ SG$ STXERR GLBERR STHIS$F WY )@@G@@SETMASK EFD2$ EDIT$T EOCTV$ SVCERR ASC WZ )@@G@@@C@@@@@@@@@BBMI @C@@@@@@@@@EDCDAD @@[@@@@@@@@@DEC XA )@@G@@@C@@@@@@@@@]DFP @C@@@@@@@@@ FDA @C@@@@@@@@@AFMLLGTH XB )@@G@@@C@@@@@@@@@FFMTLIST @@@@@@@@@@@@HEX @C@@@@@@@@@FHWO XC )@@G@@@C@@@@@@@@@#NCDAD @@[@@@@@@@#'NCDBAD @@[@@@@@@@#_NCDPAD XD )@@G@@@@[@@@@@@@#/NCDRAD @@[@@@@@@@^-OCT @C@@@@@@@@@[QWI XE )@@G@@@C@@@@@@@@@DSFP @C@@@@@@@@@^SYMLIST @@@@@@@@@@@@TWI XF )@@G@@@C@@@@@@@@@CWCFMT @@[@@@@@@@#H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@E@@@@. COPYXH )@@G@@RIGHT 1979, B. E. CHI, SUNY-ALBANY, ALBANY NY 12222. @E@@@@. UTILITY ROXI )@@G@@UTINES AND COMMON DATA FOR NON-RESIDENT DX. @[@@@@. @]@@@@$(1) XJ )@@G@@ $LIT@]@@@@ MNM$@#@@@@ DXDEF @#@@@@ RESDEF XK )@@G@@@]@@@@ LOC$@]@@@@ IF$ @#@@@@ STXLOC @^@@@@LC13ENXL )@@G@@D* $EQU $(13) @[@@@@. @F@@@@PRINT1* . (X11). SINGLE-SPACE, PRINTXM )@@G@@ EDIT$ BUFFER, CLEAR BUFFER. @^@@@@ LXI,U A0,0114 @^@@@@ XN )@@G@@ J F$(1) @[@@@@. @F@@@@PRINT2* . (X11). DOUBLE-SPACE, PRINTXO )@@G@@ EDIT$ BUFFER, CLEAR BUFFER. @^@@@@ LXI,U A0,0214 @ @@@@L$(L$)XP )@@G@@ LXM,U A0,ED$BUF @^@@@@ ER PRINT$ @D@@@@ J XQ )@@G@@ ECLEAR$ . RETURN VIA ECLEAR$. @[@@@@. @H@@@@TREAD* . (XXR )@@G@@10). TERMINATE STRING IN ED$BUF, PRINT AND CLEAR. SOLICIT INPUT @G@@@@XS )@@G@@ . IN RD$BUF. RETURN TO 0,X10 IF INPUT VOID, 1,X10 OTHERWISE. XT )@@G@@@G@@@@ E$COLN . SAVE CURRENT COLUMN COUNT IN 'CHGMOXU )@@G@@DE'. @ @@@@ S A0,CHGMODE @F@@@@ E$FD1 '>':077,XV )@@G@@,U . TERMINATE STRING WITH >, RUBOUT. @F@@@@ T$READ ($GFORM XW )@@G@@18,0114, 18,ED$BUF, 18,RD$EOF, 18,RD$BUF) @D@@@@ LXI,U X10,0,A0XX )@@G@@ . RESCUE WORD COUNT. @C@@@@ E$CLEAR . CLEARXY )@@G@@ ED$BUF. @D@@@@ L A0,X10 . RECOVER WORD COUNT. XZ )@@G@@@^@@@@ SSL A0,18 @C@@@@ SN A0,RD$BUF,A0 . INSERYA )@@G@@T STOPPER. @B@@@@ JZ A0,0,X10 . RETURN. @^@@@@ YB )@@G@@ J 1,X10 @[@@@@. @A@@@@PSKIP* . (A0). SKIP A PRINT LINE. YC )@@G@@@^@@@@ LXI,U A0,0100 @^@@@@ ER PRINT$ @^@@@@ YD )@@G@@ J 0,A0 @[@@@@. @[@@@@/. )[@@@@. @H@@@@SWMODE* . (XYE )@@G@@11). SET WORD MODE FOR EINS$ AND FORMAT CODE FOR NCDW USING PSR. @#@@@@YF )@@G@@ SZ A1@D@@@@ L A2,UPSR . GET USER'S WORD MYG )@@G@@ODE. @A@@@@ IF 010,,U OP A2, /L,U A1,1 @A@@@@ IF 1,,U OPYH )@@G@@ A2, /L,U A1,2 @D@@@@ L,U X9,TWI,A1 . SET FORMAT CODE IYI )@@G@@N X9. @^@@@@ J 0,X11 @[@@@@. @[@@@@. @C@@@@NRSINIYJ )@@G@@T* . (X11). INITIALIZE NONRESIDENT DX. @D@@@@ S X11,ED$BYK )@@G@@UF . SAVE RETURN ADDRESS. @D@@@@ L A0,(AEPKT,AETAB) . IYL )@@G@@NITIALIZE SCHAET. @ @@@@ LMJ X11,SCHAET @E@@@@ S YM )@@G@@ FORTY,DNMCFLG . MARK APPLICATION AS DYNAMIC.@D@@@@ L X1YN )@@G@@1,ED$BUF . RESTORE RETURN ADDRESS.@^@@@@ L,U A0,EPKT @E@@@@YO )@@G@@ J EDIT$ . INITIALIZE EDIT$ AND RETURN. @E@@@@/. ENCYP )@@G@@ODE THE WORD IN A0 ACCORDING TO FORMAT CODE IN X9. @[@@@@. @#@@@@YQ )@@G@@NCDW* . (X11). @D@@@@ L,U A2,' ' . ENCODE LEADING SPYR )@@G@@ACE @H@@@@ IF SPFLG IS NONZ, /E$FD . LEADING SPACE IF APPROPRIAYS )@@G@@TE TO FORMAT. @]@@@@NCDW0* . @E@@@@ L A1,ED$A1 .YT )@@G@@ GET ANY FORMATTING PARAMETER @C@@@@ J *ENCODE . AND YU )@@G@@GO ENCODE. @[@@@@. @[@@@@. @]@@@@$(0) . @I@@@@F $FORYV )@@G@@M 6,6,1,5,18 . WDS/LN, EDIT$ A1, LDG-SPACE FLAG, , NCDG ROUTINE. YW )@@G@@@]@@@@FMTTAB* . @G@@@@ F 4,6,1,,HFOCT . 0: 2 OCTAL HALF-WYX )@@G@@ORDS (NO-SPEC DEFAULT). @D@@@@ F 4,12,1,,OCT . 1: FULL-WORYY )@@G@@D OCTAL. @D@@@@ F 4,12,1,,DEC . 2: FULL-WORD DECIMAL. YZ )@@G@@@D@@@@ F 4,6,1,,HFOCT . 3: 2 OCTAL HALF-WORDS. @D@@@@ ZA )@@G@@ F 4,,1,,EFLP$ . 4: S.P. FLOATING-POINT.@D@@@@ F 4,ZB )@@G@@,1,,EDFLP$ . 5: D.P. FLOATING-POINT.@C@@@@ F 8,5,1,,FDA .ZC )@@G@@ 6: FIELDATA. @B@@@@ F 4,,1,,EASC$ . 7: ASCII. @F@@@@ZD )@@G@@ F 1,,1,,EINS . 8: INSTRUCTION MNEMONIC, TW MODE. @F@@@@ZE )@@G@@ F 1,1,1,,EINS . 9: INSTRUCTION MNEMONIC, QW MODE. @G@@@@ZF )@@G@@ F 1,2,1,,EINS . 10: INSTRUCTION MNEMONIC, BYTE MODE. ZG )@@G@@@E@@@@ F 4,9,1,,HEX . 11: FULL-WORD HEXADECIMAL. @]@@@@ZH )@@G@@$(1) . @^@@@@OCT LMJ A3,F$(1)@^@@@@ +EOCTF$,EOCTV$ ZI )@@G@@@^@@@@DEC LMJ A3,F$(1)@^@@@@ +EDECF$,EDECV$ @^@@@@HEX ZJ )@@G@@ E$FD 'X' @^@@@@ LMJ A3,F$(1)@^@@@@ +EHEXF$,EHZK )@@G@@EXV$ @^@@@@L$(L$) L A3,0,A3 @E@@@@ IF 'PRI',,U EQ CD OR 'ZL )@@G@@PCT',,U EQ CD, /SSL A3,18 @^@@@@ J 0,A3 @[@@@@. ZM )@@G@@@D@@@@HFOCT LXI,U A2,+($GFORM 5,0, 1,-0, 7,0, 5,-0) @^@@@@L$(L$)ZN )@@G@@ LSSC A0,3 @^@@@@ AND,U A0,7 @ @@@@ LXM,U A2ZO )@@G@@,'0',A1 @]@@@@L$(L$) E$FD@^@@@@ JPS A2,B$(2)@^@@@@ ZP )@@G@@ JNS A2,0,X11@^@@@@ LXM,U A2,',' @^@@@@ J B$ZQ )@@G@@(1) @[@@@@/. @]@@@@FDA . @^@@@@ L A2,A0 @^@@@@ZR )@@G@@ LSSC A2,6 @]@@@@ E$FD@^@@@@ JGD A1,$-2 ZS )@@G@@@^@@@@ J 0,X11 @[@@@@. @]@@@@EINS . @G@@@@ ZT )@@G@@ IF (DX$BRK ) EQ A0 . THEN INSTRUCTION IS A PROGRAMMED BREAK. @B@@@@ZU )@@G@@ L,U A0,('PROGRAMMED BREAK&')@^@@@@ J EMSG$ ZV )@@G@@@#@@@@ ENDIF @^@@@@ L A2,A0 @B@@@@ AND ZW )@@G@@ A2,(I$ -0,-0,-0,-0,-0,0) @F@@@@ IF (CIOPR 0) EQ A3 . THEN ZX )@@G@@INSTRUCTION IS A CODED IOPR. @C@@@@ L,U A0,0,A0 . ISOLAZY )@@G@@TE U-FIELD. @E@@@@ DL A1,(OBV('ERROR #')) . ENCODE 'ERROR ZZ )@@G@@#[U]'.@#@@@@L$(L$) E$FD @^@@@@ DSL A1,6 @ @@@@ AA )@@G@@ DJZ A1,EDECV$ @^@@@@ J B$(1) @#@@@@ ENDIAB )@@G@@F @[@@@@. @G@@@@ IF 'CHA',,U EQ CD, /J EINS$O . U-FIELD IAC )@@G@@N OCTAL IF 'CHANGE'. @E@@@@. J EINS$P . ELSE, ENCODAD )@@G@@E SYMBOLICALLY. @[@@@@. @]@@@@EINS$P* . @G@@@@ L,U A2AE )@@G@@,NCDPAD . ENCODE INSTRUCTION, ENCODING U-FIELD @G@@@@ J AF )@@G@@ F$(1) . SYMBOLICALLY ACCORDING TO 'PRVSPEC'. @[@@@@. AG )@@G@@@]@@@@EINS$B* . @G@@@@ L,U A2,NCDBAD . ENCODE INSTRUCTIOAH )@@G@@N, ENCODING U-FIELD @G@@@@ J F$(1) . SYMBOLICALAI )@@G@@LY ACCORDING TO 'LPBRKPT'. @[@@@@. @]@@@@EINS$O* . @H@@@@ AJ )@@G@@ L,U A2,EOCTV$ . ENCODE INSTRUCTION, ENCODING U-FIELD OCTALLY. AK )@@G@@@A@@@@L$(L$) LXI,U A2,(LMJ X11,)*/-18 @ @@@@ S A2,EINS$AL )@@G@@U @^@@@@ J EINS$ @[@@@@. @[@@@@. @ @@@@ENCODEAM )@@G@@ $EQUF FMTTAB,X9 @ @@@@WPL $EQUF ENCODE,,S1 @ @@@@ED$A1 AN )@@G@@ $EQUF ENCODE,,S2 @ @@@@SPFLG $EQUF ENCODE,,S3 @[@@@@/. AO )@@G@@@]@@@@$(10) . @]@@@@NRSDATA* . @I@@@@ NRSGEN,1 .AP )@@G@@ GENERATE NONRESIDENT DX TABLE (DYNAMIC FLAG SET). @]@@@@ $ENDAQ )@@G@@_@@@@@L$(L$) LXI,U A2,(LMJ X11,)*/-18 @ @@@@ S A2,EINS$AR )@@G@@U @^@@@@ J )@@@Q[*()]@@)@@@2K[#@(]@[]@^@@/K@@@@'=@@@@Q;@@@JAS )@@G@@&;@@]G/K@@@#&;@@[G@@[@@@UTILITAA@@@@)@A[F]@D]@GK)^E]^@*-@]@@C@@@@E/,0@@@AT )@@G@@&'?@@@'=@@@@C8@@[X/,0@@@C8@@>_[0B@[N/,0@@@AB@@@@)@J[MK0E@K)@[]@G@@=8)@@CAU )@@G@@C@$@[N @@@@H/KG@@@'=@@@@&;@@[@/KE@@[/@E@@@]@G@@@;C@@@MAC@@@@)@T[E[]@SK0EAV )@@G@@K^C[4G])@@@@^\)@[#/,0@@@C@@@[ZA]0@@J/KF@@@R'X@@@C8K@@]=8)@@[C8K@@[AD@@@@AW )@@G@@)@+[##@(#@(]@)K0@K)DK0@K0@@@@@/KDK@@C0T@@@')])@@*?D@@@C8)@@ /K@@@@C8@@@2AX )@@G@@R]0@@JAE@@@@)@@@8()]O0[ES@>G@M=[LM@?()]@@@@@@@@@C )@[@^@)@@@^@)@@@^A)@@7AY )@@G@@^G)@@?^G)@@%^A)@@7AF@@@@)@B@*(@SO0[ES@>G@M&@C@@@)@%@F@@@@@@@@@@@@@/\0@@2AZ )@@G@@^D)@@,[])@[ [[)@[ [@)@[ ^@)@@@AG@@@@)@:@'1@XEKA*[+[]O)J^C]O@1@>EKC)@@@@@BA )@@G@@@@@@@@/\0@@2')])@@C/)@@X@@@@@@/\0@@2@@@@@@AH@@@@)@2[M@@[]@=@@@@@@@')])@@BB )@@G@@Q;!@@0+8@@@B;)@@@#&;)[@Z/KJ@@@;C0@@M:;0PCT%;0PRIC@_@@@AI@@@@)@/[N@[@[]@>BC )@@G@@@^@@@@%@@@[)/KF@@@8#K@[[')])@@;))@@AC@)@@G/K@@@;Q;)@@,'G:@@@'C)@@8AJ@@@@BD )@@G@@)[A[F@E]^]S)C]@C@@@@@@@@9?K@[&C8G@@@/K@@[N%@0@[>+@)@[=C@)@@G/K@@@@C8@@[-BE )@@G@@/K@@[DAK@@@@)[J[F]@=K)JK[@EKEC[M[O@@C8)@@@/K@@[UC8)@@@/K@@[T:;0CHA/K@@[JBF )@@G@@98K@@@;GK@@A')])@@AL@@@@)[S@:@EKA+^]2^]8@@)@@@Y[K@@@@@@@@@@@@@@@@@@@@@@@BG )@@G@@/K@@@@[@)@@@&;)/,0C8)@@@/K@@[UAM@@@@)@#[Y[K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AN@@@@)@I[Y[K@@@@@@@@@@@@@@@@@BI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AO@@@@)@T[Y[K@@@@@BJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP@@@@BK )@@G@@)@=[Y[K@@*@@@@@@@@@@@@@@[@_@@@@[ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BL )@@G@@@@@@@@AQ@@@@)@\[Q[KEKG @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[[@@@@@@@@@@&&G@@JBM )@@G@@@@@@@@___@@@@@@@@@AR@@@@)@9[Y[K@@@@@@@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AS@@@@)[^@&[K@@@@@)[X@V#@*1@3K0ECA[P#@*@@@BO )@@G@@@@.@[C@@@@@@@[G@@J@@@@@@@@@@@@@@@@@@@@@@@@AT@@@@)[)[#][*@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@ RORRE@@@@@#@%)@@@___0@@REAK& MMED BPROGRA'$)@@@AU@@@@@@@@@@@@@@@@BQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR )@@G@@@@^@@I@@M@@V@[C@@I@]@@@@@@E@@G@@@@[*)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@BS )@@G@@)@@@@@)@@@@@@@@@[C)@@@@@)@@@@@@@@@@]PRINT$ ECLEAR$ ECOLN$ BT )@@G@@RESDATA EFD1$ TREAD$ TWI SCHAET EDIT$ BU )@@G@@EDIT$T EFLP$ EDFLP$ EASC$ EOCTV$ EOCTF$ BV )@@G@@EDECV$ EDECF$ EHEXV$ EHEXF$ EMSG$ NCDPAD BW )@@G@@NCDBAD EINS$U EINS$ SYMLIST RD$EOF ERR$ BX )@@G@@EINS$B @@[@@@@@@@[REINS$O @@[@@@@@@@[TEINS$P @@[@@@@@@@[PBY )@@G@@FMTTAB @@@@@@@@@@@@LC13END @@H@@@@@@@@]NCDW @@[@@@@@@@@>BZ )@@G@@NCDW0 @@[@@@@@@@@*NRSDATA @@E@@@@@@@@@NRSINIT @@[@@@@@@@@YCA )@@G@@PRINT1 @@[@@@@@@@@@PRINT2 @@[@@@@@@@@]PSKIP @@[@@@@@@@@NCB )@@G@@SWMODE @@[@@@@@@@@QTREAD @@[@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@CC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@]@@@@NOT TPCD )@@G@@F$. @^@@@@LIB SYS*DX.,SYS*NN. @]@@@@ NOT RES @]@@@@ IN ERRORS CE )@@G@@@I@@@@ IN BREAKS,CMMD,FIND,GETPUTWD,MAP,MISC,PATCH,PCT,PGTERM,PRINT,SPECCF )@@G@@S,DCDWORD,EVX$ @ @@@@ IN DCDWORD-LC13,EVX$-LC13 @#@@@@ IN UTILITIECG )@@G@@S @]@@@@DEF NONRES @]@@@@DEF NRSINIT @]@@@@DEF ICTY @[@@@@END CH )@@G@@_@@@@@AC3^@)@^@@@@^[DD0)*[S@@@*SDFF*@]@@@@NOT TPF$. @^@@@@LIB SYS*DX.,CI )@@G@@SYS*NN. @]@@@@SEG DXSEG @#@@@@ IN DXLEVEL,DX @]@@@@ ENT DX CJ )@@G@@@#@@@@MINGAP 020000 @#@@@@MINSIZE 020000 @]@@@@RSEG NRSEG @]@@@@CK )@@G@@ IN NONRES @]@@@@RSEG RSSEG @]@@@@ IN RES @[@@@@END _@@@@@END CL )@@G@@_@@@@@@@@@ YNRREGS @@@@^^PRTON @@@@#0RES @@@@@@RESDATCM )@@G@@)@@[M@^G@CC))@@@@@C8G@@ED@K@@G9*)@@E;^!@@@9?)@@@T8K@@AW/@__9;G@@@=C8@@[CCN )@@G@@!8@@[DAA@@@[)@E@UK+)@@@@)@@@4@@@@@@@ CO )@@G@@/KF@@@'=@@@@&;H@[]AB@@@[)@A@4@@@@@@@)@@@K@@@@@@@@@@@@@ ^? @@@@@@CP )@@G@@@@@@@@ AC@@@[)@H[N[^^KL[KO [@@@9(@@@M^@)@@LA]0@@KCQ )@@G@@[40@@I;C0@@Z[?)@@I;G)@@<[0K@@I;GK@@A[@@@@JAD@@@[)@R[N@KO @K^^K^[[@C4@@@HCR )@@G@@/[@@@'/,0@)99*K@@K[@0@@H/K@@#N/,0@AHC@@@@J[^@@@I/,0@)4AE@@@[)@-[N@K^@^@^CS )@@G@@[@@@@@/K@@@!/K@@#C!9@@@C!9@@@#/K@@@!:9@@@J%9@@@@/K@@@:/K@@@!/KG@@-AF@@@[CT )@@G@@)@:[MK[@^@^[[@@@@@C4)@@I/K@@@9!8K@@C!8K@@^CCH@KKC@K@@K')]))VC/)@@,/K@@#CCU )@@G@@!9@@@IAG@@@[)@5[UK@K@@@@*@@@[] @@@[]?9@@@IN8)@@[N@K@@K @@@@F/,0@)9C8H@@0CV )@@G@@:8)@@]C^H@KK:8)@@[AH@@@[)[@[M[@K[[KL@@@@@@/,0@)*?@K@@GG0@@@IC^@@@IC@K@@GCW )@@G@@/,0@)4')]))VC/)@@ @@@@K @@@[[AI@@@[)[E[MKO[@K^[@K^[@@/ @@#C/K@@[Y/K@@[PCX )@@G@@/K@@[S/K@@[U/K@@[X/K@@[80@@#%[K@@H/K@@]@/ K@#C/^0@#CDC )@@G@@/K@@[;/K@@#C>80@@]AN@@@[)[/[MK^@KL@[@@@@@@')]))V%8@@@ C8)@@,/K@@]A1@@@@FDD )@@G@@C*@@@H&;0__"/H@@]@/[K@]@!9@J__AO@@@[)]A[M[@K[@^[@@@@@@/KG@]K/C0@#C*@@@[[DE )@@G@@')]))VC/)@@*/C0@#C/K@@]H>80@@[D[K@@L=80@@]AP@@@[)]K[N@K^[@K^[@K@@@(@@@[]DF )@@G@@C@@@@K/G0@]!/K@@#!/ @@#C/K@@]R/K@@]Y/K@@](/K@@]?/K@@]!AQ@@@[)]U[N@K^[@K@DG )@@G@@K[#@@@E@I@@]C@)@@K/K@@]!!9@@]L(@@@@L/H@@#C/K@@]//,0@)9/K@@]!/,0@B]AR@@@[DH )@@G@@)]=[MK0@)C@)C]@@@@E@@@@K/C0@#C/K@@]!/[K@#C!9@@]L/K@@]//,0@);C8K@@$0@I@@]DI )@@G@@ @@@@HAS@@@[)],[N[@K[@K^[[@@@@')@@@G/C0@];/H@@]9/K@@];Q#@@@K/K@@]5(@@@[]DJ )@@G@@:8K@@>%8K@@=C4K@@JAT@@@[)]8[N@^[@^@K[@@@@@/DK@#^E@@@@L')]))VC/)@@,/[K@#!DK )@@G@@1@@@@L/,0@-2')]))VC/)@@-/K@@]/AU@@@[)#][MK^[]^C]@)]]))C^@@@IH @@@IC[@@@GDL )@@G@@/,0@)4/K@@#!/,0@)9'=@@@@/,0@B]')]))VC/)@@*AV@@@[)#G[N@^[@K^ @^ @@@/K@@#,DM )@@G@@*?@@@ID8@@@@/,0@)*C^@@@I8^@@#J')]))V/K@@#KC8)@@ /,0@)*AW@@@[)#Q[N[^@K[@KDN )@@G@@K@@@@@C@@@@K;H@@@YC[@@@J')]))VC/)@@(')]))VC/)@@ /,0@+@C8K@@GC@@@@JAX@@@[DO )@@G@@)#)[MK@[@[@@@@@@@@/,0@+@C8K@@]C@@@@K')]))VC/)@@ ;!@@@^ @@@@KN8K@@]/,0@+@DP )@@G@@C8K@@]AY@@@[)#%[#@^@KO [@@@@@@@@@@@@@@@@@@/KF@@@R]0@@KN@)@@L9!@@@M @@@@GDQ )@@G@@')]))VC/)@@)8KK@# ? < = : ; 8 9 6 7 4 5 2 3 0 1 BD@@@[DV )@@G@@)^P[U@@@@@@@ Z [ X Y V W T U R S P Q N O L M J K H I DW )@@G@@ F G BE@@@[)^)[U@@@@@@@ P. Q. N. O. L. M. J. K. H. I. F. G. D. E. B. C.DX )@@G@@ VG A. ^ LU \ ] BF@@@[)^:[U@@@@@@@+8K@@_;=@@@D;G@@@[C80@@# LT BR LV BCDY )@@G@@ Z. BO X. Y. V. W. T. U. R. S.BG@@@[)^6[EK[@K[@K@@@@@@@@@@@@/KF@@@8#0@^4DZ )@@G@@/^)@^';C)@@A')]))VC^,@#20@@@@GCC,@#21@@@@GBH@@@[)@][S@@@@@@@ABORT$EXIT$ EA )@@G@@COM$ WANY$ WAIT$ IODYA$EDJS$ IOW$ IOI$ IO$ @@@@@0BI@@@[)@H[S@@@@@@@EB )@@G@@IOXI$ IOWI$ TIME$ DATE$ IOARB$IOAXI$CSF$ PRINT$READ$ TFORK$FORK$ BJ@@@[EC )@@G@@)@S[S@@@@@@@ERR$ WALL$ BBEOF$CRTN$ IDENT$INT$ FITEM$LABEL$ABSAD$II$ ED )@@G@@EABT$ BK@@@[)@<[S@@@@@@@CMSA$ CMH$ CMD$ CMO$ CMI$ CMT$ CMS$ LCORE$EE )@@G@@MCORE$READA$MCT$ BL@@@[)@,[S@@@@@@@COND$ SETC$ PCT$ OPT$ NRT$ RT$ EF )@@G@@TWAIT$CADD$ CGET$ CPOOL$TDATE$BM@@@[)@9[S@@@@@@@IALL$ CEND$ 9%72799%*&79EG )@@G@@9%727?9%*&7?9%?7299%>?729%*?&99%*1?&UNLCK$BN@@@[)[^[S@@@@@@@FACIL$TSQCL$EH )@@G@@RSI$ LOAD$ PFWL$ PFUWL$PFD$ PFS$ PFI$ SWAIT$TREAD$BO@@@[)[J[S@@@@@@@EI )@@G@@SWTCH$SNAP$ MSCON$CTSA$ CTS$ CTSQ$ TSQRG$TRMRG$CQUE$ INFO$ BDSPT$BP@@@[EJ )@@G@@)[U[S@@@@@@@TLBL$ 97,1$&ACSF$ PRTCN$TINTL$TSWAP$AWAIT$ROUTE$EXSNP$FFORK$EK )@@G@@PUNCH$BQ@@@[)[>[S@@@@@@@PRTCA$ADACT$CLIST$CREL$ CJOIN$DACT$ ACT$ NAME$ EL )@@G@@PNCHA$PRNTA$FACIT$BR@@@[)[0[S@@@@@@@9&*5969*5969AREAD$PCHCA$PCHCN$ACCNT$EM )@@G@@XCTS$ ADED$ BANK$ PSR$ SETBP$BS@@@[)[;[S@@@@@@@SYSER$ERRPR$SIO$ SYMB$ EN )@@G@@USER$ $-$89,RLIST$UNLNK$EXLNK$RLINK$LINK$ BT@@@[)]A[S@@@@@@@STAB$ @@0215EO )@@G@@SUVAL$SREG$ CREG$ SMU$ LOG$ LEVEL$IOADH$IOLNK$CKRS$ BU@@@[)]L@K@)^_[]KEP )@@G@@[@K@@@;GH@@*T8K@@^C8.@@E8#K@ ]')]))VC8)@@0/GK@ ^H8K@@EPRMDB$PRMGA$BV@@@[EQ )@@G@@) B[N@@K^@^@@@@@@@C8)@@0/^@@ H;G@@@^G80@@[/K@@ I/K@@ S?8@@@EC8?@@0 @@@@JER )@@G@@/K@@ TBW@@@[) L[N@@@K^@@@@@@@@/KF@@@8#0@ M')]))VG/)__;?8)@@0G8)@@0?8)@@EES )@@G@@+8K@@J;)K@@^')]))VBX@@@[)]N[S@@@@@@@@[ @*J@[^@)I@[#@(H@[]@'G@[[@&F@@)@%EET )@@G@@@[Y@$D@@<@#C@[X@"B@[V@!A@[@@ @BY@@@[)]Y[S@@@@@@@@[K@5U@[J@4T@[I@3S@[H@2REU )@@G@@@[G@1Q@[F@0P@[E@/O@[D@.N@[C@-M@[B@,L@[A@+KBZ@@@[)]([S@@@@@@@@@(@@ @[U@?_EV )@@G@@@[T@>^@[S@=]@[R@<\@[Q@;[@[P@:Z@[O@9Y@[N@8X@[M@7W@[L@6VCA@@@[)]4[S@@@@@@@EW )@@G@@@@'@K+@@>@J*@@*@I)@@%@H(@@=@G'@@&@F&@@"@E%@@.@D$@@/@C#@@:@B"@@!@A!CB@@@[EX )@@G@@)]_[S@@@@@@@@@6@V6@@5@U5@@4@T4@@3@S3@@2@R2@@1@Q1@@0@P0@[W@O/@@?@N.@@-@M-EY )@@G@@@@_@L,CC@@@[)#E[C@@@@@@@) V@E@ @@@@H@[Z@_?@@+@^>@@,@]=@@\@\<@@;@[;@@$@Z:EZ )@@G@@@@9@Y9@@8@X8@@7@W7CD@@@[) W[M[@K^[@@@@@@@@B4@@[[C8G@@@N@)@@J/\)@A]9@W)F"FA )@@G@@C@@@B,N@)@B!N8K@^B^@)@@J;G@@@SCE@@@[) &[MK@K[@EB]-0*W@H8@@@G:8@@]9%8@@]8FB )@@G@@/K@@ "(8I@@@QR\@K;D8)@@@D8K@@@CO/@F.B0@@[)CF@@@[) 0[N@K@^[@^[@@@@@/K@@ 0FC )@@G@@QR?@F.;GK@@M/K@@ '(OG@F.C8I@@@G@K@@G;C@@@YD@I@F.LSI@F.CG@@@[) '[N@K@@K@@FD )@@G@@@@@@@@Q;@__"N8K@@G/K@@A0;K)@@MB0I@@@Q#)@[[D8K@@@;GK@@M/K@@ "1OG@F.CH@@@[FE )@@G@@)A^[V@K^@@@@%8@@@8;G@@@Y/KF@@@N@)@@J/KI@@@;C@@@S;*@@@S+8@@__C@G@K^/K@@AFFF )@@G@@9@W)K CI@@@[)AJ[N@[@[@K@@@@@@@;^K@@==8@@)@/C@@A8@@@)C^G@K4H8@@R3/KF@@@!8@@R'!8@@R3FN )@@G@@/KF@@[;C@@@A>8@@@)CP@@@[)BS[N@@K[@K^@@@@@@N8K@@V/K@@B=/K@@B-2CH)K-N8K@@VFO )@@G@@C@K@B,;C@@@M/KF@@@%8K +@@@B1CQ@@@[)B+[V@K@@@@@/KF@@@G8@ ;*@@@M/KF@@[FP )@@G@@H8@@@H!8@@[KG8@@@-!8@@@)C8H@@@/K@@B%2^H)KACR@@@[)B![U@^@@@@@/KF@@@C8@@@ FQ )@@G@@Q9G@@@A G@@][@W@@ C@K@F8@@@___@@__0@@___)@@@[__"____@@CS@@@[)B8[M@K[@^@@FR )@@G@@@@@@@@C8@@[@/K@@CLC8@@[@/K@@CPC8@@K@/K@@CLC8@@K@/KF@@@Q ^@@]C8^@@@CT@@@[FS )@@G@@)C][N@^@K[@^@@@@@@C8@@^@/K@@CPC8@@#@/K@@CLC8@@#@/K@@CPC8@@]@/K@@CLC8@@]@FT )@@G@@/K@@CPCU@@@[)CG[N@^@K@^@@@@@@@C8)@#[/K@@CR;KK@@MC@O@@ C8)@#]/K@@CMC8)@##FU )@@G@@/K@@CPC8@@^@/K@@CLCV@@@[)CQ[M^@[@^@@@@@@@@;G@@[C/K@@EJ:8)@##/,0@F%[G^@@ FV )@@G@@[CO@@ AA4@@[/GK@E[ @@@@JCGO@@ CW@@@[)C)[N@K^@@^@@@@@@@R'0@@C/K@@C,!80@@CFW )@@G@@R]0@@JR'0@@EC44@@] ?^@@]/K@@DQ/K@@D?/,0@E.CX@@@[)C%[M@[@K^[@@@@@@@/K@@D@FX )@@G@@/K@@DI/,0@E./K@@C4P'0@@JA24@@]R'0@@E%8)@@0R'0@@K*@@@@JCY@@@[)C4[U[@^@[@@FY )@@G@@C8)@@[/@@@C19)@@@IS0^@@];?@@@=/GK@C";G)@@=/K@@DD!0=@@]1@@@@IH8)@@0CZ@@@[FZ )@@G@@)C_[N@^@^@K[@@@@@@/K@@DN*0^@@[/K@@C8G8)@@^/K@@DB?8)@@A?8)@@G/K@@DB0@@@@FGA )@@G@@/K@@DEDA@@@[)DD[U@K@[@@@CCO@@ /K@@D7O,4@@]R'0@[@C0O@@]C@@@@H/K@@C1;G@@[CGB )@@G@@[?4@@])?=@@]C8)@@]DB@@@[)DO[N@K[@K^[@@@@@@;C0@@MC@0@@F/S@@@@/K@@D=/,0@E.GC )@@G@@/K@@DY9?@@F9 @@@@J')A)FZ/,0@F?DC@@@[)DY[U^@^@@@@T80@@AC80@@G!80@@H;C0@@MGD )@@G@@C@0@@F/K@@DTG@K@@I;?@@@A/K@@DT!80@@G&'_@@[DD@@@[)D([M^@K@^[@@@@@@@')A)FZGE )@@G@@/K@@D;(4^@@[:8)@@ R]0@@I/K@@D9:?=@@[/K@@D7R'0@]@;^J@@@DE@@@[)D3[MK[@K^@KGF )@@G@@[@@@@@/,0@F1C@)@@FR[K@F/R'0@#@/K@@D;P[)@F;/K@@D2:8)@@ /K@@D9:?=@@[DF@@@[GG )@@G@@)D.[U@@@@@@@:8)@]@%8)@[@O'0@@[:@)@@J%80@^@:8)@#@%8)@@ RA4@@[;C0@@M[G4@@ GH )@@G@@&J4@@ DG@@@[)EC[V@@@^@K@/K@@EZ]@K@@ /K@@EN*C^@@ /KF@@@HC4@@ CG4@@ /KF@@@GI )@@G@@ @@@@J;G@@[C/K@@EGDH@@@[)EN[MK[@[@^[@@@@@@O[)@F;/K@@EQ&;@@@[/=@@EW/S@@@@GJ )@@G@@Q;@@@[/,0@E. @@@@G')A)FZ&.)__"DI@@@[)EX[V@^@@@@@C@^@@ [@@@[[/KF@@@ @@@@IGK )@@G@@RA4@@[[@4@@ QF4@@ ;*0@@M/,0@F1O9)@@[>@@@F;DJ@@@[)E*[M@^@K[@@@@@@@@/K@@E4GL )@@G@@%?=@@[')A)FZ9?@@@ /,0@F%AA4@@[[CO@@ /GV@@@CGO@@ ;K@@@MDK@@@[)E2[N@K[@K@@GM )@@G@@@@@@@@RA4@@[C@K@@JG8H@@@T8@@@A[G4@@ /,0@F1/K@@E,%@)@[[/K@@E6R[K@F/DL@@@[GN )@@G@@)E/[UK@[@@K@/K@@FC2)\)@@QF4@@AN4O@@@/K@@FC(4^@@@&;0@@[/KF@@@:?=@@[')A)FZGO )@@G@@/KF@@@DM@@@[)FB[U^@[@@@@?8)@@)/KF@@@?8)@@A/KF@@[/K@@FJ2)\)@@QB4@@AN0O@@@GP )@@G@@/K@@FJ(0^@@@/KF@@@DN@@@[)FM[U@[@K@@@H8)@@[Q9)@@ P9K@@[/K@@ER/(K@FU/KF@@@GQ )@@G@@/KF@@]?8)@@'/KF@@@?8)@@0/KF@@[DO@@@[)FX[UK@@^@@@Q9)@@@O9K@@[/\)@F&C)=K@@GR )@@G@@C==K@@C*=K@@C?=K@@C0=K@@C4=K@@/\)@FS/KI@@@DP@@@[)F*[U@@@@@@@T80@@AC@0@@ GS )@@G@@/KF@@@&9)@@[9*@@@ W8@@@A @@@@GA[=@@^A[O@@#/KI@@@H8)@@[DQ@@@[)F3[V@@@@@@@GT )@@G@@@@@@@@______@@[@@[ ___@@@/KF@@@R[=@@^R[O@@#G/6@@@%@0@F/DR@@@[GU )@@G@@)F"[U@@@@@@@@LNM@^@@LM@^@@LN@#@@LA@#_J[K@@@@SX@]_J[@__@@SR@[@@SM@@@@SN@@GV )@@G@@@@SA@@DS@@@[)GD[U@@@@@@@@LXM@B@ANX@B@@AX@B@@LR@A@@BT@ @ANU@#@@AU@#@ANM@^GW )@@G@@@@AM@^@ANA@#@@AA@#DT@@@[)GO[U@@@@@@@@XOR@#@@OR@#_B[0@@@@DF@#@DSF@#@@DI@#GX )@@G@@_J[)@@@@MF@#@MSI@#@@MI@#@@LX@BDU@@@[)GZ[U@@@@@@@@TLE@#@TNE@#@@TE@#@TNZ@CGY )@@G@@@@TZ@CTLEM@B@LXI@B@TOP@#@TEP@#@MLU@#@AND@#DV@@@[)G%[U@@@@@@@@SNW@E@@SW@EGZ )@@G@@@@SG@E@SLE@E@SNE@E@@SE@E@@TN@D@@TP@D@TNW@#@@TW@#@@TG@#DW@@@[)G5[U@@@@@@@HA )@@G@@@SP1@G@SNZ@G@@SZ@G@@@@@@_J#E@@_J]'@@_J]*@@_J]S@@_J]C@@_J[8@@@JGD@FDX@@@[HB )@@G@@)H@[U@@@@@@@@ENZ@G@ENZ@GDEC2@GINC2@G@DEC@G@INC@G@SAZ@G@SAS@G@SFZ@G@SFS@GHC )@@G@@@SN1@GDY@@@[)HF[U@@@@@@@@LCB@I@LOP@H@LIP@H@LOA@H@LIA@H@SOP@H@SIP@H@SOA@HHD )@@G@@@SIA@H@ENZ@G@ENZ@GDZ@@@[)HQ[U@@@@@@@@BTC@N@BTT@N@BMT@M@@BM@M@LBJ@J_[#U@BHE )@@G@@@SPD@L@LPD@K@LIJ@J@LDJ@J@LPI@IEA@@@[)H-[U@@@@@@@@@FB@N@BDF@N@@BF@N@DIB@NHF )@@G@@@@IB@N@BDI@N@@BI@NEDIT@M@PDB@M@BPD@M@@BC@NEB@@@[)H?[U@@@@@@@MSNE@Q@MSE@QHG )@@G@@@BAN@P@@BA@P@DBQ@O@QDB@O@BHQ@O@QBH@O@@BQ@O@@QB@O@DFB@NEC@@@[)H7[U@@@@@@@HH )@@G@@@DLN@R@@DL@R@@DS@R@DAN@R@@DA@RMASG@QMASL@QMSNW@Q@MSW@Q@MSG@QMSLE@QED@@@[HI )@@G@@)I][U@@@@@@@@ANT@V@@AT@V@ANH@V@@AH@V@JNS@U@JPS@U@SLJ@T@IMI@S@DTE@R@DJZ@RHJ )@@G@@@DLM@REE@@@[)IH[U@@@@@@@@SSL@+@DSC@+@SSC@+@LRS@-@SRS@-@TRA@)@SCN@ZPAIJ@YHK )@@G@@@@@@@@@@ER@X@@EX@WEF@@@[)IS[U@@@@@@@_J#%@;_H#W@;LDSL@+LSSL@+LDSC@+LSSC@+HL )@@G@@DLSC@<@LSC@<@DSA@+@SSA@+@DSL@+EG@@@[)I<[U@@@@@@@@JNB@=AAIJ@>@NOP@&@@HJ@>HM )@@G@@@@@J@>@@JN@=@@JP@=@JNZ@=@@JZ@=_]#/@;_[#'@;EH@@@[)I,[U@@@@@@@SIOF@%@LIC@(HN )@@G@@@HJK@*@@JK@*@JNC@>@@JC@>_#^#@/_##_@/@LMJ@$JMGI@$@@JB@=EI@@@[)I9[U@@@@@@@HO )@@G@@AACI@,@@@@@@@JFC@!LTCW@?@LCR@?@DOC@:@JOC@(@HCH@%@HDV@%@TSC@%@JIC@(EJ@@@[HP )@@G@@)J^[U@@@@@@@@CDU@0MCDU@0@LCF@0@LUF@0@@FD@0@@FM@0@FAN@0@@FA@0@PCI@\@ACI@\HQ )@@G@@PACI@,EK@@@[)JJ[U@@@@@@@@III@2@SJS@1@LBR@1@FCL@0@FEL@0DLCF@0@DFU@0@DFD@0HR )@@G@@@DFM@0DFAN@0@DFA@0EL@@@[)JU[U@@@@@@@@SDC@3@DDC@3@EDC@3@LDC@3@@@@@@@@@@@@HS )@@G@@@III@2@III@2@III@2@III@2@III@2EM@@@[)J>[U@@@@@@@@@LB@5@TAP@5@RAT@5SPID@5HT )@@G@@IIIX@5@LQT@5LBRX@5@@@@@@@SIL@5@MDB@4@MDA@4EN@@@[)J0[U@@@@@@@@TSS@8@@TS@7HU )@@G@@@LLA@6@LCR@6@SSS@5@@UR@5@@SD@5@@LD@5@SQT@5@LAE@5@@LL@5EO@@@[)J;[U@@@@@@@HV )@@G@@@SMA@#@SNA@]JNDF@/JNFO@/JNFU@/@JNO@;@JDF@'@JFO@'@JFU@'@@JO@9@TCS@8EP@@@[HW )@@G@@)KA[U@@@@@@@W W @DFP#RMSNG['@SNG@4@TNG@?TNGM@$ANMA@J@AMA@ILNMA@F@LMA@EHX )@@G@@@LNA@DEQ@@@[)KL[U@@@@@@@S3 S3 S4 S4 S5 S5 S6 S6 T1 Q1 T2 Q3 T3 Q4 XH1Q2 HY )@@G@@XH2XH2H1 H1 H2 H2 ER@@@[)KW[U@@@@@@@X6 R2 X5 R1 X4 A19X3 A18X2 A17X1 A16HZ )@@G@@X0 A15XU XU U U S1 S1 S2 S2 ES@@@[)K$[U@@@@@@@A5 R13A4 R12A3 R11A2 R10IA )@@G@@A1 R9 A0 R8 X11R7 X10R6 X9 R5 X8 R4 X7 R3 ET@@@[)K2[U@@@@@@@]^@^@@][@^@@IB )@@G@@A14J3 A13J2 A12J1 A11J0 A10SR3A9 SR2A8 SR1A7 R15A6 R14EU@@@[)K.[U@@@@@@@IC )@@G@@]@@^@ [ @[@@[[[^@@#A@^@@[A@^@@[#@^@@[^@^@@]#[^@@#[@^@@[[@^@@]#@^@@EV@@@[ID )@@G@@)LC[U@@@@@@@@[@^@9@[[^@9@AN[@Z@[M @Z@[N[@V@AN[@V@A@^@B@A@@@B@#@[@B@[2@@BIE )@@G@@@[0@@BEW@@@[)LN[U@@@@@@@@[@]@;@[@@@'@#@@@'@]@^@'@A)[@'@A@#@'@A@^@'@[@^@'IF )@@G@@@[@[@'@A@[@'@])@@'EX@@@[)LY[U@@@@@@@@])@]&@#)@]&@]) @.@#)@@.@])@@.@]@[@/IG )@@G@@@#@[@/@]@@@/@A@[@/@[@[@/@[@^@;EY@@@[)L([U@@@@@@@@@K[]$@@@[]$@@)@]&@@)@]>IH )@@G@@@@)@]=@@) ]=@])@]=@@0@[Y@[@^@"@]0@]&@]) ]&EZ@@@[)L4[U@@@@@@@KV\:0)@@@@@@II )@@G@@KI$^@@@@@@@@KB2@@@@@@@@@K^*@@@@@K[]5@@@[]5@@K[]4@@@[]4FA@@@[)L_[U@@@@@@@IJ )@@G@@"9797YXN%$;:2S#(.Z/8.<9K[)@@@FJ@@@[)NZ[MKO^KO[@^@@@@@1@ @@^/-)@N?0@ @@^/[)@N?/K@@PXIU )@@G@@ S@@@O(W^@@^ @@@@V[@@@@OD8@@@@FK@@@[)N([N@^@KO[[KO [@@]PK@@O]TK@@O*S@@@OIV )@@G@@[XK@@O/K@@OW:XK@@OCPP@@^/K@@PX/S )@@/>)@N?FL@@@[)N3[N@@[]^]]@@@@@@&RI@@]IW )@@G@@9*@@@V9?I@@@'=@@@@2XY)@ NWO@@#&;)@@#G^=@@#C8=@@#/,0@RNFM@@@[)N.[M@KO@^ @IX )@@G@@@@@@@@/K@@OE:@@@@V&;@D-B0@ @@^C@@@R$[@@@@XH8@@@[;*@@@DGOI@@]QVI@@]FN@@@[IY )@@G@@)OB[N@^[[K^[@KO[@@/,0@-N/,0@-2CW@@@O/,0@-QC8@@R*/,0@);9?@@@V')]))VC/)@@ IZ )@@G@@/,0@)9FO@@@[)OL[N[^[@KL@K^^@@@C8@@]@ @@@@V/,0@-N/,0@+@C8K@@AC^@@@X/,0@-NJA )@@G@@/,0@+@C8K@@ACC@@@XFP@@@[)OV[N@[[K^ [K^ @@@C@@@R% @@@@V/,0@RN]O@@@O[S@@@OJB )@@G@@/K@@O\:S@@@OCC @@#C5P@@^/,0@RXFQ@@@[)O>[MK^@K^^K[@@@@@/,0@RXC8@@]@/,0@R+JC )@@G@@C8O@@^CS@@@O')]))VC/)@@ /,0@)9C@@@R:=9K@@]FR@@@[)O\[MKO[[^@K[@@@@@/,0@)*JD )@@G@@C/@@@S/K@@O;>9K@@K/,0@R+C8O@@ [O@@@O/K@@O;:O@@@OC^ @@#FS@@@[)O9[N@K[@^@^JE )@@G@@[@@@@@/K@@P /,0@+@C8K@@]C* @@^/K@@P#=9K@@^/,0@)*C/@@@H/,0@);9?@@R?FT@@@[JF )@@G@@)P#[MK[@K[@[[@@@@@[@K@@VKC )@ C^ @@ /K@@PK=9K@@C')]))V')]))VC/)@@ /,0@)9JG )@@G@@C8@@CBFU@@@[)PH[UK^@@[@@C8O@@ ')]))VC/)@@[C^G@@#G^^@@AG8^@@AT8@@@#C^ )@ JH )@@G@@/K@@PV/,0@+@C8K@@AFV@@@[)PS[N@^@K^[@K^[]E@'=@@@@C@@@R4/K@@Q//,0@RN8^@@N>JI )@@G@@/,0@RXC8@@[@')]))VC/)@@]/,0@R+FW@@@[)P+[U@K[@@@@;*@@@DGO @@]QV @@]&R @@]JJ )@@G@@/,0@);9? )@#/K@@P/&9K@@#O O@@#R9O@@#CX^@@#FX@@@[)P![MKL@K^^K[@@@@@')]))VJK )@@G@@C/)@@-/,0@+@C8K@@ACC@@@V')]))V')]))VC/)@@ [@@@@VH8@@@[FY@@@[)P7[N[^@K^[@JL )@@G@@K[@@@@C8@@R5/S^@@B/\K@R^/K@@Q/8^@@P$/,0@RXC8@@[@/,0@+@C8K@@AC^@@@VFZ@@@[JM )@@G@@)Q[[N@K[@K[@^@@@@@CC @@]/,0@)*C/@@@H/,0@);9? )@#/K@@Q@@]C(W@@[G8^@@@C^ @@]/,0@-QJO )@@G@@C8@@R9/,0@+@C8K@@AGB@@@[)QQ[M@K^@K^@@@@@@@C@@@@M/,0@-N/,0@+FC@@@@L/,0@-NJP )@@G@@/,0@);9?G@@@G?^@@ G^^@@ G8^@@ GC@@@[)Q)[N@^[@K^@K^[@@@/[@@Q8/,0@-QC8@@R;JQ )@@G@@/S^@@C/\K@R^/K@@Q/8^@@QA/,0@RXC8@@[@/,0@-2GD@@@[)Q%[MK^@K[@[@@@@@@/,0@+@JR )@@G@@C8K@@GC@ @@]/,0@)*C/@@@H/,0@);9? )@#/K@@Q6/,0@RXC8@@]@GE@@@[)Q4[MK^[@K^@JS )@@G@@K^^@@@B0G@@@C@@@@P/,0@RXC8@@]@/,0@)9C@@@S[/K@@Q/8^@@Q!/,0@RXC8@@[@GF@@@[JT )@@G@@)Q"[N[KO [KL[KO [@9(@@@SA]0@@RA[K@@QAD@@@P/KF@@@QD@@@PR[K@@QR]0@@RC[)@@UJU )@@G@@9!@@@SGG@@@[)RC[V[KK@@@@/KH@@[CXHK@@O XK@@&!XK@@R9XK@@C[)@@G;C@@@MQ[@@@GJV )@@G@@B0@@[@B4@@@P[[)@@UGH@@@[)RN[N[^ @K^^K^^@@@C8@@[@QE0@@V/,0@+@C8K@@AC^@@@VJW )@@G@@/,0@-QC8@@S]AE0@@V/KF@@@(@@@@VGI@@@[)RX[M[]EC@@)@@@@@@/K@@);9?G@@]G^H@@@JX )@@G@@G8H@@@;*@@@[/K@@)]'=@@@@G^[@@@;*@@@MG?[@@@GJ@@@[)@O[O@@@@@@@@@@@@@@@@@@@JY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK@@@[)R$[U@@@@@@@JZ )@@G@@ES. BC TABLGNOSTINO DIARLIB$)@@@@@(@RSEG:@SGMT:&-&)& [&] (I-BANKGL@@@[KA )@@G@@)R2[U])@@@@@ALIZEDEXTERN& &.&+ & NAMES:POINT ENTRY @[A@R,RE: KB )@@G@@ANKS AGM@@@[)R.[]@@@@@@@)@Y@G@@@@@@@@@@@@@DDR: &USED A1ST UN@@NONE & KC )@@G@@LUES: UTE VA ABSOLGN@@@[)S [F@K^ [K^[[KO@@@@@@@@/\0@X&'^@@@Z'^)@@Z/,0@WIKD )@@G@@/\0@X&'^@@@Z'^K@@Z/,0@WO/\0@X&GO@@@[)SI[F@KO @K^ [K^@@@@@@@@/,0@W$/\0@X&KE )@@G@@'^@@@Z'^0@@Z/,0@V(/\0@X&'^@@@Z'^0@@Z/,0@V,GP@@@[)SR[N[KO[@KL@@@@@@;*K@@MKF )@@G@@C8K@@[CW[@@D/\@@XBR82@@A' @@@Z/,0@W?/\0@X&'^@@@Z' @@@ZGQ@@@[)S-[MK@K@^ @KG )@@G@@@@@@@@/\0@X*'^@@@Z[?L@@D;CK@@G[WL@@#/K@@S-C^N@@[!^N@@[/K@@S&2^#)@#GR@@@[KH )@@G@@)S:[M^[[KO[@KO[[@@' @@@Z/,0@W?'^)@@Z/,0@WF/\0@X&'^@@@Z'A0@@Z/,0@V9[W[@@#KI )@@G@@C8@@__GS@@@[)S5[MK@K@K[@@@@@@@/\0@W3CO<@@[/K@@T[%*N@@[:^#)@#/K@@T[C?L@@DKJ )@@G@@CW[@@D/\@@XBR82@@AGT@@@[)S_[N@K^@KL[^@@@@@C4#@@[/K@@S5 0[@@#' 0@@Z(0[@@#KK )@@G@@' )@@Z1W[@@#8KK@S'/K@@TC/K@@T[GU@@@[)TD[UK@@^^@@[C[@@EG^#@@]'A@@@Z!C#@@]KL )@@G@@C^[@@DO^2@@AR8/@@#T8@@@#C^#@@]/K@@TJ>8@@@CGV@@@[)TO[MK[[K])CC))@@@94K@@$KM )@@G@@R82@@B0@@@@$R82@@CR'0@Z8/\0@X&9*@@@$90@@@G/K@@U^AG1@@EGW@@@[)TY[N@^ [[@KKN )@@G@@[@@@@@/K@@T!*@[@@E/\0@X*/K@@T![@L@@EG8M@@@'^@@@Z1@@@@$C@N@@]/\0@XFGX@@@[KO )@@G@@)T*[M^@KL@^@@@@@@@C8]@@A/K@@U9]W[@@#/C@@T1CG[@@E'^@@@Z[?-@@A/,0@X]C?-@@AKP )@@G@@C8[@@@GY@@@[)T2[U@^^@@@@[?[@@DC*#@@[[W[@@DC^#@@@RG1@@E'BK@@Z,G[@@EG@K@@GKQ )@@G@@T?M@@ACWM@@AG^]@@AGZ@@@[)T.[V@K-@@@@[W[@@#CO#@@[[W[@@ACC#@@@ @[@@@[^[@@DKR )@@G@@H^#@@]CC[@@ERG1@@E'=@@@@/,0@W$HA@@@[)UC[N@K^[[K^^K[@@@/K@@U$CC[@@E/\@@XBKS )@@G@@R82@@A'^0@@Z/,0@V<'^)@@Z/,0@WF/\0@X*/K@@VWHB@@@[)UM[M^@K[@[@@@@@@@/K@@U[U@K@^^@@R82@@ 9?L@@B' K@@Z(@[@@B/KF@@[9*L@@B/\0@XSCW[@@DR82@@ /KF@@[LK )@@G@@[@[@@]HQ@@@[)W0[V@@@[[KK:^)@@=%C)@@=/KJ@@[(0[@@#/KJ@@@1W[@@#/KJ@@[:W-@@#LL )@@G@@/KF@@[[W[@@D/\0@XFHR@@@[)W;[MKO^^^^@@@@@@@N8K@@EK@@@Z; @G@@@;C@@@M[@@@@YLM )@@G@@/KJ@@@/KJ@@[:^)@@>%C)@@>/KJ@@[HS@@@[)X [U@@KO@KK2@KK@&D8#@@@/\@@XB[)@@@&LN )@@G@@C?#@@@/KG@@@O^3@@@&?3@@@NWN@@@/KF@@@M#W)@@HT@@@[)XK[U^@KL[@@/KF@@@!W#@@@LO )@@G@@1@@@@G/KJ@@@W)@@@&;G@@@=H)@@@&G8#@@@/K@@XJ%@<@@[/KF@@@HU@@@[)XV[U@@@@@@@LP )@@G@@/KJ@@@ @@@@I(W]@@^*?[@@AGC+@@@;*)@@]/KJ@@@9?N@@]O8/@@@O^3@@@;*@@@[HV@@@[LQ )@@G@@)X&[MK[[KO [[[@@@@[W@@@N?L@@@ ?[@@]&80@@[Q8W@@@IM@@@[))E[U@@@@@@@MK )@@G@@P^1@@@A4-@@[/KF@@@O^1@@@Q01@@[&80@@[Q4-@@[&8)@@[Q8W@@@A@/@@ A@?@@^IN@@@[ML )@@G@@))P[U@@@@@@@[=<@@@[*<@@@[?<@@@[0<@@@[4<@@@/KF@@@R@/@@ R@?@@^Q^L@@#C8[@@@MM )@@G@@A01@@[IO@@@[)))[V@@[@@@@G^[@@@W8@@@A;G@@@=/KF@@@')]))VC8?@@@/K[K@]Q8)@@@MN )@@G@@A^-@@][)<)@@/?)@)-IP@@@[)):[U@@^@@@@H^[@@@C8#@@@/K@@)*G8H@@@T8K@@AH^L@@@MO )@@G@@C8N@@@G8]@@@/KF@@@Q8/@@@Q8!@@@IQ@@@[))6[U@K@@K@@/K@@-]:8)@@@%8)@@ +8K@@_MP )@@G@@;^@@[]C80@@F/K@@)/C80@@ /KF@@@G8]@@@T8@@@AIR@@@[)-[[V@K@K@@@&;K@@[&;@@@[MQ )@@G@@;CK@@M;G@@@MC8.@@@&'0@@@/K@@-B&"0__"/KF@@@8#0@)/')]))VIS@@@[)-G[N@^@^[@[MR )@@G@@@@@@@@/K@@-SC^L@@[C?[@@[/K@@-G')]))V%8)@@@0@@@@F')G)-*/KF@@@8#0@-IIT@@@[MS )@@G@@)-Q[M@K[@^[@@@@@@@')]))V/K@@-=:4-@@@/K@@--:0-@@@')G)-*&;K@@[&;@@@[;CK@@MMT )@@G@@;G@@@MIU@@@[)-)[V@@@K@@@C?!@@@C0!@@@C4!@@@/K@@-QR#H@@@O;K@@[*8G@@@/KF@@@MU )@@G@@[^L@@[[?[@@[/K@@-UIV@@@[)-:[U^@@[@@@G80@@[/@@@-';G@@@#C80@@@/K[K@]Q;@@@@MV )@@G@@[^[@@]C)!)@@/\@@-,C=!@@@C*!@@@IW@@@[)-6[MK[@@K^@@@@@@@/KF@@@8#0@-'')]))VMW )@@G@@G8)@@0;=K@@#C8)@@@')]))VC8)@@0/^@@-5;G@@@#IX@@@[)+@[MK[@K@^@@@@@@@&'0@@0MX )@@G@@/K@@-';GH@@$T8K@@#R;.@@G8#K@+]')]))VR;)@@0/GK@+ P;K@@HIY@@@[)+E[V@@@@K@@MY )@@G@@8KK@+PG8.@@0;?)@@AE/X@@@W8@@@E;O@@@=C80@@@N8X@@@&'0@@ C8K@@@/K@@+HIZ@@@[MZ )@@G@@)+P[N@K@K@^[@@@@@@')]))V/K@@+Z;C)@@MR#)@@FC@K@@I8KK@+UG80@@-;?)@@A/C@@+UNA )@@G@@/^@@+JJA@@@[)+Z[#@^@K@@@)@(@O@D8@@@[/SG@@@ @@[@@@/KF@@@/^)@+-;GK@@ANB )@@G@@')]))VC@)@@J8KK@+YJB@@@[)@:[P[K0@OKKL[@@@@;C@@@Q[^@@@5G8@K@@/K@@@\(?G@@@NC )@@G@@G8@@@[H8@@@(G@G@@@H@@@#VC@@K@(JC@@@[)@5@OK@@@@@@)#N@0* @* @* @@@@@@[ @^@ND )@@G@@@[ @#;@[C@#3@[E@#(@[D@#)@[^@#W/K@@*2C@@K@@JD@@@[)#T@L[K@@@@@)+$@2*]]]^U@NE )@@G@@@@@@@@G0B@[NG8@@@[CC^@@ [@@@@7H8@@@[R'0@*3@@G@#N@@@@@(JE@@@[)+![F@K1*CS[NF )@@G@@[^GU)@@@@@@@'^@KNV )@@G@@/K@@+$JS@@@[) :8)@#@/K@@=./,0@CH/K@@> :8)@#@CD^@@ /?@@@@KD@@@[OI )@@G@@)>#[N@[@^[@K^[# @@**@@@//K@@<[/K@@+$/,0@9]/,0@B;[D^@@ /K@@>M(@@@@K @@@@KOJ )@@G@@/\@@+$KE@@@[)>H[F@K1MA@K1M]-)^[]HC@@' @K*(*?B@[N/K@@>T%@@@^7'^@@@8CC@@[BOK )@@G@@' @K#T(?@@[@'^)K*(KF@@@[)>Q[F]HCL(@[]HCL(]HCK=@@'^B@@@^N7@[O[GB@[QCGB@[OOL )@@G@@C80@@KC[@@@G/K@@>%9*B@[K9?B@@GKG@@@[)>Z[F]HCL(]HCL*K[@@@@@@@:8@@@M'^0K*(OM )@@G@@(@@@@H/K@@>%0@@@@G GB@[Q[GR@[OCGR@[QDGB@[OKH@@@[)>*[MK5ON )@@G@@3@!)@]D8)@@@ @@@@K/,0@&R/\@@+$%8)@#@/K@@*4[GB@[OC8H@@[KI@@@[)>2[M^@K[@K0OO )@@G@@]@@@@@C8)@@S/,0@-QC8@@^8/,0@+FC@@@@K' KK*((@@@@K/K@@>0G9@@@[[@!@@@KJ@@@[OP )@@G@@)>/[MK^[@K^[@K^[@@/,0@&R/\@@+$/,0@CB/K@@<[/K@@+$/,0@9]/K@@*1/,0@-N')]))VOQ )@@G@@%9@@@[KK@@@[)&A[N# CS*^@K[@@@@2@H)@]/K@@&Q[@!@@@' )K*(2@H)@]/K@@&J%;0CLEOR )@@G@@D8)@@@&B@@[#CC@@[BKL@@@[)&K[N@K^@K[@^C4@@@&;K@@]C8R@@-N8K@@J/K@@*4[@H@@@OS )@@G@@'A@K*(2@!)@]/,0@&R' 0K*(/K@@&MKM@@@[)&U[M^[@[@K0@)@@@@/K@@&&6[!)@]C[0@^/OT )@@G@@/,0@&R @@@@OD9)@@@/,0[D#/\@@+$%8)@#@/KF@@@KN@@@[)&=[MK^G@)@C@-+)@@HD0@[COU )@@G@@C]@@@N/K@@&5:]@@@N;D0@@MC[)@@N/K@@$E:[0@^//K@@&+C[.@@@KO@@@[)&,[MK1M@-+=OV )@@G@@@K@K@@/,0@+@C8K@@AC@@@@M')]))VC/)@@:/,0@);9?@@[[/,0@SH[X0@[#;D0@@]KP@@@[OW )@@G@@)&8[EK^GO)C@)CS(@@@@@@@@/K@@$^1@@K[#')]))VC/)@@ /,0@.@[^@ -@[B@ U@[B@ N@[B@ G@[A@ ALB@@@[PK )@@G@@)**@U()^ @@@)^,@0[]^@@@@ NEXT: <&>& '$)@@@ = & [P]: &)@@@@@@@G@*Z@@@@@(PL )@@G@@@[ @ 6LC@@@[)^4[S[]K@@@@////////////Z_____ED.& CLEARPOINT& BREAK'=@@@@PM )@@G@@@@[@@@_/@@@@ & LD@@@[)^_[S@@@@@@@CEED 5MAY EXCOUNT NO GO ATED. TERMINPN )@@G@@M HAS PROGRA@@[__",& :& & &LE@@@[) E[S@@@@@@@PT TO (ATTEMAGE. N STORPO )@@G@@IN MAIST BE ESS MUE ADDREXECUT77). 11(=07LF@@@[) P[S@@@@@@@1106/8LE ON PP )@@G@@VAILAB NOT AS TRAPADDRES.) GNOREDSTER IP-REGIALTER LG@@@[) )[S@@@@@@@PQ )@@G@@BREAK RESS. IS ADD AT THAK SETNO BREND. TS FOUAKPOINNO BRE. LH@@@[PR )@@G@@) :[S@@@@@@@ SET. BREAKLL. NOIST FUOINT LBREAKPESS. S ADDRAT THIY SET PS )@@G@@ALREADLI@@@[) 6@*@@@@@@@)*:@+^CC-A)@ WB@[R[@B@@@&;@@]]D8@@@@Y SET.RRENTLPT )@@G@@RAP CURESS TNO ADDLJ@@@[)*\[F]HC]A@K++@CL(# CS@@C@K@BA @@@@/ 0B@[NB0@@[)PU )@@G@@/,0@)]'=@@@@C@@@B /K@@*3 )B@[PLK@@@[)*8[F]HCS(]HC[KK=EA@K^G@C@@@BI/K@@(#PV )@@G@@>@@@BB'=@@@@C8@@(2/K@@(F*)B@[P9*)@@@9?$@[MLL@@@[)([[F]EC]^UK0]@)CS[]EC@@PW )@@G@@/K@@*9'=@@@@C@@@BR8#K@*9/K@@(E>@@@BJ**B@[P/K@@*9'=@@@@LM@@@[)(E[F@E]^S[#PX )@@G@@ CS(#@CS@@@@:@@@BT%@@@BSC@@@@@]@G@@@*@@@@GC8G@@@'=@@@@C8@@(7/K@@(HLN@@@[PY )@@G@@)(N[#@K0]A@K0]A@K0]AEK1K@@@@@@R_@@@:[@@@@@C@@@BW:@@@BXC@@@BW:@@@BV%@@@BUPZ )@@G@@/K@@(QLO@@@[)(V[N@@K^[@^[@@@@@/K@@6G/,0@CHC[@@@G/,0@(?/K@@6G/,0@C ^34@@@QA )@@G@@[?^@@[C8@@@_/,0@B2LP@@@[)(>[EK^[@K0]A@^G@@@@@@@@:80@@]N@)@BY/K @@@R P@ ;QB )@@G@@CF5@ ;/K@@6G/,0@%M/,0@B.%8)@#@LQ@@@[)(,[F#@]A@])SEAE^[] @@@@/KB@@@/C@@*3QC )@@G@@>_____@(5@@@@[[@(4/KF@@@N@)@B):80@@[N@)@BZLR@@@[)(7[M0OGO@]^O^@@@@/KF@@@QD )@@G@@/^K@('G8I@@@'=@@@@&;I@[@;=K@@^ @@@@I $DXC$ @*\@@@LS@@@[) ;[@()M)O0DQE )@@G@@KES^* G]O@@@@@@@@@@[A@B%BAN@,V@[]@B*BRE@&V@[^@B=ABS@!W@[#@B-ADD@, LT@@@[QF )@@G@@)A#[@()M)O0DKES^* G]O@@@@@@@@@@[]@B_CLR@>:@[ @B'CLE@&@@[ @B5CML@0;@[ @B0QG )@@G@@CHA@6JLU@@@[)AF[@()M)O0DKES^* G]O@@@@@@@@@@[B@CIEXE@='@[A@CCDIS@0*@[]@CAQH )@@G@@DEB@2+@[ @C[DEF@0LLV@@@[)AN[@()M)O0DKES^* G]O@@@@@@@@@@[^@CZFIN@%:@[ @CUQI )@@G@@EVA@13@[]@CSERR@2R@[#@CPENT@!WLW@@@[)AV[@()M)O0DKES^* G]O@@@@@@@@@@[#@C,QJ )@@G@@JUM@SYN@+,MC@@@[)%B@V@^@@@@@)@#@QH G]@@@)%E@N@@@@@@@QQ )@@G@@C[@@@G/,0@(?@@[@*:CMMD /\@@+$%8)@]@/K@@%MMD@@@[)%G[F@K^[#@CS[@^C4@@@@@@QR )@@G@@N8K@@>*0B@[PN8K@@)/K@@*2C@ @ /'^@K#T/,0@%M/\@@+$/,0@CDME@@@[)%P[##@CS@]&QS )@@G@@@K0]@)@@@@@@@@@@@@/K@@*4/,0@('C@K@FWC8@@EU/KF@@[/KF@@@9[ ) .R[K@ETMF@@@[QT )@@G@@)B [T# @@@O@K@@@@@@[A@BC. CARDEDGE DISOR IMAE: INF>>>NOT]@@@@@)@@@@@QU )@@G@@@[G@@JMG@@@[)BK[S@@E@@@@CLE! CLEA! CLEAR!@[B@BKED. ISCARDAGES DPUT IMQV )@@G@@DED INE: @AD>>>NOTMH@@@[)BV[S@@@@@@@ALUE [ >ABSVDDR] ESS [A >ADDR_@@@@@QW )@@G@@__@@@@___@@@C! CLRALLCL! MI@@@[)B&[S@@@@@@@ >CHANK #BDI >BAN OR QX )@@G@@-NAME] [BANK >BANKKS >BREA] SYMBOLMJ@@@[)B1[S@@@@@@@R [ADD >CLEAQY )@@G@@AME] LIST NMMAND ST [CO >CMLI]] ] [FMTDR [WCGE [ADMK@@@[)B/[S@@@@@@@QZ )@@G@@ >DEBUMMAND ULT-COW-DEFAULT NE >DEFALL >CLRALEAR! R >CR] OML@@@[RA )@@G@@)CB[S@@@@@@@OR >STR UTE IN >EXECFF CADD O >DIS OR ADD ON >DISCRB )@@G@@G MM@@@[)CM[S@@@@@@@XPRESSUATE E >EVALSG >ERRMBOL] Y [SYM >ENTRRC )@@G@@R] E [ADDEXECUTMN@@@[)CX[S@@@@@@@N] O >GO [UE] K [VAL >FMASE]] RD )@@G@@ [VALU [ADDR >FINDMT] ION [FMO@@@[)C*[S@@@@@@@[I][D] >MAP ] [ADDRRE )@@G@@ >JUMPME] AND-NA [COMM >HELPO ADDRR >GMP@@@[)C3[S@@@@@@@NT ][A >[PRIRF )@@G@@DR] TR [AD >PGMCUT OFF >OUTP OR UT ON >OUTP >MOREMQ@@@[)C"[S@@@@@@@RG )@@G@@[DK,DL >PSR ] [FMT]D [WC]K.]WOR[[BLOC >PCT MT] WC] [FDDR] [MR@@@[RH )@@G@@)DD[S@@@@@@@SK]]] W] [MA [[R][ [ADDR >TRAP[ADDR] >SET [N] >STEP.] RI )@@G@@,DM,..MS@@@[)DO[S@@@@@@@ >XDX NAME] LIST OMMANDIST [C >XCMLK] P [MASRJ )@@G@@ ADDR >TRAP OR MT@@@[)DZ[S@@@@@@@ARE: MANDS DX COMAX >SYNTADDR RK )@@G@@ >SBP H ADDR >PATC >CTX >AEP MU@@@[)D%[S@@@@@@@ISCADDAULT D DEF CLEARRL )@@G@@CMLISTHANGE BANK CREAKS ALUE BS ABSVADDRESMV@@@[)D5[S@@@@@@@ MORE MAPRM )@@G@@P JUMPGO HELFMASK FIND ALUATEMSG EVRY ERRTE ENT EXECUMW@@@[)E@[S@@@@@@@RN )@@G@@LP WITFOR HET XDX XCMLIS TRAP EP SETPSR STT PCT R PRIN PGMCTOUTPUTMX@@@[RO )@@G@@)EF[S@@@@@@@P, TYPRE HELFOR MO. CMMD>'HELP %8)@#@25%(=@BMI . RX )@@G@@ QWI, , TWI,A, ASCNF@@@[)%-[N]H]@)@)C]^UK@/K@@*4[@B@[U/K@@+$/,0@..[GO@@ RY )@@G@@CCO@@ /K@@*1/,0@+@C8K@@GC@B@[UNG@@@[)%:[E^[@K^[# C]AE@@@@@@@(?@@[@'^@K?[RZ )@@G@@**@@@//K@@<[/K@@+$/,0@9]/K@@: :8)@#@ @@@@MNH@@@[)%4[F#@CS(#@CS(# ]AEK@@@SA )@@G@@:8)@#@/,0@B;G K@@_H9S@@@CDK@@_QE@@@;' KK#T0@@K[#' @K#TNI@@@[)%.[F@K^[]HCSB )@@G@@L*K/K@@:V*8C@@@R&R@[P/,$@@@O'@@@[QAB@[SSD )@@G@@'^KK?[NK@@@[):J[F]HC]A@K^C4)C]^U@@@@C8)@@SCCB@[S/,0@-N/,0@-2CCB@[S/,0@-QSE )@@G@@C8@@F&/,)@:!C[R@[TNL@@@[):S[MK^@KT8@@@W[@R@[&K8@@C@[@K@@/W8@@@WSR )@@G@@;G@@@=NW@@@[)?Z[F]HCL(]B*DLK:;0ABS/,0@P":;0ENTC8@@[C/K@@!>OG@@@[)!$[N@K[@K@KTD )@@G@@^[@@@@/^@@<[/,0@TQ/K@@!;%;0ENT9?@@@K/\@@+$/,0@CD9*@@@K/\@@+$/,0@C#OH@@@[TE )@@G@@)!1[EK^G@)CS(@K0]@)@@@@@/,0@.:8)@@_/\0@0S:8)@@ ')A)FZ @@@@JPD@@@[)0-[N#@@)]^UK[#@@@C9@@@[UE )@@G@@:@@@G%D9@@@@/K@@*4[@R@[M;@W@@Y/K@@0R;?K@@A;*)@@Y/:@@G(PE@@@[)0:[N#@@)C@)UF )@@G@@CL(@@@-9@@@[/K@@0'[(B@[P/K@@04%;0DIS/\@@+$/,0@CD1@@@@KC9@@@@:@@@G:PF@@@[UG )@@G@@)05[F]H]@-)^CA)CL(#@C@@@/K@@1@'^KKG>*)B@[P/K@@*4'=@@@@C@@@G\/K@@0'(@@@@LUH )@@G@@[!R@[PPG@@@[)0"[N]HCS[#@]@]@)@!80@@B/\@@+$/,0@C#[0^@@@C8@@@G/K@@1G:8)@#@UI )@@G@@C[@@G*'^)KG>*)B@[PPH@@@[)1C[F#@]@)CS[][*S[#@CL/@9*R@@@9?K@G4C@0@G3'=@@@@UJ )@@G@@C@@@G2/\@@+$/,0@CDC[@@@G'^0KG>PI@@@[)1L[F]J*L/K)UA@K<'^Z^CS@'=@@@@&;@@@EUK )@@G@@C8B@@[9*B@@[9?@@G6'=@@@@&;@@@^C8B@@@9*7@@]PJ@@@[)1U[N]J)]@C]A@K)S@'=@@@@UL )@@G@@C@@@G'/K@@1>%;0CML/K@@1&*@@@@I @@@@I!8)@@)!8)@@SC4$@@BPK@@@[)1=[F@K0@)CSUM )@@G@@(]J>G@-COC"@[CB@@@'=@@@@C8@@G/[@B@@@C8@@@@/K@@11%;0CML' @KG>/K@@1&PL@@@[UN )@@G@@)1![F]J*LP@K^C4)C[KK@@@@/K@@< K@@@2[/,0[^$/K@@*4^<7@[P/K@@12/K@@1%'=@@@@UO )@@G@@C8B@@@PM@@@[)16[M^[@K0]@-)^@K@/,0[DMC@@@@K/,0@-N(?D@J6/,0@-QC8@@G"/K@@2EUP )@@G@@/,0@CBR'K@@[[@@@@KPN@@@[)2@[V@^@[@@@:8)@@ /KF@@@C@@@@HC8)@[@/K@@2D*@@@@GUQ )@@G@@ @@@@I^@)@@F/,0@TRN@)@@F/K@@*1PO@@@[)2F[F@K^[#@]A@K[@@@@@@@@/K@@1'R'X@@@UR )@@G@@/K@@2O9@H)JFN8K@@FC@K@G_/,0@(?/K@@2O/,0@C PP@@@[)2O[F#@CLL@^[# CS[#@CLS@US )@@G@@'=@@@@C@@@HE' KKG>(@@@@8/\@@+$%8)@#@/K@@1''=@@@@C@@@HBPQ@@@[)2X@V# CKX@@UT )@@G@@)GZ@** @* @*@@@@@@@[A@H%@[C@H+@[C@HU@[C@HM@[B@HF/K@@*4'=@@@@C8@@@8PR@@@[UU )@@G@@)G=[K*CE@]@@@@@@@@ $DXPR@ASG,TOFF ON '^@KG> @@A__-@@G@GZ@@@@@(UV )@@G@@@[B@H0PS@@@[)G,[SE@ @@@@@ASG,T $DXC$ DXC$, @USE $$$DXC$@@]@G0 $DXC$UW )@@G@@@BRKPT@@#@G?F PT@@@[)G9[KE@O#A[*S*@@@@ ILLEGT SPEC(FORMA@@[@@@ =& & UX )@@G@@@10@@@@[[@G;C>____@@]@G8 $DXC$PU@@@[)H#[S@E@ @@@EDS 6 D EXCECOMMAN@@]@HCUY )@@G@@IP 01D,@@SK@[B@H@) SUMED.TAL ASAL; OCPV@@@[)HI[S@@@@@@@' COMMCMLISTUZ )@@G@@TAIN 'OT CON MAY ND LISTCOMMAND. IGNORETERS; CHARACPW@@@[)HT[S@@@@@@@VA )@@G@@D LISTCOMMANMAND. T' COMXCMLISTAIN 'OT CON MAY ND LISTCOMMANAND. PX@@@[VB )@@G@@)H=[S@@@@@@@OT FOULIST NMMAND IED COSPECIFERS. HARACTED 6 CT EXCEMAY NOVC )@@G@@ NAME PY@@@[)H\[@@@@@@@@)2)@F]B@@@@@ @B@@@D. ECORDENTLY R CURREDITIONVD )@@G@@OR CONNO ERRND. PZ@@@[)2-@3]BCL(@[@@@@@@)@D@QH G]@@@@@[@2)PATCH /\@@+$VE )@@G@@%8K@@C:8)@[@/K@@*4^37@[P/KB@@]QA@@@[)2$[MK^@^@K]=TK:8@]@CCCB@@@QM@@@[)[L[O^CG-#= [KO^KK/\0@]*C@)@@@9?)@#AVT )@@G@@9?@@#^[^)@[TG^)@[TC8$@@@'=@@@@&;@@@C0@G@@@QN@@@[)[V[X[KK@KK@?8)@@GG8)@X0VU )@@G@@?8)@@E/K@@[40@@@@I&;))@@!8)@[K!8)@[[!8)@@YC^)@[T9*@@]9QO@@@[)[&[W@@@@@@@VV )@@G@@=8)@)@&;K G8)R0&?8)@[KG8)@Q0?8)@[EG8)A1U?8)@@YG8)@A=?8)@@QG8)X1&QP@@@[VW )@@G@@)[1[O^ [[[^ [@@@@@/K@@]@[C@@];C8@ >_[@K@]8G8K@@ ;*K@@A/\0@]*/K@@[5;^K@@MVX )@@G@@;^K@@AQQ@@@[)[;[P]B]])*DLK=C))C8)@@[/K@@]A*@@@@G'=@@@@C8@@]1[@@@]8C@@@]0VY )@@G@@/K@@]>:8@]@CCCB@@@QR@@@[)] [P[^^KL[@@@@@@@:8@@@XG8K@@ ;G@@@YC@@@]8;GK@[CVZ )@@G@@ ^@@[TC80@@C/K@@["%8@@@[/K@@]=QS@@@[)]J[W@@**E]@ @@@@GC80@@E]^@@[T/C@@]VWA )@@G@@D8@@]/:8@@@JD8@@[@:8@@@RD8@@@G:8@@@AD8@@@@QT@@@[)]U[O^^[[[[@@@@@@@/K@@]TWB )@@G@@G@)@@GT@)@@J/K@@["!@@@@J1@@@@GH8@@@0/K@@]=:8@@@ ;?@@@AQU@@@[)]=[P[KOC+)@WC )@@G@@@))@@@/CK@]%G8K@@0;?K@@#;*K@@#;?@@@=;G@@[C/K@@*:/\$@@@ ^@@[T/K@@[PQV@@@[WD )@@G@@)],[H[@*&AOO ]ECE]@@@@@@9?)@#A9?@@#^'=@@@@C@@@#K@]3@]8@[^@]8*?* >_/KJ@@@WE )@@G@@/@@@](QW@@@[)]7@H] )@@@@)4C@+()]&@KO@@@@@@)H7@C@@@@@@@ (&)& @@G@4C@@@@@(WF )@@G@@@[ @H.@[#@H''=@@@@QX@@@[)H8[L# @@@@@@@@@@@E. STORAGIDDEN S IN HADDRESWG )@@G@@IN DX.S NOT ADDRES__"@@J@@W@@JQY@@@[)#C[G]+@OK*)@@@@@@@@@@@@@[[@#JEND DXWH )@@G@@@[#@#FENCY *ONTING* DX C@@]@#C $DXC$@BRKPTQZ@@@[)4G[N#@CK@@[@@@@@@CC^@@ WI )@@G@@/K@@5R:8)@#@C;?@@@;?@@@VG8W@C@;K@@@MD/W@@@'=@@@@C@@@IDRA@@@[)4Q[M^@K[@^[WJ )@@G@@@@@@@@/,0[^$/K@@4?C;K@@[/K@@4Z1@@@@T/,0@B;C#K@@H/,0@E&R_@@@.[G^@@ RB@@@[WK )@@G@@)4)[]K[@[@K@)@F@IH@@@@@@PCT /\@@+$/,0@CLR_@@@.[@@@@T'^@K5+?8@@@[/K@@< WL )@@G@@@@@@@@RC@@@[)@G@IHO0C@@@)4*[][@K[@@@[@@@@S/K@@< @@@@@@/,0[^$/K@@5M?#)@@TWM )@@G@@[C^@@ CG^@@ @@[@4GRD@@@[)40[N@@@^G@)@@@@@@'^KK5+!#)@IEK#K@@RG#K@@S;:K@@DWN )@@G@@G;K@C[D#K@@T[@K@@D[@@@@R/,0@/JRE@@@[)4'[M^@K^G@]^Z@@@@C@K@@TC8B@@[C#)@@RWO )@@G@@!#)@@RC7(@J6')]))VC/)@@ /,0@+@C8K@@AC@@@@TRF@@@[)5^[MK0]A@K+S]^Z^@/,0[DMWP )@@G@@C@C)@@Q'B@@[H;)@@[H]0@@UG#K@@U'=@@@@9=@@IG:#K@IF&#K@@URG@@@[)5I[N@K^[@K0WQ )@@G@@]@C]@@C@@@@U/,0@-N/,0@+FC@@@@T/,0@-QC8@@II/K@@*4/A0@4'/,0[C!8A)@5GRH@@@[WR )@@G@@)5S[F@K0]@]@)C[N@@@@@@@@@[ @IT/K@@*1/,0@-N')]))V%;)@@[C8)@@S/,0@-QC8@@IQWS )@@G@@/,0@+FRI@@@[)5-[M()^ @^C4]@@@@?80@@^ @@@@K/K@@5/:8)@#@C9@@[_C[R@[NQ'@@@@WT )@@G@@@@G@5)@@@@@(@[C@IYRJ@@@[)5:[MK@K0]A@K@@@@@)@0@@K;*.@@@C80@@[/\@@+$2CH)I#WU )@@G@@C@K@I&N8K@@B;C@@@M/\@@+$%8)@]@RK@@@[)55[MK^[@K[@K^G@@@C8K@@#C8C@I]/-@@6CWV )@@G@@/\@@+$%8)@#@/K@@5%/,0@B./K@@5'/,0@CPR_@@@,RL@@@[)5_[N@ES@[@K0]@)@@;H@@@[WW )@@G@@/,0[C!/,0@-QC^C@I]/,0@-A&;@@@^>9K@@[C8K@@ C8@@I$/,0@-ARM@@@[)6D@UK^@@@@@WX )@@G@@)I]@** @* @*@@@@@@D12@I3D10@I0D8 @I,D5 @I:D4 @I(/K@@*4/ @@5/O'@@@[RN@@@[WY )@@G@@)IB[K* @(^)@@@@@@@OCK NUTED BLREQUES___@@[@@@@@@@@@___@@[@C[)@[@@@D20@I9WZ )@@G@@D17@I6RO@@@[)IL[S@@@@@@@LOCK I PCT BLOWEST& LOCK&. PCT BNLY & NGE--OXA )@@G@@ OF RA&) OUTMBER (RP@@@[)IW[S@@@@@@@@@[__"GE. OF RANS OUT ADDRES-WORD-XB )@@G@@T LASTIED PCSPECIFK 1. S BLOCRQ@@@[)I$[S@@@@@@@ORD MO(1/4-WZERO)&(FLPT XC )@@G@@W)& DERFLO(DP UNMODE)&(BYTE FF ON ORR@@@[)I2[K@@@@@@@@@@@@@T)& XD )@@G@@ EXCEP(ARITHE)& RESIDU(FLPT R)& PSR/SL(UTIL DE)& RS@@@[)#L[G*+^UK)+XE )@@G@@]-A=C6-[@@@@:8@@@[[^B@@@!8B@@@EKB@[O/K@@^1(@B@@@[@B@[>&;@@@WC8@@#LRT@@@[XF )@@G@@)#U[P]]CKL]]]]CC@@/S@@@@/S@@@@C@@@@J/K@@B^:8)@@G/K@@BA:8)]@CC^7@@@CC$@@@XG )@@G@@ ^B@@@RU@@@[)#=[W@@^^@@@%8)#@EC[@@@G'^@@@8/S@@@@/S@@@@/S@@@@/S@@@@/S@@@@XH )@@G@@/S@@@@/S@@@@/S@@@@RV@@@[)#\[H[KO [K^CC)*E]@@@@@@/K@@B@:[@@B(/K@@#' CB@@@XI )@@G@@/,0@-QC8@@B$/K@@#6%[@@B&/K@@#'RW@@@[)#8[H[KOCCCC)*E]@@@@@@@@/K@@^6/K@@^]XJ )@@G@@%[K@B:+.@0@@/K@@^]%8)@@[CC$@@@/K@@BI%[@@B%RX@@@[)^[[H]]CKL[KOCC-+=CC)CKKXK )@@G@@(^B@@@/,0[C!*^B@@@9*@@@89?B@@@/K@@ @/K@@^D(CB@@@ CB@@@RY@@@[)^E[H[KOCC)*XL )@@G@@E^^^ ]]@@@@@C4B@@@/K@@^Q%8@@@EC?B@@@/K@@ \/K@@^R(CB@@@/K@@ &/K@@^RRZ@@@[XM )@@G@@)^N[O^ [^[@K)+]-[@CDB@@@/K@@AM*^B@@@/,0[C!')]))VC/)@@./K@@ ./K@@ 6:8@@@ XN )@@G@@%8@@@[SA@@@[)^X[O^ [KO@^[@@@@@/,0@-N')]))V:9@]ZEC8)@@T/,0@-QC8@@B?/K@@^:XO )@@G@@/K@@^-:9@]ZE%9@]]ESB@@@[)^$[H@KOC*-])K)+^UKC@@@B>/\@[D@ SB@[RSD@@@[)^9[OK^@K^[[K))))@/K@@ MXR )@@G@@!8)@@CC?$@@@/K@@^[/,0@-N/,0@-2C@@@@L/,0@-N/,0@+FC@@@@LSE@@@[) #[O@KOCC)*XS )@@G@@E])@@@/,0@-QC8@@C@/K@@ N%@@@B_C^B@@@/K@@ N*@@@@IH8)@@] @@@@I:8)@@BSF@@@[XT )@@G@@) H[H]H*]^^KO ]]CE@))@@@C8@@CF/,0@)9C@I@ XC4$@@@/K@@ N/K@@^ ^B@@@/,0@-2XU )@@G@@C8@@@@SG@@@[) Q[P@K)+@)CC@@@@@SYMB I/O IGDM IOPR IABT /K@@^ /,0@-NXV )@@G@@/,0@-2C0B@@@/,0@-QSH@@@[) )[O@[[K^CC)@@@@@/,0@-2C^B@@@/,0@-QC8@@CIREP XW )@@G@@COMM CON2 CONS ER ERR$ SI@@@[) %[H@K)+@)CE])C@@@@@@@@C@@@@K/,0[D#XX )@@G@@/,0@-QC8@@CK/K@@^G/,0@-N/,0@.[C^B@@@/,0@-NSJ@@@[) 3[H@K^ [K^[@K)+@@@@@@@XY )@@G@@/,0@-2C^B@@[/,0@-N/,0[C!/,0@-QC8@@CL/K@@^J/,0@-N/,0[E^SK@@@[) /[H[KO[@KKXZ )@@G@@K+U]@@@@@@@@C@@@B='=@@@@&;K@@[C8K@@QC8@@B=/,0[C!/,0@-QC8@@CN/K@@^QSL@@@[YA )@@G@@)A [P]H@@)C@@@@@@@C8K@@#C@@@@L/,0@-N/,0@+FC[K@@HW8@@C@;G@@@=W8@@@ ;G@@@=YB )@@G@@H@B@@)SM@@@[)AJ[H@K^ ]HCDL^ [@@@@@@@1@@@BW @K@BWR9@@@#C8@@BW/K@@^W*?B@[NYC )@@G@@/K@@^R/,0@-N/,0@+DSN@@@[)AS[P[[]#CE])*EAE@;C@@@M[C@@[B/@@@A.C@ @BWR[)@CPYD )@@G@@R[K@CP'=@@@@&;@@@CR9@@@B/K@@AVSO@@@[)A+[H# C]@)*E]- ^GO@@@@@C8K@@ACC@@[BYE )@@G@@'=@@@@C@@@CT/()@A(/^@@A./,0@UD/,0@S [W@@[@SP@@@[)A:[H@KO[@K^GO)*E@@@@@@@YF )@@G@@/,0@-QC8@@CW/K@@A7*?@@[@/,0@-N/,0@.C@@@B>/,0@-QYK )@@G@@#^0@@;C8@@C:8^@@BTCTB@[R'^B@@@SU@@@[)BS@>@K@=K-S@@@@T$& YL )@@G@@ER EXI'=@@@@@@@@ K/KB@@@EG7@[O[TB@[R/K@@=USV@@@[)B([P]^CK)@@@@@@@@$ ENCOYM )@@G@@)&READROM (ATURN FMAL RE ABNORSECOND@%)@@@'=@@@@'$)@@@SW@@@[)B3[W@@]+@@@YN )@@G@@STOP #ERROR @[A@B5WED. S ALLOOMMANDT DX CSEQUENNO SUBD.& UNTERESX@@@[YO )@@G@@)B"[W@@@@@@@CATION TO LOROGRAMT IN PN POINUNKNOW FROM L JUMPILLEGA@@@___YP )@@G@@&(&)& SY@@@[)CD[W@@@@@@@.&.& SAT & ,&PKT <&>& (&)& AT & &)& (CODEYQ )@@G@@ ERROR & BELOWSZ@@@[)CO[W@]+@@@@ CURRE&' NOTBANK '&>& (&) <@]#@CQYR )@@G@@: ISTORYJUMP H@@[@@@EC& TA@@@[)CZ[W@@]+@@@AFTER:@@X C @@]@C> $DXC$YS )@@G@@@BRKPT& TRAP: RK: & PGMD BASED>&NTLY BTB@@@[)C%@W@)@H@QH G]@@@)6G@U^YT )@@G@@@@@@@@/,0@B; C^@@ C;0PRI@@[@6GPRINT /\/\/\BRK: & & TC@@@[)6J[N@K^[# ]YU )@@G@@AE[@@@[@@@@M/,0@/JL9@@@[C9C@@@QE@@[B(8C@@@QE@@@;/K@@<[/K@@+$/,0@9]TD@@@[YV )@@G@@)6T[EK1M@-+=G@-+=G@C@@@@/K@@6=%;0PRI' KK#T0@@K[#' @K#T(?@@[@/K@@62**@@@/YW )@@G@@[@K@@DTE@@@[)6+[F# CL(# CL*[]@@@@@@@(@@@@G'=@@@@&#@@@MC8C@@@G[K@@MR6R@[PYX )@@G@@()@@@/CP$@[R(=@@@/TF@@@[)6:[N#@]@-A=C4C@C@/K@@67!9@@[[G[K@@M/K@@7B @@@@NYY )@@G@@A6R@[P[P$@[R/K@@61%;0PRI'^KK#TTG@@@[)65[M@[@^G@)@@@@@@/K@@7#C[)@I/!9K@@GYZ )@@G@@/K@@6_!9@@@G @@@@MC9K@[J!9K@[KG9K@@[F# CS[@K^[# ]@@@@@@@C/)@@ /,0@+@C8K@@ C^@@[AZF )@@G@@/K@@7!/,0@)9/K@@7%%@@@I"C@@@[^TM@@@[)7,[N@^[@K^@K^GO@@(@@@@M**@@@//K@@7BZG )@@G@@!9S@@@/K@@8$/K@@74/K@@7_/K@@73%;0PRI')]))VTN@@@[)78[V@@[@@@@C8C@@@N8W@@@ZH )@@G@@H8C@@@C@@@@L/K@@69Q]@@@K;!K@@=;!@@@M; K@@M;H@@[C/K@@*4TO@@@[)8#[N[@KL@[@ZI )@@G@@@@@@@@/K@@8L0@@@[[H@K@@C8KK@8A:@@@[]'^@@@8C8H)@@C@K@@CN@)@@G'^@@@8TP@@@[ZJ )@@G@@)8H[M^G@-)[@[@@@@@C@@@@H')]))VC/)@@ O]@@@H/K@@8Y?8K@@#T4T@J6W4T@J6;OK@@=ZK )@@G@@H8K@@[TQ@@@[)8R[N@K0]@]@)CS[@@C8C)@@/K@@8/,0[DP @@@[]C@@@[]ZL )@@G@@/,0@-QC8@@I_/,0@-2TR@@@[)8-[N[K[@K^@KO[@@@/,)[C3/,0[DM'^@@@8C8C)@@/K@@72ZM )@@G@@/,0[C!8K)@8)!9S@@@/,0[DM'^@@@8TS@@@[)8:[N@K1KC]AEK[@K@/K@@8_/K@@74P'@@@]ZN )@@G@@'^@K9@(^@@[A/K@@85%8K^ :8@@@[CCK@@@/K@@74TT@@@[)85[N# C]@)]])C@)@/K@@74ZO )@@G@@P'@@@[/,0@+*/K@@74'^@@@'C@0@@G/K@@8//,0@../,0@B2R_@@@:TU@@@[)8_@U()^ @@@ZP )@@G@@)I/@0@@@@@@@BACKSP OF & WORDS*ABS* @[[@@X@@G@@F@@G@8_@@@@@(@[E@J[TV@@@[ZQ )@@G@@)J][C@@@@@@@@@@@@@@@@@@@D. ALLOWER NOT COUNTEATION OF LOCSTART ROUGH ZR )@@G@@ACE THTW@@@[)@J@QH G]@@@)9]@2K<'AEK1M@-A)@C@B@@Y/K@@9E*@@@[B C@@@;A]7@@@ZS )@@G@@R';@@]@@[@9]SPECS TX@@@[)9C[F# C]@]@)CS(]J)@@@@@/KBK@@CC@@[B/K@@9L/K@@9JZT )@@G@@:8)@#@%8)@@ /,0@B;/,0@T>[@@@[BTY@@@[)9L[N# CS*@^@K@@@@/K@@'G0@@@@H/,0@E&ZU )@@G@@R_@@@.[HO@@ CDO@@ [1^@@@C9@@@G @@@[[ @@@@.TZ@@@[)9V[F# C]@C@)CS(#@@@@@@@ZV )@@G@@%@@@JR9*@@[^/\@@/D!80@@H/K@@91%8)@]@/,0@B;/K@@/E(@@@[IUA@@@[)9=[N@K0]AE@ZW )@@G@@^@K@@@/K@@9%%@Y@@[/K@@9\2@I)@]G^,@@@&\,@@@NWY@@@C8)@[H9?@@JS/K@@9\UB@@@[ZX )@@G@@)9,[N# ]@C@)]@@@@@!8@@[[/K@@9/%8)@[@/,0@B.^34@@@/\@@/D%8)@@./,0@B. @@@@KZY )@@G@@9*@@[^UC@@@[)98[N@K1M@)]@-+=@@:8)@@-%8)@@+/,0@B; ^@@[A/,0@ST(@@@@K/K@@9"ZZ )@@G@@/,0@B.[?@@[A/\@@/DUD@@@[)'][F@K^@*C]@-+=GO)@@@@@/,0@S0[^@@[AG^@@[A/,0@;(AA )@@G@@/K@@/D@@@@;-/,0[^$/K@@'E/K@@'^UE@@@[)'F[N@@K[@K@@@@@@@!80@@H:8)@]@/,0@B;AB )@@G@@/K@@'$0@@@@H/,0@E&R_@@@:N8)@@[[HO@@ /K@@'6UF@@@[)'P[F@K1MAE^[@K^GO)@@@@@AC )@@G@@/K@@'=9(@@@.8K)@'I/\@@/D/,0@CPR_@@@:9*@@[[9!@@[[/K@@'YUG@@@[)'Y[M^[# CS(AD )@@G@@# @)@@(@@@[]/K@@'?[C^@@ CG^@@ 9(@@[[9*@@@.9?@@[[/\@@/D%8)@@:(@@@[]UH@@@[AE )@@G@@)'*[F@K1M@-+-# C]@O@@@@@@@@@;[/,0[^$/K@@'6**@@@/^34@@@ *@@@//,0@;'^:0@@/AF )@@G@@/K@@'?UI@@@[)'1[F@K^GO-+=[# C@)@@@@@/K@@/E*@@@@G/K@@'_**@@@//,0@UD[C@@[BAG )@@G@@GC@@[B/,0@;(/K@@/DUJ@@@[)''[## CL(# CS(]HCS(]J)@@@@@@@R';@@@/KBK@@[C@@@;AH )@@G@@^R7@[R(0@@@/CC@@[B[@B@@YC@@@[BUK@@@[);][F]J*S[@K%W@@[AVD@@@[).([F# C@)CS(@K<'@-+)@@@BE )@@G@@C@K@[B/K@@.70@B@@[/,0@-2C^@@[A')]))VC/)@@+/,0@-2C?@@[AVE@@@[).2[#]J*L.# BF )@@G@@C]^ZK<9N@ G@@@@@@@@[ @J%@[B@J[@)@[B[@R@@]C@$@@]VF@@@[BG )@@G@@).'@U()^ @@@)JR@0@@@@@@@$ $F $B COMMONBLANK$B$C @@G@.8@@@@@(BH )@@G@@@[B@J\VG@@@[)JX[S@K1K@@@AP ON NOR TRBREAK VIOUS NO PRE@@@@@@@@[@@.@@[@@@BI )@@G@@@@@@@@@@@@@[$$ VH@@@[)J*[S@@@@@@@N PREVAS BEERESS HNO ADDRD. N RECOBJ )@@G@@FIND OVIOUS NO PRE. RECORDVI@@@[)J3@S@)..@3[KO^K@@@@@@@@?8)@[@/,0@B.BK )@@G@@ @@@@[9(@@C\AA0@C!A@K@C1FIED. SPECIIOUSLYVJ@@@[)"#[N@^[@K^@^@@@@@%8)@@+BL )@@G@@/K@@"4:8)@@,%8)@@-/K@[^H/K@[[O/K@@"4/KI@" ;C)@@A/K@@"DVK@@@[)"H[MK[@K@K0BM )@@G@@@)@@@@/\@[^M%8)@@'GC"@]N^@)^@)@@B@@D/\0@"V/K@@"P%8)@@"/K@@"4:8)@@.VL@@@[BN )@@G@@)"R[V@@^@@@@ @@@@JC8K@@=C8J@@]C[J@@[R@Z@@@/,0@F%RJO@@ G@0@@I @@A@@ABO )@@G@@/\0@"VVM@@@[)"+[MK^@K[@@@@@@@@H8L@@@')G@@@;*1@@@/K@@"!:@)@[[/K@@"1:?=@@[BP )@@G@@')A)FZ/@K@"2[@)@[[VN@@@[)"?[N@K[@K[@K[@@@@C[K[^TCD^@@ /K@[^H/,0@F5;?.@@@BQ )@@G@@/K@@"2/K@@"(:@)@[[')A)FZ/K@@"[@@@/\@[^M%8)@#@/K@@_Y:8)@@,/,0@B./\@[^M*@@@@JBV )@@G@@;O1@@@VS@@@[)_)[N@^@^^KM)@@@@@[C^@@AC8@[^U[0@@C,C4^@@][@@@C,&7^@@@CC^@@ABW )@@G@@/K@[^HC@0@@L/K@@_CVT@@@[)_%[U@[@^@K@/K@@_8:8)@@+/K@@_;:8)@[@/,0@B.D9K@@@BX )@@G@@D9@@@@[4^@@]C8@@@E[4^@@@C8@@@]VU@@@[)_5[MK^ @^@K@@@@@@C80@K/;G@@@=/\@[^MBY )@@G@@0@@@@G/K@[@[%8)@[@/,0@B.[4)@C,/K@[@[%8)@@-VV@@@[)__[MK[@K[@K^@@@@@0@@@@GBZ )@@G@@/\@[^M/D@[@R/K@[@C:8)@[@/,0@B./\@[^M%8)@@./,0@B."40@@GVW@@@[-@D[N@@@K[@@CA )@@G@@@@@@@@'C@[@O;*@@@YC@K[^WHC^@@ CG^@@ "4K@@IC8K@K/ @@@@IC@0@@G/\@[^MVX@@@[CB )@@G@@-@N[N@K[@[@^@@@@@@R8K@@[/K@[@)%8)@@D/K@[@W:8)@@E @@@@[/,0@B."-@@@I/:K[@MCC )@@G@@"?![[CVY@@@[-@X[N@^@@^[@@@@@@@/,0@C[/K@[@4(@@@@[R8K__":8)@@-R8K@@[:8)@@+CD )@@G@@/K@[@*:8)@[@/,0@B.VZ@@@[-@$[N@K@K[@K[@@@@@'C@[@2;*@@@YC@K[^W/\@[^M0@@@@GCE )@@G@@"(@[^XG8@@[@D@@@@G/*K[@,/\@[^MWA@@@[-@1[N@K^@K^[@K[@@@+@@[^-C@@@@K/\@[^MCF )@@G@@?[@[^)?[@[^Z/\@[^M%8)@#@/,0@B./:K[@0"(H[[CWB@@@[-@;[N@[[^^KL[@@@@@C0@@C,CG )@@G@@[4^@@@C?@@C,[C^@@AC^@@C,D@0@@J*4@@C,"/0@@K"-@@@HC@)[^+WC@@@[-[ [U^@@@@@@CH )@@G@@@@@@@@KV\:0)@@@@@@KI$^@@@@@@@@KB2@@@@@@@@@K^*@@@/K@[^H&8K@@^[4^@@]WD@@@[CI )@@G@@-[K[U@^^@@@@:9@@AN%9@@@AC[@@@H;GJ@[CT/0__9AE0@C!R'0@@C%]!0!UL:$WQ!\0K@@@CJ )@@G@@K6<-\DWE@@@[-[V[N@^@K[@^@@@@@@%8)@@ /\@[^M:8)@#@/,0@B.C[O@@ /K@[[6%9@@@SCK )@@G@@/K@[[):9@@@L/K@[[)WF@@@[-[>[N@K^@@K@@@@@@@C80A ?80A4 /K@[[\?80A0 >80@@)CL )@@G@@;C0@@MC@0@@G/\@[^M/,0@C /K@[[-WG@@@[-[\[U@@^[@@@R@K@@H/\@[^M/,0@ VC@@@@KCM )@@G@@[[O@@ ;=0@@A;*0@@MC80R :8@@@S%8@@@J;C@@@YWH@@@[-['[M[[^^K@@@@@@@@%8)@@,CN )@@G@@0@@@@[/,0@B.C[@@@G[C0@C,;C0@@A[*0@C,;C0@@G;(K@@)E[K@@IWI@@@[-]^[N@K^@K@KCO )@@G@@[[@@@@AE0@C!R'0@@E/K@[])!8@@@C!8@@@^/\@[^M!8@@@K/K@[]J/,0@C[/K@[]+WJ@@@[CP )@@G@@-]I[N@[@^@K[@@@@@@2CW)KLN8K@@J/K@[]):8KW C@@[^<;G@@@6/\@[^M!80@@^:8)@]@CQ )@@G@@/K@[])WK@@@[-]S[N@K@K^@KL@@@@@/,0@B.R8W@@@AE0@C!R'0@@D/\@[^M2^W)KLQ;@@@@CR )@@G@@N8K@@J/K@[])/K@[]UWL@@@[-]+[M[@KL@^[@@@@@@/,0@C /K@[#B;!@@@U/^K[]:%8K@@ACS )@@G@@C0K@C,/\@[^M%8)@@ G[@@@[;(@@@^WM@@@[-]?[N@K^[[^@K^^@@@:8)@[@C0K@C,/K@[#]CT )@@G@@C9G#)@/KH[]8%8K@@ C0K@C,/\@[^M/,0@BS/K@[]4WN@@@[-]6[UK^@@[@@C@0@@I/\@[^MCU )@@G@@*@@@@H;GK@@^L8@@[@G8@@[@/S@@@@H8@@@G/K@[]'/\@[^M%8K@@]WO@@@[-#[[M@K^[[@@CV )@@G@@@@@@@@R_@@@*G9@)@@:8K@@#C?K@C,/K@[^[/,0@CPR_@@@, @@@@L;(@@@Q;=0@@^WP@@@[CW )@@G@@-#F[N@K@K[@^[@@@@@/K@[#R/,0@BS?80@@^/K@[#+%8)@]@/,0@B. @@@@[G9@K@@/K@[#KCX )@@G@@/,0@CPWQ@@@[-#P[MK[@K^@K[#@@@@2@H)@#N8K@]LC@K[^>D@@@@G/\@[^M%@K[^=/K@[#WCY )@@G@@?80@@B/K@[#?C[K@@GWR@@@[-#Z[N@^@K[@^[@@@@@/,0@C[/\@[^M%8)@@-/K@[#?C[K@@GCZ )@@G@@/K@[#&%8)@[@/K@[#?C9X@@@/\@[^MWS@@@[-#([N@K@KL@K[@@@@@/,0@CPR_@@@*/K@[^[DA )@@G@@/,0@CPR_@@@,[C@@C,CC^@@ C[K@@H-@@[^&/\@[^MWT@@@[-#3[N@[@^[@K@@@@@@!8@@@KDB )@@G@@ @@@@[/\@[^M/,0@BS/\@[^M%8)@]@/,0@B.G9@)@@>9@)@@/K@[#7WU@@@[-#.[N@[@^[[^DC )@@G@@@@@@@@$8K@@IC@)[^&[C=@@ CC)@C,/\@[^M%8)@#@/,0@B.G[@@@G;*@@@M/\@[^MWV@@@[DD )@@G@@-^B[U[@^^@K@/K@[^PC8)@@[;CK@@MC@K@@[C@@@@J&CK@C!G@0@@K/\@[^M%@0@@L+@)@@LDE )@@G@@;C)@@]WW@@@[-^M@'[[KO^@@)C!@W@@@@@@@@@@@@@@@@@@@/KI@@@G^)@C!9!@@C\R@K@C1DF )@@G@@ @@@@ICCO@@ C8G@@@WX@@@[)C0@O@-^T[]@@@@@@@I@)@@@M@@@@@D'O9'UG?%B_%__.@@EDG )@@G@@@@@@@E@@@@@DA@DGM=@@@@@@@@@@@@WY@@@[-^-[U@[[KO^@R/)__"R/K__.AA0@C4A@)@C3DH )@@G@@A@K@C2@@@___@@[__"$ @@[@@@^@@@@@__@@@@WZ@@@[-^?[N@KO[@K^ [KL@@/K@[A%DI )@@G@@:8@@@?C4@@C59*@@C59?@@D$/K@[^8/K@[ [/,0@C#9*@@C59?@[CUXA@@@[-^6[N@K^ @K^DJ )@@G@@^K[@@@/K@[ ;:8)@[@/,0[BZ/,;K@@RA0@C4/,0[BZ/K@[BP(^@KC4/K@[ [/,0@C XB@@@[DK )@@G@@- @[N@KL@^@^@@@@@@!8)@@A')A)FZ @@@@J;G@@[C/,0@F%RBO@@ /K@[ S%8)@@#0@@KC4DL )@@G@@/K@[BPXC@@@[- E[MK[@[@@@@@@@@@;=@@@^;?K@[^H8)@@0/K@[ Q!8)@@'!8)@@0/K@[ MDM )@@G@@G8)@@^/K@[ I!8)@@GXD@@@[- O[N@K^[@KL@^@@@@C80@@D/K@[ Z%8)@@"/K@[ 5>80K@@DN )@@G@@CC0KC4/\@[BL/^0[ 8/\0[ C/^K[BQXE@@@[- Y[N@^@^@^@@@@@@@:?=@@[')A)FZ;G@@[CDO )@@G@@[@)@[[/,0@F%RBO@@ C80@@A/K@[ 5%8)@@'/K@[ +XF@@@[- *[N@^@K0@C]@)@@@')A)FZDP )@@G@@/K@[ &/^K[BQ;=J@@@;^Z@@@CC,@]N:80@@D/K@[ 1:@)@[[/\@[BLXG@@@[- 2[MK^@K^[@DQ )@@G@@@@@@@@C@K@@G[^4@@ H80@@[/,0@F1/K@[ ;/K@[ "%8)@[@/K@[ 8/K@[ ::@)@[[XH@@@[DR )@@G@@- /[N@K[@@K[@@@@@@C@@[CVN8K@@D/\@[BL!8)@[@C8)@@?:8)@#@/K@[BQ:8)@[[/K@[A&DS )@@G@@C@@[C:XI@@@[-AA[N@^[[^ [K[@@@@9?@[CX:8)@@+/K@[AS%4)@C5C4)@D$ @@@@G9*@@D$DT )@@G@@9?G[CGC8@@@)24?-CIXJ@@@[-AK[MK[@^[@K[@@@@@/K@[A)%8)@@//K@[A$/^@[^29?@[C:8K@@:9?@[C$:8K@@*C4K@C5XL@@@[-A=[N@^ [KO[[KO[[@:?[@C7DW )@@G@@/K@[A/??[@C7C0@@C5/\@[BL:)@@D$C=@@C59*@@D$:8)@@-9?@[C(XM@@@[-A,[N@^ [^[@DX )@@G@@KL@@@@/K@[BE:8@@@?C4@@C5/K@[BN/K@[^1$8K@@)9*[@C79?@@C5O8K@@]/K@[A5XN@@@[DY )@@G@@-A8[M^[@KO[[^^@@@@$8)@@K[@]@DRO8)@@[C@[@C8/K@[B^*4[@C7/K@[BO/K@[^118[@@@DZ )@@G@@P8K@@]XO@@@[-B][N@K[[KO^K[@@@@/K@[BO*8[@@@/K@[A%P8K@@][@+@DR')[@C89?M@DREA )@@G@@P8)@@[/K@[BN/K@[BCXP@@@[-BG[MK-]]C@)C]@)@@/\@[BR/\@[BR/\@[BR/K@[BTCCO@@ EB )@@G@@/K@[BVR'0@@[C@@@DR'=@@@@*8]@@@XQ@@@[-BQ[N@E@]])*C))@@@N@K@C2/KF@@[R@K@C2EC )@@G@@R@)@C3OA0@C4 @@@@FC8G@@@D8K@@@H8@[BN/\@[BRXR@@@[-B)[N[^ [@[@@@@@@@/@K[BBED )@@G@@ @@@@IH@K@@I;^K@@=/KF@@@R@)@[[A@)@C3N@K@C3R@K@[[A@K@C2XS@@@[-B%[N@K@K[@^EE )@@G@@@@@@@@ @@@@G/K@[B6D8@@@@/K@[BBC8)@@[/^K[BB @@@@IH@K@@I/K@[B\/GK[BBXT@@@[EF )@@G@@-B4[V@@@K@@@G@)@@GD@@@@G0@@@@I/@0[BB;?)@@=0@@@@GW@)@@H;O)@@=;^K@@=C8@@@[EG )@@G@@/K@[B6XU@@@[-B_[V@@@[@@@D@)@@I/K@[BB;K?@@@0@@@@H;)?@@@1@@@@H;^K@@=C8@@@=EH )@@G@@!8@@@>E@@@@I/K@[BBXV@@@[-CE[MK[@^@K@@@@@@@K@K@@I+BC@@@/K@[B$>[]@@@/K@[B?EI )@@G@@=[]@@@/K@[B&<[]@@@/K@[BBO8)@@[XW@@@[-CO[U@^@@@@@)@K@@I!#^@@@)@@@[@@@]__.EJ )@@G@@(L@[@[/K@[B3/DE@@@T@)@@H*DE@@@L@K@@I-BC@@@XX@@@[-CZ[U@^@K[@@'HI@@[/K@[C@EK )@@G@@^FG[@@/K@[B1;DE@@@/K@[B5:DE@@@+@K@@I& A@@@-@K@@I\#^@@@XY@@@[-C%@V@@@@@@@EL )@@G@@)C4@G@)@L@&H G] G]@@[[^$EVX$ @@[@..DCDWRD@@@@@@?@@@[@@JK@[[/K@[CDXZ@@@[EM )@@G@@)@P@QH G]@@@-C!@2K[# CLL@@@@@@/K@@)]'=@@@@Q;@@@J&;@@]G/K@[C0&;@@[G@@[[C!EN )@@G@@UTILITYA@@@[-C3[N@K_[0B@[N/,0@)4YB@@@[-C.[N# @CLK^C4@@@@C8K@@[=8)@@CC@$@[N @@@@H/KG@@@EP )@@G@@'=@@@@&;@@[@/KE@@[/@E@@@]@G@@@YC@@@[-DB[E@K1M@)CS(# @@@@@@@@R]0@@J^\)@[#EQ )@@G@@/,0@X@C@@[EGA]0@@J/KF@@@R'X@@CC8K@@]=8)@@[YD@@@[-DK@;# C@-)^[#@CS@)J6@C(ER )@@G@@)K@@@@^A)[D=/KDKJ6C0T@J6')]))V*?D@J6C8)@@ /K@@Z/C8@@@2YE@@@[)J7[@()M&[ESES )@@G@@^()M&[ES^()M&[@@@@[@)[D2^@)@^2C )[D!^@)@MI^@)@ME^A)[D=^G)[DT^G)[DRYF@@@[ET )@@G@@)J_@S()M&[ES^@@@@@-DR@<@G^*C[)>@@@@@@+G@+F/\0[DZ@+@@-2/\0[DZ^D)[DV[])[D2EU )@@G@@[[)[D2YG@@@[-DV[MK^@0M)@@@@@@@&;)[@Z/KJ@@@;C0@@M:;0PCT%;0PRIC@_@@@@^_@ CEV )@@G@@/\0[DZ')]))VC/)@@XYH@@@[-D>[M[@K@K@@@@@@@@;))@@AC@)@@G/K@[D*Q;)@@,'G:@@@EW )@@G@@'C)[D>')]))VQ;!@@0+8@@@B;)@@@#YI@@@[-D\[N@K[@K]))]@)@@%@0[EM+@)[ELC@)@@GEX )@@G@@/K@@-QC8@[EI/K@[D6%@@[EH/KF@@@8#K[D,')]))VYJ@@@[-D9[N@^[@^[@^@*@@@C8)@/"EY )@@G@@/K@[EA:;0CHA/K@[D/98K@+F;GK@@A')]))V9?K[ENC8G@@@/K@[E@YK@@@[-E#@;@E]@O[[EZ )@@G@@K@@@@@)@@@IE@@@@@@@@@@@@/K@@@H[@)@@G&;)/,0C8)@-2/K@[EBC8)@.[/K@[EBYL@@@[FA )@@G@@)@[[YE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FB )@@G@@@@@@@@YM@@@[)@G[YE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FC )@@G@@@@@@@@@@@@@@@@@@@@YN@@@[)@R[YE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YO@@@[)@+[YE@@@O@@[@_@@@@[ @@@@@@@@@@@@@@@FE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YP@@@[)@![QE@ G@O@@@@@@@@@@@@@FF )@@G@@@@@@@@[[@@@@@@@@@@&&G@@J@@@@JF___@@@@@@@@@@@@@@@@@@@@@YQ@@@[)@7[YE@@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YR@@@[FH )@@G@@)[]@6E@@@@@@-EE@N# A]-+)@@@@@@@(5@@@@[G@@J@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@FI )@@G@@@@@@@@YS@@@[-EG[E)S%-+=CK@@@@@@@@@@@ RORRE@@@@@#@%)@@@___0@@REAK& MMED BFJ )@@G@@PROGRA'$)@@@@@.@[CYT@@@[@@^@@I@@M@@=@[U@@#@[&@@@@@B@K]@@@[EP@@@@D()@@@@@FK )@@G@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@@@@@[C)@@@@@)@@@@@@@@@@RBANK$ FL )@@G@@CEND$ CREG$ CSF$ CTPKT DXBKPT EDJS$ FM )@@G@@ERRPR$ ERR$ EXEC EXEUNT EXIT$ FITEM$ FN )@@G@@IALL$ ICGY IOW$ LOAD$ NRREGS PCTBD$ FO )@@G@@PCT$ PRINT$ PRNTA$ PRTCN$ PRTON READA$ FP )@@G@@RES RESDATA RESEND RESFIND RESTART R$ FQ )@@G@@SCR SETBP$ TREAD$ WRTCC W$ ICTY FR )@@G@@@@]ING@@@@@_NONRES @@] @@@@#LNRSINIT @@[@&C@@@[DFAET$P FS )@@G@@@@@@@@@@]@@@ @ @@@[[@@@@.@@@@&5I"&]MI======@@^@@ @@@@@@@@@@@@FT )@@G@@@@ @(D@@@@^H@@#@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GYD#ML74R1 @@@@@@FU )@@G@@@@@@A:@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@[)@@A@@M@@0@[5@@@@@0@@^@@@#[S@@@@@@FV )@@G@@@^@@^H@^@C@[@ @@^HK^@]@)0 0 0 0 0 0 0 0 0 0 1 0 @D@@@B0 0 0 0 0 0 0 0 0 FW )@@G@@0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 $ @]@@@BLOAD SEP $ @C@@@B0 0 0 0 0 0 FX )@@G@@0 0 0 0 0 1 0 0 0 0 0 0 @C@@@@@@@___@@X@@@@@@___@@@___@@@___@@@___@@@___FY )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___FZ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___9*@@ !CC@@^)%8@]-E:8@[@CGA )@@G@@/K@@#79?@@ !'^@@#/*?@@A_/,)@[@(G@@^)/K@@@PC^@@^)C@W@@@%@K@^6/K@@@PC@0@ ,GB )@@G@@(@@@@JC8/@@[C@@@ !C8K@^$/K@@#[/\K@#2/,0@#R/KB[>_R8)@ >&8)@@[R80@@^&80@@[GC )@@G@@N8K@@U')[@@@Q8)@AK@@^+9)@@J;()@@Q;DK@@IGI )@@G@@%9@@I(/K@@[? @)@@G*@@@@G/K@@[:C K@]8/K@@]C/K@@[1%9@@I-/\)@#KC[)@^7G9)@# GJ )@@G@@[[)@]89?)@^8N8K@@HM#")@@9?)@ \+[K@^;?[)@^/+9KJ__G[)@^'=9KK@@H[)@^.[[)@ +GK )@@G@@')@@ +>[)@^./K@@[59*)@ \9?)@^8N8K@@HM#\)@@C@0@@L%9@@I*/K@@]CC[J@@@/K@@[HGL )@@G@@%9@@I(/K@@]%%9K@@H:9K@[6/K@@]I/K@@]LC8)@ !/K@@]>/K@@](%9K@[]:9K@[8/K@@]PGM )@@G@@/K@@]U9?G@@@9*@@BIC8)@BJ/K@@]Z@@@@@@___@ (@@@@@@___@@@___@@@___@@@___@@@___HV )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___HW )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___!8@@[DC8@@[C;G@@@=W/@__9HX )@@G@@T8K@@A9?)[E?;^!@@@9*)[U8D@K@@GC8G[U8&;H@[]'=@@@I/KF@@@[@@[U.;GK@@A[0K[U/HY )@@G@@;G)@@<[?)[U/;C0@@Z[40[U/A]0[U"^@)[U_9(@[V@/,0@)4[^@[U/C@@[U./,0@AH/K@@#NHZ )@@G@@[@0[U;9*K@@K/,0@)9/[@@@'C4@[U;/KG@@-/K@@@!/K@@@:%9@@@@:9@@@J/K@@@!!9@@@#IA )@@G@@!9@@@C/K@@#C/K@@@!!9@@@I/K@@#CC/)@@,')]))VC@K@@KCCH@KK!8K@@^!8K@@C/K@@@9IB )@@G@@C4)[U/:8)@@[C^H@KK:8)@@]C8H@@0/,0@)9 @@@@FN@K@@KN8)@@[?9@@@I @@@[]*@@@[]IC )@@G@@ @@@[[ @@@@KC/)@@ ')]))V/,0@)4C@K@@GC^@[U/G0@[U/?@K@@G/,0@)*E[@@@LC0@[U;ID )@@G@@/KG@[H/K@@[80@@]/K@@#C/K@@[;/^0@#C/ K@#C/K@@]@%[K@@H>80@@#/K@@#C!9@@C@IH )@@G@@!9@J__/[K@]@/H@@]@&;0__"C*@[U;1@@@@F/K@@]AC8)@@,%8@@@ ')]))V=80@@]D[K@@LII )@@G@@>80@@[/K@@]H/C0@#CC/)@@*')]))V*@@@[[/C0@#C/KG@]K/K@@]!/K@@]?/K@@](/K@@]YIJ )@@G@@/K@@]R/ @@#C/K@@#!/G0@]!C@@@@K(@@@[]/,0@B]/K@@]!/,0@)9/K@@]//H@@#C(@@@@LIK )@@G@@!9@@]L/K@@]!C@)@@KE@I[E, @@@@H0@I[E,C8K@@$/,0@);/K@@]/!9@@]L/[K@#C/K@@]!IL )@@G@@/C0@#CE@@@@KC4K[U.%8K@@=:8K@@>(@@@[]/K@@]5Q#@@@K/K@@];/H@@]9/C0@];')@[U'IM )@@G@@/K@@]/C/)@@-')]))V/,0@-21@@@@L/[K@#!C/)@@,')]))VE@@@@L/DK@#^C/)@@*')]))VIN )@@G@@/,0@B]'=@@@)/,0@)9/K@@#!/,0@)4C[@@@GH @[U/C^@[U//,0@)*C8)@@ /K@@#K')]))VIO )@@G@@8^@@#JC^@[U//,0@)*D8@@@@*?@[U//K@@#,C@@[U.C8K@@G/,0@+@C/)@@ ')]))VC/)@@(IP )@@G@@')]))VC[@[U.;H@@@YC@@@@KC8K@@]/,0@+@N8K@@] @@@@K;!@@@^C/)@@ ')]))VC@@@@KIQ )@@G@@C8K@@]/,0@+@8KK@# ? @ A B C D E F G H I J K IU )@@G@@ L M N O P Q R S T U V W X Y Z [ \ ] ^ LU VG A. B. C.IV )@@G@@ D. E. F. G. H. I. J. K. L. M. N. O. P. Q. R. S. T. U. V. W. X. Y. Z. BOIW )@@G@@ LV BC LT BRC80@@#;G@@@[;=@@@D+8K@@_1@@@@GCC,@#20@@@@GC^,@#2')]))V;C)@@AIX )@@G@@/^)@^'8#0@^4/KF@@@H8K@@E/GK@ ^C8)@@0')]))V8#K@ ]C8.@@ET8K@@^;GH@@*/K@@ TIY )@@G@@ @@@@JC8?@@0?8@@@E/K@@ S/K@@ IG80@@[;G@@@^/^@@ HC8)@@0')]))V;)K@@^+8K@@JIZ )@@G@@?8)@@EG8)@@0?8)@@0G/)__;')]))V8#0@ M/KF@@@ @@@@H;G@@@S^@)@@JN8K@^BN@)@B!JA )@@G@@C@@@B,9@W)F"/\)@A]N@)@@JC8G@@@B4@@[[B0@@[)CO/@F.D8K@@@D8)@@@QR\@K;(8I@@@JB )@@G@@/K@@ "%8@@]8:8@@]9H8@@@GLSI@F.D@I@F.;C@@@YG@K@@GC8I@@@(OG@F./K@@ ';GK@@MJC )@@G@@QR?@F./K@@ 01OG@F./K@@ ";GK@@MD8K@@@Q#)@[[B0I@@@;K)@@M/K@@A0N8K@@GQ;@__"JD )@@G@@9@W)K /K@@AFC@G@K^+8@@__;*@@@S;C@@@S/KI@@@N@)@@J/KF@@@;G@@@Y%8@@@8/K@@ANJE )@@G@@;GK@[@D8K@@@/K@@AP;GK@@);C)@@)C@G@F./C@@A<=8@@)@;^K@@=N@K@@IC@)@@H/\0@A8JF )@@G@@C@)@[[/G@@AV/@)@A<:@@@I(C@@@I5:@@@I%C@@@I6/@F@@@C@0@@G;*0@@S;C0@@S;C@@@GJG )@@G@@*4J@K;*0J@K;/K@@A?C@K@@I(4J@K;D8K@@@(0J@K;D8)@@@C@_@K;;C0@@G=80@)@G@0@B\JH )@@G@@=80@K@G@0@B0;@0@@S/KF@@[;O@@@YG@@@@I/GF@@@;GK@@Y?@K@@G/KF@@@;C)@@SG@@@@IJI )@@G@@C@G@F./KJ@@@/GF@@@?8@@@)/K@@BD!8@@[[!8@@[K/KF@@@H8@@@-!8@@@VC^G@K ?8@@@VJJ )@@G@@CCG@K)>8@@@);C@@@A/KF@@[!8@@R3!8@@R'/KF@@@H8@@R3C^G@K4>8@@@);C@@@A/KF@@@JK )@@G@@+@@@B1%8K /KF@@@;C@@@MC@K@B,N8K@@V2CH)K-/K@@B-/K@@B=N8K@@V2^H)KA/K@@B%JL )@@G@@C8H@@@!8@@@)G8@@@-!8@@[KH8@@@H/KF@@[;*@@@MG8@ /KF@@@____@@@@[__"@___)@JM )@@G@@@@__0@@@@___C@K@F8[@W@@ A G@@]Q9G@@@C8@@@ /KF@@@C8^@@@Q ^@@]/KF@@@C8@@K@JN )@@G@@/K@@CLC8@@K@/K@@CPC8@@[@/K@@CLC8@@[@/K@@CPC8@@]@/K@@CLC8@@]@/K@@CPC8@@#@JO )@@G@@/K@@CLC8@@#@/K@@CPC8@@^@/K@@CLC8@@^@/K@@CPC8)@##/K@@CMC8)@#]C@O@@ ;KK@@MJP )@@G@@/K@@CRC8)@#[CGO@@ @@@@J/GK@E[AA4@@[[CO@@ [G^@@ /,0@F%:8)@##/K@@EJ;G@@[CJQ )@@G@@/,0@E./K@@D?/K@@DQ ?^@@]C44@@]R'0@@ER]0@@J!80@@C/K@@C,R'0@@C*@@@@JR'0@@KJR )@@G@@%8)@@0R'0@@EA24@@]P'0@@J/K@@C4/,0@E./K@@DI/K@@D@H8)@@01@@@@I!0=@@]/K@@DDJS )@@G@@;G)@@=/GK@C";?@@@=S0^@@]9)@@@I/@@@C1C8)@@[/K@@DE0@@@@F/K@@DB?8)@@G?8)@@AJT )@@G@@/K@@DBG8)@@^/K@@C8*0^@@[/K@@DNC8)@@])?=@@][?4@@];G@@[C/K@@C1C@@@@HC0O@@]JU )@@G@@R'0@[@O,4@@]/K@@D7CCO@@ /,0@F?')A)FZ @@@@J9?@@F9/K@@DY/,0@E./K@@D=/S@@@@JV )@@G@@C@0@@F;C0@@M&'_@@[!80@@G/K@@DT;?@@@AG@K@@I/K@@DTC@0@@F;C0@@M!80@@HC80@@GJW )@@G@@T80@@A;^J@@@R'0@]@/K@@D7:?=@@[/K@@D9R]0@@I:8)@@ (4^@@[/K@@D;')A)FZ:?=@@[JX )@@G@@/K@@D9:8)@@ /K@@D2P[)@F;/K@@D;R'0@#@R[K@F/C@)@@F/,0@F1&J4@@ [G4@@ ;C0@@MJY )@@G@@RA4@@[%8)@@ :8)@#@%80@^@:@)@@JO'0@@[%8)@[@:8)@]@/K@@EG;G@@[C @@@@J/KF@@@JZ )@@G@@CG4@@ HC4@@ /KF@@@*C^@@ /K@@EN]@K@@ /K@@EZ&.)__"')A)FZ @@@@G/,0@E.Q;@@@[KA )@@G@@/S@@@@/=@@EW&;@@@[/K@@EQO[)@F;>@@@F;O9)@@[/,0@F1;*0@@MQF4@@ [@4@@ RA4@@[KB )@@G@@ @@@@I/KF@@@[@@@[[C@^@@ ;K@@@MCGO@@ /GV@@@[CO@@ AA4@@[/,0@F%9?@@@ ')A)FZKC )@@G@@%?=@@[/K@@E4R[K@F//K@@E6%@)@[[/K@@E,/,0@F1[G4@@ T8@@@AG8H@@@C@K@@JRA4@@[KD )@@G@@/KF@@@')A)FZ:?=@@[/KF@@@&;0@@[(4^@@@/K@@FCN4O@@@QF4@@A2)\)@@/K@@FC/KF@@@KE )@@G@@(0^@@@/K@@FJN0O@@@QB4@@A2)\)@@/K@@FJ/KF@@[?8)@@A/KF@@@?8)@@)/KF@@[?8)@@0KF )@@G@@/KF@@@?8)@@'/KF@@]/KF@@@/(K@FU/K@@ERP9K@@[Q9)@@ H8)@@[/KI@@@/\)@FSC4=K@@KG )@@G@@C0=K@@C?=K@@C*=K@@C==K@@C)=K@@/\)@F&O9K@@[Q9)@@@H8)@@[/KI@@@A[O@@#A[=@@^KH )@@G@@ @@@@GW8@@@A9*@@@ &9)@@[/KF@@@C@0@@ T80@@A%@0@F/G/6@@@R[O@@#R[=@@^/KF@@@KI )@@G@@___@@@ @@[@@[______@@@@@@@@SA@@@@SN@@@@SM@@@@SR@[_J[@__@@SX@]KJ )@@G@@_J[K@@@@LA@#@@LN@#@@LM@^@LNM@^@@AA@#@ANA@#@@AM@^@ANM@^@@AU@#@ANU@#@@BT@ KK )@@G@@@@LR@A@@AX@B@ANX@B@LXM@B@@LX@B@@MI@#@MSI@#@@MF@#_J[)@@@@DI@#@DSF@#@@DF@#KL )@@G@@_B[0@@@@OR@#@XOR@#@AND@#@MLU@#@TEP@#@TOP@#@LXI@BTLEM@B@@TZ@C@TNZ@C@@TE@#KM )@@G@@@TNE@#@TLE@#@@TG@#@@TW@#@TNW@#@@TP@D@@TN@D@@SE@E@SNE@E@SLE@E@@SG@E@@SW@EKN )@@G@@@SNW@E@JGD@F_J[8@@_J]C@@_J]S@@_J]*@@_J]'@@_J#E@@@@@@@@@@SZ@G@SNZ@G@SP1@GKO )@@G@@@SN1@G@SFS@G@SFZ@G@SAS@G@SAZ@G@INC@G@DEC@GINC2@GDEC2@G@ENZ@G@ENZ@G@ENZ@GKP )@@G@@@ENZ@G@SIA@H@SOA@H@SIP@H@SOP@H@LIA@H@LOA@H@LIP@H@LOP@H@LCB@I@LPI@I@LDJ@JKQ )@@G@@@LIJ@J@LPD@K@SPD@L_[#U@B@LBJ@J@@BM@M@BMT@M@BTT@N@BTC@N@@BC@N@BPD@M@PDB@MKR )@@G@@EDIT@M@@BI@N@BDI@N@@IB@N@DIB@N@@BF@N@BDF@N@@FB@N@DFB@N@@QB@O@@BQ@O@QBH@OKS )@@G@@@BHQ@O@QDB@O@DBQ@O@@BA@P@BAN@P@MSE@QMSNE@QMSLE@Q@MSG@Q@MSW@QMSNW@QMASL@QKT )@@G@@MASG@Q@@DA@R@DAN@R@@DS@R@@DL@R@DLN@R@DLM@R@DJZ@R@DTE@R@IMI@S@SLJ@T@JPS@UKU )@@G@@@JNS@U@@AH@V@ANH@V@@AT@V@ANT@V@@EX@W@@ER@X@@@@@@PAIJ@Y@SCN@Z@TRA@)@SRS@-KV )@@G@@@LRS@-@SSC@+@DSC@+@SSL@+@DSL@+@SSA@+@DSA@+@LSC@@@HJ@>@NOP@&KX )@@G@@AAIJ@>@JNB@=@@JB@=JMGI@$@LMJ@$_##_@/_#^#@/@@JC@>@JNC@>@@JK@*@HJK@*@LIC@(KY )@@G@@SIOF@%@JIC@(@TSC@%@HDV@%@HCH@%@JOC@(@DOC@:@LCR@?LTCW@?@JFC@!@@@@@@AACI@,KZ )@@G@@PACI@,@ACI@\@PCI@\@@FA@0@FAN@0@@FM@0@@FD@0@LUF@0@LCF@0MCDU@0@CDU@0@DFA@0LA )@@G@@DFAN@0@DFM@0@DFD@0@DFU@0DLCF@0@FEL@0@FCL@0@LBR@1@SJS@1@III@2@III@2@III@2LB )@@G@@@III@2@III@2@III@2@@@@@@@@@@@@@LDC@3@EDC@3@DDC@3@SDC@3@MDA@4@MDB@4@SIL@5LC )@@G@@@@@@@@LBRX@5@LQT@5IIIX@5SPID@5@RAT@5@TAP@5@@LB@5@@LL@5@LAE@5@SQT@5@@LD@5LD )@@G@@@@SD@5@@UR@5@SSS@5@LCR@6@LLA@6@@TS@7@TSS@8@TCS@8@@JO@9@JFU@'@JFO@'@JDF@'LE )@@G@@@JNO@;JNFU@/JNFO@/JNDF@/@SNA@]@SMA@#@LNA@D@LMA@ELNMA@F@AMA@IANMA@JTNGM@$LF )@@G@@@TNG@?@SNG@4MSNG['@DFP#RW W H2 H2 H1 H1 XH2XH2XH1Q2 T3 Q4 T2 Q3 T1 Q1 LG )@@G@@S6 S6 S5 S5 S4 S4 S3 S3 S2 S2 S1 S1 U U XU XU X0 A15X1 A16X2 A17X3 A18LH )@@G@@X4 A19X5 R1 X6 R2 X7 R3 X8 R4 X9 R5 X10R6 X11R7 A0 R8 A1 R9 A2 R10A3 R11LI )@@G@@A4 R12A5 R13A6 R14A7 R15A8 SR1A9 SR2A10SR3A11J0 A12J1 A13J2 A14J3 ][@^@@LJ )@@G@@]^@^@@]#@^@@[[@^@@#[@^@@]#[^@@[^@^@@[#@^@@[A@^@@#A@^@@[[[^@@[ @[@@]@@^@ LK )@@G@@@[0@@B@[2@@B@#@[@B@A@@@B@A@^@B@AN[@V@[N[@V@[M @Z@AN[@Z@[[^@9@[@^@9@])@@'LL )@@G@@@A@[@'@[@[@'@[@^@'@A@^@'@A@#@'@A)[@'@]@^@'@#@@@'@[@@@'@[@]@;@[@^@;@[@[@/LM )@@G@@@A@[@/@]@@@/@#@[@/@]@[@/@])@@.@#)@@.@]) @.@#)@]&@])@]&@]) ]&@]0@]&@[@^@"LN )@@G@@@@0@[Y@])@]=@@) ]=@@)@]=@@)@]>@@)@]&@@@[]$@@K[]$@@@[]4@@K[]4@@@[]5@@K[]5LO )@@G@@K^*@@@@@@@@@KB2@@@@@@@@@KI$^@@@@@@@@KV\:0)@@@@@@K6<-\D\0K@@@L:$WQ!%]!0!TLP )@@G@@NP0$)ZMZ_J(%Q%=;(B2S#(.__.@@MLW )@@G@@KS&DU@@@@@@@K@)@@@@@@@@@/\K@R^/S^@@A/[@@P)D8@@@@[@@[V] @@[VD(W^@@^ S@[V]LX )@@G@@/K@@PX/[)@N?0@ @@^/-)@N?1@ @@^/>)@N?/S )@@/K@@PXCPP@@^:XK[V]/K@@OW[XK[V]LY )@@G@@*S@[V]]TK[V]]PK[V]/,0@RNC8=@@#G^=@@#&;)@@#NWO@@#2XY)@ '=@@@)9?I@@@9*@[VDLZ )@@G@@&RI@@]QVI@@]GOI@@];*@@@DH8@@@[[@@[VFC@@@R$0@ @@^&;@D-B:@@[VD/K@@OE/,0@)9MA )@@G@@C/)@@ ')]))V9?@[VD/,0@);C8@@R*/,0@-QCW@[V]/,0@-2/,0@-NCC@[VFC8K@@A/,0@+@MB )@@G@@/,0@-NC^@[VFC8K@@A/,0@+@/,0@-N @@[VDC8@@]@/,0@RXC5P@@^CC @@#:S@[V]/K@@O\MC )@@G@@[S@[V]]O@[V]/,0@RN @@[VDC@@@R%=9K@@]C@@@R:/,0@)9C/)@@ ')]))VCS@[V]C8O@@^MD )@@G@@/,0@R+C8@@]@/,0@RXC^ @@#:O@[V]/K@@O;[O@[V]C8O@@ /,0@R+>9K@@K/K@@O;C/@@@SME )@@G@@/,0@)*9?@@R?/,0@);C/@@@H/,0@)*=9K@@^/K@@P#C* @@^C8K@@]/,0@+@/K@@P C8@@CBMF )@@G@@/,0@)9C/)@@ ')]))V')]))V=9K@@C/K@@PKC^ @@ KC )@ [@K[VDC8K@@A/,0@+@/K@@PVMG )@@G@@C^ )@ T8@@@#G8^@@AG^^@@AC^G@@#C/)@@[')]))VC8O@@ /,0@R+C/)@@]')]))VC8@@[@MH )@@G@@/,0@RX8^@@N>/,0@RN/K@@Q/C@@@R4'=@@@ICX^@@#R9O@@#O O@@#&9K@@#/K@@P/9? )@#MI )@@G@@/,0@);&R @@]QV @@]GO @@];*@@@DH8@@@[[@@[VDC/)@@ ')]))V')]))VCC@[VDC8K@@AMJ )@@G@@/,0@+@C/)@@-')]))VC^@[VDC8K@@A/,0@+@C8@@[@/,0@RX8^@@P$/K@@Q//\K@R^/S^@@BMK )@@G@@C8@@R5/,0@-Q/[@@Q8C8@@]@/,0@RX/K@@Q<9? )@#/,0@);C/@@@H/,0@)*CC @@]C8K@@AML )@@G@@/,0@+@C8@@R9/,0@-QC^ @@]G8^@@@C(W@@[CD>@@]H ?@@]C^G@@@;*@@@[G8^@@ G^^@@ MM )@@G@@G?^@@ 9?G@@@/,0@);/,0@-NC@@@@L/,0@+F/,0@-NC@@@@M/,0@-2C8@@[@/,0@RX8^@@QAMN )@@G@@/K@@Q//\K@R^/S^@@CC8@@R;/,0@-Q/[@@Q8C8@@]@/,0@RX/K@@Q69? )@#/,0@);C/@@@HMO )@@G@@/,0@)*C@ @@]C8K@@G/,0@+@C8@@[@/,0@RX8^@@Q!/K@@Q/C@@@S[/,0@)9C8@@]@/,0@RXMP )@@G@@C@@[V#B0G@@@9!@[VAC[)[VCR]0[V R[K[V^QD@[V#/KF@@@AD@[V#A[K[V^A]0[V 9(@[VAMQ )@@G@@[[)[VCB4@[V#B0@@[@Q[@@@G;C@@@MC[)@@GR9XK@@&!XK@@O XK@@CXHK@@/KH@@[(@@[VDMR )@@G@@/KF@@@AE0[VDC8@@S]/,0@-QC^@[VDC8K@@A/,0@+@QE0[VDC8@@[@G?[@@@;*@@@MG^[@@@MS )@@G@@'=@@@I/K@@)];*@@@[G8H@@@G^H@@@9?G@@]/K@@);I-BANK [&] (&-&)& @SGMT:@RSEG:MT )@@G@@@@@@@(RLIB$)NO DIAGNOSTIC TABLES. BANKS ARE: @[A@R,ENTRY POINT NAMES:MU )@@G@@ & &.&+& EXTERNALIZED ABSOLUTE VALUES: & @@NONE1ST UNUSED AMV )@@G@@DDR: &/\0@X&/,0@WO'^K[VH'^@[VH/\0@X&/,0@WI'^)[VH'^@[VH/\0@X&/,0@V,'^0[VHMW )@@G@@'^@[VH/\0@X&/,0@V('^0[VH'^@[VH/\0@X&/,0@W$' @[VH'^@[VH/\0@X&/,0@W?' @[VHMX )@@G@@R82@@A/\@@XBCW[@@DC8K@@[;*K@@M2^#)@#/K@@S&!^N@@[C^N@@[/K@@S-[WL@@#;CK@@GMY )@@G@@[?L@@D'^@[VH/\0@X*C8@@__[W[@@#/,0@V9'A0[VH'^@[VH/\0@X&/,0@WF'^)[VH/,0@W?MZ )@@G@@' @[VHR82@@A/\@@XBCW[@@DC?L@@D/K@@T[:^#)@#%*N@@[/K@@T[CO<@@[/\0@W3/K@@T[NA )@@G@@/K@@TC8KK@S'1W[@@#' )[VH(0[@@#' 0[VH 0[@@#/K@@S5C4#@@[>8@@@C/K@@TJC^#@@]NB )@@G@@T8@@@#R8/@@#O^2@@AC^[@@D!C#@@]'A@[VHG^#@@][C[@@EAG1@@E/K@@U^90@@@G9*@[VPNC )@@G@@/\0@X&R'0@Z8R82@@C0@@[VPR82@@B94K[VP/\0@XFC@N@@]1@@[VP'^@[VHG8M@@@[@L@@END )@@G@@/K@@T!/\0@X**@[@@E/K@@T!C8[@@@C?-@@A/,0@X][?-@@A'^@[VHCG[@@E/C@@T1]W[@@#NE )@@G@@/K@@U9C8]@@AG^]@@ACWM@@AT?M@@AG@K@@G,G[@@E'BK[VHRG1@@EC^#@@@[W[@@DC*#@@[NF )@@G@@[?[@@D/,0@W$'=@@@)RG1@@ECC[@@EH^#@@][^[@@D @[@@@CC#@@@[W[@@ACO#@@[[W[@@#NG )@@G@@/K@@VW/\0@X*/,0@WF'^)[VH/,0@V<'^0[VHR82@@A/\@@XBCC[@@E/K@@U$C4N)@^=8K@@CNH )@@G@@/K@@U$L^#@@]/GK@U$!CN@@]/K@@U$CC<@@@:W-@@A/K@@U<1W[@@A/K@@U$(0[@@A/K@@UQ^1@@@C8@@+&M@/)@@Q^1@@@OM )@@G@@/KF@@@A^W@@#A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[ON )@@G@@P^1@@@A01@@[C8[@@@Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@OO )@@G@@/?)@)-[)<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')]))V/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@OP )@@G@@Q8/@@@/KF@@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@/K@@)*C8#@@@H^[@@@T8@@@AG8]@@@OQ )@@G@@/KF@@@C80@@ /K@@)/C80@@F;^@@[]+8K@@_%8)@@ :8)@@@/K@@-]')]))V8#0@)//KF@@@OR )@@G@@&"0__"/K@@-B&'0@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[8#0@-I/KF@@@')G)-*0@@@@FOS )@@G@@%8)@@@')]))V/K@@-GC?[@@[C^L@@[/K@@-S;G@@@M;CK@@M&;@@@[&;K@@[')G)-*:0-@@@OT )@@G@@/K@@--:4-@@@/K@@-=')]))V/K@@-U[?[@@[[^L@@[/KF@@@*8G@@@O;K@@[R#H@@@/K@@-QOU )@@G@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@-,C)!)@@[^[@@]Q;@@@@/K[K@]C80@@@;G@@@#OV )@@G@@/@@@-'G80@@[;G@@@#/^@@-5C8)@@0')]))VC8)@@@;=K@@#G8)@@0')]))V8#0@-'/KF@@@OW )@@G@@P;K@@H/GK@+ R;)@@0')]))V8#K@+]R;.@@GT8K@@#;GH@@$/K@@-'&'0@@0/K@@+HC8K@@@OX )@@G@@&'0@@ N8X@@@C80@@@;O@@@=W8@@@EE/X@@@;?)@@AG8.@@08KK@+P/^@@+J/C@@+U;?)@@AOY )@@G@@G80@@-8KK@+UC@K@@IR#)@@F;C)@@M/K@@+Z')]))V8KK@+YC@)@@J')]))V;GK@@A/^)@+-OZ )@@G@@/KF@@@@@[@@@ R'0@*3H8@@@[[@@[V>CC^@@ G8@@@[G0B@A4/K@@@@C@@[EP;C@@@[PA )@@G@@N@K@@GR[K[I1C @[V>*@@@@K5 -EU'^@K(*@[>N/,0@CB/\@@+$(?@[>R' @LI PE )@@G@@CC@[>Y&B@[>UG@@[JU[@B@A]/K@@YH9)@@[1@@@@M!9)@B_'^KK*(PF )@@G@@[T$@A8EG7@A5/KB@^&%8)@#@/K@@R' @LI /,0@CB/\@@+$CC0[>YPH )@@G@@:;0JUM/KB@^&[G7@A5/K@@*4(GB@A5'^@K*( @@@@K:8)@#@/K@@=Q%8)@[@/\@@+$H8@@@[PI )@@G@@C[@@@G/,0@CD/\@@+$1@@@@K!9@@)@'^)LI EG7@A5[K7@A5[XB@A8'^B@#HEKB@A5/,0@.[PJ )@@G@@[@R@A@EKB@A5'^@[V&:@@[JX/K@@=3C[K@@GC8@[JY/,0@-Q/,0[D#C@@@@L/,0[E^/,0@-NPK )@@G@@1GB@A5/K@@=3N8K@@AN@)[J-C@@[J+9[W)=4/K@@=0/K@@=3/,0@-NEGB@A5/,0@.[/K@@*1PL )@@G@@B?@@@@B*@@@@B/@@@@'^@@@@/K@@@@/?@@@@CD^@@ :8)@#@/K@@> /,0@CH/K@@=.:8)@#@PM )@@G@@/K@@> [H^@@ /,0@../\@@+$ @@@@K(@@@@K/K@@>M[D^@@ /,0@B;/,0@9]/K@@+$/K@@<[PN )@@G@@**@[>N'^)K*((?@[>R' @LI CC@[>Y'^@[V&%@@[JT*?B@A4' @K*(9?B@ !9*B@A1PO )@@G@@/K@@>%C[@@@GC80@@KCGB@A5[GB@A7^N7@A5'^B@#HDGB@A5CGR@A7[GR@A5 GB@A70@@@@GPP )@@G@@/K@@>%(@@@@H'^0K*(:8@@@MC8H@@[[GB@A5/K@@*4%8)@#@/\@@+$/,0@&R @@@@KD8)@@@PQ )@@G@@3@!)@]/K@@>5[@!@@@G9@@@[/K@@>0(@@@@K' KK*(C@@@@K/,0@+FC8@[J=/,0@-QC8)@@SPR )@@G@@%9@@@[')]))V/,0@-N/K@@*1/,0@9]/K@@+$/K@@<[/,0@CB/\@@+$/,0@&RCC@[>Y&B@[>UPS )@@G@@D8)@@@%;0CLE/K@@&J2@H)@]' )K*([@!@@@/K@@&Q2@H)@]/K@@&M' 0K*(/,0@&R2@!)@]PT )@@G@@'A@K*([@H@@@/K@@*4N8K@@JC8R@A]&;K@@]/KF@@@%8)@#@/\@@+$/,0[D#D9)@@@ @@@@OPU )@@G@@/,0@&RC[0[J*6[!)@]/K@@&&C[.@@@/K@@&+:[0[J*/K@@$EC[)@@N;D0@@M:]@@@N/K@@&5PV )@@G@@C]@@@NHD0[>Z;D0@@][X0[>U/,0@SH9?@[>S/,0@);C/)@@:')]))VC@@@@MC8K@@A/,0@+@PW )@@G@@C/)@@ ')]))V[D)[>Y/,0@UD/,0@.U/K@@$^9?@[J(/,0@);/K@@$CPX )@@G@@C@@@@MC8G@@@'^@[V&/,0[DM/,0[C!/K@@&)0@@@@M' KK*(/K@@*4*?B@A4' @K*(%8)@#@PY )@@G@@/K@@$2(@B@A1'AKK*(9?B@A1[C@[>Y[WK[>R/,0@S 9?@[>O/,0@);C8@[J:/,0@-QCC@[>YPZ )@@G@@C8K@@A/,0@+@/,0@-N @@[>SCC@[>Y @@@@H/,0@///,0@-NC4$@A1C@K[J!N8K@@ 2=!)*VQA )@@G@@'=@@@)CCH@*U/,0@)9C0B@A1(@@@@G/K@@$0/,0@-N/,0@-2/K@@*1/K@@*U:8)@[@*@@@@GQB )@@G@@/K@@$9/,0@CD/\@@+$ @B@A1/K@@*T/,0@9]/K@@+$/K@@<[**@[>N/\@@+$C9@@F@R_@@@ QC )@@G@@/,0@CL/K@@*N/,0@C /K@@*F;C@@@MC@K[J!N8K@@ 2CH)*V/\@@+$C H@*U/,0@B.%8)@@,QD )@@G@@/K@@*N/,0@C[/\@@+$!8@@[@/\@@+$G[@@@G/,0@B.%8)@#@/\@@+$;(@@@SGD@[>YCXK[>RQE )@@G@@9(B@A1/K@@*4W @D@R @E@RW @F@WR @F@P @G@@[^[J,@[A[J2@[B[J8@[B[J_@[B[KAQF )@@G@@@[^[KH@[ [KL@[A[KQ@[A[KW@[ [K+@@@[VR@@G@*ZD8@@@@&;@@]][@B@^) WB@A8 )B@A6QG )@@G@@/K@@*3C@@[L1'=@@@I/,0@)]B0@@[) 0B@A4 @@[>NC@K[L29?$@A39*)[=R*)B@A6/K@@(FQH )@@G@@C8@@(2'=@@[]>@@[L3/K@@(#C@@[L''=@@@I/K@@*9**B@A6>@@[L;/K@@(E8#K@*9C@@[M#QI )@@G@@'=@@@I/K@@*9/K@@(HC8@@(7'=@@@+C8G@@@*@@@@G]@G[=RC@@[=R%@@[M^:@@[M /K@@(QQJ )@@G@@%@@[MA:@@[MBC@@[MC:@@[MDC@@[MC[@@[=RR_@[>]/,0@B2C8@@@_[?^@@[^34@@@/,0@C QK )@@G@@/K@@6G/,0@(?C[@@@G/,0@CH/K@@6G%8)@#@/,0@B./,0@%M/K@@6GCF5[K$R P[K$/K @@@QL )@@G@@N@)[ME:80@@]N@)[MF:80@@[N@)[MG/KF@@@@[[@(4@(5[=R>_____/C@@*3/KB@^=@*\[=RQM )@@G@@$DXC$ @@@@I;=K@@^&;I@[@'=@@@IG8I@@@/^K@('/KF@@@%8)@#@/K@@%CC8@[ONQN )@@G@@C@K[P^/,0@('/K@@*4/K@@%M%8)@]@/\@@+$/,0@(?C[@@@G/,0@CD/\@@+$/,0@%M'^@LI QO )@@G@@C@ [K*/K@@*2N8K@@)*0B@A6N8K@@>R[K[P 9[ -K(/KF@@@/KF@@[C8@[PAC@K[QC/,0@('QP )@@G@@/K@@*4%8)@#@/K@@%>C8@[QD/,0@-QC@B@A;C8K@@G/,0@+@/K@@*1CCO@@ [GO@@ /,0@..QQ )@@G@@/K@@+$[@B@A;/K@@*4 @@@@M:8)@#@/K@@: /,0@9]/K@@+$/K@@<[**@[>N'^@K?[(?@[>RQR )@@G@@' @LI 0@@L>U' KLI QE@[>MCDK[>QH9S@@@G K[>Q/,0@B;:8)@#@/K@@:#/,0@../K@@+$QS )@@G@@[@B@A'[=R@A6C9)@@[[DR@A9/K@@:D(^B@A9'^KK?[QAB@A9O'@@@[/,$@@Z&#@@@K/,0@NWRE )@@G@@(C@[>Z/K@@!RC8@[Q7/,0@-QCC@[>Z/,0@-2/,0@-NC8@[Q9/,0@-QC^@[>Z/,0@-2/K@@*1RF )@@G@@%8)@#@/K@@!>C8@[>Z:;0ENT/,0@P":;0ABS/,0@Q>/K@@*4/K@@, C8@@@G[0^@@@/,0@C#RG )@@G@@/\@@+$9*@@@K/,0@CD/\@@+$9?@@@K%;0ENT/K@@!;/,0@TQ/^@@<[9?@@@K/,0@);C8@[Q.RH )@@G@@/,0@-QCC@[>Y/,0@-2C8@[Q./,0@-Q/,0@.S(@@@@G/K@@,I/,0@);RJ )@@G@@C/)@@:')]))VCC@[>Y/,0@-2C8@[Q./,0@-Q(*@[>N/K@@,TCC@[>Y/,0@B]'=@@@)/,0@)9RK )@@G@@/K@@,U/,0@.+O'K[>+O,K[>+&,K[>+NW0[>+/K@@,$CWD)@]RL )@@G@@[W@[>R/,0@S /,)@\;8K0@,R/,0@S RP )@@G@@/K@@\VC8@@@G[0^@@@/,0@C#/\@@+$9*@[>O/,0@SD/^@@<[/,)@\;C8@[R[/,0@-QC?@[>RRQ )@@G@@G8@@@[+8@@@A9?H[Q0/,0@);/,0@-NCW@[>R&;@)@['=@@[0C[@@@HC8)@@I=9@@^@C8)@@DRR )@@G@@')]))V/,0@-N9?@[R#=9@^@@/,0@);9?@[R =9@]@@/,0@);9?@[RB=9@[@@/,0@);9?@[RDRS )@@G@@=9@@)@/,0@);/K@@*1CW@[>RC8K@@#/,0@+@C/)@@ ')]))V')]))V9?@[>O/,0@);C/@@@MRT )@@G@@/,0@)*C^@[>QC8K@@A/,0@+@C/)@@-')]))VC^@[>QGC@[>QH8@@@[C8K@@A/,0@+@/,0[C!RU )@@G@@/KE@@@:8)@#@/\@@+$CCO@@ /,0@F%C@@[RNC@K[RO @@@@J')A)FZ:8)@@ /\0@0S:8)@@_RV )@@G@@/K@@0>(@@@@J/K@@0-/:@[RP;)K@@A/:@[RP;*)@@Y;?K@@A/K@@0R;@W@@Y[@R@A3/K@@*4RW )@@G@@D9@@@@:@@[RQC9@@@[:@@[RRC9@@@@1@@@@K/,0@CD/\@@+$%;0DIS/K@@04[(B@A6/K@@0'RX )@@G@@-9@@@[[!R@A6(@@@@L/K@@0'C@@[RV'=@@@J/K@@*4*)B@A6'^KLRL/K@@1@*)B@A6'^)LRLRY )@@G@@C[@[RO:8)@#@/K@@1GC8@@@G[0^@@@/,0@C#/\@@+$!80@@B'^0LRLC[@@@G/,0@CD/\@@+$RZ )@@G@@C@@[RY'=@@@JC@0[RZ9?K[R)9*R@BI9*7@BKC8B@BI&;@@@^'=@@@J9?@[R+9*B@BJC8B@BJSA )@@G@@&;@@@E'=@@@UC4$@BP!8)@@S!8)@@) @@@@I*@@@@I/K@@1&%;0CML/K@@1>C@@[R&'=@@@JSB )@@G@@/K@@1&' @LRL%;0CML/K@@11C8@[=R[@B@BIC8@[R*'=@@[][CB@BIC8B@BI'=@@[=/K@@1%SC )@@G@@/K@@12^<7@A6/K@@*4/,0[^$K@@@2[/K@@< [@@@@KR'K@@[/,0@CB/K@@2EC8@[R%/,0@-QSD )@@G@@(?D[U+/,0@-NC@@@@K/,0[DM/K@@*1N@)@@F/,0@TR^@)@@F @@@@I*@@@@G/K@@2DC8)@[@SE )@@G@@C@@@@H/KF@@@:8)@@ /,0@C /K@@2O/,0@(?C@K[R:N8K@@F9@H-T7/K@@2OR'X@@@/K@@1'SF )@@G@@C@@[R3'=@@@I/K@@1'%8)@#@/\@@+$(@@[>J' KLRLC@@[R6'=@@[ZC8@[>J'=@@]]/K@@*4SG )@@G@@ @B@ C/KB@ E^37@A6/K@@*4:8)@[@%8K@@C/\@@+$R]K@@G/,0@CD/\@@+$C@@@@D%;0SBPSH )@@G@@/K@@26(@@@@G/K@@23!8B@@@!^B@BE'^@K4E&;@^@@[@B@B_'=@@[,/K@@*4!8B@@@!^B@BESI )@@G@@'^@K4E?8@@]@'^KK4EC@D@@@C8K@@G/,0@+@C8@[S]/,0@B2/,0@../K@@+$[@D@@@$'R@C@/K@@*49?$@BC9*$@BI9?$@BESK )@@G@@9*$@BKC8(@@@H8$@C@;G)@@=W8)@@WG8)@K@C@K[S=9*R@BMC8B@BI'=@@@#C@T@@@[@Z[=&SL )@@G@@C8K@@C[0W@@#'=@@@#/K@@*3R]K[S>C4D@38C8K@@#/,0@+@C/)@@:')]))VC/)@@ ')]))VSM )@@G@@C4D@38C0T@38C?(@38R%()38')I@34;CE@@@')I@36/%)@3&/,0[C!1/D@@@/K@@3-/K@@*4SN )@@G@@C@G[>O9?G[>O/,0@+@/,0@);EA@@@@EA@M@@DA@@@@D]@M@@D^@S@@B@[@@@AA@@@@A]@M@@SO )@@G@@A^@S@@^@[@@@#A@@@@#]@M@@#^@S@@]A@@@@]A@M@@@@[@@@@[#[S&@[ [S(@@@[VR@@G@4CSP )@@G@@C@@[S5'=@@[0D/W@@@;K@@@MG8W@C@;?@@@VC;?@@@:8)@#@/K@@5RCC^@@ [G^@@ R_@@@.SQ )@@G@@/,0@E&C#K@@H/,0@B;1@@@@T/K@@4ZC;K@@[/K@@4?/,0[^$@@@@@@/K@@< ?8@@@['^@K5+SR )@@G@@[@@@@TR_@@@./,0@CL/\@@+$CG^@@ [C^@@ ?#)@@T/K@@5M/,0[^$@@@@@@/K@@< [@@@@SSS )@@G@@/,0@/J[@@@@R[@K@@DD#K@@TG;K@C[;:K@@DG#K@@SK#K@@R!#)[S6'^KK5+C@@@@TC8K@@AST )@@G@@/,0@+@C/)@@ ')]))VC7([U+!#)@@RC#)@@RC8B@BJC@K@@T&#K@@U:#K[S79=@[S8'=@@@4SU )@@G@@G#K@@UH]0@@UH;)@@[Q'B@BJC@C)@@/,0[DM8A)@5G/,0[C!/A0@4'/K@@*4C8@[S'/,0@-QSV )@@G@@C@@@@T/,0@+F/,0@-NC@@@@U/,0@+FC8@[T]/,0@-QC8)@@S%;)@@[')]))V/,0@-N/K@@*1SW )@@G@@@[ [T @[C[TE@@@[VR@@G@5)Q'@@@@C[R@A4C9@@[_:8)@#@/K@@5/ @@@@K?80@@^%8)@]@SX )@@G@@/\@@+$;C@@@MN8K@@BC@K[TM2CH-S\/\@@+$C80@@[;*.@@@)@0@@KR_@@@,/,0@CP/K@@5'SY )@@G@@/,0@B./K@@5%%8)@#@/\@@+$/-@@6CC8C[S,C8K@@#/,0@-AC8@[TNC8K@@ >9K@@[&;@@@^SZ )@@G@@/,0@-AC^C[S,/,0@-Q/,0[C!;H@@@[O'@@@[/ @@5//K@@*4C;0PRI C^@@ /,0@B;/,0@9]TA )@@G@@/K@@+$/K@@<[QE@[>M(8C@@@QE@[>YC9C@@@L9@@@[/,0@/J[@@@@M[@K@@D**@[>N/K@@62TB )@@G@@(?@[>R' @LI 0@@L>U' KLI %;0PRI/K@@6=(=@[>NCP$@A8()@[>NR6R@A6G[K@@MC8C@@@TC )@@G@@&#@@@M'=@@[0(@@@@G'^KLI %;0PRI/K@@61[P$@A8A6R@A6 @@@@N/K@@7BG[K@@M!9@@[[TD )@@G@@/K@@67!9K@@YG9K@@Y/,0@UD(@@@@G/K@@7Q @@[>S/,0@UD/^@@<[:H0[>Y/K@@7)TG )@@G@@9?@[>V/,0@);C/)@@.')]))VC?@[>X/,0@-2/,0[C!CH0[>YC8C@@@C8K@@A/,0@+@C/)@@ TH )@@G@@')]))VC@@[>V%@@[T%/K@@7%/,0@)9/K@@7!C^@[>XC8K@@ /,0@+@C/)@@ ')]))V%;0PRITI )@@G@@/K@@73/K@@7_/K@@74/K@@8$!9S@@@/K@@7B**@[>N(@@@@M/K@@*4;H@@[C; K@@M;!@@@MTJ )@@G@@;!K@@=Q]@@@K/K@@69C@@@@LH8C@@@N8W@@@C8C@@@'^@[V&N@)@@GC@K@@CC8H)@@'^@[V&TK )@@G@@:@@@[]8KK@8AH@K@@C0@@@[[/K@@8LH8K@@[;OK@@=W4T[U+T4T[U+?8K@@#/K@@8YO]@@@HTL )@@G@@C/)@@ ')]))VC@@@@H/,0@-2C8@[T:/,0@-QC@@@[] @@@[]/,0[DP/K@@8>N4([U+/K@@8X'^@K9@P'@@@]/K@@74/K@@8_R_@[>]/,0@B2/,0@..TO )@@G@@/K@@8/C@0@@G'^@[V*/K@@74/,0@+*P'@@@[/K@@74@[E[T!@@@[VR@@G@8_R';@@]A]7@BITP )@@G@@ C@[>M*@@[>Y/K@@9EC@B@ _[@@[>Y/,0@T>/,0@B;%8)@@ :8)@#@/K@@9J/K@@9LCC@[>YTQ )@@G@@/KBKBI @@[>O @@[>SC9@@@G[1^@@@CDO@@ [HO@@ R_@@@./,0@E&0@@@@H/K@@'G(@@[>>TR )@@G@@/K@@/E/,0@B;%8)@]@/K@@91!80@@H/\@@/D9*@[>V%@@[U#/K@@9\9?@[U^C8)[>=NWY@@@TS )@@G@@&\,@@@G^,@@@2@I)@]/K@@9\%@Y@@[/K@@9%9*@[>V @@@@K/,0@B.%8)@@./\@@/D^34@@@TT )@@G@@/,0@B.%8)@[@/K@@9/!8@@[[/\@@/D[?@[>X/,0@B./K@@9"(@@@@K/,0@ST ^@[>X/,0@B;TU )@@G@@%8)@@+:8)@@-/K@@'^/K@@'E/,0[^$@@@@;-/K@@/D/,0@;(G^@[>X[^@[>X/,0@S0/K@@'6TV )@@G@@[HO@@ N8)@@[R_@@@:/,0@E&0@@@@H/K@@'$/,0@B;:8)@]@!80@@H/K@@'Y9!@[>S9*@[>STW )@@G@@R_@@@:/,0@CP/\@@/D8K)@'I9(@[>O/K@@'=(@@@[]%8)@@:/\@@/D9?@[>S9*@[>O9(@[>STX )@@G@@CG^@@ [C^@@ /K@@'?(@@@[]/K@@'?^:0[>N/,0@;' *@[>N^34@@@**@[>N/K@@'6/,0[^$TY )@@G@@@@@@;[/K@@/D/,0@;(GC@[>Y[C@[>Y/,0@UD**@[>N/K@@'_*@@@@G/K@@/EC@@[>Y[@B@ _TZ )@@G@@CC@[>Y(0@[>N^R7@A8[C@[>M/KBKBIR';@@@A]7@BJ%@@[UA/K@@;ECCR@A@^\0[>N(@@@@HUA )@@G@@'^@K.;/K@@;&%@@[UB/K@@;LC^R@A9^70[>N(@@@@H'^KK.;/K@@;&%@@[UC:@@[UD/K@@;PUB )@@G@@/K@@;WCCR@ _:@@[UDGOR@A8^30[>N(CB@ _'^)K.;/K@@;&/,0@TQCCK[>Y(@@@@G/K@@;&UC )@@G@@R]7@BJR';@@@A]7@BJ/,0@TR*@@@@G/K@@/E;?@@@=C8)@[@/KBKBJ')F@@[R';@@]A]7@BKUD )@@G@@/,0@B;%8)@@,/KBKBK/,0@B./,0@;'/\@@/D!8@@@K/\@@/DG8B@ -C@G@@@R]7@BKP'0@@]UE )@@G@@')F@@@/KF@@[R';@@@A]7@BL/,0@B;%8)@]@/KBKBL/,0@BS/KBKBL(@@@@G/KBKBL[@@@[]UF )@@G@@/,0@CH/\@@/DC@@@[]R]7@BL/KF@@[/,0@/F/,0@/FP'0@/GO]7@BI/KF@@@/KBKBIR';@@@UG )@@G@@A]7@BK9?@[UE @B@BJ9*B@BI/,0@CB/K@@/S9?B@BI/KBKBK/,0@C /K@@/-C[@@@GRJO@@ UH )@@G@@/,0@F?')A@FZ%8)@@ :8)@@_/K@@/1*=@[>N/\@@+$/,0[^$@@@@;-/\@@+$**@[>N?8@@@!UI )@@G@@!8@@)@'^)LI ?8@@@['^0LI [@B@BI^$0[>N/,0@CF/\@@+$/K@@/O/,0@(?C@K[UGN8K@@FUJ )@@G@@()@[>N9[H-T7/\@@+$[@R@BJ^<0[>NCG^@@ [C^@@ /K@@/OR';@@@/K@@.#&'0[@@CGR@ _UK )@@G@@/K@@.#&'0@[@CGR@A@A]7@BJC@)[>Y[@$@BKC@)[UHC80[UIN8K@@FM#\)@@^\)[>U[C@[>YUL )@@G@@D8@@@@(@@@@H/K@@.LC^H@@@&:H@@[[@B@BI/,0@UD(@@@@G(G@[>Y/K@@.R/K@@.Z9?@[>SUM )@@G@@(@@@@G/K@@.X/,0@);C/)@@:')]))VCC@[>Y/K@@.,C^B@BI%W@[>X/K@@.>/K@@.$&'0)@@UN )@@G@@A]7@BJ9?@[>V/,0@);C/)@@.')]))VC?@[>X/,0@-2C/)@@+')]))VC^@[>X/,0@-20@B@BJUO )@@G@@/K@@.7C@K[>YC@$@BK[@R@BK[@)[>Y/,0@T>C@R@BK/KBKBJ@[B[UJ@[ [UQ@[B[UV@@@[VRUP )@@G@@@@G@.8A@K[[@@@%8)@#@/K@@_CC@0@@L/K@[^HCC^@@A&7^@@@[@@[80@@)?80A0 VJ )@@G@@/K@[[\?80A4 C80A ;C@@@Y%8@@@J:8@@@SC80R ;*0@@M;=0@@A[[O@@ C@@@@K/,0@ VVK )@@G@@/\@[^MR@K@@HE[K@@I;(K@@);C0@@G[*0[N8K@]L2@H-E\/\@[^MC9X@@@/K@[#?%8)@[@/K@[#&VT )@@G@@C[K@@G/K@[#?%8)@@-/\@[^M/,0@C[/\@[^M-@@[^&C[K@@HCC^@@ [C@[9@)@@G9@)@@/,0@B.%8)@]@/\@[^M/,0@BS/\@[^M @@@@[VV )@@G@@!8@@@K/\@[^M;*@@@MG[@@@G/,0@B.%8)@#@/\@[^MCC)[80K@@/K@[ 5%8)@@"WD )@@G@@/K@[ ZC80@@D/K@[ +%8)@@'/K@[ 5C80@@ARBO@@ /,0@F%[@)@[[;G@@[C')A)FZ:?=@@[WE )@@G@@/\@[BL:@)@[[/K@[ 1:80@@DCC,[G_;^Z@@@;=J@@@/^K[BQ/K@[ &')A)FZ:@)@[[/K@[ :WF )@@G@@/K@[ 8%8)@[@/K@[ "/K@[ ;/,0@F1H80@@[[^4@@ C@K@@GC@@[C:/K@[A&:8)@[[/K@[BQWG )@@G@@:8)@#@C8)@@?!8)@[@/\@[BLN8K@@DC@@[CV24?-CIC8@@@)9?G[CG9*@[=P @@@@GC4)[=PWH )@@G@@%4)[</^@[^2(*@[</K@[A/:?[[<>/K@[A5O8K@@]WK )@@G@@9?@[<<9*[[<>$8K@@)/K@[^1/K@[BNC4@[<<:8@@@?/K@[BEP8K@@]18[@@@/K@[^1/K@[BOWL )@@G@@*4[[<>/K@[B^C@[[<&O8)@@[[@][= $8)@@K/K@[BC/K@[BNP8)@@[9?M[= ')[[<&[@+[= WM )@@G@@P8K@@]/K@[A%*8[@@@/K@[BO*8]@@@'=@@@)C@@[= R'0@@[/K@[BVCCO@@ /K@[BT/\@[BRWN )@@G@@/\@[BR/\@[BR/\@[BRH8@[BND8K@@@C8G@@@ @@@@FOA0[<+R@)[<-R@K[<)/KF@@[N@K[<)WO )@@G@@A@K[<)R@K@[[N@K[<-A@)[<-R@)@[[/KF@@@;^K@@=H@K@@I @@@@I/@K[BB/GK[BB/K@[B\WP )@@G@@H@K@@I @@@@I/^K[BBC8)@@[/K@[BBD8@@@@/K@[B6 @@@@G/K@[B6C8@@@[;^K@@=;O)@@=WQ )@@G@@W@)@@H0@@@@G;?)@@=/@0[BB0@@@@ID@@@@GG@)@@G/K@[BBE@@@@I!8@@@>C8@@@=;^K@@=WR )@@G@@1@@@@H;)?@@@0@@@@H;K?@@@/K@[BBD@)@@IO8)@@[/K@[BB<[]@@@/K@[B&=[]@@@/K@[B?WS )@@G@@>[]@@@/K@[B$+BC@@@K@K@@I-BC@@@L@K@@I*DE@@@T@)@@H/DE@@@/K@[B3(L@[@[@@]__.WT )@@G@@)@@@[@!#^@@@)@K@@I\#^@@@-@K@@I& A@@@+@K@@I:DE@@@/K@[B5;DE@@@/K@[B1^FG[@@WU )@@G@@/K@[C@'HI@@[/K@[CD@JK@[[?@@@[@&;@@[G/K@[C0&;@@]GQ;@[=&'=@@@I/K@@)]/,0@)4WV )@@G@@[0B@A4C8@@>_/,0@)9C8@[EE'=@@[]&'?@@@/,0@)]C@@@@E;C@@@M]@G[=R/@E@@@/KE@@[WW )@@G@@&;@@[@'=@@@I/KG@@@ @@@@HC@$@A4=8)@@CC8K@@[=8)@@[C8K@@]R'X@@C/KF@@@A]0[=&WX )@@G@@C@@[EG/,0@X@^\)[>UR]0[=&C8@[>D/K@@Z/C8)@@ *?D[U+')]))VC0T[U+/KDLU+/\0[DZWY )@@G@@@+@@-2/\0[DZ@+G@+FC/)@@X')]))V/\0[DZ@^_@ CC@_@@@%;0PRI:;0PCT;C0@@M/KJ@@@WZ )@@G@@&;)[@Z;)@@@#+8@@@BQ;!@@0')]))V'C)[D>'G:@@@Q;)@@,/K@[D*C@)@@G;))@@A')]))VXA )@@G@@8#K[D,/KF@@@%@@[EH/K@[D6C8@[EI/K@@-QC@)@@G+@)[EL%@0[EM/K@[E@C8G@@@9?K[ENXB )@@G@@')]))V;GK@@A98K@+F/K@[D/:;0CHA/K@[EAC8)@/"/K@[EBC8)@.[/K@[EBC8)@-2&;)/,0XC )@@G@@[@)[U'/K@@@H@[G[=&@(5[=R[>O[>Z'$)@@)PROGRAMMED BREAK& ___0@@@%)@@@@@@@@#XD )@@G@@ RORRE@@@@@QBREAKS@@[@?729%?7299%*&7?9%727?9%*&799%7279CEND$ IALL$ TREAD$SWAIT$PFI$ PFS$ XL )@@G@@PFD$ PFUWL$PFWL$ LOAD$ RSI$ TSQCL$FACIL$BDSPT$INFO$ CQUE$ TRMRG$TSQRG$XM )@@G@@CTSQ$ CTS$ CTSA$ MSCON$SNAP$ SWTCH$PUNCH$FFORK$EXSNP$ROUTE$AWAIT$TSWAP$XN )@@G@@TINTL$PRTCN$ACSF$ 97,1$&TLBL$ FACIT$PRNTA$PNCHA$NAME$ ACT$ DACT$ CJOIN$XO )@@G@@CREL$ CLIST$ADACT$PRTCA$SETBP$PSR$ BANK$ ADED$ XCTS$ ACCNT$PCHCN$PCHCA$XP )@@G@@AREAD$9*59699&*596LINK$ RLINK$EXLNK$UNLNK$RLIST$$-$89,USER$ SYMB$ SIO$ XQ )@@G@@ERRPR$SYSER$CKRS$ IOLNK$IOADH$LEVEL$LOG$ SMU$ CREG$ SREG$ SUVAL$@@0215XR )@@G@@STAB$ PRMGA$PRMDB$@[@@ @@[V@!A@[X@"B@@<@#C@[Y@$D@@)@%E@[[@&F@[]@'G@[#@(HXS )@@G@@@[^@)I@[ @*J@[A@+K@[B@,L@[C@-M@[D@.N@[E@/O@[F@0P@[G@1Q@[H@2R@[I@3S@[J@4TXT )@@G@@@[K@5U@[L@6V@[M@7W@[N@8X@[O@9Y@[P@:Z@[Q@;[@[R@<\@[S@=]@[T@>^@[U@?_@@(@@ XU )@@G@@@@!@A!@@:@B"@@/@C#@@.@D$@@"@E%@@&@F&@@=@G'@@%@H(@@*@I)@@>@J*@@'@K+@@_@L,XV )@@G@@@@-@M-@@?@N.@[W@O/@@0@P0@@1@Q1@@2@R2@@3@S3@@4@T4@@5@U5@@6@V6@@7@W7@@8@X8XW )@@G@@@@9@Y9@@$@Z:@@;@[;@@\@\<@@,@]=@@+@^>@[Z@_?@[^[IC@[D[IG@[E[IP@[C[IZ@[ [I$XX )@@G@@@[ [I?@@@[VR@@G[H_'^@K@@COMMAND NOT IMPLEMENTED.SPECIFIED RANGE OF ADDREXY )@@G@@SSES EXCEEDS BANK LIMITS. NO COUNT MAY EXCEED 2047(=03777) FOR CORE,XZ )@@G@@ 44(=054) FOR GRS.SPECIFIED COUNT MUST BE NON-ZERO AND POSITIVE. SPECIFYA )@@G@@IED BANK NOT ACTIVE. SPECIFIED SEGMENT NOT LOADED. @@]__/.&+& NO SYNYB )@@G@@TAX ERROR ADDRESS CURRENTLY RECORDED. NO DIAGNOSTIC TABLES. ALL ADDRYC )@@G@@ESSES MUST BE ABSOLUTE. EXPRESSION TOO COMPLEX (TOO MANY PARENTHESES). YD )@@G@@UNMATCHED PARENTHESES. SYMBOL VALUE UNKNOWN. INPUT NUMERIC VALUE EXCEYE )@@G@@EDS 36 BITS.)@@@@@[P]: & = & '$)@@) <&>& NEXT: & _/@@@@@@[@@@'=@@[,YF )@@G@@ BREAKPOINT& CLEARED.& Z_____////////////:& & &,& @@[__"PROGRAM HAS YG )@@G@@TERMINATED. NO GO COUNT MAY EXCEED 511(=0777). EXECUTE ADDRESS MUST BE YH )@@G@@IN MAIN STORAGE. (ATTEMPT TO ALTER P-REGISTER IGNORED.) ADDRESS TRAPYI )@@G@@ NOT AVAILABLE ON 1106/8. NO BREAKPOINTS FOUND. NO BREAK SET AT THYJ )@@G@@IS ADDRESS. BREAK ALREADY SET AT THIS ADDRESS. BREAKPOINT LIST FULL. NOYK )@@G@@ BREAK SET. NO ADDRESS TRAP CURRENTLY SET.ADD@, @[#[MHABS@!W@[^[MKBRE@&VYL )@@G@@@[][MOBAN@,V@[A[MQCHA@6J@[ [MWCML@0;@[ [M-CLE@&@@[ [M&CLR@>:@[][M:DEF@0LYM )@@G@@@[ [M!DEB@2+@[][M2DIS@0*@[A[M4EXE@='@[B[M'ENT@!W@[#[N[ERR@2R@[][N^EVA@13YN )@@G@@@[ [NAFIN@%:@[^[NFFMA@%X@[#[NJGO @PRI@6J@[ [N*PCT@4G@[A[N!PSR@5=YP )@@G@@@[^[N3STE@=C@[][N7SET@&@@[][N9TRA@$H@[E[N;XCM@0"@[ [O XDX@(6@[[[OEAEP@3)YQ )@@G@@@[[[OFCTX@2)@[[[OGPAT@2=@[][OHSBP@2=@[][OJSYN@+,@[][OL@[G[=&)@@@@@]@@@@@YR )@@G@@>>>NOTE: INFOR IMAGE DISCARDED. @[A[L4K@@@@@>>>NOTE: @ADDED INPUT IMYS )@@G@@AGES DISCARDED. @[B[L/CLEAR!CLEA! CLE! CL! CLRALLC! ___@@@__@@@@YT )@@G@@_@@@@@ >ADDRESS [ADDR] >ABSVALUE [SYMBOL] >BREAKS >BANK [BANKYU )@@G@@-NAME] OR >BANK #BDI >CHANGE [ADDR [WC] [FMT]] >CMLIST [COMMAND YV )@@G@@LIST NAME] >CLEAR [ADDR] OR >CLEAR! >CLRALL >DEFAULT NEW-DEFAYW )@@G@@ULT-COMMAND >DEBUG >DISCADD ON OR >DISCADD OFF >EXECUTE INYX )@@G@@STR OR >EXECUTE [ADDR] >ENTRY [SYMBOL] >ERRMSG >EVALUATE EYY )@@G@@XPRESSION [FMT] >FIND [ADDR [VALUE]] >FMASK [VALUE] >GO [N] OYZ )@@G@@R >GO ADDR >HELP [COMMAND-NAME] >JUMP [ADDR] >MAP [I][D] >MOREZA )@@G@@ >OUTPUT ON OR >OUTPUT OFF >PGMCTR [ADDR] >[PRINT ][ADDR] [WC] [FZB )@@G@@MT] >PCT [[BLOCK.]WORD [WC] [FMT]] >PSR [DK,DL,DM,...] >STEPZC )@@G@@ [N] >SET [ADDR] >TRAP [ADDR [[R][W] [MASK]]] OR >TRAP ADDR P [MASZD )@@G@@K] >XCMLIST [COMMAND LIST NAME] >XDX >AEP >CTX >PATCH ADDR >SBP ZE )@@G@@ADDR >SYNTAX DX COMMANDS ARE: ADDRESS ABSVALUE BREAKS BANK CHANGE ZF )@@G@@CMLIST CLEAR DEFAULT DISCADD EXECUTE ENTRY ERRMSG EVALUATE FIND FMASK ZG )@@G@@GO HELP JUMP MAP MORE OUTPUT PGMCTR PRINT PCT PSR STEP SET TRAP XCMLISZH )@@G@@T XDX FOR HELP WITH A PARTICULAR COMMAND, TYPE 'HELP '. FOR MOZI )@@G@@RE HELP, TYPE 'MORE'. \F(K@@@@]__.COMMAND NAMES MAY BE ABBREVIATED TO ZJ )@@G@@1, 2, OR 3 LETTERS. IN CASE OF AMBIGUITY, THE EARLIER ONE IN THE 'HZK )@@G@@ELP' LIST IS ASSUMED. ADDRESSSPECIFICATIONS ARE IN THE FORM [ELTNM].[ZL )@@G@@LC][+RELADDR][,X] FOR RELATIVE ADDRESSES, AND [[BNKNM:][SEGNM]:]ABSZM )@@G@@ADDR[,X] FOR ABSOLUTE ADDRESSES. FORMAT SPECIFICATIONS (WHICH MAY BE ZN )@@G@@ABBREVIATED) ARE: OCT, DEC, HWO, SFP, DFP, FDA, ASC, TWI, QWI, BMI . ZO )@@G@@25%(=@CURRENT FIND MASK: & END OF BANK ENCOUNTERED.@[^[QH NOT FOUND. ZP )@@G@@& WORD& SCANNED.& FOUND AT & (&).& VALUE& [&]&**& ______REGISTER SEAZQ )@@G@@RCH NOT ALLOWED. NO PREVIOUS FIND ON RECORD. '$0@@)'=@@@D'$K@@)'=@@[DZR )@@G@@'$@@[@'=@@[['&0@[@'=@@]EINACTIVE UTILITY MAIN @@[@@@SLT ATZS )@@G@@ &; & PROGRAM STARTS AT & = & ACTIVE BANKS: & & &-BANK& @@@@,DZT )@@G@@YNAMIC,WRITEPRTCTD@@,GUARDMODE@,VFYDGENTRY@[B[R7@[C[R"@[C[SA@[C[SI@[A[SQZU )@@G@@@[B[SW@@@[VR@@G[RF@@A__- '^@LRLON OFF @ASG,T $DXPRF @@#[RSZV )@@G@@@BRKPT $DXC$@@][RW$$DXC$@USE $DXC$, $DXC$ @ASG,T $DXC$@@][R=C>____ZW )@@G@@@[[[R$@10[=R =& & @@[@@@(FORMAT SPEC ILLEGAL; OCTAL ASSUMED.) @[B[R?ZX )@@G@@D,@@SKIP 01@@][R4COMMAND EXCEEDS 6 CHARACTERS; IGNORED. COMMAND LISTZY )@@G@@ MAY NOT CONTAIN 'CMLIST' COMMAND. COMMAND LIST MAY NOT CONTAIN 'XCMLISZZ )@@G@@T' COMMAND. COMMAND LIST NAME MAY NOT EXCEED 6 CHARACTERS. SPECIFIED COAA )@@G@@MMAND LIST NOT FOUND. NO ERROR CONDITION CURRENTLY RECORDED. (&)& AB )@@G@@@@W[=&__"@@JADDRESS NOT IN DX.ADDRESS IN HIDDEN STORAGE. D4 [TPD5 [TRAC )@@G@@D8 [TUD10[TWD12[TZD17[T+D20[T>)@[@@[@@[@C[@@@___@@@@@@___@@[REQUESTED BLAD )@@G@@OCK NUMBER (&) OUT OF RANGE--ONLY & PCT BLOCK&.& LOWEST PCT BLOCK IAE )@@G@@S BLOCK 1. SPECIFIED PCT LAST-WORD-ADDRESS OUT OF RANGE. @@[__" ON OAF )@@G@@FF (BYTE MODE)&(DP UNDERFLOW)& (FLPT ZERO)&(1/4-WORD MODE)& (UTIL AG )@@G@@PSR/SLR)& (FLPT RESIDUE)& (ARITH EXCEPT)& @@G@@F@[[@@X*ABS* WORDSAH )@@G@@ OF & BACKSPACE THROUGH START OF LOCATION COUNTER NOT ALLOWED. OCT@@$AI )@@G@@DEC@@-HWO@@0SFP@@1DFP@@2FDA@@3ASC@@4TWI@@5QWI@@6BMI@@7HEX@@8@@@@@9B$C AJ )@@G@@BLANK$COMMON$B $F $ $$ @@@@@[@@@@@@@@[@@@@@[[>O@@@@@@NO PREAK )@@G@@VIOUS BREAK NOR TRAP ON RECORD. NO PREVIOUS FIND ON RECORD. NO ADDAL )@@G@@RESS HAS BEEN PREVIOUSLY SPECIFIED. ^A)[D=^G)[DR^G)[DT^A)[D=^@)@ME^@)@MIAM )@@G@@C )[D!^@)@^2[@)[D2[[)[D2[])[D2^D)[DV AN )@@G@@ @@@@@@@@@@@@/K@@];@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP )@@G@@@@@@@@/K@@@@/K@@YF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/S#)@@@@@@@@@@@@@@/SG@@@AQ )@@G@@D8@@@[C@@LVRH@@[IBG@G@@@H8@[VRG8@@@[(?G@@@/K@[VXG8@K@@[^@[V<;C@@@QC@@K@@AR )@@G@@/K@@*2@@@@@@/K@@@@/K@@?#/K@@@@/K@@?\@@@@@@@@@@@@DX INT*^@[WB/K@[W(9*@[X2AS )@@G@@9*)[X4/\R@#2C@@[X8'=@@@J )B@A6CCB@ C:8@]@C/K@[XN%8@]]E:8@]ZE/KB@^=C@@[X/AT )@@G@@'=@@@IC8@[X% @W@@@0@G@@@&;@@@C'=@@@^C8$@ CG^)[WB[^)[WB9?@[X29?)[X4C@)@@@AU )@@G@@/\0[XQ9*@[X$C^)[WB!8)@@Y!8)@[[!8)@[K&;))@@0@@@@I/K@[W+?8)@@EG8)@X0?8)@@GAV )@@G@@G8)X1&?8)@@QG8)@A=?8)@@YG8)A1U?8)@[EG8)@Q0?8)@[KG8)R0&&;K =8)@)@;^K@@AAW )@@G@@;^K@@M/K@[W_[C@[X(/K@[W,CCB@ C:8@]@C/K@[XNAX )@@G@@C@@[XY[@@[X&C8@[XZ'=@@[]*@@@@G/K@[W4C8)@@[/K@[XM%8@@@[/K@[W?C80@@C ^@[WBAY )@@G@@;GK@[CC@@[X&;G@@@YG8K@@ :8@@@XD8@@@@:8@@@AD8@@@G:8@@@RD8@@[@:8@@@JD8@[X%AZ )@@G@@/C@[XD]^@[WBC80@@E @@@@G;?@@@A:8@@@ /K@[XMH8@@@01@@@@G!@@@@J/K@[W?T@)@@JBA )@@G@@G@)@@G/K@[XB/K@[W# ^@[WB/\$@^A/K@@*:;G@@[C;?@@@=;*K@@#;?K@@#G8K@@0/CK[XSBB )@@G@@/@@[XR/KJ@@@*?* >_@[^[X&[X-[X&C@@[X"'=@@@I9?@[X29?)[X4'=@@@D@@@@@@@@@@@@BC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BD )@@G@@@@@@@@@@@@@@@BRKPT $DXC$@@][X6* DX CONTINGENCY *@[#[X9END DX@[[[X.C8@[X_BE )@@G@@&;@@@W[@B@BA(@B@^)/K@[ZZEKB@A5!8B@C@[^B@^):8@@@[ ^B@^)CC$@^)C^7@^):8)]@CBF )@@G@@/K@[-4:8)@@G/K@[-2C@@@@J/S@@@@/S@@@@/S@@@@/S@@@@/S@@@@/S@@@@/S@@@@/S@@@@BG )@@G@@/S@@@@/S@@@@'^@[V&C[@@@G%8)#@E/K@[Y*%[@[+O/K@[Y=C8@[+P/,0@-Q CB@^)/K@[Y*BH )@@G@@:[@[+R/K@[-,%[@[+S/K@[-/CC$@^)%8)@@[/K@[Y0+.@0@@%[K[+T/K@[Y0/K@[Z= CB@^)BI )@@G@@(CB@^)/K@[Y7/K@[Z,9?B@^)9*@[>J*^B@^)/,0[C!(^B@^)/K@[Z /K@[)O(CB@^)/K@[Z BJ )@@G@@/K@[)XC?B@^)%8@@@E/K@[Z^C4B@^)%8@@@[:8@@@ /K@[)=/K@[):C/)@@.')]))V/,0[C!BK )@@G@@*^B@^)/K@[-@CDB@^)%9@]]E:9@]ZE/K@[ZJ/K@[ZTC8@[+U/,0@-QC8)@@T:9@]ZE')]))VBL )@@G@@/,0@-N/,0[C!C@@[+('=@@@I/KB@^=D8@@@@&;@@]][@B@^) @B@A5 WB@A8 SB@A8/\@[D@BM )@@G@@C@@[+N[CB@BA @B@B^/K@@*4+9@J__C8@[+%/,0@-QC@@@@L/,0@+F/,0@-NC@@@@L/,0@-2BN )@@G@@/,0@-N/K@[Y\C?$@^)!8)@@C/K@[)@:8)@@B @@@@IH8)@@]*@@@@I/K@[)[C^B@^)%@@[+!BO )@@G@@/K@[)[C8@[+,/,0@-QC8@@C@/,0@-2 ^B@^)/K@[Y3/K@[)[C4$@^)C@I[)F/,0@)9C8@[+9BP )@@G@@/,0@-QC0B@^)/,0@-2/,0@-N/K@[Y3IABT IOPR IGDM I/O SYMB ERR$ ER BQ )@@G@@CONS CON2 COMM REP C8@[+//,0@-QC^B@^)/,0@-2/,0@-NC^B@^)/,0@.[/,0@-NBR )@@G@@/K@[Y'C8@[+"/,0@-Q/,0[D#C@@@@K/,0[E^/,0@-N/K@[Y.C8@[+_/,0@-Q/,0[C!/,0@-NBS )@@G@@C^B@^-/,0@-2/K@[Z^C8@[<[/,0@-Q/,0[C!C8@[+MC8K@@Q&;K@@['=@@@4C@@[+MH@B@A[BT )@@G@@;G@@@=W8@@@ ;G@@@=W8@@C@C[K@@H/,0@+F/,0@-NC@@@@LC8K@@#/,0@+D/,0@-N/K@[Z BU )@@G@@*?B@A4/K@[ZEC8@[+ER9@@@# @K[+E1@@[+E/K@[-DR9@@@B&;@@@C'=@@@^R[K[<#R[)[<#BV )@@G@@C@ [+E/@@[-:[C@[>Y;C@@@M[W@[>R/,0@S /,0@UD/^@[-:/()[-RC@@[YBW )@@G@@C8K@@A/,0@+@C8@[R/K@[->C8@[O/,0@);BX )@@G@@/K@[-(CC@[>Y'^@[V&/,0[D#/,0[E^/,0@-N/,0[C!$9O@@@/K@[-G/K@[ZEC8@[M/,0@-QC@@[+N[CB@BA @B@B^/K@@=U[TB@A8CA )@@G@@EG7@A5/KB@^&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ KCB )@@G@@'=@@@DER EXIT$& '$)@@)'=@@@)@%)@@@SECOND ABNORMAL RETURN FROM (A)&READCC )@@G@@$ ENCOUNTERED.& NO SUBSEQUENT DX COMMANDS ALLOWED. @[A[+& ,&PKT AT & .&.& SEC& @@[@@@CF )@@G@@JUMP HISTORY: @]#[<^ (&) <&>& BANK '&' NOT CURRENTLY BASED>&PGMD BCG )@@G@@RK: & TRAP: & @BRKPT $DXC$@@][8K@@C/K@@EUC^M@@];GK@@=W8K@@#[^M@@]CCM@@@;GK@@&[C+@@@C^+@@@W8K@@#[^M)@@EM )@@G@@8KK@EN/K@@D-C8[@@AG^G@@@G?[@@A/K@@E?KC]@@]C^!@@]G^+@@]H8L@@@&;Y@@@[@M)@]EN )@@G@@8KK@E&/K@@D-OC)^@!&8)NEW/K@@H'&B[@@A[@[@@@ @@^@\CC1@@A;*0@@S'K0^@XB0@@[CEO )@@G@@CSL@@[CW[@@#G8@^@[H@@@@H;*K@@S;?@@@GCS-@@]CSL@@#G8K @[H@K@@I;*)@@S;?K@@GEP )@@G@@B0@@[@[@[@@F[@L@@IC@@^@Y @@@@H9*[@@[C@[@@BN@K@@GG@@^@,[@@^@,9?@^@Z9*[@@DEQ )@@G@@&;@D-B9*[@@GC@)^@-9*-@@#8KK@FSR8-@@J&8)OLD/K@@H5CW[@@^(@@@@GC8@@@[N@K@@GER )@@G@@;*@@@OQ;[@@J[@@^@!/,0@I^R8-@@FR81@@JOC0^@!A@1@@ &8)@@^ @@@@J @[@@A/K@@GMES )@@G@@A^2)@ACC@^@!/,0@IIG@@^@,[@@^@,C@+@@][@)^@!/,0@I^/SI)@@Q'"@@@/K@@GJ[@3@@#ET )@@G@@CC#@@]+8@B__-CN@@];C)@@J[C<@@][^N@@]O80@@^D@-@@A;*@@@O;C@@@;?K@@=EY )@@G@@>8K[@@G@K^@&1@@@@]/GK@HC0@@@@]/CK@HCC@+@@@/G)@G;(^]@@@G@K^@$/K@@HAG@K^@*EZ )@@G@@;*)@@[;G)@@N;C)@@]T8)@@ ;C0@@M;*0@@]G81@@JG^\@@]CO,@@#G@)^@!9*#@@@[@<)@]FA )@@G@@O8)@@[G8K[@@8KK@G?$8:@@@/K@@G-0@@@@]/K@@HLR/)__"/K@@GZR8-@@JR81@@J&80@@^FB )@@G@@&8)@@]NWL@@^(@@@[[O80@@^/K@@HV9?#)@@9*])@@8KK@HTC8]@@@H8[@@B[^[@@ C8@@@]FC )@@G@@[?[@@ NWL@@ /K@@H$9?#@@@9*])@@O^3@@]O80@@^8KK@HC@W@@A[@W^[5/:@@I'C8@^][C8K@@A&;K@@[FK )@@G@@'=@@@4C@@^[&'=@@[[/^)@K(C@K^]@/@K@JS/,0@N4C@@^[$[@D)@@;S)^]@;*)@@]/@)@JIFL )@@G@@C8)@@S')C)@@C8)@@ ')C)@@;*K@@EC@)^[*'CK@JO')C)@@/:)@JMR90^[M/,)@L[/K@@K=FM )@@G@@C@@^[(/,0@N3C^@^[_C8K^@3[@W@@[CC)^@3:8)]]E'=@@@DC^0^@3%8)@@[/K@@J6C@Z@@@FN )@@G@@;GK@@K%@K^[%/K@@J6;C)@@O[C?@@[L8)@[@/G0@J3H80@@[/G0@K+;@0@@[G^0^[_QD_@@]FO )@@G@@0@@@@JQ _@@]/K@@K#[@)^]@Q90^@_/K@@K#C?K^@3[4W@@[%8K@@[/K@@J.C@@^[:C4\@@@FP )@@G@@/K@@K@C0)^@3C4@^@3C@G^@6[@)^]@/,0@N$Q90^[ /,)@L[C?@^@3:8@@@E(^@^@4/K@@K=FQ )@@G@@C4@^@3:8@@@[/K@@KH%8@@@ /K@@K=Q90^[H/,)@L[R])^@4&')@@[Q9)@M\Q50^@3Q97^[WFR )@@G@@')A)@@L8)@@H/C_@KVC@0@@IC8)@@ /,0@NQ/K@@KO/,0@N2C@U)@@/K@@KOC@E)@@/,0@N$FS )@@G@@/K@@KO/K@@K=C@@^[;'=@@@IRA0O[_/%0@K! @@^][R'0^[?/K@@K!/,0@N4R[0^[;/,)@L[FT )@@G@@RA0^['A]0^]TCC@^][;*@@@SQB@^]['=@@[[C@@^[>C@W^[5[@W@@A/:@@K39?@^[;9?)^[.FU )@@G@@/K@O]T[@K^]@C^@^[_ @G@@[ @@^@3 @@^@49?@^[;'=@@[@/K@O]@R[)^[!&90@@[')A)@@FV )@@G@@:8)@@\/K@@LC')C)@@/K@@L#A )^]]AD0^]]')A)@@:8)@@\/K@@M&%8)@@;/K@@LL/,0@N2FW )@@G@@/K@@L#%8)@@C/K@@LX/,0@N@/G0@M*:8)@@\!80@]^/K@@M* @@@@IW8)@@AQ'J@M'Q'Y^]#FX )@@G@@/K@@L#D8K@@@:8)@@XC8K@@@:8)@@AC8K@@G:8)@@RC8K@[@/GK@MD/,0@N@/G0@M*G@K@@JFY )@@G@@?8K@@Y/K@@L!!8K@[[!8K@[K/K@@M*!8K@@K/K@@L1!8K@@AG8K^[\[^K^[4R'0@NH:8)@@\FZ )@@G@@/K@@MA%8)@@,/K@@M*/,0@N@R'0@ND/C0@M^R'0@NT:8)@@D/K@@M#R'0@N$:8)@@F/K@@M#GA )@@G@@R'0@N(%8)@@G/K@@M*')A)@@%8)@@\/K@@M*')@^[4/,;@@@/K@@L#%8)@@&/K@@M*P9)@M\GB )@@G@@*8A@@@O90@@[C4B@@@C?7@@@C^R@@@/@@@MVC0B)@@;*@@@][0@^[3')@^[3/^0@MT/,0@NHGC )@@G@@/K@@L[/,0@ND/K@@L[Q1$)@@O9)@M\A[0^]@Q9.@@@H80@@[/G0@L#')A)@@')C)@@8#0@M-GD )@@G@@R[0^]@/K@@L[/,0@N2/KE@@@C8)@@\')C)@@Q )^]]QD0^]]/K@@L#C)$)@@/!&@@@C4$@@@GE )@@G@@C0$@@@C?$@@@C*$@@@C=$@@@/!)@M![)(@@@$'K^]S/K@@M9R'K^]T/,C@@@[4(@@@[0(@@@GF )@@G@@[?(@@@[*(@@@[=(@@@/,@@M5D80@@@')A)@@!8)@@0!8)@@'/KF@@@H8)@@0T80@@EG@0@@IGG )@@G@@/K@@N[C8Z@@@T8K@@#;GH@@@/K@@NRD80@@[;G@@@#G80@@[/^@@NI/@0@NOC8)@@0')C)@@GH )@@G@@C8)@@A;=K@@#')C)@@8#0@NO/KF@@@/C@@NXC8)@@-')C)@@D@@@@G;G)@[C;G@@@=W8@@@EGI )@@G@@G8!@@0;^)@@A/^@@NY;=)@@A')C)@@/G0@N/K@@Q3/K@@Q'8KK@Q?1W[@@#' )^]W(0[@@#' 0^]WHA )@@G@@ 0[@@#/K@@Q$C4#@@[>8@@@C/K@@R[C^#@@]T8@@@#R8/@@#O^2@@AC^[@@D!C#@@]'A@^]WHB )@@G@@G^#@@][C[@@EAG1@@E/K@@R690@@@G9*@^]=/\0@VSR'0@X%R82@@C0@@^]=R82@@B94K^]=HC )@@G@@/\0@U.C@N@@]1@@^]='^@^]WG8M@@@[@L@@E/K@@RZ/\0@VU*@[@@E/K@@RZC8[@@@C?-@@AHD )@@G@@/,0@U4[?-@@A'^@^]WCG[@@E/C@@R<]W[@@#/K@@S:C8]@@AG^]@@ACWM@@AT?M@@AG@K@@GHE )@@G@@,G[@@E'BK^]WRG1@@EC^#@@@[W[@@DC*#@@[[?[@@D/,0@UT'=@@@)RG1@@ECC[@@EH^#@@]HF )@@G@@[^[@@D @[@@@CC#@@@[W[@@ACO#@@[[W[@@#/K@@TI/\0@VU/,0@T.'^)^]W/,0@TP'^0^]WHG )@@G@@R82@@A/\@@U9CC[@@E/K@@STC4N)@^=8K@@C/K@@STL^#@@]/GK@ST!CN@@]/K@@STCC<@@@HH )@@G@@:W-@@A/K@@SP1W[@@A/K@@ST(0[@@A/K@@SP/\0@VM0@I@@@/K@@STCO<@@[/\0@U>/K@@STHI )@@G@@/K@@T[8KK@S^(@[@@^/K@@SZ1W[@@#'AK^]W'A)^]W(0[@@A/K@@S< 0[@@A/K@@S@1W[@@#HJ )@@G@@/K@@S:(0[@@#/K@@S( 0[@@#/K@@R"C8@@__[W[@@#/,0@T:/K@@S,/K@@S41W[@@#'AK^]WHK )@@G@@(0[@@#'A)^]W 0[@@#/K@@S:DW[@@#[G[@@ECC[@@E[^[@@D;G@@[C9*[@@^[^[@@A[?[@@DHL )@@G@@]W[@@A]W[@@D9?@@X:9*[@@B'^@^]W[W-@@#[^L@@DC^#@@@[W[@@DC*#@@[[?[@@DCC#@@@HM )@@G@@[W[@@AAG1@@E/,0@UT'=@@@)*@[@@^/K@@TK/,0@T)'=@@@)*@[@@@'^@^]W/,0@UA'=@@@)HN )@@G@@'^@^]WE@[@@^/^@@TV W[@@A*W]@@^]W[@@A/KF@@[9?L@@^R82@@^/\0@U.[W[@@A/K@@T$HO )@@G@@CW[@@A;GK@[C(W]@@^/@@@T&R82@@^/\0@VE9*L@@^CW-@@A/\0@VM[^-@@A/KF@@[R82@@#HP )@@G@@/\@@U9/K@@T9CW<)@ /\0@U>/K@@T9CO#@@]CSN@@];?@@@DH8@@@[G@K@@G\C[@@E/K@@T;HQ )@@G@@0W[@@#8KK@T,/KF@@@[W-@@#/K@@UFE@[@@@]W[@@#/@F@@[9?L@@@R82@@#/\0@U.CW<@@]HR )@@G@@[W-@@#/K@@UHR82@@#/\@@U9CW-@@#2W<)@ /KF@@@9?#@@@9*[@@@9?@^]-C80@@#;=@@@MHS )@@G@@%8!@@@8#0@UJG80@@[[?1@@#CO#@@]&V#@@];*@@@D[@[@@]/KF@@[R82@@ CW[@@D/\0@VEHT )@@G@@9*L@@B/KF@@[(@[@@B' K^]W9?L@@BR82@@ /\0@U.[W[@@D/KF@@[:W-@@#/KJ@@[1W[@@#HU )@@G@@/KJ@@@(0[@@#/KJ@@[%C)^]-:^)^]-/KJ@@[%C)^]+:^)^]+/KJ@@[/KJ@@@[@@^]V;C@@@MHV )@@G@@ @G@@@K@@@X!N8K@@EM#W)@@/KF@@@NWN@@@&?3@@@O^3@@@/KG@@@C?#@@@[)@^]8@@@)&;)AX 9*V@@@C@K@YZ*4F@@C/K@@YDG8)@@M;@)@@A:@)@YY/K@@YNC8F@@@IN )@@G@@&;@@@^'=@@@J/G@@YS[@@@[[C8F@@]'=@@[@@@+H/K@@Y;>@@@+I/KF@@[C8H@@@?8I@@@/K@@Y:C@@@+GC8K@@#/KF@@@C@@@+EIR )@@G@@C8K@@[/KF@@@[@@^](C@@@+FC8K@@]/KF@@@(@@@@GC/@__@?8@@[@G8@@[@;G@@@A[@@@[#IS )@@G@@;CK@@Y[@K@[[C^@^]*G8@@@[C9K@@[ @@^]7N8)@@@C@W@@@/@K@Z6;CK@@Y?@K@[#/K@@Z&IT )@@G@@:@K@[#%1W@@@/K@@Z6C?W@@@!8K@@A/K@@Z(%(K^]7 @@^]6[(K^]79??@@[C-G@@@:9@@@[IU )@@G@@C@0@+J')H@)*H9@@@[T9@@@AG>G@@@')H@)0G)G@@@G8@@@[/K@@ZJ:9K@@[/K@@Z,C*?@@@IV )@@G@@:8)@@.N8)@@[%[K@[[/K@@Z&/K@@ZX%@)@+J[5@^]6:@)@+J[-K^]6/K@@Z&(@@@[]:(K^]7IW )@@G@@/K@@Z;[(K^]7 @@^]6:[K@[[/K@@) G9K@@[(@G@@@/K@@)]!4W@@@/K@@ZI @@^]6 @@^]7IX )@@G@@/KF@@@:(K^]7 *@^]79?K^]698V@@@C8@@@-[=@^]7(?@^]7/KF@@[C@@^##D8)@@@C80@@@IY )@@G@@C!@^]78^@@)S1@@@@I!8)@[@C80@@E[))^]7[=0^]7/KF@@[C8K@@@;=@@@A?8K@@'?8K@@0IZ )@@G@@/K@@)<(@@@@JC80@[@H8K@@0T8)@@EG8!@@@/K@@)L/^0@)O%8K@@+:8K@@-C8.@@@/@0@)OJA )@@G@@/K@@)L9*)^]89*)^]'[@)^]/[@)^].[@)^]"9*)^]_9*)^#[[@)^##/K@@Z1[1@^]6[!@^]6JB )@@G@@[(@^]6[>@^]6[5@^]7[1@^]7[!@^]7C80@@F+8K@@_:8)@@ ;^@@@A8#0@)'9*@^]:C@@@+KJC )@@G@@C@K@+LC8)@@BC@0@+J[@"^],8#)@-#N4K^]69!@^]8/\)@-1C9K@@*(4@^]6*)@^]6')H)@@JD )@@G@@N0K^]69!@^]'*@@@[[/K@@-M9!@^#^N@K^#A/\)@-1N?K^]6(@@@[[/K@@-WC9K@@(')H)@@JE )@@G@@C[@^]//\)@-1C9K@@)')H)@@(*@^]6*=@^]6/K@@-+C@@@+M'=@@@J/KF@@@C9K@@/')H)@@JF )@@G@@N*K^]6C[@^]./\)@-1N=K^]6(@@@[[/K@@-ZC9K@@/')H)@@C[@^]"/\)@-1/K@@-Z;>@@@AJG )@@G@@')H)@@8KK@-\/KI@@@[-W)@@/\X@@@[5W@@@[1W@@@[!W@@@[(W@@@[>W@@@/\K@-3PROCESJH )@@G@@SOR CALLED WITH @XQT. NO ACTION TAKEN! TOO MANY SPECIFICATIONS. NO ACJI )@@G@@TION TAKEN! @[C@-;@[#@+@@[B@+#]@@@@@[@@@@@ @@[^],@@[@-5@@G^]%C@K@&TJJ )@@G@@[@W@@ A G@@]Q9G@@@C8@@@ /KF@@@C8^@@@Q ^@@]/KF@@@C8@@K@/K@@+2C8@@K@/K@@+6JK )@@G@@C8@@[@/K@@+2C8@@[@/K@@+6C8@@]@/K@@+2C8@@]@/K@@+6C8@@#@/K@@+2C8@@#@/K@@+6JL )@@G@@C8@@^@/K@@+2C8@@^@/K@@+6C8)@##/K@@+3C8)@#]C@O@@ ;KK@@M/K@@+8C8)@#[CGO@@ JM )@@G@@ @@@@J/GK@=+AA4@@[[CO@@ [G^@@ /,0@&F:8)@##/K@@=0;G@@[C/,0@>Y/K@@=H/K@@<7JN )@@G@@ ?^@@]C44@@]R'0@@ER]0@@J!80@@C/K@@Y/K@@<\/K@@<-H8)@@01@@@@I!0=@@]/K@@<%;G)@@=/GK@Y/K@@= /S@@@@C@0@@F;C0@@M&'_@@[JS )@@G@@!80@@G/K@@<';?@@@AG@K@@I/K@@<'C@0@@F;C0@@M!80@@HC80@@GT80@@A;^J@@@R'0@]@JT )@@G@@/K@@=S:?=@@[/K@@=UR]0@@I:8)@@ (4^@@[/K@@=W')A)&@:?=@@[/K@@=U:8)@@ /K@@=NJU )@@G@@P[)@&W/K@@=WR'0@#@R[K@&XC@)@@F/,0@&M&J4@@ [G4@@ ;C0@@MRA4@@[%8)@@ :8)@#@JV )@@G@@%80@^@:@)@@JO'0@@[%8)@[@:8)@]@/K@@=!;G@@[C @@@@J/KF@@@CG4@@ HC4@@ /KF@@@JW )@@G@@*C^@@ /K@@=4]@K@@ /K@@>@&.)__"')A)&@ @@@@G/,0@>YQ;@@@[/S@@@@/=@@=.&;@@@[JX )@@G@@/K@@=7O[)@&W>@@@&WO9)@@[/,0@&M;*0@@MQF4@@ [@4@@ RA4@@[ @@@@I/KF@@@[@@@[[JY )@@G@@C@^@@ ;K@@@MCGO@@ /GV@@@[CO@@ AA4@@[/,0@&F9?@@@ ')A)&@%?=@@[/K@@>PR[K@&XJZ )@@G@@/K@@>R%@)@[[/K@@>J/,0@&M[G4@@ T8@@@AG8H@@@C@K@@JRA4@@[/KF@@@')A)&@:?=@@[KA )@@G@@/KF@@@&;0@@[(4^@@@/K@@>(N4O@@@QF4@@A2)\)@@/K@@>(/KF@@@(0^@@@/K@@>0N0O@@@KB )@@G@@QB4@@A2)\)@@/K@@>0/KF@@[?8)@@A/KF@@@?8)@@)/KF@@[?8)@@0/KF@@@?8)@@'/KF@@]KC )@@G@@/KF@@@/(K@>;/K@@=8P9K@@[Q9)@@ H8)@@[/KI@@@/\)@>9C4=K@@C0=K@@C?=K@@C*=K@@KD )@@G@@C==K@@C)=K@@/\)@&BO9K@@[Q9)@@@H8)@@[/KI@@@A[O@@#A[=@@^ @@@@GW8@@@A9*@@@ KE )@@G@@&9)@@[/KF@@@C@0@@ T80@@A%@0@&XG/6@@@R[O@@#R[=@@^/KF@@@___@@@ KF )@@G@@@@[@@[______A^W@@#A@?@@^A@/@@ Q8W@@@&80@@[ ?[@@]N?L@@@R@)@(BQ^1@@@C8@@(CKG )@@G@@M@/)@@Q^1@@@/KF@@@A^W@@#A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[Q01@@[O^1@@@KH )@@G@@/KF@@@A4-@@[P^1@@@A01@@[C8[@@@Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@[?<@@@KI )@@G@@[*<@@@[=<@@@/?)@$#[)<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')])&./KF@@@;G@@@=W8@@@AKJ )@@G@@G^[@@@Q8!@@@Q8/@@@/KF@@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@/K@@$EC8#@@@H^[@@@KK )@@G@@T8@@@AG8]@@@/KF@@@C80@@ /K@@$YC80@@F;^@@[]+8K@@_%8)@@ :8)@@@/K@@$=')])&.KL )@@G@@8#0@$Y/KF@@@&"0__"/K@@$(&'0@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[8#0@$0/KF@@@KM )@@G@@')G)*E0@@@@F%8)@@@')])&./K@@$,C?[@@[C^L@@[/K@@$';G@@@M;CK@@M&;@@@[&;K@@[KN )@@G@@')G)*E:0-@@@/K@@*#:4-@@@/K@@*A')])&./K@@$/[?[@@[[^L@@[/KF@@@*8G@@@O;K@@[KO )@@G@@R#H@@@/K@@$8C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@*KC)!)@@[^[@@]Q;@@@@/K[K@]KP )@@G@@C80@@@;G@@@#/@@@*WG80@@[;G@@@#/^@@*RC8)@@0')])&.C8)@@@;=K@@#G8)@@0')])&.KQ )@@G@@8#0@*W/KF@@@P;K@@H/GK@*$R;)@@0')])&.8#K@*=R;.@@GT8K@@#;GH@@$/K@@*W&'0@@0KR )@@G@@/K@@*\C8K@@@&'0@@ N8X@@@C80@@@;O@@@=W8@@@EE/X@@@;?)@@AG8.@@08KK@*7/^@@*1KS )@@G@@/C@@*/;?)@@AG80@@-8KK@*/C@K@@IR#)@@F;C)@@M/K@@([')])&.8KK@(@C@)@@J')])&.KT )@@G@@;GK@@A/^)@(#/KF@@@@@[@@@ C@@^#D'=@@@IC8@^A@&;@^ B/,0@IMC@@^ C/,0@Y+KU )@@G@@@%)@[@ @@@@SC8@@@]/,0@Z]/K@@(V9,)^]_C7@^]7 4@^]7(@@^]6*C@^]7@%)@[[C8@@@[KV )@@G@@/,0@Z]/S@@@@C8@^AE/,0@X,@%)@[]@%)@[#=8@@@]@%)@[^C8@^AG/,0@OB@%)@[ '=@@@)KW )@@G@@@%)@[A9?@^A29*@^]'9*@^AG9?@^AI9*@^]_9?@^AM9*@^#[9?K^ D%@@^ FG@)@@H9*K^]6KX )@@G@@;/)^BD'=@@@3 @@@@K=@@^ A[@@^BA>8@@[@/K@@("*4@^BD@%)@[B[@@^BB>8@@C@ *@^BDKY )@@G@@=8@@@^ 0@^BD>8@[@@ ?@^BD>8@@K@/K@@%D=8@[@@@%)@[CC9@@@[C/@^A&/,0@&YO80@@[KZ )@@G@@C/)@@@')])&.(@@@@K/K@@%M/,0@O$/K@@%OC8@XQT/,0@$V(@@@@S/K@@%5C/)@@,')])&.LA )@@G@@9?@@@QH;@@@[0@@@@G/K@@%=;=@@@A+8K@@_!8)@@A!8)@@)@%)@[[')])&.8A@@%W/K@@%5LB )@@G@@ @@@@J;=@@@A+8K@@_H8)@@01@@@@I!8)@@C@%)@[[;*)@@-;=)@@#8A@@%>;?)@@E*@@@@ILC )@@G@@@%)@[[C@)^ H'C0@%4')])&./:)@%2C/)@@ ')])&.R]@^ I/ @@%_/,0@O$C8C)@@/,0@Z]LD )@@G@@*@G@@@@%)@[D/K@@:O/,0@$QC[)@@GC8C)@@/,0@Z]/K@@:C**@^]7 @@^]6/,0@O$/K@@:ELE )@@G@@(@G@@@/K@@:OC/)@@,')])&./,0@$Q?8@@[U/K@@:@C@@@@M/,0@$EC/)@@;')])&./K@@:PLF )@@G@@ @@@@M/,0@P2/,0@P!H8@@@[;*@@@S[@@OA&A^0^A&O80@@[P'@@@[/ )@%_D8@@@@[@@OA&LG )@@G@@C8#@@@H8@[] !8@@[1@%)@[EC@@^ N'=@@@J*@@@@G/K@@::C@@^ S'=@@@J/K@@:, @@@2PLH )@@G@@C9KK@W/,0@1YC8@^A8C8K@[C&;K@@#'=@@@4C@@^AQ[@@^A1[@@^A7C9K@J0/,0@1W0@@^AOLI )@@G@@/K@@?] @@@@CCC@^AOG8@@C@[C@^AOC^@@2QH8@@C@[^@@2QC;0@@[/K@@?SR'@@@^C^K@2,LJ )@@G@@!8K@JP@%)@[FCV0^AOC=0^BD;*0@@[+*8@2)(@@@@K/K@@?I @@K2K@%)@[GC@0@22+@0^ TLK )@@G@@'T@^ U[[@@22;D@@@-CO@@221@@@@G*@@@@K@%)@[H;*@@@DR9?@@@G8@@ +CB)@2T[^@@2TLL )@@G@@*?@^BDD#)@@UC8K@@];*K@@]CCX^@[G8K@@8;OK@@=W/K@@W(@CO^3/K@@?*K@SO^3[@*O^3LM )@@G@@G^K^AP[^K^APT8K@@W[@SO^2C @@2,G9@@@7;P@@@=W.@@@WS9@@@W/,0@1Y[@K^A1H@K^AQLN )@@G@@H@K@2U#CK^A09?@^A?C@)^AQC80^CM/,0@CH0@@@@G@%)@[I[C@^B C@@^ V/,0@U2#F)^CLLO )@@G@@ ?@^CHC@@^^1(@@^CS'=@@@I9!)^BAK[0@@M(?@^BD*@@@@O/K@@!E/K@@,[C/@^B//,0@&YLP )@@G@@C8@^ W/,0@$8CC@^CL/,0@*O(@@^CS/K@@!-/,0@$5/,0@R;*@@@@G@%)@[I9?@^CI/,0@$XLQ )@@G@@C/)@@.')])&.C?@^CK/,0@*OC/)@@+')])&.C^@^CK/,0@*O/,0@$5C/)@@.')])&.C@@^ )LR )@@G@@'=@@@I(@@@@M/K@@!4C@@^^)/,)@0E0@@@@G/K@@!0CWK^CH;*K@@]GCK^CM&#@@@H/K@@!3LS )@@G@@C@@^ ='=@@@ID8@@@@[@@^BA(@@@@N/K@@,[C@@^^8K@@#G[@@@I8KK@,:/,0@1Y @@@@JW80@@W/,)@1:1@@@@VLY )@@G@@/B0@,>L@K^AQL^)^AP1@@@@J/K@@\@/,)@1:L@K^AQL^)^AP*@@@@J@%)@[J[@K^A+C8@[] LZ )@@G@@[^@^A6C9K@[0/,0@1Y9?)^AS9*)^AGC8@^AG'=@@[^D8@^AS'=@@[^C8K@@[;*K@@]CCX^@[MA )@@G@@G8K@@[[CK^B^C8@@2P[^@^A/[^@^A6C8@@@[C86@C@/,0@\+C8@^A"/,0@1)(0@^BD/K@@\ZMB )@@G@@C@@^ 1'=@@@J/K@@\-C@@^ 3'=@@@I/K@@2M;*@@@]C@W^@#G@K^A'[@K^A.C8@@@^[C@^A/MC )@@G@@C/@^A8'=@@@#G8K@@[[@K^A.C^@^A/CDW@@@KDW@@][D)^A/K@@^ 4KCW@@@9*K@@[H9)@@[MD )@@G@@G@@@@M'=@@@B0@@@@H/K@@04/,0@+=/K@@1L!80@@H/K@@1L9*@^CIR_@@@./,0@+6/K@@1L 0^@@@MH )@@G@@/,0@++/K@@1L!8@@[[/K@@1L[?@^CK ^@^CKR_@@@+/,0@+6/K@@02/,0@++/K@@1LG^@^CKMI )@@G@@[^@^CK/,0@+YR'0@Q+/K@@1C G^@@ R_@@@:/,0@>B0@@@@H/K@@1]/,0@+W:8)@]@!80@@HMJ )@@G@@/K@@1L9*@^CFR_@@@:/,0@+6/K@@1L/,0@+Y 0^@@@/,0@+)/K@@1L[C@^CL/,0@+YR'0@R;MK )@@G@@%8)@#@/K@@1L/,;@@@*@@@@G/K@@1JCC@^CL/KE@@@/,0@WC/K@@1UC^@^A=9?W@@@C8@@@FML )@@G@@+8)@@_;GK@@A%80@@_8#@@1OGC^@@ /,0@C@C@@^^&/K@@0EC8@^A?/K@@1ZC8@^A2[DW@@^MM )@@G@@'=@@@#C4W@@#!8K@@A@%)@[KC@K@@LG8K@@V;OK@@=W/K@@WG@W@@ [@W@@ /KF@@@]@0@[[MN )@@G@@E@0@@JT80@@WC9K@J0(@@@@J/K@@2 ?80@J0C[K@@J/,0@1W8KK@2]C@@@1)Q;@@@DC@K^ 6MO )@@G@@/,0@2AQ;@@[DC@K^ 7/,0@2AQ;@@[[C@K^ 8/,0@2AQ;@@]EC@K^ 9/,0@2A/,0@1YH@0@@LMP )@@G@@/K@@1\/KE@@@N@K@@LC@)^ !2@I)@[/KF@@@[@Y@@@/K@@2CC@K^ 'N8K@@VM#W)@@/KF@@@MQ )@@G@@C@@^ "'=@@@IC@@^ _'=@@@J'=@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ND )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ON )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[#4@C@^CL^@GQG )@@G@@@@@@^H)R@@@@[>Y@@@@@@@ (@@@@@R)R@@@@@B_@@@@@@@@X@@@@@]^? QH )@@G@@ @@@@@@@@@@@@@@[@@@QI )@@G@@ BANK@@]@@D@@^@@ I-BANK @]#@@#@@@@@[@@@[@@@[@@@@O@@_@^)@@@@[QJ )@@G@@]@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QK )@@G@@@@@@@@@@@@@@/K@@I$@@IGDM@@@I/O@@SYMB@@ERR$@@@@ER@@CONS@@COM1@@COM2@@@REPQL )@@G@@ERROR STOP #\& [@#^]@\& @@@^[D ERROR, CODE \& [@@^]@, AT \& QM )@@G@@[@A^@3.\\ PACKET ADDRESS: \&[@A^@4.\\ ILLEGAL.\\ ILLEGAL ADDRESS ENQN )@@G@@COUNTERED IN ERROR ROUTINE. @[C^[O@KKH^]AH]]]AHAAH^CHN@@@@I]]]AH]^AHAAQO )@@G@@HN@@@@E#@^@3__"@@ @]@^]SOPTION__@@TA@[@@@@@@@]%@@@IOPR'=@@@)@@[@M\@[Q^]#QP )@@G@@ __"@@P@@[@M'@@[^]#C@H@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/K@@N;@@@@@@/K@@@@/K@@V.@@@@@@QT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@/S#)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@USE QU )@@G@@@@@@@@@@@@@@, @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QW )@@G@@@@@@@@TPF$ @@@@@^DX 2.10 @[]^#BILLEGAL PROGRAM OPTION SPECIFIQX )@@G@@CATION.\\ @ASG,A OF PROGRAM FILE FAILED.\\ NO SUCH FILE.\\ PROGRAQY )@@G@@M FILE NOT READ-ENABLED.\\ PROGRAM NOT FOUND.\\ FILE NOT A PROGRAMQZ )@@G@@ FILE.\\ U-OPTION NOT AVAILABLE EXCEPT ON 1110.\\ N/P OPTION CONFLICRA )@@G@@T.\\ SPECIFICATION(S) BEYOND SECOND MEANINGLESS.\\ SPECIFICATION OVERRB )@@G@@FLOW.\\ ABNORMALLY LONG BANK LOAD TABLE.\\ FILE ERROR\\NO CORE AVAIRC )@@G@@LABLE FOR DX.\\ ERROR IN READING DIAGNOSTIC TABLES.\\ DX SECTOR CORD )@@G@@UNT ERROR.\\MASS STORAGE I/O ERROR.\\ BRK ADDR: _ @[]^^YTRAP ADDR: _RE )@@G@@@[]^^-TRY AGAIN: _@[]^^=DIAGNOSTIC TABLES ABSENT. ALL ADDRESSES MUST BE RF )@@G@@ABSOLUTE. @[E^^$@@@@2P@@@@2W@@@@2V@@[@2Y@@@@2\@@@@2>@@@@2&@@[@2&@@@@@$RG )@@G@@@@@@@-@@@@@0@@@@@1@@@@@2@@@@@3@@@@@4@@@@@5@@@@@6@@@@@7@@@@@8@@@@@9@[@@@@RH )@@G@@@[@[T^@J0@2P@[@@@@[@@@@@ __@@TA@@[@@#@ASG,T $DX,F///999999 RI )@@G@@@@^^ J@ASG,T $DXPRF,F///1500 @@^^ O7_____@@@[_"^CB^CMPGM STARTS AT & (&RJ )@@G@@)& @[G^BTBRK REQ CANCELLED.@[#^ -TRAP REQ CANCELLED. @[^^ >K@@@@@RK )@@G@@@@[^BEBEC @@[@2O@@@___@ADD $DX.X @@]^ \READY!@[[^ 2@@[@@@______'$0@@)RL )@@G@@'$K@@)'$@@[@'&0@[@@@[@2QDX TERMINATED. @[#^ ;@@^^AE[[@@2K@@@@@@^#E^#LRM )@@G@@^#R^#U^#)^#=^#(^#0^#4^#/^^[^^B^^D^^I^^P^^T@FREE,A $DX$UPGM$ @@@@@@RN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$DX X RO )@@G@@ @@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@2K^BE&&@[]BRP )@@G@@@@@@@@[[@@@@@@@@@@@@@@@@@@@@@@$DX$UPGM$ @@@@@@@K@@@@@@@@2P@@@@@@$DX RQ )@@G@@ @@@@@@@C@@@@@@@@2P@@@@@@ @@@@@@@K@@@@@@@@21@@@@@@$DX RR )@@G@@ @@@@@@@H@@@@@@]^B^@@@@K@@@@@2P@@@^CM__________________@[[[[@@@@@@@RS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[ ^BE[@_@@@@@@@@@@@@@@@@@@@@@___@@@RW )@@G@@@@@^^'&&G^BT@@@@@@[[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@___@@@___@@@___@@@___RZ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___SA )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___SB )@@G@@DXSEG @@G@@^@@@@^HNRSEG @@I@@^@@@@@RRSSEG @@K@@^@@@@@]SC )@@G@@@@@#@ @@@@^H@@@@@ @@@@@R@@@@@ @@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@CTNCY$ @^-D[JDASG$ JT?]CHDX SE )@@G@@NY^CSKDXLEVEL ['8]JLEDIT$EXT [G/^]EEDIT$$ #L[#OGERU$ SF )@@G@@D#6 KKFINDELT$ [!FCPKINFOR$$ # V#EINAME$ O!6ECJNONRES SG )@@G@@[/O]JLQARROW O_1FYJRES [G7]JLSCAN$ H_M[AJSCHAET SH )@@G@@[$'#PKWRTAET O?FFLI@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SI )@@G@@$IBANK @@@@@J$DBANK @@!@@LG(-IL3^[-G9\ 0)^@)@P@A@ ^@)^@)^@)GD2SJ )@@G@@G*)I-*G*)ID5HD0I(3^[4H[-I))I9>IL>^[5IT>G))GL9^[4H[>^[DH1H-9^@5A@)^@)^@)^[9@@@@@-@@@[@^@@H@C@@@@@@!@@@[@^@A @CH@@@@@@@@@[@^SL )@@G@@@ ,@IM@@@@@P@@@[@^@@>@O@@@@@@V@@@[@^@[@@O>@@@@@G@@@[@^@@M@P>@@@@@%@@@[@^SM )@@G@@@B7@P7@@@@@#@@@[@^@@4@X,@@@@@S@@@[@^@#1@Y+@@@@@$@@@[@^@^F@+N@@@@@J@@@[@^SN )@@G@@@]:@&Y@@@@@A@@@[@^@DG@(D@@@@@A@@@#@^@L)@2P@@^@@Y]@@[@^[EP@@@@@^@@Y]@@H@^SO )@@G@@@@R[EP@@@@@-)@@@@ @@]^@G@@@@@-)@@]@ @@G^@I@@@@@!)@@@@ @@J^@U@@@@@!)@@]@ SP )@@G@@@@E^@(@@@@@@)@@@@ @[@^@3@@@@@@)@@]@ @@*^[3@@@@@%)@@]@ @@F^]V@@@@@#)@@]@ SQ )@@G@@@@]^]&@@@@@S)@@]@ @@Z^]*@@@@@D)@@@@ @@#^#B@@@@@A)@@@@ @]6^#E@@@@@A)@@]@ SR )@@G@@@[E^A@@@@@@A)@@E@ @[C^BE@@^@@Y+@@@@ @K][E?@@^@@Y+@@]@ @D([U,@@^@@Y+@@E@ SS )@@G@@@[C[=R@@C@@=+@@@@ @C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ST )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CTNCY$ @@A@@@DASGA$SU )@@G@@ @@P@@@DUSE$ @@S@]RDX @@-@@@DXLVL @[C@@]ECOLN$SV )@@G@@ @@Y@@8ECOL$ @@Y@@?EDIT$ @@Y@@@EDIT$T @@Y@@ZEFD1$ SW )@@G@@ @@Y@@.EFD2$ @@Y@@_EFILL$ @@J@@HELT$ @[ @@IEMSGR$SX )@@G@@ @@Y@[REMSG$ @@Y@[UEOCTV$ @@Y@[6EWC$ @@J@@CFABS SY )@@G@@ @@M@@:FENAME$ @@G@@]FINDX$ @@D@@BFREL @@M@]^ICTY SZ )@@G@@ @[R@@_NONRES @[R@#LNRSINIT @@$[DFQARROW @@@@@@RINF$ TA )@@G@@ @@S@@@RSTAET @@M@[)SATSTAT @@M@ALSCAN$ @@V@@@SCHAETTB )@@G@@ @@M@^;SELT$ @@S@@)SFIND$ @@V@]4SNEXT$ @@V@@FSNEXT$TC )@@G@@D @@V@@H90H->^[\G0)TL )@@G@@@M@ @]A@)I-*G*)C9\H-=^[#H9-IT4^[(H0)CD&IL(GT-^[2G(?HD>G))I(0H9,^[:H1\I-4TM )@@G@@G(=^[GD3I))I-*G*)@N@A@ ^@)^@)^@)I-*G*)C9\H-=^[#TN )@@G@@H9-IT4^[(H0)CD&IL(GT-^[2G(?HD>G))I(0H9,^[:H1\I-4G(=^[GD3I))I-*G*)@M[@@AI-*G*)C9\H-=^[#H9-IT4^[(H0)CD&IL(GT-^[2G(?HD>G))TP )@@G@@I(0H9,^[:H1\I-4G(=^[GD3I))I-*G*)^@)@M@@[@^[4H[>TQ )@@G@@^[BH9?G))CT\GD3I))HD,^[[G12HDH-(G(=^[5I[\H0)HT,H94I->G))GT\IL=IS)TR )@@G@@I(,I-(H))GD4^[?G(-IT4^[4H[>^@)@L@ @]A@)G(-IL?JC)G((G9*I-4G(>H14H@)GT>H14TS )@@G@@I(2JC;^@+E-*G(2G*)HD3^[-H0)I(,IT5GL3I--H14HD-I->G))I-2GD=HD4HD\H0?@M@A@ TT )@@G@@^@)^@)^@)G(-IL?JC)G((G9*I-4G(>H14H@)GT>H14I(2JC;^@+E-*G(2G*)HD3^[-H0)I(,TU )@@G@@IT5GL3I--H14HD-I->G))I-2GD=HD4HD\H0?@L[@@AG(-IL?JC)G((G9*I-4G(>H14H@)GT>TV )@@G@@H14I(2JC;^@+E-*G(2G*)HD3^[-H0)I(,IT5GL3I--H14HD-I->G))I-2GD=HD4HD\H0?^@)TW )@@G@@@L@@[@^[>GD2H-9^[>HD$H[4I->G(,I-*^[IL>^[(IS)GD,^[5H13TX )@@G@@I(+IT4GD,I-(GD4G(=^[4IL-G-(I-(H9, ))@M@ @]A@)GD?IT\ ))I-*GD4^[:H1\I-4G(=TY )@@G@@^[G(,^[5IT>G))HD,^[#H[(H1-^[&H92^[:G(>I[(H1$^[-GTG(,UA )@@G@@^[5IT>G))HD,^[#H[(H1-^[&H92^[:G(>I[(H1$^[-GTG(,^[5IT>G))HD,^[#H[(H1-^[&H92^[:G(>UC )@@G@@I[(H1$^[-GTG))GT\IL=IS)H[-UD )@@G@@I1>^[+G(>H0)I(3G(=^[(H0)CT*HD,GC)G1\IK)HT>G(0HD,G8)GD^[3GD(G))^@)@O@A@ ^@)^@)^@)GD3^[?GD4G*)GD3^@2A@)UG )@@G@@^@)^@)^[] 1# 0+^[VC--JC?^[0 0)AC1F*;^@+DD,^[#H[(H1- ))HT,H94^[2G(^[3GD(G))^@)@L[@@AGD3^[?GD4G*)GD3^@2A[] 1# 0+^[VC--JC?^[0 0)AC1F*;UI )@@G@@^@+DD,^[#H[(H1- ))HT,H94^[2G(^[3GD(G))^@)@L@@[@^[-IS)H--I->UJ )@@G@@^[-IS)AK0CK,CS,^K)FT^GD9 ))I@,^@1ADXBS)^LDH0)CT*HD,GC?^[:H1\I))IL>GT\IL=UK )@@G@@IS)GD2G*)IT-HD=^@)@N@ @]A@)I-\^[*GD6G*)I[2G(G->G))I-*G*)HT,H97H->G-$UL )@@G@@G*)H9&^[7IL(I-(H1$ 0+^[VD-\GT:G*?^[0 0)BDXBS)HT,H94^[2G(G->G))I-*G*)HT,H97H->G-$G*)H9&^[7IL(I-(H1$UN )@@G@@ 0+^[VD-\GT:G*?^[0 0)BDXBS)HT,H94^[2G(G->G))I-*G*)HT,H97H->G-$G*)H9&^[7IL(I-(H1$ 0+^[VD-\GT:G*?^[0 0)BDXBS)UP )@@G@@HT,H94^[2G(^[0IL>GT>G(=G(=^[4H[>^[:H1\I9?G(=G9>UQ )@@G@@^[\G0)I92HD4HD,G8,^K)FTGH9 ))I@,^@9F*;^[:H1\I))IL>GT\IL=IS)^@)@M@ @]UR )@@G@@A@)H[-I1>^[-H-3H8)GL>G(,^[=G(6G(?H90G(=^[(H0)I-*G*)EL9I(:JD5^[DIT?GD,G-3US )@@G@@^[+I(4^[7G(2G*)IT5I[>ILG->G))GL9@N@A@ ^@)^@)^@)H[-I1>^[-H-3H8)GL>G(,UT )@@G@@^[=G(6G(?H90G(=^[(H0)I-*G*)EL9I(:JD5^[DIT?GD,G-3^[+I(4^[7G(2G*)IT5I[>ILG->G))GL9@M[@@AH[-I1>^[-H-3H8)GL>G(,^[=G(6G(?H90G(=^[(H0)I-*G*)EL9I(:UV )@@G@@JD5^[DIT?GD,G-3^[+I(4^[7G(2G*)IT5I[>ILG->G))GL9^@)@M@@[@^[*GD6G*)GD?UW )@@G@@IT\^[+G(>H0)G->I1>H-\I[>G))HD,^[4H[>^[MJD5HT9I*)DD3H--H1=IS)GL5I))I9>IL>UX )@@G@@^[3I(0G(2GT>G(=G(=^[+JC)@M@ @]A@)I92HD4HD,G8)HD,^[4H[>^[+G($HD,H1(H1$^[\UY )@@G@@G0)I-*G*)I-7G(,I-(G(4H@)GT>H14I(2JC;^[?GD3I)?^[+I(4^[,H94^[?G(-IT4@N@A@ UZ )@@G@@^@)^@)^@)I92HD4HD,G8)HD,^[4H[>^[+G($HD,H1(H1$^[\G0)I-*G*)I-7G(,I-(G(4H@)VA )@@G@@GT>H14I(2JC;^[?GD3I)?^[+I(4^[,H94^[?G(-IT4@M[@@AI92HD4HD,G8)HD,^[4H[>^[+VB )@@G@@G($HD,H1(H1$^[\G0)I-*G*)I-7G(,I-(G(4H@)GT>H14I(2JC;^[?GD3I)?^[+I(4^[,H94VC )@@G@@^[?G(-IT4^@)@M@@[@^[7IL(I-(H1$^[(H0)I-*G*)GL>G9(H1,HD,G8)H9&^[4H[>^[4I9>VD )@@G@@H14HD>I-*^[GD3I))@N@ @]A@)GD2G*)I-*VE )@@G@@G*)ID5HD0I(3^[4H[-I))I9>IL>^[5IT>G))GL9^[4H[>^[DH1VF )@@G@@H-9^@5A@0^[9G(-IL3^[-G9\ 0)^@)@P@A@ ^@)^@)^@)GD2G*)I-*G*)ID5HD0I(3^[4H[-VG )@@G@@I))I9>IL>^[5IT>G))GL9^[4H[>^[DH1H-9^@5A@)^@)^@)^[9VH )@@G@@G(-IL3^[-G9\ 0)^@)@M[@@AGD2G*)I-*G*)ID5HD0I(3^[4H[-I))I9>IL>^[5IT>G))GL9VI )@@G@@^[4H[>^[DH1H-9^@5A[9G(-IL3^[-G9\ 0)^@)@M@@[@^[-IL>VJ )@@G@@^[4H[>^[1I((I[5IS)I-*GD4^[7G(2G*)I(3G(=^[+JC)I-*G*)DD,GT-IS)GD0I[2H98HD!VK )@@G@@GD4G(?JC)A*0JD>GD2IS)GD$H8,^@)@M@ @]A@)^@)^@)^[RG*)IT>G*)I-*GD4^[:H1\I))VL )@@G@@IL>GT\IL=IS)H[-I1>^[+G(>H0)G->I1>H-\I[>G))GL9^[3G(6G(2GD?^[=HD6G(2IT>^@)VM )@@G@@@N@A@ ^@)^@)^@)^@)^@)^[RG*)IT>G*)I-*GD4^[:H1\I))IL>GT\IL=IS)H[-I1>^[+G(>VN )@@G@@H0)G->I1>H-\I[>G))GL9^[3G(6G(2GD?^[=HD6G(2IT>^@)@L[@@A^@)^@)^[RG*)IT>G*)VO )@@G@@I-*GD4^[:H1\I))IL>GT\IL=IS)H[-I1>^[+G(>H0)G->I1>H-\I[>G))GL9^[3G(6G(2GD?VP )@@G@@^[=HD6G(2IT>@M@@[@^@)^@)^@)E9>^[3G(>^[4H[-I))HT,H94^[2G(G(,^[=G(6G(?H90G(=^[+JC)IT>I1>IL-H))G-(I1>IL3G*)^@)@N@ @]A@)GD,G))I(,VR )@@G@@IL>H--I->G))I[-IL4IS)H9&^[4H[>^[7H92H-= 0)D[\I9>I1>IK?^[4H[>IL>^[*GD=^[+VS )@@G@@G(>H0)H1\^[3I(+IT4GD,I-(GD?^@)@O@A@ ^@)^@)^@)GD,G))I(,IL>H--I->G))I[-IL4VT )@@G@@IS)H9&^[4H[>^[7H92H-= 0)D[\I9>I1>IK?^[4H[>IL>^[*GD=^[+G(>H0)H1\^[3I(+IT4VU )@@G@@GD,I-(GD?^@)@M[@@AGD,G))I(,IL>H--I->G))I[-IL4IS)H9&^[4H[>^[7H92H-= 0)D[\VV )@@G@@I9>I1>IK?^[4H[>IL>^[*GD=^[+G(>H0)H1\^[3I(+IT4GD,I-(GD?@N@@[@^[-H1=^[5H12VW )@@G@@G(?GD4G(=^[0GD2I-3^[\G0)I-*G*)I9\IL?G),^[CH97G(6G(2 ))I-*G(2G*)H[-G))GL>VX )@@G@@G(,^[,H8)IT5GL3I--H14HD-H))^@)@N@ @]A@)GT\H14GDI-7G(>H0)I-*G(3G*)VY )@@G@@I[>H90H->IS)FTRGD?H--GT>F*,^[OH[>IL>G1\IL> ))I9>^[^@)@O@A@ ^@)^@)^@)GT\H14GDI-7G(>H0)I-*G(3G*)I[>H90H->IS)FTRGD?WA )@@G@@H--GT>F*,^[OH[>IL>G1\IL> ))I9>^[^@)@M[@@AGT\H14WB )@@G@@GDI-7G(>H0)I-*G(3G*)I[>H90H->IS)FTRGD?H--GT>F*,^[OH[>IL>G1\IL> ))WC )@@G@@I9>^[@N@@[@^[G(,^[4H[>IT>^[0WD )@@G@@G(\I[?G(3^[VE9-H-?GDIT>^[3H9I-(G(3^[*GD=^[=G(6G(?H90G(=^[4H[>WF )@@G@@^[5IT>^[\G0)HT,H94I->G))GT\IL=IS)HD,G->I[>H14H-9 0)^@)@O@A@ ^@)^@)^@)I-*WG )@@G@@GD4^[4H[>IT>^[3H9I-(G(3^[*GD=^[=G(6G(?H90G(=^[4H[>^[5IT>^[\G0)HT,H94WH )@@G@@I->G))GT\IL=IS)HD,G->I[>H14H-9 0)^@)@M[@@AI-*GD4^[4H[>IT>^[3H9I-(G(3WI )@@G@@^[*GD=^[=G(6G(?H90G(=^[4H[>^[5IT>^[\G0)HT,H94I->G))GT\IL=IS)HD,G->I[>H14WJ )@@G@@H-9 0)@M@@[@^[4H[-I))I-*G(3G*)IT\GT(G(4HD>IS)H[-G))G->I1>H-\I[>G))I-*G*)WK )@@G@@I(3G*)H9&^[:H1\I-4G(=^[G))I(3G*)H9&^[1I((I[5IS)I9-IS)GL9^[4H[>^[-H1H14^[DH1IL5 0)@M@A@ ^@)^@)^@)E-*G*)H(\IT4^[-G-6GD,GT>G))I(3G*)H9&^[1I((I[5WN )@@G@@IS)I9-IS)GL9^[4H[>^[-H1H14^[DH1IL5 0)@L[@@AE-*G*)H(\IT4WO )@@G@@^[-G-6GD,GT>G))I(3G*)H9&^[1I((I[5IS)I9-IS)GL9^[4H[>^[-H1H14^[DH1IL5 0)^@)@L@@[@^[OH[>^[!H93I))GD=I1-H1^[\G0)ID5HD0I(3WQ )@@G@@^[7GD3^[+JC)I-*G*)GD,GT(G(,I))DD,GT-IS)H9&^[KG(2I*,^@)@M@ @]A@)^@)^@)^[AWR )@@G@@HD2IT4 ))GC)GL2G((G0)H[(IT4H92JC)H9&^[4H[>^[DH1H90H-> 0)E-*G*)DD,WS )@@G@@GT-IS)I9>IL>^[-^[3H(-H-?@N@A@ ^@)^@)^@)^@)^@)^[AHD2IT4 ))GC)GL2G((G0)H[(WT )@@G@@IT4H92JC)H9&^[4H[>^[DH1H90H-> 0)E-*G*)DD,GT-IS)I9>IL>^[-^[3H(-H-?WU )@@G@@@M[@@A^@)^@)^[AHD2IT4 ))GC)GL2G((G0)H[(IT4H92JC)H9&^[4H[>^[DH1H90WV )@@G@@H-> 0)E-*G*)DD,GT-IS)I9>IL>^[-^[3H(-H-?^@)@M@@[@^@)^@)^@)C1(IL3I)?^[-^[+WW )@@G@@IL>HD&^[*HD3I-\IL9^[\G0)I-*G*)DD,GT-^[0G(\I[?G*,^[OH[>^[DH1^[[H1=G(3^[!H95H14GD(WY )@@G@@H13^[\G0)I[2G(3G(,I)!G--JC)E[>IL5 0)DD,^[4H[>^[>GD2H-9@N@A@ ^@)^@)^@)I-2WZ )@@G@@HD+G*)HD,H[-GL(I-(H1$^[4H[>^[[H1=G(3^[!H95H14GD(H13^[\G0)I[2G(3G(,I)!G--XA )@@G@@JC)E[>IL5 0)DD,^[4H[>^[>GD2H-9@M[@@AI-2HD+G*)HD,H[-GL(I-(H1$^[4H[>^[[H1=XB )@@G@@G(3^[!H95H14GD(H13^[\G0)I[2G(3G(,I)!G--JC)E[>IL5 0)DD,^[4H[>^[>GD2H-9^@)XC )@@G@@@M@@[@^[4IL(GL>^[(H1*GD+HD4HD,G8)I-*G*)CD,G->IS)H(\I(,I--HD,IS)H9&^[0IL>XD )@@G@@IT>H14 (=GD9^[KG(2I*,^[DH0)I-*G*)G(-IL?JC)@N@ @]A@)G1(G14G(>H14H@)GT>H14XE )@@G@@I(2JC?^[4H[>JC)I(,G->IL7G(,I))GC)IL-I[(G))G92H97I-*^[-H1=^[>J[0GD,IT(H9,XF )@@G@@^[+JC)H(>GD,IS)^@)@O@A@ ^@)^@)^@)G1(G14G(>H14H@)GT>H14I(2JC?^[4H[>JC)I(,XG )@@G@@G->IL7G(,I))GC)IL-I[(G))G92H97I-*^[-H1=^[>J[0GD,IT(H9,^[+JC)H(>GD,IS)^@)XH )@@G@@@M[@@AG1(G14G(>H14H@)GT>H14I(2JC?^[4H[>JC)I(,G->IL7G(,I))GC)IL-I[(G))G92XI )@@G@@H97I-*^[-H1=^[>J[0GD,IT(H9,^[+JC)H(>GD,IS)@M@@[@^[&HD&I->G(,I-*^[H14^[-^[2GD0HD=^[$IL\I94H@)GD,G))G(8I[-H13HD\H0)XK )@@G@@GL9^[!G(-H13@O@ @]A@)H9&^[HD$H[+H92HD,G8)I-2HD+G(3 0)XL )@@G@@E-*G*)DD,GT-^[>H(0HD2G*)IL>GDG))HD4IS)G15H-?^[3I-2G(,G94H@)^@)@P@A@ XM )@@G@@^@)^@)^@)H9&^[HD$H[+H92HD,G8)I-2HD+G(3 0)E-*G*)DD,GT-XN )@@G@@^[>H(0HD2G*)IL>GDG))HD4IS)G15H-?^[3I-2G(,G94H@)^@)@N[@@AH9&^[HD$H[+H92HD,G8)I-2HD+G(3 0)E-*G*)DD,GT-^[>H(0HD2G*)IL>GDXP )@@G@@G))HD4IS)G15H-?^[3I-2G(,G94H@)@N@@[@^[\G0)GT\H11I(>IL(H1$^[,G((G9*GL\IL(XQ )@@G@@H1$^[4IL(GL>IS,^[OH[>^[DH1^[2G(-GT*G(=^[(I-3^[&I(?H))IT4IL>XR )@@G@@H1$I-*@N@ @]A@)HD,^[4H[>^@1A)7A[3 0)CD4^[4H[-I))I-(H(> ))I-*G*)G(!I[(IL>XS )@@G@@^[(H1G))GD?H))H9&^[KG(2I*)HD,^[-G-=HD4HD\H0)I-\@O@A@ ^@)^@)^@)HD,XT )@@G@@^[4H[>^@1A)7A[3 0)CD4^[4H[-I))I-(H(> ))I-*G*)G(!I[(IL>^[(H1G))GD?XU )@@G@@H))H9&^[KG(2I*)HD,^[-G-=HD4HD\H0)I-\@N[@@AHD,^[4H[>^@1A)7A[3 0)CD4^[4H[-XV )@@G@@I))I-(H(> ))I-*G*)G(!I[(IL>^[(H1G))GD?H))H9&^[KG(2I*)HD,^[-G-=HD4XW )@@G@@HD\H0)I-\^@)@N@@[@^[(H0)I-*G*)AC4A80IS,^[[I))I-*GD4^[4HD!G*?^[4H[>^[>H(0XX )@@G@@HD2G*)HD,GT?I(=G(=^[-H-?^[\G0)E[>IL5^[(H0)GD=G-(I-(H9,^[4H8)@M@ @]A@)I[-XY )@@G@@IL4IS)H9&^[,H92I-*G(2H0)CT*HD?G*)GD,G))IT\I(4H[>IL,^[ ID5GD=H92 0)D[\I9>XZ )@@G@@I1>IK?^[4H[>^[DH1@N@A@ ^@)^@)^@)I[-IL4IS)H9&^[,H92I-*G(2H0)YA )@@G@@CT*HD?G*)GD,G))IT\I(4H[>IL,^[ ID5GD=H92 0)D[\I9>I1>IK?^[4H[>^[DH1@M[@@AI[-IL4IS)H9&^[,H92I-*G(2H0)CT*HD?G*)GD,G))IT\I(4H[>IL,^[ ID5YC )@@G@@GD=H92 0)D[\I9>I1>IK?^[4H[>^[DH1^@)@M@@[@^[0GD2I-3^[\G0)H1\YD )@@G@@IL4H[>IL,^[#H[(H->^[-H1=^[3H95I-*G(2H0)C(1I(-G-\IK,^[CH97G(6G(2 ))I-*G*)YE )@@G@@DD,GT-^[>H(0HD2G*)@N@ @]A@)I9-IS)IT*H92I)!H-(I1>G))GD3^[4H[>^[NI[-H1(IT*YF )@@G@@^[G))GD3^[4H[>^[NI[-H1(IT*^[G))GD3^[4H[>^[NI[-H1(IT*^[IT4^[0I(4^[-H0)GD+IL5I[4^[>H1=^[4H8)I-*HD3^[^@)YL )@@G@@@N@ @]A@)HD,^[4H[>^@1A*3A[3 0)C-5IL(H1$^[4H[>IT>^@6A@!H9=G))JD>GD2IS)HD,YM )@@G@@^[0H97G(2 ))I-*G*)DD,GT-IS)H[-G))G->I1>H-\I[>G))@O@A@ ^@)^@)^@)HD,^[4H[>YN )@@G@@^@1A*3A[3 0)C-5IL(H1$^[4H[>IT>^@6A@!H9=G))JD>GD2IS)HD,^[0H97G(2 ))I-*G*)YO )@@G@@DD,GT-IS)H[-G))G->I1>H-\I[>G))@N[@@AHD,^[4H[>^@1A*3A[3 0)C-5IL(H1$^[4H[>YP )@@G@@IT>^@6A@!H9=G))JD>GD2IS)HD,^[0H97G(2 ))I-*G*)DD,GT-IS)H[-G))G->I1>H-\I[>YQ )@@G@@G))^@)@N@@[@^[(H0)I-*G*)AC5AS0IS,^[^I(2HD,G8)I-*G(3G*)A00 (\G-=^[9G(-IL3YR )@@C@@^[(H0)I[\I9>IK?^[4H[>^[DH1