@CAT,P 1015-015-023.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1015-015-023,,,130066053241,000 )@@G@@**PF**@@@[*O@@@@@@@@@@@[@GG@@@]FE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@P@@]?@@@]F^ ;Q@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@<@@S@@@@@@@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@W@@@@@@@@@@@@@@@@@@@@I@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@Z@@@@@@@@[@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@E@@@@@@@@@@@R@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@K@@@@@@@@G@@]@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@A@@@@@@@@@@@@@@@@@"@@&@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@Q@@@@@@@@@@@@@@E@[@AN )@@G@@STISTX-FOR @@@@@@@@[@@@ @ @@@[^@@@]Y@@@@W@]8?FLCSTISTX-ASM AO )@@G@@@@@@@'@@[@@@ @ @@@[]@@@]4@@@@YYM,6FKCSTISTX @@@@@F@@[@@^AP )@@G@@RUN @ @@@[[@@@@#@@@@-M[1T]]FSTISTX @@@@@@@@A@@@ AQ )@@G@@[SO[3]^@@@^+@@@@-PL/2#DDUNDLT @@C@@@@@[@@2 @ @@@[]@@@@0AR )@@G@@@@@@>7J\MFECSRTLNK @@@@@@@@[@@@RLIB$ @ @@@[]@@@@%@@@@&$J" #YDAS )@@G@@SORT @@O@@@@@[@@,MAP @ @@@[A@@@@[@@@@$LK[.^#DUNDLT AT )@@G@@@@3@@@@@[@@@MAP @ @@@[A@@@@[@@@@$MK]%^#DFDBIN @@@@@@@@ @@@AU )@@G@@ @@@@$P@@[@@]@@@@$NJ#TCLCINPUT$ @@@@@@@@ @@@ AV )@@G@@@@@@$*@@[@@M@@@@$QLZREKCTRIM$ @@@@@@@@ @@@ @@@@$:@@[@@]AW )@@G@@@@@@$(H/$]ADTOCMAP @@H@@@@@[@@@IBNK @ @@@[A@@@@[@@@@$?J5P^PDAX )@@G@@TOCMAP @@@@@@@@[@@@DBNK @ @@@[A@@@@[@@@@$!J56^PDIDLIN AY )@@G@@@@@@@@@@[@@J @ @@@[]@@@@B@@@@$,J"\#YDIDLIN @@@@@@@@ @@@AZ )@@G@@ @@@@$9@@]@@^@@@@$5I1BDUDCSI @@@@@@@@[@@L BA )@@G@@@ @@@[]@@@[7@@@@$;G]]FOUT @@@@@@@@[@@Y @ @@@[]@@@]QBL )@@G@@@@@@9>I*K XEOUT @@@@@@@@A@@@ @@@@)O^@@@@M@@@@;;I(6 XEBM )@@G@@IN @@@@@@@@[@@) @ @@@[]@@@^R@@@@/H ,^ TEIN BN )@@G@@@@@@@@@@A@@@ @@@@="^@@@@)@@@[@= ,I TEIOCHK @@@@@@@@[@@+BO )@@G@@ @ @@@[]@@@]L@@@[[^ .Q TEIOCHK @@@@@@@@A@@@ BP )@@G@@@@@@C=^@@@@O@@@[#PAK0 TETSWAP @@>@@@@@[@@= @ @@@[]@@@@%BQ )@@G@@@@@[#(J'?[XFTSWAP @@@@@@@@A@@@ )@@]@@@@@@@R@@@[^NJ;X[XFBR )@@G@@TSWAP @@@@@@@@[@@@NEWS @ @@@[[@@@@H@@@[^%[10]]FLABEL BS )@@G@@@@5@@@@@[@@4 @ @@@[[@@@@Y@@@[^7L S QDDISCS @@(@@@@@[@@*BT )@@G@@ @ @@@[]@@@A(@@@[ PIB=GCEDISCS @@@@@@@@A@@@ BU )@@G@@)@@]@@@@@@[C@@@[F"IB7GCEDISCS @@@@@@@@[@@@NEWS @G@@@[[@@@@YBV )@@G@@@@@[HA[17]]FTAPE @@@@@@@@A@@@ )@@]@@@@@@@<@@@[H=I7PELEBW )@@G@@TAPE @@@@@@@@[@@@NEWS @ @@@[[@@@@R@@@[IB[18]]FTALK BX )@@G@@@@@@@@@@A@@@ @]#@[Q^@@@@E@@@[IYKIV LDTALK @@@@@@@@[@@@BY )@@G@@NEWS @ @@@[[@@@@H@@@[I*[1']]FSORT @@@@@@@@A@@@ BZ )@@G@@)@@]@@@@@@^8@@@[I5G\CEKESORT @@@@@@@@[@@@NEWS @ @@@[[@@@@=CA )@@G@@@@@[N![1/]]FTOC @@@@@@@@A@@@ )@@]@@@@@@[O@@@[OLJ[SEKECB )@@G@@TOC @@@@@@@@[@@@NEWS @ @@@[@@@@@1@@@[P>[1"]]FUNDLT CC )@@G@@@@@@@@@@A@@@ )@@]@@@@@@@"@@@[QQI;@DDEUNDLT @@@@@@@@[@@@CD )@@G@@NEWS @ @@@[[@@@@A@@@[RO[1_]]FLABEL @@@@@@@@A@@@ CE )@@G@@[Q.]S;^@@@^C@@@[RUL@& QDLABEL @@@@@@@@[@@@NEWS @ @@@[[@@@@FCF )@@G@@@@@[V+[2[]]FLETRS @@@@@@@@A@@@ @E^@]9^@@@@W@@@[V!GB: QDCG )@@G@@LETRS @@@@@@@@[@@@NEWS @ @@@[@@@@@E@@@[WD[2#]]FCHGN CH )@@G@@@@@@@@@@A@@@ )@@]@@@@@@@:@@@[WNEV.G]ECHGN @@@@@@@@[@@@CI )@@G@@NEWS @ @@@[@@@@@K@@@[W"[2^]]FBOX @@@@@@@@[@@; CJ )@@G@@@ @@@[[@@@[>@@@[XIEKR^RDBOX @@@@@@@@A@@@ @^I@[O^@@@@ICK )@@G@@@@@[Y3K-U[#CSTAT @@@@@@@@A@@. )@@^@@@@@@]=@@@[Z[H0#[WFCL )@@G@@STAT @@@@@@@@[@@@NEWS @ @@@[@@@@@<@@@[->[2C]]FCONFR CM )@@G@@@@@@@@@@A@@_ )@@^@@@@@@]=@@@[+CH0D[WFCONFR @@@@@@@@[@@@CN )@@G@@NEWS @ @@@[@@@@@9@@@[=?[2E]]FCONFR$ @@@@@@@@A@@@ CO )@@G@@)@@]@@@@@@]\@@@[>>FYOGHEACCNTG @@@@@@@@[@@@ @ @@@[@@@@@]CP )@@G@@@@@@%-E"^[]FFIASG @@@@@@@@[@@@ @ @@@[@@@@@E@@@@%L,N[EFCV )@@G@@DMITRM @@@@@@@@[@@@ @ @@@[@@@@@O@@@@?(L8R[EFPRINT$ CW )@@G@@@@@@[J@@[@@@ @ @@@[@@@@@G@@@@?.L;"[EFDMIIFR @@@@[$@@[@@@CX )@@G@@ @ @@@[@@@@@O@@@@!D[DI[PFREAD$ @@@@[R@@[@@@ CY )@@G@@@ @@@[[@@@@P@@@@!X[E*[PFDAPAM @@@@[P@@[@@@ @ @@@[@@@@@]CZ )@@G@@@@@@!2I!"[PFAAPCT @@@@@@@@[@@@ @ @@@[@@@@@K@@@@!4F]L[QFDA )@@G@@CKEY @@@@@@@@[@@@ @ @@@[@@@@[D@@@@,^FAO[QFCNSLIT DB )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@B@@@@\HFE:[QFCSN @@@@@@@@[@@@DC )@@G@@ @ @@@[@@@@@^@@@@\OJ"K]$GBEDRC @@@@@@@@[@@@ @ @@@[@@@@@^@@@@\&KA1GBEDF )@@G@@EX8LOD @@@@@@@@[@@@ @ @@@[@@@@@]@@@@\%KB[GBEEXITF0 DG )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@+@@@@\?KEXGBEFNCCNT @@@@[)@@[@@@DH )@@G@@ @ @@@[@@@@@^@@@@0IKFQGBEINIT1 @@@@[(@@[@@@ DI )@@G@@@ @@@[@@@@@^@@@@0MI(Q[]FINIT2 @@@@@@@@[@@@ @ @@@[@@@@@^DJ )@@G@@@@@@0QKG3GBEIO @@@@@@@@[@@@ @ @@@[@@@@@D@@@@0UAW9GMEDK )@@G@@KPOOL @@@@@@@@[@@@ @ @@@[@@@@@[@@@@0[L&EPEIO-WITH-FIX @@@@@@@@[@@@ @ @@@[@@@@[[EN )@@G@@@@@@8SL3 EQEAASMTAGS @@@@@@@@[@@@ @ @@@[[@@@[N@@@@9TEN5EREEO )@@G@@FALL @@@@@@@@[@@@ @ @@@[[@@@@Q@@@@'?O/1EVESN$AP EP )@@G@@@@@@@@@@[@@@ @ @@@[@@@@[=@@@@;]@I]EWEIO @@@@@@@@[@@@EQ )@@G@@ @ @@@[@@@@@/@@@@/&KZ%EYEIOMSA @@@@@@@@[@@@ ER )@@G@@@ @@@[@@@@@ @@@@.+MQREYESMSAPR @@@@]A@@[@@@ @ @@@[@@@@@FES )@@G@@@@@@.$MU2GDESMUPQ @@@@@@@@[@@@ EW )@@G@@@ @@@[@@@@@ @@@@":J#4GFEK DISTRIBUTION <<<<<<<<<',/,@G@@@@ *' ACCEX )@@G@@OUNT',T16,'FILES',T26,'FIXED',T37,'REMOV',T46,'SEC TAPES', @F@@@@ *EY )@@G@@T58,'V-OPTION',T69,'G-OPTION',T84,'F2',T95,'F4',T105,'F17', @E@@@@ *EZ )@@G@@T116,'F14',T127,'F40',/,' -----',21('------'),/,) @[@@@@ @ @@@@FA )@@G@@ 1003 FORMAT (1X,2A6,I6,10I11)@[@@@@ @B@@@@ 1004 FORMAT (1X,2A6,I4,FB )@@G@@I7,I6,6I5,2I6) @[@@@@ @D@@@@ 1005 FORMAT ('0FILES:',I6,', FIXEDFC )@@G@@ TRACKS:',I6, @E@@@@ *', V-OPT TRACKS:',I6,', SECURE BACKUP BLFD )@@G@@OCKS:',I6,/,@C@@@@ *16X,'REMOV TRACKS:',I6,', G-OPT TRACKS:',@ @@@@FE )@@G@@ *I6,A1,' UNLOADED:',I6) @[@@@@ @C@@@@ 1006 FORMAT(1H1,'SUMMARFF )@@G@@Y BY BILLING AREA: ', @E@@@@ *3X,'FILES (F) TRACKS (R) V/G-OPFG )@@G@@T SEC TAPES'/) @[@@@@ @A@@@@ 1007 FORMAT(1H0,4A6,4I9,3X,I9) FH )@@G@@@[@@@@ @ @@@@ 1008 FORMAT ('0END GBILL') @[@@@@ @ @@@@ 2000 FI )@@G@@FORMAT(4A6,I4,10I5,'GB')@[@@@@ @]@@@@ END ___ F1RE BACKUP BLFJ )@@G@@)@@@F]S@@@@@)@#@C@)@]@C@)[G@C@)@#@IS)@?@C@IN HOU@@@@@[@@@@@@@@@@@@@@@@@@FK )@@G@@/,0@@@AA@@@F)@![S@@@@@@@ /AMC ORNELLROCK/C ER L CENTMEDICAFL )@@G@@ SE AB@@@F)@8[S@@@@@@@,G) ACT (T,USTUDENCH RESEARSORED FM )@@G@@UNSPON SEARCHRED RESPONSOAC@@@F)[#[C@@@@@@@)@[@E@@@@@@@ FN )@@G@@ OTHER EXEC CTS AD@@@F)@][F#L#L#L#L] #@K3@@@@@FO )@@G@@;)@@@PC@@@@]@[=@@@@@@@[H/,0@@@ @@[X4 @@[X3 @@[X2 @@[X1AE@@@F)@F[M[@^G^G1FP )@@G@@#H#G@@C@@@@][^0@@]+8);__C^)@@][@@@@#C/@@@[/K@@@L*@@@@GG/@__";C@@@@@]^U*@@@@X@ FI )@@G@@ PAGE 17 @F@[@@ FJ )@@G@@ SUBROUTINE CENTER @@@[@@@M@[@@ 00564* 1 SUBRFK )@@G@@OUTINE CENTER CTR00010 FL )@@G@@@M@[@@ 00565* C COPYRIGHT 1966, HARRY M. MURPHY, JFM )@@G@@R. CTR00020 @M@[@@ 00566* FN )@@G@@ C FO )@@G@@ CTR00030 @M@[@@ 00567* C THIS ROUTINE CENTERS TFP )@@G@@HE PAGE CAPTIONS. CTR00040 @M@[@@ 00568* FQ )@@G@@ C FR )@@G@@ CTR00050 @M@[@@ 00569* 2 INCLUDE IDFS )@@G@@XCOM, LIST @ COMMON DECLARATIONS CTR00060 @M@[@@FT )@@G@@ 00570* C FU )@@G@@ CTR00070 @M@[@@ 00571* C FV )@@G@@ COMPRESS STATEMENT BY ELIMINATING MULTIPLE BLANKS. CTR0FW )@@G@@0080 @M@[@@ 00572* C FX )@@G@@ CTR00090 @M@[@@ 00573* FY )@@G@@ 3 1 DO 2 I=1,66 FZ )@@G@@ CTR00100 @M@[@@ 00574* 4 IF (JOB(I).NE.KBGA )@@G@@L) GO TO 3 CTR00110 @M@[@@ 00575GB )@@G@@* 5 2 CONTINUE GC )@@G@@ CTR00120 @M@[@@ 00576* 6 RETUGD )@@G@@RN CTR00130 GE )@@G@@@M@[@@ 00577* C GF )@@G@@ CTR00140 @M@[@@ 00578* 7 GG )@@G@@ 3 JOB(1)=JOB(I) GH )@@G@@ CTR00150 @M@[@@ 00579* 8 J=1 GI )@@G@@ CTR00160 @M@[@@ 00580* GJ )@@G@@ 9 IB=I+1 GK )@@G@@ CTR00170 @M@[@@ 00581* 10 DO 4 I=IB,GL )@@G@@66 CTR00180 @M@[@@GM )@@G@@ 00582* 11 IF (JOB(I).EQ.KBL.AND.JOB(I-1).EQ.KBL) GGN )@@G@@O TO 4 CTR00190 @M@[@@ 00583* 12 GO )@@G@@ J=J+1 CTR0GP )@@G@@0200 @M@[@@ 00584* 13 JOB(J)=JOB(I) GQ )@@G@@ CTR00210 @M@[@@ 00585* GR )@@G@@ 14 4 CONTINUE GS )@@G@@ CTR00220 @M@[@@ 00586* C GT )@@G@@ CTR00230 @M@[@@ 00587GU )@@G@@* 15 IB=J+1 GV )@@G@@ CTR00240 @M@[@@ 00588* 16 DO 5GW )@@G@@ I=IB,66 CTR00250 GX )@@G@@@M@[@@ 00589* 17 5 JOB(I)=KBL GY )@@G@@ CTR00260 @M@[@@ 00590* GZ )@@G@@ C HA )@@G@@ CTR00270 @M@[@@ 00591* C CENTER HEADING. HB )@@G@@ CTR00280 @M@[@@ 00592* HC )@@G@@ C HD )@@G@@ CTR00290 @M@[@@ 00593* 18 IB=(66-J)/HE )@@G@@2 CTR00300 @M@[@@HF )@@G@@ 00594* 19 6 I=J+IB HG )@@G@@ CTR00310 @M@[@@ 00595* 20 HH )@@G@@ JOB(I)=JOB(J) CTR0HI )@@G@@0320 @M@[@@ 00596* 21 J=J-1 HJ )@@G@@ CTR00330 @M@[@@ 00597* HK )@@G@@ 22 IF (J) 7,7,6 HL )@@G@@ CTR00340 @M@[@@ 00598* C HM )@@G@@ CTR00350 @M@[@@ 00599HN )@@G@@* C ELIMINATE REMAINING NON-BLANKS. HO )@@G@@ CTR00360 @M@[@@ 00600* C HP )@@G@@ CTR00370 HQ )@@G@@@M@[@@ 00601* 23 7 IF (I.EQ.1) RETURN HR )@@G@@ CTR00380 @M@[@@ 00602* 24 HS )@@G@@ IB=I-1 HT )@@G@@ CTR00390 @M@[@@ 00603* 25 DO 8 I=1,IB HU )@@G@@ CTR00400 @M@[@@ 00604* HV )@@G@@ 26 8 JOB(I)=KBL HW )@@G@@ CTR00410 @M@[@@ 00605* 27 RETURN HX )@@G@@ CTR00420 @M@[@@HY )@@G@@ 00606* 28 END HZ )@@G@@ CTR00430 @L__@@ I N D E X IA )@@G@@ PAGE 18 IB )@@G@@@F@[@@ SUBROUTINE CENTER IC )@@G@@@@@[@@@K@[@@ SYMBOL = = = = = = = = = = = = = = = REFEREID )@@G@@NCES = = = = = = = = = = = = = = =@@@[@@@ @[@@ 1 - IE )@@G@@3* @A@[@@ 2 - 3 5* @A@[@@ 3 IF )@@G@@- 4 7* @B@[@@ 4 - 10 11 14*@A@[@@IG )@@G@@ 5 - 16 17* @A@[@@ 6 - 19* IH )@@G@@ 22 @B@[@@ 7 - 22 22 23*@A@[@@ 8 II )@@G@@ - 25 26* @ @[@@ CENTER - 1EY @L@[@@ IJ )@@G@@ I - 3 4 7 9 10 11 11 IK )@@G@@ 13 16 17 @F@[@@ 19= 20 23 IL )@@G@@ 24 25 26 @I@[@@ IB - 9= 10 15=IM )@@G@@ 16 18= 19 24= 25 @ @[@@ IDXCOM - IN )@@G@@2IC @L@[@@ J - 8= 12= 12 13 15 IO )@@G@@ 18 19 20 21= 21 @ @[@@ 2IP )@@G@@2 @L@[@@ JOB - 4 7= 7 11 11 IQ )@@G@@ 13= 13 17= 20= 20 @ @[@@ 2IR )@@G@@6= @E@[@@ KBL - 4 11 11 17 26 IS )@@G@@@L@]@@ -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+IT )@@G@@-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ @L__@@ I N D E X IU )@@G@@ PAGE 19 IV )@@G@@@E@[@@ BLOCK DATA @@@[@@IW )@@G@@@M@[@@ 00607* 1 BLOCK DATA IX )@@G@@ DAT00010 @M@[@@ 00608* IY )@@G@@ C COPYRIGHT 1966, HARRY M. MURPHY, JR. IZ )@@G@@ DAT00020 @M@[@@ 00609* C JA )@@G@@ DAT00030 @M@[@@ 00610* JB )@@G@@ C THIS BLOCK DATA CONTAINS ALL THE INDEX DATA STATEMENJC )@@G@@TS. DAT00040 @M@[@@ 00611* C JD )@@G@@ DAT00050 @M@[@@JE )@@G@@ 00612* 2 INCLUDE IDXCOM, LIST @ COMMON DECLARAJF )@@G@@TIONS DAT00060 @M@[@@ 00613* 3 JG )@@G@@ COMMON /SIGMA/ KST1(11),KST2(11),KST3(11),KST4(11),KST5(11),KST6(1DAT0JH )@@G@@0070 @M@[@@ 00614* 11),KST7(11),KST8(11),KST9(11JI )@@G@@),KST10(11),KST11(11),KST12(11),KST13(DAT00080 @M@[@@ 00615* JJ )@@G@@ 211),KST14(11),KST15(11),KST16(11),KST17(11),KST18(11),KST1JK )@@G@@9(11),KSDAT00090 @M@[@@ 00616* 3T20(11),KST21(11JL )@@G@@),KST22(11),KST23(11),KST24(11),KST25(11),KST26(11DAT00100 @M@[@@ 00617JM )@@G@@* 4),KST27(11),KST28(11),KST29(11),KST30(11),KST3JN )@@G@@1(11),KST32(11),KST3DAT00110 @M@[@@ 00618* 53(11JO )@@G@@),KST34(11),KST35(11),KST36(11),KST37(11),KST38(11),KST39(11),DAT00120 JP )@@G@@@M@[@@ 00619* 6KST40(11),KST41(11),KST42(11),KST4JQ )@@G@@3(11),KST44(11),KST45(11),KST46(DAT00130 @M@[@@ 00620* JR )@@G@@ 711),KST47(11),KST48(11),KST49(11),KST50(11),KST51(11),KST52(11),JS )@@G@@KSDAT00140 @M@[@@ 00621* 8T53(11),KST54(11),KST5JT )@@G@@5(11),KST56(11) DAT00150 @M@[@@ 00622* JU )@@G@@ C JV )@@G@@ DAT00160 @M@[@@ 00623* 4 DATA NAMPGJW )@@G@@M/1616522071/ @ 'MAIN P' DAT00170 @M@[@@JX )@@G@@ 00624* 5 DATA KBL,KDIG/1H ,1H0,1H1,1H2,1H3,1H4,1HJY )@@G@@5,1H6,1H7,1H8,1H9/ DAT00180 @M@[@@ 00625* 6 JZ )@@G@@ DATA KABC/1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,1HK,1HL,1HM,1HN,DAT0KA )@@G@@0190 @M@[@@ 00626* 11HO,1HP,1HQ,1HR,1HS,1HT,1HU,KB )@@G@@1HV,1HW,1HX,1HY,1HZ/ DAT00200 @M@[@@ 00627* KC )@@G@@ 7 DATA KSPK/1H=,1H,,1H(,1H/,1H),1H+,1H-,1H*,1H.,1H$,1H',1H@,KD )@@G@@1H&/ DAT00210 @M@[@@ 00628* 8 DATA MXCH,MXLI,NKE )@@G@@15B,LINE,NPAGE/6,8191,32768,51,0/ DAT00220 @M@[@@ 00629KF )@@G@@* 9 DATA KEY/2H ,2H= ,2H* ,2HAG,2HCO,2HCX,2HDA,2HKG )@@G@@DI,2HDB,2HEQ,2HEX,2HDAT00230 @M@[@@ 00630* 1IN,2KH )@@G@@HLG,2HNM,2HPR,2HPU,2HRD,2HRL,2HWR, @ FORTRAN IV DAT00240 KI )@@G@@@M@[@@ 00631* 22HAB,2HDE,2HEY,2HIC,2HPA,2HFI, KJ )@@G@@ @ FORTRAN V DAT00250 @M@[@@ 00632* KK )@@G@@ 32HHM/ KL )@@G@@ DAT00260 @M@[@@ 00633* 10 DATA KAP/1HS,1HU,1HP,1KM )@@G@@HE,1HR,1H ,1HI,1HN,1HD,1HE,1HX/ DAT00270 @M@[@@ 00634* KN )@@G@@ 11 DATA KLAST /'L','A','S','T'/ KO )@@G@@ DAT00280 @M@[@@ 00635* C KP )@@G@@ DAT00290 @M@[@@KQ )@@G@@ 00636* 12 DATA KST1 /'A','B','N','O','R','M','A','KR )@@G@@L',' ',' ',8/ DAT00300 @M@[@@ 00637* 13 KS )@@G@@ DATA KST2 /'A','S','S','I','G','N',' ',' ',' ',' ',6/ DAT0KT )@@G@@0310 @M@[@@ 00638* 14 DATA KST3 /'B','A','C','K','KU )@@G@@S','P','A','C','E',' ',9/ DAT00320 @M@[@@ 00639* KV )@@G@@ 15 DATA KST4 /'B','L','O','C','K','D','A','T','A',' ',9/ KW )@@G@@ DAT00330 @M@[@@ 00640* 16 DATA KST5 /'C','KX )@@G@@A','L','L',' ',' ',' ',' ',' ',' ',4/ DAT00340 @M@[@@ 00641KY )@@G@@* 17 DATA KST6 /'C','O','M','M','O','N',' ',' ',' 'KZ )@@G@@,' ',6/ DAT00350 @M@[@@ 00642* 18 DATALA )@@G@@ KST7 /'C','O','M','P','I','L','E','R','(',' ',9/ HT)J0@G9ZJ8@G9ZJ8@LB )@@G@@G9ZJ8@HDWJ8@HDWJ8@HDWJ8@H9HC@H1>HC@H1>HC@F(LG)@F(LG)@F(LG)@F(MG*@F(MG*@F(MG*@FLCD0@FLCD0@ZY )@@G@@FLCD0@E)_EC@E)_EC@E)_EC@E1IF@@E1IF@@E1IF@@FTJF0@@@@@>@ 8 LIM=NR ZZ )@@G@@ SPR00530 @M@[@@AA )@@G@@ 01135* C AB )@@G@@ SPR00540 @M@[@@ 01136* 44 9 AC )@@G@@ LIM=LIM-1 SPR0AD )@@G@@0550 @M@[@@ 01137* 45 IB=0 AE )@@G@@ SPR00560 @M@[@@ 01138* AF )@@G@@ 46 DO 10 I=1,LIM AG )@@G@@ SPR00570 @M@[@@ 01139* 47 IF (LIST(I).LE.LAH )@@G@@IST(I+1)) GO TO 10 SPR00580 @M@[@@ 01140AI )@@G@@* 48 IB=LIST(I) AJ )@@G@@ SPR00590 @M@[@@ 01141* 49 LISTAK )@@G@@(I)=LIST(I+1) SPR00600 AL )@@G@@@M@[@@ 01142* 50 LIST(I+1)=IB AM )@@G@@ SPR00610 @M@[@@ 01143* 51 AN )@@G@@ IB=LISTX(I) AO )@@G@@ SPR00620 @M@[@@ 01144* 52 LISTX(I)=LISTX(I+1) AP )@@G@@ SPR00630 @M@[@@ 01145* AQ )@@G@@ 53 LISTX(I+1)=IB AR )@@G@@ SPR00640 @M@[@@ 01146* 54 10 CONTINUE AS )@@G@@ SPR00650 @M@[@@AT )@@G@@ 01147* 55 IF (IB) 9,11,9 AU )@@G@@ SPR00660 @M@[@@ 01148* C AV )@@G@@ SPR0AW )@@G@@0670 @M@[@@ 01149* C PRINT SORTED VARIABLES AND RAX )@@G@@OUTINES WHICH USE THEM. SPR00680 @M@[@@ 01150* AY )@@G@@ C AZ )@@G@@ SPR00690 @M@[@@ 01151* 56 11 IB=1 BA )@@G@@ SPR00700 @M@[@@ 01152BB )@@G@@* 57 12 IF (IB.GT.NR) GO TO 19 BC )@@G@@ SPR00710 @M@[@@ 01153* 58 KODEBD )@@G@@A=LIST(IB) SPR00720 BE )@@G@@@M@[@@ 01154* 59 KODE=KODEA BF )@@G@@ SPR00730 @M@[@@ 01155* 60 BG )@@G@@ CALL DECODE BH )@@G@@ SPR00740 @M@[@@ 01156* 61 DO 13 I=1,8 BI )@@G@@ SPR00750 @M@[@@ 01157* BJ )@@G@@ 62 13 KODEV(I)=KLEAR(I) BK )@@G@@ SPR00760 @M@[@@ 01158* 63 FIRST=.TRUBL )@@G@@E. SPR00770 @M@[@@BM )@@G@@ 01159* 64 14 J=0 BN )@@G@@ SPR00780 @M@[@@ 01160* 65 BO )@@G@@ IF (IB.GT.NR) GO TO 19 SPR0BP )@@G@@0790 @M@[@@ 01161* 66 DO 15 I=1,8 BQ )@@G@@ SPR00800 @M@[@@ 01162* BR )@@G@@ 67 IF (LIST(IB).NE.KODEA) GO TO 16 BS )@@G@@ SPR00810 @M@[@@ 01163* 68 KODE=LISTX(IB) BT )@@G@@ SPR00820 @M@[@@ 01164BU )@@G@@* 69 CALL DECODE BV )@@G@@ SPR00830 @M@[@@ 01165* 70 IB=IBW )@@G@@B+1 SPR00840 BX )@@G@@@M@[@@ 01166* 71 DO 15 K=1,8 BY )@@G@@ SPR00850 @M@[@@ 01167* 72 BZ )@@G@@ J=J+1 CA )@@G@@ SPR00860 @M@[@@ 01168* 73 15 KODES(J)=KLEAR(K) CB )@@G@@ SPR00870 @M@[@@ 01169* CC )@@G@@ 74 GO TO 17 CD )@@G@@ SPR00880 @M@[@@ 01170* 75 16 IF (J) 12,CE )@@G@@12,17 SPR00890 @M@[@@CF )@@G@@ 01171* 76 17 IF (FIRST) GO TO 18 CG )@@G@@ SPR00900 @M@[@@ 01172* 77 CH )@@G@@ WRITE(IOUT,22)(KODES(I),I=1,J) SPR0CI )@@G@@0910 @M@[@@ 01173* 78 CALL PAGE (1) CJ )@@G@@ SPR00920 @M@[@@ 01174* CK )@@G@@ 79 IF (J-64) 12,14,14 CL )@@G@@ SPR00930 @M@[@@ 01175* 80 18 WRITE(IOUT,23)KOCM )@@G@@DEV,(KODES(I),I=1,J) SPR00940 @M@[@@ 01176CN )@@G@@* 81 CALL PAGE (1) CO )@@G@@ SPR00950 @M@[@@ 01177* 82 FIRSCP )@@G@@T=.FALSE. SPR00960 CQ )@@G@@@M@[@@ 01178* 83 IF (J-64) 12,14,14 CR )@@G@@ SPR00970 @M@[@@ 01179* CS )@@G@@ C CT )@@G@@ SPR00980 @M@[@@ 01180* 84 19 WRITE(IOUT,24) CU )@@G@@ SPR00990 @M@[@@ 01181* CV )@@G@@ 85 CALL PAGE (3) CW )@@G@@ SPR01000 @L__@@ I N D E X CX )@@G@@ PAGE 44 @F@[@@ CY )@@G@@ SUBROUTINE SUPER @@@[@@@M@[@@CZ )@@G@@ 01182* 86 IF (.NOT.REW) GO TO 2 DA )@@G@@ SPR01010 @M@[@@ 01183* 87 DB )@@G@@ RETURN SPR0DC )@@G@@1020 @M@[@@ 01184* C DD )@@G@@ SPR01030 @M@[@@ 01185* DE )@@G@@ 88 20 FORMAT (2A6) DF )@@G@@ SPR01040 @M@[@@ 01186* 89 21 FORMAT (10X,10HSDG )@@G@@YMBOL - ,3(6H======),40H ROUTINES IN WHICH THE SSPR01050 @M@[@@ 01187DH )@@G@@* 1YMBOL IS USED ,3(6H======)/1X) DI )@@G@@ SPR01060 @M@[@@ 01188* 90 22 FORMDJ )@@G@@AT (19X,8(2X,8A1)) SPR01070 DK )@@G@@@M@[@@ 01189* 91 23 FORMAT (10X,8A1,1H-,8(2X,8A1)) DL )@@G@@ SPR01080 @M@[@@ 01190* 92 DM )@@G@@ 24 FORMAT (1H0,9X,15(6H******)/1X) DN )@@G@@ SPR01090 @M@[@@ 01191* 93 END DO )@@G@@ SPR01100 @L__@@ I DP )@@G@@N D E X DQ )@@G@@ PAGE 45 @F@[@@ SUDR )@@G@@BROUTINE SUPER @@@[@@@K@[@@ SYMBOL = = = = = = = = = = =DS )@@G@@ = = = = REFERENCES = = = = = = = = = = = = = = =@@@[@@@ @[@@ DT )@@G@@ 1 - 7* @A@[@@ 2 - 8* 86 @A@[@@DU )@@G@@ 3 - 11 15* @A@[@@ 4 - 18 DV )@@G@@ 21* @A@[@@ 5 - 24 25* @B@[@@ 6 DW )@@G@@- 31* 42 42 @B@[@@ 7 - 33 34 41*DX )@@G@@@A@[@@ 8 - 42 43* @B@[@@ 9 - 4DY )@@G@@4* 55 55 @B@[@@ 10 - 46 47 54*@A@[@@DZ )@@G@@ 11 - 55 56* @E@[@@ 12 - 57* EA )@@G@@ 75 75 79 83 @A@[@@ 13 - 61 62* EB )@@G@@@E@[@@ 14 - 64* 79 79 83 83 @B@[@@EC )@@G@@ 15 - 66 71 73*@A@[@@ 16 - 6ED )@@G@@7 75* @B@[@@ 17 - 74 75 76*@A@[@@ EE )@@G@@ 18 - 76 80* @B@[@@ 19 - 57 65 EF )@@G@@ 84*@A@[@@ 20 - 15RD 88* @A@[@@ 21 EG )@@G@@- 28WR 89* @A@[@@ 22 - 77WR 90* @A@[@@ EH )@@G@@ 23 - 80WR 91* @A@[@@ 24 - 84WR 92* EI )@@G@@@ @[@@ CENTER - 26 @A@[@@ DECODE - 60 EJ )@@G@@ 69 @D@[@@ FIRST - 5LG 63= 76 82= @L@[@@EK )@@G@@ I - 15RD 15RD 15RD 18 19 20 2EL )@@G@@0 21 24 25 @L@[@@ 33 34 EM )@@G@@ 34 35 36 36 37 38 39 39 @L@[@@EN )@@G@@ 40 46 47 47 48 49 4EO )@@G@@9 50 51 52 @L@[@@ 52 53 EP )@@G@@ 61 62 62 66 77WR 77WR 80WR 80WR @L@[@@EQ )@@G@@ IB - 32= 35= 37 38= 40 42 4ER )@@G@@5= 48= 50 51= @L@[@@ 53 55 ES )@@G@@ 56= 57 58 65 67 68 70= 70 @ @[@@ET )@@G@@ IDXCOM - 2IC @D@[@@ IOUT - 28WR 77WR EU )@@G@@ 80WR 84WR @A@[@@ IWORK - 15RD 17 @J@[@@ EV )@@G@@ J - 64= 72= 72 73 75 77WR 79 EW )@@G@@ 80WR 83 @F@[@@ JOB - 19= 20= 21= 22= EX )@@G@@ 23= 25=@A@[@@ K - 71 73 @ @[@@ KAEY )@@G@@P - 20 @B@[@@ KBL - 22 23 25 @A@[@@EZ )@@G@@ KBUFF - 6EQ 6EQ @A@[@@ KLEAR - 62 FA )@@G@@ 73 @A@[@@ KODE - 59= 68= @B@[@@ KODEA FB )@@G@@- 58= 59 67 @E@[@@ KODES - 4DI 6EQ 73=FC )@@G@@ 77WR 80WR @D@[@@ KODEV - 4DI 6EQ 62= 8FD )@@G@@0WR @A@[@@ KSPK - 19 21 @L__@@ I N D E FE )@@G@@X FF )@@G@@ PAGE 46 @F@[@@ SUBROUTIFG )@@G@@NE SUPER @@@[@@@I@[@@ LIM - 30= 31= 31 3FH )@@G@@3 43= 44= 44 46 @L@[@@ LIST - 6EQ FI )@@G@@ 15RD 16= 35 36= 36 37= 47 47 48 FJ )@@G@@@E@[@@ 49= 49 50= 58 67 @L@[@@FK )@@G@@ LISTX - 4DI 6EQ 15RD 34 34 38 3FL )@@G@@9= 39 40= 51 @D@[@@ 52= 52 FM )@@G@@ 53= 68 @L@[@@ NR - 8= 9 11 1FN )@@G@@3= 15RD 16 30 43 57 65 @ @[@@ NRFO )@@G@@OUT - 7 @B@[@@ NRT - 8 12= 12 @E@[@@FP )@@G@@ PAGE - 27 29 78 81 85 @E@[@@ FQ )@@G@@ REW - 5LG 10= 14= 17 86 @ @[@@ SIFR )@@G@@GMA - 3IC @ @[@@ SUPER - 1EY @L@]@@ -+FS )@@G@@-+-+-+E1AC8@E1AC8@E1AC8@E9JE0@E9JE0@E9JE0@F[ADK@F[ADK@F[ADK@EC9AC@EC9AC@FT )@@G@@EC9AC@EL CK@EL CK@EL CK@ET@A8@ET@A8@ET@A8@E-@CK@E-@CK@E-@CK@D07AC@D07AC@FU )@@G@@D07AC@E@_BC@E@_BC@E@_BC@@@@@&@-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+FV )@@G@@-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ @L__@@ I N D E X FW )@@G@@ PAGEFX )@@G@@ 47 @F@[@@ SUBROUTINE SOFY )@@G@@RT @@@[@@@M@[@@ 01192* 1 SUBROUTINE SORT FZ )@@G@@ SRT00010 @M@[@@ 01193* GA )@@G@@ C COPYRIGHT 1966, HARRY M. MURPHY, JR. GB )@@G@@ SRT00020 @M@[@@ 01194* C GC )@@G@@ SRT00030 @M@[@@GD )@@G@@ 01195* C THIS SUBROUTINE SORTS THE SYMBOL ARRAY IGE )@@G@@N LIST IN ASCENDING ORDER.SRT00040 @M@[@@ 01196* C GF )@@G@@ SRT0GG )@@G@@0050 @M@[@@ 01197* 2 INCLUDE IDXCOM, LIST @ COGH )@@G@@MMON DECLARATIONS SRT00060 @M@[@@ 01198* GI )@@G@@ C GJ )@@G@@ SRT00070 @M@[@@ 01199* 3 DIMENSION LISTS(GK )@@G@@3,2730) SRT00080 @M@[@@ 01200GL )@@G@@* 4 EQUIVALENCE (LIST(1),LISTS(1)) GM )@@G@@ SRT00090 @M@[@@ 01201* C GN )@@G@@ SRT00100 GO )@@G@@@M@[@@ 01202* C GP )@@G@@ SRT00110 @M@[@@ 01203* 5 GQ )@@G@@ 1 IF (NSYM) 2,2,3 GR )@@G@@ SRT00120 @M@[@@ 01204* 6 2 RETURN GS )@@G@@ SRT00130 @M@[@@ 01205* GT )@@G@@ C GU )@@G@@ SRT00140 @M@[@@ 01206* C PREPARE THGV )@@G@@E ADDRESS ARRAY. SRT00150 @M@[@@GW )@@G@@ 01207* C GX )@@G@@ SRT00160 @M@[@@ 01208* 7 3 GY )@@G@@ DO 4 I=1,NSYM SRT0GZ )@@G@@0170 @M@[@@ 01209* 8 4 LISTS(3,I)=I HA )@@G@@ SRT00180 @M@[@@ 01210* HB )@@G@@ C HC )@@G@@ SRT00190 @M@[@@ 01211* C EXECUTE THE INTEHD )@@G@@RCHANGE ADDRESS SORT. SRT00200 @M@[@@ 01212HE )@@G@@* C HF )@@G@@ SRT00210 @M@[@@ 01213* 9 LIM=HG )@@G@@NSYM SRT00220 HH )@@G@@@M@[@@ 01214* 10 5 NR=0 HI )@@G@@ SRT00230 @M@[@@ 01215* 11 HJ )@@G@@ LIM=LIM-1 HK )@@G@@ SRT00240 @M@[@@ 01216* 12 DO 6 I=1,LIM HL )@@G@@ SRT00250 @M@[@@ 01217* HM )@@G@@ 13 J=LISTS(3,I) HN )@@G@@ SRT00260 @M@[@@ 01218* 14 K=LISTS(3,HO )@@G@@I+1) SRT00270 @M@[@@HP )@@G@@ 01219* 15 IF (LISTS(1,J).LE.LISTS(1,K)) GO TO 6 HQ )@@G@@ SRT00280 @M@[@@ 01220* 16 HR )@@G@@ LISTS(3,I)=K SRT0HS )@@G@@0290 @M@[@@ 01221* 17 LISTS(3,I+1)=J HT )@@G@@ SRT00300 @M@[@@ 01222* HU )@@G@@ 18 NR=1 HV )@@G@@ SRT00310 @M@[@@ 01223* 19 6 CONTINUE HW )@@G@@ SRT00320 @M@[@@ 01224HX )@@G@@* 20 IF (NR.EQ.0) RETURN HY )@@G@@ SRT00330 @M@[@@ 01225* 21 GO THZ )@@G@@O 5 SRT00340 IA )@@G@@@M@[@@ 01226* 22 END IB )@@G@@ SRT00350 @L__@@ I N D E X IC )@@G@@ PAGEID )@@G@@ 48 @F@[@@ SUBROUTINE SOIE )@@G@@RT @@@[@@@K@[@@ SYMBOL = = = = = = = = = = = = = = = IF )@@G@@REFERENCES = = = = = = = = = = = = = = =@@@[@@@ @[@@ 1 IG )@@G@@- 5* @B@[@@ 2 - 5 5 6*@A@[@@ IH )@@G@@ 3 - 5 7* @A@[@@ 4 - 7 8* II )@@G@@@A@[@@ 5 - 10* 21 @B@[@@ 6 - 1IJ )@@G@@2 15 19*@I@[@@ I - 7 8 8 1IK )@@G@@2 13 14 16 17 @ @[@@ IDXCOM - 2IC IL )@@G@@@B@[@@ J - 13= 15 17 @B@[@@ K IM )@@G@@- 14= 15 16 @D@[@@ LIM - 9= 11= 11 IN )@@G@@ 12 @ @[@@ LIST - 4EQ @J@[@@ LISTS IO )@@G@@- 3DI 4EQ 8= 13 14 15 15 16= 17=IP )@@G@@@B@[@@ NR - 10= 18= 20 @B@[@@ NSYM IQ )@@G@@- 5 7 9 @ @[@@ SORT - 1EY @L@]@@ IR )@@G@@ -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+IS )@@G@@-+-+-+-+-+-+-+-+-+-+-+ @L__@@ I N D E X IT )@@G@@ PAGE 49 @F@[@@ IU )@@G@@ SUBROUTINE SYMBOL @@@[@@@M@[@@IV )@@G@@ 01227* 1 SUBROUTINE SYMBOL IW )@@G@@ SYM00010 @M@[@@ 01228* C IX )@@G@@ COPYRIGHT 1966, HARRY M. MURPHY, JR. SYM0IY )@@G@@0020 @M@[@@ 01229* C IZ )@@G@@ SYM00030 @M@[@@ 01230* JA )@@G@@ C THIS SUBROUTINE INSPECTS KARD STARTING AT KOL+1 FOR THE PRJB )@@G@@ESENCE SYM00040 @M@[@@ 01231* C OF FORTRAN VARIAJC )@@G@@BLES OR STATEMENT NUMBERS. IF FOUND, THE SYMBOL SYM00050 @M@[@@ 01232JD )@@G@@* C IS PACKED IN KODE AS A NUMBER WHOSE BASE IS 37JE )@@G@@. SYM00060 @M@[@@ 01233* C JF )@@G@@ SYM00070 JG )@@G@@@M@[@@ 01234* 2 INCLUDE IDXCOM, LIST @ COMMON DECLJH )@@G@@ARATIONS SYM00080 @M@[@@ 01235* 3 JI )@@G@@ DIMENSION KSYM(37) JJ )@@G@@ SYM00090 @M@[@@ 01236* 4 EQUIVALENCE (KBL,KSYM)JK )@@G@@ SYM00100 @M@[@@ 01237* JL )@@G@@ C JM )@@G@@ SYM00110 @M@[@@ 01238* C A B JN )@@G@@C D E F G H I J K L M SYM00120 @M@[@@JO )@@G@@ 01239* C 1 2 3 4 5 6 7 8 JP )@@G@@9 10 11 12 13 SYM00130 @M@[@@ 01240* C JQ )@@G@@ SYM0JR )@@G@@0140 @M@[@@ 01241* C N O P Q R S JS )@@G@@ T U V W X Y Z SYM00150 @M@[@@ 01242* JT )@@G@@ C 14 15 16 17 18 19 20 21 22 23 24 25 JU )@@G@@ 26 SYM00160 @M@[@@ 01243* C JV )@@G@@ SYM00170 @M@[@@ 01244JW )@@G@@* C = , ( / ) + - * . $JX )@@G@@ 8/4 8/7 8/2 SYM00180 @M@[@@ 01245* C 1 JY )@@G@@ 2 3 4 5 6 7 8 9 10 11 12 13 SYM00190 JZ )@@G@@@M@[@@ 01246* C KA )@@G@@ SYM00200 @M@[@@ 01247* KB )@@G@@ C START. SET UP INITIAL CONDITIONS. KC )@@G@@ SYM00210 @M@[@@ 01248* C KD )@@G@@ SYM00220 @M@[@@ 01249* KE )@@G@@ 5 1 KODE=0 KF )@@G@@ SYM00230 @M@[@@ 01250* 6 NCHAR=0 KG )@@G@@ SYM00240 @M@[@@KH )@@G@@ 01251* 7 KRSX=KBL KI )@@G@@ SYM00250 @M@[@@ 01252* C KJ )@@G@@ SYM0KK )@@G@@0260 @M@[@@ 01253* C SEARCH FOR FIRST SYMBOL. KL )@@G@@ SYM00270 @M@[@@ 01254* KM )@@G@@ C KN )@@G@@ SYM00280 @M@[@@ 01255* 8 2 KLSX=KARD(KOL) KO )@@G@@ SYM00290 @M@[@@ 01256KP )@@G@@* 9 KOL=KOL+1 KQ )@@G@@ SYM00300 @M@[@@ 01257* 10 IF (KR )@@G@@KOL.GT.KMAX) RETURN SYM00310 KS )@@G@@@M@[@@ 01258* 11 DO 3 I=2,37 KT )@@G@@ SYM00320 @M@[@@ 01259* 12 KU )@@G@@ IF (KARD(KOL).EQ.KSYM(I)) GO TO 4 KV )@@G@@ SYM00330 @M@[@@ 01260* 13 3 CONTINUE KW )@@G@@ SYM00340 @M@[@@ 01261* KX )@@G@@ 14 GO TO 2 KY )@@G@@ SYM00350 @M@[@@ 01262* C KZ )@@G@@ SYM00360 @M@[@@LA )@@G@@ 01263* C TEST IF FIRST CHARACTER IS NUMERIC. LB )@@G@@ SYM00370 @M@[@@ 01264* C LC )@@G@@ SYM0LD )@@G@@0380 @M@[@@ 01265* 15 4 IF (I.LT.12) GO TO 8 LE )@@G@@ SYM00390 @M@[@@ 01266* LF )@@G@@ C LG )@@G@@ SYM00400 @M@[@@ 01267* C FIRST CHARACTER LH )@@G@@IS ALPHA. TEST FOR LEADING PERIOD. SYM00410 @M@[@@ 01268LI )@@G@@* C IF FIRST ALPHA SYMBOL IS O, CHECK FOR OCTAL COLJ )@@G@@NSTANT. SYM00420 @M@[@@ 01269* C LK )@@G@@ SYM00430 LL )@@G@@@M@[@@ 01270* 16 IF (KLSX.EQ.KSPK(9)) GO TO 18 LM )@@G@@ SYM00440 @M@[@@ 01271* 17 LN )@@G@@ IF (I.EQ.26) GO TO 19 DC9 )@D03^0@D03^0@LO )@@G@@D03^0@D04^C@D04^C@D04^C@DK4 @@DK4 @@DK4 @@D)0^*@D)0^*@D)0^*@D)4 )@D)4 )@LP )@@G@@D)4 )@DC\^)@DC\^)@DC\^)@D06#*@D06#*@D06#*@D)4^S@D)4^S@D)4^S@D00#0@D00#0@LQ )@@G@@@@@@$@ SYM00450 @M@[@@ 01272* C LR )@@G@@ SYM0LS )@@G@@0460 @M@[@@ 01273* C START ALPHA SYMBOL ASSEMBLY.LT )@@G@@ SYM00470 @M@[@@ 01274* LU )@@G@@ C LV )@@G@@ SYM00480 @M@[@@ 01275* 18 5 NCHAR=NCHAR+1 LW )@@G@@ SYM00490 @M@[@@ 01276LX )@@G@@* 19 IF (NCHAR.GT.MXCH) GO TO 15 LY )@@G@@ SYM00500 @L__@@ I N D E X LZ )@@G@@ PAGE 50 @F@[@@MA )@@G@@ SUBROUTINE SYMBOL @@@[@@MB )@@G@@@M@[@@ 01277* 20 KODE=KODE*37+I-1 MC )@@G@@ SYM00510 @M@[@@ 01278* 21 MD )@@G@@ KOL=KOL+1 ME )@@G@@ SYM00520 @M@[@@ 01279* 22 IF (KOL.GT.KMAX) GO TOMF )@@G@@ 7 SYM00530 @M@[@@ 01280* MG )@@G@@ 23 DO 6 I=2,37 MH )@@G@@ SYM00540 @M@[@@ 01281* 24 IF (KARD(KMI )@@G@@OL).EQ.KSYM(I)) GO TO 5 SYM00550 @M@[@@MJ )@@G@@ 01282* 25 6 CONTINUE MK )@@G@@ SYM00560 @M@[@@ 01283* 26 ML )@@G@@ KRSX=KARD(KOL) SYM0MM )@@G@@0570 @M@[@@ 01284* C MN )@@G@@ SYM00580 @M@[@@ 01285* MO )@@G@@ C PACK OUT KODE WITH ANY NECESSARY BLANKS AND EXIT. MP )@@G@@ SYM00590 @M@[@@ 01286* C MQ )@@G@@ SYM00600 @M@[@@ 01287MR )@@G@@* 27 7 IF (NCHAR.EQ.MXCH) RETURN MS )@@G@@ SYM00610 @M@[@@ 01288* 28 KODEMT )@@G@@=KODE*37 SYM00620 MU )@@G@@@M@[@@ 01289* 29 NCHAR=NCHAR+1 MV )@@G@@ SYM00630 @M@[@@ 01290* 30 MW )@@G@@ GO TO 7 MX )@@G@@ SYM00640 @M@[@@ 01291* C MY )@@G@@ SYM00650 @M@[@@ 01292* MZ )@@G@@ C FIRST CHARACTER IS NUMERIC. CHECK FOR LEADING ARITHNA )@@G@@METIC SYM00660 @M@[@@ 01293* C OPERATOR ONB )@@G@@R A DECIMAL POINT. SYM00670 @M@[@@NC )@@G@@ 01294* C ND )@@G@@ SYM00680 @M@[@@ 01295* 31 8 NE )@@G@@ IF (KLSX.EQ.KEQ.OR.KLSX.EQ.KSLASH.OR.KLSX.EQ.KPLUS.OR.KLSX.EQ. SYM0NF )@@G@@0690 @M@[@@ 01296* 1 KMINUS.OR.KLSX.EQ.KSTAR.NG )@@G@@OR.KLSX.EQ.KPERD) GO TO 12 SYM00700 @M@[@@ 01297* NH )@@G@@ C NI )@@G@@ SYM00710 @M@[@@ 01298* C START NUMBER ASSNJ )@@G@@EMBLY. SYM00720 @M@[@@ 01299NK )@@G@@* C NL )@@G@@ SYM00730 @M@[@@ 01300* 32 9 IF (NM )@@G@@I.EQ.2.AND.NCHAR.EQ.0) GO TO 10 SYM00740 NN )@@G@@@M@[@@ 01301* 33 NCHAR=NCHAR+1 NO )@@G@@ SYM00750 @M@[@@ 01302* 34 NP )@@G@@ KODE=KODE*37+I-1 NQ )@@G@@ SYM00760 @M@[@@ 01303* 35 10 KOL=KOL+1 NR )@@G@@ SYM00770 @M@[@@ 01304* NS )@@G@@ 36 IF (KOL.LE.KMAX) GO TO 105 NT )@@G@@ SYM00780 @M@[@@ 01305* 37 IF (NCHAR.NU )@@G@@GT.5) GO TO 23 SYM00790 @M@[@@NV )@@G@@ 01306* 38 RETURN NW )@@G@@ SYM00800 @M@[@@ 01307* 39 105 NX )@@G@@ DO 11 I=2,11 SYM0NY )@@G@@0810 @M@[@@ 01308* 40 IF (KARD(KOL).EQ.KSYM(I)) GONZ )@@G@@ TO 9 SYM00820 @M@[@@ 01309* OA )@@G@@ 41 11 CONTINUE OB )@@G@@ SYM00830 @M@[@@ 01310* 42 IF (KODE.EQ.0) KOC )@@G@@ODE=1 SYM00840 @M@[@@ 01311OD )@@G@@* 43 KRSX=KARD(KOL) OE )@@G@@ SYM00850 @M@[@@ 01312* 44 IF (OF )@@G@@KRSX.EQ.KPERD) GO TO 12 SYM00860 OG )@@G@@@M@[@@ 01313* 45 IF (KRSX.EQ.KSLASH.OR.KRSX.EQ.KPLUOH )@@G@@S.OR.KRSX.EQ.KMINUS.OR.KRSX.EQ. SYM00870 @M@[@@ 01314* OI )@@G@@ 1 KSTAR) GO TO 1 OJ )@@G@@ SYM00880 @M@[@@ 01315* 46 IF (KRSX.EQ.KD.OR.KRSXOK )@@G@@.EQ.KE) GO TO 125 SYM00890 @M@[@@ 01316* OL )@@G@@ 47 RETURN OM )@@G@@ SYM00900 @M@[@@ 01317* C ON )@@G@@ SYM00910 @M@[@@OO )@@G@@ 01318* C SYMBOL IS A NUMERIC CONSTANT. SCAN TO NOP )@@G@@EXT SPECIAL CHARACTER SYM00920 @M@[@@ 01319* C OQ )@@G@@ WHILE CHECKING FOR D OR E SPECIFICATIONS. SYM0OR )@@G@@0930 @M@[@@ 01320* C OS )@@G@@ SYM00940 @M@[@@ 01321* OT )@@G@@ 48 12 KOL=KOL+1 OU )@@G@@ SYM00950 @M@[@@ 01322* 49 IF (KOL.GE.KMAX)OV )@@G@@ GO TO 23 SYM00960 @M@[@@ 01323OW )@@G@@* 50 IF (KARD(KOL).EQ.KD) GO TO 125 OX )@@G@@ SYM00970 @M@[@@ 01324* 51 DO 1OY )@@G@@23 I=1,10 SYM00980 OZ )@@G@@@M@[@@ 01325* 52 IF (KARD(KOL).EQ.KDIG(I)) GO TO 12PA )@@G@@ SYM00990 @M@[@@ 01326* 53 PB )@@G@@ IF (KARD(KOL).EQ.KSPK(I+1)) GO TO 1 PC )@@G@@ SYM01000 @L__@@ I N D E X PD )@@G@@ PAGE 51 @F@[@@ PE )@@G@@ SUBROUTINE SYMBOL @@@[@@@M@[@@ 01327* PF )@@G@@ 54 123 CONTINUE PG )@@G@@ SYM01010 @M@[@@ 01328* 55 IF (KARD(KPH )@@G@@OL).NE.KE) GO TO 15 SYM01020 @M@[@@PI )@@G@@ 01329* 56 IF (KARD(KOL+1).EQ.KQ) GO TO 18 PJ )@@G@@ SYM01030 @M@[@@ 01330* C PK )@@G@@ SYM0PL )@@G@@1040 @M@[@@ 01331* C FOUND D OR E. IF + OR - FOLLPM )@@G@@OWS, IT IS PART OF CONSTANT SYM01050 @M@[@@ 01332* PN )@@G@@ C PO )@@G@@ SYM01060 @M@[@@ 01333* 57 125 KOL=KOL+1 PP )@@G@@ SYM01070 @M@[@@ 01334PQ )@@G@@* 58 IF (KOL.GE.KMAX) GO TO 23 PR )@@G@@ SYM01080 @M@[@@ 01335* 59 IF (PS )@@G@@KARD(KOL).EQ.KPLUS.OR.KARD(KOL).EQ.KMINUS) GO TO 16 SYM01090 PT )@@G@@@M@[@@ 01336* 60 GO TO 165 PU )@@G@@ SYM01100 @M@[@@ 01337* PV )@@G@@ C PW )@@G@@ SYM01110 @M@[@@ 01338* C INVALID SYMBOL. SCAN PX )@@G@@TO NEXT SPECIAL CHARACTER. SYM01120 @M@[@@ 01339* PY )@@G@@ C PZ )@@G@@ SYM01130 @M@[@@ 01340* 61 15 CALL ERRORQA )@@G@@ SYM01140 @M@[@@QB )@@G@@ 01341* C QC )@@G@@ SYM01150 @M@[@@ 01342* 62 16 QD )@@G@@ KOL=KOL+1 SYM0QE )@@G@@1160 @M@[@@ 01343* 63 IF (KOL.GE.KMAX) GO TO 23 QF )@@G@@ SYM01170 @M@[@@ 01344* QG )@@G@@ 64 165 DO 17 I=1,11 QH )@@G@@ SYM01180 @M@[@@ 01345* 65 IF (KARD(KOL).EQQI )@@G@@.KSPK(I)) GO TO 1 SYM01190 @M@[@@ 01346QJ )@@G@@* 66 17 CONTINUE QK )@@G@@ SYM01200 @M@[@@ 01347* 67 GO TQL )@@G@@O 16 SYM01210 QM )@@G@@@M@[@@ 01348* C QN )@@G@@ SYM01220 @M@[@@ 01349* QO )@@G@@ C SKIP OVER LOGICAL OPERATOR OR LOGICAL CONSTANT. QP )@@G@@ SYM01230 @M@[@@ 01350* C QQ )@@G@@ SYM01240 @M@[@@ 01351* QR )@@G@@ 68 18 KOL=KOL+1 QS )@@G@@ SYM01250 @M@[@@ 01352* 69 IF (KOL.GTQT )@@G@@.KMAX) RETURN SYM01260 @M@[@@QU )@@G@@ 01353* 70 IF (KARD(KOL).NE.KSPK(9)) GO TO 18 QV )@@G@@ SYM01270 @M@[@@ 01354* 71 QW )@@G@@ KARD(KOL)=KSPK(6) SYM0QX )@@G@@1280 @M@[@@ 01355* 72 GO TO 2 QY )@@G@@ SYM01290 @M@[@@ 01356* QZ )@@G@@ C RA )@@G@@ SYM01300 @M@[@@ 01357* C FIRST SYMBOL IS RB )@@G@@O. SCAN LINE FOR POSSIBLE OCTAL CONSTANT. SYM01310 @M@[@@ 01358RC )@@G@@* C RD )@@G@@ SYM01320 @M@[@@ 01359* 73 19 IB=KRE )@@G@@OL+1 SYM01330 RF )@@G@@@M@[@@ 01360* 74 DO 21 IB=IB,KMAX RG )@@G@@ SYM01340 @M@[@@ 01361* 75 RH )@@G@@ DO 20 J=1,8 RI )@@G@@ SYM01350 @M@[@@ 01362* 76 IF (KARD(IB).EQ.KDIG(JRJ )@@G@@)) GO TO 21 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*@ SYM0RM )@@G@@1360 @M@[@@ 01363* 77 20 CONTINUE RN )@@G@@ SYM01370 @M@[@@ 01364* RO )@@G@@ 78 GO TO 22 RP )@@G@@ SYM01380 @M@[@@ 01365* 79 21 CONTINUE RQ )@@G@@ SYM01390 @M@[@@ 01366RR )@@G@@* 80 GO TO 23 RS )@@G@@ SYM01400 @M@[@@ 01367* 81 22 IB=KRT )@@G@@ARD(IB) SYM01410 RU )@@G@@@M@[@@ 01368* 82 IF (IB.EQ.KSPK(2).OR.IB.EQ.KSPK(4)RV )@@G@@.OR.IB.EQ.KSPK(5).OR.IB.EQ.KSPK(SYM01420 @M@[@@ 01369* RW )@@G@@ 16).OR.IB.EQ.KSPK(7).OR.IB.EQ.KSPK(8).OR.IB.EQ.KSPK(11)) GO TO 12RX )@@G@@ SYM01430 @M@[@@ 01370* 83 GO TO 5 RY )@@G@@ SYM01440 @M@[@@ 01371* RZ )@@G@@ C SA )@@G@@ SYM01450 @M@[@@ 01372* C END OF LINSB )@@G@@E EXIT. SYM01460 @M@[@@SC )@@G@@ 01373* C SD )@@G@@ SYM01470 @M@[@@ 01374* 84 23 SE )@@G@@ KODE=0 SYM0SF )@@G@@1480 @M@[@@ 01375* 85 NCHAR=0 SG )@@G@@ SYM01490 @M@[@@ 01376* SH )@@G@@ 86 KLSX=KBL SI )@@G@@ SYM01500 @L__@@ I N D E X SJ )@@G@@ PAGE 52 @F@[@@ SK )@@G@@ SUBROUTINE SYMBOL @@@[@@@M@[@@ 01377SL )@@G@@* 87 KRSX=KBL SM )@@G@@ SYM01510 @M@[@@ 01378* 88 RETUSN )@@G@@RN SYM01520 SO )@@G@@@M@[@@ 01379* 89 END SP )@@G@@ SYM01530 @L__@@ I N D E X SQ )@@G@@ PAGESR )@@G@@ 53 @F@[@@ SUBROUTINE SYMSS )@@G@@BOL @@@[@@@K@[@@ SYMBOL = = = = = = = = = = = = = = = ST )@@G@@REFERENCES = = = = = = = = = = = = = = =@@@[@@@D@[@@ 1 SU )@@G@@- 5* 45 53 65 @B@[@@ 2 - 8* SV )@@G@@ 14 72 @A@[@@ 3 - 11 13* @A@[@@ 4 SW )@@G@@ - 12 15* @B@[@@ 5 - 18* 24 83 SX )@@G@@@A@[@@ 6 - 23 25* @B@[@@ 7 - 2SY )@@G@@2 27* 30 @A@[@@ 8 - 15 31* @A@[@@ SZ )@@G@@ 9 - 32* 40 @A@[@@ 10 - 32 35* TA )@@G@@@A@[@@ 11 - 39 41* @E@[@@ 12 - 3TB )@@G@@1 44 48* 52 82 @B@[@@ 15 - 19 TC )@@G@@ 55 61*@B@[@@ 16 - 59 62* 67 @A@[@@ TD )@@G@@ 17 - 64 66* @D@[@@ 18 - 16 56 TE )@@G@@ 68* 70 @A@[@@ 19 - 17 73* @A@[@@ TF )@@G@@ 20 - 75 77* @B@[@@ 21 - 74 76 TG )@@G@@ 79*@A@[@@ 22 - 78 81* @F@[@@ 23 TH )@@G@@- 37 49 58 63 80 84*@A@[@@ 105 TI )@@G@@- 36 39* @A@[@@ 123 - 51 54* @B@[@@ TJ )@@G@@ 125 - 46 50 57*@A@[@@ 165 - 60 TK )@@G@@ 64* @ @[@@ ERROR - 61 @L@[@@ I - 1TL )@@G@@1 12 15 17 20 23 24 32 34 3TM )@@G@@9 @F@[@@ 40 51 52 53 64 TN )@@G@@ 65 @L@[@@ IB - 73= 74 74 76 81= TO )@@G@@ 81 82 82 82 82 @B@[@@ 8TP )@@G@@2 82 82 @ @[@@ IDXCOM - 2IC @A@[@@ J TQ )@@G@@ - 75 76 @L@[@@ KARD - 8 12 24 TR )@@G@@ 26 40 43 50 52 53 55 @I@[@@ TS )@@G@@ 56 59 59 65 70 71= 76 TT )@@G@@ 81 @D@[@@ KBL - 4EQ 7 86 87 @A@[@@TU )@@G@@ KD - 46 50 @A@[@@ KDIG - 52 TV )@@G@@ 76 @A@[@@ KE - 46 55 @ @[@@ KEQ TW )@@G@@- 31 @J@[@@ KLSX - 8= 16 31 31 TX )@@G@@ 31 31 31 31 86=@I@[@@ KMAX - 10 TY )@@G@@ 22 36 49 58 63 69 74 @B@[@@ KMTZ )@@G@@INUS - 31 45 59 @L@[@@ KODE - 5= 20= UA )@@G@@ 20 28= 28 34= 34 42 42= 84= @L@[@@UB )@@G@@ KOL - 8 9= 9 10 12 21= 2UC )@@G@@1 22 24 26 @L@[@@ 35= 35 UD )@@G@@ 36 40 43 48= 48 49 50 52 @L@[@@UE )@@G@@ 53 55 56 57= 57 58 5UF )@@G@@9 59 62= 62 @I@[@@ 63 65 UG )@@G@@ 68= 68 69 70 71 73 @A@[@@ KPERD UH )@@G@@- 31 44 @L__@@ I N D E X UI )@@G@@ PAGE 54 @F@[@@ UJ )@@G@@ SUBROUTINE SYMBOL @@@[@@@B@[@@ UK )@@G@@ KPLUS - 31 45 59 @ @[@@ KQ - 56 UL )@@G@@@L@[@@ KRSX - 7= 26= 43= 44 45 45 UM )@@G@@ 45 45 46 46 @ @[@@ 87= UN )@@G@@@A@[@@ KSLASH - 31 45 @L@[@@ KSPK - 1UO )@@G@@6 53 65 70 71 82 82 82 82 8UP )@@G@@2 @A@[@@ 82 82 @A@[@@ KSTAR UQ )@@G@@- 31 45 @E@[@@ KSYM - 3DI 4EQ 12 2UR )@@G@@4 40 @A@[@@ MXCH - 19 27 @L@[@@ NCUS )@@G@@HAR - 6= 18= 18 19 27 29= 29 32 UT )@@G@@ 33= 33 @A@[@@ 37 85= @ @[@@ UU )@@G@@ SYMBOL - 1EY @L@]@@ -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+UV )@@G@@-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ @L__@@ UW )@@G@@ I N D E X UX )@@G@@ PAGE 55 @F@[@@ UY )@@G@@ SUBROUTINE UPDATE @@@[@@@M@[@@ 01380* 1 SUBRUZ )@@G@@OUTINE UPDATE UPD00010 VA )@@G@@@M@[@@ 01381* C COPYRIGHT 1966, HARRY M. MURPHY, JVB )@@G@@R. UPD00020 @M@[@@ 01382* VC )@@G@@ C VD )@@G@@ UPD00030 @M@[@@ 01383* C THIS SUBROUTINE UPDATEVE )@@G@@S THE SYMBOL TABLE. NEW SYMBOLS ARE ADDED UPD00040 @M@[@@ 01384* VF )@@G@@ C AS THEY ARE FOUND. REFERENCES TO PREVIOUSLY FOUND SVG )@@G@@YMBOLS ARE UPD00050 @M@[@@ 01385* C UPDATED. VH )@@G@@ UPD00060 @M@[@@VI )@@G@@ 01386* C VJ )@@G@@ UPD00070 @M@[@@ 01387* C VK )@@G@@ LOW ORDER 15 BITS = LINK. UPD0VL )@@G@@0080 @M@[@@ 01388* C NEXT 15 BITS = LOCN. VM )@@G@@ UPD00090 @M@[@@ 01389* VN )@@G@@ C REMAINING BITS = ITYPE. VO )@@G@@ UPD00100 @M@[@@ 01390* C VP )@@G@@ UPD00110 @M@[@@ 01391VQ )@@G@@* 2 INCLUDE IDXCOM, LIST @ COMMON DECLARATIONS VR )@@G@@ UPD00120 @M@[@@ 01392* C VS )@@G@@ UPD00130 VT )@@G@@@M@[@@ 01393* 3 DIMENSION LISTS(3,2730) VU )@@G@@ UPD00140 @M@[@@ 01394* 4 VV )@@G@@ EQUIVALENCE (LIST(1),LISTS(1)) VW )@@G@@ UPD00150 @M@[@@ 01395* C VX )@@G@@ UPD00160 @M@[@@ 01396* VY )@@G@@ C CHECK FOR FIRST ENTRY. VZ )@@G@@ UPD00170 @M@[@@ 01397* C WA )@@G@@ UPD00180 @M@[@@WB )@@G@@ 01398* 5 1 IF (NSYM) 2,2,3 WC )@@G@@ UPD00190 @M@[@@ 01399* C WD )@@G@@ UPD0WE )@@G@@0200 @M@[@@ 01400* C THIS IS THE FIRST ENTRY. WF )@@G@@ UPD00210 @M@[@@ 01401* WG )@@G@@ C WH )@@G@@ UPD00220 @M@[@@ 01402* 6 2 NSYM=1 WI )@@G@@ UPD00230 @M@[@@ 01403WJ )@@G@@* 7 J=1 WK )@@G@@ UPD00240 @M@[@@ 01404* 8 GO TWL )@@G@@O 5 UPD00250 WM )@@G@@@M@[@@ 01405* C WN )@@G@@ UPD00260 @M@[@@ 01406* WO )@@G@@ C NOT FIRST ENTRY. SEARCH FOR PREVIOUS MENTION OF SYMBOL. WP )@@G@@ UPD00270 @M@[@@ 01407* C WQ )@@G@@ UPD00280 @M@[@@ 01408* WR )@@G@@ 9 3 DO 4 J=1,NSYM WS )@@G@@ UPD00290 @M@[@@ 01409* 10 IF (LISTS(WT )@@G@@1,J).EQ.KODE) GO TO 6 UPD00300 @M@[@@WU )@@G@@ 01410* 11 4 CONTINUE WV )@@G@@ UPD00310 @M@[@@ 01411* C WW )@@G@@ UPD0WX )@@G@@0320 @M@[@@ 01412* C THIS IS FIRST REFERENCE. MAWY )@@G@@KE THE INITIAL ENTRY. UPD00330 @M@[@@ 01413* WZ )@@G@@ C XA )@@G@@ UPD00340 @M@[@@ 01414* 12 NSYM=NSYM+1 XB )@@G@@ UPD00350 @M@[@@ 01415XC )@@G@@* 13 J=NSYM XD )@@G@@ UPD00360 @M@[@@ 01416* 14 5 LISTXE )@@G@@S(1,J)=KODE UPD00370 XF )@@G@@@M@[@@FDIG0@FDIG0@FDIG0@F[IG)@F[IG)@F[IG)@E9EGK@E9EGK@E9EGK@FLIG0@FLIG0@XG )@@G@@FLIG0@F(OH)@F(OH)@F(OH)@GTUI)@GTUI)@GTUI)@F9NH)@F9NH)@F9NH)@F1OHK@F1OHK@XH )@@G@@F1OHK@GTTH0@GTTH0@GTTH0@@@@@(@ 01417* 15 LISTS(2,J)XI )@@G@@=NEXT UPD00380 @M@[@@XJ )@@G@@ 01418* 16 GO TO 7 XK )@@G@@ UPD00390 @M@[@@ 01419* C XL )@@G@@ UPD0XM )@@G@@0400 @M@[@@ 01420* C PREVIOUS REFERENCE. XN )@@G@@ UPD00410 @M@[@@ 01421* XO )@@G@@ C XP )@@G@@ UPD00420 @M@[@@ 01422* 17 6 LINK=LISTS(3,J) XQ )@@G@@ UPD00430 @M@[@@ 01423XR )@@G@@* 18 LOCN=LIST(LINK)/N15B XS )@@G@@ UPD00440 @M@[@@ 01424* 19 LOCNXT )@@G@@=LOCN-(LOCN/N15B)*N15B UPD00450 XU )@@G@@@M@[@@ 01425* C XV )@@G@@ UPD00460 @M@[@@ 01426* XW )@@G@@ C ADD NEW REFERENCE TO LIST. XX )@@G@@ UPD00470 @M@[@@ 01427* C XY )@@G@@ UPD00480 @M@[@@ 01428* XZ )@@G@@ 20 LIST(LINK)=LIST(LINK)+NEXT YA )@@G@@ UPD00490 @M@[@@ 01429* 21 7 LISTS(3,J)YB )@@G@@=NEXT UPD00500 @L__@@YC )@@G@@ I N D E X YD )@@G@@ PAGE 56 @F@[@@ YE )@@G@@ SUBROUTINE UPDATE @@@[@@@M@[@@ 01430* 22 YF )@@G@@ LIST(NEXT)=(ITYPE*N15B+NREC)*N15B UPD0YG )@@G@@0510 @M@[@@ 01431* 23 NEXT=NEXT-1 YH )@@G@@ UPD00520 @M@[@@ 01432* YI )@@G@@ C YJ )@@G@@ UPD00530 @M@[@@ 01433* C CHECK FOR POSSIBYK )@@G@@LE SYMBOL TABLE OVERFLOW AND EXIT. UPD00540 @M@[@@ 01434YL )@@G@@* C YM )@@G@@ UPD00550 @M@[@@ 01435* 24 IF (YN )@@G@@NEXT.GT.3*NSYM+4) RETURN UPD00560 YO )@@G@@@M@[@@ 01436* C YP )@@G@@ UPD00570 @M@[@@ 01437* YQ )@@G@@ C SYMBOL TABLE FULL. PRINT PARTIAL INDEX, CLEAR SYMBOL TABLE, ANDYR )@@G@@ UPD00580 @M@[@@ 01438* C RETURN. YS )@@G@@ UPD00590 @M@[@@ 01439* YT )@@G@@ C YU )@@G@@ UPD00600 @M@[@@ 01440* 25 WRITE(IOUTYV )@@G@@,8) UPD00610 @M@[@@YW )@@G@@ 01441* 26 CALL PAGE (3) YX )@@G@@ UPD00620 @M@[@@ 01442* 27 YY )@@G@@ CALL SORT UPD0YZ )@@G@@0630 @M@[@@ 01443* 28 CALL OUTPUT ZA )@@G@@ UPD00640 @M@[@@ 01444* ZB )@@G@@ 29 NEXT=MXLI ZC )@@G@@ UPD00650 @M@[@@ 01445* 30 NSYM=0 ZD )@@G@@ UPD00660 @M@[@@ 01446ZE )@@G@@* 31 NREC=0 ZF )@@G@@ UPD00670 @M@[@@ 01447* 32 RETUZG )@@G@@RN UPD00680 ZH )@@G@@@M@[@@ 01448* C ZI )@@G@@ UPD00690 @M@[@@ 01449* 33 ZJ )@@G@@ 8 FORMAT (1H0,9X,5H*****,5X,80H****** SYMBOL TABLE FULL. A PARTIAZK )@@G@@L UPD00700 @M@[@@ 01450* 1INDEX FOR THE ABOVE ROZL )@@G@@UTINE FOLLOWS. ******/1X) UPD00710 @M@[@@ 01451* ZM )@@G@@ 34 END ZN )@@G@@ UPD00720 @M@[@@ 01452* C FORTRAN PRZO )@@G@@OCS DEFINING COMMON FOR INDEX PROGRAMS PRC00010 @M@[@@ZP )@@G@@ 01453* C ZQ )@@G@@ PRC00020 @L__@@ I N D E X ZR )@@G@@ PAGE 57 ZS )@@G@@@F@[@@ SUBROUTINE UPDATE ZT )@@G@@@@@[@@@K@[@@ SYMBOL = = = = = = = = = = = = = = = REFEREZU )@@G@@NCES = = = = = = = = = = = = = = =@@@[@@@ @[@@ 1 - ZV )@@G@@5* @B@[@@ 2 - 5 5 6*@A@[@@ 3 ZW )@@G@@ - 5 9* @A@[@@ 4 - 9 11* @A@[@@ZX )@@G@@ 5 - 8 14* @A@[@@ 6 - 10 ZY )@@G@@ 17* @A@[@@ 7 - 16 21* @A@[@@ 8 ZZ )@@G@@- 25WR 33* @ @[@@ IDXCOM - 2IC @ @[@@ IOAA )@@G@@UT - 25WR @ @[@@ ITYPE - 22 @I@[@@ J AB )@@G@@ - 7= 9 10 13= 14 15 17 21 AC )@@G@@@A@[@@ KODE - 10 14 @D@[@@ LINK - 1AD )@@G@@7= 18 20 20 @E@[@@ LIST - 4EQ 18 AE )@@G@@ 20= 20 22= @H@[@@ LISTS - 3DI 4EQ 10 AF )@@G@@ 14= 15= 17 21= @D@[@@ LOCN - 18= AG )@@G@@ 19= 19 19 @ @[@@ MXLI - 29 @E@[@@ AH )@@G@@ N15B - 18 19 19 22 22 @I@[@@ NEAI )@@G@@XT - 15 20 21 22 23= 23 24 29= AJ )@@G@@@A@[@@ NREC - 22 31= @I@[@@ NSYM - AK )@@G@@5 6= 9 12= 12 13 24 30= @ @[@@ AL )@@G@@ OUTPUT - 28 @ @[@@ PAGE - 26 @ @[@@ AM )@@G@@ SORT - 27 @ @[@@ UPDATE - 1EY @L@]@@ AN )@@G@@ -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+AO )@@G@@-+-+-+-+-+-+-+-+-+-+-+ @L__@@ I N D E X AP )@@G@@ PAGE 58 @F@[@@ AQ )@@G@@ SUBROUTINE IDXCOM @@@[@@@D@[@@AR )@@G@@ 01454* 1 SUBROUTINE IDXCOM @M@[@@ 01455* AS )@@G@@ 2 IMPLICIT INTEGER (A-Z) AT )@@G@@ PRC00040 @M@[@@ 01456* 3 COMMON /INAU )@@G@@DEX/ ITYPE, JOB(66), KARD(1346), PRC00050 @M@[@@AV )@@G@@ 01457* 1 KBUFF(80), KLEAR(8), KLSXAW )@@G@@, KMAX, KODE, KOL, KRSX, PRC00060 @M@[@@ 01458* AX )@@G@@ 2 LIST(8191), LOCN, MINA, NAMPGM, NCHAR,NEXT,NREC, PRC0AY )@@G@@0070 @M@[@@ 01459* 3 NROUT,NRT,NSYAZ )@@G@@M PRC00080 @M@[@@ 01460* BA )@@G@@ 4 COMMON /ALPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,BB )@@G@@KK,KL, PRC00090 @M@[@@ 01461* 1 KBC )@@G@@M,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,KY,KZ, PRC00100 @M@[@@ 01462BD )@@G@@* 2 KEQ,KCOMMA,KOPEN,KSLASH,KCLOSE,BE )@@G@@KPLUS,KMINUS,KSTAR, PRC00110 @M@[@@ 01463* 3 BF )@@G@@ KPERD,KDOLAR,KQUOTE,KAT,KAND PRC00120 BG )@@G@@@M@[@@ 01464* 5 DIMENSION KABC(26), KSPK(13) BH )@@G@@ PRC00130 @M@[@@ 01465* 6 BI )@@G@@ EQUIVALENCE (KABC,KA), (KSPK,KEQ) BJ )@@G@@ PRC00140 @M@[@@ 01466* 7 COMMON /BETA/ MXCH, MBK )@@G@@XLI, N15B, LINE, NPAGE PRC00150 @M@[@@ 01467* BL )@@G@@ 8 COMMON /IOTA/ KEY(26) BM )@@G@@ PRC00160 @M@[@@ 01468* 9 COMMON /KABN )@@G@@PPA/ KAP(11) PRC00170 @M@[@@BO )@@G@@ 01469* 10 COMMON /OMEGA/ KLAST(4) BP )@@G@@ PRC00180 @M@[@@ 01470* 11 BQ )@@G@@ COMMON /TAPES/ INTAPE, IOUT, IWORK PRC0BR )@@G@@0190 @A@[@@ 01471* 12 END @L__@@ I N D E BS )@@G@@X BT )@@G@@ PAGE 59 @F@[@@ SUBROUTIBU )@@G@@NE IDXCOM @@@[@@@K@[@@ SYMBOL = = = = = = = = = = = = = =BV )@@G@@ = REFERENCES = = = = = = = = = = = = = = =@@@[@@@ @[@@ ALBW )@@G@@PHA - 4CO @ @[@@ BETA - 7CO @ @[@@ IDBX )@@G@@XCOM - 1EY @ @[@@ INDEX - 3CO @ @[@@ INBY )@@G@@TAPE - 11CO @ @[@@ IOTA - 8CO @ @[@@ IOBZ )@@G@@UT - 11CO @ @[@@ ITYPE - 3CO @ @[@@ IWCA )@@G@@ORK - 11CO @ @[@@ JOB - 3CO @A@[@@ KACB )@@G@@ - 4CO 6EQ @A@[@@ KABC - 5DI 6EQ @ @[@@CC )@@G@@ KAND - 4CO @ @[@@ KAP - 9CO @ @[@@CD )@@G@@ KAPPA - 9CO @ @[@@ KARD - 3CO @ @[@@CE )@@G@@ KAT - 4CO @ @[@@ KB - 4CO @ @[@@CF )@@G@@ KBL - 4CO @ @[@@ KBUFF - 3CO @ @[@@CG )@@G@@ KC - 4CO @ @[@@ KCLOSE - 4CO @ @[@@CH )@@G@@ KCOMMA - 4CO @ @[@@ KD - 4CO @ @[@@CI )@@G@@ KDIG - 4CO @ @[@@ KDOLAR - 4CO @ @[@@CJ )@@G@@ KE - 4CO @A@[@@ KEQ - 4CO 6EQ CK )@@G@@@ @[@@ KEY - 8CO @ @[@@ KF - 4CO CL )@@G@@@ @[@@ KG - 4CO @ @[@@ KH - 4CO CM )@@G@@@ @[@@ KI - 4CO @ @[@@ KJ - 4CO CN )@@G@@@ @[@@ KK - 4CO @ @[@@ KL - 4CO CO )@@G@@@ @[@@ KLAST - 10CO @ @[@@ KLEAR - 3CO CP )@@G@@@ @[@@ KLSX - 3CO @ @[@@ KM - 4CO CQ )@@G@@@ @[@@ KMAX - 3CO @ @[@@ KMINUS - 4CO CR )@@G@@@ @[@@ KN - 4CO @ @[@@ KO - 4CO CS )@@G@@@ @[@@ KODE - 3CO @ @[@@ KOL - 3CO CT )@@G@@@ @[@@ KOPEN - 4CO @ @[@@ KP - 4CO CU )@@G@@@L__@@ I N D E X CV )@@G@@ PAGE 60 @F@[@@ CW )@@G@@ SUBROUTINE IDXCOM @@@[@@@ @[@@ KPERD - CX )@@G@@4CO @ @[@@ KPLUS - 4CO @ @[@@ KQ - CY )@@G@@4CO @ @[@@ KQUOTE - 4CO @ @[@@ KR - CZ )@@G@@4CO @ @[@@ KRSX - 3CO @ @[@@ KS - DA )@@G@@4CO @ @[@@ KSLASH - 4CO @A@[@@ IL*L0@IL*L0@I[>L*@DB )@@G@@I[>L*@I[>L*@H9+L0@H9+L0@H9+L0@H9=M@@H9=M@@H9=M@@H->L)@H->L)@H->L)@I[=L*@DC )@@G@@I[=L*@I[=L*@H9+LK@H9+LK@H9+LK@H1>L)@H1>L)@H1>L)@HTL*@QK )@@G@@H1>L*@H1>L*@HT)K0@HT)K0@HT)K0@H--LK@H--LK@H--LK@H->L)@H->L)@H->L)@H9-LC@QL )@@G@@H9-LC@H9-LC@H9)L@@H9)L@@H9)L@@HT>LC@HT>LC@HT>LC@H-+LS@H-+LS@H-+LS@G9=K8@QM )@@G@@G9=K8@G9=K8@H1ZLC@H1ZLC@H1ZLC@I[-L*@I[-L*@I[-L*@H9-L0@H9-L0@H9-L0@H-ZL)@QN )@@G@@H-ZL)@H-ZL)@H-)LS@H-)LS@H-)LS@I[-L8@I[-L8@I[-L8@IL)L0@IL)L0@IL)L0@I[>L)@QO )@@G@@I[>L)@I[>L)@H9K]$GBEDRC @@@@@@@@[@@@ @ @@@[@@@@@^@@@@\&KA1GBELB )@@G@@EX8LOD @@@@@@@@[@@@ @ @@@[@@@@@]@@@@\%KB[GBEEXITF0 LC )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@+@@@@\?KEXGBEFNCCNT @@@@[)@@[@@@LD )@@G@@ @ @@@[@@@@@^@@@@0IKFQGBEINIT1 @@@@[(@@[@@@ LE )@@G@@@ @@@[@@@@@^@@@@0MI(Q[]FINIT2 @@@@@@@@[@@@ @ @@@[@@@@@^LF )@@G@@@@@@0QKG3GBEIO @@@@@@@@[@@@ @ @@@[@@@@@D@@@@0UAW9GMELG )@@G@@KPOOL @@@@@@@@[@@@ @ @@@[@@@@@[@@@@0[L&EPEIO-WITH-FIX @@@@@@@@[@@@ @ @@@[@@@@[[MJ )@@G@@@@@@8SL3 EQEAASMTAGS @@@@@@@@[@@@ @ @@@[[@@@[N@@@@9TEN5EREMK )@@G@@FALL @@@@@@@@[@@@ @ @@@[[@@@@Q@@@@'?O/1EVESN$AP ML )@@G@@@@@@@@@@[@@@ @ @@@[@@@@[=@@@@;]@I]EWEIO @@@@@@@@[@@@MM )@@G@@ @ @@@[@@@@@/@@@@/&KZ%EYEIOMSA @@@@@@@@[@@@ MN )@@G@@@ @@@[@@@@@ @@@@.+MQREYESMSAPR @@@@]A@@[@@@ @ @@@[@@@@@FMO )@@G@@@@@@.$MU2GDESMUPQ @@@@@@@@[@@@ MS )@@G@@@ @@@[@@@@@ @@@@":J#4GFEK DISTRIBUTION <<<<<<<<<',/,@G@@@@ *' ACCMT )@@G@@OUNT',T16,'FILES',T26,'FIXED',T37,'REMOV',T46,'SEC TAPES', @F@@@@ *MU )@@G@@T58,'V-OPTION',T69,'G-OPTION',T84,'F2',T95,'F4',T105,'F17', @E@@@@ *MV )@@G@@T116,'F14',T127,'F40',/,' -----',21('------'),/,) @[@@@@ @ @@@@MW )@@G@@ 1003 FORMAT (1X,2A6,I6,10I11)@[@@@@ @B@@@@ 1004 FORMAT (1X,2A6,I4,MX )@@G@@I7,I6,6I5,2I6) @[@@@@ @D@@@@ 1005 FORMAT ('0FILES:',I6,', FIXEDMY )@@G@@ TRACKS:',I6, @E@@@@ *', V-OPT TRACKS:',I6,', SECURE BACKUP BLMZ )@@G@@OCKS:',I6,/,@C@@@@ *16X,'REMOV TRACKS:',I6,', G-OPT TRACKS:',@ @@@@NA )@@G@@ *I6,A1,' UNLOADED:',I6) @[@@@@ @C@@@@ 1006 FORMAT(1H1,'SUMMARNB )@@G@@Y BY BILLING AREA: ', @E@@@@ *3X,'FILES (F) TRACKS (R) V/G-OPNC )@@G@@T SEC TAPES'/) @[@@@@ @A@@@@ 1007 FORMAT(1H0,4A6,4I9,3X,I9) ND )@@G@@@[@@@@ @ @@@@ 1008 FORMAT ('0END GBILL') @[@@@@ @ @@@@ 2000 NE )@@G@@FORMAT(4A6,I4,10I5,'GB')@[@@@@ @]@@@@ END ___ F1RE BACKUP BLNF )@@G@@)@@@F]S@@@@@)@#@C@)@]@C@)[G@C@)@#@IS)@?@C@IN HOU@@@@@[@@@@@@@@@@@@@@@@@@NG )@@G@@/,0@@@AA@@@F)@![S@@@@@@@ /AMC ORNELLROCK/C ER L CENTMEDICANH )@@G@@ SE AB@@@F)@8[S@@@@@@@,G) ACT (T,USTUDENCH RESEARSORED NI )@@G@@UNSPON SEARCHRED RESPONSOAC@@@F)[#[C@@@@@@@)@[@E@@@@@@@ NJ )@@G@@ OTHER EXEC CTS AD@@@F)@][F#L#L#L#L] #@K3@@@@@NK )@@G@@;)@@@PC@@@@]@[=@@@@@@@[H/,0@@@ @@[X4 @@[X3 @@[X2 @@[X1AE@@@F)@F[M[@^G^G1NL )@@G@@#H#G@@C@@@@][^0@@]+8);__C^)@@][@@@@#C/@@@[/K@@@L*@@@@GG/@__";C@@@1 @[@@@@C @[@@@@C GN )@@G@@@ @@@@C END CONFIG PARAMETERS @[@@@@C @[@@@@C @[@@@@C GO )@@G@@@B@@@@ IDEC2(INPUT) = MOD(INPUT,10) + 48 @E@@@@ INTEGER FMT1GP )@@G@@(6)/34H(4X,A6,': UNITS',@@A4,' TOTAL')/@D@@@@ INTEGER FMT2(4)/24GQ )@@G@@H(13X,'ERRORS',@@I4,I7,/)/ @C@@@@ INTEGER LIST(28),V(31,14),KOERGR )@@G@@R(2,LDISC), @C@@@@ 2STOPS(2400),HIST1(48),BOOTS(28),TYPEBO(5) @D@@@@GS )@@G@@ 3/'NO SW. SW. 4 4/13SW. 14 4/14'/,SCALE/3/, @F@@@@ 4DATE(3GT )@@G@@1,3),CDATE,LAST,DSTS(28),TIME(25),RUN(24),GLITCH( @D@@@@ 528),MTGU )@@G@@IME(25),DORW/'HOUR'/,DAYINC/1/,IPRINT/6/ @C@@@@ DIMENSION EFFAV(24GV )@@G@@),RUNTAV(24),RESAV(24) @ @@@@ DIMENSION MXDATA(3,60) @^@@@@ GW )@@G@@REAL HIST2(49) @G@@@@ EQUIVALENCE(KO,KW),(PRCVAL,WEEKN,STOPS),(WGX )@@G@@EEKP,PROC),(SJ,HIST2(49)@]@@@@ *) @A@@@@ INTEGER PRCVAL(400GY )@@G@@,6),CONWRD @A@@@@ INTEGER PROC(400,2)/800*' '/ @^@@@@ DIMENSGZ )@@G@@ION KTOT(24)@G@@@@ DATAN/1/, KW/1/,MTIME/'0000 0100 0200 HA )@@G@@0300 0400 0500 @G@@@@ X0600 0700 0800 0900 1000 1100 1200 HB )@@G@@1300 1400 1500 1600 @E@@@@ X1700 1800 1900 2000 2100 2200 HC )@@G@@2300',0/,NIK/1/ @B@@@@ INTEGER WEEKN(400,6),WEEKP(400,2) @[@@@@HD )@@G@@C @[@@@@C @^@@@@C INITIALIZATION @[@@@@C @[@@@@C HE )@@G@@@^@@@@ ENTRY INIT(CONWRD)@#@@@@ DATA KVG/0/ @A@@@@ DEFINEHF )@@G@@ H1(A) = FLD(0,18,A) @A@@@@ DEFINE H2(A) = FLD(18,18,A) @G@@@@HG )@@G@@ DATA TIME/0,100,200,300,400,500,600,700,800,900,1000,1100,1200,130HH )@@G@@@F@@@@ C0,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400/ HI )@@G@@@#@@@@ PRINT 1 @F@@@@ 1 FORMAT(1H1////////////////////T54,'DHJ )@@G@@ISTRIBUTION STATISTICS')@]@@@@ RETURN@[@@@@C @[@@@@C @[@@@@HK )@@G@@C @^@@@@C PROCESSOR CALLS @[@@@@C @[@@@@C @^@@@@ HL )@@G@@ENTRY LOG (GLITCH)@A@@@@ IF (NKI .NE. 0) GO TO 277 @B@@@@ HM )@@G@@MXDATA(1,NIK) = FLD(0,6,GLITCH(7)) @B@@@@ MXDATA(2,NIK) = FLD(6,6,HN )@@G@@GLITCH(7)) @C@@@@ MXDATA(3,NIK) = FLD(12,6,GLITCH(7)) + 64 @#@@@@HO )@@G@@ NKI = 1 @#@@@@ 277 CONTINUE @E@@@@ IF (GLITCH(2) .EQ.HP )@@G@@ 1H .OR. GLITCH(2) .EQ. 0) GO TO 53@^@@@@ DO 51 KK = 1,KW @]@@@@HQ )@@G@@ J = KK@C@@@@ 51 IF (GLITCH(2) .EQ. PROC(J,1)) GO TO 52 @A@@@@HR )@@G@@ IF (KW .GT. 399) GO TO 15 @ @@@@ PROC(KW,1) = GLITCH(2) HS )@@G@@@ @@@@ PROC(KW,2) = GLITCH(3) @#@@@@ KW = KW + 1 @]@@@@ HT )@@G@@J = KW@#@@@@ GO TO 52 @^@@@@15 KOVP = KOVP + 1 @]@@@@ HU )@@G@@RETURN@A@@@@ 52 PRCVAL(J,1) = PRCVAL(J,1) + 1 @C@@@@ PRCVAL(J,2) HV )@@G@@= PRCVAL(J,2) + GLITCH(8) @A@@@@ PRCVAL(J,3) = H1(GLITCH(9)) HW )@@G@@@A@@@@ PRCVAL(J,4) = H2(GLITCH(9)) @C@@@@ PRCVAL(J,5) = PRCVHX )@@G@@AL(J,5) + GLITCH(12) @C@@@@ PRCVAL(J,6) = PRCVAL(J,6) + GLITCH(1HY )@@G@@3) @D@@@@53 NO = (H1(GLITCH(9)) + H2(GLITCH(9)))/SCALE + 1 @ @@@@HZ )@@G@@ IF (NO .GT. 48) GO TO 55@A@@@@ HIST1(NO) = HIST1(NO) + 1 IA )@@G@@@G@@@@ HIST2(NO) = HIST2(NO)+((H1(GLITCH(9)) + H2(GLITCH(9))))*GLITIB )@@G@@CH(8) @]@@@@ RETURN@^@@@@55 DO 40 NO = 1,24 @#@@@@ J = NOIC )@@G@@*2 @B@@@@ HIST1(NO) = HIST1(J) + HIST1(J-1) @B@@@@40 HIST2(ID )@@G@@NO) = HIST2(J) + HIST2(J-1) @^@@@@ DO 19 NO = 23,48 @^@@@@ IE )@@G@@HIST1(NO) = 0 @^@@@@19 HIST2(NO) = 0 @^@@@@ SCALE = SCALIF )@@G@@E*2 @#@@@@ GO TO 53 @[@@@@C @[@@@@C @ @@@@C FUNNY IG )@@G@@DISTRIBUTION STUFF@[@@@@C @[@@@@C @^@@@@ ENTRY DIST (DSTS) IH )@@G@@@A@@@@ DSTS(1) = FLD(18,18,DSTS(6)) @A@@@@ IHRQ = (H2(DSTS(7)II )@@G@@)/3600)*100 @ @@@@ ITERM = H2(DSTS(7)) @ @@@@ IINIT = H2(DIJ )@@G@@STS(6)) @ @@@@ INOUT = ITERM-IINIT @C@@@@ IF (INOUT .LIK )@@G@@E. 0) INOUT = INOUT + 86400 @C@@@@ IF (H1(DSTS(7)) .NE. H1(DSTS(6IL )@@G@@))) RETURN @^@@@@ DO 10 I = N,24 @B@@@@ IF (IHRQ .EQ. TIMEIM )@@G@@(I)) GO TO 11 @#@@@@ 10 CONTINUE @]@@@@ RETURN@]@@@@ 11 IN )@@G@@K = I @]@@@@ N = K @A@@@@ KTOT(K) = KTOT(K) + DSTS(11) @ @@@@IO )@@G@@ RUN(K) = RUN(K) + 1 @ @@@@ IF (K .NE. KKK) GO TO 16@ @@@@IP )@@G@@ INOUV = INOUV + INOUT @A@@@@ RUNT = DSTS(11)/60000.0000 IQ )@@G@@@ @@@@ RES = INOUT/60.0000 @A@@@@ 17 IF (RUNT .LE. RES) GO TOIR )@@G@@ 18 @^@@@@ RES = RES + 1.0000@^@@@@ INOUT = INOUT + 60@^@@@@IS )@@G@@ INOUV = INOUV + 60@#@@@@ GO TO 17 @^@@@@ 18 EFF = RUNT/RIT )@@G@@ES @]@@@@ RETURN@ @@@@ 16 KAVG = KTOT(KKK)/RUN(KK)@ @@@@ IU )@@G@@INOUAV = INOUV/RUN(KKK) @^@@@@ INOUV = INOUT @A@@@@ RUNT =IV )@@G@@ DSTS(11)/60000.0000 @ @@@@ RES = INOUT/60.0000 @A@@@@ 29 IW )@@G@@IF (RUNT .LE. RES) GO TO 30 @^@@@@ RES = RES + 1.0000@^@@@@ IX )@@G@@INOUT = INOUT + 60@^@@@@ INOUV = INOUV + 60@#@@@@ GO TO 29 IY )@@G@@@^@@@@ 30 EFF = RUNT/RES @ @@@@ IF (KKK .EQ. 0) GO TO 13@A@@@@IZ )@@G@@ RUNTAV(KKK) = KAVG/60000.0000 @A@@@@ RESAV(KKK) = INOUAV/60.0JA )@@G@@000 @B@@@@ EFFAV(KKK) = RUNTAV(KK)/RESAV(KK) @A@@@@ EFFT =JB )@@G@@ KTOT(KKK)/(INOUV*1000) @#@@@@13 CONTINUE @#@@@@ KKK = K JC )@@G@@@]@@@@ RETURN@[@@@@C @[@@@@C @B@@@@C A RUN FINNED (TYPJD )@@G@@E 5 LOG ENTRIES) @[@@@@C @[@@@@C @^@@@@ ENTRY HOUR (LIST) JE )@@G@@@A@@@@ IDATE = FLD(0,18,LIST(14)) @B@@@@ IF (CDATE .EQ. 0) JF )@@G@@CDATE = IDATE @B@@@@ IF (CDATE .NE. IDATE) GO TO 4000 @A@@@@JG )@@G@@2000 V(DAYINC,1) = V(DAYINC,1) + 1 @E@@@@ IF (LIST(9) .EQ. 4) V(DJH )@@G@@AYINC,3) = V(DAYINC,3) + 1 @E@@@@ IF (LIST(9) .NE. 4) V(DAYINC,2JI )@@G@@) = V(DAYINC,2) + 1 @C@@@@ V(DAYINC,5) = V(DAYINC,5) + LIST(18JJ )@@G@@) @F@@@@ V(DAYINC,6 ) = V(DAYINC,6 ) + FLD(0,6,LIST(11)JK )@@G@@) @F@@@@ V(DAYINC,7 ) = V(DAYINC,7 ) + FLD(6,30,LIST(11JL )@@G@@)) @C@@@@ V(DAYINC,8 ) = V(DAYINC,8 ) + LIST(16) @D@@@@ JM )@@G@@V(DAYINC,9 ) = V(DAYINC,9 ) + FLD(0,18,LIST(15))@E@@@@ V(DAYINC,10)JN )@@G@@ = V(DAYINC,10) + FLD(18,18,LIST(15)) @]@@@@ RETURN@[@@@@C JO )@@G@@@[@@@@C @#@@@@C I/O ERRORS @[@@@@C @[@@@@C @^@@@@ JP )@@G@@ENTRY IOERR (LIST)@A@@@@ I = NDRUMT @ ASSUME ITS DRUM @C@@@@ JQ )@@G@@IF (FLD(12,6,LIST(1)) .LT. 16) I = NTAPET @B@@@@ IF (FLD(12,6,LIST(JR )@@G@@1)) .EQ. 29 .OR. @C@@@@ *FLD(12,6,LIST(1)) .EQ. 30) I = NDISCT JS )@@G@@@A@@@@ KOERR(1,I) = KOERR(1,I) + 1 @A@@@@ KOERR(2,I) = KOERRJT )@@G@@(2,I) + 1 @A@@@@ I = I + FLD(18,6,LIST(1)) + 1 @D@@@@ IF (FLJU )@@G@@D(12,6,LIST(1)) .EQ. 24) I = LF2 @ F2 @A@@@@ KOERR(1,I) = KOERRJV )@@G@@(1,I) + 1 @A@@@@ KOERR(2,I) = KOERR(2,I) + 1 @]@@@@ RETURNJW )@@G@@@[@@@@C @[@@@@C @#@@@@C A NEW DAY! @[@@@@C @[@@@@C JX )@@G@@@A@@@@4000 V(DAYINC,11) = KOERR(2,NTAPET)@D@@@@ IF (NF2 .NE. 0) V(JY )@@G@@DAYINC,12) = KOERR(2,LF2) @^@@@@ V(DAYINC,13) = 0 @F@@@@ JZ )@@G@@DO 4001 I = IDRUM,LDRUM @ ASSUMES YOUVE GOT AT LEAST 1 DRUM @C@@@@4001 KA )@@G@@V(DAYINC,13) = V(DAYINC,13) + KOERR(2,I) @A@@@@ V(DAYINC,14) = KOEKB )@@G@@RR(2,NDISCT)@ @@@@ DO 7201 I = 1,LDISC @^@@@@7201 KOERR(2,I) =KC )@@G@@ 0 @ @@@@ KAVG = KTOT(K)/RUN(K) @ @@@@ INOUAV = INOUV/RUNKD )@@G@@(K) @ @@@@ RUNTAV(K) = KAVG/60000.0@ @@@@ RESAV(K) = INOUAV/KE )@@G@@60. @A@@@@ EFFAV(K) = RUNTAV(K)/RESAV(K) @^@@@@ EFFT = RUNT/KF )@@G@@RES @G@@@@ 1951 FORMAT(4X,2A6,T20,I6,T33,F10.5,T56,3X,O3,T67,3X,O3,T75KG )@@G@@,I10,T98,I10@]@@@@ *) @F@@@@ PRINT 1952, (MXDATA(M,NIK),M =KH )@@G@@ 1,3),(MTIME(I),I = 1,12) @G@@@@ PRINT 2952,(RUN(J),J=1,12),(RUKI )@@G@@NTAV(J),J=1,12),(RESAV(J),J=1,12),(E@^@@@@ CFFAV(J),J = 1,12) @B@@@@KJ )@@G@@ PRINT 3952, (MTIME(I),I = 13,24) @G@@@@ PRINT 2952,(RUN(J)KK )@@G@@,J=13,24),(RUNTAV(J),J=13,24),(RESAV(J),J=13,24)@ @@@@ C,(EFFAV(J),JKL )@@G@@ = 13,24) @G@@@@ 1952 FORMAT(1H1,T46,'HOUR INTERVAL JOB DISTRIBUTION SKM )@@G@@TATISTICS',T100,I2@^@@@@ C,'/',I2,'/',I2,/, @G@@@@ CT46,'---- --KN )@@G@@------ --- ------------ ----------',/,T23,12(5X,A4),/,@ @@@@ CT23,12KO )@@G@@(5X,'----')//) @G@@@@ 2952 FORMAT(' NUMBER OF RUNS',T23,12(3X,I6),/,'KP )@@G@@ AVG CPU TIME PER RUN', @]@@@@ CT23, @G@@@@ C12(F9.4),/,' AVG IKQ )@@G@@N/OUT TIME PER RUN',T23,12(F9.4),/,' EFFICIENCY'@^@@@@ C,T23,12(F9.4KR )@@G@@)) @E@@@@ 3952 FORMAT(//////////,T23,12(5X,A4),/,T25,12(5X,'----')//)KS )@@G@@@#@@@@ KKK = 0 @]@@@@ N = 1 @#@@@@ IPRINT = 0 @#@@@@KT )@@G@@ RUNT = 0 @#@@@@ EFF = 0 @#@@@@ EFFT = 0 @#@@@@KU )@@G@@ RES = 0 @#@@@@ INOUV = 0 @#@@@@ INOUT = 0 @#@@@@KV )@@G@@ INOUAV = 0 @^@@@@ DO 377 J = 1,24 @#@@@@ KTOT(J) = 0 KW )@@G@@@#@@@@ EFFAV(J) = 0@^@@@@ RUNTAV(J) = 0 @#@@@@ RESAV(KX )@@G@@J) = 0@#@@@@ 377 RUN(J) = 0 @^@@@@ NIK = NIK + 1 @#@@@@ KY )@@G@@NKI = 0 @B@@@@ DATE(DAYINC,1) = FLD(18,6,CDATE) @B@@@@ KZ )@@G@@DATE(DAYINC,2) = FLD(24,6,CDATE) @C@@@@ DATE(DAYINC,3) = FLD(30,LA )@@G@@6,CDATE) + 64 @ @@@@ DAYINC = DAYINC + 1 @B@@@@ IF (CDLB )@@G@@ATE .EQ. IDATE) GO TO 5000 @^@@@@ CDATE = IDATE @#@@@@ LC )@@G@@GO TO 2000 @E@@@@4600 FORMAT (55X,'TAPE',6X,'TAPE',4X,'LINES',4X,'CARDLD )@@G@@S', @F@@@@ 14X,'CARDS',3X,'TAPE',3X,'FSTRND',3X,'DRUM',4X,'DISC'/3LE )@@G@@X,A4 @F@@@@ 2,6X,'RUNS',4X,'BATCH',3X,'DEMAND',6X,'CPU TIME',5X,'MOLF )@@G@@UNTS',@E@@@@ 35X,'TIME',5X,'OUT',6X,'IN',7X,'OUT',3X,'ERRORS',2X, LG )@@G@@@B@@@@ 4'ERRORS',2X,'ERRORS',2X,'ERRORS'/3X,@C@@@@ 5'----',6X,4(LH )@@G@@'-'),4X,5('-'),3X,'------' @E@@@@ 66X,'--------',5X,'------',5X,'LI )@@G@@----',4X,'-----',4X, @G@@@@ 7'-----',4X,'-----',2X,'------',2X,'-LJ )@@G@@-----',2X,'------',2X,'------'@]@@@@ 8//) @[@@@@C @[@@@@C LK )@@G@@@B@@@@C DAY INTERVAL DISTRIBUTION TABLE @[@@@@C @[@@@@C LL )@@G@@@ @@@@ ENTRY WEEK(NBOOTS,NMLS) @^@@@@ CDATE = IDATE @#@@@@LM )@@G@@ GO TO 4000 @^@@@@5000 LAST = DAYINC-1 @E@@@@ LDTOP = LASTLN )@@G@@ @ !!DO NOT REUSE LDTOP AFTER THIS POINT! @F@@@@ WRITE (6,6100) (DALO )@@G@@TE(1,I),I = 1,3),(DATE(LAST,J),J = 1,3) @#@@@@ DORW = 'DAY'@^@@@@LP )@@G@@ WRITE(6,4600)DORW @#@@@@ TCPU = 0 @^@@@@ DO 5150 I = LQ )@@G@@1,LAST@ @@@@ WCPU = V(I,5)/5000. @^@@@@ TCPU = TCPU + WCPULR )@@G@@@G@@@@ WRITE (6,5700) DATE(I,1),DATE(I,2),DATE(I,3),(V(I,J),J = 1,3LS )@@G@@), @C@@@@ 1 WCPU,(V(I,K),K = 6,14) @ @@@@ LT )@@G@@IF (I .EQ. 1) GO TO 5150@^@@@@ DO 5100 J = 1,14 @ @@@@5100 V(1,J)LU )@@G@@ = V(I,J) + V(1,J)@#@@@@5150 CONTINUE @E@@@@ WRITE (6,5750) (V(LV )@@G@@1,I),I = 1,3),TCPU,(V(1,J),J = 6,14)@G@@@@ 5700 FORMAT (1H ,I2,'/',I2,'/LW )@@G@@',I2,2X,3(I6,3X),1X,F10.3,2X,5I9,4I8,/) @E@@@@ 5750 FORMAT(//2X,'TOTALLX )@@G@@',4X,3(I6,3X),1X,F10.3,2X,5I9,4I8) @G@@@@ 6100 FORMAT (1H1,T54,'DAY INTLY )@@G@@ERVAL DISTRIBUTION'/T54,25('-')//T54,I2, @F@@@@ 1'/',I2,'/',I2,' LZ )@@G@@ - ',I2,'/',I2,'/',I2/T54,25('-')///) @E@@@@ PRINT 850, (DATE(1MA )@@G@@,M),M = 1,3),(DATE(LAST,J),J = 1,3) @[@@@@C @[@@@@C @ @@@@C MB )@@G@@PROCESSOR CALL SUMMARIES@[@@@@C @[@@@@C @#@@@@ NPRINT = 6 MC )@@G@@@#@@@@ KW = KW-1 @A@@@@ IF (KOVP .EQ. 0) GO TO 12 @^@@@@MD )@@G@@ PRINT 7, KOVP @E@@@@7 FORMAT('0',25('*'),I4,' PROCESSORS NME )@@G@@OT LISTED, TABLE '@ @@@@ *'OVERFLEW',25('*')//) @ @@@@ NPRINTMF )@@G@@ = NPRINT + 4 @#@@@@12 CONTINUE @^@@@@ DO 871 KK = 1,KW MG )@@G@@@#@@@@ MAX = 0 @]@@@@ I = 0 @^@@@@ DO 872 KV = 1,KW MH )@@G@@@B@@@@ IF (WEEKN(KV,1) .LT. MAX) GO TO 872 @^@@@@ MAX = WEEKN(MI )@@G@@KV,1) @]@@@@ I = KV@#@@@@ 872 CONTINUE @A@@@@ IF (NPRINT .MJ )@@G@@LT. 55) GO TO 863 @E@@@@ WRITE(6,850)(DATE(1,M),M = 1,3),(DATE(LASTMK )@@G@@,J),J = 1,3)@G@@@@ 850 FORMAT(1H1,T30,'TYPE 4 LOG ENTRIES FOR THE WEEK ML )@@G@@',I2,2('/',I2), @F@@@@ 1' - ',I2,2('/',I2),//5X,'PROG NAME',5X,'NMM )@@G@@O. XQTS',4X, @G@@@@ 2'AVG RUN TIME (SEC)',5X,'I-BANK',5X,'D-BANMN )@@G@@K',5X,'AVG NO I/O REFS',@B@@@@ 35X,'AVG DATA WORDS TRANSFERRED'///) MO )@@G@@@#@@@@ NPRINT = 6 @C@@@@ 863 W = WEEKN(I,2)/WEEKN(I,1)*0.MP )@@G@@0002 @B@@@@ WEEKN(I,5) = WEEKN(I,5)/WEEKN(I,1) @B@@@@ WEEKN(MQ )@@G@@I,6) = WEEKN(I,6)/WEEKN(I,1) @G@@@@ PRINT 1951,WEEKP(I,1),WEEKP(I,MR )@@G@@2),WEEKN(I,1),W,(WEEKN(I,J),J = 3,6)@ @@@@ NPRINT = NPRINT + 1 MS )@@G@@@^@@@@ WEEKN(I,1) = 0 @#@@@@ 871 CONTINUE @[@@@@C @[@@@@MT )@@G@@C @ @@@@C CORE USAGE HISTOGRAM @[@@@@C @[@@@@C @#@@@@MU )@@G@@ PRINT 7501 @F@@@@7501 FORMAT(1H1,53X,'CORE USAGE/PROGRAM SIZES',MV )@@G@@/,54X,24('-'),//, @F@@@@ *2X,'SIZE NO. XQTS CORE BLOCK SECONDS, TOMW )@@G@@TAL (APPROX)',/, @B@@@@ *2X,'----',2X,8('-'),2X,34('-')) @]@@@@MX )@@G@@ SJ = 0@^@@@@ DO 7502 I = 1,48 @A@@@@ HIST2(I) = HIST2(IMY )@@G@@)*0.0002 @#@@@@ LAST = '*' @B@@@@7502 IF (HIST2(I) .GT. SJ) SJMZ )@@G@@ = HIST2(I) @^@@@@ SJ = SJ/110.0 @ @@@@ DO 7055 I = 48,1,-NA )@@G@@1 @ @@@@ N = ABS((I-1)*SCALE) @^@@@@ M = I*SCALE-1 NB )@@G@@@ @@@@ NO = HIST2(I)/SJ + 0.5 @D@@@@ PRINT 7053, N, M, HIST1(NC )@@G@@I), (LAST, KOVP = 1,NO) @B@@@@7053 FORMAT(1X,O3,'-',O3,I8,2X,114A1) ND )@@G@@@A@@@@7054 FORMAT(1H+,17X,1H^,11(9X,1H^))@#@@@@7055 PRINT 7054 @^@@@@NE )@@G@@ DO 7056 I = 1,11 @^@@@@7056 HIST2(I) = I*10*SJ@B@@@@ PRINT NF )@@G@@7057, (HIST2(I),I = 1,11) @#@@@@ PRINT 7102 @[@@@@C @[@@@@NG )@@G@@C @^@@@@C SPIFFY REPORT @[@@@@C @[@@@@C @B@@@@ NH )@@G@@CALL PRTCN @ SWITCH TO DOC PAPER @D@@@@7057 FORMAT(18X,1H^,11(9('+')NI )@@G@@,1H^),/,18X,11E10.2) @#@@@@ PRINT 7102 @E@@@@7102 FORMAT(1H1,5NJ )@@G@@4(/,1X,':',25X,'POS. 1 THRU 67',26X,':')) @G@@@@7002 FORMAT('11108 HARDNK )@@G@@WARE-SOFTWARE PERFORMANCE',5X,I2,'/',I2,'/',I2, @A@@@@ *' TO ',I2,'/NL )@@G@@',I2,'/',I2,/, @G@@@@ *1X,34('-'),///,3X,'RUNS: TOTAL AVG',/,3X,NM )@@G@@'---- ----- ---',/, @F@@@@ *'0 BATCH',I7,I5,/,'0DEMAND',I7,I5,/,NN )@@G@@'0 TOTAL',I7,I5,////, @C@@@@ *' HARDWARE ERROR ANALYSIS',/,1X,23('NO )@@G@@-'),/)@^@@@@ I = (V(1,1) + 5)/6@^@@@@ J = (V(1,2) + 5)/6@^@@@@NP )@@G@@ K = (V(1,3) + 5)/6@F@@@@ PRINT 7002,(DATE(1,J),J=1,3),(DATE(LNQ )@@G@@DTOP,J),J=1,3),V(1,2),J,@^@@@@ *V(1,3),K,V(1,1),I @^@@@@ DO 720NR )@@G@@2 I = 1,33 @^@@@@ STOPS(I) = ' ' @B@@@@ FLD(12,6,STOPS(I))NS )@@G@@ = IDEC1(I-1) @B@@@@7202 FLD(18,6,STOPS(I)) = IDEC2(I-1) @^@@@@NT )@@G@@ LAST = 'SERVOS' @ @@@@ CALL DYNFMT(NTAPES) @C@@@@ NU )@@G@@WRITE(6,FMT1)LAST,(STOPS(I),I = 1,NTAPES) @F@@@@ WRITE(6,FMT2)(KOERNV )@@G@@R(1,I),I = ITAPE,LTAPE),KOERR(1,NTAPET) @^@@@@ LAST = ' DISCS' NW )@@G@@@ @@@@ CALL DYNFMT(NDISCS) @C@@@@ WRITE(6,FMT1)LAST,(STOPSNX )@@G@@(I),I = 1,NDISCS) @F@@@@ WRITE(6,FMT2)(KOERR(1,I),I = IDISC,LDISC),NY )@@G@@KOERR(1,NDISCT) @^@@@@ LAST = ' DRUMS' @^@@@@ DELETE 7204,NZ )@@G@@NF2 @ @@@@ CALL DYNFMT(NDRUMS) @D@@@@ WRITE(6,FMT1) LASTOA )@@G@@, (STOPS(I),I = 1,NDRUMS) @C@@@@ WRITE(6,FMT2) (KOERR(1,I),I = OB )@@G@@IDRUM,LDRUM)@^@@@@7204 DELETE 300,NEGF2 @ @@@@ CALL DYNFMT(NDRUMSOC )@@G@@ + 1) @^@@@@ I = NDRUMS + 1 @^@@@@ STOPS(I) = ' F2' @^@@@@OD )@@G@@ J = NDRUMS + 1 @B@@@@ WRITE(6,FMT1)LAST,(STOPS(I),I = 1,J)OE )@@G@@@G@@@@ WRITE (6,FMT2) (KOERR(1,I), I=IDRUM,LDRUM), KOERR(1,LF2), KOOF )@@G@@ERR(1,@#@@@@ *NDRUMT) @#@@@@300 PRINT 301 @[@@@@C @[@@@@OG )@@G@@C @^@@@@C MAINTENANCE LOG @[@@@@C @[@@@@C @D@@@@301 OH )@@G@@FORMAT (/' MAINTENANCE LOG',/,1X,15('-'),///) @#@@@@ NPRINT = 37 OI )@@G@@@#@@@@ PRINT 302 @F@@@@302 FORMAT ('+ DATE TIME UNIT EXPLOJ )@@G@@ANATION',/,1X,67('-'),/)@^@@@@ MLKEYS = NMLS @A@@@@ IF (MLOK )@@G@@KEYS .GT. 0) GO TO 305 @#@@@@303 PRINT 304 @A@@@@304 FORMAT ('0**OL )@@G@@*NO ENTRIES***',/)@#@@@@ NPRINT = 42 @#@@@@ GO TO 7205 @^@@@@OM )@@G@@305 CALL RD11OP(BOOTS)@ @@@@ DO 306 I = 1,MLKEYS @D@@@@ ON )@@G@@CALL READ11 @ GET FIRST ML KEYIN FROM FILE @ @@@@ J = FLD(0,6,OO )@@G@@BOOTS(3)) @ @@@@306 IF (J .NE. 34) GO TO 307@#@@@@ GO TO 303 OP )@@G@@@A@@@@307 ML = FLD(6,6,BOOTS(1)) + 2 @A@@@@ CDATE = MLDATE(BOOOQ )@@G@@TS(26)) @^@@@@ BOOTS(1) = CDATE @A@@@@ BOOTS(2) = MLTIME(OR )@@G@@BOOTS(26)) @ @@@@ ASSIGN 308 TO JUSTD @#@@@@ GO TO 319 OS )@@G@@@#@@@@308 L = '0' @]@@@@ LJ = 2@B@@@@ PRINT 309, L, (BOOOT )@@G@@TS(J), J=1,ML) @ @@@@309 FORMAT (A1,2A6,2X,11A6) @#@@@@ NPRINTOU )@@G@@ = 42 @A@@@@ IF (I .GE. MLKEYS) GO TO 7205 @#@@@@ I = I + 1 OV )@@G@@@#@@@@310 I = I + 1 @#@@@@ L = '0' @]@@@@ LJ = 2@#@@@@OW )@@G@@ CALL READ11 @A@@@@ ML = FLD(6,6,BOOTS(1)) + 2 @ @@@@ OX )@@G@@J = FLD(0,6,BOOTS(3)) @ @@@@ IF (J .NE. 34) GO TO 312@#@@@@ OY )@@G@@L = ' ' @]@@@@ LJ = 1@ @@@@ BOOTS(1) = ' ' @ @@@@OZ )@@G@@ BOOTS(2) = BOOTS(1) @ @@@@ ASSIGN 311 TO JUSTD @#@@@@PA )@@G@@ GO TO 319 @ @@@@311 FLD(0,6,BOOTS(3)) = 5 @#@@@@ GO TO PB )@@G@@315 @A@@@@312 BOOTS(1) = MLDATE(BOOTS(26)) @B@@@@ IF (BOOTS(1)PC )@@G@@ .EQ. CDATE) GO TO 313 @^@@@@ CDATE = BOOTS(1) @#@@@@ GO TO PD )@@G@@314 @ @@@@313 BOOTS(1) = ' ' @A@@@@314 BOOTS(2) = MLTIME(PE )@@G@@BOOTS(26)) @ @@@@ ASSIGN 315 TO JUSTD @#@@@@ GO TO 319 PF )@@G@@@B@@@@315 PRINT 309, L, (BOOTS(J), J=1,ML) @ @@@@ NPRINT = NPRPG )@@G@@INT + LJ @A@@@@ IF (NPRINT .LT. 56) GO TO 316 @#@@@@ PRINT PH )@@G@@7007 @#@@@@ PRINT 302 @#@@@@ NPRINT = 3 @#@@@@ CDATE PI )@@G@@= 0 @A@@@@316 IF (I .LT. MLKEYS) GO TO 310 @#@@@@ GO TO 7205 PJ )@@G@@@[@@@@C @[@@@@C @E@@@@C RIGHT-JUSTIFICATION OF ML KEYIN PROPPK )@@G@@ER NO. OF CHARS @[@@@@C @[@@@@C @ @@@@319 BOOTS(ML) = ' PL )@@G@@ ' @^@@@@ DO 320 IQ = 0,4 @A@@@@ IT = FLD(IQ*6,6,BOOTS(3)PM )@@G@@) @ @@@@ IF (IT .EQ. 5) GO TO 321@#@@@@320 CONTINUE @#@@@@PN )@@G@@ GO TO JUSTD @#@@@@321 IQ = IQ + 1 @#@@@@ IT = 6 - IQ @ @@@@PO )@@G@@ DO 322 IR = ML,4,-1 @D@@@@ FLD(IT*6,IQ*6,BOOTS(IR)) = FLDPP )@@G@@(0,IQ*6,BOOTS(IR))@E@@@@322 FLD(0,IT*6,BOOTS(IR)) = FLD(IQ*6,IT*6,BOOTPQ )@@G@@S(IR-1)) @^@@@@ IR = ' ' @C@@@@ FLD(IQ*6,IT*6,BOOTPR )@@G@@S(3)) = FLD(0,IT*6,IR) @#@@@@ GO TO JUSTD @[@@@@C @[@@@@C PS )@@G@@@#@@@@C ZERO STOPS @[@@@@C @[@@@@C @A@@@@7205 IF (NPRINT .PT )@@G@@LE. 40) GO TO 7207@#@@@@ PRINT 7007 @#@@@@ NPRINT = 4 @#@@@@PU )@@G@@7207 PRINT 7206 @E@@@@7206 FORMAT(/'0SYSTEM STOP ANALYSIS',/,1X,20('-PV )@@G@@'),///) @#@@@@ PRINT 7003 @E@@@@7003 FORMAT('+ DATE TIME COPW )@@G@@DE ADDR DWNTM COMMENTS',/, @^@@@@ *1X,67('-'),/) @^@@@@ PX )@@G@@KBOOTS = NBOOTS @A@@@@ IF (KBOOTS .GT. 0) GO TO 7005 @#@@@@ PY )@@G@@PRINT 7004 @]@@@@ RETURN@A@@@@7004 FORMAT('0***NO STOPS***',/'1')PZ )@@G@@@^@@@@7005 CALL BT(STOPS) @]@@@@ N = 0 @#@@@@ IDOWN = 0 QA )@@G@@@^@@@@ CDATE = 'NODATE' @^@@@@ CALL RD10OP(BOOTS)@ @@@@ QB )@@G@@DO 7019 I = 1,KBOOTS @D@@@@ CALL READ10 @ GET TYPE1 LOGENTRY FROQC )@@G@@M RECOV @[@@@@C @[@@@@C @A@@@@C COMPUTE HOW MANY LINES WQD )@@G@@E NEED@[@@@@C @[@@@@C @]@@@@ J = 1 @#@@@@ DAYINC = 0 QE )@@G@@@^@@@@ DO 7006 K = 11,16 @B@@@@7006 IF (BOOTS(K) .NE. 1H ) DAYINC QF )@@G@@= 1 @#@@@@ LAST = 0 @A@@@@ IF (BOOTS(3) .NE. 9) J = J + 1QG )@@G@@@G@@@@ IF (FLD(0,18,BOOTS(4)).GT.3 .OR. (BOOTS(8).NE.'MAINT'.AND.BOQH )@@G@@OTS(8)@G@@@@ *.NE.'SYSTST' .AND. BOOTS(8) .NE. 'CHGSYS' .AND. FLD(0,QI )@@G@@18,BOOTS(4))@^@@@@ * .GT. 0))LAST = 1 @ @@@@ J = J + LAST + DAYQJ )@@G@@INC @ @@@@ IF (J .EQ. 1) J = 2 @B@@@@ IF (NPRINT + J .LTQK )@@G@@. 44) GO TO 7008 @#@@@@ PRINT 7007 @#@@@@7007 FORMAT(1H1) @#@@@@QL )@@G@@ PRINT 7003 @#@@@@ NPRINT = 3 @#@@@@ CDATE = 0 @ @@@@QM )@@G@@7008 NPRINT = NPRINT + J @[@@@@C @[@@@@C @^@@@@C COMPUTQN )@@G@@E DOWNTIME @[@@@@C @[@@@@C @]@@@@ J = ( @F@@@@ *(FLD( QO )@@G@@0,6,BOOTS(9))-48)*600 + (FLD( 6,6,BOOTS(9))-48)*60 + @F@@@@ *(FLD(1QP )@@G@@2,6,BOOTS(9))-48)* 10 + (FLD(18,6,BOOTS(9))-48)* 1)-( @F@@@@ *(FLD( QQ )@@G@@0,6,BOOTS(5))-48)*600 + (FLD( 6,6,BOOTS(5))-48)*60 + @F@@@@ *(FLD(1QR )@@G@@2,6,BOOTS(5))-48)* 10 + (FLD(18,6,BOOTS(5))-48)*1) @C@@@@ IF (J QS )@@G@@.LT. 0 .AND. J .GT. -25) J = ABS(J) @A@@@@7009 IF (J .LT. 24*60) GO TO QT )@@G@@7010 @#@@@@ J = J-24*60 @#@@@@ GO TO 7009 @ @@@@7010 IF (J QU )@@G@@.GE. 0) GO TO 7011@^@@@@ J = J + 24*60 @#@@@@ GO TO 7010 QV )@@G@@@C@@@@7011 IF (CDATE .EQ. BOOTS(6)) BOOTS(6) = ' ' @^@@@@ IDOWN QW )@@G@@= IDOWN + J @C@@@@ IF (BOOTS(6) .NE. ' ') CDATE = BOOTS(6) @#@@@@QX )@@G@@ KK = ' ' @E@@@@ IF (FLD(18,18,BOOTS(4)) .EQ. 30) KK = '*' QY )@@G@@@ RESP = 'Y'@F@@@@ PRINT 7100, BOOTS(6), BOOTS(5), BOOTS(8), KK, BOQZ )@@G@@OTS(7), J @B@@@@7100 FORMAT(1H0,A6,1X,A4,1X,A6,A1,A6,I3) @E@@@@ RA )@@G@@IF (DAYINC .NE. 0) PRINT 7012, (BOOTS(KK),KK = 11,16) @ @@@@7012 FORMATRB )@@G@@(1H+,31X,6A6,/) @A@@@@ IF (LAST .EQ. 0) GO TO 7014 @^@@@@ RC )@@G@@BOOTS(13) = 'BOOT'@ @@@@ BOOTS(12) = ' TAPE' @E@@@@ IF (MORD )@@G@@D(H1(BOOTS(4)),2) .EQ. 0) BOOTS(12) = ' DRUM' @ @@@@ JJJ = H1(BOORE )@@G@@TS(4))/2 + 1@ @@@@ BOOTS(11) = TYPEBO(JJJ) @D@@@@ PRINT 7012, RF )@@G@@BOOTS(11), BOOTS(12), BOOTS(13) @B@@@@7014 IF (BOOTS(3) .EQ. 9) GO RG )@@G@@TO 7018 @B@@@@ IF (BOOTS(3) .EQ. 29) GO TO 7016 @B@@@@ RH )@@G@@IF (BOOTS(3) .EQ. 26) GO TO 7030 @ @@@@ PRINT 7015, BOOTS(3) RI )@@G@@@C@@@@7015 FORMAT(1H+,31X,'RECOV RUN ERROR: ',O12,/) @#@@@@ GO TO RJ )@@G@@7018 @#@@@@7030 PRINT 7031 @D@@@@7031 FORMAT(1H+,31X,'SYS UNATTENDEDRK )@@G@@: STOP UNKNOWN',/)@#@@@@ GO TO 7018 @#@@@@7016 PRINT 7017 @C@@@@RL )@@G@@7017 FORMAT(1H+,31X,'OP. KILLED RECOV RUN',/) @#@@@@7018 CONTINUE RM )@@G@@@B@@@@ CALL SEARCH(N,STOPS,BOOTS(8),K) @B@@@@ STOPS(K + 80RN )@@G@@0) = STOPS(K + 800) + 1 @C@@@@ STOPS(K + 1600) = STOPS(K + 1600) + RO )@@G@@J @#@@@@7019 CONTINUE @^@@@@ DO 7024 I = 1,N,8 @#@@@@ RP )@@G@@LAST = I + 7@A@@@@ IF (N .LT. LAST) LAST = N @ @@@@ NPRINTRQ )@@G@@ = NPRINT + 5 @A@@@@ IF (NPRINT .LT. 55) GO TO 7020@#@@@@ RR )@@G@@PRINT 7007 @#@@@@ NPRINT = 1 @B@@@@7020 PRINT 7021, (STOPS(K),K RS )@@G@@= I,LAST) @#@@@@ GO TO 7103 @^@@@@7021 FORMAT(//10X,8A7) @#@@@@RT )@@G@@7103 CONTINUE @#@@@@ M = I + 800 @^@@@@ LAST = LAST + 800 RU )@@G@@@B@@@@ PRINT 7022, (STOPS(K),K = M,LAST) @ @@@@7022 FORMAT(' RV )@@G@@STOPS:',8I7)@#@@@@ M = M + 800 @^@@@@ LAST = LAST + 800 @B@@@@RW )@@G@@ PRINT 7023, (STOPS(K),K = M,LAST) @ @@@@7023 FORMAT(' DOWNTIME:RX )@@G@@',8I7)@#@@@@7024 CONTINUE @A@@@@ IF (NPRINT .GT. 51) PRINT 7007RY )@@G@@@^@@@@ PRINT 7025, KBOOTS@E@@@@7025 FORMAT('0TOTAL STOPS INCLUDINGRZ )@@G@@ MAINT AND SYSTEST:',I4)@^@@@@ PRINT 7026, IDOWN @F@@@@7026 FORMATSA )@@G@@(' TOTAL DOWNTIME INCLUDING MAINT AND SYSTEST:',I7) @B@@@@ CALL SSB )@@G@@EARCH(N,STOPS,' MAINT',I) @D@@@@ IF (I .NE. 800) IDOWN = IDOWN-SC )@@G@@STOPS(I + 1600) @B@@@@ CALL SEARCH(N,STOPS,'SYSTST',I) @D@@@@SD )@@G@@ IF (I .NE. 800) IDOWN = IDOWN-STOPS(I + 1600) @^@@@@ PRINT SE )@@G@@7027, IDOWN @G@@@@7027 FORMAT(' TOTAL UNSCHEDULED DOWNTIME:',I7,//,'0STSF )@@G@@ISTX V2.3',/,1H1) @]@@@@ RETURN@[@@@@C @[@@@@C @ @@@@C SG )@@G@@DYNAMIC FORMAT ROUTINE @[@@@@C @[@@@@C @ @@@@ SUBROUTINE DSH )@@G@@YNFMT(LEN) @A@@@@ FLD(6,6,FMT1(4)) = IDEC1(LEN) @B@@@@ FLD(12SI )@@G@@,6,FMT2(3)) = FLD(6,6,FMT1(4))@A@@@@ FLD(12,6,FMT1(4)) = IDEC2(LEN)SJ )@@G@@@C@@@@ FLD(18,6,FMT2(3)) = FLD(12,6,FMT1(4)) @]@@@@ RETURNSK )@@G@@@[@@@@C @[@@@@C @^@@@@C DECIMAL INTEGERS @[@@@@C @[@@@@SL )@@G@@C @ @@@@ FUNCTION IDEC1(INPUT) @ @@@@ IDEC1 = INPUT/10 +SM )@@G@@ 48 @A@@@@ IF (INPUT .LT. 10) IDEC1 = 5 @]@@@@ RETURN@[@@@@SN )@@G@@C @[@@@@C @ @@@@C DATE FROM TDATE$ FORMAT @[@@@@C @[@@@@SO )@@G@@C @ @@@@ FUNCTION MLDATE(KP) @^@@@@ MLDATE = '000000' SP )@@G@@@ @@@@ DO 888 IQ = 0,12,6 @^@@@@ IS = FLD(IQ,6,KP) @A@@@@SQ )@@G@@ IF (IQ .EQ. 12) IS = IS + 64 @G@@@@888 FLD(IQ*2,12,MLDATE) = FLSR )@@G@@D(IQ*2,12,MLDATE) + IS/10*64 + MOD(IS,10) @]@@@@ RETURN@[@@@@C SS )@@G@@@[@@@@C @ @@@@C TIME, FROM TDATE$ FORMAT@[@@@@C @[@@@@C ST )@@G@@@ @@@@ FUNCTION MLTIME(KP) @^@@@@ MLTIME = ' 0000 ' @^@@@@SU )@@G@@ IS = FLD(18,18,KP)@G@@@@ FLD(6,12,MLTIME)=FLD(6,12,MLTIME)+(ISV )@@G@@S/3600)/10*64+MOD(IS/3600,10) @^@@@@ IS = MOD(IS,3600) @G@@@@ SW )@@G@@FLD(18,12,MLTIME) = FLD(18,12,MLTIME)+(IS/60)/10*64+MOD(IS/60,10) @]@@@@SX )@@G@@ RETURN@]@@@@ END ___ CALL SEARCH(N,STOPS,BOOTS(8),K) SY )@@G@@@B@@@@ STOPS(K + 800) = STOPS(K + 800) + 1 @C@@@@ STOPS(K + 16SZ )@@G@@*[@@@@*SDFF*@[@@@@. @A@@@@. CONFIGURATION PARAMETERS @[@@@@TA )@@G@@. @F@@@@. 'TYPE2' ASSUMES THAT U HAVE GOT TAPES ON ONLY 1 SUTB )@@G@@BSYS @F@@@@. IF THAT ISNT TRUE, YOU'LL HAVE TO CHANGE THE LOGICTC )@@G@@. @B@@@@. 'NDISCS' IS CURRENTLY UNUSED @[@@@@. @[@@@@TD )@@G@@. @C@@@@. NTAPES IS A MAX, NOT A REAL COUNT. @ @@@@. TE )@@G@@ IT MAY BE SET HIGH.@[@@@@. @[@@@@. @^@@@@NTAPES EQU TF )@@G@@ 6 @^@@@@NDISCS EQU 8 @[@@@@. @[@@@@. @[@@@@. TG )@@G@@@#@@@@ AXR$ @^@@@@X12 EQU A0 @^@@@@X13 EQTH )@@G@@U A1 @^@@@@X14 EQU A2 @^@@@@X15 EQU A3 TI )@@G@@@^@@@@T FORM 6,30@ @@@@P FORM 12,6,18 @[@@@@TJ )@@G@@$(1). @E@@@@INPUT RES 224 . SYSLOG BUFFER TK )@@G@@@E@@@@OUTPUT RES 224 . SYSSQU BUFFER @G@@@@TL )@@G@@SERVO RES NTAPES . BUFFER FOR SERVO ASSIGNMENTS TM )@@G@@@E@@@@ACNT EQU OUTPUT . ACCOUNT NUMBER @E@@@@TN )@@G@@PROJ EQU OUTPUT+2 . PROJECT NUMBER @C@@@@NAME TO )@@G@@ EQU OUTPUT+4 . NAME @D@@@@PRIOR EQU OUTPTP )@@G@@UT+7 . PRIORITY @D@@@@TYPE EQU OUTPUT+8 TQ )@@G@@ . PROGRAM TYPE@E@@@@U8C EQU OUTPUT+9 . 8C SERTR )@@G@@VO USAGE @E@@@@U6C EQU OUTPUT+10 . 6C SERVO USATS )@@G@@GE @D@@@@CORE EQU OUTPUT+11 . CORE USAGE @F@@@@TT )@@G@@TERMDT EQU OUTPUT+13 . TERMINATION DATE/TIME @D@@@@TU )@@G@@CARDS EQU OUTPUT+14 . CARD USAGE @E@@@@LINES EQTV )@@G@@U OUTPUT+15 . LINES GENERATED @E@@@@WTIME EQU TW )@@G@@ OUTPUT+16 . WALL CLOCK TIME @D@@@@CPU EQU OUTPTX )@@G@@UT+17 . CPU TIME @E@@@@D432 EQU OUTPUT+18 TY )@@G@@ . 432 DRUM USAGE @E@@@@D1782 EQU OUTPUT+19 . TZ )@@G@@1782 DRUM USAGE @E@@@@D880 EQU OUTPUT+20 . 880 DRUA )@@G@@UM USAGE @E@@@@FAST EQU OUTPUT+21 . FASTRAND USAUB )@@G@@GE @E@@@@BAND EQU OUTPUT+22 . FASTBAND USAGE UC )@@G@@@ @@@@DISC EQU OUTPUT+23 @ @@@@D8414 EQU OUTPUT+23 UD )@@G@@@ @@@@D8440 EQU OUTPUT+23 @E@@@@RUNID EQU OUTPUT+27 UE )@@G@@ . RUN IDENTIFICATION@^@@@@COND RES 1 @^@@@@CDATE UF )@@G@@ RES 2 @^@@@@RNACTV RES 1 @#@@@@PKT10 '10' UG )@@G@@@#@@@@ ' ' @^@@@@ + 0 @ @@@@ + UH )@@G@@ W$,0,0 @^@@@@ + 28,0@^@@@@ + UI )@@G@@ 0 @#@@@@PKT11 '11' @#@@@@ ' ' @^@@@@ + UJ )@@G@@ 0 @ @@@@ + W$,0,0 @^@@@@ + UK )@@G@@ 28,0@^@@@@ + 0 @^@@@@LAST 'LASTLASTLAST'@E@@@@UL )@@G@@SM(1) 'WAS A MONTHEND STISTX RUN EARLIER THIS WEEK? YN' @E@@@@SM(2) UM )@@G@@ 'HAVE I ALREADY READ ALL ITS INPUT TAPES? YN' @C@@@@SM(3) 'AUN )@@G@@RE THERE MORE TAPES TO READ? YN' @E@@@@SM(4) 'DID THE MONTHEND STUO )@@G@@ISTX READ ANY OF THEM? YN' @D@@@@SM(5) 'IS THE TAPE I''M ABOUT TOUP )@@G@@ READ THE ONE' @C@@@@SM(6) 'FOR THE FIRST OF THIS MONTH? YN' UQ )@@G@@@C@@@@SM(7) 'SO, YOU CAN''T ANSWER ''S'' NOW' @C@@@@SM(8) 'YUR )@@G@@OU ANSWERED ''S'' ONCE ALREADY.' @]@@@@SM(9) . @^@@@@PK* PRUS )@@G@@OC 1 @[@@@@ + 0 @C@@@@ + 6*(SM(PK(1,1)+1)-SM(PK(1,1))),SM(PK(1,1UT )@@G@@)) @A@@@@ + PK(1,2),RIN @#@@@@ END UU )@@G@@@^@@@@C* PROC 1 @ @@@@SUB EQU C(1,1) @A@@@@UV )@@G@@ L,U A0,SMP(SUB) @^@@@@ ER COM$@ @@@@UW )@@G@@ DO C(1)=1 , GO COUT @A@@@@ L,H2 A0,SMP(SUB) UX )@@G@@@ @@@@ JZ A0,$-3 @ @@@@ L,S1 A0,RIN UY )@@G@@@A@@@@ TNE,U A0,49-C(1,2) @^@@@@ J SBADUZ )@@G@@@ @@@@ TE,U A0,C(1,2) @^@@@@ J $-8 @#@@@@VA )@@G@@COUT* NAME @#@@@@ END @^@@@@SMP(1) PK 1,1 VB )@@G@@@^@@@@SMP(2) PK 2,1 @^@@@@SMP(3) PK 3,1 @^@@@@SMP(4)VC )@@G@@ PK 4,1 @^@@@@SMP(5) PK 5 @^@@@@SMP(6) PK VD )@@G@@ 6,1 @^@@@@SMP(7) PK 7 @^@@@@SMP(8) PK 8 @^@@@@VE )@@G@@DZRO '@@@@@0@@@@@0'@A@@@@SPFORM 'S,DOC PAPER PLEASE.' @ @@@@VF )@@G@@SPLEN EQU $-SPFORM @E@@@@RIOPKT 'SYSLOG' VG )@@G@@ . READ TAPE PACKET @ @@@@ + ' ' @^@@@@ VH )@@G@@ + 0 @ @@@@ + 020,0,0 @ @@@@ + VI )@@G@@ 224,INPUT @#@@@@WIOPKT 'SYSSQU'@ @@@@ + ' VJ )@@G@@ ' @^@@@@ + 0 @ @@@@ + 010,0,0 VK )@@G@@@ @@@@ + 224,OUTPUT@^@@@@DADDR + 0 @E@@@@VL )@@G@@WMSG + 0 . WRITE MESSAGE @ @@@@ VM )@@G@@ + 22,WPKT @^@@@@ + 0 @D@@@@WPKT 'BVN )@@G@@AD I/O ON OUTPUT@' . MESSAGE BUFFER @#@@@@WPCHG ' TAPE' @D@@@@VO )@@G@@RMSG + 0 . READ MESSAGE@ @@@@ + VP )@@G@@ 26,ROUT @ @@@@ + 6,RIN @F@@@@ROUT 'MVQ )@@G@@OUNT NEXT INPUT REEL? NYS' . MESSAGE BUFFER OUT @E@@@@RIN ' VR )@@G@@ ' . MESSAGE BUFFER IN @^@@@@SAVE RES VS )@@G@@ 4 @^@@@@OVHEAD 'ACT-OVERHEAD'@ @@@@IOMSG 'I/O STATUS @XX ASE'VT )@@G@@@^@@@@IOMPAK + 0 @ @@@@ + 18,IOMSG @ @@@@VU )@@G@@ + 1,RIN @^@@@@KMSG 'GARBAGE SE' @^@@@@KMPAK VV )@@G@@ + 0 @ @@@@ + 12,KMSG @ @@@@ + VW )@@G@@ 1,RIN @^@@@@CDMSG + 0 @^@@@@ ' OK? YNVX )@@G@@' @^@@@@CDPAK + 0 @ @@@@ + 13,CDMSG VY )@@G@@@ @@@@ + 1,RIN @ @@@@RNL1 'ACCOUNTING FOR @@@'VZ )@@G@@@#@@@@RNLOST ' ' @ @@@@ ' RUNS LOST THRU' @#@@@@RNL2 WA )@@G@@ 'BAD IO'@ @@@@RNLEN EQU $-RNL1 @^@@@@ ': RUN LWB )@@G@@OST' @ @@@@RNL2L EQU $-RNL2 @^@@@@RNL2P + 0 WC )@@G@@@A@@@@ + RNL2L*6,RNL2 @^@@@@ + 0 WD )@@G@@@^@@@@RNLPKT + 0 @A@@@@ + RNLEN*6,RNL1 WE )@@G@@@^@@@@ + 0 @[@@@@$(0). @#@@@@BEGIN ER COND$@ @@@@WF )@@G@@ SA A0,COND @ @@@@ LA,U A0,COND @ @@@@WG )@@G@@ SA A0,$+2 @ @@@@ LMJ X11,INIT @^@@@@WH )@@G@@ + 0 @^@@@@ + 0 @G@@@@START LXWI )@@G@@ X2,(28,0) . X2 = OUTPUT BUFFER POINTER @G@@@@NEWBLKWJ )@@G@@ LX X1,(0) . X1 = INPUT BUFFER POINTER @E@@@@WK )@@G@@BREAD LA A0,(RIOPKT) . READ TAPE BLOCK @^@@@@ WL )@@G@@ ER IOW$@F@@@@ LA,015 A0,RIOPKT+3 . TEST SWM )@@G@@UCCESSFUL I/O @ @@@@ JNZ A0,BADIOR @G@@@@BR2 L,WN )@@G@@S6 A11,INPUT . NUMBER OF ENTRIES IN BLOCK @ @@@@ WO )@@G@@ TG,U A11,1 @ @@@@ TG,U A11,9 @D@@@@ WP )@@G@@ J GARBG . NOT 1-8 @ @@@@ JGD WQ )@@G@@ A11,TEST @E@@@@TEST LA,S1 A6,INPUT,X1 . TYPE OF LOG WR )@@G@@ENTRY @^@@@@ TG,U A6,1@ @@@@ TG,U A6,13 WS )@@G@@@D@@@@ J $+3 . NOT 1-12 @ @@@@ WT )@@G@@ S A6,X11 @F@@@@ LMJ X4,*KIND-1,X11 . WU )@@G@@X11 POINTS TO ENTRY TYPE@F@@@@ JGD A11,INC . WV )@@G@@GET NEXT ENTRY IN BLOCK @E@@@@ J NEWBLK . WW )@@G@@GET NEXT BLOCK @ @@@@INC AX X1,(28) @^@@@@ J WX )@@G@@ TEST@ @@@@KIND + TYPE1 @ @@@@ + WY )@@G@@ TYPE2 @ @@@@ + TYPE3 @ @@@@ + WZ )@@G@@ TYPE4 @ @@@@ + TYPE5 @ @@@@ + XA )@@G@@ TYPE6 @ @@@@ + TYPE7 @ @@@@ + XB )@@G@@ TYPE8 @ @@@@ + TYPE9 @ @@@@ + XC )@@G@@ TYPE10 @ @@@@ + TYPE11 @ @@@@ + XD )@@G@@ TYPE12 @]@@@@TYPE1 . @[@@@@. @ @@@@. @LOG CONTROL CARD ENTRXE )@@G@@IES @[@@@@. @A@@@@ L A1,('RECOV ') @E@@@@ XF )@@G@@ TNE A1,RUNID,X2 . IS RUNID 'RECOV' ?@F@@@@ TZXG )@@G@@,S6 ACNT+1,X2 . DOES ACCT END IN @? @C@@@@ J XH )@@G@@ 0,X4 . NO @ @@@@ L,U A0,'"' XI )@@G@@@E@@@@ TE,S1 A0,INPUT+1,X1 . IS FIRST CHAR A "?@C@@@@XJ )@@G@@ J 0,X4 . NO @A@@@@TYPE1A L,U XK )@@G@@ A0,INPUT,X1 @G@@@@ S,H2 A0,PKT10+4 . SAVE BXL )@@G@@UFFER LOCATION FOR I/O @^@@@@ L,U A5,5@^@@@@ L,XM )@@G@@U A6,5@A@@@@ L A0,INPUT+7,X1 @A@@@@ TEXN )@@G@@,S6 A5,INPUT+7,X1 @^@@@@ J $+4 @F@@@@ SSXO )@@G@@C A0,6 . RIGHT-JUSTIFY STOP CODE @A@@@@ S XP )@@G@@ A0,INPUT+7,X1 @ @@@@ JGD A6,$-4 @ @@@@ XQ )@@G@@ L A0,PKT10+5@E@@@@ A,U A0,1 . XR )@@G@@BUMP DRUM ADDRESS @ @@@@ S A0,PKT10+5@ @@@@ L,XS )@@G@@U A0,PKT10 @E@@@@ ER IOW$ . WRITE XT )@@G@@TO FILE 10 @ @@@@ TNZ,S1 PKT10+3 @^@@@@ J XU )@@G@@ 0,X4@ @@@@BDIO10 L,U A0,056160 @^@@@@ J $+2 XV )@@G@@@ @@@@BDIO11 L,U A0,056161 @ @@@@ S A0,WPCHG XW )@@G@@@ @@@@ J BADIOW @^@@@@ J 0,X4@]@@@@XX )@@G@@TYPE2 . @[@@@@. @^@@@@. FACILITY USAGE ENTRIES@[@@@@. @F@@@@XY )@@G@@ LA,014 A8,INPUT,X1 . A8 = NUMBER OF WORDS/2 @^@@@@XZ )@@G@@ SSA A8,1@ @@@@ ANA A8,(1) @ @@@@ YA )@@G@@ LXI X7,(2) @D@@@@ LXM X7,X1 . YB )@@G@@X7 = (2,X1) @A@@@@ENTRY L,T3 A7,INPUT+1,X7 @ @@@@ TGYC )@@G@@,U A7,020 @ @@@@ J NENTR @A@@@@ LAYD )@@G@@,012 A5,INPUT+1,X7 @A@@@@ LA A6,INPUT+2,*X7 @D@@@@YE )@@G@@ SA A5,X8 . X8 = UNIT @A@@@@ LAYF )@@G@@ A7,SERVO,X8 @ @@@@ JNZ A7,RELS @E@@@@ASSG YG )@@G@@ SA A6,SERVO,X8 . TAPE ASSIGNMENT @F@@@@ J YH )@@G@@ NENTR . STORE ASSIGNMENT TIME @ @@@@RELS L,YI )@@G@@U X5,NENTR @A@@@@ L,H2 A6,INPUT,X7 @A@@@@ YJ )@@G@@ AN,H2 A6,SERVO,X8 @ @@@@ TLE A6,(86400)@^@@@@YK )@@G@@ J $+3 @ @@@@ AN A6,(86400)@^@@@@ YL )@@G@@ J $-3 @^@@@@ TNZ A6 @ @@@@ LMA YM )@@G@@ A6,A6 @^@@@@ TN A6 @^@@@@ J $+3 YN )@@G@@@ @@@@ A A6,(86400)@^@@@@ J $-3 @F@@@@YO )@@G@@ AA A6,(T 1,0) . ADD 1 TO MOUNT COUNT @G@@@@YP )@@G@@ AA A6,U6C,X2 . ADD ASSIGNMENT TIME TO TOTAL YQ )@@G@@@ @@@@ SA A6,U6C,X2 @E@@@@ SZ SERVO,X8 YR )@@G@@ . CLEAR ASSIGNMENT @^@@@@ J 0,X5@ @@@@NENTR YS )@@G@@ JGD A8,ENTRY @^@@@@ J 0,X4@]@@@@TYPE3 . YT )@@G@@@[@@@@. @C@@@@. CATALOGUED MASS STORAGE FILE USAGE ENTRIES @[@@@@YU )@@G@@. @^@@@@ J 0,X4@]@@@@TYPE4 . @[@@@@. @ @@@@YV )@@G@@. PROGRAM TERMINATION ENTRIES @[@@@@. @D@@@@ LA A5,IYW )@@G@@NPUT+8,X1 . CORE USAGE @ @@@@ DSL A5,18 @ @@@@YX )@@G@@ SSL A6,18 @ @@@@ DA A5,CORE,X2@ @@@@YY )@@G@@ DS A5,CORE,X2@A@@@@ L A5,INPUT+8,X1 YZ )@@G@@@F@@@@ SSL A5,9 . CONVERT TO COREBLOCKS ZA )@@G@@@A@@@@ S A5,INPUT+8,X1 @D@@@@ LA,02 A5,IZB )@@G@@NPUT+9,X1 . PROGRAM TYPE@ @@@@ SA A5,TYPE,X2@A@@@@ZC )@@G@@ L,U A5,INPUT,X1 @ @@@@ S A5,CALLR+1ZD )@@G@@@ @@@@CALLR LMJ X11,LOG @^@@@@ + 0 @^@@@@ZE )@@G@@ + 0 @^@@@@ J 0,X4@]@@@@TYPE5 . ZF )@@G@@@[@@@@. @ @@@@. RUN TERMINATION ENTRIES @[@@@@. @ @@@@ ZG )@@G@@ TZ,H1 RNACTV @^@@@@ J $+3 @ @@@@ LMZH )@@G@@J A0,CLOSE+2@^@@@@ J 0,X4@ @@@@ SZ,H1 ZI )@@G@@ RNACTV @ @@@@ TZ,S6 ACNT+1,X2 @^@@@@ J ZJ )@@G@@ $+7 @ @@@@ DL A0,PROJ,X2@B@@@@ DL A5,(ZK )@@G@@'0-0040S ') @B@@@@ DTE A0,('SUNSHINE ') @A@@@@ZL )@@G@@ TNE A0,('SYS$ ') @B@@@@ DL A5,('0-004ZM )@@G@@0-OPN ') @ @@@@ DS A5,ACNT,X2@C@@@@ LA ZN )@@G@@ A5,INPUT+8,X1 . TYPE 5@^@@@@ LSSC A5,6@D@@@@ ZO )@@G@@ SA,010 A5,PRIOR,X2 . PRIORITY @^@@@@ SSL ZP )@@G@@ A5,6@C@@@@ SA A5,LINES,X2 . LINES @A@@@@ ZQ )@@G@@ DL A5,INPUT+6,X1 @A@@@@ DS A5,TERMDT,X2 ZR )@@G@@@ @@@@ LA A6,(0) @A@@@@ LA,H1 A5,INPUT+6ZS )@@G@@,X1 @A@@@@ TE,H1 A5,INPUT+5,X1 @ @@@@ AA ZT )@@G@@ A6,(86400)@A@@@@ LA A5,INPUT+5,X1 @A@@@@ TGZU )@@G@@ A5,INPUT+6,X1 @ @@@@ AA A6,(86400)@A@@@@ ZV )@@G@@ AA,H2 A6,INPUT+6,X1 @A@@@@ ANA,H2 A6,INPUT+5,X1 ZW )@@G@@@A@@@@ SA A6,WTIME,X2 @C@@@@ DL A5,IZX )@@G@@NPUT+10,X1 . CPU @ @@@@ DS A5,CPU,X2 @E@@@@ ZY )@@G@@ DL A5,INPUT+14,X1 . FAST,BAND(MEMTIME @ @@@@ DSZZ )@@G@@ A5,FAST,X2@B@@@@. DL A5,INPUT+16,X1 . @ @@@@AA )@@G@@. DS A5,DISC,X2@C@@@@ DL A5,INPUT+12,X1 AB )@@G@@ . 1782 @A@@@@ S A5,D1782,X2 @A@@@@ L,AC )@@G@@U X8,NTAPES-1 @A@@@@CSASG L,H2 A6,INPUT+6,X1 @ @@@@AD )@@G@@ TZ SERVO,X8 @ @@@@ LMJ X5,RELS+2 @ @@@@AE )@@G@@NASG JGD X8,CSASG @ @@@@ DL A0,PROJ,X2@ @@@@AF )@@G@@ TE A0,OVHEAD @ @@@@ J STATUS @A@@@@AG )@@G@@ TE A1,OVHEAD+1 @ @@@@ J STATUS AH )@@G@@@ @@@@ J OUTBUF @A@@@@STATUS LA,U A5,OUTPUT,AI )@@G@@X2 @ @@@@ SA A5,CALLH+1@ @@@@ SX X1,SAJ )@@G@@AVE @ @@@@ SX X2,SAVE+1 @ @@@@ SX X4,SAK )@@G@@AVE+2 @ @@@@ SA A11,SAVE+3@A@@@@ L,U A5,IAL )@@G@@NPUT,X1 @ @@@@ S A5,CALLD+1@ @@@@CALLD LMJ AM )@@G@@ X11,DIST @^@@@@ + 0 @^@@@@ + 0 AN )@@G@@@ @@@@CALLH LMJ X11,HOUR @^@@@@ + 0 @^@@@@AO )@@G@@ + 0 @ @@@@ LX X1,SAVE @ @@@@ AP )@@G@@ LX X2,SAVE+1 @ @@@@ LX X4,SAVE+2 @ @@@@ AQ )@@G@@ LA A11,SAVE+3@ @@@@OUTBUF TLEM X2,(196) @^@@@@ AR )@@G@@ J 0,X4@D@@@@BWRITE LA A0,(WIOPKT) . BLOCK AS )@@G@@WRITE @^@@@@ ER IOW$@A@@@@ LA,015 A0,WIOPKT+AT )@@G@@3 @ @@@@ JNZ A0,BADIOW @ @@@@ LA A0,DAU )@@G@@ADDR @ @@@@ AA A0,(8) @ @@@@ SA A0,DAV )@@G@@ADDR @ @@@@ LX X2,(28,0) @^@@@@ J 0,X4AW )@@G@@@]@@@@TYPE6 . @[@@@@. @^@@@@. I/O ERROR ENTRIES @[@@@@. AX )@@G@@@A@@@@ LA,U A5,INPUT+1,X1 @A@@@@ SA A5,CAY )@@G@@ALLIO+1 @ @@@@ SX X1,SAVE @ @@@@ SX AZ )@@G@@ X2,SAVE+1 @ @@@@ SX X4,SAVE+2 @ @@@@ SA BA )@@G@@ A11,SAVE+3@ @@@@CALLIO LMJ X11,IOERR @^@@@@ + BB )@@G@@ 0 @^@@@@ + 0 @ @@@@ LX X1,SAVE BC )@@G@@@ @@@@ LX X2,SAVE+1 @ @@@@ LX X4,SAVE+2 BD )@@G@@@ @@@@ LA A11,SAVE+3@]@@@@TYPE7 . @[@@@@. @ @@@@BE )@@G@@. CONSOLE MESSAGE ENTRIES @[@@@@. @]@@@@TYPE8 . @[@@@@. BF )@@G@@@^@@@@. CHECKPOINT ENTRIES @[@@@@. @^@@@@ J 0,X4BG )@@G@@@]@@@@TYPE9 . @[@@@@. @^@@@@. RUN INITIATION ENTIRES@[@@@@. BH )@@G@@@A@@@@ L,H1 A6,INPUT+25,X1 @ @@@@ TE A6,CBI )@@G@@DATE+1@ @@@@ TNE A6,CDATE @^@@@@ J T9A BJ )@@G@@@ @@@@ L A5,CDATE+1@ @@@@ DS A5,CDATE BK )@@G@@@ @@@@ S A6,CDMSG @ @@@@ L,S4 A6,CDMSG BL )@@G@@@^@@@@ SZ A5 @ @@@@ DI,U A5,10 @ @@@@BM )@@G@@ DA A5,DZRO @ @@@@ S,S1 A5,CDMSG @ @@@@BN )@@G@@ S,S2 A6,CDMSG @^@@@@ SZ A5 @ @@@@ BO )@@G@@ L,S5 A6,CDMSG @ @@@@ DI,U A5,10 @ @@@@ BP )@@G@@ DA A5,DZRO @ @@@@ S,S3 A5,CDMSG @ @@@@ BQ )@@G@@ S,S4 A6,CDMSG @^@@@@ SZ A5 @ @@@@ L,BR )@@G@@S6 A6,CDMSG @ @@@@ A,U A6,64 @ @@@@ DIBS )@@G@@,U A5,10 @ @@@@ DA A5,DZRO @ @@@@ S,BT )@@G@@S5 A5,CDMSG @ @@@@ S,S6 A6,CDMSG @ @@@@ L,BU )@@G@@U A0,CDPAK @^@@@@ ER COM$@ @@@@ L,S1 BV )@@G@@ A0,RIN @ @@@@ TNE,U A0,'N' @ @@@@ J BW )@@G@@ DATBAD @ @@@@T9A TNZ,H1 RNACTV @^@@@@ J BX )@@G@@ T9B @ @@@@ L,H2 A0,RNACTV @^@@@@ A,U A0,1BY )@@G@@@ @@@@ S,H2 A0,RNACTV @ @@@@ LMJ A0,CLOSE2 BZ )@@G@@@^@@@@T9B L,U X5,1@ @@@@ S,H1 X5,RNACTV @ @@@@CA )@@G@@ L,U R1,28 @ @@@@ SX X5,('BX5')@ @@@@CB )@@G@@ L,U X5,(0) @A@@@@ L,U X6,OUTPUT,X2 CC )@@G@@@^@@@@ LXI,U X6,1@ @@@@ BT X6,0,*X5 @C@@@@CD )@@G@@ DL A5,INPUT+7,X1 . TYPE 9@E@@@@ DS CE )@@G@@ A5,ACNT,X2 . ACCOUNT NUMBER @E@@@@ DL A5,ICF )@@G@@NPUT+5,X1 . PROJECT NUMBER @ @@@@ DS A5,PROJ,X2CG )@@G@@@E@@@@ LA A5,INPUT+4,X1 . RUN IDENTIFICATION @A@@@@CH )@@G@@ SA A5,RUNID,X2 @ @@@@ LX X12,(5) CI )@@G@@@ @@@@ SZ SERVO,X12 @ @@@@ JGD A0,$-1 CJ )@@G@@@ @@@@ SZ U6C,X2 @ @@@@ LX X5,('BX5')CK )@@G@@@^@@@@ J 0,X4@]@@@@TYPE10 . @[@@@@. @^@@@@. CONSCL )@@G@@OLE REPLY ENTRIES @[@@@@. @]@@@@TYPE11 . @[@@@@. @#@@@@. LG-KCM )@@G@@EYIN ENTRIES@[@@@@. @^@@@@ J 0,X4@]@@@@TYPE12 . CN )@@G@@@[@@@@. @A@@@@. UNSOLICITED CONSOLE KEYIN ENTRIES @[@@@@. @B@@@@CO )@@G@@ L,U A5,0222105 . @F@@@@ TE,H2 A5,ICP )@@G@@NPUT+1,X1 . IS THIS AN 'ML' KEYIN? @C@@@@ J 0,X4CQ )@@G@@ . NOPE @F@@@@ L,S2 A5,INPUT,X1 . CR )@@G@@NO. OF WDS IN ENTRY @G@@@@ TLE,U A5,2 . CS )@@G@@ENOUGH INPUT TO MAKE SENSE? @C@@@@ J 0,X4 CT )@@G@@ . NOPE @D@@@@ L,S1 A5,INPUT+2,X1 . GET 1ST CHARCU )@@G@@@E@@@@ TLE,U A5,061 . IS IT A NUMBER? @C@@@@CV )@@G@@ J $+4 . NOPE @F@@@@ TLE,U CW )@@G@@ A5,072 . IS IT REALLY A NUMBER? @C@@@@ J CX )@@G@@ MLSSNO . YUP @E@@@@ J 0,X4 CY )@@G@@ . NO, OUT OF RANGE @ @@@@ TE,U A5,022 @E@@@@ CZ )@@G@@ TNE,U A5,6 . IS IT M OR A? @C@@@@ J DA )@@G@@ MLSLASH2 . YES @C@@@@ TNE,U A5,025 DB )@@G@@ . P? @C@@@@ J MLPCHECK . YES DC )@@G@@@E@@@@ TNE,U A5,024 . O (FOR OTHER)? @C@@@@DD )@@G@@ J $+3 . YES @C@@@@ TE,U DE )@@G@@ A5,042 . +? @E@@@@ J 0,X4 DF )@@G@@ . NONE OF THE ABOVE @D@@@@ L,S2 A5,INPUT+2,X1 . DG )@@G@@GET 2ND CHAR@E@@@@ J MLSPACE . CHECK FOR SPDH )@@G@@ACE @D@@@@MLSSNO L,S2 A5,INPUT+2,X1 . GET 2ND CHAR@E@@@@DI )@@G@@ TLE,U A5,060 . IS IT A NUMBER? @F@@@@ DJ )@@G@@ J MLSPACE . NO, CHECK FOR SPACE @F@@@@ DK )@@G@@ TG,U A5,072 . IS IT REALLY A NUMBER? @G@@@@ DL )@@G@@ J MLSLASH2 . NO, GO CHECK FOR SLASH, ETC @E@@@@DM )@@G@@ L,S3 A5,INPUT+2,X1 . YES, GET 3RD CHAR @C@@@@ DN )@@G@@ TE,U A5,074 . SLASH?@F@@@@ J MLSPDO )@@G@@ACE . NO, CHECK FOR SPACE @D@@@@ L,S4 A5,IDP )@@G@@NPUT+2,X1 . GET 4TH CHAR@E@@@@ TG,U A5,060 DQ )@@G@@ . IS IT A NUMBER? @B@@@@ TG,U A5,072 . DR )@@G@@@C@@@@ J 0,X4 . NO @D@@@@ L,DS )@@G@@S5 A5,INPUT+2,X1 . GET 5TH CHAR@C@@@@ TNE,U A5,5DT )@@G@@ . SPACE?@D@@@@ J MLOKAY . DU )@@G@@YES, OKAY @D@@@@ TG,U A5,060 . NO, NUMBER? DV )@@G@@@B@@@@ TG,U A5,072 . @C@@@@ J DW )@@G@@ 0,X4 . NO @D@@@@ L,S6 A5,INPUT+2,X1 DX )@@G@@ . GET 6TH CHAR@C@@@@MLSPACE TE,U A5,5 . SPACE?DY )@@G@@@C@@@@ J 0,X4 . NO @E@@@@ J DZ )@@G@@ MLOKAY . YES, CHECKS OKAY @D@@@@MLSLASH2 L,S2 EA )@@G@@ A5,INPUT+2,X1 . GET 2ND CHAR@C@@@@ TE,U A5,074 EB )@@G@@ . SLASH?@C@@@@ J 0,X4 . NOPE EC )@@G@@@D@@@@MLUNITNO L,S3 A5,INPUT+2,X1 . GET 3RD CHAR@D@@@@ ED )@@G@@ TG,U A5,060 . NUMBER? @B@@@@ TG,U EE )@@G@@ A5,072 . @C@@@@ J 0,X4 . EF )@@G@@NOPE @D@@@@ L,S4 A5,INPUT+2,X1 . GET 4TH CHAR@C@@@@EG )@@G@@ TNE,U A5,5 . SPACE?@D@@@@ J EH )@@G@@ MLOKAY . YES, OKAY @D@@@@ TG,U A5,061 EI )@@G@@ . NUMBER? @B@@@@ TG,U A5,072 . EJ )@@G@@@C@@@@ J 0,X4 . NO @D@@@@ L,EK )@@G@@S5 A5,INPUT+2,X1 . GET 5TH CHAR@E@@@@ J MLSPEL )@@G@@ACE . CHECK FOR SPACE @D@@@@MLPCHECK L,S2 A5,INPUT+2EM )@@G@@,X1 . GET 2ND CHAR@C@@@@ TE,U A5,034 . EN )@@G@@PW? @C@@@@ J $+3 . NO @D@@@@ EO )@@G@@ L,S3 A5,INPUT+2,X1 . GET 3RD CHAR@E@@@@ J EP )@@G@@ MLSPACE . CHECK FOR SPACE @C@@@@ TNE,U A5,0EQ )@@G@@74 . SLASH?@D@@@@ J MLUNITNO . ER )@@G@@CPU NO. @C@@@@ TE,U A5,011 . PDP? @C@@@@ES )@@G@@ J 0,X4 . NO @E@@@@ L,T2 ET )@@G@@ A5,INPUT+2,X1 . GET NEXT TWO CHAR @D@@@@ TE,U A5,0EU )@@G@@2505 . P (SPACE)? @C@@@@ J 0,X4 EV )@@G@@ . NO @D@@@@ . REALLY PDP. EW )@@G@@@]@@@@MLOKAY . @A@@@@ LA,U A0,INPUT,X1 @G@@@@ EX )@@G@@ SA,H2 A0,PKT11+4 . SAVE BUFFER LOCATION FOR I/O @ @@@@EY )@@G@@ LA A0,PKT11+5@E@@@@ AA,U A0,1 EZ )@@G@@ . BUMP DRUM ADDRESS @ @@@@ SA A0,PKT11+5@ @@@@ FA )@@G@@ LA,U A0,PKT11 @E@@@@ ER IOW$ . FB )@@G@@WRITE TO FILE 11 @ @@@@ TNZ,S1 PKT11+3 @^@@@@ J FC )@@G@@ 0,X4@D@@@@ J BDIO11 . BAD I/O FD )@@G@@@ @@@@CLOSE TNZ,H1 RNACTV @C@@@@. BE CAREFUL OF INSERTING STUFFE )@@G@@F ABOVE HERE... @A@@@@. TYPE5 ROUTINE LMJ'S TO CLOSE+2 @^@@@@ FF )@@G@@ J 0,A0@ @@@@ L,H2 A5,RNACTV @^@@@@ A,FG )@@G@@U A5,1@ @@@@ S A5,RNACTV @I@@@@. SZ,H1 FH )@@G@@ RNACTV . PREVIOUS COMMAND MAKES THIS REDUNDANT @ @@@@FI )@@G@@CLOSE2 S A0,R1 @ @@@@ L,U A0,RNL2P @^@@@@FJ )@@G@@ ER COM$@ @@@@ L A0,R1 @^@@@@ FK )@@G@@ J 0,A0@ @@@@BADIOR LMJ A0,CLOSE @A@@@@ L,FL )@@G@@S1 A5,RIOPKT+3 @^@@@@ TNE,U A5,1@ @@@@ J FM )@@G@@ ETAPE @^@@@@ DSL A5,3@^@@@@ LSSL FN )@@G@@ A5,3@ @@@@ A,U A5,0606 @^@@@@ LDSL A5,3FO )@@G@@@ @@@@ S,T1 A5,IOMSG+2@ @@@@BIRDOG L,U A0,IOMPAK FP )@@G@@@^@@@@ ER COM$@ @@@@ L,S1 A0,RIN @ @@@@FQ )@@G@@ TNE,U A0,'S' @ @@@@ J BREAD @ @@@@FR )@@G@@ TNE,U A0,'A' @^@@@@ J BR2 @ @@@@ FS )@@G@@ TE,U A0,'E' @ @@@@ J BIRDOG @ @@@@ FT )@@G@@ J ETAPE @ @@@@DATBAD SZ CDATE+1 @ @@@@ FU )@@G@@ J ETAPE @ @@@@GARBG LMJ A0,CLOSE @ @@@@ FV )@@G@@ L,U A0,KMPAK @^@@@@ ER COM$@ @@@@ L,FW )@@G@@S1 A0,RIN @ @@@@ TNE,U A0,'S' @ @@@@ J FX )@@G@@ BREAD @ @@@@ TE,U A0,'E' @ @@@@ J FY )@@G@@ GARBG @E@@@@ETAPE LA A0,(041,0,0) . BAD I/FZ )@@G@@O ON READ @A@@@@ SA A0,RIOPKT+3 @G@@@@ LAGA )@@G@@ A0,(RIOPKT) . REWIND INPUT TAPE W INTERLOCK @^@@@@ GB )@@G@@ ER IOW$@F@@@@ LA A0,(020,0,0) . RESTORGC )@@G@@E READ FUNCTION @A@@@@ SA A0,RIOPKT+3 @D@@@@NTAPE GD )@@G@@ LA A0,(RMSG) . NEXT TAPE? @G@@@@ ER GE )@@G@@ COM$ . MESSAGE TO CONSOL W RESPONSE @ @@@@ LAGF )@@G@@,015 A0,RMSG @ @@@@ JNZ A0,NTAPE @E@@@@ LAGG )@@G@@,015 A0,RIN . TEST FOR RESPONSE @ @@@@ TNE,U GH )@@G@@ A0,'N' @ @@@@ J NORESP @ @@@@ TNE,U GI )@@G@@ A0,'Y' @ @@@@ J NEWBLK @ @@@@ TE,U GJ )@@G@@ A0,'S' @ @@@@ J NTAPE @ @@@@ TNZ,S2 GK )@@G@@ ROUT+4 @ @@@@ J SALRED @ @@@@ C GL )@@G@@ 1,'Y' @ @@@@ C 2,'Y' @ @@@@ C GM )@@G@@ 3,'Y' @ @@@@ C 4,'N' @^@@@@ C GN )@@G@@ 5 @ @@@@ C 6,'Y' @ @@@@ SZ,S2 ROUTGO )@@G@@+4 @ @@@@ L,U A0,REW$ @A@@@@ S,T1 A0,WGP )@@G@@IOPKT+3 @ @@@@ L,U A0,WIOPKT @^@@@@ ER GQ )@@G@@ IOW$@ @@@@ L,U A0,W$ @A@@@@ S,T1 A0,WGR )@@G@@IOPKT+3 @ @@@@ J NEWBLK @ @@@@NORESP DL GS )@@G@@ A0,LAST @A@@@@ DS A0,OUTPUT,X2 @ @@@@ TLGT )@@G@@EM,U X2,196 @ @@@@ J NORESP @C@@@@ LAGU )@@G@@ A0,(WIOPKT) . END @^@@@@ ER IOW$@A@@@@GV )@@G@@ LA,015 A0,WIOPKT+3 @ @@@@ JZ A0,WEOF GW )@@G@@@E@@@@BADIOW LA A0,(WMSG) . BAD I/O ON WRITE @E@@@@GX )@@G@@ ER COM$ . MESSAGE TO CONSOL @^@@@@ GY )@@G@@ J CLWK@^@@@@SALRED C 8 @^@@@@SBAD C GZ )@@G@@ 7 @ @@@@ J NTAPE @ @@@@WEOF L,U A0,1HA )@@G@@1 @A@@@@ TNE,S2 A0,WIOPKT+3 @ @@@@ J HB )@@G@@ CLWK1 @A@@@@ S,T1 A0,WIOPKT+3 @ @@@@ L,HC )@@G@@U A0,WIOPKT @^@@@@ ER IOW$@ @@@@ TZ,S1 HD )@@G@@ WIOPKT+3 @ @@@@ J BADIOW @^@@@@ ER HE )@@G@@ IOW$@ @@@@ TZ,S1 WIOPKT+3 @ @@@@ J BADIHF )@@G@@OW @A@@@@CLWK . ANOTHER ENTRY POINT HERE @]@@@@CLWK1 . @ @@@@HG )@@G@@ LMJ X11,WEEK @C@@@@ + PKT10+5 HH )@@G@@ . NBOOTS@C@@@@ + PKT11+5 . NMLS @^@@@@HI )@@G@@ + 0 @^@@@@EOP SZ A2 @ @@@@ L,HJ )@@G@@H2 A0,RNACTV @^@@@@ TNZ A0 @ @@@@ ER HK )@@G@@ EXIT$ @ @@@@ DSL A0,36 @ @@@@ DI,U HL )@@G@@ A0,10 @ @@@@ A,U A1,060 @^@@@@ DSL HM )@@G@@ A1,6@ @@@@ JNZ A0,$-4 @ @@@@ S A2,RHN )@@G@@NLOST @ @@@@ L,U A0,RNLPKT @^@@@@ ER COM$HO )@@G@@@ @@@@ ER EXIT$ @G@@@@/ . ****************THIS BEGINHP )@@G@@S THE SUBROUTINES CALLED FROM FORTRAN*** @B@@@@PRTCN* L A0,(HQ )@@G@@SPLEN,SPFORM) @ @@@@ ER PRTCN$ @^@@@@ J HR )@@G@@ 1,11@ @@@@RD10OP* L,U A0,R$ @F@@@@ S,T1 HS )@@G@@ A0,PKT10+3 . SET FOR READ OPERATION @ @@@@ L HT )@@G@@ A0,0,11 @G@@@@ S,H2 A0,PKT10+4 . ARRAY 'BOOTSHU )@@G@@' IS INPUT BUFFER @^@@@@ L,U A0,1@ @@@@ S HV )@@G@@ A0,PKT10+5@C@@@@ J 2,X11 . RETURN@ @@@@HW )@@G@@READ10* L,U A0,PKT10 @E@@@@ ER IOW$ HX )@@G@@ . READ FROM FILE 10 @ @@@@ TZ,S1 PKT10+3 @D@@@@ HY )@@G@@ J BDIO10 . BAD I/O @ @@@@ L HZ )@@G@@ A0,PKT10+5@E@@@@ A,U A0,1 . BUMP DRUM ADIA )@@G@@DRESS @ @@@@ S A0,PKT10+5@C@@@@ J 1,X1IB )@@G@@1 . RETURN@ @@@@RD11OP* L,U A0,R$ @F@@@@ IC )@@G@@ S,T1 A0,PKT11+3 . SET FOR READ OPERATION @ @@@@ ID )@@G@@ L A0,0,X11 @G@@@@ S,H2 A0,PKT11+4 . IE )@@G@@ARRAY 'BOOTS' IS INPUT BUFFER @^@@@@ L,U A0,1@ @@@@ IF )@@G@@ S A0,PKT11+5@C@@@@ J 2,X11 . IG )@@G@@RETURN@ @@@@READ11* L,U A0,PKT11 @E@@@@ ER IOW$IH )@@G@@ . READ FROM FILE 11 @ @@@@ TZ,S1 PKT11+3 II )@@G@@@D@@@@ J BDIO11 . BAD I/O @ @@@@ IJ )@@G@@ L A0,PKT11+5@E@@@@ A,U A0,1 . IK )@@G@@BUMP DRUM ADDRESS @ @@@@ S A0,PKT11+5@C@@@@ J IL )@@G@@ 1,X11 . RETURN@ @@@@BT* L,U A0,(0) IM )@@G@@@ @@@@ L,U R1,2400 @ @@@@ L A1,0,11 IN )@@G@@@^@@@@ LXI,U A1,1@ @@@@ BT A1,0,*A0 @^@@@@IO )@@G@@ J 2,11@^@@@@SEARCH* TNZ *0,11@ @@@@ J IP )@@G@@ INSRT @ @@@@ L R1,*0,11 @ @@@@ L IQ )@@G@@ A0,*2,11 @ @@@@ L A1,1,11 @^@@@@ LXIR )@@G@@I,U A1,1@ @@@@ SE A0,0,*A1 @ @@@@ J IS )@@G@@ INSRT @ @@@@ AN A1,1,11 @ @@@@ S,H2 IT )@@G@@ A1,*3,11 @^@@@@ J 5,11@ @@@@INSRT L A0,*IU )@@G@@0,11 @ @@@@ TG,U A0,800 @ @@@@ J OVFSIV )@@G@@TP @^@@@@ A,U A0,1@ @@@@ S A0,*0,11 IW )@@G@@@ @@@@ S A0,*3,11 @ @@@@ L A1,*2,11 IX )@@G@@@^@@@@ AN,U A0,1@ @@@@ A A0,1,11 @ @@@@IY )@@G@@ S A1,0,A0 @^@@@@ J 5,11@A@@@@OVFSTPIZ )@@G@@ L A0,('OVFLOW') @ @@@@ L A1,1,11 @ @@@@JA )@@G@@ S A0,799,A1 @ @@@@ L,U A0,800 @ @@@@JB )@@G@@ S A0,*3,11 @^@@@@ J 5,11@ @@@@ JC )@@G@@ END BEGIN ___5,3@ @@@@ A,U A5,0606 @^@@@@JD )@@G@@*[@@@@*SDFF*@F@@@@@RUN,D/R STISTX,0-0040-167OV,SUNSHINE,99,500 . STISJE )@@G@@TX - NO DECK@^@@@@@ASG,T SYSLOG,U,LOG @A@@@@@MSG NO RING IN LOG, JF )@@G@@PLEASE. @^@@@@@ASG,T 10,F///2000 @^@@@@@ASG,T 11,F///2000 JG )@@G@@@#@@@@@ASG,T SYSSQU,U @A@@@@@HDG,N .S,STISTIKAL PAPER PLEASE @^@@@@JH )@@G@@@XQT SYS$*RUN$.STISTX@]@@@@@PMD,ABLE @]@@@@@WIPE,ZJ @C@@@@@HDG,NJI )@@G@@ .S,RUN DONE, REAL PAPER AGAIN PLEASE. @[@@@@@FIN ___E[ EK)E[GC([ET JJ )@@G@@@A@@@@C[SEDO^@)^@)ETTES= LME(I^),ETODDNE-S@#@@@@C[KD(^ -[CLGC*)^@)@]@@@@JK )@@G@@@@@["8[)N@C@ 3[^@@[)N 3[@@@^XJ@@@@@[@@@@@@@@@@^U@#)@@W@@@@@@@@@@@@@@@@@@JL )@@G@@@@@@@@@@@@@@68-2 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@DL@C@@&G@L<@-V@"9@[]^@@@@E^N^@#F^N=@#P^Q"@[0^UXJN )@@G@@@D'^W;@@E^\V@@T^1@@@W^11@@E^6-@BZ^7J@G) =I@[[ 1Z@@@___@@@___@@@___@@@___JO )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___/K@@@@C^W@@CC0?@@CC9K@@#JP )@@G@@%8)@@[C9K@@^[1W@@CC[I^P![1G@@#%9K@@#/K@KC@H8K@@[?8K@@[/K@KC@C^?@@C[C?@@DJQ )@@G@@'^@@I!/K@KC@/K@@@@C@0^WF0@G@@#'=@@@A*4G@@#'^@@Y5C8)@@K[0?@@#'^@@JYC8)@#)JR )@@G@@C0W@@C:8K@@]/K@@C+C8)@#/?9@@@KC8)@^@[C?@@^'=@@@[/K@KCMC8F@@][@@^Q"/\)@5QJS )@@G@@[@K@@JC9@@@AC@_@@@[[@^WG/\@@Q2/K@@DMC^J^T!0@G@@#'=@@@A*4G@@#'^@@Y5(@G@@DJT )@@G@@/K@@D#(^G@@C/K@@D[C1G@@C?9@@@#/K@@D[C1G@@#%9@@@('^@@H30@G@@#'=@@@A*4G@@#JU )@@G@@'^@@Y5 CG@@^/\)@YXC1J^T!!9@@@K/K@@DKC8K@@)[0W@@# 4G@@#'=@@@[ @G@@E @G@@CJV )@@G@@ @G@@^ 4G@@A @G@@B/KF@@] @G@@ /K@@DE'^@@2*C@@^@@'=@@@I'^@@2[/KF@@]C8F@@]JW )@@G@@[@@^Q"/\)@5Q[@K@@JC9@@@ C@_@@@[[@^WG/\@@Q2/K@@E9C^J^T!(?G@@C/K@@D('^@@U3JX )@@G@@C@@^V/^^W@@^^^W@@D'^@@CM ?G@@CC1J^T!?9@@@K/K@@FH*^G@@D/K@@D3'^@@U3C@0^WFJY )@@G@@C^J^T!^^W@@D^^W@@^'^@@JYC1G@@C*4G@@C/K@@D;0@G@@#'=@@@A*4G@@#/K@@FEC9K@@_JZ )@@G@@=9@@@[[1W@@E%9@@@]/K@@E#'^@@I.*4G@@C'^@@I.RBW@@CR3?@@C:8)@@^%CW@@D/K@@ETKA )@@G@@'^@@H3C8K@#)AFW@@D*4G@@C/K@@ES'^@@U0*@@@[[/K@@EP0@G@@#'=@@@A*4G@@#'^@@Y5KB )@@G@@/K@@ESR;K@@[A7W@@C^^W@@D ^G@@CC G@@^*4G@@C'^@@YP 4G@@CC^W@@CC1G@@E[!@^@EKC )@@G@@K^W@@DG8K@@[[^W@@C ^G@@GC[@^@E[[I@@@[[G@@EC1G@@C:9@@@#/K@@E0:9@@@^/K@@E2KD )@@G@@'^@@C@C1G@@C%9@@@#/K@@E2C9@@@^[1G@@C'^@@H30@G@@#'=@@@A*4G@@#'^@@Y5/\)@Y-KE )@@G@@/KF@@]C1J^T!R#@^V/%9@@@-/K@@F /G@@F[C@@^@F'=@@[S/KF@@]C[@^@F[[G@@@'=@@[>KF )@@G@@/KF@@]'^@@2*C@@^@H'=@@@I'^@@2[/KF@@]*^@@HP/KF@@]'^@@Y5(@G@@D/K@@FNC1G@@CKG )@@G@@:9@@@^'^@@H3/\)@Y-0@G@@#'=@@@A*4G@@#'^@@Y5C9@@@D[1G@@#'=@@@[/KF@@]@@@@@@KH )@@G@@@@@@@@A#@^@WR\@@FVP;@@@^%8@@@A/K@@F0C@@^@W'^@@2*R7@@FV'^@@2_AF@^@-R3@@FVKI )@@G@@'^@@2_AF@^@@@GRR;@^@4 @@@@JC8;K@[ 4G@@#*@J@@@'=@@@#(4G@@#/KF@@#/K@@G$C8K@@6KM )@@G@@%4Z^T!/KF@@# ^J^T![@)^@;C@@^[@'=@@@J/^@@G$;@)@@SC1@^@4:9@@@ ;@)@@A[^)^@.KN )@@G@@C@@^[['=@@@J/@F@@#/\0@HH/KF@@#*?G@@]/KF@@#9!G@@C99@@G"C0/@@#C1G@@C%80@@(KO )@@G@@?9@@@#/K@@G"A]0^@9/,0@DT@@@@@@@@@@@@R]0^@90@G@@#'=@@@A(4G@@#/K@@G"C4/@@#KP )@@G@@%80@@]/\0@HG @@@@JC8:K@[C@0^WFC^J^T! 4G@@#(@I@@@/K@@HEA]0^@9/,0@C$@@@@@@KQ )@@G@@@@@@@@R]0^@9/\)@YX/KF@@#RF?@@@[@)^@1'^@@2*C@@^@( ^@^Q_'=@@@I0@@^@8'^@@2[KR )@@G@@/KJ@@@/K@@@@C@0^@8/C0@HVC80@@Y*^J^T!/K@@HX8#0@HT/K@KHPC^J^T!C5J^T!%9@@@QKS )@@G@@/K@@H?(4G@@A/K@@HV 4G@@A0@G@@#'=@@@A*4G@@#'^@@Y5C9@@@C[1G@@#'=@@@[/K@@HVKT )@@G@@[@0^@8/,0@F/@@@^@8@@@^@/@@@@@@C@0^@8/K@@HV/K@@@@C@0^WFC1G@@C%9@@@#/K@@IPKU )@@G@@C^W@@DK^W@@CC[W@@F[[Y@@@C[W@@GG9K@@[[[W@@G[[Y@@[[[W@@E[[X@@@CDW@@G CG@@GKV )@@G@@ @G@@FG8)@@]G9K@@# @@@@KW9@@@W/[K@IKD[K@@LG9K@@W8^K@IH&;)@@[ @I)@@8^K@IIKW )@@G@@H^?@@D[C?@@D[^?@@C'^@@I!/K@KH3C^?@@CG^?@@DC W@@C @@@@KW9@@@W/[K@IKD[K@@LKX )@@G@@G9K@@WH9K@@[C1G@@E[!I@@@[1Y@@@C G@@G[ I@@@G9@@@[[ G@@GC9@@@)[5I@@@[(I@@@KY )@@G@@C[I@@@[[G@@EG8)@@[/[K@IK/K@@IG/K@@@@0@G@@#'=@@@A*4G@@#'^@@Y5C8K@@C[0W@@#KZ )@@G@@'^@@JYN^W@@^C@?@@D[@?@@^*4G@@C^^W@@D*CG@@^'=@@@[/K@KI!/K@@@@C8K@@([0W@@#LA )@@G@@ 4G@@#C1J^T!!9@@@K/K@@JM0@G@@#'=@@@A*4G@@#'^@@Y5N80@^@^C/@@^N^/@@#C1G@@CLB )@@G@@/-@@JI @@@[#'=@@@#^^/@@#*4G@@#/K@@JSN^/@@#^C/@@^(@G@@ /K@@JW'^@@JY/K@KI.LC )@@G@@C5G@@#!9@@@#'^@@Y5/K@KI. CG@@^/K@KI./K@@@@C1J^T!?9@@@K/K@KJYCCW@@^+8KB__LD )@@G@@/@)KJY0@G@@#'=@@@A?9@@@S/K@@J? @@@@HW8K@@W;GK@@=C0W@@#:8K@@(D@)@@IG@?@@ LE )@@G@@[@?@@ CG@@^/C)KJY @G@@ !9@@@ST8)@@WOB?@@#AB?@@#AB?@@C/K@KJYC@@^X ;GK@@=LF )@@G@@W8K@@E[@?=NH/^K@J;[@@^NEC @^NE/KJ@@@ ^@^N<>@0^N=")0^NB98;@@@"0@@@JH8@@K@LG )@@G@@/@F@@@S@@^NDAA0@K+/^@@KIE@@@@G/K@@KM[^@^NH8@@@[/K@@KM9?K^NA9=K@@J98K@KX/CK@K-G8@@@["?0^N>/K@@KMLI )@@G@@G9@@@[[^@^N/K@KM(980@N<"0)@@J9)0^N?0@@@@J9=0^N,"4)@@J"/0@@J'^@@N>/K@KM?/K@@@@LX )@@G@@C[K^@U^@K^@U/[K@N>'^@@2*C@@^W#&;@B@@A#@^W]D@@^N$/\K@Z'"*"^N0"?"^N0"*"^O]LY )@@G@@"?"^O]"*"^OO"?"^OO/K@@@@C[@^O>[ @^RC[[@^W=[[@^W#C@@^V/C1J^T!:9@@@)/K@@ZRLZ )@@G@@0@J^T!/K@@O :9@@@=/K@@ON:9@@@-/K@@OK/K@@OU%9@@@=:9@@@>/K@@OH%9@@@-/K@@OUMA )@@G@@C9K@PYN8K@[L/K@@OPC9K@P>N8K@] /K@@OPC9K@*,N8K@[L/K@@OPC9K@*YN8K@] [ K@3.MB )@@G@@[ K@4[^^K^T%^^K^WC/K@KN5C[@^O&[[@@,%(@G@@D/K@@O>C0W@@C/@K@O?:8K@@^/K@@O5MC )@@G@@%8K@@#/K@@PK/K@@O;'^@@U3C@@^V/^^W@@D^^W@@^N8K@#)^CW@@D/K@@OYRBW@@DC[@^O=MD )@@G@@C[K^X @H@@[[[H@@@[[G@@E[[X@@]C9@@@][ G@@CC9K@P!N8K@@^^0W@@C ^G@@GN8K@] ME )@@G@@/K@@OPC9@@@_[1G@@E*4G@@C/K@@PF'^@@U0C@@^V/(@@@[[/K@@PFC8K@@[[4W@@C^^W@@DMF )@@G@@ ^G@@CN8K@#)^CW@@D'^@@YD/K@@O50@G@@#'=@@@A*4G@@#'^@@Y5/K@@PA'^@@JY(?G@@CMG )@@G@@'^@@I.*4G@@C'^@@I. ?G@@CC0?@@CC9K@@_:8)@@[[1W@@EC[I^P![1G@@#'^@@YD/K@@O5MH )@@G@@/K@@@@C[@^O$C@@^V/[[G@@@'=@@[>C^K@PY/K@@*(/K@@@@'^@@)!C@@^V/C[@^S([[G@@@MI )@@G@@'=@@[=C^K@P>/K@@*(/K@@@@C80@@PC@)^XD:@\^W>8#0@P0G80@@[A]@^W/C@@^V/ 4G@@EMJ )@@G@@[@0@[]C0?@@E[??@@E[0/@@ER]@^X C G@@G[ G@@EG9@@@[[ G@@GC8)@@C[*?@@EN@/@@EMK )@@G@@/K@@Q^N@8=W>C^W@@C?CW@@D/K@@QO'^@@H3C8K@#)[CW@@D*4G@@C/K@@QN'^@@U0*@@@[[ML )@@G@@/K@@QX0@G@@#'=@@@A*4G@@#'^@@Y5 ^G@@CC^W@@CK^W@@D^@"@@@G8K@@[[^W@@C8K)@Q#MM )@@G@@C^K@P!R]@^W//K@@*(C8K@@[[4W@@C^^W@@D/K@@QNC@0^WFC^J^T!(4G@@C/K@@Q,0@G@@#MN )@@G@@'=@@@A*4G@@#'^@@Y5C G@@^'^@@YP 4G@@CC G@@D[ G@@^C[@^XC[[@@,%/\)@UU/K@K4AMO )@@G@@[@@^O*/G0@ZR!80@@Z/K@@ZR[@0^WFC@Z^T!+@K^QJ/^)@T7R;!@@@/^)@T"'^@@3B[@0^P5MP )@@G@@C@@^QK'=@@@UR#0^WFR;@@@[A7J^T!R7@^P;*0J^T!/@@@T?*^@^QH/K@@RG/K@^QRR;K@@&MQ )@@G@@ @H^QR8#K@RER#0^WFR7@^P;R3Z^T!;C@@@#:8@@@]/^K@UKCD@^QOR;)@@H*@@@@HR;)@@#MR )@@G@@K[@@@IC8@^QOC^K^QOG8K@@[!@K@@L/K@@R5CD@^QPK[@@@IC8@^QPC^K^QPG8K@@[!@K@@LMS )@@G@@/K@@R5C8K@@*P;K@@[C8)@@ ?C!^QQ/K@@S48#K@R&'^@@U3^CX^QQC8)@^@G@)@[[H8)@@[MT )@@G@@[^!^QQ^@K@@KC8H^QQK9@@@H @I@@@%@)@[[8#)@R2C@0^WFAB@@SR[ J^T![DW@@@[[@^V/MU )@@G@@R#@@@KC5K^P;C[@^WG:9@@@Q/K@@S1G9K@[@C1J^T!/[@@SC:9@@@6/K@@S\;DK@@^H9K@@]MV )@@G@@;(K@@E)[@@@L;(K@@A[DZ^T!9?K^P5/[@@SJ9*W@@[O;@@@#/K@@SR9*W@@@;GK@[C9*W@@]MW )@@G@@9*W@@^9*W@@C9*W@@EA#W@@GO;@@@HAF@@@@C@K^WG:8K@@Q/K@@T>C@@^V/C5@^P;/ @@S-MX )@@G@@C8K@^7[^W@@A/K@@S'?9@@@K/K@@T>?9@@@S/K@@S?C^K^P.*?@^P;;)K@@A;)K@@AH8K@@DMY )@@G@@[^W@@A/K@@T>C@K^P"H8K@#//K@@S%C9K6=@/K@@SDG9K@Q@ @@@@K/K@@SCC8H^QQCDH^QQMZ )@@G@@K9@@@H? X^QQ/K@@R5/K@@R(C[@^WG?9@@@#/K@@UA?9@@@A/K@@TQ:9@@@A/K@@TG:9@@@CNA )@@G@@/K@@TQ'^@@2*CCK^P5[^K^PVC@K^WF&;KR@@[@K^W]C@@^O,'=@@@I'^@@2[C@0^WFC^J^T!NB )@@G@@K8@@@HC8)^QO%CY@@@C8)^QP[CI@@@ @J^T!RA0^Q"/KF@@@C@@^P5;@@@@SC0K^P5:8K@@ NC )@@G@@;@@@@A[^@^P(C@@^QL'=@@@J/^@@UPC@0^WFC9@@@T1@J^T![1J^T!C@K^V/ @H@@#R#Z^T!ND )@@G@@A#K^V/C0Z^T!C^@^O*?8K@@)/KG@@[/KG@@@C8K@@6%0Z^T!/K@@T>CCK^P5[^K^P?C@@^QMNE )@@G@@'=@@@J/^@@UPC8K@@T[4K^P;/K@@RAC8@@@Q%4J^T!/K@@T&:@@^WG/KF@@AC@@^O\/K@@UINF )@@G@@C@K^WG:8K@@C/K@@T>'^@@2*CC!@@@[^)^O_C@@^O:/K@@UI'^@@2*CCK^P5AFK^O2C@@^O(NG )@@G@@ ^J^T!/K@@UI'^@@2*C@@^O%'=@@@I/K@@2['^@@2*CCK^P5AFK^PGR#@^O?/K@@UI'^@@2*NH )@@G@@C@@^O!RFK^P5ABK^PM/K@@UIC1J^T!?9@@@K/KI@@@CDW@@^?9@@@S/K@@U< @@@@KW9@@@WNI )@@G@@;H@@@=G[W@@ C G@@B[ W@@BH[K@@K!DW@@B[DW@@BC G@@BGDG@@BH G@@A/HI@@@C9K@@[NJ )@@G@@[5W@@A/KI@@@/K@@@@ @@^QI/K@@U6/K@@@@C@K@U3[@K^QIC^K^QH @@@[[P;K@@[(CH^QQNK )@@G@@/K@@VJ8#K@U9C^)^QP/@)@V^P;)@^@CC0^QP?@)@@J/K@@V^[^)^QP/K@@VEC^)^QOP;)@^@NL )@@G@@CC0^QO?@)@@J/K@@VR[^)^QOC@K^QHG8)@@[[^!=QQ[@K^QHP;K@@[C[@^WG[DH^QQN^X^QQNM )@@G@@C@0^WFC^J^T!(@@^QI/K@KU0/K@KU3C@0^WF(@@^QI/K@KU0 @@^P_ @@^Q@ @@^Q[ @@^Q#NN )@@G@@ @@@@JC^J^T!/@@@W/(?G@@]0@J^T!/K@@W/(0G@@A/K@@V((^G@@^/K@@W//K@@V?*@G@@DNO )@@G@@*?G@@C/K@@W/N^W@@^'^@@X.CC!^QQ*0G@@A/K@@V;!8)@@ /K@@Y /KI@V4/K@@VJ/K@@WKNP )@@G@@/K@@W-/K@@W=[C0^P_[^K^P_/K@@W/%8)@@P/K@@W@[C0^Q#[^K^Q#/K@@W/0@G@@#'=@@@ANQ )@@G@@*4G@@#'^@@Y5*4G@@A/K@@WD ^G@@^ ^G@@D/K@@VJ 4G@@AC9@@@C[1G@@#'=@@@#*4G@@#NR )@@G@@'^@@Y5/K@@WA*4G@@C/K@@WP[C0^Q@[^K^Q@/K@@W/0@G@@#'=@@@A*4G@@#'^@@Y5'^@@JYNS )@@G@@'^@@I.N^W@@^C G@@D[ G@@^ 4G@@C'^@@X./K@@VJ[C0^Q[[^K^Q[/K@@W/C1G@@#:9@@@(NT )@@G@@/K@@W,0@G@@#'=@@@A*4G@@#'^@@Y5 @G@@D ^G@@C/K@@VJ[C0^Q][^K^Q]C G@@C/[@@W:NU )@@G@@C0Z^T!?8K@@K/K@@W/[DG@@^C9@@@C[1G@@#'^@@JYCC0^Q]C^K^Q]/K@@W:G80@@[?80@@ZNV )@@G@@/K@@VZC[@^P_/[@@XYCC0^P_C^J^T!0@G@@#'=@@@A*4G@@#'^@@Y5C[@^WF[[@^W/[@0^WFNW )@@G@@C1W@@#:9K@@(/K@@XS'^@@H30@G@@#'=@@@A*4G@@#'^@@Y5 ^G@@C @G@@DR#0^W/A#0^WFNX )@@G@@C^K^P_/K@@VJ'^@@I!'^@@JY'^@@I.C9@@@[[!G@@C/K@@XNC[@^Q@/ @@X&C[@^Q[/[@@X7NY )@@G@@CC0^Q[C^J^T!N^K^Q[/K@@X(CC0^Q@C^J^T!N^K^Q@0@G@@#'=@@@A*4G@@#'^@@Y5C1G@@#NZ )@@G@@:9@@@(/K@@X2'^@@JY'^@@I.C9@@@[[!G@@CR#K@[[ @G@@D/K@@VJC[@^Q#/[@@Y CC0^Q#OA )@@G@@C^J^T!C^K^Q#/K@@W@/K@@@@ @@@@HC H^QQ:[@@[[/K@KX.G8K@@[?8K@@*/K@@X_'^@@2*OB )@@G@@C@@^Q^'=@@@I/K@@2[/K@@@@N^W@@^'^@@X.C[K^WG[DX^QQ(0G@@A(4G@@C/K@KYDN^W@@DOC )@@G@@'^@@X.[DX^QQ/K@KYD/K@@@@N8K@@$C@K^X % H=QQ8KK@YSP#K^XA CH^QQ/K@KYP(4G@@COD )@@G@@/K@@Y-C G@@D'^@@YPC G@@^/[I@@@'^@@YP @G@@C @G@@D/KI@@@R#V@@@R;@^R]R#X@@@OE )@@G@@A#K^R[%@K^R '=@@@C/S@@@@*^@^Q_'=@@@D*@@^UM'^@@26'=@@@Q ^@^Q_/K@@Y!/K@@@@OF )@@G@@'^@@2*C4W@@#[CK^RA 4G@@#:8K@@ /K@@ZY:8K@@]/K@@Z&%8K@@[/K@@Z]C[K^RB[[W@@EOG )@@G@@!8K@@ @@@@HC@H^RDR#)^WF&;)#@@(@@^WA/K@@ZF&;,F@@Q#)^W A#)^W]*@@@@H!8K@@#OH )@@G@@/\K@Z;O;K@@OA7K^W]%8K@@Q/K@@ZPC[K^XC[[K@,%C9K@@]/K@@Z.'^@@2*C@@^RIRB)^Q"OI )@@G@@&;)O@@Q#,@@@A#)^W]/\K@Z; @@^UM*0G@@A/K@@Z=C^W@@#[CW@@^/@K@Z^C@K^UP/K@KY5OJ )@@G@@ @@^UM[4W@@AC@K^UP/K@KY5'^@@2*C@@^SD&;KN@@Q#K^WF[@K^W]/\K@Z''^@@2*C@@^SLOK )@@G@@&;KL@@/K@@Z!'^@@2*C@@^SU&;KM@@/K@@Z!R;K@@[/K@@Z^'^@@2*[^K^RAC9K@@#R]0^Q"OL )@@G@@CC)^Q"H8)@@[/G)@) :DV@@@/K@@)>O'0@@[8#)@)[:9K@@]/K@@)+/C)@)VC[K@@GE@@@@GOM )@@G@@'=@@@I/DK@)KR#@^S<'=@@@IR#@^RC'=@@@ICG@^V//@@@)S0@@^V/R;G@@[RFG@@@AB@^SAON )@@G@@R#@^S='=@@@I(^@^RA/G)@)Z/G)@2[ ^@^RA @@^WA @@^UM/KI@@@ @@^UM'^@@2[/KH@@@OO )@@G@@/C)@)W'=@@@I/K@@2[C@:@@@/K@@) 9!@^XDC@@^S7N8)@@E9(G)@@8K)@)%/KI@@@/K@@@@OP )@@G@@C4K^W> 4@^S(:8K@@ /K@@)8:8K@@0/K@@)':8K@@1/K@@)/:8K@@+/K@@)_C8)@@[/K@@-@OQ )@@G@@C8)@@]/K@@-@C8)@@_[4)^S(/K@@-@C8)@@@[0)^S(C8K@@ [4K^W>/K@K)!/K@@*/K@@K%8K@@^/K@@=%R3K^V.:8K@@#/K@@>KPK )@@G@@R3K^V.%8K@@#/K@@=794"@@@980@>+?@0^S8?@0^S9/K@@=3/K@@='R7K^T+%8K@@#/K@@=GPL )@@G@@/K@@$6E@"@@@/@0@>+"80@@J/,0@K]9*0^S5R7@^T+/KG@=//K@@>R/K@@>VDH@^N#PM )@@G@@/D@@>OGD@^TODH@^N%[ @@=)PN )@@G@@RJ0^NX94"@@@980@>+/,0@K]/K@@>SCDK^TR ^@^N+ @@^N< @@^NGR;K@@OPP )@@G@@ABK^NE/K@K=)'^@@,:'^@@=)CH@^N0DH@^N<] @^N-/K@@>8*C@^T6PQ )@@G@@D9@@@[[ @^NE] @^N-/K@@>8[ @^N-D9@@@@H9@@@[HD@^T*C[@^S,[[@^T2DH@^N7/K@@@@'^@@&=0G@^N-/K@@&ZR;)@@.'^@@-ICD@^T<'^@@$O/K@K&S/K@@@@PU )@@G@@ ^@@&=/K@@&>/K@@@@/[@@$[H9@@@]R;)@@ /H@@&:'^@@-I8^@@&(C^K^V.1@H@@@/K@@$@PV )@@G@@R#X@@@R70^T+:80@@ /K@@&'R30^V.:80@@[/K@@&':80@@#/K@@&.>@K^S'/K@@$@/K@@&_PW )@@G@@(@@@@H/K@@$@/K@@&_>@K^S;/K@@$@C8)@@-'^@@-ICH@^N-/H@@$Z(^@@&=/K@@$D'^@@$OPX )@@G@@/K@K&=/K@@@@ ^@@&-R#@@@K/K@@$KR#?^NH!@@^S/R;)@@@O;)@@0'^@@-I8#@@$F*^@@&-PY )@@G@@/K@K&-/K@K$B/K@@@@R#@^NE/K@@$WR#?=NH!@@^S.R;)@@@O;)@@0'^@@-I8^@@$RAB@^NEPZ )@@G@@/K@K$OD@@@@KGD@^T/K@K&=/K@@@@C^K^V.QA )@@G@@C@X@@@/CK@$0/@K@$0C8)@@-'^@@-IH9@@@[C8)@@08^@@$4 @@@@K/K@K$*'^@@-I/K@@$1QB )@@G@@'^@@$8/K@@&@/K@@@@C K^T/K@@*$[@@^S&C8@^S&'=@@[=QF )@@G@@/K@@**'=@@@IC^K@*Y/\)@)$C[K^S"[[K^W= @@^S1/KH@@@@@@@@@C@@^S_'=@@[SC^K@*,QG )@@G@@/K@@*( 4@^V. 0@^V. @@^S1 @@^V" @@^T+ @@^T:C9K@:)[ K@MJC[K^TY[DK^W[C9K@,)QH )@@G@@[ K@4 C9K@4F[ K@4EC9K@4X[ K@4SC[K^TZ[[K^T-/,0@,F%8)@@(/K@@( C[K^T-[[K^T=QI )@@G@@R;@@@@ @@^T< *@^T+/,0@L[ Y^T$O;)@@[A$)^T+!8)@@]/K@@(E 4@^T+A<)^T+A#0^T=[DK^T$/K@@(E/,0@,@RD )@@G@@C9K@@[/K@@?5'^@@,^/K@@!A/,0@,@R$)^T+/@)@!MC Y^T&P;)@@[8^K@!\A$)^T+/K@@(ERE )@@G@@C4)^T+/@)@LU'^@@49C@)^V.[@)^V"C[K^T=[[K^T-R<)^T+A$)^T+/@)@!YCDK^T$[ K^T$RF )@@G@@'^@@3/C @^T%%9@@][/K@@(EC9@@@@C[K^T-/,0@,F%8)@@//K@@!(G9@@@[/K@@!<[[K^T-RG )@@G@@/[@@(E[1@^T?C@@^T?'=@@@I/K@@(E[ Y^T$C[Y^T>[[K^T-/K@@(E'^@@,^/K@@!FR;)@@[RH )@@G@@A:)^T+/K@@(H/,0@,@/K@@!Y'^@@,^/K@@!Y'^@@L/[ K^T8K@@)/K@@5"^@)@@IN8:K@[ @@^W@C8K@] [^K@63[^)^XF/K@@6SN8:K@[^@)^W@C@X@@@SZ )@@G@@C8:K@][CK^XG[^)^XF ^@^XG!8K@] C8K@]^G8K@@[[^K@63%8@@@^/K@@6SC8VK@# @@^W_TA )@@G@@[^K^X@/K@@6SC9K@@F/\)@5QN@)@@H&'0@@][[K^WG/\)@5[ @@^V/C9K@,([ K@4B^^)^TZTB )@@G@@/\)@)$N8K@@EC@K^S?C@)^S!M#!)@@C[@^XH[ @^RC[[@^W=[[@^W#AA0@4#C[@^WG:9@@@FTC )@@G@@/K@@65:9@@@H/K@@62%9@@@G/K@@ZRC9K@*,N8K@[L/K@@67C9K@6'N8K@] /K@@67C9K@*YTD )@@G@@N8K@] [ K@3.^^K^T%/K@@*3/K@@@@C@@^W@(@@@@G/K@@7+ @@@@IC^0^XGW8)@@AG^)^XFTE )@@G@@C8@@@ H@@@@JC @@63H9@@@]C8K@@ C80^W>')H@7Q8#K@7GC8K@@ G80@@[')G@7W8#@@7KTF )@@G@@C8@@@ O;)@@[8^@@7CC^@^XGGC@^XG[^@^XGC^K@6'/K@@*(C-Z@@@C>Z@@@C(Z@@@C!Z@@@TG )@@G@@C1Z@@@C5Z@@@[-Y@@@[>Y@@@[(Y@@@[!Y@@@[1Y@@@[5Y@@@C^0^S1CCK^S1%8K@@ G80@@[TH )@@G@@P;0^W>N@K@@JC@K^XIC@)^XFM#!)@@G@0^XF[@0^XFC^K@6'/K@@*(10 @@@@@@TI )@@G@@@C@@@@@@W@@@@@@@@@11 @@@@@@@C@@@@@@W@@@@@@@@@LASTLASTLASTWAS A TJ )@@G@@MONTHEND STISTX RUN EARLIER THIS WEEK? YN HAVE I ALREADY READ ALL ITS INTK )@@G@@PUT TAPES? YN ARE THERE MORE TAPES TO READ? YN DID THE MONTHEND STL )@@G@@TISTX READ ANY OF THEM? YN IS THE TAPE I'M ABOUT TO READ THE ONE TM )@@G@@FOR THE FIRST OF THIS MONTH? YN SO, YOU CAN'T ANSWER 'S' NOW YOU ANTN )@@G@@SWERED 'S' ONCE ALREADY.@@@@@@@@0@_B@@[[@4@@@@@@@@0@_J@@[[@4@@@@@@@@=@_RTO )@@G@@@@[[@4@@@@@@@@0@_X@@[[@4@@@@@@@@%@_>@@@[@4@@@@@@@@=@_?@@[[@4@@@@@@@@Y@_2TP )@@G@@@@@[@4@@@@@@@@Y@_7@@@[@4@@@@@0@@@@@0S,DOC PAPER PLEASE. SYSLOG TQ )@@G@@@@@@@@@K@@@@@#)@7\SYSSQU @@@@@@@C@@@@@#)@;J@@@@@@@@@@@@@@Q[@*@@@@@@TR )@@G@@BAD I/O ON OUTPUT@ TAPE @@@@@@@@U[@\@@A[@4MOUNT NEXT INPUT REEL? NYS TS )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@ACT-OVERHEADI/O STATUS @XX ASE@@@@@@@@M[@;TT )@@G@@@@[[@4GARBAGE SE @@@@@@@@G[[[@@[[@4@@@@@@ OK? YN @@@@@@@@H[[A@@[[@4TU )@@G@@ACCOUNTING FOR @@@ RUNS LOST THRU BAD IO: RUN LOST @@@@@@@@M[[NTV )@@G@@@@@@@@@@@@@@@@0[[G@@@@@@/,0@6O@[@^7J@[3 2F'^@@4AN@0[[+/K@[W&@[6 2F*@@^6=TW )@@G@@/K@[[1R@K 2)C@@^6+T/@@@#C4-@@A[@?^3MC0-@@A[@?^3NC?-@@AG/)@[@[@?^3OC/@@@[TX )@@G@@[@@^6=C/@__"G@@^"!R@K 2)C/)@@[C[[@@[H[@ 1Z*@@@@K @@@@IC.@@@[*@[@@[ @@@@KTY )@@G@@)@)@@K/=0[]2C_)@@[[@@@[J[#)^6>C@@^6>[@@^6&R@)^6&C@-@@[H@+ =H(@@@@I/K@[])TZ )@@G@@G_)@@[8N0[]@C/)@AJH@)^"!/C)[]J*@@@@I/K@[]UR@)^"!C@-@@[[@+ =HR@)^"!C@[@@]UA )@@G@@[@] %XC/)@@[G@)^"![@)^"![@)^6&/K@[])C/@@@[G@@^6$[@@^6$N@0[]Z/K@[W&@]L 2FUB )@@G@@R@K^6&C@[^"!G/@@@[[@[^"!R@) 2)C@- ^.G@+@@B[@- ^.CC]@@C[@[ FHC^]@@C[@[ LXUC )@@G@@C@[ R!G@]@@F[@[ R!C@- X.G@+@@G[@- X.R@) 2)C^]@@CGC]@@C;O@@@=W@@^\)G/@@@[UD )@@G@@[@@^6*G/@__J/G@[].*@@@@G/K@[#GR@K^6*C@[^,IG/@@@[[@[^,IC^+@@CGC+@@CT@+@@BUE )@@G@@C.@@]V"P@@@I; @@@="[[ 0![[[ 0!N@0[#F/K@[W&@]X 2FR/)@@[N_0@@RA@)^6*C@@^6*UF )@@G@@;@@@@<[@@^6&R@K^6&C@-^,IG@-^,H[@+^,IC[[ 0?"[[ 0![[] 0!O/)@@[8N0[#IR@K 1)UG )@@G@@N_0@@T @[^,I @[>0!8N0[#XC@@^\);@@@@<[@@^\)/K@[]2R@) 2-C^]@@ [@]@@@C^]@@AUH )@@G@@;O@@@=W/@@8KT/@@[=[@@^6(C^+@@A[@)^6%C^+@@ [@)^6:C@)^6:H@)^6%]@)^6?A@) 2+UI )@@G@@D@@^6?/C@[#8*@@@@G/K@[#;C@@ 1-G@@^6?[@@^6?C/@@@SH@@^6-[@@ 2R@)^6\C@]^6C;O@@@=W@[^1S[@@^64UP )@@G@@C@)^60;O)@@=W@+^1S[@)^65C[@^6?[[@^60R@K 2-C.)@]V"P-@@E; )@@="D) 1+[[)^61UQ )@@G@@C"@@]V"Q@^6?;A@@@="E@ 1<[]@^62C@@^62"^@^61*@@@@G1@@@@G/K@[ *C@@ 1="@@^62UR )@@G@@[@@^62C/)@@/G@)^6?[@)^6?C.@@@/G[@^60[[@^60/K@[ TC@@^61"G@^62[@@^63(@@^6\US )@@G@@/K@[A^R@)^6\C/)@]V"O)^64;^)@@="C) 1+[@+^2=C.@@]V"P@^65; @@@="D@ 1<[[]^2/UT )@@G@@R@K^6>C[-^2="H-^2/[[+^2GC]@^60T"@@J*C]+^6C;Q)@@=W])@@OC"@@]V"Q@@@Q[]K^66UU )@@G@@C@@^6,[@@^6\N@0[AC/K@[W&@#> 2FR@K 2=CC[@@H[@@^67*@@^0"/K@[AKC@@^67[@@^0"UV )@@G@@C@@^67H@@^0"*@@@@G/K@[C]R@)^2FC@]^&4G/@@@[[@]^&4R@K 2=A@K 2G/)@@[[@?^!>C[G^!&G.@@@[[[G^!&R@) 2+C*]@@@G@@^6!G/@@@[[@@^6!VD )@@G@@R@K 2+C?[@@@G/@__$*@@@@G/K@[B7C/@@@F[@@^6!C@@^6!;@@@@G/)@@[[@?^!>VE )@@G@@C[G^!&G.@@@[[[G^!&N@0[C[/K@[W&@^B 2FR@)^2FC@@^!*[@]^:%A@) 2+C/@@@[/)@[CFVF )@@G@@C@@^!/R@K 2+[@[^?DR@) 2+ @]^?*R@K^6,C@@^6+T/@@@#G/@@@[R@0 1>N_0@@[[@@ 2/,0@6O@[@^7T@B> 2F@@L =H@@L %X@@L^"!@@)^6"R@) 12Q@) 2>N_)@@#WK )@@G@@C/]=8X'^K@4#8N)[H/'^@@4AC/@@@[G@@^6/[@@^6/ @[^"!8N0[G4/,0@6O@[@^;M@B3 2FWL )@@G@@'^@@4A @@ 1YR/0@@[N_0@@\C@# 0!"C@ 10[@# 0!C@) 13[@)^0_C@@ 1Y"^# 0!*@@@@GWM )@@G@@1@@@@G/K@[ISC@# 0![@@ 1YO/0@@[8N0[IGC@@ 1Y"C@ 14[@@ 1YR.@@@0N_0@@\A[@^6!WN )@@G@@C/@@@[H@@^6!T@@^\)E@@@@G[@@^6-C@)^\)T@)^6!G/)__"[@)^68C[^ 0!"H@ 1Y"[@ 15WO )@@G@@"[@ 16"L@@@KH.@@]<# @[I1;-K@@C;LK@@@[[K^6*G.K__"[[K 2 0!WR )@@G@@O.K@@[8N0[JC/,0@6O@[@^;5@CT 2FR@) 1*N_0@@EC/]>0!'^)@4#8N0[JR'^@@4A/,0@6OWS )@@G@@@[@^;/@CZ 2F'^@@4A/,0^>G@C- 2F/,0@6O@[@^;/@C< 2F'^@@4AC@@^&5G/@@@ ;O@@@=WT )@@G@@W/@@@A[@@^6!C@)^$OG/)@@ ;O)@@=W/)@@A[@)^6&C[@^$3G.@@@ ;P@@@=W.@@@A[[@^6,WU )@@G@@C.)@@ZG[)^69/,0@6O@[@^/ @C% 2FR@K 1:N_0@@][[) 2'^K@4#8N0[K7C/@^!$'^K@4#XA )@@G@@'^@@4AC@@ 19[@@^0_/,0[X?@@@ 1'@DM 2F/,0@3S@[@ 1%@@@^&:@DN 2F@@K^0_R@K 1*XB )@@G@@N_0@@BC/[="!'^K@4#8N0[LD'^@@4A/,0@3S@[@ 1%@@@^&1@DU 2FR@0 1;N_0@@BC/#=!>XC )@@G@@'^K@4#8N0[LNC/@^!.'^K@4#'^@@4AC@@ 1/[@@^0_/,0[X?@@@ 1.@D= 2FC/@@@#[@@^6!XD )@@G@@R[@^6!C@) 1"[@=^"!C/@@@#[@@^6&/,0@3S@[@ 1%@@@^&:@D* 2F@@K^0_C.)__"G[)^6&XE )@@G@@R[K 1*[[)@[JC/ ="!'^K@4#8N0[L,'^@@4A/,0@3S@[@ 1%@@@^&1@D\ 2FR@) 1>N_0@@[XF )@@G@@C/]=!>'^K@4#8N0[L8C/@^!;'^K@4#@@K^!5'^@@4A/,0@6O@[@^/3@D7 2F'^@@4AC/@@@>XG )@@G@@[@@^6//,0@6O@[@^/'@D; 2F'^@@4AC@@ 2&[@@^6_/G@[MI*@@@@G/K@[MP/,0@6O@[@^.^XH )@@G@@@E[ 2F'^@@4AC/@@@%[@@^6//K@[P!/,0^>Y@@@^,_@EA 2FC/@__"G@@^6_C_)@@[[@@@[JXI )@@G@@[#)^6!/,0^>>@EE 2FC4@^\[[@@^6&C/@@@+H@@^6&*@@@@G/K@[M*G_)@@[8N0[MW/K@[MIXJ )@@G@@C0@^,_G/@@@][@@^7@/,0[Y.@@@^\S@EL 2F[@@^0"[@@^,_/,0[Z.@@@^\S@EN 2F[@@^\@XK )@@G@@N8K[M7^@K^7[/K@[O&C@@ 1_[@@^7]C/)@@][@)^7#/,0@6O@[@^.D@ES 2F@@K^7]C.)__"XL )@@G@@G[)^7@R@K 1*[[)@[JC/[=,"'^K@4#8N0[N#'^@@4AC/@@@%[@@^6/C@)^6!H@)^6_*@@@@IXM )@@G@@1@@@@I/K@[P!C/)@@[G@)^6![@)^6!C/@@@[G@@^6![@@^6!C@) 1_[@)^7]C.@@@][[@^7#XN )@@G@@/,0^>>@E$ 2FC0@^,_G/@@@][@@^7@C4)^\[[@)^6&C/)@@+H@)^6&*@@@@I/K@[N\C@) 1ZXO )@@G@@[@)^7]C.@@@[[[@^7#[@)^,_[@)^\@N8K[N?^@K^7[/K@[O&C/@@@ [4@^\[/K@[O]/,0[Y.XP )@@G@@@@@^\S@E4 2F[@@^,_H@@^0"(@@@@G/K@[N9C@@^,_[@@^0"/K@[N;C@@ 1Z[@@^,_/,0[Z.XQ )@@G@@@@@^\S@E' 2F[@@^\@N8K[O]^@K^7[/K@[O&/,0@6O@[@^.D@E. 2F@@K^7]C.)__"G[)^7@XR )@@G@@R@0 1*[[)@[JC/#=,"'^K@4#8N0[OE'^@@4AC@@^7#G@@^6/[@@^6/G/@__B/C@[OP*@@@@GXS )@@G@@/K@[O)/,0@6O@[@^.=@FB 2F'^@@4A/,0@6O@[@^/'@FD 2F'^@@4AC/@@@#[@@^6/ @@^0"XT )@@G@@C@@^6!H@@^6_/C@[O>*@@@@G/K@[NL/K@[P!R[@^7@C@@ 1Z[@^^,"C_)@@@N_0@@^[#)^7^XU )@@G@@C@@^7^T/@@@AC@)^\[;)?@@@;C)@@Y[@)^7 G/)__'(@@@@I/K@[O8G_)@@[8N0[O:/K@O7[XV )@@G@@C/@@@[G@@^7^[@@^7^H/@@@A]@@^7 C/)@@^H@)^7@C[@^7^T.@@@A[[@ 2][@ 2$[[) 2*E@@ 2$C@>^,"XX )@@G@@;C?@@@E@@ 2*C@5^,";)/@@@;G)P2<;@0P2+[@5^,"E@@ 2>C@>^,.;))P2<;C?@@@E@@ 2+XY )@@G@@C@5^,";)/@@@;G)P2+[@5=,"8N0[PIC@@ 1Z[@@^7AE@) 2>C[@^7A;DI@@@E@) 2*C[K^\[XZ )@@G@@;-Y@@@;H@P2+;[KP2<[[K^\[/K@O7[C/@@@*H@@^6/*@@@@G1@@@@G/K@[P8/,0@6O@[@^.=YA )@@G@@@F$ 2F'^@@4AC/@@@^[@@^6//,0@6O@[@^.G@F% 2F'^@@4A/,0@6O@[@^.O@F! 2F'^@@4AYB )@@G@@C@@ 2([@@^7B/G@[Q *@@@@G/K@[QG/,0@6O@[@^.Z@F3 2F'^@@4AN@0[QF/K@[W&@F5 2FYC )@@G@@/,0^>!@@@^",@F7 2F @@^6- @@^7CC@@ 2[[@@^0"/,0^>J@@@^,_@F; 2FC/@__"G@@^7BYD )@@G@@[@@@[J/,0^>Q@F_ 2FC/@@@[[@@^6& @@^2FR/)@@FN_)@@ C@]^,"H@@ 1Z(@@@@G/K@[Q&YE )@@G@@C/@@@[[@@^2FO/)@@[8N)[Q) @@^0_C@@^\[G/@__6(@@@@G/K@[Q0C/@@@[G@@^6&[@@^6&YF )@@G@@C/@@@[C@)^\AH@) 2](@@@@I @@@@GC/)@@[C[@^\AH[@ 2#(@@@@K @@@@I+@@@@IC/)@@[YG )@@G@@C[@^\AH[@ 2^(@@@@K @@@@I+@)@@HC/@@@[DD@^\]*@@@@K1@@@@K @@@@G;^)@@=+@)@@GYH )@@G@@C/@@@[C.@@@#HD@^\]*@@@@K1@@@@K @@@@G;^)@@=)@)@@G/)0[RNC/@@@[[@@^0_C@@^6&YI )@@G@@G@@^0_G@@^2F[@@^6&C/@@@[H@@^6&*@@@@G/K@[RXC/@@@][@@^6&C@@^6/G@@^6&G/@__NYJ )@@G@@/C@[R<*@@@@G/K@[R,/,0@6O@[@^.=@GM 2F'^@@4A/,0@6O@[@^.O@GP 2F'^@@4AC/@@@#YK )@@G@@[@@^6/ @@^0"C@@^6/G@@^6&[@@^6/C4)^\BG/)__JC1@^\#G.@__JT.@@@/C5)^\#G.)__JYL )@@G@@T.)@DSG[@@@MC!)^\#G.)__JT.)@@EG[)@@KC(@^\#G.@__JG[@@@MC!)^\BG.)__JT.)@@EYM )@@G@@C2@^\BG"@__JT"@@@/T/)@DSG]@@@IG[)@@OC*)^\BG/)__JG@)@@MH[@@@I][@^6&C/@@@[YN )@@G@@C/)__&H@)^6&*@@@@I1@@@@I @@@@GC/)@@[D[@^6&*@@@@K0@@@@K @@@@I+@@@@I/)K[SYYO )@@G@@E@@^6&[@@^6&C@@^6&G/@_(Z/C@[S<*@@@@G/K@[S$C/@@Q)H@@^6&]@@^6&/K@[SYD@@^6&YP )@@G@@*@@@@G0@@@@G/K@[S\C/@@Q)G@@^6&[@@^6&/K@[S$C@@^\^H@@^0"*@@@@G/K@[S5C@@ 1ZYQ )@@G@@[@@^\^C@@^7CG@@^6&[@@^7CC@@^\^H@@ 1Z(@@@@G/K@[S"C@@^\^[@@^0"C@@ 1Z[@@^6>YR )@@G@@C^@^\]G/@__-*@@@@G/K@[TAC@@ 13[@@^6>/,0@6O@[@^.>@G! 2F@@K^\^@@K^\#@@K^\AYS )@@G@@@@K^6>@@K^\ @@K^6&'^@@4A(@@^2F/K@[TV/,0@6O@[@^.%@G7 2FR@K 2 N_)@@ C/[=,"YT )@@G@@'^K@4#8N)[TR'^@@4A(@@^0_/K@[T6C@@ 2A[@@^\FC@) 2B[@)^\ECC@^\];O@@@=W/@@@]YU )@@G@@*@@@@H/K@[T*C@@ 2C[@@^\ECC@^\];K@@@[G/@@@[[@@^7DR@0^7DC@<^\U[@)^\D/,0@6OYV )@@G@@@[@^.%@HA 2F@@K^\D@@K^\E@@K^\F'^@@4AC@@^\[G/@__6(@@@@G/K@[ULC@@^\[G/@__+YW )@@G@@(@@@@G/K@[UHC@@^\[G/@__>(@@@@G/K@[UC/,0@6O@[@^.!@HL 2F@@K^\['^@@4A/K@[ULYX )@@G@@/,0@6O@[@^.4@HQ 2F'^@@4A/K@[UL/,0@6O@[@^./@HU 2F'^@@4A/,0^>3@@@^6-@@@^",YY )@@G@@@@@^\A@@@^6,@HY 2FR[@^6,C@^ FHG/@@@[[@^ FHC@= R!G@)^6&[@= R!8N0[QTC/@__"YZ )@@G@@G@@^6-;K@@@#C_)@@[[@@@[J[#)^6!C/@@@BG@@^6![@@^0_C@@^6-H@@^0_*@@@@G1@@@@GZA )@@G@@/K@[U\C@@^6-[@@^0_C/@@@ G@@^6/[@@^6/G/@__C/C@[U6*@@@@G/K@[U//,0@6O@[@^.=ZB )@@G@@@H? 2F'^@@4AC/@@@[[@@^6//,0@6O@[@^"]@H\ 2FC[)^0_H[)^6!R[K 1$Q[K^6![[)@[IZC )@@G@@C/ ="!'^K@4#8N)[V^'^@@4A/K@[VDC/@@G)G@@^6![@@^68C/)@G)G@)^0_[@)^0_/,0@6OZD )@@G@@@[@^"^@H' 2FD[)^68G[)^0_R@) 1$Q@)^68[[)@[IC/]="!'^K@4#8N)[VR'^@@4AC/@@G)ZE )@@G@@G@@^68[@@^68C/)@G)G@)^0_[@)^0_/,0@6O@[@^"C@I# 2FD[)^68G[)^0_R@K 1$Q@K^68ZF )@@G@@[[)@[IC/[="!'^K@4#8N)[V('^@@4AG_)@@C8N0[U=C/@@@3H@@^6/*@@@@G1@@@@G/K@[V8ZG )@@G@@/,0@6O@[@^.=@IH 2F'^@@4A/,0@6O@[@^"G@IJ 2F@@K^7B'^@@4A/,0@6O@[@^"P@IN 2FZH )@@G@@@@K^7C'^@@4A/,0^>3@@@^6-@@@^",@@@^"Y@@@^6!@IR 2FC/@@G)H@@^6!(@@@@G/K@[WKZI )@@G@@R@0^6!C@# R!H@@^7C]@@^7C/,0^>3@@@^6-@@@^",@@@^")@@@^6!@IU 2FC/@@G)H@@^6!ZJ )@@G@@(@@@@G/K@[WYR[@^6!C@^ R!H@@^7C]@@^7C/,0@6O@[@^"+@IX 2F@@K^7C'^@@4AN@0[W>ZK )@@G@@/K@[W&@I- 2FR]0 2G9!) 2%9,@ 2?9,) 2,9\) 20R@K 22R@) 23R@0 24R[@ 25R[K 26ZL )@@G@@N#0 27N#) 28*4@P2D/K@P2D/K@@1VAA0 2G[^@ 2D9() 2%9%@ 2?9%) 2,9:) 20A@K 22ZM )@@G@@A@) 23A@0 24A[@ 25A[K 26^#0 27^#) 28/KH@@@C8@@@[/\K[W5/K@[)[C8@@@]/\K[W5ZN )@@G@@/K@[)]C8@@@]/\K[W5/K@[)#C8@@@]/\K[W5/K@[)AC8@@@]/\K[W5/K@[)DC8@@@]/\K[W5ZO )@@G@@/K@[)GC8@@@#/\K[W5/K@[)J/,0[Y @@@@@@@I> 2J[0@^&,C0@^&,[?@^&3C@@@@@;O@@@=ZP )@@G@@W/@@@EG/K@@0[?K^&,C?@^&,[*@^&3N@0[X$/K@[X*@I( 2JR]0 2K*4@P2H/K@P2H/K@@1VZQ )@@G@@AA0 2KC8FK@@[^@[XT[^@[XY/K@[XSC@@ 29;O@@@=W/@@@EG/@@@0[@@^7EC@@ 29G/@__5ZR )@@G@@*@@@@G1@@@@G/K@[X.C/@@@ [@@^7EN@0[X_/K@[Y@@I0 2NR]0 2OC@@^7E*4@P2L/K@P2LZS )@@G@@/K@@1VAA0 2OC@VK@@[@K 29/K@[X1C@@ 2P[@@^7FC_)@@@N_0@@][#)^7^C@@^7^;@@@@AE )@@G@@@]D^@[A REWIND WAS ATTEMPTED ON A SYMBIONT DEVICE - IGNORED _@@S@@@@[^@GAF )@@G@@@EOF @]G^@IAN ATTEMPT TO WRITE AN EOF-MARK ON CARDREADER OR PRINTER - AG )@@G@@IGNORED @@@@@@#C@^@U@@@@@@#^@^@UERROR MODE: TYPE= , CODE= , EAH )@@G@@RR.ADDRESS= @]D^@YCO@@FV@#C^@%ERROR DETECTED WHILE CLOSING FILE OFAI )@@G@@ UNIT @BRKPT @@@@@@@)@@@@_____"@@@@@@@FREE AJ )@@G@@@SYM ,,PR @@#^@2@@]^@'@@#^@/J.3G3G3G3G3GK[)@@@@@@@@@@@@@@@NL[HPMAK )@@G@@@@[@@@@@@@@@@@@@@@@@@@@@)@)@@@K^*@@@@@@@@@@[^^N*INPUT EXPONENT TOO LARGEAL )@@G@@@@@@@@^@@@@@@@@@@@C@@@@@@@@@@@@@@@C@K^*@@@@@@@@@KB2@@@@@@@@@KE")@@@@@@@@AM )@@G@@KI$^@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@KS&DU@@@@@@@KV\:0)@@@@@@KY;&?*@@@@@@AN )@@G@@K+>KF9@@@@@@L#:R<:1U1+@@L=2ZFD3KL$N,M '1>J<-:>D)M$+H-6E_G=3LNC$4/$D-YUC=AO )@@G@@N(,RRQ!,899#OE5"X'<8ZU"@O:"5-8MO:II&PH==5(FESV96UT(3\2B=K@I?7NAP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[F@@@@@ ^W>/K@@Q-@@I^W>AQ )@@G@@@@@@@@@[B^O0@_A^O7@_D^O.@_B^PA@_A^PH@[F^PN__E^PYINPUT FILE $-$ HAS NOT AR )@@G@@BEEN ASSIGNED. NO PACKET SPACE AVAILABLE INITIALLY THE NTRAN UNIT $-$AS )@@G@@ IS NOT AVAILABLE FOR STANDARD I/O. DRUM FILE ASSIGNED TO SYMBIONT UNIT AT )@@G@@ FAILURE TO ASSIGN FASTRAND FILE $-$BACKSPACE WAS ENCOUNTERED FOR AU )@@G@@THE UNASSIGNED FILE: $-$ - IGNORED. SEQUENTIAL I/O ATTEMPTED ON UNIT DEFAV )@@G@@INED AS DIRECT ACCESS @ASG,T ,F///5@ASG,CP @@@@@@@@@@@K@@@@@KAW )@@G@@@@@@@C@@@@@C@@@@@D@@@@@)@@@@@( @@@@@@@@@@@@@@@@@@AX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_C^Q ABNORMAL CONDITIONAY )@@G@@ DETECTED IN BUFFER HANDLING @@[@@@@@@@@@_@_@@@@@E^P5@@#^P*@@]^P:'^@@HPAZ )@@G@@@@@@@@@@@@@@@@@@@@C8K@@@/@K^QYC8)@@@[C)^QPG@)@@HP;)@@[[^)^QPC8K^[][CK^QOBA )@@G@@G8K@M]P;K@^[[^K^QOG8K@@[C@0^QH[^Z=QQCC)^QOC^K^QOG8)@@H[@0^QHC@@^QN[@@@Y!BB )@@G@@!@)@@H/K@@UG/K@@RD@@@@@@@@@@@[STOP @@@@@@@@G^R@@@@@@@ @@@@@@BC )@@G@@_@@@@@@[Q@@@@_A^R,@_F^RJ@_G^RU@_F^RJ@_C^R&@_#^R4EXECUTION TERMINATED BY BD )@@G@@AN ATTEMPT TO READ PAST AN END-OF-FILE. EXECUTION TERMINATED BY AN ATTBE )@@G@@EMPT TO PASS END OF TAPE/DRUM OR FASTRAND A NON INTEGRAL BLOCK WAS READ BF )@@G@@FROM MAGNETIC TAPEABNORMAL I/O CONDITION DETECTED INAPPROPRIATE UNITBG )@@G@@THE FOLLOWING RECORD IS ERRONEOUS OR DOES NOT CORRESPOND TO FORMAT SPECIBH )@@G@@FICATIONS: I/O UNIT IS IN ERROR@_B^SEUNRECOGNIZABLE CONTROL WORD ENBI )@@G@@COUNTERED @_C^SMFORMATTED READ ATTEMPTED ON NON-FORMATTED DATA @_C^SVBJ )@@G@@NON-FORMATTED READ ATTEMPTED ON FORMATTED DATA @[I^R7@[^^S @@@@@@@@@@@@BK )@@G@@TRACE$ @@Q^W>(1P6G13.5) @@[@-^@@[@LL@@@@@@@@@@@@@@@@@@@@@@@@T BL )@@G@@F @@@@@@@@@@@@@@@@@@@@]^W>M@@@@@I@@@@@)^@@@@)@)@@@@@[@@O@@[@@P@@ ^W>BM )@@G@@@@I^W>@]D^T#@]C^TG@]D^TOILLEGAL FORMAT CHARACTERS WERE ACCEPTED AS BLANKBN )@@G@@S. RECORDS EXCEEDING MAXIMUM LENGTH ARE FAULTY. THE INTERPRETATIONBO )@@G@@ OF MEANINGLESS INPUT WAS ATTEMPTED.@@@@@@ @@ @@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NBMSG$@@@@@@@@@@@@@@@@@@@@[@@@@-@@@@BQ )@@G@@@@@@@@@@@@@@@@@@@@@)@@@@@=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@ SEQUENCE N LINE N@@@@@@BT )@@G@@ ERROR TERMINATION IN ROUTINE CALLED AT SEQUENCE NBU )@@G@@UMBER OF ROGRAMA COMPUTED GO TO THAT WAS OUT OF RANGE WASBV )@@G@@ DETECTED AT SEQUENCE NUMBER OF MAIN PROGRAM. ILLEGAL OP AT SPECBW )@@G@@IFIED RETURN FROM RETURN VARIABLE SPECIFIED IN BX )@@G@@OUT OF RANGE NEGATIVEFORTRAN V ERROR TERMINATION: ARGUMENT UNNORMALIBY )@@G@@ZED OR OUTSIDE ALLOWABLE RANGE CAUSING ARGUMENT OUTSIDE ALLOWABLE RANBZ )@@G@@GE CAUSING OVERFLOW CAUSED @]E^VQ@]B^V)@]#^V$@]B^UX@]D^U=@]B^U=MAIN PCA )@@G@@@[E^U=@@[__"@]H^U,@]B^U"@]C^V @[D^U= I/O RETN 0RETN K@] ^VL ______CB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ^W>@@@@@@@@@@@@@@@@@@@@@@@@^X[^X[@@@@@@@@@@@@CD )@@G@@@@@@@@@@@@@@@@[@@@@@[@@['^@@4#/K@K4A @@[@@@@@@@@@@@ ^W>@@[^W>CE )@@G@@'=@@@6[@@@"5C8@@"5[@@^XO/,0[XA@@@@@@@@@@@@R@)^&JR@K^&KC@@^&L'=@@@#C4@[@XCF )@@G@@/^@^+9C+0@7\!'0@@[!'0@@D/K@^)[[AW9K@@ECX )@@G@@9-K[@O[!K[[A[()[[A @@@@LC-)[[AG9)@[@W9K@@E9-K[@O[>K[[A[-)[[AR;@[[D'=@@@CCY )@@G@@R7@[@4:8@@@N/K@^)@@9!L@769(M@;J9!L@749(M@;LC[L@73[[M@;%R#@^&L@71:9K@@ /K@^+>!9K@@0!9K@@'/K^@@@C-L@71DE )@@G@@%9K@@ /K^@@@/K@^+>C1L@71%9K@@//K^@@@C!L@71!9K@@0!9K@@'/K^@@@C(L@71:9K@@ DF )@@G@@/K@^+>!9K@@1!9K@@'/K^@@@C>L@71/K@^+BC1L@71%9K@@W/K@^+YC!L@71/K@^+B:9K@@/DG )@@G@@/K@^+H%9K@@D/K^@@@CTL@71%9K@P /K^@@@C8[@7\[^@@_#C@@@_^G8@@@[[@@@_^C8@@"_DH )@@G@@'=@@@#(4@@_]/K^@@@/K@^YL(C@@"8/KG@@@C K@"8G9K@@[[[K@"8A#@@[[R;@[[Q'=@@@CDI )@@G@@R#@@[[/KG@@@/\@^+\C5K[@X:9K@@[/K@^DL )@@G@@[@@[@XC@@^&&'=@@@CC4@[@?/^@^#A#)[[JR;@[[T'=@@@C'=@@@DR#@^&*'=@@[Z/KF@@[R;@@@KAZ@@"/R#F@@@AB@@".DV )@@G@@R;@@@[A#@@""/KF@@]R;@@"9'=@@@#*4@@"//K@^YJR#@@""O;@@@[A#@@""/KF@@[R;@@@KDW )@@G@@AZ@@_]R#F@@@AB@@_#R;@@@[A#@@_^/KF@@]R;@@"_'=@@@#*4@@_]/K@^YLR#@@_^O;@@@[DX )@@G@@A#@@_^/KF@@[R;@^&KN8K@>)R#V@@@&;K@@[M#W)@@/KF@@](@FK@@/K@^>"N@VK@@R#FK@]DY )@@G@@R#V@@[&;K@@[2@H)@@/K@^>"P#V@@[ABVK@#/KF@@ R#FK@@!8@@G)/K@^&DO;@@@[A#FK@@DZ )@@G@@A#FK@#R#VK@]P;@@@[O#F@@[A#W@@@/KF@@ R#@^&(R#V@@[A#H@GZR;@@G)A#FK@#/KF@@ EA )@@G@@@@W@@@@@@@@@@@@[@U@@@@@WRECOV @@@@@[@@@@@]@@@PA@[@@@@@0-0040S SUNSHIEB )@@G@@NE SYS$ 0-0040-OPN @@@@#^@@@[@Z@@@@@C@@@BX5@@@@@ @-@@@@@K@@@@@@@[@?EC )@@G@@@@@[@>@@^[@QOVFLOW@@@@@@(4X,A6,': UNITS',@@A4,' TOTAL') (13X,'ERRORSED )@@G@@',@@I4,I7,/)NO SW. SW. 4 4/13SW. 14 4/14@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@EE )@@G@@@@@@@@@@@@[=@@@@#C@@@@^?@@@@AK@@@@B4@@@@DS@@@@E/@@@@G)@@@@I^@@@@J*@@@@LGEF )@@G@@@@@@M0@@@@OO@@@@P8@@@@RW@@@@T@@@@@U=@@@@WC@@@@X?@@@@ZK@@@@)4@@@@+S@@@@)0000 0100 0200 0300 0400 0500 0600 0700 0800 0900 1000 EH )@@G@@1100 1200 1300 1400 1500 1600 1700 1800 1900 2000 2100 2200 EI )@@G@@2300 @@@@@@HOUR @@@@@[@@@@@A@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EJ )@@G@@@@@@@@@@@@@@@@@@@@(1H1////////////////////T54,023HDISTRIBUTION STATISTICEK )@@G@@S) (4X,2A6,T20,I6,T33,F10.5,T56,3X,O3,T67,3X,O3,T75,I10,T98,I10) EL )@@G@@(1H1,T46,041HHOUR INTERVAL JOB DISTRIBUTION STATISTICS,T100,I2,001H/,I2,EM )@@G@@001H/,I2,/,T46,041H---- -------- --- ------------ ----------,/,T23,12(5XEN )@@G@@,A4),/,T23,12(5X,004H----)//) (015H NUMBER OF RUNS,T23,12(3X,I6),/,021H EO )@@G@@AVG CPU TIME PER RUN,T23,12(F9.4),/,024H AVG IN/OUT TIME PER RUN,T23,12(EP )@@G@@F9.4),/,011H EFFICIENCY,T23,12(F9.4)) (//////////,T23,12(5X,A4),/,T2EQ )@@G@@5,12(5X,004H----)//) (55X,004HTAPE,6X,004HTAPE,4X,005HLINES,4X,005HCAER )@@G@@RDS,4X,005HCARDS,3X,004HTAPE,3X,006HFSTRND,3X,004HDRUM,4X,004HDISC/3X,A4ES )@@G@@,6X,004HRUNS,4X,005HBATCH,3X,006HDEMAND,6X,008HCPU TIME,5X,006HMOUNTS,5XET )@@G@@,004HTIME,5X,003HOUT,6X,002HIN,7X,003HOUT,3X,006HERRORS,2X,006HERRORS,2XEU )@@G@@,006HERRORS,2X,006HERRORS/3X,004H----,6X,4(001H-),4X,5(001H-),3X,006H---EV )@@G@@---6X,008H--------,5X,006H------,5X,004H----,4X,005H-----,4X,005H-----,4EW )@@G@@X,005H-----,2X,006H------,2X,006H------,2X,006H------,2X,006H------//) EX )@@G@@(1H ,I2,001H/,I2,001H/,I2,2X,3(I6,3X),1X,F10.3,2X,5I9,4I8,/)(//2X,005HTOEY )@@G@@TAL,4X,3(I6,3X),1X,F10.3,2X,5I9,4I8)(1H1,T54,025HDAY INTERVAL DISTRIBUTIEZ )@@G@@ON/T54,25(001H-)//T54,I2,001H/,I2,001H/,I2,009H - ,I2,001H/,I2,001FA )@@G@@H/,I2/T54,25(001H-)///) (001H0,25(001H*),I4,030H PROCESSORS NOT LISTED, FB )@@G@@TABLE 008HOVERFLEW,25(001H*)//) (1H1,T30,032HTYPE 4 LOG ENTRIES FOR FC )@@G@@THE WEEK ,I2,2(001H/,I2),004H - ,I2,2(001H/,I2),//5X,009HPROG NAME,5X,0FD )@@G@@09HNO. XQTS,4X,018HAVG RUN TIME (SEC),5X,006HI-BANK,5X,006HD-BANK,5X,01FE )@@G@@5HAVG NO I/O REFS,5X,026HAVG DATA WORDS TRANSFERRED///) (1H1,53X,024FF )@@G@@HCORE USAGE/PROGRAM SIZES,/,54X,24(001H-),//,2X,050HSIZE NO. XQTS COREFG )@@G@@ BLOCK SECONDS, TOTAL (APPROX),/,2X,004H----,2X,8(001H-),2X,34(001H-)) FH )@@G@@(1X,O3,001H-,O3,I8,2X,114A1) (1H+,17X,1H^,11(9X,1H^))(18X,1H^,11(9(001HFI )@@G@@+),1H^),/,18X,11E10.2) (1H1,54(/,1X,001H:,25X,014HPOS. 1 THRU 67,26X,00FJ )@@G@@1H:)) (035H11108 HARDWARE-SOFTWARE PERFORMANCE,5X,I2,001H/,I2,001H/,I2,0FK )@@G@@04H TO ,I2,001H/,I2,001H/,I2,/,1X,34(001H-),///,3X,016HRUNS: TOTAL AVG,FL )@@G@@/,3X,016H---- ----- ---,/,007H0 BATCH,I7,I5,/,007H0DEMAND,I7,I5,/,007HFM )@@G@@0 TOTAL,I7,I5,////,024H HARDWARE ERROR ANALYSIS,/,1X,23(001H-),/) (/016HFN )@@G@@ MAINTENANCE LOG,/,1X,15(001H-),///)(034H+ DATE TIME UNIT EXPLANATFO )@@G@@ION,/,1X,67(001H-),/) (017H0***NO ENTRIES***,/) (A1,2A6,2X,11A6) FP )@@G@@(/021H0SYSTEM STOP ANALYSIS,/,1X,20(001H-),///) (040H+ DATE TIME CODE FQ )@@G@@ ADDR DWNTM COMMENTS,/,1X,67(001H-),/) (015H0***NO STOPS***,/001H1) FR )@@G@@(1H1) (1H0,A6,1X,A4,1X,A6,A1,A6,I3) (1H+,31X,6A6,/) (1H+,31X,017HRECOVFS )@@G@@ RUN ERROR: ,O12,/) (1H+,31X,028HSYS UNATTENDED: STOP UNKNOWN,/) FT )@@G@@(1H+,31X,020HOP. KILLED RECOV RUN,/)(//10X,8A7) (010H STOPS:,8I7) FU )@@G@@(010H DOWNTIME:,8I7) (041H0TOTAL STOPS INCLUDING MAINT AND SYSTEST:,IFV )@@G@@4) (044H TOTAL DOWNTIME INCLUDING MAINT AND SYSTEST:,I7) MAINT______FW )@@G@@SYSTST______(028H TOTAL UNSCHEDULED DOWNTIME:,I7,//,012H0STISTX V2.3,/,1FX )@@G@@H1) @@@@@[ FY )@@G@@ FZ )@@G@@ GA )@@G@@ GB )@@G@@ GC )@@G@@ GD )@@G@@ GE )@@G@@ GF )@@G@@ GG )@@G@@ GH )@@G@@ GI )@@G@@ GJ )@@G@@ GK )@@G@@ GL )@@G@@ GM )@@G@@ GN )@@G@@ GO )@@G@@ GP )@@G@@ GQ )@@G@@ GR )@@G@@ GS )@@G@@ GT )@@G@@ GU )@@G@@ GV )@@G@@ GW )@@G@@ GX )@@G@@ GY )@@G@@ GZ )@@G@@ HA )@@G@@ HB )@@G@@ HC )@@G@@ HD )@@G@@ HE )@@G@@ HF )@@G@@ HG )@@G@@ HH )@@G@@ HI )@@G@@ HJ )@@G@@ HK )@@G@@ HL )@@G@@ HM )@@G@@ HN )@@G@@ HO )@@G@@ HP )@@G@@ HQ )@@G@@ HR )@@G@@ HS )@@G@@ HT )@@G@@ HU )@@G@@ HV )@@G@@ HW )@@G@@ HX )@@G@@ HY )@@G@@ HZ )@@G@@ IA )@@G@@ IB )@@G@@ IC )@@G@@ ID )@@G@@ IE )@@G@@ IF )@@G@@ IG )@@G@@ IH )@@G@@ II )@@G@@ IJ )@@G@@ IK )@@G@@ IL )@@G@@ @@[@@RIM )@@G@@@@@PA@IGR$?*JWL^L KG@@@@@@]@@M@@]@@]@@[@@@@@[@@[@@[@@H@@@@@A@@Z@@Z@@Z@@@IN )@@G@@DAY @@Z@@)@@Z@];I&@@@ G=R#0@@N@B@ G(@@@ G=@@#__"G.0@@=IT )@@G@@@@@ G=@@#__"@B@ G(/]0^L>@@#__"@B@ G>@@@ G=R]@^MF@B@ G>@@@ G=@@#__"R_S@@@IU )@@G@@@@@ G=@@#__"@B@ G>/K@^LZNSWTC$ K@]@@A[ %[Z^@@@@@@@@M@C@NRBLK$ IV )@@G@@K@]@@GN#;BEC@@@@@@@@N@CMNRWND$ K@#@@NN#"BEC@@@@@@@@2@C>@@E^@@NWEF$ IW )@@G@@ K@#@@UN^FBEC@@@@@@@]^@DR@@K^@ENINTR$ K@#@@-J.TACB@@@@@@@@Z@FVIX )@@G@@@@J^@UNCLOS$ K@#@@*N]/BEC@@@@@@@[9@F'@@T^@(NWBLK$ K@]@@,N^CBECIY )@@G@@@@@@@@@[E@H3NBSBL$ K@]@@4N]'BEC@@@@@@@@-@I.NUPDA$ K@]@@'N^ABECIZ )@@G@@@@@@@@@@W@JYNBF00$ K@#@[[H^BAO#@@@@@@@@@@@@@M]^[]NBDCV$ K@#@[CJA )@@G@@E!]EDB@@@@@@@[Q@J'@@<^N^NFTV$ K@]@[IH *AO#@@@@@@@@N@LKNCNVT$ JB )@@G@@K@#@[PN].BEC@@@@@@@]M@L<@@.^N$NOTIN$ K@#@[WN#7BEC@@@@@@@].@N5@@^^O=JC )@@G@@NFCHK$ K@ @[>N#OBEC@@@@@@@B5@Q2@[?^O*@@@@@@@@%^QONSTOP$ K@#@[?JD )@@G@@N^@BEC@@@@@@@@I@Y$@@C^Q"NIOER$ K@#@[3N#(BEC@@@@@@@[2@Y5@[Z^RANOUT$ JE )@@G@@ K@#@['N#'BEC@@@@@@@CG@)$@@V^S>NFMT$ K@#@][N#VBEC@@@@@@@A,@*3JF )@@G@@@@!^T@NTAB$ K@#@]CHB0AO#@@@@@@@@@@@@@@Z^T!NERR$ K@#@]JN#]BECJG )@@G@@@@@@@@@#7@\-@[0^UGNOBUF$ K@]@]PN#4BEC@@@@@@@@-@3SNIER$ K@#@]WJH )@@G@@N#-BEC@@@@@@@[%@39@[J^V/NOSYM$ K@#@]CC[@@8[)[H@@[[[X@@[C!H@@F!9@@@D!9@@@I/K@@&P?9@@@F/K@@&ORR )@@G@@C[@@8]+[H@@[/ K@>C @@@@K)@@[U@@@@@@@*@@@@IG0:@@@;*)@@AC4:@@@R]0@@G;@@@@MRS )@@G@@9(W@@A9*/@@^9*W@@]A]?@@[A]/@@@AA@@@@)@F[U@@@@@@@H8K@@[ @@@@GC8K@@F!8K@@GRT )@@G@@C?V@@@&;)@@[G^:@@@&;0@@[W8)@@A;G)@@=H8)@@[AB@@@@)@Q[N]@@@[@@@@@@@@C@@@@FRU )@@G@@[@F@@[8#K@@QG@@@@LT8@@@EH9K@@0C9K@@0!9K@@'!9K@@0')J)@@AC@@@@)@)@'@@@@@@@RV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@@9!W@@A9?/@@^9?W@@]R]?@@[R]/@@@;@@@@MAD@@@@RW )@@G@@@@^@@]@@A@@[@@C@@[@@G@@@@@@@@@@@@@@$LOAD FDBIN @@[@@@@@@@@@RX )@@G@@;>@@@AAE@@@@)@6@U@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RY )@@G@@ /KF@@@AF@@@@)@@@C@)@@@6@WG@^G@^G@^G@^G@^G@@@@@@@A@)@@AA@K@@ RZ )@@G@@[[K@@^[[@@@#[@0@@][@K@@[@@@@@@AA@@O&)@A[A@WG@^G@^G@^G@[#@[#@[#@@@@C[@@@#SA )@@G@@C@0@@]C@K@@[/KI@@@^@)@@E^@K@@DA[@@@CA@0@@BAB@@O&)@I[A@WG@^G@^G@^G@^G@^G@SB )@@G@@^G@@@@/KI@@@N@)@@EN@K@@DR[@@@CR@0@@BR@)@@AR@K@@ C[K@@^AC@@O&)@[[S@@@@@@@SC )@@G@@@@@@@,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD@@O&SD )@@G@@)@G[S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@[K@@@@@I@@@@@I@@@@@A@@@@@ESE )@@G@@@@@@@.AE@@O&)@R@*@* @@@@)@-@)@@@@@@@R:L@@@R\L@@@R3L@@@R7L@@@@@[@@%@@[@@-SF )@@G@@@@@@B_@@@@B_@@@@B_AF@@O&)@>[KK[@^@@@@@@@@@A$N@@@A:N@@@A\N@@@A3N@@@/\)@@4SG )@@G@@/KI@@@R@)@@URW8)@@A;G)@@=R#)@@IA#)@@ISM )@@G@@/@)@@)CS?@@[A#)@@HAL@@O&)@>[N#@@@^@^@@@@@@/^0@@1W8)@@A;G)@@=/@)@@4CW?@@#SN )@@G@@ @@@@^ @@@@] @@@@# @@@@[A#)@@QAM@@O&)@\[U@[@[@@@P;)@@[/^0@@;W8)@@A;G)@@=SO )@@G@@/@)@@"CO?@@#A#0@@]P;0@@[A#)@@[R;0@@AP;)@@[AN@@O&)@'[M@^[#@[#@[#@@@OCW@@@SP )@@G@@O[@@@VO@)@@UA#)@@L/@)@[[CS?@@#A#0@@^P;0@@[A#)@@#R;0@@AAO@@O&)[^[M@K^G@]&SQ )@@G@@@@@@@@M#!)@@&;)@@[RB?@@@R;K@@MN@K@@K/^)@[ICO?@@[&80@@[&8K@@[O^/@@@AP@@O&SR )@@G@@)[I[EK0@K^G@^@@@@@@@@@@@+8)@@BRTW )@@G@@TRIM @@#@@@@@@@@@TRIM$ @@#@@@@@@@@#[@K@E5=@@^]G[[@@E(N;0@@[TX )@@G@@=@@^]H @@@[J^#0@E? @@@E$=@@^]I[@K@E$ @@@[I=@@^]J*[@@@@*SDFF*@]@@@@ENT TOTY )@@G@@C$ @A@@@@IN TOC,CSI,EDIT$,EDIT$T,INFOR$,BSP @#@@@@CLASS ************TZ )@@G@@___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UA )@@G@@*[@@@@*SDFF*@]@@@@ENT TOC @A@@@@IN TOC,CSI,EDIT$,EDIT$T,INFOR$,BSP UB )@@G@@@#@@@@CLASS ************___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@#@@@@ AXR$ @ @@@@EDP UD )@@G@@ E$PKT 5,IDL @^@@@@ASAV + 0 @^@@@@IDL REUE )@@G@@S 5 @]@@@@SYSNAME . @^@@@@ + 0 @]@@@@SYSLVLUF )@@G@@ . @^@@@@ + 0 @]@@@@SYSCYC . @^@@@@ + UG )@@G@@ 0 @[@@@@$(1) @]@@@@IDLIN* . @^@@@@ J $-$ UH )@@G@@@ @@@@ DS A0,SYSNAME@ @@@@ SA A2,SYSCYC UI )@@G@@@^@@@@ E$DIT EDP @ @@@@ E$FD1 SYSNAME @^@@@@UJ )@@G@@ E$SKIP 1 @ @@@@ E$FD1 SYSLVL @^@@@@ UK )@@G@@ E$CHAR '-' @#@@@@ E$DAT1 @^@@@@ E$SKIP -3 UL )@@G@@@^@@@@ E$CHAR '-' @#@@@@ E$TD @^@@@@ E$UM )@@G@@SKIP -3 @A@@@@ E$COPY 3,(' ') @ @@@@ TPUN )@@G@@ SYSCYC @^@@@@ J DONE@^@@@@ E$SKIP UO )@@G@@ -3 @ @@@@ E$FD1 ('-(') @ @@@@ E$DECV SYSCUP )@@G@@YC @^@@@@ E$CHAR ')' @#@@@@DONE E$DITX @ @@@@ UQ )@@G@@ P$RINT (0105,IDL)@ @@@@ J IDLIN @#@@@@ UR )@@G@@ END ___@@-/,0@@@C@@@@HAC@ )@L[#]@D][ ]@)K)^K0@^C#@@@@@@@/,0@@@US )@@G@@C8K@@#C8@@@I/,0@@@C/@__//,0@@@'=@@@@/,0@@@AD@ )@@@8*@@@@@@)@G@S@@@@@@@UT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[[@@@@@@@@@@@& @@BAA@@@@)@@[]K0@K0@EUU )@@G@@S@CK@CS@CK#)@@@@@@C/@@@[/,0@@@C@@@@G/,0@@@C/@@@@[@)@@I9*@@@G/K@@@@AB@@@@UV )@@G@@)@C[#]@L#@[]@WK)]K)LK)D@@@@@@@C/@__//,0@@@'=@@@@/,0@@@C/@@@-/,0@@@C@@@@HUW )@@G@@/,0@@@AC@@@@)@K[F]@KK)]K)LK)C^C[^G@@C8K@@#C8@@@J/,0@@@C/@__//,0@@@'=@@@@UX )@@G@@/,0@@@C/@@@-/,0@@@AD@@@@)@T[#]@1#@[@^C[^G@^C[4G@@@@@@@C@@@@I/,0@@@C@@@@KUY )@@G@@/,0@@@C/@__//K@@@=0@@@@I/,0@@@AE@@@@)@-@;]@SK)]K)IK0@K)MK@@@)@J@C@ UZ )@@G@@/K@@@@'=@@@@R#@@@L/,0@@@/,0@@@C/@@@)/,0@@@AF@@@@)@K@KE@@@@@@@@@@@@@@@@@@VA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[ @@B@@@@-(AG@@@@@@@@@@@@@@@@VB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VC )@@G@@@@^@@]@@A@@N@@?@@[@@0@@@@@@@@M@@@@@*EDIT$ EDITR$ ECHAR$ VD )@@G@@ECOL$ ESKIP$ EOCTV$ EDECV$ EFD1$ ETIME$ VE )@@G@@EDAY1$ EDAY2$ EDAY3$ ECOPY$ EPACK$ EDITX$ VF )@@G@@ECOLN$ EMSGR$ TDATE$ PRINT$ IDLIN @@[@@@@@@@@@VG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[^CDQDDN^@)*[S@@@*SDFF*@B@@@@ VH )@@G@@ AXR$ . @B@@@@$(1) LIT VI )@@G@@ . @[@@@@. @E@@@@. THIS SUBROUTINE TAKES AN IMAGE OF A CONTVJ )@@G@@ROL STATEMENT AND @B@@@@. TRANSLATES IT INTO INFOR (MORE OR LESS).@[@@@@VK )@@G@@. @^@@@@. CALLING SEQUENCE: @[@@@@. @ @@@@. L A0,(NO-OF-WVL )@@G@@DS,IMAGE) @^@@@@. L,U A1,AREA-FOR-INFOR@#@@@@. LMJ X11,CSI @#@@@@VM )@@G@@. @#@@@@. @[@@@@. @A@@@@. UPON ERRORVN )@@G@@ RETURN A0 WILL CONTAIN:@[@@@@. @#@@@@. S2 - ERROR CODE @E@@@@. VO )@@G@@ 1 - MAX NUMBER OF CHARACTERS IN A COMPONENT EXCEEDED @ @@@@. 2 - IVP )@@G@@LLEGAL CHARACTER @A@@@@. S3 - THE LAST CHARACTER SCANNED @D@@@@. H2 -VQ )@@G@@ THE COLUMN NUMBER OF THE LAST CHARACTER SCANNED@[@@@@. @F@@@@. UPONVR )@@G@@ NORMAL RETURN A0 WILL HAVE THE NUMBER OF WORDS OF INFOR @]@@@@. PRODVS )@@G@@UCED. @[@@@@. @[@@@@. @#@@@@. REGISTER USAGE: @[@@@@. @F@@@@VT )@@G@@. THIS ROUTINE USES THE MINOR SET OF REGISTERS AND IN ADDITION @G@@@@VU )@@G@@. SAVES, USES, AND RESTORES X8-X10 AND A6-A7. THE INTERNAL REGISTER VV )@@G@@@ @@@@. CONVENTIONS ARE AS FOLLOWS: @[@@@@. @ @@@@. X8 - INFOR STORVW )@@G@@E WORD INDEX@ @@@@. X9 - INFOR STORE CHAR INDEX@B@@@@. X10 - POINTER TOVX )@@G@@ CHARACTER DESCRIPTOR @A@@@@. A0 - CHARACTER TARGET REGISTER @ @@@@VY )@@G@@. A1 - IMAGE WORD REGISTER @ @@@@. A2 - IMAGE CHAR REGISTER @^@@@@VZ )@@G@@. A3 - SEARCH REGISTER @#@@@@. A4,5- SCRATCH @C@@@@. A6 - THE FIELD WA )@@G@@AND SUBFIELD OF THIS SPEC @D@@@@. A7 - # OF CHARACTERS SCANNED IN TWB )@@G@@HIS COMPONENT @[@@@@. @A@@@@. R1 - TYPES LEFT FOR TYPE TABLE WC )@@G@@@[@@@@. @[@@@@/. @[@@@@. @#@@@@. INFOR TYPES : @[@@@@. WD )@@G@@@#@@@@. 1 QUALIFIER @]@@@@. 2 FILENAME@#@@@@. 3 FILE CYCLE @]@@@@WE )@@G@@. 4 READ KEY@#@@@@. 5 WRITE KEY @#@@@@. 6 ELEMENT NAME @#@@@@. 7 VEWF )@@G@@RSION NAME @#@@@@. 8 ELEMENT CYCLE @^@@@@. 0 INTERNAL (BAD GUESS)@[@@@@WG )@@G@@. @^@@@@. ENTRY IN TYPE TABLE @[@@@@. @]@@@@. S1 - @ @B@@@@WH )@@G@@. S2 - BEGINNING OF FIELD PUNCTUATION @A@@@@. S3 - END OF FIELD PUNCWI )@@G@@TUATION @#@@@@. S4 - INFOR TYPE @#@@@@. S5 - CYCLE FLAG @B@@@@. S6 -WJ )@@G@@ SCAN PARAMETERS FOR NEXT FIELD @[@@@@. @]@@@@. PROCS @[@@@@WK )@@G@@. @B@@@@F FUNC . @B@@@@BITS* NAWL )@@G@@ME . @B@@@@B(0) EQU 0D WM )@@G@@ . @B@@@@I DO 4 ,; . @B@@@@J DOWN )@@G@@ 12 , ; . @E@@@@ DO 1-(0=(077**(F(I)WO )@@G@@*/(-6*(J-1))))) ,; . @E@@@@B(0) EQU B(0)++1D*/(077**(F(I)*WP )@@G@@/(-6*(J-1)))) . @B@@@@ END B(0) . @[@@@@WQ )@@G@@. @B@@@@P PROC . @B@@@@SS* NAWR )@@G@@ME . @B@@@@F FORM 18,6,12 WS )@@G@@ . @B@@@@ F P(1,1),P(1,2),P(1,3) .@^@@@@ ENWT )@@G@@D . @[@@@@. @[@@@@. @[@@@@. @[@@@@. DATA@[@@@@. WU )@@G@@@B@@@@LOAD EQUF 0,*A2 . @B@@@@STORE EQUF WV )@@G@@ 0,*X9 . @B@@@@CYC EQU 0103 . WW )@@G@@@B@@@@KEY EQU 06 . @[@@@@. @[@@@@/. WX )@@G@@@[@@@@. @E@@@@. THIS TABLE CONTROLS THE SCAN. THE THREE ENTRIES AREWY )@@G@@ FOR @B@@@@. NORMAL COMPONENTS, CYCLES, AND KEYS. @[@@@@. @[@@@@WZ )@@G@@. @ @@@@PARM . SCAN PARAMETERS @^@@@@. NORMAL COMPONENTS: XA )@@G@@@G@@@@ + BITS('ABCDEFGHIJKL','MNOPQRSTUVWX','YZ0123456789','$-'XB )@@G@@) @B@@@@ + 13 . @^@@@@. CYCLE COMPXC )@@G@@ONENTS: @A@@@@ + BITS('+-1234567890') . @B@@@@ + XD )@@G@@ 7 . @#@@@@. KEY COMPONENTS: @A@@@@ - XE )@@G@@BITS('/., ') . @B@@@@ + 7 . XF )@@G@@@[@@@@. @[@@@@. @[@@@@/. @[@@@@. @E@@@@. DEFINE INFOR TYPXG )@@G@@ES BY LEADING AND TRAILING CHARACTERS @[@@@@. @E@@@@. (NOTE THATXH )@@G@@ IT HAS ALWAYS BEEN A BONE OF CONTENTION WHETHER@G@@@@. THE CONSTRUCT QUXI )@@G@@AL*FILE WITHOUT A TRAILING PERIOD IS OR SHOULD BE @G@@@@. LEGAL. THXJ )@@G@@IS ROUTINE WILL CORRECTLY PARSE THIS CONSTRUCT AS QUALIFIER @G@@@@. AND XK )@@G@@FILENAME. IF COMPLETE COMPATABILITY WITH INFOR IS DESIRED THE @F@@@@XL )@@G@@. LINE MARKED SHOULD HAVE THE 2 REPLACED BY A 0 (ZERO). THIS WILL@F@@@@XM )@@G@@. CAUSE THE SUBROUTINE TO RETURN A STATUS OF ILLEGAL CHARACTER @^@@@@XN )@@G@@. FOR THE ASTERISK.) @[@@@@. @]@@@@CTYPE . @D@@@@ SSXO )@@G@@ ' *',1 . QUALIFIER @G@@@@ SS '* 'XP )@@G@@,2 . FILENAME (CHANGE 2 TO 0 FOR '*')@C@@@@ SS XQ )@@G@@ '*.',2 . FILENAME@C@@@@ SS ' .',2 XR )@@G@@ . FILENAME@C@@@@ SS '*/',2,KEY . FILENAME@C@@@@XS )@@G@@ SS ' /',2,KEY . FILENAME@C@@@@ SS XT )@@G@@ '*(',2,CYC . FILENAME@C@@@@ SS ' (',2,CYC XU )@@G@@ . FILENAME@C@@@@ SS '(.',3 . FCYCLE @C@@@@XV )@@G@@ SS '(/',3,KEY . FCYCLE @G@@@@ SS XW )@@G@@ '( ',0 . BAD GUESS - TRY ELEMENT NAME @C@@@@ SSXX )@@G@@ '/.',4 . READ KEY@C@@@@ SS '//',4,KEYXY )@@G@@ . READ KEY@D@@@@ SS '/.',5 . WRITE KEXZ )@@G@@Y @D@@@@ SS '/ ',0 . BAD GUESS @[@@@@YA )@@G@@. @ @@@@. INFOR FOR ELEMENT NAMES @[@@@@. @]@@@@ETYPE . YB )@@G@@@D@@@@ SS '. ',6 . ELEMENT NAME @D@@@@ YC )@@G@@ SS './',6 . ELEMENT NAME @D@@@@ SS YD )@@G@@ '.(',6,CYC . ELEMENT NAME @D@@@@ SS ' ',6 YE )@@G@@ . ELEMENT NAME @D@@@@ SS ' /',6 . ELYF )@@G@@EMENT NAME @D@@@@ SS ' (',6,CYC . ELEMENT NAME YG )@@G@@@C@@@@ SS '/ ',7 . VERSION @C@@@@ SSYH )@@G@@ '/(',7,CYC . VERSION @D@@@@ SS '( ',8 YI )@@G@@ . ELEMENT CYCLE @[@@@@. @B@@@@ETCT EQU $-ETYPE YJ )@@G@@ . @B@@@@CTCT EQU $-CTYPE . @[@@@@. YK )@@G@@@B@@@@BLANKS ' ' . @[@@@@. @[@@@@/. YL )@@G@@@[@@@@. @]@@@@$(2) . @G@@@@GLITCH EQU 1 YM )@@G@@. NONZERO REQUIRES '@' AS FIRST CHAR@[@@@@. @D@@@@XS RES YN )@@G@@ 5 . X SAVE AREA @B@@@@OOPS RES 3 YO )@@G@@ . @D@@@@AREA RES 2 . PARAMETER AREAYP )@@G@@@[@@@@. @F@@@@BBGN EQUF AREA,,H1 . BEGINNING OF IYQ )@@G@@MAGE IN CORE@E@@@@BEND EQUF AREA,,H2 . END OF IMAGE IYR )@@G@@N CORE@G@@@@IBGN EQUF AREA+1,,H2 . BEGINNING OF INFOR AYS )@@G@@REA IN CORE @E@@@@RTRM EQUF AREA+1,,S1 . REAL TERMINATOYT )@@G@@R @E@@@@TERM EQUF AREA+1,,S2 . FAKE TERMINATOR YU )@@G@@@E@@@@PDF EQUF AREA+1,,S3 . LEADING PERIOD FLAG @[@@@@YV )@@G@@. @[@@@@. @[@@@@/. @[@@@@. @B@@@@$(1) LIT YW )@@G@@ . @]@@@@CSI* . @D@@@@ S X8,XS YX )@@G@@ . SAVE REGISTERS@B@@@@ S X9,XS+1 . YY )@@G@@@B@@@@ S X10,XS+2 . @B@@@@ DS YZ )@@G@@ A6,XS+3 . @F@@@@ L,U A5,26 . GOZA )@@G@@OD THING TO SHOVE IN @E@@@@ SZ 0,A1 . CLZB )@@G@@EAR OPTIONS WORD @F@@@@ S,S1 A5,0,A1 . SHOVE ITZC )@@G@@ INTO OPTIONS WORD@E@@@@ S A1,IBGN . SAVE BEGZD )@@G@@IN OF INFOR @E@@@@ L,U X8,1,A1 . SET STORE POINZE )@@G@@TER @D@@@@ LXI,U X8,1 . SET INCREMENT @E@@@@ZF )@@G@@ DSL A0,18 . MOVE IMAGE TO A1 @D@@@@ ZG )@@G@@ SSL A1,18 . RIGHT JUSTIFY @G@@@@ JZ ZH )@@G@@ A0,CSI060 . IF IMAGE NULL RETURN NO INFOR @F@@@@ A,ZI )@@G@@U A0,0,A1 . COMPUTE LAST VALID WORD @B@@@@ ANZJ )@@G@@,U A0,1 . @C@@@@ S A0,BEND ZK )@@G@@ . SAVE IT @F@@@@ S A1,BBGN . SAVE BEGINNINGZL )@@G@@ OF IMAGE @E@@@@ LXI,U A1,1 . SET LOAD INCREZM )@@G@@MENT @F@@@@ L A2,(1,LTAB) . INITIALIZE LOAD INDEZN )@@G@@X @F@@@@ L,U A6,0100 . SET TO FIELD 0 SUBFIZO )@@G@@LED 1 @^@@@@ ON GLITCH @F@@@@ EX LOAD ZP )@@G@@ . GET THE FIRST CHARACTER @E@@@@ JNZ A0,CSI080 ZQ )@@G@@ . IF NOT @ ILLEGAL @#@@@@ OFF @]@@@@CSI010 . ZR )@@G@@@D@@@@ L,U A0,' ' . GET BLANK @E@@@@ ZS )@@G@@ S A0,TERM . SAVE AS TERMINATOR @E@@@@ SZZT )@@G@@ PDF . CLEAR PERIOD FLAG @D@@@@ DS ZU )@@G@@ A1,OOPS . SAVE INDEXES @B@@@@ S X8,OOPS+2 ZV )@@G@@ . @E@@@@ L,U X10,0 . INITIALIZE SCAZW )@@G@@N @F@@@@ L A3,(1,CTYPE-1) . INITIALIZE TYPE POINZX )@@G@@TER @F@@@@ L,U R1,CTCT . INITIALIZE SEARCH COZY )@@G@@UNT @]@@@@CSI020 . @E@@@@ EX LOAD . GEZZ )@@G@@T A CHARACTER @E@@@@ TE,U A0,' ' . IS IT A AA )@@G@@BLANK ? @F@@@@ J CSI025 . NO - TAKE THISAB )@@G@@ CHARACTER @F@@@@ TZ PDF . DID WE GET SPAAC )@@G@@CE-PERIOD ? @E@@@@ J CSI060 . YES - STOP HERAD )@@G@@E @E@@@@ J CSI020 . GO BACK FOR MORE AE )@@G@@@]@@@@CSI025 . @E@@@@ JN A0,CSI060 . IF END OAF )@@G@@F LINE EXIT @F@@@@ L,U A7,0 . CLEAR CHARACTEAG )@@G@@R COUNT @E@@@@ L X9,(1,STAB) . SET STORE INDEAH )@@G@@X @F@@@@ TNE,U A6,0200 . SCANNING OPTIONS FIEAI )@@G@@LD ? @C@@@@ J CSI130 . YES @]@@@@CSI030AJ )@@G@@ . @D@@@@ DL A4,PARM,X10 . GET BITMASK @E@@@@AK )@@G@@ DSL A4,0,A0 . BRING BIT TO 35 @F@@@@ AL )@@G@@ JNB A5,CSI040 . IF NOT LEGAL EXIT LOOP @F@@@@ AM )@@G@@ A,U A7,1 . ADD TO CHARACTER COUNT @D@@@@ AN )@@G@@ EX STORE . SAVE CHARACTER@F@@@@ EX AO )@@G@@ LOAD . GET ANOTHER CHARACTER @G@@@@ JP AP )@@G@@ A0,CSI030 . IF END OF LINE TERMINATE LOOP @[@@@@. @[@@@@AQ )@@G@@/. @[@@@@. @]@@@@CSI040 . @E@@@@ TE,U A0,':' AR )@@G@@ . WAS IT A LABEL ? @B@@@@ J $+3 AS )@@G@@ . @B@@@@ TNE,U A6,0100 . @E@@@@ J AT )@@G@@ CSI020 . YES - IGNORE IT @F@@@@ TNZ,S5 AU )@@G@@ 0,A3 . WAS THIS A CYCLE FIELD ? @D@@@@ J AV )@@G@@ CSI041 . NO - SKIP THIS@E@@@@ TNE,U A0,')' AW )@@G@@ . IS IT CLOSE PAREN ? @E@@@@ EX LOAD AX )@@G@@ . YES - GET ANOTHER @]@@@@CSI041 . @E@@@@ S A0,RAY )@@G@@TRM . SAVE REAL TERMINATOR@E@@@@ JN A0,$+2 AZ )@@G@@ . IF EOL FAKE BLANK @E@@@@ TNE,U A0,',' BA )@@G@@ . IF COMMA FAKE BLANK @E@@@@ L,U A0,' ' . THBB )@@G@@IS IS THE FAKE @E@@@@ L A4,TERM . GET LASTBC )@@G@@ TERMINATOR @E@@@@ S A0,TERM . SAVE THIS TERMBD )@@G@@INATOR@D@@@@ LSSL A4,6 . MAKE ROOM @D@@@@BE )@@G@@ A,U A4,0,A0 . SHOVE IT IN @F@@@@ SEBF )@@G@@,H1 A4,1,*A3 . SEARCH FOR THIS TERMINATOR@E@@@@ J BG )@@G@@ CSI080 . ILLEGAL CHARACTER @D@@@@ TNZ,S4 BH )@@G@@ 0,A3 . BAD GUESS ? @D@@@@ J CSI110 BI )@@G@@ . YES - FARBLE @G@@@@ TG A7,PARM+2,X10 . ISBJ )@@G@@ THIS TOO MANY CHARACTERS ? @D@@@@ J CSI070 BK )@@G@@ . YES - ERROR @F@@@@ JNZ A7,CSI043 . IF NONNUBL )@@G@@LL SKIP THIS CODE @F@@@@ TNE,U A4,' .' . IS THIS BM )@@G@@A NULL FILENAME ? @G@@@@ S A4,PDF . YES - SEBN )@@G@@T LEADING PERIOD FLAG @F@@@@ TE,U A0,'*' . ISBO )@@G@@ IT A BLANK QUALIFIER ? @G@@@@ J CSI045 . NOBP )@@G@@ - IGNORE THIS SPECIFICATION @D@@@@ L A5,BLANKS BQ )@@G@@ . GET BLANKS @D@@@@ S A5,1,X8 . SHOVE EMBR )@@G@@ IN @D@@@@ S A5,2,X8 . SHOVE EM IN @D@@@@BS )@@G@@ L,U A7,12 . GET CHAR COUNT@]@@@@CSI043 . BT )@@G@@@F@@@@ SZ 0,X8 . CLEAR INFOR CONTROL WORD BU )@@G@@@F@@@@ L A4,PDF . GET LEADING PERIOD FLAG BV )@@G@@@E@@@@ S,S4 A4,0,X8 . IF SET , SET INFOR @D@@@@BW )@@G@@ SZ PDF . CLEAR FLAG @D@@@@ L,BX )@@G@@U A4,1 . GET A ONE @E@@@@ TG,U A7,7BY )@@G@@ . IS THIS TWO WORDS ? @F@@@@ L,U A4,2 BZ )@@G@@ . YES - SET WORD COUNT TO 2 @F@@@@ S,S6 A4,0,X8 CA )@@G@@ . SET INTO CONTROL WORD @E@@@@ TG,U A7,7 CB )@@G@@ . IS THIS TWO WORDS ? @F@@@@ AN,U A7,6 CC )@@G@@ . YES - GET CHARS IN WORD 2 @F@@@@ S,S5 A7,0,X8 CD )@@G@@ . SET INTO CONTROL WORD @G@@@@ AU,S4 A6,0,A3 CE )@@G@@ . COMPUTE FIELD SUBFIELD AND TYPE @E@@@@ S,H1 A7,0,X8 CF )@@G@@ . PLACE INTO INFOR @F@@@@ A,S6 X8,0,X8 CG )@@G@@ . MOVE TO NEXT INFOR LINE @F@@@@ A,U X8,1 CH )@@G@@ . ADD TO NEXT CONTROL WORD @[@@@@. @[@@@@/. @[@@@@. @]@@@@CI )@@G@@CSI045 . @F@@@@ L,S6 X10,0,A3 . RESET SCAN PARCJ )@@G@@AMETERS @E@@@@ L A0,RTRM . GET REAL TERMICK )@@G@@NATOR @D@@@@ JN A0,CSI060 . IF EOL EXIT @E@@@@CL )@@G@@ TNE,U A0,' ' . IS IT A BLANK ? @E@@@@ CM )@@G@@ J CSI050 . YES - BUMP FIELD @E@@@@ TECN )@@G@@,U A0,',' . IS IT A COMMA ? @E@@@@ J CO )@@G@@ CSI020 . NO - GET NEXT THING @D@@@@ A,U A6,0CP )@@G@@100 . BUMP SUBFIELD @E@@@@ J CSI010 CQ )@@G@@ . GO BACK FOR MORE @]@@@@. BLANK @]@@@@CSI050 . @D@@@@ CR )@@G@@ SSL A6,12 . CLEAR SUBFIELD@D@@@@ LSSL CS )@@G@@ A6,12 . GET FIELD BACK@F@@@@ A,U A6,010100 CT )@@G@@ . SET FIELD AND SUBFILED @D@@@@ TNE,U A6,020100 CU )@@G@@ . TIME TO DIE ? @D@@@@ J CSI060 . YECV )@@G@@S - STOP @D@@@@ J CSI010 . BACK FOR MORE CW )@@G@@@[@@@@. @]@@@@CSI060 . @G@@@@ SZ 0,X8 CX )@@G@@ . CLEAR ONE WORD FOLLOWING INFOR @G@@@@ AN X8,IBGN CY )@@G@@ . COMPUTE NUMBER OF WORDS GENERATE@D@@@@ L,U A0,0CZ )@@G@@,X8 . LOAD INTO A0 @E@@@@ A,U X11,1 DA )@@G@@ . SET RETURN ADDRESS @C@@@@ J CSI120 . REDB )@@G@@TURN @]@@@@CSI070 . @F@@@@ LXI,U A0,0100,A0 . SEDC )@@G@@T ERROR CODE MAXCHAR @D@@@@ J CSI090 . PRDD )@@G@@OCESS ERROR @]@@@@CSI080 . @F@@@@ LXI,U A0,0200,A0 DE )@@G@@ . SET ERROR CODE ILCHAR @]@@@@CSI090 . @E@@@@ L,U DF )@@G@@ A1,0,A1 . GET LOAD WORD INDEX @G@@@@ AN A1,BDG )@@G@@BGN . COMPUTE NUMBER OF FULL WORDS SCA@G@@@@ MSI,U DH )@@G@@ A1,6 . COMPUTE NUMBER OF CHARACTERS @G@@@@ ANDI )@@G@@,U A2,LTAB . COMPUTE CHARACTERS IN LAST WORD @F@@@@ DJ )@@G@@ A,U A1,0,A2 . CALCULATE COLUMN NUMBER @F@@@@ DK )@@G@@ LXM,U A0,0,A1 . LOAD COLUMN NUMBER IN A0 @]@@@@CSI120DL )@@G@@ . @E@@@@ L X8,XS . RESTORE REGISTERS DM )@@G@@@B@@@@ L X9,XS+1 . @B@@@@ L DN )@@G@@ X10,XS+2 . @B@@@@ DL A6,XS+3 . DO )@@G@@@C@@@@ J 0,X11 . RETURN @]@@@@CSI110 . DP )@@G@@@D@@@@ L,U A0,' ' . GET BLANK @D@@@@ DQ )@@G@@ S A0,TERM . SET TERMINATOR@F@@@@ DL DR )@@G@@ A1,OOPS . RECOVER LOAD SCAN INDEXES @F@@@@ L DS )@@G@@ X8,OOPS+2 . AND INFOR STORE ADDRESS @E@@@@ L,U DT )@@G@@ X10,0 . INITIALIZE SCAN @E@@@@ L X9,(DU )@@G@@1,STAB) . SET STORE INDEX @F@@@@ L A3,(1,ETYPDV )@@G@@E-1) . INITIALIZE TYPE TO ELEMENT@E@@@@ L,U R1,ETCT DW )@@G@@ . AND COUNT TO ELEMENT@E@@@@ J CSI020 DX )@@G@@ . RESCAN SPEC FIELD @[@@@@. @[@@@@/. @[@@@@. @A@@@@CSI130DY )@@G@@ . OPTIONS FIELD PROCESSING@[@@@@. @F@@@@ L X10,DZ )@@G@@IBGN . GET FIRST INFOR ADDRESS @D@@@@ L,U R1,2EA )@@G@@6 . GET MAX COUNT @]@@@@CSI131 . @E@@@@ TG,U EB )@@G@@ A0,'A' . IS IT A LETTER ? @E@@@@ TG,U A0,'EC )@@G@@Z'+1 . IS IT A LETTER ? @D@@@@ J CSI080 ED )@@G@@ . NO - ILCHAR @D@@@@ L A4,(1*/'Z') . GEEE )@@G@@T Z BIT @G@@@@ SSL A4,0,A0 . BRING BIT TO PEF )@@G@@ROPER POSITION @D@@@@ OR A4,0,X10 . OR IN BIEG )@@G@@T @D@@@@ S A5,0,X10 . AND REPLACE @E@@@@EH )@@G@@ EX LOAD . GET NEXT CHARACTER @D@@@@ EI )@@G@@ JN A0,CSI140 . IS IT EOL ? @D@@@@ TNE,U EJ )@@G@@ A0,' ' . IS IT BLANK ? @E@@@@ J CSI140 EK )@@G@@ . YES - TERMINATE @E@@@@ JGD R1,CSI130 EL )@@G@@ . IF ANY MORE GO BACK @C@@@@ J CSI070 . MAEM )@@G@@XCHAR @[@@@@. @E@@@@CSI140 S A0,RTRM . SAVE REAEN )@@G@@L TERMINATOR@D@@@@ J CSI045 . DO IT TO IT EO )@@G@@@[@@@@. @[@@@@/. @H@@@@LT1 LMJ A2,0,A2 . REEP )@@G@@TURN WITH CHARACTER POINTER SET @E@@@@LTAB L,S1 A0,0,A1 EQ )@@G@@ . GET FIRST CHARACTER @E@@@@ L,S2 A0,0,A1 ER )@@G@@ . GET SECOND CHARACTER@E@@@@ L,S3 A0,0,A1 . GEES )@@G@@T THIRD CHARACTER @E@@@@ L,S4 A0,0,A1 . GET FOURET )@@G@@TH CHARACTER@E@@@@ L,S5 A0,0,A1 . GET FIFTH CHAREU )@@G@@ACTER @G@@@@LT2 LMJ A2,0,A2 . BREAK OUT TO NEXT INEV )@@G@@STRUCTION @F@@@@ LN,U A0,1 . GET SUPER BREAEW )@@G@@K CHARACTER @E@@@@ L,S6 A0,0,A1 . GET SIXTH CHAREX )@@G@@ACTER @F@@@@ TLEM A1,BEND . LAST WORD OF BUFFER EY )@@G@@? @E@@@@ J LT1 . NO - RETURN NORMAL EZ )@@G@@@E@@@@ LXI,U A2,0 . DISABLE INCREMENT @G@@@@FA )@@G@@ AN,U A1,1 . DECREMENT WORD COUNT FOR DIAG FB )@@G@@@G@@@@ J LT2 . RETURN WITH A2 POINTING ATFC )@@G@@ LN @[@@@@. @G@@@@STAB LMJ X9,$+1 . BREAK OUFD )@@G@@T TO NEXT INSTRUCTION @E@@@@ LSSL A0,30 . MOFE )@@G@@VE CHARACTER TO S1@E@@@@ A A0,('@ ') . BLANK FIFF )@@G@@LL WORD @F@@@@ S A0,1,X8 . STORE FIRST CHFG )@@G@@ARACTER @E@@@@ LMJ X9,0,X9 . RETURN WITH X9FH )@@G@@ SET @F@@@@ S,S2 A0,1,X8 . STORE SECOND CHARACTFI )@@G@@ER @F@@@@ S,S3 A0,1,X8 . STORE THIRD CHARACTEFJ )@@G@@R @F@@@@ S,S4 A0,1,X8 . STORE FOURTH CHARACTFK )@@G@@ER @F@@@@ S,S5 A0,1,X8 . STORE FIFTH CHARACTEFL )@@G@@R @F@@@@ S,S6 A0,1,X8 . STORE SIXTH CHARACTEFM )@@G@@R @G@@@@ LMJ X9,$+1 . BREAK OUT TO NEXT INFN )@@G@@STRUCTION @E@@@@ LSSL A0,30 . MOVE CHARACTERFO )@@G@@ TO S1@E@@@@ A A0,('@ ') . BLANK FILL WORD FP )@@G@@@F@@@@ S A0,2,X8 . STORE FIRST CHARACTER FQ )@@G@@@E@@@@ LMJ X9,0,X9 . RETURN WITH X9 SET @F@@@@FR )@@G@@ S,S2 A0,2,X8 . STORE SECOND CHARACTER @F@@@@FS )@@G@@ S,S3 A0,2,X8 . STORE THIRD CHARACTER @F@@@@FT )@@G@@ S,S4 A0,2,X8 . STORE FOURTH CHARACTER @F@@@@FU )@@G@@ S,S5 A0,2,X8 . STORE FIFTH CHARACTER @F@@@@FV )@@G@@ S,S6 A0,2,X8 . STORE SIXTH CHARACTER @D@@@@FW )@@G@@ J CSI070 . ERROR MAXCHAR @[@@@@. @B@@@@FX )@@G@@ END . ___@@@CSI140 S A0,RFY )@@G@@TRM . SAVE REA)@@[U@@@@@@@@* ]@@@ *[@@@@@@@B_____Z_/__\_@@@@@BFZ )@@G@@S@@@@@@@J_@@@@@@@HF____@@@J_@CAA@@@@)@F[U@@@@@@@@//^@A@/.^@@@( @@@@(/#@AGA )@@G@@@(.#@@@ (][#@*(][#@ /]@A@*/]@A@ .]@@@*.]@@AB@@@@)@Q[U@@@@@@@@( C@@@/(B[#GB )@@G@@@/ B@@@ (A[#@ /A@@@ A@@@.(A[#@./A@@@. A@@@/ @@@@/. @@AC@@@@)@-[MKO [KK^GC )@@G@@^@@@@@R'H@@[ABK@@D[5X@@@ @H@@@C9K@@U9()@@#A])@@]A]K@@[A]@@@@ AD@@@@GD )@@G@@)@:[M[@[[KL@@@@@@@R#)@#Z&;K@@[AFK@@CAB@@@CP;@@@[O;H@@@/@@@]J;CK@@M;G@@@MGE )@@G@@&'@@@[AE@@@@)@5[M^@KO [KL@@@@@R#0@#)R')@@@A]@@@B9*K@@ ?@@@DA3@@@DR;@@@ GF )@@G@@/^@@]Q')I)@@C9)@[@AF@@@@)@_[M[@KO[@K[@@@@@R]K@#-C90@@@/G@@]J/K@@[@/K@@]JGG )@@G@@*?@@@D/K@@[A%8@@@ ')I)@@N8K@@SAG@@@@)[D[MK^@K@^@@@@@@@%8@@@:/C@@[F')I)@@GH )@@G@@')D)@@G90@@[/-K@[M;HG@@@9!E@@@/K@@]::9)@]@AH@@@@)[N[N@^@K@KO@@@@@@:8@@@,GI )@@G@@/G@@[XA7@@@D')I)@@:8@@@)/K@@[U(=J@@@/K@@[@:9)@[@/K@@[QAI@@@@)[X[MKO^[@^[GJ )@@G@@@@@@@@!['@@]/K@@]+(*J@@@/K@@]Q2DJ)@[G9G@@@;(@@@AA3@@@DC1@@@DR;@@@ AJ@@@@GK )@@G@@)[$[N@K[[^[@@@@@@@C90@@G[[S@@][[S@@[C[K@@-/K@@]@%8@@@*[!@@@D:9@@ ./ 0@[1GL )@@G@@/K@@]OAK@@@@)[1[UKL[@@@@[>8@@@H90@@A!90@@B[-C@@@C9@@@]!90@@BC9@@@[ ?@@@DGM )@@G@@[(C@@@C!@@@D @C@@@AL@@@@)[/[M@^ @^@@@@@@@@%8@@@,/K@@]D:8@@@ /G@@]JR7@@@DGN )@@G@@R+\@@@O'@@@[O+C@@@[D8@@@K(\@@@AM@@@@)]A[N@^@@K^@@@@@@@ @C@@@/K@@@8/K@@]JGO )@@G@@:9)][@G9)[[@;()@@G;D)@@G/K@@@8G9)@[@/K@@[@AN@@@@)]K[N[[@^@^^@@@@@@T8K@@AGP )@@G@@PFK@@CR;X@@@&;G@]@/K@@]R&;G@[@/K@@]XO'0@@[R;C@@@PA@@@DAO@@@@)]U[M*@)*E])GQ )@@G@@)))@@@A3@@@DR;@@@ /KF@@@9!)@@#R])@@]R]K@@[R]@@@@Q;H@@@O;Y@@@P;)@].AP@@@@GR )@@G@@)]=[N[KL@K[@KK@@@@!8@@@AN8K@@URA)@@D/K@@[@N8K@@DR#0@#+R]K@#-R')@@@R]@@@BGS )@@G@@9?K@@ AQ@@@@)],[MK^@@K[@@@@@@@/K@@]':8@@@ /G@@]'')I)@@[[U@@@)[E@@@;DG@@@GT )@@G@@C[@@#@@@@@ECSI HB )@@G@@ @@[@@@@@@@@+@ @@@@ L,S2 A1,INFOR @ @@@@ J HC )@@G@@ *$,A1 @ @@@@ + MXCH*[@@@@*SDFF*@#@@@@ HD )@@G@@ AXR$ @^@@@@REP EQU 1 @#@@@@OPT* FUNC @^@@@@HE )@@G@@A(1) EQU 0 @^@@@@B(1) EQU 0 @#@@@@S NAHF )@@G@@ME @ @@@@B(1) EQU B(1)+1 @A@@@@ DO OPT(B(1))=0HG )@@G@@ , GO E @ @@@@C(1) EQU OPT(B(1)) @#@@@@T NAME HH )@@G@@@ @@@@ DO C(1)=0 , GO S @ @@@@D(1) EQU C(1)**63 HI )@@G@@@ @@@@C(1) EQU C(1)*/-6 @G@@@@ DO D(1)>'A'-1 , DO DHJ )@@G@@(1)<'Z'+1 ,A(1) EQU A(1)++(1*/('Z'-D(1))) @^@@@@ GO T HK )@@G@@@#@@@@E NAME @^@@@@ END A(1)@ @@@@EPKT E$HL )@@G@@PKT 22,LINE @ @@@@ASG '@ASG,A $FILEA .' @ @@@@FREE '@HM )@@G@@ FREE,A $FILEA .'@^@@@@EMPTY ' IS EMPTY&' @ @@@@NEXTAVAIL 'NEXT AVHN )@@G@@AIL LOCN &'@^@@@@IOERR 'I/O ERROR &' @ @@@@NOTAVAIL ' IS NOT AVAILHO )@@G@@ABLE&'@C@@@@NOTCATASG ' IS NOT CATALOGUED OR ASSIGNED&' @A@@@@NOTPF HP )@@G@@ ' IS NOT A PROGRAM FILE&' @A@@@@NOASG ' CANNOT BE ASSIGNED&' HQ )@@G@@@A@@@@NOTMASS ' IS NOT MASS STORAGE&' @ @@@@NOTREAD ' MAY NOT BE RHR )@@G@@EAD&' @^@@@@FACREJ 'FAC REJECT &'@B@@@@DATAIGMS 'DATA IGNORED - IN CHS )@@G@@ONTROL MODE'@B@@@@DATAIGM PF 1,$-DATAIGMS,DATAIGMS @C@@@@MXCHARHT )@@G@@M ' MAX NUMBER OF CHARACTERS EXCEEDED&'@A@@@@ILCHARM ' ILLEGAL CHAHU )@@G@@RACTER &' @#@@@@TPF 'TPF$ '@A@@@@ENTNILL 'ENTRY POINT TABLE EHV )@@G@@MPTY' @A@@@@ENTINTR ' ENTRY POINT TABLE' @A@@@@ENTINT PF HW )@@G@@ 2,4,ENTINTR @A@@@@ENTNILM PF 2,4,ENTNILL @#@@@@SPCS HX )@@G@@ ' '@#@@@@FITEM '$FILEA'@#@@@@ ' '@^@@@@ HY )@@G@@ RES 7 @^@@@@ RES 25 @ @@@@FCT EQU HZ )@@G@@ FITEM @ @@@@FTI EQU FCT+6 @^@@@@LINE RES IA )@@G@@ 22 @ @@@@PF FORM 12,6,18 @ @@@@PRINT1 PF 1,22IB )@@G@@,LINE @ @@@@PRINT2 PF 2,22,LINE @ @@@@ELTNAME EQUF 0,X1IC )@@G@@0 @ @@@@FLAGBITS EQUF 3,X10,S2 @ @@@@ELTTYPE EQUF 3,X1ID )@@G@@0,S3 @ @@@@DELETED EQUF 3,X10 @ @@@@VERSNAME EQUF 4,X1IE )@@G@@0 @C@@@@CYCLELIMIT EQUF 6,X10,T1 @C@@@@CURRENIF )@@G@@TCYCLE EQUF 6,X10,T2 @C@@@@CYCLENUMBER EQUFIG )@@G@@ 6,X10,T3 @C@@@@SYMSUBTYPE EQUF 7,X10,IH )@@G@@S1 @C@@@@TEXTLENGTH EQUF 7,X10,H2 @ @@@@PREAMBII )@@G@@LE EQUF 7,X10,H1 @ @@@@RELTEXT EQUF 7,X10,H2 @ @@@@TEXTLOIJ )@@G@@CN EQUF 8,X10 @ @@@@DATETIME EQUF 9,X10 @ @@@@IBANKLIK )@@G@@ EQUF 6,X10,H1 @ @@@@DBANKL EQUF 6,X10,H2 @#@@@@TYPES IL )@@G@@ 'ASMP&' @#@@@@ 'COBP&' @#@@@@ 'FORP&' @#@@@@ IM )@@G@@ 'REL &' @#@@@@ 'ABS &' @#@@@@M1 'SYM &' @#@@@@ IN )@@G@@ 'ELT &' @#@@@@ 'ASM &' @#@@@@ 'COB &' @#@@@@ IO )@@G@@ 'FOR &' @#@@@@ 'ALG &' @#@@@@ 'MAP &' @#@@@@ IP )@@G@@ 'DOC &' @#@@@@ 'SEC &' @#@@@@ 'SSG &' @#@@@@ IQ )@@G@@ 'APL &' @#@@@@ 'BAS &' @#@@@@ 'LSP &' @#@@@@ IR )@@G@@ 'PLS &' @#@@@@ 'RUN &' @#@@@@ 'ADD &' @#@@@@ IS )@@G@@ 'NOR &' @#@@@@ 'NRL &' @#@@@@ 'NPL &' @^@@@@MAXSYMIT )@@G@@ EQU $-M1@ @@@@N EQU $-TYPES @^@@@@ELTMASK + IU )@@G@@ 0D @^@@@@VERSMASK + 0D @[@@@@$(2) @^@@@@INFOR REIV )@@G@@S 28*5@ @@@@INFRLN EQU $-INFOR @A@@@@PFETL EQU IW )@@G@@ 140+10*1000 @ @@@@PFET RES PFETL @^@@@@STATWORD + IX )@@G@@ 0 @^@@@@ONCE + 1 @#@@@@CLIST 'TOC' @#@@@@IY )@@G@@ + 0 @#@@@@$(1) LIT @ @@@@TOC$* L,U A0,CIZ )@@G@@LIST @ @@@@ ER CLIST$ @B@@@@ LA A0,(JA )@@G@@INFRLN,INFOR) @ @@@@ LMJ X11,RINF$ @ @@@@ J JB )@@G@@ PROCER @^@@@@ E$DIT EPKT@ @@@@ E$FD1 JC )@@G@@ ('TOC') @^@@@@ E$SKIP 1 @ @@@@ E$FD1 ('01JD )@@G@@2J') @^@@@@ E$CHAR '-' @^@@@@ E$SKIP 1 @#@@@@JE )@@G@@ E$DAT1 @^@@@@ E$SKIP -3 @^@@@@ E$CHAR JF )@@G@@ '-' @#@@@@ E$TD @^@@@@ E$SKIP -3 @ @@@@ JG )@@G@@ E$COPY 3,SPCS @ @@@@ P$RINT PRINT1 @ @@@@ JH )@@G@@ . DECODE OPTIONS @D@@@@INITLOOP SZ A10 . LONGJI )@@G@@ LIST SWITCH@C@@@@ SZ A11 . TYPE MASK @D@@@@JJ )@@G@@ SZ A12 . DELETE MASK @C@@@@ SZJK )@@G@@ A8 . FORCE ALL @C@@@@ L A5,INFOR JL )@@G@@ . OPTIONS @ @@@@ LN,U A14,1 @A@@@@ TOJM )@@G@@P,U A5,OPT('T') @ @@@@ J LOOP0 @^@@@@ JN )@@G@@ SZ A14 @A@@@@ TEP,U A5,OPT('U') @D@@@@ JO )@@G@@ A,U A14,1*/0 . UNMARKED SYM @A@@@@ TEP JP )@@G@@ A5,(OPT('E')) @ @@@@ A,U A14,1*/1 @A@@@@ TEJQ )@@G@@P A5,(OPT('A')) @C@@@@ A,U A14,1*/2 . AJR )@@G@@SM @A@@@@ TEP A5,(OPT('C')) @B@@@@ A,U JS )@@G@@ A14,1*/3 . COB@A@@@@ TEP A5,(OPT('F')) @B@@@@JT )@@G@@ A,U A14,1*/4 . FOR@A@@@@ TEP,U A5,OJU )@@G@@PT('M') @B@@@@ A,U A14,1*/6 . MAP @A@@@@ JV )@@G@@ TEP,U A5,OPT('S') @ @@@@ A,U A14,1*/011@ @@@@JW )@@G@@ L A6,A5 @^@@@@ SZ A5 @A@@@@ JX )@@G@@ TEP A6,(OPT('D')) @A@@@@ A A5,(OPT('D')) JY )@@G@@@A@@@@ TEP,U A6,OPT('L') @A@@@@ A,U A5,OJZ )@@G@@PT('L') @A@@@@ TEP,U A6,OPT('X') @A@@@@ A,KA )@@G@@U A5,OPT('X') @A@@@@ A,U A5,OPT('S') @^@@@@KB )@@G@@ TNZ A14 @F@@@@ L A14,(0377777776640) . KC )@@G@@ALL BUT ABOVE TYPES @ @@@@ J LOOP01 @A@@@@LOOP0 KD )@@G@@ TOP,U A5,OPT('P') @^@@@@ J $+3 @A@@@@ KE )@@G@@ OR A5,(OPT('ARS')) @ @@@@ L A5,A6 @A@@@@KF )@@G@@LOOP01 TEP A5,(OPT('D')) @D@@@@ L,U A8,2 KG )@@G@@ . FORCE ALL ELTS @ @@@@ JNZ A8,$+3 @A@@@@ KH )@@G@@ TEP,U A5,OPT('X') @B@@@@ LA A12,(04000000000KI )@@G@@00) @A@@@@ TEP,U A5,OPT('S') @D@@@@ AA,U KJ )@@G@@ A11,036 . BITS 1 2 3 4 @A@@@@ TEP,U A5,OPT('R'KK )@@G@@) @C@@@@ AA,U A11,040 . BIT 5 @A@@@@ KL )@@G@@ TEP A5,(OPT('A')) @C@@@@ AA,U A11,0100 KM )@@G@@. BIT 6 @A@@@@ TEP A5,(OPT('E')) @E@@@@ AAKN )@@G@@,U A11,0200 . ENTRY POINT TABLE REQ @D@@@@ TNZ KO )@@G@@ A11 . ANYTHING SET? @E@@@@ LA,U A11,0176 KP )@@G@@ . NO, SET 1 2 3 4 5 6 @A@@@@ TEP,U A5,OPT('L') KQ )@@G@@@E@@@@ LA,U A10,1 . SET SWITCH IF SET @F@@@@KR )@@G@@ LX X9,(0100,010106) . CONTROL WORD FOR SINF$ @E@@@@KS )@@G@@ LX X8,(1,1) . CONTROL WORD FOR SELT$@E@@@@LOOP1 KT )@@G@@ LA,U A0,,*X8 . NEXT SPEC FROM SELT$ @ @@@@ LMKU )@@G@@J X11,SELT$ @F@@@@ J $+2 . NO FIND, CKV )@@G@@HECK FOR FIRST @C@@@@ J GOTONE . GOT A SPECKW )@@G@@@D@@@@ TNZ ONCE . BEEN HERE YET? @F@@@@ KX )@@G@@ J NXRQ . CLIST 'EM A CONTROL CARD @D@@@@ KY )@@G@@ DL A0,TPF . NO, USE TPF$ @E@@@@ DS KZ )@@G@@ A0,ELT$+4 . STICK INTO BUFFER @C@@@@ LA,U A0,4LA )@@G@@ . CHAR COUNT@ @@@@ SA,S2 A0,ELT$ @C@@@@GOTONELB )@@G@@ DL A0,FITEM . FOR DUSE$ @ @@@@ LMJ X11,LC )@@G@@DUSE$ @ @@@@ LA,U A0,',A ' @ @@@@ SA,H1 A0,FLD )@@G@@REE+1 @F@@@@ LA A0,(9,FITEM) . FOR FITEM - CHECK STATLE )@@G@@US @D@@@@ ER FITEM$ . SEE IF ASSIGNED @C@@@@LF )@@G@@ LA,S1 A0,FITEM+6 . FAC TYPE @D@@@@ JNZ LG )@@G@@ A0,CHECKIT . ALREADY ASSIGNED@F@@@@ LA,U A0,',AR' LH )@@G@@ . BLANK OUT 'A' OPTION ON FREE@ @@@@ SA,H1 A0,FREE+1 LI )@@G@@@C@@@@ LA,U A0,ASG . FOR CSF$ @D@@@@ ERLJ )@@G@@ CSF$ . DYNAMIC ASSIGN @G@@@@ JN A0,CLK )@@G@@SFERROR . ONLY CHECK FOR REJ, DISABLES LATER@C@@@@ LA LL )@@G@@ A0,(9,FITEM) . FAC STAT @ @@@@ ER FITEM$ @^@@@@LM )@@G@@CHECKIT E$DIT EPKT@ @@@@ E$FD2 FITEM+4 @^@@@@ LN )@@G@@ E$CHAR '*' @ @@@@ E$FD2 FITEM+2 @ @@@@ LALO )@@G@@,S1 A0,FITEM+6@C@@@@ TLE,U A0,040 . UPPER LIMIT TYPE LP )@@G@@@D@@@@ TLE,U A0,030 . LOWER LIMIT @ @@@@ LQ )@@G@@ J BADEQUIP @D@@@@ LA,S2 A0,FITEM+6 . DISALR )@@G@@BLE BITS @D@@@@ AND,U A0,022 . READ I