@CAT,P 1037-010-010.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1037-010-010,,,130436053241,000 )@@G@@**PF**@@@@&$@@@@@@@@@@@[@#M@@@]FE^TFDJREADLG @@@@@@@@[@@ AQ )@@G@@@ @/@ ]@@@#I@@@@+]E@R#HKREADLG @@@@@@@@ @@@ @@@@>=@@#@@OAR )@@G@@@@@@>KE@S#HKPACKCHECK @@@@@@@@A@@@ )@@]@[@@@@@$@@@@>$F3V#HIAS )@@G@@PACKCHECK @@@@@@@@[@@@ @ @@@[@@@@@T@@@@&IH),]RILOGFED AT )@@G@@@@@@@E@@[@@DSUB @ @#@^[@@@PA@@@@%7DG*^KKLOGFED @@@@@@@@ @@@AU )@@G@@SUB @@@[^<@@#@^&@@@@_.DG(^KKMAP @@@@@@@@[@@@ AV )@@G@@@ @@@[@@@@@[@@@[^&DG(^KKLOGDUMP @@@@@@@[A@@@ )@@]@@@@@@^!AW )@@G@@@@@[^$H&7#HKLOGDUMP @@@@@@@@[@@@ @ @M@ [@@@^-@@@[DOEKS]WKAX )@@G@@ (3R4) ******* @H@@@@. ******* AY )@@G@@ ******* @H@@@@. ******* THIS PROAZ )@@G@@GRAM GENERATES AN SDF ELEMENT WHICH IS ******* @H@@@@. ****BA )@@G@@*** USUALLY USED AS AN SGS INPUT STREAM TO THE SSG ******* BB )@@G@@@H@@@@. ******* PROCESSOR. THERE ARE SEVERAL MODES OF OPERATION. BC )@@G@@ ******* @H@@@@. ******* BD )@@G@@ ******* @H@@@@. ******* MODE 1 - GENERAL INFORMATION BE )@@G@@ ******* @H@@@@. ******* ------ BF )@@G@@ ******* @H@@@@. ******* BG )@@G@@ ******* @H@@@@. ****BH )@@G@@*** THE FOLLOWING CARDS ARE 'ALWAYS' GENERATED (UNLESS 'N' ******* BI )@@G@@@H@@@@. ******* SPECIFIED) AND WRITTEN INTO OUTPUT ELEMENT: BJ )@@G@@ ******* @H@@@@. ******* BK )@@G@@ ******* @H@@@@. ******* DATE MM/DD/YY MM,DD,YY MONTH,DAYBL )@@G@@,YEAR DD,MO.,YY ******* @H@@@@. ******* DAY DAY-OF-WEEK BM )@@G@@ ******* @H@@@@. ******* TIME HH:BN )@@G@@MM:SS HH,MM,SS ******* @H@@@@. ****BO )@@G@@*** RUNID ORIGINAL,GENERATED ******* BP )@@G@@@H@@@@. ******* ACCOUNT RUN-ACCOUNT BQ )@@G@@ ******* @H@@@@. ******* PROJECT RUN-PROJECT-ID BR )@@G@@ ******* @H@@@@. ******* COND VALUE T1,T2,T3 BS )@@G@@ ******* @H@@@@. ******* PROGRAM TYPE BT )@@G@@ ******* @H@@@@. ******* EXEC LEVBU )@@G@@EL ******* @H@@@@. ****BV )@@G@@*** COMPUTER TYPE ******* BW )@@G@@@H@@@@. ******* SITEID SITE-ID BX )@@G@@ ******* @H@@@@. ******* USERID USER-ID BY )@@G@@ ******* @H@@@@. ******* SUPS CURRENT-SUPS MAX-SUPS CBSUPBZ )@@G@@S CPU-SUPS I/O-SUPS ******* @H@@@@. ******* ER-SUPS DELAY-TCA )@@G@@IME (ALL IN SECS) ******* @H@@@@. ******* CB )@@G@@ ******* @H@@@@. ****CC )@@G@@*** THE 'L' OPTION IS NOT AVAILABLE ******* CD )@@G@@@H@@@@. ******* ------------------------------- CE )@@G@@ ******* @H@@@@. ******* CF )@@G@@ ******* @H@@@@. ******* IF THE 'L' OPTION IS SPECIFIED, CG )@@G@@THE FOLLOWING CARDS ******* @H@@@@. ******* ARE ALSO GENERATED ACH )@@G@@ND WRITTEN TO OUTPUT ELEMENT: ******* @H@@@@. ******* CI )@@G@@ ******* @H@@@@. ****CJ )@@G@@*** SYMBIONT NAME EQUIP,TYPE,STATE,SS,UNIT (FOR EACH ******* CK )@@G@@@H@@@@. ******* CONFIGURED SYMBIONT DEVICE) CL )@@G@@ ******* @H@@@@. ******* ACTIVE #-DEM,#-BATCH CM )@@G@@ ******* @H@@@@. ******* BACKLOG NUM CN )@@G@@ ******* @H@@@@. ******* RUN RUNID ACCT,DFLAGCO )@@G@@,STATUS,OFC,SCH-TIME,DEVICE (FOR ******* @H@@@@. ******* EACCP )@@G@@H RUN IN ACTIVE AND BACKLOG QUEUES) ******* @H@@@@. ****CQ )@@G@@*** ******* CR )@@G@@@H@@@@. ******* MODE 2 - CONVERSATIONAL MODE CS )@@G@@ ******* @H@@@@. ******* ------ CT )@@G@@ ******* @H@@@@. ******* CU )@@G@@ ******* @H@@@@. ******* IF DATA CARDS FOLLOWCV )@@G@@ THE CONTROL CARD, THEY ARE ******* @H@@@@. ******* ASSUMED CW )@@G@@TO BE PARTIAL SGS STATEMENTS WHICH ARE ******* @H@@@@. ****CX )@@G@@*** TO BE COMPLETED. AFTER ALL THE CARDS ARE READ, ******* CY )@@G@@@H@@@@. ******* EACH PARTIAL IMAGE IS SENT TO USER (OR CONSOLE CZ )@@G@@ ******* @H@@@@. ******* IF 'C' OPTION ON) AS A QUESTION. THE USER (DA )@@G@@OR ******* @H@@@@. ******* OPERATOR) RESPONSE COMPLETES THEDB )@@G@@ SGS IMAGE WHICH ******* @H@@@@. ******* IS THEN WRITTEN TO TDC )@@G@@HE OUTPUT ELEMENT. SEVERAL ******* @H@@@@. ******* CONTROL DD )@@G@@IMAGES ARE RECOGNIZED: ******* @H@@@@. ****DE )@@G@@*** ******* DF )@@G@@@H@@@@. ******* *IF LAST ANSWER = [ ] - ALLOWS VARIABLE SGS DG )@@G@@ ******* @H@@@@. ******* *ELSE - GENERATION DH )@@G@@ ******* @H@@@@. ******* *END DI )@@G@@ ******* @H@@@@. ******* DJ )@@G@@ ******* @H@@@@. ******* *REPEAT DK )@@G@@ALL - REPEAT ALL SGS'S IF ******* @H@@@@. ****DL )@@G@@*** - RESPONSE IS 'YES' OR 'Y' ******* DM )@@G@@@H@@@@. ******* *REPEAT LAST - REPEAT LAST SGS DN )@@G@@ ******* @H@@@@. ******* *FILE - A MODE 4 TYPE DO )@@G@@FILE SGS IS ******* @H@@@@. ******* - DP )@@G@@GENERATED FROM NEXT INPUT ******* @H@@@@. ******* DQ )@@G@@ ******* @H@@@@. ******* IF A '*RDR )@@G@@EPEAT LAST' FOLLOWS AN '*IF LAST ....' STATEMENT, ******* @H@@@@. ****DS )@@G@@*** THE STATEMENT BEFORE THE '*IF' STATEMENT IS REPEATED UNTIL ******* DT )@@G@@@H@@@@. ******* THE CONDITION ON THE '*IF' STATEMENT BECOMES TRUE. DU )@@G@@ ******* @H@@@@. ******* IF A '*REPEAT LAST' FOLLOWS AN SGS IMAGE, THDV )@@G@@AT SGS IMAGE ******* @H@@@@. ******* IS REPEATED UNTIL A RESPONSE OF DW )@@G@@'$END' IS GIVEN. ******* @H@@@@. ******* DX )@@G@@ ******* @H@@@@. ******* AN ANSWEDY )@@G@@R OF '$SKIP' TO ANY SGS QUESTION, WILL SKIP ******* @H@@@@. ****DZ )@@G@@*** REST OF SGS QUESTIONS. ******* EA )@@G@@@H@@@@. ******* EB )@@G@@ ******* @H@@@@. ******* AN ANSWER OF '$ABORT' OR '$EXIT' WILL CAUSE EC )@@G@@PROGRAM TO ******* @H@@@@. ******* STOP READING INPUT AND CLOSE OUTED )@@G@@PUT ELEMENT WITH NO ******* @H@@@@. ******* FURTHER ACTION. EE )@@G@@ ******* @H@@@@. ******* EF )@@G@@ ******* @H@@@@. ****EG )@@G@@*** MODE 3 - DYNAMIC RUNSTREAM FEATURE ******* EH )@@G@@@H@@@@. ******* ------ EI )@@G@@ ******* @H@@@@. ******* EJ )@@G@@ ******* @H@@@@. ******* IF A SECOND SET OF DATA CARDS FOEK )@@G@@LLOW THE FIRST (WITH A @EOF******* @H@@@@. ******* IN BETWEEN), THEY WIEL )@@G@@LL BE STORED TEMPORARILY AND @ADD'ED TO******* @H@@@@. ******* THE RUNEM )@@G@@STREAM AFTER ALL PROCESSING IS DONE. CARDS WITH ******* @H@@@@. ****EN )@@G@@*** A '\' IN COLUMN 1 ARE ASSUMED TO BE CONTROL CARDS. ******* EO )@@G@@@H@@@@. ******* THIS FACILITY ALLOWS THIS PROCESSOR TO BE USED IN EP )@@G@@ ******* @H@@@@. ******* IN AN '@ADD' ELEMENT, INTERACT WITH THE USEREQ )@@G@@ IN ******* @H@@@@. ******* CONVERSATIONAL MODE, AND THEN HAER )@@G@@VE THE REST OF ******* @H@@@@. ******* THE RUNSTREAM EXECUTES )@@G@@ED USING ITS OUTPUT. AN @EOF MUST ******* @H@@@@. ******* ALSO FOLET )@@G@@LOW THIS DATA SET. AN EXAMPLE USING THIS ******* @H@@@@. ****EU )@@G@@*** FACILITY FOLLOWS: ******* EV )@@G@@@H@@@@. ******* EW )@@G@@ ******* @H@@@@. ******* @SGSGEN SGS EX )@@G@@ ******* @H@@@@. ******* TAPE NUMBER EY )@@G@@ ******* @H@@@@. ******* TAPE TYPE EZ )@@G@@ ******* @H@@@@. ******* @EOF FA )@@G@@ ******* @H@@@@. ****FB )@@G@@*** \SSG ,SGS ******* FC )@@G@@@H@@@@. ******* SKEL FD )@@G@@ ******* @H@@@@. ******* #MSG TODAY IS [DAY,1,1,1] FE )@@G@@ ******* @H@@@@. ******* #ASG,T TAPE,[TAPE,2,2,1],[TAPE,1FF )@@G@@,2,1] ******* @H@@@@. ******* \EOF FG )@@G@@ ******* @H@@@@. ******* \EOF FH )@@G@@ ******* @H@@@@. ****FI )@@G@@*** @EOF ******* FJ )@@G@@@H@@@@. ******* FK )@@G@@ ******* @H@@@@. ******* IN A GENERAL AN '@EOF' IS NEEDED AFTER MODESFL )@@G@@ 2 AND 3 ******* @H@@@@. ******* ONLY TO AVOID RE-READING CONTROLFM )@@G@@ IMAGES OR TO SEPARATE ******* @H@@@@. ******* MODES 2 AND 3. FN )@@G@@ ******* @H@@@@. ******* FO )@@G@@ ******* @H@@@@. ****FP )@@G@@*** MODE 4 - FILE INFORMATION ******* FQ )@@G@@@H@@@@. ******* ------ FR )@@G@@ ******* @H@@@@. ******* FS )@@G@@ ******* @H@@@@. ******* IF THE 'F' OPTION IS ON, THE DATFT )@@G@@A CARDS THAT FOLLOW ******* @H@@@@. ******* ARE ASSUMED TO BE FIFU )@@G@@LE NAMES. FOR EACH FILE NAME ******* @H@@@@. ******* READ, A FV )@@G@@CORRESPONDING OUTPUT IMAGE IS GENERATED ******* @H@@@@. ****FW )@@G@@*** CONTAINING A DESCRIPTION OF THE FILE. THE FORMAT ******* FX )@@G@@@H@@@@. ******* OF THIS IMAGE IS: FY )@@G@@ ******* @H@@@@. ******* FZ )@@G@@ ******* @H@@@@. ******* FILE QUAL,FILE-NAME,KEYS DEVICE GA )@@G@@GRAN ACCT PROJ ASG-CNTS ******* @H@@@@. ******* CAT-OPTS GB )@@G@@ ******* @H@@@@. ******* GC )@@G@@ ******* @H@@@@. ****GD )@@G@@*** WHERE 'QUAL' - QUALIFIER ******* GE )@@G@@@H@@@@. ******* 'FILE-NAME' - FILE NAME INCLUDING ABSOLUTE CYCLE GF )@@G@@ ******* @H@@@@. ******* 'KEYS' - READ/WRITE KEYS (IF ANY) IN DGG )@@G@@OUBLE QUOTES ******* @H@@@@. ******* 'DEVICE' - DEVICE TYPE GH )@@G@@ ******* @H@@@@. ******* 'GRAN' - FILE GI )@@G@@GRANULARITY IN FORM: ******* @H@@@@. ******* GJ )@@G@@ 'INIT,GRAN-TYPE,MAX,HI-GRAN,MAX-TRKS' ******* @H@@@@. ****GK )@@G@@*** FOR MASS STORAGE FILES OR ******* GL )@@G@@@H@@@@. ******* 'REEL-NO' FOR TAPE FILES GM )@@G@@ ******* @H@@@@. ******* 'ACCT' - ACCOUNT NUMBER UNDER WHICH FIGN )@@G@@LE CATALOGUED ******* @H@@@@. ******* 'PROJ' - PROJECT UNDER WHIGO )@@G@@CH FILE CATALOGUED ******* @H@@@@. ******* 'ASG-CNTS' - AGP )@@G@@SSIGN COUNT IN 1ST SUB-FIELD AND ******* @H@@@@. ******* GQ )@@G@@ 0/1 IF FILE ASSIGNED TO RUN (1) OR NOT ******* @H@@@@. ****GR )@@G@@*** IN 2ND SUB-FIELD ******* GS )@@G@@@H@@@@. ******* 'CAT-OPT' - CATALOG OPTIONS (ONE PER SUB-FIELD) GT )@@G@@ ******* @H@@@@. ******* GU )@@G@@ ******* @H@@@@. ******* IF THE 'I' OPTION WAS SPECIFIED GV )@@G@@ON CONTROL CARD, ******* @H@@@@. ******* ALL FILES ASSIGNED TGW )@@G@@O THE RUN WILL AUTOMATICALLY ******* @H@@@@. ******* BE INCLUGX )@@G@@DED IN THE LIST OF FILES PROCESSED. ******* @H@@@@. ****GY )@@G@@*** ******* GZ )@@G@@@H@@@@. ******* GENERAL FOR ALL MODES HA )@@G@@ ******* @H@@@@. ******* --------------------- HB )@@G@@ ******* @H@@@@. ******* HC )@@G@@ ******* @H@@@@. ******* THE OUTPUT ELEMENT WHD )@@G@@ILL BE STORED IN THE ELEMENT ******* @H@@@@. ******* SPECIFIEHE )@@G@@D AS PARAMETER 1 ON THE CONTROL CARD OR ******* @H@@@@. ****HF )@@G@@*** 'TPF$.SGS' IF NO ELEMENT SPECIFIED. ******* HG )@@G@@@H@@@@. ******* HH )@@G@@ ******* @H@@@@. ******* THIS PROGRAM IS THE SUCCESSOR TO THE OLD 'SGHI )@@G@@SGEN' AND ******* @H@@@@. ******* 'MSGSGS', 'FILESGS', AND 'SSGBUIHJ )@@G@@LD' PROGRAMS. ******* @H@@@@. ******* HK )@@G@@ ******* @H@@@@. ******* REVISIONHL )@@G@@ SUMMARY ******* @H@@@@. ****HM )@@G@@*** ---------------- ******* HN )@@G@@@H@@@@. ******* HO )@@G@@ ******* @H@@@@. ******* 1R1 - FIRST RELEASE HP )@@G@@ ******* @H@@@@. ******* 1R2 - SIGN-ON, ACCOUNT, PROJECTHQ )@@G@@ ******* @H@@@@. ******* 1R3 - IDONLY$, GETPHR )@@G@@SFN$ ******* @H@@@@. ******* - FHS )@@G@@REE,A LI$TEMP1 ******* @H@@@@. ****HT )@@G@@*** - SUPS CARD IMPROVED ******* HU )@@G@@@H@@@@. ******* - 'N' OPTION HV )@@G@@ ******* @H@@@@. ******* 2R1 - 'I' OPTION HW )@@G@@ ******* @H@@@@. ******* - *FILE CONTROL CARD HX )@@G@@ ******* @H@@@@. ******* - DIAGNOSTIC FOHY )@@G@@R TEMPORARY FILES ******* @H@@@@. ******* - FHZ )@@G@@REE,AR LI$FILE ******* @H@@@@. ****IA )@@G@@*** - FILE DIAGNOSTICS ON SAME LINE AS FILE NAME ******* IB )@@G@@@H@@@@. ******* - ASSIGN COUNT ADDED IC )@@G@@ ******* @H@@@@. ******* - CAT-OPT FIELD MOVED TO LAST FIELD ID )@@G@@ ******* @H@@@@. ******* - SPACE AFTER SIGN-ON IE )@@G@@ ******* @H@@@@. ******* 2R2 - SFILE FILE NAIF )@@G@@ME CORRECTION ******* @H@@@@. ******* - UIG )@@G@@SE INFO$ EQUATES ******* @H@@@@. ****IH )@@G@@*** - TREAD$ CORRECTION ******* II )@@G@@@H@@@@. ******* 2R3 - FURTHER CORRECTION FOR TREAD$ IJ )@@G@@ ******* @H@@@@. ******* - COLLECTED WITH MAP28R2 AND SYSLIB 73RIK )@@G@@1 ******* @H@@@@. ******* 2R4 - COMPUTER TYPE ADDED IL )@@G@@ ******* @H@@@@. ******* - USERID ADDED IM )@@G@@ ******* @H@@@@. ******* - AIN )@@G@@SSEMBLED WITH ASM 15R1 ******* @H@@@@. ****IO )@@G@@*** 2R5 - ADD CONTINGENCY TO CHECK 'ER STATUS$' EXISTENCE ******* IP )@@G@@@H@@@@. ******* - (THIS ALLOWS SGSGEN TO RUN UNDER L36 & L33) IQ )@@G@@ ******* @H@@@@. ******* - REMOVE 'SFILE' OUTPUT IN 'L' OPTION IR )@@G@@ ******* @H@@@@. ******* 2R6 - PROGRAM TYPE ADDED IS )@@G@@ ******* @H@@@@. ******* - REBOOT INFO RIT )@@G@@EMOVED ******* @H@@@@. ******* - CIU )@@G@@OMPATIBLE WITH L35 ******* @H@@@@. ****IV )@@G@@*** 2R7 - FIX 'C' OPTION UNDER L35 ******* IW )@@G@@@H@@@@. ******* - TIGHTEN LOGICAL CHECK FOR L35 IX )@@G@@ ******* @H@@@@. ******* 2R8 - USE MCT TO DETERMINE IF L35 OR > IY )@@G@@ ******* @H@@@@. ******* - COLLECT WITH SYSLIB 74R1 IZ )@@G@@ ******* @H@@@@. ******* - CHANGE 'REPEAJA )@@G@@T LAST' TO LOOK FOR '$END' INSTEAD ******* @H@@@@. ******* OJB )@@G@@F 'END' ******* @H@@@@. ****JC )@@G@@*** - ADD '$SKIP' FACILITY ******* JD )@@G@@@H@@@@. ******* - ECHO FULL FILE-NAME IN FILE MODE JE )@@G@@ ******* @H@@@@. ******* - ADD TEST MODE JF )@@G@@ ******* @H@@@@. ******* 2R9 - FIX OVERPRINT IN MODE 4 JG )@@G@@ ******* @H@@@@. ******* 3R1 - CONVERT TO MAJH )@@G@@SM ******* @H@@@@. ******* - DJI )@@G@@ON'T IGNORE $END ON 1ST INPUT ******* @H@@@@. ****JJ )@@G@@*** - ADD '$ABORT' AND '$EXIT' FACILITIES ******* JK )@@G@@@H@@@@. ******* - USE 'ER ERRPR$' FOR INTERNAL ERRORS JL )@@G@@ ******* @H@@@@. ******* - EXPAND 'ASG-CNT' FIELD FOR FILE MODE JM )@@G@@ ******* @H@@@@. ******* - TEST MODE VERSION GENERATJN )@@G@@ED WITH @MASM,T ******* @H@@@@. ******* 3R2 - DON'T USE PSFJO )@@G@@$ FOR SCRATCH ******* @H@@@@. ******* - UJP )@@G@@PDATE TEST FACILITY ******* @H@@@@. ****JQ )@@G@@*** - TURN OFF STATUS$ CODE ('L' OPTION) ******* JR )@@G@@@H@@@@. ******* - TURN OFF PRE-L35 CODE JS )@@G@@ ******* @H@@@@. ******* 3R3 - ALLOW BLANK AS ANSWER JT )@@G@@ ******* @H@@@@. ******* - ALLOW A *REPEAT LAST IMMEJU )@@G@@DIATELY AFTER AN *IF ******* @H@@@@. ******* 3R4 - ADD GRANULARIJV )@@G@@TY INFORMATION TO FILE MODE ******* @H@@@@. ******* - FJW )@@G@@IX POS/TRK GRANULARITY BUG ******* @H@@@@. ****JX )@@G@@*** ******* JY )@@G@@@H@@@@. ****************************************************************JZ )@@G@@********** _@@@@@. ******* 2R5 - ADD CONTINGENCY TO CHECK 'ER STATUS$'KA )@@G@@ EXISTENCE ******* *[S@@@*SDFF*@H@@@Q. ****************************KB )@@G@@********************************************** @H@@@Q. ******** THIS PDKC )@@G@@P ELEMENT CONTAINS USEFUL PROCS NOT DEFINED BY THE ******* @H@@@Q. ****KD )@@G@@**** EXEC 8. THESE PROCS ARE MADE AVAILABLE TO THE USER BY ******* KE )@@G@@@H@@@Q. ******** INVOKING THE PROC 'LIPROCS'. IF THIS ELEMENT HAS NOT BKF )@@G@@EEN******* @H@@@Q. ******** INCORPORATED INTO THE OPERATING SYSTEM, IT KG )@@G@@FIRST MUST BE ******* @H@@@Q. ******** PDP'ED INTO THE FILE FROM WHICHKH )@@G@@ THE CALLING PROGRAM IS ******* @H@@@Q. ******** BEING ASSEMBLED. KI )@@G@@ ******* @H@@@Q. ******** KJ )@@G@@ ******* @H@@@Q. ****KK )@@G@@********************************************************************** KL )@@G@@@D@@@QLIPROC$* $PROC 0 . MASTER PROC @D@@@QLIPROCKM )@@G@@S* $NAME . ALTERNATE NAME@H@T@Q AXR$ KN )@@G@@ . STANDARD ASSEMBLER REGISTER NAMES @H@@@T KO )@@G@@ $INCLUDE 'MAXR$/' . STANDARD ASSEMBLER REGISTER NAMES KP )@@G@@@H@@@Q. ****************************************************************KQ )@@G@@********** @H@@@Q. ******** CHECK XQT OPTION $PROC- ISOLATES BIT CORR. KR )@@G@@TO INPUT LETTER******* @H@@@Q. ******** KS )@@G@@ ******* @H@@@Q. ******** E.G. TOPT 'U' =KT )@@G@@ AND A0,(000000000040) ******* @H@@@Q. ******** TKU )@@G@@OPT A2,'U' = AND A2,(000000000040) ******* @H@@@Q. ****KV )@@G@@**** AOPT 'U' = AND A0,(000000000040) ******* KW )@@G@@@H@@@Q. ******** AOPT A2,'U' = AND A2,(000000000040) KX )@@G@@ ******* @H@@@Q. ******** SOPT 'U' = TOP A0,(000000000040) KY )@@G@@ ******* @H@@@Q. ******** SOPT A2,'U' = TOP A2,(000KZ )@@G@@000000040) ******* @H@@@Q. ******** GOPT 'U' =LA )@@G@@ ER OPT$ ******* @H@@@Q. ******** LB )@@G@@ AND A0,(000000000040) ******* @H@@@Q. ****LC )@@G@@********************************************************************** LD )@@G@@@#@@@QP $PROC @^@@@QTOPT** $NAME 0 @^@@@QAOPT** $NLE )@@G@@AME 0 @^@@@QGOPT** $NAME 1 @^@@@QSOPT** $NAME 2 LF )@@G@@@A@@@Q $DO P(0,0)=1 , ER OPT$ @F@@@Q $DO (P(0,0)<2)LG )@@G@@**(P(1)=1) , AND A0,(1*/('Z'-P(1,1))) @F@@@Q $DO (P(0,0)=0)LH )@@G@@**(P(1)>1) , AND P(1,1),(1*/('Z'-P(1,2))) @F@@@Q $DO (P(0,0)=2)LI )@@G@@**(P(1)=1) , TOP A0,(1*/('Z'-P(1,1))) @F@@@Q $DO (P(0,0)=2)LJ )@@G@@**(P(1)>1) , TOP P(1,1),(1*/('Z'-P(1,2))) @#@@@Q $END @[@@@QLK )@@G@@. @H@@@Q. **********************************************************LL )@@G@@**************** @H@@@Q. ******** FORTRAN CALL $PROC LM )@@G@@ ******* @H@@@Q. ******** LN )@@G@@ ******* @H@@@Q. ******** CALL SUBR A,BLO )@@G@@,C,D = LMJ X11,SUBR ******* @H@@@Q. ******** LP )@@G@@ + A ******* @H@@@QLQ )@@G@@. ******** + B ***LR )@@G@@**** @H@@@Q. ******** + C LS )@@G@@ ******* @H@@@Q. ******** + D LT )@@G@@ ******* @H@@@Q. ******** + 0 LU )@@G@@ ******* @H@@@Q. **********************LV )@@G@@**************************************************** @#@@@QCALL** $PLW )@@G@@ROC @A@@@Q LMJ X11,CALL(1,1) @A@@@QI $DO CALLLX )@@G@@(2) , + CALL(2,I) @^@@@Q + 0 @#@@@Q $END LY )@@G@@@[@@@Q. @H@@@Q. ****************************************************LZ )@@G@@********************** @H@@@Q. ******** INFOR TABLE INTERFACE PROCS - AMA )@@G@@IDS IN USING RINF$, SELT$ ******* @H@@@Q. ******** AND DMB )@@G@@USE$ SUBROUTINES ******* @H@@@Q. ******** MC )@@G@@ ******* @H@@@Q. ****MD )@@G@@**** R$INF - CALLS 'RINF$' AND INVOKES 'ELT$' ******* ME )@@G@@@H@@@Q. ******** S$ELT - CALLS 'SELT$' WITH PARAMETER # MF )@@G@@ ******* @H@@@Q. ******** D$USE - CALLS 'DUSE$' WITH FILE$NAME(MAY BEMG )@@G@@ R.J.) ******* @H@@@Q. ****************************************MH )@@G@@********************************** @H@@@QP $PROC 1 . A PMI )@@G@@ARAMETER SPECIFIES # OF XQT PARAMETERS EXPECTED,@D@@@QR$INF** $NAME MJ )@@G@@ . OTHERWISE 3 ASSUMED @F@@@Q $LEVEL 0,1,0 MK )@@G@@ . MAKE ELT$ LABELS GLOBAL @E@@@Q ELT$ ML )@@G@@ . INVOKE 'ELT$' PROC @F@@@Q $LEVEL 0,0,0 MM )@@G@@ . RETURN TO NORMAL LEVELING @B@@@QNN $EQU 28*(3*(P=1)+P(1,MN )@@G@@1)) @A@@@Q L A0,(NN,INF) @ @@@Q LMJ MO )@@G@@ X11,RINF$ @^@@@Q J ERR @^@@@Q J CONTMP )@@G@@@^@@@QINF RES NN @ @@@QERR ER PRINT$ @ @@@QMQ )@@G@@ ER EXIT$ @]@@@QCONT . @#@@@Q $END MR )@@G@@@^@@@QP $PROC 1 @#@@@QS$ELT** $NAME @A@@@Q $DMS )@@G@@O P(1)>0 , L,U A0,P(1,1)@^@@@Q LMJ X11,SELT$ @#@@@Q $EMT )@@G@@ND @^@@@QP $PROC 1 @#@@@QD$USE** $NAME @C@@@Q MU )@@G@@ $DO P(1)>0 , DL A0,($CFS(P(1,1)DL)) @ @@@Q LMJ X11,MV )@@G@@DUSE$ @#@@@Q $END @[@@@Q. @H@@@Q. **********************MW )@@G@@**************************************************** @H@@@Q. ******** SMX )@@G@@OURCE OUTPUT PROCS - AIDS IN USING SSOR, SOR, AND ESOR ******* @H@@@QMY )@@G@@. ******** SUBROUTINES ***MZ )@@G@@**** @H@@@Q. ******** NA )@@G@@ ******* @H@@@Q. ******** S$SOR - SETS UP 'PARTBL', ASSIGNS FILNB )@@G@@E AND CALLS 'SSOR' ******* @H@@@Q. ******** P(1,1) = FILE $NC )@@G@@NAME(MAY BE R.J.) ******* @H@@@Q. ******** P(1,2ND )@@G@@) = ELEMENT $NAME(MAY BE R.J.) ******* @H@@@Q. ******** NE )@@G@@ P(1,3) = VERSION $NAME(MAY BE R.J.) ******* @H@@@QNF )@@G@@. ******** P(0,1) = 1, IF NOT FIRST TIME CALLED ***NG )@@G@@**** @H@@@Q. ******** S$OR - CALLS 'SOR' NH )@@G@@ ******* @H@@@Q. ******** P(1,1) = (NWDS,ADDR) NI )@@G@@ ******* @H@@@Q. ******** P(1,1),P(1,2) = ANJ )@@G@@DDR,NWDS ******* @H@@@Q. ******** E$SOR - CALLSNK )@@G@@ 'ESOR' ******* @H@@@Q. **********NL )@@G@@**************************************************************** @^@@@QNM )@@G@@P $PROC 1 @#@@@QS$SOR** $NAME @A@@@Q $DO P(0,NN )@@G@@1)=0 , GO CONT1 @B@@@Q DL A0,($CFS(P(1,1)DL)) @A@@@QNO )@@G@@ DS A0,PARTBL+27 @B@@@Q DL A0,($CFS(PNP )@@G@@(1,2)DL)) @A@@@Q DS A0,PARTBL+29 @C@@@Q $DNQ )@@G@@O P(1)>2 , DL A0,($CFS(P(1,3)DL)) @B@@@Q $DO P(1)>2 , DS A0,PNR )@@G@@ARTBL+33 @#@@@QCONT1 $NAME @A@@@Q L A0,(3,PARTNS )@@G@@BL+26)@^@@@Q ER CSF$@ @@@Q LMJ X11,SSOR$ NT )@@G@@@^@@@Q ER ERR$@ @@@Q $DO P(0,1) , $END @^@@@QNU )@@G@@ J CONT@^@@@QPARTBL** RES 26 @#@@@Q '@NV )@@G@@ASG' @^@@@Q $CFS(P(1,1)DL)@^@@@Q $CFS(P(1,2)DL)@^@@@QNW )@@G@@ RES 2 @^@@@Q $CFS(P(1,3)DL)@^@@@Q RENX )@@G@@S 8 @]@@@QCONT . @#@@@Q $END @^@@@QP $PNY )@@G@@ROC 1 @#@@@QS$OR** $NAME @A@@@Q $DO P(1)=1 , L A0,P(NZ )@@G@@1,1) @C@@@Q $DO P(1)=2 , L A0,(P(1,2),P(1,1)) @ @@@Q OA )@@G@@ LMJ X11,SOR$ @^@@@Q ER ERR$@#@@@Q $EOB )@@G@@ND @^@@@QE$SOR** $PROC 0 @ @@@Q LMJ X11,ESOR$ OC )@@G@@@^@@@Q ER ERR$@#@@@Q $END @H@@@Q. **********OD )@@G@@**************************************************************** @H@@@QOE )@@G@@. ******* TEST FACILITY FOR MASM ELEMENTS ***OF )@@G@@**** @H@@@Q. ******* OG )@@G@@ ******* @H@@@Q. ******* IF @MASM,T USED, FACILITY IS PROCED ONOH )@@G@@ AND IF T2 OF ******* @H@@@Q. ******* RUN CONDITION WORD IS = 2 OI )@@G@@(@SETC 2), SNOOPY IS TURNED ON ******* @H@@@Q. ******* OJ )@@G@@ ******* @H@@@Q. **********OK )@@G@@**************************************************************** @#@@@QOL )@@G@@TEST** $PROC @G@@@QMASMT* $EQU $PAR(0)**(1*/('Z'-'T')) . TEOM )@@G@@ST MODE IF @MASM,T USED @C@@@RLCN $EQU $LCN . SAON )@@G@@VE LC @ @@@Q $IF MASMT @G@@@Q J CONTOO )@@G@@1 . JUMP TO ANOTHER LOCATION COUNTER@B@@@R$(0) '*TEST*'OP )@@G@@ . FOR IDONLY$ USE @]@R@Q$($LCN+2) @]@@@R$(LCN+2) @^@@@QSAVE OQ )@@G@@ $RES 2 @D@@@QCONT1 DS A0,SAVE . SAVE A0,OR )@@G@@A1 @E@@@Q COND$ . GET CONDITION WORD OS )@@G@@@D@@@Q AND A0,(0770000) . ISOLATE T2 @F@@@Q OT )@@G@@ TNE A1,(020000) . IF = 2, TURN ON SNOOPY @^@@@Q OU )@@G@@ SLJ TON$@D@@@Q DL A0,SAVE . RESTORE OV )@@G@@A0,A1 @H@@@Q J CONT2 . JUMP BACK TO ORIGINAOW )@@G@@L LOCATION COUNTER@#@R@Q$($LCN-2),CONT2 @#@T@R$(LCN-2),CONT2 @]@@@TOX )@@G@@$(LCN),CONT2@#@@@R $ELSE @#@@@R$(0) ' '@[@@@R$(LCN)OY )@@G@@@#@@@Q $ENDF @#@@@Q $END @#@@@Q $END OZ )@@G@@_@@@@@(1,1)DL)) @A@@@Q DS A0,PARTBL+27 @B@@@Q PA )@@G@@ DL A0,($CFS(P(1,2)DL)) @A@@@Q DS A0,PARTBL+PB )@@G@@*[S@@@*SDFF*@#@@@@ $DEF @ @@@@ $LEVEL 0,1,0 PC )@@G@@@^@@@@P $PROC *1 @ @@@@FORK$* $NAME 'FORK$' @ @@@@PD )@@G@@TFORK$* $NAME 'TFORK$' @ @@@@ $DO P(1)>0 , ;@H@@@@PE )@@G@@ LA 12,+(OPT$$ +($GFORM 6,P(1,4),6,P(1,3),6,P(1,2),18,P(PF )@@G@@1,1)))@ @@@@FORK$P* $NAME *'FORK$' @ @@@@TFORK$P* $NAME *'TFPG )@@G@@ORK$' @H@@@@ $DO (P(0,0)='TFORK$')**(P(0)>1) , LA 13,+(EQPH )@@G@@UF$ P(0),1,*1) @F@@@@ $DO P(0,*0)**(P(1)>0) , LA 12,+(PI )@@G@@EQUF$ P(1),1) @ @@@@ ER [P(0,0)] @#@@@@ $EPJ )@@G@@ND @[@@@@ . @^@@@@P $PROC 0,1 @ @@@@EXIT$* $NAME PK )@@G@@ 'EXIT$' @ @@@@ERR$* $NAME 'ERR$' @ @@@@ABORT$* $NAME PL )@@G@@ 'ABORT$' @ @@@@EABT$* $NAME 'EABT$' @ @@@@XCTS$* $NAME PM )@@G@@ 'XCTS$' @ @@@@ ER [P(0,0)] @#@@@@ $END PN )@@G@@@[@@@@ . @^@@@@P $PROC *1 @ @@@@ACSF$P* $NAME 'ACSPO )@@G@@F$' @ @@@@CSF$P* $NAME 'CSF$' @D@@@@ $DO P(1)PP )@@G@@>0 , LA 12,+(EQUF$ P(1),1) @ @@@@ ER [P(0,0)] @ @@@@PQ )@@G@@ DO 1 , $END @ @@@@ACSF$* $NAME *'ACSF$' @ @@@@PR )@@G@@CSF$* $NAME 'CSF$' @D@@@@ $DO P(1)=1 , LA 12,PS )@@G@@+(EQUF$ P(1),1,2) @G@@@@ $DO (P(1)>1)**(P(1,2)=14+7*P(0,*PT )@@G@@0)) , LA,14 12,P(1,1) @H@@@@ $DO (P(1)>1)**(P(1,2)<>14+PU )@@G@@7*P(0,*0)) , LA 12,(P(1,2),P(1,1)) @ @@@@ ER [P(0,0)] PV )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@PW )@@G@@CSF$S* $NAME 0 @E@@@@ LA 12,($SL(P(1,1))//6,($CPX )@@G@@FS(P(1,1))L)) @^@@@@ ER CSF$@ @@@@ $DO PY )@@G@@ 1 , $END @^@@@@ACSF$S* $NAME 0 @E@@@@ LA 12,(PZ )@@G@@$SL(P(1,1))//4,($CAS(P(1,1))L)) @ @@@@ ER ACSF$ QA )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@QB )@@G@@AWAIT$* $NAME 0 @^@@@@AWAIT$P* $NAME 1 @A@@@@BA $EQC )@@G@@QU $BA(P(1,1)) @C@@@@ $DO P(0,0)+P(1)+(\BA(0)) ,QD )@@G@@; @A@@@@P(2) $EQU +(EQUF$ P(1),1) @F@@@@ $DO QE )@@G@@ P(0,0)+($AP(P(2))>1*/16-1)+P(1)>1 , LA 12,P(2)@F@@@@ $DO QF )@@G@@ (P(1)=1)**(\P(0,0))**($AP(P(2))<1*/16) , ; @B@@@@ LA QG )@@G@@ 12,+(OPT$$ P(1,1)) @ @@@@ ER AWAIT$ @#@@@@ QH )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@NAME$* $NQI )@@G@@AME 0 @^@@@@NAME$P* $NAME 1 @E@@@@ $DO P(1)QJ )@@G@@>0 , LA 12,+(EQUF$ P(1),1,1-P(0,0)) @ @@@@ ER NAME$ QK )@@G@@@#@@@@ $END @[@@@@ . @^@@@@ $PROC 0,1 @#@@@@QL )@@G@@IDENT$* $NAME @ @@@@ ER IDENT$ @#@@@@ $EQM )@@G@@ND @[@@@@ . @^@@@@P $PROC *1 @ @@@@INT$* $NAME QN )@@G@@ 'INT$' @ @@@@INT$P* $NAME 'INT$' @C@@@@ $DO QO )@@G@@ P(0)>1 , LA 13,+(EQUF$ P(0))@ @@@@ACT$* $NAME 'ACT$' @ @@@@QP )@@G@@ACT$P* $NAME 'ACT$' @D@@@@ $DO P(1)>0 , LA 12,QQ )@@G@@+(EQUF$ P(1),1) @ @@@@ ER [P(0,0)] @#@@@@ $EQR )@@G@@ND @[@@@@ . @^@@@@P $PROC 0,1 @^@@@@DACT$* $NAME QS )@@G@@ 0 @ @@@@ ER DACT$ @#@@@@ $END @[@@@@QT )@@G@@ . @^@@@@P $PROC 0,1 @^@@@@TCELL$* $NAME *47 @ @@@@QU )@@G@@TSQRG$* $NAME 'TSQRG$' @ @@@@TSQCL$* $NAME 'TSQCL$' @E@@@@QV )@@G@@ $DO P(0,*0) , $GFORM 6,0,6,P(0,0),6,0,18,0 @C@@@@ QW )@@G@@ $DO \P(0,*0) , ER [P(0,0)] @#@@@@ $END @[@@@@QX )@@G@@ . @^@@@@P $PROC *1 @ @@@@CTS$* $NAME 'CTS$' QY )@@G@@@ @@@@CTSA$* $NAME 'CTSA$' @ @@@@ $IF P(1)>0 QZ )@@G@@@A@@@@ SZ,13 P(1,1),P(1,2) @A@@@@ TZ,1 P(1,RA )@@G@@1),P(1,2) @#@@@@ $ENDF @ @@@@ ER [P(0,0)] RB )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@RC )@@G@@CTSQ$* $NAME 0 @D@@@@ $DO P(1)>0 , NOP 0,+(EQUFRD )@@G@@$ P(1),1) @ @@@@ ER CTSQ$ @#@@@@ $END RE )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@RT$* $NAME 1 RF )@@G@@@^@@@@RT$P* $NAME 0 @E@@@@ $DO P(1)>0 , LA 12,RG )@@G@@+(EQUF$ P(1),1,P(0,0)) @^@@@@ ER RT$ @#@@@@ $ERH )@@G@@ND @[@@@@ . @^@@@@P $PROC 0,1 @^@@@@NRT$* $NAME RI )@@G@@ 0 @^@@@@ ER NRT$@#@@@@ $END @[@@@@ . RJ )@@G@@@^@@@@P $PROC *1 @^@@@@TWAIT$* $NAME 1 @^@@@@TWAIT$RK )@@G@@P* $NAME 0 @E@@@@ $DO P(1)>0 , LA 13,+(EQUF$ P(1)RL )@@G@@,1,P(0,0)) @ @@@@ ER TWAIT$ @#@@@@ $END RM )@@G@@@[@@@@ . @^@@@@ $PROC 0,1 @ @@@@SWAIT$* $NAME 'SWARN )@@G@@IT$' @ @@@@SWTCH$* $NAME 'SWTCH$' @ @@@@ ER [P(0RO )@@G@@,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 RP )@@G@@@^@@@@SETC$* $NAME 1 @^@@@@SETC$P* $NAME 0 @E@@@@ RQ )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) @ @@@@ ERRR )@@G@@ SETC$ @#@@@@ $END @[@@@@ . @^@@@@P $PRS )@@G@@ROC 0,1 @#@@@@COND$* $NAME @ @@@@ ER COND$ RT )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,1 @ @@@@RU )@@G@@DATE$* $NAME 'DATE$' @ @@@@TDATE$* $NAME 'TDATE$' @ @@@@RV )@@G@@TIME$* $NAME 'TIME$' @ @@@@ ER [P(0,0)] @#@@@@RW )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@MCORE$RX )@@G@@* $NAME *'MCORE$' @ @@@@LCORE$* $NAME *'LCORE$' @ @@@@MCORE$RY )@@G@@P* $NAME 'MCORE$' @ @@@@LCORE$P* $NAME 'LCORE$' @F@@@@ RZ )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2*P(0,*0)) @E@@@@ SA )@@G@@ $DO P(0)>1 , LXI 12,+(EQUF$ P(0),1,*P(0,*0))@ @@@@ ERSB )@@G@@ [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PSC )@@G@@ROC *1 @^@@@@PSR$* $NAME 0 @^@@@@PSR$P* $NAME 1 SD )@@G@@@F@@@@ $DO P(0,0)+P(1)+($IBITS(P(1,1))**(1*/4))>1 ,; SE )@@G@@@A@@@@P(2) $EQU +(EQUF$ P(1),1) @F@@@@ $DO P(0,SF )@@G@@0)+($AP(P(2))>1*/16-1)+P(1)>1 , LA 12,P(2)@F@@@@ $DO (P(1SG )@@G@@)=1)**(\P(0,0))**($AP(P(2))<1*/16) , ; @B@@@@ LA 12,+SH )@@G@@(OPT$$ P(1,1)) @^@@@@ ER PSR$@#@@@@ $END SI )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@BANK$* $NAME 0 SJ )@@G@@@D@@@@ $DO P(1)>0 ,P(2) $EQU +(EQUF$ P(1),1) @H@@@@ SK )@@G@@ $DO ($AP(P(2))>1*/16-1)++(P(0,1)=P(0)-1)**1-P(0,*1)**(P(1)>0) , ;SL )@@G@@@D@@@@ LA 12,+(EQUF$ P(1),1,2-P(0,*1)) @F@@@@ SM )@@G@@ $DO (($AP(P(2))>1*/16-1)++(\P(1)))**P(0,*1) , ; @A@@@@ SN )@@G@@ LXI,14 12,1*/17+P(0,1) @H@@@@ $DO (\P(0,*1))**(P(0SO )@@G@@)>1)**((P(1)=0)++($AP(P(2))>1*/16-1)) , ; @B@@@@ LXI 12,+SP )@@G@@(EQUF$ P(0),1,*1) @H@@@@ $DO (1-(P(0,1)=P(0)-1)++P(0,*1))**(SQ )@@G@@P(1)>0)**($AP(P(2))<1*/16) , ;@D@@@@ LA 12,(1*/17*P(0,*1SR )@@G@@)+P(0,1),P(2)) @^@@@@BANK$P* $NAME 1 @E@@@@ $DO SS )@@G@@ P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1)@ @@@@ ER BANKST )@@G@@$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC *255SU )@@G@@@^@@@@INFO$* $NAME 0 @E@@@@ $DO P>1 , LA 12,(2*PSV )@@G@@-1,$LCV(CTL$BNK(0))) @ @@@@ ER INFO$ @#@@@@$(CTL$SW )@@G@@BNK(0)). @^@@@@INFO$PKT* $NAME 1 @B@@@@ $DO P(0,SX )@@G@@1)*P(0,0) , + 0D @^@@@@LEN(1) $EQU 2 @^@@@@LEN(2) $EQU SY )@@G@@ 1 @^@@@@LEN(3) $EQU 2 @^@@@@LEN(4) $EQU 1 @^@@@@SZ )@@G@@LEN(5) $EQU 1 @^@@@@LEN(6) $EQU 1 @^@@@@LEN(7) $ETA )@@G@@QU 7 @ @@@@I $DO P-1 , ; @I@@@@ $GFORM TB )@@G@@ 12,P(I,1),24,0,2,0,16,LEN(P(I,1))*(P(I)<3)+P(I,3),18,P(I,2) @B@@@@TC )@@G@@I $DO P(0,2)*P(0,0) , + 0D @B@@@@ $DO P(0,TD )@@G@@0)=0 ,$($ILCN) @#@@@@ END @^@@@@P $PROC *1 TE )@@G@@@#@@@@INFO$P* $NAME @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$TF )@@G@@ P(1) ) @ @@@@ ER INFO$ @#@@@@ $END TG )@@G@@@[@@@@ . @^@@@@ $PROC *0,1@#@@@@OPT$* $NAME @^@@@@TH )@@G@@ ER OPT$@#@@@@ $END @[@@@@ . @^@@@@P TI )@@G@@ $PROC *1 @^@@@@PCT$* $NAME 0 @^@@@@PCT$P* $NAME TJ )@@G@@ 1 @ @@@@ $IF P(0,0) @D@@@@ $DO P(1)TK )@@G@@>0 , DL 12,+(EQUF$ P(1),1) @#@@@@ $ELSE @A@@@@LG $ETL )@@G@@QU P(1,2)+(P(1)<2) @E@@@@ $DO (P(0)>1)**(P(1)>0) , LTM )@@G@@A,14 12,P(1,1) @C@@@@ $DO P(0)>1 , LA 13,(LG,P(0,1)) TN )@@G@@@E@@@@ $DO (P(0)=1)**(P(1)>0) , LA 12,(LG,P(1,1)) @#@@@@TO )@@G@@ $ENDF @^@@@@ ER PCT$@#@@@@ $END TP )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@MCT$* $NAME 0 TQ )@@G@@@^@@@@MCT$P* $NAME 1 @F@@@@ $DO P(0,0)**(P(1)>0)TR )@@G@@ , LA 12,+(EQUF$ P(1),1,2) @C@@@@ $DO (\P(0,0))**(P(1)TS )@@G@@>0) , ; @G@@@@ LA,14 12,(MCT$PKT P(1,1),P(1,2),P(1,3),PTT )@@G@@(1,4)+(P(1)=3)) @^@@@@ ER MCT$@#@@@@ $END TU )@@G@@@[@@@@ . @^@@@@P $PROC *1 @#@@@@MCT$PKT* $NAME @ @@@@TV )@@G@@ $IF P(1,2)=3 @G@@@@ $GFORM 12,0,6,P(1,2),18TW )@@G@@,P(1,1),18,P(1,4)+(P(1)=3),18,P(1,3)@#@@@@ $ELSE @C@@@@ TX )@@G@@ $GFORM 12,0,6,P(1,2),18,P(1,1) @#@@@@ $ENDF @#@@@@TY )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@IALL$*TZ )@@G@@ $NAME 0 @ @@@@A(1) $EQU 'IOPR' @ @@@@A(2) $EUA )@@G@@QU 'IGDM' @ @@@@A(3) $EQU 'IFOF' @ @@@@A(4) $EUB )@@G@@QU 'IFUF' @ @@@@A(5) $EQU 'IDOF' @ @@@@A(6) $EUC )@@G@@QU 'IRST' @ @@@@A(7) $EQU 'IABT' @ @@@@A(8) $EUD )@@G@@QU 'IINT' @ @@@@A(9) $EQU 'ITS' @ @@@@A(10) $EUE )@@G@@QU 'ERR$' @F@@@@A(11) $EQU 'IAI' INTER ACUF )@@G@@TIVITY INTERRUPT @ @@@@A(12) $EQU 'BRKPT' @ @@@@A(13) $EUG )@@G@@QU 'PARITY' @ @@@@A(14) $EQU 'TIME' @E@@@@ . UH )@@G@@'TIME' VALUE IS ALSO USED FOR PCT OVERFLOWS @ @@@@A(15) $EQU UI )@@G@@ 'TERM' @[@@@@ . @G@@@@C $EQU 16 FIUJ )@@G@@RST APPLICATION SUBSCRIPT @[@@@@ . @ @@@@A(C) $EQU *'PGUK )@@G@@M' @ @@@@A(C+1) $EQU *'PROGRAM'@ @@@@A(C+2) $EQU *'ACUL )@@G@@T' @A@@@@A(C+3) $EQU *'ACTIVITY' @ @@@@A(C+4) $EQU UM )@@G@@ *'ESI' @ @@@@A(C+5) $EQU *'ESI' @ @@@@A(C+6) $EQU UN )@@G@@ *'CDB' @ @@@@A(C+7) $EQU *'COMMON' @[@@@@ . @B@@@@B(0) UO )@@G@@ $EQU (P(1)=2)+2*(P(1)=3) @F@@@@I $DO B(0) ,J $DUP )@@G@@O A , $DO P(1,I+1)=A(J) ,B(0) $EQU 0@C@@@@I $DO B(0) ,B(I-UQ )@@G@@1) $EQU P(1,I+1) @F@@@@I $DO P(1)-(P(1)>0) ,J $DO A , $DOUR )@@G@@ P(1,I+1)=A(J) ,; @E@@@@B(A(*J)) $EQU B(A(*J))++1*/((J-C*A(*J))*/-US )@@G@@A(*J)-1) @C@@@@DP $EQU (B(0)<0)++(B(0)>1*/12-1) @^@@@@UT )@@G@@ $IF DP @A@@@@IF $FORM 12,6,18,18,18 @#@@@@UU )@@G@@ $ELSE @ @@@@IF $FORM 12,6,18 @#@@@@ $EUV )@@G@@NDF @D@@@@ $DO DP , DL 12,(IF ,B(1),P(1,1),,B(0))@F@@@@UW )@@G@@ $DO (P(1)>0)**1-DP , LA 12,(IF B(0),B(1),P(1,1)) @ @@@@UX )@@G@@ ER IALL$ @#@@@@ $END @[@@@@ . @^@@@@UY )@@G@@P $PROC *1 @^@@@@IALL$P* $NAME 1 @D@@@@ $DUZ )@@G@@O P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@ ER IALLVA )@@G@@$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,1 VB )@@G@@@ @@@@CEND$* $NAME 'CEND$' @ @@@@CRTN$* $NAME 'CRTN$' VC )@@G@@@ @@@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . VD )@@G@@@^@@@@P PROC *1 @#@@@@CQUE$* NAME @A@@@@F FOVE )@@G@@RM 6,4,4,4,6,6,6 @I@@@@ DO P(1)>0 , F 8,14,,,P(1,VF )@@G@@2),P(1,3),P(1,2) . LA,U A0, @^@@@@CQUE$P* NAME 1 VG )@@G@@@E@@@@ DO P(0,0)*(P(1)>0) , LA 12,+(EQUF$ P(1) ) @D@@@@VH )@@G@@ DO P(0)>1 , LA 13,+(EQUF$ P(0) ) @ @@@@ ERVI )@@G@@ CQUE$ @#@@@@ END @^@@@@P PROC *1 VJ )@@G@@@#@@@@TRMRG$* NAME @B@@@@B EQU +(EQUF$ P(1),1,2) VK )@@G@@@F@@@@ DO (P(1)>0)**(P(0)<2)++($AP(B)<14*/26) , LXM 12,BVL )@@G@@@ @@@@F FORM 3,3,12,18 @F@@@@ DO ((P(1)=0)+VM )@@G@@+($AP(B)<14*/26))**(P(0)>1) , ; @C@@@@ LXI,14 12,(F ,P(0VN )@@G@@,1),P(0,2))*/-18 @H@@@@ DO (P(0)>1)**(P(1)>1)**($AP(B)>14*VO )@@G@@/26-1)**(B<14*/26+0777777) , ;@D@@@@ LA 12,(F ,P(0,1),P(VP )@@G@@0,2),B-14*/26) @^@@@@TRMRG$P* NAME 1 @E@@@@ DO VQ )@@G@@ (P(1)>0)**P(0,0) , LA 12,+(EQUF$ P(1) ) @ @@@@ ER TRMRVR )@@G@@G$ @#@@@@ END @^@@@@P $PROC *1 @^@@@@SETBP$VS )@@G@@* $NAME 0 @^@@@@L(1) $EQU 'W' @^@@@@L(2) $EQU VT )@@G@@ 'R' @^@@@@L(3) $EQU 'WR'@^@@@@L(4) $EQU 'P' @C@@@@VU )@@G@@ $DO P(0,1)='RW' ,P(0,1) $EQU 3 @D@@@@I $DO VV )@@G@@ L , $DO P(0,1)=L(I) ,P(0,1) $EQU I@D@@@@ $DO P(0)>3 ,P(VW )@@G@@0,1) $EQU P(0,1)++8 @G@@@@P(3) $EQU +($GFORM 18,0,2,0,4,P(VX )@@G@@0,1),6,P(0,2)+63*(P(0)<3)) @D@@@@ $DO P(1)>0 ,P(2) $EQVY )@@G@@U +(EQUF$ P(1),1) @H@@@@ $DO ($AP(P(2))<1*/16)*(P(1)+P(0)VZ )@@G@@>1) , LA 12,+(OPT$$ P(3),P(2))@^@@@@SETBP$P* $NAME 1 @F@@@@ WA )@@G@@ $DO (P(1)>0)**P(0,0)++($AP(P(2))>1*/16-1) , ; @D@@@@ WB )@@G@@ LA 12,+(EQUF$ P(1),1,2-2*P(0,0)) @F@@@@ $DO WC )@@G@@ ($AP(P(2))>1*/16-1)*(P(0)>1) , LXI,14 12,P(3) @G@@@@ $DO WD )@@G@@ P(0)>3-2*P(0,0) , LA 13,+(EQUF$ P(0),3-2*P(0,0),*1) @ @@@@ ERWE )@@G@@ SETBP$ @#@@@@ $END @[@@@@ . @^@@@@P $PWF )@@G@@ROC *1 @#@@@@ABSAD$* $NAME @ @@@@ $DO P(1)>0 , ;WG )@@G@@@F@@@@ LA,14 12,($GFORM 18,P(1,2),18,P(1,3),36,P(1,1)) WH )@@G@@@^@@@@ABSAD$P* $NAME 1 @F@@@@ $DO (P(1)>0)**P(0,0)WI )@@G@@ , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER ABSAD$ @#@@@@WJ )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@ADED$*WK )@@G@@ $NAME 1 @#@@@@ADED$P* $NAME @E@@@@ $D0 P(1)WL )@@G@@>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) @ @@@@ ER ADED$ WM )@@G@@@#@@@@ $END @[@@@@ . @^@@@@SYSBAL$P* $PROC *1 @#@@@@WN )@@G@@SYSBAL$* $NAME @F@@@@ $DO \\SYSBAL$P(1) , LA 12,+(EQUFWO )@@G@@$ SYSBAL$P(1),1,2)@ @@@@ ER SYSBAL$ @#@@@@ $EWP )@@G@@ND @[@@@@ . @^@@@@Q $PROC *2 @^@@@@COM$PGEN* $NAME WQ )@@G@@ 0 @^@@@@C(1) $EQU 'S' @^@@@@C(2) $EQU 'I' @^@@@@WR )@@G@@C(3) $EQU 'C' @^@@@@C(4) $EQU 'H' @ @@@@B(0) $EWS )@@G@@QU P(0,1) @D@@@@I $DO C , $DO B(0)=C(I) ,B(0) $EQUWT )@@G@@ I-1 @G@@@@ $GFORM 6,0,6,B(0),6,P(2,3),18,0,6,0,12,P(1,2)+5WU )@@G@@0*(P(1)=1),;@ @@@@ 18,P(1,1) @C@@@@ * WV )@@G@@ P(2,2)+50*(P(2)=1),P(2,1) @D@@@@ $DO P(2,3)>31 , $RESWW )@@G@@ 1. FOR RUNID @#@@@@ $END @[@@@@ . @^@@@@P $PWX )@@G@@ROC *2 @^@@@@COM$PKT* $NAME 0 @#@@@@ COM$PGEN@#@@@@WY )@@G@@ $END @[@@@@@^@@@]@^@#@[@ @@@]K^@D@)@Y@#@P@]@[@@5 @G@[@@WZ )@@G@@ 468 SP.INN.CMD.S!2 250 0007 0 0 106,114 XA )@@G@@@G@[@@ 469 S3.S!2 245@LC@C@)A8@TC@@@___@ L^@@XB )@@G@@@IL^A>@[0^QE@@:^S+@@E^T<@@M^T8@ (^;#)[O^ L)[O^O6)@*^R')@Q^TH)@F^T!))9^UEXC )@@G@@)BO @?@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___XD )@@G@@A]0^#V(CG@@@/K@@C &E/@@@/,0@FXC@?@@@C@,@@@[@)^#WR#K@@G;CK@@M:8K@@[/K@@CNXE )@@G@@(CG@@[/K@@CK&E/@@[/,0@FXC@?@@[ @@@@H*@I@@@C8K@@[[)K^#XR;@^#W&'0)@PB,0@CAXF )@@G@@R]0^#V/KF@@@A]0^M2R;0@@@R;)^@@(^I@@^/K@@DU&E/@@@*CG@@@/,0@FXRBW@@@R#X@@@XG )@@G@@A#K^M3&E/@@[*CG@@[/,0@FXRBW@@[R#X@@@A#K^M4&E/@@]*CG@@]/,0@FXRBW@@]R#X@@@XH )@@G@@A#K^M5R#@^M3:/@__./K@@D ?@@^NA/K@@C8R;0@@[/K@@D 1@@@@G(@@@@GR#@^NB:@@^NBXI )@@G@@/K@@D@)8@@B_O;K@@[R#@@@H!^I@@#/K@@D^R;0@@[RBI@@#AFI@@#R#@^M4:/@__./K@@DJXJ )@@G@@?@@^NA/K@@DGR;0@@[/K@@DJ0@@@@GR;@[@@ABI@@^R#@^M5:/@__./K@@DR!@@^NA/K@@DSXK )@@G@@0@@@@GR;@]@@AFI@@ /@0@DUR_@__"/K@@DVR;@@@@R]0^M2/KF@@@@@?@[@@@?@[V@@?@[XXL )@@G@@@@?@@<@@?@[Y@@?@@)@@?@[[@@?@[]@@?@[#@@?@[^@@?@[ @@?@[A@@?@[B@@?@[C@@?@[DXM )@@G@@@@?@[E@@?@[F@@?@[G@@?@[H@@?@[I@@?@[J@@?@[K@@?@[L@@?@[M@@?@[N@@?@[O@@?@[PXN )@@G@@@@?@[Q@@?@[R@@?@[S@@?@[T@@?@[U@@ @@(@@!@@!@@"@@:@@#@@/@@$@@.@@%@@"@@&@@&XO )@@G@@@@'@@=@@(@@%@@)@@*@@*@@>@@+@@'@@,@@_@@-@@-@@.@@?@@/@[W@@0@@0@@1@@1@@2@@2XP )@@G@@@@3@@3@@4@@4@@5@@5@@6@@6@@7@@7@@8@@8@@9@@9@@:@@$@@;@@;@@<@@\@@=@@,@@>@@+XQ )@@G@@@@?@[Z@@@@@@@@A@@@@@B@@@@@C@@@@@D@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@XR )@@G@@@@K@@@@@L@@@@@M@@@@@N@@@@@O@@@@@P@@@@@Q@@@@@R@@@@@S@@@@@T@@@@@U@@@@@V@@@XS )@@G@@@@W@@@@@X@@@@@Y@@@@@Z@@@@@[@@@@@\@@@@@]@@@@@^@@@@@_@@@@@@@@@@@A@@@@@B@@@XT )@@G@@@@C@@@@@D@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@K@@@@@L@@@@@M@@@@@N@@@XU )@@G@@@@O@@@@@P@@@@@Q@@@@@R@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@@@@X@@@@@Y@@@@@Z@@@XV )@@G@@@@[@@@@@\@@@@@]@@@@@^@@@@@_@@@A]0^S)A#@^S-RF@^S):8@@@^/K@@F$:@@^S+/K@@F$XW )@@G@@*@@@@GB%0@F&R]0^S)R#@^S-/KF@@@A]0^S)A#@^S-RF@^S):8@@@^/K@@F3:@@^S+/K@@F3XX )@@G@@*@@@@GB%0@F2R]0^S)R#@^S-/KF@@@@@@@@@(@@^T^/K@@F'RBG@@@/KF@@@ @@@@JR;FK@@XY )@@G@@(@@^T[/KF@@]/KF@@[&;@@@@/@F@@@C[K@@GT8@@@#G8@@@[;C@@@[N@K@@GG@K@@LH8K@@[XZ )@@G@@&;K__"G@)@@GH8)@@[&;)__"/-K@GUC).@@@C[@@H8G J@DXC=.@@@;[@@@DG J@DX;[@@@DYA )@@G@@%[@@H9/K@@G4H8@@@[H8)@@[N@K@@G/K@@G5C).@@@C=H@@@C J@DXC*.@@@;[@@@DG G@DXYB )@@G@@C?H@@@;[@@@DG J@DX;[@@@DG G@DXC0.@@@;[@@@DC4H)@@H9K@@[[[I)@@C J@DXC).@@@YC )@@G@@;[@@@DG G@DXC=H@@@;[@@@DG J@DX;[@@@DG G@DX;[@@@D[[I)@@C*.@@@C?H@@@C J@DXYD )@@G@@C0.@@@;[@@@DG G@DXC4H)@@;[@@@DG J@DX;[@@@DG G@DX;[@@@DH9K@@[[[I)@@/ K@GUYE )@@G@@C@@@[[/KF@@@&;@@@@/@F@@@A]0@[[C9W@@@&;I@@@Q;I@@@&;K@@[/,0@H\;(@@@G/[K@H)YF )@@G@@[[G@@@/,0@H\;[@@@GG G@@@[ G@@@;D@@@S;(@@@S[[G@@[/[K@H?/,0@H\[ G@@[;D@@@MYG )@@G@@[!G@@[G8@@@]/[K@H=/K@@HHG9@@ [[G@@@%[@@H'G8@@@[C8?@@@;C@@@MH8?@@@(@@@@IYH )@@G@@C8)@@[R]0@[[C8I@@@/KF@@@G[@@H;G8@@@[/K@@H-C9@@)@C@!)@@H9K@@[;))@@D+8)@[_YI )@@G@@;(@@@AGDJ@DX/D@@H2/KF@@@^@)@@@^@)^@) @@ R;0@F_/K@@H_R;0@HAA#@^TAYJ )@@G@@A]0^T /\K@ILRB?@@@C[I@@@R;G@@[/\K@ILRB?@@[RBW@@@R#@@@K/,_@@@A#@@@JR#@^TAYK )@@G@@/\K@ILRB?@@@A#"@@@R]0^T /KF@@@(CG@@@/KH@@@&E/@@@/,0@FX/KH@@@*@@^TB/KF@@[YL )@@G@@ @@^TC[@@^TB @@^TCC8W@@@KCK^TBH8)@@V&;K@I2C@@@@H'=@@@H(@@^TC[@@^TCG8W@@@YM )@@G@@ @H@@@>@@@MN/K@@I\>@@@MO/KF@@[C8H@@@?8I@@@/K@@IZC@@@MMC8K@@#/KF@@@C@@@MBYN )@@G@@C8K@@[/KF@@@[@@^TCC@@@MHC8K@@]/KF@@@L8@@@[C@)^TBG8)@@[*@I@@@?CY@@@/K@@I"YO )@@G@@G),@@@/K@@I8%CI@@@/KF@@@C)"@@@H80@@[T80@@AG="@@@9?I@@[?80@@BC@K@MP/KF@@[YP )@@G@@;CK@@=;^@@@%(@@@@HG8K@@[[@K@[#;C@@@Y[@@@[[C^@^TBG8@@@[C9K@@[ @@^TQN8)@@@YQ )@@G@@C@W@@@/@K@J.;CK@@Y*@@@@H?@K@[#/K@@J!%@K@[#/K@@J.%1W@@@/K@@J.C?W@@@!8K@@AYR )@@G@@/K@@J0%(K^TQ @@^TP[(K^TQ9??@@[C-G@@@:9@@@[C@0@MP')H@K\H9@@@[T9@@@AG>G@@@YS )@@G@@')H@K7G)G@@@G8@@@[/K@@JO:9K@@[/K@@J5C*?@@@:8)@@.N8)@@[%[K@[[/K@@J!/K@@J=YT )@@G@@%@)@MP[5@^TP:@)@MP[-K^TP/K@@J!(@@@[]:(K^TQ/K@@K][(K^TQ @@^TP:[K@[[/K@@KGYU )@@G@@G9K@@[(@G@@@/K@@KD!4W@@@/K@@JN @@^TP @@^TQ/KF@@@:(K^TQ *@^TQ9?K^TP98V@@@YV )@@G@@C8@@@-[=@^TQ(?@^TQ/KF@@[C@@^T+D8)@@@C80@@@C!@^TQ8^@@KZ1@@@@I!8)@[@C80@@EYW )@@G@@[))^TQ[=0^TQ/KF@@[C8K@@@;=@@@A?8K@@'?8K@@0/K@@K%(@@@@JC80@[@H8K@@0T8)@@EYX )@@G@@G8!@@@/K@@KS/^0@KV%8K@@+:8K@@-C8.@@@/@0@KV/K@@KS9*)^TR9*)^TT[@)^TV[@)^TWYY )@@G@@[@)^TX9*)^TY9*)^T)[@)^T+/K@@J8[1@^TP[!@^TP[(@^TP[>@^TP[5@^TQ[1@^TQ[!@^TQYZ )@@G@@C80@@F+8K@@_:8)@@ ;^@@@A8#0@L[9*@^TEC@@@MQC@K@MRC8)@@BC@0@MP[@"^TH8#)@LEZA )@@G@@N4K^TP9!@^TR/\)@L8C9K@@*(4@^TP*)@^TP')H)@@N0K^TP9!@^TT*@@@[[/K@@LTC[@@MSZB )@@G@@N8K@@^/\)@L8N?K^TP(@@@[[/K@@L@@@A')H)@@8KK@L6/KI@@@[5W@@@[1W@@@ZE )@@G@@[!W@@@[(W@@@[>W@@@/\0@M@[-W)@@Q;K@L'/KJ@@@PROCESSOR CALL ERROR @[^@M#ZF )@@G@@ABNORMAL RETURN FROM READ$ @[ @MCTOO MANY SPECIFICATIONS @[^@MI]@@@@@ZG )@@G@@[@@@@@ @@[^TH@@[@L'TPF$ @@G^TDR#G@@@'=@@@[/KF@@@R#K@@GR#0@@GR#H@@@ZH )@@G@@'=@@@#;?)@@M+8)@@_%80@@[/K@@M//KF@@@R#G@@@'=@@@]/KF@@@R#G@@@'=@@@O/KF@@@ZI )@@G@@R#G@@@'=@@@P/KF@@@R#G@@@0@G@@#/K@@M6(4G@@#/KF@@@R#H@@]/KG@@@R#H@@[/KG@@@ZJ )@@G@@R#K@@GR#H@@@0@G@@#'=@@@A(4G@@#/KF@@@R#H@@[/KG@@@'=@@@B/KF@@@'=@@@7/KF@@@ZK )@@G@@R#G@@@'=@@[X/KF@@@R]0^T*/KF@@@A]0^T*C@W@@@[^K^T=C@W@@[[^K^T&C@@^T$'=@@[IZL )@@G@@C?@^T>/K@@NBR]0^T(/KF@@@A]0^T(C@WK@@T8K@@VG8K@@[;*K@@MQ#W@@[C@@@@H/,0@IQZM )@@G@@/K@@@*/K@@NMR]0^T9/KF@@@A]0^T99?WK@@9*K^T%[@@^T7C@@^T8'=@@@UC@@^T7C@K^T5ZN )@@G@@[@WK@[C4@^T0/K@@NYR]0^U#/KF@@@A]0^U#(@@^TB/K@@[M[@@^T'C)GK@@G8@@[@/,0@JCZO )@@G@@/K@@[PC@@^T'9?GK@[/,0@L@/K@@N:/,0^QEC@@^_!&"0@@@/,0@NOC@@^_0&"0@@@/,0@N!ZP )@@G@@[@@^V*C@@^_3&"0@@@/,0@N)[@@^V*C9@@@[[[@^U+C@@^_7&"0@@@/,0@H/C9@@ZKC[K^;BZQ )@@G@@;-K@@M;H@@@K;[K@@][[K^;BC9@@@K[1@^;A @@^VWC@@^_'&"0@@@/,0@ND[@@^V:C9@@@[ZR )@@G@@[[@^U+C@@^_"&"0@@@/,0@H/C[@^VX;-@@@D[L@^UO;-@@@M[ @^UOQ;@^.!&"0)@PB,0@C]ZS )@@G@@ @@^U^C9@@@[[[@^UH @@^V% @@^V(C@@ @@&"0@@@/,0@F6[^@^;B @@^V0 @@^V- @@^V=ZT )@@G@@C9@@@@[5@^;AC9@@@K[1@^;AC@@ @#&"0@@@/,0@MXC5@^;A:9@@@[/K@@S/C[@^V3(@@^U ZU )@@G@@/[@@S/:[@^U /K@@S/C[@^V3(@@^UA/[@@PJ:[@^UA/K@@PJC[@^V3(@@^UB/[@@QV:[@^UBZV )@@G@@/K@@QVC[@^V3(@@^UC/[@@Q+:[@^UC/K@@Q+/K@@RMC9@@@][[@^U+C@@ @B&"0@@@/,0@H/ZW )@@G@@C9@@@][[@^U+C@@ @F&"0@@@/,0@H/C9@@@[[[@^U+C@@ @J&"0@@@/,0@H/C9@@@[[[@^U+ZX )@@G@@C@@ @N&"0@@@/,0@H/C9@@@[[[@^U+C@@ @R&"0@@@/,0@H/C[@^U^G9@@@[[[@^U^9!)^V1ZY )@@G@@;>)@@MC[0 @(;>)@@D;-)@@M[D)^V1;-)@@D[T)^V1CD)^V&"0)@PB,0@C]C[@^V=G9@@@[[[@^V=AK )@@G@@C5)^;A[[)^UHC'@@@A!]@@@M/K@@RS:9)@@C/K@@RS?9)@@G/K@@SCC')@@I!])@@M/K@@RSAL )@@G@@C[@^UH!9@@@M/K@@RSC[@^UH:9@@@B/K@@SN?9@@@D/K@@SRC9)@@F?[)@@K/K@@SRQ;@^"1AM )@@G@@&"0)@PB,0@C] @@^UHC[@^UH%9@@@J/K@@SYQ;@^"6&"0)@PB,0@C] @@^UHC[@^UH%9@@@KAN )@@G@@/K@@S>Q;@^";&"0)@PB,0@C] @@^UHC[@^UH%9@@@L/K@@S?Q;@^_@&"0)@PB,0@C] @@^UHAO )@@G@@C[@^V-/[@@S1Q;@^_ &"0)@PB,0@C]C[@^V=/[@@O(C[@^V(G9@@@[[[@^V(Q;@^_G&"0)@PAP )@@G@@B,0@C]C[@^UH/[@@S//D@@O(Q;@^_P&"0)@PB,0@C]Q;@^_U&"0)@PB,0@C]Q;@^_<&"0)@PAQ )@@G@@B,0@C]Q_@@@@/,0^SCO )@@G@@R70^D(/,0^KLR;@@@]R;K^C(R30^D(/,0^KLC@@^L/'=@@@8/K@^K8C@@^L.'=@@@8/K@^K8CP )@@G@@R;@@@]R;K^CZR30^D(/,0^KLC@@^L"'=@@@8/K@^K8R;@@@[AN@^T]RBK^DF/@K^F)P;K@@[CQ )@@G@@ABK^DFR#@^L_/K@^FMR;K@@#AVK^T]RF@^DG/@@^F)P;@@@[AF@^DGR#@^M@/K@^FMR;@@@[CR )@@G@@AZ@^T]RFK^DF/@K^F)P;K@@[AFK^DFR#@^M['=@@@8R#@^M]/,0@\Q/K@@?\C^)AR*C@KAR$CS )@@G@@C[@AR+%8/@@D/K@@?WCDY@@][DX@@][DI@@]/K@@?&C Y@@][ X@@][ I@@]%8/@@P/K@@?&CT )@@G@@C Y@@#NC,@@][ X@@#[ I@@#/K@@?//,@@\71@I@@#/K@@?!/,@@,+0@I@@#/K@@?./,0@\'CU )@@G@@/,0@\2/K@@?.C@KAR$QA0AR=CC)AR=C[KAR+/^)@?;/,@@0(C[KAR+/>@@?9[ Y@@@/K@@?.CV )@@G@@[DY@@@/K@@?.')I@!,/,@@\7C[KAR+QA0AR%/,@@,+/,@@\7&;K@@[&;)@@[C5H@@#+9@@@ZCW )@@G@@[5X@@#C9K@@KN8K@@C:8/@@J>5X@@#N?Z@@]M#!)@@C^)AR*:8/@@D*@I@@D/K@@!PC@K@@GCX )@@G@@'=@@@?;@@@@M[@I@@DC@@@@HC@KAR$CDKAR*[DZ@@[C[KAR+%8/@@D/K@@!%C!I@@#%9@@@ACY )@@G@@/K@@!) )G@@S[[W@@T%9@@@ /K@@!%CDH@@B!DG@@S[DG@@SC8K@@[[)W@@S ^G@@P CG@@QCZ )@@G@@/K@@!%C@KARCDZ@@@;DK@@ADF )@@G@@H[@@@L/H@@\#T9@@@WG J@@[G9@@]GG[@AR&[[@@@I[ @AR*H J@@]/D@@\#G!J@@]:8/@@JDG )@@G@@G9@@@^/[C@@@/HC@@@C5J@@]:9@@@[D@)@@KC9K@C@AA)AR(*?J@@@/,)@00C[@AR>1@@@@IDH )@@G@@(4J@@]/K@@\I+9@__/![K@[[C[@@@L;(@@@AG!J@@@[DJ@@@C9K@K@/,)@00QA)AR(C[@AR>DI )@@G@@/K@@,\AE0AR% @@AR9@@@K/K@@0[@@AKUR]K@@G&'K@@^EF )@@G@@(?@A 8/K@@L3;KK@@[/,0@I>R]@@@G&'@@@]I[)@@H[D)AKUR KAD:P9K@@B/K@@LVR P@@ EG )@@G@@9! @@@R9>@@BC9(@@@H )AKUC98@@@H 0AKUC80@@^9(D@@@[ >@@#[O9@@]C[P@@A *D@@]EH )@@G@@[[T@@#C80@@ C5A@@AC Q@@A[O8@@@[(C@@@[[S@@[ CC)@@[D9)@]*^ @@ /K@@LU/K@@M*EI )@@G@@CCKAD?;*K@@[CC@ABY(@@@@GC8@@@[T8W@@@/,0@I>R]@@@G&'@@@]G9)@@[[D)AKUR KAD,EJ )@@G@@R P@@#P9K@@B/K@@M#R P@@ 9! @@@R9>@@BC9(@@@H )AKU[ >@@#9(D@@@ @@@@NA[KAD1EK )@@G@@/,0@EI[O9@@]C5]@@AC M@@A[(D@@][[T@@#(^A@@^/K@@M+ @@@@MC98@@@H 0AKU/,0@EIEL )@@G@@/@0@M+*@@@@M[D*)@@C5]@@AC M@@A[O8@@@[(C@@@[[S@@[C9*@@]H )AKU/K@@MQ CC)@@EM )@@G@@[D9)@];H@@[C9(@AD2*^ @@ /K@@M]/,0@V-C8S@@@H^KAKUC^@AKU[CKAB\;*@@@M;^@@@MEN )@@G@@/,)@V@/,)@WA @@@@VC8K@Q*/,0@ID/,)@WA/,0@V2[B0AB\CCKAKU/,0@JX(?@A 8/K@@OFEO )@@G@@C8K@@A[^KAB,[CKAKRC8@AKJ[^@AKRR'W@@@&'K@@#^#0AKPC@KAA:G@KAA%[@KAKQG8K@@[EP )@@G@@[@KAK(H@KAA:[@KAA%/,0@V-C8K@@^[@KAKGC@@AK<[CD@@]R@)AD:P8)@@B(@@@@]/K@@O#EQ )@@G@@CCM@@C=8KC@@^#0AK1C^M@@#[@KAK2RC2@@G(@@@@#/K@@O@C^#@@^[@@AKZCC#@@@>8@@[@ER )@@G@@/K@@N"=8@]@@^#0AK0>8@@]@/K@@N%(@@AKY/K@@N"C8K@@[/,0@I>[C#@@^^#0AKT*@@AKYES )@@G@@/K@@N5CCN@@[[@KAK-C8K@@[/,0@I>[C#@@^C@KAK<[CW@@@R <@@@/K@@N;C^N@@[[@KAK-ET )@@G@@CC#@@^C@KAK<[^W@@@RD<@@]/,@@S7 @@AKT @@AK0R^3@@#/K@@NTR^+@@ @@AK1/K@@NLEU )@@G@@C@KAK>[^T)@]*@@AKY/K@@PV @@AK>^#0AKYC8K@@ /K@@NGCCKAD?T8K@@#[^KAB,/,0@I>EV )@@G@@R'W@@@&'K@@#[CKAKR[^@AKRG8K@@VC8@@@@W8@@@WC@KAA:G@KAA%[@KAKQG@K@@G[@KAK(EW )@@G@@H@KAA:[@KAA%[@@AKP/,0@V-RDKAD,9? @@@9*D@@@C@P@@^[@KAKG @@AK>C@@AK<[CD@@]EX )@@G@@0@ @@C^#0AKYR^>@@#CCM@@^C@)@@]/@K@O0C@)@@HCCX@@^/K@@O?H8)@@BC^I@@#[@@AK2EY )@@G@@CCM@@[=8KC@@^#0AK1RC2@@ (@@@@#/K@@PLC8N@@@CCH@@@=8@)@@/K@@O_C8W@@@/K@@O'EZ )@@G@@>8@@[@/K@@PJ=8@@]@^#0AKT=8@]@@^#0AK0C^H@@^[@@AKZC^N@@[[@KAK-RD<@@]C@KAK[^T)@]FB )@@G@@ @@AKYRDP@@ *@@@@ /K@@O)/,)@WA/,0@V2C@KAA0C@@AKR[@@AA0C@@AKQ[@@AA1C8@AA?FC )@@G@@'=@@@#[@KAA0(^@AKX/K@@QT9?@AA39*@AK%D8K@[0/,0@I>[^@AK,;J@@[CR'KAKX(^D@@@FD )@@G@@/K@@QRRAT@@@CCT@@[G8K@@]\#@@@H/K@@QD[@KAK=*@@AK3/,0@QKC@@AK(T8@@@W[@@AK)FE )@@G@@G@K@@G;C@@@=W8@@[0;*@@@][@@AK\T8@@@WH@@AK)C#@@@GH;@@@[K;@@[0C8@AK%'=@@@#FF )@@G@@^#0AK3C@KAK=H@K@@SG^KAK,H8K@@[C^D@@[CCG@@[[^H@@@/K@@P,C8@@@C[0@AK!C8@AK%FG )@@G@@'=@@@#C8@@@K[0@AK!/KF@@@*@@AK3/,0@QKC[)AK[B8@@B*?@A 8/K@@Q.R'C@@#=9)@@]FJ )@@G@@/K@@Q.RAC@@@(@@@@C/K@@Q.[B8@@^/K@@Q8G;0@@#/K@KQ*/K@@@@CXG@@#=9@@@[>9@@[@FK )@@G@@/K@KQ_*)@A 7/K@@RL>9@@@]/K@KQ_=9@@A@/K@@RLC^?@@#/@)@RLH8)@@#9!@AK4%[I@@@FL )@@G@@:[Y@@@/K@KQ_C[?@@^&;@@@]/,)@V@C@@@@M/,0@U>G;0@@#/K@KQ_/K@@@@CX?@@#>9)@[@FM )@@G@@>9)@@[/K@KRS*)@A 7/K@@R->9)@@]/K@KRSCC?@@^=9)@@^CC,@@@N9G@@@=8))@@H8))@@FN )@@G@@C])@@I*?@A 8/K@@S#R G@@#=9)@)@/K@@R1R9O@@@C W@@^R9@@@@/K@@R4C O@@[RDO@@@FO )@@G@@R ^@@@CCP@@]/@KKRS1@ @@@/K@@R_CX>@@@>9)@@]/K@@R_H X@@@;(K@@MGDP@@^/K@@S,FP )@@G@@'KKAK6CE @@^C8!@@[/K@@SSR W@@#C W@@^RD @@^C^P@@@!8K@@ /K@@SJCCP@@]H X@@@FQ )@@G@@;(K@@MG O@@@R9@@@@/K@@S,>9)@@)CCP@@]CE^@@@>9)@@)CA^@@@/@KKRSC@)@@H'KKAK6FR )@@G@@R9@@@@C!.@@[:Y!)@[/K@@SX/>0KRS/K@@SS>90@@^/K@@S4H X@@@H@K@@I;(K@@MN8.@@@FS )@@G@@&;)@@[C/K__"C?I)@@=8@@@^G8K@@[>8@@@[8K0@S>C@@@[^T8K@@#G@K@@OG[K@@H&;@@@]FT )@@G@@;[K@@M/,)@V@C@@@@L/,0@U>G;0@@#*@@@@^/K@@R1/K@KRS(@@@@A/KC@@@&9)@@[P9)@@[FU )@@G@@ @@AK+*@@AK+/KC@@@C?&)@[;D@@@==8)@@[^#0AK+=8)@@)/K@@S/&#@AK2Q#@AKZC@KAKGFV )@@G@@9*@AK&CWQ@@@[SKAK$*@@AKYG9@)@@*@@AK0G9@K@@>8)@@]/K@@T!>8)@@^/K@@S/C^Q@@@FW )@@G@@C^!@@@%8)@@C/K@@TWG9@[@@(?@A 8/K@@T3C8)@@ [O)AK$/K@@T3G9@C@@C^&@@@(CI@@[FX )@@G@@/K@@TCCKAKX ^G@@@[^H@@@[C@AKX[CW@@@&#)AK8K@@^/K@@S/=8K@@]/K@@U#C^B@@@[^@AK*/=K@UR/K@@UGGA )@@G@@C^R@@@C^!@@@%8)@@C/K@@UVCC!@@[[C)AK*C^!@@][^)AK*/K@@UVC?$)@[=8)@@^/K@@ULGB )@@G@@/=)@UR/K@@UG>8)@@]/K@@UP/=)@UR/K@@UGC^$@@@/K@@UTC@)AK-G8)@@[H@)@@G[C)AK*GC )@@G@@C8@AK&&;@@@#/,)@V@C@@AK>G8@@@[[@@AK>C@@AK8K@[@/K@@W(=8K@K@/K@@W(GN )@@G@@=8K@@K/K@@W&R^/@@#P80@@#C@N@@@%@KAP1/K@@W(C@W@@^[@KAB&[@KAL&(*@A 7/,0@;+GO )@@G@@*4@A 6/K@A^A*0@A 6/K@@'*'^@@4>R KAD:R @AD,C@@AAL'=@@@IC@@AP$'=@@@I(@@@@^GP )@@G@@/K@@X-**@A 7/K@@X)C/@ACW/,0AG?C8@AM*C8K@@J/,0A]NC8@@@D1K^@@CC8@@@I/,0AH(GQ )@@G@@C8@AM,/,0A]8C8^@@@C8K@@G/,0A]N(C^@@E/K@@XO/,0A]2C^^@@EC8K@@A/,0@F@/,0A]2GR )@@G@@C^^@@EGC^@@EH8@@@[C8K@@A/,0@F@C@@ACW'=@@@ICK^@@C>8@]@@/K@@X)C8@@@D1K^@@CGS )@@G@@C8@@@I[4@AN][*@ANBC@@ANF'=@@@IR O@@#**@A 7/K@@>I(?@A 8/K@@X(*4@A 7/K@@>DGT )@@G@@*0@A 7/K@@>^R[)@@ *?@A 8/K@@X0/K@@X,RD&@@^*CA@@^/K@@X!P9)@@BC@@AP$'=@@@IGU )@@G@@C/@ACW/,0AG?C/@@@H/,0AH?C8@AM:/,0A]8CD @@[9?@AP2=9@^@@9?@AP4=9@C@@9?@AP6GV )@@G@@=9@]@@9?@AP8/,0AIH/,0A]29?A@@@/,0AIH>9@@K@/K@@YDC/@@@*/,0AH(C/@@@=/,0AH?GW )@@G@@(C @@#/K@@&3C^ @@#C8K@@A/,0@F@/,0A]2C^ @@#GC @@#=9@C@@GC @@^H8@@@[C8K@@AGX )@@G@@/,0@F@/,0A]2*?@A 8(C @@^/K@@Y*CD @@[=9@C@@/K@@Y*C^ @@^C8K@@A/,0@F@/,0A]2GY )@@G@@C^ @@^GC @@^H8@@@[C8K@@A/,0@F@C@@ACW'=@@@ICD @@[>9@=@@/K@@Z"C/@ACW/,0AG?GZ )@@G@@>9@@]@/K@@ZMC/@@@H/,0AH?C8@AO"/,0A]8R >@@[*?@A 8/K@@Y//K@@Y'RD&@@^*CA@@^HA )@@G@@/K@@Y9P9)@@BC8A@@@C8K@@G/,0A]NC@@ACW'=@@@I/K@@Z"C8@APKC8K@@J/,0A]N/,0A]2HB )@@G@@/K@@Z1(?@A 8/K@@ZIC8@APNC8K@@J/,0A]N/K@@Z3C8@APQC8K@@J/,0A]N/K@@Z3>9@@[@HC )@@G@@/K@@Z"C/@@@H/,0AH?C8@APG/,0A]8C8@API/,0A]8+9@@@#:9K@@@/K@@Y5%9K@@[/K@@Z"HD )@@G@@C9)@@@R >@@[&9)@@[R 6)@@*?@A 8/K@@Z(/K@@Z$RD7@@^*CB@@^/K@@Z&P90@@B9?B@@@HE )@@G@@/,0AIH/,0A]2(?@A 8/K@@Z1:X>@@]/K@@Z#:T>@@]/K@@ZCC@@ACW'=@@@IC/@ACW/,0AG?HF )@@G@@C/@@@P/,0AH?C8@API/,0A]8G9)@@[%P>@@]/K@@Z+C@@AAL'=@@@IRD>@@ (@@@@A/K@@>LHG )@@G@@ @@@@TR]K@@A*?@A 8/K@@)F/K@@)DRET@@@1@D@@@/K@@)CP'K@@#CX9@@#=90@@)/K@@<5HH )@@G@@=90@@]/K@@>R @@@@K @@@@LRAA@@@RD6@@]&'@@@[&90@@[C/@ACW/,0AG?'^@@:, @@AK'HI )@@G@@(?@A 8/K@@-:(^A@@@/K@@&9/>K@&9C!S@@@CZ*@@@=9K@@^/K@@),(*@A 7/K@@):C@@AD0HJ )@@G@@G@@@@UC@W@@@C^X@@@[^W@@@/>K@&9/SC)@@/K@@))C8@@$(/,0AIFCWC@@@/,0AI2C/@@@)HK )@@G@@/,0AH(C/@@@+/,0AH?>9K@@]/K@@-FRA*)@@C^%@@@9?@APTP')@@#%8)@@C9?E@@@/,0AIHHL )@@G@@/,0A]2/,0A]2C/@@@4/,0AH?/K@@-:/&K@-B/SF)@@/K@@-O**@A 7/K@@-VCCA@@[/K@@-&HM )@@G@@C^C@@@C8K@@A/,0@F@/,0A]2^#0AK'C *)@@/>K@-BR'8@@@&'0@@[C,V@@@>'K@@^/K@@-^HN )@@G@@='K@@]/K@@-^(*@A 7/K@@-=C@KAD0G@K@@UC^!@@@CCI@@@C^,@@@G@@@@MH8@@@[[^!@@@HO )@@G@@/K@@-&C^F@@@H8@@@[?@@@@M/K@@&\C8K@@A/,0@F@/,0A]2/>@@@@-"/SB)@@/K@@-0(?@A 8/K@@+#(^A@@@/K@@9@@@]/K@@+!RA$)@@HT )@@G@@C^%@@@9?@APTP')@@#%8)@@C9?E@@@/,0AIH/K@@@@+(R'7)@[&'0@@[C,V@@@HV )@@G@@>'K@@^/K@@+&='K@@]/K@@+&(*@A 7/K@@9K@@^=9@@@^HX )@@G@@/K@@9@@@[/K@@&H**@A 6(WD@@DHY )@@G@@/K@@<5(@@AK'/K@@<5C/@ACW/,0AG?C/@@@A/,0AH?C8@AP3C^B)@@*@@@@G/,)@>38^@@@@BCCA@@[=8@@@)/K@@>@RX6@@]O 0AD\P90@@^R 7@@@C/@ACWIE )@@G@@/,0AG?C8@@@D1KB@@CC8@@@I/,0AH(C8@AM8/,0A]8C8B@@@C8K@@G/,0A]N/,0A]2(CA@@#IF )@@G@@/K@@=9C^A@@#C8K@@A/,0@F@/,0A]2C^A@@#GCA@@#H8@@@[C8K@@A/,0@F@C@@ACW'=@@@IIG )@@G@@R &@@^*@@@@A/K@@=YC@@AAL'=@@@IR P@@ *@@@@ /K@@=J/K@@&/C8@@@Y[4@AM/C8@@@IIH )@@G@@[4@AN][*@ANBC@@AN@'=@@@IC@@ANF'=@@@I/K@@Z"C@@AN:'=@@@I/K@@Z"CK^@@C=8@@)@II )@@G@@/K@@<8C@@APF'=@@@I/K@@<8**@A 7/K@@<5C;K@@@C/@ACW/,0AG?C8@AM0/,0A]89?D@@@IJ )@@G@@/,0AIH/,0A]2C8@@@/(?@A 8C8@@@+/,0AH?RD6@@]C^A@@[?^B@@@/K@@>0C^B@@@C8K@@AIK )@@G@@/,0@F@/,0A]2C^A@@[C8K@@A/,0@F@C@@ACW'=@@@I/K@@<5+8@Z__R]@@@H/[K@>;C/@@@,IL )@@G@@/,0AH(C/@@@ /,0AH(/,0AIAC[K@@G9?C@@@/,0AIH/,0AIA?8@@[C/KE@@@C@@@@L/,0AH?IM )@@G@@C8@AA.C8K@@G/,0A]NC@@ACW'=@@@IC/@ACW/,0AG?C/@@@A/,0AH?/K@@>;C/@ACW/,0AG?IN )@@G@@C8@AM3/,0A]8C/@@@U/,0AH?=9@@@[C9@@@[=9K@@[C9K@@[/K@@)V/K@@@@C8@AA.C8K@@CIO )@@G@@/,0A]NC8@AA.C8K@@A/,0A]N/,0A]2C8@AA.C8K@@A/,0A]N/,0A]2/K@K&S/K@@@@C8@AA.IP )@@G@@C8K@@A/,0A]N/,0A]2C8@AA.C8K@@A/,0A]N/,0A]2/K@K&>C/@__8/,0AH9'^@@&>/K@@-:IQ )@@G@@'^@@&>/K@@YTC/@__8/,0AH9'^@@&>/K@@'@[@@/K@@*] @@@@MR^R@@#C^[@@#GC[@@#!@@@@M[@@@@MC^[@@@IW )@@G@@(@@@@G/K@@$_[@@@@[/K@@$6H $@@E[D$@@E^#0AP?*^B@@ /K@@$XC@@AP?/@@@*XC@@AP!IX )@@G@@/^@@*XC/@ACW/,0AG?C8@AP;C8K@@L/,0A]NC8@AP"C8K@@L/,0A]NC@@AP$'=@@@IC@@AP%IY )@@G@@C8K@@A/,0AJCC8@AQ[C8K@@R/,0A]NC@@ACW'=@@@I^#0AP!R 0AD,/K@@$Y(^@AD$/K@@(#IZ )@@G@@C@@AP$'=@@@IN 0AD$RE@AD$ @@@@QN]@@[BR[0@@CC/@ACW/,0AG?C8@AQ C8K@@ /,0A]NJA )@@G@@8M@@*?CEB@@#*?@A 8GEB@@^P90@@B!]@@@QC])@@ORD7@@ 8M@@*?'^@@%:8L0@*7REC@@ JB )@@G@@CEC@@#*?@A 8GEC@@^P'@@@B @@@@MC[0@@O/]@@(]'^@@:F9?C@@@/,0AIH'^@@:S8L0@*6JC )@@G@@CE0ABY?'0@@]/K@@?4*?@A 8/K@@%OR 0AD,/K@@(FR 7@@ CA$@@E[])AP*CE$@@EC@@AP$JD )@@G@@'=@@@IC/@ACW/,0AG?C8@@@I0KB@@CC8@@@D/,0AH(C8@AQAC8K@@ /,0A]N9?B@@@/,0AIHJE )@@G@@'^@@%:RAB@@# @@@[B/K@@()RAC@@@R]K@@CCEC@@[='@C@@/K@@(/*?@A 8/K@@(%/K@@(*JF )@@G@@RET@@^*CD@@^/K@@($P'K@@BCEC@@#*@@@[BCEC@@^C *@@#*@@@[BC *@@^H[)AP*K[)@@OJG )@@G@@/]@@(/'^@@:F9?D@@@/,0AIHCC8@@[C8@@@*=80@K@/,0AH('^@@:S(?@A 8/K@@%#R ^@@ JH )@@G@@(8^@@@/KA@@@R'^@@B/K@@()*^C@@@/K@@(Z*^B@@ /K@@(E/K@@?4C/@ACW/,0AG?C@@@@BJI )@@G@@/,0AH(C8@AQAC8K@@^/,0A]N'^@@%:RA@AD:R[@@@CP9@@@B/K@@()CAKAE^[]KAP*CA)AEAJJ )@@G@@H])@@PG')@@[/])@%ZC@@AP$'=@@@IR90@@I @@@[B/!)@%CCAKAD"[]KAP*CA)AE@H])@@PJK )@@G@@G')@@[/])@?4C@@AP$'=@@@IR90@@DN90@@[/!)@%C/K@@?4/K@@@@C8@AP"C8K@@L/,0A]NJL )@@G@@;I@@[C @@@@IW'K@[\G]@@@Q?'K@@E/K@@%9;IK@@=W'K@@EG8)@@[/K@@%2*@@@@OG'K@@[JM )@@G@@/K@@%.T'K@@E8#)@%/[]K@@GC8K@@A/,0AJCC8@AQ[C8K@@R/,0A]NC@@ACW'=@@@IC@@AALJN )@@G@@'=@@@I[]KAP%;EK@@[/K@@%:/K@@@@G[)@@PG[0@@P @@@@LW[KAP% @@@@MW[)AP%H[)@@LJO )@@G@@C/@ACW/,0AG?C@@@@L/,0AH?/K@K:F/K@@@@C/@@@[/,0AH9C/@@@(/,0AH(C@@@@O/,0AJBJP )@@G@@C/@@@)/,0AH(C@@ACW'=@@@IC/@ACW/,0AG?C@@@@L/,0AH?8^)@:*C/@@@-/,0AH(8^)@:*JQ )@@G@@C@@ACW'=@@@I/K@K:S/K@@@@9(@@@W:;T@@@/K@@?,C;0@@[(*@A 6/K@@?JRE(@@C(GE@@ JR )@@G@@/K@@?J(@E@@@/K@@:"9?E@@@/,0AIHC/@@@*/,0AH(*@E@@]/K@@?#C/@ACW/,0AG?/K@@?JJS )@@G@@9?E@@]/,0AIH(@E@@B/K@@?HC/@@@(/,0AH(C@E@@B/,0AIFC/@@@)/,0AH(C/@@@./,0AH(JT )@@G@@9?D@@@/,0AIHRE(@@F(@@@@E/K@@?WC@E@@@/@@@?W:@@AA./K@@?WC/@@@//,0AH(9?E@@@JU )@@G@@/,0AIHC/@@[L/,0AH?&BD@@G/,0@.MC/@@[X/,0AH?CCD@@G/,0@/E(*@A 6/K@@?,C@@AALJV )@@G@@'=@@@IC@@ACW'=@@@IC;T@@@C;0@@@C/@ACW/,0AG?C8@AM3/,0A]8C/@@@U/,0AH?9!@@@WJW )@@G@@/K@@:,(*@A 6/K@@0)C@@AP$'=@@@ICCKAB%/@K@!U**@A 7/K@@?"C@@AN!'=@@@IC@@AN8JX )@@G@@'=@@@IN;)@@#C/@ACW/,0AG?C8K@!E/,0@IFC@@ACW'=@@@I(*@A 7/K@@!U/K@@,[/K@@@@JY )@@G@@CW?@@#=8)@C@>8)@@[/K@@!EC8G@@@C8K@@G/,0A]NC/@@@#/,0AH98N)K!EC@@ACW'=@@@IJZ )@@G@@/,0AH_N;)@@#/K@@!ECCKAB:/@K@,[**@A 7/K@@,[C@@AN9'=@@@IC@@AN"'=@@@IC/@ACWKA )@@G@@/,0AG?C8@AN_/,0A]8C8K@!(/,0@ID/K@@,[/K@@@@CWW@@#>8K@@)>8K@@]/K@@!(R])@@GKB )@@G@@9?G@@@/,0AIH/,0A]2C^E@@^REU@@ H^D@@@G8@@@[/,0AJB/,0A]2C^D@@@C8K@@A/,0@F@KC )@@G@@C@@ACW'=@@@I/,0AH_C8@AN_/,0A]8/K@@!(CCKAB?/@K@,<(*@A 7/K@@,CC@@AOS'=@@@IKD )@@G@@/K@@,GC@@AO^'=@@@IC@@AOH'=@@@IC/@ACW/,0AG?N;)@@#C8K@,O/,0@IFC@@ACW'=@@@IKE )@@G@@/K@@,8)@K@/K@@,OC8G@@@C8K@@G/,0A]NC/@@@#/,0AH98N)K,OC@@ACWKF )@@G@@'=@@@I/,0AH_N;)@@#/K@@,OCCKAB!/@K@0)C@@AOT'=@@@IC@@AO;'=@@@IC@@AO/'=@@@IKG )@@G@@*?@A 8/K@@,7C@@AO.'=@@@IC/@ACW/,0AG?N;)@@[C8K@\P/,0@IFC@@ACW'=@@@I/K@@0)KH )@@G@@C/@ACW/,0AG?N;)@@]C8K@,_/,0@IFC@@ACW'=@@@I/K@@0)/K@@@@CW?@@#>8)@@^/K@@,_KI )@@G@@R])@@GC8G@@@C8K@@G/,0A]NC/@@@ /,0AH(CCU@@^C^H@@@C8K@@A/,0@F@C/@@@^/,0AH9KJ )@@G@@8N)K,_C@@ACW'=@@@I/,0AH_N;)@@]/K@@,_/K@@@@CW?@@#>8)@@^/K@K\PR])@@G=8)@)@KK )@@G@@/K@@\0C8G@@@C8K@@G/,0A]NC/@@@(/,0AH(C^U@@#C^X@@]'^@@0NCCE@@^C^G@@@C8K@@AKL )@@G@@/,0@F@C/@@@^/,0AH98N)K\PC@@ACW'=@@@I/,0AH_N;)@@[/K@@\PC^?@@#0@I@@]/K@@\5KM )@@G@@C^,@@@/K@@\1[@)@@DC8E@@@C8K@@G/,0A]NC/@@@(/,0AH(CCD@@@C^W@@]'^@@0NC^D@@]KN )@@G@@C8K@@A/,0@F@C/@@@^/,0AH98N)@0IC^(@@@/@)@\%1@I@@]/K@@0^[@)@@DC@@ACW'=@@@IKO )@@G@@/,0AH_N;)@@[/K@@\6C^(@@@/@)K\P1@I@@]/K@@0I/K@@\5/K@@@@CW.@@]C@@AD\H8@@@^KP )@@G@@K@@@@JC^H@@@C8G@@@C8K@@G/,0A]NC8@AQBC8K@@]/,0A]N/K@K0N**@A 7/K@@1R(C@A /KQ )@@G@@/K@@1]C@@AL+'=@@@IC@@AAL'=@@@IC/@ACW/,0AG?RD)A /CPKACR @@@@KR[0AQC&9)@@[KR )@@G@@W9@@@I/K@@0;C8@AQDC8K@@ /,0A]N')B)@@C8K@@^/,0@F@8L@@01C@@ACW'=@@@I/,0AH_KS )@@G@@N9@@@H8^@@01/[K@1]H9K@@[N[@@@L @@@@L/K@@01*?@A 8*)@A 9*8@@@@/K@@1RC@@ALXKT )@@G@@'=@@@I @@AP: @@AP,N8)@@]C/@ACW/,0AG?C/@@@ /,0AH9C@@AAL'=@@@IC8K@1?/,0@IFKU )@@G@@C8K@12/,0@IHC@@ACW'=@@@I**@A 6(^@AF#/K@@1$C@@ALR'=@@@IN8)@@]C/@ACW/,0AG?KV )@@G@@C/@@@ /,0AH9C@@AAL'=@@@IC8K@17/,0@IFC@@ACW'=@@@I(@@AB&/K@A^AC@@AL$'=@@@IKW )@@G@@/K@A^A/K@@@@CYW@@#>'K@^@/K@@1?C@)@1?/K@@15/K@@@@C@)@12CYW@@#[@)@17/K@@2AKX )@@G@@/K@@@@CYW@@#C^?@@#='K@^@/K@K17/@)@4B='K@)@CC,@@@>'K@@[/K@@4BC8K@@C:^Y@@@KY )@@G@@/K@@2A(^I@@]/K@@2_R'W@@@C8@@@*>'K@@]C8@@@ /,0AH(9?D@@@/,0AIH*@@AP,/K@@2&KZ )@@G@@='K@^@/K@@3F='K@]@/K@@3]*@@AP:/K@@3CRAD@@#='K@)@REC@@@/K@@2UREC@@@C^C@@@LA )@@G@@:8@@@C/K@@3 1@C@@@/K@@2TP'@@@#C/@@@(/,0AH(9?C@@@/,0AIHC/@@@)/,0AH(C8@@@]LB )@@G@@H@@@[]T8@@@%G8@@@Y/,0AH?='K@)@/K@@3I='K@K@/K@@21='K@[@/K@@4OC/@@@A/,0AH9LC )@@G@@C^D@@^C8K@@A/,0@F@C/@@@ /,0AH98K)@2_C@@ACW'=@@@IN8)@@]/,0AH_C/@@@ /,0AH9LD )@@G@@ @@AP: @@AP,/K@@179?@APV/,0AIH/K@@2&9?@AP-/,0AIH/K@@2&9?@APX/,0AIH/K@@2&LE )@@G@@9?@APZ/,0AIH/K@@2&C/@@@M/,0AH9R D@@#8K)@3SC@@ACW'=@@@IN8)@@]/,0AH_C/@@@ALF )@@G@@/,0AH9RDO@@@R P@@]R[)@@ *?@A 8/K@@3-/K@@3ZRD&@@^*CA@@^/K@@3YP9)@@BC/@@@(LG )@@G@@/,0AH(9?A@@@/,0AIHC/@@@,/,0AH(RX>@@]O )AD\P9)@@^R &@@@9?A@@@/,0AIHC/@@@)LH )@@G@@/,0AH(C8@@@]H@@@[]T8@@@%G8@@@Y/,0AH?C^^@@[C8K@@G/,0@F@C/@@@ /,0AH(C8@@@ LI )@@G@@*C^@@[C8@@@L/,0AH(*^^@@@/K@@4#C/@@@#/,0AH9/K@@28C/@@@^/,0AH9R ^@@@/K@@3LLJ )@@G@@='K@K@/K@@2_='K@[@/K@@4M**@A 7/K@@2_^#0AP:G'K@[@='K@@]H'K@@]/K@@2A^#0AP,LK )@@G@@/K@@2AC@D@@^*@@AP: @@@@GN[@@@G='K@]@N9@@@[C8K@@G/,0@F@C/@@@ /,0AH(C8@@@ LL )@@G@@>'K@@[C8@@@?/,0AH(C/@@@#/,0AH9/K@@28/K@@@@**@A 7/K@@8=C/@ACW/,0AG?C8@AL6LM )@@G@@/,0A]8(?@A 8/K@@7 CG@AEA?^@AE^/K@@5JC^@AE^C8K@@A/,0@F@/,0A]2C^@AEAC8K@@ALN )@@G@@/,0@F@/,0A]2C^@AEAH^@AE^G8@@@[C8K@@A/,0AJC/,0A]2C/@@@I/,0AH(/,0A]2(4@A .LO )@@G@@/K@@5BC8@AQEC8K@@G/,0A]NC@@ACW'=@@@IC/@ACW/,0AG?C/@@@M/,0AH?C8@AL9/,0A]8LP )@@G@@C^@AE@?^@AD"/K@@5>C^@AD"C8K@@A/,0@F@/,0A]2C^@AE@C8K@@A/,0@F@/,0A]2C^@AE@LQ )@@G@@H^@AD"G8@@@[C8K@@A/,0AJC/,0A]2C/@@@D/,0AH(/,0A]2C@@ACW'=@@@I(C@ABY/K@@56LR )@@G@@C/@ACW/,0AG?C8@AME/,0A]8C^@AB(C8K@@A/,0@F@/,0A]2C^@AB(G^@ABYH8@@@[C8K@@ALS )@@G@@/,0@F@C@@ACW'=@@@I(C@AB%/K@@6BC/@ACW/,0AG?C8@AMJ/,0A]8C^@AB%C8K@@A/,0@F@LT )@@G@@/,0A]2CC@AB%T8@@@#G^@AB%C8K@@A/,0@F@C@@ACW'=@@@I(C@AB:/K@@6SC/@ACW/,0AG?LU )@@G@@C8@AMO/,0A]8C^@AB:C8K@@A/,0@F@/,0A]2CC@AB:T8@@@#G^@AB:C8K@@A/,0@F@C@@ACWLV )@@G@@'=@@@I(C@AB?/K@@6(C/@ACW/,0AG?C8@AMT/,0A]8C^@AB?C8K@@A/,0@F@/,0A]2CC@AB?LW )@@G@@T8@@@#G^@AB?C8K@@A/,0@F@C@@ACW'=@@@I(C@AB!/K@@6;C/@ACW/,0AG?C8@AMY/,0A]8LX )@@G@@C^@AB!C8K@@A/,0@F@/,0A]2CC@AB!T8@@@#H8@@@[G^@AB!C8K@@A/,0@F@C@@ACW'=@@@ILY )@@G@@C/@ACW/,0AG?C8@AMC@@ACW'=@@@ILZ )@@G@@R @AD,C/@ACW/,0AG?9?^@@@/,0AIHC/@@@M/,0AH?C8@AL9/,0A]8(C^@@E/K@@8VC^^@@EMA )@@G@@C8K@@A/,0@F@/,0A]2C^^@@EGC^@@EH8@@@[C8K@@A/,0@F@/,0A]2CC^@@EC8K@@A/,0AJCMB )@@G@@/,0A]2C8@@@DCM=@@C>'))@@C8@@@I/,0AH(/,0A]2C/@@@ /,0AH(=')C@@/K@@7,C8@AQGMC )@@G@@C8K@@A/,0A]N/K@@71C8@AL*C8K@@B/,0A]N>')^@@/K@@76C8@AL%C8K@@E/,0A]N>')]@@MD )@@G@@/K@@7;C8@AL?C8K@@I/,0A]NC8@AL\C8K@@A/,0A]N>')K@@/K@@8PC8@AL0C8K@@D/,0A]NME )@@G@@C8^@@@%@@AD+:@@AD/K@@8MC8@AL4MF )@@G@@C8K@@D/,0A]N/K@@8PC8@AQHC8K@@D/,0A]NC@@ACW'=@@@IR ^@@ *@@@@^/K@@7C/K@@5>MG )@@G@@C/@@@A/,0AH9/,0A]2C/@@@A/,0AH9/,0A]2C/@@@A/,0AH9/K@@7ZC@@ANK'=@@@IC@@ANSMH )@@G@@'=@@@I @@AP(RAKAAA&'K@@[P'K@@[CGD)@[/G@@9EG8@@@[[@@@[ C/@ACW/,0AG?C8@ANTMI )@@G@@/,0A]8C@@AP(/,0AI2C/@@@)/,0AH(C/@@@C/,0AH?/,0A]2C8K@@AC@@@[ /,0@F@/,0A]2MJ )@@G@@C8K@@AC@@@[ /,0AJC/,0A]2*CD@@@/K@@9CC8@AQEC8K@@G/,0A]NC@@ACW'=@@@IC@0AP(MK )@@G@@G80@@[[@0AP(C@@AB HC@AB:!@@AP(/K@@8?(C@AB:/K@@'RC8K@9S/,0@ID*@@AD4/K@@9.ML )@@G@@/K@@'R/K@@@@CWW@@#=8K@@]=8K@@)/K@@9S[@@@@EC/@ACW/,0AG?C8@AN-/,0A]8REU@@ MM )@@G@@CWD@@@/,0AI2C/@@@)/,0AH(C/@@@C/,0AH?/,0A]2C8E@@@C8K@@G/,0A]N/,0A]2CGE@@^MN )@@G@@/G@@91H^D@@@G8@@@[[@@@[^C8K@@A/,0@F@/,0A]2C@@@[^C8K@@A/,0AJC/,0A]2C@@ACWMO )@@G@@'=@@@I/K@@9SC/@ACW/,0AG?C8@AN-/,0A]8CC@AD5/,0AI2C/@@@)/,0AH(C/@@@C/,0AH?MP )@@G@@/,0A]2C8@APTC8K@@G/,0A]N/,0A]2C^@AD5[@@@[^C8K@@A/,0@F@/,0A]2C@@@[^C8K@@AMQ )@@G@@/,0AJC/,0A]2C@@ACW'=@@@I(@@ABB/K@@4>C/@ACW/,0AG?C8@AMC/@ACW/,0AG?**@A 7MS )@@G@@/K@@;FC8@AL"/,0A]8C^@ABWC8K@@A/,0@F@*?@A 8/K@@'4/K@@;C/,0A]2C^@AEA:8@__"MT )@@G@@/K@@'/H^@AE^G8@@@[1@@@@G(@@@@G @@@@G/,0AJB/,0A]2C^@AE@:8@__"/K@@;AH^@AD"MU )@@G@@G8@@@[1@@@@G(@@@@G @@@@G/,0AJBC@@ACW'=@@@I/K@@1$(@@ABB/K@@;RC8@AM#/,0A]8MV )@@G@@C^@ABBC8K@@A/,0@F@/,0A]2C^@ABC/,0AI2/,0A]2/K@@;TC8@AM /,0A]8C@@AEA/,0AJBMW )@@G@@C/@@@//,0AH(C@@AE@/,0AJBC@@ACW'=@@@I/K@A^A*@@ABE/K@@/](@@ABF/K@@;?C@)AB$MX )@@G@@=8)@@^/K@@/]C0@ACO)8@@@[[0KACOC@@AA%T8@@@W[@@AB2C8KABS&;K@@WC8@AA?C@)AA:MY )@@G@@[@KAA0[@)AA1'=@@@#*4@AA\'^@A YC@KAA%C@)AA:C80@@A[^KACS[@)ACT[?0ACOG@K@@IMZ )@@G@@D8@ACJ'=@@[^/@:@@@C@@AL#'=@@@I/KF@@@COA)@@/!7@@@CWA@@@CSA@@@/!0@/ C8G@@@NA )@@G@@;G@@@=W8@@8KC8?@@@C8H@@@/\K@/VC8)@@:')]&HH;G@@@=W8@@@/C8?@@@C8H@@@/\K@/VNB )@@G@@C8)@@:')]&HHC8?@@@C8V@@@;G)@@=W8)@@EG8)@@0')]&HHC8\@@0')]&HH/KH@@@C8G@@@NC )@@G@@&'0 AM?8@E<@/K@@/*H8@E<@&'0 PM;G@@@=W8@@8KC8?@@@C8H@@@/^)@/,C8)@@G;G)@@=ND )@@G@@W8)@@E/@)@/3G8)@@0')]&HHC8\@@0')]&HHC8)@@:')]&HH;G@@@=W8@@@/C8?@@@C8H@@@NE )@@G@@/\K@/VC8)@@:')]&HHC8?@@@/\K@/VC@@@@F;C@@@M/K@AIQ;C@@@M+8@_@@;GK@@0/\K@/VNF )@@G@@C8)@@/')]&HH+8@@_@;GK@@%/\K@/VC8)@@/')]&HH+8@@@_K8K@[@/\K@/V/KF@@@;C@@@MNG )@@G@@+8@@_@;GK@@%/\K@/V+8@_@@;CK@@FC@X@"(C80@@^;)K@@A+8K@@_')]&HH8#0@.U+8@@@_NH )@@G@@K8K@[@/\K@/V/KF@@@AE1@@#;C@@@M[@@@[[+8@_@@;CK@@F9?H@"(/,0AIHC8)@@ ')]&HHNI )@@G@@C@K@[[+8K@_@;G)@@%W8)@@E/@)@.2G8)@@0')]&HHC8\@@0')]&HHC8)@@,')]&HH+8K@@_NJ )@@G@@C8I@Y?C8K@@ RE1@@# C[@@#/K@AJC;C@@@M+8@@@_C8!@Y?;G)@@=W8)@[=N@K@@J/\K@/VNK )@@G@@C@)@[[/\K@/V+8@_@@;GK@@0/\K@/V+8@@_@;GK@@%/\K@/V/KF@@@;C@@@M+8@@@_C8!@[@NL )@@G@@!8)@[=H8)@[=/K@@"^;C@@@M+8@@@_C8.@[@[C1@@#;C0@@]C@)@@GCC[@@#T8@@ !G8J@@[NM )@@G@@;G)@@G;C0@@YG@I@_DG8J@@ACCL@@# C[@@#>8K@@[=8K@@#/K@@"&?8)@@#H8@@@[;G@@@=NN )@@G@@W8@@@BC@H@_#C8KDAY/K@AIH JAN UARY FEB RUARY MAR CH APR IL NO )@@G@@ MAY JUN E JUL Y AUG UST SEP TEMBER OCT OBER NP )@@G@@ NOV EMBER DEC EMBER @@@SUN@@@MON@@TUESWEDNES@THURS@@@FRI@SATUR@@@@@@NQ )@@G@@@@@@@Z@@@@@;@@@@[U@@@@[8@@@@]R@@@@]5@@@@#O@@@@#3@@@@^L@@@@^0@@@@ I@@@@@@NR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@5+@K7@@@___@@@___@@@___NT )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___NU )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___NV )@@G@@N;@[@@D@KAAC^#@A#./,0@I+[^@AKN**@A 7/K@@PR(C@AAN/K@@LMC9)AK.C@@ABDCWW@@#NW )@@G@@>8K@@[/K@@TDCAG@@^[[)AE;C9)AK_/,0@G4/@@@TDC /@@^[[)AE;/,0@G2/@@@TDC8W@@#NX )@@G@@[ 0AAN[A@AK/[CKAAOC8@@@[/,0[ 3/K@@TY^30AKNR9KAA3R9)AA?R90ASSR'@AS[[P@@ [[)AK-W9@@@^C8?@E)C80@E)T9@@@^T9K@@WNZ )@@G@@K@@@@L[C6@@A[C6@@^[^&@@A[[@AK[ C@@D[ B@@^[ S@@^C9@@@SOD )@@G@@C9K@@G[D$@@^[D8@@^ @@AQ. ^@AR [[@AR[[ KARDG[@@@KG[K@@L[[B@@A[[S@@AT9@@@WOE )@@G@@[DB@@D[DC@@D9* @@@9*A@@@C8)AK$C80AK$*?@A 89*)ARIN'K@@1(^@AD$/K@@NSC8K@@@OF )@@G@@C@)ABGG8)@@LW8K@@M/,0@I%N 0AD$RC)AD$[^@AKI^70AKJ8L0@M;C^Y@@#C^@AKI/,0@JAOG )@@G@@C80@@@CD]@@#*?@A 8GD]@@^C8+@@@H8)@@BC[K@@KG9@@@LW80@@M[^"@@#[@)AD1C@I@@^OH )@@G@@T8@@@^C8K@@RH9K@@[;(K@@MG@@AA_(@@@@JC9K@@[[0W@@@[[W@@[[@/@@]/,)@Q^/,@@9\OI )@@G@@C@)AD1RC,@@ 8L0@M8 4@AKJ/,0@JORC)AD*/K@@NWC@@AD1RC?@@ (@@@@]/K@@O:C9]@@@OJ )@@G@@H9@@@B[[@AD1*?@A 8/K@@OT*@]@@^/,0@EICDM@@[*@]@@^/K@@OC>9KK@@/K@@N!^:0AKJOK )@@G@@/,@@P6[[KABX/,)@Q^/,@@9\(*@AKJ/K@@NUCD@AD?C80@@@%9@@@[/,0@EI/@0@O:CW]@@]OL )@@G@@^:0AKJH8@@@^G@@AD\C^?@@@CK"@@C=80@)@/K@@O[=80C@@=80K@@/K@@OFAC)AD1*0@AKJOM )@@G@@/,0[]4RC)AD1/,@@P6 0@AKJ/K@@N!>9KK@@/K@@OI/K@@N6/,@@P6(@@ABX[[KABX^30AKJON )@@G@@/,)@Q^/,@@9\/,0@EI/@0@OQ(*@AKJ/K@@OI/K@@N6 0@AKJ/,0[]4/K@@NUCC]@@[>8@K@@OO )@@G@@/K@@O$C@0AB@C@KAK-C8@@@^^\0AKJ[@KABX[@Z@@@[WJ@@@G8@@@[^:0AKJ[@Z@@][WJ@@]OP )@@G@@/,)@Q^/,@@9\/,0[]4/K@@NU/,@[]9C^0ABB/^0@O8C4KACRG8K@@]C@@ABFG8@@@[[@@ABFOQ )@@G@@[4KACR*4@A 6/K@@O8C@@ALH'=@@@I[^0ABWC@KAB]CC)AD?;*)@@[C[@AK+*?@A 8C8)@@^OR )@@G@@C8@AA?[^)AB1C@0AB@C@)AA:H[@@@IG8)@@[[CW@@^[^/@@^[@?@@ '=@@@#*4G@@#'^@A YOS )@@G@@[[@AA%C[0AB4C80@K7>90@@[(0@AKNC80@WIC8K@@@C@@AL+'=@@[DC8Z@@@C@@AKH'=@@[DOT )@@G@@&;)@@^Q;)@Y5C8K@@@C@@AL<'=@@[DQ9)@Y5D8K@E)/,0@I>K8@@E)[C@AKQC@@AB [^KAKIOU )@@G@@RC)AD*?C@AB?CC@AB?;S)@@GC8@@@=H@@@@J[CH@@^N;0@@@/,6@H[/K@@TMN;0@@[/,)@RZOV )@@G@@C^@ABC&B@ABB(@@ABBD8@@@@/,6@H2/K@@TM/KA@ \CW]@@]L8@@@^;*K@@[C[KAK-G@KAB@OW )@@G@@CC2@@[C@)AD&[[X@@@[WH@@@%@I@@^/KC@@@>80@)@^\0AKJ/KC@@@C +@@#KD+@@#C80AK=OX )@@G@@ ^@AKK*?@A 8/K@@QICC+@@[=8)@)@/K@@Q(/K@@QK*0@A 7/K@@Q8KK@@PD )@@G@@/K@@RL/K@@RZ:W\@@]/K@@RYC^_@@]G@0AA_/K@@RLC^M@@^&;!@@@GCM@@^H8K@@[;?K@@MPE )@@G@@:8KAL=C8K@@[[@Z@@][@J@@[A^)AKPAA)AK%*?@AKJ/,)@5YR^)AKP(C]@@ /K@@S1RC2@@ PF )@@G@@AC0AKPC8#@@@0@G@@@/K@@R!CCG@@@/K@@R(H8@@@#CY?@@#R9G@@@=')@@)/K@@S?=')@@]PG )@@G@@/K@@S%=')@@[/K@@R9G')@@)[Y?@@#/K@@S?>')@@^/K@@SAC@@ABFG8@@@[[@@ABFH')@@^PH )@@G@@[Y=@@#*4@A 6/K@@SA9?^@@@9*@ALIC@@ALO'=@@@I*@#@@^**@A 7/K@@SV0@#@@^/K@@S?PI )@@G@@C^3@@^ ^@AKK/@0@S%R9Z@@@R9_@@@CC @@@C^P@@@*@@@@G[^W@@@*@@@@H[CH@@@R9KAK=PJ )@@G@@C^_@@@/,0@8R/^0@SI/K@@S%*C#@@]/K@@S)*?@A 8(^#@@@/K@@S?RCO@@CC,=@@D>')@@)PK )@@G@@=')@@K^<0AKJ/,@@T&(^^@@F/K@@S?/,)@X3/K@@Y5C8@@@)[4#@@^CC@AKP )@AKJR^/@@#PL )@@G@@*@@@@#/K@@R$RA)AK%*?@AKJ(C@AAN/KE@@@RC0AAO&;)@[@Q;<@@@ND@AANR @AANRAKAAOPM )@@G@@[@)AKR^B0AKO @@AKM&'K@@[8L@@T[/KE@@@N9K@@# @D)@^C]D)@@A[@AK(/,@@23O9@@@[PN )@@G@@8LK@T#/K@@S_ C@AANC@@ABFG8@@@[[@@ABF*4@A 6/K@@LMC@@ALD'=@@@I/K@@LMC@@ABEPO )@@G@@G8@@@[[@@ABEC@@@@H(@@@[JC@@@@IN;0@@[/,0A )9*KALVC@@AL-'=@@@I/K@@PGC@KABEPP )@@G@@G8K@@[[@KABE/,0A >[@KAK4C@@AK9'=@@@I/K@@PGC^@AKNCWO@@ECC0AKPCB)AKP(*@A 7PQ )@@G@@*?@A 8/K@@VV*?@AKK ^@AKKC84@@# ?@AKK:^0AKK/KC@@[[^KAKO[CKAKO/,0@JA[^0AKKPR )@@G@@;I)@[C;J@@[CC8K@@@*CJ@@[C8K@@[%B\@@]G8K@@]')HAL>C^_@@@/^0@T9C;0@@[C^0AKKPS )@@G@@9;@@UE*4@AKJ/K@@UM/A0@UM/BK@UM*?@AKK/K@@UM*CJ@@]/,0@V=C^_@@@/^0@UE(4@AKKPT )@@G@@/KC@@[ 4@AKK/KC@@@:B\@@]/,0@V=C^_@@@/^0@UMC;0@@@(4@AKJ/K@@U=/#@@UIC^0AKKPU )@@G@@H;@@@[*8@@@@C^_@@@%B\@@]*CJ@@[/K@@UX/,0@V=8A@@UX/K@@UI&80@@[C;0@@]8 0@U*PV )@@G@@/K@@U"C^KAKK*8@@@@C^X@@@:B!@@](CH@@[/K@@U%N@0@@HC^0AKKQC.@@[:B\@@]/K@@U'PW )@@G@@C^Z@@]CYX@@]C@#)@@/G@@U'%]W@@^/K@@U5/,0@V=C^_@@@C@K@[#/^0@U08 0@U%8AK@V@PX )@@G@@/K@@VJC@@@@UC^0AKKCYW@@]*8@@@@C^_@@@%B\@@](CJ@@[/K@@V^QC_@@[C@N)@@/GK@VIPY )@@G@@%]X@@^/K@@VD/,0@V=8AK@V^8A@@VL/K@@UIC;0@@@C^0AKK*8@@@@C^_@@@%B\@@]*CJ@@[PZ )@@G@@/K@@VO/,0@V=8A@@VO/K@@UI[^KAKO[CKAKO/,0@JAC;0@@[CC\@@]/,0@V>C^\@@@/,0@V>QA )@@G@@/KC@@@CC\@@]8#)@V\/KF@@@>9K@@C^30AKK/-K@V0/<;@@@(0@AKK^7_@@^ 0@AKK/KF@@@QB )@@G@@&;)@@[C!Y)@[=9K@@)/K@@V$CWI@@@R KAKNO9W@@@>9K@@^%;0@@[/K@@W>>9K@@]/K@@WEQC )@@G@@G9K@@^C^Y@@@C H@@@(*@A 7%9@@@CK80)@@%9@@@C/K@@W C^X@@[C9@@J"[!Y@@@[D @@@QD )@@G@@[^P@@@^70AKK/K@@V$=9K@@C/K@@W-C8K@@@(4@AKJ(?@A 8/K@@WP>8@@@[C8K@@[')HAL7QE )@@G@@')HAL5/K@@WX%B\@@]C8K@@[')HAL9!@@@@K/K@@WX=9@@@[=8@@@[')HAL5C9J@@@G9K@@^QF )@@G@@C^Y@@@/K@@W C9@@@][^5@@@[D @@@/K@@V$*@ @@@/K@@W;C^Y@@@=9K@@]/K@@W1=9K@@CQG )@@G@@/K@@W-C^J@@][^P@@@CWW@@][CP@@@/K@@V$C H@@@C !@@[CCH@@]%9@@@CC ?@@@[ >@@@QH )@@G@@C9)@J_:9@@@C[D>@@@/K@@V$%;0@@]/K@@V$(C @@@/K@@X C9@@@]%D @@@/K@@V$C^P@@@QI )@@G@@:B!@@]/K@@V$C I@@@C@@AL;% @@@[@ @@@/K@@V$8M@@XG/KF@@@C^@AL"!C@AL"/,)@YTQJ )@@G@@K8@@@I[^KAL"(@G@@@/KF@@@H8K@@]Q'?@@@Q'X@@@/KF@@[C80@@@/K@@X=C80@@K/K@@X=QK )@@G@@C80@@G/K@@X=C80@@D/K@@X=C80@@#/K@@X=C80@@]/K@@X=C80@@[C@@AL/C=)AKJC8K@@@QL )@@G@@;=I@@@L@)@@J/G0@X,;^J@@@[@@AL/[=0AKJ/KF@@@C@E)@@G80@[C;^J@@@H80@@=/K@@X:QM )@@G@@0@@AM#'=@@@A0@@AMD'=@@@A9?[@@D(@@@@G9?[@@]&;)@ KQF)AKQ&')@@[&"K__"K8)@ KQN )@@G@@9*@AM@[@)AM^9*@AMA[@0AMECO4@@HC@^@@EC^=@@F[^0@XR;G@@@S;CK@@GT8)@@WL8)@ KQO )@@G@@&;@AMA[@KAM [@0AL.Q;@AM@;G)@@=W8)@@I[@@AL_N]@@@I1@@AL./K@@YSC8K@ KG@KAL.QP )@@G@@[CKAM^'=@@@[C@@AL_C8W@@@0@@AL./K@@Y:;@@@@MC8)@@GG@!@@ C^/@@^[@?@@ [@@AL_QQ )@@G@@C@)AL. @J@@@L8)@ K[@0AL./C0@Y%/@)@Y:[C?@@^'=@@@[C8H@@@0@G@@#'=@@@A*4G@@#QR )@@G@@'^@A YC^H@@^KCH@@^[^@AL"[CKAL"/KE@@@CW^@@DCW=@@E+8@@__+8)@__N])@@HN]0@@JQS )@@G@@C8K@@]/,0@,E9*0AKUC8K@@[/,0@,E9*0AKW/,0@XE/K@@8)@)@/K@@Z7[5N@@^/K@@Z9*4@AKJ/K@@Z7C0)A 7(?@AKM>8K@@[C4)A 7/^)@Z9QX )@@G@@C;)@@@[]@AK( @@AKG @@AKL @@AKHC[9)@@/,0@XC]@@@N/K@@-D/B)@->/,@@\T*4@AKJ/K@@0Y*4@AKN/,@@0?RE )@@G@@(W@AKH/K@@--C!KAKHC^0AKH:9K@@^C9K@@@/[K@-TC8Z@@@:9K@@[CXH@@#C8@@?W:9K@@]RF )@@G@@C8@@!+/,/@@@C[0@@O;[0@@U)90@JF/@0@-))90@['*4@AKHG'@@@[;+@@@U/,@@23C@@AK(RG )@@G@@G8@@@[[@@AK(8L)@Z9C8E@@@?8D@@@/K@@Z#/K@@Z[^<0AKLC'@@@[*8@@@@C'@@@]/,0@XZRH )@@G@@C8)@@KC'KJ__/K@@-9^<0AKLC'@@@[*8@@@@C'@@@]/,0@X/B)@)8KK@@/K@@++*?@A 8/K@@+.CWW@@]9?)AD+%@Y@@^:@Z@@^/K@@+.9?)AD=RL )@@G@@%@Y@@^:@Z@@^/K@@+.C@@AN"C@K@@^C@)ABFG8)@@[[@)ABF*4@A 6/K@@+?9?!@@@9*?@@@RM )@@G@@'=@@@I/[@@8)@C@>80@C@/K@@+=C9@@@@/K@@+[@KANYC@@AN&C8O@@@RQ )@@G@@/K@@+=*^@AAR()@AKJ/K@@S?C8O@@#[CKAARC^0AARN^KAAQ'K0AQ&CCKAAR2^Z)@#/K@@<7RR )@@G@@CCJ@@@R8.@@@ @@@@OC^Z@@]N@0@@J[@@AK(/,0@,E[@0AKRC@0@[#N80@<-=[@AQ=/K@@<=RS )@@G@@C[@AK(;(@@@MGD@AAR/K@@3@(?@A 8(^H@@@/K@@S?C^X@@@/K@@<)C]K@@O!@K@[E/K@@&KRT )@@G@@;@K@@[K^O@@DC@0@@HCKY@@@0@@@@JCGY@@@/GK@*WCXH@@#>9@@[@/K@@>DC@.@@^(W@AKGRU )@@G@@/K@@=T>9@@A@/K@@=P9!H@@@C]KABF9(@AP1C@@AP/'=@@@IG'K@@[[]KABF*4@AKG;C0@@MRV )@@G@@ W@AKG/K@@)6>9@@^@=9@@]@/K@@)6()@AKL/K@@)6[^0AMH;C0@@MC'0@@^(W@AKHC'0@@ RW )@@G@@[^0AKH[,0AKHC@.@@^*W@AKHC@0AMH(@@AD-/K@@)6C^)AD-[@K@@WC^X@@#/@K@)6C@@@@HRX )@@G@@0@G@@@/K@@=3CCG@@@/K@@=\H8@@@#C@K@@W9?/@@@9/"@@@/K@@>#C^"@@^C'0@@A[@0AMHRY )@@G@@[,0AKHC@.@@^(W@AKH/K@@)6C@0AMH ?@AKH ^@AKH/K@@)6CC,@@^/^)@=6C@.@@^*W@AKHRZ )@@G@@C@0AMH/K@@)6>9@@@[/K@@$,*W@AKG/K@@?ZC?)AKH()@AKL/K@@>P/^)@>N^\0AKH[^KAKHSA )@@G@@*W@AKH/,0@?W=9@@)@/K@@&<(C#@@[/K@@>9@@@^/K@@>.:[)@@#/K@@)6^30AKI:8<@@@SC )@@G@@/K@@>.:^#@@]/K@@)6CC!@@^C^"@@@/]@@)6C@@ABFG8@@@[[@@ABF*4@A 6/K@@)69!H@@@SD )@@G@@9?^@@@9(@AN_9*@AOFC@@AOH'=@@@I/K@@)6^70AKI(@@@[ %^#@@]^30AKI/K@@)69?H@@@SE )@@G@@9!^@@@C^3@@]9*@AOICWJ@@]9(@AONH8@@@^G@@AD\C@?@@@9!I@@@9(@AOUC@@AOW'=@@@ISF )@@G@@/K@@)9C@@ABFG8@@@[[@@ABF*4@A 6/K@@)99!^@@@C@@@@H/,0A >C@@AQ$9(@AP_9*@AQ#SG )@@G@@C@@AK(/,0A >[@KAQBC@@AQD'=@@@IC@@AQL'=@@@I/K@@)9C^3@@]C^!@@#CXZ@@] @@@@QSH )@@G@@C^,@@@/@)@$#CC"@@[/,0@$$/K@@$H/A)@$PN^"@@[C')@@[D'0@@[CC"@@@C^J@@]1@I@@]SI )@@G@@/K@@&/^30AKI:@0@@#/K@@&/C'0@@@:^#@@]/K@@&/N^"@@]C'0@@[%^!@@#/K@@&$/])@&]SJ )@@G@@C@0@[#/]0@)6/I0@>./K@@>0C^!@@#CC"@@[/^0@&%(C#@@[/K@@&?CC"@@@C^J@@]CXW@@]SK )@@G@@CC3@@[/K@@&%CC3@@[/@0@&/CCI@@@C^G@@]CXW@@]/,0@$$/K@@&//K@@&?9?.@@@C@@@@VSL )@@G@@/,0A >9!O@@@C^#@@][CKAP[CWW@@]H8K@@^9*0AO/G@KAD\9(KAP#C@H@@@9?/@@@9*0APASM )@@G@@C@@APC'=@@@IC@0@[#/K@@)6&;0@@[C^J)@@:[W@@^/KF@@[1@J@@@/K@@$*/KF@@@C[H@@@SN )@@G@@:[@AQ*/K@@*Y%[@AQ(:[@AQ%/K@@*>:[@AQ:/K@@(*%[@AQ?:[@AQ!/K@@(AC[X@@[;H@@@MSO )@@G@@%9@BDI/K@@*[:[KAQ,/K@@([:[KAQ\/K@@(#^30AKI[@KAE;9,)@@I/,0@G0C@/@@^/^@@)6SP )@@G@@C@KAE;9?)@@Q9!H@@@G8K)@@0@@@@J[^Y@@@1@@@@J[CY@@@%[@AQ0:[@AQ1/K@@)9C@@ABFSQ )@@G@@G8@@@[[@@ABF*4@A 6/K@@)99?=@@@9(@AOI9*)AONC@@AOX'=@@@I^30AKI/K@@)9(?@A 8SR )@@G@@/K@@*\C^0AD"C^@AEA!@@AK(C^0AE^/K@@)6(?@A 8/K@@*\C^0AEA?@0AK(C^0AE@%[@AQ(SS )@@G@@/K@@)6)@0AA#C@0@@K/K@@)6C^#@@]C@KAD\H8K@@^GWW@@]C^H@@@C^/@@E:[@AQ*/K@@)6ST )@@G@@GC/@@ECK?@@CH80@@[=8)[@@CC.@@@%[@AQ(/K@@)6)@0AA#C@0@@K/K@@)6^30AKG*8@@@@SU )@@G@@^70AKGC'K@@@/K@@)9C8K@@EC8)@@U:4KAKL%0)AKL/K@@(XC?KAKH?8K@@ /K@@(RC@0@@NSV )@@G@@QB0AMHC'0@@^%8K@@ C'0@@@C[0@@J[,0AKH%8K@@ ^@AKH;D@@@Y:9@@@I^70AKH:9@@@DSW )@@G@@^30AKH/K@@)9C@@ABFG8@@@[[@@ABF*4@A 6/K@@)99?=@@@[[@AO?9*)AO5C@@AO7'=@@@ISX )@@G@@/K@@)9C^#@@]CW/@@](?@A 8/K@@)6C^@AEAC80@@^?@@AK(C80@@ /K@@)6!@K@[F/K@@%&SY )@@G@@K^KAKNC])@@H*W@AKG/K@@!>*)@AKL/,0@!WC^"@@@C9@@@CCXY@@@/HK@%@?9K@@C/K@@%KSZ )@@G@@/K@@)\% J@@@/K@@%^C^_@@[/K@@)\C9@@J":9#@@@/K@@%HC^#@@]CDW@@[>9KC@@/K@@%HTA )@@G@@%^J@@]^30AKICCJ@@]C^/@@@/K@@)\CDY@@@(?@A 8/@0@:=/@0@:G%9K@@]/K@@)\QFJ@@]TB )@@G@@&;@@@[*?@A 8>8K@@[/K@@%WQBJ@@@C!G@@@:WW)@@/K@@%-/-@@%W/K@@?IH8@@@[)9@@@^TC )@@G@@C^/@@@[!W@@@/K@@)\*?@A 8/K@@:GC9K@@[=8K@@[C9K@@]C9@@@^C8^@@#CC?@@]%5I@@@TD )@@G@@:5Y@@@/K@@%6C^G@@@/^@@%! @@@@J @@@@L/K@@:=*C#@@[/K@@%.*CG@@[/K@@:@C^/@@[TE )@@G@@G80@@[/K@@:KC^?@@]CCN@@[/K@@:]C^<@@]CCW@@[CW"@@]G@0AD\H80@@^&;K@@[C@\@@@TF )@@G@@:@!)@@/K@@%'1@H@@@/K@@:B/K@@%1C^3@@[=8K@@[CC3@@[G80@@[C@@ABFG8@@@[[@@ABFTG )@@G@@*4@A 6/K@@)\C@@@@Q/,0A >C@@AQ29!^@@@9*@AQ#9(@AP_C@@AK(/,0A >[@KAQBC@@AQDTH )@@G@@'=@@@IC@@AQL?])@[FC@@AQQ/K@@?D!9K@@^C9K@@@C@@@@Q/,0A >C@@AQ29?4@@@;*K@@MTI )@@G@@Q;K /[K@:09*@AO/9*0AP#/K@@:29*@AOY9*0AO>CW@AKR/,0A >C8<@@@[CKAP[[CKAO9(@AQR[@@AQXC@@AQ<'=@@@ITM )@@G@@/K@@)9^70AKGC'0@@^*8@@@@C'0@@@(?@A 8/K@@?:C X@@^C80@@@*4@AKG/K@@!JC^@AEATN )@@G@@C80@@^?@@@@LC80@@ /K@@!JRA#@@]C^H@@#CXS@@]>9@@)@/K@@!@&;)@@[*CG@@[/K@@?5TO )@@G@@C^G@@@/@@@?/QF?@@[C@")@@/G0@?3%[Z@@^/K@@?6CCG@@@/K@@!@C^!@@#CCI@@@*CI@@[TP )@@G@@/K@@!O*0@AKGC9K@@@RAG@@]CW8@@]C8J@@@H8@@@^G@@AD\C@G@@@CKG@@C(0@AKG>8@@@)TQ )@@G@@*8@@@@C9Z@@@:@0@@LC80@@@ W@AKG/]0@)6[^0AKH[,0AKH/KF@@@9?4@@@9!X@@@9*0APLTR )@@G@@9(KAPGC@@APR'=@@@IC80@@@/K@@!J*W@AKH/K@@!+C'0@@][^KAKH[,0AKH/KF@@@^70AKGTS )@@G@@C'0@@^*8@@@@C'0@@@C^#@@]K^KAKNCXW@@]1WI@@@/K@@!2C^I@@@(?@A 8/K@@!@CC?@@]TT )@@G@@C Y@@@H9K@@[/K@@?[@AQ=Q;/@@@/KF@@@C@K@@K;@@@@L;C@@@N[^KAKMC^!@@]CCX@@]TZ )@@G@@C H@@@%^)AKP/K@@,.*?@A 8/K@@,%/K@@,?CWY@@]^\0AKM[WKAKM/K@@,*C[@AQ=%8K@@[UA )@@G@@:8K@@]/KF@@@C@@ABFG8@@@[[@@ABF*4@A 6/KF@@@C@@@@HR8;@@@/,0A >C@@AQ29!^@@@UB )@@G@@C[)AQ39*@AQ#9(@AP_[[)AQBC@@AQD'=@@@IC@@AQL'=@@@IC[@AQ=/K#@@@C4@AKL/IK@0EUC )@@G@@!8@@@(@@@[D/K@@0EN]KAQ4C@@ANR'=@@@I/K@@0DC8K@@[;*W@@@UD )@@G@@C[KANE!]K@@H/K@@\7(4@AKN/K@@0EC8K@@JK8K@@#,8W@@@/K@@0EC0KAKL/@K@\4%8K@@MUE )@@G@@/K@@0E?]KAQ5/K@@0EC[KANDH8@@@[G0@AKL'^@A :[O)AM"C0@AKL'^@A :[C)AM"9?=@@@UF )@@G@@C@@AK(/,0A >[@KAM/9*)AN[C@@@@P/,0A )9*KAM8C@@@@L'=@@@I8MK@0DC4@AKLC0KAKLUG )@@G@@;+X@@@<[0@@P(4@AKJ/KC@@@C8W@@@C?@AKI:8K@@=/K@@0P(?@AKL/K@@0V(0@AKI(4@AKIUH )@@G@@/K@@0V*0@AKLG8@@@[G8@@@[ C@AKI[?@AKI/KC@@@C@)AK(C?@AKI;G)@@=W8)@@MD8K@@#UI )@@G@@;*0@@[G^)AKI;@J@@];@Z@@]N@)@@H<@I@@@ ?@AKI[@Y@@@/K@@-DC'N@@@*4@AKJ/KC@@@UJ )@@G@@:'K@J"/KC@@@C[@AD"H9@@@[C[KAE@C@)AE^H8)@@[C@0AEA,@)AK(\[@AK(/K@@1CC;)@@[UK )@@G@@C@@ABFG8@@@[[@@ABF*4@A 6/K@@--C@@AK(/,0A )9!^@@@9*@AMY9(@AM+C@@AM$'=@@@IUL )@@G@@/K@@--+]@AQ6/AS@@@+]@AQ7/]S@@@;IK@[]%')@@B:')@@V/KC@@@%')@@Z!')@@8/KC@@@UM )@@G@@+]@AQ8;EK@@U!'K@@I/KC@@@[]K@@R+'@J__,[@@@P\@)@@P/K@@2N/AK@1>+]@AQ9/]S@@@UN )@@G@@%')@@C:')@@R/K@@2A:')@@N/K@@2A/KC@@@!'K@[K/K@@1\!'K@@)!'K@[@/K@@1,?')@@CUO )@@G@@/KC@@@C@^@@@:@@AQ'/]8@@@+]@AQ9/AK@1;%')@@^:')@@A/KC@@@%')@@&:')@@$/KC@@@UP )@@G@@!')@@M?')@@R/K@@2#/KC@@@:')@@ /KC@@@%')@@*:')@@(/KC@@@%')@@0:')@@1/KC@@@UQ )@@G@@+'@@__:'K@ /KC@@@9?^@@@:@@AQ;/KC@@@[@@AMSC@@@@O/,0A )9*KAMIC@@AK(/,0A >UR )@@G@@[@KAMPC@@AMU'=@@@I/KC@@@%')@@0:')@@1/K@@2X%')@@E:')@@F/K@@2X%')@@I:')@@JUS )@@G@@/K@@2X/KC@@@%'0@@[:'0@@]/K@@1\!'0@@C/K@@1\CW^@@#=8@@@C?'0@@^/KC@@@/K@@1\UT )@@G@@/V@@@@/K@@ZP/K@@ZR/,0@XR/K@@-!/K@@-2/K@@-5/,0@XVCWKAKSCWKAKU/,0@XR/,0@XRUU )@@G@@N88@@@()@AKJ/K@@3V&#@AK(C^0AARQ;#@@@C[@@@G/@0@3G'K0ASGN^KAAQN@)ASH9[J)@#UV )@@G@@/K@@3G*4@A 6/K@@3CC@J@@[/,0A )9*KAR5/,@@9)C@@ASE'=@@@IC8#@@@)8@)@@C]J@@[UW )@@G@@[^Z@@@C^0AAO/@0@3V'K0ASINCKAANN@)ASH9[J)@ /K@@3V*4@A 6/K@@3S/,@@9)C@@ASFUX )@@G@@'=@@@I[]J@@#C]J@@^G]@AK/R]@@[#C?KAKRC[KAK(:8K@@^/K@@5N(?@A 7/K@@30*?@A 8UY )@@G@@/K@@3%C^0AKRC^_@@]CDJ@@[=9@@)@/KC@@@/K@@30CW0AKRC1@A 7=80@@[:8K@@ C5@A 7UZ )@@G@@/ C@@@:8K@@ /K@@5KT8K@@^R9!AQ/C46@@[R 6@@]C9J@@@(^A@@]/K@@4&C8#@@@:CA@@]VA )@@G@@%DR@@[/K@@4-CCQ@@@G9K@@[[]H@@@G8K@@[[DR@@[[CQ@@@AC6@@]CDQ@@#T9K@@WH@K@@LVB )@@G@@%^Q@@@/KC@@@C8@ASS*@@@@JC8@AS< 4A@@[0@G@@#'=@@@A*4G@@#'^@A YC G@@^C[Q@@[VC )@@G@@[^W@@^[[W@@ '=@@@[C[W@@AKDQ@@#[[?@@A[ A@@@[DA@@@[[Q@@[[46@@[ ^A@@]R Q@@#VD )@@G@@/,0@8R/KC@@@R Q@@#N@)@@O*@@@@B/,0@8RC]@@[]/,0@9TR9/@@@C?KAKRR[XARG*8 @@@VE )@@G@@/K@@4!R9N@@^ 4A@@[C@Q@@[A Q@@#T8K@@WGCQ@@@H^Q@@@[ R@@[[46@@[[@R@@][5B@@]VF )@@G@@A 6@@]/K@@3.R9)AQ/C^Q@@@C46@@[R 6@@] @A@@]%CQ@@@/,@@4DO9)@@^C^Q@@@R 6@@]VG )@@G@@ @A@@]%CQ@@@/,@@4DC8@ASS*@@@@JC8@AS<0@G@@#'=@@@A*4G@@#'^@A Y/^'@@@O9)@@^VH )@@G@@/K@@4'R9)AR@C9@@@ /K@@5PR9)ARCC9@@@"R 6@@]C46@@[*8B@@@%5B@@]/K@@4-%8K@@^VI )@@G@@/K@@39C8@@J"/K@@3'C@0AA_/@0@5?/,0@9TC^KAB([@/@@][^W@@[G^KABY^7/@@][CW@@[VJ )@@G@@R9KAK=*?@A 8R9KAK$R9/@@@/,0@8R ^@AKOR80@@@C'@@@@*?@A 8C'@@@][,@AKRCE@AB%VK )@@G@@/]@@5'R @AB%A[@AK(/,@@23O9@@@[C8K@6\/,0@IFCE@AB:/]@@6]R @AB:A[@AK(/,@@23VL )@@G@@O9@@@[C8K@7C/,0@IDCE@AB?/]@@6ER @AB?A[@AK(/,@@23O9@@@[C8K@7U/,0@IF(C@AB!VM )@@G@@/KE@@@C4KACRR'K@@@=8K@@^O'K@@C*)@A 6O'K@@^C8(ARMC'DAROR @AB![@)AE;/,0@G4VN )@@G@@/@@@6+C^W@@^[]@AE;[^KAR+/,0@G4/@@@6+C^W@@^[^KAR90@C@/K@K6\/,K@8BCAG@@^=90@[@C]G@@^>90@)@/K@@7@C^?@@#VQ )@@G@@CAI@@[;]@@@M0@I@@]GAI@@]/K@@7 ;]@@@M>90@@^/K@@7 CC?@@^GAI@@@;]@@@M/,K@8OVR )@@G@@/K@K6\/K@@@@CX/@@#=90@@[>90@@]/K@K7CC^/@@#:80@@C/K@K7C/,K@8BC8W@@#CC.@@]VS )@@G@@CAH@@[HAJ@@@G'@@@[;%@@@MGAJ@@@/,K@8O/K@K7C/K@@@@CX/@@#>90@K@/K@K7U/,K@8BVT )@@G@@C]@ASJ/,K@8O/K@K7U/K@@@@CX/@@#>90@@^/K@K7+C^/@@#N[)@@G=90@)@/K@@7"C8@AR+VU )@@G@@/,K@8BC@@@[AN;)@@@CAG@@^C^W@@#C^!@@];%@@@M(?@A 8(CI@@^/K@@77CC,@@^/K@@73VV )@@G@@H8)@@BG]I@@^/,K@8OC@0@[I*@@@[IC^_@@@/@0K7+1@J@@]/K@@7/N#)@@JC8@AR+/,K@8BVW )@@G@@C@0@[ICAJ@@[CCZ@@@/K@@70N[K@@GC]G@@@A[@AK(/,@@23O9@@@[C@@@[ A[@AK(C]G@@[VX )@@G@@/,@@23O9@@@[C@@@[ A[@AK(/KD@@@/,@@23O9@@@[/KD@@@CAB@@[CER@@[RCP@@@R8)@@@VY )@@G@@(@@@@[/K@@9O!A[@@[/K@@8&R8-@@@RCL@@@*@@@@[/K@@8XA 5@@@ CB@@@/K@@8!!E[@@[VZ )@@G@@/K@@8:?EL@@[/K@@9@[E[@@[ACR@@@A 1@@@A^$@@@(@@@@]/K@@9RAD2@@@?EM@@[/K@@89WA )@@G@@R8M@@@R^-@@@C^@AKQA^KAKQ[^[@@@/K@@8!LAM@@[/]:@@@/I:@@@G]+@@][AM@@[[]+@@]WB )@@G@@/KF@@@N[@@@F/,0@9TR]0@[^CE-@@[[AW@@[[E[@@[HAL@@[G]L@@][E?@@[[]W@@]A 1@@@WC )@@G@@ACR@@@[^B@@@AD/@@@R9/@@@A^?@@@(@@@@]/K@@9R[C]@@@/KF@@@A 5@@@ ^B@@@ CB@@@WD )@@G@@AD5@@@/KF@@@C^@AKQ/@@@9YC^W@@@[^KAKQ/KF@@@D8K@@#/K@@I>C@@@@#0@G@@@/K@@9>WE )@@G@@CCG@@@/K@@9-H8@@@#9?W@@@C@@AK(9*KAS@/,0A >[@KAR.C@@@@O/,0A )9*KAR9/KC@@@WF )@@G@@N88@@@/,)@49R]@@[#R8KASSR8)AS/KC@@@/,0@9TN@KAK>WT )@@G@@C9@@@"C[KASRC@0AD1C^KAKPCC)ASQG9K@@[;(@@@G^@W@@[GXH@@]*?@A 8G9@@@ [[KASRWU )@@G@@;(@@@M(@@@@I[@@ASQ[C@ASQG[J@@^*@@@@I[^I@@@[C?@@@[[G@@] ^G@@@ @@AK>/KC@@@WV )@@G@@ @@AK$C 5@@[ @@@@OR90AK$R >@@@CC>@@[C^6@@[(@@@@AC8"@@@CC @@@C^P@@@*@@@@GWW )@@G@@[^W@@@*@@@@H[CH@@@C8 @@@L8"@@@R9Q@@@(?@AKM(@@@@K/K@@.Z[^B@@@AD/@@@R9/@@@WX )@@G@@ ^G@@@CEB@@[H]@@@N?[@AA^/K@@.T/]@@.:!]@AA /K@@.:C@0AA H@0@@O!@0@@KC@0@@KWY )@@G@@H[@@@J![@AA^R9K@@@?[@AA^G@0@@KG8"@@@/,0@9TC9@@@][^?@@[;(@@@Y[C/@@[[[G@@]WZ )@@G@@[^B@@@AD/@@@R9/@@@ ^G@@@CEB@@[H]@@@N*?@AKM/ @@.:*@@@@ !'@J__/K@@.:/K@@/3XA )@@G@@C8$@@@R90AK$[C$@@@L'@J__?'K@@[/K@@"[C@)@@G/,0@9T*@@@@A[CA@@@A ?@@@ CG@@@XB )@@G@@R9?@@@G]@@@N[EG@@[L]@@@P[AW@@[[EY@@[C'@J__HAY@@[G]Y@@][]W@@]K]@AK*A =@@@XC )@@G@@C])@@N?]KATJ/K@@"DC;0@@@/,0[@LC]K@@OR R@@@[]KAK*[A-@@@*@@@@O[E[)@@C4 @@]XD )@@G@@0@ @@]/K@@"N 4 @@]')GASKC8P@@@R X@@@C^@AKQ[^KAKQ[^H@@@*8 @@@/K@@"I*?@AKMXE )@@G@@/KE@@@C]K@@TH])@@TG#K@@QG#K@@OC'0J__/]%@@@?')K@@C]0@@QH])@@R)'0)@@[F#AS0XF )@@G@@[AN&S0G]K@@R/K@@"-C8@ASS*8@@@@C8@AS@@[H >@@[G[)@@L?[W@@C?[W@@BXG )@@G@@/K@@_#C^W@@^C[0@@M![?@@CC[/@@CK@K@@LH@?@@BH[0@@LG[K@@N&;)@@[R'K@_W*?@AKNXH )@@G@@R'K[^8/,T@@@:[K@@M/KF@@@C[@@@L @@@@JW80@@W[@/@@ T80@@W[@/@@BKC/@@^[[G@@CXI )@@G@@'=@@@#(4G@@#/K@@"4C80@@ C[G@@ :4/@@#![G@@A'^@A Y/K@@"4C@>@@]&;)@@[*8@@@@XJ )@@G@@C8)AA/CD5@@[H 5@@[/,K@_W/KF@@@R9)AA?C80@E)CDA@@AH@0@@KG^6@@A&;0@@[N@K@@NXK )@@G@@![0@@KN@K@@KH[@@[[H[0@[[M#")@@[DA@@A/ D@@@N@)@@GC8A@@@0@G@@#'=@@@A*4G@@#XL )@@G@@'^@A YC46@@ 4A@@ N^6@@AN A@@^/@0[@]C[@@[#N^0AK):80@@[/K@[@][ A@@^C[@AK+XM )@@G@@[[A@@ '=@@@#*4G@@#'^@A YN[K@@F/,0@JOR]0@[ N9K@E)^^6@@^^ A@@A^DQ@@AC[@AK+XN )@@G@@/^0[@F[[A@@ C8A@@@'=@@@[C@@@[]G9@@@S[[@AK+/[9@@@9?0@[^/K@@_-C;)@@@C9[@@@XO )@@G@@HD@AKYK9#@@@?9K@@W/J;@@@C90@@WC9N@@@H[0@@K/[0[[KQ80AS0/[K[@(L[K@@NQ8)AS0XP )@@G@@N@K@@N0@@@@MN@K@@LG[@@[[M@M)@@/H)[@(/[)[@5N@K@@MM@2)@@/K@[@5R8)AS,*@@@@VXQ )@@G@@R8)AS\H[0@@L:;0@@]C90@@[N@K@@NG[@@[[M@M)@@C#)@@VC;0@@@&8)@@[P80AS0:9@@@WXR )@@G@@/K@[[KC8@AA?(?@A 8*4G@@ /K@[]::;)@@]*4@AKJ/K@[]:D8K@E)N@0@@F/,0@I%R]0@[#XS )@@G@@R9)AA?C^Q@@A[^A@@AC9@@E)HDA@@AN@K@@KC @AKZ&;@@@[&;K@@[[ A@@^M#H)@@[7&@@ XT )@@G@@/K@[]: @@AK*R9)AA?CD6@@AC5&@@ :9)@@[?90@@W/K@[["C^KAKYC9)@@@C[K@@NW9)@@WXU )@@G@@H[K@@NC8)AA/*@@@@N/,K@_WQ8X@E)C8@AA3P@K@@LC91@@@H9K@@WH /@@^C9)@@@ACKAKYXV )@@G@@W9)@@WC^KAKZC@)AK+C@0@@I:@)AK')@@]=')@@)/K@@PSP80@@#&'K@@[NWN@@DQAN@@D8KK@N./K@@O;CCD@@@'^@@O^ZP )@@G@@8KK@O[/K@@O;C^D)@@'^@@O^/K@@N;/K@@@@CWW@@#>8K@@[/K@@O6=8K@)@/K@@O^C^G@@#ZQ )@@G@@/@@@O^>8K@^@=8K@]@/K@@O^'^@@F00@G@@@/K@@OOCCG@@@/K@@OK(?@A 8/^K@OS'^@@F[ZR )@@G@@/K@@O^CW?@@@=8)@@]/K@@OQCC?@@ C80)@^%^"@@F(@I@@F/K@@OQ*^G@@]/K@@OQN*,@@^ZS )@@G@@[@@AKIQ',@@F&')@@[8K)@O$C^')@@C^Z@@#:^W@@]/K@@O!/,0@GJ/,0@G$C^G@@@8K)@O$ZT )@@G@@C@KAD!/^@@O(C@@AKI/,0@GYG80@C@[W"@@#/K@@O^(*@A 7/K@@O^)8K@K@[W?@@#/K@@O^ZU )@@G@@R9>@@@QEQ@@]C9K@@[(8D@@@/K@@PF&'K@@[CDT@@@C^D)@@>9K@@)>9K@@]/K@@PFC^?@@@ZV )@@G@@:8)@@C/K@@PF'^@@F0'^@@F[>9K@@[/K@@P[(?@A 8/K@@PP;DK@@A/>K@PSQAQ@@@*8D@@@ZW )@@G@@/K@@P[/K@@PSR &@@@*@@@@A/K@@O//#0@MAR@0@@ /K@@N?C')@C@R^)AD:*?@A 8/K@@P8K@@]AC )@@G@@/K@KQRR8/@@#CCN@@[ C#@@[C^!@@[*^I@@]/K@@Q!C[)@@GC@@@@I0@G@@@/K@@Q*CCG@@@AD )@@G@@/K@@Q=H8@@@#CC/@@CC@@@@M%C0A '/K@@Q0C^3@@]%^"@@]/K@@Q3C^X@@@/@KKQR/K@@QZAE )@@G@@*0@A 9/K@@Q9CXJ@@]R^Y@@]:X[@@]/K@@Q0CDX@@[N@)@@HC8K@@A/,0@I%C ,@@^(@@@@LAF )@@G@@[ ?@@^(@@@@L ^I@@^K8@@@ [CW@@]CC"@@]'K0AKZ%XZ)@[/K@@RAC[\@@@;[)@@M)9)@@[AG )@@G@@;[0@@M[[.@@@)9)@@)[!_@@@C^"@@@[C?@@@[^/@@@[^I@@@[CJ@@@C^N@@]/,0@G$C@K@[]AH )@@G@@/K@@Q0C8@@@][C@A#.N#@A#.C@@AD( C@ABY:8@@@[/K@@T@[C@ABY(=@A 6/K@@T@ @@@@VAI )@@G@@C8K@R$/,0@ID[F0AB!/K@@T@/K@@@@[@@AK)CY?@@#>')@@)=')@@]/K@KR$NXG@@D&'K@@[AJ )@@G@@QAW@@D8L@@R2/K@KR$CCD@@@'^@@R98L@@R6/K@KR$C^D)@@'^@@R9/K@@R0/K@@@@CY?@@#AK )@@G@@>')@[@=')@@^/K@@R9>')@@[/K@@R9C]0@@Q=')@)@/K@@SHC^W@@#=')@@)(@@@@H/K@@R9AL )@@G@@/,)@ST/K@@R9G')@@^[Y?@@#G;0@@[/K@@R9C^/@@#CCZ@@@/,)@ST/K@@SPG;0@@[C9)@@)AM )@@G@@[5\@@])')@@^C^_@@@/^0@SI[Y/@@#/K@@R9C9G@@@C8H@@@0@G@@@/K@@SZCCG@@@/K@@SVAN )@@G@@H8@@@#CW?@@#C@@@@K>8)@@)=8)@@]/KE@@@C^!@@]CDI@@[>9@@K@/KE@@@C@KAK)G8K@@#AO )@@G@@(?@A 8/K@@S0%^!@@]/KE@@[/KE@@@(CI@@^/K@@S4CC,@@^/K@@S0[CKAK)C^X@@](CH@@^AP )@@G@@/K@@S'CCX@@^/K@@S6%8Y@@@/KE@@[CCKAK)C^X@@@/^K@S4/KE@@@ @@@@I @@@@JC8K@TSAQ )@@G@@/,0@IF[C)AB%[C0AB? @@@@VC8K@UC/,0@ID(C@AB%*C@AB?/K@@TK(@@AB:**@A 7/K@@TKAR )@@G@@/K@@UOG;0@@[**@A 7(@@AD4H;0@@[(@@@@V ^@AB:[F0AB:/K@@UO/K@@@@CY?@@#=')@K@AS )@@G@@G80@@[>')@C@/K@KTS>')@@[/K@@T/G8)@@[(=@A 6/K@@TXC^W@@#/@K@TXC9G@@@C@@@@HAT )@@G@@0@G@@@/K@@T:CCG@@@/K@@T$H8@@@#CXW@@#C@@@@K=9K@@)/K@@T/C^X@@]CDH@@[>9@@K@AU )@@G@@/K@@TX=')@@^/K@KTSG')@@^CCKAB!G8K@@[[CKAB![Y?@@#/K@@TXH')@C@C@KABFG8K@@[AV )@@G@@[Y?@@#[@KABF*4@A 6/K@@TX9,G@@@9%@AK$C@@AK('=@@@I/K@@TX/K@@@@CWW@@#>8K@@)AW )@@G@@>8K@@]/K@KUC*^G@@ /K@@UMG8K@@)[WW@@#/K@@UCG;0@@[/K@KUC**@A 7/K@@XMC@KAD(AX )@@G@@:8K@@[C8K@@@[CKABY/@K@U=T8K@@^*?@A 8/K@@U=C^0AD*H@0AD(HC0AD?G80@@[T80@@]AY )@@G@@G@K@@J[^KABY/@K@U*/,0@I%[@@AA_ @@@@MC8K@@](?@A 8CCKAD?[SKACRT8K@@]/,0@I%AZ )@@G@@[@@AB@G[)@@H @@@@KR]@AK%R]KAK%C8K@U"/,0@IF[P@ACR @@@@JW80@@#*@@@@KG80@@[BA )@@G@@G[)@@J[[)AB]/K@@V9/K@@@@CW?@@#+8)@ N%80@[#/K@KU"C@?@@^*CG@@^;C)@@M>8))@@BB )@@G@@/K@KU"[@@@@HC^G@@#0@G@@@/K@@VICCG@@@/K@@VEH8@@@#(@G@@A/K@KU"C@/@@@%@0AA'BC )@@G@@:@0AK:*8@@@@/K@KU" @@@@JH8))@@RD)A /R[0AK%&9)@@[:[@@@J/K@@V+G80@@[')B)V>BD )@@G@@%@)@[]/K@@VV/K@KU"')C)V?G9@@@[/K@KU"NW&@@@NS&@@@'^@@V*@@@@@@NO&)@@Q90@@@BE )@@G@@/K@KV*'^@@V0[S(@@@[O(@@@'^@@V0@@@@@@C8K@@[/,0@I%(@@@@K[C@A /Q'W@@@[W(@@@BF )@@G@@Q'@@@[/K@KV0(^@ABY/K@@W7R]@AA_&'@@@^C9K@)O*?@A 8/K@@W\C^@AD,R^?@@#CCKABYBG )@@G@@T8K@@^%^KABY/K@@WCR'K@@@/K@@WHH8K@@[C]K@@HG@KAA_&')@@]Q'!@@@C8@@@^[WC)@]BH )@@G@@C@K@@]H8K@@]C^H@@@*@@@@D/K@@WUCW/@@D[XS@@@[W8)@]C^G@@ /^@@WO/K@@W7[@@AD1BI )@@G@@[XS@@@*^G@@F/K@@W8@]@@/K@@XIC@!@@^BM )@@G@@T8)@@^G@)AA_[1Y@@@C^X@@ C8H@@B/^K@XB/K@@XMC9@@@#[D@A#.N#@A#. @@AE^ @@AD"BN )@@G@@ @@AEA @@AE@C^@AB>CCKAB>C^)AA][@@AD/[@KAD'[@)AEE**@A 7/K@@3+*?@A 8/K@@?7BO )@@G@@R @AD?CM=@@CC9@@C@='))@@C9@^@@A[@AK_+')@@#:'0@@#C ^@@E='))@@:'0@@# @@AK_BP )@@G@@C@0AQF[^0AE^[^0AD"R^=@@#[ ^@@E @@AL@C@0@@^:@0AD&/,)@?F/,0@*/*4@AO*/K@@Y^BQ )@@G@@9?0@@GC@@AO*/,0A >[@KAO*C@@AO?'=@@@IC])AQG9?@@@J[])AO*CM=@@C)')^@@(@@AL@BR )@@G@@C])@@R[M=@@C='))@@/K@@YO!@@AEA[@@AEA?8@K@@/K@@Y<9!=@@@9()AN4C@@AN;'=@@@IBS )@@G@@/K@@Y')]@@(@@@@M @@@@H[SW@@[C^4@@E='))@@/K@@ZJ?^0AE^[^0AE^/K@@ZLBX )@@G@@?^0AD"[^0AD"R ^@@B(@@@@^/K@@)ICM=@@C>')@@]/K@@Z&>')@@[/K@@ZVC ^@@E/K@@X2BY )@@G@@='))@@/K@@ZZC9@@C@/K@@X2C@0AEAG80@C@+80_8@?9@^@@C9@^@@A[@AK_/K@@X2R O@@CBZ )@@G@@CO^@@DC9 @@@%8@@@[/K@@Z7CL @@@R P@@@(@@@@ /K@@Z3G @@E>')@[@/K@@X2GD @@ECA )@@G@@G9@@B_+9@_8@C[@@@L/K@@X2&9K@@[ @@AK;8#@@Z;/K@@)CCL @@@R 5)@@(@@@@B/K@@)[CB )@@G@@G B@@EGDB@@EG9@@B_+9@_8@? KAK;/K@@Z9ADKAK;[ KAK;/K@@Z9C @AK;CC0AK;H^4@@CCC )@@G@@H80@@[[S4@@D/K@@X2/,)@0=R[@AK_ @@AE@R80@@[C^^@@EG@@ABAC@KABA;KK@@DC@0AB@CD )@@G@@C[^@@^H9@@@^;(@@@[G@0@@KCO\@@[G@)@@H[O\@@[C^O@@#[^^@@EC[@@@G?^@AD"[^@AD"CE )@@G@@'^@@2 C@0@@^C^^@@ECCO@@EG@@@@HH8@@@[!@@AE@[@@AE@:@0AD&/,)@?FR ^@@B*@@@@^CF )@@G@@/K@@)M(?@A 8/K@@-^C9K@@^C@0AB@C^KAE^C@)AB#'^@@3S*0@A 7 SJ@@[C9@@@C*4@A .CG )@@G@@[5J@@[G80@@]C^KAD"C@)AB^'^@@3S*4@A 7 SJ@@[C8K@@K[4Z@@[C@@AE@C[@AEA)@@AA#CH )@@G@@)[@AA#[@KAE][[KAECN[@AD98L@@-GR]0AQI*4F)@#/K@@-PC^F@@[C^V@@@CXG@@#[@W@@^CI )@@G@@)9@@@][XW@@#8L@@-HC @AEGG9@@@#**@A 7 @@@@KC KAB!C8K@>U/,0@IF(C@AAQ*C@AANCJ )@@G@@'^@@6!(@@AD-/K@@-8RA)AD-A])AE;/,0@G2/@@@6TCWW@@#>8K@@)>8K@@[/K@@6T(@E@@]CK )@@G@@/K@@-5C9E@@][[@AE;/,0@G4/@@@68K@@[/K@@68K@@[/K@@=;C^?@@#>8K@]@CM )@@G@@=8K@^@/K@@=;/@)@=;>8K@)@/K@@+K(CI@@[/K@@+N9?W@@@9*KAO^C@@AOF'=@@@I @@ABBCN )@@G@@/K@@+6C G@@^C8Y@@@/K@@+PC I@@[CCY@@@C^!@@]CC"@@[>80K@@/K@@>B(*@A 7*?@A 8CO )@@G@@/K@@+!CW"@@]C@)AD\H8)@@^K@)@@JC Z@@@R[KAQJQ9KAD+N8K@@^8KK@+&/K@@+(%[P)@@CP )@@G@@/K@@+=/K@@+!N#K@@GN#)@@HC8KALP/K@@>E[CKABB[ @ABBCWW@@#)8K@@][W?@@#(*@A 7CQ )@@G@@/K@@+6CCG@@^[^@ABCCCKABB @@@@J/@K@<]C@@@@H0@G@@@/K@@+"CCG@@@/K@@+'H8@@@#CR )@@G@@C??@@D+8)@@G;C0@@]*0@A 8/K@@<* @@@@GG@@AK7;*@@@[G@@AK6;*@@@[G@@AK5;*@@@[CS )@@G@@G@@AK4%8@@@[:8@@@D/K@@<;C9@[)@:8@@@C/K@@<>C9@[@@%8@@@^:8@@@G/K@@<>%8@@@ CT )@@G@@:8@@@H/K@@<>C9@@)@%8@@@]:8@@@E/K@@<>%8@@@#:8@@@F/K@@<>%80@@@:80@@#/K@@<;CU )@@G@@C[@@@J;(@@@F)D@ACO[DKACO/K@@<;*4@A 6/K@@=E%80@@@:80@@#/K@@<;C0@A 8%8@@@@CV )@@G@@:8@@@#/K@@<;:@@@@J/K@@<;:8@@@[/K@@<99?@AP%9?)AP+9*@AP+9*)AP%C@@AP2'=@@@ICW )@@G@@(S@A 6/K@@=ECC0ACO;C0@@F+80@@#/[@@=C9?)AQK:9@@@[/K@@=B9?)AQM%9@@@]9?)AQOCX )@@G@@9*)AP8C@@AP''=@@@IC@@AK1;*@@@[*@@AK2G8@@@^(4@A 8/K@@=Z(S@A 6/K@@=TC@@AQ@CY )@@G@@CCKACB=8K@]@C@@AQ =8K@^@C@@AQE'=@@@IC8K@@@C@@AQQ'=@@[DC8K@K7C@@AK''=@@[DCZ )@@G@@:8@@@A/K@@=*;*@@@A^70A 8)C@ACB[CKACB)C@ACO[CKACO/K@@=KCCKABB/@K@=KC@@@@HDA )@@G@@0@G@@@/K@@=\CCG@@@/K@@=:H8@@@#CW?@@# @@@@G=8)@@KG8@@^@=8)@@CG8@@]@*@@@@GDB )@@G@@:8@@A@/K@@=K/K@@=+/K@@=KC@@ABFG8@@@[[@@ABF9?@ABB @@ABB @@ABC*4@A 6/K@@+6DC )@@G@@9*@ALAC@@ALJ'=@@@I/K@@+6N#K@@GN#)@@HC8KALKC@@ABFG8@@@[[@@ABFC@@AQR*4@A 6DD )@@G@@/K@@>RN8K@@ &;K@@[M#H)@@9?@ABB9*@ALAC@@ALJ'=@@@IC@@@[HC@K@[I/K@@+!/K@@@@DE )@@G@@CY?@@#=')@[@/K@K>U=')@K@/K@@&->')@@[/K@@>4R^/@@#(@@@@#/K@@>3C@0@@#=')@)@DF )@@G@@CC3@@@C8W@@@C@@@@J0@G@@@/K@@>,CCG@@@/K@@>%H8@@@#;^@@@=CWX@@#>8K@@)/K@@>7DG )@@G@@H')@@[ ^G@@#[Y?@@#/K@K>UCD?@@^0WG@@#/K@@&KC^N@@@*?@A 8>')@@)CCN@@]'^@@&$DH )@@G@@1@G@@^G /@@^0@G@@^GH/@@^[ /@@^CC?@@^>')@@^/K@K>UC8K@@[C@0@@G/,0@I%[CJ@@^DI )@@G@@[ W@@@[C?@@@C@@@@JG9K@@#/K@K>UC^/@@#RC_@@@CCN@@]'^@@&$1@G@@^G /@@^0@G@@^DJ )@@G@@GH/@@^[ _@@[0@J@@]/K@@&YC^_@@@/@0K>U/K@@&L[ Z@@]G9K@@#/K@@&V[[G@@^G9@@@[DK )@@G@@(*@A 7G9@@@]G')@[[/K@@>4/K@@@@&;K@@[CC<@@@=8))@@>8)@]@/K@@&5C .@@@(*@A 7DL )@@G@@/K@K&$C0!@@@=9))@@G8))@@[C?@@^/K@K&$+9)Z__C?!@@@:X.@@@/K@@$V/SH)@@>8)@@[DM )@@G@@/K@@&6**@A 7/K@@$AC 3@@[G90@@[(?@A 8/K@K&$/-)K&$CD3@@[G90@@[/K@K&$9?W@@@DN )@@G@@9*KAP@[@@AADC@@@@M/,0A >[^KAP^C^KAAAG@K@@MC .@@@G90@@[C@KAADC^H@@^0@H@@^DO )@@G@@CGH@@^G@@@@N/,0A >[@KAPCC@@APD'=@@@IC@@AAD/K@K&$C .@@@>8)@@]/K@K&$C@K@@NDP )@@G@@C^!@@@%8)@@C/K@K&$C .@@[(*@A 7/K@K&$CC)AD5/K@@&1/K@@@@&;0@@[C!_@@@=90@@)DQ )@@G@@/K@@$8=90@@]/K@@$.C \@@@/ )@$2G90@@C[!_@@@>90@@K/K@@$6=9@@@[G9@@@[[ J@@@DR )@@G@@G[@@@M/SJ)@@>90@@[/K@@$(L9@@@[/K@K$$C^J@@@C^W@@@%8K@@C/K@@*CC@KAK/KCW@@[DS )@@G@@[@)AK/[^W@@[H@KAK.[^W@@]/K@@$8C^W@@]>'@C@@/K@@*4:8M@@@/K@@$8C!\@@@=9)@@CDT )@@G@@/K@@$8C@)ABEG8)@@[[@)ABEH8@@@#9??@@@9*)APT(?@A 8(CH@@@/K@@*VCCX@@@/K@@*QDU )@@G@@H8K@@B9?!@@@9*)APYC@@@@](?@A 8(CG@@@/K@@*=CCG@@@/K@@*ZH8@@@B9??@@@9*)APKDV )@@G@@C@@@@#0@G@@@/K@@*?CCG@@@/K@@**H8@@@#9??@@@9*)APGC@@AP)'=@@@IC@@AP-'=@@@IDW )@@G@@/K@@C)CD!@@[>9)C@@/K@@$8C@)AQSC@0AQT[@)APJ[@0APX/K@@*KC8@@@)[4@ABA @@AK8DX )@@G@@ @@AK9*^]@@@^#0AL@C@@AK/[@@AK.CO]@@]CE]@@[='@C@@/K@@:5/@@@(&R M@@[='@@@[DY )@@G@@/K@@(KC @@#>'@@]@GD @@#/K@@(&%8@@@[/K@@(PR P@@@ S]@@]/K@@(G @@AK'&9K@@[DZ )@@G@@8#@@(T/K@@(-R 5)@@C B@@#GDB@@#? @AK'/K@@(RADKAK'[ @AK'/K@@(RC @AK'CC0AK'EA )@@G@@H^2@@[H80@@[[S2@@]>'@^@@/K@@(:+9@@B_C ^@@EG[@@@LRC2@@ [ ]@@# @@AK/(@@@@#EB )@@G@@/K@@:[(C#@@]/K@@%.C@@@@#0@G@@@/K@@(7CCG@@@/K@@(3H8@@@#CY?@@#C?W@@D=')@@)EC )@@G@@/K@@%.=')@@]/K@@%F=')@@[/K@@%#G')@@)[Y?@@#/K@@%.=')@@C^#0AK1=')@@K^#0AK2ED )@@G@@+8K@@G;C)@@]^#"AK4*?#@@^^#0AL@CC3@@]R8W@@@'^@@$$[ N@@[(^#@@^/K@@%.0K^@@CEE )@@G@@/K@@%T9?[@@@9*@AOGC@@AOR'=@@@I/K@@%.CK^@@C>8@@]@/K@@%<9?[@@@9*@AOGC@@AOQEF )@@G@@'=@@@IC@@AOZ'=@@@I/K@@%.CC#@@]C?W@@@=8K@@]/K@@%.C^?@@@C^#@@^H@@@@I?@@ABAEG )@@G@@/K@@%.[@@ABA!@@AK"[@@AK"!8@@@[**@A 7/K@@%.C^#@@^[@@AO*9?^@@@9*@AO-C@0ABAEH )@@G@@G80@B_+80_8@[[@ABA![@AK"[[@AK"/K@@2" @#@@^R^3@@#*@@@@#/K@@(,L ]@@#[DM@@#EI )@@G@@/ K@:RCWM@@]G@KAD\H8K@@^C^H@@@CK?@@C=8)@)@/K@@:R9?W@@@C8]@@@9*KAN<(CG@@^EJ )@@G@@/K@@:MCCG@@^/K@@:IH8@@@B9?W@@@9*KAN)C@@AN&'=@@@I='@C@@/K@@:7![@AK9[[@AK9EK )@@G@@='@]@@/K@@:Z![@AK8[[@AK8R^+@@@*@@@@]/K@@(]C@@AK9H8@@@[[@@AK9CM=@@C>')[@@EL )@@G@@/K@@:?C@O@@^G@KAD\H8K@@^[CH@@@C@KAK8H8K@@[[@KAK8L^O@@EG8)@@[[C=@@E(@@@@IEM )@@G@@^#0AL@/KF@@@ @@@@K/K@@(:!9@K@@/K@@:/![@ABG[[@ABG/K@@:ZC@@ABEG8@@@[[@@ABEEN )@@G@@C8]@@@H8@@@B9!W@@@C@@@@KA]0@@W/,0A )9(KAL39*KAL7R]0@@WC@@AM['=@@@I/K@@:ZEO )@@G@@ @@AEM @@AEI @@AEK @@AEG**@A 7/KE@@@C^0ABY*C@AAN^#0AL@/@0@?T^#0AL@[ @AB(EP )@@G@@[ @AEMG[@@@JCC0AB%/@0@?-^#0AL@[ @AB%[ @AEIT80@@#G80@@[G[@@@JCC0AB:/@0@?(EQ )@@G@@^#0AL@[ @AEK[ @AB:T80@@#G80@@[G[@@@JCC0AB?/@0@?1^#0AL@[ @AB?[ @AEGT80@@#ER )@@G@@G80@@[G[@@@JCC0AB!/@'@@@[ @AB!T80@@#G[@@@J/KE@@@C9@@C@[ @AE^C;@@@[/,0@!$ES )@@G@@(@@AL@^70A .[@KAB#[@@AEAC@0@@G?80K@@/K@@!^C@@AN;'=@@@IG80@C@+80_8@?9@^@@ET )@@G@@/K@@!I(4@A 6(4@A 7/K@@!JC@@ANJ'=@@@I/K@@!JC9@^@@[ @AD"/,)@?FC;@@@@C8@@@)EU )@@G@@[4@ABA/,0@!$[@KAB^[^@AE@/,)@0=R80@@[C^@AD"G@@ABA[^@AD"C[@@@GC@@AB^G@@ABAEV )@@G@@C^KAE@G@KABA[@@AB^[^KAE@C@KAD:'^@@2 /,)@?F/K@@)0 @@AK8 @@AK9R@)AD:*^]@@@EW )@@G@@^#0AL@C@@AK/[@@AK.CE]@@[='@C@@/K@@0)CO]@@]/@@@,*R M@@[='@@@[/K@@,D/#@@,@EX )@@G@@C @@#>'@@]@GD @@#>'@^@@/K@@,*+9@@B_C @AE^G[@@@L/K@@,*C @@^>'@@]@GD @@^EY )@@G@@>'@^@@/K@@,*+9@@B_C @AD"G[@@@L/K@@,* @@AK'&9K@@[8#@@,H/K@@,TR 5)@@/#@@,MEZ )@@G@@C B@@#GDB@@#/K@@,OC B@@^GDB@@^? @AK'/K@@,FADKAK'[ @AK'/K@@,FC @AK'CC0AK'FA )@@G@@H^2@@[H80@@[/#@@,)[W2@@]/K@@,-[S2@@]>'@^@@/K@@,*+9@@B_C @AE^(@@@@SC @AD"FB )@@G@@G[@@@L/#@@,:[ ]@@#/K@@,?[ ]@@^RC2@@ @@AK/C8#@@@H8@@@#CY?@@#/#@@,_*@@@@#FC )@@G@@/K@@,6C[K@@K/K@@\7(^#@@@/K@@\6=')@@]/K@@\6*?#@@^^#0AL@ ?#@@^[D#@@[/K@@\AFD )@@G@@*@@@@#/K@@\#C[K@@K/K@@\7(C#@@]/K@@\6[ #@@[=')@@)/K@@\6=')@@]/K@@\R=')@@[FE )@@G@@/K@@\JG')@@)[Y?@@#/K@@\6C?W@@D=')@@C^#0AK1=')@@K^#0AK2+8K@@G;C)@@]^#"AK4FF )@@G@@/B@@\2CC3@@]'^@@$$C^3@@[[ N@@[(^#@@^/K@@\2C^#@@^C@)@@GH@@@@J ^#@@^?@@ABAFG )@@G@@/K@@\2[@@ABA!@@AK"[@@AK"?8@@@[/K@@\2A@0AN@[@)AM/C@0ABAG80@B_+80_8@[[@ABAFH )@@G@@![@AK"[[@AK"/K@@3G/#@@\6C^3@@@'^@@$$[DN@@[R^3@@#*@@@@#/K@@,,/#@@\.L ]@@#FI )@@G@@[DM@@#/K@@0IL ]@@^[DM@@^/ K@0C*C]@@#/K@@0CC@@@@]H8@@@B9?W@@@9*KAN)C@@AN>FJ )@@G@@'=@@@I>'@C@@/K@@0IL ]@@#![@ABG[[@ABG/K@@0Q='@C@@/K@@0Q![@AK9[[@AK9='@]@@FK )@@G@@/K@@0Q![@AK8[[@AK8R^+@@@*@@@@]/K@@!?C@@AK9H8@@@[[@@AK9C@KAK8H8K@@[[@KAK8FL )@@G@@/KF@@@ @@@@K/B@@,?CD]@@#/K@@,:**@A 8/K@@)0(?@A 8/K@@0"*4@AM//K@@0_C@@AM6FM )@@G@@'=@@@IC@@AM//,0A >[@KAM/C@@AN@C@@@@G0@G@@@/K@@05CCG@@@/K@@01H8@@@#CWW@@#FN )@@G@@9?)AQU>8K@@]9*)AM.9??@@@9*)AM_C@@AN['=@@@IC^@AE@?8@K@@/K@@)0?@@AQH/K@@1DFO )@@G@@C@@ABEG8@@@[[@@ABEC@@ANV'=@@@I/K@@)0(4@A 6(*@A 7/K@@1JC@@AN0'=@@@I/K@@)0FP )@@G@@C@KAB4=@KAQW/K@@)0H8@J8@+8@_8@K@KAK"C@@AK_(?@A 8/@@@)0C @AD"(?@A 8C G@@EFQ )@@G@@!8)@@[/K@@10H[@@@HL @AEA?9K@@[/K@@1/C@@AMG'=@@@IC@@AMS'=@@@IC@@AM<'=@@@IFR )@@G@@C@@AM%'=@@@IC@@AK_C^KAD"(?@A 8C^W@@EH@K@@K]@KABA/KE@@@1@@AK"/K@@)0H@K@@IFS )@@G@@/GK@)0+8K_8@(@@@@I/K@@)0H[@@@I^:0A 8L @AEA!9K@@[/K@@1-C^0AEAG80@C@+80_8@FT )@@G@@C KAD"(?@A 8C W@@E%[@@@L/K@@1-/K@@)0/K@@@@CDX@@[=9KC@@/K@@2;C^H@@#*?@A 8FU )@@G@@C^H@@^G@@ABACC!@@ /@)@2;(?@A 8/K@@2R[^H@@^GCH@@^?@@AK9/K@@2Y[@@AK9/K@@2YFV )@@G@@[^H@@#GCH@@#?@@AK9/K@@2Y[@@AK9>9K]@@[@@AK8C@@@@I0@G@@@/K@@29K@@)FX )@@G@@=9K@@]/K@@24C^J@@@G@@ABA[^J@@@/SJ)@@>9K@@[/K@@2!:8<@@@/K@K2 C^,@@#/^)@2YFY )@@G@@C^X@@@/^K@2A/K@K2 C^^@@EG@@ABA[^^@@EC[@@@GC@)AD&:@)@@^/,)@?FC^O@@#'^@@2 FZ )@@G@@C@@AQX[@@ABAC #@@[G9@@@[/K@@%.C^@AD"G@@ABA[^@AD"C[@@@G/,)@?FC@KAD:'^@@2 GA )@@G@@C@@AQX[@@ABAC #@@[G9@@@[/K@@\6/K@@@@[1Z@@[H@)@@H;CK@@D[OZ@@[G^)AA]C8K@@@GB )@@G@@W^KAA][SZ@@[/K@@3SC@KAACGCKAB:/,0@I%[@@AAA/,0@I%[@@AD0C^)AAA&;)@@[C@@AACGC )@@G@@H8@@@[N@)@@GD8@@@[[@I)@@8K)@3,R@)AD:RC2@@ C8@@@)[4@ABA(@@@@#/K@@4SC8N@@@GD )@@G@@H8K@@#CY!@@#=')@@]/K@@4K=')@@)/K@@4P=')@@[/K@@4]G')@@)[Y!@@#/K@@4P=')@@CGE )@@G@@^#0AK1=')@@K^#0AK2C?N@@A+8K@@G;C)@@]^#"AK4C^3@@@*@@@@J'^@@5[CKAO/C@@AO.'=@@@IGH )@@G@@/K@@C)C8K@5F/,0@ID(@@AD4/K@@44G;)@@[[F)AD5C^@AD5H8@@@[C^KAAAG@K@@U[@H@@@GI )@@G@@^F"@@@[#)AB C^0AAAC8K@@@;H@@[C&;0@@[H80@@[-8K@@[0@J)@[/K@@4_')HAK?')HAK,GJ )@@G@@C8Y@@@8A)@4'[[KAEA[[@AE@C8KAABC^X@@@/@K@)0CC!@@@G@)AAA1@I@@@^F"@@@/K@@5^GK )@@G@@/K@@@@CWW@@#>8K@@)>8K@@]/K@K5FG;)@@[CC?@@ [Z,@@@C^Y@@@ ^I@@@H8K@@[C^)AAAGL )@@G@@G@)@@U[^W@@^[@Y@@@^F"@@@?8KK@@/K@K5FC@@@@U/,0A >[CKAN(C@@AN0'=@@@I/K@K5FGM )@@G@@/K@@@@&;0@@[C!_@@@=90@@)/K@@6F=90@@]/K@@6JC \@@@/ )@5,G90@@C[!_@@@CWJ@@@GN )@@G@@C#)@@GC8K@@[/,0@I%[D?@@@C@KAD0G@K@@U(^H@@@/K@@59C^X@@@/K@@55[^H@@@C@@@@UGO )@@G@@!@@AB [@@AB G^@AAAC[G@@@G9@@@[[ J@@@G[@@@MH9@@@[[[G@@@?9@K@@/K@@6FH^@AAAGP )@@G@@/,0A >[CKAN(C@@AN0'=@@@I/SJ)@@>90@@[/K@@5>/K@K5'=@@@I/K@@-5C@@ABFG8@@@[[@@ABF*4@A 6/K@@-59?E@@]9*@AL&C@@AL1GS )@@G@@'=@@@I/K@@-5/K@@@@C^KAAQ/@K@;ET8K@@#/,0@I%R]@@@GAA@AAR&'@@@#NDKAAQ8LK@67GT )@@G@@RAKAAPA]KAQYR^9@@]CWN@@#=8K@@)/K@@7F>8K@@[/K@@7BRA(@@^ @D@@@NXD@@#8L@@7PGU )@@G@@(CD@@]/K@@7FRET@@]/K@@6_9?<@@@9*)AQ9C@@AQ;'=@@@IR]KAQY(^D@@#/K@@;ERAT@@#GV )@@G@@A]KAQY8LK@7M/K@@;E(@D@@@/K@@7F/K@@69COU@@@[^S@@]/,0@8"GC'@@@[C8@@@[ C@@@GW )@@G@@C['@@[C*E@@@%8@@@]/K@@7+[[8)@[RA%@@D/K@@7]%8@@@#/K@@7( @@@@O'^@@8\'^@@86GX )@@G@@'L0@@O/K@@7Z%8@@@ /K@@7' @@@@OC8E@@#[@@AE;/,0@G2/@@@8YR@0@@GCWG@@#>8@@@[GY )@@G@@/K@@7FCOU@@]/,0@8"'M@@@JR^9@@]'L0@@O/K@@7Z%8@@@A/K@@8 C8E@@#'^@@'IK@'@@ GZ )@@G@@*OE@@]L@'@@ C]@@@K'^@@86'L0@@O/K@@7ZC8E@@A'^@@'IK@'@@C*SE@@]L@'@@CC0E@@]HA )@@G@@*@@@@G;(@@@M'L0@@K/@@@7Z:8@@@]/K@@7Z%8@@@[/K@@8R @@@@O'^@@8\'L0@@O/K@@7ZHB )@@G@@C8E@@#'^@@'IK@'@@ *OE@@]L@'@@ 'L0@@K/K@@7ZC@@ABFG8@@@[[@@ABF*4@A 6/K@@78HC )@@G@@C@@AE;9,?@@@9%)AQ:9,)ARK9%)AQ!C])ARM[A)AQ1C])AA.[])AQ2C@@AQ3'=@@@I/K@@78HD )@@G@@/K@@@@(0E@@]/K@K8\COU@@]/,0@8"'M@@@J/K@K8\/K@@@@(4E@@]/K@K86CSU@@]/,0@8"HE )@@G@@;*0@@M'M@@@J/K@K86CW#@@EH8@@@[!@@@@H/K@@9U*4@A 6/K@@9N9?<@@@9*)AQ*C@@@@HHF )@@G@@C@)@@F/,0A >R]0@@I[@KAQ=C8V@@@H8K@9GC@@ARN0@@@@HC@@ARO[@@AQZC@@AQ%'=@@@IHG )@@G@@C@@ARP[@C@@@C@@ABFG8@@@[[@@ABF/CK@;8/K@@7Z(?@A 8/K@@9?C@0@@#K80@@#C^#@@#HH )@@G@@/=K@9-CC#@@ &;@@@[%WW)@@/K@@9+H8@@@[C^/@@@C??@@@>8)@@]/KF@@@CCJ@@]C^/@@@HI )@@G@@/KF@@@C8#@@#*CG@@[/K@@9'CC?@@]C[@@@G&;)@@[C?"@@@:WY)@@/K@@97/=0@9'/K@@92HJ )@@G@@H8)@@[C@@@@I/K@@9>C^G@@@/^@@9!*4@A 6/K@@9NC@@@@H @@@@KC@)@@F/,0A >R]0@@IHK )@@G@@[^KAQ"9?<@@@9*)AR[C8V@@@H8K@'BC@@ARQ1@@@@H[@@AR#C@@ARA'=@@@I/K@@9N/K@@@@HL )@@G@@[@@AE;/,0@G4/@@@'20@G@@#/K@@'ZCWW@@#>8K@@[/K@@'2C^/@@^=8K@[@C@/@@^>8K@@^HM )@@G@@/K@K'ICC/@@^C^_@@@/K@K'IC^W@@#*CH@@[/K@@'$C^.@@[1@H@@]/K@K'IC^.@@]/K@K'IHN )@@G@@9??@@@9*)ARCC8V@@@H8K@'%C@@ARR1@@@@H[@@ARIC@@ARJ'=@@@I @@@@J/K@K'IC@@AE;HO )@@G@@9,?@@@9%)AQ:9,)ARS9%)AQ!CA)@'IH')@'8C]0ARU0@@@@QC]0ARM[A0AQ1C+0AQ1%'0@@RHP )@@G@@/K@@;]C]0AA./K@@; C80@;8[@0@'IC]0ARV[]0AQ2C@@AQ3'=@@@I @@@@J/K@K'ICCKAANHQ )@@G@@/@KK6!T8K@@ /,0@I%R]@@@GAA@AAO @@@@V&'@@@ RAKAAMR])@@DRC'@@@CWN@@#=8K@@)HR )@@G@@/K@@/]>8K@@[/K@@;/COU@@[/,0@8"GC'@@[[C8@@@[ C@@@*4E@@^/K@@/A*^E@@ /K@@/QHS )@@G@@CCU@@^/,0@8"G^'@@^[^8@@[/^0@;1 CC@@[C4'@@][48@@[*@C@@[/K@@;3C@@ABFG8@@@[HT )@@G@@[@@ABF/K@@;8CC'@@][C8@@[C@'@@#[@8@@] @C@@#[F8)@^G;0@@K(^E@@]/K@@/]RA%@@]HU )@@G@@/K@@;U9?<@@@9*)AQ9C@)ARR[@)AQ4C@@AQ;'=@@@I(^D@@@/K@K6!RAT@@@/K@@;NC6%@@^HV )@@G@@ 4E@@^*@E@@^/K@@/G @C@@[/K@@;1[6%@@^C8E@@^'^@@'IC@U@@A+@KARWK@0@@I*4E@@AHW )@@G@@L@0@@I[[C@@[/K@@;1R^'@@ CWN@@#>8K@@[/K@@/]CCU@@^/,0@8"G^'@@^[^8@@[RC9@@@HX )@@G@@/K@@;1@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,L@K7@@@___@@@___@@@___HY )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___HZ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___IA )@@G@@^Z0A#.N#@A#.C8@AA>'=@@[C/^)@S;[@KAA:CCKAD?(?@A 8%8K@@]/K@@LL9?KAD+/@K@LLIB )@@G@@/@)@LLCXH@@#CXY@@#=9@@^@>9K@^@/K@@LLCLH@@CCLY@@C>9@C@@=9KC@@/K@@LLQB.@@#IC )@@G@@&B"@@#[@0AKLC8K@@@/,0@I+9!)AL,C8@ADR9()ADR'=@@[G(@@ADT/K@@L>C8K@@G/,0@I%ID )@@G@@C8K@@,9(?@@][@W@@C^:/@@^C^KA ;[^@A ;*8H@@@[CH@@ (8H@@@[C@A ;&F0A ';K0@@MIE )@@G@@(C@A ;C80@@[*@@@@J^#0AKN/G0@MLC8J@@@N;)@@[:C0A ;/K@@MJC8K@@G*C@A '/K@@L'IF )@@G@@/,0@I%C@KAL0C@)AA.9*W@@]C8K@@,[@W@@C/K@@MDG*Z@@^**J@@^N:\@@^**J@@^H8K@@[IG )@@G@@/,0@I%N8X@@@&;0@@[&;@@@[M#J)@@H8.@@@H8H@@@ CJ@@^ CJ@@A ^J@@ACC)A ;[C@A ;IH )@@G@@[C@A '[C?@@ (@@@@I[^@A ;(*G@@^^:?@@^&B0A ';K0@@M(^@A ;C80@@[**@A 7D80@@[II )@@G@@/G0@M.C8J@@@N;)@@[:^0A ;/K@@M;C8K@@G/^0@M(/,0@I%C@KAL1C@)AA.9*W@@@C@KAL2IJ )@@G@@9*W@@]C8)@)@C8K@@,[@W@@C[O?@@^/K@@M7G*Z@@^**J@@^N:\@@^**J@@^H8K@@[/,0@I%IK )@@G@@N8X@@@&;0@@[&;@@@[M#J)@@H8H@@@ CG@@^ CG@@A CG@@ C^)A ;[^@A ;[^@A '[CI@@ IL )@@G@@(*G@@^^:?@@^RCKA ;(@@@@[/K@@UG9!-@@](G[@@ '^@@2//K@@NOD8K@@+/,0@I>9(?@@@IM )@@G@@/,0@47/K@@SQ[G[@@ CCW@@ECC?@@Q!8K[:GC8K[:G!8)[CGC8)[CG!^KAKG[^KAKG!^)AKHIN )@@G@@[^)AKHCCL@@ 9![@@@*@[@@D9!-@@]/@K@N*9.H@@@/K@@N&9.!@@]/K@@N&C@-@@B%@!@@BIO )@@G@@/K@@N&CG[@@ [GH@@ 9\1@@D9:.@@DCC[@@A[CH@@ACCX@@ /^K@NT1G[@@ /K@@N9C9L@@@IP )@@G@@CC[@@^CD[@@ %DKA ;[D @@ :DKA ;[D@A ;(@@@@KA KA ;/@@@N'CXG@@#)9@@@)[XW@@#IQ )@@G@@C^G@@C/K@@N3R9L@@@RCL@@ *@@@@[/K@@N@RCKA ;(@@@@[/K@@UGD^KAKG/,0@I>[C@AKGIR )@@G@@*=@A 8/K@@O%(?@A 8/K@@O)C^@AD:*@@AD%/K@@OW^#0AKNC8K@@I/,0@I%^B0AD*9!@AL3IS )@@G@@9(G@@@[@@AE;/,0@G0/,0@HD^#0AD(C8K@##[WW@@#G8@@@BC8KK@@[CW@@[^#0AD*[C@AD*IT )@@G@@[@@AD:CCKA ;:CKA '[^[@@A/K@@O%C@K@@[%CKA '/K@@O%C8K@@#/,0@I%[^[@@AC@KAD!IU )@@G@@C8))@@[^W@@[[C?@@[C[)AL5C@KAL6=@KACRC[)AL7()@A 6/K@@O4C[K@@MC[)AL8%[KAL5IV )@@G@@C[)AL9*=@A 6'^@@TSC[)AL'*C@AAN'^@@TS[@@ABDC;0@@@CG[@@ (CG@@E/K@@PEC@KAKGIW )@@G@@/,0@5'/K@@S!**[@@^'^@@)F'^@@VQ*C[@@^/K@@PZRCL@@ (@@@@[/K@@P!/K@@O;C@@ABFIX )@@G@@9,-@@]G8@@@[9%)AKO:])AL0*@@AKN*8@@@@/K@@PP[@@ABFC@@AKS'=@@@I(C[@@^/K@@PAIY )@@G@@RC1@@^CY<@@#)')@@)[Y3@@#R^3@@C*@@@@#/K@@PS/K@@PARC1@@^CY<@@#=')@@)/K@@P(IZ )@@G@@'^@@ZI/K@@T?CY<@@#)')@@[[Y3@@#'^@@[C@AKH/K@@P8RCL@@ (@@@@[/K@@UMC^)AAY:8)AAV/K@@UMJB )@@G@@(*[@@^/K@@P5CG[@@ CCW@@Q?8K@]H/K@@S[C@KAKH/,0@6]/K@@S!CG[@@ C@KAKG/,0@5'JC )@@G@@/K@@S! @@AKKC^)AAYC^Y@@^R9,@@@[@KAKM*^@AKK*CI@@ '^@@)?/K@@RG @@@@T @@@@UJD )@@G@@'^@@X*/K@@RGC[#@@@C^Q@@#C8#@@#:[@AL;/K@@Q1*?@A 8/K@@QY*@[@@F/K@@RU/@K@Q8JE )@@G@@(@@AKL/K@@Q1C80)@]CX#@@#CCKAKL)9@@C@[C/@@][XN@@#/,0@G$ @@@@U'^@@X*/K@@S$JF )@@G@@C^#@@#C80)@[C^KAKL[C/@@]/,0@G$/K@@RA/,0@G$CC0AD?%80@@[/K@@Q8C80)@@[C/@@]JG )@@G@@/K@@RA*?@A 8/K@@RAC8K)@][CW@@] @@@@U'^@@X*/K@@S$C^#@@#C8K)@[[CW@@](^A@@#JH )@@G@@/K@@RAC@KAD!/,0@G$CY<@@#)')@@[[Y3@@#'^@@[@KAK"C@@@@I'=@@@IJP )@@G@@C8K__"9![@@@[GL@@ /K@@NOC@@ABEG8@@@[[@@ABEC@@ALQ'=@@@I/K@@C)C@@ABEG8@@@[JQ )@@G@@[@@ABE9?1@@]C@)AL<0@@@@GC8)AL /,0A >9*0ALZ[@KAK"[@KAL+C@@@@I'=@@@I/K@@C)JR )@@G@@C@@ABEG8@@@[[@@ABEC8I@@@/,0A >[@KAL?C@@AL!'=@@@I/K@@C)/K@@@@CY?@@#=')@C@JS )@@G@@>')@@[/K@KT^C^W@@#C^!@@@%8)@@C*^H@@]/K@KT^C@@@@H0@G@@@/K@@TNCCG@@@/K@@TJJT )@@G@@C@KAD!(@@@@HC^KAD:'^@@F[/K@KT^/K@@@@C8K@@A/,0@I%C@KAA.[[?@@@[@W@@[[@@AE;JU )@@G@@/,0@G4/^@@T+/,0@HD(?@A 8/K@@T$C@KAD:[^W@@#/K@@T%C@KAD&C^X@@#[^W@@#QA0@TSJV )@@G@@/K@@2$CW<@@#=8)@@)/K@@P(C@@ABFG8@@@[[@@ABF*4@A 6/K@@T'9?#@@@9*@AK:9?[@@]JW )@@G@@9*@AK1C@@AK%'=@@@IG8)@@)[W<@@#R8<@@#C^]@@#CCM@@#*@@@@H[^H@@#*@@@@G[CW@@#JX )@@G@@C^+@@](C]@@#[CI@@ (^]@@#[^Y@@ R^+@@@*@@@@]/K@@T./K@@P(C@@ABEG8@@@[[@@ABEJY )@@G@@C@@AK+'=@@@I/K@A^A(=@A 7/K@@UQC8K@T^/,0@IF(*@A 9/K@@U%CCKA '/@K@U%CC!@@^JZ )@@G@@*8@@@@C^,@@C/@)@U%C8I@@#CXI@@#>9@@@)*^G@@]/K@@UW)9@@@)[XY@@#C^G@@@/@@@UWKA )@@G@@*^G@@]/,0@GJ/K@@U>(?@A 8/K@@U1&;@@@^Q;@@@ [@@ABT[C@ABW/K@@U;R[KAL/C@ AD+KB )@@G@@/@@@U9CXG@@#>9@@^@/K@@V[C[W@@^') @VL$9K@@^/K@@U2C8K@@@C@@AL.'=@@[DC8K@K7KC )@@G@@C@@AKG'=@@[D>9@@@[/K@@VBC[W@@^)[KAL"C[K@@M/K@@U8C@KABFG8K@@[[@KABF*4@A 6KD )@@G@@/K@@U99?W@@@9*KAK3C@@AK;'=@@@I/K@@U9[ KABT[DKABT[ KABU[DKABU[DKABW/K@@@@KE )@@G@@C8L@@@CG[@@ R^-@@AC;K@@@*@@@@]/K@@V>%CKA '/K@KVQ**[@@^*CG@@Q/K@KVQC#K@[JKF )@@G@@^$0A 9/K@@V:*?@A 8/K@@V:R[K@@]*@ @@]C;)@@[R^>@@[CE/@@E:'0@]G/K@KVQ @@@@RKG )@@G@@C;@@@ G'0@@[CG[@@ C@K@@R/,0@7(/K@@W\%\G@@#/K@@V00@G@@#/K@@V0R[0@@G9!?@@@KH )@@G@@9,G@@^/,0@-2/K@@V0'^@@X*/K@@W8C8K@@[:@KAL_/K@@WLCC[@@^/^@@WBAC1@@^/K@@WGKI )@@G@@(^G@@C/K@@WFC^G@@C/K@@WBA^/@@C/BK@XYCY<@@#G')@C@[Y<@@#*8@@@@/BK@V0C8#@@#KJ )@@G@@*?@A 8/K@@W?(^G@@@/K@@WTC^G@@@/K@@WPCCP@@[[CW@@]1K @@[*^ @@]/K@@W?&;K@@[KK )@@G@@C?.)@@/)0@WZ&;K@@@HCP@@[C@)@@G/,0@I%[CI@@]N@K@@H&;@@@[CCP@@[&;K@@[M#H)@@KL )@@G@@C@@@@IC8M@@@/,0@G$/K@@V0%8@@@G/K@@-)(@@@@T*?@A 8/K@KVQC^P@@@/@KKVQR@)@@HKM )@@G@@/K@@V$/BK@V0C8N@@#CC#@@C(^H@@]%C@A '/K@@X]C8#@@#C@K@@]/,0@G$/,0@GY9?B@@^KN )@@G@@[4KAMJ;^@@@A9*@AMHC8@@@/[4@AMH9?B@@@9*@AMFCC#@@C%8[@@@/K@@XOCC#@@F9,G@@@KO )@@G@@(@@@@G9,@AA.9"B@@^/K@@XO/K@@V0C@@ABFG8@@@[[@@ABF*4@A 6/K@@V09?[@@]9*@AMKKP )@@G@@C@@AMV'=@@@I/K@@V0*?@A 8/K@@V0'^@@X*/K@@V0C^#@@#C8K)@[[CW@@]C8K)@][CN@@ KQ )@@G@@/K@@V0/K@@@@ @@AL_9!$@@@9,B@@^A[0AE;/,0@G2/^@@Y[C8K@@I/,0@I%9(?@@@[@@AE;KR )@@G@@/,0@HDR@0AE;C8K@@][@KAL_CY<@@#G')@)@[Y<@@#ACN@@C*@@@@T;I@@[C/,)@E%AD#@@FKS )@@G@@C^@@X*/KG@@[R@0@@GCY<@@#>')@[@/K@@YCH')@[@[Y<@@#/K@@X'=')@@]/K@@Y[]?@@@9(?@@[9%G@@#(@@@@R[@@ANYG'0@@[CCR@@]/@K@Z9CG[@@ C'!@@@/,0@7(LC )@@G@@/K@@-)/K@@Z-9?@AM@ @@ANX*@@@@R/,)@+@/K@KZICG[@@ /,0@7(/K@@-)R9/@@@C@)@ZILD )@@G@@*C#@@F/KI@@[9,G@@^/,)@E%AD#@@F/KI@@[/=@KZI/K@@-)/K@@@@RC0ABL @@AME(@@@@#LE )@@G@@/K@K)F'^@@ZI/K@@)(C@@AMEC^N@@C*@@@@G[^W@@C(@@@@G[CKABLCC[@@^CW<@@#=8)@@]LF )@@G@@/K@@)-ACN@@CAC1@@^[^#@@CR@0@@H/K@@)I9?-@@]9!#@@@9*)AMZ9(@AMWC@@AM%'=@@@ILG )@@G@@R@0@@H/K@@)IA@0AMER^3@@C/K@@)I/K@@@@C'0@@@9?A@@@9*@AMBC8KAMBCG[@@ /,0@9 LH )@@G@@/K@@-Z[@@AMACCW@@]C'!@@@CG[@@ /,0@7(/K@@-)0@G@@#/K@@-F9!?@@@9,G@@^/,0@-2LI )@@G@@/K@@-FC@)AMA(^I@@#/]0@-WD8K@@ /,0@I>[]?@@@9(?@@[9%G@@#(@@@@R[@@ANYG'0@@[LJ )@@G@@C@@AMAC^W@@#/@K@-OCG[@@ /,0@71/K@@-)0@G@@#/K@@-F/K@@)49?@AMB^#0ANX*@@@@RLK )@@G@@/,)@+@/K@K)?CG[@@ /,0@7(/K@@-)C@)@)?R9/@@@/KI@@[/=@K)?C@0ABEG80@@[[@0ABELL )@@G@@C@0AN)0@@@@GC@0AN-C9F@@@/,0A >[@0AM"[@KAN@9?-@@]C@@@@K/,0A >9*)AM/[@KAN#LM )@@G@@C@@AN^'=@@@I/K@@C)CC0ABN/,)@-8CC1@@A/,)@-8/KF@@[C^_@@@/@'@@@9.\@@[/K@@-7LN )@@G@@CCZ@@@/@V@@@9"H@@@/K@@-7/KF@@@9*@AN RA@AASC@K@@RH'0@@[&'K@@ T8K@@ /,0@JXLO )@@G@@C@KQNY/]'@@[(@@@@C/K@@+%Q]KANYC'K@@@P'K@@ N8K@@F;G0@[CC[*@@]C@)AN+;^0@@ALP )@@G@@'D)@+P)@)@@J8KK@+M0@D)@ /K@@+Q9!(@@#+[0@@K+[)@@JC](@@@9.8@@@]](@@@1@D@@@LQ )@@G@@G'K@@[1@D@@@C@K@@Q8 0@+QRAC@@]C]0@@P8 0@+$/KE@@@/]'@@[*@@@@C/K@@+F9?)ANTLR )@@G@@(@@ANX/K@@+29?)ANVC@@AN %@@AN<:@@AN=/KE@@@9![@@]Q]KANY9*)ANB9(@ANHP'K@@ LS )@@G@@C@@ANM'=@@@IC9)@@/C@@ANS0@D)@ /K@@+;9?(@@[9!D@@#;=)@@A9(@ANQ9*)ANO[)0ANNLT )@@G@@[-)ANP'=@@@I8 0@+;/KE@@@/K@@@@ @@AN( @@AN%C]$@@CCA7@@BC#B@@AC#R@@DC8@[)@LU )@@G@@+CB@@#;CK@@D)?N@@DC8@@A@+CB@@#;CK@@^[?<@@D)WN@@#COL@@^=8K@)@G8)@]@CCB@@#LV )@@G@@=8@@[@G8)@@^[W<@@#C^#@@E&B#@@F[@@AP CC$@@BT8)@@WD@K@@I[C)AO^/,0@I>[^@AO^LW )@@G@@[@@@@^[#@AO CG[@@ 9?W@@@9*KAO@C8@AO@'=@@@#*4@AO#'^@A Y[]<@@E[A3@@F[#N@@GLX )@@G@@*^^@@@/K@@=J*^^@@]/K@@=J9!N@@@9(KAO7C@@AO"'=@@@IC9K@*-[XN@@#*?@A 8/K@K^(CG)@@/K@@=\Q#0@@GH80@@[CCZ@@@:8K)@@/K@@=\C@J@@@/,0A )9*KAOAMD )@@G@@H84@@^C@@@@J/,0A >[^KAOI9?#@@@9*@AOLC@@AON'=@@@I/K@@C)'^@@!LC^O@@@KCKAO^ME )@@G@@/,0@I>[C)AO^[^@AN>*?@A 8/K@@*5R9N@@#CCP@@]1K @@]0@H@@@/,)@&E[CP@@]/@K@>RMF )@@G@@N9@@@@/,0@$[(@@@[^ C @@]R P@@@*@@@@ /K@@>H @@@@IC8^@@#N^O@@@/K@@>*(?G@@@MG )@@G@@*0G@@@/K@@>*0@G@@@/K@@>*L8^@@^K^)AN> @J@@@[WZ@@@G8)@@[G8@@@[8KK@>Y/@)@(AMH )@@G@@K^)AN>H80@@[^\_@@@C8K@@ /,0@I%(^ @@[/K@@>7R9N@@#(^ @@@/K@@>7R P@@@/K@@>3MI )@@G@@[^ @@@ADW@@@C@K@@IR[K@@G/,0@I%[C @@]N@K@@H&;@@@[C^KAN>&;K@@[M#H)@@CC @@@MJ )@@G@@(^G@@]/K@@>HC@@AD&C^W@@#C@@@@ /,0@G$/K@@>H;G0@[CR8=@@^C^=@@@/@)@&2:8K)@[MK )@@G@@/K@@&Z:8K)@]/K@@&-:8K)@@/K@@&+:8K)@^/K@@&2C@@@@H&;@@@[CYG@@@+]@AO_:[@@@PML )@@G@@/K@@&(*?G)@@/K@@&+/K@@&S/-@@&+/K@@&(/-@@&(C[M@@@/HK@&(C@@@@JG^@AN> @G@@@MM )@@G@@[XG@@@G80@@[G9@@@[O8)@@[%[@@@I/K@@&I>8K)@@/K@@&2:8K)@@C8K@@^[4KAN>C@K@@JMN )@@G@@/@'@@@C@@@@JG^@AN>H8@@@[^\/@@@D8X@@@/,0@I%N@K@@JC@K@@G&;@@@[C^0AN>&;0@@[MO )@@G@@M#J)@@/KE@@@C8=@@^C O@@@[XN@@EH9K@@[C!H@@@?XX@@@/K@@*RC@0AN%/@0@$G(WH@@@MP )@@G@@[^5@@^KW!@@@C!H@@@(4J@@@/K@@$.C5\@@@:9)@@)/K@@*R=9)@@KG9@@@K=9)@@^/K@@*#MQ )@@G@@=9)@@[G9@@@]=9)@@]G9@@@C>9@@@]/K@@$.(?@A 8(C @@[*8@@@@/K@@*RC^\@@@C ,@@@MR )@@G@@!9)@@ /K@@*#(?@A 8**@A 7/K@@*CCX!@@@N@)@@HN@0@@FC8K@@]/,0@I%^:0A 9[D?@@[MS )@@G@@A W@@[CCY@@[(@@@@H[CI@@[/@K@$'CC!@@@[CH@@@*@@@@I[^I@@@(@@@@I[^H@@@C@K@[]MT )@@G@@R]0@[#/K@@*#**@A 7/K@@*+CX!@@@*?@A 8/-)@*#^\5@@^(?@A 8(C @@[/K@@*C^3_@@@MU )@@G@@/K@@*V(?J@@@/K@@*U9!<@@@9()AOX[@K@[]A]0@[#CWH@@@/,0A >[CKAOUR]0@[#C@K@[]MV )@@G@@C@@AO<(^J@@@C@@AO+'=@@@I)9@@@)C[@@@L/K@@*Y^\_@@@N9@@@[C@J@@@[^H@@@[!H@@@MW )@@G@@/>F@@@G8K@@[/K@@$[CXX@@@C8)AABR])@@IC^,@@@/@)@*::DY@@@/K@@*#?DY@@@/K@@*=MX )@@G@@[@K@[]A]0@[#D8K@@[/,0@I%[DW@@@[^?@@@[^E@@@C@K@[]R]0@[#/K@@*#C8K)@[/,)@&EMY )@@G@@R9N@@#N9@@@@[CP@@]*@@@@H/,0@$[(@@@[^ C @@]C8K)@]/,)@&EN9@@@@[^P@@@*@@@@HMZ )@@G@@/,0@$[(@@@[^ ^ @@@(^^@@]/K@@(HN ^@@]R])@@^OE=@@]&')@@^8L@@(L'^@@0QCCKAO^NA )@@G@@/,0@JX/K@@9)@[@/K@@?!C[J@@[/[@@?:C^?@@#H8)@@#NS )@@G@@C["@@@%[0AA'/K@@?: ^H@@#G[G@@^/K@@?6C@\@@[K^?@@^0@G@@^KG?@@^C@)@@J&F/@@^NT )@@G@@+@0AP[0@@@@I)@0AP](^H@@^/K@@?"CC!@@^C^.@@^:@KAKM[@0AKM[C\@@^[^"@@^[[H@@^NU )@@G@@CXH@@#)9@@@[+9)@-))[K@@N=9@@@C[@V&FE[X!@@#CC/@@A/@0@!GCC\@@@C^Z@@@[C?@@ANV )@@G@@/K@@?YC@FAFD(8F@@@/K@K?TP'0@@[/K@@?W/K@@@@C^O@@#/@KK!LRE=@@#O'=@@@&')@@^NW )@@G@@N[@@@H8L@@!U/K@@!LC6%@@]9\E@@@C@K@@Q?')@@E/KHK0GC@@ABFG8@@@[[@@ABF/SE)@@NX )@@G@@*4@A 6/K@@!SC@@@@Q'^@A :[O)APS9?#@@@9*@APYC@@AP+'=@@@I/K@@!S9\@AQKC8@@@SNY )@@G@@[@@AE;/,0@G2/^@@,#C8K@@C/,0@I%9:G@@@[@@AE;/,0@HDC')@)#[Y?@@#C6%@@][A?@@#NZ )@@G@@N@)@@GC8K@@[/,0@I%C@K@@GC@@@[][CW@@ ^\.@@@/K@@,ACY?@@#>')@@]/K@@,2CWU@@#OA )@@G@@?^O@@@/K@@,F/SE)@@/K@@!SG8O@@^C^!@@@1@H@@@(4H@@@/K@@,XC@0ABFG80@@[[@0ABFOB )@@G@@*4@A 6/K@@,XCC"@@]C^\@@@9\#@@@9:@AP,[@@@@SC@@AP0'=@@@IC@@@@SCC/@@ !^\@@@OC )@@G@@[^\@@@C^%@@]!8)@C[?^?@@B/K@@,&[^?@@B^#0ABA'^@@F0G8@@@#'^@@F[CWU)@#G8O@@^OD )@@G@@^7.@@@*^H@@@/K@@,0C9K@@#[5X@@@[^H@@@/K@@!SC;@ABH>')@@[%FG@@C/K@@\NG')@@#OE )@@G@@=')@[@H')@[@[Y?@@# CG@@^(^G@@#/K@@!9N@0@@G9?W@@@9*KAP"C@@AQJ'=@@@IC@@@[#OF )@@G@@C^W@@#CC!@@#C^.@@#C^H@@]:CW@@ [C/@@ :^W@@ [^?@@ *@@@@I[^"@@#*@@@@J[C\@@#OG )@@G@@C^X@@@/^K@\^C@@@[#/K@@!99\G@@@9:@APN;J@@@AG#@AQMC8)@@S[@)AE;/,0@G2/^@@,#OH )@@G@@C@@APP'=@@@I/K@@!2CWU)@#!^O@@@/K@@!SG8O@@^C9@@@KG5H@@@[5H@@@/K@@!SC8K@@#OI )@@G@@/,0@I%[A?@@@CCKAD4[C@AD4(@@@@H[^@AD4*@@@@H[CH@@@CWU)@#!^O@@@/K@@!SG8O@@^OJ )@@G@@C^!@@@*4H@@@/K@@\8[C?@@[/K@@,::A,@@@/K@@!SC@@ABFG8@@@[[@@ABF*4@A 6/K@@!SOK )@@G@@9?#@@@9*@AP9C@@AP;'=@@@I/K@@!SCWU)@#!^O@@@/K@@!SC9@@@^G8O@@^G5H@@@[5H@@@OL )@@G@@/K@@!S@@@@!Z@@@@!Z@@@@!,@@@@!Z@@@@!!@@@@!Z@@@@!Z@@@@\Y@@@@\&@@@@0^/K@@@@OM )@@G@@N ^@@[ @@@@H @@APAC^=@@[GC)AP /@)@1[[W<@@DG8)@@[W8K@@]/,0@I%C[)AQN[^#@@DON )@@G@@R])@@^OE=@@[R]K@@G&')@@]&'K@@[/K@@0"A])AE;/,0@G0/^@@07/,0@G4/^@@1^C8K@@AOO )@@G@@/,0@I%9?U@@@[@@AE;9*W@@@/,0@HD'^@@F0[^W@@#/,0@2$CXG@@#/SE)@@C@K@@M)9@@@]OP )@@G@@;[)@@M')HAP#[XW@@#*@@APA/K@@2<8L@@0((@@AP /K@K0Q/K@@2ZCXG@@#>9@@@K=9@@K@OQ )@@G@@/K@@08>9@@@[/K@@17>9@@]@=9@@^@/K@@08[@@@@WC^W@@#/@K@08C8H@@@0@G@@@/K@@1POR )@@G@@CCG@@@/K@@1L(^G@@](=@A 9/K@@11*^#@@ (@@AKL/K@@11C@0@@GH80@@#C@Z@@@:@KAQOOS )@@G@@/K@@11CC\@@CC[Y@@]%[KAQP/K@@11C@Y@@F/^K@11CX_@@#CCKAKL)90@C@[YJ@@#/,0@G$OT )@@G@@/,0@GYC^G@@@C^KAKL/,0@G$C@@@@W/K@@08'^@@F0(?@A 8/^K@2@'^@@F[C@@@@W/K@@08OU )@@G@@(^G@@^/K@@04'^@@F0C^?@@#/@)@1"/@K@08/,0@F_[^W@@#/K@@08H8@@@#CW/@@#CC?@@COV )@@G@@G8@@@#=80@@]/K@@14(^G@@](@I@@F/K@@14C@"@@F:80)@^/K@@14N*,@@^[@@APBQ'I@@FOW )@@G@@&'@@@[8K)@2LC^8)@@C^Z@@#/,0@G$C^G@@@8K)@2L/@@@2TC@KAD!/K@@2NC@@APB/,0@GYOX )@@G@@G80@C@[W"@@#C@@@@W/K@@08RA)AP ^#0APAC^E@@@/K@@1^(CE@@@/K@K0QRE%@@@/K@@2-OY )@@G@@9?W@@@G@)@@HC8K@@@W8K@]FC8KAAV[^?@@ !^!@@ /K@@23:@KAKM^F0AKKCCX@@^/K@@2!OZ )@@G@@C^!@@^^F/@@ :@)AKM[@@AKM[^?@@^[CI@@^[^H@@^[CW@@^/KF@@@/K@@@@9?@AA.R'KAQZPA )@@G@@9*D@@@9*D@@]9*D@@^9*D@@A[@D@@C;G@@[CC9@@@@9!-@@]C;0@@@;H)@@MCCKARCG8K@[@PB )@@G@@=8K@)@G8K@&@C8@ARC;*K@@MG[)@@H9()ARC9(-@@D/,0@D%C8)@@,')E)E@C8[@@@(@[@@@PC )@@G@@/K@@3V/,0@D%C8)@@*')E)E@C8[@@]/,0@D%(@[@@B/K@@3&C8)@@(')E)E@C8[@@BN90@@ PD )@@G@@/,0@D:C8)@@)')E)E@C@[@@C:8@@@,/K@@3,C8)@@/')E)E@C8[@@CN90@@ /,0@D:C@@AQ*PE )@@G@@C@0@@G'=@@@J/G@@4EG9@@@]9()ADRC8@ADR'=@@[GC0KADX=8K@@K/K@@4S*4@ADX/K@@4]PF )@@G@@C@@ARF9()AQSC@0@@G'=@@@J/G@@4AG9@@@[/K@@34)P[@@^C@@@2/[PL@@^/KG@@[=8@]@@PG )@@G@@/K@@4O=@@ARG/K@@4Q*4@A 6/K@@4Y/,0A )9*KAQ:C@@AQ,'=@@@IG@0ARHC@@@@J'=@@@IPH )@@G@@/K@@4YC@@AQ7/K@@4TC@@AQ_/K@@4TC@@ARB*4@A 6/K@@4Y9?L@@]9*W@@@'=@@@IC8)@@[PI )@@G@@C@@ABFG8@@@[[@@ABF]G-@@ C@0@@K/[@K2/C@_AC2C@@ARI9()AQW[W0AQVC@0@@G'=@@@JPJ )@@G@@/G@@4E/K@K2/**PF**@@@@@[@@@@J@@@@@L@@@@@N@@@@@P@@@@@W@@@W@@A PK )@@G@@'=@@[G @G@@]C4W@@AC8)@@^!8K@@S!8K@@) @@@@IC9K@K@[DW@@#K@@@44[@W@@^ @G@@ PL )@@G@@'=@@@#C5W@@#:9K@@ /K@@5$/ K@56CDW@@#>9K@K@/KF@@[ @@@@L&;K@@[N8K@@W3[X)@@PM )@@G@@/K@@5?C[@@4!%[G@@A/K@@5>N8K@@M3[X)@[/K@@5R/K@@5)C9@@W@[=?@@S[[G@@UC9@@@@PN )@@G@@9(G@@V9(G@@X9(G@@Z[[G@@-/KF@@[*@G@@U/KF@@[C9K@W@[[W@@U/KF@@[C8@@@]/KF@@@PO )@@G@@N8K@@U @@@@IC80@@G&;K@@[M#Z)@][=?@@SC[@@4![[G@@AC9K@W@[[W@@B[[W@@U/KF@@[PP )@@G@@QE@AR(QA)AR(QA0AR%C8@@@_;@@@@AG@@@@L/KF@@@C8/@@D/K@@6#C8/@@G/K@@6#C8/@@JPQ )@@G@@/K@@6#C8/@@M/K@@6#C8/@@PC[K@4!%[W@@A/K@@7$[CW@@^;@K@@M[^W@@^[^Z@@[;GK@@6PR )@@G@@W8K@@W?8K@@B/K@@7= 4J@@](=G@@S/K@@6YH8K@@ ?8K@@^/K@@6X[@@@[[C/@__/+@K@@GPS )@@G@@C@K@@I;C)@@[;C@@@[/)@@6SC@@@[[[4\@@]G8K@@ T8K@@WK^Z@@[[^\@@]C J@@@/ @@7^PT )@@G@@C8?@@AC@K@4,;DK@@=G8)@@#:@)@@J/K@@6\(^I@@@/K@@6&C^Y@@@CDY@@[G9K@@8/K@@6&PU )@@G@@;D@@@=W9@@@WG[@@@HC[W@@U:8?@@P/K@@68G8)@@#C Y@@@/[K@62C@K@@JH8W@@D;GK@@=PV )@@G@@W8K@@#?[H@4,C[H@4,H9K@@B![@@@L/K@@7+[ J@@@C9K@]G[DZ@@[[[G@@ G9@@@ ;(@@@APW )@@G@@G!J@@@[DJ@@@CC\@@[?8)@]H/K@@7K?C?@@^[C?@@^C9K@K@/K@@_#C^Z@@[C9K@@^:8/@@DPX )@@G@@C9K@@E[DX@]FG9K]F@[DZ@@]N8K@]G^CZ@@[N8K@]F @@@@KC80@@K&;K@@[M#Z)@@ ^H@@@PY )@@G@@/KF@@[QA0AR%QE@AR(C8@@@=/KF@@@C8@@@O/KF@@@QE@AR(C8@@@E/KF@@@C8/@@D/K@@72PZ )@@G@@C8/@@G/K@@72C8/@@J/K@@72C8/@@M/K@@72C8/@@PAE@AR(/,@@.$C^\@@[C^,@]F?@)@@HQA )@@G@@/K@@7"C[K@@HAA0AR%/,@@/)QE@AR([@)@@G/KF@@[QE@AR(C8@@@G/KF@@@C8/@@D/K@@8EQB )@@G@@C8/@@G/K@@8EC8/@@J/K@@8EC8/@@M/K@@8EC8/@@PAE@AR(/,@@.$QE@AR(C[@AR>[[G@@ QC )@@G@@C^KAR*L@KAR&[^?@@^C[KAR&G!Z@@]%8/@@J/K@@8TC8)@@K=4!@@#G!Z@@]C8K@@W!9K@@XQD )@@G@@C8K@@8[CW@@^/K@@_]C8/@@D/K@@8$C8/@@G/K@@8$C8/@@J/K@@8$C8/@@M/K@@8$C8/@@PQE )@@G@@AE@AR(/,@@.$C9K@C@AA)AR(AA0AR%*?J@@@/,)@",C^\@@[QE@AR(QA)AR( ^J@@[ CJ@@@QF )@@G@@CDZ@@[H9K@]H/HK@8;&;)@]G[@?@@^C Z@@@[[W@@ /K@@_] ^J@@@/KF@@[C8/@@D/K@@9AQG )@@G@@C8/@@G/K@@9AC8/@@J/K@@9AC8/@@M/K@@9AC8/@@PAE@AR(/,@@.$AA0AR%/,0@.O/K@@9KQH )@@G@@QA0AR%9?KAR9@@@K/K@@'#G8)@@^Q'@@@[?[K@@I/K@@7)[C)AR*C V@]FQM )@@G@@G9K@@[[[KAR+O]@@@LAAF@]F)9@@@):8/@@P[5X@@# @@@[]/,0@.O/K@@'!C^)AR*C@KAR$QN )@@G@@C[@AR+%8/@@D/K@@'UCDY@@][DX@@][DI@@]/K@@'=C Y@@][ X@@][ I@@]%8/@@P/K@@'=QO )@@G@@C Y@@#NC,@@][ X@@#[ I@@#/K@@''/,@@.51@I@@#/K@@':/,@@/)0@I@@#/K@@';/,0@.8QP )@@G@@/,0@.0/K@@';C@KAR$QA0AR=CC)AR=C[KAR+/^)@'9/,@@"$C[KAR+/>@@'7[ Y@@@/K@@';QQ )@@G@@[DY@@@/K@@';')I@;?/,@@.5C[KAR+QA0AR%/,@@/)/,@@.5&;K@@[&;)@@[C5H@@#+9@@@ZQR )@@G@@[5X@@#C9K@@KN8K@@C:8/@@J>5X@@#N?Z@@]M#!)@@C^)AR*:8/@@D*@I@@D/K@@;NC@K@@GQS )@@G@@'=@@@?;@@@@M[@I@@DC@@@@HC@KAR$CDKAR*[DZ@@[C[KAR+%8/@@D/K@@;*C!I@@#%9@@@AQT )@@G@@/K@@;Y )G@@S[[W@@T%9@@@ /K@@;*CDH@@B!DG@@S[DG@@SC8K@@[[)W@@S ^G@@P CG@@QQU )@@G@@/K@@;*C@KARCDZ@@@;DK@@ARA )@@G@@H[@@@L/H@@.[T9@@@WG J@@[G9@@]GG[@AR&[[@@@I[ @AR*H J@@]/D@@.[G!J@@]:8/@@JRB )@@G@@G9@@@^/[C@@@/HC@@@C5J@@]:9@@@[D@)@@KC9K@C@AA)AR(*?J@@@/,)@",C[@AR>1@@@@IRC )@@G@@(4J@@]/K@@.G+9@__/![K@[[C[@@@L;(@@@AG!J@@@[DJ@@@C9K@K@/,)@",QA)AR(C[@AR>RD )@@G@@/K@@/!AE0AR% @@ARQ'0@@[OE0AR%/KF@@@[@KAR$C[K@4!%[W@@A/K@@7&RF )@@G@@*^J@@[/KC@@@QE@AR(C8@@@M/KF@@@C5I@@#)9@@@)[5Y@@#/,@@.5/KF@@@C9@@@[[!J@@@RG )@@G@@/KC@@@C@KAR$9!H@@@9.I@@@/K@@"=%8/@@D/K@@"NC!X@@#%!Y@@#/K@@"F9!H@@^99@@" RH )@@G@@9.I@@^/K@@"C1@H@@#1@I@@#/KF@@@CDY@@]C9@@@#/KF@@[!9K@@ /K@@"KC9K@@^!!Y@@#RI )@@G@@/K@@"[C9@@@]C Y@@#/KF@@[%8/@@J/K@@"-C5H@@#-5I@@#=9K@@K/K@@"=>9@@@K/K@@"-RJ )@@G@@9!I@@^9.H@@^/K@@"=C[I@@B%[H@@B/K@@"=0@I@@#0@H@@#/KF@@@C9@@@[C Y@@]/KF@@[RK )@@G@@C[X@@@G[X@@[;D@@@=W9@@]FG Z@@[C@)@@L/KC@@@[DW@@#DDJ@@@;L@@@A][G@@ G J@@@RL )@@G@@T9@@@WGDJ@@[[DG@@^D J@@[H9@@]G] G@@^G J@@]?DG@@^[DG@@^*CG@@^'=@@@#C5W@@#RM )@@G@@/ K@53 ?J@@@/KE@@@C9K@C@[DW@@#'=@@@#C5W@@#/ K@56/KF@@[@@@@@@@@@@@@@@@@@@RN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@Z [OI@@@___@@@___@@@___@@@___@@@___@@@___@@@___RO )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___RP )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___&;@@@@/@F@@@C[K@@GT8@@@#RQ )@@G@@G8@@@[;C@@@[N@K@@GG@K@@LH8K@@[&;K__"G@)@@GH8)@@[&;)__"/-K[O(C).@@@C[@[QBRR )@@G@@G JA@)A&+/K@[WL 0@A&G/,0[ZE/K@[:%RA0A&A/KF[VIC8@A6_/,0[QF/K@[:%/K@[%!TF )@@G@@0@@A7D/K@[X8C*KA&F**@A&H ^@A7D ?@A7D =@A7D?)KA7D/K@[V;(*@A7D/K@[WG!*KA7DTG )@@G@@/K@[Y5 *@A7DC^0A&-G80@@[[^0A&-!C0A&J/K@[YT/,0[(F/,0[ZA/K@[:%C@@[3]&;)@@[TH )@@G@@QB)A&BCDKA7D;DK@@A0@@A7DC1KA7D!DKA&BCDKA&BC*KA&GC80@@A/@K[W/C80@@D(=@A>I )@@G@@(?@A&G/K@[W/C5@A7D0@@A7D:9@@@%/K@[W(/K@[W/K@)@@LC8K__"[^0A&MC80[W9[^KA<J )@@G@@[^0A&T/,0[1,C@K[3#C@0[3#')H-0Z?9@@[;?9@@[-/K@[W7H9@@@)')J-05/K@[W2/,0[16TK )@@G@@C80@@D/K@[X@*0@A&GQ;@A&_N@K@@LM#?)@@C@@@@JHDKA&BE[K@@L/[K[XLC[J[1'C@_[1'TL )@@G@@/-K[XC[@")@@;DK@@[&;)@@]/-K[XG9*")@@;DK@@[/K@[XK9*")@@9*")@@8^K[XI0@@A7DTM )@@G@@/K@[X,C)KA7DU@K[3^;@)@@[U8)@@EG8K@@0G8)@@0;@?@@@;GW@@@C8K@@0%8@@@D;GW@@@TN )@@G@@C@W[1'(=@A7D/K@[X&G=W[1_;GK@@MC@/[19C9@@@@/K@[X,;GW@@@;GW@@@%8@@@D;GW@@@TO )@@G@@C@/[1'*?@A7D/,0[:4C @A&-C@KA7D;C@@@#RE0A&A/GV@@]C KA&)(C@A&)G9K@@[ C@A&)TP )@@G@@[ KA&)/KF@@]C40A7DC@KA7D%80@@+/K@[X_[4KA&G[?KA&G/K@[V':80@@:/,0[YLC8)@@[TQ )@@G@@ 0@A&G;)\@@^=@)[23/K@[V'C80A$_C@KA7D/,0[ZO/K@[:%C40A7DC8)@@[;)\@@^>@)A&+TR )@@G@@/K@[WORA0A&A/KF[VIC^KA7D?^KA&)/KF@@@ C@A&)%^KA&)[C0A&)[^KA&)/KF@@@(C@A&JTS )@@G@@/K@[Y)%C0A&J/K@[Y,C8K@@C[^KA&A/K@[WLCC)A&K[C)A&J/@)[Y,(^@A&K/K@[WJC9K@@[TT )@@G@@&;K%@@QBKA&K[!KA7D/,0[ZP/K@[:%C^0A&-C*KA&F/K@[WJG8K@@[C^)A&K[*KA7DG8)@@[TU )@@G@@[4KA&I[^)A&K(=@A&H 4@A&I(0@A&H/K@[Y"C=0A&F!*0A7D/K@[Y" 0@A&G/,0[ZA/K@[:%TV )@@G@@*4@A&I/K@[=FC^0A&-%^0A&J/K@[V'R'0@^4AA0A&A/K@[)]*0@A&H/K@[ZU*?@A&O )@A7DTW )@@G@@C@KA7DC>KA&G(?@A&O/KF@@[C80A$_:!KA&G/K@[Z((0@A&G/\)[Z?C80A&_[^0A7M[@KA7OTX )@@G@@(?@A&O/KF@@[C8@A7E/K@[TQ0@@A7D/K@[ZEC=KA&F!)KA7D[)KA7D()@A&F/K@[ZEC*@A7DTY )@@G@@C)KA7D/@@[Z>H=@A&FH=KA&F[*@A7D[)KA7D/K@[ZE*0@A&G&FKA&-/K@[ZOCC@A7D[C@A&-TZ )@@G@@;C@@@A0@@A7DC0@A7D/@@[Z/[^)A&CAE0A&CC8KA$_C8)A&_R'0[PP(?@A&GR'0[OI/,;@@@UA )@@G@@RE0A&CC^)A&C0@@A7DG8@@%@;*@@@SN@)[2F<@@A7D/KI@@@C8@A$_C*0A&G/,0[)MC@@A7DUB )@@G@@Q:@A&FG8@@[[[@@A7D[)@A&O/K@[WLC?0A&G[^@A&D:8@A&%[?0A&R&;@[%F/^0[)%/K@[)*UC )@@G@@[^@A&D&;@[%F0@@A#//K@[)>*0@A& /K@[)X[@@@@IC8@A& C@K[3 '=@@@4C@@@@IC0)A& UD )@@G@@:8)@@^*@@A#//K@[)>(0@A&H*4@A&H/K@[:G/K@[%N/^0[)%*=@A&G/K@[)%'=@@@H/K@[)?UE )@@G@@'=@@[6C80@@[0@@A#//K@[)3C0KA& %8K@@^/K@[)3>@@[3A/K@[:G[C@A&D[C@A&F;*@@@SUF )@@G@@[?0A&G[@@A7D*4@A&H/K@[WL*0@A&O/KF@@@C@@A&D(?@A&H/K@[- G@@[3B*?@A&G/K@[-^UG )@@G@@'=@@@I/K@[- '=@@@8(C@A&D/KF@@@C@0[3C(?@A&G;@0@@MC@?@@@C4ZA&IC Z[1";C!@@@UH )@@G@@[ KA&P%@\A&H/KF@@@CDKA&DAE0A&C/,0[1,C^@A&DC9@[<\&;@@@[C@K[3[!9K@@PC9K@@PUI )@@G@@[D@A&T:@@@@H/K@[-)N@K@@LC@)@@GM#Y)@@C?)A&GG9W@@@Q;K@@@[?)A&R*?@A&GQ;K@@DUJ )@@G@@[ KA&LN*KA&O')H-0Q8KK[-*')H-0Q:>J[1"/K@[-%:1J[1"/K@[+9*)@A&O/K@[-.9*@A&WUK )@@G@@[00A&R[[@A&UC80[-8*=@A&H/K@[$8/K@[<;C8K@@[[)KA&O9?@A&WC00A&RC[@A&UC8)[J[1"UN )@@G@@/K@[+WG8)@@[:5J[1":9K__./K@[<(/[K[<(C@@@[[C@K@[[/@@[++/^)[+-()@A&GL8@@@[UO )@@G@@?^KA&J/K@[<(/@@[+$/@)[+$H8@@@[C @A&J[))A&G[C@A&J[ KA&J/,0[16RE0A&C*=@A&HUP )@@G@@/KF@@[ =@A&O:[@@@G/K@[VQ[C@A&KC4@A&GR'0@@? C@A&J[?@A&GAA0A&A/K@[V'C9K[J[1"/K@[+'C8)@@@[DKA&TC9K@@@N80@@]/K@[< ')H-0Q:>J[1"/K@[J[1":8)[1$/KF@@@%8)[1+/KI@@@D9K@@@/KF@@@9?@[2&UU )@@G@@9*@A&*/,0[= &;G@[]Q;@A&*/\0[:-*=@A&O/K@[<5C8K@@[[=KA&ORE0A&CAA0A&CC^@A&DUV )@@G@@/,0[)F/K@[<5 =@A&ORA0A&C/KF@@[9?@[2?C@)[2,9*@A&=[@)A&&[@0A&Y/,0[:1[@0A&$UW )@@G@@C@0A&YC@@[3D/K@[:-CC@A&D(?@A&R/KF@@@C8KA&%C8)A&%/K@[PP )@A&OC8@A$_C8KA&_UX )@@G@@C@)A7D[C@A&S;C)@@S[^KA&S[C)A&EC8@A&%/,0[)F/K@[=R/K@[$-C8K@@[[)KA&O/,0[1,UY )@@G@@ @@A&VC8@A&%C8)[$"KC@A&F&;@@@[[C)A&T[^KA&LC@K[3#*?@A&GQ;K@@D/\)[1)/HK[=7UZ )@@G@@[DKA&V%-@A&P/K@[=,/\)[1)/HK[$"?DKA&V/K@[*@[ KA&VC>KA&P[1KA&I/K@[=2')H-0QVA )@@G@@:[@@@L/K@[=1[D@A&P9*@A&Y/K@[>"[D@A&P9*@A&YC9@[>= *@A&I 0@A&I[ @A&TCC)A&SVB )@@G@@ @@A&UKC)A&EN8K@@@C9K@@@H8)@@[&;)@@[[^0A&MC@0[3#*?@A&GQ;0@@F')H-0Q:D@A&PVC )@@G@@/K@[>88KK[>G(0@A&I/K@[>U?9@@[-/K@[>M?9@@[;H9@@@)')J[1]/K@[>QG80@@[/K@[>WVD )@@G@@!9@@[[!9@@[V/K@[>UG9@@@)')J-1]/K@[>Y/,0[>3/K@[>C/[K[>F9?@A&Y9?)A&WN@KA&UVE )@@G@@C9K@@@/K@[>C%>@A&P/K@[>?/,0[>3')H-0Q:>@A&P/K@[>$:D@A&P/K@[>8(0@A&I(?@A&GVF )@@G@@/K@[$/N80@@[9?@A&Y^00A&I/K@[=./ V@@@C9K@@[9*)A&W^@KA&U/KF@@@C[K@[[C[@A&UVG )@@G@@# KA&V#D@A&V9*@A&Y 0@A&IC^)A&SNCKA&V8KK[&]N8K@@@CCKA&EK8)@@_CC@A&S =@A&OVH )@@G@@ ?@A&I[^0A&MG@K@@G&;@@@[&;)@@[N@0A&L[^KA&LC@0[3#*?@A&GQ;0@@DC@K[3#*?@A&GVI )@@G@@Q;K@@DC9@[&SC9K[*@[D@A&T[ KA&T/K@[&ZC>@A&P')J-0?8KK[&T^?KA&I/K@[&-')H-0QVJ )@@G@@')J-0?8KK[&X9*@A&WC9@[&'N@)A&L^@0A&L9?@A&Y[D@A&T/K@[&*')J-0?')H-0Q%D@A&PVK )@@G@@/K@[&$^@)A&L*?@A&I/K@[&"C8@[&"C @A&V[C@A&T9?@A&WHD@A&VN@K@@K*^@A&V')H-0QVL )@@G@@8KK[&5')H-0Q')J-0?/K@[&7*0@A&I(^@A&V/K@[&"/K@[$"C>@A&P0@J[0?/K@[$#')J-0?VM )@@G@@/K@[&_C@@[2@*?@A&GC@@[2#C@K@@IH8K@@[:@H@@@H8)@@[H^)A&SCC@A&SC^KA&SC)0A&GVN )@@G@@[C)A&E[^@A&S[CKA&S:80@@[/K@[$QC^0A&-?^0A&J/K@[$%C8@A&%/,0[)F/K@[$U/K@[$-VO )@@G@@C)@A&G:8@@@[/K@[=U/\0[$'R'0[$)AE0A&C/K@[<\CC0A&J:^0A&-/K@[$$ C@A&J[C0A&KVP )@@G@@/K@[$(R'0@@CAA0A&A =@A&HCC@A&S:8@A$_/K@[$1&;@@@[C@K[3]NCKA&EM#W)@@CC0A&EVQ )@@G@@;*0@@SQ:0A&FG80@[[[@0A7D/,0[16/K@[WL9?@[2=/K@[* 9?@[2+/K@[* 9?@[2W/K@[*[VR )@@G@@9?@[2Y/K@[*[9?@[2)C))A&GC80[$Y%8)@@[C80[$N9*@A&*9?@[2U9*@A&&[@0A&Y/,0[= VS )@@G@@C@0A&Y&;G@[^Q;@A&&/K@[:-C8@A6_/,0[QF/K@[:%/K@[:J 0@A&G0@@A7D/K@[*?C^0A&-VT )@@G@@*?@A&O/K@[*>C*KA&F**@A&H ^@A7D ?@A7D =@A7D?)KA7D/K@[*J(*@A7D/K@[**!*KA7DVU )@@G@@/K@[*J *@A7D/K@[****@A7D/K@[*J(=@A7DG80@@[[^0A&-/,0[(F/K@[WOC40A7D%80@@%VV )@@G@@/K@[*9(?@A&O/K@[*I(^@A7D/K@[(^C^KA7DK^KA&KG^KA&-[^)A&K[^KA&-/K@[*I:80@@:VW )@@G@@/,0[YLC))A7D%80@@+/K@[(^[?)A&G*?@A&O/K@[(^C=)A&G>8)@@]/K@[*IC8)@@[;)\@@^VX )@@G@@=@)A&+/K@[*I=8)@K@/,0[(F/K@[WO 0@A&GC*@A&G:?@A&G/KF@@@/\)[Z?[@KA7D^0)A&GVY )@@G@@/KF@@@*4@A&H/K@[(UC8@A6_/,0[QF/K@[:%/K@[%!C)@A7DC@K[3EC@)[3F[@KA$_[@)A7DVZ )@@G@@**@A&H[)@A7DC=@A&G+8@@@[[=KA&G[)KA7D(4@A&H/K@[(3C@@AB4+8@@S@/^K[(3C*@A&GWA )@@G@@/)@[(3C=@A&GC8)@@[C00ACB)8@@@[[))A7D)80@@K[=KA&G[1@ACBC8)__"R'0@I::^)A&JWB )@@G@@R'0@@?AA0A&A/K@[X8R'0@^4(4@A&H/K@[("AA0A&A/KF[VIAA0A&ACC@A&FNCKA&FC@K[3]WC )@@G@@C@)[3[C?0A&R[^KA&D;*@@@SM#Y)@@[?0A&G[@@A7DR'0[) /K@[)//C@[%IN8K@@[/K@[%MWD )@@G@@>@@[3G/K@[%NN8K@@]:8K@@_^*KAC[/,0[16*4@A&H/K@[:J*)@A&O/K@[%X C@A&DC80[<;WE )@@G@@*=@A&HC80[$8/\_@@@C8)__" )@A&O:^)A&J/K@[:JC4@A&GR'0@@?[^)A&J[C)A&K C@A&JWF )@@G@@[?@A&GAA0A&A*0@A&O/K@[!M(=@A&H/K@[V'/K@[$(C8)__.K8)@@[%^)A&J/K@[%7R'0@^4WG )@@G@@[^0A&JAA0A&A:C)A&J/K@[VQ/K@[)]:^0A&J/K@[:J9?@[2*[^0A&J9?)[2%9*@A&=9*)A&&WH )@@G@@/,0[:1C[G[1'C@0@@L;>G@@@:[G[1'/K@[:@:[G[2@C@0@@L[@0A&*C@@[3H/\0[:-C@@[3IWI )@@G@@'=@@@H/K@[:DC@@A&^/\0[:-/K@[%N*^@A&K*@@A&G@@@C[G[1'/K@[? ;HG@@@8#K[?^WN )@@G@@C@0@@L/KF@@@ @@@@K[[@A&+AE0A&A9?K[2G9*KA7B9*KA7M9*KA&L @@A&) @@A&-*@@A&8)@@)/K@[!CC*@AB.C))AB.[0KA&H:80@@"[)KA&FWS )@@G@@:0)AB.%@0@@GH8@@@[G8@@@]H@@@@I[=@A&FC8@A&%C80@@]/,0[)MC?0A&G[?0A&R*=@A&IWT )@@G@@/K@[!X*?@A&O/K@[!X/K@[!T*=@A&I/K@[!X*@@AC^/K@[!X1@@A&+/K@[!X ?@A&O9?@[2/WU )@@G@@9?)[2"9*@A7]9*)A7 C4@AB"(4@AB"C8@@@[(4@ACF[4@ACF9?@AB5C@)AB_9*@A6_[@)A7^WV )@@G@@C8@A6_/,0[SX/K@[:%C@KA7CC8)@@[C4H@@@%8@@@*/K@[\MC@H@@@:@@[3@/K@[\MC).@@@WW )@@G@@C>@A&GC?H@@@[40A&G/ @[!7C9J@@[:9@@@#G[@@@JH9@@@[[>@A&G/@@[,E:8@@@S/K@[,EWX )@@G@@R'0@@[(@@AB7/K@[,D9!H@@@9?@[2M9?)[2O9(@A&*9*@A&=C@@[3J9*)A&&'=@@@IA%0A&HWY )@@G@@ =@A&H(?@A&O/K@[,OC@KACI9?)AC]C8@A7E[@KA7J[@KACG9*)A7E/,0[UFC80@I C>@A&GWZ )@@G@@C5KA&GC0@ACBRE0A&A/>@[,W+8@@@\/K@[,X)8@@@K 0@A&O[^0A&A[!KA&G[0KACB/KF@@[XA )@@G@@/@@[,=H8@@@[[4KA&H[=@A&G(4@ACF[4KACF9?KAC]C@@[3K9*KA*_'=@@@UC4@A( ?8@@@KXB )@@G@@/K@[,E9?@[2/9?)[2"C9@@@C9*@A7H9*)A7K[1@A7H/K@[,E(?@A&O/K@[,.(@@AC]/K@[\JXC )@@G@@C@@ACG9?KAC]/K@[\[)[@[23C@@AB_9?KAB5[[KA&+[@@A7^9*KA6_9?K[2/9?0[2"C8@A6_XD )@@G@@9*KA7]9*0A7 /,0[SX/K@[:%C@KA7CRE0A&AC@H@@@[4@A&G[?@A&GC8@@H@[^@A&A/KF@@[XE )@@G@@C[X@@[9?K[2I9?0[2KC@@[3H[[KA&*9*KA&=9*0A&&'=@@@I/K@[:(C8@A6_AE0A&A*4@A&HXF )@@G@@*@@A&G@@@C-G)@@/,0[0R!@@A&L/K@[0>'OK[3LXK )@@G@@C5G@@@/KF@@@CLG@@@CTG@@@CPG)@@/,0[0)!@@A&L/K@[0>'OK[3MCXG@@@/KF@@@CCKA&TXL )@@G@@/KH@@@[1I@@@[!I@@@[(I@@@[>I@@@[-I)@@/,0[0!!@)A&M/K@[0;'O0[3L[5I@@@/KF@@@XM )@@G@@[LI@@@[TI@@@[PI)@@/,0[06!@)A&M/K@[0;'O0[3M[XI@@@/KF@@@RA0A&T/KF@@@%1I@@@XN )@@G@@%!I@@@%(I@@@%>I@@@%-I@@@/,0[1#G8)@@[!@)A&M/K@[0;'O0[3L%5I@@@/KF@@@/KF@@[XO )@@G@@%LI@@@%TI@@@%PI@@@/,0[1I**@A&I/K@[1VG8)@@[!@)A&M/K@[0;(0@A&I/K@[1W^*0A&IXP )@@G@@%XI@@@/KF@@@'O0[3M *@A&I/KF@@[ *@A&I'O0[3M%XI@@@/KF@@@/KF@@[C>KA&P')H-0QXQ )@@G@@:[@@@L/K@[1-D9K@@@/K@[1$')H-0Q?9@@@'?9@@@0/KI@@@T9K@@EH9@@@0G[K@@K/K@[1&XR )@@G@@1O@[2E/KF@@@B4@@@H>8K@@CG8K@@C[)KA&HB0H@@@/KF@@@()@A&H/KF@@@B4@@@H=8K@@CXS )@@G@@H8K@@CB0H@@@ )@A&H/KF@@@RA;A CARD COUNT9@@@^=9@@@)/K@AL3=9@@@]^\0AKK/-@AL!AF )@@G@@/KF@@@[^@AKO[C@AKO?^@AKO?C@AKOC @AKOCD@AKO@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@ @@@@@@@K@@@@@@@@@@@@@@@@ @@@@@@@K@@@@@@@@@@@@@@@@AH )@@G@@)@@@@C@@@@@@ POSSIBLE BAD INSTRUCTION AT IN ELEMENT AI )@@G@@@[GAMIGENERATED ADDRESS IN ELEMENT AJ )@@G@@ IS OUT OF RANGE @[GAMVBIT LIMITS DEFINING FIELD INVALID IN ELEMENT : AK )@@G@@ELEMENT NAME@[EAM*WARNING - TRUNCATION OF FIELD 000000000000 AT ADDRESS AL )@@G@@000000 BITS RR-LL IN ELEMENT IS POSSIBLE OVER-65K ADDRESS AM )@@G@@FIELD @[LAM8@[KAM3** TRUNCATION AND OVER-65K MESSAGES SUPPRESSED - MAX OAN )@@G@@F 50 REACHED ** @[GANF ELEMENT START ADDRESS NOT UAO )@@G@@SED - OUTSIDE MAIN SEGMENT LIMITS @[IANS ELEMENT START ADDAP )@@G@@RESS NOT USED - ALTERNATIVE FOUND @[FAN$ ELEMENT START ADDAQ )@@G@@RESS NOT USED - NOT INITIALLY LOADED@[FAN3 IN INDIRECT SEGMEAR )@@G@@NT REFERENCED ILLEGALLY WITH OFFSET FROM @[IAN_ AS )@@G@@ REFERENCED FROM IS UNDEFINED NAME FOR BANK : AT )@@G@@@[IAOI@[EAOILC # <#> UNKNOWN TO LC : <#> ELEMENT < ELT NAME > BANK AU )@@G@@ @[GAOY@[DAOY IS NOT USED IN AN OP CODE FIELD. REFERENCEAV )@@G@@D IN @[FAO?LOCAL-GLOBAL CONFLICT : REFERENCED AW )@@G@@BY LC <#> ELEMENT < ELT NAME > BANK @[KAO8@[HAO8BDI OF EP : AX )@@G@@ NOT AVAILABLE TO DUE TO LOCAL INCLUSION @[HAPEAY )@@G@@< ELTNAME >TO ANOTHER BANK - CANNOT BE SATISFIED @[DAPS< ELTNAME >AZ )@@G@@UNDER ZERO LENGTH LC - CANNOT BE SATISFIED@[DAP+USE OF BANK-NAME OR SEG-BA )@@G@@NAME NOT ALLOWED WITH BDICALL$/BDIREF$. EP MUST BE USED. BB )@@G@@@[KAP?* WARNING * REFERENCING AT ADDRESS BC )@@G@@ @[GAP. GREATER THAN LARGEST DEFINED IN THIS RB @[BAQE UNDEFINED FBD )@@G@@OR THIS RB @[^AQM HAS ZERO LENGTH LC : # NOT INCLUDEBE )@@G@@D . NO VALUE GIVEN@[GAQR@@[@@@@@@___@@#__/ XREF FIRST$LASTR$LAST$ BDI$ BF )@@G@@DBJ$ IBJ$ REF$ CALL$ B2L$ B2O$ LC # GROUP______@@@K@@@@J0@@_@@@@@BG )@@G@@@/@@@@@#0@@@IH FDASC @@@@@@@@@@@@@@@@@@@@SAK=@@@@@@@@@@@@@@@@@@@@SAK=BH )@@G@@@@@@@@#@@@@@@@@@@@@@G@@@@@@@@@#@@@@@@@@@@@@@G@@@@@@AK=@@@AK=@@@@@@@@@@@@BI )@@G@@@@@AK>@@@AK&IDJ$ IDSLJ$ IDJD$ IDSJD$ IDJA$ BJ )@@G@@ISLJA$ IDJAD$ ISJAD$ '^@@@@'^@@@@ INDIRECT LOAD SUBROUTINBK )@@G@@ES NOT AVAILABLE - IDL ENTRIES FILLED WITH ER ERR$ INSTRUCTIONS @[JAR=BL )@@G@@COR : REPLACED : AT ADDRESS IN ELEMENT BM )@@G@@ - WILL ACTIVATE SNAP DUMP PRIOR TO EXECUTION @[IAR4@[LAR9BN )@@G@@@@#__/___Z__@@ __''=@@@)/,0@"%/,0@_O/,0@_R/,0@"?/V@@@@/,0@"%@@@@@@@@@@@@BO )@@G@@PSF$ @@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DIAG$ BP )@@G@@ @@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@___BQ )@@G@@@@[@@@@@[@@@@@[@@@@@@___ XREF FIRST$LASTR$LAST$ BDI$ DBJ$ IBJ$ REF$ BR )@@G@@CALL$ B2L$ B2O$ LC # GROUP______/,0@>S/,0@&]/,0@& /,0@>U/V@@@@/,0@>SBS )@@G@@@@[@@@@@[@@@$ $, 1$ 1$,2$ 2$,3$ 3$,4$ 4$,5$ 5$,6$ 6$,7$ 7$,8$ 8$,9$ 9$,BT )@@G@@PSF*** @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ASG,T PSF***///BU )@@G@@3000 @@[__"@@^AT;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B=AKG@@@___@@@___@@@___BW )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___BX )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___BY )@@G@@)@@@@I)@@@@Q@@@@@[BLANK$COMMONRB ELEMENT NOT FOUND: BZ )@@G@@ @[DAKLRB ELEMENT NOT FOUND: @@[__"@@@@@@ NO ELEMENT WITH *CA )@@G@@DEF* ENTRY POINT: @[CAK-@@[@@@CBEP$$G J@@@G Z@@@G9@@@[G9K@@[CB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CC )@@G@@@@@@@@@@@@@@)@@@@@@@@@@@@@@@@@ENT SPECIFIED ENTRY POINT : < EP NAME >CD )@@G@@ IS NOT IN ANY INCLUDED ELEMENT -NOT USED@[IAL[THE MAIN SEGMENT CE )@@G@@ AN INITIALLY BASED BANK SPECIFIED ON TYPE IBJLNCF )@@G@@K NOT INCLUDED IN COLLECTION @[FALU SPECIFIED ON TYPE IBJLNCG )@@G@@K NOT DEFINED IN COLLECTION @[FAL&RSEG HAS SIZE : CH )@@G@@ GREATER THAN 65K - NOT INCLUDED IN COLLECTION @[JAL2START OF DBACI )@@G@@NK SET AS FAR AS NECESSARY OR AS POSSIBLE BELOW @[EAM]CURRENT STANDARD 0CJ )@@G@@40000 TO MINIMIZE USING ADDRESSES OVER 177777 - @[FAMHPROGRAM MAY NOT LICK )@@G@@NK$ SUCCESSFULLY TO RE-ENTRANT PROCESSORS @[EAMT - ALTERNATIVE IS TO USECL )@@G@@ E OPTION @[AAM=START OF DBANK SET ABOVE CURRENT STANDARD 040000 IN ORCM )@@G@@DER TO MEET @[FAM:MINIMUM ADDRESS REQUIREMENT -COM BLOCK @[EAM7SYSTEM NOTE: STANDARD RE-ENTRANT PROCESSOR MAY NOT EXCEED ACO )@@G@@DDRESS 037777 @[HAN]PROGRAM IS TOO BIG - ADDRESSES OVER 0777777 (262CP )@@G@@K) ARE TRUNCATED @[FANKNO ELEMENTS IN SEGMENT: ,BANK: CQ )@@G@@ @[AANW@[DANWCOMBINED LC LENGTH EXCEEDS 65K - NON FATAL ERROR CR )@@G@@@[DAN$WARNING - I-BANK ADDRESS EXCEEDS 0177777 (65K)@[EAN1CS )@@G@@FOR DBANK @[^AN/ENT ENTRY POINT NOT GLOBAL-CT )@@G@@-NOT USED @[EAO[ MINIMUM ADDRESS IGNORED - LC 0 NOT CU )@@G@@IN DBANK @[AAOG@[EAOG BANK HAS USER SPECIFIED STARTING ADDRESS@[BAOSCV )@@G@@DBANK ASSIGNED SUCH THAT SETMIN IS SATISFIED CW )@@G@@@[GAO)FATAL ERROR - NO RB ELEMENT PRODUCED - HIGHEST LC# ALLOWED IS 077-CX )@@G@@ HIGHEST LC # NEEDED IS @[KAO!WARNING: EP UNDER VOID CY )@@G@@LC ASSIGNED VALUE @[FAO" ELEM FOR RSEG CZ )@@G@@ CANNOT LOAD DATA INTO COMMON BLOCK LOCATDA )@@G@@ED IN SEG @[FAPE@[FAPPSETAFCM =SENSITIVITY OF ABSOLUTEDB )@@G@@ ELEMENT / CLRAFCM =SENSITIVITY OF START ADDR ELEMENT @[KAP+AFCM SDC )@@G@@TATUS OF OUTPUT ELEMENT=UNKNOWN @[BAP3QUARTER/THIRD WORD INSENSITIVEDD )@@G@@@[ AP;QUARTER-WORD SENSITIVE @[^AQ[THIRD-WORD SENSITIVE @[^AQA@@@___DE )@@G@@ @@[@@@@@]AD8@@[@@@SETAFCM CLRAFCM INSAFCM )@@@@B@@[ALEDF )@@G@@SEG RSEG OF ELEMENT @@C@@@)@@@@@@@@@@@*SNAP* CALLS ON UNDEFINED LC DG )@@G@@ IN ELEMENT @[FAQZ ENTRY POINT NOT FDH )@@G@@OUND FOR SNAP @[CAQ:*COR* OF NON-EXISTENT ELEMENT: @[BAQ4DI )@@G@@NO GLOBAL LC IN ELEMENT - COR IGNORED @[EAQ/EP DJ )@@G@@ NOT GLOBAL - 0 USED IN COR @[CARB ELEMENT WAS COR*SNAP*DK )@@G@@*COR* ______-SNAP SNAP ENTRY POINT SNAP @_____RB ELEMENT NOT FOUDL )@@G@@ND: @@[@@@CBEP$$@@]AD8SETAFCM CLRAFCM INSAFCM )@@@@B OF ELDM )@@G@@EMENT @@[@@@@@C@@@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO )@@G@@@BZAKG@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___DP )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___DQ )@@G@@@@@___@@@___@@@___@@@___@@@@#/@@@@#/)@@@@H)@@@@P@@@@@@@@@@@@@@@AAV@@@@@@DR )@@G@@ IS EMPTY @[^AKO * FATAL ERROR * : NO FILES AVAILABLE TO CDS )@@G@@OLLECTOR @[DAKT DOES NOT CONTAIN AN ENTRY POINT TABLE @[CAK: DT )@@G@@ NOT FOUND IN FILE DOES NOT EXIST ASDU )@@G@@ A COMMON BANK @[CAK3I/O STATUS FROM IOW$ ON ERROR RETURN FORDV )@@G@@M BSP @[DAK/ IS NOT A PROGRAM FILE @[AALAINTERNAL COLLECTORDW )@@G@@ ERROR: UNEXPECTED RETURN FROM ADDIN@[DALHERROR RETURN FROM RPFET$/RPFEPDX )@@G@@T$ BSP CALL FILE : STA : @[GALRERROR RETURN FROM ER PFWDY )@@G@@L$ FOR RO FILE STATUS : @[DAL=MAP$PF TPF$ SYS$ RLIB$ $MAIN$DZ )@@G@@ IDJ$ ^@@@@@IDJA$ IDJD$ IDJAD$SNAP$$SNAP$ @@[@@@)@@@@A)@@@@@@@@@@@EA )@@G@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ EB )@@G@@ X IN BYPASSED - DUPLICATES ELEMENT NAME AEC )@@G@@LREADY SPECIFIED @[KAMF ELEMENT IN FILE NAME BYPASSED - DUPLICAED )@@G@@TES ALREADY ENCOUNTERED COMMON BLOCK@[IAMW EXISTS IN FILE EE )@@G@@ WITH DIFFERENT VERSIONS@[FAM:BSP CALL ERROR RETURN ON FILE EF )@@G@@ TATUS AT ADDRESS @[HAM7 EG )@@G@@ AMBIGUITY IN FILE ELEMENT LIST @[HAN EH )@@G@@ @[ ANNELEMENT ENTRY POINT @@@@@@@@@@@@$@@@@@EI )@@G@@ BSP S I/O S_@@@@@B2L$ B2O$ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EJ )@@G@@ ENTRY POINT ALREADY DEFINED EK )@@G@@ @[HAN?BY REFBY EQU STATEMENT BY SEG BANK @@@@@@@@@@@@@@@@@@@K@@@@EL )@@G@@@@@@@@@@@@@@ IS ILLEGAL LENGTH FOR LOCATION COUNTER< > IN ELEM )@@G@@EMENT @[HAOAMORE THAN 1 GLOBAL INCLUSION OF LC <#> FOR ELEMEN )@@G@@ENT (LC IS VOID) @[IAOO@[FAOOELEMENT EO )@@G@@ HAS MORE THAN 2048 LOCATION COUNTERS. RANGE OF COUNTERS 0 - 2047 EP )@@G@@@[KAO=ELEMENT HAS NO LC S - NOT INCLUDED @[DAO5@@@@Z_EQ )@@G@@@@[@@@Z_____)@@@@@[CD@@@[^D)@@@@@@@@@@@@@@@@@@@@$ PREFIXED TO COMMON BLOER )@@G@@CK NAME TO AVOID DUPLICATING ELEMENT NAME @[HAPCILLEGAL GROUES )@@G@@P # IN INFO DIRECTIVE IN ELEMENT IS IGNORED @[GAPQSAME LET )@@G@@OCATION COUNTER USED FOR DIFFERENT COMMON BLOCKS IN ELEMENT EU )@@G@@@[HAP@[EAP1EV )@@G@@COMN BLOCK INCLUDED MORE THAN ONCE EITHER DIRECTLY OR BYEW )@@G@@ FORM - ONLY FIRST IN OF CB PROCESSED @[NAP/BLANK$COMMON$@@@@@@@[@@@EX )@@G@@SNAP$ TPF$ @ASG,A @FREE, @USE @@@@@@EY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EAQYCSF$ STATUS EZ )@@G@@ FROM @[ AQ( HAS WRONG PROJECT FOR PRIVATE FILE @[CAQ\FA )@@G@@ IS NOT CATALOGUED OR ASSIGNED@[BAQ8 NEEDS A REAFB )@@G@@D KEY FOR ACCESS @[BAR@A $ @@^AQQ@@C@@@@[@@@@@@^AQUMAP$PFFC )@@G@@ TPF$ SYS$ RLIB$ $MAIN$ )@@@@A$@@@@@@@[@@@ BSP S I/O S_@@@@@FD )@@G@@B2L$ B2O$ BLANK$COMMON$@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@______FE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@Z @)$@@@___@]*AQC[K@@GGG )@@G@@9??@@@C^G@@A9*?@@@'=@@[GC4?@@AC@@@@L!8)@@S!8)@@)/K@@>QCC?@@B?8)@@^/K@@>QGH )@@G@@+/)__/C[G@@ [C/@@B+9@@@#T80@@WH[@@@L%C?@@B[C/@@^T9K@@WG@K@@L[[G@@ [^W@@DGI )@@G@@C@W@@A[^W@@^;@K@@M'=@@@#C[W@@ GDW@@B[[W@@ C5W@@#/[K@>=%9K@@ /KF@@@(^G@@#GJ )@@G@@/KF@@@[^W@@^;@K@@M[@W@@A'=@@@[/KF@@[0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ /KF@@@GK )@@G@@C@W@@DC@?@@E[@!)@@;K)@@S/C)@>5C0?@@E[^?@@BC@?@@C[@W@@DC G@@DG G@@BC W@@AGL )@@G@@GDW@@^H[@@@L/D@@&]N^W@@BM#Y)@@[@W@@D/KF@@[C W@@BH[K@@KN@K@@LM#Y)@@[ G@@BGM )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@DGN )@@G@@'=@@@[C@W@@D(^G@@]/K@@>8C G@@]KDG@@BT9@@@W[DW@@BC[W@@ H W@@]GDG@@^ ^G@@]GO )@@G@@0@G@@#'=@@@A[[W@@ [DG@@^/K@@>8C^W@@A[^W@@D ^G@@]C@?@@ CCW@@B+8)@@#+8K@@#GP )@@G@@(@@@@J/@)@$@C@K@@G9??@@@C^G@@A9*?@@@'=@@[GC4?@@AC@@@@H!8)@@S!8)@@)/K@@$@GQ )@@G@@CC?@@B?8)@@^/K@@$@+/)__/C@W@@ +8K@@#[^?@@]H@0@@I[C/@@BC[W@@ HDW@@B[[W@@ GR )@@G@@CDW@@BT9K@@W[DW@@^/KF@@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C^W@@AGS )@@G@@[^W@@^C^W@@DC@)@$&[@!@@@H^W@@AG8K@@[;GK@@=W8K@@W/@)@$TG8K@@[K8K@@#+/)__/GT )@@G@@C@)@@J!C?@@BCC?@@BT8)@@W[C?@@^G@W@@ '=@@@#[@W@@ C5W@@#/ V@@@/KF@@[_@@@@@GU )@@G@@C80@@@/K@@$%C80@@[AE0A&ARA0A&A[@@A&B[*0A&G/KF@$$CC@A&FK8@@%@;*K@@S[@KA7DGV )@@G@@C5KA&GC@K@_UC@)@_V[!KA&G:!KA&R/K@@$_R'0@)$*?@A&RR'0@-,/,;@@@[0@A7D/K@@*[GW )@@G@@N@K@@GM#!)@@ )@A&OC)@A&GC8K@^4/@@@*EC8K@@?:8@@@][)@A&O/)@@*E[=@A&HC8)@K@GX )@@G@@[^KA&A>@)A&+/K@@*% 0@A&G/,0@:!*KA7DGZ )@@G@@/K@@:I *@A7DC^0A&-G80@@[[^0A&-!C0A&J/K@@%2/,0@5=/,0@:Z/K@@8#C@@@_V&;)@@[HA )@@G@@QB)A&BCDKA7D;DK@@A0@@A7DC1KA7D!DKA&BCDKA&BC*KA&GC80@@A/@K@(PC80@@D(=@A&GHB )@@G@@(?@A&G/K@@(PC5@A7D0@@A7D:9@@@%/K@@(]/K@@(PK@)@@LC8K__"[^0A&MC80@(M[^KA&LHC )@@G@@[^0A&T/,0@"BC@K@_WC@0@_W')H)/8?9@@[;?9@@[-/K@@(KH9@@@)')J).I/K@@(F/,0@"JHD )@@G@@C80@@D/K@@(T*0@A&GQ;@A&_N@K@@LM#?)@@C@@@@JHDKA&BE[K@@L/[K@(%C[J@"NC@_@"NHE )@@G@@/-K@(-[@")@@;DK@@[&;)@@]/-K@(>9*")@@;DK@@[/K@@((9*")@@9*")@@8^K@($0@@A7DHF )@@G@@/K@@%BC)KA7DU@K@_X;@)@@[U8)@@EG8K@@0G8)@@0;@?@@@;GW@@@C8K@@0%8@@@D;GW@@@HG )@@G@@C@W@"N(=@A7D/K@@(_G=W@"S;GK@@MC@/@"MC9@@@@/K@@%B;GW@@@;GW@@@%8@@@D;GW@@@HH )@@G@@C@/@"N*?@A7D/,0@8HC @A&-C@KA7D;C@@@#RE0A&A/GV@@]C KA&)(C@A&)G9K@@[ C@A&)HI )@@G@@[ KA&)/KF@@]C40A7DC@KA7D%80@@+/K@@%S[4KA&G[?KA&G/K@@*N:80@@:/,0@%%C8)@@[HJ )@@G@@ 0@A&G;)\@@^=@)@_G/K@@*NC80A$_C@KA7D/,0@:!/K@@8#C40A7DC8)@@[;)\@@^>@)A&+HK )@@G@@/K@@*!RA0A&A/KF@$$C^KA7D?^KA&)/KF@@@ C@A&)%^KA&)[C0A&)[^KA&)/KF@@@(C@A&JHL )@@G@@/K@@%9%C0A&J/K@@:BC8K@@C[^KA&A/K@@*%CC)A&K[C)A&J/@)@:B(^@A&K/K@@**C9K@@[HM )@@G@@&;K%@@QBKA&K[!KA7D/,0@:,/K@@8#C^0A&-C*KA&F/K@@**G8K@@[C^)A&K[*KA7DG8)@@[HN )@@G@@[4KA&I[^)A&K(=@A&H 4@A&I(0@A&H/K@@:RC=0A&F!*0A7D/K@@:R 0@A&G/,0@:Z/K@@8#HO )@@G@@*4@A&I/K@@0=C^0A&-%^0A&J/K@@*NR'0@^4AA0A&A/K@@?V*0@A&H/K@@:3*?@A&O )@A7DHP )@@G@@C@KA7DC>KA&G(?@A&O/KF@@[C80A$_:!KA&G/K@@?](0@A&G/\)@? C80A&_[^0A7M[@KA7OHQ )@@G@@(?@A&O/KF@@[C8@A7E/K@@>\0@@A7D/K@@:/K@@6?/^0@!#*=@A&G/K@@!#'=@@@H/K@@! HX )@@G@@'=@@[6C80@@[0@@A#//K@@!GC0KA& %8K@@^/K@@!G>@@@_Z/K@@7>[C@A&D[C@A&F;*@@@SHY )@@G@@[?0A&G[@@A7D*4@A&H/K@@*%*0@A&O/KF@@@C@@A&D(?@A&H/K@@!YG@@@_)*?@A&G/K@@!XHZ )@@G@@'=@@@I/K@@!Y'=@@@8(C@A&D/KF@@@C@0@_-(?@A&G;@0@@MC@?@@@C4ZA&IC Z@"R;C!@@@IA )@@G@@[ KA&P%@\A&H/KF@@@CDKA&DAE0A&C/,0@"BC^@A&DC9@@0C&;@@@[C@K@_U!9K@@PC9K@@PIB )@@G@@[D@A&T:@@@@H/K@@!9N@K@@LC@)@@GM#Y)@@C?)A&GG9W@@@Q;K@@@[?)A&R*?@A&GQ;K@@DIC )@@G@@[ KA&LN*KA&O')H)/\8KK@,[')H)/\:>J@"R/K@@,#:1J@"R/K@@\M*)@A&O/K@@,Q9*@A&WID )@@G@@@@@@]5@[^@@@@@@@[H@@N@@@@@@@]]@@@@@@@@@@#F@@"@@@@^=@^-@[C@@@@@@@@?@^O@@@IE )@@G@@@^P@[X@^E@@@@@@@^A@@S@@@@@@@@@@@+@@@@[9@@3@[;@@@@@@@@@@@H@@@@@@@#B@@U@@@IF )@@G@@@@@@@C@[?@@@@@@@]0@])@@@@@@@[V@@#@@@@@@@]1@]@@@@@@@@[8@]<@[/@@@@@Z@@:@@@IG )@@G@@@@@@@@@#0@]G@[K@[%@#<@@@@[\@@1@[]@@@@@@@@B@@V@@@@@@@[(@@^@@@@@@@]-@@@@@@IH )@@G@@@@@@^W@@@@@@@@@@[,@]7@@@@@@@[A@@@@@@@@@@@@@]8@@@@]C@#S@]V@@@@@@@]&@]$@@@II )@@G@@@@@@@I@@@@@@@@@@@@@@@@]Q@@@@]"@@)@[2@@[@@'@@X@@@@@@@@@@@4@@@@@@@@A@@W@@@IJ )@@G@@@@@@@7@@@@@@@@@@@K@[@@@@@@@@@G@[B@@@@@@@#3@@@@@L@[4@@(@[R@@@@#R@#J@#A@@@IK )@@G@@@@_@@<@#[@@@@@]@]W@@@@@@@@@@@9@[$@@@@@@@[W@@;@@@@@@@@5@@$@@@@@@@@@@@.@@@IL )@@G@@@@@@@%@[M@@@@@@@@E@@!@@@@@@@@@@]B@@@@]K@@D@@R@@@@@@@@@@#_@@@@@@@#,@@Y@@@IM )@@G@@@@@@@6@@J@@@@@@@]*@@T@@@@@@@@@@@O@@@@@@@[>@]I@@@@@@@#8@@M@@@@[:@@@@[O@@@IN )@@G@@@@@@]N@[1@@@@@@@]O@@F@@@@@@@]H@[G@@@@[6@]J@[0@@@@]S@@,@@P@@@@]^@[P@@=@@@IO )@@G@@@@@@@-@[5@[!@@@@@Q@@*@@@@@@@]F@@@@@@@@@@@>@@^@^$LIPROC$ @@]@@@@@@GP^IP )@@G@@LIPROCS @@]@[L@@@GP^FORK$ @@#@#U@@@G:%TFORK$ @@#@@ @@@G:%IQ )@@G@@FORK$P @@#@[I@@@G:%TFORK$P @@#@@@@@@G:%EXIT$ @@#@@@@@@G!BIR )@@G@@ERR$ @@#@@&@@@G!BABORT$ @@#@^T@@@G!BEABT$ @@#@#L@@@G!BIS )@@G@@XCTS$ @@#@],@@@G!BACSF$P @@#@]P@@@G!6CSF$P @@#@@@@@@G!6IT )@@G@@ACSF$ @@#@#/@@@G!6CSF$ @@#@@0@@@G!6CSF$S @@#@#K@@@G\UIU )@@G@@ACSF$S @@#@[_@@@G\UAWAIT$ @@#@#:@@@G0QAWAIT$P @@#@@/@@@G0QIV )@@G@@NAME$ @@#@]\@@@G1*NAME$P @@#@]?@@@G1*IDENT$ @@#@@2@@@G2IIW )@@G@@INT$ @@#@@@@@@G2IZ )@@G@@CTSA$ @@#@[U@@@G4>CTSQ$ @@#@]M@@@G5URT$ @@#@[ @@@G5'JA )@@G@@RT$P @@#@]X@@@G5'NRT$ @@#@^#@@@G6ZTWAIT$ @@#@[J@@@G64JB )@@G@@TWAIT$P @@#@[Q@@@G64SWAIT$ @@#@@@@@@G7USWTCH$ @@#@@@@@@G7UJC )@@G@@SETC$ @@#@#*@@@G77SETC$P @@#@^&@@@G77COND$ @@#@#X@@@G8XJD )@@G@@DATE$ @@#@#W@@@G82TDATE$ @@#@] @@@G82TIME$ @@#@]!@@@G82JE )@@G@@MCORE$ @@#@@8@@@G9PLCORE$ @@#@][@@@G9PMCORE$P @@#@[T@@@G9PJF )@@G@@LCORE$P @@#@[*@@@G9PPSR$ @@#@[E@@@G'PPSR$P @@#@]A@@@G'PJG )@@G@@BANK$ @@#@[Z@@@G;+BANK$P @@#@[3@@@G;+INFO$ @@#@^@@@@G.:JH )@@G@@INFO$PKT @@#@[.@@@G.:INFO$P @@#@[<@@@G_@@@HZ$KA )@@G@@PNCHA$PKT @@#@@@@@@H)DAPNCHA$PKT @@#@@@@@@H)DPNCHA$ @@#@#D@@@H)JAPRTCN$ @@#@]9@@@H>JKG )@@G@@PRTCA$ @@#@]T@@@H>JAPRTCA$ @@#@@@@@@H>JPCHCN$ @@#@]2@@@H>JKH )@@G@@APCHCN$ @@#@@@@@@H>JPCHCA$ @@#@@@@@@H>JAPCHCA$ @@#@@@@@@H>JKI )@@G@@PRTCN$P @@#@]%@@@H>JAPRTCN$P @@#@#=@@@H>JPRTCA$P @@#@#^@@@H>JKJ )@@G@@APRTCA$P @@#@@@@@@H>JPCHCN$P @@#@@@@@@H>JAPCHCN$P @@#@^]@@@H>JKK )@@G@@PCHCA$P @@#@@@@@@H>JAPCHCA$P @@#@@@@@@H>JPRTCN$S @@#@]U@@@H*AKL )@@G@@PRTCA$S @@#@@@@@@H*APCHCN$S @@#@@@@@@H*APCHCA$S @@#@^S@@@H*AKM )@@G@@APRTCN$S @@#@#"@@@H*AAPRTCA$S @@#@@@@@@H*AAPCHCN$S @@#@];@@@H*AKN )@@G@@APCHCA$S @@#@@@@@@H*ATREAD$P @@#@@@@@@H(:ATREAD$P @@#@^K@@@H(:KO )@@G@@ATRD$P @@#@@@@@@H(:TREAD$ @@#@@@@@@H(:ATREAD$ @@#@@@@@@H(:KP )@@G@@ATRD$ @@#@]3@@@H(:CLIST$PGEN @@#@^Y@@@H:ZACLIST$PGEN @@#@#!@@@H?UKQ )@@G@@CLIST$PKT @@#@#;@@@H!,ACLIST$PKT @@#@#%@@@H!,CLIST$ @@#@@@@@@H,NKR )@@G@@ACLIST$ @@#@@@@@@H,NACLIST$P @@#@#)@@@H\@@@H.6MSCON$P @@#@@@@@@H.6LF )@@G@@DGET$PKT @@#@#4@@@H"(DGETP$PKT @@#@@@@@@H"(DREAD$PKT @@#@@@@@@H_@@@ITYMC )@@G@@ALJSF$ @@#@@@@@@ITYLJSF$1 @@#@^<@@@ITYLJSF$2 @@#@@@@@@ITYMD )@@G@@ALJSF$1 @@#@@@@@@ITYALJSF$2 @@#@@@@@@ITYFDCVT$ @@#@@@@@@IUXME )@@G@@LIT$ @@#@@@@@@IU6EQUF$ @@#@@@@@@IVTOPT$$ @@#@@@@@@IXJMF )@@G@@CTS @@#@@@@@@I,LTTW @@#@@@@@@I,=TQW @@#@@@@@@I,=MG )@@G@@JTW @@#@@@@@@I\@JQW @@#@@@@@@I\@SETQW @@#@@@@@@I\+MH )@@G@@SETTW @@#@@@@@@I\+THIRD @@#@@@@@@I0EQUARTER @@#@@@@@@I0EMI )@@G@@REZ @@#@@@@@@I0>SNZ2 @@#@@@@@@I1+DIU @@#@@@@@@I2-MJ )@@G@@ ******* @L@[@@ 69. 00 . ******* 3RMK )@@G@@1 - HANDLE ASCII PRINT CONTROL IMAGES ******* @@@[@@ML )@@G@@(L@@@@ 70. 00 . ******* - UPDATE TEST FACILITY MM )@@G@@ ******* @L@[@@ 71. 00 . ****MN )@@G@@*** - USE BYTESUB 2R2 ******* MO )@@G@@@L@[@@ 72. 00 . ******* - GENERALIZE INPUT STRING LMP )@@G@@OGIC ******* @L@[@@ 73. 00 . ****MQ )@@G@@*** - ADD INPUT STRING VARIATIONS ******* MR )@@G@@@L@[@@ 74. 00 . ******* - PROCESS ANY SDF FILE (EVEMS )@@G@@N IF NOT PRINT FILE) ******* @L@[@@ 75. 00 . ****MT )@@G@@*** ******* MU )@@G@@@L@[@@ 76. 00 . ****************************************MV )@@G@@********************************** @E@]@@END ELT. ERRORS: NONE. TIME: MW )@@G@@ 1.127 SEC. IMAGE COUNT: 76 +@@@@[@A@#@[C[#D9KFC?ES)D-DCK%ETTD*,D-DE[MMX )@@G@@D9#ES)+@@@@@@C@[@@FURPUR 27R3A E35 SL73R1 04/16/80 10:28:18 @[@[@@MY )@@G@@ 1 SYM@^@#@@@COPY,S LIB*SYM.ERPROCS @[@[@@ 1 SYM@^@#@@@COPY,SR LIB*SYM.BMZ )@@G@@YTESUB@#@[@@ 1 SYM 1 REL @ @#@@@ . COPY,A SYS$*LIB$.QUICKTPR @D@#@@NA )@@G@@@COPY,A NEW*LIB$2.QUICKTPR . ***** TEMP @[@[@@ 1 ABS@^@#@@NB )@@G@@@COPY,S LIB*SYM.QUICKTPR@[@[@@ 1 SYM@[@#@@@PRT,T@ @]@@LI*TPF$(0) ELEMENNC )@@G@@T TABLE @L@]@@D NAME VERSION TYPE DATE ND )@@G@@ TIME SEQ # SIZE-PRE,TEXT (CYCLE WORD) P(#@@@@SRMODE LOCATION NE )@@G@@@O@[@@ QUICKTPR DOC ELT SYMB 16 APR 80 10:28:18 NF )@@G@@ 1 39 5 0 1 1792 @O@[@@ LIPROCS NG )@@G@@ ASM PROC 24 MAR 80 10:26:19 2 NH )@@G@@ 56 5 26 5 1831 @O@[@@ ERPROCS NI )@@G@@ ASM PROC 09 NOV 79 10:54:17 3 323 5 3 4 NJ )@@G@@ 1887 @O@[@@ BYTESUB SYMBOLIC 26 MNK )@@G@@AR 80 15:01:39 4 274 5 11 5 2210 NL )@@G@@@O@[@@ BYTESUB RELOCATABLE 26 MAR 80 15:01:58 NM )@@G@@ 5 2 27 2484 @O@[@@ QUICKTPR NN )@@G@@ ABSOLUTE 20 MAR 80 09:17:58 6 NO )@@G@@ 90 2513 @O@[@@ QUICKTPR NP )@@G@@ ASM SYMB 19 MAR 80 14:15:15 7 160 5 49 5 NQ )@@G@@ 2603 @O@[@@NEXT AVAILABLE LOCATION- NR )@@G@@ 2763 NS )@@G@@@D@]@@ ASSEMBLER PROCEDURE TABLE @P@]@@D NAMENT )@@G@@ LOCATION LINK D NAME LOCATION LINU )@@G@@NK D NAME LOCATION LINK @N@[@@ ABORT$ NV )@@G@@ 52935 3 ABSAD$ 55065 3 ABSANW )@@G@@D$P 55065 @H@@@!. ******* 'L' - PRINT ALL HEADINGS FROM TANX )@@G@@PE ******* @H@@@!. ******* 'R' - ALLOW MORE THANY )@@G@@N 1 P/O PER INPUT HEADING ******* @H@@@!. ******* NZ )@@G@@ ******* @H@@@!. ****OA )@@G@@*** TO LIST ALL HEADINGS IN AN SDF PRINT FILE, SPECIFY ******* OB )@@G@@@H@@@!. ******* 'L' AND 'R' OPTIONS AND NO INPUT HEADINGS. OC )@@G@@ ******* @H@@@!. ******* OD )@@G@@ ******* @H@@@!. ******* USE IS MADE OF THE 1110 BYTESUB OE )@@G@@ROUTINES AND 1100/80 ******* @H@@@!. ******* INSTRUCTIONS. OF )@@G@@ ******* @H@@@!. ******* OG )@@G@@ ******* @H@@@!. ****OH )@@G@@*** REVISION SUMMARY: ******* OI )@@G@@@H@@@!. ******* ---------------- OJ )@@G@@ ******* @H@@@!. ******* OK )@@G@@ ******* @H@@@!. ******* 1R1 - FIRST RELEASE OL )@@G@@ ******* @H@@@!. ******* 1R2 - IDONLY$ OM )@@G@@ ******* @H@@@!. ******* 1R3 - CON )@@G@@ORRECTION FOR SMALL HEADINGS ******* @H@@@!. ****OO )@@G@@*** - ADD 'L' OPTION ******* OP )@@G@@@H@@@!. ******* 1R4 - CHECK FOR NULL CONTROL IMAGE OQ )@@G@@ ******* @H@@@!. ******* - CONSOLE P/O IF BATCH OR )@@G@@ ******* @H@@@!. ******* 2R1 - RE-WRITEN USING SIR$ AND OS )@@G@@BYTESUB ******* @H@@@!. ******* - CONVERTED TO OT )@@G@@MASM ****** @H@@@!. ******* - TOU )@@G@@EST FACILITY ADDED ******* @H@@@!. ****OV )@@G@@*** - 'R' OPTION ADDED ******* OW )@@G@@@H@@@!. ******* - MULTI-REEL FACILITY ADDED OX )@@G@@ ******* @H@@@!. ******* 2R2 - BLANK 2ND WORD OF INPUT HEADINGS OY )@@G@@ ******* @H@@@!. ******* - USE FINDFIELD SUBROUTINE OZ )@@G@@ ******* @H@@@!. ******* - USE 1100/80 IPA )@@G@@NSTRUCTIONS ******* @H@@@!. ******* - UPB )@@G@@PDATE TEST FACILITY ******* @H@@@!. ****PC )@@G@@*** 3R1 - HANDLE ASCII PRINT CONTROL IMAGES ******* PD )@@G@@@H@@@!. ******* - UPDATE TEST FACILITY PE )@@G@@ ******* @H@@@!. ******* - USE BYTESUB 2R2 PF )@@G@@ ******* @H@@@!. ******* - GENERALIZE INPUT STRING LPG )@@G@@OGIC ******* @H@@@!. ******* - ADD INPUT STRPH )@@G@@ING VARIATIONS ******* @H@@@\. ******* - PPI )@@G@@ROCESS ANY SDF FILE (EVEN IF NOT PRINT FILE) ******* @H@@@!. ****PJ )@@G@@*** ******* PK )@@G@@@H@@@!. ****************************************************************PL )@@G@@********** @E@@@!$(1),ST LIPROC$ . INVOKE 'LI' PRPM )@@G@@OCS @E@@@! TEP A5,(1*/('Z'-'L')) . INIT 'L' OPTION KEY PN )@@G@@@ @@@! S A5,LOPT @E@@@! TEP A5,(1*/('ZPO )@@G@@'-'R')) . INIT 'R' OPTION KEY @ @@@! S A5,ROPT @G@@@!PP )@@G@@ AN,U A4,6 . CALCULATE BATCH KEY = RUN TYPE-6PQ )@@G@@@F@@@! S A4,BATCH . BATCH=0 FOR BATCH RUN PR )@@G@@@F@@@! LMJ X11,PREPF$ . PROCESS INPUT PARAMETERS PS )@@G@@@C@@@! ERR$ . ERROR @G@@@! TEPT )@@G@@ST . INVOKE TEST FACILITY IF @MASM,T @E@@@! PU )@@G@@ LMJ X11,IDLINE$ . GENERATE SIGN-ON @C@@@! PRPV )@@G@@INT$ IDBUFF,8 . PRINT IT@D@@@! PRINT$ 0,0,1 PW )@@G@@ . SKIP A LINE @G@@@! L,U X1,IMAGE . INPX )@@G@@ITILIAZE PTRS FOR STRING INPUT@ @@@! L,U X2,HDBUFF @ @@@!PY )@@G@@ L X3,(1,0) @E@@@!LOOP1 READ$ IMAGE,INIT PZ )@@G@@ . READ NEXT STRING @D@@@! L,U A3,0,A0 . WOQA )@@G@@RD COUNT @ @@@! LXI A0,A3 @ @@@! LXM,U QB )@@G@@ A0,IMAGE @A@@@! A A0,(0100,0) @ @@@! TNQC )@@G@@Z BATCH @F@@@! PRINT$ . ECHO INPQD )@@G@@UT STRING IF BATCH@G@@@! MSI,U A3,6 . CONVERT QE )@@G@@WORD COUNT TO BYTE COUNT@G@@@!LOOP2 AN,U A3,1 . CAQF )@@G@@LCULATE ACTUAL BYTE COUNT @G@@@! LXI X1,A3 QG )@@G@@ . BY SUBTRACTING TRAILING BLANKS@ @@@! LMJ X11,BGET QH )@@G@@@ @@@! TNE,U A0,' ' @ @@@! J LOOP2 QI )@@G@@@G@@@! L,U A0,1,A3 . MOVE INPUT STRING TO HDBUFQJ )@@G@@F @^@@@! LXI,U X1,0@ @@@! LMJ X11,BMOVE QK )@@G@@@G@@@! S,S2 A0,HEAD,X3 . STORE BYTE COUNT IN HEAD TQL )@@G@@ABLE @E@@@! L A1,X2 . GET STARTING BYTE # QM )@@G@@@ @@@! SSL A1,18 @E@@@! S,S1 A1,HEAD,*XQN )@@G@@3 . STORE IN HEAD TABLE @F@@@! A A1,A0 QO )@@G@@ . UPDATE HDBUFF POINTER @ @@@! LXI X2,A1 @F@@@!QP )@@G@@ INC NHEAD . INCREMENT HEAD TABLE COUNT@#@@@!QQ )@@G@@ NOP @E@@@! S X2,X4 . SAVE HDBQR )@@G@@UFF PTR @H@@@! L,U X2,ARROW . SEARCH FOR AN QS )@@G@@ARROW IN INPUT (->) @ @@@! L,U A1,1,A3 @^@@@! QT )@@G@@ L,U A2,2@A@@@! LMJ X11,FINDFIELD @F@,@! QU )@@G@@ J CONT0A . NONE FOUND, NORMAL CASE @F@@@, QV )@@G@@ J CONT2 . NONE FOUND, NORMAL CASE @G@@@! QW )@@G@@ TZ A0 . IS ARROW IN BEGINNING OF STRING?@B@,@!QX )@@G@@ J CONT0 . NO@B@@@, J CONTQY )@@G@@1 . NO@D@@@! L,T1 A0,HEAD-1,X3 . YES, GETQZ )@@G@@ SC,NC@I@@@! A,U A0,0176 . INCREMENT SC BY 2 ANRA )@@G@@D DECREMENT NC BY 2 @F@@@! S,T2 A0,HEAD-1,X3 . MORB )@@G@@VE TO 2ND STRING DESCR @F@@@! SZ,T1 HEAD-1,X3 . ZERC )@@G@@RO 1ST STRING DESCR @ @,@! J CONT0A @ @@@, RD )@@G@@ J CONT2 @G@,@!CONT0 S,S2 A0,HEAD-1,X3 . CHRE )@@G@@ANGE BYTE COUNT FOR 1ST STRING@G@@@,CONT1 S,S2 A0,HEAD-1,X3 RF )@@G@@ . CHANGE BYTE COUNT FOR 1ST STRING@F@@@! TE,U A3,1,A0 RG )@@G@@ . IS ARROW AT END OF STRING?@B@@@! J $+3 RH )@@G@@ . NO@F@@@! SNZ,T2 HEAD-1,X3 . SET 2ND STRINGRI )@@G@@ DESCR TO -0@ @,@! J CONT0A @ @@@, J RJ )@@G@@ CONT2 @F@@@! A,S1 A0,HEAD-1,X3 . GENERATE STRINRK )@@G@@G 2 DESCR @^@@@! A,U A0,2@A@@@! S,S3 A0,HRL )@@G@@EAD-1,X3 @A@@@! AN,S2 A3,HEAD-1,X3 @^@@@! ANRM )@@G@@,U A3,1@A@@@! S,S4 A3,HEAD-1,X3 @E@,@!CONT0A L RN )@@G@@ X2,X4 . RESTORE HDBUFF PTR @E@@@,CONT2 L RO )@@G@@ X2,X4 . RESTORE HDBUFF PTR @F@@@! J LOOPRP )@@G@@1 . PROCESS NEXT INPUT STRING @H@@@!INIT L,U A0,FRQ )@@G@@CT . INITIALIZE PRINT FILE FOR READING @ @@@! LXRR )@@G@@I,U X11,PIRCB$@A@@@! LIJ X11,BSDFIO$ @D@@@! RS )@@G@@ J ERR2 . READ ERROR @D@@@! SZ RT )@@G@@ SWAP . CLEAR SWAP KEY@E@@@!LOOP3 L,U A0,FCT RU )@@G@@ . READ NEXT SDF IMAGE @ @@@! LXI,U X11,PIRCB$@ @@@!RV )@@G@@ LIJ X11,BSDFI$@D@@@! J ERR2 RW )@@G@@ . READ ERROR @D@@@! J END . END OF SRX )@@G@@DF @E@@@! L A1,CONTROL . GET CONTROL WORD RY )@@G@@@F@@@! JP A1,DATA . CHECK IF DATA CONTROL RZ )@@G@@@H@@@! L,S1 A0,CONTROL . NO, WHAT KIND OF SDF CONTRSA )@@G@@OL IS IT? @E@@@! TE,U A0,050 . IS IT SDF HEADSB )@@G@@ER? @B@,@! J CONT1 . NO@B@@@, J SC )@@G@@ CONT3 . NO@B@1@\ L A0,(PF 1,NMESS4,SD )@@G@@MESS4)@G@\@! L,H1 A0,CONTROL . IS IMAGE THE SDF PRISE )@@G@@NT HEADER? @G@@@\ L,H1 A1,CONTROL . IS IMAGE THE SSF )@@G@@DF PRINT HEADER? @A@\@! TE A0,(0501125) @A@1@\ SG )@@G@@ TE A1,(0501125) @A@@@1 TNE A1,(0501125) SH )@@G@@@^@@@1 J $+4 @F@\@! J ERR1 SI )@@G@@ . NO, NOT SDF PRINT HEADER @F@1@\ PRINT$ SJ )@@G@@ . NO, NOT SDF PRINT HEADER @F@@@1 PRINT$ MESS4,NMESS4 SK )@@G@@ . NO, NOT SDF PRINT HEADER @ @@@1 J LOOP3 @F@@@!SL )@@G@@ TNZ LOPT . IF 'L' OPTION, PRINT LABEL@ @@@!SM )@@G@@ J LOOP3 @H@@@! PRINT$ LABEL,NLABEL,2 SN )@@G@@ . 'PRINT FILE HAS FOLLOWING LABEL ...' @F@@@! E$DIT EPKTSO )@@G@@ . PRINT LABEL INFORMATION @ @@@! E$MSG RUNISP )@@G@@D @ @@@! E$FD1 IMAGE+3 @^@@@! E$SKIP 2 SQ )@@G@@@ @@@! E$MSG USERID @ @@@! E$FD2 IMAGE+5 SR )@@G@@@^@@@! E$SKIP 2 @ @@@! E$MSG PARTNO @A@@@!SS )@@G@@ E$DECV CONTROL,,S4 @^@@@! E$SKIP 2 @ @@@!ST )@@G@@ E$MSG INDEV @ @@@! E$FD1 IMAGE+2 @^@@@!SU )@@G@@ E$SKIP 2 @ @@@! E$MSG FILEN @ @@@! SV )@@G@@ E$FD2 IMAGE @^@@@! E$SKIP 2 @ @@@! E$SW )@@G@@MSG CREATE @ @@@! E$TIME IMAGE+4 @^@@@! E$SX )@@G@@SKIP 1 @ @@@! E$DAY3 IMAGE+4 @D@@@! E$PRINT SY )@@G@@ 2 . PRINT LABEL @D@@@! PRINT$ 0,0,1 SZ )@@G@@ . SKIP A LINE @ @@@! J LOOP3 @D@,@!CONT1 TA )@@G@@ TE,U A0,060 . PRINT CONTROL?@D@@@,CONT3 TE,U TB )@@G@@ A0,060 . PRINT CONTROL?@ @@@! J LOOP3 TC )@@G@@@H@@@! L,S2 A0,CONTROL . GET # OF WDS IN PRINT CONTTD )@@G@@ROL IMAGE @H@@@! JZ A0,LOOP3 . IF NO DATA, FITE )@@G@@ND NEXT CONTROL IMAGE @D@@@! S A0,NWDS . SATF )@@G@@VE # OF WDS @E@@@! MSI,U A0,6 . CONVERT TO CHATG )@@G@@RS @C@@@! S A0,NCHAR . SAVE @D@@@! TH )@@G@@ L,S6 X3,CONTROL . GET CODE TYPE @E@@@! S,H1 TI )@@G@@ X3,BASCII . STORE FOR BYTESUB @ @@@! SZ PRINTJ )@@G@@T @ @@@! L,U X1,IMAGE @ @@@! L,U X2,PTK )@@G@@RINT @ @@@! L R1,A0 @ @@@! L,U R2,1TL )@@G@@2 @E@@@! LMJ X11,GETSFIELD . GET NEXT SUBFIELD TM )@@G@@@E@@@! J LOOP3 . ALL BLANK, SKIP @A@@@!TN )@@G@@ L A0,('H@@@@@') @F@@@! TNE A0,PRINT TO )@@G@@ . HEADING PRINT CONTROL? @C@,@! J CONT2 TP )@@G@@ . YES @C@@@, J CONT4 . YES TQ )@@G@@@F@@@! TNZ KPRINT . NO, IS PRINT KEY SET? TR )@@G@@@C@@@! J LOOP3 . NO, SKIP@F@,@! J TS )@@G@@ CONT5 . YES, SUBMIT PRINT CONTROL @F@@@, J TT )@@G@@ CONT9 . YES, SUBMIT PRINT CONTROL @F@,@!CONT2 L TU )@@G@@ A0,(PF -0,0,0) . WAS A REPORT JUST PRINTED?@F@@@,CONT4 L TV )@@G@@ A0,(PF -0,0,0) . WAS A REPORT JUST PRINTED?@ @@@! TZTW )@@G@@ KPRINT @E@@@! PRINT$ . YES, STATX )@@G@@RT NEW PAGE @E@@@! SZ KPRINT . CLEAR PRINT KETY )@@G@@Y @D@@@! SZ KHEAD . CLEAR HEAD KEY@G@@@!TZ )@@G@@ TNZ LOPT . IF 'L' OPTION, PRINT HEADING UA )@@G@@@ @,@! J CONT3 @ @@@, J CONT5 UB )@@G@@@^@@@! SZ A0 @ @@@! LXI A0,NWDS @A@@@!UC )@@G@@ A A0,(0100,IMAGE) @ @@@! EX EPRINT,X3 UD )@@G@@@F@,@!CONT3 TZ PRINTALL . IS PRINT ALL KEY SET? UE )@@G@@@F@@@,CONT5 TZ PRINTALL . IS PRINT ALL KEY SET? UF )@@G@@@F@@@! J MATCH . YES, ALL HEADINGS MATCH UG )@@G@@@H@@@! L X5,(1,0) . COMPARE EACH INPUT HEADINGUH )@@G@@ TO IMAGE @ @@@! L,U X2,HDBUFF @E@@@!LOOP4 TNZ UI )@@G@@ HEAD,X5 . SKIP ZEROED HEADINGS@ @@@! J ELOOUJ )@@G@@P4 @D@@@, SP1 KHEAD . SET HEAD KEY @G@@@!UK )@@G@@ TZ,S4 HEAD,X5 . NORMAL CASE (SINGLE HEADING)? UL )@@G@@@B@,@! J CONT3A . NO@B@@@, J UM )@@G@@ CONT6 . NO@E@@@! L,T1 A1,HEAD,X5 . YEUN )@@G@@S, LOOK FOR MATCH @ @@@! LMJ X10,SLIDE @F@@@! J UO )@@G@@ ELOOP4 . NO MATCH, TRY NEXT HEADING@^@@@, TNUP )@@G@@Z ROPT@D@,@! SP1 KPRINT . SET PRINT KEY UQ )@@G@@@D@,@! SZ HEAD,X5 . CLEAR ENTRY @G@@@, UR )@@G@@ SZ HEAD,X5 . CLEAR ENTRY IF NOT 'R' OPTION @ @@@!US )@@G@@ J MATCH @D@,@!CONT3A TZ,T1 HEAD,X5 UT )@@G@@ . ->XXXX CASE? @D@@@,CONT6 TZ,T1 HEAD,X5 . ->XXXX CUU )@@G@@ASE? @B@,@! J CONT3B . NO@B@@@, J UV )@@G@@ CONT7 . NO@E@,@! SP1 KPRINT UW )@@G@@ . YES, SET PRINT KEY @F@,@! L,T2 A1,HEAD,X5 . LOUX )@@G@@OK FOR MATCH ON STRING 2@G@@@, L,T2 A1,HEAD,X5 . YEUY )@@G@@S, LOOK FOR MATCH ON STRING 2 @ @@@! LMJ X10,SLIDE @F@@@!UZ )@@G@@ J MATCH . NO MATCH, KEEP PRINTING @F@@@!VA )@@G@@ SZ HEAD,X5 . MATCH FOUND, CLEAR ENTRY @ @@@!VB )@@G@@ J MATCH @E@,@!CONT3B L,T1 A1,HEAD,X5 VC )@@G@@ . COMPARE STRING 1 @E@@@,CONT7 L,T1 A1,HEAD,X5 . COVD )@@G@@MPARE STRING 1 @ @@@! LMJ X10,SLIDE @F@@@! J VE )@@G@@ ELOOP4 . NO MATCH, TRY NEXT HEADING@E@@@! TZVF )@@G@@,T2 HEAD,X5 . MATCH, XX-> CASE? @B@,@! J VG )@@G@@ CONT3C . NO@B@@@, J CONT8 . NOVH )@@G@@@F@@@! SP1 PRINTALL . YES, SET PRINT ALL KEY VI )@@G@@@D@@@! SZ HEAD,X5 . CLEAR ENTRY @ @@@! VJ )@@G@@ J MATCH @G@,@!CONT3C SP1 KPRINT . XXVK )@@G@@X->YYY CASE, SET PRINT KEY @F@,@! SZ,T1 HEAD,X5 VL )@@G@@ . CLEAR STRING 1 PORTION @H@@@,CONT8 SZ,T1 HEAD,X5 VM )@@G@@ . XXX->YYY CASE, CLEAR STRING 1 PORTION @ @@@! J MATCVN )@@G@@H @F@@@!ELOOP4 TLEM X5,NHEAD . ANY INPUT HEADINGS LVO )@@G@@EFT? @E@@@! J LOOP4 . YES, TRY NEXT ONE VP )@@G@@@F@@@! TNZ ROPT . IF 'R' OPTION, KEEP GOING VQ )@@G@@@G@@@! TZ KHEAD . WERE ANY HEADINGS ENCOUNTEVR )@@G@@RED? @F@@@! J LOOP3 . NO MORE HEADS, NO MAVS )@@G@@TCH @F@@@! J END . NO, NOTHING MORE TO VT )@@G@@DO @F@@@!MATCH SP1 KPRINT . MATCH FOUND, SET PRIVU )@@G@@NT KEY@E@@@! TZ BATCH . IF RUN IS BATCH, VV )@@G@@@G@,@! J CONT4 . PRINT HEADING BEING PROCVW )@@G@@ESSED @G@@@, J CONT9 . PRINT HEADING BEINVX )@@G@@G PROCESSED @F@@@! LXI X1,A0 . MOVE HEADING TVY )@@G@@O MESSAGE @A@@@! L X2,(13,MESS3) @ @@@! L,VZ )@@G@@S2 A0,HEAD,X5@ @@@! LMJ X11,BMOVE @ @@@! A,WA )@@G@@U A0,13 @A@@@! S,H1 A0,COMPKT+1 @F@@@! WB )@@G@@ COM$P COMPKT . SEND MESSAGE TO CONSOLE @^@,@!CONT4 WC )@@G@@ TNZ ROPT@H@,@! SZ HEAD,X5 . CLEAR INWD )@@G@@PUT HEAD IF NOT 'R' OPTION @F@,@!CONT5 LXI A0,NWDS WE )@@G@@ . SUBMIT PRINT CONTROL IMAGE@F@@@,CONT9 LXI A0,NWDS WF )@@G@@ . SUBMIT PRINT CONTROL IMAGE@ @@@! LXM,U A0,IMAGE @ @@@!WG )@@G@@ EX EPRTCN,X3 @ @@@! J LOOP3 @E@@@!WH )@@G@@DATA TNZ KPRINT . IS PRINT KEY SET? @C@@@! WI )@@G@@ J LOOP3 . NO, SKIP@D@@@! L,T2 A0,CWJ )@@G@@ONTROL . LINE SPACING @^@@@! LSSL A0,6@D@@@! WK )@@G@@ A,S2 A0,CONTROL . WORD COUNT @ @@@! LSSL WL )@@G@@ A0,18 @E@@@! LXM,U A0,IMAGE . DATA IMAGE LOCWM )@@G@@ATION @D@@@! L,S6 X3,CONTROL . CODE TYPE @E@@@!WN )@@G@@ EX EPRINT,X3 . PRINT DATA IMAGE @ @@@! WO )@@G@@ J LOOP3 @E@@@!END PRTCN$ NOHEAD,1 . TUWP )@@G@@RN OFF HEADING @E@@@! PRINT$ MESS1,NMESS1,-1 . PRINT ENWQ )@@G@@D MESSAGE @E@@@! LMJ X11,POSTPR$ . CLOSE INPUT FIWR )@@G@@LE @#@@@! ERR$ @G@@@! L X5,(1,0) WS )@@G@@ . CHECK IF ANY LEFT OVER HEADINGS @ @@@! L,U X1,HDBUFF WT )@@G@@@ @@@! L,U X2,PRINT @ @@@! SZ KHEAD WU )@@G@@@ @@@! SZ BASCII @ @@@!LOOP5 TNZ HEAD,X5 WV )@@G@@@ @@@! J ELOOP5 @F@@@! TZ KHEAD WW )@@G@@ . IS THIS FIRST HEADING? @B@,@! J CONT6 WX )@@G@@ . NO@B@@@, J CONT10 . NO@E@@@! WY )@@G@@ PRINT$ MESS2,NMESS2,2 . 'HEADINGS NOT FOUND'@D@@@! PRWZ )@@G@@INT$ 0,0,1 . SKIP A LINE @G@,@!CONT6 TNZ,T1 HEADXA )@@G@@,X5 . IS HEADING OF FORM: ->XXXX ? @G@@@,CONT10 TNZ,T1 XB )@@G@@ HEAD,X5 . IS HEADING OF FORM: ->XXXX ? @C@,@! J XC )@@G@@ CONT7 . YES @C@@@, J CONT11 XD )@@G@@ . YES @F@@@! LXI,S1 X1,HEAD,X5 . NO, GET XE )@@G@@STARTING CHAR # @D@@@! L,S2 A0,HEAD,X5 . GET # OFXF )@@G@@ CHARS@ @@@! TZ,T2 HEAD,X5 @G@@@! A,S4 A0,HXG )@@G@@EAD,X5 . ADD # OF CHARS IN 2ND STRING @G@@@! TZ,S4 XH )@@G@@ HEAD,X5 . IS HEADING A SINGULAR STRING? @F@@@! A,XI )@@G@@U A0,2 . NO, ADD 2 CHARS FOR '->' @ @,@! J XJ )@@G@@ CONT8 @ @@@, J CONT12 @E@,@!CONT7 LXXK )@@G@@I,S3 X1,HEAD,X5 . GET STARTING CHAR # @E@@@,CONT11 LXI,S3 XL )@@G@@ X1,HEAD,X5 . GET STARTING CHAR # @D@@@! AN X1,(XM )@@G@@2,0) . BACKUP TO '->'@D@@@! L,S4 A0,HEAD,X5 XN )@@G@@ . GET # OF CHARS@D@@@! A,U A0,2 . ADD 2 FOXO )@@G@@R '->'@G@,@!CONT8 LMJ X11,BMOVE . MOVE STRING TO PRINTXP )@@G@@ BUFFER @G@@@,CONT12 LMJ X11,BMOVE . MOVE STRING TOXQ )@@G@@ PRINT BUFFER @G@@@! S,H1 A0,PSYMB+4 . STORE # XR )@@G@@OF CHAR IN SYMB$ PKT @ @@@! L,U A0,PSYMB @D@@@! XS )@@G@@ ER SYMB$ . PRINT HEADING @C@@@! SP1 XT )@@G@@ KHEAD . SET KEY @ @@@!ELOOP5 TLEM X5,NHEAD @ @@@!XU )@@G@@ J LOOP5 @C@@@! EXIT$ XV )@@G@@ . EXIT @A@\@!ERR1 PRINT$ MESS4,NMESS4 @#@\@! EXXW )@@G@@IT$ @D@@@!ERR2 TE,U A5,1 . WAS EOF READ? @E@@@!XX )@@G@@ J ERR2A . NO, OTHER I/O ERROR @F@@@! XY )@@G@@ TZ SWAP . WAS TAPE JUST SWAPPED? @D@@@! XZ )@@G@@ ERR$ . YES, ERROR @E@@@! IOW$ YA )@@G@@ IOPKT . READ NEXT RECORD @ @@@! L,S1 A0,IYB )@@G@@MAGE @G@@@! TE,U A0,054 . IS IT AN END-OF-REELYC )@@G@@ RECORD? @C@@@! J END . NO, STOP@F@@@!YD )@@G@@ TSWAP$ IOPKT . YES, SWAP TO NEXT REEL @D@@@!YE )@@G@@ S A0,SWAP . SET SWAP KEY @E@@@! PRYF )@@G@@INT$ MESS6,NMESS6,2 . 'TAPE SWAPPED .....'@E@@@! J YG )@@G@@ INIT . RE-INITIALIZE SIR$ @A@@@!ERR2A PRINT$ MESSYH )@@G@@5,NMESS5 @#@@@! EXIT$ @H@@@!. ****************************YI )@@G@@********************************************** @H@@@!. ******* SLIDE HEYJ )@@G@@ADING PAST PRINT CONTROL IMAGE SUBROUTINE ******* @H@@@!. ****YK )@@G@@*** ******* YL )@@G@@@H@@@!. ******* INPUT A1= 0,0,SC,NC YM )@@G@@ ******* @H@@@!. ******* YN )@@G@@ ******* @H@@@!. ****************************************YO )@@G@@********************************** @E@@@!SLIDE DSL A1,6 YP )@@G@@ . ISOLATE # OF CHARS @ @@@! SSL A2,30 @E@@@!YQ )@@G@@ LXI,S1 X2,A1 . GET STARTING CHAR # @G@@@! YR )@@G@@ L A1,NCHAR . # OF CHARS IN PRINT CONTROL @G@@@!YS )@@G@@ LMJ X11,FINDFIELD . SLIDE HEADING PAST PRINT CONTROLYT )@@G@@@C@@@! J 0,X10 . NO FIND @D@@@! J YU )@@G@@ 1,X10 . MATCH FOUND @H@@@,. **********************YV )@@G@@**************************************************** @[@@@!$(0) @ @@@!YW )@@G@@PF $FORM 12,6,18 @ @@@!EPKT E$PKT 22,PRINT @^@@@!YX )@@G@@PRINT $RES 22 @#@@@!NOHEAD 'H,N . '@E@@@!LABEL 'PRINT FYY )@@G@@ILE HAS FOLLOWING LABEL INFORMATION:' @ @@@!NLABEL $EQU $-LAYZ )@@G@@BEL @^@@@!RUNID 'RUNID * &' @^@@@!USERID 'USER ID * &' @ @@@!ZA )@@G@@PARTNO 'PART NUMBER * &' @ @@@!INDEV 'INPUT DEVICE * &' @ @@@!ZB )@@G@@FILEN 'FILE NAME * &' @ @@@!CREATE 'CREATED AT: &' @ @@@!ZC )@@G@@MESS1 'END OF QUICK TPR' @ @@@!NMESS1 $EQU $-MESS1 @ @@@!ZD )@@G@@MESS2 'HEADINGS NOT FOUND'@ @@@!NMESS2 $EQU $-MESS2 @ @@@!ZE )@@G@@MESS3 'NOW PRINTING ' @^@@@! $RES 12 @E@@@!MESS4 ZF )@@G@@ 'INPUT FILE IS NOT A STANDARD SDF PRINT FILE' @ @@@!NMESS4 $EZG )@@G@@QU $-MESS4 @D@@@!MESS5 'I/O ERROR ENCOUNTERED READING PRINT FZH )@@G@@ILE' @ @@@!NMESS5 $EQU $-MESS5 @B@@@!MESS6 'TAPE SWAPPED ZI )@@G@@TO NEXT REEL' @ @@@!NMESS6 $EQU $-MESS6 @F@@@!MHEAD $EZJ )@@G@@QU 100 . MAX # OF HEADINGS ALLOWED @[@@@!. @E@@@!ZK )@@G@@. EACH ENTRY IN 'HEAD' TABLE LOOKS LIKE: SC1,NC1,SC2,NC2,0,0@C@@@!. WHERZL )@@G@@E 'SC1' IS STARTING CHARACTER OF STRING 1 @C@@@!. 'NC1' IS NUMBER ZM )@@G@@OF CHARS IN STRING 1 @C@@@!. 'SC2' IS STARTING CHARACTER OF STRZN )@@G@@ING 2 @C@@@!. 'NC2' IS NUMBER OF CHARS IN STRING 2 @F@@@!. AND ZO )@@G@@STRING1,STRING2 ARE THE COMPONENTS OF THE INPUT HEADINGS @ @,@!. AND ZP )@@G@@CHARS POINT TO 'HDBUFF' @C@@@,. AND CHARS POINT TO 'HDBUFF'. FOR EXAMPLZQ )@@G@@E: @A@@@,. SC1,NC1,0,0,0,0 = XXXXX @B@@@,. SC1,NC1,SC2,ZR )@@G@@NC2,0,0 = XXXXX->YYYYY @A@@@,. 0,0,SC2,NC2,0,0 = ->YYYYY @A@@@,ZS )@@G@@. SC1,NC1,-0,-0,0,0 = XXXXX-> @[@@@!. @ @@@!HEAD $RES ZT )@@G@@ MHEAD @^@@@!NHEAD $RES 1 @ @@@!HDBUFF $RES MHEAZU )@@G@@D*14/6@^@@@!KPRINT $RES 1 @^@@@!PRINTALL $RES 1 @^@@@!ZV )@@G@@NCHAR $RES 1 @^@@@!NWDS $RES 1 @^@@@!KHEAD $RZW )@@G@@ES 1 @^@@@!LOPT $RES 1 @^@@@!ROPT $RES 1 ZX )@@G@@@^@@@!BATCH $RES 1 @^@@@!PARTBL* $RES 27 @B@@@!IOPKT ZY )@@G@@ I$OD 'SI$',R$ 28,IMAGE @^@@@!SWAP $RES 1 @#@@@!ZZ )@@G@@FCT 'SI$'DL @^@@@! + 0 @ @@@! + AA )@@G@@ 02000,0 @ @@@! + 224,0 @^@@@! + AB )@@G@@ 0 @A@@@! + FBUFF1,FBUFF2 @ @@@! + AC )@@G@@ 8,100 @ @@@! + 1,IMAGE @^@@@! + AD )@@G@@ 1,0 @^@@@!CONTROL $RES 1 @^@@@!IMAGE $RES 100 @^@@@!AE )@@G@@FBUFF1 $RES 224 @^@@@!FBUFF2 $RES 224 @#@@@!EPRINT PRAF )@@G@@INT$ @#@@@! APRINT$ @#@@@!EPRTCN PRTCN$ @#@@@! APAG )@@G@@RTCN$ @B@@@!PSYMB S$YMBPK PRINT$,W$ $-$,PRINT @ @@@!COMPKT COAH )@@G@@M$PKT MESS3,$-$ @#@@@!ARROW '->' @^@@@! $END ST AI )@@G@@___TARTING CHAR # @D@@@! AN X1,('K@AOH/,0[@E9?/AM$;?.@@@AJ )@@G@@;G0@@VL80@@5/[@]HWR@R@@$C@@@@['K@AOH/,0[@E9?/AM$;?.@@@;G0@@VL80@@6/[@]HWAK )@@G@@R@R@@$C@@@@['K@AOH/,0[@E9?/AM$;?.@@@;G0@@VL80@@7/[@]HWC80@@1[S0AM0/K@]I4AL )@@G@@C@K^H;T@KAOF[@R@@*C@@@@H'K@AOG/,0[@E9?/AM+;?.@@@;G0@@VL80@@5/ @]H/R@R@@*AM )@@G@@C@@@@['K@AOH/,0[@E9?/AM$;?.@@@;G0@@VL80@@5/[@]H/R@R@@*C@@@@['K@AOH/,0[@EAN )@@G@@9?/AM$;?.@@@;G0@@VL80@@7/[@]H/C80@@1[S0AM0/K@]I4C@K^H;T@KAOF[@R@@(C@@@@HAO )@@G@@'K@AOG/,0[@E9?/AM+;?.@@@;G0@@VL80@@6/ @]IWR@R@@(C@@@@['K@AOH/,0[@E9?/AM$AP )@@G@@;?.@@@;G0@@VL80@@6/[@]IWR@R@@(C@@@@['K@AOH/,0[@E9?/AM$;?.@@@;G0@@VL80@@7AQ )@@G@@/[@]IWC80@@1[S0AM0/K@]I4R8K]IZA@R@@P/K@]I6 @B@@P/K@]I4C@K^H;T@KAOFR@K@@HAR )@@G@@C@@@@H'K@AOG/,0[@E9?/AM+;?.@@@;G0@@VC@@@@['K@AOH/,0[@E9!?AM$;!!@@@;H)@@VAS )@@G@@L[)@@J/[0]I4C80@@1[S0AM0*@B@@O/KBK@OC@K^H;T@KAOF[@R@@N@)AOEC@.AK<<@.AK-C@.AK+;=0@@!C[)AI%<[)AI*C[)AI(;>)@@!BB )@@G@@9>)@@J/8@]K6R;@AP"/,0[]&R;@AQ@/,0[]& @@^H;C80@@1[W0AM1R@R@@>R;@AQW/,0[])BC )@@G@@R;@AQ^/,0[@LR8K]K?A@R@@OC80@@CL@0^H;/[@]K2CS0AM0L80@@1/ @]E@ @B@@OCS0AM0BD )@@G@@L80@@1/[@]NKC@K^H'T8K@@G[@R@@&9?.AK<;=0@@D;G0@@MN8)@B_C[)AI*<[)AI&C[)AI$BE )@@G@@;>)@@_;H)@@M9>)@@J/8@]LWR;@AP"/,0[]&R;@AQ@/,0[]& @@^H;C80@@1[W0AM1R@R@@&BF )@@G@@R;@AQY/,0[])R;@AQC/,0[@LR8K]LMA@R@@OC80@@AL@0^H;/[@]LSCS0AM0L80@@1/ @]E@BG )@@G@@ @B@@OCS0AM0L80@@1/[@]NKC@K^H'T8K@@G[@R@@$N8)@B_C@.AK&<@.AK=C@.AK>;=0@@_BH )@@G@@;G0@@MC[)AI*<[)AI&C[)AI$;>)@@_;H)@@M9>)@@J/8@]M^R;@AP"/,0[]&R;@AQ@/,0[]&BI )@@G@@ @@^H;C80@@1[W0AM1R@R@@$R;@AQ)/,0[])R;@AQG/,0[@LR8K]L'A@R@@OC80@@AL@0^H;BJ )@@G@@/[@]M@CS0AM0L80@@1/ @]E@ @B@@OCS0AM0L80@@1/[@]NKC@K^H'T8K@@GR@K@@HA@R@@)@@_;H)@@M9>)@@J/8@]NCR;@AP"/,0[]&R;@AQ@/,0[]& @@^H;C80@@0[O0AM0BO )@@G@@C80@@1[W0AM1R@R@@=R;@AQ&/,0[])R;@AQQ/,0[@LR8K]N[A@R@@OC80@@AL@0^H;/[@]NBBP )@@G@@CS0AM0L80@@1/ @]E@ @B@@OCS0AM0L80@@0/ @]NKCW0AM1L80@@0/ @]NKC80@@1[S0AM0BQ )@@G@@*@B@@Q/KBK@QCS0AM0L80@@0/ @]N1R;@AQ*/,0[ RR;@AQ%/,0[ RR;@AQ?/,0[ RR;@AQ,BR )@@G@@/,0[ RR;@AQ0/,0[ RR;@AQ2/,0[ RR;@AQ4&'0@@@/,0[ !R;@AQ8/,0[ RRCT@@^RC-@@^BS )@@G@@R;@AQ'/,0[^?R;@AO;&'0@@@/,0[RN/S@@@@C@0^H.G80@@[[@0^H.*@B@@R/KBK@RC@K^H/BT )@@G@@T8K@@G9?.AK);=0@@V;C0@@MLC0AI2/ @]N_R8K]N.A@R@@T/K@]OO @B@@T/K@]O#R8K]O]BU )@@G@@A@R@@V/K@]QB @B@@VC80@@0[K0AM0C@0^H8L@0^H//[@]OM/H@]OMR8K]OFA@R@@XCK0AM0BV )@@G@@L80@@1/[@]OLC@0^H8L@0^H// @]RX @B@@X*@B@@S/KBK@SC@K^H/T8K@@G[@R@@<9?.AK)BW )@@G@@;=0@@M;C0@@DC[)AI\;()@@D;D)@@DL[)@@J/[0]O2R;@APQ/,0[A*R@R@@C80@@F[00^JI;C0@@A[40^JIR;@AR@/,0[A*C80@@P[^0^JICB )@@G@@N@KAOK^@K^J-^@K^J+^4K^JR;@AR^CC )@@G@@/,0[A*R;@ARA&'0@@@/,0[*J/K@]Q C@0^H/H80@@[#@0^H'CW0AI0[S0AM0R8K]P?A@R@@QCD )@@G@@CS0AM0L80@@0/[@]P5CS0AM0L80@@2/[@]P5C@0^H8L@0^H'/ @]J? @B@@QR8K]P9A@R@@RCE )@@G@@/K@]NM @B@@RR;@ARC&'0@@@/,0[*JR;@AP//,0[Q./[K]Q R;@AR^/,0[A*R;@ARE&'0@@@CF )@@G@@/,0[*J*@B@@U/KBK@UC@K^H/T8K@@G[@R@@<9?.AK);=0@@M;C0@@DC[)AI\;()@@D;D)@@DCG )@@G@@L[)@@J/[0]Q,C80@@F[00^JI;C0@@A[40^JIR;@AR@/,0[A*C80@@P[^0^JIR;@APQ/,0[A*CH )@@G@@R@R@@;J)@@V9\XAK=;JK@@V[#0^J^[B)^J#R@K@@HCX )@@G@@R;@ARO/,0[^?RCT@@^RC-@@^R;@AQ'/,0[^?R;@AO;&'0@@@/,0[RN/S@@@@*@B@@)/KBK@)CY )@@G@@RCT@@^RC-@@^R;@ARQ/,0[]&R;@ARS&'0@@@/,0[RN/S@@@@*@B@@-/KBK@-/K@[.*R;@ARUCZ )@@G@@&'0@@@/,0@F7&'0@@@/,0@9GR;@ARV&'0@@@/,0[.\&'0@@@/,0@'U@@@@@@@@@@@@@@@@@@DA )@@G@@@@@^%-@@@^%-@@@^%-@@@AS>^@@]L/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A#)@@WR;)^@WA#I@@@A#Y@@[R#K@@WDD )@@G@@A#Y@@]A#"@@#R;)^@)A#I@@:R;@^^CO;@@@W:@@@@D/KI@@?R;@^^CP;@@@[RFG@@@RBW@@]DE )@@G@@RFG@@@P;K@B[\@@@@D/KI@@?R\I@@@!8@@@#!8@@@A/KI@@1) , AND P(1,1),(1*/('Z'-P(1,2))) @F@@@QGS )@@G@@ $DO (P(0,0)=2)**(P(1)=1) , TOP A0,(1*/('Z'-P(1,1))) @F@@@QGT )@@G@@ $DO (P(0,0)=2)**(P(1)>1) , TOP P(1,1),(1*/('Z'-P(1,2))) @#@@@QGU )@@G@@ $END @[@@@Q. @H@@@Q. **********************************GV )@@G@@**************************************** @H@@@Q. ******** FORTRAN CALL GW )@@G@@$PROC ******* @H@@@Q. ******** GX )@@G@@ ******* @H@@@QGY )@@G@@. ******** CALL SUBR A,B,C,D = LMJ X11,SUBR ***GZ )@@G@@**** @H@@@Q. ******** + A HA )@@G@@ ******* @H@@@Q. ******** + B HB )@@G@@ ******* @H@@@Q. ******** + C HC )@@G@@ ******* @H@@@Q. ******** HD )@@G@@ + D ******* @H@@@Q. ******** HE )@@G@@ + 0 ******* @H@@@QHF )@@G@@. **********************************************************************HG )@@G@@**** @#@@@QCALL** $PROC @A@@@Q LMJ X11,CALL(1,1) HH )@@G@@@A@@@QI $DO CALL(2) , + CALL(2,I) @^@@@Q + 0 HI )@@G@@@#@@@Q $END @[@@@Q. @H@@@Q. ****************************HJ )@@G@@********************************************** @H@@@Q. ******** INFOR THK )@@G@@ABLE INTERFACE PROCS - AIDS IN USING RINF$, SELT$ ******* @H@@@Q. ****HL )@@G@@**** AND DUSE$ SUBROUTINES ******* HM )@@G@@@H@@@Q. ******** HN )@@G@@ ******* @H@@@Q. ******** R$INF - CALLS 'RINF$' AND INVOKES 'ELT$' HO )@@G@@ ******* @H@@@Q. ******** S$ELT - CALLS 'SELT$' WITH PARAHP )@@G@@METER # ******* @H@@@Q. ******** D$USE - CALLS 'DUSEHQ )@@G@@$' WITH FILE$NAME(MAY BE R.J.) ******* @H@@@Q. ****************HR )@@G@@********************************************************** @H@@@QP HS )@@G@@ $PROC 1 . A PARAMETER SPECIFIES # OF XQT PARAMETERS EXPECTED,HT )@@G@@@D@@@QR$INF** $NAME . OTHERWISE 3 ASSUMED @F@@@Q HU )@@G@@ $LEVEL 0,1,0 . MAKE ELT$ LABELS GLOBAL @E@@@Q HV )@@G@@ ELT$ . INVOKE 'ELT$' PROC @F@@@Q $LHW )@@G@@EVEL 0,0,0 . RETURN TO NORMAL LEVELING @B@@@QNN $EHX )@@G@@QU 28*(3*(P=1)+P(1,1)) @A@@@Q L A0,(NN,INF) HY )@@G@@@ @@@Q LMJ X11,RINF$ @^@@@Q J ERR @^@@@QHZ )@@G@@ J CONT@^@@@QINF RES NN @ @@@QERR ERIA )@@G@@ PRINT$ @ @@@Q ER EXIT$ @]@@@QCONT . IB )@@G@@@#@@@Q $END @^@@@QP $PROC 1 @#@@@QS$ELT** $NIC )@@G@@AME @A@@@Q $DO P(1)>0 , L,U A0,P(1,1)@^@@@Q LMJ X11,ID )@@G@@SELT$ @#@@@Q $END @^@@@QP $PROC 1 @#@@@QD$USE*IE )@@G@@* $NAME @C@@@Q $DO P(1)>0 , DL A0,($CFS(P(1,1)DL)) @ @@@QIF )@@G@@ LMJ X11,DUSE$ @#@@@Q $END @[@@@Q. @H@@@QIG )@@G@@. **********************************************************************IH )@@G@@**** @H@@@Q. ******** SOURCE OUTPUT PROCS - AIDS IN USING SSOR, SOR, ANII )@@G@@D ESOR ******* @H@@@Q. ******** SUBROUTINES IJ )@@G@@ ******* @H@@@Q. ******** IK )@@G@@ ******* @H@@@Q. ******** S$SOR - SETS IL )@@G@@UP 'PARTBL', ASSIGNS FILE AND CALLS 'SSOR' ******* @H@@@Q. ******** IM )@@G@@ P(1,1) = FILE $NAME(MAY BE R.J.) ******* @H@@@QIN )@@G@@. ******** P(1,2) = ELEMENT $NAME(MAY BE R.J.) ***IO )@@G@@**** @H@@@Q. ******** P(1,3) = VERSION $NAME(MAY BE R.J.) IP )@@G@@ ******* @H@@@Q. ******** P(0,1) = 1, IF NOT FIRST TIMEIQ )@@G@@ CALLED ******* @H@@@Q. ******** S$OR - CALLS 'SOR' IR )@@G@@ ******* @H@@@Q. ******** P(1,1IS )@@G@@) = (NWDS,ADDR) ******* @H@@@Q. ******** IT )@@G@@ P(1,1),P(1,2) = ADDR,NWDS ******* @H@@@QIU )@@G@@. ******** E$SOR - CALLS 'ESOR' ***IV )@@G@@**** @H@@@Q. **********************************************************IW )@@G@@**************** @^@@@QP $PROC 1 @#@@@QS$SOR** $NAME IX )@@G@@@A@@@Q $DO P(0,1)=0 , GO CONT1 @B@@@Q DL A0,(IY )@@G@@$CFS(P(1,1)DL)) @A@@@Q DS A0,PARTBL+27 @B@@@Q IZ )@@G@@ DL A0,($CFS(P(1,2)DL)) @A@@@Q DS A0,PARTBL+JA )@@G@@29 @C@@@Q $DO P(1)>2 , DL A0,($CFS(P(1,3)DL)) @B@@@Q JB )@@G@@ $DO P(1)>2 , DS A0,PARTBL+33 @#@@@QCONT1 $NAME @A@@@Q JC )@@G@@ L A0,(3,PARTBL+26)@^@@@Q ER CSF$@ @@@Q JD )@@G@@ LMJ X11,SSOR$ @^@@@Q ER ERR$@ @@@Q $DJE )@@G@@O P(0,1) , $END @^@@@Q J CONT@^@@@QPARTBL** RES JF )@@G@@ 26 @#@@@Q '@ASG' @^@@@Q $CFS(P(1,1)DL)@^@@@Q JG )@@G@@ $CFS(P(1,2)DL)@^@@@Q RES 2 @^@@@Q $CFS(P(1JH )@@G@@,3)DL)@^@@@Q RES 8 @]@@@QCONT . @#@@@Q $EJI )@@G@@ND @^@@@QP $PROC 1 @#@@@QS$OR** $NAME @A@@@Q JJ )@@G@@ $DO P(1)=1 , L A0,P(1,1) @C@@@Q $DO P(1)=2 , L A0,(P(1,2),JK )@@G@@P(1,1)) @ @@@Q LMJ X11,SOR$ @^@@@Q ER JL )@@G@@ ERR$@#@@@Q $END @^@@@QE$SOR** $PROC 0 @ @@@Q JM )@@G@@ LMJ X11,ESOR$ @^@@@Q ER ERR$@#@@@Q $EJN )@@G@@ND @H@@@Q. **********************************************************JO )@@G@@**************** @H@@@Q. ******* TEST FACILITY FOR MASM ELEMENTS JP )@@G@@ ******* @H@@@Q. ******* JQ )@@G@@ ******* @H@@@Q. ******* IF @MASM,T USEJR )@@G@@D, FACILITY IS PROCED ON AND IF T2 OF ******* @H@@@Q. ******* RUJS )@@G@@N CONDITION WORD IS = 2 (@SETC 2), SNOOPY IS TURNED ON ******* @H@@@QJT )@@G@@. ******* ***JU )@@G@@**** @H@@@Q. **********************************************************JV )@@G@@**************** @#@@@QTEST** $PROC @G@@@QMASMT* $EQU $PARJW )@@G@@(0)**(1*/('Z'-'T')) . TEST MODE IF @MASM,T USED @C@@@RLCN $EQU JX )@@G@@ $LCN . SAVE LC @ @@@Q $IF MASMT @G@@@QJY )@@G@@ J CONT1 . JUMP TO ANOTHER LOCATION COUNTERJZ )@@G@@@B@@@R$(0) '*TEST*' . FOR IDONLY$ USE @]@R@Q$($LCN+2) @]@@@RKA )@@G@@$(LCN+2) @^@@@QSAVE $RES 2 @D@@@QCONT1 DS A0,SKB )@@G@@AVE . SAVE A0,A1 @E@@@Q COND$ KC )@@G@@ . GET CONDITION WORD @D@@@Q AND A0,(0770000) . ISKD )@@G@@OLATE T2 @F@@@Q TNE A1,(020000) . IF = 2, TURN OKE )@@G@@N SNOOPY @^@@@Q SLJ TON$@D@@@Q DL A0,SKF )@@G@@AVE . RESTORE A0,A1 @H@@@Q J CONT2 KG )@@G@@ . JUMP BACK TO ORIGINAL LOCATION COUNTER@#@R@Q$($LCN-2),CONT2 @#@T@RKH )@@G@@$(LCN-2),CONT2 @]@@@T$(LCN),CONT2@#@@@R $ELSE @#@@@R$(0) KI )@@G@@ ' '@[@@@R$(LCN)@#@@@Q $ENDF @#@@@Q $END KJ )@@G@@@#@@@Q $END _@@@@@(1,1)DL)) @A@@@Q DS A0,PKK )@@G@@ARTBL+27 @B@@@Q DL A0,($CFS(P(1,2)DL)) @A@@@Q KL )@@G@@ DS A0,PARTBL+*[S@@@*SDFF*@#@@@@ $DEF @ @@@@ KM )@@G@@ $LEVEL 0,1,0 @^@@@@P $PROC *1 @ @@@@FORK$* $NKN )@@G@@AME 'FORK$' @ @@@@TFORK$* $NAME 'TFORK$' @ @@@@ $DKO )@@G@@O P(1)>0 , ;@H@@@@ LA 12,+(OPT$$ +($GFORM 6,P(1,4)KP )@@G@@,6,P(1,3),6,P(1,2),18,P(1,1)))@ @@@@FORK$P* $NAME *'FORK$' @ @@@@KQ )@@G@@TFORK$P* $NAME *'TFORK$' @H@@@@ $DO (P(0,0)='TFORK$'KR )@@G@@)**(P(0)>1) , LA 13,+(EQUF$ P(0),1,*1) @F@@@@ $DO P(0,KS )@@G@@*0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1) @ @@@@ ER [P(0KT )@@G@@,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,1 KU )@@G@@@ @@@@EXIT$* $NAME 'EXIT$' @ @@@@ERR$* $NAME 'ERR$' KV )@@G@@@ @@@@ABORT$* $NAME 'ABORT$' @ @@@@EABT$* $NAME 'EABT$' KW )@@G@@@ @@@@XCTS$* $NAME 'XCTS$' @ @@@@ ER [P(0,0)] KX )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@KY )@@G@@ACSF$P* $NAME 'ACSF$' @ @@@@CSF$P* $NAME 'CSF$' @D@@@@KZ )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@ ERLA )@@G@@ [P(0,0)] @ @@@@ DO 1 , $END @ @@@@ACSF$* $NLB )@@G@@AME *'ACSF$' @ @@@@CSF$* $NAME 'CSF$' @D@@@@ $DLC )@@G@@O P(1)=1 , LA 12,+(EQUF$ P(1),1,2) @G@@@@ $DO (P(1LD )@@G@@)>1)**(P(1,2)=14+7*P(0,*0)) , LA,14 12,P(1,1) @H@@@@ $DO LE )@@G@@ (P(1)>1)**(P(1,2)<>14+7*P(0,*0)) , LA 12,(P(1,2),P(1,1)) @ @@@@ LF )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P LG )@@G@@ $PROC *1 @^@@@@CSF$S* $NAME 0 @E@@@@ LA LH )@@G@@ 12,($SL(P(1,1))//6,($CFS(P(1,1))L)) @^@@@@ ER CSF$LI )@@G@@@ @@@@ $DO 1 , $END @^@@@@ACSF$S* $NAME 0 @E@@@@LJ )@@G@@ LA 12,($SL(P(1,1))//4,($CAS(P(1,1))L)) @ @@@@ LK )@@G@@ ER ACSF$ @#@@@@ $END @[@@@@ . @^@@@@P LL )@@G@@ $PROC *1 @^@@@@AWAIT$* $NAME 0 @^@@@@AWAIT$P* $NAME LM )@@G@@ 1 @A@@@@BA $EQU $BA(P(1,1)) @C@@@@ $DO LN )@@G@@ P(0,0)+P(1)+(\BA(0)) ,; @A@@@@P(2) $EQU +(EQUF$ P(1),1) LO )@@G@@@F@@@@ $DO P(0,0)+($AP(P(2))>1*/16-1)+P(1)>1 , LA 12,P(2)LP )@@G@@@F@@@@ $DO (P(1)=1)**(\P(0,0))**($AP(P(2))<1*/16) , ; LQ )@@G@@@B@@@@ LA 12,+(OPT$$ P(1,1)) @ @@@@ ER LR )@@G@@ AWAIT$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC LS )@@G@@ *1 @^@@@@NAME$* $NAME 0 @^@@@@NAME$P* $NAME 1 @E@@@@LT )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,1-P(0,0)) @ @@@@ LU )@@G@@ ER NAME$ @#@@@@ $END @[@@@@ . @^@@@@ LV )@@G@@ $PROC 0,1 @#@@@@IDENT$* $NAME @ @@@@ ER IDENLW )@@G@@T$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 LX )@@G@@@ @@@@INT$* $NAME 'INT$' @ @@@@INT$P* $NAME 'INT$' LY )@@G@@@C@@@@ $DO P(0)>1 , LA 13,+(EQUF$ P(0))@ @@@@ACT$* $NLZ )@@G@@AME 'ACT$' @ @@@@ACT$P* $NAME 'ACT$' @D@@@@ $DMA )@@G@@O P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@ ER [P(0MB )@@G@@,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,1 MC )@@G@@@^@@@@DACT$* $NAME 0 @ @@@@ ER DACT$ @#@@@@MD )@@G@@ $END @[@@@@ . @^@@@@P $PROC 0,1 @^@@@@TCELL$ME )@@G@@* $NAME *47 @ @@@@TSQRG$* $NAME 'TSQRG$' @ @@@@TSQCL$* $NMF )@@G@@AME 'TSQCL$' @E@@@@ $DO P(0,*0) , $GFORM 6,0,6,P(0,0MG )@@G@@),6,0,18,0 @C@@@@ $DO \P(0,*0) , ER [P(0,0)] @#@@@@MH )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@CTS$* MI )@@G@@ $NAME 'CTS$' @ @@@@CTSA$* $NAME 'CTSA$' @ @@@@ MJ )@@G@@ $IF P(1)>0 @A@@@@ SZ,13 P(1,1),P(1,2) @A@@@@MK )@@G@@ TZ,1 P(1,1),P(1,2) @#@@@@ $ENDF @ @@@@ ML )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P MM )@@G@@ $PROC *1 @^@@@@CTSQ$* $NAME 0 @D@@@@ $DO MN )@@G@@ P(1)>0 , NOP 0,+(EQUF$ P(1),1) @ @@@@ ER CTSQ$ MO )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@MP )@@G@@RT$* $NAME 1 @^@@@@RT$P* $NAME 0 @E@@@@ $DMQ )@@G@@O P(1)>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) @^@@@@ ER MR )@@G@@ RT$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,1 MS )@@G@@@^@@@@NRT$* $NAME 0 @^@@@@ ER NRT$@#@@@@ MT )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@TWAIT$* $NMU )@@G@@AME 1 @^@@@@TWAIT$P* $NAME 0 @E@@@@ $DO P(1)MV )@@G@@>0 , LA 13,+(EQUF$ P(1),1,P(0,0)) @ @@@@ ER TWAIT$ MW )@@G@@@#@@@@ $END @[@@@@ . @^@@@@ $PROC 0,1 @ @@@@MX )@@G@@SWAIT$* $NAME 'SWAIT$' @ @@@@SWTCH$* $NAME 'SWTCH$' @ @@@@MY )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@MZ )@@G@@P $PROC *1 @^@@@@SETC$* $NAME 1 @^@@@@SETC$P* $NNA )@@G@@AME 0 @E@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,P(0NB )@@G@@,0)) @ @@@@ ER SETC$ @#@@@@ $END @[@@@@NC )@@G@@ . @^@@@@P $PROC 0,1 @#@@@@COND$* $NAME @ @@@@ ND )@@G@@ ER COND$ @#@@@@ $END @[@@@@ . @^@@@@P NE )@@G@@ $PROC 0,1 @ @@@@DATE$* $NAME 'DATE$' @ @@@@TDATE$* $NNF )@@G@@AME 'TDATE$' @ @@@@TIME$* $NAME 'TIME$' @ @@@@ ERNG )@@G@@ [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PNH )@@G@@ROC *1 @ @@@@MCORE$* $NAME *'MCORE$' @ @@@@LCORE$* $NAME NI )@@G@@ *'LCORE$' @ @@@@MCORE$P* $NAME 'MCORE$' @ @@@@LCORE$P* $NAME NJ )@@G@@ 'LCORE$' @F@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2*PNK )@@G@@(0,*0)) @E@@@@ $DO P(0)>1 , LXI 12,+(EQUF$ P(0),1,*P(NL )@@G@@0,*0))@ @@@@ ER [P(0,0)] @#@@@@ $END @[@@@@NM )@@G@@ . @^@@@@P $PROC *1 @^@@@@PSR$* $NAME 0 @^@@@@NN )@@G@@PSR$P* $NAME 1 @F@@@@ $DO P(0,0)+P(1)+($IBITS(P(NO )@@G@@1,1))**(1*/4))>1 ,; @A@@@@P(2) $EQU +(EQUF$ P(1),1) @F@@@@NP )@@G@@ $DO P(0,0)+($AP(P(2))>1*/16-1)+P(1)>1 , LA 12,P(2)@F@@@@NQ )@@G@@ $DO (P(1)=1)**(\P(0,0))**($AP(P(2))<1*/16) , ; @B@@@@NR )@@G@@ LA 12,+(OPT$$ P(1,1)) @^@@@@ ER PSR$NS )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@NT )@@G@@BANK$* $NAME 0 @D@@@@ $DO P(1)>0 ,P(2) $EQU +(EQNU )@@G@@UF$ P(1),1) @H@@@@ $DO ($AP(P(2))>1*/16-1)++(P(0,1)=P(0)-1)*NV )@@G@@*1-P(0,*1)**(P(1)>0) , ;@D@@@@ LA 12,+(EQUF$ P(1),1,2-PNW )@@G@@(0,*1)) @F@@@@ $DO (($AP(P(2))>1*/16-1)++(\P(1)))**P(NX )@@G@@0,*1) , ; @A@@@@ LXI,14 12,1*/17+P(0,1) @H@@@@ $DNY )@@G@@O (\P(0,*1))**(P(0)>1)**((P(1)=0)++($AP(P(2))>1*/16-1)) , ; @B@@@@NZ )@@G@@ LXI 12,+(EQUF$ P(0),1,*1) @H@@@@ $DO (1-(P(0OA )@@G@@,1)=P(0)-1)++P(0,*1))**(P(1)>0)**($AP(P(2))<1*/16) , ;@D@@@@ LAOB )@@G@@ 12,(1*/17*P(0,*1)+P(0,1),P(2)) @^@@@@BANK$P* $NAME 1 OC )@@G@@@E@@@@ $DO P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1)@ @@@@OD )@@G@@ ER BANK$ @#@@@@ $END @[@@@@ . @^@@@@OE )@@G@@P $PROC *255@^@@@@INFO$* $NAME 0 @E@@@@ $DOF )@@G@@O P>1 , LA 12,(2*P-1,$LCV(CTL$BNK(0))) @ @@@@ ER OG )@@G@@ INFO$ @#@@@@$(CTL$BNK(0)). @^@@@@INFO$PKT* $NAME 1 @B@@@@OH )@@G@@ $DO P(0,1)*P(0,0) , + 0D @^@@@@LEN(1) $EQU 2 OI )@@G@@@^@@@@LEN(2) $EQU 1 @^@@@@LEN(3) $EQU 2 @^@@@@LEN(4)OJ )@@G@@ $EQU 1 @^@@@@LEN(5) $EQU 1 @^@@@@LEN(6) $EQU OK )@@G@@ 1 @^@@@@LEN(7) $EQU 7 @ @@@@I $DO P-1 , ; OL )@@G@@@I@@@@ $GFORM 12,P(I,1),24,0,2,0,16,LEN(P(I,1))*(P(I)<3)+P(IOM )@@G@@,3),18,P(I,2) @B@@@@I $DO P(0,2)*P(0,0) , + 0D @B@@@@ON )@@G@@ $DO P(0,0)=0 ,$($ILCN) @#@@@@ END @^@@@@OO )@@G@@P $PROC *1 @#@@@@INFO$P* $NAME @D@@@@ $DO OP )@@G@@ P(1)>0 , LA 12,+(EQUF$ P(1) ) @ @@@@ ER INFO$ OQ )@@G@@@#@@@@ $END @[@@@@ . @^@@@@ $PROC *0,1@#@@@@OR )@@G@@OPT$* $NAME @^@@@@ ER OPT$@#@@@@ $END OS )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@PCT$* $NAME 0 OT )@@G@@@^@@@@PCT$P* $NAME 1 @ @@@@ $IF P(0,0) @D@@@@OU )@@G@@ $DO P(1)>0 , DL 12,+(EQUF$ P(1),1) @#@@@@ $EOV )@@G@@LSE @A@@@@LG $EQU P(1,2)+(P(1)<2) @E@@@@ $DO OW )@@G@@ (P(0)>1)**(P(1)>0) , LA,14 12,P(1,1) @C@@@@ $DO P(0)OX )@@G@@>1 , LA 13,(LG,P(0,1)) @E@@@@ $DO (P(0)=1)**(P(1)>0) , LOY )@@G@@A 12,(LG,P(1,1)) @#@@@@ $ENDF @^@@@@ ER PCT$OZ )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@PA )@@G@@MCT$* $NAME 0 @^@@@@MCT$P* $NAME 1 @F@@@@ $DPB )@@G@@O P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1,2) @C@@@@ $DPC )@@G@@O (\P(0,0))**(P(1)>0) , ; @G@@@@ LA,14 12,(MCT$PKPD )@@G@@T P(1,1),P(1,2),P(1,3),P(1,4)+(P(1)=3)) @^@@@@ ER MCT$PE )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @#@@@@PF )@@G@@MCT$PKT* $NAME @ @@@@ $IF P(1,2)=3 @G@@@@ $GPG )@@G@@FORM 12,0,6,P(1,2),18,P(1,1),18,P(1,4)+(P(1)=3),18,P(1,3)@#@@@@ PH )@@G@@ $ELSE @C@@@@ $GFORM 12,0,6,P(1,2),18,P(1,1) @#@@@@PI )@@G@@ $ENDF @#@@@@ $END @[@@@@ . @^@@@@P $PPJ )@@G@@ROC *1 @^@@@@IALL$* $NAME 0 @ @@@@A(1) $EQU 'IOPPK )@@G@@R' @ @@@@A(2) $EQU 'IGDM' @ @@@@A(3) $EQU 'IFOPL )@@G@@F' @ @@@@A(4) $EQU 'IFUF' @ @@@@A(5) $EQU 'IDOPM )@@G@@F' @ @@@@A(6) $EQU 'IRST' @ @@@@A(7) $EQU 'IABPN )@@G@@T' @ @@@@A(8) $EQU 'IINT' @ @@@@A(9) $EQU 'ITSPO )@@G@@' @ @@@@A(10) $EQU 'ERR$' @F@@@@A(11) $EQU 'IAIPP )@@G@@' INTER ACTIVITY INTERRUPT @ @@@@A(12) $EQU 'BRKPQ )@@G@@PT' @ @@@@A(13) $EQU 'PARITY' @ @@@@A(14) $EQU 'TIMPR )@@G@@E' @E@@@@ . 'TIME' VALUE IS ALSO USED FOR PCT OVERFLOWS PS )@@G@@@ @@@@A(15) $EQU 'TERM' @[@@@@ . @G@@@@C $EQU PT )@@G@@ 16 FIRST APPLICATION SUBSCRIPT @[@@@@ . @ @@@@PU )@@G@@A(C) $EQU *'PGM' @ @@@@A(C+1) $EQU *'PROGRAM'@ @@@@PV )@@G@@A(C+2) $EQU *'ACT' @A@@@@A(C+3) $EQU *'ACTIVITY' PW )@@G@@@ @@@@A(C+4) $EQU *'ESI' @ @@@@A(C+5) $EQU *'ESI' PX )@@G@@@ @@@@A(C+6) $EQU *'CDB' @ @@@@A(C+7) $EQU *'COMMON' PY )@@G@@@[@@@@ . @B@@@@B(0) $EQU (P(1)=2)+2*(P(1)=3) @F@@@@I PZ )@@G@@ $DO B(0) ,J $DO A , $DO P(1,I+1)=A(J) ,B(0) $EQU 0@C@@@@I QA )@@G@@ $DO B(0) ,B(I-1) $EQU P(1,I+1) @F@@@@I $DO P(1)QB )@@G@@-(P(1)>0) ,J $DO A , $DO P(1,I+1)=A(J) ,; @E@@@@B(A(*J)) $EQU B(A(QC )@@G@@*J))++1*/((J-C*A(*J))*/-A(*J)-1) @C@@@@DP $EQU (B(0)<0)++QD )@@G@@(B(0)>1*/12-1) @^@@@@ $IF DP @A@@@@IF $FORM QE )@@G@@ 12,6,18,18,18 @#@@@@ $ELSE @ @@@@IF $FORM 12,6QF )@@G@@,18 @#@@@@ $ENDF @D@@@@ $DO DP , DL 12,(IF ,QG )@@G@@B(1),P(1,1),,B(0))@F@@@@ $DO (P(1)>0)**1-DP , LA 12,(IF BQH )@@G@@(0),B(1),P(1,1)) @ @@@@ ER IALL$ @#@@@@ $EQI )@@G@@ND @[@@@@ . @^@@@@P $PROC *1 @^@@@@IALL$P* $NAME QJ )@@G@@ 1 @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@QK )@@G@@ ER IALL$ @#@@@@ $END @[@@@@ . @^@@@@QL )@@G@@P $PROC 0,1 @ @@@@CEND$* $NAME 'CEND$' @ @@@@CRTN$*QM )@@G@@ $NAME 'CRTN$' @ @@@@ ER [P(0,0)] @#@@@@ QN )@@G@@ $END @[@@@@ . @^@@@@P PROC *1 @#@@@@CQUE$* NAQO )@@G@@ME @A@@@@F FORM 6,4,4,4,6,6,6 @I@@@@ DO QP )@@G@@ P(1)>0 , F 8,14,,,P(1,2),P(1,3),P(1,2) . LA,U A0, @^@@@@QQ )@@G@@CQUE$P* NAME 1 @E@@@@ DO P(0,0)*(P(1)>0) , LA 1QR )@@G@@2,+(EQUF$ P(1) ) @D@@@@ DO P(0)>1 , LA 13,+(EQUF$ P(0) QS )@@G@@) @ @@@@ ER CQUE$ @#@@@@ END @^@@@@QT )@@G@@P PROC *1 @#@@@@TRMRG$* NAME @B@@@@B EQU QU )@@G@@ +(EQUF$ P(1),1,2) @F@@@@ DO (P(1)>0)**(P(0)<2)++($QV )@@G@@AP(B)<14*/26) , LXM 12,B@ @@@@F FORM 3,3,12,18 @F@@@@ QW )@@G@@ DO ((P(1)=0)++($AP(B)<14*/26))**(P(0)>1) , ; @C@@@@ QX )@@G@@ LXI,14 12,(F ,P(0,1),P(0,2))*/-18 @H@@@@ DO (P(0)>1QY )@@G@@)**(P(1)>1)**($AP(B)>14*/26-1)**(B<14*/26+0777777) , ;@D@@@@ LAQZ )@@G@@ 12,(F ,P(0,1),P(0,2),B-14*/26) @^@@@@TRMRG$P* NAME 1 RA )@@G@@@E@@@@ DO (P(1)>0)**P(0,0) , LA 12,+(EQUF$ P(1) ) @ @@@@RB )@@G@@ ER TRMRG$ @#@@@@ END @^@@@@P $PRC )@@G@@ROC *1 @^@@@@SETBP$* $NAME 0 @^@@@@L(1) $EQU 'W' RD )@@G@@@^@@@@L(2) $EQU 'R' @^@@@@L(3) $EQU 'WR'@^@@@@L(4) RE )@@G@@ $EQU 'P' @C@@@@ $DO P(0,1)='RW' ,P(0,1) $EQU 3 RF )@@G@@@D@@@@I $DO L , $DO P(0,1)=L(I) ,P(0,1) $EQU I@D@@@@ RG )@@G@@ $DO P(0)>3 ,P(0,1) $EQU P(0,1)++8 @G@@@@P(3) $EQU RH )@@G@@ +($GFORM 18,0,2,0,4,P(0,1),6,P(0,2)+63*(P(0)<3)) @D@@@@ $DRI )@@G@@O P(1)>0 ,P(2) $EQU +(EQUF$ P(1),1) @H@@@@ $DO ($APRJ )@@G@@(P(2))<1*/16)*(P(1)+P(0)>1) , LA 12,+(OPT$$ P(3),P(2))@^@@@@SETBP$P* $NRK )@@G@@AME 1 @F@@@@ $DO (P(1)>0)**P(0,0)++($AP(P(2))>1*/16RL )@@G@@-1) , ; @D@@@@ LA 12,+(EQUF$ P(1),1,2-2*P(0,0)) RM )@@G@@@F@@@@ $DO ($AP(P(2))>1*/16-1)*(P(0)>1) , LXI,14 12,P(3) RN )@@G@@@G@@@@ $DO P(0)>3-2*P(0,0) , LA 13,+(EQUF$ P(0),3-2*P(0,0RO )@@G@@),*1) @ @@@@ ER SETBP$ @#@@@@ $END @[@@@@RP )@@G@@ . @^@@@@P $PROC *1 @#@@@@ABSAD$* $NAME @ @@@@ RQ )@@G@@ $DO P(1)>0 , ;@F@@@@ LA,14 12,($GFORM 18,P(1,2),1RR )@@G@@8,P(1,3),36,P(1,1)) @^@@@@ABSAD$P* $NAME 1 @F@@@@ $DRS )@@G@@O (P(1)>0)**P(0,0) , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ERRT )@@G@@ ABSAD$ @#@@@@ $END @[@@@@ . @^@@@@P $PRU )@@G@@ROC *1 @^@@@@ADED$* $NAME 1 @#@@@@ADED$P* $NAME @E@@@@RV )@@G@@ $D0 P(1)>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) @ @@@@ RW )@@G@@ ER ADED$ @#@@@@ $END @[@@@@ . @^@@@@SYSBALRX )@@G@@$P* $PROC *1 @#@@@@SYSBAL$* $NAME @F@@@@ $DO \\SYRY )@@G@@SBAL$P(1) , LA 12,+(EQUF$ SYSBAL$P(1),1,2)@ @@@@ ER SYSBRZ )@@G@@AL$ @#@@@@ $END @[@@@@ . @^@@@@Q $PROC *2 SA )@@G@@@^@@@@COM$PGEN* $NAME 0 @^@@@@C(1) $EQU 'S' @^@@@@C(2) SB )@@G@@ $EQU 'I' @^@@@@C(3) $EQU 'C' @^@@@@C(4) $EQU SC )@@G@@ 'H' @ @@@@B(0) $EQU P(0,1) @D@@@@I $DO C , SD )@@G@@$DO B(0)=C(I) ,B(0) $EQU I-1 @G@@@@ $GFORM 6,0,6,B(0),6,P(2SE )@@G@@,3),18,0,6,0,12,P(1,2)+50*(P(1)=1),;@ @@@@ 18,P(1,1) SF )@@G@@@C@@@@ * P(2,2)+50*(P(2)=1),P(2,1) @D@@@@ $DSG )@@G@@O P(2,3)>31 , $RES 1. FOR RUNID @#@@@@ $END @[@@@@SH )@@G@@ . @^@@@@P $PROC *2 @^@@@@COM$PKT* $NAME 0 @#@@@@SI )@@G@@ COM$PGEN@#@@@@ $END @[@@@@ . @^@@@@P $PSJ )@@G@@ROC *2 @^@@@@COM$* $NAME 0 @D@@@@ $DO P(1)SK )@@G@@>0 , LA,14 12,$LCV(CTL$BNK(0))@^@@@@F* $PROC 0 @^@@@@$(CTL$SL )@@G@@BNK(0)) . @#@@@@ COM$PGEN@]@@@@$($ILCN) . @#@@@@ SM )@@G@@ $END @[@@@@ . @^@@@@ ER COM$@ @@@@ $DSN )@@G@@O P(1)>0 , F@#@@@@ $END @[@@@@ . @^@@@@P $PSO )@@G@@ROC *1 @^@@@@COM$P* $NAME 0 @D@@@@ $DO P(1)SP )@@G@@>0 , LA 12,+(EQUF$ P(1),1,2) @^@@@@ ER COM$@#@@@@ SQ )@@G@@ $END @[@@@@ . @#@@@@P $PROC @^@@@@II$* $NAME SR )@@G@@ 0 @^@@@@ ER II$ @#@@@@ $END @[@@@@ . SS )@@G@@@^@@@@Q $PROC 0,3 @^@@@@SNAP$PGEN* $NAME 0 @B@@@@ ST )@@G@@ $DO P(1)>2 , LJSF$1 P(1,3)@B@@@@ $DO P(1)<3 , +SU )@@G@@ $CFS(5)SL @^@@@@REGS $EQU 0 @ @@@@I $REPEAT P(0)SV )@@G@@-1 @A@@@@J $REPEAT $SL(P(0,I)) @A@@@@REG $EQU SW )@@G@@ $SS(P(0,I),J,1) @G@@@@REGS $EQU REGS++(1*(REG='R'))++(2*(REGSX )@@G@@='A'))++(4*(REG='X')) @#@@@@ $ENDR @#@@@@ $ENDR SY )@@G@@@E@@@@ $GFORM 3,REGS,15,P(1,2)+(P(1)=1),18,P(1,1),36,0@#@@@@SZ )@@G@@ $END @[@@@@ . @^@@@@P $PROC 1,3 @^@@@@SNAP$PTA )@@G@@KT* $NAME 0 @^@@@@ SNAP$PGEN @#@@@@ $END TB )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@SNAP$* $NAME 0 TC )@@G@@@^@@@@F* $PROC 0 @^@@@@$(CTL$BNK(0)) . @^@@@@ TD )@@G@@ SNAP$PGEN @]@@@@$($ILCN) . @#@@@@ $END @[@@@@ . TE )@@G@@@A@@@@ $IF P(0)+P(1)>1 @B@@@@ SA 12,$TF )@@G@@LCV(CTL$BNK(0))+2 @B@@@@ LA,14 12,$LCV(CTL$BNK(0)) @#@@@@TG )@@G@@ $ENDF @ @@@@ ER SNAP$ @A@@@@ $DTH )@@G@@O P(0)+P(1)>1 , F @#@@@@ $END @[@@@@ . @^@@@@P TI )@@G@@ $PROC *1 @^@@@@SNAP$P* $NAME 0 @F@@@@ $DO TJ )@@G@@ (P(1)>0)**(P(1)<3) , SA 12,P(1,1)+2,P(1,2) @D@@@@ $DO TK )@@G@@ P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER SNAP$ TL )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @#@@@@TM )@@G@@ERRPR$* $NAME @C@@@@ $DO P>1 , LA,14 12,(,P(1,1)) TN )@@G@@@^@@@@ERRPR$P* $NAME 1 @E@@@@ $DO P(0,0)*(P>1) , LTO )@@G@@A 12,+(EQUF$ P(1),1,2) @ @@@@ ER ERRPR$ @#@@@@ TP )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@READ$P* $NTQ )@@G@@AME *'READ$' @ @@@@AREAD$P* $NAME *'AREAD$' @D@@@@ $DTR )@@G@@O P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@READ$* $NAME 'REATS )@@G@@D$' @ @@@@AREAD$* $NAME 'AREAD$' @H@@@@ $DO 1-P(TT )@@G@@0,*0)**(P(1)>0) , LA 12,(($+2)*(P(1)=1)+P(1,2),P(1,1))@ @@@@ ERTU )@@G@@ [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PTV )@@G@@ROC *1 @^@@@@PRINT$P* $NAME *0 @^@@@@APRINT$P* $NAME *1 TW )@@G@@@D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) @^@@@@PRINT$TX )@@G@@* $NAME 0 @^@@@@APRINT$* $NAME 1 @C@@@@ $DO TY )@@G@@ (\P(0,*0))**(P(1)>0) , ; @D@@@@ LA 12,($GFORM 12,P(TZ )@@G@@1,3)+(P(1)<3),; @F@@@@ 6,(22+11*P(0,0))*(P(1)<2)+P(UA )@@G@@1,2),18,P(1,1)) @B@@@@ ER P(0,0)->APRINT$!PRINT$@#@@@@UB )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@PRINT$UC )@@G@@S* $NAME 'PRINT$' @ @@@@APRINT$S* $NAME *'APRINT$'@ @@@@PF UD )@@G@@ $FORM 12,6,18 @A@@@@SP $EQU P(1,2)+(P(1)=1) @A@@@@UE )@@G@@ $DO P(0,*0) , ; @F@@@@ LA 12,(PF SP,UF )@@G@@$SL(P(1,1))//4,($CAS(P(1,1))L)) @A@@@@ $DO \P(0,*0) ,UG )@@G@@ ; @F@@@@ LA 12,(PF SP,$SL(P(1,1))//6,($CFS(P(1,1))L)UH )@@G@@) @ @@@@ ER [P(0,0)] @#@@@@ $END @[@@@@UI )@@G@@ . @^@@@@P $PROC *1 @^@@@@PUNCH$P* $NAME 0 @^@@@@UJ )@@G@@APUNCH$P* $NAME 1 @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$UK )@@G@@ P(1),1) @^@@@@PUNCH$* $NAME *0 @^@@@@APUNCH$* $NAME *1 UL )@@G@@@B@@@@ $DO P(0,*0)**(P(1)>0) , ; @F@@@@ LA UM )@@G@@ 12,((14+6*P(0,0))*(P(1)<2)+P(1,2),P(1,1)) @B@@@@ ER UN )@@G@@ P(0,0)->APUNCH$!PUNCH$@#@@@@ $END @[@@@@ . @^@@@@Q UO )@@G@@ $PROC 0,3 @^@]@@PRNTA$PGEN $NAME 0 @^@@@]PRNTA$PGEN* $NAME UP )@@G@@ 0 @H@@@@ $GFORM 12,P(1,4)+(P(1)<4),6,(22+11*P(0,0))*(P(1UQ )@@G@@)<3)+P(1,3),; @ @@@@ 18,P(1,2) @ @@@@ LJUR )@@G@@SF$2 P(1,1) @#@@@@ $END @[@@@@ . @^@@@@P $PUS )@@G@@ROC 1,3 @^@@@@PRNTA$PKT* $NAME 0 @^@@@@APRNTA$PKT* $NAME 1 UT )@@G@@@^@@@@ PRNTA$PGEN @#@@@@ $END @[@@@@ . @^@@@@UU )@@G@@P $PROC *1 @^@@@@PRNTA$* $NAME 0 @^@@@@APRNTA$* $NUV )@@G@@AME 1 @D@@@@ $DO P(1)>0 , LA,14 12,$LCV(CTL$BNK(0))UW )@@G@@@^@@@@F* $PROC 0 @^@@@@$(CTL$BNK(0)) . @^@@@@ UX )@@G@@ PRNTA$PGEN @]@@@@$($ILCN) . @#@@@@ $END @[@@@@ . UY )@@G@@@B@@@@ ER P(0,0)->APRNTA$!PRNTA$@ @@@@ $DO UZ )@@G@@ P(1)>0 , F@#@@@@ $END @[@@@@ . @^@@@@P $PROC VA )@@G@@ *1 @ @@@@PRNTA$P* $NAME 'PRNTA$' @ @@@@APRNTA$P* $NAME 'APRVB )@@G@@NTA$' @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@VC )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@VD )@@G@@Q $PROC 0,3 @^@@@@PNCHA$PGEN* $NAME 0 @F@@@@ $GVE )@@G@@FORM 12,0,6,(14+6*P(0,0))*(P(1)<3)+P(1,3),18,P(1,2)@ @@@@ LJVF )@@G@@SF$2 P(1,1) @#@@@@ $END @[@@@@ . @^@@@@P $PVG )@@G@@ROC 1,3 @^@@@@PNCHA$PKT* $NAME 0 @^@@@@APNCHA$PKT* $NAME 1 VH )@@G@@@^@@@@ PNCHA$PGEN @#@@@@ $END @[@@@@ . @^@@@@VI )@@G@@P $PROC *1 @^@@@@PNCHA$* $NAME 0 @^@@@@APNCHA$* $NVJ )@@G@@AME 1 @^@@@@F* $PROC 0 @^@@@@$(CTL$BNK(0)) . VK )@@G@@@^@@@@ PNCHA$PGEN @]@@@@$($ILCN) . @#@@@@ $END VL )@@G@@@[@@@@ . @E@@@@ $DO P(1)>0 , LA,14 12,$LCV(CTL$BNK(0)VM )@@G@@) @B@@@@ ER P(0,0)->APNCHA$!PNCHA$@ @@@@ $DVN )@@G@@O P(1)>0 , F@#@@@@ $END @[@@@@ . @^@@@@P $PVO )@@G@@ROC *1 @ @@@@PNCHA$P* $NAME 'PNCHA$' @ @@@@APNCHA$P* $NAME VP )@@G@@ 'APNCHA$' @D@@@@ $DO P(1)> , LA 12,+(EQUF$ P(1),1,2) VQ )@@G@@@ @@@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . VR )@@G@@@^@@@@Q $PROC 0,3 @^@@@@READA$PGEN* $NAME 0 @A@@@@ VS )@@G@@ + P(1,3),P(1,2) @ @@@@ LJSF$2 P(1,1) @#@@@@VT )@@G@@ $END @[@@@@ . @^@@@@P $PROC 1,3 @^@@@@READA$VU )@@G@@PKT* $NAME 0 @^@@@@AREADA$PKT* $NAME 1 @^@@@@ARDA$PKT* $NAME VV )@@G@@ 2 @D@@@@ $DO P(1)<3 ,P(1,3) $EQU (ER ERR$) @^@@@@VW )@@G@@ READA$PGEN @#@@@@ $END @[@@@@ . @^@@@@P VX )@@G@@ $PROC *1 @ @@@@READA$* $NAME 'READA$' @ @@@@AREADA$* $NVY )@@G@@AME 'AREADA$' @ @@@@ARDA$* $NAME 'ARDA$' @^@@@@F* $PVZ )@@G@@ROC 0 @^@@@@$(CTL$BNK(0)) . @^@@@@ READA$PGEN WA )@@G@@@]@@@@$($ILCN) . @#@@@@ $END @C@@@@ $DO P(1)WB )@@G@@=2 ,P(1,3) $EQU $LCV+2 @D@@@@ $DO P(1)>0 , LA,14 12,$LCVWC )@@G@@(CTL$BNK(0))@ @@@@ ER [P(0,0)] @#@@@@ $END WD )@@G@@@[@@@@ . @^@@@@P $PROC *1 @ @@@@READA$P* $NAME 'REAWE )@@G@@DA$' @ @@@@AREADA$P* $NAME 'AREADA$' @ @@@@ARDA$P* $NAME 'ARDWF )@@G@@A$' @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@WG )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@WH )@@G@@P $PROC *1 @ @@@@PRTCN$* $NAME 'PRTCN$' @ @@@@APRTCNWI )@@G@@$* $NAME 'APRTCN$' @ @@@@PRTCA$* $NAME 'PRTCA$' @ @@@@APRTCAWJ )@@G@@$* $NAME 'APRTCA$' @ @@@@PCHCN$* $NAME 'PCHCN$' @ @@@@APCHCNWK )@@G@@$* $NAME 'APCHCN$' @ @@@@PCHCA$* $NAME 'PCHCA$' @ @@@@APCHCAWL )@@G@@$* $NAME 'APCHCA$' @ @@@@PRTCN$P* $NAME *'PRTCN$' @ @@@@APRTCNWM )@@G@@$P* $NAME *'APRTCN$'@ @@@@PRTCA$P* $NAME *'PRTCA$' @ @@@@APRTCAWN )@@G@@$P* $NAME *'APRTCA$'@ @@@@PCHCN$P* $NAME *'PCHCN$' @ @@@@APCHCNWO )@@G@@$P* $NAME *'APCHCN$'@ @@@@PCHCA$P* $NAME *'PCHCA$' @ @@@@APCHCAWP )@@G@@$P* $NAME *'APCHCA$'@F@@@@ $DO P(0,*0)**(P(1)>0) , LAWQ )@@G@@ 12,+(EQUF$ P(1),1) @H@@@@ $DO P(1)=1 ,P(1,2) $EQU (1WR )@@G@@32-52*(($SS(P(0,0),1,3)='PCH')++; @C@@@@ ($SS(P(0,0WS )@@G@@),1,3)='APC')))//;@D@@@@ (6-2*($SS(P(0,0),1,1)='A'))+WT )@@G@@; @G@@@@ 2*(($SS(P(0,0),5,2)='A$')++($SS(P(0,0),6WU )@@G@@,2)='A$')) @F@@@@ $DO 1-P(0,*0)**(P(1)>0) , LA 12,(P(1,2WV )@@G@@),P(1,1)) @ @@@@ ER [P(0,0)] @#@@@@ $END WW )@@G@@@[@@@@ . @^@@@@P $PROC *1 @ @@@@PRTCN$S* $NAME 'PRTWX )@@G@@CN$' @ @@@@PRTCA$S* $NAME 'PRTCA$' @ @@@@PCHCN$S* $NAME 'PCHWY )@@G@@CN$' @ @@@@PCHCA$S* $NAME 'PCHCA$' @E@@@@ LA 12,(WZ )@@G@@$SL(P(1,1))//6,($CFS(P(1,1))L)) @ @@@@ ER [P(0,0)] XA )@@G@@@ @@@@ $DO 1 , $END @ @@@@APRTCN$S* $NAME 'APRTCN$' XB )@@G@@@ @@@@APRTCA$S* $NAME 'APRTCA$' @ @@@@APCHCN$S* $NAME 'APCHCN$' XC )@@G@@@ @@@@APCHCA$S* $NAME 'APCHCA$' @E@@@@ LA 12,($SL(P(XD )@@G@@1,1))//4,($CAS(P(1,1))L)) @ @@@@ ER [P(0,0)] @#@@@@XE )@@G@@ $END @[@@@@ . @[@@@@ . @^@@@@P $PROC *2 XF )@@G@@@ @@@@TREAD$P* $NAME *'TREAD$' @ @@@@ATREAD$P* $NAME *'ATREAD$'XG )@@G@@@ @@@@ATRD$P* $NAME *'ATRD$' @D@@@@ $DO P(1)>0 , LXH )@@G@@A 12,+(EQUF$ P(1),1,2) @ @@@@TREAD$* $NAME 'TREAD$' @ @@@@ATREADXI )@@G@@$* $NAME 'ATREAD$' @ @@@@ATRD$* $NAME 'ATRD$' @C@@@@ XJ )@@G@@ $DO P(2)=0 ,P(2,1) EQU P(1,1) @C@@@@ $DO (\P(XK )@@G@@0,*0))**(P(1)>0) , ; @I@@@@ LA,14 12,($GFORM 12,P(1,3)+(XL )@@G@@P(1)<3),6,(33-11*(P(0,0)='TREAD$'))*; @H@@@@ (P(1XM )@@G@@)<2)+P(1,2),18,P(1,1),18,($LCV+2)*(P(2)<2)+P(2,2),; @ @@@@ XN )@@G@@ 18,P(2,1))@ @@@@ ER [P(0,0)] @#@@@@ $EXO )@@G@@ND @[@@@@ . @^@@@@CLIST$PGEN* $PROC *0 @^@@@@TERM $EQU XP )@@G@@ -0 @D@@@@ $DO \P(1,P(1)) ,TERM $EQU P(1,P(1)) @E@@@@XQ )@@G@@ $DO \\P(0,1) , $GEN 0,0,0,0,P(0,1),TERM @F@@@@I XR )@@G@@ $DO (\P(1))+P(1)-(\P(1,P(1))) , LJSF$1 P(1,I) @B@@@@ XS )@@G@@ $DO \P(0,1) , $GEN TERM @#@@@@ $END @[@@@@ . XT )@@G@@@[@@@@ . @^@@@@ACLIST$PGEN* $PROC *0 @C@@@@PLUS $EQU 0100XU )@@G@@100100100100100100100D @C@@@@MINUS $EQU 0137137137137137137137XV )@@G@@137D @ @@@@F $FORM 36,36 @A@@@@B(0) $EQU P(1,XW )@@G@@P(1))=PLUS @A@@@@B(1) $EQU P(1,P(1))=MINUS @E@@@@ $DXX )@@G@@O P(1,P(1))=0 ,B(+(F ,P(1,P(1)))>0) $EQU 1@E@@@@I $DO XY )@@G@@ (P(1)=0)+P(1)-B(0)-B(1) , ALJSF$2 P(1,I)@A@@@@ $DO B(0)XZ )@@G@@ , $GEN PLUS@B@@@@ $DO B(1) , $GEN MINUS @#@@@@ YA )@@G@@ END @^@@@@P $PROC *1 @^@@@@CLIST$PKT* $NAME 0 YB )@@G@@@^@@@@ACLIST$PKT* $NAME 1 @B@@@@ $DO \P(0,0) , CLIST$YC )@@G@@PGEN @B@@@@ $DO P(0,0) , ACLIST$PGEN @#@@@@ $EYD )@@G@@ND @[@@@@ . @^@@@@P $PROC *1 @ @@@@CLIST$* $NAME YE )@@G@@ 'CLIST$' @ @@@@ACLIST$* $NAME *'ACLIST$'@H@@@@ $DO YF )@@G@@ (\\P(1))**(\\P(0,1)) , LA 12,(P(0,1),$LCV(CTL$BNK(0))) @G@@@@ YG )@@G@@ $DO (\\P(1))**(\P(0,1)) , LA,14 12,$LCV(CTL$BNK(0)) @ @@@@YH )@@G@@ ER [P(0,0)] @F@@@@ $DO (\P(1))**(\P(0,*YI )@@G@@0)) ,$(CTL$BNK(0)) CLIST$PGEN @F@@@@ $DO (\P(1))**(P(0,*0YJ )@@G@@)) ,$(CTL$BNK(0)) ACLIST$PGEN @#@@@@$($ILCN) $END @[@@@@ . @^@@@@YK )@@G@@P $PROC *1 @ @@@@ACLIST$P* $NAME 'ACLIST$' @ @@@@CLIST$YL )@@G@@P* $NAME 'CLIST$' @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$YM )@@G@@ P(1),1,2) @ @@@@ ER [P(0,0)] @#@@@@ $END YN )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@RSI$* $NAME 0 YO )@@G@@@^@@@@RSI$P* $NAME 0 @D@@@@ $DO P(1)>0 , LA 12,+YP )@@G@@(EQUF$ P(1),1,2) @^@@@@ ER RSI$@#@@@@ $END YQ )@@G@@@[@@@@ . @^@@@@P $PROC 1,2 @^@@@@PLINE$* $NAME 0 YR )@@G@@@E@@@@ LA 12,(1,($CFS('L,'):$CFS($CD(P(1,1)))L)) @ @@@@YS )@@G@@ ER PRTCN$ @#@@@@ $END @[@@@@ . @^@@@@YT )@@G@@PMARG$* $PROC 1,2 @C@@@@A(4) FDCVT$ 66*(PMARG$(1)<1)+PMARGYU )@@G@@$(1,1)@C@@@@A(5) FDCVT$ 6*(PMARG$(1)<2)+PMARG$(1,2)@C@@@@A(6) YV )@@G@@ FDCVT$ 3*(PMARG$(1)<3)+PMARG$(1,3)@G@@@@ LA 12,(YW )@@G@@2,($GFORM 12,$CFS('M,'),12,A(4),6,$CFS(','),; @F@@@@ YX )@@G@@ 12,A(5),6,$CFS(','),12,A(6),12,$CFS(' '))) @ @@@@ ER YY )@@G@@ PRTCN$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC YZ )@@G@@ *1 @ @@@@IO$* $NAME 'IO$' @ @@@@IOI$* $NAME 'IOIZA )@@G@@$' @ @@@@IOW$* $NAME 'IOW$' @ @@@@IOWI$* $NAME 'IOWZB )@@G@@I$' @ @@@@IOXI$* $NAME 'IOXI$' @ @@@@IOARB$* $NAME 'IOAZC )@@G@@RB$' @ @@@@IOAXI$* $NAME 'IOAXI$' @ @@@@IO$P* $NAME *'IOZD )@@G@@$' @ @@@@IOI$P* $NAME *'IOI$' @ @@@@IOW$P* $NAME *'IOZE )@@G@@W$' @ @@@@IOWI$P* $NAME *'IOWI$' @ @@@@IOXI$P* $NAME *'IOZF )@@G@@XI$' @ @@@@IOARB$P* $NAME *'IOARB$' @ @@@@IOAXI$P* $NAME *'IOZG )@@G@@AXI$' @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@ZH )@@G@@WAIT$* $NAME 'WAIT$' @D@@@@ $DO (P(0,0)='WAIT$')ZI )@@G@@**(P(1)>0) ,; @A@@@@ TP 3+(EQUF$ P(1),1)@ @@@@ ZJ )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P ZK )@@G@@ $PROC 0,1 @ @@@@WANY$* $NAME 'WANY$' @ @@@@UNLCK$* $NZL )@@G@@AME 'UNLCK$' @ @@@@ ER [P(0,0)] @#@@@@ $EZM )@@G@@ND @[@@@@ . @^@@@@P $PROC *4 @^@@@@IO$PKT* $NAME ZN )@@G@@ 0 @ @@@@ LJSF$2 P(1,1) @F@@@@ $GFORM 12,0ZO )@@G@@,6,P(1,3),18,P(1,2),6,0,6,P(0,1),6,0,18,0 @ @@@@G $EQU P(2,ZP )@@G@@3) @A@@@@ $DO G='D' ,G $EQU 2 @A@@@@ $DO ZQ )@@G@@ G='N' ,G $EQU 1 @C@@@@ $DO (G='DN')++(G='ND') ,G $EQU 3ZR )@@G@@@E@@@@ $DO P(2)>0 , $GFORM 2,G,16,P(2,1),18,P(2,2) @ @@@@ZS )@@G@@ $IF P+P(3)>5 @G@@@@ $DO P(3)>0 , $GFORMZT )@@G@@ 12,P(3,2),24,P(3,1),36,P(4,1) @#@@@@ $ELSE @E@@@@ ZU )@@G@@ $DO P(3)>0 , $GFORM 12,P(3,2),24,P(3,1) @#@@@@ $EZV )@@G@@NDF @D@@@@ $DO (P(3)>1)**(P(4)>0) ,X $EQU 08 @A@@@@ZW )@@G@@ $DO P(4)>0 , + 0 @#@@@@ $END @[@@@@ . ZX )@@G@@@^@@@@P $PROC 8,1 @^@@@@SM$PKT* $NAME 0 @[@@@@ . ZY )@@G@@@B@@@@SM('DENSITY','HIGH') $EQU 3*/34 @B@@@@SM('DENSITY','MEDIZZ )@@G@@UM') $EQU 2*/34 @B@@@@SM('DENSITY','LOW') $EQU 1*/34 AA )@@G@@@B@@@@SM('PARITY','EVEN') $EQU 2*/32 @B@@@@SM('PARITY','ODD')AB )@@G@@ $EQU 1*/32 @B@@@@SM('BCD','ON') $EQU 1*/30 AC )@@G@@@B@@@@SM('BCD','OFF') $EQU 2*/30 @B@@@@SM('NOISE',1) AD )@@G@@ $EQU 1*/28 @B@@@@SM('SUPPRESS','ON') $EQU 1*/26 AE )@@G@@@B@@@@SM('SUPPRESS','OFF') $EQU 2*/26 @B@@@@SM('MSA-TRN','EBCDAF )@@G@@IC') $EQU 1*/22 @B@@@@SM('MSA-TRN','ASCII') $EQU 2*/22 AG )@@G@@@B@@@@SM('MSA-TRN','XSEBCD') $EQU 3*/22 @B@@@@SM('MSA-TRN','XSASAH )@@G@@CI') $EQU 4*/22 @B@@@@SM('MSA-TRN','OFF') $EQU 15*/22 AI )@@G@@@B@@@@SM('UNIT-TRN','ON') $EQU 1*/20 @B@@@@SM('UNIT-TRN','OFFAJ )@@G@@') $EQU 2*/20 @B@@@@SM('FORMAT','Q') $EQU 1*/18 AK )@@G@@@B@@@@SM('FORMAT','6') $EQU 2*/18 @B@@@@SM('FORMAT',6) AL )@@G@@ $EQU 2*/18 @B@@@@SM('FORMAT','8') $EQU 3*/18 AM )@@G@@@B@@@@SM('FORMAT',8) $EQU 3*/18 @[@@@@ . @^@@@@MODES AN )@@G@@ $EQU 0 @^@@@@I $REPEAT P-1 @A@@@@ $IF AO )@@G@@ P(I,1)='NOISE' @C@@@@MODES $EQU MODES++SM('NOISE',1)++P(I,2)AP )@@G@@@#@@@@ $ELSE @C@@@@MODES $EQU MODES++SM(P(I,1),P(I,2AQ )@@G@@)) @#@@@@ $ENDF @#@@@@ $ENDR @ @@@@ + AR )@@G@@ MODES @#@@@@ $END @[@@@@ . @^@@@@P $PAS )@@G@@ROC *1 @^@@@@FITEM$* $NAME 0 @^@@@@FITEM$P* $NAME 1 AT )@@G@@@C@@@@ $DO (\P(0,0))**(P(1)>0) , ; @D@@@@ LAAU )@@G@@ 12,(131071*(P(1)=1)+P(1,2),P(1,1))@E@@@@ . AV )@@G@@ 131071 = 0377777 @E@@@@ $DO P(0,0)**(PAW )@@G@@(1)>0) , LA 12,+(EQUF$ P(1),1)@ @@@@ ER FITEM$ @#@@@@AX )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@FACIL$AY )@@G@@* $NAME 'FACIL$' @ @@@@FACIT$* $NAME 'FACIT$' @ @@@@FACIL$AZ )@@G@@P* $NAME *'FACIL$' @ @@@@FACIT$P* $NAME *'FACIT$' @D@@@@ BA )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER BB )@@G@@ [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PROC BC )@@G@@ *1 @ @@@@TINTL$* $NAME 'TINTL$' @ @@@@TSWAP$* $NAME 'TSWBD )@@G@@AP$' @ @@@@RSWAP$* $NAME 'RSWAP$' @ @@@@TINTL$P* $NAME *'TIBE )@@G@@NTL$' @ @@@@TSWAP$P* $NAME *'TSWAP$' @ @@@@RSWAP$P* $NAME *'RSBF )@@G@@WAP$' @F@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2-2*P(0,*0BG )@@G@@)) @G@@@@ $DO (\P(0,*0))**(P(0)>1) , LXI 12,+(EQUF$ P(BH )@@G@@0),1,*1) @ @@@@ ER [P(0,0)] @#@@@@ $END BI )@@G@@@[@@@@ . @^@@@@P $PROC *1 @ @@@@BBEOF$* $NAME 'BBEBJ )@@G@@OF$' @ @@@@MSCON$* $NAME 'MSCON$' @ @@@@BBEOF$P* $NAME *'BBBK )@@G@@EOF$' @ @@@@MSCON$P* $NAME *'MSCON$' @D@@@@ $DO P(1)BL )@@G@@>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER [P(0,0)] @#@@@@BM )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@DGET$PBN )@@G@@KT* $NAME 'DGET$' @ @@@@DGETP$PKT* $NAME 'DGETP$' @A@@@@ BO )@@G@@ $GFORM 30,0,6,[P(0,0)] @ @@@@ LJSF$2 P(1,1) @^@@@@BP )@@G@@ + 0 @A@@@@ + P(1,2),P(1,3) @D@@@@BQ )@@G@@ $DO P(0,0)='DGETP$' , LJSF$1 P(1,4) @#@@@@ $EBR )@@G@@ND @[@@@@ . @^@@@@P $PROC 1,5 @#@@@@DREAD$PKT* $NAME BS )@@G@@@A@@@@ $GFORM 30,0,6,DREAD$ @ @@@@ LJSF$2 P(1,BT )@@G@@1) @G@@@@ $GFORM 12,P(1,3),6,P(1,4),18,P(1,2),12,P(1,5),1BU )@@G@@2,0,12,0 @#@@@@ $END @[@@@@ . @^@@@@P $PROC BV )@@G@@ 1,4 @ @@@@DBITS$PKT* $NAME 'DBITS$' @ @@@@DUNLD$PKT* $NAME 'DUNBW )@@G@@LD$' @ @@@@DCYC$PKT* $NAME 'DCYC$' @A@@@@ $GFORM 30,0BX )@@G@@,6,[P(0,0)] @ @@@@ LJSF$2 P(1,1) @D@@@@ $DO BY )@@G@@ P(0,0)='DBITS$' , +P(1,2),P(1,3) @C@@@@ $DO P(0,0)='DUBZ )@@G@@NLD$' , +P(1,2) @E@@@@ $DO P(0,0)='DCYC$' , $GFORM 30,0CA )@@G@@,6,P(1,2) @#@@@@ $END @[@@@@ . @^@@@@P $PROC CB )@@G@@ *2 @#@@@@DBACK$PKT* $NAME @A@@@@ $GFORM 30,0,6,DBACK$ CC )@@G@@@ @@@@ LJSF$2 P(1,1) @D@@@@NR $EQU (P(2)-P(0,CD )@@G@@1))*(P(2)>P(0,1))+P(0,1)@ @@@@ + NR,,0 @ @@@@ CE )@@G@@ + P(1,2) @F@@@@ $GFORM 6,P(1,6),6,P(1,7),6,0,CF )@@G@@18,P(1,3),12,P(1,8),; @B@@@@ 12,P(1,5),12,P(1,4) CG )@@G@@@B@@@@I $DO NR , LJSF$1 P(2,I) @#@@@@ $END CH )@@G@@@[@@@@ . @^@@@@P $PROC 1,5 @#@@@@DLAPS$PKT* $NAME @A@@@@CI )@@G@@ $GFORM 30,0,6,DLAPS$ @ @@@@ LJSF$2 P(1,1) CJ )@@G@@@ @@@@ + P(1,2) @ @@@@ + P(1,3) CK )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC 1,7 @#@@@@CL )@@G@@DKEY$PKT* $NAME @A@@@@ $GFORM 30,0,6,DKEY$ @ @@@@ CM )@@G@@ LJSF$2 P(1,1) @E@@@@I $DO 4 , +(LJSF$1 P(1,I+1))CN )@@G@@*(\\P(1,I+1)) @#@@@@ $END @[@@@@ . @^@@@@P $PCO )@@G@@ROC 1,5 @#@@@@DBB$PKT* $NAME @A@@@@ $GFORM 30,0,6,DBBCP )@@G@@$ @ @@@@ LJSF$2 P(1,1) @D@@@@ $GFORM 12,0CQ )@@G@@,24,P(1,2),18,P(1,3),18,P(1,4)@#@@@@ $END @[@@@@ . @^@@@@CR )@@G@@P $PROC 1,10@#@@@@DREG$PKT* $NAME @A@@@@ $GFORM CS )@@G@@ 30,0,6,DREG$ @B@@@@I $DO 3 , LJSF$2 P(1,I) @C@@@@CT )@@G@@ $GFORM 12,0,6,P(1,4),18,P(1,5) @ @@@@ + CU )@@G@@ P(1,6) @ @@@@ + P(1,7) @#@@@@ $END CV )@@G@@@[@@@@ . @^@@@@P $PROC 1,3 @#@@@@MSALL$PKT* $NAME @A@@@@CW )@@G@@ $GFORM 30,0,6,MSALL$ @A@@@@ + P(1,2),P(1CX )@@G@@,1) @^@@@@ + 0 @#@@@@ $END @[@@@@ . CY )@@G@@@^@@@@Q $PROC 0,3 @^@@@@LABEL$PGEN* $NAME 0 @D@@@@ CZ )@@G@@ $GFORM 6,P(1,4),6,P(1,3),6,0,18,P(1,2) @ @@@@ LJSF$2 DA )@@G@@ P(1,1) @#@@@@ $END @[@@@@ . @^@@@@P $PROC DB )@@G@@ 1,3 @^@@@@LABEL$PKT* $NAME 0 @^@@@@ LABEL$PGEN @#@@@@DC )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@LABEL$DD )@@G@@* $NAME 0 @^@@@@F* $PROC 0 @^@@@@$(CTL$BNK(0)) DE )@@G@@ . @^@@@@ LABEL$PGEN @]@@@@$($ILCN) . @#@@@@ $EDF )@@G@@ND @D@@@@ $DO P(1)>0 , LA,14 12,$LCV(CTL$BNK(0))@ @@@@DG )@@G@@ ER LABEL$ @ @@@@ $DO P(1)>0 , F@#@@@@DH )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@LABEL$DI )@@G@@P* $NAME 0 @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),DJ )@@G@@1,2) @ @@@@ ER LABEL$ @#@@@@ $END @[@@@@DK )@@G@@ . @^@@@@P PROC *1 @^@@@@TLBL$* NAME 0 @D@@@@DL )@@G@@ DO (P(0)=1)**(P>1) ,P(0,1) EQU 19 @H@@@@A EQDM )@@G@@U 1--(P(0)=2)**(P(0,1)<1*/18)**(P(1)=1)**($AP(P(1,1))<1*/18)@C@@@@DN )@@G@@ DO 1-A , LA 12,(P(0,1),P(1,1)) @E@@@@ DO DO )@@G@@ A**(P(0)>1) , LXI 12,+(EQUF$ P(0),1,*1) @E@@@@ DO A**(DP )@@G@@P(1)>0) , LXM 12,+(EQUF$ P(1),1,2) @^@@@@TLBL$P* NAME 1 @E@@@@DQ )@@G@@ DO P(0,0)*(P(1)>0) , LA 12,+(EQUF$ P(1) ) @ @@@@ DR )@@G@@ ER TLBL$ @#@@@@ END @^@@@@P $PROC DS )@@G@@ *1 @ @@@@PFS$* $NAME 'PFS$' @ @@@@PFD$* $NAME 'PFDDT )@@G@@$' @ @@@@PFWL$* $NAME 'PFWL$' @ @@@@PFS$P* $NAME *'PFDU )@@G@@S$' @ @@@@PFD$P* $NAME *'PFD$' @ @@@@PFWL$P* $NAME *'PFDV )@@G@@WL$' @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@DW )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@DX )@@G@@P $PROC *2 @^@@@@PFUWL$* $NAME 0 @^@@@@PFI$* $NDY )@@G@@AME 1 @^@@@@PFUWL$P* $NAME *0 @^@@@@PFI$P* $NAME *1 DZ )@@G@@@G@@@@ $DO (P(1)>0)**(\P(0,0))++(P=2) , LA 12,+(EQUF$ P(1EA )@@G@@),1,2)@E@@@@ $DO (P>2)**P(0,0) , LNA 12,+(EQUF$ P(1),1,2)EB )@@G@@@D@@@@ $DO P(2)>0 , LA 13,+(EQUF$ P(2),1) @B@@@@ EC )@@G@@ ER P(0,0)->PFI$!PFUWL$ @#@@@@ $END @[@@@@ . ED )@@G@@@^@@@@P $PROC *1 @^@@@@CMS$* $NAME 0 @^@@@@CMS$P*EE )@@G@@ $NAME 1 @A@@@@K(1) $EQU +(EQUF$ P(1),1) @F@@@@ EF )@@G@@ $DO (P(0)>1)**(\P(0,0)) ,K(0) $EQU +(EQUF$ P(0),1)@E@@@@ EG )@@G@@ $DO (P(1)>0)**(K=1)++($AP(K(1))>1*/16-1) , ;@D@@@@ LAEH )@@G@@ 12,+(EQUF$ P(1),1,2-2*P(0,0)) @H@@@@ $DO (P(1EI )@@G@@)>0)**(K=2)**($AP(K(1))<1*/16)**($AP(K(0))<1*/16) , ; @A@@@@ LAEJ )@@G@@ 12,(K(0),K(1)) @I@@@@ $DO K=2 , DO ($AP(K(0))>1*/16EK )@@G@@-1)++($AP(K(1))>1*/16-1)++(P(1)=0) , ; @B@@@@ LXI 12,+EL )@@G@@(EQUF$ P(0),1,*1) @^@@@@ ER CMS$@#@@@@ $END EM )@@G@@@[@@@@ . @^@@@@P $PROC *1 @ @@@@CMD$* $NAME 'CMDEN )@@G@@$' @ @@@@CMI$* $NAME 'CMI$' @ @@@@CMO$* $NAME 'CMOEO )@@G@@$' @ @@@@CMSA$* $NAME 'CMSA$' @ @@@@CMH$* $NAME 'CMHEP )@@G@@$' @ @@@@CMT$* $NAME 'CMT$' @ @@@@CMD$P* $NAME *'CMEQ )@@G@@D$' @ @@@@CMI$P* $NAME *'CMI$' @ @@@@CMO$P* $NAME *'CMER )@@G@@O$' @ @@@@CMSA$P* $NAME *'CMSA$' @ @@@@CMH$P* $NAME *'CMES )@@G@@H$' @ @@@@CMT$P* $NAME *'CMT$' @D@@@@ $DO P(1)ET )@@G@@>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER [P(0,0)] @#@@@@EU )@@G@@ $END @[@@@@ . @^@@@@P $PROC *2 @^@@@@CPOOL$EV )@@G@@* $NAME 0 @^@@@@CPOOL$P* $NAME 1 @F@@@@ $DO EW )@@G@@ P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1,2) @C@@@@ $DO EX )@@G@@ (\P(0,0))**(P(1)>0) , ; @F@@@@ LA,14 12,($GFORM 6,P(2EY )@@G@@,2),12,P(2,1),18,P(1,1),12,0,;@B@@@@ 6,P(2,3),18,P(1,EZ )@@G@@2)) @ @@@@ ER CPOOL$ @#@@@@ $END @[@@@@FA )@@G@@ . @^@@@@P $PROC *1 @^@@@@CGET$* $NAME 0 @^@@@@FB )@@G@@CGET$P* $NAME 1 @E@@@@ $DO P(0,0)**(P(1)>0) , LA FC )@@G@@12,+(EQUF$ P(1),1)@F@@@@ $DO (\P(0,0))**(P(1)>0) , LXI 12FD )@@G@@,+(EQUF$ P(1),1,2)@ @@@@ ER CGET$ @#@@@@ $EFE )@@G@@ND @[@@@@ . @^@@@@P $PROC *1 @ @@@@CADD$* $NAME FF )@@G@@ 'CADD$' @ @@@@CJOIN$* $NAME 'CJOIN$' @ @@@@CADD$P* $NAME FG )@@G@@ *'CADD$' @ @@@@CJOIN$P* $NAME *'CJOIN$' @D@@@@ $DO FH )@@G@@ P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER [P(0,0)] FI )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *2 @^@@@@FJ )@@G@@ADACT$* $NAME 0 @^@@@@ADACT$P* $NAME 1 @D@@@@ $DFK )@@G@@O P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @D@@@@ $DO P(2)FL )@@G@@>0 , LA 13,+(EQUF$ P(2),1) @ @@@@ ER ADACT$ @#@@@@FM )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@CREL$*FN )@@G@@ $NAME 0 @^@@@@CREL$P* $NAME 1 @H@@@@ $DO FO )@@G@@ (P(0,0)++(P(0,1)=0))**(P(1)>0) , LA 12,+(EQUF$ P(1),1) @E@@@@ FP )@@G@@ $DO (\P(0,0))**(P(0,1)>0) , LXI,14 12,1 @ @@@@ ERFQ )@@G@@ CREL$ @#@@@@ $END @[@@@@ . @^@@@@P $PFR )@@G@@ROC *1 @^@@@@ROUTE$* $NAME 0 @^@@@@ROUTE$P* $NAME 1 FS )@@G@@@D@@@@ $DO P(0,0)**(P(1)>0) , LA 12,P(1,1) @C@@@@ FT )@@G@@ $DO P(1)>1 , LA,14 13,P(1,2) @F@@@@ $DO (\P(FU )@@G@@0,0))**(P(1)>0) , LA 12,(P(0,1),P(1,1)) @ @@@@ ER ROUTFV )@@G@@E$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 FW )@@G@@@^@@@@LOAD$* $NAME 0 @E@@@@ $DO (\P(0,1))**(P(1)FX )@@G@@>0) , LA,14 12,P(1,1) @F@@@@ $DO (\\P(0,1))**(P(1)>0) ,FY )@@G@@ LA 12,(1*/17,P(1,1)) @D@@@@ $DO (\\P(0,1))**(\P(1)) , FZ )@@G@@LXI,14 12,*0@C@@@@ $DO P(1)>1 , LA,14 13,P(1,2) @C@@@@GA )@@G@@ $DO P(1)=3 , LA,14 14,P(1,3) @D@@@@ $DO GB )@@G@@ P(1)>3 , LA 14,(P(1,4),P(1,3)) @ @@@@ ER LOAD$ GC )@@G@@@#@@@@ $END @[@@@@ . @^@@@@Q $PROC 0 @^@@@@GD )@@G@@RLIST$PGEN* $NAME 0 @ @@@@ LJSF$2 P(1,1) @D@@@@I GE )@@G@@ $DO (P(1)=0)+P(1)-1 , LJSF$1 P(1,I+1) @#@@@@ $END GF )@@G@@@[@@@@ . @^@@@@Q $PROC 0 @^@@@@RLIST$PGEN* $NAME 0 GG )@@G@@@ @@@@ LJSF$2 P(1,1) @D@@@@I $DO (P(1)=0)+PGH )@@G@@(1)-1 , LJSF$1 P(1,I+1) @#@@@@ $END @[@@@@ . @^@@@@P GI )@@G@@ $PROC *1 @^@@@@RLIST$PKT* $NAME 0 @^@@@@ RLIST$PGGJ )@@G@@EN @#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 GK )@@G@@@^@@@@RLIST$* $NAME 0 @^@@@@F* $PROC 0 @^@@@@$(CTL$GL )@@G@@BNK(0)) . @^@@@@ RLIST$PGEN @]@@@@$($ILCN) . @#@@@@GM )@@G@@ $END @[@@@@ . @G@@@@ $DO P(1)>0 , LA 12,+GN )@@G@@(OPT$$ P(1)-1,$LCV(CTL$BNK(0))) @ @@@@ ER RLIST$ GO )@@G@@@ @@@@ $DO P(1)>0 , F@#@@@@ $END @[@@@@ . GP )@@G@@@^@@@@P $PROC *1 @^@@@@RLIST$P* $NAME 0 @D@@@@ GQ )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@ ER GR )@@G@@ RLIST$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC GS )@@G@@ *1 @ @@@@LINK$* $NAME 'LINK$' @ @@@@RLINK$* $NAME 'RLIGT )@@G@@NK$' @ @@@@LINK$P* $NAME *'LINK$' @ @@@@RLINK$P* $NAME *'RLGU )@@G@@INK$' @F@@@@ $DO P(0,*0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1GV )@@G@@) @F@@@@ $DO (\P(0,*0))**(P(1)>0) , LA 12,(LJSF$1 P(1GW )@@G@@,1)) @ @@@@ ER [P(0,0)] @#@@@@ $END @[@@@@GX )@@G@@ . @^@@@@P $PROC 0,1 @ @@@@EXLNK$* $NAME 'EXLNK$' GY )@@G@@@ @@@@UNLNK$* $NAME 'UNLNK$' @ @@@@ ER [P(0,0)] GZ )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@HA )@@G@@LJSF$* $NAME 'S' @^@@@@ALJSF$* $NAME *'S'@E@@@@ $DHB )@@G@@O P(0,1)=2 ,P(0,0) $EQU P(0,*0)->*'D'!'D' @^@@@@LJSF$1* $NAME HC )@@G@@ 'S' @^@@@@LJSF$2* $NAME 'D' @^@@@@ALJSF$1* $NAME *'S'@^@@@@HD )@@G@@ALJSF$2* $NAME *'D'@E@@@@ + (P(0,*0)->$CAS!$CFS)(PHE )@@G@@(1,1)[P(0,0)]L) @#@@@@ $END @[@@@@ . @^@@@@P $PHF )@@G@@ROC 1 @^@@@@FDCVT$* $NAME 0 @C@@@@* $EQU $CFSHG )@@G@@($CD(P(1,1)///100)) @#@@@@ $END @[@@@@ . @^@@@@P HH )@@G@@ $PROC *1 @^@@@@LIT$* $NAME 0 @C@@@@ $DO HI )@@G@@ \P(1) ,P(1,1) $EQU $LCN @#@@@@$(P(1,1)) $LIT @ @@@@CTL$BNK(0)* HJ )@@G@@ $EQU P(1,1) @#@@@@ $END @[@@@@ . @^@@@@E PRHK )@@G@@OC 1,1 @^@@@@EQUF$* NAME 0 @B@@@@C EQU E(1,HL )@@G@@2)+($AP(E(1))<2) @G@@@@ IF ($AP(E(1,1,C))<1*/18)**(E(1,HM )@@G@@3)>0)**(E(1,1,*C)=0)**; @B@@@@ (E(1,1)-E(1,*3)-C<1) HN )@@G@@@C@@@@B(1) EQU +(I$ 0,14,0,0,0,E(1,1,C)) @#@@@@ ELHO )@@G@@SE @D@@@@B(1) EQU +(I$ 0,E(1,1,C+2),0,E(1,1,C+1),; @D@@@@HP )@@G@@ 2*E(1,1,*1+C)+E(1,1,*C),E(1,1,C)) @#@@@@ ENHQ )@@G@@DF @E@@@@ DO (E(1)>2)*(E(1,1)-E(1,*3)-C1*/26-1)+($AP(B(1))>1*/16-1)9)*(P(1)-9)):')'] @ @@@@L $EIA )@@G@@QU $AP(K) @^@@@@REL $EQU K-L @ @@@@U $EQU IB )@@G@@ L**0177777@F@@@@OPT $EQU (L>0)*(L<1*/18-1)+(-L>0)*(-L<1*/17IC )@@G@@)+(L=0) @ @@@@ $DO OPT , ; @G@@@@ I$ ID )@@G@@ ,14+(L<0),0,0,2*(L**(1*/17)>0)+(L**(1*/16)>0),U+REL @B@@@@ $DIE )@@G@@O \OPT , I$ ,,,,,(F K) @#@@@@ $END @[@@@@ . @#@@@@IF )@@G@@F $FUNC @^@@@@OPTION* $NAME 0 @ @@@@NOPTION* $NAME IG )@@G@@ 1*/26-1 @^@@@@OPT $EQU 0 @ @@@@I $DO F-1 IH )@@G@@,; @G@@@@J $DO $SL(F(I)) ,OPT $EQU OPT++1*/('Z'-$SS(FII )@@G@@(I),J)) @ @@@@ $END OPT--F(0) @[@@@@ . @#@@@@F IJ )@@G@@ $FUNC @^@@@@BIT* $NAME 0 @^@@@@BITS* $NAME 0 IK )@@G@@@^@@@@A $EQU 0 @ @@@@I $DO F-1 ,; @ @@@@IL )@@G@@A $EQU A++1*/F(I)@B@@@@ $DO A>=1*/36 , $END IM )@@G@@(A)D @^@@@@ $END A @[@@@@ . @#@@@@F $FUNC IN )@@G@@@^@@@@BITSPAN* $NAME 0D @^@@@@BS* $NAME 0D @C@@@@ . IO )@@G@@ 0777777777777777777777777 @B@@@@NBITSPAN* $NAME 4722IP )@@G@@366482869645213695@B@@@@NBS* $NAME 4722366482869645213695@^@@@@IQ )@@G@@BITSPAN2* $NAME *0D @^@@@@BS2* $NAME *0D @C@@@@NBITSPAN2* $IR )@@G@@NAME *4722366482869645213695 @C@@@@NBS2* $NAME *472236648IS )@@G@@2869645213695 @B@@@@A $EQU 4722366482869645213695@^@@@@IT )@@G@@BITS $EQU 0D @^@@@@I $REPEAT F/2 @A@@@@M $EIU )@@G@@QU F(I*2)>F(I*2-1) @B@@@@P1 $EQU F(I*2)*(\M)+F(I*2-1)*MIV )@@G@@@B@@@@P2 $EQU F(I*2-1)*(\M)+F(I*2)*M@E@@@@BITS $EQU IW )@@G@@ BITS++(A*/(71-P2)*/(-(71-P2+P1))*/P1) @#@@@@ $ENDR @C@@@@IX )@@G@@ . 0777777777777000000000000 @B@@@@C $EQU IY )@@G@@ 4722366482800925736960@D@@@@Q $FORM 72-36*((\(BITS**C))**(IZ )@@G@@\F(*0))) @A@@@@ $END +(Q BITS--F(0)) @[@@@@ . @#@@@@JA )@@G@@F $FUNC @#@@@@GCD* $NAME @B@@@@ $DO G(2)JB )@@G@@=0 , $END G(1) @B@@@@ $END GCD(G(2),G(1)///G(2)) @[@@@@JC )@@G@@ . @#@@@@P $FUNC @^@@@@OPT* $NAME 0 @^@@@@OPT2* JD )@@G@@ $NAME 1 @ @@@@ $DO P(0)=0 , ;@F@@@@ $DJE )@@G@@O (K>0)*(K<1*/18-1)+(-K>0)*(-K<1*/17)+(K=0) , ; @H@@@@ $END JF )@@G@@ +(I$ 14+(K<0),0,0,2*(K**(1*/17)>0)+(K**(1*/16)>0),K**0177777) @ @@@@JG )@@G@@ $END (F K) @[@@@@ . @#@@@@F FUNC @^@@@@JH )@@G@@BF* NAME 6 @^@@@@ABF* NAME *9 @ @@@@C(0) EQJI )@@G@@U 5+27*F(*0)@^@@@@LJ* NAME 6 @^@@@@ALJ* NAME JJ )@@G@@ *9 @A@@@@C(1) EQU F(2)*F(0)>36 @D@@@@ DO JK )@@G@@ C(1)<(F(1)-F(1)+1)*/36 ,C(1) EQU 1@D@@@@N EQU (36+36*C(1JL )@@G@@))/F(0)*(F(2)=0)+F(2) @B@@@@K EQU 1-1D*/((N-1)*F(0)) JM )@@G@@@G@@@@ DO C(1)>(F(1)-F(1)+1)*/36 ,F(1) EQU F(1)**1D*/36-JN )@@G@@1 @F@@@@ DO N , DO 0=F(1)**K ,F(1) EQU F(1)*/F(0)++CJO )@@G@@(0) @^@@@@ END F(1)@#@@@@F FUNC @^@@@@RJ* JP )@@G@@ NAME 6 @^@@@@ARJ* NAME *9 @ @@@@SP EQU JQ )@@G@@ 5+27*F(*0)@ @@@@MS EQU 1*/F(0)-1 @B@@@@DP EQU JR )@@G@@ (F(1)-F(1)+1)*/36>0D @C@@@@ DO DP=0 ,B EQU 1*/(36-F(0JS )@@G@@))-1 @C@@@@ DO DP ,B EQU 1D*/(72-F(0))-1 @D@@@@ JT )@@G@@ DO (36*DP+36)/F(0)*(F(2)=0)+F(2) , ; @E@@@@ DO (F(1)JU )@@G@@**MS)*/1-SP--SP=0 ,F(1) EQU F(1)*/-F(0)**B@^@@@@ END F(1)JV )@@G@@@#@@@@F $FUNC @#@@@@INF* $NAME @F@@@@ $END JW )@@G@@ +(I$ F(5),F(3),F(4),F(2),2*F(*2)+F(*1),F(1)) @[@@@@ . @#@@@@F JX )@@G@@ $FUNC @#@@@@GAF* $NAME @^@@@@A $EQU F(1)@^@@@@JY )@@G@@B $EQU F(2)@I@@@@ $END +(I$ 0,P(0,1)+P(A,B+2)JZ )@@G@@,0,P(A,B+1),2*P(A,*B+1)+P(A,*B),P(A,B) @[@@@@ . @#@@@@F $FKA )@@G@@UNC @#@@@@GAF1* $NAME @^@@@@A $EQU F(1)@^@@@@B KB )@@G@@ $EQU F(1)@H@@@@ $END +(I$ 0,P(A,B+2),0,P(A,B+1),2KC )@@G@@*P(A,*B+1)+P(A,*B),P(A,B)) @[@@@@ . @#@@@@F $FUNC @#@@@@KD )@@G@@FLD* $NAME @C@@@@ $END F(1)*/(F(2)-1)*/(36-F(3)) KE )@@G@@@[@@@@ . @#@@@@C $FUNC @^@@@@COLUMN* $NAME 6 @^@@@@KF )@@G@@COL* $NAME 6 @^@@@@ACOLUMN* $NAME 4 @^@@@@ACOL* $NKG )@@G@@AME 4 @D@@@@I $EQU (C(1)-(C(1)<-0))//C(0)-(C(1)>-1) KH )@@G@@@A@@@@J $EQU C(1)-C(0)*I @E@@@@ $DO C(0)KI )@@G@@=6 , $END I++(I$ 0,14-J,0,0,0,0) @D@@@@ $END I++(I$ 0,7KJ )@@G@@-J/2-2*(J=2),0,0,0,0) @[@@@@ . @#@@@@M $FUNC @#@@@@MOD* KK )@@G@@ $NAME @A@@@@ $END M(1)///M(2) @[@@@@ . @#@@@@KL )@@G@@S $FUNC @#@@@@SIGN* $NAME @E@@@@ $DO $IBIKM )@@G@@TS(S(1))**2 , $END -0-(S(1)<>0) @A@@@@ $END 0+(S(1)<>0KN )@@G@@) @[@@@@ . @#@@@@A $FUNC @#@@@@ABS* $NAME @C@@@@KO )@@G@@ $DO $IBITS(A(1))**2 , $END -A(1)@^@@@@ $END KP )@@G@@ A(1)@[@@@@ . @#@@@@M $FUNC @^@@@@MAX* $NAME '>' KQ )@@G@@@^@@@@MIN* $NAME '<' @^@@@@Z $EQU M(I)@E@@@@I KR )@@G@@ $DO 2,M-1 , $DO M(I)[M(0)]Z ,Z $EQU M(I) @^@@@@ $EKS )@@G@@ND Z @[@@@@ . @#@@@@UX* FUNC @A@@@@A EQU KT )@@G@@ 1-2*(UX(1)<0) @^@@@@B(0) EQU 0 @G@@@@I DO KU )@@G@@ 18 ,B(0) EQU 2*B(0)+(A*UX(1)>(2*B(0)+1)*/(35-I)-1) @F@@@@ DOKV )@@G@@ UX>2 ,B(1) EQU (UX(3)-(B(0)*/-9*A**15))*/26 @ @@@@B(0) EQKW )@@G@@U B(0)*A**31@C@@@@ DO B(0)=1 ,B(0) EQU UX(*2) KX )@@G@@@E@@@@ END UX(1)+(UX(2)*2-B(0)+UX(*2))*/17+B(1) @#@@@@KY )@@G@@J FUNC @^@@@@JREG* NAME 0 @ @@@@BYTES EQU KZ )@@G@@ 36/J(1) @D@@@@ DO 36>J(1)*BYTES , EQU 09 . E FLAG LA )@@G@@@G@@@@ DO (BYTES<2)++(BYTES=5)++(BYTES>6) , EQU 09 . E FLB )@@G@@LAG @A@@@@ DO J<4 ,J(3) EQU 1 @B@@@@BL EQU LC )@@G@@ (BYTES**3)-(BYTES=2) @ @@@@IW EQU J(3)/BYTES@ @@@@OW LD )@@G@@ EQU J(2)/BYTES@C@@@@IB EQU (J(3)-IW*BYTES)*/(J(1)LE )@@G@@//6-1)@C@@@@OB EQU (J(2)-OW*BYTES)*/(J(1)//6-1)@A@@@@F LF )@@G@@ FORM 1,2,1,11,3,15,3 @D@@@@ END +(F 1-J(*3),BL,JLG )@@G@@(*1),IW,IB,OW,OB) @[@@@@ . @^@@@@CTS* $PROC 1,1 @B@@@@ LH )@@G@@ SZ,13 +(EQUF$ CTS(1),1) @#@@@@ $END @[@@@@ . LI )@@G@@@^@@@@P $PROC 0,1 @^@@@@TTW* $NAME 0 @^@@@@TQW* LJ )@@G@@ $NAME 1 @A@@@@ P(0,0)->TP!TN,4 $LCV @#@@@@ LK )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1,2@^@@@@JTW* $NLL )@@G@@AME 0 @^@@@@JQW* $NAME 1 @A@@@@ P(0,0)->TN!TP,LM )@@G@@4 $LCV @ @@@@ J P(1,1) @#@@@@ $END LN )@@G@@@[@@@@ . @^@@@@P $PROC 0,3 @ @@@@SETQW* $NAME 0400LO )@@G@@001 @^@@@@SETTW* $NAME *1 @ @@@@ L,14 12,P(0,0) LP )@@G@@@A@@@@ P(0,*0)->TN!TP,7 $LCV @^@@@@ ER PSR$LQ )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,0 @^@@@@LR )@@G@@THIRD* $NAME 5 @^@@@@QUARTER* $NAME 3 @ @@@@ $ILS )@@G@@NFO 1 P(0,0) @#@@@@ $END @[@@@@ . @^@@@@REZ* $PLT )@@G@@ROC *1 @C@@@@ $DO REZ(1,1)<-0 , $RES REZ(1,1) @B@@@@LU )@@G@@ $DO REZ(1,1)>0 , +REZ(1,2)@B@@@@ $DO REZ(LV )@@G@@1,1)<2 , $END @ @@@@A $EQU $TMODES**2@#@@@@ $ULW )@@G@@NLIST @C@@@@ $DO REZ(1,1)-1 , + REZ(1,2) @ @@@@ LX )@@G@@ $DO A , $LIST @#@@@@ $END @[@@@@ . @^@@@@SNZ2* LY )@@G@@ PROC 1,2 @^@@@@W FORM 36 @E@@@@B(0) EQU LZ )@@G@@ +(I$ +(EQUF$ SNZ2(1),1,0),SNZ2(0,1)) @F@@@@I DO 4 ,BMA )@@G@@(1) EQU ((B(1)*2+1)*/(30-I)-1Y2-1) @C@@@@DNM EQU (X-MBETA-1)*(Y1>MN )@@G@@Y2-1)+1D @^@@@@N(-1) EQU 0 @^@@@@F(0) EQU 1D MO )@@G@@@^@@@@ALPHA(0) EQU X-1 @#@@@@TOP NAME @D@@@@N(0) EQMP )@@G@@U N(0)+1. TRY THE NEXT N@C@@@@F(0) EQU F(0)MQ )@@G@@-(ALPHA(0)*2>X-1)+F(0) @H@@@@ DO N(0)>0 ,ALPHA(0) EQU AMR )@@G@@LPHA(0)-X*(ALPHA(0)*2>X-1)+ALPHA(0) @D@@@@ DO 1+ALPHA(0)MS )@@G@@*NUM>DNM*/N(0) , GO TOP @ @@@@N(1) EQU N(0)+1 @#@@@@DECN MT )@@G@@ NAME @ @@@@N(1) EQU N(1)-1 @C@@@@ DO MU )@@G@@ N(1)1D*/35-1 @B@@@@ DO MW )@@G@@ OPT , DSA DIU(1,1),36 @E@@@@ DO OPT , DI DIU(1,1),+(OPMX )@@G@@T$$ DIU(1,2)) @ @@@@OPT0 EQU F(0)=1 @E@@@@ DOMY )@@G@@ OPT0 , DO N(1)>0 , SSA DIU(1,1),N(1) @F@@@@ DO MZ )@@G@@ OPT0 , DO DIU(1,2)<0 , LNA DIU(1,1),DIU(1,1) @A@@@@ DO NA )@@G@@ OPT++OPT0 , END @A@@@@OPT1 EQU F(0)*/(36-N(1)) @C@@@@OPT2 NB )@@G@@ EQU (OPT1<1*/19)**(N(1)<36) @G@@@@ DO OPT2NC )@@G@@ , MF DIU(1,1),+(OPT$$ OPT1*/-1--DIU(1,2)*/-72) @E@@@@OPT3 EQU ND )@@G@@ (OPT1-1<0377777777777)**(N(1)<37)--OPT2 @G@@@@ DO OPT3NE )@@G@@ , MI DIU(1,1),+(OPT$$ OPT1--DIU(1,2)*/-72) @A@@@@OPT4 EQU NF )@@G@@ OPT2++OPT3--1 @G@@@@ DO OPT4 , MI DIU(1,1),+(OPT$$ FNG )@@G@@(0)--DIU(1,2)*/-72) @F@@@@ DO OPT4 , DO 36-N(1)<0 , NH )@@G@@SSA DIU(1,1),N(1)-36 @F@@@@ DO OPT4 , DO 36-N(1)>0 , NI )@@G@@LDSC DIU(1,1),36-N(1) @#@@@@ END @[@@@@ . ___ $END NJ )@@G@@@[@@@@ . @^@@@@SNZ2* PROC 1,2 @^@@@@W FORM 36 NK )@@G@@@E@@@@B(0) EQU +(I$ +(EQUF$ SNZ2(1),1,0),SNZ2(0,1)) @F@@@@NL )@@G@@*[S@@@*SDFF*@B@9@8IDBUFF 'READLG 1R3 ' @B@'@9IDBUFFNM )@@G@@ 'READLG 1R9 ' @B@@@'IDBUFF 'READLG 1R10 NN )@@G@@ ' @H@@@8. ****************************************************NO )@@G@@********************** @H@@@8. ******* NP )@@G@@ ******* @H@@@8. ******* SUBROUTINE TO READ NNQ )@@G@@EXT DATA LOG ENTRY WITH GIVEN CRITERIA.******* @H@@@8. ******* NR )@@G@@ ******* @H@@@8. ****NS )@@G@@*** WRITTEN BY L.INFELD, 10/25/73 ******* NT )@@G@@@H@@@8. ******* UPDATED BY L.INFELD, 01/23/77 NU )@@G@@ ******* @H@@@8. ******* UPDATED BY L.INFELD, 06/09/77 NV )@@G@@ ******* @H@@@8. ******* UPDATED BY L.INFELD, 11/08/77 (1NW )@@G@@R1) ******* @H@@@8. ******* UPDATED BY L.INFELD,NX )@@G@@ 01/03/78 (1R2) ******* @H@@@8. ******* UPDATED NY )@@G@@BY L.INFELD, 08/14/78 (1R3) ******* @H@@@9. ****NZ )@@G@@*** UPDATED BY L.INFELD, 01/16/79 (1R4) ******* OA )@@G@@@H@@@9. ******* UPDATED BY L.INFELD, 06/05/79 (1R5) OB )@@G@@ ******* @H@@@9. ******* UPDATED BY L.INFELD, 08/06/79 (1R6) OC )@@G@@ ******* @H@@@9. ******* UPDATED BY L.INFELD, 09/04/79 (1OD )@@G@@R7) ******* @H@@@9. ******* UPDATED BY L.INFELD,OE )@@G@@ 01/23/80 (1R8) ******* @H@@@9. ******* UPDATED OF )@@G@@BY L.INFELD, 02/12/80 (1R9) ******* @H@@@'. ****OG )@@G@@*** UPDATED BY L.INFELD, 03/13/80 (1R10) ******* OH )@@G@@@H@@@8. ******* OI )@@G@@ ******* @H@@@8. ******* CALLING SEQUENCE: LMJ X11,READLG OJ )@@G@@ ******* @H@@@8. ******* + TYPE OK )@@G@@ ******* @H@@@8. ******* OL )@@G@@+ RUNID ******* @H@@@8. ******* OM )@@G@@ + TIME ******* @H@@@8. ****ON )@@G@@*** + WD#,KEY ******* OO )@@G@@@H@@@8. ******* + BUFFER OP )@@G@@ ******* @H@@@8. ******* + 0 OQ )@@G@@ ******* @H@@@8. ******* OR )@@G@@ ******* @H@9@8. ******* WHERE ALL INPUTS AREOS )@@G@@ THE LOCATIONS OF THE INPUT DATA AND ******* @H@@@9. ******* WHERE: OT )@@G@@ ******* @H@@@9. ****OU )@@G@@*** ******* OV )@@G@@@H@@@9. ******* 'TYPE' - ADDRESS OF LOG ENTRY TYPE DESIRED OR OW )@@G@@ ******* @H@@@9. ******* OF THE FORM (N,ADDR) WHERE 'ADDOX )@@G@@R' IS ADDRESS ******* @H@@@9. ******* OF A TYPE TABLE OF OY )@@G@@LENGTH 'N' ******* @H@@@9. ******* 'RUNID' - ADDRESOZ )@@G@@S OF RUNID DESIRED ******* @H@@@9. ******* 'TIMPA )@@G@@E' - ADDRESS OF START TIME OF SEARCH (IN TDATE$ ******* @H@@@9. ****PB )@@G@@*** FORMAT) ******* PC )@@G@@@H@@@9. ******* 'WD#' - WORD # IN LOG ENTRY TO BE COMPARED AGAINST PD )@@G@@ ******* @H@@@9. ******* KEY FOR MATCH. IF 0, THE WHOLE PE )@@G@@ENTRY IS ******* @H@@@9. ******* SEARCHED FOR A STRINPF )@@G@@G MATCH WITH KEY. ******* @H@@@9. ******* 'KEY' - ADDRESS PG )@@G@@OF KEY FOR COMPARE OR STRING MATCH ******* @H@@@9. ******* 'BUFPH )@@G@@FER' - ADDRESS OF OUTPUT BUFFER WHERE LOG ENTRY ******* @H@@@9. ****PI )@@G@@*** SATISFYING ALL SPECIFIED CRITERIA IS MOVED ******* PJ )@@G@@@H@9@8. ******* 'TYPE' IS ENTRY TYPE DESIRED (OR 'N,ADDR' OF TYPE PK )@@G@@ ******* @H@9@8. ******* TABLE) PL )@@G@@ ******* @H@9@8. ******* 'RUNID' IS RUNID DESIRED PM )@@G@@ ******* @H@9@8. ******* 'TIME' IS STARPN )@@G@@T TIME OF SEARCH (TDATE$) ******* @H@9@8. ******* 'WPO )@@G@@D #' IS WORD NO. IN BUFFER WHICH IS TO ******* @H@9@8. ****PP )@@G@@*** BE USED AS A SEARCH KEY ******* PQ )@@G@@@H@9@8. ******* 'KEY' IS KEY TO BE USED PR )@@G@@ ******* @H@9@8. ******* 'BUFFER' IS OUTPUT BUFFER PS )@@G@@ ******* @H@@@8. ******* PT )@@G@@ ******* @H@9@8. ******* 'BUFFER' = 0 IF LOG PU )@@G@@FINISHED OR ERROR ******* @H@@@9. ******* 'BUFFER'PV )@@G@@ = 0 IF LOG FINISHED OR ERROR. ******* @H@@@9. ****PW )@@G@@*** ******* PX )@@G@@@H@@@8. ******* WHENEVER A NEW BLOCK IS READ, THE EXTERNAL TAG 'NEWBLOCKPY )@@G@@' ******* @H@@@8. ******* WILL = 1. PZ )@@G@@ ******* @H@@@9. ******* QA )@@G@@ ******* @H@@@9. ******* IF USER WISHES TO SKQB )@@G@@IP REST OF CURRENT BLOCK, THE EXTERNAL ******* @H@@@9. ******* 'ENTRYNUQC )@@G@@M' SHOULD BE SET TO 0. ******* @H@@@9. ****QD )@@G@@*** ******* QE )@@G@@@H@@@9. ******* IF A FILE NAMED 'LOG$' IS ASSIGNED TO RUN, SUBROUTINE QF )@@G@@ ******* @H@@@9. ******* WILL READ THAT FILE RATHER THAN CURRENT SYSTQG )@@G@@EM MASTER LOG ******* @H@@@9. ******* FILE ON MASS STORAGE. QH )@@G@@ ******* @H@@@8. ******* QI )@@G@@ ******* @H@@@9. ******* IF EXTERQJ )@@G@@NAL TAG 'PRINTCYCLE' IS SET, A SUMMARY ******* @H@@@9. ****QK )@@G@@*** LINE IS PRINTED FOR EACH CYCLE OF THE SYSTEM MASTER LOG ******* QL )@@G@@@H@@@9. ******* FILE SCANNED. QM )@@G@@ ******* @H@@@9. ******* QN )@@G@@ ******* @H@@@9. ******* COUNTS OF THE NUMBER OF BLOCKS AQO )@@G@@ND THE NUMBER OF RECORDS ******* @H@@@9. ******* ARE MAINTAINED IN EXQP )@@G@@TERNAL TAGS 'NBLOCKS' AND 'NRECS'. ******* @H@@@9. ******* QQ )@@G@@ ******* @H@@@8. ****QR )@@G@@*** THIS SUBROUTINE IS COMPATIBLE WITH FORTRAN V AND ******* QS )@@G@@@H@@@8. ******* ASCII FORTRAN. QT )@@G@@ ******* @H@@@8. ******* QU )@@G@@ ******* @H@@@9. ******* THE 'BYTESUB' SUBROUTINES ARE REQV )@@G@@FERENCED. ******* @H@@@9. ******* QW )@@G@@ ******* @H@@@8. ******* REVISIONQX )@@G@@ SUMMARY ******* @H@@@8. ****QY )@@G@@*** ---------------- ******* QZ )@@G@@@H@@@8. ******* RA )@@G@@ ******* @H@@@8. ******* 1R1 - FIRST RELEASE RB )@@G@@ ******* @H@@@8. ******* 1R2 - REMOVE TAPE LOGIC AND REPRC )@@G@@LACE WITH ******* @H@@@8. ******* - CHECK FOR PRERD )@@G@@-ASSIGNED LOG FILES ******* @H@@@8. ******* 1R3 - ARE )@@G@@SSUME BLOCKS SPAN LESS THAN 1 HOUR OF DATA ******* @H@@@8. ****RF )@@G@@*** - SKIP BLOCKS WITH NO ENTRIES ******* RG )@@G@@@H@@@8. ******* - ALLOW MULTI-REEL LOG TAPES RH )@@G@@ ******* @H@@@8. ******* - SIGNAL CALLING PROG WHEN NEW BLOCK RERI )@@G@@AD ******* @H@@@8. ******* - DON'T LEAVE ANY MASS STORRJ )@@G@@AGE LOG FILES ASSIGNED ******* @H@@@9. ******* 1R4 - SKIP EXEC 8 ERK )@@G@@NTRIES UNLESS PRIVILEGED ******* @H@@@9. ******* - ARL )@@G@@SSEMBLE WITH MASM ******* @H@@@9. ****RM )@@G@@*** 1R5 - CHECK FOR AN ALTERNATE LOG FILE CALLED 'LOG$' ******* RN )@@G@@@H@@@9. ******* - CALCULATE SECTOR ADDRESS OF 1ST BLOCK TO ALLOW RO )@@G@@ ******* @H@@@9. ******* FOR FILES COPIED FROM TAPE RP )@@G@@ ******* @H@@@9. ******* - ASSIGN SYSTEM LOG FILES WRQ )@@G@@ITH 'I' OPTION ******* @H@@@9. ******* 1R6 - FIX LOGIC FORRR )@@G@@ SEARCH KEY OPTION ******* @H@@@9. ******* - ARS )@@G@@DD 'L' OPTION SUMMARY ******* @H@@@9. ****RT )@@G@@*** - ADD STRING SCAN FEATURE ******* RU )@@G@@@H@@@9. ******* - CALCULATE 1ST CYCLE OF LOG FILE RV )@@G@@ ******* @H@@@9. ******* 1R7 - EXTERNALIZE TAG 'ENTRYNUM' FOR SKIPPIRW )@@G@@NG BLOCK ******* @H@@@9. ******* - EXTERNALIZE TAG 'PRINTCYCRX )@@G@@LE' FOR CYCLE SUMMARY ******* @H@@@9. ******* 1R8 - ADD EXTERNAL RY )@@G@@CELLS 'NBLOCKS' & 'NRECS' ******* @H@@@9. ******* - URZ )@@G@@SE 1180 INSTRUCTIONS ******* @H@@@9. ****SA )@@G@@*** 1R9 - FIX LATEST CYCLE BUG ******* SB )@@G@@@H@@@'. ******* 1R10 - ADD LOOK AHEAD CYCLE FEATURE SC )@@G@@ ******* @H@@@8. ******* SD )@@G@@ ******* @H@@@8. ****************************************SE )@@G@@********************************** @#@9@8 AXR$ @]@9@8$(1),RSF )@@G@@EADLG*@#@@@9$(1),READLG* AXR$ @H@@@8 L X10,X11 SG )@@G@@ . GET PARAMETER TABLE (IN X11 IF FOR V @E@@@8 TZ,S1 0,X1SH )@@G@@1 . , IN A0 IF FTN) @ @@@8 L X10,A0 SI )@@G@@@^@@@8 SZ BUFF@ @@@8 L X5,POINTER@E@@@8SJ )@@G@@ TZ FIRST . FIRST TIME ENTERED? @B@9@8 SK )@@G@@ J CONT1 . NO@B@@@9 J CONT2 SL )@@G@@ . NO@F@9@8 S X10,FIRST . YES, SET FIRSTSM )@@G@@ TIME KEY @F@@@9 SP1 FIRST . YES, SET FIRSTSN )@@G@@ TIME KEY @E@@@9 PCT$ BUFFER,5 . GET PART OF PCSO )@@G@@T @F@@@9 L,S2 A0,BUFFER+4 . IF RUN PRIVILEGED, SSP )@@G@@ET KEY@ @@@9 TEP,U A0,040 @^@@@9 SP1 PRIVSQ )@@G@@@G@9@8 CSF$ USE,NUSE1 . '@USE MASTER,SYS$*SYSTEM$LSR )@@G@@OG$' @H@@@8 FACIL$ FACPKT . IS THERE A LOG FILE SS )@@G@@ASSIGNED ALREADY? @F@@@8 TNZ,S1 FACPKT+6 . IF FILE ST )@@G@@NOT PRE-ASSIGNED, @H@9@8 J CONT0 . GO TSU )@@G@@O REAL MASTER LOG FILE LOGIC @H@/@9 J CONT0 SV )@@G@@ . GO TO REAL MASTER LOG FILE LOGIC @H@@@/ J CONTSW )@@G@@1 . GO TO REAL MASTER LOG FILE LOGIC @F@9@8 S SX )@@G@@ A0,PREASG . FILE PRE-ASSIGNED, SET KEY@F@@@9 SPSY )@@G@@1 PREASG . FILE PRE-ASSIGNED, SET KEY@F@9@8 J SZ )@@G@@ CONT1 . SKIP NEXT CYCLE LOGIC @F@@@9 J TA )@@G@@ CONT2 . SKIP NEXT CYCLE LOGIC @E@;@9CONT0 E$TB )@@G@@DIT EPKT . GENERATE USE IMAGE @^@;@9 E$MSG TC )@@G@@ USE @D@;@9 E$DECV 0,,U . PRESENT CYCLE @#@;@9TD )@@G@@ E$MSGR @G@;@9 CSF$ BUFFER+28,14 . '@USE LOTE )@@G@@G$,SYS$*SYSTEM$LOG$(0)' @D@;@9 CSF$ ASG,NASG . '@TF )@@G@@ASG,AI LOG$'@F@/@;CONT0 SZ A5 . ASSIGN LATEST TG )@@G@@LOG CYCLE @F@@@/CONT1 SZ A5 . ASSIGN LATEST TH )@@G@@LOG CYCLE @ @@@; L,U A6,' ' @ @@@; SLJ TI )@@G@@ CYCLE @D@@@9 MSCON$ MSCONPKT . GET LEAD ITEM TJ )@@G@@@H@@@9 . CHANGE MSCON PKT TO READ MTK )@@G@@AIN ITEM @E@@@9 SP1,S3 MSCONPKT+3 . FOR LATER CATL )@@G@@LLS @G@@@9 L,S4 A0,BUFFER+9 . CALCULATE OLDEST RELTM )@@G@@ CYCLE-1 @^@@@9 A,U A0,1@C@@@9 SN A0,LTN )@@G@@OGCYCLE . STORE @E@9@8CONT0 LMJ X11,NEXT . GETO )@@G@@T NEXT LOG CYCLE @E@/@9CONT1 LMJ X9,NEXT . GET NEXTTP )@@G@@ LOG CYCLE @E@@@/ LMJ X9,NEXT . GET NEXT LOG CTQ )@@G@@YCLE @C@@@8 J EXIT . ERROR @F@9@8CONT1 TR )@@G@@ LMJ X11,READ . READ NEXT MASTER LOG BLOCK@F@@@9CONT2 TS )@@G@@ LMJ X9,READ . READ NEXT MASTER LOG BLOCK@F@@@8 TT )@@G@@ L A0,0,X5 . CHECK FOR END OF CYCLE @ @@@8 TU )@@G@@ TNE A0,(-0) @C@9@8 J CONT7 . YETV )@@G@@S @C@@@9 J CONT11 . YES @H@@@8 TW )@@G@@ TE A0,SENTINEL . CHECK FOR LAST TAPE BLOCK SENTINEL TX )@@G@@@^@@@8 J $+3 @G@9@8 SZ FIRST TY )@@G@@ . INITIALIZE FIRST TIME THRU FLAG @F@@@9 SZ FIRST TZ )@@G@@ . CLEAR FIRST TIME THRU FLAG@D@@@8 J EXIT UA )@@G@@ . END OF TAPE @G@@@8 L A0,STIME . CHUB )@@G@@ECK STARTING TIME IF SPECIFIED@ @9@8 JZ A0,CONT2 @ @@@9UC )@@G@@ JZ A0,CONT3 @D@@@8 L A1,LLOGT UD )@@G@@ . GET LOG TIME @E@@@8 SLJ DTDATE . COMPARE UE )@@G@@WITH STIME @G@9@8 AU A2,60*60 . IF STIME MORE UF )@@G@@THAN 1 HOUR IN @G@@@9 AU,U A2,60*60 . IF STIMEUG )@@G@@ MORE THAN 1 HOUR IN @G@@@8 TP A3 . UH )@@G@@FUTURE, SKIP REST OF BLOCK @G@9@8 SZ NBUF UI )@@G@@ . NOT EQUAL, SKIP WHOLE BLOCK @G@@@9 SZ ENTRYNUM UJ )@@G@@ . NOT EQUAL, SKIP WHOLE BLOCK @F@9@8 JN A2,CUK )@@G@@ONT1 . JUMP IF STIME IN FUTURE? @F@@@9 JN A2,CUL )@@G@@ONT2 . JUMP IF STIME IN FUTURE? @E@@@9CONT3 TZ PRIVUM )@@G@@ . IS RUN PRIVILEGED? @C@@@9 J CONT4 UN )@@G@@ . YES @F@@@9 L A0,('EXEC 8') . NO, SKIPUO )@@G@@ EXEC 8 ENTRIES @ @@@9 TNE A0,LRUNID @ @@@9 J UP )@@G@@ CONT2 @F@9@8CONT2 L A0,RUNID . CHECK RUUQ )@@G@@NID IF SPECIFIED, @F@@@9CONT4 L A0,RUNID . CHECK RUUR )@@G@@NID IF SPECIFIED, @G@9@8 JZ A0,CONT4 . IGNORUS )@@G@@ING '-'S IN INPUT RUNID @G@@@9 JZ A0,CONT7 . UT )@@G@@ IGNORING '-'S IN INPUT RUNID @^@@@8 L,U X4,5@ @9@8CONT2AUU )@@G@@ EX LOAD,X4 @ @@@9CONT5 EX LOAD,X4 @ @@@8 UV )@@G@@ TNE,U A0,'-' @ @9@8 J CONT3 @ @@@9 UW )@@G@@ J CONT6 @ @@@8 EX TEST,X4 @ @9@8 UX )@@G@@ J CONT3 @ @@@9 J CONT6 @^@9@8 UY )@@G@@ SZ NBUF@ @@@9 SZ ENTRYNUM @ @9@8 J UZ )@@G@@ CONT1 @ @@@9 J CONT2 @ @9@8CONT3 JGVA )@@G@@D X4,CONT2A @ @@@9CONT6 JGD X4,CONT5 @F@9@8CONT4 L VB )@@G@@ A1,TYPE . CHECK TYPE IF SPECIFIED @F@@@9CONT7 L VC )@@G@@ A1,TYPE . CHECK TYPE IF SPECIFIED @ @@@8 L,VD )@@G@@H2 A0,0,A1 @F@@@8 TNZ,H1 0,X10 . CHECK IFVE )@@G@@ TYPE TABLE INPUT @E@9@8 J CONT4A . NO, JUSTVF )@@G@@ ONE TYPE @E@@@9 J CONT8 . NO, JUST ONE TVG )@@G@@YPE @F@@@8 L,H1 R1,0,X10 . SCAN TYPE TABLE FOR VH )@@G@@MATCH @ @@@8 L X1,0,X10 @^@@@8 LXI,U X1,1VI )@@G@@@ @@@8 L A0,LTYPE @ @@@8 SE,H2 A0,0,*X1 VJ )@@G@@@E@9@8 J CONT1 . NO FIND, SKIP ENTRY @E@@@9VK )@@G@@ J CONT2 . NO FIND, SKIP ENTRY @F@9@8 VL )@@G@@ J CONT5 . TYPE MATCHES, PROCESS @F@@@9 VM )@@G@@ J CONT9 . TYPE MATCHES, PROCESS @E@9@8CONT4AVN )@@G@@ JZ A0,CONT5 . NO TYPE SPECIFIED @E@@@9CONT8 JZVO )@@G@@ A0,CONT9 . NO TYPE SPECIFIED @ @@@8 TE VP )@@G@@ A0,LTYPE @ @9@8 J CONT1 @ @@@9 J VQ )@@G@@ CONT2 @G@9@8CONT5 L A0,KEY . CHECK SEARCH KVR )@@G@@EY IF SPECIFIED @G@@@9CONT9 L A0,KEY . CHECK SEVS )@@G@@ARCH KEY IF SPECIFIED @ @9@8 JZ A0,CONT6 @ @@@9 VT )@@G@@ JZ A0,CONT10 @D@@@9 TZ WDNO . ISVU )@@G@@ WORD # = 0?@G@@@9 J CONT9A . NO, PLAIN SEARVV )@@G@@CH KEY SPECIFIED @G@@@9 L X1,X5 . YES, STRVW )@@G@@ING SEARCH SPECIFIED @ @@@9 L,H2 X2,3,X10 @ @@@9 VX )@@G@@ L,U A1,24*6 @^@@@9 L,U A2,6@A@@@9 LMVY )@@G@@J X11,FINDFIELD @E@@@9 J CONT2 . NOVZ )@@G@@ FIND, SKIP ENTRY @F@@@9 J CONT10 . STRING FWA )@@G@@OUND, CONTINUE @ @9@8 L X4,WDNO @ @@@9CONT9A L WB )@@G@@ X4,WDNO @ @@@8 A X4,X5 @ @@@8 L WC )@@G@@ A1,0,X4 @ @@@8 TE A1,A0 @ @9@8 J WD )@@G@@ CONT1 @ @@@9 J CONT2 @F@9@8CONT6 L,WE )@@G@@U R1,28 . MOVE BUFFER TO USER'S AREA@F@@@9CONT10 L,WF )@@G@@U R1,28 . MOVE BUFFER TO USER'S AREA@ @@@8 L,WG )@@G@@U X4,BUFF @^@@@8 LXI,U X4,1@ @@@8 L WH )@@G@@ X6,X5 @^@@@8 LXI,U X6,1@ @@@8 BT X4,0WI )@@G@@,*X6 @E@@@8 S X5,POINTER . SAME BLOCK POINTER WJ )@@G@@@C@@@8 J EXIT . RETURN @I@9@8CONT7 TNWK )@@G@@Z PREASG . IF OTHER THAN MASTER LOG FILE, FINISHED WL )@@G@@@I@@@9CONT11 TNZ PREASG . IF OTHER THAN MASTER LOG FWM )@@G@@ILE, FINISHED @E@9@8 LMJ X11,NEXT . GET NEXTWN )@@G@@ LOG CYCLE @E@@@9 LMJ X9,NEXT . GET NEXT LOG CWO )@@G@@YCLE @H@@@8 J EXIT . ERROR - FINISHED SEAWP )@@G@@RCH (NO FIND) @C@9@8 J CONT1 . CONTINUEWQ )@@G@@@C@@@9 J CONT2 . CONTINUE@F@@@8EXIT TZWR )@@G@@,S1 0,X10 . CHECK FOR FOR V OR FTN @C@@@8 J WS )@@G@@ 0,X10 . FTN @C@@@8 J 6,X10 WT )@@G@@ . FOR V @[@@@8/. @H@@@8. **********************************WU )@@G@@**************************************** @H@@@8. ******* RWV )@@G@@EAD LOG ENTRY SUBROUTINE ******* @H@@@8. **********WW )@@G@@**************************************************************** @[@@@8WX )@@G@@. @]@@@8READ . @F@9@8 TZ NBUF . ISWY )@@G@@ NO. OF BUFFERS = 0 ? @F@@@9 TZ ENTRYNUM . ISWZ )@@G@@ NO. OF BUFFERS = 0 ? @B@@@8 J READ3 . NOXA )@@G@@@I@@@8 L A0,READP+5 . YES, INCREMENT DRUM ADDRESXB )@@G@@S BY 8 SECTORS @^@@@8 A,U A0,8@ @@@8READ1 S XC )@@G@@ A0,READP+5@F@@@8 IOW$ READP . READ NEXT 224 XD )@@G@@WORD BLOCK @ @@@8 TZ,S1 READP+3 @C@@@8 J XE )@@G@@ READE . ERROR @F@@@9 INC NBLOCKS XF )@@G@@ . INCREMENT BLOCK COUNT @#@@@9 NOP @E@@@8 L XG )@@G@@ A0,('SYSLOG') . LOG FILE HEADER ? @ @@@8 TE XH )@@G@@ A0,BUFFER @B@@@8 J READ2 . NO@G@@@8 XI )@@G@@ L A0,BUFFER+2 . YES, GET SECTOR ADDRESS OF DATA @G@@@9XJ )@@G@@ A A0,READP+5 . ADD TO PRESENT SECTOR ADDRESS XK )@@G@@@G@@@8 J READ1 . GO BACK AND READ THAT SECTXL )@@G@@OR @F@@@8READ2 L,S6 A0,BUFFER . SET MAX NO. OF BUFFEXM )@@G@@RS @G@@@8 JZ A0,READ . SKIP BLOCKS WITH NO XN )@@G@@ENTRIES @ @@@8 S A0,MNBUF @F@9@8 L,U XO )@@G@@ A0,1 . SET NEW BLOCK EXTERNAL TAG@F@@@9 SP1 XP )@@G@@ NEWBLOCK . SET NEW BLOCK EXTERNAL TAG@A@9@8 S XQ )@@G@@ A0,NEWBLOCK @^@@@8 J $+2 @G@@@8READ3 SZ XR )@@G@@ NEWBLOCK . CLEAR NEW BLOCK EXTERNAL TAG @F@9@8 L XS )@@G@@ A0,NBUF . INCREMENT NO. OF BUFFERS @F@@@9 L XT )@@G@@ A0,ENTRYNUM . INCREMENT NO. OF BUFFERS @^@@@8 AUXU )@@G@@,U A0,1@ @@@8 MSI,U A0,28 @ @@@8 A,U XV )@@G@@ A0,BUFFER @ @@@8 S A0,X5 @F@@@8 TG XW )@@G@@ A1,MNBUF . IF = MNBUF, RESET TO 0 @^@@@8 SZ XX )@@G@@ A1 @ @9@8 S A1,NBUF @A@@@9 S A1,EXY )@@G@@NTRYNUM @C@9@8 J 0,X11 . RETURN @F@@@9XZ )@@G@@ INC NRECS . INCREMENT NO. OF RECORDS @#@@@9YA )@@G@@ NOP @C@@@9 J 0,X9 . RETURN YB )@@G@@@F@@@8READE . . CLEAN END-OF-FILE CHECK YC )@@G@@@E@@@8 L,S1 A0,READP+3 . CHECK FOR 1ST EOF @^@@@8YD )@@G@@ TE,U A0,1@F@@@8 J EXIT . NOYE )@@G@@T EOF, OTHER I/O ERROR @E@@@8 IOW$ READP . REYF )@@G@@AD NEXT RECORD @D@@@8 TZ,S1 READP+3 . I/O ERROYG )@@G@@R? @F@@@8 J EXIT . YES, PROBABLY DOUBLEYH )@@G@@ EOF @F@@@8 L,H2 A0,READP+3 . CHECK IF 14 WD BUFFEYI )@@G@@R READ@ @@@8 TE,U A0,14 @E@@@8 J EXITYJ )@@G@@ . NO, GARBAGE READ @G@@@8 L A0,(054160YK )@@G@@0000000) . CHECK FOR END-OF-TAPE SDF LABEL@ @@@8 TE A0,BYL )@@G@@UFFER @E@@@8 J EXIT . NO, GARBAGE READ YM )@@G@@@G@@@8 TSWAP$ FACPKT . CLEAN END-OF-REEL, SWAP TAYN )@@G@@PES @^@@@8 J READ@[@@@8/. @H@@@8. ****************YO )@@G@@********************************************************** @H@@@8. ****YP )@@G@@****** GET NEXT LOG CYCLE SUBROUTINE ******* YQ )@@G@@@H@@@8. ****************************************************************YR )@@G@@********** @[@@@8. @]@@@8NEXT . @D@9@8 CSF$ FREEYS )@@G@@,NFREE . @FREE MASTER @D@@@9 CSF$ FREE,NFREE YT )@@G@@ . @FREE LOG$ @E@9@8 L,S3 A1,CYCLE . IS CYCLEYU )@@G@@ = -0 ? @E@@@9NEXTA INC LOGCYCLE . INCREMENT LOGCYV )@@G@@YCLE @D@9@8NEXTA TNE,U A1,'0' . IF SO, ERROR @F@@@9YW )@@G@@ J 0,X9 . IF LOGCYCLE WAS 0, ERROR @ @9@8YX )@@G@@ J 0,X11 @D@9@8 AN,U A1,1 YY )@@G@@ . UPDATE CYCLE @ @9@8 S,S3 A1,CYCLE @E@'@9 E$YZ )@@G@@DIT EPKT . GENERATE USE IMAGE @^@'@9 E$MSG ZA )@@G@@ USE @A@'@9 L A0,LOGCYCLE @A@@@' L ZB )@@G@@ A5,LOGCYCLE @^@'@9 A,U A0,1@^@@@' A,U ZC )@@G@@ A5,1@ @@@' L,U A6,' ' @E@@@' SLJ CYCLZD )@@G@@E . ASSIGN NEXT CYCLE @#@;@9 E$DECV @#@;@9 ZE )@@G@@ E$MSGR @G@9@8 CSF$ USE,NUSE . @USE MASTER,SYZF )@@G@@S$*SYSTEM$... @F@;@9 CSF$ BUFFER+28,14 . @USE LOGZG )@@G@@$,SYS$*SYSTEM$... @D@9@8 CSF$ ASG,NASG . @ASG,A MZH )@@G@@ASTER @D@;@9 CSF$ ASG,NASG . @ASG,A LOG$ @E@@@8ZI )@@G@@ JN A0,NEXTA . NG, TRY NEXT CYCLE @H@@@9 ZJ )@@G@@ TNZ PRINTCYCLE . DOES USER WANT MASTER LOG SUMMARY? ZK )@@G@@@B@@@9 J NEXTB . NO@G@@@9 MSCON$ ZL )@@G@@ MSCONPKT . YES, GET MAIN ITEM FOR LOG FILE @E@@@9 E$ZM )@@G@@DIT EPKT . INITIATE EDITOR @D@@@9 E$FD2 ZN )@@G@@ BUFFER+1 . QUALIFIER @^@@@9 E$CHAR '*' @D@@@9ZO )@@G@@ E$FD2 BUFFER+3 . FILE-NAME @^@@@9 E$ZP )@@G@@CHAR '(' @D@@@9 E$DECV BUFFER+17,,T3 . ABS CYCLE ZQ )@@G@@@^@@@9 E$MSG MESS@A@@@9 L A0,LOGCYCLE ZR )@@G@@@^@@@9 A,U A0,1@D@@@9 E$DECV ZS )@@G@@ . REL CYCLE @#@@@9 E$MSGR @E@@@9 E$DAY3 BUFFZT )@@G@@ER+19 . CATALOGUE TDATE @^@@@9 E$SKIP 1 @ @@@9ZU )@@G@@ E$TIME BUFFER+19 @D@@@9 PRINT$ 0,0,1 ZV )@@G@@ . SKIP A LINE @E@@@9 E$PRINT . PRINT SUZW )@@G@@MMARY LINE @D@@@9 PRINT$ 0,0,1 . SKIP A LINE ZX )@@G@@@G@@@'NEXTB TNZ STIME . WAS A START TIME SPECIFIEDZY )@@G@@? @B@;@' J NEXTX . NO@B@@@; J ZZ )@@G@@ NEXTC . NO@F@@@' A,U A5,1 AA )@@G@@ . YES, ASSIGN NEXT CYCLE +1 @E@@@' L,U A6,'1' AB )@@G@@ . FOR LOOK AHEAD @ @@@' SLJ CYCLE @H@@@' AC )@@G@@ JN A0,NEXTC . PROBLEM WITH THAT CYCLE, FORGET IT AD )@@G@@@F@@@' MSCON$ MSCONPKT1 . GET MAIN ITEM OF CYCLE AE )@@G@@@G@@@' L A0,STIME . COMPARE START TIME WITH CYAF )@@G@@CLE'S @E@@@' L A1,BUFFER+19 . CATALOGUE TIME AG )@@G@@@H@@@' SLJ DTDATE . IF START TIME > CATALOGUE AH )@@G@@TIME, SKIP @E@;@' JN A2,NEXTA . PRESENT CYCAI )@@G@@LE @E@@@; JN A2,NEXT . PRESENT CYCLE AJ )@@G@@@F@9@8 LN,U A0,8 . INITIALIZE DRUM ADDRESS AK )@@G@@@F@'@9NEXTB LN,U A0,8 . INITIALIZE DRUM ADDRESS AL )@@G@@@F@@@'NEXTC LN,U A0,8 . INITIALIZE DRUM ADDRESS AM )@@G@@@ @@@8 S A0,READP+5@G@9@8 SZ NBUF AN )@@G@@ . INIT. NO. OF BUFFERS FOR READ @G@@@9 SZ ENTRAO )@@G@@YNUM . INIT. NO. OF BUFFERS FOR READ @C@9@8 J AP )@@G@@ 1,X11 . RETURN @C@@@9 J 1,X9 AQ )@@G@@ . RETURN @[@@@'/. @H@@@'. ****************************************AR )@@G@@********************************** @H@@@'. ******* ASSIGN LOG CYCLE SUBAS )@@G@@ROUTINE ******* @H@@@'. ******* AT )@@G@@ ******* @H@@@'. ****AU )@@G@@*** INPUTS: A5 = REL CYCLE ******* AV )@@G@@@H@@@'. ******* A6 = LOG$ SUFFIX AW )@@G@@ ******* @H@@@'. ******* AX )@@G@@ ******* @H@@@'. ****************************************AY )@@G@@********************************** @^@@@'CYCLE + 0 @E@@@'AZ )@@G@@ E$DIT EPKT . EDIT 'USE' IMAGE @D@@@' BA )@@G@@ E$MSG USE . '@USE LOG$&' @D@@@' E$FD1 BB )@@G@@ A6 . LOG$ SUFFIX @C@@@' E$MSGR BC )@@G@@ . ',(&' @D@@@' E$DECV A5 . REL CYCLBD )@@G@@E @ @@@' E$MSGR . ')' @E@@@' CSF$ BUFFBE )@@G@@ER+28,14 . SUBMIT USE IMAGE @E@@@' E$DIT EPKT BF )@@G@@ . EDIT 'ASG' IMAGE @E@@@' E$MSG ASG BG )@@G@@ . '@ASG,AI LOG$&' @D@@@' E$FD1 A6 . LOBH )@@G@@G$ SUFFIX @E@@@' CSF$ BUFFER+28,14 . SUBMIT ASG IMABI )@@G@@GE @C@@@' J *CYCLE . RETURN @[@@@'. BJ )@@G@@@[@@@8/. @H@@@8. ****************************************************BK )@@G@@*********************** @H@@@8. ******* BL )@@G@@ ******* @H@@@8. ******* TDATE TIME DIFFERENCBM )@@G@@E SUBROUTINE ******* @H@@@8. ******* BN )@@G@@ ******* @H@@@8. ****BO )@@G@@*** WRITTEN BY LOU INFELD, 10/07/77 ******* BP )@@G@@@H@@@8. ******* BQ )@@G@@ ******* @H@@@8. ******* THIS SUBROUTINE WILL CALCULATE THE TIME DIFFBR )@@G@@ERENCE ******* @H@@@8. ******* IN SECONDS BETWEEN TWO TIMES EXPBS )@@G@@RESSED IN 'TDATE$' FORMAT. ******* @H@@@8. ******* BT )@@G@@ ******* @H@@@8. ******* INPUTS ABU )@@G@@RE IN A0 & A1 AND OUTPUT IS IN A2. A2=A1-A0. ******* @H@@@8. ****BV )@@G@@*** ******* BW )@@G@@@H@@@8. ****************************************************************BX )@@G@@************@#@@@8$(1) AXR$ @E@@@8DTDATE* + 0 BY )@@G@@ . 'SLJ DTDATE' CALL @D@@@8 DS A0,DTDIN BZ )@@G@@ . SAVE INPUT @H@@@8 L,H1 A2,DTDIN . CHECK IFCA )@@G@@ MMDDYY SAME FOR BOTH TIMES @ @@@8 TE,H1 A2,DTDIN+1@D@@@8CB )@@G@@ J DTDCON1 . NO, TOO BAD @F@@@8 L CC )@@G@@ A2,A1 . YES, EASY CALCULATION @ @@@8 ANCD )@@G@@ A2,A0 @C@@@8 J *DTDATE . ALL DONECE )@@G@@@G@@@8DTDCON1 SLJ DTDSUB . CONVERT TO SECS SINCE 1964CF )@@G@@, D.P.@E@@@8 S A0,DTDTEMP . SAVE CONVERTED TIME CG )@@G@@@ @@@8 L A0,DTDIN+1@G@@@8 SLJ DTDSUB CH )@@G@@ . CONVERT TO SECS SINCE 1964, D.P.@E@@@8 AN A0,DCI )@@G@@TDTEMP . CALCULATE DIFFERENCE@E@@@8 L A2,A0 CJ )@@G@@ . GET OUTPUT READY @D@@@8 DL A0,DTDIN CK )@@G@@ . RESTORE INPUT @C@@@8 J *DTDATE . DONE CL )@@G@@@H@@@8. ****************************************************************CM )@@G@@********** @H@@@8. ********* CONVERT TDATE$ TO SECONDS SINCE 1964 CN )@@G@@ ******* @H@@@8. ****************************************CO )@@G@@********************************** @^@@@8DTDSUB + 0 @D@@@8CP )@@G@@ S A0,DTDTEMP+1 . SAVE INPUT @^@@@8 SZCQ )@@G@@ A2 @C@@@8 L,S3 A3,DTDTEMP+1 . YEAR @ @@@8CR )@@G@@ JZ A3,DTDSC1 @^@@@8 AN,U A3,1@ @@@8 CS )@@G@@ L A0,A3 @E@@@8 DI,U A2,4 . CHCT )@@G@@ECK FOR LEAP YEARS@^@@@8 A,U A2,1@A@@@8 MSI,U CU )@@G@@ A2,60*60*24 @B@@@8 MSI A0,(60*60*24*365) @ @@@8CV )@@G@@ A A0,A2 @C@@@8DTDSC1 L,S1 A2,DTDTEMP+1 CW )@@G@@ . MONTH @^@@@8 AN,U A2,1@A@@@8DTDSC2 A A0,DCX )@@G@@TDTAB,A2 @ @@@8 JGD A2,DTDSC2 @C@@@8 L,S2 CY )@@G@@ A2,DTDTEMP+1 . DAY @^@@@8 AN,U A2,1@E@@@8 CZ )@@G@@ MSI,U A2,60*60*24 . CONVERT TO SECS @D@@@8 A DA )@@G@@ A0,A2 . ADD TO TOTAL @G@@@8 L,S3 A3,DDB )@@G@@TDTEMP+1 . IF LEAP YEAR AND MONTH>FEB, @H@@@8 AND,U DC )@@G@@ A3,3 . ADD AN EXTRA DAY TO CALCULATION @ @@@8 DD )@@G@@ JNZ A4,DTDSC3 @A@@@8 L,S1 A3,DTDTEMP+1 @^@@@8DE )@@G@@ TLE,U A3,3@ @@@8 J DTDSC3 @A@@@8 DF )@@G@@ A,U A0,60*60*24 @C@@@8DTDSC3 L,H2 A2,DTDTEMP+1 DG )@@G@@ . SECS @D@@@8 A A0,A2 . ADD TO TOTAL DH )@@G@@@C@@@8 J *DTDSUB . RETURN @C@9@8DTDIN REDI )@@G@@S 2 . INPUT @C@@@9DTDIN $RES 2 DJ )@@G@@ . INPUT @^@9@8DTDTEMP RES 2 @^@@@9DTDTEMP $RES DK )@@G@@ 2 @^@@@8DTDTAB + 0 @A@@@8 + 60*60*24*3DL )@@G@@1 @A@@@8 + 60*60*24*28 @A@@@8 + DM )@@G@@ 60*60*24*31 @A@@@8 + 60*60*24*30 @A@@@8 DN )@@G@@ + 60*60*24*31 @A@@@8 + 60*60*24*30 DO )@@G@@@A@@@8 + 60*60*24*31 @A@@@8 + 60*6DP )@@G@@0*24*31 @A@@@8 + 60*60*24*30 @A@@@8 + DQ )@@G@@ 60*60*24*31 @A@@@8 + 60*60*24*30 @[@@@8DR )@@G@@/. @H@@@8. **********************************************************DS )@@G@@**************** @H@@@8. ********** D A T A DT )@@G@@ ******* @H@@@8. **********************************DU )@@G@@**************************************** @[@@@8. @]@9@8$(0) . DV )@@G@@@F@9@8NEWBLOCK* RES 1 . NEW BLOCK EXTERNAL TAG DW )@@G@@@G@9@8NBUF RES 1 . NO. OF ENTRIES IN LOG BLOCDX )@@G@@K @[@@@9$(0) @ @/@8PF FORM 12,6,18 @^@9@8POINTER REDY )@@G@@S 1 @^@@@9POINTER $RES 1 @^@9@8FIRST RES 1 DZ )@@G@@@^@@@9FIRST $RES 1 @ @9@8BUFF EQUF *4,X10 @ @@@9EA )@@G@@BUFF $EQUF *4,X10 @ @9@8STIME EQUF *2,X10 @ @@@9EB )@@G@@STIME $EQUF *2,X10 @ @9@8RUNID EQUF *1,X10 @ @@@9EC )@@G@@RUNID $EQUF *1,X10 @ @9@8TYPE EQUF 0,X10,H2 @ @@@9ED )@@G@@TYPE $EQUF 0,X10,H2 @ @9@8KEY EQUF *3,X10,H2 @ @@@9EE )@@G@@KEY $EQUF *3,X10 @ @9@8WDNO EQUF *3,X10,H1 @ @@@9EF )@@G@@WDNO $EQUF 3,X10,H1 @F@9@8MNBUF RES 1 EG )@@G@@ . MAX NO. OF LOG ENTRIES @F@@@9MNBUF $RES 1 EH )@@G@@ . MAX NO. OF LOG ENTRIES @C@9@8READP I$OD 'MASTER',R$ 224,EI )@@G@@BUFFER -8 @C@@@9READP I$OD 'LOG$',R$ 224,BUFFER -8 @B@9@8EJ )@@G@@USE '@USE MASTER, SYS$*SYSTEM$LOG$'@B@'@9USE '@USE LOG$,SYSEK )@@G@@$*SYSTEM$LOG$(&)&'@C@@@'USE '@USE LOG$&,SYS$*SYSTEM$LOG$(&)&' EL )@@G@@@ @9@8NUSE1 EQU $-USE @C@9@8CYCLE PF '(-',NCYCLEM )@@G@@E-1+'0',') ' @^@@@9LOGCYCLE $RES 1 @ @9@8NUSE EQU EN )@@G@@ $-USE @ @9@8ASG '@ASG,AE MASTER' @^@'@9ASG '@ASG,AIEO )@@G@@ LOG$'@ @@@'ASG '@ASG,AI LOG$&' @ @9@8NASG EQU $-ASEP )@@G@@G @ @;@9NASG $EQU $-ASG @^@9@8FREE '@FREE MASTER'EQ )@@G@@@^@@@9FREE '@FREE LOG$' @ @9@8NFREE EQU $-FREE @ @@@9ER )@@G@@NFREE $EQU $-FREE @D@9@8BUFFER RES 224 ES )@@G@@ . LOG BLOCK @D@@@9BUFFER $RES 224 . LOG BLOCET )@@G@@K @ @@@8LOAD L,S1 A0,RUNID @ @@@8 L,S2 A0,REU )@@G@@UNID @ @@@8 L,S3 A0,RUNID @ @@@8 L,S4 A0,REV )@@G@@UNID @ @@@8 L,S5 A0,RUNID @ @@@8 L,S6 A0,REW )@@G@@UNID @ @@@8TEST TNE,S1 A0,LRUNID @ @@@8 TNE,S2 A0,LEX )@@G@@RUNID @ @@@8 TNE,S3 A0,LRUNID @ @@@8 TNE,S4 A0,LEY )@@G@@RUNID @ @@@8 TNE,S5 A0,LRUNID @ @@@8 TNE,S6 A0,LEZ )@@G@@RUNID @ @9@8LTYPE EQUF 0,X5,S1 @ @@@9LTYPE $EQUF 0,X5FA )@@G@@,S1 @ @9@8LLOGT EQUF 25,X5 @ @@@9LLOGT $EQUF 25,XFB )@@G@@5 @ @9@8LRUNID EQUF 27,X5 @ @@@9LRUNID $EQUF 27,XFC )@@G@@5 @^@9@8FACPKT 'MASTER ' @^@@@9FACPKT 'LOG$ ' @^@9@8FD )@@G@@ RES 7 @^@@@9 $RES 7 @^@9@8PREASG REFE )@@G@@S 1 @^@@@9PREASG $RES 1 @^@@@9PRIV $RES 1 FF )@@G@@@B@@@9MSCONPKT DREAD$PKT 'LOG$',BUFFER,28,0,0 @B@@@'MSCONPKT1 DREAD$PKFG )@@G@@T 'LOG$1',BUFFER,28,1,0 @A@@@9EPKT E$PKT 14,BUFFER+28 @B@@@9FH )@@G@@MESS ') RELATIVE CYCLE & CREATED &' @[@@@8/. @H@@@8. **********FI )@@G@@**************************************************************** @H@@@8FJ )@@G@@. ********** PROGRAM PARAMETERS ***FK )@@G@@**** @H@@@8. **********************************************************FL )@@G@@**************** @[@@@8. @F@9@8NCYCLE EQU 10 FM )@@G@@ . NO. OF LOG CYCLES TO CHECK@F@@@8SENTINEL '666666' FN )@@G@@ . END OF LOG TAPE SENTINEL @[@@@9/. @H@@@9. **********************FO )@@G@@**************************************************** @H@@@9. **********FP )@@G@@ EXTERNAL TAGS ******* @H@@@9FQ )@@G@@. **********************************************************************FR )@@G@@**** @[@@@9. @[@@@9$(2) @F@@@9NEWBLOCK* $RES 1 FS )@@G@@ . NEW BLOCK EXTERNAL TAG @G@@@9ENTRYNUM* $RES 1 FT )@@G@@ . NO. OF ENTRIES IN LOG BLOCK @G@@@9PRINTCYCLE* $RES 1 FU )@@G@@ . PRINT MASTER LOG CYCLES KEY @F@@@9NBLOCKS* $RES 1 FV )@@G@@ . # OF BLOCKS PROCESSED @F@@@9NRECS* $RES 1 FW )@@G@@ . # OF RECORDS PROCESSED @#@9@8 END @#@@@9FX )@@G@@ $END ___@@8 L,S3 A3,D)@@@*@@@@@@@)@@@+@@@@@@@FY )@@G@@ @EK@^R])@@G*4F@@@R])@@F 1R10 READLGAA@@@@)@^[##@[#@[@FZ )@@G@@K0@K0@K)@K0@@@@@@@=8@@@)C0@@@Y'=@@@@C@@@^$ @)@@A/K@@@Y*@@@@AR[K@@ AB@@@@GA )@@G@@)@G[F#@[#@[]@ #@[@K0@K@@C9)@@ @@@@L/K@@@Y @)@^J/K@@@N(4@@^G'=@@@@C8@@^AGB )@@G@@ @)@^KAC@@@@)@P[#@K0@K)]K0@K0@^G@^@@@@@@@@/,K@]X]@@@@OG8@@@[C*@@@< ?)@^OGC )@@G@@'=@@@@C8@@^L'^@@#SAD@@@@)@X[F@K[#@[@K0@K^G@^@@@@/K@@[* @@@@A/K@@@&%@@@^&GD )@@G@@/K@@[=:@@@^*C@ @@@/,K@[:/K@@[*AE@@@@)@&[MK[@[[K^G@^@@@/K@@@3*@@@^K/G)@@YGE )@@G@@ @@@@[0@@@@JK8)@8K'^@@#,C@P@@T/@@@@,C@EK@]AF@@@@)@0[F#@@K[@^G@[@@@@@@@@@GF )@@G@@/K@@@.:8@@@-')^@#'R9@@@ /@@@@"C@EK@[/K@@@Y:@ @@VC@@@^(AG@@@@)@9[N#@[@KO[GG )@@G@@@@K@@@NCU@@@/K@@[D(CE@@@C^H@@@C^U@@@8[@@@6/K@@@Y @@@@[/K@@@.')^@^@AH@@@@GH )@@G@@)[#[M@K^[@^@@@@@@@C@EK@#/K@@@Y%4 @@@/@@@[G/K@@[G/K@@@Y2^[)@@C4 @@@&8K@@[GI )@@G@@R@U@@@AI@@@@)[H[N@^@@K)#K^@@@@/K@@[W/K@@@Y/,0@@@C8)@@AC8K@]KR^%@@#R@K@@ GJ )@@G@@/K@@[R*CE@@#/@@@[WAJ@@@@)[R[U@K@@@@@M[A)@@&9)@@[R[)@@ &9@@@[R9EK@^N8K@@WGK )@@G@@/K@@@Y%@K@@GC@O@@@O[@@@ RDE@@#AK@@@@)[+[F#@[@K0@K^[@@@@@@@@@/KE@@A/KE@@@GL )@@G@@*4E@@@/K@@@Y/K@@[*/,K@]X(@@@^J/K@@[*A[K@@ AL@@@@)[:[#[K^G@[#@[#@[]@L#@@@GM )@@G@@@@@@@@*4@@@F'=@@@@C8@@@C[@@@@HG8@@@CC@@@@H/K@@][*@@@@[AM@@@@)[3[F@KL#@[#GN )@@G@@@[@K0@K0@K@@/K@@[\G@@@@HC@@@@W/K@@[/%@@@@UC@@@^%/S@@@@ ]@@@#/K@@]HAN@@@@GO )@@G@@)[/[F#@[@K0@KO[[KK@@@@@@T8@@@WK8@@@[C@@@@[ @@@@@/K@@]] @)@@@[@@@@B/@@@[:GP )@@G@@C)@@@UAO@@@@)] [E()@CS@]]))-)@@@@@@@C4@@@F/KD@@@/S@@@@ ]@@@^[@K@@[ @@@@HGQ )@@G@@!@K@@B[@@@@ G8@@@UAP@@@@)]I[EK^G@^C[^G@^[#@@K@@@/K@@[*%8@@@IC^@@@F/K@@[*GR )@@G@@*4@@@F'=@@@@C8@@@C/K@@[*%8@@@[AQ@@@@)]R[##@[#@[@K0@K) K^G@^C[)@@@@'=@@@@GS )@@G@@C@@@^?/K@@[:'=@@@@C8@@^A/K@@[*%@@@@UC@@@^:AR@@@@)]Z[F#@@K0@[@K^ @@@@@@@@GT )@@G@@/K@@#C(@@@@]/G@@]Z'^@@#SC9)@@ G9K@@[C[K@@O/KD@@@ ]@@@OAS@@@@)]*[##@[]@C(GU )@@G@@)@-@I-)@-@KCK^)@@@/,0@@@C/@@@*/,0@@@9?@@@V/,0@@@C/@@^V'=@@@@C8@@^LAT@@@@GV )@@G@@)]0[##@[]@)K)DK0@K)EK0@K)F@@@@/,0@@@C8@@^-/,0@@@CO@@@:/,0@@@C/@@@(/,0@@@GW )@@G@@9?@@@XAU@@@@)]8[##@@K)EK)GK0@K)H^C#)@@@@@@/,0@@@C/@@@[/,0@@@C@@@@!/,0@@@GX )@@G@@/,0@@@G8@@@[C@@@@OAV@@@@)#@[##@[]@.#@[][@K)LK0@K)K@@@@'=@@@@C@@@^!/,0@@@GY )@@G@@C8@@@['=@@@@C@@@^!/,0@@@C@@@@!AW@@@@)#C[EK@K^[#@[]@C@@@@@@@@C@EK@]'=@@@@GZ )@@G@@C8@@^Q/G@@#O'^@@#SC9)@@1G9K@@[/K@@#O(@EK@]AX@@@@)#L[F#@[@K[#@[[@()@@@@@@HA )@@G@@C/@@^V@@@@@@/KD@@[ @@@@[[@@@@HD8@@@C/G)@]X'^@@#,C@K@@!AY@@@@)#U[#]@X#@[]HB )@@G@@@?K)MK)G^C])@@@@@@/,0@@@C@@@@L/,0@@@/,0@@@C@@@@M/,0@@@C8@@@I/,0@@@AZ@@@@HC )@@G@@)#+[#]@0()@-@GO0@K)BK0@K)F@@@@C@@@@M/,0@@@C8@@@P/,0@@@C/@@^V'=@@@@C8@@@6HD )@@G@@/,0@@@BA@@@@)#%[F][C()@-@G)]@)C]@@@@/K@@#6%C)@^XCC)@^W9*@@^W@@@@@@/K@K#SHE )@@G@@'=@@@@C8@@@6/,0@@@BB@@@@)#3[M^[@K^[@K[@@@@9?@@^WC@)@@GH@@@^Y'^@@#"C@@@^XHF )@@G@@[@@@^Y'^@@#"/K@K#,H@)@@GC@)@@HBC@@@@)#.[N@^@K^@@@@@@@@G8)@@[W8)@@^C@@@@JHG )@@G@@H80@@[/@0@^EC?0@^Z @@@@I[@@@^Z@@@@@@/K@K#,BD@@@@)^B[MK0@^@K^[@@@@@T8)PA@HH )@@G@@H8)@@[C0)@^Z8#)@^GG@I@^)H8)@@[C4)@^ZG@@@@IT@@@^,T8)PA@BE@@@@)^L[MK[@K[@^HI )@@G@@@@@@@@G@@@@IC^)@^ZG8@PA@/K@@^T?80@@#C40@^Z/ @@^T+80@@#C?0@^ZG@@@@IBF@@@@HJ )@@G@@)^V@F@@@@@@@)^)[]@@@@@@@@@EH'@@@D84@@@EH'@@@D84@@@EH'@@@DI*@@@EH'@@@@@@@HK )@@G@@/K@K#"BG@@@@)^*@+@@@@@@@)@C@)@/V][G@@@@@@@@@@@@@@@@@@@ LOG$ @@D84@HL )@@G@@@@EH'@@@D84@@@EH'@BH@@@@)@G[@*@@@@@@)@P@K@I LOG$@ASG,A& OG$(&)STEM$LHM )@@G@@YS$*SYOG$&,S@USE L_____7@#)@@UBI@@@@)@R@S@)#'@8@@@@@@@:4 @@VC)EK@[C=EK@[HN )@@G@@C*EK@[C?EK@[C0EK@[C4EK@[LOG$ @FREE & BJ@@@@)^[@8@@@@@@@)^L@K8*][K@@HO )@@G@@LOG$ @@@@@@ LOG$ :) @@V:= @@V:* @@V:? @@V:0 @@VBK@@@@)^N[KE@WO[@*HP )@@G@@[K])@@@@@@@@@&I@@6@@@@@@@W[@@U LOG$1 @@@@@@@@@@@@@W@@@U BL@@@@HQ )@@G@@)^X[S@@@E@@@@@ @@U666666ED & CREATYCLE &TIVE C) RELA@@@@@@@@@@@@@@@@@@HR )@@G@@[[@@@@BM@@@@)^*@8@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[8NI@@[@@@@@@]@@S?I@@@@HS )@@G@@SYSLOGEXEC 8______BN@@@@@@^@@#@@B@@P@@1@@B@[H@@@@@E@^\@@@@^?@@@@@ PCT$ HT )@@G@@ FACIL$ MSCON$ FINDFIELD IOW$ TSWAP$ CSF$ HU )@@G@@ EDIT$ EFD2$ ECHAR$ EDECV$ EMSG$ EMSGR$HV )@@G@@ EDAY3$ ESKIP$ ETIME$ PRINT$ EPRINT$ EFD1$ HW )@@G@@ R$ DREAD$ DTDATE @@[@@@@@@@#,ENTRYNUM @@]@@@HX )@@G@@@@@@@[NBLOCKS @@]@@@@@@@@#NEWBLOCK @@]@@@@@@@@@NRECS @@]@@@HY )@@G@@@@@@@^PRINTCYCLE @@]@@@@@@@@]READLG @@[@@@@@@@@@@A@@@@@@@@@@@@@@@@HZ )@@G@@@@@E%B#GKD'[@@@@@@TFIS25======@@^@@ @@@@@@@@@@@@@@ @K#@@@@@]@@@@@@@@@@@@IA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F27#HI73R1 @@@@@@@@@@@Z@@@@@@@@@@@@@@@@@@IB )@@G@@@@@@@@@@@@@@@@S@@A@@A@@S@[]@@@@@D@@^@@@@L^@@@@@@@^@@@]@]@]@[@ @@@]K^@#@)IC )@@G@@[3@@@@ L,U X6,LASTD$+1 @F@@@Y A,U A0,0,X6 ID )@@G@@ . CALC LAST ADDRESS IN TABLE@C@@@Y S A0,LWORD IE )@@G@@@CG@C@@]N@K*)@W@KG) @M;@@@___@@E^@@@@S^@W@@4^[A@@[^MS)@M^@E)@M^@4)KY^['IF )@@G@@) $^MT@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___IG )@@G@@@@@___@@@___@@@___@@@___C9K@@[/K@@C#C9K@@@&';@@@N@K@@D9?)^@ZC8K@@H/K@@CEIH )@@G@@;G)@@AP;K@@[+80@@_:9@@@ /K@@CC;GK@@=W8K@@AQ'X^@Z&'K@@[&;)@@[C[@@DGC@@@DHII )@@G@@C80@@@+8@@@_%8K@@ /K@@CX;C@@@AG80@@A;-@@@A')I)D#/K@@CP;*J@@@C@0@@G @@@@KIJ )@@G@@;=0@@A')I)D#/^0@C)C9@@@ ')I)D#9?@@[](@@@@L'=@@@MC@0@@G/\@@C"C9@@@/')I)D#IK )@@G@@/\@@C"C9@@@/')I)D#/\@@C"C9@@@ ')I)D#C@0@@H/\@@C"C9@@@:')I)D#/\@@C"C9@@@:IL )@@G@@')I)D#/\@@C"R]K@[[Q'0@@@/SF)@@/KF@@@;=0@@A')I)D#;=0@@A')I)D#/KG@@@[5D@@@IM )@@G@@[1D@@@[!D@@@[(D@@@[>D@@@/,0@DDQ;)@@@[-D)@@/KF@@@SLIB 73R1 A^W@@#A@?@@^IN )@@G@@A@/@@ Q8W@@@N?L@@@R@)@F.R^1@@@&80@@[C8@@F"M@/)@@Q^1@@@ ?[@@]/KF@@@A^W@@#IO )@@G@@A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[IP )@@G@@C8[@@@Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@/?)@D3[)<)@@IQ )@@G@@A^-@@]Q8)@@@/K[K@]C8?@@@')])D!/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@Q8/@@@/KF@@@IR )@@G@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@/K@@D'N?L@@@Q^1@@@C8@@F"M@/)@@Q8)@@@Q^1@@@IS )@@G@@/KF@@@C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@@EPC80@@F;^@@[]+8K@@_%8)@@ IT )@@G@@:8)@@@/K@@EV')])D!8#0@EP/KF@@@&"0__"/K@@E)&'0@@@C8.@@@;G@@@M;CK@@M&;@@@[IU )@@G@@&;K@@[8#0@E$/KF@@@')G)E;0@@@@F%8)@@@')])D!/K@@E>C?[@@[C^L@@[/K@@E1;G@@@MIV )@@G@@;CK@@M&;@@@[&;K@@[')G)E;:0-@@@/K@@E8')])D!/K@@E3[?[@@[[^L@@[/KF@@@C4!@@@IW )@@G@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@F[C)!)@@[^[@@]Q;@@@@/K[K@]C80@@@;G@@@#/@@@FHIX )@@G@@G80@@[;G@@@#/^@@FCC8)@@0')])D!C8)@@@;=K@@#G8)@@0')])D!8#0@FH/KF@@@C8.@@@IY )@@G@@T8K@@#;GH@@@H80@@[/K@@FH&"0__"/K@@FWC8K@@@&'0@@@N8X@@@C80@@@;O@@@=W8@@@EIZ )@@G@@E/X@@@;?)@@AG8.@@08KK@F=/^@@FY/C@@F:0@@@@F/K@@F:;?)@@AG80@@-8KK@F:C@K@@IJA )@@G@@0@@@@F1@@@@G/K@@F2R;)@@-')])D!8KK@F2C8)@@ 0@@@@FC8)@@0/K@@F7')])D!8KK@F6JB )@@G@@C@)@@J')])D!;GK@@A/^)@F9/KF@@@@@[@@@ *@@^@@/KF@@[ @@^@[[@@^@@ @@^@[JC )@@G@@C8W@@@KCK^@@H8)@@V&;K@GVC@@@@H'=@@@H(@@^@[[@@^@[G8W@@@ @H@@@>@@@J//K@@GSJD )@@G@@>@@@J./KF@@[C8H@@@?8I@@@/K@@GCC@@@J;C8K@@#/KF@@@C@@@J0C8K@@[/KF@@@[@@^@[JE )@@G@@C@@@J6C8K@@]/KF@@@L8@@@[C@)^@@G8)@@[*@I@@@?CY@@@/K@@G$G),@@@/K@@G-%CI@@@JF )@@G@@/KF@@@C)"@@@H80@@[T80@@AG="@@@9?I@@[?80@@BC@K@J"/KF@@[;CK@@=;^@@@%(@@@@HJG )@@G@@G8K@@[[@K@[#;C@@@Y[@@@[[C^@^@@G8@@@[C9K@@[ @@^@JN8)@@@C@W@@@/@K@H&;CK@@YJH )@@G@@*@@@@H?@K@[#/K@@HQ%@K@[#/K@@H&%1W@@@/K@@H&C?W@@@!8K@@A/K@@HT%(K^@J @@^@IJI )@@G@@[(K^@J9??@@[C-G@@@:9@@@[C@0@J"')H@ISH9@@@[T9@@@AG>G@@@')H@I)G)G@@@G8@@@[JJ )@@G@@/K@@G.:9K@@[/K@@HYC*?@@@:8)@@.N8)@@[%[K@[[/K@@HQ/K@@HH%@)@J"[5@^@I:@)@J"JK )@@G@@[-K^@I/K@@HQ(@@@[]:(K^@J/K@@H:[(K^@J @@^@I:[K@[[/K@@H5G9K@@[(@G@@@/K@@H2JL )@@G@@!4W@@@/K@@G/ @@^@I @@^@J/KF@@@:(K^@J *@^@J9?K^@I98V@@@C8@@@-[=@^@J(?@^@JJM )@@G@@/KF@@[C@@^@VD8)@@@C80@@@C!@^@J8^@@IC1@@@@I!8)@[@C80@@E[))^@J[=0^@J/KF@@[JN )@@G@@C8K@@@;=@@@A?8K@@'?8K@@0/K@@IN(@@@@JC80@[@H8K@@0T8)@@EG8!@@@/K@@I[/^0@I^JO )@@G@@%8K@@+:8K@@-C8.@@@/@0@I^/K@@I[9*)^@K9*)^@M[@)^@O[@)^@P[@)^@Q9*)^@R9*)^@TJP )@@G@@[@)^@V/K@@H-[1@^@I[!@^@I[(@^@I[>@^@I[5@^@J[1@^@J[!@^@JC80@@F+8K@@_:8)@@ JQ )@@G@@;^@@@A8#0@I%9*@^@#C@@@J_C@K@K@C8)@@BC@0@J"[@"^@A8#)@I3N4K^@I9!@^@K/\)@J-JR )@@G@@C9K@@*(4@^@I*)@^@I')H)@@N0K^@I9!@^@M*@@@[[/K@@J]C[@@K[N8K@@^/\)@J-N?K^@IJS )@@G@@(@@@[[/K@@JGC9K@@(')H)@@C[@^@O/\)@J-C9K@@)')H)@@(*@^@I*=@^@I/K@@JMC@@@K]JT )@@G@@'=@@@J/KF@@@C9K@@/')H)@@N*K^@IC[@^@P/\)@J-N=K^@I(@@@[[/K@@JJC9K@@/')H)@@JU )@@G@@C[@^@Q/\)@J-/K@@JJ;>@@@A')H)@@8KK@JZ/KI@@@[5W@@@[1W@@@[!W@@@[(W@@@[>W@@@JV )@@G@@/\0@J([-W)@@Q;K@J @@@@GW8@@[@A#@^@&A#)^@$ @@@@IW8)@[@KA )@@G@@A#)^@*[[@^@('^@@L*C8@^[A/,0@E\C@@^@>/,0@FU/,0@E?C@@^@&/,0@FU/,0@E?C@@^@$KB )@@G@@/,0@FU/,0@E?C@@^@*/,0@FU/,0@E?C@@^@(/,0@FU/,0@E?/,0@D>C@@^[6'=@@@IR;@^[%KC )@@G@@*4@^[=R;@^[!'=@@@J'=@@@D'^@@L*C8@^[O/,0@E\C@@^[6'=@@@I'=@@@D'^@@L*C8@^[RKD )@@G@@/,0@E\C@@^[7'=@@@I/K@@LR@@@@@@C/@^@%/,0@DI9?@^@A/,0@EO9?@^@C/,0@EO9?@^@EKE )@@G@@/,0@EO9?@^@G/,0@EO/K@KL*A])^]:A[K^]?[[K^]!A[)^],A]0@@E9*@^['R;@^['&'0)[3KF )@@G@@B,0@C /K@@M1RF@^]^/@@@M7?8@@#^R;@@#^A#@^]\R9)^]0!8@@J*R9)^MTO;A@@@A#@^](KG )@@G@@L?@^] A#K^]%!8@^MS'=@@@H[KA3A/ K[LGNY )@@G@@C8@[LD[^@@\!/K@[L$C8@^,8[^@@\!/K@[L&C[KA2>H[KA2_/ K[LMN])A3 ^])A2>/K@[LSNZ )@@G@@/,0@I1@_@CC:@V@^:G/,0^!_@@V^:G/K@^,7CHKA2&H9K@@[T.K@@LR[@@@LO @A2=C[KA2?OA )@@G@@H[KA29/[K[L-/K@[L=C@)A3C%@=@8\/K@[L&N])A3^^])A2>/\@@\?C[KA2&H[KB:I/HK[L:OB )@@G@@/K@[L'C[KA2_G[KA2&[[KA2&CHKA2&H9K@@[T.K@@LR@0@@LO^0A2=C@<@8\%@)A3C/K@[L7OC )@@G@@/K@[L$N])A3 ^])A2>/K@[MXC[KCBGH[KA2\/ K[M@N])A3B^])A2>/K@[MXN])A2"^])A2&OD )@@G@@N])CBG^])A2.C8@[MB[^@@\0/K@[M'C8@^,8[^@@\0C[KA28H[KA3K/DK[MKC[KA2_G[KA28OE )@@G@@[[KA28/K@[L$N])BJI^])A2/C8@[MP[^@@\\/K@[M:C8@^,8[^@@\\N])A2_^])A28C[KA2_OF )@@G@@G[KA27[[KA27/K@[L$/\@@\!N])A3@^])A2(Q')A\0/,0 KU[M<[M>/K@[ND/K@[M>Q@KA0*OG )@@G@@/,0@I1@_[@@@@@@BJJ@@@]$'/\@@\,N])A2/^])A2(N])A2/^])A23Q')A\0/,0 KU[M2[M4OH )@@G@@/K@[ND/K@[M4Q]@A0*/,0@I1@_C@@@@@@A3K@@@]$'/\@@\\N])A2.^])A2(N])A2.^])A24OI )@@G@@Q')A\0/,0 KU[N[[N#/K@[ND/K@[N#Q[)A0*/,0@I1@_A@@@@@@B:I@@@]$'/\@@\0/,0@I1OJ )@@G@@@_@CC0@:@^:G/,0^!_@@:^:GC@)CC8C@0CC9[@)^:GN@)CC'<@0^:H[[@^:H/,0^!_@@F^:GOK )@@G@@C[KA2(C/@@@E/,0@Z[C/)@@]/,0@K%C@)^: CK0^:AC(@^:A[@)^:G[C0^:H[(@^:H/,0^!_OL )@@G@@[@E^:G/K@@@@'^@^,4RA_@@WCXI@@]CXV@@@/G@^@*(*E@@./K@^@C *E@@./KH@@@:[@@@LOM )@@G@@/K@^@HC[I@@][[F@@@/KH@@@C[F@@@C[Y@@]%[@@@L/K@^@Z(@E@[M/K@^@XC[U@@6[[V@@@ON )@@G@@CXI@@][XF@@@[[Y@@][XI@@]G9K@@[[[U@@6C9K@@)[!Z@@ZR;@@[^/K@^7!+[@^@9*@E@[MOO )@@G@@![U@@6/K@^@E?[E@@4/K@^@E[[I@@]R;@@]^/K@^7!%[@@@L/K@^@7C[F@@@C[Y@@] CI@@@OP )@@G@@:[@@@L/KH@@@+[@^@9*@E@[M![U@@6/K@^@7?[E@@4/K@^@7[[UK[M/KH@@@R;@@#^/K@^7!OQ )@@G@@@@____RA_@@WC[I@@]C[V@@@;D@@@S;DK@@S0@@@@G/K@^[CN@K@@GR7E@@9=8@@@]/K@^[BOR )@@G@@R;@@G^/K@^7!R#@@[[:[@@@L/K@^[I:[U@@6/K@^[TR;@@A^/K@^7!C[F@@@C[Y@@]:[@@@LOS )@@G@@/K@^[T+[@^[W![U@@6/K@^[E?[E@@4/K@^[E[[I@@]/KH@@@C[E@[T[[I@@]/KH@@@@@____OT )@@G@@()J@@*/KF@@@/G@^[ @@@@KC U@[AG[K^[$/K@^[7___@@@()J@@*OU )@@G@@/KF@@@CDU@[E0@@@@GC U@[EG[K^[0C[@@@G/K@^[7___@@@()J@@*/KH@@@C1I@@@:9@@@)OV )@@G@@/K@^@@/K@^@'[ K^]V(^@^]V/KF@@@*8@@@@/K@^['AA0^['A#@^]%A#K^]:A#)^]?A#0^]!OW )@@G@@A])^],RBU@[J0@@@@LRBU@[K(@@@@H/K@^]+R#!@@[O;)@@ T8)E%:;C)@@M!C\@@BRF\@@BOX )@@G@@N@K@@I?8)@@IR;)@@I1@@^]%AF\@@VR#!@@@RBZ@@WO#K^]\O#)^]\^@K^]0A#K^]1A#)^]2OY )@@G@@/@)^]VM#!)@@'^@@@@(^@^]2/K@^]+N@K^]0R#K^]1R#)^]2M#Y)@@R#@^]%R#K^]:R#)^]?OZ )@@G@@R#0^]!R])^],RA0^[' ^@^['/KF@@@SAVEA0SAVEA1SAVEA2SAVEA3SAVX10@@[@@@LENGTHPA )@@G@@SOURCERECEIV*)J@@**^E@[N/KF@@@/G@^]'C[@^].CDU@[C/K@^]/ @@@@KC U@[C/K@^[7PB )@@G@@___@@@*)J@@**^E@[N/KF@@@CDU@[G0@@@@GC U@[GC[@@@G/K@^[7C9@@@[[(E@@BC[@^#"PC )@@G@@[[E@@EC[@^#_[[E@@R;D@@@G[[E@@P/GH@@@Q;@^1[C9@@@JC9K@@Z,5G@@A/KH@@@CDE@@YPD )@@G@@?9@@@ /K@^#9G9@@@[N@K@@KCDJ@@B;H@@@=W[@@[[N@K@@KCDJ@@B;H@@@=W9@@@W*@@@@LPE )@@G@@G9@@@[C9K@[@*?G@@AC9K[@@T W@@CN@)@@K @@@@KW[@@[]H9@@@[T[@@[[R]0@@K;H@@@=PF )@@G@@*^E@[MW9@@@ P'0@@[A]'@[^P]0@@KA]'@@6P'0@@[A]'@@4NWW@@^^WY@@]^WU@@4/KH@@@PG )@@G@@R;@@K]/K@^7!C9@@@[[(E@@B/KH@@@1HDR ______R'0^]"/,;@@@9!@^^8RA_@@W/G@^^MPH )@@G@@9(F@@@C[E@@4+[@^^'*^E@[M[[UK[MC[U@[^[[F@@#[[V@@];D@@@S[XF@@] @F@@^/,0^]3PI )@@G@@/KH@@@Q;@@J]%[F@@@/K@^7!C[F@@#[[E@@4+[@^^'*^E@[M[[UK[MC[F@@]+[@^^'[[U@[^PJ )@@G@@+[@^^;[[U@[T[[Y@@]C[F@@^[[E@@6/,0^]3/KH@@@/GH@@@/,0^[* @J@@ Q#@@@JCDJ@@BPK )@@G@@ CJ@@V[DJ@@^C9@@@K[1J@@#'=@@@#R]_@@^C[@^^/:[F@@@/K@^^4R;@@JB/K@^7!C[E@@6PL )@@G@@[[F@@^/,0^[X/KH@@@1HDR +COBOL@@______@@@@1HDR __0000000000DUMY34DO]"K@PM )@@G@@Z_____IU)W'3F^!#_JIX*=DZ.58O_#I)2!F7.NQUI4I<_SY5/*G@2-I$$$NL!9B)Z=I%1-CAPN )@@G@@DRTS$YI!.9UB:!J,1PI1&:8O3OL5I5I40Q6U@DQM++I7/W=@)F:7FFI;>16)OBNUY_I"\IOCPO )@@G@@TDCLA\J[;[9EZVUPSUJ =9F,<(CXRKJC,BY%GW6[JP8M8NK=,4#-JT85J74J'*.WEPR )@@G@@JR]<51J.3G3G3G3G3HK[)@@@@@@@@@K^*@@@@@@@@@KB2@@@@@@@@@KE")@@@@@@@@KI$^@@PS )@@G@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@KS&DU@@@@@@@KV\:0)@@@@@@KY;&?*@@@@@@K+>KF9PT )@@G@@@@@@@@K>,=I7K@@@@@K*'HM>^@@@@@K?=SN$E)@@@@K\!YS).C@@@@K285"(GU@@@@K6<-\DPU )@@G@@\0K@@@K9?UE/F?O@@@K/7)!:I$T@@@L@+?W<[C$*@@L#:R<:1U1+@@LA6HW&!1X')@LE-8T8PV )@@G@@G&'?=@LH%Q)QJ0(R!@LK4/CV3?3!*KLO- >LSO@O-ELR(Q">,T@T(WLU3?,JD_K)#3LY)N/9PW )@@G@@YJ+O]SL-*S/B53U9]"L=2ZFD3KL$N!@@@@@@_@@@@@__@@@@___@@@____@@_____@@_____PX )@@G@@@@____@@@___E%%%%%@@@@__@@@@@_@@@@@@@@SS10@@SS20@@SS30@@SS40@@AUGB@@[@@@PY )@@G@@@UHANGAA0^B)R;K GAA#K@SSR;K J^A#K@STR;K LJA#K@SUR;K^95A#K@SVR;K^>6A#K@SWPZ @EOF @COPY,IO TEMP.1037-010-010,1037-010-010. @FREE TEMP.