@CAT,P 1009-001-001.,F///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1009-001-001,,,127745053241,000 )@@G@@**PF**@@@[' @@@@@@@@@@@[@AK@@@]FE /^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R@@@@@@@@@AE )@@G@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@ @@@@@@@@E@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@@E@@UAN )@@G@@GPX$QUES @@@@@@@@ @@O @@@@WE@@^@@E@@@@W@L!:#DBGPX$CHAINS AO )@@G@@@@@@@@@@ @@N @@@@WZ@@^@@L@@@@WIK5M#RBGPX$GATE @@@@@@@@ @@MAP )@@G@@ @@@@W*@@]@@ @@@@WPC'B^BBGPX$FACILS AY )@@G@@@@@@@@@@[@@@ @ @@@[@@@@#@@@@@$IC;F^BBGPX$ASSETS @@@@@@@@[@@@AZ )@@G@@ @ @@@[@@@@]<@@@@%IC.#^BBGPX$STORES @@@@@@@@[@@@ BA )@@G@@@ @@@[@@@@]H@@@@?1GP0^BBGPX$SPEC @@@@@@@@[@@@ @ @[@]@@@@[HBB )@@G@@@@@@,"JZ%GHAGPX$GATE @@@@@@@@[@@@ @ @[@]@@@@@!@@@@0FF$H#SBBC )@@G@@GPX$CHAINS @@@@@@@@[@@@ @ @[@]@@@@]\@@@@08K5L#RBGPX$QUES BD )@@G@@@@@@@@@@[@@@ @ @]@#@@@@[%@@@@3$L!:#DBGPX$PRINT @@@@@@@@[@@QBE )@@G@@ @ @@@[@@@@FF@@@@5LE[HA^BGPX$PRINT @@@@@@@@ @@@ BF )@@G@@@@@[]^@@B@[*@@@[@WE[HA^BGPX$RUNTIME @@@@@@@@[@@S @ @@@[@@@@Q^BG )@@G@@@@@[]FG@QAMBGPX$RUNTIME @@@@@@@@ @@@ @@@[UU@@N@]F@@@[SJG@SAMBBH )@@G@@GPSSX8 @@@@@@@@[@@U @ @@@[]@@@V=@@@[U!C&FAMBGPSSX8 BI )@@G@@@@@@@@@@A@@@ [RW[3R@@@@#4@@@[6LC&IAMB________________________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@@ INTEGER BEAD $, @ @@@@ BEGIN @G@@@@CE )@@G@@ COMMENT PROCEDURE DECIDE DETERMINES WHAT JUMPS TO GENERATE $, CF )@@G@@@@@@@@@D@@@@ DEFINE PROCEDURE DECIDE TOBE @A@@@@CG )@@G@@ BEGIN @B@@@@ INTECH )@@G@@GER T1,T2 $,@C@@@@ BOOLEAN T3,STREAM $, @B@@@@CI )@@G@@ IF INVERT(BEAD) @A@@@@ CJ )@@G@@ THEN BEGIN@F@@@@ IF (CTRUE NEQ 0 OR CFALCK )@@G@@SE NEQ 0) @B@@@@ THEN BEGIN @D@@@@ CL )@@G@@ T1 = CTRUE $, @D@@@@ CM )@@G@@ CTRUE = CFALSE $, @C@@@@ CN )@@G@@ CFALSE = T1 @B@@@@ END @B@@@@CO )@@G@@ END $, @ @@@@ CP )@@G@@ T1 =@C@@@@ IF IF JMP(BEAD) @C@@@@ CQ )@@G@@ THEN NOT INEG @B@@@@ CR )@@G@@ ELSE INEG @A@@@@ THEN TJUMP@B@@@@ CS )@@G@@ ELSE FJUMP $, @ @@@@ T2 =CT )@@G@@@B@@@@ IF (STREAM = @C@@@@ CU )@@G@@ IF JMPTO(BEAD) @C@@@@ THEN CV )@@G@@NOT NEG @B@@@@ ELSE NEG) @C@@@@ CW )@@G@@ THEN RFLAD(CTRUE) @C@@@@ CX )@@G@@ ELSE RFLAD(CFALSE) $, @C@@@@ AMERGE(T1,T2,XROCY )@@G@@) $, @D@@@@ COMMENT INSERT HERE SAVXRA(T2)............... $,@B@@@@CZ )@@G@@ IF NEW IMP ISREL@A@@@@ DA )@@G@@ THEN BEGIN@B@@@@ ASSFLD( @B@@@@ DB )@@G@@ IF STREAM @D@@@@ DC )@@G@@ THEN SFLAD(CFALSE) @D@@@@ ELSE SFLAD(DD )@@G@@CTRUE)) $, @D@@@@ COMMENT INSERT HERE RSTXRA(ASSIGNED FLAD) $, DE )@@G@@@B@@@@ END $, @B@@@@ DF )@@G@@ NEW = FALSE $, @D@@@@ AC = MQ = INEG =DG )@@G@@ FALSE $, @A@@@@ END $, @@@@@@@B@@@@ DH )@@G@@COMMENT END OF PROCEDURE DECIDE $, @@@@@@@G@@@@ DEFDI )@@G@@INE PROCEDURE LDTEST(VAR,INDEX) WHERE POINTER VA@]@@@@R,INDEX TOBE@A@@@@DJ )@@G@@ BEGIN @B@@@@ POINDK )@@G@@TER TP $, @C@@@@ TP = AXRASSG(INDEX) $,@B@@@@DL )@@G@@ IF TESWDT(VAR) @A@@@@ DM )@@G@@ THEN BEGIN@E@@@@ IF AC OR MQ THEN TEMSTODN )@@G@@() $, @D@@@@ AMERGE(LDBITS,VAR,TP) @A@@@@DO )@@G@@ END @E@@@@ ELSEDP )@@G@@ ACLAROT(VAR,TP,FALSE) $, @A@@@@ END $, DQ )@@G@@@@@@@@@A@@@@ COMMENT PROGRAM FOR NOT $, @@@@@@@D@@@@ DR )@@G@@ DEFINE PROCEDURE NOTPRG TOBE @A@@@@ DS )@@G@@ BEGIN @G@@@@ SWITCH NOTSWT = NT1,NT2,RETUDT )@@G@@RN,RETURN,RETURN,R@#@@@@ETURN,RETURN , @E@@@@ DU )@@G@@ NT8,RETURN,RETURN,NT11,RETURN $, @C@@@@ GOTODV )@@G@@ NOTSWT(STATE) $, @B@@@@ NT8 $ NEG = NOT NEG $,@B@@@@DW )@@G@@ NT1 $ CLADU = CALGV $,@E@@@@ DX )@@G@@ LDTEST(RVAR(FP),RINDEX(FP)) $, @C@@@@ INEGDY )@@G@@ = NOT NEG $, @B@@@@ GOTO RETURN $, @]@@@@DZ )@@G@@ NT11 $ @B@@@@ NT2 $ NEG = NOT NEG $,@A@@@@ EA )@@G@@ END $, @@@@@@@B@@@@ COMMENT END OF PROCEDUREEB )@@G@@ NOT PRG $, @G@@@@ COMMENT PROGRAM FOR ALL BOOLEAN OPERATORS EXCEPTEC )@@G@@ NOT AND EQV $, @@@@@@@C@@@@ DEFINE PROCEDURE BOOLED )@@G@@P TOBE@A@@@@ BEGIN @G@@@@ EE )@@G@@ SWITCH BOOLSWT = B1,B2,B3,B4,B5,B6,B7,B8,B9,B1@]@@@@0,B11,B12 $,EF )@@G@@@B@@@@ CLADU = CALGV $,@C@@@@ EG )@@G@@ BEAD=PASS2(VOC(FP)) $,@C@@@@ GOTO BOOLSEH )@@G@@WT(STATE) $,@[@@@@ B6 $ @E@@@@ B1 $ LDTEST(LVAR(FP),EI )@@G@@LINDEX(FP)) $, @B@@@@ B1.5 $ DECIDE() $, @D@@@@EJ )@@G@@ LDTEST(RVAR(FP),0 ) $, @B@@@@ EK )@@G@@ INEG = NEG $, @B@@@@ RSTJMP() $EL )@@G@@, @B@@@@ GOTO RETURN $, @A@@@@ B4 $ EM )@@G@@ INEG = @A@@@@ IF NEG @B@@@@EN )@@G@@ THEN NOT INEG @B@@@@ EO )@@G@@ ELSE INEG $, @B@@@@ GOTO B1.5 $, @[@@@@EP )@@G@@ B5 $ @E@@@@ B2 $ LDTEST(LVAR(FP),LINDEX(FP)) $, EQ )@@G@@@B@@@@ B2.5 $ DECIDE() $, @B@@@@ ER )@@G@@ RSTJMP() $, @C@@@@ NEG = BOOLSTK() ES )@@G@@$, @B@@@@ NEW=TRUE $, @B@@@@ ET )@@G@@ GOTO RETURN $, @A@@@@B3 $ INEG = EU )@@G@@@A@@@@ IF NEG @B@@@@ EV )@@G@@ THEN NOT INEG @B@@@@ ELSE INEG $, @B@@@@EW )@@G@@ GOTO B2.5 $, @[@@@@ B9 $ @[@@@@ B8 $ @B@@@@EX )@@G@@ B7 $ NEW = FALSE $, @E@@@@ EY )@@G@@ LDTEST(RVAR(FP),RINDEX(FP)) $, @B@@@@ INEGEZ )@@G@@ = NEG $, @B@@@@ RSTJMP() $, @[@@@@ B10 $FA )@@G@@@[@@@@ B11 $@B@@@@ B12 $ BOOLDST() $, @A@@@@ FB )@@G@@ END $, @@@@@@@G@@@@ DEFINE PRFC )@@G@@OCEDURE THBRIDG(FLDPRO) WHERE PROCEDURE FL@]@@@@DPRO TOBE @A@@@@ FD )@@G@@ BEGIN @B@@@@ INTEGER T FE )@@G@@$, @ @@@@ T = @A@@@@ FF )@@G@@ IF INEG @A@@@@ THEN TJUMP@B@@@@ FG )@@G@@ ELSE FJUMP $, @E@@@@ AMERGE(T,RFH )@@G@@FLAD(CFALSE),XRO) $, @D@@@@ FLDPRO(SFLAD(CFAFI )@@G@@LSE)) $, @D@@@@ ASSFLD(SFLAD(CTRUE)) $, FJ )@@G@@@B@@@@ NEW = TRUE $, @B@@@@ FK )@@G@@ RSTJMP() $, @D@@@@ INEG = AC = MQ =FL )@@G@@ FALSE $, @A@@@@ END $, @@@@@@@B@@@@ FM )@@G@@COMMENT END OF PROCEDURE THBRIDG $, @@@@@@@C@@@@ DEFFN )@@G@@INE PROCEDURE IFPRG TOBE@A@@@@ BEGIN @B@@@@FO )@@G@@ IF STATE LEQ 2 @C@@@@ FP )@@G@@ THEN BOOLSTK() $, @E@@@@ IF STATE EQL 1 OFQ )@@G@@R STATE EQL 8 @A@@@@ THEN BEGIN@C@@@@ FR )@@G@@ CLADU = CALGV $, @F@@@@ FS )@@G@@ LDTEST(RVAR(FP),R^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1FT )@@G@@B@3DK0A@0A@0A80D*0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#A@4AC8B@6^@)^@)FU )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A09C00FV )@@G@@A@0A@0A09C0)^@)^[I@O@O=@D00A@4BC7B@1E[TA@5A@1B@6^@2A@6^@)^@)^@)C-MFL[DD#FW )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1B@3EK0A@0A@0A09D80A@0A@2A*3D0)^@0^[IFX )@@G@@@O@O=@D00A@4BC7B@1DD#A@5AK1B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)FY )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A08D@0A@0A@0A08D@)^@)^[I@O@O=@D00A@4BC7B@1FZ )@@G@@E[TA@5AK8B@6^@2AK4^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1GA )@@G@@B@4E@0A@0A@0A08EC0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#A@6AC6B@6^@)^@)GB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A08CC0GC )@@G@@A@0A@0A08CC)^@)^[I@O@O=@D00A@4BC7B@1E[TA@6AK7B@6^@2A)6^@)^@)^@)C-MFL[DD#GD )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1B@5D*0A@0A@0A08DK0A@0A@2A*3D0)^@0^[IGE )@@G@@@O@O=@D00A@4BC7B@1DD#A@7AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)GF )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A07CS0A@0A@0A07CS)^@)^[I@O@O=@D00A@4BC7B@1GG )@@G@@E[TA@7AS0B@6^@)AK1^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1GH )@@G@@B@6DS0A@0A@0A07D)0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#A@8AC8B@6^@)^@)GI )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A06C*0GJ )@@G@@A@0A@0A06C*)^@)^[I@O@O=@D00A@4BC7B@1E[TA@8AK8B@6^@)A)3^@)^@)^@)C-MFL[DD#GK )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1B@7J*0A@0A@0A06D00A@0A@2A*3D0)^@0^[IGL )@@G@@@O@O=@D00A@4BC7B@1DD#A@9AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)GM )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A05C80A@0A@0A05C8)^@)^[I@O@O=@D00A@4BC7B@1GN )@@G@@E[TA@9AS0B@6^@)A05^@)^@)^@)C-MFL[DD# -^^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1GO )@@G@@B@7EC0A@0A@0A05E@0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#AC0AK0B@6^@)^@)GP )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A04DC0GQ )@@G@@A@0A@0A04DC)^@)^[I@O@O=@D00A@4BC7B@1E[TAC0AK9B@6^@)B@6^@)^@)^@)C-MFL[DD#GR )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1B@8D80A@0A@0A04EK0A@0A@2A*3D0)^@0^[IGS )@@G@@@O@O=@D00A@4BC7B@1DD#AC1AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)GT )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A04CK0A@0A@0A04CK)^@)^[I@O@O=@D00A@4BC7B@1GU )@@G@@E[TAC2A@1B@6^@1A@7^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1GV )@@G@@B@9D)0A@0A@0A04DS0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#AC2AC1B@6^@)^@)GW )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A03C)0GX )@@G@@A@0A@0A03C))^@)^[I@O@O=@D00A@4BC7B@1E[TA@1A@9B@7^@1AK9^@)^@)^@)C-MFL[DD#GY )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1BC0DK0A@0A@0A03D*0A@0A@2A*3D0)^@0^[IGZ )@@G@@@O@O=@D00A@4BC7B@1DD#A@1AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HA )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A02C00A@0A@0A02C0)^@)^[I@O@O=@D00A@4BC7B@1HB )@@G@@E[TA@1AK8B@7^@1A)4^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1HC )@@G@@BC0EK0A@0A@0A02D80A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#A@2AC9B@7^@)^@)HD )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A01D@0HE )@@G@@A@0A@0A01D@)^@)^[I@O@O=@D00A@4BC7B@1E[TA@2AK6B@7^@1A05^@)^@)^@)C-MFL[DD#HF )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1BC1E@0A@0A@0A01EC0A@0A@2A*3D0)^@0^[IHG )@@G@@@O@O=@D00A@4BC7B@1DD#A@3AK3B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A01JS0A@0A@0A01JS)^@)^[I@O@O=@D00A@4BC7B@1HI )@@G@@E[TA@3AK7B@7^@1B@6^@)^@)^@)C-MFL[DD# -^^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1HJ )@@G@@BC2D00A@0A@0A01J*0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#A@4AK1B@7^@)^@)HK )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A00CK0HL )@@G@@A@0A@0A00CK)^@)^[I@O@O=@D00A@4BC7B@1E[TA@4AK9B@7^@2A@8^@)^@)^@)C-MCDUCDDHM )@@G@@CS?^[^^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1BC3D)0A@0A@0A00DS0A@0A@2A*3D0)^@0^[IHN )@@G@@@O@O=@D00A@4BC7B@1DD#A@5AK0B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HO )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*9C)0A@0A@0A*9C))^@)^[I@O@O=@D00A@4BC7B@1HP )@@G@@E[TA@6A@1B@7^@2AS0^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1HQ )@@G@@BC4DK0A@0A@0A*9D*0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#A@6AC8B@7^@)^@)HR )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*8C00HS )@@G@@A@0A@0A*8C0)^@)^[I@O@O=@D00A@4BC7B@1E[TA@6AK6B@7^@2A)9^@)^@)^@)C-MFL[DD#HT )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1BC4EK0A@0A@0A*8D80A@0A@2A*3D0)^@0^[IHU )@@G@@@O@O=@D00A@4BC7B@1DD#A@7AC7B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HV )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7D@0A@0A@0A*7D@)^@)^[I@O@O=@D00A@4BC7B@1HW )@@G@@E[TA@8A@4B@7^@)AK5^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1HX )@@G@@A)3DS0A@0A@0A*7EC0A@0A@2A@1J*)^@0^[I@O@O=@D00A@4BC7B@1DD#A@8AK1B@7^@)^@)HY )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7CK0HZ )@@G@@A@0A@0A*7CK)^@)^[I@O@O=@D00A@4BC7B@1E[TA@9A@2B@7^@)A)6^@)^@)^@)C-MFL[DD#IA )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1BC6D)0A@0A@0A*7DS0A@0A@2A*3D0)^@0^[IIB )@@G@@@O@O=@D00A@4BC7B@1DD#A@9AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)IC )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*6CS0A@0A@0A*6CS)^@)^[I@O@O=@D00A@4BC7B@1ID )@@G@@E[TAC0A@1B@7^@)A06^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1IE )@@G@@BC7DS0A@0A@0A*6D)0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#AC0AK1B@7^@)^@)IF )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*5C*0IG )@@G@@A@0A@0A*5C*)^@)^[I@O@O=@D00A@4BC7B@1E[TAC0AK9B@7^@)B@6^@)^@)^@)C-MFL[DD#IH )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1BC8J*0A@0A@0A*5D00A@0A@2A*3D0)^@0^[III )@@G@@@O@O=@D00A@4BC7B@1DD#AC1AC9B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)IJ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*4C80A@0A@0A*4C8)^@)^[I@O@O=@D00A@4BC7B@1IK )@@G@@E[TAC2A@1B@7^@1A@7^@)^@)^@)C-MFL[DD# -^^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1IL )@@G@@BC8EC0A@0A@0A*4E@0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#AC2AC8B@7^@)^@)IM )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*3DC0IN )@@G@@A@0A@0A*3DC)^@)^[I@O@O=@D00A@4BC7B@1E[TA@1A@7B@8^@1AS0^@)^@)^@)C-MFL[DD#IO )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A)5E@0A@0A@1A@7EC0A@0A@2A*3D0)^@1^[IIP )@@G@@@O@O=@D00A@4BC7B@1DD#A@1AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)IQ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*3DC0A@0A@0A*3DC)^@)^[I@O@O=@D00A@4BC7B@1IR )@@G@@E[TA@1AK9B@8^@1A)6^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2IS )@@G@@A*3D00A@0A@0A@0A@0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#A@2AK0B@8^@)^@)IT )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*2CK0IU )@@G@@A@0A@0A*2CK)^@)^[I@O@O=@D00A@4BC7B@1E[TA@3A@4B@8AC1A81^@)^@)^@)C-MFL[DD#IV )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A@1D)0A@0A@0A*2DS0A@0A@2A*3D0)^@0^[IIW )@@G@@@O@O=@D00A@4BC7B@1DD#A@3AK2B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)IX )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*1C)0A@0A@0A*1C))^@)^[I@O@O=@D00A@4BC7B@1IY )@@G@@E[TA@3AK9B@8^@1B@8^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2IZ )@@G@@A@2DK0A@0A@0A*1D*0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#A@4AK0B@8^@)^@)JA )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*0C*0JB )@@G@@A@0A@0A*0C*)^@)^[I@O@O=@D00A@4BC7B@1E[TA@4AK8B@8^@2A@9^@)^@)^@)C-MFL[DD#JC )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A@3J*0A@0A@0A*0D00A@0A@2A*3D0)^@0^[IJD )@@G@@@O@O=@D00A@4BC7B@1DD#A@5AC9B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JE )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)9C80A@0A@0A)9C8)^@)^[I@O@O=@D00A@4BC7B@1JF )@@G@@E[TA@6A@2B@8^@2AS3^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2JG )@@G@@A@3EC0A@0A@0A)9E@0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#A@6AK1B@8^@)^@)JH )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)8D@0JI )@@G@@A@0A@0A)8D@)^@)^[I@O@O=@D00A@4BC7B@1E[TA@6AK9B@8^@2A*2^@)^@)^@)C-MFL[DD#JJ )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A@4E@0A@0A@0A)8EC0A@0A@2A*3D0)^@0^[IJK )@@G@@@O@O=@D00A@4BC7B@1DD#A@7AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JL )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)8JS0A@0A@0A)8JS)^@)^[I@O@O=@D00A@4BC7B@1JM )@@G@@E[TA@7AK6B@8^@)AC7^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2JN )@@G@@A@5D00A@0A@0A)8J*0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#A@8AC8B@8^@)^@)JO )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)7CC0JP )@@G@@A@0A@0A)7CC)^@)^[I@O@O=@D00A@4BC7B@1E[TA@8AS0B@8^@)A)2^@)^@)^@)C-MFL[DD#JQ )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A@6D*0A@0A@0A)7DK0A@0A@2A*3D0)^@0^[IJR )@@G@@@O@O=@D00A@4BC7B@1DD#A@9AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JS )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)6CS0A@0A@0A)6CS)^@)^[I@O@O=@D00A@4BC7B@1JT )@@G@@E[TA@9AK6B@8^@)A00^@)^@)^@)C-MFL[DDU ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2JU )@@G@@A@7DS0A@0A@0A)6D)0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#AC0AC9B@8^@)^@)JV )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)5C)0JW )@@G@@A@0A@0A)5C))^@)^[I@O@O=@D00A@4BC7B@1E[TAC0AK6B@8^@)B@2^@)^@)^@)C-MFL[DD#JX )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A@8DK0A@0A@0A)5D*0A@0A@2A*3D0)^@0^[IJY )@@G@@@O@O=@D00A@4BC7B@1DD#AC1AC7B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JZ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)4C*0A@0A@0A)4C*)^@)^[I@O@O=@D00A@4BC7B@1KA )@@G@@E[TAC2A@7B@8^@1AC0^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2KB )@@G@@A@9J*0A@0A@0A)4D00A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#AC2AK1B@8^@)^@)KC )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3C80KD )@@G@@A@0A@0A)3C8)^@)^[I@O@O=@D00A@4BC7B@1E[TAC2AK9B@8^@1AK5^@)^@)^@)C-MFL[DD#KE )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A@9EC0A@0A@0A)3E@0A@0A@2A*3D0)^@0^[IKF )@@G@@@O@O=@D00A@4BC7B@1E[TA@1AK7B@9^@1A)5^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)KG )@@G@@^@)^@)^@)^@0A@0A@2AC0E@0A@0A@0A)2EC0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1KH )@@G@@DD#A@2A@1B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KI )@@G@@A@0A@0A@0A@0A)2D@0A@0A@0A)2D@)^@)^[I@O@O=@D00A@4BC7B@1DD#A@2AC7B@9^@)^@)KJ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)1DC0KK )@@G@@A@0A@0A)1DC)^@)^[I@O@O=@D00A@4BC7B@1E[TA@2AK8B@9^@1A07^@)^@)^@)C-MFL[DD#KL )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2AC1D80A@0A@0A)1EK0A@0A@2A*3D0)^@0^[IKM )@@G@@@O@O=@D00A@4BC7B@1DD#A@3AC7B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KN )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)1JS0A@0A@0A)1JS)^@)^[I@O@O=@D00A@4BC7B@1KO )@@G@@E[TA@3AK7B@9^@1B@5^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2KP )@@G@@AC2D00A@0A@0A)1J*0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#A@4AK1B@9^@)^@)KQ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0CC0KR )@@G@@A@0A@0A)0CC)^@)^[I@O@O=@D00A@4BC7B@1E[TA@4AK7B@9^@2A@8^@)^@)^@)C-MFL[DD#KS )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2AC3D*0A@0A@0A)0DK0A@0A@2A*3D0)^@0^[IKT )@@G@@@O@O=@D00A@4BC7B@1DD#A@5AC9B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KU )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS9CK0A@0A@0AS9CK)^@)^[I@O@O=@D00A@4BC7B@1KV )@@G@@E[TA@5AK6B@9^@2AK9^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2KW )@@G@@AC4D)0A@0A@0AS9DS0A@0A@2A*3D0)^@0^[I@O@O=@D00A@4BC7B@1DD#A@6AK1B@9^@)^@)KX )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS8C)0KY )@@G@@A@0A@0AS8C))^@)^[I@O@O=@D00A@4BC7B@1E[TA@6AK7B@9^@2A*0^@)^@)^@)C-MFL[DD#KZ )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2AC5DK0A@0A@0AS8D*0A@0A@2A*3D0)^@0^[ILA )@@G@@@O@O=@D00A@4BC7B@2D-KA@8AK7B@1^@)^@)^@)^@)^@)D-JCDI^[KELDD1#DDKCDG^@)^@)LB )@@G@@^@)^@)^@)^@0A@0A)0A*0A@0A@0A@0A@0A@0A@0A)0A*0A@)^@0^[I@O@O=@D00A@4BC7B@2LC )@@G@@D-KA@1AC4B@2^@)^@)^@)^@)^@)C-MFL[DD# ))C-[E1DC))^@)^@)^@)^@)^@)^@0A@0AS0LD )@@G@@A*0A@0A@0A@0A@0A@0A@0AS0A*0A@)^@0^[I@O@O=@D00A@4BC7B@2DD#A@2AK0B@4^@)^@)LE )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK3A80LF )@@G@@A@0A@0AK3A8)^@)^[I@O@O=@D00A@4BC7B@2E[TA@3A@6B@4^@1A83^@)^@)^@)C-MFL[DD#LG )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A)8DS0A@0A@0AK3E@0A@0A@0A81EK)^@0^[ILH )@@G@@@O@O=@D00A@4BC7B@2DD#A@3AK1B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)LI )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK3A*0A@0A@0AK3A*)^@)^[I@O@O=@D00A@4BC7B@2LJ )@@G@@E[TA@4A@3B@4^@1BC3^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LK )@@G@@A)8D*0A@0A@0AK3D00A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@4AC9B@4^@)^@)LL )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK3AS0LM )@@G@@A@0A@0AK3AS)^@)^[I@O@O=@D00A@4BC7B@2E[TA@4AK7B@4^@2AC0^@)^@)^@)C-MFL[DD#LN )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A)8D80A@0A@0AK3D)0A@0A@0A81EK)^@0^[ILO )@@G@@@O@O=@D00A@4BC7B@2DD#A@5AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)LP )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK3AK0A@0A@0AK3AK)^@)^[I@O@O=@D00A@4BC7B@2LQ )@@G@@E[TA@5AS1B@4^@2AS3^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LR )@@G@@A)8E@0A@0A@0AK3DS0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@6AK1B@4^@)^@)LS )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK3A@0LT )@@G@@A@0A@0AK3A@)^@)^[I@O@O=@D00A@4BC7B@2E[TA@6AK8B@4^@2A*3^@)^@)^@)C-MFL[DD#LU )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A)8EK0A@0A@0AK3J*0A@0A@0A81EK)^@0^[ILV )@@G@@@O@O=@D00A@4BC7B@2DD#A@7AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)LW )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2BC0A@0A@0AK2BC)^@)^[I@O@O=@D00A@4BC7B@2LX )@@G@@E[TA@7AK7B@4^@)AC9^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LY )@@G@@A)9J*0A@0A@0AK2EK0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@8AK2B@4^@)^@)LZ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2A80MA )@@G@@A@0A@0AK2A8)^@)^[I@O@O=@D00A@4BC7B@2E[TA@9AC7B@4^@)A*5^@)^@)^@)C-MFL[DD#MB )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A)9DS0A@0A@0AK2E@0A@0A@0A81EK)^@0^[IMC )@@G@@@O@O=@D00A@4BC7B@2DD#A@9AK0B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MD )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2A*0A@0A@0AK2A*)^@)^[I@O@O=@D00A@4BC7B@2ME )@@G@@E[TAC0A@2B@4^@)A06^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0MF )@@G@@A)9D*0A@0A@0AK2D00A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#AC0AK2B@4^@)^@)MG )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2A)0MH )@@G@@A@0A@0AK2A))^@)^[I@O@O=@D00A@4BC7B@2E[TAC1A@1B@4^@)B@8^@)^@)^@)C-MFL[DD#MI )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A)9D00A@0A@0AK2D*0A@0A@0A81EK)^@0^[IMJ )@@G@@@O@O=@D00A@4BC7B@2DD#AC1AK7B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MK )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2AK0A@0A@0AK2AK)^@)^[I@O@O=@D00A@4BC7B@2ML )@@G@@E[TAC1AK8B@4^@1A@5^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0MM )@@G@@A)9E@0A@0A@0AK2DS0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#AC2AC9B@4^@)^@)MN )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2A@0MO )@@G@@A@0A@0AK2A@)^@)^[I@O@O=@D00A@4BC7B@2E[TA@1A@4B@5^@1AK4^@)^@)^@)C-MFL[DD#MP )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A)9EK0A@0A@0AK2J*0A@0A@0A81EK)^@0^[IMQ )@@G@@@O@O=@D00A@4BC7B@2DD#A@1AK5B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MR )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1BC0A@0A@0AK1BC)^@)^[I@O@O=@D00A@4BC7B@2MS )@@G@@D( A@1AS0B@5D( ^@)^@)^@)^@)CS)E*)C9MCD^^@6D[MES)^@)^@)^@)^@)^@)^@0A@0A@0MT )@@G@@A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[I@O@O=@D00A@4BC7B@2ETOA@1AS0B@5ETO^@)MU )@@G@@^@)^@)^@)A@1A@1B[F *0A*0AC8A*)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0MV )@@G@@A@0A@0A@0A@)^@0^[I@O@O=@D00A@4BC7B@2DD#A@2A@1B@5DD#^@)^@)^@)^@)CD^DK)C-PMW )@@G@@C*)E-J^[^C(A^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1EK0A@0A@0AK1EK)^@0^[IMX )@@G@@@O@O=@D00A@4BC7B@2DD#A@5AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MY )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1BC0A@0A@0AK1BC)^@)^[I@O@O=@D00A@4BC7B@2MZ )@@G@@ETOA@6A@3B@5ETO^@)^@)^@)^@)A@1A@1B@5 *0A*0AC8A*)^@)^@)^@)^@)^@)^@0A@0A@0NA )@@G@@A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[I@O@O=@D00A@4BC7B@2DD#A@6A@7B@5DD#^@)NB )@@G@@^@)^@)^@)CD^DK)C-PC*)E-J^[^C(A^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1EK0NC )@@G@@A@0A@0AK1EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@6A@7B@5DD#^@)^@)^@)^@)CD^DK)C-PND )@@G@@C*)E-J^[^C(A^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1EK0A@0A@0AK1EK)^@0^[INE )@@G@@@O@O=@D00A@4BC7B@2DD#AC1AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NF )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1DC0A@0A@0AK1DC)^@)^[I@O@O=@D00A@4BC7B@2NG )@@G@@E[TAC2A@5B@5^@1AC0^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0NH )@@G@@A81EK0A@0A@0A@0A@0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#AC2AC3B@5^@)^@)NI )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1C00NJ )@@G@@A@0A@0AK1C0)^@)^[I@O@O=@D00A@4BC7B@2E[TA@1A@9B@6^@1AK6^@)^@)^@)C-MFL[DD#NK )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*0D)0A@0A@0AK1D80A@0A@0A81EK)^@0^[INL )@@G@@@O@O=@D00A@4BC7B@2DD#A@1AC5B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NM )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1C*0A@0A@0AK1C*)^@)^[I@O@O=@D00A@4BC7B@2NN )@@G@@E[TA@1AS0B@6^@1A)2^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0NO )@@G@@A*0D*0A@0A@0AK1D00A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@2AK0B@6^@)^@)NP )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1CS0NQ )@@G@@A@0A@0AK1CS)^@)^[I@O@O=@D00A@4BC7B@2E[TA@2AK8B@6^@1A02^@)^@)^@)C-MFL[DD#NR )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*0D80A@0A@0AK1D)0A@0A@0A81EK)^@0^[INS )@@G@@@O@O=@D00A@4BC7B@2DD#A@3AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NT )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1CC0A@0A@0AK1CC)^@)^[I@O@O=@D00A@4BC7B@2NU )@@G@@E[TA@4A@1B@6^@1B@4^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0NV )@@G@@A*0EC0A@0A@0AK1DK0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@4AC8B@6^@)^@)NW )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1JS0NX )@@G@@A@0A@0AK1JS)^@)^[I@O@O=@D00A@4BC7B@2E[TA@5A@1B@6^@2A@6^@)^@)^@)C-MFL[DD#NY )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*0EK0A@0A@0AK1J*0A@0A@0A81EK)^@0^[INZ )@@G@@@O@O=@D00A@4BC7B@2DD#A@5AK1B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)OA )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0D@0A@0A@0AK0D@)^@)^[I@O@O=@D00A@4BC7B@2OB )@@G@@E[TA@5AK8B@6^@2AK4^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0OC )@@G@@A*1DK0A@0A@0AK0EC0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@6AC6B@6^@)^@)OD )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0C00OE )@@G@@A@0A@0AK0C0)^@)^[I@O@O=@D00A@4BC7B@2E[TA@6AK7B@6^@2A)6^@)^@)^@)C-MFL[DD#OF )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*1D)0A@0A@0AK0D80A@0A@0A81EK)^@0^[IOG )@@G@@@O@O=@D00A@4BC7B@2DD#A@7AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)OH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0C)0A@0A@0AK0C))^@)^[I@O@O=@D00A@4BC7B@2OI )@@G@@E[TA@7AS0B@6^@)AK1^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0OJ )@@G@@A*1D00A@0A@0AK0D*0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@8AC8B@6^@)^@)OK )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0CS0OL )@@G@@A@0A@0AK0CS)^@)^[I@O@O=@D00A@4BC7B@2E[TA@8AK8B@6^@)A)3^@)^@)^@)C-MFL[DD#OM )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*1D80A@0A@0AK0D)0A@0A@0A81EK)^@0^[ION )@@G@@@O@O=@D00A@4BC7B@2DD#A@9AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)OO )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0CC0A@0A@0AK0CC)^@)^[I@O@O=@D00A@4BC7B@2OP )@@G@@E[TA@9AS0B@6^@)A05^@)^@)^@)C-MFL[DD# -^^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0OQ )@@G@@A*1EC0A@0A@0AK0DK0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#AC0AK0B@6^@)^@)OR )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC9DC0OS )@@G@@A@0A@0AC9DC)^@)^[I@O@O=@D00A@4BC7B@2E[TAC0AK9B@6^@)B@6^@)^@)^@)C-MFL[DD#OT )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*2J*0A@0A@0AC9EK0A@0A@0A81EK)^@0^[IOU )@@G@@@O@O=@D00A@4BC7B@2DD#AC1AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)OV )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC9D@0A@0A@0AC9D@)^@)^[I@O@O=@D00A@4BC7B@2OW )@@G@@E[TAC2A@1B@6^@1A@7^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0OX )@@G@@A*2DK0A@0A@0AC9EC0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#AC2AC1B@6^@)^@)OY )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC9C00OZ )@@G@@A@0A@0AC9C0)^@)^[I@O@O=@D00A@4BC7B@2E[TA@1A@9B@7^@1AK9^@)^@)^@)C-MFL[DD#PA )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*2D)0A@0A@0AC9D80A@0A@0A81EK)^@0^[IPB )@@G@@@O@O=@D00A@4BC7B@2DD#A@1AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)PC )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC9C)0A@0A@0AC9C))^@)^[I@O@O=@D00A@4BC7B@2PD )@@G@@DD#A@2AC9B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PE )@@G@@A@0A@0A@0A@0AC9C)0A@0A@0AC9C))^@)^[I@O@O=@D00A@4BC7B@2E[TA@2AK6B@7^@1A05PF )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AS3DK0A@0A@0AS8EC0PG )@@G@@A@0A@0A81EK)^@1^[I@O@O=@D00A@4BC7B@2DD#A@3AK3B@7^@)^@)^@)^@)^@)DDIE- EL PH )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC9CS0A@0A@0AC9CS)^@)^[IPI )@@G@@@O@O=@D00A@4BC7B@2E[TA@3AK7B@7^@1B@6^@)^@)^@)C-MFL[DD# -^^@)^@)^@)^@)^@)PJ )@@G@@^@)^@)^@)^@0A@0A@0A*2D80A@0A@0AC9D)0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2PK )@@G@@DD#A@4AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PL )@@G@@A@0A@0A@0A@0AC9CC0A@0A@0AC9CC)^@)^[I@O@O=@D00A@4BC7B@2E[TA@4AK9B@7^@2A@8PM )@@G@@^@)^@)^@)C-MCDUCDDCS?^[^^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*2EC0A@0A@0AC9DK0PN )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@5AK0B@7^@)^@)^@)^@)^@)DDIE- EL PO )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC8DC0A@0A@0AC8DC)^@)^[IPP )@@G@@@O@O=@D00A@4BC7B@2E[TA@6A@1B@7^@2AS0^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)PQ )@@G@@^@)^@)^@)^@0A@0A@0A*3J*0A@0A@0AC8EK0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2PR )@@G@@DD#A@6AC8B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PS )@@G@@A@0A@0A@0A@0AC8D@0A@0A@0AC8D@)^@)^[I@O@O=@D00A@4BC7B@2E[TA@6AK6B@7^@2A)9PT )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*3DK0A@0A@0AC8EC0PU )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@7AC7B@7^@)^@)^@)^@)^@)DDIE- EL PV )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC8C00A@0A@0AC8C0)^@)^[IPW )@@G@@@O@O=@D00A@4BC7B@2E[TA@8A@4B@7^@)AK5^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)PX )@@G@@^@)^@)^@)^@0A@0A@1A@5EC0A@0A@0AC8D80A@0A@1AK4D*)^@0^[I@O@O=@D00A@4BC7B@2PY )@@G@@DD#A@8AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PZ )@@G@@A@0A@0A@0A@0AC8CK0A@0A@0AC8CK)^@)^[I@O@O=@D00A@4BC7B@2E[TA@9A@2B@7^@)A)6QA )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*3E@0A@0A@0AC8DS0QB )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@9AK1B@7^@)^@)^@)^@)^@)DDIE- EL QC )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC8CC0A@0A@0AC8CC)^@)^[IQD )@@G@@@O@O=@D00A@4BC7B@2E[TAC0A@1B@7^@)A06^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)QE )@@G@@^@)^@)^@)^@0A@0A@0A*3EC0A@0A@0AC8DK0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2QF )@@G@@DD#AC0AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QG )@@G@@A@0A@0A@0A@0AC7DC0A@0A@0AC7DC)^@)^[I@O@O=@D00A@4BC7B@2E[TAC0AK9B@7^@)B@6QH )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*4J*0A@0A@0AC7EK0QI )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#AC1AC9B@7^@)^@)^@)^@)^@)DDIE- EL QJ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC7C80A@0A@0AC7C8)^@)^[IQK )@@G@@@O@O=@D00A@4BC7B@2E[TAC2A@1B@7^@1A@7^@)^@)^@)C-MFL[DD# -^^@)^@)^@)^@)^@)QL )@@G@@^@)^@)^@)^@0A@0A@0A*4DS0A@0A@0AC7E@0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2QM )@@G@@DD#AC2AC8B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QN )@@G@@A@0A@0A@0A@0AC7C*0A@0A@0AC7C*)^@)^[I@O@O=@D00A@4BC7B@2E[TA@1A@7B@8^@1AS0QO )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AS6EK0A@0A@0AS5J*0QP )@@G@@A@0A@0A81EK)^@1^[I@O@O=@D00A@4BC7B@2DD#A@1AK0B@8^@)^@)^@)^@)^@)DDIE- EL QQ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC7C*0A@0A@0AC7C*)^@)^[IQR )@@G@@@O@O=@D00A@4BC7B@2E[TA@1AK9B@8^@1A)6^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)QS )@@G@@^@)^@)^@)^@0A@0A@0A81EK0A@0A@0A@0A@0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2QT )@@G@@DD#A@2AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QU )@@G@@A@0A@0A@0A@0AC7CK0A@0A@0AC7CK)^@)^[I@O@O=@D00A@4BC7B@2E[TA@3A@4B@8AC1A81QV )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*4E@0A@0A@0AC7DS0QW )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@3AK2B@8^@)^@)^@)^@)^@)DDIE- EL QX )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC7JS0A@0A@0AC7JS)^@)^[IQY )@@G@@@O@O=@D00A@4BC7B@2E[TA@3AK9B@8^@1B@8^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)QZ )@@G@@^@)^@)^@)^@0A@0A@0A*4EK0A@0A@0AC7J*0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2RA )@@G@@DD#A@4AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RB )@@G@@A@0A@0A@0A@0AC6D@0A@0A@0AC6D@)^@)^[I@O@O=@D00A@4BC7B@2E[TA@4AK8B@8^@2A@9RC )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*5DK0A@0A@0AC6EC0RD )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@5AC9B@8^@)^@)^@)^@)^@)DDIE- EL RE )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC6C00A@0A@0AC6C0)^@)^[IRF )@@G@@@O@O=@D00A@4BC7B@2E[TA@6A@2B@8^@2AS3^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)RG )@@G@@^@)^@)^@)^@0A@0A@0A*5D)0A@0A@0AC6D80A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2RH )@@G@@DD#A@6AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RI )@@G@@A@0A@0A@0A@0AC6C)0A@0A@0AC6C))^@)^[I@O@O=@D00A@4BC7B@2E[TA@6AK9B@8^@2A*2RJ )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*5D00A@0A@0AC6D*0RK )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@7AK1B@8^@)^@)^@)^@)^@)DDIE- EL RL )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC6CK0A@0A@0AC6CK)^@)^[IRM )@@G@@@O@O=@D00A@4BC7B@2E[TA@7AK6B@8^@)AC7^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)RN )@@G@@^@)^@)^@)^@0A@0A@0A*5E@0A@0A@0AC6DS0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2RO )@@G@@DD#A@8AC8B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RP )@@G@@A@0A@0A@0A@0AC6CC0A@0A@0AC6CC)^@)^[I@O@O=@D00A@4BC7B@2E[TA@8AS0B@8^@)A)2RQ )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*5EC0A@0A@0AC6DK0RR )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@9AK1B@8^@)^@)^@)^@)^@)DDIE- EL RS )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC5DC0A@0A@0AC5DC)^@)^[IRT )@@G@@@O@O=@D00A@4BC7B@2E[TA@9AK6B@8^@)A00^@)^@)^@)C-MFL[DDU ))C))^@)^@)^@)^@)RU )@@G@@^@)^@)^@)^@0A@0A@0A*6J*0A@0A@0AC5EK0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2RV )@@G@@DD#AC0AC9B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RW )@@G@@A@0A@0A@0A@0AC5C80A@0A@0AC5C8)^@)^[I@O@O=@D00A@4BC7B@2E[TAC0AK6B@8^@)B@2RX )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*6DS0A@0A@0AC5E@0RY )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#AC1AC7B@8^@)^@)^@)^@)^@)DDIE- EL RZ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC5C*0A@0A@0AC5C*)^@)^[ISA )@@G@@@O@O=@D00A@4BC7B@2E[TAC2A@7B@8^@1AC0^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)SB )@@G@@^@)^@)^@)^@0A@0A@0A*6D*0A@0A@0AC5D00A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2SC )@@G@@DD#AC2AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0SD )@@G@@A@0A@0A@0A@0AC5CS0A@0A@0AC5CS)^@)^[I@O@O=@D00A@4BC7B@2E[TAC2AK9B@8^@1AK5SE )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*6D80A@0A@0AC5D)0SF )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2E[TA@1AK7B@9^@1A)5^@)^@)^@)C-MFL[DD#SG )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*6EC0A@0A@0AC5DK0A@0A@0A81EK)^@0^[ISH )@@G@@@O@O=@D00A@4BC7B@2DD#A@2A@1B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)SI )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC5CC0A@0A@0AC5CC)^@)^[I@O@O=@D00A@4BC7B@2SJ )@@G@@DD#A@2AC7B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0SK )@@G@@A@0A@0A@0A@0AC4DC0A@0A@0AC4DC)^@)^[I@O@O=@D00A@4BC7B@2E[TA@2AK8B@9^@1A07SL )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*7J*0A@0A@0AC4EK0SM )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@3AC7B@9^@)^@)^@)^@)^@)DDIE- EL SN )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC4C80A@0A@0AC4C8)^@)^[ISO )@@G@@@O@O=@D00A@4BC7B@2E[TA@3AK7B@9^@1B@5^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)SP )@@G@@^@)^@)^@)^@0A@0A@0A*7DS0A@0A@0AC4E@0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2SQ )@@G@@DD#A@4AK1B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0SR )@@G@@A@0A@0A@0A@0AC4C*0A@0A@0AC4C*)^@)^[I@O@O=@D00A@4BC7B@2E[TA@4AK7B@9^@2A@8SS )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*7D*0A@0A@0AC4D00ST )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2DD#A@5AC9B@9^@)^@)^@)^@)^@)DDIE- EL SU )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC4C)0A@0A@0AC4C))^@)^[ISV )@@G@@@O@O=@D00A@4BC7B@2E[TA@5AK6B@9^@2AK9^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)SW )@@G@@^@)^@)^@)^@0A@0A@0A*7D00A@0A@0AC4D*0A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@2SX )@@G@@DD#A@6AK1B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0SY )@@G@@A@0A@0A@0A@0AC4CK0A@0A@0AC4CK)^@)^[I@O@O=@D00A@4BC7B@2E[TA@6AK7B@9^@2A*0SZ )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*7E@0A@0A@0AC4DS0TA )@@G@@A@0A@0A81EK)^@0^[I@O@O=@D00A@4BC7B@3D-KA@8AK6B@2^@)^@)^@)^@)^@)D-JCDI^[KTB )@@G@@ELDD1#DDKCDG^@)^@)^@)^@)^@)^@0A@0A02A*0A@0A@0A@0A@0A@0A@0A02A*0A@)^@0^[ITC )@@G@@@O@O=@D00A@4BC7B@3D-KA@1AC3B@3^@)^@)^@)^@)^@)C-MFL[DD# ))C-[E1DC))C*)^@)TD )@@G@@^@)^@)^@)^@0A@0A02A*0A@0A@0A@0A@0A@0A@0A02A*0A@)^@0^[I@O@O=@D00A@4BC7B@3TE )@@G@@DD#A@2AK0B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0TF )@@G@@A@0A@0A@0A@0A)1A80A@0A@0A)1A8)^@)^[I@O@O=@D00A@4BC7B@3E[TA@3A@6B@4^@1A83TG )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC0EK0A@0A@0A)1E@0TH )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@3AK1B@4^@)^@)^@)^@)^@)DDIE- EL TI )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)1A)0A@0A@0A)1A))^@)^[ITJ )@@G@@@O@O=@D00A@4BC7B@3E[TA@4A@3B@4^@1BC3^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)TK )@@G@@^@)^@)^@)^@0A@0A@0BC1DS0A@0A@0A)1D*0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3TL )@@G@@DD#A@4AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0TM )@@G@@A@0A@0A@0A@0A)1AC0A@0A@0A)1AC)^@)^[I@O@O=@D00A@4BC7B@3E[TA@4AK7B@4^@2AC0TN )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC1D00A@0A@0A)1DK0TO )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@5AK2B@4^@)^@)^@)^@)^@)DDIE- EL TP )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0B@0A@0A@0A)0B@)^@)^[ITQ )@@G@@@O@O=@D00A@4BC7B@3E[TA@5AS1B@4^@2AS3^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)TR )@@G@@^@)^@)^@)^@0A@0A@0BC1EC0A@0A@0A)0EC0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3TS )@@G@@DD#A@6AK1B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0TT )@@G@@A@0A@0A@0A@0A)0A)0A@0A@0A)0A))^@)^[I@O@O=@D00A@4BC7B@3E[TA@6AK8B@4^@2A*3TU )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC2DS0A@0A@0A)0D*0TV )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@7AC9B@4^@)^@)^@)^@)^@)DDIE- EL TW )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0AC0A@0A@0A)0AC)^@)^[ITX )@@G@@@O@O=@D00A@4BC7B@3E[TA@7AK7B@4^@)AC9^@)^@)^@)C-MFL[DDGCS?^[^^@)^@)^@)^@)TY )@@G@@^@)^@)^@)^@0A@0A@0BC2D00A@0A@0A)0DK0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3TZ )@@G@@DD#A@8AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UA )@@G@@A@0A@0A@0A@0AS9B@0A@0A@0AS9B@)^@)^[I@O@O=@D00A@4BC7B@3E[TA@9AC7B@4^@)A*5UB )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC2EC0A@0A@0AS9EC0UC )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@9AK0B@4^@)^@)^@)^@)^@)DDIE- EL UD )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS9A*0A@0A@0AS9A*)^@)^[IUE )@@G@@@O@O=@D00A@4BC7B@3E[TAC0A@2B@4^@)A06^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)UF )@@G@@^@)^@)^@)^@0A@0A@0BC3DK0A@0A@0AS9D00A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3UG )@@G@@DD#AC0AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UH )@@G@@A@0A@0A@0A@0AS9AK0A@0A@0AS9AK)^@)^[I@O@O=@D00A@4BC7B@3E[TAC1A@1B@4^@)B@8UI )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC3D*0A@0A@0AS9DS0UJ )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#AC1AK7B@4^@)^@)^@)^@)^@)DDIE- EL UK )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS8BC0A@0A@0AS8BC)^@)^[IUL )@@G@@@O@O=@D00A@4BC7B@3E[TAC1AK8B@4^@1A@5^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)UM )@@G@@^@)^@)^@)^@0A@0A@0BC3E@0A@0A@0AS8EK0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3UN )@@G@@DD#AC2AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UO )@@G@@A@0A@0A@0A@0AS8A00A@0A@0AS8A0)^@)^[I@O@O=@D00A@4BC7B@3E[TA@1A@4B@5^@1AK4UP )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC4J*0A@0A@0AS8D80UQ )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@1AK5B@5^@)^@)^@)^@)^@)DDIE- EL UR )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS8AS0A@0A@0AS8AS)^@)^[IUS )@@G@@@O@O=@D00A@4BC7B@3D( A@1AS0B@5D( ^@)^@)^@)^@)CS)E*)C9MCD^^@6D[MES)^@)^@)UT )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[I@O@O=@D00A@4BC7B@3UU )@@G@@ETOA@1AS0B@5ETO^@)^@)^@)^@)A@1A@1B[F *0A*0AC8A*)^@)^@)^@)^@)^@)^@0A@0A@0UV )@@G@@A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[I@O@O=@D00A@4BC7B@3DD#A@2A@1B@5DD#^@)UW )@@G@@^@)^@)^@)CD^DK)C-PC*)E-J^[^C(A^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS8D)0UX )@@G@@A@0A@0AS8D))^@0^[I@O@O=@D00A@4BC7B@3DD#A@5AK1B@5^@)^@)^@)^@)^@)DDIE- EL UY )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS8AS0A@0A@0AS8AS)^@)^[IUZ )@@G@@@O@O=@D00A@4BC7B@3ETOA@6A@3B@5ETO^@)^@)^@)^@)A@1A@1B@5 *0A*0AC8A*)^@)^@)VA )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[I@O@O=@D00A@4BC7B@3VB )@@G@@DD#A@6A@7B@5DD#^@)^@)^@)^@)CD^DK)C-PC*)E-J^[^C(A^@)^@)^@)^@)^@)^@0A@0A@0VC )@@G@@A@0A@0A@0A@0AS8D)0A@0A@0AS8D))^@0^[I@O@O=@D00A@4BC7B@3DD#A@6A@7B@5DD#^@)VD )@@G@@^@)^@)^@)CD^DK)C-PC*)E-J^[^C(A^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS8D)0VE )@@G@@A@0A@0AS8D))^@0^[I@O@O=@D00A@4BC7B@3DD#AC1AK0B@5^@)^@)^@)^@)^@)DDIE- EL VF )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS8CS0A@0A@0AS8CS)^@)^[IVG )@@G@@@O@O=@D00A@4BC7B@3E[TAC2A@5B@5^@1AC0^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)VH )@@G@@^@)^@)^@)^@0A@0A@1AS2D80A@0A@0A@0A@0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3VI )@@G@@DD#AC2AC3B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VJ )@@G@@A@0A@0A@0A@0AS7D@0A@0A@0AS7D@)^@)^[I@O@O=@D00A@4BC7B@3E[TA@1A@9B@6^@1AK6VK )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC4EC0A@0A@0AS7EC0VL )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@1AC5B@6^@)^@)^@)^@)^@)DDIE- EL VM )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS7C*0A@0A@0AS7C*)^@)^[IVN )@@G@@@O@O=@D00A@4BC7B@3E[TA@1AS0B@6^@1A)2^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)VO )@@G@@^@)^@)^@)^@0A@0A@0BC5DK0A@0A@0AS7D00A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3VP )@@G@@DD#A@2AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VQ )@@G@@A@0A@0A@0A@0AS7CK0A@0A@0AS7CK)^@)^[I@O@O=@D00A@4BC7B@3E[TA@2AK8B@6^@1A02VR )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC5D*0A@0A@0AS7DS0VS )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@3AK0B@6^@)^@)^@)^@)^@)DDIE- EL VT )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS6DC0A@0A@0AS6DC)^@)^[IVU )@@G@@@O@O=@D00A@4BC7B@3E[TA@4A@1B@6^@1B@4^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)VV )@@G@@^@)^@)^@)^@0A@0A@0BC5E@0A@0A@0AS6EK0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3VW )@@G@@DD#A@4AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VX )@@G@@A@0A@0A@0A@0AS6C00A@0A@0AS6C0)^@)^[I@O@O=@D00A@4BC7B@3E[TA@5A@1B@6^@2A@6VY )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC6J*0A@0A@0AS6D80VZ )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@5AK1B@6^@)^@)^@)^@)^@)DDIE- EL WA )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS6CK0A@0A@0AS6CK)^@)^[IWB )@@G@@@O@O=@D00A@4BC7B@3E[TA@5AK8B@6^@2AK4^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)WC )@@G@@^@)^@)^@)^@0A@0A@0BC6D*0A@0A@0AS6DS0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3WD )@@G@@DD#A@6AC6B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0WE )@@G@@A@0A@0A@0A@0AS5DC0A@0A@0AS5DC)^@)^[I@O@O=@D00A@4BC7B@3E[TA@6AK7B@6^@2A)6WF )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC6E@0A@0A@0AS5EK0WG )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@7AC8B@6^@)^@)^@)^@)^@)DDIE- EL WH )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS5C00A@0A@0AS5C0)^@)^[IWI )@@G@@@O@O=@D00A@4BC7B@3E[TA@7AS0B@6^@)AK1^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)WJ )@@G@@^@)^@)^@)^@0A@0A@0BC7J*0A@0A@0AS5D80A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3WK )@@G@@DD#A@8AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0WL )@@G@@A@0A@0A@0A@0AS5CS0A@0A@0AS5CS)^@)^[I@O@O=@D00A@4BC7B@3E[TA@8AK8B@6^@)A)3WM )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC7D)0A@0A@0AS5D)0WN )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@9AC8B@6^@)^@)^@)^@)^@)DDIE- EL WO )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS5JS0A@0A@0AS5JS)^@)^[IWP )@@G@@@O@O=@D00A@4BC7B@3E[TA@9AS0B@6^@)A05^@)^@)^@)C-MFL[DD# -^^@)^@)^@)^@)^@)WQ )@@G@@^@)^@)^@)^@0A@0A@0BC7D80A@0A@0AS5J*0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3WR )@@G@@DD#AC0AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0WS )@@G@@A@0A@0A@0A@0AS4C00A@0A@0AS4C0)^@)^[I@O@O=@D00A@4BC7B@3E[TAC0AK9B@6^@)B@6WT )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC8J*0A@0A@0AS4D80WU )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#AC1AK0B@6^@)^@)^@)^@)^@)DDIE- EL WV )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS4CS0A@0A@0AS4CS)^@)^[IWW )@@G@@@O@O=@D00A@4BC7B@3E[TAC2A@1B@6^@1A@7^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)WX )@@G@@^@)^@)^@)^@0A@0A@0BC8D)0A@0A@0AS4D)0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3WY )@@G@@DD#AC2AC1B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0WZ )@@G@@A@0A@0A@0A@0AS4JS0A@0A@0AS4JS)^@)^[I@O@O=@D00A@4BC7B@3E[TA@1A@9B@7^@1AK9XA )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC8D80A@0A@0AS4J*0XB )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@1AK1B@7^@)^@)^@)^@)^@)DDIE- EL XC )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS3C00A@0A@0AS3C0)^@)^[IXD )@@G@@@O@O=@D00A@4BC7B@3E[TA@1AK8B@7^@1A)4^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)XE )@@G@@^@)^@)^@)^@0A@0A@0BC9J*0A@0A@0AS3D80A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3XF )@@G@@DD#A@2AC9B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0XG )@@G@@A@0A@0A@0A@0AS3CS0A@0A@0AS3CS)^@)^[I@O@O=@D00A@4BC7B@3E[TA@2AK6B@7^@1A05XH )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC9D)0A@0A@0AS3D)0XI )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@3AK3B@7^@)^@)^@)^@)^@)DDIE- EL XJ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS3JS0A@0A@0AS3JS)^@)^[IXK )@@G@@@O@O=@D00A@4BC7B@3E[TA@3AK7B@7^@1B@6^@)^@)^@)C-MFL[DD# -^^@)^@)^@)^@)^@)XL )@@G@@^@)^@)^@)^@0A@0A@0BC9D80A@0A@0AS3J*0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3XM )@@G@@DD#A@4AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0XN )@@G@@A@0A@0A@0A@0AS2C80A@0A@0AS2C8)^@)^[I@O@O=@D00A@4BC7B@3E[TA@4AK9B@7^@2A@8XO )@@G@@^@)^@)^@)C-MCDUCDDCS?^[^^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC9EK0A@0A@0AS2E@0XP )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@5AK0B@7^@)^@)^@)^@)^@)DDIE- EL XQ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2CS0A@0A@0AS2CS)^@)^[IXR )@@G@@@O@O=@D00A@4BC7B@3E[TA@6A@1B@7^@2AS0^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)XS )@@G@@^@)^@)^@)^@0A@0A@1A@0D)0A@0A@0AS2D)0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3XT )@@G@@DD#A@6AC8B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0XU )@@G@@A@0A@0A@0A@0AS2JS0A@0A@0AS2JS)^@)^[I@O@O=@D00A@4BC7B@3E[TA@6AK6B@7^@2A)9XV )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@0D80A@0A@0AS2J*0XW )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@7AC7B@7^@)^@)^@)^@)^@)DDIE- EL XX )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS1C00A@0A@0AS1C0)^@)^[IXY )@@G@@@O@O=@D00A@4BC7B@3E[TA@8A@4B@7^@)AK5^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)XZ )@@G@@^@)^@)^@)^@0A@0A@1A@1J*0A@0A@0AS1D80A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3YA )@@G@@DD#A@8AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0YB )@@G@@A@0A@0A@0A@0AS1CS0A@0A@0AS1CS)^@)^[I@O@O=@D00A@4BC7B@3E[TA@9A@2B@7^@)A)6YC )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@1D)0A@0A@0AS1D)0YD )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@9AK1B@7^@)^@)^@)^@)^@)DDIE- EL YE )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS1JS0A@0A@0AS1JS)^@)^[IYF )@@G@@@O@O=@D00A@4BC7B@3E[TAC0A@1B@7^@)A06^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)YG )@@G@@^@)^@)^@)^@0A@0A@1A@1D80A@0A@0AS1J*0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3YH )@@G@@DD#AC0AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0YI )@@G@@A@0A@0A@0A@0AS0C00A@0A@0AS0C0)^@)^[I@O@O=@D00A@4BC7B@3E[TAC0AK9B@7^@)B@6YJ )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@2J*0A@0A@0AS0D80YK )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#AC1AC9B@7^@)^@)^@)^@)^@)DDIE- EL YL )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0CS0A@0A@0AS0CS)^@)^[IYM )@@G@@@O@O=@D00A@4BC7B@3E[TAC2A@1B@7^@1A@7^@)^@)^@)C-MFL[DD# -^^@)^@)^@)^@)^@)YN )@@G@@^@)^@)^@)^@0A@0A@1A@2D)0A@0A@0AS0D)0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3YO )@@G@@DD#AC2AC8B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0YP )@@G@@A@0A@0A@0A@0AS0JS0A@0A@0AS0JS)^@)^[I@O@O=@D00A@4BC7B@3E[TA@1A@7B@8^@1AS0YQ )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A82D80A@0A@0A00J*0YR )@@G@@A@0A@1AS2D8)^@1^[I@O@O=@D00A@4BC7B@3DD#A@1AK0B@8^@)^@)^@)^@)^@)DDIE- EL YS )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0JS0A@0A@0AS0JS)^@)^[IYT )@@G@@@O@O=@D00A@4BC7B@3E[TA@1AK9B@8^@1A)6^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)YU )@@G@@^@)^@)^@)^@0A@0A@1AS2D80A@0A@0A@0A@0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3YV )@@G@@DD#A@2AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0YW )@@G@@A@0A@0A@0A@0AK9CS0A@0A@0AK9CS)^@)^[I@O@O=@D00A@4BC7B@3E[TA@3A@4B@8AC1A81YX )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@3D)0A@0A@0AK9D)0YY )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@3AK2B@8^@)^@)^@)^@)^@)DDIE- EL YZ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8DC0A@0A@0AK8DC)^@)^[IZA )@@G@@@O@O=@D00A@4BC7B@3E[TA@3AK9B@8^@1B@8^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)ZB )@@G@@^@)^@)^@)^@0A@0A@1A@3E@0A@0A@0AK8EK0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3ZC )@@G@@DD#A@4AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ZD )@@G@@A@0A@0A@0A@0AK8C00A@0A@0AK8C0)^@)^[I@O@O=@D00A@4BC7B@3E[TA@4AK8B@8^@2A@9ZE )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@4J*0A@0A@0AK8D80ZF )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@5AC9B@8^@)^@)^@)^@)^@)DDIE- EL ZG )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8CK0A@0A@0AK8CK)^@)^[IZH )@@G@@@O@O=@D00A@4BC7B@3E[TA@6A@2B@8^@2AS3^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)ZI )@@G@@^@)^@)^@)^@0A@0A@1A@4D*0A@0A@0AK8DS0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3ZJ )@@G@@DD#A@6AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ZK )@@G@@A@0A@0A@0A@0AK7DC0A@0A@0AK7DC)^@)^[I@O@O=@D00A@4BC7B@3E[TA@6AK9B@8^@2A*2ZL )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@4E@0A@0A@0AK7EK0ZM )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@7AK1B@8^@)^@)^@)^@)^@)DDIE- EL ZN )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7C*0A@0A@0AK7C*)^@)^[IZO )@@G@@@O@O=@D00A@4BC7B@3E[TA@7AK6B@8^@)AC7^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)ZP )@@G@@^@)^@)^@)^@0A@0A@1A@5DK0A@0A@0AK7D00A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3ZQ )@@G@@DD#A@8AC8B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ZR )@@G@@A@0A@0A@0A@0AK7CK0A@0A@0AK7CK)^@)^[I@O@O=@D00A@4BC7B@3E[TA@8AS0B@8^@)A)2ZS )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@5D*0A@0A@0AK7DS0ZT )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@9AK1B@8^@)^@)^@)^@)^@)DDIE- EL ZU )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK6D@0A@0A@0AK6D@)^@)^[IZV )@@G@@@O@O=@D00A@4BC7B@3E[TA@9AK6B@8^@)A00^@)^@)^@)C-MFL[DDU ))C))^@)^@)^@)^@)ZW )@@G@@^@)^@)^@)^@0A@0A@1A@5EC0A@0A@0AK6EC0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3ZX )@@G@@DD#AC0AC9B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ZY )@@G@@A@0A@0A@0A@0AK6C*0A@0A@0AK6C*)^@)^[I@O@O=@D00A@4BC7B@3E[TAC0AK6B@8^@)B@2ZZ )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@6DK0A@0A@0AK6D00AA )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#AC1AC7B@8^@)^@)^@)^@)^@)DDIE- EL AB )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK6CC0A@0A@0AK6CC)^@)^[IAC )@@G@@@O@O=@D00A@4BC7B@3E[TAC2A@7B@8^@1AC0^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)AD )@@G@@^@)^@)^@)^@0A@0A@1A@6D00A@0A@0AK6DK0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3AE )@@G@@DD#AC2AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AF )@@G@@A@0A@0A@0A@0AK5D@0A@0A@0AK5D@)^@)^[I@O@O=@D00A@4BC7B@3E[TAC2AK9B@8^@1AK5AG )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@6EC0A@0A@0AK5EC0AH )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3E[TA@1AK7B@9^@1A)5^@)^@)^@)C-MFL[DD#AI )@@G@@ ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@7DS0A@0A@0AK5D*0A@0A@1AS2D8)^@0^[IAJ )@@G@@@O@O=@D00A@4BC7B@3DD#A@2A@1B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)AK )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK5C)0A@0A@0AK5C))^@)^[I@O@O=@D00A@4BC7B@3AL )@@G@@DD#A@2AC7B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AM )@@G@@A@0A@0A@0A@0AK5CC0A@0A@0AK5CC)^@)^[I@O@O=@D00A@4BC7B@3E[TA@2AK8B@9^@1A07AN )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@7D00A@0A@0AK5DK0AO )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@3AC7B@9^@)^@)^@)^@)^@)DDIE- EL AP )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK4C80A@0A@0AK4C8)^@)^[IAQ )@@G@@@O@O=@D00A@4BC7B@3E[TA@3AK7B@9^@1B@5^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)AR )@@G@@^@)^@)^@)^@0A@0A@1A@7EK0A@0A@0AK4E@0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3AS )@@G@@DD#A@4AK1B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AT )@@G@@A@0A@0A@0A@0AK4CS0A@0A@0AK4CS)^@)^[I@O@O=@D00A@4BC7B@3E[TA@4AK7B@9^@2A@8AU )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@8D)0A@0A@0AK4D)0AV )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3DD#A@5AC9B@9^@)^@)^@)^@)^@)DDIE- EL AW )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK4JS0A@0A@0AK4JS)^@)^[IAX )@@G@@@O@O=@D00A@4BC7B@3E[TA@5AK6B@9^@2AK9^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)AY )@@G@@^@)^@)^@)^@0A@0A@1A@8D80A@0A@0AK4J*0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7B@3AZ )@@G@@DD#A@6AK1B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BA )@@G@@A@0A@0A@0A@0AK3C00A@0A@0AK3C0)^@)^[I@O@O=@D00A@4BC7B@3E[TA@6AK7B@9^@2A*0BB )@@G@@^@)^@)^@)C-MFL[DD# ))C))^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@9J*0A@0A@0AK3D80BC )@@G@@A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC7BC1D-KA@8AK3A89BC0A87^@)^@)^@)D-JCDI^[KBD )@@G@@ELDD1#DDKCDG^@)^@)^@)^@)^@)^@0A@0AK5AK0JS0A@0A@0A@0A@0A@0AK5AK0A@)^@0^[IBE )@@G@@@O@O=@D00A@4BC7BC1D-KA@1AC7B@0A@5A06^@)^@)^@)C-PD1BCDI^[FCDOD[GC( D0)D*)BF )@@G@@^@)^@)^@)^@0A@0AK5AK0JS0A@0A@0A@0A@0A@0AK5AK0A@)^@0^[I@O@O=@D00A@4BC7BC1BG )@@G@@D-KA@8AK8B@0AK1AC0^@)^@)^@)C-PD1BCDI^[FCDOD[GC( D0)D*)^@)AC2AC1A@0A@0AS3BH )@@G@@AK0JS0A@0A@0A@0A@0A@0AS3AK0A@)^@0^[I@O@O=@D00A@4BC7BC1D-KA@1AC5B@1AS5AC1BI )@@G@@^@)^@)^@)C-PD1BCDI^[FCDOD[GC( D0)D*)^@)AC3A*1AC0A@0AS8AK0JS0A@0A@0A@0A@0BJ )@@G@@A@0AS8AK0A@)^@0^[I@O@O=@D00A@4BC7BC1DD#A@2AK0B@4^@)^@)^@)^@)^@)DDIE- EL BK )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0A*0A@0A@0AS0A*)^@)^[IBL )@@G@@@O@O=@D00A@4BC7BC1E[TA@3A@6B@4^@1A83^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)BM )@@G@@^@)^@)^@)^@0A@0A@1A01D00A@0A@0AS0D00A@0A@1BC2^C)^@0^[I@O@O=@D00A@4BC7BC1BN )@@G@@DD#A@3AK1B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BO )@@G@@A@0A@0A@0A@0AS0A@0A@0A@0AS0A@)^@)^[I@O@O=@D00A@4BC7BC1DD#A@4AC9B@4^@)^@)BP )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0A@0BQ )@@G@@A@0A@0AS0A@)^@)^[I@O@O=@D00A@4BC7BC1E[TA@4AK3B@4^@2A@6^@)^@)^@)C-PD1BCDIBR )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1AS2J*0A@0A@0A00J*0A@0A@1BC2^C)^@1^[IBS )@@G@@@O@O=@D00A@4BC7BC1E[TA@5AC7B@4^@2AK4^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)BT )@@G@@^@)^@)^@)^@0A@0A@1BC2^C0A@0A@0A@0A@0A@0A@1BC2^C)^@0^[I@O@O=@D00A@4BC7BC1BU )@@G@@DD#A@5AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BV )@@G@@A@0A@0A@0A@0AK9AK0A@0A@0AK9AK)^@)^[I@O@O=@D00A@4BC7BC1E[TA@6AC9B@4^@2A)6BW )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A02EC0A@0A@0AK9DS0BX )@@G@@A@0A@1BC2^C)^@0^[I@O@O=@D00A@4BC7BC1DD#A@6AK1B@4^@)^@)^@)^@)^@)DDIE- EL BY )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8B@0A@0A@0AK8B@)^@)^[IBZ )@@G@@@O@O=@D00A@4BC7BC1DD#A@7AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)CA )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8B@0A@0A@0AK8B@)^@)^[I@O@O=@D00A@4BC7BC1CB )@@G@@DD#A@8AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0CC )@@G@@A@0A@0A@0A@0AK8B@0A@0A@0AK8B@)^@)^[I@O@O=@D00A@4BC7BC1E[TA@9A@4B@4^@)A)6CD )@@G@@^@)^@)^@)C-PD1BCDI -#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@5D80A@0A@0B@6D*0CE )@@G@@A@0A@1BC2^C)^@2^[I@O@O=@D00A@4BC7BC1DD#A@9AK0B@4^@)^@)^@)^@)^@)DDIE- EL CF )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8A00A@0A@0AK8A0)^@)^[ICG )@@G@@@O@O=@D00A@4BC7BC1DD#AC0AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)CH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8A00A@0A@0AK8A0)^@)^[I@O@O=@D00A@4BC7BC1CI )@@G@@E[TAC0AK6B@4^@)B@4^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2CJ )@@G@@BC8J*0A@0A@0A*7DS0A@0A@3A*5DS)^@4^[I@O@O=@D00A@4BC7BC1DD#AC1AK7B@4^@)^@)CK )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7B@0CL )@@G@@A@0A@0AK7B@)^@)^[I@O@O=@D00A@4BC7BC1DD#AC2AC9B@4^@)^@)^@)^@)^@)DDIE- EL CM )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7B@0A@0A@0AK7B@)^@)^[ICN )@@G@@@O@O=@D00A@4BC7BC1E[TA@1A@3B@5^@1AK3^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)CO )@@G@@^@)^@)^@)^@0A@0A@4BC1EC0A@0A@0A*5D80A@0A@5A)7D*)^@4^[I@O@O=@D00A@4BC7BC1CP )@@G@@DD#A@1AK5B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0CQ )@@G@@A@0A@0A@0A@0AK6A00A@0A@0AK6A0)^@)^[I@O@O=@D00A@4BC7BC1E[TA@1AK9B@5^@1A)2CR )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A05D*0A@0A@0AK6D80CS )@@G@@A@0A@1BC2^C)^@1^[I@O@O=@D00A@4BC7BC1DD#A@2AK0B@5^@)^@)^@)^@)^@)DDIE- EL CT )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK6AK0A@0A@0AK6AK)^@)^[ICU )@@G@@@O@O=@D00A@4BC7BC1DD#A@3AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)CV )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK6AK0A@0A@0AK6AK)^@)^[I@O@O=@D00A@4BC7BC1CW )@@G@@E[TA@3AK2B@5^@1B@0^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1CX )@@G@@AS9D80A@0A@0A*2D*0A@0A@1BC2^C)^@2^[I@O@O=@D00A@4BC7BC1DD#A@4AC9B@5^@)^@)CY )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK5B@0CZ )@@G@@A@0A@0AK5B@)^@)^[I@O@O=@D00A@4BC7BC1E[TA@4AK2B@5^@2A@0^@)^@)^@)C-PD1BCDIDA )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A06DS0A@0A@0AK5EC0A@0A@1BC2^C)^@2^[IDB )@@G@@@O@O=@D00A@4BC7BC1DD#A@5AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)DC )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK5A)0A@0A@0AK5A))^@)^[I@O@O=@D00A@4BC7BC1DD )@@G@@E[TA@5AK1B@5^@2AK1^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1DE )@@G@@A06D80A@0A@0AK5D*0A@0A@1BC2J*)^@2^[I@O@O=@D00A@4BC7BC1E[TA@6AC7B@5^@2AS9DF )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1BC2J*0A@0A@0A@0A@0DG )@@G@@A@0A@1BC2J*)^@1^[I@O@O=@D00A@4BC7BC1DD#A@6AK0B@5^@)^@)^@)^@)^@)DDIE- EL DH )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK4A*0A@0A@0AK4A*)^@)^[IDI )@@G@@@O@O=@D00A@4BC7BC1DD#A@7AC9B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)DJ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK4A*0A@0A@0AK4A*)^@)^[I@O@O=@D00A@4BC7BC1DK )@@G@@E[TA@7AK4B@5^@)AC7^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1DL )@@G@@A)3J*0A@0A@0A)9J*0A@0A@1BC2J*)^@2^[I@O@O=@D00A@4BC7BC1E[TA@8A@7B@5^@)AK6DM )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1BC2J*0A@0A@0A@0A@0DN )@@G@@A@0A@1BC2J*)^@1^[I@O@O=@D00A@4BC7BC1DD#A@8AC6B@5^@)^@)^@)^@)^@)DDIE- EL DO )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK3A80A@0A@0AK3A8)^@)^[IDP )@@G@@@O@O=@D00A@4BC7BC1E[TA@8AK8B@5^@)A)2^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)DQ )@@G@@^@)^@)^@)^@0A@0A@1A08D)0A@0A@0AK3E@0A@0A@1BC2J*)^@1^[I@O@O=@D00A@4BC7BC1DR )@@G@@E[TA@9AC2B@5^@)A*2^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1DS )@@G@@BC2J*0A@0A@0A@0A@0A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1DD#A@9AC9B@5^@)^@)DT )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2B@0DU )@@G@@A@0A@0AK2B@)^@)^[I@O@O=@D00A@4BC7BC1DD#AC0AK2B@5^@)^@)^@)^@)^@)DDIE- EL DV )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2D@0A@0A@0AK2D@)^@)^[IDW )@@G@@@O@O=@D00A@4BC7BC1E[TAC1AC3B@5^@)BC6^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)DX )@@G@@^@)^@)^@)^@0A@0A@2A88D*0A@0A@0A)5D80A@0A@3AK4J*)^@1^[I@O@O=@D00A@4BC7BC1DY )@@G@@DD#AC1AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0DZ )@@G@@A@0A@0A@0A@0AK2CC0A@0A@0AK2CC)^@)^[I@O@O=@D00A@4BC7BC1E[TAC1AK1B@5^@1A@2EA )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5AK9EK0A@0A@0AK2DK0EB )@@G@@A@0A@5A*2J*)^@0^[I@O@O=@D00A@4BC7BC1DD#AC2AC3B@5^@)^@)^@)^@)^@)DDIE- EL EC )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0D@0A@0A@0AK0D@)^@)^[IED )@@G@@@O@O=@D00A@4BC7BC1DD#A@1AC5B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)EE )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0D@0A@0A@0AK0D@)^@)^[I@O@O=@D00A@4BC7BC1EF )@@G@@E[TA@2A@3B@6^@1A)4^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1EG )@@G@@A*0D*0A@0A@0A)1D80A@0A@1BC2J*)^@1^[I@O@O=@D00A@4BC7BC1DD#A@2AK0B@6^@)^@)EH )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0C)0EI )@@G@@A@0A@0AK0C))^@)^[I@O@O=@D00A@4BC7BC1E[TA@2AK1B@6^@1A*8^@)^@)^@)C-PD1BCDIEJ )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A81D80A@0A@0AK0D*0A@0A@1BC2J*)^@1^[IEK )@@G@@@O@O=@D00A@4BC7BC1E[TA@3AC4B@6^@1A83^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)EL )@@G@@^@)^@)^@)^@0A@0A@1BC2J*0A@0A@0A@0A@0A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1EM )@@G@@DD#A@3AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0EN )@@G@@A@0A@0A@0A@0AC9C*0A@0A@0AC9C*)^@)^[I@O@O=@D00A@4BC7BC1E[TA@4A@1B@6^@1B@4EO )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A82D00A@0A@0AC9D00EP )@@G@@A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1DD#A@4AC8B@6^@)^@)^@)^@)^@)DDIE- EL EQ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC9JS0A@0A@0AC9JS)^@)^[IER )@@G@@@O@O=@D00A@4BC7BC1E[TA@5AC6B@6^@2AC7^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)ES )@@G@@^@)^@)^@)^@0A@0A@1A83J*0A@0A@0AC9J*0A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1ET )@@G@@DD#A@5AK1B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0EU )@@G@@A@0A@0A@0A@0AC8C00A@0A@0AC8C0)^@)^[I@O@O=@D00A@4BC7BC1E[TA@6AC3B@6^@2AS6EV )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A*4EC0A@0A@0AS7DS0EW )@@G@@A@0A@1BC2J*)^@1^[I@O@O=@D00A@4BC7BC1DD#A@6AC6B@6^@)^@)^@)^@)^@)DDIE- EL EX )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC8C00A@0A@0AC8C0)^@)^[IEY )@@G@@@O@O=@D00A@4BC7BC1E[TA@7AC4B@6^@)^@9^@)^@)^@)C-PD1BCDI -F^@)^@)^@)^@)^@)EZ )@@G@@^@)^@)^@)^@0A@0A@1BC2J*0A@0A@0A@0A@0A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1FA )@@G@@DD#A@7AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FB )@@G@@A@0A@0A@0A@0AC7C80A@0A@0AC7C8)^@)^[I@O@O=@D00A@4BC7BC1E[TA@8A@7B@6^@)AK7FC )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A84D)0A@0A@0AC7E@0FD )@@G@@A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1DD#A@8AC8B@6^@)^@)^@)^@)^@)DDIE- EL FE )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC7CS0A@0A@0AC7CS)^@)^[IFF )@@G@@@O@O=@D00A@4BC7BC1E[TA@9AC0B@6^@)A*1^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)FG )@@G@@^@)^@)^@)^@0A@0A@1A84E@0A@0A@0AC7D)0A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1FH )@@G@@DD#A@9AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FI )@@G@@A@0A@0A@0A@0AC6DC0A@0A@0AC6DC)^@)^[I@O@O=@D00A@4BC7BC1E[TAC0AC0B@6^@)A83FJ )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A85DK0A@0A@0AC6EK0FK )@@G@@A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1DD#AC0AK0B@6^@)^@)^@)^@)^@)DDIE- EL FL )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC6C)0A@0A@0AC6C))^@)^[IFM )@@G@@@O@O=@D00A@4BC7BC1E[TAC1A@5B@6^@)BC1^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)FN )@@G@@^@)^@)^@)^@0A@0A@1A85D80A@0A@0AC6D*0A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1FO )@@G@@DD#AC1AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FP )@@G@@A@0A@0A@0A@0AC6JS0A@0A@0AC6JS)^@)^[I@O@O=@D00A@4BC7BC1E[TAC2A@5B@6^@1AC1FQ )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A86J*0A@0A@0AC6J*0FR )@@G@@A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1DD#AC2AC1B@6^@)^@)^@)^@)^@)DDIE- EL FS )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC5C00A@0A@0AC5C0)^@)^[IFT )@@G@@@O@O=@D00A@4BC7BC1E[TA@1A@2B@7^@1AK4^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)FU )@@G@@^@)^@)^@)^@0A@0A@1A86D*0A@0A@0AC5D80A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1FV )@@G@@DD#A@1AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FW )@@G@@A@0A@0A@0A@0AC5CC0A@0A@0AC5CC)^@)^[I@O@O=@D00A@4BC7BC1E[TA@2A@2B@7^@1A)7FX )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A86EK0A@0A@0AC5DK0FY )@@G@@A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1DD#A@2AC9B@7^@)^@)^@)^@)^@)DDIE- EL FZ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC4C80A@0A@0AC4C8)^@)^[IGA )@@G@@@O@O=@D00A@4BC7BC1E[TA@2AK6B@7^@1A05^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)GB )@@G@@^@)^@)^@)^@0A@0A@1A87D)0A@0A@0AC4E@0A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1GC )@@G@@DD#A@3AK3B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0GD )@@G@@A@0A@0A@0A@0AC4CK0A@0A@0AC4CK)^@)^[I@O@O=@D00A@4BC7BC1E[TA@4A@1B@7^@1B@9GE )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A87EC0A@0A@0AC4DS0GF )@@G@@A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1DD#A@4AK1B@7^@)^@)^@)^@)^@)DDIE- EL GG )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC3D@0A@0A@0AC3D@)^@)^[IGH )@@G@@@O@O=@D00A@4BC7BC1E[TA@5AC4B@7^@2AC9^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)GI )@@G@@^@)^@)^@)^@0A@0A@1A88DS0A@0A@0AC3EC0A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1GJ )@@G@@DD#A@5AK0B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0GK )@@G@@A@0A@0A@0A@0AC3CS0A@0A@0AC3CS)^@)^[I@O@O=@D00A@4BC7BC1E[TA@6AC2B@7^@2AS9GL )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A88E@0A@0A@0AC3D)0GM )@@G@@A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1DD#A@6AC8B@7^@)^@)^@)^@)^@)DDIE- EL GN )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC2DC0A@0A@0AC2DC)^@)^[IGO )@@G@@@O@O=@D00A@4BC7BC1DD#A@7AC7B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)GP )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC2DC0A@0A@0AC2DC)^@)^[I@O@O=@D00A@4BC7BC1GQ )@@G@@E[TA@7AK8B@7^@)AK0^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1GR )@@G@@A06DS0A@0A@0AK5EC0A@0A@1BC2J*)^@1^[I@O@O=@D00A@4BC7BC1E[TA@8AK0B@7^@)AS7GS )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A89D00A@0A@0AC2D00GT )@@G@@A@0A@1BC2J*)^@1^[I@O@O=@D00A@4BC7BC1DD#A@8AK1B@7^@)^@)^@)^@)^@)DDIE- EL GU )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC2C*0A@0A@0AC2C*)^@)^[IGV )@@G@@@O@O=@D00A@4BC7BC1E[TA@9A@3B@7^@)A)7^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)GW )@@G@@^@)^@)^@)^@0A@0A@1BC2J*0A@0A@0A@0A@0A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1GX )@@G@@E[TA@9AC5B@7^@)A*4^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1GY )@@G@@BC2J*0A@0A@0A@0A@0A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1DD#A@9AK1B@7^@)^@)GZ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC1CC0HA )@@G@@A@0A@0AC1CC)^@)^[I@O@O=@D00A@4BC7BC1DD#AC0AK1B@7^@)^@)^@)^@)^@)DDIE- EL HB )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC1CC0A@0A@0AC1CC)^@)^[IHC )@@G@@@O@O=@D00A@4BC7BC1E[TAC1A@4B@7^@)BC0^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)HD )@@G@@^@)^@)^@)^@0A@0A@1A09EC0A@0A@0AK2DS0A@0A@1BC2J*)^@1^[I@O@O=@D00A@4BC7BC1HE )@@G@@DD#AC1AC9B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HF )@@G@@A@0A@0A@0A@0AC0C00A@0A@0AC0C0)^@)^[I@O@O=@D00A@4BC7BC1DD#AC2AC8B@7^@)^@)HG )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC0C00HH )@@G@@A@0A@0AC0C0)^@)^[I@O@O=@D00A@4BC7BC1E[TAC2AK9B@7^@1AK5^@)^@)^@)C-PD1BCDIHI )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A02EC0A@0A@0AK1DS0A@0A@3B@4J*)^@2^[IHJ )@@G@@@O@O=@D00A@4BC7BC1E[TA@1A@7B@8^@1AS0^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)HK )@@G@@^@)^@)^@)^@0A@0A@1B@2D)0A@0A@0A@9E@0A@0A@1BC2J*)^@1^[I@O@O=@D00A@4BC7BC1HL )@@G@@DD#A@1AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HM )@@G@@A@0A@0A@0A@0A@9C80A@0A@0A@9C8)^@)^[I@O@O=@D00A@4BC7BC1E[TA@2AC9B@8^@1A01HN )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A84E@0A@0A@0A@9D)0HO )@@G@@A@0A@3B@4J*)^@1^[I@O@O=@D00A@4BC7BC1DD#A@2AK0B@8^@)^@)^@)^@)^@)DDIE- EL HP )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@9CS0A@0A@0A@9CS)^@)^[IHQ )@@G@@@O@O=@D00A@4BC7BC1DD#A@3AK2B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HR )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@8CS0A@0A@0A@8CS)^@)^[I@O@O=@D00A@4BC7BC1HS )@@G@@DD#A@4AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HT )@@G@@A@0A@0A@0A@0A@8CS0A@0A@0A@8CS)^@)^[I@O@O=@D00A@4BC7BC1E[TA@4AK1B@8^@2A@4HU )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A85D*0A@0A@0AC6D80HV )@@G@@A@0A@1BC2J*)^@1^[I@O@O=@D00A@4BC7BC1E[TA@5A@6B@8^@2AC5^@)^@)^@)C-PD1BCDIHW )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1BC2J*0A@0A@0A@0A@0A@0A@1BC2J*)^@0^[IHX )@@G@@@O@O=@D00A@4BC7BC1DD#A@5AC9B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HY )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@7C)0A@0A@0A@7C))^@)^[I@O@O=@D00A@4BC7BC1HZ )@@G@@E[TA@6A@9B@8^@2AS8^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1IA )@@G@@B@4D80A@0A@0A@7D*0A@0A@1BC2J*)^@0^[I@O@O=@D00A@4BC7BC1DD#A@6AK1B@8^@)^@)IB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@7JS0IC )@@G@@A@0A@0A@7JS)^@)^[I@O@O=@D00A@4BC7BC1DD#A@7AK1B@8^@)^@)^@)^@)^@)DDIE- EL ID )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@7JS0A@0A@0A@7JS)^@)^[IIE )@@G@@@O@O=@D00A@4BC7BC1DD#A@8AC8B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)IF )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@7JS0A@0A@0A@7JS)^@)^[I@O@O=@D00A@4BC7BC1IG )@@G@@E[TA@9AC9B@8^@)A*5^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3IH )@@G@@A*6J*0A@0A@0AK8J*0A@0A@3B@4J*)^@3^[I@O@O=@D00A@4BC7BC1DD#A@9AK1B@8^@)^@)II )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@7JS0IJ )@@G@@A@0A@0A@7JS)^@)^[I@O@O=@D00A@4BC7BC1E[TAC0AC8B@8^@)A86^@)^@)^@)C-PD1BCDIIK )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1B@5EK0A@0A@0A@6DK0A@0A@1BC2J*)^@3^[IIL )@@G@@@O@O=@D00A@4BC7BC1DD#AC0AC9B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)IM )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@6CC0A@0A@0A@6CC)^@)^[I@O@O=@D00A@4BC7BC1IN )@@G@@DD#AC1AC7B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0IO )@@G@@A@0A@0A@0A@0A@5C00A@0A@0A@5C0)^@)^[I@O@O=@D00A@4BC7BC1E[TAC1AK2B@8^@1A@1IP )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1B@6D*0A@0A@0A@5D80IQ )@@G@@A@0A@1BC2J*)^@3^[I@O@O=@D00A@4BC7BC1E[TAC2AC9B@8^@1AC8^@)^@)^@)C-PD1BCDIIR )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1B@6EK0A@0A@0A@5DK0A@0A@1BC2J*)^@3^[IIS )@@G@@@O@O=@D00A@4BC7BC1DD#AC2AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)IT )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@5CC0A@0A@0A@5CC)^@)^[I@O@O=@D00A@4BC7BC1IU )@@G@@E[TA@1AC2B@9^@1AS4^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1IV )@@G@@BC2J*0A@0A@0A@0A@0A@0A@1BC2J*)^@2^[I@O@O=@D00A@4BC7BC1DD#A@2A@1B@9^@)^@)IW )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@4CK0IX )@@G@@A@0A@0A@4CK)^@)^[I@O@O=@D00A@4BC7BC1E[TA@2AC0B@9^@1A*5^@)^@)^@)C-PD1BCDIIY )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0AC6A87DK0A@0A@0A@4DS0A@0AC6B@1D))^@1^[IIZ )@@G@@@O@O=@D00A@4BC7BC2D-KA@8AK7B@1^@)^@)^@)^@)^@)D-JCDI^[KELDD1#DDKCDG^@)^@)JA )@@G@@^@)^@)^@)^@0A@0A)0A@0A@0A@0A@0A@0A@0A@0A)0A@0A@)^@0^[I@O@O=@D00A@4BC7BC2JB )@@G@@D-KA@1AC4B@2^@)^@)^@)^@)^@)C-PD1BCDI ))DT[E-CD- C*)^@)^@)^@)^@)^@0A@0AS0JC )@@G@@A@0A@0A@0A@0A@0A@0A@0AS0A@0A@)^@0^[I@O@O=@D00A@4BC7BC2DD#AC1AK1B@3^@)^@)JD )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK3AS0JE )@@G@@A@0A@0AK3AS)^@)^[I@O@O=@D00A@4BC7BC2E[TAC2A@6B@3^@1AC0^@)^@)^@)C-PD1BCDIJF )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0B@4E@0A@0A@0AK3D)0A@0A@1A@8^C)^@0^[IJG )@@G@@@O@O=@D00A@4BC7BC2DD#AC2AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK3AC0A@0A@0AK3AC)^@)^[I@O@O=@D00A@4BC7BC2JI )@@G@@E[TA@1A@9B@4^@1AS1^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0JJ )@@G@@B@4EK0A@0A@0AK3DK0A@0A@1A@8^C)^@0^[I@O@O=@D00A@4BC7BC2DD#A@1AC7B@4^@)^@)JK )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2B@0JL )@@G@@A@0A@0AK2B@)^@)^[I@O@O=@D00A@4BC7BC2E[TA@2A@7B@4^@1A*3^@)^@)^@)C-PD1BCDIJM )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0B@5DS0A@0A@0AK2EC0A@0A@1A@8^C)^@0^[IJN )@@G@@@O@O=@D00A@4BC7BC2DD#A@2AK0B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JO )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2A*0A@0A@0AK2A*)^@)^[I@O@O=@D00A@4BC7BC2JP )@@G@@E[TA@3A@6B@4^@1A83^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0JQ )@@G@@B@5D00A@0A@0AK2D00A@0A@1A@8^C)^@0^[I@O@O=@D00A@4BC7BC2DD#A@3AK1B@4^@)^@)JR )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2AK0JS )@@G@@A@0A@0AK2AK)^@)^[I@O@O=@D00A@4BC7BC2DD#A@4AC9B@4^@)^@)^@)^@)^@)DDIE- EL JT )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2AK0A@0A@0AK2AK)^@)^[IJU )@@G@@@O@O=@D00A@4BC7BC2E[TA@4AK3B@4^@2A@6^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)JV )@@G@@^@)^@)^@)^@0A@0A@0A03D80A@0A@0A)4D*0A@0A@1A@8^C)^@0^[I@O@O=@D00A@4BC7BC2JW )@@G@@DD#A@5AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0JX )@@G@@A@0A@0A@0A@0AK2A@0A@0A@0AK2A@)^@)^[I@O@O=@D00A@4BC7BC2E[TA@5AK5B@4^@2AS0JY )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0B@6J*0A@0A@0AK2J*0JZ )@@G@@A@0A@1A@8^C)^@0^[I@O@O=@D00A@4BC7BC2E[TA@6AC9B@4^@2A)6^@)^@)^@)C-PD1BCDIKA )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@8^C0A@0A@0A@0A@0A@0A@1A@8^C)^@0^[IKB )@@G@@@O@O=@D00A@4BC7BC2DD#A@6AK1B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KC )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1AS0A@0A@0AK1AS)^@)^[I@O@O=@D00A@4BC7BC2KD )@@G@@DD#A@7AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KE )@@G@@A@0A@0A@0A@0AK1AS0A@0A@0AK1AS)^@)^[I@O@O=@D00A@4BC7BC2DD#A@8AK2B@4^@)^@)KF )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1AS0KG )@@G@@A@0A@0AK1AS)^@)^[I@O@O=@D00A@4BC7BC2DD#A@9AK0B@4^@)^@)^@)^@)^@)DDIE- EL KH )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1AS0A@0A@0AK1AS)^@)^[IKI )@@G@@@O@O=@D00A@4BC7BC2DD#AC0AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KJ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1AS0A@0A@0AK1AS)^@)^[I@O@O=@D00A@4BC7BC2KK )@@G@@E[TAC0AK6B@4^@)B@4^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2KL )@@G@@AC7D00A@0A@1A@6D00A@0A@3AK4^C)^@4^[I@O@O=@D00A@4BC7BC2DD#AC1AK7B@4^@)^@)KM )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0A00KN )@@G@@A@0A@0AK0A0)^@)^[I@O@O=@D00A@4BC7BC2DD#AC2AC9B@4^@)^@)^@)^@)^@)DDIE- EL KO )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0A00A@0A@0AK0A0)^@)^[IKP )@@G@@@O@O=@D00A@4BC7BC2E[TA@1A@3B@5^@1AK3^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)KQ )@@G@@^@)^@)^@)^@0A@0A@2A01D00A@0A@0A)1DS0A@0A@3A@2E@)^@4^[I@O@O=@D00A@4BC7BC2KR )@@G@@DD#A@1AK5B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KS )@@G@@A@0A@0A@0A@0AC9A80A@0A@0AC9A8)^@)^[I@O@O=@D00A@4BC7BC2E[TA@2A@5B@5^@1A)7KT )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0B@8D)0A@0A@0AC9E@0KU )@@G@@A@0A@1A@8^C)^@0^[I@O@O=@D00A@4BC7BC2DD#A@2AK0B@5^@)^@)^@)^@)^@)DDIE- EL KV )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC9A)0A@0A@0AC9A))^@)^[IKW )@@G@@@O@O=@D00A@4BC7BC2E[TA@3A@1B@5^@1A05^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)KX )@@G@@^@)^@)^@)^@0A@0A@0B@8D80A@0A@0AC9D*0A@0A@1A@8^C)^@0^[I@O@O=@D00A@4BC7BC2KY )@@G@@DD#A@3AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KZ )@@G@@A@0A@0A@0A@0AC9AK0A@0A@0AC9AK)^@)^[I@O@O=@D00A@4BC7BC2E[TA@3AK2B@5^@1B@0LA )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0B@8EC0A@0A@0AC9DS0LB )@@G@@A@0A@1A@8^C)^@0^[I@O@O=@D00A@4BC7BC2DD#A@4AC9B@5^@)^@)^@)^@)^@)DDIE- EL LC )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC8BC0A@0A@0AC8BC)^@)^[ILD )@@G@@@O@O=@D00A@4BC7BC2E[TA@4AK2B@5^@2A@0^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)LE )@@G@@^@)^@)^@)^@0A@0A@0B@9DK0A@0A@0AC8EK0A@0A@1A@8^C)^@0^[I@O@O=@D00A@4BC7BC2LF )@@G@@DD#A@5AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LG )@@G@@A@0A@0A@0A@0AC8A00A@0A@0AC8A0)^@)^[I@O@O=@D00A@4BC7BC2E[TA@5AK1B@5^@2AK1LH )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0B@9D*0A@0A@0AC8D80LI )@@G@@A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2E[TA@6AC7B@5^@2AS9^@)^@)^@)C-PD1BCDILJ )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@8J*0A@0A@0A@0A@0A@0A@1A@8J*)^@0^[ILK )@@G@@@O@O=@D00A@4BC7BC2DD#A@6AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)LL )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC7BC0A@0A@0AC7BC)^@)^[I@O@O=@D00A@4BC7BC2LM )@@G@@DD#A@7AC9B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LN )@@G@@A@0A@0A@0A@0AC7BC0A@0A@0AC7BC)^@)^[I@O@O=@D00A@4BC7BC2E[TA@7AK4B@5^@)AC7LO )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A82DS0A@0A@0AS5EC0LP )@@G@@A@0A@1A@8J*)^@1^[I@O@O=@D00A@4BC7BC2E[TA@8A@7B@5^@)AK6^@)^@)^@)C-PD1BCDILQ )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@8J*0A@0A@0A@0A@0A@0A@1A@8J*)^@0^[ILR )@@G@@@O@O=@D00A@4BC7BC2DD#A@8AC6B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)LS )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC7AS0A@0A@0AC7AS)^@)^[I@O@O=@D00A@4BC7BC2LT )@@G@@E[TA@8AK9B@5^@)A)3^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LU )@@G@@BC0E@0A@0A@0AC7D)0A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2E[TA@9AC2B@5^@)A*2LV )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@8J*0A@0A@0A@0A@0LW )@@G@@A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2DD#A@9AC9B@5^@)^@)^@)^@)^@)DDIE- EL LX )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC6A00A@0A@0AC6A0)^@)^[ILY )@@G@@@O@O=@D00A@4BC7BC2DD#AC0AK2B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)LZ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC6C00A@0A@0AC6C0)^@)^[I@O@O=@D00A@4BC7BC2MA )@@G@@DD#AC1AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0MB )@@G@@A@0A@0A@0A@0AC6C00A@0A@0AC6C0)^@)^[I@O@O=@D00A@4BC7BC2E[TAC1AK1B@5^@1A@2MC )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A06DS0A@0A@0A)9EC0MD )@@G@@A@0A@2AC6J*)^@2^[I@O@O=@D00A@4BC7BC2DD#AC2AC3B@5^@)^@)^@)^@)^@)DDIE- EL ME )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC6CC0A@0A@0AC6CC)^@)^[IMF )@@G@@@O@O=@D00A@4BC7BC2DD#A@1AC5B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MG )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC6CC0A@0A@0AC6CC)^@)^[I@O@O=@D00A@4BC7BC2MH )@@G@@E[TA@2A@3B@6^@1A)4^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1MI )@@G@@A07DS0A@0A@0AS2DS0A@0A@1BC9D*)^@2^[I@O@O=@D00A@4BC7BC2DD#A@2AK0B@6^@)^@)MJ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC5C*0MK )@@G@@A@0A@0AC5C*)^@)^[I@O@O=@D00A@4BC7BC2E[TA@2AK0B@6^@1A*7^@)^@)^@)C-PD1#CDIML )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC2D00A@0A@0AC5D00A@0A@1A@8J*)^@0^[IMM )@@G@@@O@O=@D00A@4BC7BC2E[TA@3AC4B@6^@1A83^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)MN )@@G@@^@)^@)^@)^@0A@0A@1A@8J*0A@0A@0A@0A@0A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2MO )@@G@@DD#A@3AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0MP )@@G@@A@0A@0A@0A@0AC4DC0A@0A@0AC4DC)^@)^[I@O@O=@D00A@4BC7BC2E[TA@4A@1B@6^@1B@4MQ )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC3DK0A@0A@0AC4EK0MR )@@G@@A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2DD#A@4AC8B@6^@)^@)^@)^@)^@)DDIE- EL MS )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC4C*0A@0A@0AC4C*)^@)^[IMT )@@G@@@O@O=@D00A@4BC7BC2E[TA@5AC6B@6^@2AC7^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)MU )@@G@@^@)^@)^@)^@0A@0A@0BC3D00A@0A@0AC4D00A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2MV )@@G@@DD#A@5AK1B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0MW )@@G@@A@0A@0A@0A@0AC4CK0A@0A@0AC4CK)^@)^[I@O@O=@D00A@4BC7BC2E[TA@6AC3B@6^@2AS6MX )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A89D80A@0A@0AK8D*0MY )@@G@@A@0A@1A@8J*)^@1^[I@O@O=@D00A@4BC7BC2DD#A@6AC6B@6^@)^@)^@)^@)^@)DDIE- EL MZ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC4CK0A@0A@0AC4CK)^@)^[INA )@@G@@@O@O=@D00A@4BC7BC2E[TA@7AC4B@6^@)^@9^@)^@)^@)C-PD1BCDI -F^@)^@)^@)^@)^@)NB )@@G@@^@)^@)^@)^@0A@0A@1A@8J*0A@0A@0A@0A@0A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2NC )@@G@@DD#A@7AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ND )@@G@@A@0A@0A@0A@0AC3C00A@0A@0AC3C0)^@)^[I@O@O=@D00A@4BC7BC2E[TA@8A@7B@6^@)AK7NE )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC4D*0A@0A@0AC3D80NF )@@G@@A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2DD#A@8AC8B@6^@)^@)^@)^@)^@)DDIE- EL NG )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC3CS0A@0A@0AC3CS)^@)^[INH )@@G@@@O@O=@D00A@4BC7BC2E[TA@9AC1B@6^@)A*2^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)NI )@@G@@^@)^@)^@)^@0A@0A@0BC4E@0A@0A@0AC3D)0A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2NJ )@@G@@DD#A@9AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0NK )@@G@@A@0A@0A@0A@0AC3JS0A@0A@0AC3JS)^@)^[I@O@O=@D00A@4BC7BC2E[TAC0AC0B@6^@)A83NL )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC5J*0A@0A@0AC3J*0NM )@@G@@A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2DD#AC0AK0B@6^@)^@)^@)^@)^@)DDIE- EL NN )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC2C80A@0A@0AC2C8)^@)^[INO )@@G@@@O@O=@D00A@4BC7BC2E[TAC1A@5B@6^@)BC1^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)NP )@@G@@^@)^@)^@)^@0A@0A@0BC5D)0A@0A@0AC2E@0A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2NQ )@@G@@DD#AC1AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0NR )@@G@@A@0A@0A@0A@0AC2CS0A@0A@0AC2CS)^@)^[I@O@O=@D00A@4BC7BC2E[TAC2A@5B@6^@1AC1NS )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC5E@0A@0A@0AC2D)0NT )@@G@@A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2DD#AC2AC1B@6^@)^@)^@)^@)^@)DDIE- EL NU )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC2JS0A@0A@0AC2JS)^@)^[INV )@@G@@@O@O=@D00A@4BC7BC2E[TA@1A@2B@7^@1AK4^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)NW )@@G@@^@)^@)^@)^@0A@0A@0BC6J*0A@0A@0AC2J*0A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2NX )@@G@@DD#A@1AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0NY )@@G@@A@0A@0A@0A@0AC1C80A@0A@0AC1C8)^@)^[I@O@O=@D00A@4BC7BC2E[TA@2A@2B@7^@1A)7NZ )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC6D)0A@0A@0AC1E@0OA )@@G@@A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2DD#A@2AC9B@7^@)^@)^@)^@)^@)DDIE- EL OB )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC1C)0A@0A@0AC1C))^@)^[IOC )@@G@@@O@O=@D00A@4BC7BC2E[TA@2AK6B@7^@1A05^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)OD )@@G@@^@)^@)^@)^@0A@0A@0BC6D80A@0A@0AC1D*0A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2OE )@@G@@DD#A@3AK3B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0OF )@@G@@A@0A@0A@0A@0AC1CC0A@0A@0AC1CC)^@)^[I@O@O=@D00A@4BC7BC2E[TA@4A@1B@7^@1B@9OG )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC6EK0A@0A@0AC1DK0OH )@@G@@A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2DD#A@4AK1B@7^@)^@)^@)^@)^@)DDIE- EL OI )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC0C80A@0A@0AC0C8)^@)^[IOJ )@@G@@@O@O=@D00A@4BC7BC2E[TA@5AC4B@7^@2AC9^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)OK )@@G@@^@)^@)^@)^@0A@0A@0BC7D)0A@0A@0AC0E@0A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2OL )@@G@@DD#A@5AK0B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0OM )@@G@@A@0A@0A@0A@0AC0C)0A@0A@0AC0C))^@)^[I@O@O=@D00A@4BC7BC2E[TA@6AC2B@7^@2AS9ON )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC7D80A@0A@0AC0D*0OO )@@G@@A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2DD#A@6AC8B@7^@)^@)^@)^@)^@)DDIE- EL OP )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC0CC0A@0A@0AC0CC)^@)^[IOQ )@@G@@@O@O=@D00A@4BC7BC2DD#A@7AC7B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)OR )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC0CC0A@0A@0AC0CC)^@)^[I@O@O=@D00A@4BC7BC2OS )@@G@@E[TA@8A@3B@7^@)AK4^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0OT )@@G@@B@7EC0A@0A@0AK0DS0A@0A@1A@8J*)^@1^[I@O@O=@D00A@4BC7BC2E[TA@8AK0B@7^@)AS7OU )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC8DS0A@0A@0A@9EC0OV )@@G@@A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2DD#A@8AK1B@7^@)^@)^@)^@)^@)DDIE- EL OW )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@9D@0A@0A@0A@9D@)^@)^[IOX )@@G@@@O@O=@D00A@4BC7BC2E[TA@9A@3B@7^@)A)7^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)OY )@@G@@^@)^@)^@)^@0A@0A@1A@8J*0A@0A@0A@0A@0A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2OZ )@@G@@E[TA@9AC5B@7^@)A*4^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1PA )@@G@@A@8J*0A@0A@0A@0A@0A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2DD#A@9AK1B@7^@)^@)PB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@8D@0PC )@@G@@A@0A@0A@8D@)^@)^[I@O@O=@D00A@4BC7BC2DD#AC0AK1B@7^@)^@)^@)^@)^@)DDIE- EL PD )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@8D@0A@0A@0A@8D@)^@)^[IPE )@@G@@@O@O=@D00A@4BC7BC2E[TAC1A@4B@7^@)BC0^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)PF )@@G@@^@)^@)^@)^@0A@0A@0BC0D*0A@0A@0AC7D80A@0A@1A@8J*)^@1^[I@O@O=@D00A@4BC7BC2PG )@@G@@DD#AC1AC9B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PH )@@G@@A@0A@0A@0A@0A@8C*0A@0A@0A@8C*)^@)^[I@O@O=@D00A@4BC7BC2DD#AC2AC8B@7^@)^@)PI )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@8C*0PJ )@@G@@A@0A@0A@8C*)^@)^[I@O@O=@D00A@4BC7BC2E[TAC2AK9B@7^@1AK5^@)^@)^@)C-PD1BCDIPK )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1BC9J*0A@0A@0AC7J*0A@0A@2AC6J*)^@2^[IPL )@@G@@@O@O=@D00A@4BC7BC2E[TA@1A@7B@8^@1AS0^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)PM )@@G@@^@)^@)^@)^@0A@0A@1A@0DS0A@0A@0A@7EC0A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2PN )@@G@@DD#A@1AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PO )@@G@@A@0A@0A@0A@0A@7D@0A@0A@0A@7D@)^@)^[I@O@O=@D00A@4BC7BC2E[TA@2AC9B@8^@1A01PP )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A@8D00A@0A@0A@7D00PQ )@@G@@A@0A@2AC6J*)^@0^[I@O@O=@D00A@4BC7BC2DD#A@2AK0B@8^@)^@)^@)^@)^@)DDIE- EL PR )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@7C*0A@0A@0A@7C*)^@)^[IPS )@@G@@@O@O=@D00A@4BC7BC2DD#A@3AK2B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)PT )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@6D@0A@0A@0A@6D@)^@)^[I@O@O=@D00A@4BC7BC2PU )@@G@@DD#A@4AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PV )@@G@@A@0A@0A@0A@0A@6D@0A@0A@0A@6D@)^@)^[I@O@O=@D00A@4BC7BC2E[TA@4AK1B@8^@2A@4PW )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC4D*0A@0A@0AC3D80PX )@@G@@A@0A@1A@8J*)^@1^[I@O@O=@D00A@4BC7BC2E[TA@5A@6B@8^@2AC5^@)^@)^@)C-PD1BCDIPY )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@8J*0A@0A@0A@0A@0A@0A@1A@8J*)^@0^[IPZ )@@G@@@O@O=@D00A@4BC7BC2DD#A@5AC9B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)QA )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@6CC0A@0A@0A@6CC)^@)^[I@O@O=@D00A@4BC7BC2QB )@@G@@E[TA@6A@9B@8^@2AS8^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1QC )@@G@@A@1EK0A@0A@0A@6DK0A@0A@1A@8J*)^@0^[I@O@O=@D00A@4BC7BC2DD#A@6AK1B@8^@)^@)QD )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@5C80QE )@@G@@A@0A@0A@5C8)^@)^[I@O@O=@D00A@4BC7BC2DD#A@7AK1B@8^@)^@)^@)^@)^@)DDIE- EL QF )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@5C80A@0A@0A@5C8)^@)^[IQG )@@G@@@O@O=@D00A@4BC7BC2DD#A@8AC8B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)QH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@5C80A@0A@0A@5C8)^@)^[I@O@O=@D00A@4BC7BC2QI )@@G@@E[TA@9AC9B@8^@)A*5^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1QJ )@@G@@BC3DS0A@0A@0AK2EC0A@0A@2AC6J*)^@3^[I@O@O=@D00A@4BC7BC2DD#A@9AK1B@8^@)^@)QK )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@5C80QL )@@G@@A@0A@0A@5C8)^@)^[I@O@O=@D00A@4BC7BC2E[TAC0AC8B@8^@)A86^@)^@)^@)C-PD1BCDIQM )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@2EK0A@0A@0A@5DK0A@0A@1A@8J*)^@3^[IQN )@@G@@@O@O=@D00A@4BC7BC2DD#AC0AC9B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)QO )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@5CC0A@0A@0A@5CC)^@)^[I@O@O=@D00A@4BC7BC2QP )@@G@@DD#AC1AC7B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QQ )@@G@@A@0A@0A@0A@0A@4D@0A@0A@0A@4D@)^@)^[I@O@O=@D00A@4BC7BC2E[TAC1AK2B@8^@1A@1QR )@@G@@^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@3DS0A@0A@0A@4EC0QS )@@G@@A@0A@1A@8J*)^@3^[I@O@O=@D00A@4BC7BC2E[TAC2AC9B@8^@1AC8^@)^@)^@)C-PD1BCDIQT )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@3D80A@0A@0A@4D*0A@0A@1A@8J*)^@3^[IQU )@@G@@@O@O=@D00A@4BC7BC2DD#AC2AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)QV )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@4C)0A@0A@0A@4C))^@)^[I@O@O=@D00A@4BC7BC2QW )@@G@@E[TA@1AC2B@9^@1AS4^@)^@)^@)C-PD1BCDI ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1QX )@@G@@A@8J*0A@0A@0A@0A@0A@0A@1A@8J*)^@2^[I@O@O=@D00A@4BC7BC2DD#A@2A@1B@9^@)^@)QY )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@3C80QZ )@@G@@A@0A@0A@3C8)^@)^[I@O@O=@D00A@4BC7BC2E[TA@2AC0B@9^@1A*5^@)^@)^@)C-PD1BCDIRA )@@G@@ ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0AC1AC2EC0A@0A@0A@3E@0A@0AC1AC6D0)^@1^[IRB )@@G@@@O@O=@D00A@4BC8A@1D-KA@8AK3A89BC0A88^@)^@)^@)D-JCDI^[KELDD1#DDKCDG^@)^@)RC )@@G@@^@)^@)^@)^@0A@0A02A*0JS0A@0A@0A@0A@0A@0A02A*0A@)^@0^[I@O@O=@D00A@4BC8A@1RD )@@G@@D-KA@1AC7B@0A@5A07^@)^@)^@)C(#DT ELHCDID0)DLJD[ICDOD[[D0)D*)^@)^@0A@0A02RE )@@G@@A*0JS0A@0A@0A@0A@0A@0A02A*0A@)^@0^[I@O@O=@D00A@4BC8A@1E[TAC2AK3B@0^@1A)4RF )@@G@@^@)^@0A@0C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@3A@0J*0A@0A@0A@0A@0RG )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4BC8A@1E[TA@2A@5B@1^@1A81^@)^@0A@0C(#DT ELHRH )@@G@@CDID0?^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A@0J*0A@0A@0A@0A@0A@0A@3A@0J*)^@0^[IRI )@@G@@@O@O=@D00A@4BC8A@1DD#A@3AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)RJ )@@G@@^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AK9D@0A@0A@0AK9D@)^@)^[I@O@O=@D00A@4BC8A@1RK )@@G@@E[TA@3AK4B@1^@2A@4^@)^@0A@0C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2RL )@@G@@A80DS0A@0A@0AK9EC0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4BC8A@1E[TA@4AC0B@1^@2AC7RM )@@G@@^@)^@0A@0C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@3A@0J*0A@0A@0A@0A@0RN )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4BC8A@1DD#A@4AK0B@1^@)^@)^@)^@)^@)DDIE- EL RO )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@0AK8CS0A@0A@0AK8CS)^@)^[IRP )@@G@@@O@O=@D00A@4BC8A@1E[TA@5A@6B@1^@2AS5^@)^@0A@0C(#DT ELHCDID0?^[E^@)^@)^@)RQ )@@G@@^@)^@)^@)^@0A@0A@2A81E@0A@0A@0AK8D)0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4BC8A@1RR )@@G@@DD#A@5AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RS )@@G@@A@0JS0A@0A@0AK7C00A@0A@0AK7C0)^@)^[I@O@O=@D00A@4BC8A@1E[TA@6A@9B@1^@)^@7RT )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2A82D*0A@0A@0AK7D80RU )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@6AC7B@1^@)^@)^@)^@)^@)DDIE- EL RV )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7A@0A@0A@0AK7A@)^@)^[IRW )@@G@@@O@O=@D00A@4BC8A@1E[TA@7A@3B@1^@)AK5^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)RX )@@G@@^@)^@)^@)^@0A@0A@2A83J*0A@0A@0AK7J*0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1RY )@@G@@DD#A@7AK0B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RZ )@@G@@A@0A@0A@0A@0AK6AS0A@0A@0AK6AS)^@)^[I@O@O=@D00A@4BC8A@1E[TA@8A@5B@1^@)A)8SA )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2A83E@0A@0A@0AK6D)0SB )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@8AC9B@1^@)^@)^@)^@)^@)DDIE- EL SC )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK5A00A@0A@0AK5A0)^@)^[ISD )@@G@@@O@O=@D00A@4BC8A@1E[TA@9AC0B@1^@)A83^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)SE )@@G@@^@)^@)^@)^@0A@0A@2A84D*0A@0A@0AK5D80A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1SF )@@G@@DD#A@9AK1B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0SG )@@G@@A@0A@0A@0A@0AK4BC0A@0A@0AK4BC)^@)^[I@O@O=@D00A@4BC8A@1E[TAC0A@6B@1^@)BC1SH )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2A85DK0A@0A@0AK4EK0SI )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#AC0AC9B@1^@)^@)^@)^@)^@)DDIE- EL SJ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK4AK0A@0A@0AK4AK)^@)^[ISK )@@G@@@O@O=@D00A@4BC8A@1E[TAC1A@3B@1^@1AC1^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)SL )@@G@@^@)^@)^@)^@0A@0A@2A85EC0A@0A@0AK4DS0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1SM )@@G@@DD#AC1AC8B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0SN )@@G@@A@0A@0A@0A@0AK3A*0A@0A@0AK3A*)^@)^[I@O@O=@D00A@4BC8A@1E[TAC2A@9B@1^@1AS5SO )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2A86D00A@0A@0AK3D00SP )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#AC2AC6B@1^@)^@)^@)^@)^@)DDIE- EL SQ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2B@0A@0A@0AK2B@)^@)^[ISR )@@G@@@O@O=@D00A@4BC8A@1E[TA@1A@4B@2^@1A)9^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)SS )@@G@@^@)^@)^@)^@0A@0A@2A87DS0A@0A@0AK2EC0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1ST )@@G@@DD#A@1AC8B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0SU )@@G@@A@0A@0A@0A@0AK2AK0A@0A@0AK2AK)^@)^[I@O@O=@D00A@4BC8A@1E[TA@2A@3B@2^@1A82SV )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2A87EC0A@0A@0AK2DS0SW )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@2AC7B@2^@)^@)^@)^@)^@)DDIE- EL SX )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1A*0A@0A@0AK1A*)^@)^[ISY )@@G@@@O@O=@D00A@4BC8A@1E[TA@3A@3B@2^@1BC2^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)SZ )@@G@@^@)^@)^@)^@0A@0A@2A88D00A@0A@0AK1D00A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1TA )@@G@@DD#A@3AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0TB )@@G@@A@0A@0A@0A@0AK0B@0A@0A@0AK0B@)^@)^[I@O@O=@D00A@4BC8A@1E[TA@4A@6B@2^@2AC6TC )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2A89DS0A@0A@0AK0EC0TD )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@4AC9B@2^@)^@)^@)^@)^@)DDIE- EL TE )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0AC0A@0A@0AK0AC)^@)^[ITF )@@G@@@O@O=@D00A@4BC8A@1E[TA@5A@3B@2^@2AS4^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)TG )@@G@@^@)^@)^@)^@0A@0A@2A89EK0A@0A@0AK0DK0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1TH )@@G@@DD#A@5AC8B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0TI )@@G@@A@0A@0A@0A@0AC9A)0A@0A@0AC9A))^@)^[I@O@O=@D00A@4BC8A@1E[TA@5AK8B@2^@2A*3TJ )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2B@0D80A@0A@0AC9D*0TK )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@6AC7B@2^@)^@)^@)^@)^@)DDIE- EL TL )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC8A80A@0A@0AC8A8)^@)^[ITM )@@G@@@O@O=@D00A@4BC8A@1E[TA@7A@7B@2^@)AK6^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)TN )@@G@@^@)^@)^@)^@0A@0A@2B@1D)0A@0A@0AC8E@0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1TO )@@G@@DD#A@7AK0B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0TP )@@G@@A@0A@0A@0A@0AC8A@0A@0A@0AC8A@)^@)^[I@O@O=@D00A@4BC8A@1E[TA@8A@2B@2^@)A)4TQ )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2B@2J*0A@0A@0AC8J*0TR )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@8AC7B@2^@)^@)^@)^@)^@)DDIE- EL TS )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC7AS0A@0A@0AC7AS)^@)^[ITT )@@G@@@O@O=@D00A@4BC8A@1E[TA@9A@8B@2^@)A81^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)TU )@@G@@^@)^@)^@)^@0A@0A@2B@2E@0A@0A@0AC7D)0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1TV )@@G@@DD#A@9AK0B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0TW )@@G@@A@0A@0A@0A@0AC6A*0A@0A@0AC6A*)^@)^[I@O@O=@D00A@4BC8A@1E[TAC0A@1B@2^@)B@8TX )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2B@3D00A@0A@0AC6D00TY )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#AC0AK1B@2^@)^@)^@)^@)^@)DDIE- EL TZ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC5B@0A@0A@0AC5B@)^@)^[IUA )@@G@@@O@O=@D00A@4BC8A@1E[TAC1A@3B@2^@1AC1^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)UB )@@G@@^@)^@)^@)^@0A@0A@2B@4DS0A@0A@0AC5EC0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1UC )@@G@@DD#AC1AC8B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UD )@@G@@A@0A@0A@0A@0AC5AC0A@0A@0AC5AC)^@)^[I@O@O=@D00A@4BC8A@1E[TAC2A@3B@2^@1AS1UE )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2B@4EK0A@0A@0AC5DK0UF )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#AC2AK1B@2^@)^@)^@)^@)^@)DDIE- EL UG )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC4A)0A@0A@0AC4A))^@)^[IUH )@@G@@@O@O=@D00A@4BC8A@1E[TA@1A@6B@3^@1A*2^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)UI )@@G@@^@)^@)^@)^@0A@0A@2B@5D80A@0A@0AC4D*0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1UJ )@@G@@DD#A@1AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UK )@@G@@A@0A@0A@0A@0AC3A80A@0A@0AC3A8)^@)^[I@O@O=@D00A@4BC8A@1E[TA@2A@3B@3^@1A82UL )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2B@6D)0A@0A@0AC3E@0UM )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@2AC7B@3^@)^@)^@)^@)^@)DDIE- EL UN )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC3A@0A@0A@0AC3A@)^@)^[IUO )@@G@@@O@O=@D00A@4BC8A@1E[TA@3A@3B@3^@1BC3^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)UP )@@G@@^@)^@)^@)^@0A@0A@2B@7J*0A@0A@0AC3J*0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1UQ )@@G@@DD#A@3AC7B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UR )@@G@@A@0A@0A@0A@0AC2AS0A@0A@0AC2AS)^@)^[I@O@O=@D00A@4BC8A@1E[TA@4A@8B@3^@2AC8US )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2B@7E@0A@0A@0AC2D)0UT )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@4AC9B@3^@)^@)^@)^@)^@)DDIE- EL UU )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC1A*0A@0A@0AC1A*)^@)^[IUV )@@G@@@O@O=@D00A@4BC8A@1E[TA@5A@3B@3^@2AS5^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)UW )@@G@@^@)^@)^@)^@0A@0A@2B@8D00A@0A@0AC1D00A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1UX )@@G@@DD#A@5AC8B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UY )@@G@@A@0A@0A@0A@0AC0B@0A@0A@0AC0B@)^@)^[I@O@O=@D00A@4BC8A@1E[TA@6A@2B@3^@2A*6UZ )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2B@9DS0A@0A@0AC0EC0VA )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@6AK0B@3^@)^@)^@)^@)^@)DDIE- EL VB )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC0AC0A@0A@0AC0AC)^@)^[IVC )@@G@@@O@O=@D00A@4BC8A@1E[TA@7A@7B@3^@)^@4^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)VD )@@G@@^@)^@)^@)^@0A@0A@2B@9EK0A@0A@0AC0DK0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1VE )@@G@@DD#A@7AC9B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VF )@@G@@A@0A@0A@0A@0A@9A)0A@0A@0A@9A))^@)^[I@O@O=@D00A@4BC8A@1E[TA@8AC1B@3^@)AK9VG )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2BC0D80A@0A@0A@9D*0VH )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@8AC8B@3^@)^@)^@)^@)^@)DDIE- EL VI )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@8A80A@0A@0A@8A8)^@)^[IVJ )@@G@@@O@O=@D00A@4BC8A@1E[TA@9A@9B@3^@)A)8^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)VK )@@G@@^@)^@)^@)^@0A@0A@2BC1D)0A@0A@0A@8E@0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1VL )@@G@@DD#A@9AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VM )@@G@@A@0A@0A@0A@0A@7BC0A@0A@0A@7BC)^@)^[I@O@O=@D00A@4BC8A@1E[TAC0A@4B@3^@)A07VN )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2BC2DK0A@0A@0A@7EK0VO )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#AC0AC9B@3^@)^@)^@)^@)^@)DDIE- EL VP )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@7AK0A@0A@0A@7AK)^@)^[IVQ )@@G@@@O@O=@D00A@4BC8A@1E[TAC1AC1B@3^@)BC5^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)VR )@@G@@^@)^@)^@)^@0A@0A@2BC2EC0A@0A@0A@7DS0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1VS )@@G@@DD#AC1AK1B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VT )@@G@@A@0A@0A@0A@0A@6A*0A@0A@0A@6A*)^@)^[I@O@O=@D00A@4BC8A@1E[TAC2A@5B@3^@1A@9VU )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2BC3D00A@0A@0A@6D00VV )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#AC2AK0B@3^@)^@)^@)^@)^@)DDIE- EL VW )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@5A80A@0A@0A@5A8)^@)^[IVX )@@G@@@O@O=@D00A@4BC8A@1E[TA@1A@4B@4^@1AK8^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)VY )@@G@@^@)^@)^@)^@0A@0A@2BC4D)0A@0A@0A@5E@0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1VZ )@@G@@DD#A@1AC7B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0WA )@@G@@A@0A@0A@0A@0A@5A@0A@0A@0A@5A@)^@)^[I@O@O=@D00A@4BC8A@1E[TA@2A@2B@4^@1A*0WB )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2BC5J*0A@0A@0A@5J*0WC )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@2AK0B@4^@)^@)^@)^@)^@)DDIE- EL WD )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@4AS0A@0A@0A@4AS)^@)^[IWE )@@G@@@O@O=@D00A@4BC8A@1E[TA@3A@2B@4^@1A81^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)WF )@@G@@^@)^@)^@)^@0A@0A@2BC5E@0A@0A@0A@4D)0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1WG )@@G@@DD#A@3AK1B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0WH )@@G@@A@0A@0A@0A@0A@3A*0A@0A@0A@3A*)^@)^[I@O@O=@D00A@4BC8A@1E[TA@4A@4B@4^@1BC4WI )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2BC6D00A@0A@0A@3D00WJ )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@4AC9B@4^@)^@)^@)^@)^@)DDIE- EL WK )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@2B@0A@0A@0A@2B@)^@)^[IWL )@@G@@@O@O=@D00A@4BC8A@1E[TA@5A@3B@4^@2AC4^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)WM )@@G@@^@)^@)^@)^@0A@0A@2BC7DS0A@0A@0A@2EC0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1WN )@@G@@DD#A@5AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0WO )@@G@@A@0A@0A@0A@0A@2A@0A@0A@0A@2A@)^@)^[I@O@O=@D00A@4BC8A@1E[TA@6A@6B@4^@2AS7WP )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2BC8J*0A@0A@0A@2J*0WQ )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DD#A@6AK1B@4^@)^@)^@)^@)^@)DDIE- EL WR )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@1AS0A@0A@0A@1AS)^@)^[IWS )@@G@@@O@O=@D00A@4BC8A@1DD#A@7AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)WT )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@1AS0A@0A@0A@1AS)^@)^[I@O@O=@D00A@4BC8A@1WU )@@G@@E[TA@7AK0B@4^@)AC4^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@2WV )@@G@@BC7D*0A@0A@0A@2D80A@0A@3A@0^C)^@1^[I@O@O=@D00A@4BC8A@1E[TA@8A@9B@4^@)AK8WW )@@G@@^@)^@)^@)C(#DT ELHCDID0?^[E^@)^@)^@)^@)^@)^@)^@0A@0A@3A@0^C0A@0A@0A@0A@0WX )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4BC8A@1DL AC0AC5B@4A81A@3^@)^@)^@)CTMC(^DDOWY )@@G@@^[]CDG^[JD0)D1^^@)^@)^@)^@)^@0A@0A@0B@3AK0A@0A@0A@0A@0A@0A@0B@3AK)^@0^[IWZ )@@G@@@O@O=@D00A@4BC8AC1D-KA@8AK3A89BC0A89^@)^@)^@)D-JCDI^[KELDD1#DDKCDG^@)^@)XA )@@G@@^@)^@)^@)^@0A@0A*6BC0JS0A@0A@0A@0A@0A@0A*6BC0A@)^@0^[I@O@O=@D00A@4BC8AC1XB )@@G@@D-KA@1AC7B@0A@5A81^@)^@)^@)C(CELHCDI^[HCDMDS)C*)^@)^@)^@)^@)^@)^@0A@0A*6XC )@@G@@BC0JS0A@0A@0A@0A@0A@0A*6BC0A@)^@0^[I@O@O=@D00A@4BC8AC1D-KA@9A@5B@0^@)^@)XD )@@G@@^@)^@0A@0C(CELHCDI ))D([ELF^@)^@)^@)^@)AC1A03B@0A@0A02A*0JS0A@0A@0A@0A@0XE )@@G@@A@0A02A*0A@)^@0^[I@O@O=@D00A@4BC8AC1D-KA@1AC5B@1AS5AC8^@)^@)^@)C(CELHCDIXF )@@G@@^[HCDMDS)C*)^@)^@)^@)AC3A*1B@0A@0A02A*0JS0A@0A@0A@0A@0A@0A02A*0A@)^@0^[IXG )@@G@@@O@O=@D00A@4BC8AC1DD#A@2AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)XH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*9A80A@0A@0A*9A8)^@)^[I@O@O=@D00A@4BC8AC1XI )@@G@@DD#A@3AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0XJ )@@G@@A@0A@0A@0A@0A*9A80A@0A@0A*9A8)^@)^[I@O@O=@D00A@4BC8AC1DD#A@4AC9B@2^@)^@)XK )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*9A80XL )@@G@@A@0A@0A*9A8)^@)^[I@O@O=@D00A@4BC8AC1DD#A@5AC8B@2^@)^@)^@)^@)^@)DDIE- EL XM )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*9A80A@0A@0A*9A8)^@)^[IXN )@@G@@@O@O=@D00A@4BC8AC1E[TA@6AC5B@2^@)AC1^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)XO )@@G@@^@)^@)^@)^@0A@0A@9A01DS0A@0A@2AS8EC0A@0AC2A@0^C)^@3^[I@O@O=@D00A@4BC8AC1XP )@@G@@DD#A@6AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0XQ )@@G@@A@0A@0A@0A@0A*7AS0A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1DD#A@7AK0B@2^@)^@)XR )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0XS )@@G@@A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1DD#A@8AC7B@2^@)^@)^@)^@)^@)DDIE- EL XT )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0A@0A@0A*7AS)^@)^[IXU )@@G@@@O@O=@D00A@4BC8AC1DD#A@9AK0B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)XV )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1XW )@@G@@DD#AC0AK1B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0XX )@@G@@A@0A@0A@0A@0A*7AS0A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1DD#AC1AC8B@2^@)^@)XY )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0XZ )@@G@@A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1DD#AC2AK1B@2^@)^@)^@)^@)^@)DDIE- EL YA )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0A@0A@0A*7AS)^@)^[IYB )@@G@@@O@O=@D00A@4BC8AC1DD#A@1AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)YC )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1YD )@@G@@DD#A@2AC7B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0YE )@@G@@A@0A@0A@0A@0A*7AS0A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1DD#A@3AC7B@3^@)^@)YF )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0YG )@@G@@A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1DD#A@4AC9B@3^@)^@)^@)^@)^@)DDIE- EL YH )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0A@0A@0A*7AS)^@)^[IYI )@@G@@@O@O=@D00A@4BC8AC1DD#A@5AC8B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)YJ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1YK )@@G@@DD#A@6AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0YL )@@G@@A@0A@0A@0A@0A*7AS0A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1DD#A@7AC9B@3^@)^@)YM )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0YN )@@G@@A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1DD#A@8AC8B@3^@)^@)^@)^@)^@)DDIE- EL YO )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0A@0A@0A*7AS)^@)^[IYP )@@G@@@O@O=@D00A@4BC8AC1DD#A@9AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)YQ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1YR )@@G@@E[TA@9AK8B@3^@)A05^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0YS )@@G@@A@0A@0A@0A@6A@0J*0A@0A@6A@0^C)^@7^[I@O@O=@D00A@4BC8AC1DD#AC0AC9B@3^@)^@)YT )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7AS0YU )@@G@@A@0A@0A*7AS)^@)^[I@O@O=@D00A@4BC8AC1E[TAC1AC1B@3^@)BC5^@)^@)^@)C(CELHCDIYV )@@G@@ ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@6AK5EK0A@0A@3A84DK0A@0AC0A@0^C)^@7^[IYW )@@G@@@O@O=@D00A@4BC8AC1DD#AC1AK1B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)YX )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*5A80A@0A@0A*5A8)^@)^[I@O@O=@D00A@4BC8AC1YY )@@G@@E[TAC1AK9B@3^@1A@5^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3YZ )@@G@@A)4D)0A@0A@0A*5E@0A@0A@4A@0^C)^@7^[I@O@O=@D00A@4BC8AC1DD#AC2AK0B@3^@)^@)ZA )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*4BC0ZB )@@G@@A@0A@0A*4BC)^@)^[I@O@O=@D00A@4BC8AC1DD#A@1AC7B@4^@)^@)^@)^@)^@)DDIE- EL ZC )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*4BC0A@0A@0A*4BC)^@)^[IZD )@@G@@@O@O=@D00A@4BC8AC1DD#A@2AK0B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)ZE )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*4BC0A@0A@0A*4BC)^@)^[I@O@O=@D00A@4BC8AC1ZF )@@G@@E[TA@2AK3B@4^@1A05^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2ZG )@@G@@AS5D)0A@0A@1A04E@0A@0A@4A@0^C)^@7^[I@O@O=@D00A@4BC8AC1DD#A@3AK1B@4^@)^@)ZH )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*4AS0ZI )@@G@@A@0A@0A*4AS)^@)^[I@O@O=@D00A@4BC8AC1E[TA@4A@3B@4^@1BC3^@)^@)^@)C(CELHCDIZJ )@@G@@ ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC5E@0A@0A@0A*4D)0A@0A@1A*0^C)^@7^[IZK )@@G@@@O@O=@D00A@4BC8AC1DD#A@4AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)ZL )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*4A@0A@0A@0A*4A@)^@)^[I@O@O=@D00A@4BC8AC1ZM )@@G@@DD#A@5AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ZN )@@G@@A@0A@0A@0A@0A*4A@0A@0A@0A*4A@)^@)^[I@O@O=@D00A@4BC8AC1E[TA@6A@6B@4^@2AS7ZO )@@G@@^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0AS5AK9EC0A@0A@1A@8J*0ZP )@@G@@A@0AS6AS7EC)^@7^[I@O@O=@D00A@4BC8AC1DD#A@6AK1B@4^@)^@)^@)^@)^@)DDIE- EL ZQ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)5AK0A@0A@0A)5AK)^@)^[IZR )@@G@@@O@O=@D00A@4BC8AC1DD#A@7AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)ZS )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)5AK0A@0A@0A)5AK)^@)^[I@O@O=@D00A@4BC8AC1ZT )@@G@@DD#A@8AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ZU )@@G@@A@0A@0A@0A@0A)5AK0A@0A@0A)5AK)^@)^[I@O@O=@D00A@4BC8AC1ETOA@9AC2B@4ETO^@)ZV )@@G@@^@)^@)^@)AC0A@1B@2 *1AK0AC8AS)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0ZW )@@G@@A@0A@0A@0A@)^@6^[I@O@O=@D00A@4BC8AC1E[[A@9AC4B@4E[[^@)^@)^@)^@)A@9AC3B@4ZX )@@G@@ *0AK0AC8A*)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@6^[IZY )@@G@@@O@O=@D00A@4BC8AC1DL A@9AC7B@4A80B@3^@)^@)^@)DDIE))D1JE))C-PC*)E9CDDGC*)ZZ )@@G@@C- C0)^@)^@0A@0A@8A@6DS0A@0A@8A@6AK0A@0A@0A@0A@)^@6^[I@O@O=@D00A@4BC8AC1AA )@@G@@DD[A@9AC7B@4DD[^@)^@)^@)^@)CD^DK)C-PC*)E-J^[EC*)^@)^@)^@)^@)^@)^@0A@0A@0AB )@@G@@A@0A@0A@0A@8A@6DS0A@0A@8A@6DS)^@6^[I@O@O=@D00A@4BC8AC1DD#A@9AK0B@4^@)^@)AC )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AK0AD )@@G@@A@0A@0A)3AK)^@)^[I@O@O=@D00A@4BC8AC1DD#AC0AK2B@4^@)^@)^@)^@)^@)DDIE- EL AE )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AK0A@0A@0A)3AK)^@)^[IAF )@@G@@@O@O=@D00A@4BC8AC1DD#AC1AK7B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)AG )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AK0A@0A@0A)3AK)^@)^[I@O@O=@D00A@4BC8AC1AH )@@G@@DD#AC2AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AI )@@G@@A@0A@0A@0A@0A)3AK0A@0A@0A)3AK)^@)^[I@O@O=@D00A@4BC8AC1DD#A@1AK5B@5^@)^@)AJ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AK0AK )@@G@@A@0A@0A)3AK)^@)^[I@O@O=@D00A@4BC8AC1DD#A@2AK0B@5^@)^@)^@)^@)^@)DDIE- EL AL )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AK0A@0A@0A)3AK)^@)^[IAM )@@G@@@O@O=@D00A@4BC8AC1DD#A@3AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)AN )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AK0A@0A@0A)3AK)^@)^[I@O@O=@D00A@4BC8AC1AO )@@G@@DD#A@4AC9B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AP )@@G@@A@0A@0A@0A@0A)3AK0A@0A@0A)3AK)^@)^[I@O@O=@D00A@4BC8AC1DD#A@5AK1B@5^@)^@)AQ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AK0AR )@@G@@A@0A@0A)3AK)^@)^[I@O@O=@D00A@4BC8AC1DD#A@6AK0B@5^@)^@)^@)^@)^@)DDIE- EL AS )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AK0A@0A@0A)3AK)^@)^[IAT )@@G@@@O@O=@D00A@4BC8AC1DD#A@7AC9B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)AU )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AK0A@0A@0A)3AK)^@)^[I@O@O=@D00A@4BC8AC1AV )@@G@@DD#A@8AC6B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AW )@@G@@A@0A@0A@0A@0A)3AK0A@0A@0A)3AK)^@)^[I@O@O=@D00A@4BC8AC1DD#A@9AC9B@5^@)^@)AX )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AK0AY )@@G@@A@0A@0A)3AK)^@)^[I@O@O=@D00A@4BC8AC1DD#AC0AK2B@5^@)^@)^@)^@)^@)DDIE- EL AZ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3CK0A@0A@0A)3CK)^@)^[IBA )@@G@@@O@O=@D00A@4BC8AC1E[TAC1AC3B@5^@)BC6^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)BB )@@G@@^@)^@)^@)^@0A@0A@9A@9D80A@0A@7A)0D*0A@0AC6A*0J*)^@5^[I@O@O=@D00A@4BC8AC1BC )@@G@@DD#AC1AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BD )@@G@@A@0A@0A@0A@0A)0DC0A@0A@0A)0DC)^@)^[I@O@O=@D00A@4BC8AC1DD#AC2AC3B@5^@)^@)BE )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0DC0BF )@@G@@A@0A@0A)0DC)^@)^[I@O@O=@D00A@4BC8AC1DD#A@1AC5B@6^@)^@)^@)^@)^@)DDIE- EL BG )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0DC0A@0A@0A)0DC)^@)^[IBH )@@G@@@O@O=@D00A@4BC8AC1DD[A@1AS0B@6DD[^@)^@)^@)^@)CD^DK)C-PC*)E-J^[^C(A^@)^@)BI )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0B@1EC0A@0A@0B@1EC)^@5^[I@O@O=@D00A@4BC8AC1BJ )@@G@@DD#A@1AS0B@6DD#^@)^@)^@)^@)CD^DK)C-PC*)E-J^[^C(A^@)^@)^@)^@)^@)^@0A@0A@0BK )@@G@@A@0A@0A@0A@0A)0EK0A@0A@0A)0EK)^@5^[I@O@O=@D00A@4BC8AC1DD#A@2AK0B@6^@)^@)BL )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0DC0BM )@@G@@A@0A@0A)0DC)^@)^[I@O@O=@D00A@4BC8AC1DD#A@3AK0B@6^@)^@)^@)^@)^@)DDIE- EL BN )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0DC0A@0A@0A)0DC)^@)^[IBO )@@G@@@O@O=@D00A@4BC8AC1DD#A@4AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)BP )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0DC0A@0A@0A)0DC)^@)^[I@O@O=@D00A@4BC8AC1BQ )@@G@@DD#A@5AK1B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BR )@@G@@A@0A@0A@0A@0A)0DC0A@0A@0A)0DC)^@)^[I@O@O=@D00A@4BC8AC1DD#A@6AC6B@6^@)^@)BS )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0DC0BT )@@G@@A@0A@0A)0DC)^@)^[I@O@O=@D00A@4BC8AC1DD#A@7AC8B@6^@)^@)^@)^@)^@)DDIE- EL BU )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0DC0A@0A@0A)0DC)^@)^[IBV )@@G@@@O@O=@D00A@4BC8AC1E[TA@8AC2B@6^@)AS1^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)BW )@@G@@^@)^@)^@)^@0A@0A@5A*4D80A@0A@2A)5D*0A@0A@8A@0J*)^@5^[I@O@O=@D00A@4BC8AC1BX )@@G@@DD#A@8AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BY )@@G@@A@0A@0A@0A@0AS9C*0A@0A@0AS9C*)^@)^[I@O@O=@D00A@4BC8AC1E[TA@8AC9B@6^@)AS5BZ )@@G@@^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@9A00D00A@0A@0AS9D00CA )@@G@@A@0AC0A@0J*)^@4^[I@O@O=@D00A@4BC8AC1DD#A@9AC8B@6^@)^@)^@)^@)^@)DDIE- EL CB )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS7CC0A@0A@0AS7CC)^@)^[ICC )@@G@@@O@O=@D00A@4BC8AC1DD#AC0AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)CD )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS7CC0A@0A@0AS7CC)^@)^[I@O@O=@D00A@4BC8AC1CE )@@G@@DD#AC1AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0CF )@@G@@A@0A@0A@0A@0AS7CC0A@0A@0AS7CC)^@)^[I@O@O=@D00A@4BC8AC1DD#AC2AC1B@6^@)^@)CG )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS7CC0CH )@@G@@A@0A@0AS7CC)^@)^[I@O@O=@D00A@4BC8AC1E[TA@1A@2B@7^@1AK4^@)^@)^@)C(CELHCDICI )@@G@@ ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A*1D80A@0A@1A)8D*0A@0A@5A@0J*)^@4^[ICJ )@@G@@@O@O=@D00A@4BC8AC1DD#A@1AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)CK )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS6CS0A@0A@0AS6CS)^@)^[I@O@O=@D00A@4BC8AC1CL )@@G@@DD#A@2AC9B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0CM )@@G@@A@0A@0A@0A@0AS6CS0A@0A@0AS6CS)^@)^[I@O@O=@D00A@4BC8AC1E[TA@3A@5B@7^@1A80CN )@@G@@^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4AK7D*0A@0A@0A82D80CO )@@G@@A@0A@5A@0J*)^@5^[I@O@O=@D00A@4BC8AC1DD#A@3AK3B@7^@)^@)^@)^@)^@)DDIE- EL CP )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS5CK0A@0A@0AS5CK)^@)^[ICQ )@@G@@@O@O=@D00A@4BC8AC1E[TA@4AC0B@7^@1BC6^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)CR )@@G@@^@)^@)^@)^@0A@0AC2A04EC0A@0A@0AS5DS0A@0AC3A@0J*)^@4^[I@O@O=@D00A@4BC8AC1CS )@@G@@DD#A@4AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0CT )@@G@@A@0A@0A@0A@0AS2JS0A@0A@0AS2JS)^@)^[I@O@O=@D00A@4BC8AC1DD#A@5AK0B@7^@)^@)CU )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2JS0CV )@@G@@A@0A@0AS2JS)^@)^[I@O@O=@D00A@4BC8AC1E[TA@6AC5B@7^@2A)0^@)^@)^@)C(CELHCDICW )@@G@@ ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5AS6J*0A@0A@0A04J*0A@0A@6A@0J*)^@1^[ICX )@@G@@@O@O=@D00A@4BC8AC1DD#A@6AC8B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)CY )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0C80A@0A@0AS0C8)^@)^[I@O@O=@D00A@4BC8AC1CZ )@@G@@DD#A@7AC7B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0DA )@@G@@A@0A@0A@0A@0AS0C80A@0A@0AS0C8)^@)^[I@O@O=@D00A@4BC8AC1DD#A@8AK1B@7^@)^@)DB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0C80DC )@@G@@A@0A@0AS0C8)^@)^[I@O@O=@D00A@4BC8AC1E[TA@9A@3B@7^@)A)7^@)^@)^@)C(CELHCDIDD )@@G@@ ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@8A@7EK0A@0A@0BC2DK0A@0A@9A@0J*)^@2^[IDE )@@G@@@O@O=@D00A@4BC8AC1DD#A@9AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)DF )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8C80A@0A@0AK8C8)^@)^[I@O@O=@D00A@4BC8AC1DG )@@G@@DD#AC0AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0DH )@@G@@A@0A@0A@0A@0AK8C80A@0A@0AK8C8)^@)^[I@O@O=@D00A@4BC8AC1E[TAC1AC0B@7^@)BC4DI )@@G@@^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5A)2D80A@0A@0A*7D*0DJ )@@G@@A@0A@6A@0J*)^@1^[I@O@O=@D00A@4BC8AC1DD#AC1AC9B@7^@)^@)^@)^@)^@)DDIE- EL DK )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7CS0A@0A@0AK7CS)^@)^[IDL )@@G@@@O@O=@D00A@4BC8AC1DD#AC2AC8B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)DM )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7CS0A@0A@0AK7CS)^@)^[I@O@O=@D00A@4BC8AC1DN )@@G@@DD#A@1AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0DO )@@G@@A@0A@0A@0A@0AK7CS0A@0A@0AK7CS)^@)^[I@O@O=@D00A@4BC8AC1DD#A@2AK0B@8^@)^@)DP )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7CS0DQ )@@G@@A@0A@0AK7CS)^@)^[I@O@O=@D00A@4BC8AC1DD#A@3AK2B@8^@)^@)^@)^@)^@)DDIE- EL DR )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7CS0A@0A@0AK7CS)^@)^[IDS )@@G@@@O@O=@D00A@4BC8AC1E[TA@4AC2B@8^@1BC7^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)DT )@@G@@^@)^@)^@)^@0A@0AC0A03D00A@0A@1AS6D00A@0AC2A@0J*)^@4^[I@O@O=@D00A@4BC8AC1DU )@@G@@DD#A@4AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0DV )@@G@@A@0A@0A@0A@0AK4C80A@0A@0AK4C8)^@)^[I@O@O=@D00A@4BC8AC1DD#A@5AC9B@8^@)^@)DW )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK4C80DX )@@G@@A@0A@0AK4C8)^@)^[I@O@O=@D00A@4BC8AC1DD#A@6AK1B@8^@)^@)^@)^@)^@)DDIE- EL DY )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK4C80A@0A@0AK4C8)^@)^[IDZ )@@G@@@O@O=@D00A@4BC8AC1DD#A@7AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)EA )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK4C80A@0A@0AK4C8)^@)^[I@O@O=@D00A@4BC8AC1EB )@@G@@E[TA@8AC5B@8^@)AS1^@)^@)^@)C(CELHCDI ))D*)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@9EC )@@G@@A@1DS0A@0A@0BC8EC0A@0AC0A@0J*)^@4^[I@O@O=@D00A@4BC8AC1DD#A@8AC8B@8^@)^@)ED )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2C)0EE )@@G@@A@0A@0AK2C))^@)^[I@O@O=@D00A@4BC8AC1DD#A@9AK1B@8^@)^@)^@)^@)^@)DDIE- EL EF )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2C)0A@0A@0AK2C))^@)^[IEG )@@G@@@O@O=@D00A@4BC8AC1DD#AC0AC9B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)EH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2C)0A@0A@0AK2C))^@)^[I@O@O=@D00A@4BC8AC1EI )@@G@@DD#AC1AC7B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0EJ )@@G@@A@0A@0A@0A@0AK2C)0A@0A@0AK2C))^@)^[I@O@O=@D00A@4BC8AC1DD#AC2AK1B@8^@)^@)EK )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2C)0EL )@@G@@A@0A@0AK2C))^@)^[I@O@O=@D00A@4BC8AC1DD#A@2A@1B@9^@)^@)^@)^@)^@)DDIE- EL EM )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2C)0A@0A@0AK2C))^@)^[IEN )@@G@@@O@O=@D00A@4BC8AC1DD#A@2AC7B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)EO )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2C)0A@0A@0AK2C))^@)^[I@O@O=@D00A@4BC8AC1EP )@@G@@DD#A@3AC7B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0EQ )@@G@@A@0A@0A@0A@0AK2C)0A@0A@0AK2C))^@)^[I@O@O=@D00A@4BC8AC1D[NA@4AC4B@9D[N^@)ER )@@G@@^@)^@)^@)A@8A@1B@8 *0BC0AC8BC)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0ES )@@G@@A@0A@0A@0A@)^@0^[I@O@O=@D00A@4BC8AC1DD#A@4AK1B@9^@)^@)^@)^@)^@)DDIE- EL ET )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2C)0A@0A@0AK2C))^@)^[IEU )@@G@@@O@O=@D00A@4BC8AC1DD#A@5AC9B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)EV )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2C)0A@0A@0AK2C))^@)^[I@O@O=@D00A@4BC8AC1EW )@@G@@DD#A@6AK1B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0EX )@@G@@A@0A@0A@0A@0AK2C)0A@0A@0AK2C))^@)^[I@O@O=@D00A@4BC8AK1D-KA@8AK3A89BC0B@0EY )@@G@@^@)^@)^@)D-JCDI^[KELDD1#DDKCDG^@)^@)^@)^@)^@)^@0A@0A)6A*0JS0A@0A@0A@0A@0EZ )@@G@@A@0A)6A*0A@)^@0^[I@O@O=@D00A@4BC8AK1D-KA@1AC7B@0A@5A83^@)^@)^@)C(GDD#D9IFA )@@G@@C*)EL[FDHD9IC))CC)^@)^@)^@)^@0A@0A)6A*0JS0A@0A@0A@0A@0A@0A)6A*0A@)^@0^[IFB )@@G@@@O@O=@D00A@4BC8AK1D-KA@8AK8B@0AK1AC7^@)^@)^@)C(GDD#D9IC*)EL[FDHD9IC))CC)FC )@@G@@^@)AC2AC1A80A@0A*1A@0JS0A@0A@0A@0A@0A@0A*1A@0A@)^@0^[I@O@O=@D00A@4BC8AK1FD )@@G@@D-KA@1AC5B@1AS5AK1^@)^@)^@)C(GDD#D9IC*)EL[FDHD9IC))CC)^@)AC3A*2AC0A@0A*1FE )@@G@@A@0JS0A@0A@0A@0A@0A@0A*1A@0A@)^@0^[I@O@O=@D00A@4BC8AK1E[TA@1AC4B@3^@1A*8FF )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5A@0^C0A@0A@0A@0A@0FG )@@G@@A@0A@5A@0^C)^@0^[I@O@O=@D00A@4BC8AK1DL A@2AC5B@3A00AK3^@)^@)^@)E[TD(O^[NFH )@@G@@ 9]^[OD8)ETO^[OC(MD*)^@)^@)^@0A@0A@5A@0A@0A@0A@0A@0A@0A@0A@5A@0A@)^@0^[IFI )@@G@@@O@O=@D00A@4BC8AK1E[TA@2AC5B@4^@1A*9^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)FJ )@@G@@^@)^@)^@)^@0A@0A@1B@8D)0A@0A@0A@0A@0A@0A@1B@8D))^@0^[I@O@O=@D00A@4BC8AK1FK )@@G@@DD#A@2AK0B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FL )@@G@@A@0A@0A@0A@0A)8AS0A@0A@0A)8AS)^@)^[I@O@O=@D00A@4BC8AK1DD#A@3AK1B@4^@)^@)FM )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)8AS0FN )@@G@@A@0A@0A)8AS)^@)^[I@O@O=@D00A@4BC8AK1E[TA@4AC2B@4^@2A@0^@)^@)^@)C(GDD#D9IFO )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC1E@0A@0A@0BC6D80A@0A@1B@8D))^@1^[IFP )@@G@@@O@O=@D00A@4BC8AK1DD#A@4AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)FQ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)8AC0A@0A@0A)8AC)^@)^[I@O@O=@D00A@4BC8AK1FR )@@G@@E[TA@5A@4B@4^@2AC5^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1FS )@@G@@A)0DS0A@0A@0A)8DK0A@0A@1B@8D))^@0^[I@O@O=@D00A@4BC8AK1DD#A@5AK2B@4^@)^@)FT )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)7A80FU )@@G@@A@0A@0A)7A8)^@)^[I@O@O=@D00A@4BC8AK1E[TA@6A@7B@4^@2AS8^@)^@)^@)C(GDD#D9IFV )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A)0D80A@0A@0A)7E@0A@0A@1B@8D))^@0^[IFW )@@G@@@O@O=@D00A@4BC8AK1DD#A@6AK1B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)FX )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)7AS0A@0A@0A)7AS)^@)^[I@O@O=@D00A@4BC8AK1FY )@@G@@E[TA@7AC6B@4^@)AC0^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1FZ )@@G@@A)1J*0A@0A@0A)7D)0A@0A@1B@8D))^@0^[I@O@O=@D00A@4BC8AK1DD#A@7AC9B@4^@)^@)GA )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)7A@0GB )@@G@@A@0A@0A)7A@)^@)^[I@O@O=@D00A@4BC8AK1E[TA@8A@9B@4^@)AK8^@)^@)^@)C(GDD#D9IGC )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A)1D)0A@0A@0A)7J*0A@0A@1B@8D))^@0^[IGD )@@G@@@O@O=@D00A@4BC8AK1DD#A@8AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)GE )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)6A00A@0A@0A)6A0)^@)^[I@O@O=@D00A@4BC8AK1GF )@@G@@E[TA@9AC7B@4^@)A*5^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1GG )@@G@@A)1E@0A@0A@0A)6D80A@0A@1B@8D))^@0^[I@O@O=@D00A@4BC8AK1DD#A@9AK0B@4^@)^@)GH )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)6AS0GI )@@G@@A@0A@0A)6AS)^@)^[I@O@O=@D00A@4BC8AK1E[TAC0AC2B@4^@)A84^@)^@)^@)C(GDD#D9IGJ )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A)2J*0A@0A@0A)6D)0A@0A@1B@8D))^@0^[IGK )@@G@@@O@O=@D00A@4BC8AK1DD#AC0AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)GL )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)5BC0A@0A@0A)5BC)^@)^[I@O@O=@D00A@4BC8AK1GM )@@G@@E[TAC1AK0B@4^@1A@1^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0GN )@@G@@BC6D00A@0A@0BC1EC0A@0A@1B@8D))^@1^[I@O@O=@D00A@4BC8AK1DD#AC1AK7B@4^@)^@)GO )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)5BC0GP )@@G@@A@0A@0A)5BC)^@)^[I@O@O=@D00A@4BC8AK1E[TAC2A@5B@4^@1AC0^@)^@)^@)C(GDD#D9IGQ )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1B@8D)0A@0A@0A@0A@0A@0A@1B@8D))^@0^[IGR )@@G@@@O@O=@D00A@4BC8AK1DD#AC2AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)GS )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)5AK0A@0A@0A)5AK)^@)^[I@O@O=@D00A@4BC8AK1GT )@@G@@DD#A@1AK5B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0GU )@@G@@A@0A@0A@0A@0A)5AK0A@0A@0A)5AK)^@)^[I@O@O=@D00A@4BC8AK1E[TA@2AC2B@5^@1A*2GV )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC7EK0A@0A@0BC0D*0GW )@@G@@A@0A@1B@8D))^@1^[I@O@O=@D00A@4BC8AK1DD#A@2AK0B@5^@)^@)^@)^@)^@)DDIE- EL GX )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)5A@0A@0A@0A)5A@)^@)^[IGY )@@G@@@O@O=@D00A@4BC8AK1E[TA@3A@8B@5^@1A80^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)GZ )@@G@@^@)^@)^@)^@0A@0A@1A)3D)0A@0A@0A)5J*0A@0A@1B@8D))^@1^[I@O@O=@D00A@4BC8AK1HA )@@G@@DD#A@3AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HB )@@G@@A@0A@0A@0A@0A)4A00A@0A@0A)4A0)^@)^[I@O@O=@D00A@4BC8AK1E[TA@4AC4B@5^@1B@9HC )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A)3E@0A@0A@0A)4D80HD )@@G@@A@0A@1B@8D))^@1^[I@O@O=@D00A@4BC8AK1DD#A@4AC9B@5^@)^@)^@)^@)^@)DDIE- EL HE )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)4AS0A@0A@0A)4AS)^@)^[IHF )@@G@@@O@O=@D00A@4BC8AK1E[TA@5A@7B@5^@2AC1^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)HG )@@G@@^@)^@)^@)^@0A@0A@1A)4J*0A@0A@0A)4D)0A@0A@1B@8D))^@1^[I@O@O=@D00A@4BC8AK1HH )@@G@@DD#A@5AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HI )@@G@@A@0A@0A@0A@0A)3BC0A@0A@0A)3BC)^@)^[I@O@O=@D00A@4BC8AK1DD#A@6AK0B@5^@)^@)HJ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3BC0HK )@@G@@A@0A@0A)3BC)^@)^[I@O@O=@D00A@4BC8AK1E[TA@6AK0B@5^@2A)2^@)^@)^@)C(GDD#D9IHL )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@0D00A@0A@0B@7EC0A@0A@1B@8D))^@2^[IHM )@@G@@@O@O=@D00A@4BC8AK1E[TA@7A@9B@5^@)^@6^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)HN )@@G@@^@)^@)^@)^@0A@0A@1B@8D)0A@0A@0A@0A@0A@0A@1B@8D))^@1^[I@O@O=@D00A@4BC8AK1HO )@@G@@DD#A@7AC9B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HP )@@G@@A@0A@0A@0A@0A)3AK0A@0A@0A)3AK)^@)^[I@O@O=@D00A@4BC8AK1DD#A@8AC6B@5^@)^@)HQ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AK0HR )@@G@@A@0A@0A)3AK)^@)^[I@O@O=@D00A@4BC8AK1E[TA@9A@3B@5^@)A)5^@)^@)^@)C(GDD#D9IHS )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC6EK0A@0A@0B@6D*0A@0A@1B@3D))^@2^[IHT )@@G@@@O@O=@D00A@4BC8AK1DD#A@9AC9B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HU )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)2BC0A@0A@0A)2BC)^@)^[I@O@O=@D00A@4BC8AK1HV )@@G@@DD#AC0AK2B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HW )@@G@@A@0A@0A@0A@0A)2DC0A@0A@0A)2DC)^@)^[I@O@O=@D00A@4BC8AK1E[TAC0AK3B@5^@)B@1HX )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC0EC0A@0A@0B@5EC0HY )@@G@@A@0A@3A86D8)^@3^[I@O@O=@D00A@4BC8AK1E[TAC1AC3B@5^@)BC6^@)^@)^@)C(GDD#D9IHZ )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1B@8D)0A@0A@0A@0A@0A@0A@1B@8D))^@0^[IIA )@@G@@@O@O=@D00A@4BC8AK1DD#AC1AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)IB )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)1C80A@0A@0A)1C8)^@)^[I@O@O=@D00A@4BC8AK1IC )@@G@@E[TAC2A@5B@5^@1AC0^@)^@)^@)C(GE-#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1ID )@@G@@A)6D80A@0A@0A)1E@0A@0A@1B@8D))^@0^[I@O@O=@D00A@4BC8AK1DD#AC2AC3B@5^@)^@)IE )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)1C)0IF )@@G@@A@0A@0A)1C))^@)^[I@O@O=@D00A@4BC8AK1E[TA@1AC4B@6^@1AK9^@)^@)^@)C(GDD#D9IIG )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@5D00A@0A@0B@2EC0A@0A@1B@8D))^@2^[IIH )@@G@@@O@O=@D00A@4BC8AK1DD#A@1AC5B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)II )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)1C)0A@0A@0A)1C))^@)^[I@O@O=@D00A@4BC8AK1IJ )@@G@@E[TA@2AC3B@6^@1A*2^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1IK )@@G@@B@8D)0A@0A@0A@0A@0A@0A@1B@8D))^@0^[I@O@O=@D00A@4BC8AK1DD#A@2AK0B@6^@)^@)IL )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0C00IM )@@G@@A@0A@0A)0C0)^@)^[I@O@O=@D00A@4BC8AK1DD#A@3AK0B@6^@)^@)^@)^@)^@)DDIE- EL IN )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0C00A@0A@0A)0C0)^@)^[IIO )@@G@@@O@O=@D00A@4BC8AK1DD#A@4AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)IP )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0C00A@0A@0A)0C0)^@)^[I@O@O=@D00A@4BC8AK1IQ )@@G@@E[TA@5AC5B@6^@2AC6^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4IR )@@G@@A)3DK0A@0A@1AK1EC0A@0A@5A04EK)^@2^[I@O@O=@D00A@4BC8AK1DD#A@5AK1B@6^@)^@)IS )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS9C*0IT )@@G@@A@0A@0AS9C*)^@)^[I@O@O=@D00A@4BC8AK1E[TA@5AK8B@6^@2AK4^@)^@)^@)C(GDD#D9IIU )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A)8EC0A@0A@0AS9D00A@0A@1B@8D))^@0^[IIV )@@G@@@O@O=@D00A@4BC8AK1E[TA@6A@3B@6^@2AK8^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)IW )@@G@@^@)^@)^@)^@0A@0A@1B@8D)0A@0A@0A@0A@0A@0A@1B@8D))^@0^[I@O@O=@D00A@4BC8AK1IX )@@G@@DD#A@6AC6B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0IY )@@G@@A@0A@0A@0A@0AS8C80A@0A@0AS8C8)^@)^[I@O@O=@D00A@4BC8AK1E[TA@7A@1B@6^@)^@9IZ )@@G@@^@)^@)^@)C(GDD#D9IC*?EK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A)9D80A@0A@0AS8E@0JA )@@G@@A@0A@1B@8D))^@0^[I@O@O=@D00A@4BC8AK1DD#A@7AC8B@6^@)^@)^@)^@)^@)DDIE- EL JB )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS8CS0A@0A@0AS8CS)^@)^[IJC )@@G@@@O@O=@D00A@4BC8AK1E[TA@8A@4B@6^@)AK4^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)JD )@@G@@^@)^@)^@)^@0A@0A@1A*0J*0A@0A@0AS8D)0A@0A@1B@8D))^@0^[I@O@O=@D00A@4BC8AK1JE )@@G@@DL A@8A@8B@6A@0B@1^@)^@)^@)A*\AC5 88A0)E[[ELO^[KFDHE))A)9B@2 *3^@0A@0A@1JF )@@G@@B@8AS0A@0A@0A@0A@0A@0A@1B@8AS)^@0^[I@O@O=@D00A@4BC8AK1DD#A@8AC8B@6^@)^@)JG )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS8C)0JH )@@G@@A@0A@0AS8C))^@)^[I@O@O=@D00A@4BC8AK1E[TA@9AC5B@6^@)A*4^@)^@)^@)C(GDD#D9IJI )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A)9EK0A@0A@0AS8D*0A@0A@1B@8D))^@0^[IJJ )@@G@@@O@O=@D00A@4BC8AK1DD#A@9AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JK )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS8JS0A@0A@0AS8JS)^@)^[I@O@O=@D00A@4BC8AK1JL )@@G@@E[TAC0AC4B@6^@)A85^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1JM )@@G@@A*0D)0A@0A@0AS8J*0A@0A@1B@8D))^@0^[I@O@O=@D00A@4BC8AK1DD#AC0AK0B@6^@)^@)JN )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS7C80JO )@@G@@A@0A@0AS7C8)^@)^[I@O@O=@D00A@4BC8AK1E[TAC1AC4B@6^@)BC8^@)^@)^@)C(GDD#D9IJP )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A*0D80A@0A@0AS7E@0A@0A@1B@8D))^@0^[IJQ )@@G@@@O@O=@D00A@4BC8AK1DD#AC1AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JR )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS7CS0A@0A@0AS7CS)^@)^[I@O@O=@D00A@4BC8AK1JS )@@G@@DD#AC2AC1B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0JT )@@G@@A@0A@0A@0A@0AS7CS0A@0A@0AS7CS)^@)^[I@O@O=@D00A@4BC8AK1E[TAC2AC6B@6^@1AC8JU )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1AC3E@0A@0A@0A84D80JV )@@G@@A@0A@1B@8D))^@1^[I@O@O=@D00A@4BC8AK1E[TA@1AK0B@7^@1AS8^@)^@)^@)C(GDD#D9IJW )@@G@@C*?EK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A*1D)0A@0A@0AS7J*0A@0A@1B@8D))^@1^[IJX )@@G@@@O@O=@D00A@4BC8AK1DD#A@1AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JY )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS7JS0A@0A@0AS7JS)^@)^[I@O@O=@D00A@4BC8AK1JZ )@@G@@DD#A@2AC9B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KA )@@G@@A@0A@0A@0A@0AS6C00A@0A@0AS6C0)^@)^[I@O@O=@D00A@4BC8AK1DD#A@3AK3B@7^@)^@)KB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS6C00KC )@@G@@A@0A@0AS6C0)^@)^[I@O@O=@D00A@4BC8AK1E[TA@3AK3B@7^@1B@2^@)^@)^@)C(GDD#D9IKD )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1AC5DK0A@0A@0A83DS0A@0A@1B@8D))^@2^[IKE )@@G@@@O@O=@D00A@4BC8AK1DD#A@4AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KF )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS6CS0A@0A@0AS6CS)^@)^[I@O@O=@D00A@4BC8AK1KG )@@G@@DD#A@5AK0B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KH )@@G@@A@0A@0A@0A@0AS6CS0A@0A@0AS6CS)^@)^[I@O@O=@D00A@4BC8AK1DD#A@6AC8B@7^@)^@)KI )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS6CS0KJ )@@G@@A@0A@0AS6CS)^@)^[I@O@O=@D00A@4BC8AK1E[TA@6AC9B@7^@2A)4^@)^@)^@)C(GDD#D9IKK )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4A*6J*0A@0A@1A@8EK0A@0A@5A04EK)^@4^[IKL )@@G@@@O@O=@D00A@4BC8AK1DD#A@7AC7B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KM )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS5CK0A@0A@0AS5CK)^@)^[I@O@O=@D00A@4BC8AK1KN )@@G@@DD#A@8AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KO )@@G@@A@0A@0A@0A@0AS5CK0A@0A@0AS5CK)^@)^[I@O@O=@D00A@4BC8AK1E[TA@9A@3B@7^@)A)7KP )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3B@4D)0A@0A@0A80D*0KQ )@@G@@A@0A@4A*4E@)^@3^[I@O@O=@D00A@4BC8AK1E[TA@9AC5B@7^@)A*4^@)^@)^@)C(GDD#D9IKR )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4A02D80A@0A@0A@0A@0A@0A@4A02D8)^@3^[IKS )@@G@@@O@O=@D00A@4BC8AK1DD#A@9AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KT )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS3CC0A@0A@0AS3CC)^@)^[I@O@O=@D00A@4BC8AK1KU )@@G@@E[TAC0AC5B@7^@)A86^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1KV )@@G@@A*5DS0A@0A@0AS3DK0A@0A@1B@8D))^@0^[I@O@O=@D00A@4BC8AK1DD#AC0AK1B@7^@)^@)KW )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2C80KX )@@G@@A@0A@0AS2C8)^@)^[I@O@O=@D00A@4BC8AK1DD#AC1AC9B@7^@)^@)^@)^@)^@)DDIE- EL KY )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2C80A@0A@0AS2C8)^@)^[IKZ )@@G@@@O@O=@D00A@4BC8AK1E[TAC1AC9B@7^@1A@1^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)LA )@@G@@^@)^@)^@)^@0A@0A@1AK2EK0A@0A@0A05D*0A@0A@1B@8D))^@1^[I@O@O=@D00A@4BC8AK1LB )@@G@@DD#AC2AC8B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LC )@@G@@A@0A@0A@0A@0AS2C)0A@0A@0AS2C))^@)^[I@O@O=@D00A@4BC8AK1E[TAC2AK9B@7^@1AK5LD )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A*5EK0A@0A@0AS2D*0LE )@@G@@A@0A@1B@8D))^@1^[I@O@O=@D00A@4BC8AK1DD#A@1AK0B@8^@)^@)^@)^@)^@)DDIE- EL LF )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2JS0A@0A@0AS2JS)^@)^[ILG )@@G@@@O@O=@D00A@4BC8AK1DD#A@2AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)LH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2JS0A@0A@0AS2JS)^@)^[I@O@O=@D00A@4BC8AK1LI )@@G@@E[TA@2AK3B@8^@1A03^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3LJ )@@G@@AC2D80A@0A@0A04J*0A@0A@3A86D8)^@2^[I@O@O=@D00A@4BC8AK1DD#A@3AK2B@8^@)^@)LK )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS1CK0LL )@@G@@A@0A@0AS1CK)^@)^[I@O@O=@D00A@4BC8AK1DD#A@4AK0B@8^@)^@)^@)^@)^@)DDIE- EL LM )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS1CK0A@0A@0AS1CK)^@)^[ILN )@@G@@@O@O=@D00A@4BC8AK1E[TA@4AK5B@8^@2A@6^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)LO )@@G@@^@)^@)^@)^@0A@0A@3AC4DS0A@0A@0A02D*0A@0A@3A86D8)^@2^[I@O@O=@D00A@4BC8AK1LP )@@G@@DD#A@5AC9B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LQ )@@G@@A@0A@0A@0A@0AS0C)0A@0A@0AS0C))^@)^[I@O@O=@D00A@4BC8AK1DD#A@6AK1B@8^@)^@)LR )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0C)0LS )@@G@@A@0A@0AS0C))^@)^[I@O@O=@D00A@4BC8AK1DD#A@7AK1B@8^@)^@)^@)^@)^@)DDIE- EL LT )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0C)0A@0A@0AS0C))^@)^[ILU )@@G@@@O@O=@D00A@4BC8AK1DD#A@8AC8B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)LV )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0C)0A@0A@0AS0C))^@)^[I@O@O=@D00A@4BC8AK1LW )@@G@@E[TA@9A@2B@8^@)A)5^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2LX )@@G@@A*5J*0A@0A@1AK1D80A@0A@3A86D8)^@4^[I@O@O=@D00A@4BC8AK1DD#A@9AK1B@8^@)^@)LY )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9D@0LZ )@@G@@A@0A@0AK9D@)^@)^[I@O@O=@D00A@4BC8AK1DD#AC0AC9B@8^@)^@)^@)^@)^@)DDIE- EL MA )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9D@0A@0A@0AK9D@)^@)^[IMB )@@G@@@O@O=@D00A@4BC8AK1E[TAC0AK8B@8^@)B@4^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)MC )@@G@@^@)^@)^@)^@0A@0A@1AK8E@0A@0A@0A*9D80A@0A@1B@8D))^@4^[I@O@O=@D00A@4BC8AK1MD )@@G@@DD#AC1AC7B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ME )@@G@@A@0A@0A@0A@0AK9C*0A@0A@0AK9C*)^@)^[I@O@O=@D00A@4BC8AK1DD#AC2AK1B@8^@)^@)MF )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9C*0MG )@@G@@A@0A@0AK9C*)^@)^[I@O@O=@D00A@4BC8AK1DD#A@2A@1B@9^@)^@)^@)^@)^@)DDIE- EL MH )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9C*0A@0A@0AK9C*)^@)^[IMI )@@G@@@O@O=@D00A@4BC8AK1DD#A@2AC7B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MJ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9C*0A@0A@0AK9C*)^@)^[I@O@O=@D00A@4BC8AK1MK )@@G@@DD#A@3AC7B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ML )@@G@@A@0A@0A@0A@0AK9C*0A@0A@0AK9C*)^@)^[I@O@O=@D00A@4BC8AK1DD#A@4AK1B@9^@)^@)MM )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9C*0MN )@@G@@A@0A@0AK9C*)^@)^[I@O@O=@D00A@4BC8AK1E[TA@5AC2B@9^@2AC9^@)^@)^@)C(GDD#D9IMO )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1BC9D80A@0A@1A87J*0A@0A@3A86D8)^@7^[IMP )@@G@@@O@O=@D00A@4BC8AK1DD#A@5AC9B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MQ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9JS0A@0A@0AK9JS)^@)^[I@O@O=@D00A@4BC8AK1MR )@@G@@E[TA@5AC9B@9^@2AK4^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1MS )@@G@@A*9D)0A@0A@0AK9J*0A@0A@1B@8D))^@7^[I@O@O=@D00A@4BC8AK1E[TA@6AC4B@9^@2A)1MT )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1B@8D)0A@0A@0A@0A@0MU )@@G@@A@0A@1B@8D))^@7^[I@O@O=@D00A@4BC8AK1DD#A@6AK1B@9^@)^@)^@)^@)^@)DDIE- EL MV )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8CC0A@0A@0AK8CC)^@)^[IMW )@@G@@@O@O=@D00A@4BC8AK2D-KA@8AK7B@1^@)^@)^@)^@)^@)D-JCDI^[KELDD1#DDKCDG^@)^@)MX )@@G@@^@)^@)^@)^@0A@0A85A@0A@0A@0A@0A@0A@0A@0A85A@0A@)^@0^[I@O@O=@D00A@4BC8AK2MY )@@G@@D-KA@1AC3B@2^@)^@)^@)^@)^@)C(GDD#D9IC*?^[MCDTD(JD0)^@)^@)^@)^@)^@0A@0A02MZ )@@G@@A*0^C0A@0A@0A@0A@0A@0A02A*0^C)^@0^[I@O@O=@D00A@4BC8AK2D-KA@1AC4B@2^@)^@)NA )@@G@@^@)^@)^@)C(GDD#D9IC*?^[MCDTD(JD0)^@)^@)^@)^@)^@0A@0A05A@0A@0A@0A@0A@0A@0NB )@@G@@A@0A05A@0A@)^@0^[I@O@O=@D00A@4BC8AK2D-KA@1AC3B@3^@)^@)^@)^@)^@)C(GDD#D9INC )@@G@@C*?^[MCDTD(JD0)^@)^@)^@)^@)^@0A@0A02A*0A@0A@0A@0A@0A@0A@0A02A*0A@)^@0^[IND )@@G@@@O@O=@D00A@4BC8AK2DD#AC1AK1B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NE )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)6A80A@0A@0A)6A8)^@)^[I@O@O=@D00A@4BC8AK2NF )@@G@@DD#AC2AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0NG )@@G@@A@0A@0A@0A@0A)6A80A@0A@0A)6A8)^@)^[I@O@O=@D00A@4BC8AK2E[TAC2AK9B@3^@1AK5NH )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A)8D)0A@0A@0BC3D*0NI )@@G@@A@0A@1A)1E@)^@1^[I@O@O=@D00A@4BC8AK2E[TA@1A@9B@4^@1AS1^@)^@)^@)C(GDD#D9INJ )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A84D)0A@0A@0A@0A@0A@0A@2A84D))^@0^[INK )@@G@@@O@O=@D00A@4BC8AK2DD#A@1AC7B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NL )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)5A00A@0A@0A)5A0)^@)^[I@O@O=@D00A@4BC8AK2NM )@@G@@E[TA@2AC5B@4^@1A*9^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0NN )@@G@@BC6DK0A@0A@0A)5D80A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2DD#A@2AK0B@4^@)^@)NO )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)5AS0NP )@@G@@A@0A@0A)5AS)^@)^[I@O@O=@D00A@4BC8AK2DD#A@3AK1B@4^@)^@)^@)^@)^@)DDIE- EL NQ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)5AS0A@0A@0A)5AS)^@)^[INR )@@G@@@O@O=@D00A@4BC8AK2E[TA@3AK6B@4^@1B@7^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)NS )@@G@@^@)^@)^@)^@0A@0A@0A*1DK0A@0A@0BC0D80A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2NT )@@G@@E[TA@4AC2B@4^@2A@0^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2NU )@@G@@A84D)0A@0A@0A@0A@0A@0A@2A84D))^@0^[I@O@O=@D00A@4BC8AK2E[[A@4AC3B@4E[[^@)NV )@@G@@^@)^@)^@)A@4AC2B@4 *0A00AC8A))^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0NW )@@G@@A@0A@0A@0A@)^@0^[I@O@O=@D00A@4BC8AK2DD#A@4AC9B@4^@)^@)^@)^@)^@)DDIE- EL NX )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)4AK0A@0A@0A)4AK)^@)^[INY )@@G@@@O@O=@D00A@4BC8AK2E[TA@5A@4B@4^@2AC5^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)NZ )@@G@@^@)^@)^@)^@0A@0A@0BC7D00A@0A@0A)4DS0A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2OA )@@G@@E[[A@5A@9B@4E[[^@)^@)^@)^@)A@5A@4B@4 *0A80AC8A))^@)^@)^@)^@)^@)^@0A@0A@0OB )@@G@@A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[I@O@O=@D00A@4BC8AK2DD#A@5AK2B@4^@)^@)OC )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3BC0OD )@@G@@A@0A@0A)3BC)^@)^[I@O@O=@D00A@4BC8AK2E[TA@6A@7B@4^@2AS8^@)^@)^@)C(GDD#D9IOE )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC7EC0A@0A@0A)3EK0A@0A@1A)1E@)^@0^[IOF )@@G@@@O@O=@D00A@4BC8AK2DL A@6AC4B@4A80A01^@)^@)^@)A)!AC2 *8A))E[TD(O^[N 9]^@4OG )@@G@@BC8AK!AS)^@0A@0A@1AS2A00A@0A@0A@0A@0A@0A@1AS2A0)^@0^[I@O@O=@D00A@4BC8AK2OH )@@G@@DL A@6AC4B@4A80A01^@)^@)^@)E[TD(O^[N 9]^[OD8)A)9B@2 *3^@)^@)^@)^@0A@0A@1OI )@@G@@AS2A00A@0A@0A@0A@0A@0A@1AS2A0)^@0^[I@O@O=@D00A@4BC8AK2DD#A@6AK1B@4^@)^@)OJ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)4A)0OK )@@G@@A@0A@0A)4A))^@)^[I@O@O=@D00A@4BC8AK2E[TA@7AC6B@4^@)AC0^@)^@)^@)C(GDD#D9IOL )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC7D)0A@0A@0A)4D*0A@0A@1A)1E@)^@1^[IOM )@@G@@@O@O=@D00A@4BC8AK2DD#A@7AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)ON )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)4AC0A@0A@0A)4AC)^@)^[I@O@O=@D00A@4BC8AK2OO )@@G@@E[TA@8A@9B@4^@)AK8^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0OP )@@G@@BC7D80A@0A@0A)4DK0A@0A@1A)1E@)^@2^[I@O@O=@D00A@4BC8AK2DD#A@8AK2B@4^@)^@)OQ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3B@0OR )@@G@@A@0A@0A)3B@)^@)^[I@O@O=@D00A@4BC8AK2E[TA@9AC7B@4^@)A*5^@)^@)^@)C(GDD#D9IOS )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BC7EK0A@0A@0A)3EC0A@0A@1A)1E@)^@3^[IOT )@@G@@@O@O=@D00A@4BC8AK2DD#A@9AK0B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)OU )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3A)0A@0A@0A)3A))^@)^[I@O@O=@D00A@4BC8AK2OV )@@G@@E[TAC0AC2B@4^@)A84^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0OW )@@G@@BC8D)0A@0A@0A)3D*0A@0A@1A)1E@)^@3^[I@O@O=@D00A@4BC8AK2DD#AC0AK2B@4^@)^@)OX )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AC0OY )@@G@@A@0A@0A)3AC)^@)^[I@O@O=@D00A@4BC8AK2E[TAC1AK0B@4^@1A@1^@)^@)^@)C(GDD#D9IOZ )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A*5D00A@0A@0B@6DS0A@0A@1A)1E@)^@4^[IPA )@@G@@@O@O=@D00A@4BC8AK2DD#AC1AK7B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)PB )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3AC0A@0A@0A)3AC)^@)^[I@O@O=@D00A@4BC8AK2PC )@@G@@E[TAC2A@5B@4^@1AC0^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1PD )@@G@@A)1E@0A@0A@0A@0A@0A@0A@1A)1E@)^@3^[I@O@O=@D00A@4BC8AK2DD#AC2AC9B@4^@)^@)PE )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)2A*0PF )@@G@@A@0A@0A)2A*)^@)^[I@O@O=@D00A@4BC8AK2E[TA@1A@3B@5^@1AK3^@)^@)^@)C(GDD#D9IPG )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4AK0DK0A@0A@0A)2D00A@0A@4A02D8)^@3^[IPH )@@G@@@O@O=@D00A@4BC8AK2DD#A@1AK5B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)PI )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)1AC0A@0A@0A)1AC)^@)^[I@O@O=@D00A@4BC8AK2PJ )@@G@@E[TA@2AC2B@5^@1A*2^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1PK )@@G@@A@0D80A@0A@0A)1DK0A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2DD#A@2AK0B@5^@)^@)PL )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0A80PM )@@G@@A@0A@0A)0A8)^@)^[I@O@O=@D00A@4BC8AK2E[TA@3A@8B@5^@1A80^@)^@)^@)C(GDD#D9IPN )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@1J*0A@0A@0A)0E@0A@0A@1A)1E@)^@0^[IPO )@@G@@@O@O=@D00A@4BC8AK2DD#A@3AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)PP )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0A)0A@0A@0A)0A))^@)^[I@O@O=@D00A@4BC8AK2PQ )@@G@@E[TA@4AC4B@5^@1B@9^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1PR )@@G@@A@1D)0A@0A@0A)0D*0A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2DD#A@4AC9B@5^@)^@)PS )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0A@0PT )@@G@@A@0A@0A)0A@)^@)^[I@O@O=@D00A@4BC8AK2E[TA@5A@7B@5^@2AC1^@)^@)^@)C(GDD#D9IPU )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@1E@0A@0A@0A)0J*0A@0A@1A)1E@)^@0^[IPV )@@G@@@O@O=@D00A@4BC8AK2DD#A@5AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)PW )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS9A80A@0A@0AS9A8)^@)^[I@O@O=@D00A@4BC8AK2PX )@@G@@DD#A@6AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PY )@@G@@A@0A@0A@0A@0AS9A80A@0A@0AS9A8)^@)^[I@O@O=@D00A@4BC8AK2E[TA@6AK0B@5^@2A)2PZ )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A02D)0A@0A@0A89D*0QA )@@G@@A@0A@1A)1E@)^@1^[I@O@O=@D00A@4BC8AK2E[TA@7A@9B@5^@)^@6^@)^@)^@)C(GDD#D9IQB )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A)1E@0A@0A@0A@0A@0A@0A@1A)1E@)^@0^[IQC )@@G@@@O@O=@D00A@4BC8AK2DD#A@7AC9B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)QD )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS9A@0A@0A@0AS9A@)^@)^[I@O@O=@D00A@4BC8AK2QE )@@G@@DD#A@8AC6B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QF )@@G@@A@0A@0A@0A@0AS9A@0A@0A@0AS9A@)^@)^[I@O@O=@D00A@4BC8AK2E[TA@9A@3B@5^@)A)5QG )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A03E@0A@0A@0A88J*0QH )@@G@@A@0A@1A)1E@)^@1^[I@O@O=@D00A@4BC8AK2DD#A@9AC9B@5^@)^@)^@)^@)^@)DDIE- EL QI )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS8B@0A@0A@0AS8B@)^@)^[IQJ )@@G@@@O@O=@D00A@4BC8AK2DD#AC0AK2B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)QK )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS8D@0A@0A@0AS8D@)^@)^[I@O@O=@D00A@4BC8AK2QL )@@G@@E[TAC0AK3B@5^@)B@1^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2QM )@@G@@A@5EC0A@0A@0A87D80A@0A@2B@3D*)^@2^[I@O@O=@D00A@4BC8AK2E[TAC1AC3B@5^@)BC6QN )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A)1E@0A@0A@0A@0A@0QO )@@G@@A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2DD#AC1AK0B@5^@)^@)^@)^@)^@)DDIE- EL QP )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS7C80A@0A@0AS7C8)^@)^[IQQ )@@G@@@O@O=@D00A@4BC8AK2E[TAC2A@5B@5^@1AC0^@)^@)^@)C(GE-#D9IC*?^[M^@)^@)^@)^@)QR )@@G@@^@)^@)^@)^@0A@0A@1A@4J*0A@0A@0AS7E@0A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2QS )@@G@@DD#AC2AC3B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QT )@@G@@A@0A@0A@0A@0AS7CS0A@0A@0AS7CS)^@)^[I@O@O=@D00A@4BC8AK2E[TA@1AC4B@6^@1AK9QU )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A07DK0A@0A@0A84D80QV )@@G@@A@0A@1A)1E@)^@1^[I@O@O=@D00A@4BC8AK2DD#A@1AC5B@6^@)^@)^@)^@)^@)DDIE- EL QW )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS7CS0A@0A@0AS7CS)^@)^[IQX )@@G@@@O@O=@D00A@4BC8AK2E[TA@2AC3B@6^@1A*2^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)QY )@@G@@^@)^@)^@)^@0A@0A@1A)1E@0A@0A@0A@0A@0A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2QZ )@@G@@DD#A@2AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RA )@@G@@A@0A@0A@0A@0AS6C00A@0A@0AS6C0)^@)^[I@O@O=@D00A@4BC8AK2DD#A@3AK0B@6^@)^@)RB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS6C00RC )@@G@@A@0A@0AS6C0)^@)^[I@O@O=@D00A@4BC8AK2DD#A@4AC8B@6^@)^@)^@)^@)^@)DDIE- EL RD )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS6C00A@0A@0AS6C0)^@)^[IRE )@@G@@@O@O=@D00A@4BC8AK2E[TA@5AC5B@6^@2AC6^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)RF )@@G@@^@)^@)^@)^@0A@0A@2A*0D00A@0A@1A@9EC0A@0A@3A00D))^@2^[I@O@O=@D00A@4BC8AK2RG )@@G@@DD#A@5AK1B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RH )@@G@@A@0A@0A@0A@0AS5D@0A@0A@0AS5D@)^@)^[I@O@O=@D00A@4BC8AK2E[TA@5AK8B@6^@2AK4RI )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@5EK0A@0A@0AS5EC0RJ )@@G@@A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2E[TA@6A@3B@6^@2AK8^@)^@)^@)C(GDD#D9IRK )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A)1E@0A@0A@0A@0A@0A@0A@1A)1E@)^@0^[IRL )@@G@@@O@O=@D00A@4BC8AK2DD#A@6AC6B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)RM )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS5JS0A@0A@0AS5JS)^@)^[I@O@O=@D00A@4BC8AK2RN )@@G@@E[TA@7A@1B@6^@)^@9^@)^@)^@)C(GDD#D9IC*?EK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1RO )@@G@@A@6E@0A@0A@0AS5J*0A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2DD#A@7AC8B@6^@)^@)RP )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS4C00RQ )@@G@@A@0A@0AS4C0)^@)^[I@O@O=@D00A@4BC8AK2E[TA@8A@4B@6^@)AK4^@)^@)^@)C(GDD#D9IRR )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@7DK0A@0A@0AS4D80A@0A@1A)1E@)^@0^[IRS )@@G@@@O@O=@D00A@4BC8AK2DL A@8A@8B@6A@0B@1^@)^@)^@)A*\AC5 88A0)E[[ELO^[KFDHE))RT )@@G@@A)9B@2 *3^@0A@0A@0A86BC0A@0A@0A@0A@0A@0A@0A86BC)^@0^[I@O@O=@D00A@4BC8AK2RU )@@G@@DD#A@8AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RV )@@G@@A@0A@0A@0A@0AS4C*0A@0A@0AS4C*)^@)^[I@O@O=@D00A@4BC8AK2E[TA@9AC5B@6^@)A*4RW )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@7DS0A@0A@0AS4D00RX )@@G@@A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2DD#A@9AC8B@6^@)^@)^@)^@)^@)DDIE- EL RY )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS4CC0A@0A@0AS4CC)^@)^[IRZ )@@G@@@O@O=@D00A@4BC8AK2E[TAC0AC4B@6^@)A85^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)SA )@@G@@^@)^@)^@)^@0A@0A@1A@7D80A@0A@0AS4DK0A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2SB )@@G@@DD#AC0AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0SC )@@G@@A@0A@0A@0A@0AS3D@0A@0A@0AS3D@)^@)^[I@O@O=@D00A@4BC8AK2E[TAC1AC4B@6^@)BC8SD )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@7EK0A@0A@0AS3EC0SE )@@G@@A@0A@1A)1E@)^@0^[I@O@O=@D00A@4BC8AK2DD#AC1AK0B@6^@)^@)^@)^@)^@)DDIE- EL SF )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS3C)0A@0A@0AS3C))^@)^[ISG )@@G@@@O@O=@D00A@4BC8AK2DD#AC2AC1B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)SH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS3C)0A@0A@0AS3C))^@)^[I@O@O=@D00A@4BC8AK2SI )@@G@@E[TAC2AC6B@6^@1AC8^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0SJ )@@G@@A84EK0A@0A@0A06EC0A@0A@1A)1E@)^@1^[I@O@O=@D00A@4BC8AK2E[TA@1AK0B@7^@1AS8SK )@@G@@^@)^@)^@)C(GDD#D9IC*?EK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A@8D00A@0A@0AS3DS0SL )@@G@@A@0A@1A)1E@)^@1^[I@O@O=@D00A@4BC8AK2DD#A@1AK1B@7^@)^@)^@)^@)^@)DDIE- EL SM )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS3CK0A@0A@0AS3CK)^@)^[ISN )@@G@@@O@O=@D00A@4BC8AK2DD#A@2AC9B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)SO )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2D@0A@0A@0AS2D@)^@)^[I@O@O=@D00A@4BC8AK2SP )@@G@@DD#A@3AK3B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0SQ )@@G@@A@0A@0A@0A@0AS2D@0A@0A@0AS2D@)^@)^[I@O@O=@D00A@4BC8AK2E[TA@3AK3B@7^@1B@2SR )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A86DK0A@0A@0A05D80SS )@@G@@A@0A@1A)1E@)^@2^[I@O@O=@D00A@4BC8AK2DD#A@4AK1B@7^@)^@)^@)^@)^@)DDIE- EL ST )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2C00A@0A@0AS2C0)^@)^[ISU )@@G@@@O@O=@D00A@4BC8AK2DD#A@5AK0B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)SV )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2C00A@0A@0AS2C0)^@)^[I@O@O=@D00A@4BC8AK2SW )@@G@@DD#A@6AC8B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0SX )@@G@@A@0A@0A@0A@0AS2C00A@0A@0AS2C0)^@)^[I@O@O=@D00A@4BC8AK2E[TA@6AC9B@7^@2A)4SY )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AK7D)0A@0A@0BC7EC0SZ )@@G@@A@0A@4AK5DK)^@4^[I@O@O=@D00A@4BC8AK2DD#A@7AC7B@7^@)^@)^@)^@)^@)DDIE- EL TA )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS1C*0A@0A@0AS1C*)^@)^[ITB )@@G@@@O@O=@D00A@4BC8AK2DD#A@8AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)TC )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS1C*0A@0A@0AS1C*)^@)^[I@O@O=@D00A@4BC8AK2TD )@@G@@E[TA@9A@3B@7^@)A)7^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2TE )@@G@@A03D)0A@0A@0A03J*0A@0A@3AK6D))^@3^[I@O@O=@D00A@4BC8AK2DD#A@9AK1B@7^@)^@)TF )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0C00TG )@@G@@A@0A@0AS0C0)^@)^[I@O@O=@D00A@4BC8AK2E[TAC0AC5B@7^@)A86^@)^@)^@)C(GDD#D9ITH )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1AC1DK0A@0A@0AS0D80A@0A@1A)1E@)^@1^[ITI )@@G@@@O@O=@D00A@4BC8AK2DD#AC0AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)TJ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0CK0A@0A@0AS0CK)^@)^[I@O@O=@D00A@4BC8AK2TK )@@G@@DD#AC1AC9B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0TL )@@G@@A@0A@0A@0A@0AS0CK0A@0A@0AS0CK)^@)^[I@O@O=@D00A@4BC8AK2E[TAC1AC9B@7^@1A@1TM )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0B@1D)0A@0A@0A00D*0TN )@@G@@A@0A@1A)1E@)^@2^[I@O@O=@D00A@4BC8AK2DD#AC2AC8B@7^@)^@)^@)^@)^@)DDIE- EL TO )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9DC0A@0A@0AK9DC)^@)^[ITP )@@G@@@O@O=@D00A@4BC8AK2E[TAC2AK9B@7^@1AK5^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)TQ )@@G@@^@)^@)^@)^@0A@0A@1AC1EC0A@0A@0AK9EK0A@0A@1A)1E@)^@2^[I@O@O=@D00A@4BC8AK2TR )@@G@@DD#A@1AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0TS )@@G@@A@0A@0A@0A@0AK9C00A@0A@0AK9C0)^@)^[I@O@O=@D00A@4BC8AK2DD#A@2AK0B@8^@)^@)TT )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9C00TU )@@G@@A@0A@0AK9C0)^@)^[I@O@O=@D00A@4BC8AK2E[TA@2AK3B@8^@1A03^@)^@)^@)C(GDD#D9ITV )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2AK4DS0A@0A@0A*9DS0A@0A@2B@3D*)^@3^[ITW )@@G@@@O@O=@D00A@4BC8AK2DD#A@3AK2B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)TX )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8D@0A@0A@0AK8D@)^@)^[I@O@O=@D00A@4BC8AK2TY )@@G@@DD#A@4AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0TZ )@@G@@A@0A@0A@0A@0AK8D@0A@0A@0AK8D@)^@)^[I@O@O=@D00A@4BC8AK2E[TA@4AK5B@8^@2A@6UA )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2AK5EC0A@0A@0A*7D80UB )@@G@@A@0A@2B@3D*)^@3^[I@O@O=@D00A@4BC8AK2DD#A@5AC9B@8^@)^@)^@)^@)^@)DDIE- EL UC )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8CC0A@0A@0AK8CC)^@)^[IUD )@@G@@@O@O=@D00A@4BC8AK2DD#A@6AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)UE )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8CC0A@0A@0AK8CC)^@)^[I@O@O=@D00A@4BC8AK2UF )@@G@@DD#A@7AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UG )@@G@@A@0A@0A@0A@0AK8CC0A@0A@0AK8CC)^@)^[I@O@O=@D00A@4BC8AK2DD#A@8AC8B@8^@)^@)UH )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8CC0UI )@@G@@A@0A@0AK8CC)^@)^[I@O@O=@D00A@4BC8AK2E[TA@9A@2B@8^@)A)5^@)^@)^@)C(GDD#D9IUJ )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1A81J*0A@0A@1AC2D*0A@0A@2B@3D*)^@5^[IUK )@@G@@@O@O=@D00A@4BC8AK2DD#A@9AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)UL )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7C*0A@0A@0AK7C*)^@)^[I@O@O=@D00A@4BC8AK2UM )@@G@@DD#AC0AC9B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UN )@@G@@A@0A@0A@0A@0AK7C*0A@0A@0AK7C*)^@)^[I@O@O=@D00A@4BC8AK2E[TAC0AK8B@8^@)B@4UO )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0B@6E@0A@0A@0A*5J*0UP )@@G@@A@0A@1A)1E@)^@5^[I@O@O=@D00A@4BC8AK2DD#AC1AC7B@8^@)^@)^@)^@)^@)DDIE- EL UQ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7CK0A@0A@0AK7CK)^@)^[IUR )@@G@@@O@O=@D00A@4BC8AK2DD#AC2AK1B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)US )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7CK0A@0A@0AK7CK)^@)^[I@O@O=@D00A@4BC8AK2UT )@@G@@DD#A@2A@1B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UU )@@G@@A@0A@0A@0A@0AK7CK0A@0A@0AK7CK)^@)^[I@O@O=@D00A@4BC8AK2DD#A@2AC7B@9^@)^@)UV )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7CK0UW )@@G@@A@0A@0AK7CK)^@)^[I@O@O=@D00A@4BC8AK2DD#A@3AC7B@9^@)^@)^@)^@)^@)DDIE- EL UX )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7CK0A@0A@0AK7CK)^@)^[IUY )@@G@@@O@O=@D00A@4BC8AK2DD#A@4AK1B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)UZ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7CK0A@0A@0AK7CK)^@)^[I@O@O=@D00A@4BC8AK2VA )@@G@@E[TA@5AC2B@9^@2AC9^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1VB )@@G@@AK0DS0A@0A@1A03DS0A@0A@2B@3D*)^@7^[I@O@O=@D00A@4BC8AK2DD#A@5AC9B@9^@)^@)VC )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK6D@0VD )@@G@@A@0A@0AK6D@)^@)^[I@O@O=@D00A@4BC8AK2E[TA@5AC9B@9^@2AK4^@)^@)^@)C(GDD#D9IVE )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@1AC4EK0A@0A@0AK6EC0A@0A@1A)1E@)^@7^[IVF )@@G@@@O@O=@D00A@4BC8AK2E[TA@6AC4B@9^@2A)1^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)VG )@@G@@^@)^@)^@)^@0A@0A@1A)1E@0A@0A@0A@0A@0A@0A@1A)1E@)^@7^[I@O@O=@D00A@4BC8AK2VH )@@G@@DD#A@6AK1B@9^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VI )@@G@@A@0A@0A@0A@0AK6JS0A@0A@0AK6JS)^@)^[I@O@O=@D00A@4BC8AK3D-KA@1AC3B@2^@)^@)VJ )@@G@@^@)^@)^@)C(GDD#D9IC*?^[MCDTD(JD0)^@)^@)^@)^@)^@0A@0A02A*0A@0A@0A@0A@0A@0VK )@@G@@A@0A02A*0A@)^@0^[I@O@O=@D00A@4BC8AK3D-KA@8AK6B@2^@)^@)^@)^@)^@)D-JCDI^[KVL )@@G@@ELDD1#DDKCDG^@)^@)^@)^@)^@)^@0A@0A02A*0A@0A@0A@0A@0A@0A@0A02A*0A@)^@0^[IVM )@@G@@@O@O=@D00A@4BC8AK3DD#AC1AK1B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)VN )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*2AC0A@0A@0A*2AC)^@)^[I@O@O=@D00A@4BC8AK3VO )@@G@@DD#AC2AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VP )@@G@@A@0A@0A@0A@0A*2AC0A@0A@0A*2AC)^@)^[I@O@O=@D00A@4BC8AK3E[TAC2AK9B@3^@1AK5VQ )@@G@@^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AK8D*0A@0A@1A@4DS0VR )@@G@@A@0A@1AS2D8)^@1^[I@O@O=@D00A@4BC8AK3DD#A@1AC7B@4^@)^@)^@)^@)^@)DDIE- EL VS )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*2A@0A@0A@0A*2A@)^@)^[IVT )@@G@@@O@O=@D00A@4BC8AK3E[TA@2AC5B@4^@1A*9^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)VU )@@G@@^@)^@)^@)^@0A@0A@0B@0D80A@0A@0A*2J*0A@0A@1AS2D8)^@1^[I@O@O=@D00A@4BC8AK3VV )@@G@@DD#A@2AK0B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0VW )@@G@@A@0A@0A@0A@0A*1A00A@0A@0A*1A0)^@)^[I@O@O=@D00A@4BC8AK3DD#A@3AK1B@4^@)^@)VX )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*1A00VY )@@G@@A@0A@0A*1A0)^@)^[I@O@O=@D00A@4BC8AK3E[TA@3AK6B@4^@1B@7^@)^@)^@)C(GDD#D9IVZ )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AK9D*0A@0A@1A@3DS0A@0A@1AS2D8)^@2^[IWA )@@G@@@O@O=@D00A@4BC8AK3DD#A@4AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)WB )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*1A*0A@0A@0A*1A*)^@)^[I@O@O=@D00A@4BC8AK3WC )@@G@@E[TA@5A@4B@4^@2AC5^@)^@)^@)C(GDD#D9IC*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0WD )@@G@@B@1DK0A@0A@0A*1D00A@0A@1AS2D8)^@2^[I@O@O=@D00A@4BC8AK3DD#A@5AK2B@4^@)^@)WE )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*1AK0WF )@@G@@A@0A@0A*1AK)^@)^[I@O@O=@D00A@4BC8AK3E[TA@6A@7B@4^@2AS8^@)^@)^@)C(GDD#D9IWG )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0B@1D*0A@0A@0A*1DS0A@0A@1AS2D8)^@2^[IWH )@@G@@@O@O=@D00A@4BC8AK3DL A@6AC4B@4A80A01^@)^@)^@)A)!AC2^[KFDHE))C1MD9H^@4BC8WI )@@G@@AK!AK)^@)^@0A@0A@1AS2D80A@0A@0A@0A@0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC8AK3WJ )@@G@@DL A@6AC4B@4A80A01^@)^@)^@)E[TD(O^[AELJD*)A)9B@2 *2^@)^@)^@)^@)^@0A@0A@1WK )@@G@@AS2D80A@0A@0A@0A@0A@0A@1AS2D8)^@0^[I@O@O=@D00A@4BC8AK3DD#A@6AK1B@4^@)^@)WL )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)9A80WM )@@G@@A@0A@0A)9A8)^@)^[I@O@O=@D00A@4BC8AK3E[TA@7AC6B@4^@)AC0^@)^@)^@)C(GDD#D9IWN )@@G@@C*?^[M^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0B@2EK0A@0A@0A)9E@0A@0A@1AS2D8)^@0^[IWO )@@G@@@O@O=@D00A@4BC8AK3DD#A@7AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)WP )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)9A)0A@0A@0A)9A))^@)^[I@O@O=@D00A@4BC8AK3WQ )@@G@@E[TA@8A@9B@4^@)AK8^@)^@)*[@@@@*SDFF*@A@@@@ UNIVERSITY OF MARYLAND APL\11WR )@@G@@00 @#@@@@4INTRODUCTION @F@@@@ THE UNIVERSITY OF MARYLAND APL\WS )@@G@@1100 PROCESSOR IS AN IMPLEMEN-@F@@@@ TATION OF THE APL PROGRAMMING LANGUWT )@@G@@AGE AS DESCRIBED IN S. PAKIN, @F@@@@ 'APL REFERENCE MANUAL', PUBLISHED BWU )@@G@@Y SCIENCE RESEARCH ASSOCIATES,@F@@@@ CHICAGO, ILL. THIS LANGUAGE HAS ASWV )@@G@@ ITS BASE THE APL PROGRAMMING @F@@@@ LANGUAGE ORIGINALLY DEFINED BY K. IWW )@@G@@VERSON IN HIS BOOK 'A PROGRAM-@F@@@@ MING LANGUAGE' (WILEY, 1962). IVERWX )@@G@@SON'S ORIGINAL SPECIFICATION @F@@@@ HAS UNDERGONE CONSIDERABLE EVOLUTIOWY )@@G@@NARY REFINEMENT SINCE THE @G@@@@ PUBLICATION OF THE ORIGINAL WORK, RWZ )@@G@@ESULTING IN THE TERMINAL SYSTEM @ @@@@ DESCRIBED IN THE PAKIN BOOK. XA )@@G@@@F@@@@ WE AT THE UNIVERSITY OF MARYLAND HAVE TRIED TO ADHERE AS XB )@@G@@@F@@@@ CLOSELY AS POSSIBLE TO THE EXISTING VERSIONS OF APL ON OTHER XC )@@G@@@F@@@@ MACHINES. OUR OBJECTIVE HAS BEEN THAT, ONCE HE SIGNS ON, A USER XD )@@G@@@G@@@@ OF APL\1100 CANNOT TELL THE DIFFERENCE BETWEEN IT AND ANY OTHER HXE )@@G@@E @E@@@@ HAS USED. APL\1100 IS UNIQUE AMONG CURRENTLY AVAILABLE XF )@@G@@@F@@@@ IMPLEMTATIONS IN THAT IS IS USABLE FROM BATCH OR A TERMINAL, AND XG )@@G@@@G@@@@ SEVERAL TYPES OF TERMINALS ARE SUPPORTED. IF AN APL USER IS USINXH )@@G@@G @F@@@@ ONE OF THE MANY AVAILABLE ASCII-COMPATIBLE TERMINALS WITH TXI )@@G@@HE APL@F@@@@ CHARACTERSET, THEN HE WILL NOTICE ALMOST NO DIFFERENCE BETWXJ )@@G@@EEN @A@@@@ APL\1100 AND OTHER IMPLEMENTATIONS.@F@@@@ MANY 1100 INXK )@@G@@STALLATIONS USE TELETYPE-LIKE TERMINALS WHICH @F@@@@ HAVE ONLY A LIMITXL )@@G@@ED SET OF PRINTABLE CHARACTERS AND NO BACKSPACE @F@@@@ CAPABILITY; A SIMXM )@@G@@ILARLY LIMITED CHARACTER SET IS AVAILABLE FOR @F@@@@ PUNCHED CARDS. FXN )@@G@@OR BATCH AND TELETYPE USE, AN ALTERNATE FORM OF @E@@@@ THE EXTENSIVE (OVXO )@@G@@ER 130 CHARACTERS) APL CHARACTER SET IS @F@@@@ AVAILABLE. THIS SET USXP )@@G@@ES DIGRAPHS; TWO KEYSTROKES ARE USED TO @G@@@@ GENERATE A SINGLE APL CXQ )@@G@@HARACTER. THIS SET IS MORE FULLY DESCRIBED @F@@@@ IN THE WORKSPACE XR )@@G@@ 1 CHARACTERSET . TO BE USABLE WITH TERMINALS @F@@@@ EQUIPPED WITH THEXS )@@G@@ IVERSON KEYBOARD, THE UNIVERSITY OF MARYLAND @F@@@@ FULL ASCII MODIFIXT )@@G@@CATIONS INCLUDED IN THIS DISTRIBUTION MUST BE @#@@@@ MADE TO EXEC8. XU )@@G@@@F@@@@ AT THIS POINT, IT IS APPROPRIATE TO ACKNOWLEDGE THE CONTRIBU-XV )@@G@@@F@@@@ TIONS OF THE MANY PEOPLE WHO HELPED BRING THIS PROJECT TO FRUI- XW )@@G@@@F@@@@ TION: GEORGE MCHUGH, WHO CODED MOST OF THE OUTPUT FORMATTING XX )@@G@@@G@@@@ ROUTINES; JOHN ROUNTREE, WHO DID THE INTERFACING WITH THE FORTRAXY )@@G@@N @G@@@@ LIBRARY AND WROTE THOSE MATHEMATICAL FUNCTION SUBROUTINES WXZ )@@G@@HICH WE @F@@@@ COULD NOT PIRATE; RAY COOK, WHO DID MOST OF THE CODIYA )@@G@@NG FOR THE @F@@@@ DEFINITION OF FUNCTIONS; DAN MINTZ, WHO WROTE MANY OYB )@@G@@F THE ROU- @G@@@@ TINES FOR MIXED OPERATORS; MIKE MCAMIS, WHO DESIGNED YC )@@G@@AND CODED THE @F@@@@ LIBRARY SAVE, LOAD, ETC. FUNCTIONS; MIKE FRITZYD )@@G@@, WHO DID THE @G@@@@ SUPPORT FOR ASCII-APL TERMINALS; AND ALL OF THEYE )@@G@@M COLLECTIVELY, FOR @G@@@@ FINDING BUGS IN MY OWN CODE. A SPECIAL VYF )@@G@@OTE OF THANKS GOES TO THE @E@@@@ ASSOCIATE DIRECTOR OF THE COMPUTER YG )@@G@@SCIENCE CENTER OF THE @E@@@@ UNIVERSITY OF MARYLAND, MR. JOHN P. MENAYH )@@G@@RD, WITHOUT WHOSE@F@@@@ ENCOURAGEMENT AND FINANCIAL WIZARDRY NONE OF THYI )@@G@@IS WORK WOULD HAVE@#@@@@ BEEN POSSIBLE . @ @@@@ P. E. HAGEYJ )@@G@@RTY @A@@@@ COLLEGE PARK, MARYLAND@ @@@@ REVIYK )@@G@@SED, 7/1/73 @^@@@@4SYSTEM INFORMATION @ @@@@3FORMAT OF THE DISTRIBUTYL )@@G@@ION @F@@@@ THE APL DISTRIBUTION CONSISTS OF 5 FILES, ALL IN EXECYM )@@G@@8 @F@@@@ PROGRAM FILE (COPOUT) FORMAT. THE FIRST OF THESE CONTAINS YN )@@G@@THE @F@@@@ NECESSARY RELOCATABLES, MAP SYMBOLICS, ETC. NEEDED TO GENERYO )@@G@@ATE A @F@@@@ VERSION OF APL FOR YOUR SYSTEM. THE SECOND FILE IS A SKELEYP )@@G@@TON OF@F@@@@ THE APL SAVED WORKSPACE FILE, CONTAINING VARIOUS OF THE PUBYQ )@@G@@LIC @F@@@@ WORKSPACES IN RELOCATABLE ELEMENT FORMAT. THIS RELEASE (5.YR )@@G@@8) OF @E@@@@ APL INCLUDES THE SYMBOLICS AND A PRELIMINARY VERSION OF THEYS )@@G@@@F@@@@ MANUAL. FILE 3 CONTAINS THE SKELETON AND MANUAL, FILE 4 THE YT )@@G@@@F@@@@ RELOCATABLES, AND FILE 5 THE SYMBOLICS. IT IS NOT NECESSARY TO YU )@@G@@@G@@@@ USE THEM; A WORKING VERSION OF APL CAN BE GENERATED USING ONLY THYV )@@G@@E @#@@@@ FIRST TWO FILES. @^@@@@2CONTENTS OF FILE 1 @]@@@@COLUMNYW )@@G@@ 26 @F@@@@ SITEPAR/APL ASM -- CONTAINS EQU'S FOR SITE DEPENDENYX )@@G@@T @F@@@@ PARAMETERS. THIS ELEMENT MUST BE UPYY )@@G@@DATED @G@@@@ AND REASSEMBLED... IN PARTICULAR, AYZ )@@G@@PL WILL @F@@@@ NOT WORK UNLESS AT LEAST THE ZA )@@G@@PARAMETERS @E@@@@ 'INSTAL' AND 'INSTAM' ARE RESZB )@@G@@ET. @F@@@@ XQTMAP-MULTI/APL -MAP SYMBOLICS NEEDED TO GENERATE I-BZC )@@G@@ANK @G@@@@ WHICH SUPERVISES EXECUTION OF APL PZD )@@G@@ROGRAMS @D@@@@ (ABSOLUTE ELEMENT APL$XQ). ZE )@@G@@@F@@@@ SYSMAP-MULTI/APL --MAP SYMBOLICS TO GENERATE I-BANK WHICH ZF )@@G@@@F@@@@ HANDLES SYSTEM COMMANDS AND FUNCTION DEF-ZG )@@G@@@E@@@@ ITION (ABSOLUTE ELEMENT APL$SY). @G@@@@ZH )@@G@@ DBMAP-MULTI/APL --MAP SYMBOLICS USED TO GENERATE D-BANK OF ZI )@@G@@@D@@@@ APL (ABSOLUTE ELEMENT APL). @F@@@@ ZJ )@@G@@UOMMAP ABS A SPECIALLY ENHANCED VERSION OF THE 1100 @F@@@@ ZK )@@G@@ SERIES COLLECTOR WHICH ALLOWS THE USE OF @F@@@@ ZL )@@G@@ SPECIAL DIRECTIVES FOR COLLECTION OF REPS@F@@@@ ZM )@@G@@ WITH SEVERAL I AND/OR D BANKS. THIS @E@@@@ ZN )@@G@@ COLLECTOR MUST BE USED TO COLLECT @A@@@@ ZO )@@G@@ APL\1100. @F@@@@ GENERATE/APL ELT --AN @ADD ELEMENTZP )@@G@@ WHICH PERFORMS THE @F@@@@ REQUIRED COLLECTIZQ )@@G@@ONS AND DOES A TEST @F@@@@ EXECUTION OF THE ZR )@@G@@PROGRAM. IF APL IS NEW @F@@@@ TO YOUR SYSTEM, TZS )@@G@@HIS RUN WILL CREATE AND @F@@@@ CATALOG THE PUBLIZT )@@G@@C SAVED WORKSPACE FILE. @F@@@@ YOU SHOULD ****NOZU )@@G@@T**** ATTEMPT TO CATALOG@G@@@@ THIS FILE YOURSELZV )@@G@@F. APL\1100 REQUIRES THAT @G@@@@ THIS FILE BZW )@@G@@E SPECIALLY INITIALIZED, AND IT @F@@@@ WILL ZX )@@G@@INITIALIZE IT ONLY UPON FINDING THAT@F@@@@ IT HAZY )@@G@@S NOT BEEN PREVIOUSLY CATALOGGED. IF@F@@@@ YOU AZZ )@@G@@RE TOO SMART FOR YOUR OWN GOOD AND @F@@@@ TRY TAA )@@G@@O DO APL\1100 A FAVOR BY CREATING @F@@@@ THIS AB )@@G@@FILE IN ADVANCE, IT WILL BLOW UP ON @ @@@@ YOU. AC )@@G@@@G@@@@ SAMPLE/APL ELT -- AN @ADD ELEMENT WHICH CONTAINS THE DATAD )@@G@@A @B@@@@ USED TO TEST APL.@F@@@@ DOCS/AAE )@@G@@PL DOC THE ELEMENT FROM WHICH THE DOCUMENT YOU @D@@@@ AF )@@G@@ ARE READING WAS PRODUCED @F@@@@ WSDOCS/ADDELEMENT AG )@@G@@ AN ELEMENT WHICH, WHEN ADDED, PRODUCES A @F@@@@ AH )@@G@@ LISTING OF ALL OF THE DOCUMENTATION WHICH@F@@@@ AI )@@G@@ IS CONTAINED IN THE DISTRIBUTED PUBLIC @G@@@@ AJ )@@G@@ LIBRARY WORKSPACES. THIS ELEMENT IS ADDED @E@@@@ AK )@@G@@ BY GENERATE/APL, BUT MAY BE USED @B@@@@ AL )@@G@@ INDEPENDENTLY. @]@@@@COLUMN 2 @^@@@@2CONTENTS OF FILE 2 @F@@@@AM )@@G@@ FILE 2 CONTAINS SEVERAL RELOCATABLE ELEMENTS WHICH FORM THE @F@@@@AN )@@G@@ NUCLEUS OF THE PUBLIC WORKSPACE FILE. IT SHOULD BE NOTED THAT @F@@@@AO )@@G@@ ALTHOUGH THESE ELEMENTS ARE IN WHAT APPEARS TO BE RELOCATABLE @F@@@@AP )@@G@@ FORMAT, THEY ARE IN NO SENSE OF THE WORD ACTUAL RELOCATABLE DECKS@F@@@@AQ )@@G@@ PRODUCED BY A PROCESSOR. THEY ARE MERELY BIT FOR BIT COPIES OF @F@@@@AR )@@G@@ THE CORE IMAGES OF APL WORKSPACES. THE RELOCATABLE FORMAT HAS @G@@@@AS )@@G@@ BEEN CHOSEN IN ORDER TO MAKE IT POSSIBLE TO USE FURPUR COMMANDS TO AT )@@G@@@F@@@@ MAINTAIN THE SAVED WORKSPACE FILE. THUS, SAVED WORKSPACES MAY BEAU )@@G@@@F@@@@ INTERCHANGED BETWEEN APL INSTALLATIONS BY USING @COPY,R OR @PCH,RAV )@@G@@@F@@@@ COMMANDS. IN ADDITION, THE FURPUR @PACK COMMAND CAN BE USED TO AW )@@G@@@F@@@@ RECOVER SPACE IN THE FILE CAUSED BY DELETION OF OLD COPIES OF AX )@@G@@@F@@@@ SAVED WORKSPACES. AS OF LEVEL 5.8, THE FORMAT OF WORKSPACES HAS AY )@@G@@@F@@@@ BEEN SLIGHTLY MODIFIED. WORKSPACES SAVED UNDER 5.8 AND LATER MAY AZ )@@G@@@F@@@@ BE PLACED IN ANY EXEC8 PROGRAM FILE. THE FURPUR @PREP COMMAND MAYBA )@@G@@@F@@@@ BE USED ON FILES CONTAINING WORKSPACES WITH IMPUNITY. NEW FORMAT BB )@@G@@@B@@@@ WORKSPACES WILL BE IGNORED BY @PREP. @F@@@@ AS OF LEVEL BC )@@G@@5.8, APL\1100 CAN BE CONFIGURED TO USE A SINGLE @F@@@@ FILE FOR THE WORKBD )@@G@@SPACES OF ALL USERS, OR A SEPERATE FILE FOR EACH@F@@@@ USER; GENERATION BE )@@G@@INSTRUCTIONS ARE IN THE ELEMENT SITEPAR/APL. IF@G@@@@ YOU HAVE ALREADY BF )@@G@@ESTABLISHED AN APL WORKSPACE FILE ON YOUR SYSTEM, @E@@@@ AND ARE CONBG )@@G@@TEMPLATING GENERATION OF A VERSION WHICH USES A @E@@@@ FILE-PER-USER, YOBH )@@G@@U SHOULD DEFER THIS UNTIL YOU HAVE FIRST @F@@@@ GENERATED AND USED A 5.BI )@@G@@8 OR HIGHER LEVEL FOR SOME TIME WITH YOUR @F@@@@ EXISTING LIBRARY FILE. BJ )@@G@@ THE WORKSPACE 271828 WSFILEFIXUP CONTAINS@E@@@@ CONVERSION AIDS WHICH CBK )@@G@@AN BE USED TO AID IN THE CONVERSION @F@@@@ PROCESS. THE CONVERSION PROGRBL )@@G@@AM MUST, HOWEVER, BE EXECUTED ON A @D@@@@ LEVEL 5.8 OR HIGHER VERSION WBM )@@G@@HICH USES A SINGLE FILE.@F@@@@ WHENEVER WORKSPACES ARE SAVED, THE USEBN )@@G@@R'S DESIGNATED WORKSPAE @F@@@@ NAME IS USED AS AN ELEMENT NAME, AND HIS BO )@@G@@LIBRARYNUMBER (PADDED TO@F@@@@ TWELVE CHARACTERS WITH LEADING ZEROES) ISBP )@@G@@ USED AS A VERSION. FOR@D@@@@ FURTHER INFORMATION, SEE THE ELEMENT SITEBQ )@@G@@PAR/APL. @F@@@@ THE ELEMENTS IN FILE 2 OF THE DISTRIBUTION TAPE ABR )@@G@@RE ALL PART @E@@@@ OF THE PUBLIC LIBRARIES (I.E. LESS THAN 1000). THEY BS )@@G@@ARE @G@@@@ DOCUMENTED IN THE WORKSPACE 1 LIBRARYINDEX, A LISTING OF WBT )@@G@@HICH IS @F@@@@ GENERATED BY ADDING THE ELEMENT WSDOCS/ADDELEMENT INBU )@@G@@ FILE 1 OF @#@@@@ THE DISTRIBUTION.@ @@@@2CONTENTS OF FILES 3, 4, AND 5BV )@@G@@@]@@@@COLUMN 1 @F@@@@ FILE 3 CONTAINS THE MANUAL, AND THE SKELETOBW )@@G@@N AND SGSSES USED @F@@@@ INTERNALLY AT UOM TO MAINTAIN APL\1100. THE SKBX )@@G@@ELETON IS GENERA- @F@@@@ LIZED, AND CAN BE USED TO MAINTAIN ANY PROGRAM BY )@@G@@OF SIMILAR SIZE. @C@@@@ IT CONTAINS ITS OWN DOCUMENTATION AS COMMENTS. BZ )@@G@@@F@@@@ FILES 4 AND 5 CONTAIN THE RELOCATABLES AND BASE SYMBOLICS, CA )@@G@@@G@@@@ RESPECTIVELY. IN ADDITION, FILE 5 CONTAINS ELEMENTS FOR THE EXECCB )@@G@@8 @G@@@@ CHANGES NEEDED IF YOU WISH TO IMPLEMENT SUPPORT FOR TERMINACC )@@G@@LS WITH @G@@@@ THE FULL APL CHARACTERSET. THESE CHANGES IMPLEMENT TCD )@@G@@HE FULL ASCII @F@@@@ CODE IN THE TELETYPE HANDLER OF THE EXEC. THE CE )@@G@@ELEMENTS ALL HAVE @A@@@@ THE WORD ASCII IN THEIR NAMES. @ @@@@3IMPLECF )@@G@@MENTATION INSTRUCTIONS @E@@@@ TO GENERATE A VERSION OF APL\1100 FOCG )@@G@@R YOUR OWN SYSTEM-@]@@@@COLUMN 14 @F@@@@ (0) BE SURE THE EXEC CH )@@G@@YOU ARE RUNNING UNDER ALLOWS THE @F@@@@ QUARTERWORD J-DESCI )@@G@@IGNATORS IN INSTRUCTIONS. AN EXEC @F@@@@ CONFIG PARAMETER CJ )@@G@@DETERMINES WHETHER THIS IS ALLOWED. @E@@@@ ***NOTE*** THE SECK )@@G@@TTING OF THIS PARAMETER HAS @F@@@@ ***NOTHING*** TO DO WITCL )@@G@@H QUARTER-WORD CTMC'S OR ANY @F@@@@ OTHER CONFIGURATION PARCM )@@G@@AMETERS, IT MERELY DETERMINES @F@@@@ WHETHER A PROGRAM CAN SCN )@@G@@ET THE QUARTERWORD BIT IN ITS @F@@@@ PSR. THE PARAMETER EXICO )@@G@@STS FOR HISTORICAL REASONS @F@@@@ ONLY. THE ORIGINAL 1108CP )@@G@@'S (VERY LOW SERIAL NUMBERS) @F@@@@ DID NOT HAVE QUARTERWORCQ )@@G@@D HARDWARE. VERY FEW OF THESE@F@@@@ MACHINES STILL EXIST, ACR )@@G@@LL 1106'S AND 1110'S HAVE THE @F@@@@ HARDWARE. MOST 1108'S CS )@@G@@ARE IN FACT 1108A'S WHICH ALSO@G@@@@ HAVE IT. IF YOUR MACHICT )@@G@@NE IS OLD, AND YOU ARE NOT SURE @F@@@@ WHETHER IT IS AN CU )@@G@@1108 OR THE NEWER 1108A, WRITE A @E@@@@ SMALL ASSEMBLY PRCV )@@G@@OGRAM WHICH EXECUTES THE PAIJ @F@@@@ INSTRUCTION. ON 1108'SCW )@@G@@ THIS INSTRUCTION WILL EXECUTE@F@@@@ IN A USER PROGRAM, ON ACX )@@G@@N 1108A IT WILL CAUSE A GUARD @^@@@@ MODE FAULT.@F@@@@ CY )@@G@@ (1) IF YOU HAVE NOT ALREADY DONE SO, LIST THE ELEMENT @F@@@@ CZ )@@G@@ SITEPAR/APL IN FILE 1 OF THE DISTRIBUTION TAPE. THIS@F@@@@ DA )@@G@@ ELEMENT IS SELF DOCUMENTING, AND TELLS YOU HOW TO SET@F@@@@ DB )@@G@@ THE PARAMETERS NEEDED TO GENERATE A LOCAL VERSION OF @F@@@@ DC )@@G@@ THE PROCESSOR. NOTE: THIS ELEMENT MUST BE CONFIGURED@F@@@@ DD )@@G@@ AND ASSEMBLED LOCALLY. APL WILL NOT EXECUTE IF THE @F@@@@ DE )@@G@@ PARAMETERS INSTAL AND INSTAM ARE LEFT SET TO THE @F@@@@ DF )@@G@@ DISTRIBUTED VALUE, 'INSTALLATION'. THEY MUST BE SET @G@@@@ DG )@@G@@ IDENTICAL TO THE ACCOUNT NUMBER FIELD ON THE @RUN CARD @C@@@@DH )@@G@@ OF THE INITIAL APL GENERATION RUN. @B@@@@ (2) EXECUDI )@@G@@TE THE FOLLOWING RUN-- @^@@@@ @RUN ---@B@@@@ DJ )@@G@@ @ASG,T TAPE,8C,REELNO @C@@@@ @COPIN TAPE. .DK )@@G@@ GET FILE 1 @C@@@@ @ASM,US SITEPAR/APL,SITEPAR/APL @E@@@@DL )@@G@@ ... YOUR CORRECTION DECK HERE--'INSTAL' AND @F@@@@ DM )@@G@@ 'INSTAM' MUST CORRESPOND TO THE ACCOUNT NO ON THE @F@@@@ DN )@@G@@ @RUN CARD FOR THIS JOB OR APL WILL DESTROY ITSELF. @F@@@@ DO )@@G@@ @ADD GENERATE/APL . COLLECT AND EXECUTE TEST RUN @D@@@@ DP )@@G@@ -- SEE NOTE BELOW -- @B@@@@ @ASDQ )@@G@@G,CR APL$*ABSOLUTES. @F@@@@ @COPY,A ,APL$*ABSOLUTES. DR )@@G@@ . SAVE CURRENT APL @D@@@@ @ASG,AX *//. @F@@@@ @COPIN TAPE.,*. . INITIALIDT )@@G@@ZE LIBRARY @^@@@@ @FIN @]@@@@COLUMN 14 @F@@@@ DU )@@G@@ THE *.,ETC. FIELDS ON THE ABOVE CARDS @F@@@@ DV )@@G@@ REFER TO THE PUBLIC WORKSPACE FILE-- I.E.THEY MUST @F@@@@ DW )@@G@@ AGREE WITH THE PARAMETERS SET IN SITEPAR/APL WHICH @G@@@@ DX )@@G@@ DEFINE THIS FILE. YOU ***MUST*** ***NOT*** ATTEMPT TO @E@@@@DY )@@G@@ EXPLICITLY CREATE THE FILE; APL WILL CREATE AND@F@@@@ DZ )@@G@@ INITIALIZE THE FILE ITSELF IF IT FINDS THAT THE FILE @E@@@@ EA )@@G@@ WAS NOT ALREADY CREATED (E.G. BY A PREVIOUS @ @@@@ EB )@@G@@ GENERATION). @F@@@@ (3) AT THIS POINT, YOU NOW HAVE A VERSIEC )@@G@@ON OF APL, WHICH @F@@@@ CONSISTS OF THE THREE ABSOLUTE ELEMED )@@G@@ENTS APL, APL$XQ @F@@@@ AND APL$SY. THE ELEMENT APL IS THE EE )@@G@@ONE CALLED BY THE @F@@@@ PROCESSOR CALL CARD. THE ELEMENTS EF )@@G@@APL$XQ AND APL$SY @G@@@@ ARE REENTRANT MODULES LOADED BY SIMEG )@@G@@ULATION OF THE 1110 @G@@@@ LIJ INSTRUCTION WITH THE EREH )@@G@@ LINK$. THE PROCESSOR IS @F@@@@ CAPABLE OF DETERMINING EI )@@G@@WHETHER IT IS BEING EXECUTED @G@@@@ FROM SYS$*LIB$ OR NOT, EJ )@@G@@AND WILL TAKE IT UPON ITSELF TO @E@@@@ DO AN RLIST$ IF OEK )@@G@@NE IS NECESSARY. THE ABSOLUTE@E@@@@ ELEMENTS MAY BE PUT INTEL )@@G@@O SYS$*LIB$ AT YOUR @ @@@@ CONVENIENCE. @F@@@@ EM )@@G@@ (4) IF YOU ARE RUNNING THE RIGHT (OR WRONG, DEPENDING ON @G@@@@ EN )@@G@@ YOUR POINT OF VIEW) VERSION OF LEVEL26, THE SAMPLE RUN @F@@@@EO )@@G@@ MAY GIVE SPURIOUS ERRORS, USUALLY INDICATED BY WHAT @F@@@@EP )@@G@@ SEEMS TO BE MISSING WORDS IN THE INPUT STATEMENTS. @F@@@@EQ )@@G@@ THIS IS A BUG IN EXEC8, WHICH SHOWS UP BECAUSE APL @F@@@@ER )@@G@@ DOES ER TREAD$'S FROM AN @ADD FILE. AT ONE POINT A@G@@@@ES )@@G@@ 'FIX' WAS DISTRIBUTED WHICH CAUSED THE EXEC TO USE THE ET )@@G@@@F@@@@ PACKET ADDRESS AS THE BUFFER ADDRESS. A LATER FIX EU )@@G@@@F@@@@ ACTUALLY REPAIRED THE PROBLEM. IF YOU SEEM TO BE EV )@@G@@@E@@@@ HAVING THIS PROBLEM, BE SURE YOUR SYSTEM IS @^@@@@EW )@@G@@ UP-TO-DATE.@F@@@@ (5) IT IS POSSIBLE THAT YOU MAY GEX )@@G@@ET A SYMBIONT ERROR TYPE@F@@@@ 03 DURING THE COLLECTION. IF EY )@@G@@THIS HAPPENS, USE THE @F@@@@ FURPUR @PCH COMMAND TO PUNCH EZ )@@G@@THE ELEMENT GENERATE/APL@F@@@@ ON CARDS AND PUT IT IN YOUR RFA )@@G@@UNSTREAM INSTEAD OF @G@@@@ @ADD'ING IT FROM THE FILE. TFB )@@G@@HIS ERROR IS NOT AN ERROR @F@@@@ IN THE COLLECTOR, ALTHOFC )@@G@@UGH IT MAY SEEM TO BE SUCH. @F@@@@ (6) THE CHARACTERISTICS OF FD )@@G@@APL USERS ARE SUCH THAT THEY @F@@@@ MAKE VERY LIBERAL USE OFE )@@G@@F THE )SAVE AND )CONTINUE @F@@@@ COMMANDS. SINCE EACH )FF )@@G@@SAVE CREATES A NEW ELEMENT IN @G@@@@ THE FILE, AND DELETES TFG )@@G@@HE OLD COPY, THE FILE SHOULD BE @F@@@@ @PACKED FREQUENTLFH )@@G@@Y (AT LEAST ONCE A DAY). THIS IS @G@@@@ MOST EASILY DONE FI )@@G@@BY THE INSERTION OF A CANNED RUN INTO @F@@@@ BOOTELT, WHFJ )@@G@@ICH WILL PACK THE FILE AT EVERY REBOOT. @]@@@@COLUMN 2 @ @@@@3LIBRAFK )@@G@@RY NUMBERS AND QUOTAS @F@@@@ SINCE THERE ARE NO RESTRICTIONS ON TFL )@@G@@HE NAMES UNDER WHICH @F@@@@ USERS MAY SAVE WORKSPACES, IT IS OBVIOUS FM )@@G@@THAT AN ADDITIONAL ME- @F@@@@ CHANISM IS NEEDED IN ORDER TO INSURE UNIQFN )@@G@@UENESS OF THE ELEMENTS @F@@@@ SAVED BY DIFFERENT USERS IN THE COMMON FIFO )@@G@@LE. FOR THIS PURPOSE, @F@@@@ APL AUTOMATICALLY GENERATES A 'LIBRARY NUFP )@@G@@MBER' FOR EACH USER BY @G@@@@ HASHING TOGETHER HIS ACCOUNT NUMBER AND CFQ )@@G@@URRENT QUALIFIER. COLLI- @F@@@@ SIONS ARE RESOLVED BY KEEPING A SPEFR )@@G@@CIAL ELEMENT IN THE LIBRARY @F@@@@ FILE IN WHICH A RECORD OF EVERY LIBFS )@@G@@RARY NUMBER AND THE ASSOCIATED@F@@@@ ACCOUNT NUMBER AND QUALIFIER ARE KEFT )@@G@@PT. IN THIS WAY, IT IS UNNE- @F@@@@ CESSARY FOR A USER TO KNOW WHAT HISFU )@@G@@ LIBRARY NUMBER IS (OR EVEN @G@@@@ THAT HE HAS ONE), UNLESS HE WISHES FV )@@G@@TO SHARE WORKSPACES WITH A USER @E@@@@ WHO RUNS UNDER A DIFFERENT ACFW )@@G@@COUNT NUMBER AND/OR QUALIFIER.@F@@@@ IF APL\1100 HAS BEEN CONFIGUREDFX )@@G@@ SUCH THAT A SINGLE FILE IS @F@@@@ USED FOR ALL WORKSPACES (ONEFIL EQUFY )@@G@@ 1 IN SITEPAR/APL), THEN EACH @F@@@@ USER IS LIMITED TO A FIXED QUOTA OFFZ )@@G@@ MASS STORAGE IN SECTORS WHICH@G@@@@ IS SET BY THE INSTALLATION MANAGER.GA )@@G@@ IF EACH USER HAS HIS OWN FILE, @B@@@@ THE LIMIT IS SIMPLY THE SIZE GB )@@G@@OF HIS FILE.@F@@@@ ADDITIONAL FEATURES OF THE LIBRARY SYSTEM ARE: (GC )@@G@@1) NO USER @F@@@@ CAN )DROP A WORKSPACE EXCEPT THE USER WHO ORIGINALLY GD )@@G@@)SAVED IT; @F@@@@ (2) NO USER CAN )SAVE IN A PUBLIC WORKSPACE EXCEPT THGE )@@G@@E USER WHO @F@@@@ SAVED IT ORIGINALLY; (3) ONLY THE INSTALLATION MANAGEGF )@@G@@R MAY SAVE A@E@@@@ WORKSPACE IN LIBRARIES 1-99; (4) NO ONE MAY )LIB A USGG )@@G@@ER'S @D@@@@ WORKSPACES BUT HIMSELF OR THE INSTALLATION MANAGER. @A@@@@GH )@@G@@3INSTALLATION MANAGER PRIVILEGES @F@@@@ ORDINARILY, A USER SIGNSGI )@@G@@ ON TO APL USING THE CARD @APL, @F@@@@ WITHOUT ANY OPTIONS, FIELDS OGJ )@@G@@R SUBFIELDS. THE USER MAY SIGN ON @F@@@@ WITH A LIBRARY NUMBER OTHER TGK )@@G@@HAN THE ONE AUTOMATICALLY CALCULATED@F@@@@ BY PUTTING THE DESIRED LIBRARGL )@@G@@Y NUMBER AS SPEC1 ON HIS @APL CARD, @^@@@@ I.E. @APL @F@@@@GM )@@G@@ ONE LIBRARY NUMBER IS BUILT INTO THE SYSTEM AS A PRIVILEGED @F@@@@GN )@@G@@ NUMBER-THIS NUMBER IS 271828, AND IT IS INTENDED FOR THE USE OF @F@@@@GO )@@G@@ THE INSTALLATION MANAGER. IN ORDER TO SIGN ON WITH THIS NUMBER, @F@@@@GP )@@G@@ IT *MUST* BE PUT AS SPEC1 ON THE PROCESSOR CALL CARD. IT IS @F@@@@GQ )@@G@@ RECOMMENDED THAT THE INSTALLATION MANAGER PUT A LOCK ON THIS @F@@@@GR )@@G@@ NUMBER AS SOON AS HE INTRODUCES APL TO HIS INSTALLATION. THIS IS@F@@@@GS )@@G@@ DONE BY SIGNING ON WITH THE NUMBER-- I.E. @APL 271828 AND THEN @F@@@@GT )@@G@@ SIGNING OFF WITH A LOCK ON THE )OFF COMMAND-- I.E. )OFF: @F@@@@GU )@@G@@ ONCE THIS IS DONE, THE ONLY WAY TO SIGN BACK ON THIS NUMBER IS TO@G@@@@GV )@@G@@ SPECIFY BOTH THE NUMBER AND THE LOCK ON THE PROCESSOR CALL CARD BY GW )@@G@@@^@@@@ @APL 271828/ @F@@@@ WITH THE RELEASE OF APL\1100 VGX )@@G@@ERSION 5.8, IMPLEMENTATION OF @F@@@@ THE SPECIAL FUNCTIONS FOR THE INSTAGY )@@G@@LLATION MANAGER IS ESSENTIALLY@F@@@@ COMPLETE. THE WORKSPACE 271828 OPFNGZ )@@G@@S CONTAINS A COMPLETE SET OF @E@@@@ FUNCTIONS FOR MAINTENENCE OF THE WOHA )@@G@@RKSPACE FILE, INCLUDING @F@@@@ FUNCTIONS TO LIST SELECTED INFORMATION, AHB )@@G@@ND FUNCTIONS TO DO MASS @F@@@@ STORAGE BILLING. EXCEPT FOR AN OCCASIONAHC )@@G@@L FURPUR @PACK OF THE @F@@@@ WORKSPACE FILE, IT IS NOW POSSIBLE TO MAIHD )@@G@@NTAIN THE APL WORKSPACE @D@@@@ COMPLEX COMPLETELY FROM WITHIN THE APL SYHE )@@G@@STEM ITSELF.@F@@@@ IN ADDITION TO THE SPECIAL PRIVILEGES FOR THE INHF )@@G@@STALLATION @G@@@@ MANAGER, IT SHOULD BE NOTED THAT THE DISTRIBUTED PUBLHG )@@G@@IC WORKSPACES @E@@@@ (SUCH AS 1 NEWS) HAVE ALL BEEN SAVED UNDER THE HH )@@G@@INSTALLATION@F@@@@ MANAGER'S IDENTIFICATION. THUS, NO ONE MAY CHANGE ANHI )@@G@@Y OF THESE @F@@@@ WORKSPACES BUT THE INSTALLATION MANAGER. FOR THESE RHJ )@@G@@EASONS, IT @F@@@@ IS STRONGLY RECOMMENDED THAT THE LIBRARY NUMBER FOR THK )@@G@@HE INSTALLA-@F@@@@ TION MANAGER BE LOCKED WITH A LOCALLY DEFINED PASSWORHL )@@G@@D AS SOON AS@ @@@@ THE SYSTEM IS IMPLEMENTED. @#@@@@4USER INFORMATION HM )@@G@@@#@@@@3USER MANUALS @F@@@@ EVERY ATTEMPT HAS BEEN MADE TO MAKE HN )@@G@@APL\1100 COMPATIBLE WITH@F@@@@ OTHER EXTANT VERSIONS OF APL. THE PRIMARHO )@@G@@Y DIFFERENCE IS IN THE @F@@@@ CHARACTER SET, WITH OTHER DIFFERENCES BEIHP )@@G@@NG MINOR. ALL THE STAN-@G@@@@ DARD MANUALS AND TEXTS WHICH DESCRIBE THEHQ )@@G@@ APL LANGUAGE AND THE USE @F@@@@ OF THE APL TERMINAL SYSTEM MAY BE UHR )@@G@@SED ESSENTIALLY AS WRITTEN. @F@@@@ SINCE APL\1100 INCLUDES SOME UNIQUEHS )@@G@@ EXTENSIONS, AND MORE ARE @G@@@@ PLANNED, WE HAVE DECIDED TO PRODUCEHT )@@G@@ A MANUAL SPECIFIC TO APL\1100, @G@@@@ A PRELIMINARY COPY OF WHICH MHU )@@G@@AY BE FOUND IN THE THIRD FILE OF THIS @#@@@@ DISTRIBUTION. @F@@@@HV )@@G@@ AN APL\1100 USER WHO DOES NOT HAVE A COPY OF THE MANUAL MAY @G@@@@HW )@@G@@ INFORM HIMSELF ABOUT ITS FEATURES BY EXAMINING THE CONTENTS OF THE HX )@@G@@@F@@@@ PUBLIC WORKSPACES '1 APL1100' AND '1 CHARACTERSET'. THE FOLLO- HY )@@G@@@F@@@@ WING RUNSTREAM IS SUFFICIENT FOR A USER TO GET HIMSELF STARTED: HZ )@@G@@@^@@@@ @RUN @^@@@@ @APL @A@@@@ IA )@@G@@ )LOAD 1 APL1100 @ @@@@ DESCRIBE @B@@@@IB )@@G@@ )LOAD 1 CHARACTERSET @ @@@@ DESCIC )@@G@@RIBE @^@@@@ )OFF@^@@@@ @FIN @#@@@@ID )@@G@@3BIBLIOGRAPHY @F@@@@ THE FOLLOWING PUBLICATIONS CONTAIN DESCRIPTIONSIE )@@G@@ OF APL AND ITS @F@@@@ USE. THIS LIST IS BY NO MEANS EXHAUSTIVE, BUT IF )@@G@@REPRESENTS ONLY @F@@@@ THOSE PUBLICATIONS PERSONALLY KNOWN TO THE AUTHIG )@@G@@ORS OF APL\1100 AT@G@@@@ THIS TIME. NEW TEXTS IN APL ARE CONSTANTLY BEIIH )@@G@@NG BROUGHT OUT, AND @F@@@@ YOU ARE ADVISED TO CONSULT THE ADVERTISINII )@@G@@G IN RECENT ISSUES OF @B@@@@ CACM OR DATAMATION FOR THE LATEST TEXTS.IJ )@@G@@@E@@@@ A PROGRAMMING LANGUAGE, K. E. IVERSON, WILEY(1962). @]@@@@IK )@@G@@COLUMN 16 @E@@@@ PRIMARILY OF HISTORICAL INTEREST, THIS IL )@@G@@BOOK @F@@@@ DESCRIBES THE ORIGINAL APL NOTATION, WHICH DIIM )@@G@@FFERS @F@@@@ SOMEWHAT FROM THE IMPLEMENTED PROGRAMMING SYSIN )@@G@@TEM. @E@@@@ APL/360 REFERENCE MANUAL, S. PAKIN, SCIENCE RESEARCH IO )@@G@@@E@@@@ ASSOCIATES, CHICAGO (1970). THIS IS THE MOST@F@@@@IP )@@G@@ COMPLETE REFERENCE TO THE IMPLEMENTED LANGUAGE. @F@@@@IQ )@@G@@ A FORMAL DESCRIPTION OF APL, R.H. LATHWELL AND J.E. MEZEI. @G@@@@IR )@@G@@ IBM PHILADELPHIA SCIENTIFIC CENTER, TECH. REPORT NO. IS )@@G@@@F@@@@ 320-3008 (1971). THIS GIVES A FORMAL DEFINITION OFIT )@@G@@@E@@@@ THE SEMANTICS (NOT SYNTAX) OF THE APL SYSTEM,@D@@@@IU )@@G@@ DESCRIBED IN TERMS OF APL FUNCTIONS. @E@@@@ APL: IV )@@G@@AN INTERACTIVE APPROACH, L. GILMAN AND A. ROSE, @F@@@@ WILIW )@@G@@EY(1970). THIS IS THE BEST AVAILABLE TUTORIAL @F@@@@ PUBIX )@@G@@LICATION; IT CAN BE USED AS A SELF-TEACHING TOOL@C@@@@ WITIY )@@G@@H WHICH TO LEARN THE LANGUAGE.@]@@@@COLUMN 2 ___@@@ OTHER EXTANT VERSIZ )@@G@@IONS OF APL. THE PRIMARY DIFFERENCE IS IN THE @F@@@@ CHARACTER SET, WIJA )@@G@@TH OTHER DIFFERENCES BEI*[S@@@*SDFF*@[@@@[/. @]@@@[ DEF .@D@@@[JB )@@G@@. ********** DEFINITIONS OF FUZZING ACCURACY *****@G@@@[FUZIND EQU JC )@@G@@ 12 . DEFAULT FUZZ INDEX (NO OF BITS TO IGNORE) @[@@@[. JD )@@G@@@E@@@[. INTEGER CONVERSION WITH FUZZING--- @F@@@[JE )@@G@@F PROC . ARG IN A4,A5, RESULT (MAY BE DFL OR HFI) IN A1,A2 @^@@@[JF )@@G@@FUZZUP* NAME 0 . CEILING@^@@@[FUZZDN* NAME 1 . FLOOR @ @@@[ UNLI$JG )@@G@@T . @ @@@[ LMJ A0,FUZER$ . @D@@@[ DO F(0,0)JH )@@G@@ , +0.0D . NO ADJUSTMENT FOR FLOOR @C@@@[ DO 1-F(0,0) , +1.0D JI )@@G@@ . BUT CEILING ADDS ONE @#@@@[ LI$T . @F@@@[FUZDEF* NAME 0 . JJ )@@G@@ DUMMY ENTRY TO DEFINE FUZZING CONSTS @]@@@[ END .@[@@@[JK )@@G@@. @B@@@[. SET FUZZING PARAMETERS IN WORKSPACE @[@@@[. @D@@@[JL )@@G@@P PROC . ENTER WITH FUZZ INDEX TO USE IN A2 @#@@@[SETFUZ* NAMEJM )@@G@@ . @ @@@[ UNLI$T . @C@@@[ SA A2,WSFUZI JN )@@G@@ . PUT INDEX INTO THE WS@E@@@[ JZ A2,LINEUP . IF INDEX IS ZERJO )@@G@@O, NO FUZZING @E@@@[ AA,U A2,02001-60 . FUZZINDEX OF 60 ALLOWJP )@@G@@S 100% ERROR@C@@@[ LSSL A2,1 . MOVE EXPONENT OVER @E@@@[JQ )@@G@@ AA,U A2,1 . SO WE CAN FOLD IN THE DIGIT BIT @E@@@[LINEUPJR )@@G@@ LDSL A1,72-13 . ALIGN NORMALIZED DFLOAT FUZZCONST@C@@@[ DS JS )@@G@@ A1,WSFUZZ . AND PUT IT IN THE WS @#@@@[ LI$T . @#@@@[ JT )@@G@@ END . @[@@@[. @ @@@[F PROC . @ @@@[FUZDIFJU )@@G@@* NAME . @^@@@[RITE EQU F(1,1) . @^@@@[LEFT EQU JV )@@G@@ F(1,2) . @B@@@[ DFAN RITE,LEFT , . FORM SIGNED DIF@#@@@[ JW )@@G@@ UNLIST . @F@@@[ DFM LEFT,WSFUZZ . GET ABS ERROR=PERCENT(FUZJX )@@G@@Z)*ARGUMENT @C@@@[ DLM LEFT,LEFT . FORCE IT POSITIVE @C@@@[JY )@@G@@ JP RITE,$+3 . IS SIGNED DIF NEG? @E@@@[ DFA LEFT,JZ )@@G@@RITE . YES, CALCULATE DIFF BY ADDITION @E@@@[ J $+2 KA )@@G@@ . AND TEST ABS(ERR)-ABS(DIF) @F@@@[ DFAN LEFT,RITE . DIFKB )@@G@@ IS POS, SUBTRACT GIVES -ABS(DIF) @F@@@[ TN LEFT . WASKC )@@G@@ DIF.GT.ALLOWABLE ABSOLUTE ERROR? @G@@@[ DSL RITE,72 . NO,KD )@@G@@ WITHIN ERROR. FORCE DIFFERENCE TO ZERO @C@@@[ DSL LEFT,72 KE )@@G@@ . CLEAR OTHER ARG REG @#@@@[ LIST . @ @@@[ END KF )@@G@@ . @[@@@[. @F@@@[. TEST WHETHER CONTENTS OF A DOUBLE REKG )@@G@@G WILL FIT IN A HALFWORD@[@@@[. @#@@@[T PROC . @#@@@[THALFWKH )@@G@@* NAME . @#@@@[ UNLI$T . @E@@@[ JNZ T(1,1),NOGO . IF KI )@@G@@OFLO INTO LEFT REG, NOT HALF @E@@@[ LDSL T(1,1),19 . OTHERWISEKJ )@@G@@ ALIGH H1 AND SIGN OF H2@E@@@[ JNZ T(1,1),NOBACK . IF ALL BITS NKK )@@G@@OT THE SAME, QUIT @F@@@[ DSA T(1,1),19 . ALL SAME, RESTORE SIGKL )@@G@@NED ORIGINAL VALUE@C@@@[ J NOGO+1 . TAKE SUCCESS EXIT KM )@@G@@@E@@@[NOBACK DSA T(1,1),19 . MISMATCH, RESTORE ORIGINAL VALUE @[@@@[KN )@@G@@NOGO .@#@@@[ LI$T . @]@@@[ END .@[@@@[. @F@@@[A KO )@@G@@ PROC . CONDITIONAL FLOAT-- CHECKS SIZE OF DOUBLE INTEGERS @#@@@[CFLOATKP )@@G@@* NAME . @D@@@[ LA,U A(1,1),02074. INITIALIZE FOR NORMAL FLOATKQ )@@G@@@#@@@[ UNLIST . @F@@@[ JNZ A(1,2),FLOAT . AND IF LEFT HAKR )@@G@@LF NON-ZERO, GO DO IT @E@@@[ LDSL A(1,2),19 . OTHERWISE, SPLIKS )@@G@@T SIGN FROM VALUE @E@@@[ JZ A(1,2),HALF . IF STILL ZERO, MUST BKT )@@G@@E HALFINT @F@@@[ LA,U A(1,1),02074-19 . IF NOT, PREPARE FOR SHIKU )@@G@@FTED FLOAT @A@@@[FLOAT DFP A(1,1),A(1,2) . FLOAT @A@@@[ J KV )@@G@@ HALF+1 . AND EXIT @D@@@[HALF DSA A(1,2),19 . HALFINT-- RESTOKW )@@G@@RE VALUE @#@@@[ LIST . @]@@@[ END .@[@@@[. @C@@@[KX )@@G@@I PROC . TEST A DFLOAT FOR HALFINT. @G@@@[TESTIN* NAME . WKY )@@G@@ORKREG,WORD X . IF SKIP, HALFINT IS IN WORKREG+1,2 @G@@@[ I$ 076,KZ )@@G@@014,I(1,1)-A0,I(1,3),2*I(1,*3)+I(1,*2),I(1,2) . DFU ARG @#@@@[ LA )@@G@@ UNLIST . @D@@@[ DJZ I(1,1)+1,NOSKIP+1 . IF ZERO, ITS HALFINTLB )@@G@@@B@@@[ TLE,U I(1,1),02001 . PURE FRACTION?@C@@@[ J NOSKILC )@@G@@P . YES, MUST BE DOUBLE @F@@@[ TG,U I(1,1),02022 . WILL INTLD )@@G@@EGER PART FIT IN 17 BITS? @B@@@[ J NOSKIP . NO--GOODBLE )@@G@@YE @E@@@[ LDSC I(1,1)+1,1 . MAKE SURE NEXT TEST IS FOR +0 LF )@@G@@@G@@@[ JNZ I(1,1)+2,NOSKIP . YES- BE SURE LEAST SIGNIF PART IS LG )@@G@@ZERO @E@@@[ LNA I(1,1),I(1,1) . NEGATE EXPONENT FOR SHIFT LH )@@G@@@E@@@[ DSA I(1,1)+1,02031,I(1,1) . ALIGN INTEGER PART @G@@@[LI )@@G@@ JNZ I(1,1)+2,NOSKIP . IF FRACT NOT CLEAR, GIVE UP RIGHT AWAY LJ )@@G@@@E@@@[ LDSC I(1,1)+1,1 . MAKE SURE NEXT TEST IS FOR +0 @F@@@[LK )@@G@@ JNZ I(1,1)+2,NOSKIP . IF NONZERO FRACT, ITS DOUBLE @D@@@[LL )@@G@@ DSA I(1,1)+1,37 . SIGN EXTEND INTEGER @^@@@[ J LM )@@G@@ NOSKIP+1 @]@@@[NOSKIP . @#@@@[ LIST . @]@@@[ END .LN )@@G@@@[@@@[/. @[@@@[. @F@@@[. THIS PROC POPS AND DECODES THE TOP OLO )@@G@@PERAND ON THE STACK @F@@@[. ARGUMENTS ARE ALL XFER LOCNS, I.E. LLP )@@G@@OC1,LOC2,LOC3 , WHERE: @A@@@[. LOC1= EXIT IF STAKMARK @F@@@[LQ )@@G@@. LOC2,LOC3 = EXIT IF UNDEFINED- FOR STORE-TYPE ENTRIES, @G@@@[LR )@@G@@. LOC2 IS USED, ELSE LOC3. OTHER FIELD NO LONGER USEDLS )@@G@@@G@@@[. IF A SECOND FIELD IS SUPPLIED, IT IS A POINTER TO A LOCN IN LT )@@G@@WHICH @C@@@[. THE (PACKED) DESCRIPTOR IS TO BE STORED @[@@@[. LU )@@G@@@E@@@[. IF THE STACK CONTAINS A STAKMARK, IT IS LEFT IN A6. @E@@@[LV )@@G@@. IF IT CONTAINS A DATUM, REGS ARE SET AS FOLLOWS-- @[@@@[. LW )@@G@@@D@@@[. A0 -ABS ADR OF 1ST (PERHAPS ONLY) WORD OF DATA@E@@@[. LX )@@G@@ A1 -ABS ADR OF 1ST DATA VAL OF DIM VECTOR, IF ANY @#@@@[. A2 -LY )@@G@@TYPE @#@@@[. A3 -MODE @D@@@[. A4 -RANK (ALSO=LENGTH OF DIMLZ )@@G@@VECT, IF ANY) @G@@@[. A5 -LENGTH OF DATUM (I.E. NO OF ELEMENTSMA )@@G@@) OR VALUE, IF SCALHAFI @G@@@[. A6 -RELATIVE ADDR OF DESCRIPTOR BLMB )@@G@@OK (OR STACK ENTRY IF MARK) @E@@@[. A7 -RELATIVE ADDR OF DESCR BMC )@@G@@LOK OF DIMVECT (IF ANY) @[@@@[. @#@@@[V PROC . @D@@@[VERIFYMD )@@G@@* NAME 0 . POP AND REQUIRE DEFINED VAL @G@@@[VERIFS* NAME 1 ME )@@G@@ . POP AND FLAG UNDEF VAL BY EXIT THRU 2ND SUBFIELD @C@@@[VERIFZ* NAMEMF )@@G@@ 2 . NOPOP, REQUIRE DEFVAL @F@@@[VERIFW* NAME 3 . NOPOP, AMG )@@G@@LLOW UNDEFINED (AS IN STORE OPNS) @^@@@[ UNLI$T . @F@@@[MH )@@G@@VF$FLG EQU 1**V(0,0) . TRUE IFF STORE ENTRY (NAME LINE ODD ) @C@@@[MI )@@G@@ LA,U A2,VF$FLG . PICK UP STORE FLAG @C@@@[ LA,U A1,V(MJ )@@G@@0,0)<2 . SET STACKPOPPING FLAG@D@@@[ LMJ A0,VERIF$ . GO TO DECMK )@@G@@ODING SUBROUTINE @D@@@[. THE NEXT INSTR IS EXECUTED BY AN 'EX' IN THE SML )@@G@@UBRTNE@F@@@[ DO V(2)>0 , I$ 071,012,02,V(2,2),2*V(2,*2)+V(2,*1),V(2,1) MM )@@G@@. @E@@@[ DO V(2)<1 , NOP 0,0 . IT WILL STORE DESCR, IF SPECIFIED MN )@@G@@@C@@@[ J V(1,1) . STAKMARK EXIT (1,A1)@G@@@[. NEXT WORD MO )@@G@@IS UNDEFINED VALUE EXIT, WHICH IS FIELD2 FOR STORE-TYPE @F@@@[. CALLMP )@@G@@S, AND FIELD3 FOR OTHERS (HISTORICAL REASONS, SORRY). THE @B@@@[. OTHEMQ )@@G@@R FIELD (3 OR 2) IS NO LONGER USED. @C@@@[ J V(1,3-VF$FLG) . MR )@@G@@ (2,A1) @C@@@[ LI$T . NORMAL EXIT IS (3,A1)MS )@@G@@@ @@@[ END . @[@@@[. @A@@@[. PROCS TO TEST ARMT )@@G@@G MODES AND RANKS @[@@@[. @F@@@[P PROC . GENERAL: RANK,MU )@@G@@BAD MODE1,MODE2,...,BADMODE @F@@@[JMRTST* NAME . WHERE RANK MV )@@G@@AND MODES ARE THOSE EXPECTED @#@@@[ UNLI$T . @C@@@[ JE,U MW )@@G@@ A5,1 JN0010 . LENGTH 1 ALWAYS GOOD @D@@@[ JNE,U A4,P(1,1) P(1,2) MX )@@G@@. ELSE FORCE RANK CHECK @B@@@[JN0010 . TARGET FOR SUCCESSFUL RANK TEST MY )@@G@@@ @@@[. NOW DO MODE CHEX, IF ANY @E@@@[ DO P(2)=0 , GO JN$010 . IF MZ )@@G@@NO MODES GIVEN, DON'T CHECK @C@@@[ JZ A5,JN0020 . NULLS CANNA )@@G@@ BE ANY MODE@C@@@[NMODS EQU P(2)-1 . NO OF MODES SPECIFIED@G@@@[NB )@@G@@ DO NMODS>1 ,K DO NMODS-1 , JE,U A3,P(2,K) JN0020 . ALL BUT LAST MODE NC )@@G@@@F@@@[ JNE,U A3,P(2,NMODS) P(2,NMODS+1) . CHECK LAST MODE ND )@@G@@@B@@@[JN0020 . TARGET FOR SUCCESSFUL MODE TESTS @#@@@[JN$010* NAME . NE )@@G@@@#@@@[ LI$T . @#@@@[ END . @ @@@[/. GENERATE ERROR NF )@@G@@RETURNS @[@@@[. @^@@@[E PROC . CODE,LOC @#@@@[ERROR* NAME NG )@@G@@. @ @@@[ UNLI$T . @ @@@[ SLJ ERPRNT NH )@@G@@ . @ @@@[ + E(1,1),E(1,2) . @ @@@[ LI$T NI )@@G@@ . @]@@@[ END .@D@@@[/. PROC TO SETUP FORTRAN CALLINGNJ )@@G@@ SEQUENCE @A@@@[. WITH 1 OR 2 ARGUMENTS @[@@@[. @D@@@[NK )@@G@@. USAGE: FCALL SUBNAM,WALKBK ARG1,ARG2...ARGN @G@@@[. NOTE**NL )@@G@@** FCALL IS SPECIAL PROC FOR MATHRTNES, AND ASSUMES ARGS @E@@@[. NM )@@G@@ IN REGISTERS. NORMAL FORTRAN TYPE CALLS USE SCALL. @[@@@[. @[@@@[NN )@@G@@. @ @@@[F PROC . @ @@@[FCALL* NAME NO )@@G@@ . @B@@@[NARGS EQU F(2) . NUMBER OF ARGS @ @@@[ UNLI$NP )@@G@@T . @E@@@[ DS A4,F(2,NARGS) . PUT LAST ARG NQ )@@G@@IN CALL SEQ @G@@@[ DO NARGS>1 , DS A1,F(2,1) . PUT FIRST ARG IN CANR )@@G@@LL SEQ, IF USED @ @@@[ GO FC$000 . @G@@@[SCALL* NAME NS )@@G@@ . ENTRY POINT FOR CALLS WITH THEIR ARGS ALREADY@D@@@[ NT )@@G@@ . STORED IN CALL SEQ LOCS @B@@@[NARGS EQU F(2) NU )@@G@@ . NUMBER OF ARGS @ @@@[ UNLI$T . @ @@@[FC$000NV )@@G@@* NAME . @D@@@[ LMJ X11,F(1,1) . GO TO FORTRAN SNW )@@G@@UBROUTINE @D@@@[L DO NARGS , +F(2,L) . GENERATE ARGUMENT POINTERS NX )@@G@@@B@@@[ +F(1,3),F(1,2) . WALKBACK WORD @ @@@[ LI$T NY )@@G@@ . @ @@@[ END . @E@@@[/. CALL REP OR LMNZ )@@G@@J, DEPENDING UPON RE-ENTRANT MAP PARAMETER@[@@@[. @G@@@[P PROC OA )@@G@@ . CALL SEQ: CALREP, XA,TARGET,TAG . @#@@@[CALREPOB )@@G@@* NAME . @#@@@[ UNLI$T . @G@@[[ DO P(0)>1 , LXI,U P(1,1),P(0,OC )@@G@@1) . IF GIVEN, FORCE BANK DESCR INDEX @C @@[ LIJ P(1,1),P(1,OD )@@G@@2),P(1,3) . AND CALL IT@#[@@[ LI$T . @#@@@[ END . OE )@@G@@@[@@@[. @B@@@[P PROC . GET NUM IN HALFINT TO A2 @B@@@[GHFINTOF )@@G@@* NAME . PARAM I LINKREG (X4 OR X6) @ @@@[ UNLI$T . OG )@@G@@@D@@@[ALEFT EQU A1+3*(P(1,1)=X6) . RESULT REG IS A1 OR A4@A@@@[ OH )@@G@@ LMJ P(1,1),0,P(1,1) . @D@@@[ JZ ALEFT,DUN . IF HALFINOI )@@G@@T, WE'RE DONE @#@@@[. DFLOAT RESULT @ @@@[ DO P(1,1)=X4 , DL A4,A1OJ )@@G@@ . @ @@@[ FUZZDN . @C@@@[ JNZ A1,P(2,1) OK )@@G@@ . IF CAN'T FIX, DIE @ @@@[ DO P(1,1)=X6 , J OUT . @]@@@[DUN OL )@@G@@ . @ @@@[ DO P(1,1)=X6 , DL A1,A4 . @]@@@[OUT . @C@@@[ DO P(OM )@@G@@1)>1 , SA A2,P(1,2) . POST THE PARAM VALUE@#@@@[ LI$T . @#@@@[ON )@@G@@ END . ___E @F@@@[ JNE,U A3,P(2,NMODS) P(2,NMODS+1) OO )@@G@@ . CHECK LAST MODE @B@@@[JN0020 . TARGET FOR SUCCESSFUL MODE TESTS OP )@@G@@*[S@@@*SDFF*@F@@@[/. THIS PROC DEFINES THE INTERNAL CONTROL BLOCKS USED OQ )@@G@@BY APL-- @]@@@[ DEF @E@@@[. FOR EACH BLOCK, S1 OF 1ST WD=BOR )@@G@@LOCK TYPE AS FOLLOWS-- @F@@@[ZTPNAM EQU 1 . NAME BLOCK (CONTAINS SYMBOLOS )@@G@@IC VARIABLE/FN NAME) @D@@@[ZTPLIT EQU 2 . DESCRIPTOR BLOCK, LITERAL COT )@@G@@ONSTANT @E@@@[ZTPDIM EQU 3 . DIMENSION VECTOR (SPECIFIES ARRAY SHAOU )@@G@@PES) @C@@@[ZTPVAR EQU 4 . DESCRIPTOR BLOCK, NAMED VARIABLE @E@@@[ZTPTMPOV )@@G@@ EQU 5 . DESCRIPTOR BLOCK, COMPILER DEFINED TEMPORARY @D@@@[ZTPFUN EQU 6OW )@@G@@ . FUNCTION BLOCK, USER DEFINED FUNCTION @E@@@[ZTPSTA EQU 7 . STACK BLOOX )@@G@@CK, USED WHEN STACK OVERFLOWS R-REGS@D@@@[ZTPTXT EQU 010 . TEXOY )@@G@@T (LEXICALL POINTERS) @B@@@[ZTPCOD EQU 011 . CODE (COMPILED)OZ )@@G@@@C@@@[ZTPFTB EQU 012 . CLOSED FUNC TABLE @E@@@[ZTPSEC EQU PA )@@G@@ 013 . SYMBOL TABLE SECONDARY ENTRIES @E@@@[ZTPNMP EQU 014 . NPB )@@G@@AME BLOK FOR IMPLICITLY NAMED PLEX ELEMENT@G@@[[ZTPNFD EQU 076 PC )@@G@@ . BLOC TYPE FOR OBJECTS NOT FOUND BY ')COPY' @[@@@[. @F@@@[. PD )@@G@@S2 OF DESCRIPTOR BLOX INDICATES MODE OF DATA AS FOLLOWS-- @G@@@[ZMONULPE )@@G@@ EQU 0 . ENTRY NULL (I.E. PGM ERROR, EMPTY STACK, ETC)@F@@@[PF )@@G@@ZMOUNK EQU 1 . UNKNOWN (UNINITIALIZED NAMED VARIABLE) @G@@@[PG )@@G@@ZMOCHR EQU 2 . CHARACTER MODE (NOTE: IF CHAR, ALWAYS VECTOR)PH )@@G@@@D@@@[ZMOLGL EQU 3 . LOGICAL (I.E. BIT-STRING) @B@@@[ZMOHFIPI )@@G@@ EQU 4 . HALF-INTEGER @A@@@[ZMOINT EQU 5 . INTPJ )@@G@@EGER @E@@@[ZMODFL EQU 7 . DOUBLE PRECISION FLOATING POINT PK )@@G@@@F@@@[ZMODFI EQU 8 . FLAG FOR FLOATING TO INT CONVERSION PL )@@G@@@D@@@[ZMOMIX EQU 9 . FLAG FOR MIXED OPERANDS @C@@@[ZMOPTRPM )@@G@@ EQU 10 . POINTER VARIABLE @F@@@[ZMOMAX EQU 10 PN )@@G@@ . MAX MODE VAL (USED TO GENERATE TABLES) @E@@@[. S3 OF DESCRIPTOR IPO )@@G@@NDICATES RANK, I.E. RHO(RHO(X)) @A@@@[ZRANKS EQU 0 . SCAPP )@@G@@LAR @A@@@[ZRANKV EQU 1 . VECTOR @G@@@[. PQ )@@G@@ . OTHER RANKS (MATRIX, ETC) DEFINED DYNAMICALLY@#@@@[. BLOCK FORMPR )@@G@@ATS-- @G@@@[. : WORD1 : WORD2 : WORPS )@@G@@D3 : @G@@@[. TYPE : S1 S2 S3 H2 : S1 S2 S3 H2 :PT )@@G@@ H1 H2 : @G@@@[. LIT DESCRIPTS--: : PU )@@G@@ : : @G@@@[. SCAL INT : TP MO RA IMDATA : PV )@@G@@ : : @G@@@[. SCAL FLOAT : 02 MO RA :PW )@@G@@ LEFT HALF DATA : RITE 1/2 DATA : @G@@@[. VECT (ANY) : 02 MO RA LEPX )@@G@@NGTH : ... DATA ... : ... DATA ... : @G@@@[. NAMED VBL DSCR-: PY )@@G@@ : : : @G@@@[. SCAL INT/BIT :PZ )@@G@@ TP MO RA IMVALU : : FLEVEL NEXTDS : @G@@@[. SCAL REAQA )@@G@@L : TP MO RA DATADR : : FLEVEL NEXTDS : @G@@@[. VEQB )@@G@@CT (ALL) : 04 MO RA LENGTH : DATADR : FLEVEL NEXTDS : @G@@@[QC )@@G@@. ARRAY (ALL) : TP MO RA LENGTH : DIMVAD DATADR : FLEVEL NEXTDS : QD )@@G@@@G@@@[. PRIM NAME BLOK : 01 *NCHR FWDSTL : REFCNT NEXTDS : FIRST 4 CHAQE )@@G@@RS : @G@@@[. SEC NAME BLOCK :013 ----- FWDSTL : 4 CHARS OF NAME : MORE QF )@@G@@OF NAME : @G@@@[. FUNCT BLOCK : TP VF NA NLINES : LF TBLADR :QG )@@G@@ LASTDS OPNADR : @[@@@[. @]@@@[. WHERE-- @^@@@[. TP = BLOCK QH )@@G@@TYPE @^@@@[. MO = MODE OF DATA@#@@@[. RA = RANK @D@@@[. IMDQI )@@G@@ATA = IMMEDIATE DATA VALUE OF SPECIFIED DATUM @D@@@[. DATADR = WORKSPQJ )@@G@@ ADDR OF 1ST DATA WORD OF THIS DATUM@C@@@[. LENGTH = TOTAL NO OF ELEMENQK )@@G@@TS, I.E. +/,RHO(X)@G@@@[. FLEVEL = FUNCT CALL LEVEL AT WHICH THIS VALUEQL )@@G@@ IS DEFINED (0=GLOBAL) @G@@@[. NEXTDS = POINTER TO NEXT DESCRIPTOR, PUQM )@@G@@SH DOWN SYMBOL DEFINITIONS @C@@@[. DIMVAD = ADDR OF DESCRIPTOR BLOK QN )@@G@@OF DIMVETOR @F@@@[. NCHR =TOTAL NO OF CHARS IN THIS NAME (NOTE-- USESQO )@@G@@ ***Q2***) @G@@@[. FWDSTL =FOWARD SYMBOL TABLE LINK TO NEXT 2NDARY ENTQP )@@G@@RY FOR THIS NAME @F@@@[. REFCNT =NO OF TIMES THIS NAME IS REFERENCED IQQ )@@G@@N LEXICAL TEXT @E@@@[. VF = RESULT FLAG (0=UNVALUED FUNC, 1=VALUQR )@@G@@ED FUNC) @D@@@[. NA = NO OF FUNC ARGS (0=NONAD,1=MONAD,2=DYAD) QS )@@G@@@G@@@[. NLINES = NO OF LINES IN THIS FUNC (INCLUDING LINE ZERO/FUNC HEAQT )@@G@@DER) @D@@@[. LF = LOCK FLAG (NON-ZERO IF DEFN IS LOCKED) @C@@@[QU )@@G@@. TBLADR = ADDR OF LINENO TABLE (CLOSED FUNCS) @D@@@[. OPNADR = CHAIN QV )@@G@@TO 1ST BLOK OF OPEN FUNC TABLES @[@@@[. @G@@@[. FLAGS STOREDQW )@@G@@ IN 1ST OCTAL DIGIT OF LEXICALLY ANALYZED TEXT WHICH @A@@@[. INDICATE TQX )@@G@@YPE OF TEXT ENTRY-- @[@@@[. @E@@@[LEXOPR EQU 0 . PRIMITIVE OPRQY )@@G@@ (REMAINDER OF WD=OPCODE) @G@@@[LEXLIT EQU 1 . LIT CONST FOLLOWS (QZ )@@G@@REST OF ENTRY=NO OF WDS USED BY LIT)@G@@@[LEXNAM EQU 2 . OPERAND/FUNC RA )@@G@@NAME (REST OF ENTRY=SYMBOL TABLE ADDR) @A@@@[LEXSTP EQU 3 . STOPVECRB )@@G@@TOR NAME @A@@@[LEXTRC EQU 4 . TRACEVECTOR NAME @[@@@[. @]@@@[RC )@@G@@C PROC .@D@@@[CBLOCK* NAME . S1,S2,S3,H2 S1,S2,S3,H2 H1,H2 . RD )@@G@@@^@@@[CB FORM 6,6,6,18 . @C@@@[ DO C(1)>0 , CB C(1,1),C(1,2),C(1,3)RE )@@G@@,C(1,4) . @^@@@[ DO C(1)>0 , UNLIST . @C@@@[ DO C(2)>0 , CB C(2,1),CRF )@@G@@(2,2),C(2,3),C(2,4) . @ @@@[ DO C(3)>0 , +C(1,3),C(2,3) . @^@@@[ DO C(RG )@@G@@1)>0 , LIST . @]@@@[ END . @[@@@[/. @C@@@[. DEFS OF VALS ANRH )@@G@@D LOCNS IN STATEVECTOR.... @E@@@[ DEF . VALUES BERI )@@G@@LOW ARE KEPT IN 'STVCUR'@ @@@[STSUSP EQU 0 . SUSPENDED @A@@@[STFUNCRJ )@@G@@ EQU 1 . IN FUNC DEF MODE @B@@@[STFUNX EQU 2 . EXECUTING A USER FURK )@@G@@NCTION@B@@@[STEVAL EQU 3 . ACCEPTING EVALUATED INPUT@C@@@[STUNQU EQU RL )@@G@@ 4 . PROCESSING AN UNQUOTED LINE @[@@@[. @#@@@[S PROC . RM )@@G@@@B@@@[STATEV* NAME . DEFINE LOCS IN STATEVECTOR @[@@@[. @C@@@[. RN )@@G@@ ***** STATEVECTOR LAYOUT ***** @B@@@[. .........RO )@@G@@.............. @B@@@[. STATEV : CUR : DPT : CHAIN : @B@@@[RP )@@G@@. STATEV+1 : STMNTNO : INSTCTR : @B@@@[. STATEV+2 : COMCODRQ )@@G@@E : LEXTEXT : @B@@@[. STATEV+3 : FNAM/UQDS : FUNDESC : @B@@@[RR )@@G@@. STATEV+4 : FUNLINS : FUNTABL : @B@@@[. STATEV+5 : STAKFLRS )@@G@@G : S : T: : @B@@@[. ....................... @[@@@[RT )@@G@@. @E@@@[. WORDS STATEV+5,6 AND 7 ARE RESERVED FOR FUTURE EXPANSION RU )@@G@@@[@@@[. @G@@@[STVCUR* EQUF WSTATE,,Q1 . CUR = CURRENT STATE (PERV )@@G@@R 'DEF'S ABOVE) @G@@@[STVDPT* EQUF WSTATE,,Q2 . DPT = CURRENT DEPRW )@@G@@TH OF FUNCTION NESTING @F@@@[STVCHN* EQUF WSTATE,,H2 . CHAIN = LINK RX )@@G@@TO PREVIOUS STATEBLOK @F@@@[STVSTN* EQUF WSTATE+1,,H1 . STMNTNO= CURRERY )@@G@@NT STATENT NO (IBEAM 26)@F@@@[STVICT* EQUF WSTATE+1,,H2 . INSTCTR=CURRENRZ )@@G@@T IC (WITHIN STMNT) @F@@@[STVCCL* EQUF WSTATE+2,,H1 . COMCODE=COMPILSA )@@G@@ED CODE LEFT WD ADDR @G@@@[STVLXT* EQUF WSTATE+2,,H2 . LEXTEXT= ADDR SB )@@G@@OF LEXICAL TEXT (CURRENT STMT)@G@@@[STVFNN* EQUF WSTATE+3,,H1 . FNAM/UQ=SC )@@G@@ ADD OF FN NAMBLOK/UNQOUTED DESCR @F@@@[STVFND* EQUF WSTATE+3,,H2 . FUSD )@@G@@NDSC = ADDR OF CURRENT FUNC DESCR @F@@@[STVFNL* EQUF WSTATE+4,,H1 . FUSE )@@G@@NLINS= NO OF LINES IN THIS FUNC @E@@@[STVFTA* EQUF WSTATE+4,,H2 . FUSF )@@G@@NTBL=ADDR OF FUNCTION TABLE @G@@@[STVSTK* EQUF WSTATE+5,,H1 . STAKFLAGSG )@@G@@-- NON-ZERO IF ANYTHING IS STACKED @D@@@[STVSTP* EQUF WSTATE+5,,S4 . S SH )@@G@@ = STOPVECTOR FLAG @D@@@[STVTRC* EQUF WSTATE+5,,S5 . T =TRACEVSI )@@G@@ECTOR FLAG @[@@@[. @]@@@[ END .___ @[@@@[. @E@@@[LEXOPRSJ )@@G@@*[S@@@*SDFF*@F@@@[/. ASSEMBLY-TIME CONFIGURATION PARAMETERS AND PROCSSK )@@G@@ FOR APL-- @[@@@[. @#@@@[ DEF . @[#@@[. @D@@@[. PARASL )@@G@@METERS WHICH AFFECT THE APL LANGUAGE ITSELF @[@@@[. @G@@@[MAXSUBSM )@@G@@ EQU 63 . MAX NO OF SUBSCRIPTS ALLOWED. SINCE ONLY A SIXTH WORD @G@@@[SN )@@G@@ . IS DEFINED IN DESCRIPTORS FOR RANK, THIS CANNOT EXCEED SO )@@G@@@C@@@[ . 63, BUT IT COULD BE SMALLER @G@@@[MAXNAM EQU SP )@@G@@ 76 . MAX NO OF CHARS IN A VARIABLE OR FUNC NAME @[@@@[. SQ )@@G@@@G@@@[MXCNTG EQU 9 . MAX NO OF 'SYSTEM ERROR' TYPE CONTINGENCIES ALLOWSR )@@G@@ED @G@@@[ . BEFORE TOTAL COLLAPSE (ER EABT$) OF APL. TSS )@@G@@HIS VALUE @G@@@[ . IS USED TO GUARD AGAINST THE POSSIBILST )@@G@@ITY OF LOOPS INTO @G@@@[ . AND OUT OF THE CONTINGENCY ROUTSU )@@G@@INE CAUSED BY IOPR'S @C@@@[. . AND IGDM'S IN STRANGE PLASV )@@G@@CES. @[@@@[. @#@@[[CONFIG* PROC . @]I@@[ END. ___@@@@@@@@@SW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SX )@@G@@*[S@@@*SDFF*@[@@@[. @A@@@[. DYNAMIC STORAGE ALLOCATION PROX @[@@@[SY )@@G@@. @G@@@[P PROC . ALLOCATE A BLOCK (X11,A0,A1,R1 ARE USED),SZ )@@G@@ LOC TO A1 @F@@[[ALLOCT* NAME BALLOC . ENTRY FOR TEMPORARY ALTA )@@G@@LOCATIONS @E@@[[ALGLOB* NAME BALLOG . ENTRY FOR GLOBAL ALLOCTB )@@G@@ATIONS@#@@[[ UNLI$T . @G[@@[ . OR ALLOCT,J TC )@@G@@LOC,TAG(,J) WSFULL (IF A0 NOT SET) @E@@@[N EQU P-1 . FIETD )@@G@@LD NO OF WSFULL SPECIFICATION @G@@@[ DO N>1 , I$ 010,P(0,1)+P(1,3),00,P(TE )@@G@@1,2),2*P(1,*2)+P(1,*1),P(1,1) . LA0 @E@@[[ LMJ X11,P(0,0) TF )@@G@@. CALL ALLOCATION SUBROUTINE @F#@@[ I$ 074,04,00,P(N,2),2*P(N,*2)+P(N,*TG )@@G@@1),P(N,1) . JUMP IF WS IS FULL@#@@[[ LI$T . @ [@@[ END. TH )@@G@@ . @[@@@[. @E@@@[P PROC . FREE A BLOCK (X11TI )@@G@@,A0,A1,R1 ARE USED) @G@@@[FREE* NAME . TO USE, LOAD A0 WITH SIZTJ )@@G@@E, A1 WITH LOCATION OF BLOK @ @@@[ LMJ X11,BLFREE . @]@@@[TK )@@G@@ END .@F@@@[/. THE FOLLOWING PROCS ARE DESIGNED TO ALLOW A REASONATL )@@G@@BLY ORDERLY @G@@@[. TRANSITION BETWEEN THE PRESENT METHOD OF STORAGE ALLTM )@@G@@OCATION, AND THE @C@@@[. SYSTEM USED BY APL/360, WHICH IS MUCH SLICKER.TN )@@G@@@[@@@[. @G@@@[S PROC . UNLINK LARGEST BLOCK; POST ITS LIMITS FTO )@@G@@OR NEW ALLOCATION @#@@@[UNLNKL* NAME . @#@@@[ UNLI$T . @F@@[[TP )@@G@@ LMJ X11,BALARG . UNLINK LARGEST AVAILABLE BLOCK @#I@@[TQ )@@G@@ LI$T . @]@@@[ END .@[@@@[. @G@@@[. ALLOCATE SPACE FTR )@@G@@ROM THE POOLED BLOCK, AND RETURN THE UNUSED PART TO @B@@@[. THE NORMALTS )@@G@@ LIST OF AVAILABLE STORAGE @[@@@[. @E@@@[A PROC . ASSUME TT )@@G@@A0 = NO OF WORDS TO BE ALLOCATED @F@@@[ALOCTB* NAME 0 . ALLTU )@@G@@OCATE FROM BOTTOM OF POOLED BLOCK @E@@@[ALOCTT* NAME 1 . ALLTV )@@G@@OCATE FROM TOP OF POOLED BLOCK@#@@@[ UNLI$T . @E@@@[ LA TW )@@G@@ A1,WSFFWA . 1ST WORD ADDR OF POOLED BLOCK @E@@@[ LA A2,WSTX )@@G@@FLWA . LAST WORD ADDR OF POOLED BLOCK @G@@@[. COMPUTE LOWER AND UPPETY )@@G@@R LIMITS OF BLOK TO BE CHAINED ON FREE LIST @G@@@[ DO 1-A(0,0) , AA TZ )@@G@@A1,A0 . ALLOCATING FROM BOTTOM, BUMP LOWER ADDRESS @G@@@[ DO A(0,0) ,UA )@@G@@ ANA A2,A0 . ALLOCATING FROM TOP, DECREMENT UPPER ADDR @G@@@[ DO A(UB )@@G@@0,0) , AA,U A2,1 . AND THEN BUMP TO ADDR OF 1ST WD BEING FREED @E@@@[UC )@@G@@ LA,U A0,1,A2 . BUMP HI ADDR OF BLOK BEING FREED @G@@@[ UD )@@G@@ ANA A0,A1 . LESS LOW ADDR GIVES NO OF WDS TO PUT BACK @D@@@[UE )@@G@@ JN A0,A(1,1) . IF NEGATIVE, SYSTEM ERROR @E@@@[ JZ UF )@@G@@ A0,CLEAR . IF NO WDS LEFT, DON'T TRY TO FREE@F@@@[ FREE UG )@@G@@ . PUT UNUSED SPACE ON REGULAR FREE LIST @B@@@[CLEAR SZ WSFFWUH )@@G@@A . CLEAR POINTERS @ @@@[ SZ WSFLWA . @#@@@[ UI )@@G@@ LI$T . @]@@@[ END .___FF*@[@@@[. @A@@@[. DYNAMIC STORAGEUJ )@@G@@ ALLOCATION PROX @[@@@[. @G@@@[P PROC . ALLOCATE A BLOCK UK )@@G@@(X11,A0,A1,R1 ARE USED), LOC TO A1 @F@@[[ALLOCT*[S@@@*SDFF*@F@@@[/. THEUL )@@G@@SE PROCS GIVE A SET OF JUMPS WHICH ACT LIKE THE TEST INSTRS @D@@@[P UM )@@G@@ PROC . OP(,J) AREG,UTEST,UTAG(,J) DEST,DTAG @A@@@[JE* NAME 053 UN )@@G@@ . OPCODE IS:TNE @A@@@[JNE* NAME 052 . TE @A@@@[JG* UO )@@G@@ NAME 054 . TNG @A@@@[JNG* NAME 055 . TG UP )@@G@@@A@@@[JLE* NAME 055 . TG @A@@@[JW* NAME 057 . UQ )@@G@@ TNW @A@@@[JNW* NAME 056 . TW @A@@@[JOP* NAME UR )@@G@@ 044 . TEP @A@@@[JEP* NAME 045 . TOP @ @@@[US )@@G@@. GENERATE TEST INSTRUCTION @#@@@[ UNLI$T . @G@@@[ I$ P(0,0),PUT )@@G@@(0,1)+P(1,4),P(1,1)-12,P(1,3),2*P(1,*3)+P(1,*2),P(1,2) . @F@@@[ I$ 07UU )@@G@@4,04,0,P(2,2),2*P(2,*2)+P(2,*1),P(2,1) . JUMP IF TEST FAILS @#@@@[ UV )@@G@@ LI$T . @]@@@[ END .@[@@@[. @ @@@[P PROC . OP REG,DESUW )@@G@@T,TAG @A@@@[JNGD* NAME 070 . OPCODE IS: JGD @ @@@[I FORM 6,1,7UX )@@G@@,4,2,16 . @#@@@[ UNLI$T . @B@@@[ I P(0,0),0,P(1,1),0UY )@@G@@,0,$+2 . @D@@@[ I$ 074,04,0,P(1,3),2*P(1,*3)+P(1,*2),P(1,2) UZ )@@G@@@#@@@[ LI$T . @]@@@[ END .@[@@@[. @D@@@[P PROC VA )@@G@@. ***** COMPUTED JUMP PROC ******** @[@@@[. @F@@@[. THIS JUMP VB )@@G@@ACTS LIKE A COMPUTED GO TO. THE FIRST FIELD SPECIFIES@F@@@[. THE AREG TVC )@@G@@O BE JUMPED ON, AND A NOHIT EXIT. SUBSEQUENT PAIRS @G@@@[. GIVE A VALVD )@@G@@UE, AND A CORRESPONDING JUMP DESTINATION. IF THE REG IS @G@@@[. NOT VE )@@G@@ONE OF THE SPECIFIED VALUES, THE PROGRAM WILL JUMP TO THE NOHIT . @F@@@[VF )@@G@@. I.E. USAGE IS: COMJMP AREG,NOHIT VAL1,DEST1 VAL2,DEST2 ...ETC. @G@@@[VG )@@G@@. IF NOHIT CONDITION IS AN ERROR, THEN NOHIT ADDR MAY BE OMITTED, WHICH VH )@@G@@@G@@@[. WILL THEN CAUSE AN IGDM BY JUMPING TO ZERO WHEN (IF) THE ERROR OVI )@@G@@CCURS @[@@@[. @#@@@[COMJMP* NAME 1 . @#@@@[JMPTBL* NAME 0 . @[@@@[VJ )@@G@@. @#@@@[ UNLI$T . @B@@@[. FIND MIN, MAX AND DISPLACEMENT VALVK )@@G@@UES---@[@@@[. @B@@@[NTAGS EQU P-2 . NO OF TAGS @C@@@[VL )@@G@@VMIN(1) EQU P(2,1)*P(0,0) . INITIALIZE MIN VAL @G@@@[ DO P(0,0) ,K DO NVM )@@G@@TAGS , DO P(K+1,1)DMAX(1) ,DMAX(1) EQU DISVP )@@G@@P(K) .@ @@@[VMAX(1) EQU DMAX(1)+VMIN(1) . @^@@@[NJUMPS EQU DMAX(1)+1 . VQ )@@G@@@E@@@[. NOW GENERATE TESTS FOR VALID ARGS, AND THE ACTUAL JUMP @E@@@[VR )@@G@@ DO P(0,0)=0 , GO C$JP01 . IF MAKING A JUMPTABLE, DON'T TEST@D@@@[ VS )@@G@@ TG,XU P(1,1),VMIN(1) . IS MIN VAL .GT. REG? @E@@@[ TG,XU P(1,1VT )@@G@@),VMAX(1)+1 . NO, IS MAX VAL .GE. REG? @E@@@[ J P(1,2) VU )@@G@@ . ARG NOT IN TABLE, GO TO NOHIT @D@@@[ J $+1-VMIN(1),P(1,1VV )@@G@@) . JUMP INTO THE TABLE @#@@@[C$JP01* NAME . @F@@@[. IN CASE NOT ALL VW )@@G@@VALUES ARE GIVEN, MAKE A TABLE FULL OF NOHITS-- @C@@@[ORG EQU $ . VX )@@G@@ MARK BEGINNING OF TABLE@D@@@[NOHIT EQU P(0,0)+1 . SET SUBFIVY )@@G@@ELD OF NOHIT JUMP @ @@@[ J P(1,NOHIT) . @E@@@[K DO NJUMPS-VZ )@@G@@1 , J P(1,NOHIT) . FILL ENTIRE TABLE WITH NOHITS@B@@@[FINI EQU $ . WA )@@G@@ MARK END OF TABLE@F@@@[. NOW ZAP THE ERROR JUMPS BY OVERLAYING WIWB )@@G@@TH CORRECT JUMPS --- @#@@@[O PROC . @#@@@[OLAY* NAME . WC )@@G@@@B@@@[ RES ORG+DISP(K)-$ . SET LOC CTR @D@@@[ J P(K+1WD )@@G@@,2) . GENERATE THE CORRECT JUMP @]@@@[ END .@^@@@[K DO NTAGS ,WE )@@G@@ OLAY . @D@@@[ RES FINI-$ . RESET LC FOR PROPER END WF )@@G@@@#@@@[ LI$T . @]@@@[ END .@[@@@[. @ @@@[. CONVERT TWG )@@G@@O DOUBLE FLOATING @#@@@[F PROC . @ @@@[DFLOAT* NAME . AREGWH )@@G@@,U,TAG@#@@@[ UNLI$T . @ @@@[ LA,U F(1,1),02074 .@E@@@[WI )@@G@@ I$ 076,015,F(1,1)-12,F(1,3),2*F(1,*3)+F(1,*2),F(1,2) . @#@@@[ WJ )@@G@@ LI$T . @]@@@[ END .@A@@@[/. MULTIPLE REGISTER SAVE AND LOAD WK )@@G@@@[@@@[. @G@@@[. FOR EACH CONTIGUOUS GROUP OF REGS TO BE SAVED, USE 1WL )@@G@@ FIELD OF THE @C@@@[. FORM: 1STREG,1STCORELOCN, NUMBER OF REGS WM )@@G@@@[@@@[. @#@@@[P PROC . @ @@@[SAVER* NAME 0 . WN )@@G@@@ @@@[LOADR* NAME 1 . @C@@@[ PROC . THIS PROC HANDLWO )@@G@@ES A SINGLE FIELD @#@@@[SFLD* NAME . @C@@@[M(1) EQU P(K,1) WP )@@G@@ . FIRST REG TO SAVE @C@@@[C(1) EQU P(K,2) . 1ST CORE LOCN TWQ )@@G@@O USE @C@@@[N(1) EQU P(K,3) . NO OF REGS TO SAVE @G@@@[ DO (MWR )@@G@@(1)>(R1-1))++((M(1)+N(1))5 ,$(I(0,0)) LIT . EXCEPT FOR DXO )@@G@@ISPOSABLE CODE @D@@@[$(I(0,0)) . SET LC FOR WHATEVER FOLLOWS XP )@@G@@. @]@@@[ END .@[@@@[. @G@@@[. UNLIST/LIST CONTROL FOR XQ )@@G@@NESTED PROC CALLS. LOCN CTR 20 IS USED @G@@@[. TO COUNT RECURSIONXR )@@G@@ LEVELS SO ONLY PROG LEVEL CODE WILL PRINT . @F@@@[. THE PROCS UNXS )@@G@@LI$T AND LI$T MUST BE USED IN MATCHED PAIRS . @[@@@[. @#@@@[ XT )@@G@@ PROC . @#@@@[UNLI$T* NAME . @^@@@[$(20),BUMPIT* PROC . @E@@@[XU )@@G@@LEVEL EQU $ . SAVE CURRENT RECURSION LEVEL @G@@@[ DO LEXV )@@G@@VEL=0 , LIST . AT PROG LEV, LET DUMMY WD PRINT (BOTH ASM PASSES) @G@@@[XW )@@G@@ RES BUMPIT(1,1)-$ . SET LC TO SAME AS CALLING LOC FOR IDENT USAGEXX )@@G@@@E@@@[ +0 . DUMMY WORD TO FORCE PRINT OF PROC CALL LINE@D@@@[XY )@@G@@ RES LEVEL+1-$ . INCREMENT LEVEL COUNTER @]@@@[ END .XZ )@@G@@@F@@@[ BUMPIT $ . BUMP RECURSION LEVEL COUNT, PRINT PRESENT LOCN YA )@@G@@@B@@@[ UNLIST . THEN TURN OFF THS LISTING @]@@@[ END .@[@@@[YB )@@G@@. @#@@@[$(20),LI$T* PROC .@F@@@[ DO $>0 , RES -1 . RESET NESTING LEVYC )@@G@@EL (DO IS TO PREVENT ERRORS) @G@@@[ DO $=0 , LIST . IF WE'RE AT OUTERMOYD )@@G@@ST NESTING LEVEL, TURN LIST BACK ON.@]@@@[ END .@[@@@[. @G@@@[YE )@@G@@. SET PROC/END PAIRS FOR CONDITIONAL ASSEMBLY. IF FLAG (1ST FIELD) IS YF )@@G@@@E@@@[. ON (NON-ZERO) CODE IS ASSEMBLED, OTHERWISE PROC'D OUT . @[@@@[YG )@@G@@. @#@@@[P PROC . @D@@@[PROCSW* NAME . SET SWITCYH )@@G@@H TO PROC/RES @E@@@[ DO P(1,1)=0 ,* EQU PROC . IF SWITCH OFF, PROC YI )@@G@@THE CODE OFF@#@@@[ GO PS$010 .@#@@@[ENDSW* NAME . @F@@@[ DO P(YJ )@@G@@1,1)=0 ,* EQU END . MATCH TO ABOVE PROC FOR SWITCH OFF @#@@@[PS$010YK )@@G@@* NAME . @G@@@[ DO 1-P(1,1)=0 ,* EQU RES . IF SWITCH ON, ALLOW THE COYL )@@G@@DE TO ASSEMBLE @]@@@[ END .@[@@@[. @C@@@[QWDON* PROC 0,2. YM )@@G@@TURN ON QUARTER WORD MODE @^@@@[ LA,U A0,1,*0. @#@@@[ YN )@@G@@ ER PSR$.@]@@@[ END. @C@@@[QWDOFF* PROC 0,2. TURN OFF QUARTER YO )@@G@@WORD MODE @#@@@[ LA,U A0,1.@#@@@[ ER PSR$.@]@@@[ YP )@@G@@ END. @A@@@[/. EXTENDED DOUBLE PRECISION OPS @[@@@[. @A@@@[. YQ )@@G@@ DOUBLE PRECISION TESTS @#@@@[D PROC . @#@@@[DTG* NAME YR )@@G@@ 02 . @#@@@[DTLE* NAME 03 . @#@@@[ UNLI$T . @F@@@[UADR EQU YS )@@G@@ D(1,*2)*/16+D(1,2) . LUMP INDIRECT BIT INTO U-FIELD @[@@@[. @F@@@[YT )@@G@@ TLE D(1,1),UADR,D(1,3) . IS MOST SIGNIF WORD LESS OR EQUAL? @E@@@[YU )@@G@@ J GRTR . NO, TAKE GRTR EXIT RIGHT AWAY @E@@@[ DTE YV )@@G@@D(1,1),UADR,D(1,3) . YES, IF IDENTICAL, GET RIGHT OUT @E@@@[ TE D(1,1)YW )@@G@@,UADR,D(1,3) . ELSE ARE MOST SIGNIF WDS .EQ. ? @F@@@[ J LEQ YX )@@G@@ . NO. SINCE WE KNOW LEQ, MUST BE .LT. @G@@@[. SINCE MOST SIG IYY )@@G@@S .EQ. (BY TE), BUT LEAST IS NOT (BY DTE), WE CAN @G@@@[. TAKE THE DYZ )@@G@@IFFERENCE WITHOUT FEAR OF EITHER OVERFLOW OR NEGATIVE ZERO @C@@@[ DAN ZA )@@G@@D(1,1),UADR,D(1,3) . COMPUTE A MINUS U @G@@@[ I$ 074,D(0,0),D(1,1)-A0ZB )@@G@@,0,0,NOFIX . JP/JN TAKE NOSKIP EXIT WITH FIXUP @E@@@[ DA D(1,1),UADR,ZC )@@G@@D(1,3) . SKIP EXIT.. RESTORE OPERAND VALUE@G@@@[ DO D(1,*3) ,SKIP NOP 0,ZD )@@G@@0,*D(1,3) . IF INCR ON, SKIP HERE TO BUMP XREG @F@@@[ J LAST+1 ZE )@@G@@ . AFTER VALUE RESTORATION, TAKE SKIP EXIT@F@@@[NOFIX DA D(1,1),UAZF )@@G@@DR,D(1,3) . NOSKIP EXIT, FIX UP VALUE OF OPERAND@B@@@[NOSKIP . NORMAL NZG )@@G@@OSKIPS ALL COME HERE @F@@@[ DO D(1,*3) , NOP 0,0,*D(1,3) . IF INCREMEZH )@@G@@NTATION ON, BUMP THE REG@[@@@[LAST. @A@@@[ DO D(1,*3)<1 ,SKIP EQU LAST+1ZI )@@G@@ . @C@@@[GRTR EQU (D(0,0)=3)*NOSKIP+(D(0,0)=2)*SKIP .@C@@@[LEQ ZJ )@@G@@ EQU (D(0,0)=2)*NOSKIP+(D(0,0)=3)*SKIP .@]@@@[ LI$T . @]@@@[ ZK )@@G@@ END .@[@@@[. @ @@@[/. TRIPLE WORD OPERATIONS @G@@@[. ***** CAUTZL )@@G@@ION *** INDIRECTION REQUIRES 3 ADDRESS POINTER WDS ***** @[@@@[. ZM )@@G@@@E@@@[S PROC . SHIFTS-- *OPS GENERATED FOR EACH ARE* @G@@@[ZN )@@G@@. ***** CAUTION ***** THESE PROCS FAIL FOR SHIFT COUNTS GRTR THAN 36 ZO )@@G@@@C@@@[TSC* NAME 01 . DSC LSSC DSC@C@@@[TSL* NAME ZP )@@G@@ 03 . DSL LSSL DSL@C@@@[TSA* NAME 05 . ZQ )@@G@@ DSA LSSL DSA@D@@@[LTSC* NAME 011 . LDSC SSC LDSZR )@@G@@C @D@@@[LTSL* NAME 013 . LDSL SSL LDSL @G@@@[ZS )@@G@@ARAD EQU S(0,0)<010 . TRUE FOR RITE SHIFTS (8'S BIT IS DIRECTION) ZT )@@G@@@G@@@[C(1) EQU S(0,0)**06 . GET TYPE (ARITH,LGL,CIRC);TURN OFF DOUBZU )@@G@@LE BIT@F@@@[ DO S(0,0)=5 ,C(1) EQU 2 . IF ARITH, FORCE 2ND INSTR TO LOGIZV )@@G@@CAL @#@@@[ UNLI$T . @D@@@[ I$ 073,S(0,0),S(1,1)-A0+ARAD,S(1,3)ZW )@@G@@,S(1,*2),S(1,2) . @E@@@[ I$ 073,C(1)+8*ARAD,S(1,1)-A0+1,S(1,3),S(1,*2),SZX )@@G@@(1,2) . @F@@@[ I$ 073,S(0,0),S(1,1)-A0+1-ARAD,S(1,3),2*S(1,*3)+S(1,*ZY )@@G@@2),S(1,2) . @#@@@[ LI$T . @]@@@[ END @[@@@[. @ @@@[ZZ )@@G@@. TRIPLE LOAD AND STORES @[@@@[. @ @@@[T PROC AA )@@G@@ . @#@@@[TSTO* NAME 0 @#@@@[TLD* NAME 1 @#@@@[ UNLI$AB )@@G@@T . @E@@@[ I$ 071,012+T(0,0),T(1,1)-A0,T(1,3),T(1,*2),T(1,2) AC )@@G@@@G@@@[ I$ 1+7*T(0,0),0,T(1,1)-A0+2,T(1,3),2*T(1,*3)+T(1,*2),T(1AD )@@G@@,2)+2 @#@@@[ LI$T . @#@@@[ END . @[@@@[. @ @@@[AE )@@G@@. TRIPLE EQUALITY TESTS @[@@@[. @#@@@[T PROC . @#@@@[AF )@@G@@TTE* NAME 0 . @#@@@[TTNE* NAME 1 . @#@@@[ UNLI$T . @F@@@[AG )@@G@@. CAUTION... INDEX INCREMENTATION BIT IS IGNORED BY THIS PROC @F@@@[AH )@@G@@ I$ 053,0,T(1,1)-A0+2,T(1,3),T(1,*2),T(1,2)+2 . TNE REG+2,WD+2 @E@@@[AI )@@G@@ I$ 071,017,T(1,1)-A0,T(1,3),T(1,*2),T(1,2) . DTE REG,WORD @^@@@[ DO T(AJ )@@G@@0,0) , J $+2 . @#@@@[ LI$T . @]@@@[ END .@^@@@[/. PROAK )@@G@@X FOR CALLING REPS@[@@@[. @#@@@[P PROC . @C@@@[LIJ* NAME AL )@@G@@ . FORMAT LIJ XA,TARG,XB @F@@@[ UNLI$T . THIS PROC AM )@@G@@IS COMPANION TO LIJ SIMULATOR RTNE @F@@@[ I$ 072,01,P(1,1),0,0,LIAN )@@G@@J$$ . SLJ WITH XA STASHED IN IT @G@@@[ I$ 010,U,A0-A0,P(1,3),2AO )@@G@@*P(1,*3)+P(1,*2),P(1,2) . LA,U A0,TARG,XB@#@@@[ LI$T . @#@@@[AP )@@G@@ END . ___ . AFTER VALUE RES*[S@@@*SDFF*@#@@@[ AQ )@@G@@ DEF . @[@@@[. @ @@@[. PERMISSION BIT DEFINITIONS @[@@@[. AR )@@G@@@A@@@[FIPALL EQU 1*/0 . ALLOW ALL@B@@@[FIPXUS EQU 1*/1 AS )@@G@@ . ALLOW @ASG,X @F@@@[FIPLOK EQU 1*/2 . ALLOW TEMPORARY XUSE AT )@@G@@VIA LOCKSECTOR @B@@@[FIPCAT EQU 1*/3 . CATENATION @A@@@[AU )@@G@@FIPRWR EQU 1*/4 . REWRITE @E@@@[FIPREA EQU 1*/5 . REAAV )@@G@@D (BOTH DATA AND TOC POINTERS)@C@@@[FIPRCO EQU 1*/6 . READ COMPAW )@@G@@ONENT INFO @B@@@[FIPDEL EQU 1*/7 . DELETE ALLOWED @[@@@[. AX )@@G@@@[@@@[. @A@@@[. DEFINITIONS OF PACKET LABELS-- @[@@@[. @G@@@[AY )@@G@@. THE FOLLOWING WORDS HAVE THE SAME USE FOR BOTH RANDOM AND SDF FILES AZ )@@G@@@[@@@[. @B@@@[FCTABL EQUF 0,X8 . BASE OF TABLE @F@@@[LGLXUSBA )@@G@@ EQUF FCTABL,,S1 . EXCLUSIVE USE FLAG: 2**0 <=> @ASG,X @G@@@[ BB )@@G@@ . 2**1 <=> LOCAL LOCK VIA LOCKSECTOR (FHOLD) @G@@@[BC )@@G@@LGDCLF EQUF FCTABL,,S2 . USAGE: 0=UNDCL, 1=SEQNL, 2=RANDOM (NAMED) BD )@@G@@@E@@@[ . 3=SEQNL, 4=RANDOM (UNNAMED)@C@@@[BE )@@G@@LGOPNF EQUF FCTABL,,S3 . OPEN FLAG, 0=CLOSED @D@@@[LGASGF EQUF FCTABBF )@@G@@L,,S4 . ASSIGN BITS, 0=NOT ASSIGNED@C@@@[LGLNUM EQUF FCTABL,,Q4 . LOGBG )@@G@@ICAL UNIT NUM @C@@@[LGPERM EQUF FCTABL+1,,Q4 . PERMISSION BITS BH )@@G@@@C@@@[LGUKEY EQUF FCTABL+2 . USER'S KEY (2 WORDS) @F@@@[LGQUAL EQUF BI )@@G@@ LGUKEY+2 . QUALIFIER, FIELDATA LJSF FROM FACIL$ @C@@@[LGFNAM EQUF BJ )@@G@@ LGQUAL+2 . FILENAME, AS ABOVE @[@@@[. @D@@@[. PACKET AND DATA BK )@@G@@AREAS FOR SECTOR ZERO (LABEL SECTOR)@B@@@[. ALSO USED FOR I/O PACKET ON BL )@@G@@SDF FILES- @B@@@[SZPAKT EQUF LGFNAM+2 . SECTOR 0 PACKET@C@@@[SZUNAMBM )@@G@@ EQUF SZPAKT . SECTOR 0 USE NAME @C@@@[SZTSWD EQUF SZPAKT+2 BN )@@G@@ . TEST AND SET WORD @D@@@[SZSTAT EQUF SZPAKT+3,,S1 . SECTOR 0 IBO )@@G@@/O STATUS @D@@@[SZFUNC EQUF SZPAKT+3,,S2 . SECTOR 0 FUNCTION CODEBP )@@G@@@B@@@[SZACES EQUF SZPAKT+4 . ACCESS WORD @C@@@[SZWDCT EQUF SZPAKBQ )@@G@@T+4,,H1 . SECTOR 0 WORDCT @D@@@[SZBADR EQUF SZPAKT+4,,H2 . SECTBR )@@G@@OR 0 BUF ADDR @D@@@[SZDADR EQUF SZPAKT+5 . SECTOR 0 DRUM ADBS )@@G@@DR @C@@@[. AN EXTRA WORD HERE NEEDED ONLY FOR SDF FILES @D@@@[SDSIZSBT )@@G@@ EQUF SZDADR+1,,H1 . SDF BUF SIZE (SECTORS)@E@@@[SDNCWD EQUF SZDADBU )@@G@@R+1,,H2 . NEXT SDF CTL WD (LOC IN BUF)@D@@@[SDBEND EQUF SZDADR+2,,HBV )@@G@@1 . LWA+1 OF SDF BUFFER @G@@@[. I/O BUF-FOR SDF FILES, 4 SECTORS- BW )@@G@@FOR RANDOM, 28 WDS FOR SECTOR ZERO @E@@@[SZBUFR EQUF SZDADR+3 . STABX )@@G@@RT OF BUF FOR SECT 0 -SDF I/O @F@@@[SDTSIZ EQUF 2+4*28+(0177777**SZBUFRBY )@@G@@) . TABLE SIZE FOR SDF FILES @[@@@[. @C@@@[. --- DEFINE SECTOR ZEROBZ )@@G@@ (CONTROL SECTOR) ----- @[@@@[. @C@@@[SZLCTL EQUF SZBUFR . LABCA )@@G@@EL CONTROL WORD @B@@@[SZLABL EQUF SZLCTL+1 . LABEL (**RA**) @A@@@[CB )@@G@@SZTADR EQUF SZLABL+1 . TOC ADDR @D@@@[SZTMAX EQUF SZTADR+1,,H1 CC )@@G@@. MAX NO OF TOC ENTRIES @E@@@[SZTCUR EQUF SZTADR+1,,H2 . CURRENT NOCD )@@G@@ OF TOC ENTRIES @B@@@[SZLADR EQUF SZTADR+2 . LOCKSECTOR ADDR@B@@@[CE )@@G@@SZMADR EQUF SZLADR+1 . BITMAP ADDR @E@@@[SZMSIZ EQUF SZMADR+1,,HCF )@@G@@1 . BITMAP SIZE (NO OF SECTORS) @F@@@[SZDSIZ EQUF SZMADR+1,,H2 CG )@@G@@. DATA AREA SIZE (NO OF SECTORS) @E@@@[SZFWRA EQUF SZMADR+2 . 1STCH )@@G@@ (LOWEST) DATA WRITE ADDR @C@@@[SZNWRA EQUF SZFWRA+1 . NEXT DATACI )@@G@@ WRITE ADDR @E@@@[SZLIBN EQUF SZNWRA+1 . LIBNO OF OWNER (DFLOAT, 2 WCJ )@@G@@DS) @D@@@[SZTDAT EQUF SZLIBN+2 . TDATE$ OF CREATION OF FILE @D@@@[CK )@@G@@SZTLST EQUF SZTDAT+1 . TDATE$ OF LAST @ASG/FREE @E@@@[SZSIZE EQU CL )@@G@@ SZTLST+1-SZBUFR . NO OF WDS USED OF CTL SECTOR@B@@@[. PACKET AND BUF SCM )@@G@@PACE FOR TOC ENTRIES @C@@@[TOPAKT EQUF SZBUFR+28 . PACKET FOR TOC CN )@@G@@READS @D@@@[TOUNAM EQUF TOPAKT . USE NAME FOR TOC PACKET @C@@@[CO )@@G@@TOTSWD EQUF TOPAKT+2 . TEST AND SET WORD @D@@@[TOSTAT EQUF TOPAKCP )@@G@@T+3,,S1 . TOC I/O STATUS FLAG @E@@@[TOFUNC EQUF TOPAKT+3,,S2 CQ )@@G@@. FUNC CODE FOR TOC ACCESS @A@@@[TOWDCT EQUF TOPAKT+4,,H1 . CR )@@G@@@A@@@[TOBADR EQUF TOPAKT+4,,H2 . @A@@@[TODADR EQUF TOPAKT+5 CS )@@G@@ . @D@@@[TOSNUM EQUF TODADR+1,,H1 . CURRENT TOC SEG NO CT )@@G@@@F@@@[TOEADR EQUF TODADR+1,,H2 . BUF ADDR OF CURRENT TOC ENTRY CU )@@G@@@B@@@[TOBUFR EQUF TODADR+2 . TOC BUFFER@C@@@[. TOC ENTRIES FOR CV )@@G@@CURRENT ENTRY BIASED OFF X11--@C@@@[TCNTRY EQUF 0,X11 . CURRENT TCW )@@G@@OC ENTRY @D@@@[TCNWDS EQUF TCNTRY,,H1 . NO WDS USED BY DATA ENTRY CX )@@G@@@D@@@[TCDPTR EQUF TCNTRY+1 . DATA POINTER (SECTOR ADDR) @B@@@[TCDSCRCY )@@G@@ EQUF TCNTRY+2 . APL DESCRIPTOR @D@@@[TCTYPE EQUF TCDSCR,,S1 . TYPCZ )@@G@@E (ALWAYS TEMPORARY) @A@@@[TCMODE EQUF TCDSCR,,S2 . MODE @A@@@[DA )@@G@@TCRANK EQUF TCDSCR,,S3 . RANK @A@@@[TCLNTH EQUF TCDSCR,,H2 . LENDB )@@G@@GTH @E@@@[TCTDAT EQUF TCDSCR+1 . TDATE WHEN DATUM WAS WRITTEN DC )@@G@@@D@@@[TCLIBN EQUF TCTDAT+1 . LIBNO OF WRITER OF ELEMENT @C@@@[. PACKDD )@@G@@ET FOR LOCKSECTOR (FOR REWRITING) I/O @D@@@[LKPAKT EQUF TOBUFR+28 DE )@@G@@ . I/O PACKET FOR LOCKSECTOR @ @@@[LKUNAM EQUF LKPAKT . @ @@@[DF )@@G@@LKTSWD EQUF LKPAKT+2 . @ @@@[LKSTAT EQUF LKPAKT+3,,S1 . @ @@@[DG )@@G@@LKFUNC EQUF LKPAKT+3,,S2 . @ @@@[LKWDCT EQUF LKPAKT+4,,H1 . @ @@@[DH )@@G@@LKBADR EQUF LKPAKT+4,,H2 . @ @@@[LKDADR EQUF LKPAKT+5 . @C@@@[DI )@@G@@LKSLOP EQUF LKPAKT+6 . SLOP WORD FOR XFER @[@@@[. @A@@@[. PACKDJ )@@G@@ET AND DATA AREA FOR BIT MAP @[@@@[. @^@@@[BMPAKT EQUF LKSLOP+1 DK )@@G@@@ @@@[BMUNAM EQUF BMPAKT . @ @@@[BMTSWD EQUF BMPAKT+2 . DL )@@G@@@A@@@[BMSTAT EQUF BMPAKT+3,,S1 . @A@@@[BMFUNC EQUF BMPAKT+3,,SDM )@@G@@2 . @A@@@[BMPACW EQUF BMPAKT+4 . ACCESS WD@ @@@[BMWDCT EQUF DN )@@G@@ BMPACW,,H1 . @ @@@[BMBADR EQUF BMPACW,,H2 . @F@@@[BMDADR EQUF DO )@@G@@ BMPAKT+5 . DRUM ADDR OF CURRENT BITMAP SECTOR @G@@@[BMDTAD EQUF DP )@@G@@ BMDADR+1 . DATA SECT ADDR CORRESP TO THIS BITMAP SECT @[@@@[. DQ )@@G@@@F@@@[BMBUFR EQUF BMPAKT+9 . 28 WORD BUF TO HOLD 1 SECTOR OF BITMAP DR )@@G@@@[@@@[. @A@@@[. PACKET AND CONTROL INFO FOR DATA--@[@@@[. @ @@@[DS )@@G@@DAPAKT EQUF BMBUFR+28 . @D@@@[DASTAT EQUF DAPAKT+3,,S1 . DATADT )@@G@@ AREA I/O STATUS @B@@@[DAUNAM EQUF DAPAKT . USE NAME @C@@@[DU )@@G@@DATSWD EQUF DAPAKT+2 . TEST AND SET WORD @A@@@[DAFUNC EQUF DAPAKDV )@@G@@T+3,,S2 . @E@@@[DAPACW EQUF DAPAKT+4 . PRIMARY ACCESS WORD FDW )@@G@@OR DATA @ @@@[DAWDCT EQUF DAPACW,,H1 . @B@@@[DABADR EQUF DAPACDX )@@G@@W,,H2 . BUF ADDR @B@@@[DADADR EQUF DAPAKT+5 . DRUM ADDR DY )@@G@@@E@@@[DASGAW EQUF DAPAKT+6 . SCATTER-GATHER ACCESS WDS (2 WDS)@D@@@[DZ )@@G@@DASNUM EQUF DASGAW+2,,H2 . CURRENT DATA ITEM NO @F@@@[RATSIZ EQUF EA )@@G@@ 1+(0177777**DASNUM) . TABLE SIZE FOR RANDOM FILES @[@@@[. @C@@@[EB )@@G@@. COMPUTE TOT BUF SIZE NEEDED TO HOLD THE ABOVE @[@@@[. @#@@@[ EC )@@G@@ PROC . @#@@@[FILDEF* NAME . @B@@@[ DO RATSIZ>SDTSIZ ,FCTSIZ* EQUED )@@G@@ RATSIZ . @C@@@[ DO 1-(RATSIZ>SDTSIZ) ,FCTSIZ* EQU SDTSIZ . @]@@@[EE )@@G@@ END .@[@@@[. @A@@@[. DO INPUT/OUTPUT ON USER FILE-- @[@@@[EF )@@G@@. @ @@@[P PROC . FUNC,PKT ERROR @#@@@[DOIO* NAME . @ @@@[EG )@@G@@ UNLI$T . @B@@@[ LA,U A0,P(1,1) . FUNCTION EH )@@G@@CODE @A@@@[ SA,S2 A0,P(1,2)+3 . TO PACKET@B@@@[ LA,U A0,P(EI )@@G@@1,2) . PACKET ADDR @A@@@[ ER IOW$ . DO THE OP@D@@@[EJ )@@G@@ LA,S1 A0,P(1,2)+3 . GET STATUS FROM PACKET @C@@@[ JNZ EK )@@G@@ A0,P(2,1) . AND EXIT IF ERROR @#@@@[ LI$T . @#@@@[ EL )@@G@@ END . @[@@@[. @B@@@[. CHECK WHETHER A PERMISSION IS GIVEN-- EM )@@G@@@[@@@[. @#@@@[P PROC . @#@@@[JNOPER* NAME . @ @@@[ EN )@@G@@ UNLI$T . @D@@@[ LA P(1,1),LGPERM . GET PERMISEO )@@G@@SION BITS @F@@@[ TOP,U P(1,1),P(1,2) . IS REQUESTED PERMISSIOEP )@@G@@N EXPLICIT? @G@@@[ JNB P(1,1),P(2,1) . NO, IF 'ALL' NOT GIVENEQ )@@G@@ IETHER, WIPE OUT @#@@@[ LI$T . @#@@@[ END . @[@@@[ER )@@G@@. @F@@@[. TEMPORARY PROX TO PUT ALL LOCN CTRS INTO THE D-BANK UNTIL ES )@@G@@APL @ @@@[. BECOMES A SEGMENTED REP-- @[@@@[. @#@@@[ PROC ET )@@G@@ . @#@@@[TEMPIC* NAME . @#@@@[P PROC . @^@@@[INSTRS** NAMEU )@@G@@E 6 . @^@@@[CONSTS** NAME 8 . @^@@@[VARBLS** NAME 10 . EV )@@G@@@^@@@[VARCON** NAME 12 . @#@@@[$(14) LIT . @]@@@[$(P(0,0)) . EW )@@G@@@B@@@[ END . OF DEFN OF INTERNAL PROC @A@@@[ END . OF OUEX )@@G@@TERMOST PROC DEFN ___,,S2 . @A@@@[BMPACW*[S@@@*SDFF*@C@@@[/. PROEY )@@G@@X FOR PUSH AND POP OF VARIABLE STACK. @E@@@[. USED IN CONJUNCTION WEZ )@@G@@ITH STACK SUBRTNE- STKPSH,STKPOP . @]@@@[ DEF .@E@@@[STKLFT EQU FA )@@G@@ R5 . LEFTMOST R-REG USED FOR STACK @E@@@[STKRIT EQU R15 FB )@@G@@ . RIGHTMOST R-REG USED FOR STACK @[@@@[. @E@@@[STKNRG EQU FC )@@G@@ STKRIT-STKLFT+1 . TOT NO R-REGS USED FOR STACK@[@@@[. @#@@@[P FD )@@G@@ PROC . @D@@@[POP* NAME 1 . POP(,J) LOC(,TAG) STAKEMPTY FE )@@G@@@C@@@[PUSH* NAME 0 . PUSH(,J) LOC(,TAG) WSFULL @#@@@[ UNLI$FF )@@G@@T . @ @@@[R0 EQU R1-1 . @^@@@[JAY EQU P(0,1) . FG )@@G@@@^@@@[LOC EQU P(1,1) . @^@@@[TAG EQU P(1,2) . @A@@@[HI FH )@@G@@ EQU 2*P(1,*2)+P(1,*1) . @D@@@[REG EQU (LOC<(A15+1))++((LOC>R0FI )@@G@@)**(LOC2 , +0,PSUDOF(O(1,1),O(1,2),O(1,3))+O(1,4) . TYPE 1@F@@@[ DO O(HW )@@G@@1)>0 , DO O(1)<3 , +0,PSUDOF(O(1,1),0,0)+O(1,2) . TYPE 2 @]@@@[ HX )@@G@@ END .@E@@@[/. THIS PROC DEFINES THE ENTRIES WHICH APPEAR IN THE STACK HY )@@G@@@[@@@[. @G@@@[. STACK ENTRIES ARE 18 BITS-- IF THE MOST SIGNIFIHZ )@@G@@CANT (BIT 17) IS @G@@@[. OFF, THE ENTRY IS A DESCRIPTOR ADDR, IN WIA )@@G@@HICH CASE BIT 16 ON @C@@@[. IMPLIES THE OPERAND IS TO BE REDUCEIB )@@G@@D. @G@@@[. IF BIT 17 IS ON, THE ENTRY IS A STACK MARKER ASIC )@@G@@ BELOW: @[@@@[. @#@@@[ DEF . @E@@@[SKMRHS EQU 04000ID )@@G@@00 . RIGHT HAND SIDE OF STATEMENT @E@@@[SKMESL EQU 0600000 IE )@@G@@ . END SUBSCRIPT LIST (I.E. ']') @E@@@[SKMELX EQU 0600001 . ELIIF )@@G@@DED INDEX MARKER (I.E. ;;) @[@@@[. @#@@@[S PROC . @#@@@[IG )@@G@@SKMARX* NAME . @]@@@[ END .___--INDEX AND EXECUTE @G@@@[PSQVSVIH )@@G@@ EQU 2 . --VALUE OF STOPVECT @G@@@[II )@@G@@PSQVTV EQU 3 . *[S@@@*SDFF*@D@@@[ DEF . DEFINITION OFIJ )@@G@@ APL INTERNAL CODES-- @G@@@[. IK )@@G@@ CONTROL CODES @G@@@[ANULL EQU 000 . NOTE: NULL MUST *IL )@@G@@*NEVER** BE CHANGED TO BE NON-ZERO @C@@@[AINVAL EQU 0020 . INVALID CHAIM )@@G@@RACTER MARKER @A@@@[AEOL EQU 0021 . END OF LINE FLAG @A@@@[ABKSP IN )@@G@@ EQU 0022 . BACKSPACE CARRIAGE@ @@@[ALINFD EQU 0023 . LINE-FEED @A@@@[IO )@@G@@ACRTRN EQU 0024 . CARRIAGE RETURN @B@@@[AESCAP EQU 0025 . ESCAPE (O BKIP )@@G@@SP U BKSP T)@B@@@[. DIGITS @^@@@[AZERO IQ )@@G@@ EQU 0100 . 0 @^@@@[AONE EQU 0101 . 1 @^@@@[ATWO EQU 0102 IR )@@G@@. 2 @^@@@[ATHREE EQU 0103 . 3 @^@@@[AFOUR EQU 0104 . 4 @^@@@[IS )@@G@@AFIVE EQU 0105 . 5 @^@@@[ASIX EQU 0106 . 6 @^@@@[ASEVEN EQU 0IT )@@G@@107 . 7 @^@@@[AEIGHT EQU 0110 . 8 @^@@@[ANINE EQU 0111 . 9 IU )@@G@@@B@@@[. UNDERLINED DIGITS@^@@@[A0BAR EQU 0112 IV )@@G@@ . @^@@@[A1BAR EQU 0113 . @^@@@[A2BAR EQU 0114 . @^@@@[IW )@@G@@A3BAR EQU 0115 . @^@@@[A4BAR EQU 0116 . @^@@@[A5BAR EQU 0IX )@@G@@117 . @^@@@[A6BAR EQU 0120 . @^@@@[A7BAR EQU 0121 . IY )@@G@@@^@@@[A8BAR EQU 0122 . @^@@@[A9BAR EQU 0123 . @C@@@[. IZ )@@G@@ ALFABETICS @B@@@[AA EQU 0124 . A JA )@@G@@ ALFABETIC 'A' @#@@@[AB EQU 0125 @#@@@[AC EQU 0126 @#@@@[JB )@@G@@AD EQU 0127 @#@@@[AE EQU 0130 @#@@@[AF EQU 0131 @#@@@[JC )@@G@@AG EQU 0132 @#@@@[AH EQU 0133 @#@@@[AI EQU 0134 @#@@@[JD )@@G@@AJ EQU 0135 @#@@@[AK EQU 0136 @#@@@[AL EQU 0137 @#@@@[JE )@@G@@AM EQU 0140 @#@@@[AN EQU 0141 @#@@@[AO EQU 0142 @#@@@[JF )@@G@@AP EQU 0143 @#@@@[AQ EQU 0144 @#@@@[AR EQU 0145 @#@@@[JG )@@G@@AS EQU 0146 @#@@@[AT EQU 0147 @#@@@[AU EQU 0150 @#@@@[JH )@@G@@AV EQU 0151 @#@@@[AW EQU 0152 @#@@@[AX EQU 0153 @#@@@[JI )@@G@@AY EQU 0154 @#@@@[AZ EQU 0155 @B@@@[AABAR EQU 0156 . UNDEJJ )@@G@@RLINED ALFABETICS @#@@@[ABBAR EQU 0157 @#@@@[ACBAR EQU 0160 @#@@@[JK )@@G@@ADBAR EQU 0161 @#@@@[AEBAR EQU 0162 @#@@@[AFBAR EQU 0163 @#@@@[JL )@@G@@AGBAR EQU 0164 @#@@@[AHBAR EQU 0165 @#@@@[AIBAR EQU 0166 @#@@@[JM )@@G@@AJBAR EQU 0167 @#@@@[AKBAR EQU 0170 @#@@@[ALBAR EQU 0171 @#@@@[JN )@@G@@AMBAR EQU 0172 @#@@@[ANBAR EQU 0173 @#@@@[AOBAR EQU 0174 @#@@@[JO )@@G@@APBAR EQU 0175 @#@@@[AQBAR EQU 0176 @#@@@[ARBAR EQU 0177 @#@@@[JP )@@G@@ASBAR EQU 0200 @#@@@[ATBAR EQU 0201 @#@@@[AUBAR EQU 0202 @#@@@[JQ )@@G@@AVBAR EQU 0203 @#@@@[AWBAR EQU 0204 @#@@@[AXBAR EQU 0205 @#@@@[JR )@@G@@AYBAR EQU 0206 @#@@@[AZBAR EQU 0207 @ @@@[AAT EQU 0210 JS )@@G@@ . @ @@@[ADOLAR EQU 0211 . @[@@[[. @A@@[[. DECORATIONJT )@@G@@ CODES OF VARIOUS TYPES @[@@[[. @D@@[[. EXTRAS DEFINED JU )@@G@@BY THE ASCII SET------- @C@@[[ARTACK EQU 0217 . RIGHT POINTING JV )@@G@@TACK @C@@[[ALTACK EQU 0220 . LEFT POINTING TACK @C@@[[ARBRACJW )@@G@@ EQU 0221 . RIGHT CURLY BRACE @C@@[[ALBRAC EQU 0222 JX )@@G@@ . LEFT CURLY BRACE @A@@[[ADIMND EQU 0223 . DIAMOND @G@@[[JY )@@G@@. . ***** OTHER UNUSED DECORATIONS ON 2741-- JZ )@@G@@@ ]@@[AUNION EQU 0224 . @B@@@[AINTER EQU 0225 . INTKA )@@G@@ERSECTION @A@@@[ACNTNS EQU 0226 . CONTAINS @B@@@[ACNTIN EQU KB )@@G@@ 0227 . CONTAINEDIN @A@@@[ADIERS EQU 0230 . DIERESIS KC )@@G@@@ @@@[AALFA EQU 0231 . @ @@@[AOMEGA EQU 0233 . KD )@@G@@@[@@[[. @G@@[[. THE TAGS AMONST AND ADYAST ARE USED IN INTERP/APL TOKE )@@G@@ SET TABLE SIZES @[@@[[. @F@@[[AMONST EQU 0234 . CODEKF )@@G@@ FOR SMALLEST VALUED MONAD @F@@[[ADYAST EQU 0234 . CODEKG )@@G@@ FOR SMALLEST VALUED DYAD @[@@[[. @A@@@[ADOMNO EQU 0234 KH )@@G@@ . DOMINO @A[@@[ALGNOT EQU 0240 . LOGICAL NOT @#@@@[AGOTO EQU 0KI )@@G@@241 @ @@@[AUPGRD EQU 0242 . UPGRADE @A@@@[ADNGRD EQU 0243 . KJ )@@G@@ DOWNGRADE @[@@[[. @G@@[[. THE TAG ARBIAS DEFINES THE 'REDUCTION BIKK )@@G@@AS'. FUNCS WHICH APPEAR IN @G@@[[. COMPOUND OPS (E.G. REDUCTION, SCANKL )@@G@@, INNER PRODUCT) HAVE THEIR OPCODES @G@@[[. BIASED BY THIS AMOUNT BY THEKM )@@G@@ COMPILER SO THAT THEY CAN BE PACKED INTO @G@@[[. SIX BITS. ANY NEW PRIKN )@@G@@MITIVES WHICH CAN APPEAR IN COMPOUND OPERATIONS @D@@[[. MUST THEREFORE HKO )@@G@@AVE CODES IN THE RANGE (0244-0343) @[@@[[. @A@@[[ARBIAS EQU 024KP )@@G@@4 . @[@@[[. @ #@@[AADD EQU 0244 . + ADD @A@@@[KQ )@@G@@ASUBTR EQU 0245 . - SUBTRACT @A@@@[AMULT EQU 0246 . MULTIKR )@@G@@PLY @A@@@[ADIVID EQU 0247 . DIVIDE @ @@@[ACEIL EQU 0250 KS )@@G@@ . CEILING @ @@@[AFLOOR EQU 0251 . FLOOR @B@@@[AEXPON EQU 0252 KT )@@G@@ . EXPONENTIAL/POWER @ @@@[ALOG EQU 0253 . LOGARITHM@ @@@[ARESIDKU )@@G@@ EQU 0254 . RESIDUE @A@@@[AFACTL EQU 0255 . ! FACTORIAL @A@@@[KV )@@G@@ACIRCL EQU 0256 . TRIG FUNC@A[@@[AROLL EQU 0257 . ROLKW )@@G@@L/DEAL@A@@@[ASIZE EQU 0260 . SIZE/ RESHAPE @A@@@[ARAVEL EQU 0261 KX )@@G@@ . RAVEL/CATENATE @ @@@[AINDEX EQU 0262 . IOTA @A@@@[ASYSTM EQU 0KY )@@G@@263 . IBEAM @B@@@[AMEMBR EQU 0264 . MEMBERSHIP, UNQUOTE KZ )@@G@@@A[@@[AREVER EQU 0265 . REVERSE/ROTATE @B@@@[ARVFIR EQU 0266 . REVERLA )@@G@@SE ON 1ST COORD @ @@@[AXPOSE EQU 0267 . TRANSPOSE @B@@@[AMONEN EQU 0LB )@@G@@267 . ***** END OF MONADS @^@@@[AREDUC EQU 0270 . REDUCE@B@@@[ARDFIRLC )@@G@@ EQU 0271 . REDUCE ON 1ST COORDINATE@B@@@[. BEGILD )@@G@@N PURE DYADS@#@@@[AXPFIR EQU 0272 @^@@@[AXPAND EQU 0273 . EXPAND@#]@@[LE )@@G@@ALGOR EQU 0274 @A@@@[ALGNAN EQU 0275 . LOGICAL NOTAND @A@@@[ALGNORLF )@@G@@ EQU 0276 . LOGICAL NOR @A@@@[ALESS EQU 0277 . LOGICAL .LT. LG )@@G@@@D@@@[ALEQ EQU 0300 . LESSTHAN OR EQUAL @A@@@[AEQUL LH )@@G@@ EQU 0301 . .EQ. @D@@@[AGEQ EQU 0302 . GREALI )@@G@@TER THAN OR EQUAL @A@@@[AGRTR EQU 0303 . .GT. @B@@@[AUNEQLLJ )@@G@@ EQU 0304 . UNEQUAL @ @@@[ALGAND EQU 0305 . LOGICAL AND LK )@@G@@@#[@@[ADROP EQU 0306 @#@@@[ATAKE EQU 0307 . @A@@@[ADCODE EQU 0310 LL )@@G@@. DECODE @A@@@[ANCODE EQU 0311 . ENCODE @B@@@[ASTORELM )@@G@@ EQU 0312 . STORE(LEFT ARROW)@B@@@[AOUTER EQU 0313 . OUTLN )@@G@@ER PRODUCT @E@@@[ADYAEN EQU 0313 . ***** END OF DYADS **LO )@@G@@*** @C@@@[. PUNCTUATION @B@@@[AQUAD LP )@@G@@ EQU 0314 . " DISPLAY VARIABLE @D@@@[AQQUAD EQU 0315 . QUOTE-QUALQ )@@G@@D ( CHARACTER INPUT) @^@@@[ACOLON EQU 0316 . : @^@@@[ALPAR EQU 0LR )@@G@@317 . ( @C@@@[ALBRAK EQU 0320 . LEFT SUBSCRIPT BRACKET @^@@@[LS )@@G@@ARPAR EQU 0321 . ) @C@@@[ARBRAK EQU 0322 . RIGHT SUBSCRIPT BRACKLT )@@G@@ET @B@@@[ASEMIC EQU 0323 . SUBSCRIPT SEPARATOR @ @@@[. LLU )@@G@@EXICAL ITEMS @B@@@[AFUNCT EQU 0324 . FUNCTION DEFINITION @B@@@[LV )@@G@@ALOCK EQU 0325 . LOCKED FUNCTION DEFN @E@@@[AALFAN EQU 0326 . ALFLW )@@G@@ANUMERIC LITERAL ( SINGLE QUOTE) @ @@@[ASPACE EQU 0327 . SPACELX )@@G@@@A@@@[AUMINS EQU 0330 . UNARY MINUS@A@@@[ADECPT EQU 0331 . . LY )@@G@@ DECIMAL @B@@@[AMARK EQU 0332 . MARK FOR TRACE, STOP @^@@@[ATRACELZ )@@G@@ EQU 0333 . @^@@@[ASTOP EQU 0334 . @A@@@[ALAMP EQU 0335 MA )@@G@@. COMMENTS @D@@@[ALLIST EQU 0366 . $[ LEFT HAND DELIMITER FORMB )@@G@@ LISTS@D@@@[ARLIST EQU 0337 . $] RITET HAND DELIMITER FOR LISTS@A@@@[MC )@@G@@AUNDRL EQU 0340 . UNDERLINE@F@@@[. ***** INTERNAL SYMBOLS TO MAMD )@@G@@RK STORED TEXT OF FUNCT HEADER LINES@C@@@[AFNNAM EQU 0350 . NAMME )@@G@@E OF THE FUNCT @B@@@[AFNANS EQU 0351 . RESULT OF FUNCT@C@@@[MF )@@G@@AFNARG EQU 0352 . ARGUMENT OF FUNCT @D@@@[AFNLCL EQU 0353 MG )@@G@@ . LOCAL VARIABLE OF FUNCT @^@@@[APSYMB* PROC 0,0 . @]@@@[MH )@@G@@ END @F@@@[/. PROX TO TEST WHETHER A PARTICULAR SYMBOL (IN A0) ISMI )@@G@@ SOME TYPE @G@@@[. CAUTION: A REORDERING OF APSYMB MAY NECESSITATE MJ )@@G@@CHANGING THESE,TOO@D@@@[T PROC . TEST/JUMP ON DIGIT/NOT DIGIMK )@@G@@T . @#@@@[TDIGIT* NAME 01 . @#@@@[TNDIGT* NAME 02 . @#@@@[JDIGIT* NAMEML )@@G@@ 03 . @#@@@[JNDIGT* NAME 04 . @ @@@[ UNLI$T . @ @@@[MM )@@G@@ TG,U A0,AZERO . @ @@@[ TG,U A0,ANINE+1 . @^@@@[MN )@@G@@ GO T$EX10 . @C@@@[. TEST/JUMP ON ALFA/NONMO )@@G@@-ALFA @#@@@[TALFA* NAME 01 . @#@@@[TNALFA* NAME 02 . @#@@@[JALFA* NAMEMP )@@G@@ 03 . @#@@@[JNALFA* NAME 04 . @ @@@[ UNLI$T . @B@@@[MQ )@@G@@ TNE,U A0,AMARK . IS CHAR A MARK?@C@@@[ DO 1-(T(0,0)**1) , J LAMR )@@G@@ST . YES, DO @C@@@[ DO T(0,0)=1 , J LAST+1 . THE PMS )@@G@@ROPER @B@@@[ DO T(0,0)=3 , J T(1,1) . THING@^@@@[ TG,U MT )@@G@@ A0,A0BAR . @^@@@[ GO T$EX01 . @E@@@[. MU )@@G@@ TEST/JUMP ON ALFAMERIC/NONALFAM @#@@@[TALFAM* NAME 01 . @#@@@[TNALFMMV )@@G@@* NAME 02 . @#@@@[JALFAM* NAME 03 . @#@@@[JNALFM* NAME 04 . @ @@@[ MW )@@G@@ UNLI$T . @B@@@[ TNE,U A0,AMARK . IS CHAR A MARK?MX )@@G@@@C@@@[ DO 1-(T(0,0)**1) , J LAST . YES, DO @C@@@[ DO T(0,0)=1MY )@@G@@ , J LAST+1 . THE PROPER @B@@@[ DO T(0,0)=3 , J T(1,1) MZ )@@G@@ . THING@^@@@[ TG,U A0,AZERO . @#@@@[T$EX01* NAME . @ @@@[NA )@@G@@ TG,U A0,AZBAR+1 . @ET@@[. ASSEMBNB )@@G@@LE ANY NEEDED JUMPS @#@@@[T$EX10* NAME . @ @@@[ DO T(0,0)=1 , GO NC )@@G@@ T$EX20 . @^@@@[ DO T(0,0)<4 , J $+2 . @ @@@[ DO T(0,0)>2 , J T(1,1)ND )@@G@@ . @#@@@[T$EX20* NAME . @[@@@[LAST .@#@@@[ LI$T . @]@@@[NE )@@G@@ END .@[I@@[/. @E@@@[FDSYMB* PROC . DEFINE INTERNAL/FIELDATNF )@@G@@A CHAR EQUIVALENCE@E@@@[. FLDATA(I) IS FIELDATA WHERE I IS INTERNG )@@G@@NAL CODE @E@@@[. APSYMF(F) IS INTERNAL CODE WHERE F IS FIELDANH )@@G@@TA @F@@@[. IT IS ASSUMED THAT THE INTERNAL APL CODES HAVE BEEN PREVIONI )@@G@@USLY @A@@@[. DEFINED BY AN 'APSYMB' REFERENCE. @[@@@[. @D@@@[. DEFINJ )@@G@@NE CHARACTERS TO BE USED AS FLAGS IN FIELDATA @B@@@[FDFLAN* EQU 2 . NNK )@@G@@O OF CHARS USED AS FLAGS@#@@@[FDFLAG*(1) EQU '$'@#@@@[FDFLAG*(2) EQU '@'NL )@@G@@@[@@@[. @F@@@[FDSGMT** FUNC . FIND WHICH SEGMENT (64 WD) AN FD CHAR NM )@@G@@FALLS INTO @]@@@[I(1) EQU 192@A@@@[AFLAG EQU (FDSGMT(1)/0100)**077 NN )@@G@@@B@@@[K DO 2 , DO AFLAG=FDFLAG(K) ,I(1) EQU K*64@A@@@[ DO FDSGMT(1)<0100NO )@@G@@00 ,I(1) EQU 0 @]@@@[ END I(1) @[@@@[. @C@@@[SORT* PROC . INTENP )@@G@@RNAL,FD INTERNAL,FD ... ETC. @D@@@[L DO SORT ,TAG(L) EQU SORT(L,2)+0100NQ )@@G@@00*SORT(L,*2) @C@@@[L DO SORT ,FLDATA**(SORT(L,1)+1) EQU TAG(L) NR )@@G@@@D@@@[L DO SORT ,Z(L) EQU FDSGMT(TAG(L))+(077**SORT(L,2))+1 @B@@@[L DO SNS )@@G@@ORT ,APSYMF**(Z(L)) EQU SORT(L,1) @]@@@[ END @[@@@[. @F@@@[NT )@@G@@. THE FOLLOWING POINTS SHOULD BE NOTED IN USING THE SORT PROC-- @G@@@[NU )@@G@@. (1) THE ORDER OF PARAMETER FIELDS IS IMMATERIAL EXCEPT THAT ALTERNATENV )@@G@@@F@@@[. DEFS (IF ANY) OF A SYMBOL MUST ALL PRECEDE THE PRIMARY DEF. NW )@@G@@@G@@@[. (2) SUBFIELDS MUST BE OF THE FORM: INTERNAL,FD . IF FD IS MULTNX )@@G@@I-CHAR@B@@@[. IT MUST BE PRECEDED BY AN ASTERISK. @F@@@[. IT WILNY )@@G@@L PRINT AS A QUESTION MARK WHEN WRITTEN AS OUTPUT @G@@@[. (3) QUESTNZ )@@G@@ION MARK CAN NEVER BE INPUT FROM A TTY. ALTERNATE IS '$Q' @G@@@[. (4)OA )@@G@@ THE FOLLOWING FD CHARS HAVE AMBIGUOUS TTY AND PRINTER GRAPHICS: @C@@@[OB )@@G@@. GRAPHIC PRINTER TTY OCTAL @B@@@[. ^ DEOC )@@G@@LTA UP ARROW 04@B@@@[. " LOZENGE DOUBLE QUOTE 76OD )@@G@@@B@@@[. RECORD MK LEFT ARROW 77@G@@@[. THE RECORD MOE )@@G@@ARK (077) CAN NEVER BE USED, AS SYSTEM I/O USES IT @G@@@[. AS A FOF )@@G@@LAG FOR END OF LINE (AT OUTPUT), AND TTY USES IT FOR EDITING@[@@@[. OG )@@G@@@B@@@[. NOW LET'S DEFINE THE DAMN SYMBOLS--- @[@@@[. @]@@@[ SORT OH )@@G@@; @E@@@[; **** UNDERLINED NUMERICS **** OI )@@G@@@G@@@[A0BAR, '0' A1BAR, '1' A2BAR, '2' A3BAR, '3' A4BAR, '4' OJ )@@G@@ ; @G@@@[A5BAR, '5' A6BAR, '6' A7BAR, '7' A8BAR, '8' A9BAR, OK )@@G@@'9' ; @C@@@[ ; ***** NUMERICS ***** @G@@@[OL )@@G@@ AZERO, '0' AONE, '1' ATWO, '2' ATHREE, '3' AFOUR, '4' ; OM )@@G@@@G@@@[ AFIVE, '5' ASIX, '6' ASEVEN, '7' AEIGHT, '8' ANINE, '9' ON )@@G@@ ; @D@@@[ ; . ***** UNDERLINED ALFABETICS ***** @G@@@[OO )@@G@@ AABAR, 'A' ABBAR, 'B' ACBAR, 'C' ADBAR, 'D' AEBAR, 'E' ; OP )@@G@@@G@@@[ AFBAR, 'F' AGBAR, 'G' AHBAR, 'H' AIBAR, 'I' AJBAR, 'J' OQ )@@G@@ ; @G@@@[ AKBAR, 'K' ALBAR, 'L' AMBAR, 'M' ANBAR, 'N' AOBAR, OR )@@G@@ 'O' ; @G@@@[ APBAR, 'P' AQBAR, 'Q' ARBAR, 'R' ASBAR, 'S' AOS )@@G@@TBAR, 'T' ; @G@@@[ AUBAR, 'U' AVBAR, 'V' AWBAR, 'W' AXBAR, OT )@@G@@'X' AYBAR, 'Y' ; @#@@@[ AZBAR, 'Z' ; @D@@@[ ; OU )@@G@@ ***** ORDINARY ALFABETICS ***** @G@@@[ AA, 'A' AB, 'B' AC,OV )@@G@@ 'C' AD, 'D' AE, 'E' ; @G@@@[ AF, 'F' AG, 'GOW )@@G@@' AH, 'H' AI, 'I' AJ, 'J' ; @G@@@[ AK, 'K' AL, OX )@@G@@ 'L' AM, 'M' AN, 'N' AO, 'O' ; @G@@@[ AP, 'P'OY )@@G@@ AQ, 'Q' AR, 'R' AS, 'S' AT, 'T' ; @G@@@[ AU, OZ )@@G@@ 'U' AV, 'V' AW, 'W' AX, 'X' AY, 'Y' ; @G@@@[PA )@@G@@ AZ, 'Z' ; PB )@@G@@@G@@@[AUNION,*'@U' AINTER,*'@I' ACNTNS,*'@C' ACNTIN,*'@N' ADIERS,*'@S' PC )@@G@@ ; @G@@[[AALFA, *'@F' AOMEGA,*'@W' ADOMNO,*'@%' AUNDRL,*'@-' PD )@@G@@ ; @D[@@[ ; ALTERNATE CHARS FOR SITES WITHOUT UOM TTY35 CHANGESPE )@@G@@@G@@@[ AMULT, *'$%' ATAKE, *'@T' ADROP, *'@D' AQUAD, *'$W' AQQUAD,*'$H' PF )@@G@@ ; @D@@@[ ; ***** PRIMITIVE SCALAR OPS ***** @G@@@[PG )@@G@@ AADD, '+' ASUBTR, '-' AMULT, '#' ADIVID, '%' ACEIL, *'$C' ; PH )@@G@@@G@@@[ AFLOOR,*'$L' AEXPON, '*' ALOG, *'$*' ARESID,*'$!' AFACTL, '!' PI )@@G@@ ; @G@@@[ AROLL, *'$Q' AROLL, '?' ACIRCL,*'$T' ALGNOT,*'$N' ALGAND,PJ )@@G@@*'$A' ; @G@@@[ ALGOR, *'$O' ALGNAN,*'@A' ALGNOR,*'@O' ALESS, '<' APK )@@G@@LEQ, *'$<' ; @G@@[[ ALGOR, *'$+' ALGNOR,*'@+' ; NEW STANDARDS FOR PL )@@G@@LOGICAL OR ON OUTPUT @E@@[[ ALGAND,*'$#' ALGNAN,*'@#' ; AND ALSO FOPM )@@G@@R LOGICAL AND @G@@@[ AEQUL, '=' AUNEQL,*'$=' AGRTR, '>' AGEQ, *PN )@@G@@'$>' ; @D@@@[ ; ***** PRIMITIVE MIXED FUNCTPO )@@G@@IONS ***** @G@@@[ ASIZE, *'$R' ARAVEL, ',' AINDEX,*'$I' ATAKE, '^' APP )@@G@@DROP, *'$^' ; @G@@@[ AUPGRD,*'$U' ADNGRD,*'$D' AREDUC, '/' AXPAND, PQ )@@G@@'\' AREVER,*'$V' ; @G@@@[ AXPOSE,*'$X' AMEMBR,*'$E' ADCODE,*'$B' ANPR )@@G@@CODE,*'@B' ; @D@@@[ ; ***** PRIMITIVE MIXED ON LPS )@@G@@AST COORD ***** @G@@@[ ARDFIR,*'$/' AXPFIR,*'$\' ARVFIR,*'@V' PT )@@G@@ ; @C@@@[ ; ***** OTHER CALCULATIONAL OPS **PU )@@G@@*** @G@@@[ AOUTER,*'$.' AGOTO, *'$G' AQUAD, '"' AQQUAD,*'$"' ASYSTM,PV )@@G@@*'$Y' ; @G@@@[ ASTORE,*'$S' PW )@@G@@ ; @D@@@[ ; ***** PUNCTUATION AND SYSTEM SYMBOLS *PX )@@G@@**** @G@@@[ AUMINS, '&' ASPACE, ' ' AALFAN, 072 ALPAR, '(' ARPAR, PY )@@G@@ ')' ; @G@@@[ ALBRAK, '[' ARBRAK, ']' ADECPT, '.' ACOLON, ':' APZ )@@G@@SEMIC, ';' ; @G@@@[ AFUNCT,*'$F' ALAMP, *'$:' ALOCK, *'$K' AMARK, *QA )@@G@@'$M' ; @F@@@[ AESCAP,*'$@' ; ESCAPE FROM QUOTE-QUAD INPQB )@@G@@UT (O-BKSP-U-BKSP-T) @G@@@[ ADOLAR,*'$$' ADOLAR, '$' ; DOLLAR SIGN FQC )@@G@@OR INPUT ($$) AND OUTPUT ($) @F@@@[ AAT, *'@@' AAT, '@' ; ATSIGN QD )@@G@@FOR INPUT (@@) AND OUTPUT (@) @G@@@[ . END OF CORRESPONDENCE TBL BETQE )@@G@@WEEN FIELDATA AND INTERNAL -WHEW! @]@@@[ END @D@@@[/. CONVERSIOQF )@@G@@N PROCS BETWEEN FIELDATA AND INTERNAL CODE@[@@@[. @F@@@[O PROC QG )@@G@@ . EXECUTE TIME CONVERSION, INTERNAL TO FIELDATA @D@@@[OUTCNV* NAMEQH )@@G@@ 0 . COUNTLOC FROM,TO (NO WDS LEFT IN A0) @G@@@[OUTCNB* NAME 1 . ENTRY TQI )@@G@@O FORCE BLANK FILL REGARDLESS OF BATCH/DEMAND @#@@@[ UNLI$T . QJ )@@G@@@D@@@[ LR,O(0,1) R1,O(1,1) . CHAR COUNT FOR OUTPUT @G@@@[ DO O(QK )@@G@@2,1)<0 , GO OC$010 . IF NOT GIVEN, BYPASS SETUP OF 'FROM' LINKAGE @E@@@[QL )@@G@@ DL A1,WRFCTL . INITIALIZE POINTERS IN EDIT RTNE @F@@@[ QM )@@G@@ LXM,U*(1-O(2,*1)) A2,O(2,1) . SET BEGIN ADDR OF 'FROM' AREA@#@@@[OC$010QN )@@G@@* NAME . @D@@@[ LA A0,(+1,O(2,2)) . SET ADDR OF 'TO' AREA QO )@@G@@@F@@@[ DO 1-O(0,0) , LMJ X11,WREDIT . EDIT WITH BATCH/DEMAND FILL CHAR QP )@@G@@@E@@@[ DO O(0,0) , LMJ X11,WREDIB . EDIT WITH FORCED BLANK FILL @D@@@[QQ )@@G@@ ANA A0,(+1,O(2,2)) . COMPUTE NO OF WORDS USED@#@@@[ LI$T QR )@@G@@. @]@@@[ END .@[@@@[. @[@@@[. @A@@@[. TRANSLATE FD TOQS )@@G@@ INTERNAL CODE @[@@@[. @A@@@[. CALL: INCNV IN,OUT,COUNT ERROR QT )@@G@@@[@@@[. @ @@@[P PROC . @ @@@[INCNV* NAME QU )@@G@@ . @ @@@[ UNLI$T . @B@@@[ L,P(0,1) R1QV )@@G@@,P(1,3) . CHAR COUNT @ @@@[ LXI,U A0,1 . @A@@@[ DO 1QW )@@G@@-P(1,*1) , LXM,U A0,P(1,1) .@A@@@[ DO P(1,*1) , LXM A0,P(1,1) .QX )@@G@@@ @@@[ LXI,U X3,1 . @A@@@[ DO 1-P(1,*2) , LXM,U X3,P(1,QY )@@G@@2) .@A@@@[ DO P(1,*2) , LXM X3,P(1,2) .@A@@@[ LMJ X11,TQZ )@@G@@RANFD . DO IT @ @@@[ DO P(2)>0 , J P(2,1) . @ @@@[ LI$T RA )@@G@@ . @ @@@[ END . @[@@@[. @[@@@[RB )@@G@@. @G@@@[APLBCI* PROC . THIS PROC GENERATES MESSAGE CONSTANTS, I.E. TRC )@@G@@HE INTERNAL @G@@@[. CODE CORRESPONDING TO A MESSAGE WHICH IRD )@@G@@S PUNCHED ON THE @G@@@[. SOURCE CARD IN THE ASSEMBLER'S CHRE )@@G@@ARACTER SET (FIELDATA) @G@@@[. WE ASSUME THAT THE FIELDATA--- INTERNRF )@@G@@AL CORRESPONDENCE HAS BEEN @G@@@[. ALREADY ESTABLISHED THROUGH A REFRG )@@G@@ERENCE TO THE 'FDSYMB PROCEDURE. @C@@@[UNPK* PROC. CONVERT ONE FIELRH )@@G@@D TO INTERNAL @E@@@[DBL EQU UNPK(1,1)+0D . FORCE SYMBOL TO DOUBLERI )@@G@@ PRECISION @G@@@[L DO 12 ,C(L) EQU 077**(DBL*/(6*(L-12))) . EXTRACT ERJ )@@G@@ACH CHARACTER @D@@@[NK(1) EQU 12. SET NO OF CHARS TO BE CONVERTRK )@@G@@ED @B@@@[ DO C(1)+C(2)+C(3)+C(4)=0 ,NK(1) EQU 8. @D@@@[ DO NK(1)=8 RL )@@G@@, DO C(5)+C(6)+C(7)+C(8)=0 ,NK(1) EQU 4. @D@@@[ DO NK(1)=4 , DO C(9)+C(RM )@@G@@10)+C(11)+C(12)=0 , END. @F@@@[ DO NK(1)<12 ,L DO NK(1) ,C(L) EQU CRN )@@G@@(L+12-NK(1)) . WORD ADJUST @C@@@[ADJUST NAME . NOW LEFT ADJUST AND BRO )@@G@@LANK FILL @B@@@[ DO C(1)>0 , GO BCIGEN. OUT IF ADJUSTED @B@@@[L DO NRP )@@G@@K(1) ,C(L) EQU C(L+1) . LEFT ADJUST@B@@@[C(NK(1)) EQU ASPACE. .RQ )@@G@@ BLANK FILL @ @@@[ GO ADJUST. TRY AGAIN@C@@@[BCIGEN* NAME. NOWRR )@@G@@ GENERATE THE DATA WORD(S) @E@@@[M DO NK(1)/4 , + APSYMF(C(4*M-3)+1),RS )@@G@@APSYMF(C(4*M-2)+1), ; @D@@@[ APSYMF(C(4*M-1)+1),APSYMFRT )@@G@@(C(4*M)+1). @]@@@[ END. @A@@@[L DO APLBCI(1) , UNPK APLBCI(1,L) RU )@@G@@@]@@@[ END ___ @D@@@[ LR,O(0,1) R1,O(1,1) . CHAR COUNT FORV )@@G@@R OUTPUT @G@@@[ DO O(2,1)<0 , GO OC$010 . IF *[S@@@*SDFF*@ @@@[. DEFIRW )@@G@@NE SIZE OF WORKSPACE @]@@@[ DEF .@E@@@[WSSVSI EQU 8 RX )@@G@@ . SIZE OF STATE INDICATOR BLOCK @G@@[[WSYSIZ EQU 256 RY )@@G@@. DEFAULT SYMBOL TBL SIZE (NO OF ENTRIES) @F@@[[WSSIND EQU 2 RZ )@@G@@ . DEFAULT WS SIZE (4096 WD BLOCKS) @G@@[[WSSIZE EQU 4096*WSSISA )@@G@@ND . DEFAULT FREE STORAGE (NOMINAL) IN WORDS @D@@[[WSTAG EQU X1 SB )@@G@@ . BASE REG FOR WORKSPACE@B@@[[. NOW DEFINE TAGS IN THE WORKSSC )@@G@@PACE ITSELF @C@@[[WSID EQUF 0,WSTAG . WORKSPACE NAME @B@@[[SD )@@G@@WSPASW EQU WSID+3 . PASSWORD @D@@[[WSDSAV EQU WSPASW+2 SE )@@G@@ . TIME/DATE OF LAST SAVE@F@@[[WSASIZ EQU WSDSAV+2 . ACTUSF )@@G@@AL SIZE OF CURRENT WORKSPACE @B@@[[WSISIZ EQUF WSASIZ,,H1 . SIZESG )@@G@@ INDEX@D@@[[WSNSIZ EQUF WSASIZ,,H2 . NOMINAL SIZE IN WORDS @F@@[[SH )@@G@@WSFREE EQU WSASIZ+1 . POINTER TO START OF FREE LIST @E@@[[SI )@@G@@WSSTAK EQU WSFREE+1 . POINTER TO TOP OF STACK @E@@[[WSSFEISJ )@@G@@ EQU WSSTAK+1 . SIGNAL FLAG FOR EVAL INPUT @H@@[[WSTATE EQU SK )@@G@@ WSSFEI+2 . STATE VECTOR (FIELDS DEFINED BY PROC STATEV) @E@@[[SL )@@G@@WSFLGA EQU WSTATE+WSSVSI . FLAG WORD FOR SYMBOL TABLE @F@@[[WSYMAXSM )@@G@@ EQUF WSFLGA,,H2 . MAX NO ENTRIES ALLOWED IN SYM TBL @F@@[[WSFLGBSN )@@G@@ EQU WSFLGA+1 . ANOTHER SYMBOL TABLE FLAG WORD @F@@[[WSYORGSO )@@G@@ EQUF WSFLGB,,H1 . POINTER TO 1ST WORD OF SYMB TBL @F@@[[WSYENDSP )@@G@@ EQUF WSFLGB,,H2 . POINTER TO LAST WORD OF SYMB TBL @E@@[[WSFLGCSQ )@@G@@ EQU WSFLGB+1 . AND YET ANOTHER FLAG WORD @H@@[[WSVERS EQUFSR )@@G@@ WSFLGC,,Q1 . APL VERSION UNDER WHICH THIS WS LAST SAVED @G@@[[SS )@@G@@WSLEVL EQUF WSFLGC,,Q2 . AND LEVEL (IN CASE WS FMT EVER CHANGES) ST )@@G@@@G@@[[WSYNUM EQUF WSFLGC,,H2 . CURRENT NO OF ENTRIES IN SYMBOL TASU )@@G@@BLE @F@@[[WSFUZZ EQU WSFLGC+1 . 1ST WORD OF (DFLOAT) FUZZ COSV )@@G@@NST @A@@[[WSFLGD EQU WSFUZZ+2 . @F@@[[WSFUZI EQUF WSFSW )@@G@@LGD,,Q1 . FUZZ INDEX (NO BITS TO IGNORE) @C@@[[WSPARES(1) EQU 66 SX )@@G@@ . 66 SPARE WORDS @A@@[[WSFLGE EQU WSFLGD+1+WSPARES(1) .SY )@@G@@@B@@[[WSDBUG EQUF WSFLGE,,Q1 . DEBUG FLAG@C@@[[WSIXOR EQUF WSFSZ )@@G@@LGE,,Q2 . INDEX ORIGIN @D@@[[WSDGTS EQUF WSFLGE,,Q3 . SETTTA )@@G@@ING OF )DIGITS @D@@[[WSWDTH EQUF WSFLGE,,Q4 . SETTING OF )WIDTTB )@@G@@H @D@@[[WSRAND EQU WSFLGE+1 . RANDOM NUMBER SEED @F@@[[TC )@@G@@WSMSIZ EQU WSRAND+1 . MAX SIZE TO WHICH WS CAN EXPAND @E@@[[TD )@@G@@WSMSZI EQUF WSMSIZ,,H1 . INDEX PORTION OF MAX SIZE @F@@[[WSFPNTTE )@@G@@ EQU WSMSIZ+1 . POINTERS FOR DETATCHED FREE BLOCK @F@@[[WSFFWATF )@@G@@ EQUF WSFPNT,,H1 . 1ST WD ADDR OF DETACHED BLOCK @F@@[[WSFLWATG )@@G@@ EQUF WSFPNT,,H2 . LAST WD ADDR OF DETACHED BLOCK @E@@[[WSGARBTH )@@G@@ EQU WSFPNT+1 . POINTER TO GARBAGE LIST @C@@[[WSPARES(1) ETI )@@G@@QU 15 . 15 SPARE WORDS @E@@[[WSYTBL EQU WSGARB+1+WSPARETJ )@@G@@S(1) . START OF SYMBOL TABLE @D@@[[WSPARES(1) EQU 3*WSYSIZ . 3 WDTK )@@G@@S PER TABLE ENTRY @F@@[[WSWORK EQU WSYTBL+WSPARES(1) . NOMINAL STATL )@@G@@RT OF FREE STORAGE@[@@[[. @F@@[[WSINFO EQU 20 . DEFITM )@@G@@NE LOCN CTR USED FOR WORKSPACE@[@@[[. @#@@[[WSDEF* PROC . @G@@[[TN )@@G@@$(WSINFO) RES 0-$ . RESET COUNTER FOR USE BY UNLI$T/LI$T TO )@@G@@@#@@[[ END . @[_@@[. @D@@@[. CONVERSIONS BETWEEN ABSOLUTETP )@@G@@ AND RELATIVE WS ADDRS @[@@@[. @#@@@[P PROC . @#@@@[ABSADRTQ )@@G@@* NAME . @ @@@[ A,U P(1,1),0,WSTAG . @]@@@[ END .@#@@@[TR )@@G@@P PROC . @#@@@[RELADR* NAME . @ @@@[ AN,U P(1,1),0,WSTTS )@@G@@AG . @]@@@[ END .@[@@[[. @ @@[[. PROC TO DUMP THE WORKSPACE TT )@@G@@@[@@[[. @#@@[[ PROC . @#@@[[WSDUMP* NAME . @#@@[[ TU )@@G@@ UNLI$T . @G@@[[ X$DUMP 0,WSWORK-WSID+4096,'O','AXR',X1 . ONTV )@@G@@LY DUMP 1ST 4K BLK@#@@[[ LI$T . @#@@[[ END . @[@@[[TW )@@G@@. @C@@[[. PROCS TO SET BASEREG TO COPY OR ACTIVE WS @[@@[[. TX )@@G@@@D@@[[B PROC . SET BASEREG FOR COPY/ACTIVE WS @^@@[[BASCPYTY )@@G@@* NAME 0 . @^@@[[BASACT* NAME 1 . @D@@[[ LX WSTAGTZ )@@G@@,RCCFWA+B(0,0)*(RCAFWA-RCCFWA) . @^@@[[ END . @ @@[[UA )@@G@@R PROC *1 . @ @@[[ABSCPY* NAME 0 . @ @@[[UB )@@G@@ABSACT* NAME 1 . @D@@[[ A R(1,1),RCCFWA+R(0,0)*(RUC )@@G@@CAFWA-RCCFWA) . @#@@[[ END . @ @@[[R PROC *1 UD )@@G@@ . @ @@[[RELCPY* NAME 0 . @ @@[[RELACT* NAME 1 UE )@@G@@ . @D@@[[ AN R(1,1),RCCFWA+R(0,0)*(RCAFWA-RCCFWA) . @#@@[[UF )@@G@@ END . @A@@@[/. DEFINITION OF RUN CONTROL BLOCK @#@@[[ UG )@@G@@ DEF . @D@@[[RCDMND EQU RUNBLK . DEMAND/BATCH FLAG UH )@@G@@@C@@[[RCSPAR(1) EQU RCDMND+1 . ONE SPARE WORD @F@@[[RCTREA EQU UI )@@G@@ RCSPAR(1)+1 . ADDR OF TREAD$ ROUTINE TO BE USED @E@@[[RCWRIT EQU UJ )@@G@@ RCTREA+1 . ADDR OF ROUTINE FOR PRINT$'S@E@@[[RCLSIZ EQU RCWUK )@@G@@RIT+1 . DEFAULT LINE LENGTH (CHARS) @F@@[[RCDATE EQU RCLSIZ+1 UL )@@G@@ . TODAYS DATE (YYMMDD IN DECIMAL) @G@@[[RCONTM EQU RCDATE+1 UM )@@G@@ . TIME OF DAY AT SIGNON (DFLOAT 60'THS) @G@@[[RCPUON EQU RCOUN )@@G@@NTM+2 . COMPUTER TIME USED AT SIGNON (60THS) @H@@[[RCKEYT EQU UO )@@G@@ RCPUON+2 . ACCUMULATED KEYING TIME (INTEGER MILLISEC) @C@@[[UP )@@G@@RCSPAR(1) EQU RCKEYT+1 . ONE SPARE WORD @D@@[[RCLIBN EQU RCSUQ )@@G@@PAR(1)+1 . USER'S LIBRARY NUMBER @D@@[[RCOPTW EQU RCLIBN+2 UR )@@G@@. PROCESSOR OPTIONS WORD@E@@[[RCFCTL EQU RCOPTW+1 . FILE SYST US )@@G@@CONTROL PARAMS @D@@[[RCNFIL EQUF RCFCTL,,H1 . NO OF ASSIGNED FUT )@@G@@ILES @F@@[[RCFSIZ EQUF RCFCTL,,H2 . SIZE OF AN FCT BUFFER (WORDSUU )@@G@@) @E@@[[RCFFWA EQUF RCFCTL+1,,H1 . FWA OF 1ST WD OF FCT BLOCKS UV )@@G@@@E@@[[RCFLWA EQUF RCFCTL+1,,H2 . LWA OF FILE CONTROL TABLES @D@@[[UW )@@G@@RCADDF EQU RCFCTL+2 . ADD FILE READ FLAG @G@@[[RCPTIF EQU UX )@@G@@ RCADDF+1 . PAPER TAPE INPUT FLAG (PROMPT WITH X-ON)@F@@[[RCOUTIUY )@@G@@ EQUF RCPTIF+1,,H2 . OUTPUT INHIBIT FLAG (SITE/CSITE) @F@@[[RCALTPUZ )@@G@@ EQU RCPTIF+2 . ALT PRINT FILE PKT: ACCESS WORD @G@@[[RCALTFVA )@@G@@ EQU RCALTP+1 . FILENAME (0 IF NONE)@G@@[[VB )@@G@@RCPADW EQU RCALTF+2 . CTL WD FOR TIMING OF ASCII-APL TERMINALSVC )@@G@@@F@@[[RCPTCH EQUF RCPADW,,H1 . NUM OF PRINT CHARS IN NULL RATIO VD )@@G@@@G@@[[RCPDCH EQUF RCPADW,,H2 . PAD CHRS IN NULL RATIO (ASCII TERMVE )@@G@@INALS)@E@@[[RCTBOO EQU RCPADW+1 . TDATE$ OF LAST SYSTEM REBOOTVF )@@G@@@F@@[[RCBOOT EQU RCTBOO+1 . LAST REBOOT IN SECS SINCE 1/1/64 VG )@@G@@@G@@[[RCMXWS EQU RCBOOT+1 . SIZE CTL WD FOR MAX WS USER MAY HAVH )@@G@@VE @F@@[[RCDFWS EQU RCMXWS+1 . SIZE CTL WD FOR DEFAULT CLEAVI )@@G@@R WS @C@@[[RCSPAR(1) EQU RCDFWS+9 . 9 SPARE WORDS @F@@[[RCWRMKVJ )@@G@@ EQU RCSPAR(1)+1 . ADDR OF OUTPUT AND MARK ROUTINE @E@@[[RCCOREVK )@@G@@ EQU RCWRMK+1 . OVERALL CORE MGMT FLAGS @D@@[[RCMASF EQUFVL )@@G@@ RCCORE,,Q1 . MASTER CONSOLE FLAG @E@@[[RCLASD EQUF RCCORE,,HVM )@@G@@2 . CURRENT LAST D-BANK LOCN @E@@[[RCAFWA EQUF RCCORE+1,,H1 VN )@@G@@. FIRST WORD ADDR OF ACTIVE WS@E@@[[RCALWA EQUF RCCORE+1,,H2 . LASTVO )@@G@@ WORD ADDR OF ACTIVE WS @E@@[[RCCFWA EQUF RCCORE+2,,H1 . FWA OF COPVP )@@G@@Y WS (0 IF NONE) @C@@[[RCCLWA EQUF RCCORE+2,,H2 . LWA OF COPY WS VQ )@@G@@@C@@[[RCSPAR(1) EQU RCCORE+2+2 . 2 SPARE WORDS @B@@[[RCPCT EQU VR )@@G@@ RCSPAR(1)+1 . PCT BUFFER@C@@[[RCRUNI EQU RCPCT . ORIGVS )@@G@@INAL RUNID @C@@[[RCRUNG EQU RCPCT+1 . GENERATED RUNID @B@@[[VT )@@G@@RCQUAL EQU RCPCT+021 . QUALIFIER @C@@[[RCACNT EQU RCPCT+023VU )@@G@@ . ACCOUNT NUMBER @F@@[[PCTRES EQU 0144 . SIZE OF PCVV )@@G@@T BUFFER (NOTE: MUST @G@@[[ . EXTEND UP VW )@@G@@TO FILE WE'RE EXECUTING FROM) @E@@[[RCSPAR(1) EQU RCPCT+PCTRES . 1ST VX )@@G@@WORD AFTER PCT AREA @#@@[[RUNCTL* PROC . @#@@[[ END . VY )@@G@@@[<@@[/. @^@@@[. DEFINITIONS FOR I/O @A@@[[ DEF VZ )@@G@@ . @[D@@[. @ @@@[. ACCOUNT FILE DEFINTIONS@ @@@[. WA )@@G@@ ACCNT DEFINED IN ACCNTG@[@@@[. @E@@@[ACLIBN EQU ACCNT+0 . LIBWB )@@G@@RARY # TO SEARCH OR ENTER @B@@@[ACKEY EQU ACCNT+2 . KEY ON NUWC )@@G@@MBER @ @@@[ACLAST EQU ACCNT+4 . @B@@@[ACACNT EQU ACCNT+5 WD )@@G@@ . ACCOUNT NUMBER @A@@@[ACQUAL EQU ACCNT+7 . QUALIFIER@A@@@[ACQWTAWE )@@G@@ EQU ACCNT+9 . WS QUOTA @C@@@[ACUSED EQU ACCNT+10 . WS QUOTA WF )@@G@@USED SO FAR @B@@@[ACPERM EQU ACCNT+11 . PERMISSION BITS@[@@[[. WG )@@G@@@G@@[[. THESE EQUF'S ARE FOR NEW STYLE BILLING USING SECTORS AND TRK SECWH )@@G@@S @[@@[[. @G@@[[ACRUNI EQU ACDUMY+9 . GENERATED RUNID WI )@@G@@(FOR )PORTS) NOTE LIBNO @G@@[[ . USES ACTUAWJ )@@G@@L (IF RUNID IS USED AT ALL) @F@@[[ACMAXU EQUF ACDUMY+10,,H1 . MAX WK )@@G@@ALLOWED DRUM USAGE (SECTORS) @E@@[[ACCURU EQUF ACDUMY+10,,H2 . CURRWL )@@G@@ENT USAGE IN SECTORS @G@@[[ACMXWS EQUF ACDUMY+11,,S1 . MAX WORKSPWM )@@G@@ACE SIZE INDEX( FOR CORE CTL) @C@@[[ACPERB EQUF ACDUMY+11,,Q4 . PERMWN )@@G@@ISSION BITS @G@@[[ACTRKS EQU ACDUMY+12 . ACCUMULATED TRK SECS SWO )@@G@@INCE LAST BILLING @G@@[[ACTBIL EQU ACDUMY+13 . TDATE$ OF LAST MWP )@@G@@ASS STORAGE BILLING @[@@[[. @B@@[[. FLAG BITS USED IN PERMISSIONWQ )@@G@@ FIELD-- @B@@[[. EQU 01 . UNUSED @C@@[[ACLOKBWR )@@G@@ EQU 02 . LOCKED OUT BIT @D@@[[ACINUB EQU 04 WS )@@G@@ . NUMBER IN USE BIT @E@@[[ACCONB EQU 010 . LASTWT )@@G@@ SESSION )CONTINUED @F@@[[ACCINH EQU 020 . CONTINUE WWU )@@G@@ORKSPACES INHIBITED @F@@[[ACPINH EQU 040 . PUBLIC LIBWV )@@G@@RARY )SAVE'S INHIBITED @[@@[[. @[@@@[. @G@@[[. DEFINITIONA OF FWW )@@G@@IELDS IN THE PREAMBLE OF WORKSPACES. THE STORAGE @B@@[[. ITSELF IS WX )@@G@@RESERVED IN ELEMENT LODSAV-- @[@@[[. @^@@[[. OLD FORMAT PREAMBLES--WY )@@G@@@[@@[[. @C]@@[DQUAL EQU DIRECT+0 . SAVERS QUALIFIER @C@@@[WZ )@@G@@DACNT EQU DIRECT+2 . SAVERS ACCOUNT NUMBER@B@@@[DREF EQU DIRECXA )@@G@@T+4 . REFERENCE COUNT@B@@@[DKEY EQU DIRECT+5 . KEY FOR THIS WSXB )@@G@@@B@@@[DNAME EQU DIRECT+7 . NAME OF THIS WS@C@@@[DCAT EQU DIRECXC )@@G@@T+10 . TIME/DATE CATALOGUED @D@@@[DLAST EQU DIRECT+11 . TIME/DATEXD )@@G@@ LAST REFERENCED @C@@@[DSIZE EQU DIRECT+12 . SIZE OF WS IN WORDS XE )@@G@@@B@@@[DLIB EQU DIRECT+13 . LIB # OF SAVER @E@@@[DMOST EQU DIRECXF )@@G@@T+15 . TIME/DATE OF MOST RECENT SAVE @[@@[[. @^@@[[. NEW FORMATXG )@@G@@ PREAMBLE @[@@[[. @G@@[[DRFAKE EQU PREAMB . 4 WDS OF ZXH )@@G@@ERO REQUIRED TO FAKE REL FMT @G@@[[DRFLAG EQU PREAMB+4 . FLAGXI )@@G@@ WORD-- 'APL*XY' (VERSION-LEVEL) @F@@[[DRVERS EQUF DRFLAG,,S5 XJ )@@G@@. PROCESSOR VERSION AT LAST )SAVE @C@@[[DRLEVL EQUF DRFLAG,,S6 XK )@@G@@. ... AND LEVEL @F@@[[DRFTOT EQU PREAMB+16 . TOTAL REF CNT (SXL )@@G@@INCE WS CREATION) @G@@[[DRFSAV EQU PREAMB+17 . REF COUNT SINCE XM )@@G@@LAST )SAVE OF THIS WS @G@@[[DRFRES EQU PREAMB+18 . REF CNT WIXN )@@G@@NCE LAST RESET OF WORD DTRES @G@@[[DTDRES EQU PREAMB+19 . TDATXO )@@G@@E$ OF LAST RESET OF REFCNT ABOVE @E@@[[DRQUAL EQU PREAMB+20 XP )@@G@@. SAVER'S QUALIFIER (2 WORDS) @F@@[[DRACNT EQU PREAMB+22 . AND XQ )@@G@@HIS ACCOUNT (ALSO 2 WORDS) @D@@[[DRUNID EQU PREAMB+24 . AND XR )@@G@@ALSO HIS RUNID @G@@[[DMXSIZ EQU PREAMB+25 . MAX CORE SIZE TOXS )@@G@@ WHICH WS CAN EXPAND @C@@[[DRSPA2 EQU PREAMB+26 . 2ND SPARE XT )@@G@@WORD @E@@[[DRSPA1 EQU PREAMB+27 . 1ST (REALLY LAST) SPARE WORDXU )@@G@@@#@@@[ PROC . @#@@@[IODEF* NAME . @]@@@[ END @A@@@[XV )@@G@@/. TRANSMIT A MESSAGE TO THE USER--@[@@@[. @ @@@[MOVE* PROC . NWDXW )@@G@@S,FROM,TO @ @@@[ UNLI$T . @C@@@[NWDS EQU MOVE(XX )@@G@@1,1) . NO OF WDS TO BE MOVED @^@@@[ DO NWDS=0 , GO MOVE$7 .@G@@@[ DO NWXY )@@G@@DS<7 , GO MOVE$1 . IF 6 WDS OR FEWER, USE REG XFERS FOR LESS CODE @ @@@[XZ )@@G@@. 7 WDS OR MORE-- USE A BT @^@@@[ LXI,U A0,1 . @ @@@[ YA )@@G@@ LXM,U A0,MOVE(1,2) . @^@@@[ LXI,U A1,1 . @ @@@[ LXM,UYB )@@G@@ A1,MOVE(1,3) . @ @@@[ LR,U R1,MOVE(1,1) . @^@@@[ BT YC )@@G@@ A1,,*A0 . @^@@@[ GO MOVE$7 . @B@@@[MOVE$1* NAME . GENERATE YD )@@G@@REG XFER INSTRS @^@@@[ DO NWDS>1 , GO MOVE$2 .@ @@@[ LA A0,MOYE )@@G@@VE(1,2) . @ @@@[ SA A0,MOVE(1,3) . @^@@@[ GO MOVE$YF )@@G@@7 . @#@@@[MOVE$2* NAME . @ @@@[ DL A0,MOVE(1,2) . @ @@@[YG )@@G@@ DS A0,MOVE(1,3) . @^@@@[ DO NWDS=2 , GO MOVE$7 .@^@@@[ DO NWYH )@@G@@DS>3 , GO MOVE$4 .@ @@@[ LA A0,MOVE(1,2)+2 . @ @@@[ SA YI )@@G@@ A0,MOVE(1,3)+2 . @^@@@[ GO MOVE$7 . @#@@@[MOVE$4* NAME . YJ )@@G@@@ @@@[ DL A0,MOVE(1,2)+2 . @ @@@[ DS A0,MOVE(1,3)+2 . YK )@@G@@@^@@@[ DO NWDS=4 , GO MOVE$7 .@^@@@[ DO NWDS>5 , GO MOVE$6 .@ @@@[ YL )@@G@@ LA A0,MOVE(1,2)+4 . @ @@@[ SA A0,MOVE(1,3)+4 . @^@@@[ YM )@@G@@ GO MOVE$7 . @#@@@[MOVE$6* NAME . @ @@@[ DL A0,MOVE(1,2YN )@@G@@)+4 @ @@@[ DS A0,MOVE(1,3)+4 . @#@@@[MOVE$7* NAME . @ @@@[YO )@@G@@ LI$T . @]@@@[ END. @[@@@[. @[@@@[. YP )@@G@@@A@@@[. PROC TO PRINT LITERAL MESSAGES @[@@@[. @]@@@[. CALL: YQ )@@G@@@[@@@[. @B@@@[. SEND '12 CHAR MAX','MORE ',.... @[@@@[. YR )@@G@@@ @@@[P PROC . @ @@@[SEND* NAME . YS )@@G@@@ @@@[ UNLI$T . @F@@@[LCTR EQU & . REMYT )@@G@@EMBER WHICH LOCATION CTR WE'RE USING@E@@@[ CONSTS . . ANDYU )@@G@@ SWITCH TO GENERATE CONSTANTS @G@@@[ DO LCTR=& , J PAST . IF CODE IS ON YV )@@G@@SAME COUNTER, JUMP AREOUND DATA @[@@@[TOP. @A@@@[K DO P(1) , AYW )@@G@@PLBCI P(1,K) .@D@@@[NCHAR EQU ($-TOP)*4 . CHAR COUNT FOR THIS MYX )@@G@@ESSAGE@C@@@[$(LCTR) . RESET LOCN CTR TO ITS ORIGINAL SETTING@ @@@[PAST YY )@@G@@ L,U A4,NCHAR . @ @@@[ L,U A3,TOP . @ @@@[ YZ )@@G@@ LMJ X11,PRSEND . @#@@@[ LI$T . @#@@@[ END . ZA )@@G@@@[@@@[. @A@@@[. PROC TO SEND LITERAL MESSAGES @[@@@[. @]@@@[ZB )@@G@@. CALL: @[@@@[. @D@@@[. PRINT COUNT,ADDRESS ( COUNT IN APLZC )@@G@@ CHARS ) @[@@@[. @ @@@[P PROC . @ @@@[PRINT*ZD )@@G@@ NAME . @ @@@[ UNLI$T . @B@@@[ ZE )@@G@@ L,U A4,P(1,1) . CHAR COUNT @B@@@[ L,U A3,P(1,2) . MESZF )@@G@@SAGE ADDR @ @@@[ LMJ X11,PRSEND . @ @@@[ LI$T ZG )@@G@@ . @ @@@[ END . @[@@@[. @[@@@[. ZH )@@G@@@[@@@[. @ @@@[. PROCS TO COMPUTE KEYING TIME@[@@@[. @ @@@[P ZI )@@G@@ PROC . @C@@@[TIMEON* NAME . TURN KEYING TIMZJ )@@G@@ER ON @#@@@[ UNLI$T @F@@[[ ER TIME$ . TIMEZK )@@G@@ NOW (MILLISEC) IS 'BEFORE' @G@@[[ ANA A0,RCKEYT . LESSZL )@@G@@ ACCUMULATION GIVES (BEFORE-TOTAL) @G@@[[ SNA A0,RCKEYT ZM )@@G@@. SAVE -(BEFORE-TOT) WHICH IS (TOT-BEFORE)@ ]@@[ LI$T ZN )@@G@@ . @ @@@[ END . @[@@@[. @[@@@[. @ @@@[ZO )@@G@@P PROC . @F@@@[TIMOFF* NAME . TURN OFF ZP )@@G@@TIM-R AND UPDATE KEYING TIME @#@@@[ UNLI$T @D@@[[ ER ZQ )@@G@@ TIME$ . TIME NOW IS 'AFTER' @H@@[[ AA A0,RCKEYTZR )@@G@@ . PLUS (TOT-BEFORE) GIVES TOT+(AFTER-BEFORE) @F@@[[ TP ZS )@@G@@ A0 . WAS AFTER GREATER THAN BEFORE? @G@@[[ AA ZT )@@G@@ A0,(+24*60*60*1000) . NO, FUDGE FOR CLOCK THRU MIDNITE @G@@[[ ZU )@@G@@ SA A0,RCKEYT . POST KEYING TIME ACCUMULATED TO NOW @ A@@[ZV )@@G@@ LI$T . @ @@@[ END . ___5 ,ZW )@@G@@ GO MOVE$6 .@ @@@[ LA A0,MOVE(1,2)+4 . @ @@@[ SA A0,MOZX )@@G@@VE(1,3)+4 . @^@@@[ GO MOVE$7 . @#@@@[*[S@@@*SDFF*@G@@@@. ****ZY )@@G@@***************************************************************** @G@@@@ZZ )@@G@@. STANDARD PROCS - INCLUDED BY AN @ADD PRCPKG/APL IN SOURCE DECKS * AA )@@G@@@G@@@@. AB )@@G@@ * @G@@@@ AXR$ . AC )@@G@@ * @G@@@@ CONFIG . DEFINE ASSEMBLY PARAMETERS AD )@@G@@ * @G@@@@ APSYMB. DEFINE APL SYMBOL SET AE )@@G@@ * @G@@@@ FDSYMB. DEFINE FIELDATA SYMBOLSAF )@@G@@ * @G@@@@ WSDEF. DEFINE WORKSPACE AG )@@G@@ * @G@@@@WORKSP INFO 2 20. SET ASAH )@@G@@IDE THE SPACE * @G@@@@ RUNCTL. DEFINAI )@@G@@E RUN CTRL BLOK(S) * @G@@@@RUNCON INFO 2 22.AJ )@@G@@ AND SET ASIDE ITS SPACE * @G@@@@ CBLOCAK )@@G@@K . DEFINE CONTROL BLOCK TYPES * @G@@@@. AL )@@G@@ * @G@@@@AM )@@G@@. END OF STANDARD PROC BLOCK * AN )@@G@@@G@@@@. ****************************************************************AO )@@G@@***** @[@@@@. @[@[@@. @E@@[[ BRIEF . UOM ASSEMBLER ONLY,AP )@@G@@ REMOVE AT OTHER SITES @[[@@@. @ @[@@ VARBLS . AQ )@@G@@@[@@[[. @F@@[[. LOC CTR SETTINGS FOR INITIALIZATION AND MASTER CONSOAR )@@G@@LE CODE @[@@[[. @#@@[[ MASTER @G@@[[ACMAST INFO 2 MAS )@@G@@CINFO . COMMON BLOCK FOR MASTER CONSOLE CLDE @G@@[[ACINIT INFOAT )@@G@@ 2 ININFO . COMMON BLOCK FOR INITIALIZATION CODE @D@[@@ACCNT*AU )@@G@@ RES 14 . ACCOUNT INFO FOR THIS RUN @D@[@@DINDEX* RES 1. AV )@@G@@ DRUM INDEX FOR THIS RUN @E@@[[. BUFFER IN WHICH ACCOUNT DATAAW )@@G@@ IS KEPT THROUGHOUT RUN-- @[@@[[. @G@@[[. NOTE: THE TAGS ACXXXX AX )@@G@@WHICH POINT INTO THE WORDS OF THE ACCOUNTING @F@@[[. ENTRY ARE EQU'D AY )@@G@@BY THE PROC IODEF (IN PDP ELEMENT WSDEF/APL) @F@@[[. BECAUSE SOME AREAZ )@@G@@ PARTIAL WORDS, WHICH CANNOT BE EXTERNALIZED @[@@[[. @#@@[[ BA )@@G@@ VARBLS . @A@@[[ACCNT* RES 14 . @[@@[[. @F@@[[BB )@@G@@. DUMMY AREA USED FOR DEBUGGING UNTIL ACCOUNT EL FMT IS CHANGED-- @[@@[[BC )@@G@@. @F@@[[ACDUMY* EQU ACCNT . ENABL E NEW STYLE WS ACCOUNTBD )@@G@@ING @[@@[[. @G@@[[ACTMAS* RES 1 . TIME OF LAST MS BE )@@G@@BILLING IN SECONDS-- @G@@[[ . COMPUTED FROM WORD ACTBILBF )@@G@@ OF USER ENTRY, WHICH IS TDATE@[@@[[. @ #@@@ IODEF BG )@@G@@ . @ @[@@ ACON . @]@[@@MCONS* PROC.@[@[@@$(28).BH )@@G@@@]@[@@ END. @ @[@@WHURP INFO 2 28 . @[@@[[. @#@@[[BI )@@G@@I PROC . @C@@[[LOCK* NAME RDL$ . PKT,ERR DRUMADR,ACW BJ )@@G@@@^@@[[UNLOCK* NAME UNL$ . @ @@[[ACQIR* NAME ACQ$ . @^@@[[BK )@@G@@READ* NAME R$ . @^@@[[WRITE* NAME W$ . @^@@[[ UNLI$BL )@@G@@T . @G@@[[ DO I(1)>0 , DO 1-(I(1,1)<0) , LA,U A0,I(1,1) . IF NEDBM )@@G@@ED GET PKT ADDR @D@@[[ LA,U A1,I(0,0) . GET FUNCTION CODBN )@@G@@E @B@@[[ SA,S2 A1,3,A0 . STASH IT @C@@[[ DO I(2)<2 ,BO )@@G@@ GO IO$010 . SKIP ACESS WORD? @ @@[[ LA A1,I(2,2) . NO BP )@@G@@@B@@[[ SA A1,4,A0 . TO PACKET @#@@[[IO$010* NAME . BQ )@@G@@@ @@[[ DO I(2)<1 , GO IO$020 . @ @@[[ DO I(2,1)<0 , GO IO$020 . BR )@@G@@@C@@[[ LA,U*(1-I(2,*1)) A1,I(2,1) . GET DRUMAD @D@@[[ SA BS )@@G@@ A1,5,A0 . DRUM ADDR TO PACKET @#@@[[IO$020* NAME . @A@@[[BT )@@G@@ ER IOW$ . DO IT @B@@[[ DO I(1)<2 , GO IO$040 . ERRBU )@@G@@OR CHECK? @B@@[[ TZ,S1 3,A0 . YES, DO IT @ @@[[ BV )@@G@@ J I(1,2) . @ @@[[IO$040* NAME . @ @@[[ BW )@@G@@ LI$T . @ @@[[ END . @[@@[[. BX )@@G@@@A@@[[. PROGRAM FILE STUFF FOR ACCNT EL @[@@[[. @#@@[[P PROC BY )@@G@@ . @ @@[[PFSRCH* NAME 0 . @ @@[[ UNLI$T BZ )@@G@@ . @ @@[[ LA,U A0,PFPKT . @ @@[[ ER PFS$ CA )@@G@@ . @B@@[[ JNZ A2,P(1,1) . ABNORMAL EXIT @#@@[[ LI$T CB )@@G@@ . @#@@[[ END . @[@@[[. @#@@[[P PROC . @ @@[[CC )@@G@@PFINEW* NAME . INSERT ELEMENT @ @@[[ UNLI$T . @E@@[[CD )@@G@@ TZ,S6 PFSIZW . IS NEW EL SIZE A TRAK MULTIPLE? @A@@[[ CE )@@G@@ ER ERR$ . NO, CRASH@B@@[[ LA A1,PFTSIZ . YES, GET CF )@@G@@IT @C@@[[ AA A1,PFTADR . PLUS START ADDR OF EL@D@@[[ CG )@@G@@ SA A1,IODADR . IS NEXT WRITE ADDR, POST IT@C@@[[ ACQIR IOPKTCH )@@G@@,P(1,1) . GET THAT TRACK @D@@[[ SZ PFTDAT . BE SURE WCI )@@G@@E GET TODAY'S DATE@D@@[[ SZ PFPSIZ . FORCE PREAMBLE SIZE TCJ )@@G@@O ZERO@B@@[[ SZ PFPADR . AND ITS ADDRESS@F@@[[ LNA,UCK )@@G@@ A0,PFPKT . FORCE AUTO UPDATE OF NEXT WRITE ADDR @G@@[[ LA CL )@@G@@ A1,IODADR . NEXT WRITE ADDR IS WHAT WE JUST ACQUIRED @A@@[[ CM )@@G@@ ER PFI$ . DO IT @C@@[[ JNZ A2,P(1,1) . DIE IF NOCN )@@G@@T SUCCESSFUL@#@@[[ LI$T . @#@@[[ END . @[ @@@/. CO )@@G@@@[@@@@. @[@@@@. @E@@@@. FORMAT OF THE CONTROL SECTOR ( SCP )@@G@@ECTOR 0 ) OF THE @D@@@@. ACCOUNT ELEMENT ( ACCOUNTING/000000000CQ )@@G@@000 ).@[@@@@. @[@@@@. @[@@@@. @G@@@@. . . . . . . . .CR )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @G@@@@. . CS )@@G@@ . . @G@@@@. 0 . CT )@@G@@ MSGCNT : MCFLAG . ENTRIES . @G@@@@. CU )@@G@@ . . . @G@@@@CV )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . CW )@@G@@@G@@@@. . CX )@@G@@ . @G@@@@. 1 . ASSUMED QUOTAS CY )@@G@@ . @G@@@@. . CZ )@@G@@ . @G@@@@. . . . . . . . . . . . . . . . . . . . .DA )@@G@@ . . . . . . . . . . . @G@@@@. . DB )@@G@@ . @G@@@@. 2 . ASDC )@@G@@SUMED PERM BITS . @G@@@@. . DD )@@G@@ . @G@@@@. . . . . . . . .DE )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @G@@@@. . DF )@@G@@ . @G@@@@. 3 . DG )@@G@@ MASCON- . @G@@@@. DH )@@G@@ . . @G@@@@DI )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . DJ )@@G@@@G@@@@. . DK )@@G@@ . @G@@@@. . NUMBER DL )@@G@@ . @G@@@@. . DM )@@G@@ . @G@@@@. . . . . . . . . . . . . . . . . . . . .DN )@@G@@ . . . . . . . . . . . @G@@@@. . DO )@@G@@ . @G@@@@. 5 . MEDP )@@G@@SSAGE . @G@@@@. . DQ )@@G@@ . @G@@@@. . DR )@@G@@ . @G@@@@. . DS )@@G@@ . @B@@@@. DT )@@G@@ . @B@@@@. DU )@@G@@ . @B@@@@. . @[@@@@. @[@@@@DV )@@G@@. @[@@@@. @F@@@@. MSGCNT - FLAG INDICATING THERE IS A MEDW )@@G@@SSAGE THAT SHOULD @G@@@@. BE DISPLAYED AT SIGN-ON TIME.DX )@@G@@ THIS FIELD CONTAINS @D@@@@. THE CHARACTER COUNT OF DY )@@G@@THE MESSAGE.@[@@@@. @F@@@@. MCFLAG - IF NON-ZERO, THE MASTERDZ )@@G@@ IS SIGNED ON WITH WRITE@C@@@@. ENABLED INTO THE ACCOINTEA )@@G@@S FILE@[@@@@. @F@@@@. ENTRIES - NUMBER OF ACCOUNT NUMBERS CUEB )@@G@@RRENTLY ENTERED IN@ @@@@. THE FILE. @[@@@@. @G@@@@EC )@@G@@. ASSUMED QUOTA - THIS WILL BE USED TO SET A WORKSPACE QUOTA ED )@@G@@@G@@@@. FOR NEW NUMBERS ENTERED IN THE ACCOUNT FEE )@@G@@ILE. @[@@@@. @H@@@@. ASSUMED PERM BITS - THIS WILL BE USED EF )@@G@@TO SET THE PERMISSION BITS @H@@@@. FOR NEEG )@@G@@W NUMBERS ENTERED IN THE ACCOUNT FILE. @[@@@@. @H@@@@. MAEH )@@G@@SCON NUMBER - THIS IS THE CURRENT MASTER CONSOLE LIBRARY NUMBER. @[@@@@EI )@@G@@. @G@@@@. MESSAGE - WORDS 5-27 CONTAIN THE MESSAGE TO BE DISEJ )@@G@@PLAYED AT @D@@@@. SIGN-ON IF MSGCNT IS NON-ZERO. EK )@@G@@@[@@@@. @[@[@@/. @[@[@@. @G@[@@. FORMAT OF INDIVIDUALEL )@@G@@ ACCOUNT ENTRY. ENTRY IS 14 WORDS LONG @B@[@@. AND THERE ARE EM )@@G@@TWO PER SECTOR. @[@[@@. @[@[@@. @G@[@@. . . . . . . . .EN )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @G@[@@. . EO )@@G@@ . @G@[@@. 0 . EP )@@G@@ ACLIBN . @G@[@@. EQ )@@G@@ . . @G@[@@ER )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ES )@@G@@@G@[@@. . ET )@@G@@ . @G@[@@. . EU )@@G@@ . @G@[@@. . EV )@@G@@ . @G@[@@. . . . . . . . . . . . . . . . . . . . .EW )@@G@@ . . . . . . . . . . . @G@[@@. . EX )@@G@@ . @G@[@@. 2 . ACEY )@@G@@KEY . @G@[@@. . EZ )@@G@@ . @G@[@@. . . . . . . . .FA )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @G@[@@. . FB )@@G@@ . @G@[@@. . FC )@@G@@ . @G@[@@. FD )@@G@@ . . @G@[@@FE )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . FF )@@G@@@G@[@@. . FG )@@G@@ . @G@[@@. 4 . ACLAST FH )@@G@@ . @G@[@@. . FI )@@G@@ . @G@[@@. . . . . . . . . . . . . . . . . . . . .FJ )@@G@@ . . . . . . . . . . . @G@[@@. . FK )@@G@@ . @G@[@@. 5 . ACFL )@@G@@ACNT . @G@[@@. . FM )@@G@@ . @G@[@@. . . . . . . . .FN )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @G@[@@. . FO )@@G@@ . @G@[@@. . FP )@@G@@ . @G@[@@. FQ )@@G@@ . . @G@[@@FR )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . FS )@@G@@@G@[@@. . FT )@@G@@ . @G@[@@. 7 . ACQUAL FU )@@G@@ . @G@[@@. . FV )@@G@@ . @G@[@@. . . . . . . . . . . . . . . . . . . . .FW )@@G@@ . . . . . . . . . . . @G@[@@. . FX )@@G@@ . @G@[@@. . FY )@@G@@ . @G@[@@. . FZ )@@G@@ . @G@[@@. . . . . . . . .GA )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @G@[@@. . GB )@@G@@ . @G@[@@. 9 . GC )@@G@@ ACQWTA . @G@[@@. GD )@@G@@ . . @G@[@@GE )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . GF )@@G@@@G@[@@. . GG )@@G@@ . @G@[@@. 10 . ACUSED GH )@@G@@ . @G@[@@. . GI )@@G@@ . @G@[@@. . . . . . . . . . . . . . . . . . . . .GJ )@@G@@ . . . . . . . . . . . @G@[@@. . GK )@@G@@ . @G@[@@. . GL )@@G@@ . @G@[@@. 11 . GM )@@G@@ ACPERM . @G@[@@. . . . . . . . .GN )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @[@[@@. @[@[@@. GO )@@G@@@[@[@@. @E@[@@. ACLIBN - LIBRARY NUMBER FOR USER. DOUBLE FLOGP )@@G@@ATING @[@[@@. @D@[@@. ACKEY - LIBRARY NUMBER LOCK. 8 APL CHAGQ )@@G@@RS. @[@[@@. @F@[@@. ACLAST - LAST REFERENCE FOR THIS NUMBEGR )@@G@@R. TDATE FORMAT @[@[@@. @D@[@@. ACACNT - USERS ACCOUNT NUMGS )@@G@@BER. 12 FD CHARS @[@[@@. @C@[@@. ACQUAL - USERS QUALIFIER. GT )@@G@@12 FD CHARS @[@[@@. @D@[@@. ACQWTA - WORKSPACE QUOTA. FORMATGU )@@G@@ AS FOLLOWS:@[@[@@. @C@[@@. S1 = 0 SAYS CONTINUE NOT ALLOWEDGV )@@G@@. @A@[@@. S1 <>0 SYAS CONTINUE OK. @F@[@@. S2 = MAXGW )@@G@@ NUMBER OF PUBLIC WORKSPACES THAT CAN BE SAVED. @C@[@@. S3 = MAXGX )@@G@@ NUMBER OF 4K WORKSPACES. @#@[@@. S4 = 8K @#@[@@. S5GY )@@G@@ = 16K@#@[@@. S6 = 32K@[@[@@. @G@[@@. ACUSED - CURREGZ )@@G@@NT SAVED WORKSPACE STATUS. FORMAT AS FOLLOWS: @[@[@@. @B@[@@. HA )@@G@@ S1 = 0 SAYS CONTINUE IS SAVED. @B@[@@. S1 <>0 SAYS NO CONTIHB )@@G@@NUE EXISTS. @E@[@@. S2 = CURRENT NUMBER OF SAVED PUBLIC WORKSPACHC )@@G@@ES. @D@[@@. S3 = CURRENT NUMBER OF SAVED 4K WORKSPACES. @#@[@@HD )@@G@@. S4 = 8K.@^@[@@. S5 = 16 K @#@[@@. S6 = 32KHE )@@G@@@[@[@@. @F@[@@. ACPERM - PERMISSION BITS FOR THIS NUMBER. BHF )@@G@@ITS ARE USED@ @[@@. AS FOLLOWS:@[@[@@. @ @[@@. HG )@@G@@ BIT 0 - NOT USED @B@[@@. BIT 1 - NUMBER IS LOCKED OUT HH )@@G@@@A@[@@. BIT 2 - NUMBER IS IN USE. @D@[@@. BIT 3 - NUMBERHI )@@G@@ WAS CONTINUED LAST SESSION. @[@[@@. @[@[@@. @ @[@@/ MCONSHJ )@@G@@ . @ @[@@. INITIAL LOOKUP OF LIB NO @F@[@@. LIB NO IN HK )@@G@@A5,A6 ADDR OF WHERE TO XFER ACCOUNT ENTRY IN A0 @ @[@@. RETURNS DRHL )@@G@@UM INDEX IN A0 @G@@[[. ENTRIES FOR EACH USER ARE IN 14 WORDS. FOR DEHM )@@G@@TAILED LAYOUT, SEE THE @A@@[[. PROC IODEF IN ELEMENT WSDEF/APL @C@@[[HN )@@G@@/. INITIALIZE ACCOUNTING DATA (AT SIGNON TIME) @F@@[[. ENTER WITH A0=ENHO )@@G@@TER/NOENTER FLAG, A1,2=KEY IN APLCHARS (LJSF) @^@@[[. NORMAL EXIT 1,XHP )@@G@@11 @D@@[[. ERROR EXIT 0,X11 WITH A0=0 (NOFIND), 1 (BAD KEY) @[@@[[HQ )@@G@@. @ @[@@SACCNT* SX X11,SALINK . @D@[@@ SA A0,WHERE HR )@@G@@ . SAVE ADDR TO XFER ENTRY TO @C@[@@ DS A5,WHICH . SAVE # TOHS )@@G@@ LOOK FOR @#@@[[ INITAL . @A@@[[SACCNT* SX X11,SALINK HT )@@G@@. @E@@[[ DS A1,SAKEYA . STASH USER SPECIFIED KEY HU )@@G@@@F@@[[ TZ,U ONEFIL . HAS SITE IMPLEMENTED ONE FILE? HV )@@G@@@E@@[[ J SA0005 . YES, GO DO A REAL LOOKUP @F@@[[HW )@@G@@ DS A1,ASSUMD+2 . NO, JAM KEY IN ASSUMED PARAMS AREA@G@@[[HX )@@G@@ LMJ X11,DEFALT . AND BUILD DUMMY ENTRY USING DEFAULTS HY )@@G@@@E@@[[ LA,U A0,0377777 . GET BIG NUMBER (2047 TRACKS)@E@@[[HZ )@@G@@ SA A0,ACMAXU . MAKE IT HIS DRUM USAGE MAX @C@@[[ IA )@@G@@ J SA0500 . AND GO CLEAN UP @E@@[[. THIS SITE HAS HONEST-TIB )@@G@@O-GOD ACCOUNTING WITHIN APL ITSELF--@C@@[[SA0005 SA A0,SAENTF IC )@@G@@. SAVE ENTER FLAG @ @[@@ LA,U A0,PFPKT . @B@[@@ ER ID )@@G@@ PFS$ . FIND ELEMENT @B@[@@ JZ A2,AC0100 . IS IT THEIE )@@G@@RE ? @D@[@@ TNE,U A2,1 . WAS IT REALLY A NO FOND? @E@@[[IF )@@G@@ PFSRCH SA0010 . LOOK FOR ACCOUNT ELEMENT @C@@[[ IG )@@G@@ J SA0100 . GOT IT, CONTINUE@E@@[[SA0010 TNE,U A2,1 IH )@@G@@ . WAS PF STATUS A NO FIND? @F_@@@ LMJ X11,ACREAT . YESII )@@G@@, GO MAKE AN ACCOUNTING ELEMENT @C@@@@ ER ERR$ . NO,IJ )@@G@@ GIVE UP HERE @G@[@@ J AC0300 . NOW THAT WE HAVE AN EIK )@@G@@LEM, SAY THE #'S NOT IN @ @[@@AC0100 LA,U A0,R$ . @ @[@@ IL )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A0,(28,BUFF) . @ @[@@ IM )@@G@@ LA,H2 A1,TXTADD . @ @[@@ DS A0,IOPKT+4 . @ @[@@ IN )@@G@@ LA,U A0,IOPKT . @B@[@@ ER IOW$ . GET SECTOR ZEROIO )@@G@@@ @[@@ TZ,S1 3,A0 . @ @[@@ ER ERR$ . IP )@@G@@@E@[@@ LR,U R1,1 . ASSUMING I AM A MASTER CONSOLE @E@[@@IQ )@@G@@ DL A0,BUFF+3 . GET THE MASTER CONSOLE NUMBER @B@[@@ IR )@@G@@ DTE A0,RCLIBN . AM I HE??? @A@[@@ LR,U R1,0 . NOPIS )@@G@@E @C@[@@ SR R1,RCMASF . SET APPROPRIATE FLAG @ @[@@ IT )@@G@@ DL A1,BUFF+1 . @A@[@@ SA A1,ASSUMD+9 . SET QUOTA@C@[@@IU )@@G@@ SA A2,ASSUMD+11 . AND PERMISSIONS @A@[@@ TZ PAFLAIV )@@G@@G . PA SENT? @A@[@@ J AC0200 . GUESS SO @C@[@@ IW )@@G@@ TNZ,Q1 BUFF . NO, IS THERE ANY? @A@[@@ J AC0200 IX )@@G@@ . NOPE @C@[@@ LA,Q1 A4,BUFF . YES, GET CHAR COUNT @E@@[[IY )@@G@@ J SA0300 . AND GO ENTER USER IN IT @A@@[[. ACCOIZ )@@G@@UNT ELEMENT EXISTS, GET IT @F@@[[SA0100 READ IOPKT,0 *PFTADR,(+28,JA )@@G@@BUFF) . GET CTRL SECTOR @D@@[[. IF NECESSARY, CONVERT CONTROL SECTJB )@@G@@OR TO NEW FORMAT @E@@[[SA0110 TZ,S1 BUFF+2 . IS THIS AN OLD FJC )@@G@@ORMAT FILE? @E@@[[ J SA0120 . NO, NO CONVERSION NEEDJD )@@G@@ED @G@@[[ DL A0,ASSUMD+10 . YES, GET DRUM USAVE AND PERMJE )@@G@@ISSIONS @G@@[[ DS A0,BUFF+1 . JAM NEW FORMAT DEFAULTJF )@@G@@S INTO CTL SECT @E@@[[ WRITE IOPKT,0 . AND WRITE IT BACJG )@@G@@K TO DRUM @G@@[[. PUT DEFAULTS FROM DRUM CTL SECT INTO ASSUMED VALUES JH )@@G@@IN CASE NEW USER @E@@[[SA0120 DL A0,BUFF+1 . GET DRUM BUF COPJI )@@G@@Y OF DATA @F@@[[ DS A0,ASSUMD+10 . TO SKELETON ENTRY FOR JJ )@@G@@LATER USE @E@@[[ DL A0,BUFF+3 . GET MASTER CONSOLE NUMJK )@@G@@BER @C@@[[ DS A0,ACMCON . AND STASH IT @B@@[[. IF TJL )@@G@@HERE'S A )HI MESSAGE, TRANSMIT IT @F@@[[ LA,Q1 A4,BUFF JM )@@G@@. GET CHAR COUNT FOR )HI MESSAGE @G@@[[ JZ A4,SA0200 JN )@@G@@. IF NONE TO SEND, GO LOOK UP THIS USER @BR@@@ LA,U A3,BUFF+5 JO )@@G@@ . AND WHERE IT IS@ @@@@ LMJ X11,PRSEND . @ @[@@AC0200 DL JP )@@G@@ A0,WHICH . @B@[@@ LMJ X11,ACFNUM . FIND NUMBER @C@@[[JQ )@@G@@. NOW LOOK THIS USER UP IN THE ACCOUNT ELEMENT @C@@[[SA0200 DL A0,JR )@@G@@RCLIBN . GET USER'S LIBNO@F@@[[ LA A2,SABACW . GET JS )@@G@@SCRATCH BUFFER ACCESS WORD @E@@[[ LMJ X11,FINDNO . FINDJT )@@G@@ THIS USER'S NUMBER @ ]@@@ ER ERR$ . @C@[@@ JU )@@G@@ JZ A0,AC0300 . NO ADDRESS, NO FIND @C@@][ JZ A0,SA0300 JV )@@G@@ . NO ADDRESS, NO FIND @ @[@@ SA A0,INDEX . @F@@[[ JW )@@G@@ SA A0,DRUMAD . POST LOCN OF OUR ACCOUNT ENTRY @C]@@@ JX )@@G@@ LR,U R1,14 . PREPARE TO MOVE ENTRY@D@@@@ LXI,U A1,1 JY )@@G@@ . A1 SET UP BY FIND RTNE @C@[@@ LA,H2 A0,WHERE . TRANSFER JZ )@@G@@IT HERE @ @[@@ LXI,U A0,1 . @F@@[[ LA A0,KA )@@G@@(+1,ACCNT) . MOVE TO STANDARD ACCOUNTING AREA @ ]@@@ BT A0,0,KB )@@G@@*A1 . @ @[@@ LA A0,INDEX . @ @[@@ LX X11,SKC )@@G@@ALINK . @ @[@@ J 2,X11 . @ @[@@AC0300 LX X11,SKD )@@G@@ALINK . @C@[@@ J 1,X11 . REPORT A NO FIND @ @[@@KE )@@G@@SALINK RES 1 . @F@@[[ J SA0400 . GO SKF )@@G@@EE IF CONVERSION IS REQUIRED @D@@[[. NOFIND-- ENTER THIS USER IN THE ACKG )@@G@@COUNT ELEMENT @G@@[[SA0300 LA A0,(+ASPACE,ASPACE,ASPACE,ASPACE)KH )@@G@@ . GET SOME BLANKS @G@@[[ JNE A0,SAKEYA SA0800 . QUIT KI )@@G@@IF USER TYPED A NON-BLANK KEY @C@@[[ DL A0,RCLIBN . GET KJ )@@G@@HS LIBNO @D@@[[ LA A2,SAENTF . AND AUTO ENTER FLAG KK )@@G@@@C@@[[ DTE A0,ACMCON . MASTER CONSOLE? @F@@[[ JZ KL )@@G@@ A2,SA0800 . NO, QUIT IF ENTER FLAG IS CLEAR @F@@[[ LMJ KM )@@G@@ X11,DEFALT . BUT IF OK, INITIALIZE TO DEFAULTS @E@@[[ LA,U KN )@@G@@ A3,ACCNT . SET POINTER TO INITIALIZED DATA @B@@[[ LMJ X11,EKO )@@G@@NTER . AND ENTER IT @ @@[[ ER ERR$ . @F@@[[ KP )@@G@@ SA A0,DRUMAD . POST LOCN OF OUR ACCOUNT ENTRY @C@@[[. CONVKQ )@@G@@ERT ENTRY TO NEW FORMAT, IF NECESSARY @F@@[[SA0400 TZ ACMXWS KR )@@G@@ . HAS MAX ALLOWED WS BEEN SET UP? @H@@[[ J SA0500 KS )@@G@@ . YES, THIS ENTRY HAS ALREAYD BEEN CONVERTED @E@@[[ LA,UKT )@@G@@ A0,2 . NO, SET NOMINAL INDEX OF 2 @F@@[[ SA A0,KU )@@G@@ACMXWS . ALD LET HIM HAVE AN 8K WORKSPACE @F@@[[ SZ ACTKV )@@G@@RKS . CLEAR ACCUMULATED TRACK SECONDS @E@@[[ LA A0,KW )@@G@@(+1,1,0,0,0,0) . TDATE$ FOR 1 JAN 64 @E@@[[ SA A0,ACTBILKX )@@G@@ . POST AS LAST MS BILLING TIME@E@@[[ LA,U A0,ACCINH KY )@@G@@. GET CONTINUE INHIBIT BIT @G@@[[ TZ,S1 ACQWTA . IS UKZ )@@G@@SER NOW ALLOWED TO HAVE A CONTINUE? @E@@[[ LA,U A0,0 LA )@@G@@. YES, CLEAR INHIBIT FLAG @G@@[[ OR A0,ACPERM . OLD LB )@@G@@PERMISSIONS PLUS CONTINUE INHIBIT @E@@[[ LA,U A0,ACPINH LC )@@G@@. GET PUBLIC SAVE INHIBIT BIT @G@@[[ TZ,S2 ACQWTA . DOESLD )@@G@@ USER NOW HAVE ANY PUBLIC QUOTA @E@@[[ LA,U A0,0 LE )@@G@@. YES, CLEAR INHIBIT FLAG @G@@[[ OR A1,A0 . COMBLF )@@G@@INE PUBLIC ALLOWED WITH OTHER PERMS @E@@[[ SA A2,ACPERB LG )@@G@@. SAVE NEW FORMAT PERMISSIONS @G@@[[ LA,S4 A0,ACQWTA . GET LH )@@G@@OLD QUOTA IN NO OF 8K WORKSPACES @D@@[[ AA,S2 A0,ACQWTA LI )@@G@@. PLUS PUBLIC QUOTA @G@@[[ MSI,U A0,148 . ASSUME AVGLJ )@@G@@ WS 2 TRACKS PLUS A LITTLE @E@@[[ LA,S4 A1,ACUSED . GET LK )@@G@@CURRENT PRIVATE USAGE @D@@[[ AA,S2 A1,ACUSED . PLUS PUBLILL )@@G@@C USAGE @G@@[[ MSI,U A1,148 . ASSUME EXISTING WSSES LM )@@G@@ARE ALL AVG SIZE @G@@[[ SA A0,ACMAXU . SAVE EXTIMATED MLN )@@G@@AX USAGE IN SECTORS @G@@[[ SA A1,ACCURU . SAVE ESTIMLO )@@G@@ATED CURRENT USAGE IN SECTORS @G@@[[. FINISH INITIALIZING ACCOUNT DATA. LP )@@G@@NOTE THAT SETUP WILL SET LAST REF @G@@[[. ANC CLEAR IN USE AND CONTINULQ )@@G@@ED BITS AFTER DETERMINING WHETHER THIS @ @@[[. USER IS ENTITLED TO SILR )@@G@@GN ON @F@@[[SA0500 DL A0,SAKEYA . GET KEY GIVEN ON PROCESSOR CLS )@@G@@ALL @F@@[[ DTE A0,ACKEY . DOES IT MATCH THE ACCOUNT ENLT )@@G@@TRY? @E@@[[ J SA0810 . NO, TAKE NUMBER LOCKED EXIT LU )@@G@@@E@@[[ LA A0,RCRUNG . YES, GET GENERATED RUNID @D@@[[LV )@@G@@ SA A0,ACRUNI . POST FOR USE BY )PORTS@G@@[[ LA LW )@@G@@ A0,ACTBIL . GET LAST MS BILLING TIME (TDATE$ FMT) @D@@[[ LX )@@G@@ LMJ X11,TIMTDF . CONVERT TO SECONDS @F@@[[ SA A2,LY )@@G@@ACTMAS . POST FOR USE IN STORAGE ACCOUNTING@E@@[[ LA A0,LZ )@@G@@ACPERM . RECOVER PERMISSION BITS @A@@[[SA0510 LX X11,SALINMA )@@G@@K . @C@@[[ J 1,X11 . NORMAL EXIT @[@@[[MB )@@G@@. @C@@[[SA0800 LA,U A0,0 . SET NOFIND FLAG @A@@[[ MC )@@G@@ J SA0999 . @C@@[[SA0810 LA,U A0,1 . SET MD )@@G@@BAD KEY FLAG@[@@[[. @E@@[[SA0999 SZ DRUMAD . MARK USER ME )@@G@@NOT SIGNED ON @A@@[[ LX X11,SALINK . @C@@[[ MF )@@G@@ J 0,X11 . ABNORMAL EXIT @[@@[[. @A@@[[SALINK EQUFMG )@@G@@ $,,H1 . @B@@[[SAENTF EQUF $,,S4 . ENTER FLAGMH )@@G@@@A@@[[ RES 1 . @G@@[[SAKEYA RES 2 MI )@@G@@ . USER'S KEY FROM PROCESSOR CALL IMAGE @G@@[[SABACW +448,BUFF MJ )@@G@@ . ACCESS WD FOR I/O BUFF USED BY LOOKUP @[@@[[/. @G@@[[MK )@@G@@. SUBROUTINE TO SET ACCOUNT DATA TO DEFAULTS-- USED WHEN NEW USERS ENTERML )@@G@@@E@@[[. THE SYSTEM OR IF SITE HAS NOT IMPLEMENTED A SINGLE FILE @[@@[[MM )@@G@@. @#@@[[ INITAL . @E@@[[DEFALT LR,U R1,14 . ENTRMN )@@G@@IES ARE 14 WORDS LONG @A@@[[ LA A1,(+1,ASSUMD) . @A@@[[MO )@@G@@ LA A0,(+1,ACCNT) . @D@@[[ BT A0,0,*A1 MP )@@G@@. MOVE ASSUMED VALUES @A@@[[ DL A0,RCLIBN . @C@@[[MQ )@@G@@ DS A0,ACLIBN . SET UP LIBNO @A@@[[ DL A0,MR )@@G@@RCQUAL . @B@@[[ DS A0,ACQUAL . QUALIFIER @A@@[[MS )@@G@@ DL A0,RCACNT . @C@@[[ DS A0,ACACNT MT )@@G@@. AND ACCOUNT @E@@[[ ER TDATE$ . FIND OUT WHAT TIMU )@@G@@ME IT IS NOW@G@@[[ SA A0,ACLAST . AND MAKE IT THE TIME OMV )@@G@@F LAST REFERENCE @B@@[[ J 0,X11 . RETURN @[A@@@MW )@@G@@/. @C@@@@. ACCOUNTING ELEMENT DOES NOT EXIST, CREATE ONE @[@@@@. MX )@@G@@@D@[@@ACREAT LA,U A0,RDL$ . HOLD THINGS UP FOR AWHILE @ @[@@ MY )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A0,(28,BUFF) . @ @[@@ MZ )@@G@@ LA,U A1,1791 . @ @[@@ DS A0,IOPKT+4 . @ @[@@ NA )@@G@@ LA,U A0,IOPKT . @ @[@@ ER IOW$ . @ @[@@ NB )@@G@@ TZ,S1 3,A0 . @ @[@@ ER ERR$ . @#@@[[ NC )@@G@@ INITAL . @E@@[[ACREAT LOCK IOPKT,0 1791,(+28,BUFF) . LOCK THE FILND )@@G@@E @ D@@@ LA,U A0,PFPKT . @C@@@@ ER PFWL$ NE )@@G@@ . GETNEXT WRITE LOC @ @@@@ JNZ A2,AC2100 . @C@@@@ NF )@@G@@ SA A1,TXTADD . ELEMENT TO START HERE@B@@@@ LA,U A0,0 NG )@@G@@ . NO ENTRIES @A@[@@ LA A1,ASSUMD+9 . QUOTAS @B@[@@ NH )@@G@@ LA A2,ASSUMD+11 . PERMISSIONS @B@[@@ DL A3,(+ACMNUM) . MANI )@@G@@SCON NUMBER @ @[@@ TSTO A0,BUFF . @ @[@@ DS A3,BUNJ )@@G@@FF+3 . @E@@[[ LA A1,ASUSAG . GET ASSUMED MAX DRUM UNK )@@G@@SAGE @D@@[[ LA A2,ASPERM . AND PERMISSIONS WORD @D@@[[NL )@@G@@ TSTO A0,BUFF . STASH QUOTAS, ETC @F@@[[ DL NM )@@G@@ A0,ACMCON . GET MASTER CONSOLE ASSUMED LIBNUM @A@@[[ DS NN )@@G@@ A0,BUFF+3 . @ @[@@ LA,U A0,W$ . @ @[@@ NO )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A1,TXTADD . @ @[@@ NP )@@G@@ SA A1,IOPKT+5 . @ @[@@ LA,U A0,IOPKT . @C@[@@ NQ )@@G@@ ER IOW$ . WRITE CONTROL SECTOR @ @[@@ TZ,S1 3,A0 NR )@@G@@ . @ @[@@ J AC2100 . @ @[@@ LA A1,TXTADD NS )@@G@@ . @E@[@@ AA,U A1,64 . THIS WILL BE THE NEXT WRITE LOC, NT )@@G@@@F@[@@ SA A1,IOPKT+5 . SO LET'S WRITE IN IT TO GET OUR TRACK NU )@@G@@@ @[@@ ER IOW$ . @ @[@@ TZ,S1 3,A0 . NV )@@G@@@ @[@@ J AC2100 . @F@@[[ WRITE IOPKT,AC2100 *PNW )@@G@@FTADR . WRITE CTL SECT FROM BUFF@E@@[[ LA A1,IODADR NX )@@G@@. GET DRUM ADDR OF CTL SECT @D@@[[ AA,U A1,64 . BUMPNY )@@G@@ TO NEXT TRACK @D@@[[ SA A1,IODADR . PUT BACK IN PACKNZ )@@G@@ET @G@@[[ ACQIR -1,AC2100 . AND FORESTALL I/O 5'S BY ACQOA )@@G@@UIRING IT @ N@@@ LA,U A0,64 . @C@@@@ SA A0,TXOB )@@G@@TSIZ . START WITH ONE TRACK @E@@@@ SZ TDATE . I DON'T KOC )@@G@@NOW WHAT TIME IT IS @C@@@@ LA A1,IOPKT+5 . GET NEXT WRITE OD )@@G@@LOC @ @@@@ LNA,U A0,PFPKT . @D@@@@ ER PFI$ OE )@@G@@ . CREATE THE NEW ELEMENT @ @[@@ JNZ A2,AC2100 . @ @[@@OF )@@G@@ LA,U A0,UNL$ . @ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@OG )@@G@@ LA,U A0,1791 . @ @[@@ SA A0,IOPKT+5 . @ @[@@OH )@@G@@ LA,U A0,IOPKT . @E@[@@ ER IOW$ . LET SOMEBOI )@@G@@ODY ELSE USE IT NOW @ @[@@ TZ,S1 3,A0 . @ @[@@ OJ )@@G@@ ER ERR$ . @F@[@@ J 1,X11 . GO BACK IN A WAOK )@@G@@Y TO SAY THAT ALL IS OK @ @[@@AC2100 LA,U A0,UNL$ . @ @[@@ OL )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA,U A1,1791 . @ @[@@ OM )@@G@@ SA A1,IOPKT+5 . @ @[@@ LA,U A0,IOPKT . @ @[@@ ON )@@G@@ ER IOW$ . @ @[@@ ER ERR$ . @C@[@@/. ROUOO )@@G@@TINE TO FIND AN ACCOUNTING ENTRY ON DRUM @A@[@@. ENTER WITH A0,A1 = # TOP )@@G@@O LOOK FOR @E@[@@. LEAVE WITH A0 = DRUM INDEX OF ENTRY OR ZERO IF NOT FOQ )@@G@@OUND @C@[@@. A1 = INDEX INTO BUFF TO GET ENTRY @ @[@@ OR )@@G@@ INSTRS . @ @[@@ACFNUM* SX X11,ACFLNK . @D@[@@ OS )@@G@@ DS A0,ACNUMB . SAVE # WE'RE LOOKING FOR @D@[@@ LA,U A0,PFOT )@@G@@PKT . FIND THE ACCOUNTING ELEMENT@ @[@@ ER PFS$ . OU )@@G@@@ @[@@ JNZ A2,0,X11 . @ @[@@ LA,U A0,R$ . OV )@@G@@@ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A0,(28,BUFF) . OW )@@G@@@ @[@@ LA,H2 A1,TXTADD . @ @[@@ DS A0,IOPKT+4 . OX )@@G@@@ @[@@ LA,U A0,IOPKT . @B@[@@ ER IOW$ . GETOY )@@G@@ SECTOR ZERO@ @[@@ TZ,S1 3,A0 . @ @[@@ J 0,X11OZ )@@G@@ . @ @[@@ LA,U A1,224 . @E@[@@ SA,H1 A1,IOPA )@@G@@PKT+4 . SET UP I/O PACKET FOR SEARCH LOOP@F@[@@ LA,H2 A2,BUFF PB )@@G@@ . GET NUMBER OF ENTRIES TO LOOK THROUGH @C@[@@ AA,U A2,2 PC )@@G@@ . FUDGE FOR SECTOR ZERO@C@[@@ DL A4,ACNUMB . WE LOOK FOR THIPD )@@G@@S @D@[@@AC1100 LR,U R1,16 . ASSUME A FULL BUFFERS WORTH@A@[@@PE )@@G@@ TLE,U A2,16 . IF NOT, @B@[@@ LR R1,A2 . KNOPF )@@G@@CK IT DOWN @C@[@@ ER IOW$ . READ THE NEXT BUFFER @ @[@@PG )@@G@@ TZ,S1 3,A0 . @C@[@@ J AC1190 . GO CHECK PH )@@G@@FOR I/O 5'S @A@[@@AC1110 LX X11,(14,BUFF-14) . @G@[@@AC1120 SE PI )@@G@@ A4,14,*X11 . SEARCH THRU BUFF FOR MATCH ON FIRST WORD OF #@E@[@@ PJ )@@G@@ J AC1130 . NOT IN THIS ONE, TRY ANOTHER @E@[@@ TE PK )@@G@@ A5,1,X11 . FIRST WORDS MATCH, TRY SECOND @C@[@@ J AC112PL )@@G@@0 . NOPE, KEEP TRYING @A@[@@ J AC1140 . FOUND IT:PM )@@G@@@E@[@@AC1130 ANA,U A2,16 . DECREMENT # OF ENTRIES TO SEARCH @C@[@@PN )@@G@@ JG,U A2,1 AC1150 . NUMBER NOT FOUND @C@[@@ LA A1,5,PO )@@G@@A0 . GET CURRENT READ ADDR@D@[@@ AA,U A1,8 . BUMP TO GPP )@@G@@ET NEXT BUFFER @ @[@@ SA A1,5,A0 . @F@[@@ J PQ )@@G@@ AC1100 . GO READ IN ANOTHER 8 SECTORS WORTH @ @[@@AC1140 LA,U PR )@@G@@ A0,0,X11 . @D@[@@ ANA,U A0,BUFF . THIS MANY WORDS INTO PS )@@G@@BUFF @ @[@@ DSL A0,36 . @ @[@@ DI,U A0,28 PT )@@G@@ . @ @[@@ LXI A0,A1 . @ @[@@ AA,H2 A0,IOPKT+5 PU )@@G@@ . @D@[@@AC1145 LA A1,X11 . RETURN INDEX INTO BUFF @ @[@@PV )@@G@@AC1146 LX X11,ACFLNK . @ @[@@ J 1,X11 . @C@[@@PW )@@G@@AC1150 LA,U A0,0 . REPORT A NO FIND @ @[@@ J AC114PX )@@G@@6 . @C@[@@AC1190 LA,S1 A1,3,A0 . GET I/O ERROR STATUS @B@[@@PY )@@G@@ JE,U A1,5 AC1110 . I/O 5'S OK @C@[@@ LX X11,ACFLNK PZ )@@G@@ . EVERYTHING ELSE DIES @ @[@@ J 0,X11 . @ @[@@ QA )@@G@@ VARBLS . @ @[@@ACFLNK RES 1 . @ @[@@ACNUMBQB )@@G@@ RES 2 . @[@[@@/. @[@[@@. @F@[@@. COPY THE CTRRENTQC )@@G@@ ACCOUNTING ELEMENT AND ALLOCATE AN EXTRA TRACK @D@[@@. NOTE: THIS ROUTIQD )@@G@@NE DOES NOT PUT A LOCK ON THE FILE -@D@[@@. THIS SHOULD BE DONE BY QE )@@G@@THE CALLER ID DESIRED @ @[@@ INSTRS . @ @[@@ACCOPYQF )@@G@@* LA,U A0,PFPKT . @C@[@@ ER PFS$ . FIND THE ELEMENQG )@@G@@ET @ @[@@ JNZ A2,0,X11 . @C@[@@ ER PFWL$ QH )@@G@@ . GET NEXT WRITE LOC @ @[@@ JNZ A2,0,X11 . @D@[@@ QI )@@G@@ LA A0,TXTADD . SAVE WHERE PLD ELEMENT WAS @ @[@@ SA A0,NXQJ )@@G@@TADD . @C@[@@ SA A1,TXTADD . POST NEW START ADDR @D@[@@QK )@@G@@ LA A5,TXTSIZ . GET SIZ OF OLD ELEMENT @D@[@@ SSL QL )@@G@@ A5,3 . TURN IT INTO A BUFFER COUNT@C@[@@ ANA,U A5,1 QM )@@G@@ . AND NOW A JGD COUNT @ @[@@ LA A1,(224,BUFF) . @C@[@@ QN )@@G@@ SA A1,IOPKT+4 . SET COPY OF ELEMENT @ @[@@ LA,U A1,W$ QO )@@G@@ . @ @[@@ LA,U A2,R$ . @C@[@@ LA A3,TXTADD QP )@@G@@ . GET FIRST WRITE ADDR @C@[@@ LA A4,NXTADD . GET FIRST RE1D QQ )@@G@@ADDR @ @[@@ LA,U A0,IOPKT . @C@[@@CO0100 SA A4,IOPKT+5 QR )@@G@@ . SET NEXT READ ADDR @ @[@@ SA,S2 A2,IOPKT+3 . @C@[@@ QS )@@G@@ ER IOW$ . READ IN NEXT BUFFER @ @[@@ TZ,S1 3,A0 QT )@@G@@ . @ @[@@ J 0,X11 . @C@[@@ SA A3,IOPKT+5 QU )@@G@@ . SET NEXT WRITE ADDR @ @[@@ SA,S2 A1,IOPKT+3 . @ @[@@ QV )@@G@@ ER IOW$ . @ @[@@ TZ,S1 3,A0 . @ @[@@ QW )@@G@@ J 0,X11 . @ @[@@ AA,U A4,8 . @ @[@@ QX )@@G@@ AA,U A3,8 . @ @[@@ JGD A5,CO0100 . @ @[@@ QY )@@G@@ SA,H1 A1,IOPKT+4 . @ @[@@ SA A3,IOPKT+5 . @F@[@@ QZ )@@G@@ ER IOW$ . WRITE IN NEXT TRACK TO GET IT ALLOCATD @ @[@@ RA )@@G@@ TZ,S1 3,A0 . @ @[@@ J 0,X11 . @ @[@@ RB )@@G@@ LA A0,TXTSIZ . @D@[@@ SA A0,A5 . TEMP SAVE OLD TRC )@@G@@EXT SIZE @E@[@@ AA,U A0,64 . BUMP ELEM LENGTH BY ONE TRARD )@@G@@CK @ @[@@ SA A0,TXTSIZ . @ @[@@ SZ TDATE RE )@@G@@ . @E@[@@ AU A0,TXTADD . COMPUTE REAL NEXT WRITE ADDR RF )@@G@@@C@[@@ LNA,U A0,PFPKT . REGISTER THE NEW ELEM@C@[@@ ER RG )@@G@@ PFI$ . INSERT THE NEW ELEM @ @[@@ JNZ A2,0,X11 . RH )@@G@@@ @[@@. ZERO OUT THE OLD ELEMENT @D@[@@ LA A0,(2,BUFF) . FIRRI )@@G@@ST CLEAR OUT BUFFER @ @[@@ LR,U R1,111 . @ @[@@ RJ )@@G@@ DSL A1,72 . @ @[@@ DS A1,0,*A0 . @ @[@@ RK )@@G@@ JGD R1,$-1 . @F@[@@ SSL A5,3 . TURN OLD ELEM SRL )@@G@@IZ INTO A BUFFER COUNT @ @[@@ ANA,U A5,1 . @ @[@@ RM )@@G@@ LA A0,(224,BUFF) . @C@[@@ LA A1,NXTADD . GET ADDR OF OLDRN )@@G@@ ELEM @ @[@@ DS A0,IOPKT+4 . @ @[@@ LA,U A0,W$ RO )@@G@@ . @ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA,U A0,IOPKT RP )@@G@@ . @E@[@@CO0200 ER IOW$ . WRITE OUT A BUFFER FULL OF ZEROESRQ )@@G@@@ @[@@ TZ,S1 3,A0 . @ @[@@ J 0,X11 . RR )@@G@@@C@[@@ AA,U A1,8 . BUMP NEXT WRITE ADDR @ @[@@ SA RS )@@G@@ A1,IOPKT+5 . @ @[@@ JGD A5,CO0200 . @B@[@@ J RT )@@G@@ 1,X11 . ALL DONE ! @#@[@@ VARBLS @ @[@@NXTADD RES RU )@@G@@ 1 . @C@@[[ TZ A2 . WAS PFI OK? RV )@@G@@@G@@[[AC2100 LX,U X11,0 . ERROR-- SET X11 SO WE'LL IGDM AT ERW )@@G@@XIT @E@@[[ UNLOCK IOPKT,0 1791,(+28,BUFF) . RELEASE THE FILE RX )@@G@@@E@@[[ J 1,X11 . NORMAL EXIT OR IGDM IF ERROR@[@@[[RY )@@G@@. @F@@[[. THE SKELETON INFORMATION BELOW IS USED TO INITIALIZE THE DRZ )@@G@@EFAULT@G@@[[. VALUES OF SECTORS ALLOWED, ETC., IN THE CONTROL SECTOR OF SA )@@G@@THE ACCOUNT @G@@[[. ELEMENT AT THE TIME A NEW APLFILE IS CREATED AND INISB )@@G@@TIALIZED. ONCE @G@@[[. THE FILE HAS BEEN CREATED, THE VALUES IN THE FSC )@@G@@ILE ITSELF ARE READ BACK@G@@[[. ON TOP OF THE CONSTANTS BELOW AND USED TSD )@@G@@O INITIALIZE THE ACCOUNT ENTRY@F@@[[. FOR NEW USERS. THUS CHANGING THE SE )@@G@@ASSUMED VALUES MAY BE DONE BY @G@@[[. EXECUTING AN APPROPRIATE APL FUNCTSF )@@G@@ION WHICH WRITES THE NEW DEFAULTS @B@@[[. INTO THE CONTROL SECTOR OF TSG )@@G@@HE FILE. @[@@[[. @H@@[[ACMCON* +271828.0D . MASTER CONSH )@@G@@SOLE LIBNUM (E BECAUSE IBM USES PI) @B@@[[ASSUMD* + 0.0D SI )@@G@@. LIBNO @B@@[[ APLBCI ' ' . KEY (NONE)@F@@[[ SJ )@@G@@ +1,1,0,0,0,0 . LAST REF TO THIS NR (1 JAN 64) @D@@[[ SK )@@G@@ 'WWWWWXXXXX' . EXEC 8 ACCOUNT NUMBER @C@@[[ 'YYYYYZZZZSL )@@G@@Z' . EXEC 8 QUALIFIER@G@@[[ 'RUNIDX' . EXECSM )@@G@@ 8 RUNID (ACTUAL, NOT ORIGINAL) @G@@[[ASUSAG +MAXDRM,0 SN )@@G@@. MAX NO DRUM SECTS ALLOWED, NO IN USE @E@@[[PERMS FORM 6,24,1,1,SO )@@G@@4 . LAYOUT OF PERMISSIONS WORD @F@@[[ASPERM PERMS MAXWSI,0,PUBINHSP )@@G@@,CONINH,0 . INITIAL PERMISSIONS @F@@[[ + 0 SQ )@@G@@. TRACK SECONDS SINCE LAST BILLING @F@@[[ +1,1,0,0,0,0 SR )@@G@@. TDATE$ OF LAST BILLING (1 JAN 64) @[_@@@/. @[@@@@. @B@@@@. ENTESS )@@G@@R A NUMBER INTO THE ACCOUNTS ELEMENT@B@@@@. UPON ENTRY, A3=ADDR OF DATA ST )@@G@@TO ENTER @B@@@@. LEAVES WITH A0 = DRUM INDEX OF ENTRY @]@[@@ SU )@@G@@ MCONS@ @[@@ENTER* SX X11,ENLINK . @D@[@@ SA A3,WHERE SV )@@G@@ . SAVE ADDR TO XFER FROM @ @[@@ LA,U A0,RDL$ . @ @[@@SW )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A0,(28,BUFF) . @ @[@@SX )@@G@@ LA,U A1,1791 . @ @[@@ DS A0,IOPKT+4 . @ @[@@SY )@@G@@ LA,U A0,IOPKT . @E@[@@ ER IOW$ . HOLD UP OSZ )@@G@@THER PEOPLE FOR A WHILE @ @[@@ TZ,S1 3,A0 . @ @[@@ TA )@@G@@ ER ERR$ . @ @[@@ LA,U A0,PFPKT . @C@[@@ TB )@@G@@ ER PFS$ . FIND THE ELEMENT @ @[@@ JNZ A2,AC3900 TC )@@G@@ . @ @[@@ LA A0,TXTADD . @ @[@@ SA A0,IOPKT+5 TD )@@G@@ . @ @[@@ LA,U A0,R$ . @ @[@@ SA,S2 A0,IOPKT+3 TE )@@G@@ . @ @[@@ LA,U A0,IOPKT . @D@[@@ ER IOW$ TF )@@G@@ . READ CONTROL SECTOR (0) @ @[@@ TZ,S1 3,A0 . @ @[@@TG )@@G@@ J AC3900 . @A@[@@. FIND OUT IF LAST TRACK IS FULL TH )@@G@@@B@[@@ LA,H2 A0,BUFF . GET ENTRY COUNT@A@[@@ SA A0,NRTI )@@G@@ENT . TEMP SAVE@D@[@@ AA,U A0,2 . DONT FORGET SECTOR ZETJ )@@G@@RO @ @[@@ DSL A0,36 . @C@[@@ DSC A0,5 TK )@@G@@ . 128 ENTRIES PER TRACK@C@[@@ JNZ A0,AC3100 . IS THIS TRACK FTL )@@G@@ULL? @E@[@@ TZ,Q2 BUFF . IS THE MASCON ON WITH WRITE? TM )@@G@@@G@[@@ J AC3910 . YES, DON'T LET THIS GUY MOVE THE ELEMENTN )@@G@@T @E@[@@ LMJ X11,ACCOPY . YES, GO ALLOCATE AN EXTRA TRACK TO )@@G@@@ @[@@ J AC3900 . @^@[@@. COMPUTE DRUM INDEX @C@[@@TP )@@G@@AC3100 LA A0,NRENT . RESTORE $ OF ENTRIES @F@[@@ AA,U A0,2 TQ )@@G@@ . DON'T FORGET WE HAVE SOMETHING IN SEC 0@D@[@@ DSL A0,1 TR )@@G@@ . FIND # SECTORS WE HAVE @E@[@@ AA,H2 A0,TXTADD . BIATS )@@G@@S TO FIND NEXT FREE SECTOR @D@[@@ JP A1,$+2 . DOES THISTT )@@G@@ ENTRY GO IN H1? @A@[@@ LXI,U A0,14 . NO, H2 @D@[@@ TU )@@G@@ SA A0,INDEX . SAVE FRESH DRUM POINTER @C@[@@ LA,U A1,0,TV )@@G@@A0 . ISOLATE DRUM ADDR @ @[@@ LA A0,(28,BUFF) . @ @[@@TW )@@G@@ DS A0,IOPKT+4 . @ @[@@ LA,U A0,R$ . @ @[@@TX )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA,U A0,IOPKT . @G@[@@TY )@@G@@ ER IOW$ . READ IN THE SECTOR WHERE THE NEW ENTRY GOES TZ )@@G@@@ @[@@ TZ,S1 3,A0 . @ @[@@ J AC3900 . UA )@@G@@@E@[@@ LA A1,WHERE . GET PLACE FROM WHICH TO MOVE ITEM@ @[@@UB )@@G@@ LXI,U A1,1 . @ @[@@ LA A2,(1,BUFF) . @ @[@@UC )@@G@@ AA,H1 A2,INDEX . @ @[@@ LR,U R1,14 . @C@[@@UD )@@G@@ BT A2,0,*A1 . MOVE IN NEW ENTRY @ @[@@ LA,U A1,W$UE )@@G@@ . @ @[@@ SA,S2 A1,IOPKT+3 . @C@[@@ ER IOW$ UF )@@G@@ . WRITE IT TO DRUM @ @[@@ TZ,S1 3,A0 . @ @[@@UG )@@G@@ J AC3900 . @ @[@@ LA A1,TXTADD . @ @[@@UH )@@G@@ SA A1,IOPKT+5 . @C@[@@ LA,U A2,R$ . READ CONTUI )@@G@@ROL SECTOR @ @[@@ SA,S2 A2,IOPKT+3 . @ @[@@ ER IOW$ UJ )@@G@@ . @ @[@@ TZ,S1 3,A0 . @ @[@@ J AC390UK )@@G@@0 . @B@[@@ LA,H2 A1,BUFF . GET ENTRY COUNT@D@[@@ UL )@@G@@ AA,U A1,1 . BUMP TO INCLUDE THIS ENTRY @ @[@@ SA,H2 A1,BUUM )@@G@@FF . @ @[@@ LA,U A2,W$ . @ @[@@ SA,S2 A2,IOUN )@@G@@PKT+3 . @E@[@@ ER IOW$ . WRITE BACK UPDATED CONTROL UO )@@G@@SECTOR@ @[@@ TZ,S1 3,A0 . @ @[@@ J AC3900 UP )@@G@@ . @ @[@@ LA,U A1,UNL$ . @ @[@@ SA,S2 A1,IOPKT+3 UQ )@@G@@ . @ @[@@ LA,U A1,1791 . @ @[@@ SA A1,IOPKT+5 UR )@@G@@ . @D@[@@ ER IOW$ . FREE UP THE FILE FOR OTHERS@ @[@@US )@@G@@ TZ,S1 3,A0 . @ @[@@ ER ERR$ . @C@[@@UT )@@G@@ LA A0,INDEX . RETURN THE DRUM INDEX@ @[@@ LX X11,EUU )@@G@@NLINK . @ @[@@ J 1,X11 . @ @[@@AC3900 LA,U A0,UNUV )@@G@@L$ . @ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A0,(2UW )@@G@@8,BUFF) . @ @[@@ LA,U A1,1791 . @ @[@@ DS A0,IOUX )@@G@@PKT+4 . @ @[@@ LA,U A0,IOPKT . @ @[@@ ER IOW$ UY )@@G@@ . @ @[@@ ER ERR$ . @ @[@@AC3910 ERROR YLIBRUZ )@@G@@A . @ @[@@ LA,U A0,UNL$ . @ @[@@ SA,S2 A0,IOVA )@@G@@PKT+3 . @ @[@@ LA A0,(28,BUFF) . @ @[@@ LA,U A1,17VB )@@G@@91 . @ @[@@ DS A0,IOPKT+4 . @ @[@@ LA,U A0,IOVC )@@G@@PKT . @B@[@@ ER IOW$ . UNLOCK 1791 @ @[@@ VD )@@G@@ TZ,S1 3,A0 . @ @[@@ ER ERR$ . @ @[@@ VE )@@G@@ J SINOFF . @E@[@@/. UPDATE THE ACCOUNTING ENTRY WHOSE DRUM VF )@@G@@INDEX IS IN A0 @#@@[[ INITAL . @F@@[[. TEMP UNTIL SACCNT IS RVG )@@G@@EWRITTEN TO DO THIS ALWAYS BY DEFAULT @ @@[[ENTER SX X11,ENLINVH )@@G@@K . @F@@[[ SA A3,ENINIT . SAVE POINTER TO INITIALIZATION STVI )@@G@@UFF @E@@[[ LOCK IOPKT,0 1791,(+28,BUFF) . LOCK THE FILE VJ )@@G@@@F@@[[EN0010 PFSRCH . LOOK FOR CURRENT ACCOUNTING ELEMENT VK )@@G@@@F@@[[ LA A3,ENINIT . RECOVER ADDR OF INITIALIZATION STUFF VL )@@G@@@E@@[[ LA,U A0,0 . SET EXPANSION FLAG TO CONDITIONAL@F@@[[VM )@@G@@ LMJ X11,ADDENT . TRY TO ADD AN ENTRY FOR THIS USER @E@@[[VN )@@G@@ J EN0900 . ERROR-- GO UNLOCK AND THEN DIE @C@@[[ VO )@@G@@ SA A0,ENINDX . TEMP SAVE OUR INDEX @C@@[[ UNLOCK IOPKT,0 1VP )@@G@@791 . RELEASE THE FILE@D@@[[ LA A0,ENINDX . RECOVER THVQ )@@G@@E INDEX @F@@[[ JZ A0,EN0040 . IF ENTRY NOT MADE, SIGN OFFVR )@@G@@ THIS GUY @C@@[[ LX X11,ENLINK . ELSE GET LINKAGE@C@@[[VS )@@G@@ J 1,X11 . AND TAKE NORMAL EXIT @E@@[[. ENTRY NOT MADE BVT )@@G@@ECAUSE MASTER CONS IS UPDATING THE FILE-- @D@@[[EN0040 ERROR YLIBRA VU )@@G@@ . SIGNAL LIBRARY TABLE FULL @B@@[[ J SINOFF . AND SIGN VV )@@G@@OFF @A@@[[. I/O ERROR WHILE FILE LOCKED-- @C@@[[EN0900 UNLOCK IOPVW )@@G@@KT 1791 . RELEASE THE FILE@C@@[[ ER ERR$ . AND DIE HVX )@@G@@ORRIBLY @[@@[[. @ @@[[ENLINK EQUF $,,H1 . @ @@[[ENINITVY )@@G@@ EQUF $,,H2 . @ @@[[ RES 1 . @E@@[[ENINDXVZ )@@G@@ RES 1 . LOD IN WHICH INDES IS TEMP STORED@B@@[[/. UPDATE THWA )@@G@@IS USER'S ACCOUNTING ENTRY-- @#_@@@ INSTRS @ @@@@UPDATE* SX WB )@@G@@ X11,UPLINK . @B@[@@ SA A0,INDEX . SAVE DRUM INDEX@D@[@@WC )@@G@@ SZ UPMOVE . CLEAR ELEMENT MOVED FLAG @ @[@@ LA,U WD )@@G@@ A0,RDL$ . @ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA WE )@@G@@ A3,(28,BUFF) . @ @[@@ LA,U A4,1791 . @ @[@@ DS WF )@@G@@ A3,IOPKT+4 . @ @[@@ LA,U A0,IOPKT . @B@[@@ ER WG )@@G@@ IOW$ . PUT A HOLD ON @ @[@@ TZ,S1 3,A0 . @ @[@@WH )@@G@@ ER ERR$ . @E@[@@UP0100 LA,H1 A1,INDEX . GET WORD WI )@@G@@POINTER INTO SECTOR @C@[@@ AA,U A1,BUFF . SET UP REGS FORWJ )@@G@@ BT @ @[@@ LXI,U A1,1 . @ @[@@ LA A2,(1,ACCNTWK )@@G@@) . @ @[@@ ER TDATE$ . @D@[@@ SA A0,ACLAST WL )@@G@@ . SET LAST REFERENCE FIELD @D@[@@ LA,H2 A3,INDEX . GET DRUM WM )@@G@@ADDR OF ENTRY @ @[@@ SA A3,IOPKT+5 . @ @[@@ LA,U WN )@@G@@ A3,R$ . @ @[@@ SA,S2 A3,IOPKT+3 . @ @[@@ LA,U WO )@@G@@ A0,IOPKT . @D@[@@ ER IOW$ . READ SECTOR WITH ENTRWP )@@G@@Y @ @[@@ TZ,S1 3,A0 . @ @[@@ J UP0900 WQ )@@G@@ . @F@@[[ TZ,U ONEFIL . HAS SITE IMPLEMENTED SINGLE WR )@@G@@FILE? @F@@[[ TNZ DRUMAD . DID WE ACTUALLY GET TO SIGN WS )@@G@@ON? @D@@[[ J 1,X11 . NO, PRETEND WE UPDATED@F@@[[WT )@@G@@ SZ UPMOVE . YES, CLEAR ELEMENT MOVED FLAG @F@@[[WU )@@G@@ LOCK IOPKT,0 1791,(+28,BUFF) . COMMANDEER THE FILE @E@@[[WV )@@G@@UP0100 LA,H2 A0,DRUMAD . GET SECTOR OUR ENTRY IS IN @B@@[[ WW )@@G@@ SA A0,IODADR . TO PACKET @D@@[[ READ IOPKT,UP0900 -1WX )@@G@@,(+28,BUFF) . GET IT @DT@@@ TNZ BUFF . HAS THE ELEMENTWY )@@G@@ MOVED? @E@@@@ J UP0200 . YES, GO FIND A NEW DRUM POIWZ )@@G@@NTER @ @[@@ LR,U R1,14 . @D@[@@ BT A1,0,*A2 XA )@@G@@ . NO, MOVE IN THE NEW ENTRY @ @[@@ LA,U A1,W$ . @ @[@@XB )@@G@@ SA,S2 A1,IOPKT+3 . @D@[@@ ER IOW$ . WRITE SECXC )@@G@@TOR BACK TO DRUM @ @[@@ TZ,S1 3,A0 . @ @[@@ J XD )@@G@@ UP0900 . @ @[@@ LA,U A1,UNL$ . @ @[@@ SA,S2XE )@@G@@ A1,IOPKT+3 . @ @[@@ LA,U A1,1791 . @ @[@@ SA XF )@@G@@ A1,IOPKT+5 . @C@[@@ ER IOW$ . TURN OFF THE HOLD XG )@@G@@@ @[@@ TZ,S1 3,A0 . @ @[@@ ER ERR$ . XH )@@G@@@D@@[[. UPDATE COPY OF DATA, MOVE TO BUFFER, FLUSH IT OUT @D@@[[ XI )@@G@@ ER TDATE$ . GET THE PRESENT TIME @E@@[[ SA A0,XJ )@@G@@ACLAST . POST AS TIME OF LAST REF @D@@[[ LA,U A1,BUFF XK )@@G@@ . TARGET ADDR IN BUFF @F@@[[ AA,H1 A1,DRUMAD . PLUSXL )@@G@@ HALFSECTOR OFFSET, IF ANY @A@@[[ LXI,U A1,1 . XM )@@G@@@F@@[[ LA A2,(+1,ACCNT) . SOURCE IS ALWAYS THE CANNED AREA XN )@@G@@@C@@[[ LR,U R1,14 . MOVE 14 WORDS @B@@[[ BT XO )@@G@@ A1,0,*A2 . DO IT @E@@[[ WRITE IOPKT,UP0900 . WRITXP )@@G@@E UPDATED ACCOUNT ENTRY @D@@[[ UNLOCK -1,0 1791 . AND RELEASXQ )@@G@@E THE FILE @ I@@@ LX X11,UPLINK . @ @@@@ J 1,X11XR )@@G@@ . @D@@@@UP0200 TZ UPMOVE . HAVE WE TRIED THIS YET? XS )@@G@@@A@@@@ J UP0900 . YES, DIE @D@[@@ DL A0,RCLIBN XT )@@G@@ . NO, GET THIS GUYS LIB NO @E@[@@ LMJ X11,ACFNUM . AND GO FIXU )@@G@@ND IT IN THE NEW ELEMENT@D@@[[ PFSRCH . FIND NEW COPY OF ACCOUNT XV )@@G@@ELEMENT @B@@[[ DL A0,RCLIBN . GET OUR LIBNO @D@@[[ XW )@@G@@ LA A2,(+448,BUFF) . SUPPLY SCRATCH SPACE @F@@[[ LMJ X11XX )@@G@@,FINDNO . AND FIND OUR PLACE IN NEW COPY @A]@@@ J UP090XY )@@G@@0 . ?????????@D@@@@ JZ A0,UP0900 . COULD NOT FIND THE NUXZ )@@G@@MBER @D@[@@ SA A0,INDEX . SET THE NEW DRUM INDEX @D@@][YA )@@G@@ SA A0,DRUMAD . SET THE NEW DRUM INDEX @H[@@@ SX YB )@@G@@ X11,UPMOVE . MARK RECOVERY ATTMPTED(SO NO LOOPS IF BAD FILE) @ @@@@YC )@@G@@ J UP0100 . @ @[@@UP0900 LA,U A0,UNL$ . @ @[@@YD )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A0,(28,BUFF) . @ @[@@YE )@@G@@ LA,U A1,1791 . @ @[@@ DS A0,IOPKT+4 . @ @[@@YF )@@G@@ LA,U A0,IOPKT . @B@[@@ ER IOW$ . UNLOCK THYG )@@G@@E FILE@[@@[[. @E@@[[UP0900 UNLOCK IOPKT 1791,(+28,BUFF) . RELEASYH )@@G@@E THE FILE @AB@@@ ER ERR$ . AND DIE @ @@@@ VARBLYI )@@G@@S . @B@@@@UPLINK EQUF $,,H1 . RETURN LINK @G@@@@YJ )@@G@@UPMOVE EQUF $,,H2 . FLAG FOR TESTING IF ACCNT ELEMENT HAS MOVED YK )@@G@@@^@@@@ RES 1 . @F@@@@/. THESE ARE ROUTINES TO MANIPULATE YL )@@G@@THE ACCOUNTS FILE AS PER THE @^@@@@. MASTER CONSOLE I-BEAMS@#@[@@ YM )@@G@@ MCONS . @D@[@@. OPEN FILE. A1=0 => READ ONLY , 1=> WRITE ENABLE YN )@@G@@@]@[@@ACFOPN*. @B@[@@ SX X11,AFLINK . SAVE RETURN @D@[@@YO )@@G@@ LA,XU A0,-1 . ASSUME FILE ALREADY OPEN @C@[@@ TZ,Q2YP )@@G@@ MCAWRD . IS THE FILE OPEN? @B@[@@ J AF0850 . YESYQ )@@G@@, TELL HIM @C@[@@ SNA,Q2 A0,MCAWRD . NO, MARK AS OPEN @B@[@@YR )@@G@@ SA A1,A5 . SAVE ALLOW FLAG@E@[@@ LA,U A0,PFPKT YS )@@G@@ . LETS GET THE RIGHT SPOT ON DRUM @ @[@@ ER PFS$ . YT )@@G@@@ @[@@ JNZ A2,AF0820 . @ @[@@ LA,U A0,RDL$ . YU )@@G@@@ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A1,(28,BUFF) . YV )@@G@@@D@[@@ LA,U A2,1791 . WE WANT TO LOCK ON 1791 @ @[@@ YW )@@G@@ DS A1,IOPKT+4 . @ @[@@ LA,U A0,IOPKT . @D@[@@ YX )@@G@@ ER IOW$ . HOLD UP THINGS FOR A WHILE @C@[@@ TZ,S1 3,A0 YY )@@G@@ . DID THE LOCK WORK? @D@[@@ J AF0820 . NO, GO REYZ )@@G@@PORT AN I/O ERROR @D@[@@ LA A2,TXTADD . YES, GET ADDR OF ELEMZA )@@G@@ENT @C@[@@ SA A2,IOPKT+5 . POST IT IN PACKET @ @[@@ ZB )@@G@@ LA,U A3,R$ . @ @[@@ SA,S2 A3,IOPKT+3 . @D@[@@ ZC )@@G@@ ER IOW$ . READ IN CONTROL SECTOR @B@[@@ TZ,S1 3,A0 ZD )@@G@@ . DID WE GET IT? @F@[@@ J AF0819 . NO, GO UNLOCK AZE )@@G@@ND THE GIVE I/O ERROR @D@[@@ SA,Q2 A5,BUFF . YES, SET ALLOW ZF )@@G@@FLAG IN BUFF@ @[@@ LA,U A3,W$ . @ @[@@ SA,S2 A3,IOZG )@@G@@PKT+3 . @E@[@@ ER IOW$ . WRITE MODIFIED CONTROL SECTZH )@@G@@OR @C@[@@ TZ,S1 3,A0 . DID THE WRITE WORK? @D@[@@ ZI )@@G@@ J AF0819 . NO, SAY WE GOT AN I/O ERR @D@[@@ LA,U A1,UNZJ )@@G@@L$ . SET UP PACKET FOR UNLOCKING@ @[@@ SA,S2 A1,IOPKT+3 . ZK )@@G@@@B@[@@ LA,U A1,1791 . DO IT TO 1791 @ @[@@ SA A1,IOZL )@@G@@PKT+5 . @F@[@@ ER IOW$ . GIVE SOME TIME TO OTHER PEOZM )@@G@@PLE NOW @B@[@@ TZ,S1 3,A0 . DID IT WORK? @C@[@@ ZN )@@G@@ J AF0820 . NO, GO SAY TOO BAD @G@[@@ AA,U A2,1 ZO )@@G@@ . NOW POINT PACKET AT SECTOR ONE(START OF DATA)@ @[@@ LA A1,(2ZP )@@G@@24,ACPAGE) .@ @[@@ DS A1,IOPKT+4 . @ @[@@ LA,U A1,R$ZQ )@@G@@ . @ @[@@ SA,S2 A1,IOPKT+3 . @D@[@@ ER IOW$ ZR )@@G@@ . LOAD IN THE FIRST PAGE @B@[@@ TZ,S1 3,A0 . DIDZS )@@G@@ WE GET IT? @C@[@@ J AF0820 . NO, GO TELL HIM SO @G@[@@ZT )@@G@@ LA,U A0,16 . DEFAULT VALUE FOR # OF ENTRIES IS 16 PER PAGEZU )@@G@@@F@[@@ LA,H2 A1,BUFF . BUT THERE MAY BE FEWER THAN THAT, SO, ZV )@@G@@@D@[@@ TLE A1,A0 . IF REALLY FEWER THAN 16, @G@[@@ ZW )@@G@@ LA A0,A1 . POST LOWER AMNT AS # OF ENTRIES IN THE PAGE @E@[@@ZX )@@G@@ LXI,U A2,0,A0 . AND PACK IT INTO THE PAGE INDEX @ @[@@ ZY )@@G@@ SA A2,ACPIND . @C@[@@ SZ PAGEST . SET FIRST REC #ZZ )@@G@@-1 @D@[@@ LA,H2 A0,BUFF . GET # OF ENTRIES IN FILE @D@[@@AA )@@G@@ SA,H2 A0,MCAWRD . POST # ENTRIES IN THE FILE @C@[@@ SA,Q1AB )@@G@@ A5,MCAWRD . SET LOCAL ALLOW FLAG @C@[@@ SZ,H1 ACTIND . CLEAC )@@G@@AR LAST REC # @A@[@@ J AF0850 . AND ELAVE@[@[@@. AD )@@G@@@ @[@@. GET RECORD SPECIFIED BY (A1)@]@[@@ACGREC*. @ @[@@ SX AE )@@G@@ X11,AFLINK . @C@[@@ TNZ,Q2 MCAWRD . IS THE FILE OPEN? AF )@@G@@@B@[@@ J AF0810 . NO, TELL HIM SO@G@[@@ TZ,Q1 MCAWRAG )@@G@@D . IF WRITE TURNED ON AND A RECORD IS ACTIVE @E@[@@ TNZ,HAH )@@G@@1 ACTIND . THEN COPY OLD RECORD BACK TO PAGE@B@[@@ J AF020AI )@@G@@0 . OTHERWISE DON'T@D@[@@ LA,H2 A0,ACTIND . GET INDEX OF REAJ )@@G@@C INTO PAGE @ @[@@ AA A0,(1,ACPAGE) . @ @[@@ LA A2,(1AK )@@G@@,ACTIVE) . @ @[@@ LR,U R1,14 . @C@[@@ BT A0,0,AL )@@G@@*A2 . MOVE OLD RECORD OUT @D@[@@AF0200 LA,H2 A0,MCAWRD . HIGHEST RAM )@@G@@ECORD # THAT LIVES@ @[@@ TG,U A1,1 . @E@[@@ TLE AN )@@G@@ A0,A1 . DOES THE DESIRED RECORD EXIST? @D@[@@ J AF083AO )@@G@@0 . NO, TELL HIM SO - @E@[@@ SA A1,ACTEMP . YESAP )@@G@@, SAVE THE WANTED RECORD # @E@[@@ LA A2,PAGEST . GET FIRSTAQ )@@G@@ REC #-1 IN THIS PAGE @C@[@@ AU,H1 A2,ACPIND . A3=LAST REC IN AR )@@G@@PAGE @D@[@@ TNW A2,A1 . DO WE HAVE THIS RECORD? @E@[@@AS )@@G@@ J AF0250 . YES, WE DON'T NEED A NEW PAGE @ @[@@ AT )@@G@@ LA A3,A1 . @E@[@@ DSL A3,1 . FIND REL SECTORAU )@@G@@ ADDR OF RECORD @D@[@@ JP A4,$+2 . IF FIRST RECORD OF SEAV )@@G@@CTOR, @B@[@@ AA,U A3,1 . FUDGE UP BY ONE@E@[@@ AA,H2AW )@@G@@ A3,TXTADD . AND BIAS BY ABSOLUTE ADDR OF ELEM@E@[@@ TNZ,Q1 MCAWAX )@@G@@RD . WAS THE FILE OPEN FOR WRITE? @D@[@@ J AF0225 AY )@@G@@ . NO, SKIP WRITING OF PAGE @D@[@@ LA,U A0,RDL$ . YES, SET AZ )@@G@@PACKET FOR LOCK @ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA BA )@@G@@ A0,(28,BUFF) . @C@[@@ LA,U A1,1791 . LOACK GOES ON 1791 BB )@@G@@@ @[@@ DS A0,IOPKT+4 . @ @[@@ LA,U A0,IOPKT . BC )@@G@@@ @[@@ ER IOW$ . @C@[@@ TZ,S1 3,A0 . DIDBD )@@G@@ WE GET THE LOCK ?@F@[@@ J AF0820 . NO, GO GIVE HIM THE UBE )@@G@@NIVERSAL I/O ERROR@D@[@@ LA,U A1,W$ . SET UP PACKET FOR WRIBF )@@G@@TE @ @[@@ SA,S2 A1,IOPKT+3 . @ @[@@ LA A1,(224,ACPBG )@@G@@AGE) .@D@[@@ LA,H2 A2,ACPIND . GET ADDR OF CURRENT PAGE @C@[@@BH )@@G@@ DS A1,IOPKT+4 . POST IT IN THE PACKET@E@[@@ ER IOW$ BI )@@G@@ . WRITE CURRENT PAGE BACK TO DRUM @B@[@@ TZ,S1 3,A0 BJ )@@G@@ . DID IT TAKE? @B@[@@ J AF0819 . NO, GO TELL HIM@ @[@@BK )@@G@@ LA,U A1,UNL$ . @ @[@@ SA,S2 A1,IOPKT+3 . @ @[@@BL )@@G@@ LA A1,(28,BUFF) . @ @[@@ LA,U A2,1791 . @ @[@@BM )@@G@@ DS A1,IOPKT+4 . @B@[@@ ER IOW$ . UNLOCK 17BN )@@G@@91 @ @[@@ TZ,S1 3,A0 . @ @[@@ J AF0820 BO )@@G@@ . @E@[@@AF0225 LA A2,(224,ACPAGE) . A3 HAS ADDR OF NEXT PAGE BP )@@G@@@E@[@@ DS A2,IOPKT+4 . POST LOC AND LENGTH OF NEXT LOAD @ @[@@BQ )@@G@@ LA,U A1,R$ . @ @[@@ SA,S2 A1,IOPKT+3 . @ @[@@BR )@@G@@ LA,U A0,IOPKT . @C@[@@ ER IOW$ . LOAD IN NBS )@@G@@EXT PAGE @B@[@@ TZ,S1 3,A0 . DID WE GET IT? @B@[@@ BT )@@G@@ J AF0820 . NO, SAY SO @B@[@@ LXI,U A3,16 . 16 BU )@@G@@ENTRIES HERE@C@[@@ SA A3,ACPIND . POST NEW PAGE INDEX @C@[@@BV )@@G@@ LA A1,ACTEMP . GET RECORD # WE WANT @A@[@@ ANU,U A1,1 BW )@@G@@ . LESS 1, @C@[@@ JN A4,$+2 . OR IF EVEN REC #, BX )@@G@@@A@[@@ ANA,U A2,1 . LESS TWO,@C@[@@ SA A2,PAGEST BY )@@G@@ . GIVES FIRST REC#-1 @ @[@@AF0250 AA,U A2,1 . @ @[@@ BZ )@@G@@ ANU A1,A2 . @ @[@@ MSI,U A2,14 . @G@[@@ CA )@@G@@ SA,H2 A2,ACTIND . WORD RELATIVE INDEX OF THIS REC INTON PAGE @ @[@@CB )@@G@@ AA A2,(1,ACPAGE) . @ @[@@ LA A1,(1,ACTIVE) . @ @[@@CC )@@G@@ LR,U R1,14 . @F@[@@ BT A1,0,*A2 . LOAD DESICD )@@G@@RED REC INTO ACTIVE BUFFER @ @[@@ LA A1,ACTEMP . @B@[@@CE )@@G@@ LA,H1 A0,ACTIND . GET OLD REC NUM@C@[@@ SA,H1 A1,ACTIND CF )@@G@@ . SET NUM OF THIS ONE @A@[@@ J AF0850 . LEAVE @[@[@@CG )@@G@@. @ @[@@. GET CURRENT FILE POSITION @]@[@@ACFPOS*. @B@[@@ CH )@@G@@ LA,H1 A0,ACTIND . GET RECORD NUM @B@[@@ TNZ,Q2 MCAWRD . IS CI )@@G@@FILE OPEN? @B@[@@ LA,XU A0,-1 . NO, TELL HIM @ @[@@ CJ )@@G@@ J 1,X11 . @[@[@@. @H@[@@. CLOSE FILE. A1=0=> AS IS , CK )@@G@@ 1=> GARBAGE COLLECT , 2=> GARB COLL AND PACK @]@[@@ACFCLO*. @B@[@@CL )@@G@@ SX X11,AFLINK . WHAT ELSE? @ @[@@ SX X8,AFRSAV CM )@@G@@ . @ @[@@ SX X9,AFRSAV+1 . @ @[@@ SX X10,AFRSAV+CN )@@G@@2 . @ @[@@ TSTO A12,AFRSAV+3 . @ @[@@ SR R2,AFRSAV+6CO )@@G@@ . @ @[@@ SR R3,AFRSAV+7 . @C@[@@ TNZ,Q2 MCAWRD CP )@@G@@ . IS THE FILE OPEN? @C@[@@ J AF0810 . NO, GO TELL HIMCQ )@@G@@ SO @C@[@@ SZ,Q2 MCAWRD . MARK FILE AS CLOSED @E@[@@ CR )@@G@@ LA,U A0,0 . RETURN VALUE IF WRITE IS OFF @D@[@@ TNZ,QCS )@@G@@1 MCAWRD . HAS WRITE BEEN ALLOEED? @E@[@@ J AF0850 CT )@@G@@ . NO, EVRYTHING ALREADY CLOEED @C@[@@ SA A1,ACTEMP . SAVCU )@@G@@E PARAMETER WORD @B@[@@. WRITE OUT LAST PAGE BACK INTO THE FILE @C@[@@CV )@@G@@ LA,U A0,RDL$ . SET UP LOCK PACKET @ @[@@ SA,S2 A0,IOCW )@@G@@PKT+3 . @ @[@@ LA A0,(28,BUFF) . @ @[@@ LA,U A1,17CX )@@G@@91 . @ @[@@ DS A0,IOPKT+4 . @ @[@@ LA,U A0,IOCY )@@G@@PKT . @B@[@@ ER IOW$ . LOCK ON 1791 @B@[@@ CZ )@@G@@ TZ,S1 3,A0 . DID IT TAKE? @B@[@@ J AF0820 . NO,DA )@@G@@ GO SAY SO @E@[@@ TNZ,H1 ACTIND . IS THERE A RECIRD LEFT IN ADB )@@G@@CTIVE @E@[@@ J AF0300 . NO, NOTHING TO WRITE TO DRUM HEREDC )@@G@@@E@[@@ LA,H2 A0,ACTIND . YES, PUT IT BACK IN THE PAGE @ @[@@DD )@@G@@ AA A0,(1,ACPAGE) . @ @[@@ LA A2,(1,ACTIVE) . @ @[@@DE )@@G@@ LR,U R1,14 . @F@[@@ BT A0,0,*A2 . THEN WRITDF )@@G@@E THE PAGE BACK TO THE DRUM @E@[@@ LA,U A0,W$ . SET UP PADG )@@G@@CKET FOR NEXT WRITE @ @[@@ SA,S2 A0,IOPKT+3 . @A@[@@ DH )@@G@@ LA A0,(224,ACPAGE) . @D@[@@ LA,H2 A1,ACPIND . GET ADDR DI )@@G@@OF CURRENT PAGE @B@[@@ DS A0,IOPKT+4 . POST IN PACKET @ @[@@DJ )@@G@@ LA,U A0,IOPKT . @D@[@@ ER IOW$ . WRITE BACDK )@@G@@K CURRENT PAGE @E@[@@ TZ,S1 3,A0 . DID IT MAKE IT THERE DL )@@G@@SAFELY? @E@[@@ J AF0819 . NO, GO UNLOCK AND SAY II//ODM )@@G@@O ERR @B@[@@AF0300 LA A0,ACTEMP . GET PARAMETER @E@[@@ JZ DN )@@G@@ A0,AF0800 . IF CLOSE AS IS, WE'RE ALL DONE @ @[@@ TLE,U A0,3DO )@@G@@ . @ @[@@ TLE,U A0,1 . @E@[@@ ER ERR$ DP )@@G@@ . SOMEBODY DIDNT DO THEIR WORK @ @[@@ ANA,U A0,1 DQ )@@G@@ . @B@[@@ SA A0,ACTEMP . SET PACK FLAG @F@[@@. FOR GARBAGDR )@@G@@E COLLECTION, WE CREATE A NEW ACCOUNTING ELEMENT. @G@[@@. SINCE WE KDS )@@G@@NOW HOW MANY ENTRIES THERE ARE, WE COPY LOCKED OUT NUMBERS @F@[@@. TO TDT )@@G@@HE END OF THE AREA TO BE USED AND GOOD NUMBERS TO THE FRONT.@ @[@@. WHATDU )@@G@@ FOLLOWS DOES THIS: @G@[@@. THE OLD ELEMENT IDV )@@G@@S COPIED 8 SECTORS AT A TIME @G@[@@. INTO ACPAGE. THE 8 SECTOR AREA BUFDW )@@G@@F IS BROKEN INTO 4 SEC AREAS, THE @G@[@@. FIRST FOR GOOD NUMBERS AND TDX )@@G@@HE LAST FOR LOCKED NUMBERS. AS EACH ENTRY @G@[@@. IN ACPAGE IS CHECKED TDY )@@G@@O SEE IF IT IS LOCKED OR NOT, THE APPROPRIATE @G@[@@. ROUTINE IS CALLEDZ )@@G@@D TO MOVE THE ENTRY INTO THE PROPER SEGMENT OF BUFF. @G@[@@. IF AN ENTREA )@@G@@Y WILL CAUSE BUFFER OVFLO, THE BUFFER IS FLUSHED TO DRUM @G@[@@. AND EB )@@G@@THE ENTRY IS THEN THE FIRST ONE IN A CLEAN BUFFER. WHEN THE MAIN @F@[@@EC )@@G@@. LOOP TERMINATES, THERE SHOULD BE AN EVEN NUMBER OF ENTRIES LEFT@^@[@@ED )@@G@@. TO BE WRITTEN OUT. @F@[@@. IF THERE ARE AN OEE )@@G@@DD NUMBER OF ENTRIES TO @G@[@@. START WITH, THE FIRST FLUSH OF THE LOCKEEF )@@G@@D OUT BUFFER WILL TRANSFER @D@[@@. ONLY SEVEN ENTRIES WITH THE LAST 1EG )@@G@@4 WORDS GARBAGE . @G@[@@. IF PACKING IS INDICATED, THEN THE LOCKED NUMBEEH )@@G@@RS ARE NOT WRITTEN, @G@[@@. AND THE ENTRY COUNT IS CHANGED TO REFLECEI )@@G@@T THE NUMBER OF GOOD ENTRIES. @B@[@@. IMPORTANT REGISTER USAGE AS FOLLOWEJ )@@G@@S: @E@[@@. A4 - COUNTER FOR MAIN LOOP(NR OF ENTRIES IN OLD ELEM) EK )@@G@@@B@[@@. X8 - CURRENT POINTER INTO LOCKED BUFFER@B@[@@. R2 - COUNTER FOEL )@@G@@R LOCKED OUT ENTRIES @C@[@@. X9 - CURRENT POINTER INTO GOOD ENTRY BUEM )@@G@@FFER @A@[@@. R3 - COUNTER FOR GOOD ENTRYIES @F@[@@. X10 - CURRENT POEN )@@G@@INTER INTO MCPAGE(UPDATED BY MOVE ROUTINES) @C@[@@. X11 - COUNTS HOWEO )@@G@@ MANY GOOD ENTRIES ARE WRITTN @E@[@@. A12 - DRUM POINTER FOR GOOD ENTRIEEP )@@G@@S(WRITE THEN UPDATE) @F@[@@. A13 - DRUM POINTER FOR LOCKED OUT ENTRIEEQ )@@G@@S(DECREMENT THEN WRITE) @C@[@@. A5 - COUNTER FOR A SINGLE PASS AT ACPAGER )@@G@@E @[@[@@. @F@[@@. AT THE END, THE OLD ELEMENT IS ZEROED OUT SO TES )@@G@@HAT ANY SUBSEQUENT@B@[@@. UPDATE BY OTHER USERS FORCES A PFS$. @ @[@@ET )@@G@@ LA,U A0,PFPKT . @F@[@@ ER PFWL$ . FIND OUT EU )@@G@@WHERE THE NEW ELEMENT WI)@@[CK)@^C@OG@O@^C@)@@@@'^@@@@R[)@@I&;)@@@/C)@@HEV )@@G@@'^@@@E'^@@@@R80@@@'^@@@@/K@@@@AA@@@@)@D[K@K^C@0K@@@@@@R;K@@[/K@@@O%/K__"EW )@@G@@R#Y@@[RB*@@@AB)@[&AFY@@@AB"@@@AB&@@@RB6@@@AB@@@@)@N[L@^C@O[]@K@@@@C[#@@]EX )@@G@@9(#@@^9-#@@^S[#@@AH[#@@[C[@@@@R^0@[&'^@@@@R80@@[/K@@@QAC@@@@)@X[K@@K)^^CEY )@@G@@[K@@@@'^@@@@[[#@@[C[@@@@[[#@@A[[#@@B![#@@BG[@@@HC[#@@A[[#@@]G[@@@HAD@@@@EZ )@@G@@)@$[K[]@SK)BK[]@@@R80@@@'^@@@@/K@@@@/K@K@@'^@@@@O;)@@^RB?@@@R#K@@IA@"@@[FA )@@G@@[[I@@]AE@@@@)@1[D]@ #@ @^C]^[]@G@@@@%/)__"R#,@@[RB*@@@AB)@[&'^@@@@R;K428FB )@@G@@/C)@@6'^@@@E'^@@@@AF@@@@)@'[L@^@K)[K^[]@K@S[#@@AH[#@@[C[@@@@R^0@[&A#K@[$FC )@@G@@'^@@@@R80@@[/K@@@_R;K@@[/K@@@.AG@@@@)[^[K@K@K)^@@@@@@@C[0@@H[[<@@[C[)@@@FD )@@G@@[[<@@AH[)@@H/K@@@4?[)@@HC[<@@A9(#@@^9-#@@^AH@@@@)[I[KK)A[@K@K@@@@@%^Y@@@FE )@@G@@/K@@[U:[H@@[RBX@@@/K@@[P/@K@@4RFY@@@O;)@@^RB?@@@C[@@@#AI@@@@)[S[D@K^C]KKFF )@@G@@)EK)^K@@@@@@G[3@@#/K@@[+%[K@@@'^@@@@R#)@@HC[X@@]'^@@@@/K@@@4/K@@[OAJ@@@@FG )@@G@@)[-@8^[#@ @@)@@@MK)^@@@@R#K@@@/K@@@@@@@@@@@@@@@@/K@K@,'^@@@@/[)K@,CD<@@DFH )@@G@@[[3@@#AK@@@@)@][M@K)F^C#^@K)H@'^@@@@/K@@@@/K@K@@'^@@@@R[)@@I'^@@@@R#K@@MFI )@@G@@ @@@[^N@0@@HP#K@@LAL@@@@)@G[MK[@EKBCKB*@)@R;K@@@'^@@@E/K@@@@/K@@@E'^@@@@FJ )@@G@@R;)@@@/K@@[C?8K@@[/K@@[C!8KZ__AM@@@@)@Q[N@^@K[@^@@@@@@/K@@@@/K@K@TR#Y@@BFK )@@G@@/G)K@TR;K@@@'^@@@E/K@@@@/K@K@NR#Y@@A/G)K@NAN@@@@)@)[N@^@K)^K)K^@K@'^@@@EFL )@@G@@/K@@@@/K@K@ZW@K@@KH[@@@@C[@@@@9?Y@@^/G)K@ZR;K@@@'^@@@EAO@@@@)@%[MK[@^@K[FM )@@G@@@@@@@@/K@K@,R#Y@@#/G)K@,R;K@@@'^@@@E/K@@@@/K@K@*R#Y@@]/G)K@*R;K@@@AP@@@@FN )@@G@@)@4[MK[@^@^@@@@@@@/K@@@@/K@K@4W@K@@J9?Y@@^/@0K@4R#"@@]/G)K@4R;K@@@'^@@@EFO )@@G@@/K@@@@AQ@@@@)@"[N@^@K[@[@@@@@@/K@K@.W@K@@J9?Y@@^/@0K@.P#"@@#/@0K@.R#"@@]FP )@@G@@/G)K@.R;K@@@'^@@@EAR@@@@)[C@UK)CK)L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FQ )@@G@@@@@@@@@@@@@@'=@@@@'^@@@@R;K500AS@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@M@@%@@G@[U@@@FS )@@G@@@@@@[*@@@@[FGPX$INTOBLK GPX$GETARG GPX$NEWCELL GPXB2$ GPXCLOCK$ FT )@@G@@GPX$GET3 GPXT3$ GPX$NEWGRUP GPX$EXERROR GPX$POPGRUP GPX$RET3 FU )@@G@@GPX$ALLT GPX$TABLE GPX$K GPXQ$ GPX$ENTITY GPXCRESET$ FV )@@G@@ERR$ GPX$QUEUE @@@@@@@@@@@@GPX$DEPART @@@@@@@@@@@,GPX$QTABLE FW )@@G@@@@[@@@@@@@@@GPX$ALLQ @@[@@@@@@@@EGPX$Q @@[@@@@@@@@NGPX$QM FX )@@G@@@@[@@@@@@@@TGPX$QA @@[@@@@@@@@ZGPX$QC @@[@@@@@@@@*GPX$QZ FY )@@G@@@@[@@@@@@@@,GPX$QT @@[@@@@@@@@4GPX$QX @@[@@@@@@@@.GPX$QSIZE FZ )@@G@@@@[@@@@@@@[C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB )@@G@@)@@[EK)@K)[@K)]K^@@@@@@@/C)@@L'^@@#1'^@@@@R80@@@N I@@[N0"@@[RB*@@@'^@@@@GC )@@G@@/K@@@@AA@@@@)@D[M^C@0@^C@K@@@@RB*@@@R[)@@I^@"@@CAFY@@@AB"@@@AB&@@@RB6@@@GD )@@G@@'^@@@@R[)@@I&_)@@@AB@@@@)@N[E^@K[]@D]@L]@O@@@@@@RB?@@@'^@@@@'^@@@@R80@@]GE )@@G@@/K@@@=*@A@@D/K@@@=:/K__"R#Y@@]AC@@@@)@W[M^@K@K^C[)@@@@)8K@@]R#K@@@/K@K@@GF )@@G@@A#Q@@DR;K@@['^@@[HR;K@@[/K@@@)R;K@@@AZY@@[AD@@@@)@&[F]@T]@W(@K-@M-@ECK])GG )@@G@@%8K@@_R#K@[#AF/@@@+8)_7_RF?@@@'^@@@@R;)@@@'^@@@@A#)@@@AE@@@@)@\[N@[#@@[#GH )@@G@@@[@@@@R80@@]/K@@@Z')[@@@P8K@@SR@K@[^R;&@@[/K@@@]%@)@[#R#&@@C/K@@@8AF@@@@GI )@@G@@)@9[F]@D]@*[#@@^@@@@@@@@/^K@[ RFQ@@[R;&@@[/K@@@]:8)@@_R#&@@CC[K@@HA#W@@@GJ )@@G@@'^@@@@AG@@@@)[][F]@!@K)GK)EK[@K)HK@@/K@@@Z'^@@@@/K@@[^%^Q@@[/K@@[F?[H@@@GK )@@G@@RZX@@@/K@@@Z'^@@@@AH@@@@)[F@N]@9@@@@)@@@(]@5]@?K)JK)K@@@@@@@'=@@@@'^@@@@GL )@@G@@/S@@@@'^@@@@'^@@@@/K@@@Z'^@@@@AI@@@@)[H[MK)L@^C^L@@@@@C[A@@]/@KK[H[[A@@^GM )@@G@@C[@@@@9(A@@ 9-A@@ S[A@@]H[A@@^C[@@@@/K@@@@AJ@@@@)[R[M@@K[]@@@@@@@@'^@@@@GN )@@G@@/K@@@@/K@K[H[[A@@BG9@@@[C[A@@B[[A@@#![A@@#[[A@@]G9@@@[AK@@@@)[-[MK)]K[@^GO )@@G@@@K@@@@R80@@[/K@@]S(@A@@['^@@[HR;K@@@/G)@]SR[)@@I'^@@#1'^@@@@R80@@@AL@@@@GP )@@G@@)[:[F]@D]@KK)[[@^C@)@@@@'^@@@@R80@@]/K@@[5:8K@@_R3Y@@]RB*@@@N@0@@H'^@@@@GQ )@@G@@'^@@@@AM@@@@)[4[N@^@K0@K)[@K@@/K@@]@%/K__"N[)@@HR#Y@@#RB*@@@A[0@@DN[@@@HGR )@@G@@/@K@]SR#Q@@]/K@@[6AN@@@@)["[MK@K[@^@@@@@@@R80@@#/K@@]F%8K@@[/K@@]GR90@@[GS )@@G@@/K@@] %8K@@_R3Y@@#/K@@]G @@@@BAO@@@@)]C[F]@CK@K0@K0@^G@@@@@@R[0@@DR#@@[ GT )@@G@@')B@@ @@@@EN[K@@GR90@@]/K@@]GR90@@#'^@@@@AP@@@@)]L[EK0@K^C[-]@T@K)[@@@@GU )@@G@@1@@@@ARB*@@@/K@K[ZA#0@@@)8)@@[R#)@@@/K@@]S(@@@@E&.)__"AQ@@@@)]U[E[@^C@=CGV )@@G@@[^C[K@@@@@@@AZY@@[RB?@@@'^@@@@'^@@@@R80@@ /K@K[Z:/K__"R#Y@@ @A@@DAR@@@@GW )@@G@@)]<@F@@@@@@@)@ @-#@ #@ #@ #@^@)]=@E@@@@@@@/K@@@@'^@@];'^@@#='^@@]='^@@]=GX )@@G@@/K@K[ZAS@@@@)]>[N#@@^@@^G@@@@@')B@@FN[@@@GP;@@@[R#@@[^A#&@@]R;)@@@/C)@]%GY )@@G@@P#)@[^R#&@@]A[)@@EAT@@@@)]\[F@^G@[]@>]@OK)M@@@@@(@A@@['^@@@@^W2@@[R^?@@@GZ )@@G@@'^@@@@R;&@@[')B@@HR#@@[C/K@@]1AU@@@@)]8@V@K^@@@@)@F@)^C#^C#@)];@E@/K@@@@HA )@@G@@NYG@@@NUG@@@RBA@@[RFA@@[/K@K]=8L@@]0/K@K]=AV@@@@)]/[M^@K)G@K0@K@@@/@K@#PHB )@@G@@')B@@JN.@__":C&@@[R#)@[CNUG@@@R#@@[C/K@@#@RFA@@[P90@@]AW@@@@)#A[EK)DK)MKHC )@@G@@) @^G@@@@@@@R#)@@EA#&@@]P;)@@[R#&@@]^W2@@[R^?@@@'^@@@@'^@@@@R;&@@[AX@@@@HD )@@G@@)#J[EK0@^@K[@K@@@@@@@@@@/K@K];/K@@]_%^A@@[/K@K];(@A@@[/K@K];:@)@[^A#)@@EHE )@@G@@O;)@@[AY@@@@)@J@L#@ #@^@)#S@2^C@=@@@@@@@@@R#K@[A/K@@@@/K@K#S'^@@@@R80@@#HF )@@G@@/K@@@@'^@@#S'^@@#WAZ@@@@)#Y[N][G@K@K)[@@@@R#"@@^RB*@@@R#K@[A/K@@@@/K@K#WHG )@@G@@R;K@@@%@)@[BR;K@@[R#)@@H'^@@@@BA@@@@)#*[MK^C^4@K)]^[@@/K@@@@/K@K#='^@@];HH )@@G@@N[0@@H'^@@@@R80@@^/K@@#,'^@@@@/K@@#?%/0__"BB@@@@)#2[F][KK[@EKE*KFC@@@@@@HI )@@G@@/K@@@@/K@K#1'^@@@@R;)@@@/K@@^Y?8K@@[/K@@^Y!8KZ__'^@@@@BC@@@@)#;[N@^@K)LKHJ )@@G@@)R^@K@'^@@#1/K@@@@/K@K#'W@K@@KH[@@@@C[@@@@9?Y@@ /G)K#'R;K@@@'^@@#1BD@@@@HK )@@G@@)^ [MK[@^@K[@@@@@@/K@K^DR#Y@@#/G)K^DR;K@@@'^@@#1/K@@@@/K@K^#R#Y@@]/G)K^#HL )@@G@@R;K@@@BE@@@@)^J[MK[@^@K[@@@@@@/G)K^PR;K@@@'^@@#1/K@@@@/K@K^JR#Y@@B/G)K^JHM )@@G@@R;K@@@'^@@#1/K@@@@BF@@@@)^T[]K@K[]@.][@@@@@@@@@@@@@@@@'=@@@@'^@@@@R;K497HN )@@G@@/K@K^PW@K@@J9?Y@@ /@0K^PR#"@@BBG@@@@@@@@@@C@0@^C@K@@@@RB*@@@R[)@@I^@"@@CHO )@@G@@AFY@@@AB"@@@AB&@@@RB6@@@'^@@@@R[)@@I&_)@@@AB@@@@@@^@@]@@A@@S@@6@@D@[U@@@HP )@@G@@@@@@@L@@@@^-GPX$INTOBLK GPXB2$ GPX$GETARG GPX$NEWCELL GPX$ALLB HQ )@@G@@GPXT3$ GPXSCAN$ GPX$NEXTRAN GPXCECHAIN$ GPX$POP GPXT2$ HR )@@G@@GPX$NEWTOP GPXT1$ GPX$NEWBOT GPX$NEWPRE GPX$EXERROR ERR$ HS )@@G@@GPXCLOCK$ GPX$MERGE GPX$P GPX$K GPXCH$ GPX$ENTITY HT )@@G@@GPXCRESET$ GPX$LINK @@[@@@@@@@@@GPX$UNLINK @@[@@@@@@@[ZGPX$ALLCH HU )@@G@@@@[@@@@@@@#1GPX$CA @@[@@@@@@@#'GPX$CH @@[@@@@@@@^#GPX$CM HV )@@G@@@@[@@@@@@@^DGPX$CC @@[@@@@@@@^JGPX$CT @@[@@@@@@@^PGPX$CHSIZE HW )@@G@@@@[@@@@@@@^Y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HY )@@G@@)@@[C^C@^C@L@K^[]@C@@@@@'^@@@@/@K@@E')]@@>A@)@@3P8)@@DR0*@@@'^@@@@R80@@@HZ )@@G@@/K@@@@AA@@@@)@D[D@K)[^[@K)]^C@^C@0@@'^@@@@'^@@@@R80@@['^@@@@/K@@@P:@)@[KIA )@@G@@R#,@@[RB*@@@/K@K@@AB@@@@)@M[D]@KK^C[[@K^C[^@@@@@')]@@4RB?@@@R@)@@3/K@K@@IB )@@G@@=8)@^@RF?@@@/K@K@@AZY@@[RB?@@@AC@@@@)@V[CK^C[[]@L]@P]@SK)A@@A#0@@@)8)@@]IC )@@G@@R#)@@@'^@@@@AF/@@@)8))C@RF?@@@')]@[][PI@@]AD@@@@)@=[[@K)BK)CK)DK)EK)EK)FID )@@G@@K)G@@@'^@@@@'^@@@@'^@@@@'^@@@@'^@@@@'^@@@@'^@@@@/K@K@@AE@@@@)@?[[]@5]@9]IE )@@G@@@.][[][ ][D][G@@@@@@@@@@'^@@@@'^@@@@'^@@@@'^@@@@'^@@@@'^@@@@'^@@@@AF@@@@IF )@@G@@)@4[S@@@K@@@/K@K@@CP[@@CCX[@@CCX[@@DCT[@@CCT[@@]/S@@@@/S@@@@CP[@@]CX[@@]IG )@@G@@CP[@@[AG@@@@)@_[L@K)OK)O@@@@@@AV[@@CAV[@@]/S@@@@/S@@@@AR[@@]AZ[@@]AR[@@[IH )@@G@@CP[@@@CT[@@@/K@K@@AH@@@@)[D[@@^C ^C @@@@@@@@@@@@@@@@@@_____"AR[@@@AV[@@@II )@@G@@/S@@@@/S@@@@AR[@@CAZ[@@CAZ[@@DAI@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@[@@ @@P@@\@@[@@3@@@IK )@@G@@@@@@[LGPX$GETARG GPXB2$ GPX$INTOBLK GPX$ALLB GPXT3$ GPX$NEIL )@@G@@XTRAN GPXSCAN$ GPX$FU GPX$FNU GPX$FNI GPX$ERROR GPX$FIIM )@@G@@ GPX$SNF GPX$SNE GPX$SF GPX$SE GPX$NM GPX$MAIN )@@G@@TCHG GPX$LS GPX$LR GPXLS$ GPX$GATE @@@@@@@@@@@@@@@@@@IO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[K^@^C[1]@-@@@@R80@@][^K@[''^@@@@R80@@['^@@@@IP )@@G@@C;0@@@/K@@@@/K@@@ C;0@@[/K@@@@AA@@@@)@E[D]@-@K^@K)CK^C]K@@@@C0N@@^R@8@@@IQ )@@G@@[@K@[;'^@@@@R80@@#[@K@[8/K@@[.?^K@[''^@@@@AB@@@@)@N[L@K)D^@K[@K^@@ @@@[9IR )@@G@@[@K@[//K@@]A?8K@@#/K@@@4*@@@@V/K@@]A!8K@@DC0S@@@[0K@['AC@@@@)@X[D@K^C]=[IS )@@G@@@K^[@@@@@@@@G8K@@[C@K@[9/K@@@$')J@[\C@0@[/C@)@[;')I@@@C0)@['C@K@['AD@@@@IT )@@G@@)@&[L@K[@^[@K[]@)@'^@@@@R80@@@/K@@@Y[^K@['/K@@@,?@)@@HC@)@[8G8K@@[C^K@['IU )@@G@@[@K@[9AE@@@@)@0[L]@!@^@K^@K^@@C^K@['/K@@@"!8K@@#[@K@[//K@@]A?8K@@[/K@K@#IV )@@G@@[@!@@@C@)@[9'^@@@@AF@@@@)@'[D@K^C]=[@K^C]=[@@@@@C@0@[/C@)@[;')I@@@C0)@['IW )@@G@@C@K@['[@K@[;')I@@@C0)@['[@K@[9AG@@@@)[#[KK[@K^[@K[@@@@C@)@[8G8K@@[C^K@['IX )@@G@@/K@@[U/K@@[E')J@[\/K@@[L:80@@]/K@@[O:80@@[AH@@@@)[H[KK^[@^[@^[@@@@[@K@[;IY )@@G@@/K@@[E!@K@@I/K@@[Q/K@@[E!@)@@H/K@@@_[^K@['/K@@[+?@)@@HAI@@@@)[R[D@K^[@K[IZ )@@G@@]@-]@!@@@@@@C@)@[9'^@@@@'^@@@@R80@@@[@K@[9C^K@['/K@@[E[@K@[9C^K@['AJ@@@@JA )@@G@@)[)[KK^@K^[]@=K@@@R80@@ /K@@[W0@#@@ R@8@@@ @@@[9/K@@[W?8K@@#C@K@[//K@K@@JB )@@G@@[@!@@@AK@@@@)[%[[]@-]@1]@4K^C#=C#=C#)@@@@@/K@@@@/K@@@@/K@@@@/K@K@@[WY@@[JC )@@G@@C^?@@@'^@@@@'^@@@@AL@@@@)[2@0@@@@@@@)[.@L@K)[@@@@@@@@@'=@@@@R#@@]K!@K@@IJD )@@G@@?@)@@H!@)@@H?@K@@I%@K@@I:@K@@IAM@@@@)[_[L]@8@[@K)[K)I@/K@@@@'=@@@@R#@@]LJE )@@G@@LOCK OUNT B FOR CGUMENT IN AR ERROR/K@@@@AN@@@@)]D[C@@E[K@@@@@@@@@@@@@@JF )@@G@@@[B@]D@[A@]@CK NT BLOIN COUFIELD NAL X ELATIO NON-RAO@@@@@@@@@@@@@@@@JG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JH )@@G@@@@^@@[@@ @@J@@<@@]@@:@@@@@@@]MREAD$ PRINT$ PUNCH$ PRTCN$JI )@@G@@ PCHCN$ PRTCA$ PCHCA$ GPX$INTOBLK GPX$GETARG GPXB2$JJ )@@G@@ GPXSNA$ GPX$PA GPX$ALLB GPXT3$ GPX$EXERROR GPX$SEJK )@@G@@LECT @@@@@@@@@@@@GPX$COUNT @@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[KK^C]4C#[@[@@@C0(@@@JM )@@G@@/K@@C::/K__"C@T@@@[@K@C(C4T@@@R]S@@@'^@@@@[@@@C%/K@@@@AA@@@@)@E[D]@5@K[@JN )@@G@@^C#O@@@@@@@@C@T@@][@K@C=')I@@@C0(@@[/GK@C:C@T@@[[@)@C<'^@@@8')I@@@AB@@@@JO )@@G@@)@N[D@^C#O@K[]@5@@@@@@@@[@K@C&')I@@@C0(@@#/GK@C:C@T@@#[@K@C>')I@@@C0(@@]JP )@@G@@/GK@C:AC@@@@)@W[L@^[@^[@K@@@@@T@K@@IH8)@@[C@)@C=/K@@C!?@)@C=C@\@@@/K@@C!JQ )@@G@@?@K@C>C@Z@@[C@0@CAE@@@@)@0[KK[@^@K@@@@@@@?8K@@[/K@@@@/K@K@@JS )@@G@@[@Z@@[H@K@C&C@Z@@[/K@K@@[@Z@@[G@K@C&C@Z@@[AF@@@@)@'[D@K)I^[]@9@K[@@@@@@@JT )@@G@@[@@@C%/K@@@@/K@K@8/@)@C:C@!@@@/K@@C:?@)@@HCC)@@@/K@@C:AG@@@@)[#[K^C#4[@^JU )@@G@@@K^C#K')I@@@[@0@C$C0\@@]/GK@C!C@Z@@][@)@C+'^@@@8'^@@@@C@X@@@C@0@@HAH@@@@JV )@@G@@)[H[L@K[@^C#O@^@@@/K@@C!?@)@@HC@\@@@C@0@C+')I@@@C0\@@[/GK@C!C@Z@@[[@K@C*JW )@@G@@C@0@C$AI@@@@)[R[KK^@^@^@@@@@@@/K@@@@/K@K[[C@X@@[G@K@@JG@K@C*T@K@@IH8K@@[JX )@@G@@/K@@C!?@)@C*C@\@@[AJ@@@@)[-[D@E]^]]@)C@) @@@@@@@C8@@^6[0@@^9C8@@@C[@K@^;JY )@@G@@[@K@ F/^)@]Q'=@@@@C8@@^6'^@@]=AK@@@@)[%[D][ @K^[@E]^]M@)@@@@C@@@C//K@@]QJZ )@@G@@/,0@@@C8@@^6[@@@ @C@@@C;[@@@B5C@@@C'/,0@@@AL@@@@)[3[D@E]^@@-@GCK[CK^)@@@KA )@@G@@!8@@[A/,0@@@/,0@@@C/@@@,/,0@@@C@ )@@/,0@@@C/@@CE[@@@ @AM@@@@)[/[D@K^@*CKKB )@@G@@D*]@)C@@@@@@[@@@ EH@@@ FC^@@^;/K@@]Q/,0@@@C8@@^6'^@@]W8K)@[6'^@@]WAN@@@@KC )@@G@@)] [D@K])C]^]+@)C@@@@@@@C@@@C"/K@K[)/^)@]Q'=@@@@C^K@^;D@@@@GC8@@ [[@@@ DKD )@@G@@C@@@C.AO@@@@)]I[L][P][S@[@K@@@/K@@]IC@@@C_OCK ORE BLR RESTTORE O IN MSKE )@@G@@ ERROR'=@@@@'=@@@@AP@@@@)]S[K@^C]])-@=) @@C/@@CE/K@@]Q/,0@@@C8@@^6/,0@@@KF )@@G@@/K@@@@RE N MSTORROR IFILE EAQ@@@@)]+[D]@[@^C 0K^C#=@@@@@@/@)@]HC@!@@@KG )@@G@@/K@@]H?8K@@[CGW@@@C@G@@@/K@@@@/K@K]W/,0@@@AR@@@@)]:[S@@^[@E@C/@@C^[@K@C-KH )@@G@@/GK@]HCGW@@[&9K@@[R[K@@IG8)@@]N@)@@JH80@@[T@"@@[C@"@@@AS@@@@)]6[D]@[@K)AKI )@@G@@K)CK[@@@@@@@C')@@9C'K@@\'^@@]=/K@@@@/K@K]=/,0@@@/,0@@@C@@@C-/,0@@@AT@@@@KJ )@@G@@)]_[C*CKGC[KK)@K[][=@@@@C/@@@[/,0@@@;@@@@MC@@@ G/,0@@@C/@@CK/^)@^D'=@@@@KK )@@G@@C8@@ [AU@@@@)#C[D]@L@^CA=C]^[][P@K@@[@@@^;C@@@ F'=@@@@C@@@D@/,0@@@/,0@@@KL )@@G@@;@@@@MC@@@ G/,0@@@AV@@@@)#L[CK])-@6)]@O^CB@@@@@@/,0@@@C8@@^6[^@@^.C8@@@IKM )@@G@@/K@@]H/,0@@@C8@@^6[0@@^9C8@@@KAW@@@@)#U[D@K^[@K^[@K])@@@@@@@R')@B5[@W@B5KN )@@G@@C@K@D[/G@@#SCW@@ @/K@@#S*S@@ @/K@@^W/K@@^&AX@@@@)#<[L@K[@^@[@@@@@@/K@@#&KO )@@G@@G@0@@HT80@@E+8@@@J/K@@#!,]K@@G')D)#"C80@@@ @@@C-R]K@D]AY@@@@)#![KK^[@K[@KP )@@G@@^[@@@@/K@@#S/K@@^!%8@@@ /K@@#7:8@@@,/K@@#&[@@@C-/^0@^!/K@@#2%8@@@-AZ@@@@KQ )@@G@@)#7[L@[@E]^#%@@@@@C?E@@@C0E@@@C4E@@@/K@K];/,0@@@C8@@^68K)@#=[@5)@@D@0@@JKR )@@G@@*@@@C-BA@@@@)^[[K^@@K[@@@@@@@@/K@@^N:8@@@[/K@@^^O')@@[Q'K@@@C)E@@@/K@@@@KS )@@G@@'^@@^^C=E@@@C*E@@@BB@@@@)^F[L@K@@^[@@@@@@@/K@@]IC@@@D^ ERRORD FILEUNTEREKT )@@G@@K ENCOE BLOCRESTOR/K@@]IC@@@D#BC@@@@)^P[S@@K^@@@COUNTEEOF EN/K@@]IC@@@D KU )@@G@@E IN FILK NOT E BLOCRESTORT FOR ELEMENBD@@@@)^)[S@[@K@@@ RESTOROR INKV )@@G@@I/O ER/K@@]IC@@@DACK RE BLO RESTONT FOR ELEMERED INBE@@@@)^:[S^[@@@@@KW )@@G@@OCK ORE BLY RESTERED BNCOUNTRROR EDATA E/K@@]IC@@@DBCK RE BLOBF@@@@KX )@@G@@)^6[K@@0M) @@@@@@@@@[@@@@@[@B5@@#@@@@ H@A-@@@@@@@[O@@@@@@@@@@@@@@@IBRARYKY )@@G@@GPSS-LBG@@@@) @[S@@@@@@@@@@@@@@ @@@[@@@@@@@@@@@@@@[@@@@@@@@@ATRIX GPSS-MKZ )@@G@@IBRARYGPSS-L@@@@@@BH@@@@) F@K@)C^[@*@@O@@@@@@@@@@&I@B5@@@@@@@@@@@@@@@@@@LA )@@G@@[[@@@@@@@@@@@&]@ B@@@@@@@@@@@@BI@@@@)CG[S@E@@@@@MATRIX@@@@@@@@@@@@@@@@@@LB )@@G@@[[@@@@@@@@@@@&^@CX@@@@@@@@@@@@@@@@@@[[@@@@BJ@@@@)CR@0@@@@@@@)C:@T@K^@@@@LC )@@G@@C@@@DD/K@@C,C@@@DCED T FORMELEMEN FROM ALIZED INITIBK@@@@)C,[L][P@K)YLD )@@G@@@@@@@@D MATRINVALIATRIX INED M UNDEFNCE TOREFERE/K@@@CC@@@C%'=@@@@BL@@@@LE )@@G@@)C8[S@@* @*@@@[@@@ @]F@CQ@'^@]S@'A@]K@ @@@[@I@@@@*[@@@@*SDFF*SCRIPTLF )@@G@@IX SUBBM@@@@)D#@8* @* @* @*@@@@@@@@@@@@@@@@@@@@@@'^@C6@' @C1@'B@^\@' @^*LG )@@G@@@'C@^Y@'B@^P@'A@^HBN@@@@@@^@@[@@ @@Z@[#@@ @[R@@@@@@@DEEDIT$ EDITR$LH )@@G@@ ECHAR$ ECOL$ ESKIP$ EOCTV$ EDECV$ EFD1$ LI )@@G@@ EDITX$ ECOLN$ EMSGR$ GPX$INTOBLK GPXB2$ GPXSNALJ )@@G@@$ GPXMAT$ GPX$NUM PFWL$ SDFOO SDFO SDFOC LK )@@G@@ PFI$ PRINT$ ERR$ GPXCTL2$ PFS$ EDAY1$LL )@@G@@ ETIME$ SDFIO SDFI SDFIC GPX$EXERROR GPX$MSLM )@@G@@AVEVAL@@@@@@@@@@@@GPX$MH @@@@@@@@@@[[GPX$MX @@@@@@@@@@[[GPX$MSLN )@@G@@TORE @@@@@@@@@@[)GPX$RESTORE @@@@@@@@@@];@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@I@@@@PF LQ )@@G@@ FORM 12,6,18 . GPG001LR )@@G@@00 @I@@@@ AXR$ . LS )@@G@@ GPG00200 @I@@@@GPX$JOIN* J $-$ . LT )@@G@@ GPG00300 @I@@@@ SLJ GPX$ILU )@@G@@NTOBLK . LOG IN GPG00400 @I@@@@ LV )@@G@@ LX,H2 X3,GPXB2$,X8 . TEST IF ARG 2 IS THERE GPG005LW )@@G@@00 @I@@@@ LA A1,1,X3 . IF NOT IT MEANS TRALX )@@G@@NS GROUP GPG00600 @I@@@@ JN A1,$+3 . NLY )@@G@@EG IF MISSING GPG00700 @I@@@@ LX,U X3,1 LZ )@@G@@ . GET THE ARG IF THERE GPG00800 @I@@@@ MA )@@G@@ SLJ GPX$GETARG . GPG009MB )@@G@@00 @I@@@@ SA A1,SAVARG+1 . SAVE FOR LATER USEMC )@@G@@ GPG01000 @I@@@@ LX,U X3,0 . GMD )@@G@@ET GROUP NUMBER ARG 1 GPG01100 @I@@@@ SLJ GPX$GME )@@G@@ETARG . GPG01200 @I@@@@ MF )@@G@@ SA A1,SAVARG . SAVE IT TOO GPG013MG )@@G@@00 @I@@@@ SLJ GPX$ALLG . IS THIS GROUP IN EXMH )@@G@@ISTANCE GPG01400 @I@@@@ JP A2,GOTGRP . YMI )@@G@@ES IT EXISTS HERE GPG01500 @I@@@@ LX X6,A2MJ )@@G@@ . NO CREATE A NEW GROUP CELL GPG01600 @I@@@@ MK )@@G@@ LXI,U X6,0 . GPG017ML )@@G@@00 @I@@@@ SLJ GPX$GET3 . GET A CELL MM )@@G@@ GPG01800 @I@@@@ LA,H2 A3,0,X6 . LMN )@@G@@INK IT TO OTHER GROUP CELLS GPG01900 @I@@@@ SA,H2 A2,0,MO )@@G@@X6 . GPG02000 @I@@@@ MP )@@G@@ SA,H2 A3,0,A2 . GPG021MQ )@@G@@00 @I@@@@ LA A1,SAVARG . SET NEW GROUP IDENTMR )@@G@@ GPG02200 @I@@@@ SA,H1 A1,0,A2 . MS )@@G@@ GPG02300 @I@@@@ LA A1,A2MT )@@G@@ . SET INITIAL LINKS GPG02400 @I@@@@ MU )@@G@@ AA,U A1,1 . GPG025MV )@@G@@00 @I@@@@ SA,H1 A1,1,A2 . MW )@@G@@ GPG02600 @I@@@@ SA,H2 A1,1,A2 . NMX )@@G@@OTE DOUBLY LINKED GPG02700 @I@@@@ LA,U A1,1 MY )@@G@@ . MARK GROUP TYPE GPG02800 @I@@@@ MZ )@@G@@ TP SAVARG+1 . GPG029NA )@@G@@00 @I@@@@ SA,H1 A1,2,A2 . NB )@@G@@ GPG03000 @I@@@@GOTGRP LA A1,SAVARG+1 . CNC )@@G@@HECK TYPE OF OLD GROUP GPG03100 @I@@@@ TZ,H1 2,A2 ND )@@G@@ . IS IT TRANS TYPE GPG03200 @I@@@@ NE )@@G@@ J $+3 . YES GPG033NF )@@G@@00 @I@@@@ JN A1,GPX$GSIZE . NO SHOULD IT BE NG )@@G@@ GPG03400 @I@@@@ J $+4 . NNH )@@G@@O ALL OK GPG03500 @I@@@@ JP A1,GPNI )@@G@@X$GSIZE . GPG03600 @I@@@@ NJ )@@G@@ LA A1,A0 . TRANS NUMBER IS ARG GPG037NK )@@G@@00 @I@@@@ SA A0,SAVARG+1 . NL )@@G@@ GPG03800 @I@@@@ LA A3,A2 . NM )@@G@@ GPG03900 @I@@@@ AA,U A3,1 NN )@@G@@ . ADDR OF LINKS TO GROUP MEMBERS GPG04000 @I@@@@ NO )@@G@@ SA A3,SAVARG+2 GPG041NP )@@G@@00 @I@@@@ TNE,H2 A2,1,A2 . IS GROUP EMPTY NQ )@@G@@ GPG04200 @I@@@@ J $+4 . YNR )@@G@@ES SO DONT LOOK FOR VALUE GPG04300 @I@@@@ LA A2,1,NS )@@G@@A2 . GET LINKS TO SUBLIST GPG04400 @I@@@@ NT )@@G@@ SLJ SUBSCAN . IS ARG2 ALREADY IN GROUP GPG045NU )@@G@@00 @I@@@@ JP A2,*GPX$JOIN . YES SO FORGET IT NV )@@G@@ GPG04600 @I@@@@ SLJ GPX$GET3 . GET NW )@@G@@A NEW CELL GPG04700 @I@@@@ LA A3,SANX )@@G@@VARG+2 . LINK IT INTO LIST GPG04800 @I@@@@ NY )@@G@@ SA,H2 A3,0,A2 . NEW CELL ADDR IN A2 GPG049NZ )@@G@@00 @I@@@@ LA,H1 A1,0,A3 . WHAT IS PREDECESSOROA )@@G@@ GPG05000 @I@@@@ SA,H1 A1,0,A2 . OB )@@G@@ GPG05100 @I@@@@ SA,H1 A2,0,OC )@@G@@A3 . BACK LINK IN SUCESSOR GPG05200 @I@@@@ OD )@@G@@ SA,H2 A2,0,A1 . FORWARD IN PREDECESSOR GPG053OE )@@G@@00 @I@@@@ LA A1,SAVARG+1 . INSERT VALUE IN CELOF )@@G@@L GPG05400 @I@@@@ SA A1,1,A2 . OG )@@G@@ GPG05500 @I@@@@ LA,H2 A2,1,OH )@@G@@A3 . OLD COUNT GPG05600 @I@@@@ OI )@@G@@ AA,U A2,1 . GPG057OJ )@@G@@00 @I@@@@ SA,H2 A2,1,A3 . NEW COUNT OK )@@G@@ GPG05800 @I@@@@ J *GPX$JOIN . OL )@@G@@ GPG05900 @I@@@@/. OM )@@G@@ GPG06000 @I@@@@GPX$SCON )@@G@@AN* J $-$ . GPG061OO )@@G@@00 @I@@@@ SA A0,SAVARG+9 . SAVE TRANS ID TO ROP )@@G@@ESTORE GPG06200 @I@@@@ SLJ GPX$INTOBLK . OQ )@@G@@ GPG06300 @I@@@@ LX X3,GPOR )@@G@@XB2$,X8 . GET ALT EXIT IF ANY GPG06400 @I@@@@ OS )@@G@@ LA A1,5,X3 . GPG065OT )@@G@@00 @I@@@@ JN A1,$+4 . IF NONE STORE NEG VOU )@@G@@ALUE GPG06600 @I@@@@ LX,U X3,5 . OV )@@G@@GET ALT EXIT GPG06700 @I@@@@ SLJ GPX$OW )@@G@@GETARG . GPG06800 @I@@@@ OX )@@G@@ SLJ GPX$ALLB . IS IT VALID GPG069OY )@@G@@00 @I@@@@ SA A1,SAVARG+5 . SAVE FOR EXITING OZ )@@G@@ GPG07000 @I@@@@ LX,U X3,0 . PA )@@G@@GET GROUP NUMBER GPG07100 @I@@@@ SLJ GPX$PB )@@G@@GETARG . GPG07200 @I@@@@ PC )@@G@@ SLJ GPX$ALLG . GPG073PD )@@G@@00 @I@@@@ JN A2,SCALT . IF NO GROUP USE ALPE )@@G@@T EXIT GPG07400 @I@@@@ TNZ,H2 2,A2 . PF )@@G@@IS GROUP EMPTY GPG07500 @I@@@@ J SCALPG )@@G@@T . IF SO USE ALT EXIT GPG07600 @I@@@@ PH )@@G@@ TNZ,H1 2,A2 . IS IT RIGHT TYPE GPG077PI )@@G@@00 @I@@@@ J GPX$GSIZE . PJ )@@G@@ GPG07800 @I@@@@ SA A2,SAVARG . PK )@@G@@OK SAVE GROUP HEAD LOCATION GPG07900 @I@@@@ LX X2,GPPL )@@G@@XB2$,X8 . GET VALUE TO LOOK FOR GPG08000 @I@@@@ PM )@@G@@ LA A1,1,X2 . GPG081PN )@@G@@00 @I@@@@ SA A1,SAVARG+1 . PO )@@G@@ GPG08200 @I@@@@ TP 2,X2 . PP )@@G@@IS THERE A VALUE TO CHECK GPG08300 @I@@@@ J SCALPQ )@@G@@T . IF NOT THEN ALT EXIT GPG08400 @I@@@@ PR )@@G@@ LX,U X3,2 . GPG085PS )@@G@@00 @I@@@@ SLJ GPX$GETARG . PT )@@G@@ GPG08600 @I@@@@ SA A1,SAVARG+2 . PU )@@G@@SAVE WANTED VALUE GPG08700 @I@@@@ LX X2,SAPV )@@G@@VARG . GPG08800 @I@@@@ PW )@@G@@ LX,H2 A2,1,X2 . GET LINK TO FIRST CELL GPG089PX )@@G@@00 @I@@@@ LA,H1 A3,1,X2 . LEFT LINK IS LAST CPY )@@G@@ELL ADDR GPG09000 @I@@@@ SA A3,SAVARG+6 . PZ )@@G@@ GPG09100 @I@@@@NXTSCAN LA A0,1,QA )@@G@@A2 . GET ID OF TRANS IN GROUP GPG09200 @I@@@@ QB )@@G@@ TNZ GPXT3$,A0 . IS IT ALIVE GPG093QC )@@G@@00 @I@@@@ J GPX$GERR1 . NO MUST HAVE TERMIQD )@@G@@NATED GPG09400 @I@@@@ SA A2,SAVARG+10 . QE )@@G@@ GPG09500 @I@@@@ LX,S2 X2,SAQF )@@G@@VARG+1 . GPG09600 @I@@@@ QG )@@G@@ LA A1,SAVARG+1 . GPG097QH )@@G@@00 @I@@@@ EX GPXSNA$,X2 . QI )@@G@@ GPG09800 @I@@@@ LA A2,SAVARG+10 . QJ )@@G@@ GPG09900 @I@@@@ TNE A1,SQK )@@G@@AVARG+2 . IS IT RIGHT VALUE GPG10000 @I@@@@ QL )@@G@@ J SCGOTIT . YES DO NORMAL EXIT GPG101QM )@@G@@00 @I@@@@ TNE A2,SAVARG+6 . WAS THAT THE LAST CQN )@@G@@ELL GPG10200 @I@@@@ J SCALT . QO )@@G@@ YES NO FIND SO GO TO ALT GPG10300 @I@@@@ LA,H2 A2,0,QP )@@G@@A2 . LINK TO NEXT CELL GPG10400 @I@@@@ QQ )@@G@@ J NXTSCAN . LOOK AT NEXT ONE GPG105QR )@@G@@00 @I@@@@SCALT LA A0,SAVARG+9 . RESTORE TRANS ID QS )@@G@@ GPG10600 @I@@@@ TP SAVARG+5 . WQT )@@G@@AS THERE AN ALT EXIT GPG10700 @I@@@@ J *GPX$QU )@@G@@SCAN . GPG10800 @I@@@@ QV )@@G@@ LA,H2 A2,GPXT3$,A0 . STORE NEXT BLOCK GPG109QW )@@G@@00 @I@@@@ LA A1,SAVARG+5 . QX )@@G@@ GPG11000 @I@@@@ SA,T1 A1,1,A2 . QY )@@G@@ GPG11100 @I@@@@ J *GPXQZ )@@G@@$SCAN GPG11200 @I@@@@SCGOTIRA )@@G@@T LX X3,GPXB2$,X8 . IS ARG D GIVEN GPG113RB )@@G@@00 @I@@@@ LA A1,3,X3 . RC )@@G@@ GPG11400 @I@@@@ JN A1,SCANOUT . RD )@@G@@IF NONE JUST LEAVE QUITELY GPG11500 @I@@@@ LA,S2 A2,3,RE )@@G@@X3 . GPG11600 @I@@@@ RF )@@G@@ EX GPXSNA$,A2 . GPG117RG )@@G@@00 @I@@@@ SA A1,SAVARG+7 . KEEP IT FOR NOW RH )@@G@@ GPG11800 @I@@@@ LX,U X3,4 . RI )@@G@@WHERE TO STORE IT GPG11900 @I@@@@ SLJ GPX$RJ )@@G@@GETARG . GPG12000 @I@@@@ RK )@@G@@ LA A0,SAVARG+9 . RESTORE THIS TRANS ID GPG121RL )@@G@@00 @I@@@@ SLJ GPX$PA . GET PARAM ADDR RM )@@G@@ GPG12200 @I@@@@ LA A2,SAVARG+7 . RN )@@G@@ GPG12300 @I@@@@ SA A2,0RO )@@G@@,A1 . GPG12400 @I@@@@SCANOURP )@@G@@T LA A0,SAVARG+9 . RESTOR TRANS ID GPG125RQ )@@G@@00 @I@@@@ J *GPX$SCAN . RR )@@G@@ GPG12600 @I@@@@/. RS )@@G@@ GPG12700 @I@@@@GPX$REMOVE* J $-$ RT )@@G@@ . GPG12800 @I@@@@ RU )@@G@@ SLJ GPX$INTOBLK . LOG IN GPG129RV )@@G@@00 @I@@@@ SA A0,SAVARG+8 . RW )@@G@@ GPG13000 @I@@@@ LX,H2 X3,GPXB2$,X8 . GRX )@@G@@ET ALT EXIT IF ANY GPG13100 @I@@@@ LA A1,5,RY )@@G@@X3 . GPG13200 @I@@@@ RZ )@@G@@ JN A1,$+4 . GPG133SA )@@G@@00 @I@@@@ LX,U X3,5 . SB )@@G@@ GPG13400 @I@@@@ SLJ GPX$GETARG . SC )@@G@@ GPG13500 @I@@@@ SLJ GPX$ASD )@@G@@LLB . GPG13600 @I@@@@ SE )@@G@@ SA A1,SAVARG+5 . SAVE ALT EXIT GPG137SF )@@G@@00 @I@@@@ LX,U X3,0 . GET GROUP NUMBER SG )@@G@@ GPG13800 @I@@@@ SLJ GPX$GETARG . SH )@@G@@ GPG13900 @I@@@@ SLJ GPX$ASI )@@G@@LLG . GPG14000 @I@@@@ SJ )@@G@@ JN A2,ALTEXIT . IF NO GROUP GET OUT GPG141SK )@@G@@00 @I@@@@ SA A2,SAVARG+6 . SAVE GROUP HEAD ADDSL )@@G@@R GPG14200 @I@@@@ LA,H2 A1,2,A2 . SM )@@G@@ GPG14300 @I@@@@ JZ A1,ASN )@@G@@LTEXIT . IF GROUP EMPTY GET OUT GPG14400 @I@@@@ SO )@@G@@ LX,H2 X3,GPXB2$,X8 . GPG145SP )@@G@@00 @I@@@@ LA A1,2,X3 . CHECK ARG3 TO GET MSQ )@@G@@ODE GPG14600 @I@@@@ JN A1,TRMODE . SR )@@G@@ GPG14700 @I@@@@. SS )@@G@@ GPG14800 @I@@@@. ST )@@G@@ GPG149SU )@@G@@00 @I@@@@ LA A1,SAVARG+6 . NUMERIC MODE HERE SV )@@G@@ GPG15000 @I@@@@ TZ,H1 2,A1 . ISW )@@G@@S GROUP THE RIGHT MODE GPG15100 @I@@@@ J GPX$GSX )@@G@@SIZE . NO GPG15200 @I@@@@ SY )@@G@@ LX,U X3,2 . GPG153SZ )@@G@@00 @I@@@@ SLJ GPX$GETARG . WHAT VALUE ARE WE LTA )@@G@@OOKING FOR GPG15400 @I@@@@ LA A2,SAVARG+6 . TB )@@G@@ GPG15500 @I@@@@ LA A2,1,TC )@@G@@A2 . LINKS TO GROUP CELLS HERE GPG15600 @I@@@@ TD )@@G@@ SLJ SUBSCAN . GPG157TE )@@G@@00 @I@@@@ JN A2,ALTEXIT . DID WE FIND IT TF )@@G@@ GPG15800 @I@@@@ SLJ POPIT . TG )@@G@@REMOVE THAT CELL GPG15900 @I@@@@ J *GPX$TH )@@G@@REMOVE . GPG16000 @I@@@@. TI )@@G@@ GPG161TJ )@@G@@00 @I@@@@. TK )@@G@@ GPG16200 @I@@@@POPIT J $-$ . TL )@@G@@REMOVE CELL COUNT DOWN GPG16300 @I@@@@ LA,H1 A1,0TM )@@G@@,A2 . UNLINK IT GPG16400 @I@@@@ TN )@@G@@ LA,H2 A3,0,A2 . GPG165TO )@@G@@00 @I@@@@ SA,H2 A3,0,A1 . TP )@@G@@ GPG16600 @I@@@@ SA,H1 A1,0,A3 . TQ )@@G@@ GPG16700 @I@@@@ SLJ GPX$RTR )@@G@@ET3 . RETURN TO AVAILABLE GPG16800 @I@@@@ TS )@@G@@ LA A1,SAVARG+6 . GPG169TT )@@G@@00 @I@@@@ LA,H2 A2,2,A1 . TU )@@G@@ GPG17000 @I@@@@ ANA,U A2,1 . CTV )@@G@@OUNT DOWN THE MEMBERSHIP GPG17100 @I@@@@ TN A2 TW )@@G@@ . CANT BE NEG GPG17200 @I@@@@ TX )@@G@@ SA,H2 A2,2,A1 . GPG173TY )@@G@@00 @I@@@@ J *POPIT . TZ )@@G@@ GPG17400 @I@@@@. UA )@@G@@ GPG17500 @I@@@@. UB )@@G@@ GPG17600 @I@@@@TRMODEUC )@@G@@ LA A1,SAVARG+6 . GPG177UD )@@G@@00 @I@@@@ TNZ,H1 2,A1 . UE )@@G@@ GPG17800 @I@@@@ J GPX$GSIZE . WUF )@@G@@AS GROUP THE RIGHT MODE GPG17900 @I@@@@ LX X3,GPUG )@@G@@XB2$,X8 . GET ARG 2 GPG18000 @I@@@@ UH )@@G@@ LA A2,1,X3 . GPG181UI )@@G@@00 @I@@@@ JN A2,HIMOFF . REMOVE ONLY ENTERINUJ )@@G@@G TR GPG18200 @I@@@@ LA,S2 A2,1,X3 . IUK )@@G@@S IT SPEC ARG GPG18300 @I@@@@ TNE,U A2,07UL )@@G@@7 . GPG18400 @I@@@@ UM )@@G@@ J ALLOFF . GPG185UN )@@G@@00 @I@@@@ LX,U X3,1 . UO )@@G@@ GPG18600 @I@@@@ SLJ GPX$GETARG . UP )@@G@@ GPG18700 @I@@@@ JZ A1,AUQ )@@G@@LTEXIT . GPG18800 @I@@@@ UR )@@G@@ J ALLOFF+1 . GPG189US )@@G@@00 @I@@@@. UT )@@G@@ GPG19000 @I@@@@. UU )@@G@@ GPG19100 @I@@@@HIMOFF LA A1,A0UV )@@G@@ . GET TRANS NUMBER GPG19200 @I@@@@ UW )@@G@@ LA A2,SAVARG+6 . GET GROUP HEAD GPG193UX )@@G@@00 @I@@@@ LA A2,1,A2 . GET GROUP LINKS UY )@@G@@ GPG19400 @I@@@@ SLJ SUBSCAN . UZ )@@G@@ GPG19500 @I@@@@ JN A2,ALVA )@@G@@TEXIT . WASNT THERE GPG19600 @I@@@@ VB )@@G@@ SLJ POPIT . GPG197VC )@@G@@00 @I@@@@ J *GPX$REMOVE . VD )@@G@@ GPG19800 @I@@@@. VE )@@G@@ GPG19900 @I@@@@. VF )@@G@@ GPG20000 @I@@@@ALTEXIVG )@@G@@T LA A0,SAVARG+8 . RESTORE TRANS ID GPG201VH )@@G@@00 @I@@@@ TP SAVARG+5 . WAS ALTERNATE GIVEVI )@@G@@N GPG20200 @I@@@@ J *GPX$REMOVE . NVJ )@@G@@O GO TO NEXT BLOCK GPG20300 @I@@@@ LA,H2 A2,GPVK )@@G@@XT3$,A0 . STORE NEXT BLOCK GPG20400 @I@@@@ VL )@@G@@ LA A1,SAVARG+5 . GPG205VM )@@G@@00 @I@@@@ SA,T1 A1,1,A2 . VN )@@G@@ GPG20600 @I@@@@ J *GPX$REMOVE . VO )@@G@@ GPG20700 @I@@@@. VP )@@G@@ GPG20800 @I@@@@. VQ )@@G@@ GPG209VR )@@G@@00 @I@@@@ALLOFF LA,XU A1,-1 . FLAG IN NUMBER TO VS )@@G@@REMOVE GPG21000 @I@@@@ SA A1,SAVARG+1 . VT )@@G@@SAVE NUMBER TO REMOVE GPG21100 @I@@@@ LX,H2 X3,GPVU )@@G@@XB2$,X8 . GPG21200 @I@@@@ VV )@@G@@ LA A2,3,X3 . GPG213VW )@@G@@00 @I@@@@ JN A2,WIPE . UNCONDITIONAL ALLOVX )@@G@@FF GPG21400 @I@@@@ SA A2,SAVARG+3 . VY )@@G@@ GPG21500 @I@@@@ LA A2,4VZ )@@G@@,X3 . COMPARAISON CRITERION GPG21600 @I@@@@ WA )@@G@@ JN A2,ALTEXIT . IF MISSING NONE OFF GPG217WB )@@G@@00 @I@@@@ LX,U X3,4 . WC )@@G@@ GPG21800 @I@@@@ SLJ GPX$GETARG . WD )@@G@@ GPG21900 @I@@@@ SA A1,SWE )@@G@@AVARG+4 . SAVE CRITERION GPG22000 @I@@@@ WF )@@G@@ SZ SAVARG+9 . COUNT HERE NUMBER REMOVED GPG221WG )@@G@@00 @I@@@@ LX X3,SAVARG+6 . GROUP HEAD WH )@@G@@ GPG22200 @I@@@@ AX,U X3,1 . WI )@@G@@LINKS GPG22300 @I@@@@ LX,H2 X4,0WJ )@@G@@,X3 . GPG22400 @I@@@@ WK )@@G@@ SX X3,SAVARG+2 . GPG225WL )@@G@@00 @I@@@@GETALL LA A0,1,X4 . GET TR NUMBER OF MEWM )@@G@@MBER TRANS GPG22600 @I@@@@ TNZ GPXT3$,A0 . IWN )@@G@@S IT AN ACTIVE ONE GPG22700 @I@@@@ J GPX$GWO )@@G@@ERR1 . NO ERROR GPG22800 @I@@@@ WP )@@G@@ SX X4,SAVARG+10 . SAVE X4 WHILE EVALUATING ARG GPG229WQ )@@G@@00 @I@@@@ LA,S2 A2,SAVARG+3 . WR )@@G@@ GPG23000 @I@@@@ LA A1,SAVARG+3 . WS )@@G@@ GPG23100 @I@@@@ EX GPXSNWT )@@G@@A$,A2 . GPG23200 @I@@@@ WU )@@G@@ LX X4,SAVARG+10 . RESTORE X4 GPG233WV )@@G@@00 @I@@@@ TNE A1,SAVARG+4 . DOES IT MEET CRITEWW )@@G@@RION GPG23400 @I@@@@ J $+3 . WX )@@G@@YES GPG23500 @I@@@@ LX,H2 X4,0WY )@@G@@,X4 . NO LOOK AT NEXT CELL GPG23600 @I@@@@ WZ )@@G@@ J NXTALL . GPG237XA )@@G@@00 @I@@@@ LA A2,X4 . GET CELL ID XB )@@G@@ GPG23800 @I@@@@ LX,H2 X4,0,X4 . XC )@@G@@ GPG23900 @I@@@@ SLJ POPIXD )@@G@@T . REMOVE CELL GPG24000 @I@@@@ XE )@@G@@ LA A1,SAVARG+9 . ADD TO NUMBER REMOVED GPG241XF )@@G@@00 @I@@@@ AA,U A1,1 . XG )@@G@@ GPG24200 @I@@@@ SA A1,SAVARG+9 . XH )@@G@@ GPG24300 @I@@@@ TNE A1,SXI )@@G@@AVARG+1 . IS IT ENOUGH GPG24400 @I@@@@ XJ )@@G@@ J REMEXIT . YES GPG245XK )@@G@@00 @I@@@@ JZ A2,REMEXIT2 . NO MORE LEFT XL )@@G@@ GPG24600 @I@@@@NXTALL LA A2,X4 . XM )@@G@@ARE WE AT END OF LIST GPG24700 @I@@@@ TE A2,SAXN )@@G@@VARG+2 . GPG24800 @I@@@@ XO )@@G@@ J GETALL . NO MORE TO COME GPG249XP )@@G@@00 @I@@@@REMEXIT2 TNZ SAVARG+9 . DID WE GET ANY OFFXQ )@@G@@ GPG25000 @I@@@@ J ALTEXIT . XR )@@G@@NO GPG25100 @I@@@@REMEXIT LA A0,SXS )@@G@@AVARG+8 . RESTORE TRANS ID GPG25200 @I@@@@ XT )@@G@@ J *GPX$REMOVE GPG253XU )@@G@@00 @I@@@@. XV )@@G@@ GPG25400 @I@@@@. XW )@@G@@ GPG25500 @I@@@@WIPE LX X2,SXX )@@G@@AVARG+6 . REMOVE ALL GPG25600 @I@@@@ XY )@@G@@ LX,H2 X3,2,X2 . GPG257XZ )@@G@@00 @I@@@@ ANX,U X3,1 . YA )@@G@@ GPG25800 @I@@@@ LA,H2 A2,1,X2 . YB )@@G@@ GPG25900 @I@@@@ SLJ POPIYC )@@G@@T . GPG26000 @I@@@@ YD )@@G@@ JZ A2,*GPX$REMOVE . GPG261YE )@@G@@00 @I@@@@ LA A1,SAVARG+1 . YF )@@G@@ GPG26200 @I@@@@ ANA,U A1,1 . YG )@@G@@ GPG26300 @I@@@@ JZ A1,*YH )@@G@@GPX$REMOVE . GPG26400 @I@@@@ YI )@@G@@ SA A1,SAVARG+1 . GPG265YJ )@@G@@00 @I@@@@ JGD X3,$-7 . YK )@@G@@ GPG26600 @I@@@@ J *GPX$REMOVE . YL )@@G@@ GPG26700 @I@@@@/. YM )@@G@@ GPG26800 @I@@@@GPX$EXYN )@@G@@AMINE* J $-$ . GPG269YO )@@G@@00 @I@@@@ SLJ GPX$INTOBLK . LOG IN YP )@@G@@ GPG27000 @I@@@@ LX,H2 X3,GPXB2$,X8 . GYQ )@@G@@ET ALTERNATE EXIT LOCATION GPG27100 @I@@@@ LA A1,2,YR )@@G@@X3 . GPG27200 @I@@@@ YS )@@G@@ JN A1,*GPX$EXAMINE . IF NO ALT EXIT IGNORE BLOCK GPG273YT )@@G@@00 @I@@@@ LX,U X3,2 . THERE IS ONE SO GOYU )@@G@@ GET IT GPG27400 @I@@@@ SLJ GPX$GETARG . YV )@@G@@ GPG27500 @I@@@@ SLJ GPX$AYW )@@G@@LLB . CHECK THAT IT IS A VALID BLOCK GPG27600 @I@@@@ YX )@@G@@ SA A1,SAVARG+5 . STASH IT FOR NOW GPG277YY )@@G@@00 @I@@@@ LX,U X3,0 . GET GROUP ID YZ )@@G@@ GPG27800 @I@@@@ SLJ GPX$GETARG . ZA )@@G@@ GPG27900 @I@@@@ SLJ GPX$AZB )@@G@@LLG . TEST GROUP EXISTANCE GPG28000 @I@@@@ ZC )@@G@@ JN A2,ALTEXAM . THERE IS NO SUCH GROUP GPG281ZD )@@G@@00 @I@@@@ SA A2,SAVARG+6 . SAVE ITS LOCATION FZE )@@G@@OR NOW GPG28200 @I@@@@ LA,H2 A1,2,A2 . IZF )@@G@@S THE GROUP EMPTY GPG28300 @I@@@@ JZ A1,ALZG )@@G@@TEXAM . IF SO TAKE ALT EXIT GPG28400 @I@@@@ ZH )@@G@@ LX,H2 X3,GPXB2$,X8 . GET SECOND ARG GPG285ZI )@@G@@00 @I@@@@ LA A1,1,X3 . ZJ )@@G@@ GPG28600 @I@@@@ JP A1,$+5 . IZK )@@G@@F ARG THERE IT MUST BE NUMBER GPG28700 @I@@@@ LA A1,A0ZL )@@G@@ . OTHERWISE WE WANT TRANS NUMBER GPG28800 @I@@@@ ZM )@@G@@ TNZ,H1 2,A2 . GPG289ZN )@@G@@00 @I@@@@ J GPX$GSIZE . ZO )@@G@@ GPG29000 @I@@@@ J $+5 . ZP )@@G@@ GPG29100 @I@@@@ TZ,H1 2,A2 ZQ )@@G@@ . GPG29200 @I@@@@ ZR )@@G@@ J GPX$GSIZE . GPG293ZS )@@G@@00 @I@@@@ LX,U X3,1 . ZT )@@G@@ GPG29400 @I@@@@ SLJ GPX$GETARG . GZU )@@G@@ET THE ARGUMENT GPG29500 @I@@@@ LA A2,SAZV )@@G@@VARG+6 . NOW LETS LOOK AT THE GROUP GPG29600 @I@@@@ ZW )@@G@@ LA A2,1,A2 . GPG297ZX )@@G@@00 @I@@@@ SLJ SUBSCAN . ZY )@@G@@ GPG29800 @I@@@@ JN A2,ALTEXAM . ZZ )@@G@@ GPG29900 @I@@@@ J *GPX$AA )@@G@@EXAMINE . GROUP DID CONTAIN WHAT WE HAD GPG30000 @I@@@@ALTEXAAB )@@G@@M LA,H2 A2,GPXT3$,A0 . GROUP MEMBERSHIP DID NOT PASS GPG301AC )@@G@@00 @I@@@@ LA A1,SAVARG+5 . TEST SO WE TAKE ALTAD )@@G@@ EXIT GPG30200 @I@@@@ SA,T1 A1,1,A2 . AE )@@G@@ GPG30300 @I@@@@ J *GPX$AF )@@G@@EXAMINE . GPG30400 @I@@@@/. AG )@@G@@ GPG305AH )@@G@@00 @I@@@@GPX$ALTER* J $-$ . AI )@@G@@ GPG30600 @I@@@@ SA A0,SAVARG+9 . SAJ )@@G@@AVE ENTERING TRANS NUMBER GPG30700 @I@@@@ SLJ GPX$IAK )@@G@@NTOBLK . LOG IN GPG30800 @I@@@@ AL )@@G@@ LX,H2 X3,GPXB2$,X8 . GET ALT EXIT IF ANY GPG309AM )@@G@@00 @I@@@@ LA A1,6,X3 . NOTE 7 ARGS AN )@@G@@ GPG31000 @I@@@@ JN A1,$+4 . NAO )@@G@@EG IF NONE SUPPLIED GPG31100 @I@@@@ LX,U X3,6 AP )@@G@@ . GPG31200 @I@@@@ AQ )@@G@@ SLJ GPX$GETARG . GPG313AR )@@G@@00 @I@@@@ SLJ GPX$ALLB . TEST VALIDITY OF ALAS )@@G@@T EXIT GPG31400 @I@@@@ SA A1,SAVARG+6 . AT )@@G@@ GPG31500 @I@@@@ LX,U X3,0 AU )@@G@@ . GET GROUP ID GPG31600 @I@@@@ AV )@@G@@ SLJ GPX$GETARG . GPG317AW )@@G@@00 @I@@@@ SLJ GPX$ALLG . AX )@@G@@ GPG31800 @I@@@@ JN A2,ALTALT . IAY )@@G@@F NO GROUP TAKE ALT EXIT GPG31900 @I@@@@ TNZ,H2 2,A2 AZ )@@G@@ . TEST FOR EMPTY GPG32000 @I@@@@ BA )@@G@@ J ALTALT . GPG321BB )@@G@@00 @I@@@@ TNZ,H1 2,A2 . TEST FOR TYPE MUSTBC )@@G@@ BE TR TYPE GPG32200 @I@@@@ J GPX$GSIZE BD )@@G@@ GPG32300 @I@@@@ SA A2,SABE )@@G@@VARG . OK SAVE GROUP LOCATION GPG32400 @I@@@@ BF )@@G@@ LX,U X3,3 . NEW VALUE FOR ALTERED PARAM GPG325BG )@@G@@00 @I@@@@ SLJ GPX$GETARG . BH )@@G@@ GPG32600 @I@@@@ SA A1,SAVARG+3 . BI )@@G@@ GPG32700 @I@@@@ SZ SAVARBJ )@@G@@G+2 . GPG32800 @I@@@@ BK )@@G@@ LX,H2 X3,GPXB2$,X8 . GPG329BL )@@G@@00 @I@@@@ LA,S2 A1,2,X3 . BM )@@G@@ GPG33000 @I@@@@ TNE,U A1,077 . BN )@@G@@ GPG33100 @I@@@@ J $+4 BO )@@G@@ . GPG33200 @I@@@@ BP )@@G@@ LX,U X3,2 . GPG333BQ )@@G@@00 @I@@@@ SLJ GPX$GETARG . BR )@@G@@ GPG33400 @I@@@@ SA A1,SAVARG+2 . BS )@@G@@ GPG33500 @I@@@@ SZ SAVARBT )@@G@@G+8 . NUMBER ALTERED GPG33600 @I@@@@ BU )@@G@@ SZ SAVARG+4 . GPG337BV )@@G@@00 @I@@@@ LX X3,GPXB2$,X8 . BW )@@G@@ GPG33800 @I@@@@ LA A1,4,X3 . BX )@@G@@ GPG33900 @I@@@@ JN A1,$+BY )@@G@@5 . GPG34000 @I@@@@ BZ )@@G@@ SA A1,SAVARG+4 . EVALUATE THIS LATER GPG341CA )@@G@@00 @I@@@@ LX,U X3,5 . VALUE FOR COMPARAISCB )@@G@@ON GPG34200 @I@@@@ SLJ GPX$GETARG . CC )@@G@@ GPG34300 @I@@@@ SA A1,SACD )@@G@@VARG+5 . GPG34400 @I@@@@ CE )@@G@@ LA,XU A1,-1 . USED IF 'ALL' IS NUMBER TO ALT GPG345CF )@@G@@00 @I@@@@ LX,H2 X3,GPXB2$,X8 . CG )@@G@@ GPG34600 @I@@@@ LA,S2 A2,1,X3 . ICH )@@G@@S IT SPECIAL ARG THEN 'ALL' GPG34700 @I@@@@ TNE,U A2,07CI )@@G@@7 . GPG34800 @I@@@@ CJ )@@G@@ J $+5 . GPG349CK )@@G@@00 @I@@@@ LX,U X3,1 . OTHERWISE EVALUATE CL )@@G@@ARG GPG35000 @I@@@@ SLJ GPX$GETARG . CM )@@G@@ GPG35100 @I@@@@ TLE,U A1,1 CN )@@G@@ . CHECK IF ZERO OR NEG TO AVOID GPG35200 @I@@@@ CO )@@G@@ J ALTNORM . LOOPING GPG353CP )@@G@@00 @I@@@@ SA A1,SAVARG+1 . CQ )@@G@@ GPG35400 @I@@@@ LX X3,SAVARG . GCR )@@G@@ET GROUP LOCATION GPG35500 @I@@@@ AX,U X3,1 CS )@@G@@ . LINK WORD GPG35600 @I@@@@ CT )@@G@@ LX X4,0,X3 . FIRST CELL GPG357CU )@@G@@00 @I@@@@ SX X3,SAVARG . SAVE TO DETECT END CV )@@G@@OF GROUP GPG35800 @I@@@@ALTALL LA A0,1,X4 . TCW )@@G@@RANS ID OF GROUP MEMBER GPG35900 @I@@@@ TNZ GPXT3CX )@@G@@$,A0 . IS IT ACTIVE IF NOT ERROR GPG36000 @I@@@@ CY )@@G@@ J GPX$GERR1 . GPG361CZ )@@G@@00 @I@@@@ SX X4,SAVARG+10 . DA )@@G@@ GPG36200 @I@@@@ LA A1,SAVARG+4 . DB )@@G@@ GPG36300 @I@@@@ JZ A1,$+DC )@@G@@6 . IF ZERO THERE IS NO CONDITION GPG36400 @I@@@@ DD )@@G@@ LA,S2 A2,SAVARG+4 . EVALUATE CONDITION GPG365DE )@@G@@00 @I@@@@ EX GPXSNA$,A2 . NOTE TRANS IN GROUPDF )@@G@@ IS IN A0 GPG36600 @I@@@@ LX X4,SAVARG+10 . DG )@@G@@ GPG36700 @I@@@@ TE A1,SADH )@@G@@VARG+5 . GPG36800 @I@@@@ DI )@@G@@ J NXTALT . DID NOT MEET CRITERION NO ALT GPG369DJ )@@G@@00 @I@@@@ LA A1,SAVARG+8 . COUNT NUMBER ALTEREDK )@@G@@D GPG37000 @I@@@@ AA,U A1,1 . DL )@@G@@ GPG37100 @I@@@@ SA A1,SADM )@@G@@VARG+8 . GPG37200 @I@@@@ DN )@@G@@ LA A1,SAVARG+2 . WHAT DO WE CHANGE GPG373DO )@@G@@00 @I@@@@ JZ A1,$+5 . CHANGE PRIORITY DP )@@G@@ GPG37400 @I@@@@ SLJ GPX$PA . CDQ )@@G@@HANGE PARAM GET ITS ADDR GPG37500 @I@@@@ LA A2,SADR )@@G@@VARG+3 . CHANGE TO THIS VALUE GPG37600 @I@@@@ DS )@@G@@ SA A2,0,A1 . GPG377DT )@@G@@00 @I@@@@ J NXTALT . DU )@@G@@ GPG37800 @I@@@@ LA A2,SAVARG+3 . CDV )@@G@@HANGE PR HERE GPG37900 @I@@@@ SA,T3 A2,GPDW )@@G@@XT1$,A0 . GPG38000 @I@@@@ DX )@@G@@ J NXTALT . GPG381DY )@@G@@00 @I@@@@NXTALT LA A2,SAVARG+8 . DZ )@@G@@ GPG38200 @I@@@@ TNE A2,SAVARG+1 . DEA )@@G@@ID WE ALTER ENOUGH GPG38300 @I@@@@ J ALTNOEB )@@G@@RM . YES QUIT NOW GPG38400 @I@@@@ EC )@@G@@ LX,H2 X4,0,X4 . GET NEXT CELL FROM LINK GPG385ED )@@G@@00 @I@@@@ LA A2,X4 . IS IT LAST ONE EE )@@G@@ GPG38600 @I@@@@ TE A2,SAVARG . EF )@@G@@ GPG38700 @I@@@@ J ALTALEG )@@G@@L . GPG38800 @I@@@@ EH )@@G@@ TNZ SAVARG+8 . DID WE ALTER ANY GPG389EI )@@G@@00 @I@@@@ J ALTALT . NO EJ )@@G@@ GPG39000 @I@@@@ALTNORM LA A0,SAVARG+9 . REK )@@G@@ESTORE TRANS ID OF ENTERING ONGPG39100 @I@@@@ J *GPX$EL )@@G@@ALTER . GPG39200 @I@@@@ALTALTEM )@@G@@ LA A0,SAVARG+9 . RESTORE ENTERING TRANS NUM GPG393EN )@@G@@00 @I@@@@ TP SAVARG+6 . WAS AN ALT EXIT GIVEO )@@G@@EN GPG39400 @I@@@@ J *GPX$ALTER . NEP )@@G@@O GPG39500 @I@@@@ LA,H2 A2,GPEQ )@@G@@XT3$,A0 . YES TAKE IT GPG39600 @I@@@@ ER )@@G@@ LA A1,SAVARG+6 . GPG397ES )@@G@@00 @I@@@@ SA,T1 A1,1,A2 . ET )@@G@@ GPG39800 @I@@@@ J *GPX$ALTER . OEU )@@G@@FF WE GO GPG39900 @I@@@@/. EV )@@G@@ GPG40000 @I@@@@GPX$ALEW )@@G@@LG J $-$ . GPG401EX )@@G@@00 @I@@@@ SLJ GPX$K . EY )@@G@@ GPG40200 @I@@@@ TG,U A1,0377777 . EZ )@@G@@ GPG40300 @I@@@@ J GPX$GFA )@@G@@SIZE . GPG40400 @I@@@@ FB )@@G@@ TLE,U A1,1 . GPG405FC )@@G@@00 @I@@@@ J GPX$GSIZE . FD )@@G@@ GPG40600 @I@@@@ LA,U A2,GPXG$ . FE )@@G@@ GPG40700 @I@@@@ SLJ GPX$EFF )@@G@@NTITY . GPG40800 @I@@@@ FG )@@G@@ J *GPX$ALLG . GPG409FH )@@G@@00 @I@@@@. FI )@@G@@ GPG41000 @I@@@@. FJ )@@G@@ GPG41100 @I@@@@SUBSCAN J $-$ FK )@@G@@ . A1 COMES IN WITH VALUE SOUGHT GPG41200 @I@@@@ FL )@@G@@ DSL A2,18 . A2 NOW HAS LAST CELL ADDR GPG413FM )@@G@@00 @I@@@@ SSL A3,18 . A3 NOW HAS FIRST CEFN )@@G@@LL ADDR GPG41400 @I@@@@ LDSC A2,36 . SFO )@@G@@WITCH EM AROUND GPG41500 @I@@@@ TNE A1,1,FP )@@G@@A2 . CHECK VALUE GPG41600 @I@@@@ FQ )@@G@@ J *SUBSCAN . GOT IT GPG417FR )@@G@@00 @I@@@@ TNE A2,A3 . WAS THAT THE LAST CFS )@@G@@ELL GPG41800 @I@@@@ J $+3 . YFT )@@G@@ES SO QUIT GPG41900 @I@@@@ LA,H2 A2,0,FU )@@G@@A2 . NO GET NEXT CELL ADDR IN A2 GPG42000 @I@@@@ FV )@@G@@ J $-5 . GO LOOK AT NEXT ONE GPG421FW )@@G@@00 @I@@@@ LXI,XU A2,-1 . NOTE FLAG IN H1 ONLFX )@@G@@Y GPG42200 @I@@@@ J *SUBSCAN . FY )@@G@@ GPG42300 @I@@@@. FZ )@@G@@ GPG42400 @I@@@@. GA )@@G@@ GPG425GB )@@G@@00 @I@@@@GPX$GSIZE L,U A1,'042' . GC )@@G@@ GPG42600 @I@@@@ SLJ GPX$EXERROR . GD )@@G@@ GPG42700 @I@@@@ ER ERR$ GE )@@G@@ . GPG42800 @I@@@@. GF )@@G@@ GPG429GG )@@G@@00 @I@@@@GPX$G* J $-$ . GET GROUP POPULATIOGH )@@G@@N GPG43000 @I@@@@ SLJ GPX$ALLG . GI )@@G@@ GPG43100 @I@@@@ L,U A1,0 GJ )@@G@@ . GPG43200 @I@@@@ GK )@@G@@ JN A2,*GPX$G . ZERO IF BAD ARG GPG433GL )@@G@@00 @I@@@@ L,H2 A1,2,A2 . GM )@@G@@ GPG43400 @I@@@@ J *GPX$G . GN )@@G@@ GPG43500 @I@@@@SAVARG RES 11 GO )@@G@@ . GPG43600 @I@@@@GPX$GEGP )@@G@@RR1 P$RINT (PF 2,GER1L,GER1M) . GPG437GQ )@@G@@00 @I@@@@ LA A0,SAVARG+9 . GR )@@G@@ GPG43800 @I@@@@ J GPX$EXERROR+7 . GS )@@G@@ GPG43900 @I@@@@GER1M ' GROUP CONTAINGT )@@G@@S TERMINATED TRANSACTION' . GPG44000 @I@@@@GER1L GU )@@G@@ EQU $-GER1M . GPG441GV )@@G@@00 @I@@@@ END . GW )@@G@@ GPG44200 ___DSL A2,18 )@@[CK)BK)C^@K)DK@@@@@@@GX )@@G@@R80@@@[@K@AU'^@@@@R80@@[/GK@@BC@N@@[R^8@@@'^@@@@/K@@@@AA@@@@)@D[L]@>@K^@GY )@@G@@^C])@@[^"@@@[^&@@@C^6@@@'^@@@@&9)@@@R[)@@I/C)@@W'^@@ ;[@K@AT'^@@@@AB@@@@GZ )@@G@@)@N[T@@@K[@@*CI@@]C@K@AU[CY@@]0@@@AUC8K@@[[^Y@@[[CY@@[G8K@@[C@K@@I[CY@@@HA )@@G@@C@K@ATAC@@@@)@Y[L@K^[@^@^@@@@@:^,@@[[@0@AVG80@@[C@0@@I[@@@AUC@K@@G/CK@AKHB )@@G@@/K@@@=/GK@AK/K@@@-AD@@@@)@*[L@^[@K)EK@@@@@[C\@@@[CY@@@CCZ@@@[^"@@@C@0@AVHC )@@G@@'^@@@@/C)K@@'^@@A^C@,@@[/K@@@?AE@@@@)@2[KK@[@^[]@W@@@@'^@@@@[@@@A+/K@@@@HD )@@G@@/K@K@@[^\@@[G8)@@[C^\@@[[@Y@@[C@K@AU[^!@@@AF@@@@)@/[D]@)K[]@>]@!@^C]K@@@HE )@@G@@'^@@@@R80@@@[@K@AY'^@@@@'^@@@@R80@@ /GK@[]C@N@@ R@8@@@AG@@@@)[ [L@K[@^[@HF )@@G@@K)C^@@[@K@AUC@M@@[R@*@@@[@)@AT/K@@AK(CI@@]/K@@[&(^I@@]/G)@[&'^@@ ;AH@@@@HG )@@G@@)[J[KK[]@>@K@K@@@@C@I@@[[@0@AZCC2@@[RB+@@[R@)@AT[@K@AV'^@@@@R80@@]/K@@[&HH )@@G@@0@]@@]AI@@@@)[T[D]@1@K^[@K)HK^[@@@@@/K@@[!:@K@AVC@)@A<')]@@@C@K@AUR0)@AUHI )@@G@@[@)@A]@!@^C]K@@@'^@@@@R80@@@[@K@AY'^@@@@'^@@@@R80@@ /GK@]^C@N@@ R^8@@@AN@@@@HN )@@G@@)]B[L@K^@K^C][@K@@*CH@@]C@K@AZ/GK@]&C@N@@]R^8@@@/@K@]'C^Y@@][@)@AZ/G)@]'HO )@@G@@'^@@ ;AO@@@@)]L[L@^C]O@K^[@K@@/K@@@@/K@K[;'^@@]U/G)@]''^@@A^C@,@@[C@)@AZHP )@@G@@'^@@@@R80@@]/K@@AKAP@@@@)]V[K@K)JK@@@@@@@@[^!@@]1@@@@IH8)@@[C^!@@]C@K@AZHQ )@@G@@'^@@@@[CZ@@@[^.@@@C^"@@@CCY@@@AQ@@@@)]>[L@K[@K)C^@^@@@/K@@#[:8)@@_C0<@@[HR )@@G@@/G)@]3C@<@@[R@8@@@/K@@AK(CH@@]C@K@AZ/K@K]UAR@@@@)]\[KK)DK^@K[@K^@@'^@@]UHS )@@G@@/G)@]''^@@A^C@,@@[C@)@AZC@K@@G/K@@#]/@K@]''^@@@@R80@@[AS@@@@)]9[L@K^[@K)HT )@@G@@GK[@^@[@K@AUC/K__"/K@K[;[WY@@[C@K@AYC^?@@@/K@K[;0@@@AYC@@@A-/K@K[;AT@@@@HU )@@G@@)##[D]@)K^@K[]@>@@@@@@@@[@K@AX'^@@@@R80@@^/G)@]'C@<@@^[@)@AW/G)@#!C@<@@#HV )@@G@@R^8@@@AU@@@@)#G[L@K@K[]@1@K^@@C0)@AWA[@@A@^[@K@@@@@@@@@/K@K#9/G)@^T'^@@A^C@,@@[IE )@@G@@C@)@AZ'^@@@@R80@@[/K@@AK*CI@@]BC@@@@)^T[D]@1@^@K^C[4C]@@@@@@C@N@@AR^8@@@IF )@@G@@'^@@@@[@@@A+/K@@@@/K@K#9[WY@@[C@K@AYC^?@@@BD@@@@)^+[D@^C]OC]4@K)DK^@@@@@IG )@@G@@/G)@ 4'^@@ ;'^@@@@R80@@@[@K@AZ'^@@@@'^@@@@R80@@A/GK@^&BE@@@@)^:[CK[@K[]@IH )@@G@@>@K@@@@@@@@@ @@@AV[@K@AW'^@@@@R80@@#[@)@AT/K@@AK(CI@@]/K@@ 4(^I@@]BF@@@@II )@@G@@)^4[D]@)^@K)DK^[@@@@@@@@ @@@AX @@@A-[@K@AV'^@@@@R80@@]/K@@^;:8K@@_C0N@@]IJ )@@G@@R^8@@@BG@@@@)^.[D]@)K^@K)DK[]@)@@@@@R^8@@@C/K__"[@K@AY'^@@@@R80@@ [@K@AXIK )@@G@@/GK@ ^C@N@@^R@8@@@BH@@@@) A[K^@K)D^[@K@@@@O80@@[R@0@AT[@K@AU/K@@ 2?8K@@[IL )@@G@@'^@@@@R80@@[/K@@ H:8)@@_C0<@@[BI@@@@) K[CK[]@1@K^[@K@@@@@@@@C0)@AX/@K@ XIM )@@G@@C@K@AXA[@@A[L]@ @K)OIV )@@G@@@@@@@@ON NSACTIED TRARMINATINS TE CONTA GROUP/K@@@BC@@@A+'=@@@@BR@@@@IW )@@G@@)A\@C*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IX )@@G@@@]B@A*BS@@@@@@@@@@@)K[]@>]@!@^C]K@@@'^@@@@R80@@@[@K@AY'^@@@@'^@@@@R80@@ IY )@@G@@/GK@]^C@N@@ R^8@@@AN@@@@@@^@@[@@ @@Q@@1@@A@[D@@@@@@@A0READ$ PRINT$IZ )@@G@@ PUNCH$ PRTCN$ PCHCN$ PRTCA$ PCHCA$ GPX$INJA )@@G@@TOBLK GPXB2$ GPX$GETARG GPX$GET3 GPX$ALLB GPXT3$ GPXSNAJB )@@G@@$ GPX$PA GPX$RET3 GPXT1$ GPX$K GPXG$ GPX$ENJC )@@G@@TITY GPX$EXERROR ERR$ GPX$JOIN @@@@@@@@@@@@GPX$SCAN @@@@@@JD )@@G@@@@@@@9GPX$REMOVE @@@@@@@@@@[;GPX$EXAMINE @@@@@@@@@@#9GPX$ALTER @@@@@@JE )@@G@@@@@@^XGPX$G @@@@@@@@@@AN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[KK)@K^C@KK@@@@A#Y@@[O;K@@[R#K@@C/K@@@E%/K__"JG )@@G@@R#Y@@[RB*@@@/K@@@E*CC@@@/K@@@@AA@@@@)@E[D]@CK^C@4C@L@K@@@@@@*4I@@@/K@@@8)[@@/K@@[S=8)@@KRF(@@@RYQ@@[AH@@@@)[G[C]=[]^[C)]@@@@@@@@@@KY )@@G@@)8)@@C/K@@[S=8)@@)/K@@[RR#@@[ '^@@@@R;)@@@R#@@@DN[K@@GAI@@@@)[P[D]@L@K)^KZ )@@G@@^C[^C[@@@@@@[PY@@[G9K@@[CPY@@[RB(@@@AF9@@@)8)@KKRF(@@@/K@@[UAF9@@@AJ@@@@LA )@@G@@)[Y[KK[]@ ]@C[]@C@A#&@@^R#)@@@A#&@@#O#&@@#P#&@@^R#)@@@'^@@@@AVA@@[/K@@#9LB )@@G@@!9K[@@AK@@@@)[*[K[]@*K)E^@K)#@'^@@@@ SA@@]/[@K@5CTA@@]A#0@@@)8)@@[R#)@@@LC )@@G@@A#&@@ O;)@@[R#&@@ AL@@@@)[2[L@K)F@K^C[[@@@)8K)C@/K@K@5=8K@^@RFW@@@/K@@]]LD )@@G@@%.K__"C[P@@[RUQ@@[R S@@@/K@K@5AM@@@@)[/[D]@K^C[[@K)GK)GK@@@@/K@@[8!O?@@@LE )@@G@@RR(@@@/K@K@5AR!@@]RBW@@@ARA@@]RR&@@]AF?@@@AN@@@@)] [C^[]@4[]@9@@@@@@@@@@LF )@@G@@/K@@[^'^@@@@R;&@@BR#K@@IA]Y@@['^@@@@/K@@]I%/K__"R#P@@]AO@@@@)]I[L]@KK@K@LG )@@G@@K@@@@@N9@@@@/K@@]&%.@__"C[ @@^/K@@]*%.@__"C[ @@#/K@@]C>8K[@@RFT@@@AP@@@@LH )@@G@@)]S[CK)@K)J[]@KEK^CK^)@@'^@@@@R;)@@@AZY@@[RB?@@@R#@@@DN[K@@G'^@@@@'^@@@@LI )@@G@@R80@@]AQ@@@@)]-[L][@^[@^@^@@@@/K@@]5%.@__"C[ @@^/K@@]SN8K@@[/K@@[^/@K@]CLJ )@@G@@R#K@[^R#@@[ '^@@@@AR@@@@)]:[C^C@^C^OC[4C@)K@@@@@/@K@]SR#K@[^A#!@@@P#)@@@LK )@@G@@R#(@@@'^@@@@'^@@@@R80@@#N9@@@@AS@@@@)]4[L@^@K)[^C@^[@@R;K421/C)@#@'^@@#/LL )@@G@@'^@@@@R80@@@'^@@@@/K@@@@/K@@]?N9@@@[/K@@]&AT@@@@)]"[L]@P]@S^@^@K@@/@@@#(LM )@@G@@R;&@@B/K@@#M(@A@@BN[K@@G/K@@].%SA@@[R[)@@I'=@@@@'^@@@@AU@@@@)#C[KK)M@K)NLN )@@G@@[@K@@@/K@@#P/@@@#UNTA@@[RZA@@['^@@@@^TA@@[R#)@@HN[H@@['^@@@@RFQ@@BAV@@@@LO )@@G@@)#M[K[]@K[@^C[@@@@RF?@@@R#@@[^/^0@#(AR"@@[P;0@@[RR"@@[RB?@@@N[@@@GRZA@@[LP )@@G@@ SA@@[AW@@@@)#W[CK)^^@K)^K[@@@@@@@@@/K@@#(>8)[@@/K@@#([DG@@@)80@K@/K@@#8)@@)AF/@@@+8)_\$AX@@@@)#>[D]@X]@D]@X][L]@C[]@CC[@@@@[[A@@^G[A@@^H[A@@#LR )@@G@@C[@@@@'^@@@@A#?@@@O#)@@@R#?@@@AY@@@@)#,[KK)E^C])K@K)#@'^@@@@ OA@@]CPA@@]LS )@@G@@/K@K]7*SA@@[R#@@[ [[K@@@)9@@@[C[@@@@[[A@@#AZ@@@@)#8[D@^C[OC[-][OK@@@@@@@LT )@@G@@?8K@@[/K@@ D!8KZ__'^@@@@/K@@@@'=@@@@'^@@@@R;K518/K@K]7BA@@@@)^[[D@EKFCKFLU )@@G@@*@)]@@@@@@@@R#"@@[/G)K^ R;K@@@'^@@#//K@@@@/K@K#/'^@@@@R;)@@@/K@@ DBB@@@@LV )@@G@@)^E[L@K[@^@K[@@@@@/K@K^IR#Y@@ /G)K^IR;K@@@'^@@#//K@@@@/K@K^ R;K@@[/[@K^ LW )@@G@@+@0@ QBC@@@@)^O[KK[@^[]@D][)K@/K@K^OW@K@@KH[@@@@C[@@@@S@K@ RR#Y@@#/G)K^OLX )@@G@@R;K@@@'^@@#//K@@@@BD@@@@)^Y[KK[@^@^@@@@@@@/K@@@@/K@K^YW@K@@JR#,@@#/@0K^YLY )@@G@@R#"@@ /G)K^YR;K@@@'^@@#//K@@@@BE@@@@)^*[L@K^@^@K[@@@@@/K@K^$R;K@@@/^K@^2LZ )@@G@@RVY@@[/^K@^2RZY@@[R@K@@I'^@@ G/C)@^:'^@@#/BF@@@@)^2[KK[@[@^[@@@@@@/C)@^.MA )@@G@@'^@@#//K@@@@/K@K^4R#K@@I-8K@@['^@@^$/K@@@@/K@K^$R;K@@[BG@@@@)^/[L@[@^@K[MB )@@G@@@@@@@@'^@@^9/K@@@@/K@K^9R;K@@@/K@K^9R;K@@[/@K@ ]RVY@@[R@K@@I'^@@ GBH@@@@MC )@@G@@) A[K^@K) K)A@K)T@'^@@@@R[)@@I&;)@@@/K@@@@'=@@@@'^@@@@R;K498/K@K ^R#K@@IMD )@@G@@-8K@@[BI@@@@) K[@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@J*____@@@@@@@@/K@K GAB&@@@ME )@@G@@AFY@@@AB"@@@RB6@@@BJ@@@@@@^@@[@@ @@U@@9@@H@[!@@@@@@@ SGPX$GETARG GPX$INMF )@@G@@TOBLK GPXCLOCK$ GPX$SETLOS GPXT3$ GPX$EXERROR ERR$ GPXT2$MG )@@G@@ GPXFECHAIN$ GPX$POP GPXSCAN$ GPXB2$ GPXT1$ GPX$GEMH )@@G@@T3 GPX$NEWGRUP GPX$ALLB GPX$MERGE GPX$PA GPX$POPGRUP GPX$REMI )@@G@@T3 GPX$ADDTOFE GPX$K GPXF$ GPX$ENTITY GPXCRESET$ GPX$NEMJ )@@G@@WCELL GPX$SEIZE @@@@@@@@@@@@GPX$RELEASE @@@@@@@@@@@-GPX$PREEMPT @@@@@@MK )@@G@@@@@@@5GPX$RETURN @@@@@@@@@@]7GPX$F @@@@@@@@@@^ GPX$FC @@@@@@ML )@@G@@@@@@^IGPX$FR @@@@@@@@@@^OGPX$FT @@@@@@@@@@^YGPX$FU @@@@@@MM )@@G@@@@@@^$GPX$FNU @@@@@@@@@@^4GPX$FI @@@@@@@@@@^9GPX$FNI @@@@@@MN )@@G@@@@@@ ^GPX$FSIZE @@@@@@@@@@ D@@@@@@@@@@@@@@@@@@)@@[EK)@^C@L@^C@K@@@@@@@MO )@@G@@N@0@@H'^@@@@R80@@]/@KK@@N@)@@H'^@@@@R80@@@'^@@@@/K@@@@AA@@@@)@D[N@K)]@^CMP )@@G@@@0K@@@/K@@@Q%/K__"R#Y@@#RB*@@@A#!@@@N[@@@IO;)@@[R#!@@@'^@@@@/@K@@JAB@@@@MQ )@@G@@)@N[N]@KK[]@ #@@@@W8@@@GP;K@@[R;@@@@R[)@@GAZK@@#'^@@@@R80@@#/K@@@SRZY@@]MR )@@G@@RB?@@@AC@@@@)@X[E^C[OC[^C[[#@@K@@@@@/^K@@(RBU@@#A#K@@[R#U@@@RA&@@@ND6@@@MS )@@G@@NP&@@@N[K@@GO;@@@[AD@@@@)@&[F#@@K0@^G@^G@^[@EK#@R;)@@@/K@@[W8K)@@,AY@@@^MT )@@G@@ABK@@^ABU@@#A#K@@@O;K@@[R#K@@@AE@@@@)@\[#]@WK)[K)CK0@K) K)^K)D@@@@'^@@@@MU )@@G@@^D/@@@^P?@@@AZK@@]'^@@@@'^@@@@R80@@['^@@@@AF@@@@)@7[F]@KK0@[]@K@@@@@@@@@MV )@@G@@H9K@@[C[K@[ O;0@@ RB/@@@M#\)@@N8K@@ R#0@@D&;)@@[AB?@@@AG@@@@)[@[F#@@^C]=MW )@@G@@C]OC]0@@@@@@R[@@@K&;)@@[N8K@@G')])@@'^@@@@')]@@@O;)@@ R#)@@ER@)@@EAH@@@@MX )@@G@@)[D[M^@K^C@)@@@@@@A#!@@@A#)@[^O;)@@[R#)@[^'^@@@@/@K@[NR#K@[#8^K@[[M#=)@@MY )@@G@@&9@@@[AI@@@@)[N[F]@K[]@0K)GK)HK@@@@@/K@@@?'^@@@@ABS@@@O;K@@[RBS@@@AVZ@@[MZ )@@G@@AVE@@[RVU@@[RB/@@@AJ@@@@)[W@MK@@@@@@)@@@0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NA )@@G@@@@@@@@@@@@@@@@@@@@/K@K@@R#@@@AAK@@@@)[Y[EK)@^C@OC]@^@@@@@@@@'^@@#UR8)@@@NB )@@G@@N@0@@#R@0@@H'^@@@@'^@@@@R80@@@'^@@@@/K@@@@AL@@@@)[$[#@K)I^C#=C#0()@-@)@@NC )@@G@@@@@@@@'^@@@@R;)@@AR#@@@HA#@@@@[[@@@@)80@@[R#0@@@/@KK[YAM@@@@)[\[F#@@K)#KND )@@G@@)^^C[[]@5]@/R#@@@@'^@@@@>8)@^@AF/@@@-8)@K)RF?@@@AFN@@@R@0@[#RFK@@AAN@@@@NE )@@G@@)[8[F@^C@@K^[]@.]@8@@@@@R#K@@@AFK@@@/@KK[9'^@@#UR8)@@[R@0@@C'^@@@@/K@@@@NF )@@G@@/K@K[YAO@@@@)][[EK)IK)LEKDCKCCK]]@@@CTI@@[/K@@]M(^I@@#RB?@@@'^@@@@R;)@@@NG )@@G@@'^@@@@A#)@@@)8K@@]AP@@@@)]E[EK[]@K^@K)N@@@@@@@@@'^@@@@[TI@@[/K@@]H%@@@@HNH )@@G@@RVY@@[RB!@@@R#K@@K/K@@]M:[@@@GAQ@@@@)]N[#]@.][KK)OK^@()@-@)@@@@@@@'^@@@@NI )@@G@@R;)@@A/K@K[9/[K@]T[[W@@@H9K@@[C[W@@@RF@@@@AR@@@@)]V[F#@[]@H]@KK)^^C#OC#)NJ )@@G@@)8)@@[R#)@@@'^@@@@>80@^@[DG@@@-80@K)RF/@@@AFS@@@RFK@@AAS@@@@)]=[F]@9@^C@NK )@@G@@@K^[]@/@@@@@AFK@@@/@KK]&'^@@#UR8)@@[R@0@@C'^@@@@/K@@@@/K@K[9A#0@@@AT@@@@NL )@@G@@)]![#][ ]@.][KK)OK]=]M^]@@@@@@'^@@@@R;)@@@/[K@#A[[X@@@H9K@@[C[X@@@RFK@@@NM )@@G@@'^@@@@AU@@@@)]5[F]@K[]@L]@.]@L]@K@@@CPJ@@]RB.@@@RB?@@@RFK@@@AF/@@@-8)@08NN )@@G@@=8)@@C-8)@0)RF?@@@AV@@@@)]"[E^C#-]@9#@[]@H@K)J@@A#@@@@/K@K]&AF8@@@RF0@@ANO )@@G@@A#)@@@)8K@@]R#K@@@ARJ@@][PI@@]AW@@@@)#B[EES@CKCCKB]^[2^@)-@C[DG@@@-80@K)NP )@@G@@RF/@@@A#0@@@)8)@@[R#)@@@'^@@@@R;)@@AR#@@@HAX@@@@)#K[EK)HK)^[@K0@K)#K)J@@NQ )@@G@@R#@@@@AFS@@@RFK@@A/^@@#H OJ@@]RRJ@@]RB/@@@'^@@@@>80@^@AY@@@@)#T[F@[#@[]@NR )@@G@@H@K0@K) K0@@[ @@@ACXH@@@AFK@@A/@K@#:RFN@@@ @@@@AN[@@@#/K@@@@/K@K]&AZ@@@@NS )@@G@@)#+[F]@KK^C[OC[[@^@@@@@@/K@@#>%[@@@H/K@K#U: Y@@#RB!@@@RVX@@@/K@@#&C Y@@#NT )@@G@@RB?@@@BA@@@@)#:[F#@@K)[K^@K^C ^@@@@@/K@@#'A#W@@@/@KK#UP;K@@[/@KK#U/GK@^KNU )@@G@@'^@@@@R80@@@')]@@BBB@@@@)#4[#]@H#@[@K0@K) K0@K)LEKD@@@R;)@@@'^@@@@ABK@@ANV )@@G@@RZX@@@AFK@@A/@K@#' @@@@ARFS@@@BC@@@@)#/[F][@()@-@%-@C@-@C-@WR#)@@@AF/@@@NW )@@G@@-8)@08=8)@@C-8)@0)RF?@@@'^@@@@R;)@@A'^@@@@BD@@@@)^ @'K)IK0@^C@1@@@)@A@C@NX )@@G@@@@@@@@@@@@@@/K@K#UR;K@@@AFS@@@R@0@[^RFK@@AA#0@@@)8)@@]BE@@@@)@B@L#@^@@@@NY )@@G@@)^G@2K)^^@K)Q@@@@@'^@@@@R;K607/K@K^GC^X@@#C^W@@@/K@@@@/S@@@@/K@@#4BF@@@@NZ )@@G@@)^M[N][W^C[[@@K@@@/K@K^N:@@@@[O;K@@[RSY@@[/K@K^N(^I@@#RB?@@@R;K@@@/K@@@@OA )@@G@@'=@@@@BG@@@@)^W@N]@L@@@@)@D@K*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@OB )@@G@@@@[@@[/K@@^SRB-@@@BH@@@@@@^@@]@@A@@S@@6@@A@[I@@@@@@@@F@@@@^YGPX$INTOBLK OC )@@G@@GPX$GETARG GPX$PA GPXB2$ GPXT3$ GPXT1$ GPXTR$ OD )@@G@@GPX$POPTOP GPX$ALLB GPX$NEWCELL GPXPARNUM$ GPXPUTPAR$ GPXB4$ OE )@@G@@GPX$MERGE GPXSCAN$ GPXTRNUM$ GPX$POP GPX$NEXTRAN GPXCECHAIN$ OF )@@G@@GPX$RETTRAN GPXT2$ GPX$NEWBOT GPX$EXERROR ERR$ GPX$SPLIT OG )@@G@@@@[@@@@@@@@@GPX$MATCH @@[@@@@@@@[YGPX$ASSEMBLE@@[@@@@@@@[9GPX$GATHER OH )@@G@@@@[@@@@@@@]&GPX$AS @@[@@@@@@@^GGPX$AC @@[@@@@@@@^N@@@@@@@@@@@@OI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[E^C@^[@K^C@L#@@@@@@@AB)@@@R#X@@[RBS@@@'^@@#