@CAT,P 1000-001-001.,///10000 @ASG,T TEMP.,F///10000 @ELT,OI TEMP.1000-001-001,,,127656053241,000 )@@G@@**PF**@@@@+U@@@@@@@@@@@[@]%@@@]FE /^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@#AN )@@G@@RWDUMP @@@@@@@@[@@] @ @[@]]@@@#C@@@@W@F">BL RWDUMP AO )@@G@@@@@@@@@@ @@# @@@@Z$@@#@@Z@@@@ZCF"?BL RWDUMP @@@@@@@@A@@@AP )@@G@@ @,?['I@@@@]0@@@@Z%F"\BL ION SKIP TESTS @D@@@@ L AQ )@@G@@ A3,0,X11,C3 . LOAD DEFN LEVEL @E@@@@ TLE,I A3,2 AR )@@G@@ . IS DEFN LEVEL LESS THAN TWO @B@@@@ J $+3 AS )@@G@@ . YES @F@@@@ SNZ DLMSW3 . NO, DELETE DEFN EAT )@@G@@NTRY IF ANY @A@@@@ J DLMN9A .@E@@@@ TZ AU )@@G@@ DLMPS2 . IF PASS2 ON ALL LEVELS @D@@@@ SNZ DLMAV )@@G@@SW2 . SET FOR REF ENTRY@C@@@@DLMN9A AW )@@G@@ . CONTINUE @E@@@@ DO DICT , PROC . ASSEMBLE REAX )@@G@@GULAR CODE @E@@@@ END . TEMPORARY END CARAY )@@G@@D @[@@@@. @A@@@@-7100,7100 . 06/03/70 LEVEL 10F @E@@@@ AZ )@@G@@ DO DICT ,; . ASSEMBLE FOR CRDICT @C@@@@N9C JSR BA )@@G@@ S7,DLMN5 . NOT IN GSI @E@@@@ DO NODICT ,; BB )@@G@@ . ASSEMBLE REGULAR CODE @C@@@@N9C JSR S7,N5 .BC )@@G@@ NOT IN GSI @A@@@@-7105,7105 . 06/03/70 LEVEL 10F @E@@@@ DO DIBD )@@G@@CT , ; . ASSEMBLE FOR CRDICT @B@@@@ J DLMBE )@@G@@N5 . YES @E@@@@ DO NODICT , ; . ASSEMBF )@@G@@BLE REGULAR CODE @B@@@@ J N5 . YES @A@@@@BG )@@G@@-7133,7133 . 06/03/70 LEVEL 10F @[@@@@. @G@@@@ DO NODICT ,BH )@@G@@ PROC . ASSEMBLE CRDICT CODE IF DESIRED @C@@@@ S BI )@@G@@ A4,DLMEX1 . SAVE A4 @C@@@@ S A5,DLMEX2 BJ )@@G@@ . SAVE A5 @E@@@@ L A4,0,A1 . LOAD COMPARBK )@@G@@ISON WORD @B@@@@ S A4,DLMSNW . STORE@C@@@@ BL )@@G@@ L A4,0,A1,C2 . LOAD TYPE @F@@@@ TDLME A4 BM )@@G@@ . IS THERE A DEFN ENTRY BIT @D@@@@ AN,I A4,020 BN )@@G@@ . YES, SUBTRACT IT @D@@@@ AND,I A4,037 .BO )@@G@@ BELAY DUP BIT @C@@@@ TNE,I A5,1 . TYPE 1 BP )@@G@@@D@@@@ A,I A4,017 . BECOMES TYPE 020 @C@@@@ BQ )@@G@@ TNE,I A5,2 . TYPE 2 @D@@@@ A,I A4,021 BR )@@G@@ . BECOMES TYPE 023 @C@@@@ TNE,I A5,6 .BS )@@G@@ TYPE 6 @D@@@@ A,I A4,020 . BECOMES TYPE 026 BT )@@G@@@C@@@@ TNE,I A5,015 . TYPE 015 @D@@@@ A,I BU )@@G@@ A4,017 . BECOMES TYPE 034 @E@@@@ S,C2 A4,DLMSNWBV )@@G@@ . STORE TRANSLATED TYPE @C@@@@ L A4,DLMEX1 BW )@@G@@ . RESTORE A4 @C@@@@ L A5,DLMEX2 . RESTORE A5 BX )@@G@@@E@@@@ MSE A3,DLMSNW . COMPARE MASKED TYPES @E@@@@BY )@@G@@ DO DICT , PROC . ASSEMBLE REGULAR CODE @E@@@@ BZ )@@G@@ END . TEMPORARY END CARD @[@@@@. @E@@@@CA )@@G@@ DO NODICT , ; . ASSEMBLE REGULAR CODE @E@@@@ CB )@@G@@ MSE A3,0,A1 . COMPARE MASKED TYPES @[@@@@. @A@@@@CC )@@G@@-7244 . 06/03/70 LEVEL 10F @[@@@@. @G@@@@ DO NODICT ,CD )@@G@@ PROC . ASSEMBLE CRDICT CODE IF DESIRED @E@@@@ TNODOCE )@@G@@P DLMFSA . SKIP IF NO DICT WANTED @G@@@@ TNZ DLMCF )@@G@@IFC . DICT WANTED. SKIP IF ITEM FOUND @E@@@@ J CG )@@G@@ DLMFSI . HAS NO DEFN. ENTRY @G@@@@ A,I A3,CH )@@G@@01 . OTHERWISE -1 TO EFFECTIVE LENGTH @E@@@@ TZ CI )@@G@@ DLMSW3 . IF DE IS TO BE DELETED @G@@@@ AN,I A3,CJ )@@G@@1 . THE EXTRA WORD COUNTS. ADD IT ON @F@@@@ J CK )@@G@@ DLMFSA . OTHERWISE SKIP TO DLMFSA @G@@@@DLMFSI TZ CL )@@G@@ DLMSW1 . IF A DEFN ENTRY IS TO BE CREATED @F@@@@ CM )@@G@@ A,I A3,01 . WE NEED AN EXTRA WORD FOR IT @C@@@@DLMFSACN )@@G@@ . CONTINUE @E@@@@ DO DICT , PROC CO )@@G@@ . ASSEMBLE REGULAR CODE @E@@@@ END CP )@@G@@ . TEMPORARY END CARD @[@@@@. @A@@@@-7248 . 06/03/7CQ )@@G@@0 LEVEL 10F @[@@@@. @G@@@@ DO NODICT , PROC . ASSEMCR )@@G@@BLE CRDICT CODE IF DESIRED @E@@@@ TNODOP DLMFSB .CS )@@G@@ SKIP IF NO DICT WANTED @[@@@@. @G@@@@ SZ DLMSV2 CT )@@G@@ . DLMSV2 WILL CONTAIN THE DEFN ENTRY @F@@@@ TNZ DLMIFC CU )@@G@@ . IF NO DEFN ENTRY, FORGET IT @A@@@@ J DLMFSB CV )@@G@@ .@E@@@@ LN A0,0,X10,C1 . PICK UP DEFN ENTRCW )@@G@@Y @A@@@@ OR,I A0,040 .@A@@@@ L A0,CX )@@G@@A1 .@A@@@@ A A0,X10 .@A@@@@ CY )@@G@@ A,I A0,1 .@A@@@@ L A1,0,A0 .CZ )@@G@@@D@@@@ S A1,DLMSV2 . SAVE DEFN ENTRY @C@@@@DLMFSBDA )@@G@@ . CONTINUE @E@@@@ DO DICT , PROC DB )@@G@@ . ASSEMBLE REGULAR CODE @E@@@@ END DC )@@G@@ . TEMPORARY END CARD @[@@@@. @A@@@@-7262 . 06/03/7DD )@@G@@0 LEVEL 10F @[@@@@. @E@@@@ DO DICT , ; . ASSEMDE )@@G@@BLE CRDICT CODE @A@@@@ SZ DLMIFC .@[@@@@. DF )@@G@@@A@@@@-7271,7271 . 01/02/70 LEVEL 10D @[@@@@. @E@@@@ DO DIDG )@@G@@CT , ; . ASSEMBLE CRDICT CODE @A@@@@ J DLMDH )@@G@@SRC .@[@@@@. @E@@@@ DO NODICT , ; .DI )@@G@@ ASSEMBLE REGULAR CODE @A@@@@ J IS1 .@A@@@@DJ )@@G@@-7282,7282 . 06/03/70 LEVEL 10F @[@@@@. @G@@@@ DO NODICT ,DK )@@G@@ PROC . ASSEMBLE CRDICT CODE IF DESIRED @F@@@@DLMSRC TZ DL )@@G@@ DLMIFC . IF THERE IS A DEFN ENTRY @E@@@@ TNZ DM )@@G@@ DLMPS2 . AND PASS2 ON ALL LEVELS@A@@@@ J IS1DN )@@G@@ .@E@@@@ TNODOP IS1 . IF NO D OP DO )@@G@@JUST MOVE @F@@@@ LMJ X3,DLMREF . THEN CREATE A REFDP )@@G@@ERENCE ENTRY@D@@@@ L,U A3,*DLMSV1 . LOAD STATUS BITS DQ )@@G@@@F@@@@ TOP A3,(0400000) . WAS THIS DEFINED IN A PROC DR )@@G@@@B@@@@ J IS1 . NO @F@@@@ L A2,DS )@@G@@LV . YES,IS THE REF AT LEVEL ONE @A@@@@ TG,I A2,DT )@@G@@2 .@B@@@@ J IS1 . NO @F@@@@DU )@@G@@ AND A3,(0377777) . YES,KEEP THIS DE CATALOGUED @A@@@@DV )@@G@@ S,U A4,*DLMSV1 .@C@@@@IS1 L A2,0,X10,C2 DW )@@G@@ . LOAD TYPE @E@@@@ TDLMO A2 . IS THERE A DX )@@G@@DEFN ENTRY @D@@@@ J DLMSMO . NO DEFN ENTRY DY )@@G@@@A@@@@ AND,I A3,037 .@A@@@@ L A3,A4 DZ )@@G@@ .@E@@@@ L A3,0,X10,C1 . YES, LOAD ITEM LEEA )@@G@@NGTH @C@@@@ AN,I A3,1 . DECREMENT @D@@@@ EB )@@G@@ S A3,0,X10,C1 . STORE ITEM LENGTH@F@@@@DLMSMO MO A0,EC )@@G@@X10,0,L A1,X11,0,L 0,X10,C1 0 . MOVE FIND ITEM @A@@@@ TDLMO A2 ED )@@G@@ .@A@@@@ J DLMIS1 .@G@@@@ EE )@@G@@ A,I A3,1 . RESTORE ITEM LENGTH IF CHANGED @A@@@@EF )@@G@@ S A3,0,X10,C1 .@F@@@@ AN,I A2,020 EG )@@G@@ . SUBTRACT DEFN ENTRY BIT OFF @D@@@@DLMIS1 AND,I A2,037 EH )@@G@@ . BELAY DUP BIT @C@@@@ TNE,I A3,01 . TYPE EI )@@G@@1 @D@@@@ A,I A2,017 . BECOMES TYPE 020 @C@@@@EJ )@@G@@ TNE,I A3,02 . TYPE 2 @D@@@@ A,I A2,EK )@@G@@021 . BECOMES TYPE 023 @C@@@@ TNE,I A3,06 EL )@@G@@ . TYPE 6 @D@@@@ A,I A2,020 . BECOMES TYPEM )@@G@@E 026 @C@@@@ TNE,I A3,015 . TYPE 015 @D@@@@ EN )@@G@@ A,I A2,017 . BECOMES TYPE 034 @E@@@@ S A2,EO )@@G@@0,X11,C2 . STORE CORRECTED TYPE @E@@@@ DO DICT , PROC EP )@@G@@ . ASSEMBLE REGULAR CODE @E@@@@ END EQ )@@G@@ . TEMPORARY END CARD @[@@@@. @E@@@@ DO NODICT ,; ER )@@G@@ . ASSEMBLE FOR REGULAR @F@@@@IS1 MO A0,X10,0,L A1,XES )@@G@@11,0,L 0,X10,C1 0 . MOVE FIND ITEM @A@@@@-7311,7311 . 06/03/70 LEVEET )@@G@@L 10F @[@@@@. @G@@@@ DO NODICT , PROC . ASSEMBLE CREU )@@G@@DICT CODE IF DESIRED @G@@@@ SZ DLMSW1 . SET FEV )@@G@@OR NO DEFN ENTRY CREATION @F@@@@ TNODOP DLMMTX .EW )@@G@@ IF NO D OPTION SKIP TESTS @F@@@@ TNZ DLMPS1 .EX )@@G@@ IF EITHER PASS1 ON ALL LEVELS@E@@@@ TZ DLMPS2 .EY )@@G@@ OR PASS2 ON ALL LEVELS @G@@@@ J $+2 . THEN EZ )@@G@@SET FOR DEFN ENTRY CREATION @A@@@@ J DLMMTX .FA )@@G@@@C@@@@ SNZ DLMSW1 . SET IT @D@@@@ SZ FB )@@G@@ 0,A3 . FOR DEFN ENTRY @F@@@@ L,L A3,NEXT FC )@@G@@ . BUMP NEXT FOR EXTRA WORD @A@@@@ AN,I A3,1 FD )@@G@@ .@A@@@@ S,L A3,NEXT .@A@@@@ TLE,LFE )@@G@@H A3,NEXT .@D@@@@ J TOF . TABLEFF )@@G@@ OVERFLOW @C@@@@DLMMTX MTX A0,X11,0,L A1,X10,0,L 0,X11,C1 . @F@@@@FG )@@G@@ L,I A3,02 . TYPE 023 BECOMES TYPE 02 @A@@@@FH )@@G@@ S A3,0,X10,C2 .@E@@@@ TNZ DLMSW1 FI )@@G@@ . IS THERE A DEFN ENTRY @B@@@@ J IS3+1 .FJ )@@G@@ NO @E@@@@ L A3,0,X10,T1 . YES, BUMP ITEM LENGTH FK )@@G@@@E@@@@ A,I A3,0120 . AND SET DEFN ENTRY BIT @A@@@@FL )@@G@@ S A3,0,X10,T1 .@E@@@@ TNODOP IS3+1 FM )@@G@@ . IF NO D OP SKIP OT @E@@@@ TZ DLMPS2 .FN )@@G@@ IF PASS2 ON ALL LEVELS @D@@@@ LMJ X3,DLMREF . DEFINFO )@@G@@E REF ENTRY @A@@@@ J IS3+1 .@E@@@@ DO DIFP )@@G@@CT , PROC . ASSEMBLE REGULAR CODE @E@@@@ END FQ )@@G@@ . TEMPORARY END CARD @[@@@@. @E@@@@ DO NOFR )@@G@@DICT , ; . ASSEMBLE REGULAR CODE @F@@@@ MTX A0,FS )@@G@@X11,0,L A1,X10,0,L 0,X11 0003 I 000046 KCOMMA 0003 000016 KD FT )@@G@@ 0003 000057 KDASH @O@[@@ 0003 000001 KDIG 0003 000056 FU )@@G@@KDOLAR 0002 I 005611 KD15 0003 000017 KE 0003 I 000045 FV )@@G@@KEQ @O@[@@ 0003 000064 KERM 0003 000020 KF 0003 0FW )@@G@@00021 KG 0003 000022 KH 0003 000023 KI @O@[@@ 00FX )@@G@@02 003130 KIM 0003 000024 KJ 0003 000025 KK 00FY )@@G@@03 000026 KL 0003 000063 KLR2 @O@[@@ 0003 000027 KM FZ )@@G@@ 0003 000053 KMINUS 0003 000030 KN 0003 000031 KO GA )@@G@@ 0003 000047 KOPEN @O@[@@ 0002 000450 KOUT 0003 000032 GB )@@G@@KP 0003 I 000055 KPERD 0003 000052 KPLUS 0003 000033 GC )@@G@@KQ @O@[@@ 0003 000060 KQUOTE 0003 000034 KR 0003 0GD )@@G@@00035 KS 0003 000050 KSLASH 0003 I 000045 KSPK @O@[@@ 00GE )@@G@@03 000054 KSTAR 0003 000036 KT 0004 I 000000 KTRL 00GF )@@G@@03 000037 KU 0003 000040 KV @O@[@@ 0003 000041 KW GG )@@G@@ 0003 000042 KX 0003 000043 KY 0003 000044 KZ GH )@@G@@ 0003 000001 K0 @O@[@@ 0002 005613 LAST 0002 005614 GI )@@G@@LCPY 0002 I 005615 LDEF 0005 L 000002 LDIAG 0002 I 010551 GJ )@@G@@LDO @O@[@@ 0002 010602 LFIR 0005 000003 LINE 0005 0GK )@@G@@00004 LOPT 0002 010603 LQUAL 0002 010604 LREF @O@[@@ 00GL )@@G@@02 I 005612 L772 0002 I 012554 MCOL 0002 012555 MEOF 00GM )@@G@@02 I 012556 MEX 0002 012557 MILDO @O@[@@ 0002 012560 MLGC GN )@@G@@ 0002 012561 MP2 0002 I 012562 MSTOP 0002 012563 MTRAN GO )@@G@@ 0002 012564 NBLC @O@[@@ 0002 012565 NCD 0002 012566 GP )@@G@@NCDO 0002 012567 NDEF 0002 012570 NDOL 0002 012571 GQ )@@G@@NDOS @O@[@@ 0002 012572 NINS 0002 012573 NPAR 0002 0GR )@@G@@12574 NPUN 0002 012575 NREC 0002 012576 NREF @O@[@@ 00GS )@@G@@02 012577 NRT1 0002 012600 NRT2 0005 L 000005 NSTART 00GT )@@G@@02 012601 NTEMP 0002 012606 NXEQ @O@[@@ 0002 003130 OUTPUTGU )@@G@@ 0002 012607 PAREN 0002 012610 PNEXT 0005 L 000006 RIGHT GV )@@G@@ 0005 L 000007 RSTART@G@[@@ 0005 000010 SOPT 0005 L 000011 GW )@@G@@SOURCE 0006 I 000004 USE @@@^@@@K@[@@00101 1* SUBROUTINGX )@@G@@E CONTRL CON00010 @K@[@@GY )@@G@@00101 2* C GZ )@@G@@ CON00020 @K@[@@00101 3* C THIS SUBROUTINE EXECUHA )@@G@@TES THE TIDY CONTROL STATEMENTS. CON00030 @K@[@@00101 4*HB )@@G@@ C ALL TIDY CONTROL STATEMENTS MUST HAVE AN * PUNCHED IN COLUMN 1.HC )@@G@@ CON00040 @K@[@@00101 5* C HD )@@G@@ CON00050 @K@[@@00101 6* C 1 HE )@@G@@ BASE ====== KB15 CON00060 HF )@@G@@@K@[@@00101 7* C 2 COLL NOCOLL MCOL HG )@@G@@ CON00070 @K@[@@00101 8* C 3 EXEM NOEXEHH )@@G@@M MEX CON00080 @K@[@@00101 HI )@@G@@ 9* C 4 LAST ====== MSTOP HJ )@@G@@ CON00090 @K@[@@00101 10* C 5 LEFT ====== .NOT.RIGHK )@@G@@HT CON00100 @K@[@@00101 11* C HL )@@G@@ 6 LIST ====== JOUT=101 CONHM )@@G@@00110 @K@[@@00101 12* C 7 RIGH ====== RIGHT HN )@@G@@ CON00120 @K@[@@00101 13* C 8 STAT HO )@@G@@ ====== KD15 CON00130 @K@[@@HP )@@G@@00101 14* C 9 STOP ====== MSTOP HQ )@@G@@ CON00140 @K@[@@00101 15* C HR )@@G@@ CON00150 @K@[@@00103 16*HS )@@G@@ INCLUDE TIDY, LIST HT )@@G@@ CON00160 @K@[@@00104 16* IMPLICIT INTEGER (A-Z) HU )@@G@@ PRO00020 @K@[@@00105 16* PARHV )@@G@@AMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PRO00030 HW )@@G@@@K@[@@00106 16* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DHX )@@G@@O LOOPS PRO00040 @K@[@@00107 16* PARAMETER MAXCHHY )@@G@@S=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@00110 HZ )@@G@@ 16* PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMENT NUMIA )@@G@@BERS PRO00060 @K@[@@00111 16* COMMON ICOL, IFIR, INPUT(14IB )@@G@@,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 16* IC )@@G@@ 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), PROID )@@G@@00080 @K@[@@00111 16* 2 LDO(DOS), LFIR, LQUAL, LREF(1000IE )@@G@@), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@00111 16* 3 MLIF )@@G@@GC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 @K@[@@IG )@@G@@00111 16* 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRIH )@@G@@T2, NTEMP(5), PRO00110 @K@[@@00111 16* 5 NXEQ, PAREN, PII )@@G@@NEXT PRO00120 @K@[@@00112 16*IJ )@@G@@ DIMENSION KIM(CRDLNG,20) IK )@@G@@ PRO00130 @K@[@@00113 16* DIMENSION KOUT(CRDLNG,20) IL )@@G@@ PRO00140 @K@[@@00114 16* DIMIM )@@G@@ENSION OUTPUT(12,20) PRO00150 IN )@@G@@@K@[@@00115 16* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) IO )@@G@@ PRO00160 @K@[@@00116 16* EQUIVALENCE (KDIP )@@G@@IG(1),K0) PRO00170 @K@[@@00117 IQ )@@G@@ 16* EQUIVALENCE (IOUT,KOUT) IR )@@G@@ PRO00180 @K@[@@00120 16* EQUIVALENCE (JINT,KIM) IS )@@G@@ PRO00190 @K@[@@00121 16* IT )@@G@@ EQUIVALENCE (JINT,OUTPUT) PROIU )@@G@@00200 @K@[@@00122 16* DEFINE DLOC(X)=FLD(0,18,LDEF(X)) IV )@@G@@ PRO00210 @K@[@@00123 16* DEFINE DSIW )@@G@@TMT(X)=FLD(18,18,LDEF(X)) PRO00220 @K@[@@IX )@@G@@00124 16* DEFINE LDOS(X)=FLD(0,18,LDO(X)) IY )@@G@@ PRO00230 @K@[@@00125 16* DEFINE LDOL(X)=FLD(18IZ )@@G@@,18,LDO(X)) PRO00240 @K@[@@00125 16*JA )@@G@@ END JB )@@G@@ PRO00250 @K@[@@00126 17* INCLUDE ALPHA, LIST JC )@@G@@ CON00170 @K@[@@00127 17* COMJD )@@G@@MON /ALPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 JE )@@G@@@K@[@@00127 17* 1 KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,JF )@@G@@KW,KX,KY,KZ, PRO00280 @K@[@@00127 17* 2 JG )@@G@@KEQ,KCOMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 @K@[@@00127 JH )@@G@@ 17* 3 KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2,KEJI )@@G@@RM PRO00300 @K@[@@00130 17* DIMENSION KABC(26), KSPK(14JJ )@@G@@) PRO00310 @K@[@@00131 17* JK )@@G@@ EQUIVALENCE (KABC,KA), (KSPK,KEQ) PROJL )@@G@@00320 @K@[@@00131 17* END JM )@@G@@ PRO00330 @K@[@@00132 18* INCLUDE CJN )@@G@@ONTDY, LIST CON00180 @K@[@@JO )@@G@@00133 18* PARAMETER NKTRL=9 JP )@@G@@ PRO00350 @K@[@@00134 18* COMMON /CONTDY/ KTRL(JQ )@@G@@4,NKTRL) PRO00360 @K@[@@00135 18*JR )@@G@@ PARAMETER CBASE=1 @ KTRL INDEX FOR BASE CONTROL STATEMENT JS )@@G@@ PRO00370 @K@[@@00135 18* END JT )@@G@@ PRO00380 @K@[@@00136 19* INCJU )@@G@@LUDE INIT, LIST CON00190 JV )@@G@@@K@[@@00137 19* COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOPT,NSTJW )@@G@@ART,RIGHT,RSTART, PRO00440 @K@[@@00137 19* 1 SJX )@@G@@OPT,SOURCE,DHDG PRO00450 @K@[@@00140 JY )@@G@@ 19* LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCE JZ )@@G@@ PRO00460 @K@[@@00141 19* LOGICAL RIGHT KA )@@G@@ PRO00470 @K@[@@00141 19* ENKB )@@G@@D PROKC )@@G@@00480 @K@[@@00142 20* INCLUDE TAPES, LIST KD )@@G@@ CON00200 @K@[@@00142 21* C KE )@@G@@ CON00210 @K@[@@KF )@@G@@00142 22* C KG )@@G@@ CON00220 @K@[@@00143 22* COMMON /TAPES/ IO1, IKH )@@G@@O2, JALTFD, JOUT, USE (10) PRO00680 @K@[@@00144 22*KI )@@G@@ PARAMETER STDRD=5 @ STANDARD READ UNIT KJ )@@G@@ PRO00690 @K@[@@00145 22* PARAMETER STDPRT=6 @ STANDARD PRIKK )@@G@@NT UNIT PRO00700 @K@[@@00146 22* PARKL )@@G@@AMETER STDALT=101 @ STANDARD ALTERNATE PRINT UNIT PRO00710 KM )@@G@@@K@[@@00146 22* END KN )@@G@@ PRO00720 @K@[@@00147 23* I=14 KO )@@G@@ CON00230 @K@[@@00150 KP )@@G@@ 24* JSW=0 KQ )@@G@@ CON00240 @K@[@@00151 25* JL=JMAX-1 KR )@@G@@ CON00250 @K@[@@00152 26* KS )@@G@@ DO 30 JB=2,JL CONKT )@@G@@00260 @K@[@@00155 27* IF (JINT(JB)-KBL) 10,30,10 KU )@@G@@ CON00270 @K@[@@00160 28* 10 IF (JINT(KV )@@G@@JB)-KABC(I)) 50,20,50 CON00280 @K@[@@KW )@@G@@00163 29* 20 I=I+1 KX )@@G@@ CON00290 @K@[@@00164 30* IF (I-16) 30,40,40 KY )@@G@@ CON00300 @K@[@@00167 31*KZ )@@G@@ 30 CONTINUE LA )@@G@@ CON00310 @K@[@@00171 32* RETURN LB )@@G@@ CON00320 @K@[@@00171 33* C LC )@@G@@ CON00330 LD )@@G@@@K@[@@00172 34* 40 JSW=NKTRL LE )@@G@@ CON00340 @K@[@@00173 35* JB=JB+1 LF )@@G@@ CON00350 @K@[@@00174 LG )@@G@@ 36* 50 DO 90 J=1,NKTRL LH )@@G@@ CON00360 @K@[@@00177 37* I=0 LI )@@G@@ CON00370 @K@[@@00200 38* LJ )@@G@@ DO 80 JCOL=JB,JMAX CONLK )@@G@@00380 @K@[@@00203 39* IF (JINT(JCOL)-KBL) 60,80,60 LL )@@G@@ CON00390 @K@[@@00206 40* 60 I=I+1 LM )@@G@@ CON00400 @K@[@@LN )@@G@@00207 41* IF (JINT(JCOL)-KTRL(I,J)) 90,70,90 LO )@@G@@ CON00410 @K@[@@00212 42* 70 IF (I-4) 80,110,110 LP )@@G@@ CON00420 @K@[@@00215 43*LQ )@@G@@ 80 CONTINUE LR )@@G@@ CON00430 @K@[@@00217 44* 90 CONTINUE LS )@@G@@ CON00440 @K@[@@00221 45* 100 RETLT )@@G@@URN CON00450 LU )@@G@@@K@[@@00221 46* C LV )@@G@@ CON00460 @K@[@@00221 47* C EXECUTE CONTROLLW )@@G@@ STATEMENT CON00470 @K@[@@00221 LX )@@G@@ 48* C LY )@@G@@ CON00480 @K@[@@00222 49* 110 JSW=JSW+J LZ )@@G@@ CON00490 @K@[@@00222 50* C MA )@@G@@ 1 2 3 4 5 6 7 8 9 CONMB )@@G@@00500 @K@[@@00223 51* GO TO (170,120,130,140,230,240,220,170,MC )@@G@@140, CON00510 @K@[@@00223 52* 1 10MD )@@G@@0,150,160,100,100,100,100,100,100), JSW CON00520 @K@[@@ME )@@G@@00224 53* 120 MCOL=-1 MF )@@G@@ CON00530 @K@[@@00225 54* RETURN MG )@@G@@ CON00540 @K@[@@00226 55*MH )@@G@@ 130 MEX=-1 MI )@@G@@ CON00550 @K@[@@00227 56* RETURN MJ )@@G@@ CON00560 @K@[@@00230 57* 140 MSTMK )@@G@@OP=-1 CON00570 ML )@@G@@@K@[@@00231 58* RETURN MM )@@G@@ CON00580 @K@[@@00232 59* 150 MCOL=0 MN )@@G@@ CON00590 @K@[@@00233 MO )@@G@@ 60* RETURN MP )@@G@@ CON00600 @K@[@@00234 61* 160 MEX=0 MQ )@@G@@ CON00610 @K@[@@00235 62* MR )@@G@@ RETURN CONMS )@@G@@00620 @K@[@@00235 63* C MT )@@G@@ CON00630 @K@[@@00235 64* C GET NUMBEMU )@@G@@R FOLLOWING (=) SIGN. CON00640 @K@[@@MV )@@G@@00235 65* C MW )@@G@@ CON00650 @K@[@@00236 66* 170 DO 180 JCOL=JCOL,JMAXMX )@@G@@ CON00660 @K@[@@00241 67*MY )@@G@@ IF (JINT(JCOL)-KSPK(1)) 180,190,180 MZ )@@G@@ CON00670 @K@[@@00244 68* 180 CONTINUE NA )@@G@@ CON00680 @K@[@@00246 69* 190 JCONB )@@G@@L=JCOL+1 CON00690 NC )@@G@@@K@[@@00247 70* CALL RSTAT ND )@@G@@ CON00700 @K@[@@00250 71* IF (JSW.EQ.CBASNE )@@G@@E) GO TO 200 CON00710 @K@[@@00252 NF )@@G@@ 72* IF (L772.LE.0) L772=10 @ DEFAULT TO STATEMENT INCREMNG )@@G@@ENT OF 10CON00720 @K@[@@00254 73* GO TO 210 NH )@@G@@ CON00730 @K@[@@00255 74* 200NI )@@G@@ KB15=L772 CONNJ )@@G@@00740 @K@[@@00256 75* RETURN NK )@@G@@ CON00750 @K@[@@00257 76* 210 KD15=L772NL )@@G@@ CON00760 @K@[@@NM )@@G@@00260 77* RETURN NN )@@G@@ CON00770 @K@[@@00261 78* 220 RIGHT=.TRUE. NO )@@G@@ CON00780 @K@[@@00262 79*NP )@@G@@ RETURN NQ )@@G@@ CON00790 @K@[@@00263 80* 230 RIGHT=.FALSE. NR )@@G@@ CON00800 @K@[@@00264 81* RETNS )@@G@@URN CON00810 NT )@@G@@@K@[@@00264 82* C NU )@@G@@ CON00820 @K@[@@00264 83* C CHANGE PRINT FINV )@@G@@LE CON00830 @K@[@@00264 NW )@@G@@ 84* C NX )@@G@@ CON00840 @K@[@@00265 85* 240 IF (JOUT.EQ.STDPRT) GO TO 2NY )@@G@@50 CON00850 @K@[@@00267 86* NZ )@@G@@ CALL CLOSE (STDALT,0) @ CLOSE PREVIOUS PRINT CONOA )@@G@@00860 @K@[@@00270 87* USE(1)='@FREE,' OB )@@G@@ CON00870 @K@[@@00271 88* USE(2)='AOC )@@G@@ ' CON00880 @K@[@@OD )@@G@@00272 89* USE(3)=JALTFD OE )@@G@@ CON00890 @K@[@@00273 90* CALL CSFD (USE) OF )@@G@@ @ FREE USE NAME FROM PREVIOUS PRINT CON00900 @K@[@@00274 91*OG )@@G@@ JOUT=STDPRT OH )@@G@@ CON00910 @K@[@@00275 92* 250 DO 260 JCOL=JCOL,JMAX OI )@@G@@@ GET = CON00920 @K@[@@00300 93* 260 IF OJ )@@G@@(JINT(JCOL).EQ.KEQ) GO TO 270 CON00930 OK )@@G@@@K@[@@00303 94* RETURN OL )@@G@@ CON00940 @K@[@@00304 95* 270 IF (JCOL.EQ.JMAOM )@@G@@X) RETURN @ NO FILE NAME FOLLOWS = CON00950 @K@[@@00306 ON )@@G@@ 96* DO 280 JB=2,11 OO )@@G@@ CON00960 @K@[@@00311 97* 280 USE(JB)=KBL OP )@@G@@ @ CLEAR QUAL*FILE CON00970 @K@[@@00313 98* OQ )@@G@@ JCOL=JCOL+1 CONOR )@@G@@00980 @K@[@@00314 99* DO 290 JCOL=JCOL,JMAX @ GET FIRST NON-OS )@@G@@BLANK COLUMN RIGHT OF = CON00990 @K@[@@00317 100* 290 IF (JINT(OT )@@G@@JCOL).NE.KBL) GO TO 300 CON01000 @K@[@@OU )@@G@@00322 101* RETURN OV )@@G@@ CON01010 @K@[@@00323 102* 300 JB=JMAX-JCOL+1 OW )@@G@@ @ NUMBER OF CHARACTERS CON01020 @K@[@@00324 103*OX )@@G@@ IF (JB.GT.48) JB=48 OY )@@G@@ CON01030 @K@[@@00326 104* CALL CHPACK (JINT(JCOL),1,USE(3),OZ )@@G@@1,JB) @ PACK QUAL*FILE CON01040 @K@[@@00327 105* FLDPA )@@G@@(6,6,USE(11))=FLD(0,6,KPERD) CON01050 PB )@@G@@@K@[@@00330 106* USE(1)='@ASG,X' PC )@@G@@ CON01060 @K@[@@00331 107* CALL ASSIGN (USPD )@@G@@E,JB,0,$310) CON01070 @K@[@@00332 PE )@@G@@ 108* USE(1)='@USE ' PF )@@G@@ CON01080 @K@[@@00333 109* USE(2)=JALTFD PG )@@G@@ CON01090 @K@[@@00334 110* PH )@@G@@ FLD(30,6,USE(2))=FLD(0,6,KCOMMA) CONPI )@@G@@01100 @K@[@@00335 111* CALL CSFD (USE) PJ )@@G@@ CON01110 @K@[@@00336 112* JOUT=STDAPK )@@G@@LT CON01120 @K@[@@PL )@@G@@00337 113* 310 RETURN PM )@@G@@ CON01130 @K@[@@00337 114* C PN )@@G@@ CON01140 @K@[@@00340 115*PO )@@G@@ END PP )@@G@@ CON01150 @D@]@@ END OF COMPILATION: NO DIAGNOSTICS. PQ )@@G@@@^@^@@@HDG,P COPY 0A 97* H, ,1, COPY . @]_PR )@@G@@@^__@@@FOR,S COPY,COPY @E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON PS )@@G@@27 AUG 72 AT 19:27:13. @@@[@@@@@[@@@B@[@@ SUBROUTINE COPY ENTRY PT )@@G@@POINT 000173@@@[@@@G@]@@ STORAGE USED: CODE(1) 000176; DATA(0) 000020;PU )@@G@@ BLANK COMMON(2) 012611 @#@]@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 APV )@@G@@LPHA 000065@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 00PW )@@G@@04 DIAGNO @#@[@@ 0005 NERR3$ @F@#@@ STORAGE ASSIGNMENT (BLOCK,PX )@@G@@ TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 000015 10L PY )@@G@@ 0001 000152 100L 0001 000154 110L 0001 000161 120L PZ )@@G@@ 0001 000020 20L @O@[@@ 0001 000073 30L 0001 000101 QA )@@G@@40L 0001 000103 50L 0001 000117 60L 0001 000136 QB )@@G@@70L @O@[@@ 0001 000144 80L 0001 000147 90L 0000 I 0QC )@@G@@00002 ERR 0002 I 000000 ICOL 0002 000001 IFIR @O@[@@ 00QD )@@G@@00 000011 INJP$ 0002 000002 INPUT 0002 I 000450 IOUT 00QE )@@G@@02 I 003127 JCOL 0002 I 003130 JINT @O@[@@ 0002 005607 JMAX QF )@@G@@ 0003 000013 KA 0003 000013 KABC 0003 000061 KAND QG )@@G@@ 0003 I 000062 KAT @O@[@@ 0003 000014 KB 0003 I 000000 QH )@@G@@KBL 0000 000003 KBUFF 0000 000003 KB1 0002 005610 QI )@@G@@KB15 @O@[@@ 0000 000010 KB6 0003 000015 KC 0003 I 0QJ )@@G@@00051 KCLOSE 0003 000046 KCOMMA 0003 000016 KD @O@[@@ 00QK )@@G@@03 000057 KDASH 0003 000001 KDIG 0003 000056 KDOLAR 00QL )@@G@@02 005611 KD15 0003 000017 KE @O@[@@ 0003 000045 KEQ QM )@@G@@ 0003 I 000064 KERM 0003 000020 KF 0003 000021 KG QN )@@G@@ 0003 000022 KH @O@[@@ 0003 000023 KI 0002 003130 QO )@@G@@KIM 0003 000024 KJ 0003 000025 KK 0003 000026 QP )@@G@@KL @O@[@@ 0003 000063 KLR2 0003 000027 KM 0003 0QQ )@@G@@00053 KMINUS 0003 000030 KN 0003 000031 KO @O@[@@ 00QR )@@G@@03 I 000047 KOPEN 0002 000450 KOUT 0003 000032 KP 00QS )@@G@@03 000055 KPERD 0003 000052 KPLUS @O@[@@ 0003 000033 KQ QT )@@G@@ 0003 000060 KQUOTE 0003 000034 KR 0003 000035 KS QU )@@G@@ 0003 000050 KSLASH@O@[@@ 0003 000045 KSPK 0003 000054 QV )@@G@@KSTAR 0003 000036 KT 0003 000037 KU 0003 000040 QW )@@G@@KV @O@[@@ 0003 000041 KW 0003 000042 KX 0003 0QX )@@G@@00043 KY 0003 000044 KZ 0003 000001 K0 @O@[@@ 00QY )@@G@@02 005613 LAST 0002 I 005614 LCPY 0002 I 005615 LDEF 00QZ )@@G@@02 I 010551 LDO 0002 010602 LFIR @O@[@@ 0002 010603 LQUAL RA )@@G@@ 0002 010604 LREF 0002 005612 L772 0002 012554 MCOL RB )@@G@@ 0002 I 012555 MEOF @O@[@@ 0002 012556 MEX 0002 012557 RC )@@G@@MILDO 0002 012560 MLGC 0002 012561 MP2 0002 012562 RD )@@G@@MSTOP @O@[@@ 0002 012563 MTRAN 0002 012564 NBLC 0002 0RE )@@G@@12565 NCD 0002 012566 NCDO 0002 012567 NDEF @O@[@@ 00RF )@@G@@02 012570 NDOL 0002 012571 NDOS 0002 012572 NINS 00RG )@@G@@00 I 000001 NP 0002 012573 NPAR @O@[@@ 0002 012574 NPUN RH )@@G@@ 0002 012575 NREC 0002 012576 NREF 0002 012577 NRT1 RI )@@G@@ 0002 012600 NRT2 @O@[@@ 0000 I 000000 NT 0002 012601 RJ )@@G@@NTEMP 0002 012606 NXEQ 0002 003130 OUTPUT 0002 I 012607 RK )@@G@@PAREN @^@[@@ 0002 I 012610 PNEXT @@@^@@@K@[@@00101 1* SUBRL )@@G@@ROUTINE COPY (N) COP00010 RM )@@G@@@K@[@@00101 2* C RN )@@G@@ COP00020 @K@[@@00101 3* C THIS SUBROUTINERO )@@G@@ COPYS NON-BLANK CHARACTERS FROM JINT TO IOUT. COP00030 @K@[@@00101 RP )@@G@@ 4* C RQ )@@G@@ COP00040 @K@[@@00101 5* C === ONRR )@@G@@ ENTRY === COP00050 @K@[@@00101 6* C RS )@@G@@ N .LT. 0 COPYS UNTIL PARENTHESIS COUNT IS ZERO. COPRT )@@G@@00060 @K@[@@00101 7* C N .EQ. 0 COPYS ALL REMAINING NON-BLANK RU )@@G@@DATA FROM JINT TO IOUT. COP00070 @K@[@@00101 8* C N .GT. 0 RV )@@G@@COPYS N NON-BLANK DATA FROM JINT TO IOUT. COP00080 @K@[@@RW )@@G@@00101 9* C THE FIRST ITEM INSPECTED IS JINT(JCOL). RX )@@G@@ COP00090 @K@[@@00101 10* C THE FIRST ITEM STOREDRY )@@G@@ GOES TO IOUT(ICOL+1). COP00100 @K@[@@00101 11*RZ )@@G@@ C SA )@@G@@ COP00110 @K@[@@00101 12* C === ON EXIT SB )@@G@@ === COP00120 @K@[@@00101 13* C MEOSC )@@G@@F .LT. 0 FOR NORMAL EXIT. COP00130 SD )@@G@@@K@[@@00101 14* C MEOF .EQ. 0 FOR KERM FOUND WHILE COPYING ALSE )@@G@@L REMAINING DATA, COP00140 @K@[@@00101 15* C ORSF )@@G@@ FOR KERM FOUND BEFORE LEFT PARENTHESIS. COP00150 @K@[@@00101 SG )@@G@@ 16* C MEOF .GT. 0 FOR MISSING RIGHT PARENTHESIS, OR FOR MEOF =SH )@@G@@0 ON COP00160 @K@[@@00101 17* C ENTRY TO COPY.SI )@@G@@ COP00170 @K@[@@00101 18* C SJ )@@G@@ COPSK )@@G@@00180 @K@[@@00101 19* C THE LAST ITEM STORED WENT TO IOUT(ICOL)SL )@@G@@ AND IS IN LCPY. COP00190 @K@[@@00101 20* C IF MEOF ISM )@@G@@S .LT. 0, THE NEXT NON-BLANK ITEM IS IN JINT(JCOL) AND COP00200 @K@[@@SN )@@G@@00101 21* C IN PNEXT. SO )@@G@@ COP00210 @K@[@@00101 22* C SP )@@G@@ COP00220 @K@[@@00101 23*SQ )@@G@@ C SR )@@G@@ COP00230 @K@[@@00103 24* INCLUDE TIDY, LIST SS )@@G@@ COP00240 @K@[@@00104 24* IMPST )@@G@@LICIT INTEGER (A-Z) PRO00020 SU )@@G@@@K@[@@00105 24* PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PSV )@@G@@ER CONT. CARD PRO00030 @K@[@@00106 24* PARAMETER DOS=2SW )@@G@@5 @ MAXIMUM NESTING DEPTH OF DO LOOPS PRO00040 @K@[@@00107 SX )@@G@@ 24* PARAMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMSY )@@G@@ENT PRO00050 @K@[@@00110 24* PARAMETER DEFLNG=1500 @ MAXSZ )@@G@@. NO. OF DEFINED STATEMENT NUMBERS PRO00060 @K@[@@00111 24* TA )@@G@@ COMMON ICOL, IFIR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PROTB )@@G@@00070 @K@[@@00111 24* 1 JMAX, KB15, KD15, L772, LAST, LCTC )@@G@@PY, LDEF(DEFLNG), PRO00080 @K@[@@00111 24* 2 LDTD )@@G@@O(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@TE )@@G@@00111 24* 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDTF )@@G@@EF, NDOL, PRO00100 @K@[@@00111 24* 4 NDOS, NINS, NPTG )@@G@@AR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@00111 24*TH )@@G@@ 5 NXEQ, PAREN, PNEXT TI )@@G@@ PRO00120 @K@[@@00112 24* DIMENSION KIM(CRDLNG,20) TJ )@@G@@ PRO00130 @K@[@@00113 24* DIMTK )@@G@@ENSION KOUT(CRDLNG,20) PRO00140 TL )@@G@@@K@[@@00114 24* DIMENSION OUTPUT(12,20) TM )@@G@@ PRO00150 @K@[@@00115 24* EQUIVALENCE (KBTN )@@G@@UFF(1),KB1), (KBUFF(6),KB6) PRO00160 @K@[@@00116 TO )@@G@@ 24* EQUIVALENCE (KDIG(1),K0) TP )@@G@@ PRO00170 @K@[@@00117 24* EQUIVALENCE (IOUT,KOUT) TQ )@@G@@ PRO00180 @K@[@@00120 24* TR )@@G@@ EQUIVALENCE (JINT,KIM) PROTS )@@G@@00190 @K@[@@00121 24* EQUIVALENCE (JINT,OUTPUT) TT )@@G@@ PRO00200 @K@[@@00122 24* DEFINE DLTU )@@G@@OC(X)=FLD(0,18,LDEF(X)) PRO00210 @K@[@@TV )@@G@@00123 24* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) TW )@@G@@ PRO00220 @K@[@@00124 24* DEFINE LDOS(X)=FLD(0,TX )@@G@@18,LDO(X)) PRO00230 @K@[@@00125 24*TY )@@G@@ DEFINE LDOL(X)=FLD(18,18,LDO(X)) TZ )@@G@@ PRO00240 @K@[@@00125 24* END UA )@@G@@ PRO00250 @K@[@@00126 25* INCUB )@@G@@LUDE ALPHA, LIST COP00250 UC )@@G@@@K@[@@00126 26* C UD )@@G@@ COP00260 @K@[@@00126 27* C UE )@@G@@ COP00270 @K@[@@00127 UF )@@G@@ 27* COMMON /ALPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJUG )@@G@@,KK,KL, PRO00270 @K@[@@00127 27* 1 KM,KN,KO,KP,UH )@@G@@KQ,KR,KS,KT,KU,KV,KW,KX,KY,KZ, PRO00280 @K@[@@00127 27* UI )@@G@@ 2 KEQ,KCOMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PROUJ )@@G@@00290 @K@[@@00127 27* 3 KPERD,KDOLAR,KDASH,KQUOTUK )@@G@@E,KAND,KAT,KLR2,KERM PRO00300 @K@[@@00130 27* DIMENSIONUL )@@G@@ KABC(26), KSPK(14) PRO00310 @K@[@@UM )@@G@@00131 27* EQUIVALENCE (KABC,KA), (KSPK,KEQ) UN )@@G@@ PRO00320 @K@[@@00131 27* END UO )@@G@@ PRO00330 @K@[@@00132 28*UP )@@G@@ NT=N UQ )@@G@@ COP00280 @K@[@@00133 29* IF (MEOF) ,80,120 UR )@@G@@ COP00290 @K@[@@00136 30* NP=US )@@G@@MAXCHS COP00300 UT )@@G@@@K@[@@00137 31* IF (NT.GT.0) NP=NT @ COPY N NONUU )@@G@@-BLANK CHARACTERS COP00310 @K@[@@00141 32* GO TO 20 UV )@@G@@ COP00320 @K@[@@00141 UW )@@G@@ 33* C UX )@@G@@ COP00330 @K@[@@00141 34* C COPY NON-BLANK CHARACTERS UY )@@G@@ COP00340 @K@[@@00141 35* C UZ )@@G@@ COPVA )@@G@@00350 @K@[@@00142 36* 10 JCOL=JCOL+1 VB )@@G@@ COP00360 @K@[@@00143 37* 20 PNEXT=JINVC )@@G@@T(JCOL) COP00370 @K@[@@VD )@@G@@00144 38* IF (PNEXT.EQ.KBL) GO TO 10 VE )@@G@@ COP00380 @K@[@@00146 39* IF (PNEXT.EQ.KERM) GOVF )@@G@@ TO 70 COP00390 @K@[@@00150 40*VG )@@G@@ ICOL=ICOL+1 VH )@@G@@ COP00400 @K@[@@00151 41* IF (PNEXT.EQ.KAT) GO TO 60 VI )@@G@@ COP00410 @K@[@@00153 42* IOUVJ )@@G@@T(ICOL)=PNEXT COP00420 VK )@@G@@@K@[@@00154 43* IF (PNEXT.EQ.KOPEN) PAREN=PAREN+1 VL )@@G@@ COP00430 @K@[@@00156 44* IF (PNEXT.NE.KCVM )@@G@@LOSE) GO TO 30 COP00440 @K@[@@00160 VN )@@G@@ 45* PAREN=PAREN-1 VO )@@G@@ COP00450 @K@[@@00161 46* IF (PAREN) 100,,30 VP )@@G@@ COP00460 @K@[@@00164 47* VQ )@@G@@ IF (NT.LT.0) GO TO 40 @ COPY TO PARENTHESIS COUNT OF ZERO COPVR )@@G@@00470 @K@[@@00166 48* 30 NP=NP-1 VS )@@G@@ COP00480 @K@[@@00167 49* IF (NP.GTVT )@@G@@.0) GO TO 10 COP00490 @K@[@@VU )@@G@@00167 50* C VV )@@G@@ COP00500 @K@[@@00167 51* C SAVE LAST CHARACTER CVW )@@G@@OPIED COP00510 @K@[@@00167 52*VX )@@G@@ C VY )@@G@@ COP00520 @K@[@@00171 53* 40 LCPY=PNEXT VZ )@@G@@@ LAST CHARACTER COPIED COP00530 @K@[@@00171 54* C WA )@@G@@ COP00540 WB )@@G@@@K@[@@00171 55* C POSITION TO NEXT NON-BLANK CHARACTER WC )@@G@@ COP00550 @K@[@@00171 56* C WD )@@G@@ COP00560 @K@[@@00172 WE )@@G@@ 57* 50 JCOL=JCOL+1 WF )@@G@@ COP00570 @K@[@@00173 58* PNEXT=JINT(JCOL) WG )@@G@@ COP00580 @K@[@@00174 59* WH )@@G@@ IF (PNEXT.EQ.KBL) GO TO 50 COPWI )@@G@@00590 @K@[@@00174 60* C WJ )@@G@@ COP00600 @K@[@@00176 61* RETURN WK )@@G@@ COP00610 @K@[@@WL )@@G@@00176 62* C WM )@@G@@ COP00620 @K@[@@00176 63* C @ FOUND.WN )@@G@@ COPY ALL CHARACTERS TO END OF STATEMENT COP00630 @K@[@@00176 64*WO )@@G@@ C WP )@@G@@ COP00640 @K@[@@00177 65* 60 ICOL=ICOL+1 WQ )@@G@@ COP00650 @K@[@@00200 66* IOUWR )@@G@@T(ICOL)=PNEXT COP00660 WS )@@G@@@K@[@@00201 67* JCOL=JCOL+1 WT )@@G@@ COP00670 @K@[@@00202 68* PNEXT=JINT(JCOLWU )@@G@@) COP00680 @K@[@@00203 WV )@@G@@ 69* IF (PNEXT.NE.KERM) GO TO 60 WW )@@G@@ COP00690 @K@[@@00203 70* C WX )@@G@@ COP00700 @K@[@@00203 71* C WY )@@G@@ TEST FOR BALANCED PARENTHESES COPWZ )@@G@@00710 @K@[@@00203 72* C XA )@@G@@ COP00720 @K@[@@00205 73* 70 IF (PARENXB )@@G@@) 100,,90 COP00730 @K@[@@XC )@@G@@00210 74* MEOF=0 XD )@@G@@ COP00740 @K@[@@00211 75* GO TO 120 XE )@@G@@ COP00750 @K@[@@00211 76*XF )@@G@@ C XG )@@G@@ COP00760 @K@[@@00211 77* C ERROR ON ENTRY XH )@@G@@ COP00770 @K@[@@00211 78* C XI )@@G@@ COP00780 XJ )@@G@@@K@[@@00212 79* 80 ERR=1 XK )@@G@@ COP00790 @K@[@@00213 80* GO TO 110 XL )@@G@@ COP00800 @K@[@@00213 XM )@@G@@ 81* C XN )@@G@@ COP00810 @K@[@@00213 82* C MISSING RIGHT PARENTHESIS XO )@@G@@ COP00820 @K@[@@00213 83* C XP )@@G@@ COPXQ )@@G@@00830 @K@[@@00214 84* 90 ERR=2 XR )@@G@@ COP00840 @K@[@@00215 85* GO TO 110XS )@@G@@ COP00850 @K@[@@XT )@@G@@00215 86* C XU )@@G@@ COP00860 @K@[@@00215 87* C EXCESS RIGHT PARENTHEXV )@@G@@SIS COP00870 @K@[@@00215 88*XW )@@G@@ C XX )@@G@@ COP00880 @K@[@@00216 89* 100 ERR=3 XY )@@G@@ COP00890 @K@[@@00217 90* 110 CALXZ )@@G@@L DIAGNO (ERR) COP00900 YA )@@G@@@K@[@@00220 91* MEOF=1 YB )@@G@@ COP00910 @K@[@@00221 92* 120 LCPY=KERM YC )@@G@@ COP00920 @K@[@@00222 YD )@@G@@ 93* RETURN YE )@@G@@ COP00930 @K@[@@00222 94* C YF )@@G@@ COP00940 @K@[@@00223 95* YG )@@G@@ END COPYH )@@G@@00950 @D@]@@ END OF COMPILATION: NO DIAGNOSTICS. @#@^@@YI )@@G@@@HDG,P DATA 0 H, ,1, DATA . @L^@^__@@@FOR,S DAYJ )@@G@@TA,DATA @E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:27YK )@@G@@:28. @@@[@@@@@[@@@#@[@@ BLOCK DATA @G@]@@ STORAGE USED: CODE(1)YL )@@G@@ 000000; DATA(0) 000012; BLANK COMMON(2) 012611 @#@]@@ COMMON BLOCKS:YM )@@G@@@@@[@@@^@[@@ 0003 ALPHA 000065@^@[@@ 0004 CONTDY 000044@^@[@@YN )@@G@@ 0005 DIOMSG 000373@^@[@@ 0006 INIT 000013@^@[@@ 0007 IYO )@@G@@OMSG 000011@^@[@@ 0010 KST 001270@^@[@@ 0011 TAPES 000016YP )@@G@@@F@#@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) YQ )@@G@@@@@[@@@O@[@@ 0006 000012 DHDG 0006 000000 DIAG 0000 I 0YR )@@G@@00002 I 0002 000000 ICOL 0002 000001 IFIR @O@[@@ 00YS )@@G@@06 L 000001 INDENT 0002 000002 INPUT 0007 I 000000 IOMSGS 00YT )@@G@@02 000450 IOUT 0011 I 000000 IO1 @O@[@@ 0011 I 000001 IO2 YU )@@G@@ 0000 I 000001 I$ 0000 I 000003 J 0011 I 000002 JALTFDYV )@@G@@ 0002 003127 JCOL @O@[@@ 0002 003130 JINT 0002 005607 YW )@@G@@JMAX 0011 I 000003 JOUT 0003 000013 KA 0003 I 000013 YX )@@G@@KABC @O@[@@ 0003 000061 KAND 0003 000062 KAT 0003 0YY )@@G@@00014 KB 0003 I 000000 KBL 0000 000004 KBUFF @O@[@@ 00YZ )@@G@@00 000004 KB1 0002 I 005610 KB15 0000 000011 KB6 00ZA )@@G@@03 000015 KC 0003 000051 KCLOSE@O@[@@ 0003 000046 KCOMMAZB )@@G@@ 0003 000016 KD 0003 000057 KDASH 0003 I 000001 KDIG ZC )@@G@@ 0003 000056 KDOLAR@O@[@@ 0002 I 005611 KD15 0003 000017 ZD )@@G@@KE 0003 000045 KEQ 0003 I 000064 KERM 0003 000020 ZE )@@G@@KF @O@[@@ 0003 000021 KG 0003 000022 KH 0003 0ZF )@@G@@00023 KI 0002 003130 KIM 0003 000024 KJ @O@[@@ 00ZG )@@G@@03 000025 KK 0003 000026 KL 0003 I 000063 KLR2 00ZH )@@G@@03 000027 KM 0003 000053 KMINUS@O@[@@ 0003 000030 KN ZI )@@G@@ 0003 000031 KO 0003 000047 KOPEN 0002 000450 KOUT ZJ )@@G@@ 0003 000032 KP @O@[@@ 0003 000055 KPERD 0003 000052 ZK )@@G@@KPLUS 0003 000033 KQ 0003 000060 KQUOTE 0003 000034 ZL )@@G@@KR @O@[@@ 0003 000035 KS 0003 000050 KSLASH 0003 I 0ZM )@@G@@00045 KSPK 0003 000054 KSTAR 0010 I 000000 KSTIJ @O@[@@ 00ZN )@@G@@03 000036 KT 0004 I 000000 KTRL 0003 000037 KU 00ZO )@@G@@03 000040 KV 0003 000041 KW @O@[@@ 0003 000042 KX ZP )@@G@@ 0003 000043 KY 0003 000044 KZ 0003 000001 K0 ZQ )@@G@@ 0002 005613 LAST @O@[@@ 0002 005614 LCPY 0002 005615 ZR )@@G@@LDEF 0006 L 000002 LDIAG 0002 010551 LDO 0002 010602 ZS )@@G@@LFIR @O@[@@ 0006 000003 LINE 0006 000004 LOPT 0002 0ZT )@@G@@10603 LQUAL 0002 010604 LREF 0002 005612 L772 @O@[@@ 00ZU )@@G@@02 012554 MCOL 0002 012555 MEOF 0002 012556 MEX 00ZV )@@G@@02 012557 MILDO 0002 012560 MLGC @O@[@@ 0000 I 000000 MLIST ZW )@@G@@ 0002 012561 MP2 0005 I 000001 MSG 0002 012562 MSTOP ZX )@@G@@ 0002 012563 MTRAN @O@[@@ 0002 012564 NBLC 0002 012565 ZY )@@G@@NCD 0002 012566 NCDO 0002 012567 NDEF 0002 012570 ZZ )@@G@@NDOL @O@[@@ 0002 012571 NDOS 0002 012572 NINS 0005 I 0AA )@@G@@00000 NMSG 0002 012573 NPAR 0002 012574 NPUN @O@[@@ 00AB )@@G@@02 012575 NREC 0002 012576 NREF 0002 012577 NRT1 00AC )@@G@@02 012600 NRT2 0006 L 000005 NSTART@O@[@@ 0002 012601 NTEMP AD )@@G@@ 0002 012606 NXEQ 0002 003130 OUTPUT 0002 012607 PAREN AE )@@G@@ 0002 012610 PNEXT @O@[@@ 0006 L 000006 RIGHT 0006 L 000007 AF )@@G@@RSTART 0006 000010 SOPT 0006 L 000011 SOURCE 0011 000004 AG )@@G@@USE @@@^@@@K@[@@00101 1* BLOCK DATA AH )@@G@@ DAT00010 @K@[@@00101 2* C AI )@@G@@ DAT00020 AJ )@@G@@@K@[@@00101 3* C THIS BLOCK DATA CONTAINS ALL THE DATA STATEMEAK )@@G@@NTS FOR TIDY. DAT00030 @K@[@@00101 4* C AL )@@G@@ DAT00040 @K@[@@00102 AM )@@G@@ 5* INCLUDE TIDY, LIST AN )@@G@@ DAT00050 @K@[@@00103 5* IMPLICIT INTEGER (A-Z) AO )@@G@@ PRO00020 @K@[@@00104 5* AP )@@G@@ PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PROAQ )@@G@@00030 @K@[@@00105 5* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTAR )@@G@@H OF DO LOOPS PRO00040 @K@[@@00106 5* PARAMETERAS )@@G@@ MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@AT )@@G@@00107 5* PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMEAU )@@G@@NT NUMBERS PRO00060 @K@[@@00110 5* COMMON ICOL, IFIR, INAV )@@G@@PUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00110 5*AW )@@G@@ 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), AX )@@G@@ PRO00080 @K@[@@00110 5* 2 LDO(DOS), LFIR, LQUAL, LREAY )@@G@@F(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@00110 5* 3 AZ )@@G@@ MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 BA )@@G@@@K@[@@00110 5* 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRBB )@@G@@T1, NRT2, NTEMP(5), PRO00110 @K@[@@00110 5* 5 NXEQ, PABC )@@G@@REN, PNEXT PRO00120 @K@[@@00111 BD )@@G@@ 5* DIMENSION KIM(CRDLNG,20) BE )@@G@@ PRO00130 @K@[@@00112 5* DIMENSION KOUT(CRDLNG,20) BF )@@G@@ PRO00140 @K@[@@00113 5* BG )@@G@@ DIMENSION OUTPUT(12,20) PROBH )@@G@@00150 @K@[@@00114 5* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KBI )@@G@@B6) PRO00160 @K@[@@00115 5* EQUIVALENBJ )@@G@@CE (KDIG(1),K0) PRO00170 @K@[@@BK )@@G@@00116 5* EQUIVALENCE (IOUT,KOUT) BL )@@G@@ PRO00180 @K@[@@00117 5* EQUIVALENCE (JINT,KIMBM )@@G@@) PRO00190 @K@[@@00120 5*BN )@@G@@ EQUIVALENCE (JINT,OUTPUT) BO )@@G@@ PRO00200 @H@[@@00121 *ERROR* THIS STATEMENT SHOULD NOT BE IN ABP )@@G@@ BLOCK DATA PROGRAM. @K@[@@00121 5* DEFINE DLOC(X)=FLD(0,BQ )@@G@@18,LDEF(X)) PRO00210 @H@[@@00122 BR )@@G@@*ERROR* THIS STATEMENT SHOULD NOT BE IN A BLOCK DATA PROGRAM. @K@[@@BS )@@G@@00122 5* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) BT )@@G@@ PRO00220 @H@[@@00123 *ERROR* THIS STATEMENT SHOULDBU )@@G@@ NOT BE IN A BLOCK DATA PROGRAM. @K@[@@00123 5* DEFINE LDBV )@@G@@OS(X)=FLD(0,18,LDO(X)) PRO00230 @H@[@@BW )@@G@@00124 *ERROR* THIS STATEMENT SHOULD NOT BE IN A BLOCK DATA PROGRABX )@@G@@M. @K@[@@00124 5* DEFINE LDOL(X)=FLD(18,18,LDO(X)) BY )@@G@@ PRO00240 @K@[@@00124 5* END BZ )@@G@@ PRO00250 @K@[@@CA )@@G@@00125 6* INCLUDE ALPHA, LIST CB )@@G@@ DAT00060 @K@[@@00126 6* COMMON /ALPHA/ KBL,KDCC )@@G@@IG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 @K@[@@00126 6*CD )@@G@@ 1 KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,KY,KZ, CE )@@G@@ PRO00280 @K@[@@00126 6* 2 KEQ,KCOMMA,KOPEN,KCF )@@G@@SLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 @K@[@@00126 6* 3 CG )@@G@@ KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2,KERM PRO00300 CH )@@G@@@K@[@@00127 6* DIMENSION KABC(26), KSPK(14) CI )@@G@@ PRO00310 @K@[@@00130 6* EQUIVALENCE (KACJ )@@G@@BC,KA), (KSPK,KEQ) PRO00320 @K@[@@00130 CK )@@G@@ 6* END CL )@@G@@ PRO00330 @K@[@@00131 7* INCLUDE CONTDY, LIST CM )@@G@@ DAT00070 @K@[@@00132 7* CN )@@G@@ PARAMETER NKTRL=9 PROCO )@@G@@00350 @K@[@@00133 7* COMMON /CONTDY/ KTRL(4,NKTRL) CP )@@G@@ PRO00360 @K@[@@00134 7* PARAMETERCQ )@@G@@ CBASE=1 @ KTRL INDEX FOR BASE CONTROL STATEMENT PRO00370 @K@[@@CR )@@G@@00134 7* END CS )@@G@@ PRO00380 @K@[@@00135 8* INCLUDE DIOMSG, LIST CT )@@G@@ DAT00080 @K@[@@00136 8*CU )@@G@@ PARAMETER LMSG=25 CV )@@G@@ PRO00400 @K@[@@00137 8* COMMON /DIOMSG/ NMSG, MSG(10,LMSGCW )@@G@@) PRO00410 @K@[@@00137 8* END CX )@@G@@ PRO00420 CY )@@G@@@K@[@@00140 9* INCLUDE INIT, LIST CZ )@@G@@ DAT00090 @K@[@@00141 9* COMMON /INIT/ DDA )@@G@@IAG,INDENT,LDIAG,LINE,LOPT,NSTART,RIGHT,RSTART, PRO00440 @K@[@@00141 DB )@@G@@ 9* 1 SOPT,SOURCE,DHDG DC )@@G@@ PRO00450 @K@[@@00142 9* LOGICAL INDENT, LDIAG, NSTADD )@@G@@RT, RSTART, SOURCE PRO00460 @K@[@@00143 9* DE )@@G@@ LOGICAL RIGHT PRODF )@@G@@00470 @K@[@@00143 9* END DG )@@G@@ PRO00480 @K@[@@00144 10* INCLUDE IDH )@@G@@OMSG, LIST DAT00100 @K@[@@DI )@@G@@00145 10* COMMON /IOMSG/ IOMSGS(9) DJ )@@G@@ PRO00500 @K@[@@00145 10* END DK )@@G@@ PRO00510 @K@[@@00146 11*DL )@@G@@ INCLUDE KST, LIST DM )@@G@@ DAT00110 @K@[@@00147 11* PARAMETER NOIDS=58 @ NUMBER OF FODN )@@G@@RTRAN DIRECTIVES PRO00530 @K@[@@00150 11* PARDO )@@G@@AMETER IDCONT= 9 @ KSTIJ INDEX FOR CONTINUE STATEMENT PRO00540 DP )@@G@@@K@[@@00151 11* PARAMETER IDDELE=13 @ INDEX INTO KSTIJ FOR DEDQ )@@G@@LETE DIRECTIVE PRO00550 @K@[@@00152 11* PARAMETER IDENDDR )@@G@@=19 @ INDEX INTO KSTIJ FOR END STATEMENT PRO00560 @K@[@@00153 DS )@@G@@ 11* PARAMETER IDFUNC=24 @ KSTIJ INDEX FOR FUNCTION STATEMENT DT )@@G@@ PRO00570 @K@[@@00154 11* PARAMETER IGOTON=26 @ INDEXDU )@@G@@ INTO KSTIJ FOR GO TO N STATEMENT PRO00580 @K@[@@00155 11* DV )@@G@@ PARAMETER IDSTOP=53 @ INDEX INTO KSTIJ FOR STOP STATEMENT PRODW )@@G@@00590 @K@[@@00156 11* COMMON /KST/ KSTIJ(12,NOIDS) DX )@@G@@ PRO00600 @K@[@@00156 11* END DY )@@G@@ PRO00610 @K@[@@DZ )@@G@@00157 12* INCLUDE TAPES, LIST EA )@@G@@ DAT00120 @K@[@@00157 13* C EB )@@G@@ DAT00130 @K@[@@00157 14*EC )@@G@@ C ED )@@G@@ DAT00140 @K@[@@00160 14* COMMON /TAPES/ IO1, IO2, JALTFD, EE )@@G@@JOUT, USE (10) PRO00680 @K@[@@00161 14* PAREF )@@G@@AMETER STDRD=5 @ STANDARD READ UNIT PRO00690 EG )@@G@@@K@[@@00162 14* PARAMETER STDPRT=6 @ STANDARD PRINT UNIT EH )@@G@@ PRO00700 @K@[@@00163 14* PARAMETER STDALEI )@@G@@T=101 @ STANDARD ALTERNATE PRINT UNIT PRO00710 @K@[@@00163 EJ )@@G@@ 14* END EK )@@G@@ PRO00720 @K@[@@00164 15* DATA KB15/10/ KD15/10/ MLISEL )@@G@@T/-1/ DAT00150 @K@[@@00170 16* EM )@@G@@ DATA KBL,KDIG/' ','0','1','2','3','4','5','6','7','8','9'/ DATEN )@@G@@00160 @K@[@@00173 17* DATA KABC/'A','B','C','D','E','F','G','EO )@@G@@H','I','J','K','L','M','N',DAT00170 @K@[@@00173 18* 1'O','P','EP )@@G@@Q','R','S','T','U','V','W','X','Y','Z'/ DAT00180 @K@[@@EQ )@@G@@00175 19* DATA KSPK/'=',',','(','/',')','+','-','*','.','$','ER )@@G@@-',1H','&','@'/DAT00190 @K@[@@00177 20* DATA KLR2,KERM /'$$',ES )@@G@@' *****'/ DAT00200 @K@[@@00202 21*ET )@@G@@ DATA KTRL/ 'B','A','S','E', EU )@@G@@ DAT00210 @K@[@@00202 22* 2 'C','O','L','L', EV )@@G@@ DAT00220 @K@[@@00202 23* 3 EW )@@G@@ 'E','X','E','M', DAT00230 EX )@@G@@@K@[@@00202 24* 4 'L','A','S','T', EY )@@G@@ DAT00240 @K@[@@00202 25* 5 'L',EZ )@@G@@'E','F','T', DAT00250 @K@[@@00202 FA )@@G@@ 26* 6 'L','I','S','T', FB )@@G@@ DAT00260 @K@[@@00202 27* 8 'R','I','G','H',FC )@@G@@ DAT00270 @K@[@@00202 28* FD )@@G@@ 9 'S','T','A','T', DATFE )@@G@@00280 @K@[@@00202 29* * 'S','T','O','P'/ FF )@@G@@ DAT00290 @K@[@@00202 30* C FG )@@G@@ DAT00300 @K@[@@FH )@@G@@00204 31* DATA NMSG/0/ FI )@@G@@ DAT00310 @K@[@@00206 32* DATA ((MSG(I,J),I=1,1FJ )@@G@@0),J=1,19)/ DAT00320 @K@[@@00206 33*FK )@@G@@ 1' THE NEXT STATEMENT IS ILLEGAL AND HAS BEEN DELETED. ',FL )@@G@@ DAT00330 @K@[@@00206 34* 2' THE NEXT STATEMENT HAS A MISSINFM )@@G@@G RIGHT PARENTHESIS. ', DAT00340 @K@[@@00206 35* 3' TFN )@@G@@HE NEXT STATEMENT HAS AN EXCESS RIGHT PARENTHESIS. ', DAT00350 FO )@@G@@@K@[@@00206 36* 4' THE NEXT STATEMENT INCORRECTLY TERMINATES AFP )@@G@@ DO LOOP. ', DAT00360 @K@[@@00206 37* 5' WARNING, THE FQ )@@G@@NEXT STATEMENT CANT BE REACHED BY THE PROGRAM.', DAT00370 @K@[@@00206 FR )@@G@@ 38* 6' STATEMENT NUMBER TABLE FULL. PROCESSING TERMINATED. FS )@@G@@ ', DAT00380 @K@[@@00206 39* 7' REFERENCE NUMBER TABLE FUFT )@@G@@LL. PROCESSING TERMINATED. ', DAT00390 @K@[@@00206 40* FU )@@G@@ 8' ILLEGAL USE OF CONTINUATION CARD IN THE NEXT STATEMENT. ', DATFV )@@G@@00400 @K@[@@00206 41* 9' THE NEXT STATEMENT HAS AN ILLEGAL FIRFW )@@G@@ST SPECIAL CHARACTER. ', DAT00410 @K@[@@00206 42* *' ILLEGALFX )@@G@@ ARGUMENT IN CALL TO SUBROUTINE OR FUNCTION. ', DAT00420 @K@[@@FY )@@G@@00206 43* 1' ILLEGAL CHARACTER IN STATEMENT NUMBER FIELD. FZ )@@G@@ ', DAT00430 @K@[@@00206 44* 2' THE NEXT CONTINUE SGA )@@G@@TATEMENT IS REDUNDANT AND IS DELETED. ', DAT00440 @K@[@@00206 45*GB )@@G@@ 3' THE NEXT DIMENSION STATEMENT IS NOT COMPLETE. ',GC )@@G@@ DAT00450 @K@[@@00206 46* 4' THE NEXT DO STATEMENT IS MISSINGD )@@G@@G AN (=). ', DAT00460 @K@[@@00206 47* 5' TGE )@@G@@HE NEXT DO STATEMENT SPECIFIES AN INVALID TERMINAL. ', DAT00470 GF )@@G@@@K@[@@00206 48* 6' W A R N I N G . UNSATISFIED DO LOOPS GG )@@G@@ ', DAT00480 @K@[@@00206 49* 7' UNNUMBERED ORGH )@@G@@ INVALID FORMAT STATEMENT DELETED ', DAT00490 @K@[@@00206 GI )@@G@@ 50* 8' WARNING. THE NEXT STATEMENT IS POOR PROGRAMMING PRACTIGJ )@@G@@CE. ', DAT00500 @K@[@@00206 51* 9' THE NEXT GO TO STATEMENT GK )@@G@@IS ILLEGAL '/ DAT00510 @K@[@@00210 52* GL )@@G@@ DATA ((MSG(I,J),I=1,10),J=20,LMSG)/ DATGM )@@G@@00520 @K@[@@00210 53* *' THE NEXT IF STATEMENT IS ILLEGAL. GN )@@G@@ ', DAT00530 @K@[@@00210 54* 1' NEXT COGO )@@G@@MMON, DATA, OR NAMELIST STATEMENT IS MISSING A (/). ', DAT00540 @K@[@@GP )@@G@@00210 55* 2' ILLEGAL READ, PRINT, OR PUNCH STATEMENT. GQ )@@G@@ ', DAT00550 @K@[@@00210 56* 3' REQUIRED PARENTHESIGR )@@G@@S IS MISSING FROM THE NEXT STATEMENT. ', DAT00560 @K@[@@00210 57*GS )@@G@@ 4' EXCESSIVE NESTING OF DO LOOPS. PROCESSING TERMINATED. ',GT )@@G@@ DAT00570 @K@[@@00210 58* 5' NO INPUT IMAGES. TIDY ABORTED. GU )@@G@@ '/ DAT00580 @K@[@@00210 59* C GV )@@G@@ DAT00590 GW )@@G@@@K@[@@00212 60* DATA IOMSGS / GX )@@G@@ DAT00600 @K@[@@00212 61* 1' ERROR WRITINGGY )@@G@@ OUTPUT ELEMENT. TIDY ABORTED. STATUS = '/ DAT00610 @K@[@@00212 GZ )@@G@@ 62* C HA )@@G@@ DAT00620 @K@[@@00214 63* DATA ((KSTIJ(I,J),I=1,12),JHB )@@G@@=1,15)/ DAT00630 @K@[@@00214 64* HC )@@G@@ 1 'A','B','N','O','R','M','A','L',' ',' ', 8,1, DATHD )@@G@@00640 @K@[@@00214 65* 2 'A','S','S','I','G','N',' ',' ',' ',' HE )@@G@@', 6,4, DAT00650 @K@[@@00214 66* 3 'B','A',HF )@@G@@'C','K','S','P','A','C','E',' ', 9,3, DAT00660 @K@[@@HG )@@G@@00214 67* 4 'B','L','O','C','K','D','A','T','A',' ', 9,1, HH )@@G@@ DAT00670 @K@[@@00214 68* 5 'C','A','L','L',' ',HI )@@G@@' ',' ',' ',' ',' ', 4,3, DAT00680 @K@[@@00214 69*HJ )@@G@@ 6 'C','O','M','M','O','N',' ',' ',' ',' ', 6,1, HK )@@G@@ DAT00690 @K@[@@00214 70* 7 'C','O','M','P','I','L','E','R',HL )@@G@@' ',' ', 8,1, DAT00700 @K@[@@00214 71* 8 'CHM )@@G@@','O','M','P','L','E','X',' ',' ',' ', 7,1, DAT00710 HN )@@G@@@K@[@@00214 72* 9 'C','O','N','T','I','N','U','E',' ',' ', 8,3HO )@@G@@, DAT00720 @K@[@@00214 73* * 'D','A','T','AHP )@@G@@',' ',' ',' ',' ',' ',' ', 4,1, DAT00730 @K@[@@00214 HQ )@@G@@ 74* 1 'D','E','C','O','D','E','(',' ',' ',' ', 7,4, HR )@@G@@ DAT00740 @K@[@@00214 75* 2 'D','E','F','I','N','E',' HS )@@G@@',' ',' ',' ', 6,1, DAT00750 @K@[@@00214 76* HT )@@G@@ 3 'D','E','L','E','T','E',' ',' ',' ',' ', 6,4, DATHU )@@G@@00760 @K@[@@00214 77* 4 'D','I','M','E','N','S','I','O','N',' HV )@@G@@', 9,1, DAT00770 @K@[@@00214 78* 5 'D','O',HW )@@G@@'U','B','L','E','P','R','E','C',10,1/ DAT00780 @K@[@@HX )@@G@@00216 79* DATA ((KSTIJ(I,J),I=1,12),J=16,30)/ HY )@@G@@ DAT00790 @K@[@@00216 80* 6 'D','O',' ',' ',' ',HZ )@@G@@' ',' ',' ',' ',' ', 2,4, DAT00800 @K@[@@00216 81*IA )@@G@@ 7 'E','N','C','O','D','E','(',' ',' ',' ', 7,4, IB )@@G@@ DAT00810 @K@[@@00216 82* 8 'E','N','D','F','I','L','E',' ',IC )@@G@@' ',' ', 7,3, DAT00820 @K@[@@00216 83* 9 'EID )@@G@@','N','D',' ',' ',' ',' ',' ',' ',' ', 3,5, DAT00830 IE )@@G@@@K@[@@00216 84* * 'E','N','T','R','Y',' ',' ',' ',' ',' ',5,3,IF )@@G@@ DAT00840 @K@[@@00216 85* 1 'E','Q','U','IIG )@@G@@','V','A','L','E','N','C',10,1, DAT00850 @K@[@@00216 IH )@@G@@ 86* 2 'E','X','T','E','R','N','A','L',' ',' ', 8,1, II )@@G@@ DAT00860 @K@[@@00216 87* 3 'F','O','R','M','A','T','(IJ )@@G@@',' ',' ',' ', 7,2, DAT00870 @K@[@@00216 88* IK )@@G@@ 4 'F','U','N','C','T','I','O','N',' ',' ', 8,3, DATIL )@@G@@00880 @K@[@@00216 89* 5 'G','O','T','O','(',' ',' ',' ',' ',' IM )@@G@@', 5,4, DAT00890 @K@[@@00216 90* 6 'G','O',IN )@@G@@'T','O',' ',' ',' ',' ',' ',' ', 4,4, DAT00900 @K@[@@IO )@@G@@00216 91* 7 'I','F','A','C','C','U','M','U','L','A',10,4, IP )@@G@@ DAT00910 @K@[@@00216 92* 8 'I','F','D','I','V',IQ )@@G@@'I','D','E','C','H',10,4, DAT00920 @K@[@@00216 93*IR )@@G@@ 9 'I','F','Q','U','O','T','I','E','N','T',10,4, IS )@@G@@ DAT00930 @K@[@@00216 94* * 'I','F','(','S','E','N','S','E',IT )@@G@@'L','I',10,4/ DAT00940 @K@[@@00220 95* DATIU )@@G@@A ((KSTIJ(I,J),I=1,12),J=31,45)/ DAT00950 IV )@@G@@@K@[@@00220 96* 1 'I','F','(','S','E','N','S','E','S','W',10,4IW )@@G@@, DAT00960 @K@[@@00220 97* 2 'I','F','(',' IX )@@G@@',' ',' ',' ',' ',' ',' ', 3,4, DAT00970 @K@[@@00220 IY )@@G@@ 98* 3 'I','M','P','L','I','C','I','T',' ',' ', 8,1, IZ )@@G@@ DAT00980 @K@[@@00220 99* 4 'I','N','C','L','U','D','EJA )@@G@@',' ',' ',' ', 7,1, DAT00990 @K@[@@00220 100* JB )@@G@@ 5 'I','N','T','E','G','E','R',' ',' ',' ', 7,1, DATJC )@@G@@01000 @K@[@@00220 101* 6 'L','O','G','I','C','A','L',' ',' ',' JD )@@G@@', 7,1, DAT01010 @K@[@@00220 102* 7 'N','A',JE )@@G@@'M','E','L','I','S','T',' ',' ', 8,1, DAT01020 @K@[@@JF )@@G@@00220 103* 8 'P','A','R','A','M','E','T','E','R',' ', 9,1, JG )@@G@@ DAT01030 @K@[@@00220 104* 9 'P','A','U','S','E',JH )@@G@@' ',' ',' ',' ',' ', 5,3, DAT01040 @K@[@@00220 105*JI )@@G@@ * 'P','R','I','N','T',' ',' ',' ',' ',' ', 5,4, JJ )@@G@@ DAT01050 @K@[@@00220 106* 1 'P','U','N','C','H',' ',' ',' ',JK )@@G@@' ',' ', 5,4, DAT01060 @K@[@@00220 107* 2 'RJL )@@G@@','E','A','D','I','N','P','U','T','T',10,4, DAT01070 JM )@@G@@@K@[@@00220 108* 3 'R','E','A','D','T','A','P','E',' ',' ', 8,3JN )@@G@@, DAT01080 @K@[@@00220 109* 4 'R','E','A','DJO )@@G@@','(',',',' ',' ',' ',' ', 5,4, DAT01090 @K@[@@00220 JP )@@G@@ 110* 5 'R','E','A','D',' ',' ',' ',' ',' ',' ', 4,4/ JQ )@@G@@ DAT01100 @K@[@@00222 111* DATA ((KSTIJ(I,J),I=1,12),JJR )@@G@@=46,NOIDS)/ DAT01110 @K@[@@00222 112* JS )@@G@@ 6 'R','E','A','L',' ',' ',' ',' ',' ',' ', 4,1, DATJT )@@G@@01120 @K@[@@00222 113* 7 'R','E','T','U','R','N',' ',' ',' ',' JU )@@G@@', 6,3, DAT01130 @K@[@@00222 114* 8 'R','E',JV )@@G@@'W','I','N','D',' ',' ',' ',' ', 6,3, DAT01140 @K@[@@JW )@@G@@00222 115* 9 'S','E','N','S','E','L','I','G','H','T',10,3, JX )@@G@@ DAT01150 @K@[@@00222 116* * 'S','T','A','R','T',JY )@@G@@'E','D','I','T',' ', 9,1, DAT01160 @K@[@@00222 117*JZ )@@G@@ 1 'S','T','O','P','E','D','I','T','C','O',10,1, KA )@@G@@ DAT01170 @K@[@@00222 118* 2 'S','T','O','P','E','D','I','T',KB )@@G@@'S','O',10,1, DAT01180 @K@[@@00222 119* 3 'SKC )@@G@@','T','O','P',' ',' ',' ',' ',' ',' ', 4,3, DAT01190 KD )@@G@@@K@[@@00222 120* 4 'S','U','B','R','O','U','T','I','N','E',10,3KE )@@G@@, DAT01200 @K@[@@00222 121* 5 'W','R','I','TKF )@@G@@','E','O','U','T','P','U',10,4, DAT01210 @K@[@@00222 KG )@@G@@ 122* 6 'W','R','I','T','E','T','A','P','E',' ', 9,3, KH )@@G@@ DAT01220 @K@[@@00222 123* 7 'W','R','I','T','E','(',' KI )@@G@@',' ',' ',' ', 6,4, DAT01230 @K@[@@00222 124* KJ )@@G@@ 8 'F','I','N','D',' ',' ',' ',' ',' ',' ', 4,3/ DATKK )@@G@@01240 @K@[@@00222 125* C KL )@@G@@ DAT01250 @K@[@@00224 126* DATA RIGHKM )@@G@@T/.FALSE./ DAT01260 @K@[@@KN )@@G@@00226 127* DATA IO1, IO2, JALTFD, JOUT / KO )@@G@@ DAT01270 @K@[@@00226 128* 1 2, 3,' 101.KP )@@G@@', 6 / DAT01280 @K@[@@00233 129*KQ )@@G@@ END KR )@@G@@ DAT01290 @M@]@@ END OF COMPILATION: 4 DIAGNOSTICS. KS )@@G@@ ERRORS IN RELOCATABLE ELEMENT @#@^@@@HDG,P DIKT )@@G@@AGNO 0 @[@@ H, ,1, DIAGNO . @L^@^__@@@FOR,S DIAGNO,DIAGNO KU )@@G@@@E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:27:40. @@@[@@KV )@@G@@@@@[@@@B@[@@ SUBROUTINE DIAGNO ENTRY POINT 000066@@@[@@@G@]@@ STOKW )@@G@@RAGE USED: CODE(1) 000073; DATA(0) 000042; BLANK COMMON(2) 012611 @#@]@@KX )@@G@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 DIOMSG 000373@^@[@@ 0004 IKY )@@G@@NIT 000013@^@[@@ 0005 TAPES 000016@A@#@@ EXTERNAL REFERENCES (KZ )@@G@@BLOCK, NAME)@@@[@@@#@[@@ 0006 NWDU$ @#@[@@ 0007 NIO2$ @#@[@@LA )@@G@@ 0010 NIO1$ @#@[@@ 0011 NERR3$ @F@#@@ STORAGE ASSIGNMENT (LB )@@G@@BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 000046 LC )@@G@@165G 0001 000007 20L 0001 000011 30L 0001 000032 LD )@@G@@40L 0000 000002 50F @O@[@@ 0000 000010 60F 0004 I 0LE )@@G@@00012 DHDG 0004 I 000000 DIAG 0000 I 000001 I 0002 0LF )@@G@@00000 ICOL @O@[@@ 0002 000001 IFIR 0004 L 000001 INDENT 00LG )@@G@@00 000031 INJP$ 0002 000002 INPUT 0002 000450 IOUT @O@[@@LH )@@G@@ 0005 000000 IO1 0005 000001 IO2 0000 I 000000 J LI )@@G@@ 0005 000002 JALTFD 0002 003127 JCOL @O@[@@ 0002 003130 LJ )@@G@@JINT 0002 005607 JMAX 0005 I 000003 JOUT 0000 000021 LK )@@G@@KBUFF 0000 000021 KB1 @O@[@@ 0002 005610 KB15 0000 0LL )@@G@@00026 KB6 0000 000027 KDIG 0002 005611 KD15 0002 0LM )@@G@@03130 KIM @O@[@@ 0002 000450 KOUT 0000 000027 K0 00LN )@@G@@02 005613 LAST 0002 005614 LCPY 0002 I 005615 LDEF @O@[@@LO )@@G@@ 0004 L 000002 LDIAG 0002 I 010551 LDO 0002 010602 LFIR LP )@@G@@ 0004 000003 LINE 0004 000004 LOPT @O@[@@ 0002 010603 LQ )@@G@@LQUAL 0002 010604 LREF 0002 005612 L772 0002 012554 LR )@@G@@MCOL 0002 012555 MEOF @O@[@@ 0002 012556 MEX 0002 0LS )@@G@@12557 MILDO 0002 012560 MLGC 0002 012561 MP2 0003 I 0LT )@@G@@00001 MSG @O@[@@ 0002 012562 MSTOP 0002 012563 MTRAN 00LU )@@G@@02 012564 NBLC 0002 012565 NCD 0002 012566 NCDO @O@[@@LV )@@G@@ 0002 012567 NDEF 0002 012570 NDOL 0002 012571 NDOS LW )@@G@@ 0002 012572 NINS 0003 I 000000 NMSG @O@[@@ 0002 012573 LX )@@G@@NPAR 0002 012574 NPUN 0002 012575 NREC 0002 012576 LY )@@G@@NREF 0002 012577 NRT1 @O@[@@ 0002 012600 NRT2 0004 L 0LZ )@@G@@00005 NSTART 0002 012601 NTEMP 0002 012606 NXEQ 0002 0MA )@@G@@03130 OUTPUT@O@[@@ 0002 012607 PAREN 0002 012610 PNEXT 00MB )@@G@@04 L 000006 RIGHT 0004 L 000007 RSTART 0004 000010 SOPT @C@[@@MC )@@G@@ 0004 L 000011 SOURCE 0005 000004 USE @@@^@@@K@[@@00101 1*MD )@@G@@ SUBROUTINE DIAGNO (N) ME )@@G@@ DIA00010 @K@[@@00101 2* C MF )@@G@@ DIA00020 @K@[@@00101 3* C THIMG )@@G@@S ROUTINE PRINTS THE GENERAL DIAGNOSTICS FOR TIDY. DIA00030 MH )@@G@@@K@[@@00101 4* C MI )@@G@@ DIA00040 @K@[@@00103 5* INCLUDE TIDY, LMJ )@@G@@IST DIA00050 @K@[@@00104 MK )@@G@@ 5* IMPLICIT INTEGER (A-Z) ML )@@G@@ PRO00020 @K@[@@00105 5* PARAMETER CRDLNG=66 @ MAXIMMM )@@G@@UM NO. OF CHARS. PER CONT. CARD PRO00030 @K@[@@00106 5* MN )@@G@@ PARAMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPS PROMO )@@G@@00040 @K@[@@00107 5* PARAMETER MAXCHS=1327 @ MAXIMUM NO. OF MP )@@G@@CHARS. IN A STATEMENT PRO00050 @K@[@@00110 5* PARAMETERMQ )@@G@@ DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS PRO00060 @K@[@@MR )@@G@@00111 5* COMMON ICOL, IFIR, INPUT(14,21), IOUT(MAXCHS), JCOLMS )@@G@@, JINT(MAXCHS),PRO00070 @K@[@@00111 5* 1 JMAX, KB15, KDMT )@@G@@15, L772, LAST, LCPY, LDEF(DEFLNG), PRO00080 @K@[@@00111 5*MU )@@G@@ 2 LDO(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOF, MEX, MILDMV )@@G@@O, PRO00090 @K@[@@00111 5* 3 MLGC, MP2, MSTOP, MTRAN, NMW )@@G@@BLC, NCD, NCDO, NDEF, NDOL, PRO00100 @K@[@@00111 5* 4 MX )@@G@@ NDOS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 MY )@@G@@@K@[@@00111 5* 5 NXEQ, PAREN, PNEXT MZ )@@G@@ PRO00120 @K@[@@00112 5* DIMENSION KIM(CNA )@@G@@RDLNG,20) PRO00130 @K@[@@00113 NB )@@G@@ 5* DIMENSION KOUT(CRDLNG,20) NC )@@G@@ PRO00140 @K@[@@00114 5* DIMENSION OUTPUT(12,20) ND )@@G@@ PRO00150 @K@[@@00115 5* NE )@@G@@ EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) PRONF )@@G@@00160 @K@[@@00116 5* EQUIVALENCE (KDIG(1),K0) NG )@@G@@ PRO00170 @K@[@@00117 5* EQUIVALENNH )@@G@@CE (IOUT,KOUT) PRO00180 @K@[@@NI )@@G@@00120 5* EQUIVALENCE (JINT,KIM) NJ )@@G@@ PRO00190 @K@[@@00121 5* EQUIVALENCE (JINT,OUTNK )@@G@@PUT) PRO00200 @K@[@@00122 5*NL )@@G@@ DEFINE DLOC(X)=FLD(0,18,LDEF(X)) NM )@@G@@ PRO00210 @K@[@@00123 5* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)NN )@@G@@) PRO00220 @K@[@@00124 5* DEFNO )@@G@@INE LDOS(X)=FLD(0,18,LDO(X)) PRO00230 NP )@@G@@@K@[@@00125 5* DEFINE LDOL(X)=FLD(18,18,LDO(X)) NQ )@@G@@ PRO00240 @K@[@@00125 5* END NR )@@G@@ PRO00250 @K@[@@00126 NS )@@G@@ 6* INCLUDE DIOMSG, LIST NT )@@G@@ DIA00060 @K@[@@00127 6* PARAMETER LMSG=25 NU )@@G@@ PRO00400 @K@[@@00130 6* NV )@@G@@ COMMON /DIOMSG/ NMSG, MSG(10,LMSG) PRONW )@@G@@00410 @K@[@@00130 6* END NX )@@G@@ PRO00420 @K@[@@00131 7* INCLUDE INY )@@G@@NIT, LIST DIA00070 @K@[@@NZ )@@G@@00132 7* COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOPT,NSTART,RIOA )@@G@@GHT,RSTART, PRO00440 @K@[@@00132 7* 1 SOPT,SOOB )@@G@@URCE,DHDG PRO00450 @K@[@@00133 7*OC )@@G@@ LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCE OD )@@G@@ PRO00460 @K@[@@00134 7* LOGICAL RIGHT OE )@@G@@ PRO00470 @K@[@@00134 7* END OF )@@G@@ PRO00480 OG )@@G@@@K@[@@00135 8* INCLUDE TAPES, LIST OH )@@G@@ DIA00080 @K@[@@00135 9* C OI )@@G@@ DIA00090 @K@[@@00135 OJ )@@G@@ 10* C *** OK )@@G@@ ***DIA00100 @K@[@@00135 11* C 1 THE NEXT STATEMENT IS IOL )@@G@@LLEGAL AND HAS BEEN DELETED. DIA00110 @K@[@@00135 12* C OM )@@G@@ 2 THE NEXT STATEMENT HAS A MISSING RIGHT PARENTHESIS. DIAON )@@G@@00120 @K@[@@00135 13* C 3 THE NEXT STATEMENT HAS AN EXCESS RIOO )@@G@@GHT PARENTHESIS. DIA00130 @K@[@@00135 14* C 4 THE NOP )@@G@@EXT STATEMENT INCORRECTLY TERMINATES A DO LOOP. DIA00140 @K@[@@OQ )@@G@@00135 15* C 5 WARNING. THE NEXT STATEMENT CAN'T BE REACHED BYOR )@@G@@ THE PROGRAM DIA00150 @K@[@@00135 16* C 6 STATEMENT NUMBER TOS )@@G@@ABLE FULL. PROCESSING TERMINATED. DIA00160 @K@[@@00135 17*OT )@@G@@ C 7 REFERENCE NUMBER TABLE FULL. PROCESSING TERMINATED. OU )@@G@@ DIA00170 @K@[@@00135 18* C 8 ILLEGAL USE OF CONTINUATION COV )@@G@@ARD IN THE NEXT STATEMENT. DIA00180 @K@[@@00135 19* C 9 OW )@@G@@ THE NEXT STATEMENT HAS AN ILLEGAL FIRST SPECIAL CHARACTER. DIA00190 OX )@@G@@@K@[@@00135 20* C 10 ILLEGAL ARGUMENT IN CALL TO SUBROUTINE OR OY )@@G@@FUNCTION. DIA00200 @K@[@@00135 21* C 11 ILLEGAL CHAOZ )@@G@@RACTER IN STATEMENT NUMBER FIELD. DIA00210 @K@[@@00135 PA )@@G@@ 22* C 12 THE NEXT CONTINUE STATEMENT IS REDUNDANT AND IS DELETPB )@@G@@ED. DIA00220 @K@[@@00135 23* C 13 THE NEXT DIMENSION STATPC )@@G@@EMENT IS NOT COMPLETE. DIA00230 @K@[@@00135 24* C PD )@@G@@ 14 THE NEXT DO STATEMENT IS MISSING AN (=). DIAPE )@@G@@00240 @K@[@@00135 25* C 15 THE NEXT DO STATEMENT SPECIFIES AN PF )@@G@@INVALID TERMINAL. DIA00250 @K@[@@00135 26* C 16 W A RPG )@@G@@ N I N G . UNSATISFIED DO LOOPS DIA00260 @K@[@@PH )@@G@@00135 27* C 17 UNNUMBERED OR INVALID FORMAT STATEMENT DELETED PI )@@G@@ DIA00270 @K@[@@00135 28* C 18 WARNING. THE NEXPJ )@@G@@T STATEMENT IS POOR PROGRAMMING PRACTICE. DIA00280 @K@[@@00135 29*PK )@@G@@ C 19 THE NEXT GO TO STATEMENT IS ILLEGAL. PL )@@G@@ DIA00290 @K@[@@00135 30* C 20 THE NEXT IF STATEMENT IS ILLEPM )@@G@@GAL. DIA00300 @K@[@@00135 31* C 21 PN )@@G@@ NEXT COMMON, DATA, OR NAMELIST STATEMENT IS MISSING A (/). DIA00310 PO )@@G@@@K@[@@00135 32* C 22 ILLEGAL READ, PRINT, OR PUNCH STATEMENT. PP )@@G@@ DIA00320 @K@[@@00135 33* C 23 REQUIRED PAPQ )@@G@@RENTHESIS IS MISSING FROM THE NEXT STATEMENT. DIA00330 @K@[@@00135 PR )@@G@@ 34* C 24 EXCESSIVE NESTING OF DO LOOPS. PROCESSING TERMINATED. PS )@@G@@ DIA00340 @K@[@@00135 35* C 25 NO INPUT IMAGES. TIDY APT )@@G@@BORTED. DIA00350 @K@[@@00135 36* C PU )@@G@@ *** ***DIAPV )@@G@@00360 @K@[@@00135 37* C PW )@@G@@ DIA00370 @K@[@@00135 38* C PX )@@G@@ DIA00380 @K@[@@PY )@@G@@00136 38* COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (10) PZ )@@G@@ PRO00680 @K@[@@00137 38* PARAMETER STDRD=5 @ SQA )@@G@@TANDARD READ UNIT PRO00690 @K@[@@00140 38*QB )@@G@@ PARAMETER STDPRT=6 @ STANDARD PRINT UNIT QC )@@G@@ PRO00700 @K@[@@00141 38* PARAMETER STDALT=101 @ STANDARD AQD )@@G@@LTERNATE PRINT UNIT PRO00710 @K@[@@00141 38* END QE )@@G@@ PRO00720 QF )@@G@@@K@[@@00142 39* J=N QG )@@G@@ DIA00390 @K@[@@00143 40* IF (J) 20,20,10QH )@@G@@ DIA00400 @K@[@@00146 QI )@@G@@ 41* 10 IF (J-LMSG) 30,30,20 QJ )@@G@@ DIA00410 @K@[@@00151 42* 20 J=1 QK )@@G@@ DIA00420 @K@[@@00152 43* 30 QL )@@G@@ NMSG=NMSG+1 DIAQM )@@G@@00430 @K@[@@00153 44* IF (DIAG.EQ.0) RETURN QN )@@G@@ DIA00440 @K@[@@00155 45* IF (DHDG.QO )@@G@@NE.0) GO TO 40 DIA00450 @K@[@@QP )@@G@@00157 46* WRITE (JOUT,60) QQ )@@G@@ DIA00460 @K@[@@00161 47* DHDG=1 QR )@@G@@ DIA00470 @K@[@@00162 48*QS )@@G@@ 40 WRITE (JOUT,50) NMSG,(MSG(I,J),I=1,10) QT )@@G@@ DIA00480 @K@[@@00171 49* LDIAG=.TRUE. QU )@@G@@ DIA00490 @K@[@@00172 50* RETQV )@@G@@URN DIA00500 QW )@@G@@@K@[@@00172 51* C QX )@@G@@ DIA00510 @K@[@@00173 52* 50 FORMAT (8H ****QY )@@G@@ (,I3,5H) ***,10A6,3H***) DIA00520 @K@[@@00174 QZ )@@G@@ 53* 60 FORMAT ('1',11X,'***** ERRORS IN INPUT TO TIDY *****') RA )@@G@@ DIA00530 @K@[@@00174 54* C RB )@@G@@ DIA00540 @K@[@@00175 55* RC )@@G@@ END DIARD )@@G@@00550 @D@]@@ END OF COMPILATION: NO DIAGNOSTICS. @#@^@@RE )@@G@@@HDG,P DLIST 0 .99 H, ,1, DLIST . @L^@^__@@@FOR,S DLRF )@@G@@IST,DLIST @E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:28RG )@@G@@:04. @@@[@@@@@[@@@B@[@@ SUBROUTINE DLIST ENTRY POINT 000247@@@[@@RH )@@G@@@G@]@@ STORAGE USED: CODE(1) 000260; DATA(0) 000065; BLANK COMMON(2) 0RI )@@G@@12611 @#@]@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 ALPHA 000065@^@[@@RJ )@@G@@ 0004 DIOMSG 000373@^@[@@ 0005 INIT 000013@^@[@@ 0006 LRK )@@G@@IOS 000004@^@[@@ 0007 TAPES 000016@A@#@@ EXTERNAL REFERENCES (RL )@@G@@BLOCK, NAME)@@@[@@@#@[@@ 0010 DIAGNO @#@[@@ 0011 NWDU$ @#@[@@RM )@@G@@ 0012 NIO1$ @#@[@@ 0013 NIO2$ @#@[@@ 0014 NERR3$ @F@#@@RN )@@G@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@RO )@@G@@@O@[@@ 0001 000015 10L 0001 000106 100L 0001 000114 RP )@@G@@110L 0001 000144 130L 0001 000147 140L @O@[@@ 0001 0RQ )@@G@@00162 150L 0001 000206 160L 0001 000214 170L 0001 0RR )@@G@@00040 173G 0001 000217 180L @O@[@@ 0000 000001 190F 00RS )@@G@@01 000027 20L 0000 000021 200F 0001 000032 30L 00RT )@@G@@01 000052 60L @O@[@@ 0001 000056 70L 0001 000102 90L RU )@@G@@ 0005 000012 DHDG 0005 I 000000 DIAG 0000 I 000000 I RV )@@G@@@O@[@@ 0002 000000 ICOL 0002 000001 IFIR 0006 000003 RW )@@G@@IMAX 0005 L 000001 INDENT 0000 000051 INJP$ @O@[@@ 0002 0RX )@@G@@00002 INPUT 0002 000450 IOUT 0007 000000 IO1 0007 0RY )@@G@@00001 IO2 0006 000001 ITYPE @O@[@@ 0007 000002 JALTFD 00RZ )@@G@@02 003127 JCOL 0002 003130 JINT 0002 005607 JMAX 00SA )@@G@@07 I 000003 JOUT @O@[@@ 0003 000013 KA 0003 000013 KABC SB )@@G@@ 0003 000061 KAND 0003 000062 KAT 0003 000014 KB SC )@@G@@@O@[@@ 0003 000000 KBL 0000 000040 KBUFF 0000 000040 SD )@@G@@KB1 0002 005610 KB15 0000 000045 KB6 @O@[@@ 0003 0SE )@@G@@00015 KC 0003 000051 KCLOSE 0003 000046 KCOMMA 0003 0SF )@@G@@00016 KD 0003 000057 KDASH @O@[@@ 0003 000001 KDIG 00SG )@@G@@03 000056 KDOLAR 0002 005611 KD15 0003 000017 KE 00SH )@@G@@03 000045 KEQ @O@[@@ 0003 000064 KERM 0003 000020 KF SI )@@G@@ 0003 000021 KG 0003 000022 KH 0003 000023 KI SJ )@@G@@@O@[@@ 0006 000000 KILI 0002 003130 KIM 0003 000024 SK )@@G@@KJ 0003 000025 KK 0003 000026 KL @O@[@@ 0006 I 0SL )@@G@@00000 KLASS 0003 000063 KLR2 0003 000027 KM 0003 0SM )@@G@@00053 KMINUS 0003 000030 KN @O@[@@ 0003 000031 KO 00SN )@@G@@03 000047 KOPEN 0002 000450 KOUT 0003 000032 KP 00SO )@@G@@03 000055 KPERD @O@[@@ 0003 000052 KPLUS 0003 000033 KQ SP )@@G@@ 0003 000060 KQUOTE 0003 000034 KR 0003 000035 KS SQ )@@G@@@O@[@@ 0003 000050 KSLASH 0003 000045 KSPK 0003 000054 SR )@@G@@KSTAR 0003 000036 KT 0003 000037 KU @O@[@@ 0003 0SS )@@G@@00040 KV 0003 000041 KW 0003 000042 KX 0003 0ST )@@G@@00043 KY 0003 000044 KZ @O@[@@ 0003 000001 K0 00SU )@@G@@02 005613 LAST 0002 005614 LCPY 0002 I 005615 LDEF 00SV )@@G@@05 L 000002 LDIAG @O@[@@ 0002 I 010551 LDO 0002 010602 LFIR SW )@@G@@ 0005 I 000003 LINE 0005 000004 LOPT 0002 010603 LQUAL SX )@@G@@@O@[@@ 0002 010604 LREF 0006 I 000002 L15 0002 005612 SY )@@G@@L772 0002 012554 MCOL 0002 012555 MEOF @O@[@@ 0002 0SZ )@@G@@12556 MEX 0002 I 012557 MILDO 0002 I 012560 MLGC 0002 I 0TA )@@G@@12561 MP2 0004 000001 MSG @O@[@@ 0002 012562 MSTOP 00TB )@@G@@02 I 012563 MTRAN 0002 012564 NBLC 0002 012565 NCD 00TC )@@G@@02 012566 NCDO @O@[@@ 0002 I 012567 NDEF 0002 I 012570 NDOL TD )@@G@@ 0002 I 012571 NDOS 0002 012572 NINS 0004 I 000000 NMSG TE )@@G@@@O@[@@ 0002 012573 NPAR 0002 012574 NPUN 0002 012575 TF )@@G@@NREC 0002 012576 NREF 0002 012577 NRT1 @O@[@@ 0002 0TG )@@G@@12600 NRT2 0005 L 000005 NSTART 0002 I 012601 NTEMP 0002 I 0TH )@@G@@12606 NXEQ 0002 003130 OUTPUT@O@[@@ 0002 012607 PAREN 00TI )@@G@@02 012610 PNEXT 0005 L 000006 RIGHT 0005 L 000007 RSTART 00TJ )@@G@@05 000010 SOPT @C@[@@ 0005 L 000011 SOURCE 0007 000004 USE TK )@@G@@@@@^@@@K@[@@00101 1* SUBROUTINE DLIST (MERR) TL )@@G@@ DLI00010 @K@[@@00101 2* C TM )@@G@@ DLI00020 @K@[@@TN )@@G@@00101 3* C THIS SUBROUTINE UPDATES THE DEFINED STATEMENT NUMBETO )@@G@@R LIST, LDEF, DLI00030 @K@[@@00101 4* C BY ADDING THE STATEMETP )@@G@@NT NUMBER IN L15, IF IT IS UNIQUE. DLI00040 @K@[@@00101 5*TQ )@@G@@ C TR )@@G@@ DLI00050 @K@[@@00103 6* INCLUDE TIDY, LIST TS )@@G@@ DLI00060 @K@[@@00104 6* IMPTT )@@G@@LICIT INTEGER (A-Z) PRO00020 TU )@@G@@@K@[@@00105 6* PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PTV )@@G@@ER CONT. CARD PRO00030 @K@[@@00106 6* PARAMETER DOS=2TW )@@G@@5 @ MAXIMUM NESTING DEPTH OF DO LOOPS PRO00040 @K@[@@00107 TX )@@G@@ 6* PARAMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMTY )@@G@@ENT PRO00050 @K@[@@00110 6* PARAMETER DEFLNG=1500 @ MAXTZ )@@G@@. NO. OF DEFINED STATEMENT NUMBERS PRO00060 @K@[@@00111 6* UA )@@G@@ COMMON ICOL, IFIR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PROUB )@@G@@00070 @K@[@@00111 6* 1 JMAX, KB15, KD15, L772, LAST, LCUC )@@G@@PY, LDEF(DEFLNG), PRO00080 @K@[@@00111 6* 2 LDUD )@@G@@O(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@UE )@@G@@00111 6* 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDUF )@@G@@EF, NDOL, PRO00100 @K@[@@00111 6* 4 NDOS, NINS, NPUG )@@G@@AR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@00111 6*UH )@@G@@ 5 NXEQ, PAREN, PNEXT UI )@@G@@ PRO00120 @K@[@@00112 6* DIMENSION KIM(CRDLNG,20) UJ )@@G@@ PRO00130 @K@[@@00113 6* DIMUK )@@G@@ENSION KOUT(CRDLNG,20) PRO00140 UL )@@G@@@K@[@@00114 6* DIMENSION OUTPUT(12,20) UM )@@G@@ PRO00150 @K@[@@00115 6* EQUIVALENCE (KBUN )@@G@@UFF(1),KB1), (KBUFF(6),KB6) PRO00160 @K@[@@00116 UO )@@G@@ 6* EQUIVALENCE (KDIG(1),K0) UP )@@G@@ PRO00170 @K@[@@00117 6* EQUIVALENCE (IOUT,KOUT) UQ )@@G@@ PRO00180 @K@[@@00120 6* UR )@@G@@ EQUIVALENCE (JINT,KIM) PROUS )@@G@@00190 @K@[@@00121 6* EQUIVALENCE (JINT,OUTPUT) UT )@@G@@ PRO00200 @K@[@@00122 6* DEFINE DLUU )@@G@@OC(X)=FLD(0,18,LDEF(X)) PRO00210 @K@[@@UV )@@G@@00123 6* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) UW )@@G@@ PRO00220 @K@[@@00124 6* DEFINE LDOS(X)=FLD(0,UX )@@G@@18,LDO(X)) PRO00230 @K@[@@00125 6*UY )@@G@@ DEFINE LDOL(X)=FLD(18,18,LDO(X)) UZ )@@G@@ PRO00240 @K@[@@00125 6* END VA )@@G@@ PRO00250 @K@[@@00126 7* INCVB )@@G@@LUDE ALPHA, LIST DLI00070 VC )@@G@@@K@[@@00127 7* COMMON /ALPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KFVD )@@G@@,KG,KH,KI,KJ,KK,KL, PRO00270 @K@[@@00127 7* 1 VE )@@G@@KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,KY,KZ, PRO00280 @K@[@@00127 VF )@@G@@ 7* 2 KEQ,KCOMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUVG )@@G@@S,KSTAR, PRO00290 @K@[@@00127 7* 3 KPERD,KDOLARVH )@@G@@,KDASH,KQUOTE,KAND,KAT,KLR2,KERM PRO00300 @K@[@@00130 7* VI )@@G@@ DIMENSION KABC(26), KSPK(14) PROVJ )@@G@@00310 @K@[@@00131 7* EQUIVALENCE (KABC,KA), (KSPK,KEQ) VK )@@G@@ PRO00320 @K@[@@00131 7* END VL )@@G@@ PRO00330 @K@[@@VM )@@G@@00132 8* INCLUDE DIOMSG, LIST VN )@@G@@ DLI00080 @K@[@@00133 8* PARAMETER LMSG=25 VO )@@G@@ PRO00400 @K@[@@00134 8*VP )@@G@@ COMMON /DIOMSG/ NMSG, MSG(10,LMSG) VQ )@@G@@ PRO00410 @K@[@@00134 8* END VR )@@G@@ PRO00420 @K@[@@00135 9* INCVS )@@G@@LUDE INIT, LIST DLI00090 VT )@@G@@@K@[@@00136 9* COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOPT,NSTVU )@@G@@ART,RIGHT,RSTART, PRO00440 @K@[@@00136 9* 1 SVV )@@G@@OPT,SOURCE,DHDG PRO00450 @K@[@@00137 VW )@@G@@ 9* LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCE VX )@@G@@ PRO00460 @K@[@@00140 9* LOGICAL RIGHT VY )@@G@@ PRO00470 @K@[@@00140 9* ENVZ )@@G@@D PROWA )@@G@@00480 @K@[@@00141 10* INCLUDE LIOS, LIST WB )@@G@@ DLI00100 @K@[@@00142 10* COMMON /LWC )@@G@@IOS/ KLASS, ITYPE, L15, IMAX PRO00630 @K@[@@WD )@@G@@00143 10* DIMENSION KILI(4) WE )@@G@@ PRO00640 @K@[@@00144 10* EQUIVALENCE (KLASS,KIWF )@@G@@LI) PRO00650 @K@[@@00144 10*WG )@@G@@ END WH )@@G@@ PRO00660 @K@[@@00145 11* INCLUDE TAPES, LIST WI )@@G@@ DLI00110 @K@[@@00145 12* C WJ )@@G@@ DLI00120 WK )@@G@@@K@[@@00145 13* C WL )@@G@@ DLI00130 @K@[@@00145 14* C SET UP INITIAL WM )@@G@@CONDITIONS. DLI00140 @K@[@@00145 WN )@@G@@ 15* C WO )@@G@@ DLI00150 @K@[@@00146 15* COMMON /TAPES/ IO1, IO2, JAWP )@@G@@LTFD, JOUT, USE (10) PRO00680 @K@[@@00147 15* WQ )@@G@@ PARAMETER STDRD=5 @ STANDARD READ UNIT PROWR )@@G@@00690 @K@[@@00150 15* PARAMETER STDPRT=6 @ STANDARD PRINT UNIWS )@@G@@T PRO00700 @K@[@@00151 15* PARAMETERWT )@@G@@ STDALT=101 @ STANDARD ALTERNATE PRINT UNIT PRO00710 @K@[@@WU )@@G@@00151 15* END WV )@@G@@ PRO00720 @K@[@@00152 16* MERR=0 WW )@@G@@ DLI00160 @K@[@@00153 17*WX )@@G@@ IF (L15.NE.0) GO TO 30 WY )@@G@@ DLI00170 @K@[@@00155 18* IF (KLASS.LT.2) GO TO 20 WZ )@@G@@ DLI00180 @K@[@@00157 19* IF XA )@@G@@(MTRAN.NE.0) CALL DIAGNO (5) DLI00190 XB )@@G@@@K@[@@00157 20* C XC )@@G@@ DLI00200 @K@[@@00161 21* 10 MTRAN=0 XD )@@G@@ DLI00210 @K@[@@00162 XE )@@G@@ 22* MILDO=0 XF )@@G@@ DLI00220 @K@[@@00163 23* IF (KLASS.GT.2) NXEQ=NXEQ+1XG )@@G@@ DLI00230 @K@[@@00165 24* 20 XH )@@G@@ CONTINUE DLIXI )@@G@@00240 @K@[@@00166 25* RETURN XJ )@@G@@ DLI00250 @K@[@@00166 26* C XK )@@G@@ DLI00260 @K@[@@XL )@@G@@00167 27* 30 IF (NDEF) 10,60,40 XM )@@G@@ DLI00270 @K@[@@00167 28* C XN )@@G@@ DLI00280 @K@[@@00167 29*XO )@@G@@ C SCAN FOR DUPLICATE STATEMENT NUMBERS. XP )@@G@@ DLI00290 @K@[@@00167 30* C XQ )@@G@@ DLI00300 @K@[@@00172 31* 40 DO XR )@@G@@50 I=1,NDEF DLI00310 XS )@@G@@@K@[@@00175 32* IF (DSTMT(I).EQ.L15) GO TO 150 XT )@@G@@ DLI00320 @K@[@@00177 33* 50 CONTINUE XU )@@G@@ DLI00330 @K@[@@00177 XV )@@G@@ 34* C XW )@@G@@ DLI00340 @K@[@@00177 35* C SCAN FOR POSSIBLE DO-LOOP TXX )@@G@@ERMINATIONS. DLI00350 @K@[@@00177 36* C XY )@@G@@ DLIXZ )@@G@@00360 @K@[@@00201 37* 60 IF (NDOS.LE.0) GO TO 180 YA )@@G@@ DLI00370 @K@[@@00203 38* 70 I=NDOS YB )@@G@@ DLI00380 @K@[@@YC )@@G@@00204 39* IF (MILDO.NE.0.AND.MLGC.EQ.0) GO TO 90 YD )@@G@@ DLI00390 @K@[@@00206 40* IF (LDOS(I)-L15) 100,YE )@@G@@80,100 DLI00400 @K@[@@00211 41*YF )@@G@@ 80 NDOL=LDOL(I) YG )@@G@@ DLI00410 @K@[@@00212 42* NDOS=NDOS-1 YH )@@G@@ DLI00420 @K@[@@00213 43* GO YI )@@G@@TO 180 DLI00430 YJ )@@G@@@K@[@@00213 44* C YK )@@G@@ DLI00440 @K@[@@00214 45* 90 IF (LDOS(I)-L15YL )@@G@@) 100,110,100 DLI00450 @K@[@@00217 YM )@@G@@ 46* 100 I=I-1 YN )@@G@@ DLI00460 @K@[@@00220 47* IF (I) 70,180,90 YO )@@G@@ DLI00470 @K@[@@00223 48* 110YP )@@G@@ CALL DIAGNO (4) DLIYQ )@@G@@00480 @K@[@@00224 49* IF (I.EQ.NDOS) NDOL=LDOL(I) YR )@@G@@ DLI00490 @K@[@@00226 50* IF (MILDOYS )@@G@@) 140,120,140 DLI00500 @K@[@@YT )@@G@@00231 51* 120 IF (DIAG.NE.0) WRITE (JOUT,190) I,NDOS YU )@@G@@ DLI00510 @K@[@@00236 52* GO TO 140 YV )@@G@@ DLI00520 @K@[@@00236 53*YW )@@G@@ C YX )@@G@@ DLI00530 @K@[@@00236 54* C RESORT DO-LOOP TERMINAL LIST AFTEYY )@@G@@R DELETIONS. DLI00540 @K@[@@00236 55* C YZ )@@G@@ DLI00550 ZA )@@G@@@K@[@@00237 56* 130 LDO(I-1)=LDO(I) ZB )@@G@@ DLI00560 @K@[@@00240 57* 140 I=I+1 ZC )@@G@@ DLI00570 @K@[@@00241 ZD )@@G@@ 58* IF (I.LE.NDOS) GO TO 130 ZE )@@G@@ DLI00580 @K@[@@00243 59* NDOS=NDOS-1 ZF )@@G@@ DLI00590 @K@[@@00244 60* ZG )@@G@@ GO TO 170 DLIZH )@@G@@00600 @K@[@@00244 61* C ZI )@@G@@ DLI00610 @K@[@@00244 62* C ERROR DIAZJ )@@G@@GNOSTICS. DLI00620 @K@[@@ZK )@@G@@00244 63* C ZL )@@G@@ DLI00630 @K@[@@00245 64* 150 NMSG=NMSG+1 ZM )@@G@@ DLI00640 @K@[@@00246 65*ZN )@@G@@ NTEMP(5)=DLOC(I) ZO )@@G@@ DLI00650 @K@[@@00247 66* IF (DIAG.NE.0) WRITE (JOUT,200) NZP )@@G@@MSG,L15,NTEMP(5) DLI00660 @K@[@@00255 67* GO ZQ )@@G@@TO 170 DLI00670 ZR )@@G@@@K@[@@00256 68* 160 CALL DIAGNO (6) ZS )@@G@@ DLI00680 @K@[@@00257 69* NDEF=-1 ZT )@@G@@ DLI00690 @K@[@@00260 ZU )@@G@@ 70* MP2=0 ZV )@@G@@ DLI00700 @K@[@@00261 71* 170 MERR=-1 ZW )@@G@@ DLI00710 @K@[@@00262 72* ZX )@@G@@ GO TO 10 DLIZY )@@G@@00720 @K@[@@00262 73* C ZZ )@@G@@ DLI00730 @K@[@@00262 74* C ADD STATEAA )@@G@@MENT NUMBER TO DEFINED LIST. DLI00740 @K@[@@AB )@@G@@00262 75* C AC )@@G@@ DLI00750 @K@[@@00263 76* 180 IF (NDEF.EQ.DEFLNG) GAD )@@G@@O TO 160 DLI00760 @K@[@@00265 77*AE )@@G@@ NDEF=NDEF+1 AF )@@G@@ DLI00770 @K@[@@00266 78* DSTMT(NDEF)=L15 AG )@@G@@ DLI00780 @K@[@@00267 79* DLOAH )@@G@@C(NDEF)=LINE DLI00790 AI )@@G@@@K@[@@00270 80* GO TO 10 AJ )@@G@@ DLI00800 @K@[@@00270 81* C AK )@@G@@ DLI00810 @K@[@@00270 AL )@@G@@ 82* C AM )@@G@@ DLI00820 @K@[@@00271 83* 190 FORMAT (5H ****,7X,' *** DOAN )@@G@@ LOOP LEVEL',I2,' TERMINATES WHILE LEVEDLI00830 @K@[@@00271 84* AO )@@G@@ 1L',I2,' IS IN EFFECT. ***') DLIAP )@@G@@00840 @K@[@@00272 85* 200 FORMAT (8H **** (,I3,22H) *** STATEMENAQ )@@G@@T NUMBER,I5,25H DUPLICATES DLI00850 @K@[@@00272 86* 1THE NUMBEAR )@@G@@R AT,I4,1H.,8X,3H***) DLI00860 @K@[@@AS )@@G@@00272 87* C AT )@@G@@ DLI00870 @K@[@@00273 88* END AU )@@G@@ DLI00880 @D@]@@ END OAV )@@G@@F COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P EDIT 0 @[^]AW )@@G@@ H, ,1, EDIT . @L^@^__@@@FOR,S EDIT,EDIT @E@[@@CYCLE AX )@@G@@000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:28:13. @@@[@@@@@[@@@B@[@@AY )@@G@@ SUBROUTINE EDIT ENTRY POINT 000211@@@[@@@G@]@@ STORAGE USED: CAZ )@@G@@ODE(1) 000222; DATA(0) 000105; BLANK COMMON(2) 012611 @#@]@@ COMMON BBA )@@G@@LOCKS:@@@[@@@^@[@@ 0003 DIOMSG 000373@^@[@@ 0004 INIT 000013BB )@@G@@@^@[@@ 0005 TAPES 000016@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)BC )@@G@@@@@[@@@#@[@@ 0006 DIAGNO @#@[@@ 0007 NWDU$ @#@[@@ 0010 NBD )@@G@@IO2$ @#@[@@ 0011 NIO1$ @#@[@@ 0012 NERR3$ @F@#@@ STORAGE ABE )@@G@@SSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 00BF )@@G@@01 000120 100L 0001 000157 110L 0001 000165 120L 00BG )@@G@@00 000003 130F 0000 000036 140F @O@[@@ 0001 000031 155G BH )@@G@@ 0001 000037 160G 0001 000065 175G 0001 000006 20L BI )@@G@@ 0001 000073 200G @O@[@@ 0001 000015 40L 0001 000047 BJ )@@G@@60L 0001 000055 70L 0004 000012 DHDG 0004 I 000000 BK )@@G@@DIAG @O@[@@ 0000 I 000001 I 0002 000000 ICOL 0002 0BL )@@G@@00001 IFIR 0004 L 000001 INDENT 0000 000064 INJP$ @O@[@@ 00BM )@@G@@02 000002 INPUT 0002 000450 IOUT 0005 000000 IO1 00BN )@@G@@05 000001 IO2 0000 I 000000 IT @O@[@@ 0000 I 000002 J BO )@@G@@ 0005 000002 JALTFD 0002 003127 JCOL 0002 003130 JINT BP )@@G@@ 0002 005607 JMAX @O@[@@ 0005 I 000003 JOUT 0000 000054 BQ )@@G@@KBUFF 0000 000054 KB1 0002 I 005610 KB15 0000 000061 BR )@@G@@KB6 @O@[@@ 0000 000062 KDIG 0002 I 005611 KD15 0002 0BS )@@G@@03130 KIM 0002 000450 KOUT 0000 000062 K0 @O@[@@ 00BT )@@G@@02 005613 LAST 0002 005614 LCPY 0002 I 005615 LDEF 00BU )@@G@@04 L 000002 LDIAG 0002 I 010551 LDO @O@[@@ 0002 010602 LFIR BV )@@G@@ 0004 000003 LINE 0004 000004 LOPT 0002 010603 LQUAL BW )@@G@@ 0002 I 010604 LREF @O@[@@ 0002 005612 L772 0002 012554 BX )@@G@@MCOL 0002 012555 MEOF 0002 012556 MEX 0002 012557 BY )@@G@@MILDO @O@[@@ 0002 012560 MLGC 0002 I 012561 MP2 0003 0BZ )@@G@@00001 MSG 0002 012562 MSTOP 0002 012563 MTRAN @O@[@@ 00CA )@@G@@02 012564 NBLC 0002 012565 NCD 0002 012566 NCDO 00CB )@@G@@02 I 012567 NDEF 0002 012570 NDOL @O@[@@ 0002 012571 NDOS CC )@@G@@ 0002 012572 NINS 0003 I 000000 NMSG 0002 012573 NPAR CD )@@G@@ 0002 012574 NPUN @O@[@@ 0002 012575 NREC 0002 I 012576 CE )@@G@@NREF 0002 012577 NRT1 0002 012600 NRT2 0004 L 000005 CF )@@G@@NSTART@O@[@@ 0002 012601 NTEMP 0002 012606 NXEQ 0002 0CG )@@G@@03130 OUTPUT 0002 012607 PAREN 0002 012610 PNEXT @O@[@@ 00CH )@@G@@04 L 000006 RIGHT 0004 L 000007 RSTART 0004 000010 SOPT 00CI )@@G@@04 L 000011 SOURCE 0005 000004 USE @@@^@@@K@[@@00101 1* CJ )@@G@@ SUBROUTINE EDIT EDICK )@@G@@00010 @K@[@@00101 2* C CL )@@G@@ EDI00020 @K@[@@00101 3* C THIS SUBRCM )@@G@@OUTINE EDITS THE DEFINED AND THE REFERENCED STATEMENT EDI00030 @K@[@@CN )@@G@@00101 4* C NUMBER LIST. CO )@@G@@ EDI00040 @K@[@@00101 5* C CP )@@G@@ EDI00050 @K@[@@00101 6*CQ )@@G@@ C (1) DEFINED STATEMENTS THAT ARE NOT REFERENCED ARE DELETED.CR )@@G@@ EDI00060 @K@[@@00101 7* C (2) PSEUDO-STATEMENT NUMBERS CS )@@G@@OUTSIDE THE RANGE OF RENUMBERED EDI00070 @K@[@@00101 8* C CT )@@G@@ DEFINED STATEMENT NUMBERS ARE GENERATED FOR EACH EDI00080 CU )@@G@@@K@[@@00101 9* C REFERENCED STATEMENT WHICH IS NOT DEFCV )@@G@@INED. EDI00090 @K@[@@00101 10* C CW )@@G@@ EDI00100 @K@[@@00103 CX )@@G@@ 11* INCLUDE TIDY, LIST CY )@@G@@ EDI00110 @K@[@@00104 11* IMPLICIT INTEGER (A-Z) CZ )@@G@@ PRO00020 @K@[@@00105 11* DA )@@G@@ PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PRODB )@@G@@00030 @K@[@@00106 11* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTDC )@@G@@H OF DO LOOPS PRO00040 @K@[@@00107 11* PARAMETERDD )@@G@@ MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@DE )@@G@@00110 11* PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMEDF )@@G@@NT NUMBERS PRO00060 @K@[@@00111 11* COMMON ICOL, IFIR, INDG )@@G@@PUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 11*DH )@@G@@ 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), DI )@@G@@ PRO00080 @K@[@@00111 11* 2 LDO(DOS), LFIR, LQUAL, LREDJ )@@G@@F(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@00111 11* 3 DK )@@G@@ MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 DL )@@G@@@K@[@@00111 11* 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRDM )@@G@@T1, NRT2, NTEMP(5), PRO00110 @K@[@@00111 11* 5 NXEQ, PADN )@@G@@REN, PNEXT PRO00120 @K@[@@00112 DO )@@G@@ 11* DIMENSION KIM(CRDLNG,20) DP )@@G@@ PRO00130 @K@[@@00113 11* DIMENSION KOUT(CRDLNG,20) DQ )@@G@@ PRO00140 @K@[@@00114 11* DR )@@G@@ DIMENSION OUTPUT(12,20) PRODS )@@G@@00150 @K@[@@00115 11* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KDT )@@G@@B6) PRO00160 @K@[@@00116 11* EQUIVALENDU )@@G@@CE (KDIG(1),K0) PRO00170 @K@[@@DV )@@G@@00117 11* EQUIVALENCE (IOUT,KOUT) DW )@@G@@ PRO00180 @K@[@@00120 11* EQUIVALENCE (JINT,KIMDX )@@G@@) PRO00190 @K@[@@00121 11*DY )@@G@@ EQUIVALENCE (JINT,OUTPUT) DZ )@@G@@ PRO00200 @K@[@@00122 11* DEFINE DLOC(X)=FLD(0,18,LDEF(X)) EA )@@G@@ PRO00210 @K@[@@00123 11* DEFEB )@@G@@INE DSTMT(X)=FLD(18,18,LDEF(X)) PRO00220 EC )@@G@@@K@[@@00124 11* DEFINE LDOS(X)=FLD(0,18,LDO(X)) ED )@@G@@ PRO00230 @K@[@@00125 11* DEFINE LDOL(X)=EE )@@G@@FLD(18,18,LDO(X)) PRO00240 @K@[@@00125 EF )@@G@@ 11* END EG )@@G@@ PRO00250 @K@[@@00126 12* INCLUDE DIOMSG, LIST EH )@@G@@ EDI00120 @K@[@@00127 12* EI )@@G@@ PARAMETER LMSG=25 PROEJ )@@G@@00400 @K@[@@00130 12* COMMON /DIOMSG/ NMSG, MSG(10,LMSG) EK )@@G@@ PRO00410 @K@[@@00130 12* END EL )@@G@@ PRO00420 @K@[@@EM )@@G@@00131 13* INCLUDE INIT, LIST EN )@@G@@ EDI00130 @K@[@@00132 13* COMMON /INIT/ DIAG,INEO )@@G@@DENT,LDIAG,LINE,LOPT,NSTART,RIGHT,RSTART, PRO00440 @K@[@@00132 13*EP )@@G@@ 1 SOPT,SOURCE,DHDG EQ )@@G@@ PRO00450 @K@[@@00133 13* LOGICAL INDENT, LDIAG, NSTART, RSER )@@G@@TART, SOURCE PRO00460 @K@[@@00134 13* LOGES )@@G@@ICAL RIGHT PRO00470 ET )@@G@@@K@[@@00134 13* END EU )@@G@@ PRO00480 @K@[@@00135 14* INCLUDE TAPES, EV )@@G@@LIST EDI00140 @K@[@@00135 EW )@@G@@ 15* C EX )@@G@@ EDI00150 @K@[@@00135 16* C EY )@@G@@ EDI00160 @K@[@@00136 16* EZ )@@G@@ COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (10) PROFA )@@G@@00680 @K@[@@00137 16* PARAMETER STDRD=5 @ STANDARD READ UNIT FB )@@G@@ PRO00690 @K@[@@00140 16* PARAMETERFC )@@G@@ STDPRT=6 @ STANDARD PRINT UNIT PRO00700 @K@[@@FD )@@G@@00141 16* PARAMETER STDALT=101 @ STANDARD ALTERNATE PRINT UNIFE )@@G@@T PRO00710 @K@[@@00141 16* END FF )@@G@@ PRO00720 @K@[@@00142 17*FG )@@G@@ IF (NDEF) 10,10,20 FH )@@G@@ EDI00170 @K@[@@00145 18* 10 RETURN FI )@@G@@ EDI00180 @K@[@@00145 19* C FJ )@@G@@ EDI00190 FK )@@G@@@K@[@@00146 20* 20 IF (NREF) 30,30,40 FL )@@G@@ EDI00200 @K@[@@00151 21* 30 NDEF=0 FM )@@G@@ EDI00210 @K@[@@00152 FN )@@G@@ 22* RETURN FO )@@G@@ EDI00220 @K@[@@00152 23* C FP )@@G@@ EDI00230 @K@[@@00152 24* C FQ )@@G@@ SCAN DEFINED LIST FOR REFERENCES. DELETE NON-REFERENCED EDIFR )@@G@@00240 @K@[@@00152 25* C DEFINED STATEMENT NUMBERS. FS )@@G@@ EDI00250 @K@[@@00152 26* C FT )@@G@@ EDI00260 @K@[@@FU )@@G@@00153 27* 40 IT=0 FV )@@G@@ EDI00270 @K@[@@00154 28* DO 70 I=1,NDEF FW )@@G@@ EDI00280 @K@[@@00157 29*FX )@@G@@ DO 50 J=1,NREF FY )@@G@@ EDI00290 @K@[@@00162 30* 50 IF (DSTMT(I).EQ.LREF(J)) GO TO 60FZ )@@G@@ EDI00300 @K@[@@00165 31* GO GA )@@G@@TO 70 EDI00310 GB )@@G@@@K@[@@00166 32* 60 IT=IT+1 GC )@@G@@ EDI00320 @K@[@@00167 33* LDEF(IT)=LDEF(IGD )@@G@@) EDI00330 @K@[@@00170 GE )@@G@@ 34* 70 CONTINUE GF )@@G@@ EDI00340 @K@[@@00170 35* C GG )@@G@@ EDI00350 @K@[@@00170 36* C GH )@@G@@ SCAN REFERENCED STATEMENT LIST FOR MISSING DEFINITIONS. EDIGI )@@G@@00360 @K@[@@00170 37* C GJ )@@G@@ EDI00370 @K@[@@00172 38* NDEF=IT GK )@@G@@ EDI00380 @K@[@@GL )@@G@@00173 39* IT=0 GM )@@G@@ EDI00390 @K@[@@00174 40* DO 110 I=1,NREF GN )@@G@@ EDI00400 @K@[@@00177 41*GO )@@G@@ DO 80 J=1,NDEF GP )@@G@@ EDI00410 @K@[@@00202 42* 80 IF (LREF(I).EQ.DSTMT(J)) GO TO 11GQ )@@G@@0 EDI00420 @K@[@@00202 43* C GR )@@G@@ EDI00430 GS )@@G@@@K@[@@00202 44* C ADD PSEUDO-STATEMENT NUMBER. GT )@@G@@ EDI00440 @K@[@@00202 45* C GU )@@G@@ EDI00450 @K@[@@00205 GV )@@G@@ 46* IF (IT) 100,90,100 GW )@@G@@ EDI00460 @K@[@@00210 47* 90 IT=1 GX )@@G@@ EDI00470 @K@[@@00211 48* GY )@@G@@ IF (DIAG.NE.0) WRITE (JOUT,130) EDIGZ )@@G@@00480 @K@[@@00214 49* 100 J=NDEF*KD15+KB15 HA )@@G@@ EDI00490 @K@[@@00215 50* NDEF=NDEFHB )@@G@@+1 EDI00500 @K@[@@HC )@@G@@00216 51* IF (NDEF.GT.DEFLNG) GO TO 120 HD )@@G@@ EDI00510 @K@[@@00220 52* DSTMT(NDEF)=LREF(I) HE )@@G@@ EDI00520 @K@[@@00221 53*HF )@@G@@ DLOC(NDEF)=0 HG )@@G@@ EDI00530 @K@[@@00222 54* NMSG=NMSG+1 HH )@@G@@ EDI00540 @K@[@@00223 55* IF HI )@@G@@(DIAG.NE.0) WRITE (JOUT,140) NMSG,LREF(I),J EDI00550 HJ )@@G@@@K@[@@00231 56* 110 CONTINUE HK )@@G@@ EDI00560 @K@[@@00233 57* RETURN HL )@@G@@ EDI00570 @K@[@@00233 HM )@@G@@ 58* C HN )@@G@@ EDI00580 @K@[@@00234 59* 120 CALL DIAGNO (6) HO )@@G@@ EDI00590 @K@[@@00235 60* HP )@@G@@ NDEF=-1 EDIHQ )@@G@@00600 @K@[@@00236 61* MP2=0 HR )@@G@@ EDI00610 @K@[@@00237 62* RETURN HS )@@G@@ EDI00620 @K@[@@HT )@@G@@00237 63* C HU )@@G@@ EDI00630 @K@[@@00240 64* 130 FORMAT (1H0,12X,'*** HV )@@G@@THE FOLLOWING REFERENCED STATEMENTS ARE NOT DEDI00640 @K@[@@00240 65*HW )@@G@@ 1EFINED. ***'/13X,'*** PSEUDO-STATEMENT NUMBERS HAVE BEEN HX )@@G@@ASSEDI00650 @K@[@@00240 66* 2IGNED. ***'/1X) HY )@@G@@ EDI00660 @K@[@@00241 67* 140 FORHZ )@@G@@MAT (7X,1H(,I3,22H) *** STATEMENT NUMBER,I5,19H IS ASSIGNED NUMEDI00670 IA )@@G@@@K@[@@00241 68* 1BER,I5,1H.,13X,3H***) IB )@@G@@ EDI00680 @K@[@@00241 69* C IC )@@G@@ EDI00690 @K@[@@00242 ID )@@G@@ 70* END IE )@@G@@ EDI00700 @D@]@@ END OF COMPILATION: NO DIAGNOSTICIF )@@G@@S. @#@^@@@HDG,P HOLCK 0 50 H, ,1, HOLCK . @^__@@IG )@@G@@@FOR,S HOLCK,HOLCK @E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUGIH )@@G@@ 72 AT 19:28:18. @@@[@@@@@[@@@B@[@@ SUBROUTINE HOLCK ENTRY POINT II )@@G@@000376@@@[@@@G@]@@ STORAGE USED: CODE(1) 000407; DATA(0) 000036; BLANKIJ )@@G@@ COMMON(2) 012611 @#@]@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 ALPHA IK )@@G@@000065@^@[@@ 0004 INIT 000013@^@[@@ 0005 LIOS 000004@A@#@@IL )@@G@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 0006 RSTAT @#@[@@IM )@@G@@ 0007 IOSYS1 @#@[@@ 0010 NERR3$ @F@#@@ STORAGE ASSIGNMENT (IN )@@G@@BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 000004 IO )@@G@@10L 0001 000110 100L 0001 000124 110L 0001 000127 IP )@@G@@120L 0001 000153 130L @O@[@@ 0001 000010 145G 0001 0IQ )@@G@@00171 150L 0001 000040 162G 0001 000203 170L 0001 0IR )@@G@@00052 171G @O@[@@ 0001 000207 180L 0001 000230 190L 00IS )@@G@@01 000026 20L 0001 000064 204G 0001 000247 210L @O@[@@IT )@@G@@ 0001 000262 230L 0001 000331 250L 0001 000161 253G IU )@@G@@ 0001 000176 262G 0001 000340 270L @O@[@@ 0001 000343 IV )@@G@@280L 0001 000351 290L 0001 000237 300G 0001 000253 IW )@@G@@307G 0001 000271 316G @O@[@@ 0001 000335 337G 0001 0IX )@@G@@00102 80L 0001 000104 90L 0004 000012 DHDG 0004 0IY )@@G@@00000 DIAG @O@[@@ 0000 I 000002 I 0000 I 000001 IB 00IZ )@@G@@02 000000 ICOL 0002 I 000001 IFIR 0005 I 000003 IMAX @O@[@@JA )@@G@@ 0004 L 000001 INDENT 0000 000021 INJP$ 0002 000002 INPUT JB )@@G@@ 0002 I 000450 IOUT 0000 I 000006 IS @O@[@@ 0005 I 000001 JC )@@G@@ITYPE 0000 I 000005 J 0002 I 003127 JCOL 0002 I 003130 JD )@@G@@JINT 0002 I 005607 JMAX @O@[@@ 0003 000013 KA 0003 I 0JE )@@G@@00013 KABC 0003 000061 KAND 0003 I 000062 KAT 0003 0JF )@@G@@00014 KB @O@[@@ 0003 I 000000 KBL 0000 000007 KBUFF 00JG )@@G@@00 000007 KB1 0002 005610 KB15 0000 000014 KB6 @O@[@@JH )@@G@@ 0003 I 000015 KC 0003 000051 KCLOSE 0003 000046 KCOMMAJI )@@G@@ 0003 000016 KD 0003 000057 KDASH @O@[@@ 0003 I 000001 JJ )@@G@@KDIG 0003 000056 KDOLAR 0002 005611 KD15 0003 000017 JK )@@G@@KE 0003 000045 KEQ @O@[@@ 0003 I 000064 KERM 0003 0JL )@@G@@00020 KF 0003 000021 KG 0003 000022 KH 0003 0JM )@@G@@00023 KI @O@[@@ 0005 I 000000 KILI 0002 003130 KIM 00JN )@@G@@03 000024 KJ 0003 000025 KK 0003 000026 KL @O@[@@JO )@@G@@ 0005 I 000000 KLASS 0003 000063 KLR2 0003 000027 KM JP )@@G@@ 0003 000053 KMINUS 0003 000030 KN @O@[@@ 0003 000031 JQ )@@G@@KO 0003 000047 KOPEN 0002 000450 KOUT 0003 000032 JR )@@G@@KP 0003 000055 KPERD @O@[@@ 0003 000052 KPLUS 0003 0JS )@@G@@00033 KQ 0003 I 000060 KQUOTE 0003 000034 KR 0003 0JT )@@G@@00035 KS @O@[@@ 0003 000050 KSLASH 0003 I 000045 KSPK 00JU )@@G@@03 000054 KSTAR 0003 000036 KT 0003 000037 KU @O@[@@JV )@@G@@ 0003 000040 KV 0003 000041 KW 0003 000042 KX JW )@@G@@ 0003 000043 KY 0003 000044 KZ @O@[@@ 0003 000001 JX )@@G@@K0 0000 I 000003 L 0002 005613 LAST 0002 005614 JY )@@G@@LCPY 0002 I 005615 LDEF @O@[@@ 0004 L 000002 LDIAG 0002 I 0JZ )@@G@@10551 LDO 0002 010602 LFIR 0004 000003 LINE 0004 0KA )@@G@@00004 LOPT @O@[@@ 0002 010603 LQUAL 0002 010604 LREF 00KB )@@G@@05 000002 L15 0002 I 005612 L772 0000 I 000000 MAX @O@[@@KC )@@G@@ 0002 012554 MCOL 0002 012555 MEOF 0002 012556 MEX KD )@@G@@ 0002 012557 MILDO 0002 012560 MLGC @O@[@@ 0002 012561 KE )@@G@@MP2 0002 012562 MSTOP 0002 012563 MTRAN 0002 012564 KF )@@G@@NBLC 0002 012565 NCD @O@[@@ 0002 012566 NCDO 0000 I 0KG )@@G@@00004 ND 0002 012567 NDEF 0002 012570 NDOL 0002 0KH )@@G@@12571 NDOS @O@[@@ 0002 012572 NINS 0002 012573 NPAR 00KI )@@G@@02 012574 NPUN 0002 012575 NREC 0002 012576 NREF @O@[@@KJ )@@G@@ 0002 I 012577 NRT1 0002 012600 NRT2 0004 L 000005 NSTARTKK )@@G@@ 0002 I 012601 NTEMP 0002 012606 NXEQ @O@[@@ 0002 003130 KL )@@G@@OUTPUT 0002 012607 PAREN 0002 012610 PNEXT 0004 L 000006 KM )@@G@@RIGHT 0004 L 000007 RSTART@C@[@@ 0004 000010 SOPT 0004 L 0KN )@@G@@00011 SOURCE@@@^@@@K@[@@00101 1* SUBROUTINE HOLCK KO )@@G@@ HOL00010 @K@[@@00101 2* C KP )@@G@@ HOLKQ )@@G@@00020 @K@[@@00101 3* C THIS ROUTINE SCANS JINT(I) FROM LFIR TOKR )@@G@@ JMAX, LOOKING FOR HOL00030 @K@[@@00101 4* C HOLLERITHKS )@@G@@ CONSTANTS AND FIELDS. IF SUCH FIELDS ARE FOUND, THE HOL00040 @K@[@@KT )@@G@@00101 5* C BLANK SPACES AND THE LEFT AND RIGHT PARENTHESIS AREKU )@@G@@ REPLACED WITH HOL00050 @K@[@@00101 6* C EQUIVALENT BLANK AND KV )@@G@@PARENTHESIS SYMBOLS WHICH WILL NOT INTERFERE HOL00060 @K@[@@00101 7*KW )@@G@@ C WITH COPY OR WITH PARENTHESIS COUNTING. KX )@@G@@ HOL00070 @K@[@@00101 8* C KY )@@G@@ HOL00080 @K@[@@00103 9* INCKZ )@@G@@LUDE TIDY, LIST HOL00090 LA )@@G@@@K@[@@00104 9* IMPLICIT INTEGER (A-Z) LB )@@G@@ PRO00020 @K@[@@00105 9* PARAMETER CRDLNLC )@@G@@G=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PRO00030 @K@[@@00106 LD )@@G@@ 9* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPS LE )@@G@@ PRO00040 @K@[@@00107 9* PARAMETER MAXCHS=1327 @ MAXLF )@@G@@IMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@00110 9* LG )@@G@@ PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS PROLH )@@G@@00060 @K@[@@00111 9* COMMON ICOL, IFIR, INPUT(14,21), IOUT(MLI )@@G@@AXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 9* 1 JMLJ )@@G@@AX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), PRO00080 @K@[@@LK )@@G@@00111 9* 2 LDO(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOLL )@@G@@F, MEX, MILDO, PRO00090 @K@[@@00111 9* 3 MLGC, MP2, MSTLM )@@G@@OP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 @K@[@@00111 9*LN )@@G@@ 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5)LO )@@G@@, PRO00110 @K@[@@00111 9* 5 NXEQ, PAREN, PNEXT LP )@@G@@ PRO00120 @K@[@@00112 9* DIMLQ )@@G@@ENSION KIM(CRDLNG,20) PRO00130 LR )@@G@@@K@[@@00113 9* DIMENSION KOUT(CRDLNG,20) LS )@@G@@ PRO00140 @K@[@@00114 9* DIMENSION OUTPULT )@@G@@T(12,20) PRO00150 @K@[@@00115 LU )@@G@@ 9* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) LV )@@G@@ PRO00160 @K@[@@00116 9* EQUIVALENCE (KDIG(1),K0) LW )@@G@@ PRO00170 @K@[@@00117 9* LX )@@G@@ EQUIVALENCE (IOUT,KOUT) PROLY )@@G@@00180 @K@[@@00120 9* EQUIVALENCE (JINT,KIM) LZ )@@G@@ PRO00190 @K@[@@00121 9* EQUIVALENMA )@@G@@CE (JINT,OUTPUT) PRO00200 @K@[@@MB )@@G@@00122 9* DEFINE DLOC(X)=FLD(0,18,LDEF(X)) MC )@@G@@ PRO00210 @K@[@@00123 9* DEFINE DSTMT(X)=FLD(1MD )@@G@@8,18,LDEF(X)) PRO00220 @K@[@@00124 9*ME )@@G@@ DEFINE LDOS(X)=FLD(0,18,LDO(X)) MF )@@G@@ PRO00230 @K@[@@00125 9* DEFINE LDOL(X)=FLD(18,18,LDO(X)) MG )@@G@@ PRO00240 @K@[@@00125 9* END MH )@@G@@ PRO00250 MI )@@G@@@K@[@@00126 10* INCLUDE ALPHA, LIST MJ )@@G@@ HOL00100 @K@[@@00127 10* COMMON /ALPHA/ MK )@@G@@KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 @K@[@@00127 ML )@@G@@ 10* 1 KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,KY,KZ,MM )@@G@@ PRO00280 @K@[@@00127 10* 2 KEQ,KCOMMA,KMN )@@G@@OPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 @K@[@@00127 10* MO )@@G@@ 3 KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2,KERM PROMP )@@G@@00300 @K@[@@00130 10* DIMENSION KABC(26), KSPK(14) MQ )@@G@@ PRO00310 @K@[@@00131 10* EQUIVALENMR )@@G@@CE (KABC,KA), (KSPK,KEQ) PRO00320 @K@[@@MS )@@G@@00131 10* END MT )@@G@@ PRO00330 @K@[@@00132 11* INCLUDE INIT, LIST MU )@@G@@ HOL00110 @K@[@@00133 11*MV )@@G@@ COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOPT,NSTART,RIGHT,RSTART, MW )@@G@@ PRO00440 @K@[@@00133 11* 1 SOPT,SOURCE,DHDG MX )@@G@@ PRO00450 @K@[@@00134 11* LOGMY )@@G@@ICAL INDENT, LDIAG, NSTART, RSTART, SOURCE PRO00460 MZ )@@G@@@K@[@@00135 11* LOGICAL RIGHT NA )@@G@@ PRO00470 @K@[@@00135 11* END NB )@@G@@ PRO00480 @K@[@@00136 NC )@@G@@ 12* INCLUDE LIOS, LIST ND )@@G@@ HOL00120 @K@[@@00136 13* C NE )@@G@@ HOL00130 @K@[@@00136 14* C NF )@@G@@ HOLNG )@@G@@00140 @K@[@@00136 15* C LOOK FOR H IN FORTRAN FIELD. NH )@@G@@ HOL00150 @K@[@@00136 16* C NI )@@G@@ HOL00160 @K@[@@NJ )@@G@@00137 16* COMMON /LIOS/ KLASS, ITYPE, L15, IMAX NK )@@G@@ PRO00630 @K@[@@00140 16* DIMENSION KILI(4) NL )@@G@@ PRO00640 @K@[@@00141 16*NM )@@G@@ EQUIVALENCE (KLASS,KILI) NN )@@G@@ PRO00650 @K@[@@00141 16* END NO )@@G@@ PRO00660 @K@[@@00142 17* NTENP )@@G@@MP(1)=0 HOL00170 NQ )@@G@@@K@[@@00143 18* IB=JCOL+1 NR )@@G@@ HOL00180 @K@[@@00144 19* 10 DO 110 I=IB,JMANS )@@G@@X HOL00190 @K@[@@00147 NT )@@G@@ 20* IF (JINT(I).EQ.KABC(8)) GO TO 20 NU )@@G@@ HOL00200 @K@[@@00151 21* IF (JINT(I).EQ.KSPK(12)) GONV )@@G@@ TO 130 HOL00210 @K@[@@00153 22* NW )@@G@@ IF (JINT(I).EQ.KAT) GO TO 180 HOLNX )@@G@@00220 @K@[@@00155 23* GO TO 110 NY )@@G@@ HOL00230 @K@[@@00156 24* 20 MAX=I-IB+NZ )@@G@@1 HOL00240 @K@[@@OA )@@G@@00157 25* L=I OB )@@G@@ HOL00250 @K@[@@00157 26* C OC )@@G@@ HOL00260 @K@[@@00157 27*OD )@@G@@ C LOOK FOR PRECEDING NUMERIC DIGITS OR BLANKS. OE )@@G@@ HOL00270 @K@[@@00157 28* C OF )@@G@@ HOL00280 @K@[@@00160 29* ND=OG )@@G@@0 HOL00290 OH )@@G@@@K@[@@00161 30* DO 90 J=1,MAX OI )@@G@@ HOL00300 @K@[@@00164 31* L=L-1 OJ )@@G@@ HOL00310 @K@[@@00165 OK )@@G@@ 32* IF (JINT(L)-KBL) 30,90,30 OL )@@G@@ HOL00320 @K@[@@00170 33* 30 DO 40 IS=1,10 OM )@@G@@ HOL00330 @K@[@@00173 34* ON )@@G@@ IF (JINT(L)-KDIG(IS)) 40,80,40 HOLOO )@@G@@00340 @K@[@@00176 35* 40 CONTINUE OP )@@G@@ HOL00350 @K@[@@00200 36* IF (ND) 5OQ )@@G@@0,110,50 HOL00360 @K@[@@OR )@@G@@00200 37* C OS )@@G@@ HOL00370 @K@[@@00200 38* C LOOK FOR PRECEDING SPOT )@@G@@ECIAL CHARACTER. = , ( / ) + - * HOL00380 @K@[@@00200 39*OU )@@G@@ C OV )@@G@@ HOL00390 @K@[@@00203 40* 50 DO 60 IS=1,9 OW )@@G@@ HOL00400 @K@[@@00206 41* IF OX )@@G@@(JINT(L)-KSPK(IS)) 60,100,60 HOL00410 OY )@@G@@@K@[@@00211 42* 60 CONTINUE OZ )@@G@@ HOL00420 @K@[@@00211 43* C PA )@@G@@ HOL00430 @K@[@@00211 PB )@@G@@ 44* C NO SPECIAL CHARACTER. LOOK FOR MISSING (,) IN FORMAT STAPC )@@G@@TEMENT. HOL00440 @K@[@@00211 45* C PD )@@G@@ HOL00450 @K@[@@00213 46* PE )@@G@@ IF (JINT(L)-KABC(24)) 110,70,110 HOLPF )@@G@@00460 @K@[@@00216 47* 70 IF (KLASS.NE.2) GO TO 110 PG )@@G@@ HOL00470 @K@[@@00220 48* GO TO 100PH )@@G@@ HOL00480 @K@[@@PI )@@G@@00221 49* 80 ND=-1 PJ )@@G@@ HOL00490 @K@[@@00222 50* 90 CONTINUE PK )@@G@@ HOL00500 @K@[@@00224 51*PL )@@G@@ IF (ND) 100,110,100 PM )@@G@@ HOL00510 @K@[@@00224 52* C PN )@@G@@ HOL00520 @K@[@@00224 53* C EVAPO )@@G@@LUATE NUMBER OF HOLLERITHS (IF ANY). HOL00530 PP )@@G@@@K@[@@00224 54* C PQ )@@G@@ HOL00540 @K@[@@00227 55* 100 IS=JCOL PR )@@G@@ HOL00550 @K@[@@00230 PS )@@G@@ 56* JCOL=L+1 PT )@@G@@ HOL00560 @K@[@@00231 57* CALL RSTAT PU )@@G@@ HOL00570 @K@[@@00232 58* PV )@@G@@ JCOL=IS HOLPW )@@G@@00580 @K@[@@00233 59* IF (L772) 110,110,120 PX )@@G@@ HOL00590 @K@[@@00236 60* 110 CONTINUE PY )@@G@@ HOL00600 @K@[@@PZ )@@G@@00240 61* GO TO 170 QA )@@G@@ HOL00610 @K@[@@00240 62* C QB )@@G@@ HOL00620 @K@[@@00241 63*QC )@@G@@ 120 MAX=I+L772 QD )@@G@@ HOL00630 @K@[@@00242 64* IF (JMAX.GE.MAX) GO TO 150 QE )@@G@@ HOL00640 @K@[@@00242 65* C QF )@@G@@ HOL00650 QG )@@G@@@K@[@@00242 66* C WIDEN HOLLERITH FIELD TO ACCOUNT FOR TRAILINGQH )@@G@@ BLANKS. HOL00660 @K@[@@00242 67* C QI )@@G@@ HOL00670 @K@[@@00244 QJ )@@G@@ 68* IF (MAX.GT.1326) MAX=1326 QK )@@G@@ HOL00680 @K@[@@00246 69* JMAX=MAX QL )@@G@@ HOL00690 @K@[@@00247 70* QM )@@G@@ JINT(MAX+1)=KERM HOLQN )@@G@@00700 @K@[@@00250 71* GO TO 150 QO )@@G@@ HOL00710 @K@[@@00250 72* C QP )@@G@@ HOL00720 @K@[@@QQ )@@G@@00250 73* C ALTER FIELD IN ' ' TO MAKE SYMBOLS DISTINCT FROM FOQR )@@G@@RTRAN. HOL00730 @K@[@@00250 74* C QS )@@G@@ HOL00740 @K@[@@00251 75*QT )@@G@@ 130 IB=I+1 QU )@@G@@ HOL00750 @K@[@@00252 76* DO 140 MAX=IB,JMAX QV )@@G@@ HOL00760 @K@[@@00255 77* 140 IF QW )@@G@@(JINT(MAX).EQ.KQUOTE) GO TO 150 HOL00770 QX )@@G@@@K@[@@00260 78* GO TO 280 @ NO SECOND '. ASSUME DIRECT ACCQY )@@G@@ESS I/O STATEMENT HOL00780 @K@[@@00261 79* 150 DO 160 I=I,MAX QZ )@@G@@ HOL00790 @K@[@@00264 RA )@@G@@ 80* 160 JINT(I)=JINT(I)+1 RB )@@G@@ HOL00800 @K@[@@00266 81* GO TO 270 RC )@@G@@ HOL00810 @K@[@@00266 82* C RD )@@G@@ HOLRE )@@G@@00820 @K@[@@00267 83* 170 L772=0 RF )@@G@@ HOL00830 @K@[@@00270 84* RETURN RG )@@G@@ HOL00840 @K@[@@RH )@@G@@00270 85* C RI )@@G@@ HOL00850 @K@[@@00270 86* C CHECK FOR EMBEDDED RJ )@@G@@ @-COMMENT HOL00860 @K@[@@00270 87*RK )@@G@@ C RL )@@G@@ HOL00870 @K@[@@00271 88* 180 MAX=(((I-7)/66+1)*66)+6 RM )@@G@@@ END OF CARD HOL00880 @K@[@@00272 89* IF RN )@@G@@(MAX.GE.JMAX) GO TO 290 @ COMMENT OCCURS ON LAST CARD HOL00890 RO )@@G@@@K@[@@00274 90* IF (IFIR.EQ.14) IFIR=0 @ SET FLAG FRP )@@G@@OR EMBEDDED @-COMMENTHOL00900 @K@[@@00276 91* 190 JINT(I)=KBL RQ )@@G@@ @ REMOVE @ HOL00910 @K@[@@00277 RR )@@G@@ 92* DO 200 IS=MAX,I,-1 RS )@@G@@ HOL00920 @K@[@@00302 93* 200 IF (JINT(IS).NE.KBL) GO TO RT )@@G@@210 HOL00930 @K@[@@00305 94* RU )@@G@@ GO TO 270 @ NO COMMENT FOLLOWS @. IGNORE HOLRV )@@G@@00940 @K@[@@00305 95* C RW )@@G@@ HOL00950 @K@[@@00305 96* C LOOK FOR RX )@@G@@FIRST NON-BLANK AFTER @ HOL00960 @K@[@@RY )@@G@@00305 97* C RZ )@@G@@ HOL00970 @K@[@@00306 98* 210 DO 220 I=I,IS SA )@@G@@ HOL00980 @K@[@@00311 99*SB )@@G@@ 220 IF (JINT(I).NE.KBL) GO TO 230 SC )@@G@@ HOL00990 @K@[@@00314 100* 230 L=6 SD )@@G@@ HOL01000 @K@[@@00315 101* DO SE )@@G@@240 I=I,IS HOL01010 SF )@@G@@@K@[@@00320 102* L=L+1 SG )@@G@@ HOL01020 @K@[@@00321 103* IOUT(L)=JINT(I)SH )@@G@@ HOL01030 @K@[@@00322 SI )@@G@@ 104* 240 JINT(I)=KBL SJ )@@G@@ HOL01040 @K@[@@00324 105* IOUT(1)=KC SK )@@G@@ HOL01050 @K@[@@00325 106* SL )@@G@@ ITYPE=0 HOLSM )@@G@@01060 @K@[@@00326 107* KLASS=0 SN )@@G@@ HOL01070 @K@[@@00327 108* IMAX=L SO )@@G@@ HOL01080 @K@[@@SP )@@G@@00330 109* NTEMP(1)=1 @ SET INTERNAL FLAG FOR EMBESQ )@@G@@DDED COMMENT HOL01090 @K@[@@00330 110* C SR )@@G@@ HOL01100 @K@[@@00330 111*SS )@@G@@ C WRITE COMMENT IMAGE ON TAPE 1 FOR PASS 2. ST )@@G@@ HOL01110 @K@[@@00330 112* C SU )@@G@@ HOL01120 @K@[@@00331 113* IF SV )@@G@@(RSTART) GO TO 250 @ DON'T WRITE COMMENT AGAIN HOL01130 SW )@@G@@@K@[@@00333 114* CALL IOSYS1 (2,KILI,4) SX )@@G@@ HOL01140 @K@[@@00334 115* CALL IOSYS1 (2,SY )@@G@@IOUT,IMAX) HOL01150 @K@[@@00335 SZ )@@G@@ 116* NRT1=NRT1+1 TA )@@G@@ HOL01160 @K@[@@00335 117* C TB )@@G@@ HOL01170 @K@[@@00335 118* C TC )@@G@@ CLEAR IOUT HOLTD )@@G@@01180 @K@[@@00335 119* C TE )@@G@@ HOL01190 @K@[@@00336 120* 250 DO 260 I=TF )@@G@@1,L HOL01200 @K@[@@TG )@@G@@00341 121* 260 IOUT(I)=KBL TH )@@G@@ HOL01210 @K@[@@00341 122* C TI )@@G@@ HOL01220 @K@[@@00343 123*TJ )@@G@@ 270 IB=MAX+1 TK )@@G@@ HOL01230 @K@[@@00344 124* 280 IF (IB.GT.JMAX) GO TO 170 TL )@@G@@ HOL01240 @K@[@@00346 125* GO TM )@@G@@TO 10 HOL01250 TN )@@G@@@K@[@@00346 126* C TO )@@G@@ HOL01260 @K@[@@00347 127* 290 IF (NTEMP(1).EQTP )@@G@@.0) GO TO 170 @ NO EMBEDDED COMMENTS HOL01270 @K@[@@00351 TQ )@@G@@ 128* MAX=JMAX TR )@@G@@ HOL01280 @K@[@@00352 129* JMAX=I TS )@@G@@ HOL01290 @K@[@@00353 130* TT )@@G@@ GO TO 190 HOLTU )@@G@@01300 @K@[@@00353 131* C TV )@@G@@ HOL01310 @K@[@@00354 132* END TW )@@G@@ HOL01320 @D@]@@TX )@@G@@ END OF COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P INTY )@@G@@ITAL 0 STO H, ,1, INITAL . @L^@^__@@@FOR,S INITAL,INITAL TZ )@@G@@@E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:28:30. @@@[@@UA )@@G@@@@@[@@@B@[@@ SUBROUTINE INITAL ENTRY POINT 000363@@@[@@@G@]@@ STOUB )@@G@@RAGE USED: CODE(1) 000365; DATA(0) 000157; BLANK COMMON(2) 012611 @#@]@@UC )@@G@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 INIT 000013@^@[@@ 0004 TUD )@@G@@APES 000016@^@[@@ 0005 WORK 001673@A@#@@ EXTERNAL REFERENCES (UE )@@G@@BLOCK, NAME)@@@[@@@#@[@@ 0006 INFORR @#@[@@ 0007 INFORW @#@[@@UF )@@G@@ 0010 INFFMT @#@[@@ 0011 ASSIGN @#@[@@ 0012 INFORU @#@[@@UG )@@G@@ 0013 ELTRO @#@[@@ 0014 ELTWO @#@[@@ 0015 ELTWHD @#@[@@UH )@@G@@ 0016 NWDU$ @#@[@@ 0017 NIO2$ @#@[@@ 0020 NSTOP$ @#@[@@UI )@@G@@ 0021 NIO1$ @#@[@@ 0022 NERR3$ @F@#@@ STORAGE ASSIGNMENT (UJ )@@G@@BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 000020 UK )@@G@@10L 0001 000177 100L 0001 000202 110L 0001 000210 UL )@@G@@120L 0001 000221 130L @O@[@@ 0001 000230 140L 0001 0UM )@@G@@00246 150L 0001 000262 160L 0001 000302 170L 0001 0UN )@@G@@00313 180L @O@[@@ 0001 000321 190L 0001 000063 20L 00UO )@@G@@01 000340 200L 0001 000354 210L 0000 000016 220F @O@[@@UP )@@G@@ 0000 000032 230F 0000 000040 240F 0000 000047 250F UQ )@@G@@ 0000 000053 260F 0000 000061 270F @O@[@@ 0000 000067 UR )@@G@@280F 0000 000075 290F 0001 000070 30L 0001 000073 US )@@G@@40L 0001 000101 50L @O@[@@ 0001 000113 60L 0001 0UT )@@G@@00127 70L 0001 000147 80L 0001 000160 90L 0003 0UU )@@G@@00012 DHDG @O@[@@ 0003 I 000000 DIAG 0005 I 000000 ECYC 00UV )@@G@@13 I 000000 ELTRO 0015 I 000000 ELTWHD 0014 I 000000 ELTWO @O@[@@UW )@@G@@ 0005 I 001026 FILE 0000 I 000000 I 0002 000000 ICOL UX )@@G@@ 0002 000001 IFIR 0003 L 000001 INDENT@O@[@@ 0000 000152 UY )@@G@@INJP$ 0002 000002 INPUT 0002 000450 IOUT 0004 000000 UZ )@@G@@IO1 0004 000001 IO2 @O@[@@ 0004 000002 JALTFD 0002 0VA )@@G@@03127 JCOL 0002 003130 JINT 0002 005607 JMAX 0004 0VB )@@G@@00003 JOUT @O@[@@ 0000 000103 KBUFF 0000 000103 KB1 00VC )@@G@@02 005610 KB15 0000 000110 KB6 0000 000111 KDIG @O@[@@VD )@@G@@ 0002 005611 KD15 0002 003130 KIM 0002 000450 KOUT VE )@@G@@ 0000 000111 K0 0002 005613 LAST @O@[@@ 0005 I 000001 VF )@@G@@LATEST 0002 005614 LCPY 0002 I 005615 LDEF 0003 L 000002 VG )@@G@@LDIAG 0002 I 010551 LDO @O@[@@ 0002 010602 LFIR 0003 I 0VH )@@G@@00003 LINE 0003 I 000004 LOPT 0002 010603 LQUAL 0002 0VI )@@G@@10604 LREF @O@[@@ 0002 005612 L772 0002 I 012554 MCOL 00VJ )@@G@@02 012555 MEOF 0002 012556 MEX 0002 012557 MILDO @O@[@@VK )@@G@@ 0002 012560 MLGC 0000 I 000001 MPUN 0002 012561 MP2 VL )@@G@@ 0002 012562 MSTOP 0002 012563 MTRAN @O@[@@ 0002 012564 VM )@@G@@NBLC 0002 012565 NCD 0002 012566 NCDO 0002 012567 VN )@@G@@NDEF 0002 012570 NDOL @O@[@@ 0002 012571 NDOS 0002 0VO )@@G@@12572 NINS 0005 I 000002 NOSPC1 0002 012573 NPAR 0002 0VP )@@G@@12574 NPUN @O@[@@ 0002 012575 NREC 0002 012576 NREF 00VQ )@@G@@02 012577 NRT1 0002 012600 NRT2 0003 L 000005 NSTART@O@[@@VR )@@G@@ 0002 012601 NTEMP 0002 012606 NXEQ 0002 003130 OUTPUTVS )@@G@@ 0002 012607 PAREN 0002 012610 PNEXT @O@[@@ 0003 L 000006 VT )@@G@@RIGHT 0003 L 000007 RSTART 0003 I 000010 SOPT 0003 L 000011 VU )@@G@@SOURCE 0000 I 000112 SPEC1 @O@[@@ 0000 I 000112 SPEC2 0005 I 0VV )@@G@@00737 TIDYC 0004 000004 USE 0005 I 000003 WORK1 0005 I 0VW )@@G@@00737 WORK2 @@@^@@@K@[@@00101 1* SUBROUTINE INITAL VX )@@G@@ INI00010 @K@[@@00101 2* C VY )@@G@@ INIVZ )@@G@@00020 @K@[@@00101 3* C THIS SUBROUTINE READS THE PROCESSOR CALWA )@@G@@L CARD AND INITIALIZES INI00030 @K@[@@00101 4* C THE ENVIRWB )@@G@@ONMENT FOR TIDY INI00040 @K@[@@WC )@@G@@00101 5* C WD )@@G@@ INI00050 @K@[@@00103 6* INCLUDE TIDY, LIST WE )@@G@@ INI00060 @K@[@@00104 6*WF )@@G@@ IMPLICIT INTEGER (A-Z) WG )@@G@@ PRO00020 @K@[@@00105 6* PARAMETER CRDLNG=66 @ MAXIMUM NO.WH )@@G@@ OF CHARS. PER CONT. CARD PRO00030 @K@[@@00106 6* PARWI )@@G@@AMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPS PRO00040 WJ )@@G@@@K@[@@00107 6* PARAMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS.WK )@@G@@ IN A STATEMENT PRO00050 @K@[@@00110 6* PARAMETER DEFLNWL )@@G@@G=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS PRO00060 @K@[@@00111 WM )@@G@@ 6* COMMON ICOL, IFIR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINTWN )@@G@@(MAXCHS),PRO00070 @K@[@@00111 6* 1 JMAX, KB15, KD15, L7WO )@@G@@72, LAST, LCPY, LDEF(DEFLNG), PRO00080 @K@[@@00111 6* WP )@@G@@ 2 LDO(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOF, MEX, MILDO, PROWQ )@@G@@00090 @K@[@@00111 6* 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NWR )@@G@@CD, NCDO, NDEF, NDOL, PRO00100 @K@[@@00111 6* 4 NDWS )@@G@@OS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@WT )@@G@@00111 6* 5 NXEQ, PAREN, PNEXT WU )@@G@@ PRO00120 @K@[@@00112 6* DIMENSION KIM(CRDLNG,WV )@@G@@20) PRO00130 @K@[@@00113 6*WW )@@G@@ DIMENSION KOUT(CRDLNG,20) WX )@@G@@ PRO00140 @K@[@@00114 6* DIMENSION OUTPUT(12,20) WY )@@G@@ PRO00150 @K@[@@00115 6* EQUWZ )@@G@@IVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) PRO00160 XA )@@G@@@K@[@@00116 6* EQUIVALENCE (KDIG(1),K0) XB )@@G@@ PRO00170 @K@[@@00117 6* EQUIVALENCE (IOXC )@@G@@UT,KOUT) PRO00180 @K@[@@00120 XD )@@G@@ 6* EQUIVALENCE (JINT,KIM) XE )@@G@@ PRO00190 @K@[@@00121 6* EQUIVALENCE (JINT,OUTPUT) XF )@@G@@ PRO00200 @K@[@@00122 6* XG )@@G@@ DEFINE DLOC(X)=FLD(0,18,LDEF(X)) PROXH )@@G@@00210 @K@[@@00123 6* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) XI )@@G@@ PRO00220 @K@[@@00124 6* DEFINE LDXJ )@@G@@OS(X)=FLD(0,18,LDO(X)) PRO00230 @K@[@@XK )@@G@@00125 6* DEFINE LDOL(X)=FLD(18,18,LDO(X)) XL )@@G@@ PRO00240 @K@[@@00125 6* END XM )@@G@@ PRO00250 @K@[@@00126 7*XN )@@G@@ INCLUDE INIT, LIST XO )@@G@@ INI00070 @K@[@@00127 7* COMMON /INIT/ DIAG,INDENT,LDIAG,LXP )@@G@@INE,LOPT,NSTART,RIGHT,RSTART, PRO00440 @K@[@@00127 7* 1 XQ )@@G@@ SOPT,SOURCE,DHDG PRO00450 XR )@@G@@@K@[@@00130 7* LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCEXS )@@G@@ PRO00460 @K@[@@00131 7* LOGICAL RIGHT XT )@@G@@ PRO00470 @K@[@@00131 XU )@@G@@ 7* END XV )@@G@@ PRO00480 @K@[@@00132 8* INCLUDE TAPES, LIST XW )@@G@@ INI00080 @K@[@@00133 8* XX )@@G@@ COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (10) PROXY )@@G@@00680 @K@[@@00134 8* PARAMETER STDRD=5 @ STANDARD READ UNIT XZ )@@G@@ PRO00690 @K@[@@00135 8* PARAMETERYA )@@G@@ STDPRT=6 @ STANDARD PRINT UNIT PRO00700 @K@[@@YB )@@G@@00136 8* PARAMETER STDALT=101 @ STANDARD ALTERNATE PRINT UNIYC )@@G@@T PRO00710 @K@[@@00136 8* END YD )@@G@@ PRO00720 @K@[@@00137 9*YE )@@G@@ INCLUDE WORK, LIST YF )@@G@@ INI00090 @K@[@@00140 9* PARAMETER LTIDY=55 YG )@@G@@ PRO00740 @K@[@@00141 9* PARYH )@@G@@AMETER LTIDY1=LTIDY+1 PRO00750 YI )@@G@@@K@[@@00142 9* COMMON /WORK/ ECYC, LATEST, NOSPC1, WORK1(476YJ )@@G@@), WORK2(476) PRO00760 @K@[@@00143 9* DIMENSION TIDYCYK )@@G@@(LTIDY) PRO00770 @K@[@@00144 YL )@@G@@ 9* DIMENSION FILE(15) YM )@@G@@ PRO00780 @K@[@@00145 9* EQUIVALENCE (WORK2,TIDYC), YN )@@G@@(WORK2(LTIDY1),FILE) PRO00790 @K@[@@00145 9* ENYO )@@G@@D PROYP )@@G@@00800 @K@[@@00146 10* DIMENSION SPEC1(14), SPEC2(14) YQ )@@G@@ INI00100 @K@[@@00147 11* EQUIVALENYR )@@G@@CE (SPEC1,SPEC2) INI00110 @K@[@@YS )@@G@@00150 12* DEFINE FNL=FLD(6,6,SPEC2(1)) @ NO. OF CHARACTERYT )@@G@@S IN FILE NAME INI00120 @K@[@@00150 13* C YU )@@G@@ INI00130 @K@[@@00150 14*YV )@@G@@ C READ PROCESSOR CALL CARD YW )@@G@@ INI00140 @K@[@@00150 15* C YX )@@G@@ INI00150 @K@[@@00151 16* CALYY )@@G@@L INFORR (TIDYC,LTIDY,I) @ READ PROCESSOR CALL CARD INI00160 YZ )@@G@@@K@[@@00152 17* IF (I.LE.0) GO TO 10 ZA )@@G@@ INI00170 @K@[@@00154 18* WRITE (STDPRT,2ZB )@@G@@20) @ ERROR INI00180 @K@[@@00156 ZC )@@G@@ 19* STOP ZD )@@G@@ INI00190 @K@[@@00156 20* C ZE )@@G@@ INI00200 @K@[@@00156 21* C ZF )@@G@@ INITIALIZE VALUES INIZG )@@G@@00210 @K@[@@00156 22* C ZH )@@G@@ INI00220 @K@[@@00157 23* 10 LINE=1 ZI )@@G@@ @ INITIALIZE INPUT LINE COUNTER INI00230 @K@[@@ZJ )@@G@@00160 24* MPUN=-1 @ WRITE OUTPUT ELEZK )@@G@@MENT INI00240 @K@[@@00161 25* DIAG=1 ZL )@@G@@ @ LIST DIAGNOSTICS INI00250 @K@[@@00161 26*ZM )@@G@@ C ZN )@@G@@ INI00260 @K@[@@00161 27* C PROCESS OPTIONS ZO )@@G@@ INI00270 @K@[@@00161 28* C ZP )@@G@@ INI00280 ZQ )@@G@@@K@[@@00162 29* IF (FLD('@@@@@D'-'@@@@@Z'+35,1,TIDYC).NE.0) IZR )@@G@@NDENT=.TRUE. INI00290 @K@[@@00164 30* IF (FLD('@@@@@FZS )@@G@@'-'@@@@@Z'+35,1,TIDYC).NE.0) MCOL=-1 @ COLLECT FMTINI00300 @K@[@@00166 ZT )@@G@@ 31* IF (FLD('@@@@@R'-'@@@@@Z'+35,1,TIDYC).NE.0) RIGHT=.TRUE. ZU )@@G@@ @ RT JUSINI00310 @K@[@@00170 32* IF (FLD('@@@@@L'-'@@@@@Z'+3ZV )@@G@@5,1,TIDYC).EQ.0) GO TO 20 INI00320 @K@[@@00172 33* ZW )@@G@@ LOPT=1 @ LIST INPUT INIZX )@@G@@00330 @K@[@@00173 34* GO TO 30 ZY )@@G@@ INI00340 @K@[@@00174 35* 20 IF (FLD('ZZ )@@G@@@@@@@S'-'@@@@@Z'+35,1,TIDYC).EQ.0) GO TO 40 INI00350 @K@[@@AA )@@G@@00176 36* 30 SOPT=1 @ LIST OUTPUT AB )@@G@@ INI00360 @K@[@@00177 37* GO TO 50 AC )@@G@@ INI00370 @K@[@@00200 38*AD )@@G@@ 40 IF (FLD('@@@@@N'-'@@@@@Z'+35,1,TIDYC).NE.0) DIAG=0 @ NO. OF DAE )@@G@@IAGINI00380 @K@[@@00200 39* C AF )@@G@@ INI00390 @K@[@@00200 40* C PROAG )@@G@@CESS SPEC1 INI00400 AH )@@G@@@K@[@@00200 41* C AI )@@G@@ INI00410 @K@[@@00202 42* 50 CALL INFORW (SPAJ )@@G@@EC1,1,I) @ GET SPEC1 INI00420 @K@[@@00203 AK )@@G@@ 43* IF (I.EQ.0) GO TO 60 AL )@@G@@ INI00430 @K@[@@00205 44* NOSPC1=1 AM )@@G@@ @ NO SPEC1 FIELD INI00440 @K@[@@00206 45* AN )@@G@@ GO TO 140 INIAO )@@G@@00450 @K@[@@00207 46* 60 FILE(1)='@ASG,A' AP )@@G@@ INI00460 @K@[@@00210 47* FILE(2)='AQ )@@G@@ ' INI00470 @K@[@@AR )@@G@@00211 48* IF (FNL.NE.0) GO TO 70 @ FILE NAME WAS SPAS )@@G@@ECIFIED INI00480 @K@[@@00213 49* SPEC1(5)='TPF$ ' AT )@@G@@ @ SET FILE NAME TO ''TPF$'' INI00490 @K@[@@00214 50*AU )@@G@@ SPEC1(6)=' ' AV )@@G@@ INI00500 @K@[@@00215 51* FNL=4 AW )@@G@@ INI00510 @K@[@@00216 52* 70 CALAX )@@G@@L INFFMT (SPEC1,FILE(3)) INI00520 AY )@@G@@@K@[@@00217 53* CALL ASSIGN (FILE,I,0,$80) @ ASSIGN SPEAZ )@@G@@C1 FILE INI00530 @K@[@@00220 54* CALL INFORU ('SBA )@@G@@PEC1 ',FILE,I) @ USE SPEC1,SPEC1 FILE INI00540 @K@[@@00221 BB )@@G@@ 55* GO TO 90 BC )@@G@@ INI00550 @K@[@@00222 56* 80 WRITE (STDPRT,230) I BD )@@G@@ INI00560 @K@[@@00225 57* BE )@@G@@ STOP INIBF )@@G@@00570 @K@[@@00226 58* 90 LATEST=1 @ ASSUME LATEST BG )@@G@@ELEMENT CYCLE IS DESIRED INI00580 @K@[@@00227 59* IF (FLD(1BH )@@G@@2,6,SPEC1(2)).EQ.0) GO TO 110 @ NO CYCLE SPECIFIED INI00590 @K@[@@BI )@@G@@00231 60* IF (FLD(24,6,SPEC1(2)).EQ.'0') GO TO 100 @ CYC ISBJ )@@G@@ NUMERIC, UNSIGINI00600 @K@[@@00233 61* WRITE (STDPRT,240) BK )@@G@@ INI00610 @K@[@@00235 62*BL )@@G@@ STOP BM )@@G@@ INI00620 @K@[@@00236 63* 100 ECYC=FLD(30,6,SPEC1(2)) BN )@@G@@@ ELEMENT CYCLE NUMBER INI00630 @K@[@@00237 64* LATBO )@@G@@EST=0 INI00640 BP )@@G@@@K@[@@00240 65* 110 IF (FLD(6,6,SPEC1(2)).NE.0) GO TO 120 BQ )@@G@@ INI00650 @K@[@@00242 66* SPEC1(12)=' ' BR )@@G@@ INI00660 @K@[@@00243 BS )@@G@@ 67* SPEC1(13)=' ' BT )@@G@@ INI00670 @K@[@@00244 68* 120 IF (ELTRO(WORK1,'SPEC1 ',SBU )@@G@@PEC1(10),SPEC1(12)).NE.0) GO TO 130 INI00680 @K@[@@00246 69* BV )@@G@@ GO TO 140 INIBW )@@G@@00690 @K@[@@00247 70* 130 WRITE (STDPRT,270) BX )@@G@@ INI00700 @K@[@@00251 71* STOP BY )@@G@@ INI00710 @K@[@@BZ )@@G@@00252 72* 140 CALL INFORW (SPEC2,2,I) CA )@@G@@ INI00720 @K@[@@00253 73* IF (I.EQ.0) GO TO 150CB )@@G@@ INI00730 @K@[@@00255 74*CC )@@G@@ WRITE (STDPRT,250) CD )@@G@@ INI00740 @K@[@@00257 75* STOP CE )@@G@@ INI00750 @K@[@@00260 76* 150 FILCF )@@G@@E(1)='@ASG,A' INI00760 CG )@@G@@@K@[@@00261 77* FILE(2)='X ' @ ASSIGN OUTPUT FILE WCH )@@G@@ITH EXCLUSIVE USE INI00770 @K@[@@00262 78* IF (FNL.NE.0) GCI )@@G@@O TO 160 @ FILE NAME WAS SPECIFIED INI00780 @K@[@@00264 CJ )@@G@@ 79* SPEC2(5)='TPF$ ' @ SET FILE NAME TO ''TPFCK )@@G@@$'' INI00790 @K@[@@00265 80* SPEC2(6)=' ' CL )@@G@@ INI00800 @K@[@@00266 81* CM )@@G@@ FNL=4 INICN )@@G@@00810 @K@[@@00267 82* 160 CALL INFFMT (SPEC2,FILE(3)) CO )@@G@@ INI00820 @K@[@@00270 83* CALL ASSICP )@@G@@GN (FILE,I,0,$170) @ ASSIGN SPEC2 FILE INI00830 @K@[@@CQ )@@G@@00271 84* CALL INFORU ('SPEC2 ',FILE,I) @ USE SPEC2,SPEC2 CR )@@G@@FILE INI00840 @K@[@@00272 85* GO TO 180 CS )@@G@@ INI00850 @K@[@@00273 86*CT )@@G@@ 170 WRITE (STDPRT,260) I CU )@@G@@ INI00860 @K@[@@00276 87* STOP CV )@@G@@ INI00870 @K@[@@00277 88* 180 IF CW )@@G@@(FLD(6,6,SPEC2(2)).NE.0) GO TO 190 INI00880 CX )@@G@@@K@[@@00301 89* SPEC2(12)=' ' CY )@@G@@ INI00890 @K@[@@00302 90* SPEC2(13)=' ' CZ )@@G@@ INI00900 @K@[@@00303 DA )@@G@@ 91* 190 IF (ELTWO(WORK2,'SPEC2 ',SPEC2(10),SPEC2(12)).EQ.0) GO TDB )@@G@@O 200 INI00910 @K@[@@00305 92* WRITE (STDPRT,280) DC )@@G@@ INI00920 @K@[@@00307 93* DD )@@G@@ STOP INIDE )@@G@@00930 @K@[@@00310 94* 200 IF (ELTWHD(WORK2).EQ.0) GO TO 210 DF )@@G@@ INI00940 @K@[@@00312 95* WRITE (STDG )@@G@@DPRT,290) INI00950 @K@[@@DH )@@G@@00314 96* STOP DI )@@G@@ INI00960 @K@[@@00315 97* 210 RETURN DJ )@@G@@ INI00970 @K@[@@00315 98*DK )@@G@@ C DL )@@G@@ INI00980 @K@[@@00316 99* 220 FORMAT (' TIDY IS ACCESSED AS FOLDM )@@G@@LOWS:'/' @TIDY,OPTIONS SPEC1,SPEINI00990 @K@[@@00316 100* 1C2'DN )@@G@@) INI01000 DO )@@G@@@K@[@@00317 101* 230 FORMAT (' SPEC1 FILE NOT AVAILABLE',O15) DP )@@G@@ INI01010 @K@[@@00320 102* 240 FORMAT (' ILLEGDQ )@@G@@AL ELEMENT CYCLE ON SPEC1') INI01020 @K@[@@00321 DR )@@G@@ 103* 250 FORMAT (' SPEC2 MISSING') DS )@@G@@ INI01030 @K@[@@00322 104* 260 FORMAT (' SPEC2 FILE NOT AVDT )@@G@@AILABLE',O15) INI01040 @K@[@@00323 105* 270DU )@@G@@ FORMAT (' SPEC1 ELEMENT UNOBTAINABLE') INIDV )@@G@@01050 @K@[@@00324 106* 280 FORMAT (' SPEC2 ELEMENT UNOBTAINABLE') DW )@@G@@ INI01060 @K@[@@00325 107* 290 FORMAT ('DX )@@G@@ SPEC2 ELEMENT UNWRITEABLE') INI01070 @K@[@@DY )@@G@@00325 108* C DZ )@@G@@ INI01080 @K@[@@00326 109* END EA )@@G@@ INI01090 @D@]@@ END OEB )@@G@@F COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P IOERR 0 FOREC )@@G@@ H, ,1, IOERR . @L^@^__@@@FOR,S IOERR,IOERR @E@[@@CYCLE ED )@@G@@000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:28:58. @@@[@@@@@[@@@B@[@@EE )@@G@@ SUBROUTINE IOERR ENTRY POINT 000035@@@[@@@G@]@@ STORAGE USED: CEF )@@G@@ODE(1) 000045; DATA(0) 000020; BLANK COMMON(2) 000000 @#@]@@ COMMON BEG )@@G@@LOCKS:@@@[@@@^@[@@ 0003 IOMSG 000011@^@[@@ 0004 TAPES 000016EH )@@G@@@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 0005 NWDU$ EI )@@G@@@#@[@@ 0006 NIO1$ @#@[@@ 0007 NIO2$ @#@[@@ 0010 NERR3$ EJ )@@G@@@F@#@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) EK )@@G@@@@@[@@@O@[@@ 0001 000007 10L 0001 000015 122G 0000 0EL )@@G@@00002 20F 0000 000010 INJP$ 0003 I 000000 IOMSGS@O@[@@ 00EM )@@G@@04 000000 IO1 0004 000001 IO2 0000 I 000000 I$ 00EN )@@G@@04 000002 JALTFD 0004 000003 JOUT @C@[@@ 0000 I 000001 MP2 EO )@@G@@ 0004 000004 USE @@@^@@@K@[@@00101 1* SUBROUTINE IOEREP )@@G@@R (N,STAT) IOE00010 @K@[@@00101 EQ )@@G@@ 2* C ER )@@G@@ IOE00020 @K@[@@00101 3* C THIS ROUTINE PRINTS THE I/OES )@@G@@ ERROR MESSAGES FOR TIDY. IOE00030 @K@[@@00101 4* C ET )@@G@@ IOEEU )@@G@@00040 @K@[@@00101 5* C N .LT.0 MEANS ERROR WHILE READING INPUTEV )@@G@@ ELEMENT. IOE00050 @K@[@@00101 6* C N .EQ.0 MEW )@@G@@EANS ERROR WHILE CLOSING OUTPUT ELEMENT. IOE00060 @K@[@@EX )@@G@@00101 7* C N .GT.0 MEANS ERROR WHILE WRITING OUTPUT ELEMENT. EY )@@G@@ IOE00070 @K@[@@00101 8* C EZ )@@G@@ IOE00080 @K@[@@00103 9*FA )@@G@@ IMPLICIT INTEGER (A-Z) FB )@@G@@ IOE00090 @K@[@@00104 10* INCLUDE IOMSG, LIST FC )@@G@@ IOE00100 @K@[@@00105 10* COMFD )@@G@@MON /IOMSG/ IOMSGS(9) PRO00500 FE )@@G@@@K@[@@00105 10* END FF )@@G@@ PRO00510 @K@[@@00106 11* INCLUDE TAPES, FG )@@G@@LIST IOE00110 @K@[@@00106 FH )@@G@@ 12* C FI )@@G@@ IOE00120 @K@[@@00107 12* COMMON /TAPES/ IO1, IO2, JAFJ )@@G@@LTFD, JOUT, USE (10) PRO00680 @K@[@@00110 12* FK )@@G@@ PARAMETER STDRD=5 @ STANDARD READ UNIT PROFL )@@G@@00690 @K@[@@00111 12* PARAMETER STDPRT=6 @ STANDARD PRINT UNIFM )@@G@@T PRO00700 @K@[@@00112 12* PARAMETERFN )@@G@@ STDALT=101 @ STANDARD ALTERNATE PRINT UNIT PRO00710 @K@[@@FO )@@G@@00112 12* END FP )@@G@@ PRO00720 @K@[@@00113 13* IF (N) ,10,10 FQ )@@G@@ IOE00130 @K@[@@00113 14*FR )@@G@@ C FS )@@G@@ IOE00140 @K@[@@00113 15* C ERROR WHILE READING FT )@@G@@ IOE00150 @K@[@@00113 16* C FU )@@G@@ IOE00160 FV )@@G@@@K@[@@00116 17* IOMSGS(2)=' READI' FW )@@G@@ IOE00170 @K@[@@00117 18* IOMSGS(3)='NG FX )@@G@@IN' IOE00180 @K@[@@00117 FY )@@G@@ 19* C FZ )@@G@@ IOE00190 @K@[@@00120 20* 10 WRITE (STDPRT,20) IOMSGS,STGA )@@G@@AT IOE00200 @K@[@@00120 21* C GB )@@G@@ IOEGC )@@G@@00210 @K@[@@00120 22* C INHIBIT WRITING OF OUTPUT ELEMENT GD )@@G@@ IOE00220 @K@[@@00120 23* C GE )@@G@@ IOE00230 @K@[@@GF )@@G@@00127 24* MP2=0 GG )@@G@@ IOE00240 @K@[@@00130 25* RETURN GH )@@G@@ IOE00250 @K@[@@00130 26*GI )@@G@@ C GJ )@@G@@ IOE00260 @K@[@@00130 27* C GK )@@G@@ IOE00270 @K@[@@00131 28* 20 FORGL )@@G@@MAT (9A6,O3) IOE00280 GM )@@G@@@K@[@@00131 29* C GN )@@G@@ IOE00290 @K@[@@00132 30* END GO )@@G@@ IOE00300 @D@]@@ GP )@@G@@ END OF COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P IOSYS GQ )@@G@@0 H, ,1, IOSYS . @L^@^__@@@FOR,S IOSYS,IOSYS @E@[@@GR )@@G@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:29:03. @@@[@@@@@[@@GS )@@G@@@B@[@@ SUBROUTINE IOSYS1 ENTRY POINT 000342@B@[@@ IOSYGT )@@G@@S2 ENTRY POINT 000356@@@[@@@G@]@@ STORAGE USED: CODE(1) 000372; DATGU )@@G@@A(0) 001031; BLANK COMMON(2) 000000 @#@]@@ COMMON BLOCKS:@@@[@@@^@[@@GV )@@G@@ 0003 TAPES 000016@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@GW )@@G@@@#@[@@ 0004 NERR2$ @#@[@@ 0005 NWBU$ @#@[@@ 0006 NIO1$ GX )@@G@@@#@[@@ 0007 NIO2$ @#@[@@ 0010 NREW$ @#@[@@ 0011 NPAUS$ GY )@@G@@@#@[@@ 0012 NRBU$ @#@[@@ 0013 NERR3$ @F@#@@ STORAGE ASSIGNMGZ )@@G@@ENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 0HA )@@G@@00011 10L 0001 000113 100L 0001 000156 120L 0001 0HB )@@G@@00163 130L 0001 000055 135G @O@[@@ 0001 000166 140L 00HC )@@G@@01 000065 143G 0001 000174 160L 0001 000127 164G 00HD )@@G@@01 000151 175G @O@[@@ 0001 000202 180L 0001 000223 190L HE )@@G@@ 0001 000026 20L 0001 000214 220G 0001 000275 220L HF )@@G@@@O@[@@ 0001 000306 230L 0001 000240 232G 0001 000310 HG )@@G@@240L 0001 000270 246G 0001 000031 30L @O@[@@ 0001 0HH )@@G@@00071 60L 0001 000102 70L 0001 000110 90L 0000 I 0HI )@@G@@00776 I 0000 001005 INJP$ @O@[@@ 0000 I 000000 IOBUF 00HJ )@@G@@03 I 000000 IO1 0003 I 000001 IO2 0003 000002 JALTFD 00HK )@@G@@03 000003 JOUT @O@[@@ 0000 I 000777 K 0000 I 000763 MR HL )@@G@@ 0000 I 000774 NAREA 0000 I 000765 NMR 0000 I 000767 NR HM )@@G@@@O@[@@ 0000 I 000775 NRN 0000 I 000773 NTAPE 0000 I 000762 HN )@@G@@OPSW 0000 I 000771 RWS 0003 000004 USE @@@^@@@K@[@@00101 HO )@@G@@ 1* SUBROUTINE IOSYS1 (OP,LIST,LEN) HP )@@G@@ IOS00010 @K@[@@00101 2* C HQ )@@G@@ IOS00020 @K@[@@00101 3* C HR )@@G@@ THIS SUBROUTINE BUFFERS IN AND OUT BINARY RECORDS IN ''BLOCK'' IOSHS )@@G@@00030 @K@[@@00101 4* C WORD BLOCKS ON FILES IO1 AND IO2. HT )@@G@@ IOS00040 @K@[@@00101 5* C HU )@@G@@ IOS00050 @K@[@@HV )@@G@@00101 6* C OP CODES PERMITTED. HW )@@G@@ IOS00060 @K@[@@00101 7* C 0 1 2HX )@@G@@ 3 IOS00070 @K@[@@00101 8*HY )@@G@@ C ERASE REWIND WRITE READ HZ )@@G@@ IOS00080 @K@[@@00101 9* C IA )@@G@@ IOS00090 @K@[@@00103 10* INCIB )@@G@@LUDE TAPES, LIST IOS00100 IC )@@G@@@K@[@@00104 10* COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (1ID )@@G@@0) PRO00680 @K@[@@00105 10* PARAMETER STDRDIE )@@G@@=5 @ STANDARD READ UNIT PRO00690 @K@[@@00106 IF )@@G@@ 10* PARAMETER STDPRT=6 @ STANDARD PRINT UNIT IG )@@G@@ PRO00700 @K@[@@00107 10* PARAMETER STDALT=101 @ STANIH )@@G@@DARD ALTERNATE PRINT UNIT PRO00710 @K@[@@00107 10* ENII )@@G@@D PROIJ )@@G@@00720 @K@[@@00110 11* PARAMETER BLOCK=249 @ BINAIK )@@G@@RY RECORD SIZE IOS00110 @K@[@@00111 12* DIMENSIONIL )@@G@@ LIST(1), IOBUF(BLOCK,2) IOS00120 @K@[@@IM )@@G@@00112 13* INTEGER OP,OPSW IN )@@G@@ IOS00130 @K@[@@00113 14* INTEGER MR(2),NMR(2),IO )@@G@@NR(2),RWS(2) IOS00140 @K@[@@00113 15*IP )@@G@@ C IQ )@@G@@ IOS00150 @K@[@@00114 16* NTAPE=IO1 IR )@@G@@ IOS00160 @K@[@@00115 17* NARIS )@@G@@EA=1 IOS00170 IT )@@G@@@K@[@@00116 18* GO TO 10 IU )@@G@@ IOS00180 @K@[@@00116 19* C IV )@@G@@ IOS00190 @K@[@@00116 IW )@@G@@ 20* C IOSYS2 ENTRY. IX )@@G@@ IOS00200 @K@[@@00116 21* C IY )@@G@@ IOS00210 @K@[@@00117 22* IZ )@@G@@ ENTRY IOSYS2 (OP,LIST,LEN) IOSJA )@@G@@00220 @K@[@@00121 23* NTAPE=IO2 JB )@@G@@ IOS00230 @K@[@@00122 24* NAREA=2 JC )@@G@@ IOS00240 @K@[@@JD )@@G@@00122 25* C JE )@@G@@ IOS00250 @K@[@@00123 26* 10 OPSW=OP+1 JF )@@G@@ IOS00260 @K@[@@00124 27*JG )@@G@@ GO TO (20,30,70,140), OPSW JH )@@G@@ IOS00270 @K@[@@00124 28* C JI )@@G@@ IOS00280 @K@[@@00124 29* C ERAJJ )@@G@@SE IOS00290 JK )@@G@@@K@[@@00124 30* C JL )@@G@@ IOS00300 @K@[@@00125 31* 20 MR(NAREA)=0 JM )@@G@@ IOS00310 @K@[@@00126 JN )@@G@@ 32* GO TO 60 JO )@@G@@ IOS00320 @K@[@@00126 33* C JP )@@G@@ IOS00330 @K@[@@00126 34* C JQ )@@G@@ REWIND IOSJR )@@G@@00340 @K@[@@00126 35* C JS )@@G@@ IOS00350 @K@[@@00127 36* 30 IF (RWS(NJT )@@G@@AREA)*NR(NAREA)) 60,60,40 IOS00360 @K@[@@JU )@@G@@00132 37* 40 NR(NAREA)=NR(NAREA)+1 JV )@@G@@ IOS00370 @K@[@@00133 38* NRN=NR(NAREA) JW )@@G@@ IOS00380 @K@[@@00134 39*JX )@@G@@ DO 50 I=NRN,BLOCK JY )@@G@@ IOS00390 @K@[@@00137 40* 50 IOBUF(I,NAREA)=0 JZ )@@G@@ IOS00400 @K@[@@00141 41* WRIKA )@@G@@TE (NTAPE) (IOBUF(K,NAREA),K=1,BLOCK) IOS00410 KB )@@G@@@K@[@@00147 42* 60 REWIND NTAPE KC )@@G@@ IOS00420 @K@[@@00150 43* RWS(NAREA)=0 KD )@@G@@ IOS00430 @K@[@@00151 KE )@@G@@ 44* NR(NAREA)=0 KF )@@G@@ IOS00440 @K@[@@00152 45* RETURN KG )@@G@@ IOS00450 @K@[@@00152 46* C KH )@@G@@ IOSKI )@@G@@00460 @K@[@@00152 47* C WRITE KJ )@@G@@ IOS00470 @K@[@@00152 48* C KK )@@G@@ IOS00480 @K@[@@KL )@@G@@00153 49* 70 IF (RWS(NAREA)) 80,90,100 KM )@@G@@ IOS00490 @K@[@@00156 50* 80 PAUSE 11 KN )@@G@@ IOS00500 @K@[@@00157 51*KO )@@G@@ 90 RWS(NAREA)=1 KP )@@G@@ IOS00510 @K@[@@00160 52* 100 IF (LEN) 130,130,110 KQ )@@G@@ IOS00520 @K@[@@00163 53* 110 DO KR )@@G@@120 I=1,LEN IOS00530 KS )@@G@@@K@[@@00166 54* NR(NAREA)=NR(NAREA)+1 KT )@@G@@ IOS00540 @K@[@@00167 55* NRN=NR(NAREA) KU )@@G@@ IOS00550 @K@[@@00170 KV )@@G@@ 56* IOBUF(NRN,NAREA)=LIST(I) KW )@@G@@ IOS00560 @K@[@@00171 57* IF (NRN.LT.BLOCK) GO TO 120KX )@@G@@ IOS00570 @K@[@@00173 58* KY )@@G@@ WRITE (NTAPE) (IOBUF(K,NAREA),K=1,BLOCK) IOSKZ )@@G@@00580 @K@[@@00201 59* NR(NAREA)=0 LA )@@G@@ IOS00590 @K@[@@00202 60* 120 CONTINUE LB )@@G@@ IOS00600 @K@[@@LC )@@G@@00204 61* MR(NAREA)=MR(NAREA)+LEN LD )@@G@@ IOS00610 @K@[@@00205 62* 130 RETURN LE )@@G@@ IOS00620 @K@[@@00205 63*LF )@@G@@ C LG )@@G@@ IOS00630 @K@[@@00205 64* C READ LH )@@G@@ IOS00640 @K@[@@00205 65* C LI )@@G@@ IOS00650 LJ )@@G@@@K@[@@00206 66* 140 IF (MR(NAREA)) 150,150,160 LK )@@G@@ IOS00660 @K@[@@00211 67* 150 PAUSE 12 LL )@@G@@ IOS00670 @K@[@@00212 LM )@@G@@ 68* 160 IF (RWS(NAREA)) 190,180,170 LN )@@G@@ IOS00680 @K@[@@00215 69* 170 PAUSE 13 LO )@@G@@ IOS00690 @K@[@@00216 70* 180LP )@@G@@ READ (NTAPE) (IOBUF(K,NAREA),K=1,BLOCK) IOSLQ )@@G@@00700 @K@[@@00224 71* RWS(NAREA)=-1 LR )@@G@@ IOS00710 @K@[@@00225 72* NMR(NAREALS )@@G@@)=0 IOS00720 @K@[@@LT )@@G@@00226 73* 190 IF (LEN) 240,240,200 LU )@@G@@ IOS00730 @K@[@@00231 74* 200 DO 220 I=1,LEN LV )@@G@@ IOS00740 @K@[@@00234 75*LW )@@G@@ NR(NAREA)=NR(NAREA)+1 LX )@@G@@ IOS00750 @K@[@@00235 76* NRN=NR(NAREA) LY )@@G@@ IOS00760 @K@[@@00236 77* LISLZ )@@G@@T(I)=IOBUF(NRN,NAREA) IOS00770 MA )@@G@@@K@[@@00237 78* IF (NRN.LT.BLOCK) GO TO 220 MB )@@G@@ IOS00780 @K@[@@00241 79* IF (NMR(NAREA)+MC )@@G@@I-MR(NAREA)) 210,60,230 IOS00790 @K@[@@00244 MD )@@G@@ 80* 210 READ (NTAPE) (IOBUF(K,NAREA),K=1,BLOCK) ME )@@G@@ IOS00800 @K@[@@00252 81* NR(NAREA)=0 MF )@@G@@ IOS00810 @K@[@@00253 82* 220MG )@@G@@ CONTINUE IOSMH )@@G@@00820 @K@[@@00255 83* NMR(NAREA)=NMR(NAREA)+LEN MI )@@G@@ IOS00830 @K@[@@00256 84* IF (NMR(NMJ )@@G@@AREA)-MR(NAREA)) 240,240,230 IOS00840 @K@[@@MK )@@G@@00261 85* 230 PAUSE 14 ML )@@G@@ IOS00850 @K@[@@00262 86* 240 RETURN MM )@@G@@ IOS00860 @K@[@@00262 87*MN )@@G@@ C MO )@@G@@ IOS00870 @K@[@@00263 88* END MP )@@G@@ IOS00880 @D@]@@ END OF COMPILATIOMQ )@@G@@N: NO DIAGNOSTICS. @#@^@@@HDG,P KIMPAK 0 B1 H, ,1,MR )@@G@@ KIMPAK . @L^@^__@@@FOR,S KIMPAK,KIMPAK @E@[@@CYCLE 000 COMPILEDMS )@@G@@ BY 1201 S7E-A ON 27 AUG 72 AT 19:29:42. @@@[@@@@@[@@@B@[@@ SUBROUTINMT )@@G@@E KIMPAK ENTRY POINT 000230@@@[@@@G@]@@ STORAGE USED: CODE(1) 00024MU )@@G@@1; DATA(0) 000044; BLANK COMMON(2) 012611 @#@]@@ COMMON BLOCKS:@@@[@@MV )@@G@@@^@[@@ 0003 ALPHA 000065@^@[@@ 0004 LIOS 000004@A@#@@ EXTMW )@@G@@ERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 0005 CHPACK @#@[@@ 00MX )@@G@@06 NERR3$ @F@#@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATIONMY )@@G@@, NAME) @@@[@@@O@[@@ 0001 000212 100L 0001 000025 144G MZ )@@G@@ 0001 000030 147G 0001 000067 163G 0001 000122 173G NA )@@G@@@O@[@@ 0001 000043 20L 0001 000137 203G 0001 000172 NB )@@G@@215G 0001 000100 40L 0001 000102 50L @O@[@@ 0001 0NC )@@G@@00150 80L 0000 I 000002 I 0002 000000 ICOL 0002 0ND )@@G@@00001 IFIR 0000 I 000004 II @O@[@@ 0004 I 000003 IMAX 00NE )@@G@@00 000024 INJP$ 0002 000002 INPUT 0002 000450 IOUT 00NF )@@G@@04 000001 ITYPE @O@[@@ 0000 I 000001 J 0002 003127 JCOL NG )@@G@@ 0002 I 003130 JINT 0002 005607 JMAX 0000 I 000005 K NH )@@G@@@O@[@@ 0003 000013 KA 0003 000013 KABC 0003 000061 NI )@@G@@KAND 0003 I 000062 KAT 0003 000014 KB @O@[@@ 0003 I 0NJ )@@G@@00000 KBL 0000 000007 KBUFF 0000 000007 KB1 0002 0NK )@@G@@05610 KB15 0000 000014 KB6 @O@[@@ 0003 000015 KC 00NL )@@G@@03 000051 KCLOSE 0003 000046 KCOMMA 0003 000016 KD 00NM )@@G@@03 000057 KDASH @O@[@@ 0003 I 000001 KDIG 0003 000056 KDOLARNN )@@G@@ 0002 005611 KD15 0003 000017 KE 0003 000045 KEQ NO )@@G@@@O@[@@ 0003 000064 KERM 0003 000020 KF 0003 000021 NP )@@G@@KG 0003 000022 KH 0003 000023 KI @O@[@@ 0004 0NQ )@@G@@00000 KILI 0002 003130 KIM 0003 000024 KJ 0003 0NR )@@G@@00025 KK 0003 000026 KL @O@[@@ 0004 I 000000 KLASS 00NS )@@G@@03 000063 KLR2 0003 000027 KM 0003 000053 KMINUS 00NT )@@G@@03 000030 KN @O@[@@ 0003 000031 KO 0003 000047 KOPEN NU )@@G@@ 0002 I 000450 KOUT 0003 000032 KP 0003 000055 KPERD NV )@@G@@@O@[@@ 0003 000052 KPLUS 0003 000033 KQ 0003 000060 NW )@@G@@KQUOTE 0003 000034 KR 0003 000035 KS @O@[@@ 0003 0NX )@@G@@00050 KSLASH 0003 000045 KSPK 0003 000054 KSTAR 0003 0NY )@@G@@00036 KT 0003 000037 KU @O@[@@ 0003 000040 KV 00NZ )@@G@@03 000041 KW 0003 000042 KX 0003 000043 KY 00OA )@@G@@03 000044 KZ @O@[@@ 0003 000001 K0 0000 I 000006 L OB )@@G@@ 0002 005613 LAST 0002 005614 LCPY 0002 I 005615 LDEF OC )@@G@@@O@[@@ 0002 I 010551 LDO 0002 010602 LFIR 0002 010603 OD )@@G@@LQUAL 0002 010604 LREF 0004 000002 L15 @O@[@@ 0002 0OE )@@G@@05612 L772 0002 012554 MCOL 0002 012555 MEOF 0002 0OF )@@G@@12556 MEX 0002 012557 MILDO @O@[@@ 0002 012560 MLGC 00OG )@@G@@02 012561 MP2 0002 012562 MSTOP 0002 012563 MTRAN 00OH )@@G@@02 012564 NBLC @O@[@@ 0002 I 012565 NCD 0002 012566 NCDO OI )@@G@@ 0002 012567 NDEF 0002 012570 NDOL 0002 012571 NDOS OJ )@@G@@@O@[@@ 0002 012572 NINS 0002 012573 NPAR 0002 012574 OK )@@G@@NPUN 0002 012575 NREC 0002 012576 NREF @O@[@@ 0002 0OL )@@G@@12577 NRT1 0002 012600 NRT2 0002 012601 NTEMP 0002 0OM )@@G@@12606 NXEQ 0000 I 000000 N1 @K@[@@ 0002 I 003130 OUTPUT 00ON )@@G@@02 012607 PAREN 0002 012610 PNEXT 0000 I 000003 SIZE @@@^@@OO )@@G@@@K@[@@00101 1* SUBROUTINE KIMPAK OP )@@G@@ KIM00010 @K@[@@00101 2* C OQ )@@G@@ KIM00020 @K@[@@00101 OR )@@G@@ 3* C THIS ROUTINE PACKS SUPER-CARD IMAGES FROM IOUT INTO OUTPUOS )@@G@@T. KIM00030 @K@[@@00101 4* C OT )@@G@@ KIM00040 @K@[@@00103 5* OU )@@G@@ INCLUDE TIDY, LIST KIMOV )@@G@@00050 @K@[@@00104 5* IMPLICIT INTEGER (A-Z) OW )@@G@@ PRO00020 @K@[@@00105 5* PARAMETEROX )@@G@@ CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PRO00030 @K@[@@OY )@@G@@00106 5* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPOZ )@@G@@S PRO00040 @K@[@@00107 5* PARAMETER MAXCHS=1327PA )@@G@@ @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@00110 5*PB )@@G@@ PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS PC )@@G@@ PRO00060 @K@[@@00111 5* COMMON ICOL, IFIR, INPUT(14,21), PD )@@G@@IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 5* 1 PE )@@G@@ JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), PRO00080 PF )@@G@@@K@[@@00111 5* 2 LDO(DOS), LFIR, LQUAL, LREF(1000), MCOPG )@@G@@L, MEOF, MEX, MILDO, PRO00090 @K@[@@00111 5* 3 MLGC, MPPH )@@G@@2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 @K@[@@00111 PI )@@G@@ 5* 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTPJ )@@G@@EMP(5), PRO00110 @K@[@@00111 5* 5 NXEQ, PAREN, PNEXT PK )@@G@@ PRO00120 @K@[@@00112 5* PL )@@G@@ DIMENSION KIM(CRDLNG,20) PROPM )@@G@@00130 @K@[@@00113 5* DIMENSION KOUT(CRDLNG,20) PN )@@G@@ PRO00140 @K@[@@00114 5* DIMENSIONPO )@@G@@ OUTPUT(12,20) PRO00150 @K@[@@PP )@@G@@00115 5* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) PQ )@@G@@ PRO00160 @K@[@@00116 5* EQUIVALENCE (KDIG(1),PR )@@G@@K0) PRO00170 @K@[@@00117 5*PS )@@G@@ EQUIVALENCE (IOUT,KOUT) PT )@@G@@ PRO00180 @K@[@@00120 5* EQUIVALENCE (JINT,KIM) PU )@@G@@ PRO00190 @K@[@@00121 5* EQUPV )@@G@@IVALENCE (JINT,OUTPUT) PRO00200 PW )@@G@@@K@[@@00122 5* DEFINE DLOC(X)=FLD(0,18,LDEF(X)) PX )@@G@@ PRO00210 @K@[@@00123 5* DEFINE DSTMT(X)PY )@@G@@=FLD(18,18,LDEF(X)) PRO00220 @K@[@@00124 PZ )@@G@@ 5* DEFINE LDOS(X)=FLD(0,18,LDO(X)) QA )@@G@@ PRO00230 @K@[@@00125 5* DEFINE LDOL(X)=FLD(18,18,LDQB )@@G@@O(X)) PRO00240 @K@[@@00125 5* ENQC )@@G@@D PROQD )@@G@@00250 @K@[@@00126 6* INCLUDE ALPHA, LIST QE )@@G@@ KIM00060 @K@[@@00127 6* COMMON /AQF )@@G@@LPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 @K@[@@QG )@@G@@00127 6* 1 KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,QH )@@G@@KY,KZ, PRO00280 @K@[@@00127 6* 2 KEQ,KCQI )@@G@@OMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 @K@[@@00127 6*QJ )@@G@@ 3 KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2,KERM QK )@@G@@ PRO00300 @K@[@@00130 6* DIMENSION KABC(26), KSPK(14) QL )@@G@@ PRO00310 @K@[@@00131 6* EQUQM )@@G@@IVALENCE (KABC,KA), (KSPK,KEQ) PRO00320 QN )@@G@@@K@[@@00131 6* END QO )@@G@@ PRO00330 @K@[@@00132 7* INCLUDE LIOS, LQP )@@G@@IST KIM00070 @K@[@@00133 QQ )@@G@@ 7* COMMON /LIOS/ KLASS, ITYPE, L15, IMAX QR )@@G@@ PRO00630 @K@[@@00134 7* DIMENSION KILI(4) QS )@@G@@ PRO00640 @K@[@@00135 7* QT )@@G@@ EQUIVALENCE (KLASS,KILI) PROQU )@@G@@00650 @K@[@@00135 7* END QV )@@G@@ PRO00660 @K@[@@00136 8* PARAMETERQW )@@G@@ COLUMN=40 @ DESIRED STARTING COLUMN FOR @-COMMENT KIM00080 @K@[@@QX )@@G@@00136 9* C QY )@@G@@ KIM00090 @K@[@@00137 10* NCD=((IMAX-7)/66)+1 QZ )@@G@@ KIM00100 @K@[@@00140 11*RA )@@G@@ IF (KLASS.EQ.0) GO TO 80 RB )@@G@@ KIM00110 @K@[@@00140 12* C RC )@@G@@ KIM00120 @K@[@@00140 13* C POSRD )@@G@@ITION @-COMMENT KIM00130 RE )@@G@@@K@[@@00140 14* C RF )@@G@@ KIM00140 @K@[@@00142 15* N1=MAX(1,NCD-1)RG )@@G@@ KIM00150 @K@[@@00143 RH )@@G@@ 16* DO 10 J=N1,NCD RI )@@G@@ KIM00160 @K@[@@00146 17* DO 10 I=7,72 RJ )@@G@@ KIM00170 @K@[@@00151 18* 10 RK )@@G@@ IF (KOUT(I,J).EQ.KAT) GO TO 20 KIMRL )@@G@@00180 @K@[@@00155 19* GO TO 80 RM )@@G@@ KIM00190 @K@[@@00156 20* 20 SIZE=IMAXRN )@@G@@-I+1 KIM00200 @K@[@@RO )@@G@@00157 21* II=((I+4)/5)*5 @ NEXT 5-COLUMN BORP )@@G@@UNDARY KIM00210 @K@[@@00160 22* IF (II.GE.COLUMN) GO RQ )@@G@@TO 50 KIM00220 @K@[@@00162 23*RR )@@G@@ DO 30 K=COLUMN,II,-5 RS )@@G@@ KIM00230 @K@[@@00165 24* 30 IF (73-K.GE.SIZE) GO TO 40 RT )@@G@@ KIM00240 @K@[@@00170 25* 40 II=RU )@@G@@K KIM00250 RV )@@G@@@K@[@@00171 26* 50 L=0 RW )@@G@@ KIM00260 @K@[@@00172 27* DO 60 I=I,72 RX )@@G@@ KIM00270 @K@[@@00175 RY )@@G@@ 28* L=L+1 RZ )@@G@@ KIM00280 @K@[@@00176 29* JINT(L)=KOUT(I,J) SA )@@G@@ @ SAVE COMMENT IN JINT KIM00290 @K@[@@00177 30* 60 SB )@@G@@ KOUT(I,J)=KBL KIMSC )@@G@@00300 @K@[@@00201 31* L=0 SD )@@G@@ KIM00310 @K@[@@00202 32* DO 70 I=ISE )@@G@@I,72 KIM00320 @K@[@@SF )@@G@@00205 33* L=L+1 SG )@@G@@ KIM00330 @K@[@@00206 34* 70 KOUT(I,J)=JINT(L) SH )@@G@@ @ MOVE COMMENT BACK TO KOUT KIM00340 @K@[@@00210 35*SI )@@G@@ NCD=J SJ )@@G@@ KIM00350 @K@[@@00211 36* 80 CALL CHPACK (KOUT(1,1),1,OUTPUT,1SK )@@G@@,72) KIM00360 @K@[@@00212 37* IF SL )@@G@@(NCD.LE.1) GO TO 100 KIM00370 SM )@@G@@@K@[@@00214 38* DO 90 J=2,NCD SN )@@G@@ KIM00380 @K@[@@00217 39* OUTPUT(1,J)=KBLSO )@@G@@ KIM00390 @K@[@@00220 SP )@@G@@ 40* FLD(30,6,OUTPUT(1,J))=FLD(0,6,KDIG(J)) @ 1-9,A-J SQ )@@G@@ KIM00400 @K@[@@00221 41* 90 CALL CHPACK (KOUT(7,J),1,OUSR )@@G@@TPUT(2,J),1,66) KIM00410 @K@[@@00223 42* 100SS )@@G@@ CONTINUE KIMST )@@G@@00420 @K@[@@00224 43* RETURN SU )@@G@@ KIM00430 @K@[@@00224 44* C SV )@@G@@ KIM00440 @K@[@@SW )@@G@@00224 45* C SX )@@G@@ KIM00450 @K@[@@00225 46* END SY )@@G@@ KIM00460 @D@]@@ END OSZ )@@G@@F COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P PASS1 0 @___TA )@@G@@ H, ,1, PASS1 . @L^@^__@@@FOR,S PASS1,PASS1 @E@[@@CYCLE TB )@@G@@000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:30:32. @@@[@@@@@[@@@B@[@@TC )@@G@@ SUBROUTINE PASS1 ENTRY POINT 004525@@@[@@@G@]@@ STORAGE USED: CTD )@@G@@ODE(1) 004720; DATA(0) 000123; BLANK COMMON(2) 012611 @#@]@@ COMMON BTE )@@G@@LOCKS:@@@[@@@^@[@@ 0003 ALPHA 000065@^@[@@ 0004 INIT 000013TF )@@G@@@^@[@@ 0005 KST 001270@^@[@@ 0006 LIOS 000004@^@[@@ 00TG )@@G@@07 TAPES 000016@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@TH )@@G@@ 0010 IOSYS1 @#@[@@ 0011 IOSYS2 @#@[@@ 0012 SKARD @#@[@@TI )@@G@@ 0013 CONTRL @#@[@@ 0014 DIAGNO @#@[@@ 0015 HOLCK @#@[@@TJ )@@G@@ 0016 COPY @#@[@@ 0017 RSTAT @#@[@@ 0020 RLIST @#@[@@TK )@@G@@ 0021 DLIST @#@[@@ 0022 NWDU$ @#@[@@ 0023 NIO2$ @#@[@@TL )@@G@@ 0024 NIO1$ @#@[@@ 0025 NERR2$ @#@[@@ 0026 NERR3$ @F@#@@TM )@@G@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@TN )@@G@@@O@[@@ 0001 004626 10L 0001 000252 100L 0001 001706 TO )@@G@@1016G 0001 002305 1020L 0001 002317 1040L @O@[@@ 0001 0TP )@@G@@02327 1060L 0001 002345 1070L 0001 002350 1080L 0001 0TQ )@@G@@02362 1090L 0001 000257 110L @O@[@@ 0001 002114 1104G 00TR )@@G@@01 002405 1110L 0001 002454 1120L 0001 002164 1127G 00TS )@@G@@01 002514 1130L @O@[@@ 0001 002203 1141G 0001 002544 1150L TT )@@G@@ 0001 002240 1162G 0001 002607 1170L 0001 002617 1180L TU )@@G@@@O@[@@ 0001 002626 1190L 0001 000263 120L 0001 002636 TV )@@G@@1200L 0001 002273 1201G 0001 002646 1210L @O@[@@ 0001 0TW )@@G@@02652 1220L 0001 002667 1230L 0001 002674 1240L 0001 0TX )@@G@@02375 1241G 0001 002750 1250L @O@[@@ 0001 002767 1260L 00TY )@@G@@01 002772 1270L 0001 002474 1273G 0001 002502 1275G 00TZ )@@G@@01 003026 1280L @O@[@@ 0001 003036 1290L 0001 000312 130L UA )@@G@@ 0001 003041 1300L 0001 002527 1310G 0001 003057 1310L UB )@@G@@@O@[@@ 0001 003100 1320L 0001 002552 1323G 0001 003123 UC )@@G@@1330L 0001 003127 1340L 0001 003142 1350L @O@[@@ 0001 0UD )@@G@@03155 1360L 0001 003171 1370L 0001 003176 1380L 0001 0UE )@@G@@00317 140L 0001 003217 1400L @O@[@@ 0001 003251 1410L 00UF )@@G@@01 003273 1420L 0001 003311 1430L 0001 003314 1440L 00UG )@@G@@01 003346 1450L @O@[@@ 0001 003366 1460L 0001 003405 1470L UH )@@G@@ 0001 003411 1480L 0001 003442 1490L 0001 000326 150L UI )@@G@@@O@[@@ 0001 003473 1500L 0001 003520 1530L 0001 003546 UJ )@@G@@1540L 0001 003551 1550L 0001 003564 1560L @O@[@@ 0001 0UK )@@G@@03600 1570L 0001 003613 1580L 0001 003617 1590L 0001 0UL )@@G@@00335 160L 0001 003650 1610L @O@[@@ 0001 003711 1620L 00UM )@@G@@01 003714 1630L 0001 003717 1640L 0001 003723 1650L 00UN )@@G@@01 000016 166G @O@[@@ 0001 003734 1660L 0001 003742 1670L UO )@@G@@ 0001 003745 1680L 0001 003750 1690L 0001 000356 170L UP )@@G@@@O@[@@ 0001 003766 1700L 0001 004007 1710L 0001 004022 UQ )@@G@@1720L 0001 004035 1730L 0001 003635 1734G @O@[@@ 0001 0UR )@@G@@04040 1740L 0001 004060 1750L 0001 004066 1760L 0001 0US )@@G@@04101 1770L 0001 004106 1780L @O@[@@ 0001 004111 1790L 00UT )@@G@@01 000375 180L 0001 004114 1800L 0001 004127 1810L 00UU )@@G@@01 004132 1820L @O@[@@ 0001 004144 1830L 0001 004202 1840L UV )@@G@@ 0001 004213 1850L 0001 004224 1860L 0001 004242 1870L UW )@@G@@@O@[@@ 0001 004245 1880L 0001 004256 1890L 0001 004271 UX )@@G@@1900L 0001 004311 1910L 0001 004330 1920L @O@[@@ 0001 0UY )@@G@@04333 1930L 0001 004354 1940L 0001 004424 1950L 0001 0UZ )@@G@@04436 1960L 0001 004441 1970L @O@[@@ 0001 004450 1980L 00VA )@@G@@01 004454 1990L 0001 000053 20L 0001 004671 20L 00VB )@@G@@01 000406 200L @O@[@@ 0001 004460 2000L 0001 004470 2010L VC )@@G@@ 0001 004502 2020L 0000 000015 2030F 0000 000024 2040F VD )@@G@@@O@[@@ 0000 000027 2050F 0001 000416 210L 0001 000055 VE )@@G@@214G 0001 000430 220L 0001 004543 2241G @O@[@@ 0001 0VF )@@G@@00112 230G 0001 000445 230L 0001 000120 232G 0001 0VG )@@G@@00457 240L 0001 000462 250L @O@[@@ 0001 000500 260L 00VH )@@G@@01 000510 270L 0001 000225 272G 0001 000544 280L 00VI )@@G@@01 000567 290L @O@[@@ 0001 004706 30L 0001 000571 300L VJ )@@G@@ 0001 000240 301G 0001 000615 320L 0001 000641 330L VK )@@G@@@O@[@@ 0001 000656 340L 0001 000364 345G 0001 000707 VL )@@G@@350L 0001 000377 354G 0001 000725 360L @O@[@@ 0001 0VM )@@G@@00730 370L 0001 000733 380L 0001 000757 390L 0001 0VN )@@G@@00064 40L 0001 001025 410L @O@[@@ 0001 001034 420L 00VO )@@G@@01 001037 430L 0001 000602 450G 0001 001057 450L 00VP )@@G@@01 001077 460L @O@[@@ 0001 001125 470L 0001 001225 480L VQ )@@G@@ 0001 001230 490L 0001 000156 50L 0001 001233 500L VR )@@G@@@O@[@@ 0001 001236 510L 0001 000741 512G 0001 000756 VS )@@G@@517G 0001 001242 520L 0001 001244 530L @O@[@@ 0001 0VT )@@G@@01255 540L 0001 001273 550L 0001 001316 560L 0001 0VU )@@G@@01054 561G 0001 001330 570L @O@[@@ 0001 001342 580L 00VV )@@G@@01 001355 590L 0001 000167 60L 0001 001364 600L 00VW )@@G@@01 001365 610L @O@[@@ 0001 001417 620L 0001 001423 630L VX )@@G@@ 0001 001425 635L 0001 001430 640L 0001 001433 650L VY )@@G@@@O@[@@ 0001 001457 660L 0001 001521 680L 0001 001526 VZ )@@G@@690L 0001 000214 70L 0001 001541 710L @O@[@@ 0001 0WA )@@G@@01500 720G 0001 001551 720L 0001 001512 725G 0001 0WB )@@G@@01560 730L 0001 001572 740L @O@[@@ 0001 001534 741G 00WC )@@G@@01 000216 75L 0001 001631 750L 0001 001654 760L 00WD )@@G@@01 001677 770L @O@[@@ 0001 001723 790L 0001 000222 80L WE )@@G@@ 0001 001744 800L 0001 001764 810L 0001 001767 820L WF )@@G@@@O@[@@ 0001 002005 830L 0001 002034 840L 0001 002047 WG )@@G@@850L 0001 002070 860L 0001 002073 870L @O@[@@ 0001 0WH )@@G@@02104 880L 0001 002115 890L 0001 002143 910L 0001 0WI )@@G@@02152 920L 0001 002176 940L @O@[@@ 0001 002217 960L 00WJ )@@G@@01 002252 980L 0000 I 000001 AMBIG 0004 I 000012 DHDG 00WK )@@G@@04 I 000000 DIAG @O@[@@ 0000 I 000003 ERR 0000 I 000000 I WL )@@G@@ 0002 I 000000 ICOL 0002 I 000001 IFIR 0006 I 000003 IMAX WM )@@G@@@O@[@@ 0004 L 000001 INDENT 0000 000070 INJP$ 0000 000063 WN )@@G@@INJP$ 0000 000074 INJP$ 0002 I 000002 INPUT @O@[@@ 0002 I 0WO )@@G@@00450 IOUT 0007 I 000000 IO1 0007 I 000001 IO2 0000 I 0WP )@@G@@00013 IS 0000 I 000010 ISWVAR@O@[@@ 0006 I 000001 ITYPE 00WQ )@@G@@00 I 000002 J 0007 I 000002 JALTFD 0002 I 003127 JCOL 00WR )@@G@@02 I 003130 JINT @O@[@@ 0002 I 005607 JMAX 0007 I 000003 JOUT WS )@@G@@ 0003 I 000013 KA 0003 000013 KABC 0003 I 000061 KAND WT )@@G@@@O@[@@ 0003 I 000062 KAT 0003 I 000014 KB 0003 I 000000 WU )@@G@@KBL 0000 000033 KBUFF 0000 000033 KB1 @O@[@@ 0002 I 0WV )@@G@@05610 KB15 0000 000040 KB6 0003 I 000015 KC 0003 I 0WW )@@G@@00051 KCLOSE 0003 I 000046 KCOMMA@O@[@@ 0003 I 000016 KD 00WX )@@G@@03 I 000057 KDASH 0003 I 000001 KDIG 0003 I 000056 KDOLAR 00WY )@@G@@02 I 005611 KD15 @O@[@@ 0003 I 000017 KE 0003 I 000045 KEQ WZ )@@G@@ 0003 I 000064 KERM 0003 I 000020 KF 0003 I 000021 KG XA )@@G@@@O@[@@ 0003 I 000022 KH 0003 I 000023 KI 0006 I 000000 XB )@@G@@KILI 0002 003130 KIM 0003 I 000024 KJ @O@[@@ 0003 I 0XC )@@G@@00025 KK 0003 I 000026 KL 0006 I 000000 KLASS 0003 I 0XD )@@G@@00063 KLR2 0003 I 000027 KM @O@[@@ 0003 I 000053 KMINUS 00XE )@@G@@03 I 000030 KN 0003 I 000031 KO 0003 I 000047 KOPEN 00XF )@@G@@02 000450 KOUT @O@[@@ 0003 I 000032 KP 0003 I 000055 KPERD XG )@@G@@ 0003 I 000052 KPLUS 0003 I 000033 KQ 0003 I 000060 KQUOTEXH )@@G@@@O@[@@ 0003 I 000034 KR 0003 I 000035 KS 0003 I 000050 XI )@@G@@KSLASH 0003 I 000045 KSPK 0003 I 000054 KSTAR @O@[@@ 0005 I 0XJ )@@G@@00000 KSTIJ 0003 I 000036 KT 0003 I 000037 KU 0003 I 0XK )@@G@@00040 KV 0003 I 000041 KW @O@[@@ 0003 I 000042 KX 00XL )@@G@@03 I 000043 KY 0003 I 000044 KZ 0003 000001 K0 00XM )@@G@@02 I 005613 LAST @O@[@@ 0002 I 005614 LCPY 0002 I 005615 LDEF XN )@@G@@ 0004 L 000002 LDIAG 0002 I 010551 LDO 0002 I 010602 LFIR XO )@@G@@@O@[@@ 0004 I 000003 LINE 0000 I 000007 LOOK 0004 I 000004 XP )@@G@@LOPT 0002 I 010603 LQUAL 0002 I 010604 LREF @O@[@@ 0006 I 0XQ )@@G@@00002 L15 0002 I 005612 L772 0002 I 012554 MCOL 0002 I 0XR )@@G@@12555 MEOF 0000 I 000006 MERR @O@[@@ 0002 I 012556 MEX 00XS )@@G@@02 I 012557 MILDO 0002 I 012560 MLGC 0002 I 012561 MP2 00XT )@@G@@00 I 000014 MRTAN @O@[@@ 0002 I 012562 MSTOP 0002 I 012563 MTRAN XU )@@G@@ 0002 I 012564 NBLC 0000 I 000004 NBLC1 0002 I 012565 NCD XV )@@G@@@O@[@@ 0002 I 012566 NCDO 0000 I 000011 NCOM 0002 I 012567 XW )@@G@@NDEF 0002 I 012570 NDOL 0002 I 012571 NDOS @O@[@@ 0002 I 0XX )@@G@@12572 NINS 0002 I 012573 NPAR 0002 I 012574 NPUN 0002 I 0XY )@@G@@12575 NREC 0002 I 012576 NREF @O@[@@ 0002 I 012577 NRT1 00XZ )@@G@@02 I 012600 NRT2 0000 I 000005 NSPACE 0004 L 000005 NSTART 00YA )@@G@@02 I 012601 NTEMP @O@[@@ 0002 I 012606 NXEQ 0002 003130 OUTPUTYB )@@G@@ 0002 I 012607 PAREN 0002 I 012610 PNEXT 0004 L 000006 RIGHT YC )@@G@@@O@[@@ 0004 L 000007 RSTART 0004 I 000010 SOPT 0004 L 000011 YD )@@G@@SOURCE 0007 I 000004 USE 0000 I 000012 WHERE @@@^@@@K@[@@00101 YE )@@G@@ 1* SUBROUTINE PASS1 YF )@@G@@ PA100010 @K@[@@00101 2* C YG )@@G@@ PA100020 @K@[@@00101 3* C YH )@@G@@ THIS ROUTINE COLLECTS STATEMENT NUMBERS, MAKES DIAGNOSTIC COMMENTSPA1YI )@@G@@00030 @K@[@@00101 4* C AND SETS UP THE FORTRAN STATEMENTS IN AYJ )@@G@@ FORM SUITABLE FOR PASS2. PA100040 @K@[@@00101 5* C YK )@@G@@ PA100050 @K@[@@YL )@@G@@00103 6* INCLUDE TIDY, LIST YM )@@G@@ PA100060 @K@[@@00104 6* IMPLICIT INTEGER (A-ZYN )@@G@@) PRO00020 @K@[@@00105 6*YO )@@G@@ PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD YP )@@G@@ PRO00030 @K@[@@00106 6* PARAMETER DOS=25 @ MAXIMUM NESTINYQ )@@G@@G DEPTH OF DO LOOPS PRO00040 @K@[@@00107 6* PARYR )@@G@@AMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 YS )@@G@@@K@[@@00110 6* PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED SYT )@@G@@TATEMENT NUMBERS PRO00060 @K@[@@00111 6* COMMON ICOL, IFYU )@@G@@IR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 YV )@@G@@ 6* 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), YW )@@G@@ PRO00080 @K@[@@00111 6* 2 LDO(DOS), LFIR, LQUAYX )@@G@@L, LREF(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@00111 6* YY )@@G@@ 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PROYZ )@@G@@00100 @K@[@@00111 6* 4 NDOS, NINS, NPAR, NPUN, NREC, NRZA )@@G@@EF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@00111 6* 5 NXZB )@@G@@EQ, PAREN, PNEXT PRO00120 @K@[@@ZC )@@G@@00112 6* DIMENSION KIM(CRDLNG,20) ZD )@@G@@ PRO00130 @K@[@@00113 6* DIMENSION KOUT(CRDLNGZE )@@G@@,20) PRO00140 @K@[@@00114 6*ZF )@@G@@ DIMENSION OUTPUT(12,20) ZG )@@G@@ PRO00150 @K@[@@00115 6* EQUIVALENCE (KBUFF(1),KB1), (KBUFZH )@@G@@F(6),KB6) PRO00160 @K@[@@00116 6* EQUZI )@@G@@IVALENCE (KDIG(1),K0) PRO00170 ZJ )@@G@@@K@[@@00117 6* EQUIVALENCE (IOUT,KOUT) ZK )@@G@@ PRO00180 @K@[@@00120 6* EQUIVALENCE (JIZL )@@G@@NT,KIM) PRO00190 @K@[@@00121 ZM )@@G@@ 6* EQUIVALENCE (JINT,OUTPUT) ZN )@@G@@ PRO00200 @K@[@@00122 6* DEFINE DLOC(X)=FLD(0,18,LDEZO )@@G@@F(X)) PRO00210 @K@[@@00123 6* ZP )@@G@@ DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) PROZQ )@@G@@00220 @K@[@@00124 6* DEFINE LDOS(X)=FLD(0,18,LDO(X)) ZR )@@G@@ PRO00230 @K@[@@00125 6* DEFINE LDZS )@@G@@OL(X)=FLD(18,18,LDO(X)) PRO00240 @K@[@@ZT )@@G@@00125 6* END ZU )@@G@@ PRO00250 @K@[@@00126 7* INCLUDE ALPHA, LIST ZV )@@G@@ PA100070 @K@[@@00127 7*ZW )@@G@@ COMMON /ALPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KLZX )@@G@@, PRO00270 @K@[@@00127 7* 1 KM,KN,KO,KP,KQ,KR,ZY )@@G@@KS,KT,KU,KV,KW,KX,KY,KZ, PRO00280 @K@[@@00127 7* 2 ZZ )@@G@@ KEQ,KCOMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 AA )@@G@@@K@[@@00127 7* 3 KPERD,KDOLAR,KDASH,KQUOTE,KANDAB )@@G@@,KAT,KLR2,KERM PRO00300 @K@[@@00130 7* DIMENSION KABC(AC )@@G@@26), KSPK(14) PRO00310 @K@[@@00131 AD )@@G@@ 7* EQUIVALENCE (KABC,KA), (KSPK,KEQ) AE )@@G@@ PRO00320 @K@[@@00131 7* END AF )@@G@@ PRO00330 @K@[@@00132 8* AG )@@G@@ INCLUDE INIT, LIST PA1AH )@@G@@00080 @K@[@@00133 8* COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOAI )@@G@@PT,NSTART,RIGHT,RSTART, PRO00440 @K@[@@00133 8* 1 AJ )@@G@@ SOPT,SOURCE,DHDG PRO00450 @K@[@@AK )@@G@@00134 8* LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCE AL )@@G@@ PRO00460 @K@[@@00135 8* LOGICAL RIGHT AM )@@G@@ PRO00470 @K@[@@00135 8*AN )@@G@@ END AO )@@G@@ PRO00480 @K@[@@00136 9* INCLUDE KST, LIST AP )@@G@@ PA100090 @K@[@@00137 9* PARAQ )@@G@@AMETER NOIDS=58 @ NUMBER OF FORTRAN DIRECTIVES PRO00530 AR )@@G@@@K@[@@00140 9* PARAMETER IDCONT= 9 @ KSTIJ INDEX FOR CONTINUAS )@@G@@E STATEMENT PRO00540 @K@[@@00141 9* PARAMETER IDDELAT )@@G@@E=13 @ INDEX INTO KSTIJ FOR DELETE DIRECTIVE PRO00550 @K@[@@00142 AU )@@G@@ 9* PARAMETER IDEND=19 @ INDEX INTO KSTIJ FOR END STATEMENT AV )@@G@@ PRO00560 @K@[@@00143 9* PARAMETER IDFUNC=24 @ KSTIJAW )@@G@@ INDEX FOR FUNCTION STATEMENT PRO00570 @K@[@@00144 9* AX )@@G@@ PARAMETER IGOTON=26 @ INDEX INTO KSTIJ FOR GO TO N STATEMENT PROAY )@@G@@00580 @K@[@@00145 9* PARAMETER IDSTOP=53 @ INDEX INTO KSTIJ AZ )@@G@@FOR STOP STATEMENT PRO00590 @K@[@@00146 9* COMMON /KBA )@@G@@ST/ KSTIJ(12,NOIDS) PRO00600 @K@[@@BB )@@G@@00146 9* END BC )@@G@@ PRO00610 @K@[@@00147 10* INCLUDE LIOS, LIST BD )@@G@@ PA100100 @K@[@@00150 10*BE )@@G@@ COMMON /LIOS/ KLASS, ITYPE, L15, IMAX BF )@@G@@ PRO00630 @K@[@@00151 10* DIMENSION KILI(4) BG )@@G@@ PRO00640 @K@[@@00152 10* EQUBH )@@G@@IVALENCE (KLASS,KILI) PRO00650 BI )@@G@@@K@[@@00152 10* END BJ )@@G@@ PRO00660 @K@[@@00153 11* INCLUDE TAPES, BK )@@G@@LIST PA100110 @K@[@@00154 BL )@@G@@ 11* COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (10) BM )@@G@@ PRO00680 @K@[@@00155 11* PARAMETER STDRD=5 @ STANDARBN )@@G@@D READ UNIT PRO00690 @K@[@@00156 11* BO )@@G@@ PARAMETER STDPRT=6 @ STANDARD PRINT UNIT PROBP )@@G@@00700 @K@[@@00157 11* PARAMETER STDALT=101 @ STANDARD ALTERNABQ )@@G@@TE PRINT UNIT PRO00710 @K@[@@00157 11* END BR )@@G@@ PRO00720 @K@[@@BS )@@G@@00160 12* PARAMETER DOIN=2 @ NO. OF SPACES TO INDENT EX. STMBT )@@G@@TS. IN DO LOOP PA100120 @K@[@@00160 13* C BU )@@G@@ PA100130 @K@[@@00160 14*BV )@@G@@ C BW )@@G@@ PA100140 @K@[@@00160 15* C SET UP INITIAL CONDITIONS. BX )@@G@@ PA100150 @K@[@@00160 16* C REWBY )@@G@@IND TAPE FILES 1 AND 2. PA100160 BZ )@@G@@@K@[@@00160 17* C CA )@@G@@ PA100170 @K@[@@00161 18* CALL IOSYS1 (0,CB )@@G@@0,0) PA100180 @K@[@@00162 CC )@@G@@ 19* NRT1=0 CD )@@G@@ PA100190 @K@[@@00163 20* CALL IOSYS2 (0,0,0) CE )@@G@@ PA100200 @K@[@@00164 21* CF )@@G@@ NRT2=0 PA1CG )@@G@@00210 @K@[@@00165 22* DO 10 I=1,10 CH )@@G@@ PA100220 @K@[@@00170 23* 10 LDOS(I)=0CI )@@G@@ PA100230 @K@[@@CJ )@@G@@00172 24* DHDG=LOPT CK )@@G@@ PA100240 @K@[@@00173 25* KLASS=0 CL )@@G@@ PA100250 @K@[@@00174 26*CM )@@G@@ MILDO=0 CN )@@G@@ PA100260 @K@[@@00175 27* MLGC=0 CO )@@G@@ PA100270 @K@[@@00176 28* MP2CP )@@G@@=1 PA100280 CQ )@@G@@@K@[@@00177 29* MSTOP=0 @ *LAST CR )@@G@@ PA100290 @K@[@@00200 30* MTRAN=0 CS )@@G@@ PA100300 @K@[@@00201 CT )@@G@@ 31* NBLC=2 CU )@@G@@ PA100310 @K@[@@00202 32* NDEF=0 CV )@@G@@ PA100320 @K@[@@00203 33* CW )@@G@@ NDOL=0 PA1CX )@@G@@00330 @K@[@@00204 34* NDOS=0 CY )@@G@@ PA100340 @K@[@@00205 35* NREC=0 CZ )@@G@@ @ NUMBER OF STATEMENTS PA100350 @K@[@@DA )@@G@@00206 36* NREF=0 DB )@@G@@ PA100360 @K@[@@00207 37* NXEQ=0 DC )@@G@@ PA100370 @K@[@@00210 38*DD )@@G@@ IF (LOPT.NE.0) WRITE (JOUT,2030) @ HEADING DE )@@G@@ PA100380 @K@[@@00210 39* C DF )@@G@@ PA100390 @K@[@@00210 40* C DG )@@G@@ PA100400 DH )@@G@@@K@[@@00213 41* 20 DO 30 I=1,MAXCHS DI )@@G@@ PA100410 @K@[@@00216 42* 30 IOUT(I)=KBL DJ )@@G@@ @ CLEAR IOUT PA100420 @K@[@@00220 DK )@@G@@ 43* L15=0 DL )@@G@@ PA100430 @K@[@@00221 44* L772=0 DM )@@G@@ PA100440 @K@[@@00222 45* DN )@@G@@ AMBIG=0 PA1DO )@@G@@00450 @K@[@@00223 46* PAREN=0 DP )@@G@@ PA100460 @K@[@@00223 47* C DQ )@@G@@ PA100470 @K@[@@DR )@@G@@00224 48* 40 IF (LDIAG.OR.(LOPT.NE.0.AND.NREC.GT.0)) WRITE (JOUTDS )@@G@@,2040) LINE,((IPA100480 @K@[@@00224 49* 1NPUT(I,J),I=1,14),J=1DT )@@G@@,NCD) PA100490 @K@[@@00237 50*DU )@@G@@ IF (MP2.EQ.0) RETURN @ FATAL ERROR EXIT DV )@@G@@ PA100500 @K@[@@00241 51* LDIAG=.FALSE. DW )@@G@@ PA100510 @K@[@@00242 52* IF DX )@@G@@(.NOT.RSTART) LINE=LINE+NCD PA100520 DY )@@G@@@K@[@@00244 53* CALL SKARD DZ )@@G@@ PA100530 @K@[@@00245 54* NREC=NREC+1 EA )@@G@@ PA100540 @K@[@@00245 EB )@@G@@ 55* C EC )@@G@@ PA100550 @K@[@@00245 56* C CLEAR MLGC AND MTRAN IF MLGED )@@G@@C (LOGICAL FLAG) IS SET. PA100560 @K@[@@00245 57* C EE )@@G@@ PA1EF )@@G@@00570 @K@[@@00246 58* IF (MLGC.EQ.0) GO TO 50 EG )@@G@@ PA100580 @K@[@@00250 59* MLGC=0 EH )@@G@@ PA100590 @K@[@@EI )@@G@@00251 60* MTRAN=0 EJ )@@G@@ PA100600 @K@[@@00251 61* C EK )@@G@@ PA100610 @K@[@@00251 62*EL )@@G@@ C LOOK FOR * IN COLUMN 1 EM )@@G@@ PA100620 @K@[@@00251 63* C EN )@@G@@ PA100630 @K@[@@00252 64* 50 IF EO )@@G@@(JINT(1).NE.KSTAR) GO TO 60 PA100640 EP )@@G@@@K@[@@00252 65* C EQ )@@G@@ PA100650 @K@[@@00252 66* C * IN COLUMN 1. ER )@@G@@ GO TO CONTROL SUBROUTINE. PA100660 @K@[@@00252 ES )@@G@@ 67* C ET )@@G@@ PA100670 @K@[@@00254 68* CALL CONTRL EU )@@G@@ PA100680 @K@[@@00255 69* EV )@@G@@ IF (MSTOP.EQ.0) GO TO 20 PA1EW )@@G@@00690 @K@[@@00257 70* GO TO 1090 EX )@@G@@ PA100700 @K@[@@00257 71* C EY )@@G@@ PA100710 @K@[@@EZ )@@G@@00257 72* C LOOK FOR BLANK COMMENT FA )@@G@@ PA100720 @K@[@@00257 73* C FB )@@G@@ PA100730 @K@[@@00260 74*FC )@@G@@ 60 IF (JMAX.LE.1) GO TO 120 FD )@@G@@ PA100740 @K@[@@00260 75* C FE )@@G@@ PA100750 @K@[@@00260 76* C LOOFF )@@G@@K FOR NON-BLANK C-COMMENT PA100760 FG )@@G@@@K@[@@00260 77* C FH )@@G@@ PA100770 @K@[@@00262 78* IF (JINT(1).EQ.FI )@@G@@KC) GO TO 150 PA100780 @K@[@@00262 FJ )@@G@@ 79* C FK )@@G@@ PA100790 @K@[@@00262 80* C CHECK FOR STATEMENT STARTINFL )@@G@@G WITH CONTINUATION CARD PA100800 @K@[@@00262 81* C FM )@@G@@ PA1FN )@@G@@00810 @K@[@@00264 82* IF (JINT(6).EQ.KBL.OR.JINT(6).EQ.KDIG(1FO )@@G@@)) GO TO 80 PA100820 @K@[@@00266 83* 70 ERR=8 FP )@@G@@ @ ILLEGAL USE OF CONTINUATION CARD PA100830 @K@[@@FQ )@@G@@00267 84* 75 CALL DIAGNO (ERR) FR )@@G@@ PA100840 @K@[@@00270 85* GO TO 20 FS )@@G@@ PA100850 @K@[@@00270 86*FT )@@G@@ C FU )@@G@@ PA100860 @K@[@@00270 87* C FV )@@G@@ PA100870 @K@[@@00270 88* C GETFW )@@G@@ STATEMENT NUMBER AND CHECK FOR @-COMMENT PA100880 FX )@@G@@@K@[@@00270 89* C FY )@@G@@ PA100890 @K@[@@00271 90* 80 DO 110 LFIR=1,5FZ )@@G@@ PA100900 @K@[@@00274 GA )@@G@@ 91* IF (JINT(LFIR).EQ.KBL) GO TO 110 GB )@@G@@ PA100910 @K@[@@00276 92* IF (JINT(LFIR).EQ.KAT) GO TGC )@@G@@O 140 PA100920 @K@[@@00300 93* GD )@@G@@ DO 90 J=1,10 PA1GE )@@G@@00930 @K@[@@00303 94* 90 IF (JINT(LFIR).EQ.KDIG(J)) GO TO 100 GF )@@G@@ PA100940 @K@[@@00306 95* ERR=11 GG )@@G@@ @ ILLEGAL STATEMENT NUMBER PA100950 @K@[@@GH )@@G@@00307 96* GO TO 75 GI )@@G@@ PA100960 @K@[@@00310 97* 100 L15=10*L15+J-1 GJ )@@G@@ PA100970 @K@[@@00311 98*GK )@@G@@ 110 CONTINUE GL )@@G@@ PA100980 @K@[@@00313 99* GO TO 160 GM )@@G@@ PA100990 @K@[@@00313 100* C GN )@@G@@ PA101000 GO )@@G@@@K@[@@00313 101* C GP )@@G@@ PA101010 @K@[@@00313 102* C BLANK COMMENT. GQ )@@G@@ TEST IF TWO PREVIOUS CARDS WERE BLANK. PA101020 @K@[@@00313 GR )@@G@@ 103* C ELIMINATE BLANK COMMENT FOLLOWING COLLECTED FORMAT IF FORGS )@@G@@MAT WAS PA101030 @K@[@@00313 104* C PRECEDED BY BLANK COMMENT. GT )@@G@@ PA101040 @K@[@@00313 105* C GU )@@G@@ PA1GV )@@G@@01050 @K@[@@00314 106* 120 IF (NBLC.EQ.2) GO TO 20 GW )@@G@@ PA101060 @K@[@@00316 107* IF (KLASSGX )@@G@@.EQ.2.AND.MCOL.NE.0.AND.NBLC.NE.0) GO TO 20 PA101070 @K@[@@GY )@@G@@00320 108* NBLC=NBLC+1 GZ )@@G@@ PA101080 @K@[@@00321 109* JMAX=1 HA )@@G@@ PA101090 @K@[@@00322 110*HB )@@G@@ 130 JINT(1)=KC HC )@@G@@ PA101100 @K@[@@00323 111* KLASS=0 HD )@@G@@ PA101110 @K@[@@00324 112* ITYHE )@@G@@PE=0 PA101120 HF )@@G@@@K@[@@00325 113* GO TO 450 HG )@@G@@ PA101130 @K@[@@00325 114* C HH )@@G@@ PA101140 @K@[@@00325 HI )@@G@@ 115* C @ COMMENT. CHANGE TO C COMMENT HJ )@@G@@ PA101150 @K@[@@00325 116* C HK )@@G@@ PA101160 @K@[@@00326 117* 140HL )@@G@@ JINT(LFIR)=KBL PA1HM )@@G@@01170 @K@[@@00327 118* IF (LFIR.EQ.JMAX) GO TO 120 HN )@@G@@ PA101180 @K@[@@00327 119* C HO )@@G@@ PA101190 @K@[@@HP )@@G@@00327 120* C NON-BLANK COMMENT. HQ )@@G@@ PA101200 @K@[@@00327 121* C HR )@@G@@ PA101210 @K@[@@00331 122*HS )@@G@@ 150 NBLC=0 HT )@@G@@ PA101220 @K@[@@00332 123* IF (JMAX.GT.72) GO TO 70 HU )@@G@@ PA101230 @K@[@@00334 124* GO HV )@@G@@TO 130 PA101240 HW )@@G@@@K@[@@00334 125* C HX )@@G@@ PA101250 @K@[@@00334 126* C APPARENTLY FORTHY )@@G@@RAN. PA101260 @K@[@@00334 HZ )@@G@@ 127* C IA )@@G@@ PA101270 @K@[@@00335 128* 160 JCOL=7 IB )@@G@@ PA101280 @K@[@@00336 129* IC )@@G@@ ICOL=6 PA1ID )@@G@@01290 @K@[@@00336 130* C IE )@@G@@ PA101300 @K@[@@00336 131* C CLEAR BLAIF )@@G@@NK COMMENT COUNTER. LOOK FOR FIRST SPECIAL CHARACTER. PA101310 @K@[@@IG )@@G@@00336 132* C IH )@@G@@ PA101320 @K@[@@00337 133* IF (KLASS.EQ.2.AND.MCII )@@G@@OL.NE.0) GO TO 170 @ PRECEDING FORMAT MOVEPA101330 @K@[@@00341 134*IJ )@@G@@ NBLC1=NBLC @ SAVE PRECEDING NUMBER OF BLANK COMMENTIK )@@G@@S PA101340 @K@[@@00342 135* NBLC=0 IL )@@G@@ PA101350 @K@[@@00343 136* 170 NSPIM )@@G@@ACE=0 PA101360 IN )@@G@@@K@[@@00344 137* DO 200 LFIR=JCOL,JMAX IO )@@G@@ PA101370 @K@[@@00347 138* IF (JINT(LFIR).IP )@@G@@NE.KBL) GO TO 180 PA101380 @K@[@@00351 IQ )@@G@@ 139* NSPACE=NSPACE+1 IR )@@G@@ PA101390 @K@[@@00352 140* GO TO 200 IS )@@G@@ PA101400 @K@[@@00353 141* 180IT )@@G@@ DO 190 IFIR=1,14 PA1IU )@@G@@01410 @K@[@@00356 142* 190 IF (JINT(LFIR).EQ.KSPK(IFIR)) GO TO 210IV )@@G@@ PA101420 @K@[@@00361 143* 200 CONTINUE IW )@@G@@ PA101430 @K@[@@IX )@@G@@00363 144* LFIR=6 IY )@@G@@ PA101440 @K@[@@00364 145* IFIR=15 IZ )@@G@@ PA101450 @K@[@@00365 146*JA )@@G@@ GO TO 380 JB )@@G@@ PA101460 @K@[@@00365 147* C JC )@@G@@ PA101470 @K@[@@00365 148* C HAVJD )@@G@@E FIRST SPECIAL CHARACTER. REJECT IF ) + - . $ OR - PA101480 JE )@@G@@@K@[@@00365 149* C JF )@@G@@ PA101490 @K@[@@00366 150* 210 IF (IFIR.NE.14)JG )@@G@@ GO TO 220 PA101500 @K@[@@00366 JH )@@G@@ 151* C JI )@@G@@ PA101510 @K@[@@00366 152* C @ IS FIRST SPECIAL CHARACTEJJ )@@G@@R PA101520 @K@[@@00366 153* C JK )@@G@@ PA1JL )@@G@@01530 @K@[@@00370 154* IF (LFIR.EQ.(JCOL+NSPACE)) GO TO 140 @JM )@@G@@ '@' COMMENT PA101540 @K@[@@00372 155* GO TO 230JN )@@G@@ PA101550 @K@[@@JO )@@G@@00372 156* C JP )@@G@@ PA101560 @K@[@@00373 157* 220 IF (IFIR.GT.5.AND.IFIJQ )@@G@@R.NE.8) GO TO 240 PA101570 @K@[@@00375 158*JR )@@G@@ 230 IF (MLGC.NE.0) GO TO 250 JS )@@G@@ PA101580 @K@[@@00377 159* CALL HOLCK @ ELIMINATE HOLLERITJT )@@G@@H CODE AND EMBEDDED @-COMMENTS PA101590 @K@[@@00400 160* IF JU )@@G@@(NTEMP(1).NE.0) NBLC1=0 PA101600 JV )@@G@@@K@[@@00402 161* IF (IFIR.NE.0) GO TO 250 JW )@@G@@ PA101610 @K@[@@00404 162* GO TO 170 JX )@@G@@ PA101620 @K@[@@00404 JY )@@G@@ 163* C JZ )@@G@@ PA101630 @K@[@@00404 164* C KA )@@G@@ PA101640 @K@[@@00405 165* 240KB )@@G@@ ERR=9 @ ILLEGAL FIRST SPECIAL CHARACTER PA1KC )@@G@@01650 @K@[@@00406 166* GO TO 75 KD )@@G@@ PA101660 @K@[@@00406 167* C KE )@@G@@ PA101670 @K@[@@KF )@@G@@00406 168* C IF THERE ARE MORE THAN 6 CHARACTERS TO THE LEFT OF KG )@@G@@THE FIRST PA101680 @K@[@@00406 169* C SPECIAL CHARACTER THEKH )@@G@@N THE STATEMENT IS NOT ARITHMETIC. PA101690 @K@[@@00406 170*KI )@@G@@ C KJ )@@G@@ PA101700 @K@[@@00407 171* 250 IF (LFIR-JCOL-NSPACE.GT.6) GO TO KK )@@G@@380 PA101710 @K@[@@00407 172* C KL )@@G@@ PA101720 KM )@@G@@@K@[@@00407 173* C KN )@@G@@ PA101730 @K@[@@00407 174* C SCAN STATEMENT.KO )@@G@@ IF EQUAL SIGN IS FIRST SPECIAL CHARACTER, OR PA101740 @K@[@@00407 KP )@@G@@ 175* C FIRST SPECIAL CHARACTER IS LEFT PARENTHESIS AND FIRST CHAKQ )@@G@@RACTER PA101750 @K@[@@00407 176* C AFTER PARENTHESIS BALANCE IKR )@@G@@S AN EQUAL SIGN, TENTATIVELY CLASSIFY PA101760 @K@[@@00407 177* C KS )@@G@@ THE STATEMENT AS ARITHMETIC. IF THE FIRST SPECIAL CHARACTER PA1KT )@@G@@01770 @K@[@@00407 178* C AFTER THE EQUAL SIGN IS ANOTHER EQUAL SKU )@@G@@IGN, A COMMA, DOLLAR SIGN PA101780 @K@[@@00407 179* C OR AMPERSKV )@@G@@AND, RETRACT THE ARITHMETIC CLASSIFICATION AND SCAN PA101790 @K@[@@KW )@@G@@00407 180* C THE DIRECTIVE LISTS. KX )@@G@@ PA101800 @K@[@@00407 181* C KY )@@G@@ PA101810 @K@[@@00411 182*KZ )@@G@@ IF (IFIR.NE.1) GO TO 260 LA )@@G@@ PA101820 @K@[@@00413 183* LQUAL=LFIR LB )@@G@@ PA101830 @K@[@@00414 184* GO LC )@@G@@TO 290 PA101840 LD )@@G@@@K@[@@00415 185* 260 IF (IFIR.NE.3) GO TO 380 LE )@@G@@ PA101850 @K@[@@00417 186* NPAR=1 LF )@@G@@ PA101860 @K@[@@00420 LG )@@G@@ 187* LQUAL=LFIR LH )@@G@@ PA101870 @K@[@@00421 188* 270 LQUAL=LQUAL+1 LI )@@G@@ PA101880 @K@[@@00422 189* LJ )@@G@@ IF (LQUAL.GT.JMAX) GO TO 360 PA1LK )@@G@@01890 @K@[@@00424 190* IF (JINT(LQUAL).EQ.KOPEN) NPAR=NPAR+1 LL )@@G@@ PA101900 @K@[@@00426 191* IF (JINT(LM )@@G@@LQUAL).NE.KCLOSE) GO TO 270 PA101910 @K@[@@LN )@@G@@00430 192* NPAR=NPAR-1 LO )@@G@@ PA101920 @K@[@@00431 193* IF (NPAR) 370,280,270LP )@@G@@ PA101930 @K@[@@00434 194*LQ )@@G@@ 280 LQUAL=LQUAL+1 LR )@@G@@ PA101940 @K@[@@00435 195* IF (LQUAL.GT.JMAX) GO TO 380 LS )@@G@@ PA101950 @K@[@@00437 196* IF LT )@@G@@(JINT(LQUAL).EQ.KBL) GO TO 280 PA101960 LU )@@G@@@K@[@@00441 197* IF (JINT(LQUAL).NE.KEQ) GO TO 380 LV )@@G@@ PA101970 @K@[@@00441 198* C LW )@@G@@ PA101980 @K@[@@00441 LX )@@G@@ 199* C HAVE EQUAL SIGN WITH PROPER LEFT-SIDE SYNTAX. CHECK FOR LY )@@G@@PROPER PA101990 @K@[@@00441 200* C RIGHT-SIDE SYNTAX. LZ )@@G@@ PA102000 @K@[@@00441 201* C MA )@@G@@ PA1MB )@@G@@02010 @K@[@@00443 202* 290 LAST=LQUAL MC )@@G@@ PA102020 @K@[@@00444 203* 300 LAST=LASTMD )@@G@@+1 PA102030 @K@[@@ME )@@G@@00445 204* IF (LAST.GT.JMAX) GO TO 330 MF )@@G@@ PA102040 @K@[@@00447 205* DO 310 I=1,14 MG )@@G@@ PA102050 @K@[@@00452 206*MH )@@G@@ IF (JINT(LAST).EQ.KSPK(I)) GO TO 320 MI )@@G@@ PA102060 @K@[@@00454 207* 310 CONTINUE MJ )@@G@@ PA102070 @K@[@@00456 208* GO MK )@@G@@TO 300 PA102080 ML )@@G@@@K@[@@00457 209* 320 GO TO (380,380,330,330,380,330,300,330,330,38MM )@@G@@0,330,330,380,330), IPA102090 @K@[@@00457 210* C MN )@@G@@ PA102100 @K@[@@00457 MO )@@G@@ 211* C HAVE EQUAL SIGN WITH PROPER LEFT- AND RIGHT-SIDE SYNTAX. MP )@@G@@ TREAT PA102110 @K@[@@00457 212* C STATEMENT AS ARITHMETIC. MQ )@@G@@ PA102120 @K@[@@00457 213* C MR )@@G@@ PA1MS )@@G@@02130 @K@[@@00460 214* 330 KLASS=3 MT )@@G@@ PA102140 @K@[@@00461 215* ITYPE=0 MU )@@G@@ PA102150 @K@[@@MV )@@G@@00462 216* IF (INDENT.AND.MLGC.EQ.0) ICOL=ICOL+(NDOL*DOIN) MW )@@G@@ PA102160 @K@[@@00464 217* 340 CALL COPY (1) MX )@@G@@ PA102170 @K@[@@00465 218*MY )@@G@@ IF (MEOF) ,520,20 MZ )@@G@@ PA102180 @K@[@@00470 219* IF (LCPY.NE.KDOLAR.AND.LCPY.NE.KANA )@@G@@ND) GO TO 340 PA102190 @K@[@@00472 220* CALNB )@@G@@L RSTAT PA102200 NC )@@G@@@K@[@@00473 221* IF (L772.NE.0) GO TO 350 ND )@@G@@ PA102210 @K@[@@00475 222* ERR=10 NE )@@G@@ @ ILLEGAL ARGUMENT PA102220 @K@[@@00476 NF )@@G@@ 223* GO TO 75 NG )@@G@@ PA102230 @K@[@@00477 224* 350 IOUT(ICOL+1)=KLR2 NH )@@G@@ PA102240 @K@[@@00500 225* NI )@@G@@ ICOL=ICOL+2 PA1NJ )@@G@@02250 @K@[@@00501 226* IOUT(ICOL)=L772 NK )@@G@@ PA102260 @K@[@@00502 227* KLASS=4 NL )@@G@@ PA102270 @K@[@@NM )@@G@@00503 228* CALL RLIST NN )@@G@@ PA102280 @K@[@@00504 229* GO TO 340 NO )@@G@@ PA102290 @K@[@@00504 230*NP )@@G@@ C NQ )@@G@@ PA102300 @K@[@@00505 231* 360 ERR=2 @ MISNR )@@G@@SING ) PA102310 @K@[@@00506 232* GO NS )@@G@@TO 75 PA102320 NT )@@G@@@K@[@@00506 233* C NU )@@G@@ PA102330 @K@[@@00507 234* 370 ERR=3 NV )@@G@@ @ EXCESS ) PA102340 @K@[@@00510 NW )@@G@@ 235* GO TO 75 NX )@@G@@ PA102350 @K@[@@00510 236* C NY )@@G@@ PA102360 @K@[@@00510 237* C NZ )@@G@@ ======================================== PA1OA )@@G@@02370 @K@[@@00510 238* C * OB )@@G@@ * PA102380 @K@[@@00510 239* C OC )@@G@@* END OF ARITHMETIC PROCESSING * PA102390 @K@[@@OD )@@G@@00510 240* C * START FORTRAN STATEMENT PROCESSING * OE )@@G@@ PA102400 @K@[@@00510 241* C * OF )@@G@@ * PA102410 @K@[@@00510 242*OG )@@G@@ C ======================================== OH )@@G@@ PA102420 @K@[@@00510 243* C OI )@@G@@ PA102430 @K@[@@00511 244* 380 DO OJ )@@G@@410 ITYPE=1,NOIDS PA102440 OK )@@G@@@K@[@@00514 245* NINS=KSTIJ(11,ITYPE) OL )@@G@@ PA102450 @K@[@@00515 246* LAST=JCOL-1 OM )@@G@@ PA102460 @K@[@@00515 ON )@@G@@ 247* C OO )@@G@@ PA102470 @K@[@@00516 248* DO 400 I=1,NINS OP )@@G@@ PA102480 @K@[@@00521 249* 390OQ )@@G@@ LAST=LAST+1 PA1OR )@@G@@02490 @K@[@@00522 250* IF (LAST.GT.JMAX) GO TO 410 OS )@@G@@ PA102500 @K@[@@00524 251* IF (JINT(OT )@@G@@LAST).EQ.KBL) GO TO 390 PA102510 @K@[@@OU )@@G@@00526 252* IF (JINT(LAST).NE.KSTIJ(I,ITYPE)) GO TO 410 OV )@@G@@ PA102520 @K@[@@00530 253* 400 CONTINUE OW )@@G@@ PA102530 @K@[@@00530 254*OX )@@G@@ C OY )@@G@@ PA102540 @K@[@@00532 255* KLASS=KSTIJ(12,ITYPE) OZ )@@G@@ PA102550 @K@[@@00533 256* IF PA )@@G@@(MLGC) ,430, PA102560 PB )@@G@@@K@[@@00536 257* IF (KLASS.EQ.3.OR.KLASS.EQ.4) GO TO 470 PC )@@G@@ PA102570 @K@[@@00540 258* GO TO 420 PD )@@G@@ PA102580 @K@[@@00541 PE )@@G@@ 259* 410 CONTINUE PF )@@G@@ PA102590 @K@[@@00541 260* C PG )@@G@@ PA102600 @K@[@@00541 261* C PH )@@G@@ NOT IN DIRECTIVE LIST. CHECK FOR AMBIGUOUS IF STATEMENT PA1PI )@@G@@02610 @K@[@@00541 262* C PJ )@@G@@ PA102620 @K@[@@00543 263* IF (AMBIGPK )@@G@@.EQ.0) GO TO 420 PA102630 @K@[@@PL )@@G@@00543 264* C PM )@@G@@ PA102640 @K@[@@00543 265* C AMBIGUOUS IF STATEMENPN )@@G@@T. TREAT AS ARITHMETIC IF. PA102650 @K@[@@00543 266*PO )@@G@@ C PP )@@G@@ PA102660 @K@[@@00545 267* MLGC=0 PQ )@@G@@@ UNDO PROCESSING FOR LOGICAL IF PA102670 @K@[@@00546 268* GO PR )@@G@@TO 1560 PA102680 PS )@@G@@@K@[@@00546 269* C PT )@@G@@ PA102690 @K@[@@00546 270* C UNIDENTIFIABLE PU )@@G@@STATEMENT. PA102700 @K@[@@00546 PV )@@G@@ 271* C PW )@@G@@ PA102710 @K@[@@00547 272* 420 ERR=1 PX )@@G@@ @ ILLEGAL STATEMENT HAS BEEN DELETED PA102720 @K@[@@00550 273* PY )@@G@@ GO TO 75 PA1PZ )@@G@@02730 @K@[@@00550 274* C QA )@@G@@ PA102740 @K@[@@00550 275* C TEST EXEMQB )@@G@@PT FLAG, MEX, FOR NON-ZERO PA102750 @K@[@@QC )@@G@@00550 276* C QD )@@G@@ PA102760 @K@[@@00551 277* 430 IF (KLASS.NE.1) GO TOQE )@@G@@ 460 PA102770 @K@[@@00553 278*QF )@@G@@ IF (MEX.EQ.0) GO TO 470 QG )@@G@@ PA102780 @K@[@@00553 279* C QH )@@G@@ PA102790 @K@[@@00553 280* C MEXQI )@@G@@ IS NON-ZERO, STATEMENT IS KLASS 1, AND HENCE IS EXEMPT. PA102800 QJ )@@G@@@K@[@@00553 281* C QK )@@G@@ PA102810 @K@[@@00555 282* CALL DLIST (MERQL )@@G@@R) PA102820 @K@[@@00556 QM )@@G@@ 283* IF (MERR.NE.0) GO TO 20 QN )@@G@@ PA102830 @K@[@@00560 284* DO 440 J=1,6 QO )@@G@@ PA102840 @K@[@@00563 285* 440QP )@@G@@ JINT(J)=KBL PA1QQ )@@G@@02850 @K@[@@00565 286* 450 IMAX=JMAX QR )@@G@@ PA102860 @K@[@@00566 287* CALL IOSYQS )@@G@@S1 (2,KILI,4) PA102870 @K@[@@QT )@@G@@00567 288* CALL IOSYS1 (2,JINT,JMAX) QU )@@G@@ PA102880 @K@[@@00570 289* NRT1=NRT1+1 QV )@@G@@ PA102890 @K@[@@00571 290*QW )@@G@@ GO TO 40 QX )@@G@@ PA102900 @K@[@@00571 291* C QY )@@G@@ PA102910 @K@[@@00571 292* C INDQZ )@@G@@ENT EXECUTABLE STATEMENTS WITHIN DO LOOP, IF REQUIRED. PA102920 RA )@@G@@@K@[@@00571 293* C RB )@@G@@ PA102930 @K@[@@00572 294* 460 IF (KLASS.EQ.2.RC )@@G@@OR.KLASS.EQ.5) GO TO 470 @ DON'T INDENT FORMAT,EPA102940 @K@[@@00574 RD )@@G@@ 295* IF (ITYPE.EQ.IDDELE) GO TO 470 @ DON'T INDENT DELETE STRE )@@G@@ATEMENT PA102950 @K@[@@00576 296* IF (INDENT) ICOL=ICOL+(NDOLRF )@@G@@*DOIN) PA102960 @K@[@@00576 297* C RG )@@G@@ PA1RH )@@G@@02970 @K@[@@00576 298* C GO TO INDIVIDUAL STATEMENT PROCESSING BRI )@@G@@Y ITYPE. PA102980 @K@[@@00576 299* C RJ )@@G@@ PA102990 @K@[@@RK )@@G@@00600 300* 470 GO TO ( 480, 550, 480, 560, 570, 590, 640, 660, 690RL )@@G@@, 720, PA103000 @K@[@@00600 301* 1 730, 770, 800RM )@@G@@, 810, 870, 910, 730,1080,1090,1180, PA103010 @K@[@@00600 302*RN )@@G@@ 2 1210, 480,1230,1250,1270,1270,1410,1450,1460,1480, RO )@@G@@ PA103020 @K@[@@00600 303* 3 1490,1500,1680,1750, 660, RP )@@G@@660,1770,1780, 480,1810, PA103030 @K@[@@00600 304* 4 RQ )@@G@@ 1810,1840,1870,1900,1810, 660, 480, 480,1950,1960, PA103040 RR )@@G@@@K@[@@00600 305* 5 1980,1980,1990,2000,2010,2020,1900,122RS )@@G@@0) , ITYPE PA103050 @K@[@@00600 306* C RT )@@G@@ PA103060 @K@[@@00600 RU )@@G@@ 307* C RV )@@G@@ PA103070 @K@[@@00600 308* C ===========================RW )@@G@@=======================================PA103080 @K@[@@00600 309* C RX )@@G@@ * *PA1RY )@@G@@03090 @K@[@@00600 310* C * AT THIS POINT, COMMENTS AND ARITHMETRZ )@@G@@IC STATEMENTS HAVE BEEN *PA103100 @K@[@@00600 311* C * PROCESSA )@@G@@SED. THE STATEMENTS HAVE BEEN CLASSIFIED AS ITYPE AND *PA103110 @K@[@@SB )@@G@@00600 312* C * KLASS. THE LAST SYMBOL USED IN SCANNING THE FORSC )@@G@@TRAN STATE- *PA103120 @K@[@@00600 313* C * MENT IS KSTIJ(NINSSD )@@G@@,ITYPE), AND WAS FOUND AT JINT(LAST). THE *PA103130 @K@[@@00600 314*SE )@@G@@ C * FIRST SPECIAL CHARACTER, IF ANY, IS KSPK(IFIR), LOCATED AT SF )@@G@@ *PA103140 @K@[@@00600 315* C * JINT(LFIR). INVALID COMBINATISG )@@G@@ONS OF STATEMENTS AND FIRST *PA103150 @K@[@@00600 316* C * SH )@@G@@SPECIAL CHARACTER HAVE BEEN ELIMINATED. IF A STATEMENT *PA103160 SI )@@G@@@K@[@@00600 317* C * NUMBER IS PERMITTED, IT IS IN L15. IF NOTSJ )@@G@@, L15=0. *PA103170 @K@[@@00600 318* C * UNLESS MLGC,SK )@@G@@ THE LOGICAL FLAG, IS ON ICOL = 6, AND JCOL = 7. *PA103180 @K@[@@00600 SL )@@G@@ 319* C * SM )@@G@@ *PA103190 @K@[@@00600 320* C ===========================SN )@@G@@=======================================PA103200 @K@[@@00600 321* C SO )@@G@@ PA1SP )@@G@@03210 @K@[@@00600 322* C ABNORMAL, BACKSPACE, EXTERNAL, PAUSE, RSQ )@@G@@ETURN, REWIND PA103220 @K@[@@00600 323* C SR )@@G@@ PA103230 @K@[@@SS )@@G@@00601 324* 480 CALL COPY (NINS) ST )@@G@@ PA103240 @K@[@@00601 325* C SU )@@G@@ PA103250 @K@[@@00601 326*SV )@@G@@ C SW )@@G@@ PA103260 @K@[@@00602 327* 490 ICOL=ICOL+1 SX )@@G@@ PA103270 @K@[@@00603 328* 500 CALSY )@@G@@L COPY (0) @ FINISH UP COPY PA103280 SZ )@@G@@@K@[@@00604 329* 510 IF (MEOF.GT.0) GO TO 20 TA )@@G@@ PA103290 @K@[@@00606 330* 520 IMAX=ICOL TB )@@G@@ PA103300 @K@[@@00607 TC )@@G@@ 331* 530 CALL DLIST (MERR) TD )@@G@@ PA103310 @K@[@@00610 332* IF (MERR.NE.0) GO TO 20 TE )@@G@@ PA103320 @K@[@@00612 333* TF )@@G@@ IF (L772.NE.0) CALL RLIST @ UPDATE REFERENCED STATEMENT NUMBERS PA1TG )@@G@@03330 @K@[@@00612 334* C TH )@@G@@ PA103340 @K@[@@00612 335* C WRITE STATI )@@G@@TEMENT IMAGE ON TAPE 1 FOR PASS 2. PA103350 @K@[@@TJ )@@G@@00612 336* C TK )@@G@@ PA103360 @K@[@@00614 337* 540 CALL IOSYS1 (2,KILI,4TL )@@G@@) PA103370 @K@[@@00615 338*TM )@@G@@ CALL IOSYS1 (2,IOUT,IMAX) TN )@@G@@ PA103380 @K@[@@00616 339* NRT1=NRT1+1 TO )@@G@@ PA103390 @K@[@@00617 340* GO TP )@@G@@TO 20 PA103400 TQ )@@G@@@K@[@@00617 341* C TR )@@G@@ PA103410 @K@[@@00617 342* C ASSIGN TS )@@G@@ PA103420 @K@[@@00617 TT )@@G@@ 343* C TU )@@G@@ PA103430 @K@[@@00620 344* 550 CALL COPY (NINS) TV )@@G@@ PA103440 @K@[@@00621 345* TW )@@G@@ CALL RSTAT PA1TX )@@G@@03450 @K@[@@00622 346* IF (L772.EQ.0) GO TO 420 TY )@@G@@ PA103460 @K@[@@00624 347* IOUT(ICOLTZ )@@G@@+2)=KLR2 PA103470 @K@[@@UA )@@G@@00625 348* IOUT(ICOL+3)=L772 UB )@@G@@ PA103480 @K@[@@00626 349* ICOL=ICOL+4 UC )@@G@@ PA103490 @K@[@@00627 350*UD )@@G@@ CALL COPY (2) UE )@@G@@ PA103500 @K@[@@00630 351* GO TO 490 UF )@@G@@ PA103510 @K@[@@00630 352* C UG )@@G@@ PA103520 UH )@@G@@@K@[@@00630 353* C BLOCK DATA UI )@@G@@ PA103530 @K@[@@00630 354* C UJ )@@G@@ PA103540 @K@[@@00631 UK )@@G@@ 355* 560 CALL COPY (5) UL )@@G@@ PA103550 @K@[@@00632 356* ICOL=ICOL+1 UM )@@G@@ PA103560 @K@[@@00633 357* UN )@@G@@ CALL COPY (4) PA1UO )@@G@@03570 @K@[@@00634 358* GO TO 500 UP )@@G@@ PA103580 @K@[@@00634 359* C UQ )@@G@@ PA103590 @K@[@@UR )@@G@@00634 360* C CALL US )@@G@@ PA103600 @K@[@@00634 361* C UT )@@G@@ PA103610 @K@[@@00635 362*UU )@@G@@ 570 CALL COPY (NINS) UV )@@G@@ PA103620 @K@[@@00636 363* ICOL=ICOL+1 UW )@@G@@ PA103630 @K@[@@00637 364* IF UX )@@G@@(IFIR.NE.3) GO TO 500 @ NO ARGUMENTS PA103640 UY )@@G@@@K@[@@00641 365* 580 CALL COPY (1) UZ )@@G@@ PA103650 @K@[@@00642 366* IF (PNEXT.NE.KOVA )@@G@@PEN) GO TO 580 PA103660 @K@[@@00644 VB )@@G@@ 367* ICOL=ICOL+1 @ INSERT SPACE AFTER SUBROUTIVC )@@G@@NE NAME PA103670 @K@[@@00645 368* GO TO 340 VD )@@G@@ PA103680 @K@[@@00645 369* C VE )@@G@@ PA1VF )@@G@@03690 @K@[@@00645 370* C COMMON VG )@@G@@ PA103700 @K@[@@00645 371* C VH )@@G@@ PA103710 @K@[@@VI )@@G@@00646 372* 590 CALL COPY (NINS) VJ )@@G@@ PA103720 @K@[@@00647 373* IF (IFIR.NE.4) GO TO VK )@@G@@490 @ BLANK COMMON PA103730 @K@[@@00651 374*VL )@@G@@ 600 NPAR=0 VM )@@G@@ PA103740 @K@[@@00652 375* 610 CALL COPY (1) VN )@@G@@ PA103750 @K@[@@00653 376* IF VO )@@G@@(MEOF) ,630,20 PA103760 VP )@@G@@@K@[@@00656 377* IF (LCPY.NE.KSLASH) GO TO 610 VQ )@@G@@ PA103770 @K@[@@00660 378* IF (NPAR.NE.0) VR )@@G@@GO TO 620 PA103780 @K@[@@00660 VS )@@G@@ 379* C VT )@@G@@ PA103790 @K@[@@00660 380* C INSERT SPACE BEFORE FIRST /VU )@@G@@ PA103800 @K@[@@00662 381* VV )@@G@@ IOUT(ICOL)=KBL PA1VW )@@G@@03810 @K@[@@00663 382* ICOL=ICOL+1 VX )@@G@@ PA103820 @K@[@@00664 383* IOUT(ICOLVY )@@G@@)=KSLASH PA103830 @K@[@@VZ )@@G@@00665 384* NPAR=1 WA )@@G@@ PA103840 @K@[@@00666 385* GO TO 610 WB )@@G@@ PA103850 @K@[@@00666 386*WC )@@G@@ C WD )@@G@@ PA103860 @K@[@@00666 387* C INSERT SPACE AFTER SECOND SLASH WE )@@G@@ PA103870 @K@[@@00666 388* C WF )@@G@@ PA103880 WG )@@G@@@K@[@@00667 389* 620 ICOL=ICOL+1 WH )@@G@@ PA103890 @K@[@@00670 390* GO TO 600 WI )@@G@@ PA103900 @K@[@@00670 WJ )@@G@@ 391* C WK )@@G@@ PA103910 @K@[@@00671 392* 630 IF (NPAR.EQ.0) GO TO 520 WL )@@G@@ PA103920 @K@[@@00673 393* 635WM )@@G@@ ERR=21 @ MISSING / PA1WN )@@G@@03930 @K@[@@00674 394* GO TO 75 WO )@@G@@ PA103940 @K@[@@00674 395* C WP )@@G@@ PA103950 @K@[@@WQ )@@G@@00674 396* C COMPILER WR )@@G@@ PA103960 @K@[@@00674 397* C WS )@@G@@ PA103970 @K@[@@00675 398*WT )@@G@@ 640 CALL COPY (NINS) WU )@@G@@ PA103980 @K@[@@00676 399* 650 ICOL=ICOL+1 WV )@@G@@ PA103990 @K@[@@00677 400* CALWW )@@G@@L COPY (-1) PA104000 WX )@@G@@@K@[@@00700 401* IF (MEOF.GT.0) GO TO 20 WY )@@G@@ PA104010 @K@[@@00702 402* IF (MEOF.EQ.0) WZ )@@G@@GO TO 1920 PA104020 @K@[@@00704 XA )@@G@@ 403* CALL COPY (1) XB )@@G@@ PA104030 @K@[@@00705 404* IF (LCPY.EQ.KCOMMA) GO TO 6XC )@@G@@50 PA104040 @K@[@@00707 405* XD )@@G@@ GO TO 510 PA1XE )@@G@@04050 @K@[@@00707 406* C XF )@@G@@ PA104060 @K@[@@00707 407* C XG )@@G@@ PA104070 @K@[@@XH )@@G@@00707 408* C COMPLEX, INTEGER, LOGICAL, REAL. XI )@@G@@ PA104080 @K@[@@00707 409* C XJ )@@G@@ PA104090 @K@[@@00710 410*XK )@@G@@ 660 CALL COPY (NINS) XL )@@G@@ PA104100 @K@[@@00711 411* IF (IFIR.NE.8) GO TO 880 XM )@@G@@ PA104110 @K@[@@00713 412* CALXN )@@G@@L COPY (2) @ *N PA104120 XO )@@G@@@K@[@@00714 413* IF (MEOF) ,420,20 XP )@@G@@ PA104130 @K@[@@00714 414* C XQ )@@G@@ PA104140 @K@[@@00714 XR )@@G@@ 415* C LOOK FOR NEXT SPECIAL CHARACTER XS )@@G@@ PA104150 @K@[@@00714 416* C XT )@@G@@ PA104160 @K@[@@00717 417* XU )@@G@@ DO 680 LFIR=JCOL,JMAX PA1XV )@@G@@04170 @K@[@@00722 418* IF (JINT(JCOL).EQ.KBL) GO TO 680 XW )@@G@@ PA104180 @K@[@@00724 419* DO 670 IFXX )@@G@@IR=1,14 PA104190 @K@[@@XY )@@G@@00727 420* 670 IF (JINT(LFIR).EQ.KSPK(IFIR)) GO TO 880 XZ )@@G@@ PA104200 @K@[@@00732 421* 680 CONTINUE YA )@@G@@ PA104210 @K@[@@00734 422*YB )@@G@@ IFIR=15 YC )@@G@@ PA104220 @K@[@@00735 423* GO TO 880 YD )@@G@@ PA104230 @K@[@@00735 424* C YE )@@G@@ PA104240 YF )@@G@@@K@[@@00735 425* C CONTINUE YG )@@G@@ PA104250 @K@[@@00735 426* C YH )@@G@@ PA104260 @K@[@@00736 YI )@@G@@ 427* 690 IF (MLGC.EQ.0) GO TO 710 YJ )@@G@@ PA104270 @K@[@@00740 428* DO 700 I=7,ICOL YK )@@G@@ PA104280 @K@[@@00743 429* 700YL )@@G@@ IOUT(I)=KBL PA1YM )@@G@@04290 @K@[@@00745 430* ICOL=6 YN )@@G@@ PA104300 @K@[@@00746 431* 710 CALL COPYYO )@@G@@ (8) PA104310 @K@[@@YP )@@G@@00747 432* IF (L15.NE.0) GO TO 500 YQ )@@G@@ PA104320 @K@[@@00751 433* ERR=12 YR )@@G@@ @ REDUNDANT CONTINUE STATEMENT PA104330 @K@[@@00752 434*YS )@@G@@ GO TO 75 YT )@@G@@ PA104340 @K@[@@00752 435* C YU )@@G@@ PA104350 @K@[@@00752 436* C DATYV )@@G@@A PA104360 YW )@@G@@@K@[@@00752 437* C YX )@@G@@ PA104370 @K@[@@00753 438* 720 CALL COPY (NINSYY )@@G@@) PA104380 @K@[@@00754 YZ )@@G@@ 439* ICOL=ICOL+1 ZA )@@G@@ PA104390 @K@[@@00755 440* GO TO 600 ZB )@@G@@ PA104400 @K@[@@00755 441* C ZC )@@G@@ PA1ZD )@@G@@04410 @K@[@@00755 442* C DECODE OR ENCODE STATEMENT. ZE )@@G@@ PA104420 @K@[@@00755 443* C ZF )@@G@@ PA104430 @K@[@@ZG )@@G@@00755 444* C DECODE (SIZE,FORMAT,BLOCK,TRANS) LIST ZH )@@G@@ PA104440 @K@[@@00755 445* C DECODE (SIZE,FORMAT,BZI )@@G@@LOCK) LIST PA104450 @K@[@@00755 446*ZJ )@@G@@ C DECODE (BLOCK,FORMAT) LIST ZK )@@G@@ PA104460 @K@[@@00755 447* C ZL )@@G@@ PA104470 @K@[@@00756 448* 730 CALZM )@@G@@L COPY (6) PA104480 ZN )@@G@@@K@[@@00757 449* ICOL=ICOL+1 ZO )@@G@@ PA104490 @K@[@@00760 450* CALL COPY (1) ZP )@@G@@ PA104500 @K@[@@00761 ZQ )@@G@@ 451* NPAR=0 ZR )@@G@@ PA104510 @K@[@@00762 452* 740 CALL COPY (1) ZS )@@G@@ PA104520 @K@[@@00763 453* ZT )@@G@@ IF (LCPY.EQ.KOPEN) NPAR=NPAR+1 PA1ZU )@@G@@04530 @K@[@@00765 454* IF (LCPY.EQ.KCLOSE) NPAR=NPAR-1 ZV )@@G@@ PA104540 @K@[@@00767 455* IF (LCPY.ZW )@@G@@EQ.KCOMMA.AND.NPAR.EQ.0) GO TO 750 PA104550 @K@[@@ZX )@@G@@00771 456* IF (MEOF) 740,420,420 ZY )@@G@@ PA104560 @K@[@@00774 457* 750 CALL RSTAT ZZ )@@G@@ PA104570 @K@[@@00775 458*AA )@@G@@ KLASS=3 AB )@@G@@ PA104580 @K@[@@00776 459* IF (L772.EQ.0) GO TO 760 AC )@@G@@ PA104590 @K@[@@01000 460* IOUAD )@@G@@T(ICOL+1)=KLR2 PA104600 AE )@@G@@@K@[@@01001 461* ICOL=ICOL+2 AF )@@G@@ PA104610 @K@[@@01002 462* IOUT(ICOL)=L772AG )@@G@@ PA104620 @K@[@@01003 AH )@@G@@ 463* CALL RLIST AI )@@G@@ PA104630 @K@[@@01004 464* KLASS=4 AJ )@@G@@ PA104640 @K@[@@01005 465* 760AK )@@G@@ CALL COPY (-1) PA1AL )@@G@@04650 @K@[@@01006 466* IF (MEOF) ,420,20 AM )@@G@@ PA104660 @K@[@@01011 467* IF (PNEXTAN )@@G@@.EQ.KAT.OR.PNEXT.EQ.KERM) GO TO 500 @ NO LIST PA104670 @K@[@@AO )@@G@@01013 468* GO TO 490 @ COPY LIST AP )@@G@@ PA104680 @K@[@@01013 469* C AQ )@@G@@ PA104690 @K@[@@01013 470*AR )@@G@@ C DEFINE. AS )@@G@@ PA104700 @K@[@@01013 471* C AT )@@G@@ PA104710 @K@[@@01014 472* 770 CALAU )@@G@@L COPY (NINS) PA104720 AV )@@G@@@K@[@@01015 473* DO 780 I=JCOL,JMAX AW )@@G@@ PA104730 @K@[@@01020 474* 780 IF (JINT(I).EQ.AX )@@G@@KEQ) GO TO 490 PA104740 @K@[@@01020 AY )@@G@@ 475* C AZ )@@G@@ PA104750 @K@[@@01020 476* C DEFINE FILE STATEMENT. BA )@@G@@ PA104760 @K@[@@01020 477* C BB )@@G@@ PA1BC )@@G@@04770 @K@[@@01023 478* ICOL=ICOL+1 BD )@@G@@ PA104780 @K@[@@01024 479* CALL COPYBE )@@G@@ (4) @ FILE PA104790 @K@[@@BF )@@G@@01025 480* 790 ICOL=ICOL+1 BG )@@G@@ PA104800 @K@[@@01026 481* CALL COPY (-1) BH )@@G@@ PA104810 @K@[@@01027 482*BI )@@G@@ IF (MEOF) ,420,20 BJ )@@G@@ PA104820 @K@[@@01032 483* IF (PNEXT.NE.KCOMMA) GO TO 500 BK )@@G@@ PA104830 @K@[@@01034 484* CALBL )@@G@@L COPY (1) PA104840 BM )@@G@@@K@[@@01035 485* GO TO 790 BN )@@G@@ PA104850 @K@[@@01035 486* C BO )@@G@@ PA104860 @K@[@@01035 BP )@@G@@ 487* C DELETE BQ )@@G@@ PA104870 @K@[@@01035 488* C BR )@@G@@ PA104880 @K@[@@01036 489* 800BS )@@G@@ CALL COPY (6) PA1BT )@@G@@04890 @K@[@@01037 490* CALL RSTAT BU )@@G@@ PA104900 @K@[@@01040 491* IF (L772.BV )@@G@@EQ.0) GO TO 420 PA104910 @K@[@@BW )@@G@@01042 492* IOUT(ICOL+2)=KLR2 BX )@@G@@ PA104920 @K@[@@01043 493* IOUT(ICOL+3)=L772 BY )@@G@@ PA104930 @K@[@@01044 494*BZ )@@G@@ ICOL=ICOL+3 CA )@@G@@ PA104940 @K@[@@01045 495* GO TO 500 CB )@@G@@ PA104950 @K@[@@01045 496* C CC )@@G@@ PA104960 CD )@@G@@@K@[@@01045 497* C DIMENSION CE )@@G@@ PA104970 @K@[@@01045 498* C CF )@@G@@ PA104980 @K@[@@01046 CG )@@G@@ 499* 810 CALL COPY (NINS) CH )@@G@@ PA104990 @K@[@@01047 500* 820 ICOL=ICOL+1 CI )@@G@@ PA105000 @K@[@@01050 501* CJ )@@G@@ CALL COPY (-1) PA1CK )@@G@@05010 @K@[@@01051 502* IF (MEOF.GT.0) GO TO 20 CL )@@G@@ PA105020 @K@[@@01053 503* IF (MEOF.CM )@@G@@EQ.0) GO TO 1920 PA105030 @K@[@@CN )@@G@@01055 504* LOOK=1 CO )@@G@@ PA105040 @K@[@@01056 505* 830 CALL COPY (1) CP )@@G@@ PA105050 @K@[@@01057 506*CQ )@@G@@ IF (LCPY.EQ.KERM) GO TO (520,860), LOOK CR )@@G@@ PA105060 @K@[@@01061 507* GO TO (840,850), LOOK CS )@@G@@ PA105070 @K@[@@01062 508* 840 IF CT )@@G@@(LCPY.EQ.KCOMMA) GO TO 820 PA105080 CU )@@G@@@K@[@@01064 509* IF (LCPY.EQ.KSLASH) LOOK=2 CV )@@G@@ PA105090 @K@[@@01066 510* GO TO 830 CW )@@G@@ PA105100 @K@[@@01067 CX )@@G@@ 511* 850 IF (LCPY.NE.KSLASH) GO TO 830 CY )@@G@@ PA105110 @K@[@@01071 512* IF (PNEXT.EQ.KERM.OR.PNEXT.CZ )@@G@@EQ.KAT) GO TO 500 PA105120 @K@[@@01073 513* DA )@@G@@ GO TO 820 PA1DB )@@G@@05130 @K@[@@01074 514* 860 ERR=13 @ INCODC )@@G@@MPLETE DIMENSION STATEMENT PA105140 @K@[@@01075 515* GO TO 75 DD )@@G@@ PA105150 @K@[@@DE )@@G@@01075 516* C DF )@@G@@ PA105160 @K@[@@01075 517* C DOUBLE PRECISION DG )@@G@@ PA105170 @K@[@@01075 518*DH )@@G@@ C DI )@@G@@ PA105180 @K@[@@01076 519* 870 CALL COPY (6) DJ )@@G@@ PA105190 @K@[@@01077 520* ICODK )@@G@@L=ICOL+1 PA105200 DL )@@G@@@K@[@@01100 521* CALL COPY (9) DM )@@G@@ PA105210 @K@[@@01101 522* 880 ICOL=ICOL+1 DN )@@G@@ PA105220 @K@[@@01101 DO )@@G@@ 523* C DP )@@G@@ PA105230 @K@[@@01101 524* C TYPE STATEMENT (INTEGER, REDQ )@@G@@AL, ETC.) CHECK TO SEE IF FUNCTION. PA105240 @K@[@@01101 525* C DR )@@G@@ PA1DS )@@G@@05250 @K@[@@01102 526* J=JCOL-1 DT )@@G@@ PA105260 @K@[@@01103 527* DO 900 I=DU )@@G@@1,8 PA105270 @K@[@@DV )@@G@@01106 528* 890 J=J+1 DW )@@G@@ PA105280 @K@[@@01107 529* IF (J.GT.JMAX) GO TO DX )@@G@@500 PA105290 @K@[@@01111 530*DY )@@G@@ IF (JINT(J).EQ.KBL) GO TO 890 DZ )@@G@@ PA105300 @K@[@@01113 531* IF (JINT(J).NE.KSTIJ(I,IDFUNC)) GEA )@@G@@O TO 500 PA105310 @K@[@@01115 532* 900 CONEB )@@G@@TINUE PA105320 EC )@@G@@@K@[@@01117 533* GO TO 1250 ED )@@G@@ PA105330 @K@[@@01117 534* C EE )@@G@@ PA105340 @K@[@@01117 EF )@@G@@ 535* C DO STATEMENT EG )@@G@@ PA105350 @K@[@@01117 536* C EH )@@G@@ PA105360 @K@[@@01120 537* 910EI )@@G@@ IF (IFIR.NE.1) GO TO 920 PA1EJ )@@G@@05370 @K@[@@01122 538* I=LFIR EK )@@G@@ PA105380 @K@[@@01123 539* GO TO 940EL )@@G@@ PA105390 @K@[@@EM )@@G@@01124 540* 920 JINT(LFIR)=KBL EN )@@G@@ PA105400 @K@[@@01125 541* CALL DIAGNO (18) EO )@@G@@ PA105410 @K@[@@01126 542*EP )@@G@@ DO 930 I=LFIR,JMAX EQ )@@G@@ PA105420 @K@[@@01131 543* IF (JINT(I).EQ.KEQ) GO TO 940 ER )@@G@@ PA105430 @K@[@@01133 544* 930 CONES )@@G@@TINUE PA105440 ET )@@G@@@K@[@@01135 545* ERR=14 @ MISSING = EU )@@G@@IN DO STATEMENT PA105450 @K@[@@01136 546* GO TO 75 EV )@@G@@ PA105460 @K@[@@01136 EW )@@G@@ 547* C EX )@@G@@ PA105470 @K@[@@01136 548* C HAVE =. LOOK FOR COMMA, CHEY )@@G@@ECK STATEMENT AND TERMINAL NUMBER. PA105480 @K@[@@01136 549* C EZ )@@G@@ PA1FA )@@G@@05490 @K@[@@01137 550* 940 LQUAL=I FB )@@G@@ PA105500 @K@[@@01140 551* DO 950 I=FC )@@G@@LQUAL,JMAX PA105510 @K@[@@FD )@@G@@01143 552* IF (JINT(I).EQ.KOPEN) GO TO 330 FE )@@G@@ PA105520 @K@[@@01145 553* IF (JINT(I).EQ.KCOMMAFF )@@G@@) GO TO 960 PA105530 @K@[@@01147 554*FG )@@G@@ 950 CONTINUE FH )@@G@@ PA105540 @K@[@@01151 555* GO TO 330 FI )@@G@@ PA105550 @K@[@@01152 556* 960 MILFJ )@@G@@DO=-1 PA105560 FK )@@G@@@K@[@@01153 557* CALL COPY (2) FL )@@G@@ PA105570 @K@[@@01154 558* CALL RSTAT FM )@@G@@ PA105580 @K@[@@01155 FN )@@G@@ 559* IF (L772.EQ.0) GO TO 330 FO )@@G@@ PA105590 @K@[@@01157 560* IF (NDEF.LE.0) GO TO 980 FP )@@G@@ PA105600 @K@[@@01161 561* FQ )@@G@@ DO 970 I=1,NDEF PA1FR )@@G@@05610 @K@[@@01164 562* IF (DSTMT(I).EQ.L772) GO TO 1070 FS )@@G@@ PA105620 @K@[@@01166 563* 970 CONTINUE FT )@@G@@ PA105630 @K@[@@FU )@@G@@01166 564* C FV )@@G@@ PA105640 @K@[@@01166 565* C ADD STATEMENT NUMBER FW )@@G@@TO DO-LIST. PA105650 @K@[@@01166 566*FX )@@G@@ C FY )@@G@@ PA105660 @K@[@@01170 567* 980 IF (NDOS) 1020,1040,990 FZ )@@G@@ PA105670 @K@[@@01173 568* 990 IF GA )@@G@@(LDOS(NDOS).EQ.L772) GO TO 1060 PA105680 GB )@@G@@@K@[@@01175 569* IF (NDOS-1) 980,1040,1000 GC )@@G@@ PA105690 @K@[@@01200 570* 1000 DO 1010 I=2,NDOGD )@@G@@S PA105700 @K@[@@01203 GE )@@G@@ 571* IF (LDOS(I-1).EQ.L772) GO TO 1070 GF )@@G@@ PA105710 @K@[@@01205 572* 1010 CONTINUE GG )@@G@@ PA105720 @K@[@@01207 573* 102GH )@@G@@0 IF (NDOS.LT.DOS) GO TO 1040 PA1GI )@@G@@05730 @K@[@@01211 574* CALL DIAGNO (24) GJ )@@G@@ PA105740 @K@[@@01212 575* MP2=0 GK )@@G@@ PA105750 @K@[@@GL )@@G@@01213 576* GO TO 20 GM )@@G@@ PA105760 @K@[@@01214 577* 1040 NDOS=NDOS+1 GN )@@G@@ PA105770 @K@[@@01215 578*GO )@@G@@ LDOS(NDOS)=L772 GP )@@G@@ PA105780 @K@[@@01216 579* LDOL(NDOS)=NDOL GQ )@@G@@ PA105790 @K@[@@01217 580* 1060 IOUGR )@@G@@T(ICOL+2)=KLR2 PA105800 GS )@@G@@@K@[@@01220 581* IOUT(ICOL+3)=L772 GT )@@G@@ PA105810 @K@[@@01221 582* ICOL=ICOL+3 GU )@@G@@ PA105820 @K@[@@01222 GV )@@G@@ 583* CALL RLIST GW )@@G@@ PA105830 @K@[@@01223 584* NDOL=NDOL+1 GX )@@G@@ PA105840 @K@[@@01224 585* GY )@@G@@ GO TO 490 PA1GZ )@@G@@05850 @K@[@@01224 586* C HA )@@G@@ PA105860 @K@[@@01225 587* 1070 ERR=15 HB )@@G@@ @ INVALID TERMINAL ON DO STATEMENT PA105870 @K@[@@HC )@@G@@01226 588* GO TO 75 HD )@@G@@ PA105880 @K@[@@01226 589* C HE )@@G@@ PA105890 @K@[@@01226 590*HF )@@G@@ C END DO-LOOP STATEMENT PROCESSING. HG )@@G@@ PA105900 @K@[@@01226 591* C HH )@@G@@ PA105910 @K@[@@01226 592* C HI )@@G@@ PA105920 HJ )@@G@@@K@[@@01226 593* C END FILE HK )@@G@@ PA105930 @K@[@@01226 594* C HL )@@G@@ PA105940 @K@[@@01227 HM )@@G@@ 595* 1080 CALL COPY (3) HN )@@G@@ PA105950 @K@[@@01230 596* ICOL=ICOL+1 HO )@@G@@ PA105960 @K@[@@01231 597* HP )@@G@@ CALL COPY (4) PA1HQ )@@G@@05970 @K@[@@01232 598* GO TO 490 HR )@@G@@ PA105980 @K@[@@01232 599* C HS )@@G@@ PA105990 @K@[@@HT )@@G@@01232 600* C END STATEMENT. HU )@@G@@ PA106000 @K@[@@01232 601* C HV )@@G@@ PA106010 @K@[@@01233 602*HW )@@G@@ 1090 MSTOP=-1 HX )@@G@@ PA106020 @K@[@@01234 603* IF (L15.EQ.0) GO TO 1120 HY )@@G@@ PA106030 @K@[@@01236 604* IF HZ )@@G@@(NREF.LE.0) GO TO 1120 PA106040 IA )@@G@@@K@[@@01240 605* DO 1100 I=1,NREF IB )@@G@@ PA106050 @K@[@@01243 606* 1100 IF (LREF(I).EQ.IC )@@G@@L15) GO TO 1110 PA106060 @K@[@@01246 ID )@@G@@ 607* GO TO 1130 IE )@@G@@ PA106070 @K@[@@01247 608* 1110 CALL DIAGNO (18) IF )@@G@@ PA106080 @K@[@@01247 609* C IG )@@G@@ PA1IH )@@G@@06090 @K@[@@01247 610* C GENERATE NEW STOP COMMAND. II )@@G@@ PA106100 @K@[@@01247 611* C IJ )@@G@@ PA106110 @K@[@@IK )@@G@@01250 612* IOUT(7)=KS IL )@@G@@ PA106120 @K@[@@01251 613* IOUT(8)=KT IM )@@G@@ PA106130 @K@[@@01252 614*IN )@@G@@ IOUT(9)=KO IO )@@G@@ PA106140 @K@[@@01253 615* IOUT(10)=KP IP )@@G@@ PA106150 @K@[@@01254 616* MILIQ )@@G@@DO=-1 PA106160 IR )@@G@@@K@[@@01255 617* CALL DLIST (MERR) IS )@@G@@ PA106170 @K@[@@01256 618* IF (MERR.NE.0) IT )@@G@@GO TO 1130 PA106180 @K@[@@01260 IU )@@G@@ 619* JINT(1)=3 IV )@@G@@ PA106190 @K@[@@01261 620* JINT(2)=IDSTOP IW )@@G@@ PA106200 @K@[@@01262 621* IX )@@G@@ JINT(3)=L15 PA1IY )@@G@@06210 @K@[@@01263 622* JINT(4)=10 IZ )@@G@@ PA106220 @K@[@@01264 623* CALL IOSYJA )@@G@@S1 (2,JINT,4) PA106230 @K@[@@JB )@@G@@01265 624* CALL IOSYS1 (2,IOUT,10) JC )@@G@@ PA106240 @K@[@@01266 625* NRT1=NRT1+1 JD )@@G@@ PA106250 @K@[@@01266 626*JE )@@G@@ C JF )@@G@@ PA106260 @K@[@@01267 627* 1120 IF (LDIAG.OR.LOPT.NE.0) WRITE (JOJG )@@G@@UT,2040) LINE,((INPUT(I,J),I=1,14PA106270 @K@[@@01267 628* 1),JJH )@@G@@=1,NCD) PA106280 JI )@@G@@@K@[@@01267 629* C JJ )@@G@@ PA106290 @K@[@@01267 630* C CHECK FOR UNRESJK )@@G@@OLVED DO LOOPS PA106300 @K@[@@01267 JL )@@G@@ 631* C JM )@@G@@ PA106310 @K@[@@01302 632* 1130 IF (NDOS.EQ.0) GO TO 1150 JN )@@G@@ PA106320 @K@[@@01304 633* JO )@@G@@ CALL DIAGNO (16) PA1JP )@@G@@06330 @K@[@@01305 634* IF (DIAG.EQ.0) GO TO 1150 JQ )@@G@@ PA106340 @K@[@@01307 635* DO 1140 IJR )@@G@@=1,NDOS PA106350 @K@[@@JS )@@G@@01312 636* NTEMP(1)=LDOS(I) JT )@@G@@ PA106360 @K@[@@01313 637* 1140 WRITE (JOUT,2050) NTEJU )@@G@@MP(1) PA106370 @K@[@@01313 638*JV )@@G@@ C JW )@@G@@ PA106380 @K@[@@01313 639* C LOOK FOR FORMATS ON TAPE 2 JX )@@G@@ PA106390 @K@[@@01313 640* C JY )@@G@@ PA106400 JZ )@@G@@@K@[@@01317 641* 1150 CALL FORMAT KA )@@G@@ PA106410 @K@[@@01317 642* C KB )@@G@@ PA106420 @K@[@@01317 KC )@@G@@ 643* C WRITE END STATEMENT KD )@@G@@ PA106430 @K@[@@01317 644* C KE )@@G@@ PA106440 @K@[@@01320 645* KF )@@G@@ IF (RSTART) GO TO 1170 PA1KG )@@G@@06450 @K@[@@01322 646* DO 1160 I=1,6 KH )@@G@@ PA106460 @K@[@@01325 647* 1160 IOUT(I)=KKI )@@G@@BL PA106470 @K@[@@KJ )@@G@@01327 648* IOUT(7)=KE KK )@@G@@ PA106480 @K@[@@01330 649* IOUT(8)=KN KL )@@G@@ PA106490 @K@[@@01331 650*KM )@@G@@ IOUT(9)=KD KN )@@G@@ PA106500 @K@[@@01332 651* KLASS=5 KO )@@G@@ PA106510 @K@[@@01333 652* ITYKP )@@G@@PE=IDEND PA106520 KQ )@@G@@@K@[@@01334 653* L15=0 KR )@@G@@ PA106530 @K@[@@01335 654* IMAX=9 KS )@@G@@ PA106540 @K@[@@01336 KT )@@G@@ 655* CALL IOSYS1 (2,KILI,4) KU )@@G@@ PA106550 @K@[@@01337 656* CALL IOSYS1 (2,IOUT,9) KV )@@G@@ PA106560 @K@[@@01340 657* KW )@@G@@ NRT1=NRT1+1 PA1KX )@@G@@06570 @K@[@@01341 658* 1170 CALL IOSYS1 (1,0,0) @ REWIKY )@@G@@ND IO1 PA106580 @K@[@@01342 659* RETURN KZ )@@G@@ PA106590 @K@[@@LA )@@G@@01342 660* C LB )@@G@@ PA106600 @K@[@@01342 661* C =========LC )@@G@@========================= PA106610 @K@[@@01342 662*LD )@@G@@ C * PASS1 NORMALLY EXITS HERE. * LE )@@G@@ PA106620 @K@[@@01342 663* C =====================LF )@@G@@============= PA106630 @K@[@@01342 664* C LG )@@G@@ PA106640 LH )@@G@@@K@[@@01342 665* C LI )@@G@@ PA106650 @K@[@@01342 666* C ENTRY LJ )@@G@@ PA106660 @K@[@@01342 LK )@@G@@ 667* C LL )@@G@@ PA106670 @K@[@@01343 668* 1180 IF (NBLC1.EQ.0) CALL BLANK LM )@@G@@ PA106680 @K@[@@01345 669* LN )@@G@@ CALL COPY (NINS) PA1LO )@@G@@06690 @K@[@@01346 670* 1190 MTRAN=0 @ THIS STATLP )@@G@@EMENT CAN ALWAYS BE REACHEDPA106700 @K@[@@01347 671* ICOL=ICOLLQ )@@G@@+1 PA106710 @K@[@@LR )@@G@@01350 672* IF (IFIR.NE.3) GO TO 500 @ NO ARGUMENTS LS )@@G@@ PA106720 @K@[@@01352 673* 1200 CALL COPY (1) LT )@@G@@ PA106730 @K@[@@01353 674*LU )@@G@@ IF (PNEXT.NE.KOPEN) GO TO 1200 LV )@@G@@ PA106740 @K@[@@01355 675* GO TO 490 LW )@@G@@ PA106750 @K@[@@01355 676* C LX )@@G@@ PA106760 LY )@@G@@@K@[@@01355 677* C EQUIVALENCE LZ )@@G@@ PA106770 @K@[@@01355 678* C MA )@@G@@ PA106780 @K@[@@01356 MB )@@G@@ 679* 1210 CALL COPY (11) MC )@@G@@ PA106790 @K@[@@01357 680* GO TO 650 MD )@@G@@ PA106800 @K@[@@01357 681* C ME )@@G@@ PA1MF )@@G@@06810 @K@[@@01357 682* C FIND MG )@@G@@ PA106820 @K@[@@01357 683* C MH )@@G@@ PA106830 @K@[@@MI )@@G@@01360 684* 1220 CALL COPY (NINS) MJ )@@G@@ PA106840 @K@[@@01361 685* ICOL=ICOL+1 MK )@@G@@ PA106850 @K@[@@01362 686*ML )@@G@@ CALL COPY (-1) MM )@@G@@ PA106860 @K@[@@01363 687* IF (MEOF) 500,420,20 MN )@@G@@ PA106870 @K@[@@01363 688* C MO )@@G@@ PA106880 MP )@@G@@@K@[@@01363 689* C FORMAT ( MQ )@@G@@ PA106890 @K@[@@01363 690* C MR )@@G@@ PA106900 @K@[@@01366 MS )@@G@@ 691* 1230 IF (L15.NE.0) GO TO 1240 MT )@@G@@ PA106910 @K@[@@01370 692* ERR=17 MU )@@G@@ @ INVALID OR UNNUMBERED FORMAT STATE. PA106920 @K@[@@01371 693* MV )@@G@@ GO TO 75 PA1MW )@@G@@06930 @K@[@@01372 694* 1240 CALL COPY (6) MX )@@G@@ PA106940 @K@[@@01373 695* ICOL=ICOLMY )@@G@@+1 PA106950 @K@[@@MZ )@@G@@01374 696* CALL COPY (-1) NA )@@G@@ PA106960 @K@[@@01375 697* IF (MEOF.GT.0) GO TO NB )@@G@@20 PA106970 @K@[@@01377 698*NC )@@G@@ IF (MEOF.EQ.0) GO TO 1920 ND )@@G@@ PA106980 @K@[@@01401 699* CALL COPY (0) NE )@@G@@@ COPY COMMENT PA106990 @K@[@@01402 700* IF NF )@@G@@(MEOF.GT.0) GO TO 20 PA107000 NG )@@G@@@K@[@@01404 701* IMAX=ICOL NH )@@G@@ PA107010 @K@[@@01405 702* IF (MCOL.EQ.0) NI )@@G@@GO TO 530 PA107020 @K@[@@01407 NJ )@@G@@ 703* ITYPE=LINE @ SAVE ORIGINAL LINE NUMBER OF FORMAT SNK )@@G@@TATEMENT PA107030 @K@[@@01410 704* CALL IOSYS2 (2,KILI,4) NL )@@G@@ PA107040 @K@[@@01411 705* NM )@@G@@ CALL IOSYS2 (2,IOUT,IMAX) PA1NN )@@G@@07050 @K@[@@01412 706* NRT2=NRT2+1 NO )@@G@@ PA107060 @K@[@@01413 707* NBLC=NBLCNP )@@G@@1 PA107070 @K@[@@NQ )@@G@@01414 708* GO TO 20 NR )@@G@@ PA107080 @K@[@@01414 709* C NS )@@G@@ PA107090 @K@[@@01414 710*NT )@@G@@ C FUNCTION NU )@@G@@ PA107100 @K@[@@01414 711* C NV )@@G@@ PA107110 @K@[@@01415 712* 1250 IF NW )@@G@@(.NOT.RSTART.AND.NXEQ.NE.0) GO TO 1260 PA107120 NX )@@G@@@K@[@@01417 713* RSTART=.FALSE. NY )@@G@@ PA107130 @K@[@@01420 714* CALL COPY (8) NZ )@@G@@ PA107140 @K@[@@01421 OA )@@G@@ 715* IF (IFIR.NE.3) GO TO 420 OB )@@G@@ PA107150 @K@[@@01423 716* GO TO 1190 OC )@@G@@ PA107160 @K@[@@01423 717* C OD )@@G@@ PA1OE )@@G@@07170 @K@[@@01424 718* 1260 RSTART=.TRUE. OF )@@G@@ PA107180 @K@[@@01425 719* GO TO 113OG )@@G@@0 PA107190 @K@[@@OH )@@G@@01425 720* C OI )@@G@@ PA107200 @K@[@@01425 721* C GO TO (***,***),N ANOJ )@@G@@D GO TO *** PA107210 @K@[@@01425 722*OK )@@G@@ C OL )@@G@@ PA107220 @K@[@@01426 723* 1270 IF (MLGC.EQ.0) MILDO=-1 OM )@@G@@ PA107230 @K@[@@01430 724* CALON )@@G@@L DLIST (MERR) PA107240 OO )@@G@@@K@[@@01431 725* IF (MERR.NE.0) GO TO 20 OP )@@G@@ PA107250 @K@[@@01433 726* CALL COPY (2) OQ )@@G@@ PA107260 @K@[@@01434 OR )@@G@@ 727* ICOL=ICOL+1 OS )@@G@@ PA107270 @K@[@@01435 728* CALL COPY (2) OT )@@G@@ PA107280 @K@[@@01436 729* OU )@@G@@ ICOL=ICOL+1 PA1OV )@@G@@07290 @K@[@@01437 730* IF (ITYPE.EQ.IGOTON) GO TO 1340 OW )@@G@@ PA107300 @K@[@@01441 731* CALL COPYOX )@@G@@ (1) PA107310 @K@[@@OY )@@G@@01441 732* C OZ )@@G@@ PA107320 @K@[@@01441 733* C PROCESS --GO TO LIST-PA )@@G@@-. PA107330 @K@[@@01441 734*PB )@@G@@ C PC )@@G@@ PA107340 @K@[@@01442 735* 1280 CALL RSTAT PD )@@G@@ PA107350 @K@[@@01443 736* ISWPE )@@G@@VAR=0 PA107360 PF )@@G@@@K@[@@01444 737* IF (L772.NE.0) GO TO 1300 PG )@@G@@ PA107370 @K@[@@01446 738* ISWVAR=1 PH )@@G@@ PA107380 @K@[@@01447 PI )@@G@@ 739* GO TO 1310 PJ )@@G@@ PA107390 @K@[@@01450 740* 1290 ERR=19 PK )@@G@@ @ ILLEGAL GO TO STATEMENT PA107400 @K@[@@01451 741* PL )@@G@@ GO TO 75 PA1PM )@@G@@07410 @K@[@@01452 742* 1300 ICOL=ICOL+1 PN )@@G@@ PA107420 @K@[@@01453 743* IOUT(ICOLPO )@@G@@)=KLR2 PA107430 @K@[@@PP )@@G@@01454 744* ICOL=ICOL+1 PQ )@@G@@ PA107440 @K@[@@01455 745* IOUT(ICOL)=L772 PR )@@G@@ PA107450 @K@[@@01456 746*PS )@@G@@ CALL RLIST PT )@@G@@ PA107460 @K@[@@01457 747* 1310 CALL COPY (1) PU )@@G@@ PA107470 @K@[@@01460 748* IF PV )@@G@@(MEOF) ,420,20 PA107480 PW )@@G@@@K@[@@01463 749* IF (LCPY.EQ.KCOMMA) GO TO 1280 PX )@@G@@ PA107490 @K@[@@01465 750* IF (LCPY.EQ.KCLPY )@@G@@OSE) GO TO 1320 PA107500 @K@[@@01467 PZ )@@G@@ 751* IF (ISWVAR.EQ.0) GO TO 1290 QA )@@G@@ PA107510 @K@[@@01471 752* GO TO 1310 QB )@@G@@ PA107520 @K@[@@01472 753* 132QC )@@G@@0 CALL COPY (1) PA1QD )@@G@@07530 @K@[@@01473 754* IF (MEOF) ,1290,20 QE )@@G@@ PA107540 @K@[@@01476 755* IF (LCPY.QF )@@G@@EQ.KCOMMA) GO TO 1330 PA107550 @K@[@@QG )@@G@@01500 756* IOUT(ICOL+2)=LCPY QH )@@G@@ PA107560 @K@[@@01501 757* IOUT(ICOL)=KCOMMA QI )@@G@@ PA107570 @K@[@@01502 758*QJ )@@G@@ ICOL=ICOL+2 QK )@@G@@ PA107580 @K@[@@01503 759* GO TO 1360 QL )@@G@@ PA107590 @K@[@@01504 760* 1330 ICOQM )@@G@@L=ICOL+1 PA107600 QN )@@G@@@K@[@@01505 761* GO TO 1360 QO )@@G@@ PA107610 @K@[@@01505 762* C QP )@@G@@ PA107620 @K@[@@01505 QQ )@@G@@ 763* C GO TO **** QR )@@G@@ PA107630 @K@[@@01505 764* C QS )@@G@@ PA107640 @K@[@@01506 765* 134QT )@@G@@0 CALL RSTAT PA1QU )@@G@@07650 @K@[@@01506 766* C QV )@@G@@ PA107660 @K@[@@01506 767* C TEST REF QW )@@G@@STATEMENT FOR GO TO N OR GO TO N, (LIST) PA107670 @K@[@@QX )@@G@@01506 768* C QY )@@G@@ PA107680 @K@[@@01507 769* IF (L772.EQ.0) GO TO QZ )@@G@@1370 PA107690 @K@[@@01507 770*RA )@@G@@ C RB )@@G@@ PA107700 @K@[@@01507 771* C STATEMENT IS --GO TO 12345--. RC )@@G@@ PA107710 @K@[@@01507 772* C RD )@@G@@ PA107720 RE )@@G@@@K@[@@01511 773* IF (L15.EQ.0) GO TO 1350 RF )@@G@@ PA107730 @K@[@@01513 774* IF (MLGC.NE.0) RG )@@G@@GO TO 1350 PA107740 @K@[@@01515 RH )@@G@@ 775* CALL DIAGNO (18) RI )@@G@@ PA107750 @K@[@@01516 776* 1350 IOUT(ICOL+1)=KLR2 RJ )@@G@@ PA107760 @K@[@@01517 777* RK )@@G@@ ICOL=ICOL+2 PA1RL )@@G@@07770 @K@[@@01520 778* IOUT(ICOL)=L772 RM )@@G@@ PA107780 @K@[@@01521 779* CALL RLISRN )@@G@@T PA107790 @K@[@@RO )@@G@@01522 780* 1360 CALL COPY (0) RP )@@G@@ PA107800 @K@[@@01523 781* IF (MEOF.GT.0) GO TO RQ )@@G@@20 PA107810 @K@[@@01525 782*RR )@@G@@ IMAX=ICOL RS )@@G@@ PA107820 @K@[@@01526 783* MTRAN=-1 RT )@@G@@ PA107830 @K@[@@01527 784* GO RU )@@G@@TO 540 PA107840 RV )@@G@@@K@[@@01527 785* C RW )@@G@@ PA107850 @K@[@@01527 786* C GO TO N OR GO TRX )@@G@@O N,LIST PA107860 @K@[@@01527 RY )@@G@@ 787* C RZ )@@G@@ PA107870 @K@[@@01530 788* 1370 IF (IFIR.EQ.2) GO TO 1380 SA )@@G@@ PA107880 @K@[@@01530 789* C SB )@@G@@ PA1SC )@@G@@07890 @K@[@@01530 790* C STATEMENT IS --GO TO N--. SD )@@G@@ PA107900 @K@[@@01530 791* C SE )@@G@@ PA107910 @K@[@@SF )@@G@@01532 792* GO TO 1360 SG )@@G@@ PA107920 @K@[@@01532 793* C SH )@@G@@ PA107930 @K@[@@01532 794*SI )@@G@@ C GO TO N,(LIST) SJ )@@G@@ PA107940 @K@[@@01532 795* C SK )@@G@@ PA107950 @K@[@@01533 796* 1380 CALSL )@@G@@L COPY (1) PA107960 SM )@@G@@@K@[@@01534 797* IF (LCPY.NE.KCOMMA) GO TO 1380 SN )@@G@@ PA107970 @K@[@@01536 798* ICOL=ICOL+1 SO )@@G@@ PA107980 @K@[@@01537 SP )@@G@@ 799* CALL COPY (1) SQ )@@G@@ PA107990 @K@[@@01540 800* IF (LCPY.NE.KOPEN) GO TO 12SR )@@G@@90 PA108000 @K@[@@01542 801* 140SS )@@G@@0 CALL RSTAT PA1ST )@@G@@08010 @K@[@@01543 802* IF (L772.EQ.0) GO TO 1290 SU )@@G@@ PA108020 @K@[@@01545 803* IOUT(ICOLSV )@@G@@+1)=KLR2 PA108030 @K@[@@SW )@@G@@01546 804* ICOL=ICOL+2 SX )@@G@@ PA108040 @K@[@@01547 805* IOUT(ICOL)=L772 SY )@@G@@ PA108050 @K@[@@01550 806*SZ )@@G@@ CALL RLIST TA )@@G@@ PA108060 @K@[@@01551 807* CALL COPY (1) TB )@@G@@ PA108070 @K@[@@01552 808* IF TC )@@G@@(LCPY.EQ.KCOMMA) GO TO 1400 PA108080 TD )@@G@@@K@[@@01554 809* IF (LCPY-KCLOSE) 1290,1360,1290 TE )@@G@@ PA108090 @K@[@@01554 810* C TF )@@G@@ PA108100 @K@[@@01554 TG )@@G@@ 811* C IF ACCUMULATOR OVERFLOW. TH )@@G@@ PA108110 @K@[@@01554 812* C TI )@@G@@ PA108120 @K@[@@01557 813* 141TJ )@@G@@0 CALL COPY (2) PA1TK )@@G@@08130 @K@[@@01560 814* ICOL=ICOL+1 TL )@@G@@ PA108140 @K@[@@01561 815* CALL COPYTM )@@G@@ (11) PA108150 @K@[@@TN )@@G@@01562 816* ICOL=ICOL+1 TO )@@G@@ PA108160 @K@[@@01563 817* CALL COPY (8) TP )@@G@@ PA108170 @K@[@@01564 818*TQ )@@G@@ IF (MEOF) ,420,20 TR )@@G@@ PA108180 @K@[@@01564 819* C TS )@@G@@ PA108190 @K@[@@01564 820* C PROTT )@@G@@CESS TWO-WAY TRANSFER. PA108200 TU )@@G@@@K@[@@01564 821* C TV )@@G@@ PA108210 @K@[@@01567 822* 1420 ICOL=ICOL+1 TW )@@G@@ PA108220 @K@[@@01570 TX )@@G@@ 823* MILDO=-1 TY )@@G@@ PA108230 @K@[@@01571 824* CALL DLIST (MERR) TZ )@@G@@ PA108240 @K@[@@01572 825* UA )@@G@@ IF (MERR.NE.0) GO TO 20 PA1UB )@@G@@08250 @K@[@@01574 826* CALL RSTAT UC )@@G@@ PA108260 @K@[@@01575 827* IF (L772.UD )@@G@@NE.0) GO TO 1440 PA108270 @K@[@@UE )@@G@@01577 828* 1430 ERR=20 @ ILLEGAL IF STATEUF )@@G@@MENT PA108280 @K@[@@01600 829* GO TO 75 UG )@@G@@ PA108290 @K@[@@01601 830*UH )@@G@@ 1440 ICOL=ICOL+1 UI )@@G@@ PA108300 @K@[@@01602 831* IOUT(ICOL)=KLR2 UJ )@@G@@ PA108310 @K@[@@01603 832* ICOUK )@@G@@L=ICOL+1 PA108320 UL )@@G@@@K@[@@01604 833* IOUT(ICOL)=L772 UM )@@G@@ PA108330 @K@[@@01605 834* CALL RLIST UN )@@G@@ PA108340 @K@[@@01606 UO )@@G@@ 835* CALL COPY (1) UP )@@G@@ PA108350 @K@[@@01607 836* IF (LCPY.NE.KCOMMA) GO TO 1UQ )@@G@@430 PA108360 @K@[@@01611 837* UR )@@G@@ CALL RSTAT PA1US )@@G@@08370 @K@[@@01612 838* IF (L772) 1350,1430,1350 UT )@@G@@ PA108380 @K@[@@01612 839* C UU )@@G@@ PA108390 @K@[@@UV )@@G@@01612 840* C IF DIVIDE CHECK. UW )@@G@@ PA108400 @K@[@@01612 841* C UX )@@G@@ PA108410 @K@[@@01615 842*UY )@@G@@ 1450 CALL COPY (2) UZ )@@G@@ PA108420 @K@[@@01616 843* ICOL=ICOL+1 VA )@@G@@ PA108430 @K@[@@01617 844* CALVB )@@G@@L COPY (6) PA108440 VC )@@G@@@K@[@@01620 845* ICOL=ICOL+1 VD )@@G@@ PA108450 @K@[@@01621 846* CALL COPY (5) VE )@@G@@ PA108460 @K@[@@01622 VF )@@G@@ 847* GO TO 1470 VG )@@G@@ PA108470 @K@[@@01622 848* C VH )@@G@@ PA108480 @K@[@@01622 849* C VI )@@G@@ IF QUOTIENT OVERFLOW PA1VJ )@@G@@08490 @K@[@@01622 850* C VK )@@G@@ PA108500 @K@[@@01623 851* 1460 CALL COPYVL )@@G@@ (2) PA108510 @K@[@@VM )@@G@@01624 852* ICOL=ICOL+1 VN )@@G@@ PA108520 @K@[@@01625 853* CALL COPY (8) VO )@@G@@ PA108530 @K@[@@01626 854*VP )@@G@@ ICOL=ICOL+1 VQ )@@G@@ PA108540 @K@[@@01627 855* CALL COPY (8) VR )@@G@@ PA108550 @K@[@@01630 856* 1470 IF VS )@@G@@(MEOF) 1420,420,20 PA108560 VT )@@G@@@K@[@@01630 857* C VU )@@G@@ PA108570 @K@[@@01630 858* C IF(SENSE LIGHT VV )@@G@@5) 1,2 PA108580 @K@[@@01630 VW )@@G@@ 859* C VX )@@G@@ PA108590 @K@[@@01633 860* 1480 CALL COPY (2) VY )@@G@@ PA108600 @K@[@@01634 861* VZ )@@G@@ ICOL=ICOL+1 PA1WA )@@G@@08610 @K@[@@01635 862* CALL COPY (6) WB )@@G@@ PA108620 @K@[@@01636 863* ICOL=ICOLWC )@@G@@+1 PA108630 @K@[@@WD )@@G@@01637 864* CALL COPY (5) WE )@@G@@ PA108640 @K@[@@01640 865* ICOL=ICOL+1 WF )@@G@@ PA108650 @K@[@@01641 866*WG )@@G@@ CALL COPY (2) WH )@@G@@ PA108660 @K@[@@01642 867* IF (LCPY-KCLOSE) 1430,1420,1430 WI )@@G@@ PA108670 @K@[@@01642 868* C WJ )@@G@@ PA108680 WK )@@G@@@K@[@@01642 869* C IF(SENSE SWITCH 5) 1,2 WL )@@G@@ PA108690 @K@[@@01642 870* C WM )@@G@@ PA108700 @K@[@@01645 WN )@@G@@ 871* 1490 CALL COPY (2) WO )@@G@@ PA108710 @K@[@@01646 872* ICOL=ICOL+1 WP )@@G@@ PA108720 @K@[@@01647 873* WQ )@@G@@ CALL COPY (6) PA1WR )@@G@@08730 @K@[@@01650 874* ICOL=ICOL+1 WS )@@G@@ PA108740 @K@[@@01651 875* CALL COPYWT )@@G@@ (6) PA108750 @K@[@@WU )@@G@@01652 876* ICOL=ICOL+1 WV )@@G@@ PA108760 @K@[@@01653 877* CALL COPY (2) WW )@@G@@ PA108770 @K@[@@01654 878*WX )@@G@@ IF (LCPY-KCLOSE) 1430,1420,1430 WY )@@G@@ PA108780 @K@[@@01654 879* C WZ )@@G@@ PA108790 @K@[@@01654 880* C IF XA )@@G@@(ARITHMETIC) 1,2,3 OR IF (LOGICAL) STATEMENT. PA108800 XB )@@G@@@K@[@@01654 881* C XC )@@G@@ PA108810 @K@[@@01657 882* 1500 CALL COPY (2) XD )@@G@@ PA108820 @K@[@@01660 XE )@@G@@ 883* ICOL=ICOL+1 XF )@@G@@ PA108830 @K@[@@01661 884* CALL COPY (-1) XG )@@G@@ PA108840 @K@[@@01662 885* XH )@@G@@ IF (MEOF.GE.0) GO TO 1430 PA1XI )@@G@@08850 @K@[@@01664 886* 1520 ICOL=ICOL+1 XJ )@@G@@ PA108860 @K@[@@01665 887* CALL RSTAXK )@@G@@T PA108870 @K@[@@XL )@@G@@01666 888* NCOM=0 XM )@@G@@ PA108880 @K@[@@01667 889* IF (L772.EQ.0) GO TO XN )@@G@@1570 PA108890 @K@[@@01667 890*XO )@@G@@ C XP )@@G@@ PA108900 @K@[@@01667 891* C STATEMENT IS IF (ARITHMETIC) 1XQ )@@G@@,2,3 PA108910 @K@[@@01667 892* C XR )@@G@@ PA108920 XS )@@G@@@K@[@@01671 893* 1530 IOUT(ICOL+1)=KLR2 XT )@@G@@ PA108930 @K@[@@01672 894* ICOL=ICOL+2 XU )@@G@@ PA108940 @K@[@@01673 XV )@@G@@ 895* IOUT(ICOL)=L772 XW )@@G@@ PA108950 @K@[@@01674 896* CALL RLIST XX )@@G@@ PA108960 @K@[@@01675 897* XY )@@G@@ CALL COPY (1) PA1XZ )@@G@@08970 @K@[@@01676 898* IF (LCPY.EQ.KCOMMA) GO TO 1550 YA )@@G@@ PA108980 @K@[@@01700 899* IF (LCPY.YB )@@G@@NE.KERM) GO TO 1430 PA108990 @K@[@@YC )@@G@@01702 900* 1540 MILDO=-1 YD )@@G@@ PA109000 @K@[@@01703 901* GO TO 520 YE )@@G@@ PA109010 @K@[@@01704 902*YF )@@G@@ 1550 NCOM=NCOM+1 YG )@@G@@ PA109020 @K@[@@01705 903* IF (NCOM.GT.2) GO TO 1430 YH )@@G@@ PA109030 @K@[@@01707 904* CALYI )@@G@@L RSTAT PA109040 YJ )@@G@@@K@[@@01707 905* C YK )@@G@@ PA109050 @K@[@@01707 906* C TEST FOR SWITCHYL )@@G@@ VARIABLE AND COPY IT. PA109060 @K@[@@01707 YM )@@G@@ 907* C YN )@@G@@ PA109070 @K@[@@01710 908* IF (L772.NE.0) GO TO 1530 YO )@@G@@ PA109080 @K@[@@01712 909* 156YP )@@G@@0 CALL COPY (1) PA1YQ )@@G@@09090 @K@[@@01713 910* IF (LCPY.EQ.KCOMMA) GO TO 1550 YR )@@G@@ PA109100 @K@[@@01715 911* IF (LCPY.YS )@@G@@EQ.KERM) GO TO 1540 PA109110 @K@[@@YT )@@G@@01717 912* GO TO 1560 YU )@@G@@ PA109120 @K@[@@01717 913* C YV )@@G@@ PA109130 @K@[@@01717 914*YW )@@G@@ C STATEMENT MAY BE IF (LOGICAL) STATEMENT, YX )@@G@@ PA109140 @K@[@@01717 915* C IF CHARACTER AFTER ) IS , THEN STYY )@@G@@ATEMENT IS IF (ARITH) ,N2,N3 PA109150 @K@[@@01717 916* C YZ )@@G@@ PA109160 ZA )@@G@@@K@[@@01720 917* 1570 IF (JINT(JCOL).EQ.KCOMMA) GO TO 1560 ZB )@@G@@ PA109170 @K@[@@01720 918* C ZC )@@G@@ PA109180 @K@[@@01720 ZD )@@G@@ 919* C IF A SPECIAL CHARACTER IS NOT A COMMA, THEN STATEMENT IS ZE )@@G@@LOGICAL. PA109190 @K@[@@01720 920* C IF THERE ARE MORE THAN 2 COZF )@@G@@MMAS, THE STATEMENT IS LOGICAL. PA109200 @K@[@@01720 921* C ZG )@@G@@ IF THERE ARE MORE THAN 6 NON-BLANKS TO THE LEFT OF A COMMA OR PA1ZH )@@G@@09210 @K@[@@01720 922* C ERM, THE STATEMENT IS LOGICAL. ZI )@@G@@ PA109220 @K@[@@01720 923* C IF A STATZJ )@@G@@EMENT NUMBER FOLLOWS A COMMA, THEN STATEMENT IS PA109230 @K@[@@ZK )@@G@@01720 924* C ARITHMETIC. ZL )@@G@@ PA109240 @K@[@@01720 925* C ZM )@@G@@ PA109250 @K@[@@01720 926*ZN )@@G@@ C ZO )@@G@@ PA109260 @K@[@@01722 927* NTEMP(1)=JCOL ZP )@@G@@@ SAVE LOCATION FOLLOWING ) PA109270 @K@[@@01723 928* ASSZQ )@@G@@IGN 1670 TO WHERE @ ASSUME LOGICAL IF PA109280 ZR )@@G@@@K@[@@01724 929* 1580 IS=JCOL ZS )@@G@@ PA109290 @K@[@@01725 930* LFIR=IS ZT )@@G@@ PA109300 @K@[@@01726 ZU )@@G@@ 931* NSPACE=0 ZV )@@G@@ PA109310 @K@[@@01727 932* 1590 IF (JINT(IS).EQ.KBL) GO TO ZW )@@G@@1630 PA109320 @K@[@@01731 933* ZX )@@G@@ IF (JINT(IS).EQ.KERM) GO TO 1650 PA1ZY )@@G@@09330 @K@[@@01733 934* DO 1600 I=1,14 ZZ )@@G@@ PA109340 @K@[@@01736 935* 1600 IF (JINT(AA )@@G@@IS).EQ.KSPK(I)) GO TO 1610 PA109350 @K@[@@AB )@@G@@01741 936* GO TO 1640 @ NOT A SPECIAL CHAC )@@G@@ARACTER PA109360 @K@[@@01742 937* 1610 IF (I.EQ.14) GO TO 16AD )@@G@@50 PA109370 @K@[@@01744 938*AE )@@G@@ IF (I.NE.2) GO TO 1660 @ SPECIAL CHARACTER, NOT COMMA. LOGICAL AF )@@G@@IF.PA109380 @K@[@@01746 939* IF (IS-(LFIR+NSPACE).GT.6) GO TO AG )@@G@@1660 @ TOO LONG FOR SWITCH VAR. PA109390 @K@[@@01750 940* NCOAH )@@G@@M=NCOM+1 PA109400 AI )@@G@@@K@[@@01751 941* IF (NCOM.GT.2) GO TO 1660 @ TOO MANY COMMASAJ )@@G@@ FOR ARITHMETIC IF PA109410 @K@[@@01753 942* JCOL=IS+1 AK )@@G@@ PA109420 @K@[@@01754 AL )@@G@@ 943* CALL RSTAT AM )@@G@@ PA109430 @K@[@@01755 944* IF (L772.NE.0) GO TO 1620 AN )@@G@@ @ STATEMENT NUMBER FOLLOWS COMMA PA109440 @K@[@@01757 945* AO )@@G@@ IF (MEOF.LT.0) GO TO 1580 PA1AP )@@G@@09450 @K@[@@01761 946* 1620 ASSIGN 1560 TO WHERE @ ARITAQ )@@G@@HMETIC IF PA109460 @K@[@@01762 947* GO TO 166AR )@@G@@0 PA109470 @K@[@@AS )@@G@@01762 948* C AT )@@G@@ PA109480 @K@[@@01763 949* 1630 NSPACE=NSPACE+1 AU )@@G@@ PA109490 @K@[@@01764 950*AV )@@G@@ 1640 IS=IS+1 AW )@@G@@ PA109500 @K@[@@01765 951* GO TO 1590 AX )@@G@@ PA109510 @K@[@@01765 952* C AY )@@G@@ PA109520 AZ )@@G@@@K@[@@01766 953* 1650 IF (IS-(LFIR+NSPACE).GT.6) GO TO 1660 @ TOO LBA )@@G@@ONG FOR SWITCH VAR. PA109530 @K@[@@01766 954* C BB )@@G@@ PA109540 @K@[@@01766 BC )@@G@@ 955* C BD )@@G@@ PA109550 @K@[@@01766 956* C AMBIGUOUS STATEMENT. IF NAMBE )@@G@@E FOLLOWING ) IS IN DIRECTIVE LIST, PA109560 @K@[@@01766 957* C BF )@@G@@ TREAT STATEMENT AS LOGICAL IF. OTHERWISE, TREAT AS ARITHMETIC IF. PA1BG )@@G@@09570 @K@[@@01766 958* C BH )@@G@@ PA109580 @K@[@@01770 959* AMBIG=1 BI )@@G@@ PA109590 @K@[@@BJ )@@G@@01770 960* C BK )@@G@@ PA109600 @K@[@@01770 961* C RESTORE POINTERS AND BL )@@G@@EXIT PA109610 @K@[@@01771 962*BM )@@G@@ 1660 NCOM=0 BN )@@G@@ PA109620 @K@[@@01772 963* JCOL=NTEMP(1) BO )@@G@@ PA109630 @K@[@@01773 964* MEOBP )@@G@@F=-1 PA109640 BQ )@@G@@@K@[@@01774 965* GO TO WHERE BR )@@G@@ PA109650 @K@[@@01774 966* C BS )@@G@@ PA109660 @K@[@@01774 BT )@@G@@ 967* C IF (LOGICAL) STATEMENT. BU )@@G@@ PA109670 @K@[@@01774 968* C BV )@@G@@ PA109680 @K@[@@01775 969* 167BW )@@G@@0 MLGC=-1 PA1BX )@@G@@09690 @K@[@@01776 970* GO TO 170 BY )@@G@@ PA109700 @K@[@@01776 971* C BZ )@@G@@ PA109710 @K@[@@CA )@@G@@01776 972* C IMPLICIT CB )@@G@@ PA109720 @K@[@@01776 973* C CC )@@G@@ PA109730 @K@[@@01777 974*CD )@@G@@ 1680 CALL COPY (8) CE )@@G@@ PA109740 @K@[@@02000 975* 1690 ICOL=ICOL+1 CF )@@G@@ PA109750 @K@[@@02001 976* IF CG )@@G@@(JINT(JCOL).NE.KC) GO TO 1700 PA109760 CH )@@G@@@K@[@@02003 977* CALL COPY (7) CI )@@G@@ PA109770 @K@[@@02004 978* GO TO 1740 CJ )@@G@@ PA109780 @K@[@@02005 CK )@@G@@ 979* 1700 IF (JINT(JCOL).NE.KD) GO TO 1710 CL )@@G@@ PA109790 @K@[@@02007 980* CALL COPY (6) CM )@@G@@ PA109800 @K@[@@02010 981* CN )@@G@@ ICOL=ICOL+1 PA1CO )@@G@@09810 @K@[@@02011 982* CALL COPY (9) CP )@@G@@ PA109820 @K@[@@02012 983* GO TO 174CQ )@@G@@0 PA109830 @K@[@@CR )@@G@@02013 984* 1710 IF (JINT(JCOL).NE.KI) GO TO 1720 CS )@@G@@ PA109840 @K@[@@02015 985* CALL COPY (7) CT )@@G@@ PA109850 @K@[@@02016 986*CU )@@G@@ GO TO 1740 CV )@@G@@ PA109860 @K@[@@02017 987* 1720 IF (JINT(JCOL).NE.KL) GO TO 1730 CW )@@G@@ PA109870 @K@[@@02021 988* CALCX )@@G@@L COPY (7) PA109880 CY )@@G@@@K@[@@02022 989* GO TO 1740 CZ )@@G@@ PA109890 @K@[@@02023 990* 1730 CALL COPY (4) DA )@@G@@ PA109900 @K@[@@02024 DB )@@G@@ 991* 1740 ICOL=ICOL+1 DC )@@G@@ PA109910 @K@[@@02025 992* CALL COPY (-1) DD )@@G@@ PA109920 @K@[@@02026 993* DE )@@G@@ IF (MEOF) ,1920,20 PA1DF )@@G@@09930 @K@[@@02031 994* CALL COPY (1) DG )@@G@@ PA109940 @K@[@@02032 995* IF (MEOF)DH )@@G@@ 1690,520,20 PA109950 @K@[@@DI )@@G@@02032 996* C DJ )@@G@@ PA109960 @K@[@@02032 997* C INCLUDE DK )@@G@@ PA109970 @K@[@@02032 998*DL )@@G@@ C DM )@@G@@ PA109980 @K@[@@02035 999* 1750 CALL COPY (NINS) DN )@@G@@ PA109990 @K@[@@02036 1000* ICODO )@@G@@L=ICOL+1 PA110000 DP )@@G@@@K@[@@02037 1001* 1760 CALL COPY (1) DQ )@@G@@ PA110010 @K@[@@02040 1002* IF (LCPY.EQ.KCODR )@@G@@MMA) GO TO 490 PA110020 @K@[@@02042 DS )@@G@@ 1003* IF (MEOF) 1760,520,20 DT )@@G@@ PA110030 @K@[@@02042 1004* C DU )@@G@@ PA110040 @K@[@@02042 1005* C DV )@@G@@ NAMELIST PA1DW )@@G@@10050 @K@[@@02042 1006* C DX )@@G@@ PA110060 @K@[@@02045 1007* 1770 IF (IFIR.DY )@@G@@EQ.4) GO TO 590 PA110070 @K@[@@DZ )@@G@@02047 1008* GO TO 635 EA )@@G@@ PA110080 @K@[@@02047 1009* C EB )@@G@@ PA110090 @K@[@@02047 1010*EC )@@G@@ C PARAMETER. ED )@@G@@ PA110100 @K@[@@02047 1011* C EE )@@G@@ PA110110 @K@[@@02050 1012* 1780 CALEF )@@G@@L COPY (NINS) PA110120 EG )@@G@@@K@[@@02051 1013* 1790 ICOL=ICOL+1 EH )@@G@@ PA110130 @K@[@@02052 1014* 1800 CALL COPY (1) EI )@@G@@ PA110140 @K@[@@02053 EJ )@@G@@ 1015* IF (MEOF) ,520,20 EK )@@G@@ PA110150 @K@[@@02056 1016* IF (LCPY.EQ.KCOMMA) GO TO 1EL )@@G@@790 PA110160 @K@[@@02060 1017* EM )@@G@@ GO TO 1800 PA1EN )@@G@@10170 @K@[@@02060 1018* C EO )@@G@@ PA110180 @K@[@@02060 1019* C PRINT, PUEP )@@G@@NCH, READ. PA110190 @K@[@@EQ )@@G@@02060 1020* C ER )@@G@@ PA110200 @K@[@@02061 1021* 1810 CALL COPY (NINS) ES )@@G@@ PA110210 @K@[@@02062 1022*ET )@@G@@ 1820 ICOL=ICOL+1 EU )@@G@@ PA110220 @K@[@@02063 *[@@@@*SDFF*@I@@@@. UNIVAC 1108 TAPE DUMP PACKAGEV )@@G@@E. 00000100 @I@@@@. WRITTEN BYEW )@@G@@ ROBERT A. WILLIAMS XEROX CORP. 00000200 EX )@@G@@@I@@@@$(1),RWDUMP* . EY )@@G@@ 00000300 @I@@@@ AXR$. EZ )@@G@@ 00000400 @I@@@@DMP* PROC FA )@@G@@ 00000500 @ @@@@ L,U FB )@@G@@ A0,DMPKT .@ @@@@ ER SNAP$ .@]@@@@ END FC )@@G@@@ @@@@ LMJ X11,NWDU$ .@I@@@@ + 01,(6) .FD )@@G@@ 00001000 @ @@@@ + FE )@@G@@ FMT7 .@C@@@@ + $,TD . WALKBACK WORD FF )@@G@@@ @@@@ SLJ NI02$ .@A@@@@ L A0,(ERROR,FILBUFG )@@G@@F) . @E@@@@ ER READ$ . GET THE CONTROL CARD IMAGE FH )@@G@@@ @@@@ L A0,FILBUF .@ @@@@ AND A0,ALPBIT .FI )@@G@@@ @@@@ S A1,OPTION .@ @@@@ L,U A0,1 .FJ )@@G@@@ @@@@ L,U X11,25 .@ @@@@ JNB A1,$+2 .FK )@@G@@@ @@@@ S A0,OPTNS,X11 .@C@@@@ SSL A1,1 .FL )@@G@@ SHIFT IN NEXT BIT@ @@@@ JGD X11,$-3 .@F@@@@ L FM )@@G@@ A0,ATEST . CHECK FOR EITHER A OR O OPTION @ @@@@ A FN )@@G@@ A0,OTEST .@ @@@@ TZ A0 .@ @@@@ J FO )@@G@@ $+4 .@ @@@@ L,U A0,1 .@ @@@@ S FP )@@G@@ A0,ATEST .@ @@@@ S A0,OTEST .@D@@@@ L FQ )@@G@@ X8,(1,3) . POINTER IN IMAGE TABLE @C@@@@ SLJ SPEC FR )@@G@@ . GET REEL NUMBER @ @@@@ TNZ A7 .@ @@@@ FS )@@G@@ J BORF .@ @@@@ S A7,REELNO .@ @@@@ FT )@@G@@ TZ A8 .@ @@@@ S A8,REELNO+1 .@E@@@@BORF FU )@@G@@ SLJ SPEC . GET B OR F (BLOCK OR FILE). @ @@@@ TNZ FV )@@G@@ A7 .@E@@@@ J CHECKF-2 . NEITHER INPUT. ASFW )@@G@@SUME BLOCKS @ @@@@ L,U A6,0 .@ @@@@ LDSL A6,FX )@@G@@6 .@ @@@@ TE A6,B .@ @@@@ J CHEFY )@@G@@CKF .@ @@@@ L,U X10,BLKMAX .@ @@@@ J DMPFZ )@@G@@VAL .@ @@@@CHECKF TE A6,F .@ @@@@ J CHEGA )@@G@@CKF-2 .@ @@@@ L,U X10,FILMAX .@C@@@@DMPVAL SLJ SPEGB )@@G@@C . GET DUMP VALUE @ @@@@ SLJ CONVT .@C@@@@GC )@@G@@SKPVAL SLJ SPEC . GET SKIP VALUE @ @@@@ L,U X10GD )@@G@@,SKIP .@ @@@@ SLJ CONVT .@I@@@@ADDSKP L A0,GE )@@G@@BLKMAX . 00007300 @I@@@@GF )@@G@@ A A0,SKIP . GG )@@G@@00007400 @I@@@@ S A0,BLKMAX . GH )@@G@@ 00007500 @I@@@@ L A0,SKIP . GI )@@G@@ 00007600 @I@@@@ A,U A0,GJ )@@G@@1 . 00007700 @I@@@@GK )@@G@@ S A0,SKIP . GL )@@G@@00007800 @E@@@@ DL A0,FILTBL . SET UP A DUMMY FILE TABGM )@@G@@LE @ @@@@ DS A0,FILBUF .@ @@@@ L,U A0,FILBUFGN )@@G@@ .@ @@@@ ER FACIL$ .@E@@@@ TZ FILBUF+2 GO )@@G@@ . HAS THE FILE BEEN ASSIGNED @E@@@@ J CHECKI .GP )@@G@@ YES. SKIP DYNAMIC ASSIGNMENT @I@@@@ L A0,ASGPKT . ASSIGGQ )@@G@@N CARD PACKET 00001800 @I@@@@ ER CSFGR )@@G@@$ . ASSIGN THE FILE 00001900 @D@@@@GS )@@G@@CHECKI TNZ ITEST . CHECK FOR I OPTION @B@@@@ J GT )@@G@@ CHECKH . NO I OPTION@I@@@@ L,U A0,TRANS . GU )@@G@@ 00002300 @ @@@@ SLJ SETGV )@@G@@MOD .@ @@@@ J CHECKH .@ @@@@CHECKE TNZ ETEGW )@@G@@ST .@ @@@@ J CHECKH .@ @@@@ L,U A0,GX )@@G@@EVNPAR .@ @@@@ SLJ SETMOD .@ @@@@CHECKH TNZ HTEGY )@@G@@ST .@ @@@@ J OPNFIL .@ @@@@ L,U A0,GZ )@@G@@HIDEN .@ @@@@ SLJ SETMOD .@I@@@@OPNFIL L,U A0,HA )@@G@@OPNPKT . 00007900 @I@@@@HB )@@G@@ ER BOPEN$ . OPEN THE FILE HC )@@G@@00008000 @I@@@@RDBLK L A0,BLKCNT . HD )@@G@@ 00008100 @I@@@@ TG A0,BLKMAX . CHECKHE )@@G@@ IF ENOUGH BLOCKS HAVE BEEN DUMPED 00008200 @I@@@@ J ALLHF )@@G@@DUN . 00008300 @I@@@@HG )@@G@@ A,U A0,1 HH )@@G@@00008400 @I@@@@ S A0,BLKCNT HI )@@G@@ 00008500 @I@@@@ L,U A0,RDPKT HJ )@@G@@ 00008600 @I@@@@ ER BREHK )@@G@@AD$ . READ A BLOCK 00008700 @I@@@@HL )@@G@@ JK 15,RDBLK . JUMP IF SELECT JUMP SWITCH 15 IS SET HM )@@G@@00008800 @I@@@@ L,H2 A1,FILTBL+3 . NUMBER OF WORDS READ HN )@@G@@ 00008900 @I@@@@ S A1,NUMWDS . HO )@@G@@ 00009000 @I@@@@ MSI,U A1,HP )@@G@@6 . NUMBER OF CHARACTERS 00009100 @I@@@@HQ )@@G@@ S A1,NUMCHR . HR )@@G@@00009200 @I@@@@ L,S1 A2,FILTBL+3 . CHECK THE STATUS WORD HS )@@G@@ 00009300 @I@@@@ TNE A2,(00) . NORMAHT )@@G@@L STATUS 00009400 @I@@@@ J NORHU )@@G@@MAL . 00009500 @I@@@@HV )@@G@@ TNE A2,(04) . NONINTEGRAL BLOCK READ HW )@@G@@00009600 @I@@@@ J ODDSIZ . HX )@@G@@ 00009700 @I@@@@ J ERROR . OTHERHY )@@G@@WISE ERROR OUT 00009800 @I@@@@ODDSIZ L,S3 A2,HZ )@@G@@FILBUF . NUMBER OF CHARACTERS IN LAST WORD OF BLK 00009900 @I@@@@IA )@@G@@ A A2,NUMCHR . IB )@@G@@00010000 @I@@@@ AN,U A2,6 . ACTUAL NUMBER OF CHARACIC )@@G@@TERS IN STRING 00010100 @I@@@@ S A2,NUMCHR . ID )@@G@@ 00010200 @I@@@@NORMAL IE )@@G@@ . 00010300 @I@@@@IF )@@G@@ LMJ X11,NWDU$ . IG )@@G@@00010400 @I@@@@ + 01,(6) . IH )@@G@@ 00010500 @I@@@@ + FMT1 . II )@@G@@ 00010600 @I@@@@ + $,TIJ )@@G@@D . WALKBACK WORD 00010700 @I@@@@IK )@@G@@ L,U A0,BLKCNT . IL )@@G@@00010800 @I@@@@ SLJ NI01$ . OUTPUT THE BLOCK NUMBERIM )@@G@@ 00010900 @I@@@@ L,U A0,NUMWDS . IN )@@G@@ 00011000 @I@@@@ SLJ NI0IO )@@G@@1$ . OUTPUT THE NUMBER OF WORDS 00011100 @H@@@@IP )@@G@@ TNZ GTEST . CHECK FOR GARBAGE (EBCDIC) TAPE IQ )@@G@@000 @ @@@@ J NORM1 .@I@@@@ L A6,NUMCHRIR )@@G@@ . 00011500 @I@@@@ IS )@@G@@ MSI,U A6,6 . 000116IT )@@G@@00 @I@@@@ SZ A5 . IU )@@G@@ 00011700 @I@@@@ DI,U A5,8 . NUMBER OF EIV )@@G@@BCDIC CHARACTERS 00011800 @I@@@@ S A5,NUMCHRIW )@@G@@ . 00011900 @I@@@@ IX )@@G@@ SZ A4 . 000120IY )@@G@@00 @I@@@@ DI,U A4,6 . IZ )@@G@@ 00012100 @I@@@@ TZ A5 . JA )@@G@@ 00012200 @I@@@@ A,U A4,1 JB )@@G@@ . 00012300 @I@@@@ JC )@@G@@ S A4,NUMWDS . 000124JD )@@G@@00 @I@@@@NORM1 L,U A0,NUMCHR . JE )@@G@@ 00012500 @I@@@@ SLJ NI01$ . OUTPUT THE JF )@@G@@NUMBER OF CHARACTERS 00012600 @I@@@@ SLJ NI02$ JG )@@G@@ . 00012700 @I@@@@ JH )@@G@@ L A6,BLKCNT . 000128JI )@@G@@00 @ @@@@ TG A6,SKIP .@I@@@@ J $+2 JJ )@@G@@ . 00013000 @I@@@@ JK )@@G@@ J RDBLK . 000131JL )@@G@@00 @D@@@@ TNZ OTEST . TEST FOR OCTAL DUMP @D@@@@JM )@@G@@ J OCTDUN . NO OCTAL DUMP REQUESTED@I@@@@. OUTPUT THEJN )@@G@@ BLOCK WITH AN OCTAL FORMAT 00013800 JO )@@G@@@ @@@@ L,U A0,1 .@D@@@@ S A0,COUNTR .JP )@@G@@ INITIALIZE COUNTER @I@@@@ LMJ X11,NWDU$ . JQ )@@G@@ 00013900 @I@@@@ + 01,(6) JR )@@G@@ . 00014000 @I@@@@ JS )@@G@@ + FMT5 . 000141JT )@@G@@00 @I@@@@ + $,TD . WALKBACK WORD JU )@@G@@ 00014200 @I@@@@ SLJ NI02$ . JV )@@G@@ 00014300 @I@@@@ LMJ X11,NWDU$JW )@@G@@ . 00014400 @I@@@@ JX )@@G@@ + 01,(6) 000145JY )@@G@@00 @I@@@@ + FMT2 . JZ )@@G@@ 00014600 @I@@@@ + $,TD . WALKBACK WOKA )@@G@@RD 00014700 @I@@@@ L X10,(1,0)KB )@@G@@ 00014800 @I@@@@ KC )@@G@@ L X9,NUMWDS . 000149KD )@@G@@00 @I@@@@ AN,U X9,1 . KE )@@G@@ 00015000 @ @@@@ J $+2 .@ @@@@OCT1 KF )@@G@@ JGD X8,OCT2 .@ @@@@ L,U X8,7 .@F@@@@ KG )@@G@@ L,U A0,COUNTR . PRINT THE NUMBER OF THE FIRST ITEM @ @@@@ KH )@@G@@ SLJ NI01$ .@ @@@@ L A0,COUNTR .@C@@@@ KI )@@G@@ A,U A0,8 . INCREMENT COUNTER@ @@@@ S A0,COUNTRKJ )@@G@@ .@I@@@@OCT2 L,U A0,FILBUF+2,*X10 . KK )@@G@@ 00015100 @I@@@@ SLJ NI01$ . KL )@@G@@ 00015200 @ @@@@ JGD X9,OCT1 KM )@@G@@ .@I@@@@ SLJ NI02$ . KN )@@G@@ 00015400 @F@@@@OCTDUN TNZ ATEST . CHECK FOR 'KO )@@G@@A' FOR ALPHAMERIC DUMP @E@@@@ J ALPDUN . NO ALPHAMERKP )@@G@@IC DUMP REQUESTED @I@@@@. OUTPUT THE BLOCK WITH A ALPHAMERIC FORMAT KQ )@@G@@ 00015800 @ @@@@ L,U A0,1 .KR )@@G@@@D@@@@ S A0,COUNTR . INITIALIZE COUNTER @I@@@@ KS )@@G@@ LMJ X11,NWDU$ . 000159KT )@@G@@00 @I@@@@ + 01,(6) . KU )@@G@@ 00016000 @I@@@@ + FMT6 . KV )@@G@@ 00016100 @I@@@@ + $,TD KW )@@G@@ . WALKBACK WORD 00016200 @I@@@@ KX )@@G@@ SLJ NI02$ . 000163KY )@@G@@00 @I@@@@ LMJ X11,NWDU$ . KZ )@@G@@ 00016400 @I@@@@ + 01,(6) LA )@@G@@ 00016500 @I@@@@ + FMT4 LB )@@G@@ . 00016600 @I@@@@ LC )@@G@@ + $,TD . WALKBACK WORD 000167LD )@@G@@00 @F@@@@ TNZ GTEST . CHECK FOR GARBAGE (EBCDIC) TALE )@@G@@PE @ @@@@ J NOGARB .@I@@@@ L R4,NUMCHRLF )@@G@@ . 00017100 @I@@@@ LG )@@G@@ JGD R4,$+1 . 000172LH )@@G@@00 @I@@@@ L,U X10,0 . CHARACTER POINTER LI )@@G@@ 00017300 @I@@@@NXTEBC L,H2 A2,X10 . LJ )@@G@@ 00017400 @I@@@@ MSI,U A2,8 LK )@@G@@ . 00017500 @I@@@@ LL )@@G@@ SZ A1 . 000176LM )@@G@@00 @I@@@@ DI,U A1,36 . WORD LOC OF CURR CHAR - A2 ISLN )@@G@@ BIT LOC OF 00017700 @I@@@@ . LO )@@G@@ END OF LAST CHAR 00017800 @I@@@@ DL A3,FILBUFLP )@@G@@+2,13 . GET 2 WORDS WHICH MUST CONTAIN THE 8 00017900 @I@@@@ LQ )@@G@@ A,U A2,2 . BIT BYTE 000180LR )@@G@@00 @I@@@@ S,H2 A2,$+1 . LS )@@G@@ 00018100 @I@@@@ LDSL A3,$-$ . SHIFT OFF 2LT )@@G@@ HIGH BITS 00018200 @I@@@@ SSL A3,30 LU )@@G@@ . UNIQUE ADDRESS FOR CHARACTER 00018300 @I@@@@ LV )@@G@@ SZ A2 . 000184LW )@@G@@00 @I@@@@ DI,U A2,6 . THIS IS WORD LOC OF CHAR LX )@@G@@ 00018500 @E@@@@ L A1,CHRSET,14 . PICK UP THELY )@@G@@ CORRECT WORD @ @@@@ S A1,TEMP .@F@@@@ EX LZ )@@G@@ ONECHR,15 . PICK OUT THE CORRECT CHARACTER @I@@@@ L,H2 MA )@@G@@ A3,X10 . COMPUTE CHAR LOC IN STRING TO REPLACE 00019100 MB )@@G@@@I@@@@ SZ A2 . MC )@@G@@ 00019200 @I@@@@ DI,U A2,6 . WORD AND CHAR LOCMD )@@G@@ TO REPLACE 00019300 @G@@@@ EX STRCHR,15 .ME )@@G@@ STORE THE CHARACTER IN THE PROPER POS. @I@@@@ A,U X10,1 MF )@@G@@ . 00019900 @I@@@@ MG )@@G@@ JGD R4,NXTEBC . 000200MH )@@G@@00 @A@@@@ L A4,FILBUF+2,14 . @ @@@@ L A3,MI )@@G@@NUMWDS .@ @@@@ MSI,U A3,6 .@E@@@@ AN A3,MJ )@@G@@NUMCHR . NO. OF CHARS. NOT SIGNIFICANT@E@@@@ MSI,U A3,6 MK )@@G@@ . NO. OF BITS NOT SIGNIFICANT @A@@@@ L A5,(05050505050ML )@@G@@5) . @ @@@@ S,H2 A3,$+2 .@ @@@@ S,H2 A3,$+2 MM )@@G@@ .@F@@@@ SSL A4,$-$ . SHIFT OFF THE NON-SIGNIFICANTMN )@@G@@ BITS @ @@@@ LDSL A4,$-$ .@A@@@@ S A4,FILBUFMO )@@G@@+2,14 . @I@@@@NOGARB . MP )@@G@@ 00020100 @I@@@@ L X10,(1,0) MQ )@@G@@ 00020200 @I@@@@ L X9,MR )@@G@@NUMWDS . 00020300 @I@@@@MS )@@G@@ AN,U X9,1 . MT )@@G@@00020400 @ @@@@ J $+2 .@ @@@@ALP1 JGD X8,MU )@@G@@ALP1A .@ @@@@ L,U X8,19 .@ @@@@ L,U A0,MV )@@G@@COUNTR .@ @@@@ SLJ NI01$ .@ @@@@ L A0,MW )@@G@@COUNTR .@ @@@@ A,U A0,20 .@ @@@@ S A0,MX )@@G@@COUNTR .@ @@@@ALP1A L,U X11,5 .@I@@@@ L,U A4,MY )@@G@@076 . 00020600 @I@@@@MZ )@@G@@ L,U A1,0 . NA )@@G@@00020700 @I@@@@ L A3,FILBUF+2,X10 . CHECK EACH CHARACTER NB )@@G@@POSITION FOR 77 00020800 @I@@@@ALP2 L,U A2,0 . NC )@@G@@ 00020900 @I@@@@ LDSL A2,ND )@@G@@6 . 00021000 @I@@@@NE )@@G@@ TLE A4,A2 . CHECK FOR OCTAL 77 NF )@@G@@00021100 @I@@@@ L A2,A4 . REPLACE WITH OCTAL 76 NG )@@G@@ 00021200 @I@@@@ LSSL A2,30 . NH )@@G@@ 00021300 @I@@@@ LDSL A1,NI )@@G@@6 . ADD THIS CHARACTER TO THE WORD 00021400 @I@@@@NJ )@@G@@ JGD X11,ALP2 . FINISH REST OF WORD NK )@@G@@00021500 @I@@@@ S A1,FILBUF+2,X10 . STORE MODIFIED WORD NL )@@G@@ 00021600 @I@@@@ L,U A0,FILBUF+2,*X10 . NM )@@G@@ 00021700 @I@@@@ SLJ NI0NN )@@G@@1$ . 00021800 @I@@@@NO )@@G@@ JGD X9,ALP1 . NP )@@G@@00021900 @I@@@@ SLJ NI02$ . NQ )@@G@@ 00022000 @I@@@@ALPDUN LMJ X11,NWDU$ . NR )@@G@@ 00022100 @I@@@@ + 01,NS )@@G@@(6) . 00022200 @I@@@@NT )@@G@@ + FMT8 . NU )@@G@@00022300 @I@@@@ + $,TD . WALKBACK WORD NV )@@G@@ 00022400 @I@@@@ SLJ NI02$ . NW )@@G@@ 00022500 @I@@@@ J RDBNX )@@G@@LK . 00022600 @I@@@@NY )@@G@@ALLDUN L,U A0,CLSPKT . NZ )@@G@@00022700 @I@@@@ ER BCLOF$ . CLOSE THE FILE OA )@@G@@ 00022800 @I@@@@ ER EXIT$ . STOP OB )@@G@@THE RUN 00022900 @I@@@@ J NSTOC )@@G@@OP$ . 00023000 @I@@@@OD )@@G@@ABNERR L,S1 A2,FILTBL+3 . CHECK THE STATUS EORD OE )@@G@@00023100 @I@@@@ TNE A2,(01) . END OF FILE OF )@@G@@ 00023200 @I@@@@ J EOF . OG )@@G@@ 00023300 @I@@@@ TNE A2,OH )@@G@@(02) . END OF TAPE 00023400 @I@@@@OI )@@G@@ J EOT . OJ )@@G@@00023500 @I@@@@ L,U A2,FMT11 . OK )@@G@@ 00023600 @I@@@@ S A2,ERRMSG . OL )@@G@@ 00023700 @I@@@@ J ERROM )@@G@@OR . 00023800 @I@@@@ON )@@G@@FILERR L,U A2,FMT12 . OO )@@G@@00023900 @I@@@@ S A2,ERRMSG . OP )@@G@@ 00024000 @I@@@@ J ERROR . OQ )@@G@@ 00024100 @I@@@@EOF LMJ X11OR )@@G@@,NWDU$ . 00024200 @I@@@@OS )@@G@@ + 01,(6) . OT )@@G@@00024300 @I@@@@ + FMT3 . OU )@@G@@ 00024400 @I@@@@ + $,TD . WALKBOV )@@G@@ACK WORD 00024500 @I@@@@ L,U A0,OW )@@G@@FILCNT . 00024600 @I@@@@OX )@@G@@ SLJ NI01$ . OUTPUT THE NUMBER OF FILES DUMPED OY )@@G@@00024700 @I@@@@ SLJ NI02$ . OZ )@@G@@ 00024800 @I@@@@ L A0,FILCNT . PA )@@G@@ 00024900 @I@@@@ TG A0,PB )@@G@@FILMAX . 00025100 @I@@@@PC )@@G@@ J ALLDUN . PD )@@G@@00025200 @I@@@@ A,U A0,1 . PE )@@G@@ 00025000 @I@@@@ S A0,FILCNT . PF )@@G@@ 00025300 @I@@@@ J RDBPG )@@G@@LK . 00025400 @I@@@@PH )@@G@@EOT LMJ X11,NWDU$ . PI )@@G@@00025500 @I@@@@ + 01,(6) . PJ )@@G@@ 00025600 @I@@@@ + FMT9 . PK )@@G@@ 00025700 @I@@@@ + $,TPL )@@G@@D . WALKBACK WORD 00025800 @I@@@@PM )@@G@@ SLJ NI02$ . PN )@@G@@00025900 @I@@@@ J ALLDUN . PO )@@G@@ 00026000 @ @@@@SETMOD J $-$ .@I@@@@PP )@@G@@ S A0,FILTBL+4 . STORE IN THE I/O ACCESS WORD PQ )@@G@@00002400 @E@@@@ L,U A0,1 . NO. OF WORDS TO TRANSFEPR )@@G@@R @ @@@@ S,H1 A0,FILTBL+4 .@D@@@@ L,U A0,042 PS )@@G@@ . SET MODE FUNCTION CODE @ @@@@ S,S2 A0,FILTBL+3 .@I@@@@PT )@@G@@ L,U A0,FILTBL . PACKET ADDRESS PU )@@G@@00002500 @D@@@@ ER IOW$ . SET MODE TO TRANSLATE PV )@@G@@@ @@@@ J *SETMOD .@I@@@@B2O$* . DUMMY E.P. REFERENCEPW )@@G@@D IN NFCHK$ 00026100 @I@@@@B2L$* . DUPX )@@G@@MMY E.P. REFERENCED IN NFCHK$ 00026200 PY )@@G@@@I@@@@ERROR S A0,ERRSAV . SAVE THE ERROR REGISTERS PZ )@@G@@ 00026300 @I@@@@ S A1,ERRSAV+1 . QA )@@G@@ 00026400 @I@@@@ LMJ X11,NWDU$ .QB )@@G@@ 00026500 @I@@@@ + QC )@@G@@ 01,(6) . 00026600 QD )@@G@@@I@@@@ERRMSG + FMT13 . THIS ADDRESS MAY BE STUFFED QE )@@G@@ 00026700 @I@@@@ + $,TD . WALKBACK WORD QF )@@G@@ 00026800 @I@@@@ SLJ NI02$ .QG )@@G@@ 00026900 @I@@@@ LMJ QH )@@G@@ X11,NWDU$ . WRITE ERROR MESSAGE 00027000 QI )@@G@@@I@@@@ + 01,(6) . QJ )@@G@@ 00027100 @I@@@@ + FMT10 . QK )@@G@@ 00027200 @I@@@@ + $,TD .QL )@@G@@ WALKBACK WORD 00027300 @I@@@@ L,U QM )@@G@@ A0,FILTBL+3 . ADDRESS OF STATUS WORD 00027400 QN )@@G@@@I@@@@ SLJ NI01$ . PRINT IT OUT QO )@@G@@ 00027500 @I@@@@ SLJ NI02$ . QP )@@G@@ 00027600 @I@@@@ ER EXIT$ .QQ )@@G@@ 00027700 @I@@@@. *** J QR )@@G@@ NERR$ . 00027800 QS )@@G@@@I@@@@CONVT NOP . CONVERT THE FIELD DATA TO BINARY QT )@@G@@ 00005600 @I@@@@ L,U A3,057 . QU )@@G@@ 00005700 @I@@@@ L,U A4,071 .QV )@@G@@ 00005800 @I@@@@ L,U QW )@@G@@ A5,0 . CONVERTED VALUE 00005900 QX )@@G@@@I@@@@CONVT1 L,U A6,0 . QY )@@G@@ 00006000 @I@@@@ LDSL A6,6 . MOVE IN A CHARACTQZ )@@G@@ER 00006100 @I@@@@ TNE A6,BLANK .RA )@@G@@ 00006200 @I@@@@ J RB )@@G@@ CONVT1 . 00006300 RC )@@G@@@I@@@@ TW A3,A6 . CHECK FOR NUMERIC RD )@@G@@ 00006400 @I@@@@ J CONDUN . END OF NUMERIC RE )@@G@@ 00006500 @I@@@@ AN,U A6,060 .RF )@@G@@ 00006600 @I@@@@ MSI,URG )@@G@@ A5,10 . SHIFT THE CONVERTED VALUE 00006700 RH )@@G@@@I@@@@ A A5,A6 . ADD IN THE NEW VALUE RI )@@G@@ 00006800 @I@@@@ J CONVT1 . RJ )@@G@@ 00006900 @I@@@@CONDUN TZ A5 .RK )@@G@@ DO NOT USE VALUE IF ZERO 00007000 @I@@@@ S RL )@@G@@ A5,0,X10 . 00007100 RM )@@G@@@I@@@@ J *CONVT . RETURN RN )@@G@@ 00007200 @F@@@@SPEC NOP . RETREIVE THE SPECRO )@@G@@IFICATION FIELDS @ @@@@ L A1,X8 .@D@@@@ SSL RP )@@G@@ A1,18 . FIELD BEING REQUESTED @E@@@@SPEC1 L,S2 A2,FILBUFRQ )@@G@@,X8 . GET CURRENT FIELD NUMBER @D@@@@ TNZ A2 .RR )@@G@@ IF ZERO, FIELD OMITTED @ @@@@ J OMITED .@E@@@@ RS )@@G@@ TLE A1,A2 . ARE WE TO CORRECT FIELD YET? @E@@@@ J RT )@@G@@ OMITED . NO. NOT INPUT. TREAT AS ZERO @F@@@@ TG A2,RU )@@G@@A1 . POSITIONED AT REQUESTED FIELD? @C@@@@ J SPERV )@@G@@C2 . YES. PROCESS @G@@@@ L,S6 A2,FILBUF,X8 . NO. NRW )@@G@@UMBER OF WORDS IN CURRENT FIELD @C@@@@ A X8,A2 .RX )@@G@@ SKIP THIS FIELD @G@@@@ A,U X8,1 . MOVE POINTER TO CRY )@@G@@ONTROL WORD OF NEXT FLD @B@@@@ J SPEC1 . CHECK AGAINRZ )@@G@@@F@@@@SPEC2 L,S6 A2,FILBUF,X8 . NUMBER OF WORDS IN CURRENT FIELD SA )@@G@@@E@@@@ L A7,FILBUF+1,X8 . FIRST WORD OF CURRENT FIELD @ @@@@SB )@@G@@ L,U A8,0 .@G@@@@ TG,U A2,2 . IS THSC )@@G@@ERE AT LEAST TWO WORDS IN THE FIELD?@D@@@@ L A8,FILBUF+2,X8 SD )@@G@@.YES. LOAD SECOND WORD @G@@@@ A,S6 X8,FILBUF,X8 . INCREMENT PSE )@@G@@OINTER TO POINT TO NEXT FIELD @ @@@@ A X8,(1,1) .@ @@@@SF )@@G@@ J *SPEC .@ @@@@OMITED L,U A7,0 .@ @@@@SG )@@G@@ A X8,(1,0) .@ @@@@ J *SPEC .@E@@@@SH )@@G@@ONECHR L,S1 A1,TEMP . PICK UP THE FIRST CHARACTER @E@@@@ SI )@@G@@ L,S2 A1,TEMP . PICK UP THE SECOND CHARACTER @E@@@@ L,S3 SJ )@@G@@ A1,TEMP . PICK UP THE THIRD CHARACTER @E@@@@ L,S4 A1,SK )@@G@@TEMP . PICK UP THE FOURTH CHARACTER @E@@@@ L,S5 A1,TEMP SL )@@G@@ . PICK UP THE FIFTH CHARACTER @E@@@@ L,S6 A1,TEMP .SM )@@G@@ PICK UP THE SIXTH CHARACTER @A@@@@STRCHR S,S1 A1,FILBUF+2,14 . SN )@@G@@@A@@@@ S,S2 A1,FILBUF+2,14 . @A@@@@ S,S3 A1,FILBUFSO )@@G@@+2,14 . @A@@@@ S,S4 A1,FILBUF+2,14 . @A@@@@ S,S5 SP )@@G@@ A1,FILBUF+2,14 . @A@@@@ S,S6 A1,FILBUF+2,14 . @I@@@@SQ )@@G@@$(2). SR )@@G@@00027900 @C@@@@TEMP + 0 . TEMPORY LOCATION @C@@@@SS )@@G@@ALPBIT + 0377777777 . ALPHABIT MASK @I@@@@DMPKT + 'DUST )@@G@@MP ' 00028000 @I@@@@SU )@@G@@ + 0700012,FILBUF+2 SV )@@G@@00028100 @I@@@@BLKCNT + 0 . SW )@@G@@ 00028200 @ @@@@FILCNT + 1 .@I@@@@SX )@@G@@NUMWDS + 0 . SY )@@G@@00028400 @I@@@@NUMCHR + 0 . SZ )@@G@@ 00028500 @I@@@@OPTION + 0 . TA )@@G@@ 00028600 @I@@@@SKIP + 0 TB )@@G@@ . 00028700 @F@@@@TC )@@G@@COUNTR + 0 . ITEM COUNTER USED DURING PRINTING @I@@@@TD )@@G@@TD + 'RWDUMP' . TE )@@G@@00028800 @I@@@@MASK + 0000200004000 . MASK FOR 'A' AND 'O' ONTF )@@G@@ XQT CARD 00028900 @I@@@@B + '@@@@@B' . TG )@@G@@ 00029000 @I@@@@F + '@@@@@FTH )@@G@@' . 00029100 @I@@@@TI )@@G@@BLANK + '@@@@@ ' TJ )@@G@@00029200 @F@@@@BLKMAX + 10000 . MAXIMUM NUMBER OF BLOCKTK )@@G@@S TO DUMP @F@@@@FILMAX + 100 . MAXIMUM NUMBER OF FILESTL )@@G@@ TO DUMP @I@@@@ASGPKT + 5,ASGCRD . NUMBER OF WORDS AND ADDTM )@@G@@R. OF ASSIGN CARD 00029500 @]@@@@OPTNS . @B@@@@ATEST + 0 TN )@@G@@ . ALPHA DUMP @B@@@@BTEST + 0 . NOT USED TO )@@G@@@B@@@@CTEST + 0 . NOT USED @D@@@@DTEST + 0 TP )@@G@@ . SKIP DYNAMIC ASSIGN @B@@@@ETEST + 0 .TQ )@@G@@ EVEN PARITY@B@@@@FTEST + 0 . NOT USED @D@@@@GTEST TR )@@G@@ + 0 . GARBAGE (EBCDIC) TAPE @C@@@@HTEST + 0 TS )@@G@@ . HIGH DENSITY @E@@@@ITEST + 0 . TRANSTT )@@G@@LATE AND EVEN PARITY @B@@@@JTEST + 0 . NOT USED TU )@@G@@@B@@@@KTEST + 0 . NOT USED @B@@@@LTEST + 0 TV )@@G@@ . NOT USED @B@@@@MTEST + 0 . NOT USED TW )@@G@@@B@@@@NTEST + 0 . NOT USED @B@@@@OTEST + 0 TX )@@G@@ . OCTAL DUMP @B@@@@PTEST + 0 . NOT USED TY )@@G@@@B@@@@QTEST + 0 . NOT USED @B@@@@RTEST + 0 TZ )@@G@@ . NOT USED @C@@@@STEST + 0 . SKIP BLOCK UA )@@G@@FACTOR@B@@@@TTEST + 0 . NOT USED @B@@@@UTEST + UB )@@G@@ 0 . NOT USED @B@@@@VTEST + 0 . NOT UUC )@@G@@SED @B@@@@WTEST + 0 . NOT USED @B@@@@XTEST + UD )@@G@@ 0 . NOT USED @B@@@@YTEST + 0 . NOT UUE )@@G@@SED @B@@@@ZTEST + 0 . NOT USED @I@@@@ERRSAV RES UF )@@G@@ 2 . STORAGE AREA FOR A0 AND A1 ON ERROR 00029600 UG )@@G@@@I@@@@CHRSET + 0050607101112 . ' ABCDE' UH )@@G@@ 00030000 @I@@@@ + 0131415160075 . 'FGHI@.' UI )@@G@@ 00030100 @I@@@@ + 0430142000017 .UJ )@@G@@ '#(+@@J' 00030200 @I@@@@ + UK )@@G@@ 0202122232425 . 'KLMNOP' 00030300 UL )@@G@@@I@@@@ + 0262700475002 . 'QR@$*)' UM )@@G@@ 00030400 @I@@@@ + 0730041743031 . ';@-/ST' UN )@@G@@ 00030500 @I@@@@ + 0323334353637 .UO )@@G@@ 'UVWXYZ' 00030600 @I@@@@ + UP )@@G@@ 0005600004500 . '@,@@>@' 00030700 UQ )@@G@@@I@@@@ + 0606162636465 . '012345' UR )@@G@@ 00030800 @I@@@@ + 0666770710000 . '6789@@' US )@@G@@ 00030900 @I@@@@ + 0007244000000 .UT )@@G@@ '@'=@@@' 00031000 @I@@@@FMT1 'UU )@@G@@(1H ,12HBLOCK NUMBER,I4,16H. BLOCK CONTAINS,' 00031100 UV )@@G@@@I@@@@ 'I5,10H WORDS (,I6,13H CHARACTERS).)' UW )@@G@@ 00031200 @A@@@@FMT2 '(1H0,I9,2H. ,8O14)' @I@@@@FMT3 UX )@@G@@ '(1H0,3H***,5X,11HEND OF FILE,I4,1H.,5X,3H***,///)' 000315UY )@@G@@00 @G@@@@FMT4 '(1H ,11X,1H1,5X,1H2,5X,1H3,5X,1H4,5X,1H5,5X,1H6,UZ )@@G@@5X,1H7,5X,' @I@@@@ '1H8,5X,1H9,5X,1H0,5X,1H1,5X,1H2,5X,1H3,5X,VA )@@G@@1H4,5X,1H5,5X,' 00031700 @F@@@@ '1H6,5X,1H7,5X,1H8,5X,1H9VB )@@G@@,5X,1H0,/,1H ,I9,2H. ,20A6)' @I@@@@FMT5 '(1H0,5X,17HOCTAL FORMAT.VC )@@G@@....,)' 00031900 @I@@@@FMT6 '(1H0,5VD )@@G@@X,22HALPHAMERIC FORMAT.....,/)' 00032000 @I@@@@VE )@@G@@FMT7 '(1H1,30X,44HU N I V A C 1 1 0 8 T A P E D U M P ,' VF )@@G@@00032100 @I@@@@ '15HP A C K A G E .,//)' VG )@@G@@ 00032200 @I@@@@FMT8 '(///)' VH )@@G@@ 00032300 @I@@@@FMT9 '(1H0,1VI )@@G@@2HEND OF TAPE. )' 00032400 @I@@@@VJ )@@G@@FMT10 '(1H0,10HERROR NO. ,O2)' VK )@@G@@00032500 @I@@@@FMT11 '(1H0,15HABNORMAL ERROR.,///)' VL )@@G@@ 00032600 @I@@@@FMT12 '(1H0,11HFILE ERROR.,///)VM )@@G@@' 00032700 @I@@@@FMT13 '(1H0,1VN )@@G@@9HUNRESOLVABLE ERROR.,///)' 00032800 @I@@@@VO )@@G@@FILTBL FILE 'DUMP','BBP' ; VP )@@G@@00032900 @I@@@@ 'POOL',USERIN,0 ; . VQ )@@G@@ 00033000 @I@@@@ 'ERROR',FILERR,ERROR,VR )@@G@@ABNERR . 00033100 @I@@@@ASGCRD '@ASG,TVS )@@G@@' . ASSIGN CARD IMAGE 00033200 @I@@@@VT )@@G@@ ' DUMP,T,' . VU )@@G@@00033300 @ @@@@REELNO ' ' .@I@@@@USERIN + 500VV )@@G@@3,FILBUF . 00033600 @I@@@@VW )@@G@@ + 0,5003 . VX )@@G@@00033700 @I@@@@FILBUF RES 5003 . INPUT BUFFER AREA VY )@@G@@ 00033800 @I@@@@RDFRM FORM 18,18,18,18 . VZ )@@G@@ 00033900 @I@@@@RDPKT RDFRM 0,FWA )@@G@@ILTBL,0,0 . 00034000 @I@@@@WB )@@G@@OCFRM FORM 6,6,6,18 . OPEN-CLOSE FORM WC )@@G@@00034100 @I@@@@OPNPKT OCFRM 0,2,023,FILTBL . OPEN WITH NO REWIND WD )@@G@@ 00034200 @I@@@@CLSPKT OCFRM 0,0,023,FILTBL . CLOSWE )@@G@@E PACKET WITH NO REWIND 00034300 @I@@@@ OCFRM 0,0WF )@@G@@,021,FILTBL . CLOSE PACKET WITH LOCK 00034400 @I@@@@WG )@@G@@ OCFRM 0,0,000,FILTBL . CLOSE PACKET WITH REWIND WH )@@G@@00034500 @I@@@@SETMOD FORM 2,2,2,2,2,8,18 . WI )@@G@@ 00034600 @I@@@@LODEN SETMOD 1,0,0,0,0,0,0 . WJ )@@G@@ 00034700 @I@@@@MEDDEN SETMOD 2,0WK )@@G@@,0,0,0,0,0 . 00034800 @I@@@@WL )@@G@@HIDEN SETMOD 3,0,0,0,0,0,0 . WM )@@G@@00034900 @I@@@@ODDPAR SETMOD 0,1,0,0,0,0,0 . WN )@@G@@ 00035000 @I@@@@EVNPAR SETMOD 0,2,0,0,0,0,0 . WO )@@G@@ 00035100 @I@@@@TRANS SETMOD 0,2WP )@@G@@,1,0,0,0,0 . 00035200 @I@@@@WQ )@@G@@NOTRNS SETMOD 0,0,2,0,0,0,0 . WR )@@G@@00035300 @I@@@@ END RWDUMP . WS )@@G@@ 00035400 ___ 1 @I@@@@WT )@@G@@)@@[#]@@()@YG@&]OOC@OG@^C@=^@@R#@@]%'=@@@@R#@@@['^@@@@@@#@@F@@@@[.@@[@@@WU )@@G@@/,0@@@AA@@@@)@C[N[KKK^^K^ [@@@O#@@@-R#@@@N8]0@@G;CK@@[A#F@@N/)K@@IR'0@@TWV )@@G@@R;@@@[A#K@@C+@@@@[AB@@@@)@M[MK[[KOG@^@K^^@[[0@]&/K@@@Y(@@@@N'^@@^6R]@@@]WW )@@G@@A#@@@-A#@@@NR;@@@[/K@@@R*@@@@GAC@@@@)@W[MKO@K@KO@*)@@@R')@@K/K@@@$%[)@@HWX )@@G@@;!)@@AC9)@@@/K@@@>(@@@@N'^@@^6[]@@]$*@@@@OAD@@@@)@&[F@KO@**]@) @@@@@@@@WY )@@G@@'^@@^>R')@@D'^@@^6'^@@^>'^@@^6R')@@L/K@@@>%[)@@I/K@@@%AE@@@@)@\[F[KO [^ WZ )@@G@@#[9[EC@@@@@@R;@@]%9*@@]%9?@@@@A#@@@DO;@@@[R#@@@DA#@@@KO#@@@DR#@@@KAF@@@@XA )@@G@@)@8[F]@H[K^ ]@L[K]+)@@@@'^@@^HR;@[L@/K@@[A(@@@@V'=@@@@R#@@@M/K@@@.*@@@]?XB )@@G@@'=@@@@AG@@@@)[[[F@KO@**]]) @@@@@@@@'^@@^HR;@[K./K@@[E(@@@@U'^@@^HR;@[K_XC )@@G@@/K@@[A(@@@@R/K@@[AAH@@@@)[E[E**K]*E])]]OOC[)@@@@'=@@@@R;@[K5A#@@@^O;@@@[XD )@@G@@/K@@#:!@@@@KR#@@@^'=@@@@R;@[K7AI@@@@)[N[F@K0YKL[K0YK0@K^G@@@:@)@@^/K@@[+XE )@@G@@:@)@@#R7)@@#A#K@@BT8K@@AA#K@@ARBK@@#/N0@[GAJ@@@@)[W[F@K^ [^ ]@@()@YG@)@@XF )@@G@@@@@@@'@@[@@@/,0@@@A#)@@BP;)@@AO#)@@BR\)@]%/K@@^Q/K@@[YAK@@@@)[>[E0M+OOC[XG )@@G@@2+-@I)*]]@@@T9)@@AC[)@@B/K@@[6(@@@@T'^@@@@R;@@@A'^@@@@R;@@@^@[>@@FAL@@@@XH )@@G@@)[,[M^^@KM+-@I@@@@'^@@@@R;@@@B[[@@@AG9@@@[*@@@@LW9@@@A @@@@K[[K@@BW9K@@CXI )@@G@@ @@@@LAM@@@@)[8[F]@ [KO[@KO@KK@@@@@@A#@@@ER;@@@[/K@@]T(@@@@-/K@@[G/K@@[.XJ )@@G@@![)@@DC[)@@^'^@@@@AN@@@@)][[#]@@()@YG@&]OOC@OC@]&@[80]@@@@[D@@[@@@/,0@@@XK )@@G@@'^@@@@@]^@@F@@@@[2@@[@@@/,0@@@AO@@@@)]D[E0M+-)@)+@)[LK)B@@@@'^@@@@R;@@@EXL )@@G@@R'@@@B8]@@]P/K@@]JP'K@@[R]K@@AR])@@ @]D@@FAP@@@@)]M[F[^ [K)BK^C@O @@@@@@XM )@@G@@/K@@#>(@@@@N'^@@@@8]K@]I'^@@@@R;E)]?A#@@@EO;@@@CR#@@@EAQ@@@@)]V[]KOC@]&@XN )@@G@@[80]SDLK)[K)@@@@@@/,0@@@'^@@@@@])@@F@@@@[7@@[@@@/,0@@@A#@@@ER;@@@[AR@@@@XO )@@G@@)]<[E()@YG@&]OO @KO@@@@@RB)@@ER')@@@8L@@]%N[@@@B/K@@#E(@@@@T@]>@@F@@@@[PXP )@@G@@@@[@@@AS@@@@)]?[U[[^@@KKR#Y@@\W8)@@A @@@@I;C0@@Y;?0@@@AB)@]2O;)@@]9?.@]?XQ )@@G@@W8K@@= @@@@HT8)@@CAT@@@@)]7[N[K@^@K^ [@@@@R#0@@AC[I@]?8L@@]:O')@@[')J@ PXR )@@G@@W8)@@A @@@@IRB0@@E')J@ JA#K@@@AU@@@@)#[[MKL#@[@K@KOG@@R])@@ [[I@]?;!@@@@XS )@@G@@;D@@@@AB0@#CAB0@#BC[K@@AT80@@AP#0@@BT80@@AAV@@@@)#F[N[^[@]+-@I)+]@A#@@@EXT )@@G@@O;@@@OR#@@@E'^@@@@R;@@@ER'@@@N8]@@#P/K@@#JP'K@@[R]K@@AAW@@@@)#P[U[[@@K@@XU )@@G@@8]0@#T;?K@@A;*)@@YR#)@@K?[@@@I;?)@@AR;)@@@R#'@]?R;K@@@C9@@@"R'0@@ AX@@@@XV )@@G@@)#)[#[KOC[4[]@ ]@@()@YG@)@@@@@@@@@]F@@[@@@/,0@@@'^@@@@8]K@#I'^@@@@R;E)]?XW )@@G@@A#U@]?AY@@@@)#*[]0M+-@]) ]@-]@>]@(#[8@@@@R7)@@#/K@@@@'=@@@@'=@@@@R;@[K8XX )@@G@@/K@@[G'^@@@@@#*@@FAZ@@@@)#0[F#@[@K0@K]+)C[LK@@@@A#)@^UR;)@]T/K@@^QA#)@^UXY )@@G@@R;)@]O/K@@^B:@)@@C/K@@#':@)@@BBA@@@@)#9[#@K)@ES@B<@D)>^**K#*K@)@@@'^@@@@XZ )@@G@@'^@@@@R;@@@ @#.@@F@@@@[G@@[@@@/,0@@@/K@@^QBB@@@@)^[[F[KO@KO[]@@()@YG@)@@YA )@@G@@@@@@]G@@[@@@/,0@@@/K@@[GA#@@@ O;@@@[/K@@#:!@@@@LR#@@@ BC@@@@)^E[E0M+-@])YB )@@G@@]A#0-)/CSJ@@A3@@@#R;@@@+AF@@@^R;@@@[A#@@@^/K@@@@/K@@#:'^@@@@@^E@@FBD@@@@YC )@@G@@)^N[]()/-@Q)CE]-@@O0@JA@K@@@@@@@@@]X@@[@@@/,0@@@A#K@@,A#@@@!/K@K^H'=@@@@YD )@@G@@R;@@@@BE@@@@)^V[]0M+-@]-@@O0@JA@N[EDN[9]@W'^@@@@R;@@@#@^)@@F@@@@]K@@[@@@YE )@@G@@/,0@@@'^@@@@@^V@@FBF@@@@)^<[N]@ ]@=@[[K@@@/K@@^(:[)@@J;!)@@AC9)@@@C9K@@@YF )@@G@@C9@@@9R;0@@\/S@@@@'=@@@@'^@@@@BG@@@@)^![UK@^@^@@R#K@@C/S@@@@/K@K^>[[U@@@YG )@@G@@*@@@@L/K@@^(G[K@@MT9K@@EH9)@@0/K@@^3,@0@@MBH@@@@)^8[MKL@^@K^^@@@@@O]@@@IYH )@@G@@R<*@]%/K@@ ^!@)@@H/K@@ G?@K@@I/K@@ G(@@@@IR3*@]%;CK@@MBI@@@@) ][MK^ [[[KYI )@@G@@OG@^@@/K@K^6O]@@@DO+C@]%C]C@]?!8)@@]C'@@@@C[8@]:R<*@]%/K@@^9O'@@@[BJ@@@@YJ )@@G@@) G[EK0@K^ [KO [KK@@@@@@R@UVWXYZ;@-/STQR@$*]KLMNOP<[+@@JYR )@@G@@FGHI@.BQ@@@@)@;[W@@@@@@@6,13H (,I WORDSI5,10HS, ONTAINLOCK C16H. BYS )@@G@@ER,I4,K NUMB2HBLOCBR@@@@)[A[W@@@@@@@FILE,IND OF X,11HEH***,5(1H0,3,8O14)YT )@@G@@9,2H. (1H0,I) TERS).CHARACBS@@@@)[L[W@@@@@@@,1H5,51H4,5XH3,5X,2,5X,1YU )@@G@@,5X,1H1X,1H1(1H ,1) **,///5X,3H*4,1H.,BT@@@@)[W[W@@@@@@@1H4,5XH3,5X,YV )@@G@@2,5X,1,5X,1H5X,1H1X,1H0,,1H9,51H8,5X,5X, 5X,1H7X,1H6,BU@@@@)[$[W@@@@@@@YW )@@G@@A6) H. ,20 ,I9,20,/,1H,5X,1H5X,1H9X,1H8,,1H7,51H6,5XX, ,1H5,5BV@@@@YX )@@G@@)[2[W@@@@@@@...,/)RMAT..RIC FOLPHAMEX,22HA(1H0,5....,)ORMAT.CTAL FX,17HOYY )@@G@@(1H0,5BW@@@@)[.[W@@@@@@@15HP A , U M P E D T A P 0 8 1 1 V A C YZ )@@G@@U N I 0X,44H(1H1,3BX@@@@)]C[W@@@@@@@R NO. 0HERRO(1H0,1E. ) OF TAP2HEND ZA )@@G@@(1H0,1(///) ,//) G E . C K ABY@@@@)]N[W@@@@@@@(1H0,1.,///) ERROR1HFILEZB )@@G@@(1H0,1///) RROR.,RMAL E5HABNO(1H0,1,O2) BZ@@@@)]Y@?@@@@@@@)@@@�@@@@@ZC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@/) OR.,//LE ERRSOLVAB9HUNRECA@@@@)@^[Y#0@@@@@ZD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CB@@@@ZE )@@G@@)@J[Q#0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZF )@@G@@@@@@@@CC@@@@)@@@Q#0@@@@@)@A@I#0@@@@@)@F@I#3]@@@@@@@@C@@@@@@@@@@@@@@]*@@@ZG )@@G@@]@@@@@ DUMP CD@@@@)@C@Q#3A@G()]O0[@@)]<@4@]+@@@@[IF@]% ZH )@@G@@T, DUMP,@ASG,T@@@@#\@^Q@#7CE@@@@)](@G@-K5@/()/ GB+N[8()/@@@K@@@@@ZI )@@G@@@@@@@@@@L@@@@@N@@@@]N@@@@@@@@@@@@@@@@@@[IFCF@@@@-K/@4@@@@@@@)@@@SGS@2+@@ZJ )@@G@@@@[@@#@^Q@]%@@@@@A]@@@@@D@@@@@C@@@@@^@@@@@0@@@@@)@@@@@CG@@@@)@#@8@@@@@@@ZK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@[@@@@@]@@@@@[ @@[@@@@@@@@^@@@@@@CH@@@@ZL )@@G@@0@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@[@@@@@]@@@@@[ @@[@@@@@@@@^ZM )@@G@@@@@@@@CI@@@@@@@@@@M+-@])]A#0-)/CSJ@@A3@@@#R;@@@+AF@@@^R;@@@[A#@@@^/K@@@@ZN )@@G@@/K@@#:'^@@@@@^E@@FBD@@@@@@^@@Z@@<@@G@@;@@#@[B@@@@@@@@E@@@@ V@@@[L]@@@@@@ZO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZQ )@@G@@@@@@@@@@@@@@@@@@@TNWDU$ NI02$ READ$ FACIL$ CSF$ ZR )@@G@@ BOPEN$ BREAD$ NI01$ BCLOF$ EXIT$ NSTOP$ZS )@@G@@ IOW$ RWDUMP @@[@@@@@@@@@B2O$ @@[@@@@@@@^QB2L$ ZT )@@G@@ @@[@@@@@@@^Q A 43 @I@@@@ZU )@@G@@ CON=.017453292 @@@[H@@6:@C@ 'H^@@@6: 'H@@@@1L@@@@@[@@@@@@@@@@]&ZV )@@G@@@^S@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@30 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]/@C@@*S@FI@[6^@@@@1^]JZX )@@G@@@@O^#B@@[^#X@@]^#<@C;^P(@[]^Y?@@D^Z\@@ ^Z;@@H^)]@@[^)R@[-^)U@@]^+@@@F^+AZY )@@G@@@@X^+R@@A^+L@^R^<@@@L^$T@@[^*<@@]^*$@@!^*3@[4^(+@@T 95@@] 95@@[ 9;@@[ '@ZZ )@@G@@/K@@@@C^W@@CC0?@@CC9K@@#%8)@@[C9K@@^[1W@@CC[I^-?[1G@@#%9K@@#/K@KC@H8K@@[AA )@@G@@?8K@@[/K@KC@C^?@@C[C?@@D'^@@J8/K@KC@/K@@@@C@0^$2C^J^<@0@G@@#'=@@@A*4G@@#AB )@@G@@'^@@$TC0W@@CC@!^-?[0?@@#'^@@K(C9@@#)C0W@@C:8K@@]/K@@C>C9@@#/C0\^<@?8)@@KAC )@@G@@G9@@@^[DG@@^'=@@@[/K@KCMAA0^$OC^;@@@C@_@@@C9@@@A[[@^$3'^@@*G/K@@DNC^J^<@AD )@@G@@(@G@@D/K@@D^(^G@@C/K@@C'C1G@@C?9@@@#/K@@C'C1G@@#%9@@@('^@@I70@G@@#'=@@@AAE )@@G@@*4G@@#'^@@$T CG@@^C G@@^'^@@!C^J^<@(?G@@CAH )@@G@@/K@@D$'^@@%\C@@^-5^^W@@^^^W@@D'^@@CM ?G@@C*^G@@D/K@@D,'^@@%\C@0^$2C^J^<@AI )@@G@@^^W@@D^^W@@^'^@@K(C1G@@C*4G@@C/K@@D60@G@@#'=@@@A*4G@@#/K@@E8C9K@@_=9@@@[AJ )@@G@@[1W@@E/[@@D_!9@@@#/K@@D_'^@@KF*4G@@C'^@@KFC G@@^*4G@@C'^@@!< 4G@@CC^W@@CAK )@@G@@C1G@@E[!@^@EK^W@@DG8K@@[[^W@@CC G@@GG9@@@[[ G@@G[-@^@E;L@@@A[>@^@EC[@^@EAL )@@G@@[[I@@@[[G@@EC1G@@C:9@@@#/K@@E5:9@@@^/K@@EV'^@@C@C1G@@C:9@@@#/K@@EW'^@@I7AM )@@G@@0@G@@#'=@@@A*4G@@#'^@@$TC G@@^'^@@!< @G@@C @G@@D/KF@@]C1J^<@%9@@@-/K@@E1AN )@@G@@*4J^<@/K@@E!C@@^@F'=@@[S/KF@@]C[@^@F[[G@@@'=@@[>/K@@EWC@@^@T'=@@@I'^@@O?AO )@@G@@/KF@@]C9@@@^[1G@@C/K@@EV*^@@I-/KF@@]'^@@$T/KI@E;/K@@@@ @@^#@ @@^#[ @@^#]AP )@@G@@/K@KFI/K@@@@*4@^#@/K@@F=+8)@@JR#)^#[T8)@@EO#0@@IA#0^#[R#)^#@(4@^#[/@)KFNAQ )@@G@@T8)@@EO7)^#[ 4@^#[R#0^#[A#)^#@/K@KFNR#)^#]O;)@@[A#)^#]9?)^#@/K@KFN/K@@@@AR )@@G@@9!@^#@'^@@F7/K@KF(/K@@@@9!@^#@'^@@F7/ KKF!C9K@@[/K@KF!/K@@@@9!@^#^'^@@F7AS )@@G@@/K@KF3/K@@@@/[@KF7!9@@@)/K@@F";(K@@A;H@@@A/K@KF7RB)@F7:8)@F0/K@@@@R;)@@HAT )@@G@@A\)^$%;C)@@AA3)^$%R;)@@AA7)^$%RB)^$%AB)^$% @@@@H'^@@$\ 4@^$=/K@KF7/K@@@@AU )@@G@@ @@^#A'^@@FI'^@@GM/K@KGH/K@@@@9?)^#@9*)^#^R#)^#]A#)^##'^@@FI/K@KGM/K@@@@AV )@@G@@ ^@@GZ/K@@G) @@@GZAA0@GT/K@@G7/K@@@@9!@^#@'^@@F7*?@^#AD[K@@LR#K@@L!8K@@$AW )@@G@@/K@@HDPJK^#AO#K^##9?0^#^980@H#;(@@@A;W0@@J;G0@@[R;)@K7P#)@@L*^@@GZ9)0^]NAX )@@G@@(^@@GZ9)0^]O"4)@@J*4@^#A900@@J/@K@H#R;@@@@/CK@G/R;@@@[E@K@@H;GK@@=!8)@@EAY )@@G@@W8K@@E/@)@H];*)@@[')G@H-/^K@HB(^@@GZ/K@KGT"/0@@J/K@KGZO;@@@]/K@@G/*^@@GZAZ )@@G@@/K@@HH?8K@^7/K@@G$'^@@HK9=0@@J/K@@H#/K@@@@ @@^$%R;@@@IA7@^$%RBK@0FABK^$%BA )@@G@@R#@@HV'=@@@I @@@@H'^@@$\/K@@O?@_ @HWEXPONENT OF INPUT IS IN ERROR "*"^]OBB )@@G@@"?"^]O"*"^]&"?"^]&"*"^]8"?"^]8A]0^$OC^;@@@[@0@H/[@0@IFC@_@@@[@0^$2C^J^<@BC )@@G@@/@F@@#*4J^<@/KF@@#*?G@@]/KF@@#9!G@@C99F@@#C1G@@C:9@@@[/K@@I#:9@@@]/K@@I#BD )@@G@@A]0^#W/,0@DS@@@@@@@@@@@@R]0^#W0@G@@#'=@@@A*4G@@#/K@@ISC@:@@[C@0^$2C^J^<@BE )@@G@@ 4G@@#(@I@@@/K@@IIA]0^#W/,0@C(@@@@@@@@@@@@R]0^#W(4G@@C/K@@IMC G@@D'^@@!A#)^#& @@^#YR;K@@@R#)^#&(@@@@I/K@@LL'^@@LZA#K^#&/K@@LER#)^#>BV )@@G@@(@@@@I/K@KK"R;0@@EA#0^#YR'0@@]R')@@[R;K@@@R#)^#>(@@@@I/K@KK"'^@@LZA#K^#>BW )@@G@@/K@@LS/K@@@@W8K@@E(@@@@I/K@@L>O;)@@0')E@L?R#0^#YO;0@@[A#0^#Y8])@L:R')@@ BX )@@G@@8]0@L:/K@KLZA7:^#ZA3:^#ZA\:^#ZA::^#ZA$:^#ZA<:^#Z&#@@@F/,0^W)*)J@@B/K@^WCBY )@@G@@*4J@@A'))^XKN??@@@C!J@@A>9@@@]/K@@L"/,0^V7 ?J@@G/,0^X^*)J@@B/K@@M#R;J@@@BZ )@@G@@'=@@[XR\J@@A =J@@B%8@@@)/K@^WC/K@^WAC[@@[]+9@@@_:9K@@N/KF@@@R;K@@)*@@@@LCA )@@G@@R;K@@-AZZ@@#R;J@@@'=@@@#*4J@@#/K@^X=/KF@@@'^@@POR;F@@@L8@@@[RB!@@@?@)^ZWCB )@@G@@/K@@MXP#)^ZWRB,@@@P;)@@[RB,@@@N@"@@@R#K@@GRF!@@@/^)@M>O;K@@[/K@@M-:8)^ZXCC )@@G@@/K@@MA#@^ZOR#@^Z&/K@@OQ'^@@PO'^@@PBCL )@@G@@A#@^ZVR#@^Z$A#@^ZOR#@^Z*A#@^ZPR#@^Z('=@@@I(^@^YZ/K@@N%R#@^ZZ'=@@@I'^@@O>CM )@@G@@R#@^Y;A#@^Y3N80@#C*@@^YY/K@@O/RBK^YZ/K@@NF/K@@@@RB@@O?/@@KO>AB@@O> ^@@O?CN )@@G@@'^@@PV/K@KO>/S@@@@'^@@POR#K^$OR#@^Z%N@.@@[(CH@@[N@.@@]R;K@O6ABK@PB/K@@PDCO )@@G@@/K@@OT/K@@O9N@0KO7'^@@POR#@^Z:/K@@O3R]0^Y= @@^YY*CF@@@*4F@@@/K@@P R;V@@@CP )@@G@@RFF@@@A#K^YZ/K@@M6O'0@@[/K@@O"/K@@@@R#@^Z?A#@^Y3^@0^YZRF@^YZ'^@@P+A#@^Y9CQ )@@G@@RBK^YZR#@^Z!/@K@PMR#H@@@A#@^Y;/K@KPB/K@@@@A]0^Y=9*@^Y>9*)^Y$9(@^Y(^@0^Y:CR )@@G@@/K@@PO/K@@@@R]0^Y=9?@^Y>9?)^Y$9!@^Y(N@0^Y:/K@@PV/K@@@@;G@@@MR;)@@ Q;K@@ACS )@@G@@;@K@@#;?@@@A8#)@P>/K@@P+/K@@@@C[@^Z\[[@^*GC@0^$2C@@^-5C1J^<@C5Z^<@;(K@@ACT )@@G@@G[@@@L!9@@[@/K@@P':9@@@=/K@@QD:9@@@-/K@@QA/K@@QK:9@@_=/K@@Q#:9@@_>/K@@Q#CU )@@G@@%9@@_-/K@@QKC9K@RZN8K@[P/K@@QFC9K@R(N8K@] /K@@QFC9K@RIN8K@[P/K@@QFC9K@RTCV )@@G@@N8K@] [ K@0H[ K@0L^^K^)S^^K^$\/K@KP%C[@^Z0[[@@& C[G@@D/[@@QVC0W@@C/@K@Q+CW )@@G@@:8K@@^/K@@Q+%8K@@#/K@@Q"/K@@Q*'^@@%\C@@^-5^^W@@D^^W@@^N8K@#)^CW@@D/K@@QOCX )@@G@@C9K@R1N8K@@^^0W@@C ^G@@GN8K@] /K@@QFC4W@@CC9@@@_[1G@@E:8K@@[/K@@Q9'^@@%?CY )@@G@@C@@^-5(@@@[[/K@@Q9C8K@@[[4W@@C^^W@@D ^G@@CN8K@#)^CW@@D'^@@!S/K@@Q+0@G@@#CZ )@@G@@'=@@@A*4G@@#'^@@$T/K@@Q40@G@@#'=@@@A'^@@K((?G@@C'^@@KF*4G@@C'^@@KF ?G@@CDA )@@G@@C0?@@CC9K@@_:8)@@[[1W@@EC[I^-?[1G@@#'^@@!S/K@@Q+/K@@@@'^@@T[C9K^*H[ K^*=DB )@@G@@C@@^*='=@@[SC^K@RI'^@@S'C[K^Z\[[K^*G/KH@@@/K@@@@'^@@TDC@@^Z3'=@@@IC^K@RTDC )@@G@@/K@@RP/K@@@@'^@@T[C9K^*H[ K^*=C@@^-5C[@^*=[[G@@@'=@@[>C^K@RZ/K@@RP/K@@@@DD )@@G@@'^@@TDC@@^-5C[@^Z3[[G@@@'=@@[=C^K@R(/K@@RP/K@@@@'^@@T[A]@^*=A]K^*>A])^*&DE )@@G@@C@@^-5 4G@@E[@0@[[C0?@@E[??@@E[0/@@ER]@^Z1RAW@@GAAW@@EO'K@@[AAW@@GC8)@@CDF )@@G@@[*?@@ER]?@@E'^@@SH8KK@SFC^K@R1R]@^*=R]K^*>R])^*&/K@@RPR]*=*H/K@@S^/K@@@@DG )@@G@@^@K^Z,C^W@@C?CW@@D/K@@SZ'^@@I7C8K@#)[CW@@D*4G@@C/K@@SY'^@@%?*@@@[[/K@@S&DH )@@G@@0@G@@#'=@@@A*4G@@#'^@@$T ^G@@CC^W@@CK^W@@DA],@@@G8K@@[[^W@@CN@K^Z,/K@KSHDI )@@G@@C8K@@[[4W@@C^^W@@D/K@@SYC@0^$2C^J^<@(4G@@C/K@@S70@G@@#'=@@@A*4G@@#'^@@$TDJ )@@G@@C G@@^'^@@!< 4G@@CC G@@D[ G@@^C[@^Z2[[@@& /K@@&A/K@@@@N8)@@PC@)^)]C@0^)#DK )@@G@@[@\)@@8K)@S"/K@KS'/K@@@@C^0^*GCCK^*G%8K@@ G80@@[P;0^*H[C0^*=/K@KT[/K@@@@DL )@@G@@C4K^*H:8K@@ /K@@TN:8K@@0/K@@TP:8K@@1/K@@TR:8K@@+/K@@TTC8)@@[/K@@TUC8)@@]DM )@@G@@/K@@TUC8)@@_/K@@TUC8)@@@[0)^Z3C8K@@ [4K^*H/K@KTD/K@@V+/K@@V+/K@@X1/K@@VVDN )@@G@@/K@@U2/K@@T4/K@@V^/K@@Z;/K@@)I/K@@)M/K@@@@RFK^*GRB0^*G!80^*5DO )@@G@@8#K@T2O;0@@[R;K@@ AB0^*GAFK^*G/K@KT*[[K^Z_%9K@@T/K@@UAC K^)L*@@@@LH9K@@[DP )@@G@@[DK^)TC9@@@@W9@@@A;[@@@MD[K@@LG9K@@ ; @@@MG @^*<[[@^*G C@^)Q'^@@&4/K@@T7DQ )@@G@@'^@@&4C[K^Z_%9K@@L/K@@UNC9K^Z.C^)^$QC@,@@@+8)@@[(@@@@JC9K^Z"[ K^$QC9K@@]DR )@@G@@/K@@UOC9K@@B[[K^Z/C K^)L?[K^Z//K@@UYH[K^Z/R;)@@ '^@@T*8^K@UTC[K^Z/H9K@@[DS )@@G@@C^)^$QC@,@@@C[@^Z_:[@^)^/K@@U:/K@@U>'^@@T*;@)@@Y8^K@U=R7)^)K:8)@@^/K@@VVDT )@@G@@/K@@UAC@K@@LT8K@@A;@!@@@/K@@U>R7K^)K:8K@@^/K@@VV'^@@&4C^K^$QC@X@@@/CK@U7DU )@@G@@D@K@@H'^@^@W[ @^]GH @^)L/[@@U.D[@@@K/H@@V]C^)^$Q0@I@@@/[@@V]'^@@Y:/K@@U\DV )@@G@@'^@@Z4/K@@U\'^@@&4C K^)L?9K@@H/K@@VHH9K@@HR;)@@ '^@@T*8^K@VDC9K@@GR;K@@#DW )@@G@@T@K@@LC^)^$QC[I@@@;[H@@@H9K@@[R#)@@K;[@@@-;G)@@=R;)@@A;^)@[ '^@@T*8^K@VNDX )@@G@@/K@@V^'^@@&4R3K^$Q:8K@@[/K@@U3:8K@@ /K@@UE/K@@V<'^@@&4DHK^)T] K^]G/HK@V$DY )@@G@@C9K@@@HDK^)LH9K@@^ @@@@IR7K^)K:8K@@[R;)@@[%8K@@^/K@@V2R3K^$Q:8K@@#R;)@@[DZ )@@G@@H[K@@IG K^)L/HK@WUC^K^$Q0@H@@@/[K@WU[DK^Z'CDK^)LGHK^)T/HK@WU/[K@WU[ K^Z'EA )@@G@@'^@@W,CD@^Z''^@@Y+(G@^]H/K@@W-RJ)^]IPJ)^)T#^)^]I/@)@WC/G)@WZR;)@@+'^@@T*EB )@@G@@RJK^]I'^@^@W @G=[8 @G=[8C9@@@]R7@^)K:8@@@[/K@@WR%8@@@^/K@@WSR3@^$Q%8@@@#EC )@@G@@/K@@WSC9@@@#'^@@ZL/K@@WV'^@@Z4R7K^)K%8K@@^/K@@V+/K@@VVR;)@@-/K@@WDR;)@@ ED )@@G@@C9K@@]R7K^)K:8K@@[/K@@W%%8K@@^/K@@W:R3K^$Q:8K@@#C9K@@#'^@@T*8^K@W:/K@@WVEE )@@G@@/K@@@@RB)^$QR7K^)K:8K@@[/K@@XY%8K@@^/K@@W8R3K^$Q:8K@@#/K@@XYR3K^$Q%8K@@#EF )@@G@@/K@@X 94"@@@980@X??@0^) ?@0^)A/K@@X[/K@@XCR7K^)KH8K@@]/CK@YD/K@@WVE@"@@@EG )@@G@@/@0@X?"80@@J/,0^@>9*0^)@R7@^)K/KG@XE/K@@X-/K@@X>DH@^]I/[@@XL/D@@X-GD@^)LEH )@@G@@/H@@X-DH@^]IGD@^)LR#0^)LA#0^Z8P;0@@#[D@^)LAB0^)LC9@@X3[ @@W,RJ0^]I/K@@X$EI )@@G@@94"@@@/,0^@>/K@@X+9?0^)@C K^Z'/,0^[C/K@KW,RJ0^)TOJ0^]IAB0^]IOF0^)LAB0^Z'EJ )@@G@@ @@^[7/C0@X- ^@^]H @@^]IR;K@@OABK^[5/K@KW,'^@@&4'^@@W,CH@^]I/H@@YO/[@@X9EK )@@G@@DH@^]I] @^]G/K@@Y[*C@^)L/K@@X_D9@@@[[ @^[5] @^]G/K@@Y[[ @^]GD9@@@@H9@@@[EL )@@G@@HD@^)LG @^)L/H@@Z2C^)^$Q0@I@@@/[@@Z2'^@@Y+C5@^)K:9@@@^/K@@YH/K@@X1C[@^Z8EM )@@G@@[[@^)LR;)@@ C9K@@]'^@@T*8^K@YL/K@@VV(@@^[7G9@@@[/H@@YSD9@@@@[ @^]I(C@^)LEN )@@G@@/K@@X;DH@^]I!D@^)LCD@^)L] @^]GC9@@@[] @^[5/K@@Y@/K@@@@'^@@Y,0G@^]G/K@@Y(EO )@@G@@R;)@@.'^@@T*CD@^)L'^@@ZY/K@KY+/K@@@@ ^@@Y,/K@@Y\/K@@@@/[@@ZFH9@@@]R;)@@ EP )@@G@@/H@@Y5'^@@T*8^@@Y3C^K^$Q1@H@@@/K@@ZER#X@@@R70^)K:80@@ /K@@Z^R30^$Q:80@@[EQ )@@G@@/K@@Z^:80@@#/K@@ZB>@K^)B/K@@ZE/K@@ZD(@@@@H/K@@ZE/K@@ZD>@K^)C/K@@ZEC8)@@-ER )@@G@@'^@@T*CH@^]G/H@@Z((^@@Y,/K@@ZN'^@@ZY/K@KY,/K@@@@ ^@@Y:R#@@@K/K@@ZUR#?^[8ES )@@G@@!@@^)DR;)@@@O;)@@0'^@@T*8#@@ZP*^@@Y:/K@KY:/K@KZL/K@@@@R#@^[5/K@@Z&R#?=[8ET )@@G@@!@@^)ER;)@@@O;)@@0'^@@T*8^@@Z-AB@^[5/K@KZYD@@@@KGD@^)LR;)@@.'^@@T*R;)@@0EU )@@G@@/K@@Z0'^@@T*8#@@Z\/K@KY,'^@@Z4/K@@YD/K@@@@C K^)LR;)@@*/K@@Z9'^@@T*8^K@Z8EV )@@G@@/K@KZ4%8)@@'/K@@)E/,0@>&:8)@@'/K@@)]'^@@T*/K@@Z.R#K^)JA#K^Z_/,0@>&:8)@@'EW )@@G@@/K@@)@R#K^Z_A#K^)J/K@@)*/,0@>&'^@@T*8^K@)E/K@@)*R;)@@ '^@@T*8^K@)J/K@@)*EX )@@G@@C9K^Z4[ K^)H/K@@)R 4@^$Q 0@^$Q @@^)K @@^)TC9K@+/[ K@G@C[K^$T[[K^$WC[K^)GEY )@@G@@[DK^$=C9K@>;[ K@0PC[K^)H[[K^)J/,0@>&%8)@@(/K@@)&/KI@)\/KG@-3/KG@-3/KG@-3/KG@-3/KG@-3/KG@-7/K@@-\FA )@@G@@/KG@-3/KG@-3/KG@-_/KG@-_/KG@-;/KG@-;/KG@+#/KG@+B/KG@-3/KG@-3/K@@-\/KG@-3FB )@@G@@/KG@-3/KG@+G/KG@+K/KG@-3/K@@-\/KG@-3/K@@-\/KG@-3/KG@-3/KG@-3/KG@+O/KG@-3FC )@@G@@/KG@-3/KG@+S/KG@+W/KG@+0/KG@-3/KG@-3/KG@-3/KG@-3/KG@-3/KG@-3/KG@+)/KG@-3FD )@@G@@/KG@-3/KG@-3/KG@-3/KG@+4/KG@-3/KG@+=/KG@+=/KG@+=/KG@+=/KG@+=/KG@+=/KG@+=FE )@@G@@/KG@+=/KG@+=/KG@+=/KG@+8/KG@-3/KG@+*/KG@+?/KG@-3/KG@-3A#)^)F%8@@@#R;)@@AFF )@@G@@/KG@-;/K@@+//K@@+//K@@+//K@@FH/K@@)!/K@@)!/K@@)!/K@@FA/K@@/K@@>J/K@@FH/K@@>L/K@@+//K@@+//K@@FC/K@@=J/K@@=)FJ )@@G@@/K@@=O/K@@>Q/K@@FH/K@@+//K@@>SFK )@@G@@/K@@+//K@@FD/K@@)*/K@@W/K@@)*'^@@>)/K@@)*R;0@@ /K@@WFO )@@G@@R30^)KA70^)KC9K@@[/K@@)FP )@@G@@/K@@WC9K@@[/K@@<,'^@@>)FQ )@@G@@/K@@<3/,0@>WR;)@@'/K@@F#'^@@>)/K@@<8C[K^#[**@^)KD[K@@L[ K^)T/K@@)*/,0@>WFR )@@G@@C9K@@[/K@@<_'^@@>)/K@@=]'^@@F!/,0@$PH9K@@[/K@@F^/,0@>WC9K@@[/K@@=B'^@@>)FS )@@G@@/K@@=F'^@@F!R$)^)K!8)@@]R;)@@[R#0^)JH9K@@[A#"^)N[ Y^)PO;)@@[A$)^)K!8)@@]FT )@@G@@/K@@)* 4@^)KA<)^)KA#0^)M[DK^)P/K@@)*/,0@>WC9K@@[/K@@=K'^@@>)/K@@=-/,0@>WFU )@@G@@R$)^)K/@)@=!C Y^)OP;)@@[8^K@>FA$)^)K/K@@)*C4)^)K/@)@F '^@^$VC@)^$Q[@)^$PFV )@@G@@C[K^)M[[K^)JR<)^)KA$)^)K/@)@=9CDK^)P[ K^)P'^@@0GC @^)S%9@@][/K@@)*C9@@@@FW )@@G@@C[K^)J/,0@>&%8)@@//K@@>^G9@@@[/K@@="[[K^)J/[@@)*[1@@>EC@@@>E'=@@@I/K@@)*FX )@@G@@@@@@@@[ Y^)PC[Y^)N[[K^)J/K@@)*'^@@>)/K@@=&R;)@@[A:)^)K/K@@):/,0@>W/K@@=9FY )@@G@@'^@@>)/K@@=9'^@@F![ K^)LR;@@@]/K@@):AA0@>)'^@@F![ K^)L/K@@>\8#K@>!R;K@@ O;0@@[AB0^)JAFK^)JGA )@@G@@/KF@@@R<\@@@R$\@@@R:\@@@R\\@@@R3\@@@R7\@@@A<\@@@A$\@@@A:\@@@A\\@@@A3\@@@GB )@@G@@A7\@@@AB@^$QP;)@@[RFI@@@;@@@@C;C@@@)A3@^$Q:8@@@^A7@^$Q/K@O$V'^@@0G/S@@@@GC )@@G@@CDK^$=: K^$=/K@@&Q*4@^$=/K@@&HC@@@&T'=@@@I*0@^$=/K@@&LC@@@&R'=@@@I*?@^$=GD )@@G@@/K@@&PC@@@&S'=@@@I'^@@O?/K@K0Q@[D@&U@[C@&<@[D@&:ILLEGAL FORMAT CHARACTERGE )@@G@@S WERE ACCEPTED AS BLANKS. RECORDS EXCEEDING MAXIMUM LENGTH ARE FAULTGF )@@G@@Y. THE INTERPRETATION OF MEANINGLESS INPUT WAS ATTEMPTED./K@J__RF)^)QGG )@@G@@/@)K>)P;)@@[AF)^)QC@)^$P/@)@&"[@)^$Q @@^$P/K@@&_'^@^$VR3)^$QP;)@@[AB)^)IGH )@@G@@RF)^)TOB)^)L?@)^)S/K@@$NAF)^)TR;)@@]A7)^$%RB)^)SA\)^$%;C)@@AA3)^$%C^)@0FGI )@@G@@AB)^$% @@@@H'^@@$\RF)^)T ?@^$=AF)^)T/K@K&4CD@^)TG[@@@L[D@^)T/KF@@@/K@@@@GJ )@@G@@[@K^)UC4W@@#:8K@@ '^@@$(!8K@@ @@@@HC@H^)V @@^$%C8)@@#[4)^$%'^@@$\'=@@@IGK )@@G@@/K@@O?C@@^))/K@@$-/K@@@@RBW@@#AFW@@^ 4G@@#C@K^)U/K@@$T/K@@@@RA0^$OO]0^-AGL )@@G@@C!V@@@/[KK$\:9K@@[/K@K$\CDF)@[/[@@$6H9K@@[H9K@@[?9K@@@/K@K$\CC:@@[C^;)@[GM )@@G@@/@K@*^!8K@@^/K@@*^%8)@@]/K@@$9/KJ@@@%8)@@#/K@@$9/KJ@@@/K@@@@C @@*B[[@^-6GN )@@G@@[ @@*G/K@@*I/K@@@@ @@^-6/G0@$$!80@@Z/K@@$$[@0^$2C@Z^<@/^K@%V*@@^-4/K@@*)GO )@@G@@C@@^+L^^0@*VN80@%(/KG@@[C8K@@*N80@@@P;K@@# @H^+U8#K@*X[@@^-4CD@^+RK9@@@HGP )@@G@@C8@^+RC^K^+RG8K@@[!@K@@L/K@@(@CD@^+SK9@@@HC8@^+SC^K^+SG8K@@[!@K@@L/K@@(@GQ )@@G@@C8K@@*P;K@@]C8)@@ ?C!^+T/K@@(,8#K@*1'^@@%\^CX^+TC8)@^@G@)@[[H8)@@[[^!^+TGR )@@G@@^@K@@KC8H^+TK9@@@H @I@@@%@)@[[8#)@*.C@0^$2[ J^<@[DW@@@[[@^-5 @@@@HAA0@(DGS )@@G@@AA)@(EC@)@@J'^@@K"R'0@@@R')@@@R#K^#YT8K@@A(@@@@HR;K@@AR#@^-5R#)^#+R#0^+MGT )@@G@@A#/@@[;G!@@@A#/@@@A#0^-7C8@^-7'=@@[GC5K^-./[K@(4C@0^$2[1Z^<@C@)@@K;G@@[CGU )@@G@@9*I@@]9*I@@^9*I@@C9*I@@E[@I@@G?9K@@)/K@@%QCC@^+RP;@@@E[C@^+RC8@@@_[4J^<@GV )@@G@@C@@^-59?W@@@9*W@@[/K@@%QC8H^+TCDH^+TK9@@@H? X^+T/K@@(@/K@@*4C[@^$3?9@@@#GW )@@G@@/K@@%>?9@@@A/K@@%E:9@@@A/K@@%@CCK^-7[^K^-&C@@^-E'=@@@I'^@@O?C@0^$2C^J^<@GX )@@G@@K8@@@HC8)^+R%CY@@@C8)^+S[CI@@@ ^J^<@R]0^$O/KF@@];).@@@A#0^-%C@@^+N'=@@@JGY )@@G@@/^@@%>C@0^$2C9@@@T[1J^<@C@K^-5 @H@@#C^Z^<@[@K^-5C0Z^<@C^@@*G?8K@@)/KG@@[GZ )@@G@@/KG@@@+@K^+O/^)@%O(?H@@]/K@@%O*@@^-6/K@@%OCC!@@@[^)^-RC@@^-D/K@@%%CCK^-7HA )@@G@@[CK^-GC@@^-B/K@@%%C@@^-C'=@@@I/K@@O?/K@@@@ @@^+K/K@@%2/K@@@@C@K@%\[@K^+KHB )@@G@@C^K^+J @@@[[P;K@@[(CH^+T/K@@:F8#K@%5C^)^+S/@)@:@P;)@^@CC0^+S?@)@@J/K@@:@HC )@@G@@[^)^+S/K@@:AC^)^+RP;)@^@CC0^+R?@)@@J/K@@:N[^)^+RC@K^+JG8)@@[[^!=+T[@K^+JHD )@@G@@P;K@@[C[@^$3[DH^+TN^X^+TC@0^$2C^J^<@(@@^+K/K@K%?/K@K%\C@0^$2(@@^+K/K@K%?HE )@@G@@ @@^+] @@^+# @@^+^ @@@@JC^J^<@/@@@?VC5J^<@/ @@?V(@G@@D/K@@?V*?G@@C/K@@?VHF )@@G@@N^W@@^'^@@!HCC!^+T!8)@@ /K@@!P/KI@:*/K@@:F/K@@:\/K@@?@/K@@?#[C0^+][^K^+]HG )@@G@@/K@@?V*4G@@C/K@@:4[C0^+#[^K^+#/K@@?V0@G@@#'=@@@A*4G@@#'^@@$T'^@@K('^@@KFHH )@@G@@N^W@@^C G@@D[ G@@^ 4G@@C'^@@!H/K@@:F[C0^+^[^K^+^/K@@?VC1G@@#:9@@@(/K@@?HHI )@@G@@0@G@@#'=@@@A*4G@@#'^@@$T @G@@D ^G@@C/K@@:F[C0^+ [^K^+ C G@@C/[@@?EC0Z^<@HJ )@@G@@?8K@@K/K@@?V[DG@@^C9@@@C[1G@@#'^@@K(CC0^+ C^K^+ /K@@?EG80@@[?80@@Z/K@@:UHK )@@G@@C[@^+]/[@@?4CC0^+]C^J^<@0@G@@#'=@@@A*4G@@#'^@@$TC[@^$2[[@^*=[@0^$2'^@@I7HL )@@G@@C@0^*=[@0^$20@G@@#'=@@@A*4G@@#'^@@$T @G@@D ^G@@CC^K^+]/K@@:FC[@^+#/ @@?/HM )@@G@@C[@^+^/[@@!PCC0^+^C^J^<@N^)^+^/K@@?_CC0^+#C^J^<@N^)^+#0@G@@#'=@@@A*4G@@#HN )@@G@@'^@@$TC1G@@#:9@@@(/K@@!C'^@@K('^@@KFC9@@@[[!G@@CC@K@[] @G@@D/K@@:F/K@@@@HO )@@G@@ @@@@HC H^+T:[@@[[/K@K!HG8K@@[?8K@@*/K@@!JC@@^+A'=@@@I/K@@O?/K@@@@N^W@@^HP )@@G@@'^@@!HC[K^$3[DX^+T(4G@@C/K@K!SN^W@@D'^@@!H[DX^+T/K@K!S/K@@@@C@K^+P% H^+THQ )@@G@@8#K@!> CH^+T/K@K!/^@^WA'+K^XK:8@@@-/K@@,_()J@@B/K@^WC%8@@@#/K@^WCR:Z@@B>8K@@[HX )@@G@@'-@=XKC@Z@@PH^Z@@G[@Z@@ /K@^WC()J@@B'<@^XKR\Z@@Q/)K@\ RBZ@@FAFZ@@LR;K@@[HY )@@G@@A7Z@@A(@@@[]/K@@\FA8K@@[/K@^V0/K@^V1R#@^$%/KF@@]@@ @@@/K@@@@'^@@@@IE )@@G@@ C@^)T/K@K0G/K@@@@'^@@@@/K@K0K/K@@@@C^)@0N/K@@@@/K@@@@/K@J__R#)^$SAB)@0PIF )@@G@@R#)^$UA#)^$W/K@@0OR#)^$TA#)^$W/K@O$V/K@@@@[^@^$QP;)@@[C[I@@@;(@@@E;D@@@)IG )@@G@@[1@^$Q:9@@@^[5@^$QC9K@@[:9@@@^G9K@@[:9@@@#G9K@@[[[K^$1/K@K0)A]0^$4/K@@03IH )@@G@@ @@^$4AA0^$OC^;@@@C@_@@@NC;@@@O'0@@[N^:@@@N8K@@^^@K^$3'^@@*G/K@@0_?@K^**II )@@G@@/K@@1[*@@^$4/K@@$$C9K@&^[ K@0R^^)^)H'^@@S'N8K@@EC@K^Z6C@)^Z7M#!)@@C@K@[#IJ )@@G@@O'.@@[AA0@0N'^@@P%*@@@@G 0G@@# @@^$P/K@@)P/,0@02@@[^*(@@@^%0@1O^*"'^@@0QIK )@@G@@R#@^*%'=@@@HR#@^:X+@@^*4A#K^*;R;@@@[R'0@@T/)K@1ZA#F^(A;CK@@[8]0@1XR#@^(AIL )@@G@@O#@^(O*@@@@G/K@@1*R;@@@[A#@^(AA#@^(OR]@^*:'^@@6B(@@@@N/K@@1\[[0^:T*@@@@OIM )@@G@@[]@^:U'^@@6B(@@@@N/K@@16C9)@@@;!)@@A%[)^(@/K@@18R')^(#/K@@1;%[)^([/K@@16IN )@@G@@R')^(^'^@@6B'^@@56'^@@6BR')^*/'^@@56R#@^(#O#@^*/A#@^(#R#@^*/O;@@@[A#@^*/IO )@@G@@9?@ 959*@^:XR;@^:X'=@@[G*@@^:Z/K@@2IR#@^( '=@@@J(@@^(I/K@@2RR;@ 93'^@@5YIP )@@G@@/K@@2R(@@^(E/K@@2RR;@ 92'^@@5Y(@@^(H/K@@2VR;@ 90'^@@5YR;@ 9%'=@@,SR#@^*7IQ )@@G@@!@@^(#/K@@4/O;@@@[A#@^*7R;@ 9*'=@^<>/N0@2XRBK 98A#K^*9T8K@@AA#K^*'R7) 98IR )@@G@@:@)^*?/K@@23:@)^*!/K@@2\/K@@5$R\)^:XO#)^*'P;)@@AA#)^*'/,0@02@@[^*(@@@^(!IS )@@G@@@26^*"R;@^*7'^@@0NR;@^*9'^@@0N(@@^(G/K@@3BC[)^*'T9)@@A @@@@LW9K@@C[[K^*'IT )@@G@@ @@@@KW9@@@A*@@@@LG9@@@[[[@^*9R;@^*''^@@0N'^@@0QC[)^*7![)^*//K@@3I/K@@2XIU )@@G@@(@@^(O/K@@3%R;@@@[A#@^*./,0@02@@[^*(@@@^%>@3P^*"'^@@0Q/,0@02@@[^*(@@@^(/IV )@@G@@@3U^*"R])^*,R]K^*9P'K@@[/K@@3)8]@@3&R'@@@BR;@^*.'^@@0NR#@^*.O;@@@CA#@^*.IW )@@G@@A REWIND WAS ATTEMPTED ON A SYMBIONT DEVICE - IGNORED @]D^@@_@@S@@@@[^@GIX )@@G@@@EOF AAN ATTEMPT TO WRITE AN EOF-MARK ON CARDREADER OR PRINTER - IGNOREIY )@@G@@D @]G^@HAB)^@W/K@^@Y/K@@@@R#@^]J;GK@@=W8K@@EA#?=[8/^K^@YA#@^[5C @^[5IZ )@@G@@/K@O@W ^@^]I98;@@@"0@@@JP;@@K@/@F@@@S@@^[4AA0^[#/^@^@\E@@@@G/K@^@3AB@^]IJA )@@G@@D@K@@G/,0@GWRJ@^]I9?K^[^9=K@@J98K^[[/GK^@'"*0^]KP;@@@[/K@^@39?K^[A9=K@@JJB )@@G@@98K^@"/CK^[]O;@@@["?0^]K/K@^@3G9@@@[AB@^]I/K@@@@J.3G3G3G3G3GK[)@@@@@@@@@JC )@@G@@980^[0"0K@@JP;K@J5;?!@@@[ K^]H?9K@@B @@@@J!9K@@OC9K@@NR#@^]J ^@^[5R#K@@IJD )@@G@@U8K@@E/@0^[W;C0@@[U80@@E;*0@@[A#0^[79)K^[6R#0@@KA#W=[8;C)@@[8^K^[NO;K@@ JE )@@G@@P#@^]M/K@^[>R#W^[8O;K@@[A#W^[8?8K@@E/KF@@@P;K@@EA#W^[88#@^[+R;K@@[A#K^[7JF )@@G@@OBK^]IABK^]IAB@^[5/KF@@@[ K^]HR;K@@OABK^[5/KF@@@NL[HPM@@[@@@@@[@@@K^*@@@JG )@@G@@@@@@@@@@[@@[@@@@[@@@@@@@@@@@C@K^*@@@@@@@@@KB2@@@@@@@@@KE")@@@@@@@@KI$^@@JH )@@G@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@KS&DU@@@@@@@KV\:0)@@@@@@KY;&?*@@@@@@K+>KF9JI )@@G@@@@@@@@L#:R<:1U1+@@L=2ZFD3KL$N!M '1>J<-:>DYM$+H-6E_G=3JNC$4/$D-YUC+N(,RRQJJ )@@G@@!,899@OE5"X'<8ZU.;O:"5-8MO:II)PH==5(FESV92UT(3\2B=K@I?7 @#K^#CJK )@@G@@ABNORMAL I/O CONDITION DETECTED WHILE CLOSING FILE ON UNIT LAST JL )@@G@@BLOCK MAY BE IN ERROR @@@@@@@@@@@@_____"@@@@@[000000DO]"K@*4J@@A'-@^XKJM )@@G@@R/^@^WAJO )@@G@@'+K^XK CJ@@LR$J@@B/^@^P5/,0^Q*/,0^X^/,0^QHC8@@@[[?J@@N/K@^WAA]0@[]C1J@@#JP )@@G@@:9@@@C/K@^QRRBJ@@GO#J@@ A#J@@ /\@^SH/K@^QRA]0@[]/,0^=8@@@[JS )@@G@@/K@^Q8C8@@@)A\J@@AC@J@@P[@J@@ /KF@@@()J@@B'-0^XKC9W@@@*4J@@A/,0^Q!R#@@@LJT )@@G@@C(J@@B>9@@@['+@^XKN@?@@]^G\@@KN??@@@/KI@@@&#@@@F/,0^W)/\)^Q9R\J@@A:8@@@)JU )@@G@@/K@^RL%8@@@-'C>J@@B/ @^YAKC )@@G@@/^@^WA'+K^XKC>J@@B/[@^S2/,0^W7/,0^X^/K@^YA/,0^W7/K@^WAR:\@@B=8)@@[/KF@@@KD )@@G@@RB\@@JCDJ@@J[[I@@@G9@@@[[DJ@@J/KF@@@N8V@@@/,0^VTR'0^TD(0J@@G/K@^VVR'0^T^KE )@@G@@/K@^XD/,0^U>*=J@@B/K@^YA/^@^WA'+K^XKR]0@[[R$J@@B%8@@@[/KF@@@/K@^X=R;K@@CKF )@@G@@[WZ@@#R#G@@[A#J@@^R;K^TPABZ@@]/KF@@@R;/@@@&;0)@@R3Z@@#%8K@@K/K@^TZ(4J@@#KG )@@G@@/K@^UOC9@@@[[>J@@B/K@^UO:8K@@Q/K@^UO(4J@@#/K@^T"R;@@@]%4J@@#/K@^T*A$J@@BKH )@@G@@/K@^T"C!J@@A%9@@@-/K@^T,/,0^V&N^\@@F/K@^T2RB\@@ANC,@@@ ^J@@A/,0^V*R7Z@@#KI )@@G@@A$Z@@B%8K@@C/K@^T'RFJ@@LABJ@@F CJ@@L/K@^UOR;@@@[A$J@@B^^\@@F/K@^UOR\Z@@AKJ )@@G@@%8K@@-/K@^U^/,0^V&C^J@@G/K@^UFC^\@@A ^J@@A/,0^V*C-J@@B/[@^UJC^J@@#/,0^V1KK )@@G@@O#J@@ !@J@@O[@J@@O[@J@@ /,0^VX/@@^UO[^J@@A/,0^TI/,0^W7/,0^W_/K@^&LA]0@[]KL )@@G@@CCJ@@DRBZ@@FAFW@@@R#Z@@JA#W@@[/,0^V#/,0^S./,0^VX[^J@@A/,0^TIR;@@@@(0J@@AKM )@@G@@/K@^U!/K@^U&A]0@[]/,0^VL[CJ@@D/@@^U!K8@@@]&FZ@@BA#W@@[/,0^U\R]0@[]/KF@@@KN )@@G@@A#Z@@JAFZ@@IC-Z@@BC(J@@B/[V@@@/>F@@@O;K@@[AFZ@@I/KF@@@@@@@@@@@@@@@@@@@@@KO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CCJ@@D/@F@@@ ^G@@@;/J@@QKP )@@G@@(CJ@@H/K@^VIRFZ@@HABH@@@[CJ@@H 4J@@Q/KF@@@[^J@@H[CJ@@H/K@^VGRFZ@@F;/H@@[KQ )@@G@@RBH@@@/@@^VRC W@@@[ X@@@ 4H@@[/KF@@@;/J@@Q/KF@@@ 4J@@Q/KF@@@;/J@@QRBJ@@HKR )@@G@@/@@^V=RBW@@@/^K^V<[CZ@@H[^Z@@H 4J@@Q/KF@@@RF\@@D CJ@@D/@:@@@RFJ@@F;/G@@[KS )@@G@@RBW@@@AB?@@@ABY@@@ 4G@@[/KF@@@O;@@@[;G@@@=W8@@@W*@@@@HO;@@@[[^J@@G/KF@@@KT )@@G@@R;@@@\A\J@@GN8V@@@/,0^X^/,0^VX/@@^W@[@@@@I/,0^V*/K@^V;/,0^V& @J@@H CJ@@DKU )@@G@@ ^J@@AR]0@[[/KF@@@&FJ@@JQFJ@@I&A_@@F0CJ@@S/K@^WW*CJ@@S/K@^WP9?)^U'9!@^U/KV )@@G@@N@K^U"N@)^U_N@0^V@R#K^U9 4@^U8/K@^WWQFZ@@S9?!@@[9!H@@#N@X@@ N@!@@AN@.@@BKW )@@G@@R#X@@@Q'0@@@/VF)@@&'0@@@/KF@@@&]0@@FQ]/@@@0@F@@S/K@^W0(CF@@S/K@^W*QE;@@SKX )@@G@@/K@^W%;/@^U8Q'0^U9A#V@@@9*:@@[9(F@@#^@V@@ ^@:@@A^@;@@BRB/@@@;@@@@MABJ@@FKY )@@G@@;C@@@MQ'0@@@/VF)@@/KF@@@C9@@@[[1J@@GR;J@@@/C0^W./,0^X@'=@@@P'=@@@]/KF@@@KZ )@@G@@ 0J@@G;/J@@Q )J@@N 4J@@Q/KF@@@;/J@@Q*0J@@G/K@^XD 4J@@Q/KF@@@C9@@@[[-J@@NLA )@@G@@ 4J@@Q()J@@N/KF@@@'=@@[#/K@^XG/,0^XM/,0^XMR;:@@@H8)@@[C8@@#0+CI@@@;CK@@^LB )@@G@@RBI@@@H8@^XK;@@@@ZO;H@@@0GI@@@O;@@@K&;W@@@/G0^X)/K@^X(A7J@@#A$J@@B/,0^W_LC )@@G@@'=@@@DCDJ@@C&7Z@@#QFJ@@I&FJ@@J/K@^X%C J@@C&]0@@KQBZ@@FR$\@@B =J@@BA$\@@NLD )@@G@@0@J@@S/K@^Y@*CJ@@S/K@^X'9?)^U'9!@^U/N@K^U"N@)^U_N@0^V@ 4@^U8/K@^Y@QE_@@SLE )@@G@@9?:@@[9!F@@#N@V@@ N@:@@AN@;@@BQ'0@@@/VF)@@(@@@@F'=@@@)&'0@@@/KF@@@/,0^X^LF )@@G@@&FJ@@JQFJ@@IC J@@DR$Z@@B%8K@@K/K@^YJ&;K@@[/K@^YX%8K@@^/K@^YN&;K@@A/K@^X%LG )@@G@@%8K@@)/K@^YR&;K@@A/K@^X(:8K@@[/K@^X=C9X@@@&7Z@@#%9K@@]/K@^X(/K@^X%@@@@@@LH )@@G@@@@@@@@ SEQUENCE N LINE N ERROR TERMINATION IN ROUTINE LI )@@G@@ CALLED AT SEQUENCE NUMBER OF ROGRAMA COMPUTED GLJ )@@G@@O TO THAT WAS OUT OF RANGE WAS DETECTED AT SEQUENCE NUMBER OF MALK )@@G@@IN PROGRAM. ILLEGAL OP AT SPECIFIED RETURN FROM RETURLL )@@G@@N VARIABLE SPECIFIED IN @@@K@@@@@/K@@]B^Y?@]D^Y3@]B^Y3MAIN P@]E^Y3LM )@@G@@@]H^Y.@]B^ZHOUT OF RANGE NEGATIVE@]C^ZO I/ORETN 0RETN KMAIN @@ ^*HLN )@@G@@/K@@S%@@[@@@/S@@@@@@Q^*H(1P6G13.5) @@[@TY@@[@E/@@@@@@@@@@@@T F LO )@@G@@@@@@@@ @@[^*H@@@@@RM@@@@@I@@@@@)^@@@@)@)@@@@@[@@O@@[@@P@@@@@@ LP )@@G@@@@ @@@@@@@@@NBMSG$@@@@@@@_A^).@_F^)-@_D^)?@_F^)-@_C^)5@_#^-#EXECUTION TELQ )@@G@@RMINATED BY AN ATTEMPT TO READ PAST AN END-OF-FILE. EXECUTION TERMINATLR )@@G@@ED BY AN ATTEMPT TO PASS END-OF-TAPEA NON INTEGRAL BLOCK WAS READ FROM MLS )@@G@@AGNETIC TAPEABNORMAL I/O CONDITION DETECTED INAPPROPRIATE UNIT@@[@@@LT )@@G@@@_^^-F@_A^-J@_D^-P@[F^-YFILE $-$ NOT ASSIGNED NO PACKET SPACE AVAILABLLU )@@G@@E INITIALLY THE NTRAN UNIT $-$ IS NOT AVAILABLE FOR STANDARD I/O. BACKSPLV )@@G@@ACE WAS ENCOUNTERED FOR THE UNASSIGNED FILE: $-$ - IGNORED. @ASG,T@@@@@@LW )@@G@@,F @@@@@@@@@@@K@@@@@K@@@@@C@@@@@C@@@@@D@@@@@)@@@@@(@@@@@@@@@@@@@@@@@@LX )@@G@@ @@@@@@@@@@@@@_C^+BABNORMAL CONDITION DETECTED INLY )@@G@@ BUFFER HANDLING @@[@@@@@@@@@@@@@@@@@@@@@@@@@@@C8)^++C8K@5$/@Y@@@C8)@5$LZ )@@G@@[C)^+SG@)@@HP;)@@[[^)^+SC8K^#$[CK^+RG8K@M]P;K@^[[^K^+RG8K@@[C@0^+J[^Z=+TMA )@@G@@CC)^+RC^K^+RG8)@@H;C@@@M!@)@@HC@@@[#[@0^+JC@K^+Q[@K@!0/KG@@@@*U^+T MB )@@G@@@@#^-(_)_@@@@@@@@$'^@@I-@@[@@@@-@@@@@@@@@@@@@@@@@@@@@@@)@@@@@=@@@@@@@@@@MC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@STOP ME )@@G@@ @@@@@@@@G^P/K@^=(MK )@@G@@A]0@[[ABJ@@AC9@^>>C!Z@@A:9K@@)C9@^TP[ J@@]&FJ@@BK8@@@]()J@@B/K@^>TA#W@@[ML )@@G@@0@J@@ /K@^>[1@J@@R*@J@@R/K@^>BC@J@@ %@J@@P/K@^>B(4J@@K/K@^>[R\J@@A:8@@@)MM )@@G@@/K@^>BC8@@@KA$J@@BC^J@@A ^J@@AR]0@[[/K@^V^[^Z@@^CCJ@@BR:Z@@B>8K@@[O;@@@[MN )@@G@@[CJ@@^R;K@@P(CJ@@LR;K@@K[WZ@@#R]0@[[/K@^W7R]0@[[/KF@@@8^@^>R'+K^XK'=@@[#MO )@@G@@/K@^=>C!J@@A%9@@@]/K@^>ZA#W@@[[@Z@@^/K@^>JOFZ@@BH@K^$M[@Z@@^ABW@@[C8K@@LMP )@@G@@/K@^>KR;/@@@&;0)@@(4J@@#/K@^>/R;@@@]!4J@@#/K@^>7R7J@@#%8@@@^:8@@@C/K@^>/MQ )@@G@@%8@@@ /K@^>4*^J@@#/K@^>/C8@@@[A$J@@B/K@^&[R;@@@KA$J@@B/K@^&[/,0^W7/K@^&KMR )@@G@@RB\@@A*)J@@B/K@^&-/K@^&M/\@^$]C8@@@[/,0^VTO\J@@G[?J@@G/,0^VVC^J@@A ^J@@AMS )@@G@@/,0^V^*CJ@@L/K@^&K/,0^=X/K@^&K/,0^VL/@@^&K/,0^=*/,0^W_'=@@@DC!J@@ARBZ@@#MT )@@G@@AFY@@[R'"@@]R\Z@@#AFY@@@ ?J@@#%9@@@#/K@^&@RBI@@[H^J@@#O;@@@[ABI@@[R'/@@@MU )@@G@@/K@^&@C(J@@B=9@@@[/K@^&!R#I@@]AFI@@[CDZ@@B/G@^&_?[K@@G/K@^&_/,0^V0R'"@@#MV )@@G@@/K@^&,R'"@@]C[V@@@%[K^$N/K@^&4C8@@@KA$J@@B/K@^&[C!J@@A:9@@@-/K@^&@C@J@@ MW )@@G@@%9@@@#/K@^&/H^J@@G/K@^&.OBJ@@G[@J@@ /K@^&@C9@@@)[>J@@B/K@^&[*4J@@K/K@^$GMX )@@G@@(@J@@E/KG@@@C[V@@@%[Z@@E/KG@@@R;)@@^A$\@@B/KG@@@C[J@@R/H@^$J/[G@@@O2_@@QMY )@@G@@+[F@@@/K@^$B)@@@@@$@EOF$@@@@@@@@@@@@@@@@@@/S@@@@/K@@0X/K@@@@/S@@@@(4@^$QMZ )@@G@@/K@K0NRB@^$QO;@@@[AB@^$Q 4@^$Q/K@O$V /K@@@@R#K^*$A#K^$='^@@O?/K@O$>NA )@@G@@@@ ^*H @@@@@K@@@@@@@#____DUMP 8@E^:Z@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@NB )@@G@@@@@@@@@@@@@@RWDUMP@]@@)@@@@@@B@@@@@F@@@@@ @@@]WK@@@@[=@@ ^:Q@@@@@@@@@@@@NC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ND )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NE )@@G@@ ABCDEFGHI@.<[+@@JKLMNOPQR@$*];@-/STUVWXYZ@,@@>@0123456789@@@'=@@@(1H ,1NF )@@G@@2HBLOCK NUMBER,I4,16H. BLOCK CONTAINS, I5,10H WORDS (,I6,13H CHARACNG )@@G@@TERS).) (1H0,I9,2H. ,8O14)(1H0,3H***,5X,11HEND OF FILE,I4,1H.,5X,3H*NH )@@G@@**,///) (1H ,11X,1H1,5X,1H2,5X,1H3,5X,1H4,5X,1H5,5X,1H6,5X,1H7,5X, NI )@@G@@1H8,5X,1H9,5X,1H0,5X,1H1,5X,1H2,5X,1H3,5X,1H4,5X,1H5,5X, 1H6,5X,1H7,5NJ )@@G@@X,1H8,5X,1H9,5X,1H0,/,1H ,I9,2H. ,20A6) (1H0,5X,17HOCTAL FORMAT.....,)NK )@@G@@(1H0,5X,22HALPHAMERIC FORMAT.....,/)(1H1,30X,44HU N I V A C 1 1 0 8 NL )@@G@@T A P E D U M P , 15HP A C K A G E .,//) (///) (1H0,12HEND OF TAPNM )@@G@@E. ) (1H0,10HERROR NO. ,O2) (1H0,15HABNORMAL ERROR.,///) (1H0,11HFILENN )@@G@@ ERROR.,///)(1H0,19HUNRESOLVABLE ERROR.,///) @@@@@@@@@@@@@@@@@@@@@@@@NO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DUMP ]@@@@@NQ )@@G@@^:V@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NS )@@G@@@@] 9.@@B^:Q@@H 9*@@E^*(0@S@@@@#A@3&@@@___@@@___@@@___@@@___@@@___@@@___NT )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___NU )@@G@@@@@___@@@___@@@___@@@___@5$@5C@@@@5@@ASG,T DUMP,T, [IF^:XNV )@@G@@@@@[IF@@@ 95@@@@@@@]N 95@@N 95@@L 95@@@ 95K@@@@@)@@@@@0@@@@@^@@@@@C@@@@@NW )@@G@@D@@@@@]@@@@@@@@@@A@5$^:X@@[@@#@@@@@@@@@@@^@@[@@@ @@@@@[@@@@@]@@[@@[NX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NZ )@@G@@R;E=:Z'^@@0N8]K@3Z'^@@0Q(@@^(A/K@@46R;@@@[A#@^*./,0@02@@[^*(@@@^%%@31^*"OA )@@G@@'^@@0Q/,0@02@@[^*(@@@^%C@36^*"(@@^(G/K@@4VN[@^*'8L@@3;R')@@@RB)@@ET8)@@COB )@@G@@ @@@@HW8K@@=9?.^:ZO;)@@]AB)@4#;?0@@@;C0@@Y @@@@IW8)@@AR#Y^(+A#K^*3')J@6)OC )@@G@@RB0@@E @@@@IW8)@@A')J@6&O')@@[8L@@3/C[I^:ZR#0^*9T80@@AP#0^*'T80@@AC[K^*\OD )@@G@@AB0@4SAB0@4T;D@@@@;!@@@@[[I^:ZR])^*,R]K^*9P'K@@[/K@@4)8]@@4&R'@@@NR;@^*.OE )@@G@@'^@@0NR#@^*.O;@@@OA#@^*.R'0@@ C9@@@"R;K@@@R#'^:ZR;)@@@;?)@@A?[@@@IR#)@@KOF )@@G@@;*)@@Y;?K@@A8]0@4%A#U^:ZR;E=:Z'^@@0N8]K@4Z'^@@0Q/,0@02@@[^*(@@@^%"@49^*"OG )@@G@@'^@@0Q/K@@2XR;@ 9:'=@@!/'=@@@D/K@@!(R7) 98:@)^*0/K@@5F:@)^*1/K@@5SR;)^:BOH )@@G@@A#)@5:/K@@5$R;)^:GA#)@5:/K@@5$/,0@02@@[^*(@@@^(_@5I^*"R;@^*8'^@@0N'^@@0QOI )@@G@@R#@^*8!@@^(^/K@@4/O;@@@[A#@^*8/K@@2X/,0@02@@[^*(@@@^%_@5V^*"'^@@0Q/K@@4/OJ )@@G@@/K@@@@A#@ 99R;@@@[AF@ 99R;@@@+A3@ 98R;@ 95'=@@@#/K@K5YA#@^()A#K^(-/,0@02OK )@@G@@@@[^*(@@@^:K@5?^*"'^@@0Q/,0@02@@[^*(@@@^:#@51^*"R;@ 98'^@@0N'^@@0Q'=@@@DOL )@@G@@/S@@@@R;0@@\C9@@@9C9K@@@C9)@@@;!)@@A:[)^(]/K@@5',@0@@M/K@@6^H9)@@0T9K@@EOM )@@G@@G[K@@M/K@@5'*@@@@L[[U@@@/K@K56/S@@@@R#K@@C;CK@@MR3*^:X(@@@@I/K@@6X?@K@@ION )@@G@@/K@@6X!@)@@H/K@@6PR<*^:XO]@@@IO'@@@[/K@@6ER<*^:XC[8^:YC'@@@@!8)@@]C]C^:ZOO )@@G@@O+C^:XO]@^*2/K@K6BC90@@@O]@^*,/K@K6BR7K^*3R3K^*3R\K^*3R:K^*3R$K^*3RH *AO#@@@@@@OX )@@G@@@@N@E;NCNVT$ K@#@@?G4=]O @@@@@@@]T@FI@@4^]NNCLOS$ K@#@@3M,L^N^OY )@@G@@@@@@@@@[K@H$@@R^#BNWBLK$ K@]@@9G21[@@@@@@@@@[O@I7NBSBL$ K@]@@_OZ )@@G@@G0']O @@@@@@@@Y@KFNUPDA$ K@]@[ G2&[@@@@@@@@@@P@K(NCBD$ K@#@[GPA )@@G@@I[C @@@@@@PG )@@G@@@ +@*B@[K^-B@@@@@@@@(^+RNTAB$ K@#@]VHB0AO#@@@@@@@@@@@@@@Z^<@NSTOP$PH )@@G@@ K@#@]+K :FP#@@@@@@@@N@!(@@A^BBOPEN K@]@]3C&"^] @@@@@@@[1@,SERU$ PJ )@@G@@ K@@@]7D>L^X NIER$ K@#@]"OMZ[D^@@@@@@@@$@0D@[O^$ONOBUF$ PK )@@G@@K@#@# HF5#O @@@@@@@@-@00@@[^**RWDUMP @@Z@@@F"?BL @@E^*(@ V@1L[L]^*3PL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PN )@@G@@@@@@@@@@@@@@@@@@@@@@T 95@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PP )@@G@@ *!DC! *! *! *! (D *! *! *! *!DC! *! *! *! (D *! *! *! *!DC! *! *! *! (DPQ )@@G@@ *! *! *! *!DC! *! *! *! (D^@)@X@[@[^@)^@)^@)^@)^@)^@)^@)^@1 0)^[D^@)^@)PR )@@G@@^@1^@)DC)^@)^@)AC)^[D^@)^@)^@1^@)DC)^@)^@)A@)^[D^@)^@)^@0^@)DC)^@)^@)A@)PS )@@G@@^[D^@)^@)^@0^@)DC)^@)^@1A@)^[D^@)^@)^@0^@)DC)^@)^@)A@)^[D^@)^@)AC3@X@[@[PT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[D^@)^@7 07^@)DC)^@)A8,A8)^[D^@)^@7 07^@)DC)PU )@@G@@^@)^@,A@)^[D^@)^@) 00^@)DC)^@)^@,A@)^[D^@)^@) 00^@)DC)^@7A0,BC)^[D^@)^@)PV )@@G@@ 00^@)DC)^@)^@,A@)^[D^@)^@2 03@W@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@)^[D^@)AC2PW )@@G@@ 05^@)DC)^@)^@,A8)^[D^@)^@7 07^@)DC)^@)^@,A@)^[D^@)^@) 00^@)DC)^@)^@,A@)PX )@@G@@^[D^@)^@) 00^@)DC)^@)A),A@)^[D^@)^@) 00^@)DC)^@)^@,A@)^[D^@)@W@[@[^@)^@)PY )@@G@@^@)^@)^@)^@)^@)^@)^@)^[D^@)^@) 02^@)DC)^@)^@,AK)^[D^@)^@) 02^@)DC)^@)^@,PZ )@@G@@A@)^[D^@)^@) 00^@)DC)^@)^@,A@)^[D^@)^@) 00^@)DC)^@)AC,B@)^[D^@)^@) 00^@)QA )@@G@@DC)^@)^@,A@)^[D^@)@W@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@) (D *! *! *! *!DC! *!QB )@@G@@ *! *! (D *! *! *! *!DC! *! *! *! (D *! *! *! *!DC! *! *! *! (D *! *! *!QC )@@G@@ *!DC! *! *! *! (D *! *! *! *!DC! *! *! *! (D^@)@#@[@[^@)^@)^@)^@)^@)^@)QD )@@G@@(U@@@[^@)^@2 0)^[D^@)^@)^@1^@)DC)^@)^@)AK)^[D^@)^@)^@0^@)DC)^@)^@)BC)^[DQE )@@G@@^@)^@)^@1^@)DC)^@)^@)AS)^[D^@)^@)^@0^@)DC)^@)^@3AS)^[D^@)^@)^@2^@)DC)^@)QF )@@G@@^@)AC)^[D^@)^@)A*2@X@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@)^[D^@)^@1 09^@)DC)^@)QG )@@G@@AS,B@)^[D^@)^@) 00^@)DC)^@1A8,AS)^[D^@)^@1 09^@)DC)^@)A*,B@)^[D^@)^@) 00QH )@@G@@^@)DC)^@6AS,A*)^[D^@)^@3 08^@)DC)^@)AC,BC)^[D^@)^@9 02@W@[@[^@)^@)^@)^@)QI )@@G@@^@)^@)^@)^@)^@)^[D^@)AC2 05^@)DC)^@)AC,AS)^[D^@)^@) 00^@)DC)^@2AK,A@)^[DQJ )@@G@@^@)^@2 07^@)DC)^@)A0,A@)^[D^@)^@) 00^@)DC)^@1AS,A))^[D^@)AC2 05^@)DC)AC0QK )@@G@@A@,A@)^[D^@)@W@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@)^[D^@)^@) 02^@)DC)^@)^@,A))QL )@@G@@^[D^@)^@) 00^@)DC)^@)AC,A0)^[D^@)^@) 02^@)DC)^@)^@,A*)^[D^@)^@) 00^@)DC)QM )@@G@@^@)A*,B@)^[D^@)^@) 04^@)DC)^@)^@,AK)^[D^@)@W@[@[^@)^@)^@)^@)^@)^@)^@)^@)QN )@@G@@^@) (D *! *! *! *!DC! *! *! *! (D *! *! *! *!DC! *! *! *! (D *! *! *! *!QO )@@G@@DC! *! *! *! (D *! *! *! *!DC! *! *! *! (D *! *! *! *!DC! *! *! *! (D^@)QP )@@G@@@X@[@[^@)^@)^@)^@)^@)^@)^@)^@8 0)^[D^@)^@)^@6^@)DC)^@)AC4B@)^[D^@)^@)AC2QQ )@@G@@^@)DC)^@)^@3AK)^[D^@)^@)AS6^@)DC)^@)^@4A8)^[D^@)^@)^@2^@)DC)^@)AK0A))^[DQR )@@G@@^@)^@)AC4^@)DC)^@)^@)A@)^[D^@)^@5A@1@X@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@)^[DQS )@@G@@^@)^@1 02^@)DC)^@2BC,A*)^[D^@)^@2 04^@)DC)^@)A0,A))^[D^@)^@7 02^@)DC)^@)QT )@@G@@BC,A))^[D^@)^@) 04^@)DC)^@4A@,A8)^[D^@)^@2 08^@)DC)^@)^@,A@)^[D^@)B@8 05QU )@@G@@@N@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@)^[D^@)A85 00^@)DC)^@9B@,A@)^[D^@)BC2 03QV )@@G@@^@)DC)^@7B@,A@)^[D^@)BC7 03^@)DC)^@9A),A@)^[D^@1(D@@@[A@0 00^@)DC)^@8AK,QW )@@G@@A0)^[D^@)B@7 05^@)DC)^@)^@,A@)^[D^@)@W@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@)^[DQX )@@G@@^@)^@1 01^@)DC)^@2A0,AC)^[D^@)^@2 01^@)DC)^@)A*,A8)^[D^@)^@6 04^@)DC)^@)QY )@@G@@B@,AS)^[D^@)^@) 04^@)DC)^@3A0,A@)^[D^@)^@2 05^@)DC)^@)^@,A@)^[D^@)@W@[@[QZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@) (D *! *! *! *!DC! *! *! *! (D *! *! *! *!DC!RA )@@G@@ *! *! *! (D *! *! *! *!DC! *! *! *! (D *! *! *! *!DC! *! *! *! (D *! *!RB )@@G@@ *! *!DC! *! *! *! (D^@)@X@[@[^@)^@)^@)^@)^@)^[#D9GE(HD0)^@)^@)^@)^@8^@)RC )@@G@@^@)^@)AC5AC)^@)^@)^@)AC3^@)^@)^@)^@4AC)^@)^@)^@)AS7^@)^@)^@)^@5A@)^@)^@)RD )@@G@@^@)^@2^@)^@)^@)AK4A8)^@)^@)^@)AC6^@)^@)^@)^@)AC)^@)^@)^@5A06@X@[@[^@)^@)RE )@@G@@^@)^@)^@)^@)E-JE-[D))^@)^@)^@1 04^@)^@)^@2A0,A8)^@)^@)^@2 03^@)^@)^@)A8,RF )@@G@@AK)^@)^@)^@6 05^@)^@)^@)B@,B@)^@)^@)^@) 04^@)^@)^@4AS,A0)^@)^@)^@2 08^@)RG )@@G@@^@)^@)^@,AK)^@)^@1A@0 00@@@[@[@W__@[CTMD9NETOCD]ES)C1JEK)ETJCTDD9GD9BFC)RH )@@G@@A*4A))^@)C1[D-G^@1BC7B@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RI )@@G@@^@)^@)^@)^@)^@)^@)AC1 83A@\A88^@)^@)^@)^@)E[[C9 ^@)^@1A@)^@)@@@[@[@F@[@[RJ )@@G@@C1DD- ^@)^[ID9ICDHC*)^@) [#EL CDODDJD0)C-[E- ^@.^@1AC\AS0 87B@(^@)@W@]@[RK )@@G@@ K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K)^@)CS)EK)D8)ES)ES)RL )@@G@@E))CC)CK)E*)D))CC)E))DC)D8)D0)^@)D8)C0)^@) K) K) K) K) K) K) K) K) K) K)RM )@@G@@ K) K) K) K) K) K) K) K)@R@[@[^@)^@)E09^@)^@)^@)^@)E1[ELDCD]D- ^@9^@)^@%RN )@@G@@ L^C(#DS)D9IC*)^[#D9GE(HD0)AC4 K%^@)^@)^@)^@)^[]FC)^[QAK2^@)^@)^@)^[QCDMRO )@@G@@DD[CLGC*)AK2^@) K%C- CTF( @@@[^[JD1 ^@)CTJD-PD(I^@3A)% K)^@)@W@[@[ K) K)RP )@@G@@ K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K)RQ )@@G@@ K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K) K)^[KRR )@@G@@CDBC*)^@1^[JC0)^@1@@@[@[@A@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E02AK)@ @[@[RS )@@G@@^@)^@)^@)^@)^@)^@)CTJE(IE))^[D@X@[@[^@)^@)^@)^@)^@)^[MD9R^[KCTO^[D^@)^@)RT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ELJE8)@X@[@[RV )@@G@@^@)^@)^@)^@)^@)^[#D9G^[KCTO^[D^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RX )@@G@@^@)^@)^@)^@)^@)^@)^@)^[OD9OCDG@W@[@[^@)^@)^@)^@)^@)^[OD9O^[KCTO^[D^@)^@)RY )@@G@@^@)A@,DC)^@)^@)^@1 1D^@)^@)^@)AK,DC)^@)^@)^@3 1D^@)^@)^@)A),DC)^@)^@)^@5RZ )@@G@@ 1D^@)^@)^@)A0,DC)^@)^@)^@7 1D^@)^@)^@)B@,DC)^@)^@)^@9 1D^@)@W@[@[E09^@)SA )@@G@@^@)^@)^@)^@! *! *! *! (D *! *! *! *!DC! *! *! *! (D *! *! *! *!DC! *! *!SB )@@G@@ *! (D *! *! *! *!DC! *! *! *! (D *! *! *! *!DC! *! *! *! (D *! *! *! *!SC )@@G@@DC! *! *! *! (D^@)@X@[@[^@)^@)^@)^@)^@)^@)^@)^@1 0)^[D^@)^@)^@0^@)DC)^@)SD )@@G@@^@)AK)^[D^@)^@)^@2^@)DC)^@)^@)AK)^[D^@)^@)^@2^@)DC)^@)^@)AS)^[D^@)^@)^@1SE )@@G@@^@)DC)^@)^@)A8)^[D^@)^@)^@0^@)DC)^@)^@)A@)^[D^@)^@)AC9@U@[@[^@)^@)^@)^@)SF )@@G@@^@)^@)^@)^@)^@)^[D^@)^@) 00^@)DC)^@1A@,A*)^[D^@)AC0 05^@)DC)^@1A@,A*)^[DSG )@@G@@^@)AC0 05^@)DC)^@1A*,B@)^[D^@)^@5 03^@)DC)^@3A0,B@)^[D^@)^@) 00^@)DC)^@)SH )@@G@@(#@@@[^@,A@)^[D^@)^@3 04@W@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@)^[D^@)^@) 00^@)SI )@@G@@DC)^@)AC,AS)^[D^@)AC5 04^@)DC)^@)A),BC)^[D^@)^@5 04^@)DC)^@)A0,A@)^[D^@)SJ )@@G@@A*0 00^@)DC)^@)AK,B@)^[D^@)^@) 00^@)DC)^@)^@,A@)^[D^@)@W@[@[^@)^@)^@)^@)SK )@@G@@^@)^@)^@)^@)^@)^[D^@)^@) 00^@)DC)^@)^@,A))^[D^@)^@) 04^@)DC)^@)^@,A))^[DSL )@@G@@^@)^@) 04^@)DC)^@)^@,A*)^[D^@)^@) 02^@)DC)^@)AC,AK)^[D^@)^@) 00^@)DC)^@)SM )@@G@@^@,A@)^[D^@)@W@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@) (D *! *! *! *!DC! *! *! *!SN )@@G@@ (D *! *! *! *!DC! *! *! *! (D *! *! *! *!DC! *! *! *! (D *! *! *! *!DC!SO )@@G@@ *! *! *! (D *! *! *! *!DC! *! *! *! (D^@)@X@[@[^@)^@)^@)^@)^@)^@)^@)^@2SP )@@G@@ 0)^[D^@)^@)^@0^@)DC)^@)^@)AK)^[D^@)^@)^@0^@)DC)^@)^@1A))^[D^@)^@)^@3^@)SQ )@@G@@DC)^@)^@)AK)^[D^@)^@)^@0^@)DC)^@)^@5A@)^[D^@)^@)^@4^@)DC)^@)^@)A@)^[D^@)SR )@@G@@^@)A85@X@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@)^[D^@)^@) 00^@)DC)^@)AK,A8)^[D^@)SS )@@G@@^@) 00^@)DC)^@1B@,A8)^[D^@)^@4 00^@)DC)^@)AK,A8)^[D^@)^@) 00^@)DC)^@6A0,ST )@@G@@A8)^[D^@)^@5 03^@)DC)^@)^@,A@)^[D^@)AC3 03@W@[@[^@)^@)^@)^@)^@)^@)^@)^@)SU )@@G@@^@)^[D^@)^@) 00^@)DC)^@)AC,AS)^[D^@)^@) 00^@)DC)^@3A),AC)^[D^@)^@8 01^@)SV )@@G@@DC)^@)A),A@)^[D^@)^@) 00^@)DC)^@2A@,AK)^[D^@)AK5 00^@)DC)^@)^@,A@)^[D^@)SW )@@G@@@W@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@)^[D^@)^@) 00^@)DC)^@)^@,A))^[D^@)^@) 00SX )@@G@@^@)DC)^@)AK,A*)^[D^@)^@) 05^@)DC)^@)^@,A))^[D^@)^@) 00^@)DC)^@)B@,B@)^[DSY )@@G@@^@)^@) 07^@)DC)^@)^@,A@)^[D^@)@I@[@[^@)^@)^@)^@)^@)^@)^@)^@)^@) (D *! *!SZ )@@C@@ *! *!DC! *! *! *! (D *! *! *! *!DC! *! *! *! (D TA @EOF @COPY,OI TEMP.1000-001-001,1000-001-001. @FREE TEMP.