@CAT,P 1015-011-023.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1015-011-023,,,130054053241,000 )@@G@@**PF**@@@@"0@@@@@@@@@@@[@RW@@@]FE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@]G@@@]F^ ;Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@2@@@@@X@@A@@@@@@@@@@@@@@@@@:@@@@@@@@@@@@@@5@@@AC )@@G@@@@@@@@@[F@@@@@@@@@@@@@@@@@@@[U@@@@@@@@@@@R@[;@@@@@@@@@@[7@@^@@@@@@@@@@@%AD )@@G@@@@@@[B@@@@@4@@Q@[^@@7@@@@@@@@@@[A@@@@@@@@@@@@@@@@@D@[.@@1@@@@@@@[1@@\@@@AE )@@G@@@@@@@@@@@@@@@@@@@[@@@@@@@["@@,@@@@@@@@@@@@@@S@@@@@@@@@@@@@@@@@@@@@@@Z@@@AF )@@G@@@@@@@?@@9@@@@@@@@@@@@@@@@@@@@@@@@@[:@@@@@@@[Z@@@@@@@@@@@@@[C@@@@@P@@.@@@AG )@@G@@@@0@[0@@@@[*@@@@@U@[D@@@@@@@@_@@@@@@@@@@@C@@@@@@@@@@[@@[[@@@@@@@@@@@B@@@AH )@@G@@@@@@@@@@@@[2@@@@@@@@@@@@@@@@@O@@$@@@@@@@@@@@H@@@@@@@@@@@E@@@@@@@@!@@@@@@AI )@@G@@@@@@@J@@]@@@@@@@[M@@@@@@@@@@[H@@@@@@@@@@@@@@@@@@@@@@@@@[$@@@@@@@@"@@I@[8AJ )@@G@@@@@@@F@@@@@@@@@@][@@@@[Q@@@@@@@@@@[?@@@@@;@@L@@@@@+@]#@[K@@@@[X@@<@@@@[9AK )@@G@@@@@@[ @@@@@@@@@@[]@@@@@@@@@@@ @@V@@@@@@@@@@@N@@@@@@@@M@@@@@@@@@@@8@@@@@@AL )@@G@@@@@@@@@@@@]^@@@@@)@@@@@@@@@@@K@[L@@@@@@@[>@[E@@>@@@@@@@@@@@@@@@@]@@[_@@@AM )@@G@@@@@@@'@@#@[+@@@@@G@@/@@@@@@@@T@@@@@@@@@@@=@@@@@@@@@@@-@[T@[(@@@@@@@@E@]CAN )@@G@@INIT1 @@@@@(@@[@@@ @ @@@[@@@@@^@@@@W@#'CASDRMPB AO )@@G@@@@@@@W@@[@@@ @ @@@[[@@@@#@@@@W^O)/ATDSYMACT @@@@[!@@[@@@AP )@@G@@ @ @@@[@@@@@[@@@@WB[FQAWDSYMBIO @@@@@@@@[@@@ AQ )@@G@@@ @@@[@@@@@B@@@@WC[UNAWDCSTART @@@@@@@@[@@@ @ @@@[@@@@@AAR )@@G@@@@@@WJH7[B[DSMALTS @@@@@@@@[@@@ @ @@@[@@@@@[@@@@WPBB9DKDAS )@@G@@CKEY @@@@[O@@[@@@ @ @@@[[@@@[E@@@@WQJG_EVDRMCPC AT )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@C@@@@X)JV+EVDROLBAK @@@@@@@@[@@@AU )@@G@@ @ @@@[@@@@@#@@@@X*J),EVDROLOUT @@@@@&@@[@@@ AV )@@G@@@ @@@[@@@@@#@@@@X:N&/EWDSMNXTP @@@@@@@@[@@@ @ @@@[[@@@@CAW )@@G@@@@@@X,K4YF[DFH @@@@@@@@[@@@ @ @@@[@@@@@^@@@@X6]0"FLDAX )@@G@@PRTCN @@@@@@@@[@@@ @ @@@[@@@@@]@@@@X'NA#DEBH )@@G@@VALA @@@@@@@@[@@@ @ @@@[@@@@@E@@@@)YAPW#EEDMIINT BI )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@^@@@@)*H*[#JEMCT @@@@@@@@[@@@BJ )@@G@@ @ @@@[@@@@@]@@@@)?K?P#VEPANWRT @@@@@@@@[@@@ BK )@@G@@@ @@@[[@@@@H@@@@),L21^]EAAPCT @@@@@@@@[@@@ @ @@@[@@@@@QBL )@@G@@@@@@);MZ6^]EINDRIV @@@@@@@@[@@@ @ @@@[@@@@@N@@@@-LM#S^^EBM )@@G@@DC @@@@] @@[@@@ @ @@@[@@@@@^@@@@-=MR?^^EAAGCCDEF BN )@@G@@@@@@@*@@[@@@ @ @@@[@@@@@[@@@@-*LEB^CEGENCCR @@@@@@@@[@@@BO )@@G@@ @ @@@[@@@@@]@@@@-(LP]^CEEXITF0 @@@@@@@@[@@@ BP )@@G@@@ @@@[@@@@@+@@@@-:MT]^WETINTL @@@@@@@@[@@@ @ @@@[@@@@@]BQ )@@G@@@@@@+HJC8^YEFSMCT @@@@@@@@[@@@ @ @@@[@@@@@#@@@@+JJ>. LEBR )@@G@@SYMCLC @@@@@@@@[@@@ @ @@@[@@@@@N@@@@+MLQ1 OEUKEYIN BS )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@<@@@@+>N!) UETEST1 @@@@@6@@[@@@BT )@@G@@ @ @@@[@@@@](@@@@1@W5 VECHKPAR @@@@[S@@[@@@ @ @@@[@@@@@ BV )@@G@@@@@@>4 T6 VEAACSDOC @@@@[N@@[@@@ @ @@@[@@@@@^@@@@>9 U8 VEBW )@@G@@DRC @@@@@@@@[@@@ @ @@@[@@@@@ @@@@>. V5 VEINASG BX )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@!@@@@&] YI VEINGEN @@@@[/@@[@@@BY )@@G@@ @ @@@[@@@@@C@@@@&\ YU VELOCTAB @@@@@@@@[@@@ BZ )@@G@@@ @@@[@@@@@^@@@@&7 Y5 VELOGM @@@@[,@@[@@@ @ @@@[@@@@@CCA )@@G@@@@@@&; ZL VERSIMSG @@@@@@@@[@@@ @ @@@[@@@@@D@@@@$# Z1 VECB )@@G@@RSTABL @@@@@@@@[@@@ @ @@@[@@@@@[@@@@$G Z/ VERSTASG CC )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@C@@@@$H ): VERSTPAR @@@@@@@@[@@@CD )@@G@@ @ @@@[@@@@@C@@@@$P )9 VESMOUTK @@@@@@@@[@@@ CE )@@G@@@ @@@[@@@@@#@@@@$X -B VESYMBKP @@@@@@@@[@@@ @ @@@[@@@@@PCF )@@G@@@@@@$) -W VECSK @@@@[3@@[@@@ @ @@@[@@@@@V@@@@$5H+\ WECG )@@G@@CSP @@@@@@@@[@@@ @ @@@[@@@@@N@@@@*KH>W WEDAPAM CH )@@G@@@@@@[P@@[@@@ @ @@@[@@@@@]@@@@*IG! WEFISTAT @@@@]C@@[@@@ CJ )@@G@@@ @@@[@@@@@B@@@@**IU! WEINIT2 @@@@@@@@[@@@ @ @@@[@@@@@HCK )@@G@@@@@@*\I-H WESMADOP @@@@[\@@[@@@ @ @@@[@@@@@B@@@@*/I,Q WECL )@@G@@IOFCS @@@@@@@@[@@@ @ @@@[@@@@@E@@@@(#@R*AKESYSSIP CM )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@^@@@@(H]1ZAKEEIH @@@@@@@@[@@@CN )@@G@@ @ @@@[@@@@@#@@@@(LL97AREINDA @@@@@@@@[@@@ CO )@@G@@@ @@@[@@@@@B@@@@(ON)DAREOSCP @@@@@@@@[@@@ @ @@@[@@@@@#CP )@@G@@@@@@(VN+(ARERMDSP @@@@['@@[@@@ @ @@@[@@@@@#@@@@(YN=9ARECQ )@@G@@SYMPER @@@@[)@@[@@@ @ @@@[@@@@@]@@@@(-N:>ARERMSRTN CR )@@G@@@@@@[<@@[@@@ @ @@@[@@@@@ @@@@(@@@@%]H8!BNEDMIINO @@@@@@@@[@@@ CY )@@G@@@ @@@[@@@@@K@@@@%$H.\BNED5CRIT @@@@@@@@[@@@ @ @@@[@@@@@#CZ )@@G@@@@@@%7F&/BOESMKEY @@@@@@@@[@@@ @ @@@[[@@@[B@@@@%'O^0BPEDA )@@G@@MSCON @@@@[%@@[@@@ @ @@@[@@@@@+@@@@?[I38BSECNSLI DB )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@A@@@@?[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@@@FO3L[QGUP )@@G@@EXFL @@@@@@@@[@@@ @ @1@ @@@@]7@@@@$MI,'][GEXDB UQ )@@G@@@@@@@@@@[@@@ @ @&@ @@@@AW@@@@%DF?0]CGDEBG @@@@@@@@[@@@UR )@@G@@ @ @N@ @@@@]<@@@@0>B7T]NGEXER @@@@@@@@[@@@ US )@@G@@@ @O@ @@@@[?@@@@3CFB_]TGEDIT @@@@@@@@[@@@ @ @Q@ @@@@@#UT )@@G@@@@@@44L),]TGLIST @@@@@@@@[@@@ @ @G@ @@@@](@@@@47L-4]TGUU )@@G@@UPDT @@@@@@@@[@@@ @ @@@[@@@@@[@@@@7)L=-]TGCONT UV )@@G@@@@@@@@@@[@@@ @ @[@]@@@@]&@@@@7-C=H]UGPLSAW @@@@@@@@[@@@UW )@@G@@ @ @>@ @@@@[]@@@@-LNOADUFEXECMACRO @@@@@@@@]@@@ UX )@@G@@@[@@@[@@@@@C@@@@+NDF8ENFNEWNAMES @@@@@@@@[@@@ @ @J@ @@@@@OUY )@@G@@@@@@+VCXUGGFCOPYRIGHT @@@@@@@@[@@@ @ @#@^@@@@@J@@@@+\C89[DGUZ )@@G@@COPYMAIN1 @@@@@@@@[@@@ @ @X@ @@@@[T@@@@+"C"/[PGEXCDS VA )@@G@@@@@@@@@@[@@@ @ @5@ @@@@@-@@@@=RHC^][GPLTVDS @@@@@@@@]@@@VB )@@G@@ @[@@@[@@@@[Q@@@@=8GX2]#GONUNIT @@@@@@@@]@@@ VC )@@G@@@[@@@[@@@@@P@@@@&IF:!]BGDSECTS @@@@@@@@]@@@ @[@@@[@@@@CTVD )@@G@@@@@@&@USE 1,DUMP. . ______@@@@@@@@@@@@@@@@@@XR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@^@@@@@$@@@@[- XS )@@G@@ ENDFILE 1 XT )@@G@@ @@@@[+ CALL ERTRAN (6, '@ADD,E 2. . ') XU )@@G@@ ]@#^8!@ADD,E 2. . ____________@@@@@@@@@@@@@@@@@@XV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[< CALL ERTRXW )@@G@@AN (6, '@ADD,E 1. . ') ]@#^81@ADD,EXX )@@G@@ 1. . ____________@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XY )@@G@@@@@@@@@@@@[= CALL ERTRAN (3) XZ )@@G@@ @@@@[> RETURN YA )@@G@@ @@@@[&50 FLD (18, YB )@@G@@18, HEAP (HEAPPT, 3)) = PTR (HASH) @@@@[$ YC )@@G@@ PTR (HASH) = HEAPPT YD )@@G@@ @@@@[* HEAP (HEAPPT, 1) = NAME (1) YE )@@G@@ @@@@[( FLD (0, STUB, HEAP (HEAPPT, 2))YF )@@G@@ = FLD (0, STUB, NAME (2)) @@@@[% FLD (0, 18, HYG )@@G@@EAP (HEAPPT, 3)) = TNAME @@@@[: YH )@@G@@ YI )@@G@@ @@[@[:C RETRIEVE STATUS BITS YJ )@@G@@ @@@@[: YK )@@G@@ @@@@[:60 GEN = .FALSE.YL )@@G@@ @@@@[? YM )@@G@@ ERR = .FALSE. YN )@@G@@ @@@@[! IN = .FALSE. YO )@@G@@ @@@@[, TNAME = FLD (0, 18, HEAP (HEAPPYP )@@G@@T, 3)) @@@@[\ FLD (35, 1, GYQ )@@G@@EN) = FLD (33, 1, HEAP (HEAPPT, 2)) @@@@[0 YR )@@G@@ FLD (35, 1, ERR) = FLD (34, 1, HEAP (HEAPPT, 2)) YS )@@G@@ @@@@[1 FLD (35, 1, IN) = FLD (35, 1, HEAP (HEAPPT, 2)) YT )@@G@@ @@@@[2 YU )@@G@@ @@[@[2C PERFORM UPDATYV )@@G@@ES @@@@[2 YW )@@G@@ YX )@@G@@ @@@@[2 GO TO (70, 80, 90, 100), UPNO YY )@@G@@ @@@@[3 YZ )@@G@@ @@@@[370 GEN = .TRUE. ZA )@@G@@ @@@@[4 ZB )@@G@@ FLD (33, 1, HEAP (HEAPPT, 2)) = 1 ZC )@@G@@ @@@@[5 RETURN ZD )@@G@@ @@@@[6 ZE )@@G@@ @@@@[680 ERR = .TRUE. ZF )@@G@@ @@@@[7 ZG )@@G@@ FLD (34, 1, HEAP (HEAPPT, 2)) = 1 ZH )@@G@@ @@@@[8 RETURN ZI )@@G@@ @@@@[9 ZJ )@@G@@ @@@@[990 IN = .TRUE. ZK )@@G@@ @@@@[' ZL )@@G@@ FLD (35, 1, HEAP (HEAPPT, 2)) = 1 ZM )@@G@@ @@@@[; RETURN ZN )@@G@@ @@@@[/ ZO )@@G@@ @@@@@@@@#@@ @@@@@^@@@@[/100 ZP )@@G@@ RETURN ZQ )@@G@@ @@@@[. ZR )@@G@@**PF**@@@[K1@@@@@@@@@@@[@#'@@@]FE /^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZV )@@G@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@ZW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZX )@@G@@@@@@@@@@@@@@@@@@@C@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZZ )@@G@@@@@@@D@@ @@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@FAF )@@G@@BCCM @@@@@@@@[@@@ @ @[@]@@@@@D@@@@W@L>,BSEPCCD AG )@@G@@@@@@@@@@[@@@ @ @^@ @@@@@9@@@@WDH08CTFRSET @@@@@@@@[@@@AH )@@G@@ @ @D@ @@@@@P@@@@X]C&HGGFLEXI @@@@@@@@[@@@ AI )@@G@@@ @H@ @@@@ 2@@@@XRD8XGRFDECL @@@@@@@@[@@@ @ @8@ @@@@C.AJ )@@G@@@@@@@ @@@@[]@@@@-LNOADUFEXECMACRO AQ )@@G@@@@@@@@@@]@@@ @[@@@[@@@@@C@@@@+NDF8ENFNEWNAMES @@@@@@@@[@@@AR )@@G@@ @ @J@ @@@@@O@@@@+VCXUGGFCOPYRIGHT @@@@@@@@[@@@ AS )@@G@@@ @#@^@@@@@J@@@@+\C89[DGCOPYMAIN1 @@@@@@@@[@@@ @ @X@ @@@@[TAT )@@G@@@@@@+"C"/[PGEXCDS @@@@@@@@[@@@ @ @5@ @@@@@-@@@@=RHC^][GAU )@@G@@PLTVDS @@@@@@@@]@@@ @[@@@[@@@@[Q@@@@=8GX2]#GONUNIT AV )@@G@@@@@@@@@@]@@@ @[@@@[@@@@@P@@@@&IF:!]BGDSECTS @@@@@@@@]@@@AW )@@G@@ @[@@@[@@@@CT@@@@&@USE 1,DUMP. . DK )@@G@@______@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DL )@@G@@@@]@@^@@@@@$@@@@[- ENDFILE 1 DM )@@G@@ @@@@[+ CALL ERTRAN (6, '@ADDDN )@@G@@,E 2. . ') ]@#^8!@ADD,E 2. . ______DO )@@G@@______@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[ RETDT )@@G@@URN @@@@[&DU )@@G@@50 FLD (18, 18, HEAP (HEAPPT, 3)) = PTR (HASH) DV )@@G@@ @@@@[$ PTR (HASH) = HEAPPT DW )@@G@@ @@@@[* HEAP (HEAPPT, 1) = NAME (DX )@@G@@1) @@@@[( FLD (0,DY )@@G@@ STUB, HEAP (HEAPPT, 2)) = FLD (0, STUB, NAME (2)) @@@@[%DZ )@@G@@ FLD (0, 18, HEAP (HEAPPT, 3)) = TNAME EA )@@G@@ @@@@[: EB )@@G@@ @@[@[:C RETRIEVE STATUS BITS EC )@@G@@ @@@@[: ED )@@G@@ @@@@[:EE )@@G@@60 GEN = .FALSE. EF )@@G@@ @@@@[? ERR = .FALSE. EG )@@G@@ @@@@[! IN = .FALSE. EH )@@G@@ @@@@[, TNAME =EI )@@G@@ FLD (0, 18, HEAP (HEAPPT, 3)) @@@@[\EJ )@@G@@ FLD (35, 1, GEN) = FLD (33, 1, HEAP (HEAPPT, 2)) EK )@@G@@ @@@@[0 FLD (35, 1, ERR) = FLD (34, 1, HEAP (HEAPPTEL )@@G@@, 2)) @@@@[1 FLD (35, 1, IN) = FLD (35EM )@@G@@, 1, HEAP (HEAPPT, 2)) @@@@[2 EN )@@G@@ @@[@[2EO )@@G@@C PERFORM UPDATES EP )@@G@@ @@@@[2 EQ )@@G@@ @@@@[2 GO TO (70, 80, 90, 100), ER )@@G@@UPNO @@@@[3 ES )@@G@@ @@@@[3ET )@@G@@70 GEN = .TRUE. EU )@@G@@ @@@@[4 FLD (33, 1, HEAP (HEAPPT, 2)) = 1 EV )@@G@@ @@@@[5 RETURN EW )@@G@@ @@@@[6 EX )@@G@@ @@@@[6EY )@@G@@80 ERR = .TRUE. EZ )@@G@@ @@@@[7 FLD (34, 1, HEAP (HEAPPT, 2)) = 1 FA )@@G@@ @@@@[8 RETURN FB )@@G@@ @@@@[9 FC )@@G@@ @@@@[9FD )@@G@@90 IN = .TRUE. FE )@@G@@ @@@@[' FLD (35, 1, HEAP (HEAPPT, 2)) = 1 FF )@@G@@ @@@@[; RETURN FG )@@G@@ @@@@[/ FH )@@G@@ @@@@@@FI )@@G@@@@#@@ @@@@@^@@@@[/100 RETURN FJ )@@G@@ @@@@[. FK )@@G@@ **PF**@@@[,:@@@@@@@@@@@[@ 2@@@]FE /^@@@@@@@@@@@@FL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FN )@@G@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@G@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO )@@G@@@@@@@J@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@^@@@FP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@FQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I@@@@@@FR )@@G@@@@@@@#@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@FS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FT )@@G@@@@@@@@@@@@@@@@@@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@FU )@@G@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Q@@@@@@@@@@@@@@@FV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FX )@@G@@@@@@@E@@@@@@@@@@@@@@F@@@@@@@@@@@@@@@@@@@@R@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@FY )@@G@@@@@@@@@@@@@@@@@@@@@@E@@RERSD @@@@@@@@[@@@ @ @[@]@@@@@NFZ )@@G@@@@@@W@CNT OFERAT @@@@@@@K[@@@ @ @#@^@@@@[V@@@@WNCPI OFGA )@@G@@CGOS @@@@@@@@[@@@ @ @=@ @@@@]3@@@@X,FW@ UFCGIG GB )@@G@@@@@@@@@@[@@@ @ @.@ @@@@^;@@@@)-C:$A#FERRS @@@@@C@K[@@@GC )@@G@@ @ @@@[@@@@@X@@@@>WD9N[NFPFCGSB @@@@@@@@[@@@ @ @Z@ @@@@^_GE )@@G@@@@@@!LGY+GLFCGRS @@@@@@@@[@@@ @ @P@ @@@@[L@@@@2KO6.[GGGF )@@G@@CGAB @@@@@L@@[@@@ @ @I@ @@@@ @@@@3-J@5[KGERSY GG )@@G@@@@@@@@@K[@@@ @ @G@ @@@@[)@@@@8&J$3[NGCASES @@@@@@@@[@@@GH )@@G@@ @ @[@]@@@@@X@@@@'AK^O[NGCGTB @@@@@@@@[@@@ GI )@@G@@@ @Q@ @@@@[P@@@@'@@@@@@@[@@@@@@G FI@@@@@@@[@@@@GW )@@G@@@@M FL@@@@@@@[@@@@@@% FP@@@@@@@[@@@@@@% FW@@@@@@@[@@@@@@S F<@@@@@@@[@@@@GX )@@G@@@@0 F<@@@@@@@[@@@@@@% F<@@@@@@@[@@@@@@M FO@@@@@@@[@@@@@@G FG@@@@@@@[@@@@GY )@@G@@@@= E!@@@@@@@[@@@@@@2 F@@@[ B<@@@@@0@B____@@B001@@^ F:'^@@88@@[@@@@@[@@@GZ )@@G@@@@@@@@@@@@@@SORT ERROR CODE @@@@@@@@M HC@@@@@@@@[@@[@@[ G%@/T ;7@@@@@@HA )@@G@@@@@@@@@@@@@@@]@ ;7A7J ;7A Y&@@@__"@@@ Y$(C@ =L @@ =LHW )@@G@@CC) =KG8)@@H!G) =K/K@ ==9?K =)A#K["FA#)[EU9?K =+C9K@@@N8K@@T/K@[EU'^@[DV@@[["U@ASG,TIC )@@G@@ ILLEGAL BUFFER LENGTH PARAMETER ( < 1 OR > 65K WORDS ). TOO MAID )@@G@@NY PARAMETERS IN SUBROUTINE CALL. EOF, EOT, PARITY ERROR, OR TRANSLATEIE )@@G@@ ERROR DETECTED. ILLEGAL UNIT NUMBER ( < 0 OR > 49 ).READ ATTEMPT AFTERIF )@@G@@ WRITE OPERATION. LOGICAL UNIT IS NOT ASSIGNED. LOGICAL UNIT NOT ASSIGNEIG )@@G@@D TO TAPE. INPUT OUTPUT[-&[Z\[=I[+Y'^@[W1/GK[V;@@^ >Y IH )@@G@@ II )@@G@@ ERROR DETECTED IN IOTP DURING IJ )@@G@@ ON LUN . __D &5@@[@@@@]O &-@@@[X=@@@[Y\@@@@@@@@@@@@@@@@@@@@@[X=@@@[XRIK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@IO )@@G@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0 1 IS )@@G@@ 2 3 4 5 6 7 IT )@@G@@ 8 9 10 11 12 13 IU )@@G@@ 14 15 16 17 18 19 IV )@@G@@ 20 21 22 23 24 25 IW )@@G@@ 26 27 28 29 30 31 IX )@@G@@ 32 33 34 35 36 37 IY )@@G@@ 38 39 40 41 42 43 IZ )@@G@@ 44 45 46 47 48 49 JA )@@G@@ _____"@@@@@@@@@@@@ ERROR OCCURED WHILE CLOSING FILES AT RUN TERMINJB )@@G@@ATION.@]D %MREQUESTED OPERATION IS ILLEGAL ON THIS UNIT. @BRKPT PRINTJC )@@G@@$ . JD )@@G@@ JE )@@G@@ @@@@@@REREAD ATTEMPT BEFORE FIRST READ ON CARD RJF )@@G@@EADER.ATTEMPT TO READ BEYOND END OF INPUT ON CARD READER. @@[ %*[YR %*JG )@@G@@0@@ :#@@[ :W@BRKPT PUNCH$ . C,E. C,B. @@@@@@@@@@@@K@@[Z_C@@[Z7L@@[Z_JH )@@G@@*@@[Z_(@@[Z_D@@[Z_)@@[Z_%@@[-G:@@[-GM@@[-DE@@[+LF@@[+N@@@@@@@@@@@@@@B>:8JI )@@G@@@@ >:;@@C>:8)@B>:8)@C>:8)@ >:;)@C>:8)@^>:.)@^>:.^@@[)*[@@[Z: @@[)>@@@[)*JJ )@@G@@D@@[)$E@@[-UF@@[+T]@@[Z:[@@[Z!>8@^@@=8@[@@UNRECOGNISED STATUS CODE = .JK )@@G@@LOSS OF POSITION ON TAPE UNIT -- OPERATOR ANSWERED ERROR MESSAGE WITH B.JL )@@G@@NINE TRACK TAPES MUST BE ODD PARITY.OPERATOR DECLARED TAPE UNIT DOWN. JM )@@G@@@@[@@@@@] :!@@[ :)@@[ ?>@@@@@@@@@@@@C@@[+*D@@[N@@ 3$N@@ 3(N@@ 3:9@@ 2XKF )@@G@@XA XB XC XD XE XF KG )@@G@@XG XH XI XJ XK XL KH )@@G@@XM XN XO XP XQ XR KI )@@G@@XS XT XU XV XW XX KJ )@@G@@XY XZ STOP @#] 3\@@Q /I(1P6G13.5) @@[[_F@@[["UKK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T F @@@@@@@@@@@@@@@@@@@@@@@@@@[ /IKL )@@G@@)^@@@@)@)@@@@@[@@O@@[@@P@@@@@@^@@@@@@@@@@@@@@@C@K^*@@@@@@@@@KB2@@@@@@@@@KM )@@G@@KE")@@@@@@@@KI$^@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@KS&DU@@@@@@@KV\:0)@@@@@@KN )@@G@@KY;&?*@@@@@@K+>KF9@@@@@@L#:R<:1U1+@@L=2ZFD3KL$N,M '1>J<-:>D)M$+H-6E_G=3LKO )@@G@@NC$4/$D-YUC=N(,RRQ!,899#OE5"X'<8ZU"@O:"5-8MO:II&PH==5(FESV96UT(3\2B=K@I?7N@@@@@@A$\ 5HA:\ 5HA\\ 5HA3\ 5HA7\ 5HA<\ 5GLOCATION OF ERROR KQ )@@G@@IS MARKED BY * IN FOLLOWING IMAGE. @@C 5?@@[ 6,@@[ 6,@@[ 6,@@^ 54@@^ 58KR )@@G@@@@A 5/@@[ 6,@@ 6]INTERNAL TYPE AND FORMAT TYPE ARE INCOMPATIBLE. ILLEGAKS )@@G@@L OCTAL INPUT. ILLEGAL INTEGER INPUT. TOO MANY DIGITS IN INTEGER INPKT )@@G@@UT. ILLEGAL CHARACTER IN INPUT. @[D 6D@[C 6MILLEGAL FORMAT CHARACTERKU )@@G@@S WERE ACCEPTED AS BLANKS. RECORDS EXCEEDING MAXIMUM LENGTH ARE FAULTKV )@@G@@Y. @@@@@@ @@ @@@@@@@@@NBMSG$() @]D 5^@[Q ;7@@[ 5H@[Q 5H??????KW )@@G@@@_D 7N@_F 67@_D 7]@_F 67@_C 7F@_# 7WEXECUTION TERMINATED BY AN ATTEMPT TKX )@@G@@O READ PAST AN END-OF-FILE. EXECUTION TERMINATED BY AN ATTEMPT TO PASSKY )@@G@@ END-OF-TAPEA NON INTEGRAL BLOCK WAS READ FROM MAGNETIC TAPEABNORMAL I/OKZ )@@G@@ CONDITION DETECTED - STATUS CODE = -- INAPPROPRIATE UNITOUTPUT SYMBILA )@@G@@ONT UNIT REFERENCED BY A READ STATEMENT. INPUTOUTPUT WRITE READ __D 7ZLB )@@G@@@@@@@@@@@@@@ SEQUENCE N LINE N ERROR TERMINATION IN ROUTILC )@@G@@NE CALLED AT SEQUENCE NUMBER OF ROGRAMA COMPLD )@@G@@UTED GO TO THAT WAS OUT OF RANGE WAS DETECTED AT**PF**@@@[+.@@@@@@@@@@@[LE )@@G@@@B]@@@]FE /^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LG )@@G@@@@@@@@@@U@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@J@@@LH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@LI )@@G@@@@@@@@@@@@@@@@@@@@@@I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LJ )@@G@@@@@@@@@@@@@@@@@@@L@@ @@@@@@@@@@@@@@@@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LK )@@G@@@@@@@D@@@@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X@@@@@@@@@@@@@@@LL )@@G@@@@@@@[@@@@@@@@@@@@@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R@@@LN )@@G@@@@@@@S@@A@@@@@@@@@@@K@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@V@@@LO )@@G@@@@@@@W@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@Z@@@@@@@@@@@@@@@LP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@LQ )@@G@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N@@Q@@@@@@@@@@@]@@@LR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@Y@@@@@@@@@@@E@@ZRTEX @@@@@@@@[@@@LS )@@G@@ @ @A@ @@@@[#@@@@W@CRF OFRTFF @@@@@@@@[@@@ LT )@@G@@@ @^@ @@@@@2@@@@X#CRI OFRTII @@@@@@@@[@@@ @ @^@ @@@@@LI%@@@@*^DMIENFEXRN @@@@@@@@[@@@ MD )@@G@@@ @#@^@@@@@T@@@@*(D/VENFEXAI @@@@@@@@[@@@ @ @U@ @@@@[NME )@@G@@@@@@(]EXKENFRTER @@@@@@@@[@@@ @ @F@ @@@@@V@@@@%PE*MGKFMF )@@G@@EXCN @@@@@@@@[@@@ @ @E@ @@@@@_@@@@%0E3PGKFEXLX MG )@@G@@@@@@@@@@[@@@ @ @+@ @@@@#]@@@@:\F2VGKFEXGP @@@@@@@@[@@@MH )@@G@@ @ @A@ @@@@]:@@@@,1E$,GMFEXED @@@@@@@@[@@@ MI )@@G@@@ @A@ @@@@^$@@@@1WG7KGMFPMDP @@@@@T@@[@@@ @ @R@ @@@@@9MJ )@@G@@@@@@6#E:ZGPFEXST @@@@@@@@[@@@ @ @$@ @@@@EV@@@@6/F%5GPFMK )@@G@@RTTA @@@@@@@@[@@@ @ @#@^@@@@[$@@@[[RJR?[KGRTSC ML )@@G@@@@@@@@@@[@@@ @ @ @ @@@@[=@@@[]"JU/[KGEXOP @@@@@@@@[@@@MM )@@G@@ @ @E@ @@@@]^@@@[^+KVE[WGEXDT @@@@@@@@[@@@ MN )@@G@@@ @T@ @@@@^5@@@[A&E/=]CGEXBS @@@@@@@@[@@@ @ @W@ @@@@AQMO )@@G@@@@@[FVKJ6]FGEXLL @@@@@@@@[@@@ @ @J@ @@@@]\@@@[L1G*$]JGMP )@@G@@EXON @@@@@@@@[@@@ @ @/@ @@@@#+@@@[O)I]=]JGEXEC MQ )@@G@@@@@@@@@@[@@@ @ @[@]@@@@CT@@@[S]J/7]LGEXAS @@@@@@@@[@@@MR )@@G@@ @ @X@ @@@@]+@@@[)VI;#]MG____________________________________MS )@@G@@________________________________________________________________________MT )@@G@@________________________________________________________________________MU )@@G@@________________________________________________________________________MV )@@G@@________________________________________________________________________MW )@@G@@________________________________________________________________________MX )@@G@@________________________________________________________________________MY )@@G@@________________________________________________________________________MZ )@@G@@________________________________________________________________________NA )@@G@@________________________________________________________________________NB )@@G@@________________________________________________________________________NC )@@G@@________________________________________________________________________ND )@@G@@________________________________________________________________________NE )@@G@@________________________________________________________________________NF )@@G@@________________________________________________________________________NG )@@G@@________________________________________________________________________NH )@@G@@________________________________________________ 'SEX', SX, @A@@@RNI )@@G@@ * 'D-O-B', BIRTH ) @[@@@RC @F@@@R GP(1)=GROUP(NJ )@@G@@CSDB,'BQ-PROG',PROG,'BQ-SEQ',SEQ,'BQ-INS',INST, @^@@@R *'BQ-MO',ERRMNK )@@G@@O, @E@@@R *'BQ-DATE',DATE,'PART-ONE',SCR(1),'PART-TWO',SCR(2), NL )@@G@@@^@@@R *'BQ-ITEMS',BFR) @[@@@RC @G@@@R GP(2)=GROUP(CSDB,'NM )@@G@@JES-PROG',PROG,'JES-SEQ',SEQ,'JES-INS',INST, @^@@@R *'JES-MO',ERRNN )@@G@@MO, @G@@@R *'JES-DATE',DATE,'JES-SM-RW',SCR(1),'JES-SM-SS',SCR(2),NO )@@G@@'JES-VO-RW',@F@@@R *SCR(3),'JES-VO-SS',SCR(4),'JES-IM-RW',SCR(5),'JENP )@@G@@S-IM-SS', @F@@@R *SCR(6),'JES-AU-RW',SCR(7),'JES-AU-SS',SCR(8),'JENQ )@@G@@S-AL-RW', @F@@@R *SCR(9),'JES-AL-SS',SCR(10),'JES-MA-RW',SCR(11),'NR )@@G@@JES-MA-SS', @F@@@R *SCR(12),'JES-WD-RW',SCR(13),'JES-WD-SS',SCR(14),NS )@@G@@'JES-SA-RW',@F@@@R *SCR(15),'JES-SA-SS',SCR(16),'JES-RE-RW',SCR(17),NT )@@G@@'JES-RE-SS',@D@@@R *SCR(18),'JES-DE-RW',SCR(19),'JES-DE-SS',SCR(20),NU )@@G@@@C@@@R *'JES-ITEMS1',BFR,'JES-ITEMS2',BFR(14)) @[@@@RC @G@@@RNV )@@G@@ GP(3)=GROUP(CSDB,'PSI-PROG',PROG,'PSI-SEQ',SEQ,'PSI-INS',INST, NW )@@G@@@^@@@R *'PSI-MO',ERRMO, @E@@@R *'PSI-DATE',DATE,'PSI-AL-RW',SCNX )@@G@@R(1),'PSI-AL-SS',SCR(2),@E@@@R *'PSI-SN-RW',SCR(3),'PSI-SN-SS',SCR(4NY )@@G@@),'PSI-DI-RW', @D@@@R *SCR(5),'PSI-DI-SS',SCR(6),'PSI-EX-RW',SCR(NZ )@@G@@7), @E@@@R *'PSI-EX-SS',SCR(8),'PSI-DE-RW',SCR(9),'PSI-DE-SS', OA )@@G@@@ @@@R *SCR(10),'PSI-ITEMS',BFR)@[@@@RC @F@@@R GP(4)=GROUP(OB )@@G@@CSDB,'WI-PROG',PROG,'WI-SEQ',SEQ,'WI-INS',INST, @^@@@R *'WI-MO',ERRMOC )@@G@@O, @F@@@R *'WI-DATE',DATE,'WI-SM',SCR(6),'WI-ADJ',SCR(5),'WI-L',SOD )@@G@@CR(4),@F@@@R *'WI-RE',SCR(3),'WI-K',SCR(2),'WI-SC',SCR(1),'WI-ITEMS'OE )@@G@@,BFR) @[@@@RC @^@@@R READ, DEBUG, NSTOP@#@@@R NUMMO = 1 OF )@@G@@@#@@@R ICOUNT=0 @[@@@RC @^@@@RC FIND FIRST CLIENT@[@@@ROG )@@G@@C @A@@@R X=FIND(CSDB,1,FIRST,CLIENT,0) @^@@@RC GET THE COH )@@G@@LIENT @B@T@R IF(DEBUG.EQ.1) PRINT 75, KASE,RC @C@T@R 75 FORMATOI )@@G@@(' CLIENT NO.', I6,' RACE=',I2) @ @@@R 100 Y = FETCH(CSDB,1,CLIENT)OJ )@@G@@@ @@@R IF(X.LE.0) GO TO 990 @^@@@R IF(RC.EQ.'W') RC=1@^@@@ROK )@@G@@ IF( RC.EQ.'B')RC=2@^@@@R IF(RC.EQ.'N') RC=3@^@@@R IF(RC.OL )@@G@@EQ.'H') RC=4@^@@@R IF(RC.EQ.'A') RC=5@#@T@R RC=RC-1 @^@@@TOM )@@G@@ RC=IABS(RC-1) @B@@@T IF(DEBUG.EQ.1) PRINT 75, KASE,RC ON )@@G@@@C@@@T 75 FORMAT(' CLIENT NO.', I6,' RACE=',I2) @^@@@R ICOUNTOO )@@G@@=ICOUNT + 1 @A@@@R IF(ICOUNT.GE.NSTOP) GO TO 600 @[@@@RC @A@@@ROP )@@G@@C LOOK AT THE VARIOUS TESTS @[@@@RC @^@@@RC GP(1) --- BOQ )@@G@@Q TEST@[@@@RC @B@@@R X = FIND(CSDB,1,FIRST,GP(1),CLIENT) @A@@@ROR )@@G@@ IF(DEBUG.EQ.1) PRINT 175, X @ @@@R IF(X.LE.0) GO TO 200 OS )@@G@@@ @@@R 150 Y = FETCH(CSDB,1,GP(1)) @A@@@R NUMMO = CNVRT(BIRTH,DATEOT )@@G@@) @C@@@R IF(DEBUG.EQ.1) PRINT 12, BIRTH,DATE,NUMMO @D@@@R 12 OU )@@G@@FORMAT(' BIRTH=',I5,' DATE=',I5,' NUMMO=',I5) @E@@@R IF(DEBUG.EQ.OV )@@G@@1) PRINT 11, KASE,INST,PROG,SEQ,DATE,RC,SX@E@@@R 10 WRITE(10,11) KASEOW )@@G@@,INST,PROG,SEQ,DATE,RC,SX,NUMMO @B@@@R *,SCR(1),SCR(2),ERRMO,(BFOX )@@G@@R(J),J=1,7) @D@@@R 11 FORMAT(1X,I6,I2,2I1,I4,2I1,I3,I2,2I3/14X,7A6) OY )@@G@@@B@@@R X = FIND(CSDB,1,NEXT,GP(1),CLIENT) @A@@@R IF(DEBUG.EQ.OZ )@@G@@1) PRINT 175, X @B@@@R 175 FORMAT(' BQ TEST TAG=',O12) @ @@@RPA )@@G@@ IF(X.LE.0) GO TO 200 @#@@@R GO TO 150 @[@@@RC @ @@@RPB )@@G@@C GP(2) ----- JES TEST @[@@@RC @B@@@R 200 X= FIND(CSDB,1,FIRPC )@@G@@ST,GP(2),CLIENT) @A@@@R IF(DEBUG.EQ.1) PRINT 275,X @ @@@R PD )@@G@@IF(X.LE.0) GO TO 300 @ @@@R 250 Y = FETCH(CSDB,1,GP(2)) @A@@@R PE )@@G@@NUMMO = CNVRT(BIRTH,DATE) @C@@@R IF(DEBUG.EQ.1) PRINT 12, BIRTHPF )@@G@@,DATE,NUMMO @E@@@R IF(DEBUG.EQ.1) PRINT 21, KASE,INST,PROG,SEQ,DATEPG )@@G@@,RC,SX@E@@@R 20 WRITE(11,21) KASE,INST,PROG,SEQ,DATE,RC,SX,NUMMO, PH )@@G@@@D@@@R *(SCR(J),J=1,20,2),(SCR(J),J=2,20,2),ERRMO,BFR @F@@@R 21 PI )@@G@@FORMAT(1X,I6,I2,2I1,I4,2I1,I3,20I2,4X,I3/14X,11A6/14X,11A6/ @#@@@R *PJ )@@G@@ 14X, 4A6) @B@@@R X = FIND(CSDB,1,NEXT,GP(2),CLIENT) @A@@@R PK )@@G@@IF(DEBUG.EQ.1) PRINT 275, X @B@@@R 275 FORMAT(' JES TEST TAG=', OPL )@@G@@12) @ @@@R IF(X.LE.0) GO TO 300 @#@@@R GO TO 250 @[@@@RPM )@@G@@C @ @@@RC GP(3) ---- PSI TEST @[@@@RC @B@@@R 300 X = FIPN )@@G@@ND(CSDB,1,FIRST,GP(3),CLIENT) @A@@@R IF(DEBUG.EQ.1) PRINT 325, X PO )@@G@@@B@@@R 325 FORMAT(' PSI TEST TAG =', O12) @ @@@R IF(X.LE.O) GPP )@@G@@O TO 400 @ @@@R 350 Y = FETCH(CSDB,1,GP(3)) @A@@@R NUMMO = CNVRPQ )@@G@@T(BIRTH,DATE) @C@@@R IF(DEBUG.EQ.1) PRINT 12, BIRTH,DATE,NUMMO PR )@@G@@@E@@@R IF(DEBUG.EQ.1) PRINT 31, KASE,INST,PROG,SEQ,DATE,RC,SX@E@@@RPS )@@G@@ 30 WRITE(12,31) KASE,INST,PROG,SEQ,DATE,RC,SX,NUMMO, @C@@@R *PT )@@G@@(SCR(J),J=1,10),ERRMO,(BFR(J),J=1,22) @F@@@R 31 FORMAT(1X,I6,I2,2IPU )@@G@@1,I4,2I1,I3,20I2,I3/14X,11A6/14X,11A6) @B@@@R X = FIND(CSDB,1,NEPV )@@G@@XT,GP(3),CLIENT) @A@@@R IF(DEBUG.EQ.1) PRINT 325, X @ @@@R PW )@@G@@IF(X.LE.0) GO TO 400 @#@@@R GO TO 350 @[@@@RC @ @@@RC PX )@@G@@ GP(4) ---- WI TESTS @[@@@RC @B@@@R 400 X = FIND(CSDB,1,FIRST,GPPY )@@G@@(4),CLIENT) @A@@@R IF(DEBUG.EQ.1) PRINT 425, X @B@@@R 425 FORMATPZ )@@G@@(' WI TEST TAG=', O12) @ @@@R IF(X.LE.0) GO TO 500 @ @@@RQA )@@G@@ 450 Y = FETCH (CSDB,1,GP(4))@A@@@R NUMMO = CNVRT(BIRTH,DATE) QB )@@G@@@C@@@R IF(DEBUG.EQ.1) PRINT 12, BIRTH,DATE,NUMMO @E@T@R IF(DEBQC )@@G@@UG.EQ.1) PRINT 41, KASE,INST,SEQ,DATE,RC,SX @E@@@T IF(DEBUG.EQ.QD )@@G@@1) PRINT 41, KASE,INST,PROG,SEQ,DATE,RC,SX@E@@@R 40 WRITE(13,41) KASEQE )@@G@@,INST,PROG,SEQ,DATE,RC,SX,NUMMO, @B@@@R *(SCR(J),J=1,6),ERRMO,(BFQF )@@G@@R(J),J=1,21)@F@@@R 41 FORMAT(1X,I6,I2,2I1,I4,2I1,I3,6I2,I3/14X,11A6/14QG )@@G@@X,10A6) @B@@@R X = FIND (CSDB,1,NEXT,GP(4),CLIENT) @A@@@R QH )@@G@@IF(DEBUG.EQ.1) PRINT 425, X @ @@@R IF(X.LE.O) GO TO 500 @#@@@RQI )@@G@@ GO TO 450 @[@@@RC @ @@@RC FIND THE NEXT CLIENT @[@@@RQJ )@@G@@C @A@@@R 500 X = FIND(CSDB,1,NEXT,CLIENT,0)@B@T@R IF(DEBUG.EQ.QK )@@G@@1) PRINT 75, KASE,RC @ @@@R IF(X.LE.0) GO TO 600 @#@@@R QL )@@G@@GO TO 100 @[@@@RC @[@@@RC @^@@@RC NO MORE CLIENTS @[@@@RQM )@@G@@C @^@@@R 600 PRINT 610,ICOUNT @G@@@R 610 FORMAT('0 --- END OF REQQN )@@G@@UESTED CLIENTS IN DATABASE -- NUMBER PROCE@#@@@R *SSED=',I10) @#@@@RQO )@@G@@ ENDFILE 10 @#@@@R ENDFILE 11 @#@@@R ENDFILE 12 @#@@@RQP )@@G@@ ENDFILE 13 @#@@@R REWIND 10 @#@@@R REWIND 11 @#@@@RQQ )@@G@@ REWIND 12 @#@@@R REWIND 13 @#@@@R STOP DONE @[@@@RQR )@@G@@C @ @@@RC*** ERROR PROCESSING ******@[@@@RC @#@@@R 800 PRINT QS )@@G@@805 @E@@@R 805 FORMAT('0*** ERROR*** -- UNABLE TO ATTACH DATABASE') QT )@@G@@@#@@@R GO TO 1000 @#@@@R 990 PRINT 995 @G@@@R 995 FORMAT('0 **QU )@@G@@*ERROR*** -- UNABLE TO FIND FIRST CLIENT RECORD') @#@@@R 1000 STOP EQV )@@G@@RROR @[@@@RC @F@@@TC FUNCTION TO CONVERT BIRTHDATE BACK TO NUMQW )@@G@@BER OF MONTHS @G@@@TC OLD PERSON WAS WHEN TEST WAS TAKEN (THIS IQX )@@G@@*[S@@@*SDFF*@ @@@@C-----NAME OF PROGRAM COSLOP2@F@@@@C-----COMPREHENSIVQY )@@G@@E PROCESS-RESPONSE MODEL OF SLOPE DEVELOPMENT @C@@@@C-----BY FRANK AHNQZ )@@G@@ERT, UNIVERSITY OF MARYLAND@[@@@@C @D@@@@C----- M A I N P RRA )@@G@@ O G R A M ------------- @[@@@@C @G@@@@C-----MAIN PROGRAM REGULRB )@@G@@ATES SEQUENCE OF EVENTS, CALLS SUBROUTINES, @D@@@@C AND RECOMPUTRC )@@G@@ES THE CHANGING SLOPE PARAMETERS @G@@@@ DIMENSION X(100),Y(100),RD )@@G@@BX(100),BY(100),TX(100),TY(100),C(100), @G@@@@ 1CC(100),W(100),V(1RE )@@G@@00),SLOP(100),BSLOP(100),EQUI(100),DOWN(100), @#@@@@ 2STAT(100) RF )@@G@@@C@@@@C-----INTRODUCTION OF FLOATING-POINT CONSTANTS @G@@@@ READ (RG )@@G@@5,1) WE1,WE2,WE3,WCON,COPT,P,BED1L,BED1U,BED2L,BED2U,DIP, @G@@@@ 1RH )@@G@@XLEFT,XRIGHT,YCUT1L,YCUT1R,YCUT2L,YIC2L,YCUT2R,YIC2R,YCUT3L,YDC3L,@B@@@@RI )@@G@@ 2YCUT3R,YDC3R,FLU,COH,TW1,TW2,TWW2 @^@@@@ 1 FORMAT (F10.4) RJ )@@G@@@B@@@@C-----INTRODUCTION OF INTEGER CONSTANTS @F@@@@ READ (5,2) NRK )@@G@@,M,IWR,IPT,NOCUT,ICUT,ISID,NRECUT,IREC,ISTR, @^@@@@ 1ITRANS,NUMBERL )@@G@@R @#@@@@ 2 FORMAT (I8)@D@@@@C-----LISTING OF VALUES OF CONSTANTSRM )@@G@@ IN THE PRINTOUT @G@@@@ WRITE (6,3) WE1,WE2,WE3,WCON,COPT,P,BED1L,RN )@@G@@BED1U,BED2L,BED2U,DIP, @G@@@@ 1XLEFT,XRIGHT,YCUT1L,YCUT1R,YCUT2L,YIRO )@@G@@C2L,YCUT2R,YIC2R,YCUT3L,YDC3L,@B@@@@ 2YCUT3R,YDC3R,FLU,COH,TW1,TW2,TRP )@@G@@WW2 @E@@@@ 3 FORMAT (10X,24HFLOATING-POINT CONSTANTS//(20X,F10.4)) RQ )@@G@@@F@@@@ WRITE (6,4) N,M,IWR,IPT,NOCUT,ICUT,ISID,NRECUT,IREC,ISTR, RR )@@G@@@^@@@@ 1ITRANS,NUMBER @D@@@@ 4 FORMAT (10X,17HINTEGER CONSTANRS )@@G@@TS//(17X,I8)) @A@@@@C-----DEFINITION OF INITIAL PROFILE @B@@@@ RT )@@G@@IF (IPT.EQ.1) CALL PROFI1 (X,Y,N) @B@@@@ IF (IPT.EQ.2) CALL PROFIRU )@@G@@2 (X,Y,N) @B@@@@ IF (IPT.EQ.3) CALL PROFI3 (X,Y,N) @G@@@@C-----RV )@@G@@THIS CALL PATTERN MAY BE EXTENDED FOR ADDITIONAL INITIAL PROFILES @B@@@@RW )@@G@@C-----DEFINITION OF ADDITIONAL PARAMETERS @#@@@@ DO 14 J=1,N @#@@@@RX )@@G@@ BX(J)=X(J) @#@@@@ BY(J)=Y(J) @#@@@@ TX(J)=X(J) @#@@@@RY )@@G@@ TY(J)=Y(J) @#@@@@ DOWN(J)=0.0 @#@@@@ EQUI(J)=0.0 @#@@@@RZ )@@G@@ C(J)=0.0 @#@@@@ 14 CC(J)=0.0 @]@@@@ WE=WE1@#@@@@ SA )@@G@@XM1=0.0 @]@@@@ ITIM=1@#@@@@ DO 15 J=2,N @ @@@@ SLOP(JSB )@@G@@)= Y(J)-Y(J-1) @^@@@@ BSLOP(J)=SLOP(J) @#@@@@ 15 CONTINUE SC )@@G@@@^@@@@ SLOP(1)=SLOP(2) @^@@@@ BSLOP(1)=BSLOP(2) @#@@@@ SD )@@G@@SLS=0.0 @#@@@@ SWE=0.0 @]@@@@ SC=0.0@#@@@@ SEQ=0.SE )@@G@@0 @#@@@@ DENU=0.0 @[@@@@C @ @@@@C-----BEGINNING OF MAIN SF )@@G@@LOOP @[@@@@C @^@@@@ DO 1000 I=1,M @]@@@@ WE=WE1@C@@@@SG )@@G@@C-----WASTE PRODUCTION BY BEDROCK WEATHERING @G@@@@ CALL WEATH (SH )@@G@@BX,BY,C,W,WE,WE1,WE2,WE3,WCON,COPT,P,BED1L,BED1U,BED2L@B@@@@ 1,BED2USI )@@G@@,DIP,XLEFT,XRIGHT,ISTR,N) @ @@@@ IF (I.LT.NOCUT) GO TO 20@A@@@@SJ )@@G@@ IF (I.GE.NRECUT) GO TO 20 @G@@@@C-----WHEN THE BASE LEVEL IS FSK )@@G@@IXED (NO DOWNCUTTING), THEN THERE IS NO @C@@@@C WEATHERING AT THE SL )@@G@@FOOTPOINT OF THE PROFILE@#@@@@ W(1)=0.0 @ @@@@ IF (ISID.EQ.SM )@@G@@2) W(N)=0.0 @#@@@@ 20 CONTINUE @C@@@@C-----RECOMPUTATION OF BY AND SN )@@G@@C AFTER WEATHERING@D@@@@C-----W(J) IS REPORTED BACK FROM SUBROUTINE WEATSO )@@G@@H @#@@@@ DO 25 J=1,N @B@@@@ BY(J)=BY(J)-W(J)/COS(ATAN(BSLOSP )@@G@@P(J)))@#@@@@ 25 CONTINUE @#@@@@ BCY=Y(1) @#@@@@ BCX=BXSQ )@@G@@(1) @D@@@@C-----DETERMINATION OF HEIGHT AND LOCATION OF SUMMIT @#@@@@SR )@@G@@ DO 27 J=2,N @A@@@@ IF (Y(J).GT.BCY) GO TO 26 @#@@@@ SS )@@G@@GO TO 27 @#@@@@ 26 CONTINUE @#@@@@ BCY=Y(J) @#@@@@ ST )@@G@@BCX=X(J) @#@@@@ 27 CONTINUE @G@@@@C-----LOCAL BASE LEVEL CONTROLSU )@@G@@ OF WEATHERING - NO POINT ON THE BEDROCK @G@@@@C SURFACE CAN WEATHESV )@@G@@R BELOW THE ELEVATION OF THE NEXT DOWNSLOPE @]@@@@C POINT @#@@@@SW )@@G@@ DO 50 J=2,N @ @@@@ IF (ISID.EQ.2) GO TO 32 @#@@@@ 28 CONTINSX )@@G@@UE @A@@@@ IF (BY(J).GT.BY(J-1)) GO TO 30@A@@@@ W(J)=W(J)-(BSY )@@G@@Y(J-1)-BY(J)) @A@@@@ IF (W(J).LT.0.0) W(J)=0.0 @^@@@@ SZ )@@G@@BY(J)=BY(J-1) @#@@@@ BSLOP(J)=0.0@#@@@@ 30 CONTINUE @#@@@@TA )@@G@@ GO TO 40 @#@@@@ 32 CONTINUE @A@@@@ IF (BX(J).LE.BCX) TB )@@G@@GO TO 28 @A@@@@ IF (BY(J).LT.BY(J-1)) GO TO 40@A@@@@ W(J-1)TC )@@G@@=W(J-1)-(BY(J)-BY(J-1)) @A@@@@ IF (W(J-1).LT.0.0) W(J-1)=0.0 @^@@@@TD )@@G@@ BY(J-1)=BY(J) @#@@@@ BSLOP(J)=0.0@ @@@@ CC(J-1)=C(J-TE )@@G@@1)+W(J-1) @#@@@@ 40 CONTINUE @^@@@@ CC(J)=C(J)+W(J) @#@@@@TF )@@G@@ 50 CONTINUE @^@@@@ CC(1)=C(1)+W(1) @ @@@@C-----CHOICE OF DOTG )@@G@@WNCUTTING @ @@@@ IF (I.GE.NOCUT) GO TO 70@#@@@@ 60 CONTINUE TH )@@G@@@B@@@@C-----DOWNCUTTING ON LEFT END OF PROFILE @C@@@@ IF (ICUT.EQ.TI )@@G@@1) CALL CUT1L (TY,YCUT1L) @D@@@@ IF (ICUT.EQ.2) CALL CUT2L (TY,TJ )@@G@@YCUT2L,XM1,YIC2L) @D@@@@ IF (ICUT.EQ.3) CALL CUT3L (TY,YCUT3L,XM1,YTK )@@G@@DC3L) @ @@@@ IF (ISID.EQ.1) GO TO 70 @B@@@@C-----DOWNCUTTING ON RIGTL )@@G@@HT END OF PROFILE @C@@@@ IF (ICUT.EQ.1) CALL CUT1R (TY,YCUT1R,N) TM )@@G@@@E@@@@ IF (ICUT.EQ.2) CALL CUT2R (TY,YCUT2R,XMN,YIC2R,N) @E@@@@TN )@@G@@ IF (ICUT.EQ.3) CALL CUT3R (TY,YCUT3R,XMN,YDC3R,N) @#@@@@ TO )@@G@@GO TO 75 @#@@@@ 70 CONTINUE @A@@@@ IF (I.LT.NRECUT) GO TO 7TP )@@G@@5 @A@@@@ IF (I.GT.NRECUT) GO TO 72 @F@@@@C-----RESETTING OFTQ )@@G@@ ITERATION COUNTERS WHEN DOWNCUTTING IS RENEWED @#@@@@ XM1=0.0 TR )@@G@@@#@@@@ XMN=0.0 @C@@@@C-----DEFINITION OF MODE OF RENEWED DOWNCUTS )@@G@@TTING @#@@@@ ICUT=IREC @#@@@@ 72 GO TO 60 @#@@@@ 75 CONTINTT )@@G@@UE @G@@@@C-----RECOMPUTATION OF WASTE THICKNESS AT SLOPE FOOT AFTER DTU )@@G@@OWNCUTTING @D@@@@ CC(1)=CC(1)-(Y(1)-TY(1))*COS(ATAN(BSLOP(1))) TV )@@G@@@A@@@@ IF (CC(1).LE.0.0) CC(1)=0.0 @B@@@@ IF (TY(1).LE.BY(1)TW )@@G@@) BY(1)=TY(1) @D@@@@ CC(N)=CC(N)-(Y(N)-TY(N))*COS(ATAN(BSLOP(N)TX )@@G@@)) @A@@@@ IF (CC(N).LE.0.0) CC(N)=0.0 @B@@@@ IF (TY(N).LETY )@@G@@.BY(N)) BY(N)=TY(N) @D@@@@C-----RECOMPUTATION OF BEDROCK SLOPE AT EATZ )@@G@@CH POINT @#@@@@ DO 90 J=2,N @ @@@@ BSLOP(J)=BY(J)-BY(J-1) UA )@@G@@@#@@@@ 90 CONTINUE @^@@@@ BSLOP(1)=BSLOP(2) @ @@@@ SLOP(2UB )@@G@@)=TY(2)-TY(1) @^@@@@ SLOP(1)=SLOP(2) @ @@@@ SLOP(N)=TY(NUC )@@G@@)-TY(N-1) @E@@@@C-----COMPUTATION OF V(J) AS A FACTOR IN WASTE TRANSPOUD )@@G@@RT @#@@@@ DO 95 J=1,N @ @@@@ V(J)=SIN(ATAN(SLOP(J))) @#@@@@UE )@@G@@ 95 CONTINUE @D@@@@C-----CORRECTION AT RIGHT END OF PROFILE IF ISIDUF )@@G@@=1 @ @@@@ IF (ISID.EQ.2) GO TO 98 @A@@@@ IF (BY(N).GE.BY(N-UG )@@G@@1)) GO TO 98@A@@@@ W(N)=W(N)-(BY(N-1)-BY(N)) @^@@@@ BY(N)=UH )@@G@@BY(N-1) @^@@@@ CC(N)=CC(N)+W(N) @#@@@@ BSLOP(N)=0.0@#@@@@UI )@@G@@ 98 CONTINUE @ @@@@ IF (ISID.EQ.2) GO TO 99 @A@@@@ IF (TYUJ )@@G@@(N).LE.TY(N-1)) V(N)=0.0@#@@@@ 99 CONTINUE @A@@@@C-----CHOICE OF WAUK )@@G@@STE TRANSPORT @G@@@@ IF (ITRANS.EQ.1) CALL FLOW1 (V,CC,FLU,COH,UL )@@G@@STAT,N,NOCUT,NRECUT,I) @F@@@@ IF (ITRANS.EQ.2) CALL WASH1 (V,CC,TWUM )@@G@@1,N,NOCUT,NRECUT,I) @G@@@@ IF (ITRANS.EQ.3) CALL WASH2 (TX,TY,VUN )@@G@@,CC,TW2,TWW2,ISID,N,NOCUT, @#@@@@ 1NRECUT,I) @A@@@@ IF (ITUO )@@G@@RANS.EQ.4) GO TO 104 @A@@@@ IF (ITRANS.EQ.5) GO TO 105 @F@@@@UP )@@G@@C-----THIS CALL PATTERN CAN BE EXPANDED FOR ADDITIONAL PROCESSES @#@@@@UQ )@@G@@ GO TO 110 @D@@@@ 104 CALL FLOW1 (V,CC,FLU,COH,STAT,N,NOCUT,NRECUR )@@G@@UT,I) @C@@@@ CALL WASH1 (V,CC,ISID,N,NOCUT,NRECUT,I) @#@@@@ US )@@G@@GO TO 110 @D@@@@ 105 CALL FLOW1 (V,CC,FLU,COH,STAT,N,NOCUT,NRECUT,I) UT )@@G@@@E@@@@ CALL WASH2 (TX,TY,V,CC,TW2,TWW2,ISID,N,NOCUT,NRECUT,I)@#@@@@UU )@@G@@ 110 CONTINUE @E@@@@C-----RECOMPUTATION OF PARAMETERS AFTER WASTE TRUV )@@G@@ANSPORT @]@@@@ N1=N-1@^@@@@ DO 150 J=1,N1 @B@@@@ UW )@@G@@IF (BSLOP(J+1).LT.0.0) GO TO 135 @ @@@@C-----ON LEFT-FACING SLOPE UX )@@G@@@C@@@@ IF (BSLOP(J+1).GE.BSLOP(J)) GO TO 130 @^@@@@C-----ON CONUY )@@G@@VEX SLOPE @C@@@@ TY(J)=BY(J)+CC(J)/COS(ATAN(BSLOP(J+1))) @#@@@@UZ )@@G@@ GO TO 145 @A@@@@C-----ON STRAIGHT OR CONCAVE SLOPE @C@@@@ 130 VA )@@G@@TY(J)=BY(J)+CC(J)/COS(ATAN(BSLOP(J))) @#@@@@ GO TO 145 @ @@@@VB )@@G@@C-----ON RIGHT-FACING SLOPE @C@@@@ 135 IF (BSLOP(J+1).LE.BSLOP(J)) GOVC )@@G@@ TO 140 @^@@@@C-----ON CONVEX SLOPE @C@@@@ TY(J)=BY(J)+CC(J)/VD )@@G@@COS(ATAN(BSLOP(J+1))) @#@@@@ GO TO 145 @A@@@@C-----ON STRAIGHT VE )@@G@@OR CONCAVE SLOPE @C@@@@ 140 TY(J)=BY(J)+CC(J)/COS(ATAN(BSLOP(J))) VF )@@G@@@#@@@@ 145 CONTINUE @B@@@@ IF (TY(J).GE.500.0) TY(J)=500.0 VG )@@G@@@G@@@@C-----THIS CORRECTION TO 500.0 IS ONLY NEEDED WITH DIPPING STRUCTUVH )@@G@@RES. @#@@@@ 150 CONTINUE @C@@@@ TY(N)=BY(N)+CC(N)/COS(ATAN(BSLVI )@@G@@OP(N))) @D@@@@C-----RECOMPUTATION OF SURFACE SLOPE AT EACH POINT VJ )@@G@@@#@@@@ DO 180 J=2,N@ @@@@ 180 SLOP(J)=TY(J)-TY(J-1) @^@@@@ VK )@@G@@SLOP(1)=SLOP(2) @#@@@@ DO 250 J=2,N@D@@@@C-----TEST FOR OVERSTEEPVL )@@G@@ENING ON LEFT-FACING PROFILE @A@@@@ IF (SLOP(J).LE.1.0) GO TO 220 VM )@@G@@@F@@@@C-----IF STEEPER THAN 45 DEGREES, LANDSLIDE OF WASTE COVER OCCURS VN )@@G@@@A@@@@ CALL SLIDL (TY,BY,CC,SLOP,J,N)@^@@@@ WRITE (6,215) I,J VO )@@G@@@G@@@@ 215 FORMAT (10X,38HLANDSLIDE TO THE LEFT AT I J/34X,2IVP )@@G@@5) @#@@@@ GO TO 250 @#@@@@ 220 CONTINUE @ @@@@ IF (ISVQ )@@G@@ID.EQ.1) GO TO 250@D@@@@C-----TEST FOR OVERSTEEPENING ON RIGHT-FACING PRVR )@@G@@OFILE @B@@@@ IF (SLOP(J).GE.(-1.0)) GO TO 250 @F@@@@C-----IF STEVS )@@G@@EPER THAN 45 DEGREES, LANDSLIDE OF WASTE COVER OCCURS @A@@@@ CALL SVT )@@G@@LIDR (TY,BY,CC,SLOP,J,N)@^@@@@ WRITE (6,225) I,J @G@@@@ 225 FORMATVU )@@G@@ (10X,39HLANDSLIDE TO THE RIGHT AT I J/35X,2I5) @#@@@@ 250 VV )@@G@@CONTINUE @ @@@@C-----COMPUTATION OF RELIEF @#@@@@ TR=TY(1) VW )@@G@@@A@@@@ IF (TY(1).GT.TY(N)) TR=TY(N) @^@@@@ RELIEF=TY(2)-TR VX )@@G@@@#@@@@ DO 255 J=2,N@^@@@@ REL1=TY(J)-TR @B@@@@ IF (REVY )@@G@@L1.GE.RELIEF) RELIEF=REL1 @#@@@@ 255 CONTINUE @#@@@@ 260 DO 800VZ )@@G@@ J=1,N@D@@@@C-----COMPUTATION OF LOCAL MASS BALANCE AND DENUDATION@^@@@@WA )@@G@@ EQUI(J)=CC(J)-C(J)@^@@@@ DOWN(J)=Y(J)-TY(J)@C@@@@C-----COMPUTWB )@@G@@ATION OF PARAMETER SUMS FOR MEANS @ @@@@ SLS=SLS+ABS(SLOP(J)) WC )@@G@@@#@@@@ SWE=SWE+W(J)@#@@@@ SC=SC+CC(J) @^@@@@ SEQ=SEQ+EQUIWD )@@G@@(J) @^@@@@ DENU=DENU+DOWN(J) @#@@@@ Y(J)=TY(J) @#@@@@ WE )@@G@@C(J)=CC(J) @#@@@@ 800 CONTINUE @#@@@@ ITIM=ITIM-1.@ @@@@ WF )@@G@@IF (ITIM.NE.0)GO TO 950 @]@@@@ YN=N @A@@@@C-----COMPUTATION OF MEAWG )@@G@@N VALUES @#@@@@ AVEQ=SEQ/YN @^@@@@ AVDEN=DENU/YN @#@@@@WH )@@G@@ AVSL=SLS/YN @#@@@@ AVC=SC/YN @#@@@@ AVWE=SWE/YN @F@@@@WI )@@G@@C-----WRITEOUT OF SLOPE PARAMETERS AFTER EVERY IWR ITERATIONS @G@@@@WJ )@@G@@ WRITE (6,900) NUMBER,I,(X(J),Y(J),SLOP(J),BX(J),BY(J),BSLOP(J), WK )@@G@@@B@@@@ 1C(J),W(J),DOWN(J),EQUI(J),J=1,N) @G@@@@ 900 FORMAT (5X,7WL )@@G@@HCOSLOP2//5X,18HSLOPE MODEL NUMBER,I8/5X,I5,1X,10HITER@G@@@@ 1ATIONSWM )@@G@@/5X,89H X(J) Y(J) SLOP(J) BX(J) BY(J) BSLOP(J)@E@@@@ 2WN )@@G@@ C(J) W(J) DOWN(J) EQUI(J)/(5X,10F9.4)) @C@@@@ WRITE WO )@@G@@(6,920) AVSL,AVC,AVWE,AVDEN,AVEQ @G@@@@ 920 FORMAT (10X,70HMEANS OF WP )@@G@@ SLOPE THICKNESS WEATHERING DENUD@B@@@@ 1ATION MASS BALANCWQ )@@G@@E/18X,5F12.4) @ @@@@ WRITE (6,925) RELIEF @A@@@@ 925 FORMATWR )@@G@@ (10X,6HRELIEF/10X,F9.4)@#@@@@ ITIM=IWR @#@@@@ 950 CONTINUE WS )@@G@@@#@@@@ SLS=0.0 @#@@@@ SWE=0.0 @]@@@@ SC=0.0@#@@@@WT )@@G@@ SEQ=0.0 @#@@@@ DENU=0.0 @^@@@@C-----END OF MAIN LOOP WU )@@G@@@#@@@@ 1000 CONTINUE @]@@@@ END @[@@@@C @C@@@@C----- S UWV )@@G@@ B R O U T I N E S --------------- @A@@@@ SUBROUTINE PROFI1 (X,Y,NWW )@@G@@) @[@@@@C @A@@@@C-----I N I T I A L P R O F I L E S@[@@@@C WX )@@G@@@A@@@@C-----SLOPE WITH PLATEAU AT TOP @ @@@@ DIMENSION X(N),Y(NWY )@@G@@) @#@@@@ X(1)=0.0 @#@@@@ Y(1)=480.0 @#@@@@ DO 1 JWZ )@@G@@=2,21 @^@@@@ X(J)=X(J-1)+1.0 @^@@@@ Y(J)=Y(J-1)+0.8 @#@@@@XA )@@G@@ 1 CONTINUE @#@@@@ DO 5 J=22,N @^@@@@ X(J)=X(J-1)+1.0 XB )@@G@@@#@@@@ Y(J)=Y(J-1) @#@@@@ 5 CONTINUE @]@@@@ RETURN@]@@@@XC )@@G@@ END @[@@@@C @A@@@@ SUBROUTINE PROFI2 (X,Y,N) @F@@@@XD )@@G@@C-----STEEP CLIFF WITH LEVEL PLATFORM AT BASE AND PLATEAU AT TOP @ @@@@XE )@@G@@ DIMENSION X(N),Y(N) @#@@@@ X(1)=0.0 @#@@@@ Y(1)=4XF )@@G@@80.0 @#@@@@ DO 1 J=2,15 @^@@@@ X(J)=X(J-1)+1.0 @#@@@@ XG )@@G@@Y(J)=Y(J-1) @#@@@@ 1 CONTINUE @#@@@@ DO 2 J=16,23@^@@@@ XH )@@G@@X(J)=X(J-1)+1.0 @^@@@@ Y(J)=Y(J-1)+2.5 @#@@@@ 2 CONTINUE XI )@@G@@@#@@@@ DO 3 J=24,N @^@@@@ X(J)=X(J-1)+1.0 @#@@@@ Y(J)=YXJ )@@G@@(J-1) @#@@@@ 3 CONTINUE @]@@@@ RETURN@]@@@@ END @[@@@@XK )@@G@@C @A@@@@ SUBROUTINE PROFI3 (X,Y,N) @E@@@@C-----HORIZONTAL PXL )@@G@@ROFILE, FOR MODELS INVOLVING DOWNCUTTING @ @@@@ DIMENSION X(N),Y(NXM )@@G@@) @#@@@@ X(1)=0.0 @#@@@@ Y(1)=500.0 @#@@@@ DO 1 JXN )@@G@@=2,N @^@@@@ X(J)=X(J-1)+1.0 @#@@@@ Y(J)=Y(J-1) @#@@@@ 1 XO )@@G@@CONTINUE @]@@@@ RETURN@]@@@@ END @[@@@@C @[@@@@C XP )@@G@@@A@@@@ SUBROUTINE CUT1L (TY,YCUT1L) @C@@@@C-----M O D E S O F D XQ )@@G@@O W N C U T T I N G @B@@@@C-----UNIFORM DOWNCUTTING AT LEFT END XR )@@G@@@^@@@@ DIMENSION TY(1) @^@@@@ TY(1)=TY(1)-YCUT1L@]@@@@ XS )@@G@@RETURN@]@@@@ END @[@@@@C @A@@@@ SUBROUTINE CUT1R (TY,YCUXT )@@G@@T1R,N)@B@@@@C-----UNIFORM DOWNCUTTING AT RIGHT END @^@@@@ DIMENSXU )@@G@@ION TY(1) @^@@@@ TY(N)=TY(N)-YCUT1R@]@@@@ RETURN@]@@@@ XV )@@G@@END @[@@@@C @C@@@@ SUBROUTINE CUT2L (TY,YCUT2L,XM1,YIC2L) XW )@@G@@@A@@@@C-----WAXING DOWNCUTTING AT LEFT END@^@@@@ DIMENSION TY(1) XX )@@G@@@ @@@@ CUT=YCUT2L+XM1*YIC2L @^@@@@ TY(1)=TY(1)-CUT @#@@@@XY )@@G@@ XM1=XM1+1.0 @]@@@@ RETURN@]@@@@ END @[@@@@C @C@@@@XZ )@@G@@ SUBROUTINE CUT2R (TY,YCUT2R,XMN,YIC2R,N) @B@@@@C-----WAXING DOWNCYA )@@G@@UTTING AT RIGHT END @^@@@@ DIMENSION TY(1) @ @@@@ CUT=YCYB )@@G@@UT2R+XMN*YIC2R @^@@@@ TY(1)=TY(1)-CUT @#@@@@ XMN=XMN+1.0 YC )@@G@@@]@@@@ RETURN@]@@@@ END @[@@@@C @C@@@@ SUBROUTINE CYD )@@G@@UT3L (TY,YCUT3L,XM1,YDC3L) @A@@@@C-----WANING DOWNCUTTING AT LEFT ENDYE )@@G@@@^@@@@ DIMENSION TY(1) @ @@@@ CUT=YCUT3L-XM1*YDC3L @^@@@@YF )@@G@@ TY(1)=TY(1)-CUT @#@@@@ XM1=XM1+1.0 @]@@@@ RETURN@]@@@@YG )@@G@@ END @[@@@@C @C@@@@ SUBROUTINE CUT3R (TY,YCUT3R,XMN,YDC3YH )@@G@@R,N) @B@@@@C-----WANING DOWNCUTTING AT RIGHT END @^@@@@ DIMENSYI )@@G@@ION TY(1) @ @@@@ CUT=YCUT3R-XMN*YDC3R @^@@@@ TY(N)=TY(N)-YJ )@@G@@CUT @#@@@@ XMN=XMN+1.0 @]@@@@ RETURN@]@@@@ END @[@@@@YK )@@G@@C @[@@@@C @G@@@@ SUBROUTINE WEATH (BX,BY,C,W,WE,WE1,WE2,WE3YL )@@G@@,WCON,COPT,P,BED1L,BED1U@C@@@@ 1,BED2L,BED2U,DIP,XLEFT,XRIGHT,ISTR,NYM )@@G@@) @ @@@@C----- W E A T H E R I N G @B@@@@ DIMENSION BX(N),BYYN )@@G@@(N),C(N),W(N) @#@@@@ DO 320 J=1,N@E@@@@C-----IDENTIFICATION OF YO )@@G@@EFFECT OF GEOLOGIC STRUCTURE, IF ANY@G@@@@ IF (ISTR.EQ.1) CALL STRUYP )@@G@@C1 (BX,BY,BED1L,BED1U,BED2L,BED2U,DIP,WE, @^@@@@ 1WE1,WE2,WE3,J) YQ )@@G@@@F@@@@ IF (ISTR.EQ.2) CALL STRUC2 (BX,XLEFT,XRIGHT,WE,WE1,WE2,J) YR )@@G@@@C@@@@C----RATE TWA FOR PURE MECHANICAL WEATHERING @^@@@@ TWA=WEYS )@@G@@/EXP(C(J)) @A@@@@ IF (C(J).GT.COPT) GO TO 310 @C@@@@C-----RATE TYT )@@G@@WB FOR PURE CHEMICAL WEATHERING @D@@@@ TWB=WE*(1.0+WCON*C(J)/COYU )@@G@@PT-(C(J)/COPT)**2.0) @#@@@@ GO TO 315 @A@@@@ 310 TWB=WE*WCON/YV )@@G@@EXP(C(J)-COPT) @#@@@@ 315 CONTINUE @G@@@@C-----RATE W(J) FOR ACTUYW )@@G@@AL WEATHERING AT POINT J, COMBINES TWA AND TWB @E@@@@C ACCORDING TOYX )@@G@@ THE VALUE OF THE 'CLIMATIC' COEFFICIENT P@ @@@@ W(J)=P*TWA+(1.0-P)YY )@@G@@*TWB @#@@@@ 320 CONTINUE @]@@@@ RETURN@]@@@@ END @[@@@@YZ )@@G@@C @[@@@@C @G@@@@ SUBROUTINE STRUC1 (BX,BY,BED1L,BED1U,BED2LZA )@@G@@,BED2U,DIP,WE,WE1,WE2, @]@@@@ 1WE3,J)@[@@@@C @B@@@@C-----G E O ZB )@@G@@L O G I C S T R U C T U R E @[@@@@C @G@@@@C-----ONE OR TWO RESISTAZC )@@G@@NT BEDS AT ANY DESIRED ANGLE OF DIP (EXCEPT @#@@@@C VERTICAL) ZD )@@G@@@ @@@@ DIMENSION BX(1),BY(1) @#@@@@C-----LOWER BED @ @@@@ ZE )@@G@@YBOT1=BED1L+DIP*BX(J) @ @@@@ YTOP1=BED1U+DIP*BX(J) @#@@@@C-----ZF )@@G@@UPPER BED @ @@@@ YBOT2=BED2L+DIP*BX(J) @ @@@@ YTOP2=BED2U+ZG )@@G@@DIP*BX(J) @A@@@@ IF (BY(J).GT.YTOP2) GO TO 360 @A@@@@ IF (BYZH )@@G@@(J).LT.YBOT2) GO TO 355 @]@@@@ WE=WE3@#@@@@ GO TO 365 @A@@@@ZI )@@G@@ 355 IF (BY(J).GT.YTOP1) GO TO 360 @A@@@@ IF (BY(J).LT.YBOT1) GO TZJ )@@G@@O 360 @]@@@@ WE=WE2@#@@@@ GO TO 365 @]@@@@ 360 WE=WE1@#@@@@ZK )@@G@@ 365 CONTINUE @]@@@@ RETURN@]@@@@ END @[@@@@C @D@@@@ZL )@@G@@ SUBROUTINE STRUC2 (BX,XLEFT,XRIGHT,WE,WE1,WE2,J)@D@@@@C-----RESISTZM )@@G@@ANT ROCK MASS WITH VERTICAL BOUNDARIES @^@@@@ DIMENSION BX(1) ZN )@@G@@@]@@@@ WE=WE2@A@@@@ IF (BX(J).LT.XLEFT) WE=WE1 @A@@@@ ZO )@@G@@IF (BX(J).GT.XRIGHT) WE=WE1 @]@@@@ RETURN@]@@@@ END @[@@@@ZP )@@G@@C @[@@@@C @E@@@@ SUBROUTINE FLOW1 (V,CC,FLU,COH,STAT,N,NOCUZQ )@@G@@T,NRECUT,I) @[@@@@C @D@@@@C-----D O W N S L O P E W A S T E T R A ZR )@@G@@N S P O R T @[@@@@C @F@@@@C-----POINT-TO-POINT TRANSFER BY VISCOUS-PZS )@@G@@LASTIC FLOW. FLU IS A @F@@@@C FLUIDITY COEFFICIENT, AND COH IS A CZT )@@G@@OHESION COEFFICIENT. @A@@@@ DIMENSION V(N),CC(N),STAT(N) @#@@@@ZU )@@G@@ DO 410 J=1,N@B@@@@ IF (CC(J).LE.0.01) STAT(J)=100.0 @B@@@@ZV )@@G@@ IF (CC(J).GT.0.01) STAT(J)=COH/CC(J)@#@@@@ 410 CONTINUE @]@@@@ZW )@@G@@ N1=N-1@^@@@@ DO 435 J=2,N1 @ @@@@ R=FLU*(V(J)-STAT(JZX )@@G@@)) @A@@@@ RR=FLU*(ABS(V(J+1))-STAT(J)) @ @@@@ A=FLU*(V(J+1ZY )@@G@@)-STAT(J+1))@A@@@@ AA=FLU*(ABS(V(J))-STAT(J-1)) @A@@@@ IF (V(ZZ )@@G@@J).GE.0.0) GO TO 420 @A@@@@ IF (V(J+1).LT.0.0) GO TO 415 @G@@@@AA )@@G@@C-----WASTE CONVERGING IN HOLLOW OF PROFILE, NO REMOVAL FROM POINT J AB )@@G@@@A@@@@ IF (A.GT.CC(J+1)) A=CC(J+1) @A@@@@ IF (AA.GT.CC(J-1))AC )@@G@@ AA=CC(J-1) @]@@@@ R=0.0 @]@@@@ RR=0.0@#@@@@ GO TO 430 AD )@@G@@@D@@@@C-----WASTE TO BE TRANSFERRED ON RIGHT-FACING SLOPE @A@@@@ 415 AE )@@G@@IF (RR.GT.CC(J)) RR=CC(J) @A@@@@ IF (AA.GT.CC(J-1)) AA=CC(J-1) AF )@@G@@@]@@@@ R=0.0 @]@@@@ A=0.0 @#@@@@ GO TO 430 @A@@@@ 420 AG )@@G@@IF (V(J+1).GE.0.0) GO TO 428 @E@@@@C-----WASTE TO BE REMOVED FROM SUMMIAH )@@G@@T OF TWO-FACED PROFILE @A@@@@ IF ((R+RR).LT.CC(J)) GO TO 425@^@@@@AI )@@G@@ R=R*CC(J)/(R+RR) @#@@@@ RR=CC(J)-R @]@@@@ 425 A=0.0 @]@@@@AJ )@@G@@ AA=0.0@#@@@@ GO TO 430 @D@@@@C-----WASTE TO BE TRANSFERRED AK )@@G@@ON LEFT-FACING PROFILE @ @@@@ 428 IF (R.GT.CC(J)) R=CC(J) @A@@@@ AL )@@G@@IF (A.GT.CC(J+1)) A=CC(J+1) @]@@@@ RR=0.0@]@@@@ AA=0.0@#@@@@AM )@@G@@ 430 CONTINUE @ @@@@ IF (R.LE.0.0) R=0.0 @ @@@@ IF (RRAN )@@G@@.LE.0.0) RR=0.0 @ @@@@ IF (A.LE.0.0) A=0.0 @ @@@@ IF (AAAO )@@G@@.LE.0.0) AA=0.0 @D@@@@C-----WASTE THICKNESS CHANGE DUE TO WASTE TRANSFAP )@@G@@ER @ @@@@ CC(J)=CC(J)+A+AA-R-RR @#@@@@ 435 CONTINUE @E@@@@AQ )@@G@@C-----COMPUTATION OF WASTE TRANSFER AT RIGHT END OF PROFILE @A@@@@ AR )@@G@@IF (V(N).GE.0.0) GO TO 440 @A@@@@ RR=FLU*(ABS(V(N))-STAT(N)) AS )@@G@@@A@@@@ IF (RR.GT.CC(N)) RR=CC(N) @ @@@@ IF (RR.LE.0.0) RR=AT )@@G@@0.0 @ @@@@ IF (I.LT.NOCUT) RR=0.0 @ @@@@ IF (I.GE.NRECUT) RAU )@@G@@R=0.0 @A@@@@ AA=FLU*(ABS(V(N))-STAT(N-1)) @A@@@@ IF (AA.GT.CCAV )@@G@@(N-1)) AA=CC(N-1) @ @@@@ IF (AA.LE.0.0) AA=0.0 @^@@@@ CC(N)=AW )@@G@@CC(N)+AA-RR @#@@@@ GO TO 445 @ @@@@ 440 R=FLU*(V(N)-STAT(N)) AX )@@G@@@ @@@@ IF (R.GT.CC(N)) R=CC(N) @ @@@@ IF (R.LE.0.0) R=0.0 AY )@@G@@@^@@@@ CC(N)=CC(N)-R @#@@@@ 445 CONTINUE @E@@@@C-----COMPUTAZ )@@G@@ATION OF WASTE TRANSFER AT LEFT END OF PROFILE @ @@@@ R=FLU*(V(1)-BA )@@G@@STAT(1)) @ @@@@ IF (R.GT.CC(1)) R=CC(1) @ @@@@ A=FLU*(V(2)-BB )@@G@@STAT(2)) @ @@@@ IF (A.GT.CC(2)) A=CC(2) @ @@@@ IF (R.LE.0.0BC )@@G@@) R=0.0 @ @@@@ IF (A.LE.0.0) A=0.0 @ @@@@ IF (I.LT.NOCBD )@@G@@UT) R=0.0 @ @@@@ IF (I.GE.NRECUT) R=0.0 @^@@@@ CC(1)=CC(1)+BE )@@G@@A-R @]@@@@ RETURN@]@@@@ END @[@@@@C @D@@@@ SUBROUBF )@@G@@TINE WASH1 (V,CC,TW1,N,NOCUT,NRECUT,I) @F@@@@C-----WASTE REMOVAL BY SBG )@@G@@IMPLE WASH, DEPENDENT UPON SINE OF SLOPE @ @@@@ DIMENSION V(N),CC(BH )@@G@@N) @D@@@@C-----COMPUTATION OF REMOVAL AT RIGHT END OF PROFILE @^@@@@BI )@@G@@ R=TW1*ABS(V(N)) @A@@@@ IF (V(N).GE.0.0) GO TO 455 @ @@@@BJ )@@G@@ IF (I.LT.NOCUT) R=0.0 @ @@@@ IF (I.GE.NRECUT) R=0.0 @#@@@@BK )@@G@@ 455 CONTINUE @^@@@@ CC(N)=CC(N)-R @A@@@@ IF (CC(N).LEBL )@@G@@.0.0) CC(N)=0.0 @]@@@@ N1=N-1@F@@@@C-----COMPUTATION OF REMOVAL ABM )@@G@@T ALL POINTS EXCEPT AT RIGHT END @^@@@@ DO 480 J=1,N1 @A@@@@BN )@@G@@ IF (V(J).GE.0.0) GO TO 460 @A@@@@ IF (V(J+1).GE.0.0) GO TOBO )@@G@@ 465 @A@@@@C-----REMOVAL ON RIGHT-FACING SLOPE @^@@@@ R=TW1*ABS(V(BP )@@G@@J+1)) @#@@@@ GO TO 475 @A@@@@ 460 IF (V(J+1).GE.0.0) GO TO 470 BQ )@@G@@@C@@@@C-----REMOVAL FROM SUMMIT OF TWO-FACED PROFILE @B@@@@ R=TW1*BR )@@G@@(ABS(V(J))+ABS(V(J+1)))/2.0 @#@@@@ GO TO 475 @A@@@@C-----ACCUMUBS )@@G@@LATION IN SLOPE HOLLOW @B@@@@ 465 R=(-TW1)*(ABS(V(J))+ABS(V(J+1))) BT )@@G@@@#@@@@ GO TO 475 @#@@@@ 470 R=TW1*V(J) @#@@@@ 475 CONTINUE BU )@@G@@@A@@@@C-----REMOVAL ON LEFT-FACING SLOPE @ @@@@ IF (J.GT.1) GO TO BV )@@G@@478 @ @@@@ IF (I.LT.NOCUT) R=0.0 @ @@@@ IF (I.GE.NRECUT) RBW )@@G@@=0.0 @#@@@@ 478 CONTINUE @C@@@@C-----RECOMPUTATION OF WASTE COVER TBX )@@G@@HICKNESS @^@@@@ CC(J)=CC(J)-R @A@@@@ IF (CC(J).LE.0.0) BY )@@G@@CC(J)=0.0 @#@@@@ 480 CONTINUE @]@@@@ RETURN@]@@@@ END BZ )@@G@@@[@@@@C @F@@@@ SUBROUTINE WASH2 (TX,TY,V,CC,TW2,TWW2,ISID,N,NOCCA )@@G@@UT,NRECUT,I)@G@@@@C-----WASTE REMOVAL BY COMPLEX WASH, DEPENDENT UPON WACB )@@G@@STE COVER THICK- @G@@@@C NESS (CC), SINE OF SLOPE (V), AND DISTANCECC )@@G@@ FROM SUMMIT (DIST) @B@@@@ DIMENSION TX(N),TY(N),V(N),CC(N) CD )@@G@@@#@@@@ DO 500 J=3,N@B@@@@ IF (TY(J).GT.TY(J-1)) CREST=TX(J) CE )@@G@@@#@@@@ 500 CONTINUE @D@@@@C-----COMPUTATION OF REMOVAL AT RIGHT END CF )@@G@@OF PROFILE @^@@@@ TRW=TW2*CC(N)+0.01@^@@@@ TDIST=TX(N)-TX(1) CG )@@G@@@ @@@@ IF (ISID.EQ.2) GO TO 505@#@@@@ R=TRW*V(N) @#@@@@ CH )@@G@@GO TO 510 @ @@@@ 505 DIST=(TX(N)-CREST)/TDIST@B@@@@ R=TRW*ABS(V(CI )@@G@@N))*(1.0+DIST**TWW2) @A@@@@ IF (V(N).GE.0.0) GO TO 510 @ @@@@CJ )@@G@@ IF (I.LT.NOCUT) R=0.0 @ @@@@ IF (I.GE.NRECUT) R=0.0 @^@@@@CK )@@G@@ 510 CC(N)=CC(N)-R @A@@@@ IF (CC(N).LE.0.0) CC(N)=0.0 @]@@@@CL )@@G@@ N1=N-1@F@@@@C-----COMPUTATION OF REMOVAL AT ALL POINTS EXCEPT AT RCM )@@G@@IGHT END @^@@@@ DO 540 J=1,N1 @^@@@@ TRW=TW2*CC(J)+0.01CN )@@G@@@A@@@@ DIST=(ABS(TX(J)-CREST))/TDIST @A@@@@ IF (V(J).GE.0.0) GCO )@@G@@O TO 515 @A@@@@ IF (V(J+1).GE.0.0) GO TO 520 @A@@@@C-----REMOVACP )@@G@@L ON RIGHT-FACING SLOPE @B@@@@ R=TRW*ABS(V(J+1))*(1.0+DIST**TWW2) CQ )@@G@@@#@@@@ GO TO 535 @A@@@@ 515 IF (V(J+1).GE.0.0) GO TO 525 @C@@@@CR )@@G@@C-----REMOVAL FROM SUMMIT OF TWO-FACED PROFILE @B@@@@ R=TRW*(ABS(VCS )@@G@@(J))+ABS(V(J+1)))/2.0 @#@@@@ GO TO 535 @A@@@@C-----ACCUMULATIONCT )@@G@@ IN SLOPE HOLLOW @B@@@@ 520 R=(-TRW)*(ABS(V(J))+ABS(V(J+1))) @#@@@@CU )@@G@@ GO TO 535 @A@@@@C-----REMOVAL ON LEFT-FACING SLOPE @A@@@@ 525 CV )@@G@@R=TRW*V(J)*(1.0+DIST**TWW2) @#@@@@ 535 CONTINUE @ @@@@ IF (J.CW )@@G@@GT.1) GO TO 538 @ @@@@ IF (I.LT.NOCUT) R=0.0 @ @@@@ IF (I.CX )@@G@@GE.NRECUT) R=0.0 @#@@@@ 538 CONTINUE @C@@@@C-----RECOMPUTATION OF WCY )@@G@@ASTE COVER THICKNESS @^@@@@ CC(J)=CC(J)-R @A@@@@ IF (CCCZ )@@G@@(J).LE.0.0) CC(J)=0.0 @#@@@@ 540 CONTINUE @]@@@@ RETURN@]@@@@DA )@@G@@ END @[@@@@C @B@@@@ SUBROUTINE SLIDL (TY,BY,CC,SLOP,J,N)DB )@@G@@@B@@@@C-----DEBRIS SLIDE ON LEFT-FACING SLOPE @B@@@@ DIMENSION TYDC )@@G@@(N),BY(N),CC(N),SLOP(N) @]@@@@ J1=J-1@^@@@@ DO 620 K=1,J1 DD )@@G@@@ @@@@C-----TEST FOR OVERSTEEPENING @A@@@@ SLOP(J+1-K)=TY(J+1-K)-TYDE )@@G@@(J-K) @B@@@@ IF (SLOP(J+1-K).LT.1.0) GO TO 620 @G@@@@C-----COMPUTDF )@@G@@ATION OF WASTE TRANSFER TO REDUCE WASTE SURFACE SLOPE TO @#@@@@C-----DG )@@G@@45 DEGREES @A@@@@ SY=(TY(J+1-K)-TY(J-K)-1.0)/2.0@^@@@@ TTY= TDH )@@G@@Y(J+1-K)-SY @B@@@@ IF (TTY.GT.BY(J+1-K)) GO TO 605 @ @@@@ DI )@@G@@SY=TY(J+1-K)-BY(J+1-K) @^@@@@ TTY=BY(J+1-K) @^@@@@ 605 TY(J+1DJ )@@G@@-K)=TTY @^@@@@ TY(J-K)=TY(J-K)+SY@A@@@@ SLOP(J+1-K)=TY(J+1DK )@@G@@-K)-TY(J-K) @A@@@@ SLOP(J-K)=TY(J-K)-TY(J-1-K) @B@@@@ IF ((JDL )@@G@@-K).EQ.1) SLOP(1)=SLOP(2) @C@@@@C-----RECOMPUTATION OF WASTE COVER TDM )@@G@@HICKNESS @D@@@@ CC(J-K)=(TY(J-K)-BY(J-K))*COS(ATAN(SLOP(J-K))) DN )@@G@@@E@@@@ CC(J+1-K)=(TY(J+1-K)-BY(J+1-K))*COS(ATAN(SLOP(J+1-K)))@#@@@@DO )@@G@@ 620 CONTINUE @]@@@@ RETURN@]@@@@ END @[@@@@C @B@@@@DP )@@G@@ SUBROUTINE SLIDR (TY,BY,CC,SLOP,J,N)@B@@@@C-----DEBRIS SLIDE ON RIDQ )@@G@@GHT-FACING SLOPE @B@@@@ DIMENSION TY(N),BY(N),CC(N),SLOP(N) @]@@@@DR )@@G@@ J1=J-1@^@@@@ DO 650 K=1,J1 @ @@@@C-----TEST FOR OVERSTEEPDS )@@G@@ENING @B@@@@ IF (SLOP(J+1-K).GT.(-1.0)) GO TO 650@G@@@@C-----COMPUTDT )@@G@@ATION OF WASTE TRANSFER TO REDUCE WASTE SURFACE SLOPE TO @#@@@@C-----DU )@@G@@45 DEGREES @A@@@@ SY=(TY(J-K)-TY(J+1-K)-1.0)/2.0@^@@@@ TTY=TYDV )@@G@@(J-K)-SY @A@@@@ IF (TTY.GT.BY(J-K)) GO TO 630 @^@@@@ SY=TY(DW )@@G@@J-K)-BY(J-K)@#@@@@ TTY=BY(J-K) @#@@@@ 630 TY(J-K)=TTY @ @@@@ DX )@@G@@TY(J+1-K)=TY(J+1-K)+SY @A@@@@ SLOP(J-K)=TY(J-K)-TY(J-1-K) @A@@@@DY )@@G@@ SLOP(J+1-K)=TY(J+1-K)-TY(J-K) @C@@@@C-----RECOMPUTATION OF WASTE CDZ )@@G@@OVER THICKNESS @D@@@@ CC(J-K)=(TY(J-K)-BY(J-K))*COS(ATAN(SLOP(J-EA )@@G@@K))) @E@@@@ CC(J+1-K)=(TY(J+1-K)-BY(J+1-K))*COS(ATAN(SLOP(J+1-K)))EB )@@G@@@#@@@@ 650 CONTINUE @]@@@@ RETURN@[@@@@C @G@@@@C-----BELOW EC )@@G@@FOLLOWS A LISTING OF ALL FLOATING-POINT CONSTANTS AND ALL @G@@@@C ED )@@G@@INTEGER CONSTANTS IN THE SEQUENCE INDICATED BY WRITE (6,3) AND @E@@@@EE )@@G@@C WRITE (6,4) NEAR THE BEGINNING OF THE MAIN PROGRAM @[@@@@C EF )@@G@@@]@@@@ END ___@@@ GO TO 535 @A@@@@C-----REMOVAL ON LEFT-FAEG )@@G@@CING SLOPE @A@@@@ 525 R=TRW*V(J)*(1.0+DIST**TWW2) @#@@@@ 535 CONTINEH )@@G@@UE @ @@@@ IF (J.GT.1) GO TO 538 @ @@@@ IF (I.LT.NOCUT) R=EI )@@G@@0.0 @ @@@@ IF (I.GE.NRECUT) R=0.0 @#@@@@ 538 CONTINUE @C@@@@EJ )@@G@@C-----RECOMPUTATION OF WASTE COVER THICKNESS @^@@@@ CC(J)=CC(J)-EK )@@G@@R @A@@@@ IF (CC(J).LE.0.0) CC(J)=0.0 @#@@@@ 540 CONTINUE EL )@@G@@@]@@@@ RETURN@]@@@@ END @[@@@@C @B@@@@ SUBROUTINE SEM )@@G@@LIDL (TY,BY,CC,SLOP,J,N)@B@@@@C-----DEBRIS SLIDE ON LEFT-FACING SLOPE EN )@@G@@@B@@@@ DIMENSION TY(N),BY(N),CC(N),SLOP(N) :8@@@]/K@^KAC8)#M@:8@@@#EO )@@G@@/K@^KAC8)#U@[C!@@@C8@@@D*@F)@@[?H@@@C@F)@@[OH)@@/SH)@@/K@^KLMORE THAN 40EP )@@G@@ KEYS C@@B5:%@F@@@/K@^J2C@@B=4[@H@@@C80B@@@@@?@@@@@ @@@@@A@@@@@B@@@@@C@@@@@D@@@@@E@@@@@F@@@@@GFP )@@G@@@@@@@H@@@@@I@@@@@J@@@@@K@@@@@L@@@@@M@@@@@N@@@@@O@@@@@P@@@@@Q@@@@@R@@@@@SFQ )@@G@@@@@@@T@@@@@U@@@@@V@@@@@W@@@@@X@@@@@Y@@@@@Z@@@@@[@@@@@ @@@@@%@@@@@ @@@@@-FR )@@G@@@@@@@@@@@@@A@@@@@B@@@@@C@@@@@D@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@KFS )@@G@@@@@@@L@@@@@M@@@@@N@@@@@O@@@@@P@@@@@Q@@@@@R@@@@@S@@@@@T@@@@@U@@@@@V@@@@@WFT )@@G@@@@@@@X@@@@@Y@@@@@Z@@@@@ @@@@@A@@@@@B@@@@@C@@@@@D@@@@@E@@@@@F@@@@@G@@@@@HFU )@@G@@@@@@@I@@@@@ @@@@@.@@@@@)@@@@@(@@@@@+@@@@@ @@@@@ @@@@@J@@@@@K@@@@@L@@@@@MFV )@@G@@@@@@@N@@@@@O@@@@@P@@@@@Q@@@@@R@@@@@ @@@@@$@@@@@*@@@@@)@@@@@;@@@@@ @@@@@-FW )@@G@@@@@@@/@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@@@@X@@@@@Y@@@@@Z@@@@@ @@@@@,@@@@@(FX )@@G@@@@@@@-@@@@@ @@@@@ @@@@@0@@@@@1@@@@@2@@@@@3@@@@@4@@@@@5@@@@@6@@@@@7@@@@@8FY )@@G@@@@@@@9@@@@@:@@@@@#@@@@@@@@@@@'@@@@@=@@@@@ @@@@@&@@@@@1@@@@@2@@@@@3@@@@@4FZ )@@G@@@@@@@5@@@@@6@@@@@7@@@@@8@@@@@9@@@@@0@@@@@=@@@@@'@@@@@:@@@@@>@@@@@@@@@@@ GA )@@G@@@@@@@/@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@@@@X@@@@@Y@@@@@Z@@@@@_@@@@@,@@@@@(GB )@@G@@@@@@@%@@@@@\@@@@@"@@@@@-@@@@@J@@@@@K@@@@@L@@@@@M@@@@@N@@@@@O@@@@@P@@@@@QGC )@@G@@@@@@@R@@@@@!@@@@@$@@@@@*@@@@@]@@@@@;@@@@@^@@@@@+@@@@@A@@@@@B@@@@@C@@@@@DGD )@@G@@@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@?@@@@@.@@@@@)@@@@@[@@@@@<@@@@@#@@@@@[GE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF )@@G@@CCJ@@D/@F@@@ ^G@@@;/J@@Q(CJ@@H/K@^SSRFZ@@HABH@@@[CJ@@H 4J@@Q/KF@@@[^J@@HGG )@@G@@[CJ@@H/K@^SQRFZ@@F;/H@@[RBH@@@/@@^S-C W@@@[ X@@@ 4H@@[/KF@@@;/J@@QRBJ@@HGH )@@G@@/@@^S%RBW@@@/^K^S([CZ@@H[^Z@@H 4J@@Q/KF@@@RF\@@D CJ@@D/@:@@@RFJ@@F;/G@@[GI )@@G@@RBW@@@AB?@@@ABY@@@ 4G@@[/KF@@@O;@@@[;G@@@=W8@@@W*@@@@HO;@@@[[@J@@M/KF@@@GJ )@@G@@R;@@@\AJ@@KR;J@@@/C0^U )J@@N 4J@@Q'=@@@PGP )@@G@@ 4J@@Q'=@@@]/KF@@@;/J@@Q =J@@K )J@@N 4J@@Q/KF@@@;/J@@Q*=J@@K/K@^UM 4J@@QGQ )@@G@@/KF@@@C9@@@[[-J@@N 4J@@Q()J@@N/KF@@@0@J@@#'=@@@AC5J@@#!9@@@K:9@@@)/K@^UPGR )@@G@@'=@@@)/,0^U)/,0^U)R;:@@@H8)@@[C8@@#0+CI@@@;CK@@^RBI@@@H8@^UY;@@@@ZO;H@@@GS )@@G@@0GI@@@O;@@@K&;W@@@/G0^U,/K@^U7A7J@@#A$J@@B/,0^UC'=@@@DCDJ@@C&7Z@@#QFJ@@IGT )@@G@@&FJ@@J/K@^U8C J@@C&]0@@KQBZ@@FR$\@@B =J@@BA$\@@N0@J@@S/K@^VI*CJ@@S/K@^VCGU )@@G@@9?)^S^9!@^SAN@K^SCN@)^SDN@0^SE 4@^S]/K@^VIQE_@@S9?:@@[9!F@@#N@V@@ N@:@@AGV )@@G@@N@;@@BQ'0@@@/VF)@@(@@@@F'=@@@)&'0@@@/KF@@@/,0^UH&FJ@@JQFJ@@IC J@@DR$Z@@BGW )@@G@@%8K@@K/K@^VX&;K@@[/K@^V:%8K@@^/K@^V-&;K@@A/K@^U8%8K@@)/K@^V>&;K@@A/K@^U7GX )@@G@@:8K@@[/K@^U2C9X@@@&7Z@@#%9K@@]/K@^U7/K@^U8@@@@@K@@@@@@@@@@@@@W[^V1@@@@@@GY )@@G@@*4J@@A'-@^UYR9@@@['+@^UYN@?@@]^@\@@GN??@@@/KI@@@&#@@@F/,0^T&/\)^XXR\J@@AHG )@@G@@:8@@@)/K@^X5%8@@@-'8K@@[O;@@@[[CJ@@^R;K@@P(CJ@@LR;K@@K[WZ@@#IC )@@G@@R]0@[[/K@^T.C!J@@A%9@@@]/K@^-"A#W@@[[@Z@@^/K@^-4OFZ@@BH@K^=J[@Z@@^ABW@@[ID )@@G@@*[S@@@*SDFF*@#@@@@@ASG,AX USER*FILE.@#@@@@@USE C.,USER*FILE.@ @@@@@FOR,IIE )@@G@@S C.PDP11TAPGEN/DOS @E@@@@ INTEGER OUTFIL(129),FILNAM(6),EXT(3)IF )@@G@@,HEADER(4),FN1,FN2@B@@@@ C ,EX1,LINE(134),UNIFIL(30),S(7) @^@@@@IG )@@G@@ DATA IPC/O233/ @D@@@@ CALL ERTRAN(6,27H@ASG,TH 11,16N/////IH )@@G@@/Q,BLANK ) @^@@@@ CALL NTRAN(11,10) @^@@@@ CALL NTRAN(11,22) II )@@G@@@A@@@@ 1 READ(5,100)FILNAM,EXT,I1,I2 @A@@@@ 100 FORMAT(6A1,1X,3A1,IJ )@@G@@1X,I3,1X,I3)@A@@@@ WRITE(6,101)FILNAM,EXT,I1,I2 @D@@@@ 101 FORMATIK )@@G@@(1H1,6A1,1H.,3A1,1H[,I3,1H,,I3,1H],////) @ @@@@ 8 FN1=IRAD50(FILNAM(IL )@@G@@1)) @ @@@@ FN2=IRAD50(FILNAM(4)) @^@@@@ EX1=IRAD50(EXT) IM )@@G@@@#@@@@ DO 2 I=1,3 @^@@@@ FILNAM(I+3)=0 @#@@@@ FILNAMIN )@@G@@(I)=0 @#@@@@ 2 HEADER(I)=0 @#@@@@ HEADER(4)=0 @B@@@@ FLD(1,IO )@@G@@8,HEADER(1))=FLD(28,8,FN1) @B@@@@ FLD(10,8,HEADER(1))=FLD(20,8,FIP )@@G@@N1) @B@@@@ FLD(19,8,HEADER(1))=FLD(28,8,FN2) @B@@@@ FLD(28IQ )@@G@@,8,HEADER(1))=FLD(20,8,FN2) @B@@@@ FLD(1,8,HEADER(2))=FLD(28,8,EXIR )@@G@@1) @B@@@@ FLD(10,8,HEADER(2))=FLD(20,8,EX1) @B@@@@ FLD(19IS )@@G@@,8,HEADER(2))=FLD(28,8,I2) @B@@@@ FLD(28,8,HEADER(2))=FLD(28,8,IIT )@@G@@1) @B@@@@ FLD(1,8,HEADER(3))=FLD(28,8,IPC) @B@@@@ FLD(18IU )@@G@@,1,HEADER(4))=FLD(35,1,1) @A@@@@ CALL NTRAN(11,1,4,HEADER,L) IV )@@G@@@^@@@@ CALL NTRAN(11,22) @ @@@@ READ(5,102)ITYPE,UNIFIL @^@@@@IW )@@G@@ 102 FORMAT(A1,79A1) @#@@@@ NTYPE=0 @ @@@@ IF(ITYPE.EQ.IX )@@G@@1HE)NTYPE=1 @ @@@@ IF(ITYPE.EQ.1HD)NTYPE=-1@ @@@@ IF(NTYPE.EQ.IY )@@G@@00)GO TO 60 @ @@@@ IF(NTYPE.EQ.1)GO TO 61 @]@@@@ IFL=80@#@@@@IZ )@@G@@ 11 IFL=IFL-1 @ @@@@ IF(IFL.EQ.0)GO TO 60 @A@@@@ IF(UNIJA )@@G@@FIL(IFL).EQ.1H )GO TO 11@]@@@@ IBL=39@A@@@@ ENCODE(IBL,105,S,IJB )@@G@@S)UNIFIL @ @@@@ 105 FORMAT(9H@USE 10.,,30A1)@^@@@@ CALL ERTRAN(JC )@@G@@6,S) @A@@@@ CALL ERTRAN(6,11H@ASG,AX 10.) @]@@@@ 61 IEOF=0@]@@@@JD )@@G@@ IC=1 @]@@@@ ILC=0 @#@@@@ 6 DO 3 I=1,128@^@@@@ DO 3 IJE )@@G@@J=1,28,9 @ @@@@ IF(IC.LE.ILC)GO TO 4 @]@@@@ IC=1 @B@@@@JF )@@G@@ CALL RDLINE(LINE,ILC,IEOF,NTYPE) @ @@@@ IF(IEOF.NE.0)GO TOJG )@@G@@ 5 @C@@@@ 4 FLD(IJ,8,OUTFIL(I))=FLD(28,8,LINE(IC)) @#@@@@ 3 JH )@@G@@IC=IC+1 @B@@@@ FLD(0,1,OUTFIL(129))=FLD(35,1,1) @A@@@@ JI )@@G@@CALL NTRAN(11,1,129,OUTFIL,L) @^@@@@ CALL NTRAN(11,22) @#@@@@ JJ )@@G@@GO TO 6 @^@@@@ 5 DO 7 JI=IJ,28,9 @B@@@@ 7 FLD(JI,8,OUTFIL(I)JK )@@G@@)=FLD(28,8,0) @]@@@@ II=I+1@^@@@@ DO 9 J=II,128 @#@@@@JL )@@G@@ 9 OUTFIL(J)=0 @B@@@@ FLD(0,1,OUTFIL(129))=FLD(35,1,1) @A@@@@JM )@@G@@ CALL NTRAN(11,1,129,OUTFIL,L) @^@@@@ CALL NTRAN(11,22) @^@@@@JN )@@G@@ CALL NTRAN(11,9) @^@@@@ CALL NTRAN(11,22) @C@@@@ IF(NTYJO )@@G@@PE.EQ.-1)CALL ERTRAN(6,9H@FREE 10.) @B@@@@ READ(5,100,END=50)FILNAMJP )@@G@@,EXT,I1,I2 @A@@@@ WRITE(6,101)FILNAM,EXT,I1,I2 @#@@@@ GO TO JQ )@@G@@8 @^@@@@ 50 CALL NTRAN(11,9) @^@@@@ CALL NTRAN(11,22) @^@@@@JR )@@G@@ CALL NTRAN(11,9) @ @@@@ CALL NTRAN(11,22) @A@@@@ JS )@@G@@CALL ERTRAN(6,8H@FREE 11 ) @]@@@@ STOP @#@@@@ 60 WRITE(6,104)JT )@@G@@@E@@@@ 104 FORMAT(38H UNIDENTIFIABLE FILE NAME OR TYPE-EXIT) @]@@@@JU )@@G@@ STOP @]@@@@ END @ @@@@@FOR,IS C.PDP11TAPGEN/RT11 @E@@@@JV )@@G@@ INTEGER VOL(129),LAB(129),OUTFIL(129),HDR,EOF,BD1,BC2,@D@@@@ 1JW )@@G@@ FILNAM,EXT,ILINE(2),OLINE(9),UNIFIL(79),S(15), @^@@@@ 2 IBLD(6),LINJX )@@G@@E(133)@G@@@@ DATA (VOL(I),I=1,129)/O126117114061,18*O40040040040,O4JY )@@G@@0040040063 @ @@@@ 1 ,108*0,O400000000000/ @G@@@@ DATA (LAB(I)JZ )@@G@@,I=1,129)/0,5*O40040040040,O40040040060,3*O60060060060@C@@@@ 1 ,O600KA )@@G@@40060060,O60060060040,O60060060000 @F@@@@ 1 ,O60040060060,O60060060KB )@@G@@060,O122124061061,4*O40040040040, @G@@@@ 2 O126117114061,18*O40040KC )@@G@@040040,O40040040063,88*0,O400000000000/ @G@@@@ DATA HDR,EOF,BD1,BKD )@@G@@C2/O110104122061,O105117106061,O60040060060, @^@@@@ 1 O6006006006KE )@@G@@0/ @A@@@@C ASSIGN THE 9 TRACK TAPE FOR USE @D@@@@ 10 CALL ERTRANKF )@@G@@(6,27H@ASG,TH 11,16N//////Q,BLANK ) @^@@@@ CALL NTRAN(11,10) @^@@@@KG )@@G@@ CALL NTRAN(11,22) @A@@@@C WRITE HEADER -TAPE VOLUME LABEL @A@@@@KH )@@G@@ CALL NTRAN(11,1,129,VOL,L) @^@@@@ CALL NTRAN(11,22) @H@@@@KI )@@G@@C PERLIMINARY HEADER SETUP DONE -OPERATION RETURNS HERE FOR EACH NEW FILKJ )@@G@@E @#@@@@ 14 LAB(1)=HDR @#@@@@ LAB(14)=BD1 @#@@@@ LAB(15KK )@@G@@)=BC2 @C@@@@C GET FILE NAME FOR FILE TO BE WRITTEN ON TAPE @^@@@@C READKL )@@G@@ IN AS A6,1X,A3 @A@@@@ READ(5,119,END=70)FILNAM,EXT @^@@@@ 119 KM )@@G@@FORMAT(A6,1X,A3) @ @@@@ WRITE(6,198)FILNAM,EXT @A@@@@ 198 FORMATKN )@@G@@(1H1,A6,1H.,A3,////) @A@@@@ ENCODE(9,120,ILINE)FILNAM,EXT @^@@@@KO )@@G@@ 120 FORMAT(A6,A3) @ @@@@ 85 DECODE(9,113,ILINE)OLINE@#@@@@ 113 KP )@@G@@FORMAT(9R1) @#@@@@ DO 15 I=1,9 @^@@@@ 15 CALL ASC(OLINE(I))@]@@@@KQ )@@G@@ I=0 @A@@@@C INSERT FILE NAME INTO HEADER @#@@@@ DO 16 KR )@@G@@IW=2,3@^@@@@ DO 16 IC=1,28,9 @]@@@@ I=I+1 @A@@@@ 16 FLD(ICKS )@@G@@,8,LAB(IW))=OLINE(I) @ @@@@ FLD(1,8,LAB(4))=OLINE(9)@A@@@@C WRIKT )@@G@@TE OUT FILE HEADER LABELS @A@@@@ CALL NTRAN(11,1,129,LAB,L) KU )@@G@@@^@@@@ CALL NTRAN(11,22) @^@@@@ CALL NTRAN(11,9) @^@@@@ KV )@@G@@CALL NTRAN(11,22) @E@@@@C NOW START ON THE UNIVAC FILE TO BE WRITTEN ON KW )@@G@@THE TAPE @ @@@@ READ(5,114)ITYPE,UNIFIL @^@@@@ 114 FORMAT(A1,79KX )@@G@@A1) @#@@@@ NTYPE=0 @ @@@@ IF(ITYPE.EQ.1HE)NTYPE=1 @ @@@@KY )@@G@@ IF(ITYPE.EQ.1HD)NTYPE=-1@ @@@@ IF(NTYPE.EQ.0)GO TO 60 @ @@@@KZ )@@G@@ IF(NTYPE.EQ.1)GO TO 61 @]@@@@ IFL=80@#@@@@ 17 IFL=IFL-1 LA )@@G@@@ @@@@ IF(IFL.EQ.0)GO TO 60 @A@@@@ IF(UNIFIL(IFL).EQ.1H )GOLB )@@G@@ TO 17@]@@@@ IBL=88@A@@@@ ENCODE(IBL,115,S,IS)UNIFIL @A@@@@LC )@@G@@ 115 FORMAT(9H@USE 10.,,79A1 ) @^@@@@ CALL ERTRAN(6,S) @B@@@@LD )@@G@@ CALL ERTRAN(6,11H@ASG,AX 10. ) @]@@@@ 61 IEOF=0@]@@@@ LE )@@G@@IC=1 @]@@@@ ILC=0 @]@@@@ IBL=0@#@@@@ 18 IBL=IBL+1 @^@@@@LF )@@G@@ DO 19 I=1,128 @^@@@@ DO 19 IJ=1,28,9 @ @@@@ IF(IC.LG )@@G@@LE.ILC)GO TO 20 @]@@@@ IC=1 @B@@@@ CALL RDLINE(LINE,ILC,IEOLH )@@G@@F,NTYPE) @ @@@@ IF(IEOF.NE.0)GO TO 50 @A@@@@ 20 FLD(IJ,8,OUTLI )@@G@@FIL(I))=LINE(IC) @#@@@@ 19 IC=IC+1 @ @@@@ FLD(0,1,OUTFIL(129LJ )@@G@@))=1 @A@@@@ CALL NTRAN(11,1,129,OUTFIL,L) @^@@@@ CALL NTRAN(1LK )@@G@@1,22) @#@@@@ GO TO 18 @^@@@@ 50 DO 27 JI=IJ,28,9 @ @@@@ 27 LL )@@G@@FLD(JI,8,OUTFIL(I))=0 @]@@@@ II=I+1@^@@@@ DO 29 J=II,128 LM )@@G@@@#@@@@ 29 OUTFIL(J)=0 @ @@@@ FLD(0,1,OUTFIL(129))=1 @A@@@@ LN )@@G@@CALL NTRAN(11,1,129,OUTFIL,L) @^@@@@ CALL NTRAN(11,22) @^@@@@ LO )@@G@@CALL NTRAN(11,9) @^@@@@ CALL NTRAN(11,22) @A@@@@C WRITE OUT EOF LLP )@@G@@ABELS FOR FILE @#@@@@ LAB(1)=EOF @ @@@@ ENCODE(6,116,IBLE)LQ )@@G@@IBL @#@@@@ 116 FORMAT(I6) @ @@@@ DECODE(6,117,IBLE)IBLD @#@@@@LR )@@G@@ 117 FORMAT(6R1) @#@@@@ DO 30 I=1,6 @^@@@@ CALL ASC(IBLD(I)) LS )@@G@@@A@@@@ IF(IBLD(I).EQ.32)IBLD(I)=48 @#@@@@ 30 CONTINUE @A@@@@LT )@@G@@ FLD(19,8,LAB(14))=IBLD(1) @A@@@@ FLD(28,8,LAB(14))=IBLD(2LU )@@G@@) @ @@@@ FLD(1,8,LAB(15))=IBLD(3)@A@@@@ FLD(10,8,LAB(15))=LV )@@G@@IBLD(4) @A@@@@ FLD(19,8,LAB(15))=IBLD(5) @A@@@@ FLD(28LW )@@G@@,8,LAB(15))=IBLD(6) @^@@@@C OUTPUT EOF LABELS @A@@@@ CALL NLX )@@G@@TRAN(11,1,129,LAB,L) @^@@@@ CALL NTRAN(11,22) @^@@@@ CALL NLY )@@G@@TRAN(11,9) @^@@@@ CALL NTRAN(11,22) @C@@@@ IF(NTYPE.EQ.-1)CALLZ )@@G@@L ERTRAN(6,9H@FREE 10. )@#@@@@ GO TO 14 @^@@@@ 70 CALL NTRAN(1MA )@@G@@1,9) @^@@@@ CALL NTRAN(11,22) @A@@@@ CALL ERTRAN(6,8H@FREE 11MB )@@G@@ ) @]@@@@ STOP @#@@@@ 60 WRITE(6,118)@E@@@@ 118 FORMAT(39H UMC )@@G@@NDEFINEABLE FILE NAME OR TYPE-ABORT ) @^@@@@ CALL ERTRAN(1) MD )@@G@@@]@@@@ STOP @]@@@@ END @ @@@@@FOR,IS C.PDP11TAPERD/DOS ME )@@G@@@F@@@@ INTEGER TAPNO,S(7),UNIFIL(30),LINE(131),INFIL(128),OCR,OLF MF )@@G@@@ @@@@ DATA OCR,OLF/O15,O12/ @^@@@@ READ(5,100)TAPNO @#@@@@MG )@@G@@ 100 FORMAT(A4) @ @@@@ ENCODE(28,101,S,IS)TAPNO@C@@@@ 101 FORMATMH )@@G@@(22H@ASG,TH 11,16N//////Q,,A4,2H ) @^@@@@ CALL ERTRAN(6,S) @^@@@@MI )@@G@@ CALL NTRAN(11,10) @^@@@@ CALL NTRAN(11,22) @ @@@@ 1 READ(5MJ )@@G@@,103,END=50)UNIFIL@#@@@@ 103 FORMAT(30A1)@]@@@@ ILC=31@#@@@@ 2 MK )@@G@@ILC=ILC-1 @ @@@@ IF(ILC.EQ.0)GO TO 3 @A@@@@ IF(UNIFIL(ILML )@@G@@C).NE.1H )GO TO 4 @#@@@@ GO TO 2 @^@@@@ 3 CALL NTRAN(11,8,1)MM )@@G@@@^@@@@ CALL NTRAN(11,22) @#@@@@ GO TO 1 @^@@@@ 4 WRITE(MN )@@G@@6,104)UNIFIL@ @@@@ 104 FORMAT(1H1,30A1,////) @A@@@@ ENCODE(39,10MO )@@G@@5,S,IS)UNIFIL @A@@@@ 105 FORMAT(7H@CAT,P ,30A1,2H ) @^@@@@ MP )@@G@@CALL ERTRAN(6,S) @A@@@@ ENCODE(39,106,S,IS)UNIFIL @ @@@@ 106 MQ )@@G@@FORMAT(9H@USE 10.,,30A1)@^@@@@ CALL ERTRAN(6,S) @A@@@@ CALL EMR )@@G@@RTRAN(6,11H@ASG,AX 10. )@#@@@@ CALL HEADER @]@@@@ LC=0 @ @@@@MS )@@G@@ 5 CALL BLKRD(INFIL,IEOF) @ @@@@ IF(IEOF.NE.0)GO TO 60 @#@@@@MT )@@G@@ DO 6 I=1,128@^@@@@ DO 6 J=1,28,9 @ @@@@ ITEMP=FLD(J,MU )@@G@@8,INFIL(I)) @ @@@@ IF(ITEMP.EQ.0)GO TO 6 @ @@@@ IF(ITEMP.EQ.MV )@@G@@OCR)GO TO 7 @ @@@@ IF(ITEMP.EQ.OLF)GO TO 6 @#@@@@ LC=LC+1 MW )@@G@@@^@@@@ CALL RASC(ITEMP) @^@@@@ LINE(LC)=ITEMP @#@@@@ MX )@@G@@GO TO 6 @A@@@@ 7 WRITE(6,107)(LINE(K),K=1,LC) @^@@@@ 107 FORMATMY )@@G@@(1X,131R1) @A@@@@ WRITE(10,108)(LINE(K),K=1,LC) @^@@@@ 108 FORMATMZ )@@G@@(131R1) @]@@@@ LC=0 @#@@@@ 6 CONTINUE @#@@@@ GO TO NA )@@G@@5 @ @@@@ 60 IF(LC.EQ.0)GO TO 51 @A@@@@ WRITE(6,107)(LINE(NB )@@G@@K),K=1,LC) @A@@@@ WRITE(10,108)(LINE(K),K=1,LC) @#@@@@ 51 END FINC )@@G@@LE 10 @^@@@@ CALL CLOSE(10,1) @A@@@@ CALL ERTRAN(6,9H@FREE 10ND )@@G@@.) @#@@@@ GO TO 1 @^@@@@ 50 CALL NTRAN(11,10) @^@@@@ NE )@@G@@CALL NTRAN(11,22) @A@@@@ CALL ERTRAN(6,9H@FREE 11.) @]@@@@ NF )@@G@@STOP @]@@@@ END @ @@@@@FOR,IS C.PDP11TAPERD/RT11 @F@@@@ NG )@@G@@INTEGER TAPNO,S(7),UNIFIL(30),LINE(131),INFIL(128),OCR,OLF @ @@@@ NH )@@G@@DATA OCR,OLF/O15,O12/ @^@@@@ READ(5,100)TAPNO @#@@@@ 100 FORMATNI )@@G@@(A4) @ @@@@ ENCODE(28,101,S,IS)TAPNO@C@@@@ 101 FORMAT(22H@ASG,TH NJ )@@G@@11,16N//////Q,,A4,2H ) @^@@@@ CALL ERTRAN(6,S) @^@@@@ CALL NNK )@@G@@TRAN(11,10) @^@@@@ CALL NTRAN(11,22) @^@@@@ CALL NTRAN(11,8,1)NL )@@G@@@^@@@@ CALL NTRAN(11,22) @ @@@@ 1 READ(5,103,END=50)UNIFIL@#@@@@NM )@@G@@ 103 FORMAT(30A1)@]@@@@ ILC=31@#@@@@ 2 ILC=ILC-1 @ @@@@ NN )@@G@@IF(ILC.EQ.0)GO TO 3 @A@@@@ IF(UNIFIL(ILC).NE.1H )GO TO 4 @#@@@@NO )@@G@@ GO TO 2 @^@@@@ 3 CALL NTRAN(11,8,3)@^@@@@ CALL NTRAN(1NP )@@G@@1,22) @#@@@@ GO TO 1 @^@@@@ 4 WRITE(6,104)UNIFIL@ @@@@ 104 NQ )@@G@@FORMAT(1H1,30A1,////) @A@@@@ ENCODE(39,105,S,IS)UNIFIL @A@@@@NR )@@G@@ 105 FORMAT(7H@CAT,P ,30A1,2H ) @^@@@@ CALL ERTRAN(6,S) @A@@@@NS )@@G@@ ENCODE(39,106,S,IS)UNIFIL @ @@@@ 106 FORMAT(9H@USE 10.,,30A1)NT )@@G@@@^@@@@ CALL ERTRAN(6,S) @A@@@@ CALL ERTRAN(6,11H@ASG,AX 10. )NU )@@G@@@]@@@@ LC=0 @ @@@@ 5 CALL BLKRD(INFIL,IEOF) @ @@@@ IF(IEONV )@@G@@F.NE.0)GO TO 60 @#@@@@ DO 6 I=1,128@^@@@@ DO 6 J=1,28,9 NW )@@G@@@ @@@@ ITEMP=FLD(J,8,INFIL(I)) @ @@@@ IF(ITEMP.EQ.0)GO TO 6 NX )@@G@@@ @@@@ IF(ITEMP.EQ.OCR)GO TO 7 @ @@@@ IF(ITEMP.EQ.OLF)GO TO 6 NY )@@G@@@#@@@@ LC=LC+1 @^@@@@ CALL RASC(ITEMP) @^@@@@ LINE(LNZ )@@G@@C)=ITEMP @#@@@@ GO TO 6 @A@@@@ 7 WRITE(6,107)(LINE(K),K=1OA )@@G@@,LC) @^@@@@ 107 FORMAT(1X,131R1) @A@@@@ WRITE(10,108)(LINE(K),K=OB )@@G@@1,LC) @^@@@@ 108 FORMAT(131R1) @]@@@@ LC=0 @#@@@@ 6 CONTINOC )@@G@@UE @#@@@@ GO TO 5 @ @@@@ 60 IF(LC.EQ.0)GO TO 51 @A@@@@OD )@@G@@ WRITE(6,107)(LINE(K),K=1,LC) @A@@@@ WRITE(10,108)(LINE(K),K=OE )@@G@@1,LC) @#@@@@ 51 END FILE 10 @^@@@@ CALL CLOSE(10,1) @A@@@@ OF )@@G@@CALL ERTRAN(6,9H@FREE 10.) @^@@@@ CALL NTRAN(11,8,2)@^@@@@ OG )@@G@@CALL NTRAN(11,22) @#@@@@ GO TO 1 @^@@@@ 50 CALL NTRAN(11,10) OH )@@G@@@^@@@@ CALL NTRAN(11,22) @A@@@@ CALL ERTRAN(6,9H@FREE 11.) OI )@@G@@@]@@@@ STOP @]@@@@ END @#@@@@@FOR,IS C.ASC @ @@@@ OJ )@@G@@SUBROUTINE ASC(LET) @ @@@@ INTEGER BLNK,IASC(64) @^@@@@ OK )@@G@@DATA BLNK/O40/ @G@@@@ DATA (IASC(I),I=1,64)/O100,O133,O135,O43,OOL )@@G@@136,O40,O101,O102,O103, @G@@@@ C O104,O105,O106,O107,O110,O111,OM )@@G@@O112,O113,O114,O115,O116, @G@@@@ C O117,O120,O121,O122,O123,O124ON )@@G@@,O125,O126,O127,O130,O131,O132, @G@@@@ C O51,O55,O53,O74,O75,O76OO )@@G@@,O46,O44,O52,O50,O45,O72,O77,O41,O54,O134,@G@@@@ C O60,O61,O62,O63,OOP )@@G@@64,O65,O66,O67,O70,O71,O47,O73,O57,O56,O42,O137/@C@@@@ IF((LET.LT.0OQ )@@G@@).OR.(LET.GT.63))GO TO 10 @^@@@@ LET=IASC(LET+1) @]@@@@ OR )@@G@@RETURN@#@@@@ 10 LET=BLNK @]@@@@ RETURN@]@@@@ END @#@@@@OS )@@G@@@FOR,IS C.RASC @ @@@@ SUBROUTINE RASC(LET) @ @@@@ INTEGEOT )@@G@@R BLNK,IASC(64) @^@@@@ DATA BLNK/O5/ @G@@@@ DATA (IASC(IOU )@@G@@),I=1,64)/O5,O55,O76,O3,O47,O52,O46,O72,O51,O40,O50, @G@@@@ C O42,OOV )@@G@@56,O41,O75,O74,O60,O61,O62,O63,O64,O65,O66,O67,O70,O71,O53 @G@@@@ COW )@@G@@ ,O73,O43,O44,O45,O54,O0,O6,O7,O10,O11,O12,O13,O14,O15,O16,O17, @G@@@@OX )@@G@@ C O20,O21,O22,O23,O24,O25,O26,O27,O30,O31,O32,O33,O34,O35,O36,O37, OY )@@G@@@^@@@@ C O1,O57,O2,O4,O77/@C@@@@ IF((LET.LT.32).OR.(LET.GT.95))OZ )@@G@@GO TO 10 @^@@@@ LET=IASC(LET-31) @]@@@@ RETURN@#@@@@ 10 PA )@@G@@LET=BLNK @]@@@@ RETURN@]@@@@ END @#@@@@@FOR,IS C.IRAD50 PB )@@G@@@ @@@@ FUNCTION IRAD50(LET) @#@@@@ INTEGER OO50@A@@@@ PC )@@G@@DIMENSION LET(3),IRY(38,2) @^@@@@ DATA OO50/O50/ @G@@@@ PD )@@G@@DATA(IRY(I,1),I=1,38)/1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ @F@@@@PE )@@G@@ C ,1HK,1HL,1HM,1HN,1HO,1HP,1HQ,1HR,1HS,1HT,1HU,1HV,1HW,1HX @F@@@@PF )@@G@@ C ,1HY,1HZ,1H$,1H.,1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9/ @G@@@@PG )@@G@@ DATA (IRY(I,2),I=1,38)/O1,O2,O3,O4,O5,O6,O7,O10,O11,O12,O13,O14 PH )@@G@@@F@@@@ C ,O15,O16,O17,O20,O21,O22,O23,O24,O25,O26,O27,O30,O31,O32 PI )@@G@@@E@@@@ C ,O33,O34,O36,O37,O40,O41,O42,O43,O44,O45,O46,O47/ @#@@@@PJ )@@G@@ IRAD50=0 @#@@@@ DO 1 I=1,3 @#@@@@ DO 2 J=1,38 @A@@@@PK )@@G@@ IF(LET(I).EQ.IRY(J,1))GO TO 10@#@@@@ 2 CONTINUE @^@@@@ PL )@@G@@IRAD50=IRAD50*OO50@#@@@@ GO TO 1 @A@@@@ 10 IRAD50=IRAD50*OO50PM )@@G@@+IRY(J,2) @#@@@@ 1 CONTINUE @]@@@@ RETURN@]@@@@ END PN )@@G@@@#@@@@@FOR,IS C.RDLINE @C@@@@ SUBROUTINE RDLINE(LINE,ILC,IEOF,NTYPPO )@@G@@E) @^@@@@ INTEGER OCR,OLF @ @@@@ DIMENSION LINE(134) PP )@@G@@@ @@@@ DATA OCR,OLF/O15,O12/ @ @@@@ IF(NTYPE.EQ.-1)GO TO 60 PQ )@@G@@@B@@@@ 3 READ(5,100,END=50)(LINE(J),J=1,80) @#@@@@ 100 FORMAT(80R1)PR )@@G@@@#@@@@ DO 1 I=1,80 @A@@@@ IF(LINE(81-I).NE.5)GO TO 2 @#@@@@PS )@@G@@ 1 CONTINUE @#@@@@ GO TO 3 @#@@@@ 2 ILC=81-I+2 @A@@@@PT )@@G@@ WRITE(6,101)(LINE(J),J=1,80) @^@@@@ 101 FORMAT(1X,80R1) @^@@@@PU )@@G@@ LINE(ILC-1)=OCR @#@@@@ II=81-I @^@@@@ LINE(ILC)=OLPV )@@G@@F @#@@@@ 70 DO 4 J=1,II @^@@@@ 4 CALL ASC(LINE(J)) @]@@@@ PW )@@G@@IEOF=0@]@@@@ RETURN@B@@@@ 60 READ(10,110,END=50)(LINE(J),J=1,131)PX )@@G@@@^@@@@ 110 FORMAT(131R1) @^@@@@ DO 12 I=1,131 @A@@@@ PY )@@G@@IF(LINE(132-I).NE.5)GO TO 13 @#@@@@ 12 CONTINUE @#@@@@ GO TO PZ )@@G@@60 @#@@@@ 13 ILC=132-I+2 @A@@@@ WRITE(6,111)(LINE(J),J=1,131) QA )@@G@@@^@@@@ 111 FORMAT(1X,131R1) @^@@@@ LINE(ILC-1)=OCR @^@@@@ QB )@@G@@LINE(ILC)=OLF @#@@@@ II=132-I @#@@@@ GO TO 70 @#@@@@QC )@@G@@ 50 IEOF=100 @]@@@@ RETURN@]@@@@ END @#@@@@@FOR,IS C.HEQD )@@G@@ADER @^@@@@ SUBROUTINE HEADER @^@@@@ INTEGER HEAD(4) @A@@@@QE )@@G@@ CALL NTRAN(11,2,4,HEAD,L) @^@@@@ CALL NTRAN(11,22) @]@@@@QF )@@G@@ RETURN@]@@@@ END @#@@@@@FOR,IS C.BLKRD @A@@@@ SUBROUQG )@@G@@TINE BLKRD(INFIL,IEOF) @^@@@@ INTEGER INFIL(128)@]@@@@ IEOF=0QH )@@G@@@#@@@@ DO 1 I=1,128@#@@@@ 1 INFIL(I)=0 @A@@@@ CALL NTRAN(1QI )@@G@@1,2,128,INFIL,L) @^@@@@ CALL NTRAN(11,22) @ @@@@ IF(L.EQ.-2)IQJ )@@G@@EOF=100 @]@@@@ RETURN@]@@@@ END @A@@@@@MAP,IX MAP1,C.PDPQK )@@G@@11TAPEGEN/DOS @^@@@@IN C.PDP11TAPEGEN/DOS @]@@@@IN C.IRAD50 @]@@@@QL )@@G@@IN C.ASC @]@@@@IN C.RDLINE @A@@@@@MAP,IX MAP2,C.PDP11TAPEGEN/RT11 QM )@@G@@@^@@@@IN C.PDP11TAPEGEN/RT11 @]@@@@IN C.ASC @]@@@@IN C.RDLINE @ @@@@QN )@@G@@@MAP,IX MAP3,C.PDP11TAPERD/DOS@^@@@@IN C.PDP11TAPERD/DOS @]@@@@IN C.HQO )@@G@@EADER @]@@@@IN C.RASC @]@@@@IN C.BLKRD @A@@@@@MAP,IX MAP4,C.PDP11TAPEQP )@@G@@RD/RT11 @^@@@@IN C.PDPTAPERD/RT11 @]@@@@IN C.RASC @]@@@@IN C.BQQ )@@G@@LKRD ___HW,1HX @F@@@@ C ,1HY,1HZ,1H$,1H.,1H0,1H1,1H2,1H3,1H4,1H5,QR )@@G@@1H6,1H7,1H8,1H9/ @G@@@@ DATA (IRY(I,2),I=1,38)/O1,O2,O3,O4,O5,O6,OQS )@@G@@7,O10,O11,O12,O13,O14 @F@@@@ C ,O15,O16,O17,O20,O21,O22,O23,O24,O2QT )@@G@@@D@]@@ ITEM AMOUNT COST @D@]@@CPU TIQU )@@G@@ME 00:00:04.593 $0.08@D@[@@FILE I/O REQUESTS QV )@@G@@ 257 $0.06@D@[@@FILE I/O WORDS QW )@@G@@ 150189 $0.01@D@[@@MEMORY USAGE 0.101QX )@@G@@ $0.04@D@[@@CARDS IN 22 $0.00QY )@@G@@@D@[@@PAGES PRINTED 5 $0.09@D@[@@SHAREDQZ )@@G@@ FILES 1 $0.06@D@[@@SOFTWARE SUPPORT RA )@@G@@ 17 $0.14@D@[@@JOB CHARGE RB )@@G@@ 1 $0.05@D@]@@TOTAL COST RC )@@G@@ $0.53@J@]@@ THE ABOVE DOLLAR AMOUNTS ARE APPROXIMATE AND ARE BRD )@@G@@ASED ON RATES FOR OVERNIGHT RUNS @D@[@@USER BALANCE RE )@@G@@ $125.66@C@]@@ INITIATION TIME: 01:52:39 DEC 1,19RF )@@G@@78 @C@]@@ TERMINATION TIME: 01:53:02 DEC 1,1978 @C@]@@ PRERG )@@G@@VIOUS RUN TIME: 01:35:06 DEC 1,1978 0^@@@@D,@@TTY RUN=CLS,BRF=ON RH )@@G@@_@_____U________________________________________________________________RI )@@G@@________________________________________________________________________RJ )@@G@@_________________________V______________________________________________RK )@@G@@________________________________________________________________________RL )@@G@@________________________________________________________________________RM )@@G@@________________________________________________________________________RN )@@G@@________________________________________________________________________RO )@@G@@________________________________________________________________________RP )@@G@@________________________________________________________________________RQ )@@G@@________________________________________________________________________RR )@@G@@________________________________________________________________________RS )@@G@@________________________________________________________________________RT )@@G@@________________________________________________________________________RU )@@G@@________________________________________________________________________RV )@@G@@________________________________________________________________________RW )@@G@@________________________________________________________________________RX )@@G@@________________________________________________________________________RY )@@G@@________________________________________________________________________RZ )@@G@@________________________________________________________________________SA )@@G@@________________________________________________________________________SB )@@G@@________________________________________________________________________SC )@@G@@________________________________________________________________________SD )@@G@@________________________________________________________________________SE )@@G@@________________________UMBER, NUMBER IS,I10) (019H BOTH ENDS OF PIPE SF )@@G@@,I5,027H ARE CONNECTED TO SAME NODE)K&@@@@KXPPPPL77C@@@@@@@ @@[@@[@@@@@ASG )@@G@@KG@@@@ KPK*.WKJU#9]L5CC@@4 K^@@@@K^OZH3KA4B2 J";M=[5 SH )@@G@@@@@@@@L5!JM4@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@ ^$H@@I^$H@@[^$HSK )@@G@@@)[@@@@-@@@@@@@@@@@@@@@@@@@@@@[)@@@@[=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)[@@@@)@@@@@)@@@@@-@@@@@-@@@@@=@@@@SN )@@G@@@=@@@@@_F^@%READ AFTER WRITE ATTEMPTED WITHOUT IG@@C7SC[@S7"G[@C6)T[@C7TSO )@@G@@G@@@@KAB@C9R/,0@CB@@@@@@]@@@@@O8)@@[A@)C6Z8LKC9J/,0@CB@@@C5W]@@@@@@@@C6YSP )@@G@@[@@@@@@@@C6T]@@@@@/,0@CC@@@CHP#[]@@@@@@C63@@@@@@@@@@@IR8)@@[A@)C6ZN9K@@^SQ )@@G@@/,0@CB@@@C6S]@@@@@O8)@@[A@)C6Z8LKC9?/,0@CB@@@C5W]@@@@@@@@C6Y[@@@@@@@@C6TSR )@@G@@]@@@@@/,0@CC@@@CHP#[[@@@@@@C/R@@@@@@@@@C6Y[@@@@@/,0@CC@@@CHP#[[@@@@@@C/&SS )@@G@@@@@@@@@@@CHB#@@@@@@@@CHD]@@@@E/,0@CC@@@CHP#[[@@@@@@C/&@@@@@@@@@CHB#@@@@@ST )@@G@@@@@CHD]@@@@E/,0@CC@@@CHP#[]@@@@@@C7[@@@@@@@@@@@CR80@@[A@0C6XC[@C6+H9@@@[SU )@@G@@N[)@@KR'3C5$AA0C')/,0@CB@@@@@@]@@@@@R'3C7IAA0C'>/,0@CB@@@@@@[@@@@@R'3C5SSV )@@G@@AA0C'%/,0@CB@@@@@@[@@@@@R'3C5WAA0C'\/,0@CB@@@@@@[@@@@@O80@@[A@0C6X8L)C'XSW )@@G@@/,0@CC@@@CHP#[[@@@@@@C/6@@@@@@/,0@CC@@@CHP#[]@@@@@@C7D@@@@@@@@@@@AR8)@@[SX )@@G@@A@)C6)C[@C7OH9@@@[N[K@@KR'2C5$AA0C;B/,0@CB@@@@@@]@@@@@R'2C7IAA0C;G/,0@CBSY )@@G@@@@@@@@[@@@@@O8)@@[A@)C6)8LKC;^/,0@CC@@@CHP#[[@@@@@@C.^@@@@@@@@@C6<]@@@@@SZ )@@G@@/,0@CC@@@@@@@@@@@@@@@@@@@@@C6=@@@@@@@@@C.-@@@C.+@@@C.&@@@C.&@@@C.&@@@C.+TA )@@G@@@@@C.:@@@C.?@@@C7W@@@C5-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@CK@C0[SC[0]@SE[S^]KK@C![0?]@TEL D-[E-DE1 ^@)CD^DLPETOC(^^@)^@)CTPTC )@@G@@D*M[0<]@@@@@@@@@D@@#@@@@@@@@@@@E@]ODEBUG @@@@@@@@[@[HUE )@@G@@ @ @@@[]@@@^T@@@@W@G2@^YFPF$AM @@@@@,@@[@[* UF )@@G@@@ @@@[[@@@]5@@@@)TDF$ AFBLDT$F @@@@@@@@[@[] @ @@@[[@@@@JUG )@@G@@@@@@UY )@@G@@ @ @#@^]@@@@W@@@[+\CO!DBEDUMMY @@@@@@@@[@[L UZ )@@G@@@ @@@[[@@@@[@@@[JIT[NGUNLOAD @@@@@@@@[@[_ @ @[@][@@@@8VF )@@G@@@@@[?DDOG]]GCF$AM @@@@@@@@[@[^ @ @[@]]@@@[K@@@[![DH_]NGVG )@@G@@CHKPT @@@@@@@@[@[A @ @]@#[@@@@!@@@[,LC?"]OGCONF-2 VH )@@G@@@@@@@@@@[@[E @ @B@ [@@@]@@@@[,"CT_]TGSORT @@@@@@@@[@[5VI )@@G@@ @ @@@[[@@@@4@@@[0"C2*#FGPATCH @@@@@@@@[@[& VJ )@@G@@@ @B@ [@@@]2@@@[12F8J#NGRELERR @@@@@@@@[@[\ @ @[@][@@@^*VK )@@G@@@@@[4=B_,#RGSCAN @@@@@@@@[@[3 @ @ @ [@@@A?@@@[9GG#N#SGVL )@@G@@RELOAD @@@@@0@@[@[0 @ @@@[]@@@L;@@@[_8HO!#YGCOMPACT VM )@@G@@@@@@@@@@[@[C @ @@@[[@@@@R@@@]L3C9Y[IGDECALC @@@@@@@@[@[IVN )@@G@@ @ @@@[[@@@@_@@@]MEC94[IGDLTPGE @@@@@@@@[@[K VO )@@G@@@ @@@[[@@@[<@@@]NDC'#[IGREORDLT @@@@@@@@[@[1 @ @@@[[@@@@3VP )@@G@@@@@]O?C'([IGDBP$APS @@@@@@@@[@[G @ @@@[[@@@@X@@@]PZCX:[QGVQ )@@G@@INPUT @@@@@@@@[@[V @ @@@[[@@@@8@@@]P/C"(#JGRESTORE VR )@@G@@@@@@@@@@[@[2 @ @@@[[@@@] @@@]Q4C[&#LGART @@@@@@@@[@[[VS )@@G@@ @ @@@[[@@@ @@@]S9CT5#ZGIIKREORG @@@@@@@@[@[U VT )@@G@@@ @@@[[@@@@?@@@]X"H_Y^DGMAINREORG @@@@@@@@[@[- @ @@@[[@@@A/VU )@@G@@@@@]Y%I[C^DGDF$AMR @@@@@@@@[@[J @ @@@[[@@@[Q@@@]>&I]&^DGVV )@@G@@SYM$AM @@@@@@@@[@[6 @ @@@[[@@@[T@@@]&/I#8^DGEDIT$WK VW )@@G@@@@@@@@@@[@[M @ @@@[[@@@[,@@@]*PG/L[JGERROR @@@@@@@@[@[NVX )@@G@@ @ @@@[[@@@@N@@@]%#HY"[NGCHANGE @@@@@@@@[@[ VY )@@G@@@ @@@[[@@@[>@@@]%QE"W]FGGETSET @@@@@@@@[@[Q @ @@@[[@@@[SVZ )@@G@@@@@]:;H8S]FGLOCATE @@@@@@@@[@[Z @ @@@[[@@@#Q@@@]!ND#6#]GWA )@@G@@LET @@@@@@@@[@[Y @ @@@[[@@@ X@@@]0(F%(#KGGETRSV WB )@@G@@@@@@@@@@[@[P @ @@@[[@@@[G@@@]6AJ[C#MGMAINED @@@@@@@@[@[)WC )@@G@@ @ @@@[[@@@[O@@@]7MIA&^DGRDCTBL @@@@@@@@[@[, WD )@@G@@@ @@@[[@@@@3@@@]8&GYD^JGIIKED @@@@@@@@[@[T @ @@@[[@@@@\WE )@@G@@@@@]9TC/^^KGCOMMON @@@@@@@@[@[B @ @@@[]@@@@>@@@]'CG_*BTFWF )@@G@@ART @@@@@@@@ @@@ @@@];S@@#@@:@@@]'!CY-^NGBLDT$F WG )@@G@@@@@@@@@@ @@@ @@@];Y@@[@@#@@@];VCY&^NGCALL$WK @@@@@@@@ @@@WH )@@G@@ @@@];>@@[@@A@@@];ZCY%^NGCF$AM @@@@@@@@ @@@ WI )@@G@@@@@];7@@^@@L@@@];&CY\^NGCHANGE @@@@@@@@ @@@ @@@]/D@@#@@IWJ )@@G@@@@@];;CY4^NGCHKPT @@@@@@@@ @@@ @@@]/S@@#@@G@@@]/GCY'^NGWK )@@G@@COMMON @@@@@@@@ @@@ @@@]/+@@#@@B@@@]/VCZ]^NGCOMPACT WL )@@G@@@@@@@@@@ @@@ @@@]/(@@]@@^@@@]/>CZA^NGCONF-1 @@@@@@@@ @@@WM )@@G@@ @@@].M@@A@@$@@@]/:CZR^NGCONF-2 @@@@@@@@ @@@ WN )@@G@@@@@].:@@#@@N@@@].SCZZ^NGDB$AM @@@@@@@@ @@@ @@@].8@@#@@EWO )@@G@@@@@].,CZ1^NGDBP$APS @@@@@@@@ @@@ @@@]._@@[@@^@@@].;CZ4^NGWP )@@G@@DEBUG @@@@@@@@ @@@ @@@]_ @@#@[ @@@]"@C)[^NGDECALC WQ )@@G@@@@@@@@@@ @@@ @@@]_N@@#@@F@@@]_CC)B^NGDF$AMR @@@@@@@@ @@@WR )@@G@@ @@@]_%@@^@@O@@@]_QC)K^NGDLTPGE @@@@@@@@ @@@ WS )@@G@@@@@#@@@@A@@M@@@]_,C)*^NGDUMMY @@@@@@@@ @@@ @@@#@B@@[@@[WT )@@G@@@@@#@AC):^NGEDIT$WK @@@@@@@@ @@@ @@@#@U@@ @@M@@@#@CC)6^NGWU )@@G@@ERROR @@@@@@@@ @@@ @@@#@Z@@[@@@@@@#@ZC-[^NGF$ASG WV )@@G@@@@@@@@@@ @@@ @@@#@<@@]@@#@@@#@)C-B^NGGETRSV @@@@@@@@ @@@WW )@@G@@ @@@#@1@@]@@G@@@#@>C-H^NGGETSET @@@@@@@@ @@@ WX )@@G@@@@@#@_@@]@@G@@@#@3C-M^NGGETVAR @@@@@@@@ @@@ @@@#[D@@[@@CWY )@@G@@@@@#[[C-R^NGIFWKR @@@@@@@@ @@@ @@@#[N@@[@@D@@@#[EC-Z^NGWZ )@@G@@IIKED @@@@@@@@ @@@ @@@#[<@@^@@J@@@#[OC-(^NGIIKREORG XA )@@G@@@@@@@@@@ @@@ @@@#['@@^@@N@@@#[$C-6^NGINPUT @@@@@@@@ @@@XB )@@G@@ @@@#]A@@[@@C@@@#["C-;^NGINTRP @@@@@@@@ @@@ XC )@@G@@@@@#]G@@#@@ @@@#]BC+-^NGLD$TBL @@@@@@@@ @@@ @@@#]K@@[@@[XD )@@G@@@@@#]JC+6^NGLET @@@@@@@@ @@@ @@@##H@@#@@/@@@#]LCD^NGRELOAD @@@@@@@@ @@@ @@@#GT@@K@]D@@@#EKC>%^NGXT )@@G@@REORDLT @@@@@@@@ @@@ @@@#G3@@ @@E@@@#G(C>,^NGRESTORE XU )@@G@@@@@@@@@@ @@@ @@@#HL@@#@@T@@@#G8C>6^NGSCAN @@@@@@@@ @@@XV )@@G@@ @@@#IF@@#@@7@@@#HOC&]^NGSF$AM @@@@@@@@ @@@ XW )@@G@@@@@#I%@@ @@W@@@#IIC&H^NGSORT @@@@@@@@ @@@ @@@#I'@@#@@FXX )@@G@@@@@#I\C&O^NGSYM$AM @@@@@@@@ @@@ @@@#JK@@#@@N@@@#I.C&U^NGXY )@@G@@TF$C @@@@@@@@ @@@ @@@#JT@@#@@A@@@#JNC&X^NGTF$CPY XZ )@@G@@@@@@@@@@ @@@ @@@#J)@@[@@^@@@#JWC&)^NGTF$DBP @@@@@@@@ @@@YA )@@G@@ @@@#J%@@]@@D@@@#J-C&>^NGTF$DLT @@@@@@@@ @@@ YB )@@G@@@@@#J1@@]@@ @@@#J?C&*^NGTF$IA @@@@@@@@ @@@ @@@#K@@@^@@HYC )@@G@@@@@#J3C&?^NGTF$IB @@@@@@@@ @@@ @@@#KA@@[@@]@@@#K^C&\^NGYD )@@G@@TF$MVE @@@@@@@@ @@@ @@@#KH@@]@@A@@@#KBC&2^NGTF$RMR YE )@@G@@@@@@@@@@ @@@ @@@#LG@@K@@.@@@#KJC$ ^NGUNLOAD @@@@@@@@ @@@YF )@@G@@ @@@#L>@@#@@D@@@#LWC$E^NGCONF-3 @@@@@@@@[@]] YG )@@G@@@ @^@ [@@@^$@@@#L*D4D^NGCLSEG @@@@@@@@[@]# @ @[@][@@@@SYH )@@G@@@@@#QJD4*^NGCONF-3 @@@@@@@@ @@@ @@@#RI@@^@@$@@@#Q$D5N^NGYI )@@G@@CLSEG @@@@@@@@ @@@ @@@#RU@@^@@C@@@#RMD5Y^NGMAPREORG YJ )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@E@@@#RYFQ@^OGMAPED @@@@@@@@[@@@YK )@@G@@ @ @@@[[@@@@G@@@#R*FQ*^OGEQUATE @@@@@@@@ @]C YL )@@G@@@@@#R4@@D@@@@@@#R4F%>^OGSNO @@@@@@@@ @@@ @@@#(F@@]@LIYM )@@G@@@@@#R.G$5^QGEQUATE @@@@@@@@[@@@ @ @[@][@@@]E@@@#(HJAV^RGYN )@@G@@MERGE @@@@@@@@[@]E @ @#@^]@@@[R@@@#:RDA=^UGMERGE YO )@@G@@@@@@@@@@ @@@ @@@#?9@@]@@F@@@#?,DBF^UGDF$AMW @@@@@@@@[@]GYP )@@G@@ @ @@@[[@@@]S@@@#?;BY# ^GDF$AMW @@@@@@@@ @@@ YQ )@@G@@@@@#\?@@^@@T@@@#\NB+W ^GBLDD$F @@@@@@@@[@]I @ @[@][@@@@KYR )@@G@@@@@#\0C!5 ^GBLDD$F @@@@@@@@ @@@ @@@#0#@@[@@#@@@#0@C,O ^GYS )@@G@@INSERT @@@@@@@@[@]K @ @C@ [@@@DF@@@#0^G!5 GINSERT YT )@@G@@@@@@@@@@ @@@ @@@#'I@@^@@_@@@#9JG,7 GED @@@@@@@@A@@@YU )@@G@@ )@@]@@@@@@S$@@@#'MG7C GKF$AM @@@@@@@@[@]N YV )@@G@@@ @[@][@@@^;@@@^M9B?Y CGKF$AM @@@@@@@@ @@@ @@@^S+@@^@@,YW )@@G@@@@@^R4B?5 CGREORG @@@@@@@@A@@@ )@@]@@@@@@IB@@@^S&B8H CGYX )@@G@@KF$AM @@@@@@@@[@@@ @ @[@][@@@^;@@@^&2B?Y CGKF$AM YY )@@G@@@@@@@@@@ @@@ @@@^?V@@^@@,@@@^:!B?5 CGREORG @@@@@@@@A@@@YZ )@@G@@ )@@]@@@@@@IB@@@^?ZB8H CG@@@@@@@@@@@@@]V@@@)@ @@@ ZA )@@G@@@@@^(V@@[@@#@@@^(SB@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@ZU )@@G@@@@@@@@@@S@@F@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[O@@@@@@@@@@@@@@@ZV )@@G@@@@@@@@@@@@@@@@@@@@@@*@@@@@@@@@@@E@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@ZW )@@G@@@@@@@@@@@@@@@@@@@@@@@@[N@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@[UZX )@@G@@CSF @@@@@@@@[@@2 @ @@@[]@@@@#@@@@W@DTF^ EGRAB ZY )@@G@@@@@@@R@@[@@8 @ @@@[^@@@@ @@@@W#DS'^ EINFOR @@@@@@@@[@@'ZZ )@@G@@ @@@@@[]@@@[$@@@@WCD,0# EOP @@@@@$@@[@@" AA )@@G@@@ @@@[]@@@@4@@@@X\DMN^ EPP @@@@@@@@[@[[ @ @@@[^@@@@CAB )@@G@@@@@@Y^ EAC )@@G@@PUNX @@@@@@@@[@[A @ @@@[^@@@@N@@@@Y0D0%# ESEQ AD )@@G@@@@@@@@@@[@[D @ @@@[^@@@@ @@@@Z#DR-^ EXXRF @@@@@@@@[@[GAE )@@G@@ @ @@@[^@@@@A@@@@ZCK*NBXEDCT @@@@@+@@[@@3 AF )@@G@@@ @@@[^@@@@C@@@@ZIG!< OFPSRABS @@@@@@@@[@[^ @ @@@[^@@@@NAG )@@G@@@@@@ZQHYY OFUN @@@@@@@@[@[F @ @@@[^@@@@S@@@@Z(A-H RFAH )@@G@@TOCX @@@@@@@@[@[E @ @@@[]@@@@.@@@@)[BB9ADFTEST-RUN AI )@@G@@@@@@@W@@[@@@ @ @@@[[@@@@ @@@@)"G"#B]FTEST-RUN2 @@@@@@@@[@@@AJ )@@G@@ @ @@@[[@@@@ @@@@-#HJYBLFBPC @@@@@@@@[@@! AK )@@G@@@ @@@[^@@@[>@@@@-CEQI]UGCHKASG @@@@@@@@[@@0 @ @@@[^@@@@DAL )@@G@@@@@@+!EX!]UGIQUAL @@@@@@@@[@@; @ @@@[^@@@@C@@@@+6E+K]UGAM )@@G@@MERGE @@@@@@@@[@@. @ @@@[^@@@@N@@@@+"E>+]UGFACIL AN )@@G@@@@@@@@@@[@@6 @ @@@[] @@]@@@@#E/T]UGFN AS )@@G@@@@@@@@@@[@@7 @ @@@[^@@@@S@@@@>/E/:]UGIN @@@@[H@@[@@9AT )@@G@@ @ @@@[^@@@[M@@@@&OE.@]UGLT @@@@[R@@[@@/ AU )@@G@@@ @@@[^@@@@X@@@@$&E.J]UGPDP @@@@@@@@[@[@ @ @@@[^@@@[CAV )@@G@@@@@@*#E.5]UGPRINT @@@@@@@@[@[] @ @@@[]@@@@C@@@@(FE"#]UGAW )@@G@@READ @@@@@@@@[@[B @ @@@[]@@@@A@@@@(NE"V]UGPUNCH AX )@@G@@@@@@@@@@[@[ @ @@@[]@@@@A@@@@(TE"3]UGSAVE @@@@@@@@[@[CAY )@@G@@ @ @@@[^@@@@D@@@@(ZE_[]UGRDS @@@@@@@@ @@@LMSC36 AZ )@@G@@@@@@(,@@[@@A@@@@(*F PEBESCAN2 @@@@@@@@ @@@LMSC10 @@@@(/@@[@@HBA )@@G@@@@@@(\C!F QBSCAN @@@@@@@@ @@@LMSC20 @@@@%^@@[@@B@@@@(.IS+ETCBB )@@G@@SCANBL @@@@@@@@ @@@LMSC10 @@@@%E@@[@@ @@@@% C?_ QBWDS BC )@@G@@@@@@@@@@ @@@LMSC36 @@@@%L@@]@@A@@@@%FEQ\FGEMOVER @@@@@@@@ @@@BD )@@G@@LMSC05 @@@@%P@@[@@]@@@@%NH:B[EBMVCHAR @@@@[U@@ @@@LMSC30 BE )@@G@@@@@@%T@@[@@#@@@@%QDW!BRDASMBL @@@@@@@@ @@@LMSC10 @@@@%X@@]@@#BF )@@G@@@@@@%UF8] RBGETWD @@@@@@@@ @@@LMSC24 @@@@%*@@[@@D@@@@%ZEW*#]DBG )@@G@@SORTX @@@@@@@@ @@@LMSC21 @@@@%/@@[@@N@@@@%(G^GFOCOPT BH )@@G@@@@@@@@@@[@@_ @ @@@[] @@]@@@@%.I@@[@@[CE )@@G@@@@@@0=K5V]UGSAVE @@@@@@@@ @@@ @@@@0:@@]@@ @@@@0&K5X]UGCF )@@G@@SEQ @@@@@@@@ @@@ @@@@02@@]@@ @@@@0!K5)]UGTOCX CG )@@G@@@@@@@@@@ @@@ @@@@0;@@[@@B@@@@04K54]UGUN @@@@@@@@ @@@CH )@@G@@ @@@@1C@@]@@G@@@@0/K56]UGXXRF @@@@@@@@ @@@ CI )@@G@@@@@@1I@@]@@^@@@@1EK59]UGMAP @@@@@@@[A@[K )@@]@@@@@@A^CJ )@@G@@@@@@1KK6]]UGMAIN @@@@@@@@[@[J @ @@@[^@@@@*@@@@7OFZ#]VGCK )@@G@@MAIN @@@@@@@@ @@@ @@@@8A@@^@@E@@@@7/F>\]VGMAP CL )@@G@@@@@@@@@@[@@@ @ @@@[A@@@@C@@@@8EF&?]VGNC @@@@@@@@[@[MCM )@@G@@ @ @@@[^@@@@W@@@@8MHPY#]GNC @@@@@@@@ @@@ CN )@@G@@@@@@8.@@]@@J@@@@8,HQ(#]GALLOCATION @@@@@@@@[@@@ @[@@@[@@@@#QCO )@@G@@@@@@8_HT #]GMARVEL @@@@@@@@A@@@ )@@]@@@@@@ '@@@@/PHS7#]GCP )@@G@@MARVELCARDS @@@@@@@@[@@@ @ @@@[[@@@@X@@@[]J]CP##GUSERDOC CQ )@@G@@@[S@@@)K[@@@ @ @C@ @@@@[@@@@[]?G6,##GU @@@@@@@@[@@@CR )@@G@@ @ @@@[@@@@@%@@@[#?HC%##GUSERDOC @[T@@@)K[@@@ CS )@@G@@@ @D@ @@@@@_@@@[^QI1J#DGUSERDOC @@@@@@@K[@@@ @ @E@ @@@@[[CT )@@G@@@@@[ PI5T#DGCORR @@@@@@@@[@@@ @2@@@[@@@@]2@@@[AQC/Q WGCU )@@G@@U @@@@@@@@[@@@ @ @@@[@@@@@%@@@[JEHC%##GUSERDOC CV )@@G@@@[Y@@@)K[@@@ @ @A@ @@@@@_@@@[ IDVW#]GU @[Z@@@)@[@@@CW )@@G@@ @ @@@[[ @@6@@@[AHEP3#]GUSERDOC @@@@@@@K[@@@ CX )@@G@@@ @B@ @@@@@_@@@[B#GNX#]GU @@@@@@@@[@@@ @ @@@[@@@@@%CY )@@G@@@@@[C]GN*#]G@@@@@@@@@@@@@@@@@@@@ @@@ @@@@;7@@#@@J@@@@;*K\Q]UGCZ )@@G@@IQUAL @@@@@@@@ @@@ @@@@/@@@]@@A@@@@;'K0']UGLT DA )@@G@@@@@@@@@@ @@@ @@@@/E@@]@@C@@@@/]K0_]UGMAIN @@@@@@@[ @@@DB )@@G@@ @@@@/Q@@^@@E@@@@/GK1#]UGMERGE @@@@@@@@ @@@ DC )@@G@@@@@@/>@@#@@F@@@@/UK1A]UGNC @@@@@@@@ @@@ @@@@/8@@]@@KDD )@@G@@@@@@/*K1E]UGOP @@@@@@@@ @@@ @@@@. @@^@@F@@@@/'K13]UGDE )@@G@@OPT @@@@@@@@ @@@ @@@@.E@@[@@[@@@@.DK2$]UGPDP DF )@@G@@@@@@@@@@ @@@ @@@@.Z@@^@@O@@@@.FK5C]UGPP @@@@@@@@ @@@DG )@@G@@ @@@@.(@@]@@A@@@@.@@]@@ DN )@@G@@@@@@")K5)]UGTOCX @@@@@@@@ @@@ @@@@",@@[@@B@@@@"$K54]UGDO )@@G@@UN @@@@@@@@ @@@ @@@@";@@]@@G@@@@"\K56]UGXXRF DP )@@G@@@@@@@@@@ @@@ @@@@_[@@]@@^@@@@".K59]UGJ6>&@EJ6>&ABJ6>>7;J6>>)SDQ )@@G@@J6>>R[J6>=>(J6><2@J6>+75J6>+:*J6>+Y>J6>+D@J6>-*%J6>).-J6>)E_J6>ZZ=DR )@@G@@0]0^[;0]0A 10]0B'.0]0OI_0]0$:R0]0_-50]1R0##&8I0##>Y30##-3BDW )@@G@@0##XE=0##W -0##O,+0##IK&0##FU]0##F2S0##IW10##M^^0##P90]08* 0]0'?>0]1]B=DZ )@@G@@0]1 '!0]1A1"0]1^((0]1[ L0]0_(H0]08A"0]00M!0]0%%W0]0$W%0]0>$A0]0<&<0]0)PJEA )@@G@@0]0VXI0]0O'_0]0HJ!0]0A,#J\2DW(J4E['NJ4LR&^J4N>\6J4ISCFJ4R=X?J4F6S)J\8+^1EB )@@G@@J\"Y&BJ\&).JJ\TJV\J\U%D=J\B@VLJ\[\"DJ\L=CDJ\/@I2J4DV)-J\UT21J\BM&HJ,3'!\EC )@@G@@J!>PETJ!H<-/J!]:PCJ?^"9"J&H7Q[J&3BCYJ?H[%6J?N<$-J$%_04J&Z>91J$O3_1J?R_Y+ED )@@G@@J?XM0+J?#7Q0J&R'B]J=&1 SJ>M[&'J&,K&5J&U4+_J>L ^CJ=RO7EJY%I]_JXK^,XJR.2T4EE )@@G@@JX$BQI4ALTMJA\?7WJPHP,+JJ3+$LEG )@@G@@J 86*1JRW2G+JZ>H'3JZR/7/JWFE7BJWO(C)JX="A JWU??ZJJI16P00( 1C08PN<=JIF<7;EH )@@G@@JJB69QJI\H-[JGE4@&1]0YPBJJ!/O7JXN3:LJWT192JJS%X?0;QMQM0:8 C$0:8]F4J?NM-]EI )@@G@@J?)BR[X3^J="_'OJ="D%\J='.QXEK )@@G@@J=782AJ=4;QAJ=2 (J=(V:7J=$8.(J=>%V)J=<<7$J=->]OJ=Z!0 EL )@@G@@J=X"H+J=WQPQJ=U4>9J=TS6YJ=S# CJ=Q13SJ=P>C=J=OX*+J=NUSAJ=MU^LJ=LXEBJ=K=(&EM )@@G@@J=J0]3J=I"@)J=IHH/J=HYL&J=G2PIJ=GD]]J=F-D.J=E9B@J=EJ0QJ=D&N3J=C"T\J=CR0XEN )@@G@@J=B0"]J=BCY!J=AXM=J= ,;8J=^.M2J=^E]DJ=#R[HJ=]=F%J=[0PCJ=@'#(L_9$]J>.?^DJ>.C.(J>'GPSJ>7^2?J>33AOJ>0SEKJ>!!&DES )@@G@@J>?6&&J>(LVMJ>>(+[J>-"/>J>YM9BJ>U&'YJ>Q''HJ>NI)HJ>J+"DJ>F'N0J>CQ+(J>^75'ET )@@G@@J"B4$5J"A*SZJ"AH*&J"^&P2J"]_F1J"[SL0J._2R!J."H=HJ./(_IJ.;C3BJ.'*WRJ.9%*IEU )@@G@@J.8J2]J.68MWJ.5=MZJ.4N/]J.3B$'J.1_-8J.0'2"J.\9Z$J.,;0AJ.,@*UJ.!COPJ.?NO0EV )@@G@@J.:-#,J.%0$WJ.%]TPJ.(RI#J.*,1KJ.*C^QJ.$+BYJ.&.T6J.&U7]J.>'JQJ.>U&YJ.=':"EW )@@G@@J.=T>QJ.<8KQJ.J.E6J,J.D2J'J.C\'"EZ )@@G@@J.B,.=J.A,MPJ. ,+'J.^09-J.#4;FJ.]9)6RJ//1B6J/;_T$J/;K)UJ/'C%J"JL57FC )@@G@@J"H9RNJ"GW&$J"E/(6J"DT/M**PF**@@@@&$@@@@@@@@@@@[@ /@@@]FE@@@@@@@@@@@@@@@FD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@#^@@@]F^ 51@@@@@[@@@@@NFE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]7/7?@@@@@@@@@@@@@@@@@@@@]@@@FF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@R@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@FH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Q@@@FI )@@G@@@@@@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FJ )@@G@@@@@@@@@@@@@@@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@FK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@FL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@FN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@@@@@@F@@@@@@@@@@@@@@@@@@FP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FQ )@@G@@@@@@@@@@@@@@@@@@@@@@E@@SFILECT @@@@@@@@[@@ @ @@@[]@@@@IFR )@@G@@@@@@W@D=2 TGIOW @@@@@P@@[@@A @ @@@[]@@@@]@@@@WIJM\ TGFS )@@G@@FACIL @@@@@@@@[@@^ @ @@@[]@@@@]@@@@WKJN+ TGFACIL FT )@@G@@@@@@@@@@ @@@ @@@@WN@@[@@[@@@@WMF=* UGFILECT @@@@@@@@ @@@FU )@@G@@ @@@@WR@@[@@#@@@@WOF=? UGIOW @@@@@@@@ @@@ FV )@@G@@@@@@WT@@[@@[@@@@WSF=2 UGNTRN @@@@@@@@[@@C @ @@@[]@@@@QFW )@@G@@@@@@WUHM1 VGNTRN @@@@@@@@ @@@ @@@@W4@@[@@^@@@@W0HPY VGFX )@@G@@XREF @@@@@@@@[@@I @ @@@[^@@@@+@@@@W5HR^ VGSORTRF FY )@@G@@@@@@@@@@[@@J @ @@@[^@@@@Y@@@@XRHT% VGBUF3 @@@@@@@@[@@KFZ )@@G@@ @ @@@[^@@@@(@@@@X5HV" VGBUF2 @@@@@@@@[@@L GA )@@G@@@ @@@[^@@@@(@@@@YYHW; VGNREAD @@@@@@@@[@@M @ @@@[^@@@@^GB )@@G@@@@@@ZBH=H VGXREF @@@@@@@@ @@N @@@@Z&@@]@@V@@@@ZFH$. VGGC )@@G@@SORTRF @@@@@@@@ @@@ @@@@)F@@]@@<@@@@Z*H*: VGBUF3 GD )@@G@@@@@@@@@@ @@@ @@@@)V@@]@@I@@@@)HH(^ VGBUF2 @@@@@@@@ @@@GE )@@G@@ @@@@):@@]@@I@@@@)XH(I VGNREAD @@@@@@@@ @@@ GF )@@G@@@@@@)1@@]@@^@@@@)!H(? VGXREF @@@@@@@@A@@@ )@@]@@@@@@^6GG )@@G@@@@@@)3H%4 VGCORR @@@@@@@@[@@@ @2@@@[@@@@@L@@@@>(C,7 WGGH )@@G@@SORTX @@@@@@@@ @@@ @@@@&H@@[@@N@@@@>'FO( WGMAP GI )@@G@@@@@@@@@@[@@@ @ @@@[A@@@@[@@@@&IFP" WGUSERDOC @@S@@@)K[@@@GJ )@@G@@ @ @@@[A@@@@G@@@@&JF,9 WGUSERDOC @@@@@@@K[@@@ GK )@@G@@@ @@@[A@@@@G@@@@&VF1Y WGNTRN @@V@@@)@[@@@ @ @@@[]@@@@QGL )@@G@@@@@@:4GL] VGTEST @@@@@@@@[@@@ @ @@@[^ @@A@@@@?EGOJ VGGM )@@G@@NTRN @@@@@@@@[@@@ @ @@@[]@@@@Q@@@@?KHM1 VGNTRN GN )@@G@@@@@@@@@@ @@@ @@@@?%@@[@@^@@@@?&HPY VGXREF @@@@@@@@[@@@GO )@@G@@ @ @@@[^@@@@+@@@@?:HR^ VGSORTRF @@@@@@@@[@@@ GP )@@G@@@ @@@[^@@@@Y@@@@!HHT% VGBUF3 @@@@@@@@[@@@ @ @@@[^@@@@(GQ )@@G@@@@@@!:HV" VGBUF2 @@@@@@@@[@@@ @ @@@[^@@@@(@@@@,OHW; VGGR )@@G@@OLDNREAD @@+@@@)@[@@@ @ @@@[^D @@A@@@@,.HX+ VGOLDNREAD GS )@@G@@@@@@@@@@[@@@ @ @@@[[D @@A@@@@\#HX1 VGNREAD @@@@@@@@[@@@GT )@@G@@ @ @@@[^@@@@^@@@@\DH=H VGXREF @@@@@@@@ @@@ GU )@@G@@@@@@\*@@]@@V@@@@\HH$. VGSORTRF @@@@@@@@ @@@ @@@@0H@@]@@ > > > > HX )@@G@@CRITICAL TIMES @[@@@@' @^@@@@ 200 10 20 30 40 @[@@@@' HY )@@G@@@[@@@@' @A@@@@ X4 (OUTPUT FREQ @#@@@@= 0 1 HZ )@@G@@ ( @#@@@@ 0 5000 KI@[@@@@' @A@@@@ X5 (JAMIIA )@@G@@E LOCATION @]@@@@= 0 1 @H@@@@ -0 32 =-47,0 1 =-5,0 32 IB )@@G@@ =-6,0 5 =-7,0 32 =-8,0 .5 =-9,0 @A@@@@ 32 =-10,0 2IC )@@G@@ =-11,0 KI@[@@@@' @[@@@@' @I@@@@' @ @ @ @ @ @ @ @ @ @ S ID )@@G@@T A R T - UP @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @[@@@@' @ @@@@IE )@@G@@ DATA AERO 19.62 -X10 =1 @G@@@@ DATA ATMOS -X6 -X7 =0 =0 2.5+5 2403IF )@@G@@.0735 1716.428 0 KI -X9 -X70 -X71 @^@@@@ DATA EVENT HTBLDAT =2@^@@@@IG )@@G@@ DATA ERRACT LFALSE @C@@@@ DATA JUNK =2 -X11 .5 17600 3.15 260IH )@@G@@00 @G@@@@ .5 17600 3.15 26000 2116.224 B21II )@@G@@2403253412 @B@@@@ DATA OUTPUT -X4 =1 =-1 =0 S1 =1 @#@@@@ DATA IJ )@@G@@PILOT 431.6 @C@@@@ DATA RATES HTBLDAT -X1 -X2 -X3 =65 =67 1@H@@@@IK )@@G@@ DATA START -120.6 92.43 28.47 0 (PAD-XYZ ALIGIL )@@G@@N @F@@@@ 6 -80.53 28.47 0 (IM )@@G@@TRKR @G@@@@ 10 =2 (IN )@@G@@R,V STARTUP @I@@@@ 11 =2 1+5 IO )@@G@@ (Q VECTOR STARTUP,TMX @G@@@@ 13 355 IP )@@G@@ (INITAL TIME @I@@@@ 14 =0 IQ )@@G@@ -X19 (STARTING EVENT,EVENT @G@@@@ 16 IR )@@G@@ =1 (RUNGA KUTTA @G@@@@ 17 IS )@@G@@ 0. (PAYLOAD @F@@@@IT )@@G@@ 18 21356668. 13.0327 -125.0374 (R-->@F@@@@IU )@@G@@ 25914.48 .6484379 -173.266 (V--> @F@@@@IV )@@G@@ 25 -.86285776 -.0681808 .49840485 .05123762 (QQQQ @G@@@@IW )@@G@@ 35 32768 B170400000000 .05 (DTMAX,MIN IX )@@G@@@F@@@@ 38 0 0 0 0 5 (WEIGHTIY )@@G@@@G@@@@ 1000 R2 (POSITIIZ )@@G@@ON @G@@@@ 1 R2 (JA )@@G@@VELOCITY @G@@@@ .46-4 R3 .000 R2 JB )@@G@@ (Q-VECTOR @H@@@@ 1 0 0 JC )@@G@@ (BODY VELOCITY @H@@@@ 59 KI KI KI KI R6 JD )@@G@@ (EXPEN,IMPU @[@@@@' @C@@@@ DATA SOLIN JE )@@G@@20. 1. 2. 1974. (JULIAN LAUNCJ@I@@@@' @ @ @ @ @ @ @ @ @ @ EJF )@@G@@ N G I N E L I S T @ @ @ @ @ @ @ @ @ @ @ @ @ @ @[@@@@' @^@@@@JG )@@G@@ DATA THRUST =0 =0 =0@H@@@@ 4 =3 0 0 =0 JH )@@G@@ =2 =1 1.0 (BURN 1 @H@@@@ 11 =3 88 .JI )@@G@@34 =0 =2 =1 1.0 (BURN 2 @H@@@@ 18 =3 JJ )@@G@@ 16100 55.35 =0 =2 =1 1.0 (BURN 3 @H@@@@ 25 JK )@@G@@ =3 16100 55.35 =0 =2 =1 1.0 (BURN 4 JL )@@G@@@[@@@@' @I@@@@' @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @JM )@@G@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @[@@@@' @I@@@@' " " " " " " " " "JN )@@G@@ " E V E N T S " " " " " " " " " " " " " " " " " " " @]@@@@ DATA JO )@@G@@TBLDAT@[@@@@ -19 @ @@@@ HEVENT =3 =0 =0 H" @^@@@@ HOUTCJP )@@G@@OM =9 H"M @[@@@@' @#@@@@M START" @A@@@@ HSTATE =1 JQ )@@G@@ 0 H"R3 Y20 H" @A@@@@ HTBLDAT =3998 HCOAST H" @D@@@@ JR )@@G@@ HRATES =8 0 .15 0 .15 H" (HIGH H/S @A@@@@ HSTARTO =4JS )@@G@@0 =0 =0 H" @ @@@@ HOUTPUT =5 =1 H" @ @@@@ HTHRUJT )@@G@@ST =3 =0 H" @E@@@@ HEVENT =3 Y50 =2 Y30 =10001 HTIME JU )@@G@@R1 H"END @^@@@@ HOUTCOM =9 H"M @^@@@@M ORIENTATION" JV )@@G@@@[@@@@' @A@@@@ HTBLDAT =3998 HORIENT H" @E@@@@ HRATEJW )@@G@@S =8 0 .01 0 .01 H" (LOW H/S @E@@@@ HEVENT =3 JX )@@G@@ Y60 =3 Y31 =10001 HTIME R1 H"END @^@@@@ HOUTCOM =9 H"M JY )@@G@@@#@@@@M COAST" @[@@@@' @A@@@@ HTBLDAT =3998 HCOAST JZ )@@G@@ H" @ @@@@ HOUTPUT =5 =1 H" @E@@@@ (HEVENT =4 =4 KA )@@G@@ 1000 =260001 HTIME HCONST H"END@^@@@@ HOUTCOM =9 H"M @#@@@@KB )@@G@@M COAST" @[@@@@' @A@@@@ HTBLDAT =3998 HRV*1* H" KC )@@G@@@G@@@@ (HEVENT =4 =15 0 =260062 HGEOD HCONST 500 .025 H"ENKD )@@G@@D @^@@@@ HOUTCOM =9 H"M @#@@@@M COAST" @[@@@@' KE )@@G@@@A@@@@ HTBLDAT =3998 HRV*1* H" @G@@@@ ((HEVENT =4 =16KF )@@G@@ 0 =260062 HGEOD HCONST 20000 .025 H"END @^@@@@ HOUTCOM =9 KG )@@G@@H"M @#@@@@M COAST" @[@@@@' @A@@@@ HTBLDAT =3998 HKH )@@G@@RV*2* H" @G@@@@ (HEVENT =4 =17 0 =260062 HGEOD HCONST 20KI )@@G@@000 .025 H"END @^@@@@ HOUTCOM =9 H"M @#@@@@M COAST" KJ )@@G@@@[@@@@' @A@@@@ HTBLDAT =3998 HRV*2* H" @G@@@@ (((HEKK )@@G@@VENT =4 =18 0 =260062 HGEOD HCONST 20000 .025 H"END @^@@@@ KL )@@G@@ HOUTCOM =9 H"M @#@@@@M COAST" @[@@@@' @A@@@@ HTBLDKM )@@G@@AT =3998 HRV*3* H" @G@@@@ (HEVENT =4 =19 0 =260062 HGEOKN )@@G@@D HCONST 20000 .025 H"END @^@@@@ HOUTCOM =9 H"M @#@@@@M KO )@@G@@ COAST" @[@@@@' @A@@@@ HTBLDAT =3998 HRV*3* H" @G@@@@KP )@@G@@ ((HEVENT =4 =20 0 =260062 HGEOD HCONST 20000 .025 H"END KQ )@@G@@@^@@@@ HOUTCOM =9 H"M @#@@@@M COAST" @[@@@@' @A@@@@KR )@@G@@ HTBLDAT =3998 HRV*4* H" @G@@@@ (HEVENT =4 =21 0 =KS )@@G@@260062 HGEOD HCONST 20000 .025 H"END @^@@@@ HOUTCOM =9 H"M KT )@@G@@@#@@@@M COAST" @[@@@@' @A@@@@ HTBLDAT =3998 HRV*4* KU )@@G@@ H" @G@@@@ HEVENT =4 =22 0 =260062 HGEOD HCONST 20000 .KV )@@G@@025 H"END @^@@@@ HOUTCOM =9 H"M @#@@@@**PF**@@@F@@@LD )@@G@@@])@@@@[*@@@@ E@#,@#B@@?@@@@[\@],@@@@@@@ #@[0@@@@@@@^9@^S@[9@B0@@@@[2@@@LE )@@G@@@@@@[B@['@B^@]S@@@@@=@@@@#*@[R@]\@@@@[Q@@@@[P@ O@@!@#M@ 4@@@@[L@B[@[M@@/LF )@@G@@@^H@^R@[1@^!@@\@]U@[=@BA@^;@[-@#Z@ Z@[;@@X@@K@[[@^Y@CK@[U@[)@@F@@@@]&@@@LG )@@G@@@][@]I@#6@@@@@@@@3@@7@BC@@ @@,@[D@@"@@@@#=@[Y@@@@[I@[N@@@@AD@@:@@8@@&@@@LH )@@G@@@^]@[ @@M@ N@@L@@T@#F@]_@];@]<@@A@]*@BJ@@J@[X@[&@@@@]B@AW@]/@A,@CA@A!@BILI )@@G@@@A?@^^@ F@@@@ \@@.@] @@@@@9@@W@]M@A$@@@@AE@#Q@[K@@@@#?@@N@[>@@@@[H@@S@ &LJ )@@G@@@[8@@P@@H@@@@@@@@+@#5@@@@@@@^A@@V@]%@@4@#"@@E@C2S1OTLI @@]@@@@@ @@@LK )@@G@@CARDS @@@@WB@@]@@B@@@@W@CP: LFS1OTLI @@#@@@@@ @@@BCD LL )@@G@@@@@@WT@@]@@K@@@@WDOL\]UFS1OTLI @@^@@@@@ @@@SDF @@@@W=@@]@@DLM )@@G@@@@@@WVK=FAUES1OTLI @A-@@@@@ @@@BANK @@@@W5@@]@@J@@@@W&NKBGQFLN )@@G@@URPRC2 @@@@@>@@ @@@UWCC @@@@W8@@[@@[@@@@W7LB=BCAURNPAR LO )@@G@@@@@@@U@@ @@@UWCC @@@@W;@@[@@]@@@@W9L,GASASDFI @@@@#L@@ @@@LP )@@G@@ @@@@X]@@[@@A@@@@W/AR:[C URPRTM @@@@BL@@ @@@UWCC LQ )@@G@@@@@@XL@@]@@I@@@@X#LCFBCAURRNID @@@@ (@@ @@@UWCC @@@@XO@@[@@[LR )@@G@@@@@@XNDF(]DAUWERR$ @@@@]2@@ @@@NAGFORFUN02 @@@@X3@@]@@Y@@@@XPC$3 CDLS )@@G@@NERTRAN$ @@@@@@@@ @@@FOR @@@@X_@@]@@E@@@@X5I"RESFNFTCH LT )@@G@@@@@@#X@@ @@@FORINT @@@@Y]@@[@@[@@@@Y[F3AAYBERU$ @@@@]G@@ @@@LU )@@G@@ @@@@Y#@@-@@@@@@@Y#JL6 FGIDL$ @@@@^G@@ @@@ LV )@@G@@@@@@Y$@@[@@#@@@@Y=H#T7 (S1REEL @@@@[/@@ @@@ @@@@Y(@@[@@[LW )@@G@@@@@@Y*K>AAUES1IPRT @@@@^.@@ @@@ @@@@Y_@@[@@P@@@@Y%]TW^QFLX )@@G@@S1IOMG @@@@#2@@ @@@ @@@@Z\@@[@@\@@@@Z@K+&AUES1TRRR LY )@@G@@@@@@^2@@ @@@ @@@@Z7@@[@@B@@@@Z0]T<^QFS1TRAN @@@@CG@@ @@@LZ )@@G@@ @@@@Z9@@[@@[@@@@Z8P[JY5EPES1INBC @@@@@@@@ @@@MJ )@@G@@ @@@@-7@@[@@F@@@@-?]S2^QFS1ENCI @@@@@@@@ @@@ MK )@@G@@@@@@+ @@[@@H@@@@-8^#6FXDS1PHED @@@@]1@@ @@@ @@@@+Y@@]@@SML )@@G@@@@@@+AK=/AUES1BDFL @@@@]-@@ @@@ @@@@+>@@]@@ @@@@+)CJT LFMM )@@G@@S1INLR @@@@#&@@ @@@ @@@@+8@@]@@L@@@@+$@M5D^FS1INTF MN )@@G@@@@@@]X@@ @@@ @@@@+.@@[@@#@@@@+'F$SFF S1INPI @@@@A5@@ @@@MO )@@G@@ @@@@Z@@]@@!@@@@=2O-]BQES1INGI @@@@[O@@ @@@ @@@@>?@@]@@FMV )@@G@@@@@@>-L4@@[@@A@@@@>,G\&[CDMW )@@G@@S1COPI @@@@@@@@ @@@ @@@@&O@@[@@Z@@@@>5H*:DWCS1INDC MX )@@G@@@@@@[_@@ @@@ @@@@&*@@[@@N@@@@&PCPT LFS1INR1 @@@@@;@@ @@@MY )@@G@@ @@@@&,@@[@@ @@@@&([;?#IDS1GTFN @@@@#D@@ @@@ MZ )@@G@@@@@@$$@@#@@8@@@@&\CPH LFS1INEP @@@@ '@@ @@@ @@@@$1@@]@@BNA )@@G@@@@@@$%HFFA]AS1INHC @@@@@@@@ @@@ @@@@$/@@]@@D@@@@$3]S6^QFNB )@@G@@S1TCHS @@@@@@@@ @@@ @@@@*[@@[@@#@@@@$"F^*DFCS1DRUM NC )@@G@@@@@@@@@@ @@@ @@@@*A@@[@@^@@@@*]J],EACS1UNIT @@@@CT@@ @@@ND )@@G@@ @@@@*H@@[@@A@@@@*B@>=#JCS1LOG @@@@C @@ @@@ NE )@@G@@@@@@*J@@[@@[@@@@*IBX/A[GS1PRIM @@@@[6@@ @@@ @@@@*M@@[@@]NF )@@G@@@@@@*KF^>DFCS1RED @@@@@@@@ @@@ @@@@**@@]@@P@@@@*N[#P[XFNG )@@G@@S1RINT @@@@[C@@ @@@ @@@@*:@@[@@[@@@@*%[#R[XFS15MNS NH )@@G@@@@@@@@@@ @@@ @@@@*/@@[@@K@@@@*?K&CAUES15RT1 @@@@]H@@ @@@NI )@@G@@ @@@@(D@@[@@G@@@@*.[#?[XFS15PRC @@@@@@@@ @@@ NJ )@@G@@@@@@(U@@]@@K@@@@(EH0O^RBS1SVOB @@@@]4@@ @@@ @@@@((@@[@@HNK )@@G@@@@@@(WL&'#TES15MAX @@@@[G@@ @@@ @@@@%A@@]@@W@@@@(%[#([XFNL )@@G@@S15INI @@@@]W@@ @@@ @@@@%M@@]@@E@@@@%CE"ZEXAS15ST2 NM )@@G@@@@@@@@@@ @@@ @@@@%Y@@]@@E@@@@%O[#\[XFS15RDC @@@@@@@@ @@@NN )@@G@@ @@@@%&@@[@@A@@@@%)KVPFXAS1HEDC @@@@#N@@ @@@ NO )@@G@@@@@@%1@@]@@E@@@@%$]S=^QFS1SERR @@@@^>@@ @@@ @@@@%9@@[@@ANP )@@G@@@@@@%3[[>FQES1INOB @@@@@@@@ @@@ @@@@!$@@ @]!@@@@%'NH)GQFNQ )@@G@@S1RCOP @@@@[E@@ @@@ @@@@,6@@#@[E@@@@!?[ %FQES1MCOR NR )@@G@@@@@@ Q@@ @@@ @@@@,;@@[@@]@@@@,9F(.#GFS1IODR @@@@[:@@ @@@NS )@@G@@ @@@@\Y@@[@@+@@@@,/NF(DLES1SIR @@@@ :@@ @@@ NT )@@G@@@@@@\+@@]@@#@@@@\ZBX8A[GS1LDBC @@@@@@@@ @@@ @@@@\>@@[@@[NU )@@G@@@@@@\=K)D^NGS1GDST @@@@]K@@ @@@ @@@@\"@@#@@S@@@@\&NJ1GQFNV )@@G@@S15ANL @@@@^@@@ @@@ @@@@1K@@#@[J@@@@0[[#=[XFS1GTAG NW )@@G@@@@@@]Y@@ @@@ @@@@1U@@[@@B@@@@1NJY)EPES1LOAD @@@@#]@@ @@@NX )@@G@@ @@@@13@@#@@S@@@@1VK)U^NGCOLFREQ1 @@@@@@@@ @B3 NY )@@G@@@@@@1'@@]@@^@@@@16J/NDWANFFTDM @@@@@@@@ @@@ @@@@1.@@[@@[NZ )@@G@@@@@@1/[]1[XFNEXP1$ @@@@ 2@@ @@@NAGFORFUN10 @@@@2[@@[@@#@@@@1"@ #UBOA )@@G@@ALOG$ @@@@^E@@ @@@NAGFORFUN10 @@@@2C@@[@@A@@@@2]FRJ[FBBVSUBC OB )@@G@@@@@@ =@@ @@@ @@@@2F@@[@@]@@@@2DJ58GYDBVSUBB @@@@]0@@ @@@OC )@@G@@ @@@@2I@@[@@]@@@@2GJ57GYDBVSUBA @@@@#\@@ @@@ OD )@@G@@@@@@2L@@[@@]@@@@2JJ55GYDURTIMF @@@@[T@@ @@@DUMMY @@@@2N@@[@@[OE )@@G@@@@@@2MB(FA[GCROSTAB2 @@@@@@@@ @B4 @@@@2&@@]@@M@@@@2OIB@CJCOF )@@G@@S22ANL @@@@#;@@ @@@ @@@@3C@@#@@)@@@@2*J6GGYDUR3SRH OG )@@G@@@@@@^:@@ @@@UWCC @@@@3I@@[@@#@@@@3FKT5CG UR2MSK @@@@[<@@ @@@OH )@@G@@UWCC @@@@3P@@[@@A@@@@3JKT:CG UR1TRI @@@@](@@ @@@UWCC01 OI )@@G@@@@@@3W@@[@@A@@@@3QF52FA URSORT @@@@#R@@ @@@NAGUTILITY02@@@@35@@[@@SOJ )@@G@@@@@@3XC]V MCS22PHD @@@@AC@@ @@@ @@@@3/@@]@@A@@@@36E"ACEDOK )@@G@@S22LOD @@@@^+@@ @@@ @@@@4/@@]@@"@@@@3"L?YGMES22DIO OL )@@G@@@@@@@@@@ @@@ @@@@5B@@]@@D@@@@4"IBJCJCS22LAB @@@@#-@@ @@@OM )@@G@@ @@@@5O@@[@@F@@@@5DJ6SGYDS22INT @@@@#P@@ @@@ ON )@@G@@@@@@5-@@[@@G@@@@5PG2F[CDS22ACC @@@@@@@@ @@@ @@@@6$@@[@[ OO )@@G@@@@@@5+J6[GYDS22ALL @@@@#I@@ @@@ @@@@7J@@[@@$@@@@6*[#4[XFOP )@@G@@S22CDS @@@@AJ@@ @@@ @@@@8]@@]@@2@@@@7K[#8[XFS22TOC OQ )@@G@@@@@@^[@@ @@@ @@@@8!@@]@@(@@@@8^K(:AUESDFO @@@@]R@@ @@@OR )@@G@@ @@@@83@@[@@^@@@@8\D>G^X NEXP5$ @@@@^0@@ @@@NAGFORFUN11 OS )@@G@@@@@@88@@[@@^@@@@84G U XDSQRT$ @@@@]9@@ @@@NAGFORFUN10 @@@@8/@@[@@#OT )@@G@@@@@@89E"4[OBS1FOTA @@@@@@@@ @@@ @@@@9#@@]@@A@@@@8.EA# QDOU )@@G@@S22MZR @@@@ 3@@ @@@ @@@@9Y@@[@@T@@@@9 OMC]UFS1FOT OV )@@G@@@@@@^&@@ @@@ @@@@90@@]@@L@@@@9ZE _ QDS1NLEN @@@@^<@@ @@@OW )@@G@@ @@@@95@@[@@#@@@@92K)_^NGS22OUT @@@@AR@@ @@@ OX )@@G@@@@@@/3@@#@].@@@@96[^A[XFS22PRT @@@@#@@@ @@@ @@@[#.@@ @BBOY )@@G@@@@@@/6K=+^NGS22FMT @@@@^4@@ @@@ @@@[^I@@[@@G@@@[^]C$HAWDOZ )@@G@@GAMLN @@@@AY@@ @@@NAGSPECFUN02@@@[^W@@]@@H@@@[^JJ9'^UBDEXP$ PA )@@G@@@@@@#C@@ @@@NAGFORFUN11 @@@[^>@@[@@B@@@[^YC\=][CDLOG$ @@@@#1@@ @@@PB )@@G@@NAGFORFUN10 @@@[^,@@[@@C@@@[^&E>J]#BBETAF @@@@#$@@ @@@NAGSPECFUN03PC )@@G@@@@@[^_@@]@@K@@@[^\O!+BRBNEXPB$ @@@@#K@@ @@@NAGFORFUN10 @@@[ B@@[@@APD )@@G@@@@@[ [O?D#RBINCGAM @@@@@@@@ @@@NAGSPECFUN02@@@[ )@@]@@S@@@[ CJ8)^UBPE )@@G@@UWCLOB @@@@]Q@@ @@@NAGUTILITY01@@@[ <@@[@@[@@@[ +EA]AUABETANC PF )@@G@@@@@@@@@@ @@@NAGSPECFUN02@@@[AL@@]@@!@@@[ =J'O^UBPROBDSN @@@@B@@@ @@@PG )@@G@@NAGSPECFUN03@@@[A8@@]@@>@@@[ANO!QBRBPRNRM @@@@CS@@ @@@NAGSPECFUN01PH )@@G@@@@@[B^@@[@@E@@@[A'E /AUAS22STA @@@@ @@@ @@@ @@@[CF@@[@[API )@@G@@@@@[B N1\ HES1PHD @@@@@@@@ @@@ @@@[CS@@[@@G@@@[CG]T-^QFPJ )@@G@@S1VLSD @@@@]N@@ @@@ @@@[CY@@[@@ @@@[CTJZUEPES1VFW PK )@@G@@@@@@A @@ @@@ @@@[C(@@]@@E@@@[CZK>CAUES1PLTM @@@@@@@@ @@@PL )@@G@@ @@@[D[@@[@@Q@@@[C:N\- HES1PRCM @@@@@@@@ @@@ PM )@@G@@@@@[DO@@[@@M@@@[D]N\: HEDISCRIM1 @@@@@@@@ @B5 @@@[D+@@]@@HPN )@@G@@@@@[DP[]\[XFS31ANL @@@@AH@@ @@@ @@@[JX@@^@ 9@@@[D=JT1]GGPO )@@G@@S1GDIN @@@@]^@@ @@@ @@@[J"@@[@@X@@@[J-[]8[XFS1AUSP PP )@@G@@@@@@@@@@ @@@ @@@[KP@@[@@Q@@@[J_[^$FQES1AUS @@@@B*@@ @@@PQ )@@G@@ @@@[K8@@]@@+@@@[KQNZLELCS1DSP @@@@]:@@ @@@ PR )@@G@@@@@[L=@@[@@%@@@[K'[]5[XFS1MOP @@@@AG@@ @@@ @@@[MD@@]@@=PS )@@G@@@@@[L>OLX]UFS1WCOP @@@@^N@@ @@@ @@@[M*@@]@@X@@@[MFH?/DWCPT )@@G@@MSDTP2 @@@@^(@@ @@@NAGBUMP202 @@@[M?@@[@@]@@@[M%IA?^^DNEXP9$ PU )@@G@@@@@@ A@@ @@@NAGFORFUN11 @@@[M4@@[@@B@@@[M!HDKE^CMSDCMP @@@@]P@@ @@@PV )@@G@@UWCC1 @@@[NA@@[@@L@@@[M5N42AF MSCONV @@@@]?@@ @@@NAGBUMP202 PW )@@G@@@@@[N.@@[@@6@@@[NBC1LG^EEOUT$ @@@@#U@@ @@@SYS @@@[O<@@]@@>PX )@@G@@@@@[N"N@2BECEXP$ @@@@A=@@ @@@NAGFORFUN10 @@@[O%@@[@@ @@@[O>E;FASBPY )@@G@@MSDET @@@@#'@@ @@@BUMP2UW03 @@@[O6@@[@@F@@@[O:C:LGQ MSEROR PZ )@@G@@@@@@#E@@ @@@UWCC3 @@@[P @@[@@I@@@[O7OP9CP MSNMPR @@@@^6@@ @@@QA )@@G@@UWCC1 @@@[PD@@[@@#@@@[PAJS+BY NEXP6$ @@@@]V@@ @@@NAGFORFUN12 QB )@@G@@@@@[PO@@[@@E@@@[PED).C BATAN$ @@@@^O@@ @@@NAGFORFUN10 @@@[PZ@@[@@EQC )@@G@@@@@[PPDK?ATBS31PVS @@@@^C@@ @@@ @@@[P,@@[@@I@@@[P)]W#^QFQD )@@G@@S31VCL @@@@AI@@ @@@ @@@[QI@@]@@Z@@@[P\]V.^QFS31PNN QE )@@G@@@@@@ ;@@ @@@ @@@[Q(@@[@@T@@@[QKOE.&CEDS2LOAD @@@@ 7@@ @@@ @@@[XM@@]@@>QR )@@G@@@@@[W!J)@EPES2CDIN @@@@]$@@ @@@ @@@[X%@@[@@Q@@@[XOL%.GMEQS )@@G@@S2COMP @@@@@@@@ @@@ @@@[Z#@@#@[S@@@[X:L:EGMES2BVSS QT )@@G@@@@@@@@@@ @@@ @@@[+[@@]@];@@@[ZAL%9GMES2REPM @@@@@@@@ @@@QU )@@G@@ @@@[=4@@]@]1@@@[+#@S&^WGSINCOS$ @@@@@@@@ @@@NAGFORFUN10 QV )@@G@@@@@[=.@@[@@B@@@[=6DKPATBS2SQM @@@@@@@@ @@@ @@@[>S@@]@@UQW )@@G@@@@@[="C$]AWDS1SQM @@@@@@@@ @@@ @@@[>6@@]@@W@@@[>UL&<#TEQX )@@G@@S1VCSR @@@@#T@@ @@@ @@@[&@@@[@@C@@@[>8L&.#TES2STUD QY )@@G@@@@@@#0@@ @@@ @@@[&F@@[@@E@@@[&[C$^AWDS2WCOP @@@@^B@@ @@@QZ )@@G@@ @@@[&P@@[@@D@@@[&GN1U HES2WCOR @@@@ U@@ @@@ RA )@@G@@@@@[&>@@[@@J@@@[&QN1Y HES2CTRN @@@@#9@@ @@@ @@@[$B@@]@@-RB )@@G@@@@@[&&L*P#TES2PMAT @@@@#^@@ @@@ @@@[$S@@[@@J@@@[$DN0Z HERC )@@G@@S1TIMI @@@@@@@@ @@@ @@@[$<@@]@@E@@@[$T[/0 JBFACTOR3 RD )@@G@@@@@@ "@@ @B7 @@@[$\@@]@@E@@@[$>JYAEPES63ANL @@@@@@@@ @@@RE )@@G@@ @@@[(V@@^@[%@@@[$1[D:FQES1RLT2 @@@@@@@@ @@@ RF )@@G@@@@@[(!@@[@@I@@@[(ZL&M#TES1RLTM @@@@@@@@ @@@ @@@[('@@[@@GRG )@@G@@@@@[(,H%2DWCS1RDI2 @@@@#!@@ @@@ @@@[%F@@[@@K@@@[(;JZKEPERH )@@G@@S1DSRT @@@@#[@@ @@@ @@@[%M@@[@@A@@@[%GH*4DWCS6RANK RI )@@G@@@@@@@@@@ @@@ @@@[%Z@@]@@G@@@[%NL\TGMES1PRVC @@@@@@@@ @@@RJ )@@G@@ @@@[%(@@[@@C@@@[%-H%ODWCS1TRCM @@@@B,@@ @@@ RK )@@G@@@@@[:^@@]@@U@@@[%%H?)DWCS63AMD @@@@^F@@ @@@ @@@[!H@@^@]BRL )@@G@@@@@[:AJ-*EPEDSQRT$ @@@@^-@@ @@@NAGFORFUN10 @@@[!P@@[@@^@@@[!LE,H%'DWCS6RVQ @@@@AO@@ @@@ @@@[\S@@[@@%RQ )@@G@@@@@[,,L,C#TES6OUT @@@@#.@@ @@@ @@@[0+@@#@[D@@@[\TL\RGMERR )@@G@@S1BAPV @@@@ I@@ @@@ @@@[0;@@[@@Q@@@[0>K)BBCFS1BAPA RS )@@G@@@@@@ 5@@ @@@ @@@[1@@@[@@^@@@[0/D2UAOFS63SCR @@@@#S@@ @@@RT )@@G@@ @@@[10@@^@@\@@@[1[@TI^WGS6COEF @@@@^L@@ @@@ RU )@@G@@@@@[2N@@]@@Z@@@[14J-^EPES9DEPR @@@@^8@@ @@@ @@@[2+@@[@@HRV )@@G@@@@@[2PK>Z^NGDATSUB @@@@#J@@ @@@ @@@[2>@@[@@]@@@[2<@MCD^FRW )@@G@@TBLSUB @@@@@@@@ @@@ @@@[2*@@[@@]@@@[2&@VLD^FS9HEDS RX )@@G@@@@@@ )@@ @@@ @@@[3^@@]@@V@@@[2(K>9^NGS9CALL @@@@BN@@ @@@RY )@@G@@ @@@[3P@@[@@J@@@[3A@S1D^FS9UTIL @@@@^/@@ @@@ RZ )@@G@@@@@[3S@@[@@]@@@[3QD"QBIATIMGET @@@@^P@@ @@@ @@@[3V@@[@@]SA )@@G@@@@@[3TB(CA[GTIMSET @@@@CX@@ @@@ @@@[3Y@@[@@]@@@[3WB(DA[GSB )@@G@@NWAY1 @@@@ <@@ @B8 @@@[3<@@]@@^@@@[3Z[RTERFS9ANAL SC )@@G@@@@@@^Q@@ @@@ @@@[5C@@^@[<@@@[3>K>N^NGS9UNEQ @@@@AB@@ @@@SD )@@G@@ @@@[5P@@[@@D@@@[5G@VJD^FS9EQ @@@@#<@@ @@@ SE )@@G@@@@@[5W@@[@@A@@@[5Q[.##IDS9TEST @@@@ +@@ @@@ @@@[6#@@[@@&SF )@@G@@@@@[5X@U6D^FS9CMPR @@@@#>@@ @@@ @@@[6J@@[@@F@@@[6^@S5D^FSG )@@G@@S9COND @@@@BK@@ @@@ @@@[6+@@[@@M@@@[6K[.[#IDS9MAP SH )@@G@@@@@@A7@@ @@@ @@@[65@@]@@M@@@[6<[U.ERFS9READ @@@@@@@@ @@@SI )@@G@@ @@@[8G@@#@[P@@@[67[VBERFS9GENF @@@@^5@@ @@@ SJ )@@G@@@@@[8!@@[@@Y@@@[8J[U2ERFS9EMSP @@@@C#@@ @@@ @@@[9\@@]@[[SK )@@G@@@@@[8,K>*^NGS1MNS3 @@@@ R@@ @@@ @@@[.Q@@]@#>@@@[91@O[D^FSL )@@G@@S1OUTF @@@@ ?@@ @@@ @@@[.1@@]@@T@@@[.SD"LBIAS9CVAR SM )@@G@@@@@@#8@@ @@@ @@@[.7@@[@@^@@@[.3[OGFMFS9TMN @@@@^=@@ @@@SN )@@G@@ @@@[_6@@#@["@@@[.8@VHD^FS1MNS2 @@@@BO@@ @@@ SO )@@G@@@@@][,@@]@[5@@@[_9KEADXFS9SORT @@@@ @@ @@@ @@@]]#@@[@@NSP )@@G@@@@@][0@U\D^FS1MNS1 @@@@#(@@ @@@ @@@]]\@@]@@:@@@]]^K)8^NGSQ )@@G@@S9FRAT @@@@#%@@ @@@ @@@]]_@@[@@I@@@]]1[U?ERFS9SET SR )@@G@@@@@@#7@@ @@@ @@@]#K@@[@@K@@@]#@@U%D^FS9MNS @@@@@@@@ @@@SS )@@G@@ @@@]^1@@#@[)@@@]#L@UFD^FS9GRND @@@@@@@@ @@@ ST )@@G@@@@@] $@@]@@3@@@]^4K>3^NGS9ANVL @@@@CD@@ @@@ @@@] '@@[@@LSU )@@G@@@@@] (K>S^NGS9FMTS @@@@^"@@ @@@ @@@]A#@@[@@C@@@] ;[U(ERFSV )@@G@@S82IOD @@@@@@@@ @@@ @@@]AM@@]@@I@@@]A^#H5#HFS82SGP SW )@@G@@@@@@ 6@@ @@@ @@@]A-@@]@@H@@@]AO#IG#HFONEWAY2 @@@@^D@@ @B9SX )@@G@@ @@@]A4@@]@@L@@@]A#HFS82HUP @@@@ [@@ @@@ @@@]B'@@[@@K@@@]B%KH$DXFTA )@@G@@S82HSU @@@@@@@@ @@@ @@@]CA@@[@@F@@@]B;@S]D^FS82LOD TB )@@G@@@@@@ B@@ @@@ @@@]DO@@]@[H@@@]CB#H;#HFS82INT @@@@A*@@ @@@TC )@@G@@ @@@]D,@@]@@S@@@]DQ@SDD^FS82ACC @@@@BM@@ @@@ TD )@@G@@@@@]E$@@]@@7@@@]D0@RZD^FS82AC2 @@@@@@@@ @@@ @@@]E;@@]@@MTE )@@G@@@@@]E(@R@@@]M [N.FMFS82CON @@@@CP@@ @@@ @@@]PK@@]@[=TT )@@G@@@@@]N?[T"ERFS82ANT @@@@ $@@ @@@ @@@]QW@@]@[E@@@]PMD3MAOFTU )@@G@@S82HST @@@@CV@@ @@@ @@@]R?@@]@[I@@@]QYNM(GQFS82PGS TV )@@G@@@@@@C]@@ @@@ @@@]TB@@]@[T@@@]R,D4[AOFS82PHD @@@@ ]@@ @@@TW )@@G@@ @@@]TV@@]@@M@@@]TDD4 AOFS82OUT @@@@@@@@ @@@ TX )@@G@@@@@]V=@@#@]B@@@]TXK> ^NGS82CVL @@@@AF@@ @@@ @@@]V0@@[@@DTY )@@G@@@@@]V$[G@FMFS11SGD @@@@@@@@ @@@ @@@]V'@@]@@D@@@]V1[^FFMFTZ )@@G@@PLOTTING @@@@ ^@@ @@@DUMMY @@@]W]@@#@@A@@@]V/B(HA[GPICT1 UA )@@G@@@@@@A+@@ @B' @@@]WJ@@]@@E@@@]W NJZGQFS11ANL @@@@@@@@ @@@UB )@@G@@ @@@]X&@@#@[P@@@]WLK-U^NGSTDWRT @@@@^'@@ @@@STDO26 UC )@@G@@@@@]X5@@]@@G@@@]X(CXJ#GGS1GTVT @@@@@@@@ @@@ @@@]X.@@[@@AUD )@@G@@@@@]X7[RXERFS11RTV @@@@ L@@ @@@ @@@]YN@@[@@P@@@]X"NKZGQFUE )@@G@@S11FMT @@@@^$@@ @@@ @@@]Y-@@[@@H@@@]YONKPGQFS11BOR UF )@@G@@@@@@ !@@ @@@ @@@]Z#@@[@@-@@@]Y+NKMGQFS11SLB @@@@CY@@ @@@UG )@@G@@ @@@]ZK@@[@@G@@@]Z^NK9GQFS11SCL @@@@@@@@ @@@ UH )@@G@@@@@]ZY@@[@@H@@@]ZLNK-BZESTDOGEN UK )@@G@@@@@@@@@@ @@@GSPV46 @@@]="@@#@@!@@@]=LM77^BGSYMBOL @@@@^*@@ @@@UL )@@G@@GSPV35 @@@]>C@@[@@B@@@]>[HJ,#BFINTSCT @@@@@@@@ @@@GSPV53 UM )@@G@@@@@]>J@@[@@A@@@]>D[J;GBDLOCATE @@@@A[@@ @@@GSPV25 @@@]>&@@[@@QUN )@@G@@@@@]>KC_*[WFPLQQQ6 @@@@A8@@ @@@CMNGR10 @@@]>%@@[@@#@@@]>$G\@EBEUO )@@G@@QPAGE @@@@@@@@ @@@GSPVD4 @@@]>\@@[@@^@@@]>:G8/G^EAXDIST UP )@@G@@@@@@B1@@ @@@GSPV95 @@@]>3@@[@@#@@@]>0C;KD^FDUB @@@@ *@@ @@@UQ )@@G@@ @@@]>6@@[@@]@@@]>4M^%DS POSITN @@@@@@@@ @@@GSPV54 UR )@@G@@@@@]>.@@[@@A@@@]>7D%) CEPLQQQL @@@@AA@@ @@@PSPRL10 @@@]&]@@[@@^US )@@G@@@@@]>"INSBFEPLQQQ3 @@@@@@@@ @@@GSPV55 @@@]&K@@[@@H@@@]&#FJR CFUT )@@G@@BASIS1 @@@@@@@@ @@@PSPRL00 @@@]&%@@[@@T@@@]&L@^&#QDADDHOL UU )@@G@@@@@@@@@@ @@@GSPVD3 @@@]&0@@[@@ @@@]&:I#TFXDLITEM @@@@@@@@ @@@UV )@@G@@GSPVD3 @@@]&6@@[@@ @@@]&1@'2G]DMCORE @@@@@@@@ @@@GSPV94 UW )@@G@@@@@]&8@@[@@[@@@]&7H'XDFESHOIMG @@@@@@@@ @@@GSPVO5 @@@]*<@@#@[%UX )@@G@@@@@]&9EQ2DXFTCG @@@@AN@@ @@@GSPV16 @@@](H@@]@@$@@@]*&E[,[GGUY )@@G@@PLQQQ7 @@@@@@@@ @@@PSPRL10 @@@](M@@[@@#@@@](JIN2BFEGSTXT UZ )@@G@@@@@@^\@@ @@@V36 @@@]($@@[@@O@@@](NI,O#[GCHARSCN @@@@@@@@ @@@VA )@@G@@PSPRL10 @@@](?@@]@@^@@@](*IM7BFECNTRHD @@@@ V@@ @@@GRFPRNTUW01 VB )@@G@@@@@](7@@[@@D@@@](,C:##]ALINE @@@@@@@@ @@@GSPV14 @@@]%U@@]@@+VC )@@G@@@@@](8I,O[BEAXLIN @@@@^1@@ @@@GSPV56 @@@]?1@@^@]P@@@]%WC_S #GVD )@@G@@PLQQQR @@@@ P@@ @@@PSPRL00 @@@]?_@@[@@E@@@]?5EI!#JDGRDLIN VE )@@G@@@@@@@@@@ @@@CMNGR10 @@@]!Q@@]@@Q@@@]!@G,.EBEBASIS2-3 @@@@@@@@ @@@VF )@@G@@PSPRL00 @@@]!X@@[@@ @@@]!S@^$#QDPLQQQX @@@@@@@@ @@@GSPV26 VG )@@G@@@@@]!&@@[@@C@@@]!YDYM]^GIMGHDLR @@@@@@@@ @@@GSPV46 @@@],H@@^@@&VH )@@G@@@@@]!$LP+#SGDSHCLR @@@@@@@@ @@@PSPRL00 @@@],N@@[@@]@@@],L@^L#QDVI )@@G@@QDASH @@@@C-@@ @@@PSPRL00 @@@],R@@[@@#@@@],O@^M#QDVECTOR VJ )@@G@@@@@@@@@@ @@@GSPVO4 @@@],:@@]@@N@@@],SM#3EFEWRTEXT @@@@@@@@ @@@VK )@@G@@GSPV95 @@@]\^@@]@@R@@@],!B2OCWFGSPSET @@@@B\@@ @@@VD5 VL )@@G@@@@@]\)@@]@@U@@@]\AFB^G^FPLQQQ2 @@@@ G@@ @@@GSPV35 @@@]\:@@[@@DVM )@@G@@@@@]\+EOF##FPLQQQ1 @@@@CH@@ @@@GSPV35 @@@]\8@@[@@G@@@]\?EN/##FVN )@@G@@PLQQQ5 @@@@C)@@ @@@PSPRL00 @@@]\_@@[@@A@@@]\9@^X#QDROWVEC VO )@@G@@@@@@@@@@ @@@PSPRL00 @@@]0E@@[@@E@@@]0@@^U#QDPLQQQH @@@@C^@@ @@@VP )@@G@@PSPRL01 @@@]0K@@[@@ @@@]0FIN]BFEPLQQQ4 @@@@A:@@ @@@PSPRL00 VQ )@@G@@@@@]0O@@[@@#@@@]0L@^X#QDPCOORD @@@@A>@@ @@@GSPVO4 @@@]0W@@[@@BVR )@@G@@@@@]0PM^[EFEPAGDEF @@@@@@@@ @@@GSPV95 @@@]0$@@[@@E@@@]0XH=?CGFVS )@@G@@TRWRIT @@@@CE@@ @@@GSPV95 @@@]01@@]@@D@@@]0*C)PCAFDTCTCG VT )@@G@@@@@@@@@@ @@@GSPV16 @@@]1-@@]@@,@@@]03E].[GGTSTEQL @@@@CU@@ @@@VU )@@G@@ @@@]1>@@[@@]@@@]1ASAGRPRNT @@@@A)@@ @@@GRFPRNTUW01 @@@]4]@@]@@FWB )@@G@@@@@]37C(*#]AURSRCH @@@@ M@@ @@@UWCC01 @@@]4H@@[@@D@@@]4^G\4DN WC )@@G@@S11SD @@@@@@@@ @@@ @@@]4P@@[@@B@@@]4IM^CF]BGRAPH WD )@@G@@@@@@ /@@ @@@GSPV26 @@@]5/@@^@[&@@@]4QDZN]^GSCALE @@@@@@@@ @@@WE )@@G@@GSPV35 @@@]7A@@]@[A@@@]6@I["##FPAGE @@@@@@@@ @@@GSPVO5 WF )@@G@@@@@]7W@@]@@O@@@]7CGR$EAFSAVPAG @@@@A(@@ @@@PSPRL00 @@@]7+@@[@@^WG )@@G@@@@@]7Y@^H#QDRSTRPG @@@@A@@@ @@@GSPVO5 @@@]77@@]@@O@@@]7@^N#QDPLNUMB @@@@@@@@ @@@PSPRL00 @@@]9^@@]@@S@@@]8?@^O#QDWM )@@G@@PLTXT-TXTN @@@@@@@@ @@@STDOD11 @@@]9E@@[@@^@@@]9AG\]EBES11PRP WN )@@G@@@@@@@@@@ @@@ @@@]98@@[@@!@@@]9FNKVGQFGRAPHZ @@@@ >@@ @@@WO )@@G@@ @@@]'"@@]@[ @@@]99[[,FMFS11TAB @@@@A%@@ @@@ WP )@@G@@@@@];)@@]@@)@@@];@NK.GQFD4XTRA @@@@@@@@ @@@ @@@];<@@[@@[WQ )@@G@@@@@];+][3 JBD1PLTM @@@@@@@@ @@@ @@@];'@@[@@Q@@@];=N\# HEWR )@@G@@REGAN2 @@@@@@@@ @B; @@@]/^@@]@@D@@@];;JYCEPED3ANAL WS )@@G@@@@@@@@@@ @@@ @@@]"P@@#@]J@@@]/AOJ']UFD1XPX @@@@CO@@ @@@WT )@@G@@ @@@]"U@@[@@]@@@]"SK)]^NGD1RDI2 @@@@@@@@ @@@ WU )@@G@@@@@]"?@@[@@L@@@]"VJQ,]GGD1DSP @@@@@@@@ @@@ @@@]_R@@[@@%WV )@@G@@@@@]"!H!'DWCD1XCHG @@@@@@@@ @@@ @@@]_-@@[@@D@@@]_SG!'[CDWW )@@G@@D1MOP @@@@ .@@ @@@ @@@#@B@@]@@>@@@]_+OJM]UFD1SWP WX )@@G@@@@@@@@@@ @@@ @@@#@U@@[@@L@@@#@DH,5DWCD1SELT @@@@ 9@@ @@@WY )@@G@@ @@@#@+@@[@@B@@@#@VG!7[CDD1RES @@@@@@@@ @@@ WZ )@@G@@@@@#[Q@@#@@3@@@#@<@MND^FD4RST @@@@C[@@ @@@ @@@#]9@@]@[)XA )@@G@@@@@#[TD2 AOFMSSWCH @@@@@@@@ @@@UWCC1 @@@#]"@@[@@#@@@#];GO1^E XB )@@G@@MSADD @@@@@@@@ @@@NAGBUMP202 @@@##!@@[@@,@@@#]_G,7 QCMSDTP1 XC )@@G@@@@@@AM@@ @@@NAGBUMP202 @@@##0@@[@@]@@@##,IA(^^DMSINRS @@@@A_@@ @@@XD )@@G@@UWCC1 @@@##.@@[@@G@@@##1J$M ^ MSINV1 @@@@@@@@ @@@UWCC1 XE )@@G@@@@@#^M@@[@@O@@@##"N5AAF MSMOVE @@@@@@@@ @@@UWCC1 @@@#^)@@[@@HXF )@@G@@@@@#^NF$<#P MSGET @@@@@@@@ @@@UWCC1 @@@#^*@@[@@B@@@#^-N+FCA XG )@@G@@MSPRW1 @@@@B]@@ @@@UWCC1 @@@#^0@@[@@B@@@#^(F$##P MSINV XH )@@G@@@@@@A^@@ @@@NAGBUMP204 @@@# ^@@]@@N@@@#^1DN GPAMSMOV2 @@@@@@@@ @@@XI )@@G@@UWCC1 @@@# L@@]@@F@@@# AIT0BI MSDGNV @@@@@@@@ @@@UWCC1 XJ )@@G@@@@@# U@@[@@B@@@# NIS5BI MSCLND @@@@AV@@ @@@UWCC1 @@@# )@@[@@ XK )@@G@@@@@# VGR1^E MSGTAD @@@@@@@@ @@@UWCC1 @@@# %@@]@@D@@@# -FHJBX XL )@@G@@URTRET @@@@B2@@ @@@UWCC @@@# !@@[@@[@@@# ?L,=ASAMSPRDF XM )@@G@@@@@@@@@@ @@@UWCC2 @@@# 4@@]@@A@@@# ,J1;CD MSSRCH @@@@CF@@ @@@XN )@@G@@NAGBUMP203 @@@#AP@@#@@Z@@@# 6CI%[MCMSIC @@@@@@@@ @@@UWCC1 XO )@@G@@@@@#B6@@[@[Y@@@#ASK@6AX MTINV @@@@@@@@ @@@BUMP2UW03 @@@#CL@@#@@UXP )@@G@@@@@#B7C)FDU MTMDEF @@@@@@@@ @@@UWCC2 @@@#C8@@]@@=@@@#COJ12CD XQ )@@G@@S1TRD2 @@@@AP@@ @@@ @@@#DM@@[@@S@@@#C'JZSEPES1EIGO XR )@@G@@@@@@A;@@ @@@ @@@#DX@@[@@E@@@#DNNJ!GQFS61RNK @@@@@@@@ @@@XS )@@G@@ @@@#D(@@[@@F@@@#DYL,T#TES6ROT @@@@@@@@ @@@ XT )@@G@@@@@#EO@@[@@%@@@#D%NMSGQFS1ORTH @@@@AK@@ @@@ @@@#E+@@[@@HXU )@@G@@@@@#EPNJ7GQFS1IFOR @@@@@@@@ @@@ @@@#E0@@[@@H@@@#E]UFYK )@@G@@TROUT @@@@@@@@ @@@ @@@#TX@@[@@]@@@#TVI8X[TCS1SORT YL )@@G@@@@@@@@@@ @@@ @@@#T>@@]@@B@@@#TYJRO]GGS13STD @@@@@@@@ @@@YM )@@G@@ @@@#T1@@[@@E@@@#T$JZ:EPES13OUT @@@@@@@@ @@@ YN )@@G@@@@@#UL@@]@@Z@@@#T2[ _FQES13BCD @@@@@@@@ @@@ @@@#UO@@[@@[YO )@@G@@@@@#UNK>!AUES13PGH @@@@@@@@ @@@ @@@#UV@@]@@A@@@#UPHAUA]AYP )@@G@@S1SJOB @@@@A&@@ @@@ @@@#U4@@]@@R@@@#UXNOIDLES1OTBD YQ )@@G@@@@@@@@@@ @@@ @@@#U'@@[@@^@@@#U6K+_AUES1OTSD @@@@@@@@ @@@YR )@@G@@ @@@#V @@]@@E@@@#U;K=&AUES1OTCD @@@@@@@@ @@@ YS )@@G@@@@@#VJ@@[@@C@@@#VB[#][XFS1OTLI @@@@@@@@ @@@ALL @@@#V8@@#@@*YT )@@G@@@@@#VKNK#GQFTRANS1 @@@@@@@@ @B" @@@#W^@@]@@D@@@#V;JUB]GGYU )@@G@@S13ANL @@@@@@@@ @@@ @@@#X>@@#@[Z@@@#WAK+7^NGS1RTIN YV )@@G@@@@@@@@@@ @@@ @@@#X6@@[@@I@@@#X*K+EBCFS1CKV @@@@@@@@ @@@YW )@@G@@ @@@#X_@@]@@C@@@#X7OG0]UFS1STIN @@@@A/@@ @@@ YX )@@G@@@@@#YM@@[@@L@@@#Y[D20AOFUNISTAT2 @@@@@@@@ @B_ @@@#YX@@]@@EYY )@@G@@@@@#YNNM,GQFS18ANL @@@@A4@@ @@@ @@@#)N@@#@[4@@@#YZNLPGQFYZ )@@G@@S1CHSQ @@@@@@@@ @@@ @@@#)>@@[@@J@@@#)QJRG]GGS18PSN ZA )@@G@@@@@@@@@@ @@@ @@@#)0@@[@@E@@@#)&JS,]GGS18NRM @@@@@@@@ @@@ZB )@@G@@ @@@#)7@@[@@A@@@#)1JSA]GGGFSUBC @@@@@@@@ @@@ ZC )@@G@@@@@#)9@@[@@[@@@#)8JQ;]GGGFSUBB @@@@CZ@@ @@@ @@@#);@@[@@[ZD )@@G@@@@@#)'JQ8]GGGFSUBA @@@@@@@@ @@@ @@@#).@@[@@[@@@#)/JQ6]GGZE )@@G@@PBSUBC @@@@@@@@ @@@ @@@#)_@@[@@[@@@#)"JRB]GGPBSUBB ZF )@@G@@@@@@@@@@ @@@ @@@#-[@@[@@[@@@#-@JR^]GGPBSUBA @@@@@@@@ @@@ZG )@@G@@ @@@#-#@@[@@[@@@#-]JR@]GGS18ABM @@@@@@@@ @@@ ZH )@@G@@@@@#-S@@[@@O@@@#-^[AKFMFS18RMD @@@@@@@@ @@@ @@@#-)@@[@@BZI )@@G@@@@@#-T@POD^FS18LRN @@@@@@@@ @@@ @@@#-4@@[@@N@@@#--@O2D^FZJ )@@G@@S18RNS @@@@@@@@ @@@ @@@#-_@@[@@E@@@#-5@PTD^FS18OUT ZK )@@G@@@@@@BQ@@ @@@ @@@#>@@@#@#@@@@#+@JS:]GGS18FQN @@@@@@@@ @@@ZL )@@G@@ @@@#>$@@[@@=@@@#>#JS]]GGS18PCK @@@@@@@@ @@@ ZM )@@G@@@@@#>5@@[@@H@@@#>*[D4FMFS18BLK @@@@@@@@ @@@ @@@#>'@@[@@^ZN )@@G@@@@@#>6[SLERFS18FQA @@@@@@@@ @@@ @@@#&L@@[@@Q@@@#>;NLUGQFZO )@@G@@S18CCI @@@@@@@@ @@@ @@@#&V@@[@@D@@@#&M[SOERFS18PRR ZP )@@G@@@@@@CN@@ @@@ @@@#$ @@[@@(@@@#&W[FDFMFS18NUH @@@@BF@@ @@@ZQ )@@G@@ @@@#$:@@[@@>@@@#$AKAOFUNIST2MAP @@@@@@@@[@@@AK )@@G@@ @ @@@[[@@@@#@@@#:=[P\FMFDATA @@@@@@@@[@@@ AL )@@G@@@ @@@[[@@@@E@@@#:$H8M^RBTEST @BS@@@@@[@@@CLASSIFY1 @ @@@[[@@@@[AM )@@G@@@@@#:1KJCDXFTEST @BT@@@@@[@@@COLFREQ1 @ @@@[[@@@@Q@@@#:2KJDDXFAN )@@G@@TEST @BU@@@@@[@@@CROSTAB2 @ @@@[[@@@@B@@@#?CKJEDXFTEST AO )@@G@@@BV@@@@@[@@@DISCRIM1 @ @@@[[@@@@A@@@#?JKJGDXFTEST @BW@@@@@[@@@AP )@@G@@DSTAT2 @ @@@[[@@@@G@@@#?PKJHDXFTEST @BX@@@@@[@@@FACTOR3 AQ )@@G@@@ @@@[[@@@@ @@@#?-KJIDXFTEST @BY@@@@@[@@@NWAY1 @ @@@[[@@@@AAR )@@G@@@@@#?&KJKDXFTEST @BZ@@@@@[@@@ONEWAY1 @ @@@[[@@@@#@@@#??KJLDXFAS )@@G@@TEST @B)@@@@@[@@@ONEWAY2 @ @@@[[@@@@^@@@#?\@TN^WGTEST AT )@@G@@@B-@@@@@[@@@PICT1 @ @@@[[@@@@A@@@#?3@TO^WGTEST @B+@@@@@[@@@AU )@@G@@REGAN2 @ @@@[[@@@@ @@@#?9KJPDXFTEST @B<@@@@@[@@@REGAN3 AV )@@G@@@ @@@[[@@@@[@@@#?"L+A#TETEST @B=@@@@@[@@@ROTATE1 @ @@@[[@@@@IAW )@@G@@@@@#?_KJRDXFTEST @B>@@@@@[@@@STEPREG1 @ @@@[[@@@@ @@@#!HKJTDXFAX )@@G@@TEST @B&@@@@@[@@@TRANS1 @ @@@[[@@@@ @@@#!MKJVDXFTEST AY )@@G@@@B$@@@@@[@@@UNISTAT1 @ @@@[[@@@@]@@@#!RKJWDXFTEST @C=@@@@@[@@@AZ )@@G@@UNISTAT2 @ @@@[[@@@@]@@@#!T@TP^WGTAPE @B(@@@@@[@@@NOW BA )@@G@@@ @@@[[@@@@[@@@#!V@TK^WGTAPE @B%@@@@@[@@@NEW @ @@@[[@@@@[BB )@@G@@@@@#!W@TJ^WGTAPE @@@@@@@@[@@@OLD @ @@@[[@@@@[@@@#!X@TM^WGBC )@@G@@MAP @B?@@@@@[@@@CLASSIFY1 @ @@@[[@@@@]@@@#!YKCVDXFMAP BD )@@G@@@B!@@@@@[@@@ONEWAY1 @ @@@[[@@@@]@@@#!)KC&DXFMAP @C>@@@@@[@@@BE )@@G@@UNISTAT1 @ @@@[[@@@@]@@@#!+KC'DXFCLASSIFY1 @@@@@@@@A@@@ BF )@@G@@)@@]@@@@@@[V@@@#!=@W+^WGONEWAY1 @@@@CB@@A@@@ )@@]@@@@@@H.BG )@@G@@@@@#,_@H@@@CIBB3NA[GREGAN2 @@@@@@@@A@@@ )@@]@@@@@@Q+BQ )@@G@@@@@C3OB3"A[GROTATE1 @@@@@@@@A@@@ )@@]@@@@@@S?@@@DD6B46A[GBR )@@G@@STEPREG1 @@@@@@@@A@@@ )@@]@@@@@@R[@@@D++B5QA[GTRANS1 BS )@@G@@@@@@@@@@A@@@ )@@]@@@@@@PI@@@D9^WGBANKPRINT @@@@@@@@A@@@ )@@]@@@@@@B_BV )@@G@@@@@E08@2N^WGBANKPURGE @@@@@@@@A@@@ )@@]@@@@@@B>@@@E87@2:^WGBW )@@G@@NTRAN$ @@@@@@@@ @@@FORIO @@@F[C@@]@@?@@@F@W@3^#DAN$BFFR BX )@@G@@@@@@@@@@]@@@FORIO @[@@@[@@@@@A@@@F[EO9NBWAN$TAB @@@@C+@@]@@@BY )@@G@@FORIO @[@@@[@@@@@G@@@F[KCA1CQDNOSYM$ @@@@@@@@ @@@FORIO BZ )@@G@@@@@F[-@@#@@ @@@F[WCCFCQDNTAB$ @@@@CQ@@ @@@FORIO @@@F[&@@[@@]CA )@@G@@@@@F[=CCRCQDNFFTO$ @@@@@@@@ @@@FORIO @@@F[6@@#@@J@@@F[$E^NEXDCB )@@G@@NFINP$ @@@@@@@@ @@@FORIO @@@F]B@@#@@I@@@F[9HA\GXDNISYM$ CC )@@G@@@@@@C<@@ @@@FORIO @@@F]I@@]@@^@@@F]EK@"FMENFFTI$ @@@@@@@@ @@@CD )@@G@@FORIO @@@F]3@@#@@<@@@F]KK@[FMENFOUT$ @@@@CR@@ @@@FORIO CE )@@G@@@@@F#]@@#@@G@@@F]6HD*[CFNFTCH$ @@@@@@@@ @@@FORIO @@@F#L@@]@@GCF )@@G@@@@@F# HS?D]FINSTAT @@@@@@@@ @@@FORIO @@@F#O@@[@@[@@@F#NE-*GQFCG )@@G@@FORIO$4 @@@@@@@@ @@@FORIO @@@F#-@@^@@G@@@F#PE%.GQFFORIO$3 CH )@@G@@@@@@@@@@ @@@FORIO @@@F#3@@^@@I@@@F#>E%8GQFFORIO$1 @@@@@@@@ @@@CI )@@G@@FORIO @@@F Z@@M@[*@@@F#7E%*GQFNLOUT$ @@@@@@@@ @@@FORIO CJ )@@G@@@@@FAJ@@]@@Y@@@F 1E$&GQFNLINP$ @@@@@@@@ @@@FORIO @@@FA;@@#@@%CK )@@G@@@@@FALE>$GQFFORIO$2 @@@@@@@@ @@@FORIO @@@FCB@@C@[D@@@FA"KQ+]EGCL )@@G@@NBF01$ @@@@@@@@ @@@FORIO @@@FCJ@@[@@@@@@FCJDPFFAENBF02$ CM )@@G@@@@@@@@@@ @@@FORIO @@@FCK@@[@@@@@@FCKJ_MFMENCBD$ @@@@@@@@ @@@CN )@@G@@FORIO @@@FCO@@[@@#@@@FCLID*PA^GMAP @C$@@@@@[@@@COLFREQ1 @ @@@[[@@@@[@@@F+*BM+AQGDA )@@G@@MAP @C*@@@@@[@@@CROSTAB2 @ @@@[[@@@@#@@@F+(BM=AQGMAP DB )@@G@@@C(@@@@@[@@@DISCRIM1 @ @@@[[@@@@^@@@F+?BM&AQGMAP @C%@@@@@[@@@DC )@@G@@DSTAT2 @ @@@[[@@@@^@@@F+0BM*AQGMAP @C:@@@@@[@@@FACTOR3 DD )@@G@@@ @@@[[@@@@^@@@F+4BM:AQGMAP @C?@@@@@[@@@NWAY1 @ @@@[[@@@@#DE )@@G@@@@@F+8BM,AQGMAP @C!@@@@@[@@@ONEWAY2 @ @@@[[@@@@#@@@F+;BM\AQGDF )@@G@@MAP @C,@@@@@[@@@PICT1 @ @@@[[@@@@^@@@F+"BM1AQGMAP DG )@@G@@@C\@@@@@[@@@REGAN2 @ @@@[[@@@@#@@@F<]BM2AQGMAP @C0@@@@@[@@@DH )@@G@@ROTATE1 @ @@@[[@@@@[@@@F< BM3AQGMAP @C1@@@@@[@@@STEPREG1 DI )@@G@@@ @@@[[@@@@#@@@FBM/AQG@@@@@@@@@@@@DV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KKLE%8GQFFORIO$1 @@@@@@@@ @@@FORIO DX )@@G@@@@@KMF@@M@[*@@@KK$GQFDZ )@@G@@FORIO$2 @@@@@@@@ @@@FORIO @@@KO3@@C@[D@@@KN%KQ+]EGNBF01$ EA )@@G@@@@@@@@@@ @@@FORIO @@@KO;@@[@@@@@@KO;DPFFAENBF02$ @@@@@@@@ @@@EB )@@G@@FORIO @@@KO/@@[@@@@@@KO/J_MFMENCBD$ @@@@@@@@ @@@FORIO EC )@@G@@@@@KP@@@[@@#@@@KO.IC8FK@F[^@^7;[@@H[%[^@^+2C8FK@GIB )@@G@@[^@^+3[@@H]S[^@^+&C8FK@H[@@H@7C8FK@I[@@H^G[^@ [5C8FK@J[^@^8 [^@^+_[@@H[WIC )@@G@@C8FK@K[^@^<@[@@H]LC8FK@L[^@ [_[@@H#9C8FK@M[^@^8J[@@H]-C8FK@N[@@H@6/K@^S1ID )@@G@@C8@@@P/\K M?C8FK@@[@@H@'C8FK@[[@@H@"C8FK@][@@H@9[^@^7GC8FK@#[@@H@8[^@^7PIE )@@G@@C8FK@^[^@^\0[^@^-B[^@^)8[@@H[=[^@^\N[^@^\+C8FK@ [@@H[+[^@^9YC8FK@A[^@^_2IF )@@G@@[@@H[@[^@ @AC8FK@B[@@H@;[^@^_/C8FK@C[@@H@/[^@^_Y[^@^_*C8FK@D[^@ ]E[@@H^@IG )@@G@@C8FK@E[@@H[S[^@^61[^@^&2C8FK@F[@@H[Q[^@^&>[^@^6*C8FK@G[@@H@_C8FK@H[^@^&&IH )@@G@@[@@H[[[^@^&3C8FK@I[^@ ]O[@@H^[C8FK@J[@@H[Y[^@^6'C8FK@K[@@H@.C8FK@L[@@H^FII )@@G@@[^@ ]YC8FK@M[^@^7#[^@^&_[@@H#$C8FK@N[@@H]Z[^@^$@/K@^S4C8@@@W/\K M?C8FK@@IJ )@@G@@[@@H[KC8FK@[[@@H[DC8FK@][@@H[BC8FK@#[@@H[CC8FK@^[@@H[GC8FK@ [@@H[IC8FK@AIK )@@G@@[@@H]#C8FK@B[@@H[)C8FK@C[@@H[?C8FK@D[@@H] C8FK@E[@@H]&C8FK@F[@@H[4C8FK@GIL )@@G@@[@@H[0C8FK@H[@@H[2C8FK@I[@@H[9C8FK@J[@@H[6C8FK@K[@@H[.C8FK@L[@@H[_C8FK@MIM )@@G@@[@@H][C8FK@N[@@H]DC8FK@O[@@H]XC8FK@P[@@H]QC8FK@Q[@@H]HC8FK@R[@@H]VC8FK@SIN )@@G@@[@@H]NC8FK@T[@@H]JC8FK@U[@@H]C@)@@@;@)@@G"@__.JB )@@G@@[]@HD&C]@HC7T]@@@@[]@HD$C]@HD*G"@__.[])HD(T])@@@[])HD%C])HD:G")__.[])HD?JC )@@G@@C])HC7G")@@][])HD!C])HD,G")__.[])HD\C])HD0G")__.[])HD1C])HD2G")__.[])HD3JD )@@G@@C")__"G])@@@T])HC?H")@@][@)HD4G@)HDP[#)HD5G#)HC$[#)HD6C#)HC?G_)@@]G#)HC!JE )@@G@@[#)HD7C#)HC(T#)@@@H_)@@]]#)HD8C#)HC,G_)@@]G#)HC1[#)HC1C#)HC*T#)@@@;#)@@H@@E+]]@@H ?C_)@@[JT )@@G@@C@)HD4;@)@@M'K)HDU[@)@@#N[)HC4[#)H !C@@H ?G@@H ![@@H ,;@@@@@@@"*)HE]"**@@@9*<@@@[@@HC\C@@HD.KF )@@G@@/)@ =J9?]@@@"?@E+1")#@@@9*#@@@C@@HC\/)@ =O9?#@@@"=@HEC9*#@@@9?^@@@"*D@@@KG )@@G@@"?@E+19*[@@@C@@HC\/)@ =X9?[@@@")@HEA9*[@@@O[@HC$O@0HDQO@KHDQO@)HC7O[KHC$KH )@@G@@G_)@@[8L0 <"P[@HC.O@0HD_O[0HC?O]@HC?O]KHC?O@KHD_P@)HC8P[KHC.G_0@@[8L) <\KI )@@G@@C_@@@[N[)HD%[#@H :R])HC09?E@@@"*@E+39*@HEEC/@@@[H@@H :T@@@@@]@@H ?C_)@@[KJ )@@G@@N[0HC&[#)H !C@@H ?G@@H ![@@H ,G@@E+B[@@H 3C@)H ,G@)E+C[@)H 4C[@H ,G[@E+DKK )@@G@@[[@H 5;@@@@VR])HC\9?E@@@"=@HEE9*E@@@C@@H 4;@@@@@HAFMG )@@G@@9!)HAB"()E+3">@@@M"*)H /9!)HAN"()HAH"))@@M"*)E+K">@@@I][B@@@][R@@[C@)@@@MH )@@G@@;@)@@@@@G9(I@@@[@)HDLA]KHD=C@@HDY/)@ 0[R@0HD=9?#@@@"*@HATMQ )@@G@@R[0HDL")B@@@9*B@@@C@@H !H@@H \*@@@@G/K@ 0DR])HDL9?E@@@"=@HEX9*E@@@R@)HDLMR )@@G@@9?]@@@"*@E+K9*]@@@G_)@@[8L0 \SO]@HD7G_0@@[8L) ,.O.K@@]O/K@@]O.)@@[G_@@@[MS )@@G@@8LK ?@O.@@@[G_K@@[8L@ %;C/@__"G@@@@@C_K@@[C@)HD([@)HC8[@@@[^[#KH *C/@@@[MT )@@G@@H@@H *C/)__"G@)@@@C[@H *;[@@@NA )@@G@@@@@@@@@@@@@@@@@H \@@@HCL@@@@@@@@@@@@@@@HCL@^ZHCY9?B@@@")@H _9*@HAHC@)HAZNB )@@G@@;@)@@"?)E+19*)HA!")@HA!9*@HA\"=)HA:]@)HA1]@0HA29!@HAHNF )@@G@@"(@H 69(@HEZ"(@HA(9,@HA("%@HA(">@@@O9,@HA-"%@HAH"%@HAH"&@@@K"%@E+I"*)HA1NG )@@G@@"&@@@I9%@HA3"%@E+S"+@HCJ9%@HA5/,0]51@@@HA5@@@E+!@^%HCY9*@HA79?)HA3"*)E+UNH )@@G@@"))HCJ9*)HA9/,0]51@@@HA9@@@E+\@^?HCY9*@HA;"*@E+M9*@HA.9?)HA;"*)E+O9*)HA_NI )@@G@@"*)HA_9*)HE-"*)HA3"))HCJ9*)HB["*)HA79*)HB#/,0C!I@@@HB @@@@@@@@@@@@@@@H \NJ )@@G@@@@@H *@@@@@@@@@@@@@@@@@@@^1HCY/,0C!I@@@HBB@@@@@@@@@@@@@@@H \@@@H *@@@@@@NK )@@G@@@@@@@@@@@@@@@^2HCY/,0C!I@@@HBD@@@@@@@@@@@@@@@H \@@@H *@@@@@@@@@@@@@@@@@@NL )@@G@@@^3HCY/,0C0H@@@HBF@@@@@@@@@@@@@@@H \@@@H *@@@@@@@@@@@@@@@@@@@^4HCY/,0C0HNM )@@G@@@@@HBH@@@@@@@@@@@@@@@H \@@@H *@@@@@@@@@@@@@@@@@@@^5HCY/,0C0H@@@HBJ@@@@@@NN )@@G@@@@@@@@@@@H \@@@H *@@@@@@@@@@@@@@@@@@@^6HCY9?@HBF"*@H /9?)HB "*)HAH"=@@@INO )@@G@@"*@HA.]@@HBL]@KHBMC@)@@@?9K@@B @@@@J!9K@@OC9K@@NC@@D)] ^@DZ*C@K@@IU8K@@ENP )@@G@@/@0]3T;C0@@[U80@@E;*0@@[[@0DZ%9)KDZ(C@0@@K[@W(Z:;C)@@[8^K]3K @@DZ%G8K@@ NQ )@@G@@H@@D)A/K@]3[@FK@]C@@D-&[@FK@#/KF@@AOA )@@G@@C/@__"G@FK@]C8:K@[G/)__"[@@D+([@)D+%/,0 C)@@@D+Q@[CD+&/,0]T?@@[D+G@[DD+&OB )@@G@@@@KD+:'^@]3'C/@@@[H@@@@@[@@D+?;O@@@=W/@@@AG/@__"]@@D+ C@)D+?;O)@@=W/)@[=OC )@@G@@G/)__"]@)D+A @@D+BC/@@@[H@@D+A*@@@@G1@@@@G/K@]58C/@@@[[@@D+BC/@@@EH@@@@@OD )@@G@@*@@@@G1@@@@G/K@]6@C/@@@[G@@D+B[@@D+BC@@D+AT@@D+!G/@@@]G@@D+B[@@D+?/,0 C)OE )@@G@@@@@D+?@[OD+&C/@@@]H@@D+B*@@@@G/K@]6N/,0#K;@@@D-(@@@D+R@@@D+R@@@D+S@@@D+QOF )@@G@@@[QD+&R@KD+TN.@@@PC@@D+U[@[(-%8L@]6PC@)@@@;O)@@=W/)@@EC[@@@IG.@__51@@@@KOG )@@G@@C/)@@E[@)D+D(@@D+D/K@]7UG/)__"C_)@@[[@)@[^[@)D+?[#)D+CC@@D+CT/@@@EG/@@@NOH )@@G@@[@@D+,/,0 C\@@@D-(@@@D+C@@@D-:@@@D+,@@@D+R@[+D+&G_)@@[8L@]6&C/@@@[H@@D+BOI )@@G@@*@@@@G/K@]6./,0 GC@@@D-:@@@D+R@@@D+K@[>D+&/,0#K$@@@D-:@[&D+&C_)@@[N[@D+?OJ )@@G@@[#)D+CC@@D+CT/@@@EG/@@@E[@@D+?/,0 C\@@@D-(@@@D+R@@@D-:@@@D+?@@@D+V@[%D+&OK )@@G@@G_)@@[8L@]7]C@@D+DT/@@@EH@@@@@(@@@@G/K@]7(C/@@[=H@@@@@/C@]7U*@@@@G/K@]7(OL )@@G@@C@@D+DT/@@@E[@@D+?G/@@@OC@)D+?H@)@@@]@)D+?[@@D+,/,0 C\@@@D-(@@@D+R@@@D-:OM )@@G@@@@@D+,@@@D+?@[0D+&/,0 C\@@@D+^@@@D+R@@@D-:@@@D+W@@@D+X@[1D+&C/@@[=C@)@@GON )@@G@@H@)@@@1@@@@IC@@@@@[@@D+?*@@D+B/K@]7./,0 GC@@@D-:@@@D+R@@@D+M@[3D+&/,0#K$OO )@@G@@@@@D-:@[4D+&R@KD+TN.@@@PC@@D+U[@[(-%8L@]8]/,0 C\@@@D+[@@@D+R@@@D-:@@@D+QOP )@@G@@@@@D+Y@['D+&/,0 GC@@@D-:@@@D+Z@@@D+O@[;D+&C/@@@[[@@D+EC_0@@[N[@D+([#0D+COQ )@@G@@C/@@@[H@@D+C;O@@@=W/@@@EH/K@@[]@KD+,/,0 C\@@@D-(@@@D+,@@@D-:@@@D+)@@@D+ROR )@@G@@@]@D+&C@@D+C;O@@@=W/@@@E*@@@@H/K@]9HC/@@@[H@@D+C;O@@@=W/@@[=C@@@@H;O@@@=OS )@@G@@W/@@@EH/@@@[]@@D+,/,0 C\@@@D-(@@@D+,@@@D-:@@@D+-@@@D+R@]#D+&C@@D+C;O@@@=OT )@@G@@W/@@[=*@@@@H/K@]9HC/@@@[H@@D+C;O@@@=W/@@J*C@@@@H;O@@@=W/@@[=H/@@@[]@@D+,OU )@@G@@/,0 C\@@@D-(@@@D+,@@@D-:@@@D++@@@D+R@]AD+&R@KD+EO@KD+%N8L@@@^^K]9M/,0 C\OV )@@G@@@@@]9M@@@D+R@@@D-:@@@D+<@@@D+?@]CD+&/,0#K$@@@D-:@]DD+&C/@@@[H@@D+A*@@@@GOW )@@G@@1@@@@G/K@]9.C/@__.G@@D+AC_)@@][@@@[ [#)D+FC/@@@[H@@D+FT/@@[=[@@D+,G/@__"OX )@@G@@]@@D+\N8L@@@^^K]95C@@D+,G@@@@@C@)@@GG/)_"V1@@@@IC/@@[=[@@D+,/,0#K;@@@]95OY )@@G@@@@@D+\@@@D+,@@@D+<@@@D+R@]JD+&G_)@@[8LK]9=C@@D+EG@@D+ [@@D+EG_0@@[8L@]8POZ )@@G@@N@0]'^/K@]' @]QD+&R]0D+$9\)D+0R@KD+2N[@D+3N[KD+4*4@T+=/K@T+=/K@],_AA0D+$PA )@@G@@9:)D+0A@KD+2^[@D+3^[KD+4C@VK@@[@KD+:C@VK@][@KD+!C8FK@#[^@]74[^@]7Z[^@]7QPB )@@G@@[^@]9,[^@]6S[^@]72[^@]59[^@]5>[^@]7M/K@]5Q/,0#&]@@@@@@@@@D+5@[^D(: @@@@@PC )@@G@@C4@D+;[@@D+"C/)@@[G/@__Z*@@@@G1@@@@G @@@@IC/@@@[C[@D+"G.@__$/D@]'3*@@@@KPD )@@G@@ @@@@G+@)@@GC/@@@[C[@D+"G.@__\*@@@@K1@@@@K @@@@GC.@@@[C[)D+"G.)__"/D)];@PE )@@G@@*@@@@M @@@@K+@@@@K;^)@@=)@)@@H/=0];/*@@D+"/K@];K/,0]T?@@[D<^@[ED(:R@KD(*PF )@@G@@Q@KD(,N.@@@[C8[)@@'^K]368L@];G'^@]3'C@@D+"G/@__Z/C@];P*@@@@G/K@];Z/,0]T?PG )@@G@@@@[D*@@@@I @@@@GC/)@@[C[@D+"G.@__$*@@@@K1@@@@K @@@@I+@@@@I/)K];7/,0]T?PI )@@G@@@@[DC@]=D(:R@KD(*Q@KD(,N.@@@[PW )@@G@@C8[)@@'^K]368L@]"QC8@D<]'^K]36'^@]3'N@0]"Y/K@#[E@]?D(:*@@D+_/K@#@PC/@@@[PX )@@G@@G@@@@@[@@@@@/,0]T?@@[D>+@]1D(:R@KD(*Q@KD(,N.@@@[C8[)@@'^K]368L@]"%'^@]3'PY )@@G@@N@0]"0/K@#[E@]8D(:*@@D+_/K@#@PC/@@@[G@@@@@[@@@@@/,0]T?@@[D>7@].D(:R@KD(*PZ )@@G@@Q@KD(,N.@@@[C8[)@@'^K]368L@]"/'^@]3'N@0]_]/K@#[E@#^D(:C/@@@[H@@D+_*@@@@GQA )@@G@@/K@]_T/,0]T?@@[D&B@#CD(:R@KD(*Q@KD(,N.@@@[C8[)@@'^K]368L@]_HC8@D<]'^K]36QB )@@G@@'^@]3'C/@@@#G@@@@@[@@@@@N@0]_S/K@#[E@#LD(:/,0]T?@@[D&\@#ND(:R@KD(*Q@KD(,QC )@@G@@N.@@@[C8[)@@'^K]368L@]_Z'^@]3'C/@@@#G@@@@@[@@@@@N@0]_*/K@#[E@#VD(:C/@@@[QD )@@G@@H@@D+_*@@@@G/K@#@P/,0]T?@@[D$N@#ZD(:R@KD(*Q@KD(,N.@@@[C8[)@@'^K]368L@]_3QE )@@G@@C8@D<]'^K]36'^@]3'C/@@@^G@@@@@[@@@@@N@0]_"/K@#[E@#*D(:C/@@@[H@@D+_*@@@@GQF )@@G@@/K@#@P/,0]T?@@[D*[@#?D(:R@KD(*Q@KD(,N.@@@[C8[)@@'^K]368L@#@DC8@D<]'^K]36QG )@@G@@'^@]3'C/@@@#G@@@@@[@@@@@N@0#@O/K@#[E@#5D(:*@@D+_/K@#@-/,0]T?@@[D*(@#8D(:QH )@@G@@R@KD(*Q@KD(,N.@@@[C8[)@@'^K]368L@#@X'^@]3'C/@@@[H@@D+_*@@@@G/K@#@3/,0]T?QI )@@G@@@@[D*7@#_D(:R@KD(*Q@KD(,N.@@@[C8[)@@'^K]368L@#@:C8@D<]'^K]36@@KD<[@@KD<@QJ )@@G@@'^@]3'/,0]T?@@[D(F@^ED(:@@K@@@'^@]3'/,0B]Z@@@D(W@^ID(:C/@@@ G@@@@@[@@@@@QK )@@G@@N@0#[@/K@#[E@^KD(:/,0B]Z@@@D(+@^LD(:C/@@@#G@@@@@[@@@@@N@0#[D/K@#[E@^ND(:QL )@@G@@R]0D(?9!)D(\R@KD(1N[@D(2*4@T((/K@T((/K@],_AA0D(?9()D(\A@KD(1^[@D(2C8FK@@QM )@@G@@[@@D(,[^@]/E[^@]'+C8FK@[[^@#@6[^@]/L[^@]/Y[^@]/RC8FK@][^@#@K[^@#[ [^@#[AQN )@@G@@[^@]_;[^@#@.[^@#@/[^@]_=[^@#@L[^@]"<[^@]"+[^@]_'[^@]_>[^@]"@[^@]_P[^@]_OQO )@@G@@[^@]"5[^@]"4[^@].+[^@].H[^@]"J[^@]"I[^@]/6[^@]._[^@].6[^@].5[^@].<[^@];8QP )@@G@@[^@]'>[^@].G[^@]/7/K@]'-C@@@@@"^@D%+/C@#]#*@@@@G/K@#]AN@0#] /K@#]:@[#D%*QQ )@@G@@/,0 C)@@@D%<@[^D%*/,0]T?@@[D(3@[ D%*@@)@@@@@KD%:@@KD%?'^@]3'/,0]'H@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@[FD%*C@@D%="@@@@@[@@@@@C@@@@@"^@D%+*@@@@G1@@@@G/K@#]-QS )@@G@@N@0#])/K@#]:@[ID%*/,0 C)@@@D%>@[JD%*/,0]T?@@[D%M@[KD%*'^@]3'N@0#]%/K@#]:QT )@@G@@@[ND%*R]0D%(*4@T%&/K@T%&/K@],_AA0D%(C8FK@@[^@#]L[^@#]GC@VK@[[@KD%:C@VK@]QU )@@G@@[@KD%?C8FK@#[^@#]T[^@#["[^@#]S[^@#]RC8FK@^[^@#]MC8FK@ [^@#]NC8FK@A[^@#]OQV )@@G@@/K@#["C@@D:FG/@__"C@)D:GG/)__"C[@D:FG.@__.C[)D:GG.)__.C'FK@^G"@__.[@@D:HQW )@@G@@[@)D:I[[@D:J[[)D:K[]@D:LC@@D:][@@D%5 @@@@@C/)@@[H@)@@@(@@@@I/K@#C$C/)__.QX )@@G@@G@)@@@C.@__"G[@@@@R@K@@@O@KD:JR@)D:#Q@)D:F[@)@[^[@)D:M[[@D:NC@]@@[[@])@@QY )@@G@@8L@##= @@D%\ @@D%! @[@@[C_@@@[R@)D:HR@KD:#Q@KD:IN[@D:N[#@D%7C@@@@@H@@D%7QZ )@@G@@C@)D:JG@)D%7[@@D:O[@)D:P @@D%8E@]@@[E@-@@["@@@@I"C@D%5[@@D%1C@@D%!"^@D%1RA )@@G@@*@@@@G1@@@@G/K@#^#C@@D%1[@@D%!C#)D%7R@0D:PN[KD:O[#)D%9E@#@@["^@D%!*@@@@GRB )@@G@@0@@@@G/K@#^JO/0@@[G_)@@[8LK#^AC@@D%9H@@D%7(@@@@G/K@#BNC/@@@YH@@D%8(@@@@GRC )@@G@@/K@#C>C/@@@[G@@D%8[@@D%8C/)@@[G@)D%7[@)D%'C[[@@[[[@D%0R@0D%'O@0D:KC[+@@[RD )@@G@@"D)D:^" #@@["H@@@M][@D%2"D@D%2" @D: ][@D:Q/,0]D(@@@D:Q@[&D:C[@@D%3E@@@@GRE )@@G@@0@@D%2D@@@@G"@@D%2C@+@@["G)@@G[@-@@["^)D%0]@)D%1D@@D%'G@@@@@C[@D:KG[@D%'RF )@@G@@R@0D%9O@0D:KR[@D:#Q[@@@K[@@@[ C@^@@["^@D%1[@^)@[8LK#^_C@)D%1"@)D%\[@)D%\RG )@@G@@C[#@@[[[@D%2C[)D: [[)D%, @@D%4C]@D%9H]@D%7[]@D%;G"@__"C_0@@[[]@@[ [#0D%/RH )@@G@@C@@D%9H@@D%/[@@D%6R[@D%6O[@D:JC@=@@["C)D%,[@)D%0C[@D%2"D@D%,[[@D%1E[=@@[RI )@@G@@E]@D%2" )@@O/H)# <*@@@@M/K@# 'C[=@@["H)D%2[[)D%,"D)D%,"[)D: [[)D:R/,0]D(RJ )@@G@@@@@D:R@[/D:C[@@D%3R@0D%6O@0D:FC@)D%4"C)D%2"C@@@I[@#@@@C@)D%,"G)D%3[@)D%4RK )@@G@@C[@D: "H@D%3[[@D%,/K@#ALR[@D%6O[@D:JC@@D%2"G^@@[[@@D%,"C@D%,"@@D: [@@D:RRL )@@G@@/,0]D(@@@D:R@]]D:C[@@D%3R@0D%6O@0D:FC@=@@["C)D%4"C@@@I[@#@@@C@)D: "G)D%3RM )@@G@@[@)D%4"C)D%,[@)D%,R[@D%6O[@D:KC@@D%4"C@D%0C@=@@["C)D%,"^@@@I]@@D%2R@0D%6RN )@@G@@O@0D:GC@)D%0"C)D%,C[^@@["D@D%4"@)@@K"C)D%4"@)D%1[@<@@@C[@D%6T[@D:SC.)@@[RO )@@G@@H[)D%6T[)D:SC_)@@[N[)D:N[[@D:R[[)D:T[#)D%.C@@D:RG@@D%.[@@D%"C@)D:TH@)D%.RP )@@G@@]@)D%_R[@D%"O[@D:LC[^@@[[[@D%1R@0D%_O@0D:L"D@D%,C[<@@["D)D%4"[@@@M[[^@@[RQ )@@G@@C[)D%4"D)D%1C]#@@["E@D%," )@@O][<@@[G_)@@[8L)#A?G_0@@[8LK# LC[@D%4"D@D%2RR )@@G@@[[]@@[C[)D%2"D)D%,[[-@@[E[]@@[" @D%!/H@#BN*@@@@K/K@#^NC@[@@["@@D%\[@[)@[RS )@@G@@O/)@@[G_@@@[8L@##\C_0@@]N[@D:M[#0D%/C@@@@@H@@D%/C@)D:KG@)D%/[@@D:M[@)D:ORT )@@G@@C/@@@[H@@D%/]@@D%6]@@D%.R[@D%6O[@D:KC@=@@[[@)D%2C#)D%/R@0D:ON[KD:M[#)D%8RU )@@G@@C@#@@["^@D%2*@@@@G1@@@@G/K@#B7C@@D%8[@@D%.C@<@@[[@)D%2O/0@@[G_)@@[8LK#B!RV )@@G@@C@@D%.H@@D%6(@@@@G/K@#C+R@KD%.O@KD:KR@)D%6O@)D:KC@]@@[[@[@@[C@)D%2[@+@@[RW )@@G@@C/@@@[H@@D%.C.@@@[H[@D%6T[@D:ST@@D:SC_)@@[N[KD:N[@@D:P[[@D:U[#)D%8C@@D:URX )@@G@@H@@D%8]@@D:@C@)D:PH@)D%8]@)D:[R[@D:@O[@D:LR@0D:[O@0D:LC[^@@[[[@D%2C[<@@[RY )@@G@@[[=@@[[[#@@[G_)@@[8LK#CKG_0@@[8L@#BV/K@#C$C@@D%7[@@@@@N@0#C(/K@#C%@]/D:CRZ )@@G@@R]0D:D9!)D:V9,@D:X9\@D:Z9\)D:-R@KD:R[@D:&N[@D:$N[KD:*N[)D:(SA )@@G@@*4@T:A/K@T:A/K@],_AA0D:D9()D:V9%@D:X9:@D:Z9:)D:-A@KD:A[@D:&SB )@@G@@^[@D:$^[KD:*^[)D:(C@VK@@[@KD:SC8FK@[[^@##U[^@#BW[^@#^7[^@##0[^@##X[^@##WSC )@@G@@[^@##QC8FK@][@@D:GC8FK@#[@@D:FC8FK@ [^@##O[^@#C&/K@###C/@@@[G@FK@@C@)D:/SD )@@G@@G/)__"R@KD:.C9FK@]G.@__"R@)D:/C[)D:.G.)__"C'FK@ G"@__"[@@D:"H@FK@@[]@D:_SE )@@G@@G]@@@GC/@@@[G@FK@@H@FK@@G@@D:_[@@D?@[@)D?[[[@D?][[)D?#[]@D?^C/@__"G@@@@@SF )@@G@@C_)@@[[@@@[^[#)D:%C/@__"G@@D:%C@)D? G@)D:%H@)D? [@)D?AG@)D:_C[@D?AG[@D?]SG )@@G@@[@@D?A[@)D?B[[@D?CC@@D? ;@@@@M'K@D?C[@@@@#C@@D? ;@@@@M'K@D?B[@@@@^N[KD?ASH )@@G@@C@#)@@[@^)@@8LK#EEG_)@@[8L@#D4C/)@@[H@)@@@(@@@@I/K@#I]C/)@@]G@)@@@C.@__.SI )@@G@@G[@@@@C_@@@][[@@[^[@)D?A[#@D:,C@@D?AH@@D:,[@@D:%G@@D:_C/)@@[H@)D:%]@)D:!SJ )@@G@@ @@D:2 @@D:4H/)__./G)#E**@@@@I/K@#E5C/)__"G@)D:!C[@D? ;[@@@M'L@@@G[[@@@#SK )@@G@@[@)@[ E@#)@@"@@D:4[@@D:48LK#E\*@@D:4/K@#E_R[@D:%O[@D?[C/@__"G@@D:!T@@D? SL )@@G@@G@@D:%G@@D:_C@?@@@[@=@@@/K@#H/C/@__"G@@D:!C/)__"G@)D:%T@)D? C[@D:_G[@D:%SM )@@G@@R@0D:%O@0D?[G/)@@[G@)D:_C.)__"G[)D:!T[)D? G[)D:%G[)D:_C]@D? ;]@@@M'M@@@KSN )@@G@@[]@@@^[@@@[ [@@D?B[@)D?C[[@D?D[[)D?EC@^@@@"G@D:4[@^@@@"C^)@@"@@D:2[@@D:2SO )@@G@@8LK#FSR[@D?EC@=@@@[@)D:0/,0]D(@@@D:2@[:D:9E@@@@G0@@D:0D@@@@G]@@D:1"C@D:4SP )@@G@@]@#@@@C@)D:1"C)D:0"^)D:2]@)D:2"C)D:4C[@D:1" @D:0][^@@@ @@D:0C_)@@[R@0D?CSQ )@@G@@C@@D? ;@@@@M'K@D?D[@@@@^R[KD:5Q[KD:/N[KD?B]@)D?F[#)D::C/@__"G@@D::C@)D? SR )@@G@@G@)D::H@)D? G@)D:_[@@D?G[@)D?HC@^@@@"G@D?F[@#@@@ @@D:1C@)D? ;@)@@M'K)D?DSS )@@G@@[@)@@AC@)D? ;@)@@M'K)D?H[@)@@BN[)D?GC@B)@@"CA)@@"@@D:1[@@D:18L)#GOC/)@@[ST )@@G@@G@)D::[@)D:\H@)D:!/G)#G)*@@@@I/K@#G8D@)D:\G@)D:!C[@D? T[@D::G[@D:\H[@D? SU )@@G@@G[@D:_C[)D:\T[)D? H[)D? G[)D:%G[)D:_C]@D? ;]@@@M'M@@@M[]@@@AR[0D:5Q[0@@KSV )@@G@@[@)@[AC@B)@@"CA)@@"@@D:1[@@D:18L)#G3C@@D:1"G@D:2[@ @@@C@=)@@"C>)@@"@)D:0SW )@@G@@[@)D:0O/0@@[G_)@@[8LK#F"C[@D:2"[@D:2"G)@@K[@)D:3C.@__"G[@D:!C_0@@[R[)D:/SX )@@G@@R[0D?D[[@@[ [[@D?I[#0D::C/@__"G@@D::C@)D? G@)D::H@)D? G@)D:_[@@D?J[@)D?KSY )@@G@@C@B@@@[@@D:0"C@D:3"^A@@@]@@D:1]@A@@@C@)D? ;@)@@M'K)D?D[@)@@#R[@D:5Q[@D:/SZ )@@G@@C@)D? ;@)@@M'K)D?K[@)@@ N[)D?JC@^)@@"C@D:0"^ @@@C@<)@@"C)D:1"@)@@G]@>)@@TA )@@G@@8L)#H$O.)@@[O[0D? G_0@@[8LK#HHC@@D? ;@@@@M'K@D?D[@@@@#N[KD?IC@#@@@"C@D:4TB )@@G@@[@#)@@8LK#H8R[@D:%O[@D?#C@@D:2[@^@@@G_@@@[8L@#EU @[@@@ @]@@@C/@__"G@@@@@TC )@@G@@C_)@@[R[KD?^R[)D:.[@@@[^[#)D:%C@@D? G@@D:%H@@D? G@@D:_C@)D? T@)D:%G/)@@[TD )@@G@@H@)D? G@)D:_[@@D?A[@)D?LC/@@@[H@@D:%]@@D:!T@@D? D@)D:!G@)D? C.@__"G[@D:!TE )@@G@@(@A@@@/K@#JCR[0D:5Q[0D?LR@0D:5Q@0D?@R[@D:5Q[@D?@C[)D? ;[)@@M'L)D?A[[)@@CTF )@@G@@[[@@[ ]@@D?M[@)D?N[[@D?O @@D:1N[)D?OC@C)@@"C^)@@"@@D:1[@@D:18L)#I0N[)D?OTG )@@G@@C@B)@@"C@D:1"^#@@@]@#)@@8L)#I6C^)D:!'O)@@B]@)@@BC^)D?N'K)@@#[@)@@#C^)D?NTH )@@G@@'K)@@^[@)@@^C^)D?M'O)@@C]@)@@C8LK#I,C@ @@@[@A@@@C@)D? G@)D:%H@)D? G@)D:_TI )@@G@@C[@D? T[@D:%G.@@@[H[@D? G[@D:_C[)D:6[[>@@@C@@D:!G/@__"/C@#JU*@@@@G/K@#J&TJ )@@G@@C/@__"G@@D:!R@0D:5Q@0@@KC[@D? ;[@@@M'L@@@I[[@@@^[@@@[ @^)@@ @#)@@8LK#JN[KD?&N[)D?$*4@T:7TM )@@G@@/K@T:7/K@],_AA0D:'9()D?P9%@D?R9:@D?T9:)D?VA@KD?XA@)D?YA@0D?ZA[@D?)A[KD?-TN )@@G@@A[)D?+A[0D?^[KD?&^[)D?$C@VK@@[@KD? C8FK@[[^@#I [^@#EO[^@#EKTO )@@G@@[^@#EQ[^@#D1C8FK@#[@@D:.C8FK@^[@@D://K@#DR/,0]U:@@@D?*N@0#K-/K@#K+@[#D?:TP )@@G@@*4@T?(/K@T?(/K@],_AA0D??/K@#KXC@:@@@C4I@@@C@KD?2[4Y@@@:8@@@1/K@#K7:8@@@0TQ )@@G@@/K@#K9:8@@@+/K@#K5C@@D?,QBF@@@'=@@@I/KF@@]C@@D?\/K@#K2C@@D?0/K@#K2C@@D?1TR )@@G@@/K@#K2[[@D!FA])D!GN8K@@E9?@D!DC@)D!H9*I)@@8KK#L@C@FK@[H8@@@[;G@@@=W8@@@ATS )@@G@@G8FK@@C@:K@#H8)@@[;G)@@=W8)@@AG8)D?3&;@@@[&;K@@[&;)@@[&;0@@[N@VK@]8KK#LMTT )@@G@@')HG@@@/,)#LY[-I)@@C@0D!I/KE@@@TV )@@G@@[5I@@@[1I@@@[!I@@@[(I@@@[>I@@@/,)#L$9*@D!V9*)D!X9(@D!Z^@0D!-A])D!+9?FK@@TW )@@G@@9?:K@[9*@D!J9*@D!<9*)D!LC@FK@]C8VK@#[@@D!(!8@]WK/K@#N@?8@@@[/K@#N@[@KD!%TX )@@G@@C8FK@^C8VK@ [@@D!?[@KD!:[^KD!$C8@@@K[W@D!&C8@@@W[C@D!$C8@D!J'=@@[ /^)#N]TY )@@G@@C@@D!T[@@D!*C8@D!<'=@@@#*4@D!&/K@#N^[^@D!$N@0D!(8K0#MRC@@D!%&;@@@[C@KD!:TZ )@@G@@C[X@@[C@0@@LC[H@@#G@0@@K[@0D!\C@!@@^?[W@@@C[W@@@,@?)@@/K@#NA8K0#M)[[KD\NUA )@@G@@/H@#N@C@!@@Q[@)D!,;G)@@=W8)@@W[@)D!3/^0#N@C@H@@O/G@#N@/@@#N@G@@D!*[@@D!*UB )@@G@@C@)D!\T@)D!3[@)D!!C@H@@][@@D!2/@@#N@ @@D!0 @@D!19!@D!Z9?@D!V9?)D!XN@0D!-UC )@@G@@R])D!+/KF@@CC@@D\1/K@#NBC@ID!3/K@#NBC@@D\2/K@#NBC@@D\3'=@@@I9?@D!V9?)D!XUD )@@G@@9!@D!ZR])D!+N@0D!-/KFK@A9*@D!V9*)D!X9(@D!Z^@0D!-A])D!+ @@D,=C@@D!0K8@@@[UE )@@G@@!@@D!,/,)#N%[@KD!0C@)D!1K8)@@[!@)D!2/K@#O([@0D!1C8VK@@&;K@@[G@@D!?&#@D!,UF )@@G@@N@KD!(M#H)@@9?@D!V9?)D!X9!@D!ZN@0D!-R])D!+/KF@@#C@@D!*[@@D,) @@D,> @@D,$UG )@@G@@C@KD!%&;K@@[C@!@@@C8@@@[[@)D,- @@D,&N@0D!(8K0#N68K0#N8/K@#O 8K0#N'/K@#O@UH )@@G@@G8)@@[%@!@@[/K@#OAG8@@@[/VH)@@8K0#N']^@D,>G8)@@[%@!@@[/K@#OAG8@@@[]^@D,$UI )@@G@@C@)@@GT@)D!,[C)D!$C@)D,&T@)D!,G@)D!?[^)D!$C8)@@C[W)D!&C@)D,-H8)@@[T@)D!3UJ )@@G@@G@)D,)[@)D!*G@@D,&[@@D,&C8@D!<'=@@@#*4@D!&/K@#O:*@@D,$/K@#O/K@#O 8K0#N'/K@#O@C@)D,)G@)D!![@)D!*C8@@@@C8K@@[/KE@@@C@@D\4UL )@@G@@/K@#O,C@@D\5*@@D,=/K@#R '=@@@I9?@D!V9?)D!X9!@D!ZR])D!+N@0D!-/KFK@[9*@D!VUM )@@G@@9*)D!X9(@D!Z^@0D!-A])D!+]^@D,=*@@D!0/,)#N%C@@D!1%@@D!2/K@#R^C@KD!:C@!@@MUN )@@G@@C80@@I%@.@@N'=@@@)G@)D!T[@)D!*[@)D,)C@KD!%&;K@@[C8@@@[C@.@@@[@0D,- @@D,&UO )@@G@@ @@D,> @@D,$N@0D!(8K0#PM8K0#PO/K@#P<8K0#PQ/K@#PXK80@@[%[H@@[/K@#P=G8@@@[UP )@@G@@/VH)@@C@0@@K8K0#PQ]^@D,>K80@@[%[H@@[/K@#P=G8@@@[C@0@@K]^@D,$C[K@@GC[@D,-UQ )@@G@@H9@@@[;D@@@[G[@D,)[[@D!*C@)D,-/=)#P1/)0#P\C[@D\6/K@#P3C[@D\7/K@#P3/)0#Q]UR )@@G@@C[@D\8[[@D!$C9@D\J[ @D\LC[@@@GT9@@@IG[@D\9[D@D\LC9@@@<[X@D!&C8@D!<'=@@@#US )@@G@@*4@D!&/K@#R] @@@@K/K@#Q#C9@@@[C@@D,&T8@@@IG8FK@@[^@D\LC@@D,&G@@@@L[@@D,&UT )@@G@@T9K@@I[DKD\LC8@@@H/[@#QLC@@D\L[@@D!$C8@@@C[W@D!&C8@D!<'=@@@#*4@D!&/K@#R@UU )@@G@@*@@D,$/K@#QZC8@@@[C@.)@[[@0D,-*@@D,>/K@#P<8K0#PQ/K@#PXC@KD!:'=@@@?[@H@@AUV )@@G@@C@H@@#G@H@@[C@)D\N[@!@@[[@:K@[H@@@@I[@H@@#[@FK@]C@!@@S)@:K@#[@.@@SC8@@@CUW )@@G@@[W@D!&C8@@@W[C@D!$C@@D!T[@@D!*[^KD!$C8@D!<'=@@@#*4@D!&/K@#Q"9?@D!V9?)D!XUX )@@G@@9!@D!ZR])D!+N@0D!-/KF@@AC@@D\5/K@#R C@@D\'/K@#R C@@D\;/K@#R C@@D\/'=@@@IUY )@@G@@9?@D!V9?)D!X9!@D!ZN@0D!-R])D!+/KFK@^C@FK@#H@FK@]G/@@@[[@@D\.G/@__"C/)@@[UZ )@@G@@H@:K@]C[@D0YG.@__"C[)D0YG.)__0C_)@@[R@K@@K[@@@[^[@)D0Z[[)D0)[#)D\"C@@D\"VA )@@G@@T/@@@IG/@@@^G@@D0)[@@D0-C/@@@[C/)@@AH@-@@[*@@@@I1@@@@I @@@@GC/)@@[D[[@@[VB )@@G@@*@@@@K0@@@@K @@@@I)@@@@I/=K#R;R@)D0QQ@)D0-N.K@@E @])@@8LK#R2*@[@@[/K@#R8VC )@@G@@C/@@@][@[@@HC@@D0+[@[@@I/K@#S#C@@D0ZH@@D\"]@@D\_/,0]T?@@[D0[@[UD0V@@KD\_VD )@@G@@'^@]3'O/K@@IG_)@@[8L@#RW @@D0@N@0#SD/K@#V)@[-D0VC/@__"G@@D\.C@)D0=G/)__0VE )@@G@@C[@D0")@D0M9*@D0M9?)D0>"*)D0>"))D0O9*)D0OC@@D0M[@#@@^C[@D0N[[#@@ C[)D0OVR )@@G@@[[<@@AC]@D0P[]#@@BC]<@@CG")@@[[]<@@C/K@#U8C@[@@IH@@D0S(@@@@G/K@#U8C@#@@CVS )@@G@@G/@@@[[@#@@CO/0@@IO/K@@[O/)@@I8L@#S'N@0#U"/K@#V)@]:D0VC/@__"G@@D\.C@)D0YVT )@@G@@G/)__"R@K@@I[@@@[^*@[@@[/K@#VVD@[@@D*@@@@G0@@@@G/K@#VG @[@@DD@[@@E*@@@@GVU )@@G@@0@@@@G/K@#VL @[@@ED@[@@F*@@@@G1@@@@G/K@#VQ @[@@FD@[@@G*@@@@G1@@@@G/K@#VVVV )@@G@@ @[@@GO/K@@I8L@#V N@0#VZ/K@#V)@]9D0VR]0D0W9!)D0$9,@D0(9,)D0:9\)D0!R@KD0\VW )@@G@@R@)D00R@0D01N[@D02N[KD03*4@T0T/K@T0T/K@],_AA0D0W[^@D0T9()D0$9%@D0(9%)D0:VX )@@G@@9:)D0!A@KD0\A@)D00A@0D01^[@D02^[KD03/KH@@@C8@@@C/\K#V!C8FK@@[@@D0YC8FK@[VY )@@G@@[@@D0=C8FK@^[^@#S/C@VK@ [@KD0+/K@#RGC8@@@]/\K#V!C8FK@@[@@D0C@@D3N @E@@@WH )@@G@@C@VK@]%@KD04/K@#XHH8K@@[[@KD04/K@#XHA])D129*@D139*)D159(@D17^@0D19C@FK@@WI )@@G@@/G@#Y,/@@#Y,:@@D04/K@#X/!@@D04/K@#Y,T8@@@UG8@D0VR])@@G(@E@@@/K@#Y,C@'@@OWJ )@@G@@C@FK@[/@@#Y6/G@#Y6C@VK@]/@K#Y6/GK#Y6?@K@@G/K@#Y6:@U@@S/K@#YI!@U@@S/K@#Y6WK )@@G@@H@K@@GG8K@@[T@Z@@N[CU@@^C8VK@#[^U@@^/=@#YWC8K@@<[WU@@#C@U@@^[@KD1;C@KD3OWL )@@G@@[@U@@^/K@#YYC8K@@K[WU@@#C@U@@KG@Z@@MH8@@@[;C@@@[G@K@@G[@U@@ C8E@@@'=@@@#WM )@@G@@*4E@@#/K@#Y8R])D129?@D139?)D159!@D17N@0D19/KF@@AC@@D3P'=@@@IR])D129?@D13WN )@@G@@9?)D159!@D17N@0D19/KFK@^C@@D3Q/K@#Y\C@@D3R/K@#Y\A])D129*@D139*)D159(@D17WO )@@G@@^@0D19C@FK@@/@@#Z0/G@#Z0:@@D04/K@#ZA!@@D04/K@#Z0T8@@@UG8@D0VR])@@G(@E@@@WP )@@G@@/K@#Z0C@'@@OC8FK@#[^E@@MC@J@@OG@E@@KC@VK@[H8K@@[T@U@@Q;GK@@=W8K@@WG@@@@HWQ )@@G@@[@E@@ C@VK@]H@VK@[G8K@@[[@U@@ST@U@@Q[CU@@^[CU@@MC8VK@#[^U@@^C@U@@QT@U@@RWR )@@G@@;GK@@=W8K@@W[^U@@P CE@@PC8K@@K[WU@@#C@Z@@][@U@@TR])D129?@D139?)D159!@D17WS )@@G@@N@0D19/KF@@AC@@D3S'=@@@IR])D129?@D139?)D159!@D17N@0D19/KFK@^A])D129*@D13WT )@@G@@9*)D159(@D17^@0D19C@FK@@/@@#)1/G@#)1:@@D04/K@#)^!@@D04/K@#)1T8@@@UG8@D0VWU )@@G@@R])@@G(@E@@@/K@#)1C@E@@T/@@#):H8@@@[[@E@@TC@'@@OC8:K@[&;)@@[(CE@@P/K@#)-WV )@@G@@CCE@@PL@E@@QE@K@@HG^U@@M&#U@@QH8@@@[[CE@@PN@U@@SM#!)@@R])D129?@D139?)D15WW )@@G@@9!@D17N@0D19/KF@@ C8E@@@'=@@@#*4E@@#/K@#)9C@E@@ G^E@@P[@E@@ C@E@@Q[CE@@PWX )@@G@@/K@#)MR])D129?@D139?)D159!@D17N@0D19/KFK@]C@@D3T'=@@@IR])D129?@D139?)D15WY )@@G@@9!@D17N@0D19/KFK@#9?E@@@9*@D1_C4E@@#[@@D2D/,0#[L@@@D1_@@@D2D@@@D2E#-[#-[WZ )@@G@@/K@#)3A])D129*@D139*)D159(@D17^@0D19C@FK@@/@@#-)/G@#-):@@D04/K@#-J!@@D04XA )@@G@@/K@#-)T8@@@UG8@D0VR])@@G(@E@@@/K@#-) @E@@@C@FK@@%@@D04/K@#-UH8@@@[[@@D04XB )@@G@@R])D129?@D139?)D159!@D17N@0D19/KF@@#C@@D3U'=@@@IR])D129?@D139?)D159!@D17XC )@@G@@N@0D19/KFK@[9?FK@@9/@D3"/K@#-!C@@D4@[@FK@@9*@D3V9?FK@[9/@D3"/K@#-3C@@D4[XD )@@G@@[@FK@[9*@D3X9?FK@]9*@D3-C8@D3V'=@@[ /^)#-/C@@D3>[@FK@#/KF@@A/KI#-//K@#+]XE )@@G@@/K@#+^/K@#+A/KFK@^/K@#+CC@@D4]/K@#+DC@@D4#/K@#+DC@@D4^/K@#+DC@@D4 '=@@@IXF )@@G@@/KFK@^C@@D4M[@@D4A;O@@@=W/@@@A[@@D4BT/@@@AH@@D4M(@@@@G/K@#+RC/@@@[G@@D4BXG )@@G@@[@@D4BC/@__"G@@D4BR@KD4EQ@KD4L[@@@[^C@@D4F[@[)@@8L@#+WC/)@@[[@)D4DN@0#+R@[AD4VC/@@@[G@@D4Y[@@D4QC@@D4ZH@@D4Q*@@@@G1@@@@G/K@#=KC8)@@]N@0#=JXQ )@@G@@/K@#>N@[FD4VN@0#=M/K@#>R@[GD4VC@@D4Q[@@@@@N@0#=R/K@#>R@[KD4VC@@D4ZH@@D4)XR )@@G@@*@@@@G1@@@@G/K@#=-C8)@@]N@0#=)/K@#>N@[OD4VC@@D4)G/@__"*@@@@G1@@@@G/K@#=%XS )@@G@@C8)@@]N@0#=(/K@#>N@[QD4VC@@D4)[@@D4QN@0#=,/K@#>R@[SD4VN8K#>A^@KD4RC@@D4ZXT )@@G@@H@@D4Q*@@@@G1@@@@G/K@#='C8)@@]N@0#=9/K@#>N@[XD4VR@KD4-N8L@@@^^K#="/,0 F1XU )@@G@@@@@#="@@@D4Q@@@@@@@[YD4VC/@@@[G@@D4Q[@@D4Q/K@T4RN@0#>C/K@#>R@[-D4VN8K#>GXV )@@G@@^@KD4R/K@#=1C@@@@@H@@D4S(@@@@G/K@#=1N@0#>M/K@#>R@[*D4V!^)D4T/K@]\AH8)@@[XW )@@G@@[^)D4TR]0D4WR@KD4+*4@T4T/K@T4T/K@],_AA0D4W[^@D4TA@KD4+/KH@@@C8@@@^/\K#>WXX )@@G@@C8FK@@[@@D4-C@VK@[[@KD4Z/K@#<_C8@@@#/\K#>WC@VK@@[@KD4Y/K@#=^C8@@@]/\K#>WXY )@@G@@C8FK@@[^@#=O/K@#=NC8@@@#/\K#>WC@VK@@[@KD4)/K@#=SC8@@@#/\K#>WC8FK@@[^@#>@XZ )@@G@@[^@#>G/K@#=\C8@@@#/\K#>WC8FK@@[^@#>@[^@#>G/K@#>D9?FK@@9*FK@[C8FK@['=@@[GYA )@@G@@/KF@@#/,0B[O@@@@@@/K@#&K/K@#&S@[ D4> @@@@@N@0#&J/K@#&)@[BD4>C/@@@[[@@@@@YB )@@G@@C4)@@@)8)@@)[40@@@N@0#&R/K@#&)@[ED4>C8)@@#N@0#&V/K@#&W@[FD4>!^)D4/@@#*7:8@@@ /K@#(S%8@@@^[>KD4/ @@D5GRB@D4'AB@D5FYP )@@G@@P;K@@[AJKD499?@D5FRB:@@@&;)@@[NKKD4;DG0D4;:80@@A8KK#(#9?/)@@')HD4.A#")@@YQ )@@G@@8KK#(#OJKD4;/CK#(HO;K@@ADG0D4;%80@@AP;@@@[9*@D5FC[KD4/[[VK@[/[V@@^/KF@@]YR )@@G@@[5KD4//K@#(I[-KD4//K@#(I[!KD4//K@#(IC@@@@HG@@D5LH8@@@[[@@D5M[@KD5JA]0D5IYS )@@G@@CKKD49[@KD5OCGKD49[@KD5PC^KD4'[@K#((/,0#]\@@@D5K@@@D5L@@@D5M@@@D5N@@@@@@YT )@@G@@@@@D5P@@@D5O______C9K@@VR]0D5IC@KD5J/K@#*7 G@D49/KF@@[ G@D49 4@D5H @@D4/YU )@@G@@ @@D5K @@D5L @@D5NC9K@@V9?FK@@9*@D5Q9*@D5#R;@D5Q'=@@[GR7@D5W/@@#%X!8@@@KYV )@@G@@/K@#%XRBV@@[ABKD4'R#VK@]AFKD4'R#;K@#AN0D49;O0@@=W80@@AAN0D4;H9@@@A[H@D4;YW )@@G@@C[FK@^/[@#%R/\)#*C/@@#%Q:8@@@[/K@#%J%8@@@^[>KD4/8^@#%J[5KD5HC[KD4/[[VK@ YX )@@G@@ @@D4//[V@@C/KF@@A[-KD4//K@#%SC@@D5!G/@__"C@)D5,G/)__"[@@D5\[@)D50C@FK@]YY )@@G@@[@@D5ZH/@@@[[@@D5)G/@__"C@)D5ZG/)__./C)#%\*@@@@I/K@#:C@#@@@[@@D5&"^@D5+*@@@@G0@@@@G/K@#:FC@@D5>[@@D5/K@#:&@[-D5%R]0D5:9\)D51R@KD53R@)D54R@0D55N[@D56N[KD57*4@T5*ZE )@@G@@/K@T5*/K@],_AA0D5:9:)D51A@KD53A@)D54A@0D55^[@D56^[KD57C8FK@@[@@D5!C8FK@[ZF )@@G@@[@@D5,/K@#%ZR@KD8>A@KD8WC@@D8=H@@D8O*@@@@G/K@#? N@0#?^/K@#\T@[JD8TC/@@@[ZG )@@G@@C@)@@@H@)D8P(@@@@I @@@@GC/)@@[C.@@@[H[@@@@(@@@@K @@@@I+@@@@I/=K#! D@@D8=ZH )@@G@@*@@@@G1@@@@G/K@#?,/,0]T?@@[D6[@[OD8TN.@@@AC8@D5;'^K]368L@#?TR@KD8QN.@@@[ZI )@@G@@C8[(8-'^K]368L@#?YC8@D8='^K]36R@KD8WC8[D5;'^K]36N.@@@^C8@D5;'^K]368L@#?$ZJ )@@G@@'^@]3'N@0#?!/K@#\T@[>D8T/,0]T?@@[D6G@[&D8TR@KD8>N.@@@AC8@D5;'^K]368L@#?3ZK )@@G@@R@)D8QN.@@@[C8](8-'^K]368L@#?8C8[D5;'^K]36N.@@@AC8@D5;'^K]368L@#?"'^@]3'ZL )@@G@@N@0#!^/K@#\T@[6D8T*@@D8&/K@#,Q/,0]T?@@[D6P@[9D8TN.@@@AC8@D5;'^K]368L@#!FZM )@@G@@R@)D8QN.@@@[C8](8-'^K]368L@#!KN.@@@CC8@D5;'^K]368L@#!O'^@]3'C@@D58H@@D8>ZN )@@G@@*@@@@G/K@#!(/,0]T?@@[D6X@]ED8T@@KD8*R@KD8QN.@@@[C8[(8-'^K]368L@#!+'^@]3'ZO )@@G@@N@0#!*/K@#\T@]MD8TR@)D8>/,0]T?@@[D6%@]ND8T@@KD8*@@MD5;R@KD8QN.@@@[C8[(8ZZP )@@G@@'^K]368L@#!1R@)D8QN.@@@[C8](8-'^K]368L@#!6'^@]3'C@@D59H@@D8>(@@@@G/K@#,EZQ )@@G@@/,0]T?@@[D6'@]+D8TR@KD8QN.@@@[C8[(8Z'^K]368L@#,#'^@]3'N@0#,D/K@#\T@](D8TZR )@@G@@/,0]T?@@[D7]@]%D8TR@)D8QN.@@@[C8](8Z'^K]368L@#,J'^@]3'N@0#,P/K@#\T@]1D8TZS )@@G@@C@@D8$/@@#,>/C@#,?/,0]T?@@[D7Q@]5D8TR@KD8QN.@@@[C8[(8Z'^K]368L@#,Y'^@]3'ZT )@@G@@N@0#,=/K@#\T@]/D8T/,0]T?@@[D7>@].D8T'^@]3'N@0#,:/K@#\T@#@D8TRA0D8$$'0@@ ZU )@@G@@8];#,0'^@],!@#[D8T/K@#,T/K@#,5/K@#\C/K@#,T/,0]T?@@[D7,@#]D8T'^@]3'R@)D8>ZV )@@G@@/,0]T?@@[D78@# D8T@@MD5;@@KD8*R@KD8QN.@@@[C8[(8Z'^K]368L@#\['^@]3'N@0#\BZW )@@G@@/K@#\T@#ID8T/,0]T?@@[D7,@#JD8T'^@]3'/,0]T?@@[D8^@#LD8T@@KD8*R@)D8QN.@@@[ZX )@@G@@C8](8Z'^K]368L@#\M'^@]3'N@0#\S/K@#\T@#TD8TR]0D8UR@KD8XR@)D8YN[@D8Z*4@T8RZY )@@G@@/K@T8R/K@],_AA0D8UA@KD8XA@)D8Y^[@D8ZC8FK@@[^@#?G[^@#?A/K@#:/ @@D9[R@KE[NZZ )@@G@@R8:K@@ @@D8* @@D8$ @@D8&C@@D8"[@@D8>C@)E[O[@)D8=C[[@@@[[@D8+C[-@@[[[)D8@@@D9]@@@D9#@@@D9^@[)E[FD@@D8>*@@@@G1@@@@G/K@#4>C/@@@[AC )@@G@@G@@D8>[@@D8>C_)@@EN.@@@N[#)D9 /,0]T&@@[D8(@@@E@Z@[$E[F@@KD9 '^@]3'/,0 FUAD )@@G@@@@@D8(@@@D9A@@@D9B@@@D9B@@@D9B@[:E[F(@@D9A/K@#0>G_)@@[8L@#0M/K@#4>C@@D9 AE )@@G@@[@@D9[/,0#&]@@@@@@@@@D82@[2E[F/,0 F1@@@D8(@@@E@_@@@D9C@[3E[F/,0 GC@@@D8?AF )@@G@@@@@E[@@@@D9C@[4E[F/,0 F1@@@D8(@@@E[[@@@D9C@[5E[F/,0 GC@@@D8?@@@E[]@@@D9CAG )@@G@@@[6E[F/,0 GC@@@D8?@@@E[#@@@E@)@[7E[FC/@@@C[@@D9DC_)@@TN.@@@F[#)D9 /,0 F1AH )@@G@@@@@D82@@@D9 @@@D9C@[/E[FC@@D9CH@@E[^(@@@@G/K@#1UC/@@@[G@@D9D[@@D9D/,0 GCAI )@@G@@@@@D8?@@@D9D@@@D9C@]@E[FG_)@@[8L@#1CC/@@@[G@@D9D[@@D9D/,0 GC@@@D8?@@@D9DAJ )@@G@@@@@E@+@]^E[FC_)@@HN.@@@F[#)D9 /,0 F1@@@D82@@@D9 @@@D9C@]CE[FC@@D9CH@@E[^AK )@@G@@(@@@@G/K@#18C/@@@[G@@D9D[@@D9D/,0 GC@@@D8?@@@D9D@@@D9C@]GE[FG_)@@[8L@#1&AL )@@G@@C/@@@[G@@D9D[@@E[P/,0 GC@@@D8?@@@E[P@@@E@=@]JE[FC/@@@]G@@D9D[@@E[P/,0 GCAM )@@G@@@@@D8?@@@E[P@@@E@&@]KE[FC/@@@#G@@D9D[@@E[P/,0 GC@@@D8?@@@E[P@@@E@*@]LE[FAN )@@G@@/,0]B_@@@E[@@@@D8?@]ME[FC@@D8>H@@D9@*@@@@G/K@#2Y/,0[1]@@@D9[@@@D8.@]OE[FAO )@@G@@/,0#71@]PE[FN@0#2+/K@#4%@]QE[FC@@D8&/)@#2*N@0#2$/K@#4%@]XE[FC/@__"G@@E[RAP )@@G@@C@)D8>H@)D8"*@@@@I/K@#2'[@@E[P/,0]T<@@[@@@@])E[FR@KE[ Q@KE[QN[@E[PC/[)@@AQ )@@G@@'^K]368L@#25'^@]3'/K@#3XR@)E[AN.@@@HC@@E[^[@]%@08L@#2//,0]T&@@[E@1@@@@@@AR )@@G@@@]?E[FC/@__"G@@E[RR@KE[ Q@KE[Q[@@@[^C/[)@@'^K]368L@#3C'^@]3'R/)@@IN.@@@HAS )@@G@@A@)D9 C@]E@0H@@E[^*@@@@G/K@#3PP/)@@[8L@#3IC/@@@[G@@D9 [@@D9E/,0#7<@@@D8$AT )@@G@@@];E[FC@@D8$/^@#4>C/@@@[G@@D8*[@@D8*N@0#3+/K@#4%@#@E[FC@@D8>H@@D8"*@@@@GAU )@@G@@/K@#3%N@0#3(/K@#4%@#DE[FC@@D8&/=@#4]/,0#7%@@@D8$@#GE[FC@@D8$/^@#4>C@)D8>AV )@@G@@H@)D8_(@@@@I/K@#3'/,0[1]@@@D9[@@@D8.@#NE[F/K@#4]/,0[1]@@@D9[@@@D9F@@@D9FAW )@@G@@@@@D9H@@@E[B@@@D9G@#PE[F*@@D9[/K@#4BN@0#4A/K@#4%@#RE[F/,0 DV/K@#4>@@@D9IAX )@@G@@@@@E@_@@@D9B@@@D9B@@@D9B@#SE[F/,0]T&@@[D8?@@@E@%@#TE[F@@KD8(@@KD9I'^@]3'AY )@@G@@/,0]B_@@@E[@@@@D8?@#YE[F/,0 DV/K@#4>@@@D9I@@@E[C@@@D9B@@@D9B@@@D9B@#ZE[FAZ )@@G@@N@0#4=/K@#4%@#)E[FC/@@@[[@@D8&N@0#4(/K@#4%@#+E[FR]0E[G9!)E[S9,@E[U9\)E[WBA )@@G@@R@KE[YR@)E[ZN[@E[)*4@U[D/K@U[D/K@],_AA0E[G[^@E[D9()E[S9%@E[U9:)E[WA@KE[YBB )@@G@@A@)E[Z^[@E[)/KH@@@C8@@@^/\K#44/K@#74C8@@@^/\K#44/K@#7/C8@@@[/\K#44/K@#8^BC )@@G@@ @@@@@D@@E@Q/=@#5F @@E@Q @@E@T @@E@0C/@@@[H@@D9E]0@E@0C@)E@T[?)E@0]@@E@TBD )@@G@@C/)@@[[@)D9CC@@D9EH@@D9CR@KD9C[@@@[^A@KD9 C@@E@VH@@E@U/C@#5Y*@@@@G/K@#5(BE )@@G@@R@)E@UC@[E@\[@]D9JC/)@@[G@)E@U[@)E@UO/K@@[8L@#5SN@0#5*/K@#7K@^AE[KC@@E@WBF )@@G@@H@@E@L(@@@@G/K@#5'/,0[1]@@@D9[@@@D9G@^DE[KC/@@#)H@@E@X(@@@@G/K@#5'D@@E@XBG )@@G@@[@@@@@N@0#59/K@#7K@^HE[KR@)E@YN8MD9J^^K#6[/,0[1]@@@D9[@@@E@K@@@E[H@@@#6[BH )@@G@@@@@E@X@^IE[KC/@@@[G@@E@X/@@#6F/G@#55C@@E@L[@@E@W/K@#6HC@@E@M[@@E@WC/@@B@BI )@@G@@H@@E@U*@@@@G1@@@@G/K@#6OC/@@@[[@@E@UC@@E@U[@@E@YC/)@E)H@)E@V[@)E@VC[@E@SBJ )@@G@@/>@#6&C[)D9 [[)D9C/K@#5O @@@@@C/@@@[[@@E@SC@)E@VH@)E@U/C)#6&*@@@@I/K@#5(BK )@@G@@R@KE@UC@@E@P[@[D9JR@)E@YC@)E@T[?-D9J @@E@TN8MD9J^^K#63/,0[1]@@@D9[@@@E@KBL )@@G@@@@@E[H@@@#63@@@E@X@@@D9G@^&E[KC/@@#)H@@E@X*@@@@G/K@#55N@0#6./K@#7K@^(E[KBM )@@G@@C@@E@L[@@E@WC/)@@[[@)E@YC.@@#)[[@E@VC[)E@N[[)D9KC]@E@O[]@D9LC")@@#[])E@UBN )@@G@@[@)E@Q @@E@R @@E@SN@0#7J/K@#7K@^4E[KR]0E[L9!)E[+9,@E[=9,)E[&R@KE[*R@)E[(BO )@@G@@N[@E[%*4@U[I/K@U[I/K@],_AA0E[L[^@E[I9()E[+9%@E[=9%)E[&A@KE[*A@)E[(^[@E[%BP )@@G@@/KH@@@C8@@@]/\K#7UC8FK@@[^@#5A[^@#56[^@#6Y/K@#5AC8@@@]/\K#7UC8FK@@[^@#5ABQ )@@G@@[^@#56[^@#6Y/K@#6YC8@@@[/\K#7U/K@#6"C8FK@@[^@#0#[^@#0*C8FK@[[@@E[NC@VK@]BR )@@G@@[@KE[O/K@#\*C@VK@@[@KE[RC8FK@[[@@E[QC8FK@][^@#3[[^@#20/K@#2[^@#8V[^@#8JC8FK@][^@#9>[^@#8U[^@#9+CF )@@G@@[^@#8IC8FK@#[^@#8W[^@#8LC8FK@^[^@#98[^@#9_[^@#'#C8FK@ [^@#8M[^@#8X/K@#8 CG )@@G@@R8VK@ C@[@@@[@[@@@R8VK@AC@-@@@[@-@@@/,0 5<@[CE]N/,0 53@@@E]C@[DE]NC/@@@]CH )@@G@@H@@E]C(@@@@G/K@#;.R@KE]QC@@E]QG/@__.(@[@@@/K@#;Z(@@@@@/K@#;N[@@E]R/,0]T?CI )@@G@@@@[E]G@[KE]NR@KE]KQ@KE]RN.@@@AC8[)@]'^K]368L@#;FC8@E]B'^K]36@@K@@@'^@]3'CJ )@@G@@/K@#;Z/,0]T?@@[E]G@[TE]NC[)E]QG.)__.R@KE]KQ@K@@MN.@@@AC8[)@]'^K]368L@#;VCK )@@G@@'^@]3'R@KE]S(@[@@@/K@#;,/,0]T?@@[E]G@[+E]NC[)E]SG.)__.R@KE]KQ@K@@MN.@@@ACL )@@G@@C8[)@]'^)]368L@#;%'^@]3'R@KE]T(@[@@@/K@#;./,0]T?@@[E]G@[%E]NC[)E]TG.)__.CM )@@G@@R@KE]KQ@K@@MN.@@@AC8[)@]'^)]368L@#;9'^@]3'/,0]T?@@[E]J@[2E]N'^@]3'C@@E]UCN )@@G@@H@@E]VR@KE]WC@)E]WG/)__/G@)E]VC[[@@@G.@.<0(@@@@K/K@#/R[@@E]R[@)E]X/,0]T?CO )@@G@@@@[@@@@[7E]NR@KE]KQ@KE]XN[@E]RC8[)@]'^K]368L@#/N'^@]3'R@KE]Y(@[@@@/K@#/\CP )@@G@@/,0]T?@@[@@@@[_E]NC[)E]UH[)E]VC]@E]YG"@__/G.)@@[;[)@@N[@E]&N[KE]$*4@U]LCS )@@G@@/K@U]L/K@],_AA0E]O[^@E]L9()E]Z9%@E]-9%)E]^[@E]&^[KE]$/KH@@@C8@@@FCT )@@G@@/\K#.@C8FK@@[@@E]WC8FK@[[^@#;][^@#;KC8FK@][@@E]QC8FK@#[@@E]SC8FK@^[@@E]TCU )@@G@@C8FK@ [^@#/VC8FK@A[^@#/IC8FK@B[@@E]YC@VK@C[@KE]VC@VK@D[@KE]U/K@#',C8@@@FCV )@@G@@/\K#.@C8FK@@[@@E]WC8FK@[[^@#;][^@#;KC8FK@][@@E]QC8FK@#[@@E]SC8FK@^[@@E]TCW )@@G@@C8FK@ [^@#/VC8FK@A[^@#/IC8FK@B[@@E]YC@VK@C[@KE]VC@VK@D[@KE]U/K@#;.9?@E#+CX )@@G@@9*@E]*9*@E]69*@E]99*@E]_C8@E]*'=@@@U*4@E],/K@#"CC@@E#='=@@@J0@@@@G/KFK@[CY )@@G@@C8@E]*'=@@@UC8@@@RC8K@@Z,4@E],/KFK@[C8@E]9'=@@@#(4@E]//K@#"OC4@E]/%8@@@ CZ )@@G@@/KFK@[ @@E# C@@E# G8@@@][@@E# 9?VK@@9*WE#^C8@E]_'=@@@#*4@E#]/KFK@[/KF@@#DA )@@G@@9?@E#>/K@#.'9?@E#+9*@E]*9*@E]9/\0#"(9?@E#>9*@E]*9*@E]9/\0#"(/KF@@#C8@E]*DB )@@G@@'=@@@U(4@E],/KJ@@@C8@E]9'=@@@#*4@E]//KFK@[C@@E# ;C@@@[H8@@@[N@K@@GC@@E#$DC )@@G@@9?VK@@9/W)@]8KK#"79/W@@@/KJ@@@/KFK@[C@@F2'/=@#_HR@KF26N8LF5$^^K#_B/,0^]6DD )@@G@@@@@@@@@@@@@@@@@F24@@@F25@@@F26@@@#_B@@@E^Q@[FE^)N@0#_G/K@#_1@[GE^)R@KF26DE )@@G@@R@)F2/N8MF5$^^K#_RN8MF5$^^K#_QN8LF5$^^K#_V/,0^]6@@@#_Q@@@#_R@@@F24@@@F25DF )@@G@@@@@F26@@@#_V@@@E^S@[HE^)R@)F2.N8MF5$^^K#_$/,0^]6@@@@@@@@@@@@@@@F2;@@@F25DG )@@G@@@@@F2.@@@#_$@@@E^U@[IE^)N@0#_?/K@#_1@[JE^)/K@#""N@0#_0/K@#_1@[ME^)R]0E^-DH )@@G@@R@KE^%R@)E^:*4@U^Y/K@U^Y/K@],_AA0E^-[^@E^YA@KE^%A@)E^:/KH@@@C8@@@]/\K#_7DI )@@G@@/K@^#HC8@@@]/\K#_7/K@^#NC@@E^![@@E^EC@)E^,T@)E^\[@)E^FC[@E^0G.@__/C[)E^1DJ )@@G@@G.)__/C]@E^2G"@__/H/)@@[;O)@@=W/)@@EH/)__"[@)E^G[[@E^3/,0 C)@@@E^G@[)E^$DK )@@G@@C/@@@[[@@E^H[@@E^IC/)__"G@)E^GC_)@@[[@)@[^[[)E^4[]@E^5[#)E^JC/@@@]G@@E^HDL )@@G@@[@@E^6G@@E^5C@)E^6G@)E^4[@@E^6[@)E^7C/@@@DG@@E^H[@@E^KC@@E^FH@@E^K*@@@@GDM )@@G@@1@@@@G/K@^@2C@@E^F[@@E^KC@@E^I[@@E^LR@KE^LO@KE^3C@-@@][@)E#%G/@@@[[@@E^LDN )@@G@@C.@@@[[[@E^MR@KE^6R/)@@]R@0E^7N.K@@EA@)E^NR[@E^LO[@E^3A[@E^8R[@E^8C4^@@]DO )@@G@@[@@E^OG/@__Z(@@@@G/K@^]]C/@@@ H@@E^O*@@@@G/K@^[LR[@E^8C0^@@][@@E^OC/@@@GDP )@@G@@H@@E^O(@@@@G/K@^[3C/@@@AH@@E^O*@@@@G/K@^]/K@U^>/K@],_AA0E^*9()E^99%@E^;9:)E^.A@KE^_A@)E @A@0E [A[@E ]DY )@@G@@^[@E #^[KE ^C8FK@@[@@E^2C8FK@[[@@E^1C@VK@][@KE^\C@VK@#[@KE^,C8FK@ [@@E^0DZ )@@G@@C@VK@A[@KE^!/K@^@]C8FK@@[^@#_<[^@#_+[^@#_#[^@#_]/K@#"/C8FK@@[^@#_<[^@#_+EA )@@G@@[^@#_#[^@#_]/K@#_!C/@@@[[@@@@@ @@@@@/,0#K>@@@@@@@@@@@@@@@E @[BE L(@@E AEB )@@G@@/K@^#*C/@@@[[@@@@@N@0^#$/K@^#2@[FE L*@@E /K@^#!N@0^#?/K@^#2@[HE LC/@@@#EC )@@G@@[@@@@@N@0^#1/K@^#2@[JE LR]0E M*4@U J/K@U J/K@],_AA0E MC8FK@@[^@^#XC8FK@[ED )@@G@@[^@^#YC8FK@][^@^#=[^@^#VC8FK@#[^@^#,[^@^#U/K@^#TC@@F3GH@@E \*@@@@G/K@^^LEE )@@G@@/,0 C)@@@EAC@[KEAS/,0]T?@@[E 9@[LEAS@@KF3G'^@]3'N@0^^K/K@^C.@[PEASC@@F3GEF )@@G@@[@@E \C/)@@[H@)@@@[@)EAV;O)@@=W/)@@AG/)__"]@)E 2C[@EAV;P@@@=W.@@[=G.@__"EG )@@G@@][@E 3 @@E 4C/@@@[H@@E 3*@@@@G1@@@@G/K@^^$C/@@@[[@@E 4C/@@@EH@@@@@*@@@@GEH )@@G@@1@@@@G/K@^^\C/@@@[G@@E 4[@@E 4C@@E 3T@@EAWG/@@@]G@@E 4[@@EAV/,0 C)@@@EAVEI )@@G@@@[YEASC/@@@]H@@E 4*@@@@G/K@^ ]/,0#K;@@@E O@@@EAD@@@EAD@@@EAE@@@EAC@[)EASEJ )@@G@@R@KEAFN.@@@PC@@EAG[@[% P8L@^ ^C@)@@@;O)@@=W/)@@EC[@@@IG.@__51@@@@KC/)@@EEK )@@G@@[@)E 6(@@E 6/K@^ADG/)__"C_)@@[[@)@[^[@)EAV[#)E 5C@@E 5T/@@@EG/@@@N[@@EAXEL )@@G@@/,0 C\@@@E O@@@E 5@@@E Q@@@EAX@@@EAD@[?EASG_)@@[8L@^ PC/@@@[H@@E 4*@@@@GEM )@@G@@/K@^ ?/,0 GC@@@E Q@@@EAD@@@EA]@[\EAS/,0#K$@@@E Q@[0EASC_)@@[N[@EAV[#)E 5EN )@@G@@C@@E 5T/@@@EG/@@@E[@@EAV/,0 C\@@@E O@@@EAD@@@E Q@@@EAV@@@EAH@[4EASG_)@@[EO )@@G@@8L@^ 1C@@E 6T/@@@EH@@@@@(@@@@G/K@^ASC/@@[=H@@@@@/C@^AD*@@@@G/K@^ASC@@E 6EP )@@G@@T/@@@E[@@EAVG/@@@OC@)EAVH@)@@@]@)EAV[@@EAX/,0 C\@@@E O@@@EAD@@@E Q@@@EAXEQ )@@G@@@@@EAV@['EAS/,0 C\@@@E 1@@@EAD@@@E Q@@@EAI@@@EAJ@[;EAS*@@E 4/K@^A&/,0 GCER )@@G@@@@@E Q@@@EAD@@@EA^@[.EAS/,0#K$@@@E Q@["EASC/@@[=C@)@@GH@)@@@1@@@@IC@@@@@ES )@@G@@C/)__"G@)EAWR@KEAFN.@@@P[@@EAV[@)EAXC@@EAG[@[% P8L@^A4/,0 C\@@@E ?@@@EADET )@@G@@@@@E Q@@@EAC@@@EAK@]^EAS/,0 GC@@@E Q@@@EAL@@@EAA@] EASC/@@@[[@@E 7C_0@@[EU )@@G@@N[@EAX[#0E 5C/@@@[H@@E 5*[@@@@*SDFF*@^@@@@-572 INIT1 31.0@A@@@@EV )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @C@@@@. RESERVE EW )@@G@@THE LOG TAPE ON ALL TAPE BOOTS@A@@@@. (CODE COUTESY OF UOM) EX )@@G@@@[@@@@. @E@@@@ TZ,S3 SPUACUFLG . RECOVERY BOOEY )@@G@@T? @D@@@@ J DOWNNN . YES,DOWNNN @B@@@@EZ )@@G@@ EXGET 31 . @B@@@@ DL A4,(FA )@@G@@'RV @@#7/5 ') . @B@@@@ DS A4,1,A0 . @B@@@@FB )@@G@@ L,H1 A1,CHNWRD . @B@@@@ S,H1 A0,CFC )@@G@@HNWRD . @B@@@@ S A1,0,A0 . @A@@@@FD )@@G@@. <<< END NYU LOCAL CODE <<<___E0)C[@^S7*[@@@@*SDFF*@^@@_@-77 FE )@@G@@ RMPB 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. FF )@@G@@@ @@@@. PROVISIONS FOR REMOTE 1130 @[@@@@. @ @@@@ L FG )@@G@@ A2,PKTAD @A@@@@ L A2,ELECHR,A2 @ @@@@ TNFH )@@G@@E,U A2,ELEVID @ @@@@ L,U A1,ELESIZ @A@@@@. <<< FI )@@G@@ END NYU LOCAL CODE <<<___AS0@[_@@@ 0)^@)@C_@@@^@)^@)^@)^@)^@)D))^@)^@)FJ )@@G@@^@)^@)CC2 -BD1#E-GE@)^@)@E_@@@^@)^@)^@)^@)^@)D)?D@1^@)^@)^@)CC2 )2 -[AK)FK )@@G@@^[KDTOCD^^@) 0)^@)@B_@@@^@)^@)^@)^@)^@)D)?E*)^@)*[@@@@*SDFF*@^@@@@-26,26FL )@@G@@ SYMACT 31.0@]@@@@. NYU*** @E@@@@ TLE,U A1,LWAIT*4FM )@@G@@ . MAX TWAIT VALUE ___D([F@)E-RCDDE))E1[D-PC*)^@)___@@WK@@^^XFN )@@G@@*[@@@@*SDFF*@^@@@@-152 SYMBIO 31.0@A@@@@. >>> BEGIN NYU LOFO )@@G@@CAL CODE >>>@B@@@@ TNZ CNTRLT . @G@@@@ FP )@@G@@ XER3 0101 . @A@@@@FQ )@@G@@. <<< END NYU LOCAL CODE <<<@^@@@@-321 SYMBIO 31.0@A@@@@FR )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@B@@@@ TNZ,U 0,A3 FS )@@G@@ . @B@@@@ XER3 0101 . @A@@@@. FT )@@G@@ <<< END NYU LOCAL CODE <<<@^@@@@-483 SYMBIO 31.0@A@@@@. FU )@@G@@ >>> BEGIN NYU LOCAL CODE >>>@B@@@@ TNZ,U 0,A3 FV )@@G@@ . @B@@@@ XER3 0101 . @A@@@@. <<< FW )@@G@@ END NYU LOCAL CODE <<<@^@@@@-573 SYMBIO 31.0@A@@@@. >>> FX )@@G@@BEGIN NYU LOCAL CODE >>>@B@@@@ TNZ,U 0,A3 . FY )@@G@@@B@@@@ XER3 0101 . @A@@@@. <<< END NFZ )@@G@@YU LOCAL CODE <<<@^@@@@-719 SYMBIO 31.0@A@@@@. >>> BEGIN GA )@@G@@NYU LOCAL CODE >>>@B@@@@ TNZ,U 0,A3 . @B@@@@GB )@@G@@ XER3 0101 . @A@@@@. <<< END NYU LOCGC )@@G@@AL CODE <<<___C- ^@"B0"@F@@_@^@)^@)^@)^@)^@)E-IFK?E*)^@)^@)A@?CC3^@)^@)GD )@@G@@^@)^@)^@)^@)^@)^@) 0)^@)*[@@@@*SDFF*@^@@@@-430 CSTART 31.0@A@@@@GE )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@^@@@@STRTJB . EXEC PCT @B@@@@GF )@@G@@ L A5,3,A1 . @B@@@@ LMJ X11,GG )@@G@@FIND . @B@@@@ J STARTI . @B@@@@GH )@@G@@ L,U A4,2 . @E@@@@ TE,S6 A4,0GI )@@G@@,A2 . IS ACCT 2 WORDS? @G@@@@ J STARTH GJ )@@G@@ . NO, CAN'T BE WHAT WE WANT @F@@@@ L,T3 A4,2GK )@@G@@,A2 . YES, GET LAST 2 CHARS @E@@@@ TE,U A4,'GL )@@G@@OV' . PRIVILEGED ACCT? @C@@@@ J STARTH GM )@@G@@ . NO @F@@@@ L,U A4,'P@' . YES, MGN )@@G@@ARK AS SUCH BY @G@@@@ S,T3 A4,2,A2 . CHANGIGO )@@G@@NG ACCT TO END WITH 'P@'@D@@_@ J STARTH . GP )@@G@@CONTINUE @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-433,433 CSGQ )@@G@@TART 31.0@]@@@@. NYU*** @B@@@@ J STRTJB GR )@@G@@ . ___D@)CLT^@)@M@@@@*[@@@@*SDFF*@G@@@@-285,286 SMALTS 31.0 - ALLOGS )@@G@@W AUTO-ASG OF FILE FOR DEMAND & R/T **NYU ___CDIC))^@)@L_@_@ *2B@5 )2B@6GT )@@G@@^@)ETHCDGE-N^@)^@)AS1 00^@) *)CDGD-JE8)CDPE-J ([*[@@@@*SDFF*@^@@@@-7 GU )@@G@@ CKEY 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. GV )@@G@@@D@@@@. SITE-ID MODIFICATION (VIA 'C' KEYIN) AND DISPLAY OF @F@@@@. EXECGW )@@G@@/LIBRARY LEVELS (VIA 'C ID' KEYIN) ARE ALSO HANDLED HERE. @[@@@@. GX )@@G@@@A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-14 CKEY 31.0GY )@@G@@@C@@@@ DAEQT . NYU***@^@@@@-106 CKGZ )@@G@@EY 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @A@@@@HA )@@G@@. CHECK FOR 'C ID' KEYIN @[@@@@. @ @@@@ LA,T1 HB )@@G@@ A1,1,A0 @E@@@@ TNE,U A1,'ID' . WANT EXEC-IDHC )@@G@@? @C@@@@ J PRTID . YES @E@@@@ HD )@@G@@ TNE,U A1,'DR' . JUST DRTP WANTED? @D@@@@ J HE )@@G@@ PRDRTP . YES, DO IT @F@@@@ JK 1,$+HF )@@G@@3 . ALLOW C KEYIN ONLY IF @E@@@@ JK 12,$HG )@@G@@+2 . JK 1 OR 12 IS ON. @ @@@@ J KERROR HH )@@G@@@A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-111 CKEY 31.0HI )@@G@@@#@@@@ALPH1J . NYU***@^@@@@-367 CKEY 31.0@#@@@@IDEXT . HJ )@@G@@NYU***@^@@@@-436 CKEY 31.0@A@@@@. >>> BEGIN NYU LOCAL COHK )@@G@@DE >>>@D@@@@ L A1,R2 . GET COUNT @E@@@@HL )@@G@@ TNZ A1 . SIX CHAR (OR 7)? @F@@@@ HM )@@G@@ J SITMOD . YES, PROBABLY SITEID MOD@]@@@@NOTSITHN )@@G@@ . @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-1121 CKEY HO )@@G@@ 31.0@A@@@@/. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @B@@@@. 'C IHP )@@G@@D' KEYIN - DISPLAYS THE FOLLOWING: @[@@@@. @]@@@@. EXEC LEVEL@[@@@@HQ )@@G@@. @]@@@@. LIBLEVEL @[@@@@. @H@@@@. (DURING BOOT, @WATLIB PHR )@@G@@ROCESSOR READS LIBLEVEL FROM SYS$*RUN$.LIBLEVEL @F@@@@. AND DOES ERHS )@@G@@ ID$ TO STORE LIBLEVEL AND TAPE NUMBERS IN E8ID)@[@@@@. @#@@@@. MAX HT )@@G@@& AVAIL CORE@[@@@@. @^@@@@. BOOT TAPE NUMBERS @B@@@@. (STORHU )@@G@@ED IN E8ID DURING SYSGEN) @[@@@@. @#@@@@. LIB TAPE NUMBERS@#@@@@HV )@@G@@. (SEE ABOVE)@[@@@@. @ @@@@. SECURE DIRECTORY TAPE NUMBER@E@@@@HW )@@G@@. (USING ADDITIONAL CODE IN MSCON$ DBACK$ ROUTINE, @^@@@@. HX )@@G@@ AND IN INASG) @[@@@@. @^@@@@. CURRENT EXPOOL SIZE @[@@@@. HY )@@G@@@A@@@@. MAX EXPOOL SIZE SINCE LAST BOOT @[@@@@. @B@@@@. TOTAL EXPOHZ )@@G@@OL EXPANSIONS SINCE LAST BOOT @[@@@@. @[@@@@. @E@@@@. ALTERNATE IA )@@G@@FORMAT: 'C IDN', WHERE N IS ANY NONBLANK CHAR, @E@@@@. IB )@@G@@ GIVES 3RD LINE (EXPOOL INFO) ONLY. @[@@@@. @[@@@@. @D@@@@IC )@@G@@PRTID L,S3 A1,1,A0 . GET 3RD CHAR@D@@@@ TEID )@@G@@,U A1,5 . IS IT BLANK?@G@@@@ J PREXIE )@@G@@P . NO, JUST PRINT EXPOOL INFO @F@@@@ DL IF )@@G@@ A1,BUFR . YES, GET EXEC LEVEL @F@@@@ DS IG )@@G@@ A1,MSG+1 . AND STORE IT IN LINE 1 @E@@@@ L IH )@@G@@ A1,BUFR-1 . ALSO GET LIBLEVEL @F@@@@ S A1,MII )@@G@@SG+4 . AND STORE IT IN LINE 1 @D@@@@ L A1,AIJ )@@G@@VLCOR . GET MAX CORE@^@@@@ L,U R2,2@F@@@@ IK )@@G@@ DSL A1,3 . CONVERT TO FIELDATA @^@@@@ IL )@@G@@ SSL A2,3@ @@@@ JGD R2,$-2 @ @@@@ SSIM )@@G@@L A2,18 @ @@@@ A A2,KZERO @E@@@@ S,IN )@@G@@H1 A2,MSG+6 . STORE IN LINE 1 @E@@@@ L IO )@@G@@ A1,ACOUNT . GET AVAILABLE CORE@^@@@@ DSL A1,3IP )@@G@@@F@@@@ SSL A2,33 . CONVERT TO FIELDATA IQ )@@G@@@ @@@@ A,U A2,060 @G@@@@ S,S1 A2,MSG+8 IR )@@G@@ . STORE AVAIL CORE IN LINE 1 @^@@@@ DSL A1,3IS )@@G@@@^@@@@ SSL A2,3@^@@@@ DSL A1,3@ @@@@ IT )@@G@@ SSL A2,27 @ @@@@ A,U A2,06060 @H@@@@ IU )@@G@@ S,T3 A2,MSG+7 . STORE REST OF AVAIL CORE IN LINE 1 IV )@@G@@@E@@@@ L A1,(50,MSG) . SET UP FOR COM$ @ @@@@IW )@@G@@ S A1,1,A0 @^@@@@ SZ 0,A0@^@@@@ IX )@@G@@ SZ 2,A0@H@@@@ ER COM$ . DISPLAIY )@@G@@Y EXEC & LIB, MAX & AVAIL CORE@F@@@@ DL A1,BUFR-3 IZ )@@G@@ . GET LIBTAPE NUMBERS @E@@@@ DS A1,TMSG+4 JA )@@G@@ . STORE IN LINE 2 @G@@@@ L A1,BUFR-4 . JB )@@G@@GET SECURE DIRECTORY TAPE NO. @E@@@@ S A1,TMSG+6 JC )@@G@@ . STORE IN LINE 2 @F@@@@ L A1,(42,TMSG) . JD )@@G@@SET UP FOR COM$ AGAIN @ @@@@ S A1,1,A0 @H@@@@ JE )@@G@@ ER COM$ . DISPLAY BOOT & LIB TAPES, AND DRTP JF )@@G@@@]@@@@PREXP . @F@@@@ L,H2 A2,EXPUSE . GET CUJG )@@G@@RRENT EXPOOL SIZE @F@@@@ LMJ A3,CONVRT . CONVERJH )@@G@@T TO FIELDATA @ @@@@ S,T1 A1,EXP+2 @ @@@@ SSJI )@@G@@L A1,12 @E@@@@ S,H2 A1,EXP+1 . STORE JJ )@@G@@IN LINE 3 @ @@@@ SSL A1,18 @ @@@@ S,S3 JK )@@G@@ A1,EXP+1 @G@@@@ L,H1 A2,CORFL2 . GET EXPOOL MJL )@@G@@AX SINCE BOOT @F@@@@ LMJ A3,CONVRT . CONVERJM )@@G@@T TO FIELDATA @E@@@@ S A1,EXP+4 . STORE JN )@@G@@IN LINE 3 @G@@@@. SEE L,H2 A2,EXCTOT . GET EXPOOL EJO )@@G@@XPANSION TOTAL @F@@@@. EXP, LMJ A3,CONVRT . CONVERJP )@@G@@T TO FIELDATA @E@@@@. BELOW S A1,EXP+7 . STORE JQ )@@G@@IN LINE 3 @E@@@@ L A1,(EXPL,EXP) . SET UP FOR CJR )@@G@@OM$ @G@@@@ J IDEXT . GO DISPLAY THE EXPJS )@@G@@OOL STUFF @[@@@@. @E@@@@. DISPLAY (OR INSERT) THE DIRECTORJT )@@G@@Y TAPE NUMBER @[@@@@. @F@@@@PRDRTP LA,H2 A1,0,A0 JU )@@G@@ . GET INPUT CHAR COUNT @E@@@@ TLE,U A1,6 JV )@@G@@ . ENOUGH CHARS? @E@@@@ J PRDRT2 . JW )@@G@@NO, JUST DISPLAY @F@@@@ JK 12,$+3 . IF JK JX )@@G@@12 IS NOT SET, @F@@@@ TZ BUFR-4 . MAKE SJY )@@G@@URE IT'S EMPTY @F@@@@ J KERROR . NOPE, JZ )@@G@@KICK DE BUM OUT @E@@@@ L,S6 A1,1,A0 . GET FIKA )@@G@@RST CHAR @E@@@@ L A2,2,A0 . AND NEXT FIVKB )@@G@@E @F@@@@ DSL A1,6 . SHIFT INTO ONE WORKC )@@G@@D @F@@@@ S A2,BUFR-4 . AND STORE IN DRTPMKD )@@G@@SG @F@@@@PRDRT2 L A1,(6,BUFR-4) . 6 CHARS FROM BUFR-KE )@@G@@4 @C@@@@ J IDEXT . DO IT @[@@@@. KF )@@G@@@F@@@@MSG 'EXEC: XXXXXXXXXXXX LIBS: XXXXX MAX: XXXK AVL: XXXK' KG )@@G@@@G@@@@TMSG 'BOOT:' . SECOND LINE KH )@@G@@ @G@@@@ + BTAPE1 . BOOT TAPE #'S KI )@@G@@ @G@@@@ + BTAPE2 . FROM EQU VALKJ )@@G@@UES IN E8ID @G@@@@ 'LIBS: XXXX, XXXX DRTP-X' . LIBTAPKK )@@G@@E #'S AND DIRECTORY TAPE@G@@@@EXP 'EXPSZ: 0000000 EXPMX: 0000000'KL )@@G@@ . CURRENT & MAX EXPOOL SIZES @G@@@@. (OFF) ' EXCTOT: 0000000' KM )@@G@@ . EXPOOL EXPANSION ATTEMPT COUNT@F@@@@EXPL EQU 6*($-EXP) KN )@@G@@ . CHAR COUNT IN EXPOOL MSG@[@@@@/. @[@@@@. @G@@@@. NYU KO )@@G@@LOCAL CODE TO ALLOW DYNAMIC SITE-ID TABLE MODIFICATIONS - MAY BE @D@@@@KP )@@G@@. ENTERED VIA CARDS OR CONSOLE KEYIN - THE FORMAT IS: @[@@@@. @A@@@@KQ )@@G@@. C OLDSITEX NEWSITE @[@@@@. @F@@@@. THE DETECTION OFKR )@@G@@ A SIX-CHARACTER ALPHABETIC FIELD NOT EQUAL @F@@@@. TO A SEGMENT NAMKS )@@G@@E ENABLES THE MODIFICATION PACKAGE (BELOW). @F@@@@. THE CHARACTER INKT )@@G@@ POSITION 'X' ABOVE MUST BE EITHER ' ' OR '*'. @F@@@@. IF BLANK, A SITEKU )@@G@@-ID IS TO BE CHANGED: IF '*', THE ASSIGN OR @A@@@@. CONSOLE ID IS TOKV )@@G@@ BE REPLACED. @[@@@@. @G@@@@. METHOD: TODRUM IS BLOCK SEARCKW )@@G@@HED FOR OLDSITE - IF A FIND IS MADE,@G@@@@. THEN OLDSITE IS REPLACED BY KX )@@G@@NEWSITE (AFTER VERIFYING THAT NEWSITE @G@@@@. IS NOT ALREADY ON TODRKY )@@G@@UM). A NO-FIND TERMINATES THE PACKAGE WITH THE @]@@@@. MESSAGE: @ @@@@KZ )@@G@@. C KEY ERROR @^@@@@. OR @ @@@@. LA )@@G@@ CC KEY ERROR @[@@@@. @G@@@@. DEPENDING UPON WHETHER INPUTLB )@@G@@ WAS FROM THE CONSOLE (C) OR CARDS (CC). @E@@@@. BOTH OLDSITE AND NEWSILC )@@G@@TE MUST BE SIX CHARACTERS LONG. @[@@@@. @D@@@@. LD )@@G@@ E. BOYHAN 12/22/70 @F@@@@. LE )@@G@@ 31.77 UPDATE 6/12/73 - D. KURLAND @[@@@@. @[@@@@. @A@@@@. LF )@@G@@ ENTER WITH A5 = OLDSITE @D@@@@. A4 = '*' IF CONLG )@@G@@SOLE ID CHANGE @[@@@@. @]@@@@SITMOD . @E@@@@ L,U LH )@@G@@ A1,0,X11 . GET RETURN ADDR @F@@@@ TE,U A1,ALI )@@G@@LPH1J . WORKING ON FIELD 1? @F@@@@ J NOTSLJ )@@G@@IT . NO, CAN'T BE SITE MOD @F@@@@ TE,U A4,'LK )@@G@@*' . IS OLDSITE CONSOLE-ID? @I@@@@ LMJ X11,LL )@@G@@FDASC . NO, CONVERT OLDSITE TO TRUNCATED ASCII @G@@@@BS1 LM )@@G@@ SZ 7,A0 . YES SET UP TO SEARCH TODRUM @ @@@@LN )@@G@@ SZ 8,A0 @ @@@@ SZ 12,A0 @D@@@@LO )@@G@@ DL A3,('EXDRUM ') . FILE NAME @ @@@@ DSLP )@@G@@ A3,5,A0 @B@@@@ LA,U A3,IHK+TABSIZ-RMSIZE @ @@@@LQ )@@G@@ S A3,10,A0 @ @@@@ S,H1 A2,9,A0 @D@@@@LR )@@G@@ LA,U A3,035 . BLOCK SEARCH@ @@@@ SALS )@@G@@,S2 A3,8,A0 @E@@@@ SA A5,11,A0 . SEARCHLT )@@G@@ ARGUMENT @ @@@@ LA,U A0,5,A0 @ @@@@ ER LU )@@G@@ IOW$ @D@@@@ ANA,U A0,5 . RESTORE A0 LV )@@G@@@C@@@@ LA,S1 A3,8,A0 . STATUS@F@@@@ JZLW )@@G@@ A3,NEWSIT . FOUND IT? IF SO, NEWSIT @ @@@@ TNLX )@@G@@E,U A3,3 @E@@@@ J KERROR . NO SUCLY )@@G@@H OLDSITE @E@@@@ XER3 0240 . BAD STATUS LZ )@@G@@0-STOP@ @@@@NEWSIT DL A4,2,A0 @ @@@@ LA A3,1MA )@@G@@2,A0 @ @@@@ SA A3,14,A0 @ @@@@ DSL A4,2MB )@@G@@4 @F@@@@ TE,U A4,'* ' . CHANGING CONSOLE IMC )@@G@@D? @G@@@@ LMJ X11,FDASC2 . NO, CONVERT TO TRUMD )@@G@@NC. ASCII @H@@@@BS2 SA A5,11,A0 . BLOCK SEARCHME )@@G@@ TODRUM FOR NEWSITE @ @@@@ LA,U A0,5,A0 @^@@@@ MF )@@G@@ ER IOW$@D@@@@ ANA,U A0,5 . RESTORMG )@@G@@E A0 @C@@@@ LA,S1 A3,8,A0 . STATUS@H@@@@ MH )@@G@@ JZ A3,KERROR . J KERROR IF NEWSITE ALREADY THERE MI )@@G@@@^@@@@ TE,U A3,3@E@@@@ XER3 0240 MJ )@@G@@ . BAD STATUS 0-STOP@F@@@@ SA A5,13,A0 . MK )@@G@@NO-FIND ON NEWSITE, OKAY@G@@@@ LA,U A3,13,A0 . ML )@@G@@ TO CHANGE OLDSITE TO IT. @ @@@@ LXI,U A3,1 @ @@@@MM )@@G@@ SA A3,9,A0 @ @@@@ LA A3,14,A0 @ @@@@MN )@@G@@ SA A3,10,A0 @D@@@@ LA,U A3,010 MO )@@G@@ . WRITE IT OUT@ @@@@ SA,T1 A3,8,A0 @ @@@@ LAMP )@@G@@,U A0,5,A0 @ @@@@ ER IOW$ @D@@@@ ANMQ )@@G@@A,U A0,5 . RESTORE A0 @E@@@@ TZ,S1 8,A0MR )@@G@@ . HOW'D THE I/O GO? @F@@@@ XER3 0240 MS )@@G@@ . NOT TOO GOOD 0-STOP @^@@@@ SZ 7,A0@E@@@@MT )@@G@@ SZ 9,A0 . SET UP COM$ PACKET@D@@@@ MU )@@G@@ LXI,U A1,14 . 14 CHAR MAX @E@@@@ LXM,U MV )@@G@@ A1,1,A0 . ADDR OF IMAGE @E@@@@ S A1,8MW )@@G@@,A0 . STORE IN PACKET @E@@@@ A,U A0,7 MX )@@G@@ . POINT TO PACKET @^@@@@ ER COM$@D@@@@ MY )@@G@@ AN,U A0,7 . RESTORE A0 @F@@@@ J MZ )@@G@@ COMEXT . RELEASE EXPOOL BUFFER @[@@@@. @ @@@@FDASC2NA )@@G@@ DSL A4,6 @ @@@@FDASC LR,U R2,5 @H@@@@CHRCHKNB )@@G@@ LSSL A4,30 . CNVRT 6 CHARS FD TO TRUNC ASCII NC )@@G@@@ @@@@ LDSC A4,6 @ @@@@ TNW A1,A4 ND )@@G@@@ @@@@ J BOT @ @@@@ TG,U A4,040 NE )@@G@@@ @@@@ J KERROR @ @@@@ ANA,U A4,5 NF )@@G@@@ @@@@ JN A4,KERROR @ @@@@BOT JGD R2,CHRCHK NG )@@G@@@ @@@@ LSSL A4,30 @ @@@@ LDSC A4,6 NH )@@G@@@ @@@@ J 0,X11 @B@@@@. <<< END LOCANI )@@G@@L CODE <<< ___ TNE,U A3,3 @E@@@@ J KERRNJ )@@G@@OR . NO SUCH OLDSITE @E@@@@ XER3 0240 NK )@@G@@ . BAD STATUS *[@@@@*SDFF*@^@@@@-246 RMCPC 31.0@A@@@@NL )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @ @@@@. PROVISIONS FOR RNM )@@G@@EMOTE 1130 @[@@@@. @ @@@@ L A2,GNCTLC @B@@@@ NN )@@G@@ L,H1 A2,2,A2 PKTAD . @E@@@@ L A2,ELECHR,NO )@@G@@A2 . GET 1130 FLAG @E@@@@ TNE,U A2,ELEVID NP )@@G@@ . IS IT AN 1130? @G@@@@ L,U A1,ELESIZ . NQ )@@G@@YES, GET CORRECT BLOCK SIZE @A@@@@. <<< END NYU LOCAL CODE <<>> BEGIN NYU LOCAL CONS )@@G@@DE >>>@[@@@@. @ @@@@. PROVISIONS FOR REMOTE 1130 @[@@@@. @ @@@@NT )@@G@@ L A2,GNCTLC @A@@@@ L,H1 A2,2,A2 PKTAD .NU )@@G@@@A@@@@ L A2,ELECHR,A2 @ @@@@ TNE,U A2,ENV )@@G@@LEVID @ @@@@ L,U A1,ELESIZ @A@@@@. <<< END NYU LOCNW )@@G@@AL CODE <<<@^@@@@-550,551 RMCPC 31.0@A@@@@. >>> BEGIN NYU LONX )@@G@@CAL CODE >>>@[@@@@. @ @@@@. PROVISIONS FOR REMOTE 1130 @[@@@@. NY )@@G@@@ @@@@ L,U A1,330 @ @@@@ L A2,GNCTLC NZ )@@G@@@B@@@@ L,H1 A2,2,A2 PKTAD . @A@@@@ L OA )@@G@@ A2,ELECHR,A2 @ @@@@ TNE,U A2,ELEVID @ @@@@ L,OB )@@G@@U A1,ELESIZ @ @@@@ TNE A1,MAXSIZ @A@@@@. <<< OC )@@G@@ END NYU LOCAL CODE <<<___^@)@C@@@@^@)^@)^@)^@)^@)D)?E*)^@)^@)^@)CC1 - OD )@@G@@*[@@@@*SDFF*@^@@_@-38,43 ROLBAK 31.0@^@@_@-57,64 ROLBAK 31.0OE )@@G@@@^@@_@-164,165 ROLBAK 31.0@^@@@@-180,180 ROLBAK 31.0@]@@@@. NYU*OF )@@G@@** @^@@@@ '0-0040-167P@'@^@@@@-294,295 ROLBAK 31.0@A@@@@OG )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@ @@@@ CRF 0,7,0 OH )@@G@@@D@@@@ '@RUN,A/X ROLBAK,0-0040-167OV,SUNSHINE,20' @A@@@@. OI )@@G@@ <<< END NYU LOCAL CODE <<<@^@@_@-308,317 ROLBAK 31.0@ @@_@-324,3OJ )@@G@@24/0,1 ROLBAK 31.159 ___A@4A@!AC6A9JE0?ETPD1ND[DD1 )2A@$@D@@@@ 0)^@)OK )@@G@@*[@@@@*SDFF*@^@@@@-242,252 ROLOUT 31.0@^@@_@-402,403 ROLOUT 31.0OL )@@G@@@^@@@@-522,522 ROLOUT 31.0@]@@@@. NYU*** @^@@@@ '0-0040-OM )@@G@@167P@'@^@@@@-530,531 ROLOUT 31.0@^@@@@-535,536 ROLOUT 31.0@A@@@@ON )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@ @@@@ CRF 0,8,0 OO )@@G@@@E@@@@ '@RUN,A/X ROLOUT,0-0040-167OV,SUNSHINE,20/20,99' @A@@@@OP )@@G@@. <<< END NYU LOCAL CODE <<<@^@@@@-541,549 ROLOUT 31.0@ @@@@OQ )@@G@@-555,555/0,1 ROLOUT 31.159 ___ )9BC$^@)@D@@@@ 0)^@)^@)^@)B)/B))^[ D1^OR )@@G@@*[@@@@*SDFF*@^@@@@-385,385 SMNXTP 31.0@]@@@@. NYU*** @E@@@@ OS )@@G@@ TLE,U A1,LWAIT*4 . MAX TWAIT VALUE @^@@@@-1096 SMOT )@@G@@NXTP 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@H@@@@ J OU )@@G@@ DELETE . THIS RETURN IS ONLY FOR END OF TAPE @F@@@@OV )@@G@@ . EITHER MUST QUIT, OR CALL TINTL$ TO DO REWIND BEFORE @B@@@@OW )@@G@@ . CONTINUING WITH NEXT LABEL. @A@@@@. <<< END NYU LOCOX )@@G@@AL CODE <<<@^@@@@-1284 SMNXTP 31.0@A@@@@. >>> BEGIN NYU LOOY )@@G@@CAL CODE >>>@A@@@@ S X11,NXTRTN,A2 @F@@@@ L,OZ )@@G@@U A4,10 . 10 BLOCKS BETWEEN PAUSES @ @@@@MOVAGN JGPA )@@G@@D A4,MOVAG1 @E@@@@ LMJ X11,PAUSE . LET OTHEPB )@@G@@R SEGS GO @^@@@@ GETSWL A3 @ @@_@ L A3,SPC )@@G@@E,A3 @ @@_@ L A1,SMOLNK @A@@_@ L A2,SPD )@@G@@MOQSV,A1 @A@@@@ L A0,BUFSAV,A2 @A@@@@ L PE )@@G@@ X11,NXTRTN,A2 @ @@@@ L,U A4,10 @]@@@@MOVAG1PF )@@G@@ . @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-1287,1287 SMNXTPPG )@@G@@ 31.0@]@@@@. NYU*** @E@@@@ J MOVAGN . COPH )@@G@@NTINUE TO EOF @^@@@@-1290,1290 SMNXTP 31.0@]@@@@. NYU*** @C@@@@PI )@@G@@ J MOVAGN . $J YES ___D))^@)^@)^@)^@)CC1 -NPJ )@@G@@D(JD-IDS)^@)@C_@@@^@)^@)^@)^@)^@)D))^@)^@)^@)^@)*[@@@@*SDFF*@^@@@@-648,6PK )@@G@@48 FH 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. PL )@@G@@@[@@@@. @^@@@@. RCR STALL FIX @[@@@@. @G@@@@. IFPM )@@G@@ LOG TAPE IS ON LOCAL (FE HAS TAPE SUBSYSTEM), FIRST ATTEMPT@E@@@@. PN )@@G@@ TO WRITE ON LOG TAPE CAUSES STALL (JOC 0,$) . @[@@@@. @E@@@@PO )@@G@@ L,U X9,0310 . SET WAIT COUNT @E@@@@ PP )@@G@@ JOC 0,$+2 . CHANNEL BUSY? @D@@@@ J PQ )@@G@@ $+2 . NO, GO ON @E@@@@ JGD EX9,PR )@@G@@$-2 . YES, TRY AGAIN @A@@@@. <<< END NYU LOCAL CODPS )@@G@@E <<<___@_@^@)^@)^@)^@)^@)DLJCS)^@)^@)^@)A@?^):AK)^@)^@)^@)^@)^@)^@)^@)PT )@@G@@*[@@@@*SDFF*@F@@_@-6,6/0,1 PRTCN 31.159 TURN SDF51 OFF UNTIL SOLIPU )@@G@@DLY ON 31 @D@@@@-55,55 PRTCN 31.0 FIX STALL, SAVE OVERHEAD PV )@@G@@@D@@@@-184 PRTCN 31.0 MOVE LINE 55 TO HERE @ @@@@ PW )@@G@@ LMJ A2,PRSTBS ___D9QC*)D-DD1 ^@5A*)E-J^[CC(MC*)^@)@C@@@@^@)^@)PX )@@G@@^@)^@)^@)D-HDK)^@)^@)^@)CC2 -KELNE-]ES)^@)___@@@*[@@@@*SDFF*@^@@@@-10 PY )@@G@@ SYMICR 30.0@I@@@@ DIOSTR PZ )@@G@@ . DI2.00 @I@@@@ DMISOM QA )@@G@@ . DI2.00 @ @@@@RNSTAT EQQB )@@G@@UF 012,,S1 @^@@@@FINRCD EQU 04 @I@@@@ DIOEND QC )@@G@@ . DI2.00 @^@@@@QD )@@G@@-375 SYMICR 31.0@#@@@@ DIOSTR @^@@@@ TS QE )@@G@@ 0,A3@A@@@@ L A1,RNSTAT,A3 @ @@@@ OR,U QF )@@G@@ A1,FINRCD @ @@@@ LMJ X11,SYCKDI@E@@@@ S QG )@@G@@ A2,RNSTAT,A3 . SET FIN REC IF DI @^@@@@ CTS 0,A3QH )@@G@@@#@@@@ DIOEND @^@@@@-380 SYMICR 31.0@#@@@@ DIQI )@@G@@ISTR @^@@@@-384 SYMICR 31.0@#@@@@ DIIEND @^@@@@-390 QJ )@@G@@ SYMICR 31.0@#@@@@ DIISTR @^@@@@-391 SYMICR 31.0QK )@@G@@@#@@@@ DIIEND @#@@@@ DIOSTR @ @@@@ L,U QL )@@G@@ X11,RNSTRT@D@@@@ S X11,8,A3 . SET RETURN QM )@@G@@@D@@@@ J RUNCL2 . CLOSE RUN @#@@@@ QN )@@G@@ DIOEND @^@@@@-403 SYMICR 31.0@#@@@@ DIOSTR @E@@@@QO )@@G@@DIICR1* . IF RUN,RUN, DI RETURNS HERE TO OPEN 2ND RUN @#@@@@ QP )@@G@@ DIOEND @^@@@@-409 SYMICR 31.0@#@@@@ DIOSTR @I@@@@QQ )@@G@@ LXI,U A3,0 . ENSURE CSP THINKS SYMB CALLED W/QR )@@G@@O INFOR @ @@@@ LMJ X11,SYCKDI@C@@@@ J QS )@@G@@ TRM9 . J FOR DI@#@@@@ DIOEND @^@@@@-456 SYQT )@@G@@MICR 31.0@#@@@@ DIOSTR @E@@@@ L,U A4,0 QU )@@G@@ . SET FOR ILLEGAL RUN @ @@@@ LMJ X11,SYCKDI@C@@@@QV )@@G@@ J TRM1 . J IF DI @#@@@@ DIOEND QW )@@G@@@^@@@@-536 SYMICR 31.0@#@@@@ DIOSTR @^@@@@ TSQX )@@G@@ 0,A3@A@@@@ L A1,RNSTAT,A3 @ @@@@ ORQY )@@G@@,U A1,FINRCD @ @@@@ LMJ X11,SYCKDI@E@@@@ S QZ )@@G@@ A2,RNSTAT,A3 . SET FIN REC'D IF DI @^@@@@ CTS RA )@@G@@ 0,A3@#@@@@ DIOEND @^@@@@-563 SYMICR 31.0@#@@@@ RB )@@G@@ DIOSTR @E@@@@ L,U A4,1 . SET FOR FIN RERC )@@G@@TURN @ @@@@ LMJ X11,SYCKDI@C@@@@ J TRM9RD )@@G@@ . J IF DI @#@@@@ DIOEND @^@@@@-639 SYMICR RE )@@G@@ 31.0@#@@@@ DIOSTR @F@@@@ L,U A4,2 RF )@@G@@ . SET FOR RUN SEARCH RETURN @ @@@@ LMJ X11,SYCKDI@C@@@@RG )@@G@@ J TRM1 . J IF DI @#@@@@ DIOEND RH )@@G@@@^@@@@-677 SYMICR 31.0@#@@@@ DIOSTR @ @@@@ LMRI )@@G@@J X11,SYCKDI@F@@@@ J IPUT2 . DON'T DORJ )@@G@@ @FILE FOR DI @#@@@@ DIOEND ___@@@ DIOSTR RK )@@G@@ . DI2.00 @I@@@@ RL )@@G@@ DMISOM *[@@@@*SDFF*@^@@@@-162,162/7 RMPNC 31.0@A@@@@RM )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @ @@@@. PROVISIONS FOR RRN )@@G@@EMOTE 1130 @[@@@@. @ @@@@ L A2,GNCTLP @B@@@@ RO )@@G@@ L,H1 A2,2,A2 PKTAD . @A@@@@ L A2,ELECHR,RP )@@G@@A2 @ @@@@ TNE,U A2,ELEVID @ @@@@ L,U A1,ERQ )@@G@@LESIZ @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-270 RMPNC RR )@@G@@ 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @ @@@@. PROVRS )@@G@@ISIONS FOR REMOTE 1130 @[@@@@. @ @@@@ L A2,GNCTLP RT )@@G@@@B@@@@ L,H1 A2,2,A2 PKTAD . @A@@@@ L RU )@@G@@ A2,ELECHR,A2 @ @@@@ TNE,U A2,ELEVID @ @@@@ L,RV )@@G@@U A1,ELESIZ @A@@@@. <<< END NYU LOCAL CODE <<<@C@@@@-464 RW )@@G@@ RMPNC 31.0 RCR 063-STOP FIX @A@@@@. >>> BEGIN NYU LORX )@@G@@CAL CODE >>>@ @@@@ L,T1 A0,4,A3 @ @@@@ AND,U RY )@@G@@ A0,-PRSLOD@ @@@@ S,T1 A1,4,A3 @ @@@@ L,U RZ )@@G@@ A1,SYMPRS @ @@@@ TEP,U A0,PRSLOD @ @@@@ LMJ SA )@@G@@ X11,SEGREL@A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-537,538 RMSB )@@G@@PNC 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @ @@@@SC )@@G@@. PROVISIONS FOR REMOTE 1130 @[@@@@. @ @@@@ L A2,GSD )@@G@@NCTLP @B@@@@ L,H1 A2,2,A2 PKTAD . @ @@@@ L,SE )@@G@@U A4,330 @A@@@@ L A2,ELECHR,A2 @ @@@@ SF )@@G@@ TNE,U A2,ELEVID @ @@@@ L,U A4,ELESIZ @ @@@@ SG )@@G@@ TNE A4,MAXBUF @A@@@@. <<< END NYU LOCAL CODE <<<___ )0SH )@@G@@A))^@)^@)^@)^@)^@)^@)^@) 0)^@)@H_@@@^@)^@)^@)^@)^@)DK)^@)^@)^@)^@)CTHE[NSI )@@G@@AK)^@)^@)^@)^@)^@)^@)^@) 0)^@)^@)^@)^@)^@)@D_@@@*[@@@@*SDFF*@A@@_@-100,1SJ )@@G@@31/24,24 AAFIPROC 31.241 @B@@_@ FICON '8C ',01,5,24 SK )@@G@@ . ___^@)CD[C1DE[MD9#^@)^@3AC,AK4AC)^@)@F@@_@^@)^@)^@)^@)^@)C1DCTJD0)SL )@@G@@*[@@@@*SDFF*@^@@@@-238 CSI2 31.0@]@@@@. NYU*** @F@@@@ SM )@@G@@ TE,U A5,050 . HOME PAPER ON @XQT, TOO ___^[KCDKC(MSN )@@G@@^[JD0)C[SEDO ))E-JD8)^@)*[@@@@*SDFF*@^@@@@-63 DKEY 31.0@A@@@@SO )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @D@@@@. ML AND GD KEYINSSP )@@G@@, FOR MAINTENANCE LOG AND GENDATE. @[@@@@. @F@@@@. GENDATE IS SUPPLSQ )@@G@@IED BY SYSGEN RUNSTREAM AND IS STORED IN E8ID. @F@@@@. EACH TIME A 'D' SR )@@G@@KEYIN IS DONE, DKEY CHECKS TO MAKE SURE THAT @E@@@@. THE DATE KEYED ISS )@@G@@N IS NOT BEFORE THE GENDATE. IF IT IS, @F@@@@. DKEY TURNS ON THE ALARST )@@G@@M AND DISPLAYS THE GENDATE (UNLESS JK 12 @G@@@@. IS SET). THE 'GD' KEYSU )@@G@@IN IS PROVIDED TO JUST DISPLAY THE GENDATE, @#@@@@. IN THE FORM: SV )@@G@@@B@@@@. GENDATE WAS MMDDYY @[@@@@. @F@@@@. THE SW )@@G@@'ML' KEYIN PROVIDES A MEANS OF RECORDING HARDWARE PROBLEMS @F@@@@. AND SX )@@G@@OTHER 'MAINTENANCE LOG' ITEMS OF A GENERAL NATURE. A NORMAL@F@@@@. UNSOSY )@@G@@LICITED-KEYIN LOG ENTRY IS MADE, AND STISTX (OR ANY OTHER @F@@@@. LOG SZ )@@G@@ANALYSIS PROGRAM) CAN RETRIEVE THE INFORMAION AND PRINT IT @C@@@@. IN TTA )@@G@@ABULAR FORM. THE FORMAT FOR THE KEYIN IS:@[@@@@. @A@@@@. TB )@@G@@ ML DEVICE TEXT @[@@@@. @C@@@@. WHERE 'DEVICE' MAY BE ANY OFTC )@@G@@ THE FOLLOWING: @[@@@@. @C@@@@. SS/UU - SUBSYSTEM AND UNITTD )@@G@@ NUMBER @A@@@@. SS - SUBSYSTEM NUMBER @A@@@@. M/TE )@@G@@N - MEMORY NUMBER N @B@@@@. A/N - AIR CONDITIONER NUMBER NTF )@@G@@@ @@@@. P/N - CPU NUMBER N@ @@@@. PW - PAGEWRITER TG )@@G@@@^@@@@. PDP - PDP-11@^@@@@. O - OTHER @C@@@@. TH )@@G@@ + - CONTINUATION OF LAST ML KEYIN @[@@@@. @[@@@@. @F@@@@TI )@@G@@ TNE,U A1,'ML' . IS THIS AN ML KEYIN? @C@@@@TJ )@@G@@ J MLKEY . YUP @F@@@@ TNE,U TK )@@G@@ A1,'GD' . GOT WE A 'GD' KEYIN? @D@@@@ J TL )@@G@@ GDCOM . GUESS SO @A@@@@. <<< END NYU LOCAL CODTM )@@G@@E <<<@^@@@@-72 DKEY 31.0@A@@@@. >>> BEGIN NYU LOCAL COTN )@@G@@DE >>>@[@@@@. @E@@@@. 'D ON' KEYIN FOR ALLOWING DEMAND TERMINAL INITTO )@@G@@ALIZATION @E@@@@. (SHOULD BE KEYED IN BY OPERATOR AFTER PATCHES, IF ANTP )@@G@@Y, @D@@@@. ARE READ IN). NOT NEEDED IF SYSTEM IS UNATTENDED. @[@@@@TQ )@@G@@. @D@@@@ TNE A1,('D @@]') . 'D ON' KEYIN? @D@@@@TR )@@G@@ J DEMON . MAYBE, GO SEE @A@@@@. <<< TS )@@G@@ END NYU LOCAL CODE <<<@ @@_@-129/0 DKEY 31.241 @A@@@@. TT )@@G@@ >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @A@@@@. CHECK DATE KEYED IN VSTU )@@G@@. GENDATE @[@@@@. @I@@@@ TNG,U A2,GENYR TV )@@G@@ NYU07220 @I@@@@ J SQUATW )@@G@@SH NYU07230 @I@@@@ TX )@@G@@ TE,U A2,GENYR NYU072TY )@@G@@40 @I@@@@ J CONTIN TZ )@@G@@ NYU07250 @I@@@@ TNG,U A1,GENMO UA )@@G@@ NYU07260 @I@@@@ J SQUAUB )@@G@@SH NYU07270 @I@@@@ UC )@@G@@ TE,U A1,GENMO NYU072UD )@@G@@80 @I@@@@ J CONTIN UE )@@G@@ NYU07290 @I@@@@ TNG,U A4,GENDAY UF )@@G@@ NYU07300 @I@@@@ J SQUAUG )@@G@@SH NYU07310 @]@@@@CONTINUH )@@G@@ . @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-353 DKEY UI )@@G@@ 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@G@@@@SQUASH JK UJ )@@G@@ 12,CONTIN . IF JK 12 IS SET, FORGET IT @I@@@@ IIUK )@@G@@I 010 . SOME IDIOT KEYED IN THE WRONG DATE... UL )@@G@@@G@@@@GDCOM L,U A0,GDPAK . TELL HIM WHAT THE GENDATUM )@@G@@E WAS @D@@@@ J DKEYX1 . AND GO AWAY @A@@@@UN )@@G@@/. ML KEYIN SYNTAX CHECKER @[@@@@. @ @@@@MLKEY L,U UO )@@G@@ A1,0,A1 @G@@@@ TLE,U A1,6 . ENOUGH INPUTUP )@@G@@ TO MAKE SENSE? @C@@@@ J TYERR . NOPE UQ )@@G@@@D@@@@ L,S1 A1,DAYKEY,A0 . GET 1ST CHAR@E@@@@ UR )@@G@@ TLE,U A1,061 . IS IT A NUMBER? @C@@@@ J US )@@G@@ $+4 . NOPE @F@@@@ TLE,U A1,072 UT )@@G@@ . IS IT REALLY A NUMBER? @C@@@@ J MLSSNO UU )@@G@@ . YUP @E@@@@ J TYERR . NO, OUUV )@@G@@T OF RANGE @ @@@@ TE,U A1,022 @E@@@@ TNE,U UW )@@G@@ A1,6 . IS IT M OR A? @C@@@@ J MLSLUX )@@G@@ASH2 . YES @C@@@@ TNE,U A1,025 . UY )@@G@@P? @C@@@@ J MLPCHECK . YES @E@@@@ UZ )@@G@@ TNE,U A1,024 . O (FOR OTHER)? @C@@@@ J VA )@@G@@ $+3 . YES @C@@@@ TE,U A1,042 VB )@@G@@ . +? @E@@@@ J TYERR . NONE OVC )@@G@@F THE ABOVE @D@@@@ L,S2 A1,DAYKEY,A0 . GET 2ND CHARVD )@@G@@@E@@@@ J MLSPACE . CHECK FOR SPACE @D@@@@VE )@@G@@MLSSNO L,S2 A1,DAYKEY,A0 . GET 2ND CHAR@E@@@@ TLVF )@@G@@E,U A1,060 . IS IT A NUMBER? @F@@@@ J VG )@@G@@ MLSPACE . NO, CHECK FOR SPACE @F@@@@ TG,U VH )@@G@@ A1,072 . IS IT REALLY A NUMBER? @G@@@@ J VI )@@G@@ MLSLASH2 . NO, GO CHECK FOR SLASH, ETC @E@@@@ L,VJ )@@G@@S3 A1,DAYKEY,A0 . YES, GET 3RF CHAR @C@@@@ TE,U VK )@@G@@ A1,074 . SLASH?@F@@@@ J MLSPACE VL )@@G@@ . NO, CHECK FOR SPACE @D@@@@ L,S4 A1,DAYKEY,A0 VM )@@G@@ . GET 4TH CHAR@E@@@@ TG,U A1,060 . IS IT VN )@@G@@A NUMBER? @B@@@@ TG,U A1,072 . @C@@@@ VO )@@G@@ J TYERR . NO @D@@@@ L,S5 A1,DVP )@@G@@AYKEY,A0 . GET 5TH CHAR@C@@@@ TNE,U A1,5 VQ )@@G@@ . SPACE?@D@@@@ J DKEYX2 . YES, OKAY VR )@@G@@@D@@@@ TG,U A1,060 . NO, NUMBER? @B@@@@ VS )@@G@@ TG,U A1,072 . @C@@@@ J TYERR VT )@@G@@ . NO @D@@@@ L,S6 A1,DAYKEY,A0 . GET 6TVU )@@G@@H CHAR@C@@@@MLSPACE TE,U A1,5 . SPACE?@C@@@@ VV )@@G@@ J TYERR . NO @E@@@@ J DKEYVW )@@G@@X2 . YES, CHECKS OKAY @D@@@@MLSLASH2 L,S2 A1,DAYKEY,VX )@@G@@A0 . GET 2ND CHAR@C@@@@ TE,U A1,074 . VY )@@G@@SLASH?@C@@@@ J TYERR . NOPE @D@@@@MLUNITVZ )@@G@@NO L,S3 A1,DAYKEY,A0 . GET 3RD CHAR@D@@@@ TG,U WA )@@G@@ A1,060 . NUMBER? @B@@@@ TG,U A1,072 WB )@@G@@ . @C@@@@ J TYERR . NOPE @D@@@@WC )@@G@@ L,S4 A1,DAYKEY,A0 . GET 4TH CHAR@C@@@@ TNWD )@@G@@E,U A1,5 . SPACE?@D@@@@ J DKEYX2 WE )@@G@@ . YES, OKAY @D@@@@ TG,U A1,061 . WF )@@G@@NUMBER? @B@@@@ TG,U A1,072 . @C@@@@ WG )@@G@@ J TYERR . NO @D@@@@ L,S5 A1,DWH )@@G@@AYKEY,A0 . GET 5TH CHAR@E@@@@ J MLSPACE WI )@@G@@ . CHECK FOR SPACE @D@@@@MLPCHECK L,S2 A1,DAYKEY,A0 . WJ )@@G@@GET 2ND CHAR@C@@@@ TE,U A1,034 . PW? @C@@@@WK )@@G@@ J $+3 . NO @D@@@@ L,S3 WL )@@G@@ A1,DAYKEY,A0 . GET 3RD CHAR@E@@@@ J MLSPACE WM )@@G@@ . CHECK FOR SPACE @C@@@@ TNE,U A1,074 WN )@@G@@ . SLASH?@D@@@@ J MLUNITNO . CPU NO. WO )@@G@@@C@@@@ TE,U A1,011 . PDP? @C@@@@ J WP )@@G@@ TYERR . NO @E@@@@ L,T2 A1,DAYKEY,WQ )@@G@@A0 . GET NEXT TWO CHAR @D@@@@ TE,U A1,02505 WR )@@G@@ . P (SPACE)? @C@@@@ J TYERR . NO WS )@@G@@@D@@@@ J DKEYX2 . REALLY PDP. @A@@@@. WT )@@G@@ <<< END NYU LOCAL CODE <<<@^@@@@-370 DKEY 31.0@A@@@@. WU )@@G@@ >>> BEGIN NYU LOCAL CODE >>>@I@@@@GDMSG 'GENDATE WAS ' WV )@@G@@ NYU07390 @I@@@@ + WW )@@G@@ GENDATE NYU07400 @I@@@@WX )@@G@@GDPAK + 0 WY )@@G@@NYU07410 @I@@@@ + 18,GDMSG WZ )@@G@@ NYU07420 @I@@@@ + 0 XA )@@G@@ NYU07430 @C@@@@DEMON L XB )@@G@@ A1,DAYKEY,A0 . GET TEXT@E@@@@ TE A1,('ON ') XC )@@G@@ . IS IT 'D ON' KEYIN? @G@@@@ J TYERR . NOXD )@@G@@, NO OTHER VALID 2 CHR DKEYINS@F@@@@ SZ DONFLG XE )@@G@@ . TURN ON TTYINT & DMIINT @C@@@@ J DKEYX2 XF )@@G@@ . GO EXIT @A@@@@. <<< END NYU LOCAL CODE <<<___1,5 XG )@@G@@ . SPACE?@C@@@@ J TYERR . NO @E@@@@XH )@@G@@*[@@@@*SDFF*@^@@@@-19,19 EXPOOL 31.0@]@@@@. NYU*** @G@@@@RECBINXI )@@G@@* EQU 1 . WE WANT COMPLETE RECOMBINING ___CTJXJ )@@G@@D(KD- E- ^[MC(#D9HCLDD1D*[@@@@*SDFF*@^@@@@-296,298 FASEC 31.0@A@@@@XK )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @D@@@@. MAKE SURE DAS ISXL )@@G@@ UP TO DATE IF UNIT SATURATED (RCR) @[@@@@. @]@@@@NORMEY . @F@@@@XM )@@G@@ L,U A4,014 . LOAD ABS WRITE CODE @D@@@@XN )@@G@@ TZ DASWRT . WRITE DAS? @E@@@@ LMXO )@@G@@J X11,IOW . WRITE SECT TO DRUM@A@@@@. <<< END NXP )@@G@@YU LOCAL CODE <<<___CS)^@)^@)AS1 02A@8^@)@A@@@@ *2BC6 )2BC8^@)C1[ET CS)XQ )@@G@@^@)^@)AS1 00@D@@@@ 0)^@)*[@@@@*SDFF*@^@@@@-1595 IOD 31.0@A@@@@XR )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @D@@@@. TIME OF XS )@@G@@LAST BOOT FOR POINTER$ AND LB KEYIN @[@@@@. @D@@@@BOOTTIME$* + XT )@@G@@ 0 . @A@@@@. <<< END NYU LOCAL CODXU )@@G@@E <<<___^@)^@)EL ES)^@)^@)^@)C1DF[ C-DET#@[_@@@ 0)^@)@I@@@@ 0)^@)^@)^@)XV )@@G@@*[@@@@*SDFF*@^@@@@-18 SMQUES 31.0@I@@@@ DIOSTR XW )@@G@@ . DI2.00 @I@@@@ . THXX )@@G@@IS ROUTINE HAS BEEN MADE REGISTER INDEPENDANT FOR DEMAND INTERFACE. DI2.XY )@@G@@00 @I@@@@ LXI,U A0,0 XZ )@@G@@ . DI2.00 @I@@@@ DIOEND YA )@@G@@ . DI2.00 @^@@@@-25 SMQUES 31.0YB )@@G@@@#@@@@ DIOSTR @ @@@@ JNZ A4,$+2 @G@@@@ YC )@@G@@ SZ ENDOFQ . CLR END IFF LAST OF WHOLE QUE @#@@@@YD )@@G@@ DIOEND @^@@@@-33 SMQUES 31.0@I@@@@ DIISTR YE )@@G@@ . DI2.00 @^@@@@YF )@@G@@-40 SMQUES 30.0@I@@@@ DIIEND YG )@@G@@ . DI2.00 @I@@@@ DIOSTR YH )@@G@@ . DI2.00 @I@@@@ YI )@@G@@ TNE,U A0,,A1 . IS IT BASE SEGMENT . DI2.YJ )@@G@@00 @ @@@@ J EMPRTN @I@@@@ LSSL A0,1YK )@@G@@8 . SAVE BASE SEG. ADDR . DI2.00 @I@@@@ YL )@@G@@ LXM,U A0,,A1 . DI2.YM )@@G@@00 @I@@@@ AN,U A0,1 . CLOSE CHAIN OVER EMPYN )@@G@@TY . DI2.00 @I@@@@ DIOEND YO )@@G@@ . DI2.00 @^@@@@-43 SMQUES 30.0YP )@@G@@@I@@@@ DIISTR YQ )@@G@@ . DI2.00 @^@@@@-44 SMQUES 30.0@I@@@@ DIIEND YR )@@G@@ . DI2.00 @I@@@@YS )@@G@@ DIOSTR YT )@@G@@. DI2.00 @I@@@@ TZ,U 0,A2 . WAS THIS THE LYU )@@G@@AST QUE SEG. . DI2.00 @I@@@@ DIOEND YV )@@G@@ . DI2.00 @^@@@@-46 SMQUES YW )@@G@@ 30.0@I@@@@ DIISTR YX )@@G@@ . DI2.00 @^@@@@-50 SMQUES 31.0@I@@@@ DIYY )@@G@@IEND . DI2.00 YZ )@@G@@@I@@@@ DIOSTR ZA )@@G@@ . DI2.00 @I@@@@ SSC A0,18 ZB )@@G@@ . DI2.00 @I@@@@ SMCTS BASETS ZC )@@G@@ . DI2.00 @I@@@@ SSZD )@@G@@L A0,18 . DI2.00 ZE )@@G@@@I@@@@ J EXREL . RELEASE SEG AND RETURN ZF )@@G@@ . DI2.00 @I@@@@ DIOEND ZG )@@G@@ . DI2.00 @^@@@@-71 SMQUES 31.0@#@@@@ZH )@@G@@ DIISTR @^@@@@-73 SMQUES 31.0@#@@@@ DIIEND ZI )@@G@@@#@@@@ DIOSTR @D@@@@ L,U A0,,X11 . SAVE RETURZJ )@@G@@N POINT @^@@@@ XER11 0101@C@@@@ DIOEND ZK )@@G@@ . QUE BASE = 0 @^@@@@-98 SMQUES 31.0@I@@@@ DIZL )@@G@@OSTR . DI2.00 ZM )@@G@@@I@@@@ . THIS ROUTINE HAS BEEN MADE REGISTER INDEPENDANT FOR DEMAND INTZN )@@G@@ERFACE. DI2.00 @I@@@@ LXI,U A0,0 ZO )@@G@@ . DI2.00 @I@@@@ DIOEND ZP )@@G@@ . DI2.00 @^@@@@-102 SMZQ )@@G@@QUES 31.0@I@@@@ DIISTR ZR )@@G@@ . DI2.00 @^@@@@-103 SMQUES 31.0@I@@@@ ZS )@@G@@ DIIEND . DI2.ZT )@@G@@00 @I@@@@ DIOSTR ZU )@@G@@ . DI2.00 @I@@@@ L,U A1,,A0 . SEZV )@@G@@T BASE AS CURRENT SEG . DI2.00 @I@@@@ DIOEND ZW )@@G@@ . DI2.00 @^@@@@-131 ZX )@@G@@ SMQUES 31.0@I@@@@ DIISTR ZY )@@G@@ . DI2.00 @^@@@@-132 SMQUES 31.0@I@@@@ZZ )@@G@@ DIIEND AA )@@G@@. DI2.00 @I@@@@ DIOSTR AB )@@G@@ . DI2.00 @I@@@@ L,U A0,,A2 AC )@@G@@ . DI2.00 @I@@@@ DIOEND AD )@@G@@ . DI2.00 @^@@@@AE )@@G@@-135 SMQUES 31.0@#@@@@ DIOSTR @ @@@@ LXI AF )@@G@@ A2,TAL @#@@@@ DIOEND @^@@@@-139 SMQUES 31.0@#@@@@AG )@@G@@ DIISTR @^@@@@-140 SMQUES 31.0@#@@@@ DIIEND AH )@@G@@@#@@@@ DIOSTR @ @@@@ SSL A2,18 @A@@@@ AI )@@G@@ D SDEX1,INDEF,A2 @#@@@@ DIOEND @^@@@@-143 SMAJ )@@G@@QUES 31.0@I@@@@ DIISTR AK )@@G@@ . DI2.00 @^@@@@-145 SMQUES 31.0@I@@@@ AL )@@G@@ DIIEND . DI2.AM )@@G@@00 @I@@@@ DIOSTR AN )@@G@@ . DI2.00 @I@@@@ L,U A0,,X11 AO )@@G@@ . DI2.00 @D@@@@ XER11 0101AP )@@G@@ . QUE BASE = 0 @I@@@@ DIOEND AQ )@@G@@ . DI2.00 @^@@@@-155 SMQUES AR )@@G@@ 31.0@#@@@@ DIISTR @^@@@@-157 SMQUES 31.0@#@@@@ AS )@@G@@ DIIEND @#@@@@ DIOSTR @E@@@@ L,U A2,,A1 AT )@@G@@ . SAVE LAST QUE SEG. @D@@@@ LXI,U A2,,A0 AU )@@G@@ . SAVE QUE BASE @#@@@@ DIOEND @^@@@@-159 SMQUES 31.0AV )@@G@@@#@@@@ DIISTR @^@@@@-162 SMQUES 31.0@#@@@@ DIAW )@@G@@IEND @#@@@@ DIOSTR @ @@@@ L,U A1,,A2 @ @@@@AX )@@G@@ SSL A2,18 @ @@@@ LXI,U A0,,A2 @ @@@@AY )@@G@@ L,U A2,,A0 @#@@@@ DIOEND @^@@@@-174 SMAZ )@@G@@QUES 30.0@#@@@@ DIISTR @^@@@@-176 SMQUES 30.0@#@@@@BA )@@G@@ DIIEND @#@@@@ DIOSTR @ @@@@ L,U A5,,BB )@@G@@A1 @E@@@@ L,U A1,(SEGSIZ-3)/2-2 . GET NO. ENTRIES - 2 BC )@@G@@@ @@@@ LXI A1,KM1 @G@@@@ S A5,BEGSEG BD )@@G@@ . PUT BEGIN OF SEG IN EACH ENTRY @#@@@@ DIOEND @^@@@@BE )@@G@@-178 SMQUES 30.0@#@@@@ DIISTR @^@@@@-182 SMQUES BF )@@G@@ 30.0@#@@@@ DIIEND @#@@@@ DIOSTR @ @@@@ JMBG )@@G@@GI A1,$-3 @F@@@@ SZ SMQLNK . CLEAR LIBH )@@G@@NK IN LAST ENTRY @ @@@@ S A5,BEGSEG @E@@@@ J BI )@@G@@ CHKFUL . START ALL OVER AGAIN@#@@@@ DIOEND BJ )@@G@@@ @@_@-448 SMQUES 31.241 @I@@@@ DIOSTR BK )@@G@@ . DI2.00 @I@@@@P PRBL )@@G@@OC . DI2.00 BM )@@G@@@I@@@@QUEQE1* NAME BN )@@G@@ . DI2.00 @I@@@@ + 0 BO )@@G@@ . DI2.00 @I@@@@* QGEN P(1,1) BP )@@G@@ . ACTUAL QUEUE . DI2.00 @I@@@@ ENBQ )@@G@@D . DI2.00 BR )@@G@@@I@@@@I DO 2*DMRMAX ,QU(I) QUEQE1 5 BS )@@G@@ . DI2.00 @I@@@@SMDMQT* . TABLE OF ABOVE QUEUES BT )@@G@@ . DI2.00 @I@@@@I DO DMRMAX , + QUBU )@@G@@(2*I-1),QU(2*I) . DI2.00 @I@@@@ + BV )@@G@@ 0 . EXPANSION CHAIN BASE FOR SMDMWQ . DI2.00 BW )@@G@@@C@@@@DINQE EQU (DMTMAX/2)*(DMTMAX>20)+; @G@@@@ BX )@@G@@ 10*(DMTMAX<21) . NO. QUE ENTRIES = GREATER OF @F@@@@ BY )@@G@@ . HALF NO. SITES OR 10 @D@@@@SMDMWQBZ )@@G@@* QGEN DINQE . DI WORK QUE @I@@@@EXPAQE EQU CA )@@G@@ $-1 . END OF EXPANSION QUE AREA . DI2.00 @I@@@@CB )@@G@@ DIOEND CC )@@G@@. DI2.00 ___ SMQUES 31.0@#@@@@ DIISTR @^@@@@-157 SMCD )@@G@@*[@@@@*SDFF*@^@@@@-47 PRTCON 30.0@#@@@@ DIOSTR @ @@@@CE )@@G@@ LMJ X11,SYCKDI@E@@@@ J NOINF CF )@@G@@ . JUMP IF DI SITE @#@@@@ DIOEND @^@@@@-419 PRTCON CG )@@G@@ 31.0@#@@@@ DIISTR @^@@@@-420 PRTCON 31.0@#@@@@ CH )@@G@@ DIIEND @#@@@@ DIOSTR @D@@@@ SSC A2,1 CI )@@G@@ . DIVIDE BY 2 @^@@@@ TP UA2 @E@@@@ A,CJ )@@G@@U A2,1 . ADD 1 IF REMAINDER @E@@@@ LXI,U CK )@@G@@ A2,0 . CLEAR OUT REMAINDER @#@@@@ DIOEND @^@@@@CL )@@G@@-432 PRTCON 31.0@#@@@@ DIISTR @^@@@@-433 PRTCON CM )@@G@@ 31.0@#@@@@ DIIEND @#@@@@ DIOSTR @F@@@@ J CN )@@G@@ IMERDI . CHECK DI BEFORE IMAGE ERR @ @@@@NORM1DI . ITCO )@@G@@ IS DI, CONTINUE @#@@@@ DIOEND @^@@@@-438 PRTCON 31.0CP )@@G@@@#@@@@ DIOSTR @B@@@@NORM2DI . RETURN FROM IMGER1 FOR DI SITE CQ )@@G@@@#@@@@ DIOEND @^@@_@-444 PRTCON 31.0@#@@_@ DICR )@@G@@OSTR @D@@_@ LMJ X11,SYCKDIR . SKIP IF DI @#@@_@CS )@@G@@ DIOEND @^@@@@-459 PRTCON 31.0@#@@@@ DIOSTR CT )@@G@@@ @@@@IMERDI LMJ X11,SYCKDI@E@@@@ J NORM1DI CU )@@G@@ . CONTINUE FOR DI @E@@@@ J IMGERR CV )@@G@@ . TO IMGERR IF NOT DI @#@@@@ DIOEND @^@@@@-480 PRTCON CW )@@G@@ 31.0@#@@@@ DIOSTR @ @@@@ LMJ X11,SYCKDI@E@@@@CX )@@G@@ J NORM2DI . NORMAL RTN FOR DI @#@@@@ CY )@@G@@ DIOEND @^@@_@-605 PRTCON 31.0@#@@@@ DIOSTR @ @@@@CZ )@@G@@ LMJ X11,SYCKDI@F@@@@ J NOTCNT DA )@@G@@ . BYPASS IF DEMAND (DI) @#@@@@ DIOEND @^@@_@-632 PRDB )@@G@@TCON 31.0@#@@_@ DIOSTR @B@@_@ LMJ X11,SYCKDIDC )@@G@@ .!@F@@_@ J NORM . DAKE BLANK MDD )@@G@@OVE IF DI @#@@_@ DIOEND @^@@_@-652 PRTCON 31.0@#@@_@DE )@@G@@ DIOSTR @ @@_@ LMJ X11,SYCKDI@E@@_@ J DF )@@G@@ RELHD1 . QUIT IF DI SITE @#@@_@ DIOEND DG )@@G@@___^@)^@)E[ME-#D9I^@)^@)AS1 00@A@@_@ *6A@5^@)^@)^@)E[ME-#D9I^@)^@)AS1 00DH )@@G@@@^@@@@^@)^@)^@)^@)^@)C-D*[@@@@*SDFF*@^@@@@-254 XKEY 31.0@I@@@@DI )@@G@@ DIOSTR DJ )@@G@@. DI2.00 @F@@@@ TOP,U A3,WESBIT . ALSO CHECK FORDK )@@G@@ WEST$ WAIT @I@@@@ DIOEND DL )@@G@@ . DI2.00 @^@@@@-291 XKEY 31.0@#@@@@ DM )@@G@@ DIOSTR @E@@@@ JZ A0,XKEY7A . SKIP ACT IF NODN )@@G@@ SWL @#@@@@ DIOEND @^@@@@-424 XKEY 31.0@I@@@@ DO )@@G@@ DIOSTR . DI2.DP )@@G@@00 @I@@@@ TEP,U A3,WESBIT DQ )@@G@@ . DI2.00 @I@@@@ J KEYWEST . USDR )@@G@@E USRACT FOR WEST$ ALSO . DI2.00 @I@@@@ DIOEND DS )@@G@@ . DI2.00 @^@@@@-426 DT )@@G@@ XKEY 31.0@I@@@@ DIOSTR DU )@@G@@ . DI2.00 @I@@@@KEYWEST . DV )@@G@@ . DI2.00 @I@@@@ DIDW )@@G@@OEND . DI2.00 DX )@@G@@@^@@@@-437 XKEY 31.0@#@@@@ DIISTR @^@@@@-438 XKDY )@@G@@EY 31.0@#@@@@ DIIEND @#@@@@ DIOSTR @A@@@@ DZ )@@G@@ L A3,QRD$DT,A1 @I@@@@ L A3,RQINDX EA )@@G@@ 00000200 @I@@@@ LMJ EB )@@G@@ X11,SYCKDIR 00000300 @I@@@@EC )@@G@@ J XKEY7 . J IF NOT DI ED )@@G@@00000400 @I@@@@ LXI,U A3,DIBKTD . TELL DI BRK T EE )@@G@@DONE 00000500 @I@@@@ L,U A0,SMDMWQ EF )@@G@@ 00000600 @I@@@@ R EG )@@G@@ SLXKY,SDEX1 00000700 @I@@@@EH )@@G@@ LMJ X11,SMQING . QUE DI MAIN ACTIVITY EI )@@G@@00000800 @I@@@@ D SDEX1,SLXKY,A4 EJ )@@G@@ 00000900 @#@@@@ DIOEND ___^@)^@)^@)^@)C-DEK )@@G@@D9 D1^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EL )@@G@@^@)^@)^@)^@)^@)^@) 0)C-DAK,A@0@A@@@@ *2BC1^@)^@)*[@@@@*SDFF*@A@@_@-438,4EM )@@G@@38/0,1/434,440 VALA 31.241@A@@@@. >>> BEGIN NYU LOCAL CODE >>>EN )@@G@@@D@@@@ L R3,A0 . SAVE A0 @[@@@@. EO )@@G@@@E@@@@. CHECK FOR JK6 OR DONFLG TO SEE IF OP HAS ALLOWED @B@@@@EP )@@G@@. (OR DISALLOWED) DEMAND JOBS. @[@@@@. @G@@@@ JKEQ )@@G@@ 6,$+3 . HOLD ALL DEMANDS IF JK6 SET @G@@@@ ER )@@G@@ TNZ DONFLG . HAS OP KEYED IN 'D ON' YET? @ @@@@ES )@@G@@ ON LOGONS=0 @D@@@@ J U1A ET )@@G@@ . YES, SIGN ON@ @@@@ OFF LOGONS=0 @ @@@@ ONEU )@@G@@ LOGONS=1 @G@@@@ J JPN . YES, CEV )@@G@@ONTINUE PASSWORD CHECK @ @@@@ OFF LOGONS=1 @[@@@@. EW )@@G@@@E@@@@. NO DEMAND TERMINAL INITIALIZATION IS DESIRED. @D@@@@EX )@@G@@. TELL THE USER THAT THE SYSTEM IS BUSY, AND @A@@@@. CAEY )@@G@@LL RSI TO TERMINATE HIM.@[@@@@. @F@@@@ OUTPT QBSY EZ )@@G@@ . 1108 BUSY, TRY LATER @E@@@@ FIXENDR R3 FA )@@G@@ . CLEAR IN-USE BITS @D@@@@ L A0,R3 FB )@@G@@ . RESTORE FCT @E@@@@ SSL A0,18 . GET JUFC )@@G@@ST IFCT @B@@@@ L,U A1,2000 . @D@@@@ FD )@@G@@ ER TWAIT$ . WAIT A BIT @F@@@@ LMJ FE )@@G@@ X11,RSTERM . TERMINATE EVERYTHING @D@@@@ FUNCE FF )@@G@@ . GO AWAY @ @@_@ OFF RSICNT FG )@@G@@@ @@@@ ON LOGONS=1 @]@@@@JPN . @A@@@@. <<< FH )@@G@@ END NYU LOCAL CODE <<<___D))^@)^@)^@)^@)CC0 -MAS)^@)^@)^@)^@)^@)^@)^@)FI )@@G@@ 0)EL ETOD9MC*)C1#E))^@)@I@@@@^@)^@)^@)^@)^@)ETND))^@)^@)^@)CC0 )1B@)^@)FJ )@@G@@*[@@@@*SDFF*@^@@_@-47 DMIINT 4.0 @A@@@@. >>> BEGIN NYU LOFK )@@G@@CAL CODE >>>@A@@_@ L A0,('TRN001') @E@@_@ TNFL )@@G@@E A0,PRVSID . STARTING TRNAC? @F@@_@ J FM )@@G@@ NYUOK . YES, LET IT THROUGH @E@@@@ JK FN )@@G@@ 6,ERRTMT . NO DI IF JK 6 SET @G@@@@ TZ DONFFO )@@G@@LG . OR IF 'D ON' NOT KEYED IN @F@@@@ J FP )@@G@@ ERRTMT . @]@@_@NYUOK . @A@@@@FQ )@@G@@. <<< END NYU LOCAL CODE <<<___^@)^@)^@)^@)^@)^@)^@) 0)D9M^[DC0)FR )@@G@@^9^^[JD0$^[ID9O^[FC(TC(^^[DD0)@L@@@@^@)^@)^@)^@)^@)DK)^@)^@)^@)^@)C(MELOFS )@@G@@D(O^@)^@)^@)^@)^@)^@)^@)*[@@@@*SDFF*@ @@_@-151,151 MCT 31.244 FT )@@G@@@E@@_@. CCF*** INHIBIT AUTO-REBOOT IF TAPE BOOT DID NOT COMPLETE.@H@@_@FU )@@G@@ + 0,REBOOTCT-1,MCTLGH . REBOOTS,UNSUCC REBOOTS,MCT LENFV )@@G@@GTH ___CLJD9O^[^DD^^[ID9O^[#D9HE[GC(OC*,@N@@_@^@)^@)^@)^@)^@) S)^@)^@)FW )@@G@@^@)^@)A@?EL CLJD9OCTO *1 -HCTOD-BD@) 0)EL CLJD9OES?E(IETPCT#^[MC(]D9JE-NFX )@@G@@*[@@@@*SDFF*@#@@@@-1 PANWRT @B@@@@ PCT FY )@@G@@ . @#@@@@-6 PANWRT @F@@@@DMPFIL EQUF 016,X9 FZ )@@G@@ . FILE NAME OF RAW DUMP @#@@@@-36,37 PANWRT @H@@@@. 016 GA )@@G@@* FILE NAME FOR MEMORY COPY * DMPFIL GB )@@G@@@G@@@@. 017 * SWAP$FILE OR SYM$$$NNNNNN GC )@@G@@* @#@@@@-67 PANWRT @E@@@@ DL A3,SFNAME GD )@@G@@ . $P GET SWAPFILE NAME@D@@@@ J SWAPAN . $JGE )@@G@@ SWAPAN @[@@@@. @B@@@@. ENTERED FROM ON LINE DUMP ROUTINE WITH: GF )@@G@@@B@@@@. A0=ADDRESS OF 255 WORD EXPOOL BUFFER @#@@@@. BUFFER CONTAINS:GG )@@G@@@B@@@@. WORDS 0,1 = FILE NAME OF MEMORY DUMP @E@@@@. WORD 2 = T1,NUMBGH )@@G@@ER OF TRACKS T2,T3,STARTING DRUM ADDRESS @[@@@@. @D@@@@PANFIL* GI )@@G@@ . $H PANFIL @E@@@@ DL A3,0GJ )@@G@@,A0 . $P GET FILE NAME @F@@@@ L A2,2,A0 GK )@@G@@ . $P GET FILE DESCRIPTOR @B@@@@SWAPAN GL )@@G@@ . @#@@@@-73 PANWRT @E@@@@ DS A3,DMPFIL GM )@@G@@ . $P SAVE FILE NAME @#@@@@-100 PANWRT @E@@@@ TOGN )@@G@@P A0,CONST(1*/33) . $T ALREADY ASSIGNED?@#@@@@-123,123 PANWRT GO )@@G@@@F@@@@ DL A0,DMPFIL . $P FILE NAME OF RAW DUMP GP )@@G@@@#@@@@-340,340 PANWRT @B@@@@ DL A0,DMPFIL . GQ )@@G@@@F@@@@ DTE A0,SFNAME . $T IS DUMP FROM SWAPFILE? GR )@@G@@@E@@@@ J NOTSWP . $A NO,NOTSWP YES @#@@@@GS )@@G@@-364 PANWRT @B@@@@NOTSWP . @F@@@@GT )@@G@@ L A2,TAPFRE . $P SET UP TO FREE FILE @B@@@@GU )@@G@@ L,U A3,CSFPKT . @E@@@@ LXI,U A3,3GV )@@G@@ . LENGTH OF IMAGE @B@@@@ DS A0,CSFPKT+GW )@@G@@1 . @B@@@@ S A2,CSFPKT . @B@@@@ GX )@@G@@ S A3,CSFCTL . @B@@@@ L A0,X9 GY )@@G@@ . @F@@@@ WLINKI ,PNCSFA . $W PNCSFA - FRGZ )@@G@@EE FILE @B@@@@ L X9,A0 . @C@@@@ HA )@@G@@ J EXIT3 . $J EXIT3___^@)^9^E(HE@$ )0 -ND-NFDH^@)HB )@@G@@^@) 0)D9I (GDDIC*)E[[D1D*[@@@@*SDFF*@^@@@@-124 PCT 31.0@E@@_@HC )@@G@@SLDUMP* EQU SWL(EX3,GA) . ON LINE PANIC DUMP@^@@@@-1103 HD )@@G@@ PCT 31.0@I@@@@ DMICON . CALL TO DEFINE O.I. CONFIGHE )@@G@@ . DI2.00 @I@@@@ DIISTR HF )@@G@@ . DI2.00 @^@@@@-1104 PCHG )@@G@@T 31.0@I@@@@ DIIEND HH )@@G@@ . DI2.00 @I@@@@ DIOSTR HI )@@G@@ . DI2.00 @C@@@@MAXDEM* EQU HJ )@@G@@ (MAXDOPT>0)+RSICNT+DMTMAX @I@@@@ DIOEND HK )@@G@@ . DI2.00 @^@@@@-1278 PCT HL )@@G@@ 31.0@I@@@@ DIISTR HM )@@G@@ . DI2.00 @^@@@@-1279 PCT 31.0@I@@@@ DIHN )@@G@@IEND . DI2.00 HO )@@G@@@I@@@@ DIOSTR HP )@@G@@ . DI2.00 @I@@@@USC(0) EQU R2Z+1 HQ )@@G@@ . DI2.00 @I@@@@R2DMI1 EQU USC(0) HR )@@G@@ . DI2.00 @I@@@@R2DMI2 EQHS )@@G@@U R2DMI1+1 . DI2.00 HT )@@G@@@I@@@@R2DMI3 EQU R2DMI2+1 HU )@@G@@ . DI2.00 @I@@@@USC(0) EQU R2DMI3+1 HV )@@G@@ . DI2.00 @I@@@@R222 EQU USC(0) HW )@@G@@ . R222 MUST . DI2.00 @I@@@@ DIHX )@@G@@OEND . DI2.00 HY )@@G@@@^@@@@-1903 PCT 31.0@G@@@@PCDMOT EQUF I$BIT+R2DMI1,,H1HZ )@@G@@ . DI OUTPUT COMPLETION QUE ADDR @G@@@@PCDMIN EQUF I$BIT+R2DMIA )@@G@@I1,,H2 . DI INPUT COMPLETION QUE ADDR @F@@@@PCDMMS EQUF I$BIIB )@@G@@T+R2DMI2,,S3 . DI T-O MSG PRINTED FLAG @F@@@@PCDMCS EQUF I$BIIC )@@G@@T+R2DMI2,,S4 . DI CALL CSA WHEN PCDMCT=0 @F@@@@PCDMCT EQUF I$BIID )@@G@@T+R2DMI2,,T3 . DI NO. OF ACTIVE TERMINALS@G@@@@PCDMSO EQUF I$BIIE )@@G@@T+R2DMI3,,H1 . DI OUTPUT COMPLETION SWL ADDR @G@@@@PCDMSI EQUF IF )@@G@@ I$BIT+R2DMI3,,H2 . DI INPUT COMPLETION SWL ADDR @^@@@@-2580,2580 PIG )@@G@@CT 31.0@F@@@@WESBIT EQU 010 . WAIT BIT FOR EIH )@@G@@R WEST$ @#@@@@-3873/0,1 PCT @^@@@@-3875,3875/0,1 PCT @^@@@@II )@@G@@-3877,3880/0,3 PCT @A@@@@-3885,3885/0,1/3876,3889 PCT @E@@@@IJ )@@G@@ L,U A3,2,A0 . LOCATION OF IMAGE @E@@@@ IK )@@G@@ LXI,U A3,15 . CHARACTER COUNT @C@@@@ L,IL )@@G@@H1 A4,0,A0 . KEYIN @E@@@@ SZ 0,A0 IM )@@G@@ . NO CONTROL BITS @G@@@@ FIELDATA IN )@@G@@ . MAKE SURE WE ARE IN FIELDATA @E@@@@ L A1,TAB('KEIO )@@G@@Y ER') . KEY ERROR MESSAGE @B@@@@ LXI,U A2,'ROR' IP )@@G@@ . @G@@@@ DS A3,1,A0 . OUTPUT ACW, NO INPUTIQ )@@G@@ AND KEYIN @D@@@@ DS A1,3,A0 . KEY ERROR IR )@@G@@@C@@@@ ER COM$ . DISPLAY @D@@@@ EXIS )@@G@@RELP A0 . RELEASE BUFFER@^@@@@-4491 PCT 31.0IT )@@G@@@I@@@@ DIOSTR IU )@@G@@ . DI2.00 @I@@@@ ENTGEN 'DMITRM',005,SLSYM IV )@@G@@ . DI2.00 @I@@@@ ENTGEN 'DMIINT',0IW )@@G@@04,SLSYM . DI2.00 @I@@@@ DIIX )@@G@@OEND . DI2.00 IY )@@G@@@ @@@@-4644/1 PCT 31.244 @E@@@@ ENTGEN 'DUMP',0,SIZ )@@G@@LSYM . ON LINE PANIC DUMP___ DIOSTR JA )@@G@@ . DI2.00 @I@@@@*[@@@@*SDFF*@^@@@@-1038,JB )@@G@@1049 INDRIV 31.0@A@@@@/. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. JC )@@G@@@B@@@@. 'SYS' CONDITION WORD SETTINGS: @[@@@@. @]@@@@. JD )@@G@@ S3@]@@@@. --@^@@@@. 00 - DRUM @^@@@@. 01JE )@@G@@ - TAPE @[@@@@. @[@@@@. @]@@@@. S4@]@@@@. --JF )@@G@@@ @@@@. 00 - NO SWITCHES @^@@@@. 01 - SWITCH 4 @ @@@@JG )@@G@@. 02 - SWITCH 4/13 @ @@@@. 03 - SWITCH 4/9 @^@@@@JH )@@G@@. 04 - SWITCH 9 @[@@@@. @[@@@@. @[@@@@. @E@@@@ JI )@@G@@ TZ,S3 SPUACUFLG . RECOVERY BOOT? @E@@@@ J JJ )@@G@@ SUB4AGN . YES,SUB4AGN NO @D@@@@ L,U JK )@@G@@ A4,'3' . 4/9 BOOT? @E@@@@ JK 9,SUB9 JL )@@G@@ . MAYBE,SUB9 NO @D@@@@ L,U A4,'2' JM )@@G@@ . 4/13 BOOT? @G@@@@ JK 13,CANCW2 . YES,CAJN )@@G@@NCW2 (13 IMPLIES 4/13) @D@@@@ L,U A4,'1' . JO )@@G@@JK4 ONLY? @E@@@@ JK 4,CANCW2 . YES,CANCW2 JP )@@G@@ NO @E@@@@SUB4AGN L,U A4,'0' . ASSUME NO SWITCHESJQ )@@G@@@G@@@@ JK 9,SUB9+1 . IF 9 SET, IT'S A DRUM 9 JR )@@G@@BOOT @B@@@@ J CANCW2 . @D@@@@SUB9 JKJS )@@G@@ 4,CANCW2 . REALLY 4/9? @F@@@@ L,U A4,'JT )@@G@@4' . YES,CANCW2 NO,JUST 9 @A@@@@. <<< END NYU LOCJU )@@G@@AL CODE <<<@^@@@@-1136,1148 INDRIV 31.0@A@@@@. >>> BEGIN NYU LOJV )@@G@@CAL CODE >>>@[@@@@. @ @@@@. FAKE 'C ID' KEYIN @[@@@@. JW )@@G@@@E@@@@ LMJ X11,EX31P . GET EXPOOL BUFFER @B@@@@JX )@@G@@ L A4,('C ',02) . @D@@@@ L A5,(JY )@@G@@'ID ') . FAKE 'C ID' @F@@@@ DS A4,0,A0 JZ )@@G@@ . STORE AS IF KEYED IN @D@@@@ FSTART CKEY KA )@@G@@ . START CKEY @A@@@@. <<< END NYU LOCAL CODE <<<@B@@_@. CCF*KB )@@G@@** FIX TO BOOT WITH PAGEWRTR OFFLINE@#@@_@-1152,1152 INDRIV @ @@_@ KC )@@G@@ L,U A3,CNSN @ @@_@ L,U R1,8,A3 @^@@@@-1177,KD )@@G@@1179 INDRIV 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. KE )@@G@@@B@@@@. HOLD ALL RUNS UNLESS UNATTENDED @[@@@@. @F@@@@ KF )@@G@@ JK 11,NOREC . ALLOW RUNS IF UNATTENDED@A@@@@. KG )@@G@@ <<< END NYU LOCAL CODE <<<@^@@@@-1183 INDRIV 31.0@]@@@@. NYU*KH )@@G@@** @H@@@@ SZ DONFLG . TURN ON DEMANDS (DKI )@@G@@ONFLG IN LOCTAB) @^@@@@-1184 INDRIV 31.0@]@@@@. NYU*** @F@@@@KJ )@@G@@ SZ,H1 CORFL2 . SZ IN MAX EXPOOL USED @^@@@@KK )@@G@@-1239,1241 INDRIV 31.0@F@@@@ '@RUN SYS,0-0040-167OV,SUNSHINE,KL )@@G@@20,200 . ' . NYU*** @^@@@@-1256,1256 INDRIV 31.0@F@@@@CNTST2 '@KM )@@G@@TEST TE/1/S4,TE/2/S4,TE/3/S4 . JK4 SET?' . NYU*** @^@@@@*. CAT RUN$ KN )@@G@@READ-ONLY @^@@@@-1260,1260 INDRIV 31.0@]@@@@. NYU*** @B@@@@CNASG2KO )@@G@@ '@ASG,CPRG SYS$*RUN$//RUKENY,F2'@ @@@@*. RUN$ IS IN COPY,G FORMAT KP )@@G@@@]@@@@-1262,1262- @#@@@@/COPIN/COPY,G/ @^@@@@-1266,1266 INDRIV 31.0KQ )@@G@@@]@@@@. NYU*** @C@@@@CNASG3 '@LABELA: ASG,A SYS$*RUN$//RUKENY' KR )@@G@@@B@@@@*. DO AN @ADD OF RUN$.BOOT31, NOT BOOTELT @]@@@@-1268,1268- @#@@@@KS )@@G@@/BOOTELT/BOOT31/ ___@@@. 04 - SWITCH 9 @[@@@@. @[@@@@. KT )@@G@@*[@@@@*SDFF*@ @@@@-2723/31,36 DC 31.244 @^@@@@. CCF*** FIX 230 KU )@@G@@STOPS @G@@@@ L A0,EA6 . A0 = NR WORDS TRANKV )@@G@@SFERRED @B@@@@ DSL A0,36 . @G@@@@ KW )@@G@@ DI A0,STWPR,X10 . A0 = NR RECORDS TRANSFERRED @^@@_@KX )@@G@@ AN,U A0,1@ @@_@ JZ A0,0,X9 @ @@_@ KY )@@G@@ JN A0,0,X9 @G@@@@ MSI A0,STWPR,X10 . KZ )@@G@@A0 = NR RECORDS MULT. BY WORDS@C@@@@ LA )@@G@@ . $E ___BC)@M@@@@^@)^@)^@)^@)^@)D(NDC)^@)^@)^@)CC0 -NE-RE[M -SAC0LB )@@G@@^@)^@)^@)^@) 0)CC0^@.^[IEK)EL CTJEL^ES)D(PD-O 0)CLT^[RD9MC-N@L_@@@^@)^@)LC )@@G@@^@)^@)^@)DLU^@)^@)^@)^@)*[@@@@*SDFF*@]@@_@-181,181- @#@@_@/SET* /SETB*LD )@@G@@/ ___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@]@@_@-47,47LF )@@G@@- @]@@_@/SET /SETB/ @]@@_@-109,109- @]@@_@/SET /SETB/ @]@@_@-116,1LG )@@G@@16- @]@@_@/SET /SETB/ @ @@@@-138/5 GENCCR 31.241 @]@@@@. NYU*LH )@@G@@** @ @@@@ ON GCCPUN>0 @ @@@@-138/9 GENCCR 31.2LI )@@G@@41 @]@@@@. NYU*** @ @@@@ OFF GCCPUN>0 ___@@@ 0)D1TLJ )@@G@@E*% K%@B@@@@^@)^@)^@)^@)*[@@@@*SDFF*@^@@_@-169 EXITF0 31.0@A@@_@LK )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@_@. @F@@_@. GWB 4/16/LL )@@G@@72 FREE F FORMAT FILES ASSIGNED WITH 'E' OPTION@[@@_@. @B@@_@SAVR3 LM )@@G@@ EQUF 6,A0 . @G@@_@THENAMES EQUF 4,A0,H2 LN )@@G@@ . START OF CURRENT NAME BUFFER @[@@_@. @F@@_@. FRLO )@@G@@EE ALL MASS STORAGE FILE ASSIGNED WITH 'E' OPTION @H@@_@. TOLP )@@G@@ ALLOW PROCESSORS ACCESSING COMMON FILES SOME PROTECTION FROM @ @@_@LQ )@@G@@. 'BREAK-X' ON TTY @H@@_@. MUST BE DONE AFTER CLEARINLR )@@G@@G EN & SHOULD BE DONE BEFORE PCT WRITE @A@@_@. GWB 16 APR 72 LS )@@G@@- UOM CSC @F@@_@ EXGET 7 . $P GET SAVE/COLT )@@G@@NTROL BUFF @B@@_@ S R3,SAVR3 . @]@@_@REDOITLU )@@G@@ . @E@@_@ S A0,R2 . $P SAVE BUFFER ADDR LV )@@G@@@B@@_@ GETSWL A2 . @D@@_@ L LW )@@G@@ A2,SD,A2 . $P GET PCT @G@@_@ L,U A2,PCTNAM,LX )@@G@@A2 . $P GET START OF NAME SECTION @D@@_@ J GETNLY )@@G@@AME . $J GETNAME @]@@_@REGET . @F@@_@ L LZ )@@G@@ A2,THENAMES .. $P GET LAST NAME BUFFER @F@@_@ TNZ,H2 MA )@@G@@ *0,A2 . $T ANY MORE NAME BUFFERS @D@@_@ J MB )@@G@@ NOASGE . $J NOASGE @B@@_@ A,H2 A2,*0,A2 MC )@@G@@ . @]@@_@GETNAME . @G@@_@ S A2,THENAMES MD )@@G@@ . $P SAVE START OF CURRENT BUFFER @B@@_@ LXI,U A2,3 ME )@@G@@ . @B@@_@ L,S3 R1,*0,A2 . @]@@_@NEXTITMF )@@G@@M . @E@@_@ JGD R1,$+2 . $T ANY MORE FILES MG )@@G@@@G@@_@ J REGET . $J REGET END OF THIS BUFFEMH )@@G@@R @E@@_@ TZ,T1 *3,*A2 . $T EXTERNAL NAME MI )@@G@@@B@@_@ J NEXTITM . @F@@_@ L,H2 MJ )@@G@@ A3,*0,A2 . $P GET LINK TO FAC SECTION@B@@_@ JZ MK )@@G@@ A3,NEXTITM . @F@@_@ A A3,THENAMES . $PML )@@G@@ CONVERT TO ABSOLUTE @F@@_@ L A4,PCFEQT,A3 . $PMM )@@G@@ EQUIPMENT TYPE TO A4 @F@@_@ TG,U A4,030 . $TMN )@@G@@ IS FILE FASTRAND TYPE @B@@_@ TG,U A4,037+1 . MO )@@G@@@D@@_@ J NEXTITM . $J NEXTITM NO@F@@_@ MP )@@G@@ L,H1 A4,PCFASG,A3 . $P GET ASSIGNMENT OPTIONS @E@@_@ MQ )@@G@@ TOP,U A4,1*/('H'-'E') . $T E OPTION SET @D@@_@ J MR )@@G@@ NEXTITM . $J NEXTITM NO @I@@_@ XOR,U A4,1MS )@@G@@*/('H'-'E') . $P CLEAR IT IS CASE ANYTHING GOES WRONG @B@@_@ MT )@@G@@ S,H1 A5,PCFASG,A3 . @B@@_@. E OPTION ON - FREE TMU )@@G@@HE FILE @E@@_@ EXGET 31 . $P GET INFOR BMV )@@G@@UFFER @B@@_@ L A1,UR2 . @B@@_@ DSMW )@@G@@C A0,36 . @D@@_@ SZ 0,A1 MX )@@G@@ . CLEAR LINKS @G@@_@ DL A4,FREECW . $P SET SMY )@@G@@TATEMENT TYPE & QUAL CW @B@@_@ DS A4,1,A1 . MZ )@@G@@@E@@_@ A A3,PCFQIN,A3 . $P LINK TO QUALIFIER@B@@_@NA )@@G@@ DL A4,*1,A3 . @B@@_@ DS A4,3NB )@@G@@,A1 . @F@@_@ ANU,U A2,3 . $P BACKUNC )@@G@@P TO FILE NAME @B@@_@ DL A4,*1,A3 . @B@@_@ND )@@G@@ DS A4,6,A1 . @B@@_@ L A4,FNE )@@G@@NCW . @B@@_@ S A4,5,A1 . @B@@_@NF )@@G@@ GETSWL X11 . @B@@_@ S X11,NG )@@G@@2,A0 . @G@@_@ LXI,U A1,01003 . $P SET INH )@@G@@NFOR COUNT, REQUEST TYPE@B@@_@ S A1,1,A0 . NI )@@G@@@F@@_@ L,U A1,1,A0 . $P BUILD POINTER TO DFTAB NJ )@@G@@@B@@_@ LXI,U A1,3 . @B@@_@ S NK )@@G@@ A1,0,A0 . @B@@_@ SWITCH SLEXT,SDFIQ,A4 . NL )@@G@@@B@@_@ QWLNKI,FIQUE FIMAIN . @B@@_@ SWITCH NM )@@G@@ SDFIQ,SLEXT,A4,X11. @D@@_@ J REDOIT . $JNN )@@G@@ REDOIT @ @@_@. START ALL OVER AGAIN@B@@_@. (SINCE TNO )@@G@@HINGS MIGHT HAVE MOVED) @[@@_@. @D@@_@FREECW + 022*/26 NP )@@G@@ . STATEMENT TYPE@B@@_@ + 010101001402 . NQ )@@G@@@G@@_@FNCW + 010102001402 . INFOR CONTROL WORD FOR FILNR )@@G@@E NAME@[@@_@. @]@@_@NOASGE . @B@@_@ L R3,SAVR3 NS )@@G@@ . @B@@_@ EXRELP A0 . @B@@_@. NT )@@G@@ NOW FIX UP THINGS THAT MOVED @[@@_@. @D@@_@ GETSWL NU )@@G@@ A0 . GET MY SWL @E@@_@ L A1,UR3 NV )@@G@@ . HIS (EXITED) SWL @E@@_@ L R2,SD,A0 NW )@@G@@ . CURRENT PCT LOC @D@@_@ L A2,SC,A1 . RENX )@@G@@LOCATE ASA @B@@_@ AN A2,SD,A1 . @B@@_@ NY )@@G@@ A A2,SD,A0 . @B@@_@ S A2,SC,A1 NZ )@@G@@ . @E@@_@ S R2,SD,A1 . NEW (?) PCT ADOA )@@G@@DRESS @D@@_@ L A0,UR2 . $P GET PCT @A@@_@OB )@@G@@. <<< END NYU LOCAL CODE <<<@^@@@@-596 EXITF0 31.0@I@@@@OC )@@G@@ DIOSTR OD )@@G@@. DI2.00 @ @@@@ L,U A1,CSA @I@@@@ TZ OE )@@G@@ PCDMCT,A0 . DI2.00 @I@@@@OF )@@G@@ L,U A1,DMITRM . DRIVER IS GONE, BUT NOT SITES OG )@@G@@. DI2.00 @I@@@@ DIOEND OH )@@G@@ . DI2.00 @^@@@@-598 EXITF0 31.0@#@@@@ OI )@@G@@ DIISTR @^@@@@-599 EXITF0 31.0@#@@@@ DIIEND ___4,FOJ )@@G@@REECW . $P SET STATEMENT TYPE & QUAL CW @B@@_@ DS OK )@@G@@ A4,1,A1 . @E@@_@ A *[@@@@*SDFF*@D@@@@-143 OL )@@G@@ TINTL 31.244 ***FIX BUSY REWI***@G@@@@ SZ OM )@@G@@ PCTTR,A3 . CLEAR TAPE REFERENCE IN CASE @E@@@@ ON )@@G@@ . OF A FIN OR FREE @F@@_@-361/0,0/361,361 OO )@@G@@TINTL 31.244 ***FIX BUSY REWI*** ___C1MC( ^@)@I_@@@ *3A01OP )@@G@@ )3A01^@)E-DD1OD))^@)^@)*[@@@@*SDFF*@ @@_@-4/3,4 FSMCT 31.244 OQ )@@G@@@A@@_@. CCF*** FIX 051 STOP (MV KEYIN) @#@@_@ EQUIPDEF@#@@_@OR )@@G@@ SGXDEF @ @@_@-431/249,249 FSMCT 31.244 @A@@_@. CCF*** FIOS )@@G@@X 051 STOP (MV KEYIN) @ @@_@ TEP,U A4,IQPT @ @@_@ OT )@@G@@ TNZ PTALT,A0 @ @@_@-431/301,301 FSMCT 31.244 @A@@_@. CCF*OU )@@G@@** FIX 051 STOP (MV KEYIN) @ @@_@ TEP,U A2,IQPT @ @@_@OV )@@G@@ TNZ PTALT,A1 ___A@1 )3A@1^@)C1HET#E))AS1 02A)4^@)@B@@_@OW )@@G@@ *4AS1 83A@1 )3A@1^@)C1N*[@@@@*SDFF*@F@@@@*. SYMPTOM: SYMB 03 ERROR OR 'OX )@@G@@RUNSTREAM ANALYSIS TERMINATED' ON @G@@@@*. CERTAIN BATCH JOBSOY )@@G@@ WHOSE @FIN IS CLOSE TO END OF GRANULE @D@@@@*. CAUSES I/O EOZ )@@G@@RROR FOR FACILITY SYNOPSIS. @F@@@@*. CHANGE: TO CAUSE LOOK-AHEAD TO RPA )@@G@@ECOGNIZE I/O ACTION, ALWAYS @F@@@@*. CHAIN AT LEAST 8 BUFFERSPB )@@G@@ EVEN IF I/O ERROR OCCURS. @[@@@@*. @[@@@@-68,74@D@@@@. 8 OR 9 2PC )@@G@@8 WORD EXPOOL BUFFERS. THE NUMBER OF @[@@@@-77 @G@@@@. LOOK AHEADPD )@@G@@ ASSUMES NOBS IS CORRECT ABOUT ISSUING I/O TO AVOID NOBS NOT@F@@@@. BEINPE )@@G@@G INCREMENTED BY AT LEAST 8, ALWAYS CHAIN IN AT LEAST 8 @[@@@@-87 PF )@@G@@@B@@@@ SSL A2,18 . @^@@@@ LXI,U PG )@@G@@ A2,1@[@@@@-90,90@I@@@@ . $C ALWAYSPH )@@G@@ SCATTER 8-MAYBE 9 IF I/O ERROR @H@@@@ PI )@@G@@ . $C IF LESS THAN 0340 WORDS WERE TRANS- @H@@@@ PJ )@@G@@ . $C FERRED, THE REMAINING BUFFERS UP TO @D@@@@ PK )@@G@@ . $C 8 ARE PADDED@G@@@@ L,U PL )@@G@@ X8,8 . $P I/O ERROR BUFFER INDCATOR TO 9@G@@@@ L,PM )@@G@@U R3,7 . $P NO OF BUFFERS IF NO I/O0ERROR @D@@@@ PN )@@G@@ TNZ DRSTAT . $T I/O ERROR? @F@@@@ J PO )@@G@@ GETBUF . $J NO, ASSUME 8 BUFFERS @F@@@@ SZ PP )@@G@@ X8 . $P START WITH 1 BUFFER @]@@@@-93,103 @G@@@@PQ )@@G@@ L,H2 A1,3,A0 . $P WORDS TRANSFERRED ON I/O ERRORPR )@@G@@@B@@@@ SZ UA0 . $P @H@@@@ DI,U PS )@@G@@ A0,28 . $P DETERMINE WHERE STATUS SHOULD GO @D@@@@ PT )@@G@@ TZ UA1 . $T REMAINDER @F@@@@ A,U PU )@@G@@ A0,1 . $P YES, PUT STATUS IN NEXT @F@@@@ L PV )@@G@@ X8,UA0 . $P # BUFFERS TO STATUS @E@@@@ TNE,U PW )@@G@@ A0,8 . $P NEED 9 BUFFERS? @C@@@@ L,U R3,8PX )@@G@@ . $P YES @]@@@@-106,106 @E@@@@ TZ X8 PY )@@G@@ . $T I/O BUFFER NOW? @]@@@@-110,111 @[@@@@-134 @G@@@@PZ )@@G@@ JGD X8,$+1 . $J DECREMENT I/O BUFFER COUNTER QA )@@G@@@]@@@@-146,146 @I@@@@. LEFT CHAINED TO UPDATE NOBS CORRECTLY FOR LAF QB )@@G@@FEATURE. IF 8 BUFFERS ARE USED, @]@@@@-159,160 @I@@@@ QC )@@G@@ . $C ALWAYS SCATTER 8-MAYBE 9 IF I/O ERROR QD )@@G@@@H@@@@ L,H2 A2,13,A0 . $P EBCL UNLESS 9TH NEEDED FQE )@@G@@OR I/O FLAG @D@@_@ L,U A1,8 . $P 8 BUFFERS QF )@@G@@@]@@@@-163,164 @]@@@@-179,179 @]@@@@-181,192 @[@@@@-193 @D@@@@QG )@@G@@ L R3,A1 . $P # BUFFERS @H@@@@ L QH )@@G@@ X11,6,A0 . $P BUFFER TO PUT I/O STATUS ON NO XFER @]@@@@QI )@@G@@-211,212 @E@@@@ L,U R3,8 . $P SET FOR 8 BUQJ )@@G@@FFERS @F@@@@ L X11,1,X11 . $P BUFFER FOR I/O STAQK )@@G@@TUS @D@@@@ L A2,13,A0 . $P EBCL (8TH) @]@@@@QL )@@G@@-215,216 @F@@@@ SN,XH1 A1,SMI,X11 . $P I/O FLAG IN QM )@@G@@8TH (OR 9TH)@[@@@@-222 @F@@@@ SZ SMIC,X11 . $P QN )@@G@@CLEAR CHAIN POINTER ___ORD EXPOOL BUFFERS. THE NUMBER OF @[@@@@QO )@@G@@-77 @G@@@@. LOOK AHEAD ASSUMES NOBS IS CORRECT*[@@@@*SDFF*@^@@@@-23 QP )@@G@@ UKEYIN 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@D@@@@ QQ )@@G@@ TNE,U A4,'MD' . $T MD KEYIN? @E@@@@ J QR )@@G@@ ARBEGIN . $A NO YES,ARBEGIN @A@@@@. <<< END NYU LOCQS )@@G@@AL CODE <<<@^@@@@-45 UKEYIN 31.0@A@@@@. >>> BEGIN NYU LOQT )@@G@@CAL CODE >>>@[@@@@. @G@@@@. THE MD-KEYIN ALLOWS THE CONSOLE QU )@@G@@OPERATOR TO ENTER A MESSAGE @G@@@@. OF UP TO 50 CHARACTERS THAQV )@@G@@T WILL BE DISPLAYED IMMEDIATELY @G@@@@. AFTER THE RUN CARD IQW )@@G@@N EACH PRINT FILE. IF THE FIRST CHARACTER@G@@@@. IN THE KEYIN IQX )@@G@@S A '*', THE CURRENT MESSAGE WILL BE DELETED. @F@@@@. IF THEREQY )@@G@@ ARE NO CHARACTERS FOLLOWING THE MD, THE CURRENT@D@@@@. MESSAGE QZ )@@G@@WILL BE DISPLAYED ON THE CONSOLE. @[@@@@. @G@@@@. THIS CODRA )@@G@@E CAME FROM THE UNIVERSITY OF MARYLAND, WHERE THE @^@@@@. KERB )@@G@@YIN IS 'AR'.@[@@@@. @F@@@@ARPKT EQUF 10,A2 . PARC )@@G@@CKET FOR COM$ & IOW$ @]@@@@ARBEGIN . @F@@@@ L A2,ARD )@@G@@0 . $P BUFFER ADDRESS TO A2 @F@@@@ L,H2 A5,0RE )@@G@@,A2 . $P GET CHARACTER COUNT @F@@@@ JZ A5,ARF )@@G@@RDISP . $T CHARACTER COUNT ZERO? @E@@@@ RG )@@G@@ . $A NO YES,ARDISP @F@@@@ L,S1 A4,1,A2 RH )@@G@@ . $P GET FIRST CHARACTER @F@@@@ SZ A0 RI )@@G@@ . $P SET PRINT PACKET TO 0 @F@@@@ TNE,U A4,'*' RJ )@@G@@ . $T MESSAGE TO BE DELETED @E@@@@ J ARDLT RK )@@G@@ . $A NO YES,ARDLT @G@@@@ AN,U A5,1 RL )@@G@@ . $P CONVERT CHARACTERS TO WORDS @B@@@@ SZ A4 RM )@@G@@ . @B@@@@ DI,U A4,6 . @G@@@@ RN )@@G@@ TE,U A4,8 . $T MORE THAN 48 CHARACTERS? @E@@@@RO )@@G@@ J ARDL1 . $A YES NO,ARDL1 @F@@@@ RP )@@G@@ L A0,SPACES . $P SPACE FILL LAST WORD @F@@@@ RQ )@@G@@ S,S3 A0,9,A2 . $P SPACE FILL LAST WORD @B@@@@ RR )@@G@@ S,H2 A0,9,A2 . @]@@@@ARDL1 . @E@@@@ A,RS )@@G@@U A4,0201 . $P ADD SKIP COUNT @G@@@@ L,U RT )@@G@@ A0,ARCSA+1 . $P GET ADDRESS OF CSA BUFFER + 1@F@@@@ LXRU )@@G@@I A0,A4 . $P FORM PRINT$ PACKET @F@@@@ARDLT S RV )@@G@@ A0,0,A2 . $P PRINT PACKET TO BUFFER @G@@@@ L,RW )@@G@@U A0,ABW$ . $P SET FUNCTION TO ABS WRITE @G@@@@ RX )@@G@@ LMJ A1,ARIO . $P WRITE MESSAGE IN CSA BUFFER @G@@@@RY )@@G@@AREND EXRELP UA2 . $W RELEASE KEYIN/WORK BUFFER RZ )@@G@@@D@@@@ FUNCE . $WE FUNCE @G@@@@ARDISPSA )@@G@@ L,U A0,ABR$ . $P SET FUNCTION TO ABS READ @E@@@@SB )@@G@@ LMJ A1,ARIO . $W INPUT CSA BUFFER @F@@@@ SC )@@G@@ TNZ 0,A2 . $T IS THERE A MESSAGE @E@@@@ SD )@@G@@ J ARNONE . $A YES NO,ARNONE @E@@@@ L,SE )@@G@@S3 A0,0,A2 . $P GET WORD COUNT @E@@@@ MSI,U SF )@@G@@ A0,6 . $P MULTIPLY BY 6 @G@@@@ARD1 S,H1 A0,ASG )@@G@@RPKT+1 . $P CHARACTER COUNT TO PACKET @B@@@@ L,U SH )@@G@@ A0,1,A2 . @G@@@@ S,H2 A0,ARPKT+1 . $PSI )@@G@@ BUFFER ADDRESS TO PACKET @B@@@@ SZ ARPKT SJ )@@G@@ . @B@@@@ SZ ARPKT+2 . @B@@@@ L,SK )@@G@@U A0,ARPKT . @F@@@@ ER COM$ SL )@@G@@ . $P OUTPUT RUN MESSAGE @C@@@@ J AREND SM )@@G@@ . $J AREND@F@@@@ARNONE DL A0,('*MD NONE ') . $P SET UP 'NSN )@@G@@ONE' MESSAGE@B@@@@ DS A0,1,A2 . @F@@@@ SO )@@G@@ L,U A0,8 . $P LOAD CHARACTER COUNT @C@@@@ SP )@@G@@ J ARD1 . $J ARD1 @E@@@@ARIO SZ ARPKSQ )@@G@@T+2 . $P SET UP I/O PACKET@E@@@@ S,T1 A0,ARPKT+3SR )@@G@@ . $P STORE FUNCTION @E@@@@ L,U A3,CSA SS )@@G@@ . $P GET NAME OF CSA @G@@@@ LMJ X11,SEGNMC . $PST )@@G@@ CONVERT TO FUNCTION INDEX @E@@@@ L A3,SGDRMA,A3 SU )@@G@@ . $P GET DRUN ADDRESS @G@@@@ AA A3,DCHAN . $PSV )@@G@@ ADD SYSTEM CHANNEL NUMBER @F@@@@ A,U A3,ARCSA-SEGBIS SW )@@G@@ . $P ADD BUFFER ADDRESS @G@@@@ S A3,ARPKT+5 SX )@@G@@ . $P STORE ABSOLUTE DRUM ADDRESS @G@@@@ LXI,U A3,10 SY )@@G@@ . $P WORD COUNT FOR ACCESS WORD @G@@@@ LXM,U A3,0SZ )@@G@@,A2 . $P CORE ADDRESS FOR ACCESS WORD @G@@@@ S TA )@@G@@ A3,ARPKT+4 . $P STORE ACCESS WORD IN PACKET @B@@@@ L,TB )@@G@@U A0,ARPKT . @E@@@@ ER IOW$ TC )@@G@@ . $P READ OR WRITE @D@@@@ TNZ,S1 ARPKT+3 . $TTD )@@G@@ I/O ERROR? @F@@@@ J 0,A1 . $E NO, RETURN TE )@@G@@TO CALLER @E@@@@ XER11 040 . $E YES, STOP ETF )@@G@@XEC @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-339 UKEYIN TG )@@G@@ 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@E@@@@ TAB TH )@@G@@ 'S3',SMKEY . QUICK 'SM PR3 S' @E@@@@ TAB 'S4'TI )@@G@@,SMKEY . QUICK 'SM PR4 S' @D@@@@ TAB 'GD',DKEY TJ )@@G@@ . GENDATE @E@@@@ TAB 'ML',DKEY . TK )@@G@@MAINTENANCE LOG @G@@@@ TAB 'MS',TEST1 . MASS STL )@@G@@TORAGE AVAILABILITY @F@@_@ TAB 'LB',TEST1 . TM )@@G@@TIME/DATE OF LAST REBOOT@D@@@@ TAB 'CU',TEST1 . TN )@@G@@CORE USAGE @E@@@@ TAB 'SI',SN$AP . DEMAND SITE-TO )@@G@@ID @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-363 UKEYIN TP )@@G@@ 31.0@E@@@@ TAB 'DU',DUMP . ON LINE PANIC DUMPTQ )@@G@@___@@@ MSI,U A0,6 . $P MULTIPLY BY 6 @G@@@@TR )@@G@@ARD1 S,H1 A0,ARPKT+1 . $P CHARACTER COUNT TO PACKET TS )@@G@@@B@@@@ L,U *[@@@@*SDFF*@^@@@@-2 TEST1 31.0@]@@@@TT )@@G@@. NYU*** @#@@@@ SLEVEL @ @@@@-4/67 TEST1 31.241 TU )@@G@@@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@E@@_@ L,H1 A5,0TV )@@G@@,A0 . GET KEYIN TYPE @G@@_@ L,U R1,NKEYS TW )@@G@@ . GET NO OF POSSIBLE GOOD ONES @B@@_@ L A1,KTX )@@G@@10 . @E@@_@ SE,H1 A5,KEYS,*A1 . LOOK FTY )@@G@@OR KEYIN @D@@_@ J KEYERR . NO FIND TZ )@@G@@@A@@_@ L,H2 A1,KEYS-1,A1 @E@@_@ J 0,A1UA )@@G@@ . HANDLE THIS KEYIN @[@@_@. @B@@_@KEYS + UB )@@G@@ 'MS ',MSKEY . @B@@_@ + 'CU ',CUKEY . UC )@@G@@@B@@_@ + 'LB ',LBKEY . @B@@_@ + UD )@@G@@ 'T1 ',T1KEY . @B@@_@NKEYS EQU $-KEYS . UE )@@G@@@[@@_@/. @A@@@@. T H E M S K E Y I N @[@@@@. @F@@@@UF )@@G@@. DISPLAYS TRACKS/POSITIONS AVAILABLE ON MASS STORAGE @[@@@@UG )@@G@@. @G@@@@. ENHANCED MAY 73 - D.UH )@@G@@ KURLAND @[@@@@. @[@@@@. @A@@@@. KEYIN FORMAT: MS @[@@@@. @F@@@@. IF IS NOT PRESENT, THEN A SUMUJ )@@G@@MARY OF AVAILABLE @E@@@@. SPACE FOR EACH MASS STORAGE EQUIPMENT UK )@@G@@TYPE IN THE @D@@@@. CONFIGURATION WILL BE DISPLAYED IN THE FORM:UL )@@G@@@[@@@@. @C@@@@. EQUIP TRACKS/POSITIONS @[@@@@UM )@@G@@. @F@@@@. IF DEVICE IS PRESENT, IT MAY BE ANY OF THE FOLLOWIUN )@@G@@NG: @[@@@@. @G@@@@. A. AN EQUIPMENT TYPE (F2, FB, F4, F8, UO )@@G@@F17, F14, F40, FCS) @E@@@@. IF THIS IS THE CASE, THE DISPUP )@@G@@LAY WILL BE IN THE@F@@@@. SAME FORMAT AS ABOVE, BUT ONLY FOR UQ )@@G@@THAT EQUIPMENT. @[@@@@. @F@@@@. B. A SUBSYSTEM NUMBER (1 OUR )@@G@@R 2 DIGITS) - THIS MUST BE @H@@@@. A MASS STORAGE SUBSYSTEUS )@@G@@M, OR 'MS KEY ERROR' WILL BE DISPLAYED. @E@@@@. IF THE SUBSUT )@@G@@YSTEM IS FOUND IN FATBL, THE DISPLAY@F@@@@. WILL CONSIST OF TUU )@@G@@HE AVAILABLE TRACKS/POSITIONS ON @F@@@@. EACH UNIT OF THATUV )@@G@@ SUBSYSTEM. IF A UNIT IS DOWN (OR, @F@@@@. IN THE CASE OF DIUW )@@G@@SC UNITS, HAS NO PACK MOUNTED OR @G@@@@. IS BEING PREPPED UX )@@G@@OR REGISTERED OR SOMETHING) THE TRACKS @E@@@@. AND POSITIOUY )@@G@@NS WILL PRINT AS QUESTION MARKS. @[@@@@. @F@@@@. C. A SUBUZ )@@G@@SYSTEM/UNIT NUMBER (UNIT 1 DIGIT ONLY). SAME @F@@@@. DISPLVA )@@G@@AY AS FOR SUBSYSTEM, BUT THIS UNIT ONLY. IF THE@H@@@@. UNIT VB )@@G@@IS NOT FOUND IN FATBL, 'MS KEY ERROR' WILL BE DISPLAYED. @[@@@@. VC )@@G@@@F@@@@. D. A PACKID - IF MOUNTED, THE SS/UU IT'S ON WILL BE VD )@@G@@@G@@@@. DISPLAYED. IF NOT, 'PACKID NOT MOUNTED' WILL BE DISPVE )@@G@@LAYED.@[@@@@. @[@@@@. @G@@@@COM EQUF 10,A0 VF )@@G@@ . START OF CONSOLE OUTPUT BUFFER @[@@_@. @E@@_@MSKEY S VG )@@G@@ A0,R2 . SAVE BUFFER ADDR @B@@@@ L,U A1,'VH )@@G@@/' . @F@@@@ S A1,COM+5 . $P PUT VI )@@G@@SLASH IN MESSAGE @E@@@@ SZ COM . $P SET VJ )@@G@@UP COM$ PKT @B@@@@ L,U A1,COM+3 . @B@@@@ VK )@@G@@ LXI,U A1,24 . @B@@@@ S A1,COM+1 VL )@@G@@ . @B@@@@ SZ COM+2 . @F@@@@ VM )@@G@@ L,H2 A1,0,A0 . $P GET CHARACTER COUNT @E@@@@ VN )@@G@@ JZ A1,ALL . $T WAS THERE ANY? @D@@@@ VO )@@G@@ . $A NO,ALL YES@G@@@@ L A1,1VP )@@G@@,A0 . $P GET THE TYPE THAT HE TYPED @G@@@@ L,U VQ )@@G@@ R1,TYPESL . $P GET REPEAT COUNT FOR SEARCH @B@@@@ L VR )@@G@@ A3,K10 . @E@@@@ SE A1,TYPES,*A3 VS )@@G@@ . $T IS IT FOR REAL? @E@@@@ J TRYSS . NVT )@@G@@O, TRY SS NUMBER @F@@@@ S A1,COM+3 . $P YES,VU )@@G@@ PUT IT IN MSG @G@@@@ L,H1 A1,FATBL-1,A3 . GET POIVV )@@G@@NTER TO TRACKS AVAIL @F@@@@ JZ A1,KEYERR . $VW )@@G@@T BUT DOES IT EXIST @E@@@@ . $VX )@@G@@A NO,KEYERR YES @F@@@@ SZ R1 . FAKE TOVY )@@G@@ PRINT ONE ONLY @C@@@@ J ONE . $J ONE VZ )@@G@@@B@@@@ALL L,U R1,TYPESL-1 . @B@@@@LOOP L WA )@@G@@ A2,R1 . @G@@@@ L,H1 A1,FATBL,A2 . GWB )@@G@@ET POINTER TO TRACKS AVAIL @G@@@@ JZ A1,SKIP WC )@@G@@ . IS THERE REALLY ONE OF THESE? @E@@@@ L A2,TYPES,AWD )@@G@@2 . $P GET NEXT TYPE @E@@@@ S A2,COM+3 WE )@@G@@ . $P PUT IT IN MSG @F@@@@ONE L,H2 R3,2,A1 . PWF )@@G@@OS AVAIL THIS EQUIP @F@@@@ L A1,1,A1 . TWG )@@G@@RACKS AVIL THIS EQUIP @H@@@@ LSSL A1,12 . GWH )@@G@@ET RID OF DISC ROTATION POINTER @F@@@@ SSL A1,12 WI )@@G@@ . BRING BACK THOSE TRACKS! @G@@@@ LMJ X11,CONBD WJ )@@G@@ . $W CONVERT TRACKS TO DECIMAL @E@@@@ L A0,RWK )@@G@@2 . RESTORE BUFFER ADDR@F@@@@ S A2,COM+4 WL )@@G@@ . $P AND PUT THEM IN MSG @B@@@@ L A1,R3 WM )@@G@@ . @E@@@@ LMJ X11,CONBD . $P NOW DO POSWN )@@G@@ITIONS@B@@@@ L A0,R2 . @D@@@@ S WO )@@G@@ A2,COM+6 . STORE POS @B@@@@ L,U A0,CWP )@@G@@OM . @E@@@@ ER COM$ . $W PRINWQ )@@G@@T OUT MSG @B@@@@ L A0,R2 . @D@@@@SKIP WR )@@G@@ JGD R1,LOOP . $T ALL DONE? @E@@@@ J WS )@@G@@ EXIT . $A YES,EXIT NO,LOOP@[@@@@. @C@@@@. PRWT )@@G@@OCESS 'MS SS' AND 'MS SS/U' KEYINS @[@@@@. @E@@@@TRYSS SZ WU )@@G@@ COM-2 . CLEAR SS/U FLAG @G@@@@ SZ COM-WV )@@G@@3 . CLEAR PRINTED-SOMETHING FLAG @E@@@@ L,U WW )@@G@@ A2,057 . LOW VALUE AND @G@@@@ L,U A3,0WX )@@G@@71 . HIGH VALUE FOR TW NUMERIC @D@@@@ L,S1 WY )@@G@@ A5,1,A0 . GET 1ST CHAR@D@@@@ TW A2,A5 WZ )@@G@@ . NUMERIC? @E@@@@ J TRYPAK . XA )@@G@@NO, MAY BE PACKID @D@@@@ AN,U A5,060 . STRIP XB )@@G@@OFF FD@D@@@@ L,S2 A4,1,A0 . 2ND CHAR @C@@@@XC )@@G@@ TNE,U A4,5 . SPACE?@G@@@@ J XD )@@G@@ ONEDIJ . YES, IT'S A 1-DIGIT SS NO. @C@@@@ TEXE )@@G@@,U A4,'/' . SLASH?@F@@@@ J TWODIJ XF )@@G@@ . NO, MUST BE 2-DIGIT SS @D@@@@ L,S3 A6,1,A0 XG )@@G@@ . 3RD CHAR @D@@@@ TW A2,A6 . XH )@@G@@NUMBER? @E@@@@ J KEYERR . NO,KEYERR XI )@@G@@YES @D@@@@ AN,U A6,060 . STRIP OFF FD@F@@@@XJ )@@G@@ SN,H2 A6,COM-2 . SET SS/U SPEC'D FLAG @D@@@@XK )@@G@@ J ONEDIJ . CONTINUE @D@@@@TWODIJ TWXL )@@G@@ A2,A4 . NUMBER? @E@@@@ J TRYPXM )@@G@@AK . NO, MAY BE PACKID @D@@@@ AN,U A4,060 XN )@@G@@ . STRIP OFF FD@F@@@@ MSI,U A5,10 . XO )@@G@@FORM 2-DIGIT SS NUMBER @B@@@@ A A5,A4 . XP )@@G@@@D@@@@ L,S3 A6,1,A0 . 3RD CHAR @C@@@@ XQ )@@G@@ TNE,U A6,5 . SPACE?@E@@@@ J ONEDXR )@@G@@IJ . YES, CONTINUE @G@@@@ TE,U A6,'/' XS )@@G@@ . NOT A SPACE, MUST BE SLASH @E@@@@ J TRYPXT )@@G@@AK . NO, MAY BE PACKID @D@@@@ L,S4 A6,1,A0 XU )@@G@@ . 4TH CHAR @D@@@@ TW A2,A6 . XV )@@G@@NUMBER? @E@@@@ J KEYERR . NO,KEYERR XW )@@G@@YES @D@@@@ AN,U A6,060 . STRIP OFF FD@F@@@@XX )@@G@@ SN,H2 A6,COM-2 . SET SS/U SPEC'D FLAG @F@@@@XY )@@G@@ONEDIJ L,U X9,7 . TYPES IN FATBL (-1) @G@@@@XZ )@@G@@SLOOP TNZ,H1 FATBL,X9 . ANY OF THIS TYPE CONFIGURED? YA )@@G@@@D@@@@ J SLOOPE . NO, SKIP IT @G@@@@ YB )@@G@@ L,H1 X4,FATBL,X9 . GET POINTER TO UNIT TABLE @F@@@@YC )@@G@@ L,T1 R1,0,X4 . NO. OF UNITS THIS TYPE @E@@@@YD )@@G@@ JGD R1,$+1 . LESS 1 FOR JGD @G@@@@ YE )@@G@@ A,U X4,3 . MOVE TO START OF UNIT INFO @F@@@@YF )@@G@@ SZ COM-1 . ASSUME NOT DISC EQUIP @E@@@@YG )@@G@@ L A1,X9 . GET FATBL INDEX @B@@@@ YH )@@G@@ TE,U A1,5 . @C@@@@ TNE,U A1,6 YI )@@G@@ . DISC? @E@@@@ S A1,COM-1 . YES, SYJ )@@G@@ET FLAG @E@@@@ULOOP TE,T1 A5,1,X4 . RIGHT SS NUMYK )@@G@@BER? @E@@@@ J ULOOPE . NO, TRY NEXT UNIT YL )@@G@@@D@@@@ L,S3 A2,1,X4 . GET UNIT NO.@C@@@@ YM )@@G@@ TZ COM-1 . DISC? @G@@@@ SSL A2,2YN )@@G@@ . YES, SHIFT IT RIGHT 2 BITS @E@@@@ TG,U YO )@@G@@ A2,070 . WEIRD UNIT NO? @F@@@@ AN,U A2,0YP )@@G@@70 . YES, MAKE IT NORMAL @E@@@@ TNZ COM-YQ )@@G@@2 . UNIT NO. SPEC'D? @E@@@@ J $+3 YR )@@G@@ . NO, SKIP TEST @E@@@@ TE A2,A6 YS )@@G@@ . RIGHT UNIT NUMBER?@E@@@@ J ULOOPE . YT )@@G@@NO, TRY NEXT UNIT @E@@@@ L A3,SPACES . SPACE-YU )@@G@@FILL A3 @H@@@@ A,U A2,'/0' . CONV UNIT TOYV )@@G@@ FD (ASSUME 1 DIGIT) @D@@@@ DSL A2,12 . YW )@@G@@MOVE INTO A3@D@@@@ L,T1 A1,1,X4 . GET SS NO. YX )@@G@@@E@@@@ LMJ X11,CONBD . CONVERT TO DEC FD @D@@@@YY )@@G@@ DSL A2,12 . MOVE INTO A3@F@@@@ L YZ )@@G@@ A0,R2 . RETRIEVE BUFFER ADDR @E@@@@ S ZA )@@G@@ A3,COM+3 . STORE SS/U IN MSG @F@@@@ TP ZB )@@G@@ 0,X4 . UNIT UP OR SUSPENDED? @G@@@@ J ZC )@@G@@ QMARK . NO, INSERT QUESTION MARKS @D@@@@ TNZD )@@G@@Z COM-1 . DISC EQUIP? @G@@@@ J NOTDZE )@@G@@SC . NO, SKIP PACKID TEST, ETC. @E@@@@ TNZ ZF )@@G@@ 4,X4 . ANY PACK MOUNTED? @E@@@@ J QMARZG )@@G@@K . NO, CAN'T DO THIS @E@@@@ L,T3 A1,2,X4 ZH )@@G@@ . GET POS AVAIL @F@@@@ JN A1,QMARK ZI )@@G@@ . QMARK IF FUNNY CONDITION@D@@@@ L,H2 A1,1,X4 ZJ )@@G@@ . ASG COUNT @E@@@@ SSL A1,16 . GET PRZK )@@G@@EP/REG BITS @F@@@@ JNZ A1,QMARK . PREP/REG? YZL )@@G@@ES,QMARK NO@E@@@@NOTDSC L,H1 A1,2,X4 . GET TRACKS AZM )@@G@@VAIL @E@@@@ LMJ X11,CONBD . CONVERT TO DEC FD ZN )@@G@@@E@@@@ L A0,R2 . GET BUFFER ADDR @F@@@@ZO )@@G@@ S A2,COM+4 . STORE TRACKS IN MSG @D@@@@ZP )@@G@@ L,T3 A1,2,X4 . POS AVAIL @E@@@@ LMZQ )@@G@@J X11,CONBD . CONVERT TO DEC FD @E@@@@ L ZR )@@G@@ A0,R2 . GET BUFFER ADDR @F@@@@HUH S A2,CZS )@@G@@OM+6 . STORE POSITIONS IN MSG @E@@@@ L,U A0,CZT )@@G@@OM . COM$ PKT ADDR @C@@@@ ER COM$ ZU )@@G@@ . DO IT @E@@@@ L A0,R2 . GET BUZV )@@G@@FFER ADDR @F@@@@ S A0,COM-3 . SET DID-SOMEZW )@@G@@THING FLAG @D@@@@ULOOPE A,U X4,4 . NEXT UNIT ZX )@@G@@@C@@@@ TZ COM-1 . DISC? @G@@@@ A,ZY )@@G@@U X4,1 . MUST ADD 5 FOR DISC EQUIP @E@@@@ ZZ )@@G@@ JGD R1,ULOOP . GET NEXT UNIT @E@@@@SLOOPE JGAA )@@G@@D X9,SLOOP . NEXT EQUIP TYPE @E@@@@ TZ AB )@@G@@ COM-3 . DID ANYTHING? @E@@@@ J EXITAC )@@G@@ . ALL DONE, EXIT @F@@@@KEYERR L,U A0,COM1 AD )@@G@@ . GET 'KEY ERROR' MSG @D@@@@COMDLR ER COM$ AE )@@G@@ . DISPLAY MSG @F@@@@EXIT L A0,R2 . AF )@@G@@RESTORE BUFFER ADDR @G@@@@ LMJ X11,EXREL . AG )@@G@@$W RELEASE CONSOLE BUFFER @C@@@@ FUNCE AH )@@G@@ . FUNCE @[@@@@. @E@@@@QMARK L,U A2,'?' . AI )@@G@@GET QUESTION MARK @F@@@@ S A2,COM+4 . STORE AJ )@@G@@IN TRACKS AREA @G@@@@ J HUH . STORE AK )@@G@@IN POS, AND DISPLAY @[@@@@. @A@@@@. PROCESS 'MS PACKID' AL )@@G@@KEYINS@[@@@@. @E@@@@TRYPAK L A5,1,A0 . GET THAM )@@G@@E PACKID @E@@@@ S A5,COM+3 . STORE IT IN AN )@@G@@MSG @F@@@@ L,U X9,1 . SEARCH ONLY THE DIAO )@@G@@SCS @H@@@@DLOOP TNZ,H1 FATBL+5,X9 . ANY OF THESE DISC AP )@@G@@THINGEES AROUND? @G@@@@ J DLOOPE . NAH, TAQ )@@G@@RY NEXT EQUIPMENT TYPE @H@@@@ L,H1 X4,FATBL+5,X9 . AR )@@G@@GET POINTER TO UNIT STATUS TABLE @H@@@@ L,T1 R1,0,X4 AS )@@G@@ . GET NUMBER OF UNITS THIS EQUIP TYPE @E@@@@ JGD AT )@@G@@ R1,$+1 . LES 1 FOR JGD @E@@@@ A,U X4,3AU )@@G@@ . POINT TO UNIT INFO@G@@@@PLOOP TE A5,4,X4 AV )@@G@@ . DOES UNIT HAVE CORRECT PACKID?@E@@@@ J PLOOAW )@@G@@PE . NO, TRY NEXT UNIT @E@@@@ L,S3 A3,1,X4 AX )@@G@@ . GET UNIT NUMBER @G@@@@ SSL A3,2 AY )@@G@@ . CORRECT FOR 20-BIT DISC ADDR @F@@@@ A,U A3,'/0' AZ )@@G@@ . CONVERT UNIT # TO FD @G@@@@ DSL A3,12 BA )@@G@@ . MOVE INTO A4 (A4 NOW '/U????')@D@@@@ L,T1 A1,1BB )@@G@@,X4 . GET SS # @F@@@@ LMJ X11,CONBD BC )@@G@@ . CONVERT IT TO FD DECIMAL@G@@@@ L A0,R2 BD )@@G@@ . RESTORE BUFFER ADDR TO A0 @G@@@@ AU,U A2,050000 BE )@@G@@ . ADD A SPACE (A3 NOW '@@@ SS') @G@@@@ DSL A3,2BF )@@G@@4 . ADD TO UNIT (A4 NOW '@ SS/U') @E@@@@ L BG )@@G@@ A3,(' IS ON') . GET REST OF MSG @G@@@@ J PAKMBH )@@G@@SG . STORE MSG, DISPLAY, AND EXIT @F@@@@PLOOPE A,U BI )@@G@@ X4,5 . MOVE UP TO NEXT UNIT @D@@@@ JGD BJ )@@G@@ R1,PLOOP . MORE UNITS? @E@@@@DLOOPE JGD X9,DLOOP BK )@@G@@ . MORE EQUIP TYPES? @G@@@@ DL A3,(' NOT MOUNTEBL )@@G@@D') . DIDN'T FIND PACKID ANYWHERE @F@@@@PAKMSG DS A3,COM+4 BM )@@G@@ . STORE APPROPRIATE MSG @B@@@@ SZ COM+6 BN )@@G@@ . @E@@@@ L,U A0,COM . GET COM$ PKTBO )@@G@@ ADDR @F@@@@ J COMDLR . DISPLAY MSG AND EXBP )@@G@@IT @[@@@@. @D@@@@. CONVERT BINARY TO DECIMAL @ FILLED FROM A1 TO BQ )@@G@@A2 @[@@@@. @B@@@@CONBD L X3,(-6,30) . @B@@@@BR )@@G@@ L,U A2,0 . @B@@@@ L,U A0,0BS )@@G@@ . @B@@@@BNB DI,U A0,10 . @B@@@@BT )@@G@@ A,U A1,'0' . @B@@@@ DSL A1,6BU )@@G@@ . @B@@@@ JZ A0,$+3 . @B@@@@BV )@@G@@ DSL A0,36 . @B@@@@ JMGI X3,BBW )@@G@@NB . @B@@@@ TN,XU 0,X3 . @B@@@@BX )@@G@@ SSC A2,0,X3 . @B@@@@ J 0,X1BY )@@G@@1 . @B@@@@TYPES 'F2' . @B@@@@BZ )@@G@@ 'FB' . @B@@@@ 'F4' CA )@@G@@ . @B@@@@ 'F8' . @B@@@@CB )@@G@@ 'F17' . @B@@@@ 'F14' CC )@@G@@ . @B@@@@ 'F40' . @B@@@@CD )@@G@@ 'FCS' . @ @@@@TYPESL EQU $-TYCE )@@G@@PES @B@@@@COM1 + 0 . @B@@@@ + CF )@@G@@ 13,MSERR . @B@@@@ + 0 CG )@@G@@ . @B@@@@MSERR 'MS KEY ERROR@' . @[@@@@/. @D@@@@CH )@@G@@. THE LB KEYIN - DISPLAY TIME OF LAST BOOT @[@@@@. @E@@_@CI )@@G@@LBKEY S A0,R2 . SAVE BUFFER ADDR @B@@@@ CJ )@@G@@ SZ COM . @E@@@@ SZ COM+2 CK )@@G@@ . SET UP COM$ PACKET@D@@@@ L,U A1,COM+3 CL )@@G@@ . START OF MSG@D@@@@ LXI,U A1,30 . 30 CHACM )@@G@@RS @B@@@@ S A1,COM+1 . @E@@@@ DLCN )@@G@@ A1,('LAST BOOT: @') . GET START OF MSG @E@@@@ DS CO )@@G@@ A1,COM+3 . STORE IN BUFFER @E@@@@ DL A1,(CP )@@G@@' AT HRS') . GET REST OF MSG @E@@@@ DS A1,COM+6 CQ )@@G@@ . STORE IN BUFFER @G@@@@ L,H1 A1,BOOTTIME$ CR )@@G@@ . GET BOOT TIME FROM EXMISC @E@@@@ AND,U A1,0770000CS )@@G@@ . MASK OUT THE MONTH@D@@@@ DSL A2,48 CT )@@G@@ . FOR DIVIDE @F@@@@ DI,U A2,10 . CONVERCU )@@G@@T TO FD DECIMAL @B@@@@ A,U A2,060 . @E@@@@CV )@@G@@ S,S1 A2,COM+5 . STORE 1ST CHAR @B@@@@ CW )@@G@@ L,U A2,060,A3 . @E@@@@ S,S2 A2,COM+5 CX )@@G@@ . STORE 2ND CHAR @D@@@@ L,U A2,'/' CY )@@G@@ . GET A SLASH @D@@@@ S,S3 A2,COM+5 . ADD TOCZ )@@G@@ MSG @D@@@@ AND,U A1,07700 . NOW GET DAY @E@@@@DA )@@G@@ DSL A2,42 . SHIFT FOR DIVIDE @F@@@@ DB )@@G@@ DI,U A2,10 . CONVERT TO FD DECIMAL @B@@@@ DC )@@G@@ A,U A2,060 . @E@@@@ S,S4 A2,COM+5 DD )@@G@@ . STORE 1ST CHAR @B@@@@ L,U A2,060,A3 DE )@@G@@ . @B@@@@ LSSL A2,6 . @F@@@@ S,DF )@@G@@T3 A2,COM+5 . STORE CHAR FOLLOWED BY @@F@@@@ L,DG )@@G@@H2 A1,BOOTTIME$ . GET TIME SINCE MIDNITE @B@@@@ DSDH )@@G@@L A1,36 . @D@@@@ DI,U A1,3600 DI )@@G@@ . GET HOURS @E@@@@ S A2,A4 . SAVE RDJ )@@G@@EMAINDDER @F@@@@ DSL A1,36 . MOVE HOURS FDK )@@G@@OR DIVIDE @F@@@@ DI,U A1,10 . CONVERT TO FDL )@@G@@D DECIMAL @B@@@@ A,U A1,060 . @E@@@@ DM )@@G@@ S,S5 A1,COM+6 . STOPRE 1ST DIGIT @B@@@@ L,DN )@@G@@U A1,060,A2 . @E@@@@ S,S6 A1,COM+6 DO )@@G@@ . STORE 2ND CHAR @E@@@@ L A1,A4 . DP )@@G@@RETRIEVE REMAINDER@B@@@@ DSL A1,36 . @D@@@@DQ )@@G@@ DI,U A1,60 . GET MINUTES @B@@@@ DSDR )@@G@@L A1,36 . @F@@@@ DI,U A1,10 DS )@@G@@ . CONVERT TO FD DECIMAL @B@@@@ A,U A1,060 DT )@@G@@ . @E@@@@ S,S1 A1,COM+7 . STORE 1ST DIGIT DU )@@G@@@B@@@@ L,U A1,060,A2 . @E@@@@ S,S2 DV )@@G@@ A1,COM+7 . STORE 2ND DIGIT @F@@@@ L,U A0,CDW )@@G@@OM . GET ADDR OF COM$ PKT @D@@@@ ER COM$DX )@@G@@ . DISPLAY MSG @H@@@@ J EXIT DY )@@G@@ . RELEASE BUFFER & LEAVE PEACEFULLY @I@@@@/. DZ )@@G@@ . CU-KEY @I@@@@. EA )@@G@@ THIS CODE HANDLES THE 'CU' KEYIN . CU-KEB )@@G@@EY @I@@@@. EC )@@G@@ . CU-KEY @I@@@@. THERE ARE TWO FORMS ED )@@G@@ . CU-KEY @I@@@@. EE )@@G@@ . CU-KEY @I@@@@. EF )@@G@@ CU . CU-KEG )@@G@@EY @I@@@@. EH )@@G@@ . CU-KEY @I@@@@. AND EI )@@G@@ . CU-KEY @I@@@@. EJ )@@G@@ . CU-KEY @I@@@@. EK )@@G@@ CU RUNID . CU-KEL )@@G@@EY @I@@@@. EM )@@G@@ . CU-KEY @I@@@@. THE 'CU' KEYIN DISPLAYS ALL RUNSEN )@@G@@ CURRENTLY IN CORE . CU-KEY @I@@@@. ALONG WITH THEEO )@@G@@ PROGRAM SIZE AND PROGRAM NAME. 'CU RUNID' . CU-KEY @I@@@@. EP )@@G@@ DISPLAYS SIZE AND NAME FOR THE SPECIFIED RUN . CU-KEQ )@@G@@EY @I@@@@. ER )@@G@@ . CU-KEY @I@@@@COMPKT EQUF 0,A0 . COES )@@G@@M$PACKET ( 3 WORDS ) . CU-KEY @I@@@@ZRUNID EQUF 3,A0ET )@@G@@ . RUNID . CU-KEY @I@@@@ZSIZE EU )@@G@@ EQUF 5,A0 . PROGRAM SIZE (1K CHUNKS) . CU-KEV )@@G@@EY @I@@@@ZPN EQUF 7,A0 . PROGRAM NAME ( 2 WOREW )@@G@@DS ) . CU-KEY @I@@@@. EX )@@G@@ . CU-KEY @I@@@@. EY )@@G@@ . CU-KEY @I@@@@CUKEY.EZ )@@G@@ . CU-KFA )@@G@@EY @I@@@@. FB )@@G@@ . CU-KEY @I@@@@. GET RUNID, IF SPECIFIED FC )@@G@@ . CU-KEY @I@@@@. FD )@@G@@ . CU-KEY @I@@@@ FE )@@G@@ SZ A5 . RUNID HERE, IF ANY . CU-KFF )@@G@@EY @I@@@@ TZ,H2 0,A0 . IF THERE WAS ANYTHINFG )@@G@@G THERE . CU-KEY @I@@@@ L A5,1,A0 . GEFH )@@G@@T IT . CU-KEY @I@@@@. FI )@@G@@ . CU-KEY @I@@@@. FJ )@@G@@ NOW SET UP COM$ PACKET AND BUFFER . CU-KFK )@@G@@EY @I@@@@. FL )@@G@@ . CU-KEY @I@@@@ L,U A1,' ' . PUFM )@@G@@T IN SPACES WHERE REQUIRED . CU-KEY @I@@@@ S A1,ZFN )@@G@@RUNID+1 . . CU-KEY @I@@@@ FO )@@G@@ S A1,ZSIZE+1 . . CU-KFP )@@G@@EY @I@@@@ SZ COMPKT . CLEAR JUNK IN PACKETFQ )@@G@@ . CU-KEY @I@@@@ LXI,U A1,6*6 . MEFR )@@G@@SSAGE LENGTH . CU-KEY @I@@@@ LXM,U A1,ZFS )@@G@@RUNID . START OF TEXT . CU-KEY @I@@@@ FT )@@G@@ S A1,COMPKT+1 . STASH ACCESS WORD . CU-KFU )@@G@@EY @I@@@@ SZ COMPKT+2 . CLEAR MORE JUNK FV )@@G@@ . CU-KEY @I@@@@ SZ R3 . THFW )@@G@@IS FLAG SAYS WE PRINTED SOMETH. CU-KEY @I@@@@. FX )@@G@@ . CU-KEY @I@@@@. FY )@@G@@ NOW, LOOP THROUGH PCT'S THAT ARE IN CORE . CU-KFZ )@@G@@EY @I@@@@. GA )@@G@@ . CU-KEY @I@@@@ R SLCKY,SDPCT,R1 . GEGB )@@G@@T TO PROPER LEVEL . CU-KEY @I@@@@ TS TSPCGC )@@G@@T . LOCK UP PCT'S . CU-KEY @I@@@@ GD )@@G@@ L A3,EXPCTA . START WITH FIRST PCT ( EXEC'S) . CU-KGE )@@G@@EY @I@@@@ZNEXT. GF )@@G@@ . CU-KEY @I@@@@ L A3,EP,A3 . GEGG )@@G@@T NEXT PCT ADDRESS . CU-KEY @I@@@@ JZ A3,ZGH )@@G@@DONE . ZERO LINK SAYS WE'RE THROUGH . CU-KEY @I@@@@ GI )@@G@@ TON . . CU-KGJ )@@G@@EY @I@@@@ LSSL A3,9 . CREATE HEMUNGOUS PCTGK )@@G@@ ADDRESS FOR. CU-KEY @I@@@@ S A0,X8 . GL )@@G@@ . CU-KEY @I@@@@ LPCTWC *PCQGM )@@G@@EA,A3 . . CU-KEY @I@@@@ GN )@@G@@ L A0,X8 . . CU-KGO )@@G@@EY @I@@@@ L,U A3,RUPCTA . GP )@@G@@ . CU-KEY @I@@@@ TOFF . GQ )@@G@@ . CU-KEY @I@@@@ L A1,AGR )@@G@@B,A3 . GET RUNID . CU-KEY @I@@@@ GS )@@G@@ JZ A5,$+3 . IF WE ARE LOOKING FOR ONE ONLY . CU-KGT )@@G@@EY @I@@@@ TE A1,A5 . CHECK FOR IT GU )@@G@@ . CU-KEY @I@@@@ J ZNEXT . WAGV )@@G@@SN'T THE RIGHT ONE . CU-KEY @I@@@@ S A1,ZGW )@@G@@RUNID . STASH IT . CU-KEY @I@@@@ GX )@@G@@ DL A1,KB,A3 . GET PROGRAM NAME . CU-KGY )@@G@@EY @I@@@@ TNE A2,SPACES . $P EDIT OUT SOME TRAGZ )@@G@@ILING BLANKS. CU-KEY @I@@@@ L,U A2,0 . HA )@@G@@ . CU-KEY @I@@@@ DS A1,ZHB )@@G@@PN . STASH IT ALSO . CU-KEY @I@@@@ HC )@@G@@ L A1,IK,A3 . PROGRAM SIZE . CU-KHD )@@G@@EY @I@@@@ DSA A1,36 . CONVERT TO 1K DECIMAHE )@@G@@L CHUNKS . CU-KEY @I@@@@ LSSL A2,9 . HF )@@G@@ . CU-KEY @I@@@@ A,U A2,5HG )@@G@@00 . ROUND UP . CU-KEY @I@@@@ HH )@@G@@ DI,U A1,1000 . . CU-KHI )@@G@@EY @I@@@@ S A0,X8 . HJ )@@G@@ . CU-KEY @I@@@@ S A3,X9 . SAHK )@@G@@VE REGS FROM GREEDY SUBROUTINE. CU-KEY @I@@@@ LMJ X11,HL )@@G@@CONBD . . CU-KEY @I@@@@ HM )@@G@@ L A0,X8 . . CU-KHN )@@G@@EY @I@@@@ L A3,X9 . HO )@@G@@ . CU-KEY @I@@@@ S A2,ZSIZE . STHP )@@G@@ASH SIZE . CU-KEY @I@@@@ ER COM$HQ )@@G@@ . SPLAT IT OUT . CU-KEY @I@@@@ HR )@@G@@ L,U R3,1 . SET FLAG TO SAY WE SAID SOMETHIN. CU-KHS )@@G@@EY @I@@@@ J ZNEXT . KEEP IT UP HT )@@G@@ . CU-KEY @I@@@@ZDONE. HU )@@G@@ . CU-KEY @I@@@@ CTS TSPCHV )@@G@@T . LET PCT'S GO . CU-KEY @I@@@@ HW )@@G@@ D SDPCT,SLCKY,R1 . BACK TO NORMAL . CU-KHX )@@G@@EY @I@@@@ TZ R3 . PRINT ANYTHING? HY )@@G@@ . CU-KEY @I@@@@ J ZEXIT . YEHZ )@@G@@P... . CU-KEY @I@@@@ L A1,ZIA )@@G@@NC . PRINT PROPER EXCUSE . CU-KEY @I@@@@ IB )@@G@@ TZ A5 . . CU-KIC )@@G@@EY @I@@@@ L A1,ZNFC . ID )@@G@@ . CU-KEY @I@@@@ S A1,COMPKT+1 . NEIE )@@G@@W ACCESS WORD . CU-KEY @I@@@@ ER COM$IF )@@G@@ . PRINT EXCUSE . CU-KEY @I@@@@ZEXIT.IG )@@G@@ . CU-KIH )@@G@@EY @I@@@@ EXRELP A0 . II )@@G@@ . CU-KEY @I@@@@ FUNCE . IJ )@@G@@ . CU-KEY @I@@@@. IK )@@G@@ . CU-KEY @I@@@@. IL )@@G@@ . CU-KIM )@@G@@EY @I@@@@ZNONE 'NO RUNS IN CORE' . IN )@@G@@ . CU-KEY @I@@@@ZNC + ($-ZNONE)*6,ZNONE . IO )@@G@@ . CU-KEY @I@@@@ZNF 'RUN NOT IN COIP )@@G@@RE' . . CU-KEY @I@@@@ZNFC IQ )@@G@@ + ($-ZNF)*6,ZNF . . CU-KIR )@@G@@EY @[@@_@/. @C@@_@. ALLOW T1 KEYINS ONLY IF JK 12 IS SET IS )@@G@@@[@@_@. @G@@_@T1KEY JK 12,$+2 . ALLOW T1 ONLIT )@@G@@Y IF JK 12 SET @G@@@@ J EXIT+1 . NO, EXIU )@@G@@IT (RELEASE BUFFER) @A@@@@. <<< END NYU LOCAL CODE <<<___ IV )@@G@@ A3,X9 . SAVE REGS FROM GREEDY SUBROUTINE. CU-KEY @I@@@@IW )@@G@@ LMJ X11,CONBD . *[@@@@*SDFF*@^@@@@-12 IX )@@G@@ E8ID 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@F@@@@ISITDLIY )@@G@@OC + 0 . FLAG FOR MSCON @G@@@@DRTPMSIZ )@@G@@G + 0 . DIRECTORY TAPE # FOR 'C ID' @E@@_@JA )@@G@@LIBTAPES + '@[>*<] [>*<]' . LIBRARY TAPE #'S @H@@_@ JB )@@G@@ . S1 OF LIBTAPES MUST BE @ INITIALLY JC )@@G@@@F@@@@LIBID + ' [>*<]' . LIBLEVEL ID JD )@@G@@@A@@@@. <<< END NYU LOCAL CODE <<<___^[G*[@@@@*SDFF*@^@@@@-343 JE )@@G@@ CHKPAR 31.0@E@@@@. CCF*** . #1000-JF )@@G@@101-15736 @D@@@@ S A2,R2 . $P SAVE A2 JG )@@G@@@D@@@@ L A0,PCTAD . $P GET PCT @G@@@@ JH )@@G@@ L,U A1,6 . $P GET BUFFER SIZE REQUESTING @E@@@@JI )@@G@@ LMJ X11,PCTEXP . $P GET PCT BUFFER @B@@@@ JJ )@@G@@ L A1,A2 . @B@@@@ L A2,R2 JK )@@G@@ . @E@@@@ S A0,PCTAD . $P RESET PCTJL )@@G@@ ADDR @F@@@@ TNZ A3 . $T BUFFER OBTAINEDJM )@@G@@? @E@@@@ EXER 010,CKERR1 . $A NO, EXER YES JN )@@G@@@E@@@@ LMJ X11,PCTREL . $P RELEASE BUFFER ___E- JO )@@G@@F[K^@)^@)^@)^@)^@) 0)^-K^[BC(O^[KCTO^[]E(AC1 EK)@F@@@@^@)^@)^@)^@)^@)D))JP )@@G@@^@)^@)^@)^@)CC1 -[AK)^@)*[@@@@*SDFF*@^@@@@-685,685 CSDOC 31.0@F@@@@JQ )@@G@@. : MERT : MPOUT : @^@@@@JR )@@G@@-687,687 CSDOC 31.0@F@@@@. : BOOTSW : DTA : CQENT : JS )@@G@@ MCOUT : @^@@@@-711,711 CSDOC 31.0@I@@@@MERT* EQJT )@@G@@UF LOCTAB+1,,H1 . INSTALLATION STANDARD WHICH SPECIFIES JU )@@G@@@^@@@@-714,715 CSDOC 31.0@H@@@@MPOUT* EQUF LOCTAB+1,,H2 JV )@@G@@ . SAME AS MERT BUT FOR PAGE COUNT@H@@@@MCOUT* EQUF LOCTJW )@@G@@AB+2,,H2 . SAME AS MERT BUT FOR CARD COUNT___^@)^@)^@)^@)BK)JX )@@G@@^@)^@)^@)^@)D( ELO^@)^@)^@)^@)^@)^@)^@'^@)^@)^@)^@)^@)^[HE[JE(O^@)^@)^@)JY )@@G@@^@)^@)BK)^@)@A@@@@ *6B@7 )6B@7^@)CTNC-JCS)^@)^@)*[@@@@*SDFF*@^@@@@-1458,JZ )@@G@@1459 DRC 31.0@E@@@@. CCF*** . #1002-KA )@@G@@004-07416 @^@@@@-2064,2070 DRC 31.0@A@@@@. >>> BEGIN NYU LOKB )@@G@@CAL CODE >>>@B@@@@ L,U A5,1 . @E@@@@ KC )@@G@@ TOP A4,RDISC . REMOVABLE DISC? @C@@@@ J KD )@@G@@ ALLD1 . NO @H@@@@ TZ PCFPID,X11KE )@@G@@ . IS THERE A LINK TO PACKID TABLE? @G@@@@ TEP KF )@@G@@ A5,PCF2NA,A1 . HAS ASSIGNMENT BEEN COMPLETED?@B@@@@ J KG )@@G@@ ALLD . @]@@@@ALLD1 . @A@@@@. <<< END NKH )@@G@@YU LOCAL CODE <<<@ @@@@-2240,2241/1,1 DRC 31.244 @E@@@@. CCF*** KI )@@G@@ . #1002-004-07416 @E@@@@ TG KJ )@@G@@ A5,TAPE . $T IS THIS TAPE? ___CLGC*_^@)@M@@@@^@)^@)^@)^@)KK )@@G@@^@)E- E@)^@)^@)^@)CC5 -K*[@@@@*SDFF*@ @@@@-367 INASG 31.264 KL )@@G@@@E@@@@. CCF*** . #1000-122-15823 @E@@@@KM )@@G@@ L,U R2,IOLDSC,X9 . SET I/O PKT ADDR @D@@@@ KN )@@G@@ DL A4,IOLDSC,X9 . SET FILENAME@H@@@@ LMJ KO )@@G@@ A1,SUBDYN . $W ASG SEQUENCE ON 'LOAD SECURE$' @[@@@@. KP )@@G@@@E@@@@ L,U R2,IOLDSB,X9 . SET I/O PKT ADDR @D@@@@KQ )@@G@@ DL A4,IOLDSB,X9 . SET FILENAME@H@@@@ LMKR )@@G@@J A1,SUBDYN . $W ASG SEQUENCE ON 'LOAD SECURR$' @[@@@@KS )@@G@@. @B@@@@ L,U A0,1 . @B@@@@ S,KT )@@G@@S2 A0,LOCW4 . @G@@@@ EXRELP A2 KU )@@G@@ . $P RELEASE INFOR TRANSF BUFFER@E@@@@ L A5,A5SAVE KV )@@G@@ . RESTORE A1,A2,A5 @B@@@@ DL A1,ASAVE KW )@@G@@ . @D@@@@ J NOCHN . $J NOCHN @[@@@@KX )@@G@@. @C@@@@. SUBDYN SUBMITS ASSIGN SEQUENCE OF - @C@@@@. KY )@@G@@ ASG,A - FREE IF FILE IS CATALOUGED @F@@@@. ASG,ADQY - FKZ )@@G@@REE,D - ASG,CP - FREE IF FILE IS DISABLED@E@@@@. ASG,A - ASG,LA )@@G@@CP - FREE IF FILE IS NOT CATALOGUED@[@@@@. @A@@@@. ENTER - LB )@@G@@LMJ A1,SUBDYN @D@@@@. WITH - R2 = I/O PKT ADDR TO GET 1 GRALC )@@G@@NULE @A@@@@. A4,A5 = FILENAME @]@@@@SUBDYN . @E@@@@LD )@@G@@ DS A4,INFOR+6 . $P PLACE FILENAME @ @@@@-377,3LE )@@G@@78 INASG 31.264 @E@@@@. CCF*** . LF )@@G@@#1000-122-15823 @ @@@@-382,382 INASG 31.264 @E@@@@. CCF*** LG )@@G@@ . #1000-122-15823 @F@@@@ JP LH )@@G@@ A4,ACCCND . $T GOOD STATUS ON ASG,A?@E@@@@ L LI )@@G@@ A5,(1*/21) . $A YES,ACCCND NO@F@@@@ TEP A5,ALJ )@@G@@4 . $T DOES FILE EXIST? @E@@@@ J ACCCLK )@@G@@NB . $A NO,ACCCNB YES@F@@@@ TOP,U A4,0100 LL )@@G@@ . $T IS FILE DISABLED? @D@@@@ TEP,U A4,0400 LM )@@G@@ . NO,XER 034@B@@@@ J $+2 . LN )@@G@@@D@@@@ XER11 034 . $PE XER 034 @[@@@@. LO )@@G@@@E@@@@ L A5,ASADQY . $P SET ASG,ADQY @B@@@@LP )@@G@@ S A5,INFOR+1 . @G@@@@ LMJ X11,LQ )@@G@@DYNREQ . $W DYN ASG OF 'LOAD SECURE$' @E@@@@ TP LR )@@G@@ A4 . $T GOOD STATUS? @D@@@@ XER11 034 LS )@@G@@ . $PE XER 034 @E@@@@ L,U A0,8 LT )@@G@@ . SET LGTH FOR FREE @B@@@@ L A5,FREDCW . LU )@@G@@@E@@@@ S A5,INFOR+1 . SET FREE,D CODE @E@@@@LV )@@G@@ LMJ X11,DYNREQ . $W DYNREQ- FREE,D @E@@@@ LW )@@G@@ L,U A0,10 . SET LGTH FOR ASG @E@@@@ TPLX )@@G@@ A4 . $T GOOD STATUS? @D@@@@ XER11 LY )@@G@@ 034 . $PE XER 034 @]@@@@ACCCNB . @ @@@@-385 INLZ )@@G@@ASG 31.264 @E@@@@. CCF*** . #1000-MA )@@G@@122-15823 @E@@@@ TP A4 . $T WAS STATUMB )@@G@@S OK? @D@@@@ XER11 034 . $PE XER 034 @ @@@@MC )@@G@@-387,387 INASG 31.264 @E@@@@. CCF*** MD )@@G@@ . #1000-122-15823 @E@@@@ L A0,R2 . ME )@@G@@GET I/O PKT ADDR @ @@@@-395,418 INASG 31.264 @E@@@@. CCF*** MF )@@G@@ . #1000-122-15823 @D@@@@ J MG )@@G@@ 0,A1 . $P RETURN @^@@@@-624 INASG 31.0@A@@@@MH )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@]@@@@TSTJK9B . @D@@@@ JKMI )@@G@@ 9,$+2 . JK 9 SET? @D@@@@ J NOCHMJ )@@G@@N . NO,NOCHN @E@@@@ L,U X8,SWAP$C MK )@@G@@ . YES,DROP SWAP$ AND@D@@@@ J STATLOP2 . ML )@@G@@RECATALOG IT@A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-635 INMM )@@G@@ASG 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @G@@@@MN )@@G@@. READ DLOC$ MI SEC 1 TO GET BACKUP REEL NUMBER FOR 'C ID' KEYINMO )@@G@@@[@@@@. @E@@@@DLOCRD S X10,DSAVE . SAVE REGISTEMP )@@G@@RS @B@@@@ S X9,X1SAVE . @B@@@@ DSMQ )@@G@@ A1,RCVA0S . @B@@@@ S A5,RCVA2S MR )@@G@@ . @F@@@@ LMJ X11,EX63P . GET AN EXPOOL BUFFMS )@@G@@ER @E@@@@ L,U A1,DREAD$ . SET UP FOR DREAD$ MT )@@G@@@E@@@@ S A1,,A0 . OF DLOC$ MI SEC 1 @B@@@@MU )@@G@@ DL A1,('DLOC$ ') . @B@@@@ DS A1,1MV )@@G@@,A0 . @B@@@@ LXI,U A1,03401 . @B@@@@MW )@@G@@ LXM,U A1,5,A0 . @B@@@@ S A1,3MX )@@G@@,A0 . @B@@@@ L,U A1,1 . @B@@@@MY )@@G@@ S,T1 A1,4,A0 . @F@@@@ S A0,AMZ )@@G@@SAVE . STORE EXPOOL BUFFER ADDR@G@@@@ WLINKI 0,DLNA )@@G@@CMSC . LINK TO INIT2 TO DO ER MSCON$ @F@@@@ L NB )@@G@@ A2,ASAVE . GET EXPOOL BUFFER ADDR @E@@@@ JN NC )@@G@@ A0,$+3 . DID REQUEST FAIL? @G@@@@ L A1,1ND )@@G@@6,A2 . NO, PICK UP BACKUP REEL NUMBER@F@@@@ S NE )@@G@@ A1,BUFR-4 . STORE IN E8ID FOR 'C ID'@F@@@@ EXRELP NF )@@G@@ A2 . RELEASE EXPOOL BUFFER @B@@@@ L NG )@@G@@ X10,DSAVE . @B@@@@ L X9,X1SAVE . NH )@@G@@@B@@@@ DL A1,RCVA0S . @B@@@@ L NI )@@G@@ A5,RCVA2S . @F@@@@ L,U X8,DLOCENT3 . NJ )@@G@@GET @FREE DLOC$ IMAGE @C@@@@ J STATLOP2 . NK )@@G@@DO IT @[@@@@. @C@@@@. IF JK 9 BOOT, KILL ACCOUNT$, TOO. NL )@@G@@@[@@@@. @D@@@@TSTJK9A JK 9,DOCOM . IS JK9 SET? NM )@@G@@@F@@@@ J NOCHN . NO,NOCHN YES,DOCOM NN )@@G@@@A@@@@. <<< END NYU LOCAL CODE <<<@ @@@@-677,683 INASG 31.2NO )@@G@@64 @E@@@@. CCF*** . #1000-122-15823 NP )@@G@@@G@@@@ L A4,0,A0 . SAVE STATUS FOR LATER CHNQ )@@G@@ECK @ @@@@-723 INASG 31.264 @E@@@@. CCF*** NR )@@G@@ . #1000-122-15823 @F@@@@ASADQY + 0102200010NS )@@G@@02 . ASG WITH ADQY OPTIONS @C@@@@FREDCW + 011020,0 NT )@@G@@ . FREE,D@^@@@@-801,801 INASG 31.0@ @@@@ 'GENF$//TOONU )@@G@@BAD . ' @^@@@@-804,804/1,1 INASG @C@@@@ 'GENF$//TOOBAD.,FNV )@@G@@4/28/TRK/0160000 . ' @B@@@@-807,807 INASG 31.0 NW )@@G@@@ @@@@ 'GENF$//TOOBAD . ' @^@@@@-813,813 INASG 31.0@G@@@@NX )@@G@@ 'ACCOUNT$/FLIP/FLOP,F17/10 . ' . NYU*** KEEP EXEC OFF 432 NY )@@G@@@ @@@@-822,822/1,1 INASG 31.77 @D@@@@ 'SYS$*DLOC$/@R/W@,F2NZ )@@G@@ . ' . NYU*** @ @@@@-842,842/1,1 INASG 31.77 @G@@@@ OA )@@G@@ 'SYS$*LIB$//LIBWK$,F17/1//9999 . ' . NYU*** KEEP EXEC OFF 432 @^@@@@OB )@@G@@-941,941 INASG 31.0@]@@@@. NYU*** @F@@@@ TABENT 'ASGOC )@@G@@,CPRG',DLOCIM2 0 *DLOCRD 'END' @^@@@@-942,942- INASG 31.0OD )@@G@@@^@@@@/DLOCENT3 /DLOCENT3*/ @B@@@@-950,950- INASG 3OE )@@G@@1.0 @[@@@@/X/ / @ @@@@-975,975/1,1 INASG 31.126 @F@@@@SWAP$C* TAOF )@@G@@BENT 'ASG,AQ',SWAPIM1 *NOCHN 0 0 @]@@@@-985,985- OG )@@G@@@[@@@@/X/ / @^@@@@-987,987 INASG 31.0@F@@@@ TABENT 'ASGOH )@@G@@,AQX',SWAPIM SWAP$C *TSTJK9B 0 @^@@@@-993,993 INASG 31.0OI )@@G@@@]@@@@. NYU*** @F@@@@ TABENT 'ASG,A',ACNTIM1 *ACNTCK OJ )@@G@@ *TSTJK9A 0 @^@@@@-997,997- INASG 31.0@^@@@@/DLOCENT3/*DLOCRD OK )@@G@@/ ___ S A0,ASAVE . STORE EXPOOL BUFFER ADDR@G@@@@OL )@@G@@ WLINKI 0,DL*[@@@@*SDFF*@^@@@@-190,190 INGEN 31.0@^@@@@OM )@@G@@. NYU*** TS CONFLICT @^@@@@-192 INGEN 31.0@]@@@@. NYU*** ON )@@G@@@B@@@@ CTS GENF$LOCK . @ @@@@-1853 INGEN OO )@@G@@ 31.247 @E@@@@. CCF*** . #1000-125-15OP )@@G@@602 @G@@@@CURTOC EQUF 010,,H2 . ADDR OF CURRENT BTOQ )@@G@@OC PAGE @ @@@@-1889 INGEN 31.247 @E@@@@. CCF*** OR )@@G@@ . #1000-125-15602 @F@@@@ S A4,COS )@@G@@URTOC,A2 . SAVE CURRENT ADDR OF TOC@ @@@@-1904,1904 INGEN 31.2OT )@@G@@47 @E@@@@. CCF*** . #1000-125-15602 OU )@@G@@@F@@@@ L A4,CURTOC,A2 . ADDR OF CURRENT PAGE OV )@@G@@@ @@@@-1909,1909 INGEN 31.247 @E@@@@. CCF*** OW )@@G@@ . #1000-125-15602 @G@@@@ L A0,27,A3 OX )@@G@@ . $T DOES PAGE HAVE AN OVERFLOW?@ @@@@-1914,1914 INGEN 31.247 OY )@@G@@@E@@@@. CCF*** . #1000-125-15602 @F@@@@OZ )@@G@@ L A4,27,A3 . GET OVERFLOW PAGE ADDR @ @@@@PA )@@G@@-1982,1982 INGEN 31.247 @E@@@@. CCF*** PB )@@G@@ . #1000-125-15602 @E@@@@ LXM A0,CURTOC,A2 . PC )@@G@@CURRENT TOC ADDR ___AC9A@4^[DD1BC(I^@)^@)AS1 02A)7^@)@J@@@@ 0)CT#C0% K%PD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)^S1A@0A@!AC2A*!AC5A00PE )@@G@@*[@@@@*SDFF*@^@@@@-29,30 LOCTAB 31.0@E@@@@. CCF*** PF )@@G@@ . #1004-007-04872 @D@@@@ + MAXTIM,MAXPG )@@G@@PAG . MERT, MPOUT @G@@@@ F2 2,CHGDED,MAXCRQ,MAXCRDPH )@@G@@ . BOOTSW, DTA, CQENT, MCOUT @^@@@@-45 LOCTAB 31.0@A@@@@. PI )@@G@@ >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @C@@@@. UNATTENDED MODPJ )@@G@@E/'D ON' KEYIN FLAG @[@@@@. @G@@@@DONFLG* + 1 PK )@@G@@ . TURN OFF DEMAND TIL OP SEZ OK @A@@@@. <<< END NYU LOCPL )@@G@@AL CODE <<<___D-JCT[D))CTJC- ^@"B0"@[@@@@ 0)^@)@F@@@@ 0)^@)^@)^@)^@)E(IPM )@@G@@CDOE- D1^C(^^[HD9^C*\^9^^[JD0$^[FC(TDDI^[AD-[C8)@[@@@@ 0)^@)@M@@@@C-JD1APN )@@G@@D-B K)^@) S)^@)^@)^@)^@)*[@@@@*SDFF*@ @@@@-587 LOGM 31.244.8 PO )@@G@@@E@@@@. CCF*** . #1002-026-07499 @ @@@@PP )@@G@@ L,H2 A4,LOCW10 @H@@@@ AN A4,CHAINCNT,X9 PQ )@@G@@ . $P DECREMENT COUNT IN USER CHAIN @ @@@@ S,H2 A4,LPR )@@G@@OCW10 @ @@@@ L A0,X9 @ @@@@ SSC A3,1PS )@@G@@8 @F@@@@RECOVA LXM A3,QCHAIN,A0 . $P GET NEXT IN CHAPT )@@G@@IN @ @@@@ L A4,27,A0 @ @@@@ L R3,APU )@@G@@3 @F@@@@ S A4,24,A0 . $P SAVE RUNID PASSPV )@@G@@ED @G@@@@ SZ,S3 0,A0 . $P LET LOGGER HAVEPW )@@G@@ BUFFER @H@@@@ SZ 27,A0 . $P ZERO OUT PX )@@G@@RUNID FOR EXEC ENTRY @G@@@@ LMJ X11,LOGGER . PY )@@G@@$P LOG ENTRY TO EXEC CHAIN @ @@@@ L A3,R3 @ @@@@PZ )@@G@@ L,U A0,0,A3 @G@@@@ JNZ A0,RECOVA QA )@@G@@ . $R ANOTHER LOG ENTRY IN CHAIN @E@@@@ QB )@@G@@ . $A YES,RECOVA NO@ @@@@ SSL A3,18 @I@@@@QC )@@G@@ LXI,U X8,ENDSTEP . $P RETURN TO ENDSTEP AFTER RECQD )@@G@@HAINING @D@@@@ J RECHAIN . $J RECHAIN QE )@@G@@___^-K^[NCDQC*)ELPD1DC))E[[ETNC(^^@)@L@@@@^@)^@)^@)^@)^@)ETU -NAS)^@)^@)QF )@@G@@A@?CC0^@)^@)^@)^@)^@)^@)^@)^@) 0)^-K^[GC(O^[GD9BC9 EK)D[[E1 ^[]E(AC1 EK)QG )@@G@@*[@@@@*SDFF*@^@@@@-49,49 RSIMSG 31.0@]@@@@. NYU*** @E@@@@ QH )@@G@@ CFM 68,17,QSTRTM . SYSTEM SIGN-ON MSG@^@@@@-67,67 RSQI )@@G@@IMSG 31.0@]@@@@. NYU*** @F@@@@ CFM 11,3,QTCS1 QJ )@@G@@ . DCT500/TTY @@ COMPLETE @ @@@@-69,69 RSIMSG 31.248 @E@@@@QK )@@G@@. CCF*** . #1003-157-09617 @D@@@@ QL )@@G@@ CFM 28,7,QTPST . PT START MSG@ @@@@-106/5 RSIMSG QM )@@G@@ 31.241 @]@@@@. NYU*** @F@@@@ CFM 40,10,QBSYM QN )@@G@@ . 1108 BUSY, TRY LATER @^@@@@-113 RSIMSG 31.0@]@@@@. NYU*QO )@@G@@** @E@@@@BELL EQU 07 . FOR TIMEOUT MSGS QP )@@G@@@^@@@@-149,149 RSIMSG 31.0@]@@@@. NYU*** @E@@@@ '$$$$$$ QQ )@@G@@NYU - UHMC 1108 OPERATING SYSTEM VER. '@^@@@@-194,195 RSIMSG 31.0QR )@@G@@@ @@@@-197 RSIMSG 31.248 @E@@@@. CCF*** QS )@@G@@ . #1003-157-09617 @E@@@@ + 015,012,0,0 QT )@@G@@ . LF/CR/NUL/NUL @^@@@@-235,235 RSIMSG 31.0@]@@@@. NYU*** QU )@@G@@@E@@@@ '*TIMEOUT' . THANK YOU, UOM @B@@@@QV )@@G@@ + '*',BELL,' ',' ' . @^@@@@-256,256 RSIMSG 31.0QW )@@G@@@]@@@@. NYU*** @D@@@@ '*TIMEOUT WARNING' . UOM, TQX )@@G@@OO @B@@@@ + '*',BELL,' ',' ' . @ @@@@-264/8 RSQY )@@G@@IMSG 31.241 @]@@@@. NYU*** @D@@@@QBSYM '1108 BUSY, TRY AGAIQZ )@@G@@N LATER...SORRY, UHMC' ___^@)^@)ELNDDHETB^@)^@)AS1 02A)8^@)@J@@@@ 0)CT#RA )@@G@@C0% K%^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)^S1A@0AS!AC5A8!RB )@@G@@*[@@@@*SDFF*@ @@@@-137,137 RSTABL 31.257 @E@@@@. CCF*** RC )@@G@@ . #1000-080-15742 ___^@)@K_@@@ K,^@)^@)^@)^@)^@)RD )@@G@@C(SE[JD9G^[]E(AC1 EK)C1J*[@@@@*SDFF*@ @@@@-525/6,6 RSTASG 31.245 RE )@@G@@@E@@@@. CCF*** . #1000-079-15564 @ @@@@RF )@@G@@ EXER 02,RSERR2 @C@@_@-861,861- RSTASG 31.246 CCF #10RG )@@G@@00-079-15587@]@@@@/A1/A2/ @ @@@@-867,867- RSTASG 31.246 @]@@@@RH )@@G@@/A1/A2/ @ @@@@-1887,1895 RSTASG 31.245 @E@@@@. CCF*** RI )@@G@@ . #1000-079-15564 @G@@@@ SZ RSINRJ )@@G@@AC . CLEAR FLAG FOR RSERRU EXIT @ @@@@ J RK )@@G@@ ERR1EX @ @@@@-1898 RSTASG 31.245 @E@@@@. CCF*** RL )@@G@@ . #1000-079-15564 @G@@@@ L,U A4,1RM )@@G@@ . SET FLAG FOR RSERR2 EXIT FOR @H@@@@ S RN )@@G@@ A4,RSINAC . FREE OF CKPT FILE AND PCT SPACE @]@@@@ERR1EXRO )@@G@@ . @ @@@@-1905 RSTASG 31.245 @E@@@@. CCF*** RP )@@G@@ . #1000-079-15564 @ @@@@ L A0,EXPCTA RQ )@@G@@@D@@@@ L A1,EX10 . GET SWL @G@@@@ RR )@@G@@ TE A0,SD,A1 . DETACH IF ATTACHED TO USER @ @@@@RS )@@G@@ LMJ X11,BPCTEX@ @@@@-1907,1907 RSTASG 31.245 @E@@@@RT )@@G@@. CCF*** . #1000-079-15564 @G@@@@ RU )@@G@@ ILINKI RSTFID,RSTER1 . $WE ILINKI - RSTFID AT RSTER1 ___^@)RV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)^S1A@0A@!A@7BC!AC5A*6A))^@)@L@@@@RW )@@G@@*[@@@@*SDFF*@ @@@@-570,570 RSTPAR 31.246 @E@@@@. CCF*** RX )@@G@@ . #1000-102-15588 @ @@@@ L A3,ERY )@@G@@X10 @D@@@@ L A3,SD,A3 . GET PCT @E@@@@RZ )@@G@@ S A3,PCTAD . RESET IN D-BANK @ @@@@-905/1SA )@@G@@,1 RSTPAR 31.244.3 @A@@@@ L,S1 A4,BDPWD,X11 @]@@@@SB )@@G@@-905/3,3 @A@@@@ S,S1 A5,BDPWD,X11 @]@@@@-1211,1219 SC )@@G@@@^@@@@-1240,1265/0,0/1240,1250@^@@@@ EXGET,'M' 7 @#@@@@-1240,SD )@@G@@1265/4,6 @ @@@@ L A1,NA,A3 @ @@@@ A SE )@@G@@ A1,BDTL,A1@B@@@@ L A1,BDBCP+BDPWD,A1 @#@@@@-1240,SF )@@G@@1265/8,11 @A@@@@ S A4,BTYPE,A0 @ @@@@ S SG )@@G@@ A5,BNUM,A0@ @@@@ SZ BLINK,A0 @ @@@@ S,SH )@@G@@H1 A1,BBCP,A0@#@@@@-1240,1265/19,19 @]@@@@-1254,1264 @ @@@@ SI )@@G@@ L A0,CQAD @ @@@@ L A1,EX10 @A@@@@ SJ )@@G@@ L A3,QRD$DT,A0 @ @@@@ S A3,SE,A1 @ @@@@SK )@@G@@ L A0,A2 @ @@@@ DL A4,PRTMSG @ @@@@SL )@@G@@ DS A4,0,A0 @A@@@@ L A4,PRTMSG+2 SM )@@G@@@ @@@@ S A4,2,A0 @ @@@@ LXI,U A0,0103 SN )@@G@@@ @@@@ ER PRINT$ @]@@@@-1266/0,2 ___^@)^@)^@)CC1 -]SO )@@G@@CL#E@?CC0^@)@^@@@@ *1AK4A@?AC2A05 81BC?AC9@#@@@@*[@@@@*SDFF*@ @@@@-2832 SP )@@G@@ SMOUTK 31.247 @E@@@@. CCF*** . SQ )@@G@@#1003-147-09610 @ @@@@ TE,U A4,'SX' @ @@@@ TNSR )@@G@@E,U A4,'SV' @F@@@@ J $+2 . SX OR SS )@@G@@SV - DO UNLOCK @F@@@@ J SVBDNU . NO UNLST )@@G@@OCK NECESSARY @ @@@@-2833 SMOUTK 31.247 @E@@@@. CCF*** SU )@@G@@ . #1003-147-09610 @E@@@@SVBDNU . NO UNLSV )@@G@@OCK FOR 'SQ' OR 'SR' KEYIN SYNTAX ERRORS ___^@)*[@@@@*SDFF*@^@@@@-120 SW )@@G@@ SYMBKP 31.0@ @@@@. UNIVAC FIX*** IN ON 225A1 @^@@@@ SZSX )@@G@@ 2,A0@ @@@@-166 SYMBKP 31.257 @E@@@@. CCF*** SY )@@G@@ . #1003-077-09744 @G@@@@ L A0,FSZ )@@G@@ILEQD . $T IS THIS A SYM BEFORE BRKPT?@E@@@@ JZ TA )@@G@@ A0,NOSYM . $A NO,NOSYM YES @A@@@@ L A1,DTB )@@G@@VANAM,A0 @F@@@@ TNE A1,DROP$NAM . $T IS THIS ATC )@@G@@ SYM,D ? @H@@@@ L A4,(1*/('Z'-'I')) . $P REPLACE 'TD )@@G@@B' BY 'I' OPTION ON FREE@]@@@@NOSYM . @^@@@@-294 SYMBKP 31.0TE )@@G@@@#@@@@ DIOSTR @A@@@@ LMJ X11,SYCKDIR @D@@@@TF )@@G@@ J RETRRNNDI . J IF NOT DI @A@@@@ L TG )@@G@@ A4,RSBIT2,A3 @G@@@@ OR,U A4,RSOBFL . ONTH )@@G@@E MORE IMAGE (EOF) IS AVAIL @A@@@@ S A4,RSBIT2,A3 TI )@@G@@@A@@@@ L A5,RSOUTI,A3 @^@@@@ CTS 0,A3TJ )@@G@@@ @@@@ TEP,U A4,RSOBFL @I@@@@ J DMDDI TK )@@G@@ . IF RSOBFL SET B4, QUE ENTRY MADE B 4 ALS @H@@@@ JNTL )@@G@@Z A5,DMDDI . NO QUE ENTRY IF ALREADY OUTOUTTING @ @@@@TM )@@G@@ L A3,UR1 @ @@@@ L X10,UR1 @F@@@@TN )@@G@@ LXI,U A3,DIOTRDY . OUTPUT RDY QUE ENT TYPE @A@@@@TO )@@G@@ R SLSYM,SDEX1 @ @@@@ L,U A0,SMDMWQ TP )@@G@@@C@@@@ LMJ X11,SMQING . KICK DI @A@@@@ D TQ )@@G@@ SDEX1,SLSYM,A0 @D@@@@ L R1,X10 . RETR )@@G@@STORE RETURN@ @@@@ J DMDDI @]@@@@RETRRNNDI . @#@@@@TS )@@G@@ DIOEND @^@@@@-312 SYMBKP 31.0@#@@@@ DIOSTR TT )@@G@@@]@@@@DMDDI . @#@@@@ DIOEND @ @@@@-316,318/6 SYMBKP TU )@@G@@31.126@#@@@@ DIOSTR @ @@@@ L A0,RQINDX @ @@@@TV )@@G@@ LMJ X11,SDICHK@H@@@@ J DMDOFA TW )@@G@@ . DI MUST WAIT TIL OUTPUT PROCESSED @#@@@@ DIOEND @^@@@@TX )@@G@@-398,399 SYMBKP 31.0@E@@@@. CCF*** FIX PUNCHED OUTPUT (WAS SENT BACTY )@@G@@K TO RSI TERMINAL)@A@@@@ L A1,TBLTYP,A2 @ @@@@ TZ )@@G@@ L A5,MODE2 @B@@@@ L A4,030,A3 DEVAPR UA )@@G@@@ @@@@ TEP,U A5,DEMMOD @ @@@@ TE,U A1,PU$TYP UB )@@G@@@^@@@@ J $+2 @A@@@@ L A4,SMLSTP+SMCRINUC )@@G@@@^@@@@-401,401 SYMBKP 31.0@E@@@@. CCF*** FIX PUNCHED OUTPUT (WAS SEUD )@@G@@NT BACK TO RSI TERMINAL)@ @@@@-475 SYMBKP 31.257 @E@@@@. CCF*UE )@@G@@** . #1003-077-09744 @G@@@@ L UF )@@G@@ A0,FILEQD . $T IS THIS A SYM BEFORE BRKPT?@E@@@@ UG )@@G@@ JZ A0,NOSYM1 . $A NO,NOSYM1 YES @A@@@@ L UH )@@G@@ A5,DVANAM,A0 @F@@@@ TNE A5,DROP$NAM . UI )@@G@@$T IS THIS A SYM,D ? @G@@@@ L A1,(1*/('Z'-'I')) . UJ )@@G@@$P REPLACE B BY I ON FREE @]@@@@NOSYM1 . @ @@@@-620 SYMBKP UK )@@G@@ 31.257 @E@@@@. CCF*** . #1003-077-09UL )@@G@@745 @E@@@@ L A3,CONTBL,A2 . CONTROL TABLE UM )@@G@@@ @@@@ L A4,PRMODE @F@@@@ OR,U A4,USPCT UN )@@G@@ . $P SET IN USER'S PCT @ @@@@ S A5,PRMODE UO )@@G@@@^@@@@-917 SYMBKP 31.0@C@@@@ DIISTR . LEAVE DI'S PRMUP )@@G@@ODE ALONE @^@@@@-928 SYMBKP 31.0@#@@@@ DIIEND @^@@@@UQ )@@G@@-1576/0,0/1574,1574 @]@@@@. NYU*** @^@@@@ 'RUN$ 'UR )@@G@@___ @A@@@@ L A4,RSBIT2,A3 @G@@@@ OR,U US )@@G@@ A4,RSOBFL . ONE MORE IMAGE (EOF) IS AV*[@@@@*SDFF*@^@@@@-225 UT )@@G@@ CSK 31.0@]@@@@. NYU*** @G@@@@ JZ A5,BDISP UU )@@G@@ . IF NO TEXT, OP WANTS DISPLAY @D@@_@-226,226- CSK *NYUUV )@@G@@ LOCAL* LIMIT MAXOPEN TO 99 @[@@@@/6/3/ @^@@@@-238 CSK 31.0UW )@@G@@@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@E@@@@BDISP UX )@@G@@ . DISPLAY MAXOPEN @E@@@@ LA,H2 A5,CSHOLD UY )@@G@@ . RETRIEVE MAXOPEN @F@@@@ LMJ X11,FDATA UZ )@@G@@ . CONVERT TO FD DECIMAL @B@@@@ DL A4,('MAXOPEN: @@VA )@@G@@@') . @D@@@@ DS A4,28,A2 . ADD MSG @B@@@@VB )@@G@@ SZ 0,A2 . @E@@@@ SZ 2,A2VC )@@G@@ . SET UP COM$ PKT @D@@@@ LXI,U A3,18 VD )@@G@@ . FOR 18 CHARS@F@@@@ LXM,U A3,28,A2 . VE )@@G@@FROM EXPOOL BUFFER+28 @B@@@@ SA A3,1,A2 . VF )@@G@@@E@@@@ L,U A0,,A2 . LOAD PKT ADDR @F@@@@VG )@@G@@ ER COM$ . DISPLAY MAXOPEN VALUE @A@@@@VH )@@G@@. <<< END NYU LOCAL CODE <<<@^@@@@-644 CSK 31.0@A@@@@VI )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @C@@@@. ALLOW 'TVJ )@@G@@ B' KEYIN, FOR BATCH RUNS ONLY@[@@@@. @D@@@@ TNE,U A4,'VK )@@G@@B ' . T B KEYIN? @G@@@@ J $+3 VL )@@G@@ . YES, WANT BATCH RUNS ONLY @A@@@@. <<< END NYU LOCAL CODVM )@@G@@E <<<@^@@@@-666 CSK 31.0@A@@@@. >>> BEGIN NYU LOCAL COVN )@@G@@DE >>>@F@@@@ L X10,R2 . GET EXPOOL BUFFER VO )@@G@@ADDR @D@@@@ L,T1 A4,27,X10 . GET MSG TEXT@D@@@@VP )@@G@@ TE,U A4,'B ' . T B KEYIN? @C@@@@ J VQ )@@G@@ NOTSPB . NO @D@@@@ L A4,RTYPE,AVR )@@G@@3 . GET RUN TYPE@D@@@@ TNE,U A4,4 . VS )@@G@@DEMAND? @D@@@@ J TKEYB . YES, SKIP ITVT )@@G@@@]@@@@NOTSPB . @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-1238 VU )@@G@@ CSK 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@]@@@@. NYU*VV )@@G@@** @E@@@@ SZ 23,A2 . CLEAR OUT 'SIZE ='VW )@@G@@@F@@@@ SZ 24,A2 . SINCE RUN ISN'T OPEN! VX )@@G@@@^@@@@-1283,1283 CSK 31.0@]@@@@. NYU*** @F@@@@ DL VY )@@G@@ A4,TRPROJ,A3 . GET PROJ FOR RC KEYIN @D@@@@ TNE VZ )@@G@@ A5,SPACES . 1-WD PROJ? @E@@@@ SZ A5 WA )@@G@@ . YES, CLEAR 2ND WD @^@@@@-1359 CSK 31.0@]@@@@. NYU*WB )@@G@@** @G@@@@ SZ 11,A2 . NO 'TIME =' IF RUNWC )@@G@@ NOT INCORE @^@@@@-1386,1386 CSK 31.0@A@@@@. >>> BEGIN NYU LOWD )@@G@@CAL CODE >>>@F@@@@ A A3,AL,A3 . POINT TO QUAWE )@@G@@L TABLE @F@@@@ DL A4,*1,A3 . GET PROJ FORWF )@@G@@ RC KEYIN @D@@@@ TNE A5,SPACES . 1-WD PROJ? WG )@@G@@@E@@@@ SZ A5 . YES, CLEAR 2ND WD @E@@@@WH )@@G@@ L A3,QPCT,A0 . RESTORE PCT TO A3 @A@@@@. WI )@@G@@ <<< END NYU LOCAL CODE <<<@^@@@@-1464 CSK 31.0@A@@@@. WJ )@@G@@ >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @E@@@@. REMOVE TRAILINWK )@@G@@G BLANKS FROM RUNID IN RC DISPLAY @[@@@@. @F@@@@ L,U WL )@@G@@ R1,4 . FOR LAST FIVE CHARS @F@@@@ L WM )@@G@@ X11,(1,0) . CHECK RUNID FOR SPACES @F@@@@ZROS EX WN )@@G@@ GETCHR,X11 . GET A CHAR OF RUNID @E@@@@ TE,U WO )@@G@@ A4,5 . IS IT A SPACE? @E@@@@ J ZROEWP )@@G@@ . NO, WE'RE THROUGH @F@@@@ SZ A4 WQ )@@G@@ . YES, GET ZERO IN A4 @D@@@@ EX STRCHR,*X1WR )@@G@@1 . REPLACE CHAR@D@@@@ JGD R1,ZROS . WS )@@G@@MORE TO DO? @E@@@@ZROE . . NO, WE'RE FIWT )@@G@@NISHED@A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-1534,1537 CSK WU )@@G@@ 31.0@]@@@@. NYU*** @B@@@@ ' @@@@' . WV )@@G@@@G@@@@ '@@@@@@' . DON'T WASTE PAGEWRITER TWW )@@G@@IME @B@@@@ '@@@@@@' . @B@@@@ WX )@@G@@ '@@@ ' . @^@@@@-1544,1544 CSK 31.0@]@@@@. NYU*WY )@@G@@** @B@@@@ '@@@@@@' . @^@@@@-1546,1547 WZ )@@G@@CSK 31.0@]@@@@. NYU*** @B@@@@ '@@@@@@' XA )@@G@@ . @B@@@@ '@@ P' . @^@@@@-1777,1781 XB )@@G@@CSK 31.0@E@@@@. CCF*** . #1004-010-04XC )@@G@@874 ___ A4,RTYPE,A3 . GET RUN TYPE@D@@@@ TNE,U XD )@@G@@ A4,4 . DEMAND? @D@@@@ *[@@@@*SDFF*@^@@@@-95 XE )@@G@@ CSP 31.0@I@@@@ DIOSTR XF )@@G@@ D3100300 @I@@@@ LMJ X11,SYCKDIXG )@@G@@ D3100400 @I@@@@ J XH )@@G@@ BADRUN . JUST FORGET IT IF D.I. D3100500 XI )@@G@@@I@@@@ DIOEND XJ )@@G@@ D3100600 @^@@@@-118,120 CSP 31.0@^@@@@-605 CSP XK )@@G@@ 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@F@@@@ TNZ,S6 XL )@@G@@ DESFST+1,A2 . 12TH CHAR OF ACCT = '@'?@F@@@@ J XM )@@G@@ $+5 . YES, RUN IS PRIVILEGED @F@@@@ LA XN )@@G@@ A0,INPUT,A2 . NO, SO MAKE SURE IT @F@@@@ LA XO )@@G@@ A4,1,A0 . DOESN'T HAVE AN X OPTION@B@@@@ AND XP )@@G@@ A4,CONST(-XOPT) . @B@@@@ SA A5,1,A0 . XQ )@@G@@@A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-628,628 CSP 31.0XR )@@G@@@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@D@@@@ JNB A4,$XS )@@G@@+4 . NO,$+4 YES@E@@@@ DL A4,(PRIVAC) XT )@@G@@ . YES, GET 'P@' ACCT@D@@@@ DS A4,DESFST,A2 . XU )@@G@@SET ACCT @B@@@@ J ACCEPT . @A@@@@. XV )@@G@@ <<< END NYU LOCAL CODE <<<@^@@@@-633,636 CSP 31.0@^@@@@-669,6XW )@@G@@71 CSP 31.0@E@@@@. CCF*** . #1004-XX )@@G@@004-04904 @^@@@@-678,680 CSP 31.0@A@@@@ AA A1,FXY )@@G@@STAD,A2 @^@@@@-703,708 CSP 31.0@A@@@@. >>> BEGIN NYU LOXZ )@@G@@CAL CODE >>>@[@@@@. @B@@@@. REJECT ALL UNDEFINED ACCOUNTS YA )@@G@@@[@@@@. @F@@@@. ELIMINATION OF THE TYPE-AND-READ CONSOLE MESYB )@@G@@SAGE AND @F@@@@. ASSUMPTION OF 'R' RESPONSE ALLOW UNATTENDED YC )@@G@@OPERATION. @E@@@@. AN UNDEFINED ACCOUNT FROM A DEMAND TERMINAL YD )@@G@@WON'T @ @@@@. HANG EVERYONE ELSE. @[@@@@. @F@@@@. IFYE )@@G@@ A BAD ACCOUNT NUMBER IS ENCOUNTERED, THE FOLLOWING @D@@@@. MEYF )@@G@@SSAGE WILL BE DISPLAYED ON THE CONSOLE: @[@@@@. @C@@@@. YG )@@G@@ 'RUNID ACCT XXXXX REJECTED' @[@@@@. @B@@@@ LA YH )@@G@@ A4,(' ACCT ') . @D@@@@ SA A4,1,A0 . YI )@@G@@SET UP MSG @D@@@@ DL A4,DESFST,A2 . GET ACCT YJ )@@G@@@D@@@@ DS A4,2,A0 . STORE IN MSG@E@@@@ YK )@@G@@ DL A4,(' REJECTED ') . GET REST OF MSG @B@@@@ DSYL )@@G@@ A4,4,A0 . @A@@@@. <<< END NYU LOCAL CODE <<>> YS )@@G@@BEGIN NYU LOCAL CODE >>>@G@@@@ TNZ A4 . YT )@@G@@IS ESTIMATED RUN TIME ZERO? @F@@@@ LA,U A4,25 YU )@@G@@ . YES, MAKE IT 25 SECS. @A@@@@. <<< END NYU LOCAL CODE <<>> BEGIN NYU LOCAL CODE >>>YW )@@G@@*[@@@@*SDFF*@C@@_@-15,15- DAPAM *NYU* REDUCE BATCH WAIT TIME@]@@@@YX )@@G@@/21/2 / @ @@@@-444,444 DAPAM 31.244 @^@@@@. CCF*** FIX STALYY )@@G@@LS @E@@@@ J FNCR . $A YES NO,TNCR YZ )@@G@@@ @@@@-456,460 DAPAM 31.244 @^@@_@. CCF*** FIX STALLS ___CTMZA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@) 0)^-[^[TC(N^@)^[ID8?E-I*[@@@@*SDFF*@F@@_@-112,1ZB )@@G@@17 FIHOLD 31.0 *NYU* AVOID EXPOOL FULL OF FIHOLD ASA'S @E@@_@-295,2ZC )@@G@@95 FIHOLD 31.0 *NYU* WAITING FOR A TAPE TO REWIND @A@@@@. >>> ZD )@@G@@BEGIN NYU LOCAL CODE >>>@[@@@@. @F@@@@. ALLOW MORE THAN ONE ZE )@@G@@ITEM TO BE REMOVED FROM HOLD IF @F@@@@. FREE OF A CATALOGUEDZF )@@G@@ FILE @[@@@@. @G@@@@ JZ ZG )@@G@@ A0,SRCHPK . TRY FOR ANOTHER IF CAT FILE @A@@@@. <<< ZH )@@G@@ END NYU LOCAL CODE <<<___^@)^@)^@)^@)CDGD-JE8)*[@@@@*SDFF*@^@@@@-583 ZI )@@G@@ FISTAT 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@_@. ZJ )@@G@@@F@@_@. TURN OFF UP, DN, RV OF COMM LINES UNTIL COMM INITIALIZATION ZK )@@G@@@D@@_@. IN INIT3. AVOIDS SEVERAL TYPES OF STOPS IN COMAVL. @[@@_@. ZL )@@G@@@ @@@@ TZ,S2 BOOTFLG @ @@@@ J MNDNRT ZM )@@G@@@A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-1913 FISTAT 31.0ZN )@@G@@@]@@_@. NYU*** @ @@@@ TZ,S2 BOOTFLG @ @@@@ J ZO )@@G@@ MNUPRT @^@@@@-3051 FISTAT 31.0@]@@_@. NYU*** @ @@@@ZP )@@G@@ TZ,S2 BOOTFLG @ @@@@ J MNRVRT @C@@@@ZQ )@@G@@-4601,4604 FISTAT 31.0 @A@@@@. >>> BEGIN ZR )@@G@@NYU LOCAL CODE >>>@E@@@@ S A4,5,A0 . STORE ZS )@@G@@REEL NUMBER @D@@@@ L A4,,A1 . GET RUNID ZT )@@G@@@G@@@@ DSC A4,6 . INSERT 1 SPACE ZU )@@G@@ @G@@@@ S A4,6,A0 . AND STORE RUNID ZV )@@G@@ @G@@@@ SSL A5,30 . FOLLOWING REZW )@@G@@EL NUMBER @G@@@@ S A5,7,A0 . AFTER ZX )@@G@@1 SPACE @A@@@@. <<< END NYU LOCAL CODE <<<___B0"ZY )@@G@@*[@@@@*SDFF*@#@@@@-43/151,151 INIT2 @B@@_@. CCF*** FIX TO BOOT WITH PAGEZZ )@@G@@WRTR OFFLINE@A@@@@ S A1,ITKYDV,A3 @#@@@@-43/166 INITAA )@@G@@2 @B@@_@. CCF*** FIX TO BOOT WITH PAGEWRTR OFFLINE@A@@@@ L AB )@@G@@ A3,STRPT,X9 @A@@@@ L A5,STPATH,X9 @A@@@@AC )@@G@@ L A2,STRJF,X9 @ @@@@ A A3,BOOTX2 AD )@@G@@@ @@@@ EX STRREP,A2 @]@@@@-43/168,168 @B@@_@. CCF*** FIXAE )@@G@@ TO BOOT WITH PAGEWRTR OFFLINE@ @@@@ L,U A0,0401 @]@@@@AF )@@G@@-43/172,174 @B@@_@. CCF*** FIX TO BOOT WITH PAGEWRTR OFFLINE@]@@@@-43/17AG )@@G@@6,177 @B@@_@. CCF*** FIX TO BOOT WITH PAGEWRTR OFFLINE@ @@@@ TNAH )@@G@@Z CNSTYP,X9 @A@@@@ S A0,STNUNT,X9 @]@@@@-43/17AI )@@G@@9 @B@@_@. CCF*** FIX TO BOOT WITH PAGEWRTR OFFLINE@ @@@@ JKAJ )@@G@@ 12,CONSSC @#@@@@ EON @ @@@@ TZ CNSTAK )@@G@@YP,X9 @#@@@@ EOFF @ @@@@ A,U A0,0200 @]@@@@AL )@@G@@-43/221 @B@@_@. CCF*** FIX TO BOOT WITH PAGEWRTR OFFLINE@A@@@@ AM )@@G@@ L A3,STMPA,X9 @A@@@@ S A0,KYADEV,A3 AN )@@G@@@^@@@@-665 INIT2 31.0@]@@@@. NYU*** @H@@@@ S AO )@@G@@ A0,BOOTTIME$ . STORE TIME FOR POINTER$ AND LB KEYIN@]@@@@-1136 AP )@@G@@INIT2 @B@@_@. CCF*** FIX TO BOOT WITH PAGEWRTR OFFLINE@]@@@@ITKYDV* AQ )@@G@@@^@@@@ DO CNSN , +0 @^@@@@-1159,1159 INIT2 31.0@F@@_@. NYU*AR )@@G@@** TAPE IS ALREADY MOUNTED, SO WHY CONFUSE THE OPERATOR? @G@@@@ AS )@@G@@ 'N ' . NYU*** ADD N-OPT TO @ASG,T BOOT @ @@@@AT )@@G@@-1175 INIT2 31.244 @B@@@@. CCF*** FIX 063 STOP ON AUTO-RECOVAU )@@G@@ERY @F@@@@INDASV* + 0 . INDA INIT SAVE CELAV )@@G@@L @^@@@@-1184 INIT2 31.0@A@@@@. >>> BEGIN NYU LOCAL COAW )@@G@@DE >>>@[@@@@. @E@@@@. INASG COMES HERE TO READ MAIN ITEM OF AX )@@G@@SYS$*DLOC$ @[@@@@. @E@@@@DLCMSC* ER MSCON$ . AY )@@G@@DO THE MSCON$ @E@@@@ L A1,A2 . GET REAZ )@@G@@TURN ADDR @E@@@@ LMJ X11,ILINKW . RETURN TO INBA )@@G@@ASG @A@@@@. <<< END NYU LOCAL CODE <<<___ ))ETJ^[RD[T^[#D9IC1PBB )@@G@@ET ^[OD[ ^[JE[ EL[E-JEK_@K@@_@ 0)D1TE*% K%^@)E-[E[ ^[DES)CDGEL CD^FC)D(JBC )@@G@@E(IE- C)?^[ND8)E9CFC)CTJ*[@@@@*SDFF*@^@@@@-196,197 SMADOP 31.0@A@@@@BD )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@_@. @D@@_@. KEEP IMAGE TRANSBE )@@G@@FER TO 22 WORDS FOR @ADD,P. DO NOT @E@@_@. CLOBBER CONTROL WORD OF NEXTBF )@@G@@ BUFFER FOR OVERSIZE IMAGES @[@@_@. @B@@@@ TG,U A4,2BG )@@G@@2 . @F@@@@ L,U A4,22 . LIMIT BH )@@G@@OF 1 PRINT LINE @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-834 BI )@@G@@ SMADOP 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@_@. BJ )@@G@@@C@@_@. FIX UNPROTECTED USE OF READ$ CONTROL TABLE @[@@_@. @B@@@@BK )@@G@@ L R2,LSTCRD . @B@@@@ SZ LSTCBL )@@G@@RD . @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-837,8BM )@@G@@37 SMADOP 31.0@]@@@@. NYU*** @B@@@@ L A2,R2 BN )@@G@@ . @^@@@@-839,840 SMADOP 31.0@]@@@@. NYU*** @B@@@@ BO )@@G@@ L A2,R2 . @ @@@@-889/3,3 SMADOP 31.255 BP )@@G@@@D@@@@. CCF*** FIX STALL CAUSED BY ADD OF EMPTY ELEMENT @ @@@@ BQ )@@G@@ L A0,CBCL @ @@@@ A A0,BINCR @ @@@@ BR )@@G@@ L A4,KM0 @ @@@@ S A4,0,A0 @ @@@@ BS )@@G@@ L,U A5,0205 ___ELJE- CTOC(^^[PET ^[J*[@@@@*SDFF*@D@@_@-189 BT )@@G@@ IOFCS 31.0 FUDGE TO GET MORE SIP DATA @[@@_@. @[@@_@. BU )@@G@@@A@@_@. FUDGE FOR MORE DATA OUT OF SIP @[@@_@. @[@@_@. @#@@_@BV )@@G@@ SBTAG1 @D@@_@ L,U X8,0 . USER IBW )@@G@@NDX @ @@_@ TEP,U A5,IQEXEC @D@@_@ L,U X8,1BX )@@G@@ . EXEC INDEX @ @@_@ TNZ,S1 SY$BAL @D@@_@BY )@@G@@ J SB$DQAR . J IF SIP OFF@ @@_@ L BZ )@@G@@ A0,EX2 @^@@_@ PAIJ $+1 @A@@_@ L CA )@@G@@ A0,DITIMD,A0 @^@@_@ AAIJ $+1 @ @@_@ L CB )@@G@@ A1,UR0 @D@@_@ AN,XU A0,,A1 . A0=TIME CC )@@G@@@ @@_@ TNZ SB$ART,X8 @G@@_@ J SB$DQAR CD )@@G@@ . J IF FORGOT TO INITIALIZE @F@@_@ ANU A0,SCE )@@G@@B$ART,X8 . A1=TIME Q AT OLD SIZE @A@@_@ MSI A1,SCF )@@G@@B$ARN,X8 @ @@_@ L,U A2,SIPBAS @ @@_@ A,U CG )@@G@@ A2,,X8 @F@@_@ A A1,LSLTM+2,A2 . ACCUM TIME*NCH )@@G@@O. ON Q @A@@_@ S A1,LSLTM+2,A2 @A@@_@SB$DQAR L CI )@@G@@ A1,SB$ARN,X8 @D@@_@ AN,U A1,1 . CJ )@@G@@COUNT # ON Q@A@@_@ S A1,SB$ARN,X8 @^@@_@ TNCK )@@G@@Z,U 0,A1@E@@_@ L,U A0,0 . 0 IF NONE ONCL )@@G@@ Q @ @@_@ TZ,S1 SY$BAL @F@@_@ S A0,SCM )@@G@@B$ART,X8 . SET Q SIZE CHG TIME @#@@_@ SBTAG2 @[@@_@CN )@@G@@. @[@@_@. @A@@_@. END OF FUDGE FOR MORE SIP DATA @[@@_@. CO )@@G@@@[@@_@. ___^@)^@)CDI -P^@)^@)^@)CC1 )1^@)^@)^@)^@)^@)^@)^@)^@) 0)CTJCP )@@G@@E(IE))^S)D9I^[L^@)@C@@_@^@)^@)^@)^@)^@)ES)^@)^@)^@)^@)CC1 -NCK=CDMD0?F@8CQ )@@G@@*[@@@@*SDFF*@D@@@@-327 SYSSIP 31.0 FUDGE FOR MORE SIP DATA CR )@@G@@@[@@@@. @[@@@@. @A@@@@. FUDGE FOR MORE DATA OUT OF SIP @[@@@@CS )@@G@@. @[@@@@. @A@@@@ L A0,(1,SB$QXT) @G@@@@ CT )@@G@@ SZ 0,A0 . CLEAR TIME CELLS FOR EXTRA DATA @ @@@@CU )@@G@@ TLEM,U A0,SB$FDGT@^@@@@ J $-2 @[@@@@. CV )@@G@@@[@@@@. @A@@@@. END OF FUDGE FOR MORE SIP DATA @[@@@@. @[@@@@CW )@@G@@. @D@@@@-343/2,3 SYSSIP FIX LOOPING ON EOF ON DRUM @A@@_@CX )@@G@@ L,H1 A3,SYSSIPSENT,A2@B@@@@ S,H1 A3,TSTTAB+CY )@@G@@LTB-1,A2 ___^[NFDNETDE@)^@)^@)^[ADDS^[GD9JE[DD1B^[JD0)C(JC0)D9I^[^ELPCZ )@@G@@D*)^@)@C_@@@^@)^@)^@)^@)*[@@@@*SDFF*@D@@@@-597,598 EIH 31.0 FUDGDA )@@G@@E TO GET MORE SIP DATA @D@@@@-601,603 EIH 31.0 FUDGE TO GET MORDB )@@G@@E SIP DATA @[@@@@. @[@@@@. @A@@@@. FUDGE FOR MORE DATA OUT OF DC )@@G@@SIP @A@@@@. GET RID OF EXTRANEOUS CALL ON ACT @[@@@@. @[@@@@. DD )@@G@@@D@@@@ AAIJ TERMIO . GET HIM EXITED@[@@@@. DE )@@G@@@[@@@@. @A@@@@. END OF FUDGE FOR MORE SIP DATA @[@@@@. @[@@@@DF )@@G@@. ___DDOC(^^@)@[@@@@ 0)^@)@[@@@@ 0)^@)@D@@@@ 0)^[ D1^^[JC0)C1PC-BC*)DG )@@G@@C1JEK)D(JEL ^[NDDK^[^CDO*[@@@@*SDFF*@ @@@@-25,25 INDA 31.244 DH )@@G@@@B@@@@. CCF*** FIX 063 STOP ON AUTO-RECOVERY @G@@@@ S DI )@@G@@ A0,INDASV . SAVE ADDR OF EXPOOL SPACE @ @@@@-33/1,1 INDJ )@@G@@DA 31.2_44 @B@@@@. CCF*** FIX 063 STOP ON AUTO-RECOVERY @B@@@@DK )@@G@@ L X9,INDASV . @^@@@@-89,90 INDA 31.0DL )@@G@@@A@@@@. NYU*** SEPARATE LIBRARY TAPE @ @@@@-91,91/1,1 INDA 31.2DM )@@G@@41 @^@@@@-92,93 INDA 31.0@ @@@@-618,618 INDA 31.244 DN )@@G@@@B@@@@. CCF*** FIX 063 STOP ON AUTO-RECOVERY @E@@@@ L DO )@@G@@ X9,INDASV . RESET REGISTERS @ @@@@-807/14,14 INDA 31.2DP )@@G@@44 @B@@@@. CCF*** FIX 063 STOP ON AUTO-RECOVERY @B@@@@ L DQ )@@G@@ X9,INDASV . @B@@@@-1034 INDA . CCF #1002-123-DR )@@G@@15816 @F@@@@ A,U A5,1 . $P ADD ON HEADER WDS )@@G@@ORD @B@@@@-1036 INDA . CCF #1002-123-15816 @F@@@@ ANDT )@@G@@,U A5,1 . $P SUBTRACT FOR JGD @ @@@@-1128,1128 DU )@@G@@INDA 31.244 @B@@@@. CCF*** FIX 063 STOP ON AUTO-RECOVERY @B@@@@DV )@@G@@ L X9,INDASV . ___ )1^@)^@)^@)^@)^@)^@)^@)^@)DW )@@G@@ 0)^-K^[[C-^^[JD0)D[ CD^C(M^[RD9MC))@F@@@@ *1A@3*[@@@@*SDFF*@F@@_@-179,1DX )@@G@@80 OSCP . CCF #1003-011-09866 @F@@_@-182 DY )@@G@@ OSCP . CCF #1003-011-09866 @ @@_@ DZ )@@G@@ L A4,BITCTL @F@@_@ OR,U A4,RKEYM . EA )@@G@@SET COUNT=1 TO 63 FLAG @ @@_@ L A4,UA5 @F@@_@ EB )@@G@@ AND,U A4,RKEYD--07777 . BIT NOT SET = REPUNCH @ @@_@ EC )@@G@@ S A5,BITCTL ___@_@^@)^@)^@)^@)^@)CDIC)?E*)^@)^@)CC4 -MDT FD^ED )@@G@@ *!A@7A87A8)^@)^@) 0)CLDE))D1JE))ET E))B*)EL E[P*[@@@@*SDFF*@F@@_@-514 EE )@@G@@ RMDSP . CCF #1003-015-09807 @E@@_@ EF )@@G@@ L A4,HDWTYP . GET HARDWARE TYPE @H@@_@ JZEG )@@G@@ A4,EINTNR . E1 NOT NORMAL ON UNENHANCED CTMC @H@@_@EH )@@G@@ TNE,U A1,01 . NORMAL E1 COMPLETION ON CTMC 6EI )@@G@@,7 @F@@_@ J REDI1 . YES CONTINUE PROCEEJ )@@G@@SSING @[@@_@EINTNR___D(KD- E-DD9I^[JD0)CTOD(#^@6 )7^@)@L@@_@^@)^@)^@)^@)EK )@@G@@^@)DK)^@)^@)^@)^@)EL C-DAC)^@)^@)^@)^@)^@)^@)^@)*[@@@@*SDFF*@F@@_@-269,2EL )@@G@@69 SYMPER . CCF #1003-127-09773 @H@@_@ EM )@@G@@ AND A0,(037,0) . PREVENT 040 BIT SETTING IN STATUS EN )@@G@@@F@@_@-273 SYMPER . CCF #1003-127-09773 EO )@@G@@@H@@_@ SA,S1 A1,4,A0 . SHOW BAD STATUS FOR NP10EP )@@G@@04 IN SYMPRS___@_@^@)^@)*[@@@@*SDFF*@ @@@@-18 RMSRTN 31.159 EQ )@@G@@@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@E@@@@DLT1 EQU 0 ER )@@G@@ . @F@@@@DLT3 EQU 1 ES )@@G@@ . TURN ON CODE FOR 1130 @A@@@@. <<< END NYU LOCAL CODET )@@G@@E <<<@F@@@@-440,440 RMSRTN . CCF # 1003-066-097EU )@@G@@71 @B@@@@-443,444 RMSRTN . CCF #1003-066-09771 @G@@@@ PAEV )@@G@@IJ $+1 . LOCK OUT MAIN ESI COMPLETION @F@@@@ EW )@@G@@ TS RMTAS . SET FOR RMSPEC TEST @F@@@@ EX )@@G@@ TZ RMSPEC . HAS MAIN POOL BEEN ADDED@F@@_@ EY )@@G@@ J INTS1C . YES-CONTINUE PROCESSING @D@@@@ EZ )@@G@@ CTS RMTAS . NO- CLEAR TS@G@@@@ AAIJ FA )@@G@@ WFINT . GO WAIT FOR COMPLETION OF MAIN___^@) 0)D[[ES)D([FB )@@G@@*[@@@@*SDFF*@C@@@@-646 REMID **RCR** ACCOUNTING INFO FOR STEVE @A@@@@FC )@@G@@ L A2,QRD$DT,A1 @E@@@@ L,H1 A0,014,A2 FD )@@G@@ . CARD IN COUNT @ @@@@ S,H1 A0,7,A3 @E@@@@FE )@@G@@ L A0,017+017,A2 . CARD OUT COUNT @ @@@@ FF )@@G@@ S,H2 A0,7,A3 @D@@@@ L A0,015+017,A2 . FG )@@G@@PRINT COUNT @ @@_@ L,S1 A4,8,A3 @ @@_@ S FH )@@G@@ A0,8,A3 @ @@_@ S,S1 A4,8,A3 ___E))CTJE(IE))^@)@B_@@@FI )@@G@@*[@@@@*SDFF*@B@@_@-198 MORRD$ . CCF #1003-052-09609 @D@@_@ FJ )@@G@@ S,H1 A1,29,A1 . ALSTCRD ___AS!A@5AK!A@9A00BC)^@)FK )@@G@@@H@@_@^@)^@)^@)^@)^@)ES?*[@@@@*SDFF*@F@@_@-653/17,21 FREL FL )@@G@@ . CCF #1002-009-07435 @F@@_@-653/23,24 FREL FM )@@G@@ . CCF #1002-009-07435 @^@@@@-661 FREL 31.0@E@@@@FN )@@G@@. CCF*** . #1002-009-07368 @F@@@@ FO )@@G@@ TNZ FRFIND . HAVE WE READ IN A MBT? @F@@@@ FP )@@G@@ J FR8C . NO, SKIP FATBL UPDATE @^@@@@-670,6FQ )@@G@@71 FREL 31.0@E@@@@. CCF*** . #1002-FR )@@G@@009-07368 @^@@@@-1159 FREL 31.0@A@@@@. >>> BEGIN NYU LOFS )@@G@@CAL CODE >>>@[@@@@. @B@@@@. AVOID FILLING UP EXPOOL WITH FRSEC CALLSFT )@@G@@@[@@@@. @ @@@@SECWAT L,U A3,FRSEC @ @@@@ LMJ FU )@@G@@ X11,SEGNMC@A@@@@ L A3,SGWCNT,A3 @ @@@@ TLFV )@@G@@E,U A3,010 @ @@@@ J SECWA1 @ @@@@ L,FW )@@G@@U A1,LWAIT @ @@@@ ER TWAIT$ @ @@@@ J FX )@@G@@ SECWAT @]@@@@SECWA1 . @A@@@@. <<< END NYU LOCAL CODFY )@@G@@E <<<@ @@@@-1191,1193/2,6 FREL 31.244 @E@@@@. CCF*** FZ )@@G@@ . #1002-009-07388 @D@@@@ L,H2 A1,SY,A0 GA )@@G@@ . RETURN POINT@D@@@@ A,U A1,2 . GB )@@G@@UP RETURN @D@@@@ S,H2 A1,SY,A0 . RESTORE GC )@@G@@@^@@@@-1251,1251 FREL 31.0@E@@@@. CCF*** GD )@@G@@ . #1002-009-07388 @D@@@@ S,H2 X11,SY,A0 . GE )@@G@@SAVE RETURN @^@@@@-1254,1254 FREL 31.0@E@@@@. CCF*** GF )@@G@@ . #1002-009-07388 @A@@@@-1257/0,0/1257,1257 FREL 31.GG )@@G@@244 @E@@@@. CCF*** . #1002-009-07388 GH )@@G@@@ @@@@-1257/3 FREL 31.244 @E@@@@. CCF*** GI )@@G@@ . #1002-009-07388 @D@@@@ LXI,U A0,SGLWAT GJ )@@G@@ . SET WAIT BIT@^@@@@-1259,1259 FREL 31.0@E@@@@. CCF*** GK )@@G@@ . #1002-009-07388 @D@@@@ L A2,EGL )@@G@@X10 . GET SWL @D@@@@ L,H2 X11,SY,A2 GM )@@G@@ . RETURN POINT@ @@@@-1567,1703/7,8 FREL 31.244.3@]@@@@. CCF*** GN )@@G@@@F@@@@ TNZ,S2 CKSWRD . IS RECOVERY TURNED ON? GO )@@G@@@D@@@@ XER11 057 . NO, STOP ___CT#C0% K%GP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)^S1A@0AK!A@0BC!A@7AS8GQ )@@G@@B@)^@)@B@@@@ *1AK5A8\AS)^@)C1MC(G^@)^@)^@)AS1 02A)4^@)@J@@@@ 0)CT#C0% K%GR )@@G@@*[@@@@*SDFF*@ @@@@-43 DMIERS DI4.0 @ @@@@ L GS )@@G@@ A0,EA4 @ @@@@ TG,U A4,15 @ @@@@ L,U GT )@@G@@ A0,15 @ @@@@ L A5,BITCTL @ @@@@ TEP,U GU )@@G@@ A5,PRESCD @H@@@@ L A4,EA0 . ENSURE CONTIGV )@@G@@NUATIONS < 16 WORDS @ @@@@-46 DMIERS DI4.0 @ @@@@ GW )@@G@@ L A0,RQINDX @G@@@@ JNZ A0,DMIN0A . GX )@@G@@J IF OLD BUFFER STILL AROUND @ @@@@-47 DMIERS DI4.0 @G@@@@GY )@@G@@ SZ 29,A0 . CLEAR ALSTCRD FOR NEW BUFFER GZ )@@G@@@]@@@@DMIN0A . @F@@_@-374 DMIERS DI4.0 CHECK FOR WRONG DRIVEHA )@@G@@R RUN DOING INPUT @G@@_@ L A0,DMICQE,A3 . GET COHB )@@G@@RE Q ENTRY FROM CTL @H@@_@ TNE A0,SO,X10 . HC )@@G@@SKIP TO ERR IF WRONG DRIVER RUN ___A84^@)^@)*[@@@@*SDFF*@E@@_@-121,1HD )@@G@@21 GTLDCD 31.0 FIX 770 PRINTER ON DRS SYSTEM @]@@_@. CCF*** HE )@@G@@@E@@_@ TNZ,H2 DCHAN . $T DISC RESIDENT? @E@@_@HF )@@G@@ A A5,DCHAN . $P NO-ADD DCHAN ___CC)^@)^@)HG )@@G@@^@)^@)CC5 -^CTCCDI^@)^@)^@)^@)^@)^@) 0)^-K^[ID8!CD^C))C-#D[[D0)^@)___@@SHH )@@G@@[@K^C /K@@$*C@@^ON;@@@@<*[@@@@*SDFF*@^@@_@-190,190 CSF 31.0@G@@_@HI )@@G@@ F2 052,2,CKPARX . AVOID HANG IN CHKPAR TIL FIXED HJ )@@G@@___^[DD0)CTCDTKCDM^[ODDG^[ADDSC(^^@)___@@E/K@[BG*[@@@@*SDFF*@^@@@@-4 HK )@@G@@ TERM 30.0@I@@@@ DIOSTR HL )@@G@@ . DI2.00 @I@@@@ DMITAG . DEFINE THM )@@G@@AGS FOR DMI . DI2.00 @ @@@@POTFCT EQHN )@@G@@UF 014,,H2 @I@@@@ DIOEND HO )@@G@@ . DI2.00 @^@@@@-543 TERM 31.0@#@@@@HP )@@G@@ DIOSTR @^@@@@ LXI,U A3,0@I@@@@ TE HQ )@@G@@ A3,PCDMSI,A2 . DI2.00 @I@@@@HR )@@G@@ J DMITAG0 . NOT THE INPUT ACTIVITY HS )@@G@@. DI2.00 @I@@@@ LMJ X9,DMISRCH . DMISRCH DOESN'HT )@@G@@T RETURN . DI2.00 @I@@@@ TNE A3,DMINSW,A0 HU )@@G@@ . TNIS IS FOR EX IN DMISRCH . DI2.00 @I@@@@DMITAG0 TE HV )@@G@@ A3,PCDMSO,A2 . DI2.00 @I@@@@HW )@@G@@ J DMITAG8 . NOT OUTPUT ACTIVITY EITHER HX )@@G@@. DI2.00 @I@@@@ LMJ X9,DMISRCH . NO RETURN HY )@@G@@ . DI2.00 @I@@@@ TNE A3,DMOTSW,A0 HZ )@@G@@ . FOR EX IN DMISRCH . DI2.00 @I@@@@DMISRCH L IA )@@G@@ A8,EA0 . DI2.00 @I@@@@IB )@@G@@ L,H1 R3,DMIDBU . GET BASE OF DMI ID TABLES IC )@@G@@. DI2.00 @I@@@@DMITAG1 L A2,ER3 ID )@@G@@ . DI2.00 @I@@@@ JZ A2,DMITAG7 IE )@@G@@ . REACHED THE END OF THE LINE . DI2.00 @I@@@@ L,H2 IF )@@G@@ R3,,A2 . SAVE NEXT BUFFER . DI2.00 @I@@@@IG )@@G@@ L,H1 R2,,A2 . GET ENTRY COUNT IH )@@G@@. DI2.00 @I@@@@ JGD ER2,$+1 II )@@G@@ . DI2.00 @I@@@@ LXI,U A2,2 IJ )@@G@@ . DI2.00 @I@@@@DMITAG2 L,H2 IK )@@G@@ A0,2,*A2 . GET A SITE CTL . DI2.00 @I@@@@IL )@@G@@ JZ A0,DMITAG3 . NOT A LIVE SITE IM )@@G@@. DI2.00 @I@@@@ EX 0,X9 . THIS IS A TNE A3,DMINSW IN )@@G@@OR DMOTSW,A0 . DI2.00 @I@@@@ J DMITAG4 IO )@@G@@ . FOUNT ONE . DI2.00 @I@@@@DMITAG3 JGD IP )@@G@@ ER2,DMITAG2 . DI2.00 @I@@@@IQ )@@G@@ J DMITAG1 IR )@@G@@. DI2.00 @I@@@@ . DMIKILL IS ALSO REFERENCED BY DMITRM IS )@@G@@ . DI2.00 @A@@_@$(DI$2I) . CALLED FROM FUNCTION IT )@@G@@@I@@@@DMIKILL* TS DMSYNC,A0 . KILL THE TERMINAL IU )@@G@@ . DI2.00 @A@@@@ L A4,DITIME,A0 @D@@@@ IV )@@G@@ L,U A3,,A0 . FOR EARLY EXIT@I@@@@ TG,U IW )@@G@@ A4,4 . DI2.00 @I@@@@IX )@@G@@ J 0,X11 . SITE ALREADY BEING TERMED IY )@@G@@. DI2.00 @I@@@@ L A4,USRFLG,A0 IZ )@@G@@ . DI2.00 @I@@@@ OR,U A4,USRGON JA )@@G@@ . MARK FOR NO DRIVER ACTIVITY . DI2.00 @I@@@@ S JB )@@G@@ A5,USRFLG,A0 . DI2.00 @I@@@@JC )@@G@@ L,U A1,1 JD )@@G@@. DI2.00 @A@@@@ S A1,EOTRCD,A0 @E@@@@ S JE )@@G@@ A1,RINLCK,A0 . LOCK OUT DMIN$ CALLS@D@@@@ L JF )@@G@@ A2,POTFCT,A0 . GET OUTPUT CTL@E@@@@ S A1,OUTLCK,JG )@@G@@A2 . LOCK OUT DMOT$ CALLS@A@@@@ L A4,DITIME,A3 JH )@@G@@@^@@@@ L,U A5,4@E@@@@ S A5,DITIME,A3 JI )@@G@@ . DISCONTINUE TIMER @I@@@@ TNE,U A4,3 JJ )@@G@@ . DI2.00 @I@@@@ J 1,X1JK )@@G@@1 . INPUT IS ALREADY DONE, KILL OUTP. DI2.00 @I@@@@ JL )@@G@@ LXI,U A3,SHUTDN*/6 . REQUEST SHUT DOWN . DI2.JM )@@G@@00 @I@@@@ A,U X11,1 . SO OUTPUT WILL GET KJN )@@G@@ICKED ON EXI. DI2.00 @I@@@@ L,U A0,SMDMWQ JO )@@G@@ . DI2.00 @I@@@@ J SMQIJP )@@G@@NG . KICK IFR INPUT AND EXIT . DI2.00 @A@@_@$(L$IVJQ )@@G@@SQ) . BACK TO REGULAR TERM LC @I@@@@DMITAG4 L A11,EA2 JR )@@G@@ . DI2.00 @I@@@@ LMJ JS )@@G@@ X11,DMIKILL . KILL SITE . DI2.00 @I@@@@JT )@@G@@ J DMITAG6 . ALL DONE JU )@@G@@. DI2.00 @I@@@@ LXI,U A3,OTIMAG*/6+2 . MARK AS FD OUTJV )@@G@@PUT REQ . DI2.00 @I@@@@ L,U A0,SMDMWQ JW )@@G@@ . DI2.00 @I@@@@ LMJ JX )@@G@@ X11,SMQING . KICK IFR FOR OUTPUT . DI2.00 @I@@@@JY )@@G@@DMITAG6 CTS DMSYNC,A3 JZ )@@G@@. DI2.00 @I@@@@ DL A2,EA11 . CONTINUE SEARCKA )@@G@@H . DI2.00 @I@@@@ LXI,U A3,0 KB )@@G@@ . DI2.00 @I@@@@ J KC )@@G@@ DMITAG3 . DI2.00 @I@@@@KD )@@G@@DMITAG7 . KE )@@G@@. DI2.00 @I@@@@ L A3,EA12 . RESET REGS FORKF )@@G@@ EXIT . DI2.00 @I@@@@ L A2,SD,A3 KG )@@G@@ . DI2.00 @I@@@@ S KH )@@G@@ A2,EA11 . DI2.00 @I@@@@KI )@@G@@ SZ PCDMSO,A2 KJ )@@G@@. DI2.00 @I@@@@ SZ PCDMSI,A2 KK )@@G@@ . DI2.00 @I@@@@ L A0,EA8 KL )@@G@@ . DI2.00 @I@@@@DMITAG8 . KM )@@G@@ . DI2.00 @I@@@@KN )@@G@@ DIOEND KO )@@G@@. DI2.00 @^@@@@-643 TERM 31.0@#@@@@ DIOSTR @F@@@@KP )@@G@@ TOP,U A3,WESBIT . CLEAR ALL WEST$ WAITS ALSO@#@@@@KQ )@@G@@ DIOEND ___ A2,POTFCT,A0 . GET OUTPUT CTL@E@@@@ KR )@@G@@ S A1,OUTLCK,A2 . LOCK OUT DMOT$ CALLS@A@@@@ L KS )@@G@@*[@@@@*SDFF*@ @@@@-35 DMIINO DI4.0 @ @@@@ TEP,U KT )@@G@@ A4,PRESCD @G@@@@ J IIMAGE3 . CAN'T GO BINKU )@@G@@ IF DOING CONTINUE@ @@@@-77 DMIINO DI4.0 @E@@@@ SZKV )@@G@@,H1 29,A1 . CLEAR ALSTCRD @ @@@@-115,115 DMIINO KW )@@G@@ DI4.0 @ @@@@-121 DMIINO DI4.0 @ @@@@ L KX )@@G@@ A4,BITCTL @G@@@@ TOP,U A4,PRESCD . FORGET IT IFKY )@@G@@ CONTINUATION @ @@@@-128 DMIINO DI4.0 @B@@@@DIOPRN* . KZ )@@G@@RUN OPEN QUE ENTRY PROCESSING @^@@@@ TS 0,A3@A@@@@ LA )@@G@@ L A4,RNSTAT,A3 @ @@@@-145 DMIINO DI4.0 @ @@@@LB )@@G@@ L A4,BITCTL @G@@@@ TOP,U A4,PRESCD LC )@@G@@ . NO INPUT WAIT IF CONTINUE @ @@@@-157,157 DMIINO DI4.0 LD )@@G@@@ @@@@IIEXRL L A0,BITCTL @ @@@@ TEP,U A0,PRESCD LE )@@G@@@F@@@@ J 0,X11 . KEEP DESTAD IF CONTINUE LF )@@G@@@^@@@@ TANDS TS1 @ @@@@-163 DMIINO DI4.0 @ @@@@LG )@@G@@IIALRL L A1,RQINDX @ @@@@ JZ A1,,X11 @E@@@@LH )@@G@@ L,H1 A0,29,A1 . GET SAVED ALSTCRD @ @@@@ LI )@@G@@ JZ A0,,X11 @ @@@@ SZ,H1 29,A1 @ @@@@ LJ )@@G@@ TE A0,A1 @F@@@@ J EXREL . LK )@@G@@REL ALSTCRD IF NEEDED @ @@@@ J 0,X11 @ @@@@-225,2LL )@@G@@30 DMIINO DI4.0 @D@@@@ LMJ X11,IIALRL . LM )@@G@@REL ALSTCRD @ @@@@-265,270 DMIINO DI4.0 @D@@@@ LMJ LN )@@G@@ X11,IIALRL . REL ALSTCRD @ @@@@-300 DMIINO DI4.0 LO )@@G@@@ @@@@ L A4,BITCTL @F@@@@ AND,U A4,-PRESCDLP )@@G@@ . BRK KILLS CONTINUATION @ @@@@ S A5,BITCTL LQ )@@G@@@ @@@@ LMJ X11,IIALRL@ @@@@-350 DMIINO DI4.0 LR )@@G@@@ @@@@ L A4,BITCTL @F@@@@ AND,U A