~B333~.005~599 ~00000~00000~00000 ~B407L~,835~/I99~H345~C345787~B342/~,835~M%U1814R~C833802~B362/~,835~M%U1834R~B418K~B362~.000199~B407~B521F~,835~L835I98~M805658~B4768074~,I98~L%U1W50R~B637~A806807~B441~L%U1W50R~B637~B676L~)835~/W49~H500~C500011~B497/~BZ00~M810658~)835~B558B~L%U1!00R~B637~B676L~B!00~L%U1!00R~B637~,835~L835I98~L%U1!00R~B637~L%U1!00R~B637~,I98~L%U1!00R~B637~B676L~)835I98~B!00~H675~H089~Y811089~BIY8000}~B~B~B~B~B~B~B~B~B~B~B~B~B000~H089~H726~Y811089~MIZ0717~U%U1B~M811812~L%U1000R~B727L~B000~U%U1B~S806812~V710812B~.000191~M717768~L%U1000R~B698E~.000111~B723~U99~999999 HEADR~W63~A~ ~!13~I~ ~ AAAXX HEADR **HEADING ROUTINE** *1-NO START LABEL 2-NO NAME * * * PROGRAMMED BY )0S * * B U Z Z B E L L E F L E U R )0S * ******* ******************* )0S * * ORG 335 DC @}@ -STANDARD GROUP-MARK START MCW @ @,81 )0/ )00 MCW @ @,81 )0A SW 1,335 -SW UNDER GM/WM * AALXX HEADR **LABEL READ/WRITE UP TO 4 UNITS** AALXX *1-UNIT 2-X WT-NONE RT 3-HIGH MOVE 4-COMPARE TO 230--SAME FOR 4 AALXX )00 RWD )01 -RE-WIND TAPE AALXX MCM )03,201 -MOVE AREA TO TAPE AREA )0C AALXX LCA 335,281 -LOAD GMWM TO PRINT AREA AALXX CCB *&6,T -BRANCH AALXX BSP )01 -ERROR BACK-SPACE AALXX RT )01,201 -READ TAPE )0S AALXX WT )01,201 -WRITE TAPE )0B AALXX BER *-17 -BRANCH ERROR TO BSP AALXX C 204,@1HDR@ -CHECK HEADER LABEL )0D BU *&13 -BRANCH IF NOT EQUAL )0D AALXX C 230,@)04@ -COMPARE TITLE )0D AALXX BE *&6 -BRANCH IF OK )0D AALXX W -WRITE ERROR LABEL )0D AALXX H *-3 -HALT FOR ERROR )0D AALXX W -WRITE )0E AALXX RWD )05 -SAME AS FOR UNIT 1 )0E AALXX MCM )07,201 - )0G AALXX LCA 335,281 - )0E AALXX CCB *&6,T - )0E AALXX BSP )05 - )0E AALXX RT )05,201 - )0E)0W AALXX WT )05,201 - )0F AALXX BER *-17 - )0E AALXX C 204,@1HDR@ - )0H AALXX BU *&13 - )0H AALXX C 230,@)08@ - )0H AALXX BE *&6 - )0H AALXX W - )0H AALXX H *-3 - )0H AALXX W - )0I AALXX RWD )09 -SAME AS UNIT 1 )0I AALXX MCM )11,201 - )1A AALXX LCA 335,281 - )1A AALXX CCB *&6,T - )0I AALXX BSP )09 - )0I AALXX RT )09,201 - )0I)1 AALXX WT )09,201 - )1? AALXX BER *-17 - )0I AALXX C 204,@1HDR@ - )1B AALXX BU *&13 - )1B AALXX C 230,@)12@ - )1B AALXX BE *&6 - )1B AALXX W - )1B AALXX H *-3 - )1B AALXX W - )1C AALXX RWD )13 -SAME AS UNIT 1 )1C AALXX MCM )15,201 - )1E AALXX LCA 335,281 - )1E AALXX CCB *&6,T - )1C AALXX BSP )13 - )1C AALXX RT )13,201 - )1C)1U AALXX WT )13,201 - )1D AALXX BER *-17 - )1C AALXX CC A -CARRIAGE CONTROL AALXX C 204,@1HDR@ - )1F AALXX BU *&13 - )1F AALXX C 230,@)16@ - )1F AALXX BE *&6 - )1F AALXX W - )1F AALXX H *-3 - )1F AALXX W -WRITE AALXX CS 332 -CLEAR STORAGE AALXX CS -CLEAR STORAGE AALXX CLEXX HEADR **GENERAL WRITE ROUTINE** *WRITE*1-OFLOW 2-CLEAR INDEX 3-SPACE 4-CW SWITCH 5-OPEN ROUTINE )00 SBR )0J&3 -STORE RETURN LINKAGE )0V C10XX CC )03 -CARRIAGE CONTROL )0C W -WRITE C10XX CS 332 -CLEAR C10XX CS -STORAGE C10XX BCV )01 -BRANCH OVERFLOW OPTION )0A C10XX BCV *&5 -STANDARD OVERFLOW )0/ C10XX B *&3 -SKIP TO )0/ C10XX CC 1 -CHANEL 1 )0/ C10XX SBR )02,0 -CLEAR INDEX OPTION )0B CW )04#1 -CLEAR WM SWITCH OPTION )0D )0J B 0 -RETURN LINKAGE )0V C10XX DIVXX HEADR *DIVIDE SUB-ROUTINE* *DIVIDE* DIVXXDVDEND,10,DIVSOR,8,QUOT,REM,NOSIGN )00 SBR )0J-3 -STORE RETURN LINKAGE MZ )01,)01&4 -SAVE SIGN OPTION )0X MZ )03,)01&3 -SAVE SIGN OPTION )0X MZ )01-1,)01 -CLEAR DIVIDEND SIGN CW )0J&)04&2 S -PAR1 DIVIDEND LABEL S -PAR2 NUMBER DIGITS IN DIVIDEND MCS )03 -PAR3 DIVISOR LABEL SW )03-)04&1 -PAR4 NUMBER DIGITS IN DIVISOR BCE *&67,)03, -PAR5 QUOTIENT LABEL OPTION S )03,)0J&)04&1 -PAR6 REMAINDER LABEL OPTION BM *&12,)0J&)04&1 -PAR7 X-NO SIGN CONTROL A *-6,)01&1 B *-25 A )03,)0J&)04&1 MCM )0J&2,)0J&1 MZ )03&3,)01&1 -TO CLEAR A *-6,)0J-1 C )03&4,)0J-1 BU *-65 SW )0J&)04&2 MZ )01&3,)0J&)04 -SIGN CONTROL OPTION )0X MZ *&1,)01 -SIGN CONTROL OPTION )0X C )01&4,)01&3 -SIGN CONTROL OPTION )0X BE *&8 -SIGN CONTROL OPTION )0X MZ )03&1,)01 -SIGN CONTROL OPTION )0X B 0 -RETURN LINKAGE )0J DCW #3 DCW #1 -EXTRA POSITION DC #)04 -SPACE FOR DIVISOR )01 DC #)02 -SPACE FOR DIVIDEND DCW @0 @ -WORK AREA & RECORD MARK DCW #2 -ZONE STORAGE AREA OPTION )0X )03 DCW #)04 -DIVISOR NOP )02&1 -LENGTH OF DIVIDE CONSTANT )05 EQU )01 -QUOTIENT LABEL OPTION )0E )06 EQU )0J&)04 -REMAINDER LABEL OPTION )0F ERRRT HEADR ERRRT EQU *&1 TAPE ERROR ROUTINE SBR ERRTU-1 MLNS ERRTU,ERRRT&43 TAPE UNIT ADDRESS MLNS ERRTU,ERRRT&48 MLC ERRTA,ERRRT&51 TAPE AREA ADDRESS MLC @ @,ERRCT BCE ERRHT,ERRCT,9 TRY NINE TIMES BSP 1 RT 1,001 WILL HAVE CORRECT A,B,AND D MOD ADDR A @1@,ERRCT BER ERRRT&32 B 000 ERRTU DCW #1 TAPE UNIT ADDRESS ERRTA DCW #3 TAPE AREA ADDRESS ERRCT DCW #1 ERROR COUNTER ERRHT BCE ERRHT&21,ERRRT&52,W IF USING AS WRITE FAIL RTN BSS *&5,G SWITCH G IS ON TO BY-PASS H ERRRT&25 OR TRY NINE MORE TIMES-TURN ON SW G H ERRTU-4 TURN OFF SWITCH G AND CONTINUE MLNS ERRTU,*&11 TAPE UNIT ADDRESS MLNS ERRTU,*&9 BSP 1 TO SKIP AND ERASE TAPE IF WRITE FAIL SKP 1 MLC @ @,ERRCT B ERRRT&45 TRY AGAIN HOSA) HEADR HOSA) SBR HOSB)&3 PRINT HEADINGS AND PAGE NUMBER CC 1 MLC @HEADQUARTERS@,271 W MLC @UNITED STATES ARMY OVERSEA SUPPLY AGENCY@,285 W CS 285 MLC @BROOKLYN, NEW YORK@,275 MLC @PAGE NR.@,307 A @1@,HOSC) INCREASE PAGE COUNT MCS HOSC),313 CC T W CS 313 CS HOSB) B 000 HOSC) DCW #5 INDXX HEADR **GENERAL BLOCKING ROUTINE** *BLOCKING* 1-LENGTH & INDEX 2-HIGH ORDER 3-SUBROUTINE 4-INDEX * 5- COUNT LABEL 6-CW WM SWITCH 7-BRANCH TO DCW 00000 -RECORD COUNTER )0V )05 DCW 00000 -RECORD COUNTER )0E )00 SBR *&26 -STORE RETURN LINKAGE )0X A *-6,*-7 -ADD TO COUNT )0G A *-6,*-11 -ADD TO COUNT )0X SBR )04,)01 -INCREMENT INDEX BCE *&5,)02&1,* -TEST FOR LAST RECORD B 0 -RETURN LINKAGE )0X B )07 -OPEN ROUTINE BRANCH )0G SBR )04,0 -RESET INDEX TO ZEROS B )03 -BRANCH TO READ/WRITE ROUTINE CW )06#1 -CLEAR WM SWITCH OPTIONAL )0F B *-18 -RETURN BRANCH )0W B *-22 -RETURN BRANCH )0F INXXX HEADR **GENERAL BLOCKING ROUTINE 2ND UNIT** *BLOCKING* 1-LENGTH & INDEX 2-HIGH ORDER 3-SUBROUTINE 4-INDEX * 5- COUNT LABEL 6-CW WM SWITCH 7-BRANCH TO DCW 00000 -RECORD COUNTER )0V )05 DCW 00000 -RECORD COUNTER )0E )00 SBR *&26 -STORE RETURN LINKAGE )0X A *-6,*-7 -ADD TO COUNT )0G A *-6,*-11 -ADD TO COUNT )0X SBR )04,)01 -INCREMENT INDEX BCE *&5,)02&1,* -TEST FOR LAST RECORD B 0 -RETURN LINKAGE )0X B )07 -OPEN ROUTINE BRANCH )0G SBR )04,0 -RESET INDEX TO ZEROS B )03 -BRANCH TO READ/WRITE ROUTINE CW )06#1 -CLEAR WM SWITCH OPTIONAL )0F B *-18 -RETURN BRANCH )0W B *-22 -RETURN BRANCH )0F MADXX HEADR MODIFY ADDRESS 005537123 )00 SW )0B-2 005637123 A )01,)0B 005737123 CW )0B-2 005837123 SW )0A-2 )0S 005937123 A )0A )0S 006037123 CW )0A-2 )0S 006137123 A )0/ 006237123 MPLY HEADR MULTIPLY SUBROUTINE MPLY EQU MLPCHK MLPCHK SBR PRODT&7 C MBLANK,001 BLANK MULTIPLICAND BE NOMLP C MZEROS,001 ZERO MULTIPLICAND BE NOMLP MCS 001,MQTY ZERO-SUPPRESS MULTIPLIER SW MQTY-4 C MBLANK-3,MQTY BLANK MULTIPLIER BE NOMLP MULTY MLC 001,MWORK MULTIPLICAND MLC MZEROS,MPROD MLC @0@,MLPCNT BCE MULTY2,MQTY,0 LOW-ORDER ZERO MULTY1 A MWORK,MPROD A @1@,MLPCNT C MQTY,MLPCNT BL MULTY1 MULTY2 BCE MULTY4,MQTY-1,0 ZERO BCE PRODT,MQTY-1, BLANK MLC @0@,MLPCNT MULTY3 A MWORK,MPROD-1 A @1@,MLPCNT C MQTY-1,MLPCNT BL MULTY3 ADD AGAIN MULTY4 BCE PRODT,MQTY-2, BLANK BCE MULTY6,MQTY-2,0 MLC @0@,MLPCNT MULTY5 A MWORK,MPROD-2 A @1@,MLPCNT C MQTY-2,MLPCNT BL MULTY5 ADD AGAIN MULTY6 BCE PRODT,MQTY-3, BLANK BCE MULTY8,MQTY-3,0 MLC @0@,MLPCNT MULTY7 A MWORK,MPROD-3 A @1@,MLPCNT C MQTY-3,MLPCNT BL MULTY7 MULTY8 BCE PRODT,MQTY-4, BLANK MLC @0@,MLPCNT MULTY9 A MWORK,MPROD-4 A @1@,MLPCNT C MQTY-4,MLPCNT BL MULTY9 ADD AGAIN PRODT NOP *&5 BRANCH TO ROUND-OFF B *-3 RETURN ADDRESS FROM SBR C MPROD-1,@5@ BH PRODT&4 A @1@,MPROD-2 B PRODT&4 NOMLP B *-3 MULTIPLIER OR MULTIPLICAND-ZERO/BLANK MBLANK DCW @ @ MZEROS DCW @000000000000000@ MLPCNT DCW #1 MQTY DCW #5 MWORK DCW #8 MPROD DCW #15 MULXX HEADR **GENERAL MULTIPICATION ROUTINE** BAMS *1-MPLIER LABEL 2-DIGITS 3-MPCAND LABEL 4-DIGITS 5-PROD LABEL *6-OPEN ROUTINE )00 SBR *&22 -STORE RETURN LINKAGE )0A)0W BAMS SBR *&15 -STORE RETURN LINKAGE )0/)0W ZA @?@,)0J -CREATE FIELD OF ZEROS )0A BAMS S )05 -CLEAR PRODUCT AREA )0A BAMS S PROD -CLEAR PRODUCT AREA )0/ BAMS C )0J,)01 -TEST FOR END )0A BAMS C )0J,MPLIER -TEST FOR END )0/ BAMS BE 0 -CLOSED RETURN LINKAGE )0W BAMS BE )0L&1 -OPEN RETURN LINKAGE )0F BAMS ZA )01,)0L -DIVIDE BY 2 )0A BAMS ZA MPLIER,)0L -DIVIDE BY 2 )0/ BAMS A )0L -MULTIPLY BY 5 BAMS A )0L - AND SHIFT BAMS A )01,)0L - RESULTS ONE )0A BAMS A MPLIER,)0L - RESULTS ONE )0/ BAMS ZA )0L-1,)01 - PLACE TO LEFT )0A BAMS ZA )0L-1,MPLIER - PLACE TO LEFT )0/ BAMS BCE *&8,)0L,? -TEST FOR EVEN NUMBER A )03,)05 -UPDATE PRODUCT )0A BAMS A MPCAND,PROD -UPDATE PRODUCT )0/ BAMS A )03 -DOUBLE MULTIPICAN )0A BAMS A MPCAND -DOUBLE MULTIPICAN )0/ BAMS B *-63 -CONTINUE MULTIPICATION BAMS )0J DCW #)02 -PLUS ZERO FIELD )0A BAMS )0J DCW @000000000?@ -PLUS ZERO FIELD )0/ BAMS )01 DCW #)02 -MULTIPLIER FIELD )0A BAMS MPLIER DCW #10 -MULTIPLIER FIELD )0/ BAMS DCW #)02 -MULTIPICAN )0A BAMS )03 DC #)04 - FIELD )0A BAMS MPCAND DCW #20 - FIELD )0/ BAMS DCW #)02 -PRODUCT )0A BAMS )05 DC #)04 - FIELD )0A BAMS PROD DCW #20 - FIELD )0/ BAMS DCW #1 -WORK BAMS )0L DC #10 - FIELD )0/ BAMS )0L DC #)02 - FIELD )0A BAMS M50XX HEADR **COMMON TAPE READ/WRITE ERROR ROUTINE** * COMMON TAPE READ/WRITE ERROR ROUTINE - DCW #1 -ERROR CONTROL COUNTER M50XX SBR *&50 -SET-UP RETURN LINKAGE BAV *&1 -RESET OVERFLOW LATCH S *-13 -ZERO ERROR CONTROL COUNTER MLNS M50XX&40,*&4 -INITIALIZE BSP INSTRUCTION BSP 1 -BACK-SPACE ERROR RECORD A *-6,M50XX-1 -INCREMENT ERROR CONTROL COUNTER BAV *&18 -TEN ERRORS RT 1,1 -READ/WRITE INSTRUCTION BER *-29 -TAPE ERROR TEST B 0 -RETURN TO TAPE I/O ROUTINE BCE *&5,M50XX&44,W -TEST FOR WRITE INSTRUCTION H *-28 -TEN READ ERRORS MLNS M50XX&40,*&4 -INITIALIZE SKIP INSTRUCTION SKP 1 -SKIP AND BLANK TAPE B M50XX&37 -TRY TO WRITE TAPE AGAIN M60XX HEADR **TAPE READ ROUTINE** * TAPE READ ROUTINE - MAC60 MAC60 *RT*1-UNIT 2-INPUT 3-INPUT AREA &1 4-EOR 5-ERROR 6-COUNT DCW @>@ MAC60 )00 SBR *&120 -SET-UP RETURN LINKAGE MAC60 MLC *-11,)02&14 -INITIALIZE READ-IN AREA MAC60 MLC *-18,)03 MAC60 MLC *&8,)05&44 -INITALIZE COMMON ERROR ROUTE )0E MLCWA*&8,M50XX&44 -INITALIZE COMMON ERROR ROUTE )0V RT )01,)02 MAC60 BEF EOR)01 -ENTER END OF REEL ROUTINE )0U MAC60 BEF )04 -ENTER END OF REEL ROUTINE )0D MAC60 BCE *&38,)02&14,> -NOISE RECORD TEST MAC60 BER M50XX -ENTER COMMON ERROR ROUTINE )0V MAC60 BER )05 -ENTER COMMON ERROR ROUTINE )0E MAC60 BCE *&55,)03,} -NORMAL READ TEST MAC60 BCE *&9,)03,> -SHORT LENGTH READ TEST MAC60 H *-3 MAC60 * -LONG LENGTH READ CONDITION MAC60 B *&39 -START/CHECK RESET TO ENTER H *-3 MAC60 * -SHORT LENGTH READ CONDITION MAC60 B *&31 -START/CHECK RESET TO ENTER BCE *&5,)02&1,} -NOISE RECORD SUB-ROUTINE MAC60 B *-69 -BY-PASS NOISE RECORD MAC60 BER *&5 -ERROR CONDITION PRESENT MAC60 B *-78 -NO - BY-PASS NOISE RECORD MAC60 BSP )01 -YES MAC60 B *-87 -RETRY ATTEMPT MAC60 A *-6,*&9 -INCREMENT BLOCK COUNTER MAC60 B 0 -RETURN LINKAGE MAC60 )06 DCW 00000 -BLOCK COUNTER )0F MAC60 DCW 00000 -BLOCK COUNTER )0W MAC60 INCLDM50XX )0V INCLD)05 )0E M70XX HEADR **TAPE WRITE ROUTINE** *WT*1-UNIT 2-OUTPUT 3-OUTPUT AREA &1 4-EOR 5-ERROR 6-COUNT DCW @}@ -GM/WM )00 SBR *&43 -SET UP RETURN LINKAGE MAC70 MLCWA*-11,)03 MLC *&8,)05&44 -INITALIZE COMMON ERROR ROUTE )0E MLC *&8,M50XX&44 -INITALIZE COMMON ERROR ROUTE )0V WT )01,)02 MAC70 BER M50XX -ENTER COMMON ERROR ROUTINE )0V MAC70 BER )05 -ENTER COMMON ERROR ROUTINE )0E MAC70 A *-6,*&14 -INCREMENT BLOCK COUNTER BEF EOR)01 -ENTER END OF REEL ROUTINE )0U MAC70 BEF )04 -ENTER END OF REEL ROUTINE )0D MAC70 B 0 -RETURN TO USERS PROGRAM MAC70 )06 DCW 00000 -BLOCK COUNTER )0F MAC70 DCW 00000 -BLOCK COUNTER )0W INCLDM50XX )0V INCLD)05 )0E OVLAY HEADR RETURN TO CARD LOADER 006337123 )00 CS 080 006437123 SW 024,056 006537123 SW 063,067 006637123 R 056 006737123 DCW #1 C0053712L RTAP) HEADR )00 MLNS )0J&3,ERRTU READ TAPE MACRO MLC &)02,ERRTA MLC @R@,ERRRT&52 MLC @/@,)03 FOR NOISE RECORD TEST )0J RT )01,)02 READ TAPE SBR )0M&6 FOR NOISE RECORD ROUTINE BER )0K )0O BEF )0L C )02&3,@1HDR@ HEADER LABEL BE )0J-7 BCE )0M,)03,/ TEST FOR SLR OR NOISE RECORD B )0N )0K CALL ERRRT TAPE ERROR ROUTINE B )0O )0L RT )01,)02 READ TRAILER LABEL RWU )01 C )02&3,@1EOR@ BE )0P B )0D USERS END OF FILE RTN IF PRESENT H *-3 END OF JOB HALT )0U )0P H )0J FOR NEXT REEL )0M MLC @ @,001 SBR ADDRESS FROM FALSE TAPE READ MLC @ @ BSS *&6,G SWITCH G ON TO BY-PASS TAPE ERROR BSP )01 FOR NOISE RECORD H )0J HALT-TURN ON SW G IF PERSISTANT-SKIP )0N NOP SCANX HEADR SCANX *1-POSCK 2-FOUND 3-NOFIND 4-LOW MEMORY 5-HIMEMORY 6-MIDPOINT C )01,)0F BH )0J )0F SBR )0J&13,)0F B )0J&7 )0F SCANX )0J SBR *&7,)05 SCANX C )01,)05 SCANX )0M SBR )0K&3 SCANX SBR )0K&6 SCANX SBR )02&3 )0U SCANX SBR )02&6 )0D SCANX )0K MCW )05,)05 SCANX SBR *&16 SBR )0J&13 SCANX BE )02 SCANX BCE )03,)03,. B )0J&7 TOVLY HEADR RETURN TO TAPE LOADER 006837123 )0K EQU *&1 006937123 )00 CS 080 007037123 RTW 1,1 007137123 BER )0J 007237123 B 007 007337123 )0J BSP 1 007437123 H 0,0 007537123 B )0K 007637123 TRLXX HEADR **TRAIL LABEL ROUTINE--2 UNITS** TRLXX *1-UNIT 2-WT-NONE RT 3-MOVE RECORD 4-REC CT 5-8 SAME 9-NO CC 1 TRLXX )00 MCW @-RECORDS BLOCKS@,326 TRLXX MCW @ READ@ )0S TRLXX MCW @WRITE@ )0B TRLXX B *&6 )0B TRLXX BSP )01 )0B TRLXX WTM )01 )0B TRLXX BER *-14 )0B TRLXX CC 1 -CARIAGE CONTROL )0Z TRLXX MCM )03,201 -MOVE RECORD )0C TRLXX LCA 335,281 -LOAD GM/WM TO PRINT AREA TRLXX CCB *&6,T -CARIAGE CONTROL & BRANCH TRLXX BSP )01 -ERROR BACK-SPACE TRLXX RT )01,201 -READ TAPE )0S TRLXX WT )01,201 -WRITE TAPE )0B TRLXX BER *-17 -BRANCH IF ERROR TO BACK-SPACE TRLXX MCS RT)01&128,332 -BLOCK COUNT )0S MCS WT)01&51,332 -BLOCK COUNT )0B MCS )04,319 -RECORD COUNT )0D W -WRITE TRLXX CCB *&6,L -CARRIAGE CONTROL & BRACNH )0B TRLXX BSP )01 -WRITE TAPE MARK )0B TRLXX WTM )01 - )0B TRLXX BER *-14 )0B RWD )01 TRLXX MCW @ READ@,305 )0E)0W TRLXX MCW @WRITE@,305 )0F TRLXX B *&6 )0F TRLXX BSP )05 )0F TRLXX WTM )05 )0F TRLXX BER *-14 )0F TRLXX MCM )05,201 )0G TRLXX LCA 335,281 )0E TRLXX CCB *&6,T )0E TRLXX BSP )05 )0E TRLXX RT )05,201 )0E)0W TRLXX WT )05,201 )0F TRLXX BER *-17 )0E TRLXX MCS RT)05&128,332 )0E)0W MCS WT)05&51,332 )0F MCS )04,319 -RECORD COUNT )0H W )0E TRLXX CCB *&6,L )0F TRLXX BSP )05 )0F TRLXX WTM )05 )0F TRLXX BER *-14 )0F TRLXX RWD )05 )0E TRLXX CS 332 TRLXX CS TRLXX WRITE/ HEADR PG/). DCW #5 PRT/). EQU 201 WRITE/ EQU *&1 PAGE HEADING MACRO N.F.ZICCARDI SBR )JOP&3 CC 1 CS PRT/).&131 CS MLC DT/.)#5,PRT/).&19 MLC @D A T E - @ A @1@,PG/). MLC PG/).,PRT/).&118 MLC @P A G E - @ W CS PRT/).&131 CS MLC @H E A D Q U A R T E R S@,PRT/).&77 W MLC @S U P P L Y A G E N C Y ,@,324 MLC @A R M Y O V E R S E A @ MLC @U N I T E D S T A T E S @ W CS PRT/).&131 CS MLC @5 0 , N E W Y O R K@,PRT/).&93 MLC @B R O O K L Y N @ CC S W CS PRT/).&131 CS )JOP B PRT/). WTAP) HEADR )00 MLNS )0K&3,ERRTU WRITE TAPE MACRO MLC &)02,ERRTA MLC @W@,ERRRT&52 WT )01,)02 WRITE TAPE BER )0J )0M BEF )0K B )0L )0J CALL ERRRT ERROR ROUTINE B )0M )0K WTM )01 WRITE TAPE MARK AT END OF REEL B )0C USERS ROUTINE FOR TRAILER,ETC WTM )01 NOT 2ND TM IF NO TRAILER RTN )0C RWU )01 H )0D USERS ROUTINE FOR NEXT REEL H *-3 END OF JOB HALT )0L NOP TO CONTINUE WITH MAIN-LINE WWWXX HEADR *MONITOR & CLOSE ROUTINE* *1-MONITOR CALL LABEL 2-NO REWIND 3-CLEAR PUNCH 4-CC 1 5-BRANCH 1 )00 CS 99 CC 1 )0D CS 199 )0C P )0C BSS )0J,G )0A H *-3 )0V SW 1 )0E R )0E B 1 )0E )0J RWD 1 )0A RTW 1,1 )0A LCA *&13,93 )0A B 1 )0A DCW @*)01 *@ )0S)0A DCW @*)01 @ )0B)0A 999999 HEADR END OF LIBRARY 007737123 ~BJ26G~BK12~L%U1001R~B!09013}~B~B~B~B~B~B~B~B~B~B~B~B~B!46L~B333~U%U1B~MK06K07~L%U1001R~B!75L~B333~U%U1B~SK08K07~V!58K07B~.000191~L%U1001R~B!46E~.000111~B333~,K41~LK41Z98~L%U1333R~BJ54K~BJ26~U%U1B~U%U1B~)K41Z98~,P25~MK11!64~MK11J08~L%U1333R~B!46L~B333~I~ ~A~333~)K41~//38~/~/~MK40963~P900836~B!09~ ~00000~00000~00000 ~,/39~U%U1R~U%U6R~F1~/332~/~B 21~B525C~L%U1V00R~H089~D0 0~,~N0000~B759~B798L~L%U6V00W~B928L~B 21~L%U1V00R~CV19 70~B411/~L%U1V00R~B448K~B411~B498 723~L%U1V00R~N0000000000000~B759~B798L~A 71 72~B448~/199~/080~,006016~,021~BN32~BV00~L%U1V00R~H089~D0 0~,~B601K~B759~B798L~N580~, 79~CV10 78~B580/~) 79~L%U6V00W~B928L~B 21~B525~U%U6M~V727 801~B 21~L/39I98~V637/261~B669~U%U6E~M%U6V00W~B669 812~A 71 82~B637~M/25243~2~F1~V692/261~U%U6R~U%U1R~.000122~B 21~S 82~M/27556~, 80~B525~V750 791~) 80~M/28556~B593~U%U6B~B593~H797~H094~Y/29094~BIP4V13}~B~B~B~B~B~B~B~B~B~B~B~B~B000~H855~H099~Y/29099~MIG6846~D842830~U%U1B~M/29/30~M%U1000R~B856L~B000~D842866~U%U1B~S 71/30~V839/30B~D842896~.000190~M846911~M%U1000R~B827E~.000111~B852~H998~H099~Y/29099~MII4989~D985960~U%U6B~U%U1E~B999/311~A 71/32~M%U6000W~B957L~B000~S/32~D985 16~.000160~B982~H 55~M/35 35~/I99~H 35~C 35/38~B 32/~B000~999999 HEADR~A~ ~999999~ ~ ~ ~1401 AUTOCODER SYSTEM COPIED ON TAPE UNIT 6~ ~N~B~I~ ~ ~I99~U99 ~U%U1R~)?91?98~M?30780~L/39181~M%U1101R~N0000000000000~B759~/180~BM17~BL24~VV84?731~VV84?791~BV60~BN94~C011?36~BK40S~C008?39~BX30S~BP75U~M008?39~SA67~VW56?911~BM17~VW56?911~BM95~BW28~VW89?981~C108?39~BX30S~)?91~BW89T~BW48~U%U1B~/180~)?91~VQ01?791~C022?41~BQ01/~BO37~BY06~C022?41~BY46/~M?46218~BO37~SA67~BO72~BM17~VX77?911~BX57~U%U1B~/180~)?91~VV60?791~BN94~BO37~SA67~BL24~VV84?731~VV84?791~BL07~BO72~BM95~BY10~S101~VY810212~C024?41~BX42S~A?47099~,023~,?48~BZ160B1,~C0B2?41~BZ16S~A?49099~BY85~?0B0?53~A?54?53~BZ420B1,~B!08~,0B2~H094~A?49099~C0B2?41~BZ50/~?0B0?58~A?54?58~C?53?58~BQ59T~BK20S~)?48~)0!1~)023~V!27?481~M?63218~BO37~C?53A67~B!70S~A?49A67~BM95~BM17~VQ84?911~B!31~VJ46?481~BO72~BM17~C?58A67~BJ10U~VQ84?911~B!78~U%U1B~/180~S?49A67~VY10?791~BN94~BO37~BJ77~VJ73?731~BO72~S?49A67~/180~BJ26~BM95~BL24~VV84?731~VV84?791~BL07~)?64~BO72~S?49A67~BJ73~V!00?731~,?48~B!04~BM95~BM17~BM95~VK60?981~BK40~U%U6M~M?67780~) 79 80~)/26~/332~/~F1~M%U1101R~B593K~BK90~HL23~M080180~M~M~B000~HM08~VL40?851~BK40~1~)?73?79~C020?72~BL68/~,?73~BM00~C020?78~BL88/~,?79~BM00~C020?84~BK36S~BM09A~B000~)?85~BM05~HM94~M%U1101R~,181~N000000000~B759~B798L~)?91?98~C120?90~BM91/~,?91~C111?97~BM91/~,?98~B000~HN31~C180?27~BN28S~M%U6101W~B928L~/180~B000~HN93~/332~/~MA30251~MA34275~A?49A37~ZA37279~2~FK~/279~MA63227~2~FK~/228~B000~HO36~FK~/332~/~M072271~M022221~M020218~M011212~B000~HO57~2~FJ~/332~/~BO58@~B000~HO71~F1~BN32~B000~HP74~,220214~,207~BP32106*~M172271~M120218~M111212~VP45?641~,?64~BP53~M172273~M~M~BP16~DA67204~Z~A?49A67~2~/332~/~BO58@~B000~/332~/~MB07240~2~F1~.000133~BP90~VQ210212~C024?41~BX22S~MB25299~2~FL~/299~BL24~VV84?731~VV84?791~BQ35~MB38299~2~FL~/299~)0!1023~BQ35~MB62299~2~FL~/299~VR10?981~BQ35~MB80299~2~FL~/299~MC02222~2~U%U1B~/180~BL24~BR41~ ~114~999999~ ~ ~DELET~B~ ~A~ ~0~ ~DELET~ ~V13~INSER~ ~DELET~ ~REPET~ ~HEADR~ ~999999~ ~1401 AUTOCODER - LIBRARY CHANGES~PAGE~ ~SEQ LABEL OP OPERANDS~ ~INPUT CARDS OUT OF SEQUENCE - START OVER~SUBROUTINE UNKNOWN~BAD STATEMENT~STATEMENT DOES NOT EXIST~SUBROUTINE UNKNOWN~END OF LIBRARY REACHED ~,?44~L?44181~/~/080~,006016~/332~/~F1~U%U1R~M%U1101R~/180~,106116~,121~BL28E~)R32~F1~BN59~1~MQ90O69~C020Q95~BJ19S~C020R00~BN06/~AR01O69~DR01R02~C008R05~BK96S~M020218~M011212~BJ85T~U%U1R~L?44181~M%U1101R~/180~,106116~,121~M%U1101R~BP67~BQ06L~C111R11~BL05S~C120R16~BJ85/~C008108~BJ85/~M008R05~FK~2~SR48~BN17~FK~BN81~M%U1101R~BP67~BQ06L~C120R21~BK58/~U%U1B~BM54A~B!67~MR28299~2~/299~MR31R05~BK96~BL60D~)R32~BL46G~BL60~AR01O69~DR01R02~BP19~)R33~BN59~M%U1101R~BP67~BQ06L~C111R39~BM54S~C120R44~BM35/~BN17~FK~HO83M31~BO97@~SR48~BN81~,106116~,121~BL72~/332~/~FK~MR62214~2~F1~/180~BM99R024~U%U1R~.000155~BM88~4~K8~BM83~.000144~BK96~HN58~MR67105~MR72120~BN47R024~BN48~4~MR77120~B000~HN80~M?03227~2~FK~/228~B000~HO83~C120?08~BO05S~VO70R321~/332~/~BO84106*~M172271~M120218~M111212~DR48204~Z~DR48104~M~A?09R48~M?10105~2~/332~/~BO97@~B000~M172273~M~M~BO39~F1~VP11R331~BP19~BN59~BO80~HP66~/332~/~M?34243~M?38275~A?09?41~Z?41279~2~FL~/299~B000~HQ05~H089~Y?42089~BIY8113}~B~B~B~B~B~B~B~B~B~B~B~B~B000~HQ38~U%U1B~M?42?43~M%U1101R~BQ39L~B000~U%U1B~S?09?43~VQ22?43B~.000191~M%U1101R~BQ10E~.000111~BQ35~2~PRINT~PUNCH~D~ ~ ~999999~HEADR~HEADR~UNKNOWN~999~ ~ ~999999~HEADR~ ~END OF LIBRARY~ ~INSER~HEADR~SEQ LABEL OP OPERANDS~HEADR~A~ ~1401 AUTOCODER - LIBRARY~PAGE~ ~I~ ~H099H03~HO66O75~BM06021 ~)W18~C007H48~B!31S~S095~C0080?0~H099~BZ35S~BM060?0@~AH49094~BW92~BO14~E00~B!89~554~B!89~457~BN37~452~BO14~D87~BO14~D74~BZ81~ ~B!89~424~B!89~414~B!71~ ~B!89~403~BZ47~393~BV72~373~BV41~020~B!89~368~BO14~D55~BV41~011~BV41~010~BO14~D30~BO14~D23~BV41~009~B!89~547~B/13~342~BV41~206~B!06~ ~L%U1001R~BZ21L~)W49~B101~U%U1B~N288~.~BZ00~S100~,021~BXK7~BN55~L0A9393~V333W181~BN55~L0A9383~B333~HO66Z95~BO14~E20~L0A9429~BO75~HO66!20~BO14~E13~L0A9565~BO75~MH52094~D008093~S100~BN55~L0A93M9~LH53343~BM06~D022404~YH54404~BM06~H089~V333W181~M0 2089~BN55~L0A90 0~H089~VM06W181~BJ08~H761~M086I97~,I92~M773I92~MH55I85~B750~DH56768~/086~MH61020~H099622~BK01~/086~,001~H089021~MH62073~M0?0L89~H094~M089H65~P0!10 0~H089~MH670 0~BL01073 ~MH65089~,0 0~MH69080~M079~)0 0~BJ35~)I92~BJ97~M0?00?0~H099~C0?0H54~Q099~BL12S~AH70099~BL470?0,~BK19~MH690 0~MH54073~BJ35~)I92~DH71768~BU60~ ~S100~BN55~L0A9349~B774~BM30006*~C020H76~BM46/~B721~BM06006*~BW50~DH56768~H099567~BO98~HQ99U97~C018H79~/086~MH84020~BN05S~HL79V06~BK01~HL79N16~BK01~L%U1341R~U%U1B~)568~BU60~BN55~M0A9452~B!89~442~HO13~,021~C0B2H69~AH70099~BO02S~BO060B0,~C099H86~BN59/~,W18~,0B1~B000~H094~M0!2H89~B 06~MH89094~CW260!0~H094~M0!0089~Q094~BO87S~BO750!0@~BO36~V333W181~BO25~LH535X6~BO75~HP20~/186~,101~M086186~B000~U07~L%U1101R~,332~M773332~M%U1101R~BS22~NP23~B101~BS22~NA35~MI19340~B119C~U%U4B~HN00Q88~H665~1~C018H92~BQ96/~BC19~BR43~BS22~NA35~CI95I02~B?05S~CI29H95~BQ60/~B205~B220~CI29H98~B119S~MI97086~,I10~BA44G~VR04I101~BO98~BU97~VR27I091~DH56768~BJ35~BR32~U%U4B~L331186~BU97~H?04~,I03~)W18~S100~BN55~?0A9I02~VR93W181~BN55~?0A9I07~)I03~/086~,001~B000~V?37I031~CI95I07~B?37S~BS22~NA35~B?13~BQ88A~1~C018H92~BQ12S~C018H95~B?75/~B205~B175~C018H98~B138S~VA03I031~)I10~BQ83~BC19~)I09~H182Q72~H234~MI08131~BQ40~Q88~M%U4I12R~VA85I091~H684A74~HB02B68~)I10~B642~M331086~,I09~H684B03~HM09C08~B642~/086~VB41I101~BC34A~1~C018H92~BB68/~BC19~BR43~BC49~CI95I02~BB72S~,I10~MI97086~B685~)I10~VB61I031~CI95I07~BB03S~BS22~NA35~BB84~HB71M10~BB03~HC33~M086331~B000~,I10~MI08B52~BB41~HC80~BS22~NA35~BC53I86Y~BC53I86Z~B000~@~001~INP~002~OUT~003~TAP~004~REA~005~PUN~008~CHE~006~PRI~@~007~LOA~@~012~BLO~013~UNB~014~FIX~015~VAR~@~081~STA~082~NON~083~TM ~@~084~ALL~085~IDE~@~199~UNL~200~NOR~@~201~9 ~202~12 ~@~076~REC~@~I9C~OUT~I9D~INP~@~045~REL~006STO~046~OVE~@~007~TAP~008~REA~009~PUN~010~PRI~@~011~STA~012~NON~013~MIX~014~CHE~015~IDE~026~RDL~016~TM ~@~018~1 ~019~2 ~020~3 ~021~4 ~022~5 ~023~6 ~024~7 ~025~8 ~@~027~729~028~733~@~029~NOR~030~UNL~@~037~REC~038~HAS~@~034~CLE~033~PRO~032~SCA~@~OVE~FOR~COB~VAR~CHA~FIL~MOD~CAR~ALT~REC~SIZ~PAD~BLO~IOA~WOR~IND~EOF~WLR~TOT~TYP~CHE~HEA~SER~REE~REW~@~TAP~CHE~DIO~FEA~IOD~LAB~ALT~EXI~VAR~COU~DRI~RWD~REA~INP~EX~7~1 8~$~ ~*~5~55555~ ~ ~, ~ ~1~6~ ~DTF~33333~52~ ~ALT~JOB~CTL~ ~ ~ ~N~ ~ ~ ~ ~00000~00000~0000~U%U4R~U%U5R~U%U6R~BP32B~B774~C018W05~B157/~F1~M080280~2~F1~B721~B774~C018W08~B642/~B6230241~D022191~B623W11 ~B~B~B627 ~ ~ ~B681~*~ ~,~;~;~ ~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~ ;~;~ ;~ ;~ ;~ ;~;~ ;~ ;~;~ ;~;~;~;~;~;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~;~;~;~;~ ;~;~ ~;~ ~ ~,~;~;~;~ ~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~ ~;~;~;~S337~M026W12~B721~B774~C020V71~B634006*~B670S~BO98~BV06~MW13743~B721~B774~B677006*~C018W16~B713S~B721~B821~BO98~BJ68~H761~M086I97~,I98~M773I98~NW17I86~BS22~N764~B000~000~M%U6I12W}~H809~/086~B798C~BM46A~1~K8061~BS22~N812~B000~M46~M%U4001R~)W18~B681021 ~HO66O75~S095~H099H46~C0080?0~H099~B984S~B6810?0@~AW19094~B851~B/13~612~B/73~ ~BO14~F95~BO14~F82~BO14~G08~B/13~611~B992~ ~B/13~593~BO14~F20~BO14~E77~BO14~E52~B/47~581~B/47~620~BO14~E33~S100~B8Q6~LW20571~BO14~F69~H/04~MW23W26~S095~C0B2W28~,021~B 90S~B/050B1,~C099W30~B 97S~M0B1WK4~AW31094~B/050943~AW31099~B 21~AW31099~,W18~B000~BN55~B/01~H089~M0 2089~C023W34~B/43/~LW200 0~B333~H089~M0 2089~BN55~L0A90 0~B681~HO66/87~BO14~G27~CW26W37~BO75/~BN55~BO750A9 ~M0A9607~BO75~H094~HT43~M0!3094~M0!8T01~M0!0T13~,T19~M0!7T21~AW39T21~)T19~DS97U28~DS97U17~MW40W41~M%U0000R~BT35T01W~B000K~BS94000}~B~B~B~B~B~B~B~B~B~B~B~B~BT44L~B000~SW31W41~DS97T61~U%U0B~BT83T01W~VU22W41K~BS94~AW31W43~U%U6E~BU07W425~BS87~SW43~.000262~BS87~.000290~BS87E~MT01U48~M%U0000R~.000201~BT40~L622567~L~H336M06~MW46O93~L186086~B721~BL91~BC49~U%U4B~M%U1I97R~M%U1I97R~HP30341~BS22~NP23~B341~H089~M0 2089~,021~M0213U9~BM06~DIOCS~BN55~A0A9W01~LW01373~SW02~B333~0000?~JOB~CTL~456~ ~M~DTF~W~ ~7~$~ ~ ~ ~52~1~YES~TAP~12~9~ ~ ~3U9 ~,~;~;~ ~;~;~;~;~;~;~;~;~;~;~;~;~;~;~;~ ;~;~ ;~ ;~ ;~ ;~;~ ;~ ;~;~ ;~;~;~;~;~;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~ ;~;~;~;~;~ ;~;~ ~;~ ~ ~)332~U%U1B~U%U1B~BP63~MI97086~B662C~H182Q20~B1670241~D022160~B167237 ~B~B~B171~S337~B183~B721~B?37~H204~M238Q67~M238?82~B000~H219~,Q51?66~B000~MI97086~B721~BQ20~456~N ~ ~D432768~HJ60433~L186086~BJ35~)I92~,606~M773606~BS22~N412~)606~U%U5R~BS22~N423~BZ00~ ~L%U5434W~U07~L%U1W50R~5~N~C!73W14~BT08/~BO33~BH50~U%U5R~U%U1B~U%U1B~U%U6M~U%U6R~MW01003~LI98036~M%U5001W~U%U5M~U%U4R~)187036~)100~M%U1I97R~,I98~B543K~B522~M%U1I97R~,I98~S605604~V574604K~B543~/466~/~/~BW50~N594~BM65~Y34~L%U1K10R~11~A ~H094~HX70~M0!3094~M0!8X29~M0!0X41~,X47~M0!7X49~AY93X49~)X47~DX25Y55~DX25Y44~MY94Y95~M%U0000R~BX62X29W~B000K~BX22000}~B~B~B~B~B~B~B~B~B~B~B~BX71L~B000~SY96Y95~DX25X88~U%U0B~BY10X29W~VY49Y95K~BX22~AY96Y98~U%U6E~BY34Y975~BX15~SY98~.000262~BX15~.000290~BX15E~MX29Y75~M%U0000R~.000201~BX67~HEADR~12~9~ ~1~ ~M340H10~M~MW12!55~BW50~NZ68~)W49~,I98~M187I98~)I95I97~BZ77B~U%U1R~M!55189~B101~Y34~L%U1001R~BW50~NZ68~) 43~U%U1R~MH10W01~M!58L04~HN73156~M!59O41~M!59O37~M!59O89~B101H07*~M!59759~B101~ ~106~N ~VJ080 3S~VD410 3B~MH44086~)0 10 4~B?41~MW140 3~B!97~MH45L01~MH44N66~MU60075~BJ58~MH44K20~MU62075~MW08094~,021~BK90092Y~C0!0H48~BK09S~C0!0023~Q094~BK16S~BJ69~M0230!0~)021~NR17~BM05~BL01020D~L011466~H099~S090~BM19~,001~L0/90?0~H099~BL090S0 ~BN390S0,~BK51~MH49086~BO33~B467~BU15~LH460?0~/086~M466011~M460025~Q099~MH44016~MU61075~)024~BO33~/086~BL010?0 ~MH69018~M099094~BG46~M0?00S1~Q099~BL45~BO33~,006~BK28~52~HN12~,021~BN130S1@~BM980S1,~C0S1H47~BN09S~AI07089~C089M18~BM23/~C072H47~BN09S~BN09072 ~BN02~,0S2~AI07089~B000~?I11090~BM550S1@~SI08090~BN20~HO21~BN54~AI07089~C089M18~BO06/~NG80~B653~N~MU62075~BO33~BN70006*~S090~BW37021,~BN470S1 ~,0S1~B000~Y34~M%U6I12W~HO99~BO48~M955X65~M086I97~BO89I85*~MW13I85~,I98~M187I98~BW50~NO24~M958X65~B000~MH89075~BO33~AI07W01~M018192~SV19~S~S~S~S~S~S~S~S~S096~AH90095~M011466~H099~S090~BQ25021 ~BV20021,~AH90095~BH330953~BM19~L0/90?0~H099~BV200S1,~BV650S0,~LQ650?0~/086~CH72192~MH75H72~BR65S~BQ65U~U%U1R~,100~BW50~NB11~C020Y91~BQ65/~C008H75~BU63S~C008192~BQ65/~BR65~MH45K20~MU60075~BO33~BR65020D~MH80020~)188~MU61075~BO33~/086~,001100~M187100~BW50~NB22~C020Y91~M008H72~BL01S~C008H83~B?26/~,188~?H86090~BB310 1)~SI08090~C089H88~B?33/~S090~BM19~)0210S1~C089I10~BA26T~C0S1H47~B?64/~BA26006*~,0S1~MW12072~M072~)0S1~MH93089~HJ07A48~B 570 1)~SI08090~C089H95~BA40/~N466011~MH45A67~C019W05~BJ44S~C020U59~BJ44S~BR50~U63~M%U1001R~ 44~M%U1001R~HJ07?41~B?410 2 ~,0 10 4~VC560 3K~B/19~M099H98~S099W22~YW16W22~MI01099~SW22099~MI02097~C099I05~BC78T~M0G7073~HC47~)0 4~MH98099~M0?0000~)0 1~B?41~M069072~MW01~)0 10 4~B?41~L073I84~)0 10 4~MW14072~BD22099H~MI84072~HC47~BD33~MI84071~HC47~)I/5~BC30~VD531881~BR65~MI06A67~)188~BR65~MW01011~BA67~HG45~U%U1R~)V98~,100~M187100~BW50~NT44~C020Y91~BD92/~C008H75~BF56S~MW08089~BD92087Y~,006~C0 0008~Q089~BE42/~VD920 11~)006~,0 1~,V98~BW50~NT44~C019W05~BJ19S~C020U59~BJ19S~C020Y91~BE23S~MU61075~LI98100~BO33~BE90~MW08089~BG26087Y~C0 0H48~Q089~BG26S~VF630 11~VD83V981~BT75~,0 1~M0 3011~BO33~BF63~/!73~/~)100~MH75H72~B000~HG57~S090~V0000!01~SI08095~AI07089~BG54~/086~BW50~NT44~MU60075~,001~BN82~ ~MH89075~BK97~M099UR2~BV35~M099UR2~BP94~B~N~ ~7~U%U5B~BW50~NV89~B454~DCW~ ~999~B ~)00~690~15~R~3~015~04~ ~I99~I~I9F~M~10~510~ ~ ~00000~00000~000}~/!73~/~B1321891~N132~M959764~M959780~,885~,779~,762~B467H07*~M959526~M959533~B467 }00~*** ~ ~ ~B653~,001~HO99467~B758006*~C020964~BH11S~C020969~B758S~C018972~B795S~C020977~BU33S~C020982~B857S~C018985~BU78S~C019W05~BJ51S~C020U59~BJ51S~C020990~B918S~H099T74~C0180?0~H099~BP00S~B6330?0#~B605~B758020 ~B758016 ~BP00~H696~/086~B677~C~B934A~1~K6931~BW50~N699~B708074N~B471~934~M%U5001R~)665779~D991703~)762885~C!73999~B745S~BT08~M994U62~M~M~B693~BO48C~N~M995763~BO41~B795C~8~H917803~M959O37~BO33~B653~M996O37~H917471~B775008*~C016985~BU78S~C016972~B775/~BO33~B467~C!73999~B758S~BT08~BO33~B467~B896C~1~K1~M959763~HX65X71~HX70914~BX71~B471~C!73999~BS64/~B758~/086~,001~M 05019~BU78~881~X71~N~CHAIN~MLCWA~ENT~MA ~EX ~END~LTORG~4~SCR~8~B~ ~END$$$ ~U%U1R~SH72~BL01~VD680 3K~B/19~MW160 5~M089W11~M099094~BG46~AW11089~M0?00 1~MW11089~BA48~HS63~MW16099~MW16W19~D0 2W19~SW17W19~V/70W19K~AW18099~B/44~B!74UI00~MW16W19~MUI2099~D0 3W19~SW17W19~M0?00?0~QW22~B!740?0,~VS44W19K~MW22099~B/99~B!740?0;~VD410 3S~B000~MW27020~MT31075~BO33~BD79~/086~MT58021~MU61075~BK97~HT41~,001~/186~L086186~BD79~L186086~B000~D83~M%U1001R~LTORG*~#~RLS~GET~PUT~DTF~OPE~HU14~/086~MU78086~MW36020~MU61075~MW48006~B000~MU78L01~MU82N66~BE90~MU62075~BO33~M/92018~BP18~INCLD~Z~Y~W~BT75~M192011~BK97~BW50~NV89~B434~466~ ~ ~ ~ ~ ~ ~ ~ ~ ~AW18095~BH220953~LW280?0~H099~AW29089~,0S1~BV200S1,~M095H10~BN39~MH10095~BP79~Y34~L%U5434R0~000~CALL~!73~ ~ ~A~3~ ~ ~ORG ~;~1~UNKNOWN~MH10095~BV20~* ~ ~00000~00000~000}~/!73~/~/086~BW50~N132~B141074N~B541~141~M%U5001R~M172N74~M176~B467~/086~BW50~N132~BN75~1~/086 }00~*** ~ ~ ~HL04510~C!73W14~B506S~BT08~B506~C!73W14~BS64/~B525~B686C~B686A~/086~1~H509O33~M 15U62~M~M~C018 18~B697006*~B697/~S090~BM19~?0/9 22~BW50~N922~M 23I96~,I98~CI95 22~B631S~CI29 26~B 02S~BW50~NO24~B576~B6510S0,~BW50~NO24~BL01~BM19~?0/9 22~CI95 22~B931S~BW50~N922~B662~M 27602~B576~,001~HO99L01~BO48006*~C018 30~BO48S~C018 33~BH11S~C018 36~B879S~C018 39~BU33S~C018 42~B474S~C018 26~BU78S~C019W05~BJ51S~C020U59~BJ51S~C020T57~B494S~H099T74~C0180?0~H099~BP00S~B8590?0#~B831~BO48020 ~BO48016 ~BP00~BO33~1~B879008*~C016 26~BU78S~C016 36~B879/~B506~Y34~M%U4I12R~B943I86R~BL01~BW50~N922~CI31W16~B943S~M 27958~B943I86S~B943I86C~U%U4B~M943958~B510~MI97086~BU78~SCR~ALT~ ~R~END~N~MLC~CHA~ENT~MA ~EX ~H099~HK82~YM60099~MII0K73~DK69K49~MK73L82~U%U0B~BL55K73W~MM60M61~M%U0000R~BK83L~B000~DK69K93~U%U0B~SM62M61~VK66M61B~DK69L23~.000390~MK73L38~M%U0000R~BK46E~.000302~BK79~U%U1E~BL92M635~AM62M64~M%U0000W~BK46L~BK79~SM64~DK69M09~.000360~BL75~H099~HM52~YM60099~BIH8000}~B~B~B~B~B~B~B~B~B~B~B~B~B000~3~ 999~#~I~ ~A~ ~U%U6R~U%U5R~/I99~L%U1001R~N000~BK10L~,I89187~)?03~/080~,A69~U%U4R~MR20M35~MR21573~MR21558~M%U5101R~BM14~BK10L~U%U5R~M103R24~?R27184~B524~BQ53106*~C118R30~BQ53/~MR24108~M%U4101W~N000~BK10L~AR31184~B524~MR32573~MR33558~C118R36~BQ85/~/000~HR39~YP19P34~BP191216~YP97P34~BP191215~YP31P34~BP191214~BP97~CP34R39~BP66U~/I9I~HP34~CP34R42~BP31/~BP97~ ~/332~/~MR89242~2~BP88@~BP90~F1~MR47121~M122M53~?M53089~SR91090~A089~MR/1M55~C122R47~B419T~BQ991241~BQ92~U%U6B~M174173~MR96120~M~M174115~M~BO01~MR99463~M?00M59~M?02M55~B419~03~07~11~15~113~N~ ~101~JOB~A~B~M~CTL~ ~I99~6~ ~5~4~3~INCORRECT PROCESSOR MACHINE SIZE SPECIFIED~3?~JOB ~634~A~03 ~00000~00000~0000~ ~ ~ ~ ~ ~ ~ } ~ ~ ~ ~ ~ ~ ~L%U1M65R~N000~BK10L~MM59B93~L%U1626R~N000~BK10L~B626~L%U1626R~N000~BK10L~U%U1B~U%U1B~V661H091~B638~L%U1626R~N000~BK10L~B630~H553~B554~MI82180~M~M~M~M~MI88186~B000~H585~MR43M35~M%U6I03R~BM14~BK10L~B000~H625~)121~M%U4101W~N000~BK10L~,121~AR44184~B000~0 ~HO46~C118A56~BP55S~M118094~A118093~A118092~A116094~SA60095~VN09095B~LBN9A69~QN42~S096~L000A69~QN42~BP28A69@~CA69118~BN39/~LA66A69~CA71A69~BO47S~CA69A73~BO83S~CA69A75~BO83S~MA69115~H099~C099A78~BO43S~M?600?0~B000~C123A81~B464S~C352A85~B503S~V630?021~B638~VP17A68B~LA67A69~BO13119 ~MA86A69~BO13~LA87A69~BO98~LA54A69~VO13H091~VQ01?021~BO13~B/59119 ~LA54A69~M119A69~BO13120 ~)A69~,~M120A68~BO13~BO13114 ~M180412~M~M~M~M~M~M~M~M~M~/332~/~M180280~M~M~M~M~MB18332~2~,H09~BQ62@~B464~F4641~L%U1626R~B586~U%U4M~FK~/332~/~MB34260~2~F1~)K09~)I89187~L%U1626R~L%U1085R~N000~BK10L~B200~I15~A~CHA~S~Z~0?~ ~C~Y~&1 ~EQU ~$HIVAL &P ~626~B~ ~ ~$HIVAL~$P ~3 ~ ~ILLEGAL LABEL - SEQUENCE NUMBER~,~011~B ~ B~NOP~BCE~BIN~& B~E~BSS~&~$$~S02~ACTUAL OP CODES PRESENT IN FIXED FORM IMAGES~ ~ &~ ~EQU~&P ~032~000~@~52~P~00~LTORG~05~04~D~C~&X~-~I99~ ~550?~ ~N ~B ~2 ~111~SPS~AUTO~L~M~PROCESSING AS FIXED FORM RECORD~PASS 3 COMPLETED ~@~ ~ ~NNOP~C XFR~O LOR~I JOB~/CS ~0 DA ~S2WSS~#MA ~3 END~PMCM~N ENT~BRMRTB~ABBLC~ ~BMMBC~%D ~F3RM2 WDC~ FCCB~S1DUDCR~YMLZ~@M ~UEUSKP~O ORG~HSBR~K8 SS ~YMZ ~ ~)CW ~UWLWTW~B MLC~ZMCS~UWMWT ~MMCW~F2WM2 WDT~QSAR~R6WRF~S1EUECR~8SRF~)2WM ~1VBW ~9BBC9~1R ~URLRTW~F1RMRD ~F1RLRDW~MMU ~VBWZ~,SW ~RBBPC~CC ~C4PCB~DMLN~UMUWTM~EMCE~C EX ~ UCU ~ZBBAV~5RP ~.H ~LLU ~BWMWTB~ KSSB~KBBEF~PMRC~UBUBSP~URMRT ~SBBE ~3WR ~SS ~BB ~1 DCW~WBBE~J DSA~LLCA~A DC ~F1WLWDW~7WRP~ BBIN~KVBM ~PBBPB~9SPF~M SFX~4P ~F0RMSD ~@BBCV~!ZS ~O LTO~P EQU~ BBSS~F8 CC ~AA ~LBBER~/BBU ~BBCE~UBBH ~TBBL ~X DS ~F2RM2 RDT~AMMBD~2W ~F1WMWD ~DMN ~C1RCB~6WP ~XMIZ~ ~ ~?ZA ~ ~UUURWU~URURWD~R4RF ~ 0~BAV Z~BC9 9~BU /~BCV @~BE S~BEF K~BER L~BH U~BL T~BLC A~BPB P~BPCBR~BSS B~BSS C~BSS D~BSS E~BSS F~BSS G ~ ~B586~B524~,?02~)H09~B626106*~B991175 ~B991175L~B626175S~B626175Z~B626185R~C118R47~B722175C~B722175Y~B626/~B727~B991/~?122A14~B746A14&~B753~?A13A14~B765175C~B772~MR48175~B784175Y~B791~MR49175~B586~CA14R51~B811T~B630~M175R52~MR53175~BS46R52R~BS46R52S~MR54175~MA55174~M174~MR88~M~M~M174105~B586~M174111~SR44A14~CA14R51~B872T~B630~MR57115~B586~M173172~MR53175~MM58125~MR62~M~MR72~M173~MR75909~MR76969~B626~N630~MM58125~MR76 37~B 53~S100~S~S~C118R79~B 17/~B 53119 ~M120R88~M~C111R94~B969S~N 53~C110R99~B906S~B 96185R~BM65~M115R83~V626A691~C115?01~BQ75S~B626~,112~L115A69~)112~B/26115&~B~B~B~B 65~,A67~B 65112&~,A68~B 65113&~,A69~B 65~0~B/71A69 ~BS11~BO13A68A~BO13A681~BO13A68P~BO13A68J~BO13A68X~MA69115~H099~C099A78~BO43S~D0?0~MS72~BO36~B848R82&~MR78R82~YS53R82~B848~* ~B586~V503H091~)?02A10~B554~MI82412~M~M~M~M~M~M412180~MA54175~M175~M175120~M~M~M414186~M345111~M337~BY71340*~B778111,~B~B~B~B~B778110-~B~B~B~B~B778110#~B~B~B~B~B778110&~B~B~B~B~B778110 ~B~B~B~B~B798~/332~/~M?33231~Z184236~2~C347A55~BS70S~MA55R88~M348~M348118~S100~S~S~BM65~V854A691~BT40A69 ~B974349 ~B/84349@~BZ09~B950360 ~AR44094~M?341K1~AR44094~M?37089~B/84360@~BZ09~C348?40~B 40S~C348?43~B 18S~B974~C348?40~B 51S~C348?43~B 51S~C348?46~B/46S~V 29A101~B 29371 ~B 18115 ~V/541152~M3711K3~M?34~M387172~B626~M?49118~B 02~B 29371 ~M?52118~M?55115~S090~MA55120~CH/4371~B/15S~B 18H/9 ~A?56089~B 84~MH/3119~M~C118?59~B 18S~M371114~B 29~B 29371 ~M371114~M?60~M371120~M115~MA56~B 29~BS183V9@~B~B~B~B~B~B~B~B~AR44094~M?621K1~BS54~HA15~S?65A15~!A15~AA15089~AA15094~M3U91K1~C089?37~B874U~B922~BT28348 ~M348119~M371120~NT20~/332~/~MA09270~F1~2~F1~MR76S92~,A10~B828~MR88120~M~B828~V854A691~S100~DA68099~A099~A099~BTG1~BP28~BU84~BU73~BX60~BX60~BU73~BY89~BX88~BU21~M387159~M~M~M~B626~BU62349 ~MR76118~MA67A69~LA54~MA69115~MA12~B854~M371121~B626~.000301~BU73~BV51349*~AA54349~M118A18~M~MA21118~MA24~M353125~B586~M174173~M354111~MA18118~M~)372371~)360~BX15114J~BW69355&~BW69355-~BW69355@~D339089~D~AA54089~C089A27~BW80T~C089A30~BW80S~M3V51S1~MA31121~MA311S2~,372371~,360~B626~M387153~BW54~S090~BW333V6 ~AR44089~C089A33~BW33S~BW84~S096~M?37089~BZ09~M172173~M?60~BW54359 ~M359121~BW54~BX72349 ~BZ09~C?01A69~BQ67S~B626~BY33349*~BY08349 ~BY15~NA54349~MA21118~MA34114~BX60~,338~AA54339~)338~C339A36~BY15S~M339122~B626~M387153~M~M~M~M~M~M~M~B626~BX60116O~MA41120~M~BX60~HJ20~S100~BZ623V0 ~C099A43~BZ86S~AR44089~AR44094~AR44099~BZ17~C099A45~BZ86S~BZ863V1 ~BZ25~M3U91K1~C089?37~S091~B!16U~M?37089~BJ883V5 ~VJ213V5K~M?603V5~,3V63V5~AA543V8~AA46094~M3V81K1~M~)3V63V5~BJ323U9&~BJ323U9-~BJ173V9 ~AA47094~D3V91K1~MA49~B000~MA503V5~B!39~BJ583V9 ~AR44094~D3V91K1~BJ17~BJ703V8 ~BJ17~AA53089~AA53094~BJ58~BJ173U9&~BJ173U9-~B!75~0 }0~00000~00000~000 }~2SKB~99~00~ ~000?~0~L%U1N75R~N000~B221L~BN75~H099~H293~Y464099~MII0284~D280260~M284393~U%U0B~B366284W~M464465~M%U0000R~B294L~B000~D280304~U%U0B~S466465~V277465B~D280334~.000490~M284349~M%U0000R~B257E~.000402~B290~U%U1E~B4034675~A466468~M%U0000W~B257L~B290~S468~D280420~.000460~B386~H099~H463~Y464099~BIH8000}~B~B~B~B~B~B~B~B~B~B~B~B~B000~I~ ~A~ ~)I98~,199~B610~)199~B578~L%U1N75R~N000~B221L~)N74H99~MM83H45~B538~S100~S~S~B706~B610~H577~/080~,021~H446013~M%U4001R~B425~B221L~B000~H609~M%U5I18W~N000~B221L~MM86M91~B000~H705~MM91099~M180II7~M~M~M~M~M~M~M~M~M~M~AM88M91~B5780970~VJ85H921~V692H871~/080~,021~P001101~V4811991~S105~S100~S~S~B000~B520006*~D075735~Y075735~B520M950~B~B~B~M084180~V7580062~BV38~M018116~,N15~MM86M98~LH62N11~MN01089~B8170/5&~C089N04~AN07089~B790T~B7980/4&~,N/2~M015N11~S091~VN75N111~BC61N11 ~BN75~H932~S100~,0K1N15~AN12094~AN12099~B9250K0,~C0K1H60~B929S~C094N14~B933S~B875~)N15~B000~Y188105~B9291753~B534~HS32~MH59H77~M095100~C099N17~B/50U~B 17S~C0A8N19~B 17/~D0A91S7~AN22099~B970~B/340A8&~B~B~B 510A8-~B~B~B 510A8#~B~B~B/50~HH74~SN25H74~M094H65~DH74094~MN27~M0A9HP0~S095100~Y0B0HP0~D0B0H77~,1S4~AHP01S6~)1S4~MH65094~B970~HH74~B 270A8-~B 55~SM98099~C099N30~BS33T~AM98099~YH59099~MN310B0~MM98099~P0B11/7~H099~Y189099~MH59II9~DH771S3~B000~,N32~MM86099~Y187105~BS660890~MN35099~MN381G0~Y1891?1~VS29N321~BU09~HT85~,0K1N15~?N41100~BT290B1@~SN43100~BT10~C094099~BT94S~BT860B2,~C0B3H60~BT94/~S095100~AN44099~A099094~B000~)N15~BT61~Y187105~)N32~BS37~B860~MN450B0~NN12099~BT82~VU85N461~M%U1001R~L%U1N75R~N000~B221L~BN75~L%U1N75R~N000~B221L~B520175 ~B534175C~M%U1001R~M%U1001R~L%U1706R~N000~B221L~B706~HV77~M011113~M113H77~BW47~MH74156~AN12198~B000~HV93~BV94H76&~B000~?H75H76~BV82~HW27~VW24N151~Y187105~B000~HW46~?121H76~BV78~B000~HY10~?N44H64~BW70H77 ~BW77~MH86H77~?H75H71~AH77H71~AH77H69~YH59H71~?H48H84~DH84H85~?~BX46H85?~AH71H82~SN12H85~BX20~SN12H64~VX12H64B~SH76~BX70Z~AN48H79~BX70Z~YH78H74~MH81~DH79Y03~Y189H72~B000~BK44021@~BL01021#~BY58021&~BY58021-~M072073~MN49~,H89~B860~BY90022@~BW05~BY90175J~VK710222~MN52089~DN44175~Y021127~MH59021~VZ30175K~BZ37~YH59175~,H91~MN55M98~M034153~BL54022@~BL54022&~BL54022-~B952~Y127021~Y127140~MN57107~MN57094~B!68006 ~V!68175S~V!390062~B!68~M010121~BW28~MH76121~MH76161~B!89~A094H58~MN58117~AH58161~B534175P~B534175X~VJ85H911~M051153~M~M~M094107~C094N61~BJ85U~DN62075~VJ63175B~Y175075~MM91099~M080II7~,H92~B638~)H91H92~VK04H901~B534~BP31021@~BM00022&~BM00022-~BM00022@~BP31~S096~BS92~BW05~VL62H911~SN64095~B!11~SN66095~VK93H891~Y0210K1~)H89~B!11~,022~?024H76~BV78~Y189104~DH76094~M~C094N69~B!11U~Y188105~B!11~BK40022@~SN43100~M099H74~C099N72~BA57T~B?93022@~BB82~B610~MN73175~MH31072~M~M~M~MH33H32~BV38~S096~S~BY11~L%U1N75R~N000~B221L~BN75~L%U1N75R~N000~B221L~B706~0~000~8?~ ~RSWZ~ ~I9I~I9G~I99~ ~A~54~ ~04~&X~I97~ 23~00~00G~ ~ ~003~###~510~1?~B~@~ ~9F~&~011~001~03~*~030~8~3?~2?~053~006~/ ~/084~/I99~,021081~,101106~,108114~,117128~,139157~,162167~,123~,085H99~,H44185~)H87~U%U4R~U%U5R~U%U6R~MR16M91~B538~M080121~MR17175~,I98~B538~BQ71006*~C018R20~BQ71/~D021P29~BP37R13 ~B~B~B~BQ71~M021194~?021089~SR22090~A089~A089~MQZ7H48~MR23H45~MQZ4652~BQ520216~BQ520215~BQ330214~MR24194~LH99I98~B610~B489~LH9931Y~MR25~M31X~B469~LH9971Y~MR25~M71X~B469~MQ97H48~MR24194~U%U4B~BQ18~0015~3051~7087~7127~3456~000~I~CTL~3?~0~3~% ~0000?~ ~DCW ~ ~/ }~0000~00000~00332~ ~ ~ ~ ~ ~?~0~000000 ~MN11167~)G34~MG36107~VO05N111~BR06~BP310K1 ~B?770K1@~LH610K0~B860~M099H74~MM98099~BB510B1&~BB510B1-~B952~B?401S3#~AG37107~VP39G341~C089G40~BP31T~MG43089~VP20N151~BQ83~M094M98~BO05~VQ03N151~M0K1139~BP58139 ~BP80~BP800K2 ~M0K2139~AG44094~C0K3H60~BQ11S~Y187105~BQ11~BQ32139 ~AG44107~M107094~M1391O6~MH58161~AG44161~A107H58~MH59175~B534~AG44094~C094G46~BQ95T~BQ640K1 ~BP20~Y187105~BO74~MN10139~B?32N10 ~VO05N101~VR52N091~MN09170~MG47~B?21~C021G48~BO05U~BR95022,~C023H60~BR99S~MG51170~B?21~)N15~D021170~MN09~MG47~MG54094~Y189101~BO74~,G34~BR21~,1S4~M1S6G83~MG55~)1S4~MH621S6~M084G63~BA89~BS92~C099G57~BA57T~A099089~M0J91/5~BA430J8}~B~B~B~S100090~Y1901/7~M1921S2~BA82~YH621/4~Y~Y~Y~BA18~MH531S2~MG58~AG44H53~M084G63~M0J9GG8~M1S2G70~VZ90H901~M%U6G60W~N000~B221L~MH62G63~MH33H32~)N46~VZ90H911~BO74~C0B2G48~MH74099~BA57U~C099G57~BA57T~A089099~M0J91A4~Y1901S1~MM98099~Y0B11/8~MH74099~BA32~HC60~BC57117~M122H77~BW47~MH74170~B000~MN10175~S100~DN10099~A099~A099~BCI1~BM41~BY11~BD63~BG10~BF92~BD63~BD74~BF00~BD38~M080121~B534~MN09167~MH60175~MG36107~BP39~.000402~BD63~B860~BW05~B952~BE63124X~BE89117*~!G44H58~BE33117 ~VE781172~S095~BC28~A126H58~MH58161~B534016O~B610~BU31~!G44H58~BC28~BE40~BW28~AH76H58~Y189101~BE33~B860~BW05~B952~VF550212~BF44117*~B534117%~BC28~B534~?126161~B!82~?121H76~BV78~A126H76~B!50175P~AH76H58~B!75~M021117~M021H86~B534~B860~BW05~B952~B534016X~BU31~ ~01~C~010~011~A~51~%~0~###~002~#~07~$ ~U%U1B~U%U1B~,F31F55~,F58F57~BC14021X~BO340K2X~BC140944~AF18094~BO07~A0K1F17~AF19094~B860~?0J9F24~BC730K1X~BC910K1G~BD060K1 ~BC650K1C~BP060K0 ~Y187105~SH76~MF17H67~SF18H67~VP43H67K~AF24H76~BP17~MH76H67~MF25117~BP73006 ~VP980062~MH58F30~AF18F30~AH76H58~BQ20~M010121~)F31~BW28~MH76F30~MF30166~MF30~AF24166~SF18166~SF18F30~)F32~V?37F551~M180G54~M~M~M~M~M~M~M~M~M~M~MF33175~MH62180~MH62155~MH62127~,H87~MH62111~MF36116~MF38107~MF30161~CH67F42~BR82U~AF44161~Y189101~B610~SF44H67~BR41~CH67F48~B?20S~DH67107~D~AH67161~Y189101~B610~MG54180~M~M~M~M~M~M~M~M~M~M~,H87~?F18H67~CH67F17~BB70U~)H87~V?90F321~M166F53~AF18F53~,F32~B610~VE02H881~B538~BA02006*~C019H62~BD21/~M084180~BA45006 ~BV38~MF54175~S095~B860~?0J9166~CF24166~BC39U~BB520K0 ~B860~BW05~?0J9161~CF24161~BC39U~C161166~BC54U~AF30161~AF30166~V?60175K~B?37~Y188175~M166161~BB26~B610~VB89H881~Y187175~AF18H67~AF24161~AF24166~B?48~Y189104~?F18F17~?F18F24~BP06~HC53~Y187105~B000~Y188105~B?90~)F55~BC95~D0K2127~AF56094~BO59~)F57~AF19094~BO59~AF18F24~)F58~BC95~,H88~VE02F581~MF61125~MF65117~M~MF18175~MF67107~MF30161~AF24161~V?37F311~MH59117~Y189103~B?37~VE93F571~MF70116~MF71175~MF67107~MF53161~MF74125~VE75F311~MH59117~Y189103~B610~BE93~AF18H58~MF25117~BE67~U%U4B~B538~)H88G55~BM62~0000?~A~B~ ~*~ ~ ~ ~A~DC ~19~002?~1I~000?~ ~?~ ~C~ ~ ~@ @~DC *~01~DCW~1~@}@~ ~U%U6M~L%U6101W~N000~B221L~BO02K~L%U6101W~N000~B221L~U%U6R~U%U1B~U%U1B~U%U1B~)Q27~/080~,016H90~P001101~MH62180~S096~S~MQ15116~MQ18446~M%U6001R~B425~B221L~BP39K~M004170~MQ19175~BV38~BY11~B610~BO80~MQ22446~L%U6101R~B425~B221L~U%U6R~,N46~)H90~AQ24193~BP951920~BU68~AQ26191~AQ26191~BU68~DCW~013~/~113~1?~9F ~U%U6R~B610~M%U5I18W~N000~B221L~U%U5M~U%U5R~/085~)G59H44~)185~L%U1Z25R~N000~B221L~L198L93~L194L89~BM00~0 ~CL30L26~BX67S~AL36L30~ML30099~MIA7080~M~M~M~M~M~M~M~M~M~S100~S~S~B114~ML30099~M080IA7~M~M~M~M~M~M~M~M~M~BZ25~H089~H!76~YL37089~MIZ0!67~D!63!43~M!67J76~U%U0B~BJ49!67W~ML37L38~M%U0000R~B!77L~B000~D!63!87~U%U0B~SL39L38~V!60L38B~D!63J17~.000590~M!67J32~M%U0000R~B!40E~.000511~B!73~U%U1E~BJ86L405~AL39L41~M%U0000W~B!40L~B!73~SL41~D!63K03~.000560~BJ69~H089~HK46~YL37089~BIY8I31}~B~B~B~B~B~B~B~B~B~B~B~B~B000~L%U1001R~N000~B!04L~)Y68~BS90~L%U6001R~N000~B!04L~)Z24~BL42~I97~L99~ ~V00~ ~015?~ ~ ~080~#~000?~I18~8?~I~ ~A~ ~U%U6R~,Z24~L%U6001W~N000~B!04L~)Z24~BY13~ ~U%U4R~U%U5R~U%U6R~/I99~,Q66~LQ68L95~LQ72L99~LQ76L88~L%U1001R~N000~B!04L~)R02~ML89Q77~AQ78Q77~DQ77M89~Y109M99~LQ66I98~VP18M992~/79Z~/39Z~MQ79W81~BO20L894~MQ52L26~MQ56L18~MQ59L11~MQ62L34~MQ65Q82~AQ84L88~BO62L895~AQ87L18~AQ89L88~Y113L11~Y113L34~Y113Q82~BO62~MQ36L26~MQ40L18~MQ43L11~MQ46L34~MQ49Q82~AQ91L88~YL34K99~MQ82Z54~MQ82Z90~ML34X73~ML34X98~ML34Q94~#Q97Q94~MQ94K29~MW81L27~LQ66Z24~/080~,001006~,017024~,028035~,057062~,068071~L%U6001W~N000~B!04L~)Z24Q66~CL93L18~ML18L99~SL93~BY13S~BY13U~MR01L99~BY13~400~051?~/0 ~E9Y~EIX~800~087?~70!~A9Q~AIP}~00~015?~0015~ ~C~#~ ~7B~40?~4?~3F~ ~013~000I ~000 ~000 ~000 ~2SKB~2SKB~VZ77005K~BZ77075%~B219075 ~D075094~B8710940~MY92Y69~MY92Y68~A094~A094~B1P9~N000~B260~B260~B973~B992~BZ77~B376~B295~BZ77~BZ77~MY92Y69~B 03~B/09~VZ770032~A007Y48~SY93Y48~BZ77~B283017*~MY93Y67~B/09~BZ77~B 03~B/09~BZ77~B361017%~A027Y69~B260017*~V2600172~V3380012~B260~BU35~MY72S97~V/810012~B260~M019060~MY92~B260~V405033B~?061032~AY93032~Y113033~B432Y601~CY48Y58~B432U~?Y48Y58~B536008 ~MY96089~MY99S97~V4660022~B536~B502066 ~BT58~BW29~BS69Y641~BS69Y630~B/81~B/81Y591~B/81Y611~MY48066~AY93066~B474~V5480012~B761~B708017*~MY92Y61~SY48~B735017 ~MY92Y66~S090~BU35~B609Y661~MZ01Y60~B813~M061Y53~MY92Y59~B635024X~B669~B655017*~CY53Z03~B669S~MZ03Y53~AY93Y51~AY53032~?Y53061~?032Y48~SY93Y48~Y113001~BZ77~BZ77Y591~B598Y611~MY48Y53~B616~B598Y601~MY58Y53~AY93Y53~B616~?032Y48~SY93Y48~B821017*~MY92Y61~V8060172~V609001K~MY92Y59~SY53~BZ77~BZ77024X~VZ77034B~AY53032~BZ77Y591~BZ77Y611~Y113034~B761~B9260750~B910Y671~C061066~B906T~MY96099~B 03~BZ77075 ~B/09~BZ77~MY92Y69~A027Y69~MY93Y68~MY92Y67~B887017*~MY93Y67~B910~VZ77075B~MZ04X84~BX67~M017L23~BZ77~H 89~MY92Y67~V 90002K~V 86003B~B 86Y591~AY53061~AY53066~CY480F1~B 71T~?0F1Y48~B 86Y611~Y113003~B000~MY72S97~BT25075/~B 22~HS97~V/250022~BS94~BS80008 ~B/57Y671~BS07Y611~BS07Y591~BT58~BW29~BS98Y641~BS69Y630~MY93L94~AY93L93~BS50075/~BS94~B/81008$~BT58~BW29~B/81Y640~B/81M!0 ~Y112002~BS94~BS94008$~MZ01Y61~BS94~LL08M!9~LZ12~Y113002~MY93L95~B000~BS69M!0 ~Y112002~BT25075/~BS94~VS94004B~MZ05075~S007Y53~S007Y48~BS94~HU34~M013L08~M056Z08~BT88L08 ~BT95~ML23L08~M0W1Z12~BU170V70~Y111Z09~DY69U27~Y113Z11~B000~HU87~MZ15U34~M022L08~M070Z08~BT76~BW29~BV03Y641~BU88Y630~B000~LL08M!9~LZ19~BU84~BU84M!0 ~MY93Y66~VV30M!12~BV37~Y111M!1~MM!3061~BW18058%~VV670582~MY93057~BU84075O~Y060Z20~A026061~YZ20060~BW18027 ~DY69W14~Y113060~Y113001~BU84~HX66~MY65Y64~ML11L14~MZ08094~ML99L22~CL08M!9~BX45S~BX63M!4 ~AZ23094~SY93L22~VX56L22K~C094L14~BW61/~BX56Y621~MY93Y62~MZ08L14~S095~BW61~MY93Y64~BX63~MY93Y63~B000~M%U6I18W~N000~B!04L~NY73~SL31~M%U5I18R~BK08~B!04L~BZ37~MK99Y23~/000~HY23~CY23L02~BY20/~BX88~0000?~0000?~0033B~000~0000~0~0~0~0~Z77~U%U6M~U%U5R~U%U6R~BK47~0~1~005~536~11~0?~B~%~ ~ ~U64~ ~ ~010 ~00000~00000~00000 ~2SKB~2SKB~MU32U18~VZ77005K~BZ77075%~D075U33~B196U33 ~B318U332~B446U333~BS79U334~B489U336~B489U337~BZ77~V2080032~B215~MU34U18~?061U39~A007U39~SU34U39~BZ770071~BZ770072~V2640012~B268~B578~BZ770074~BZ770075~V2960042~BZ77~MU42099~MU45089~B578~BZ77~V3300032~B434~MU34U18~?061U39~MU42099~MU45089~V3700042~BZ77~B578~VZ770042~B409027-~MU48/78~BZ77071%~B 94~MU53L07~SU58L07~?L07U58~B390~V3370042~BZ77~SU39~V4620012~B466~B578~B4780753~BZ77~MU59X84~BZ77~V5010012~B574~B574017 ~V5740172~B574017*~B574017%~B578~V5740012~MU32U28~B567U337~Y112001~MU58061~BZ77~H/78~V5940?12~B/75~B9420/7 ~B9500/7%~VS210/72~B/900/7*~B6380F8 ~B804~M0S2U65~B657U65 ~B664~ML23U65~?U66U68~?U63U72~AU65U72~AU65U70~Y110U72~?L88U26~DU26U27~?~B740U27?~AU72U24~SU73U27~B714~SU73U68~V706U68B~MU760G0~B767Z~AU78U21~B767Z~YU200G0~MU23~DU21800~Y1090F8~M0S2L08~B823L08 ~B830~ML23L08~ML11L14~MU32U19~M0G0094~ML99L22~CL08M!9~B980S~B961M!4 ~AU81094~SU34L22~V961L22K~C094L14~B858/~B961U191~MU34U19~M0G0L14~S095~B858~SU58~B 49~M0/90G0~B/68~B/75U280~MU840G0~B/75~B961M!0 ~V 00M!12~B 07~Y111M!1~MM!3U58~MU32~B/79U55%~V 41U552~MU34U54~B 78U336~YU57U85~B 780S4X~A0S6U58~YU85U57~V/68075K~B/68U332~B 99Z~AU87U55~B 99Z~YU54U58~DU55/28~Y109U56~YU85U57~B/610S7 ~D0S7/57~Y113U57~MU580G0~Y1130?1~B000~MU570G0~B/68~BS020S2 ~B626~B/75U181~MU39U58~B 49~B6260/7#~B6260/7@~VS490/82~B626~?0S1U58~BS68U58&~B 49~?U57U58~BS56~M017L23~BZ77~,U30~L%U6U29R~)U30~/080~,001006~,017024~,028035~,057062~,068071~ML27878~MU88J15~MU88K01~MU88J42~ML34X73~ML34X98~MU89L23~BU07L950~B~BX88~MU34U28~BX88~0~0~ ~?~0~ } ~0~ ~1~ ~003~011~Z77~1600?~ ~B~ ~B~ ~ ~A~000~9F~010~###~ ~96~6~ ~M%U5I18W~N000~B!04L~NY13~SL31~M%U6I18R~BK08~B!04L~BZ37~U%U5M~U%U6R~U%U5R~L%U1333R~N000~B!04L~)S45~ML27474~ML27726~B333~ ~/332~/~S100~S~S~,/80~B474M!4 ~B474M!0 ~B530M!4)~CM!4/81~B441U~CM!4/82~B441T~DM!4099~V433M!4B~A/85099~V433M!4K~A/85099~,/D8~S101~V453M!12~B474~V502/801~)/80~B538~2~/216~A/85094~C094L11~B646S~B502@~B348~F1~MS04219~FT~2~/219~V461/801~B348~,/78~B441~H634~MM!92 6~B635M!0%~DM!32/2~D~D~D~V582M!02~MS052 8~V631M!22~DS052/5~MS07~V631M!2S~DS082/5~V631M!2K~DS092/5~B000~MM!32/2~B631~B859~S100~S~S~,S10~V687/D91~B888/D9@~AS11099~B656~B668/D9!~B668/D9 ~B668/D9/~M/D9725~B777M!4X~A/85094~C094L11~B718/~S095~S~AS11099~)S10~V812S181~,S18~B847~B726M!0 ~B538~,S18~AS14089~C089S17~B726/~2~)S18~/332~/~S090~V842S101~B888/D9@~B859@~V726S101~B656~H887~/332~/~F1~MS30212~2~FK~/212~B000~V898/801~F1~/332~/~/~/~B997U281~U%U1B~U%U1B~MS31J15~MS31K01~MS31J42~MS33L95~MS34L23~CL93L18~ML18L99~SL93~BK72S~BK72U~MS38L99~BK72~)U30~/I99~B 44L893~/79Z~/~/~/~/~/~/~/~/I99~H 27~C 27S41~B 24/~L%U1Z00R~B 68L~MS42Z00~BZ01~MS43S44~U%U1B~L%U1Z00R~B 97L~B 57~U%U1B~SS05S44~V 80S44B~.000691~L%U1Z00R~B 68E~.000612~B 57~ ABCDEFGHI!JKLMNOPQR /STUVWXYZ)@~ ~A~Z~010~UNREFERENCED LABELS~1~&X~2~3~ ~A~016~128~ ~SYMBOL TABLE~5~00~ ~000I~Y99~N~I~ ~B~/332~/~/~/~L%U1400R~N000~BM03L~)X99O93~,I98~LI98333~LI98181~MZ00407~MZ00O91~)I98~U%U4R~U%U5R~U%U6R~,172176~AO96175~BT15~CH48O99~B!78/~)P00~M%U5180R~L333181~MI02O85~MI10180~MI14P04~MH32P06~MH35P09~MH41P15~BT15~CH48P18~B407/~)P19~MH60P29~MI14P33~MH32P35~MH35P38~BT15~BK14P241~B407P220~B400P221~B407P222~B400P223~B407P224~B400P225~B407P226~B400P227~B407P22 ~)P39~B407~)O92~BJ34~U%U4B~,001006~,008014~,023057~,062067~,068071~,074~)181333~MO27O23~LP71171~LP75199~LP80101~L101~L~,O95~BL49O331~VL30O931~BL49~VL42O921~BL49~MP81O94~MP22O90~L%U6O21W~N000~BM03L~U%U6R~)O95~L%U1201R~N000~BM03L~B314~H094~HM75~YP82094~MIR0M66~DM62M42~MM66N75~U%U0B~BN48M66W~MP82P83~M%U0000R~BM76L~B000~DM62M86~U%U0B~SO96P83~VM59P83B~DM62N16~.000790~MM66N31~M%U0000R~BM39E~.000711~BM72~U%U1E~BN85P845~AO96P85~M%U0000W~BM39L~BM72~SP85~DM62O02~.000760~BN68~CLEAR STORAGE ~000?~080~ 3999~0~ ~0000~ ~ ~ ~ ~ }~A~JOB~ ~ ~ ~ ~ ~CTL~ ~ ~ ~ ~ ~ ~L0 , , , 1 ~2SKB~00000~1~I~ ~ ~BW37H43*~B~B/56~ ~ ~ ~ ~ ~ ~ ~MT64O33~B/03F~V422O931~F1~MT64215~MO20~MT64200~V544P191~CP21T65~B464T~B544~CP21T66~B540T~MT89152~LU18~M152272~BS17~MU33171~MU60~LU89~B651P214~B669P215~MU91O29~B683~)P39~MV02144~LV35~M144264~BS17~MV61170~LW05~B683P213~YW06127~MT64O29~B683P212~MW07127~MT65O30~B683P211~)P39~MW08127~MW10O30~B683~YW06129~MW11O29~B683~YW12129~MW14O29~M171291~MW15215~MO20~BS17~MW26171~MW44146~LW72~M171291~MW81209~BS17~V751O931~FK~V818P191~CP20T65~B818S~B814U~CP20T66~B814T~MW84O27~B818P204~AW84O27~B818~)P39~MT64314~MW88309~MO85278~M180290~MW89200~B 61~V867O931~FK~/278~MX25314~MX58234~MW89200~B 61~/332~/~B 61~V970P001~ZP04204~ZP06207~YP06207~MP09211~MP15219~MX61223~MO85278~B 61~/278~V 50P191~ZP33204~ZP35207~YP35207~MP38211~MP29236~MX64223~V 42P391~MX77328~AX78O89~B 61~BK22~MX93330~B 35~H/02~V 74O931~2~V 99O921~M%U3200W~N000~BM03L~B000~LW89P22~LW89O33~MX94P24~,O92~B/68B~B/79C~B/90G~BS01D~BS09E~)P22~MX95407~BJ26~AX78P22~B/33~AX96P22~B/38~AX97P22~B/43~)O92~B/48~,O93~B/53~HT14~Z175314~VS37O931~2~VS86O921~M%U3200W~N000~BM03L~MX98100~M%U3100W~N000~BM03L~BS95O330~4~AX78175~/332~/~/171~B000~HT39~M%U4H31R~BT40~BM03L~B000~BT19H43}~B~B~B~B~B~B~B~B~B~B~B~B~BT31~1~3~6~,053053N000000N00001026~,008015,022026,030037,044,049~1,001/001117I0?~#071029C029056B026/B001/099~L068116,105106,110117B101/I9I~15~,0570571026~,008015,019026,030,034041,045,053~B0010270B0261,001/001113I0~L068112,102106,113/101099/I99,027A070028)027~S~T~I~39~7~K~11~2~,0010011040~,061068,072/061039~,008015,022029,036040,047054~BOOTSTRAP~400~PAGE~0~SFX CT LOCN INSTRUCTION TYPE CARD~SEQ PG LIN LABEL OP OPERANDS~JOB~CTL~BAD STATEMENT~A~NO CONTROL CARD~ ~N~B~D~& ~L%U1!00R~N000~B334L~L%U6B98R~N000~B334L~U%U6R~)C72D56~)Z94H27~,333181~,U17~L%U6794W~N000~B334L~U%U6R~)U17~?D57F13~B543C711~BA24~B595~LP98195~L~L~B201~ }~H094~H406~Y538094~MIR0397~D393373~M397506~U%U0B~B479397W~M538540~M%U0000R~B407L~B000~D393417~U%U0B~S539540~V390540B~D393447~.000790~M397462~M%U0000R~B370E~.000712~B403~U%U1E~B5165415~A539542~M%U0000W~B370L~B403~S542~D393533~.000760~B499~I~A~ ~ ~LC68201~L~M%U1332R~)181333~L%U1!00R~N000~B334L~M201!01~M~B!02~/332~/~BB09~,D58~D075D59~BS85075%~BS850758~BS85075I~BS85075H~B881080 ~BJ72H36*~B805I05R~B794I05W~B812I05S~B812I05Z~CH48D54~B843S~C080I14~B?83/~BT01~)D58~BV43075 ~D075094~A094~A094~B7N4~BW52~B 62~B969~B?94~BL43~BS78~BK12~BK85~BS78~BS78~MD63308~B812~MD68309~BT01~B828I167~BJ85~MD76323~BL28~BJ85~MI02C62~V862G271~BP62~MI10180~SF13~B!00~B812~B924075Y~)068~Z070211~,068~B944075S~B999D591~BS78~,227~M072278~M~M~M~M~M~BS85~MD81309~,227~M053240~M016223~M073295~M073D95~BS45~BL09073#~B/56~V 41075S~VS28001B~MD86309~B 48075A~MD87305~B 48~MD90307~M053257~M016223~BS45~AD92007~C007D92~B 96T~Y198005~B/56~B/83227#~V/83004B~M278E43~B/56227@~V/722272~M007089~YD332S7~Y227DZ2~BU18~BL54~BY54~BS85~M278E44~B/56~V/95D581~B/56~M013219~MD31231~M007~ME45~ME49308~B/56~BS45~BL54~/332~/~BS85~HS77~?061E83~ME83~S007E78~AD55E78~B000~.000770~BA24~V604D581~B600~HT89~ZI14204~ZH32207~YH32207~MH35211~MH41219~MH50225~MI02278~BT90I05Z~BT90I05Y~BT97I05C~BT97I05S~B000~ME51309~ME54307~BJ97I16B~BT86~ }~HV01~Z007284~MG18280~D061290~M~VU660602~ME55292~YD30289~BV020570~VV13002K~VV28005K~VV28005S~B000~MD30286~BU74~ME60320~BL28~BU82~ME73328~BL28~BU98~M074303~M073301~M070297~M067293~M074E00~M~M~M~M061E78~M061E83~A007E83~SD55E83~BL09073#~BL09070#~BW37067 ~B183~ME86323~BL28~B/56~BX410750~M066E78~ME91309~VW93075B~ME94307~BK62~BU18~BL54~BY54~BA24~BX21075 ~B600~M066E78~BL54~/332~/~BX05~VY24004B~BU18~D066297~M~M061E78~BL54~BA24~C016E97~BX96/~BX53075 ~BY392930~C297C09~BK97T~BY54~B600~MF06329~BL28~BX49~HY53~MD30293~B000~HZ50~BY86290 ~BY86D597~C290F11~BJ57U~VY95C701~2~BJ24~BZ19D597~C290C09~BK97T~/332~/~BZ470753~AD55F13~BZ51F125~B000~B!00~SF13~BZ47~L%U6794R~N000~B334L~)U17~U%U6R~BS85~ ~HJ23~MF17309~AD55C84~ZC84314~MC62278~M180290~V!52C701~F1~2~FK~MD29200~BJ24~/332~/~MF53314~MF86234~V!91C701~2~MF87200~BJ24~/332~/~VJ16C701~2~BJ24~B000~HJ56~VJ53C691~M%U3200W~N000~B334L~B000~MF92332~BL28~BY86~BT01~MI02280~M~M~BY54~BB09~B655~MG03326~BL28~BT86~M066061~M032066~VK700012~D066297~M~BY392930~C297C09~BK97T~BU18~B/64~MG13330~BL28~BK34~BL09070#~BK62~HL08~)D34~B000~HL27~MG17327~BL28~B000~HL42~AD55C66~B000~MH51G18~B/64~H?42~)H17G48~V?39005K~VP62D561~BN39D590~B 08D593~VO17075B~C007G20~BQ91T~MC81G23~A007G23~CG23G26~BO09T~VN98G271~MG32G37~A007G37~CE83G37~BO09/~A007G32~H099D92~A007099~A007C81~MC81094~M0?01!0~)G38~VO53G271~V?07075B~ME78G43~BP16~AG44C75~MC75089~MG43E76~ME760 0~C089G47~B?07/~,D56~B?07~ME83G32~BM84~BP62~BL81~VO29G271~BM05~CC75C78~BM05S~,G48~BP62~BM05~)G27~VO69075B~B?07~MG49147~ME78G43~BP16~MG43E76~ME76C96~ME76~AG50C75~B?07~HP61~BP25Z~AG52G40~BP25Z~YG39G43~DG40P54~Y199G41~B000~HQ90~VQ07G481~VQ07G381~MG32G43~BP16~MG43C90~MC81C87~ED11171~DF87141~BQ30C100~4~B?43~AD55175~/171~LG84171~,G27G38~)D56G48~MG87C81~MC78C75~MH14D11~B000~VR03G271~BP62~M007H16~ME83G32~MG20007~SG20H16~SH16G32~Y196H16~,H17~ME78H22~BM84~BP62~)H17~MH16007~MH23075~ME44E05~MH22E78~AG20E78~BN98~Z175314~S100~S~S~VR60H171~MD30E44~ME44~B000~H?82~V?79C691~MH24100~M%U3100W~N000~B334L~B000~.000777~B?83~L%U1794R~N000~B334L~)T32~U%U1B~B794~HB08~CC00C04~BA68/~SC01~HB80I31~M%U5I18R~BB59~B334L~AH26C00~MC00099~MIA7080~M~M~M~M~M~M~M~M~M~M~S100~S~S~B000~HB58~MD30H51~SH50~S~S~S~HB80H43~M%U4H31R~BB59~B334L~S095~B000~H094~HB97~YD12094~BIQ8000}~B~B~B~B~B~B~B~B~B~B~B~B~B000~000?~080~ 3999~0~ ~0000~ ~ ~ ~ ~ }~C90~C90~000~001~001001040040040040040040040~B~/ 080~/ 080~1~ ~ ~ERRORS~ 1~N000000~JOB~A~ ~E~ ~ ~IOCS~MACRO~OVERCALL~ADCON~RMARK~G~LIT~00~ ~#~AREA~IO~GEN~X~LABEL~BAD STATEMENT~ ~ ~ OP~FIELD~SBF~DA ~ NO B X L~ 0081~ ~PAGE~SFX CT LOCN INSTRUCTION TYPE CARD~SEQ PG LIN LABEL OP OPERANDS~0~ ADDR~MACRO ERROR~ UNDEF ORG~ SYM~ ~39~ ~039~ ~ ~ ~ ~ ~C~D08~ ~)~F~9F~L0 , , , 1 ~000~001001040040040040040040040~ ~ ~ ~A~&~8? ~MD12293~MD12D93~B830075C~MD21301~MD28D99~M070297~M070D96~BL09070#~BU18~BL54~BY54~BZ63075C~F1~MD29200~ZC66204~C204D33~B945/~V928D341~MS49220~BJ24~V928C701~2~V543C691~U%U3M~B543~MD40211~C204D44~B971/~MD30211~BJ24~V984C701~2~/211~B900~CC75C78~B 20S~)G27~V992G271~BP62~B 57075C~/171~MD99146~Z175314~HQ90S11~BQ21~ED11171~MD51146~MD96171~Z175314~HQ90 96~BQ21~/171~BB09~U%U4B~CH48D54~B/28/~MI10180~MS88139~LS99166~M166150~B/58C100~4~B?43~/166~AD55175~MT20121~MT31171~HQ90S26~BS03C100~4~B?43~BQ34~/180~BS26C100~4~K8~B?14~OBJECT CORE EXCEEDED~,015022)024056,029036,040047,0540611001~,001008B001~,068072)063067/061039~,0010011040 ~ ~B~L%U1001R~N000~BM33L~)Z66I98~B340~H!54~L%U6101W~N000~BM33L~B000~L%U1333R~N000~BM33L~B333~HJ58~CP04P01~BJ20/~SP05~MR90O58~M%U5?28R~BO37~BM33L~AR92P04~MP04099~M?B7080~M~M~M~M~M~M~M~M~S100~S~S~B000~B!76~B/20~HK10~BK11~M?04126~?R94?01~A007?01~BK11~M?04123~B000~HK63~BK20Z~AR96R98~BK20Z~YR97?01~DR98K49~Y339R99~M?01?04~B000~HL30~BL31135}~L%U6120W~N000~BM33L~N~MQ69175~M175~MQ69R48~MR48~MQ51130~M?11~B000~/299~L180280~L~M166274~LQ43~LP35~L?18~L126~L?22~,225235~A?23227~)225~BM03127N~M130237~)235~L%U6220W~N000~BM33L~N~)280~BK94~H094~HN05~Y?24094~MIR0M96~DM92M72~MM96O05~U%U0B~BN78M96W~M?24?25~M%U0000R~BN06L~B000~DM92N16~U%U0B~SR75?25~VM89?25B~DM92N46~.000890~MM96N61~M%U0000R~BM69E~.000811~BN02~U%U1E~BO15?265~AR75?27~M%U0000W~BM69L~BN02~S?27~DM92O32~.000860~BN98~H094~HO75~Y?24094~BIQ8000}~B~B~B~B~B~B~B~B~B~B~B~B~B000~B001L~L%U1020R~U%U1B~0100 ~080~000?}~2~7~013~JOB~ ~ ~CTL~33~ ~ ~0~1~4~ ~B007~)021~B047L~L%U1001R~.~3~6~I0?~099~B053~M074099~)099~B001/~C004041~#044004~/I9I~I0~M080099~B001~B0320020~)002~A075003~,002~/I99~Z~T~I~ ~.020~N000~L ~ ~C~400~00~Q97~ ~32~ ~ ~)~31~ ~,~B~N000000~L ~/ 080~113~A~ ~END~LTORG~?41~8?~3D~9F~ ~ ~L ~)043043~,043~H~I~ ~ ~00000~00000~00000 ~2SKB~U%U6R~C!00P07~B!55U~C!00P08~B!55T~U%U4R~U%U5R~)P25P26~M!01475~MP11O58~M%U4001R~BO37~BM33L~C018P14~B444/~M079P18~)P19~B393~C018P22~M!00023~U%U4R~B475S~LP24022~B528F~B5910232~B5910233~B5910236~B5910237~,P25~B 17~,P26~B 49~LP27023~B558B~B569C~B580G~)023~B480~AP28023~B540~AP07023~B545~AP29023~B550~/180~,P06~LP06199~LP18179~LP31~LP35~LP39~LP44~LP52~LP53~LO93~C022P54~B747S~B747U~C022P55~B747T~LP58144~LP61~LP65~LP72~LP76~LP81~LP88~LP95~LP99~B8420226~B7360225~Y337104~B842~Y338104~B842~LQ01175~LP65146~LQ08~LP76~LQ12~LQ20~LQ24~LQ31~LQ35~LQ39~,180~B8420223~MQ40102~B8420222~MQ41102~B8420221~MQ42102~B!30~)199~LP06180~LQ43124~LQ47~LO80~LO88~LP53~LO93~B!30~/175~LQ43135~LP35~LQ51~LQ58~LO80~LO88~LP53~LO93~C021P54~B 17S~B 17U~C021P55~B 17T~D021Q59~AQ60Q59~DQ59980~Y339990~LP06P06~)P06~MQ63P01~B 170214~AQ63P01~B5200234~B5200235~B5200236~B5200237~VX81P251~MP01P04~/080~V 84P191~M%U5?28R~,023057~,062067~,068071~,074006~,001~B!76~BJ59075%~VJ59005K~BS22075 ~BS11075I~D075094~A094~A094~B/P1~BV85~BS65~BV59~BW82~BJ59~BJ59~BJ59~BJ59~BV34~BJ59~M020179~BJ59~M074142~M~M~M~M061?01~A007?01~SP28?01~BJ67~BK64~BJ59~AQ65007~C007Q65~BS88T~BJ59~BT44023#~VT44004B~M053R26~BT23023@~BT44~MQ68089~A007089~MQ690 0~MR28166~M061?01~C007Q71~BT82T~BU47075A~BS53~SQ71007~S007?01~M007Q73~MQ71007~BJ67~BU94075A~MQ73007~MR48Q93~BK64~MQ93154~M061?01~S007?01~AP28?01~BK11~M?04130~MQ94~M061?01~BS53~M061?01~SQ73?01~SQ96?01~BK11~M?04130~MQ94~BU22~BJ59021 ~M073R48~M~M~M~M~M~M~BJ59~M073137~BU47075B~M061?01~BS53~BJ59075!~BW240750~M066?01~BW47~BW01075 ~B/20~M061?01~BW47~BW24075 ~B/20~HW81~BK11~M?04126~M?04~MR49~BK64~B!76~B000~BX580753~M070130~MR50~MR57~BK64~LQ43124~LP35~B!76~BX47075I~B!30~LR64126~B/20~M020179~BX32~MR71126~M070123~BK64~U%U6M~VX93P261~B!55~/180~MR74O58~M%U4101R~BO37~BM33L~BZ54175L~BX93175S~BX93175C~BX93175Z~BX93175Y~AR75O97~MO98105~BZ13106*~MR79115~C118P14~BZ13/~MR79111~MR77~MR78175~4~K4~C118R82~BX93/~BX93106*~/180~4~K8~B!55~MR87120~BY61~ ~F1~/332~/~M696215~2~FK~M730234~M746251~2~FJ~/271~M770224~2~M794224~2~M818224~2~M842224~2~M866224~2~FJ~/224~M881215~2~FK~M920239~2~F1~)P06~.000880~B530F~/239~M930210~2~FK~M966236~2~U%U1R~U%U4R~U%U5R~U%U6R~V517P251~/236~M994228~FK~2~F1~.000889~B519~)I98998~)A08~/199~U%U1B~U%U1B~U%U1B~U%U1B~U%U1B~U%U1B~U%U1B~U%U1B~L%U1Z00R~B602L~BZ01~M995996~U%U1B~L%U1Z00R~B631L~BZ01~U%U1B~S997996~V614996B~.000891~L%U1Z00R~B602E~.000812~BZ01~END OF ASSEMBLY~IF EXTRA OUTPUT DESIRED, SET SENSE~SWITCH F ON, AND~B ON FOR CONDENSED CARDS~C ON FOR LOADABLE TAPE 6~D ON FOR LISTING TAPE 3~E ON TO SUPPRESS LISTING~G ON FOR NEW SOURCE DECK~AND PRESS START~IF NO EXTRA OUTPUT DESIRED, PRESS START~END OF JOB~INPUT FOR RE-ASSEMBLY ON TAPE UNIT 4~LOADABLE TAPE ON TAPE UNIT 6~I~ ~A