@CAT,P 1015-014-023.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1015-014-023,,,130062053241,000 )@@G@@**PF**@@@@=%@@@@@@@@@@@[@#0@@@]FE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@]G@@@]F^ ;Q@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@B@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@EAN )@@G@@RELEASE @@@@@@@@[@@@ @ @@@[[@@@[#@@@@W@OX9][FLIBGEN AO )@@G@@@@^@@@@@[@@@ @ @@@[[@@@@)@@@@X#L5=GAENEWLIB @@@@@@@@[@@@AP )@@G@@ @ @@@[[@@@@<@@@@X<[(3]]FLIBGEN @@@@@@@@[@@@DOC AQ )@@G@@@ @@@[B@@@@6@@@@YAG$=[SFWATLIB @@@@@@@@[@@A @ @@@[]@@@@+AR )@@G@@@@@@Y/IUCDWDWATLIB @@@@@@@@A@@@ @@@@]F^@@@@D@@@@ZYI4ADWDAS )@@G@@RLIB$O @@@@@@@@[@@C @ @@@[]@@@@Z@@@@Z$IN=D#ERLIB$O AT )@@G@@@@@@@@@@A@@@ )@@]@@@@@@@G@@@@)AIO\D#EEPDUP @@@@@@@@[@@EAU )@@G@@ @ @@@[]@@@@Q@@@@)MA2,EWCEPDUP @@@@@@@@A@@@ AV )@@G@@)@@]@@@@@@^]@@@@)*NX1[QFE8ID @@@@@L@@[@@@ @ @@@[@@@@@#AW )@@G@@@@@@W;MS]FFEFIBRKI @@@@@@@@[@@@ @ @@@[@@@@@F@@@@W"MUOFFEAX )@@G@@FICKAF @@@@@O@@[@@@ @ @@@[@@@@@^@@@@XDMV"FFEFREL AY )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@^@@@@XHM&VFFEREMID @@@@@@@@[@@@AZ )@@G@@ @ @@@[@@@@@#@@@@XLDU'FGERMCPC-HOLD @@@@@8@@[@@@ BA )@@G@@@ @@@[[@@@@C@@@@XODVCFGERMPB-HOLD @@@@@4@@[@@@ @ @@@[[@@@@#BB )@@G@@@@@@XWDWEFGERMPNC-HOLD @@@@[L@@[@@@ @ @@@[[@@@@C@@@@XZDW-FGEBC )@@G@@RMPNC @@@@@@@@[@@@ @ @@@[[@@@@#@@@@X$DXQFGERMSRTN-HOLD BD )@@G@@@@@@[ @@[@@@ @ @@@[@@@@@]@@@@X%DY[FGERSIPUT @@@@[#@@[@@@BE )@@G@@ @ @@@[@@@@@#@@@@X?D$$FGESMALTS @@@@@@@@[@@@ BF )@@G@@@ @@@[@@@@@[@@@@X\D(.FGESMNXTP @@@@@@@@[@@@ @ @@@[[@@@@CBG )@@G@@@@@@X0D2=FGESYMACT @@@@@>@@[@@@ @ @@@[@@@@@[@@@@X8D9!FGEBH )@@G@@TEST1 @@@@@V@@[@@@ @ @@@[@@@@](@@@@X9EAIFGEUKEYIN BI )@@G@@@@@@@=@@[@@@ @ @@@[@@@@@+@@@@)+EB)FGECSK @@@@@@@@[@@@BJ )@@G@@ @ @@@[@@@@@U@@@@-^HW7FJED5CCR-HOLD @@@@@@@@[@@@ BK )@@G@@@ @@@[@@@@@#@@@@-YH)SFJED5CRIT @@@@@:@@[@@@ @ @@@[@@@@@#BL )@@G@@@@@@--H%3FJEERRF0 @@@@@@@@[@@@ @ @@@[@@@@@]@@@@-=H6MFJEBM )@@G@@FNCCNT-HOLD @@@@@@@@[@@@ @ @@@[[@@@@^@@@@-&H9LFJEGCCFUN BN )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@F@@@@-%H_ FJELOGIT @@@@@@@@[@@@BO )@@G@@ @ @@@[@@@@@#@@@@-5IW/FLEINDRIV BX )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@L@@@@@@@@=K^^MFQECGYCOD @@@@@@@@[@@@CD )@@G@@ @ @@@[@@@@@]@@@@=5MZ"FQECATFR @@@@@@@@[@@@ CE )@@G@@@ @@@[@@@@@^@@@@=7 (OFREE8END @@@@@;@@[@@@ @ @@@[@@@@@ACF )@@G@@@@@@=; 4HFREEX8MAP @@@@@@@@[@@@ @ @@@[@@@@@]@@@@>[ 5%FRECG )@@G@@IOD @@@@@@@@[@@@ @ @@@[@@@@@]@@@@># 8)FRESMKEY CH )@@G@@@@@@[V@@[@@@ @ @@@[@@@@[C@@@@> A@KFRESYMBKP @@@@@@@@[@@@CI )@@G@@ @ @@@[@@@@@E@@@@&HA]9FRESMQUES @@@@@@@@[@@@ CJ )@@G@@@ @@@[[@@@@0@@@@&RN_"FUESYMICR @@@@@@@@[@@@ @ @@@[[@@@@LCK )@@G@@@@@@$BMTCG^EDMIINO @@@@[B@@[@@@ @ @@@[@@@@@R@@@@$S]>AGAECL )@@G@@RSIMSG @@@@@@@@[@@@ @ @@@[@@@@@F@@@@$\^$UGAECSP CM )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@S@@@@$'L^4GLEDISP @@@@[*@@[@@@CN )@@G@@ @ @@@[@@@@@%@@@@*MAX_GMESN$AP @@@@@@@@[@@@ CO )@@G@@@ @@@[@@@@[>@@@@*/A':GMEACCNTG @@@@@@@@[@@@ @ @@@[@@@@@]CP )@@G@@@@@@%-E"^[]FFIASG @@@@@@@@[@@@ @ @@@[@@@@@E@@@@%L,N[EFCV )@@G@@DMITRM @@@@@@@@[@@@ @ @@@[@@@@@O@@@@?(L8R[EFPRINT$ CW )@@G@@@@@@[J@@[@@@ @ @@@[@@@@@G@@@@?.L;"[EFDMIIFR @@@@[$@@[@@@CX )@@G@@ @ @@@[@@@@@O@@@@!D[DI[PFREAD$ @@@@[R@@[@@@ CY )@@G@@@ @@@[[@@@@P@@@@!X[E*[PFDAPAM @@@@[P@@[@@@ @ @@@[@@@@@]CZ )@@G@@@@@@!2I!"[PFAAPCT @@@@@@@@[@@@ @ @@@[@@@@@K@@@@!4F]L[QFDA )@@G@@CKEY @@@@@@@@[@@@ @ @@@[@@@@[D@@@@,^FAO[QFCNSLIT DB )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@B@@@@\HFE:[QFCSN @@@@@@@@[@@@DC )@@G@@ @ @@@[@@@@@^@@@@\OJ"K]$GBEDRC @@@@@@@@[@@@ @ @@@[@@@@@^@@@@\&KA1GBEDF )@@G@@EX8LOD @@@@@@@@[@@@ @ @@@[@@@@@]@@@@\%KB[GBEEXITF0 DG )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@+@@@@\?KEXGBEFNCCNT @@@@[)@@[@@@DH )@@G@@ @ @@@[@@@@@^@@@@0IKFQGBEINIT1 @@@@[(@@[@@@ DI )@@G@@@ @@@[@@@@@^@@@@0MI(Q[]FINIT2 @@@@@@@@[@@@ @ @@@[@@@@@^DJ )@@G@@@@@@0QKG3GBEIO @@@@@@@@[@@@ @ @@@[@@@@@D@@@@0UAW9GMEDK )@@G@@KPOOL @@@@@@@@[@@@ @ @@@[@@@@@[@@@@0[L&EPEIO-WITH-FIX @@@@@@@@[@@@ @ @@@[@@@@[[EN )@@G@@@@@@8SL3 EQEAASMTAGS @@@@@@@@[@@@ @ @@@[[@@@[N@@@@9TEN5EREEO )@@G@@FALL @@@@@@@@[@@@ @ @@@[[@@@@Q@@@@'?O/1EVESN$AP EP )@@G@@@@@@@@@@[@@@ @ @@@[@@@@[=@@@@;]@I]EWEIO @@@@@@@@[@@@EQ )@@G@@ @ @@@[@@@@@/@@@@/&KZ%EYEIOMSA @@@@@@@@[@@@ ER )@@G@@@ @@@[@@@@@ @@@@.+MQREYESMSAPR @@@@]A@@[@@@ @ @@@[@@@@@FES )@@G@@@@@@.$MU2GDESMUPQ @@@@@@@@[@@@ EW )@@G@@@ @@@[@@@@@ @@@@":J#4GFEK DISTRIBUTION <<<<<<<<<',/,@G@@@@ *' ACCEX )@@G@@OUNT',T16,'FILES',T26,'FIXED',T37,'REMOV',T46,'SEC TAPES', @F@@@@ *EY )@@G@@T58,'V-OPTION',T69,'G-OPTION',T84,'F2',T95,'F4',T105,'F17', @E@@@@ *EZ )@@G@@T116,'F14',T127,'F40',/,' -----',21('------'),/,) @[@@@@ @ @@@@FA )@@G@@ 1003 FORMAT (1X,2A6,I6,10I11)@[@@@@ @B@@@@ 1004 FORMAT (1X,2A6,I4,FB )@@G@@I7,I6,6I5,2I6) @[@@@@ @D@@@@ 1005 FORMAT ('0FILES:',I6,', FIXEDFC )@@G@@ TRACKS:',I6, @E@@@@ *', V-OPT TRACKS:',I6,', SECURE BACKUP BLFD )@@G@@OCKS:',I6,/,@C@@@@ *16X,'REMOV TRACKS:',I6,', G-OPT TRACKS:',@ @@@@FE )@@G@@ *I6,A1,' UNLOADED:',I6) @[@@@@ @C@@@@ 1006 FORMAT(1H1,'SUMMARFF )@@G@@Y BY BILLING AREA: ', @E@@@@ *3X,'FILES (F) TRACKS (R) V/G-OPFG )@@G@@T SEC TAPES'/) @[@@@@ @A@@@@ 1007 FORMAT(1H0,4A6,4I9,3X,I9) FH )@@G@@@[@@@@ @ @@@@ 1008 FORMAT ('0END GBILL') @[@@@@ @ @@@@ 2000 FI )@@G@@FORMAT(4A6,I4,10I5,'GB')@[@@@@ @]@@@@ END ___ F1RE BACKUP BLFJ )@@G@@)@@@F]S@@@@@)@#@C@)@]@C@)[G@C@)@#@IS)@?@C@IN HOU@@@@@[@@@@@@@@@@@@@@@@@@FK )@@G@@/,0@@@AA@@@F)@![S@@@@@@@ /AMC ORNELLROCK/C ER L CENTMEDICAFL )@@G@@ SE AB@@@F)@8[S@@@@@@@,G) ACT (T,USTUDENCH RESEARSORED FM )@@G@@UNSPON SEARCHRED RESPONSOAC@@@F)[#[C@@@@@@@)@[@E@@@@@@@ FN )@@G@@ OTHER EXEC CTS AD@@@F)@][F#L#L#L#L] #@K3@@@@@FO )@@G@@;)@@@PC@@@@]@[=@@@@@@@[H/,0@@@ @@[X4 @@[X3 @@[X2 @@[X1AE@@@F)@F[M[@^G^G1FP )@@G@@#H#G@@C@@@@][^0@@]+8);__C^)@@][@@@@#C/@@@[/K@@@L*@@@@GG/@__";C@@@@],@@@@^5/,0@@@^@K@^5N8L@@S[@@@@]@]=@],AG )@@G@@@@@@]3BY@ D2)^8[F#O->K^E%@-)K5CU=G@@R@)@]2[@@@@]"C@@@]@]&@],@@@@^//,0@@@AH )@@G@@^@K@^/N8L@@S[@@@@[BZ@ D2) [[F#I)CK4G]A(@K0CS^G@@@@@@]J@@@@]R@@@@]R@@@@ AAI )@@G@@@@@@@@@@@@@@/,0@@@^@K@ AN8M@@ZCA@ D2) E[F#@-)[#E]@-)@@@@@@@@R@0@]K/K@@ =AJ )@@G@@1@@@@I*@@@@IH@)@@HC/)@@]G/@@@[C@@@]1@]$@],CB@ D2) N[F#@]AX;O)CS^G'@@@@@@AK )@@G@@^@K@ ZN8M@@ZR@)@]28L@@ Q[@#\_"C@[)@YN.@@@]Q@K@@GR@K@]LCC@ D2) W[F]A-[F;I.$K2*TL#@-QK0CS@@@]0@],@@@@]2/,0@@@[@@@]2"@@@@I"C-@@#C@-@@#"C[J_"AN )@@G@@C@[J_"CE@ D2) ,[F;I-$K@^G]AX@@@@@@@@^@K@ 9N8W@[A[@@@]2T/@@@#C@@@@@R@0@@@AO )@@G@@/K@@F_[@[@@*"^[J_"CF@ D2) 7[F#@-^K^G]AX#@-$K^G8@N8M@[A^@K@A#N8M@@ZR@)@]1AP )@@G@@[@#@@*@]2@],@@@@ 9/,0@@@[@@@]1CG@ D2)A@[F@K[F#I)CK4GU@)CS^G]A@@@@@@@]J@@@@]R@@@@]R@@@@A%@@@@A(@@@@[.AV )@@G@@/,0@@@^@K@A(N8N@@(CL@ D2)A,[F#@-$K^G'@-#K1*]@@@@@@@@A6@@@@A5@@@@[./,0@@@AW )@@G@@^@K@A5N8N@[P^@K@A6N8N@@.@]"@],CM@ D2)A7[F#@-)K0CS[#I-$K3*T@@"G@@@ "C]@@*AX )@@G@@"C]@[AC@]@[AR@)@@@@]_@],@@@@]J@@@@]R@@@@]RCN@ D2)B@[F#O-)K3).$[#I@@@@@@@AY )@@G@@N8W@@.T/@@@#C@@@@@[@+J_"E@)@@I"G)@@GC@+@@*"^@@]T[@@@@@CO@ D2)BD[F@K3*]A[AZ )@@G@@]K)C]A[#@@@@[@@@]2@#]@],@@@@BJ@@@@BI/,0@@@[@@@]1^@K@BIN8W@@Z^@K@BJCP@ D2BA )@@G@@)BM[F]I-)K0CU=E+A(#@CS@@C@)@]T"C@@@G@##@],@@@@@#/,0@@@[@@@@#@#]@],@@@@]2BB )@@G@@/,0@@@CQ@ D2)BV[F#O-%^G]A[]?-)K0CT0@[@]@@M@##@],@@@@]2/,0@@@]@@@]2"^@@]QBC )@@G@@"C@@@I"C)@@@"^)@@@CR@ D2)B=[F#@-$K^G'@-$K^C%@@@@@@@@B?/,0@@@^@K@B,N8L@[6BD )@@G@@^@K@B?N8L@@Z^@K@B!N8L@@.R@K@]1CS@ D2)B![F@K^G]AX@K3*]^T@@@@@@@@@B5/,0@@@BE )@@G@@^@K@B5N8L@[6^@K@B6N8L@[6@#^@],@@@@B,@@@@B!CT@ D2)B6[F@K0CT4G'AX#I-)B?8@@BF )@@G@@"C+J_"E@)@@I"^)@]Q"C+@@MC@+@@M"C]@@*C@]@@M@# @],@@@@B6CU@ D2)B_[EK5CQ^HMBG )@@G@@A[#O-%K0CT0@"G+@@MC@)@]Q[@@@@["C@@@@@#B@],@@@@@#/,0@@@[@)@@@"G)@@GCV@ D2BH )@@G@@)CC[F#O-%K0CS^G]AX@^@@@@/K@@CS*@@@@G/C@@CL"^#@@MR@0@]1C@@@]QA@)@]1]@)@@]BI )@@G@@"^)@@@CW@ D2)CL[F]M-%K5CS^G]AX@^E8@@/,0@@@R@)@@@/K@@CY[@[@@;R@K@]1@#F@],BJ )@@G@@@@@@@]@@@@@[/,0@@@CX@ D2)CU[F#O-%K0CT1#EC]@@@@@@/K@@GH/K@@F_*@@@@GH@@@@IBK )@@G@@C/@@@][@]@@;@#H@],@@@@@]@@@@@[CY@ D2)C<[EK2*]AP@K-CS^G]@@@@@@@@@C:@@@@]QBL )@@G@@@@@@]J/,0@@@^@K@C?N8N@@K^@K@C:N8N@@MR@0@@@CZ@ D2)C?[F@K5CS^CUAH#O-)K0CS@BM )@@G@@@@@@]R@@@@]R@@@@@G@@@@@@@@@@]A/,0@@@@#L@],@@@@@@@@@@C?DA@ D2)C5[F#@-)K0CBN )@@G@@S^G]A@K5CS@@C[@@@G[@)@@@"@)@@G"C)@@HC@)@@H"C@@@GC@@@@G@#M@],@@@@]JDB@ D2BO )@@G@@)C"[F#@-%K3*]A[]%)CS^G*@N8N@@I@#P@],@@@@D^/,0@@@[@@@]1^@K@D^N8N@[0[[@@@[BP )@@G@@"H@@@HDC@ D2)DB[F@K0CPO[#@-)K5CS^HK@"C)@@[C@)@@I]@@@@]"C@@]2@#P@],@@@@DEBQ )@@G@@/,0@@@[@@@]2^@K@DEDD@ D2)DK[##O-)K5CS^HMA(#@-%@@@@@@@@[@)@@JC@)@@G[@@@@EBR )@@G@@"G@@@@"C@@@I"C@@@]C@@@@G[@)@@ DE@ D2)DS[##@-)K0CU=HMA(#O-)@@@@@@@@C@@@@IBS )@@G@@]@)@@T"C)@@[C@)@@E]@@@@O"G@@@H"^@@]QC@@@]1DF@ D2)D)[##O-%K5CU=G]A(#@-%@@BT )@@G@@@@@@@@[@)@@PD@)@@G[@@@@KC@@@@H[@)@@F"G)@@[C@)@@E[@@@@ADG@ D2)D*[##O-%K5CBU )@@G@@S^HMA(#O-)@@@@@@@@C@)@@I[@@@@GD@@@@]]@)@@B"G)@@HC@)@@@[@@@@UD@@@@EDH@ D2BV )@@G@@)D0[F#O-%K5CU=HMA*@@@@@@G/@@@[T/@@@#C@@@@@[@)@@V"C)@@[C@)@@][@@@@QD@@@@ BW )@@G@@[@)@@LDI@ D2)D9[N#@CS[;O)@C@@@8L@@D/]@@@@['O@@@[C/@@@S8LK@D. @[\_"N.K@@^BX )@@G@@[@@@]1N.@@@[R@K@]UDJ@ D2)E#[##@-%K5CS^HMA(#O-%@@@@@@@@C@@@@H]@)@@I[@)@@WBY )@@G@@"G)@@@C@)@@G]@@@@H"G@@@@C@@@@HDK@ D2)EF[F#O-%K3*] -@K0CS@@@@"G)@@GC@)@@IBZ )@@G@@@#3@],@@@@EK/,0@@@^@K@EKN8N@[0 @@@@@[@@@@XDL@ D2)EO[##O-%K0CS^E2A[#@->@@CA )@@G@@@@@@@@"C#@@ @#4@],@@@@]2/,0@@@[@)@]2"@)@]Q"C)@@^]@)@@^DM@ D2)EW[F#O-OK2*CB )@@G@@S^HMAX@K%C@@@@@@E=/,0@@@^@K@E=N8N@[0]@@@@]@#5@],@@@@@J/,0@@@[@@@@[DN@ D2CC )@@G@@)E>[##@-)K%*TOG]A[#O-#@@@@@@@@/,0@@@[@@@@#"C@@]2@#6@],@@@@@J/,0@@@[@@@]2CD )@@G@@@#6@],DO@ D2)E![##O-%K0CS^G]A[#@-)@@@@@@@@R@)@]K@#7@],@@@@]J@@@@]V@@@@]VCE )@@G@@@@@@@@@@@@@@@@@@@ DP@ D2)E5[F#@-)B?]AX@K=*S^G@@@@@@@@^@@@@@#/,0@@@8L@@E8CF )@@G@@[@[)@*C@]\_"N.@@@]Q@K@]1R@K@]LDQ@ D2)E"[##@-$K:CT^G]AX#Q-)@@@@@@@@[@@@]1CG )@@G@@"G@@@^"C#@@Z@#.@],@@@@@ /,0@@@[@#@@X@#.@],DR@ D2)FA[#]2-)K0CSB?'AX;I-)@@CH )@@G@@@@@@@@"^)@]Q"G*DD )@@G@@S^HUA[#@-$@@R@0@@@[@]@@[@^V@],@@@@]2@@@@@^@@@@]X/,0@@@[@@@]2"^]@@;EL@ D2DE )@@G@@)H;[F#I-$K0]A(;I.$Y3*T@@C[@@@ "C@@@@@@@@@@@@@X/,0@@@[@@@]1"C@@]1@^'@],EB )@@G@@@@@@@Y/,0@@@[@@@]1FF@ D2)K:[F#@-)K0CP^G'A[#@-)@@"G)@@GC@)@]1"C@@]2@^'@],EC )@@G@@@@@@@6/,0@@@[@@@]1"^@@]1@^'@],FG@ D2)K4[F#O-OK2*S^G]A@^HK@@@C@)@@@"G@@@IED )@@G@@"C@@@G"C)@]2C@)@]2@^;@],@@@@@Y/,0@@@[@)@@@FH@ D2)K.@N#O@@@@@)[;@T@@@@@@@EE )@@G@@)]#@L#I@@@@@@@@@@@@]@@@6SDEC CLASS5$$$@]]"^)@@G"C)@@@FI@ D2)["@C@)] @L#EF )@@G@@I@@@@@)[_@C@)]B@L#E@@@@@@@@@@@@@@@@@@]@@@XSEA @@@@@@@]@@@7SRA FJ@ D2EG )@@G@@)]@@C@)]D@L#E@@@@@)][@C@)]F@L#O@@@@@@@@@@@@@@@@@@]@@@@TEMP1 @@@@@@@]@@@YEH )@@G@@CLAT FK@ D2)]]@C@)]H@L#O@@@@@)K_@<#O-VK0CS@@@@@@@@@[;@@[@])/,0@@@]@)@@[EI )@@G@@@@@@@@@]@@@[TEMP2 FL@ D2)L#[F#@-%[@K*CS^G]A@@@@@@ ]@],@@@@]-@@@@@J/,0@@@EJ )@@G@@/K@@LI0@@@@G*@@@@GD@@@@[@^.@],FM@ D2)LG[F]8-)^G@-)K%CT4G@@@@@ @],@@@@@7EK )@@G@@/,0@@@A@0@@RN.@@@[R@K@]ER )@@G@@C@@@@@ @@@@I*@@@@G/G@@MD"^]@@^C/)@@["C@@]=FT@ D2)MG[N#O)@C@C@@@@@@C/@@@[ES )@@G@@8L@@M[O/K@@[P/)@@[/=0@MY+@)@@K @@@@K*@@@@G/C@@MK"^[@@[FU@ D2)MQ[F#@-%K5@ET )@@G@@)]A@@@@@@@@@R@0@@@[@)@@TC/)@@]/K@@MY1@@@@I*@@@@I"^)@@#C@)@@][@@@@TFV@ D2EU )@@G@@)MZ[F#E)CTO[]^-)K0C]@@@@@@@@M$@@@@M&@@@@]Q@@@@]J/,0@@@^@K@M$N8N@@K^@K@M&EV )@@G@@N8N@@MFW@ D2)M*[F#@-)[#@CS^G]^G@@@@@/,0@@@[@)@]1[@@@]2T/)@@#C@)@@TT/@@@#EW )@@G@@C@@@@@@ Q@],@@@@@@FX@ D2)M1[##A-)K0CS^G]A[#@-)@@@@@@@@R@K@]2@ R@],@@@@]JEX )@@G@@@@@@]R@@@@]R@@@@@G@@@@@@@@@@]AFY@ D2)M9[F#I)CS^HM@- K^G]@@@@@@@@N[@@@@@GEY )@@G@@@@@@M_/,0@@@^@K@M_N8M@@AR@)@]1^@K@N[N8L@[/FZ@ D2)N][F#@-$K^G'@-AK^[#@@@@EZ )@@G@@@ T@],@@@@ND@@@@NC/,0@@@^@K@NCN8L@[/^@K@NDN8L@[/@ S@],GA@ D2)NF[F#I)CT4[FA )@@G@@]A-@],@@@@@@@@@@OCFJ )@@G@@/,0@@@GI@ D2)OK[##O-)K0CMOG]A[#@-$@@@@@@@@[@#@@[@ >@],@@@@]2@@@@]4/,0@@@FK )@@G@@[@@@]4@ >@],@@@@@MGJ@ D2I[-K8@I[-K8@ILLS@IL>LS@IL>LS@I[%L*@I[%L*@I[%L*@GP )@@G@@H-L)@IL>L)@IL>L)@H9&LS@H9&LS@H9&LS@GS )@@G@@I[L)@I[>L)@I[>L)@HL )@@G@@IL=MK@IL=MK@IL=MK@H9>MC@H9>MC@H9>MC@H9+L0@H9+L0@H9+L0@I[>M@@I[>M@@I[>M@@HM )@@G@@I[>MC@I[>MC@I[>MC@IL*M@@IL*M@@IL*M@@I1$L8@I1$L8@I1$L8@IL&L8@IL&L8@IL&L8@HN )@@G@@I1*M)@I1*M)@I1*M)@IT(M@@IT(M@@IT(M@@IT(LS@IT(LS@IT(LS@ILLC@IL>LC@IL>LC@I1%L)@I1%L)@I1%L)@HP )@@G@@JL1L*@JL1L*@JL1L*@I-(LC@I-(LC@I-(LC@IT>L0@IT>L0@IT>L0@H1L*@H9>L*@H9>L*@I[K)@H1>K)@H1>K)@HTL0@IL>L0@IL>L0@HL)LK@HL)LK@HL)LK@JH )@@G@@G()K0@G()K0@G()K0@G(TK0@G(TK0@G(TK0@G(WK8@G(WK8@G(WK8@H1YL)@H1YL)@H1YL)@JI )@@G@@IT*L0@IT*L0@IT*L0@I[*L0@I[*L0@I[*L0@I[>L)@I[>L)@I[>L)@I[LS@I[>LS@I[>LS@H9L@@I[>L@@I[>L@@H--L8@H--L8@H--L8@JK )@@G@@IL-MK@IL-MK@IL-MK@H9MC@IL>MC@IL>MC@IL=M*@IL=M*@IL=M*@JQ )@@G@@IT=NC@IT=NC@IT=NC@HTYM)@HTYM)@HTYM)@HL)M)@HL)M)@HL)M)@H1YL0@H1YL0@H1YL0@JR )@@G@@I[L)@I[>L)@I[>L)@KD )@@G@@IL=MK@IL=MK@IL=MK@H9>MC@H9>MC@H9>MC@H9+L0@H9+L0@H9+L0@I[>M@@I[>M@@I[>M@@KE )@@G@@I[>MC@I[>MC@I[>MC@IL*M@@IL*M@@IL*M@@I1$L8@I1$L8@I1$L8@IL&L8@IL&L8@IL&L8@KF )@@G@@I1*M)@I1*M)@I1*M)@IT(M@@IT(M@@IT(M@@IT(LS@IT(LS@IT(LS@ILLC@IL>LC@IL>LC@I1%L)@I1%L)@I1%L)@KH )@@G@@JL1L*@JL1L*@JL1L*@I-(LC@I-(LC@I-(LC@IT>L0@IT>L0@IT>L0@H1L*@H9>L*@H9>L*@I[K)@H1>K)@H1>K)@HTL0@IL>L0@IL>L0@HL)LK@HL)LK@HL)LK@LZ )@@G@@G()K0@G()K0@G()K0@G(TK0@G(TK0@G(TK0@G(WK8@G(WK8@G(WK8@H1YL)@H1YL)@H1YL)@MA )@@G@@IT*L0@IT*L0@IT*L0@I[*L0@I[*L0@I[*L0@I[>L)@I[>L)@I[>L)@I[LS@I[>LS@I[>LS@H9L@@I[>L@@I[>L@@H--L8@H--L8@H--L8@MC )@@G@@IL-MK@IL-MK@IL-MK@H9MC@IL>MC@IL>MC@IL=M*@IL=M*@IL=M*@MI )@@G@@IT=NC@IT=NC@IT=NC@HTYM)@HTYM)@HTYM)@HL)M)@HL)M)@HL)M)@H1YL0@H1YL0@H1YL0@MJ )@@G@@I[L)@I[>L)@I[>L)@MV )@@G@@IL=MK@IL=MK@IL=MK@H9>MC@H9>MC@H9>MC@H9+L0@H9+L0@H9+L0@I[>M@@I[>M@@I[>M@@MW )@@G@@I[>MC@I[>MC@I[>MC@IL*M@@IL*M@@IL*M@@I1$L8@I1$L8@I1$L8@IL&L8@IL&L8@IL&L8@MX )@@G@@I1*M)@I1*M)@I1*M)@IT(M@@IT(M@@IT(M@@IT(LS@IT(LS@IT(LS@ILLC@IL>LC@IL>LC@I1%L)@I1%L)@I1%L)@MZ )@@G@@JL1L*@JL1L*@JL1L*@I-(LC@I-(LC@I-(LC@IT>L0@IT>L0@IT>L0@H1L*@H9>L*@H9>L*@I[K)@H1>K)@H1>K)@HTL0@IL>L0@IL>L0@HL)LK@HL)LK@HL)LK@OR )@@G@@G()K0@G()K0@G()K0@G(TK0@G(TK0@G(TK0@G(WK8@G(WK8@G(WK8@H1YL)@H1YL)@H1YL)@OS )@@G@@IT*L0@IT*L0@IT*L0@I[*L0@I[*L0@I[*L0@I[>L)@I[>L)@I[>L)@I[LS@I[>LS@I[>LS@H9L@@I[>L@@I[>L@@H--L8@H--L8@H--L8@OU )@@G@@IL-MK@IL-MK@IL-MK@H9MC@IL>MC@IL>MC@IL=M*@IL=M*@IL=M*@PA )@@G@@IT=NC@IT=NC@IT=NC@HTYM)@HTYM)@HTYM)@HL)M)@HL)M)@HL)M)@H1YL0@H1YL0@H1YL0@PB )@@G@@I[MC@IT>MC@IT>MC@PL )@@G@@IT>LS@IT>LS@IT>LS@I1=L8@I1=L8@I1=L8@I9*L0@I9*L0@I9*L0@I-(M@@I-(M@@I-(M@@PM )@@G@@I[M@@IL>M@@IL>M@@I9L*@IL>L*@IL>L*@IL>MK@IL>MK@IL>MK@PR )@@G@@I9&L0@I9&L0@I9&L0@I[*M@@I[*M@@I[*M@@HT=KS@HT=KS@HT=KS@H9-KC@H9-KC@H9-KC@PS )@@G@@H--K0@H--K0@H--K0@H-ZK8@H-ZK8@H-ZK8@HLZL*@HLZL*@HLZL*@H9ZL*@H9ZL*@H9ZL*@PT )@@G@@H->L)@H->L)@H->L)@H1>L0@H1>L0@H1>L0@G9WK@@G9WK@@G9WK@@ITLS@I9>LS@I9>LS@IT(LS@IT(LS@IT(LS@HL-L)@HL-L)@HL-L)@G9UKS@G9UKS@G9UKS@RJ )@@G@@GDPJC@GDPJC@GDPJC@GDRJK@GDRJK@GDRJK@GTTKC@GTTKC@GTTKC@HLWLS@HLWLS@HLWLS@RK )@@G@@I-*M@@I-*M@@I-*M@@ITLK@H1>LK@H1>LK@H1>L)@H1>L)@H1>L)@RL )@@G@@H9>LS@H9>LS@H9>LS@I[&LS@I[&LS@I[&LS@IL&M@@IL&M@@IL&M@@I->MC@I->MC@I->MC@RM )@@G@@I[>M)@I[>M)@I[>M)@H1-L0@H1-L0@H1-L0@H1YLS@H1YLS@H1YLS@G1XL8@G1XL8@G1XL8@RN )@@G@@H-YL0@H-YL0@H-YL0@H-)L*@H-)L*@H-)L*@H--LS@H--LS@H--LS@HLYL0@HLYL0@HLYL0@RO )@@G@@H1)M@@H1)M@@H1)M@@I[YM@@I[YM@@I[YM@@H9-M)@H9-M)@H9-M)@HLXL0@HLXL0@HLXL0@RP )@@G@@H9-L8@H9-L8@H9-L8@H-L0@H1>L0@H1>L0@IL>L0@IL>L0@IL>L0@RU )@@G@@H9>LS@H9>LS@H9>LS@I[)L0@I[)L0@I[)L0@HTUMK@HTUMK@HTUMK@H-WM)@H-WM)@H-WM)@RV )@@G@@G1XL*@G1XL*@G1XL*@G(VLC@G(VLC@G(VLC@HTSL*@HTSL*@HTSL*@HLUL*@HLUL*@HLUL*@RW )@@G@@HTUMC@HTUMC@HTUMC@G1UL8@G1UL8@G1UL8@HDUL*@HDUL*@HDUL*@HDYMK@HDYMK@HDYMK@RX )@@G@@G(ULS@G(ULS@G(ULS@F(PL@@F(PL@@F(PL@@F9PK8@F9PK8@F9PK8@GLWLS@GLWLS@GLWLS@RY )@@G@@GLTKC@GLTKC@GLTKC@G9TK)@G9TK)@G9TK)@G9ULK@G9ULK@G9ULK@G1YL)@G1YL)@G1YL)@RZ )@@G@@Z;_Z8@Z;_Z8@Z;_Z8@J[MC@IT>MC@IT>MC@SD )@@G@@IT>LS@IT>LS@IT>LS@I1=L8@I1=L8@I1=L8@I9*L0@I9*L0@I9*L0@I-(M@@I-(M@@I-(M@@SE )@@G@@I[M@@IL>M@@IL>M@@I9L*@IL>L*@IL>L*@IL>MK@IL>MK@IL>MK@SJ )@@G@@I9&L0@I9&L0@I9&L0@I[*M@@I[*M@@I[*M@@HT=KS@HT=KS@HT=KS@H9-KC@H9-KC@H9-KC@SK )@@G@@H--K0@H--K0@H--K0@H-ZK8@H-ZK8@H-ZK8@HLZL*@HLZL*@HLZL*@H9ZL*@H9ZL*@H9ZL*@SL )@@G@@H->L)@H->L)@H->L)@H1>L0@H1>L0@H1>L0@G9WK@@G9WK@@G9WK@@ITLS@I9>LS@I9>LS@IT(LS@IT(LS@IT(LS@HL-L)@HL-L)@HL-L)@G9UKS@G9UKS@G9UKS@UB )@@G@@GDPJC@GDPJC@GDPJC@GDRJK@GDRJK@GDRJK@GTTKC@GTTKC@GTTKC@HLWLS@HLWLS@HLWLS@UC )@@G@@I-*M@@I-*M@@I-*M@@ITLK@H1>LK@H1>LK@H1>L)@H1>L)@H1>L)@UD )@@G@@H9>LS@H9>LS@H9>LS@I[&LS@I[&LS@I[&LS@IL&M@@IL&M@@IL&M@@I->MC@I->MC@I->MC@UE )@@G@@I[>M)@I[>M)@I[>M)@H1-L0@H1-L0@H1-L0@H1YLS@H1YLS@H1YLS@G1XL8@G1XL8@G1XL8@UF )@@G@@H-YL0@H-YL0@H-YL0@H-)L*@H-)L*@H-)L*@H--LS@H--LS@H--LS@HLYL0@HLYL0@HLYL0@UG )@@G@@H1)M@@H1)M@@H1)M@@I[YM@@I[YM@@I[YM@@H9-M)@H9-M)@H9-M)@HLXL0@HLXL0@HLXL0@UH )@@G@@H9-L8@H9-L8@H9-L8@H-L0@H1>L0@H1>L0@IL>L0@IL>L0@IL>L0@UM )@@G@@H9>LS@H9>LS@H9>LS@I[)L0@I[)L0@I[)L0@HTUMK@HTUMK@HTUMK@H-WM)@H-WM)@H-WM)@UN )@@G@@G1XL*@G1XL*@G1XL*@G(VLC@G(VLC@G(VLC@HTSL*@HTSL*@HTSL*@HLUL*@HLUL*@HLUL*@UO )@@G@@HTUMC@HTUMC@HTUMC@G1UL8@G1UL8@G1UL8@HDUL*@HDUL*@HDUL*@HDYMK@HDYMK@HDYMK@UP )@@G@@G(ULS@G(ULS@G(ULS@F(PL@@F(PL@@F(PL@@F9PK8@F9PK8@F9PK8@GLWLS@GLWLS@GLWLS@UQ )@@G@@GLTKC@GLTKC@GLTKC@G9TK)@G9TK)@G9TK)@G9ULK@G9ULK@G9ULK@G1YL)@G1YL)@G1YL)@UR )@@G@@Z;_Z8@Z;_Z8@Z;_Z8@J[MC@IT>MC@IT>MC@UV )@@G@@IT>LS@IT>LS@IT>LS@I1=L8@I1=L8@I1=L8@I9*L0@I9*L0@I9*L0@I-(M@@I-(M@@I-(M@@UW )@@G@@I[M@@IL>M@@IL>M@@I9L*@IL>L*@IL>L*@IL>MK@IL>MK@IL>MK@VB )@@G@@I9&L0@I9&L0@I9&L0@I[*M@@I[*M@@I[*M@@HT=KS@HT=KS@HT=KS@H9-KC@H9-KC@H9-KC@VC )@@G@@H--K0@H--K0@H--K0@H-ZK8@H-ZK8@H-ZK8@HLZL*@HLZL*@HLZL*@H9ZL*@H9ZL*@H9ZL*@VD )@@G@@H->L)@H->L)@H->L)@H1>L0@H1>L0@H1>L0@G9WK@@G9WK@@G9WK@@IT1@^@@@@*SET C TO [ITEM,B,3,3]-1@#@@@@#MOVE T.,[*C] @[@@@@JS )@@G@@*END @]@@@@#COPIN T. @]@@@@#FREE T. @[@@@@*ELSE @#@@@@*IF [ITEM,B]JT )@@G@@>3 @^@@@@#ASG,A [ITEM,B,4,1] @[@@@@*END @#@@@@*IF [ITEM,B]>2 JU )@@G@@@^@@@@*IF [ITEM,B,3,1]=FILE @ @@@@#COPY,PC [ITEM,B,4,1].,TPF$. @[@@@@JV )@@G@@*ELSE @#@@@@*IF [ITEM,B]=5 @F@@@@#COPY,[ITEM,B,3,1]C [ITEM,B,4,1].[ITJW )@@G@@EM,B,5,1],TPF$.[ITEM,B,2,1] @[@@@@*ELSE @A@@@@*IF [ITEM,B,3,1]=A AND [JX )@@G@@ITEM,B]<4 @D@@@@#COPY,AC SYS$*LIB$.[ITEM,B,2,1],TPF$.[ITEM,B,2,1] JY )@@G@@@[@@@@*ELSE @#@@@@*IF [ITEM,B]>3 @D@@@@#COPY,[ITEM,B,3,1]C [ITEM,B,4,JZ )@@G@@1].[ITEM,B,2,1],TPF$. @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*END KA )@@G@@@[@@@@*END @#@@@@*IF [ITEM,B,2]=2 @^@@@@*IF [ITEM,B,2,2]=NEWS @E@@@@KB )@@G@@#COPY,SC UHMC*NEWS$.[ITEM,B,2,1],TPF$.[ITEM,B,2,1]/NEWS @[@@@@*END KC )@@G@@@[@@@@*END @#@@@@*IF [ITEM,B]>3 @ @@@@*IF NOT [ITEM,B,4,1]=SYS$*LIB$KD )@@G@@@^@@@@#FREE [ITEM,B,4,1]. @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@KE )@@G@@*END @B@@@@*IF [ITEM,B+1,1,1]=FILE OR [*B]=[*END] @[@@@@#PACK @[@@@@KF )@@G@@#PREP @[@@@@#PRT,T@^@@@@#COPY,GM TPF$.,TAPE. @[@@@@#ERS @[@@@@*END KG )@@G@@@[@@@@*LOOP @A@@@@#EDQ,P KURLAND*CANDRUN.RLSCPY @[@@@@ND @[@@@@KH )@@G@@D 99 @G@@@@I @RUN,D RLSCPY,0-0040S,UHMC-RELEASE,20,10 . OUTPUT FORKI )@@G@@ SYSTEMS @C@@@@I @MSG ***** UHMC RELEASE TAPE COPIER ***** @F@@@@KJ )@@G@@I @MSG RELEASE NUMBER [RELEASE,1,1,1] CREATED ON [RELEASE,1,2,1].@^@@@@KK )@@G@@I @MSG [*FILES] FILES. @ @@@@I @ASG,T T,T,[TAPE,1,1,1]N @]@@@@I @ASGKL )@@G@@,T N,T@^@@@@I @COPY,M T.,N.,[*FILES]@[@@@@I @FIN@[@@@@#EOF @A@@@@#EDQ,PKM )@@G@@ KURLAND*CANDRUN.RLSLST @[@@@@ND @[@@@@D 99 @H@@@@I @RUN,D RLSKN )@@G@@LST,0-0040S,UHMC-RELEASE,99,5000 . OUTPUT FOR SYSTEMS-NO DECK @C@@@@KO )@@G@@I @MSG ***** UHMC RELEASE TAPE LISTER ***** @F@@@@I @MSG RELEASE NUMKP )@@G@@BER [RELEASE,1,1,1] CREATED ON [RELEASE,1,2,1].@^@@@@I @MSG [*FILES] FIKQ )@@G@@LES. @ @@@@I @ASG,T T,T,[TAPE,1,1,1]N @#@@@@I @ASG,T FILE @#@@@@KR )@@G@@I @COPY,G T.,FILE.@^@@@@I @ADD FILE.LISTER @[@@@@I @FIN@[@@@@#EOF KS )@@G@@@[@@@@@EOF @[@@@@@EOF @]@@@@@TEST TE/0@ @@@@@START KURLAND*CANDRUN.KT )@@G@@RLSLST@[@@@@@FIN ___ [ITEM,N,1,1]=FILE @#@@@@*SET FN TO FN+1 @[@@@@KU )@@G@@#ERS @G@@@@#HDG,P NYU RELEASE #[RELEASE,1,1,*[@@@@*SDFF*@G@@@@@RUN,AKV )@@G@@ LIBGEN,0-0040S,LIB70,20,100 . **PLEASE FILE UNDER 'SYSTEMS' @[@@@@KW )@@G@@@BOX @]@@@@@ASG,T MSG. @#@@@@@ELT,IL MSG.MSG @#@@@@LATEST LIB MODS: KX )@@G@@@F@@@@1. BUG FIXES: @TDLIB 2.4, @STAT 31.5M, @CONFR 10.1R, @CHGN 5K. KY )@@G@@@E@@@@2. @MFD 6.2 - MAJOR ENHANCEMENTS: SEE NEWS ITEM 'MFD'. @A@@@@KZ )@@G@@3. NEW TEST LEVEL OF SECURE 18. @C@@@@4. OPS - FIXED 'RECOV' FOR LEVLA )@@G@@ELS 31 AND 32. @B@@@@5. INITIAL RELEASE: ASCII FORTRAN (@FTN). @]@@@@LB )@@G@@******** @G@@@@A NEW LEVEL OF @DOC WILL BE PUT IN LIB$ SHORTLY...THE LC )@@G@@CURRENT VERSION @G@@@@WILL BE AVAILABLE AS @DOC2. THIS NAME HAS BEEN LD )@@G@@INCLUDED NOW TO ALLOW @ @@@@FOR EASY TRANSITION LATER. @]@@@@******LE )@@G@@** @D@@@@EVERYTHING OF IMPORTANCE FROM LIB69L IS IN UHMC*LB. @G@@@@LF )@@G@@PLEASE REPORT ANY PROBLEMS TO THE SYSTEMS STAFF, 584-2526. THANK YOU. LG )@@G@@@#@@@@@ELT,I MSG.SGS @A@@@@FILES LIB$1 LIB$2 RUN$ RLIB$1 RLIB$2@A@@@@LH )@@G@@USE 1512 PRODUCING 70Q ON 2729,2730 @]@@@@NO LIB$1 @]@@@@NO RLIB$1 LI )@@G@@@]@@@@NO RLIB$2 @#@@@@NO FLIST RUN$ @#@@@@@ELT,IL MSG.SKEL @C@@@@LJ )@@G@@#HDG [USE,1,3,1] LIBGEN.M,66,9,6. @]@@@@#FREE TPF$. @]@@@@LK )@@G@@*IF [ON] @B@@@@#ASG,T TPF$,[ON,1,1,1]///1000,[ON,1,2,1] @[@@@@*ELSE LL )@@G@@@^@@@@#ASG,T TPF$,F///1000 @[@@@@*END @]@@@@*CLEAR RASG @ @@@@*INCRELM )@@G@@MENT H TO [FILES,1] @]@@@@*IF NOT [NO]@^@@@@#ASG,A [FILES,1,H,1]. LN )@@G@@@]@@@@*SET RASG @[@@@@*ELSE @]@@@@*CLEAR SKIP @C@@@@*IF COLUMN SEARCH LO )@@G@@FROM NO FOR [FILES,1,H,1] @]@@@@*SET SKIP @[@@@@*END @#@@@@*IF SKLP )@@G@@IP IS CLEAR @^@@@@#ASG,A [FILES,1,H,1]. @^@@@@*IF [FILES,1,H,1] = RUN$LQ )@@G@@@]@@@@*SET RASG @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*LOOP @]@@@@LR )@@G@@*EDIT ON @ @@@@#ASG,T IN,T,[USE,1,1,1]N& @#@@@@*IF [USE,1,5] = 2 LS )@@G@@@#@@@@/[USE,1,5,2]R @[@@@@*END @]@@@@*EDIT OFF @ @@@@#ASG,T OUT,LT )@@G@@T,[USE,1,5,1]R @F@@@@#MSG,W THIS RUN ONLY IGNORE 'DONT ERASE' STIKRS LU )@@G@@ON [USE,1,5,1] @D@@@@#MSG,W CHANGE LABEL ON [USE,1,5,1] TO 'LIB[USE,1LV )@@G@@,3,1]'@#@@@@*IF RASG IS SET @ @@@@#ED MSG.MSG,RUN$.LIBLEVEL @#@@@@LW )@@G@@*IF [USE,1,5] = 2 @D@@@@I LIB LEVEL: [USE,1,3,1] [USE,1,5,1], [USE,1,LX )@@G@@5,2] @[@@@@*ELSE @C@@@@I LIB LEVEL: [USE,1,3,1] [USE,1,5,1], NONE LY )@@G@@@[@@@@*END @[@@@@*END @ @@@@*INCREMENT FN TO [FILES,1]-2 @#@@@@*CLEARLZ )@@G@@ COPIED @]@@@@*IF [NO] @C@@@@*IF COLUMN SEARCH FROM NO FOR [FILESMA )@@G@@,1,FN,1] @#@@@@#COPY,M IN,OUT @]@@@@*SET COPIED @[@@@@*END @[@@@@MB )@@G@@*END @^@@@@*IF COPIED IS CLEAR @D@@@@*IF [FILES,1,FN,1] = LIB$1 OR MC )@@G@@[FILES,1,FN,1] = LIB$2 @]@@@@#COPIN IN. @[@@@@*ELSE @#@@@@#COPY,G IN.MD )@@G@@,TPF$.@[@@@@*END @]@@@@*IF [DELETE]@ @@@@*INCREMENT CRD TO [DELETE] ME )@@G@@@B@@@@*IF [DELETE,CRD,3,1] = [FILES,1,FN,1] @C@@@@#DELETE,C[DELETE,CMF )@@G@@RD,1,1] [DELETE,CRD,2,1] @[@@@@*END @[@@@@*LOOP @[@@@@*END @A@@@@MG )@@G@@#COPY,PC [FILES,1,FN,1].,TPF$. @[@@@@#PRT,T@B@@@@*IF [FILES,1,FN,1]MH )@@G@@ = RUN$ AND [FLIST]>0 @]@@@@#FLIST,A @]@@@@#EDQ OUT$$$.@[@@@@BR MI )@@G@@@C@@@@C /***/ [USE,1,3,1] LIBGEN ***/999 @[@@@@#EOF @]@@@@MJ )@@G@@#ADD OUT$$$.@C@@@@#HDG [USE,1,3,1] LIBGEN.M,66,9,6. @[@@@@MK )@@G@@*END @D@@@@*IF [FILES,1,FN,1] = LIB$1 OR [FILES,1,FN,1] = LIB$2 @#@@@@ML )@@G@@#COPOUT ,OUT. @[@@@@*ELSE @[@@@@#PACK @#@@@@#COPY,GM TPF$,OUT@[@@@@MM )@@G@@*END @[@@@@#ERS @[@@@@*END @[@@@@*LOOP @H@@@@*IF COLUMN SEARCH FROM NMN )@@G@@O FOR RLIB$1 AND COLUMN SEARCH FROM NO FOR RLIB$2 @#@@@@#COPY,M IN,OMO )@@G@@UT,2 @[@@@@*ELSE @#@@@@#ASG,A RLIB$FAST @#@@@@#ASG,A RLIB$SLOW @]@@@@MP )@@G@@*IF [ON] @C@@@@#ASG,T RLIB$TEMP,[ON,1,1,1]///1000,[ON,1,2,1] @[@@@@MQ )@@G@@*ELSE @ @@@@#ASG,T RLIB$TEMP,F///1000 @[@@@@*END @]@@@@*IF [DELETE]MR )@@G@@@ @@@@*INCREMENT CRD TO [DELETE] @B@@@@*IF NOT COLUMN SEARCH FROM NO MS )@@G@@FOR RLIB$1 @ @@@@*IF [DELETE,CRD,3,1] = RLIB$1 @D@@@@#DELETE,C[DELETE,CMT )@@G@@RD,1,1] RLIB$FAST.[DELETE,CRD,2,1] @[@@@@*END @[@@@@*END @B@@@@*IF NOMU )@@G@@T COLUMN SEARCH FROM NO FOR RLIB$2 @ @@@@*IF [DELETE,CRD,3,1] = RLIB$2 MV )@@G@@@D@@@@#DELETE,C[DELETE,CRD,1,1] RLIB$SLOW.[DELETE,CRD,2,1] @[@@@@*END MW )@@G@@@[@@@@*END @[@@@@*LOOP @[@@@@*END @B@@@@*IF NOT COLUMN SEARCH FROM NO MX )@@G@@FOR RLIB$1 @ @@@@#COPY,PC RLIB$1,RLIB$FAST @#@@@@#PRT,T RLIB$FAST.MY )@@G@@@#@@@@#PACK RLIB$FAST@[@@@@*END @ @@@@#COPY RLIB$FAST,RLIB$TEMP MZ )@@G@@@#@@@@#FREE RLIB$FAST@B@@@@*IF NOT COLUMN SEARCH FROM NO FOR RLIB$2 NA )@@G@@@ @@@@#COPY,PC RLIB$2,RLIB$SLOW @#@@@@#PRT,T RLIB$SLOW.@#@@@@#PACK NB )@@G@@ RLIB$SLOW@[@@@@*END @ @@@@#COPY,PC RLIB$SLOW,RLIB$TEMP @#@@@@#PACK NC )@@G@@ RLIB$TEMP@#@@@@#PREP RLIB$TEMP@F@@@@#KURLAND*PF.EPDUP RLIB$TEMP. ND )@@G@@ . LIST DUPLICATE ENTRY POINTS @#@@@@#ASG,A RLIB$FAST@#@@@@#USE RNE )@@G@@LIB$TAPE,OUT@]@@@@#RLIB$O @[@@@@*END @ @@@@#COPY,GM E8*DUMPLIBS.,OUNF )@@G@@T. @#@@@@#MARK OUT. @E@@@@#MSG,W PLEASE BE SURE [USE,1,5,1] HANG )@@G@@S DONT ERASE STIKRS @#@@@@*IF [USE,1,5] = 2 @]@@@@#TSWAP IN.@F@@@@NH )@@G@@#MSG,W THIS RUN ONLY IGNORE 'DONT ERASE' STIKRS ON [USE,1,5,2] @]@@@@NI )@@G@@#REWIND OUT.@E@@@@#MSG,W PLEASE RE-LABEL [USE,1,5,2] 'LIB[USE,1,3,1] COPNJ )@@G@@Y' @ @@@@#COPY,M OUT,IN,[FILES,1] @ @@@@#COPY,GM E8*DUMPLIBS.,INNK )@@G@@. @]@@@@#MARK IN.@E@@@@#MSG,W PLEASE BE SURE [USE,1,5,2] HAS DONTNL )@@G@@ ERASE STIKRS @[@@@@*END @]@@@@#FREE IN.@]@@@@#FREE OUT.@D@@@@NM )@@G@@#MSG,W PLEASE INFORM SYSTEMS OF ANY PARITY ERRORS. @[@@@@#FIN @#@@@@NN )@@G@@@TEST TE/00/T2 @]@@@@@JUMP CHEK @B@@@@@SSG,EIK MSG.SKEL,,,,,,SGS/1NO )@@G@@,MSG.SGS @]@@@@@JUMP NORM @C@@@@@CHEK:SSG,EIKB MSG.SKEL,,,,,,SGS/1NP )@@G@@,MSG.SGS @]@@@@@NORM:EOF ___ [DELETE,CRD,3,1] = [FILES,1,FN,1] NQ )@@G@@@C@@@@#DELETE,C[DELETE,CRD,1,1] [DELETE,CRD,2,1] @[@@@@*END @[@@@@NR )@@G@@*LOOP @[@@@@*END @A@@@@*[@@@@*SDFF*@G@@@@@RUN,A LIBGEN,0-0040S,LIB71,2NS )@@G@@0,200 . **PLEASE FILE UNDER 'SYSTEMS' @[@@@@@BOX @]@@@@@ASG,T MSG. NT )@@G@@@#@@@@@ELT,IL MSG.MSG @#@@@@LATEST LIB MODS: @B@@@@1. BUG FIXES/ENHANNU )@@G@@CEMENTS: @MFD 6.4C. @G@@@@2. OPS - REVISED 'ST MFD' RUNSTREAM TO TAKNV )@@G@@E ADVANTAGE OF NEW FEATURES. @]@@@@******** @G@@@@UHMC*LB IS BEING UNW )@@G@@PDATED TO CONTAIN ALL IMPORTANT ITEMS FROM LIB 70Q. @G@@@@PLEASE REPORNX )@@G@@T ANY PROBLEMS TO THE SYSTEMS STAFF, 584-2526. THANK YOU. @#@@@@@ELT,INY )@@G@@ MSG.SGS @A@@@@FILES LIB$1 LIB$2 RUN$ RLIB$1 RLIB$2@^@@@@CREATE 71F ONZ )@@G@@N 1512,1513 @#@@@@NO FLIST RUN$ @]@@@@NO RLIB$1 @]@@@@NO RLIB$2 OA )@@G@@@#@@@@DELETE A MFD RUN$ @E@@@@FAST ANSI,ASM,CONFR,CPMD,DISCS,ED,EDN,EDOB )@@G@@Q,ELT,FILES,; @G@@@@FOR,FURPUR,MAP,MFD,PDP,PMD,RALPH,RESUME,SECURE,SOC )@@G@@TAT,SUSPEND,WORKSPACE @#@@@@@ELT,I MSG.SKEL @C@@@@#HDG [CREOD )@@G@@ATE,1,1,1] LIBGEN.M,66,9,6. @]@@@@*CLEAR RASG @ @@@@*INCREMENT H TO [FOE )@@G@@ILES,1] @]@@@@*IF [NO] @C@@@@*IF NOT COLUMN SEARCH FROM NO FOR [FOF )@@G@@ILES,1,H,1] @^@@@@#ASG,A [FILES,1,H,1]. @^@@@@*IF [FILES,1,H,1] = RUN$OG )@@G@@@]@@@@*SET RASG @[@@@@*END @[@@@@*END @[@@@@*ELSE @^@@@@#ASG,A [FILOH )@@G@@ES,1,H,1]. @]@@@@*SET RASG @[@@@@*END @[@@@@*LOOP @#@@@@*IF RASG IS OI )@@G@@SET @ @@@@#ED MSG.MSG,RUN$.LIBLEVEL @^@@@@*IF [CREATE,1,3] = 2 OJ )@@G@@@F@@@@I LIB LEVEL: [CREATE,1,1,1] [CREATE,1,3,1], [CREATE,1,3,2] OK )@@G@@@[@@@@*ELSE @D@@@@I LIB LEVEL: [CREATE,1,1,1] [CREATE,1,3,1], NONE OL )@@G@@@[@@@@*END @[@@@@*END @ @@@@*INCREMENT FN TO [FILES,1]-2 @^@@@@*IF [FOM )@@G@@ILES,1,FN,1]=LIB$1@]@@@@*IF [ON] @C@@@@#ASG,T LIB$1TEMP,[ON,1,1,1]//ON )@@G@@/500,[ON,1,2,1] @C@@@@#ASG,T LIB$2TEMP,[ON,1,1,1]///1000,[ON,1,2,1] OO )@@G@@@[@@@@*ELSE @ @@@@#ASG,T LIB$1TEMP,F///500 @ @@@@#ASG,T LIB$2TEMP,OP )@@G@@F///1000 @[@@@@*END @ @@@@#COPY SYS$*LIB$.,LIB$2TEMP. @ @@@@*INCREOQ )@@G@@MENT C TO [FAST,1,1] @C@@@@#COPY,AC LIB$2TEMP.[FAST,1,1,C],LIB$1TEMOR )@@G@@P. @A@@@@#DELETE,AC LIB$2TEMP.[FAST,1,1,C] @[@@@@*LOOP @#@@@@#PACK OS )@@G@@ LIB$2TEMP.@[@@@@*END @D@@@@*IF [FILES,1,FN,1] = LIB$1 OR [FILES,1,FN,OT )@@G@@1] = LIB$2 @[@@@@*ELSE @]@@@@*IF [ON] @D@@@@#ASG,T [FILES,1,FN,1]TEMOU )@@G@@P,[ON,1,1,1]///1000,[ON,1,2,1]@[@@@@*ELSE @A@@@@#ASG,T [FILES,1,FN,1]TEMOV )@@G@@P,F///1000 @[@@@@*END @C@@@@#COPY SYS$*[FILES,1,FN,1].,[FILES,1,FN,1]OW )@@G@@TEMP. @[@@@@*END @]@@@@*IF [DELETE]@ @@@@*INCREMENT CRD TO [DELETE] OX )@@G@@@B@@@@*IF [DELETE,CRD,3,1] = [FILES,1,FN,1] @F@@@@#DELETE,C[DELETE,COY )@@G@@RD,1,1] [FILES,1,FN,1]TEMP.[DELETE,CRD,2,1] @[@@@@*END @[@@@@*LOOP OZ )@@G@@@[@@@@*END @C@@@@*IF NOT COLUMN SEARCH FROM NO FOR [FILES,1,FN,1]@C@@@@PA )@@G@@#COPY,PC [FILES,1,FN,1].,[FILES,1,FN,1]TEMP. @ @@@@#PRT,T [FILES,1,FPB )@@G@@N,1]TEMP. @D@@@@*IF [FILES,1,FN,1]= LIB$1 OR [FILES,1,FN,1]=LIB$2 PC )@@G@@@[@@@@*ELSE @ @@@@#PACK [FILES,1,FN,1]TEMP. @ @@@@#PREP [FILES,1,FPD )@@G@@N,1]TEMP. @[@@@@*END @B@@@@*IF [FILES,1,FN,1] = RUN$ AND [FLIST]>0 PE )@@G@@@^@@@@#FLIST,A RUN$TEMP. @]@@@@#EDQ OUT$$$.@[@@@@BR @D@@@@C /***PF )@@G@@/ [CREATE,1,1,1] LIBGEN ***/999 @[@@@@#EOF @]@@@@#ADD OPG )@@G@@UT$$$.@C@@@@#HDG [CREATE,1,1,1] LIBGEN.M,66,9,6. @[@@@@*END PH )@@G@@@[@@@@*ELSE @ @@@@#PRT,T [FILES,1,FN,1]TEMP. @[@@@@*END @[@@@@*LOOP PI )@@G@@@H@@@@*IF COLUMN SEARCH FROM NO FOR RLIB$1 AND COLUMN SEARCH FROM NO FORPJ )@@G@@ RLIB$2 @ @@@@#USE RLIB$TEMP,SYS$*RLIB$ @#@@@@#ASG,A RLIB$TEMP PK )@@G@@@[@@@@*ELSE @#@@@@#ASG,A RLIB$FAST @#@@@@#ASG,A RLIB$SLOW @]@@@@*IF [OPL )@@G@@N] @C@@@@#ASG,T RLIB$TEMP,[ON,1,1,1]///1000,[ON,1,2,1] @[@@@@*ELSE PM )@@G@@@ @@@@#ASG,T RLIB$TEMP,F///1000 @[@@@@*END @]@@@@*IF [DELETE]@ @@@@PN )@@G@@*INCREMENT CRD TO [DELETE] @B@@@@*IF NOT COLUMN SEARCH FROM NO FOR RLPO )@@G@@IB$1 @ @@@@*IF [DELETE,CRD,3,1] = RLIB$1 @D@@@@#DELETE,C[DELETE,CRD,1,1PP )@@G@@] RLIB$FAST.[DELETE,CRD,2,1] @[@@@@*END @[@@@@*END @B@@@@*IF NOT COLUPQ )@@G@@MN SEARCH FROM NO FOR RLIB$2 @ @@@@*IF [DELETE,CRD,3,1] = RLIB$2 @D@@@@PR )@@G@@#DELETE,C[DELETE,CRD,1,1] RLIB$SLOW.[DELETE,CRD,2,1] @[@@@@*END @[@@@@PS )@@G@@*END @[@@@@*LOOP @[@@@@*END @B@@@@*IF NOT COLUMN SEARCH FROM NO FOR RLPT )@@G@@IB$1 @ @@@@#COPY,PC RLIB$1,RLIB$FAST @#@@@@#PRT,T RLIB$FAST.@#@@@@PU )@@G@@#PACK RLIB$FAST@[@@@@*END @ @@@@#COPY RLIB$FAST,RLIB$TEMP @#@@@@PV )@@G@@#FREE RLIB$FAST@B@@@@*IF NOT COLUMN SEARCH FROM NO FOR RLIB$2 @ @@@@PW )@@G@@#COPY,PC RLIB$2,RLIB$SLOW @#@@@@#PRT,T RLIB$SLOW.@#@@@@#PACK RLIPX )@@G@@B$SLOW@[@@@@*END @ @@@@#COPY,PC RLIB$SLOW,RLIB$TEMP @#@@@@#PACK RLIPY )@@G@@B$TEMP@#@@@@#PREP RLIB$TEMP@[@@@@*END @F@@@@#KURLAND*PF.EPDUP RLIB$TPZ )@@G@@EMP. . LIST DUPLICATE ENTRY POINTS @#@@@@#ASG,A RLIB$FAST@]@@@@QA )@@G@@*EDIT ON @ @@@@#ASG,T OUT,T,[CREATE,1,3,1]R&@#@@@@*IF [CREATE,1,3]=2QB )@@G@@@#@@@@/[CREATE,1,3,2]R @[@@@@*END @]@@@@*EDIT OFF @F@@@@#MSG THIS QC )@@G@@RUN ONLY IGNORE 'DONT ERASE' STIKRS ON [CREATE,1,3,1] @E@@@@#MSG CHANGQD )@@G@@E LABEL ON [CREATE,1,3,1] TO 'LIB[CREATE,1,1,1]'@#@@@@#USE RLIB$TAPE,OUTQE )@@G@@@ @@@@*INCREMENT A TO [FILES,1]-2 @C@@@@*IF [FILES,1,A,1]=LIB$1 OR [FIQF )@@G@@LES,1,A,1]=LIB$2 @A@@@@#COPOUT [FILES,1,A,1]TEMP.,OUT. @[@@@@*ELSE QG )@@G@@@A@@@@#COPY,GM [FILES,1,A,1]TEMP.,OUT. @[@@@@*END @[@@@@*LOOP @]@@@@QH )@@G@@#RLIB$O @ @@@@#COPY,GM E8*DUMPLIBS.,OUT. @E@@@@#MSG PLEASE BE SQI )@@G@@URE [CREATE,1,3,1] HAS DONT ERASE STIKRS @^@@@@*IF [CREATE,1,3] = 2 QJ )@@G@@@#@@@@#TSWAP OUT. @F@@@@#MSG THIS RUN ONLY IGNORE 'DONT ERASE' SQK )@@G@@TIKRS ON [CREATE,1,3,2] @F@@@@#MSG PLEASE RE-LABEL [CREATE,1,3,2] 'LIBQL )@@G@@[CREATE,1,1,1] COPY' @ @@@@*INCREMENT A TO [FILES,1]-2 @C@@@@*IF [FQM )@@G@@ILES,1,A,1]=LIB$1 OR [FILES,1,A,1]=LIB$2 @A@@@@#COPOUT [FILES,1,A,1]QN )@@G@@TEMP.,OUT. @[@@@@*ELSE @A@@@@#COPY,GM [FILES,1,A,1]TEMP.,OUT. @[@@@@QO )@@G@@*END @[@@@@*LOOP @]@@@@#RLIB$O @ @@@@#COPY,GM E8*DUMPLIBS.,OUT. QP )@@G@@@E@@@@#MSG PLEASE BE SURE [CREATE,1,3,2] HAS DONT ERASE STIKRS @[@@@@QQ )@@G@@*END @]@@@@#FREE OUT.@D@@@@#MSG,W PLEASE INFORM SYSTEMS OF ANY PARITYQR )@@G@@ ERRORS. @[@@@@#FIN @#@@@@@TEST TE/00/T2 @]@@@@@JUMP CHEK @B@@@@QS )@@G@@@SSG,EIK MSG.SKEL,,,,,,SGS/1,MSG.SGS @]@@@@@JUMP NORM @C@@@@@CHEK:QT )@@G@@SSG,EIKB MSG.SKEL,,,,,,SGS/1,MSG.SGS @]@@@@@NORM:FIN ___B$1 AND CQU )@@G@@OLUMN SEARCH FROM NO FOR RLIB$2 @ @@@@#USE RLIB$TEMP,SYS$*RLIB$ QV )@@G@@*[@@@@*SDFF*@C@@@@ NYU LIBGEN PROCEDURES @#@@@@QW )@@G@@4LIB TAPE FORMAT @E@@@@ WE KEEP OUR LIBRARY AND BOOT TAPES SEPARATQX )@@G@@E, SINCE WE @E@@@@ OFTEN CHANGE LIBRARIES WHILE KEEPING THE SAME EXEC INQY )@@G@@, OR @F@@@@ VICE VERSA. ON A SWITCH 4 BOOT, WE CAN SWITCH LOGICAL DRIVQZ )@@G@@E @C@@@@ ZERO TO THE LIBRARY TAPE AT 'ENTER DATE' TIME. @[@@@@SPACE RA )@@G@@@B@@@@ OUR LIBRARY TAPE CONTAINS SIX FILES:@[@@@@SPACE @C@@@@ RB )@@G@@ 1. LIB$1 (FAST LIB$, IN COPIN FORMAT) @D@@@@ 2. LIB$2 (SLOW LIRC )@@G@@B$, ALSO IN COPIN FORMAT) @F@@@@ 3. RUN$ (IN COPY,G FORMAT - RD )@@G@@EXEC CHANGES WERE NEEDED) @C@@@@ 4. RLIB$1 (CREATED BY RLIB$O RE )@@G@@- SEE BELOW)@C@@@@ 5. RLIB$2 (CREATED BY RLIB$O - SEE BELOW)@E@@@@RF )@@G@@ 6. E8*DUMPLIBS (@PANIC FUNCTION LIBRARY, COPY,G). @[@@@@SPACE RG )@@G@@@F@@@@ ON LEVEL 27 OR EARLIER, NOTHING SPECIAL NEEDED TO BE DONE RH )@@G@@@F@@@@ TO KEEP THE LIB AND BOOT TAPES SEPARATE: AS MENTIONED ABOVE, IT RI )@@G@@@F@@@@ WAS ONLY NECESSARY TO SWITCH THE PLUGS AT 'ENTER DATE' TIME. RJ )@@G@@@F@@@@ HOWEVER, THINGS BECOME A BIT MORE DIFFICULT ON LEVEL 31, SINCE RK )@@G@@@F@@@@ AN EXTRA FILE EXISTS ON THE BOOT TAPE (THE COLLECTOR DIAGNOSTIC RL )@@G@@@G@@@@ FILE FOR THE PANIC DUMP ANALYZER'S USE). ON A NO-SWITCH TAPE BOORM )@@G@@T, @F@@@@ THIS PROVIDES NO PROBLEM, SINCE THE BOOT TAPE IS STILL UP, RN )@@G@@BUT ON@B@@@@ A SWITCH 4 BOOT, THE FOLLOWING HAPPENS: @[@@@@SPACE @E@@@@RO )@@G@@ 1. THE DIAGNOSTIC FILE AT POSITION 2 IS SKIPPED. @B@@@@ RP )@@G@@ 2. THE LIBRARIES ARE COPIED IN. @F@@@@ 3. THE SECOND COPY OF TRQ )@@G@@HE DIAGNOSTIC FILE IS COPIED IN. @[@@@@SPACE @F@@@@ WE MODIFIED RR )@@G@@THE ELEMENT INDA TO AVOID SKIPPING THE FIRST @F@@@@ COPY OF THE DIAGNRS )@@G@@OSTIC FILE, SINCE WE ARE ALREADY POSITIONED AT @E@@@@ LIB$1. THE 'SYS'RT )@@G@@ RUNSTREAM IN SYS$*RUN$.BOOTELT WAS THEN @F@@@@ CHANGED TO DO THE FOLLORU )@@G@@WING AFTER THE LIBRARIES ARE READ IN: @[@@@@SPACE @A@@@@ 1. @RRV )@@G@@EWIND,I THE LIB TAPE. @E@@@@ 2. DO A @MSG,W SAYING 'SWITCH BACK RW )@@G@@TO THE BOOT TAPE'.@E@@@@ 3. READ IN THE DIAGNOSTIC FILE FROM THE BRX )@@G@@OOT TAPE. @[@@@@SPACE @F@@@@ NOTE THAT THIS MAKES THE ASSUMPTION RY )@@G@@THAT THE BOOT TAPE HAS @E@@@@ BEEN LEFT POSITIONED WHERE THE BOOT PROCERZ )@@G@@DURE LEFT IT. @^@@@@427/31 COMPATIBILITY @F@@@@ MOST OF OUR SA )@@G@@SYSTEMS PROCESSORS ARE NOW COMPLETELY COMPATIBLE@F@@@@ WITH EITHER LEVELSB )@@G@@ 27 OR LEVEL 31, BUT THE BOOT PROCEDURES HAVE @F@@@@ CHANGED SO MUCH TSC )@@G@@HAT WE HAVE ADDED A NEW ELEMENT, 'BOOT31' TO @G@@@@ SYS$*RUN$ AND CHASD )@@G@@NGED THE EXEC (ELEMENT INDRIV) TO @ADD THAT INSTEAD @G@@@@ OF 'BOOTELTSE )@@G@@' FOR THE TIME BEING, SINCE WE ARE DOING MUCH CROSSBOOTING. @F@@@@ THIS SF )@@G@@ENABLES USE TO USE THE SAME LIBRARIES ON BOTH LEVELS, AND @B@@@@ AVOIDSG )@@G@@S WASTING TIME WITH SWTICH 4 BOOTS. @^@@@@4RUN$ IN @COPY,G FORMAT @G@@@@SH )@@G@@ IT'S NO SECRET THAT @COPIN TAKES AN AWFULLY LONG TIME, AND, IN SI )@@G@@@F@@@@ THE CASE OF RLIB$, THE @PREP CAN TAKE SEVERAL MINUTES. THE EXEC SJ )@@G@@@G@@@@ CHANGE NECESSARY TO ALLOW THE RUN$ FILE TO BE IN @COPY,G FORMAT ISK )@@G@@S @F@@@@ A SIMPLE ONE TO INDRIV. JUST CHANGE THE @COPIN STATEMENT ISL )@@G@@N THE @F@@@@ CANNED RUNSTREAM TO A @COPY,G. CHANGING RLIB$ TO @COPY,G FSM )@@G@@ORMAT,@C@@@@ HOWEVER, IS A DIFFERENT STORY (SEE BELOW). @^@@@@4RLIB$SN )@@G@@ IN @COPY,G FORMAT@F@@@@ FOR LIBRARY GENERATION PURPOSES, WE KEEP OSO )@@G@@UR FAST AND SLOW @F@@@@ RLIB$ FILES SEPARATE, IN FILES CALLED RLIB$FASTSP )@@G@@ AND RLIB$SLOW. @F@@@@ ANY CHANGES TO THE LIBRARIES ARE MADE USING THESQ )@@G@@SE FILES. THE @G@@@@ LIBGEN SKELETON (ELSEWHERE IN THIS FILE) THEN PSR )@@G@@ERFORMS THE FOLLOWING: @[@@@@SPACE @]@@@@COLUMN 7 @F@@@@ 1. RLIB$FSS )@@G@@AST AND RLIB$SLOW ARE @PACK'ED IF THEY WERE CHANGED. @D@@@@ 2. A TEMPST )@@G@@ORARY FILE CALLED RLIB$TEMP IS ASSIGNED. @C@@@@ 3. RLIB$FAST IS @COPYSU )@@G@@'ED INTO RLIB$TEMP. @E@@@@ 4. A @COPY,PC IS PERFORMED FROM RLIB$SLSV )@@G@@OW TO RLIB$TEMP. @B@@@@ 5. RLIB$TEMP IS @PACK'ED AND @PREP'ED. @G@@@@SW )@@G@@ 6. @RLIB$O (A SPECIAL PROCESSOR WE WROTE) IS THEN CALLED TO WRITE SX )@@G@@@E@@@@ THE FILE RLIB$TEMP ONTO THE LIBTAPE IN THE FORM OF TWO@G@@@@SY )@@G@@ @COPY,G COMPATIBLE FILES. THIS IS DONE BY WRITING A STANDARD SZ )@@G@@@G@@@@ COPYG LABEL BLOCK, AND THEN COPYING X TRACKS OF RLIB$TEMP ONTA )@@G@@TO @F@@@@ THE TAPE, WHERE X IS THE CURRENT SIZE OF RLIB$FAST. ATB )@@G@@N EOF @G@@@@ MARK IS THEN WRITTEN, AND THE REST OF RLIB$TEMP IS COPTC )@@G@@IED ONTO @D@@@@ THE TAPE, PRECEDED AGAIN BY A COPYG LABEL BLOCK.TD )@@G@@@[@@@@SPACE @]@@@@COLUMN 2 @E@@@@ THE 'SYS' RUNSTREAM IN RUN$.BOOTELTTE )@@G@@ ALSO HAD TO BE CHANGED.@F@@@@ THE @PREP OF RLIB$ WAS REMOVED, AND THE @TF )@@G@@COPIN'S WERE CHANGED @#@@@@ TO @COPY,G'S. @E@@@@ THE EFFECT OF ALLTG )@@G@@ THIS IS THAT, ON A SWITCH 4 BOOT, RLIB$ @F@@@@ GETS COPIED IN MUCH QUITH )@@G@@CKER, AND DOESN'T HAVE TO BE @PREP'ED. @A@@@@4THE LIBGEN SKELETON ANDTI )@@G@@ PROCEDURES @F@@@@ TWO SEPARATE LIBRARY GENERATION SKELETONS HAVE BTJ )@@G@@EN CREATED. @F@@@@ THE FIRST ONE, CALLED 'LIBGEN', USES THE CURRENT LIBRTK )@@G@@ARY TAPE AS @F@@@@ INPUT. THE SECOND ONE, CALLED 'NEWLIB', USES THE CURTL )@@G@@RENTLY- @F@@@@ CATALOGUED LIBRARY FILES (SYS$*LIB$, SYS$*RLIB$, ETC.TM )@@G@@) AS INPUT. @C@@@@ THE 'LIBGEN' SKELETON WILL BE DESCRIBED FIRST. @#@@@@TN )@@G@@3'LIBGEN' SKELETON@E@@@@ FIVE FILES ARE CREATED, CALLED LIB$1, LIB$TO )@@G@@2, RUN$, @^@@@@ RLIB$1, AND RLIB$2. @F@@@@ THESE FILES SHOULD CONTTP )@@G@@AIN ONLY THE NEW OR UPDATED ITEMS TO BE @^@@@@ ADDED IN THIS LIBRARY. TQ )@@G@@@]@@@@ THE CURRENT@F@@@@ LIBRARY TAPE IS USED AS INPUT: EACH FILE IS COPTR )@@G@@IED INTO TPF$, @F@@@@ THE PROPER FILE FROM THE LIST IS @COPY,PC'D INTTS )@@G@@O TPF$ ALSO, AND @D@@@@ THE RESULTING TPF$ IS COPIED TO THE OUTPUT TAPETT )@@G@@. THE@F@@@@ 'DELETE' SGS MAY BE USED TO SPECIFY ELEMENTS TO BE DELETED,TU )@@G@@ IF @B@@@@ NO NEW ELEMENT WITH THE SAME NAME/VERSION@C@@@@ IS PRESENT TV )@@G@@TO REPLACE IT. ANY FILE WHICH IS @F@@@@ NOT BEING CHANGED MAY BE SPECTW )@@G@@IFIED ON A 'NO' SGS, AND THAT FILE @E@@@@ WILL JUST BE COPIED FROM THE TX )@@G@@INPUT TAPE TO THE OUTPUT TAPE.@D@@@@ LIB$1 AND LIB$2 WILL BE DONE VIA @CTY )@@G@@OPIN: ALL OTHERS @ @@@@ WILL BE DONE VIA @COPY,GM. @[@@@@SPACE @E@@@@TZ )@@G@@ WHEN RUN$ IS BEING DONE, THE SKELETON WILL CREATE THE @D@@@@ 'LIBLUA )@@G@@EVEL' ELEMENT, USING INFORMATION PROVIDED IN THE@A@@@@ RUNSTREAM (SEE @WUB )@@G@@ATLIB, BELOW). @[@@@@SPACE @D@@@@ THE 'FILES' SGS LISTS THE NAMEUC )@@G@@S OF THE FILES @F@@@@ IN WHICH THE NEW ELEMENTS ARE TO BE FOUND, FOR UD )@@G@@EACH FILE ON THE @E@@@@ LIBRARY TAPE, RESPECTIVELY. E8*DUMPLIBS, SINCEUE )@@G@@ IT NEVER @E@@@@ CHANGES, IS JUST COPIED FROM MASS STORAGE TO TAPE AFTUF )@@G@@ER @F@@@@ EVERYTHING ELSE IS DONE. ANY ADDITIONAL FILES WHICH ARE ADUG )@@G@@DED @G@@@@ TO THIS PROCEDURE SHOULD BE PUT BETWEEN THE RUN$ AND RLIB$1UH )@@G@@ FILES, @G@@@@ BECAUSE THE SKELETON TREATS THE RLIB$1 AND RLIB$2 FILUI )@@G@@ES SPECIALLY, @E@@@@ AND ASSUMES THEY ARE THE LAST FILES TO BE OPERAUJ )@@G@@TED UPON. @#@@@@3'NEWLIB' SKELETON@F@@@@ THIS SKELETON USES ONLY OUK )@@G@@NE TAPE AT A TIME, AND DOES NOT @B@@@@ UTILIZE THE CURRENT LIBRARY TUL )@@G@@APE AT ALL. @F@@@@ TEMPORARY FILES WITH THE CURRENT LIBRARY ELEMENTS AREUM )@@G@@ CREATED @F@@@@ FROM THE CURRENT SYS$ LIBRARY FILES. THESE TEMPORARYUN )@@G@@ FILES ARE @F@@@@ THEN UPDATED ACCORDING TO WHAT IS FOUND IN THE FIVE CUO )@@G@@ATALOGUED @F@@@@ FILES CONTAINING NEW OR UPDATED LIBRARY ELEMENTS, AS UP )@@G@@WAS THE CASE@F@@@@ IN THE 'LIBGEN' SKELETON. THE ONLY ADDITIONAL SGS ADUQ )@@G@@DED IN THIS @F@@@@ VERSION OF THE SKELETON IS THE 'FAST' SGS, WHICH SPECUR )@@G@@IFIES THE @G@@@@ ELEMENTS OF LIB$ THAT SHOULD GO IN THE FAST LIB$ FILEUS )@@G@@, CALLED LIB$1. @[@@@@SPACE @F@@@@ FIVE SEPARATE TEMPORARY FILES ARE CUT )@@G@@REATED, SO THAT A TAPE-TO-TAPE@F@@@@ COPY MAY BE ELIMINATED. IF A 'NO' UU )@@G@@SGS IS GIVEN FOR BOTH RLIB$1 @G@@@@ AND RLIB$2, THE CREATION, @PACK, ANUV )@@G@@D @PREP OF RLIB$TEMP IS BYPASSED, @F@@@@ AND A @USE RLIB$TEMP,SYS$*RLIUW )@@G@@B$ IS DONE INSTEAD, ALLOWING @RLIB$O@C@@@@ TO BE USED WHILE ELIMINATING UX )@@G@@MUCH OVERHEAD. @]@@@@4@EPDUP @G@@@@ THE LIBGEN SKELETONS INCUY )@@G@@LUDE A CALL ON A PROGRAM CALLED @EPDUP, @F@@@@ WHICH SEARCHES A PROGRAUZ )@@G@@M FILE'S ENTRY POINT TABLE FOR DUPLICATE @F@@@@ ENTRIES. IT IS USED ONVA )@@G@@ THE RLIB$TEMP FILE TO CHECK FOR POSSIBLE @]@@@@ ERRORS. @]@@@@4@WATLVB )@@G@@IB @G@@@@ THE @WATLIB PROCESSOR WAS WRITTEN TO LET USERS KEEP UPVC )@@G@@ TO DATE @G@@@@ ON EXACTLY WHAT LIBRARY CHANGES HAVE BEEN MADE, AND WVD )@@G@@HAT THE CURRENT @]@@@@ LIBRARY IS.@[@@@@SPACE @E@@@@ WHEN @WATLIBVE )@@G@@ IS CALLED BY A USER, IT DOES AN ER ID$ @E@@@@ (RESULT OF ANOTHER NYU VF )@@G@@SYSTEMS DEPT BRAINSTORM) TO PICK UP @E@@@@ THE EXEC LEVEL. IT THEN GETSVG )@@G@@ THE REST OF ITS INFORMATION @F@@@@ FROM SYS$*RUN$.LIBLEVEL. THIS ELEMVH )@@G@@ENT IS CREATED BY THE LIBGEN @F@@@@ PROCEDURE. THE FIRST LINE CONTAINSVI )@@G@@ THE LIBRARY LEVEL NUMBER, AND@F@@@@ THE LIB TAPE NUMBERS. (THE LIB TAPVJ )@@G@@E NUMBERS ARE NOT PRINTED OUT @F@@@@ BY @WATLIB: THEY ARE THERE FOR @WAVK )@@G@@TLIB TO USE WHEN CALLED BY THE@G@@@@ 'SYS' RUN DURING A BOOT. AT THAT TVL )@@G@@IME, THE LIBLEVEL AND TAPE NUMBERS @F@@@@ ARE GIVEN TO THE EXEC THROUGHVM )@@G@@ ER ID$ SO THE 'C ID' KEYIN CAN @G@@@@ DISPLAY THEM.) SYS$*RUN$.LIBVN )@@G@@LEVEL ALSO CONTAINS A LIST OF ALL THE @G@@@@ CHANGES IN THE LIBRARY VO )@@G@@THAT MIGHT BE OF INTEREST TO USERS. THEY CAN @B@@@@ GET FURTHER INFORVP )@@G@@MATION USING @NEWS. ___ NEVER @E@@@@ CHANGES, IS JUST COPIED FROM VQ )@@G@@MASS STORAGE TO TAPE AFTER @F@@@@ EVERYTHING ELSE IS DONE. ANY ADDITVR )@@G@@*[@@@@*SDFF*@#@@@@ AXR$ @[@@@@$(0) @F@@@@B 'CSF$ ERVS )@@G@@ROR' . THIS STUFF WILL BE OVER-@G@@@@ + VT )@@G@@ 0D . WRITTEN BY THE I/O SECTION @ @@@@CSFR L VU )@@G@@ A2,A0 @ @@@@ DSL A0,18 @^@@@@ L,VV )@@G@@U A3,5@^@@@@ LSSL A0,6@^@@@@ A,U A0,6VW )@@G@@@^@@@@ LDSL A0,6@ @@@@ JGD A3,$-3 @ @@@@VX )@@G@@ S A0,B+2 @ @@@@ L A1,A2 @^@@@@VY )@@G@@ L,U A3,5@^@@@@ LSSL A0,6@^@@@@ A,VZ )@@G@@U A0,6@^@@@@ LDSL A0,6@ @@@@ S A0,BWA )@@G@@+3 @A@@@@ L A0,(0304,B) @^@@@@ J WB )@@G@@ END @ @@@@PFR L A0,PFW,A2 @^@@@@ J END WC )@@G@@@^@@@@PFPAK 'RUN$ ' @^@@@@ 'LIBLEVEL' @^@@@@ WD )@@G@@ + 0 @A@@@@ + 0,0,1,0,0,0 @#@@@@ WE )@@G@@ ' ' @#@@@@ ' ' @^@@@@ + 0D @^@@@@WF )@@G@@ + 0D @^@@@@PFW EQU $-1 @A@@@@ + WG )@@G@@ P1L+0300,P1 @A@@@@ + P2L+0300,P2 @A@@@@WH )@@G@@ + P3L+0300,P3 @A@@@@P1 'PFS$ NO FIND RETURNWI )@@G@@' @^@@@@P1L EQU $-P1@ @@@@P2 'PFS$ I/O ERROR' WJ )@@G@@@^@@@@P2L EQU $-P2@ @@@@P3 'PFS$ UNDEF FILE' @^@@@@WK )@@G@@P3L EQU $-P3@[@@@@. @#@@@@. BEGIN HERE @[@@@@. WL )@@G@@@ @@@@S L A0,ASG @E@@@@ ER CSF$ WM )@@G@@ . @ASG,A SYS$*RUN$ @C@@@@ JN A0,CSFR WN )@@G@@ . OK? @E@@@@ AND A0,(0100000000000) . ALREADY ASG'WO )@@G@@D? @E@@@@ S A1,ALRASG . IF SO, SET FLAG WP )@@G@@@F@@@@ L,U A0,PFPAK . YES, FIND .LIBLEVEL WQ )@@G@@@C@@@@ ER PFS$ @C@@@@ JNWR )@@G@@Z A2,PFR . OK? @E@@@@ L A1,PFPAK+1WS )@@G@@0 . YES, GET ADDR @E@@@@ S A1,IOPAK+5 WT )@@G@@ . SAVE IN I/O PACKET@F@@@@ L,U A3,B . WU )@@G@@IMAGES WILL START AT B @^@@@@ J IO @ @@@@ DOWV )@@G@@ B+56-$>0 , ; @ @@@@ RES B+56-$ @^@@@@LINSP + WW )@@G@@ 0277@F@@@@INIT + 1 . FIRST-TIME-TWX )@@G@@HROUGH FLAG @^@@@@INM 'EXEC LEVEL:' @^@@@@ + 0D WY )@@G@@@ @@@@A '@ASG,A SYS$*RUN$' @ @@@@ASG + $-A,A WZ )@@G@@@F@@@@ALRASG + 0 . ALREADY-ASSIGNED FLAG XA )@@G@@@^@@@@IOPAK 'RUN$ ' @^@@@@ + 0 @ @@@@ XB )@@G@@ + R$,0,0 @G@@@@ + 56,B . XC )@@G@@OVER-WRITE NO-LONGER-NEEDED @D@@@@ + 0 XD )@@G@@ . STUFF @[@@@@IO . @ @@@@ L,U A0,IOPAK @D@@@@XE )@@G@@ ER IOW$ . READ A CARD @ @@@@ L,XF )@@G@@S1 A0,IOPAK+3@D@@@@ JNZ A0,IOR . I/O OKXG )@@G@@? @G@@@@L1 L,S1 A0,0,A3 . YES, GET CONTROL IXH )@@G@@MAGE CODE @C@@@@ TNE,U A0,077 . EOF? @C@@@@XI )@@G@@ J END . YES @^@@@@ TN XJ )@@G@@ 0,A3@^@@@@ TZ,T2 0,A3@^@@@@ J L2 @D@@@@XK )@@G@@ TNZ INIT . FIRST TIME? @D@@@@ J XL )@@G@@ NINT . NO, SKIP ID$@G@@@@ SZ INITXM )@@G@@ . YES, ZERO FIRST-TIME FLAG @D@@@@ L XN )@@G@@ A0,3,A3 . GET LIBLEVEL@D@@@@ DL A1,4,A3 XO )@@G@@ . AND LIBTAPES@E@@@@ ER ID$ . XP )@@G@@AND DO ER ID$ @F@@@@ DS A1,INM+2 . STORE XQ )@@G@@EXEC LEVEL IN MSG @ @@@@ L A0,LINSP @I@@@@ A,XR )@@G@@U A0,5 . SET UP PRINT$ CONTROL WORD (0304,INM) XS )@@G@@@ @@@@ LXI A0,A0 @ @@@@ LXM,U A0,INM XT )@@G@@@E@@@@ ER PRINT$ . PRINT EXEC LEVEL @ @@@@XU )@@G@@ L,U A0,0100 @F@@@@ S A0,LINSP XV )@@G@@ . RESET FOR SINGLE-SPACING@E@@@@ L,S2 A0,0,A3 XW )@@G@@ . GET WORD COUNT @G@@@@ AN,U A0,2 . XX )@@G@@SUBTRACT 2 FOR CONTROL WORD @^@@@@ J $+2 @[@@@@NINT .XY )@@G@@@E@@@@ L,S2 A0,0,A3 . GET WORD COUNT @E@@@@XZ )@@G@@ A A0,LINSP . SET UP FOR PRINT$ @ @@@@ YA )@@G@@ LSSL A0,18 @G@@@@ A,U A0,1,A3 . YB )@@G@@START WITH FIRST TEXT WORD @D@@@@ ER PRINT$ YC )@@G@@ . PRINT IT @ @@@@ L,U A0,0100 @ @@@@ S YD )@@G@@ A0,LINSP @ @@@@L2 A,S2 A3,0,A3 @^@@@@ A,YE )@@G@@U A3,1@ @@@@ TLE,U A3,B+28 @^@@@@ J YF )@@G@@ L1 @D@@@@ L A0,IOPAK+5 . GET ADDR @D@@@@YG )@@G@@ A,U A0,1 . ADD 1 @E@@@@ S YH )@@G@@ A0,IOPAK+5 . STORE NEW ADDR @ @@@@ AN,U YI )@@G@@ A3,28 @E@@@@ J IO . READ ANOTHERYJ )@@G@@ IMAGE@ @@@@END ER PRINT$ @A@@@@ L A0,(YK )@@G@@'@FREE ') @^@@@@ S A0,A@ @@@@ L A0,AYL )@@G@@SG @E@@@@ TNZ ALRASG . WAS FILE ASG'D? YM )@@G@@@^@@@@ ER CSF$@ @@@@ ER EXIT$ @^@@@@YN )@@G@@IOR DSL A0,3@^@@@@ LSSL A0,3@ @@@@ A,YO )@@G@@U A0,0606 @^@@@@ LDSL A0,3@ @@@@ S,T2 YP )@@G@@ A0,$+4 @A@@@@ L A0,(0302,$+2) @^@@@@ J YQ )@@G@@ END @^@@@@ 'I/O ERROR' @#@@@@ END S ___ YR )@@G@@ A0,3@^@@@@ LSSL A0,3@ @@@@ A,U A0,0606 YS )@@G@@@^@@@@ LDSL @@@@#/@B_@C@^]E^@@@B_^]E@@@^@\@@@@@[@@@@@@@@@@@BYT )@@G@@@@8@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@168-11@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]F^@@@@@___@@@___@@@___YV )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___YW )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___YX )@@G@@CSF$ ERROR @@@@@@@@@@@@R#)@@G;G@@@MR;0@@ ;*@@@AO;@@@A;?@@@A8#0^@BA#@^@]YY )@@G@@R#K@@IR;0@@ ;*@@@AO;@@@A;?@@@AA#@^@#R#@^]B/K@^[7R#I^@-/K@^[7RUN$ YZ )@@G@@LIBLEVEL @@@@@@@@[@@@ @@@@@@@@@@@@@@@@@@@@@@@@@#^^@>@##^@(ZA )@@G@@@##^@?PFS$ NO FIND RETURN PFS$ I/O ERROR PFS$ UNDEF FILE R#@^[^ZB )@@G@@'=@@@J/G@^@^+@@^]CA#K^[ R;@^@Q'=@@[ /^)^@OR#K^@)A#K^[FR;0^@@/K@^[G@@@@]_ZC )@@G@@@@@@@[EXEC LEVEL: @@@@@@@@@@@@@ASG,A SYS$*RUN$ @@#^[[@@@@@@RUN$ ZD )@@G@@@@@@@@@K@@@@@@8^@@@@@@@@R;@^[A'=@@@#R7@^[D/^@^["R7J@@@:8@@@_/K@^[71@J@@@ZE )@@G@@*SJ@@@/K@^[,(@@^@//K@^[$ @@^@/R#J@@#9?Z@@^'=@@MI9*K^@_R#@^@;O;@@@ &#@@@GZF )@@G@@Q;@^@.'=@@@IR;@@[@A#@^@;R3J@@@P;@@@]/K@^[*R3J@@@O#@^@;;*@@@MO;J@@['=@@@IZG )@@G@@R;@@[@A#@^@;O3_@@@O;0@@[?80^@W/K@^[KR#@^[FO;@@@[A#@^[FP;0@@W/K@^[G'=@@@IZH )@@G@@R#@^]DA#@^[[R#@^[^(@@^[ '=@@@J'=@@@D;G@@@#;*@@@#O;@@AA;?@@@#AV@^]AR#@^]EZI )@@G@@/K@^[7I/O ERROR @#^^@@C@@@@@@FREE @#]^] @@@@@@MAIN @@H@@@@@@@@[ZJ )@@G@@@@@@@@@@@@@@@@@@@@R#0@@N@@@@@@@@@@@@@@@@@@G.0@@=@@@@@@@@@@@@@@@@@@/]0^L>ZK )@@G@@@@@@@@@@@@@@@@@@@@R]@^MF@@@@@@@@@@@@@@@@@@R_S@@@@@@@@@@@@@@@@@@@@@/K@^LZZL )@@G@@NYUER$ K@@@@^]"\A^DERU$ K@@@@CD_ #VDWATLIB @@[@@@IU%DWDZM )@@G@@@]F^@@@@@@@@@@@@@@@@@@@@@@[@@]I@@@@@I@@__9@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@#@@@@$(0) AXR$ @^@@@@DEBUG ZO )@@G@@ EQU 0 @^@@@@DIAG EQU 0 @]@@@@ . @^@@@@ZP )@@G@@ . @ RLIB$O @]@@@@ . @G@@@@ . CREATES A TWZQ )@@G@@O PART RLIB$ TAPE FILE WITH FAST RLIB$ FIRST. @]@@@@ . @E@@@@ZR )@@G@@ . -BR 4 JAN 73 @]@@@@ ZS )@@G@@ . @^@@@@FIRST + 0 @^@@@@SECOND + 0 @ @@@@ZT )@@G@@DRD + DREAD$ @A@@@@ 'RLIB$FAST' ZU )@@G@@@A@@@@ + 0340002,DBUF @ @@@@ + 0,0,ZV )@@G@@0 @D@@@@TPKT 'RLIB$TAPE' . TAPE IO PACKET @^@@@@ZW )@@G@@ + 0 @ @@@@ + W$,0,0 @ @@@@ ZX )@@G@@ + 1794,BUFR @E@@@@FPKT 'RLIB$TEMP' . FASTZY )@@G@@RAND IO PACKET @^@@@@ + 0 @ @@@@ + ZZ )@@G@@ R$,0,0 @ @@@@ + 1792,DBUF @F@@@@BUFR + AA )@@G@@ 0 . SECTOR ADDR/TAPE WORD 0 @D@@@@ + AB )@@G@@ 0 . FURPUR FILLER @C@@@@DBUF RES 1792 AC )@@G@@ . A TRACK @#@@@@PRPK 'HEADER'@]@@@@ . @[@@@@$(1) AD )@@G@@@]@@@@RLIB$O* @ @@@@ LA,U A0,DRD @ @@@@ ERAE )@@G@@ MSCON$ @^@@@@ TP A0 @E@@@@ ER AF )@@G@@ ERR$ . BAD MSCON$ STATUS @E@@@@ LA,T2 A1,DAG )@@G@@RD+4 . NO. SECTORS RETURNED @D@@@@ JZ A1,$-2 AH )@@G@@ . SOMETHING WRONG @C@@@@ ANA,U A1,1 . FOR AI )@@G@@JGD @C@@@@ SZ A3 . CLEAR @D@@@@ AJ )@@G@@ LA A0,(1,DBUF) . GRANULE ITEMS @F@@@@ADDIT1 AH AK )@@G@@ A0,(0,2) . GOOD STUFF STARTS AT WORD 2 @E@@@@ LA,U AL )@@G@@ A2,25 . 26 GOOD WORDS MAX @E@@@@ADDIT2 TZ 0,*AAM )@@G@@0 . < 0 IS NO GRANULE @E@@@@ AA,U A3,1 AN )@@G@@ . INC GRANULE COUNT @C@@@@ JGD A2,ADDIT2 AO )@@G@@. INNER LOOP@C@@@@ JGD A1,ADDIT1 . OUTER LOOP@D@@@@AP )@@G@@ . A3 NOW CONTAINS GRAN COUNT OF FAST RLIB$ @D@@@@ . AQ )@@G@@NOW GET HIGHEST GRANULE OF INPUT FILE @ @@@@ DL A0,FAR )@@G@@PKT @E@@@@ DS A0,BUFR . SET FOR FITEM$ CALL AS )@@G@@@A@@@@ LA A0,(10,BUFR) @ @@@@ ER FITEAT )@@G@@M$ @E@@@@ TNZ,S1 BUFR+6 . FACILITIES ASSIGNED? AU )@@G@@@B@@@@ ER ERR$ . NO @D@@@@ LA,H1 AV )@@G@@ A0,BUFR+9 . HIGHEST TRACK @ @@@@ LA,U A8,,A0 AW )@@G@@@ @@@@ MSI,U A8,64 @C@@@@ LA,U A1,1,A0 AX )@@G@@ . INC TO A1 @D@@@@ ANA,U A1,,A3 . MINUS FIRSAY )@@G@@T PASS@ @@@@ SA A3,FIRST @ @@@@ SA A1,SAZ )@@G@@ECOND @ @@@@ DO DEBUG , ER ERR$ @ @@@@ LA,U A0,(BA )@@G@@0) @A@@@@ LA A2,(1,DBUF) @ @@@@ LR,U BB )@@G@@ R1,1792 @E@@@@ BT A2,,*A0 . CLEAR OUT PREV SBC )@@G@@TUFF @E@@@@ LA,XU A2,-64 . INIT FOR SECTOR ADDRS BD )@@G@@@D@@@@ LA,U A6,1794 . TAPE BLOCK SIZE @D@@@@ BE )@@G@@ LA A0,('COPYG ') . FURPUR COMP @E@@@@ SA BF )@@G@@ A0,BUFR . FIRST WRITE IS HEADER @D@@@@ LA,U A0,2BG )@@G@@8 . OF 28 WORDS @E@@@@ SA,H1 A0,TPKT+4 BH )@@G@@. SET INTO IO PACKET @C@@@@ J NEXTIO . AND BI )@@G@@DO IT @D@@@@IOLOOP AA,U A2,64 . INCREMENT AND @ @@@@BJ )@@G@@ TNG A8,A2 @ @@@@ J EXIT1 @C@@@@BK )@@G@@ SA A2,BUFR . STORE IT @A@@@@ DO DIAG BL )@@G@@, L A9,('BLOCK ') @ @@@@ DO DIAG , S A9,PRPK @D@@@@ I$BM )@@G@@OW FPKT . DO IO ON FILE @C@@@@ LA,S1 A5,3BN )@@G@@,A0 . IO STATUS @D@@@@ JZ A5,NEXTIO . GOODBO )@@G@@ STATUS @F@@@@ ANA,U A5,5 . ELSE CHECK FOR UBP )@@G@@NALL. TRACK @D@@@@ JZ A5,IOLOOP . YES - NEXT TRACKBQ )@@G@@@C@@@@ ER ERR$ . NO - ERR @C@@@@NEXTIO I$BR )@@G@@OW TPKT . DO TAPE IO@B@@@@ TZ,S1 3,A0 BS )@@G@@ . OK? @C@@@@ ER ERR$ . NO - ERR @E@@@@BT )@@G@@ SA,H1 A6,TPKT+4 . SET NEXT BLOCK SIZE @B@@@@ BU )@@G@@ DO DIAG , P$RINT (0101,PRPK) @B@@@@ JGD A3,IOLOOP BV )@@G@@ . MORE@E@@@@EXIT1 LA,U A0,WEF$ . WRITE EOF ON TAPBW )@@G@@E @B@@@@ SA,T1 A0,TPKT+3 . SET @C@@@@ I$BX )@@G@@OW TPKT . AND DO IT @D@@@@ TZ,S1 3,A0 BY )@@G@@ . CHECK STATUS @C@@@@ ER ERR$ . ERR BZ )@@G@@IF BAD@C@@@@ DO DIAG , P$RINT (0201,('EOF ')) @D@@@@ CA )@@G@@ JZ A1,EXIT . SECOND PASS? @D@@@@ LA CB )@@G@@ A3,A1 . RESET COUNTER @D@@@@ SZ A1 CC )@@G@@ . MARK SECOND PASS@ @@@@ LA,U A0,W$ @ @@@@ CD )@@G@@ SA,T1 A0,TPKT+3 @A@@@@ DO DIAG , L A9,('HEADER') @ @@@@CE )@@G@@ DO DIAG , S A9,PRPK @D@@@@ J IOLOOP-5 CF )@@G@@. AND CONTINUE @B@@@@EXIT P$RINT (0201,('*DONE*')) @ @@@@CG )@@G@@ ER EXIT$ @C@@@@ END RLIB$O CH )@@G@@. SO LONG! ___8,,A0 @ @@@@ MSI,U ======@@^@@ @@@@@@@@@@@@CI )@@G@@@@ @C@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IOFD#E70-1 @@@@@@CJ )@@G@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@A@@A@@A@@@@@@@@#@@^@@@@ K@@@@@@CK )@@G@@@^@@@]@^@[@[@ @@@]K^@^@) P$RINT PPKT . ECHO RCL )@@G@@EPLY @E@@@@ LA,U A2,2 . FOR MM,DD,YY... CM )@@G@@@H@@@@MAKDT EX @[B@C@)A9@DB@@@___@@N^@@@@C^WN)W@^@N)#>^WV@@@___CN )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___CO )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___C8@^@]'=@@[P0@@@@G'=@@@)CP )@@G@@CSK^@A/@K@C#H8K@@[ @@@@JC@@^WO'K@^WPC8)@@T*@G)@@G80@@[8#)@CF8#K@CD9?@^@GCQ )@@G@@9*@^@LC@@^WQ'=@@@U(4@^@R'=@@@)CC@^@UC'G@@@T'@@[@C8W@@[H8Z@@@[@0^@@[@K^@[CR )@@G@@C8@^WRC@)^WON8K@W@M#?)@@C/)_"_C9)@W]C@@^WS[@@^@LC8@@@W[C@^@F/K@@C2G8)@[@CS )@@G@@?]@@@I/K@@C8[@)^@LR;@^@G'=@@@#C5W@@#/[K@C2H9K@@ /[K@C$'=@@@)R;@^@B'=@@@#CT )@@G@@*4G@@#'=@@@)[D)^@F8#0@C$C8@@@D[W@^@ER;@^@B'=@@@#*4G@@#'=@@@)/@K@D^C@0@@HCU )@@G@@ @@@@HC8@@@C[W@^@E/K@@C+R#@^WU'=@@@I'=@@@D@@@@@@@@@@@@@@@@@KRLIB$FAST CV )@@G@@W@]^@N@@@@@@RLIB$TAPE @@@@@@@C@@@@@W]^@LRLIB$TEMP @@@@@@@K@@@@@W@^@NCW )@@G@@@@@@@@@@@@@@HEADER@@[^@N@@@@@]@@E^@L@@@@@@COPYG *DONE*@][^WT@@@@@@@@@@@@CX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@$MAIN$ @@^@@^@@@@@]@@@#@ @@@@@]ROPT LA,U A0,RMSG CZ )@@G@@ . GET ADDR OF PARAMETERS MSG @F@@@@ SA,H2 A0,TPKT DA )@@G@@ . STORE IN TREERU$ D1<]FERLIB$O IO#D#E A0,TPKT DB )@@G@@@E@@@@ ER TREAD$ . REQUEST PARAMETERS@D@@@@DC )@@G@@ P$RINT PPKT . ECHO R$IBANK @@@@@[$DBANKDD )@@G@@ @@#@@[NDT . PARAMETER FOR SEARCH (3 CHARS)@G@@@@ DE )@@G@@ LR,U R1,RPRL . REPEAT COUNT (TABLE LENGTH) @D@@@@DF )@@G@@@@@@@#@@@[@^@[B@C@@@@@@#)@@@@ @WV^@@ . LOAD INDEX @G@@@@ SEDG )@@G@@,H1 A0,RPR,*X6 . TEST FOR PARAMETERS IN TBL @H@@@@ DH )@@G@@ J SPECER DIRSIZ @@@@@@L PARAMETER GETS SPEC ERR DI )@@G@@@#@@@@/. HEADING ROUTINE@[@@@@. @ @@@@HEAD LA A1,(1,0) DJ )@@G@@@E@@@@ TZ SPT . *[S@@@*SDFF*@F@@@@PARAM DK )@@G@@ R$FILE 'RSZ',12 'KEY',1,12,6,6,1 'FILES','XA','XB' ; @F@@@@ DL )@@G@@ 'CHECK',011,013,031 'FPOC',NXTEP-1 'LPOC',LOOP@ @@@@NSMSG DM )@@G@@ 'NO SPEC FIELD' @ @@@@NSLEN EQU $-NSMSG @^@@@@BSPMSGDN )@@G@@ 'BSP ERROR' @B@@@@BSPLEN EQU $-BSPMSG @ @@@@DO )@@G@@PFMSG 'SPEC IS NOT PF' @ @@@@PFLEN EQU $-PFMSG @^@@@@DP )@@G@@BSPIOM 'BSP IO ERR: '@#@@@@ ' ' @ @@@@BSPIOL EQU DQ )@@G@@ $-BSPIOM @^@@@@ASG '@ASG,AX' @^@@@@FCT '$$--SPK1--$$'DR )@@G@@@^@@@@ RES 32 @A@@@@BUF1 RES 28 DS )@@G@@@^@@@@BSPBUF RES 196 @[@@@@/ @#@@@@ AXR$ @[@@@@DT )@@G@@$(1) @A@@@@START L A0,(28,BUF1) @ @@@@ LMJ DU )@@G@@ X11,RINF$ @^@@@@ J ERR1@^@@@@ L,U A0,1DV )@@G@@@ @@@@ LMJ X11,SELT$ @ @@@@ J NOSPEC DW )@@G@@@ @@@@ DL A0,FCT @ @@@@ LMJ X11,DUSE$ DX )@@G@@@ @@@@ L A0,(4,ASG)@^@@@@ ER CSF$@ @@@@DY )@@G@@ JN A0,ASGBAD @ @@@@ L,U A0,FCT @ @@@@DZ )@@G@@ LMJ 11,RFTI @ @@@@ J BSPERR @A@@@@EA )@@G@@ L A1,(BSPBUF,196) @ @@@@ L,U A0,FCT EB )@@G@@@ @@@@ LMJ X11,RPFEPT@ @@@@ J BSPERR EC )@@G@@@A@@@@ L,H2 A0,BSPBUF+139 @ @@@@ L,U A1,1ED )@@G@@2 @ @@@@ DS A0,BUF1 @ @@@@ LMJ X11,EE )@@G@@SORTF @^@@@@ + BUF1@ @@@@ + BUF1+1 EF )@@G@@@ @@@@ SZ BUF1+1 @ @@@@ SZ BUF1+2 EG )@@G@@@ @@@@ L,U A3,PARAM @ @@@@ J ROPN$ EH )@@G@@@ @@@@ L X4,(1,1) @ @@@@NXTEP L,U A0,FCT EI )@@G@@@ @@@@ L A1,X4 @^@@@@ LXI,U A1,0@ @@@@EJ )@@G@@ LMJ X11,EPTNL @ @@@@ J BSPERR @ @@@@EK )@@G@@ LMJ X11,RREL$ @ @@@@ TLEM X4,BUF1 @ @@@@EL )@@G@@ J NXTEP @ @@@@ J RSORT$ @ @@@@EM )@@G@@LOOP LMJ X11,RRET$ @^@@@@ J EXIT@ @@@@ EN )@@G@@ DL A1,0,A0 @ @@@@ DTE A1,BUF1+1 @^@@@@ EO )@@G@@ J NEW @A@@@@ L A0,(66,BUF1+1) @ @@@@ EP )@@G@@ ER PRINT$ @^@@@@ J LOOP@ @@@@NEW DSEQ )@@G@@ A1,BUF1+1 @^@@@@ J LOOP@B@@@@NOSPEC L ER )@@G@@ A0,(NSLEN+64,NSMSG) @ @@@@ERR ER PRINT$ @ @@@@ ES )@@G@@ ER EABT$ @ @@@@EXIT ER EXIT$ @^@@@@ASGBADET )@@G@@ L,U R2,1@^@@@@ L R3,5@^@@@@ DSL EU )@@G@@ A0,3@^@@@@ SSL A0,3@A@@@@ JGD R3,ASGBAD+EV )@@G@@2 @A@@@@ A A1,('000000') @ @@@@ JGD EW )@@G@@ R2,AB2 @ @@@@ S A1,BUF1+2 @B@@@@ DL EX )@@G@@ A0,('SPEC 1 ASG: ') @ @@@@ DS A0,BUF1 @A@@@@ EY )@@G@@ L A0,(0104,BUF1) @^@@@@ J ERR @ @@@@AB2 EZ )@@G@@ S A1,BUF1+3 @ @@@@ J ASGBAD+1 @B@@@@BSPERRFA )@@G@@ L A1,(BSPLEN+64,BSPMSG) @^@@@@ TNE,U A0,2@B@@@@FB )@@G@@ L A1,(PFLEN+0100,PFMSG) @ @@@@ TG,U A0,1FC )@@G@@28 @ @@@@ J BSPIO @ @@@@ERR1 DSC A0,3FD )@@G@@6 @^@@@@ J ERR @^@@@@BSPIO DSL A1,3@^@@@@FE )@@G@@ LSSL A1,3@^@@@@ LDSL A1,3@ @@@@ A,FF )@@G@@U A1,'00' @A@@@@ S,T1 A1,BSPIOM+2 @B@@@@ FG )@@G@@ L A0,(BSPIOL+64,BSPIOM) @^@@@@ J ERR @ @@@@FH )@@G@@ END START ___ DL A0,FCT @ @@@@ FI )@@G@@ LMJ X11,DUSE$ @ @@@@ L A0,(4,ASG)@^@@@@ FJ )@@G@@======@@^@@ @@@@@@@@@@@@@@ [Y/@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FK )@@G@@@@@@@@NX+[QF70-1 @@@@]@@@@@#4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[ @@A@@A@@%FL )@@G@@@]H@@@@@#@@^@@@[08@@@@@@@^@@@]@^@G@[@ @@@]K^@ @) @@HY2 @@HY3 @@HY4 @@@@LFM )@@G@@R;@HYT/KF@@@R;@@@Z:4@HY1/K@ .X @@HX;A7@HY1R]0HX9/K@ .N/,0 "'R]0HX9/KF@@[FN )@@G@@*4@HY5/K@ .Y(4@HX;/K@ .(R;K@@[A$KHX;R;KNEWABKHZF[SG@C@)B4[)G@@@___@]H^@@FO )@@G@@@[A^]R@[S^#$@@"^A\@@E^C\@] ^EO@@E^G7@@G^H*@@Z^H"@@,^I!@[X^LE@ B^QI@@T^V:FP )@@G@@)@E^]H)@E^#X)[0^^_)[]^B!)[V^C9)@Y^GT)@$^H[)@E^H4)@K^IX)[\^JV)#$^M$)@Q^VPFQ )@@G@@R#0@C"C[@@C./K@@C^9?0@C.AB:@@ 9*;@@@Q;0@C;A#;@@][@V@@# @F@@^;@@@@9@@C@R;@@@+:9@_8@R;@@@:/K@@GORBD@@[T8@WWWGO )@@G@@O;@@@)/K@@GOC9@@@DC9K@@^[1U@@@/K@@FMRB%@@]O;)@@^A#)^GRR;K@@-/,0@8"/K@@G\GP )@@G@@RBG@@@A#@^GR/KEK@@C9@@M1(4E@@@/?K@9$&;)@@]&'0@@[R#'@@[C[@^]D&;@C[G&'KN@)GQ )@@G@@/K@@H+C9@@M6/?K@9$0@J@@@/K@@G9R\Z@@@C[K^]E:8K@@DG.K@@#QA_@@@N^Z@@[(@J@@]GR )@@G@@/K@@HIQ'Z@@]A]Y@@@O;)@@[&;K<[HQ;F@@@Q;V)@@9*I)@@&;KC[X/K@@HQ&;KC[X0@J@@]GS )@@G@@/K@@HNO'0@@[/K@@HRQ;F@@@Q;V)@@9*I)@@9(I)@@8KK@HN(@J@@#/K@@H+Q'Z@@#A]Y@@@GT )@@G@@O;)@@[&;K<[HQ;F@@@Q;V)@@9*I)@@9(I)@@$B'@@]/K@@G;R#@^]FA#I@@@O;)@@[/KEK@@GU )@@G@@?[@@@L/KF@@@/KF@@[![@@@L/KF@@@/KF@@[(4E@@@/KF@@@AA'@@@R'0@@@ABE@@#/K@@H'GV )@@G@@(4E@@@/KF@@@AA'@@@R'0@@[ABE@@#/\@@I@R#'@@[R;@)@[*0E@@@'=@@[\RFE@@]/K@@IWGW )@@G@@R#'@@[C[@^]G/K@@IJR#%@@#OB\@@@E^Z@@[0@J@@#O;K@@[0@J@@]/K@@IGO;)@@[/K@@IIGX )@@G@@-[I@@@[[Y)@@8#K@IG$B'@@]/K@@I#/KG@@@RFZ@@[R2Z@@@R#%@@#OB\@@@N^Z@@[/KH@@@GY )@@G@@C9@@@[;[D@@[-[I@@@[[Y@@@$B'@@]/K@@IM/KF@IZ/\@@I@R;@@@[*0E@@@'=@@[\/KEK@@GZ )@@G@@')D@J"%8K@@-/K@@IWC[J@@]-[I@@@/K@@I:D[Y@@@[[Y)@@8KK@I%C[J@@#/K@@IUC9@@@[HA )@@G@@;[D@@[+[I@@@')F@I4/K@@I$/[K@IU/ K@IUCDX@@@C X@@@K4I@@@')F@I6[5Y@@@K0I@@@HB )@@G@@')F@I6[1Y@@@K?I@@@')F@I6[!Y@@@K*I@@@')F@I6[(Y@@@K=I@@@')F@I6[>Y@@@K)I@@@HC )@@G@@')F@I6[-Y)@@8KK@I8/KD@JFK=I@@@')F@I6[>Y@@@K*I@@@')F@I6[(Y@@@K?I@@@')F@I6HD )@@G@@[!Y@@@K0I@@@')F@I6[1Y@@@K4I@@@')F@I6[5Y@@@/K@@IWK0I@@@')F@I6[1Y@@@/K@@IWHE )@@G@@K0I@@@')F@I6[1Y@@@K?I@@@')F@I6[!Y@@@/K@@IWK0I@@@')F@I6[1Y@@@K?I@@@')F@I6HF )@@G@@[!Y@@@K*I@@@')F@I6[(Y@@@/K@@IWK0I@@@')F@I6[1Y@@@K?I@@@')F@I6[!Y@@@K*I@@@HG )@@G@@')F@I6[(Y@@@K=I@@@')F@I6[>Y@@@/K@@IWR7Y@@@R3Y@@@R\Y@@@R:Y@@@R$Y@@@RY@@@[-Y@@@O#)@[[0@J@@#O;)@@[')D@J"')F@KL')D@K^HI )@@G@@/K@@KZCDX^@DC X^@D')D@K%')F@K4')D@K\R6Z@@@O#)@[[0@J@@#O;)@@[')D@K&!8K@["HJ )@@G@@/K@@IW')F@K=')D@K\>9K@^@/K@@IWR#%@@#OB\@@@/K@@I$CXX^@DCTX^@DRZY@@@RNY@@@HK )@@G@@RVY@@@RRY@@@CXI@@@CLI@@@CTI@@@CPI@@@CXI@@[[XY@@@[LY@@@[TY@@@[PY@@@[XY@@[HL )@@G@@)9@@^@-9@@^@')D@K:')F@K4')D@K0')D@K&%8K@@!/K@@IW/K@@I$RFE@@^/KD@K_KWI@@@HM )@@G@@')F@I6?^U@@^[XY@@@KKI@@@')F@I6?^U@@^[LY@@@KSI@@@')F@I6?^U@@^[TY@@@KOI@@@HN )@@G@@')F@I6?^U@@^[PY@@@O;)@@[8KK@K_R7Z@@@/KH@LMKSI@@@')F@I6?^U@@^[TY@@@KKI@@@HO )@@G@@')F@I6?^U@@^[LY@@@KWI@@@')F@I6?^U@@^[XY@@@RFE@@]/K@@IWKKI@@@')F@I6?^U@@^HP )@@G@@[LY@@@/K@@LZKKI@@@')F@I6?^U@@^[LY@@@KSI@@@')F@I6?^U@@^[TY@@@/K@@LZ/K@@L\HQ )@@G@@*@@^HX/K@@M@C[@^HY(@@@@KC9@@Q[[ @@Q(C[@^H@[ @@NJ[D@^]V9?@^]YR#)^]-9!@^]ZHR )@@G@@[[@@QE[[K@RR9!@@NI/K@@MA9?@^]+R#)^]*9!@^]&[[@@QE[[K@RR9!@^]=A#@@M'A#K@NDHS )@@G@@A#)^]N[[@@NH[[K@Q)C9@@@@R;K@@0/,0@8"/K@@MN&;0@@@C1G@@@%80^]:C(G@@@[1J@@]HT )@@G@@ @J@@B/,0@MR/K@KL\CDJ@@D[XJ@@#CDJ@@J[ J@@J @J@@F @J@@IR#J@@A'^@[B:/KF@@@HU )@@G@@/K@@M)RZJ@@EAZ@^#LR\J@@EAV@^]XRFJ@@CA#@^]LK@@^]NABK^]RK^J@@DABK^]MOBZ@@DHV )@@G@@AFK^]MR;K@@#AFW@@[ C@^]JR3J@@]AB@@N+9?J@@IA#@^]SABK^]T/K@KM)/K@@M6C[J@@FHW )@@G@@G9@@@[[[J@@FC[@^]V;D@@@MN@K@@KKD@^]NR#K^]LGDX@@[! Z@@D: Z@@D/K@@NB/,0@NKHX )@@G@@C[@@[[KD@^]NG9K@@#[DX@@[R#)^]R/S@@@@&;@@@[M#?)@@A#)^]R/K@KM6/K@KM6&;@@@@HY )@@G@@AB0@R7CD@^]JG9@@@[[D@^]J9?K^]L[DH@@]CDX@@[;^K@@M;@K@@M9*K^]L%9@@@[/K@@N-HZ )@@G@@R#)^]TC[@^]S[[I)@@A#)^]T/K@@N9[ Y@@[*8@@@@/K@@N$/\0@O]RB)^]M[[I@@@0@@^#OIA )@@G@@'=@@@A*4@^#O/K@@R6(^I@@[/K@@N/&F,@@[R#0^]S9*)^#PR;)^#LRV0^]XAR0^]X/\0@ODIB )@@G@@[[@^]SA#@^]OR;@^#L'=@@@[R#@^]OK@K^]NAB)^]R/KF@@@CDY@@]%9K@@[/K@@N!R#0@R7IC )@@G@@&B\@@D/K@@N, @@@@K&;)@@[CDY@@[H9K@@]G[I)@[8^K@OA/KJ@@@CDI@@^CPK^]X/[K@OQID )@@G@@%9K@@]/K@@ONG9@@[\;H@@@=W9@@[0;(@@@]/K@@OQG9@@@V;H@@@=W9@@@WG[I@@ /KJ@@@IE )@@G@@/K@@OSCXJ@@#H9@@@[/H@@R9[XJ@@#/,0@NK CH@@[/,0@NLC9@@@#[DH@@[ C@^]J0@@^#OIF )@@G@@'=@@@A*4@^#O/K@@R6/K@KOSR#@^]LRFW@@[:8K@@#/K@@O.'^@@OSRB0@Q:R#@^HZ*WJ@@#IG )@@G@@!4J@@[/K@@O.9!@^]S[[J@@I[ Z@@J/K@[CV/K@@O6AB0@Q:(@J@@F/K@@R0C5J@@]:9@@@#IH )@@G@@/K@@O*RB_@@@'^@[CERB0@Q:C J@@@[ @@Q[C J@@E[ @^]U[[@^]KC1J@@][ @@R CXJ@@EII )@@G@@[X@^#FR\J@@EAZ@^]XC J@@D[ @@P2A@K^]PA@)^]QA@0^]ORC_@@JRCZ@@DPWZ@@#A^K^]JIJ )@@G@@RA_@@CAA0@Q-R#@@@[R#K^GR/\)@C#R#@@@[K@@@@[O;K@@CR@)@@HO]0@@HAA0@QQR#K^GRIK )@@G@@/\)@C#O@)@@F ^@@RFR#)@@]&B)@P2R#3@@@R#K@@#/,0@Q;/,0@R@RA0@QQ/\)@CORB@^#JIL )@@G@@O#@^]N')@@Q)R#K@@#RA0@Q-/\)@COO80@@[O8)@@@P8K@@[*@@@@[/K@@P;^@@@=/,0OHY/K@@Z7RB0@&3R#\@@HO#)^H@A#\@@HKN )@@G@@R#@@@HO#@^^4/K@@)]R#@@@H/K@@)P/,0@Z>/K@@)]C9@@Z"[ @@)P/K@@Z_'^@@+GRB)^^6KO )@@G@@C[@^^4/\0@+ R#K^^5RF!@@SO;)@@[AF!@@SRB.@@S:^\@@['^@@>DR'0^^_/\)@CS(@@@@GKP )@@G@@/K@@)GA#K^^5/K@@)IC9@@)M[ @@)I/K@@)PRBK^^6/,0OGR/K@@%>/K@@)P/K@@)Q/S@@@@KQ )@@G@@RA0@)RR#0@@G;C0@@M+@@^^9)@0@@HP#@@@HRBK^^\[[H@@@K8K@@[K^!@@@O;0@@[?^0^^0KR )@@G@@/K@@-F[[@^^;K8)@@@O;0@@[?^0^^0/K@@)0RB0O^';@0@@MA#.@@@'^@@+NC[@^^;/K@@)YKS )@@G@@L^)^^0O;0@@]K^0^^;)[@^^9[[K^^;H H@@@] H@@@(@@@@J/K@@)_E[@@@JRF0^^0O;0@@[KT )@@G@@AF0^^0/\0@+ P#)^^8RB.@@@;@0@@MA#"@@@O;)@@['^@@+NC[@^^;[[H@@@K8K@@[K^)^^;KU )@@G@@O;0@@[!^0^^0/K@@)0ABK^^'/K@@-_C9@@-K[ @@)P/K@@-L'^@@+GL8@@@[C H@@@RFX@@@KV )@@G@@RB)^^6/\0@+ /K@@-QP#@@@KL8@@@[C[H@@@/,0@)Y(^G@@@/K@@-ZO;@@@[/K@@)DR#K^^5KW )@@G@@RB.@@S'^@@>DL8@@@[*@@@@G1@H@@@/K@@)DC H@@@[[@^^;R#K^^'K H@@@[ X@@@RB)^^\KX )@@G@@/,0@-B/K@@-VAFK^^6(^G@@@/K@@-3O;@@@[/K@@)DAB)@-;RBK^^5RB.@@S'^@@>DL8@@@[KY )@@G@@*@@@@G1@H@@@/K@@)DR;)@@@C H@@@/\0@+ /K@@-\RF0^^0O;0@@[AF0^^0/\0@+ AB)^^\KZ )@@G@@/KF@@@O#@^^8O#)^^8+D@^^9N@K@@LM#?)@@P#@^^8/KJ@@@/S@@@@AB@@+LRB0K&3R#@^^6LA )@@G@@'^JK@#R;@@@@/K@K+G/S@@@@AB@@+7AA0@+8RBK^A0PB)^A0K8)@@[AF.@@@C @O^1G9@@@[LB )@@G@@[ @O^1[ H@@@/K@@+ZRF@^^0ABH@@[?80@[&R;0@[&AF0^A0*^@@&A/K@@+!P;)@@#O;K@@]LC )@@G@@O#K^^8 @@@@KG[H)@@8#)@+%[[H@@@'^@@<]C[@^A0R#K^A1[[@^A6AZK^A2R;@^A2'=@@@[LD )@@G@@RFK^^\RB)^A0/\@@+'R;@@@@R'0@@@/K@K+NAF)^^\A#K^A0K8K@@@A#)^^0 @H@@[O;K@@]LE )@@G@@ABK^^\/KG@@@/S@@@@0@@^A5'=@@@A(4@^A5/K@K<]C9@@@]%5@^A5/K@@%2/K@@!R;0@)JAB0@)IR;@@@@RBK^GRR'0^ 7/\)@C#LK )@@G@@RB@@=^RBK^GRR'0^^_/\)@C#/K@K*^H@@0LL )@@G@@'^@@=!O;K@@[!@K^A\:@K^A\/K@@=JR#K^^1(^@^A;/K@@=(:8K@@@/K@@=<'^@@=!RBK@=WLM )@@G@@RF!@@@A#K^^1A#)^A1R;K@@@/K@@=,R#!@@0P#)^^8A#!@@0/K@@=PR#!@@0O#)^^8A#!@@0LN )@@G@@/K@@=I/S@@@@ABK@=/(^@^A;/K@@=_'^@@>2/,0@>W/S@@@@R#K^^5R'0^ 7/\)@COR#K^^5LO )@@G@@R'0^^_RBH@@SO;@@@@/\)@COR;K@@@(@@@@H/K@@>AA#K^^5'^@@>%RBK@>!OFK^A;ABK@>!LP )@@G@@R#K^^5/K@K=!R;)@)DA#)@>D/K@@>M/S@@@@AB0@>!D8@@@@A#H@@S*4J@@[/K@K>D'^@@>2LQ )@@G@@/,0@>W/K@@>UR'0^ 7/\)@CS*@@@@G'^@@>%R#0^^5R#J@@SOB@@='/K@K>DR#K^^5/K@@>PLR )@@G@@R#K^^5A#!@@SR#@@@J*4I@@[/K@@>)/K@@>-P#@^^4O;@@@[/KF@@[PFG@@@L8@@@[1@H@@@LS )@@G@@/KF@@[/KF@@@/S@@@@RF!@@@AZ)^A7R;0@@@AB0^A;R;@^A7'=@@@[/K@K>%/S@@@@0@@^A'LT )@@G@@'=@@@ARBK^A'R7)^A'/@)@>_%8)@@^/K@@%\R\)^A'/@)@>_%8)@@ /K@@%\P;K@@[RB)^A;LU )@@G@@:CY@@@/K@@&A!CY@@@%8K@[&/K@@%(RFY@@@(8@@@@/K@@&FK@)@@HP;0@@]/K@@&NP;K@@^LV )@@G@@K8)@@[O#0^^8 @@@@KG[J)@[8#K@&J%[J@@[/K@@%:C @O^5G9@@@[% I@@@/K@@%/[ @O^5LW )@@G@@/K@K>2/S@@@@R;K^B$ABK@&X/,0@&+R;K@@@:@K^A\/K@K&TO;K@@[/K@@&VR;0@@)RF!@@@LX )@@G@@0@@^A_'=@@@AAZ)^A/ ^H@@@A30^A_R;@^A/'=@@@[/KF@@@/S@@@@RBK^A0O;K@@]%^K^^\LY )@@G@@'^I@@@'^@@<]R#@^HZR;0@@@/K@K&?/S@@@@R;)@$K'^@@&??4J@@[/K@[CVR#J@@A'^@[B:LZ )@@G@@'^@@&T/,0@&.R#K^A\A#K^^1A#K^^2RF!@@@A#)^A1R;)@<)'^@@*$R#J@@A'^@[B:'^@@&T @@^^7/K@K*9/S@@@@R;K@+ZABK@+YML )@@G@@(@@^HX/K@@(WC[K^HX[[K^^4[ K@)&C9K@)P[ K@)QC[Z@@E[[K^^6R'0@)RR;@@>C9@@%]C9K@(./K@@(*C[K^H@[[K^^4C9K@)P*@@^HYC9K@Z![ K@)QR'0@Z+C9@@(9C9K@(5AB@@-[ @@%Y[ K@&.AA_@@# ^@@&AR;K@@0MO )@@G@@/,0@8"/K@@(4*?G@@@ABK@&A/K@K(DC9K@Z9C[@^^/[[@@Z$/K@@%@C[@@+N[[@@Z$C9@@Z;MP )@@G@@/K@@% C9@@-R[ @@-QC9K@-L[ K@)P/KF@@@C9@@-,[ @@-QC9@@-HAA0@%J @@^^1[ @@)PMQ )@@G@@C9@@<9[ @@)GRB0@&3C J@@E[[@^^6R#_@@@'^@[CE/K@@%JRFZ@@CK^Z@@D/\@@+' 4@^A5MR )@@G@@/KF@@@A#K^^1CDKO^1[[K^A1C9K@%<[ K@3ABK@>%MW )@@G@@R#K^BNP;K@@[(@@@@H/K@@>\#@K^B^R;)@@(1@@@@HR;)@@*A3)^B#R;@^B@'=@@@#(4@^B#MX )@@G@@/K@@:-R;)@A8C5@^B#RZ0^B@/K@@%5R#K^B^P;K@@[/@K@>\A#K^B^/K@@:U/S@@@@; @@@#MY )@@G@@'L@^GK;(@@@#;!@@@#G9@@@0[T@^BGAZ0^BUR;@^BU'=@@[AB)@?4R;K@@U/,0@8"NE )@@G@@/K@@?3'^@@\//K@@?4'^@@83R#K@?4A#K^D/RBK^A0ABK@>!R;K^B$A#K^^5'^@@1DRFY@@ NF )@@G@@ABK@+/R#K^^5'^@@1"R#K^E+A#K^E8R;@^F)'=@@@CR;K@@X/,0@8"/K@@!0RBK^A0(@H@@ANG )@@G@@/K@@!GR\!@@]%8)@@A/K@@!IR;)@E3/K@@%&C H@@[H9@@@[*@@@@K/K@@!=R#!@@AA#!@@]NH )@@G@@C H@@ RZ!@@#P;)@@[AZ!@@#CPX@@#H9K@@[RZ.@@^P3.@@[1@@@@J/K@@!+CTX@@#O\.@@^NI )@@G@@R\!@@^AV!@@#[PX@@#AZ.@@^H9@@@[[ H@@[ @H@@AR#!@@BA#!@@C @H@@BRB!@@^AB)@8ONJ )@@G@@/\0@8:R;K@8MABK@+Y/K@@!4RBK^A0RB!@@[P;)@@[AB!@@[RB@^A0C9@@[>[DG@@@R;)^C\NK )@@G@@/\0@+ AB@@63'^@@6!RFK^C1P;K@@[ABK@5+R3K^C0%^K@=^/K@@88(@@^C7/K@@04R\K^C7NL )@@G@@O;K^B$ABK@8YRBK^C7ABK@8ZRZK^C7ABK@8+RBK@)PABK@8>R;K@8VABK@)PR;K@Z5*@@^HXNM )@@G@@R;K@8*ABK@8)/K@@04(8@@,N/K@@,&RB@@,NR;)^C\C9@@[>/\0@+ R;K^C\/\0@8:R;K@@VNN )@@G@@/,0@8"/K@@,)'^@@\//K@@,-'^@@83R#K^C1%@K^E_/K@@8'/,0K%Y/K@@!"R;K@@G/,0@8"NO )@@G@@/K@@,7'^@@\/R;K@@V/,0@8"/K@@,1R#K^E_A#K^C1/,0K%Y/K@@04R#K^GMO#K^C1A#K^C1NP )@@G@@/,0@7<'^@@6!/K@@04C9K@@@C9@@@@R;0@32R;K@@T/,0@8"/K@@,"/\)@\WAB0@3$R;0@3ZNQ )@@G@@R;K@@D/,0@8"/K@@\AR#K^^>T^W@@@A#K^^>R;K@@C/,0@8"/K@@?=R#G@@@+@@^GLT@K^^4NR )@@G@@+@K^GLA#)^^>AB0@3S[ @@2$[[K^C3/\)@\ZR;0^^ZR#@^^>'^@[B:R;K@@AAFK^C\R;K@@ANS )@@G@@A\K^C1R#K@+NA#K@7M/K@K:9R;0@6QAB0@3$/KI@@@C K^^*R;K@@F/,0@8"/K@@\>! W@@@NT )@@G@@C W@@@R#K^H@O;K@@#*@@^HXO;K@@]?8K@[&R;K@[&?[K@@H/K@@\5?8K@J*/K@@\1C[K@@HNU )@@G@@/K@@\3!9K@J*C9K@J*[DK^C4/KI@@@R;)@E0/K@@%&9*K^FW[>@^FVR#@^GN'=@@@J/KF@@@NV )@@G@@/S@@@@C9@@$DR;0^B*R;K@@G/,0@8"/K@@\_R#)^BOAB@@0CR#WK@@A#Z@]P[DJ@@@/,0@\7NW )@@G@@R;@@0CR;K@@G/,0@8//K@@0JG9@@@[O;0@@[/K@@0#AB0^A\P;0^B$AB0@=^A30^C0'^@@0VNX )@@G@@/\)@\W/\0@0>'^@@20/,0K&.C9K@3-[ K@)G/K@K\//S@@@@R;K^^ZABK@&3R;K@[>AFK^C\NY )@@G@@R;K@2HABK@>)R#K^GOA#K@7M/K@K0VRFK^^$R;@@@@RB)@=^O;)@@#W@@@@IAB@^^*AF@^A;NZ )@@G@@P;)@@]T@@@@IOB@^^$AF@^^$RB@^^$AB@@=@/\)@\Z/KJ@@@'^@@0@@^A''=@@@A9?K^A'9*K^FYRZK^A7ABK@12R;@^F%0@@^A''=@@@ARB)^A;R#Y@@]A#K^E,RBI@@[/,0^#2[ K^E?R#K^E$OE )@@G@@%@K^E,/K@@17RBK^E>%^K^E?/K@@17'^@@>2RF0^C4RB)^A;?C"@@ /K@@7-R;K@@@AZK^A7OF )@@G@@9?@^FY9*@^A'/K@K1DR#K^E+A#K^E*R#K^^5'^@@7AR;@^F&'=@@@C/K@@1V/S@@@@C[H@]POG )@@G@@[[@^E4R#H@["/,0^#2[ K^E2R#K^^5'^@@7ARZ0^A/'^@@:&A#0^E\R;@^F('=@@@CR#K^^5OH )@@G@@/K@K1"AA0@<)AB@@2WC H@@@[DH@@0'^@@1"RB!@@SC9@@@8:5I@@[/K@@<) CI@@[R;@^A/OI )@@G@@'=@@[XRBK^^5'^@@1DRA0@<)R;@@@@/K@@>-/S@@@@'^@@20R#)^HN:@)^C3/K@K2YR#0^C3OJ )@@G@@O;0@@[A#0^C2A#)^C3R;@@@@O;@@@[AB@@2$O;@@J*/,0^#2[ K^C1/,0@7<'^@@6!/K@K2YOK )@@G@@/S@@@@RF)^C4AB)@+/RFK^^$OF)^^$/\@@+' 4@^A5 ^@^C0R;K^B$A#K^^1RFX@@@A#K^A1OL )@@G@@R;K@6RABK@'^@[B:R;0^^ZR#K^^4ABK@)&/K@[CVC9K@@AOO )@@G@@/K@@3='^@@K^F ;[K@@A[TK^F R;@^F5'=@@@CR;@^F8'=@@@C*8@@4U/K@@4 @I@["*W@^C3/K@@5URFK^C1ABK@5+O;K@@[AFK^C1RVK^C2A\K^C3RRK^C2OY )@@G@@AVK^C2 O@^C2RZ@^C3O;@@@[AZ@^C3:S@^C2 W@^C3O;@@J*/,0^#2[ Y@]PR;0@5+AF"@]POZ )@@G@@O;)@@[C9K@5>H9K@@[*@@@@L/K@@5HRZ@^C2O;@@@[AZ@^C2/,0^#2[>K^F ;[K@@A[TK^F PA )@@G@@*W@^C3/K@@54(O@^C2/K@@3K^E/PD )@@G@@R;@^GB'=@@@C/K@[E-RFK^^\*4H@@[/K@K<]RBK^A0*4H@@[/K@@+,R;)@@*A7!@@[RBK@+NPE )@@G@@ABK@6?R;K@6*ABK@+NRB@@+7AB@@6%RA0@+8AA0@6:/K@@+,'^@@7E'^@@6!R;@@@@R'0@@@PF )@@G@@/K@@6?/S@@@@R#K^^1RBK^C0O;K@@[ABK^C0AFK^^0R;)@@@'^@@+NRF@^^\O;@@@7R;)^C8PG )@@G@@C9@@@,/\0@+ '^@@<]RZ0^A2'^@@:&A#0^EWR#K^C1A#K^E-RB@^C0/,0^#2[ K^EZR;@^GEPH )@@G@@'=@@@C/K@K6!/S@@@@R;0@@-/,0@&'^@@20/K@K83R;)@E4/K@@%&R;)@E5/K@@%&PR )@@G@@R#@^GP/K@@8_R#@^GQAQM )@@G@@K8K@@#R#K@@JO;0@@#?9@@@X/K@@/_O;0@[!/K@@.[!9@@@SO;0@@TC9@@@@W[@@@JT[@@@HQN )@@G@@R;0@[0T@0@@GO#0@@IP#0@@LH[@@@J/KF@@[ @@^HVR;K@@S/,0@8"/K@@.JAFK^HVR;K@@TQO )@@G@@/,0@8"/K@@.P*C@^HV/K@[FPAFK^HVR;K@@U/,0@8"/K@@.V*C@^HV/K@[FPAFK^HVR;K@@VQP )@@G@@/,0@8"/K@@.-*C@^HV/K@[FPAFK^HVR;K@@W/,0@8"/K@@.>ABK^HVR;K@@X/,0@8"/K@@.:QQ )@@G@@*^@^HV/K@[FPABK^HVR;K@@Y/,0@8"/K@@.1*^@^HV/K@[FPABK^HVR;K@@Z/,0@8"/K@@.7QR )@@G@@*^@^HV/K@[FPABK^HVR;K@@$/,0@8"/K@@..*^@^HV/K@[FPABK^HVRB0^HVCD@^HVC5K^IBQS )@@G@@:80@@W/K@@"Q:80@@Y/K@@"Q:80@@X/K@@"L:80@@Z/K@@"L%80@@$/K@@"Z:9@@@V/K@@"=QT )@@G@@%9@@@S/K@[FP?9K@@#/K@[FP/K@@"=:9@@@S/K@@"I:9@@@U/K@@"=/K@[FP:9@@@S/K@@"WQU )@@G@@%9@@@T/K@[FP/[K[FP/K@@_[?9K@@#/K@[FP/K@@_[*@@@@K:9@@@S/K@@_[:9@@@T/K@@"UQV )@@G@@R#0^H?[DZ@@DR#K^H!ABZ@@@RBK^H[PBK^HCABZ@@CP#K^H@ABZ@@ERBK^HCAFZ@@CR;)@@ZQW )@@G@@A#)^HZ'^JK@[/K@@"2RA0^IRS8)@@SRBF^IAS8@@@#O#0@@HRBF^IAS?F^IAS8K[F@R;K@@@QX )@@G@@W@K@@JS8K@@DW8K@@ES@K@@L/K@@"2C5K^IBG1K^IB C@^HE/[K[@T*@@^HX/K@@_JR;K@#CQY )@@G@@;GK@@=W@K^H@*@@@@IO;K@@[T@K^H@O;K@@^/K@@_NR#K^H@O;K@@A?8K@#CR;K@#CABK@_SQZ )@@G@@G9K@@]RB@^HC;G@@@=W@@@@L!8@@@@/K@@_&RB@^HC;G@@@=W^@@_SP;@@@]?4@^IB/K@@_A7@^IB 0@^IBRB@@_SR#K^H@O;K@@A?8K@J*/K@@_?R#@@@H/K@@_,RB )@@G@@!8@@J*R;@@J**@@^HX/K@@_5P;@@@^;G@@@=W@@^H@T@@^H@O;@@@^AF@^HER#)@@GC[K@@GRC )@@G@@H9K@@^*@@^HXH9K@@]'^@@"2A#)^HFC[@^I^/ @[@]C[@^I@(@@@@KC @^HCC5K^IBG1K^IBRD )@@G@@[PK^HA?9K@@]/K@[@T%9K@@]/K@[@MRF0^HV:80@@T/K@[@TR#)^HFO#)^HF![@@@I/K@[@TRE )@@G@@RFK^H:/K@[@-H9K@@[?[@^HF/K@[@VR#)^HFT@)@@L?[@@@I/K@[@K @@^H%/K@[@1R#)@@KRF )@@G@@T@)@@L!@)^HF/K@[@KR#)^HFRBK^H:A#K^H%A#)^HQ(0@^IB/K@[@1 @@@@I9?"OIX9*0^IURG )@@G@@RB0^IBAB0^ITO;0@[@AB0^IBR;@^IS'=@@@JO;)@@[%0)^IB/K@[@& W@^HA C@^HJRB0^HCRH )@@G@@PF0^HEPF0^HEC[K^I^/[K[[K;DK@@[?[K^I@[[K^I@R#)^I@RF@^H]T8@@@#?@)@@G/K@[[7RI )@@G@@9!@^I#/,0@/H/K@[[;AZ@^HAAF)^HG[[@^H 9?@^I 9*@^IUR;K$B,ABK^ITR;@^IS'=@@@JRJ )@@G@@RB0^HCT8)@@#P#0@@IPZ0^HAAB0[[(9!@^H_/[K[[.RB)^HCS@)^H"W8)@@FRB0[[(/,0@/HRK )@@G@@/K@[[5:C@^HJ/K@[[,AF@^HJAB)^HG[[@^HIRB0^HCT8)@@#P#0@@IPZ0^HAP#0@@GAF0^HHRL )@@G@@S@0^H"W80@@ET@0@@G!@0^HI/K@[[,R;0@@@9!@^H_/,0@/K/K@[[?/K@[[T9?@^I[9*@^IURM )@@G@@R;K$A,ABK^ITR;@^IS'=@@@J/K@[["(@@^I^/K@[[.9!@^I#9(@^H_9!@^I 9(@^I[ @@^I^RN )@@G@@/K@[[KAF0^HHC9K@@[[[K^I;R#0^H*[5Z@@[R;@@@[A7J@@]RB@^H[PB@^HCRFK^HHABZ@@DRO )@@G@@K@K@@GP#@^H@A#@^H-R;@@@@C[@^H@G9@@@[W@@@@KS@@^H@A#Z@@AC9@@@](C@^HJ/K@[]\RP )@@G@@R#@^H(ABJ@@@A#0@@HA#@@@JAFZ@@@G9K@@[[5Z@@[[5J@@]AF\@@CRB@^HGABJ@@DRF@^HJRQ )@@G@@AFJ@@DR#@^HIA#J@@ARB@^H[PZ@^HAPF@^HJAFJ@@J @@@@IR#K^H_!8K@@SR;)@@[!8K@@XRR )@@G@@R;)@@]A\\@@EG9@@@[(W@^HA/K@[#IR;@^];ABJ@@@A#0@@HR#0@@GAFZ@@@G9K@@[[5Z@@[RS )@@G@@[5J@@]RB@^H[PZ@^HAAFJ@@JRFK^HGABZ@@DT8K@@#P#@@@HAFJ@@CR#K^H A#Z@@ARZK^HART )@@G@@AFZ@@D @@@@IR#K^I#!8K@@SR;)@@[!8K@@XR;)@@]A\\@@E%9@@@#C9@@@#R#@^H%(@@@@GRU )@@G@@/K@[#SR )@@G@@/K@[BQA#@^HPR7\@@[A3)^HL/K@[BQA#@^HPA3)^HL/K@[B?O#@^HO/4@[B\R#@^JNA#J@@GSS )@@G@@R7\@@[RB0^HR/K@[B3R7Z@@]?8K@@]/K@[B(?@J@@G/K@[B"%@J@@G/K@[B/!4\@@[/K@[B"ST )@@G@@R#J@@GR7\@@[RF_@@@/K@[B3:4K^HL/K@[C^RB_@@@/K@[CGCD@^HV*^@^HV/K@[CQ%9@@@TSU )@@G@@R#0^H!/K@[CQ/K@[CERF\@@@R7Z@@[!@K^HZ/K@[CQ&;0@@@:@0^H(/K@[CQ:80^];/K@[CQSV )@@G@@(0J@@[/K@[C@R;K@@[A3Z@@[AB"@@@'^JK@]/K@[CE(@J@@H/K@[C=R#J@@GP#@^HOO#J@@HSW )@@G@@ @J@@HAB0[C<'^@[B:R;0@@@(C@^HV/K@[AFR7J@@[%4@^HL/K@[C,R#K^H^A#K^H#R#K^H)SX )@@G@@O;K@@[A#K^H)R#)@@JRF_@@@AB\@@@:80^#R/K@[AF 0J@@[/K@[C,/K@[C5RFK^HV!8K@@USY )@@G@@/K@[C_C9@@B5:8K@@T/K@[C"R;@@@Z%@@^HZ/?K@9$R#@[C5A#@[DIR8K[E?A^K[ALA^K[BLSZ )@@G@@A^K[BFR8K@9LA^K[DG'^@@9W(^@[DE/K@[DD/K@[DEA@K^GT/?K[E?RRET$ /K@[DIA#@^G=TA )@@G@@R])^GS/,0@H4R#)^H:@0^L//K@[H]:@0^L./K@[G6:@0^L"/K@[G4:80IAS/K@[HF:80DRMTP )@@G@@/K@[HK:80FST/K@[HO:80CON/K@[HS:80VOL/K@[HV%@0^L_/K@[L'R'K@@@C8K@@[/,)[L!TQ )@@G@@C8K@@]/,)[L!C8K@@ /,)[L!'^@[H:'^@[LO'^D[G%&;)[@@[@:)@@'^@[H:'^@[LO'^D[G%TR )@@G@@&;)]@@[@:)@@'^@[H:'^@[LO'^D[G%G8) @@ @@^L?[C)^L?'^@[H:'^@[LO'^D[G%G@)^L?TS )@@G@@[@:)@@/K@[GY/K@[G%/K@[G%/K@[G? @@@@HW8K@@A;^K@@=/@K[G?G8)@@[ @@@@H/K@[G?TT )@@G@@R'K@@]/K@[GI[@)^L>C8)@@0 @@^L?[4)^L?'^@[H::8)@@D[0)^L?:8)@@T[?)^L?:8)@@FTU )@@G@@[*)^L?/K@[G'C8K@@S/,)[L!C8K@@C/,)[L!C8K@@D/,)[L!C8K@@E/,)[L!/K@[F&'^@[H:TV )@@G@@'^@[LO&;)A@@A#:)@@/K@[F&'^@[H:'^@[LO&;)1@@/K@[HI'^@[H:'^@[LO&;)2@@/K@[HITW )@@G@@R;)@@3A7:)@@/K@[F&'^@[H:'^@[LO&;)4@@/K@[HIR7?@@@R3?@@@R\?@@@R:?@@@R$?@@@TX )@@G@@R/K@[I% @@^L>C@)^L?[@:)@@R;F@@@!8@^LEUD )@@G@@/K@[MCR#@^M@R;K^M[N8K@@IM#H)@@C@@^LE'=@@@H @@^L& @@^L$ @@^L* @@^L% @@^L:UE )@@G@@R]@^M]R#@^M@/K@[I=C8)@@S[4:)@@'^@[JD/K@[F&C8)@@T[4:)@@'^@[JD'^@[H:(@@@@IUF )@@G@@/K@[F&'^@[LO&;)F@@[@:)@@/K@[F&/K@[JD'^@[JS'^@[H:(@@@@I/K@[JL'^@[LO&;)C@@UG )@@G@@[@:)@@'^@[H:(@@@@I/K@[F&'^@[LO&;)D@@[@:)@@/K@[JD/K@[JS'^@[H:&;)E@@[@:)@@UH )@@G@@/K@[JSC8)@@U[4:)@@'^@[JS'^@[H:[@K^L?*4@^L?/K@[J$;?K@@AG8)@@ /K@[J-C^0^LFUI )@@G@@&;0H@@[@;)@@&;0@@[[@Z)@@[@\)@@[^0^LF'^@[J4/K@[F&C8)@@V[4:)@@'^@[J4/K@[F&UJ )@@G@@/K@[J4'^@[H:[@)^L=C^)^LF&;)G@@[@:)@@C@K^LFC@)^L=[@!)@@[@K^LF/K@[J5C8)@@WUK )@@G@@[4:)@@'^@[KG'^@[H:'^@[LOA#:@@@R;)@@(A7:)@@/K@[F&C8)@@Y[4:)@@'^@[KG/K@[F&UL )@@G@@/K@[KG'^@[H:'^@[LO&;)%@@[@:)@@'^@[H:'^@[LOA#:@@@R;)@@*A7:)@@/K@[KGC8)@@ZUM )@@G@@/K@[KUC8)@@X[4:)@@/K@[KW'^@[H:[@)^L\'^@[H:'^@[LO[@)^L0C8)^L\&;):@@[@:)@@UN )@@G@@/K@[F&C8)@@$[4:)@@C8)^C\[@)^L!C^)^JW @@@@H'^@[LO[@)^LGRFK^J$A#K^L- @@^L+UO )@@G@@R#@^L+O;@@@[A#@^L+A]0^L9@@@K/K@[Q59!I@@^VU )@@G@@9.H@@^/K@[Q8C[I@@B%[H@@B/K@[Q80@I@@#0@H@@#/KF@@@C9@@@[C Y@@]/KF@@[C[X@@@VV )@@G@@G[X@@[;D@@@=W9@@]FG Z@@[R#)@@L/KC@@@R;/@@G/K@[RHR;/@@J/K@[RHR;/@@M/K@[RHVW )@@G@@R;/@@P/K@[RGR;/@@D CH@@] ^H@@# ^H@@]A]@^VHAA0^VD9!H@@]9(@^V#%8/@@D/K@[RRVX )@@G@@9!@[MO(@H@@^9(H@@^R;\@@@O;)@@#C Y@@@:8?@@SC[K[MG/[K[RSH Z@@@T9K@@W[DK^VGVY )@@G@@CDJ@@[G!J@@]C9K@@K=5X@@#G9@@@^!D@^VG/K@[OL[D@^VGRB\@@[C I@]FG9@@@[[[@^V]VZ )@@G@@=5X@@#G9@@@[[ I@]FC5H@@#)9@@@):8/@@P[5X@@#/,0[P0/K@[SKR#)@@G9?@^VEC[@^V]WA )@@G@@%8/@@D/K@[R"CDY@@][DX@@][DI@@]/K@[SBC Y@@][ X@@][ I@@]%8/@@P/K@[SBC Y@@#WB )@@G@@[ X@@#[ I@@#/K@[SZ/,@[U\1@I@@#/K@[SI/,@[T70@I@@#/K@[S)/,0[QH/,0[U%/K@[S)WC )@@G@@RA0^VD/G@[M*/)@[M*9?@^VERA0^VARF)^VAC[K^V]/^)[TD/,@[Q;C[K^V]/>@[SX[ Y@@@WD )@@G@@/K@[S)[DY@@@/K@[S)/,@[U\C[K^V]RA0^VD/,@[T7/,@[U\&;K@@[&;)@@[C5H@@#+9@@@ZWE )@@G@@[5X@@#N?Z@@]C9K@@K=5X@@#N8K@@CM#!)@@RB)^VG:8/@@D*@I@@D/K@[S5'=@@@?;@@@@MWF )@@G@@A#I@@D9?@^VE9!@^V#9(H@@]CDK^VG[DZ@@[R#K^V]%8/@@D/K@[QEC!I@@#%9@@@A/K@[T]WG )@@G@@ )G@@SA#W@@T%9@@@ /K@[QEC8K@@[[)W@@S ^G@@P CG@@Q/K@[QE')I[TE/K@[SZ[ V@@]WH )@@G@@[ V@@#[DV@@]R;/@@D/K@[TRR;/@@G/K@[TRR;/@@J/K@[TRR;/@@M/K@[TRR;/@@PAA0^VDWI )@@G@@/,0[P0/K@[T=R#)@@G9?@^VE/,0[U%RA0^VD%8/@@D/K@[QEC[K^V :[W@@T @G@@T/K@[QEWJ )@@G@@RA0^VD/K@[O!R;/@@AO;0@@#CDZ@@[%9K@]G/K@[T! ^J@@[ @J@@@*^J@@[/K@[T5%8/@@PWK )@@G@@/K@[T$ @G@@ K@@[M8A#W@@^/K@[M\R;@@@+/KF@@@[D@^VAR#)^V [[K^V AB)^VAH9K@@[WL )@@G@@T!Z@@]G9K@]G;D@@@=W9@@@WG J@@@9(@^VBCDZ@@@;DK@@A?[@@@L/K@[UNH[@@@LT9@@@WWM )@@G@@G J@@[G9@@]GG[@^VC[[@@@I[ @^VGG!J@@]:8/@@JG9@@@^C Z@@]![K@@K/KC@@@C9K@C@WN )@@G@@A])^VI*?J@@@/,)[U2C[@^VB;(@@@AG!J@@@[DJ@@@C9K@K@/,)[U2R])^VIC[@^VBCDZ@@@WO )@@G@@;DK@@A/K@[UA9*@^VEC[K[MF%[W@@A/K@[OP*^J@@[/KC@@@R;@@@M/K@[O!C5I@@#)9@@@)WP )@@G@@[5Y@@#/,@[U\/KF@@@C9@@@[[!J@@@/KC@@@[DW@@#CDJ@@@;D@@@A[[G@@ L J@@@T9K@@WWQ )@@G@@CDJ@@[H[@@@L[DG@@^D J@@[H9@@]G] G@@^G J@@]?DG@@^[DG@@^*CG@@^'=@@@#C5W@@#WR )@@G@@/ K[M4 ?J@@@/KE@@@[@@^VJ @@^VKC8W@@@KCK^VJH8)@@[&;K[V)C@@@@H'=@@@H(@@^VKWS )@@G@@[@@^VKG8W@@@ @H@@@>@@[Y5/K@[VX>@@[Y6/KF@@[C8H@@@?8I@@@/K@[VHC@@[Y4C8K@@#WT )@@G@@/KF@@@C@@[Y(C8K@@[/KF@@@[@@^VKC@@[Y\C8K@@]/KF@@@L8@@@[C@)^VJG8)@@[*@I@@@WU )@@G@@?CY@@@/K@[V?G),@@@/K@[V&%CI@@@/KF@@@C)"@@@H80@@[T80@@AG="@@@9?I@@[?80@@BWV )@@G@@C@K[Y7/KF@@[N8W@@@C^@^VJG8@@@[C9K@@[ @@^VYN8)@@@(@G@@@/K@[W-(4G@@@/K@[WLWW )@@G@@%1W@@@/K@[W-C?W@@@!8K@@A/K@[WO%(K^VY @@^VX[(K^VY9??@@[C-G@@@:9@@@[C@0[Y7WX )@@G@@')H[XLH9@@@[T9@@@AG>G@@@')H[XTG)G@@@G8@@@[/K@[V/:9K@@[/K@[WTC*?@@@:8)@@.WY )@@G@@N8)@@[%[K@[[/K@[WL/K@[WC%@)[Y7[5@^VX:@)[Y7[-K^VX/K@[WL(@@@[]:(K^VY/K@[W&WZ )@@G@@[(K^VY @@^VX:[K@[[/K@[W,G9K@@[*@G@@@/K@[V; @@^VX @@^VY/KF@@@:(K^VY *@^VYXA )@@G@@9?K^VX98V@@@C8@@@-[=@^VY(?@^VY/KF@@[C@@^V%D8)@@@C80@@@C!@^VY8^@[X[1@@@@IXB )@@G@@!8)@[@C80@@E[))^VY[=0^VY/KF@@[C8K@@@;=@@@A?8K@@'?8K@@0/K@[XG(@@@@JC80@[@XC )@@G@@H8K@@0T8)@@EG8!@@@/K@[W'/^0[W.%8K@@+:8K@@-C8.@@@/@0[W./K@[W'9*)^VZ9*)^V-XD )@@G@@[@)^V<[@)^V=[@)^V>9*)^V&9*)^V*[@)^V%/K@[WW[1@^VX[!@^VX[(@^VX[>@^VX[5@^VYXE )@@G@@[1@^VY[!@^VYC80@@F+8K@@_:8)@@ ;^@@@A8#0[X<9*@^VMC@@[Y8C@K[Y9C8)@@BC@0[Y7XF )@@G@@[@"^VP8#)[X?N4K^VX9!@^VZ/\)[YUC9K@@*(4@^VX*)@^VX')H)@@N0K^VX9!@^V-*@@@[[XG )@@G@@/K@[X;C[@[Y'N8K@@^/\)[YUN?K^VX(@@@[[/K@[Y C9K@@(')H)@@C[@^V/\)[YU/K@[YC;>@@@A')H)@@8KK[YS/KI@@@XJ )@@G@@[5W@@@[1W@@@[!W@@@[(W@@@[>W@@@/\0[Y+[-W)@@Q;K[YW/KJ@@@PROCESSOR CALL ERRXK )@@G@@OR @[^[Y>ABNORMAL RETURN FROM READ$ @[ [Y%TOO MANY SPECIFICATIONS XL )@@G@@@[^[Y0]@@@@@[@@@@@ @@[^VP@@[[YWTPF$ @@G^VLR#@^)C/,0[VB/K@[)#R;@@@[XM )@@G@@/,0[V6/K@[Z?9?@^W]/,0[X+R#@^)D'=@@@J/G@[Z0R;@^W]/,0[MQ/K@[Z"R#K^)ER;@^W]XN )@@G@@/,0[N[/K@[Z"RB@^ZFR;K@@G9*@^W=/,0^RX@@@^W=@@@^W> @@^W> @@^W&R;0^V:/K@[FVXO )@@G@@R[@^)FR;@^W]R#K@@^&;K@@@/,0[O)/K@[Z"/,0[AK$[@^W=/K@[ZT/K@[BK/,0[DF/K@[Z\XP )@@G@@9?W@@@9/K^W>/K@[Z%R#@^)G'=@@@I/K@[Z+9*K^W>/K@[Z+R#@^)H'=@@@I'=@@@Q'=@@@DXQ )@@G@@N8)@@[N@0@@ ;G@@@#;C@@@#8K0[Z2O#K^)I8K)[Z/A#K^W&9?@^)J9*@^W=R#@^)L/K@[Z!XR )@@G@@A#K^W$/K@[Z1R#K^)M:8@@@]R#K^)N!8@@]@/K@[) ;^@@@=/K@[Z!;GK@@#;*K@@#;?K@@#XS )@@G@@O;K@00AZK^V_R#@^)O/K@[Z!B@@@F^U@@@D/A@@@E*D@@@FFM@@@FDP@@@F4Q@@@F7R@@@G^XT )@@G@@S@@@GF])O5\*]*P57(]0Q5_%]8R6B:#@S6J?#CT6R!#KF6Z,#SG6$\#)H6\0#*I0RM#0JA@0XU )@@G@@#8KAC1^@LAK2^CMAS3^KNA)4^Z7A*5^$8A06^\9A87^7'B@8^_;BC9 B/@@@ J.@C[ R"@K]XV )@@G@@ Z_@S# )U@)^ *V@* 0W@0S 8X@8TA@Y[@UACZ[CVAK)[KWAS-[SXA)+[)Y"0<[*ZA*=[0)XW )@@G@@A0>[8-A8&]@+B@$]CBS%])&B):]*$B*?]0*B0!]8(B8E#@%CB6#C:CC,#K,XX )@@G@@CK\#S\[KE#)@[SF#*@[)G#0@[*H#8@[0I^@@[8J^K@]@K^S@]CL^)@]KM^*@]SN^0@D*'^8'XY )@@G@@D0; @;D8/ C/E@. K.EC" S"[K_ )_EK@ *@[S@ 0@[)@ 8@[*@@@@[0@@@@[8@@@@]@@@@@XZ )@@G@@]C@@@@]K@@@@]S@@@@"8@@@@_@@@@@_C@@@@_K@BK@_S@BS@_)@B)@_*@B*@_0@B0@_8@C@@YA )@@G@@ES@ES@E)@E)@E*@E*@E0@E0@E8@E8@F@@F@@FC@FC@FK@FK@FS@FS@F)@F)@F*@F*@F0@F0@YB )@@G@@F8@F8@G@@G@@GC@GC@GK@GK@GS@GS@G)@G)@G*@G*@G0@G0@G8@G8@H@@H@@HC@HC@HK@HK@YC )@@G@@HS@HS@H)@H)@H*@H*@H0@H0@H8@H8@I@@I@@IC@IC@IK@IK@IS@IS@I)@I)@I*@I*@I0@I0@YD )@@G@@I8@I8@J@@J@@JC@JC@JK@JK@[K@@@@J)@J)@"0@@@@@@[@@@@@#__/%[@@@L/K@@H*/KF@@]YE )@@G@@)@@@@@@@[@@@@@@@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@C[@^]V/S@@@@PB@@NJ@@@@@#YF )@@G@@C[@@@G[ I)@@[DI@@@&BG)@@^CK^]KPFG@@@@@[@@]@@@@@@@@@@@@@@@@@@@@@@L\@@@@M)YG )@@G@@@@@@M6D@@@O6@@@@OS@@@@@@@@@@@@@@@@@@@@@@@@$A@@@@@@@@@@@@@@@@@@@@@@@@@@@@YH )@@G@@@@@@@@@@@@@@@@@@L\@@@@M)@@@@M6F@@@O6@@@@OS@@@@@@@@@@@@@@@@@@@@@@@@$B@@@@YI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@K@@@@@@@@@@@@@@@@ YJ )@@G@@ @@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@SA@@@@@@@#@@@@@@@@@@@@@@VE@@@@@@YK )@@G@@@@@@@@@@[@@@/C@@@@/G@@@@@@[@@@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R;0@[C9!@^#.YL )@@G@@;G@@@=W8@@@EO;K@@:'TK@@H; @@@AP;0@@A/^@^#4; J@@@/KF@@@ @@@@@@YM )@@G@@@@@@*^@@@@*BZ_@@@@@@@@&5@@@@$K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*N@@@@*Y@@@@@@@@@@$B@@@@$0@@@@@@@@@@@@@@@@@@YO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:9@@@@2Y@[@@@@@@@@3[YP )@@G@@@@@@3[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@___@@@@@@@@@@@@@@@YR )@@G@@A#)^^6@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@C@@@@@@@@@@ YS )@@G@@ @@@@@@@K@@@@@@@@@@ @@@@@@@@@@@@ @@@@@@@@@@@@YT )@@G@@@@@@@@@[@@@@@@Y^BP@@@@@@@[@@@@@@%^BF@@]^BM / SORT READ ERROR A YU )@@G@@. (NO OR GO)@@@@@@@@@@@@ SORT ERROR CODE A YV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YX )@@G@@@@@@@@@@@@@@@@@@@@CYC NO. . RECORD NOS. - YY )@@G@@LABEL: REEL OF MOUNT REEL OF YZ )@@G@@LABEL ERROR: REEL OF DISMOUNT REEL OF ZA )@@G@@ + MOUNT BLANK MOUNT BLANKEND REDO END PART FINAL MERGE(ZB )@@G@@S) REQUIRED:START MRG NO. : INPUT FILES OUTPUT FILE ZC )@@G@@ UNIT LABEL UNIT LABEL ZD )@@G@@OUTPUT@USE $ , @@@@@@@@@@@@@[@@@@@@M^E8@@@@@@@[@@@@@@=^E+ZE )@@G@@@@[^BM@[@@@@@@%^E*@@@@@@@[@@@@@@=^E\@@@@@@@[@@@@@@0^EO@@@@@@@[@@@@@@G^E.ZF )@@G@@@@@@@@@[@@@@@@M^F@@@@@@@@[@@@@@@%^F^@@@@@@@[@@@@@@%^FF@@@@@@@[@@@@@@S^FMZG )@@G@@@@@@@@@[@@@@@@0^FM@@@@@@@[@@@@@@%^FM@@@@@@@[@@@@@@M^F#@@@@@@@[@@@@@@G^E;ZH )@@G@@@@@@@@@[@@@@@@=^EW@@@@@@@[@@@@@@2^E\@@[^BM@@@@@0@B____@@B001@@^^FU'^@@7(ZI )@@G@@@@[@@@@@[@@@@@@@@@@@@@@@SORT ERROR CODE @@@@@@@@M^G7@@@@@@@@[@@[@@[^GTZJ )@@G@@022871@@@@@@@@@^#R@@@^]:@@@@@@^^J^#_@@@^^Z@@@^H,@@@@@@@[@@@@@@@[C5@@@[DIZK )@@G@@@@@[DR@@@[DR@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZL )@@G@@[#S@G)]#S@G)# S@G)^ S@G) ^S@K*A^S@K*B#S@G)C S@G)D#S@G)E#S@G)F^S@-OG^S@-OZM )@@G@@H^S@-OI]=@J*J[S@#'@@@@@@@USE ,EXTERNALFILE . @@@@@@@@@@@@@@@@@@ZN )@@G@@@LOG SORT: T/R=XXX.XMS, IC=XXXXXXXX, OC=XXXXXXXX, BIA=XXX.X@@@@@@@@@@@[ZO )@@G@@ SORT LINKAGE USED AT WRONG TIME DRUM BLOCK SIZE TOO SMALL = ZP )@@G@@@@@@@@FASTRAND BLOCK SIZE TOO SMALL = @@@@@@@@@@@@@@@@@@@@[@@[Z_____ZQ )@@G@@@_____/K@[A_@@L^I1@@=^I4@@E^I0R$CORE [L.^JV@@[^J%@@@@@@PARAMETER CAZR )@@G@@RD INCORRECTCARD TABLE OVERFLOWED EOF CARD MISSING @@@@@@@@S^LH@@@@@@ZS )@@G@@@@@@@@@@M^LP@@@@@@@@@@@@@@S^LL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[^K^@@@___ZU )@@G@@@@@MRG@@@RTA@@@RTB@@@RTC@@@DOA@@@DOB@@@NTA@@@NTB@@@NTC@@@ORT@@@ECK@@@RSZZV )@@G@@@@@SZW@@[^JV @@[@@[@@[@@@@@@@@@A3@^MOA:@^MOA<@^MO@FREE XB. . @FREE ZW )@@G@@XA. . @FREE R$CORE. . @LOG @ASG,T XB.,F40/***/POS/***,SORT01/SORT0ZX )@@G@@2 . @LOG @ASG,T XA.,F///*** . @LOG @ASG,T R$CORE.,F2///** .ZY )@@G@@ @@@@@0@#&^M$@@@@@@RECORD SIZE NEGATIVE OR ZERO NUMBER OF RECORDS ZZ )@@G@@NEGATIVE OR ZERO SORT VOLUME EXCEEDS 90 POSITIONS. XXXXXX POSITIONS IAA )@@G@@S TOO LARGE FOR @SORTF ONLY 90 POSITIONS ON 2 DISC PACKS, BUT SORT NEEAB )@@G@@DS XXXSORT FILE ASSIGN REJECTED: XXXXXXXXXXXX ONLY XXXXXX TRACKS OF FAC )@@G@@ASTRAND REMAIN, SORT NEEDS XXXXXX@] ^QI@]A^QN@]A^QT@]B^QZ@]D^Q&@]B^Q\AD )@@G@@@]E^Q6@@@@@@@@@@@@@@@@@@@@@@@]@@@@@ @@@@@D@@@@@L@@@@@U@@@@@>@@@@@5@@@@[CAE )@@G@@@@@@[Y@@@@[9@@@@]T@@@@]"@@@@#*@@@@^S@@@@ J@@@@AF@@@@BG@@@@CM@@@@@@[])^QHAF )@@G@@R;KWJG @@@@K:^V@@]C[F@@]/H@^R(R;@^MC'=@@@JR;@^ME'=@@@JR;@^MG'=@@@JR;F@@#AG )@@G@@AB@^RWR#VK@[/GK^UKO;K@@F @@@@GW8@@@AT@FK@@/G@^UIS8@@@FW8@@@E;G@@@=A#K@@IAH )@@G@@W8@W@@/@@^T5O;@@@[A#@^RB!8@@[V/K@^UMN8K@@MR#)^U7R#@^RB5^I=RB/K@^UOR;Y@@@AI )@@G@@T8K@W@O;K@:$ @@@@GW8@@J*A#@^RDS8@#%SP;KN?@W8@^4@A#@@@JR#@^RB;G@@@YW8I@@@AJ )@@G@@K@@@@J @@@@GW@@@@JT@@@@JA#@^RCR#@^RB?8@@@^/K@^STR;@@@[A#@^M^/K@^S'R;@^M=AK )@@G@@'=@@[P @@@@Q @@@@HRF@^M$/@@^S=OBW^M(R#G^M*;*@@@G;C@@@GG])@@GRF@^M?/@@^S:AL )@@G@@OBW^M(R#G^M*;*@@@G;C@@@GG])@@GRF@^M!/@@^S2OBW^M(R#G^M*;*@@@G;C@@@GG])@@GAM )@@G@@?@K^RB/K@^SQR#K^RB;*K@@AO#K^RCH')@N)?])@@H/K@^U+R#@^RB/@@^TP/,0^T? @@@@GAN )@@G@@R#K@@I;?J@@@R#K^U8;G@@@AP;0@@A;GZ@@@;@J@@@O#K@@G9*K^MNR#@^U9(@@^M^/K@^TOAO )@@G@@R#)^U'A#)^MM @@@@IW8)@@AR;@@@,')I^M R#@^U;R#K^RB!8K@@,R#@^U//\0^T@[#^V5000000SPEC 1BF )@@G@@ ASG: @[^^W=@[]^V8@[#^V'@[#^V.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$MAIN$ @@^@@^@@@@@]@@@#@ @@@@@]@@@@ C@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ATMRG GS+[ DBCONSGBJ )@@G@@ K*$DPDBKEYS I)$[#DBSP EH^[KEEPDUP M-X[QFERU$ BK )@@G@@ D1<]FEINFOR$ M-WF^EKPARCD IXR[#DKRFIND IY [#DPCORE BL )@@G@@ IZG[#DPRATTS IZ*[#DRDFM$ J#K[#DREBD$ I)@[#DSORTF BM )@@G@@ A!MFPDKARLIN @@@@@@ @@@@@@@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$IBANK @@@@@F$DBANK @@-@@G@@@@#0@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YK@@[@^@[E@C@@@@@@ABQ )@@G@@K@@[@^@C>@DE@@@@@-K@@[@^@AR@L\@@@@@VK@@[@^@BX@SA@@@@@@K@@[@^@TT@Z<@@@@@SBR )@@G@@K@@[@^@@\@8/@@@@@#K@@[@^@L0@9:@@@@@PK@@[@^@A0[FV@@@@@DK@@[@^@C/[MF@@@@@MBS )@@G@@K@@[@^@#5[VB@@@@@G@@@[@^@[K[Y/@@@@@A0@@@@ @]H^@@@@@@@-0@@@@ @[E^]H@@@@@VBT )@@G@@0@@@@ @@V^#R@@@@@=0@@@@ @@H^#2@@@@@@0@@@@ @CQ^#_@@@@@S0@@@@ @@%^GP@@@@@#BU )@@G@@0@@@@ @]W^G_@@@@@P0@@@@ @](^JV@@@@@$0@@@@ @C"^M^@@@@@D0@@@@ @@H^V]@@@@@MBV )@@G@@0@@]@ @@W^VJ@@@@@G)@@@@ @^%^V:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DUSE$ @@V@]VEPTNL BX )@@G@@ @@S@]PRBIND$ @@3@@)RBPN$ @@M@@@RCITC$ @@3@@ORCOMP$BY )@@G@@ @@0@@]RCORT$ @@$@@@RCOSG$ @@3@[/RDRMT$ @@=@@YREBD$ BZ )@@G@@ @@%@@@RENDB$ @@M@H#REPA$ @@3@@ZRERR$ @@J@@:REXIT$CA )@@G@@ @@M@K6RFIND$ @@J@@]RFNDZ$ @@J@@@RFSTR$ @@=@@,RFTI CB )@@G@@ @@S@@FRGKTC$ @@#@@@RINF$ @@V@@@RKTI$ @@#@^=RKTO$ CC )@@G@@ @@#@^%RLBLK$ @@!@^0RLNKS$ @@3@@YRNEW1$ @@0@@^RNEW2$CD )@@G@@ @@J@@)ROB$ @@M@IZROPN$ @@P@@@RPARA$ @@0@@[RPFEPTCE )@@G@@ @@S@@6RRCYC$ @@M@I0RRECS$ @@3@@[RREL$ @@M@G>RRET$ CF )@@G@@ @@M@J)RSELA$ @@@@@#RSELE$ @@@@@ORSEL$ @@@@@SRSORT$CG )@@G@@ @@M@H>RSTRG$ @@J@@PRSVL1$ @@M@H:RSVL2$ @@M@I@RTMT$ CH )@@G@@ @@!@@)RTPT$ @@!@@@RTST$ @@!@@KRWS$ @@0@@#SELT$ CI )@@G@@ @@V@@\SORTF @@9@ T@@@@@@@@@@@@;89002KR02@[@@J$@G@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LASTD$ @@@^)OV89002CL )@@G@@0R02@[T MAIN 803 @@@@M0@@@@OO @@@@@@@@@@@@ CM )@@G@@ @@@@@@@@@@@@ @@@@@@@@@@@@ CN )@@G@@LL SITE . DI2.00 @I@@@@ J DMITCO )@@G@@AG6 . ALL DONE . DI2.00 @I@@@@ CP )@@G@@ LXI,U A3,OTIMAG*/6+2 . MARK AS FD OUTPUT REQ . DI2.CQ )@@G@@00 @I@@@@ L,U A0,SMDMWQ CR )@@G@@ . DI2.00 @I@@@@ LMJ X11,SMQING . KICS )@@G@@CK IFR FOR OUTPUT . DI2.00 @I@@@@DMITAG6 CTS DMSYCT )@@G@@NC,A3 . DI2.00 @I@@@@ CU )@@G@@ DL A2,EA11 . CONTINUE SEARCH . DI2.CV )@@G@@00 @I@@@@ LXI,U A3,0 CW )@@G@@ . DI2.00 @I@@@@ J DMITAG3 CX )@@G@@ . DI2.00 @I@@@@DMITAG7 . CY )@@G@@ . DI2.00 @I@@@@ CZ )@@G@@ L A3,EA12 . RESET REGS FOR EXIT . DI2.DA )@@G@@00 @I@@@@ L A2,SD,A3 DB )@@G@@ . DI2.00 @I@@@@ S A2,EA11 DC )@@G@@ . DI2.00 @I@@@@ SZ PCDMDD )@@G@@SO,A2 . DI2.00 @I@@@@ DE )@@G@@ SZ PCDMSI,A2 . DI2.DF )@@G@@00 @I@@@@ L A0,EA8 DG )@@G@@ . DI2.00 @I@@@@DMITAG8 . DH )@@G@@ . DI2.00 @I@@@@ DIOEND DI )@@G@@ . DI2.00 @^@@_@-593 DJ )@@G@@ TERM 31.0@#@@@@ DIOSTR @F@@@@ TOP,U A3,WDK )@@G@@ESBIT . CLEAR ALL WEST$ WAITS ALSO@#@@@@ DIOEND ___ DL )@@G@@ A2,POTFCT,A0 . GET OUTPUT CTL@E@@@@ S A1,OUTLCK,DM )@@G@@A2 . LOCK OUT DMOT$ CALLS@A@@@@ L *[@@@@*SDFF*@^@@_@-607 DN )@@G@@ CGYCOD 32.0@#@@_@ DIOSTR @ @@_@ TEP,U A4,WDO )@@G@@ESBIT @ @@_@ J KEYWEST @#@@_@ DIOEND @^@@_@DP )@@G@@-609 CGYCOD 32.0@#@@_@ DIOSTR @]@@_@KEYWEST . @#@@_@DQ )@@G@@ DIOEND ___^@)^@)CTBFD#D9^^@)^@)AS2 00@^@@_@^@)^@)^@)^@)^@)C-DDR )@@G@@D9NE-M@#@@_@DT FDRC(NE))*[@@@@*SDFF*@^@@@@-2694,2695 CATFR 32.0 @F@@_@DS )@@G@@. NYU*** LET IT THINK EXPOOL TIGHT ALL THE TIME (AVOID 070 STOPS) @F@@@@DT )@@G@@ NOP . JZ A6,GETSITEM . $T TIGHT FIRST LEVEL @E@@@@DU )@@G@@ NOP . TNE,U A6,3 . $A YES,WANY$ NO @#@@@@-4027 DV )@@G@@CATFR 32.0 @A@@_@. >>> BEGIN NYU LOCAL CODE >>>@[@@_@. @I@@@@DW )@@G@@. FOR A TO-BE-CATALOGED FILE, A14=0 SEZ DON'T ALLOC GRANULE, JUST CHECK DX )@@G@@IF AVAIL @E@@@@. THIS CODE DOES THAT CHECK FOR POSITION GRANULAR FILEDY )@@G@@S @[@@_@. @G@@@@ JZ A14,NOGO1 . DO NOTDZ )@@G@@ ALLOC. POS, JUST CHECK @A@@_@. <<< END NYU LOCAL CODE <<<___CDGEA )@@G@@D-JCS)C9MCDIE(GC*?^[EE(NE))CTCC(#DS)DDA^[[E1[DDG*[@@@@*SDFF*@^@@_@-184 EB )@@G@@ E8END 32.0@#@@_@ DIOSTR @ @@_@EXMDI EQU DMTMEC )@@G@@AX @#@@_@ DIOEND @^@@_@-206 E8END 32.0@#@@_@ ED )@@G@@ DIOSTR @^@@_@EXPDI EQU 150 @#@@_@ DIOEND @^@@_@EE )@@G@@-235 E8END 32.0@#@@_@ DIISTR @^@@_@-236 E8END EF )@@G@@ 32.0@#@@_@ DIIEND @#@@_@ DIOSTR @B@@_@EXPRQ(2) EQEG )@@G@@U (EXMDMD+EXMDI)*EXPDMD @E@@_@EXRQDI(1) EQU 128 EH )@@G@@ . TO HAVE DI ACTIVE @A@@_@EXRQDI(2) EQU EXMDI*EXPDI @#@@_@EI )@@G@@ DIOEND @^@@@@-252,252 E8END 32.0@A@@@@. >>> BEGIN EJ )@@G@@NYU LOCAL CODE >>>@^@@@@ DO EXMT4<5 ,; @G@@@@EXPRQ(18) EQU EK )@@G@@ EXMT4*EXPT4 . SPACE NEEDED FOR REMOTE 1004'S@^@@@@ DOEL )@@G@@ EXMT4>4 ,; @G@@@@EXPRQ(18) EQU 5*EXPT4 . SPACE NEEDEDEM )@@^@@ FOR REMOTE 1004'S@A@@@@ EN @EOF @COPY,IO TEMP.1015-014-023,1015-014-023. @FREE TEMP.