@CAT,P 1021-003-006.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1021-003-006,,,130154053241,000 )@@G@@**PF**@@@@'B@@@@@@@@@@@[@^^@@@]FE /^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@AI )@@G@@@@@@@[@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@GAN )@@G@@CVNM @@@@@@@@[@@@ @ @@@[@@@@[D@@@@W@N4,FNESTRG AO )@@G@@@@@@@@@@[@@@ @ @ @ @@@@[I@@@@XDCC]C FSIRASM @@@@@@@@[@@@AP )@@G@@ @ @#@^]@@@A4@@@@YRM2ECAFPLEX @@@@@@@@[@@@ AQ )@@G@@@ @K@ @@@@]B@@@@>FO3L[QGEXFL @@@@@@@@[@@@ @ @1@ @@@@]7AR )@@G@@@@@@$MI,'][GEXDB @@@@@@@@[@@@ @ @&@ @@@@AW@@@@%DF?0]CGAS )@@G@@DEBG @@@@@@@@[@@@ @ @N@ @@@@]<@@@@0>B7T]NGEXER AT )@@G@@@@@@@@@@[@@@ @ @O@ @@@@[?@@@@3CFB_]TGEDIT @@@@@@@@[@@@AU )@@G@@ @ @Q@ @@@@@#@@@@44L),]TGLIST @@@@@@@@[@@@ AV )@@G@@@ @G@ @@@@](@@@@47L-4]TGUPDT @@@@@@@@[@@@ @ @@@[@@@@@[AW )@@G@@@@@@7)L=-]TGCONT @@@@@@@@[@@@ @ @[@]@@@@]&@@@@7-C=H]UGAX )@@G@@PLSAW @@@@@@@@[@@@ @ @>@ @@@@[]@@@@-LNOADUFEXECMACRO AY )@@G@@@@@@@@@@]@@@ @[@@@[@@@@@C@@@@+NDF8ENFNEWNAMES @@@@@@@@[@@@AZ )@@G@@ @ @J@ @@@@@O@@@@+VCXUGGFCOPYRIGHT @@@@@@@@[@@@ BA )@@G@@@ @#@^@@@@@J@@@@+\C89[DGCOPYMAIN1 @@@@@@@@[@@@ @ @X@ @@@@[TBB )@@G@@@@@@+"C"/[PGEXCDS @@@@@@@@[@@@ @ @5@ @@@@@-@@@@=RHC^][GBC )@@G@@PLTVDS @@@@@@@@]@@@ @[@@@[@@@@[Q@@@@=8GX2]#GONUNIT BD )@@G@@@@@@@@@@]@@@ @[@@@[@@@@@P@@@@&IF:!]BGDSECTS @@@@@@@@]@@@BE )@@G@@ @[@@@[@@@@CT@@@@&@USE 1,DUMP. . DS )@@G@@______@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DT )@@G@@@@]@@^@@@@@$@@@@[- ENDFILE 1 DU )@@G@@ @@@@[+ CALL ERTRAN (6, '@ADDDV )@@G@@,E 2. . ') ]@#^8!@ADD,E 2. . ______DW )@@G@@______@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[ RETEB )@@G@@URN @@@@[&EC )@@G@@50 FLD (18, 18, HEAP (HEAPPT, 3)) = PTR (HASH) ED )@@G@@ @@@@[$ PTR (HASH) = HEAPPT EE )@@G@@ @@@@[* HEAP (HEAPPT, 1) = NAME (EF )@@G@@1) @@@@[( FLD (0,EG )@@G@@ STUB, HEAP (HEAPPT, 2)) = FLD (0, STUB, NAME (2)) @@@@[%EH )@@G@@ FLD (0, 18, HEAP (HEAPPT, 3)) = TNAME EI )@@G@@ @@@@[: EJ )@@G@@ @@[@[:C RETRIEVE STATUS BITS EK )@@G@@ @@@@[: EL )@@G@@ @@@@[:EM )@@G@@60 GEN = .FALSE. EN )@@G@@ @@@@[? ERR = .FALSE. EO )@@G@@ @@@@[! IN = .FALSE. EP )@@G@@ @@@@[, TNAME =EQ )@@G@@ FLD (0, 18, HEAP (HEAPPT, 3)) @@@@[\ER )@@G@@ FLD (35, 1, GEN) = FLD (33, 1, HEAP (HEAPPT, 2)) ES )@@G@@ @@@@[0 FLD (35, 1, ERR) = FLD (34, 1, HEAP (HEAPPTET )@@G@@, 2)) @@@@[1 FLD (35, 1, IN) = FLD (35EU )@@G@@, 1, HEAP (HEAPPT, 2)) @@@@[2 EV )@@G@@ @@[@[2EW )@@G@@C PERFORM UPDATES EX )@@G@@ @@@@[2 EY )@@G@@ @@@@[2 GO TO (70, 80, 90, 100), EZ )@@G@@UPNO @@@@[3 FA )@@G@@ @@@@[3FB )@@G@@70 GEN = .TRUE. FC )@@G@@ @@@@[4 FLD (33, 1, HEAP (HEAPPT, 2)) = 1 FD )@@G@@ @@@@[5 RETURN FE )@@G@@ @@@@[6 FF )@@G@@ @@@@[6FG )@@G@@80 ERR = .TRUE. FH )@@G@@ @@@@[7 FLD (34, 1, HEAP (HEAPPT, 2)) = 1 FI )@@G@@ @@@@[8 RETURN FJ )@@G@@ @@@@[9 FK )@@G@@ @@@@[9FL )@@G@@90 IN = .TRUE. FM )@@G@@ @@@@[' FLD (35, 1, HEAP (HEAPPT, 2)) = 1 FN )@@G@@ @@@@[; RETURN FO )@@G@@ @@@@[/ FP )@@G@@ @@@@@@FQ )@@G@@@@#@@ @@@@@^@@@@[/100 RETURN FR )@@G@@ @@@@[. FS )@@G@@ PECIFIED MORE THAN ONCE)@@[@@[@@[@@@@@F@@@@@@@@@FT )@@G@@S1TSV2@#E@@#@@F@@[@@@@@@ERROR @#V@@#@@F@@]@@@@@@ADD @^]@@](5X,027HTHERFU )@@G@@E IS NO VARIABLE NUMBER,I6) (5X,031HTHERE ARE NO VARIABLES NUMBERED,I6FV )@@G@@,001H-,I6) (5X,027HTHERE IS NO VARIABLE NAMED ,2A6) (053H ***** ERRORSFW )@@G@@ IN VARIABLE SPECIFICATIONS FOR STJBANK ,5A6) (5X,008HVARIABLE,I5,028HFX )@@G@@ IS SPECIFIED MORE THAN ONCE) @@F@@@@@@@@@S1TSVL@]S@@#@@[@@@@@F@@[@@@@@@FY )@@G@@ERROR @]>@@#@@F@@]@@@@@@ADD @]'@@#RESERVE INCLUDE EXCLUDE FZ )@@G@@BY @@@@@B@@@@@@(053H ***** THE ABOVE CARD IS NOT ONE OF THE ALLGA )@@G@@OWED TYPES) ALPNUM______NUM ______(001H(,I2,006HX,1H#)) (058H ***** GB )@@G@@ERROR IN SPECIFICATION ON THE ABOVE CARD NEAR THE #) (060H ***** A FIELGC )@@G@@D ON THE ABOVE CARD HAS MORE THAN 12 CHARACTERS)(053H ***** THE LAST FIEGD )@@G@@LD IS INCOMPLETE ON THE ABOVE CARD) @@@@[K@@@@@@@@@@@AM EXCLUDGE )@@G@@INCLUDB A @@@@@]' , - @@F@@A@@@@@@S1BADC@##@@]@@@@@@GF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[C]T!TPF$ @[C]T5@[C]T.GG )@@G@@@[C]U @[D]UH@]C]UQ@[C]UY@@@@@@@@@@@@@@@@@@@@@@@[@@F@@]@@@@@@S1HEDC@[M@@#GH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(1H0) (1H ,15X,038HMADISON ACAGI )@@G@@DEMIC COMPUTING CENTER BANK,A6,018HPROCESSOR RUN ,A6,2X,A6,A2/) GJ )@@G@@@@@@@A@@@@@#@@@@@@@@F@@@@@@@@@S1PHED@[6@@#@@@@@@@@@@@@@@@@@@@@@[[*@@@@@@GK )@@G@@@@@@@@@@@@@@@@@@@@BANKA BANKB NEWBANK @@@@@@@@@@@@@@@@@@GL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@^RAG!)@1 /- 6 A7-]RAL^)^>BNV@@@___@@@___@@@___GO )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___GP )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@_________@@@@@@MERGE ______GQ )@@G@@(021H BANKMERGE TERMINATED) (066H ONLY ONE OF THE OPTIONS I, U, P, ANDGR )@@G@@ S ARE ALLOWED WITH BANKMERGE)(019H SPECIFICATION FOR ,A6,A2,022HIS MISSGS )@@G@@ING OR IN ERROR) (099H EXTRA SPECIFICATIONS ARE ON THE BANKMERGE STATEMGT )@@G@@ENT - ONLY BANKA,BANKB,NEWBANK SPECS CAN BE USED) (13A6,A2) (5X,13GU )@@G@@A6,A2)M ______(038H ONLY ONE RESERVE STATEMENT IS ALLOWED) (084H GV )@@G@@RESERVE STATEMENT MUST BE IN THE FORM RESERVE M WHERE M IS A NON-NEGATGW )@@G@@IVE INTEGER)(066H ONLY INCLUDE, EXCLUDE, BY, AND RESERVE ARE ALLOWED WITGX )@@G@@H BANKMERGE)(056H INPUT ERRORS HAVE OCCURRED WHILE READING THE ABOVE CARGY )@@G@@D) (051H INCLUDE AND EXCLUDE STATEMENTS CANNOT BOTH BE USED) (037H GZ )@@G@@***** TROUBLE EXPANDING BLANK COMMON) (036H NAME OR TYPE OF BY VARIAHA )@@G@@BLE NUMBER ,I3,054H IN BANKA DOES NOT MATCH WITH THAT OF VARIABLE NUMBERHB )@@G@@ ,I3,009H IN BANKB) (016H VARIABLE NAMED ,A6,A2,038H IS INCLUDED FROHC )@@G@@M BOTH BANKA AND BANKB) (040H EVERY VARIABLE IS EXCLUDED FROM NEWBANK) HD )@@G@@(099H ALL VARIABLES FOR OUTPUT TO NEWBANK ARE FROM THE SAME INPUT BANK AHE )@@G@@ND NO MERGING IS TO BE PERFORMED) (057H ONE OF THE INPUT BANKS DOES NOHF )@@G@@T CONTAIN ANY OBSERVATIONS) (039H DUPLICATE BY VARIABLE VALUES FOUND IHG )@@G@@N ,5A6,037H FOR SUCCESSIVE OBSERVATIONS NUMBERED,2I6) (037H OBSERVATIONSHH )@@G@@ NOT IN SORTED ORDER IN ,5A6,022H AT OBSERVATION NUMBER,I6) (030H ***** HI )@@G@@CALLING ERROR TO S1SJOC)(030H ***** CALLING ERROR TO S1SJOB)(024H0BY VARHJ )@@G@@IABLES - VALUES)(I10,6X,G12.5) (I10,9X,A6) @@@@@@@@@@@@@@@[[* HK )@@G@@@@@@@[@@[@@[@@@@@]@@@@@#@@@@@^@@@@@ @@@@@ARESERVINCLUDEXCLUDBY EA HL )@@G@@EB SKIP @@I@@I@@[@@M@@[@@C @@F@@@@@@@@@COMPAR@G&@@]@@F@@@@@@@@@HM )@@G@@OUTPUT@HQ@@]@@[@@@@@F@@^@@@@@@MOVE @H-@@]@@F@@#@@@@@@PRNTBY@I]@@]@@@@@@HN )@@G@@$MAIN$ @@^@@^@@@@@]@@@B@ @@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@BANKMERGE [=HERFBLANK$COMMON@@@@@@ERU$ HQ )@@G@@I/!^PGFORIO$1 E%*GQFFORIO$2 KQ+]EGFORIO$4 E%.GQFINFOR HR )@@G@@J<1EPEINFOR$ B.1GNCNFFTI$ K@[FMENFFTO$ E^NEXDNFTCH$ HS )@@G@@HS?D]FNISYM$ K@"FMENOSYM$ CCFCQDNTAB$ CCRCQDSQRT$ HT )@@G@@E"4[OBSYSERR DMIDC/S1BAAI JYQEPES1BADC K.R^NGS1BAPR HU )@@G@@JDFCS1REEL ^^'^VES1SCAN @JVD^FS1SERR L+$GMES1SJIN HY )@@G@@NH)DLES1SJOB NOIDLES1SPCT @J$D^FS1TSVL J<:EPES1TSV2 HZ )@@G@@J<,EPES1VLU M$-^R URDATE C$/B DURNPAR L,GASAURPRC2 IA )@@G@@LB=BCAURPRTM LCFBCAURRNID DF(]DAUWERR$ C$3 CDUWERU$ IB )@@G@@BY@BKF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ID )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$IBANK @@@@@?$DBANK @]^@@0@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]BK@@[@^@AD@C@@@@@["IG )@@G@@K@@[@^@@ @ID@@@@[;K@@[@^@@R@II@@@@@YK@@[@^@#[@I>@@@@@GK@@[@^@NT@L&@@@@@SIH )@@G@@K@@[@^@C!@=_@@@@@VK@@[@^@#9@!?@@@@@%K@@[@^@@*@1>@@@@@-K@@[@^@@"@2H@@@@@PII )@@G@@K@@[@^@#*@3F@@@@@PK@@#@^@@K@63@@@@]^K@@[@^@@B@7#@@@@[8K@@[@^@@J@7E@@@@][IJ )@@G@@K@@[@^@]!@7T@@@@@JK@@[@^@].@'A@@@@@=K@@[@^@[C@.#@@@@@DK@@[@^@T5@"F@@@@@0IK )@@G@@@@@[@^@ @[S@@@@@@9@@@[@^@^S[X@@@@@[(@@@[@^@ &[-S@@@@[O@@@[@^@@N[&"@@@@[OIL )@@G@@C@@#@^@@@@^L@@@@[L@@@[@^@^U[$L@@@@[?@@@[@^@@L[::@@@@[<@@@[@^@@8[:/@@@@[XIM )@@G@@@@@[@^@@J[?4@@@@@_@@@[@^@@ [!#@@@@@/@@@[@^@@V[!C@@@@[5@@@[@^@@\[!<@@@@[ IN )@@G@@@@@[@^@^_[,M@@@@[)@@@[@^@]#[3L@@@@[F@@@[@^@BX[5O@@@@[&@@@[@^@ W[/1@@@@[]IO )@@G@@@@@[@^@[N]]H@@@@[U@@@[@^@@Z]#)@@@@@6@@@[@^@#H]#_@@@@[2@@@[@^@BH]BG@@@@[\IP )@@G@@@@@[@^@^3]IT@@@@@3@@@[@^@ <]NG@@@@@M@@@[@^@[7]S\@@@@[C@@@[@^@@3]U&@@@@[RIQ )@@G@@@@@[@^@[,]VT@@@@[I@@@[@^@@^]XB@@@@@@@@@[@^@)O]XF@@@@]B0@@]@ @^)^@@@@@@["IR )@@G@@0@@]@ @@[^^)@@@@[;0@@@@ @@[^^-@@@@[;0@@]@ @@]^^+@@@@@Y0@@]@ @@Y^^=@@@@@GIS )@@G@@0@@]@ @O9^ ]@@@@@$0@@]@ @@>^T;@@@@@S0@@]@ @]T^U)@@@@@V0@@]@ @@+^W9@@@@@%IT )@@G@@0@@]@ @@E^XV@@@@@-0@@]@ @@ ^X>@@@@@P0@@]@ @@Y^X%@@@@]^0@@@@ @@[^YC@@@@[8IU )@@G@@0@@@@ @@]^YD@@@@][0@@@@ @[Y^YF@@@@][8@@]@ @@@@^L@@@@@J0@@]@ @@M^Z(@@@@@=IV )@@G@@0@@]@ @@^^Z;@@@@@D0@@]@ @C.^Z_@@@@@0)@@@@ @@7^*/@@@@@9)@@@@ @]:^(3@@@@[(IW )@@G@@)@@]@ @]-^?Y@@@@[O)@@]@ @@]^,_@@@@[L)@@]@ @]U^\[@@@@[?)@@@@ @[D^1V@@@@@!IX )@@G@@=@@@@ @@[^2=@@@@[<)@@@@ @@!^2>@@@@[<*@@]@ @@@@#J@@@@[X)@@]@ @@I^3M@@@@@/IY )@@G@@)@@@@ @@G^3)@@@@[5)@@@@ @@O^3?@@@@[5*@@]@ @@@@^L@@@@[ )@@@@ @@T^4@@@@@[)IZ )@@G@@)@@@@ @@H^4T@@@@[F)@@@@ @A"^4&@@@@[&)@@]@ @]$^;=@@@@[])@@@@ @@L^"F@@@@[UJA )@@G@@)@@]@ @@[^"W@@@@@6)@@@@ @[W^"X@@@@[2)@@@@ @]^^_9@@@@[\)@@@@ @[V [.@@@@@3JB )@@G@@)@@@@ @[? #S@@@@@M)@@@@ @@D ^@@@@[C)@@@@ @@D H@@@@[R)@@@@ @@- Q@@@@@@JC )@@G@@)@@@@ [F/ 7@@@@@@*@@]@ @@@@^L@@@@@#=@@@@ [[*AL3@@@@@@@@@@@@@@@@@@@@@@@@JD )@@G@@CLAUS$ @@0@MBDCOD$ @@S@@@ELT$ @]>@@HERSAV$ @]^@@@JE )@@G@@EXIT @@0@@AFHS1$ @]N@O5FHS10$ @]'@@CFHS2$ @]N@O7JF )@@G@@FHS20$ @]'@@DFNCTB$ @]N@N]GETSPC @[5@@GHDTBL$ @]'@[@JG )@@G@@IOCOD$ @]'@CBNBFGT$ @@G@ TNBFMG$ @@G@ WNBFRL$ @@G@B"JH )@@G@@NBFRS$ @@G@B3NBLNK$ @@0@@:NCALC$ @@0@@2NCCC$ @@0@@/JI )@@G@@NCNV9$ @]'@[JNCOD$ @@!@@#NDBCV$ @@0@C#NDBIN$ @]'@[HJJ )@@G@@NDBLT$ @]'@]0NDBSF$ @]'@[ENDIAG$ @@0@KRNDIG$ @]'@BHJK )@@G@@NDOUT$ @@0@SUNERR2$ @@0@O]NERR3$ @@0@OONERR4$ @@0@OVJL )@@G@@NERU$ @@0@L.NFAR$ @@0@L[NFCHK$ @@G@]$NFCI$ @@0@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KT )@@G@@======@@^@@ @@@@@@@@@@@@@@ ]+T@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KU )@@G@@@@@@@@@1$^WG64 @@@)]@@@@@BU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^?@@A@@A@]TKV )@@G@@@BR@@@@@D@@^@@@#Z=@@@@@@@^@@@]@^@P@[@ @@@]K^@Q@)@@@@@@@@@@@@@@@@@@@@@@@@KW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#;@C@@4\@GF[*;[[G)@K@F;KY )@@G@@)@M[@') 9]%B@@@___@@P^@E@@E^@%@@E^[S@#M^[0@^Q^R^@]"^V:@#R^Y/@#S^+(@[3^&HKZ )@@G@@@@W^*R@@E^(!)@E^@@)@F^@Z)@=^@4)@I^[+)M]^ ])@L^VU)@N^Y()@Q^+N)@G^&[)@R^*@LA )@@G@@R#V@@@R#H@@@1@H@@@/K@@CA%@@^^T/K@@CCA#@^@E/KF@@]A]0^[3A#@^@@/,0@_+@@[^@GLB )@@G@@@@^^[2R_@^@@'^K[T?'^@[T0R]0^[3/KF@@]R#V@@@R#@^@FA#H@@@/KF@@]/K@@@@'^@@FILC )@@G@@'^@@F-A#)^@0/,0@_+@@[^]5@@^^[2'^@[T0/,0@_+@@[^@:@@A^[2'^@[T0RB@@CQR#W@@@LD )@@G@@()G@@@/K@@C?;GK@@A;C)@@Y[@K^#JC I^#-O#@^#N/K@@C0;CK@@A[@K^#JC G@@[O#@^#OLE )@@G@@AB@@GFR@K^^UO@K@@K @@@@FR;0@@ R#L)@@R;)@@ @@@@G;?@@@A/@@@C_;)@@@YA#F^@4LF )@@G@@O]0^#N8#)@C78#0@C5R#K@@F @@@@GW@@^^V)@K^^W)@@^^W;*)@@Y;?K@@AA#K^[TA]0^@3LG )@@G@@O]0^#OA]0^@ZR#@^#NA#@^#IR]0^^U @@@@[R_@@@#A#@@@ER#@^#J/@@@F:;G@@@AA#@^#JLH )@@G@@;CK@@YR#)^#I)@)^@%O#)^#NA#)^#I;?)@@0)@)^[0R#)^[49*%^[SO])^#ORBX^#R'^H@@@LI )@@G@@/K@@DK/K@@@@'^@@D(R_1^@@R#K^[5A#V@F;AB;)F;^@V)F;/K@@D-/K@@@@K[@^@Z?[K^^XLJ )@@G@@/K@@D1C[K^[.[[U^[SO])^#NC.K@@ [[K^@ZA#E^[SO])^#N/K@@D(/K@@@@C.@@@GR#@^[8LK )@@G@@N@K^#C'^@@D-O@K^#N/K@@D5/K@@@@C.@@@KR#@^[9N@K^#D'^@@D-O@K^#N/K@@D//K@@@@LL )@@G@@C.@@@MR#@^['N@K^#E'^@@D-O@K^#OR#@^[;A#E^[SO])^#N/K@@E#/K@@@@'^@@EO'^@@D/LM )@@G@@'^@@EW'^@@D/'^@@ES/K@@EH/K@@@@R#@^["'^@@E)/K@@EO/K@@@@R#@^[_'^@@E)/K@@ESLN )@@G@@/K@@@@R#@^]@'^@@E)/K@@EW/K@@@@C.@@@#'^@@D(/K@@E)/K@@@@'^@@E*'^@@E!/K@@E=LO )@@G@@/K@@@@R#@^][C.@@@]'^@@D(/K@@E*/K@@@@C.@@@GR#@^[/N@K^#F'^@@D-O@K^#N/K@@E!LP )@@G@@/K@@@@'^@@E*'^@@E!'^@@E!/K@@E4/K@@@@'^@@EO'^@@D/'^@@EW'^@@E='^@@ES/K@@E9LQ )@@G@@/K@@@@'^@@EO'^@@E='^@@EW'^@@D/'^@@ES/K@@F@/K@@@@'^@@EO'^@@E='^@@EW'^@@E=LR )@@G@@'^@@ES/K@@FB/K@@@@A])^@)A]0^[3A]0^@-9*@^@+9*)^@=9(@^@&^@K^@*A@K^@(/K@@FILS )@@G@@/K@@@@R])^@)R]0^@-9?@^@+9?)^@=9!@^@&N@K^@*R@K^@(/K@@FS/K@@@@RB@^@-A#@^#GLT )@@G@@L8@@@[RB!@@@P;)@@[RB,@@@R#,@@@A#)^]P/K@@F-R#@^[1A#E^[S9?@^[69*F)F;/K@@F2LU )@@G@@R])^#N/K@@GJ/,0@_+@@[^[S@@-^[2R])^@3P])^#NR@K^^UC/[=@4'^K[T?8])@F8/K@@@@LV )@@G@@'^@@FI'^@@F-R])^#OA])^#JR#@^@FO#@^#NA#@^@F0@@^@E/K@@HQN8K@#CRBK^#GRF!@@@LW )@@G@@/^)@GVO#K^#N/K@@GR:@)^^Y/K@@GTRBH@@@R]0^^ZA]0^[W @@^@3AB)^@39!@^]P9(@^[XLX )@@G@@C[@^]R[[@^[Z?8)@[@/K@@G!9!@^]S9(@^[)C[@^]U[[@^[+/K@@G19!@^]V9(@^[)C[@^]XLY )@@G@@[[@^[+9!@^]]9(@^[(^H@@@/K@@HD9!G@@@[ K^#GC[K^#L9(@^[&C[K^[1LZ )@@G@@[[K^[*^@K^#K/,0@_+@@[^[W@@?^[2R_@^@3'^K[T?'^@[T0C[@^[&[[@^]PN@K^#K8KK@GQMA )@@G@@/K@@HQ9!@^]Y9(@^[&9!@^] 9(@^[*9!@^]B9(@^[%/,0@_+@@[^[W@@,^[2R_@^@3'^K[T?MB )@@G@@'^@[T0/K@@HU/,0@_+@@[^]D@@0^[2'^@[T0C[@^@E:[@^^T/K@@H-F[K^@EG[K^@F/DK@H%MC )@@G@@/[K@H%/,0@_+@@[^]O@@2^[2'^@[T0'^@@FS;?@@[C(@@^#J/KF@@#/K@@GF/,0@_+@@[^])MD )@@G@@@@4^[2C/@^@E'^K[T?'^@[T0'^@@FS'^@[@$'^@@FI @@^#JR#FK@@A#@^]P(@FK@[/K@@H;ME )@@G@@R#K^@FO#K^#NA#K^@FRB:@@]CDV@@]/@)@I[RB"@@[A#0^#G/K@@GP[[K^@3/,0@_+@@[^]8MF )@@G@@@@'^[2R_@^@3'^K[T?'^@[T0/K@@HX/S@^^)C@F@@[&#FK@@'=@@[Z/KF@@#/S@^^+AA0^^C@0^*9C^J^T;0@G@@#'=@@@AMJ )@@G@@*4G@@#'^@[MBC@0^*9C^J^T;(?G@@C ^G@@C ?G@@CN^W@@DN^?@@^^^?@@DN^?@@#^C?@@DMK )@@G@@C@)^*':8)@@]/K@@I(CC?@@GOB?@@C/@)@I>G8)@@[K^?@@D**J@@@/K@@I(;O)@@=O;0@@VML )@@G@@W8)@@WT8)@@W!C?@@D/K@@JPK^?@@DOF\@@@O;)@@]?C?@@D/K@@JB*4G@@C/K@@JW'^@@Q_MM )@@G@@(@@@[[/K@KI!R;K@@[A7W@@C^^W@@^'^@@X>/K@KI!/K@@@@C@0^*9C^J^T;*@G@@D/K@@KHMN )@@G@@'^@@R]^^W@@D^^W@@^(?G@@C/K@@J,R;)@@K[0?@@#'^@@I!C0W@@C/K@@KM @G@@E CG@@GMO )@@G@@ @G@@FN@)^*'^0?@@CC^?@@C!C?@@D'^@@I!C@K^*':8K@@[*@G@@E/K@KJZRB?@@CK^?@@DMP )@@G@@NC\@@@^C?@@GN@\@@@^@?@@EG8)@@[[^?@@CC(G@@E?9@@@]/K@KJZC5G@@E%9@@@_/K@@L/K@[MYD[@^RPND )@@G@@+[J^T;/ V@@#C^J^T;/@F@@#1@J^T;/K@@M;RF?@@[AF)^RJC[J^T;C8@^RH'=@@@J;G@@@>NE )@@G@@;D@@@+/>@@M8R;@^RJR#;@@[ 4G@@#*@J@@@'=@@@#R7G@@#98F@@#/\0@N>/KF@@#*?G@@]NF )@@G@@/KF@@#9!G@@C99@@NFC1G@@C?9@@@#/K@@NFA]0^RR/,0@V:@@@@@@@@@@@@R]0^RR0@G@@#NG )@@G@@'=@@@A*4G@@#/\0@N=R#0^*9R#:@@[C^J^T; 4G@@#(@I@@@/K@@NQA]0^RR/,0@T?@@@@@@NH )@@G@@@@@@@@R]0^RRD[@^RP)[J^T;[[Z^T;9!G@@C99F@@#(4G@@C/K@@NZC G@@D'^@@T=C G@@^NI )@@G@@'^@@T= @G@@C @G@@D/KF@@#RF?@@@AF)^RGC@@^R^[@@^RN'=@@@I0@@^RO'^@[PV/KJ@@@NJ )@@G@@/K@@@@1@@^RO/K@@N4A]0^RQ @@^RN9*@^RS9*)^RU9(@^RWR#K^ROG8K@@[[@K^RO!8K@@>NK )@@G@@/K@@O[(^H^T;/K@@N5/,0@MV@@@^RO@@@^RP@@@@@@C@K^RO/K@@N5*@@^RNAA0[@$R]0^RQNL )@@G@@9?@^RS9?)^RU9!@^RW/K@KN?/K@@@@C @@OC[[@^SH[ @@OH/K@@OJ/K@@@@ @@^SH/G0[MYNM )@@G@@!80@@>/K@[MY[@0^*9C@Z^T;+@K^S!/^)@QUR;!@@@/^)@QX'^@@Q,A#0^SIR;@^SI'=@@[GNN )@@G@@R#0^*9R;@@@[A7J^T;R7@^SO*0J^T;/@@@QO0@@@O ?G@@C*^G@@D/K@@W[PB )@@G@@'^@@R]C@0^*9C^J^T;^^W@@D^^W@@^'^@@L_C1G@@C*4G@@C/K@@WD0@G@@#'=@@@A*4G@@#PC )@@G@@/K@@X+C9K@@_=9@@@[[1W@@E/[@@WM!9@@@#/K@@WM'^@@L&*4G@@C'^@@L&RBW@@CR3?@@CPD )@@G@@:8)@@^%CW@@D/K@@W*'^@@USR;K@#)AFW@@D*4G@@C/K@@W$'^@@Q_*@@@[[/K@@W=0@G@@#PE )@@G@@'=@@@A*4G@@#'^@[MB/K@@W$R;K@@[A7W@@C^^W@@D ^G@@CC G@@^*4G@@C'^@@T= 4G@@CPF )@@G@@C^W@@CC1G@@E[!@^T>K^W@@DG8K@@[[^W@@CC G@@GG9@@@[[ G@@G[-@^T>;L@@@A[>@^T>PG )@@G@@C[@^T>[[I@@@[[G@@EC1G@@C:9@@@#/K@@XZ:9@@@^/K@@X^'^@@X9C1G@@C:9@@@#/K@@X PH )@@G@@'^@@US'^@@L_*4G@@#'^@[MBC G@@^'^@@T= @G@@^ @G@@C @G@@D/KF@@]C1J^T;%9@@@-PI )@@G@@/K@@XV0@J^T;/K@@XQC@@^T&'=@@[S/KF@@]C[@^T&RBJ^T;[[G@@@'=@@[>/KF@@]C@@^T4PJ )@@G@@'=@@@I'^@[PV/KF@@]C9@@@^[1G@@C/K@@X^*^@@N?/KF@@]'^@[MB/K@@@@C@0^*9C^J^T;PK )@@G@@'^@@L_*4G@@#'^@[MBC0W@@CC@!^S^[0?@@#C9@@#)C0W@@C:8K@@]/K@@X6C9@@#/C0\^T;PL )@@G@@?8)@@KG9@@@^[DG@@^'=@@@[/K@KX>/K@@@@C0?@@CC9K@@#%8)@@[C9K@@^[1W@@CC[I^S^PM )@@G@@[1G@@#%9K@@#/K@KX9RB?@@C?8)@@]/K@KX9[C?@@D'^@@VT/K@KX9/K@@)(/K@@)(/K@@)(PN )@@G@@/K@@)-/K@@Z2/K@@Y=/K@@)[/K@@<>/K@@=C/K@@=H/KH@+>/KH@+%/KH@+\/KH@+4/KH@+9PO )@@G@@/KH@+"/KH@<#/K@@-1RF@^*/RB0^*/')G[K<8#@@Y+O;0@@[R;@@@ AB0^*/AF@^*//KF@@@PP )@@G@@[[K^T'%9K@@T/K@@Y5C K^<&*@@@@LH9K@@[[DK^<,C9@@@@W9@@@A;[@@@MD[K@@LG9K@@ PQ )@@G@@; @@@MG9@^*.[[@^*/ C@^<:'^@[L+'^@[L+C K^<&C[@^T':9@@@L/K@@ZP @@@@K?9K@@BPR )@@G@@/K@@Z H9K@@B/,0@YV8^K@Y"C9K@@ /,0@YV;@)@@A;=K@@AG9@@@A8^K@Z[R#@@@KR#)^<-PS )@@G@@C[@^T';^W@@@RBK^*-%9@@@R/K@@ZKC @^<&?9@@@A;)?@@@A#!@@@R7K^<>:8K@@^/K@@)-PT )@@G@@/K@@Y5H9K@@[D8K@@[/,0@YV:8)@@,/K@@Z*/CK@Z:8K@@^/K@@)-/K@@Z2'^@[L+C K^<&C9@@@@PX )@@G@@?9K@@H/K@@)WH9K@@H/,0@YV8^K@)BC9K@@F/,0@YV;G)@@=:80@@ R;0@@0;G0@@#:80@@APY )@@G@@/K@@)V;G0@@#R;0@@ A\0^*WR;0^*.AB0^*W;^0@[]A30^*W;G0@@#R;K@@^'^@[K8;[@@@YPZ )@@G@@8^K@)E;[@@@#RBK^*-[[H@@@/K@@)['^@[L+C K^<&R3K^*-:8K@@[/K@@Z3:8K@@ /K@@ZPQA )@@G@@/K@@)5'^@[L+R30^*-C5@^<>%9@@@[/K@@)1%80@@#'^@@-R/K@@)5%80@@#/K@@)5%9@@@#QB )@@G@@'^@@-R ^@^T5N^0^<&RF0^<&A#0^+]'^@@--'^@@)_R7K^<>:8K@@^/K@@)-/K@@)(/K@@@@QC )@@G@@R#K^-/(=@^T5PJK^<,A#K^-/C1@^*-C5K^<>%9K@@^/K@@-F:9@@@#/K@@-N/K@@-J:9K@@]QD )@@G@@/K@@-J:9@@@#/K@@-N'^@[D,RBK^*-A#.@@@/K@K)_'^@[D:RBK^*-9*.@@@/K@K)_/K@@-RQE )@@G@@R70^<>A30^*WR30^*-A\0^*WRB0^*-AB0^*WR;K@@@'^@[K8/K@K-R/K@@@@ @@^+@ @@^+[QF )@@G@@ @@^-.C9K@@@R;K@@@/K@@-%G9K@@['^@[C=8K0@-?/KH@<#/,0@YV[@)^T6R;@@@#/KI[FA7K^T5QU )@@G@@C1@^*-:9@@@ /K@@='[ @^T5%9@@@[ ^@^T5 @@^+]'^@@--/,0@=\/^K@=>C@)^T6%8)@@,QV )@@G@@/K@@=F()@^T5/K@@=!'^@[D^0@@^+]D[K@@LRBK^*-[[X@@@/K@@=H'^@@)_/K@@=H 4@^T5QW )@@G@@0@@@[# @@@[#RB)^<&P#)@[#OF)^<,AF)^<,R3)^*-P;)@@[AB)^<+A]0^VJR#0^W2A#0^VX @@^VWC[@^+R;@@!:AB@[T1R;@@@FA#@^*'R;@@>TQZ )@@G@@AB@[T(AA0[T?P'0@@]AA0^*X/K@[T'/S@@@@R#@^U)'=@@@HR;G@@@/@@@>UT8@@@AO;@@@[RA )@@G@@A#@^T/S@@@@ @@^U$ @@^VJR;@@$SAB@[T\&'0@@[CDV@@@H9K@@[*@@^U-/VF)@@RB )@@G@@RFF@@@/@@@>:R#F)@@A#@^U*8^K@>2/K@K>+RFF@@@RBV)@@:8@@@#ABK^U$:8@@@]AFK^U$RC )@@G@@?8@@@^/K@@>0P'0@@[/K@K>+/S@@@@9*@^U+R#@^*'!8@@@C/K@@& R#@^*9R\G^T;:8@@@[RD )@@G@@/K@@(HA#)^U=9(@^U>R;@^(MA#@^*/'^@[T*R#K^/K@K>/RF@^U$*@@@@G/KG@@@R#@^W4'=@@@I/K@@&3R#@^U(A\@^U4R#@^U4RG )@@G@@'=@@@IR]0^U(R#@^W3A#F^*.8]0@&:R;@@@*')D^U6R;@@@[A3@^U4R#@^U4'=@@@I/K@[PVRH )@@G@@O8K@@Y @@^*WA4K^*WR8K^*.A^K^*W'^@@(UR#@^VMH8@@@]R#G^VGA#@^U_9*K^U+9*0^U=RI )@@G@@RB0^U*RFK^U*;)K@@MR;)@@ Q;K@@A;@K@@#;=@@@A8#)@$^A#@^V /@0@$I9?@^VD9*@^VARJ )@@G@@R#J@@@A#@^VCR#@^W5'=@@@J9?K^U+9?0^U=/KB@@@R#@^VL/@F@@@:8K@@E/K@@%\/KF@@@RK )@@G@@A@K^VSA])^VTA]0^VU9()^VY9%@^V)9%)^V+[#@^V=9:K^V>9:0^V$A]K^V(A[0^V%R#0^VWRL )@@G@@R]K^VXA#@@@E(@@^VJ'^@@>/ @@@@[H8)@@[R#,@@@;*)@@E;C)@@)A#)^VM/KI@$,/K@@*SRM )@@G@@/K@@(4/K@@(8/K@@(1')D^V7%8K@@ :8K@@,/K@@*^/K@@$9')D^V7:8K@@T/K@@*C:8K@@FRN )@@G@@/K@@*F%8K@@ :8K@@,/K@@(O/%K@$8/,0@(?/K@@(O/K@@$8/%K@$3/,0@(?'^@@>//K@@$3RO )@@G@@R;K@@[A#U@@@/K@@*G @E@@@/%K@*J/,0@(?/K@@*Q')D^V7%8K@@ :8K@@,/K@@*O/K@@*GRP )@@G@@/%K@(+/,0@(? @@^VJ/K@@(+ @@@@M @@@@PR;@@@\R;K@@99*@@@V @@@@G @@@@N')D^V7RQ )@@G@@%8K@@ :8K@@,/K@@*5:8K@@-/K@@*;:8K@@+/K@@*9/K@@*(')D^V7,#0@@H/K@@*.C9)@@[RR )@@G@@H8K@@0S90@@E9-0@@G/ 0@(M;!0@@=/%K@**/,0@(?/K@@(^/K@@**/%K@*Z/,0@(?'^@@>/RS )@@G@@/K@@*ZC'K@@[/K@@*1C"K__"/K@@*1%8K@@ :8K@@,/K@@( %8K@@-:8K@@+/K@@(L/K@@(NRT )@@G@@ @@^VJ/H0@(M*@@@@P/[)@(L/[0@(F0@@@@PD[0@@N[['@@@/K@@(ZO8K@@[O8K@@[O8K@@[RU )@@G@@O8K@@[O8K@@[O8K@@[O8K@@[RB@^U$*@@@@G/K@@&4R#[^V.'=@@@I/K@@&>@@@@@@9,)^V+RV )@@G@@C#@^V=9\K^V>R[0^V%9!)^VY9,@^V)9\0^V$A#0^VWA]K^VXR@K^VSR])^VTR]K^V(R]0^VURW )@@G@@R#K@(U/@K[T' @@@(U/KG@@@O;0@@[:@0^U(/KF@@@Q'K@@ /KF@@[R_@__"A#@^VL/K@@(5RX )@@G@@ @@^VLR;@@@EA<@@%+/K@@(/R;@@@DA<@@%+R;@@@[A#@^VL @@@@K @@@@L @@@@S @@@@IRY )@@G@@R[0^W29(@@@M9(@@@O9(@@@QR;@@@\R;K@@99*@@@V/K@@%D'^@@>/')D^V7%8K@@ :8K@@,RZ )@@G@@/K@@:A:8K@@-/K@@:G:8K@@+/K@@:E/K@@%N')D^V7,#0@@H/K@@%U/,0@:I/%K@%M/,0@(?SA )@@G@@/K@@:2/K@@%M:8K@@./K@@:*/ )@%-/^)@%-C[K@@B:[K^W2/K@@(L @@@@L:8K@@@/K@@%\SB )@@G@@/,0@$N:8K@@-/K@@%%:8K@@+/K@@%!/K@@%6/A)@(LC")__"/K@@%\/A)@(LC')@@[C'0@@[SC )@@G@@/%K@%3/,0@(?/K@@(L')D^V7/K@@%>')D^V7,#0@@H/K@@:]H8K@@0T90@@EG[0@@HG9K@@[SD )@@G@@![0^W6/K@@(I/%K@%5/,0@(?/K@@:2/K@@%5%8K@@ :8K@@,/K@@:3/K@@(J/%K@%D/,0@(?SE )@@G@@'^@@>//K@@%DC'K@@[/K@@%QC"K__"/K@@%QH8K@@0/^K@:Q/^)@:QA[0@@G%@@^W2/K@@:QSF )@@G@@C9)@@[/KF@@@')B^V:/(;@@@%8)@@^O;)@@[Q90@@ /KF@@@/ )@:+/A0@(L/AK@(L/B@@(LSG )@@G@@R90^W2/K@@%CR#@^VL:8@@@[ @E@@[ @E@@@/G@@!J/K@@(VC;@@@[/%K@:?/,0@(?/K@@:2SH )@@G@@')D^V7,#0@@H/K@@%WG'@@@[/,0@:I/K@@:( @@^VJT8)@@A&90@@@P90@@ I@)@@B/@)@:WSI )@@G@@(@@@@L/A0@(KR#K^VL!8)@@N/K@@!PC[@@@IK.@__"[[K@[[0@@@@QD[0@@NH[0@@OO#)@@NSJ )@@G@@E@)@@I%8K@@[/K@@?F?8)@^5/K@@?L @E@@[/K@@?H?8)@@$/K@@?L1@@@@N/K@@(I @E@@@SK )@@G@@/K@@!J @@@@IR[0^W2 @@@@L @@@@M9(K@@G;!K@@#;?@@@[9-K@@G @@@@G')B^V19-K@@GSL )@@G@@8KK@?Y/K@@?+/(0@?PO;)@@[Q90@@ /K@@?PR;@@K/"4@@@L0@@@@P90K@@H/[0@?" @@@@TSM )@@G@@#[0@@U9!K^W7W;K@[=R#@@@T/@@@?0;)@@@["(W^-3 @@@@TW;K@@E[#K@@G;)@@@[*@@@@GSN )@@G@@"(W^--(@@@@U/K@@?'R#@@@U;)@@@["(W^-J/H0@?."*K@@L/K@@?""?K@@L/%K@![/,0@(?SO )@@G@@ @@^VJR#@^VL?8@@@[/K@@!A9*U@@@/K@@(V"/K@@HA#U@@@?9@@@D/K@@!J[@@@@H*@@^VKSP )@@G@@/K@@!J/!0@&'A[0^VKR#@^VL/C@@(VO')@@[(@@^VJ'^@@>//K@@(4A#)@@KH[@@@O!9@@@NSQ )@@G@@/K@@!-C'@@@MH]@@@KR;)@@M*@@^VK/K@@:./!0@&'A[0^VK/K@@:.H9@@@M0@@@@QD[0@@NSR )@@G@@G[0@@K/D0@!(C")__"#[0@@N/K@@!VC')@@[/K@@!V/K@[T0R#K^O'0@@[TQ )@@G@@C80@@HR#@^X&A#@^*//K@@2PC80@@EAA0^*XNC;@@@N^:@@@[@0^*'C9K[LP[ K[T1^^)^<+TR )@@G@@N8K@@MC@K^T7C@@^T9M#H)@@C@K@[#O'.@@[AA0[T?:80@@H/K@@2:C9K@21N8K@[L[ K[T(TS )@@G@@^@K^A#)^X>C@K^X(M#Y)@@C^K@2//K@@29C8K@@[/K@[M&/S@^X,TV )@@G@@9()^X%9?:@@@9%@^X?C[Z@@@R#I@@@E[@@@L=@@^X\/K@@3S/^@@4@/[K@4 /DK@3"/K@@4 TW )@@G@@"L)@@GH9)@]@;-0@@CR;@@][R#K^X0/-@@3+U@K@@NO#@@@M;WK@@HP#@@@J;D@@@[/[@@3(TX )@@G@@U[0@@NG[)@@M;X0@@NH[)@@P/K@@3X/DK@31R#0^X1R;)@^]X@0@@HP#)@@G;S0@@KP#)@@KTY )@@G@@9?@@@I9!)^X%9,@^X?;KK@@[O;K@[@0@@@@HP;K@]@;KK@@B/G@@3"!8@@#_/K@@4E"O@@@HTZ )@@G@@R#@@@H/KF@@# @@@@G/KF@@#A#@^@@[[K^@['^@@CQ@@@[AC/KF@@#A#@^@@[[K^@['^@@CQUA )@@G@@@@@[]B/KF@@#9?F@@@R#G@@@R#X@@@9*@^@@9!)^X%9,@^X?'^@@CQ@@@[] /KF@@#/S@^YMUB )@@G@@N80@@[/K@@4V/S@^YN @@@[#/K@@4-/S@^YO @@@[#C^;@@@C@\@@@"K@@@I?@K^YP/K@^X2UC )@@G@@;)K@@B!@)^YQ!@)^YR/K@@4>/K@@5C+@K^YS;*K@@[H@K@@IY@)@@HC[@^YT;CK@@Y[@)@[[UD )@@G@@U@)@@IU[@@@IG[@^YUU[@@@IG[@^YVU[@@[[G[H^X,;P@@@+H8@@]@S@@^X/9-@@@GC8K@]XUE )@@G@@;W)@@K(@@@[#/K@@4"U@)^X.;S)@@IG[@@@J;K)@@[H@K@@K9*K@[[C9K@[@0@@@@ID[K@@LUF )@@G@@G@)@@L"OK@@IC@@@@I/KF@@]:8@@]@;KK@@[L@K^YWG@K^YW;S)@@I;K)@@]H80@@]C@@@@JUG )@@G@@X@)@@H;)@@@[[@0@@IU@0@@JC[@^YLC8K@@]U[@@@J;LG@@@G[H^YI8#K@5QU[@@@IC8K@[;UH )@@G@@;K@@@[H@K@@G/^)@48 @@@@G/KF@@]A#@^YYR;W)@@AB@^YZ&;K@@[C@@@9#'=@@@HK8W@@@UI )@@G@@N8W@@@;*@@@^'C@@52!@)^YZ/K@@58Q;)^Y-M#Y)@@/G@@5> @H@@@/KF@@[R#@@9DR;K@@[UJ )@@G@@/KF@@@R#@@9IR;K@@]/KF@@@R#@@9OR;K@@#/KF@@@R#)^YYO;)@@[(@I@@@/KF@@@:CI@@@UK )@@G@@/K@@6 ?CI@@@/KF@@@O<,@@@/K@@5/R<"@@@P;0@@[T80@@AO$"@@@9?I@@[?80@@BR#K@9^UL )@@G@@/KF@@[ @@^Y:R;K@-@A#K^Y?R#K^YY;^@@@=R;)@@];G0@[CO;@@@[(@G@@@/KF@@@*4G@@@UM )@@G@@/K@@6&OK^Y?H9K@@0T8)@@E1@@@@LO#)@@L8#0@7:A<)^Y?R;0@@E!8)@[@A$0^Y?UU )@@G@@/KF@@[9?)@@GD9K@@[N8K@@GG9K@@[;=)@@A+80@@_%9@@@ 8KK@7/9?0@@GR#@@9 R;K@9^UV )@@G@@N8K@@EM#H)@@Q;@@9]R#K@9A/\)@89C9@@@,')G)@@Q;@@8.Q;K@@#(0@^Y:/K@@849?0^Y!UW )@@G@@C5K^Y:/\)@89C9@@@*(4@^Y:*)@^Y:')G)@@9?0^Y\C1K^Y:/\)@89C!K^Y:/[K@8-C9@@@(UX )@@G@@')G)@@R#0^Y1/\)@89C9@@@)')G)@@C(K^Y:/[K@8$C9@@@/')G)@@R#0^Y2/\)@89C>K^Y:UY )@@G@@/[K@8\C9@@@/(*@^Y:')G)@@')G)@@R#0^Y3/\)@89C9@@@.')G@@@C@@@9B'=@@@J/KF@@@UZ )@@G@@R#@@9CA#@^YH^Y)/\@@8;@55^Y- @@[^Y-@@[@@@@@F^Y)TPF$. @[^@9EPROCESSOR CAVB )@@G@@LL ERROR @[ @9JABNORMAL RETURN FROM READ$ @[^@9PTOO MANY SPECIFICAVC )@@G@@TIONS C@@^Y/'=@@@4C@@@9Z[@FK@@/KF@@]@@@@@@@@@@@@'=@@@M;G@@@G;CK@@AG@K^Y.VD )@@G@@;G@@@G;CK@@AG@K^Y.;^@@@0G@K^Y"[@FK@@[@VK@[/KF@@#'=@@@M[@FK@@/KF@@]/,0@IJVE )@@G@@@@@^)K@@@^Z[@[^^)SC@@^)L[@@^Z]C/)@@[H@)^Z[(@@@@I/K@@;@C/)@@[D[@@@@*@@@@KVF )@@G@@0@@@@K @@@@IC.@@@[D[)@@@*@@@@M0@@@@M @@@@K)@)@@K/=0@;OC@)@@@G@)@@@G/)_""VG )@@G@@/G)@'F*@@@@I/K@@;O/,0@_W@@@^Y_@@@^Z#@[G^)SC/@@@@'^K[T?C/@@@@'^K[T?'^@[T0VH )@@G@@/,0@IE@@@^)K@@@^Y_@[L^)SN@0@'U/K@@;"@[M^)S/,0@IJ@@@^)M@@@^Z[@[P^)SC@@^)NVI )@@G@@[@@^Z]C/)@@[H@)^Z[(@@@@I/K@@;@C/)@@[C.@@[]H[@@@@*@@@@K1@@@@K @@@@IC.@@@[VJ )@@G@@D[)@@@/D)@'0*@@@@M @@@@K)@)@@K/=0@;O/,0@_W@@@^Y_@@@^ZC@[V^)SC/@@@@'^K[T?VK )@@G@@'^@[T0/,0@IE@@@^)M@@@^Y_@[Z^)SN@0@'_/K@@;"@[)^)S/,0@_+@@[^Z'@[-^)S'^@[T0VL )@@G@@/,0@_+@@[^ZJ@[<^)SC/@^Z]'^K[T?'^@[T0/,0@_+@@[^ZF@[&^)S'^@[T0/,0@H2@@@^Z]VM )@@G@@@@@^)O@[*^)S/,0[@-@@@^)P/,0@_+@@[^Z'@[%^)S'^@[T0/,0@_+@@[^ZS@[?^)SC/@^Z]VN )@@G@@'^K[T?'^@[T0C@@^Z]H@@^)N(@@@@G/K@@;1/,0@_+@@[^ZZ@[1^)SC/@@@@'^K[T?C/@@@@VO )@@G@@'^K[T?'^@[T0/,0@H2@@@^Z]@@@^)O@[5^)SN@0@;0/K@@;"@[6^)S/,0@_+@@[^Z1@[7^)SVP )@@G@@C/@@@@'^K[T?'^@[T0/,0@H2@@@^Z]@@@^)O@['^)SN@0@;./K@@;"@[;^)SR]0^)T9!)^)VVQ )@@G@@*4@O)Q/K@O)Q/K@[O5AA0^)T[^@^)Q9()^)V/KH@@@C8@@@#/\K@/#C8FK@@[^@@'J[^@@'AVR )@@G@@[^@@;>[^@@9_C8FK@[[^@@9'[^@@;$[^@@'L[^@@' /K@@9\C8@@@]/\K@/#C8FK@@[^@@;4VS )@@G@@[^@@'$[^@@'6[^@@'?/K@@'VA]0^*;/K@@/> @@^*;AA0^*XRB;@@@R#_@@@N8)^)X/K@@/:VT )@@G@@ @@^*;AA0^*XC^;@@@C@_@@@NC;@@@O'0@@[N^:@@@N8K@@]^@K^*''^@@OH/K@@/1?8K@@KVU )@@G@@/K@@/3*@@^*;/K@[MYC9K[LP[ K[T1^^)^<+N8K@@MC@K^T7C@@^T9M#H)@@C@K@[#O'.@@[VV )@@G@@AA0[T?C!Z^T;:9K@@[/K@@.]'^@@.G/K@[E6C9K@.C[ K[T(C9K@] [ K^:8)@@^/K@[#*/K@[]PC@K@@LT8K@@A;@!@@@/K@[]4D[@@@K'^@[A8R7K^<>:8K@@^XA )@@G@@/K@[#*'^@[L+C^K^*-E@X@@@'^@[SGD8K@@[RB)^*-[ @^*OH @^<&/H@[]"/ @[#J?@Y@@@XB )@@G@@/K@[]"'^@[B"/K@[#@'^@[L+C K^<&?9K@@H/K@[#UH9K@@HR;)@@ '^@[[58^K[#QC9K@@GXC )@@G@@R;K@@#T@K@@LC^)^*-C[I@@@;[H@@@H9K@@[R#)@@K;[@@@-;G)@@=R;)@@A;^)@[ '^@[[5XD )@@G@@8^K[#)/K@[#L'^@[L+R3K^*-:8K@@[/K@[#^:8K@@ /K@[]T/K@[#0'^@[L+DHK^<,] K^*OXE )@@G@@/HK[#4C9K@@@HDK^<&H9K@@^ @@@@IR7K^<>:8K@@[R;)@@[%8K@@^/K@[#_R3K^*-:8K@@#XF )@@G@@R;)@@[H[K@@IG K^<&/HK[^!C^K^*-0@H@@@/[K[^![DK^)_CDK^<&GHK^<,/HK[^!/[K[^!XG )@@G@@[ K^)_'^@[ [CD@^)_'^@[A\(G@^*P/K@[^4RJ)^*QPJ)^<,#^)^*Q/@)[^P/G)[^2R;)@@+XH )@@G@@'^@[[5RJK^*Q'^@[SG @G^*@ @G^*[C9@@@#R7)^<>:8)@@[/K@[^$%8)@@^/K@[^=R3)^*-XI )@@G@@:8)@@#/K@[^$C9@@@]?9G@@@/K@[^('^@[BV/K@[^,R;)@@*'^@[[5'^@[[5/K@[^,'^@[B"XJ )@@G@@R7K^<>%8K@@^/K@[#\/K@[#*R;)@@-/K@[^QR;)@@ C9K@@]R7K^<>:8K@@[/K@[^.%8K@@^XK )@@G@@/K@[^"R3K^*-:8K@@#C9K@@#'^@[[58^K[^"/K@[^,/K@@@@RB)^*-R7K^<>:8K@@[/K@[ %XL )@@G@@%8K@@^/K@[ FR3K^*-:8K@@#/K@[ %R3K^*-%8K@@#/K@[ L94"@@@980[ 8/K@[ OE@"@@@XM )@@G@@/@0[ 8"80@@J/,0[SP9*0^- R7@^<>/KG[ Q/K@[ !/K@[ 1DH@^*Q/[@[ X/D@[ !GD@^<&XN )@@G@@/H@[ !DH@^*QGD@^<&R#0^<&A#0^).P;0@@#[D@^<&AB0^<&C9@[A@[ @[ [RJ0^*Q/K@[ 3XO )@@G@@94"@@@/,0[SP/K@[ ,9?0^- C K^)_/,0[S;/K@L [RJ0^<,OJ0^*QAB0^*QOF0^<&AB0^)_XP )@@G@@ @@^$_/C0[ ! ^@^*P @@^*Q @@^$_R;K@@OABK^$./K@L ['^@[L+'^@[ [CH@^*Q/H@[A-XQ )@@G@@/[@[AADH@^*Q] @^*O/K@[AI*C@^<&/K@[AGD9@@@[[ @^$.] @^*O/K@[AI[ @^*OD9@@@@XR )@@G@@H9@@@[HD@^<&G @^<&/H@[B/C^)^*-0@I@@@/[@[B/'^@[A\C5@^<>:9@@@^/K@[AU/K@[ "XS )@@G@@C[@^).[[@^<&R;)@@ C9K@@]'^@[[58^K[AY/K@[#*(@@^$_G9@@@[/H@[A>D9@@@@[ @^*QXT )@@G@@(C@^<&/K@[ACDH@^*Q!D@^<&CD@^<&] @^*OC9@@@[] @^$./K@[AH/K@@@@'^@[A;0G@^*OXU )@@G@@/K@[A6R;)@@.'^@[[5CD@^<&'^@[B*/K@LA\/K@@@@ ^@[A;/K@[A//K@@@@/[@[BPH9@@@]XV )@@G@@R;)@@ /H@[B]'^@[[58^@[B@C^K^*-R#X@@@/CK[BO/@K[BOR70^<>:80@@ /K@[BNR30^*-XW )@@G@@:80@@[/K@[BN:80@@#/K@[BL>@K^-D/K@[BO/K@[BN>@K^-E/K@[BOC8)@@-'^@[[5CH@^*OXX )@@G@@/H@[B3(^@[A;/K@[BX'^@[B*/K@LA;/K@@@@ ^@[A8R#@@@K/K@[B=R#?^*@!@@^-FR;)@@@XY )@@G@@O;)@@0'^@[[58#@[BZ*^@[A8/K@LA8/K@LBV/K@@@@R#@^$./K@[B0R#?=*@!@@^-GR;)@@@XZ )@@G@@O;)@@0'^@[[58^@[B:AB@^$./K@LB*D@@@@KGD@^<&R;)@@.'^@[[5R;)@@0/K@[B''^@[[5YA )@@G@@8#@[B9/K@LA;'^@[B"/K@[AQ/K@@@@C K^<&R;)@@*/K@[C#'^@[[58^K[C]/K@LB"%8)@@'YB )@@G@@/K@[CO/,0[KU:8)@@'/K@[CG'^@[[5/K@[CBR#K^<=A#K^-^/,0[KU:8)@@'/K@[CER#K^-^YC )@@G@@A#K^<=/K@[FW/,0[KU'^@[[58^K[CO/K@[FWR;)@@ '^@[[58^K[CT/K@[FWC9K^)9[ K^<+YD )@@G@@/K@[E8/K@@@@ @@^+@ @@^+[ @@^-./K@LCZ/K@@@@*4@^+@/K@[C5+8)@@JR#)^+[T8)@@EYE )@@G@@O#0@@IA#0^+[R#)^+@(4@^+[/@)[C=T8)@@EO7)^+[ 4@^+[R#0^+[A#)^+@/K@LC=R#)^-.YF )@@G@@O;)@@[A#)^-.9?)^+@/K@LC=/K@@@@9!@^+@'^@[DC/K@LC'/K@@@@9!@^+@'^@[DC/ K[C"YG )@@G@@C9K@@[/K@LC"/K@@@@9!@^-"'^@[DC/K@LD^/K@@@@/[@[DC!9@@@)/K@[DJ;(K@@A;H@@@AYH )@@G@@/K@LDCRB)[DC:8)[D[/K@@@@R;)@@HA\)^*W;C)@@AA3)^*WR;)^*.AB)^*WR;K@@A'^@[K8YI )@@G@@/K@LDC/K@@@@9?)^+@9*)^-"R#)^-.A#)^-/'^@[CZ/K@LDV @@[D,AA0[D:N@K^&I @@^&IYJ )@@G@@/K@[EE;G0@[C*^@[D,"/0@@J'^@[EV/K@@@@ ^@[D,/K@[D1/K@@@@C @[D,[ @[D:9!@^+@YK )@@G@@'^@[DCR\K^+]=8K@@)D[K@@LR#K@@LPJK^+]O#K^-/E[K@@H!9K@AK'^@[E)N@K^&I @@^&IYL )@@G@@9?0^-"980[EB;(@@@A;W0@@J;G0@@[R;)@K7P#)@@L9)0^-J"4)@@J0@@^+]900@@J980[D%YM )@@G@@/@K[D*R;@@@@/CK[EJR;@@@[E@K@@H;GK@@=!8)@@EW8K@@E/@)[ES;*)@@[[@0^-;')G[E0YN )@@G@@:@0^-;/K@[D$/@K[D*G8@@@]/K@[EJ/K@@@@*@@^&I'^@[E)^@K^&I/K@LEV/K@@@@ @@^*WYO )@@G@@R;@@@BA7@^*WR;K^*.ABK^*WR#@[E:'=@@@I @@@@H'^@[M*/K@[PV@[^[E?INPUT EXPONEYP )@@G@@NT TOO LARGE"*"^-J"?"^-J"*"^--"?"^--"*"^-3"?"^-3 4@^*- 0@^*- @@^*) @@^<>YQ )@@G@@ @@^<,C9K[H0[ K[DLC[K^*+[[K^*>C[K^<-[DK^*!C9K@@_[1K^+#C9K[K\[ K[T\C[K^<+YR )@@G@@[[K^<=R#)@@LR#,@@@%@)^<\/K@[FRR;)@!?R#@^*'%8@@@H/K@[FORB@^);RBG@@@%^@[@'YS )@@G@@R;)@=_/K@[FQ=8@@@#R;)@=_/^,@@@/,0[KU%8)@@(/K@[FRC[K^<=[[K^<$R;@@@@ @@^<&YT )@@G@@ *@^<>'^@[CZC9@@@@/,0[KU/KI[FZH )@@G@@'^@[C"[DK^<:R;@@@[/K@[FZR;0@@ /K@[IKR;0@@B/K@[IK;G)@@#;C0@@-A30^<>/,0[KKZI )@@G@@R30^<>A70^<>C9K@@[/K@[IBR;0@@ /K@[IWR;0@@B/K@[IW;G)@@#;C0@@-A30^<>'^@[KOZJ )@@G@@/K@[IM'^@[C=/K@[F-'^@[C"/,0[M#H9K@@[R;)@@H/K@[[[/,0[KKC9K@@[/K@[I+'^@[KOZK )@@G@@/K@[I$/,0[KKR;)@@'/K@[[['^@[KO/K@[I?C[K^+[**@^<>D[K@@L[ K^<,/K@[FW/,0[KKZL )@@G@@C9K@@[/K@[I3'^@[KO/K@[I6'^@[C"/,0[M#H9K@@[/K@[[]/,0[KKC9K@@[/K@[I;'^@[KOZM )@@G@@/K@[I_'^@[C"R$)^<>!8)@@]R;)@@[R#0^<=H9K@@[A#"^<*[ Y^<%O;)@@[A$)^<>!8)@@]ZN )@@G@@/K@[FW 4@^<>A<)^<>A#0^<$[DK^<%/K@[FW/,0[KKC9K@@[/K@[J^'^@[KO/K@[JP/,0[KKZO )@@G@@R$)^<>/@)[J-C Y^<(P;)@@[8^K[J_A$)^<>/K@[FWC4)^<>/@)[[#'^@^*=C@)^*-[@)^*)ZP )@@G@@C[K^<$[[K^<=R<)^<>A$)^<>/@)[J!CDK^<%[ K^<%'^@[T*C @^/K@[FZ/,0[KK/K@[J!ZS )@@G@@'^@[KO/K@[J!'^@[C"[ K^<&R;@@@]/K@[FZAA0[KO'^@[C"[ K^<&/K@[KR/K@@@@'^@[C'ZT )@@G@@[DK^<&C[K^<)R7)^<>/K@[@9RFK^<=RB0^<=')H[K<8#K[K-R;K@@ O;0@@[AB0^<=AFK^<=ZU )@@G@@/KF@@@R<\@@@R$\@@@R:\@@@R\\@@@R3\@@@R7\@@@A<\@@@A$\@@@A:\@@@A\\@@@A3\@@@ZV )@@G@@A7\@@@AB@^*-P;)@@[RFI@@@;@@@@C;C@@@)A3@^*-:8@@@^A7@^*-/K@O*=/S@@@@A7K^*WZW )@@G@@R;K@@@'^@[M* 4@^*!R7K^*WR#H^+(O#@^+#'=@@@IR#@^<0'=@@@IR#@^<1'=@@@IR;@^<-ZX )@@G@@R#K^<2N8K@@QM#W)@@RF@^*/RB0^*/P;0^*.R;)@@*')G^+^R#@^<3'=@@@IR;@@@#A3@^+#ZY )@@G@@/K@LK8'^@[T*/S@@@@CDK^*!: K^*!/K@[L-*0@^*!/K@[LWC@@^R#W^=0A#K^=:R#@^=2'=@@@I/K@[PV'^@[Q@R;F@@@L8@@@[AI )@@G@@RB!@@@?8)K@@/K@[NJP;)K@@RB,@@@P;)@@[RB,@@@N@"@@@R#K@@GRF!@@@/^)[NRO;K@@[AJ )@@G@@/K@[NN:8)/K@/K@[NPP#K@@GABK[NB/K@[NY/K@[NB'^@[Q@R;V@@@OBKLNWA#K^=/^@0^> AK )@@G@@^@0^>CRFX@@@R#@^>5'=@@@IR#@@@HN80@#C'^@[REA#@^>IRBK^=/9!@^=.0@H@@@/K@[O@AL )@@G@@(^H@@@/K@[OVRBH@@@RF/@@[?80@[@9!@^=_9(@^>FR#G@@@A#@^>KR#@^>6'=@@@IR#@^>KAM )@@G@@A#@^>CRBK^=/RBX@@@'^@[O^A#K^=//K@[N*9!@^=_9(@^>FR#@^>7/K@[OZ/K@@@@RFH@@[AN )@@G@@?8@@[@/K@[OMR#@@@HP;@@@]RBG@@@P;@@@[O;K@@[RBX@@@O#K@@GRFH@@@8K0LO^/K@[O-AO )@@G@@8#@[OGO;K@@[R#X@@@RFH@@@/@@[OT%8@^>8/K@[OJO;K@@[/K@[OP9(@^>FR#@^>9A#@^>KAP )@@G@@R#@^>''=@@@I'^@[PO @@[@&'^@[@$/K@@@@'^@[Q@RF@LO<'^@[REA#@^>YR#@^>;RBKLO*A#@^=;R#@^>/'=@@@I/K@[PC'^@[Q@/\0[P4A#@^>09?@^>1/K@[P '^@[Q@AS )@@G@@/\0[P4A#@^>09?@^>39*@^>(R#@^>.'=@@@I(^@^=//K@[OWR#@^>6'=@@@I'^@[POR#@^>KAT )@@G@@A#@^>CN80@#C*@@^=;/K@[P(RBK^=//K@[N./K@@@@RB@[PV/@@LPOAB@[PO ^@[PV'^@[QDAU )@@G@@/K@LPO/S@@@@'^@[Q@R#K^*XR#@^>"N@.@@[(CH@@[N@.@@]/\0[P5/K@[PC/K@[P&N@0LP=AV )@@G@@'^@[Q@R#@^>_/K@[P+R]0^=3 @@^=;*CF@@@*4F@@@/K@[P2R;V@@@RFF@@@A#K^=//K@[N*AW )@@G@@O'0@@[/K@[P:R#@^&@A#@^>C^@0^=/RF@^=/'^@[REA#@^>IRBK^=/R#@^>9/@K[P"R#H@@@AX )@@G@@A#@^>K/KJ@@@/K@@@@*^@[Q@/K@LQ@A]0^=39*@^=49*)^=69(@^=8^@0^='/K@[Q@/K@@@@AY )@@G@@R]0^=39?@^=49?)^=69!@^=8N@0^='/K@[QDC@@[QN'=@@[[/KF@@[EW@[QN@@@@@@A#@^&GAZ )@@G@@R\@[QN/KG[QR/K@@@@/K@@@@/K@[Q+/K@[Q>/K@[Q=/K@@@@/K@@@@/K@[Q!/K@@@@/K@[Q5BA )@@G@@AF@^&I/K@[Q>AB@^&IRB@[QNR#G@@@;*@@@E;C@@@) @G@@G @G@@H(@@@@G @@^&G(@@^&HBB )@@G@@/K@[RMRB@[QNO;@@@[AB@[Q4R#@^&G'=@@[@/K@[Q4R#@^&G9*@^&#A#)^& RF@[QN;C@@@ABC )@@G@@'^@[REA:@^$>;C@@@AA\@^$>;C@@@AA7@^$=C@@^$8'=@@@IRB@[QN'^@[REA#@^$3C@@^$9BD )@@G@@'=@@@I9?@^&#R#)^& '^@[@$/K@@@@;G@@@MR;)@@ Q;K@@A;@K@@#;?@@@A8#)[RH/K@LREBE )@@G@@R#@^&GA]0^&]9*@^ *)^& 9(@^&B^@K^&D^@)^&E^@0^&FR;@@@[A7@^&HK^@[QNABK[R\BF )@@G@@R\K[QN'=@@[@O#H^&IA#H^&IA#@^&[RB!^&(/,"@@@@@@^&[@[Q@@@R]0^&]9?@^ ?)^& BG )@@G@@9!@^&BN@K^&DN@)^&EN@0^&F 4@^&H/K@[R\P;@@@[!@H^&R0@H^&R/K@[R/;*K@@]R;H^&9BH )@@G@@&;@__^'=@@@IC@@^$''=@@@IR]0^&]/K@[R](@H^&)/KF@@]R#H^&)P;@@@[A#H^&);*K@@]BI )@@G@@9?!^&99!H^&;9*)^$*9(@^$%RB@[QN'^@[REA#@^$3C@@^$;'=@@@I/KF@@]/K@@@@C@@^*RBJ )@@G@@;GK@@=W8K@@E[@?=*@/^K[SI[@@^$.C @^$./K@LSG ^@^*Q>@@^*S")0[S998;@@@"0@@@JBK )@@G@@H8@@K@/@F@@@S@@^$/AA0[S5/^@[S-E@@@@G/K@[S>[^@^*QD@K@@G/,0[D+RJ@^*Q9?K[S6BL )@@G@@9=K@@J98K[S3/GK[S?"*0^*TH8@@@[/K@[S>9?K[S89=K@@J98K[S0/CK[S4G8@@@["?0^*TBM )@@G@@/K@[S>G9@@@[[^@^*Q/K@@@@J.3G3G3G3G3GK[)@@@@@@@@@@@@@@@980[T="0K@@JP;K@J5BN )@@G@@;?!@@@[ K^*P?9K@@B @@@@J!9K@@OC9K@@NC@@^*R ^@^$.C@K@@IU8K@@E/@0[TJ;C0@@[BO )@@G@@U80@@E;*0@@[[@0^$_9)K^$"C@0@@K[@W=*@;C)@@[8^K[TA @@^$_G8K@@ H@@^*V/K@[TTBP )@@G@@C@W^*@G8K@@[[@W^*@?8K@@E/KF@@@H8K@@E[@W^*@8#@[TQC8K@@[[@K^$_G^K^*Q[^K^*QBQ )@@G@@[^@^$./KF@@@[ K^*PC8K@@O[^K^$./KF@@@/K@@@@'^@@@@ C@^<,/K@LT*/K@@@@A]0^*XBR )@@G@@C^)[T?/K@@@@/K@@@@/K@J__R#)^*ZAB)[T\R#)^*/K@[T!R#)^*+A#)^*>/K@O*=BS )@@G@@RB@[T?R]0^*X*4G@@@/KG@@@R;?@@[R#G@@@+@@^(,O#K^(\A#K[U#R7@@@@AB)[T?/K@[T\BT )@@G@@/K@@@@[^@^*-P;)@@[C[I@@@;(@@@E;D@@@)[1@^*-:9@@@^[5@^*-C9K@@[:9@@@^G9K@@[BU )@@G@@:9@@@#G9K@@[[[K^*8/K@LUAC@:@@@C4I@@@C@K^(4[4Y@@@:8@@@1/K@[U&:8@@@0/K@[U*BV )@@G@@:8@@@+/K@[U=C@@^(0QBF@@@'=@@@I/KF@@]C@@^(1/K@[U-C@@^(2/K@[U-C@@^(3/K@[U-BW )@@G@@C/@__"G@FK@@C@)^?EG/)__2C9FK@]G.@__1[@@^?F[@)^?G[[@^?HC/@@@[(@FK@^ @@@@GBX )@@G@@C_)@@[R@K^?GN[@^?F[@@^?I[#)^("C@@^("[@@^(_C@@^?I/)@[V[C@[@@H[@@^(_C@@^(_BY )@@G@@T/@@@IG@@^?H(@G@@@/K@[VPO/K@@[G_)@@[8L@[U'*@@@@@/K@[VK/,0@_+@@[^%B@[R^?BBZ )@@G@@'^@[T0/K@[V)/,0@_+@@[^%H@[V^?B'^@[T0/K@[V)(@@@@@/K@[VW/,0@_+@@[^%T@[+^?BCA )@@G@@'^@[T0/K@[V)/,0@_+@@[^%;@[&^?B'^@[T0C/@@@[(@@^?J @@@@GC_)@@[R@K^?GN[@^?FCB )@@G@@[@@^?I[#)^("C@@^("[@@^(_C@@^?I/)@[V,C@[@@H[@@^(_C@@^(_T/@@@IG@@^?HC@?@@@CC )@@G@@[@)^:7C[G@@B[[@^:8C@)^:.C@0^:80@@@@JD@)@@I"))^:.9*)^('(@@^:7/K@[WV*@@@@@CD )@@G@@/K@[WF[@@^?K/,0@_+@@[^:R@[6^?B@@L@@HR@)^?KC8]@@['^)[T?@@+@@]@@K^:7'^@[T0CE )@@G@@/K@[YTC@@^(_T/@@@IG@@^?H[@@^?K/,0@_+@@[^:+@["^?B@@L@@HR@)^?KC8]@@['^)[T?CF )@@G@@@@+@@]@@K^:8@@K^:7'^@[T0/K@[YTC@@^(_T/@@@I[@@^?KG/@@@[G@@^?HR@)^?HO@)^?KCG )@@G@@R@0^:_R[@^?@Q[@@@GN.K@@#C@^)@][@#=:88LK[W&C@+@@C[@)^%[C[]@@D[[@^%]C[+@@ECH )@@G@@[[)^(8C]]@@F[]@^(9C]+@@G;+)@@<;E)@@<[])^(5[[@^(6*@@^(6/K@[W;*@@^(5/K@[W;CI )@@G@@[[)^(6C@@^(9[@@^(7*@@^(7/K@[X#*@@^(5/K@[X#C@)^%[[@)^(7*@@^:8/K@[XE @@^%#CJ )@@G@@ @@^%^ @@^% @@^%A/K@[X\9?@^:9"?@^('"/@@@G[@@^%^"/)^:9[@)^%#9!@^:9"(@^:9CK )@@G@@9!)^:;"()^('">@@@M"!@^('][@^(/][K^(.9?@^(/"=@^?[*@@@@G1@@@@G/K@[XZ9?@^?[CL )@@G@@9*@^(/ @@^% 9?@^?#"=@^('*@@@@G1@@@@G/K@[X:9?@^?#"=@^('9?)^(/"?)@@G"/)@@ICM )@@G@@]@)^% /,0@1&@@@^% @]?^?B[@@^%A*@@@@@/K@[Y C@@^(_T/@@@IG@@^?H[@@^?L/,0@_+CN )@@G@@@@[^:,@]\^?B@@L@@HR@0^?LC8#@@['^)[T?@@<@@]@@)^(7@@)^(6@@)^%#@@)^%^@@)^% CO )@@G@@@@)^%A'^@[T0/K@[YTC@@^(_T/@@@IG@@^?H[@@^?L/,0@_+@@[^:2@]/^?B@@L@@HR[@^?LCP )@@G@@C8^@@['^)[T?@@=@@]@@K^:8@@)^(7@@)^(6@@)^%#@@)^%^@@)^% @@)^%A'^@[T0O/K@@[CQ )@@G@@G_)@@[8L@[V$N@0[YY/K@[YZ@#F^?BR]0^?C9!)^?M9,@^?O9,)^?Q9\)^?SR@K^?UR@)^?VCR )@@G@@R@0^?WR[@^?XN[@^?YN[K^?Z*4@O? /K@O? /K@[O5AA0^?C9()^?M9%@^?O9%)^?Q9:)^?SCS )@@G@@A@K^?UA@)^?VA@0^?WA[@^?X^[@^?Y^[K^?ZC8FK@[[@@^?EC8FK@#[^@[X\[^@[V.[^@[VPCT )@@G@@[^@[VDC@VK@^[@K^?J/K@[U%C@FK@@ @@@@KG8@ !)[@@^?)!@@^?-/K@[ZM)8@@B_C8)A\BCU )@@G@@)8)@B_!@0@@H/K@[ZJC@@@@H'=@@@<(@@@@K/KF@@^/KFK@](@FK@[C9@@@[/K@[ZC@@@@@@CV )@@G@@'=@C@E[@@^,,/K@LZPC@@^,6'=@@@J/GF@@EC@@^,7'=@@@J/GF@@EC8@@[0[C@^,C8@@@['=@C@^'^@[[@K^,=C8@@@P[0@^,+C8@@@W[C@^,C@@^,0[C[^?&C@FK@B[^[^?&C@@^,\[@[^?$C@@^,,[@[^?*C@@^,1DF )@@G@@[@[^?( @[^?% @[^?: @[^?? @[^?! @[^?, @[^?\R@K^,!C8@^,ZC8K@@C[0K^,+'=@@@#DG )@@G@@*4@^,+/K@[--C8K@@C[0K^,%C8@^,$'=@@@#/KF@@EC@@^,''=@@@I/KF@@E'=@C@E[@@^,1DH )@@G@@C8@^,$C8K@@K[0K^,%'=@@@#*4@^,%/K@[+D9?K^,>[@K^,=C8K@@P[0K^,+C8K@@W[CK^,C@VK@][^L^?>C@@^,1[@[^?%R@K^,!C8K@@C[0K^,+C8@^,Z'=@@@#/KF@@^C@@^,'DK )@@G@@'=@@@I/KF@@^C@@^,9'=@@@4C@@^,6'=@@@J/GF@@^C@@^,7'=@@@J/GF@@^C8@@@P[0@^,+DL )@@G@@ @@^,=C8@@[0[C@^,[@@^\1/K@[=# @@^0'C4FK@@[)@^0'DZ )@@G@@R@K^0'C@[^\9[@@^\8N@0[>#/K@[>^@[C^0.R@K^1@C@@^\8*4@O0;/K@O0;/K@[O5AA0^0"EA )@@G@@A@K^1@/K@[=;/,0[<"@@@@@@@@@^1[@[^^77 @@@@@C4@^1B[@@^1EC/)@@[G/@__Z*@@@@GEB )@@G@@1@@@@G @@@@IC/@@@[C[@^1EG.@__$/D@[>Y*@@@@K @@@@G+@)@@GC/@@@[C[@^1EG.@__\EC )@@G@@*@@@@K1@@@@K @@@@GC.@@@[C[)^1EG.)__"/D)[>:*@@@@M @@@@K+@@@@K;^)@@=)@)@@HED )@@G@@/=0[&$*@@^1E/K@[>;/,0@_+@@[^1K@[E^77R@K^74Q@K^7'N.@@@[C8[)@@'^K[T?8L@[>7EE )@@G@@'^@[T0C@@^1EG/@__Z/C@[&@*@@@@G/K@[&E/,0@_+@@[^1S@[M^77R@K^74Q@K^7'N.@@@[EF )@@G@@C8[)@@'^K[T?8L@[&A'^@[T0C/@@@[C@)^1EG/)__\/C)[&K*@@@@I @@@@GC/)@@[C[@^1EEG )@@G@@G.@__$*@@@@K1@@@@K @@@@I+@@@@I/)K[&+/,0@_+@@[^1S@[U^77R@K^74Q@K^7'N.@@@[EH )@@G@@C8[)@@'^K[T?8L@[&Y'^@[T0C/@@@[[@@@@@N@0[&&/K@[:5@[-^77C/@@@[[@@^1FC@@^1EEI )@@G@@G/@__$/C@[&,*@@@@G/K@[&\ @@^1FC@@^1EG/@__\*@@@@G1@@@@G/K@[&;/,0[<\@@@@@@EJ )@@G@@@@@^1G@@@^1H@@@^1I/K@[:?@[$^77C/@@@[D@)@@@*@@@@I0@@@@I @@@@GC/)@@[C.@@@FEK )@@G@@H[@@@@*@@@@K1@@@@K @@@@I)@@@@I/=K[:@C/@@@[G@@@@@[@@^1JRA0^1J$'0@@H8];[$JEL )@@G@@'^@[O<@[:^77/K@[$W/K@[$2/K@[*C/K@[:@/K@[*4/K@[(E/K@[:@/K@[:@/K@[(W/K@[(,EM )@@G@@/K@[%O/K@[%%C/@@@[H@@^1F*@@@@G/K@[:@C/@@@]G@@@@@[@@@@@/,0@_+@@[^1+@[0^77EN )@@G@@R@K^74Q@K^7'N.@@@[C8[)@@'^K[T?8L@[$(C8@^1I'^K[T?'^@[T0N@0[$1/K@[:5@[8^77EO )@@G@@C/@@@[H@@^1F*@@@@G/K@[:@C/@@@]G@@@@@[@@@@@/,0@_+@@[^2B@[.^77R@K^74Q@K^7'EP )@@G@@N.@@@[C8[)@@'^K[T?8L@[$_C8@^1I'^K[T?'^@[T0N@0[*B/K@[:5@] ^77C/@@@[H@@^1FEQ )@@G@@*@@@@G/K@[:@C/@@@[G@@@@@[@@@@@/,0@_+@@[^2$@]E^77R@K^74Q@K^7'N.@@@[C8[)@@ER )@@G@@'^K[T?8L@[*PC8@^1I'^K[T?'^@[T0C@@^1HH@@^1G(@@@@G/K@[*(C/@@@[G@@@@@[@@@@@ES )@@G@@/,0@_+@@[^2'@]P^77'^@[T0N@0[**/K@[:5@]S^77C/@@@[G@@@@@[@@@@@/,0@_+@@[^3#ET )@@G@@@]V^77@@K^1G'^@[T0N@0[*3/K@[:5@]Z^77C/@@@[H@@^1F*@@@@G/K@[:@C/@@@]G@@@@@EU )@@G@@[@@@@@/,0@_+@@[^3O@]=^77R@K^74Q@K^7'N.@@@[C8[)@@'^K[T?8L@[([C8@^1I'^K[T?EV )@@G@@'^@[T0N@0[(D/K@[:5@]?^77*@@^1F/K@[:@C/@@@[G@@@@@[@@@@@/,0@_+@@[^3,@]1^77EW )@@G@@R@K^74Q@K^7'N.@@@[C8[)@@'^K[T?8L@[(P'^@[T0N@0[(V/K@[:5@]8^77*@@^1F/K@[:@EX )@@G@@C/@@@[G@@@@@[@@@@@/,0@_+@@[^4#@].^77R@K^74Q@K^7'N.@@@[C8[)@@'^K[T?8L@[($EY )@@G@@'^@[T0N@0[(!/K@[:5@#^^77C/@@@[H@@^1F*@@@@G/K@[%^/,0@_+@@[^4N@#C^77R@K^74EZ )@@G@@Q@K^7'N.@@@[C8[)@@'^K[T?8L@[(8C8@^1I'^K[T?'^@[T0C/@@@#G@@@@@[@@@@@N@0[%#FA )@@G@@/K@[:5@#L^77/,0@_+@@[^4;@#N^77R@K^74Q@K^7'N.@@@[C8[)@@'^K[T?8L@[%E'^@[T0FB )@@G@@C/@@@#G@@@@@[@@@@@N@0[%N/K@[:5@#V^77C/@@@[H@@^1F*@@@@G/K@[:@/,0@_+@@[^5ZFC )@@G@@@#Z^77R@K^74Q@K^7'N.@@@[C8[)@@'^K[T?8L@[%YC8@^1I'^K[T?'^@[T0C/@@@^G@@@@@FD )@@G@@[@@@@@N@0[%(/K@[:5@#*^77C/@@@[H@@^1F*@@@@G/K@[:@/,0@_+@@[^6H@#?^77R@K^74FE )@@G@@Q@K^7'N.@@@[C8[)@@'^K[T?8L@[%4C8@^1I'^K[T?'^@[T0C/@@@#G@@@@@[@@@@@N@0[%_FF )@@G@@/K@[:5@#5^77*@@^1F/K@[:G/,0@_+@@[^65@#8^77R@K^74Q@K^7'N.@@@[C8[)@@'^K[T?FG )@@G@@8L@[:C'^@[T0C/@@@[H@@^1F*@@@@G/K@[:Y/,0@_+@@[^7#@#_^77R@K^74Q@K^7'N.@@@[FH )@@G@@C8[)@@'^K[T?8L@[:QC8@^1I'^K[T?@@K^1H@@K^1G'^@[T0/,0@_+@@[^7R@^E^77@@K@@@FI )@@G@@'^@[T0/,0[=2@@@^7*@^I^77C/@@@ G@@@@@[@@@@@N@0[::/K@[:5@^K^77/,0[=2@@@^7,FJ )@@G@@@^L^77C/@@@#G@@@@@[@@@@@N@0[:4/K@[:5@^N^77R]0^789!)^7;R@K^7.N[@^7"*4@O75FK )@@G@@/K@O75/K@[O5AA0^789()^7;A@K^7.^[@^7"C8FK@@[@@^7'[^@[&5[^@[>HC8FK@[[^@[:-FL )@@G@@[^@[&/[^@[$D[^@[$]C8FK@][^@[%;[^@[:0[^@[:1[^@[%&[^@[:*[^@[:$[^@[%J[^@[%/FM )@@G@@[^@[(I[^@[(H[^@[%>[^@[%K[^@[*:[^@[%@[^@[(_[^@[()[^@[(Z[^@[*H[^@[$8[^@[*'FN )@@G@@[^@[*9[^@[$-[^@[*%[^@[*-[^@[*)[^@[*I[^@[&<[^@[>K[^@[$7[^@[$+/K@[>GA])^7_FO )@@G@@[[@^8@C@FK@[H8@@@[;G@@@=W8@@@AG8FK@@C@:K@#H8)@@[;G)@@=W8)@@AG8:K@]&;@@@[FP )@@G@@&;K@@[&;)@@[&;0@@[N@VK@^8KK[?//KF@@A')H-!A')J-!J8KK[?/R])^7_C[@^8@/KF@@AFQ )@@G@@C@K^8[C-G@@@C-G)@@/KE@@@C5G@@@C1G@@@C!G@@@C(G@@@C>G@@@/,)[!]C@0^8[[-I)@@FR )@@G@@/KE@@@[5I@@@[1I@@@[!I@@@[(I@@@[>I@@@/,)[!GC4FK@@[@@^8]C0:K@@[@)^8#C!FK@@FS )@@G@@[[@^8^G.@@[@[[@^8^/,0@_W@@[@@@@@@^8 @[C^8F@@K^8]@@K^8#@@K^8^'^@[T0N@0[!$FT )@@G@@/K@[!*@[I^8FR]0^8G*4@O8D/K@O8D/K@[O5AA0^8GC8FK@[[^@[!Y/K@[!PR8VK@@C@[@@[FU )@@G@@[@[@@[C/@@@EH@FK@[*@@@@G1@@@@G/K@[!"/,0@_+@@[^8P@[G^8XC/@^8)'^K[T?'^@[T0FV )@@G@@/,0@_W@@@^8I@@@^8L@[J^8XC/@^8)'^K[T?C/@^8K'^K[T?'^@[T0/,0@2H@@@@@@@@@^8IFW )@@G@@@[N^8XC/@@@@'^K[T?'^@[T0N@0[,K/K@[,L@[O^8XR]0^8YR@K^8-*4@O8V/K@O8V/K@[O5FX )@@G@@AA0^8YA@K^8-C8FK@@[^@[,CC@VK@[[@K^8)C8FK@][^@[,F/K@[!0 @@@@@C@@^8+;O@@@=FY )@@G@@W/@@@A[@@^8/K@[,;@[M^83GA )@@G@@/K@[\#C8)@@BN@0[,"/K@[2X@[O^83/,0[5'@@@^8>/K@[,;@[P^83/,0[>D@@@^8>@[Q^83GB )@@G@@[@@^8&G/@__/*@@@@G0@@@@G/K@[\J @@@@@C@@^8>[@@@@@/K@[0$RA0^8&$'0@@^8];[\MGC )@@G@@/K@[\Q/K@[0?/K@[\S/K@[0?'^@[O<@[W^83C@@@@@H@@^8?(@@@@G/K@[\\C@@@@@H@@^8!GD )@@G@@(@@@@G/K@[\\C@@@@@H@@^8,(@@@@G/K@[\\/,0[5%@@@^8$@[<^83C/@@@[H@@^8$]@@^87GE )@@G@@/,0[5\@@@^87/K@[2P@[=^83/K@[\FC/@@@[[@@@@@C/@@@[G@@@@@[@@@@@H@@^8+/G@[\8GF )@@G@@*@@@@G/K@[\./,0[35@@@@@@@@@@@@@@@^8>@[%^83(@@@@@/K@[0^/,0[54@@@^8>/K@[0%GG )@@G@@@[!^83/K@[0C/,0[5'@@@^8>/K@[0%@[\^83/,0[>D@@@^8>@[0^83[@@^8&G/@__.(@@@@GGH )@@G@@/K@[\1C/@@@#H@@^8&/C@[0O*@@@@G/K@[0Y/,0[5%@@@^8$@[5^83C/@@@[H@@^8$]@@^87GI )@@G@@/,0[5\@@@^87/K@[2P@[6^83C@@^8>[@@@@@C@@^8+H@@@@@*@@@@G1@@@@G/K@[0$D@@@@@GJ )@@G@@[@@@@@N@0[0(/K@[2-@['^83 @@@@@/K@[0)C/@@@[C@)@@@H@)^8!*@@@@I @@@@GC/)@@[GK )@@G@@C[@@@@H[@^8\*@@@@K @@@@I)@@@@I/=K[1*C/@@@[C@)@@@H@)^80(@@@@I @@@@GC/)@@[GL )@@G@@C[@@@@H[@^8,(@@@@K @@@@I+@@@@I/=K[\=C/@@@#[@@@@@C/@@@[G@@@@@[@@@@@H@@^8+GM )@@G@@/G@[1H*@@@@G/K@[1M/,0[35@@@@@@@@@@@@@@@^8>@] ^83(@@@@@/K@[1T/,0[54@@@^8>GN )@@G@@/K@[1&@]C^83/K@[1X/,0[5'@@@^8>/K@[1&@]E^83/,0[>D@@@^8>@]F^83[@@^8&G/@__;GO )@@G@@/C@[1>*@@@@G/K@[1A/K@[0Y @@@@@/K@[0)C/@@@][@@@@@C/@@@[G@@@@@[@@@@@H@@^8+GP )@@G@@/G@[11*@@@@G/K@[16/,0[35@@@@@@@@@@@@@@@^8>@]P^83(@@@@@/K@[1./,0[54@@@^8>GQ )@@G@@/K@[1&@]S^83/K@[2[/,0[5'@@@^8>/K@[1&@]U^83/,0[>D@@@^8>@]V^83[@@^8&C/)@@[GR )@@G@@G/@__/*@@@@G @@@@IC/@@@[C.@@@[H[@^8&*@@@@K @@@@G)@)@@G/=0[1%C/@@@]H@@^8&GS )@@G@@(@@@@G/K@[0O/K@[0Y/,0[=2@@@^8*@]-^83C@@^88[@@^8+N@0[2W/K@[2-@]=^83!^)^81GT )@@G@@/K@[O/H8)@@[[^)^81R]0^84R@K^89N[@^8'*4@O81/K@O81/K@[O5AA0^84[^@^81A@K^89GU )@@G@@^[@^8'/KH@@@C8@@@C/\K[2$C8FK@@[^@[0"[^@[09[^@[\)[^@[\W[^@[\S[^@[0![^@[02GV )@@G@@C8FK@[[^@[1I[^@[\9[^@[12[@@^86C8FK@][^@[,4[^@[\.[^@[1M[^@[16C8FK@#[^@[1(GW )@@G@@[^@[1 [^@[\0[^@[\FC8FK@^[^@[\H[^@[0%[^@[1&[^@[0ZC8FK@ [^@[\2[^@[13[^@[1CGX )@@G@@[^@[1B[^@[,Z[^@[0&[^@[1J[^@[0-[^@[1?[^@[1:[^@[\'[^@[0>[^@[\3/K@[,ZC8@@@]GY )@@G@@/\K[2$C@VK@@[@K^88/K@[2SC@FK@[H8@@@[;G@@@=W8@@@AG8FK@@C8:K@]C@0^8;[@"@@@GZ )@@G@@')H[3([4"@@@/KF@@^C4/@@@C0/@@@C?/@@@C*/@@@C=/@@@C)/@@@[4/@@@[0/@@@[?/@@@HA )@@G@@[*/@@@[=/@@@[)/@@@C@FK@[H8@@@[;G@@@=W8@@@AG8FK@@C4;K@]')H[3\/KF@@^C/@@@[HB )@@G@@[@@^8/N@0[4[/K@[5P@[ ^9[C/@@@[G@@^9^[@@^8/C@@^9 H@@^8/*@@@@G1@@@@G/K@[4IHC )@@G@@C8)@@]N@0[4H/K@[5L@[E^9[N@0[4K/K@[5P@[F^9[C@@^8/[@@@@@N@0[4P/K@[5P@[J^9[HD )@@G@@C@@^9 H@@^9A*@@@@G1@@@@G/K@[4ZC8)@@]N@0[4Y/K@[5L@[N^9[C@@^9AG/@__"*@@@@GHE )@@G@@1@@@@G/K@[4*C8)@@]N@0[4$/K@[5L@[P^9[C@@^9A[@@^8/N@0[4?/K@[5P@[R^9[N8K[5^HF )@@G@@^@K^8.C@@^9 H@@^8/*@@@@G1@@@@G/K@[48C8)@@]N@0[47/K@[5L@[W^9[R@K^9BN8L@@@HG )@@G@@^^K[4//,0[3Y@@@[4/@@@^8/@@@@@@@[X^9[C/@@@[G@@^8/[@@^8//K@O8.N@0[5A/K@[5PHH )@@G@@@[)^9[N8K[5E^@K^8./K@[4\C@@@@@H@@^8"(@@@@G/K@[4\N@0[5K/K@[5P@[$^9[!^)^8_HI )@@G@@/K@[O/H8)@@[[^)^8_R]0^9]R@K^9C*4@O8_/K@O8_/K@[O5AA0^9][^@^8_A@K^9C/KH@@@HJ )@@G@@C8@@@^/\K[5UC8FK@@[@@^9BC@VK@[[@K^9 /K@[3.C8@@@#/\K[5UC@VK@@[@K^9^/K@[4]HK )@@G@@C8@@@]/\K[5UC8FK@@[^@[4M/K@[4LC8@@@#/\K[5UC@VK@@[@K^9A/K@[4QC8@@@#/\K[5UHL )@@G@@C8FK@@[^@[4"[^@[5E/K@[4!C8@@@#/\K[5UC8FK@@[^@[4"[^@[5E/K@[5B9*@^'C9*)^'EHM )@@G@@9(@^'GA])^'B^@0^'IC@@^9DG8@@@[!8@@@#/K@[66[@FK@][@@^9DT8@@@UG8@^80R])@@GHN )@@G@@9?FK@@9*@^9"9*E@@@9*E@@A9?FK@[9*E@@CC8;K@#[@'@@O[^'@@^C8@^9"'=@@[GC4@^'^HO )@@G@@/@@[7C;G@@[C9*E@@GC8E@@A'=@@[ /^)[7GC@E@@K[@E@@ C8@@@W[CE@@^C8@@@K[WE@@#HP )@@G@@C8E@@@'=@@@#*4E@@#/K@[7QC@J@@[[@E@@SG@J@@#[@E@@RC@J@@Q[@E@@Q9?@^'C9?)^'EHQ )@@G@@9!@^'GN@0^'IR])^'B/KF@@AR])^;/K@[7X/KI[7G/K@[7K/K@[7Q/K@[7U9?FK@[9*@^'09?FK@@9*@^':C@@^;&/K@[7XHT )@@G@@9?FK@@9*@^'6C@@^;$/K@[7X9?FK@@9*@^''C@@^;* @E@@@C@VK@]%@K^9D/K@[7[H8K@@[HU )@@G@@[@K^9D/K@[7[A])^'B9*@^'C9*)^'E9(@^'G^@0^'IC@FK@@/G@[8+/@@[8+:@@^9D/K@[70HV )@@G@@!@@^9D/K@[8+T8@@@UG8@^80R])@@G(@E@@@/K@[8+C@'@@OC@FK@[/@@[8%/G@[8%C@VK@]HW )@@G@@/@K[8%/GK[8%?@K@@G/K@[8%:@U@@S/K@[8]!@U@@S/K@[8%H@K@@GG8K@@[T@Z@@N[CU@@^HX )@@G@@C8VK@#[^U@@^/=@[8KC8K@@<[WU@@#C@U@@^[@K^'KC@K^;([@U@@^/K@[8MC8K@@K[WU@@#HY )@@G@@C@U@@KG@Z@@MH8@@@[;C@@@[G@K@@G[@U@@ C8E@@@'=@@@#*4E@@#/K@[8?R])^'B9?@^'CHZ )@@G@@9?)^'E9!@^'GN@0^'I/KF@@AC@@^;%'=@@@IR])^'B9?@^'C9?)^'E9!@^'GN@0^'I/KFK@^IA )@@G@@C@@^;:/K@[8/G@['>:@@^9D/K@[98!@@^9D/K@['>T8@@@UG8@^80R])@@G(@E@@@/K@['>C@E@@TIH )@@G@@/@@['ZH8@@@[[@E@@TC@'@@OC8:K@[&;)@@[(CE@@P/K@['PCCE@@PL@E@@QE@K@@HG^U@@MII )@@G@@&#U@@QH8@@@[[CE@@PN@U@@SM#!)@@R])^'B9?@^'C9?)^'E9!@^'GN@0^'I/KF@@ C8E@@@IJ )@@G@@'=@@@#*4E@@#/K@['!C@E@@ G^E@@P[@E@@ C@E@@Q[CE@@P/K@['AR])^'B9?@^'C9?)^'EIK )@@G@@9!@^'GN@0^'I/KFK@]C@@^;,'=@@@IR])^'B9?@^'C9?)^'E9!@^'GN@0^'I/KFK@#9?E@@@IL )@@G@@9*@^'OC4E@@#[@@^'Y/,0[:/@@@^'O@@@^'Y@@@^'Z['5['5/K@['$A])^'B9*@^'C9*)^'EIM )@@G@@9(@^'G^@0^'IC@FK@@/@@[;O/G@[;O:@@^9D/K@[;#!@@^9D/K@[;OT8@@@UG8@^80R])@@GIN )@@G@@(@E@@@/K@[;O @E@@@C@FK@@%@@^9D/K@[;IH8@@@[[@@^9DR])^'B9?@^'C9?)^'E9!@^'GIO )@@G@@N@0^'I/KF@@#C@@^;\'=@@@IR])^'B9?@^'C9?)^'E9!@^'GN@0^'I/KFK@[R@K^;5Q@K^;/IP )@@G@@N.@@@^C@@^;6[@[)@@8L@[;Z @@^;1C_)@@[N.@@@F[#)^;0/,0[3Y@@@@@@@@@^;0@@@^;2IQ )@@G@@@[H^;9C@@^;2H@@^;6(@@@@G/K@[;9C/@@@[G@@^;1[@@^;1/,0[35@@@@@@@@@^;1@@@^;2IR )@@G@@@[L^;9G_)@@[8L@[;>C/@@@[G@@^;1[@@^;1/,0[35@@@@@@@@@^;1@@@^;3@[O^;9C_)@@[IS )@@G@@N.@@@F[#)^;0/,0[3Y@@@@@@@@@^;0@@@^;2@[S^;9C@@^;2H@@^;6(@@@@G/K@[/RC/@@@[IT )@@G@@G@@^;1[@@^;1/,0[35@@@@@@@@@^;1@@@^;2@[W^;9G_)@@[8L@[/#N@0[/T/K@[/U@[Y^;9IU )@@G@@R]0^;'9\)^;.R@K^;_N[@^/@*4@O;7/K@O;7/K@[O5AA0^;'9:)^;.A@K^;_^[@^/@C8FK@@IV )@@G@@[^@[;$C8FK@[[^@[/ C8FK@][^@[/L[^@[;.[^@[;3[@@^;//K@[;WC/@@@[*@@@@@ @@@@GIW )@@G@@C/)@@[*@@@@@ @@@@I+@@@@I/=K[.DC@@@@@"C@^/MC@)@@G"@)@@@1@@@@ID@@@@@]@@^/[IX )@@G@@/,0@4O@@@^/[@[B^/U"@@^/N"@@^/O"K@@@G;)W@@D[@K^/]/GK[.D*@@@@H/K@[.K @@^/]IY )@@G@@D@@@@@*@@@@G0@@@@G/K@[.KC/@@@[[@@^/]*@@@@@/K@[.2C@@^/]G/@__"*@@@@G1@@@@GIZ )@@G@@/K@[.TC/@@@[[@@^/]C/@@@GH@@^/]*@@@@G1@@@@G/K@[.)C/@@@G[@@^/]/,0@_W@@[@@@JA )@@G@@@@@^/E@[O^/U@@K^/]'^@[T0/,0@3G@@@^/M@@@^/]@[S^/U"^@^/P[@@@@@C@)^/][@)@@@JB )@@G@@ @@@@@N@0[.1/K@[_8@[V^/UC@@^/]G/@__4/C@[.7*@@@@G/K@[.;C/@@@G[@@^/# @@^/^JC )@@G@@/K@[_TD@@^/X[@@^/[(@@^/[/K@[" (@@@@@/K@["B"^@@@@/C@[" *@@@@G/K@["BC@@@@@JD )@@G@@[@@^/[D@@^/[/C@["F*@@@@G/K@["IC/@@@^[@@^/ /K@["=/,0@4O@@@^/[@[!^/U[@@^/[JE )@@G@@"@@^/P*@@@@G0@@@@G/K@["XC@@^/N"@@^/["@@^/O"K@@@G;)W@@D[@K^/ /K@["=C@@^/QJF )@@G@@"@@^/["@@^/O"K@@@G;)W@@D]@K^/ [@K^/ C/@@@^H@@^/ [@@^/AD@@^/A*@@@@G0@@@@GJG )@@G@@/K@["? @@^/AC@@^/AG@@^/]G/@@@[[@@^/BG/@__4/G@["4*@@@@G/K@[_BC@@^/B[@@^/#JH )@@G@@C@@^/BG/@__.*@@@@G1@@@@G/K@[".C/@@@][@@^/#C@@^/A[@@^/^C/@@@DH@@^/^*@@@@GJI )@@G@@1@@@@G/K@[_AC/@@@D[@@^/^/K@[_TC/@@@FH@@^/][@@^/^C/@@@DH@@^/^*@@@@G1@@@@GJJ )@@G@@/K@[_LC/@@@D[@@^/^D@@^/^*@@@@G0@@@@G/K@[_Q @@^/^C/@@@G[@@^/#/K@[_T/,0@_WJK )@@G@@@@[@@@@@@^/I@]C^/U@@K^/#@@K^/^'^@[T0C@@^/^H@@^/#G/@@@[]@@^/C/,0@3G@@@^/MJL )@@G@@@@@^/C@]I^/U[@@^/D"C@^/R[@@@@@C/)@@[H@)^/^[@)^/Y/,0@3G@@@^/M@@@^/Y@]K^/UJM )@@G@@[@@@@@C@)^/#[@)@@@N@0[_7/K@[_8@]M^/UR]0^/V*4@O/S/K@O/S/K@[O5AA0^/VC8FK@@JN )@@G@@[^@[/'[^@[//[^@[/0C8FK@[[^@[" [^@["[[^@[._C8FK@][^@[/7[^@[/3[^@[.EC@VK@#JO )@@G@@[@K^/XC8FK@^[^@[.KC8FK@ [^@[_4[^@[.!C8FK@A[^@[.-[^@[_UC8FK@B[^@[.:[^@[_%JP )@@G@@C8FK@C[^@[.,[^@[_2/K@[/\C@@ @G/@__1C@) [G/)__1C[@ ^_G.@__1R@K ^"[@@ ]JQ )@@G@@[@) #[[@ ^C@[@@][@@ #7C@:K@B[@) #8C/@@@2H@@ #7/C@]@!*@@@@G/K@]@\C/@@@[JR )@@G@@[@@ #8C/@@]V"O@ #7[@K^/+C@@@@H"@@ ^*[@@ /,0@4O@@@ @[U ^;"@@ ^("@@ ^%JS )@@G@@"K@@@G;)W@@D[@K #9;KK@@[G/K@@^[@K #'C@@ #9H@@ #'/C@][ *@@@@G/K@][CC/@@@[JT )@@G@@G@@ #9[@@ #'/,0@_W@@[ #;@@@ ^<@[Y ^;@@K #''^@[T0C/@@@CH@@^/-]@@ #/C@-@@SJU )@@G@@[@) #.C.@@@[[[@ #" @@ #_C@@ #_G@@ #"G/@__"[@@ ^@H@@@@@*@@@@G1@@@@G/K@]#JJV )@@G@@C@@ ^@H@@@@@]@@ ^[C/)@@2H@) #_[@) ^]C@@ ^]H@@ ^[*@@@@G1@@@@G/K@][:C@@ ^]JW )@@G@@[@@ ^[C@@ ^@[@@ ^#C/)__"G@) ^[C_0@@[[@)@[^[#0 ^^C/@@@[G@@ ^#[@@ ^#R@) ^#JX )@@G@@O@) ]C@+@@H[@) ^ T/)@@IG@) #C.@@@[G[@ #_[[@ #_T.@@@ C[,@@@[[) ^A(@@ ^AJY )@@G@@/K@]]C[[@@@][[+^/YC@) ^:[@+^/Z/K@]],C@@ ^ T/@@@IG@@ #C@?@@G;))@@+;C)@@N8W@@D^^K]]=N8W@@F^^K]]&N8W@@E^^K]]$KA )@@G@@[[@@@]N8M^/Y^^K]](N8M^/Z^^K]]%N8M^/)^^K]]:N8M^/-^^K]]?/,0[_/@@@]]=@@@]]>KB )@@G@@@@@]]&@@@]]$@@@^/Z@@@]](@@@]]%@@@]]:@@@]]?@[; ^;C/@@@C[@@ ^BC@) ^ T/)@@IKC )@@G@@G@) #R@)@@IC_)@@CN.K@@B[#) ^CN8M@@[^^K]]'/,0[3Y@@@]]'@@@ ^C@@@ ^D@]@ ^;KD )@@G@@C@@ ^DH@@ ^?*@@@@G/K@]#BC/@@@[H@@ ^B]@@ ^BG_)__"8LK]]6C@@ #_T/@@@ C@) ^BKE )@@G@@[@?^/+G_0@@[8L@][1C@@ ^#[@@ ^@C/@__"G@@ #_R/)@@[R/0@@ [@@@[^[@@ C@#^/YKF )@@G@@[@@ ^EC/)@@[[@+ @W @] [IG/@__;/G@]#Y*@@@@G/K@]#&C/@@@ H@@ ^E[@@ ^F;K@@@[KG )@@G@@[@@ ^G[@] [IH@@ ^F]@] @WO/)@@[O/0@@ 8L@]#P @@ ^HR@) ^!R@0 ^,N[@ C@]=/YKH )@@G@@G@@ ^HG@# @WG@#>[I[@@ ^H8L@]#!H@@ #/*@@@@G0@@@@G/K@]^YC@@ #/;@@@@[I[@@ ^L8L@] SH@@ #/*@@@@G0@@@@G/K@] &C/@@@[G@@ ^I[@@ ^I/K@] GKR )@@G@@ @@ ^HC/@__"G@@ ^IR@) ^!R@0 ^,[@@@[^C@# @WG@@ ^HG@]=/YG@#>[I[@@ ^H8L@] ?KS )@@G@@C@@ ^IG@@ #"G/@__"[@@ ^MC@) ^HH@) #/]@) ^NC.@__"G[@ ^IR/)@@[R/0@@ [[@@[^KT )@@G@@A@) ^^C@#^/+[@@ ^BC@+ @WG@<^/YG@+ [I[@) ^EG/@@@[H@)@@G]@) ^O*@@@@I1@@@@IKU )@@G@@/K@]A:C@@ ^NH@@ ^O*@@@@G1@@@@G/K@]AMC@@ ^N[@@ ^OC@@ ^O;K@@@[[@@ ^FG@] [IKV )@@G@@[@] [IC@+ @WG@) ^OH@) ^F[@+ @WG/@@@[H@)@@G*@@@@I0@@@@I/K@]A&C@] @WG/@__"KW )@@G@@[@] @WC@+ [IG/)@@[[@+ [IC@@ ^OH@@ ^N]@@ ^N(@@ ^N/K@]A,O/)@@[O/0@@ 8L@] "KX )@@G@@C/@__"G@@ ^IR@) ^,N.@@@P[@@ C@@ ^?[@] ]Q[@] ]?[@]>#]8L@]A3C@) ^1[@) ]RKY )@@G@@C[@ ^2[[@ ]!C[) ^3[[) ],C"@@@C[]@ ^PC]) #"[]) ^ C_@@@D[#@ ^QR/0@@ R/)@@[KZ )@@G@@N[@ R[@ ^ O[@ ]C@] @WG@#^/Y[@@ AA[@ BC@@ AG@] [I[@@ ^EC@<^/+[@) ^BLA )@@G@@R[@ BC[^@@H[[@ ^#/,0@_W@@[ ^R@@@ ^&@^^ ^;@@K ^#'^@[T0C/@@]V"O@ ^#[@K^/+LB )@@G@@/,0@4O@@@^/+@^D ^;"@@ ^("@@ ^%"K@@@G;)W@@D[@K ^SH@K ^EC/)@]V"O)@@H]@0 #TLC )@@G@@C@)@@J"C) ^4"^) ^5"@) ^%"K)@@I;)"@@D]@0^/)H@0 ^QH@0 ^SH/0__/]@0 C/,0[?(LD )@@G@@@@@ ^R@@@ ^6@@@ ]!@@@ C@@@ ^7@^G ^;C/@@@EG@@ ^EH@@ ^BC/)@]V"O)@@G[@0 #TLE )@@G@@C@)@@J"C) ^4"@) ^5"@) ^%"K)@@I;)"@@D[@0^/)C/@@@ H@@ ^QH@0@@G[@0^/)C/@@@[LF )@@G@@G@@ ^PH@0@@G*@@@@J0@@@@J/K@]C=C@@ ^#T/@@@IG@@ #N8W@@[^^K]CT/,0[?(@@@]CTLG )@@G@@@@@ ^6@@@ ]R@@@^/)@@@ ^B@^M ^;C@@ ^BG@@^/)G/@__"[@@ ^P/K@]C0C@@ ^#T/@@@ILH )@@G@@G@@ #N8W@@[^^K]C%/,0[?(@@@]C%@@@ ^6@@@ ##@@@^/)@@@ ^B@^P ^;C@@ ^QG@@ ^ELI )@@G@@[@@ ^QC/)@@[G@) ^ [@) ^ O/0@@ O/)@@[8L@]BB @@ ^TC.@@@ G[@ #7[[@ ^U @@ ^VLJ )@@G@@(@@ D/K@]D]C/@@@2[@@ ^UC/@@@^G@@ #7[@@ A/,0])-@@@ A@^Z ^;C/@@J*[@@ ^WLK )@@G@@ @@ ^XC@) #"[@) ^ N[@ R[@ ^ O[@ ]C@^@@H[@@ ^#C@@ ^#H@@ ^W*@@@@G1@@@@GLL )@@G@@/K@]DTC@@ ^#[@@ ^WC@@ ^XH@@ ^#*@@@@G1@@@@G/K@]D)C@@ ^#[@@ ^XC/@@@[G@@ ^ LM )@@G@@[@@ ^ 8L@]DI/,0[8,@@@@@@@@@ ^W@@@ ^X@@@@@@/K@]D?@^! ^;/K@]D\N@0]D,/K@]HALN )@@G@@@^\ ^;*@@ ^T/K@]ED*@@ #8/K@]D6/,0]-.@^4 ^;/K@]D8/,0]-'@^6 ^;/,0[UQ@@@ ##LO )@@G@@@^7 ^;/,0[UQ@@@ ]R@^8 ^;/,0[UQ@@@ ]!@^9 ^;R@) ^,N.@@@PC@@ ^?[@]>]@8L@]E#LP )@@G@@/,0[UQ@@@ ][@^_ ^;/,0[9?@@@@@@@@@@@@/K@]GZ/K@]D?@ @ ^;C/@__"G@@ ^IC@) #"LQ )@@G@@[@) ^ R@0 ^,[@@@[^[@@ R[@ ^ O[@ ]C@^@@H[@@ ^#H@@ ^WH/@__"[@@ ^YR@) ^YLR )@@G@@O@) ^C@+@@H[@<>#TC.@@@[G[@ ^ [[@ ^ 8L@]EQC.)@@[G[) ^V[[) ^V/,0@_W@@[ ][LS )@@G@@@@@ #;@ F ^;@@K ^V'^@[T0C/@@@D[@@ ^QR[@ ^,R/)@@ N[@ C@^ #T[@@ ^ZC@= @WLT )@@G@@G@) ^Q[@) ^QC[]^/Y[[@ ^)C[+^/ZH[) ^:*@@@@M/K@]FA/,0[?(@@@ ^Z@@@ ^6@@@ ][LU )@@G@@@@@ ^Q@@@ ^)@ R ^;/K@]GH(@@ #./K@]FM*@@ ^Z/K@]FMC/@@@[+@@ ^Z(@@@@H/K@]FMLV )@@G@@C@@ ^?[@@ #5[@@ #6/K@]GAC@]^/Z[@@ #3C/)@@GH@) ^)*@@@@I/K@]F0C@+^/)H@) ^ZLW )@@G@@/C)]FX*@@@@I/K@]F,C@) ^ZG@+^/)/C)]F+*@@@@I/K@]F,(@]^/-/K@]F0C@) ^ZH@+^/-LX )@@G@@*@@@@I1@@@@I/K@]F0C@) ^ZG@+^/-/C)]F,*@@@@I/K@]F0C@@ ^8[@@ #3*@]^/-/K@]G@LY )@@G@@C@@ ^Z[@@ ^$C@) ^$"@) ^%"K)@@I;)"@@D[@0 ^-/,0@_W@@[ #5@@@ #3@ 4 ^;@@K ^-LZ )@@G@@'^@[T0/K@]GA/,0@_W@@[ #5@@@ #3@ 8 ^;@@K ^Z'^@[T0/,0[?(@@@ #5@@@ ^6@@@ ][MA )@@G@@@@@ ^Q@@@ ^)@ ; ^;C@@ ^)G@@ ^QG@^>[I[@@ ^QO/)@@ 8L@]E3/,0[UQ@@@ ][@ " ^;MB )@@G@@C/@@@[G@@ ^T[@@ ^TC@@ ^UH@@ ^T*@@@@G/K@]GY @@ ^T/K@]D\C@@ ^MH@@@@@*@@@@GMC )@@G@@/K@]G&N@0]G>/K@]HA@A^ ^;C/@@@[G@@ ^I[@@ ^K @@ ^QH@@ #_C@) ^KT/)@@ G/)@@[MD )@@G@@R@0 ^0Q@0@@I]@@@[^C/@@@[G@@ ^Q[@@ ^QT/@@@ G/@@@[R@) ^0Q@)@@GN.K@@^C@#=/XME )@@G@@[@]=/X8LK]G98L@]G1C@) ^Q[@) #_C.@@@[G[@ ^M[[@ #"/K@][QN@0]H /K@]HA@AO ^;MF )@@G@@R]0 ^/9!) E9,@ G9,) I9\@ K9\) MR@K OR@) PR@0 QR[@ RN[@ SN[K TMG )@@G@@*4@P^9/K@P^9/K@[O5AA0 ^/9() E9%@ G9%) I9:@ K9:) MA@K OA@) PA@0 QMH )@@G@@A[@ R^[@ S^[K TC8FK@@[^@]D>[^@]EEC8FK@[[@@ ^"C8FK@][^@]G)[^@][Z[^@][UMI )@@G@@C8FK@#[@@ @C8FK@^[@@ [C8FK@ [^@]EF[@@ ^_C8FK@A[^@]D*C@VK@B[@K D/K@]@UMJ )@@G@@C@@ AWG/@__5C@) AXG/)@@[[@@ AY[@) AZ @@ U @@@@@C/@__"G@FK@[C_0@@[R@K AYMK )@@G@@[@@@[^[#0 VC@[@@E[@@ WC@-@@F[@) XC[[@@G[[@ YH/@@@]/@@]I>/C@]J'C/@@@[ML )@@G@@H@)@@@/G)]IM*@@@@I @@@@GC/)@@[D[) X*@@@@M1@@@@M @@@@I+@@@@I/=K]I-/,0]LQMM )@@G@@@[O AK/,0@_+@@[ <@[P AK@@K X'^@[T0/K@]KR/,0]ME@@@ X@[U AK/K@]KRC/@@@[MN )@@G@@(@@ X @@@@GC/)@@[(@@ Y @@@@I+@@@@I/=K]I./,0]LQ@[Y AK @@ Z/,0@_+@@[ N[@ A&N[K A$*4@PAI/K@PAI/K@[O5C8@@@DAA0 AL[^@ AI9() A)9:) A+MZ )@@G@@A@K A=A@) A>^[@ A&^[K A$/K@]MNC@@ A(G/@__3[@@ A%*@@ U/K@]LE/,0@_+@@[ 'NA )@@G@@@]X APR@K AMQ@K A%N.@@@^C8[)@G'^K[T?8L@]LA'^@[T0C/@@@[G@@ U[@@ UN@0]LJNB )@@G@@/K@]LK@]> APR]0 AQR@K A:N[@ A?*4@PAN/K@PAN/K@[O5AA0 AQA@K A:^[@ A?/K@]K;NC )@@G@@C@@ A,G/@__3C@) A,G/)__2[@@ A\[@) A0(@@@@@/K@]L9C/@__"G@@@@@C_)@@[R@K A\ND )@@G@@[@@@[^[#) +C@[@@GH@@@@@*@@@@G/K@]L6/,0]LQ@]0 AT/,0@_+@@[ A @]1 AT@@K@@@NE )@@G@@'^@[T0N@0]L5/K@]M#@]5 ATO/K@@[G_)@@[8L@]L$C/@@@[G@@@@@[@@@@@R@K@@@O@K A0NF )@@G@@C@)@@@[@-@@GN@0]M]/K@]M#@]' ATR]0 AU9\) A1R@K A3N[@ A4*4@PAR/K@PAR/K@[O5NG )@@G@@AA0 AU9:) A1A@K A3^[@ A4C8FK@@[^@]L([^@]L1[^@]L"/K@]LUC8FK@@[@@ A(C8FK@]NH )@@G@@[@@ AWC8FK@#[^@]JO[^@]JG[^@]II[^@]J][^@]J;C8FK@^[@@ AXC8FK@ [^@]H.[^@]L;NI )@@G@@[^@]L'[^@]L)[^@]L<[^@]L/C8FK@A[@@ A,/K@]H6C@@ CEG/@@@BC8:K@#G/)__"R@K CENJ )@@G@@[@@ CF[@) CGC/@@@BG@FK@][@@ A7C@-@@[G@-@@#H@-@@^[@) A8C@[@@#H@@ A8(@@@@GNK )@@G@@/K@]M"C/@@@]G@@ A7[@@ A7(@FK@]/K@]N#C/@@@^G@@ A7[@@ A7/,0])-@@@ A7@[G CANL )@@G@@/,0]-'@[H CA/,0@_+@@[ A"@[I CAR@) C]Q@) CDN.@@@^C8])@@'^K[T?8L@]NI'^@[T0NM )@@G@@/,0@_+@@[ B @[P CAR@) C]Q@) CFN.@@@EC8])@@'^K[T?8L@]NS'^@[T0N8L@@ ^^K]NZNN )@@G@@/,0[!?@@@]NZ@@@ A5@[W CA/,0@_+@@[ BB@[X CA@@L@@RR@) C#N.@@@[C8]>A4'^K[T?NO )@@G@@8L@]N*'^@[T0/,0@_+@@[ BI@[> CA@@L@@]@@L@@^'^@[T0/,0@_+@@[ BR@[% CA@@K A8NP )@@G@@'^@[T0C@[@@#H@@ A8(@@@@G/K@]OKN8L@@A^^K]N"/,0[!?@@@]N"@@@ A5@[0 CA/,0@_+NQ )@@G@@@@[ B)@[1 CAR@) C#N.@@@[C8]>A4'^K[T?8L@]OA'^@[T0/,0@_+@@[ B&@[8 CA@@L@@[NR )@@G@@@@L@@#'^@[T0(@[@@S/K@]OR/,0@_+@@[ B1@[_ CA'^@[T0/K@]OV/,0@_+@@[ B5@]# CANS )@@G@@'^@[T0*@@ CH/K@]O)N@0]OZ/K@]P)@]B CAC/@@@*[@@ A'C/)@@[[@) A;[@@ A//K@]P@NT )@@G@@C/@@@[G@@ A/[@@ A;C@@ CHH@@ A;*@@@@G1@@@@G/K@]O1N@0]O0/K@]P)@]I CA/,0]-'NU )@@G@@@]J CA/,0@_+@@[ B'@]K CAR@) C]Q@) CDN.@@@^C8])@@'^K[T?8L@]O9'^@[T0C/@@@0NV )@@G@@G@@ A;[@@ A/C@@ CHH@@ A/*@@@@G1@@@@G/K@]PBC@@ CH[@@ A//,0@_+@@[ C[@]U CANW )@@G@@'^@[T0C@@ A/H@@ A;G/@@@[[@@ A.R@) A;O@) CGN8L@@S^^K]PTN8M@@@^^K]PR/,0[Y!NX )@@G@@@@@ A.@@@]PR@@@@@@@@@]PT@@@@@@@]Y CA/K@]O&N@0]PZ/K@]P)@]Z CAR]0 CBR@K CINY )@@G@@R@) CJN[@ CK*4@PC^/K@PC^/K@[O5AA0 CBA@K CIA@) CJ^[@ CKC8FK@@[@@ CDC8FK@[NZ )@@G@@[@@ CEC@VK@][@K CHC8FK@^[^@]PSC8FK@ [^@]PU/K@]M(A]) DA9*@ DB9*) DD9(@ DFOA )@@G@@^@0 DH*@@ D]/K@]RR9?FK@@9*@ CL9*@ C/9*@ C3C8@ C3'=@@[G(4@ C9/K@]SMC8@ CLOB )@@G@@'=@@@#*4@ CO/K@]SMC@@ DN%@@ CR/K@]SSCW@ CW;G@@@=W8@@@WG^@ CU[@@ D[[@@ DMOC )@@G@@N@;K@#8K0]QP/K@]STR':K@]&')@@]CC) CVHW) CWG8)@@V!@:K@ /K@]QX/K@]Q&:@:K@ OD )@@G@@/K@]Q&[@) D#C@:K@ H8)@@C;G)@@=W8)@@ET8)@@EG8)@@C[C) D@[@) DLC8VK@^[^K D@OE )@@G@@C8@ C/'=@@@#*4@ C_/K@]SMG8K@@VH8)@@W;G)@@=W8)@@E:^!@@@/K@]Q9!^!@@@'=@@@)OF )@@G@@(@@ D#'=@@@)[@) D^ @FK@[N@K@@IC@!@@@[@) D G8K@@[&;K@@EC8FK@]C8)@@BH8K@@EOG )@@G@@2?!)@H/K@]R-0@H@@#/K@]R]*@H@@A/K@]R]C@FK@[G8@@@[[@FK@[9!H@@@9(E)@@8K0]R]OH )@@G@@9*K DI^@K DK[@K D]R]) DA9?@ DB9?) DD9!@ DFN@0 DH/KFK@A9?K DIN@K DKN@;K@#OI )@@G@@8K0]RW/K@]ST @FK@[R':K@]&')@@] @@ D]/K@]R](@@ D#/K@]SG @@ D#C@@ DL;G@@@=OJ )@@G@@W8@@@WG@@ DM[@@ D[C[@@@HG^K D@&;K@@EH8K@@EC^@ D H@@ D^C[K@@GT8@@@EG@@@@KOK )@@G@@?@FK@ /K@]S@:@FK@^/K@]S@C@@@@KC[FK@ H[@@@G;H@@@=W9@@@EC[K@@KT9@@@EC@0@@GOL )@@G@@G@@@@K[@@ D#[C@ D@G@@ DLH@@@@J[@@ DLN@K@@LG[K D^[[K D^C8@ C/'=@@@#*4@ C_OM )@@G@@/K@]SM/K@]R]R]) DA9?@ DB9?) DD9!@ DFN@0 DH/KF@@DR]) DA9?@ DB9?) DD9!@ DFON )@@G@@N@0 DH/KFK@B/K@]SM/K@]SMC/@__"G@@ DXR@K E0R@) E\C@) E1G/)__/[@@ E2[@) E3OO )@@G@@/,0[5Y@@@@@@@@@ EX@@@ EY@[F E? @@ D+N8L@@H^^K]S:/,0[3Y@@@]S:@@@ EZ@@@ DC@@ DYH@# DN*@@@@G/K@]U^C@# DOH@@ DZ*@@@@G/K@]U^OS )@@G@@C@# DN[@]@@@C@< DO[@+@@[(@@ D+/K@]UJC.@@@[C[+@@@H[) E+(@@@@MC9@@@@C.)@@[OT )@@G@@C]]@@@H]@ E<(@@@@OC9)@@@+[@@@M/>K]UJ/,0[5%@@@ D&@[& E?/,0[5'@@@ D(@@@@KC8)@@@+@@@@IOV )@@G@@/=K]T_N8M@@[^^K]T'/,0[35@@@]T'@@@ E&@@@ D<@[% E?/K@]UJ/,0[5\@@@ D&/K@]XIOW )@@G@@@[? E?/K@]UJO/0@@]G_)@@[8LK]TDG_0@@[8L@]S//,0@_+@@[ D:@[2 E?'^@[T0 @]@@@OX )@@G@@/K@]XMC@@ E-[@@ DZ/,0[5%@@@ D&@[8 E?/,0[5'@@@ DD@@ D(/G@]U\*@@@@G/K@]XDC/@@@[H@@ D$(@@@@GPA )@@G@@/K@]V6C/@@@[G@@@@@[@@@@@T/@@@#G@@ E3C/)@@#[@?@@@C[@ DY[[G@@[C[) DZ[[?@@]PB )@@G@@*@@ D*/K@]V#N@0]V]/K@]XR@]D E?C@@ D*H@@ E*(@@@@G/K@]UJ/K@]W> @@ D(/K@]VQPC )@@G@@C/@@@[G@@ D([@@ D(G/@__3/G@]VL*@@@@G/K@]XD/,0[35@@@ DY@@@ D(@@@ D<@]M E?PD )@@G@@/,0[54@@@ DC/@@@[C@) DYH@) E-*@@@@IC8@@@@C/)@@[C[@ DZH[@ E-*@@@@KC8)@@@+@@@@IPF )@@G@@/=K]W>/,0[5'@@@ D*/K@]V4@]U E?/K@]U3 @@ D*/K@]U3C/@@@[G@@@@@[@@@@@T/@@@#PG )@@G@@G@@ E3C/)@@[[@?@@@[@@ E4/,0[,Q@@@ DY@@@ D(@@@ D%@]) E?C@@ D%R@0 E4[@#@@[PH )@@G@@C@) D*H@) E(*@@@@I/K@]U"/,0[2?@@@ D7@@@ DY@@@ EY@@@ D$@@@ D*@@@ D(/K@]XIPI )@@G@@@]= E?C/@@@[H@@ D$*@@@@G/K@]W>D@@ D(/G@]WV*@@@@G/K@]XDC/@@@][@#@@@/,0[,QPJ )@@G@@@@@ DY@@@ D(@@@ D%@]% E?C@@ D%[@#@@]/K@]U"/,0[5%@@@ DO@]! E?C/@@@[C/)@[KPK )@@G@@H@) DO*@@@@I1@@@@IC8@@@@C/)@@[D[@ DO/D@]W3*@@@@KC8)@@@)@@@@I/)K]W7C/@@[KPL )@@G@@[@@ DOC/@@@^G@@ DO[@@ DO/,0@_W@@[ D)@@@ D9@]1 E?@@K DO'^@[T0/,0@_+@@[ D)PM )@@G@@@]5 E?'^@[T0/,0@_+@@[ D.@]7 E?'^@[T0/K@]XM/,0@_+@@[ EC@]; E?'^@[T0/K@]XMPN )@@G@@/,0@_+@@[ EN@]_ E?'^@[T0C/@@@[[@@@@@N@0]XQ/K@]XR@## E?R]0 E!9!) E59,@ E7PO )@@G@@9\) E9R@K E;R@) E/R@0 E.N[@ E"N[K E_*4@PE%/K@PE%/K@[O5AA0 E!9() E59%@ E7PP )@@G@@9:) E9A@K E;A@) E/A@0 E.^[@ E"^[K E_C8FK@@[@@ E0[^@]SR]0]Y'*4@^Y:/K@]Y$(0@^Y:/K@]Y(9?@^Y\9*FK@[*?@^Y:/K@]Y:PT )@@G@@**@^Y:/K@]Y!*=@^Y:/K@]Y\*)@^Y:/K@]Y1(4@^Y?/K@]Y39?@^Y49*FK@]*0@^Y?/K@]Y5PU )@@G@@*?@^Y?/K@]Y7/KF@@AR]0]Y'/KFK@#C@@ F@/K@]Y89?@ F[/K@]YNC@@ F#/K@]Y8C@@ F^PV )@@G@@/K@]Y8C@@ F /K@]Y8C@@ FA/K@]Y8;G@@[C/K@]YZC@@ FB/K@]Y8C@@ FC'=@@@I/KFK@^PW )@@G@@@@@@@@QUALIFIERS ARE NOT ALLOWED IN STJBANK NAMES. FILE CYCLES ARE NOPX )@@G@@T ALLOWED IN STJBANK NAMES. READ KEYS ARE NOT ALLOWED IN STJBANK NAMESPY )@@G@@. WRITE KEYS ARE NOT ALLOWED IN STJBANK NAMES. IMPLIED QUALIFIERSPZ )@@G@@ ARE NOT ALLOWED IN STJBANK NAMES. VERSION NAMES ARE NOT ALLOWED IN STJQA )@@G@@BANK NAMES. ELEMENT CYCLES ARE NOT ALLOWED IN STJBANK NAMES.D@@@@@/C@]Z8QB )@@G@@*@@@@G/K@]Z_/,0]+ @@@ FD@[^ FJ @@ FEN@0]Z"/K@])X@[A FJ*@@ FE/K@])J/,0]+EQC )@@G@@@@@ FF@[D FJC@@@@@[@@ FEC@@ FEH@@ FD/C@])F*@@@@G/K@])G @@ FEN@0])I/K@])XQD )@@G@@@[H FJC@@ FEG@@@@@G/@@@][@@ FEH@@ FD/G@])R*@@@@G/K@])[/,0]+E@@@ FG@[L FJQE )@@G@@N@0])W/K@])X@[M FJR]0 FK*4@PFH/K@PFH/K@[O5AA0 FKC8FK@@[^@])K[^@])^[^@]Z4QF )@@G@@/K@]Z4*@@ FN/K@]):(@@ FM/K@])3/,0@_+@@[ FS@[H F,'^@[T0 @@ FNN@0])2/K@]-3QG )@@G@@@[L F,/,0@/B@@@ F(@@@ F%@[M F, @@ FO/,0@_+@@[ FT@[O F,@@K F1@@) FP@@K FQQH )@@G@@@@K FR'^@[T0N@0]-]/K@]-3@[V F,/,0@/B@@@ F:@@@ F:@[X F,C/@@@[[@@ FO/,0@_+QI )@@G@@@@[ FS@[Z F,'^@[T0/K@])8/,0@9)@@@ FQ@@@ FR@[= F,/,0@9T@@@ FP@[> F,N@0]-RQJ )@@G@@/K@]-3@[& F,C/@@@7[@@@@@N@0]-W/K@]-3@[% F,C@@ F2[@@ FMN@0]--/K@]-3@[, F,QK )@@G@@C/@@@[[@@ FNN@0]-&/K@]-3@[1 F,*@@ FO/K@]-?N@0]-:/K@]-3@[4 F,/,0@/B@@@ F(QL )@@G@@@@@ F%@[5 F,N@0]-2/K@]-3@[6 F,R]0 F\*4@PF?/K@PF?/K@[O5AA0 F\[^@ F?/KH@@@QM )@@G@@C8@@@[/\K]-7/K@])$C8@@@[/\K]-7/K@]-#C8@@@]/\K]-7C@VK@@[@K F1/K@]-IC8@@@]QN )@@G@@/\K]-7C8FK@@[^@]-T/K@]-SC8@@@]/\K]-7C@VK@@[@K F2/K@]-XC8@@@[/\K]-7/K@]-+QO )@@G@@C8@@@[/\K]-7/K@]-$C@@@@C;C@@@M[@FK@@/KF@@]/,0[QK/S@@@@ @@ :#/,0]+P@@@ :^QP )@@G@@@[M@@@C/@@@AH@@ :^]@@ :^/,0]+@@@@ :Z@[O@@@/,0])-@@@ !P@[P@@@/,0]X.@@@ : QQ )@@G@@@@@ !)@@@ !Q/K@]+\@[Q@@@/K@]+6/,0@_+@@[ :-@[S@@@'^@[T0/,0[@-@@@ !R@[V@@@QR )@@G@@R/K@@[N.@@@TA@K :AC/@@@DG@@ :AC@) : ;)?@@@;C)@@<[@- F3O/K@@[8L@]+8C@@ F;QS )@@G@@[@@ :B @@ F;C@) F_[@) :C @@ F_C[@ GD[[@ :D @@ GDR/K@@[N.@@@TA@K :A*@[ F3QT )@@G@@/K@]B@@]]>PQY )@@G@@C[) :GT.)@@#R@K !TN.@@@H[[) !ZC8[>JY'^K[T?8L@]=J'^@[T0/,0@_+@@[ :"@]M@@@QZ )@@G@@R@K !TN.@@@HC8[>JY'^K[T?8L@]=S'^@[T0C/@@@[G@@ :^[@@ :^R@K !ZN8L J\^^K]=&RA )@@G@@/,0]X<@@@ JZ@@@ J!@@@ :H@@@]=&@@@ :I@]U@@@C@@ :HG@@ :G[@@ :G(@@ :I/K@]=1RB )@@G@@C/@@@]G@@ :^[@@ :^(@@ :I/K@]=5C/@@@[[@@ :#C@@ J!H@@ !U(@@@@G/K@]>#/,0@_+RC )@@G@@@@[ ?@@]+@@@'^@[T0C/@@@[G@@ :^[@@ :^C/)@@[[@) :#/K@]>AC/@@@[G@@ :F[@@ :FRD )@@G@@/K@]=^/,0@_+@@[ :"@]%@@@R@K !TN.@@@HC8[>JY'^K[T?8L@]>G'^@[T0/,0@_+@@[ ?DRE )@@G@@@]0@@@'^@[T0/K@]+\(@@ :F/K@]>&C/@@@[(@@ :C @@@@GC/)@@[(@@ :D @@@@I)@@@@IRF )@@G@@/=K]>&/,0@_+@@[ ?O@]8@@@'^@[T0C/@@@[G@@ :^[@@ :^C/@@@[*@@ :# @@@@GC/)@@[RG )@@G@@*@@ :C @@@@I)@@@@I/=K]>6 @@ :C/,0@_+@@[ ?)@]_@@@'^@[T0C/@@@[G@@ :^[@@ :^RH )@@G@@ @@ :J/,0])-@@@ :^@#^@@@C@@ :^G/@__'*@@@@G1@@@@G/K@]&[/,0]+J@#A@@@C/@@@[RI )@@G@@G@@ :J[@@ :JH@@ :E*@@@@G0@@@@G/K@]&H/,0]+M@#E@@@/,0[@-@@@ !R@#F@@@C@@ :JRJ )@@G@@;@@@@+C@? GE[@) JQC[G GF[[@ JRC[? GG[[) JSC]G GH[]@ JTC/@@@[[@@ :K[@@ :LRK )@@G@@*@@ JS/K@]$F/,0]P6@@@ JQ@@@ :K@@@ TB@@@ !V@@@ TV@@@ !W/K@]&*/K@]&?@#P@@@RL )@@G@@ @@ :M/K@]&%C/@@@[[@@ :M @@ :L/K@]&6/,0@_+@@[ ?:@#V@@@R@K !TN.@@@[C8[>JPRM )@@G@@'^K[T?8L@]&1'^@[T0/K@]&[C/@@@[G@@ :L[@@ :LH@@ :K/G@]&.*@@@@G/K@]$^C@@ :LRN )@@G@@;@@@@ 1@ARG1**ARG2; OVERFLOW@ ST )@@G@@ARG1**ARG2; ARG1=0, ARG2=0@ ARG1**ARG2; ARG1=0, ARG2 .LE. 0@ ARG1**SU )@@G@@ARG2; ARG1 UNNORMALIZED@ARG1**ARG2; ARG2 UNNORMALIZED@ARG1**ARG2; OVERFLSV )@@G@@OW ARG2*LOG(ARG1)@*SUPWB@@[@@@@@@@@E000000@@@@[_@@@/K@( 34H URPRC2@@@8@@SW )@@G@@URNPAR@@#@@@@_F^^>READ AFTER WRITE ATTEMPTED WITHOUT INTERVENING BACKSPASX )@@G@@CE OR REWIND@_C^^1FORMATTED READ ATTEMPTED ON NON-FORMATTED DATA @_C^^'SY )@@G@@NON-FORMATTED READ ATTEMPTED ON FORMATTED DATA @#C^R ERROR DETECTED WHISZ )@@G@@LE CLOSING FILE OF UNIT @BRKPT @@@@@@@)@@@@@@@@@@TA )@@G@@_____";_____@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_^^R+@_D^R&TB )@@G@@@_B^R\@[F^R6FILE $-$ NOT ASSIGNED THE NTRAN UNIT $-$ IS NOT AVAILABLE TC )@@G@@FOR STANDARD I/O. DRUM FILE ASSIGNED TO SYMBIONT UNIT BACKSPACE WATD )@@G@@S ENCOUNTERED FOR THE UNASSIGNED FILE: $-$ - IGNORED. @ASG,T ,F TE )@@G@@@@@@@@@@@@@K@@@@@K@@@@@C@@@@@C@@@@@D@@@@@)@@@@@(@@@@@@@@@@@@ TF )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/K@@RY/K@@SJR;)^S)/K@@S+R;)^SYTG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_C^S@)^YX/K@^X8'^@@CQ@@@@]#/KF@@]/@)^X5'^@@CQ@@@@A[/KF@@]QF=F"_UI )@@G@@H9V6E>'XA.@K'/D)#K;TUX;!;5ADBN/JQ'/\/*P:P,.@E]8-.Q'*_A.?!I.6"[&89H"P?^?IUJ )@@G@@"(@\9N";*WR7_H&OH _Y.G'P_\\%D6K@@@@@ PPVJ<#G=S1"]UBL*)ALOG10ALOGC$ALOG UK )@@G@@@^@@@@KB0*.WKG B:-@Z____#G3G3H PPPPPK@@@@@C@@@@@)^@@@@@@@@@@@@[@@@@USE UL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@9Y/@@@@@@@ @@@@@@UM )@@G@@@@@@@@@@@@@@@@@@@@(005HM,66,,I2,001H,,I2,001H.) (002HL,,I2,001H.) (5X,01UN )@@G@@3HJOB ABANDONED) (5X,038HWRONG NUMBER OF PARAMETERS IN CALL TO ,A6) UO )@@G@@(5X,029HPARAMETER ERROR IN CALL TO ,A6) (5X,007HITOP = ,I13,5X,009HIBOUP )@@G@@TTM = ,I13,/,5X,057HREQUIRE 0 .LE. ITOP, 0 .LE. IBOTTM, ITOP + IBOTTM .LUQ )@@G@@E. 65)(5X,005HNN = ,I15,5X,025HREQUIRE 1 .LE. NN .LE. 66) (/,121H*****UR )@@G@@************************************************************************US )@@G@@********************************************) @@@@@]URPRTM@@@@@[URPRTLUT )@@G@@@@@@@@ @@F@@@@@@@@@URPRTM@[;]K'@@@@@@@@@@@@@@@@@@() @@ ^*.UNRECOUU )@@G@@GNIZABLE CONTROL WORD ENCOUNTERED _@@@@@*@@@@@@_B^)Z@@@_@@@@@)@@@@ ^*.UV )@@G@@@@@^(M @_R^*.@@[@@@@@ ^(O@@I^(O@@[^(O@@@@@@@@@@@@ STOP @#]^)5UW )@@G@@@@Q^(O(1P6G13.5) @@[[[:@@[[@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T F UX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@[^(O)^@@@@)@)@@@@@[@@O@@[@@P@@@@@@^@@@@@@@@@@@UY )@@G@@@@@@C@K^*@@@@@@@@@KB2@@@@@@@@@KE")@@@@@@@@KI$^@@@@@@@@KL05@@@@@@@@KO.]K@UZ )@@G@@@@@@@@KS&DU@@@@@@@KV\:0)@@@@@@KY;&?*@@@@@@K+>KF9@@@@@@L#:R<:1U1+@@L=2ZFDVA )@@G@@3KL$N,M '1>J<-:>D)M$+H-6E_G=3LNC$4/$D-YUC=N(,RRQ!,899#OE5"X'<8ZU"@O:"5-8VB )@@G@@MO:II&PH==5(FESV96UT(3\2B=K@I?7N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@A$\^+NA:\^+NA\\^+NA3\^+NA7\^+NA<\^+MLOCATION OF VD )@@G@@ERROR IS MARKED BY * IN FOLLOWING IMAGE. @@C^+2@@[^<4@@[^<4@@[^<4@@^^+'VE )@@G@@@@^^+"@@A^<]@@[^<4@@ ^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SEQUEVQ )@@G@@NCE N LINE N ERROR TERMINATION IN ROUTINE CALLEVR )@@G@@D AT SEQUENCE NUMBER OF ROGRAMA COMPUTED GO TO THAT WAVS )@@G@@S OUT OF RANGE WAS DETECTED AT SEQUENCE NUMBER OF MAIN PROGRAM. VT )@@G@@ILLEGAL OP AT SPECIFIED RETURN FROM RETURN VARIABLE SVU )@@G@@PECIFIED IN OUT OF RANGE NEGATIVE@]B^>[@]D^>C@]B^>C@@@/K@MAIN PVV )@@G@@@]E^>C@]H^>M@]B^>+@]C^>( I/ORETN 0RETN K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_____"@@@@@@@@@@@@VX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@[@@@@@@@@@@@@@@@@@[@@@@@@VY )@@G@@@@@@@@@@@@@@@@@[R0@@@[R0@@@[R0@@@@@@@@@@@@@@@[R0@@@@@@IOPR IGDM OFLO VZ )@@G@@UFLO DIVZRORESTRTABORT RBK TS ERR$ ILLEGAL OPERATION CODE GUARD WA )@@G@@MODE VIOLATION FLOATING POINT OVERFLOW FLOATING POINT UNDERFLOWDIVIDEWB )@@G@@ QUOTIENT OVERFLOWPROGRAM RESTART PROGRAM ABORT CONSOLWC )@@G@@E INTERRUPT TEST AND SET INTERRUPT ERROR MODE: TYPE X, CODE XX WD )@@G@@************XXXXXXXXXXXXXXXXXXXXXXXX************ ERROR DETECTED AT LOCWE )@@G@@ATION XXXXXXERROR LIMIT REACHED __ ^$-@#A^$,@]^^$4@[I^$&NL[HPM@@[@@@WF )@@G@@@@@@@@@@@@@@@@[@@@)@)@@@K^*@@@@@@@@@@@[@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WG )@@G@@@@@@@@/S@@@@/K@[T7/K@@@@/S@@@@(4@^*-/K@[T'RB@^*-O;@@@[AB@^*- 4@^*-/K@O*=WH )@@G@@ /K@@@@R#K^)6A#K^*!'^@[PV/K@O*,@@ ^(O@@J___C/@@@@@[Q@@@@@Q@@@@_Q@@@WI )@@G@@@]Q@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]]^%B@@E^?)@@*^,O@[/^\DWJ )@@G@@@C-^1K@[,^'J@@U^/E@@E #4@@+ ^<@@8 <@[) A"@@Z C_@[F D:@@8 F@)@'^*3)@K^(7WK )@@G@@)@R^?D)[%^?%)@H^,/)@F^1 )@Y^91)@H^;.)BK^/=)@> #")@Y )@< AV)@- CY)@H DYWL )@@G@@(4X,008HVARIABLE/2X,010HNO. NAME) (4X,008HVARIABLE,7X,008HCOUNT OF/2X,WM )@@G@@010HNO. NAME,5X,012HDATA PRESENT) (4X,008HVARIABLE,7X,008HCOUNT OF,7X,WN )@@G@@007HMINIMUM,7X,007HMAXIMUM,48X,008HSTANDARD/2X,010HNO. NAME,5X,012HDATWO )@@G@@A PRESENT,6X,005HVALUE,9X,005HVALUE,10X,003HSUM,10X,004HMEAN,8X,008HVARIWP )@@G@@ANCE,6X,009HDEVIATION) (4X,008HVARIABLE,8X,007HMINIMUM,7X,007HMAXIMUM,4WQ )@@G@@8X,008HSTANDARD/2X,010HNO. NAME,9X,005HVALUE,9X,005HVALUE,10X,003HSUM,WR )@@G@@10X,004HMEAN,8X,008HVARIANCE,6X,009HDEVIATION) (I4,3X,A6,A2,5X,004HHAS WS )@@G@@,I1,030H CHARACTER ALPHANUMERIC VALUES) (I4,3X,A6,A2,I10,7X,004HHAS ,IWT )@@G@@1,030H CHARACTER ALPHANUMERIC VALUES) (I4,3X,A6,A2,1X,6G14.5) (I4,3XWU )@@G@@,A6,A2,I10,5X,6G14.5) @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K/@@@@@@@@@@WV )@@G@@@@[@@[@@[@@@@@@@@@@@@@@@K[)@@@@@@@@@@@F@@A@@@@@@S1BAPV@#F@@#@@@@@@@@@)@@WW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ASG,A STJLOG$*STJLOG$//WX )@@G@@LOGGIN. @USE STJLOG$,STJLOG$*STJLOG$. STJLOG$ @@@@@@@P@@@@@[0^?+WY )@@G@@@@@@@@@@@@@@@@@@@@DIAG$ @@@@@@@C@@@@@@]^,>@@@[_@@@@@@@@@@@@@@@@@@@WZ )@@G@@@@@@@@@@@@@@@@@@@@LOGFILE ERROR @@A^,O@@ ^,U*LOGF*@@]^,M@[#^,3@@[@@@XA )@@G@@@@H^,/@@@@@@@@@@@@@@@@@@(030H *****STATJOB SYSTEM ERROR IN ,15A6) (052H XB )@@G@@***** PLEASE SEE A CONSULTANT WITH OUTPUT AND YOUR ,011HINPUT DECK./045HXC )@@G@@ *****WARNING: ERRONEOUS MESSAGES MAY FOLLOW.) @@[@@@@@@@@]@@@@@_@@F@@]XD )@@G@@@@@@@@S1SERR@[V@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XE )@@G@@@@@@@I@@@@@I@@@@@I@@@@@I@@@@@I@@@@@#@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[XF )@@G@@@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[XG )@@G@@@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@F@@@@@B@@@@@A@@@@@IXH )@@G@@@@@@@H@@@@@I@@@@@I@@@@@G@@@@@C@@@@@E@@@@@I@@@@@I@@@@@I@@@@@I@@@@@ @@@@@IXI )@@G@@@@@@@]@@@@@]@@@@@]@@@@@]@@@@@]@@@@@]@@@@@]@@@@@]@@@@@]@@@@@]@@@@@I@@@@@JXJ )@@G@@@@@@@D@@@@@^@@@@@I@@@@@I@@@@@@@@@@@@@@F@@]@@@@@@S1SPCT@[C@@^@@@@@@@@@@@@XK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@(012H ***** FILE ,2A6,017H IS NOT ASSIGNED.) XL )@@G@@(012H ***** FILE ,2A6,032H IS ASSIGNED TO IMPROPER DEVICE.) (034H ***** XM )@@G@@INPUT/OUTPUT ERROR ON FILE ,2A6,007H, REEL ,A6,032H. ERROR WHILE CLOSINXN )@@G@@G THE FILE./084H ***** TWO END-OF-FILE MARKS WERE WRITTEN. WHEN BACKSPAXO )@@G@@CING OVER THE LAST EOF MARK,,030H END-OF-FILE WAS NOT DETECTED.) (034H XP )@@G@@***** INPUT/OUTPUT ERROR ON FILE ,2A6,007H, REEL ,A6,001H.,052H END-OF-XQ )@@G@@FILE INDICATION DETECTED WHEN NOT EXPECTED./061H ***** HARDWARE END-OF-FXR )@@G@@ILE MISPLACED, OR OPERATOR RESPONDED ,H ) (034H ***** INPUT/OUTPUT ERRORXS )@@G@@ ON FILE ,2A6,007H, REEL ,A6,047H. END-OF-TAPE MARK DETECTED WHEN NOT EXT )@@G@@XPECTED.) (044H ***** PROBABLE ERROR IN REELS CONTROL WORD.) (052H XU )@@G@@***** ERROR ON @ASG CARD, OR IN REELS CONTROL WORD,,022H OR TOO MUCH DATXV )@@G@@A FOR ,I2,007H REELS.) (034H ***** INPUT/OUTPUT ERROR ON FILE ,2A6,007HXW )@@G@@, REEL ,A6,038H. TAPE BLOCK HAD FRAME COUNT THAT WAS/022H ***** NOT A MXX )@@G@@ULTIPLE ,017HOF THE WORD SIZE.) (034H ***** INPUT/OUTPUT ERROR ON FIXY )@@G@@LE ,2A6,013H. ATTEMPTED ,057HTO READ AREA OF MASS STORAGE THAT HAS NEVEXZ )@@G@@R BEEN WRITTEN.) (034H ***** INPUT/OUTPUT ERROR ON FILE ,2A6,013H TIME YA )@@G@@EXPIRED,026H ON READ-AND-LOCK REQUEST.) (034H ***** INPUT/OUTPUT ERRORYB )@@G@@ ON FILE ,2A6,007H, REEL ,A6,026H. PARITY ERROR ON TAPE OR/083H ***** OYC )@@G@@PERATOR RESPONDED WITH 'G' TO CONSOLE MESSAGE. PROBABLE TAPE REEL PROBLYD )@@G@@EM,/011H ***** OR @,038HASG ERROR SPECIFYING INCORRECT PARITY.) (034H YE )@@G@@***** INPUT/OUTPUT ERROR ON FILE ,2A6,034H. PARITY ERROR ON MASS STORAGYF )@@G@@E OR/038H ***** OPERATOR RESPONDED WITH 'G' TO ,041HCONSOLE MESSAGE. PROYG )@@G@@BABLE HARDWARE ERROR./019H ***** PLEASE SEE A,012H CONSULTANT.) (034H YH )@@G@@***** INPUT/OUTPUT ERROR ON FILE ,2A6,007H, REEL ,A6,048H. LOSS OF POSIYI )@@G@@TION ON TAPE DUE TO PARITY ERROR,/010H ***** OR ,044HOPERATOR RESPONSE OYJ )@@G@@F 'B' TO CONSOLE MESSAGE./053H ***** PROBABLE TAPE REEL ERROR, OR HARDWAYK )@@G@@RE PROBLEM./023H ***** PLEASE SEE A CON,008HSULTANT.) (034H ***** INPUT/YL )@@G@@OUTPUT ERROR ON FILE ,2A6,007H, REEL ,A6,031H. ASSIGNED TAPE DRIVE IS DYM )@@G@@OWN,/029H ***** OR OPERATOR RESPONDED ,054HWITH 'D' TO CONSOLE MESSAGE. YN )@@G@@ PROBABLE HARDWARE ERROR./046H ***** PLEASE SEE A CONSULTANT OR AN OPERAYO )@@G@@TOR.) (034H ***** INPUT/OUTPUT ERROR ON FILE ,2A6,010H. CAUSE OF,016H PRYP )@@G@@OBLEM UNKNOWN) (034H ***** INPUT/OUTPUT ERROR ON FILE ,2A6,007H, REELYQ )@@G@@ ,A6,009H ON REEL ,I2,004H OF ,I2,027H. CAUSE OF PROBLEM UNKNOWN.)(021H YR )@@G@@***** ERROR CODE IS ,O3,023H WHICH IS NOT EXPECTED.,036H PROBABLE SYSTEYS )@@G@@M OR SOFTWARE ERROR.) S1IOMG. UNEXPECTED I/O ERROR. ______S1IOMG ON CAYT )@@G@@LL TO S1REEL. ______@@[@@@@@F@@^@@@@@@S1IOMG@^N@@]@@@@@@@@@@@@@@@@@@YU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@(I2,001H/,I2,001H/YV )@@G@@,I2) @@F@@#@@@@@@S1BASD@[I@@#@@@@@@@@@@@@@@@@@@ (002H(I,I2,001H),AYW )@@G@@1) (025H0 ERROR IN S1VLU, LENGTH=,I3) @@F@@^@@@@@@S1VLU @[O@@[@@@@@@YX )@@G@@@@@@@@@@@@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@S1GTFD______@@[@@@ YY )@@G@@NUM NUMALPALPNUMALPHA ALPHAN@@F@@@@@@@@@S1GTFD@]=@@#@@@@@@@@@@@@@@@@@@YZ )@@G@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@ @@F@@@@@@@@@S1BUF @[$@@#@@@@@@ZA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@ZB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@ZD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@0@I^'L@@@@@@@@@@@@ZE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ ***** ATTEMPT TO OPEN TOO MANY INPUT STJBANKS. ZF )@@G@@@@@@@@@@@@@@ ***** FILE @@@@@@@@@@@@ NOT ASSIGNED. ***** PROGRAM FILZG )@@G@@E @@@@@@@@@@@@ HAS NO STJBANK @@@@@@@@@@@@ ***** I/O ERROR ON FILEZH )@@G@@@@@@@@@@@@@@ ***** FILE @@@@@@@@@@@@ IS NOT A PROGRAM FILE. ***** BAD FZI )@@G@@ILECD PASSED TO S1SJLD ***** BAD VAR REQUEST TO S1SJLD. ***** I/O EZJ )@@G@@RROR FROM S1SJLD ***** BAD FILECD PASSED TO S1SJIC ***** BAD FILECD ZK )@@G@@PASSED TO S1SJIO ***** BAD FILECD PASSED TO S1SJIN @@U^9E@[E^'Q@[B^')ZL )@@G@@@[F^'$@[A^'2@[C^'8@@]^'J@[A^;@@[A^;A@[ ^;G@[A^;X@[A^;R@[A^;L@@@@@@@@@@@@ZM )@@G@@@@@@@@. ______@@[@@@ @@F@@^@@@@@@S1FILT@[Y@@#@@@@@@@@@@@@(002H(ZN )@@G@@I,I2,003H) ) (002H(F,I2,001H.,I1) K>@@@@KG@@[#NS@@@@KG@@@@H?GV7*ZO )@@G@@KB__.'@@F@@E@@@@@@S1DFMT@]M@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[8@@@@@@ZP )@@G@@@@@@@@) @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(002H(ZQ )@@G@@I,I1,001H)) (I3) @@@@@@JPB:-MKG@@@@NS@@@@ALPHA @@ @@ @@[@@[@@ @@@ZR )@@G@@@@[@@@ OBS. NUMBER K^@@@@KBG3G3@@@@@[@@@@@#(E12.7@@F@@D@@@@@@S1BADPZS )@@G@@@AO@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(5X,027HTHERE IS NZT )@@G@@O VARIABLE NUMBER,I6) (5X,031HTHERE ARE NO VARIABLES NUMBERED,I6,001H-ZU )@@G@@,I6) (5X,027HTHERE IS NO VARIABLE NAMED ,2A6) (053H ***** ERRORS IN VAZV )@@G@@RIABLE SPECIFICATIONS FOR STJBANK ,5A6) (5X,008HVARIABLE,I5,028H IS SPZW )@@G@@ECIFIED MORE THAN ONCE) @@F@@@@@@@@@S1TSVL@]S@@#@@[@@@@@F@@[@@@@@@ERROR ZX )@@G@@@]>@@#@@F@@]@@@@@@ADD @]'@@#(10X,023HDESCRIPTION OF STJBANK ,5A6/) ZY )@@G@@(1X,10A6,A4)(016H CREATED BY RUN ,A6,004H ON ,A6,A2) (005H WITH,I6,016HZZ )@@G@@ OBSERVATIONS OF,I4,010H VARIABLES) (030H AND RESERVED SPACE FOR ADDING,AA )@@G@@I4,010H VARIABLES)(024H LAST VARIABLE ADDED ON ,A6,A2)(013H NOW CONTAINSAB )@@G@@,I4,024H VARIABLES AND SPACE FOR,I4,005H MORE) (018H MDATA FLAG IS SET)AC )@@G@@(022H MDATA FLAG IS NOT SET) (014H VARIABLES IN ,4A6,A1,010H CONTINUED)AD )@@G@@(1H ) @@[@@@@@[@@[@@F@@B@@@@@@S1BAPR@]Z@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@W CR@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@**PF**@@@@@@RESERVE INCLUDE EXCLUDE BY @@@@@BAI )@@G@@(053H ***** THE ABOVE CARD IS NOT ONE OF THE ALLOWED TYPES) ALPNUM______AJ )@@G@@NUM ______(001H(,I2,006HX,1H#)) (058H ***** ERROR IN SPECIFICATION OAK )@@G@@N THE ABOVE CARD NEAR THE #) (060H ***** A FIELD ON THE ABOVE CARD HAS AL )@@G@@MORE THAN 12 CHARACTERS)(053H ***** THE LAST FIELD IS INCOMPLETE ON THE AM )@@G@@ABOVE CARD) @@@@[K@@@@@@@@@@@AM EXCLUDINCLUDB A @@@@@]AN )@@G@@' , - @@F@@A@@@@@@S1BADC@##@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AO )@@G@@@@@@@@@@@@@@@@@@@@@[C]Y;TPF$ @[C]Z#@[C]ZF@[C]ZN@[D]ZV@]C]Z=@[C]Z?AP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@[@@F@@]@@@@@@S1HEDC@[M@@#@@@@@@@@@@@@@@@@@@@@@@@@AQ )@@G@@@@@@@@@@@@@@@@@@@@(1H0) (1H ,15X,038HMADISON ACADEMIC COMPUTING CENTER BAR )@@G@@ANK,A6,018HPROCESSOR RUN ,A6,2X,A6,A2/) @@@@@A@@@@@#@@@@@@@@F@@@AS )@@G@@@@@@@@S1PHED@[6@@#@@@@@@@@@@@@@@@@@@@@@[[*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AT )@@G@@@]@ :Z)@E E6)Z$ F8-[( !Z)@8A\C@@@___@@@___@@@___@@@___@@@___@@@___@@@___AU )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___AV )@@G@@@@@___@@@___@@@___@@@___PRINT ______(021H BANKPRINT TERMINATED) (055H AW )@@G@@ONLY THE H,L, AND V OPTIONS ARE ALLOWED WITH BANKPRINT) (058H NO VALAX )@@G@@ID STJBANK SPECIFICATIONS ARE ON THE BANKPRINT CARD) (13A6,A2) (5X,13AY )@@G@@A6,A2)(048H ONLY THE INCLUDE CARD IS ALLOWED WITH BANKPRINT)(058H INPUT AZ )@@G@@ERRORS HAVE OCCURRED WHILE READING THE INCLUDE CARD) (062H INCLUDE CARDBA )@@G@@S HAVE NO EFFECT UNLESS THE V OR L OPTION IS USED) (058H L OPTION NOTBB )@@G@@ PERFORMED BECAUSE OF ERRORS IN SPECIFICATION) (028H0STJBANKS NOT FOUNDBC )@@G@@ IN FILE ,2A6,030H OR FILE NOT PROPERLY ASSIGNED) (037H ***** TROUBLBD )@@G@@E EXPANDING BLANK COMMON) (060H ENTIRE VARIABLE LIST GIVEN BECAUSE OBE )@@G@@F ERRORS IN INCLUDE USE)(052H L OPTION NOT PERFORMED BECAUSE OF ERRORS IBF )@@G@@N INCLUDE) @@@@@@@@@[[* @@@@@ @@[@@[INCLUD@@@@@E@@@@[=@@@@@[ BG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@$MAIN$ @@^@@^@@@@@]@@@B@ @@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ALOG$ FRJ[FBBANKPRINT [FH[XFBLANK$COMMONBK )@@G@@@@@@@@ERU$ I/!^PGFORIO$1 E%*GQFFORIO$2 KQ+]EGFORIO$4 BL )@@G@@E%.GQFINFOR J<1EPEINFOR$ B.1GNCNEXP5$ G U XDNFFTI$ BM )@@G@@K@[FMENFFTO$ E^NEXDNFTCH$ HS?D]FNISYM$ K@"FMENOSYM$ BN )@@G@@CCFCQDNTAB$ CCRCQDSQRT$ E"4[OBSTJLST JS1BADC K.R^NGS1BADP K"+^NGS1BAPR JDFCS1REEL ^^'^VES1SCAN @JVD^FS1SERR BT )@@G@@L+$GMES1SJIN NH)DLES1SPCT @J$D^FS1TCHS F^*DFCS1TSVL BU )@@G@@J<:EPES1VLU M$-^R URDATE C$/B DURNPAR L,GASAURPRC2 BV )@@G@@LB=BCAURPRTM LCFBCAURRNID DF(]DAUWERR$ C$3 CDUWERU$ BW )@@G@@BY@BKF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$IBANK @@@@@0$DBANK @]K@@4@@@@@@@@@@@@BY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]NK@@[@^@AD@C@@@@@]ECA )@@G@@K@@[@^@@ @ID@@@@]BK@@[@^@@R@II@@@@@=K@@[@^@#[@I>@@@@@JK@@[@^@NT@L&@@@@@YCB )@@G@@K@@[@^@C!@=_@@@@@-K@@[@^@#9@!?@@@@@0K@@[@^@@*@1>@@@@@$K@@[@^@@"@2H@@@@@VCC )@@G@@K@@[@^@[C@3F@@@@@@K@@[@^@[I@4N@@@@@SK@@[@^@#*@5-@@@@@SK@@#@^@@K@9D@@@@]KCD )@@G@@K@@[@^@@B@9T@@@@]^K@@[@^@@J@9)@@@@]HK@@[@^@]!@9\@@@@@MK@@[@^@].@/W@@@@@%CE )@@G@@K@@[@^@[C@_T@@@@@GK@@[@^@T5[@-@@@@[U@@@[@^@@O[UQ@@@@[]@@@[@^@^S[U%@@@@[G@@@@[;CH )@@G@@@@@[@^@@?[?(@@@@[ @@@[@^@@V[!P@@@@][@@@[@^@@\[!0@@@@[L@@@[@^@^_[,Z@@@@[(CI )@@G@@@@@[@^@@Z[3Y@@@@[\@@@[@^@]#[3.@@@@[5@@@[@^@ W[6@@@@@[I@@@[@^@[N[;W@@@@[CCJ )@@G@@@@@[@^@#:[/\@@@@@/@@@[@^@HW]@U@@@@["@@@[@^@^3]H6@@@@@_@@@[@^@#H]M(@@@@@3CK )@@G@@@@@[@^@]=]P6@@@@@9@@@[@^@ <]SU@@@@@P@@@[@^@[7]X.@@@@[O@@@[@^@@3]Z4@@@@[&CL )@@G@@@@@[@^@[,])$@@@@[X@@@[@^@@^]+P@@@@@#@@@[@^@B,]+T@@@@]N0@@]@ @^)^@@@@@@]ECM )@@G@@0@@]@ @@[^^)@@@@]B0@@@@ @@[^^-@@@@]B0@@]@ @@]^^+@@@@@=0@@]@ @@Y^^=@@@@@JCN )@@G@@0@@]@ @O9^ ]@@@@@!0@@]@ @@>^T;@@@@@Y0@@]@ @]T^U)@@@@@-0@@]@ @@+^W9@@@@@0CO )@@G@@0@@]@ @@E^XV@@@@@$0@@]@ @@ ^X>@@@@@V0@@]@ @@C^X%@@@@@@0@@]@ @@?^X2@@@@@SCP )@@G@@0@@]@ @@Y^YY@@@@]K0@@@@ @@[^Y/@@@@]^0@@@@ @@]^Y.@@@@]H0@@@@ @[Y^Y_@@@@]HCQ )@@G@@8@@]@ @@@@^(@@@@@M0@@]@ @@M^)X@@@@@%0@@]@ @@^^)\@@@@@G0@@]@ @C.^)3@@@@[UCR )@@G@@)@@]@ @@ ^(0@@@@[])@@@@ @]:^(5@@@@[<)@@]@ @@]^?)@@@@[))@@]@ @]U^?+@@@@[?CS )@@G@@)@@]@ @@I^,/@@@@@6=@@@@ @@[^\E@@@@[2)@@@@ @@!^\F@@@@[2*@@]@ @@@@#Y@@@@[8CT )@@G@@)@@@@ @[D^\8@@@@[R)@@@@ @A"^1[@@@@[;)@@]@ @@#^7_@@@@[ )@@@@ @@G^8]@@@@][CU )@@G@@)@@@@ @@O^8I@@@@][*@@]@ @@@@^(@@@@[L)@@@@ @@T^8+@@@@[()@@]@ @@[^8;@@@@[\CV )@@G@@)@@@@ @@H^8/@@@@[5)@@]@ @]$^9D@@@@[I)@@@@ @@L^;0@@@@[C)@@@@ @@Y^/[@@@@@/CW )@@G@@)@@@@ @C;^/Z@@@@[")@@@@ @[V U@@@@@_)@@@@ @[W A5@@@@@3)@@]@ @[# CL@@@@@9CX )@@G@@)@@@@ @[? DO@@@@@P)@@@@ @@D F@@@@@[O)@@@@ @@D FD@@@@[&)@@@@ @@- FM@@@@@#CY )@@G@@)@@@@ @-! F3@@@@@#*@@]@ @@@@^(@@@@@A=@@@@ [[* !)@@@@@@@@@@@@@@@@@@@@@@@@CZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ALOG10 @@Y@@[CLAUS$ @@6@MBDCOD$ DA )@@G@@@@S@@@ELT$ @]7@@HERSAV$ @]K@@@EXIT @@6@@AFHS1$ DB )@@G@@@]Z@O5FHS10$ @#G@@CFHS2$ @]Z@O7FHS20$ @#G@@DFNCTB$ DC )@@G@@@]Z@N]GETSPC @][@@GHDTBL$ @#G@[@IOCOD$ @#G@CBNBFGT$ DD )@@G@@@@G@ TNBFMG$ @@G@ WNBFRL$ @@G@B"NBFRS$ @@G@B3NBLNK$ DE )@@G@@@@6@@:NCALC$ @@6@@2NCCC$ @@6@@/NCNV9$ @#G@[JNCOD$ DF )@@G@@@@3@@#NDBCV$ @@6@C#NDBIN$ @#G@[HNDBLT$ @#G@]0NDBSF$ DG )@@G@@@#G@[ENDIAG$ @@6@KRNDIG$ @#G@BHNDOUT$ @@6@SUNERR2$ DH )@@G@@@@6@O]NERR3$ @@6@OONERR4$ @@6@OVNERU$ @@6@L.NEXP5$ DI )@@G@@@@V@@[NFAR$ @@6@L[NFCHK$ @@G@]$NFCI$ @@6@C@@@@@@@@@@@@@@@@@@EO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@======@@^@@ @@@@@@@@@@@@@@ ]P"@@@@@]@@@@@@@@@@@@EQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2Q^WG64 @@@)]@@@@@B]@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@@@@@@@@@^I@@A@@A@]E@BF@@@@@D@@^@@@#OG@@@@@@@^@@@]@^@N@[@ @@@]K^@R@)ES )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ET )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EU )@@G@@@#;@C@@2T@GF[)X@"6)@K@F;)@M@"=)@!]ZN@@@___@@P^@E@@E^@%@@E^[S@#M^[0@^Q^R^EV )@@G@@@]E^V:@#R^YC@#S^-5@[3^>T@@W^$<@@&^*9)@E^@@)@F^@Z)@=^@4)@I^[+)M]^ ])@L^VUEW )@@G@@)@N^X5)@Q^-Z)@G^>H)@R^$GR#V@@@R#H@@@1@H@@@/K@@CA%@@^^T/K@@CCA#@^@E/KF@@]EX )@@G@@A]0^[3A#@^@@/,0@.G@@[^@G@@^^[2R_@^@@'^K[RQ'^@[RUR]0^[3/KF@@]R#V@@@R#@^@FEY )@@G@@A#H@@@/KF@@]/K@@@@'^@@FI'^@@F-A#)^@0/,0@.G@@[^]5@@^^[2'^@[RU/,0@.G@@[^@:EZ )@@G@@@@A^[2'^@[RURB@@CQR#W@@@()G@@@/K@@C?;GK@@A;C)@@Y[@K^#JC I^#-O#@^#N/K@@C0FA )@@G@@;CK@@A[@K^#JC G@@[O#@^#OAB@@GFR@K^^UO@K@@K @@@@FR;0@@ R#L)@@R;)@@ @@@@GFB )@@G@@;?@@@A/@@@C_;)@@@YA#F^@4O]0^#N8#)@C78#0@C5R#K@@F @@@@GW@@^^V)@K^^W)@@^^WFC )@@G@@;*)@@Y;?K@@AA#K^[TA]0^@3O]0^#OA]0^@ZR#@^#NA#@^#IR]0^^U @@@@[R_@@@#A#@@@EFD )@@G@@R#@^#J/@@@F:;G@@@AA#@^#J;CK@@YR#)^#I)@)^@%O#)^#NA#)^#I;?)@@0)@)^[0R#)^[4FE )@@G@@9*%^[SO])^#ORBX^#R'^H@@@/K@@DK/K@@@@'^@@D(R_1^@@R#K^[5A#V@F;AB;)F;^@V)F;FF )@@G@@/K@@D-/K@@@@K[@^@Z?[K^^X/K@@D1C[K^[.[[U^[SO])^#NC.K@@ [[K^@ZA#E^[SO])^#NFG )@@G@@/K@@D(/K@@@@C.@@@GR#@^[8N@K^#C'^@@D-O@K^#N/K@@D5/K@@@@C.@@@KR#@^[9N@K^#DFH )@@G@@'^@@D-O@K^#N/K@@D//K@@@@C.@@@MR#@^['N@K^#E'^@@D-O@K^#OR#@^[;A#E^[SO])^#NFI )@@G@@/K@@E#/K@@@@'^@@EO'^@@D/'^@@EW'^@@D/'^@@ES/K@@EH/K@@@@R#@^["'^@@E)/K@@EOFJ )@@G@@/K@@@@R#@^[_'^@@E)/K@@ES/K@@@@R#@^]@'^@@E)/K@@EW/K@@@@C.@@@#'^@@D(/K@@E)FK )@@G@@/K@@@@'^@@E*'^@@E!/K@@E=/K@@@@R#@^][C.@@@]'^@@D(/K@@E*/K@@@@C.@@@GR#@^[/FL )@@G@@N@K^#F'^@@D-O@K^#N/K@@E!/K@@@@'^@@E*'^@@E!'^@@E!/K@@E4/K@@@@'^@@EO'^@@D/FM )@@G@@'^@@EW'^@@E='^@@ES/K@@E9/K@@@@'^@@EO'^@@E='^@@EW'^@@D/'^@@ES/K@@F@/K@@@@FN )@@G@@'^@@EO'^@@E='^@@EW'^@@E='^@@ES/K@@FB/K@@@@A])^@)A]0^[3A]0^@-9*@^@+9*)^@=FO )@@G@@9(@^@&^@K^@*A@K^@(/K@@FI/K@@@@R])^@)R]0^@-9?@^@+9?)^@=9!@^@&N@K^@*R@K^@(FP )@@G@@/K@@FS/K@@@@RB@^@-A#@^#GL8@@@[RB!@@@P;)@@[RB,@@@R#,@@@A#)^]P/K@@F-R#@^[1FQ )@@G@@A#E^[S9?@^[69*F)F;/K@@F2R])^#N/K@@GJ/,0@.G@@[^[S@@-^[2R])^@3P])^#NR@K^^UFR )@@G@@C/[=@4'^K[RQ8])@F8/K@@@@'^@@FI'^@@F-R])^#OA])^#JR#@^@FO#@^#NA#@^@F0@@^@EFS )@@G@@/K@@HQN8K@#CRBK^#GRF!@@@/^)@GVO#K^#N/K@@GR:@)^^Y/K@@GTRBH@@@R]0^^ZA]0^[WFT )@@G@@ @@^@3AB)^@39!@^]P9(@^[XC[@^]R[[@^[Z?8)@[@/K@@G!9!@^]S9(@^[)C[@^]U[[@^[+FU )@@G@@/K@@G19!@^]V9(@^[)C[@^]X[[@^[+9!@^]]9(@^[(^H@@@/K@@HD9!G@@@FV )@@G@@[ K^#GC[K^#L9(@^[&C[K^[1[[K^[*^@K^#K/,0@.G@@[^[W@@?^[2R_@^@3'^K[RQ'^@[RUFW )@@G@@C[@^[&[[@^]PN@K^#K8KK@GQ/K@@HQ9!@^]Y9(@^[&9!@^] 9(@^[*9!@^]B9(@^[%/,0@.GFX )@@G@@@@[^[W@@,^[2R_@^@3'^K[RQ'^@[RU/K@@HU/,0@.G@@[^]D@@0^[2'^@[RUC[@^@E:[@^^TFY )@@G@@/K@@H-F[K^@EG[K^@F/DK@H%/[K@H%/,0@.G@@[^]O@@2^[2'^@[RU'^@@FS;?@@[C(@@^#JFZ )@@G@@/KF@@#/K@@GF/,0@.G@@[^])@@4^[2C/@^@E'^K[RQ'^@[RU'^@@FS'^@@"L'^@@FI @@^#JGA )@@G@@R#FK@@A#@^]P(@FK@[/K@@H;R#K^@FO#K^#NA#K^@FRB:@@]CDV@@]/@)@I[RB"@@[A#0^#GGB )@@G@@/K@@GP[[K^@3/,0@.G@@[^]8@@'^[2R_@^@3'^K[RQ'^@[RU/K@@HX/S@^^)C@F@@[&#FK@@GC )@@G@@'=@@[Z/KF@@#/S@^^+AA0^^< @FK@[RBF@@]C^W@@[[^K@IQ[^K@IWR#:K@@CCI@@@!@@^^-GD )@@G@@/K@@I+/@@@I+/@:@@#8#)@IWCCI@@@/@@@I)?@@^^-/K@@I+8#)@IW/KF@@#C/@@@[[@FK@[GE )@@G@@/KF@@#K^?@@DR7Z@@@%8K@@_/K@@JLC[@@[[*4G@@C'^@@T= 4G@@C/K@@@@(4G@@C'^@@X>GF )@@G@@C@0^* C^J^T;0@G@@#'=@@@A*4G@@#'^@[J1C@0^* C^J^T;(?G@@C ^G@@C ?G@@CN^W@@DGG )@@G@@N^?@@^^^?@@DN^?@@#^C?@@DC@)^*A:8)@@]/K@@I(CC?@@GOB?@@C/@)@I>G8)@@[K^?@@DGH )@@G@@**J@@@/K@@I(;O)@@=O;0@@VW8)@@WT8)@@W!C?@@D/K@@JPK^?@@DOF\@@@O;)@@]?C?@@DGI )@@G@@/K@@JB*4G@@C/K@@JW'^@@Q_(@@@[[/K@KI!R;K@@[A7W@@C^^W@@^'^@@X>/K@KI!/K@@@@GJ )@@G@@C@0^* C^J^T;*@G@@D/K@@KH'^@@R]^^W@@D^^W@@^(?G@@C/K@@J,R;)@@K[0?@@#'^@@I!GK )@@G@@C0W@@C/K@@KM @G@@E CG@@G @G@@FN@)^*A^0?@@CC^?@@C!C?@@D'^@@I!C@K^*A:8K@@[GL )@@G@@*@G@@E/K@KJZRB?@@CK^?@@DNC\@@@^C?@@GN@\@@@^@?@@EG8)@@[[^?@@CC(G@@E?9@@@]GM )@@G@@/K@KJZC5G@@E%9@@@_/K@@L/K@[KCD[@^RP+[J^T;/ V@@#C^J^T;/@F@@#1@J^T;/K@@M;RF?@@[AF)^RJHA )@@G@@C[J^T;C8@^RH'=@@@J;G@@@>;D@@@+/>@@M8R;@^RJR#;@@[ 4G@@#*@J@@@'=@@@#R7G@@#HB )@@G@@98F@@#/\0@N>/KF@@#*?G@@]/KF@@#9!G@@C99@@NFC1G@@C?9@@@#/K@@NFA]0^RR/,0@V:HC )@@G@@@@@@@@@@@@@@R]0^RR0@G@@#'=@@@A*4G@@#/\0@N=R#0^* R#:@@[C^J^T; 4G@@#(@I@@@HD )@@G@@/K@@NQA]0^RR/,0@T?@@@@@@@@@@@@R]0^RRD[@^RP)[J^T;[[Z^T;9!G@@C99F@@#(4G@@CHE )@@G@@/K@@NZC G@@D'^@@T=C G@@^'^@@T= @G@@C @G@@D/KF@@#RF?@@@AF)^RGC@@^R^[@@^RNHF )@@G@@'=@@@I0@@^RO'^@[N /KJ@@@/K@@@@1@@^RO/K@@N4A]0^RQ @@^RN9*@^RS9*)^RU9(@^RWHG )@@G@@R#K^ROG8K@@[[@K^RO!8K@@>/K@@O[(^H^T;/K@@N5/,0@MV@@@^RO@@@^RP@@@@@@C@K^ROHH )@@G@@/K@@N5*@@^RNAA0@"LR]0^RQ9?@^RS9?)^RU9!@^RW/K@KN?/K@@@@C @@OC[[@^SH[ @@OHHI )@@G@@/K@@OJ/K@@@@ @@^SH/G0[KC!80@@>/K@[KC[@0^* C@Z^T;+@K^S!/^)@QUR;!@@@/^)@QXHJ )@@G@@'^@@Q,A#0^SIR;@^SI'=@@[GR#0^* R;@@@[A7J^T;R7@^SO*0J^T;/@@@QO0@@@O ?G@@C*^G@@D/K@@W['^@@R]C@0^* C^J^T;^^W@@D^^W@@^'^@@L_C1G@@C*4G@@CIY )@@G@@/K@@WD0@G@@#'=@@@A*4G@@#/K@@X+C9K@@_=9@@@[[1W@@E/[@@WM!9@@@#/K@@WM'^@@L&IZ )@@G@@*4G@@C'^@@L&RBW@@CR3?@@C:8)@@^%CW@@D/K@@W*'^@@USR;K@#)AFW@@D*4G@@C/K@@W$JA )@@G@@'^@@Q_*@@@[[/K@@W=0@G@@#'=@@@A*4G@@#'^@[J1/K@@W$R;K@@[A7W@@C^^W@@D ^G@@CJB )@@G@@C G@@^*4G@@C'^@@T= 4G@@CC^W@@CC1G@@E[!@^T>K^W@@DG8K@@[[^W@@CC G@@GG9@@@[JC )@@G@@[ G@@G[-@^T>;L@@@A[>@^T>C[@^T>[[I@@@[[G@@EC1G@@C:9@@@#/K@@XZ:9@@@^/K@@X^JD )@@G@@'^@@X9C1G@@C:9@@@#/K@@X '^@@US'^@@L_*4G@@#'^@[J1C G@@^'^@@T= @G@@^ @G@@CJE )@@G@@ @G@@D/KF@@]C1J^T;%9@@@-/K@@XV0@J^T;/K@@XQC@@^T&'=@@[S/KF@@]C[@^T&RBJ^T;JF )@@G@@[[G@@@'=@@[>/KF@@]C@@^T4'=@@@I'^@[N /KF@@]C9@@@^[1G@@C/K@@X^*^@@N?/KF@@]JG )@@G@@'^@[J1/K@@@@C@0^* C^J^T;'^@@L_*4G@@#'^@[J1C0W@@CC@!^S^[0?@@#C9@@#)C0W@@CJH )@@G@@:8K@@]/K@@X6C9@@#/C0\^T;?8)@@KG9@@@^[DG@@^'=@@@[/K@KX>/K@@@@C0?@@CC9K@@#JI )@@G@@%8)@@[C9K@@^[1W@@CC[I^S^[1G@@#%9K@@#/K@KX9RB?@@C?8)@@]/K@KX9[C?@@D'^@@VTJJ )@@G@@/K@KX9/K@@)(/K@@)(/K@@)(/K@@)-/K@@Z2/K@@Y=/K@@)[/K@@<>/K@@=C/K@@=H/KH@+>JK )@@G@@/KH@+%/KH@+\/KH@+4/KH@+9/KH@+"/KH@<#/K@@-1RF@^*CRB0^*C')G[IH8#@@Y+O;0@@[JL )@@G@@R;@@@ AB0^*CAF@^*C/KF@@@[[K^T'%9K@@T/K@@Y5C K^+2*@@@@LH9K@@[[DK^+'C9@@@@JM )@@G@@W9@@@A;[@@@MD[K@@LG9K@@ ; @@@MG9@^*D[[@^*C C@^+7'^@[JG'^@[JGC K^+2C[@^T'JN )@@G@@:9@@@L/K@@ZP @@@@K?9K@@B/K@@Z H9K@@B/,0@YV8^K@Y"C9K@@ /,0@YV;@)@@A;=K@@AJO )@@G@@G9@@@A8^K@Z[R#@@@KR#)^+!C[@^T';^W@@@RBK^$!%9@@@R/K@@ZKC @^+2?9@@@A;)?@@@JP )@@G@@A#!@@@R7K^+1:8K@@^/K@@)-/K@@Y5H9K@@[D8K@@[/,0@YV:8)@@,/K@@Z*/CK@ZC@)^T6%8)@@,/K@@=F()@^T5/K@@=!'^@[A,0@@^-ID[K@@LRBK^$![[X@@@KS )@@G@@/K@@=H'^@@)_/K@@=H 4@^T50@@@[# @@@[#RB)^+2P#)@[#OF)^+'AF)^+'R3)^$!P;)@@[KT )@@G@@AB)^+\/KF@@@C[K@[#/K@@ZP[[K@[#/,0@=\/K@@=HR]0^$(A]0^U-'^@@>+A]0^VJR#0^W2KU )@@G@@A#0^VX @@^VWC[@^+9 @@@@JG9@@@^W80@@AA#0^U(AA0[RQ/K@[R= @@^U-'^@@>+R;@@!:KV )@@G@@AB@[RVR;@@@FA#@^*AR;@@>TAB@[RNAA0[RQP'0@@]AA0^$(/K@[R=/S@@@@R#@^U)'=@@@HKW )@@G@@R;G@@@/@@@>UT8@@@AO;@@@[A#@^+9/K@K>T/S@@@@ @@^U$ @@^VJR;@@$SAB@[RT&'0@@[KX )@@G@@CDV@@@H9K@@[*@@^U-/VF)@@RFF@@@/@@@>:R#F)@@A#@^U*8^K@>2/K@K>+RFF@@@RBV)@@KY )@@G@@:8@@@#ABK^U$:8@@@]AFK^U$?8@@@^/K@@>0P'0@@[/K@K>+/S@@@@9*@^U+R#@^*A!8@@@CKZ )@@G@@/K@@& R#@^* R\G^T;:8@@@[/K@@(HA#)^U=9(@^U>R;@^*YA#@^*C'^@[RMR#K^+9A#K^VJLA )@@G@@ @@@@GO;K@@^W8@@@AA#@^U(:8@@@Q/K@@&R&;@@@[R#0^W3A#/^*D$;@@@P/K@@&O @@@@JLB )@@G@@R]K^W2A#0^VWA]K^VX9?@^U+R#)^U=9!@^U>/K@K>/RF@^U$*@@@@G/KG@@@R#@^W4'=@@@ILC )@@G@@/K@@&3R#@^U(A\@^U4R#@^U4'=@@@IR]0^U(R#@^W3A#F^*D8]0@&:R;@@@*')D^U6R;@@@[LD )@@G@@A3@^U4R#@^U4'=@@@I/K@[N O8K@@Y @@^$*A4K^$*R8K^*DA^K^$*'^@@(UR#@^VMH8@@@]LE )@@G@@R#G^VGA#@^U_9*K^U+9*0^U=RB0^U*RFK^U*;)K@@MR;)@@ Q;K@@A;@K@@#;=@@@A8#)@$^LF )@@G@@A#@^V /@0@$I9?@^VD9*@^VAR#J@@@A#@^VCR#@^W5'=@@@J9?K^U+9?0^U=/KB@@@R#@^VLLG )@@G@@/@F@@@:8K@@E/K@@%\/KF@@@A@K^VSA])^VTA]0^VU9()^VY9%@^V)9%)^V+[#@^V=9:K^V>LH )@@G@@9:0^V$A]K^V(A[0^V%R#0^VWR]K^VXA#@@@E(@@^VJ'^@@>/ @@@@[H8)@@[R#,@@@;*)@@ELI )@@G@@;C)@@)A#)^VM/KI@$,/K@@*S/K@@(4/K@@(8/K@@(1')D^V7%8K@@ :8K@@,/K@@*^/K@@$9LJ )@@G@@')D^V7:8K@@T/K@@*C:8K@@F/K@@*F%8K@@ :8K@@,/K@@(O/%K@$8/,0@(?/K@@(O/K@@$8LK )@@G@@/%K@$3/,0@(?'^@@>//K@@$3R;K@@[A#U@@@/K@@*G @E@@@/%K@*J/,0@(?/K@@*Q')D^V7LL )@@G@@%8K@@ :8K@@,/K@@*O/K@@*G/%K@(+/,0@(? @@^VJ/K@@(+ @@@@M @@@@PR;@@@\R;K@@9LM )@@G@@9*@@@V @@@@G @@@@N')D^V7%8K@@ :8K@@,/K@@*5:8K@@-/K@@*;:8K@@+/K@@*9/K@@*(LN )@@G@@')D^V7,#0@@H/K@@*.C9)@@[H8K@@0S90@@E9-0@@G/ 0@(M;!0@@=/%K@**/,0@(?/K@@(^LO )@@G@@/K@@**/%K@*Z/,0@(?'^@@>//K@@*ZC'K@@[/K@@*1C"K__"/K@@*1%8K@@ :8K@@,/K@@( LP )@@G@@%8K@@-:8K@@+/K@@(L/K@@(N @@^VJ/H0@(M*@@@@P/[)@(L/[0@(F0@@@@PD[0@@N[['@@@LQ )@@G@@/K@@(ZO8K@@[O8K@@[O8K@@[O8K@@[O8K@@[O8K@@[O8K@@[RB@^U$*@@@@G/K@@&4R#[^V.LR )@@G@@'=@@@I/K@@&>@@@@@@9,)^V+C#@^V=9\K^V>R[0^V%9!)^VY9,@^V)9\0^V$A#0^VWA]K^VXLS )@@G@@R@K^VSR])^VTR]K^V(R]0^VUR#K@(U/@K[R= @@@(U/KG@@@O;0@@[:@0^U(/KF@@@Q'K@@ LT )@@G@@/KF@@[R_@__"A#@^VL/K@@(5 @@^VLR;@@@EA<@@%+/K@@(/R;@@@DA<@@%+R;@@@[A#@^VLLU )@@G@@ @@@@K @@@@L @@@@S @@@@IR[0^W29(@@@M9(@@@O9(@@@QR;@@@\R;K@@99*@@@V/K@@%DLV )@@G@@'^@@>/')D^V7%8K@@ :8K@@,/K@@:A:8K@@-/K@@:G:8K@@+/K@@:E/K@@%N')D^V7,#0@@HLW )@@G@@/K@@%U/,0@:I/%K@%M/,0@(?/K@@:2/K@@%M:8K@@./K@@:*/ )@%-/^)@%-C[K@@B:[K^W2LX )@@G@@/K@@(L @@@@L:8K@@@/K@@%\/,0@$N:8K@@-/K@@%%:8K@@+/K@@%!/K@@%6/A)@(LC")__"LY )@@G@@/K@@%\/A)@(LC')@@[C'0@@[/%K@%3/,0@(?/K@@(L')D^V7/K@@%>')D^V7,#0@@H/K@@:]LZ )@@G@@H8K@@0T90@@EG[0@@HG9K@@[![0^W6/K@@(I/%K@%5/,0@(?/K@@:2/K@@%5%8K@@ :8K@@,MA )@@G@@/K@@:3/K@@(J/%K@%D/,0@(?'^@@>//K@@%DC'K@@[/K@@%QC"K__"/K@@%QH8K@@0/^K@:QMB )@@G@@/^)@:QA[0@@G%@@^W2/K@@:QC9)@@[/KF@@@')B^V:/(;@@@%8)@@^O;)@@[Q90@@ /KF@@@MC )@@G@@/ )@:+/A0@(L/AK@(L/B@@(LR90^W2/K@@%CR#@^VL:8@@@[ @E@@[ @E@@@/G@@!J/K@@(VMD )@@G@@C;@@@[/%K@:?/,0@(?/K@@:2')D^V7,#0@@H/K@@%WG'@@@[/,0@:I/K@@:( @@^VJT8)@@AME )@@G@@&90@@@P90@@ I@)@@B/@)@:W(@@@@L/A0@(KR#K^VL!8)@@N/K@@!PC[@@@IK.@__"[[K@[[MF )@@G@@0@@@@QD[0@@NH[0@@OO#)@@NE@)@@I%8K@@[/K@@?F?8)@^5/K@@?L @E@@[/K@@?H?8)@@$MG )@@G@@/K@@?L1@@@@N/K@@(I @E@@@/K@@!J @@@@IR[0^W2 @@@@L @@@@M9(K@@G;!K@@#;?@@@[MH )@@G@@9-K@@G @@@@G')B^V19-K@@G8KK@?Y/K@@?+/(0@?PO;)@@[Q90@@ /K@@?PR;@@K/"4@@@LMI )@@G@@0@@@@P90K@@H/[0@?" @@@@T#[0@@U9!K^W7W;K@[=R#@@@T/@@@?0;)@@@["(W^)_ @@@@TMJ )@@G@@W;K@@E[#K@@G;)@@@[*@@@@G"(W^)!(@@@@U/K@@?'R#@@@U;)@@@["(W^)V/H0@?."*K@@LMK )@@G@@/K@@?""?K@@L/%K@![/,0@(? @@^VJR#@^VL?8@@@[/K@@!A9*U@@@/K@@(V"/K@@HA#U@@@ML )@@G@@?9@@@D/K@@!J[@@@@H*@@^VK/K@@!J/!0@&'A[0^VKR#@^VL/C@@(VO')@@[(@@^VJ'^@@>/MM )@@G@@/K@@(4A#)@@KH[@@@O!9@@@N/K@@!-C'@@@MH]@@@KR;)@@M*@@^VK/K@@:./!0@&'A[0^VKMN )@@G@@/K@@:.H9@@@M0@@@@QD[0@@NG[0@@K/D0@!(C")__"#[0@@N/K@@!VC')@@[/K@@!V/K@[RUMO )@@G@@R#K^+9R]0^$((CF@@[O'0@@[O'0@@[ @@@@GW8@@@JP;@@@[A#@^W'/K@@,^/S@@@@*@@^W.MP )@@G@@'^@@0I/S@@@@/K@LRUR;K@1MABK[RNR;K@@^/K@@,]R;K@1IABK[RNR;K@@BA#K^W'A]0^$(MQ )@@G@@R;K@,NABK[RTR;K@!6ABK[RVR#K@!9A#K[I"R#K^XPA#K^$9 @@^W.R;)@@NA#Y^*)8#)@,IMR )@@G@@O'0@@[AA0[RQ/K@[R=H8)@@[R#,@@@;*)@@E;C)@@)A#)^W" @@^W9/KI@,T/K@@,*/K@@\JMS )@@G@@/K@@,8/K@@\B'^@@0=R;K@@.'^@@0YR#G@@@+8@@@[R#X^X@'^@@0YR;K@@.'^@@0Y/K@@0CMT )@@G@@'^@@0=R#G@@@R_K__"0@@@@GR;K@@[A#K^W_E@@@@G;O@@@=W8@@@EO;K@@0'^@@0Y/^@@,\MU )@@G@@R#K^W_R#X^XL'^@@0Y/K@@0CR_K__"A#@^W;0@G@@@R;K@@[A#K^W/R#)^W./))@\[O;)@@[MV )@@G@@A#)^W.!@)^W''^@@0IR#@^W;94/@@@980@1Q/K@@\ZK8@@@[A#K^W;C9K@@][[K^W"[[K^W9MW )@@G@@/K@@\JR#@^W; @@^W9R_K__"0@G@@@R;K@@[A#K^W/E@/@@@/@0@1QR#@^XQ"^@@@J/@@@01MX )@@G@@/C@@\YR#@^XR"^@@@J/@@@\Y/G@@\Y/K@@01"80@@J/,0[P_R#@^W"C[W^XA/,0[Q>'^@@0=MY )@@G@@R#@^W"C[G^X]R]/^X@N@W^X^RJ@^$+R;K@@[P;@@@[1@@@@G @@@@HA#K^W_E@@@@G;O@@@=MZ )@@G@@W8@@@EO;K@@0'^@@0Y8^@@\\R#K^W_R#X^XL'^@@0YR#@^W"R#W^XL'^@@0Y*^@^$DP'0@@[NA )@@G@@R#V=$GO;K@@0'^@@0Y8KK@\/R;K@@.'^@@0YR#V^$GO;K@@0'^@@0YR#K^W/R#X^XL'^@@0YNB )@@G@@R#@^W'?@@^W.'^@@0I*@@^W9/K@@\H/K@[R=/S@@@@R#K^W.S8K@@JW8K@@A*@@@@IO;K@@[NC )@@G@@O;K^*Z&;K@@[A#K^*Z'^@[RM @@^W.R#K^XPR;)@@NA#Y^*)8#)@0V/K@K0I/S@@@@')J^XEND )@@G@@/:0K0YP;)@@[R#0^XS/K@K0Y/S@@@@R#0^W. @@@@IR#K^W"%8K@@#P;0@@[O;0@@]A#0^W.NE )@@G@@T80@@JH80@@[W8)@@A&_0__"/K@K0="80@@J/,0[P_C9K@@C/,0[Q>'^@@0=N8K@@#R;K@@ NF )@@G@@'^@@0Y8KK@08N8K@@#RI0^$+O'0@@#&"0__"R#V=$GO;K@@0'^@@0Y8KK@0"R;K@@.'^@@0YNG )@@G@@O'0@@[/K@@1DR#V^$GO;K@@0'^@@0Y/%0@1AR#K^W/R#X^XL'^@@0Y/K@@0C/S@@@@R#@^XTNH )@@G@@'=@@@I/K@K1I/S@@@@R#@^XU'=@@[S/K@K1M'^@@0=R#K^W"R;@@@A:8K@@#O;@@@JR;K@@ NI )@@G@@'^@@0Y8#@@1WR;K@@0'^@@0YR;K@@.'^@@0YR;K@@0'^@@0Y/K@@0C/S@^X-R#V@@@R#H@@@NJ )@@G@@"K)@@GO;)@[5;^K@@[;CK@@O'0@@[C80@@HR#@^X&A#@^*C/K@@2PC80@@EAA0^$(NC;@@@N^:@@@NN )@@G@@[@0^*AC9K[I_[ K[RV^^)^+,N8K@@MC@K^T7C@@^T9M#H)@@C@K@[#O'.@@[AA0[RQ:80@@HNO )@@G@@/K@@2:C9K@21N8K@[L[ K[RN^@K^+9'^@[RM/K@[C)C9K@2/N8K@] C^0[RQG80@@[[^0[RQNP )@@G@@/K@@2$/K@@@@C@@^X$C8K@@P[@H^*D8#K@24C@@^X*'=@@@HC^K@21C[K^X&[[K^*C/KH@@@NQ )@@G@@/K@@@@N8K@@QRB)^*CP;)^*DC9K@@ %DK^*CO;)@@[O#)^X>A#)^X>C@K^X(M#Y)@@C^K@2/NR )@@G@@/K@@29C8K@@[/K@[KKA#@^X%R;W)@@AB@^X:&;K@@[C@@@6!'=@@@HK8W@@@N8W@@@;*@@@^NS )@@G@@'C@@3W!@)^X:/K@@3+Q;)^X!M#Y)@@/G@@3J @H@@@/KF@@[R#@@63R;K@@[/KF@@@R#@@68NT )@@G@@R;K@@]/KF@@@R#@@6"R;K@@#/KF@@@R#)^X%O;)@@[(@I@@@/KF@@@:CI@@@/K@@3\?CI@@@NU )@@G@@/KF@@@O<,@@@/K@@3&R<"@@@P;0@@[T80@@AO$"@@@9?I@@[?80@@BR#K@6,/KF@@[ @@^X7NV )@@G@@R;K@-@A#K^X8R#K^X%;^@@@=R;)@@];G0@[CO;@@@[(@G@@@/KF@@@*4G@@@/K@@4KOK^X8H9K@@0T8)@@E1@@@@LO#)@@L8#0@5PA<)^X8R;0@@E!8)@[@A$0^X8/KF@@[9?)@@GOE )@@G@@D9K@@[N8K@@GG9K@@[;=)@@A+80@@_%9@@@ 8KK@5&9?0@@GR#@@6\R;K@6,N8K@@EM#H)@@OF )@@G@@Q;@@6?R#K@60/\)@6K^X7/[K@6TC9@@@/OI )@@G@@(*@^X7')G)@@')G)@@R#0^X_/\)@6H^X?OK )@@G@@/\@@6>@3Z^X! @@[^X!@@[@@@@@F^X?TPF$. @[^@64PROCESSOR CALL ERROR OL )@@G@@@[ @69ABNORMAL RETURN FROM READ$ @[^@6_TOO MANY SPECIFICATIONS C@@^YCOM )@@G@@'=@@@4C@@@7D[@FK@@/KF@@]@@@@@@@@@@@@'=@@@M;G@@@G;CK@@AG@K^YD;G@@@G;CK@@AON )@@G@@G@K^YD;^@@@0G@K^YE[@FK@@[@VK@[/KF@@#'=@@@M[@FK@@/KF@@]/,0@IJ@@@^ZW@@@^YHOO )@@G@@@[^^Z=C@@^ZX[@@^YIC/)@@[H@)^YH(@@@@I/K@@8%C/)@@[D[@@@@*@@@@K0@@@@K @@@@IOP )@@G@@C.@@@[D[)@@@*@@@@M0@@@@M @@@@K)@)@@K/=0@8"C@)@@@G@)@@@G/)_""/G)@75*@@@@IOQ )@@G@@/K@@8"/,0@.A@@@^YF@@@^YJ@[G^Z=C/@@@@'^K[RQC/@@@@'^K[RQ'^@[RU/,0@IE@@@^ZWOR )@@G@@@@@^YF@[L^Z=N@0@8^/K@@9*@[M^Z=/,0@IJ@@@^ZY@@@^YH@[P^Z=C@@^ZZ[@@^YIC/)@@[OS )@@G@@H@)^YH(@@@@I/K@@8%C/)@@[C.@@[]H[@@@@*@@@@K1@@@@K @@@@IC.@@@[D[)@@@/D)@8UOT )@@G@@*@@@@M @@@@K)@)@@K/=0@8"/,0@.A@@@^YF@@@^YO@[V^Z=C/@@@@'^K[RQ'^@[RU/,0@IEOU )@@G@@@@@^ZY@@@^YF@[Z^Z=N@0@8(/K@@9*@[)^Z=/,0@.G@@[^ZA@[-^Z='^@[RU/,0@.G@@[^YVOV )@@G@@@[<^Z=C/@^YI'^K[RQ'^@[RU/,0@.G@@[^YR@[&^Z='^@[RU/,0@H2@@@^YI@@@^Z)@[*^Z=OW )@@G@@/,0@"F@@@^Z-/,0@.G@@[^ZA@[%^Z='^@[RU/,0@.G@@[^Y=@[?^Z=C/@^YI'^K[RQ'^@[RUOX )@@G@@C@@^YIH@@^ZZ(@@@@G/K@@9V/,0@.G@@[^Y:@[1^Z=C/@@@@'^K[RQC/@@@@'^K[RQ'^@[RUOY )@@G@@/,0@H2@@@^YI@@@^Z)@[5^Z=N@0@9U/K@@9*@[6^Z=/,0@.G@@[^Y.@[7^Z=C/@@@@'^K[RQOZ )@@G@@'^@[RU/,0@H2@@@^YI@@@^Z)@['^Z=N@0@9$/K@@9*@[;^Z=R]0^Z>9!)^Z$*4@OZ+/K@OZ+PA )@@G@@/K@[MZAA0^Z>[^@^Z+9()^Z$/KH@@@C8@@@#/\K@9!C8FK@@[^@@79[^@@70[^@@9J[^@@7(PB )@@G@@C8FK@[[^@@7=[^@@9L[^@@7;[^@@7\/K@@7TC8@@@]/\K@9!C8FK@@[^@@9Y[^@@8L[^@@8)PC )@@G@@[^@@8Q/K@@8 A]0^*B/K@@'J @@^*BAA0^$(RB;@@@R#_@@@N8)^Z(/K@@'P @@^*BAA0^$(PD )@@G@@C^;@@@C@_@@@NC;@@@O'0@@[N^:@@@N8K@@]^@K^*A'^@@OH/K@@'V?8K@@K/K@@'X*@@^*BPE )@@G@@/K@[KCC9K[I_[ K[RV^^)^+,N8K@@MC@K^T7C@@^T9M#H)@@C@K@[#O'.@@[AA0[RQC!Z^T;PF )@@G@@:9K@@[/K@@'?'^@@'6/K@[C)C9K@'2[ K[RNC9K@] [ K^+9'^@[RM/K@[C)/K@@@@C[K^Z%PG )@@G@@[[K^*C/K@K'2/K@@@@C@@^SGC1J^T;%9@@@)/K@@;^C9K@/!1@J^T;C9K@/=[ K[RNC9K@[LPH )@@G@@[[K^+9[[K^*['^@[RM/K@K'6R;@@@[!9@@@)/K@[K%C9K@;I[ K[RNC9K@] [[K^+9[[K^*[PI )@@G@@'^@@JZ/K@@;]/K@@@@A]@^*6A]K^*7A])^*8C@0^* C^J^T;C G@@C!DG@@D/K@@;7C0Z^T;PJ )@@G@@!8K@@K/K@@;XCCW@@D:8K@@Q/K@@;?C^W@@CG^W@@DC[H@@@[[G@@E+[@^Z2:[K^Z2/K@@/"PK )@@G@@/[K@;9%[K^Z3/K@@;2G0X@@@G8K@@[L^W@@D[^?@@C/K@@;Z @G@@E[@K@@CC8)^*DC^W@@CPL )@@G@@9*K@@D/K@@/C @@@@H'^@[KMC@@^Z4'=@@@I/K@[N '^@@I!/K@@;MR2H@@@RAW@@CO'K@@[PM )@@G@@R')^*D+[@^Z5%[K^Z6/K@@/#O]K@@CAAW@@C/K@@;M(@@@@C/K@@/MC[K@@D!DW@@D/K@@/-PN )@@G@@C^W@@DG@K@@DC[H@@@[[E@@@O'K@@[O')@@[P'@@@[ @@@@K?[@@@C/K@@/ AAW@@CC[K^Z7PO )@@G@@[[K^*CC[@^Z8?[@@@E/K@@/XC[K^Z9[[U@@@O')@@[![@@@E/K@@/TR]@^*6R]K^*7R])^*8PP )@@G@@/K@K;I'^@@I!RAW@@C/K@@/ /K@@@@R#@^Z9C8K@@P[@H^*D8#K@/$C@@^Z''=@@@H'^@@/8PQ )@@G@@/K@K/=/K@@@@R#@^Z9C8K@@P[@H^*D8#K@/0C@@^SGC[@^Z'[[G@@@'=@@@+'^@@/8/K@K/!PR )@@G@@/K@@@@C9K^*D[ K^*CC9K@@ [DK^*C/K@K/8RBW@@CO;K@@[ABW@@CC8K@@[/K@[KKC80@@GPS )@@G@@[@0^*A/K@@.IC V@@@[ K^Z;O'0@@[C80@@H[@0^*A/K@@.IC80@@F[@0^*AAA0^$(NC;@@@PT )@@G@@N^:@@@C9K[I.[ K[RV^^)^+,'^@@"6N8K@@EC@K^)BC@)^)CM#!)@@C@K@[#O'.@@[AA0[RQPU )@@G@@C[@^Z/[[@^*ZC[@^*A:9@@@F/K@@.,:9@@@H/K@@.*%9@@@G/K@[KCC9K@.4N8K@[L/K@@.0PV )@@G@@C9K@./N8K@] C^0[RQG80@@[[^0[RQ/K@@.0C9K@" N8K@] [ K[RN^^K^+9 @@^$?/K@[C)PW )@@G@@/K@@@@R#@^Z.'=@@[SC^K@.4'^@@"6C[K^Z/[[K^*Z/KH@@@/K@@@@'^@@".N@K@@JC@K^Z"PX )@@G@@C@)^Z;M#!)@@[@)^Z;C^K@.//K@@.8/K@@@@'^@@_BC@@^)^'=@@@IC^K@" /K@@.8R#FK@@PY )@@G@@:@@^)]/K@@"LA#@^)]R#@^)#'=@@@I/S@@@@/S@@@@/S@@@@/S@@@@/S@@@@(^@@"L'=@@@DPZ )@@G@@9*@^Z_'=@@@6)8@@)@R#@@@H'=@@@5 @@@@G'=@@[[9?@^Z_(@@@"K'^@[N3'=@@@)/KIK"/K@L]:RJ0^+'OJ0^$+AB0^$+OF0^+2AB0^)F @@^$F/C0[#RQZ )@@G@@ ^@^$- @@^$+ @@^$FR;K@@OABK^$D/K@L]:'^@[JG'^@[]:CH@^$+/H@[^F/[@[#0DH@^$+RA )@@G@@] @^$)/K@[#8*C@^+2/K@[#6D9@@@[[ @^$D] @^$)/K@[#8[ @^$)D9@@@@H9@@@[HD@^+2RB )@@G@@G @^+2/H@[ &C^)^$!0@I@@@/[@[ &'^@[^TC5@^+1:9@@@^/K@[^^/K@[#*C[@^)D[[@^+2RC )@@G@@R;)@@ C9K@@]'^@@_Z8^K[^C/K@[[M(@@^$FG9@@@[/H@[^JD9@@@@[ @^$+(C@^+2/K@[#2RD )@@G@@DH@^$+!D@^+2CD@^+2] @^$)C9@@@[] @^$D/K@[#7/K@@@@'^@[^>0G@^$)/K@[^)R;)@@.RE )@@G@@'^@@_ZCD@^+2'^@[ M/K@L^T/K@@@@ ^@[^>/K@[^&/K@@@@/[@[^_H9@@@]R;)@@ /H@[^?RF )@@G@@'^@@_Z8^@[^%C^K^$!R#X@@@/CK[^"/@K[^"R70^+1:80@@ /K@[^.R30^$!:80@@[/K@[^.RG )@@G@@:80@@#/K@[^;>@K^)P/K@[^"/K@[^.>@K^)Q/K@[^"C8)@@-'^@@_ZCH@^$)/H@[ X(^@[^>RH )@@G@@/K@[ B'^@[ M/K@L^>/K@@@@ ^@[^+R#@@@K/K@[ IR#?^$G!@@^)RR;)@@@O;)@@0'^@@_ZRI )@@G@@8#@[ D*^@[^+/K@L^+/K@L /K@@@@R#@^$D/K@[ UR#?=$G!@@^)SR;)@@@O;)@@0'^@@_ZRJ )@@G@@8^@[ PAB@^$D/K@L MD@@@@KGD@^+2R;)@@.'^@@_ZR;)@@0/K@[ ='^@@_Z8#@[ RK )@@G@@'^@[ */K@[^@/K@@@@C K^+2R;)@@*/K@[ !'^@@_Z8^K[ ?/K@L *%8)@@'/K@[ "/,0[I^RL )@@G@@:8)@@'/K@[ 6'^@@_Z/K@[ 1R#K^+0A#K^)K/,0[I^:8)@@'/K@[ 4R#K^)KA#K^+0/K@[DARM )@@G@@/,0[I^'^@@_Z8^K[ "/K@[DAR;)@@ '^@@_Z8^K[A#/K@[DAC9K^) [ K^+,/K@[C+/K@@@@RN )@@G@@ @@^-G @@^-H @@^-D/K@LAD/K@@@@*4@^-G/K@[AZ+8)@@JR#)^-HT8)@@EO#0@@IA#0^-HRO )@@G@@R#)^-G(4@^-H/@)[AIT8)@@EO7)^-H 4@^-HR#0^-HA#)^-G/K@LAIR#)^-DO;)@@[A#)^-DRP )@@G@@9?)^-G/K@LAI/K@@@@9!@^-G'^@[A2/K@LA=/K@@@@9!@^-G'^@[A2/ K[A*C9K@@[/K@LA*RQ )@@G@@/K@@@@9!@^-E'^@[A2/K@LA,/K@@@@/[@[A2!9@@@)/K@[A9;(K@@A;H@@@A/K@LA2RB)[A2RR )@@G@@:8)[A:/K@@@@R;)@@HA\)^$*;C)@@AA3)^$*R;)^*DAB)^$*R;K@@A'^@[I+/K@LA2/K@@@@RS )@@G@@9?)^-G9*)^-ER#)^-DA#)^-C'^@[AD/K@LB @@[BSAA0[BPN@K^>U @@^>U/K@[B4;G0@[CRT )@@G@@*^@[BS"/0@@J'^@[C /K@@@@ ^@[BS/K@[BV/K@@@@C @[BS[ @[BP9!@^-G'^@[A2R\K^-IRU )@@G@@=8K@@)D[K@@LR#K@@LPJK^-IO#K^-CE[K@@H!9K@AK'^@[CEN@K^>U @@^>U9?0^-E980[B1RV )@@G@@;(@@@A;W0@@J;G0@@[R;)@K7P#)@@L9)0^)V"4)@@J0@@^-I900@@J980[BO/@K[BMR;@@@@RW )@@G@@/CK[B9R;@@@[E@K@@H;GK@@=!8)@@EW8K@@E/@)[C];*)@@[[@0^-B')G[CU:@0^-B/K@[BLRX )@@G@@/@K[BMG8@@@]/K@[B9/K@@@@*@@^>U'^@[CE^@K^>U/K@LC /K@@@@ @@^$*R;@@@BA7@^$*RY )@@G@@R;K^*DABK^$*R#@[CP'=@@@I @@@@H'^@[KM/K@[N @[^[CQINPUT EXPONENT TOO LARGERZ )@@G@@"*"^)V"?"^)V"*"^)!"?"^)!"*"^)_"?"^)_ 4@^$! 0@^$! @@^$? @@^+1 @@^+'C9K[FUSA )@@G@@[ K[A;C[K^$,[[K^$1C[K^+![DK^$9C9K@@_[1K^-JC9K[IT[ K[RTC[K^+,[[K^+0R#)@@LSB )@@G@@R#,@@@%@)^+;/K@[D[R;)@!?R#@^*A%8@@@H/K@[C"RB@^)BRBG@@@%^@@"=R;)@=_/K@[D@SC )@@G@@=8@@@#R;)@=_/^,@@@/,0[I^%8)@@(/K@[D[C[K^+0[[K^+3R;@@@@ @@^+2 *@^+1'^@[ADSD )@@G@@C9@@@@/,0[I^/KI[DH/KG[EL/KG[EL/KG[EL/KG[EL/KG[EL/KG[EP/K@[EH/KG[EL/KG[ELSE )@@G@@/KG[EX/KG[EX/KG[ET/KG[ET/KG[E-/KG[E>/KG[EL/KG[EL/K@[EH/KG[EL/KG[EL/KG[E%SF )@@G@@/KG[E,/KG[EL/K@[EH/KG[EL/K@[EH/KG[EL/KG[EL/KG[EL/KG[E2/KG[EL/KG[EL/KG[E6SG )@@G@@/KG[E'/KG[FI/KG[EL/KG[EL/KG[EL/KG[EL/KG[EL/KG[EL/KG[E"/KG[EL/KG[EL/KG[ELSH )@@G@@/KG[EL/KG[FM/KG[EL/KG[F]/KG[F]/KG[F]/KG[F]/KG[F]/KG[F]/KG[F]/KG[F]/KG[F]SI )@@G@@/KG[F]/KG[FQ/KG[EL/KG[FA/KG[FE/KG[EL/KG[ELA#)^+?%8@@@#R;)@@A/KG[ET/K@[FUSJ )@@G@@/K@[FU/K@[FU/K@@"5/K@[DF/K@[DF/K@[DF/K@@",/K@[F!/K@[F8/K@[G^/K@@"5/K@[F!SK )@@G@@/K@[F8/K@[G^/K@@"2/K@[GF/K@[GK/K@[GN/K@@"5/K@[F(/K@[F4/K@[G@/K@@"5/K@[F SL )@@G@@/K@[F:/K@[F6/K@[G]/K@@"5/K@[GU/K@[GZ/K@[G+/K@@"5/K@[G=/K@[G*/K@[G:/K@@"5SM )@@G@@/K@[H^/K@[H#/K@[H!/K@@"5/K@[H\/K@[FU/K@[FU/K@@"0/K@[G!/K@[G"/K@[H[/K@@"5SN )@@G@@/K@[GD/K@[GD/K@[GD/K@@"3/K@[HR/K@[H2/K@[H4/K@@"5/K@[FU/K@[H6/K@[FU/K@@"1SO )@@G@@/K@[DA/K@[F>/K@[F$/K@@"\/K@[DA/K@[F>/K@[F$/K@@"4/K@[GQ/K@[GP/K@[GS/K@@"5SP )@@G@@A3)^$*R;K@@[A7K^$*RBK^+,ABK^$*R;K@@ A\K^$* @@@@H'^@[KM 0@^$9/K@[DF/,0[H'SQ )@@G@@/K@[DA'^@[H"/K@[DAR;0@@ /K@[F\R;0@@B/K@[F\;G)@@#;C0@@-A70^+1'^@[A*[DK^+7SR )@@G@@R;@@@[/K@[DDR;0@@ /K@[F'R;0@@B/K@[F';G)@@#;C0@@-A30^+1/,0[H'R30^+1A70^+1SS )@@G@@C9K@@[/K@[F1R;0@@ /K@[GAR;0@@B/K@[GA;G)@@#;C0@@-A30^+1'^@[H"/K@[F/'^@[AIST )@@G@@/K@[DF'^@[A*/,0[J!H9K@@[R;)@@H/K@@":/,0[H'C9K@@[/K@[GG'^@[H"/K@[GL/,0[H'SU )@@G@@R;)@@'/K@@":'^@[H"/K@[GQC[K^-H**@^+1D[K@@L[ K^+'/K@[DA/,0[H'C9K@@[/K@[GXSV )@@G@@'^@[H"/K@[G)'^@[A*/,0[J!H9K@@[/K@@"?/,0[H'C9K@@[/K@[G>'^@[H"/K@[G('^@[A*SW )@@G@@R$)^+1!8)@@]R;)@@[R#0^+0H9K@@[A#"^+4[ Y^+6O;)@@[A$)^+1!8)@@]/K@[DA 4@^+1SX )@@G@@A<)^+1A#0^+3[DK^+6/K@[DA/,0[H'C9K@@[/K@[G,'^@[H"/K@[G_/,0[H'R$)^+1/@)[HFSY )@@G@@C Y^+5P;)@@[8^K[H(A$)^+1/K@[DAC4)^+1/@)@"!'^@^$0C@)^$![@)^$?C[K^+3[[K^+0SZ )@@G@@R<)^+1A$)^+1/@)[HRCDK^+6[ K^+6'^@[RMC @^+9%9@@][/K@[DAC9@@@@C[K^+0/,0[I^TA )@@G@@%8)@@//K@[H+G9@@@[/K@[HW[[K^+0/[@[DA[1@[H*C@@[H*'=@@@I/K@[DA@@@@@@[ Y^+6TB )@@G@@C[Y^+4[[K^+0/K@[DA'^@[H"/K@[H^R;)@@[A:)^+1/K@[DD/,0[H'/K@[HR'^@[H"/K@[HRTC )@@G@@'^@[A*[ K^+2R;@@@]/K@[DDAA0[H"'^@[A*[ K^+2/K@[I[/K@@@@'^@[A=[DK^+2C[K^+?TD )@@G@@R7)^+1/K@@"['=@@@IR#@@@HN80@#C'^@[O4A#@^=URBK^=C9!@^=D0@H@@@/K@[L%(^H@@@/K@[M TV )@@G@@RBH@@@RF/@@[?80@[@9!@^=F9(@^=RR#G@@@A#@^=WR#@^>]'=@@@IR#@^=WA#@^=ORBK^=CTW )@@G@@RBX@@@'^@[L,A#K^=C/K@[LM9!@^=F9(@^=RR#@^>#/K@[MD/K@@@@RFH@@[?8@@[@/K@[L/TX )@@G@@R#@@@HP;@@@]RBG@@@P;@@@[O;K@@[RBX@@@O#K@@GRFH@@@8K0LL,/K@[MF8#@[L6O;K@@[TY )@@G@@R#X@@@RFH@@@/@@[M#%8@^>^/K@[L9O;K@@[/K@[L_9(@^=RR#@^> A#@^=WR#@^>A'=@@@ITZ )@@G@@'^@[M" @@@"K'^@@"L/K@@@@'^@[N%RF@LMH'^@[O4A#@^=%R#@^>BRBKLMH/@K[MX'=@@@IUA )@@G@@L8K@@]N@.@@@RA.@@[RB,@@@P;)@@[AB)[K1/K@[LC&;@@]K/K@[MD'^@[N%/\0[NYA#@^=4UB )@@G@@A#@^=BR#@^>C'=@@@I/K@[M2'^@[N%/\0[NYA#@^=/9?@^=./K@[M\'^@[N%/\0[NYA#@^=/UC )@@G@@9?@^=_9*@^=5R#@^>D'=@@@I(^@^=C/K@[MAR#@^>]'=@@@I'^@[M"R#@^=WA#@^=ON80@#CUD )@@G@@*@@^=B/K@[NNRBK^=C/K@[L$/K@@@@RB@[N /@@LM"AB@[M" ^@[N '^@[N3/K@LM"/S@@@@UE )@@G@@'^@[N%R#K^$(R#@^>EN@.@@[(CH@@[N@.@@]/\0[NZ/K@[M2/K@[NKN@0LNI'^@[N%R#@^>FUF )@@G@@/K@[NGR]0^<_ @@^=B*CF@@@*4F@@@/K@[NWR;V@@@RFF@@@A#K^=C/K@[LMO'0@@[/K@[NPUG )@@G@@R#@^>GA#@^=O^@0^=CRF@^=C'^@[O4A#@^=URBK^=CR#@^> /@K[N*R#H@@@A#@^=W/KJ@@@UH )@@G@@/K@@@@*^@[N%/K@LN%A]0^<_9*@^=@9*)^=]9(@^=^^@0^=A/K@[N%/K@@@@R]0^<_9?@^=@UI )@@G@@9?)^=]9!@^=^N@0^=A/K@[N3C@@[N.'=@@[[/KF@@[EW@[N.@@@@@@A#@^>SR\@[N./KG[O[UJ )@@G@@/K@@@@/K@@@@/K@[OG/K@[OJ/K@[OI/K@@@@/K@@@@/K@[OR/K@@@@/K@[OZAF@^>U/K@[OJUK )@@G@@AB@^>URB@[N.R#G@@@;*@@@E;C@@@) @G@@G @G@@H(@@@@G @@^>S(@@^>T/K@[O/RB@[N.UL )@@G@@O;@@@[AB@[OYR#@^>S'=@@[@/K@[OYR#@^>S9*@^>JA#)^>LRF@[N.;C@@@A'^@[O4A:@^&1UM )@@G@@;C@@@AA\@^&1;C@@@AA7@^&0C@@^$^'=@@@IRB@[N.'^@[O4A#@^&_C@@^$ '=@@@I9?@^>JUN )@@G@@R#)^>L'^@@"L/K@@@@;G@@@MR;)@@ Q;K@@A;@K@@#;?@@@A8#)[O7/K@LO4R#@^>SA]0^>IUO )@@G@@9*@^>J9*)^>L9(@^>N^@K^>P^@)^>Q^@0^>RR;@@@[A7@^>TK^@[N.ABK[PTR\K[N.'=@@[@UP )@@G@@O#H^>UA#H^>UA#@^>HRB!^>5/,"@@@@@@^>H@[Q@@@R]0^>I9?@^>J9?)^>L9!@^>NN@K^>PUQ )@@G@@N@)^>QN@0^>R 4@^>T/K@[PTP;@@@[!@H^><0@H^>I/K@[O?(@H^>?/KF@@]R#H^>?P;@@@[A#H^>?;*K@@]9?!^& 9!H^&BUS )@@G@@9*)^&49(@^&6RB@[N.'^@[O4A#@^&_C@@^$B'=@@@I/KF@@]/K@@@@C@@^$<;GK@@=W8K@@EUT )@@G@@[@?=$G/^K[P8[@@^$DC @^$D/K@LP6 ^@^$+>@@^$=")0[Q<98;@@@"0@@@JH8@@K@/@F@@@UU )@@G@@S@@^$CAA0[QZ/^@[QFE@@@@G/K@[QJ[^@^$+D@K@@G/,0[BGRJ@^$+9?K[Q)9=K@@J98K[QXUV )@@G@@/GK[QQ"*0^$>H8@@@[/K@[QJ9?K[Q+9=K@@J98K[QU/CK[QYG8@@@["?0^$>/K@[QJG9@@@[UW )@@G@@[^@^$+/K@@@@J.3G3G3G3G3GK[)@@@@@@@@@@@@@@@980[RI"0K@@JP;K@J5;?!@@@[ K^$-UX )@@G@@?9K@@B @@@@J!9K@@OC9K@@NC@@^$< ^@^$DC@K@@IU8K@@E/@0[Q9;C0@@[U80@@E;*0@@[UY )@@G@@[@0^$F9)K^$EC@0@@K[@W=$G;C)@@[8^K[Q0 @@^$FG8K@@ H@@^$$/K@[R#C@W^$GG8K@@[UZ )@@G@@[@W^$G?8K@@E/KF@@@H8K@@E[@W^$G8#@[R@C8K@@[[@K^$FG^K^$+[^K^$+[^@^$D/KF@@@VA )@@G@@[ K^$-C8K@@O[^K^$D/KF@@@/K@@@@'^@@@@ C@^+'/K@LRM/K@@@@A]0^$(C^)[RQ/K@@@@VB )@@G@@/K@@@@/K@J__R#)^$:AB)[RTR#)^$\A#)^$1/K@[RRR#)^$,A#)^$1/K@O$0RB@[RQR]0^$(VC )@@G@@*4G@@@/KG@@@R;?@@[R#G@@@+@@^*'O#K^*;A#K[R!R7@@@@AB)[RQ/K@[RT/K@@@@[^@^$!VD )@@G@@P;)@@[C[I@@@;(@@@E;D@@@)[1@^$!:9@@@^[5@^$!C9K@@[:9@@@^G9K@@[:9@@@#G9K@@[VE )@@G@@[[K^*^/K@LR0C@FK@#H@FK@]G/@@@[[@@^*/G/@__"C/)@@[H@:K@]C[@^(XG.@__"C[)^(XVF )@@G@@G.)__0C_)@@[R@K@@K[@@@[^[@)^(Y[[)^(Z[#)^*.C@@^*.T/@@@IG/@@@^G@@^(Z[@@^()VG )@@G@@C/@@@[C/)@@AH@-@@[*@@@@I1@@@@I @@@@GC/)@@[D[[@@[*@@@@K0@@@@K @@@@I)@@@@IVH )@@G@@/=K[S\R@)^(PQ@)^()N.K@@E @])@@8LK[S&*@[@@[/K@[S?C/@@@][@[@@HC@@^(-[@[@@IVI )@@G@@/K@[S7C@@^(YH@@^*.]@@^*"/,0@.G@@[^(@@[U^(U@@K^*"'^@[RUO/K@@IG_)@@[8L@[SKVJ )@@G@@ @@^*_N@0[S./K@[WO@[-^(UC/@__"G@@^*/C@)^((@@@@@/K@[T9*@[@@I/K@[T9C@[@@I;)@@@[VO )@@G@@;C@@@<*@@@@G/K@[V?C@[@@I"@@^(Q"^[@@I(@@@@G/K@[U[C^<@@H+8)__.[^3@@H*@[@@IVP )@@G@@/K@[UAC^<@@H)8)@@[[^3@@HD@[@@I/C@[UE*@@@@G/K@[U:(@[@@I/K@[VDC/@@@[C@+@@FVQ )@@G@@"^-@@I*@@@@I1@@@@I @@@@GC/)@@[D[]@@F/H@[UR*@@@@K @@@@I)@)@@G/)0[UVC@[@@IVR )@@G@@[@]@@FC/@@@[C@-@@I"^+@@G*@@@@I1@@@@I @@@@GC/)@@[D[]@@G/H@[U&*@@@@K @@@@IVS )@@G@@)@)@@G/)0[U%C@[@@I[@]@@G/K@[VDC/@@@[C@-@@I"^+@@D*@@@@I1@@@@I @@@@GC/)@@[VT )@@G@@D[]@@D/D@[U6*@@@@K @@@@I)@)@@G/)0[U'C@[@@I[@]@@DC/@@@[C@+@@E"^-@@I*@@@@IVU )@@G@@1@@@@I @@@@GC/)@@[D[]@@E/D@[V *@@@@K @@@@I)@)@@G/)0[VDC@[@@I[@]@@E"8[@@IVV )@@G@@C@<@@^[@)^(LC[#@@ [[@^(MC@<@@A[@)^(NC[#@@B[[@^(O9*@^(=")@^(L9*@^(L9?)^(=VW )@@G@@"*)^(="))^(N9*)^(NC@@^(L[@#@@^C[@^(M[[#@@ C[)^(N[[<@@AC]@^(O[]#@@BC]<@@CVX )@@G@@G")@@[[]<@@C/K@[V?C@[@@IH@@^(R(@@@@G/K@[V?C@#@@CG/@@@[[@#@@CO/0@@IO/K@@[VY )@@G@@O/)@@I8L@[T,N@0[V2/K@[WO@]:^(UC/@__"G@@^*/C@)^(XG/)__"R@K@@I[@@@[^*@[@@[VZ )@@G@@/K@[WJD@[@@D*@@@@G0@@@@G/K@[W@ @[@@DD@[@@E*@@@@G0@@@@G/K@[W @[@@ED@[@@FWA )@@G@@*@@@@G1@@@@G/K@[WE @[@@FD@[@@G*@@@@G1@@@@G/K@[WJ @[@@GO/K@@I8L@[V9N@0[WNWB )@@G@@/K@[WO@]9^(UR]0^(V9!)^(&9,@^(*9,)^(%9\)^(?R@K^(,R@)^(\R@0^(0N[@^(1N[K^(2WC )@@G@@*4@O(S/K@O(S/K@[MZAA0^(V[^@^(S9()^(&9%@^(*9%)^(%9:)^(?A@K^(,A@)^(\A@0^(0WD )@@G@@^[@^(1^[K^(2/KH@@@C8@@@C/\K[W-C8FK@@[@@^(XC8FK@[[@@^(@@@M"!@^(8][@^('][K^(;9?@^('"=@^:_*@@@@G1@@@@G/K@[Z59?@^:_9*@^(' @@^%#WU )@@G@@9?@^?["=@^(8*@@@@G1@@@@G/K@[)[9?@^?["=@^(89?)^('"?)@@G"/)@@I]@)^%#/,0@1&WV )@@G@@@@@^%#@]?^? [@@^%^*@@@@@/K@[)VC@@^(.T/@@@IG@@^?F[@@^?J/,0@.G@@[^:?@]\^? WW )@@G@@@@L@@HR@0^?JC8#@@['^)[RQ@@<@@]@@)^(5@@)^(4@@)^%[@@)^%]@@)^%#@@)^%^'^@[RUWX )@@G@@/K@[)\C@@^(.T/@@@IG@@^?F[@@^?J/,0@.G@@[^:0@]/^? @@L@@HR[@^?JC8^@@['^)[RQWY )@@G@@@@=@@]@@K^:6@@)^(5@@)^(4@@)^%[@@)^%]@@)^%#@@)^%^'^@[RUO/K@@[G_)@@[8L@[X.WZ )@@G@@N@0[)4/K@[)5@#F^? R]0^?A9!)^?K9,@^?M9,)^?O9\)^?QR@K^?SR@)^?TR@0^?UR[@^?VXA )@@G@@N[@^?WN[K^?X*4@O?#/K@O?#/K@[MZAA0^?A9()^?K9%@^?M9%)^?O9:)^?QA@K^?SA@)^?TXB )@@G@@A@0^?UA[@^?V^[@^?W^[K^?XC8FK@[[@@^?CC8FK@#[^@[) [^@[YN[^@[X:[^@[XZC@VK@^XC )@@G@@[@K^?H/K@[X@A])^!T9*@^!U9*)^!W9(@^!Y^@0^!)C@@^?ZG8@@@[!8@@@#/K@[8#K[-%XE )@@G@@9?FK@@9*@^!-9*E@@@9*E@@A9?FK@[9*E@@CC8FK@#[^E@@^[^E@@MC8;K@^[@'@@OC8FK@ XF )@@G@@[@E@@NC@FK@A[@E@@TC@Z@@[/@K[<$/GK[<$!8K]WK/K@[<$[@U@@SC@\@@#!8)]WK/K@[<$XG )@@G@@/G)[<$G@K@@I[@U@@RG8K@[7;GK@@=W@U@@RT8K@@W[@Z@@Q[@U@@QT@U@@S[CU@@^[CU@@MXH )@@G@@[@Z@@PC@K^,5[@Z@@@ @J@@]C@Z@@[[@Z@@^ @J@@ @J@@AC8K@@[[@Z@@MC8K@@I[@Z@@NXI )@@G@@C@U@@RG8K@@[;CK@@[G8K@@[[@Z@@OC@@^,6'=@@@4C@@^?Y[@J@@RC@FK@A[@J@@SC8@^!-XJ )@@G@@'=@@[GC4K^!$/@K[<(?8K@@)?8K@@S/K@[M/@@[>MXQ )@@G@@:@@^?Z/K@[=]!@@^?Z/K@[>MT8@@@UR])@@GO')^?A(@E@@@/K@[>MC8FK@[[^@[=S&;@@@[XR )@@G@@C@'@@OC@%@@N&#\@@NC^U@@MGCU@@P&#Z@@QC[J@@]G9@@@[[[J@@]N@U@@SM#W)@@A])^!SXS )@@G@@A]0^!R/,0[W8@@@@@@R])^!SR]0^!RC@'@@OCCU@@PG8K@@[%@Z@@Q/K@[=+/\)[=(/K@[>EXT )@@G@@[CU@@PR])^!T9?@^!U9?)^!W9!@^!YN@0^!)/KF@@ C@Z@@[T@Z@@Q[CU@@^C8E@@@'=@@@#XU )@@G@@*4E@@#/KI@@@CCE@@^;G@@@=G8K@@VW8@@@WG@E@@ [@E@@ (@J@@#/K@[>CC8@@@I[WE@@#XV )@@G@@C@Z@@#T@Z@@Q[CU@@^C8E@@@'=@@@#*4E@@#/KI@@@C8@@@C[WE@@# @@@@GG8K@@VW8@@@WXW )@@G@@G@E@@ [@E@@ @@@@H/KI@@[C4E@@#[@FK@]R])^!T9?)^!W9?@^!U9!@^!YN@0^!)/KFK@#XX )@@G@@C@@^,.'=@@@I/K@[>GA])^!T9*@^!U9*)^!W9(@^!Y^@0^!) @FK@[C@FK@@/G@[&;/@@[&;XY )@@G@@:@@^?Z/K@[>+!@@^?Z/K@[&;T8@@@UR])@@GO')^?A(@E@@@/K@[&;C@'@@OC^U@@M&#Z@@QXZ )@@G@@(CE@@P/K@[>,/\)[=(/K@[&3A])^!TA]0^!R/,0[W.@@@@@@R]0^!RR])^!SC@'@@O'=@@@?YA )@@G@@[@J@@ [@J@@A;@@@@M[@E@@LC@E@@ H@E@@K[@E@@J&;0@@W[@'@@^C@E@@K[@E@@ C8E@@@YB )@@G@@'=@@@#*4E@@#/K@[&3C@U@@ G@Z@@M[@U@@ C@U@@ST@Z@@N[CU@@^C@%@@N[^%@@^'=@@@#YC )@@G@@*4E@@#/K@[&3(@J@@#/K@[&C@[@@@/@@[?CO/K@@[G_)@@[8L@[?]C/@@@[H@@^2>]@@^2>/,0@.G@@[^2$@[K^3CZI )@@G@@C.)__"G[)^2>R@K^3#Q@K^3F[[)@[^C8[)@@'^K[RQ8L@[?N'^@[RU/,0@.G@@[^2,@[R^3CZJ )@@G@@'^@[RU/,0[%C@@@^3^@@@^3 @@@@@@@[U^3CN@0[?+/K@[?<@[V^3CR]0^3D9!)^3G9\)^3IZK )@@G@@R@K^3KN[@^3L*4@O3A/K@O3A/K@[MZAA0^3D9()^3G9:)^3IA@K^3K^[@^3LC8FK@@[^@[?YZL )@@G@@[@@^3F/K@[:/9?FK@@9*@^3MC@@^3Z'=@@@UC4@^3S!8@@@K/KFK@^/@FK@^C4@^3U[@FK@[ZM )@@G@@C?@^3W[@FK@]C@@^3X[@FK@#/KF@@A9?FK@@9*FK@[C8FK@['=@@[G/KF@@#C4FK@@[@@^3)ZN )@@G@@C0:K@@[@)^3-C!FK@@[[@^3+G.@@[@[[@^3+/,0@.A@@[@@@@@@^3<@[C^3(@@K^3)@@K^3-ZO )@@G@@@@K^3+'^@[RUN@0[!U/K@[!V@[I^3(R]0^3%*4@O3$/K@O3$/K@[MZAA0^3%C8FK@[[^@[!LZP )@@G@@/K@[!CR8VK@@C@[@@[[@[@@[C/@@@EH@FK@[*@@@@G1@@@@G/K@[!1/,0@.G@@[^33@[G^3;ZQ )@@G@@C/@^3"'^K[RQ'^@[RU/,0@.A@@@^3?@@@^3\@[J^3;C/@^3"'^K[RQC/@^3,'^K[RQ'^@[RUZR )@@G@@/,0@2H@@@@@@@@@^3?@[N^3;C/@@@@'^K[RQ'^@[RUN@0[,#/K@[,^@[O^3;R]0^3/R@K^3_ZS )@@G@@*4@O39/K@O39/K@[MZAA0^3/A@K^3_C8FK@@[^@[!;C@VK@[[@K^3"C8FK@][^@[!"/K@[!C8FK@[[^@[1[[^@[\?[^@[1>[@@^4OC8FK@][^@[,$[^@[\0[^@[1 AR )@@G@@[^@[1(C8FK@#[^@[1W[^@[08[^@[\<[^@[,"C8FK@^[^@[\@[^@[0X[^@[1T[^@[0MC8FK@ AS )@@G@@[^@[\>[^@[1&[^@[0;[^@[0'[^@[,M[^@[0T[^@[1][^@[0O[^@[1Z[^@[1Y[^@[\![^@[0SAT )@@G@@[^@[\&/K@[,MC8@@@]/\K[2UC@VK@@[@K^4Q/K@[2FC@FK@[H8@@@[;G@@@=W8@@@AG8FK@@AU )@@G@@C8:K@]C@0^4T[@"@@@')H[3W[4"@@@/KF@@^C4/@@@C0/@@@C?/@@@C*/@@@C=/@@@C)/@@@AV )@@G@@[4/@@@[0/@@@[?/@@@[*/@@@[=/@@@[)/@@@C@FK@[H8@@@[;G@@@=W8@@@AG8FK@@C4;K@]AW )@@G@@')H[3+/KF@@^C/@@@[[@@^4UN@0[34/K@[5C@[ ^4ZC/@@@[G@@^4+[@@^4UC@@^4N8L@@@^^K[4\/,0[3L@@@[4\@@@^4U@@@@@@@[X^4ZC/@@@[G@@^4U[@@^4UBC )@@G@@/K@O4VN@0[49/K@[5C@[)^4ZN8K[4.^@K^4V/K@[4+C@@@@@H@@^4W(@@@@G/K@[4+N@0[5#BD )@@G@@/K@[5C@[$^4Z!^)^4X/K@[M&H8)@@[[^)^4XR]0^4)R@K^4&*4@O4X/K@O4X/K@[MZAA0^4)BE )@@G@@[^@^4XA@K^4&/KH@@@C8@@@^/\K[5HC8FK@@[@@^4>C@VK@[[@K^4G8@@@[!8@@@#/K@["A[@FK@][@@^;>T8@@@UG8@^;GR])@@GCW )@@G@@9?FK@@9*@^/U9*E@@@9*E@@A9?FK@[9*E@@CC8;K@#[@'@@O[^'@@^C8@^/U'=@@[GC4@^/)CX )@@G@@/@@["S;G@@[C9*E@@GC8E@@A'=@@[ /^)["WC@E@@K[@E@@ C8@@@W[CE@@^C8@@@K[WE@@#CY )@@G@@C8E@@@'=@@@#*4E@@#/K@["&C@J@@[[@E@@SG@J@@#[@E@@RC@J@@Q[@E@@Q9?@^/=9?)^/&CZ )@@G@@9!@^/*N@0^/%R])^/ @@@@G2@E)@@/K@["KP')@@UC@@^;>H@@@[[DA )@@G@@[@FK@]/K@[.YC@@^"@'=@@@IR])^/<9?@^/=9?)^/&9!@^/*N@0^/%/KFK@^9?FK@@9*@^/"DB )@@G@@C@@^"[/K@["!/KI["W/K@[")/K@["&/K@["%9?FK@[9*@^.G9?FK@@9*@^.BC@@^"]/K@["!DC )@@G@@9?FK@@9*@^.MC@@^"#/K@["!9?FK@@9*@^.QC@@^"^ @E@@@C@VK@]%@K^;>/K@["LH8K@@[DD )@@G@@[@K^;>/K@["LA])^/<9*@^/=9*)^/&9(@^/*^@0^/%C@FK@@/G@[_2/@@[_2:@@^;>/K@[_@DE )@@G@@!@@^;>/K@[_2T8@@@UG8@^;GR])@@G(@E@@@/K@[_2C@'@@OC@FK@[/@@[_'/G@[_'C@VK@]DF )@@G@@/@K[_'/GK[_'?@K@@G/K@[_':@U@@S/K@[_M!@U@@S/K@[_'H@K@@GG8K@@[T@Z@@N[CU@@^DG )@@G@@C8VK@#[^U@@^/=@[_)C8K@@<[WU@@#C@U@@^[@K^/?C@K^" [@U@@^/K@[_+C8K@@K[WU@@#DH )@@G@@C@U@@KG@Z@@MH8@@@[;C@@@[G@K@@G[@U@@ C8E@@@'=@@@#*4E@@#/K@[_/R])^/<9?@^/=DI )@@G@@9?)^/&9!@^/*N@0^/%/KF@@AC@@^"A'=@@@IR])^/<9?@^/=9?)^/&9!@^/*N@0^/%/KFK@^DJ )@@G@@C@@^"B/K@[_3C@@^"C/K@[_3A])^/<9*@^/=9*)^/&9(@^/*^@0^/%C@FK@@/@@]@4/G@]@4DK )@@G@@:@@^;>/K@]@E!@@^;>/K@]@4T8@@@UG8@^;GR])@@G(@E@@@/K@]@4C@'@@OC8FK@#[^E@@MDL )@@G@@C@J@@OG@E@@KC@VK@[H8K@@[T@U@@Q;GK@@=W8K@@WG@@@@H[@E@@ C@VK@]H@VK@[G8K@@[DM )@@G@@[@U@@ST@U@@Q[CU@@^[CU@@MC8VK@#[^U@@^C@U@@QT@U@@R;GK@@=W8K@@W[^U@@P CE@@PDN )@@G@@C8K@@K[WU@@#C@Z@@][@U@@TR])^/<9?@^/=9?)^/&9!@^/*N@0^/%/KF@@AC@@^"D'=@@@IDO )@@G@@R])^/<9?@^/=9?)^/&9!@^/*N@0^/%/KFK@^A])^/<9*@^/=9*)^/&9(@^/*^@0^/%C@FK@@DP )@@G@@/@@][5/G@][5:@@^;>/K@][C!@@^;>/K@][5T8@@@UG8@^;GR])@@G(@E@@@/K@][5C@E@@TDQ )@@G@@/@@][\H8@@@[[@E@@TC@'@@OC8:K@[&;)@@[(CE@@P/K@][>CCE@@PL@E@@QE@K@@HG^U@@MDR )@@G@@&#U@@QH8@@@[[CE@@PN@U@@SM#!)@@R])^/<9?@^/=9?)^/&9!@^/*N@0^/%/KF@@ C8E@@@DS )@@G@@'=@@@#*4E@@#/K@][.C@E@@ G^E@@P[@E@@ C@E@@Q[CE@@P/K@][QR])^/<9?@^/=9?)^/&DT )@@G@@9!@^/*N@0^/%/KFK@]C@@^"E'=@@@IR])^/<9?@^/=9?)^/&9!@^/*N@0^/%/KFK@#9?E@@@DU )@@G@@9*@^/0C4E@@#[@@^/'/,0[/<@@@^/0@@@^/'@@@^/;]] ]] /K@][7A])^/<9*@^/=9*)^/&DV )@@G@@9(@^/*^@0^/%C@FK@@/@@]]=/G@]]=:@@^;>/K@]]N!@@^;>/K@]]=T8@@@UG8@^;GR])@@GDW )@@G@@(@E@@@/K@]]= @E@@@C@FK@@%@@^;>/K@]]YH8@@@[[@@^;>R])^/<9?@^/=9?)^/&9!@^/*DX )@@G@@N@0^/%/KF@@#C@@^"F'=@@@IR])^/<9?@^/=9?)^/&9!@^/*N@0^/%/KFK@[R@K^"LQ@K^"SDY )@@G@@N.@@@^C@@^"M[@[)@@8L@]]\ @@^"HC_)@@[N.@@@F[#)^"G/,0[3L@@@@@@@@@^"G@@@^"IDZ )@@G@@@[H^"PC@@^"IH@@^"M(@@@@G/K@]#DC/@@@[G@@^"H[@@^"H/,0[3*@@@@@@@@@^"H@@@^"IEA )@@G@@@[L^"PG_)@@[8L@]]5C/@@@[G@@^"H[@@^"H/,0[3*@@@@@@@@@^"H@@@^"J@[O^"PC_)@@[EB )@@G@@N.@@@F[#)^"G/,0[3L@@@@@@@@@^"G@@@^"I@[S^"PC@@^"IH@@^"M(@@@@G/K@]#$C/@@@[EC )@@G@@G@@^"H[@@^"H/,0[3*@@@@@@@@@^"H@@@^"I@[W^"PG_)@@[8L@]#NN@0]#(/K@]#%@[Y^"PED )@@G@@R]0^"Q9\)^"TR@K^"VN[@^"W*4@O"N/K@O"N/K@[MZAA0^"Q9:)^"TA@K^"V^[@^"WC8FK@@EE )@@G@@[^@]]7C8FK@[[^@]#PC8FK@][^@]#-[^@]#H[^@]##[@@^"S/K@]]?C@@^_2G/@@@BC8:K@#EF )@@G@@G/)__"R@K^_2[@@^_3[@)^_4C/@@@BG@FK@][@@^"ZC@-@@[G@-@@#H@-@@^[@)^")C@[@@#EG )@@G@@H@@^")(@@@@G/K@]^OC/@@@]G@@^"Z[@@^"Z(@FK@]/K@]^TC/@@@^G@@^"Z[@@^"Z/,0]OAEH )@@G@@@@@^"Z@[G^_,/,0]PZ@[H^_,/,0@.G@@[^"&@[I^_,R@)^_%Q@)^_1N.@@@^C8])@@'^K[RQEI )@@G@@8L@]^='^@[RU/,0@.G@@[^"!@[P^_,R@)^_%Q@)^_3N.@@@EC8])@@'^K[RQ8L@]^,'^@[RUEJ )@@G@@N8L@@ ^^K]^5/,0[!Z@@@]^5@@@^"X@[W^_,/,0@.G@@[^"\@[X^_,@@L@@RR@)^_:N.@@@[EK )@@G@@C8]="W'^K[RQ8L@]^"'^@[RU/,0@.G@@[^"6@[>^_,@@L@@]@@L@@^'^@[RU/,0@.G@@[^"_EL )@@G@@@[%^_,@@K^")'^@[RUC@[@@#H@@^")(@@@@G/K@] &N8L@@A^^K] O/,0[!Z@@@] O@@@^"XEM )@@G@@@[0^_,/,0@.G@@[^_C@[1^_,R@)^_:N.@@@[C8]="W'^K[RQ8L@] W'^@[RU/,0@.G@@[^_IEN )@@G@@@[8^_,@@L@@[@@L@@#'^@[RU(@[@@S/K@] !/,0@.G@@[^_T@[_^_,'^@[RU/K@] 1/,0@.GEO )@@G@@@@[^_X@]#^_,'^@[RU*@@^_5/K@] 6N@0] 5/K@]A6@]B^_,C/@@@*[@@^"+C/)@@[[@)^"R@)^"@@@]A!@@@@@@@@@]A\@@@@@@@]Y^_,/K@] /N@0]A5/K@]A6@]Z^_,EU )@@G@@R]0^_\R@K^_6R@)^_7N[@^_8*4@O_?/K@O_?/K@[MZAA0^_\A@K^_6A@)^_7^[@^_8C8FK@@EV )@@G@@[@@^_1C8FK@[[@@^_2C@VK@][@K^_5C8FK@^[^@]A,C8FK@ [^@]A0/K@]#_C@@ @;G/@__5EW )@@G@@C@) @/G/)@@[[@@ @.[@) @" @@^_9 @@@@@C/@__"G@FK@[C_0@@[R@K @.[@@@[^[#0^_'EX )@@G@@C@[@@E[@@^_;C@-@@F[@)^_/C[[@@G[[@^_.H/@@@]/@@]B;/C@]DKC/@@@[H@)@@@/G)]B*EY )@@G@@*@@@@I @@@@GC/)@@[D[)^_/*@@@@M1@@@@M @@@@I+@@@@I/=K]B7/,0]E?@[O @\/,0@.GEZ )@@G@@@@[ @]@[P @\@@K^_/'^@[RU/K@]D!/,0]F)@@@^_/@[U @\/K@]D!C/@@@[(@@^_/ @@@@GFA )@@G@@C/)@@[(@@^_. @@@@I+@@@@I/=K]CN/,0]E?@[Y @\ @@^_"/,0@.G@@[ @]@[) @\@@K^_"FB )@@G@@'^@[RU*@@^_//K@]CJC/@@@[[@@^_/*@@^_./K@]CNC/@@@[[@@^_.C@@^_.H@@^_/*@@@@GFC )@@G@@1@@@@G/K@]C+C@@@@@H@@^_/*@@@@G1@@@@G/K@]C'C@@^_/[@@^_"C@)^_.[@)^_/[@@^_.FD )@@G@@C@@@@@H@@^_.*@@@@G1@@@@G/K@]C'/,0]E?@[0 @\C/@@@[G@@@@@[@@^_"C@@^_"H@@^_/FE )@@G@@*@@@@G1@@@@G/K@]C3C@@^_/[@@^_"/,0@.G@@[ @D@[4 @\@@K^_"@@K^_.'^@[RU/K@]D!FF )@@G@@C/@@@[[@@^__C@@^_.H@@^_/*@@@@G1@@@@G/K@]D#C/@__"[@@^__C@@^_.H@@^_/;O@@@=FG )@@G@@W@@^__C#)^_/[@@@[ [#) @@/,0]F)@@@ @@@]@ @\G#)^__8LK]DD/K@]D!C/@__"G@@@@@FH )@@G@@C_)@@[R@) @"[@@@[ [#) @@C@]@@@H@@^_/*@@@@G/K@]D+C@]@@[H@@^_.*@@@@G/K@]D+FI )@@G@@/,0]F)@@@ @@@]E @\/K@]D!O/)@@IG_)@@[8LK]DP/,0]E?@]I @\/,0@.G@@[ @M@]J @\FJ )@@G@@@@K^_/@@K^_.'^@[RUO/K@@#G_0@@[8L@]BT(@@^_9/K@]D6C8)@@CN@0]D5/K@]D9@]R @\FK )@@G@@N@0]D8/K@]D.@]S @\!^) @!/K@[M&H8)@@[[^) @!R]0 @09!) @_9\) [[R@K [#R@) [^FL )@@G@@N[@ [ N[K [A*4@P@!/K@P@!/K@[MZC8@@@DAA0 @0[^@ @!9() @_9:) [[A@K [#A@) [^FM )@@G@@^[@ [ ^[K [A/K@]F(C@@ [CG/@__3[@@ [D*@@^_9/K@]E)/,0@.G@@[ @T@]X @4R@K @1FN )@@G@@Q@K [DN.@@@^C8[)@G'^K[RQ8L@]EW'^@[RUC/@@@[G@@^_9[@@^_9N@0]E>/K@]E&@]> @4FO )@@G@@R]0 @5R@K [EN[@ [F*4@P@2/K@P@2/K@[MZAA0 @5A@K [E^[@ [F/K@]ELC@@ [HG/@__3FP )@@G@@C@) [HG/)__2[@@ [I[@) [J(@@@@@/K@]FJC/@__"G@@@@@C_)@@[R@K [I[@@@[^[#) @[FQ )@@G@@C@[@@GH@@@@@*@@@@G/K@]FG/,0]E?@]0 @8/,0@.G@@[ @=@]1 @8@@K@@@'^@[RUN@0]FFFR )@@G@@/K@]FT@]5 @8O/K@@[G_)@@[8L@]E.C/@@@[G@@@@@[@@@@@R@K@@@O@K [JC@)@@@[@-@@GFS )@@G@@N@0]FS/K@]FT@]' @8R]0 @99\) [KR@K [MN[@ [N*4@P@6/K@P@6/K@[MZAA0 @99:) [KFT )@@G@@A@K [M^[@ [NC8FK@@[^@]E_[^@]FB[^@]FO/K@]E0C8FK@@[@@ [CC8FK@][@@ @;C8FK@#FU )@@G@@[^@]C%[^@]C+[^@]B=[^@]CS[^@]DLC8FK@^[@@ @/C8FK@ [^@]BN[^@]FL[^@]FK[^@]E6FV )@@G@@[^@]E9[^@]FMC8FK@A[@@ [H/K@]BGC/@__"G@@ [XR@K ]0R@) ]\C@) ]1G/)__/[@@ ]2FW )@@G@@[@) ]3/,0[5L@@@@@@@@@ ]X@@@ ]Y@[F ]? @@ [+N8L@@H^^K]GK/,0[3L@@@]GK@@@ ]ZFX )@@G@@@@@ [<@[H ]?C@@ [C@@ [YH@# [N*@@@@G/K@]H(C@# [OH@@ [Z*@@@@GGA )@@G@@/K@]H(C@# [N[@]@@@C@< [O[@+@@[(@@ [+/K@]H4C.@@@[C[+@@@H[) ]+(@@@@MC9@@@@GB )@@G@@C.)@@[C]]@@@H]@ ]<(@@@@OC9)@@@+[@@@M/>K]H4/,0[5X@@@ [&@[& ]?/,0[5!@@@ [(@@@@KC8)@@@GD )@@G@@+@@@@I/=K]H=N8M@@[^^K]HZ/,0[3*@@@]HZ@@@ ]&@@@ [<@[% ]?/K@]H4/,0[5+@@@ [&GE )@@G@@/K@]K3@[? ]?/K@]H4O/0@@]G_)@@[8LK]G,G_0@@[8L@]G-/,0@.G@@[ [:@[2 ]?'^@[RUGF )@@G@@ @]@@@/K@]K7C@@ ]-[@@ [Z/,0[5X@@@ [&@[8 ]?/,0[5!@@@ [ #,HR )@@G@@N@0]O//K@]PS@[& #,C/@@@7[@@@@@N@0]P[/K@]PS@[% #,C@@ #2[@@ #MN@0]PA/K@]PSHS )@@G@@@[, #,C/@@@[[@@ #NN@0]PF/K@]PS@[1 #,*@@ #O/K@]PLN@0]PK/K@]PS@[4 #,/,0@91HT )@@G@@@@@ #(@@@ #%@[5 #,N@0]PR/K@]PS@[6 #,R]0 #\*4@P#?/K@P#?/K@[MZAA0 #\[^@ #?HU )@@G@@/KH@@@C8@@@[/\K]PW/K@]OGC8@@@[/\K]PW/K@]O*C8@@@]/\K]PWC@VK@@[@K #1/K@]O3HV )@@G@@C8@@@]/\K]PWC8FK@@[^@]O"/K@]O.C8@@@]/\K]PWC@VK@@[@K #2/K@]P]C8@@@[/\K]PWHW )@@G@@/K@]PBC8@@@[/\K]PW/K@]PGC@@@@C;C@@@M[@FK@@/KF@@]/,0[N'/S@@@@ @@ ?S/,0]P'HX )@@G@@@@@ ?T@[P@@@C/@@@AH@@ ?T]@@ ?T/,0]P>@@@ ?;@[R@@@/,0]OA@@@ ,7@[S@@@/,0]L+HY )@@G@@@@@ ?U@@@ \C@@@ ,8/K@]QO@[T@@@/K@]QV/,0@.G@@[ ?.@[V@@@'^@[RU/,0@"F@@@ ,9HZ )@@G@@@[Y@@@C@@ ?U;)@@@E;C@@@E(@@@@G/K@]Q&C/@@@[[@@ ?S/,0@.G@@[ !]@[+@@@'^@[RUIA )@@G@@/,0]L,@@@ ,'@@@ #4@@@ #6/K@]Q0/K@]Q0@[>@@@C/@@@[[@@ ?V/K@]Q8 @@ ?VC/@@@[IB )@@G@@[@@ ?S/,0@.G@@[ !D@[%@@@@@K #/'^@[RU/,0]L,@@@ ,;@@@ #8@@@ #'/K@]R@/K@]R@IC )@@G@@@[,@@@/K@]RBC/@@@[[@@ ?S/,0@.G@@[ !D@[1@@@@@K #.'^@[RU/,0]L,@@@ ,/@@@ #"ID )@@G@@@@@ ^@/K@]RO/K@]RI@[4@@@C/@@@[[@@ ?S/,0@.G@@[ !N@[6@@@'^@[RU @@ ?W @@ ?XIE )@@G@@C/@__"[@@ ?Y @@ ?Z/,0@'I@@# ,.@@@ !>@[.@@@@@#]S_@@]]THC[) ?ZT.)@@#R@K ,"IF )@@G@@N.@@@H[[) \BC8[>^['^K[RQ8L@]R='^@[RU/,0@.G@@[ !$@]^@@@R@K ,"N.@@@HC8[>^[IG )@@G@@'^K[RQ8L@]R!'^@[RUC/@@@[G@@ ?T[@@ ?TR@K \BN8L ^M^^K]R;/,0]LC@@@ ^]@@@ ^KIH )@@G@@@@@ ?)@@@]R;@@@ ?-@]G@@@(@@ ?-/K@]S]C/@@@[[@@ ?SC@@ ^KH@@ ,_*@@@@G/K@]S>II )@@G@@D@@ ?Y/G@]SE*@@@@G/K@]SKC/@@@[[@@ ?S/,0@.G@@[ !(@]P@@@'^@[RU @@ ?YC/@@@[IJ )@@G@@H@@ ?)(@@@@G/K@]SWC/@@@[[@@ ?S/,0@.G@@[ !1@]W@@@'^@[RU/K@]RTC@@ ?ZT/@@@#IK )@@G@@C@? ^MG/)__"*@@@@I/K@]SPC@? ^N[@) ?Y/K@]RTC@@ ^KH@@ \@(@@@@G/K@]S4C@@ ^KIL )@@G@@H@@ \[(@@@@G/K@]S8C/@@@[[@@ ?S/,0@.G@@[ ,@@](@@@'^@[RU/K@]RTC/@@@[G@@ ?WIM )@@G@@[@@ ?W/K@]S;C/@@@[G@@ ?X[@@ ?XC@@ ?)G@@ ?Z[@@ ?Z/K@]RT/,0@.G@@[ !$@]2@@@IN )@@G@@R@K ,"N.@@@HC8[>^['^K[RQ8L@]T^'^@[RU/,0@.G@@[ ,G@]8@@@'^@[RU/K@]QOC/@@@[IO )@@G@@*@@ ?X @@@@GC/)@@[*@@ ?W @@@@I)@@@@I/=K]TXC/@@@[[@@ ?S/,0@.G@@[ ,R@]_@@@IP )@@G@@'^@[RU @@ ?W @@ ?X(@@ ?V/K@]QO/,0]#1@@@ #4@@@ #6@@@ V,@#A@@@/,0[.K@@@ #4IQ )@@G@@@@@ #6@@@ ?+@@@ V3/K@]QO@#B@@@C@@ V4[@@ ?@@@ WJ/K@]U*@#S@@@/K@]U%C/@__"G@@ ?/K@]U%C/@@@[[@@ ?S*@@ ?S/K@]QOC/@__"G@@ ?(@@ ?X/K@]VQR@K ,"[@)@[^[@@ \BC@[>WI[@@ ?$T/@@@IC@) \][@? ,'IX )@@G@@8L@]U5 @@ ?&C_)@@[R/K@@IN[@ \B[#) ?$C@[ ,'H@@ \](@@@@G/K@]VEC/@@@[G@@ ?&IY )@@G@@[@@ ?&R@) ?&C@) ?$[@+ WIO/K@@IG_)@@[8L@]U_C@@ ?&[@@ ?>*@@ ?>/K@]VQ/,0@.GIZ )@@G@@@@[ ,(@#9@@@'^@[RU/K@]QOC/@__"G@@ ?R@) \#[@@@[^[@) \BC@] ,'JA )@@G@@[@] ,.C@+ ,;[@+ ,"C@] ,/[@]>,_8L@]VXR@K \#R@) ,"N[@ \BC@]>WI[@@ ?$T/@@@IJB )@@G@@C@? ,.[@- ,'C[G ,"[[[ ,;C@? ,_[@->,/8L@]V$R@K \^N[@ \BN.K@@E @[>,98LK]V4JC )@@G@@Q/L@@#8L@]V3C@@ ?>T/@@@I[@@ ?=C/)@J*[@) ?( @@ ?%R/)@@[N[@ \BC@] WIH@@ ?(JD )@@G@@*@@@@G1@@@@G/K@]WBC@] WI[@@ ?(C@@ ?%H@] WI*@@@@G1@@@@G/K@]WIC@] WI[@@ ?%JE )@@G@@O/)@@[8L@]W@C@@ ?%H@@ ?(G/@@@[R@K ,"N[@ \B[@@ \BC@[ WIH@@ ?(G/@@@[[@[>WIJF )@@G@@8L@]WQC@) WDT@) \B[@) ?:C[@ \B[[@ ??D@@ ?Y*@@@@G0@@@@G/K@]W> @@ ?YC@@ ?>JG )@@G@@G@@ ?Y[@@ ?!G/@@[7;O@@@=W@@ ?![@@ ?,T/@@@W[@@ ?,T@@ ?>[@@ ?\C@) ?>[@) ?0JH )@@G@@C.@@@[G[@ ?=[[@ ?1C[) ?:G[) ?=[[) ?=G.)@@[[[) ?2C]@ ??G]@ ?=[]@ ?=G"@@@[JI )@@G@@[]@ ?3G@@ ?=[@@ ?=G/@@@[[@@ ?4G@) ?=[@) ?=H@) #3*@@@@I0@@@@I/K@]XK/,0[&"JJ )@@G@@@@@ ?=@@@ ,7/K@]T;@^9@@@C@@ ?=[@@ #3R@) ?1N8M \B^^K]XR/,0[_"@@@ ?+@@@ ?(JK )@@G@@@@@ ?%@@@]XR/K@]QO@^;@@@R@K ?3R@) ,"N.@@@V @]>:68L@]XXC@@ ?>[@@ :8C@) ?YJL )@@G@@[@) :'R@) \ N.@@@EC@] V2[@]>:68L@]X>C@) WF[@) ?5N8L \B^^K]X0/,0[-S@@@ #8JM )@@G@@@@@ #'@@@ ?6@@@]X0@@@ :7@@@ \C@@@ ?5/K@]QO@ D@@@R@) ?2N8M \B^^K]X;/,0]@/JN )@@G@@@@@ ?+@@@]X;/K@]Y*/K@]QO@ E@@@C@@ ?4[@@ ?7R@K ?4C/)__"G@) ?>R@) ,"[@)@[^JO )@@G@@R@0 ?7C@]>WI[@@ ?$R[@ ?$O[@ ?2C@= \A[@) ?8[@< \BC/@@@[G@@ ?7[@@ ?78L@]YAJP )@@G@@N8L \B^^K]YQ/,0[<5@@@ ?6@@@]YQ@@@ ?9/K@]YV@ O@@@/K@]X6*@@ ?9/K@]Y+/,0@.GJQ )@@G@@@@[ ,1@ S@@@'^@[RU/K@]QO/,0[/<@@@ #8@@@ ?9@@@ ?'@ W@@@/K@]QO/,0[>P@@@ ?6JR )@@G@@@@@ ?9/K@]YV@ Y@@@C/@__"G@@ ?>R.@@@[[@@@[^A[@ ?&C@@ ?&[@^ WIO.@@@[8L@]Y1JS )@@G@@/,0]#1@@@ #8@@@ #'@@@ ?N@ =@@@/,0]OA@@@ ?T@ >@@@C@@ ?TG/@__9*@@@@G1@@@@GJT )@@G@@/K@]Z /,0]P4@ $@@@/,0]A.@@@ ?N@@@ :7@@@ ?>@@@ WJ@@@ \C@@@ ,'@ *@@@/,0@"FJU )@@G@@@@@ ,9@ (@@@/,0@"F@@@ \A@ (@@@@@@@@[@@@@@@(1H0,3(6H******),3X,36HCALL TOJV )@@G@@ ERRSET WITH NEGATIVE VALUE =,O12,29H OCTAL, ERROR LIMIT UNALTERED,3X,3(JW )@@G@@6H******)) ARG0 (1X,32HERROR DETECTED IN @@@@@@ ROUTINE) @@@@@@JX )@@G@@ (1X,@@@@@@A1,2X @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@= ) JY )@@G@@UWERR$@@@@@@, 7H, R_@@@@'^@[RU/K@@F0,I12 ,E16.8,D18.10 ,O12 ,/,6X JZ )@@G@@,3H (,3H ),3H ,,2X ,3X,O6, 18H OF ,/,1X,20(6H******)) (1X,7(KA )@@G@@6H******),30H 200 LINE LIMIT FOR WALKBACK ,7(6H******)) (1H ) KB )@@G@@ CALLED AT SEQUENCE NUMBER IDENT NUMBER MAIN PROGRAM(23H REACHEDKC )@@G@@ ERROR LIMIT OF,I6,20H. JOB TERMINATED. ,48HCONTROL TRANSFERRED TO EXIKD )@@G@@T WITH ERROR FLAG SET., /,1X,20(6H******))(1H0,20(6H******))(1H0,5(6H***KE )@@G@@***), 47H ERROR DETECTED IN MAIN PROGRAM SEQUENCE NUMBER ,O7,1X,5(6H**KF )@@G@@****),/) '^K[RQ'^)[RQ'^0[RQ'^K[RQ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ KG )@@G@@@@@@@@@@@@@[@@@@@] ( , ) /S@@D5/S@@D//S@@E#/S@@EH/S@@D5/S@@E=KH )@@G@@/S@@E4/S@@E9/S@@F@/S@@FB/S@^#?/S@^#0/S@^#3/S@^#7/S@^#'/S@^#"/S@^^#/S@^^DKI )@@G@@/S@^^I/S@^^NUNNORMALIZED ARGUMENT@ NEGATIVE ARGUMENT@NON-POSITIVE ARGUMKJ )@@G@@ENT@ ABS(ARGUMENT) > 1@ARG1**ARG2; OVERFLOW@ ARG1**ARG2; ARG1=0, ARG2KK )@@G@@=0@ ARG1**ARG2; ARG1=0, ARG2 .LE. 0@ ARG1**ARG2; ARG1 UNNORMALIZED@KL )@@G@@ARG1**ARG2; ARG2 UNNORMALIZED@ARG1**ARG2; OVERFLOW ARG2*LOG(ARG1)@*SUPWBKM )@@G@@@@[@@@@@@@@E000000@@@@[_@@@/K@( 34H URPRC2@@@8@@URNPAR@@#@@@@_F^^>READ AKN )@@G@@FTER WRITE ATTEMPTED WITHOUT INTERVENING BACKSPACE OR REWIND@_C^^1FORMATKO )@@G@@TED READ ATTEMPTED ON NON-FORMATTED DATA @_C^^'NON-FORMATTED READ ATTEMKP )@@G@@PTED ON FORMATTED DATA @#C^R ERROR DETECTED WHILE CLOSING FILE OF UNIT KQ )@@G@@ @BRKPT @@@@@@@)@@@@@@@@@@_____";_____@@@@@@@@@@@@KR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_^^R+@_D^R&@_B^R\@[F^R6FILE $-$ NOKS )@@G@@T ASSIGNED THE NTRAN UNIT $-$ IS NOT AVAILABLE FOR STANDARD I/O. DRUM FKT )@@G@@ILE ASSIGNED TO SYMBIONT UNIT BACKSPACE WAS ENCOUNTERED FOR THE UNKU )@@G@@ASSIGNED FILE: $-$ - IGNORED. @ASG,T ,F @@@@@@@@@@@K@@@@@K@@@@@CKV )@@G@@@@@@@C@@@@@D@@@@@)@@@@@(@@@@@@@@@@@@ @@@@@@@@@@@@KW )@@G@@@@@@@@@@@@@@@@@@@@/K@@RY/K@@SJR;)^S)/K@@S+R;)^SY@@@@@@@@@@@@@@@@@@@@@@@@KX )@@G@@@@@@@@@@@@@@@_C^SKF9MM )@@G@@@@@@@@L#:R<:1U1+@@L=2ZFD3KL$N,M '1>J<-:>D)M$+H-6E_G=3LNC$4/$D-YUC=N(,RRQMN )@@G@@!,899#OE5"X'<8ZU"@O:"5-8MO:II&PH==5(FESV96UT(3\2B=K@I?7N@@@@@@MO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A$\^-ZA:\^-ZA\\^-ZA3\^-ZMP )@@G@@A7\^-ZA<\^-YLOCATION OF ERROR IS MARKED BY * IN FOLLOWING IMAGE. @@C^-"MQ )@@G@@@@[^<@@@[^<@@@[^<@@@^^+A@@^^+E@@A^+I@@[^<@@@ ^+OINTERNAL TYPE AND FORMATMR )@@G@@ TYPE ARE INCOMPATIBLE. ILLEGAL OCTAL INPUT. ILLEGAL INTEGER INPUT. MS )@@G@@TOO MANY DIGITS IN INTEGER INPUT. ILLEGAL CHARACTER IN INPUT. @[D^+VMT )@@G@@@[C^+=ILLEGAL FORMAT CHARACTERS WERE ACCEPTED AS BLANKS. RECORDS EXCEMU )@@G@@EDING MAXIMUM LENGTH ARE FAULTY. @@@@@@ @@ @@@@@@@@@@@@@@@@@@@@@MV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NBMSG$@@@@@@@@@@@@() @]D^-Q@[Q^*DMW )@@G@@@@[^-Z@[Q^-Z??????@@@@@@@@@@@@@_D^<>@_F^@@#@@F@@]@@@@@@ADD RX )@@G@@@]'@@#RESERVE INCLUDE EXCLUDE BY @@@@@B@@@@@@(053H RY )@@G@@***** THE ABOVE CARD IS NOT ONE OF THE ALLOWED TYPES) ALPNUM______NUM RZ )@@G@@______(001H(,I2,006HX,1H#)) (058H ***** ERROR IN SPECIFICATION ON THE SA )@@G@@ABOVE CARD NEAR THE #) (060H ***** A FIELD ON THE ABOVE CARD HAS MORE TSB )@@G@@HAN 12 CHARACTERS)(053H ***** THE LAST FIELD IS INCOMPLETE ON THE ABOVE SC )@@G@@CARD) @@@@[K@@@@@@@@@@@AM EXCLUDINCLUDB A @@@@@]' SD )@@G@@, - @@F@@A@@@@@@S1BADC@##@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SE )@@G@@@@@@@@@@@@@@@[C]M)TPF$ @[C]M*@[C]M0@[C]M8@[D]N@@]C]ND@[C]NL@@@@@@SF )@@G@@@@@@@@@@@@@@@@@@@[@@F@@]@@@@@@S1HEDC@[M@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SG )@@G@@@@@@@@@@@@@@(1H0) (1H ,15X,038HMADISON ACADEMIC COMPUTING CENTER BANK,A6SH )@@G@@,018HPROCESSOR RUN ,A6,2X,A6,A2/) @@@@@A@@@@@#@@@@@@@@F@@@@@@@@@SI )@@G@@S1PHED@[6@@#@@@@@@@@@@@@@@@@@@@@@[[*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SJ )@@G@@@@@@@@@@@@@@OLD NEW @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@]G ?;)@E ]6)*5 ^A-[( \B)BKA00@@@___@@@___@@@___SM )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___SN )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___PURGE ______(021H BANKPUSO )@@G@@RGE TERMINATED) (036H OPTIONS ARE NOT USED WITH BANKPURGE)(019H SPECIFSP )@@G@@ICATION FOR ,A3,027HBANK IS MISSING OR IN ERROR)(097H EXTRA SPECIFICATIOSQ )@@G@@NS ARE ON THE BANKPURGE STATEMENT - ONLY OLDBANK AND NEWBANK SPECS CAN BSR )@@G@@E USED) (13A6,A2) (5X,13A6,A2)(038H ONLY ONE RESERVE STATEMENT IS SS )@@G@@ALLOWED) (084H RESERVE STATEMENT MUST BE IN THE FORM RESERVE M WHERST )@@G@@E M IS A NON-NEGATIVE INTEGER)(062H ONLY INCLUDE, EXCLUDE, AND RESERVE ASU )@@G@@RE ALLOWED WITH BANKPURGE) (056H INPUT ERRORS HAVE OCCURRED WHILE REASV )@@G@@DING THE ABOVE CARD) (052H INCLUDE AND EXCLUDE STATEMENTS CAN NOT BOTSW )@@G@@H BE USED) (037H ***** TROUBLE EXPANDING BLANK COMMON) (040H EVERY SX )@@G@@VARIABLE IS EXCLUDED FROM NEWBANK) (030H ***** CALLING ERROR TO S1SJOB)SY )@@G@@@@@@@@@@@[[* @@@@@[@@@@@]@@@@@#@@@@@ @@[@@[RESERVINCLUDEXCLUDSKIP SZ )@@G@@@@I@@I@@[@@M@@[@@C $MAIN$ @@^@@^@@@@@]@@@B@ @@@@@]@@@@@@@@@@@@TA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BANKPURGE J< EPEBLANK$TC )@@G@@COMMON@@@@@@ERU$ I/!^PGFORIO$1 E%*GQFFORIO$2 KQ+]EGFORIO$TD )@@G@@4 E%.GQFINFOR J<1EPEINFOR$ B.1GNCNFFTI$ K@[FMENFFTO$TE )@@G@@ E^NEXDNFTCH$ HS?D]FNISYM$ K@"FMENOSYM$ CCFCQDNTAB$ TF )@@G@@ CCRCQDSQRT$ E"4[OBSYSERR DL4DC0S1BAAI JYQEPES1BADCTG )@@G@@ K.R^NGS1BAPR JDFCS1REEL ^^'^VES1SCAN @JVD^FS1SERRTK )@@G@@ L+$GMES1SJIN NH)DLES1SJOB NOIDLES1SPCT @J$D^FS1TSVLTL )@@G@@ J<:EPES1VLU M$-^R URDATE C$/B DURNPAR L,GASAURPRC2TM )@@G@@ LB=BCAURPRTM LCFBCAURRNID DF(]DAUWERR$ C$3 CDUWERU$TN )@@G@@ BY@BKF@@@@@@@@@@@@$IBANK @@@@@:$DBANK @][@@\@@@@@@@@@@@@TO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]^K@@[@^@AD@C@@@@@[;TQ )@@G@@K@@[@^@@ @ID@@@@[8K@@[@^@@R@II@@@@@YK@@[@^@#[@I>@@@@@GK@@[@^@NT@L&@@@@@STR )@@G@@K@@[@^@C!@=_@@@@@VK@@[@^@#9@!?@@@@@%K@@[@^@@*@1>@@@@@-K@@[@^@@"@2H@@@@@PTS )@@G@@K@@[@^@#*@3F@@@@@PK@@#@^@@K@63@@@@][K@@[@^@@B@7#@@@@[5K@@[@^@@J@7E@@@@["TT )@@G@@K@@[@^@]!@7T@@@@@JK@@[@^@].@'A@@@@@=K@@[@^@[C@.#@@@@@DK@@[@^@T5@"F@@@@@0TU )@@G@@@@@[@^@ @[S@@@@@@9@@@[@^@^S[X@@@@@[(@@@[@^@ &[-S@@@@[O@@@[@^@@N[&"@@@@[OTV )@@G@@C@@#@^@@@@^F@@@@[L@@@[@^@^U[$L@@@@[?@@@[@^@@L[::@@@@[<@@@[@^@@8[:/@@@@[XTW )@@G@@@@@[@^@@J[?4@@@@@_@@@[@^@@ [!#@@@@@/@@@[@^@@V[!C@@@@[2@@@[@^@@\[!<@@@@[ TX )@@G@@@@@[@^@^_[,M@@@@[U@@@[@^@@Z[3L@@@@[)@@@[@^@]#[30@@@@[F@@@[@^@BX[53@@@@[&TY )@@G@@@@@[@^@ W[.K@@@@[]@@@[@^@[N]]?@@@@@6@@@[@^@#H]#_@@@@[\@@@[@^@^3]BG@@@@@3TZ )@@G@@@@@[@^@ <]F_@@@@@M@@@[@^@[7]L+@@@@[C@@@[@^@@3]NT@@@@[R@@@[@^@[,]OG@@@@[IUA )@@G@@@@@[@^@@^]P'@@@@@@@@@[@^@DP]P"@@@@]^0@@]@ @^)^@@@@@@[;0@@]@ @@[^^)@@@@[8UB )@@G@@0@@@@ @@[^^-@@@@[80@@]@ @@]^^+@@@@@Y0@@]@ @@Y^^=@@@@@G0@@]@ @O9^ ]@@@@@$UC )@@G@@0@@]@ @@>^T;@@@@@S0@@]@ @]T^U)@@@@@V0@@]@ @@+^W9@@@@@%0@@]@ @@E^XV@@@@@-UD )@@G@@0@@]@ @@ ^X>@@@@@P0@@]@ @@Y^X%@@@@][0@@@@ @@[^YC@@@@[50@@@@ @@]^YD@@@@["UE )@@G@@0@@@@ @[Y^YF@@@@["8@@]@ @@@@^F@@@@@J0@@]@ @@M^Z(@@@@@=0@@]@ @@^^Z;@@@@@DUF )@@G@@0@@]@ @C.^Z_@@@@@0)@@@@ @@7^*/@@@@@9)@@@@ @]:^(3@@@@[()@@]@ @]-^?Y@@@@[OUG )@@G@@)@@]@ @@]^,_@@@@[L)@@]@ @]U^\[@@@@[?)@@@@ @[D^1V@@@@@!=@@@@ @@[^2=@@@@[@@@@[<*@@]@ @@@@#G@@@@[X)@@]@ @@I^3M@@@@@/)@@@@ @@G^3)@@@@[2UI )@@G@@)@@@@ @@O^3?@@@@[2*@@]@ @@@@^F@@@@[ )@@@@ @@T^4@@@@@[U)@@]@ @@[^4T@@@@[)UJ )@@G@@)@@@@ @@H^4U@@@@[F)@@@@ @A"^4$@@@@[&)@@]@ @]$^;>@@@@[])@@@@ @@L^"G@@@@@6UK )@@G@@)@@@@ @[W^"X@@@@[\)@@@@ @[V^_9@@@@@3)@@@@ @[? [O@@@@@M)@@@@ @@D #@@@@@[CUL )@@G@@)@@@@ @@D #D@@@@[R)@@@@ @@- #M@@@@@@)@@@@ @:P #3@@@@@@*@@]@ @@@@^F@@@@@#UM )@@G@@=@@@@ [[* \C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UN )@@G@@CLAUS$ @@0@MBDCOD$ @@S@@@ELT$ @]+@@HERSAV$ @][@@@UO )@@G@@EXIT @@0@@AFHS1$ @]K@O5FHS10$ @]7@@CFHS2$ @]K@O7UP )@@G@@FHS20$ @]7@@DFNCTB$ @]K@N]GETSPC @[2@@GHDTBL$ @]7@[@UQ )@@G@@IOCOD$ @]7@CBNBFGT$ @@G@ TNBFMG$ @@G@ WNBFRL$ @@G@B"UR )@@G@@NBFRS$ @@G@B3NBLNK$ @@0@@:NCALC$ @@0@@2NCCC$ @@0@@/US )@@G@@NCNV9$ @]7@[JNCOD$ @@!@@#NDBCV$ @@0@C#NDBIN$ @]7@[HUT )@@G@@NDBLT$ @]7@]0NDBSF$ @]7@[ENDIAG$ @@0@KRNDIG$ @]7@BHUU )@@G@@NDOUT$ @@0@SUNERR2$ @@0@O]NERR3$ @@0@OONERR4$ @@0@OVUV )@@G@@NERU$ @@0@L.NFAR$ @@0@L[NFCHK$ @@G@]$NFCI$ @@0@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WD )@@G@@)@@[W@E@@@@@^#[@@B^#K@@B^#C@@B@@@@@@@@@@@@@@@@@@@[[@@A@@@@@Q@@@@@J@@@@@@WE )@@G@@ AA@@@@)@F[W@@@@@@@[@+@][[@+@[[[@+@[[[@-@AB[@)@ B[@D@^[]@ @@[]@*@#[WF )@@G@@]@^@@A]@#@@A ^]@@BAB@@@@)@Q[W@@@@@@@ [@+@[[[@@@@B]@@#@B]@@@@BWG )@@G@@#@B^@B[@A^@B[@@]@[[@@[@[[@+@][AC@@@@)@*[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NCT***AD@@@@)@3[W@@@@@@@@@@@@@@@@@@@WI )@@G@@@@@@@@@@@@@@@@@@@@SEQ***@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE@@@@)@"[W@@@@@@@WJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF@@@@WK )@@G@@)[D[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WL )@@G@@@@@@@@AG@@@@)[O[O@02+[K@@@@@@@@@@@@@@@@@@@@@@@@@@@R@DY@@@@@@@@@@@@@[S@# WM )@@G@@@@@@@@@@@@@@@@@@@@AH@@@@)[Y[W@])@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@S@DYWN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI@@@@)[([W@*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WO )@@G@@@@@@@@@@@@@@@@@@@@@@T@DY@@@@@@@@@@@@@@@@@@AJ@@@@)[4[WE@@@ @@@@V@DY@@@@@@WP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@DY@@@@@@AK@@@@)[_[W@@])@@@WQ )@@G@@@@@@@@@@@@@@@@W@DY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL@@@@WR )@@G@@)]E[W@@*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X@DY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WS )@@G@@@@@@@@AM@@@@)]P[W@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Y@DY@@@@@@WT )@@G@@@@@@@@@@@@@@@@@@@@AN@@@@)])[W])@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WU )@@G@@@@@@@@@@@@@@@@Z@DY@@@@@@@@@@@@AO@@@@)]:[W*@@@O@@@@@@@@@@-@DY@@@@@@@@@@@@WV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@DYAP@@@@)]6[W@@E@@@@@@@@@@@@@@@@WW )@@G@@@@@@@@@@+@DY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AQ@@@@)#[@W@)# @/@WX )@@G@@]+@@@@@ASG,T@@ @# . B @FREE,@@@@@@@@@@@@@@@@@@AR@@@@WY )@@G@@)#G[W@]+@@@@ @USE @@A@#F00 . ,F///1 WZ )@@G@@ AS@@@@)#R[WEDL@@@@AVAILASPACE ACKET : NO PIT $-$R** UNN ERRO**NTRAXA )@@G@@@]D@#U@@A@#M . AT@@@@)#+[WEC@@@@@RAN. FOR NTLABLE T AVAI IS NOIT $-$XB )@@G@@R** UNN ERRO**NTRA@]D@#=BLE. AU@@@@)#![W*)@[L@@N ERRO**NTRA@]C@#6D. XC )@@G@@SSIGNE NOT AIT $-$R** UNN ERRO**NTRA@]B@#,AV@@@@)#8[W@@*)@@@IT $-$R** UNXD )@@G@@N ERRO**NTRA@]D@#_CE. R DEVIMPROPE HAS IIT $-$R** UNAW@@@@)^#@?@@@@@@@XE )@@G@@)@@@<[K^ [@@C@@@@^AA0@@ /K@@@B*^@@@ DE. ION CO FUNCTLLEGAL HAS IAX@@@@XF )@@G@@)@^[N]@ ]@D[^^[@@@ @@@@H'^@@]HC@"@@@/KF@@]*CF@@[AA0@@ C@:@@@R]0@@ '=@@@@XG )@@G@@'=@@@@AY@@@@)@I[N[K@^[[^ [@@@@ 0H@@*AA.@@*O'0@@[RA0@@ /K@@@I @@@@H!8K@@JXH )@@G@@G8K@@[/K@@@O(@H@@*AZ@@@@)@S[N[KL@^^K[@@@@@/K@@@=(?G@@CAA0@@"C@K@[][@K@@BXI )@@G@@G8K@@['^@@]_[@K@[] ?H@@* 4H@@*BA@@@@)@+[N[K^@^@^[@@@@@/K@@@6/,0@^] 4G@@CXJ )@@G@@[0W@@C/K@@@\*0G@@C;/G@@C'^@@#)/K@@@"(C@@@[BB@@@@)@?[N@K^@KO[[K^^@@ 4G@@CXK )@@G@@[0Z@@*/K@@@0C0_@@*/K@@@4(0J@@*C0/@@C/K@@@%/K@@@"/,0@[@BC@@@@)@6[N[K@[]@GXL )@@G@@@@@@@@/KF@@[R'0@@@C@@@[]'=@@@@;*H@@@C8@@@[[@@@[]C?W@@]/K@@@"(^@@@[BD@@@@XM )@@G@@)[@[MKKKO@K@@@@@@@(4G@@# ^G@@#/K@@[&%80@@ /K@@[H*0J@@BC@_@@@C@"@@@C^!@@*XN )@@G@@C0W@@CBE@@@@)[E[N@^@KO [^@@@@@C G@@#/K@@[Q*4G@@#C@"@@8G0\@@BC?!@@*9*)@[[XO )@@G@@/K@@[& @G@@ /K@@[=BF@@@@)[O[UK@K@@@@^?/@@C^@_@@@N/0__/?5W@@#N/0__.C9K@@#XP )@@G@@/K@@]F*?G@@CN/0__;/K@@[Z[[J@@@BG@@@@)[Z[M@K@KL@@@@@@@@/K@@[%\[@@@J9!@@@]XQ )@@G@@[[W@@ C[W@@B/K@@[&%9@@@#;L@@@#C1G@@#9?)@[[BH@@@@)[([N@^^KK^ [@@@@@C^.@@*XR )@@G@@G4\@@BC@K@[[ ?G@@C:80@@Q[^K@@[P;K@@[C^K@@[[@K@[[/K@@[1BI@@@@)[3[MK@K]+)*XS )@@G@@C@@@@@/KF@@[(CI@@@[^!@@*[?.@@*P;0@@8/K@@[3G80@@[ @J@@@/K@@[8:@0@@IBJ@@@@XT )@@G@@)[.[M^ @KO^@@@@@@@/KF@@[ 4G@@CC@K@@L[1W@@C @H@@*C1X@@*/K@@]B(0H@@*;/G@@CXU )@@G@@ @I@@@BK@@@@)]B[MKK@K)@K@@@@@@ @@@[#/K@@],*^J@@@/K@@@@/KF@@@^@_@@@/KF@@@XV )@@G@@ 4G@@C @H@@* 0G@@CBL@@@@)]L[F[^ @KK(@C)CK@@@@@@@*CJ@@@/K@@]4!80@@@!80@@[XW )@@G@@[CK@[R/K@@]2!^K@[RK8@@@DCC@@[RBM@@@@)]U[N@K)@^C[L[^ [@*@@@[#9*K@@Z;/@@@AXX )@@G@@RB/@@CR#)@@@R#K@@J'^@@@@[^/@@C[^J@@@/K@@]4BN@@@@)]=[F@]+-@G)*]^@]]-@@@@@XY )@@G@@C^J@@@ @@@@A[0\@@@/@)@]:C4)@@>'=@@@@C8@@@Z9*W@@@/K@@]6BO@@@@)]![N@K)@^[@XZ )@@G@@^@K^^@C@0@#T/K@@]XN80@@[/K@@]XN/0__"/K@K]H/K@@]4(?G@@]C^J@@@/K@K]HBP@@@@YA )@@G@@)]7[MKM+)*]]C@))@@ @@@@[/K@@@@/K@@]'N80@@]R#0@#"/K@@D@RBK@@ R;@@@ZC@0@#*@J)@8/K@@#48KK@#18KK@#\N^K@@B/K@@#+C@K@[['=@@@@C8K@#'BV@@@@YH )@@G@@)#3[N@KO [KO [KO^@;^0@@=N@K@@BO]0@^CG[@@^C[ H@@*[?.@@*RA.@@*C9J@@8P#0@@BYI )@@G@@/K@@#\BW@@@@)#.[M[[K[@@@@@@@@@C0?@@C 4G@@#A]0@[[/K@@^ @@@[[/K@@#)[5X@@*YJ )@@G@@C9K@@[;^0@@=M#;)@@BX@@@@)^B[N[@^C@^@^@@@@@/K@@^R?9K@@KC9@@@[/[K@^VC1Z@@@YK )@@G@@C^/@@C[@0@[#C@_@@@C@.@@@C^Y@@*BY@@@@)^L[M^@^@KO[@@@@@@/K@@^-/[K@^(+-J@@BYL )@@G@@C@0@[#/K@@^(!9K@@)G[@@@K/K@@^R?9K@@SG[@@@KBZ@@@@)^V[M^[[^[[[@@@@@@/KIKD%YM )@@G@@?8)@@CN^/@@CC?\@@B/K@@^$?9@@@#C(J@@B/K@@^-:80@@[C@0@[#CA@@@@)^>[N[K^ @KOYN )@@G@@[[[@@@/K@@^_%8)@@#/@:@@[C*\@@B/K@@C_C@0@#5/K@@C_C@0@#!/KIKDCD@@@@) ][M^C@@K@^@@@@@@/\)@DI[1G@@#C9@@@O?9K@@S/K@@ EYR )@@G@@?9K@@KC9@@@KC1Z@@@C@0@[#/KF@@[CE@@@@) G[U@@K)C@@C8@@@[[@@@[]C??@@]'=@@@@YS )@@G@@*@@@[[[^/@@^C@.@@][C/@@^/@;@@[C@_@@@C@.@@[CF@@@@) R[MK)#^C]K@@@@@@C@0@[#YT )@@G@@G8K@@[[[G@@AC[J@@@C@.@@[/KF@@@'=@@@@C@@@[]'=@@@@;*I@@@CG@@@@) -[N]@@K@[@YU )@@G@@@@@@@@[1G@@#C9@@@K/K@@ F[1G@@#C9@@@S!9K@@SC9@@@Y/K@@ (?9K@@KC1Z@@@CH@@@@YV )@@G@@) :[M@K)E@^@@@@@@@/K@@ ;:9@@@(C1G@@#/KF@@[*4G@@#'=@@@@[DG@@^C9@@@[[ G@@^YW )@@G@@C9G@@BCI@@@@) 5[M^@^@^[@@@@@@@/\)@DI/K@@ F[1G@@#C9@@@K/K@@ \[1G@@#C9@@@(YX )@@G@@/K@@ \%[G@@AC[G@@BCJ@@@@) _[M@K)@^@@@@@@@@C9@@@[[1G@@#C9@@@S/K@@AH?9K@@SYY )@@G@@C1Z@@@[@?@@AC@,@@@C@!@@[C@0@[#CK@@@@)AD[MEC)@)]^@]@@@@/\)@DIC1Z@@@C@0@[#YZ )@@G@@/K@@ M[1G@@#C9@@@W/K@@ M[ G@@^C9@@#^[DG@@^CL@@@@)AN[U@@@@@@@C9@@@*/@:@@[ZA )@@G@@C@,@@@C@!@@[/KF@@[[@?@@ C8)@@@0@@@@IG@?@@ C@,@@@C@!@@[CM@@@@)AY[N@@^C]-@ZB )@@G@@@@@@@@%9@@@[C5G@@#/K@@A<(4G@@#'=@@@@[1G@@#[@?@@BC9@@@(D@)@@I/C)@A-CN@@@@ZC )@@G@@)A*[M@K@KL]@@@@@@@ @J@@@C^/@@C9(@@#B9!G@@@/KF@@[/ @@A<[[G@@BH9@@@[C[G@@BZD )@@G@@/KF@@[CO@@@@)A2[MKOC]0KKKK@@@@[@@@[]9(@@@Z9!J@@@C@.@@[;/@@@A/KF@@[C@@@[]ZE )@@G@@'=@@@@C@@@#E[@@@[]CP@@@@)A/[M**K#]])]])*@@; @@@A/K@@BB%)0@#I9(@@#HC80@@ ZF )@@G@@/^0@BF @@@@AC4/@@A'=@@@@C8@@@ZCQ@@@@)BA[N@KOC]4 @@K)@@[@@@[]^0\@@@C^/@@CZG )@@G@@N@)@@JC@@@[]/K@@A/;/@@@A'=@@@@C@@@#L/K@@B]CR@@@@)BK[M^ [K[@@@@@@@@; @@@AZH )@@G@@9!J@@@C@.@@[/K@@BM; @@@A/K@@BR%)0@#O9(@@#NC80@@ 9!G@@@CS@@@@)BU[N[KO^KO ZI )@@G@@]@?@@@[@J@@@;C@@@[F@K^[@K^[@K^@@@@@@@@/K@@ "/K@@ W/K@@ #/K@@^:/K@@C9/K@@C\ZZ )@@G@@/K@@C?/K@@CU/K@@CQDH@@@@)D,@;@K^[@^C#4C^@@)^C@O@K@@@@@@@[@@@'=@@@@'=@@@@AA )@@G@@/KF@@[/K@@A7/K@@A,/K@@AU/K@@AKDI@@@@)^E@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@@@@DJ@@@@@@^@@#@@B@@L@@(@@[@@!@@@AC )@@G@@@@@@@@@@@@D5@@@@^FNTAB$ FORK$ EXIT$ AWAIT$ NTBSZ$AD )@@G@@ NBTOD$ FACIL$ TWAIT$ IOXI$ IOI$ IOW$ AE )@@G@@ CSF$ PRINT$ NS11$ NWALK$ TINTL$ TSWAP$AF )@@G@@ NTRAN @@[@@@@@@@@@5+ZH'&MC?S$SPP/?E,8=%B\%W:0<8#F^:5:J Y#,P\AG )@@G@@B"Z N;'''LA61Y&AM--<>)#(*[@@@@*SDFF*@^:@@@P PROC 1. @#@@@@AH )@@G@@N$BF1* NAME @D@@@@PL$** EQU 13 . PACKET AI )@@G@@LENGTH@D@@@@BL$** EQU 256 . BUFFER LENGTH@E@@@@AJ )@@G@@NP EQU P(1,1) . NUMBER OF PACKETS @E@@@@NB AK )@@G@@ EQU P(1,2) . NUMBER OF BUFFERS @G@@@@B1L$** EQAL )@@G@@U PL$*NP+BL$*NB . AREA 1 TOTAL LENGTH (PKT+BUFF) @F@@@@$(2),BAM )@@G@@1O$** RES B1L$ . AREA 1 STARTING ADDRESS @#@@@@ AN )@@G@@ END @^@@@@P PROC 1. @#@@@@N$BF2* NAME @D@@@@AO )@@G@@PL EQU 13 . PACKET LENGTH@D@@@@BL EQAP )@@G@@U 256 . BUFFER LENGTH@E@@@@NP EQU P(1,AQ )@@G@@1) . NUMBER OF PACKETS @E@@@@NB EQU P(1,2) AR )@@G@@ . NUMBER OF BUFFERS @G@@@@B2L$** EQU PL*NP+BL*NB AS )@@G@@ . AREA 2 TOTAL LENGTH (PKT+BUFF) @F@@@@$(2),B2O$** RES B2L$ AT )@@G@@ . AREA 2 STARTING ADDRESS @#@@@@ END ___@@@@@@@@@AU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@[@@@@. @G@@@@. PROCEDURE TO GENAV )@@G@@ERATE NTAB$-TABLES FOR FORTRAN V UNDER 1108 EXEC. @[@@@@. @^@@@@AW )@@G@@. P(1,1) NTAB$ LENGTH @D@@@@. P(1,2) NUMBER OF UNITS TO BE SET TO PRIAX )@@G@@NT SYMBIONTS@D@@@@. P(1,3) NUMBER OF UNITS TO BE SET TO PUNCH SYMBIONTSAY )@@G@@@E@@@@. P(1,4) NUMBER OF UNITS TO BE SET TO CARD READ SYMBIONTS @D@@@@AZ )@@G@@. P(1,5) NUMBER OF UNITS TO BE SET TO REREAD UNITS @E@@@@. LIST P(2) BA )@@G@@MUST BE PRESENT IF P(3),P(4) OR P(5) ARE PRESENT@D@@@@. LIST P(3) MUST BBB )@@G@@E PRESENT IF P(4) OR P(5) ARE PESENT@C@@@@. LIST P(4) MUST BE PRESENT IFBC )@@G@@ P(5) IS PRESENT @H@@@@. ENTRIES IN LIST P(2) ARE UNIT NUMBERS FORBD )@@G@@ STANDARD PRINT SYMBIONTS @H@@@@. ENTRIES IN LIST P(3) ARE UNITBE )@@G@@ NUMBERS FOR STANDARD PUNCH SYMBIONTS @G@@@@. ENTRIES IN LIST PBF )@@G@@(4) ARE UNIT NUMBERS FOR STANDARD READ SYMBIONTS@E@@@@. ENTRIES IN BG )@@G@@LIST P(5) ARE UNIT NUMBERS OF REREAD UNITS@[@@@@. @E@@@@. EXAMPBH )@@G@@LES OF CALL: N$TAB 31,1,1,1,2 6 1 5 0,30 @G@@@@. BI )@@G@@ N$TAB NSIZE,1,1,1,1 PRT CPNC CRD RREAD @[@@@@. @^@@@@BJ )@@G@@P PROC 5. @#@@@@N$TAB* NAME @^@@@@$(2),NTAB$** RES BK )@@G@@ 0 @ @@@@NTBSZ$** EQU P(1,1) @ @@@@F FORM 6,6,BL )@@G@@6,18 @#@@@@Q FUNC @#@@@@RRD* NAME @^@@@@A(1) EQBM )@@G@@U 0 @F@@[@J DO Q(1) , DO P(5,J)=I-1 ,A(1) EQU +(BN )@@G@@F 0,040,1,0)@C[@@@ DO (A(1)>0)**(A1(1)>0) ,B EQU 0999 @^@@@@BO )@@G@@ END A(1)@#@@@@Q FUNC @#@@@@DEV* NAME BP )@@G@@@^@@@@A(1) EQU 0 @^@@@@B(1) EQU 0 @^@@@@C(1) BQ )@@G@@ EQU 0 @E@@@@J DO Q(1) , DO P(2,J)=I-1 ,A(1) BR )@@G@@EQU 044 @E@@@@K DO Q(2) , DO P(3,K)=I-1 ,B(1) EQU 0BS )@@G@@41 @E@@@@L DO Q(3) , DO P(4,L)=I-1 ,C(1) EQU 040 BT )@@G@@@A@@@@A1*(1) EQU A(1)+B(1)+C(1) @B@@@@ DO A1(1BU )@@G@@)>044 ,B EQU 0999@ @@@@ END A1(1) @G@@@@I DOBV )@@G@@ P(1,1) , F 0,DEV(P(1,2),P(1,3),P(1,4)),RRD(P(1,5)),0@#@@@@ BW )@@G@@ END ___@@@@@@@@@)@@[MK)[K[[[]@ @@@C80@@F/K@@@F[@0@@@C80@@HO'0@@[BX )@@G@@[ K@@@C V@@@/K@@@F[@0@@@C80@@GAA@@@@)@E[F]@ ]@C]=@U^@+^@%^@0N8K@@E'^@@@@BY )@@G@@^^)@@@[ K@@@C9K@@@N^:@@@NC;@@@AA0@@@[@0@@@AB@@@@)@N[F]@X]@)[]@>[K)FK)[@@BZ )@@G@@C[@@@@[[@@@@C[@@@[AA0@@@O'.@@[C@K@[#M#!)@@C@)@@@C@K@@@AC@@@@)@W[MK[@^C#]CA )@@G@@)C[K@@C9K@@9/K@@@!N8K@[LC9K@@1/K@@@@%9@@@G/K@@@>:9@@@H/K@@@::9@@@FAD@@@@CB )@@G@@)@&[EK)D^C]O@*]^[%^[0@@@^^K@@@[ K@@@N8K@] C9K@[]/K@@@![^0@@@G80@@[C^0@@@CC )@@G@@N8K@] AE@@@@)@\[#]@.][@KOC^O[]@T[@@@@@@@@@C[K@@['^@@@@C^K@@1'=@@@@R#@@@]CD )@@G@@/K@@@@/K@@@@ @@@@@AF@@@@)@7[N]@?^C^-[KL[K@C^K@@9[@)@@@M#!)@@C@)@@@C@K@@#CE )@@G@@N@K@@J'^@@@@/K@@@@/KH@@@[[K@@@AG@@@@)[[@;@^C^4C ^C O[@@@@@@@)@@@G@@@[@@@CF )@@G@@/K@@@5C^K@[]'=@@@@C@@@@@'^@@@@/K@@@@/K@@@5AH@@@@)@[@W(@OO)EEK @@@@@@@@@@CG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@I@@@@@ @@@AI@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CI )@@G@@@@^@@#@@B@@Q@@3@@#@@_@@@@@@@@@@@@@[C@@@@@^NTAB$ IOCOD$ NS11$ CJ )@@G@@ NTST0$ NRGB$ NR91$ NBLNK$ FHS10$ FHS20$CK )@@G@@ NIO1$ NFRJ$ NFPC$ NERU$ NKLN$ NFRA$ CL )@@G@@ NFRZ$S NFMT$ PUNCH$ NCALC$ NCCC$ PPP$ CM )@@G@@ PRINT$ NWDC$ @@[@@@@@@@@@NCOD$ @@[@@@@@@@@#NPRT$ CN )@@G@@ @@[@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP )@@G@@)@@[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@)@@@@@@@@@@@@@@@@@@@@@@@-@@@@CQ )@@G@@@)[@@@AA@@@@)@F[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CR )@@G@@@@@@@@@@@@@@@@@@@@AB@@@@)@Q[W@@@@@@@@)@@@@@)@@@@@)[@@@@@@@@@@@@@@@@@@@@@CS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC@@@@)@-@=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT )@@G@@@@@@@@@@@@@@@@@@@@@=@@@@@=@@@@@-@@@@@-@@@@AD@@@@@@^@@#@@B@@@@@B@@]@@J@@@CU )@@G@@@@@@@@@@@@@@@@@@@>NTAB$ @@]@@@@@@@@@NTBSZ$ @C@@@@@@@@@>@@@@@@CV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CW )@@G@@)@B[W@@@K)@@A7Y@@@@@@@@M@@@@@ @@@@@K@@@@@#@@@@@#@@@@@[__"@@L__"@@^@@@@@TCX )@@G@@@@@@@FAA@@@@)@M[H]@[]@[]@[]@[]@@@@@@@@@@@E@@@@@-@@@@@+@@@@@ A]@(]@0@@@@@@C@0@@@/K@@@@'=@@@@C@@@@-/K@@@@'=@@@@C@@@@1/K@@@*AL@@@@FA )@@G@@)[1[N]@@^@K)A@@@@@%[G@@FC[H@@@G^W@@DC^W@@C'^@@@@!CW@@D'^@@##*CG@@GC^W@@CFB )@@G@@C^J@@@AM@@@@)[;[V@@^@[@@G8K@@]/K@@#A%9@@@[C^W@@CC(H@@[/K@@]%!C?@@DG8)@@[FC )@@G@@C^?@@C @G@@F/K@@]$AN@@@@)]A[M@@K)GK)@@@@@@[^W@@CC^J@@@C@0@@@G8K@@W%@K@@KFD )@@G@@G@K@@KD@K@@HW8@@@W[@K@@K @@@@GAO@@@@)]K[EK^C^L][D]@1]@@@@@@@*4G@@C ^G@@CFE )@@G@@C^J@@@C@0@@@'^@@@@C G@@D/K@K@@/K@@]N!CW@@DAP@@@@)]T[N@^C^L][GK)O@@C G@@^FF )@@G@@[DG@@DC G@@#'^@@@@*4G@@#'=@@@@0@G@@#/K@K@@ @G@@D/K@@]WAQ@@@@)]<[E[][ [K)FG )@@G@@DK)E^C[)@@@@'^@@@@[^?@@C/K@@@@'=@@@@C@@@@(/K@K@@ ^G@@C 4G@@C[ G@@DAR@@@@FH )@@G@@)]?[U@K[@@@@G[G@@FC[I@@@O;K@@[K^W@@D/K@@]AG8K@@[/K@@#A%9@@@[C(I@@@K^W@@DFI )@@G@@C^W@@CAS@@@@)]7[M^@^ ]@SKO@@@@8KK@]3N@K@@@RBW@@C'^@@@@^@K@@@^CW@@GABW@@CFJ )@@G@@/K@@#@?CW@@D[[G@@FAT@@@@)#[[U@K@[@K@/K@@#I/K@@#G!CW@@D[^W@@CG8K@@] @G@@EFK )@@G@@/K@@#@NCW@@G/K@@@@ABW@@C CG@@GAU@@@@)#G[N]@T@@@^@@@@@@/K@@[0[^?@@C[[G@@EFL )@@G@@C[H@@@[DG@@GCDH@@@G^W@@DK8K@@[/K@@[0'^@@@@AV@@@@)@#[W*)@@ ^@@_D@@IVICE FM )@@G@@ONT DE SYMBIA FROMED DATORMATTD NONFTO REATRIED @_D@@^AW@@@@)@I[W@@@*)@@FN )@@G@@NON-FO@_D@@STAPE ED TO ASSIGNE NOT UT FIL - INPD TAPETO REATRIED AX@@@@FO )@@G@@)@T[W@@]+@@@UM ERRCHECKS@_B@@+ TAPE AND OR FASTR DRUM,CE NOTT DEVID INPUFP )@@G@@RMATTEAY@@@@)@=[W@]+@@@@RMATTE NONFOROR ONSUM ER CHECK@_B@@%BLOCK DATA FQ )@@G@@MATTEDNONFOROR ON AZ@@@@)@\[W]+@@@@@ WITH RECORDGICAL ONE LO THAN D MOREFR )@@G@@TO REATRIED @_I@@2T. D INPUBA@@@@)@'@4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FS )@@G@@@@@@@@NT TATEMEREAD SATTED N-FORMONE NOBB@@@@@@^@@#@@B@@P@@1@@]@@9@@@FT )@@G@@@@@@@@@@@@#Q@@@@[@NTAB$ NS11$ IOCOD$ NFCHK$ NRGC$ FU )@@G@@ NRGB$ NFTCB$ NIO1$ NIO1B$ PRINT$ NWALK$FV )@@G@@ STTYP$ UNIT$ NFRZ$ WRDCT$ NFBY1$ NSER$ FW )@@G@@ NIO2$ NBFRL$ WAIT$ NIOER$ NRBU$ @@[@@@FX )@@G@@@@@@@@NRBT$ @@[@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[MKKKOC@=@K)#@@NC;@@@GA )@@G@@AA0@@@C80@@E/K@@@CA#@@@@R#@@@[C80@@HO'0@@[[ K@@@C V@@@AA@@@@)@E[EK)^EK]*GB )@@G@@K#CK#+^[]^[CM#H)@@C@@@@@C@K@@@N8K@@M^^)@@@[ K@@@C9K@@@[@0@@@N^:@@@AB@@@@GC )@@G@@)@N[E^C]-@E@-@Q-@S@@@@@@^@K@@@[ K@@@N8K@[LC9K@@=/K@@@Y:80@@HAA0@@@O'.@@[GD )@@G@@C@K@[#AC@@@@)@W[F]@5]@8*]^[K-@O)@@@@/K@@@@/K@@@U[^0@@@G80@@[C^0@@@N8K@] GE )@@G@@C9K@@\/K@@@@'^@@@@AD@@@@)@>[F[^C@O[[K)JK^ ]@C@@@[[K@@@C[K@@[C^K@@='=@@@@GF )@@G@@C@@@@#8#K@@$[@H@@@C8K@@PC@@@@]AE@@@@)@,[E[]@C(@]CK[]]@@@@@@@O#)@@@O;)@@[GG )@@G@@%DK@@@C9K@@ P;)@@@RB)@@@N8K@@Q/K@@@@/KH@@@AF@@@@)@7@;[KL@K[][@@@@@)@@@G@GH )@@G@@@@@@@@@@[@@@/K@@@@C8K@@[/K@@@?C^K@@\M#Y)@@C@K@@^A#)@@@AG@@@@)@[@=(@]A]O)GI )@@G@@[EK@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@/@@@ @@ @@@AH@@@@GJ )@@G@@@@^@@#@@B@@L@@(@@]@@1@@@@@@@@@@@@@@"@@@@@ NTAB$ NFRH$ NNG90$GK )@@G@@ NS11$ IOCOD$ NTST1$ NRGB$ NR91$ FHS1$ GL )@@G@@ FHS2$ NIO1$ NKLN$ NFRA$ NRTR$ NFMT$ GM )@@G@@ READ$ NSER$ DCOD$ @@[@@@@@@@@@NRDC$ @@[@@@GN )@@G@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@G0M=@@@@)@B[^@@@@@@@GO )@@G@@AN ATTED BY RMINATION TEEXECUT@@@@@@@@@@@@@@@@@@@[)@@@AA@@@@)@J@?@@@@@@@GP )@@G@@)@@@<]@ [K^^A]0@@\'^@@@]@[]@[]HD )@@G@@@[]@@@)[&@<[KO ]@8'=@@@@R#@@@OA\@@@OR#@@@DA7J@@@A3J@@@A\J@@@A:J@@@AN@@@@HE )@@G@@)[%[F[KOC@^@KL[KK@@@@@@@R#@@@OA3@@@OR;@@@[')D@@QR;@@@*8]0@[?A#F@@@R#@@]NHF )@@G@@R]0@@DAO@@@@)[3[#]@9]@/K)KK)KEK@CKCC@@@@@@'^@@^VA^K@@@R8K@@@A4K@@@ @@@@@HG )@@G@@O8K@@Y/K@@@@'=@@@@AP@@@@)@W[W@@@@@@@ OF MA$$$$$$Q NO. AT SENCATEDAS TRUHH )@@G@@ NO. W$$$$$$NG* A *WARNI@LOG AQ@@@@)@$[^@@@@@@@)[;@F[@@@@@@R#@@@2COMPLXHI )@@G@@DOUBLE REAL $$$$$$BPROG OF SUGRAM IN PROAR@@@@)[/[MKO [KO [@@@@@Q;K@@AHJ )@@G@@R;)@@ ;)K@@MRFK@@CRB0@@C9*0@@^9*K@@]A#@@@ZR#G@@?H8@@@]AS@@@@)]A[M^[[K^ [HK )@@G@@^ [@@@R#@@]PA#@@@*R#J@@@9*@@@&9?@@@(/@0@]JA#@@@>8#)@] ;=@@@A;@K@@#AT@@@@HL )@@G@@)]K@<][ [KK@)@0@G@)[F@X[KO^@@@A:Y@@3A$Y@@3A^@@@@@] @[?@] @]HR7Z@@@HO )@@G@@R3Z@@@R\Z@@@R:Z@@@R$Z@@@R^*>^*>^@@@@IN REC DATA ICIENTHP )@@G@@INSUFF@]B@[>@] @]C@]A@[.@] @]#@]^@[9@]C@[1AX@@@@)[([W@@@@@@@OF RANR OUT HQ )@@G@@INTEGEEGER IN INTACTER L CHARILLEGAREAD. ING REORD BEAY@@@@)[4[W@@@@@@@HR )@@G@@L CHARILLEGAENCE. R SEQUARACTEBAD CH7 973836/-3435X IS +GE, MAAZ@@@@HS )@@G@@)[_[W@@@@@@@NG NUMFLOATILETE INCOMPLD IS NT FIEEXPONEINPUT.ATING IN FLOHT )@@G@@ACTER BA@@@@)]E[^@@@@@@@)]O@F[@@@@@@R#@@@1UT. AL INP LOGICR F INNO T OHU )@@G@@ARGE. TOO LBER ISBB@@@@)]P[M^@KO [KO [@@@9%)@[]9%@@[@9()@@"A]0@@'A])@@9HV )@@G@@A@K@@8/KF@@@/K@@ 0:8K@@E/@F@@@BC@@@@)]Z[N[KO [KO [^ @@'^@@@.(@@@@\A#@@@EHW )@@G@@R]K@@.R#0@@/A[0@[EA]K@[D9:0@[B9:K@[ [#@@[^BD@@@@)]([M@^ @K^[@@@@@@/K@@^9HX )@@G@@/K@@^5/K@@#T/KI@]\A#)@@2;C)@@);*)@@ER#,@@@H8)@@[ @@@@[BE@@@@)]3[N@KKK^[[HY )@@G@@^@@@@@:8K@@F/K@@#D:8K@@T')D@[R/K@@]'/K@@# :8K@@,%8K@@ ')D@[R/K@@^2BF@@@@HZ )@@G@@)].[N@[@K^[@K^[@@@/,0@^!/%K@]4/K@@]9/K@@^P/,0@^!/%K@]9/K@@^P:8K@@,%8K@@ IA )@@G@@/K@@#GBG@@@@)#B[N@K@K[@K^[[@@@')D@[R/K@@#R/,0@^!/%K@#K @E@@@/K@@#HA#U@@@IB )@@G@@R;K@@[/K@@]4'^@@@.BH@@@@)#L[M^[@K^[[K@@@@@ @@@@P @@@@M/K@@^< @@@@\/,0@^!IC )@@G@@/%K@^'^@@@@AB@@@@)@N[F@^[@^@*CK]>@@@@@@@@KB )@@G@@N8)@]'^^)@@@N8)@]J/K@@[:!8K@@)/K@@@T/K@@@R!8K@@S/K@@[*AC@@@@)@W[F]@SK@K[KC )@@G@@@K)B@@@@@@@@'^@@@@/K@@[ %9@@@^/K@@@(:9@@@#C1G@@C/[@@[LC[G@@D^^)@@@AD@@@@KD )@@G@@)@>[N]@L]@[@K@K[@@C9K@@*/K@@@4!8K@@K/K@@@8%9K@@(C1W@@#/K@@@8'^@@[,C^J@@@KE )@@G@@C@0@@@AE@@@@)@\[M^C][@@K)D@@@@*4G@@C'^@@@@ 0G@@#[DW@@^C W@@C/K@@@8[ W@@#KF )@@G@@'=@@@@C W@@#[1W@@#AF@@@@)@9[N@K)E^@^@K)F@@*4G@@#'=@@@@0@G@@#/K@@[U^4?@@CKG )@@G@@N8)@@[/K@@[@(@@@[['^@@@@/K@@[@AG@@@@)[#[F]@1@K)D^@K)H@@@@@@@:9@@@_C5G@@EKH )@@G@@'^@@@@*4G@@C/K@@[I*?G@@C'^@@@@/K@@[V'^@@@@AH@@@@)[G[F@K)H^C#=[]@/^@@@@@@KI )@@G@@/K@@[V(@G@@E^^W@@D'^@@@@/K@@@Z'^@@@@ ?G@@C'^@@@@/K@@[VAI@@@@)[P[U^[@K@@@KJ )@@G@@C9@@@# @G@@G[ W@@CC9K@@[ @G@@F^^W@@D/K@@[V'^@@[,/K@@[V?9@@@]C(G@@EAJ@@@@KK )@@G@@)[)[#]@CK)KK)LK)MKOC^4C @@@@@@/K@@@@'=@@@@C@@@@[/K@@@@AA0@@@'^@@@@[1G@@CKL )@@G@@[[@@@@AK@@@@)[*[F[K)NK)OKOC^4C @K@@@/K@@[3*4G@@C/K@@@@/K@@@@'=@@@@C@@@@PKM )@@G@@/K@@@@'=@@@@C@@@@EAL@@@@)[1[MK)F^@^@@@@@@@[!G@@EC1G@@E @@@@H/K@K[,:9@@@)KN )@@G@@C(G@@E/K@K[,(0G@@E'=@@@@0@G@@#AM@@@@)[;[U@@@@@@@K^W@@DC[G@@E[(G@@EC9@@@)KO )@@G@@[ G@@GG9@@@[[ G@@EC G@@G 4G@@E[1G@@EC9@@@VAN@@@@)]A[M@^@K)BK^C K@@'^@@@@KP )@@G@@/K@K[,'^@@@@[^W@@C/K@@]B?8K@@W @I@@@G8K@@[G8)@@[[[I@@@AO@@@@)]K[N]@L]@@^KQ )@@G@@[][S@@G[G@@F[[I@@@C[H@@@G^?@@DC^K@@@/K@@]*!8)@#'C^?@@CC^J@@@C@0@@@AP@@@@KR )@@G@@)]U[M@@K)R^C 0@@@@[[K@@@H9K@@[C[K@@@[^?@@CG8)@@[C^?@@C[C?@@GG8)@@[CC?@@GKS )@@G@@[[G@@FAQ@@@@)]=[EK)QK)MK^C[1@K)E@@@@*@@@[['^@@@@/K@@]7*4G@@C'^@@@@/K@@]NKT )@@G@@/[K@@@[^K@@@G8K@@[AR@@@@)]![N@^C]1]@0K@@@@^^W@@D^4?@@CN8)@@[/K@@]6N^W@@^KU )@@G@@'^@@@@*4G@@#'=@@@@0@G@@#/K@@]4AS@@@@)]7[M^[]@L]@@^C[0@*4G@@CC G@@D'^@@@@KV )@@G@@[*?@@GC8)@@[C^J@@@C@0@@@/K@@]N[^?@@CC8)@@[AT@@@@)#[@3][)@K)T@@@@@@)@[@O*KW )@@G@@)@@@@@NONFOR@_C@@]/K@K@@[^?@@DC^?@@^ ^G@@C 4G@@C'^@@@@AU@@@@)@#[W@@EC@@@KX )@@G@@ TAPE MATTEDNONFOR@_E@@FILE IONT FN SYMBPTED O ATTEM WRITEMATTEDAV@@@@KY )@@G@@)@I[W@@EC@@@ WRITEMATTEDNONFOR@_C@@Q TAPE R THANE OTHE DEVICTED ONATTEMPKZ )@@G@@WRITE AW@@@@)@T@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EVICE OPER DLA )@@G@@N IMPRPTED O ATTEMAX@@@@@@^@@#@@B@@U@@;@@]@[#@@@@@@@@@@@@@#B@@@@@YNTAB$ LB )@@G@@ NS11$ IOCOD$ NFCHK$ UNIT$ NRGC$ NRGB$ LC )@@G@@ DRAIN$ IOW$ UPDDA$ NBFGT$ WAIT$ NIOER$LD )@@G@@ BS1BL$ NSWTC$ NBFMG$ NBFRS$ NIO1$ NIO1B$LE )@@G@@ PRINT$ NWALK$ STTYP$ NFRZ$ WRDCT$ NBFRL$LF )@@G@@ NIO2$ NWBT$ @@[@@@@@@@@@NWBU$ @@[@@@@@@@@]@@@@@@LG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[M[@[]@^@@@@@@@(4G@@C/K@@@@ 4G@@C'^@@@@*4G@@CLI )@@G@@C[@@[[/K@@@?%8K@@_R7Z@@@K^?@@DAA@@@@)@E[#]@D]@H]@@K)^^C[OC@0@@@@@@C@0@@@LJ )@@G@@'^@@@@*4G@@#'=@@@@0@G@@#C^J@@@C@0@@@'^@@@@AB@@@@)@M[N]@@@@^C[)@@@@C@)@@@LK )@@G@@^C?@@DN^?@@#^^?@@DN^?@@^N^W@@D ?G@@C ^G@@C(?G@@CC^J@@@AC@@@@)@W[UK@K@^@@LL )@@G@@O;0@@V;O)@@=/K@@@^**J@@@K^?@@DG8)@@[/@)@@@OB?@@CCC?@@G/K@@@^:8)@@]AD@@@@LM )@@G@@)@$[U[@@^@K@/K@@@7*4G@@C/K@@@+?C?@@DO;)@@]OF\@@@K^?@@D/K@@@0!C?@@DT8)@@WLN )@@G@@W8)@@WAE@@@@)@2[F]@WK@^C@=@@@@@@@@@@/K@@@@/K@K@C'^@@@@^^W@@^A7W@@CR;K@@[LO )@@G@@/K@K@C(@@@[['^@@@@AF@@@@)@;[F]@H]@@K^C]@^@@@@@@@/K@@[D(?G@@C^^W@@^^^W@@DLP )@@G@@'^@@@@/K@@[**@G@@DC^J@@@C@0@@@AG@@@@)[^[M(@MC@)@CK#@@@^0?@@CN@)@@@ @G@@FLQ )@@G@@ CG@@G @G@@E/K@@[!C0W@@C'^@@@C[0?@@#R;)@@@AH@@@@)[I[M^[]@S^@@@@@@@NC\@@@LR )@@G@@K^?@@DRB?@@C/K@K@'*@G@@E:8K@@[C@K@@@'^@@@C!C?@@DC^?@@CAI@@@@)[S[U@@K@K@@LS )@@G@@/K@@]"%9@@@_C5G@@E/K@K@'?9@@@]C(G@@E[^?@@CG8)@@[^@?@@EN@\@@@^C?@@GAJ@@@@LT )@@G@@)[<[M@K)E[@^@@@@@@/K@@]U%8K@@]/K@@[!:8K@@[C0W@@C/K@@@@C8K@@[ CG@@GA3W@@CLU )@@G@@R;K@@]AK@@@@)[![F]@T@K)F@K@@@@@@@@@@K^?@@DC^?@@C'^@@@C!C?@@DC^?@@C @G@@ELV )@@G@@'^@@@@/K@@[I:@K@@@AL@@@@)[6[N]@SK@K[@^@@@@/K@@[G:8K@@S/K@@[G:8K@@K/K@@[GLW )@@G@@:8K@@CC*Z@@@/K@@]E%8K@@]C@K@@@AM@@@@)]@[UK@K@[@@C*Z@@@/K@@]NG^?@@CG@0@@ILX )@@G@@G8)@@WD@)@@I/@)@];W8K@@W @@@@H/K@@[G:8K@@)AN@@@@)]F[UK[@@@K@/K@@[4?C?@@DLY )@@G@@[^?@@CG80@@[G0_@@@G8)@@[G0\@@@/K@@]"%8K@@)/K@@[G?8K@@]AO@@@@)]Q[N]@SK^@[LZ )@@G@@]@1@@@0@G@@#/K@@]8%@Y@@@C8)@@BC0W@@# @G@@E/K@@[4'^@@@C[1W@@CC[K@@@AP@@@@MA )@@G@@)])[F]@L]@!]@H]@@K@@@@@@C W@@#[0?@@#C8)@@*/K@@]1!8K@@KC0Z@@@C@0@@@'^@@@@MB )@@G@@'=@@@@AQ@@@@)]([N]@4^@^C[O@@@@[DW@@^C W@@#/K@@[G'^@@@@*4G@@# CG@@D/-K@],MC )@@G@@C1W@@C[ W@@#'=@@@@AR@@@@)]3[EK)G^C#=[[K)JK)KKK@@C@@@@G/K@@@@'=@@@@C@@@@@MD )@@G@@/K@@[G'^@@@@[1W@@#C[X@@@C0W@@CAS@@@@)]/@:]@.][[[K)JK)K@@@@@@)@@@O*)@@@@@ME )@@G@@READ A@_F@@[/K@@@@'=@@@@C@@@@P/K@@@@'=@@@@AT@@@@)@][W@@@EC@@@_C@@HREWINDMF )@@G@@CE OR ACKSPANING BNTERVEHOUT IED WITTTEMPTRITE AFTER WAU@@@@)@H[W@@]+@@@MG )@@G@@RMATTENON-FO@_C@@QDATA ATTED N-FORM ON NOEMPTEDAD ATTTED REFORMATAV@@@@MH )@@G@@)@S@4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DATA ATTED N FORMPTED O ATTEMMI )@@G@@D READAW@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@#@@B@@L@@(@@#@@5@@@@@@@@@@@@@#[@@@@@YNTAB$ MK )@@G@@ NBFRL$ RDBLK$ UNIT$ WAIT$ NIOER$ IOCOD$ML )@@G@@ NBFGT$ NBFMG$ R$ NSER$ NBFRS$ FNCTB$MM )@@G@@ IOW$ UPDDA$ PRINT$ NWALK$ NFTCH$ @@[@@@MN )@@G@@@@@@@CNFTCB$ @@[@@@@@@@@'NFBY1$ @@[@@@@@@@]"@@@@@@@@@@@@@@@@@@MO )@@G@@)@@@N]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@]MP )@@G@@R#@@@@AA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@[@@C@@[@@G@@@@@@@@@@@@@@]NSTAT$ MR )@@G@@INSTAT @@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[F]XK^D5]O@**]^'@@@@@MT )@@G@@ @@@@@/K@@@JN8)@@@R#_@@@RB;@@@AA0@@@ @@@@@/K@@@DA]0@@@AA@@@@)@D[N]O@@K)4MU )@@G@@CP@@@@/K@@@P'^@@@@^@K@@@N8K@@]N^:@@@O'0@@[NC;@@@C@_@@@C^;@@@AA0@@@AB@@@@MV )@@G@@)@N[EK^D5]^EM2^Y-C+^]@@@C@K@@@N8K@@M^^)@@@[ K@@@C9K@@@/K@@@@*@@@@@/K@@@RMW )@@G@@?8K@@KAC@@@@)@W[F]]@K+4DOK^@@@@@@@@@'^@@@0/K@@@&:9K@@[C!Z@@@AA0@@@O'.@@[MX )@@G@@C@K@[#M#H)@@C@@@@@AD@@@@)@>[F]AE]^SCK'^)-#]]@@@@C[K@@[/K@@@@/K@@@@'^@@@@MY )@@G@@[ K@@@C9K@] [ K@@@C9K@@?/K@@@@AE@@@@)@,@N]IK@@@@)@@@OEL@@@@@)@0@UK&^DO@@MZ )@@G@@C1J@@@C@@@@@/K@@@@@@ @@@() /K@K@?[[K@@@AF@@@@)@3[EK])-E>[]G^CX]H@@@@@NA )@@G@@[[K@@@[[K@@@C9K@[L[ K@@@C9K@]Y1@J@@@C9K@]$/K@@@"%9@@@)AG@@@@)@/[F]KK@K=2NB )@@G@@)-A]^I@@@@@@[[K@@@C9K@] [ K@@@C9K@[C/K@@@@!9@@@)R;@@@[/K@K@0'^@@@@AH@@@@NC )@@G@@)[ [F]HK+O@K$^D1]WK$=DO@C^J@@@C@0@@@A])@@]A]K@@[A]@@@@/K@@@@/K@@@/'^@@@@ND )@@G@@[[K@@@AI@@@@)[I[M^[]P^@^@@@@@@C^W@@C/K@@[&:8K@@QCCW@@D/K@@[R!8K@@KC0Z@@@NE )@@G@@/K@@[1!DG@@DC G@@CAJ@@@@)[S[M[[KO[@KO@@@@@G0X@@@/K@@[?%[K@@E/[K@[3/K@@]8NF )@@G@@:[K@@D+[@@@D[[G@@EC[H@@@G^W@@DAK@@@@)[+[M[@@(^@)@@@@@@/K@@]]9*K@@DC^W@@CNG )@@G@@C8)@@@[@K@@C @G@@E/K@@[T[^?@@CL^W@@DG8K@@[AL@@@@)[?[EK)^ ]TK>4C(@@@@@@@@NH )@@G@@RAW@@CR2H@@@/K@@[G'^@@@@/K@@@@'=@@@@C@@@@F'^@@@@ @@@@HAM@@@@)[5[MEL]])*@NI )@@G@@C@)@@@/K@@]G(@@@@C/K@@[GAAW@@CO]K@@C/K@@[.%[K@@H+[@@@GR')@@@O'K@@[AN@@@@NJ )@@G@@)[_[U^@@@@@@ @@@@KP'@@@[O')@@[O'K@@[[[E@@@C[H@@@G@K@@DC^W@@D/K@@]V!DW@@DNK )@@G@@C[K@@DAO@@@@)]E[MK[[K<=^K^^@@@[[U@@@C[K@@K/K@@]R?[@@@EC[@@@J[[K@@@C[K@@INL )@@G@@AAW@@C/K@@[_?[@@@CAP@@@@)]O[E^[]WK$^D1@K+)@@@@@@RAW@@C'^@@@@/K@K[CR])@@]NM )@@G@@R]K@@[R]@@@@/K@@]N![@@@EO')@@[AQ@@@@)]X[F@^^K+^[[K&4@@@@@@@@'^@@]2'=@@@@NN )@@G@@C@@@@L8#K@]-[@H@@@C8K@@PR#@@@K/K@@@@/K@@[_AR@@@@)]&[F@^^K+^[]SKK@@@@@@@@NO )@@G@@[[G@@@C[@@@LC@@@@@8#K@]%[@H@@@C8K@@PR#@@@K/K@@@@/K@K]YAS@@@@)]\[F]UK^@ELNP )@@G@@]^WCL2@@@@@@/K@K]2[DK@@@C9K@@ [ K@@@C9K@@@/K@@@@/K@K]$'^@@]2'=@@@@AT@@@@NQ )@@G@@)]8@%@K=)@@@)@]@=@@@@@@@TROL WLE CONGNIZABUNRECO/K@@@@C8K@@[ABW@@CO;K@@[NR )@@G@@RBW@@CAU@@@@)@A[O@]+[MCJA@+@@@@@@@@P@@ @@@@@@)@@@@@_@@@_B@@]*@@@@@_@@@@@NS )@@G@@RED COUNTEORD ENAV@@@@)@K@OG^(^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NT )@@G@@@@@@@@@@@@@@@@@@@@@];@@@ AW@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@#@@B@@Z@[ @@^@[P@@@NV )@@G@@@@A@@@@@@@].@@@@@MCLAUS$ FHS1$ FHS2$ IOCOD$ NERU$ NW )@@G@@ NFCHK$ NFMT$ NFRA$ NFRH$ NFTCB$ NFTCH$NX )@@G@@ NIO1$ NKLN$ NLLM$ NNG90$ NRGB$ NRTR$ NY )@@G@@ NR91$ NSER$ NSYMR$ NS11$ NTAB$ NTST1$NZ )@@G@@ NWALK$ PACKT$ PRINT$ READA$ READ$ TEMP$ OA )@@G@@ TFLG$ UNIT$ NINI1$ @@[@@@@@@@@0NRDT$ @@[@@@OB )@@G@@@@@@@@NRDU$ @@[@@@@@@@@CUWRDU$ @@[@@@@@@@@]#*HR6U[@I 07209+OC )@@G@@VFGIBD2353@YI@@@[=#,C,E%07209+VFGIBD2396@YI@@@[$#,C,E%07209+VFGIBW0235@YOD )@@G@@I@@@[N#*HR6U07209+VFGIBW0291@YI@@@[T#,C,E%07209+VFGIBW0316@YI@@@@!#*E),LOE )@@G@@)@@[F]OC]^*K<) @K>@@@@@ @@@@@/K@@@JN8)@@@R#_@@@RB;@@@AA0@@@ @@@@@/K@@@DOF )@@G@@A]0@@@AA@@@@)@D[N]I@@CKP]BC@@@/K@@@P'^@@@@^@K@@@N8K@@^N^:@@@O'0@@[NC;@@@OG )@@G@@C@_@@@C^;@@@AA0@@@AB@@@@)@N[EK^DK-#M=ZK<]^UK-K@@N8K@@E'^@@@@^^)@@@[ K@@@OH )@@G@@C9K@@@/K@@@@*@@@@@/K@@@R?8K@@KAC@@@@)@W[F][CKGK<)CLP@K<*@@@@C1J@@@'^@@@,OI )@@G@@AA0@@@O'0@@]OE;@@@RA0@@@M#!)@@C@)@@@C@K@@@AD@@@@)@>[E[@^DQCLH]B)@@@@@@@@OJ )@@G@@/K@@@@ @@@@@ 0G@@#'=@@@@0@G@@#/K@@@?%1W@@#?9@@@)C9K@@(AE@@@@)@@@G@)@,@'KOK )@@G@@E^-K<%^X@@@@0@J@@@C1J@@@C@@@@@C@0@@@[[@@@@C[@@@@/K@@@@() AF@@@@OL )@@G@@)@5[N@^@K[@^C6@@@@:9@@@=/K@@@@R;@@@@/K@@[N?9@@@)/K@@[E:9@@@-/K@@[H:9@@@=OM )@@G@@/K@@@"AG@@@@)@_[N@^@K])C[K@@@@N8K@] C9K@]=/K@@[JN8K@[LC9K@]X/K@@@/%9@@@-ON )@@G@@/K@@[B:9@@@>/K@@[BAH@@@@)[D[F@E@) @K+2^LK+8@@@@@^^K@@@^^K@@@[ K@@@N8K@] OO )@@G@@C9K@]R/K@@[JN8K@[LC9K@]J/K@@[JAI@@@@)[M[N@KOC/C@)]@@@@%8K@@#/K@@[>:8K@@^OP )@@G@@/@K@[>C0W@@C/[@@[YC[G@@D[[@@@@C[@@@]/K@K@,AJ@@@@)[W[N@K^CI-CK[@E@@C9K@]?OQ )@@G@@/K@@[R^CW@@DN8K@#)^^W@@^^^W@@DC@@@@@'^@@@@/K@@[:/K@@][AK@@@@)[&[M@K@[@@@OR )@@G@@@@@@@@/K@@[/:8K@@[[1G@@EC9@@@_C4W@@C/K@@[JN8K@] ^G@@G^0W@@CN8K@@^AL@@@@OS )@@G@@)[0[N]#CM^K@@@@@@@^CW@@DN8K@#) ^G@@C^^W@@D[4W@@CC8K@@[/K@@[/(@@@[[C@@@@@OT )@@G@@'^@@@@AM@@@@)['[F]^*@-E1]EC]^%@@@@@@(?G@@C'^@@@@/K@@[7'^@@@@*4G@@#'=@@@@OU )@@G@@0@G@@#/K@@[>'^@@@@AN@@@@)]#[N]@]^@@[]]@@@@[1G@@#C[I@@@[1W@@E:8)@@[C9K@@_OV )@@G@@C0?@@C ?G@@C'^@@@@*4G@@C'^@@@@AO@@@@)]H[F]^*@)*MT@K-M^TK+@@@[[K@@@C[K@@@OW )@@G@@'^@@@@C^K@]J'=@@@@R#@@@#/K@@@@/K@@[>'^@@@@AP@@@@)]Q[E^CS-C4DC)C@-CK@@@@@OX )@@G@@C@@@@@/K@@@@/K@@]NC^K@]R'=@@@@C@@@@@'^@@@@/K@@@@/KH@@@AQ@@@@)]Z[F[^D^)C@OY )@@G@@-#^D]-C0@@@@C[@@@@C@@@@@'^@@@@/K@@@@/K@@]NC^K@]X'=@@@@[[G@@@C[@@@#AR@@@@OZ )@@G@@)]*[EK=%@)]^FK='^$K=8@@@A])@@]A]K@@[A]@@@@'^@@@@/K@@@@/K@@]NC^K@]='=@@@@PA )@@G@@[[G@@@AS@@@@)]1[V]K)@))@AAW@@GO'K@@[AAW@@ERAW@@GR]@@@^[0/@@E[??@@EC0?@@EPB )@@G@@[@0@[[ 4G@@EC@@@@@AT@@@@)]/[E[@K^[]N*MX]N)@@@@@@R])@@]R]K@@[R]@@@@C^K@]?PC )@@G@@8KK@#A'^@@#CR]?@@E[*?@@EC8)@@CAU@@@@)# [N@K+M@CCC]^[@@C8K@#)'^@@@@/K@@#UPD )@@G@@?CW@@DC^W@@C^@K@@[/S@@@@/K@@]_R]*)@@/K@@]NAV@@@@)#J[M^[]#]@CM?K+)@'^@@@@PE )@@G@@*4G@@#'=@@@@0@G@@#/K@@#-*@@@[['^@@@@/K@@#T*4G@@C[CW@@DAW@@@@)#T[U@[[K@@@PF )@@G@@^^W@@D[4W@@CC8K@@[/K@K#CN@K@@[[^W@@CG8K@@[A],@@@K^W@@DC^W@@C ^G@@CAX@@@@PG )@@G@@)#=[F@K>E^X^@K>S- @@@@@@'^@@@@*4G@@#'=@@@@0@G@@#/K@@#2(4G@@CC^J@@@C@0@@@PH )@@G@@/K@@#TAY@@@@)#![]K-@]@-B=D@@@@@@@[@@@@@@@@/K@@@@[[@@@@C[@@#C[ G@@^C G@@DPI )@@G@@ 4G@@C'^@@@@C G@@^AZ@@@@)@]@X@ELC@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PJ )@@G@@@@@@@@@@@@@@@@[@@@@@I@@@/K@@#>BA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@#@@B@@?@[Z@@^@[\@@@PL )@@G@@@@B@@@@@@@#5@@@@@ BS1BL$ DRAIN$ FHS10$ FHS20$ FNCTB$PM )@@G@@ IOCOD$ NBFGT$ NBFMG$ NBFRL$ NBFRS$ NBLNK$PN )@@G@@ NCALC$ NCCC$ NERU$ NFCHK$ NFMT$ NFPC$ PO )@@G@@ NFRA$ NFRJ$ NFRZ$ NIOER$ NIO1$ NKLN$ PP )@@G@@ NOLM$ NRGB$ NRM92$ NR91$ NSYMR$ NS11$ PQ )@@G@@ NTAB$ NTEND$ NTST0$ NTST1$ PACKT$ PNCHA$PR )@@G@@ PPP$ PRINT$ PRNTA$ PUNCH$ TEMP$ TFLG$ PS )@@G@@ UNIT$ UPDDA$ WAIT$ NOTI1$ @@[@@@@@@@@,NWDT$ PT )@@G@@ @@[@@@@@@@@@NWDU$ @@[@@@@@@@@CUWWRU$ @@[@@@@@@@@]E@@@@-PU )@@G@@)@@[MKO[[KK@@@@@@@/S@@@@/S@@@@/S@@@@/S@@@@'=@@@IR#@@@^A#@@@#/K@@@A:@@@@#PV )@@G@@R#FK@@AA@@@@)@E[UK[[@@KK9?@@@@'=@@[[ @@@@G'=@@@5R#@@@H)8@@)@'=@@@69*@@@@PW )@@G@@'=@@@D(^@@@A/S@@@@AB@@@@)@P@V@K@@@@@)@]@W]+@@@@@)@S@F@@@@@@@/KIK@S@#]@@]PX )@@G@@ STOP '=@@@)'^@@P*(@@@@ AC@@@@)@:[MKM+]])]]))@@@CCK@C)C^0@C)/K@@@@PY )@@G@@/K@K@: @@@@OM#\)@@N8K@@QR;0@@#R#)@@P/K@@@@AD@@@@)@5[M]+)*E])@))@@@C4K@C-PZ )@@G@@R;)@[@/K@@@@/K@K@2[C0@C7R#0@@O?@0@@OP;0@C-G80@@[%8K@@ AE@@@@)@_[M@[[KL[@QA )@@G@@@@@@@@[4K@C-C8K@@ AF)@@ O\)@@ R;)@@@:8K@@+R;)__@:8K@@1R;)@]@:8K@@0AF@@@@QB )@@G@@)[D[F@K^[@K^[@K^@@@@@@@@/K@@B=/K@@]0/K@@[)/K@@]+/K@@#B/K@@ X/K@@#I/K@@#IQC )@@G@@/K@K@/AG@@@@)[M[N@K[[KM+)C]@@@O;0@@[8#K@[Y')H@KC/K@K[O!80@C7RB0@C)RFK@C)QD )@@G@@/K@@@@/K@@B;/K@@B7AH@@@@)[W[MKO @KL@K^ [@@C K@]3A#0@@O'^@@@2/K@@[4%9K@@TQE )@@G@@[[K@@L/K@K[OAFK@C)AB0@C)R;K@@ AI@@@@)[&[U^^@[[KK[[@@C)G @@C'; @@@MG9K@@ QF )@@G@@D[K@@L;[@@@MW9@@@AC9@@@@[DK@];H9K@@[*@@@@LAJ@@@@)[1[N[K^[@KL@EE]@@C@,@@@QG )@@G@@C^)@B,C9K@@J/K@@][%9K@@LC[K@@L'^@@L[/K@@[<'^@@L[ C@@]8AK@@@@)[;[M]+)+@CEQH )@@G@@]))@@@?[K@@IC K@]3[[K@@IC9K@@B/K@@]]C9K@@][ K@B,C9K@@K(@@@@J+8)@@[AL@@@@QI )@@G@@)] [N@KL@K^^KL[@@@C[@@@LC@,@@@C^)@B,H9K@@[C[K@@I8^K@]B'^@@[OR;)@@ H[K@@IQJ )@@G@@/K@@]GAM@@@@)]J[MK^[@^[[^[@@@@/K@@[4/K@@#B:8)@@^R7)@]28^K@]M;@)@@Y'^@@[OQK )@@G@@/K@@]N/K@@]T:9@@@RAN@@@@)]T[M[@^[[^[@@@@@@'^@@L[/K@@#B:8K@@^R7K@]2'^@@ARQL )@@G@@D[@@@K/K@@]N;@!@@@T8K@@AC@K@@LAO@@@@)]<[N[^@KO [K^@@@@?@Y@@@/ @@],/H@@]XQM )@@G@@H @@]3[ @@B-RB)@B,D8K@@['^@@R:E@X@@@C^K@B,AP@@@@)]![N@K^[@KL@[@@@@'^@@[OQN )@@G@@R;)@@ H9K@@H/K@@]9?9K@@HC K@]3'^@@L[/K@@]Z'^@@BX/K@@]XAQ@@@@)]7[V@@KK@@@QO )@@G@@;G)@@=;[@@@-R#)@@KH9K@@[;[H@@@C[I@@@C^)@B,T@K@@LR;K@@#C9K@@G8^K@]5AR@@@@QP )@@G@@)#][M^[@K^[[^@@@@@:8K@@ /K@@]<:8K@@[R3K@B,'^@@L[/K@@]08^K@]_'^@@[O;^)@[ QQ )@@G@@R;)@@AAS@@@@)#G[N@K^[[KO@KK@@@ @@@@IH9K@@^HDK@]3C9K@@@/HK@#N] K@B-DHK@];QR )@@G@@'^@@L[/K@@#J/K@@[8AT@@@@)#Q[N[@K^^[[@@@@@@G K@]3H[K@@IR;)@@[:8K@@#R3K@B,QS )@@G@@/K@@#Y%8K@@^R;)@@[:8K@@[R7K@]2AU@@@@)#)[N@KL@KO [K^[[@[ K@@G/[K@^G/HK@^GQT )@@G@@GHK@];CDK@]3[DK@@G/[K@^G0@H@@@C^K@B,/HK@^GAV@@@@)#%[F@KO[[K^ [KO@@@@@@@@QU )@@G@@/@)@#4#^)@B[MK^^K^^K[@@@@@980@ RRB )@@G@@94"@@@/K@@^0%8K@@#R3K@B,/K@@ D:8K@@#R3K@B,/K@@^%%8K@@^BC@@@@)^\[N@^@K^ [RC )@@G@@K^[@@@/K@@ K/K@@ G/KG@^5R7@@]29*0@@M/,0@R4"80@@J/@0@ RE@"@@@/K@@^3BD@@@@RD )@@G@@)^9[N[K^[[K^ [KO^@P;0@@#A#0@@ER#0@]3GD@@]3DH@@B/H@@A@BI@@@@) %[N@KKKO @RJ )@@G@@KL@@@@/[@@BV0@I@@@C^)@B,/H@@BVG @@]3HD@@]3H9@@@[D9@@@@[ @@B-/K@@ !BJ@@@@RK )@@G@@) 4[N@KL@K^ [[@@@@'^@@[OC9K@@]R;)@@ [[@@]3C[@@@E/K@@ X/K@@ 9:9@@@^C5@@]2RL )@@G@@'^@@AIBK@@@@) "[N@KB=K[[KO[[@@DH@@B@K@@Q/K@@A0:80@@#/K@@A2:80@@[R30@B,/K@@A2:80@@ BP@@@@RR )@@G@@)A0[N[K[@KO[@K^[@@/K@KAU'^@@BB/K@@A/(^@@AU/H@@BMCH@@B-'^@@[OC8)@@-/K@@A3RS )@@G@@>@K@@RBQ@@@@)A'[MK[@KO^^[@@@@@8#@@A"'^@@[OO;)@@0R;)@@@!@@@@SR#?@BH/K@@B#RT )@@G@@R#@@@K ^@@AR/K@@@@BR@@@@)B^[N@K^@KO[[KK@@@O;)@@0R;)@@@!@@@@TR#?)BH/K@@BJRU )@@G@@R#@@BE/K@@@@/K@KA'/K@KAR*^@@ARBS@@@@)BI[N@K^ @^^K[@@@@/K@@BTR;)@@0'^@@[ORV )@@G@@R;)@@.GD@@]3D@@@@K/K@KBBAB@@BE8^@@BE'^@@[OBT@@@@)BS[N@K^[@K[[^[@@@'^@@[ORW )@@G@@/K@@B+R;)@@*C K@]3/K@@@@/K@@ 5'^@@BX/K@KAU8#@@BS'^@@[OBU@@@@)B+[N@K[@K[@RX )@@G@@K^[[@@R#K@]1/K@@B&'^@@[O/K@@B::8)@@'/,0@J9/K@@B3%8)@@'/K@KBX8^K@B-BV@@@@RY )@@G@@)B?[N[K[@KO @K^[@@8^K@B3'^@@[O/,0@J9/K@@E;A#K@]1R#K@@L/K@@B(:8)@@'/,0@J9RZ )@@G@@A#K@@LBW@@@@)B6[#@^[@K]+)*@@@@@@@[@@@@@@@@/K@@ER[ K@]\C9K@@A/K@@E;8^K@B8SA )@@G@@'^@@[OR;)@@ /K@@E;BX@@@@)@ [W*)O])@@T @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SB )@@G@@@@[@@T@@[@[E3.5) (1P6G1@@Q@C-BY@@@@)@K[O@]+@@@@@@@@@@@@[@@P@@[@@O)@)@@@SC )@@G@@)^@@@@@@[@C-@@@@@@@@@@@@@@@@@@@@@@@@F BZ@@@@)B"[MKO [K[[K[[@@@R#)@[ISD )@@G@@+8)@@J/K@@CO*4@@[H/K@@@@/K@KB" @@@[E @@@[I @@@[H/K@@@@CA@@@@)CC[M^ [KO@KSE )@@G@@O [@@@R#0@[I 4@@[IO7)@[IT8)@@E/@)@C#(4@@[IR#)@[HA#0@[IO#0@@IT8)@@ECB@@@@SF )@@G@@)CM[N[K^^KO @^ @@@'^@@C$9!@@[H/K@@@@/K@KC#9?)@[HA#)@[EO;)@@[R#)@[E/K@KC#SG )@@G@@A#)@[HCC@@@@)CW[N@^ @K[@^ @@@@'^@@C$9!@@[F/K@@@@/K@KCXC9K@@[/ K@CX'^@@C$SH )@@G@@9!@@[H/K@@@@/K@KCTCD@@@@)C&[N@^@K@K^@*@@@@:8)@C)RB)@C$/K@KC$;H@@@A;(K@@ASI )@@G@@/K@@C,!9@@@)/[@@C$/K@@@@/K@KCD)M '1>J3KL$N,L=2ZFDSX )@@G@@1U1+@@L#:R<:@@@@@@K+>KF9@@@@@@KY;&?*@@@@@@CR@@@@)@8[W@@@@@@@PH==5(MO:II&SY )@@G@@O:"5-8<8ZU"@OE5"X'!,899#N(,RRQD-YUC=NC$4/$E_G=3LM$+H-6CS@@@@)[#@?@@@@@@@SZ )@@G@@)EP@<[KO [@@ @@@]2 @@@B! 0@@B, 4@@B,K@I?7NZ>\2B=\:?M4RUT(3[F@K^[@K^[@K^@@@@@@@@/KG@GA/KG@GA/KG@G3/KG@GATK )@@G@@/KG@GA/KG@GA/KG@GA/KG@GA/KG@GADC@@@@)F,[F@K^[@K^[@K^@@@@@@@@/KG@G7/KG@G7TL )@@G@@/KG@G7/KG@G7/KG@G7/KG@GA/KG@HB/KG@GA/KG@GADD@@@@)F7[F@K^[@K^[@K^@@@@@@@@TM )@@G@@/KG@G_/KG@G;/KG@GA/KG@HF/KG@G7/KG@G7/KG@G7/KG@G7/KG@G7DE@@@@)G@[N@K^^^[@TN )@@G@@K^[@@@/K@@@%/K@@HJ/K@@HJ/K@@HJ/KG@GIR;)@@A%8@@@#A#)@]!/KG@GA/KG@GADF@@@@TO )@@G@@)GE[F@K^[@K^[@K^@@@@@@@@/K@@H+/K@@@%/K@@H9/K@@H!/K@@H+/K@@@[F@K^[@K^[@K^@@@@@@@@/K@@J+/K@@I8TS )@@G@@/K@@I9/K@@@%/K@@I)/K@@IX/K@@IT/K@@@%/K@@IRDJ@@@@)G,[F@K^[@K^[@K^@@@@@@@@TT )@@G@@/K@@@%/K@@I6/K@@I3/K@@I+/K@@@>/K@@HJ/K@@HJ/K@@J=/K@@@%DK@@@@)G7[F@K^[@K^TU )@@G@@[@K^@@@@@@@@/K@@HJ/K@@@%/K@@J(/K@@J$/K@@JG/K@@@*/K@@H"/K@@H"/K@@H"DL@@@@TV )@@G@@)H@[F@K^[@K^[@K^@@@@@@@@/K@@HU/K@@E;/K@@@=/K@@HW/K@@HU/K@@E;/K@@@&/K@@HJTW )@@G@@/K@@J:DM@@@@)HD[N@K^[@K^[[^ [@RBK@]\A7K@B(R;K@@[A3)@B(/K@@@%/K@@IH/K@@IETX )@@G@@/K@@IF/K@@@(/K@@HWDN@@@@)HN[N[^^K^ @K^[@@@'^@@J3/K@@E;/,0@J\/K@@F@ 0@@B'TY )@@G@@'^@@MB @@@@HA\K@B(R;K@@ ABK@B(DO@@@@)HX[N@^@K@KO[[@@@@[DK@]8'^@@CXA70@]2TZ )@@G@@;C0@@-;G)@@#/K@@H=R;0@@B/K@@H=R;0@@ /K@@E;DP@@@@)H$[MK[@^@^ @@@@@@/,0@J\UA )@@G@@A30@]2;C0@@-;G)@@#/K@@H\R;0@@B/K@@H\R;0@@ /K@@E"R;@@@[DQ@@@@)H1[N[KL@^@KUB )@@G@@@@@@@@;C0@@-;G)@@#/K@@H;R;0@@B/K@@H;R;0@@ /K@@H&C9K@@[A70@]2R30@]2DR@@@@UC )@@G@@)H;[N[K^[@K^[@[@@@/K@@@)R;)@@HH9K@@[/,0@L+'^@@CX/K@@F@'^@@C#/K@@H1'^@@J3UD )@@G@@A30@]2DS@@@@)I [N@^[@K^@K^[@@@/K@@IF'^@@J3/K@@@)R;)@@'/,0@J\/K@@IA'^@@J3UE )@@G@@/K@@I[C9K@@[/,0@J\DT@@@@)IJ[N[KL[K^@K^[@@@/K@@IP'^@@J3/K@@IMC9K@@[/,0@J\UF )@@G@@/K@@E;[ K@];D[K@@L**@@]2C[K@[IDU@@@@)IT[N@K[@K[@K^[@@@'^@@CX/K@@IY'^@@J3UG )@@G@@/K@@IUC9K@@[/,0@J\/K@@@-H9K@@[/,0@L+'^@@CXDV@@@@)I<[N[[[^ [^^@@@@@!8)@@]UH )@@G@@A$)@]2O;)@@[[ Y@]7A#"@]5H9K@@[R#0@]1R;)@@[!8)@@]R$)@]2DW@@@@)I![N@KO [KOUI )@@G@@[@^[@@'^@@J3/K@@I^*>^@@@[@#[@@[@#[VB )@@G@@@@[@#[@@C@[_AGE. ING IMFOLLOW * IN KED BYEN@@@@)['[O*>^*>^*)@@@@@ TYPE VC )@@G@@FORMATE AND AL TYPINTERN@@ @]P@@[@#[@@A@]J@@^@]F@@^@]BEO@@@@)]^[W@@@@@@@VD )@@G@@PUT. GER INL INTEILLEGAT. L INPUL OCTAILLEGAIBLE. COMPATARE INEP@@@@VE )@@G@@)]J[W@@@@@@@UT. IN INPACTER L CHARILLEGAUT. ER INP INTEGITS INNY DIGVF )@@G@@TOO MAEQ@@@@)]U[W*>^@@@@S. BLANKTED AS ACCEPS WERERACTERAT CHAL FORMVG )@@G@@ILLEGA@[C@]>@[D@]WER@@@@)]>[^@@@@@@@)L[@E@@@@@@@/K@J__Y. FAULTTH AREVH )@@G@@M LENGMAXIMUEDING S EXCERECORDES@@@@)L][N[K[[KO[[KO[[@'^@@B1/K@@LG @@@B!VI )@@G@@[@)@B,/@)@LFC@)@B!AF)@]8P;)@@[/@)KJ3RF)@]8ET@@@@)LG[N[^ [KO @KL[@@A7)@B(VJ )@@G@@R;)@@]AF)@];/K@@L)?@)@]'OB)@]3RF)@];AB)@]0P;)@@[R3)@B,EU@@@@)LQ[N[KL[EE]VK )@@G@@C]]))@ ?@@B'RF)@];'^@@MB @@@@HAB)@B(R;)@CEA3)@B(;C)@@AA\)@B(RB)@]'EV@@@@VL )@@G@@)L)@3[K^^KK@)]!@W@@@@@@@@@ @@@ @@@@@@/KF@@@[D@@];G[@@@LCD@@];/K@KL[VM )@@G@@AF)@];EW@@@@)]0@G@)]9@G@)]/@4EDLEDL@@@@@@@??????@[Q@[)@@[@[)@[Q@CE@]D@[RVN )@@G@@() NBMSG$@@@@@@EX@@@@)L&[MKO^KKKK@@@@@@;?K@@#R;K@@AA7K@#,O;K@@0;GK@@#VO )@@G@@AFK@B(C4W@@#9*K@#]AB@@B(/K@@@@EY@@@@)L0[N[[@[[^ @@@@@@'^@@MB[4)@B(C8)@@#VP )@@G@@R#H@#^ @@@@H!8K@@ /K@@L_:8K@@ R7W@@#A3K@#,EZ@@@@)L'[MKO[[K[@[[@@@@9?K@#]VQ )@@G@@ 4G@@#AFW@@^/@K@L6RBW@@#/K@@L7C@@@#D/K@@O'9?K@#]'=@@@IFA@@@@)M^[N@KO@KKKVR )@@G@@[@@@@@/K@KMB:9K@@[/[KKMBC!V@@@&'0@@[RA0@B%/K@@@@/K@@L6 @@@B(/K@@L&FB@@@@VS )@@G@@)MI[MK@^@^@@@@@@@@!8K@@^/@K@MWC^;)@[CC:@@[/K@KMB?9K@@@H9K@@[H9K@@[/[@@MIVT )@@G@@CDF)@[FC@@@@)MS[N@^@^@KO [@@@@R#W@#.A#K@#2R#W@#;/KJ@@@/K@@ML%8)@@#/KJ@@@VU )@@G@@/K@@ML%8)@@]/K@@MWFD@@@@)M+@<[KL@@@@)#^@=*>^*>^@@@@@@@@_F@#E@_D@#P@_F@#EVV )@@G@@@_D@#&/K@@O''=@@@IR#@@#_A#K@#8FE@@@@)#C[W*>^@@@@AN END PAST O READEMPT TVW )@@G@@AN ATTED BY RMINATION TEEXECUT@_#@#\@_C@#YFF@@@@)#N[W@@@@@@@F-TAPE END-OVX )@@G@@O PASSEMPT TAN ATTED BY RMINATION TEEXECUTLE. -OF-FIFG@@@@)#Y[W@@@@@@@VY )@@G@@ CONDIAL I/OABNORMC TAPEAGNETIFROM M READ CK WASAL BLOINTEGRA NON FH@@@@VZ )@@G@@)#([W@@@@@@@ SYMBIOUTPUTE UNITOPRIATINAPPR-- ODE = ATUS CD - STETECTEWA )@@G@@TION DFI@@@@)#4[W@@@@@@@ READ WRITEOUTPUT INPUTMENT. STATE READ D BY AWB )@@G@@ERENCEIT REFONT UNFJ@@@@)#_@G*)@@@@@)M&[#@@^@@@@RB,@@@P;)K@@/K@@M,?8)K@@WC )@@G@@RB!@@@L8@@@[R;F@@@'^@@PZ__D@#2FK@@@@)M,[U@^@K[@@P#K@@G/K@@M4:8)/K@/K@@M2WD )@@G@@O;K@@[/^)@M6RF!@@@R#K@@GN@"@@@RB,@@@P;)@@[FL@@@@)M9[N@K^[@^[[KO^@@RFX@@@WE )@@G@@^@0@^P^@0@^MA#K@^DOBKKM;R;V@@@'^@@PZ/K@@M&/K@@M.ABK@M&FM@@@@)N#[N[@K^ [KWF )@@G@@L@@@@@/K@@NZ0@H@@@9!@@^ERBK@^DA#@@^V'^@@Q(N80@#CR#@@@H'=@@@IR#@@ ]FN@@@@WG )@@G@@)NH[MK@^ [^ [@@@@@R#@@ #A#@@^XR#G@@@9(@@^S9!@@^G?80@[@RF/@@[RBH@@@/K@@N'WH )@@G@@(^H@@@FO@@@@)NR[MKO [^[[K^ [@@9(@@^S9!@@^G/K@@NBA#K@^D'^@@N^*)MAIN P@@@/K@@]B@^P@]D@^PXF )@@G@@@]B@^IGATIVE NE RANGEOUT OF ED IN GJ@@@@) B@/*>^*>^@)P\@N@@@@@@@XG )@@G@@'=@@[[C@@@P2RETN KRETN 0 I/O@]C@^6@]B@^\@]H@^Z@]E@^PGK@@@@)P1[ME@)*]@]XH )@@G@@@)@@@@/K@@Q^/K@@Q[/K@@@@/K@@@@/KG@P6R\@@P2A#@@ T@@@@@@EW@@P2/KF@@[GL@@@@XI )@@G@@)P;[N@[@^[[K^ @@@@RB@@P2AB@@ V/K@@Q^AF@@ V/K@@QO/K@@@@/K@@QG/K@@@@/K@@@@XJ )@@G@@/K@@Q#GM@@@@)Q [M@[[KO[@@@@@@@RB@@P2/K@@Q1(@@@ U @@@ T(@@@@G @G@@H @G@@GXK )@@G@@;C@@@);*@@@ER#G@@@GN@@@@)QJ[MK^^K^ [KO@@@@;C@@@ARF@@P2A#)@ M9*@@ KR#@@ TXL )@@G@@/K@@QN'=@@[@R#@@ TAB@@QNO;@@@[GO@@@@)QT[N@KL[^ [^[@@@@'^@@Q(RB@@P2'=@@@IXM )@@G@@C@@@B A7@@A1;C@@@AA\@@A2;C@@@AA:@@A2'^@@Q(GP@@@@)Q<[N[KL[KO@@@@@@@Q;K@@AXN )@@G@@R;)@@ ;G@@@M/K@@@@'^@@@AR#)@ M9?@@ K'=@@@IC@@@BAA#@@B@GQ@@@@)Q![M^[@KO [XO )@@G@@KO [@@^@K@ Q9(@@ O9*)@ M9*@@ KA]0@ JR#@@ T/K@KQ(8#)@Q?;?@@@A;@K@@#GR@@@@XP )@@G@@)Q7[N[KL[K^[@^ [@@A#H@ VO#H@ V'=@@[@R\K@P2ABK@RIK^@@P2A7@@ UR;@@@[^@0@ SXQ )@@G@@^@)@ RGS@@@@)R[[F[KK/S[^ [KO^@@@@@@@9!@@ O9?)@ M9?@@ KR]0@ J@[Q@@@@@@@ IXR )@@G@@/,"@@@RB!@ 6A#@@ IGT@@@@)RE[N[KO [K[[KO@@@;*K@@]/K@@RV0@H@ =!@H@ =P;@@@[XS )@@G@@/K@@RI 4@@ UN@0@ SN@)@ RN@K@ QGU@@@@)RO[N[[[^ @KL[@@@@R#H@ !/KF@@](@H@ !XT )@@G@@/K@@Q-R]0@ J'=@@@IC@@@BB'=@@@I&;@__^R;H@AAGV@@@@)RY[MKL[KO [K^[[@@A#@@B@XU )@@G@@'^@@Q(RB@@P29(@@A79*)@A59!H@AC9?!@AA;*K@@]A#H@ !P;@@@[GW@@@@)R*@V[@@@@@@XV )@@G@@) U@4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@]'=@@@IC@@@BCGX@@@@XW )@@G@@) )[W@@@@@@@@@@@@@@@@@@@_____"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XX )@@G@@@@@@@@GY@@@@) :[W@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@[@@@@@@@@@@@[@@@@@@@@@@@@XY )@@G@@@@@@@@@@@@@@@@@@@@GZ@@@@) 6[O@* @*@O@@@@@@@@@@@@@@@@RJ@@@@@@@@@@@@@@@@RJXZ )@@G@@@@@@RJ@@@@RJ@@@@@@@@@@@@@@@@@@HA@@@@)A@[W@@@@@@@ILLEGAERR$ TS RBK YA )@@G@@ABORT RESTRTDIVZROUFLO OFLO IGDM IOPR HB@@@@)AF[W@@@@@@@RFLOW NT OVEYB )@@G@@NG POIFLOATION IOLATIMODE VGUARD CODE ATION L OPERHC@@@@)AQ[W@@@@@@@YC )@@G@@ART M RESTPROGRAERFLOWENT OV QUOTIDIVIDEERFLOWNT UNDNG POIFLOATIHD@@@@YD )@@G@@)A-[W@@@@@@@ND SETTEST A RRUPT E INTECONSOL T M ABORPROGRAYE )@@G@@ HE@@@@)A?[W@@@@@@@XXXXXXXXXXXX************E XX X, COD TYPE MODE: YF )@@G@@ERROR RUPT INTERHF@@@@)A7[W@@@@@@@ERROR XXXXXXATION AT LOCECTED OR DETYG )@@G@@ ERR************XXXXXXXXXXXXHG@@@@)B]@/@*>^*>^)R:@MKK@@@@@C@@@B=/K@@@@YH )@@G@@@[I@A3@]^@B[@#A@A;__ @A,D REACHELIMIT HH@@@@)R![M^ @KO @KO @@@")0@SSYI )@@G@@>@@@B> ^@@B;C)@@[[@W)BHC@0@@K9)K@BF[@0@BGHO@@@@)S5[N[^^[[K[YQ )@@G@@[@@@@@[@K@BGC8K@@[8#@@S5[@W@BHH8K@@E/KF@@@?8K@@E[@W@BHG8K@@[C@W@BHHP@@@@YR )@@G@@)S_[#[KO^KL[@@@@@@)BD@G@NL[HPM/KF@@@[^K@BEC8K@@O[ K@B+/KF@@@[^@@BE[^K@B[[K@C G9K@@[YZ )@@G@@:9@@@#HW@@@@)B2[OKO[[^ [KK@@@@/K@@@@ /K@KB1 4@@B,AB@@B,O;@@@[RB@@B,ZA )@@G@@/K@@TT(4@@B,/S@@@@HX@@@@)B/@>[KO[[@@)C'@W*)@@@@@@@@@@@@@@@@@C/@@@@@@J___ZB )@@G@@@@ @C-/K@KB;'^@@O'A#K@B'R#K@@#HY@@@@@@@@@@KK/S[^ [KO^@@@@@@@9!@@ O9?)@ MZC )@@G@@9?@@ KR]0@ J@[Q@@@@@@@ I/,"@@@RB!@ 6A#@@ IGT@@@@@@^@@#@@B@@]@@F@['@B3@@@ZD )@@G@@@@#@@@@@@@T5@@@@C.PLPRT$ PLRD$ BYPAS$ @@]@@@@@@@ UCLAUS$ZE )@@G@@ @@[@@@@@@@MBEXIT @@[@@@@@@@@AFHS10$ @@]@@@@@@@@CFHS20$ZF )@@G@@ @@]@@@@@@@@DFIELD$ @@[@@@@@@@Q(HDTBL$ @@]@@@@@@@[@IOCOD$ZG )@@G@@ @@]@@@@@@@CBNAMF$ @@]@@@@@@@A@NBI$ @@[@@@@@@@R:NBLNK$ZH )@@G@@ @@[@@@@@@@@:NBMSG$ @@]@@@@@@@]9NCALC$ @@[@@@@@@@@2NCCC$ ZI )@@G@@ @@[@@@@@@@@/NCDOF$ @@]@@@@@@@ VNCNV9$ @@]@@@@@@@[JNDBCV$ZJ )@@G@@ @@[@@@@@@@C#NDBIN$ @@]@@@@@@@[HNDBI$ @@[@@@@@@@B"NDBLT$ZK )@@G@@ @@]@@@@@@@]0NDBSF$ @@]@@@@@@@[ENDIAG$ @@[@@@@@@@KRNDIG$ ZL )@@G@@ @@]@@@@@@@BHNDOUT$ @@[@@@@@@@SUNDVZRO @@[@@@@@@@RJNERR$ ZM )@@G@@ @@[@@@@@@@M;NERR2$ @@[@@@@@@@O]NERR3$ @@[@@@@@@@OONERR4$ZN )@@G@@ @@[@@@@@@@OVNERR5$ @@[@@@@@@@O)NERR6$ @@[@@@@@@@P#NERU$ ZO )@@G@@ @@[@@@@@@@L.NFAR$ @@[@@@@@@@L[NFCA$ @@[@@@@@@@CTNFCI$ ZP )@@G@@ @@[@@@@@@@CNFMTR$ZS )@@G@@ @@[@@@@@@@C0NFMT$ @@[@@@@@@@EPNFM96$ @@]@@@@@@@]8NFNS1$ZT )@@G@@ @@]@@@@@@@B-NFNS2$ @@]@@@@@@@B+NFNS3$ @@]@@@@@@@BTDTBL$ @@]@@@@@@@@,TEMP$ @@]@@@@@@@C7TFLG$ AR )@@G@@ @@]@@@@@@@CCUDTBL$ @@]@@@@@@@@WUNIT$ @@]@@@@@@@CAWRDCT$AS )@@G@@ @@]@@@@@@@C PFILE 07209+HFGJGAG*TT@+J@@@[F)@ @O@)@C@G@)@I@G@)@K@O@AT )@@G@@)@R@O@@@L@@J@@L@@LT, F, (((((( $$END AA@@@@)@T@W@)@@@3]AU )@@G@@@D]@H]@K@@@@C@_@@@C^;@@@NC;@@@[^0@@@C^0@@@AA0@@@@@#@@H@@+@@I@@+@@PAB@@@@AV )@@G@@)@A[EK) ^C[=C[4@@@@@@@@@O'.@@]C@K@[# ^G@@G/K@@@M'^@@@@[[@@@@C9@@@^[[@@@@AW )@@G@@C F@@[AC@@@@)@J[F]@-]@>@^C@^[]@T@@@@C9@@@-/K@@@H[[@@@@/K@@@R%1J@@@C9@@@=AX )@@G@@/K@@#''^@@@@AA0@@@AD@@@@)@S[F]@[]@(]@T@^[[^@@@@@:)K@@?R;)@@BR[MKL@KO[@KO [@@[[@@@YBH )@@G@@A#@@@XA]0@@W/K@@[N/K@K[]![@@@B/K@@[?!80@[L[[@@@)G9@@@[AM@@@@)[\[F@KO^(@CBI )@@G@@CE@-@U-@U@@@C1V@@@C5V@@@/K@@[(C[@@@YR;)@@]R;K@@@R#@@@XR]0@@W'^@@#QAN@@@@BJ )@@G@@)[8[F]@5]@5]@5]@4@@@@@@@[>X@@@[(X@@@[!X@@@[1X@@@[5X@@@C-V@@@C>V@@@C(V@@@BK )@@G@@C!V@@@AO@@@@)][[M^ [^[[K^ @@@@/K@@] OFF@@R/K@@]F!^@@@@/K@@]H!8@@[GRBF@@RBL )@@G@@RA0@@F/K@@@@[-X@@@AP@@@@)]F[F[K^[]@ @KO [K@@@@@@/K@K]]A#@@@[RBF@@RRA0@@FBM )@@G@@'^@@@!'^@@@@'^@@@;/K@K]]A#@@@[AQ@@@@)]O[MKL]@8K)JK^@KK940@@P/K@@@@/K@K]OBN )@@G@@'^@@]'^@@CWR;)@@ '^@@CWR;)@@,/@K@^VA#K@@JAZ@@@@BX )@@G@@)#%[N]@O[[[[^^@@@@AB)@@GRB?@@[A#K@@HOFW@@[RBW@@@O#@@@#O;@@@[;@@@@T@@@[(T@@@[!T@@@[1T@@@[5T@@@AD@@@@DU )@@G@@)@@[F]@C@K)#^C[^C[K@@@@@'^@@@@[[@@@@C9@@@][[@@@@C F@@[C@_@@@C^;@@@NC;@@@DV )@@G@@AA0@@@AE@@@@)@D[F@K)@K)^@K)AK)BK@@@@/K@@@P'^@@@@AA0@@@O'.@@]C@K@[#[1G@@CDW )@@G@@C[@@@@C^J@@@/K@@@MAF@@@@)@M[EK)^K^ [KOC@1[@@@@@@[[K@@2G9K@@[C K@@@A])@@^DX )@@G@@A]K@@#A]@@@]/K@@@H[[@@@@C9@@@EAG@@@@)@V[F]@GKKK^C][]@)@@@@@@A7K@@@R;K@@DDY )@@G@@ @@@@@/K@@@%:9K$$$CDV@@@[[K@@CC V@@@RA0@@@AH@@@@)@=[F]@)K)DK^@**E^@U]@@@DZ )@@G@@C[@@@JRA0@@@ ^@@@D@_ @@E/K@@F)C@@@@('^@@@@ @@@@HAA0@@@AI@@@@)@![F@KM)O)EEA )@@G@@KL@^@@@@@@@@/K@@@.:9K@@ ')E)]PC9@@@#R])@[YR;@@@@R'K@[SC@K@[X[[@@[SAJ@@@@EB )@@G@@)@6[N[K^ @^ @K[@@@/K@@^=:[V@@[C[K@[S/K@@@2R])@[)O;@@@[8^@@@3')H)@(/K@@[FEC )@@G@@:@K@[ZAK@@@@)[@[F]@^(@OCE@CK^CK^@@@@ @@@@HAA)@@@[D@@@@C9@J /K@@[@%5K@@LED )@@G@@C1U@@@R')@@@'^@@@@AL@@@@)[D[F]@>@K)C^C]^C][]@>@@C@@@[N'^@@@@ @@@@HAB@@@@EE )@@G@@[4K@@@C8K@J @@@@@/K@@@%'^@@@@AM@@@@)[M[V@E@@@@@ 6 CHAE THANNS MORCONTAIEF )@@G@@@@@@@@AME LIST N- NAMEERROR @_F@[O/K@@F)AN@@@@)[X[M[@KO[@K[@@@@@'^@@]@EG )@@G@@/K@@@@/K@K[Z ^@@]/K@@[&%-K@@N/K@K[>:9K@@&/K@K[>:9K@@$AP@@@@EI )@@G@@)[1[N@K[@^[[^@@@@@:9K@@$/K@@^.:9K@@& @@@@A/K@@[0!9K@@A/K@@[7!9K@@)'^@@[ZEJ )@@G@@/K@K[,AQ@@@@)[;[N@^[[K[[^ [@@@C[@@@[[[K@@BG9K@@[C[K@@B/K@@@@/K@@[2[[K@@AEK )@@G@@/K@@[2%9K@@,/K@@^.AR@@@@)] [MKO^K^ [K)FK^^RBK@@['^@@]+![K@@@[[@@@[C[@@@[EL )@@G@@/K@@]W!9@@@BC @@@[[[@@@[G9@@@[AS@@@@)]J[N[EK C@)*@@@@@C!W@@@C1W@@@C5W@@@EM )@@G@@C5W@@@/K@K]@[[K@@@%9K@@ ')H@]PO;@@@@RF@@@[AT@@@@)]T[M@KO [KO@@@@@@/K@@@@EN )@@G@@/K@@]FC[@@@[[D@@@[GD@@@[[ @@@[C9@@@[C-W@@@C>W@@@C(W@@@AU@@@@)]<[MK[[K^C@EO )@@G@@L[KO@@/K@K]+[[K@@[[[K@@BC9K@@]'^@@@@/K@@]N%[K@@@C9K@@,/K@@]**8@@@@AV@@@@EP )@@G@@)]![M]+CC)*C)@@@@@/K@@#[:9K@@)')E@@:C[K@@@[[T@@@C[K@@JR')@@@R'K@@3R'@@@%EQ )@@G@@/K@@@@AW@@@@)]7[N@K[@KL@[@@@@@/K@@]1 @@@@EO'K@@[/K@@]3*@@@@HR#U@@:'^@@[ZER )@@G@@O')@@[/K@@ ^8]@@]9AX@@@@)#[[N[KM+)*]@@))@@[[K@@.GDX@@[C X@@@/K@@@@/K@K]!ES )@@G@@'^@@[ZA#K@@'H8K@@3R#K@@'AAK@@'AY@@@@)#F[MKL[KKKO@@@@@@MEMORY/K@K#B[-K@@/ET )@@G@@H9K@@[C1X@@@ @@@@/[-K@@;C5X@@@[[K@@"C X@@[AZ@@@@)#P[M@^C@4C][]@-[@RB@@@DEU )@@G@@A7@@@@R;@@@EAB@@@@RB@@@@/K@@@@OWS P FOLL - DUM ERRORBA@@@@)#Z[F]@)K)C^EV )@@G@@C]O[@E@@@@@@/K@@@@@_ @#O/K@@F)C@@@#&'^@@@@ @@@@HA3@@@@;C@@@AA\@@@@BB@@@@EW )@@G@@)#*[M^ @K)GECOO^@@ @@@@K @@@@_R')@[@R;K@@]R;@@@3'^@@@@8#@@#%A#W@@_R;K@@[EX )@@G@@R;@@@DBC@@@@)#2[N@^@K[@^@@@@@@:9K@@ /K@@^B:9K@@,/K@@^B:9K@@)/K@@#_!9K@@0EY )@@G@@/K@@#.!9K@@'')H@]PBD@@@@)#/[N@KO@K)H[@@@@@R;K@@[O;@@@[/K@@#2?8K@@BO;K@@[EZ )@@G@@'^@@@@R#)@@L/K@@ ^[[K@@@/K@@^[BE@@@@)^A[F@KOC#=C#4@^^@@@@@@@O')@@[C[K@@@FA )@@G@@[[U@@@C9K@@[/ K@^G'^@@@@'^@@@@[[K@@@/K@@#2BF@@@@)^J[N[^^K@K^[]@)@@ @@@@@FB )@@G@@/K@K#$/K@@^[%9K@@) @@@@K/K@K#$!9@@@C[[@@@_G9@@@[C[@@@_BG@@@@)^T[F]@H]@)KFC )@@G@@)C^C]O[@EC@@@_C@@O/K@@F)C@@@^-'^@@@@ @@@@HA7@@@@R;@@@FAB@@@@RB@@@@BH@@@@FD )@@G@@)^+@F@@@@@@@)^=@'K^ [KO@@@@@@@H8K@@A/K@@^??@K@[- @@@@[[^K@@B[^K@]/K@@^.:9K@@&/K@@^.FG )@@G@@:9K@@$C[K@@@'^@@[ZA#K@@ H8K@@]BK@@@@)^"[F][[[KO ]@SKO ]@)@@@A3K@@@A:K@@ @@@B$/K@@ ^?9K@@A/K@@ ^!9K@@)FM )@@G@@C[K@@@/K@@^.:9K@@&BP@@@@) ![N[EE])*]])+@@@:9@@@./K@@BP:9@@@,C[@@@@C[K@@@FN )@@G@@'^@@[Z')E@@:C[K@@@R'K@@K[[@@@KBQ@@@@) 7[N@^@K@K[[@@@@@*@E@@:O')@@[/K@@A#FO )@@G@@:9@@@];D@@@^/K@@ ^?9@@@A/K@@ ^!9@@@'/^)@AYBR@@@@)A[[N@K^^K[@KK@@@@A#)@[[FP )@@G@@O;)@@[R#)@@ /K@@ ^%9K@@='^@@]!:9K@@( @@@@3/K@@ ^/K@@ \BS@@@@)AF[N[^^K[[KFQ )@@G@@L[@@@@O#K@@2;@K@@BV@@@@)A([N[KK^@^[[@@@@@RAK@@"/K@@A"*@@@@HRBX@@@/K@@A"FU )@@G@@%8)@@^R;K@@[?8)@@]RB)@@;RBK@@"BW@@@@)A3[U@[@K[@@ABT@@@8#)@A8T^U)@@/K@@A.FV )@@G@@8#)@A;TCU@@@P;)@@[RF%)@@R;K@@[&')@@[R])@@DBX@@@@)A"[MKO[[^[[^@@@@@:9K@@&FW )@@G@@/K@@^.:9K@@$C[K@@@/K@@ U0@@@@HR#K@[G'^@@[ZA#K@[GH8K@@[BY@@@@)BC[N@^@K^ @FX )@@G@@KL@@@@/K@@ >%8K@@^R#K@@//KH@B*RBK@@//K@@BJ!9K@@A/K@@BH!9K@@)/K@@^.BZ@@@@FY )@@G@@)BM[N[K^[@K^[@KL[@R3K@@K:8K@@.R7K@@K/K@@AY/@)@ ^/ @@BTC[@@B$/K@@ :A#K@B$FZ )@@G@@R#K@@KCA@@@@)BW[N[[@^@KL@@@@@@ @@@B$A#;@@@R]0@@.R;0@@@/K@@ ^%8K@@F/K@@BA#;@@@R]0@@.CU@@@@)EX[N@KO [@KL@@@@@8#)@E%O'0@@[*@@@[JGX )@@G@@P;K@@[O'0@@[9?;@@@R]0@@.9?K@[F @@@[J/K@@EZCV@@@@)E$[N[KO[@KO [^@@@:9K@@&GY )@@G@@/K@@^.:9K@@$C[K@@@A]0@@.9*K@[F8#K@E4/K@@B#A]0@@.9*K@[FCW@@@@)E1[N@K^@KO@GZ )@@G@@^@@@@@/K@@@@/K@@E>O'0@@[[[F@@[/K@@E>(@@@[JA#;@@@/K@@B['^@@[Z/K@@^.CX@@@@HA )@@G@@)E;[N[K^^KO^^ [@@@A#K@[FO#K@[F;CK@@);@K@@^R#K@@@A#K@[FT8K@@ER#K@[F/K@@F@HB )@@G@@ @@@[FCY@@@@)F [N@KL@^@K^[@@@@'^@@[Z/K@@E./K@@ ^?8K@@0/K@@ ^!8K@@'/K@@FIHC )@@G@@:8K@@*R#K@@@'^@@[ZCZ@@@@)FJ[F[K^[]@.][CKL@@@@@@@/K@@EY[[X@@@RBK@@.D[K@@LHD )@@G@@0@@@@@'^@@@@'^@@C=/K@KE'R#K@@@DA@@@@)FS[F@KL@^[][T@K)L@@@@@@'=@@@@/K@KFWHE )@@G@@'^@@@@'^@@C=/K@@@@/K@@EYA#.@@@RBK@@.'^@@FWDB@@@@)F-[N][X[KL@^[@K^^R]0@@.HF )@@G@@'^@@FW'^@@[Z/K@@ ^%9K@@(/K@@F9!9K@@0 @@@[MC[K@@@/K@@@@DC@@@@)F:[MK^[[^^KHG )@@G@@^[[@@@R#@@[M'^@@[>/K@@ ^%9K@@)C[K@@@A#;@@[R]0@@.'^@@FW'^@@[ZA#;@@@DD@@@@HH )@@G@@)F5[N[KO @^ @K^ [@A#@@[MR#@@[F/K@@ ^'^@@C=A#@@[LR;@@@[/K@@EV @@@[M @@@[LHI )@@G@@A#@@[FDE@@@@)F_@<[KO @@@)[X@?@@@@@@@@@[@@A@@[@@[@@[@@C@@[@@#@@[@@]/K@@F&HJ )@@G@@ @@@[L @@@[FC[K@@@DF@@@@@@^@@#@@B@@S@@7@@[@@;@@@@@@@@@@@@@G#@@@@[+NTAB$ HK )@@G@@ NRTR$ NS11$ NLTB$ IOCOD$ NFCHK$ NLRT$ HL )@@G@@ NINI1$ NSTAT$ CLAUS$ NFRH$ NLLM$ NDBI$ HM )@@G@@ NDBCV$ NFCM$ NFCI$ NSER$ PRINT$ NCNV9$HN )@@G@@ NDBIN$ NDBSF$ NFDB$ NFSG$ NWALK$ NRNL$ HO )@@G@@ @@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[M@K=S)]@@@@@@@R;K@@@/-@@@EC1G@@C/K@@@I!9@@@KHR )@@G@@C1J@@@RBW@@#AFW@@#R;K@(@/K@@@@AA@@@@)@E[M[@[@K^@@@@@@@C5G@@#/K@K@@'^@@@THS )@@G@@/K@@@R(@G@@ AFW@@^/K@@@N*4G@@#ABW@@#'=@@@#AB@@@@)@O[MK<]@C@]^<@@@@?9@@@KHT )@@G@@C1J@@@'=@@@A0@G@@#/K@@@@/K@K@@ CG@@^/K@K@@'^@@@@%9@@@]AC@@@@)@Y[V@@^@@@@HU )@@G@@:8K@@(C0W@@#;GK@@=W8K@@W @@@@H/K@@@$?9@@@S;C)@@P;*)@@PCC?@@^/K@K@TAD@@@@HV )@@G@@)@([U@K@@@@@AB?@@CAB?@@#OB?@@#T8)@@W!9@@@S @G@@ /C)K@T CG@@^[@?@@ G@?@@ HW )@@G@@D@)@@IAE@@@@)@4[F@^[@^DO-]+==K-K@@@@/K@@@@!80@@@/G0@@@[@0@@@C@_@@@[@0@[!HX )@@G@@[@0@[YC^;@@@/K@K@TAF@@@@)@.[F[K=S-C1]L*@))@@@@@@AF)@MHRF?@@[/K@@[P1@J@@@HY )@@G@@/@F@@#C^J@@@/ V@@#+[J@@@D[@@MNAG@@@@)[A[N]L*C]@OK@@@@@*@J@@@ 4G@@#R#;@@[HZ )@@G@@R;@@MH/>@@[M;D@@@+;G@@@>'=@@@JC8@@MFC[J@@@AH@@@@)[K[U[@@^@@@?9@@@#C1G@@CIA )@@G@@99@@[>9!G@@C/KF@@#*?G@@]/KF@@#/\0@[_98F@@#R7G@@#'=@@@#AI@@@@)[V[N@KO@^^[IB )@@G@@@@@@@@/\0@["*4G@@#'=@@@A0@G@@#R]0@MP@@@@@@@@@@@@/,0@E A]0@MP/K@@[>AJ@@@@IC )@@G@@)[>[N]P]^<[@KO@@@@@@@@@@@@@@@@/,0@CAA]0@MP/K@@[0(@I@@@ 4G@@#C^J@@@R#:@@[ID )@@G@@R#0@@@AK@@@@)[\[N[KODA-C0^@K@@'^@@B"C G@@D/K@@[9(4G@@C99F@@#9!G@@C[[Z@@@IE )@@G@@)[J@@@D[@@MNR]0@MPAL@@@@)[9[MK@[[KO^@@@@@@'=@@@I[@@@MLC@@@M]AF)@MERF?@@@IF )@@G@@/KF@@# @G@@D @G@@C'^@@B"C G@@^AM@@@@)]#@V[K>@@@@)M]@4*)@@@@@SING FLE CLOIG )@@G@@ED WHIDETECTERROR @#C@M#/KJ@@@'^@@@@0@@@MMAN@@@@)MC[W@@@@@@@_____"@@@@@@IH )@@G@@@)@@@@@@@@@@ @BRKPT UNIT ILE OFAO@@@@)MN@G@)]A[]KII )@@G@@O[[KO [KK@@@9(@@MU9*)@MS9*@@MQ @@@MLA]0@MO/K@@]I1@@@MM/K@@@@;_____AP@@@@IJ )@@G@@)]I[F[^^(D^[]L*]@YG@)@@@@@@@MM/,0@@5/K@@]J(^H@@@/K@@]V!8K@@@[@K@MMG8K@@[IK )@@G@@R#K@MMAQ@@@@)]R[E/S[^ @KOC^)*E]@@@@@9?)@MS9?@@MQR]0@MOAA0@@@*@@@ML/K@@]JIL )@@G@@C@K@MM@@@@@@@@@@MNAR@@@@)])[N[K[@KO[@^ ] @/G0@@@ @@@NF/K@@@@/K@@]([ @@]$IM )@@G@@[[@@NFC @@]+/K@@@@/K@K]A9!@@MUAS@@@@)]%[E(D^CO-E=DA)*@)C@@@@'^@@ C/^)@^7IN )@@G@@R;!@@@/^)@^4+@K@N:C@Z@@@[@0@@@/K@@@@!80@@@AT@@@@)]3[F[EC-E-]L*E^]^%K=SOK*)@@@@@@@[CI@@@C8)@N\%CY@@@C8)@N,JA )@@G@@K8@@@HC^J@@@C@0@@@'^@@@@'=@@@IBE@@@@)^Y[F]L*MCKO [^[]P@@@@@@C@0@@@/^@@^.JB )@@G@@'=@@@JC@@@N?AB@@N@RF@@NG/KF@@]R]0@@@ @J@@@BF@@@@)^$[EK=U^^*>^@@@@@@@T ASSIJI )@@G@@$-$ NOFILE @[F@M4@_B@M!@_D@M=@_^@M)/K@K CBL@@@@)M<[W@@@@@@@DRUM F I/O. JJ )@@G@@ANDARDFOR STLABLE T AVAI IS NOIT $-$RAN UNTHE NTGNED BM@@@@)M,[W@@@@@@@JK )@@G@@D FOR UNTERES ENCOACE WABACKSP UNIT MBIONT TO SYSIGNEDILE ASBN@@@@JL )@@G@@)M9[W@@@@@@@@@@@@K@@@@@@,F @ASG,TORED. - IGNE: $-$ED FILASSIGNJM )@@G@@THE UNBO@@@@)N^[W@@@@@@@ @@@@@@@@@@@@@@@@@(@@@@@)@@@@@DJN )@@G@@@@@@@C@@@@@C@@@@@KBP@@@@)NJ@G@) T[]KO@K^ [@@@@@@ @@@[[C^K@N([@K@N%C@K@ WJO )@@G@@/K@@@@/K@@ Z @@@N%/K@@@@ BQ@@@@) -[MKO[@KO@KL@@@@/K@@ !?@)@@JCC0@N\JP )@@G@@P;)@^@/@)@ !C^)@N\8#K@ +/K@@ 8(CH@N0P;K@@[BR@@@@) :[N[K^^KL@KO^@@@G8)@@[JQ )@@G@@C@K@N([^)@N,/K@@A@?@)@@JCC0@N,P;)@^@C^)@N,/K@@ 3[^)@N\BS@@@@) 5[F[KL][*EJR )@@G@@]-E=DA))@@@@(@@@N%C^J@@@C@0@@@N^X@N0[DH@N0C[@@@@P;K@@[[@K@N([^!)N0BT@@@@JS )@@G@@) "[F@K^DO)*]])*DUM@@@@@R;0__" @@@NY @@@NX @@@NW/K@K T(@@@N%C@0@@@/K@K WJT )@@G@@/K@K TBU@@@@)AB[N]L*]^<^@K[@KKCC!@N0'^@@B*N^W@@^/K@@AQ*?G@@C/K@@AQ(@G@@DJU )@@G@@1@J@@@/@@@AQC^J@@@BV@@@@)AL[MK^^^[[K[]P@@@C[@@@@;C0@@M/@0@BOR#0@NW8#0@ABJV )@@G@@A#Y@@@&#K@@J')I@NP/K@@B0!8)@@ BW@@@@)AV[F]O*M(]L*]^(K>K@@@@@*4G@@#'=@@@AJW )@@G@@0@G@@#A#0@@@R#0@@@'^@@C2RBJ@@@A#0@@@[[@@@@BX@@@@)A=[N]G@)*@]@))@@@[C0@NXJX )@@G@@/K@@A0! G@@#(4G@@CC G@@C/K@@ 8RBK@NW ^G@@C @G@@D'^@@@@BY@@@@)A,[N[K@^C0)JY )@@G@@C@@@@@C G@@DN^W@@^'^@@@@'^@@@T'^@@@@*4G@@#'=@@@A0@G@@#/K@@AQ[^K@NXBZ@@@@JZ )@@G@@)A8[M^[@[@@@@@@@@@*4G@@#'=@@@A0@G@@#/K@@BA:9@@@(C1G@@#/K@@ 8'^@@B* 4G@@CKA )@@G@@[ G@@^CA@@@@)B][N]G@)CE]C]^<@@?8K@@KC0Z@@@/[@@B#C G@@C[^K@NZ[C0@NZ/K@@ 8KB )@@G@@ ^G@@C @G@@D'^@@@@CB@@@@)BG[N@@K^ [K^ @@@@/ @@BWC[@@NX/K@@B#C^K@NZCC0@NZKC )@@G@@'^@@@T[1G@@#C9@@@C[DG@@^/K@@AQCC@@@@)BQ[F[K^ ]L*E@)*MH[@@@@@N^K@NXC^J@@@KD )@@G@@CC0@NX/K@@BZN^K@NYC^J@@@CC0@NY/[@@B0C[@@NYCD@@@@)BZ[N@[@@^@@@@@@@@/K@@@@KE )@@G@@/K@@ 8 @G@@DR#K@[[[!G@@CC9@@@['^@@@@%9@@@(C1G@@#'^@@@TCE@@@@)B([N[^^K[@KKF )@@G@@L]O@@@/K@@@@'=@@@IC@@@N)/K@KB*1@@@@H8#K@B:%[@@[[C H@N0P;K@@[RBK@N(CF@@@@KG )@@G@@)B3[M^[][*C)]@))@@[DX@N0'^@@B*N^W@@^/K@KB3(4G@@C[DX@N0C[K@@@'^@@B*N^W@@DKH )@@G@@/K@@@@CG@@@@)B.[#@^^KO[[K@@@@@@@@[@@@@@@@@/K@KB" CH@N08#K@C[% H@N0P;K@@[KI )@@G@@RBK@N(/K@@@@/K@KB3CH@@@@)NP@.@K]+) ^@@@@@@)N)@G*)@@@@@@_C@N-@@@@@@@@@@@@KJ )@@G@@R;)@NW/K@@A/R;)@NY/K@@A(/K@@ 8CI@@@@)N-[O@@@@@@@@@@@@@@@@@@@@@[@@[LING KK )@@G@@R HAND BUFFETED IN DETECDITIONAL CONABNORMCJ@@@@)N,[G02+S)G!@X@]+)*E]CE]KL )@@G@@/K@@O]!G)@N,G8)@@HCC)@N, @@@N\(C@@N\@@@@I]@@@__"@@@@I[CK@@@@)N7[P[K=%@))KM )@@G@@)C@OK@@@[@N1M#Y)@@'^@@]A/K@@].N8K@@TC9K@@@9?K@O@A#)@].A#K@@@9?K@N"CL@@@@KN )@@G@@)O[[WKO@*)@@@@@@@@@@@@@@E. AILABLACE AVKET SPNO PAC__ @O /K@@ ]R#@@O^KO )@@G@@@@@@@LCM@@@@)OG[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KP )@@G@@@@@@@@@@@@@@@@@@@@CN@@@@)OR@G@)N:@WEC@@@@@)C @<]L]@@@@C@_@@@AB0@COC^;@@@KQ )@@G@@AA0@@@ @@#@M__@_@@@@@@@@@CO@@@@)CD[MK)U@)CMG[@KK@A]0@OS/K@@CR?9@@@#KR )@@G@@%9@@@FC1G@@CC^J@@@/K@@C,'^@@]$[[@@@@C9@@@ACP@@@@)CN[N@[[@K<@@@@@@@*@@@@KKS )@@G@@C G@@D'^@@@@*4G@@#'=@@@A0@G@@#R]0@OS@@@@@@@@@@@@/,0@E CQ@@@@)CX[N@[@K=S)KT )@@G@@@@@@@@'=@@@[AFW@@#R;K@)@/K@@C?!9@@@KC1J@@@'^@@B"*4G@@CC G@@^'^@@B"CR@@@@KU )@@G@@)C$[M@[@KL]O@@@@@@'^@@@@'=@@@IC@@@O+/K@@C$ @G@@ /KF@@] @G@@^ @G@@E @G@@DKV )@@G@@ @G@@CCS@@@@)C1@E@)OT[G@@@@@@@NORED E - IG DEVICMBIONTN A SYPTED O ATTEMKW )@@G@@ND WASA REWI/KF@@]CT@@@@)O+@G*)@@@@@)C2@'K>M^<[@@@@@@@C^W@@C/K@@DW%9@@@#KX )@@G@@C1G@@CC^J@@@C@0@@@/K@@@@@]D@OTCU@@@@)C9[U@@@@@@@G8)@@]CDW@@G[[X@@@C^W@@DKY )@@G@@[[Y@@[[[W@@GG9K@@[C[W@@G[[Y@@@C[W@@FK^W@@DCV@@@@)D^[U[@[@@K@/ K@DFH9K@@[KZ )@@G@@G8)@@[ @I@@@/[K@DJG9K@@WD[K@@L/[K@DJW9@@@W @@@@KG9K@@#CW@@@@)DJ[U[@[@@@@LA )@@G@@[[G@@G[[G@@EC[G@@G @G@@F/K@KC2%9@@@#C1G@@C'^@@D3[^?@@C[C?@@DH^?@@DCX@@@@LB )@@G@@)DU[UK@@K@@@H9K@@[G9K@@WD[K@@L/[K@DJW9@@@W @@@@KC W@@CG^?@@DC^?@@C/K@KC2LC )@@G@@ CG@@GCY@@@@)D>[U@@@@@@@C[I@@@[(I@@@C9@@@)[ G@@GG9@@@[[ I@@@C G@@G[1Y@@@LD )@@G@@[!I@@@C1G@@E 4I@@@CZ@@@@)D0[M^@@K<@))@@@@@C@X@N]C0W@@C'^@@@@*4G@@#'=@@@ALE )@@G@@0@G@@#/K@@@@/K@@DEG8)@@[[[G@@EDA@@@@)D'[MK@@[@@@@@@@@@/K@KD3'=@@@[*CG@@^LF )@@G@@^^W@@D*4G@@C[[G@@^N^W@@^C[G@@D'^@@@T[0W@@#DB@@@@)E^[N]L@CKH@K^DAC@/K@@EOLG )@@G@@(?G@@CC^J@@@/K@@F*'^@@]$[[@@@@C9@@@ C@_@@@C^;@@@AA0@@@DC@@@@)EI[N@KKK@K^LH )@@G@@[]P@@@C@0@@@'^@@ W/K@@EV*^G@@D ?G@@C'^@@F_^^W@@D^^W@@^C@@@NE'^@@ WDD@@@@LI )@@G@@)ES[N]L))@)@@@@@@@*4G@@#'=@@@A0@G@@#/K@@E<*4G@@CC1G@@C'^@@@T^^W@@^^^W@@DLJ )@@G@@C^J@@@DE@@@@)E+[N@@K[@K[@@@@@@'^@@@@*4G@@C'^@@@@/K@@E?!9@@@#/[@@E?[1W@@ELK )@@G@@=9@@@[C9K@@_/K@@F/DF@@@@)E?[M@K^@[@@@@@@@@/K@@F[*4G@@CAFW@@DR;K@#)'^@@C2LL )@@G@@/K@@F]%CW@@D:8)@@^R3?@@CRBW@@CDG@@@@)E6[N@^@[]GC@@@@@@A7W@@CR;K@@[/K@@F[LM )@@G@@'^@@@@*4G@@#'=@@@A0@G@@#/K@@E"*@@@[['^@@ TDH@@@@)F@[U@K@^^@@G8K@@[K^W@@DLN )@@G@@[!@@O@@O<;L@@@A[-@@O<[ G@@GG9@@@[C G@@G[^W@@CDJ@@@@LP )@@G@@)FQ[MK[@K@K^[@@@@@'^@@@T'^@@C2/K@@FZ:9@@@#C1G@@C'^@@GN/K@@FY:9@@@^/K@@F9LQ )@@G@@:9@@@#DK@@@@)F)[MK<@)@]^<@@@@@%9@@@-C1J@@@/KF@@] @G@@D @G@@C @G@@^'^@@B"LR )@@G@@C G@@^'^@@@@*4G@@#DL@@@@)F%[N@K=U@)))*MG@@'=@@[>[[G@@@RBJ@@@C[@@O=/KF@@]LS )@@G@@'=@@[SC@@@O=/K@@F00@J@@@/K@@F5DM@@@@)F4[MKL]O@C]@@@@@@/KF@@]*^@@]A/K@@FYLT )@@G@@[1G@@CC9@@@^/KF@@]'^@@@@'=@@@IC@@@O2/KF@@]DN@@@@)F"@F]G@@@@@)O<[^EC@@@@@LU )@@G@@OF-MARE AN EO WRITEMPT TAN ATT@EOF A@@[@O>_@@S@@'^@@@@DO@@@@)O:[^@@EC@@@LV )@@G@@)F_@E@@@@@@@/K@@@@@]G@O&D IGNOREER - PRINTDER ORARDREAK ON CDP@@@@LW )@@G@@)G@[N]PCMH@^C0CC@@C0W@@CC9@@#)[0?@@#C@!@N]C0W@@C'^@@@@*4G@@#'^@@@TC^J@@@LX )@@G@@C@0@@@DQ@@@@)GE[MK[]L)]@@@@@@@/K@@@@/K@KF_'=@@@[[DG@@^G9@@@^?8)@@KC0\@@@LY )@@G@@C9@@#//K@@GK:8K@@]DR@@@@)GO[U@^^^@@@?8)@@]RB?@@C/K@KGN%9K@@#[1G@@#C[I@N]LZ )@@G@@[1W@@CC9K@@^%8)@@[C9K@@#C0?@@CDS@@@@)GZ[N@^[@K^[@K^[@@/K@@G"/K@@IG/K@@I;MA )@@G@@/K@@J#/K@@J#/K@@J#/K@KGN'^@@D3[C?@@D/K@KGNDT@@@@)G([F@K^[@K^[@K^@@@@@@@@MB )@@G@@/KH@LN/KH@LI/KH@LD/KH@L^/KH@K_/K@@M$/K@@M+/K@@L_/K@@IVDU@@@@)G2[F@K^[]G*MC )@@G@@L>]CC@@@@@@@R;@@@ O;0@@[8#@@G/')G@@@RB0@@@RF@@@@/K@@KF/KH@LX/KH@LSDV@@@@MD )@@G@@)G;[F]G*L=KL@K<0@@@@@@@@H9K@@[*@@@@LC K@@@/K@@HJ%9K@@T[[K@O8/KF@@@AF@@@@ME )@@G@@AB0@@@DW@@@@)H^[N]J)@ C*-AOC+@ C@@@@[[@@@@G9@@@@; @@@MG9K@@ D[K@@L;[@@@MMF )@@G@@W9@@@AC9@@@@[DK@@@DX@@@@)HI[N] *K!]JCC)@)@H9K@@B/K@@HZ?9K@@B @@@@K/K@@H\MG )@@G@@:9@@@LC[@@O8C K@@@'^@@@@'^@@@@DY@@@@)HS[N@K[@@K[]H)@@@R#)@@@R#@@@K8^K@HVMH )@@G@@G9@@@A;=K@@A;@)@@A/,0@G5C9K@@ 8^K@HS/,0@G5DZ@@@@)H+[N[^C%C]^Y@K<)@R7K@@@MI )@@G@@A#!@@@;)?@@@?9@@@AC @@@@/K@@H%%9@@@RRBK@@@;^W@@@C[@@O8EA@@@@)H?[MK^@^@K^MJ )@@G@@@@@@@@P;)@@M/CK@H./K@@I]:8)@@,/,0@G5D8K@@[H9K@@[/K@@HJ/K@@I;:8K@@^EB@@@@MK )@@G@@)H6[M^[]E)C]])@@@@/K@@IC(4@@O38^K@H1A#!@@@;C)@@/CK@NQED@@@@)ID[F]E+@-]1[K<2^^K@@@@@'^@@J; @@@@@N^0@@@AB0@O3MN )@@G@@R;0@@['^@@@@/K@@H: @H@@@RBK@@@EE@@@@)IM[F]ACKKK+*-B[@K@@@@@@/K@@IG/K@@I;MO )@@G@@:8K@@^R7K@@@[[X@@@RBK@@@D[K@@L0@@@@@'^@@@@EF@@@@)IV[N] *L8^@K^@K@@/,0@G5MP )@@G@@C9K@@F8^K@I-/,0@G5H9K@@H/K@@I6?9K@@HC9@@@@C K@@@'^@@@@EG@@@@)I>[M@^@^D]OMQ )@@G@@+)@@@@R;0@@@A\0@@@R;0@@ ;G0@@#/K@@I5:80@@A;G0@@#R;0@@0:80@@ ;G)@@=EH@@@@MR )@@G@@)I\[N]K+^-[]^+@CLORBK@@@;[@@@#8^K@I=;[@@@Y'^@@@@R;K@@^;G0@@#A30@@@;^0@[]MS )@@G@@AB0@@@EI@@@@)I9[EK^CQ-B=C%C@)@@@@@@@/K@@H\:8K@@ /K@@IH:8K@@[R3K@@@C K@@@MT )@@G@@'^@@@@/K@@IV[[H@@@EJ@@@@)J][F@K-U^PK<))]@)@@@@@@/K@@JJ'^@@J1%80@@#/K@@JFMU )@@G@@%9@@@[C5@@@@R30@@@'^@@@@/K@@JJEK@@@@)JF[EK[@KOC/-B=CC)@@@@@@'^@@J;A#0@@@MV )@@G@@RF0@@@N^0@@@ ^@@O3'^@@J1%9@@@#/K@@JJ%80@@#EL@@@@)JO[F@K<))C@-C^ ]J)@@@@@MW )@@G@@PJK@@@(=@@O3R#K@@@/K@@@@/K@@J#/K@@I;:8K@@^R7K@@@'^@@JTEM@@@@)JX[F]KCLP]IMX )@@G@@]@C]@@@@@@@@:9K@@]/K@@J(/K@@J!:9@@@#/K@@J>%9K@@^C5K@@@C1@@@@A#K@@@EN@@@@MY )@@G@@)J&[F@^[]FCLOK^CW- K@@@@RBK@@@'^@@@@/K@KJTA#.@@@RBK@@@'^@@@@/K@@J!:9@@@#MZ )@@G@@/K@@J(EO@@@@)J\[EK^[]ICM ]E*M ]E*M^@AB0@@@RB0@@@A\0@@@R30@@@A30@@@R70@@@NA )@@G@@/K@@J1/K@KJT9*.@@@EP@@@@)J8[EK-E@CKT]#CK)@@@@@@@R;K@@@C9K@@@ @@@@@ @@@@[NB )@@G@@ @@@@@/K@@@@/K@KJ1'^@@@@R;K@@@EQ@@@@)K[[F@^CE)C]@)+^M@@@@@@@/KI@@@R;@@@#NC )@@G@@[@)@O4/,0@G5/KH@LX8K0@KA'^@@@@G9K@@[/K@@K^ER@@@@)KE[F[K=C-CM=OK=C) @@@@@ND )@@G@@:8)@IMRB)@J;R;K@@CAB)@@@R;)@@@A\)@@@R;)@@ A3)@@@R#)@O4ES@@@@)KN[EK-E^-K^NE )@@G@@CC)CKKK))@@@A\)@@@R;)@@[[ K@@@/K@@KV[ K@@@/K@@L,R3)@@@'^@@@@R;)@@ ET@@@@NF )@@G@@)KW[F[K^CUC@-[^[]]@@@@@@A7)@@@/K@@KE*4@@@@R;)@@[/K@@K^R;K@@#'^@@@@/K@@KFNG )@@G@@*)@@O3EU@@@@)K>[F@^CC)CKL@KO[]]@@@@@A3)@@@/K@@KF*)@@O3/K@@K^A\)@@@/K@@KENH )@@G@@*?@@@@R;)@@[/K@@K^EV@@@@)K,[M^@K[@KO@@@@@@R;)@@@/K@@K^*4@@O3/K@@K#R;K@@^NI )@@G@@/K@@K#R;K@@[/K@@K^C9K@@@R;K@@]EW@@@@)K8[F@K)+])CK4K^[@@@@@@@/K@@K5/K@@K^NJ )@@G@@/K@@K^R;K@@#'^@@@@/K@@KF*)@@O3[ K@@@/KH@LSEX@@@@)L[[F@K^[@K^[@K^@@@@@@@@NK )@@G@@/K@@K+/K@@KF/K@@K&/K@@KT/K@@KU/K@@K-/K@@K5/K@@K^/K@@K5EY@@@@)LE[F@K^[@K^NL )@@G@@[@K^@@@@@@@@/K@@KF/K@@KF/K@@KF/K@@K:/K@@K:/K@@KF/K@@K$/K@@KR/K@@KVEZ@@@@NM )@@G@@)LN[F@K^[@K^[@K^@@@@@@@@/K@@K3/K@@K]/K@@K#/K@@K1/K@@KF/K@@KF/K@@K9/K@@K'NN )@@G@@/K@@KFFA@@@@)LW[F@K^[@K^[@^CC@@@@@@@A7)@@@R;)@@-'^@@L4/K@@L!/K@@L:/K@@L*NO )@@G@@/K@@L&/K@@L+/K@@K#FB@@@@)L>[F@K^[@K)+@)C]@@@@@@@'^@@L4/K@KJ;'^@@L4/K@@L,NP )@@G@@[ K@@@'^@@L4/K@@L,'^@@L4/K@KJ;FC@@@@)L,[N[K^[@K^@^CU@@!8K@@#'^@@@@?8K@@#NQ )@@G@@/K@@@@/K@KJ;8K0@L1/,0@G5/K@@L2/K@KJ;*4@@O3FD@@@@)L8[N[KL@KO[@KL@@@/K@@MMNR )@@G@@%8)@@'A#)@O8/K@@KF/K@KL4*4@@O3/K@KL4%8)@@,R#)@O4A$K@O3FE@@@@)M][F]F*LX]CNS )@@G@@]@)@-^@@@@@@')H@@@R;K@@ O;0@@[8#K@ME/K@@MJ%8)@@'')H@@@RB0@@@RFK@@@FF@@@@NT )@@G@@)MF[EK[]HCL/K<'@- 0@@@@@RFK@@@/,0@G5A#)@@@O;)@@[R#)@@@')H@@@R;)@@ /K@@M)NU )@@G@@%8)@@'FG@@@@)MO[F]F*L(@[]F*LX[@@@@@@:8)@@'R#)@O8AFK@@@AB0@@@R;K@@ O;0@@[NV )@@G@@8#K@MU')H@@@RB0@@@FH@@@@)MX[F@K^DG-#4DG)C]^&K<*@'^@@@@/K@@@@8^K@M+/,0@G5NW )@@G@@/K@@@@/,0@@@/K@@@@8^K@MM/K@@M]FI@@@@)M&[N@K+S-B0K^C/@@R;K@@^A#0@[#A#0@@@NX )@@G@@/K@@M>(@@@@J1@@@@JPF0@@@R;0@[K'^@@@@/K@@M*FJ@@@@)M0[F]ICE^P^[[^ ]]@@@@@@NY )@@G@@ @@@@@ ^@@O3%9@@@[[ @@O3/K@@NO:9@@@ C1@@@@A7K@O3A7K@@@FK@@@@)M9[F@K^[[^[NZ )@@G@@[K^CS@@@@@@@'^@@@@/K@@NB()@@O3/K@@M>%8)@@,C@)@O4/^K@M_/,0@ND'^@@J;FL@@@@OA )@@G@@)N][N]]]^P^[@K^^@@ @@@[#0@@@[# 4@@O3/K@@M$'^@@JT/K@@M$[[X@@@RBK@@@D[K@@LOB )@@G@@0@@@@@FM@@@@)NG[F]J]^ZK<'^P^CI@@@@@@C[K@[#/KF@@@AB)@@@P;)@@[R3)@@@AF)@@@OC )@@G@@OF)@@@P#)@[#RB)@@@FN@@@@)NP@<@^[@@@@)O3@?]))>DI@@@[@@[/K@@O6@@[@G<@@@@@@OD )@@G@@@@@@@@/K@@M$/,0@ND[[K@[#/K@@H\FO@@@@@@@@@@^CQ-B=C%C@)@@@@@@@/K@@H\:8K@@ OE )@@G@@/K@@IH:8K@@[R3K@@@C K@@@'^@@@@/K@@IV[[H@@@EJ@@@@@@^@@#@@B@@:@[X@@U@# @@@OF )@@G@@@@B@@@@@@@NT@@@@O9B2L$ B2O$ EXIT IOCOD$ NCNV9$OG )@@G@@ NDBCV$ NDBIN$ NDBLT$ NDBSF$ NDIAG$ NERU$ OH )@@G@@ NFAR$ NFCI$ NFCM$ NFDB$ NFGC$ NFGT$ OI )@@G@@ NFM96$ NFRC$ NFRG$ NFRH$ NFRZ$ NFSG$ OJ )@@G@@ NGC9$ NIOER$ NNG90$ NPCT$ NPW2$ NP91$ OK )@@G@@ NRTR$ NR92$ NR93$ NSF$ NSTAT$ NS11$ OL )@@G@@ NTAB$ NTBSZ$ NTIO$ NT10$ NVEC$ NWALK$OM )@@G@@ TEMP$ UNIT$ A1CW$ @@]@@@@@@@N,BFCTL$ @C@@@@ON )@@G@@@@@@@*BL$ @C@@@@@@@@^@BS1BL$ @@[@@@@@@@@@B1L$ @C@@@@OO )@@G@@@@@@M]B1O$ @@]@@@@@@@@@DRAIN$ @@[@@@@@@@C2FHS1$ @@]@@@OP )@@G@@@@@@O5FHS2$ @@]@@@@@@@O7FNCTB$ @@]@@@@@@@N]NBFGT$ @@[@@@OQ )@@G@@@@@@ TNBFMG$ @@[@@@@@@@ WNBFRL$ @@[@@@@@@@B"NBFRS$ @@[@@@OR )@@G@@@@@@B3NBTOD$ @@[@@@@@@@ CNCLBT$ @@]@@@@@@@MNNCLOSE$ @@[@@@OS )@@G@@@@@@@5NFCHK$ @@[@@@@@@@]$NREW$ @@[@@@@@@@C NSWTC$ @@[@@@OT )@@G@@@@@@GNNWEF$ @@[@@@@@@@E^PACKT$ @@]@@@@@@@NEPL$ @C@@@@OU )@@G@@@@@@@HRDBLK$ @@[@@@@@@@F_UPDDA$ @@[@@@@@@@@TWRBLK$ @@[@@@OV )@@G@@@@@@D3\*LDW.\*M$JY\N+80:K?CF:A\F?(E!K6%ZQ!\E2I$(K.HNGT\F;64LK.JRE4\N,83HOW )@@G@@K7\7=Z\-U%TZK4%+!?\:9TY?@@@@@@@@@@@@H$?!UPHP_7"_1;9V;(I Y\\A1SQ0?A1NSO SOX )@@G@@JQW0W;I$6PZ?\9RJ+WJ5BN3'@@^@@#@@B@@@@@B@@]@@J@@@@@@@@@@@@@@@@@@@^HB2L$ OY )@@G@@ @C@@@@@@@@^HB2O$ @@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@#@@B@@@@@B@@]@@J@@@PA )@@G@@@@@@@@@@@@@@@@@@CUB2L$ @C@@@@@@@@CUB2O$ @@]@@@@@@@@@@@@@@@PB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC )@@G@@)@@[M[[KO [KO [@@@A#K@@BW@K@@AA#0@@^A#0@@#A#0@@]A#0@@[R#0@@ R')@@ R'0@@#PD )@@G@@/K@@@@AA@@@@)@E[N[KL[^[@KO[[@@R#)@@B/K@@@GA#K@@C'^@@@-/K@@@N(@@@@IR#)@@CPE )@@G@@R;K@@@ @@@@@A#)@@CAB@@@@)@O[MK[[@KL@@@@@@@/K@K@@(@@@@IR#)@@BR;K@@@R')@@[PF )@@G@@R'0@@]A#0@@@R;0@@E/K@K@@(@@@@IAC@@@@)@Y[N@KO@[@^[[@@@@R#0@@@')E@@,O;)@@0PG )@@G@@/K@@@$(@@@@IW8K@@E/K@@@@/K@@@UA#K@@B'^@@@-AD@@@@)@*[MKO@K^[[KO [@@A::@@[PH )@@G@@A\:@@[A3:@@[A7:@@[/K@K@-8]0@@!R')@@ 8])@@!A#0@@@O;0@@[AE@@@@)@2@N[KK@@@@PI )@@G@@)@ @O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO]"K@000000A<:@@[A$:@@[AF@@@@PJ )@@G@@@@^@@#@@B@@@@@B@@#@@N@@@@@@@@@@@@@@4@@@@@DNCCT$ @@]@@@@@@@@@NCWK$ PK )@@G@@ @@]@@@@@@@@[NCBD$ @@[@@@@@@@@@AH@@@@)[QEO@K@@@@@@@@@@@@8)@@@PL )@@G@@@@@@W@**PF**@@W@@A/K@@@U)@@[F]@^[]@D]@D'@H@K)@@@C^J@@@/K@@@<'^@J_'^@K@@@PM )@@G@@N@)@@@C@_@@@N8K@@^C@;@@@AA0@@@AA@@@@)@D[N]@CK[@^@^@@@@/K@@@S?9@@@^C1G@@CPN )@@G@@/K@@@W(@G@@D/K@@@-*?G@@]/K@@@W9@@@W @@@@K[@)@@L/K@@^>?8K@@KR3Z@@@H^?@@DG8)@@[BC@@@@)^=[M^@K[@[@RT )@@G@@@@@@@@/K@K]E @G@@F[^?@@C'^@@#:!^?@@#/K@@^:?8K@@K/K@@^(%^?@@#H@)@@LBD@@@@RU )@@G@@)^,@V[K)JK)L@@@@@@)@#@?@@@@@@@ SYMBID ON ATEMPTEACE ATBACKSP/K@@@@'=@@@@RV )@@G@@C@@@@SBE@@@@)@C[W@@@@@@@RED DUCOUNTEORD ENTROL WLE CONGNIZABUNRECOED RW )@@G@@ IGNORVICE -ONT DEBF@@@@)@N@4@*-L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_E@@GRX )@@G@@__"__"@]B@@#CE ACKSPARING BBG@@@@@@@@@@@@K)^@^C[K@@!9@@@RC G@@#'^@@@@RY )@@G@@[DW@@^:9@@@ C5G@@#C W@@#'=@@@@0@G@@#C^J@@@AB@@@@@@^@@#@@B@@M@@:@@[@@\@@@RZ )@@G@@@@@@@@@@@@^1@@@@@TNTAB$ NS11$ IOCOD$ NFCHK$ WAIT$ SA )@@G@@ UPDDA$ BS1BL$ NBFMG$ NIOER$ FNCTB$ IOW$ SB )@@G@@ DRAIN$ NBFRL$ MB$ NBFRS$ PRINT$ RDBLK$SC )@@G@@ NWALK$ NBSP$ @@[@@@@@@@@@@#@@@# END @^@@@#SD )@@G@@NBPR* PROC 0 )@@@N]@[]@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SE )@@G@@@@@@@@@@@@@@@@@@@@/K@@@@A]0@@@AA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@]@@E@@[@@I@@@SG )@@G@@@@@@@@@@@@@]NS11$ NCLOSE$ CLOSE @@[@@@@@@@@@@@@@@@@@@@@@SH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SI )@@G@@======@@^@@ @@@@@@@@@@@@@@ @>T@@@@S)@@D@@=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SJ )@@G@@@@@@@@FET NG66 @[@@][@@@@@@@@@^S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SK )@@G@@@@@@@@@@@@@^@@@E_/@@@@@@@^@@S)@^@Z@^@ @@S)K^@1@<@@@@@@@@@@@@@@@@@@@@@@@@SL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@H@$+@@@___@]QCK$@@ECNNSN )@@G@@@@.CN(@@\CO4@>MCW>@@KD]I@^ D-\@@XD&@@@+D\N)@QCM.)@GCNX)@ICO&)B]CP<)@RD[7SO )@@G@@)ZLD]Y)@GD>4)C6D&X@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___SP )@@G@@/!K@$*[1[CM.[![CM.[([CM.[>[CM.[-[CM.[5[CM.Q/)@@ 8@P@@@/K@@$5'^@@\I @@CMSSQ )@@G@@ @@CM0 @@CM1 C@CM4R#KCN(R_@CNNN/K@@QM#W)@@CD@CM18^@@*\ 4@CM0 0@CM0 ^@CM4SR )@@G@@ ^@CM0R#F@@@;G@@@Z;GK@@X;G)@@Y!/@@@S/K@@(K:/@@@P/K@@(KR /CM@R@0@@HR[)@@ISS )@@G@@A#@@@ER_@@@@W/@@@AR@K@@GR@)CN:Q@)@@H;^)@[A;C0@@OR.J@@@R#@@@E?8@@@C/K@@*WST )@@G@@!8@@@P/K@@*W:8@@@L/K@@*W:8@@@M/@0@*>%8@@@I/K@@*>*@@@@A/K@@*>=/)@@]'K0CMSSU )@@G@@=/)@@[/,)@\&;@0@@K;C0@@O/S@@@@R.J@@@/,)@\&(4@CM0/K@@*?;@0@*$(0@CM0;C9@@@SV )@@G@@*0@CM0;K9@@@0@@@@KO"0@@[/KB@@@[D@CM1 ^@CM0RD0CM6R )CM6OG0CM3OH@CM2R#0@@^SW )@@G@@R#K@@#?/K@]@/CK@*; C@CM1/K@@$5R_@@@@W/@@@AR@K@@GR@)CN:Q@)@@H/K@@*=CD@CM1SX )@@G@@8^@@*\/K@@$'@@@@@@Q#K@@F&;K@@@R'0@@ @@@@G;=@@@M;=@@@#O;@@@0;)@@@#8]0@(ESY )@@G@@;@@@@#/K@K(^'^@@(^A#@COMR#@COE'=@@@I/K@@!6/C0@(S^*)CM0D@0@@JR")@\2R_)@@@SZ )@@G@@RJ@CM4(@@@@AR"@@@@/@@@(';^?@@=R#@@@A*)@CM0O#@@@C?/@@@F/K@@(&R_@@@ER.)@@ETA )@@G@@0@@@@GR_0@@@;C0@@[U@/CL50@@@@KO_0@@[/K@@(1;G0@@=W/0@@EG.@@@0/!'@@@8[)@(!TB )@@G@@C.@@@.')])$+()@CM0/K@@('C.@@@0/K@@(9/!'@@@8]@@(8O#0@@I;G0@@=W/0@@EG.@@@0TC )@@G@@/!'@@@/^0@(;(?@CM0(*@CM0/K@@$5C.@@@-')])$+/K@@$5D@K@@A/@K@$5?@KCNO/K@@$5TD )@@G@@;@6@@@;C.@@=D/H@@[S@@CNP;G0@@#;D@@@-G.@@@0')])$+8#@@%I/K@@$5R#@@@J/K@@%VTE )@@G@@C.@@@0;@@@@[0@@@@GC.@@@1')])$+8[)@%Q/K@@$5D@K@@A/@K@$5?@KCNO/K@@$5;^6@@@TF )@@G@@;DH@@=D/H@@[S@@CNQ')])$+;D@@@A8#@@%>/K@@$5R#0@@^R_@@@AT/]@@@]@@@@BR#LCM.TG )@@G@@;CR@@=O@KCN%?/0@[#/K@@: O#0CN%8[)@%6/K@@$5R#Z)@@R#\@@@;GW@@@A#-CM.$/K@@PTH )@@G@@8[)@%5R#Z@@@R_0@@@Q#0@@[!/0@@Q/K@@$5R#-CM.;@$@@=;GW@@@A#-CM./K@@$5C[@@@JTI )@@G@@8[)@:E/K@@$5R#K@@JG.@@@[R#0@@K/,)@\&R#)@@J;GW@@@A#-CM.$/K@@P8[)@:CR#K@@JTJ )@@G@@/K@@%/R")@@@/K@@:QR")@@[/C0@:T^*)CM0D@0@@J"KK@@J/@)@?Z"OK@@I"W)CM\RI@CM5TK )@@G@@S@0CMV/C0@:1@@@@C/K@@?WTP )@@G@@U@*CM@/K@@(ZU@)CM@R_0@@@/K@@(Z**@CM0/K@@$5RI@CM5R"K@@@R_K@@@/K@@:8=8)@@[TQ )@@G@@/,)@\&=8)@@[R[@@@J/!0CN?R#KCN(R_@CNNN/K@@QM#W)@@/K@@!Q=8)@@[/,)@\&=8)@@[TR )@@G@@R[@@@J/!0CN?/K@@$1=8)@@[/,)@\&=8)@@[R[@@@J/!0CN?/K@@([R_^@@@;@@@@K;K@@@OTS )@@G@@AB@CM5/K@@([R_^@@@;@@@@K;K@@@OAB@CM4/K@@([R"@@@=P]@@@#AA@@*$R"N@@R#0CN&C[@CN$C[KCN*N@KCM'N@)CM;N@0CM//KF@@@AE0CM@R]0@@^*@@@@^/K@@([TW )@@G@@RB)CM18#)@!7RE0CM@O]0CK$'^@@(^A#@COQR#@COU'=@@@I'=@@@)AB)CM1RE"CM[/K@@([TX )@@G@@RB)CM1!/)@@O/K@@!6AE"CM[O_)@@[AB)CM1R]0@@^*C@CM1O"0@@[ C@CM1/K@@([R#@@@#TY )@@G@@;)@@@X;K@@@XAB@CM3A @CM28[)@,HO"0@@[/K@@$5AD)CM1R7F@@@;C@@@[R\V@@@RBGCM@TZ )@@G@@AF@CM6ABKCM6/K@@$'R")@@@/K@@,SR")@@[;^0@@=R;4@@[A])@@D/,)@\&R])@@D;^0@@=UA )@@G@@RI@CM5^@)CM,/C0@,<^*)CM0900@@J"0@@@J/@K@?ZP;@@K@/@@@,%S@@CMV/G@@,%O;@@@[UB )@@G@@]@@@@DD@@@@G9?)@@J*@@@@EP]@@@D'^@@,9(@@@@EO]K@@C"0K@@ID@K@@H0@@@@C^))CM0UC )@@G@@;^!@K/R#K@@I/K@@:8/K@J__/G@@\^/@@K,9!8@@@C/K@@\[;@@@@<"*?CMY/K@K,9"*)CMWUD )@@G@@P;@@@C/K@@,;D@@@@G/@@K,9!8@@@C/K@@\F;@@@@<"??CMY/K@K,9"?)CMWP;@@@C/K@@\ UE )@@G@@/K@J__^@KCM'^@)CM;^@0CM/A@KCNSA@)CNTA@0CNUA[@CNVA[KCNWA[)CNXA[0CNYA]@CNZUF )@@G@@A]KCN)A])CN-A]0CN+A#@CNA#0CN&[[@CN$[[KCN* C@CM1N/)@@_/K@@\IUG )@@G@@!/0@[^/K@@\0!/0@@M/K@@\?R#_CNR/KE@@@?/0@[[/K@@\0R#_CL9/KE@@@R#_@@@/KE@@@UH )@@G@@R")@\.(*@CM0/K@@\.(?@CM0/K@@\.H.@@@+:.@@@-C.@@@?/K@@\.*=@CM0/K@@\5')])$+UI )@@G@@/KB@@@'^@@\I/K@@([C@0@03C9@@@]C9K@@@C@@^W0>8@)@@/K@@0DQ;0@0=C9@@@[')J)@@UJ )@@G@@9*@COX9*@CO<')J)@@+8@@@#/@K@0RC@H@0\[@@COWC@@@04'=@@@J/C@@0RC9K@@[C@@CO>UK )@@G@@'=@@@I')J)@@8^@@0D/[V@@[/KF@@@C80@@#H@0@@G/G;@@@!80@@#/KF@@@T80@@#'K0@03UL )@@G@@;H@@[C/K@@0D9?@^XFC?@^W. ?@^W.9?@^W"C0@^W. 0@^W.9?@^XFC?@^W. ?@^W.9?@^W1UM )@@G@@C4@^W. 4@^W.A AX AR @@[@0$@@^COVA@0CO4A]@CO5A]KCO6A])CO79()CO9UN )@@G@@9%@CO;9%)CO.^]@CO_^]KCP@^])CP[^]0CP]A]0CO8N])CPJR@0@@GR]@CP R]KCPAC[0CP^UO )@@G@@C]0CPFN]0CPBN'@@@_C5<@@@H.)@@# @@CPKC"@@@@C]KCPEN"K@@[8M0@1L/K@@4;RBN@@]UP )@@G@@R\<@@]/[)@1XR_0@@FR"<@@#%03@@#/K@@1XR#<@@#;@)@@G;K)@@SH.)@@[R"<@@^P_K@@[UQ )@@G@@9/KCPCN"@@@@O_K@@[9*KCPCC])@@I:")@@]C")@@[8M@@2^8M0@1*/K@@4;8M)@12[[0@@FUR )@@G@@R#)CPGA#)CPH;+V@@@[]S*O&C[@@@R;(@@@D)[ICO&[[YCO&C.0@@DA]@CPGC"0@@@CEKCPNUS )@@G@@[AKCPNR;0)@@AF0CPNG]K@@H;%K@@DR#0CPDR_)@@]?/0@@#/K@@2#C.@@@#;(@SP#O#0@@KUT )@@G@@O#)CP#/,0@4,R7#@@];G@@@#/)@@2OC(#@@@;(@@@-R_0@@^;?0@@AR_)@@EC[@CPD:.@@@]UU )@@G@@O_0@@[/,0@4%/GK@2PR_@@-MA#@CPK/K@@2-/CK@2C.K@@#R#)CP#/,0@4:O")@@[8^)@2*R_0@@@R_)@@[/,0@4,VF )@@G@@R##@@[A#D*O&A]KCPAA]@CP ^]0CPB[[0CP^[]KCPEG"0@@[[]0CPFR#@@@# @@CPJR@0CO4VG )@@G@@R]@CO5R]KCO6R])CO79!)CO99,@CO;9,)CO.N]@CO_N]KCP@N])CP[N]0CP]R]0CO8/KF@@[VH )@@G@@8MK@4,;&@@@]G]K@@LH.0@@];&I@@@G]K@@JH[0@@I/D;@@@8M0@44/K@@4;D@)@@NR#0@@NVI )@@G@@;AI@@@[]S*O&;IJ@[CG.0@@=/KF@@@8M)@5EN")@@_/]0@5 []0CPF'^@CPOR]KCPLR]@CPMVJ )@@G@@N'0@@HN"@@@@/K@@1DR_S@@@P_K@@[:^KCPHA#KCPG/K@@4_ @@@@HR]0CO8/KF@@@1G@CPNVK )@@G@@/KG@@@*)@CPN/K@@5R ^@CPNR#KCPGRF!CO&P;)K@@AF!CO&/KG@@@R;@K@@AF@CPN/K@@5@VL )@@G@@A#@CP# @@CPTR;@@#)AF@CPY9?@^XF9*@CPUR_@CPU'=@@[C/^:@@@A#K^XRA#K^XPRBKCP)VM )@@G@@ABKCP-R_@@@[AF@CP ]C@CPA ^@CP R_K@@GABKCPAR_K@@=A#KCP^ @@CPE @@CPGAF@CPCVN )@@G@@R_K@@HA#KCPBA#KCPJ @@CPFR_K@AAA#KCPIR;K)@@AFKCPN/KF@@[A#@CPSA]0CO8R;@@@HVO )@@G@@%@@CPB'^@CPO0@@CPS/K@@6QRB@CPS!/@@@#/K@@6B;*@@@B/K@@6HR_K@@#;*KSP#O#@@@HVP )@@G@@;S@@@G;G@@@UA#KCO$AB@CPSR;@@@A;*@@@-)@@CPSA#KCO&R#@CPI;*@@@AAF@CO3'^@CPQVQ )@@G@@0@@CPX'=@@@AR7KCPX/^V@@@R#@CPT/@@@6?;G@@@=W8@@@]/@K@6)O;@@@[R#K^XRA#KCPZVR )@@G@@O#K@@GA#K^XRR#KCP)ABKCPYT8@@@WAF@CPYR;@CPU'=@@@#R7KCPX/^V@@@R#@^XRP#@^XPVS )@@G@@AB@^XO/KF@@[R#KCP R#)CP^R#@CPE;)I@@@A#HCO&/K@@67 @HCO&$BKCPA/K@@66R#)CPGVT )@@G@@ @@CPGC[@CPF;(@@@D)[ICO&[[YCO&R#@CPI;*@@@AAF@CO3;C@@@AO_@@@[=/@@@)O_@@@&VU )@@G@@A#@CPI'^@CPQ/K@SPOR#KCP+R#)CP-N/K@@IM#!)@@R#0CPTO_0@@[ @I@@@A#)CP-A#0CPTVV )@@G@@%/0@@K/K@SPQ0@@CPX'=@@@AR7KCPX/^K@5FR#K^XRA#KCPZO;K@@CA#K^XRR#KCP)ABKCPYVW )@@G@@;@K@@MA#KCP)ABKCP-R;@CPU'=@@@[ @@CPT/K@SPQAB@CPYAFKCPYR#@^XRA#@CPZA#@^XNVX )@@G@@R;@CPU'=@@@#R7KCPX/^V@@@RF@CPY;G@@@=W8@@@W/@K@73O;@@@[AF@^XOK@@^XRR;@@@ VY )@@G@@A\@^XKD8@^XF'=@@[^/@:@@[ @@@@H/KF@@@C@@D&ZC^KD&)R G@@]H@K@@^G8K@@[[^K@'AVZ )@@G@@C^W@@[K8K@@]G^?@@]C@0C/Y[@0C/=C^/@@]G80@@[G@0@@H[^0C/='^@@9OC@/@@@[@0C/=WA )@@G@@'^@@9W8[@@8L/K@[T# @@C/&CC0K'AC[J@@@[[@C/='^@@9WC[J@@[[ @C/>C!J@@];D@@@#WB )@@G@@[1@C/>RF_@@[+80@__[[@C/$*^@K'A/K@@8% 4@C/> ^@C/&C[@C/>[[@C/='^@@9/K@@8+WD )@@G@@C^@K'AC[G@@[[ @C/&C-G@@][5@C/>%9@@@[/K@@8;CDG@@@[D@C/&C[@C/>[[@C/='^@@9R3KD[2!8K@@^'^@[E>/KH@'H/K@@'L/K@@'R/K@@'U/K@@')R;K@@YWL )@@G@@'^@@/1/,0@\_MO@@@[)@@@@@/K@[H@R;K@@)'^@@/1/K@@'&R;K@@Z'^@@/1/,0@\_^OMD[2WM )@@G@@)@@@@@/K@@'NC^KC"98#K@/.R7KD[3!8K@@Y'^@[E>'^@@/1R7KD[3!8K@@Y'^@[E>/KH@'%WN )@@G@@'^@[E>/K@@/(/K@@/(/K@@;,/K@@'N/K@@;C/K@@'N/K@@'N/K@@/P/K@@;C/K@@/Y/K@@;,WO )@@G@@/K@@;,/K@@;,/K@@;,/K@@;P/K@@;P'^@[E>'^@[E>'^@[E>/K@@'N/K@@;,/K@@'N/K@@'NWP )@@G@@/K@@'N/K@@'N/K@@;,/K@@'N/K@@'N/K@@'NRB@D[3;G@@@K;CK@@ORF!D*IA#)D]ERB!D*IWQ )@@G@@A#)D]F/,0@\_C\MC.1^8MD]E^_MD]F)@@@@@/K@@'NRF@D[3;G@@@G;CK@@SR;)C.2AB)@/EWR )@@G@@RF!^+MA#)D]ERB!^+MA#)D]FRF!^+NA#)D]GRB!^+NRBH^+M;G@@@G;CK@@SA#)D]HRF!^+MWS )@@G@@A#)D>'RB!^+MA#)D>;RF!^+NA#)D>/RB!^+NA#)D>./K@@/DRZ@D[3%8@@#[:8@@#]/K@@'NWT )@@G@@RB@D[3;G@@@K;CK@@O?8K [=/K@@'NR;)C.0AB)@/ERF!@@@A#)D]ERB!@@@A#)D]FRF!@@[WU )@@G@@A#)D]GRB!@@[A#)D]HRF!@@]A#)D>'RB!@@]A#)D>;RF!@@#A#)D>/RB!@@#A#)D>./,0@\_WV )@@G@@C\M@@@^8MD]E^_MD]F EMD]G LMD]H WMD>' ; ,MD>/ 5MD>.)@@@@@/K@@'NR3KD[3WW )@@G@@!8K@@OR;K@@@R;XC/!ABK@/V/,0@\_EF[@@@)@@@@@/K@@'NR3KD[3!8K@@\'^@[E>%8K@@(WX )@@G@@/K@@/$C?KD[3[@KC"9[4KC"9R3KD[3R;XC.[/K@@/TRB@D[3;G@@@K;CK@@OABK@/,/,0@\_WY )@@G@@EF[@@@)@@@@@/K@@;,/K@J__;@K@@MD[3)@@@@@/K@K/1R\@D[3*4@C"9R;@@@@A#KC"9!8@@@^'^@[E>R;K@@]'^@@/1R;WC"5XA )@@G@@ABK@.C/,0@\_EM[@@@)@@@@@/K@@/(/K@@@@R#KC_&A#KC_-R7@D&Z!8@@@D/K@K.F/@@K.FXB )@@G@@/KGK.M/K@@.V/K@@.V/K@@.?/K@@.$/K@@.$/K@@.F/K@@.,/K@@.$;*@@@[9?WC"89*KC_+XC )@@G@@RF@D&Z;@@@@G;C@@@SP;@@@[N[K@@GR;@D&ZAB@C_='^@@"^/K@K.FN9K@@@;*@@@[9?WC"8XD )@@G@@9*KC_+/K@@.;CK@@[A#KD[1R#@^WV:8@@@^/,0[K^(@@^T%/K@@"&R#@D-\A#@@05/K@@"9XI )@@G@@R#@^T,P#@^TXR#K^TX*@@^TZO;K@@[!@@@@HA#@@@HR;@@@[;CK@@[;CK@@[O;@@@[*@@@@HXJ )@@G@@/K@@"\RBK^T7OFK^T7A#KD]VAF@D]V/,0@5U/,0[G+R@0D[) @@D]J @@D]K/,0[F(@@@^X&XK )@@G@@@@@D[1R#@D-0R;K^X-N8K@@QM#H)@@R#K^T1/GK[#>:8K@@]A\KD[\(@@^T2/K@[@'RB@^T5XL )@@G@@;@@@@ABK@_KR#@D-1'=@@@I/,0@$?E#]@@@)@@@@@R#@^T5/KG@_O/K@@_6/K@@_SXM )@@G@@/K@@_2/K@@_6RBK^T;ABK@_V/,0@\_EG[@@@)@@@@@/,0@\_ES]D@!^(M^T*KC@@@[R#@D-2XN )@@G@@(@@^UU!@@#FRB@^T!R#0D[-:^@^UA/K@[[JXV )@@G@@RFW@@];GK@@#;C)@@-/^)[]4R;)@I$%W?@@@0@G@@@/K@[[H!@0D-8/K@[[JA#J)@@O;@@@^XW )@@G@@/K@[[@(@@^T2/K@[#>R#@D-9'=@@@IR#@D-4'=@@@IP#0D[-A#0D]Y/,0[E9@@@D]Z@@@D]YXX )@@G@@C[)D]YR#)D[-R;0[[6R#@^WV%8@@@^/K@[]TR#@D-'A#@[]DR;@[]SAB@[]E/K@[]TR#I)@@XY )@@G@@RFW@@];@K@@A;CK@@-R:80[[6/K@[#+/,0@\_MP@@@[=@@[#O#@D]LA#@D]LRB@^T6?@@^U^/K@[#;R#@D-/A#@D[JR#@D-;1@@^T1YK )@@G@@'=@@@IR;@@@[AZ@^T>O#@D]LA#@D]L*@@^T%*@@^T=/K@[H@/K@[QO(4@D[\/K@[H@(0@D[\YL )@@G@@/K@[T#*@@^T%/K@[AVRE)D]I(@@@@E/K@[^*R#U@@@A#KD[< O@D[>RBU@@[ABKD[=R;@D[+YM )@@G@@/,0@05/,0[G=RF%@@];@)@@A;C)@@-:8)@@#/K@[^W:8)@@^/K@[^WC])@@E:A)D]I/K@[^*YN )@@G@@RA%@@#/K@[^CRBU@@[O;K@@[RB%@@];@)@@L;C)@@NABKD[=R#,@@@A#)D[R#@^T;:9K@@[R#G@@@R#K^X-9*ED]RYR )@@G@@C[K^X+[[UD]TC K^T*[[UD]UO])D-_AE)D]UC9@@@[(^@^T5/K@[ >C[KD-2(@@^UU:[K#FC @#FR;@@[@R;K@@]=0K^W0R;@@@@R7)^UV:8)@@HO;@@]@:8)@@GYX )@@G@@O;@@^@)C@^XKAFK^XKR;T@@@EK@CC^AF@D]WR;@D]R/,0@7>/,0[G=R#@^WV:8@@@^/K@[CKYY )@@G@@*@@D]L/K@[A+R#@D]MA#@[A=/,0@$?EB^D[ ]=@D]LE&]D@@)@@@@@(W@^T>/K@[B]R#0D+#YZ )@@G@@9?J=X@/@@[A%9*@D@)R;@@@ :4J^W7/K@[A49?J^W79*@D@'=@@@I/K@[B^@@@@@@/S@@@@ZJ )@@G@@N#0[C)'=@@[@^Z0^T>[@@[C:R;@[C('=@@[Q/K@[BDPHASE6;,*^TX@@@@@@R;K@@@*C@D[6ZK )@@G@@/K@[D[(@@D]N/K@[DJR#KD[3A#KD[:R#KD[0ABKD[?R#KD[5P#K^TX(@@^TZO;K@@[P#K^U[ZL )@@G@@/GK[D@ABKD[,R;@D[%/,0@05/,0[G=/K@[DR#KD[0ABKD[=R#KD[3A#KD[[D[7[([D[7[![D[7[1[D[7[5[D[7/K@@@@C[@@@]ZR )@@G@@:9@@@ /K@LE@C9@@@ '^@[D1/K@[E[/K@@@@:[@^U@/K@[EK:[@^T_/K@[EMH[@^U[G9@@@]ZS )@@G@@[[@D]O/K@LEBC9@@@@/K@[EIC9@@@[/K@[EIRBKD]DR#0^X-;GK@@=W8K@@E;G)@@^R;)@@#ZT )@@G@@;G)@@]/^K[EQA#0D]D/KF@@@;GK@@#;C)@@-O;)@@0;G)@@A/^K[EYA#0D]D/KF@@@@@@@@@ZU )@@G@@R;K@@[(@@^T1A#K^T1O#KD]LA#KD]L/,0@$?^^JD&3EB]D\PEPDC_5 R=D[2 (=D[3MM@@@[ZV )@@G@@)@@@@@R'0[E6AA0[G_/K@[G7(0@D[\/K@[T#/K@[#_R#)^X+C^F@@@P;@@@[[^@[FI)8@)@@ZW )@@G@@[^K[FTP;@@@[[^@[F-[^@[FZAB@[F=C^FK@[L8@@@[[@K@[J;C@@@[!8@@@K;C@@@[/@F@@]ZX )@@G@@/=@[FGO;@@@[C[@@[JH[@@@GC9K[FIG[K@@G[ K[FRH9K@@[[ K[F)K8@@@]Q;)@@[D@0@@GZY )@@G@@;@0@@MR]Y[FRC[T@@@R],-FT?[U@@@/K@[FY8^@[FR/K@[FAQ#0@@IN@Z[FZ^@Z[F)A]Z[F-ZZ )@@G@@$#0@@H/K@[FWR]\[F=?[U@@@/K@[FZ8^@[FR/K@[FAC@KD+GC F@@@H9@@@][ @[GB)9@)@@AA )@@G@@[ K[GKH9@@@][ @[GP[ @[GR[ @[GYG9@@@[[ @[GS[ @[GVC^:K@[L8)@@[[@0@[J;C)@@[AB )@@G@@!8)@@K;C)@@[/@:@@]/=)[F_O;)@@[C[@@[JH[@@@I[[@@[^Q;K@@]D@@@@I;@@@@LK@)@@IAC )@@G@@K80@@^C9K[GBG[K@@J[ K[GJH9K@@][ K[GQG9K@@[[ K[GT[ K[GUC[X[GJ?[X-GK/K@[GOAD )@@G@@8L@[GJ/K@[F9Q#@@@HN@W[GP^@W[GQ[[W[GRN@W[GSN@?[GT^@W[GU^@?[GV$#@@@K/K@[GMAE )@@G@@?[W[GY/K@[GP8L@[GJ/K@[F9R;@C_(/K@[G>R;@C_\AB@[G4AA0[G_R#@D-\A#@@05A#@@7>AF )@@G@@R#@D+HA#@@5;R;@@[@AZ@^XKR;@@@[O#@D]LA#@D]L/,0@$?^^JD&3EB]D\PEPA@@@ME@@@#AG )@@G@@K@@@@#A]0^T%R;@@@[AZ@^T>*@@^T=/K@[G_A7@D[\A#@^T1 ?@D[\/K@@@@*@@^UU/K@[QOAH )@@G@@R#K@[C8L0[H /,0[S7R#H)@@A#@D[2R#H)@@A#@D[3A#K@[C*^@C_>'^@@.0R7KD[2 @@D]NAI )@@G@@ @@D& ?8K@@I/KH[HM/K@@'B/K@[H9/K@[M7/K@[NF/K@[N0AL )@@G@@(@@@@H*0@D[2/K@[NFRBK^T"/K@[NGR;K@@[A#KD& A#@D&^+8@J__ABKD>+R#!@@@A#)D>4AM )@@G@@RF!@@]+8)@@BA#0@@GRF!@@[+8)@__/^0[IC%8@@@[/K@[ICRBX@@[ABKD>+:8@@@]A#@D]NAN )@@G@@RF!@@[+8)@__A#0D[5RJ)D[2OJ!@@[/G)[I>;G)@@KR#)D[3;C)@@K;?)@@KA#)D[3:8@@@#AO )@@G@@/K@[I:(?@D[\/K@[C?R7KD[2:8K@@D/K@[N6RFKD&^*0@D[2/^K[N:/,)[QRR9@@@]RFKT>+AP )@@G@@;GK@@#;C)@@-/KI[I6;G)@@KAR)D[&/G0[IL O@D[&O#0D&K/K@[ILRJ!@@]/G)[IRO;))@@AQ )@@G@@AB!@@]RB)D]IABKD]I/@)[I4ABY@@#/K@[IRAFKD]I/K@[IR/K@[JL/K@[JL/K@[JL/K@[LLAR )@@G@@/K@[M!/K@[JL/K@[M!/K@[M-*?@D[2/K@[JFR#KD[5A#KD&@R#KD[0A#KD&[RBKD[2A#KD[0AS )@@G@@RBKD[3A#KD[5ABKD[6]CKD[6/K@[#_R#KD&@A#KD[5R#KD&[A#KD[0 @@D[6/K@[#_ @@D>"AT )@@G@@R8K@@@R8)@@ C[KD>6'^@[D$R#KD]E/)K[JUC9@@@*'^@[D1*^@D>"/K@[KS*C@D>"/K@[K=AU )@@G@@C[KD>4'^@[D$/,@[K9R#)D]F/@)[J?C9@@@,'^@[D1R#KD]E;CK@@[/)K[J%C9@@@*'^@[D1AV )@@G@@C[YD>M'^@[D$'^@[E@A?K[J/R#@D=IA#@CNIA#@CNJA#@CNKA#@CNL*@@D& /K@[L^R#KD&LAW )@@G@@%@KD&]/K@[J'R#KD&#A#KD&]/,0@\_FN[D&]F<@D[7KQ@@@[/S@@@@R#KD=IA#KD&]/K@[C?AX )@@G@@+@@[KGKE@@@[9?K[K]9*K[J.9*K[OV9*K[O=9*K[P7R#KD&MA#KD&W/KF@@@)@@@@@N8K@@]AY )@@G@@R#@D&NK8@@@AM#H)@@N8K@@CQ;KCNFM#H)@@R"/K@[K(R[K^X+R9)@@#C[P*NI'^@[K18[)[KYC9@@@)'^@[D1/K@[J-C[KCNK'^@[K1BA )@@G@@C[KCNL'^@[K1/K@[J-C[@D&OC[KD>4R9)@@C/K@[K,;>@@@A'^@[D18[)[K!/K@[J-/K@J__BB )@@G@@C9@@@@; @@[]/[@LK1:9@@@ /K@[K2'^@[D1/K@[K2RJKD[2/@S@@@C9@@@+/CK[K_D@K@@HBC )@@G@@C9@@@-'^@[D1/,0[EPC[KD]D'^@[D$/KC@@@RFKD[3A#KD& R\K[J/A\K[LJR#KD>2A#KCNGBD )@@G@@A#@CNH/,0@\_FN[D&] $JD& D*AD>$F(@D[7=@@[J.;GK@@#;C)@@-/KI[LO/K@[MF/K@[LWBE )@@G@@/K@[L(/K@[L3/K@[L3/K@[MF/K@[M]/K@[MFR9@@@@R7KD[3%8K@@R:8K@@'(C@T>+/K@[L4)@@@@@R;)@@[A#)D>"/K@[JM/,0@\_Q@@@@[H.AD>4)@@@@@/K@[L&BG )@@G@@/,0@\_Q@@@@[!.ID>4)@@@@@/K@[L&R @D>+RBO@@];@K@@K;CK@@OR#X@@@A#KD>5%8)@@^BH )@@G@@/K@[L,/,0@\_Q@@@@[H2^D>4D3AD>$H.^D>5)@@@@@/K@[L&RF)T>+;@)@@G;C)@@4)@@@@@/K@[L&R':8K@@R/K@[MN/,0@\_ .=D>4D1AD>1)@@@@@BJ )@@G@@/K@[L&RNKD>4A#KD>8RJKD>4A#KD>4/,0@\_#.@D>4D6AD>$#5@D>8)@@@@@/K@[L&(W@D>4BK )@@G@@/K@[MID8)@@[/K@[L$;GK@@#;@K@@#;CK@@-/KH[M>/K@[M!/K@[JL/K@[JL/K@[M0/K@[M!BL )@@G@@/K@[M3/K@[M3/K@[M3R#KD&JA#KD>4/K@[JLR#KD>>A#KD>4/K@[JL;C)@@-%8)@@B/K@[M!BM )@@G@@/K@[JLR#KD[3;GK@@K;C)@@OP;)@@[OB)D[2AB)D[2OB)^T7;G)@@KR#)D[3;C)@@K;G)@@OBN )@@G@@A#0D[3RBK^U@A#KD[5(?@D[\/K@[C?/,)[QRR#KD>4/K@[JLRBK^T_A#KD[5R#KD[3BO )@@G@@;GK@@K;C)@@ORB,@@[AB)D[2;@)@@K;GK@@OA#)D[3(?@D[\/K@[C?R7KD[2%8K@@F/K@[NZBP )@@G@@*@@D>0/K@[N:R#KD=IA#KD&]/K@[C?/,)[QRR#KD>=[@KD>4/K@[JLRBK^T_A#KD[5(?@D[\BQ )@@G@@/K@[C?/,)[QRR#KD>&A#KD>4/K@[JLR#KD&^+8KJ__R#Y@@@/K@[N'R#KD>(R30D[2:80@@]BR )@@G@@R#KD&P/K@[N_R#KD>?/K@[N'R#KD&^+8KJ__R#Y@@@A#KD>\C[@D[5'^@[EB/,0@\_ BGD]OBS )@@G@@)@@@@@A#KD>,R#KD&^;CK@@MA#KD>!/K@[QS/,0@\_^^JD>3^?KD[0^1AD>'^3^D]H^6^D]GBT )@@G@@^9^D]F^;]D]E ]KD>9 &=D>!FU[D>2FX[D=IF$[D>*)@@@@@R#KD>\/@K[O+*4@D>\/K@[O+BU )@@G@@?8K@@E/K@[OY/,0@\_F*[D>%#%@D>,KP@@@[/S@@@@/K@[O&/,0@\_F*[D>:#(@D>,=@@[OVBV )@@G@@/,0@\_F*[D>,KP@@@[/S@@@@ @@D>\ @@D>,/K@[C?R#KD[3A#KD&^RBK^T"A#KD[5RBKD[3BW )@@G@@OJKD[2ABKD[3(?@D[\/K@[C?*0@D[2/K@[N\RFKD&^?8K@@J/K@[C?/,)[QR ^@D[2(@@D>_BX )@@G@@/K@[PR*@@D]F/K@[P&RBKD[3;GK@@K;C)@@O?8)@@W/K@[PH!8)@[K/K@[PA!8)@[@/K@[PEBY )@@G@@R#K@@I/,0[EPA#0D>4/K@[JLP;)@[@R#YD>]/K@[PIR#YD=&;GK@@A;C)@@Y%8)@@,/K@[PIBZ )@@G@@R;)@@.;@)@@A;^K@[]A#KD>4/K@[JLR#KD]H?8K@@I/K@[P&R#KD]F/^K[P& @@D]ERJKD[3CA )@@G@@A#KD>4/,0@\_#.@D>4)@@@@@R;K@@[AFKD>" ^@D>"/K@[JMR#@D[3;G@@@K;CK@@O/K@[PYCB )@@G@@RBKD[2RB!@@[%@)D[0/K@[P"(?@D[\/K@[#_RBKD[2R#X@@@A#KD]D(=@D[\/K@[P9/,0@\_CC )@@G@@FN[D&]KP@@@[/S@@@@R#KD]DA#KD&]R;K@@[A$KD[\/K@[#_RFX@@]=8K@)@/K@[P,A#)D[0CD )@@G@@R;K@@[O#KD]LA#KD]L/,0@$?^^JD&3EB]D\NEPDD&AKH@@@[R;K@@[AZK^T>/K@[P,RBKD[2CE )@@G@@;GK@@J;C)@@PAB)D>3(0@D[\/K@[T#/K@[#_R;K@@[A7KD[\/K@[^[ =@D[\R#KD[3;GK@@KCF )@@G@@;C)@@OA#)D>9;GK@@];C)@@+A#)D]E;GK@@^;C)@@)A#)D]F;GK@@^;C)@@)A#)D]G;GK@@^CG )@@G@@;C)@@)A#)D]HA#KD>'R#0D>,/^0[O^/@)[Q, @@D>_/K@[Q0R;0@@[A#0D>_R#"D=I(0@^UVCH )@@G@@/K@[Q5?8)@@CR#"D=YA#0D>7:8K@@B/K@[SE!8K@@8/K@[SJR#XD+JA#KD>8;CK@@YP;K@@0CI )@@G@@*@@D& /K@[RBR#)D]G/KH[R]/K@[RB/K@[RG/K@[RI/K@[RK/K@[RMR#)D=IR#0D=I;^)@@/CJ )@@G@@A#)D>6/K@[R-R#,D=2/K@[RCR#,D=&/K@[RCR#,D>]/K@[RCRFKD[3;GK@@G;C)@@W?8)@@WCK )@@G@@/K@[RI!8)@[K/K@[RV!8)@[@/K@[RZR#K@@I/,0[EPA#0D>6/K@[R-P;)@[@/K@[RKR8K@@@CL )@@G@@R8)@@ C[KD>8C[)D=I; K@@/'^@[D$C[KD>7'^@[D$'^@[E@A?K[SBC[@D[5:[@^T"/K@[R3CM )@@G@@'^@[EB/H@[R3/,0@\_#B@D]O)@@@@@(=@D& /K@[R"C@0D=I[@0D>7 @@D[2 @@D]F/,0@\_CN )@@G@@^^JD>3^?KD[0 ]=D[3=@@[SC/,0@\_^^JD>3^?KD[0^1AD>'^3^D]H^6^D]G^9^D]F^;]D]ECO )@@G@@ ]KD>9FU@D[7)@@@@@/KE@@@R#0D=IA#0D>7R#XD+JA#KD>_/K@[Q;R#0D=IA#0D>7P;K@@8CP )@@G@@ @@D>_/KH[SO/K@[S5/K@[SW/K@[S+/K@[S%/K@[S,/K@[S3/K@[S0'^@[C)!8)@@K/K@[S3CQ )@@G@@%8)@@KA#)D>_R#YD_!8)@@^!8)@@C @@D>_R#YD_/K@[Q;R#KD+J/K@[Q;R#KD'^@@.FCU )@@G@@ )@D[\ @@D&8R7KD&Z1@@D&Z/K@[TPA#KD&8P;K@@)?8K@@D/KH[UQ:8K@@W/K@[$W'^@[E>CV )@@G@@R3KD&Z:8K@@]/K@[T4:8K@@#/K@[T80@@^T1/K@[T#R\)D&Z/@K[T?(@@^T%%8)@@]/K@[T(CW )@@G@@A\)D[\A#)^T1/K@[T#(@@^T1A#)^T1/K@[T#(@@^T1/K@[T# ?@D[\ @@^T1R;K@@[%8)@@[CX )@@G@@A#K^T1/K@[T#R#KD[4OBKD&ZA#KD[4/K@[T#(@@^T1/K@[T#&;@__@'=@@@I/K@[T#RB)D&ZCY )@@G@@CE)D&Z;])@@G;E)@@SR9@D&ZC;)@@ICBI@@[ O@D[>8 )[UB/K@[T#[B@D[=G;@@@[/,0[&%CZ )@@G@@(4@D&Z/K@[UMR#O@@@A#KD['^@[E>/K@@7//K@[TURBKD&Z;@K@@J;CK@@PDB )@@G@@A#KD&3P;K@@[!^KD>3/K@[X5R#KD&3*^@D[1?KN@@@/K@[X[RBKD[1P;K@@[ABKD[19?N@@@DC )@@G@@9/KD]J/K@[U2/S#)@@/K@[U&9*KD]JRBN@@@;GK@@G;G)@@-;C0@@VR[ISW=(@@@@^/K@[W]DD )@@G@@O;0@@[!W"CW=/K@[W]C[YSW=/[K[U'H9K@@[[[KD&2A @D&T;GK@@#;C)@@-:8)@@^/K@[VODE )@@G@@0@@^T1/K@[W/:8)@@[/K@[VT%8)@@]/K@[VMR;)D\PAB)[W9 @@D&6!8K@@^/K@[VZ/KH[VVDF )@@G@@R;)C_"/K@[VH(@@^T%/K@[U00@@^T1/K@[W//K@[VGR;)D\N/K@[VH/K@[V\/K@[V2/K@[V4DG )@@G@@/K@[V8R#N@@[C9K@@ ;GK@@#;C)@@-O;)@@0;G)@@A8^K[V-A#0D&7C9K@@ ;GK@@#;C)@@-DH )@@G@@O;)@@0;G)@@A8^K[V*A#0D&6/K@[WRR;K@@$A#KD]D/K@[WRR#N@@[/K@[V0R#N@@[A#KD]DDI )@@G@@/,0[EO/K@[WRRBN@@[0/H@@@P;K)@@RF!@@];G)@@#;C0@@-R#X@@@%80@@B/K@[V0/K@[V0DJ )@@G@@RFN@@[A#KD[7RBN@@[A#KD[8RBN@@@A#KD[9RFN@@@A#KD&2/,0@$?^^JD&2EB]C_"EPAD\(DK )@@G@@^"MD[9E_]D\\ LMD[7 RMD[8KJ@@@[R;K@@[O#KD]LA#KD]L/K@[U*RF<@@@RBKD&2A#)D&2DL )@@G@@R[)D&TR8K@@@R8)@@ ?8Q@@@/K@[W5C[Q)@@N8K@@ C9@@@@; @@[]:9@@@$/K@[W*'^@[D1DM )@@G@@8KK[W-/K@[WX[[KD>9*@@D&6/K@[W\C[KD]D'^@[D$C[KD>9/K@[W&C[KD&6'^@[D$C[KD&7DN )@@G@@'^@[D$C[KD>9/K@[W&'^@[E@A?K[W'/,0@$?^^JD&2EB]@@@EP@D[7KQ@@@[R;K@@[O#KD]LDO )@@G@@A#KD]L/S#)@@/K@[U&*@@D&8/K@[XAR#KD[4O;K@@[A#KD[4R#K^T1/GK[X?/^K[XGRBKD&2DP )@@G@@%^KD&Z/K@[X?R#@D&3N8K@@^R#)^X-+8@@@BG8K@@0;C@@@#;GK@@A8KK[XJ[@)D&XR#K^X-DQ )@@G@@A#KD&Y*@@D&8/K@[X+R@KD\2R#@D[4R;0D&Y;G@@@=W8@@@EG8K@@0')[-X\/^@[XWR#KD\3DR )@@G@@A#KD&ZR#@^WV%8@@@^/K@[X%RBKD&!A$KD&Z;CK@@AAVKD&ZR#@D&W'=@@@I*0@D[\/K@[#_DS )@@G@@/K@[T A7Z@@@A3Z@@@A\Z@@@A:Z@@@A$Z@@@A/K@[)A/K@[)9'^@[$K'^@[$K/K@[Z?/K@[-J'^@[$KDW )@@G@@/K@[+ '^@[$K'^@[$K'^@[$K'^@[$K/K@[+O/K@[+* @@D&'R#O@@@;GK@@L;@K@@^;CK@@R;K@@ A7KD&9R;K@@]A3KD&9/K@[YDAFP@@]R;P@@]ABP@@]R;K@@#/K@[)&ABP@@#EI )@@G@@R;P@@[RBX@@@RFX@@@AFP@@#O;@@@[A7 @@@O9K@@^R;K@@[A7KD&9A)@@A7KD&9A@@@AB?D&_ ? @@@/@@[+&R;/D&"RB_@@@A\Z@@@R;0@@^A70D&9ES )@@G@@A3KD&9/K@[YD8A0[+%'^@[$K @@D&9(?@D[\/K@[+\/,0@$?K@@@@[R7KD&'/^K[+2'^@[$KET )@@G@@ @@D&'P;@@@[A7 @@@RB?D&_AB>)@@/@@[+'A7KD&'/K@[+;A3KD&'A7KD&9A VALID FU )@@G@@NUMBER OF DIGITS @E@@@@ IOERR 28,ERCV21 . ]ERROR] 60 DIFV )@@G@@GITS USED @^@@@@ SUB A9,60,I .@^@@@@ ADD A7,A9 . FW )@@G@@@D@@@@ LOAD A9,60,I . ADJUST EXPONENT @#@@@@CVBI2 FX )@@G@@ LABEL . @B@@@@ STORE A9,DCVBP . SET P @^@@@@ FY )@@G@@ LOAD X2,A9 . @B@@@@ SUB X2,A8 . SET Q @ @@@@FZ )@@G@@ STORE X2,DCVBQ . @#@@@@CVBI2B LABEL . @C@@@@ SETGA )@@G@@GC 4,DLXCON . READ DIGITS @E@@@@ SETL A12,A9 . GB )@@G@@ SET NUMBER OF DIGITS @D@@@@ LOADD A10,KKD0 . IGC )@@G@@NITIALIZE TO 0 @D@@@@ GETC . IGNORE SIGN FGD )@@G@@OR NOW@#@@@@CVBI3 LABEL . @D@@@@ SLBD A10,1 . SGE )@@G@@HIFT TO NEXT BIT @C@@@@ GETC . READ DIGIT GF )@@G@@@C@@@@ TNE,U A8,'1' . -> NOT ONE @D@@@@ ADDGG )@@G@@ A11,1,I . INCREMENT NUMBER @D@@@@ LOOP A12,CVBI3GH )@@G@@ . LOOP FOR EACH DIGIT@D@@@@ ADD A7,02074,I . AGI )@@G@@DD EXPONENT BIAS @E@@@@ IF A7,LT,04000,I THEN,CVBI6A . -> GJ )@@G@@OK EXPONENT @D@@@@ LOADA X1,CVOVMG . OVERFLOW ERROR GK )@@G@@@ @@@@ IOERR 29,ERCV25 . @E@@@@ LOAD A7,03777,I . GL )@@G@@ SET MAXIMUM EXPONENT @D@@@@ LOADD A10,CVMAXN . SGM )@@G@@ET MAXIMUM NUMBER @C@@@@ SRBD A10,12 . ZERO EXPONENTGN )@@G@@@#@@@@CVBI6A LABEL . @F@@@@ IF A7,GT,0,I THEN,CVBI7 . GO )@@G@@ -> VAKID EXPONENT @C@@@@ LOADA X1,CVUNMG . UNDERFLGP )@@G@@OW @ @@@@ IOERR 27,ERCV25 . @C@@@@ LOAD A7,0,I . GQ )@@G@@ SET 0 RESULT @ @@@@ LOADD A10,KKD0 . @#@@@@CVBI7 GR )@@G@@ LABEL . @C@@@@ LOAD A8,DLXCS . GET SIGN @E@@@@GS )@@G@@ IF A8,EQ,'+',I THEN,CVBI7A . -> PLUS SIGN @C@@@@ GT )@@G@@ LOADN A10,A10 . NEGATE NUMBER@^@@@@ LOADN A11,A11 .GU )@@G@@@#@@@@CVBI7A LABEL . @G@@@@ DLCF A7,A10 . CONVERTGV )@@G@@ TO FLOATING *******@D@@@@ STORED A8,DCVFLT . SGW )@@G@@ET FLOATING RESULT@G@@@@ STORED A8,DCVFFT . SET FIXED DECGX )@@G@@(ZERO SCALE) RESULT @C@@@@ SUB A7,02074,I . REMOVE GY )@@G@@BIAS @E@@@@ IF A7,GE,1,I THEN,CVBI9 . CHECK FOR POS SHIFT CNTGZ )@@G@@@^@@@@ STOREN A7,X2 .@B@@@@ DSA A10,0,X2 . SHA )@@G@@HIFT @G@@@@ IF A10,NE,0,I THEN,CVBI8 ELSE,CVBI0. NOT VALHB )@@G@@ID INTEGER @#@@@@CVBI9 LABEL . @F@@@@ STORE A7,X2 . HC )@@G@@ SAVE SHIFT CNT WHERE USEFUL @D@@@@ LOAD A7,35,I . HD )@@G@@ SET MAX # BITS @G@@@@ SUB A7,DLXPRE . FIGURE HE )@@G@@HOW MANY BITS DON'T MATTER @G@@@@ IF A7,LT,X2 THEN,CVBI8HF )@@G@@ . DON'T TRY TO SHIFT TOO MANY BITS @ @@@@ LDSC A10,0,X2 . HG )@@G@@@#@@@@CVBI0 LABEL . @D@@@@ STORE A11,DCVINT . SET INTHH )@@G@@EGER RETURN @C@@@@ GOTO CVRTN . -> RETURN @#@@@@HI )@@G@@CVBI8 LABEL . @E@@@@ SET CVINTN,ON . SET INTEGER IHJ )@@G@@NVALID FLAG @#@@@@CVRTN LABEL . @D@@@@ STORE F,DCVFLG . HK )@@G@@ SET FLAG FOR RETURN@ @@@@ LOAD X1,DCVSV1 . @ @@@@ HL )@@G@@ LOAD X2,DCVSV1+1 . @ @@@@ LOADD A1,DCVSV1+2 . @ @@@@ HM )@@G@@ LOADD A7,DCVSV1+4 @ @@@@ LOADD A9,DCVSV1+6 @ @@@@ HN )@@G@@ LOADD A11,DCVSV1+8 . @#@@@@ JMP . @G@@@@/. *********HO )@@G@@******************************************************@G@@@@. * HP )@@G@@ DECIMAL NUMBER INPUT ROUTINE *@G@@@@. HQ )@@G@@ ***************************************************************@#@@@@HR )@@G@@CVCOND LABEL . @E@@@@ IF A9,LT,18,I THEN,CVDI2 . -> HS )@@G@@<= 17 DIGITS@E@@@@ IOERR 30,ERCV20 . 17 DIGITS USED [ERRHT )@@G@@OR] @D@@@@ SUB A9,17,I . ADJUST EXPONENT @^@@@@HU )@@G@@ ADD A7,A9 . @D@@@@ LOAD A9,17,I . SET TO HV )@@G@@17 DIGITS @#@@@@CVDI2 LABEL . @B@@@@ STORE A9,DCVDP . HW )@@G@@ SET P @^@@@@ LOAD X2,A9 . @B@@@@ SUB X2,A8 . HX )@@G@@ GET Q @B@@@@ STORE X2,DCVDQ . SET Q @D@@@@HY )@@G@@ SETGC 4,DLXCON . SET TO READ DIGITS @C@@@@ GETHZ )@@G@@C . IGNORE SIGN @D@@@@ LOADD A10,KKD0 . IA )@@G@@ SET FIRST PART TO 0@D@@@@ STORED A10,DCVTMP . SET UPPIB )@@G@@ER TO 0 @G@@@@ IF A9,LT,11,I THEN,CVDI3 . -> ONE COIC )@@G@@NVERT WILL WORK @F@@@@ SETL R1,10,I . SET TO DO FIRID )@@G@@ST TEN DIGITS @B@@@@CVDI2A LABEL . TOP OF LOOP TO CONVERT @D@@@@IE )@@G@@ MPYS A10,10,I . SCALE PREVIOUS SUM @D@@@@ GETIF )@@G@@C . GET NEXT DIGIT @C@@@@ SUB A8,'0',IG )@@G@@I . REMOVE ZONE @D@@@@ ADD A10,A8 . ADD IN IH )@@G@@CURRENT CHAR@D@@@@ LOOP R1,CVDI2A . DO ALL TEN DIGITS II )@@G@@@D@@@@ SUB A9,10,I . 10 FEWER DIGITS NOW@G@@@@ IJ )@@G@@ LOAD X2,A9 . GET INDEX TO SCALE FOR UPPER HALF @E@@@@IK )@@G@@ MPY A10,CVPW10,X2 . SCALE UPPER TEN DIGITS @E@@@@CVDI3 IL )@@G@@ LABEL . FEWER THAN 11 DIGITS HERE@F@@@@ SETIM )@@G@@L A9 . SET TO DO REMAINING DIGITS @E@@@@ LOAIN )@@G@@D A12,0,I . CLEAR REG TO HOLD SUM @F@@@@CVDI3A LABEL . IO )@@G@@ TOP OF LOOP FOR LAST DIGITS @D@@@@ MPYS AIP )@@G@@12,10,I . SCALE CURRENT SUM @C@@@@ GETC . IQ )@@G@@ GET NEXT CHAR@C@@@@ SUB A8,'0',I . REMOVE ZONE IR )@@G@@@D@@@@ ADD A12,A8 . ADD IN THIS CHAR @E@@@@ IS )@@G@@ LOOP A9,CVDI3A . CLOCK OFF LAST CHARS @E@@@@ STOIT )@@G@@RE A12,DCVTMP+1 . SAVE TO ADD INTO A10-A11 @E@@@@ ADDD A10IU )@@G@@,DCVTMP . ADD TO PREVIOUS PART @C@@@@ LOAD A9,DLXCS IV )@@G@@. GET SIGN @D@@@@ IF A9,EQ,'+',I THEN,CVDI3B . IW )@@G@@ -> + SIGN@C@@@@ LOADN A10,A10 . NEGATE NUMBER@^@@@@IX )@@G@@ LOADN A11,A11 .@#@@@@CVDI3B LABEL . @C@@@@ STORE A7,IY )@@G@@DCVTMP . SAVE EXP @B@@@@ LOAD A7,02074,I . GIZ )@@G@@ET EXP@G@@@@ DLCF A7,A10 . CONVERT TO FLOATING IN A8JA )@@G@@ *******@F@@@@ IF DLXCE,ON,DLXFLG THEN,CVDI5 . -> EXPONEJB )@@G@@NT PRESENT @E@@@@ SET CVFXFT,OFF . MAKE IT FIXED RESULJC )@@G@@T @D@@@@ STORED A8,DCVFFT . SET FIXED DECIMAL @D@@@@JD )@@G@@ IF DCVDQ,NZERO THEN,CVDI6 . -> Q\=0 @ @@@@. FLOJE )@@G@@AT = FUNNY FLOAT @D@@@@ STORED A8,DCVFLT . SET FLOATING JF )@@G@@VALUE @E@@@@ IF A10,EQ,0,I THEN,CVDI7 . -> VALID INTEGER JG )@@G@@@ @@@@ SET CVINTN,ON . @#@@@@CVDI7 LABEL . @D@@@@ JH )@@G@@ STORE A11,DCVINT . SAVE INTEGER FORM @D@@@@ LOAD A10JI )@@G@@,DCVDP . CREATE BINARY P @C@@@@ MPYS A10,DCVDTB . JJ )@@G@@ GET 3.32 P @^@@@@ SRB A10,14 . @E@@@@ ADD A10JK )@@G@@,1,I . CEIL(3.32 DECIMAL P) @ @@@@ STORE A10,DCVBPJL )@@G@@ . @D@@@@ LOAD A10,DCVDQ . SAVE FOR BINARY Q @ @@@@JM )@@G@@ MPYS A10,DCVDTB . @^@@@@ SRB A10,14 . @ @@@@ JN )@@G@@ STORE A10,DCVBQ . @C@@@@ GOTO CVRTN . -> RETUJO )@@G@@RN @B@@@@CVDI6 LABEL . Q"=0 @ @@@@. A7=JP )@@G@@ EXP TO DIVIDE BY @G@@@@ LOADN A3,DCVTMP . GET POSITIVE JQ )@@G@@LOCATION INTO TABLE @D@@@@ SLB A3,1 . GET POWJR )@@G@@ER 10*2 @#@@@@CVDI6A LABEL . @F@@@@ IF A3,LT,KFLTSZ+1,JS )@@G@@I THEN,CVDI6B . -> NO SCALING NEEDED@F@@@@ FDIVD A8,KKPW10+KFLTSJT )@@G@@Z-2 . SCALE BY MAX POWER OF 10 @D@@@@ SUB A3,KFLTSZ,I . JU )@@G@@ ADJUST EXPONENT @F@@@@ GOTO CVDI6A . -> SEE JV )@@G@@IF MORE SCALING NEEDED @#@@@@CVDI6B LABEL . @C@@@@ FDIVD A8,JW )@@G@@KKPW10-2,A3 . SCALE NUMBER@#@@@@CVEXIT LABEL . @D@@@@ STOJX )@@G@@RED A8,DCVFLT . SET FLOAT RESULT @C@@@@ GOTO CVRTN . JY )@@G@@ -> RETURN @#@@@@CVDI5 LABEL . @F@@@@ MOVE DJZ )@@G@@CVDQ,0,I . SCALE OF FLOATING NUMBER=0 @D@@@@ LOAD A3,KA )@@G@@DCVTMP . GET SCALE FACTOR @F@@@@ LSSC A3,1 . KB )@@G@@ GET SCALE FACTOR EXPONENT *2 @F@@@@ IF A3,EQ,0,I THEN,KC )@@G@@CVEXIT . -> SCALE =0, NO SCALING @F@@@@ IF A3,LT,0,I THEN,KD )@@G@@CVNSF . -> NEGATIVE SCALE FACTOR @D@@@@ IF A3,LT,300,I THEKE )@@G@@N,CVSAP ELSE,CVOVFL . @#@@@@CVUNFL LABEL . @C@@@@ LOADA X1,KF )@@G@@CVUNMG . SET UNDERFLOW@C@@@@ LOADD A8,KKD0 . SKG )@@G@@ET 0 DEFAULT@ @@@@ IOERR 27,ERCV25 . @F@@@@ GOTO CVEKH )@@G@@XIT . -> SET DCVFLOAT AND RETURN @#@@@@CVOVFL LABEL . KI )@@G@@@E@@@@ LOADD A8,CVMAXN . SET MAX VALUE FOR RETURN @E@@@@KJ )@@G@@ LOADA X1,CVOVMG . SET OVERFLOW MESSAGE @ @@@@ KK )@@G@@ IOERR 29,ERCV25 . @^@@@@ GOTO CVEXIT . @#@@@@CVSAP LABKL )@@G@@EL . @#@@@@CVSAPX LABEL . @H@@@@ IF A3,LT,KFLTSZ+1,I THENKM )@@G@@,CVSAPA . -> SINGLE SCALING TO BE DONE @E@@@@ FMPYD A8,KKPW10KN )@@G@@+KFLTSZ-2 . SCALE BY MAX POWER OF 10@D@@@@ SUB A3,KFLTSZ,I . KO )@@G@@ REDUCE EXPONENT @F@@@@ GOTO CVSAPX . -> SEE KP )@@G@@IF MORE SCALING NEEDED @#@@@@CVSAPA LABEL . @E@@@@ FMPYD A8,KQ )@@G@@KKPW10-2,A3 . SCALE REST OF NUMBER @B@@@@ GOTO CVEXIT . KR )@@G@@ RETURN @E@@@@CVNSF LABEL . NEGATIVE SCALKS )@@G@@E FACTPR @D@@@@ LOADN A3,A3 . SET + SCALE FACTOR KT )@@G@@@G@@@@ IF A3,GE,301,I THEN,CVUNFL ELSE,CVDI6A . CHECK UNDERFLKU )@@G@@OW @C@@@@CVNMX CSECT 3 . DATA STORAGE @E@@@@CVUNMGKV )@@G@@ INSERT 8,'SMA','LL. ',' 0 ' . NUMBER TOO SMALL @F@@@@CVOVMG INSKW )@@G@@ERT 15,'LAR','GE. ','10. ','E80 ' . NUMBER TOO BIG @D@@@@CVMAXN SF KX )@@G@@ 0377777777777 . MAX PLUS NUMBER @ @@@@CVJ SF 077777777KY )@@G@@7777 .@E@@@@CVPW10* SF +1 . DECIMAL POWERS OF 10 KZ )@@G@@@^@@@@CVPW1 SF 10 . @^@@@@CVPW2 SF 100 . @^@@@@CVPW3 LA )@@G@@ SF 1000 . @^@@@@CVPW4 SF 10000 . @^@@@@CVPW5 SF 100LB )@@G@@000 . @^@@@@CVPW6 SF 1000000 .@ @@@@CVPW7 SF 10000000 . LC )@@G@@@ @@@@CVPW8 SF 100000000 . @ @@@@CVPW9 SF 1000000000 . LD )@@G@@@ @@@@CVPW11 SF 10000000000 . @#@@@@ CEND . @D@@@@ERCV21LE )@@G@@ EQU 8 . 60 DIGITS USED @D@@@@ERCV20 EQU 9 .LF )@@G@@ 17 DIGITS USED @D@@@@ERCV25 EQU 10 . LG )@@G@@ NUMBER OUT OF RANGE@#@@@@ END . ___A10ERFLOW@C@@@@ LH )@@G@@ LOADD A8,KKD0 . SET 0 DEFAULT@ @@@@ IOERR 27,ERCV25LI )@@G@@ . @F@@@@ GOTO CVEXIT . -*[S@@@*SDFF*@C@@@[. COLJ )@@G@@PYRIGHT 1975 BY UNIVERSITY OF MARYLAND @[@@@[. @D@@@[. QUESTIONLK )@@G@@S CONCERNING THIS SHOULD BE DIRECTED TO: @[@@@[. @ @@@[. MARLL )@@G@@VIN V. ZELKOWITZ @B@@@[. DEPARTMENT OF COMPUTER SCIENCE @A@@@[LM )@@G@@. UNIVERSITY OF MARYLAND @B@@@[. COLLEGE PARK, MARYLANLN )@@G@@D 20742 @[@@@[. @G@@@[. PERMISSION TO USE THESE LISTINGS LO )@@G@@AND THE COMPUTER PROGRAMS THEY@E@@@[. REPRESENT IS GRANTED UNDER THE FLP )@@G@@OLLOWING CONDITIONS: @[@@@[. @G@@@[. 1. UNLIMITED USE MAY LQ )@@G@@BE MADE OF THE PROGRAMS REPRESENTED BY @G@@@[. THESE LISTINGS PROVILR )@@G@@DED THAT THE NAME PLUM OR UNIVERSITY OF MARYLAND@E@@@[. PL/1 COMPILER LS )@@G@@REMAINS ASSOCIATED WITH THESE PROGRAMS. @[@@@[. @F@@@[. 2. LT )@@G@@MODIFICATIONS MAY BE MADE TO THE LISTINGS PROVIDED: @[@@@[. @G@@@[LU )@@G@@. (A) ANY RESULTING PROGRAM, OR REPORT, PAPER OR DOCUMENTATION LV )@@G@@@G@@@[. DESCRIBING SUCH PROGRAM WILL CLEARLY INDICATE THAT THE PRLW )@@G@@OGRAM @E@@@[. IS A DIALECT OF PLUM OR IS DERIVED FROM PLUM, AND LX )@@G@@@[@@@[. @G@@@[. (B) ALL SUCH MODIFICATIONS, OTHER THAN TRIVIALY )@@G@@L CORRECTIONS @F@@@[. OF ERRORS IN THE SOURCE PROGRAMS, SHALLLZ )@@G@@ BE REPORTED AND @G@@@[. A BRIEF DESCRIPTION OF THE FEATURE ADDEMA )@@G@@D SHALL BE SUBMITTED @C@@@[. TO THE UNIVERSITY OF MARYLAND, ANMB )@@G@@D @[@@@[. @F@@@[. (C) NO PROGRAMS DERIVED FROM THESE LISTMC )@@G@@INGS SHALL BE SOLD@G@@@[. WITHOUT WRITTEN APPROVAL FROM THE UNIVEMD )@@G@@RSITY OF MARYLAND, AND @[@@@[. @F@@@[. (D) COPIES OF THESE PME )@@G@@ROGRAMS MAY BE TRANSMITTED TO OTHER @G@@@[. LOCATIONS PROVIDED THMF )@@G@@AT SUCH TRANSMITTALS CLEARLY INDICATE @G@@@[. WHETHER THE PROMG )@@G@@GRAMS ARE EXACT COPIES OF THE UNIVERSITY OF @E@@@[. MARYLAND MH )@@G@@PLUM COMPILER OR ARE MODIFICATIONS TO IT. @[@@@[. @G@@@[. 3. MI )@@G@@THESE CONDITIONS ONLY APPLY TO THE PLUM COMPILER ITSELF, @F@@@[. ANMJ )@@G@@D ARE NOT MEANT TO APPLY TO ANY PROGRAM WRITTEN USING PLUM. @E@@@[. THMK )@@G@@E PURPOSE OF THESE CONDITIONS IS TO ALLOW ANY USER TO @F@@@[. EXPERIMEML )@@G@@NT WITH THE COMPILER AS LONG AS THE RESULTING PRODUCT @G@@@[. IS NOT SMM )@@G@@OLD AND AS LONG AS IT IS KNOWN THAT THE PRODUCT DEVELOPED @#@@@[. FRMN )@@G@@OM PLUM. @[@@@[. @[@@@[. @[@@@[. @[@@@[. @[@@@[. MO )@@G@@@[@@@[/. @#@@@[ AXR$ . @#@@@[ DCLRG . @#@@@[ MP )@@G@@ PLWORD . @#@@@[ PLBASE . @#@@@[ PLAR . @#@@@[ MQ )@@G@@ UNLIST . @#@@@[@ADD,P PLTVDS @]@@@[@ADD,P EXCDS@#@@@[ LISMR )@@G@@T . @#@@@[ DEND . @#@@@[ CEND . @[@@@[. @[@@@[MS )@@G@@/. @A@@@[. STORAGE ALLOCATOR AND FREER @[@@@[. @[@@@]. MT )@@G@@@]@@@]. TO USE: @#@@@]. ON ALLOCATION:@ @@@]. TO ENTER AT STORABMU )@@G@@UF DO @C@@@]. LA,U A5,SIZE OF BLOCK WANTED @A@@@]. MV )@@G@@ LMJ X11,STORABUF @[@@@]. @G@@@]. THIS CALL SHOULD BMW )@@G@@E USE TO OBTAIN NON-BASED STORAGE SUCH AS FOR @G@@@]. FILE BUFFERS.MX )@@G@@ ON RETURN A1 WILL POINT TO THE STORAGE REQUESTED @[@@@]. @E@@@]MY )@@G@@. TO ENTER AT STORALLOC THE CALLING SEQUENCE SHOULD BE @C@@@]. MZ )@@G@@ LA,U A5,SIZE OF STORAGE WANTED @B@@@]. LA,U A3,PTNA )@@G@@R TO AREA HEADER @A@@@]. LMJ X11,STORALLOC @F@@@]. TNB )@@G@@HIS SHOULD BE USED FOR BASED STORAGE REQUESTS SINCE THE @F@@@]. GNC )@@G@@ENERATION LISTHEAD WILL BE INCLUDED IN THE FIRST FOUR WORDS @E@@@]. OND )@@G@@F THE BLOCK RETURNED. ON RETURN A1 WILL POINT TO THE @ @@@]. GENERATNE )@@G@@ION LISTHEAD. @[@@@]. @#@@@]. ON FREEING: @A@@@]. THE CANF )@@G@@LLING SEQUENCE SHOULD BE@D@@@]. LA,U A1,ADDRESS OF BLOCK TO NG )@@G@@BE RETURNED @ @@@]. LMJ X11,STORFBUF@]@@@]. OR @D@@@]NH )@@G@@. LA,U A1,ADDRESS OF BLOCK TO BE RETURNED @C@@@]. NI )@@G@@ LA,U A3,ADDRESS OF AREA HEADER @ @@@]. LMJ X11,STORFREENJ )@@G@@@F@@@]. DEPENDING ON WHETHER STORAGE WAS OBTAINED THROUGH STORABUF NK )@@G@@@A@@@]. OR STORALLOC RESPECTIVELY. @[@@@]. @A@@@]. THESE RNL )@@G@@OUTINES USE A1-A5,X11 @[@@@]. @#@@@[STOR CSECT 3 .@ @@@[ NM )@@G@@ USING AREC,X10 . @G@@@[STORABUF* LLOC . ENTRY FNN )@@G@@OR NONBASED STRG REQUESTS @E@@@[ LOADA A3,SYSARE . GNO )@@G@@ET SYSTEM AREA HEADER @E@@@] LOAD R2,0,I . SET FLANP )@@G@@G FOR FILE ENTRY @G@@@[ ADD A5,1,I . NEED ONE MORENQ )@@G@@ WORD FOR STRG ROUTINE @ @@@] GOTO ALLC00 . @D@]@[STORALNR )@@G@@LOC* LOCAL . ALLOCATE STORAGE @D@@@]STORALLOC* LLOC NS )@@G@@ . ALLOCATE STORAGE @E@@@] LOAD R2,1,I . NT )@@G@@ FLAG 0 => NOT FILE ENTRY @ @@@]ALLC00 LOCAL . MERGE HERE @A@@@[NU )@@G@@ LOAD A4,AREFRE,A3 . @E@@@[ IF A4,NZERO THENV )@@G@@N,ALLOC1 . FREE LIST NOT EMPTY@#@@@[ALLOC0 LABEL . @F@@@]. IF NW )@@G@@ A3,NE,SYSARE,I THEN,DO SOMETHING - IT'S AN ERROR@E@@@]. SINNX )@@G@@CE A NON-SYSTEM AREA FREELIST SHOULD ALWAYS BE @#@@@]. NON-EMPTYNY )@@G@@@D@@@[ LOAD X11,ADPCND . GET TOP OF STACK @C@@@[ NZ )@@G@@ SUB X11,A5 . SUBTRACT LENGTH+1@ @^@[ LOAD A4,X11 OA )@@G@@. @H@@@^ IF GOEXEC,OFF,DGOPHF THEN,ALLC01 . EXECUTE PHOB )@@G@@ASE? (CHANCY) @ @@@^ LOAD A4,X11 . @F@@@[ IF OC )@@G@@ A4,LT,AREPTR THEN,ALLOCERR . STACK OVERFLOW @#@@@^ALLC01 LABOD )@@G@@EL . @G@@@ LOADA A3,SYSARE . RESTORE A3 TO SYSTEM AREAOE )@@G@@ HEADER @D@@@[ STORE X11,ADPCND . RESET STACK PTROF )@@G@@@E@@@[ STORE A5,GENLEN,X11 . STORE LNGTH OF BLLOCK @G@@@[OG )@@G@@ LOAD A4,ARENXT,A3 . GET PTR TO FIRST NODE ON FREE LIST OH )@@G@@@H@@@[ STORE A4,GENNXT,X11 . INSERT NEW NODE BETWEEN HEADER OI )@@G@@+ FIRST @A@@@[ STORE X11,ARENXT,A3 . @E@@@[ LOAOJ )@@G@@D A1,X11 . PASS BACH ADDR OF BLOCK @B@@@[ GOTO AOK )@@G@@LLRTRN . RETURN @#@@@[ALLOCERR LABEL . @D@@@[ LINK WOL )@@G@@ROVFL . STACK OVERFLOW @A@@@[. WE MIGHT RETURN HERE SOMEDOM )@@G@@AY @#@@@[ALLOC1 LABEL . @D@@@[ LOAD X11,A3 . PTRON )@@G@@ TO PREVIOUS NODE @E@@@[ LOAD A2,AREFRE,X11 . PTR TO CUROO )@@G@@RENT NODE @#@@@[ALLOC2 LABEL . @A@@@[ LOAD A4,GENLEN,A2 OP )@@G@@. @D@@@[ IF A4,GT,A5 THEN,ALLOC3 ELSE,ALLOC4 . @D@@@[OQ )@@G@@ALLOC3 LABEL . FOUND A LARGER THAN NEEDED BLOCK @F@@@[ LOAOR )@@G@@D A1,A2 . MUST SUBDIVIDE BLOCK + SET LINKS @^@@@[ ADDOS )@@G@@ A1,A5 .@G@@@[ IF A3,EQ,X11 THEN,ALLC15 . IN HEADER FOT )@@G@@REE LIST IS IN H2 @I@@@[ STORE A1,FRENXT,X11 . SET FWRD LOU )@@G@@INK OF PROCEDING BLOCK TO SUBBLO @ @@@[ GOTO ALLC16 . OV )@@G@@@#@@@[ALLC15 LABEL . @A@@@[ STORE A1,AREFRE,X11 . @#@@@[OW )@@G@@ALLC16 LABEL . @A@@@[ LOAD A4,FRENXT,A2 . @A@@@[ OX )@@G@@ STORE A4,FRENXT,A1 . @A@@@[ LOAD X11,FRELEN,A2 . OY )@@G@@@ @@@[ SUB X11,A5 . @G@@@[ STORE X11,FRELEN,A1OZ )@@G@@ . SET UP NEW LNGTH FOR SUBBLOCK @F@@@[ STORE A5,GENLPA )@@G@@EN,A2 . SET LNGTH OF PASSED BLOCK @G@@@[ LOAD A4,ARENPB )@@G@@XT,A3 . INSERT NEW NODE ON ALOOC'ED LIST @A@@@[ STORE APC )@@G@@4,GENNXT,A2 . @A@@@[ STORE A2,ARENXT,A3 . @E@@@[ PD )@@G@@ LOAD A1,A2 . PASS BACK ADDR OF BLOCK @ @@@[ GOTPE )@@G@@O ALLRTRN . @#@@@[ALLOC4 LABEL . @F@@@[ IF A4,EQ,APF )@@G@@5 THEN,ALLOC5 . FOUND EXACT SIZE BLOCK @H@@@[ LOAD X11,A2 PG )@@G@@. ELSE, INCREMENT PTRS AND TRY NEXT ONE @A@@@[ LOAPH )@@G@@D A2,FRENXT,A2 . @I@@@[ IF A2,EQ,0,I THEN,ALLOC0 EPI )@@G@@LSE,ALLOC2 . EQ=>END OF LIST SO GET F @#@@@[ALLOC5 LABEL . @A@@@[PJ )@@G@@ LOAD A4,FRENXT,A2 . @G@@@[ IF A3,EQ,X11 THPK )@@G@@EN,ALLC17 . IN HEADER, FREE LIST IS IN H2 @F@@@[ STORE A4,FRENPL )@@G@@XT,X11 . RETURN EXACT SIZE BLOCK @ @@@[ GOTO ALLC18 PM )@@G@@. @#@@@[ALLC17 LABEL . @A@@@[ STORE A4,AREFRE,X11 . PN )@@G@@@#@@@[ALLC18 LABEL . @G@@@[ LOAD A4,ARENXT,A3 . INSERT PO )@@G@@NEW NODE IN ALLOC'ED LIST @A@@@[ STORE A4,GENNXT,A2 . PP )@@G@@@A@@@[ STORE A2,ARENXT,A3 . @^@@@[ LOAD A1,A2 . PQ )@@G@@@#@@@[ALLRTRN LABEL . @ @@@# USING WORD,A1 . @ @@@[ PR )@@G@@ USING GENLST,A1 . @^@@@] LOAD A2,R2 .@E@@@] IF PS )@@G@@ A2,EQ,0,I THEN,ALLFRTN . STORABUF ENTRY @G@@@[ MOVE GPT )@@G@@ENPTR,0,I . FINISH SETTING GENERATION LISTHD @ @@@[ MOVPU )@@G@@E GENFLG,0,I . @ @@@[ MOVE GENPRV,0,I . @D@@@[ STOPV )@@G@@RE A3,GENARE . AREA HEADER PTR @E@@@# MOVE W1+3,0,PW )@@G@@I . ZERO OUT GENSD AND GENADR@^@@@[ JMP . RETURN @#@@@]PX )@@G@@ALLFRTN LABEL . @F@#@] SUB A1,1,I . JUST RETURN PPY )@@G@@TR TO ACTUAL STRG @F@@@# ADD A1,1,I . JUST RETURN PPZ )@@G@@TR TO ACTUAL STRG @#@@@] JMP . @[@@@[/. @[@@@[. @^@@@[QA )@@G@@. FREE STORAGE ROUTINE@[@@@[. @G@@@[STORFBUF* LLOC. QB )@@G@@ ENTRY FOR NON-BASED STRG REQUESTS @D@@@[ SUB A1,1,I QC )@@G@@. GET TO BLOCK HEADER@E@@@[ LOADA A3,SYSARE . GQD )@@G@@ET STRG FROM SYSTEM AREA@^@@@[STORFREE* LOCAL .@G@@@[ LOAQE )@@G@@D X11,A3 . INITIALIZE PTR INTO ALLOC'ED LIST @#@@@[FREELIQF )@@G@@NK LABEL . @H@@@[ LOAD A2,X11 . GO DOWN ALLOC'ED LQG )@@G@@IST. A2=TRAILER PTR, @D@@@[ LOAD X11,ARENXT,A2 . X11=CUQH )@@G@@RRENT PTR @G@@@[ IF A1,NE,X11 THEN,FREELINK . HAVEN'T REQI )@@G@@ACHED NODE YET @D@@@[ LOAD X11,GENNXT,X11 . GET NEXT NOQJ )@@G@@DE @F@@@[ STORE X11,GENNXT,A2 . SKIP CURRENT NODE,I.E. UQK )@@G@@NLINK @G@@@[ IF A1,EQ,ADPCND THEN,ALLOC6 . RETURN NODE TOQL )@@G@@ STORAGE @A@@@[ LOAD A2,AREFRE,A3 . @E@@@[ IF QM )@@G@@ A2,EQ,0,I THEN,ALLOC7 . NOTHING FREED YET @[@@@[. @F@@@[. PTRQN )@@G@@S: A1=NODE TO INSERT,A2=CURRENT NODE IN FREE LIST, AND X11 @C@@@[. QO )@@G@@ IS A PTR ONE BEHIND A2 IN THE LIST @[@@@[. @#@@@[ALLOC9 LABQP )@@G@@EL . @D@@@[ LOAD X11,A2 . INCREMENT PTRS @A@@@[QQ )@@G@@ LOAD A2,FRENXT,A2 . @D@#@[ IF A1,GE,X11 THQR )@@G@@EN,ALLOC8 ELSE,ALLOC9 . @B@@@# IF A1,LT,X11 THEN,ALLOC9 . QS )@@G@@@#@@@#ALLOC8 LABEL . @ @@@# LOAD A4,X11 . @H@@@# QT )@@G@@ ADD A4,FRELEN,X11 . GET PTR TO ONE PAST PREVIOUS NODE IN LIST QU )@@G@@@B@@@# IF A4,EQ,A1 THEN,ALLC10 . @^@@@# LOAD AQV )@@G@@4,A1 .@F@@@# ADD A4,FRELEN,A1 . GET PTR TO ONE PAST NEW NQW )@@G@@ODE @B@@@# IF A4,EQ,A2 THEN,ALLC11 . @F@@@# STOQX )@@G@@RE A1,FRENXT,X11 . PUT IN LIST, NO COLLAPSING @A@@@# STOQY )@@G@@RE A2,FRENXT,A1 . @B@@@# JMP . RETURN QZ )@@G@@@F@@@[ALLOC6 LABEL . RETURN STORAGE ON TOP OF STACK RA )@@G@@@ @@@[ LOAD X11,ADPCND . @E@@@[ ADD X11,FRELEN,A1RB )@@G@@ . ADD LNGTH OF BLOCK @E@@@[ STORE X11,ADPCND . RRC )@@G@@ESET END OF CORE PTR @F@@@[ LOAD A2,AREFRE,A3 . GET FIRSRD )@@G@@T NOODE ON FREE LIST @G@@@[ IF A2,NE,ADPCND THEN,JMP . RE )@@G@@CAN'T RETURN ANY MORE STRG @^@@@[ LOAD A1,A2 .@D@@@[ RF )@@G@@ ADD A1,FRELEN,A2 . GET NEW END OF CORE @E@@@[ STORE ARG )@@G@@1,ADPCND . RESET END OF CORE PTR @E@@@[ LOAD A2,FRENRH )@@G@@XT,A2 . REMOVE NODE FROM FREE LIST @A@@@[ STORE A2,AREFRE,A3 RI )@@G@@. @B@@@[ JMP . RETURN @D@@@[ALLOC7 LABRJ )@@G@@EL . FREE LIST EMPTY, PUT IN FIRST NODE @G@@@[ STORE A1,AREFRK )@@G@@RE,A3 . POINT TO THIS NODE AS FIRST ONE @ @#@[ LOAD ARL )@@G@@4,0,I . @E@#@[ STORE A4,FRENXT,A1 . SET END OF LIST FRM )@@G@@LAG @ @@@# USING GENLST,A1 . @E@@@# MOVE FRENXT,RN )@@G@@0,I . SET END OF LIST FLAG @B@@@[ JMP . RO )@@G@@ RETURN @#@#@[ALLOC8 LABEL . @ @#@[ LOAD A4,X11 . RP )@@G@@@H@#@[ ADD A4,FRELEN,X11 . GET PTR TO ONE PAST PREVIOUS NORQ )@@G@@DE IN LIST @B@#@[ IF A4,EQ,A1 THEN,ALLC10 . @^@#@[ RR )@@G@@ LOAD A4,A1 .@F@#@[ ADD A4,FRELEN,A1 . GET PTR TO ONRS )@@G@@E PAST NEW NODE @B@#@[ IF A4,EQ,A2 THEN,ALLC11 . @F@#@[RT )@@G@@ STORE A1,FRENXT,X11 . PUT IN LIST, NO COLLAPSING @A@#@[RU )@@G@@ STORE A2,FRENXT,A1 . @B@#@[ JMP . RV )@@G@@ RETURN @F@@@[ALLC10 LABEL . COLLAPSE STRG: ADD NEW NODE TO PREV NRW )@@G@@ODE IN LIST @A@@@[ LOAD A4,FRELEN,A1 . @D@@@[ ADDRX )@@G@@ A4,FRELEN,X11 . INCREASE LNGTH @F@@@[ STORE A4,FRELRY )@@G@@EN,X11 . STORE NEW LNGTH IN BLOCK @F@@@[ ADD A4,X11 RZ )@@G@@. GET ADDR AFTER INCREASED BLOCK @H@@@[ IF A4,NE,ASA )@@G@@2 THEN,JMP . CAN'T COLLAPSE WITH FOLLOWING BLOCK @ @@@[ LOASB )@@G@@D A1,X11 . @G@@@[ALLC11 LABEL . COLLAPSE STRG: ADD BLLOCK TO FSC )@@G@@OLLOWING BLOCK IN LIST @A@@@[ LOAD X11,FRELEN,A1 . @F@@@[SD )@@G@@ ADD X11,FRELEN,A2 . ADD LNGTH OF FOLLOWING BLOCK@G@@@[SE )@@G@@ STORE X11,FRELEN,A1 . STORE LNGTH INTO INCREASED BLOCK SF )@@G@@@A@@@[ LOAD A4,FRENXT,A2 . @H@@@[ STORE A4,FRENSG )@@G@@XT,A1 . SET PTR TO THIS NODE TO BEGIN OF NEW STRG@B@@@[ JMPSH )@@G@@ . RETURN @#@@@[ CEND . @#@@@[ ENDSI )@@G@@ . ___LOCK @ @@@[ GOTO ALLC18 *[S@@@*SDFF*@#@@@@ SJ )@@G@@ AXR$ @^@@@@B11 EQU X11 @#@@@@$(2) LIT. @ @@@@SK )@@G@@F FORM 6,6,6,18 @ @@@@P FORM 12,6,18 @G@@@@SL )@@G@@ . FOLLOWING LOCATION HAS RELATIVE WORD ADDRESS OF IMAGE IN FILE.SM )@@G@@@G@@@@ . ALSO BIT 33 INDICATES SOURCE OUTPUT IS IN ASCII, AND BITSN )@@G@@ 32 @F@@@@ . INDICATES 'H' OPTION (SCAN ONLY THRU COLUMN 72) ISSO )@@G@@ ON. @H@@@@SIRADD* + 0 . THIS CAN BE REFERENCSP )@@G@@ED BY @PDP, ETC. @I@@@@SIRAD1 + 0 . SIRADD SQ )@@G@@VALUE PLUS CURRENT IMAGE LENGTH @^@@@@SIRB11* + 0 @B@@@@SR )@@G@@PARCON + 0,0 . @^@@@@PARFLG + 0 SS )@@G@@@F@@@@PASS2* + 0 . SET FOR INITIALLY ENTRY ST )@@G@@@H@@@@SIREF$* + 0 . SET WHEN ERROR DETECTED SU )@@G@@IN EDITING @E@@@@ . MODE. USED SV )@@G@@BY ASM@ @@@@PARCOR EQUF PARFLG,,S1@ @@@@PARSEP EQUF PARFSW )@@G@@LG,,S2@ @@@@PARCNM EQUF PARFLG,,S3@ @@@@PARMOD EQUF PARFSX )@@G@@LG,,S4@ @@@@PAREOF EQUF PARFLG,,S5@ @@@@PARN EQUF PARFSY )@@G@@LG,,S6@B@@@@PARLRM + 0,0 . @B@@@@PARIML + SZ )@@G@@ 0,0 . @^@@@@PARMAT + 1,0 @F@]@@PAROILTA )@@G@@ + 1,IMAGE+63 . PAR CORR OUTPUT LIMIT @F@@@]PAROILTB )@@G@@ + 1,IMAGE+35 . PAR CORR OUTPUT LIMIT @^@@@@PARO TC )@@G@@ + 0 @^@@@@ + 0 @^@@@@PARI + TD )@@G@@ 0 @^@@@@ + 0 @B@@@@PARCC + 1,PARCD TE )@@G@@ . @B@@@@ + 5 . @^@@@@PARASCTF )@@G@@ ' ASCII MODE '@^@@@@PARNF ' NO FIND '@^@@@@PARSPR ' SEPARATG )@@G@@TOR '@^@@@@PARCOL ' COLUMN ' @^@@@@PARGT ' CARD COUNT>'@^@@@@TH )@@G@@PARLT ' CARD COUNT<'@F@@@@PARP P 1,8,PARE . EDTI )@@G@@IT ERROR PRINT CONTROL @A@@@@PARE 'SIR EDIT ERR '@H@@@@TJ )@@G@@. NOTE: FOLLOWING LABELS 'CORIMG' AND 'PARCD' MUST REMAIN WHERE THEY ARTK )@@G@@E FOR @B@@@@. CORRECT EDIT ERROR MESSAGES TO BE OUTPUT@F@@@@CORIMG. TL )@@G@@ CORRECTION CARD IMAGE @ @@@@ DOTM )@@G@@ 4 , ' ' @H@@@@PARCD. PARTIAL TN )@@G@@LINE CORRECTION CARD IMAGE @ @@@@ DO 15 , ' ' @E@@@@TO )@@G@@CDLMT + 1,IMAGE . CARD LENGTH LIMIT @ @@@@SIRCR TP )@@G@@ + SIRE,IMAGE@ @@@@SIRPT P 1,14,IMAGE@F@@@@ASCPCWTQ )@@G@@ P 1,20,IMAGE . ASCII PRINT CONTROL WORD@^@@@@SIRUS TR )@@G@@ + 0 @^@@@@N + 0 @^@@@@N1 + TS )@@G@@ 0 @^@@@@M + 0 @^@@@@M1 + 0 @D@@@@TT )@@G@@FLAG + 0 FLAG WORD @^@@@@FLAG1 + TU )@@G@@ 0 @^@@@@FLAG2 + 0 @A@@@@TAG + 0777TV )@@G@@776,IMAGET-1@ @@@@IMAT + 1,IMAGET @B@@@@ + TW )@@G@@ 5 . @^@@@@NDC + 0 @^@@@@SEQ + TX )@@G@@ 0 @^@@@@SEQ1 + 0 @ @[@@CMPIN + 1,INTY )@@G@@1 @^@@@[CMPIN + 1,0 @^@@@@ + 5 @ @@@@TZ )@@G@@CMPOUT + 1,IMAGE @^@@@@ + 5 @^@@@@CMPICCUA )@@G@@ + 0 @ @[@@CMPCP + SIRERR,IN1@ @@@[CMPCP + UB )@@G@@ SIRERR,0 @^@@@@CMPCON + 0,0 @F@@@@CID + UC )@@G@@ 0 CORRECTION IDENTIFIER WORD@E@@@@SIC + UD )@@G@@ 0 SOURCE INPUT COUNTER@^@@@@SIRCCC + 0 UE )@@G@@@D@@@#SIRBUFPT + 0 . ALLOCATED BUFFER@A@@@@SIR05 UF )@@G@@ + 050505050505 @^@@@@DIFF + 0 @A@@@@SIR040UG )@@G@@ + 040040040040 @ @@@@DNCAR + ' ' @ @@@@UH )@@G@@SIRSDF + '*SDFF*' @ @@@@FDC + ' ' @[@@@@UI )@@G@@. @B@@@@NCCMSG 'SIR: NO CHANGE CARDS FOLLOW' @^@@@@NCCN ' UJ )@@G@@ ' @B@@@@NCCPCW P 2,NCCPCW-NCCMSG,NCCMSG@[@@@@. UK )@@G@@@A@@@@OPSERM 'SIR: INVALID SDF LABEL' @^@@@@OPSLBL + 0 UL )@@G@@@B@@@@OPSPCW P 2,OPSPCW-OPSERM,OPSERM@@@@@@@C@@@@ . SIUM )@@G@@R FILE CONTROL TABLE FOR SDF INPUT @@@@@@@^@@@@SIRIN + 0 UN )@@G@@@^@@@@ + 0 @^@@@@ + 0 @ @@@@ UO )@@G@@ F 0,020,0,0 @ @@@@ + IBL,0 @^@@@@ UP )@@G@@ + 0 @E@[@@ + IN1,IN2 BUFFER CUQ )@@G@@ONTROL WORD @E@@@[ + 0,0 BUFFER CONTROL WORUR )@@G@@D @H@[@@ + IBLS,63 BUFFER LENGTH (SECTOUS )@@G@@RS) - USER LENGTH @H@@@[. + IBLS,63 BUFFER LUT )@@G@@ENGTH (SECTORS) - USER LENGTH @H@@@[ + IBLS,35 . UU )@@G@@ PLUM PLUM PLUM PLUM PLUM PLUM PLUM @ @@@@ + 1,IMUV )@@G@@AGE @E@@@@ + 1,0 BUFFER LOCATOR WORD UW )@@G@@@E@@@@ + 0 IMAGE CONTROL WORD @@@@@@UX )@@G@@@C@@@@ . SIR FILE CONTROL TABLE FOR SDF OUTPUT @@@@@@@^@@@@SIROUTUY )@@G@@ + 0 @^@@@@ + 0 @^@@@@ + UZ )@@G@@ 0 @ @@@@ F 0,010,0,0 @ @@@@ + OBL,VA )@@G@@0 @^@@@@ + 0 @E@[@@ + OUT1,OUT2 VB )@@G@@ BUFFER CONTROL WORD @D@@@[ + 0,0 BUVC )@@G@@FFER CONTROL WORD @H@[@@ + OBLS,63 BUFFER LVD )@@G@@ENGTH (SECTORS) - USER LENGTH @H@@@[. + OBLS,63 VE )@@G@@ BUFFER LENGTH (SECTORS) - USER LENGTH @H@@@[ + OBLSVF )@@G@@,35 . PLUM PLUM PLUM PLUM PLUM PLUM PLUM @ @@@@ + VG )@@G@@ 1,IMAGET @E@@@@ + 1,0 BUFFER LVH )@@G@@OCATOR WORD @E@@@@ + 0 IMAGE CONTROL VI )@@G@@WORD @^@[@@IMAGE RES 64 @^@@@[. IMAGE RES 64 @^@[@@VJ )@@G@@IMAGET RES 64 @^@@@[. IMAGET RES 64@^@@@@OBL EQVK )@@G@@U 224 @G@@@@OBLS EQU OBL//28 NUMBER OF SECTVL )@@G@@ORS FOR BUFFER @D@[@@OUT1* RES OBL OUTPUT BVM )@@G@@UFFER @E@@@[. OUT1* RES OBL OUTPUT BUFFER VN )@@G@@@D@[@@OUT2* RES OBL OUTPUT BUFFER @E@@@[. OUT2VO )@@G@@* RES OBL OUTPUT BUFFER @^@@@@IBL EQVP )@@G@@U 224 @G@@@@IBLS EQU IBL//28 NUMBER OF SECTVQ )@@G@@ORS FOR BUFFER @D@[@@IN1* RES IBL INPUT BUVR )@@G@@FFER @D@@@[. IN1* RES IBL INPUT BUFFER@D@[@@VS )@@G@@IN2* RES IBL INPUT BUFFER @D@@@[. IN2* VT )@@G@@RES IBL INPUT BUFFER@D@@@@IOP EQUF FLAGVU )@@G@@,,S1 I OPTION FLAG @D@@@@UOP EQUF FLAG,,S2 VV )@@G@@ U OPTION FLAG @D@@@@WOP EQUF FLAG,,S3 W OPTIONVW )@@G@@ FLAG @D@@@@USER EQUF FLAG,,S4 USER FLAG @H@@@@VX )@@G@@NCARD EQUF FLAG,,S5 . 'N' MODE FLAG. SET WHEN 'N' REAVY )@@G@@D @H@@@@ . (IE. -1) AND CLEAREDVZ )@@G@@ WHEN CHANGE CARD @H@@@@ . READ. IWA )@@G@@F NO CHANGE CARD FOLLOWS THEN @I@@@@ WB )@@G@@ . ANOTHER -N, -N,M OR AN EOF RETURN CAUSES @G@@@@ WC )@@G@@ . DIAGNOSTIC MSG TO BE PRINTED. @D@@@@TAPE EQWD )@@G@@UF FLAG,,S6 TAPE FLAG @D@@@@KOP EQUF FLAGWE )@@G@@1,,S1 K OPTION FLAG @D@@@@HOP EQUF FLAG1,,S2 WF )@@G@@ H OPTION FLAG @H@@@@NOTSIR EQUF FLAG1,,S3 . WHEN SETWG )@@G@@ THIS FLAG INDICATES THE INPUT@I@@@@ WH )@@G@@ . FILE/ELEMENT IS NOT SIR-TYPE SDF. FLAG @H@@@@ WI )@@G@@ . IS SET AT OPNSR$ AFTER THE LABEL WORD @H@@@@ WJ )@@G@@ . IS CHECKED. THIS IS NECESSARY SO THATWK )@@G@@@I@@@@ . SIR CAN IGNORE INFO IN THEWL )@@G@@ ELEMENT CYCLE @I@@@@ . FIELDS OWM )@@G@@F THE DATA CONTROL WORDS (S3-S6) @F@@@@CORERR EQUF FLAG1,,S4 WN )@@G@@ . CORRECTION CARD ERROR @D@@@@JOP EQUF FLAG1,,S5 WO )@@G@@ J OPTION FLAG @D@@@@GOP EQUF FLAG1,,S6 G WP )@@G@@OPTION FLAG @E@@@@ASCPF EQUF FLAG2,,S3 PF ELEMENT CODEWQ )@@G@@ TYPE @D@@@@ASCOP EQUF FLAG2,,S4 CALL FOR ASCII @D@@@@WR )@@G@@QOP EQUF FLAG2,,S5 Q OPTION FLAG @E@@@@ASCINT EQWS )@@G@@UF FLAG2,,S6 CODE TYPE INTERNAL @D@@@@RC EQUF WT )@@G@@ PARTBL+13,,S6 REQUESTED CYCLE@F@@@@NEWC EQUF SIRIN+10,,WU )@@G@@S5 NEW CARD IMAGE THIS UPDATE @H@@@@NUMDLE EQUF SIRIN+10,,WV )@@G@@S3 NUM IMAGES DELETED BEFORE THIS IMAGE @D@@@@AC EQUF WW )@@G@@ SIRIN+10,,S6 ACTUAL CYCLE @D@@@@DC EQUF SIRIN+10,,WX )@@G@@S4 DELETE CYCLE @D@@@@CL EQUF PARTBL+9,,S2 CYCWY )@@G@@LE LIMIT @D@@@@LC EQUF PARTBL+9,,S4 LATEST CYCLE WZ )@@G@@@D@@@@CC EQUF PARTBL+9,,S6 CYCLE COUNT @D@@@@BL XA )@@G@@ EQUF SIRIN+7,,H1 BUFFER LENGTH @E@@@@UL EQUF XB )@@G@@ SIRIN+7,,H2 USER BUFFER LENGTH @ @@@@/. GET SOURCE INPUT ROUTXC )@@G@@INE @[@@@@$(1). @]@@@@GETASC*. @^@@@@GETAS$* L,U A1,1@F@@@@XD )@@G@@ S A1,ASCOP . $P SET ASCII TO USER FLAG@^@]@@XE )@@G@@ J $+2 @ @@@]. J $+2 @]@]@@GETSRCXF )@@G@@*. @]@@@]. GETSRC*. @ @]@@GETSR$* SZ ASCOP @ @@@]. GETSXG )@@G@@R$* SZ ASCOP @ @@@@ S A0,SIRUS @E@@@@ XH )@@G@@ S B11,SIRB11 SAVE RETURN ADDRESS @E@@@@ TZXI )@@G@@ PASS2 . $T SECOND PASS @D@@@@ J XJ )@@G@@ GETSP . $J GETSP @E@@@@ TP N XK )@@G@@ . $T INITIAL ENTRY @C@@@@ J SIRXYZ XL )@@G@@ . YES @E@@@@SIRST TNZ IOP . $T I OPTION XM )@@G@@ON @D@@@@ TNZ N . $T N=ZERO @ @@@@XN )@@G@@ J GETCD @^@@@@ TNZ PARN@B@@@@ XO )@@G@@ J GETSI . @^@@@@ SZ PARN@G@@@@XP )@@G@@ L A5,N1 . SET UP TO DELETE NEXT CARD XQ )@@G@@@B@@@@ A,U A5,1 . @^@@@@ S XR )@@G@@ A5,N@B@@@@ S A5,N1 . @B@@@@ J XS )@@G@@ SIRSPA+2 . @E@@@@SIRXYZ TZ IOP XT )@@G@@ . $T TEST I OPTION @ @@@@ J SIRXY @D@@@@ XU )@@G@@ L A0,SIRIN+9 . CHECK ICW @E@@@@ TP XV )@@G@@ 0,A0 . $T LABEL IMAGE @ @@@@ J GETSXW )@@G@@I @^@@@@ SZ N @ @@@@ J GETCD XX )@@G@@@ @@@@SIRXY L A1,ASCOP @D@@@@ TNZ ASCINT XY )@@G@@ . $T P OR Q SET @ @@@@ S A1,QOP @^@@@@SIRXYNXZ )@@G@@ SZ N @H@@@@ L A1,(0500130,0) . OCTAL 50YA )@@G@@ FOR LABEL WITH S FOR SIR @D@@@@ TZ QOP YB )@@G@@ . OUTPUT IN FD? @F@@@@ A,U A1,1 . NO, SET YC )@@G@@ASCII FLAG,S6 @A@@@@ S A1,SIRIN+10 @ @@@@ YD )@@G@@ L A1,SIRSDF @ @@@@ S A1,IMAGE @^@@@@ YE )@@G@@ L,U A1,7@ @@@@ S A1,USER @ @@@@ SZYF )@@G@@ ASCINT @F@@@@ TNZ PARTBL+14 . $T SOURCYG )@@G@@E OUTPUT SPECIFIED@ @@@@ J SIREX @A@@@@ L,YH )@@G@@S2 A0,PARTBL+19 @F@@@@ TZ QOP . $PYI )@@G@@ SET ELEMENT CODE TYPE @^@@@@ J $+3 @ @@@@ ANYJ )@@G@@D,U A0,057 @^@@@@ J $+2 @ @@@@ OR,U YK )@@G@@ A0,020 @A@@@@ S,S2 A1,PARTBL+19 @ @@@@ J YL )@@G@@ SIRPUT @@@@@@@D@@@@ . GET IMAGE FROM SOURCE OUTPUT - SYM )@@G@@ECOND PASS @@@@@@@F@@@@GETSP L A0,SIRIN+8 . $P SPAYN )@@G@@CE FILL IMAGE AREA@ @@@@ L A1,SIR05 @ @@@@ S YO )@@G@@ A1,DNCAR @ @@@@ L,U A1,SIR05 @^@@@@ TZYP )@@G@@ QOP @ @@@@ L,U A1,SIR040 @ @@@@ L,H1 YQ )@@G@@ R1,SIRUS @ @@@@ BT A0,0,*A1 @ @@@@ L,U YR )@@G@@ A0,SIRIN @D@@@@ LMJ B11,SDFI GET IMAGE YS )@@G@@@ @@@@ J SIRERR @ @@@@ J SIREOF YT )@@G@@@D@@@@ L A0,SIRAD1 . WORD ADDRESS @D@@@@ YU )@@G@@ TZ QOP . FIELDATA? @D@@@@ A YV )@@G@@ A0,(0100000,0) . NO, SET BIT 33@E@@@@ TZ HOP YW )@@G@@ . DISREGARD SEQ NO.? @D@@@@ A A0,(040000,0) YX )@@G@@ . NO, SET BIT 32@B@@@@ S A0,SIRADD . @D@@@@YY )@@G@@ L,S2 A0,SIRIN+10 . WORDS IN IMAGE@D@@@@ TPYZ )@@G@@ SIRIN+10 . CONTROL WORD? @^@@@@ J $+3 ZA )@@G@@@B@@@@ L,H1 A0,SIRIN+10 . @C@@@@ SSL ZB )@@G@@ A0,6 . GET T1 @E@@@@ A A0,SIRAD1 ZC )@@G@@ . STARTING ADDRESS @E@@@@ A,U A0,1 . ONZD )@@G@@E FOR CONTROL @F@@@@ S A0,SIRAD1 . SAVE FORZE )@@G@@ NEXT TIME THROUGH@F@@@@ TP SIRIN+10 . $T IS ZF )@@G@@IMAGE A DATA IMAGE@E@@@@ J GETSPE . NO, CONTZG )@@G@@ROL WORD @E@@@@ L A1,RC GET REQUESTED ZH )@@G@@CYCLE @D@@@@ TLE A1,AC . $T AC>RC @D@@@@ZI )@@G@@ J GETSP GET NEXT IMAGE@D@@@@ TNZJ )@@G@@Z DC . $T DC=ZERO @^@@@@ J $+3 ZK )@@G@@@C@@@@ TG A1,DC . $T DC>RC@ @@@@ J ZL )@@G@@ GETSP @^@@@@ TNZ NEWC@^@@@@ J ZM )@@G@@ $+3 @ @@@@ L,U A1,'NEW' @ @@@@ S,H2 A1,DZN )@@G@@NCAR @ @@@@ L A1,NUMDLE @ @@@@ S A1,DZO )@@G@@IFF @ @@@@ S A1,USER @]@@@@GETSPE. @ @@@@ ZP )@@G@@ SZ,H2 CNVREX @ @@@@ J SIRXP2 @@@@@@@C@@@@ZQ )@@G@@ . GET IMAGE FROM RUN STREAM - FIRST PASS@@@@@@@F@@@@GETCD L ZR )@@G@@ A0,SIRIN+8 . $P SPACE FILL IMAGE AREA@ @@@@ L,ZS )@@G@@U A1,SIR05 @^@@@@ TZ QOP @ @@@@ L,U ZT )@@G@@ A1,SIR040 @ @@@@ L,H1 R1,SIRUS @ @@@@ BT ZU )@@G@@ A0,0,*A1 @ @@@@ L A0,SIRCR @ @@@@ SZ ZV )@@G@@ SIRIN+10 @^@@@@ L,U A1,0@D@@@@ SN A1,NZW )@@G@@DC . $P SET DC=-0 @^@@@@ TNZ JOP @^@@@@ ZX )@@G@@ TZ GOP @ @@@@ J SIRCMP @E@@@@ TNZY )@@G@@Z PARMOD . IN EDIT ERROR MODE @C@@@@ J ZZ )@@G@@ GETCD1 . NO @B@@@@ L,U A0,'NEW' AA )@@G@@ . @B@@@@ S,H2 A0,DNCAR . @ @@@@ L AB )@@G@@ A0,RC @^@@@@ A,U A0,1@ @@@@ S AC )@@G@@ A0,AC @E@@@@ TZ PARCOR . ANY MORE DELEAD )@@G@@TES @C@@@@ J PARERA . YES @ @@@@ AE )@@G@@ TZ PAREOF @ @@@@ J SIRE1 @E@@@@ AF )@@G@@ SZ PARFLG . NO CLEAR EDIT FLAGS@F@@@@ L AG )@@G@@ A0,CDLMT . RESET CORRECTION CARD @B@@@@ ANAH )@@G@@ A0,PARCC . @ @@@@ L R1,A0 @B@@@@AI )@@G@@ L A0,PARCC . @B@@@@ L A1,CAJ )@@G@@MPOUT . @D@@@@ BT A1,0,*A0 . TRANSFEAK )@@G@@R CARD@B@@@@ J NOTQ . @E@@@@GETCD1 TNAL )@@G@@Z QOP . ASCII CARD INPUT @^@@@@ J AM )@@G@@ $+5 @^@@@@ L,U A2,1@F@@@@ S A2,ASCINT AN )@@G@@ . $P SET ASCII INTERNAL @E@@@@ ER AREAD$ AO )@@G@@ . READ ASCII IMAGE @^@@@@ J $+3 @D@@@@ AP )@@G@@ ER READ$ . READ IMAGE @E@@@@ SZ AQ )@@G@@ ASCINT . $P SET FD INTERNAL @F@@@@ S,S2 A0,SAR )@@G@@IRIN+10 . $P SET IMAGE WORD COUNT@ @@@@ AU,U A0,IAS )@@G@@MAGE @F@@@@ S,H2 A1,CDLMT . SET END OF CARD WORAT )@@G@@D @D@@@@ TZ IOP . $T I OPTION ON@ @@@@AU )@@G@@ J SIRFC @ @@@@ L,U A0,'NEW' @ @@@@AV )@@G@@ S,H2 A0,DNCAR @^@@@@ L,U A0,1@E@@@@ AW )@@G@@ S A0,NEWC . THIS IMAGE IS NEW @F@@@@ TNAX )@@G@@Z WOP . $T PRINT OPTION ON @ @@@@ J AY )@@G@@ SIRCD @G@@@@ TZ QOP . $T 'Q'AZ )@@G@@ OPTION ON (ASCII)? @E@@@@ J ASCCRD . BA )@@G@@$A YES,ASCCRD NO @F@@@@ LA A0,SIRPT . GET PRBB )@@G@@INT CONTROL WORD @F@@@@ ER PRINT$ . $P PRIBC )@@G@@NT FIELDATA IMAGE @D@@@@ J SIRCD . $J SIRBD )@@G@@CD @G@@@@ASCCRD LA A0,ASCPCW . GET ASCII PRINT COBE )@@G@@NTROL WORD @F@@@@ ER APRINT$ . $P PRINT ASCBF )@@G@@II IMAGE @E@@@@SIRCD TZ IOP . $T IS I OPTIONBG )@@G@@ ON @ @@@@ J SIRFC @C@@@@ TNZ QOP BH )@@G@@ . $T ASCII@^@@@@ J NOTQ@F@@@@ L BI )@@G@@ A1,(1,IMAGET) . SAVE ASCII IMAGE IN IMAGET@A@@@@ L BJ )@@G@@ A2,(1,IMAGE) @E@@@@ L,S2 R1,SIRIN+10 . LEBK )@@G@@NGTH OF IMAGE @ @@@@ BT A1,0,*A2 @F@@@@ L,BL )@@G@@U A1,IMAGE . CONVERT IMAGE TO FIELDATA @B@@@@ L BM )@@G@@ A2,A1 . @B@@@@ L,S2 A0,SIRIN+10 BN )@@G@@ . @B@@@@ LMJ X11,ASCFD . @H@@@@ L BO )@@G@@ A1,CMPOUT . DERERMINE IF THIS IS CONTROL CARD @B@@@@BP )@@G@@ L,S3 A2,CID . @^@@@@ L,U A0,5BQ )@@G@@@D@@@@ LMJ X11,SIRGC . GET CHARACTER @B@@@@ BR )@@G@@ EX SIRTC,A2 . @E@@@@ J $+3 BS )@@G@@ . NO CONTROL IMAGE @B@@@@ JGD A2,$-3 BT )@@G@@ . @E@@@@ J SIRG+4 . IS CONTROL IMAGE BU )@@G@@@F@@@@ L,S2 R1,SIRIN+10 . RESTORE ASCII IN IMAGE BV )@@G@@@B@@@@ L A1,(1,IMAGE) . @B@@@@ L BW )@@G@@ A2,(1,IMAGET) . @B@@@@ BT A1,0,*A2 . BX )@@G@@@B@@@@ J SIRSC . @B@@@@NOTQ L BY )@@G@@ A1,CMPOUT . @ @@@@ L,S3 A2,CID @^@@@@ BZ )@@G@@ L,U A0,5@D@@@@SIRG LMJ B11,SIRGC GET CHARCA )@@G@@ACTER @G@@@@ EX SIRTC,A2 . $T TEST FOR CID CCB )@@G@@HARACTER @ @@@@ J SIRSC @G@@@@ JGD CC )@@G@@ A2,SIRG . $T ANY MORE CID CHARACTERS @D@@@@ LMCD )@@G@@J B11,SIRGC GET CHARACTER @G@@@@ TE,U A3,0CE )@@G@@44 . $T IS CHARACTER AN EQUAL SIGN @ @@@@ J CF )@@G@@ GETCOR @^@@@@ SZ A5 @D@@@@ LMJ B11,CG )@@G@@SIRGC GET CHARACTER @F@@@@ S A3,CID CH )@@G@@ STORE CORRECTION CHARACTER@D@@@@ LMJ B11,SIRGC CI )@@G@@ GET CHARACTER @F@@@@ TNE,U A3,05 . $T IS CJ )@@G@@CHARACTER A SPACE @ @@@@ J SIRCID @ @@@@ L CK )@@G@@ A4,CID @^@@@@ LSSL A4,6@ @@@@ S CL )@@G@@ A4,CID @F@@@@ S,S6 A3,CID STORE CORRECTICM )@@G@@ON CHARACTER@E@@@@ A,U A5,1 COUNT CHARACTECN )@@G@@R @D@@@@ LMJ B11,SIRGC GET CHARACTER @F@@@@CO )@@G@@ TNE,U A3,05 . $T IS CHARACTER A SPACE @ @@@@CP )@@G@@ J SIRCID @ @@@@ L A4,CID @^@@@@CQ )@@G@@ LSSL A4,6@ @@@@ S A4,CID @F@@@@ CR )@@G@@ S,S6 A3,CID STORE CORRECTION CHARACTER@^@@@@ CS )@@G@@ A,U A5,1@F@@@@SIRCID S,H1 A5,CID SAVE CIDCT )@@G@@ CHAR COUNT-1 @ @@@@ J GETCD @ @@@@SIRSC TZCU )@@G@@ CORERR @ @@@@ J GETCD @ @@@@ L CV )@@G@@ A1,RC @^@@@@ A,U A1,1@D@@@@ S CW )@@G@@ A1,AC . $P SET AC=RC+1@F@@@@ TZ PARCOR CX )@@G@@ . IS PARTIAL CORR FLAG ON @B@@@@ J PARCDC CY )@@G@@ . @F@@@@ TZ PARCNM . WAS EDITING ICZ )@@G@@N PROGRSS @C@@@@ J PARGTM . YES @E@@@@DA )@@G@@ SZ NCARD . CLEAR 'N' MODE FLAG @ @@@@ DB )@@G@@ J SIRFC @D@@@@SIRGC EX SIRCL,A0 LODC )@@G@@AD CHARACTER@ @@@@ JGD A0,0,B11 @^@@@@ L,U DD )@@G@@ A0,5@C@@@@ J 0,B11 EXIT @D@@@@SIRCL DE )@@G@@ L,S6 A3,0,*A1 REMOTE LOAD @ @@@@ L,S5 DF )@@G@@ A3,0,A1 @ @@@@ L,S4 A3,0,A1 @ @@@@ L,S3 DG )@@G@@ A3,0,A1 @ @@@@ L,S2 A3,0,A1 @ @@@@ L,S1 DH )@@G@@ A3,0,A1 @D@@@@SIRTC TE,S6 A3,CID REMOTE TEST DI )@@G@@@ @@@@ TE,S5 A3,CID @ @@@@ TE,S4 A3,CID DJ )@@G@@@@@@@@@E@@@@ . GET N OR/AND M FROM CORRECTION CARD - FIRST PASS DK )@@G@@@@@@@@@ @@@@GETCOR SZ CORERR @D@@@@ TZ PARCDL )@@G@@OR . IN EDIT MODE @C@@@@ J PARLTM DM )@@G@@ . YES @E@@@@ SZ PARFLG . CLEAR EDIT FLDN )@@G@@AGS @D@@@@ TZ NCARD . IN 'N' MODE? @H@@@@DO )@@G@@ LMJ X11,NCCERR . YES, NO CHANGE CARDS FOLLOW 'N' DP )@@G@@SO @F@@@@ . OUTPUT ERROR MSG & RDQ )@@G@@ETURN @H@@@@ LA A2,(1,CORIMG) . TRANSFER CORRECTION DR )@@G@@CARD TO CORIMG @C@@@@ LX X11,(1,IMAGE) . BUFFER DS )@@G@@@A@@@@ L,S2 R1,SIRIN+10 @ @@@@ BT A2,0DT )@@G@@,*X11 @E@@@@ LMJ A2,SIRCOR . GET N FROM CARD DU )@@G@@@C@@@@ J SIRERR ERROR @F@@@@ TEDV )@@G@@,U A3,05 . $T IS CHARACTER A SPACE @ @@@@ J DW )@@G@@ SIRCOM @H@@@@ TLE A5,M1 . IS N GRDX )@@G@@EATER OR EQUAL TO PREVIOUS M @C@@@@ J SIRERR DY )@@G@@ . NO @G@@@@ SN A5,NCARD . SET FLAG TO INDZ )@@G@@DICATE 'N' READ @B@@@@ S A5,N . @B@@@@EA )@@G@@ S A5,N1 . @C@@@@ SZ M EB )@@G@@ CLEAR M @C@@@@ SZ M1 CLEC )@@G@@EAR M1@ @@@@ TE A5,SIC @^@@@@ J $+3 ED )@@G@@@^@@@@ SZ N @ @@@@ J GETCD @ @@@@EE )@@G@@ TG A5,SIC @ @@@@ J GETSI @ @@@@EF )@@G@@ J SIRERR @F@@@@SIRCOM TE,U A3,056 EG )@@G@@ . $T IS CHARACTER A COMMA @C@@@@ J SIRERR EH )@@G@@ ERROR @ @@@@ LMJ A2,SIRNM @D@@@@ LMJ EI )@@G@@ B11,SIRGC GET CHARACTER @E@@@@ LMJ A2,SIRCOR EJ )@@G@@ GET M FROM CARD @C@@@@ J SIRERR EK )@@G@@ ERROR @F@@@@ TE,U A3,041 . IS CHARACTEREL )@@G@@ A MINUS @B@@@@ J SIRSPA . @E@@@@ EM )@@G@@ TZ QOP . ASCII OUTPUT? @H@@@@ J EN )@@G@@ PARER1 . YES, EDITING NOT ALLOWED IN ASCII @B@@@@EO )@@G@@ L,U A3,1 . @F@@@@ S A3,PEP )@@G@@ARCOR . SET PARTIAL CORR FLAG @C@@@@ AN A5,NEQ )@@G@@ . M-N @B@@@@ JN A5,SIRERR . ER )@@G@@@F@@@@ S,H2 A5,PARCON . SAVE NUMBER OF CARDS ES )@@G@@@B@@@@ L A5,N . @B@@@@ J ET )@@G@@ $+3 . @F@@@@SIRSPA TE,U A3,05 . EU )@@G@@IS CHARACTER A SPACE @C@@@@ J SIRERR EREV )@@G@@ROR @F@@@@ TLE A5,N . $T IS M GREATER THEW )@@G@@AN N @C@@@@ J SIRERR ERROR @C@@@@ EX )@@G@@ S A5,M SET M @ @@@@ L A3,SIEY )@@G@@C @^@@@@ TG A3,N @ @@@@ J SIRERR EZ )@@G@@@ @@@@ L A4,M1 @^@@@@ A,U A4,1@^@@@@FA )@@G@@ TE A4,N@^@@@@ J $+3 @ @@@@ ANFB )@@G@@,H2 A4,DIFF @^@@@@ S A4,N@ @@@@ S FC )@@G@@ A5,M1 @ @@@@ J GETSI @^@@@@SIRNM S FD )@@G@@ A5,N@H@@@@ TZ M1 . $T PREVIOUS CORRECFE )@@G@@TION A FOLLOW @^@@@@ J SIRM@ @@@@ L FF )@@G@@ A4,N1 @H@@@@ TG A4,N . $T NEW N GREFG )@@G@@ATER THAN PREVIOUA N @ @@@@ J SIRERR @ @@@@ FH )@@G@@ J SIRM+3 @ @@@@SIRM L A4,M1 @H@@@@ FI )@@G@@ TG A4,N . $TNEW N GREATER THAN PREVIOUS M FJ )@@G@@@C@@@@ J SIRERR ERROR @ @@@@ S FK )@@G@@ A5,N1 @^@@@@ J 0,A2@B@@@@SIRCOR SZ FL )@@G@@ A5 . @E@@@@ TE,U A3,05 . IFM )@@G@@C CHAR A SPACE @B@@@@ J $+5 . @D@@@@FN )@@G@@ TNE A1,CDLMT . END OF IMAGE @D@@@@ J FO )@@G@@ 0,A2 . ERROR RETURN @E@@@@ LMJ B11,FP )@@G@@SIRGC . GET CHARACTER @B@@@@ J SIRCOR+1 FQ )@@G@@ . @F@@@@ TG,U A3,060 . IS CHARACTER FR )@@G@@A DIGIT @B@@@@ TG,U A3,072 . @D@@@@ FS )@@G@@ J 0,A2 . ERROR RETURN @B@@@@ J FT )@@G@@ SIRCC1 . @D@@@@SIRCC TE A1,CDLMT . EFU )@@G@@ND OF IMAGE @B@@@@ J SIRCCE . NO@ @@@@ FV )@@G@@ L,U A3,05 @B@@@@ J 1,A2 . FW )@@G@@@[@@@@. @]@@@@SIRCCE. @E@@@@ LMJ B11,SIRGC FX )@@G@@ . GET CHARACTER @F@@@@ TG,U A3,060 . IFY )@@G@@S CHARACTER A DIGIT @B@@@@ TG,U A3,072 . FZ )@@G@@@D@@@@ J 1,A2 . NORMAL RETURN@D@@@@SIRCC1GA )@@G@@ ANA,U A3,060 . FD TO BINARY @B@@@@ MSI,U GB )@@G@@ A5,10 . @B@@@@ A A5,A3 . GC )@@G@@@B@@@@ J SIRCC . @@@@@@@@@@@@@D@@@@ GD )@@G@@ . EDIT ROUTINE FOR PARTIAL CARD CORRECTION @@@@@@@D@@@@PARCDC SZGE )@@G@@ PARLRM . CLEAR MARGINS@E@@@@ L A0,CGF )@@G@@MPOUT . SET NEW IMAGE LIMIT@B@@@@ A,H1 A0,SIRUS GG )@@G@@ . @B@@@@ S A0,PAROIL . @ @@@@ GH )@@G@@ L A0,PARCC @A@@@@ A,S2 A0,SIRIN+10 @ @@@@GI )@@G@@ S A0,CDLMT @B@@@@ L A0,CMPOUT GJ )@@G@@ . @B@@@@ L A1,PARCC . @B@@@@ L,GK )@@G@@S2 R1,SIRIN+10 . @H@@@@ BT A1,0,*A0 GL )@@G@@ . TRANSFER PARTIAL IMAGE TO PARCD @ @@@@ L,U A0,0GM )@@G@@5 @ @@@@ S,S1 A0,0,A1 @E@@@@ L,H1 A0,SGN )@@G@@IRUS . CLEAR IMAGE AREA @B@@@@ A,U A0,2 GO )@@G@@ . @B@@@@ L R1,A0 . @B@@@@ GP )@@G@@ L,U A1,SIR05 . @B@@@@ L A0,CMPOUT GQ )@@G@@ . @E@@@@ BT A0,0,*A1 . CLEAR OUTPUT GR )@@G@@BUFFER@E@@@@ TZ PARMOD . IN EDIT ERROR MODE GS )@@G@@@C@@@@ J PARERA . YES @ @@@@ L GT )@@G@@ A1,PARCC @ @@@@ L A0,PARCC+1@E@@@@ LMGU )@@G@@J X11,SIRGC . GET CHARACTER @E@@@@ LMJ GV )@@G@@ A2,SIRCOR . GET LEFT MARGIN @B@@@@ J PAR4GW )@@G@@5 . @E@@@@ S,H1 A5,PARLRM . SAVE LGX )@@G@@EFT MARGIN @G@@@@ TE,U A3,05 . WAS MARGIN FGY )@@G@@OLLOWED BY A SPACE@C@@@@ J $+4 . NO GZ )@@G@@@E@@@@ LMJ A2,SIRCOR . GET SEPARATOR @B@@@@HA )@@G@@ J PAR23 . @ @@@@ J PAREHB )@@G@@R2 @H@@@@ TE,U A3,056 . WAS LEFT MARGIN FOHC )@@G@@LLOWED BY A COMMA @C@@@@ J PAR23 . NO HD )@@G@@@E@@@@ LMJ X11,SIRGC . GET CHARACTER @E@@@@HE )@@G@@ LMJ A2,SIRCOR . GET RIGHT MARGIN @B@@@@ HF )@@G@@ J PARER2 . @E@@@@ S,H2 A5,PARLRM HG )@@G@@ . SAVE RIGHT MARGIN @B@@@@ TE,U A3,05 HH )@@G@@ . @B@@@@ J PAR23 . @E@@@@ LMHI )@@G@@J A2,SIRCOR . GET SEPARATOR @B@@@@ J HJ )@@G@@ PAR23 . @B@@@@ J PARER2 . HK )@@G@@@B@@@@PAR23 S A3,PARSEP . @F@@@@ S HL )@@G@@ A0,PARI+1 . SAVE LOCATION OF DATA @B@@@@ S HM )@@G@@ A1,PARI . @G@@@@ TNZ,H1 PARLRM . THN )@@G@@EST FOR ZERO COLUMN NUMBER @B@@@@ J PARER3 HO )@@G@@ . @F@@@@ L,H1 A0,SIRUS . COMPUTE COLUMN LIMIHP )@@G@@T @F@@@@ MI,U A0,6 . CHAR COUNT OF IMAGHQ )@@G@@E @G@@@@ TLE,H2 A1,PARLRM . IS RIGHT MARGIN WIHR )@@G@@THIN RANGE @B@@@@ J PARER3 . @F@@@@ HS )@@G@@ TZ,H2 PARLRM . IS THERE A RIGHT MARGIN @C@@@@ HT )@@G@@ L,H2 A1,PARLRM . YES @F@@@@ TLE,H1 A1,PHU )@@G@@ARLRM . IS LEFT MARGIN LEGAL @B@@@@ J PAREHV )@@G@@R3 . @B@@@@ J PARMRG . @D@@@@HW )@@G@@PAR45 TNE A1,CDLMT . END OF IMAGE @B@@@@ J HX )@@G@@ PARER2 . @B@@@@ S A3,PARSEP HY )@@G@@ . @B@@@@ S A0,PARI+1 . @B@@@@ S HZ )@@G@@ A1,PARI . @B@@@@ DL A2,IMAT IA )@@G@@ . @B@@@@ L,U A5,1 . @F@@@@PAR45A DLIB )@@G@@ A0,PARI . SET STRING LOCATION @D@@@@ LMIC )@@G@@J X11,PARGET . GET CHAR @E@@@@ TNE A2,PID )@@G@@ARMAT . END OF INPYT IMAGE @B@@@@ J PARER4 IE )@@G@@ . @D@@@@ EX PARRT,A3 . TEST EQUAL IF )@@G@@@B@@@@ J PAR45D . @B@@@@ JGD IG )@@G@@ A3,$+2 . @B@@@@ L,U A3,5 . IH )@@G@@@E@@@@ S,H1 A5,PARLRM . SAVE LEFT MARGIN @H@@@@II )@@G@@ DS A2,PARO . SAVE LOCATION OF NEXT CHARACTEIJ )@@G@@R @D@@@@PAR45B TNE A0,CDLMT . END OF PARCD @E@@@@IK )@@G@@ J PARER2 . SEPARATOR ERROR @D@@@@ IL )@@G@@ LMJ X11,PARGET . GET CHARACTER@E@@@@ TNE IM )@@G@@ A4,PARSEP . SEPARATOR CHAR @C@@@@ J PAR4IN )@@G@@5E . YES @E@@@@ TNE A2,PARMAT . EIO )@@G@@ND OF INPUT IMAGE @B@@@@ J PARER4 . @D@@@@IP )@@G@@ EX PARRT,A3 . TEST EQUAL @B@@@@ J IQ )@@G@@ PAR45C . @B@@@@ JGD A3,$+2 IR )@@G@@ . @B@@@@ L,U A3,5 . @B@@@@ A,IS )@@G@@U A5,1 . @B@@@@ J PAR45B IT )@@G@@ . @D@@@@PAR45C L,H1 A5,PARLRM . RESET MARGIN@F@@@@IU )@@G@@ DL A2,PARO . RESET CHARACTER LOCATION@^@@@@IV )@@G@@ A,U A5,1@B@@@@ J PAR45A . IW )@@G@@@B@@@@PAR45D A,U A5,1 . @ @@@@ JGD IX )@@G@@ A3,$+2 @^@@@@ L,U A3,5@B@@@@ J PAR4IY )@@G@@5A . @F@@@@PAR45E DS A0,PARI . SAVE LIZ )@@G@@OCATION OF DATA @D@@@@ LMJ X11,PARGET . GET CHJA )@@G@@AR @D@@@@ TE A4,PARSEP . SEPARATOR @C@@@@JB )@@G@@ J PAR45F . NO @E@@@@ S,H2 JC )@@G@@ A5,PARLRM . SAVE RIGHT MARGIN @B@@@@ J PARMJD )@@G@@RG . @D@@@@PAR45F TE A0,CDLMT . END OF JE )@@G@@PARCD @B@@@@ J PAR45E+1 . @^@@@@PARMRG L,JF )@@G@@U A5,1@E@@@@ DL A0,IMAT . SET GET LOCAJG )@@G@@TORS @E@@@@ DL A2,CMPOUT . SET PUT LOCATORS JH )@@G@@@D@@@@PARM1 LMJ X11,PARGET . GET CHAR @F@@@@ JI )@@G@@ TNE,H1 A5,PARLRM . CHECK FOR LEFT MARGIN @B@@@@ JJ )@@G@@ J PARM2 . @D@@@@ LMJ X11,PARPUTJK )@@G@@ . PUT CHAR @D@@@@ A,U A5,1 . JL )@@G@@COUNT CHAR @B@@@@ J PARM1 . @F@@@@PARM2 JM )@@G@@ TNZ,H2 PARLRM . IS THERE A RIGHT MARGIN @C@@@@ JN )@@G@@ J PARM3 . NO @D@@@@ TNE,H2 A5,PJO )@@G@@ARLRM . RIGHT MARGIN@C@@@@ J PARM3 JP )@@G@@ . YES @B@@@@ A,U A5,1 . @D@@@@ JQ )@@G@@ LMJ X11,PARGET . GET CHAR @B@@@@ J JR )@@G@@ PARM2+2 . @G@@@@PARM3 L,H1 A5,PARLRM . JS )@@G@@SET OUTPUT CHARACTER COUNT @B@@@@ DS A0,PARO JT )@@G@@ . @B@@@@ DL A0,PARI . @D@@@@ LMJU )@@G@@J X11,PARGET . GET CHAR @D@@@@ TNE A4,PJV )@@G@@ARSEP . SEPARATOR @C@@@@ J PARM4 JW )@@G@@ . YES @D@@@@ LMJ X11,PARPUT . PUT CHAR JX )@@G@@@D@@@@ A,U A5,1 . COUNT CHAR @E@@@@ JY )@@G@@ TNE A2,PAROIL . END OF OUTPUT IMAGE@B@@@@ J JZ )@@G@@ PARM5 . @D@@@@ TE A0,CDLMT KA )@@G@@ . END OF PARCD @B@@@@ J PARM3+3 . @F@@@@KB )@@G@@PARM4 TNZ,H2 PARLRM . IS THIS AN INSERTION @C@@@@KC )@@G@@ J PARM5 . NO @F@@@@ DL KD )@@G@@ A0,PARO . SET TO GET REST OF IMAGE@E@@@@ TNE KE )@@G@@ A0,PARMAT . END OF INPUT IMAGE @C@@@@ J PARMKF )@@G@@5 . YES @E@@@@ TNE A2,PAROIL . EKG )@@G@@ND OF OUTPUT IMAGE@C@@@@ J PARM5 . YES KH )@@G@@@D@@@@ LMJ X11,PARGET . GET CHAR @D@@@@ KI )@@G@@ LMJ X11,PARPUT . PUT CHAR @ @@@@ J KJ )@@G@@ PARM4+3 @B@@@@PARM5 L A5,SIR05 . @G@@@@ KK )@@G@@ TE A5,0,A2 . LAST WORD OF IMAGE SPACES @ @@@@KL )@@G@@ J PAREND-1 @E@@@@ TNE A2,CMPOUT KM )@@G@@ . IS IMAGE EMPTY @C@@@@ J PAREND . KN )@@G@@YES @B@@@@ AN,U A2,1 . @ @@@@ J KO )@@G@@ PARM5+1 @^@@@@ A,U A2,1@F@@@@PAREND AN KP )@@G@@ A2,CMPOUT . GET IMAGE WORD COUNT @]@@@@PARLTE. @A@@@@KQ )@@G@@ S,S2 A2,SIRIN+10 @^@@@@ L,U A3,1@G@@@@KR )@@G@@ S A3,PARCNM . SET PARTIAL CORR DELETE FLAG KS )@@G@@@ @@@@ S A3,PARN @B@@@@ L,H2 A3,PARCON KT )@@G@@ . @G@@@@ JNZ A3,$+3 . ANY MORE PARKU )@@G@@TIAL CORRECTIONS @D@@@@ SZ PARCOR . CLEAR FKV )@@G@@LAG @B@@@@ J SIRFC . @B@@@@ ANKW )@@G@@,U A3,1 . @F@@@@ S,H2 A3,PARCON KX )@@G@@ . REDUCE CARD COUNT BY ONE@G@@@@ L A3,N1 KY )@@G@@ . SET UP TO DELETE NEXT CARD @B@@@@ S A3,N KZ )@@G@@ . @B@@@@ J SIRFC . @E@@@@PARGETLA )@@G@@ EX CMPL,A1 . GET CHARACTER @B@@@@ JGLB )@@G@@D A1,0,X11 . @B@@@@ L,U A1,5 LC )@@G@@ . @B@@@@ J 0,X11 . @E@@@@PARPUT EXLD )@@G@@ CMPS,A3 . PUT CHARACTER @B@@@@ JGD LE )@@G@@ A3,0,X11 . @^@@@@ L,U A3,5@B@@@@ J LF )@@G@@ 0,X11 . @B@@@@PARRT TE,S6 A4,0,*A2 LG )@@G@@ . @B@@@@ TE,S5 A4,0,A2 . @B@@@@ TELH )@@G@@,S4 A4,0,A2 . @B@@@@ TE,S3 A4,0,A2 LI )@@G@@ . @B@@@@ TE,S2 A4,0,A2 . @B@@@@ TELJ )@@G@@,S1 A4,0,A2 . @E@@@@PARER1 DL A1,PARASC LK )@@G@@ . ASCII MODE ERROR @B@@@@ DS A1,PARE+2 . LL )@@G@@@B@@@@ L A0,PARP . @B@@@@ ER LM )@@G@@ PRINT$ . @B@@@@ J SIRERR . LN )@@G@@@E@@@@PARER2 DL A1,PARSPR . SEPARATOR ERROR @B@@@@LO )@@G@@ DS A1,PARE+2 . @B@@@@ J PARELP )@@G@@RR . @D@@@@PARER3 DL A1,PARCOL . COLUMN LQ )@@G@@ERROR @B@@@@ DS A1,PARE+2 . @B@@@@ J LR )@@G@@ PARERR . @D@@@@PARER4 DL A1,PARNF LS )@@G@@ . NO FIND ERROR@B@@@@ DS A1,PARE+2 . @B@@@@LT )@@G@@ J PARERR . @D@@@@PARERR L A0,PLU )@@G@@ARP . ERROR MESSAGE@ @@@@ SSC A0,18 @B@@@@LV )@@G@@ A,S2 A0,SIRIN+10 . @B@@@@ SSC A0,1LW )@@G@@8 . @B@@@@ ER PRINT$ . @G@@@@LX )@@G@@ LA A0,SIREF$ . INCREMENT EDIT MODE ERROR COUNT LY )@@G@@@^@@@@ AA,U A0,1@ @@@@ SA A0,SIREF$ @H@@@@LZ )@@G@@. ENTRANCE FOR CARD COUNT < (PARLTM) OR > (PARGTM) ERRORS WHEN DIAGNOSTIMA )@@G@@C @A@@@@. MESSAGE HAS ALREADY BEEN OUTPUT @]@@@@PARERA. @B@@@@MB )@@G@@ L A0,CMPOUT . @B@@@@ L A1,IMC )@@G@@MAT . @B@@@@ L,H1 R1,SIRUS . @E@@@@MD )@@G@@ BT A0,0,*A1 . RESET OLD IMAGE @B@@@@ ME )@@G@@ L,H1 A2,PARIML . @E@@@@ TNZ UOP MF )@@G@@ . 'U' OPTION SET? @B@@@@ J PARLTE MG )@@G@@ . NO@E@@@@ LA A3,RC . GET REQUESTED CYCLE MH )@@G@@@^@@@@ AA,U A3,1@F@@@@ SA A3,AC MI )@@G@@ . SET ACTUAL CYCLE IN ICW @ @@@@ J PARLTE @[@@@@MJ )@@G@@. @[@@@@. @G@@@@PARLTM L,U A4,1 . CARD COMK )@@G@@UNT LESS THAN ERROR @E@@@@ S A4,PARMOD . SML )@@G@@ET ERROR MOD FLAG @B@@@@ DL A4,PARLT . @B@@@@MM )@@G@@ DS A4,PARE+2 . @B@@@@ L A0,PMN )@@G@@ARP . @B@@@@ ER PRINT$ . @H@@@@MO )@@G@@ LA A0,SIREF$ . $P INCREMENT EDIT MODE ERROR CMP )@@G@@OUNT @^@@@@ AA,U A0,1@ @@@@ SA A0,SIREF$ MQ )@@G@@@H@@@@ LA A0,(1,CORIMG) . INSERT CURRENT CORRECTION MR )@@G@@CARD IN @F@@@@ LA A1,(1,IMAGE) . CORRECTION IMAMS )@@G@@GE BUFFER @A@@@@ L,S2 R1,SIRIN+10 @ @@@@ BTMT )@@G@@ A0,0,*A1 @B@@@@ J PARCDC . @F@@@@MU )@@G@@PARGTM DL A4,PARGT . CARD COUNT GREATER ERROR @B@@@@MV )@@G@@ DS A4,PARE+2 . @B@@@@ L A0,PMW )@@G@@ARP . @B@@@@ ER PRINT$ . @H@@@@MX )@@G@@ LA A0,SIREF$ . $P INCREMENT EDIT MODE ERROR CMY )@@G@@OUNT @^@@@@ AA,U A0,1@ @@@@ SA A0,SIREF$ MZ )@@G@@@B@@@@ SZ N . @B@@@@ SZ NA )@@G@@ N1 . @B@@@@ SZ M . NB )@@G@@@B@@@@ SZ M1 . @B@@@@ L,U NC )@@G@@ A4,1 . @E@@@@ S A4,CORERR . SND )@@G@@ET IGNORE FLAG @B@@@@ SZ PARFLG . @B@@@@NE )@@G@@ J GETCD . @D@@@@ . GETIMAGE FROM NF )@@G@@COMPRESSED INPUT - FIRST PASS @@@@@@@E@@@@SIRCMP DL A0,CMPIN NG )@@G@@ . $P SET INDEXES @ @@@@ DL A2,CMPOUT @ @@@@NH )@@G@@ L,H2 B11,CMPICC@F@@@@CMPCD JMGI B11,CMPP NI )@@G@@ . $T NEED NEXT IMPUT CARD @ @@@@ L A0,CMPCP @ @@@@NJ )@@G@@ S,H2 A0,CMPIN @F@@@@ ER READ$ NK )@@G@@ . $W READ COMPRESSED CARD @F@@@@ L A0,CMPIN NL )@@G@@ . $P RESET INPUT INDEX @^@@@@ L,U A1,5@F@@@@ NM )@@G@@ L,H2 B11,CMPCON . $P SET INPUT CARD COUNT @E@@@@CMPP NN )@@G@@ EX CMPL,A1 . $P GET CHARACTER @ @@@@ JGNO )@@G@@D A1,$+2 @^@@@@ L,U A1,5@ @@@@ ANX,U NP )@@G@@ B11,1 @E@@@@ TNE,U A4,041 . $T END OF FINQ )@@G@@LE @^@@@@ J SIRE@E@@@@ TNE,U A4,040 NR )@@G@@ . $T END OF IMAGE @ @@@@ J CMPEOI @F@@@@NS )@@G@@ TNE,U A4,00 . $T SPECIAL END OF CARD @ @@@@NT )@@G@@ J CMPCD @^@@@@ DSC A4,5@ @@@@ NU )@@G@@ SSL A5,31 @ @@@@ JB A4,CMPSP @F@@@@CMPCH NV )@@G@@ JGD A5,$+2 . $T INDEX ON CHAR COUNT @ @@@@ NW )@@G@@ J CMPCD @E@@@@ EX CMPL,A1 . NX )@@G@@$P GET CHARACTER @ @@@@ JGD A1,$+2 @^@@@@ L,NY )@@G@@U A1,5@ @@@@ ANX,U B11,1 @E@@@@ EX NZ )@@G@@ CMPS,A3 . $P STORE CHARACTER@ @@@@ JGD A3,$OA )@@G@@+2 @^@@@@ L,U A3,5@ @@@@ J CMPCH OB )@@G@@@ @@@@CMPSP L,U A4,05 @F@@@@ JGD A5,$+2 OC )@@G@@ . $T INDEX ON SPACE COUNT @ @@@@ J CMPCD OD )@@G@@@E@@@@ EX CMPS,A3 . $P STORE CHARACTER@ @@@@OE )@@G@@ JGD A3,$+2 @^@@@@ L,U A3,5@ @@@@ OF )@@G@@ J CMPSP+1 @E@@@@CMPEOI DS A0,CMPIN . OG )@@G@@$P SAVE INDEXES @ @@@@ S,H2 B11,CMPICC@E@@@@ L,OH )@@G@@U A1,7 . $P SET USER FLAG @ @@@@ S OI )@@G@@ A1,USER @ @@@@ L,U A1,050 @ @@@@ S,S3 OJ )@@G@@ A1,FDC @^@@@@ TE,U A3,5@^@@@@ A,U A2,1OK )@@G@@@ @@@@ AN A2,CMPOUT @F@@@@ S,S2 A2,SIRIN+1OL )@@G@@0 . $P SET IMAGE WORD COUNT @ @@@@ SZ ASCINT OM )@@G@@@ @@@@ J SIRNS @E@@@@CMPL L,S6 A4,0,*A0 ON )@@G@@ COMPRESS REMOTE LOAD@ @@@@ L,S5 A4,0,A0 @ @@@@OO )@@G@@ L,S4 A4,0,A0 @ @@@@ L,S3 A4,0,A0 @ @@@@OP )@@G@@ L,S2 A4,0,A0 @ @@@@ L,S1 A4,0,A0 @F@@@@OQ )@@G@@CMPS S,S6 A4,0,*A2 COMPRESS REMOTE STORE @ @@@@OR )@@G@@ S,S5 A4,0,A2 @ @@@@ S,S4 A4,0,A2 @ @@@@OS )@@G@@ S,S3 A4,0,A2 @ @@@@ S,S2 A4,0,A2 @ @@@@OT )@@G@@ S,S1 A4,0,A2 @@@@@@@D@@@@ . GET IMAGE FROM SOURCOU )@@G@@E INPUT - FIRST PASS @@@@@@@F@@@@GETSI L A0,SIRIN+8 OV )@@G@@ . $P SPACE FILL IMAGE AREA@ @@@@ L A1,SIR05 @ @@@@OW )@@G@@ S A1,DNCAR @ @@@@ L,U A1,SIR05 @ @@@@OX )@@G@@ TZ ASCPF @ @@@@ L,U A1,SIR040 @ @@@@OY )@@G@@ L,H1 R1,SIRUS @ @@@@ BT A0,0,*A1 @ @@@@OZ )@@G@@ L,U A0,SIRIN @D@@@@ LMJ B11,SDFI PA )@@G@@ GET IMAGE @ @@@@ J SIRERR @ @@@@ J PB )@@G@@ SIREND @ @@@@ L,U A2,042 @D@@@@ TPPC )@@G@@ SIRIN+10 . SPECIAL ICW? @C@@@@ J SCWRPD )@@G@@ET . YES @H@@@@ TZ NOTSIR . ISPE )@@G@@ THIS A SIR-TYPE SDF FILE/ELEMENT? @H@@@@ SZ,H2 SIRIN+10 PF )@@G@@ . NO-CLEAR T2 & T3 OF DATA ICW SO THAT @H@@@@ PG )@@G@@ . ANY INFO IN THESE FIELDS IS NOT TAKEN @F@@@@ PH )@@G@@ . AS ELEMENT CYCLE INFO @H@@@@ PI )@@G@@ SZ NUMDLE . YES-CLEAR S3 & S5 OF DATA ICW ONLY PJ )@@G@@@^@@@@ SZ NEWC@]@@@@SCWRET. @A@@@@ TE,S1 PK )@@G@@ A2,SIRIN+10 @^@@@@ J $+4 @A@@@@ L,S6 PL )@@G@@ A2,SIRIN+10 @ @@@@ S A2,ASCPF @ @@@@ J PM )@@G@@ NOTQ42 @ @@@@ L A1,ASCPF @F@@@@ S PN )@@G@@ A1,ASCINT . $P SET INTERNAL CODETYPE @G@@@@ TNPO )@@G@@ SIRIN+10 . $T IS IMAGE A CONTROL IMAGE @ @@@@ PP )@@G@@ J GETRC @^@@@@ TP N @ @@@@ J PQ )@@G@@ SIRXYN @^@@@@NOTQ42 L,U A1,7@ @@@@ S PR )@@G@@ A1,USER @F@@@@ TG,U A2,2 . 042 IMAGE ALREPS )@@G@@ADY PUTOUT @F@@@@ TNZ PARTBL+14 . $T OUTPUT SPPT )@@G@@ECIFIED @ @@@@ J SIREX @ @@@@ J PU )@@G@@ SIRPUT @[@@@@. @[@@@@. @I@@@@. IF INPUT IMAGE IS IN ASCII APV )@@G@@ND OUTPUT IS TO BE IN FIELDATA, CONVERT IMAGE NOW @H@@@@. INSTEAD OFPW )@@G@@ AT SOURCE OUTPUT TIME SO THAT PARTIAL LINE EDITING OF THE IMAGE @#@@@@PX )@@G@@. IS ALLOWED. @[@@@@GETRC.@E@@@@ TNZ QOP PY )@@G@@ . ASCII OUTPUT? @F@@@@ TNZ ASCINT . PZ )@@G@@NO, INTERNAL CODE ASCII?@I@@@@ J NOCONV . QA )@@G@@ASCII OUTPUT OR IMAGE ALREADY FIELDATA @E@@@@ LA,S2 A0,SQB )@@G@@IRIN+10 . A0 := IMAGE LENGTH@E@@@@ LA,U A1,IMAGE QC )@@G@@ . A1 := INPUT BUFFER@F@@@@ LA A2,A1 QD )@@G@@ . A2 := OUTPUT BUFFER @H@@@@ LMJ X11,ASCFD QE )@@G@@ . CONVERT ASCII IMAGE TO FIELDATA @H@@@@ QF )@@G@@ . RETURN: A0 = FIELDATA WORD COUNT @F@@@@ SAQG )@@G@@,S2 A0,SIRIN+10 . UPDATE ICW WORD COUNT @G@@@@ SZQH )@@G@@ ASCINT . SET INTERNAL CODE TO FIELDATA @I@@@@ QI )@@G@@ ANU,H1 A0,SIRUS . DOES NUMBER OF WORDS CALLER WANTS EXCEQJ )@@G@@ED @F@@@@ JP A1,NOCONV . IMAGE LENGTH? NO-NOQK )@@G@@CONV @H@@@@ LA,U A3,SIR05 . SPACE FILL REMAINDQL )@@G@@ER OF BUFFER UP TO@E@@@@ SN A1,R1 . LENGTH CQM )@@G@@ALLER WANTS @A@@@@ LA A2,(1,IMAGE) @ @@@@ AHQN )@@G@@ A2,A0 @ @@@@ BT A2,0,*A3 @]@@@@NOCONV. QO )@@G@@@D@@@@ L A1,RC . GET REQ CYCLE @ @@@@ QP )@@G@@ L A2,DC @ @@@@ S A2,NDC @D@@@@ QQ )@@G@@ TLE A1,AC . $T AC>RC @^@@@@ J QR )@@G@@ SIRU@D@@@@ TNZ DC . $T DC=ZERO @ @@@@QS )@@G@@ J GETSIC @D@@@@ TG A1,DC QT )@@G@@ . $T DC>RC @^@@@@ J SIRU@F@@@@GETSIC L QU )@@G@@ A2,SIC GET SOURCE INPUT COUNT @E@@@@ A,U QV )@@G@@ A2,1 INCREMENT BY ONE @ @@@@ S A2,SQW )@@G@@IC @H@@@@ TLE A2,N . $T IMAGE COUNT > 'QX )@@G@@FROM' LINE NO.? @ @@@@ J SIRFC @D@@@@ TNQY )@@G@@E A2,N . $T SIC=N @D@@@@ TZ M QZ )@@G@@ . $T M=ZERO @^@@@@ J $+3 @C@@@@ RA )@@G@@ SZ N CLEAR N @ @@@@ J SIRFRB )@@G@@C @D@@@@ A,U A1,1 INCREMENT RC @ @@@@RC )@@G@@ SN A1,NDC @D@@@@ TE A2,M RD )@@G@@ . $T SIC=M @^@@@@ J SIRU@C@@@@ AN RE )@@G@@ A2,N . M-N @^@@@@ A,U A2,1@D@@@@ RF )@@G@@ S A2,DIFF . IS NUM DELETED@C@@@@ SZ RG )@@G@@ N CLEAR N @C@@@@ SZ M RH )@@G@@ CLEAR M @ @@@@ TNZ PARCOR @^@@@@ J RI )@@G@@ SIRU@B@@@@ L,S2 A2,SIRIN+10 . @E@@@@ S,RJ )@@G@@H1 A2,PARIML . SAVE IMAGE LENGTH @B@@@@ L RK )@@G@@ A2,CMPOUT . @B@@@@ L A1,IMAT . RL )@@G@@@B@@@@ L,H1 R1,SIRUS . @F@@@@ BT RM )@@G@@ A1,0,*A2 . MOVE IMAGE TO IMAGET @ @@@@ S,H2 RN )@@G@@ A1,PARMAT @^@@@@ J SIRU@C@@@@SIRFC L,U A1,7RO )@@G@@ . $D @F@@@@ S A1,USER . RP )@@G@@$P SET USER FLAG ON @D@@@@ L,U A4,05 SERQ )@@G@@T SPACE @^@@@@ TP NDC @D@@@@ L,U A4,0RR )@@G@@50 SET ASTERISK @ @@@@ S,S3 A4,FDC @E@@@@RS )@@G@@SIRU TZ IOP . $T TEST I OPTION @ @@@@ RT )@@G@@ J PUTNS @E@@@@ TNZ UOP . RU )@@G@@$T U OPTION SET @ @@@@ J PUTNS @F@@@@ LARV )@@G@@ A1,RC . A1 := REQUESTED CYCLE @D@@@@ TGRW )@@G@@ A1,LC . $T RCRC @ @@@@ J SIREX @C@@@@ TGSC )@@G@@ A1,DC . $T DC>RC@ @@@@ J SIRPUT SD )@@G@@@^@@@@SIRDC SZ NDC @C@@@@ SZ DC SE )@@G@@ CLEAR DC @@@@@@@D@@@@ . PUT IMAGE IN SOURCE OUTPUT - FIRST PASSF )@@G@@S @@@@@@@ @@@@SIRPUT L A3,FLAG2 @B@@@@ LMJ SG )@@G@@ B11,DLNUM . @ @@@@ SZ,H2 CNVREX @A@@@@ SH )@@G@@ L A1,SIRIN+10 @H@@@@ SA A1,SIROUT+10 SI )@@G@@ . INSERT ICW IN OUTPUT FCT. SDFO WILL @G@@@@ SJ )@@G@@ . STORE ICW IN OUTPUT BUFFER. @ @@@@ JN SK )@@G@@ A1,$+3 @F@@@@ TEP,U A3,0101 . $T INTERNAL = SL )@@G@@OUTPUT CODE @^@@@@ J $+4 @ @@@@ L,U A2,ISM )@@G@@MAGE @A@@@@ S,H2 A2,SIROUT+8 @ @@@@ J SN )@@G@@ SIRPOT @ @@@@ L,U A2,IMAGET @A@@@@ S,H2 SO )@@G@@ A2,SIROUT+8 @A@@@@ LMJ B11,CONVER+1 @ @@@@SIRPOTSP )@@G@@ L,U A0,SIROUT @D@@@@ LMJ B11,SDFO PUSQ )@@G@@T IMAGE @ @@@@ J SIRERR @H@@@@ L SR )@@G@@ A0,SIRAD1 . GET THIS IMAGE'S WORD ADDRESS IN FILE @E@@@@ SS )@@G@@ TZ QOP . FIELDATA OUTPUT? @I@@@@ A ST )@@G@@ A0,(0100000,0) . NO - SET BIT 33 OF SIRADD AS ASCII FLAG SU )@@G@@@G@@@@ TZ HOP . DISREGARD SEQUENCE NUMBERSSV )@@G@@? @H@@@@ A A0,(040000,0) . NO - SET BIT 32 AS ASW )@@G@@N 'H' OPTION FLAG @D@@@@ S A0,SIRADD . SAVE RESSX )@@G@@ULT @H@@@@ L,S2 A0,SIROUT+10 . UPDATE SIRAD1 TO STASY )@@G@@RT OF NEXT IMAGE @E@@@@ TP SIROUT+10 . MAJOR COSZ )@@G@@NTROL WORD? @C@@@@ J $+3 . YES @H@@@@TA )@@G@@ L,H1 A0,SIROUT+10 . NO -DATA CONTROL- USE T1 INSTEADTB )@@G@@ OF S1@C@@@@ SSL A0,6 . GET T1 @H@@@@ TC )@@G@@ A A0,SIRAD1 . ADD IN STARTING ADDRESS OF THIS IMAGE TD )@@G@@@H@@@@ A,U A0,1 . ADD 1 FOR THE CONTROL WORDTE )@@G@@ ITSELF @C@@@@ S A0,SIRAD1 . SAVE IT @E@@@@TF )@@G@@SIREX TNZ USER . $T USER FLAG SET @D@@@@ TG )@@G@@ J SIRST GET NEXT IMAGE@@@@@@@D@@@@ . GITH )@@G@@VE IMAGE TO USER - FIRST AND SECOND PASS @@@@@@@]@@@@SIRXP2. @B@@@@TI )@@G@@ LMJ B11,DLNUM . @ @@@@ L A3,FTJ )@@G@@LAG2 @F@@@@ TOP,U A3,010001 . $T INTERNAL = USER WTK )@@G@@ANTS @ @@@@ J SIROX @ @@@@ L,H2 A0,CTL )@@G@@NVREX @ @@@@ TE,U A0,SIRPOT @ @@@@ LMJ B11,TM )@@G@@CONVE @ @@@@ L B11,IMAT @^@@@@ J $+2 TN )@@G@@@A@@@@SIROX L B11,SIRIN+8 @ @@@@ L A0,STO )@@G@@IRIN+8@ @@@@ LXM,H2 A0,SIRUS @ @@@@ L,H1 R1,STP )@@G@@IRUS @G@@@@ BT A0,0,*B11 . $P TRANSFER IMAGE TQ )@@G@@TO USER @E@@@@ SZ USER CLEAR USER FLATR )@@G@@G @G@@@@ L A2,AC . $P CONVERT AC TO FTS )@@G@@IELDATA @^@@@@ L,U A5,2@ @@@@SIRD DSL A2,3TT )@@G@@6 @ @@@@ DI,U A2,10 @ @@@@ A,U A3,0TU )@@G@@60 @^@@@@ DSL A3,6@ @@@@ JGD A5,SIRD TV )@@G@@@ @@@@ SSC A4,18 @E@@@@ S,H2 A4,FDC TW )@@G@@ SAVE FIELDATA CYCLE @ @@@@ TP SIRIN+10 @ @@@@TX )@@G@@ J SIRFDC @E@@@@ TNZ KOP TY )@@G@@ . $T K OPTION SET @ @@@@ J SIRFDC @E@@@@ TZ )@@G@@ TNZ HOP . $T H OPTION SET @ @@@@ J UA )@@G@@ SIRFDC @A@@@@ L A2,IMAGE+12 @A@@@@ UB )@@G@@ L A3,IMAGE+13 @ @@@@ SSL A3,24 @ @@@@UC )@@G@@ LSSL A3,24 @D@@@@ TZ ASCOP UD )@@G@@ . $T ASCII? @H@@@@ DL A2,IMAGE+18 . $P YESUE )@@G@@-GET ASCII SEQUENCE NUMBER @H@@@@ TLE A2,SEQ UF )@@G@@ . $T COMPARE SEQ NO TO PREVIOUS ONE @B@@@@ J SEQEUG )@@G@@RR . @ @@@@ TE A2,SEQ @ @@@@ J UH )@@G@@ SAVSEQ @ @@@@ TLE A3,SEQ1 @ @@@@ J UI )@@G@@ SEQERR @ @@@@ TNE A3,SEQ1 @ @@@@ J UJ )@@G@@ SEQERR @F@@@@SAVSEQ S A2,SEQ . $P SAVUK )@@G@@E SEQUENCE NUMBER @ @@@@ S A3,SEQ1 @ @@@@ L,UL )@@G@@U A2,05 @ @@@@ S,S2 A2,FDC @A@@@@SIRFDC L UM )@@G@@ A1,SIRIN+10 @ @@@@ L A5,FLAG2 @F@@@@ UN )@@G@@ TEP,U A5,010001 . GEF CORRECT CONTROL IMAGE @A@@@@ UO )@@G@@ L A1,SIROUT+10 @ @@@@ L A3,DNCAR @ @@@@UP )@@G@@ L A2,FDC @E@@@@ L X11,SIRB11 UQ )@@G@@ . GET RETURN ADDRESS @H@@@@ TNZ ASCOP . DIUR )@@G@@D USER REQUEST ASCII FOR HIS BUFFER?@E@@@@ J 2,B11 US )@@G@@ . $E NORMAL RETURN @G@@@@ L,U A3,'NEW' UT )@@G@@ . CHANGE CONTENTS OF A3 TO ASCII @E@@@@ TE,H2 A3,DNCAR UU )@@G@@ . FIELDATA 'NEW'? @B@@@@ J $+3 UV )@@G@@ . @F@@@@ L A3,(040116105127) . PUT IN ASCII 'NEW' IUW )@@G@@NSTEAD@C@@@@ J 2,X11 . EXIT @B@@@@ UX )@@G@@ L,U A3,' ' . @E@@@@ TE,H2 A3,DNCAR UY )@@G@@ . FIELDATA SPACE? @B@@@@ J $+3 UZ )@@G@@ . @G@@@@ L A3,SIR040 . PUT IN ASCII SPACES VA )@@G@@INSTEAD @C@@@@ J 2,X11 . EXIT @F@@@@VB )@@G@@ L,S5 A3,DNCAR . GET HIGH ORDER CYCLE DIGIT@G@@@@VC )@@G@@ LSSL A3,9 . LEFT SHIFT IT TO Q3 POSITION VD )@@G@@@H@@@@ A,S6 A3,DNCAR . ADD LOW ORDER DIGIT INTO QVE )@@G@@4 POSITION @I@@@@ LXI,U A3,040055 . SET AN ASCII SVF )@@G@@PACE AND '-' INTO Q1 & Q2 @C@@@@ J 2,X11 VG )@@G@@ . EXIT @B@@@@ . . @B@@@@ VH )@@G@@ . . @G@@@@SEQERR L,U A2,03 VI )@@G@@ . $P SET SEQUENE ERROR FLAG @ @@@@ S,S2 A2,FVJ )@@G@@DC @ @@@@ J SIRFDC @ @@@@SIRERR L B11,VK )@@G@@SIRB11@G@@@@ TNE,U A0,SIRIN . $T ERROR RETURN FRVL )@@G@@OM SDFI @E@@@@ J 0,B11 . $E ERROR RETVM )@@G@@URN @G@@@@ TNE,U A0,SIROUT . $T ERROR RETURN FRVN )@@G@@OM SDFO @E@@@@ J 0,B11 . $E ERROR RETVO )@@G@@URN @^@@@@ L,U A5,1@ @@@@ S A5,CORERR VP )@@G@@@F@@@@ SZ PARFLG . CLEAR EDIT MODE FLAGS VQ )@@G@@@^@@@@ SZ N @^@@@@ SZ N1 @^@@@@ VR )@@G@@ SZ M @^@@@@ SZ M1 @^@@@@SIRER1 SZ VS )@@G@@ A5 @ @@@@ L,U A0,CORIMG @E@@@@ J 0,B1VT )@@G@@1 . $E ERROR RETURN @ @@@@SIREND L,U A0,037 VU )@@G@@@^@@@@ TNE,S1 A0,N@^@@@@ J $+5 @ @@@@ VV )@@G@@ SZ PARFLG @^@@@@ S,S1 A0,N@ @@@@ L VW )@@G@@ B11,SIRB11@ @@@@ J SIRER1 @B@@@@ LMVX )@@G@@J B11,DLNUM . @ @@@@SIREOF L B11,SIRB11@E@@@@VY )@@G@@ J 1,B11 . $E EOF RETURN @E@@@@SIRE VZ )@@G@@ TZ IOP . $T I OPTION SET @ @@@@ J WA )@@G@@ SIREOF @ @@@@ TNZ PARCOR @ @@@@ J WB )@@G@@ SIRE1 @^@@@@ L,U A1,1@ @@@@ S WC )@@G@@ A1,PAREOF @B@@@@ L,U A1,'NEW' . @B@@@@ WD )@@G@@ S,H2 A1,DNCAR . @ @@@@ J PARLTM WE )@@G@@@ @@@@SIRE1 SZ PARFLG @D@@@@ TZ NCARD WF )@@G@@ . IN 'N' MODE? @H@@@@ LMJ X11,NCCERR . YEWG )@@G@@S, NO CHANGE CARDS FOLLOW 'N' SO @F@@@@ WH )@@G@@ . OUTPUT ERROR MSG & RETURN @ @@@@ L,U A1,037 WI )@@G@@@G@@@@ S,S1 A1,N . $P SET IMPOSSIBLE ITEM NBRWJ )@@G@@ IN N @ @@@@ J GETSI @@@@@@@ @@@@SIRLC L WK )@@G@@ A1,NDC @E@@@@ JP A1,$+2 . $T IS DC POSWL )@@G@@ITIVE @E@@@@ SN A1,DC SET DC POSITIVE WM )@@G@@@E@@@@ L A1,CC GET CYCLE COUNT @D@@@@WN )@@G@@ TE A1,CL . $T CC=CL @ @@@@ J WO )@@G@@ SIRLC1 @F@@@@ L A1,LC GET LATEWP )@@G@@ST CYCLE NUMBER @^@@@@ A,U A1,1@F@@@@ AN WQ )@@G@@ A1,CC OLDEST CYCLE (LC+1-CC=OC) @D@@@@ TE WR )@@G@@ A1,AC . $T AC=OC @ @@@@ J SIRLC1 WS )@@G@@@D@@@@ A,U A1,1 INCREMENT OC @D@@@@ WT )@@G@@ TNE A1,DC . $T DC=OC+1 @ @@@@ J WU )@@G@@ SIREX @D@@@@ S A1,AC SET AC=OC+1 WV )@@G@@@E@@@@SIRLC1 TNZ,S6 SIRCCC . $T CYCLE 63 REACHED @ @@@@WW )@@G@@ J SIRPUT @ @@@@ L A1,AC @F@@@@WX )@@G@@ AN,S6 A1,SIRCCC . $P RE-NUMBER ACTUAL CYCLE @ @@@@WY )@@G@@ S A1,AC @ @@@@ L A1,DC @ @@@@WZ )@@G@@ JZ A1,SIRPUT @ @@@@ AN,S6 A1,SIRCCC @ @@@@XA )@@G@@ S A1,DC @ @@@@ J SIRPUT @@@@@@XB )@@G@@@ @@@@PUTNS L A1,NDC @E@@@@ JP A1,$+3 XC )@@G@@ . $T IS DC POSITIVE @ @@@@ JZ A1,SIRNS @D@@@@XD )@@G@@ J SIRST IGNORE IMAGE @E@@@@ L XE )@@G@@ A1,RC GET REQUESTED CYCLE @D@@@@ TLE XF )@@G@@ A1,AC . $T AC>RC @ @@@@ J SIRST XG )@@G@@@D@@@@ TNZ DC . $T DC=ZERO @ @@@@ XH )@@G@@ J SIRNS @D@@@@ TG A1,DC . XI )@@G@@$T DC>RC @ @@@@ J SIRST @C@@@@SIRNS SZ XJ )@@G@@ DC CLEAR DC@^@@@@ SZ NDC @D@@@@ XK )@@G@@ TNZ PARTBL+14 . SOURCE OUTPUT?@F@@@@ J XL )@@G@@ SIREX . NO, GIVE IMAGE TO USER @F@@@@ SZ XM )@@G@@ AC . CLEAR ACTUAL CYCLE IN ICW @E@@@@ J XN )@@G@@ SIRPUT . PUT IMAGE IN SO FILE@[@@@@. @[@@@@. @G@@@@XO )@@G@@. ROUTINE TO PRINT DIAGNOSTIC MESSAGE WHEN NO CHANGE CARDS FOLLOW 'N' XP )@@G@@@ @@@@. CALL: LMJ X11,NCCERR@[@@@@. @]@@@@NCCERR. @H@@@@XQ )@@G@@ DL A4,CORIMG . INSERT CORRECTION CARD IMAGE IN XR )@@G@@MSG @G@@@@ LA A2,A0 . SAVE A0 (CHARACTER PXS )@@G@@OINTER) @ @@@@ DS A4,NCCN @F@@@@ LA XT )@@G@@ A0,NCCPCW . A0:= PRINT CONTROL WORD @F@@@@ ER XU )@@G@@ PRINT$ . PRINT NO CHANGE CARDS MSG @D@@@@ SZ XV )@@G@@ NCARD . CLEAR 'N' MODE@F@@@@ LA A0,SIREF$ XW )@@G@@ . INCREMENT ERROR COUNT @^@@@@ AA,U A0,1@ @@@@XX )@@G@@ SA A0,SIREF$ @ @@@@ LA A0,A2 @ @@@@XY )@@G@@ J 0,X11 @[@@@@/. @A@@@@ . CONVERT CODEXZ )@@G@@ FD OR ASCII@A@@@@CONVE L A2,SIRIN+10 @A@@@@ S YA )@@G@@ A2,SIROUT+10 @ @@@@CONVER L,U A2,IMAGET @ @@@@ YB )@@G@@ S,H2 B11,CNVREX@A@@@@ L,S2 A0,SIRIN+10 @ @@@@YC )@@G@@ L,U A1,IMAGE @^@@@@ TEP,U A3,1@^@@@@ YD )@@G@@ J $+4 @ @@@@ LMJ B11,FDASC @ @@@@ L,YE )@@G@@U A3,SIR040 @^@@@@ J $+3 @ @@@@ LMJ YF )@@G@@ B11,ASCFD @ @@@@ L,U A3,SIR05 @A@@@@ S,S2 YG )@@G@@ A0,SIROUT+10 @ @@@@ AN,H1 A0,SIRUS @^@@@@ TNYH )@@G@@ A0 @ @@@@ J CNVREX @ @@@@ SN YI )@@G@@ A0,R1 @ @@@@ L A2,TAG @ @@@@ A,H1 YJ )@@G@@ A2,SIRUS @ @@@@ BT A2,0,*A3 @B@@@@ J YK )@@G@@ CNVREX . @[@@@@$(2) @ @@@@CNVREX J CONVER YL )@@G@@@[@@@@$(1) @[@@@@DLNUM.@ @@@@ L A4,DIFF @B@@@@ YM )@@G@@ JZ A4,0,B11 . @^@@@@ TNZ USER@ @@@@YN )@@G@@ J 0,B11 @ @@@@ L,H2 A5,DNCAR @ @@@@YO )@@G@@ TNE,U A5,'NEW' @ @@@@ J 0,B11 @ @@@@YP )@@G@@ TG,U A4,63 @ @@@@ L,U A4,63 @ @@@@YQ )@@G@@ S A4,NUMDLE @ @@@@ DSL A4,36 @ @@@@YR )@@G@@ DI,U A4,10 @ @@@@ A,U A5,060 @ @@@@YS )@@G@@ S,S6 A5,DNCAR @ @@@@ DSL A4,36 @ @@@@YT )@@G@@ DI,U A4,10 @ @@@@ A,U A5,060 @ @@@@YU )@@G@@ S,S5 A5,DNCAR @ @@@@ L,U A5,041 @ @@@@YV )@@G@@ S,S4 A5,DNCAR @^@@@@ SZ DIFF@ @@@@ YW )@@G@@ J 0,B11 @ @@@@/. OPEN SOURCE OUTPUT ROUTINE @]@@@@OPNSRCYX )@@G@@*. @]@@@[OPNSR$* . @A@@@[ S B11,SIRB11 . @D@@@]YY )@@G@@ LA A0,DBSTK . PLUM STACK @A@@@[ LAYZ )@@G@@,U A5,2*OBL+2*IBL .@A@@@[ LMJ B11,STORABUF @C@@@#ZA )@@G@@ SA A1,SIRBUFPT . SAVE PTR @ @@@[ SA,H1 ZB )@@G@@ A1,SIRIN+6@ @@@[ SA,H2 A1,CMPIN @ @@@[ SA,H2 ZC )@@G@@ A1,CMPCP @ @@@[ A,U A1,IBL @ @@@[ SA,H2 ZD )@@G@@ A1,SIRIN+6@ @@@[ A,U A1,IBL @A@@@[ SA,H1 ZE )@@G@@ A1,SIROUT+6 @ @@@[ A,U A1,OBL @A@@@[ SA,ZF )@@G@@H2 A1,SIROUT+6 @^@[@@OPNSR$* L,U A1,1@^@@@[ L,ZG )@@G@@U A1,1@E@[@@ S B11,SIRB11 SAVE RETURN ADZH )@@G@@DRESS @ @@@@ L,U A0,020 @E@@@@ S,S2 A0,SZI )@@G@@IRIN+3 SET READ FUNCTION @^@@@@ SN A0,N@^@@@@ZJ )@@G@@ SZ N1 @^@@@@ SZ M @^@@@@ SZZK )@@G@@ M1 @^@@@@ SZ SIC @ @@@@ SZ CMPIZL )@@G@@CC @^@@@@ SZ SEQ @ @@@@ L,U A2,040 ZM )@@G@@@ @@@@ S,S1 A2,SEQ @ @@@@ S,S1 A2,SEQ1 ZN )@@G@@@ @@@@ SZ SIRCCC @I@@@@ L A2,PARTBL+ZO )@@G@@26 . INITIALIZE SIRAD1 AT 1ST WRITE LOCATION @D@@@@ TZZP )@@G@@ PASS2 . FIRST PASS? @H@@@@ L A2,PZQ )@@G@@ARTBL+24 . NO - USE START OF OUTPUT TEXT INSTEAD @H@@@@ MIZR )@@G@@,U A2,28 . SECTOR ADDRESS X 28 = WORD ADDRESS @B@@@@ZS )@@G@@ S A3,SIRAD1 . @F@@@@ TZ PASSZT )@@G@@2 . $T SECOND PASS FLAG ON @ @@@@ J OPNSZU )@@G@@RS @ @@@@ L,U A2,041 @I@@@@ S A2,CZV )@@G@@ID . $P SET MINUS AS CORRECTION IDENTIFIER @G@@@@ ZW )@@G@@ L A2,PARTBL . $P GET PROCESSOR OPTIONS @ @@@@ZX )@@G@@ SSC A2,10 @E@@@@ JNB A2,$+2 ZY )@@G@@ . $T P OPTION SET @ @@@@ S A1,ASCINT @E@@@@ ZZ )@@G@@ JP A2,$+3 . $T Q OPTION SET @ @@@@ S AA )@@G@@ A1,ASCINT @ @@@@ S A1,QOP @^@@@@ LSAB )@@G@@SC A2,7@E@[@@ JNB A2,$+2 . $T W OPTIONAC )@@G@@ ON @E@@@[. JNB A2,$+2 . $T W OPTION ON AD )@@G@@@F@[@@ S A1,WOP . $P SET W OPTION FLAG AE )@@G@@@F@@@[. S A1,WOP . $P SET W OPTION FLAG AF )@@G@@@ @@@@ SSC A2,15 @E@@@@ JNB A2,$+2 AG )@@G@@ . $T 'H' OPTION SET?@ @@@@ S A1,HOP @^@@@@AH )@@G@@ LSSC A2,3@E@@@@ JNB A2,$+2 . AI )@@G@@$T 'K' OPTION SET?@ @@@@ S A1,KOP @^@@@@ SSAJ )@@G@@C A2,2@E@@@@ JNB A2,SIRNI . $T 'I' OPTIOAK )@@G@@N SET?@E@@@@ . $A YES NO,SIRNI AL )@@G@@@ @@@@ S A1,IOP @^@@@@ SSC A2,2@E@[@@AM )@@G@@ JNB A2,SIRJJ . $T 'G' OPTION SET?@E@@@[. AN )@@G@@ JNB A2,SIRJJ . $T 'G' OPTION SET?@E@[@@ AO )@@G@@ . $A YES NO,SIRJJ @E@@@[. AP )@@G@@ . $A YES NO,SIRJJ @ @[@@ S A1,GAQ )@@G@@OP @ @@@[. S A1,GOP @ @[@@ L,U A0,8AR )@@G@@0 @ @@@[. L,U A0,80 @F@[@@ S,H2 A0,CAS )@@G@@MPCON . $P SET CARD CHAR COUNT @F@@@[. S,H2 A0,CAT )@@G@@MPCON . $P SET CARD CHAR COUNT @^@[@@ J SIROAU )@@G@@@^@@@[. J SIRO@^@@@@SIRJJ LSSC A2,3@E@@@@ AV )@@G@@ JNB A2,SIRO . $T J OPTION SET @ @@@@ S AW )@@G@@ A1,JOP @ @@@@ L,U A0,72 @F@@@@ S,AX )@@G@@H2 A0,CMPCON . $P SET CARD CHAR COUNT @^@@@@ J AY )@@G@@ SIRO@ @@@@SIRNI LSSC A2,12 @E@@@@ JB AZ )@@G@@ A2,SIROPU . $T TEST 'U' OPTION@G@@@@SIROT L,S1 A2,PBA )@@G@@ARTBL . $P GET INPUT TYPE INDICATOR @F@@@@ JZ BB )@@G@@ A2,SIRO . $T IS INPUT FROM CARDS @F@@@@ TE,U BC )@@G@@ A2,050 . $T IS INPUT FROM PF @E@@@@ S BD )@@G@@ A1,TAPE . $P SET TAPE FLAG @A@@@@ DL A0,PBE )@@G@@ARTBL+1 @ @@@@ DS A0,SIRIN @F@@@@ L BF )@@G@@ A0,PARTBL+11 . $P SET PF INPUT LOCATION@ @@@@ S BG )@@G@@ A0,SIRIN+5@ @@@@ L,U A0,SIRIN @E@@@@ LMJ BH )@@G@@ B11,SDFIO OPEN SOURCE INPUT @ @@@@ J SIREBI )@@G@@RR @ @@@@ L A1,SIRIN+9@H@@@@. CHECK THAT THIS IS A VBJ )@@G@@ALID SDF FILE/ELEMENT (LABEL CONTROL WORD S1 = 050). @I@@@@. IF IT IS NBK )@@G@@OT TAKE ERROR EXIT. IF THIS IS A VALID SDF FILE/ELEMENT CHECK IF IT BL )@@G@@@I@@@@. IS SIR-TYPE SDF, IF NOT SET NOTSIR FLAG SO THAT WHEN IMAGES ARE BM )@@G@@OBTAINED FROM @G@@@@. SI THE ELEMENT CYCLE FIELDS (S3-S6) OF THE DATBN )@@G@@A ICWS CAN BE IGNORED. @^@@@@ LA,U A2,1@G@@@@ LABO )@@G@@,S1 A0,0,A1 . GET LABEL CODE FROM CONTROL WORD@D@@@@ BP )@@G@@ TE,U A0,050 . SDF LABEL? @C@@@@ J BQ )@@G@@ OPSERR . NO-ERROR@G@@@@ LA,H1 A0,0,A1 BR )@@G@@ . GET H1 OF LABEL CONTROL WORD @F@@@@ TNE,U A0,0500130BS )@@G@@ . IS THIS SIR CREATED SDF? @C@@@@ J YSSDF BT )@@G@@ . YES @H@@@@ TE,U A0,0500100 . MIGHT BEBU )@@G@@ OLD TYPE SIR SDF BEFORE 'S' @D@@@@ BV )@@G@@ . CODE WAS USED @D@@@@ J NSSDF . NO-NOT SBW )@@G@@IR SDF@I@@@@YSSDF LA A0,1,A1 . CHECK THAT LABEL IMABX )@@G@@GE IS '*SDFF*' JUST @G@@@@ TNE A0,SIRSDF . TOBY )@@G@@ BE SURE THAT THIS IS SIR SDF @E@@@@ SZ A2 BZ )@@G@@ . SIR SDF, CLEAR FLAG @F@@@@NSSDF SA A2,NOTSIR . NOCA )@@G@@T SIR SDF, SET FLAG @ @@@@ L A0,0,A1 @D@@@@ CB )@@G@@ TP A0 . $T SCW? @E@@@@ JB CC )@@G@@ A0,$+2 . ASCII FLAG SET? @C@@@@ SZ A0 CD )@@G@@ . NO @E@@@@ S A0,ASCPF . $PCE )@@G@@ SET PF CODE TYPE @D@@@@ TNZ ASCINT . $T P OR CF )@@G@@Q SET @ @@@@ S A0,QOP @G@@@@SIRO TNZ PARTCG )@@G@@BL+14 . $T SOURCE OUTPUT SPECIFIED @ @@@@ J CH )@@G@@ SIROE @A@@@@ L A0,PARTBL+26 @A@@@@ S CI )@@G@@ A0,SIROUT+5 @A@@@@ S A0,PARTBL+24 @A@@@@CJ )@@G@@ DL A0,PARTBL+14 @ @@@@ DS A0,SIROUT CK )@@G@@@ @@@@ L,U A0,SIROUT @E@@@@ LMJ B11,SDFOO CL )@@G@@ OPEN SOURCE OUTPUT @ @@@@SIROE L B11,SIRB11@A@@@@CM )@@G@@ L,S2 A0,PARTBL+19 @F@@@@ TZ QOP CN )@@G@@ . $P SET ELEMENT CODE TYPE @^@@@@ J $+3 @ @@@@CO )@@G@@ AND,U A0,057 @^@@@@ J $+2 @ @@@@ CP )@@G@@ OR,U A0,020 @A@@@@ S,S2 A1,PARTBL+19 @D@@@@CQ )@@G@@ J 1,B11 . $E EXIT @H@@@@OPNSRS L CR )@@G@@ A0,PARTBL+24 . $P SET SECOND PASS INPUT LOCATION @ @@@@CS )@@G@@ S A0,SIRIN+5@ @@@@ L A0,SIR05 @ @@@@CT )@@G@@ S A0,FDC @A@@@@ DL A0,PARTBL+14 CU )@@G@@@ @@@@ DS A0,SIRIN @G@@@@ L A0,QOP CV )@@G@@ . $P INTERNAL = ELEMENT CODE TYPE @ @@@@ S A0,ACW )@@G@@SCINT @ @@@@ L,U A0,SIRIN @E@@@@ LMJ B11,CX )@@G@@SDFIO OPEN SOURCE INPUT @ @@@@ J SIRERR CY )@@G@@@ @@@@ L B11,SIRB11@D@@@@ J 1,B11 CZ )@@G@@ . $E EXIT @F@@@@SIROPU S A1,UOP . DA )@@G@@$P SET 'U' OPTION FLAG @ @@@@ L A2,RC @ @@@@ DB )@@G@@ TE,U A2,076 @ @@@@ J SIROT @ @@@@ DC )@@G@@ L A3,CC @^@@@@ A,U A2,1@ @@@@ TNDD )@@G@@E A3,CL @^@@@@ A,U A2,1@ @@@@ AN DE )@@G@@ A2,CC @F@@@@ S,S6 A2,SIRCCC . $P SET CYCLE DDF )@@G@@ECREMENTOR @ @@@@ J SIROT @[@@@@. @[@@@@. DG )@@G@@@I@@@@. ROUTINE TO PRINT ERROR MESSAGE AND TAKE ERROR EXIT WHEN SOURCE IDH )@@G@@NPUT IS NOT A @ @@@@. VALID SDF FILE OR ELEMENT. @B@@@@. A1 = ADDREDI )@@G@@SS OF ICW IN INPUT BUFFER @[@@@@. @]@@@@OPSERR. @D@@@@ DJ )@@G@@ LA A0,0,A1 . GET LABEL ICW @F@@@@ SA DK )@@G@@ A0,OPSLBL . INSERT IN ERROR MESSAGE @F@@@@ LA DL )@@G@@ A0,OPSPCW . A0 := PRINT CONTROL WORD @G@@@@ ER DM )@@G@@ PRINT$ . PRINT INVALID SDF LABEL MSG @E@@@@ L DN )@@G@@ X11,SIRB11 . GET RETURN ADDRESS @D@@@@ J DO )@@G@@ 0,X11 . ERROR EXIT @ @@@@/. CLOSE SOURCE OUTPUT ROUTINEDP )@@G@@@]@@@@CLOSRC*. @ @@@@CLOSR$* L,U A0,SIRIN @E@@@@ S DQ )@@G@@ B11,SIRB11 SAVE RETURN ADDRESS @E@@@@ LMJ DR )@@G@@ B11,SDFIC CLOSE SOURCE INPUT @F@@@@ TZ PASSDS )@@G@@2 . $T SECOND PASS FLAG ON @E@@@@ J SIRCDT )@@G@@LS . $A YES,SIRCLS NO @F@@@@ SZ,H2 FLAG1 DU )@@G@@ . $P CLEAR G AND J OPTIONS@^@@@@ TNZ TAPE@ @@@@DV )@@G@@ J SIRFP @ @@@@ L,U A0,051 @F@@@@DW )@@G@@ S,S2 A0,SIRIN+3 SET MOVE BACKWARD FUNCTION@ @@@@DX )@@G@@ L,U A0,SIRIN @H@@@@ ER IOW$ DY )@@G@@ . $P MOVE TAPE BACKWARD ONE BLOCK @^@@@@SIRFP L,U A1,1DZ )@@G@@@F@@@@ S A1,PASS2 . $P SET SECOND PASS FLAG EA )@@G@@@E@@@@ TNZ UOP . $T U OPTION ON @ @@@@EB )@@G@@ J SIRNW @ @@@@ L A2,RC @ @@@@EC )@@G@@ AN A2,LC @H@@@@ A A2,CC ED )@@G@@ . $P GET NEW CC IF LC NOT REQUESTED @H@@@@ A A1,REE )@@G@@C . $P INCREMENT REQUESTED CYCLE BY 1 @ @@@@ ANEF )@@G@@,S6 A1,SIRCCC @ @@@@ S A1,RC @F@@@@ S,EG )@@G@@S4 A1,PARTBL+22 . $P INCREMENT ACTUAL CYCLE @ @@@@ L EH )@@G@@ A0,CL @E@@@@ S,S2 A0,PARTBL+22 . $P SET CEI )@@G@@YCLE LIMIT @ @@@@ TE A0,A2 @^@@@@ A,U EJ )@@G@@ A2,1@E@@@@ S,S6 A2,PARTBL+22 . $P SET CYCLE COUNT EK )@@G@@@ @@@@SIRCO L,U A0,SIROUT @E@@@@ LMJ B11,SDFOC EL )@@G@@ CLOSE SOURCE OUTPUT @ @@@@ J SIRERR @F@@@@EM )@@G@@ L A0,SIROUT+5 GET NEXT WRITE LOCATION @A@@@@EN )@@G@@ AN A0,PARTBL+24 @E@@@@ S,H2 A0,PARTBL+EO )@@G@@23 SET LENGTH OF TEXT @A@@@@ LN,U A0,PARTBL+14 EP )@@G@@@G@@@@ L A1,SIROUT+5 . $P SET NEXT WRITE LOCATIEQ )@@G@@ON @D@@@@ ER PFI$ . $W PF INSERT@D@@@@ER )@@G@@ JZ A2,SIRCLS . $T PFI ERROR@^@@@@ SZES )@@G@@ A5 @ @#@[ L,H1 A1,SIRIN+6@A@@@# L ET )@@G@@ A1,SIRBUFPT @ @@@] LA A0,DBSTK .@A@@@[ LMEU )@@G@@J B11,STORFBUF @ @@@@ L B11,SIRB11@E@@@@ EV )@@G@@ J 0,B11 . $E ERROR EXIT @[@@@[SIRCLS@ @@@]EW )@@G@@ LA A0,DBSTK @A@#@[ L,H1 A1,SIRIN+6 EX )@@G@@@A@@@# L A1,SIRBUFPT @A@@@[ LMJ B11EY )@@G@@,STORFBUF @E@[@@SIRCLS L B11,SIRB11 GET RETURN ADDREEZ )@@G@@SS @E@@@[ L B11,SIRB11 GET RETURN ADDRESS FA )@@G@@@D@@@@ J 1,B11 . $E EXIT @F@@@@SIRNW FB )@@G@@ SZ RC . $P CLEAR REQUEST CYCLE @^@@@@ FC )@@G@@ L,U A1,1@D@@@@ S,S6 A1,PARTBL+22 . $P SET CFD )@@G@@C=1 @D@@@@ SZ,S4 PARTBL+22 . $P SET LC=0 @G@@@@FE )@@G@@ TNZ PARTBL+14 . $T SOURCE OUTPUT SPECIFIED FF )@@G@@@ @@@@ J SIRCLS @F@@@@ TZ PARTBL+16 FG )@@G@@ . $T NEW SOURCE ELEMENT @ @@@@ J SIRCO FH )@@G@@@ @@@@ L,U A0,SIROUT @E@@@@ LMJ B11,SDFOC FI )@@G@@ CLOSE SOURCE OUTPUT @ @@@@ J SIRERR @ @@@@FJ )@@G@@ J SIRCLS @#@@@@ END ___ $P SET ELEMENTFK )@@G@@ CODE TYPE @^@@@@ J $+3 @ @@@@ AND,U A0,0FL )@@G@@57 @^@@@@ J $+2 @ @@@@ OR,U A0,020 FM )@@G@@*[S@@@*SDFF*@C@@@H. COPYRIGHT 1975 BY UNIVERSITY OF MARYLAND @[@@@HFN )@@G@@. @D@@@H. QUESTIONS CONCERNING THIS SHOULD BE DIRECTED TO: @[@@@HFO )@@G@@. @ @@@H. MARVIN V. ZELKOWITZ @B@@@H. DEPARTMENT OF CFP )@@G@@OMPUTER SCIENCE @A@@@H. UNIVERSITY OF MARYLAND @B@@@H. FQ )@@G@@ COLLEGE PARK, MARYLAND 20742 @[@@@H. @G@@@H. PERMISSIOFR )@@G@@N TO USE THESE LISTINGS AND THE COMPUTER PROGRAMS THEY@E@@@H. REPRESENFS )@@G@@T IS GRANTED UNDER THE FOLLOWING CONDITIONS: @[@@@H. @G@@@H. FT )@@G@@ 1. UNLIMITED USE MAY BE MADE OF THE PROGRAMS REPRESENTED BY @G@@@HFU )@@G@@. THESE LISTINGS PROVIDED THAT THE NAME PLUM OR UNIVERSITY OF MARYLANDFV )@@G@@@E@@@H. PL/1 COMPILER REMAINS ASSOCIATED WITH THESE PROGRAMS. @[@@@HFW )@@G@@. @F@@@H. 2. MODIFICATIONS MAY BE MADE TO THE LISTINGS PROVIDFX )@@G@@ED: @[@@@H. @G@@@H. (A) ANY RESULTING PROGRAM, OR REPORT, PFY )@@G@@APER OR DOCUMENTATION @G@@@H. DESCRIBING SUCH PROGRAM WILL CLEAFZ )@@G@@RLY INDICATE THAT THE PROGRAM @E@@@H. IS A DIALECT OF PLUM OR IS GA )@@G@@DERIVED FROM PLUM, AND @[@@@H. @G@@@H. (B) ALL SUCH MODIFICAGB )@@G@@TIONS, OTHER THAN TRIVIAL CORRECTIONS @F@@@H. OF ERRORS IN THGC )@@G@@E SOURCE PROGRAMS, SHALL BE REPORTED AND @G@@@H. A BRIEF DESCRIPGD )@@G@@TION OF THE FEATURE ADDED SHALL BE SUBMITTED @C@@@H. TO THE UNGE )@@G@@IVERSITY OF MARYLAND, AND @[@@@H. @F@@@H. (C) NO PROGRAMSGF )@@G@@ DERIVED FROM THESE LISTINGS SHALL BE SOLD@G@@@H. WITHOUT WRITTENGG )@@G@@ APPROVAL FROM THE UNIVERSITY OF MARYLAND, AND @[@@@H. @F@@@H. GH )@@G@@ (D) COPIES OF THESE PROGRAMS MAY BE TRANSMITTED TO OTHER @G@@@H. GI )@@G@@ LOCATIONS PROVIDED THAT SUCH TRANSMITTALS CLEARLY INDICATE @G@@@HGJ )@@G@@. WHETHER THE PROGRAMS ARE EXACT COPIES OF THE UNIVERSITY OF GK )@@G@@@E@@@H. MARYLAND PLUM COMPILER OR ARE MODIFICATIONS TO IT. @[@@@HGL )@@G@@. @G@@@H. 3. THESE CONDITIONS ONLY APPLY TO THE PLUM COMPILERGM )@@G@@ ITSELF, @F@@@H. AND ARE NOT MEANT TO APPLY TO ANY PROGRAM WRITTEN GN )@@G@@USING PLUM. @E@@@H. THE PURPOSE OF THESE CONDITIONS IS TO ALLOW ANY USGO )@@G@@ER TO @F@@@H. EXPERIMENT WITH THE COMPILER AS LONG AS THE RESULTING PRGP )@@G@@ODUCT @G@@@H. IS NOT SOLD AND AS LONG AS IT IS KNOWN THAT THE PRODUCT GQ )@@G@@DEVELOPED @#@@@H. FROM PLUM. @[@@@H. @[@@@H. @[@@@H. GR )@@G@@@[@@@H. @[@@@H. @[@@@H/. @#@@@G AXR$ . @#@@@G GS )@@G@@ DCLRG . @G@@@G REGS A7,A8,A9,A10,A11,A12,A13,A14,A15,A3 X1,XGT )@@G@@2,X3,X4,X5,X6,X7,;@A@@@G X8,X9,X10,A1,A2 . @G@@@G GU )@@G@@ ALREG A7,A8,A9,A10,A11,A12,A13,A14,A15 X1,X2,X3,X4,X5,X6,X7,; @ @@@GGV )@@G@@ X8,X9,X10 . @#@@@G UNLIST . @]@@@G@ADD PLTVDS GW )@@G@@@#@@@G LIST . @#@@@G CEND . @#@@@G PLWORD . GX )@@G@@@#@@@G PLIOCB . @C@@@GZENTRY* PROC *0 . ENTRY TGY )@@G@@O PLEX@#@@@G LOCAL . @C@@@G LINK ZENTR . AGZ )@@G@@ SVE REGS @#@@@G END . @^@@@GZEND* PROC *0 . @C@@@GHA )@@G@@ GOTO ZENDA . ->RETURN @#@@@G END . HB )@@G@@@^@@@GZTB FORM 18,18 . @#@@@G SSWS . @B@@@G/. MAIHC )@@G@@N EXEC 8 SYSTEM INTERFACE @#@@@GPLEX CSECT 3 .@G@@@GREP EQUHD )@@G@@ MO$DE='REP' . SET MODE FLAGS (1 IS 1, OTHER 0) @D@@@JBANK HE )@@G@@ EQU MO$DE='BANK' . BANKED VERSION @ @@@GSEG EQU MO$HF )@@G@@DE='SEG' . @E@@@GZSNFL SF 0700000 . FLAGS FOR REGS IN SHG )@@G@@NAP @F@@@GHBIT SF 0400000000000 . HIGH BIT IN REG A0 FOR LOHH )@@G@@AD$ @E@@@GZPCT SAC 0110,PARTBLX . MEMORY TIME IN PCT HI )@@G@@@B@H@GZRDPK SAC ZEOF2,KCARD-(IN 63,0,1,0) .@ @I@HZRDPK SAC ZEOHJ )@@G@@F2,IMAGET . @B@@@IZRDPK SAC ZEOF2,KCARD-(IN 63,0,1,0) .@#@@@G HK )@@G@@ CEND . @^@@@HZ26OPT +0377777777 @D@@@GPLUM* LABEL . HL )@@G@@ BEGIN EXECUTION @D@@@H AND A5,Z26OPT . HM )@@G@@DELETE EXTRA BITS @C@H@G LOAD X9,A5 . SAVE OPTIONS HN )@@G@@@C@@@H LOAD X9,A6 . SAVE OPTIONS @D@@@G IF HO )@@G@@ A4,EQ,4,I THEN,PLDMND . ->DEMAND JOB @#@@@GPLDMOK LABEL . @ @@@GHP )@@G@@ LMJ X11,PREPRM @D@@@G ER ERR$ . HQ )@@G@@ SETUP PARTBL @D@@@G LOAD A7,B$TIME,I . DEFAULT TIMHR )@@G@@E @E@@@G L,U A0,010306 . GET SPEC FIELD 3 (TIME) HS )@@G@@@ @@@G LMJ X11,SINF$ . @D@@@G GOTO PLDNTM . HT )@@G@@ ->NO TIME SPECIFIED@D@@@G SUB A3,12,I . NUMBER HU )@@G@@OF CHAR-12 @F@@@G LOADN A3,A3 . SHIFT COUNT TO LEFTHV )@@G@@ JUSTIFY @F@@@G MPYS A3,6,I . CONVERT TO BIT COUNHW )@@G@@T SHIFT @B@@@G SRBD A0,0,A3 . SHIFT @D@@@G HX )@@G@@ CVI A7,A0 . CONVERT TO BINARY @#@@@GPLDNTM LABEL. HY )@@G@@@E@@@G LOAD X8,06060,I . ASSUME NO SYSPROG OPTIONS@F@@@GHZ )@@G@@ LOAD A0,010406,I . GET SPEC 4 (SYSPROG OPTIONS) @B@@@GIA )@@G@@ LMJ X11,SINF$ . DO IT @I@@@G GOTO PLDNTX IB )@@G@@ LABEL . NO OPTIONS, USE DEFAULTS @C@@@G IC )@@G@@ SUB A3,12,I . RIGHT JUSTIFY@^@@@G LOADN A3,A3 . ID )@@G@@@C@@@G MPYS A3,6,I . 6 BITS/CHAR @^@@@G SRBIE )@@G@@D A0,0,A3 .@E@@@G LOAD X8,A1 . SAVE BITS FOR PLOPTIF )@@G@@N @#@@@GPLDNTX LABEL . @#@@@G STRT . @D@@@G LOAIG )@@G@@DA A0,DRNSTK . SETUP STACK FOR CALLS@^@@@G LOADXI A0,1,I .IH )@@G@@@D@@@G LINK PLSTRT . -> CALL CONTROL @#@@@GPLDMNDII )@@G@@ LABEL . @C@@@G LOAD A0,X9 . GET OPTIONS @C@@@GIJ )@@G@@ OR,U A0,0100 . SET T OPTION @^@@@G LOAD X9,IK )@@G@@A1 . @^@@@G GOTO PLDMOK . @[@@@G. @ @@@G. MORE COREIL )@@G@@ OPTION @[@@@G. @C@@@G. A7=NUMBER OF NEW WORDS FOR SD SPAIM )@@G@@CE @D@@@G. A8=NUMBER OF NEW WORDS (SD SPACE+BCODE SPACE)@#@@@GIN )@@G@@ZMCORE* ZENTRY . @F@@@G LOAD A0,A8 . GET ADDITONALIO )@@G@@ WORDS TO ACQUIRE @F@H@G ADD A0,ADPEND . GET CURRENT EIP )@@G@@ND, FIND NEW END @F@@@H ADD A0,ADPCND . GET CURRENT EIQ )@@G@@ND, FIND NEW END @ @H@G STORE A0,ADPEND . @ @@@G STOIR )@@G@@RE A0,ADPCND . @ @@@G STORE A0,ADPCBE . @E@@@G ADDIS )@@G@@ A7,ADPCBC . NEW B CODE START ADDRESS @ @@@G STORE A7,IT )@@G@@ADPCBC . @ @@@G STORE A0,ADPCSN . @C@@@G ER MCOIU )@@G@@RE$ . GET SPACE @C@@@G ZEND . RIV )@@G@@ETURN . @[@@@H. @[@@@H. @[@@@H. @A@@@H. A8= HIGHEIW )@@G@@ST ADDR TO REMAIN @[@@@H. @#@@@HZLCORE* ZENTRY @ @@@H STOIX )@@G@@RE A8,ADPCND . @^@@@H LOAD A0,A8 . @^@@@H ER LCOIY )@@G@@RE$ . @#@@@H ZEND . @[@@@G. @ @@@G. OPEN I/O DEVICEIZ )@@G@@S @[@@@G. @#@@@GZIO* ZENTRY . @C@@@G LMJ X11,OPNSRJA )@@G@@$ . CALL SIR @^@@@G ER ERR$ . @C@@@G MOVJB )@@G@@E DZZSIR,0,I . LINE 0 FIRST @C@@@G ZEND . JC )@@G@@ ->RETURN @ @@@G. SET TIMER ROUTINE @F@@@G. ENTJD )@@G@@ER WITH A7 = TIME IN SECONDS, EXIT WITH A7=CURRENT TM@#@@@GZSTIMR* ZENJE )@@G@@TRY . @F@@@G MSI,U A7,5000 . CONVERT SECONDS TO CLOCK JF )@@G@@TICKS @^@@@G LOAD A1,A7 . @D@@@G L,U A0,DTPKT . JG )@@G@@ SET TRAP ADDRESS @B@@@G DO T$ME=1 , ER PTTRAP$ . JH )@@G@@@B@@@G DO T$ME=0 , ER CEND$ . DUMMY@E@@@G LMJ X11JI )@@G@@,MSTIME . GET ELAPSED MEMORY TIME @D@@@G LOAD A7,A0 . JJ )@@G@@ SET RETURN VALUE @#@@@G ZEND . @[@@@G. @[@@@GJK )@@G@@. @D@@@GDTIBNK LABEL . TIMER INTERRUPT @C@@@GJL )@@G@@ L,H1 A1,DTPKT . SEE IF CANCEL@B@@@G IF A1,JM )@@G@@EQ,0,I THEN,ZCANC . @C@@@G MOVE TVEXST,DTIMOT . CAUSE TJN )@@G@@IMEOUT@^@@@G SZ,H1 DTPKT . @B@@@G J *DTPKT . JO )@@G@@ RETURN @#@@@GFILL(1) CSECT 3 @#@@@GDTIMOT SFW 0 . @^@@@G JP )@@G@@ J DTIMOUT @#@@@GDTIMOK SFW 0 @^@@@G J 0,X11 . JQ )@@G@@@#@@@GTPKT SFW 0 . @#@@@G +15,0 . @]@@@G CEND@[@@@GJR )@@G@@. @[@@@G. @#@@@GDTIMOUT LABEL . @C@@@G MOVE TVEXST,DTIJS )@@G@@MOK . TURN OFF TIMEOUT@E@@@G MOVE DBENT,TPKT . SET TIMEOUJT )@@G@@T CONTINGENCY @^@@@G SUB X11,1,I . @^@@@G SX,H2 X11JU )@@G@@,DBENT@^@@@G GOTO DBENT+2 @^@@@G. CALL MODULE @ @@@GJV )@@G@@. A7=NAME OF MODULE @C@@@GZCALL* LLOC . DON'T TRUST JW )@@G@@A0 YET . @ @@@G STORE A0,A15+1 . @^@@@G STORE X11JX )@@G@@,A15+2@^@@@G LR,U R1,TSIZ .@D@@@G LXM,U X1,ZCALLX-2 . JY )@@G@@ SET TO SEARCH TABLE@C@@@G LXI,U X1,2 . SIZE OFJZ )@@G@@ ENTRY@B@@@G SE,H1 A7,2,*X1 . SEARCH @C@@@G J KA )@@G@@ ZCALLY . -> NO ENTRY @E@@@G ON SEG . KB )@@G@@ DO LOAD$ IF SEGMENTED @^@@@G LA,H2 A0,0,X1 .@^@@@G KC )@@G@@ ADD A0,HBIT .@ @@@G LA,U A1,ZCALLZ . @^@@@G ER KD )@@G@@ LOAD$ @^@@@G OFF SEG . @[@@@G. @[@@@G. @D@@@GKE )@@G@@ ON REP . DO RLINK$ IF REP @E@@@G LA,KF )@@G@@H1 A0,1,X1 . GET OFFSET IN RLIST TABLE@ @@@G LA A0,KG )@@G@@ZRLIST,A0 . @C@@@G ER RLINK$ . LOAD PHASE @B@@@GKH )@@G@@ ER ERR$ . OOPS!!!@C@@@GNEWREP* LABEL . KI )@@G@@ ENTRY POINT @^@@@G OFF REP . @[@@@J. @[@@@JKJ )@@G@@. @^@@@J ON BANK @B@@@J LXI,H1 X11,1,X1 . KK )@@G@@ GET BDI@C@@@J LIJ X11,NEWREP . NEXT BANK @#@@@JKL )@@G@@NEWREP* LABEL . @#@@@J OFF BANK @#@@@GZCALLZ LABEL . @D@@@GKM )@@G@@ LX,H2 X2,1,X1 . PTR TO MSG TABLE @^@@@G LA KN )@@G@@ A7,0,X2 .@C@@@G STORE A7,DEXMST . TEXT BLOCKS @^@@@GKO )@@G@@ SRB A7,18 . @C@@@G STORE A7,DEXMOS . MSG NUMKP )@@G@@BERS @B@@@GZCALLY LOAD A0,A15+1 . RESET A0 @^@@@G LOAKQ )@@G@@D X11,A15+2@#@@@G LJMP . @#@@@GZCALLX LABEL . @D@@@G KR )@@G@@ ON SEG . SEGMENT LOAD TABLE @B@H@G +'SY',SY KS )@@G@@. SY SM @A@@@H +'SY',SY . SY@^@@@GKT )@@G@@ +PLSYNA,MSG11 .@D@H@G +'AT',AT . ATTRIBUTKU )@@G@@E LISTING @E@@@H +'SM',SM . SEMA AND ATTRIBUTE LKV )@@G@@ISTING@^@@@G +PLATTR,MSG21 .@A@@@G +'CG',CG . KW )@@G@@ CG@^@@@G +PLCGDR,MSG31 .@^@@@G +'EX',EX . @^@@@GKX )@@G@@ +PLEXGO,MSG41 .@#@@@G +'RS',RS @^@@@G +PLEXGO,MKY )@@G@@SG51 .@^@@@G OFF SEG . @[@@@G. @[@@@G. @D@@@J KZ )@@G@@ ON BANK . BANK BDI TABLE @#@@@J +'ST',0 .LA )@@G@@@B@@@J +PLUM$BANK1,MSG11 . SY @#@@@J +'SM',0 LB )@@G@@@B@@@J +PLUM$BANK2,MSG21 . SM @#@@@J +'CG',0 .LC )@@G@@@B@@@J +PLUM$BANK3,MSG31 . CG @#@@@J +'EX',0 .LD )@@G@@@B@@@J +PLUM$BANK4,MSG41 . EX @#@@@J +'RS',0 .LE )@@G@@@B@@@J +PLUM$BANK5,MSG51 . RS @#@@@J +'DB',0 .LF )@@G@@@B@@@J +PLUM$BANK6,MSG41 . DB @^@@@J OFF BANLG )@@G@@K @[@@@J. @[@@@J. @D@@@G ON REP . RLH )@@G@@EP LOAD TABLE @#@@@G +'ST',0 @E@@@G +2,MSG11 . LI )@@G@@ SY SM LOADED BY D BANK @#@H@G +'AT',0 @#@@@H LJ )@@G@@ +'SM',0 @C@@@G +3,MSG21 . ATTRIBUTES@#@@@GLK )@@G@@ +'CG',0 @^@@@G +4,MSG31 . @#@@@G +'EX',0 .LL )@@G@@@^@@@G +5,MSG41 . @#@@@G +'RS',0 @^@@@G +6,LM )@@G@@MSG51 . @#@@@H +'DB',0 .@^@@@H +7,MSG41 . @^@@@GLN )@@G@@ OFF REP . @ @@@GTSIZ EQU ($-ZCALLX)/2 . @A@@@G. LO )@@G@@ ZHDG HEADING SITTING IN X1 @#@@@GZHDG* ZENTRY . @D@@@G IF LP )@@G@@ X1,ZERO THEN,ZHDGN . -> CANCEL HEADING @C@@@G MOVE DGOLIN,HDGLQ )@@G@@0,2 . SET '@HDG' @^@@@G LOADD A7,EDTN @ @@@G STOLR )@@G@@RED A7,DGOLIN+2 . @ @@@G LOAD A7,EDTN+2 . @ @@@G STOLS )@@G@@RE A7,DGOLIN+4 . @ @@@G MOVE DGOLIN+5,W1,18 .@ @@@G LOALT )@@G@@D A7,ZHDGSP . @C@@@G STORE A7,DGOLIN+23+(IN 0,H1,0,0) . LU )@@G@@@ @@@G LOAD A0,HDGPKT . @^@@@G ER APRTCN$ .@#@@@GLV )@@G@@ ZEND . @A@@@GHDGPKT +24,DGOLIN-(IN 63,0,1,0) . @#@@@GFILL(1LW )@@G@@) CSECT 3 @#@@@GZHDGSP SF ' . ' @#@@@G CEND . @D@@@GZHDGN LX )@@G@@ LABEL . CANCEL HEADING @^@@@G LA,U A0,LY )@@G@@HDGN .@^@@@G LXI,U A0,2 . @^@@@G ER APRTCN$ .@#@@@GLZ )@@G@@ ZEND . @^@@@GHDG0 'H,,1, ' . @^@@@GHDGN 'H,N . MA )@@G@@' @A@@@G. ZPUT PRINT LINE MODULE @^@@@G. X1=A(IOCBMB )@@G@@) @#@@@GZPUT* ZENTRY . @^@@@G USING IOCB,X1 .@E@@@G MC )@@G@@ LOAD A7,IOCBSK . GET CARRIAGE CONTROL @D@@@G IF MD )@@G@@ A7,EQ,63,I THEN,ZPUT01 . -> PAGE UP @D@@@G LOAD X2,IOCBCBME )@@G@@ . GET PRINTER PKT @^@@@G USING WORD,X2 .@D@@@G MF )@@G@@ STORE A7,W1S2 . SET CNTRL IN PKT @D@@@G LOAD A0,MG )@@G@@W1 . PUT PKT INTO A0 @#@H@GZPUT02 LABEL . @C@@@G MH )@@G@@ ER APRINT$ . PRINT LINE @#@@@HZPUT02 LABEL . @E@@@GMI )@@G@@ LOAD A7,0,I . SET NORMAL RETURN CODE @C@@@G MJ )@@G@@ ZEND . -> RETURN @^@@@GZPUT01 LA A0,PAGEUPMK )@@G@@@^@@@H ER APRINT$ .@^@@@G GOTO ZPUT02 . @^@@@GZPF ML )@@G@@ FORM 12,6,18 @C@@@GPAGEUP ZPF 07777,33,KLINE-(IN 63,0,1,0) . MM )@@G@@@ @@@G. ZGET READ A CARD . @E@@@G. X1=A(IOCB) . ON RETURMN )@@G@@N X1=ADDRESS OF IMAGE READ @#@@@GZGET* ZENTRY . @D@@@G MOVMO )@@G@@E KCARD,KBLANK,20 . CLEAR BUFFER . @G@@@G IF GOEXEC,OFMP )@@G@@F,DGOPHF THEN,ZRD . ->COMPILE PHASE, READ SIR @D@@@G LOAD A0,MQ )@@G@@ZRDPK . GET READ$ PACKET @C@@@G ER AREAD$ . MR )@@G@@ GET IMAGE @D@@@G LOAD A1,20,I . SET 20 WORDS MS )@@G@@READ @B@@@G GOTO ZRD2 . ->MERGE@#@@@GZRD LABMT )@@G@@EL . @D@@@G LOAD X2,IOCBCB . GET PKT ADDRESS @D@@@GMU )@@G@@ LOAD A0,W1 . PUT PKT INTO A0 . @C@@@G LMJMV )@@G@@ X11,GETAS$ . READ RECORSS @B@@@G ER ERR$ . MW )@@G@@ ERROR @C@@@G J ZEOF . ->END OF FILE@E@@@GMX )@@G@@ JN A1,ZRD . ->IGNORE IF CONTROL WRD @^@@@G MY )@@G@@ LOAD A3,1,I . @D@@@G ADD A3,DZZSIR . UP SURCE COUNMZ )@@G@@T @ @@@G STORE A3,DZZSIR . @F@@@G SLB A1,6 . NA )@@G@@ GET WORD COUNT FROM SDF FORMAT @^@@@G SRB A1,30 NB )@@G@@@#@@@GZRD2 LABEL . @ @@@G STORE A1,DLXSMC . @D@@@G NC )@@G@@ LOADA X1,KCARD . SET RETURN REGS @D@@@G LOAD A7,ND )@@G@@0,I . SET RETURN CODE REG@#@@@G ZEND . @D@@@GZEOF2 NE )@@G@@ LABEL . EOF ON READ$ . @E@@@G LOAD A1,NF )@@G@@A0 . SET CORRECT REGISTER @B@@@G GOTO ZEOF$ . NG )@@G@@ ->MERGE@D@@@GZEOF* LABEL . END OF FILE ONH )@@G@@N READ@C@@@G LMJ X11,CLOSR$ . CLOSE SIR @^@@@G NI )@@G@@ ER ERR$ . @ @H@G LMJ X11,POSTPR . @^@H@G ER NJ )@@G@@ ERR$ . @D@@@G LOAD A1,0,I . SET SOFT EOF ON SIRNK )@@G@@@#@@@GZEOF$* LABEL . @E@@@G LOAD A7,1,I . SET ERRNL )@@G@@OR RETURN CODE @B@@@G JP A1,ZEOF3 . => @EOF@C@@@GNM )@@G@@ LOAD A7,2,I . HARD EOF @#@@@GZEOF3 LABEL . NN )@@G@@@C@@@G MOVE DGOCDF,1,I . SET TREAD$ EOF @#@@@G ZENNO )@@G@@D . @ @@@G. ZEOJ END OF JOB @#@@@GZEOJ* ZENTRY . @D@@@HNP )@@G@@ LMJ X11,POSTPR . FREE ANY FILES @^@@@H ER NQ )@@G@@ ERR$ . @#@@@G QUIT . @B@@@G. CONTINGENCY SETTING NR )@@G@@ROUTINE @#@@@GZDBUG* ZENTRY . @C@@@G LOAD A0,ZIALL$ . NS )@@G@@ SET PACKET @E@@@G ER IALL$ . SET CONTINGENNT )@@G@@CY EXIT @B@@@G ZEND . RETURN @^@@@GZFRM NU )@@G@@ FORM 12,6,18 .@D@@@GZIALL$ ZFRM 07777,0,DBENT . CONTINGENCY PNV )@@G@@ACKET @[@@@G. @#@@@G. TTY INPUT@[@@@G. @#@@@GZTTY* ZENNW )@@G@@TRY . @^@@@H LOAD A3,KBLANK @^@@@H SA A3,IMAGET@C@@@GNX )@@G@@ MOVE DGOCDF,0,I . SET NO EOF @D@@@G SX,H2 X1,NY )@@G@@DZRB . SET OUTPUT PACKET @B@@@G L,U A0,DZRB . NZ )@@G@@ DO I/O @ @@@G ER ATREAD$ . @C@@@G L,H2 X1,OA )@@G@@DZRB+1 . INPUT ADDR @B@@@G AND,U A0,0777 . WOB )@@G@@ORDS @C@@@G LOAD A7,A1 . SETT RETURN @C@@@G OC )@@G@@ SLB A7,2 . NO. CHARS @#@@@G ZEND. @B@@@GOD )@@G@@. ZCANIT CANCEL INTERVAL TIMER . @#@@@GZCANIT* ZENTRY . @D@@@GOE )@@G@@ L,U A0,DTPKT . CANCEL TIMER @ @@@G L,UOF )@@G@@ A1,99999 . @A@@@G DO T$ME=1 , ER PTTRAP$ . @A@@@G OG )@@G@@ DO T$ME=0 , ER CEND$ . @G@@@G LINK TVEXST-(IN 63,0,1,0) OH )@@G@@. CHECK FOR DEADLOCK SITUATION @#@@@GZCANC LABEL . @D@@@G OI )@@G@@ ZEND . NOT INSTALLED YET @^@@@G. ZTIME ANDOJ )@@G@@ DATE @C@@@G. ON RETURN X1= -> MM/DD/YYBHH:MM:SSB @#@@@GZTIME*OK )@@G@@ ZENTRY . @D@@@G ER DATE$ . GET TIME AND DATE OL )@@G@@@D@@@G STORED A0,DZZSV+6 . CONVERT TO ASCII @^@@@G OM )@@G@@ LOAD A0,2,I . @ @@@G LOADA A1,DZZSV+6 . @ @@@G LOAON )@@G@@DA A2,DZZSV+8 . @^@@@G LINK FDASC . @C@@@G LOADD A0,OO )@@G@@DZZSV+8 . MMDD YYHH @C@@@G SRB A1,9 . MOP )@@G@@MDD 0YYH @C@@@G SRBD A0,9 . 0MMD D0YY @C@@@GOQ )@@G@@ ADD A1,ZSLH . 0MMD D/YY @C@@@G SRB A0,OR )@@G@@9 . 00MM D/YY @C@@@G SLB A0,18 . MOS )@@G@@M00 D/YY @C@@@G ADD A0,DZZSV+8+FQ3 . MM0D D/YY @C@@@GOT )@@G@@ ADD A0,ZSLH2,I . MM/D D/YY @B@@@G STORED A0OU )@@G@@,DZZSV+6 . SET MM/DD/YY @C@@@G LOADD A0,DZZSV+9 . YYHH MOV )@@G@@MSS @C@@@G SLBD A0,18 . HHMM SS00 @C@@@G OW )@@G@@ ADD A1,ZBLK,I . HHMM SSBB @C@@@G STORE A1,DZZSV+OX )@@G@@10 . SET SSBB @C@@@G SRBD A0,18 . 00HH MOY )@@G@@MSS @C@@@G SRB A1,18 . 00HH 00MM @C@@@G OZ )@@G@@ SLB A1,9 . 00HH 0MM0 @C@@@G ADD A1,ZCLN .PA )@@G@@ 00HH :MM: @C@@@G ADD A0,ZBLK2 . BBHH :PB )@@G@@MM: @C@@@G STORED A0,DZZSV+8 . SET BBHH:MM: @D@@@G PC )@@G@@ LOADA X1,DZZSV+6 . SET RETURN PTR @#@@@G ZEND . PD )@@G@@@#@@@GFILL(1) CSECT 3. @#@@@GZBLK2 SFW 0 . @^@@@G +' ',' ',0PE )@@G@@,0 . @#@@@GZCLN SFW 0 @^@@@G +':',0,0,':' . @^@@@GZBLK PF )@@G@@ EQU +' ' . @^@@@GZSLH2 EQU +'/'*01000 @#@@@GZSLH SFW 0 PG )@@G@@@#@@@G +0,'/',0,0@]@@@G CEND@B@@@G. ZTINT ELAPSED IPH )@@G@@NTERVAL TIMER @A@@@G. ONENTRY A7= LAST TIME STAMP @F@@@G. ON EPI )@@G@@XIT A7= INTERVAL (.001 SECONDS) X1= NEW TIME STAMP @#@@@GZTINT*PJ )@@G@@ ZENTRY . @E@@@G LMJ X11,MSTIME . GET ELAPSED MEMORY PK )@@G@@TIME @E@@@G LOAD X1,A0 . RETURN ELAPSED VALUE PL )@@G@@@G@@@G SUB A0,A7 . SUBTRACT LAST TIME TO GET INTERPM )@@G@@VAL @E@@@G LOAD A7,A0 . RETURN INTERVAL TIME PN )@@G@@@#@@@G ZEND . @D@@@GMSTIME LLOC . ELAPSEDPO )@@G@@ MEMORY TIME@^@@@G LOAD A0,ZPCT .@#@@@G M$TIME . @E@@@GPP )@@G@@ SRB A1,6 . CONVERT TO 32K UNITS @E@@@G PQ )@@G@@ LOAD A0,0,I . CLEAR UPPER PART OF TIME@E@@@G DI,PR )@@G@@U A0,5 . CONVERT TO MILLISECONDS @#@@@G LJMP . PS )@@G@@@C@@@G. SNAP X1=START ADDRESS X2=END ADDRESS @#@@@GZSNAP* ZENPT )@@G@@TRY . @D@@@G STORE X1,DZZSV+9 . SETUP SNAP PKT @D@@@GPU )@@G@@ LOAD A0,X2 . GET LENGTH OF SNAP @^@@@G SUBPV )@@G@@ A0,X1 . @D@@@G ADD A0,ZSNFL . SET DUMP REG FLAGS PW )@@G@@@D@@@G LOADA X1,DZZSV+8 . POINT TO PACKET @^@@@G PX )@@G@@ USING WORD,X1 .@ @@@G STORE A0,W1H1+1 . @^@@@G MOVPY )@@G@@E W1,0,I . @E@@@G MOVE W1H1,0161161,I . SET ID (FIELDATA PZ )@@G@@ID1) @B@@@G LOAD A0,X1 . DUMP @^@@@G ER QA )@@G@@ SNAP$ . @#@@@G ZEND . @[@@@G. @[@@@G. @#@@@G. QB )@@G@@ CSF$ @[@@@G. @B@@@G. ON INPUT A7=IMAGE A8=COUNT QC )@@G@@@A@@@G. ON OUTPUT A7=STATUS WORD @[@@@G. @#@@@GZCSF$* ZENQD )@@G@@TRY @^@@@G LA A0,A7 . @^@@@G LXI A0,A8 . @^@@@GQE )@@G@@ ER ACSF$ . @C@@@G LOAD A7,A0 . SET RETURNQF )@@G@@ BITS @#@@@G ZEND . @ @@@G. ZABND ERROR EXIT @#@@@GQG )@@G@@ZABND* ZENTRY . @#@@@GZABND1 LABEL . @^@@@G ER ABORT$ . QH )@@G@@@#@@@G QUIT . @#@@@GZENTR LLOC . @ @@@G STORED A0QI )@@G@@,DZZSV . @ @@@G STORED A2,DZZSV+2 . @ @@@G STORE A8QJ )@@G@@,DZZSV+4 . @ @@@G STORE X2,DZZSV+5 . @#@@@G LJMP . QK )@@G@@@#@@@GZENDA LABEL . @ @@@G LOAD X2,DZZSV+5 . @ @@@G QL )@@G@@ LOADD A0,DZZSV . @ @@@G LOADD A2,DZZSV+2 . @ @@@G QM )@@G@@ LOAD A8,DZZSV+4 . @#@@@G JMP . @[@@@G$(4) @D@@@GDTPKT QN )@@G@@ +0 . TIMEOUT PACKET @]@@@G +0 @E@@@GQO )@@G@@ J DTIBNK . SET I BACNK CODE ADDR @D@@@GDZRB QP )@@G@@ +0141,0 . TTY I/O PACKET @B@H@G +ZEOF3,KCQQ )@@G@@ARD-(IN 63,0,1,0) . @ @I@H +ZEOF3,PARTBLX . @^@@@I QR )@@G@@ +ZEOF3,IMAGET .@#@@@GPARTBL* RES 0 .@^@@@G ON SEG . QS )@@G@@@G@@@G DO 30 , +0 . ALSO USED FOR PCT STG IN STIQT )@@G@@MER @#@@@G OFF SEG .@^@@@J ON BANK @^@@@JBANKPLQU )@@G@@UM* LABEL . @C@@@J LXI,U X11,PLUM$BANK1 . CALL PASS1 QV )@@G@@@ @@@J LIJ X11,PLUM . @^@@@J OFF BANK @[@@@GQW )@@G@@. @[@@@G. @#@@@G ON REP@^@@@G DO 30 , +0 . QX )@@G@@@#@@@GR$$ EQU $ .@#@@@GREPPLUM* LABEL . @C@@@G DL A0,QY )@@G@@PCTPKT . SEE IF LIB$ @^@@@G ER PCT$ . @^@@@G QZ )@@G@@ L A0,ZRLIST @^@@@G TNE A0,LIB$ .@C@@@G J NORLRA )@@G@@IST . -> FROM LIB$ @^@@@G L A0,RLIST @^@@@G RB )@@G@@ ER RLIST$ . @C@@@GNORLIST LX,U X1,ZCALLX . SET SY LOADED RC )@@G@@@ @@@G LA,U A15,PLUM . @C@@@G STORE A15,A15+2 . RD )@@G@@SET RETURN REG @ @@@G LA A0,ZRLIST+2 . @^@@@G ER RE )@@G@@ RLINK$ . @^@@@G ER ERR$ . @C@@@GLIB$ +0211607470505 RF )@@G@@. (LIB$ IN FIELDATA) @#@H@GRLIST +5,ZRLIST @#@@@HRLIST +6,ZRLIST RG )@@G@@@#@@@GPCTPKT +0,ZRLIST@#@@@G +2,0110 @#@@@GP$$ EQU $ RH )@@G@@@#@@@GZRLIST 0D . @D@@@GPLUMFD EQU 0252132224760 . 'PLUM$0' INRI )@@G@@ FILEDATA @ @@@G +PLUMFD+1 . PLUM$1 @ @@@G +PLUMFD+2 RJ )@@G@@. PLUM$2 @ @@@G +PLUMFD+3 . PLUM$3 @ @@@G +PLUMFD+4 RK )@@G@@. PLUM$4 @ @@@G +PLUMFD+5 . PLUM$5 @ @@@H +PLUMFD+6RL )@@G@@ . PLUM$6 @#@@@G OFF REP@#@@@GPARTBLX RES 0 .@#@@@HPL1BUFRM )@@G@@* RES 0 .@#@@@HIMAGE* RES 0 @^@@@HIMAGET* EQU IMAGE+36 @ @@@GRN )@@G@@ DO 0110 , +0 . @#@K@G END . @ @@@K DO RO )@@G@@BANK=0 , END . @A@@@K DO BANK , END BANKPLUM . ___@@G RP )@@G@@*[S@@@*SDFF*@#@@@! AXR$ . @#@@@! DCLRG . @#@,@!@ADD PRQ )@@G@@LTVDS . @#@@@,@ADD,P PLTVDS . @#@@@,@ADD,P EXCDS . @#@@@! RR )@@G@@ CEND . @#@@@! PLWORD . @#@@@! PLIOCB . @#@@@, RS )@@G@@ PLAC . @^@@@! USING IOCB,X3 .@#@@@!EXFL CSECT 3 .@A@,@!RT )@@G@@BUFSIZ$ EQU 84 . BUFFER SIZE@^@@@,BUFSIZ$ EQU 224 . @^@@@,RU )@@G@@SECNO$ EQU 8 . @A@@@,BUFSZ$ EQU 64 . BUFFE SIZE @E@,@!RV )@@G@@NUMFLE EQU 4 . NUMBER EXTRA IOCB BLOCKS @E@@@,NUMFLERW )@@G@@ EQU 8 . NUMBER EXTRA IOCB BLOCKS @#@@@!/. REARX )@@G@@D OPEN@#@@@!EXLXRO* LOCAL . @D@@@! STORE A0,DEXOP0 . SRY )@@G@@AVE STACK POINTER @C@@@! AND,U F,IOCBIN+IOCBOP . SEE IF OPEN RZ )@@G@@@F@@@! IF F+1,EQ,IOCBIN+IOCBOP,I THEN,EXLXOK . ->OK, RETURN SA )@@G@@@D@@@! IF IOCBEF,ON THEN,EXLXEF . ->END FILE @F@@@! SB )@@G@@ AND,U F,IOCBOT+IOCBOP . IS IT OPEN FOR OUTPUT @F@@@! SC )@@G@@ IF F+1,EQ,IOCBOP+IOCBOT,I THEN,EXLXOO . ->CLOSE FIRST @#@@@!EXLXR1SD )@@G@@ LABEL . @C@@@! MOVE IOCTPE,020,I SET READ FILE@C@@@!SE )@@G@@ LOAD A0,IOCBCB . GET FCT PTR @C@@@! LOAD A7,SF )@@G@@F . SAVE FLAGS @D@@@! LINK SDFIO . OSG )@@G@@PEN FOR INPUT @C@@@! GOTO EXLXEQ . ->OPEN ERROR SH )@@G@@@C@@@! LOAD A3,KLCH4W . RESET IOCB @ @@@! STOSI )@@G@@RE A3,IOCBA1 . @ @@@! MOVE IOCBX1,IOCBAD .@^@@@! LOASJ )@@G@@D A3,-1,I @ @@@! STORE A3,IOCBLF . @C@@@! LOAD F,ASK )@@G@@7 . RESET FLAGS @C@@@! LOAD A0,DEXOP0 . RSL )@@G@@ESET STACK @A@@@! SET IOCBOP+IOCBIN,ON . @ @@@! SETSM )@@G@@ IOCBOT,OFF . @D@@@!EXLXOK LABEL . RETURN NORMALSN )@@G@@LY @E@@@! UNSTK X11 . POINT TO RETURN POINT SO )@@G@@@ @@@! LOAD X11,W1H1,X11 . @B@@@! LJMP . SP )@@G@@ RETURN @#@@@!EXLXEF LABEL . @D@@@! UNSTK X11 . SQ )@@G@@ SET END FILE RETURN@ @@@! LOAD X11,W1H2,X11 . @#@@@! SR )@@G@@ LJMP . @E@@@!EXLXEQ LABEL . SET ERROR ON OPEN RSS )@@G@@ETURN @^@@@! LOAD F,A7 . @D@@@! LOAD A0,DEXOP0 . ST )@@G@@ RESET STACK PTR @#@@@!EXLXER LABEL . @^@@@! UNSTK X11SU )@@G@@ . @A@@@! LOAD X11,W1H1+1,X11 . @#@@@! LJMP . SV )@@G@@@[@@@!. @[@@@!. @ @@@!. FILE OPEND FOR OUTPUT@#@@@!EXLXOOSW )@@G@@ LABEL . @D@@@! LOADD A1,IOCBFL . SEE IF SYSPRINT SX )@@G@@@B@@@! DTE A1,KFDOUT-(IN 63,0,1,0) . @B@@@! GOTO EXLSY )@@G@@XO1 . ->NOPE @D@@@! LOAD A1,IOCBFL+2 . IS IT SZ )@@G@@SYSPRINTXXX @E@@@! IF A1,EQ,KFDOUT+2 THEN,EXLXER . -> SYSPRINTA )@@G@@TBBBB @D@@@!EXLXO1 LABEL . OPEN FOR OUTPUT @F@@@!TB )@@G@@ IF IOCBST,OFF THEN,EXCL10 . -> BUFFER NOT STARTED @C@@@!TC )@@G@@ LINK EXLXWP . WRITE LAST BUFFER @#@@@!EXCL10 LABEL . TD )@@G@@@C@@@! LOAD A7,F . SAVE FLAGS @ @@@! LOATE )@@G@@D A0,IOCBCB . @C@@@! LINK EXCLOSE . CLOSE FILE TF )@@G@@@^@@@! GOTO EXLXEQ . @^@@@! LOAD F,A7 . @ @@@! TG )@@G@@ LOAD A0,DEXOP0 . @E@@@! MOVE IOCLOC,0,I . TURN OFTH )@@G@@F TYPE OF FCT @C@@@! SET IOCBOT+IOCBOP,OFF . SET NOT OPEN TI )@@G@@@D@@@! GOTO EXLXR1 . TRY AND OPEN NOW @^@@@!/. TJ )@@G@@ WRITE OPEN @#@@@!EXLXWO* LOCAL . @D@@@! STORE A0,DEXOP0TK )@@G@@ . SAVE STACK POINTER @D@@@! AND,U F,IOCBOP+IOCBOT . STL )@@G@@EE IF ALREADY OPEN@H@@@! IF F+1,EQ,IOCBOT+IOCBOP,I THEN,EXLXOTM )@@G@@K . ->RETURN, NOTHING TO DO @E@@@! AND,U F,IOCBIN+IOCBOP . STN )@@G@@EE IF OPEN FOR INPUT @H@@@! IF F+1,EQ,IOCBIN+IOCBOP,I THENTO )@@G@@,EXLXW1 . ->OPEN FOR INPUT, CLOSE @#@@@!EXLXW3 LABEL . @D@@@! TP )@@G@@ IF IOCBPT,ON THEN,EXLXW6 . PRINT FILE @F@@@! MOVE IOCTQ )@@G@@TPE-(IN 0,S2,0,0),DOLENF,2 . SET OUTPUT FCT @C@@@! LOAD A0,TR )@@G@@IOCBCB . POINT TO FCT @^@@@! LOAD A7,F . @D@@@! TS )@@G@@ LINK SDFOO . OPEN FOR OUTPUT @E@@@! LOADD A8,TT )@@G@@DOLBL . PUT OUT *SDFF* HEADER @E@@@, IF IOCBMF,OFTU )@@G@@F,IOCBF2 THEN,EXLXW4 . ->ASCII FILE @C@@@, SUB A8,1,I . SETV )@@G@@T ASCII FLAG OFF @#@@@,EXLXW4 LABEL . @ @@@! STORE A8,IOCCWDTW )@@G@@ . @C@@@! LOAD A3,IOCBAD . BUFFER PTR @^@@@! TX )@@G@@ STORE A9,0,A3 .@B@@@! LOAD A8,BUFSIZ$,I . GET BUF SIZE@F@@@!TY )@@G@@ STORE A8,IOCTPE-(IN 0,S2,0,0)+1+FH1 . SET BUFFER SIZE @D@@@!TZ )@@G@@ LINK SDFO . PRINT LABEL HEADER @B@@@! GOTUA )@@G@@O EXLXEQ . ->ERROR@^@@@! USING WORD,A3 .@E@@@! UB )@@G@@ LOAD F,A7 . RESET FLAGS AND STACK PTR @#@@@!EXLXW5 LABUC )@@G@@EL . @C@@@! LOAD A3,IOCBLZ . SET BUFFER SIZE @C@@@! UD )@@G@@ ADD A3,3,I . CEIL(LINESIZE/6)@^@@@! SRB A3,2 . UE )@@G@@@ @@@! STORE A3,IOCBLR . @ @@@! LOAD A0,DEXOP0 . UF )@@G@@@D@@@! LOAD A2,IOCBAD . POINT TO BUFFER @^@@@! UG )@@G@@ USING WORD,A2 .@ @@@! MOVE W1,KBLANK,33 @A@@@! SETUH )@@G@@ IOCBOT+IOCBOP,ON . @C@@@! LOAD A3,KSCH4W . RESET IOUI )@@G@@CB @ @@@! STORE A3,IOCBA1 . @ @@@! MOVE IOCBX1,IOUJ )@@G@@CBAD .@^@@@! LOAD A3,-1,I .@ @@@! STORE A3,IOCBLF . UK )@@G@@@B@@@! GOTO EXLXOK . RETURN @#@@@!EXLXW1 LABEL . UL )@@G@@@C@@@! LOADD A1,IOCBFL . SEE IF SYSIN @B@@@! DTEUM )@@G@@ A1,KFDIN-(IN 63,0,1,0) @B@@@! GOTO EXLXW2 . -UN )@@G@@>NOPE @B@@@! GOTO EXLXER . ->ERROR@#@@@!EXLXW2 LABUO )@@G@@EL . @C@@@! LOAD A0,IOCBCB . SET FCT PTR @^@@@! UP )@@G@@ LOAD A7,F . @C@@@! LINK SDFIC . CLOSE INPUT UQ )@@G@@@C@@@! LOAD A0,DEXOP0 . RESET STACK @ @@@! MOVUR )@@G@@E IOCLOC,0,I . @^@@@! LOAD F,A7 . @B@@@! SET IOCUS )@@G@@BOP+IOCBIN+IOCBEF,OFF . @A@@@! SET IOCBEF,OFF,IOCBF2 . @D@@@!UT )@@G@@ GOTO EXLXW3 . ->OPEN FOR OUTPUT @#@@@!EXLXW6 LABUU )@@G@@EL . @D@@@! LOADD A3,IOCBFL+6 . SET PCK FOR APRNTA$ @^@@@!UV )@@G@@ STORED A3,IOCBFL+7 . @#@@@! GOTO EXLXW5 . @^@@@!/. WRITE BUFUW )@@G@@FER @#@@@!EXLXWP* LOCAL . @ @@@! STORED A1,DEXOP0+2 . @D@@@!UX )@@G@@ LOADD A1,IOCBFL . SEE IF SYSPRINT @B@@@! DTEUY )@@G@@ A1,KFDOUT-(IN 63,0,1,0) @B@@@! GOTO EXLXFW . -UZ )@@G@@>NOPE @D@@@! LOAD A1,IOCBFL+2 . SEE IF SYSPRINT @E@@@!VA )@@G@@ IF A1,NE,KFDOUT+2 THEN,EXLXFW . ->NOT SYSPRINT @B@@@! VB )@@G@@ STORE X1,DEXOP0 . SAVE X1@ @@@! STORE F,IOCBF1 . VC )@@G@@@C@@@! LOAD X1,X3 . POINT TO IOCB@C@@@! LINVD )@@G@@K IOWRIT . WRITE BUFFER @ @@@! MOVE IOCBSK,1,I . VE )@@G@@@C@@@! LOAD X1,DEXOP0 . RESET X1 @ @@@! LOAVF )@@G@@D F,IOCBF1 . @#@@@!EXWRRT LABEL . @ @@@! LOADD A1,DEXOP0VG )@@G@@+2 . @C@@@! JMP . ->RETURN @E@@@!EXLXFWVH )@@G@@ LABEL . WRITE TO AUXILIARY FILE @D@@@! STOVI )@@G@@RE A0,DEXOP0 . SAVE STACK PTR @E@@@, LOAD A7,IOCBLRVJ )@@G@@ . GET RECSIZE IN WORDS @G@@@, IF IOCBMF,OFF,IOVK )@@G@@CBF2 THEN,EXLXF1 . NO FIELDATA OUTPUT @G@@@, IF IOCBRC,VL )@@G@@ON,IOCBF2 THEN,EXLXF1 . NO CONVERSION ON RECORDS@D@@@, LOAD AVM )@@G@@0,A7 . LENGTH OF ASCII STRING @C@@@, LOADA A2,EXBUFR . VN )@@G@@ TEMP AREA @D@@@, LOAD A1,IOCBAD . ADDR OF ASCIIVO )@@G@@ DATA @ @@@, STORE F,IOCBF1 . @^@@@, LINK ASCFD .VP )@@G@@@C@@@, LOAD A7,A0 . GET SIZE @ @@@, LOAVQ )@@G@@D X1,IOCBAD . @ @@@, USING WORD,X1 . @C@@@, LOAVR )@@G@@D A0,DEXOP0 . RESTORE A0 @A@@@, MOVE W1,EXBUFR,R,AVS )@@G@@7 . @C@@@, LOAD F,IOCBF1 . RESTORE FLAGS@#@@@,EXLXF1VT )@@G@@ LABEL . @E@@@! IF IOCBPT,OFF THEN,EXLXF3 . ->PRINT FILE(NVU )@@G@@O) @A@@@! LOAD A1,IOCBSK . SK@B@@@! SLB A1,6 . VV )@@G@@ SK,0 @B@,@! ADD A1,IOCBLR . SK,WC VW )@@G@@@B@@@, ADD A1,A7 . SK,WC @B@@@! SLB A1,18 . VX )@@G@@ SK,WC,0 @C@@@! ADD A1,IOCBAD . SK,WC,BUVY )@@G@@FFER @^@@@! STORE A1,IOCBFL+6 . @^@@@! LOADA A0,IOCBFL+6 . @D@@@,VZ )@@G@@ IF IOCBMF,ON,IOCBF2 THEN,EXLXF9 . -> FIELDTA @#@@@! ER APRWA )@@G@@NTA$ .@#@@@,EXLXF8 LABEL . @^@@@! MOVE IOCBSK,1,I . @#@@@! GOTWB )@@G@@O EXLXF2 . @#@@@,EXLXF9 LABEL . @#@@@, ER PRNTA$ @#@@@, GWC )@@G@@OTO EXLXF8 .@^@@@!EXLXF3 LABEL . @F@@@, IF IOCBKY,OFWD )@@G@@F,IOCBF2 THEN,EXLXK1 . ->NOT DIRECT ACCESS@D@@@, LOAD A3,DEXKWE )@@G@@YW . SET FCT TO WRITE @ @@@, STORE A3,IOCLOC-2 .@F@@@,WF )@@G@@ MOVE IOCBUF,IOCBAD . WRITE FROM OUR INTERNAL BUFFER @D@@@,WG )@@G@@ MOVE IOCWDC,IOCBLR . SET WORD COUNT @F@@@, MOVWH )@@G@@E IOCBLZ,112,I . LINESIZE FOR 28 WORD SECTOR @ @@@, LOAWI )@@G@@D A0,IOCBCB . @^@@@, ER IOW$ @C@@@, LOAD AWJ )@@G@@0,DEXOP0 . RESTORE A0 @^@@@, GOTO EXLXK2 . @#@@@,EXLXK1WK )@@G@@ LABEL . @D@,@! LOAD A1,IOCBLR . GET RECORD LENGTH WL )@@G@@@D@@@, LOAD A1,A7 . GET RECORD LENGTH @F@@@! WM )@@G@@ SLB A1,24 . SET SDFO ONTROL WORD PACKET @ @@@! WN )@@G@@ STORE A1,IOCCWD . @C@@@! LOAD A0,IOCBCB . POINT TWO )@@G@@O FCT_@E@@@! LOAD A1,BUFSIZ$,I . SET BUFFER SIZE WP )@@G@@@F@@@! STORE A1,IOCTPE-(IN 0,S2,0,0)+1+FH1 . SET BUFFER SIZE WQ )@@G@@@B@@@! STORE F,IOCBF1 . SAVE FLAGS @C@@@! LINK SDFWR )@@G@@O . WRITE BUFFER @B@@@! ER ERR$ . OWS )@@G@@OPS!!!@#@@@!EXLXF2 LABEL . @B@@@! LOAD F,IOCBF1 . RESET FLWT )@@G@@AGS @D@@@! LOAD A0,DEXOP0 . RESET STACK PTR @#@@@,WU )@@G@@EXLXK2 LABEL . @D@@@! LOAD A2,IOCBAD . SET PTR TO BUWV )@@G@@FFER @ @@@! LOAD A4,IOCBLR . @^@@@! USING WORD,A2 .WW )@@G@@@D@@@! MOVE W1,KBLANK,R,A4 . CLEAR LINE IMAGE @C@@@! WX )@@G@@ GOTO EXWRRT . -> RETURN @#@@@!/. READ @#@@@!WY )@@G@@EXLXRR* LOCAL . @ @@@! STORED A1,DEXOP0+2 . @C@@@! LOAWZ )@@G@@DD A1,IOCBFL . SEE IF SYSIN @F@@@! DTE A1,KFDIN-(IN 63XA )@@G@@,0,1,0) . IS IT SYSIN@D@@@! GOTO EXLXFR . XB )@@G@@ ->NOPE, FILE READ @^@@@! LOAD X1,X3 . @ @@@! STOXC )@@G@@RE F,IOCBF1 . @D@@@! LINK IOREAD . GET READ$ IMAXD )@@G@@GE @C@@@! GOTO EXLXR4 . ->EOF @C@@@! XE )@@G@@ SETL A6,IOCBLZ . SET BUFFER @D@@@! STORE A6,IOCBLFXF )@@G@@ . SET AMOUNT LEFT @#@@@!EXLXR4 LABEL . @E@,@! LOAXG )@@G@@D A7,DGOCDF . CHECK TYPE OF RECORD @ @,@! LOAD F,IXH )@@G@@OCBF1 . @F@,@! IF A7,EQ,0,I THEN,EXLXRTN ELSE,EXLXR2 . ->XI )@@G@@ELSE,EOF @C@@@, LOAD F,IOCBF1 . GET IO FLAGS @C@@@1XJ )@@G@@ LOADD A1,DEXOP0+2 . RESTORE A1,A2@D@@@, IF IXK )@@G@@OCBEF,ON THEN,JMP ELSE,JMP1 . @D@@@!EXLXFR LABEL . XL )@@G@@ READ FROM FILE @D@@@! STORE A0,DEXOP0 . SAVE STXM )@@G@@ACK PTR @#@@@,EXLXR7 LABEL . @D@@@! LOAD X11,IOCBAD . XN )@@G@@ CLEAR INPUT BUFFER @ @@@! USING WORD,X11 . @ @@@! XO )@@G@@ MOVE W1,KBLANK,33 . @F@@@, IF IOCBKY,OFF,IOCBF2 THEN,EXLXXP )@@G@@K3 . ->NOT DIRECT ACCESS@D@@@, LOAD A3,DEXKYR . SET FCTXQ )@@G@@ TO READ @ @@@, STORE A3,IOCLOC-2 .@F@@@, MOVE IXR )@@G@@OCBUF,IOCBAD . READ INTO OUR INTERNAL BUFFER @D@@@, MOVE IXS )@@G@@OCWDC,IOCBLR . SET WORD COUNT @F@@@, MOVE IOCBLZ,112,I XT )@@G@@. LINESIZE FOR 28 WORD SECTOR @ @@@, LOAD A0,IOCBCB . XU )@@G@@@^@@@, ER IOW$ @C@@@, LOAD A0,DEXOP0 . RXV )@@G@@ESTORE A0 @^@@@, GOTO EXLXRTN .@#@@@,EXLXK3 LABEL . @#@,@!XW )@@G@@EXLXR7 LABEL . @C@@@! LOAD A0,IOCBCB . POINT TO FCT XX )@@G@@@C@@@! LOAD A7,F . SAVE FLAGS @C@@@! LINXY )@@G@@K SDFI . GET IMAGE @B@@@! GOTO EXLXRE . XZ )@@G@@ ->ERROR@B@@@! GOTO EXLXRE . ->EOF @^@@@! YA )@@G@@ LOAD F,A7 . @ @@@! LOAD A0,DEXOP0 . @D@@@! LOAYB )@@G@@D A1,IOCCWD . SEE IF LABEL IMAGE @F@@@! IF A1,LT,0,IYC )@@G@@ THEN,EXLXR0 . ->CONTRL IMAGE, GET NEXT @F@,@! IF IOCBPT,ONYD )@@G@@,IOCBF2 THEN,EXLXR9 . ->READING PRT FILE @F@@@, IF IOCBPT,ONYE )@@G@@,IOCBF2 THEN,EXLXR9 . ->READING PRT FILE @F@@@! IF IOCVER,NZYF )@@G@@ERO THEN,EXLXR7 . ->NOT CURRENT VERSION @#@@@!EXLXR9 LABEL . @D@@@!YG )@@G@@ SRB A1,24 . GET SIZE OF IMAGE @E@@@! IF YH )@@G@@ IOCBFD,OFF,IOCBF2 THEN,EXLXRA . =>ASCII INPUT@E@@@, IF IOCYI )@@G@@BRC,ON,IOCBF2 THEN,EXLXRA . ->RECORD I/O @C@@@! LOAD A0,A1 . YJ )@@G@@ WORD COUNT @E@,@! LA,U A2,DCASBF . TEMP BUYK )@@G@@FFER (IN SIR) @C@@@, LOADA A2,EXBUFR . TEMP BUFFER YL )@@G@@@ @@@! LOAD A1,IOCBAD . @^@@@! STORE F,IOCBF1 @^@@@!YM )@@G@@ LINK FDASC . @ @@@! LOAD F,IOCBF1 . @D@@@! YN )@@G@@ LOAD A1,A0 . SET NEW WORD COUNT @ @@@! LOAD X1,YO )@@G@@IOCBAD . @^@@@! USING WORD,X1 .@C@@@! LOAD A0,DEXOP0YP )@@G@@ . RESET STACK PTR @A@,@! MOVE W1,DCASBF,R,A1 . @A@@@,YQ )@@G@@ MOVE W1,EXBUFR,R,A1 . @#@@@!EXLXRA LABEL . @D@@@! YR )@@G@@ SLB A1,2 . NUMBER OF CHARS @E@@@! IF A1,YS )@@G@@GE,80,I THEN,EXLXR8 . ->AT LEAST 80 CHARS @G@@@, IF IOCBRC,ONYT )@@G@@,IOCBF2 THEN,EXLXR8 . ->ONLY PAD STREAM I/O @^@@@! LOAD A1,YU )@@G@@80,I .@#@@@!EXLXR8 LABEL . @D@@@! STORE A1,IOCBLZ . SYV )@@G@@ET SIZE IN RECORD @#@@@!EXLXRTN LABEL . @ @@@! LOADD A1,DEXOP0YW )@@G@@+2 . @B@@@! JMP 1 . RETURN @C@@@!EXLXRE LAYX )@@G@@BEL . END FILE @ @@@! LOAD A0,DEXOP0 . YY )@@G@@@^@@@! LOAD F,A7 . @#@@@!EXLXR2 LABEL . @ @@@! SETYZ )@@G@@ IOCBEF,ON,IOCBF2@#@@@!EXLXR3 LABEL . @ @@@! SET IOCBEF,ONZA )@@G@@ . @C@@@! JMP . ->RETURN @D@@@!EXLXR0ZB )@@G@@ LABEL . FOUND LABEL IMAGE @B@@@! LOAD A3,ZC )@@G@@IOCCWD+(IN 0,S1,0,0) . @E@@@! IF A3,NE,042,I THEN,EXLXR0X . ZD )@@G@@->NOT ASCII IMAGE @ @@@! LINK EXSETASMODE . @#@@@!EXLXR0X LABZE )@@G@@EL @F@@@! IF IOCBST,ON,IOCBF2 THEN,EXLXR7 . FILE STARTED AZF )@@G@@LREADY@ @@@! LINK EXSETASMODE @A@@@! SET IOCBST,ONZG )@@G@@,IOCBF2 . @^@@@! SLB A1,12 . @D@@@! SRB A1,30 . ZH )@@G@@ LEAVE LABEL TYPE @E@,@! IF A1,NE,025,I THEN,EXLXZI )@@G@@R7 . ->NOT 'P' (PRINT) @E@@@, IF A1,EQ,030,I THEN,EXLXR7 . -ZJ )@@G@@>SIR SDF FILE @A@,@! SET IOCBPT,ON,IOCBF2 . @H@@@, ZK )@@G@@ SET IOCBPT,ON,IOCBF2 . IGNORE VERSION INFO (ON SIR FILES ONLY)ZL )@@G@@@D@@@! GOTO EXLXR7 . GET NEXT RECORD @[@@@!. ZM )@@G@@@[@@@!. @B@@@!EXSETASMODE LLOC . SET MODE OF FILE @^@@@! ZN )@@G@@ LOAD A8,IOCBF2@C@@@! AND,U A8,0777-IOCBFD . SET ASCII MODE ZO )@@G@@@ @@@! STORE A9,IOCBF2 . @C@@@! IF 01,ON,IOCCWD THZP )@@G@@EN,LJMP . ->ASCII @^@@@! LOAD A8,A9 . @ @@@! OR,U A8,ZQ )@@G@@IOCBFD . @ @@@! STORE A9,IOCBF2 . @#@@@! LJMP . ZR )@@G@@@^@@@!/. CLOSE FILE @#@@@!EXLXCL* LOCAL . @E@@@! LOAZS )@@G@@DD A1,IOCBFL . SEE IF SYSIN OR SYSPRINT @B@@@! DTE A1,ZT )@@G@@KFDIN-(IN 63,0,1,0) . @C@@@! GOTO EXLXC1 . ->NOT SZU )@@G@@YSIN @D@@@! GOTO EXLXCR . ->SYSIN, DO NOTHING@#@@@!ZV )@@G@@EXLXC1 LABEL . @B@@@! DTE A1,KFDOUT-(IN 63,0,1,0) . @E@@@!ZW )@@G@@ GOTO EXLXC2 . ->NOT SYSPRINT @ @@@! ZX )@@G@@ LOAD A3,IOCBFL+2 . @E@@@! IF A3,EQ,KFDOUT+2 THEN,EXLXCR ZY )@@G@@. -> SYSPRINT @#@@@!EXLXC2 LABEL . @F@@@! IF IOCBOP,OFZZ )@@G@@F THEN,EXCL03 . -> NOT OPEN, CLEAR IOCB @D@@@! IF IOCBST,OFAA )@@G@@F THEN,EXCL02 . -> NOT STARTED@D@@@! IF IOCBIN,ON THEN,EXCL02AB )@@G@@ . -> INPUT FILE @D@@@! LINK EXLXWP . WRITE LAST RECORAC )@@G@@D @#@@@!EXCL02 LABEL . @D@@@! STORE A0,DEXOP0 . SAD )@@G@@AVE STACK PTR @C@@@! LOAD A0,IOCBCB . POINT TO FCT AE )@@G@@@^@@@! LOAD A7,F . @E@@@! IF IOCBOT,ON THEN,EXLXC3AF )@@G@@ . ->OPEN FOR OUTPUT @C@@@! LINK SDFIC . CLOSE IAG )@@G@@NPUT @B@@@! GOTO EXLXC4 . ->MERGE@#@@@!EXLXC3 LABAH )@@G@@EL . @ @@@! LOAD A3,BUFSIZ$,I . @C@@@! STORE A3,IOCTPEAI )@@G@@-(IN 0,S2,0,0)+1+FH1 . @D@@@! LINK EXCLOSE . CLOSEAJ )@@G@@ OUTPUT @D@@@! GOTO EXLXEC . ->ERROR ON CLOSE AK )@@G@@@#@@@!EXLXC4 LABEL . @D@@@, LINK EXRWND . REWIND AL )@@G@@TAPE IF NEC.@ @@@! LOAD A0,DEXOP0 . @#@@@!EXCL03 LABEL . AM )@@G@@@B@@@! LINK EXCLEARIT . CLEAR IOCB @#@@@!EXLXCR LABEL . AN )@@G@@@^@@@! JMP . ->RETURN @D@@@!EXLXEC LABEL . EAO )@@G@@RROR ON CLOSE @ @@@! LOAD A0,DEXOP0 . @^@@@! LOAAP )@@G@@D F,A7 . @H@@@! GOTO EXLXCR . ->DO NOTHING FOR NOAQ )@@G@@W, ADD ERROR RETURN @^@@@,EXRWND LLOC . REWIND @ @@@, USIAR )@@G@@NG WORD,X6 . @E@@@, IF ICCLRW,OFF,W1Q4 THEN,LJMP . NOAS )@@G@@ REWIND @B@@@, LOAD A0,IOCBCB . FCT PTR@ @@@, AT )@@G@@ USING WORD,A0 . @^@@@, LA,U A3,WEF$ @D@@@, STOAU )@@G@@RE A3,W1S2+3 . WRITE EOF ON TAPE @^@@@, ER IOW$ . AV )@@G@@@^@@@, LA,U A3,REW$ .@C@@@, STORE A3,W1S2+3 . AW )@@G@@REWIND TAPE @^@@@, ER IOW$ . @#@@@, LJMP . @#@@@!AX )@@G@@/. CLOSE ALL@#@@@!EXLXCA* LOCAL . @D@@@! SETL A7,NUMFLEAY )@@G@@,I . CLOSE ALL FILES @C@@@! LX,U X1,DIOCBL . PAZ )@@G@@OINT TO LIST@E@@@! LOADXI X1,4,I . SIZE OF LIST ENTRIEBA )@@G@@S @ @@@! LOADD A8,KBLANK . @#@@@!EXLXCA1 LABEL . @E@@@!BB )@@G@@ DTE A8,0,*X1 . SEE IF BLANK FILE ENTRY @E@@@! BC )@@G@@ GOTO EXLXCA2 . ->NOPE, FILE TO CLOSE @#@@@!EXLXCA4 LABBD )@@G@@EL . @D@@@! LOOP A7,EXLXCA1 . ->CLOSE NEXT FILE @C@@@!BE )@@G@@ JMP . ->RETURN @D@@@!EXLXCA2 LABEL . BF )@@G@@ FOUND FILE TO CLOSE@^@@@! LOAD X3,X1 . @D@@@!BG )@@G@@ SUB X3,4,I . POINT TO FILE PTR @ @@@! STOBH )@@G@@RED A8,W1,X3 . @ @@@! STORE A8,W1+2,X3 . @C@@@! LOABI )@@G@@D X3,W1+3,X3 . POINT TO IOCB@C@@@! LOAD F,IOCBF1 . BJ )@@G@@ SET FLAGS @D@@@! IF IOCBOP,OFF THEN,EXLXCA3 . -> NOT BK )@@G@@OPEN @E@@@! IF IOCBST,OFF THEN,EXCL01 . ->OPEN, NOT STARTED BL )@@G@@@D@@@! IF IOCBIN,ON THEN,EXCL01 . ->INPUT FILE @C@@@! BM )@@G@@ LINK EXLXWP . PRINT LAST BUFFER @#@@@!EXCL01 LABEL . @ @@@!BN )@@G@@ STORE A0,DEXOP0 . @C@@@! LOAD A0,IOCBCB . PBO )@@G@@OINT TO FCT @D@@@! IF IOCBOT,ON THEN,EXLXCA7 . ->OUTPUT FILE BP )@@G@@@D@@@! LINK SDFIC . CLOSE INPUT FILE @A@@@! BQ )@@G@@ GOTO EXLXCA5 . ->MERGE @#@@@!EXLXCA7 LABEL . @D@@@! LOABR )@@G@@D A3,BUFSIZ$,I . SET IMAGE LENGTH @C@@@! STORE A3,IOCTPEBS )@@G@@-(IN 0,S2,0,0)+1+FH1 . @^@@@! LINK EXCLOSE .@^@@@! GOTBT )@@G@@O EXLXCA5 .@#@@@!EXLXCA5 LABEL . @ @@@! LOAD A0,DEXOP0 . BU )@@G@@@#@@@!EXLXCA3 LABEL . @B@@@! LINK EXCLEARIT . CLEAR IOCB BV )@@G@@@^@@@! GOTO EXLXCA4 .@#@,@!EXCLEARIT LLOC . @#@@@,EXCLEARIT LOBW )@@G@@CAL. @A@,@! LOAD F,0,I . NO FLAGS @ @@@! LOAD A3,IBX )@@G@@OCBBP . @^@@@! USING WORD,A3 .@^@@@! LOADD A8,KBLANKBY )@@G@@@^@@@! STORED A8,W1 . @^@@@! STORE A8,W1+2 .@ @,@! BZ )@@G@@ MOVE IOCBLR,20,I . @ @,@! MOVE IOCBLF,20*4,I .@ @,@! CA )@@G@@ MOVE IOCBF1,0,I . @ @,@! MOVE IOCBF2,0,I . @ @,@! CB )@@G@@ MOVE IOCBLZ,DZZLZ . @ @,@! MOVE IOCBPZ,DZZPZ . @ @,@! CC )@@G@@ MOVE IOCLOC,0,I . @#@,@! LJMP . @F@@@, LOAD ACD )@@G@@1,X3 . GET ADDRESS TO BLOCK TO FREE @D@@@, LINK SCE )@@G@@TORFBUF . GET RID OF IT ALL @C@@@, LOAD F,0,I . CF )@@G@@ CLEAR FLAGS @#@@@, JMP . @#@@@!EXLXCA8 LABEL . @D@@@!CG )@@G@@ MOVE DCSFB+2,IOCBFL,3 . SET @BRKPT FILENAME@ @@@! STOCH )@@G@@RED A7,DEXOP0+1 . @^@@@! LA,U A7,DCSFB .@^@@@! LOAD A8,CI )@@G@@6,I . @ @@@, LOAD A0,DEXOP0 . @^@@@! LINK ZCSF$ CJ )@@G@@@ @@@! LOADD A7,DEXOP0+1 . @^@,@! GOTO EXLXCA9 .@^@@@,CK )@@G@@ GOTO EXCLOSX .@[@@@!. @[@@@!. @B@@@!. WRITE OUTCL )@@G@@ EOF AND CLOSE FILE @[@@@!. @#@@@!EXCLOSE LLOC . @C@@@! CM )@@G@@ LOAD R10,X11 . SAVE RETURN @D@@@! IF IOCBPT,ONCN )@@G@@ THEN,EXLXCA8 . ->PRINT FILE @B@,@! LOADD A3,DEXEOF . SCO )@@G@@ET EOF@B@@@,. LOADD A3,DEXEOF . SET EOF@D@,@! STOCP )@@G@@RE A3,IOCCWD . SET LABEL IMAGE @D@@@,. STORE A3,IOCCWDCQ )@@G@@ . SET LABEL IMAGE @C@,@! LOAD X11,IOCBAD . SCR )@@G@@ET BUFFER @C@@@,. LOAD X11,IOCBAD . SET BUFFER @ @,@!CS )@@G@@ STORE A4,0,X11 . @ @@@,. STORE A4,0,X11 . @C@,@!CT )@@G@@ LINK SDFO . CLOSE IT @C@@@,. LINK SDFCU )@@G@@O . CLOSE IT @B@,@! GOTO EXCLOSX . -CV )@@G@@> OOPS@B@@@,. GOTO EXLXCA9 . -> OOPS@^@@@! LINCW )@@G@@K SDFOC . @^@,@! GOTO EXCLOSX .@^@@@, GOTO EXLXCA9 .CX )@@G@@@F@,@! IF ICOPEL,OFF,IOCBF2 THEN,EXLXCA9 . NOT ELEMENT NAME CY )@@G@@@F@@@, IF ICOPEL,OFF,IOCBF2 THEN,EXCLOSX . NOT ELEMENT NAME CZ )@@G@@@D@@@! LOAD A1,5,A0 . GET LATEST SECTOR ADDR IN FCT @D@@@! DA )@@G@@ ADD A1,1,I . GET NEXT WRITE LOCATION IN FILE@D@@@! SUB A1,22DB )@@G@@,A0 . GET SECTOR LENGTH OF TEXT @C@@@! STORE A1,21,A0 . STORDC )@@G@@E IN PFI$ PKT @^@@@! LOAD A1,5,A0 . @C@@@! ADD A1,1,DD )@@G@@I . GET NEXT WRITE LOC IN FILE@B@@@! ADD A0,12,I . GET PFI$ PACDE )@@G@@KET @C@@@! LOADN A0,A0 . GET NEGATIVE OF PKT ADDR @E@@@! DF )@@G@@ ER PFI$ . INSERT ELEMENT AND UPDATE NEXT WRITE LOC@C@,@! IFDG )@@G@@ A2,ZERO THEN,EXLXCA9 . NO ERROR @C@@@, IF A2,ZERO THEN,EXDH )@@G@@CLOSX . NO ERROR @A@@@, LOAD A0,DEXOP0 . RESTORE A0@^@,@! DI )@@G@@ EXERR ERCLOSE @ @@@, STORE X3,ONIOSV+6 .@H@\@, ONUDJ )@@G@@NIT ERCLOSE,ACCDTR,2 R,I,R DEXWK1,4 DEXOP0+(IN 63,H1,0,0),5 @F@0@\DK )@@G@@ ONUNIT ERCLOSE,ACCDTR,2 R,I,R DEXWK1,4 DEXOP0+FH1,5 @F@@@0DL )@@G@@ ONUNIT ERCLOSE,ACCDTR,2 R,I,R DEXWK1,4 DEXOP0+FH2,5 @ @@@,DM )@@G@@ STORE A0,DEXOP0 . @#@@@!EXLXCA9 LABEL . @^@@@! LOADN )@@G@@D X11,R10 .@#@,@! LJMP . @ @@@, LJMP . ERROR RETURNDO )@@G@@@#@@@!EXCLOSX LABEL . @^@@@! LOAD X11,R10 .@C@,@! LJMDP )@@G@@P 1 . ERROR RETURN @#@@@, LJMP 1 .@#@@@!/. DQ )@@G@@ GET IOCB @#@@@!EXLXGI* LOCAL . @C@@@! LOADD A1,W1,X3 . DR )@@G@@ GET FILENAME @C@@@! STORE X1,DEXOP0+1 . SAVE REGS DS )@@G@@@ @@@! STORE A0,DEXOP0 . @C@@@! LX,U X1,DIOCBF . DT )@@G@@ GET IOCBLIST @D@@@! LOADXI X1,4,I . SIZE OF LIST DU )@@G@@ENTRY @ @@@! SETL A6,NUMFLE+2,I .@#@@@!EXLXG3 LABEL . @C@@@!DV )@@G@@ DTE A1,0,*X1 . IS THIS IT @B@@@! GOTO EXLDW )@@G@@XG4 . ->NOPE @B@@@! GOTO EXLXG5 . ->YUP DX )@@G@@@#@@@!EXLXG4 LABEL . @D@@@! LOOP A6,EXLXG3 . ->TRY NDY )@@G@@EXT IN LIST @C@@@!. NOT FOUND, SEE IF BLANK IOCB AVAILABLE @ @@@!DZ )@@G@@ LOADD A1,KBLANK . @ @@@! SETL A6,NUMFLE,I . @ @@@!EA )@@G@@ LXM,U X1,DIOCBL . @#@@@!EXLXG6 LABEL . @C@@@! DTEEB )@@G@@ A1,0,*X1 . IS THIS EMPTY@ @@@! GOTO EXLXG7 . ->NOPEEC )@@G@@@ @@@! GOTO EXLXG8 . ->YUP @#@@@!EXLXG7 LABEL . @E@@@! ED )@@G@@ LOOP A6,EXLXG6 . ->TRY FOR NEXT BLANK @F@,@! EXEEE )@@G@@RR ERLXFL . TOO MANY FILES. SYSPRINT USED @E@@@, ONUEF )@@G@@NIT ERLXFL,ACCDER,1 R,I,R DEXOP0,3 DEXMAX,0 @E@@@! LX,U X1,EG )@@G@@DIOCBF+8 . POINT 1 PAST SYSPRINT @#@@@!EXLXG5 LABEL . @C@@@!EH )@@G@@ SUB X1,4,I . POINT TO IOCB@C@@@! LOAD X3,EI )@@G@@W1+3,X1 . GET IOCB @ @@@! LOAD X1,DEXOP0+1 . @C@@@!EJ )@@G@@ JMP . ->RETURN @#@@@!EXLXG8 LABEL . EK )@@G@@@E@@@! SUB X1,4,I . POINT TO BLANK ENTRY @ @@@!EL )@@G@@ LOADD A1,W1,X3 . @ @@@! STORED A1,W1,X1 . @ @,@!EM )@@G@@ LOAD A6,W1+2,X3 . @D@@@, LOAD A6,W1+2,X3 . EN )@@G@@ FILENAME@ @,@! STORE A6,W1+2,X1 . @F@@@, STOEO )@@G@@RE A6,W1+2,X1 . PUT FILENAME INTO TABLE @ @,@! LOAEP )@@G@@D X3,W1+3,X1 . @G@@@, LOAD A5,577,I . GET ROOM FOR EQ )@@G@@IOCB,FCT,PFI$,BUFFERS @C@@@, LINK STORABUF . GO GET IER )@@G@@T @ @@@, USING WORD,A1 . @G@@@, MOVE W1,DIOCES )@@G@@B,33 . INITIALIZE WITH COPY OF IOCB,FCT,PFI$ @C@@@, LOADA XET )@@G@@3,W1 . GET IOCB PTR @F@@@, STORE X1,IOCBBP . SEU )@@G@@TORE PTR TO LOOKUP TABLE ENTRY@ @@@, USING WORD,X1 . @E@@@,EV )@@G@@ MOVE IOCBFL,W1,3 . PUT FILENAME INTO IOCB @E@@@, EW )@@G@@ STORE X3,W1+3 . PUT IOCB PTR INTO TABLE @E@@@, ADDEX )@@G@@ A1,33,I . POINT TO 64 WORD BUFFER @D@@@, STORE AEY )@@G@@1,IOCBX1 . INITIALIZE GETC REG@E@@@, STORE A1,IOCBAD . EZ )@@G@@ INITIALIZE BUFFER ADDR @ @@@, USING WORD,X3 . @D@@@,FA )@@G@@ LOADA A3,W1+9 . GET PTR TO FCT @E@@@, STOFB )@@G@@RE A3,IOCBCB . PUT PTR TO FCT INTO IOCB @ @@@, USING WFC )@@G@@ORD,A3 . @F@@@, STORE A1,W1H2+8 . SET IMAGE BUFFER PTFD )@@G@@R IN FCT @E@@@, ADD A1,96,I . GET FIRST 224 WORD FE )@@G@@BUFFER@E@@@, STORE A1,W1H1+6 . STORE IT'S ADDR INTO FCT FF )@@G@@@F@@@, ADD A1,224,I . GET SECOND 224 WORD BUFFER FG )@@G@@@E@@@, STORE A1,W1H2+6 . STORE IT'S ADDR INTO FCT @ @@@,FH )@@G@@ LOAD A3,BUFSIZ$,I . @E@@@, STORE A3,W1H1+13,X3 . RESFI )@@G@@ET TO 224 WORD BUFFERS @E@@@! LOADD A3,DOWRT . SET OUTPUT PRFJ )@@G@@INT IOCB INFO @B@@@! STORED A3,IOCBLZ-(IN 0,2,0,0) @C@,@!FK )@@G@@ STORED A1,IOCBFL . @ @,@! STORE A6,FL )@@G@@IOCBFL+2 . @^@,@! LOAD A6,A0 . @E@@@! LOAD A0,3,I . FM )@@G@@ SIZE OF ASCII STRING @D@@@! LOADA A1,IOCBFL . FN )@@G@@ GET ASCII FILENAME @E@@@! LOADA A2,IOCBFL+6 . LOC FORFO )@@G@@ FIELDATA NAME @D@@@! LINK ASCFD . CONVERT TO FIFP )@@G@@ELDATA@B@@@, LOAD A0,DEXOP0 . RESET STACK @C@@@! LINFQ )@@G@@K EXASG . ASG FILE @ @@@! LOAD X1,DEXOP0+1 . FR )@@G@@@C@@@! JMP . ->RETURN @[@@@!. @[@@@!FS )@@G@@. @[@@@!. @E@@@!EXASG LOCAL . ASG FILES BYFT )@@G@@ ER CSF$ @^@@@! LOADD A3,IOCBFL@ @@@! DS A3,DCSFA+FU )@@G@@2 . @ @@@! LOAD A3,IOCBFL+2 . @ @@@! STORE A3,DCSFA+FV )@@G@@4 . @^@@@! LA,U A7,DCSFA @^@@@! LOAD A8,6,I . @^@@@!FW )@@G@@ LINK ZCSF$ . @#@@@! JMP . @[@@@!. @[@@@!. FX )@@G@@@[@@@!. @#@@@!EXFREE LOCAL . @ @@@! LOADD A3,IOCBFL . FY )@@G@@@ @@@! DS A3,DCSFF+2 . @ @@@! LOAD A3,IOCBFL+2 . FZ )@@G@@@ @@@! STORE A3,DCSFF+4 . @ @@@! LA,U A7,DCSFF . GA )@@G@@@^@@@! LOAD A8,6,I . @^@@@! LINK ZCSF$ @#@@@! GB )@@G@@ JMP . @#@@@!/. DATA @D@,@!DCASBF EQU OUT1-64 . USGC )@@G@@E SIR'S BUFFER SPACE @#@,@!L$(1) EQU IN1@#@,@!L$(3) EQU IN2GD )@@G@@@^@,@!L$(5) EQU OUT1 @^@,@!L$(7) EQU OUT2 . @[@,@!. GE )@@G@@@E@,@!. USE SIRASM'S I/O BUFFERS FOR EXECUTION BUFFERS @A@,@!GF )@@G@@. EACH BUFFER IS 224 WORDS @[@,@!. @B@,@!L$C(1) EQU 1 .GG )@@G@@ START WITH BUFFER 1 @^@@@!PR* PROC *1,4 . @^@@@! ' GH )@@G@@ ' @#@,@! +PR(1,1) @]@@@, +0 @#@@@! ENDGI )@@G@@ . @D@@@!IOCBP* PROC . SETUP IOCB AND FCT @#@,@!GJ )@@G@@ +0,B(3) .@#@@@, +0,0 . @#@,@! -1,B(3) .@#@@@,GK )@@G@@ -1,0 . @#@@@! +1,0,0,0 @^@@@! ' ' GL )@@G@@@#@@@! +$+3 @#@@@! +0,80,0,0@#@@@! +20,B$PIZGM )@@G@@@C@,@! ON IOCBP(1,1)=1 . IOCB ONLY @^@,@!B(3) EGN )@@G@@QU 0 . @^@,@! DO 1 , END @]@,@! OFF@C@@@! GO )@@G@@ +0 . FCT FILENAME (2 WORDS) @ @@@! +0 . 'GP )@@G@@' @]@@@! +0 @]@@@! +0 @^@@@! +BUFSIZ$,0 . GQ )@@G@@@]@@@! +0 @^@,@! +B(1),B(2) . @#@@@, +0,0 . GR )@@G@@@#@,@! +1,40 @^@@@, +SECNO$,BUFSZ$ @#@,@! +1,GS )@@G@@B(3) @#@@@, +1,0 @#@@@! +1,0 @]@@@! +0 GT )@@G@@@^@,@! +IOCBP(1,2) @#@@@, +0 . @A@@@! +0GU )@@G@@ . FILENAME FOR PFS$ @#@@@! +0 . @ @@@! +0 . ELEGV )@@G@@MENT NAME @#@@@! +0 . @#@@@! +0 . @ @@@! GW )@@G@@ +1,0 . ELEMENT TYPE @ @@@! +0 . VERSION NAME @#@@@! GX )@@G@@ +0 . @#@@@! +0 . @#@@@! +0 . @ @@@! GY )@@G@@ +0 . SECTOR LOCATION@^@@@! +0 . DATE @B@,@!B(3) EQU GZ )@@G@@ L$(L$C(1)) . START OF BUF @ @,@!B(2) EQU L$(L$C(1))+41 @A@,@!HA )@@G@@B(1) EQU L$(L$C(1))+41+BUFSIZ$ @^@,@!L$C*(1) EQU L$C(1)+1 @]@@@!HB )@@G@@ END@#@@@!DATAX CSECT 3 . @^@@@,DEXKYW SFW 0 . @^@@@,HC )@@G@@ +0,W$,0,0,0,0 .@^@@@,DEXKYR SFW 0 . @^@@@, +0,HD )@@G@@R$,0,0,0,0 .@^@@@!DOLENF SAC 01000,0 @^@,@!FILL(1) SAC 56,0 HE )@@G@@@^@@@,FILL(1) SAC BUFSIZ$,0@#@,@!DEXEOF SFW 0 .@ @,@! +05HF )@@G@@0,01,030,0,0,0 @ @,@! +0777777,0777777 @#@@@!DOLBL SFW HG )@@G@@ 0 . @ @,@! +050,01,030,0,0,1 @^@@@, +050,01,0,0,0,1HH )@@G@@@^@@@! FIELDATA . @#@@@! +'*SDFF*'@#@@@! ASCHI )@@G@@II . @#@@@!DOWRT SFW 0 .@^@@@! +0,132,0,0 @^@@@! HJ )@@G@@ +33,B$PIZ . @#@@@! CEND @#@@@!DATA CSECT 4 .@#@@@!HK )@@G@@DIOCBF . 0 .@^@@@! 'SYSIN ' @ @@@! +IOBIN-(IHL )@@G@@N 63,0,1,0) @^@@@! 'SYSPRINT ' @ @@@! +IOBOUT-(IN 63,HM )@@G@@0,1,0)@#@@@!DIOCBL . 0 .@^@,@!W1Y PR W1X . @^@@@,W1Y HN )@@G@@ PR . @^@,@!W2Y PR W2X . @^@@@,W2Y PR HO )@@G@@ . @^@,@!W3Y PR W3X . @^@@@,W3Y PR . @^@,@!HP )@@G@@W4Y PR W4X . @^@@@,W4Y PR . @#@@@,W5Y PR HQ )@@G@@. @#@@@,W6Y PR . @#@@@,W7Y PR . @#@@@,W8Y PR HR )@@G@@. @#@@@! CEND . @^@,@!W1X IOCBP ,W1Y . @#@@@,DIOCB HS )@@G@@ IOCBP . @^@,@!W2X IOCBP ,W2Y . @^@,@!W3X IOCBP ,W3Y HT )@@G@@@^@,@!W4X IOCBP ,W4Y @#@,@!DIOCBX . 0 .@#@,@! IOCHU )@@G@@BP 1 .@#@@@! CEND . @#@@@!DCSFA . 0 .@A@@@! '@AHV )@@G@@SG . ' @#@@@!DCSFF . 0 .@A@@@! '@FREE HW )@@G@@ . ' @]@@@!DCSFB . @A@,@! '@BRKPT HX )@@G@@. ' @A@@@, '@BRKPT ' @^@@@!ERLXFL EQU 52 HY )@@G@@. @#@,@!ERCLOSE EQU 0 . @#@@@,ERCLOSE EQU 3 . @#@@@! ENDHZ )@@G@@ . ___ A1,W1H2+8 . SET IMAGE BUFFER PTR IN FCT @E@@@, IA )@@G@@*[S@@@*SDFF*@#@@@+ AXR$ @#@@@+ DCLRG @#@@@+ IB )@@G@@ UNLIST . @]@@@+@ADD PLTVDS @#@@@+ LIST . @]@@@+@ADD EXCDS IC )@@G@@@]@@@+@ADD IOSET @#@@@+ PLWORD . @#@@@+ PLSD . @#@@@+ID )@@G@@ PLAC . @#@@@+ PLAR . @#@@@+ PLIOCB . @A@@@+IE )@@G@@EXDB CSECT 3@ @@@+ USING AREC,X10 . IF )@@G@@@C@@@+EXDBUG* LOCAL . ENTRY POINT @C@@@+ . LINIG )@@G@@K ZTIME . GET TIME @D@@@+ . LOADA X4,DMORN . IH )@@G@@ ASSUME MORNING @D@@@+ . LOAD A8,W1H2+1,X1 . GET HOUII )@@G@@R FROM TIME @^@@@+ . SRB A8,6 . @E@@@+ . IF A8,LT,'12IJ )@@G@@',I THEN,DTIMOK . ->OK @D@@@+ . LOADA X4,DAFT . IK )@@G@@ ASSUME AFTERNOON @D@@@+ . IF A8,LT,'18',I THEN,DTIMOK . IL )@@G@@-> TIME OK @^@@@+. LOADA X4,DEVE .@#@@@+DTIMOK LABEL . @^@@@+IM )@@G@@ USING WORD,X4 .@D@@@+. MOVE KLINE,KBLANK,33 . CLEAR IN )@@G@@LINE IMAGE @[@@@+. @E@@@+. NOTE: A COMMAND THAT WILL BE ADDEDIO )@@G@@ WILL BE TO PRINT @E@@@+. THE PARTIALLY COMPLETED OUTPUT BUFFER. WIP )@@G@@HEN THAT IS @F@@@+. ADDED IT WILL BE NECESSARY TO WRITE THIS LINE IQ )@@G@@ELSEWHERE @[@@@+. @C@@@+. MOVE KLINE,W1,3 . MOVE HEAIR )@@G@@DER @ @@@+. LOADA X1,KLINE . @^@@@+. LINK GOPRTL . IS )@@G@@@H@<@+ MOVE DBARPT,AREPTR . SAVE AREPTR IN CASE OF ERROR OUIT )@@G@@TSIDE EXDB @E@@@+ GOTO EXDBRL ->HAVE FIRST LINE AIU )@@G@@LREADY@#@@@+DBAGAN LABEL . @#@@@+EXDBLP LABEL . @ @@@< MOVIV )@@G@@E DSPLYA,0,I . @B@@@+ MOVE DGOLIN,DBSTAR . SET '*'@D@<@+IW )@@G@@ MOVE AREPTR,DBARPT . RESTORE AREPTR @ @@@+ LOAIX )@@G@@DA X1,DGOLIN . @C@@@+ LINK ZTTY . TTY INPUT IY )@@G@@@D@@@+ IF DGOCDF,NZERO THEN,DBEXRT . ->RETURN @#@@@+EXDBRLIZ )@@G@@ LABEL . @E@@@< MOVE DSPLYA,0,I . CLEAR ANY LEFT OVERJA )@@G@@ FLAGS@F@<@+ MOVE DSPLYA,0,I . CLEAR ANY LEFT OVERJB )@@G@@ FLAGS@D@@@+ STORE X1,DBSVX1 . SAVE X1 - CARD PTR @D@@@+JC )@@G@@ LOAD A15,A7 . MAX STRING LENGTH @F@@@+ DSLJD )@@G@@ A7,2 . GET LENGTH OF COMMAND IN WORDS @^@@@+ SSLJE )@@G@@ A8,34 .@^@@@+ TZ A8 . @ @@@+ ADD A7,1,I JF )@@G@@. @G@@@+ LOAD R8,A7 . SAVE WORD COUNT FOR POSSIJG )@@G@@BLE CSF$ @^@@@+ ADD X1,A7 .@ @@@+ LOAD A8,33,IJH )@@G@@ . @^@@@+ SUB A8,A7 .@ @@@+ USING WORD,X1 . JI )@@G@@@F@@@+ MOVE W1,KBLANK,R,A8 . BLANK OUT REST OF CARD IMAGE JJ )@@G@@@ @@@+ USING WORD,X4 . @F@@@+ LOAD X1,DBSVX1 . JK )@@G@@ RESTORE X1 TO BEGINNING OFCARD @C@@@+ SETGC 4,0,X1 . JL )@@G@@ READ COMMAND @^@@@+. FIND COMMAND @#@@@+EXDBR2 LABEL . JM )@@G@@@F@@@+ LOOP A15,EXDBR3 . DELETE CHAR FROM REMAINING JN )@@G@@@A@@@+ GOTO EXDBIL . -> ERROR @#@@@+EXDBR3 LABEL . @#@@@+JO )@@G@@ GETC . @E@@@+ IF A8,EQ,'*',I THEN,DBCSF . CSF$JP )@@G@@ COMMAND @E@@@+ SET 040,OFF,A8 . LOWERCASE -> UPPER CASJQ )@@G@@E @D@@@+ IF A8,LT,'A',I THEN,EXDBIL . ->ILLEGAL @D@@@+JR )@@G@@ IF A8,GE,'Z'+1,I THEN,EXDBIL . ->NOT A-Z @D@@@+ LOAJS )@@G@@D A3,DERCIT . COUNT OF MSGS. @ @@@+ ADD A3,1,I JT )@@G@@. @D@@@+ STORE A3,DERCIT . SAVE NEW COUNT @F@@@+JU )@@G@@ IF A3,GT,10,I THEN,DBVMFL . GOT ENOUGH COMMANDS @ @@@+JV )@@G@@ LOADD A3,DERMIT . @^@@@+ SLBD A3,7 . @^@@@+ JW )@@G@@ ADD A4,A8 .@ @@@+ STORED A3,DERMIT . @#@@@+DBVMFL LABJX )@@G@@EL . @^@@@+ LOAD X3,A8 . @A@@@+ LOAD X3,DBRTE-'A',X3JY )@@G@@ . @^@@@+ GOTO 0,X3 . @D@@@+EXDBIL LABEL . JZ )@@G@@ ILLEGAL COMMAND @ @@@+ LOADA X4,EXILMG . @ @@@+ KA )@@G@@ LINK EXDBPRINT . @D@@@+ GOTO DBAGAN . ->NEXT KB )@@G@@COMMAND @[@@@+. @[@@@+. @[@@@+. @B@@@+DBRETN LABEL . KC )@@G@@ RETURN @#@@@+DBEXRT LABEL . @D@@@+ GOTO GODBKD )@@G@@GR . ->RETURN TO COMTROL @#@@@+DBCSF LABEL . @ @@@+ KE )@@G@@ USING WORD,X1 . @F@@@+ LOAD A6,'@',I . MAKE LIKF )@@G@@NE LOOK LIKE COMMAND @ @@@+ STORE A6,W1Q1 . @ @@@+ KG )@@G@@ USING WORD,X4 . @D@@@+ LOAD A7,X1 . POINT TKH )@@G@@O CARD IMAGE@D@@@+ LOAD A8,R8 . GET WORD COUNT KI )@@G@@@D@@@+ LINK ZCSF$ . DO CSF$ COMMAND @G@@@+ KJ )@@G@@ LOADA X1,DGOLIN . ERROR MSG GOES TO OUTPUT LINE IMAGE @C@@@+KK )@@G@@ SETPC 4,0,X1 . SET PUTC REGS@E@@@+ LOAD AKL )@@G@@9,A7 . GET ERROR BITS FROM CSF @E@@@+ SETL A10,12,KM )@@G@@I . LOOP FOR 12 OCTAL NUMBERS@#@@@+DBCSF1 LABEL . @E@@@+ KN )@@G@@ SZ A8 . GET RID OF PREVIOUS CHAR @E@@@+ SLBKO )@@G@@D A8,3 . GET LEFTMOST OCTAL NUMBER@D@@@+ ADD AKP )@@G@@8,060,I . CONVERT TO ASCII @ @@@+ PUTC . CREATE NUMBERKQ )@@G@@@D@@@+ LOOP A10,DBCSF1 . GET ANOTHER ONE @D@@@+ KR )@@G@@ LINK GOPRTL . PRINT ERROR NUMBER @D@@@+ GOTO DKS )@@G@@BAGAN . GET NEXT COMMAND @[@@@+. @[@@@+. @#@@@+. KT )@@G@@ EXECUTE @[@@@+. @#@@@+DBEXCE LABEL . @A@@@+ LINK EXLKU )@@G@@XCA . CLOSE FILES @D@@@+ LINK DBTIMEX . GET ELAPSED TKV )@@G@@IME @^@@@+ LOADA X4,DBEXMG@C@@@+ LINK EXDBPRINT . KW )@@G@@ PRINT MESSAGE@B@@@+ LOAD X5,ADBK0S . GET BLOCK 0 SD @#@@@+KX )@@G@@DBEXLP LABEL . @ @@@+ USING SDSECT,X5 . @C@@@+ LOKY )@@G@@AD A7,SDRCTS . GET RECURSION FLAG @E@@@+ IF A7,EQ,0312,I THEKZ )@@G@@N,DBEXRC . I S IT RECURSIVE @C@@@+ IF A7,EQ,0465,I THEN,DBEXRLA )@@G@@C . DITTO @D@@@+ MOVE SDRCTS,0,I . RESTORE INITIALFLAG LB )@@G@@@#@@@+DBEXRC LABEL . @E@@@+ IF SDNXBK,ZERO THEN,DBEXST . LC )@@G@@OUTERMOST BLOCK @C@@@+ LOAD X5,SDNXBK . GET NEXT BLOCK SD LD )@@G@@@^@@@+ GOTO DBEXLP . @#@@@+DBEXST LABEL . @ @@@+ LINLE )@@G@@K UMDATA3 . @ @@@+ MOVE DERCIT,0,I . @ @@@+ MOVLF )@@G@@E DERCCR,0,I . @ @@@+ LOADD A3,KKD0 . @ @@@+ STOLG )@@G@@RED A3,DERMIT . @ @@@+ STORED A3,DERMCR . @C@@@+ LOALH )@@G@@D A0,SY$$TK . RESET STACK @E@@@< SET 04,ON,DGOPT6 LI )@@G@@. SAY WE'RE RE-EXECUTING @D@@@< MOVE DGONFG,0,I . RLJ )@@G@@ESET ONMNGR FLAGS @G@@@+ MOVE DBSW,0,I . LEAVING EXDB-LK )@@G@@TURN OFF DEBG SWITCH @^@<@+ GOTO PLEXGO . @ @@@< LOALL )@@G@@DA A3,PLEXGO . @E@@@< GOTO GOLDEX . LOAD EXECUTIOLM )@@G@@N PHASE @[@@@+. @[@@@+. @[@@@+. @C@@@+DBFLOW LABEL . LN )@@G@@ FLOWTRACE @D@@@+ LINK EXOPNX . SLO )@@G@@EE IF PROC TRACE @C@@@+ GOTO DBFLW0 . NORMAL FLOW LP )@@G@@@G@@@+ IF A8,NE,'P',I THEN,DBFLW0 . NOT PROC, SOMETHING ELQ )@@G@@LSE @D@@@+ SET 02,ON,DGOPT3 . SET PROC TRACE ON @ @@@+LR )@@G@@ GOTO DBAGAN . @#@@@+DBFLW0 LABEL . @E@@@+