=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= = CLEAR HEADR DO EX. AND EOJS FOR 1410 MONITOR .CLROV CS 80 USED FOR EX. PHASES BCE *&12,)0J," IF GP-MK RETURN TO MONITOR SW 40,47 NO GP-MK DO CARD RE-LOAD R 40 DCW @BI0F@ TRA TO 15906 FOR MONT LOADING .CLRST BCE *&12,)0J," USED FOR END OF JOB H 999,999 IF NO GP-MK STOP A&B IS 999 B .CLRST START-STOP LOOP MU %T0,*&5,W TYPE END MESSG. DCW @BI7E@ TRA TO MONITOR-NEXT PROG. 15975 DCW @END RUN@ )0J DCW @ @ WILL BE GP-MK IF MONITOR RUN DCW @'@ * IN AT LOAD TIME ONLY MLC )0J&1,1 * PUT RC-MK IN LOC 1 MRCM 0,)0J * MOVE LOC 0 TO SAVE IT B .CLROV * GO TO EXIT RELOAD ORG )0J&1 * XFR )0J&2 * EX. TO FIND IF MONITOR RUN DC #20 * TO WIPE OUT OVER-LOAD ORG )0J&1 * CLOSE HEADR 65052 )00 B IOCLOZ )01 65052 NOP )01-17 65052 B IOCLOZ )0B 65052 NOP )0B-17 65052 B IOCLOZ )0C 65052 NOP )0C-17 65052 B IOCLOZ )0D 65052 NOP )0D-17 65052 B IOCLOZ )0E 65052 NOP )0E-17 65052 B IOCLOZ )0F 65052 NOP )0F-17 65052 B IOCLOZ )0G 65052 NOP )0G-17 65052 B IOCLOZ )0H 65052 NOP )0H-17 65052 B IOCLOZ )0I 65052 NOP )0I-17 65052 * CLOSE STATEMENT ERROR - NO FILES ARE SPECIFIED )10)0/ 65052 CPUNH HEADR PUNCH CARD MACRO INCLDXPUNH PARM IS D CHAR )00 BCE XPUNH,*,)01 GO PUNCH, D CHR IS POCK NOP DCLOS HEADR 65102 )00 MN IOCWDP&3,*&4 65102 WTM 0 65102 MN IOCWDP&3,*&4 )0A)0S 65102 RWD 0 )0A)0S 65102 MN IOCWDP&3,*&4 )0B 65102 RWU 0 )0B 65102 DEBUG HEADR DUMPING MACRO )00 CALL XDUMP TRA TO DUMP SUB-ROUTINE DIVID HEADR DIVIDE MACRO )00 NOP )01 NOP )02,)03 CALL QUDIV FEORL HEADR 65152 )00 B IOCOPN&19 )01 65152 NOP )01-17 65152 * FEORL STATEMENT ERROR - NO FILE SPECIFIED )02)0/ 65152 FINSH HEADR PADD AND WRITE LAST RECORD THEN EOF INCLDX.PAD )00 B )01&40 GETXX HEADR 65202 )00 SBR IOCUXT&3,)0J 65202 B )01 65202 DSA )0B 65202 DCW @$@ )0S 65202 DCW @K)0C@ 65202 DCW @N0@ )0T 65202 DCW )0D 65202 DCW @$@ )0U 65202 )0J EQU *&1 65202 INDEX HEADR SET-UP INDEX MACRO X1 EQU 89 X2 EQU 94 X3 EQU 99 89 DSA 0 94 DSA 0 99 DSA 0 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 MULTI HEADR MULT. MACRO )00 NOP )01 C )02,)03 CALL QUDIV OPENX HEADR 65252 )00 B IOCOPN )01 65252 NOP )01-17 65252 B IOCOPN )0B 65252 NOP )0B-17 65252 B IOCOPN )0C 65252 NOP )0C-17 65252 B IOCOPN )0D 65252 NOP )0D-17 65252 B IOCOPN )0E 65252 NOP )0E-17 65252 B IOCOPN )0F 65252 NOP )0F-17 65252 B IOCOPN )0G 65252 NOP )0G-17 65252 B IOCOPN )0H 65252 NOP )0H-17 65252 B IOCOPN )0I 65252 NOP )0I-17 65252 * OPEN STATEMENT ERROR - NO FILE SPECIFIED )10)0/ 65252 OVLAY HEADR RETURN TO CARD LOADER 006337123 )00 CS 080 006437123 SW 024,056 006537123 SW 063,067 006637123 R 056 006737123 DCW #1 PADDT HEADR PADDING FOR TPEEL MACRO )00 BCE *&12,)01&4,P TRA IF FORM 1 SBR )01&22,*&16 SET RETURN FORM 2 B )01&23 GO PAD FORM 2 SBR )01&30,*&5 SET RETURN FORM 1 B )01&31 GO PAD FORM 1 PUTXX HEADR 65302 )00 SBR IOCUXT&3,)0J 65302 B )02 65302 DSA )0A 65302 DCW @$@ )0/ 65302 DCW @)0C@ 65302 DCW @$@ )0T 65302 DCW @F)0D@ 65302 DCW @$@ )0U 65302 )0J EQU *&1 65302 QUDIV HEADR DIVIDE SUBROUTINE QUDIV SBR .MPDVX&3 SBR *&4 MLC *,.MLDVH MOVE NSI MLC MOVE TRA INS MLC MOVE ANS MLC MOVE CAN OR ZOR MLC MOVE CHECK CHAR. MLC MOVE MPLER OR DEN MLC .MLANS,*&4 S * ZERO ANSWER BCE .DIVEN,.MLDVK,N N IS DIV, C IS MULT .MLMV MLC .MLANS,.ST&14 MLC MLC .MLDEN,.HIFT&6 MLC .MLDEN,*&4 ZA *,.MLAD .ST BCE .HIFT,.MLAD,? A *,* CAN TO ANS S .ST&8,.MLAD B .ST .HIFT BW .MPDVX,* IF WM IN MPLER EXIT A @I9I@,.MLDEN A @I9I@,.MLANS B .MLMV .MLDEN DCW #3 MLTER OR DIVDEN .MLDVK DC #1 C FOR MULT OR N FOR DIV .MLDVZ DCW #3 CAN OR ZOR .MLANS DCW #3 ANS .MLAD DCW #1 .MLDVH DC #4 .DIVEN MLC .MLDEN,.SUBD&6 MLC .MLDVZ MLC .MLDEN,.DUPD&6 MLC .MLDVZ MLC .MLANS,.LBB&6 MLC .MLDEN,.LBB-2 .SUBD S *,* ZOR FROM DEN BWZ .DUPD,*,K IF DEN IS MINUS .LBB A *-6,* PLUS 1 TO ANS B .SUBD .DUPD A *,* ZOR TO DEN .MPDVX B * RETURN TO MAIN LINE DCW @#@ CS 0 SBR .MLDEN BWZ .CLROV,.MLDEN,2 MLC .MPDVX&4,.HIFT&8 MLC .MPDVX&4,.HIFT&15 B .CLROV ORG .MPDVX&4 XFR .MPDVX&5 DC #35 ORG .MPDVX&4 RDLIN HEADR 65352 )00 B IOCRDL )01 65352 NOP )01-17 65352 B IOCRDL )0B 65352 NOP )0B-17 65352 B IOCRDL )0C 65352 NOP )0C-17 65352 B IOCRDL )0D 65352 NOP )0D-17 65352 B IOCRDL )0E 65352 NOP )0E-17 65352 B IOCRDL )0F 65352 NOP )0F-17 65352 B IOCRDL )0G 65352 NOP )0G-17 65352 B IOCRDL )0H 65352 NOP )0H-17 65352 B IOCRDL )0I 65352 NOP )0I-17 65352 * RDLIN STATEMENT ERROR - NO FILE SPECIFIED )10)0/ 65352 READT HEADR READ A TAPE AND TRA ON EOF INCLDX.TAPR )00 RT )01,)02 BER X.TAPR BEF )03 RELSE HEADR 65402 )00 SBR IOCUXT&3,*&5 65402 B )0A&8 )0A)0S 65402 B )0A&12 )0A)0B 6540K * RELSE STATEMENT ERROR - NO FILE SPECIFIED )10)0/ 65402 RTAPE HEADR READ TAPE MACRO )00 CALL XTAPE TRA TO TAPE SUB-ROUTINE )0K RT )01,)02&X0 DUMMY I/O INST. ORG *-8 DSA )02&12&X0 AREA & 12 NOISE CK LOC. ORG *&5 )0L DSA )03 TAPE REC. LENGTH )0C )0L DCW @00"@ SET FOR NO WRL CK )0T DSA )04 AREA & LENGTH IS GP DCW #3 EOF ADDRESS )0N DCW @#@ * IN AT LOAD TIME ONLY CS 0 * FIND CORE SIZE SBR )0N-1 * BWZ )2J,)0N-1,2 * TRA IF 4K OR LESS MLC )0N,)2J&4 * MAKE ADD AN MA )2J SW )0K&3 * ADD AREA TO LENGTH A )0K&6,)0L * ADD IF 4K MA IF LARGER )0C B .CLROV * RETURN TO LOADING NOP * ORG )0N-3 * XFR )0N&1 * DC #50 * WIPE OUT EX PHASE ORG )0L&4 ORG OVER EX PHASE RTIDX HEADR READ AND UN-BLK BY INDEX INCLDX.TAPR )00 SBR )0M&3 BW )0K,)0K-1 SBR )05,)02&)05 BCE )0L,)03&)05," B )0M )0J SW )0K-1 B )04 NOP )0K CW )0K-1 )0L S )05&1 RT )01,)03 BER X.TAPR BEF )0J )0M B * RTWRK HEADR READ AND UN-BLK TO WORK AREA INCLDX.TAPR )00 SBR )0L&3 )0J BCE )0N,*," )0K MRCM )03,)02 SAR )0J&6 SBR )0K&3 )0L B * )0M SBR )0J&6,)0J&7 B )04 )0N SBR )0K&3,)03 RT )01,)03 BER X.TAPR BEF )0M B )0K SDADD HEADR ADD MONEY AND HOURS FOR SD. RECORDS )00 CW )1K-4 CW CW MLZS )01-7,)1L MLZS )01-67 MLZS )01-70 MLZS )01&3,)1K MLNS )01,)1K MLNS MLNS MLNS MLNS MLNS MLNS MLNS MLNS C )1L,@- -@ BE )0J C )1L,@ -@ BE )0K SW )1K-4 B )0K )1K DCW #9 DOLLARS POT )1L DCW #3 CODE )0J SW )1K-6 )0K A )1K,)02 * * THIS IS OPTIONAL TO ADD SD. HOURS * S )1M )0C MLZS )01&3,)1M )0C MLNS )01-71,)1J )0C MLNS )0C C )1L,@- -@ )0C BE )0N&7 EQU, EXIT )0C C )1L,@ -@ )0C BU )0L )0C C )1J,@30@ )0C BE )0M )0C C )1J,@21@ )0C BE *&13 )0C C )1J,@22@ )0C BU )0N&7 UNEQU, EXIT )0C MLNS )01-48,)1M )0C MLNS )0C MLNS )0C MLNS )0C MLNS )0C MLNS )0C B )0N )0C )1M DCW #6 HOURS POT )0C )1J DCW #2 SOURCE )0C )0M MLNS )01-45,)1M )0C MLNS )0C MLNS )0C MLNS )0C B )0N )0C )0L C )1J,@30@ )0C BE )0P )0C C )1J,@60@ )0C BE )0P )0C C )1J,@69@ )0C BE )0P )0C C )1J,@80@ )0C BE )0P )0C C )1J,@89@ )0C BU )0N&7 UNEQU, EXIT )0C )0P MLNS )01-46,)1M )0C MLNS )0C MLNS )0C )0N A )1M,)03 )0C SKIP HEADR 65442 )00 CC )0A )0S 65442 CCB )0B,)0A 65442 SPACE HEADR 65452 )00 CC )0A )0S 65452 CCB )0B,)0A 65452 STACK HEADR 65502 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 TPACK HEADR BLOCKING AND WRITE MACRO MPACK )00 SBR )0M&3 MPACK )0L MRCM )02&X0,)03&X0 MOVE WORK TO OUT AREA )0W MPACK SBR )0J&6 SAVE ADDR OF NEXT POINT )0W MPACK SBR )0L&6 IN OUT AREA )0W )0J BCE )0P,)03&X0," TST FOR END OF BLOCK )0W MPACK A )1K,)06 )0F BCE )0P,)03&)06," CK END OF BLOCK )0F )0M B * RETURN TO MAIN LINE MPACK CW )1J )2N BCE )0P,)03&)06," )0F BCE *&8,)03&)06,' )0F MLC @9@,)03&)06 )0F )1Q A @001@,)06 )0F MLC )0L&6,)1L )0W )2N MLC )1L,)1M&6 )0W MLC )1L,)1N&6 )0W MLC )1L,)1P&6 )0W )1M BCE )0P,*," )0W )1N BCE *&8,*,' )0W )1P MLC @9@,* )0W A @001@,)1L )0W B )2N )1L DCW #3 )0W )0P MLC )1K,)0L&6 RESET MOV REC TO BEGIN )0W )0P S )06&1 )0F CALL XTAPE )0K WT )01,)03&X0 ORG *-8 MPACK DCW )03&12&X0 MPACK ORG *&5 MPACK )0Q DCW @00"@ NO WRL CK )0U )0Q DSA )04 AREA & LENGTH IS GP )0D DCW )05&X0 EOF ADDRESS B )0M )1J DCW @H@ SW )1J WTM )01 B )0M )1K DCW )03&X0 )0W )1K DSA )02 )0F DCW #3 * IN AT LOAD TIME ONLY )0N DCW @#@ * CS 0 * SBR )0N-1 * BWZ )2J,)0N-1,2 * MLC )0N,)2J&4 * )0D MLC )0N,)00&4 * )0F MLC )0N,)1Q * )0F MLC )0N,)1P&7 * )0W )2J SW )0K&3 * A )0K&6,)0Q * )0D B .CLROV * RETURN TO LOADING NOP * ORG )0N-3 * XFR )0N&1 * DC #50 * WIPE OUT EX PHASE ORG )0N-3 * OVER LOAD EX PHASE TPEEL HEADR READ AND UNBLOCKING MACRO MPEEL )00 SBR )0M&3 MPEEL B )0K-4 )1L DCW @H@ )0J BCE )0P,)03&X0," TST FOR END OF BLOCK )0W MPEEL )0L MRCM )03&X0,)02&X0 MOVE LOG. REC. TO WK AREA )0W MPEEL SAR )0J&6 SAVE ADD OF NEXT REC )0W MPEEL SBR )0L&3 )0W MPEEL )1J A )1K,)06 )0F BCE )0P,)03&)06," CK END OF BLOCK )0F )0M B * RETURN TO MAIN LINE MPEEL )0P MLC )1K,)0L&3 RESET MOV REC TO BEGIN )0W )0P S )06&1 )0F SW )1L CALL XTAPE DO NORMAL READ TAPE )0K RT )01,)03&X0 ORG *-8 MPEEL DCW )03&12&X0 MPEEL ORG *&5 MPEEL )0Q DCW @00"@ NO WRL CK )0U )0Q DSA )04 AREA & LENGTH IS GP )0D DCW )05 CW )1L B )0L GO TO MOVE RECORD )0W B )0M )0F )1K DCW )03&X0 )0W )1K DSA )02 )0F DCW #3 * IN AT LOAD TIME ONLY )0N DCW @#@ * CS 0 * SBR )0N-1 * BWZ )2J,)0N-1,2 * MLC )0N,)2J&4 * )0D MLC )0N,)1J * )0F )2J SW )0K&3 * A )0K&6,)0Q * )0D B .CLROV * RETURIN TO LOADING NOP * ORG )0N-3 * XFR )0N&1 * DC #50 * WIPE OUT EX PHASE ORG )0N-3 * OVERLOAD THE EX PHASE WRITT HEADR WRITE A TAPE AND TRA ON EOF INCLDX.TAPR )00 WT )01,)02 BER X.TAPR BEF )03 WTAPE HEADR WRITE TAPE MACRO )00 CALL XTAPE )0K WT )01,)02&X0 ORG *-8 DSA )02&12&X0 ORG *&5 )0L DCW @00"@ NO WRL CK )0T )0L DSA )03 AREA & LENGTH IS GP )0C DSA )04 EOF ADDRESS DCW #3 * IN AT LOAD TIME ONLY )0N DCW @#@ * CS 0 * SBR )0N-1 * BWZ )2J,)0N-1,2 * MLC )0N,)2J&4 * )0C )2J SW )0K&3 * A )0K&6,)0L * )0C B .CLROV * RETURN TO LOADING NOP * ORG )0N-3 * XFR )0N&1 * DC #50 * WIPE OUT EX PHASE ORG )0L&4 ORG OVER EX PHASE WTIDX HEADR WRIT AND BLOCK BY INDEX INCLDX.TAPR )00 SBR )0K&3 )0J BCE )0M,)03&)02&)05," SBR )05,)02&)05 )0K B * )0L WTM )01 B X.PAD2 DCW @N2345678@ SBR X.PAD2&7 SBR X.PAD3,)03&)05 B X.PAD )0M SBR )05,0 WT )01,)03 BER X.TAPR BW )0L,X.PAD4 BEF )04 B )0K WTWRK HEADR WRIT AND BLOCK FROM WORK AREA INCLDX.TAPR )00 SBR )0L&3 )0J BCE )0N,*-1," )0K MRCM )02,)03 SBR )0J&6 SBR )0K&6 )0L B * )0M WTM )01 B X.PAD2 SBR X.PAD2&7 MLC )0J&6,X.PAD3 B X.PAD )0N SBR )0J&6,)0J&6 SBR )0K&6,)03 WT )01,)03 BER X.TAPR BW )0M,X.PAD4 BEF )04 B )0K X.PAD HEADR PADDING SUB-ROUTINE X.PAD SBR .PC&10 SW X.PAD4 MLC X.PAD3,.PA&6 MLC 89,X.PAD3 .PA SBR 89,* .PB BCE .PC,0&X1," BCE *&8,0&X1,' MLC @9@,0&X1 SBR 89,1&X1 B .PB .PC MLC X.PAD3,89 B * X.PAD2 CW X.PAD4 B * X.PAD3 DCW @ @ X.PAD4 DC @ @ X.TAPR HEADR COMMON TAPER ERROR SECTION X.TAPR SBR .TD&3 SBR *&4 MLC 0,.TC&7 GET TO USERS TAPE INS. MLC SAR *&4 MLC 0,.TC&7 PUT USERS INS. IN ROUTINE .TA S .TF ZERO ERROR COUNTER MLNS .TC&3,.TB&3 PUT TAPE UNIT IN BACK SPACE INS. .TB BSP 0 MLNS .TC&3,*&4 PUT TAPE UNIT IN SKIP INS. SKP 0 WORKS ONLY IF A WRIT INS. .TC RT 0,0 BER .TE .TD B * **EXIT** .TE A *-6,.TF UP ERROR COUNT BCE .TB,.TF-1,0 IF LESS THAN 10, RE-TRY S .TF H 100,100 **10X ERROR STOP BSS .TC,F SKIP IF SSW F IS ON B .TA RE-TRY 10 MORE .TF DCW @00@ XDUMP HEADR DUMP SUBROUTINE XDUMP B .PRINT SW 1 .MV MLCWA100,300 SBR .MV&6 .MVV MLCWA100,300 SAR .MV&3 MLC .MV&6,.MVV&6 C .MV&3,.ZRO BU .MV B .PRINT CS 100 SW 87 S 100 SW 92,97 .SET BCE .BK,101&X2, SW 201&X1 MLC .DL,201&X1 BCE .BW,101&X2," GM MLC .AS,201&X1 BCE .BW,101&X2,{ TM MLC 101&X2,201&X1 .BW BW *&5,101&X2 CW 201&X1 .MA A .IDX,89 A .IDX,94 BCE .CMP&8,87,0 .ADD A *-6,.LOC-2 A *-6,.LOC2-2 B *&10 .SW DC @H@ BCE .CMP,97,1 B .PRINT MRCM .IDX,201 B .PRINT BW .END,.SW .CMP S 100 S 90 C 94,.C BU .SET SW .SW B .ADD .END CC 1 B .CLRST .BK BW .SET&8,101&X2 A .IDX,99 B .MA .PRINT SBR .PTEX&3 W WM CS CS .PTEX B * .C DCW @000@ DSA 15900 MLC @I9I@,.C BCE *&9,.CLRST&38," IF GP-MK CS 0 SBR .C BWZ *&29,.C,2 MLC .DP,.MA MLC .DP,.MA&7 MLC .DP,.BK&8 MLC .DP,*&1 A .C&3,.C B .CLROV .DP DCW @#@ ORG .C&1 XFR .C&4 .DL DCW @$@ .AS DCW @*@ .ZRO @000@ .IDX @1@ @...5...10....5...20....5...30....5...40....5...50.@ @...5...60....5...70....5...80....5...90....5..100 @ @ LOCATION @ .LOC @00001@ @ TO @ .LOC2 @00100@ @"@ GP-MK XPUNH HEADR PUNCH CARD SUB. ROUT. XPUNH SBR .PEX&3 SBR *&4 MLNS *,.XSK GET POCK. NO. MLNS .XP P PUNCH BIN .PER,! CK PREV. CARD SS 4 GOOD, PUT IN STACK .XSK NOP MLC 180,.XSAV SAVE THIS CARD .PEX B * RETURN TO MAIN LINE .PER MLC 180,.XHLD ERROR, SAVE THIS CARD MLC .XSAV,180 PUT LAST CARD IN PUN MLNS .XSK-1,*&3 SET STACKER P RE-PUNCH LAST CARD SS 4 MLC .XHLD,180 REPLACE THIS CARD B .XP GO RE-PUN THIS CARD DCW #40 THIS CARD TEMP HOLD .XHLD DC #40 DCW #40 LAST CARD HOLD .XSAV DC #40 XTAPE HEADR READ -- WRITE TAPE SUBROUTINE .X1 EQU 89 XTAPE SBR .TAX&3 MLC .X1,.TAP SAVE USERS X1 MLC .TAX&3,.X1 SET X1 FOR XTAPE MLC 7&X1,.TAI&7 SET I/O INS MLC 10&X1,.TATS&6 SET WRL CK BCE .TAI,.TAI&7,W TRA IF WRITE MLC 10&X1,.TAV&13 SET NOISE CK SET MLC 2&X1,.TAV&6 SET WRL CK SET .TAV MLC .TABIT,0 SET FOR L WRL CK MLC .TABIT,0 SET FOR NOISE CK .TAI RT 0,0 I/O INST. SBR .TAGP&21 SAVE B-REG. FOR NOISE CK BEF .TAF CK END OF FILE BCE .TAOT,10&X1," DONT CK WRL IF GP .TATS BCE .TAOT,0," LENGTH OK IF GP BCE .TAZ,.TAI&7,W TRA IF WRIT MLC 2&X1,*&7 SET FOR NOISE * THE D-CHAR. IS AN -A- BIT .TA BCE .TAGP-4,0, TRA IF WRL , NO A BIT .TACK BCE .TABD,.TANT-1,1 TRA IF 10X ER OR WRL A *-6,.TANT UP ER CNT MLNS .TAI&3,*&4 GET UNIT NO. BSP 0 BACK UNIT BCE .TAI,.TAI&7,W RETRY IF WRIT CW .TASW OPEN GP REPLACE SW .TAGP SW .TAGP&19 A @I9I@,.TAGP&21 GET LOC. OF GP OF I/O CW .TAGP&19 MLNS *-6,* KILL 1401 GEN. GP BSS .TAFO,H TRA IF ON EOF ROUTINE .TASW EQU * B .TAV RETRY I/O .TABD S .TANT ZERO ER CNT BCE .TAZ,.TAI&7,R TRA IF READ MLNS .TAI&3,*&16 SET UP SKIP INST. MLNS .TAI&3,*&4 SET UP BACK INST. BSP 0 BACK UP SKP 0 SKIP AND BLANK B .TAI RETRY I/O .TAZ BCE .TAWT,.CLRST&38," IF GP-MK TYPE MSG. .TAER H 014,014 10X STOP ON WRL OR DATA CK * PUSH START TO RETRY THE RECORD * SET SSW F ON TO SKIP THE RECORD BSS .TAV,F TRA TO SKIP I/O IF SSW F B .TACK TO RETRY .TAWT MLC .TAI&7,.TAMSE MU %T0,*&5,W B .TAER .TAMSE DCW @10X ERR OR WRL ON @ DCW @"@ GP-MK .TAF MLC 13&X1,.TAX&3 SET EOF ADDRESS BCE .TAOTX,.TAI&7,W TRA IF WRITE MLC 10&X1,*&7 MLC .TATS&7,* REPLACE ENDING GP MK SW .TASW B .TAGP REMOVE 1401 GEN. GP OF EOF .TABIT DCW #1 THIS WILL BE AN A-BIT .TAOT BER .TACK CK I/O FOR ERROR SW .TAX&1 A .TAER&3,.TAX&3 SET EXIT TO NSI CW .TAX&1 .TZ DCW @#N@ * IN AT LOAD TIME ONLY MLZS *-6,.TA&7 * MAKE A BIT D CHAR. MLZS *-6,.TABIT * MAKE A BIT CONST. CS 0 * FIND CORE SIZE SBR .TX * BWZ *&43,.TX,2 * TRA IF 4K OR LESS MLC .TZ,.TAGP * LARGER THAN 4K MLC .TZ,.TAGP&11 * MAKE ADD S TO MA S MLC .TZ,.TAOT&5 * MLC .TZ,.TAOT&16 * MLC .TZ-1,.TAGP&4 * MLC .TZ-1,.TAOT&9 * B .CLROV * RETURN TO LOADING .TX DCW #3 * ORG .TZ-1 * XFR .TZ&1 * DC #40 * WIPE OUT EX. PHASE DC #41 * WIPE OUT EX. PHASE ORG .TZ-1 * .TAOTX S .TANT ZERO ER CNT .TAFO MLC .TAP,.X1 REPLACE USERS X1 .TAX B * EXIT TO MAIN LINE .TAP DCW @000@ USERS X1 .TANT DCW @00@ ER CNT 15000 HEADR 65552 IOCKBY SBR IOCBYX&3 65552 SBR IOC)03&6,0&X3 65552 MCW IOCTRW&6,IOCXR3 65552 MN IOCTRW&3,IOC)01&3 SW IOC007#1 65552 MCW 6&X3,IOC)06 65552 CHAIN6 65552 CW IOC)06 65552 CHAIN5 65552 C IOC)06,@**CHKPT@ 65552 SW IOC)06 65552 CHAIN5 65552 IOC)03 SBR IOCXR3,0 65552 BU IOCBYX 65552 IOC)01 RTW 0,IOC)02 CW IOC007 65552 IOCBYX B 0 65552 DCW @ @ 5555K IOC)02 DCW @ @ 65552 DCW @" @ 65552 DA 7X1 65552 IOC)06 EQU * 65552 18000 HEADR 65602 IOCPCK SBR IOCPKX&3 65602 BAV *&1 65602 A &96,IOCAR5-3 65602 BAV *-11 65602 MZ IOCAR5-4,IOCAR5#5 65602 ZA IOCAR5-2,IOCXR1&1 65602 MZ IOCZON-99&X1,IOCAR5-2 65602 IOCPKX B 0 65602 IOCZON DCW @2SKB@ 65602 33333 HEADR 65652 * NO IOAREAS ENTRY IN DTF FOR THIS TAPE FILE )99)3U)5A 65652 * WORKAREA AND INDEXREG ENTRIES ARE BOTH SPECIFIED )99)3B)3C 65652 * INDEXREG ENTRY ERROR - NOT TAPE FILE )99)3B)5/ 65652 * INDEXREG ENTRY ERROR - UNBLOCKED TAPE FILE )99)3B)4S)5A)0/ 65652 * INDEXREG ENTRY ERROR - VARIABLE BLOCKED FILE )99)3B)3I)4B)5A 65652 * VARBUILD ENTRY ERROR - INPUT TAPE FILE )99)1?)5A)5C 65652 * VARBUILD ENTRY ERROR - FIXED BLOCKED FILE )99)1?)5A)3Z)4B 65652 * VARBUILD ENTRY ERROR - UNBLOCKED TAPE FILE )99)1?)4S)5A 65652 * VARBUILD ENTRY ERROR - NOT TAPE FILE )99)1?)5/ 65652 * TOTALS ENTRY ERROR - NOT TAPE FILE )99)2H)5/ 65652 * TOTALS ENTRY ERROR - NOT TAPE FILE )99)2I)2Y)5/ 65652 * TOTALS ENTRY ERROR - UNLABELED TAPE FILE )99)2H)2X)2W 65652 * TOTALS ENTRY ERROR - UNLABELED TAPE FILE )99)2I)2Y)2X)2W 65652 * TYPELABEL ENTRY ERROR - NOT TAPE FILE )99)2F)5/ 65652 * TYPELABEL ENTRY ERROR - NOT TAPE FILE )99)2G)5/ 65652 * TYPELABEL ENTRY ERROR - STANDARD & NONSTANDARD )99)2F)2G 65652 * CHECKLABEL ENTRY ERROR - NOT TAPE FILE )99)2C)5/ 65652 * CHECKLABEL ENTRY ERROR - NOT TAPE FILE )99)2D)5/ 65652 * CHECKLABEL ENTRY ERROR - NOT STANDARD LABELS )99)2C)2X 65652 * CHECKLABEL ENTRY ERROR - NOT STANDARD LABELS )99)2D)2X 65652 * CHECKLABEL ENTRY ERROR - TAPE OUTPUT FILE )99)2C)5A)5B 65652 * CHECKLABEL ENTRY ERROR - TAPE OUTPUT FILE )99)2D)5A)5B 65652 * CHECKLABEL ENTRY ERROR - ALL & IDENT )99)2C)2D 65652 * HEADER ENTRY ERROR - NOT TAPE FILE )99)2?)5/ 65652 * HEADER ENTRY ERROR - NOT TAPE FILE )99)2A)2')5/ 65652 * HEADER ENTRY ERROR - NOT TAPE FILE )99)2B)2')2/)5/ 65652 * HEADER ENTRY ERROR - NOT STANDARD LABELS )99)2?)2X 65652 * HEADER ENTRY ERROR - NOT STANDARD LABELS )99)2A)2')2X 65652 * HEADER ENTRY ERROR - NOT STANDARD LABELS )99)2B)2/)2')2X 65652 * SERIALNUM ENTRY ERROR - NOT TAPE FILE )99)1I)5/ 65652 * SERIALNUM ENTRY ERROR - NOT STANDARD LABELS )99)1I)2X 65652 * SERIALNUM ENTRY ERROR - CHECK IDENT ONLY )99)1I)2C 65652 * REELSEQ ENTRY ERROR - NOT TAPE FILE )99)0E)5/ 65652 * REELSEQ ENTRY ERROR - NOT STANDARD LABELS )99)0E)2X 65652 * FILETYPE ENTRY ERROR - MORE THAN ONE I/O DEVICE )99)5A)5? 65652 * FILETYPE ENTRY ERROR - MORE THAN ONE I/O DEVICE )99)5A)4I 65652 * FILETYPE ENTRY ERROR - MORE THAN ONE I/O DEVICE )99)5A)4H 65652 * FILETYPE ENTRY ERROR - MORE THAN ONE I/O DEVICE )99)5?)4I 65652 * FILETYPE ENTRY ERROR - MORE THAN ONE I/O DEVICE )99)5?)4H 65652 * FILETYPE ENTRY ERROR - MORE THAN ONE I/O DEVICE )99)4I)4H 65652 * FILETYPE ENTRY ERROR - TAPE, NEITHER INPUT OR OUTPUT )99)5A)5S)5T 65652 * FILETYPE ENTRY ERROR - TAPE, INPUT & OUTPUT )99)5A)5B)5C 65652 * FILETYPE ENTRY ERROR - INPUT, NOT TAPE FILE )99)5C)5/ 65652 * FILETYPE ENTRY ERROR - OUTPUT, NOT TAPE FILE )99)5B)5/ 65652 * FILETYPE ENTRY ERROR - CHECKPOINT, NOT TAPE INPUT )99)4F)5A)5B 65652 * FILETYPE ENTRY ERROR - NO I/O DEVICE SPECIFIED )99)5/)5')4Z)4Y 65652 * MODEPAR ENTRY ERROR - LOAD, NOT TAPE FILE )99)4G)5/ 65652 * CHANDRIVE ENTRY ERROR - TAPE, NO DRIVE )99)4V)5A 65652 * CHANDRIVE ENTRY ERROR - NOT TAPE FILE )99)4E)5/ 65652 * CARDPOC ENTRY ERROR - NO READER OR PUNCH )99)4D)5')4Z 65652 * FORMCNTL ENTRY ERROR - NOT PRINTER FILE )99)0D)4Y 65652 * OVERFLOW ENTRY ERROR - NOT PRINTER FILE )99)0F)4Y 65652 * OVERFLOW ENTRY ERROR - NOT PRINTER FILE )99)0G)4Y 65652 * ALTTAPE ENTRY ERROR - NOT TAPE FILE )99)4C)5/ 65652 * RECFORM ENTRY ERROR - BLOCKED, NOT TAPE FILE )99)4B)5/ 65652 * RECFORM ENTRY ERROR - VARIABLE, NOT TAPE FILE )99)3I)5/ 65652 * RECFORM ENTRY ERROR - BLOCKED & UNBLOCKED )99)4A)4B 65652 * RECFORM ENTRY ERROR - VARIABLE & FIXED )99)3I)4? 65652 * SIZEREC ENTRY ERROR - NOT TAPE FILE )99)3H)5/ 65652 * SIZEREC ENTRY ERROR - FORM 3 TAPE FILE )99)4S)3H)3I)5A 65652 * BLOCKED TAPE FILE - NO SIZEREC ENTRY )99)4B)5A)3Y 65652 * PADDING ENTRY ERROR - NOT TAPE FILE )99)3G)5/ 65652 * PADDING ENTRY ERROR - VARIABLE TAPE FILE )99)3G)3I)5A 65652 * PADDING ENTRY ERROR - UNBLOCKED TAPE FILE )99)3G)4S)5A 65652 * PADDING ENTRY ERROR - INPUT TAPE FILE )99)5A)5C)3G 65652 * BLOCKSIZE ENTRY ERROR - NOT TAPE FILE )99)3F)5/ 65652 * BLOCKSIZE ENTRY ERROR - UNBLOCKED TAPE FILE )99)3F)4S)5A 65652 * BLOCKED TAPE FILE - NO BLOCKSIZE ENTRY )99)4B)5A)3W 65652 * REWIND ENTRY ERROR - NOT TAPE FILE )99)0H)5/ 65652 * REWIND ENTRY ERROR - NOT TAPE FILE )99)0I)5/ 65652 * REWIND ENTRY ERROR - NOREWD & UNLOAD )99)0H)0I 65652 * EOFADDR ENTRY ERROR - PRINTER FILE )99)3A)4H 65652 * EOFADDR ENTRY ERROR - PUNCH FILE )99)3A)4I 65652 * EOFADDR ENTRY ERROR - TAPE OUTPUT FILE )99)3A)5A)5B 65652 * READER FILE - NO EOFADDR ENTRY )99)5?)3/)5W 65652 * TAPE INPUT/STANDARD LABEL - NO EOFADDR ENTRY )99)5A)5C)2G)3/)5W 65652 * WLRADDR ENTRY ERROR - PRINTER FILE )99)3?)4H 65652 * WLRADDR ENTRY ERROR - PUNCH FILE )99)3?)4I 65652 * WLRADDR ENTRY ERROR - READER FILE )99)3?)5? 65652 * WLRADDR ENTRY ERROR - VARIABLE UNBLOCKED FILE )99)3?)3I)4S)5A 65652 * WLRADDR ENTRY ERROR - TAPE OUTPUT FILE )99)3?)5B)5A 65652 * EXNADDR ENTRY ERROR - NOT TAPE FILE )99)5E)5/ 65652 * EXNADDR ENTRY ERROR - UNLABELED TAPE FILE )99)5A)5E)2X)2W 65652 * EX1ADDR NOT APPLICABLE - TAPE INPUT )99)1H)5A)5C 65652 * EX1ADDR NOT APPLICABLE - NONSTANDARD LABELS )99)1H)5A)2F 65652 * EX2ADDR NOT APPLICABLE - TAPE INPUT )99)1G)5A)5C 65652 * EX3ADDR NOT APPLICABLE - TAPE INPUT )99)1F)5A)5C 65652 * EX3ADDR NOT APPLICABLE - NONSTANDARD LABELS )99)1F)5A)2F 65652 * EX4ADDR NOT APPLICABLE - TAPE INPUT )99)1E)5A)5C 65652 * EX4ADDR NOT APPLICABLE - NONSTANDARD LABELS )99)1E)5A)2F 65652 * EX5ADDR NOT APPLICABLE - TAPE INPUT )99)1D)5A)5C 65652 * EX6ADDR NOT APPLICABLE - TAPE OUTPUT )99)1C)5A)5B 65652 * EX7ADDR NOT APPLICABLE - TAPE OUTPUT )99)1B)5A)5B 65652 * EX8ADDR NOT APPLICABLE - TAPE INPUT )99)1A)5A)5C 65652 * DTF TABLE FOR FILENAME )5D 65652 )7K DCW #16 )5A)2H HASH 65652 DCW @*@ )5A)2Y 65652 )7J DCW #10 )5A)2I RECORD 65652 DCW @*@ )5A)2Z 65652 DCW @)2A@ )5A)2G)5C 65652 DCW #5 )5A)2G)5C)2/ 65652 DCW #5 )5A)2G)5B 65652 DCW @)2A@ )5A)2G)5B 65652 DCW @)2B@ )5A)2G)5C 65652 DCW #3 )5A)2G)2/)5B 65652 DCW #3 )5A)2G)2S)5C 65652 DCW @)0E@ )5A)2G REEL SEQ 65652 DCW @001@ )5A)2G)0V 65652 DCW @)1I@ )5A)2G FILE SER 65652 DCW #5 )5A)2G)1Z 65652 DCW @)2?@ )5A)2G 65652 DCW #10 )5A)2G)2' 65652 DCW @%@ )5A 65652 DCW )1H )5A EXITS 65652 DCW @*@ )5A)1Y)5E 65652 DCW )1G )5A 65652 DCW @*@ )5A)1X)5E 65652 DCW )1F )5A 65652 DCW @*@ )5A)1W)5E 65652 DCW )1E )5A 65652 DCW @*@ )5A)1V)5E 65652 DCW )1D )5A 65652 DCW @*@ )5A)1U)5E 65652 DCW )1C )5A 65652 DCW @*@ )5A)1T)5E 65652 DCW )1B )5A 65652 DCW @*@ )5A)1S)5E 65652 DCW )1A )5A 65652 DCW @*@ )5A)1/)5E 65652 DCW &000000 BLK CNT 65652 DCW @A@ )0Y)0Z REWIND 65652 DCW @B@ )0I 65652 DCW @ @ )0H 65652 DCW )3A EOF 65652 DCW @ @ )3/ 65652 DCW @)3G@ PADDING 65652 DCW @ @ )3X 65652 DCW @1@ )5A)5C)2G)2D LABEL 65652 DCW @1@ )5A)5B)2G TYPE 65652 DCW @J@ )5A)5C)2G)2C 65652 DCW @A@ )5A)5C)2G)2T)2U 65652 DCW @2@ )5A)2F 65652 DCW @ @ )2X)2W 65652 DCW @)4C@ ALT 65652 DCW @ @ )4T TAPE 65652 DCW @)4E@ CHAN 65652 DCW @ @ )4V 65652 DCW @2@ )4H FILE 65652 DCW @4@ )4I TYPE 65652 DCW @1@ )5? 65652 DCW @R@ )5C)5A 65652 DCW @W@ )5B)5A 65652 DCW @L@ )4G 65652 DCW @M@ )4X 65652 * DTF ROUTINE FOR FILENAME )5D 65652 )5D B IOCUXT 65652 B )6J )5A)0A 65652 B )6J )5?)0A 65652 B *&5 )0/ 65652 B *&5 )5/)0A 65652 B *&13 )5A)0A 65652 B )2M 65652 B )6Q )5A)0A 65652 B )7L )5A)0A 65652 * DTF ROUTINE FOR TAPE INPUT FIXED LENGTH RECORDS )0/)0A 65652 MCW IOCXR1,IOCSAV )3Z)5A)5C)3S)4B)0/ 65652 MCW IOCXR1,IOCSAV )3Z)5A)5C)4S)0/ 65652 MCW IOCUXT&3,IOCXR1 )3Z)5A)5C)5F)0/ 65652 MCW IOCUXT&3,IOCXR1 )3Z)5A)5C)3T)3S)5W)0/ 65652 MN 0&X1 )3Z)5A)5C)5F)0/ 65652 MN 0&X1 )3Z)5A)5C)3T)3S)5W)0/ 65652 SAR IOCXR1 )3Z)5A)5C)5F)0/ 65652 SAR IOCXR1 )3Z)5A)5C)3T)3S)5W)0/ 65652 MCW 0&X1,)5D-7 )3Z)5A)5C)5F)0/ 65652 C )3Z)5A)5C)5F)3T)3S)0/ 6565K C 0&X1 )3Z)5A)5C)5W)3T)3S)0/ 65652 C )3Z)5A)5C)3T)3S)0/ 65652 SAR IOCXR1 )3Z)5A)5C)3T)3S)0/ 65652 MCW 0&X1,)1M&6 )3Z)5A)5C)3T)3S)0/ 65652 MCW )2Q,IOCXR1 )3Z)5A)5C)3S)4B)0/ 65652 BCE )2L,)3D&X1," )3Z)5A)5C)3S)4B)0/ 65652 )0M MCM )3D&X1,)3C )3Z)5A)5C)3S)4B)0/ 65652 SBR )2Q,)3H&X1 )3Z)5A)5C)3S)4B)3C)0/ 65652 MCW )2Q,IOCXR)3B )3Z)5A)5C)4B)0/ 65652 SBR IOCXR)3B,)3H&X)3B )3Z)5A)5C)4B)0/ 65652 SBR )2Q )3Z)5A)5C)4B)3B)0/ 65652 BCE )2L,)3D&X)3B," )3Z)5A)5C)4B)0/ 65652 B )2L )3Z)5A)5C)4S)0/ 65652 )0M BCE *&8,)1M&6,$ )3Z)5A)5C)3T)3S)4B)0/ 65652 )1M MCM )3D&X1,0 )3Z)5A)5C)3T)3S)4B)0/ 65652 SBR )2Q,)3H&X1 )3Z)5A)5C)3T)3S)4B)0/ 65652 )7L EQU *&1 )3Z)5A)5C)3B)4B)0/ 65652 )7L EQU *&1 )3Z)5A)5C)4S)0/ 65652 MCM )3D,)3C )3Z)5A)5C)4S)0/ 65652 BCE *&8,)1M&6,$ )3Z)5A)5C)4S)3T)0/ 65652 )1M MCM )3D,0 )3Z)5A)5C)4S)3T)0/ 65652 A @1@,)7J )3Z)5A)5C)2I)0/ 65652 A )3D&)2H-1&X)3B,)7K )3Z)5A)5C)4B)0/ 65652 A )3D&)2H-1,)7K )3Z)5A)5C)3T)4S)0/ 65652 A )3C&)2H-1,)7K )3Z)5A)5C)3S)0/ 65652 A )3D&)2H-1&X1,)7K )3Z)5A)5C)3S)3T)4B)0/ 65652 MCW IOCSAV,IOCXR1 )3Z)5A)5C)3S)4B)0/ 65652 MCW IOCSAV,IOCXR1 )3Z)5A)5C)4S)0/ 65652 B IOCUXT )3Z)5A)5C)0/ 65652 NOP )3F )3Z)5A)5C)4B)3S)0/ 65652 NOP )3F-)3H )3Z)5A)5C)4B)3B)0/ 65652 )2Q EQU * )3Z)5A)5C)4B)0/ 65652 NOP )3F )3Z)5A)5C)4B)3S)0/ 65652 NOP )3F-)3H )3Z)5A)5C)4B)3B)0/ 65652 )4Q EQU * )3Z)5A)5C)4B)0/ 65652 )2L EQU *&1 )3Z)5A)5C)0/ 6565K MN )5D-3,)1K&9 )3Z)5A)5C)4C)0/ 6565K B IOCSRW )3Z)5A)5C)0/ 6565K NOP )1K )3Z)5A)5C)0/ 65652 INCLD15000 )3Z)5A)5C)4F)0/ 65652 B IOCKBY )3Z)5A)5C)4F)0/ 65652 BW *&5,IOC007 )3Z)5A)5C)4F)0/ 65652 B )2L )3Z)5A)5C)4F)0/ 65652 SBR IOCSV3,)3D&1&X1 )3Z)5A)5C)3?)3S)4B)0/ 65652 SBR IOCSV3,)3D&1&X)3B )3Z)5A)5C)3?)4B)0/ 65652 )3M EQU )3D&1 )3Z)5A)5C)3?)4S)0/ 6565K SBR IOCSV3,)3M&)3H )5A)5C)3?)4S)0/)3Z 6565K S IOCXR)3B&1 )3Z)5A)5C)4B)0/ 6565K S IOCXR1&1 )3Z)5A)5C)4B)0/)3S 6565K C IOCSV3,IOCTBR )3Z)5A)5C)3?)0/ 65652 BU )8K )3Z)5A)5C)0/)3? 6565K A @1@,)5D-12 )3Z)5A)5C)0/ 6565K MCW IOCTBR,IOCXR1 )3Z)5A)5C)4S)0/ MN 0&X1 )3Z)5A)5C)4S)0/ LCA @"@ )3Z)5A)5C)4S)0/ SBR )2Q,0 )3Z)5A)5C)4B)0/ 65652 B )7L )3Z)5A)5C)3B)4B)0/ 65652 B )7L )3Z)5A)5C)4S)0/ 65652 B )0M )3Z)5A)5C)3S)4B)0/ 65652 )8K MLC IOCTBR,*&4 )3Z)5A)5C)3?)0/ 6565K MN 0 )3Z)5A)5C)3?)0/ 6565K MLC @ @ )3Z)5A)5C)3?)0/ 6565K MLC IOCSAV,IOCXR1 )3Z)5A)5C)3?)0/)3S)4B 6565K MLC IOCSAV,IOCXR1 )3Z)5A)5C)3?)0/)4S 6565K MCW )4Q,)2Q )3Z)5A)5C)3?)0/)4B 6565K B )3? )3Z)5A)5C)3?)0/ 6565K )1K DCW @N@ )3Z)5A)5C)0/ DCW @49@ )3Z)5A)5C)0/ 65652 DCW )2K )3Z)5A)5C)0/ 65652 RT )4E,)3D&X0 )3Z)5A)5C)4X)0/ 65652 RTW )4E,)3D&X0 )3Z)5A)5C)4G)0/ 65652 )2K EQU *&1 )3Z)5A)5C)0/ 65652 MCW IOCSAV,IOCXR1 )3Z)5A)5C)3S)4B)0/ 65652 MCW IOCSAV,IOCXR1 )3Z)5A)5C)4S)0/ 65652 MCW IOCTNT,IOCXR3 )3Z)5A)5C)0/ 65652 MCW )3Z)5A)5C)0/ 65652 MCW @ @,)3D&1&X0 )3Z)5A)5C)0/ 65652 B IOCEOR )3Z)5A)5C)0/ 65652 NOP )5D-17 )3Z)5A)5C)0/ 65652 SBR )1K&2,2549 )3Z)5A)5C)0/ MCW )2Q,IOCXR1 )3Z)5A)5C)3S)4B)3?)0/ 65652 MCW )2Q,IOCXR)3B )3Z)5A)5C)4B)3?)0/ 65652 B )2L )3Z)5A)5C)0/ 65652 )2M EQU *&1 )3Z)5A)5C)0/ 65652 MCW )4Q,)2Q )3Z)5A)5C)4B)0/ 65652 SBR IOCXR)3B,0 )3Z)5A)5C)4B)0/ 65652 B IOCUXT )3Z)5A)5C)0/ 65652 * DTF ROUTINE FOR TAPE OUTPUT FIXED LENGTH RECORDS )0/)0A 65652 CW )9M )3Z)5A)5B)4B)0/ 65652 MCW @N@,)1N )3Z)5A)5B)4B)3B)0/ 65652 MCW IOCXR1,IOCSAV )3Z)5A)5B)3S)4B)0/ 65652 MCW IOCXR1,IOCSAV )3Z)5A)5B)4S)3T)0/ 65652 MCW IOCUXT&3,IOCXR1 )3Z)5A)5B)3T)3S)0/ 65652 MN 0&X1 )3Z)5A)5B)3T)3S)0/ 65652 C )3Z)5A)5B)3T)3S)0/ 65652 C )3Z)5A)5B)3T)3S)0/ 65652 SAR IOCXR1 )3Z)5A)5B)3T)3S)0/ 65652 MCW 0&X1,)1M&3 )3Z)5A)5B)3T)3S)0/ 65652 )3M EQU *&1 )3Z)5A)5B)4B)0/ 65652 MCW )2Q,IOCXR1 )3Z)5A)5B)3S)4B)0/ 65652 MCW )2Q,IOCXR)3B )3Z)5A)5B)4B)0/ 65652 SBR )1M&6,)3D&X1 )3Z)5A)5B)4B)3S)0/ 65652 SBR )5M&6,)3D&)3H&X1 )3Z)5A)5B)4B)3S)0/ 65652 SBR )2Q,)3H&X1 )3Z)5A)5B)4B)3S)0/ 65652 SBR )4M&3,)3D&)2H-1&X1 )3Z)5A)5B)4B)3S)3T)0/ 65652 MCW IOCSAV,IOCXR1 )3Z)5A)5B)4B)3S)0/ 65652 MCW IOCSAV,IOCXR1 )3Z)5A)5B)4S)3T)0/ 6565K )1M EQU *&1 )3Z)5A)5B)4B)3S)0/ 65652 MCM 0,0 )3Z)5A)5B)4B)3S)3T)0/ 65652 MCM )3C,0 )3Z)5A)5B)4B)3S)0/ 65652 )0M EQU *&1 )3Z)5A)5B)4B)3B)0/ 65652 MCM )3C,)3D )3Z)5A)5B)4S)0/ 65652 BCE *&8,)1M&3,$ )3Z)5A)5B)3S)3T)4S)0/ 65652 )1M MCM 0,)3D )3Z)5A)5B)3S)3T)4S)0/ 65652 )1N NOP 0,)3D&X)3B )3Z)5A)5B)4B)0/ 65652 A @1@,)7J )3Z)5A)5B)2I)0/ 65652 A )3D&)2H-1&X)3B,)7K )3Z)5A)5B)4B)0/ 65652 A )3C&)2H-1,)7K )3Z)5A)5B)3S)0/ 65652 )4M A 0,)7K )3Z)5A)5B)4B)3S)3T)2H)0/ 65652 A )3D&)2H-1,)7K )3Z)5A)5B)3T)4S)0/ 65652 SBR IOCXR)3B,)3H&X)3B )3Z)5A)5B)4B)0/ 65652 SBR )2Q )3Z)5A)5B)4B)3B)0/ 65652 )5M BCE )2L,0," )3Z)5A)5B)4B)3S)0/ 65652 BCE )2L,)3D&X)3B," )3Z)5A)5B)4B)0/ 65652 B )2L )3Z)5A)5B)4S)0/ 65652 BW )0M,)9M#1 )3Z)5A)5B)4B)3B)0/ 65652 BW )3M,)9M#1 )3Z)5A)5B)4B)3S)0/ 65652 )2P EQU *&1 )3Z)5A)5B)0/ 65652 B IOCUXT )3Z)5A)5B)0/ 65652 )2Q DCW 000 )3Z)5A)5B)4B)0/ 65652 )2L EQU *&1 )3Z)5A)5B)0/ 65652 CW )9M )3Z)5A)5B)4B)0/ 65652 A @1@,)5D-12 )3Z)5A)5B)0/ 65652 MN )5D-3,)1K&9 )3Z)5A)5B)4C)0/ 6565K B IOCSRW )3Z)5A)5B)0/ 65652 NOP )1K )3Z)5A)5B)0/ 65652 )3L EQU *&1 )3Z)5A)5B)0/ 65652 SBR )2Q,0 )3Z)5A)5B)4B)0/ 65652 S IOCXR)3B&1 )3Z)5A)5B)4B)0/ 65652 B )2P )3Z)5A)5B)0/ 65652 )1K DCW @K@ )3Z)5A)5B)0/ 65652 DCW @29@ )3Z)5A)5B)0/ 65652 DCW )2K )3Z)5A)5B)0/ 65652 WT )4E,)3D&X0 )3Z)5A)5B)4X)0/ 65652 WTW )4E,)3D&X0 )3Z)5A)5B)4G)0/ 65652 )2K EQU *&1 )3Z)5A)5B)0/ 65652 MCW IOCSAV,IOCXR1 )3Z)5A)5B)3S)4B)0/ 65652 MCW IOCSAV,IOCXR1 )3Z)5A)5B)4S)3T)0/ 65652 MCW IOCTNT,IOCXR3 )3Z)5A)5B)0/ 65652 MCW )3Z)5A)5B)0/ 65652 B IOCEOR )3Z)5A)5B)0/ 65652 NOP )5D-17 )3Z)5A)5B)0/ 65652 SBR )1K&2,2229 )3Z)5A)5B)0/ 65652 B )3L )3Z)5A)5B)0/ 65652 )2M EQU *&1 )3Z)5A)5B)0/ 65652 B IOCUXT )3Z)5A)5B)4S)0/ 65652 C )2Q,@000@ )3Z)5A)5B)4B)0/ 65652 BE IOCUXT )3Z)5A)5B)4B)0/ 65652 MCW IOCXR1,IOCSAV )3Z)5A)5B)4B)3S)0/ 65652 SBR IOCXR1,)3C-1 )3Z)5A)5B)4B)0/ 65652 SBR IOCXR1,)3D&X0 )3Z)5A)5B)4B)3S)3T)0/ 65652 SBR IOCXR)3B,)3D&X0 )3Z)5A)5B)4B)0/ 65652 MA )2Q,IOCXR1 )3Z)5A)5B)4B)3S)3T)0/ 65652 MA )2Q,IOCXR)3B )3Z)5A)5B)4B)0/ 65652 SBR )1N&3,0&X)3B )3Z)5A)5B)4B)0/ 65652 SBR )1M&3,0&X1 )3Z)5A)5B)4B)3S)3T)0/ 65652 MN 0&X1 )3Z)5A)5B)4B)3S)3T)0/ 65652 MN 0&X)3B )3Z)5A)5B)4B)0/ 65652 SAR )2R#3 )3Z)5A)5B)4B)3T)0/ 65652 MCW )5D-6,)3H-2&X)3B )3Z)5A)5B)4B)0/ 65652 MCW )5D-6,)3H-2&X1 )3Z)5A)5B)4B)3S)3T)0/ 65652 MCW )5D-6,)3H-1&X1 )3Z)5A)5B)4B)3C)0/ 65652 SBR IOCXR)3B )3Z)5A)5B)4B)0/ 65652 SBR IOCXR1 )3Z)5A)5B)4B)3S)0/ 65652 )3P MCW )5D-6,0&X)3B )3Z)5A)5B)4B)0/ 65652 )3P MCW )5D-6,0&X1 )3Z)5A)5B)4B)3S)0/ 65652 SBR IOCXR)3B )3Z)5A)5B)4B)0/ 65652 SBR IOCXR1 )3Z)5A)5B)4B)3S)0/ 65652 C IOCXR)3B,)2R )3Z)5A)5B)4B)0/ 65652 C IOCXR1,)2R )3Z)5A)5B)4B)3S)3T)0/ 65652 C IOCXR1,&)3C-1 )3Z)5A)5B)4B)0/ 65652 BU )3P )3Z)5A)5B)4B)0/ 65652 SW )9M )3Z)5A)5B)4B)0/ 65652 MCW @P@,)1N )3Z)5A)5B)4B)3B)0/ 65652 B )3M )3Z)5A)5B)4B)0/ 65652 * DTF ROUTINE FOR TAPE INPUT VARIABLE LENGTH UNBLOCKED )0/)0A 65652 MCW IOCXR1,IOCSAV )3I)5A)5C)4S)0/ 65652 MCW IOCUXT&3,IOCXR1 )3I)5A)5C)4S)5F)0/ 65652 MCW IOCUXT&3,IOCXR1 )3I)5A)5C)4S)3T)5W)0/ 65652 MN 0&X1 )3I)5A)5C)4S)5F)0/ 65652 MN 0&X1 )3I)5A)5C)4S)3T)5W)0/ 65652 SAR IOCXR1 )3I)5A)5C)4S)5F)0/ 65652 SAR IOCXR1 )3I)5A)5C)4S)3T)5W)0/ 65652 MCW 0&X1,)5D-7 )3I)5A)5C)4S)5F)0/ 65652 C )3I)5A)5C)4S)5F)3T)0/ 6565K C 0&X1 )3I)5A)5C)4S)3T)5W)0/ 65652 C )3I)5A)5C)4S)3T)0/ 65652 SAR IOCXR1 )3I)5A)5C)4S)3T)0/ 65652 MCW 0&X1,)1M&6 )3I)5A)5C)4S)3T)0/ 65652 )2L EQU *&1 )3I)5A)5C)4S)0/ 6565K MN )5D-3,)1K&9 )3I)5A)5C)4S)4C)0/ 6565K B IOCSRW )3I)5A)5C)4S)0/ 6565K NOP )1K )3I)5A)5C)4S)0/ 65652 INCLD15000 )3I)5A)5C)4S)4F)0/ 65652 B IOCKBY )3I)5A)5C)4S)4F)0/ 65652 BW *&5,IOC007 )3I)5A)5C)4S)4F)0/ 65652 B )2L )3I)5A)5C)4S)4F)0/ 65652 A @1@,)5D-12 )3I)5A)5C)4S)0/ 65652 MCW IOCTBR,IOCXR1 )3I)5A)5C)4S)0/ 65652 MN 0&X1 )3I)5A)5C)4S)0/ 65652 MCW @'@ )3I)5A)5C)4S)0/ 65652 MCM )3D,)3C )3I)5A)5C)4S)0/ 65652 BCE *&8,)1M&6,$ )3I)5A)5C)4S)3T)0/ 65652 )1M MCM )3D,0 )3I)5A)5C)4S)3T)0/ 65652 A @1@,)7J )3I)5A)5C)4S)2I)0/ 65652 A )3D&)2H-1,)7K )3I)5A)5C)4S)3T)0/ 65652 A )3C&)2H-1,)7K )3I)5A)5C)4S)0/ 65652 MCW IOCSAV,IOCXR1 )3I)5A)5C)4S)0/ 65652 B IOCUXT )3I)5A)5C)4S)0/ 65652 )1K DCW @N@ )3I)5A)5C)4S)0/ DCW @49@ )3I)5A)5C)4S)0/ 65652 DCW )2K )3I)5A)5C)4S)0/ 65652 RT )4E,)3D&X0 )3I)5A)5C)4S)4X)0/ 65652 RTW )4E,)3D&X0 )3I)5A)5C)4S)4G)0/ 65652 )2K MCW IOCSAV,IOCXR1 )3I)5A)5C)4S)0/ 65652 MCW IOCTNT,IOCXR3 )3I)5A)5C)4S)0/ 65652 MCW )3I)5A)5C)4S)0/ 65652 MCW @ @,)3D&1&X0 )3I)5A)5C)4S)0/ 65652 B IOCEOR )3I)5A)5C)4S)0/ 65652 NOP )5D-17 )3I)5A)5C)4S)0/ 65652 SBR )1K&2,2549 )3I)5A)5C)4S)0/ B )2L )3I)5A)5C)4S)0/ 65652 )2M B IOCUXT )3I)5A)5C)4S)0/ 65652 * DTF ROUTINE FOR TAPE OUTPUT VARIABLE LENGTH UNBLOCKED )0/)0A 65652 MCW IOCXR1,IOCSAV )3I)5A)5B)4S)0/ 65652 MCW IOCUXT&3,IOCXR1 )3I)5A)5B)4S)3T)0/ 65652 MN 0&X1 )3I)5A)5B)4S)3T)0/ 65652 C )3I)5A)5B)4S)3T)0/ 65652 C )3I)5A)5B)4S)3T)0/ 65652 SAR IOCXR1 )3I)5A)5B)4S)3T)0/ 65652 MCW 0&X1,)1M&3 )3I)5A)5B)4S)3T)0/ 65652 MCM )3C,)3D )3I)5A)5B)4S)0/ 65652 BCE )1N,)1M&3,$ )3I)5A)5B)4S)3T)0/ 65652 )1M MCM 0,)3D )3I)5A)5B)4S)3T)0/ 65652 SBR IOCXR1 )3I)5A)5B)4S)0/ 65652 MN 0&X1 )3I)5A)5B)4S)0/ 65652 SAR IOCXR1 )3I)5A)5B)4S)0/ 65652 BCE )3J,0&X1," )3I)5A)5B)4S)0/ 65652 LCA @"@,1&X1 )3I)5A)5B)4S)0/ 65652 SBR )3K&3,1&X1 )3I)5A)5B)4S)0/ 65652 B )1N )3I)5A)5B)4S)0/ 65652 )3J SW 0&X1 )3I)5A)5B)4S)0/ 65652 SBR )3K&3,0&X1 )3I)5A)5B)4S)0/ 65652 )1N EQU *&1 )3I)5A)5B)4S)0/ 65652 A @1@,)7J )3I)5A)5B)4S)2I)0/ 65652 A )3C&)2H-1,)7K )3I)5A)5B)4S)0/ 65652 A )3D&)2H-1,)7K )3I)5A)5B)4S)3T)0/ 65652 A @1@,)5D-12 )3I)5A)5B)4S)0/ 65652 MN )5D-3,)1K&9 )3I)5A)5B)4S)4C)0/ 6565K B IOCSRW )3I)5A)5B)4S)0/ 65652 NOP )1K )3I)5A)5B)4S)0/ 65652 BCE *&5,)1M&3,$ )3I)5A)5B)4S)3T)0/ 65652 )3K CW 0 )3I)5A)5B)4S)0/ 65652 MCW IOCSAV,IOCXR1 )3I)5A)5B)4S)0/ 65652 B IOCUXT )3I)5A)5B)4S)0/ 65652 )1K DCW @K@ )3I)5A)5B)4S)0/ 65652 DCW @29@ )3I)5A)5B)4S)0/ 65652 DCW )2K )3I)5A)5B)4S)0/ 65652 WT )4E,)3D&X0 )3I)5A)5B)4S)4X)0/ 65652 WTW )4E,)3D&X0 )3I)5A)5B)4S)4G)0/ 65652 )2K EQU *&1 )3I)5A)5B)4S)0/ 65652 MCW IOCSAV,IOCXR1 )3I)5A)5B)4S)0/ 65652 MCW IOCTNT,IOCXR3 )3I)5A)5B)4S)0/ 65652 MCW )3I)5A)5B)4S)0/ 65652 B IOCEOR )3I)5A)5B)4S)0/ 65652 NOP )5D-17 )3I)5A)5B)4S)0/ 65652 SBR )1K&2,2229 )3I)5A)5B)4S)0/ 65652 B )3K-8 )3I)5A)5B)4S)3T)0/ 65652 B )3K )3I)5A)5B)4S)3C)0/ 65652 )2M B IOCUXT )3I)5A)5B)4S)0/ 65652 * DTF ROUTINE FOR TAPE INPUT VARIABLE BLOCKED RECORDS )0/)0A 65652 MCW IOCXR1,IOCSAV )3I)5A)5C)4B)0/ 65652 MCW IOCUXT&3,IOCXR1 )3I)5A)5C)4B)5F)0/ 65652 MCW IOCUXT&3,IOCXR1 )3I)5A)5C)4B)3T)5W)0/ 65652 MN 0&X1 )3I)5A)5C)4B)5F)0/ 65652 MN 0&X1 )3I)5A)5C)4B)3T)5W)0/ 65652 SAR IOCXR1 )3I)5A)5C)4B)5F)0/ 65652 SAR IOCXR1 )3I)5A)5C)4B)3T)5W)0/ 65652 MCW 0&X1,)5D-7 )3I)5A)5C)4B)5F)0/ 65652 C )3I)5A)5C)4B)5F)3T)0/ 6565K C 0&X1 )3I)5A)5C)4B)3T)5W)0/ 65652 C )3I)5A)5C)4B)3T)0/ 65652 SAR IOCXR1 )3I)5A)5C)4B)3T)0/ 65652 MCW 0&X1,)1M&6 )3I)5A)5C)4B)3T)0/ 65652 BW )2L,)9L#1 )3I)5A)5C)4B)0/ 65652 C )3D&3,&0004 )3I)5A)5C)4B)0/ 65652 BE )2L )3I)5A)5C)4B)0/ 65652 )7L MCW )2Q,IOCXR1 )3I)5A)5C)4B)0/ 65652 MCM )3D&X1,)3C )3I)5A)5C)4B)0/ 65652 MA )3C&)3H-1,)2Q )3I)5A)5C)4B)0/ 65652 S )3C&)3H-1,)3D&3 )3I)5A)5C)4B)0/ 65652 BCE *&8,)1M&6,$ )3I)5A)5C)4B)3T)0/ 65652 )1M MCM )3D&X1,0 )3I)5A)5C)4B)3T)0/ 65652 MA )3D&)3H-1&X1,)2Q )3I)5A)5C)4B)3T)0/ 65652 S )3D&)3H-1&X1,)3D&3 )3I)5A)5C)4B)3T)0/ 65652 A @1@,)7J )3I)5A)5C)4B)2I)0/ 65652 A )3C&)2H-1,)7K )3I)5A)5C)4B)0/ 65652 A )3D&)2H-1&X1,)7K )3I)5A)5C)4B)3T)0/ 65652 MCW IOCSAV,IOCXR1 )3I)5A)5C)4B)0/ 65652 B IOCUXT )3I)5A)5C)4B)0/ 65652 )2Q DCW 004 )3I)5A)5C)4B)0/ 65652 )2L EQU *&1 )3I)5A)5C)4B)0/ 6565K MN )5D-3,)1K&9 )3I)5A)5C)4B)4C)0/ 6565K B IOCSRW )3I)5A)5C)4B)0/ 6565K NOP )1K )3I)5A)5C)4B)0/ 65652 INCLD15000 )3I)5A)5C)4B)4F)0/ 65652 B IOCKBY )3I)5A)5C)4B)4F)0/ 65652 BW *&5,IOC007 )3I)5A)5C)4B)4F)0/ 65652 B )2L )3I)5A)5C)4B)4F)0/ 65652 CW )9L )3I)5A)5C)4B)0/ 65652 ZA )3D&3,IOCAR5 )3I)5A)5C)4B)3?)0/ 65652 INCLD18000 )3I)5A)5C)4B)3?)0/ 65652 B IOCPCK )3I)5A)5C)4B)3?)0/ 65652 MCW IOCAR5,IOCXR1 )3I)5A)5C)4B)3?)0/ 65652 SBR IOCXR1,)3D&1&X1 )3I)5A)5C)4B)3?)0/ 65652 C IOCXR1,IOCTBR )3I)5A)5C)4B)3?)0/ 65652 BU )8K )3I)5A)5C)4B)0/)3? 6565K SBR )2Q,4 )3I)5A)5C)4B)0/ 65652 A @1@,)5D-12 )3I)5A)5C)4B)0/ 6565K B )7L )3I)5A)5C)4B)0/ 65652 )8K MCW IOCTBR,*&4 )3I)5A)5C)4B)3?)0/ 6565K MN 0 )3I)5A)5C)4B)3?)0/ 6565K MCW @ @ )3I)5A)5C)4B)3?)0/ 6565K MCW IOCSAV,IOCXR1 )3I)5A)5C)4B)3?)0/ 6565K MCW &0004,)3D&3 )3I)5A)5C)4B)3?)0/ 6565K B )3? )3I)5A)5C)4B)3?)0/ 6565K )1K DCW @N@ )3I)5A)5C)4B)0/ DCW @49@ )3I)5A)5C)4B)0/ 65652 DCW )2K )3I)5A)5C)4B)0/ 65652 RT )4E,)3D&X0 )3I)5A)5C)4B)4X)0/ 65652 RTW )4E,)3D&X0 )3I)5A)5C)4B)4G)0/ 65652 )2K MCW IOCSAV,IOCXR1 )3I)5A)5C)4B)0/ 65652 MCW IOCTNT,IOCXR3 )3I)5A)5C)4B)0/ 65652 MCW )3I)5A)5C)4B)0/ 65652 MCW @ @,)3D&1&X0 )3I)5A)5C)4B)0/ 65652 B IOCEOR )3I)5A)5C)4B)0/ 65652 NOP )5D-17 )3I)5A)5C)4B)0/ 65652 SBR )1K&2,2549 )3I)5A)5C)4B)0/ B )2L )3I)5A)5C)4B)0/ 65652 )2M MCW &0004,)3D&3 )3I)5A)5C)4B)0/ 65652 B IOCUXT )3I)5A)5C)4B)0/ 65652 * DTF ROUTINE FOR TAPE OUTPUT VARIABLE LENGTH RECORDS )0/)0A 65652 SW )9J )3I)5A)5B)4B)0/ 65652 MCW IOCXR1,IOCSAV )3I)5A)5B)4B)0/ 65652 SBR )8J&6,0&X3 )3I)5A)5B)4B)3T)1')0/ 65652 SBR )8K&6 )3I)5A)5B)4B)3T)1')1A)0/ 6565K MCW IOCUXT&3,IOCXR1 )3I)5A)5B)4B)3T)1')0/ 65652 MN 0&X1 )3I)5A)5B)4B)3T)1')0/ 65652 C )3I)5A)5B)4B)3T)1')0/ 65652 C )3I)5A)5B)4B)3T)1')0/ 65652 SAR IOCXR1 )3I)5A)5B)4B)3T)1')0/ 65652 MCW 0&X1,IOCXR3 )3I)5A)5B)4B)3T)1')0/ 65652 BCE )9R,IOCXR3,$ )3I)5A)5B)4B)3T)1')0/ 65652 )7L A )3C&)3H-1,)4Q )3I)5A)5B)4B)0/ 65652 )7L A )3H-1&X3,)4Q )3I)5A)5B)4B)3T)1')0/ 65652 A )1?,)4Q )3I)5A)5B)4B)0/ 65652 MCW )1?,)8R#3 )3I)5A)5B)4B)0/ 65652 )6J EQU *&1 )3I)5A)5B)4B)1?)0/ 65652 MCW )2Q,IOCXR1 )3I)5A)5B)4B)0/ 65652 C )5Q,)4Q )3I)5A)5B)4B)1')0/ 65652 BH )2L )3I)5A)5B)4B)1')0/ 65652 BWZ )2L,)4Q-3,S )3I)5A)5B)4B)1')0/ 6565K A )3C&)3H-1,)3D&3 )3I)5A)5B)4B)0/ 65652 A )3H-1&X3,)3D&3 )3I)5A)5B)4B)3T)1')0/ 65652 MCM )3C,)3D&X1 )3I)5A)5B)4B)0/ 65652 MCM 0&X3,)3D&X1 )3I)5A)5B)4B)3T)1')0/ 65652 MA )3C&)3H-1,)2Q )3I)5A)5B)4B)0/ 65652 MA )3H-1&X3,)2Q )3I)5A)5B)4B)3T)1')0/ 65652 )7M B )7N )3I)5A)5B)4B)1?)0/ 65652 MA )3H-1&X1,)2Q )3I)5A)5B)4B)1?)0/ 65652 A @1@,)7J )3I)5A)5B)4B)2I)0/ 65652 A )3C&)2H-1,)7K )3I)5A)5B)4B)0/ 65652 A )2H-1&X3,)7K )3I)5A)5B)4B)3T)1')0/ 65652 A )2H-1&X1,)7K )3I)5A)5B)4B)1?)0/ 65652 )7N MCW @N@,)7M )3I)5A)5B)4B)1?)0/ 65652 MCW )2Q,)1? )3I)5A)5B)4B)1?)0/ 65652 BW *&5,)9J )3I)5A)5B)4B)1?)0/ 65652 B )2L )3I)5A)5B)4B)1?)0/ 65652 C )5Q,)4Q )3I)5A)5B)4B)1?)0/ 65652 BH )2L )3I)5A)5B)4B)1?)0/ 65652 BWZ )2L,)4Q-3,S )3I)5A)5B)4B)1?)0/ 6565K )7L EQU *&1 )3I)5A)5B)4B)1?)0/ 65652 A )8R,)3D&3 )3I)5A)5B)4B)1?)0/ 65652 MCW IOCSAV,IOCXR1 )3I)5A)5B)4B)0/ 65652 )8J SBR IOCXR3,0 )3I)5A)5B)4B)3T)1')0/ 65652 B IOCUXT )3I)5A)5B)4B)0/ 65652 )2L LCA @"@,)3D&X1 )3I)5A)5B)4B)1')0/ 65652 )2L MCW )1?,IOCXR1 )3I)5A)5B)4B)0/ 65652 LCA @"@,0&X1 )3I)5A)5B)4B)1?)0/ 65652 A &4,)3D&3 )3I)5A)5B)4B)0/ 65652 SBR )3K&3,)3D&X1 )3I)5A)5B)4B)1')0/ 65652 SBR )3K&3,0&X1 )3I)5A)5B)4B)1?)0/ 65652 MZ @I@,)3D&3 )3I)5A)5B)4B)0/ 65652 A @1@,)5D-12 )3I)5A)5B)4B)0/ 65652 MN )5D-3,)1K&9 )3I)5A)5B)4B)4C)0/ 6565K B IOCSRW )3I)5A)5B)4B)0/ 65652 NOP )1K )3I)5A)5B)4B)0/ 65652 )3K CW 0 )3I)5A)5B)4B)0/ 65652 ZA &4,)4Q )3I)5A)5B)4B)0/ 65652 A )8R,)4Q )3I)5A)5B)4B)1?)0/ 65652 SBR )2Q,4 )3I)5A)5B)4B)1')0/ 65652 SBR )2Q,)3D&4 )3I)5A)5B)4B)1?)0/ 65652 SBR )1? )3I)5A)5B)4B)0/ 65652 S )3D&3 )3I)5A)5B)4B)0/ 65652 BW )7L,)9J )3I)5A)5B)4B)0/ 65652 B )9K )3I)5A)5B)4B)0/ 65652 )9R H 0,3999 )3I)5A)5B)4B)3T)1')0/ 65652 B )9R )3I)5A)5B)4B)3T)1')0/ 65652 )2Q DCW 004 )3I)5A)5B)4B)1')0/ 65652 )2Q DCW )3D&4 )3I)5A)5B)4B)1?)0/ 65652 )4Q DCW &0004 )3I)5A)5B)4B)0/ 65652 )5Q DCW &)3F )3I)5A)5B)4B)0/ 65652 )1K DCW @K@ )3I)5A)5B)4B)0/ 65652 DCW @29@ )3I)5A)5B)4B)0/ 65652 DCW )2K )3I)5A)5B)4B)0/ 65652 WT )4E,)3D&X0 )3I)5A)5B)4B)4X)0/ 65652 WTW )4E,)3D&X0 )3I)5A)5B)4B)4G)0/ 65652 )2K MCW IOCSAV,IOCXR1 )3I)5A)5B)4B)0/ 65652 MCW IOCTNT,IOCXR3 )3I)5A)5B)4B)0/ 65652 MCW )3I)5A)5B)4B)0/ 65652 )8K SBR IOCXR3,0 )3I)5A)5B)4B)3T)1')1A)0/ 6565K B IOCEOR )3I)5A)5B)4B)0/ 65652 NOP )5D-17 )3I)5A)5B)4B)0/ 65652 SBR )1K&2,2229 )3I)5A)5B)4B)0/ 65652 B )3K )3I)5A)5B)4B)0/ 65652 )2M C )2Q,@004@ )3I)5A)5B)4B)1')0/ 65652 BE IOCUXT )3I)5A)5B)4B)1')0/ 65652 )2M EQU *&1 )3I)5A)5B)4B)1?)0/ 65652 MCW IOCXR1,IOCSAV )3I)5A)5B)4B)0/ 65652 MCW )2Q,IOCXR1 )3I)5A)5B)4B)1')0/ 65652 CW )9J#1 )3I)5A)5B)4B)0/ 65652 B )2L )3I)5A)5B)4B)1')0/ 65652 B )6J )3I)5A)5B)4B)1?)0/ 65652 )9K MCW IOCSAV,IOCXR1 )3I)5A)5B)4B)0/ 65652 MCW @B@,)7M )3I)5A)5B)4B)1?)0/ 65652 B IOCUXT )3I)5A)5B)4B)0/ 65652 * DTF ROUTINE FOR READER FILE )0/)0A 65652 )0N NOP )5Q )5?)0/ 65652 MCW IOCXR1,IOCSAV )5?)5F 65652 MCW IOCXR1,IOCSAV )5?)4U)5W 65652 MCW IOCXR1,IOCSAV )5?)3T)4D)5W 65652 MCW IOCUXT&3,IOCXR1 )5?)3T)4D)5W 65652 MCW IOCUXT&3,IOCXR1 )5?)4U)5W 65652 MCW IOCUXT&3,IOCXR1 )5?)5F 65652 MN 0&X1 )5?)5F 65652 MN 0&X1 )5?)4U)5W 65652 MN 0&X1 )5?)3T)4D)5W 65652 SAR IOCXR1 )5?)3T)4D)5W 65652 SAR IOCXR1 )5?)4U)5W 65652 SAR IOCXR1 )5?)5F 65652 MCW 0&X1,)5D-7 )5?)5F 65652 C 0&X1 )5?)5W)4U 65652 C 0&X1 )5?)5W)3T)4D 65652 SAR IOCXR1 )5?)4U 65652 SAR IOCXR1 )5?)3T)4D 65652 MCW 0&X1,)2R )5?)4U)0/ 65652 C 0&X1 )5?)4D)3T 65652 C 0&X1 )5?)3T)4U 65652 SAR IOCXR1 )5?)3T 65652 MCW 0&X1,)3R&6 )5?)3T 65652 MLC IOCSAV,IOCXR1 )5?)5F 6565K MLC IOCSAV,IOCXR1 )5?)4U)5W 6565K MLC IOCSAV,IOCXR1 )5?)3T)4D)5W 6565K BW )0R,)0K#1 )5?)0/)0B 65652 BIN *-4,H )5?)0A 65652 BLC )0P )5?)0A 65652 )6K BCE *&5,IOCERH, )5?)0A 65652 B IOCSRW )5?)0A 65652 MLC IOCCAN,)6L&3 )5?)0A 65652 MLC IOCCAN-4,*&7 )5?)0A 65652 MLC 0,0 )5?)0A 65652 BIN *-4,J )5?)0A 65652 )6L SBR 0 )5?)0A 65652 MLC IOCNOP,IOCERH )5?)0A 65652 MLC )5?)0A 65652 MLC )5?)0A 65652 BIN )0N, )5?)0A )0M EQU *&1 )5?)0A 65652 MRCM 1,)33 )5?)0A)3C 65652 BCE *&8,*&7,$ )5?)0A)3T 65652 )3R MRCM 1,0 )5?)0A)3T 65652 )0N NOP )5Q )5?)0A 65652 DCW @K$@ )5?)0A 65652 BW )0M,IOCNRD )5?)0/)0B 65652 )0R CW )0K )5?)0/)0B 65652 B IOCPNX )5?)0/)0B 65652 R )5?)0/)0B 65652 MCW @N@,)4J )5?)0/)0B 65652 )0R R )5?)0/)0S 65652 R )5?)0A 6565K )0M EQU *&1 )5?)0/)0B 65652 BIN )0J,? )5?)0/ 65652 SS )4D )5?)0/ 65652 )2R DCW @N0@ )4U)5?)0/ 65652 MCM 1,)3C )5?)0/ 65652 BCE *&8,*&7,$ )5?)0/)3T 65652 )3R MCM 1,0 )5?)0/)3T 65652 BLC )0P )5?)0/ 65652 )4J NOP )0L )5?)0/)0B 65652 SRF )5?)0/)0B 65652 )0L EQU *&1 )5?)0/ 6565K CW IOCNRD )5?)0/)0B 65652 B IOCUXT )5?)0A 65652 )2M B IOCUXT )5?)0/ 65652 )6J MLC @N@,)5D&4 )5?)0A 65652 MCW &)6M,)6J-1 )5?)0A 65652 B )6K )5?)0A )6M MCW &IOCUXT,)6J-1 )5?)0A 65652 MLC @?@,)0M-1 )5?)0A MLC &)0J )5?)0A B )5D&4 )5?)0A 65652 )2M MLC @B@,)5D&4 )5?)0A 65652 B IOCUXT )5?)0A 65652 )0J H 0,3111 )5? 65652 B )0R )5?)0/ 6565K R )5?)0A 6565K B )0M-5 )5?)0A 6565K )0P MCW @B@,)0N )5? 65652 SW IOCNRD )5?)0/)0B 65652 B )0L )5?)0/ 65652 B )6K )5?)0A 65652 )5Q MLC @B@,)5D )5?)0A 65652 MLC &)5R,)5D&3 )5?)0A 65652 MLC @N@,)0N )5?)0A 65652 B IOCUXT )5?)0A 65652 )5R MLC &IOCUXT,)5D&3 )5?)0A 65652 MLC @N@,)5D )5?)0A 65652 B IOCEOR )5?)0A 65652 )5Q MLC @N@,)0N )5?)0/ 6565K B IOCEOR )5?)0/ 6565K NOP )5D-17 )5? 65652 * READ RELEASE SUBROUTINE )0/)0A 65652 IOCRDX SBR )6Q&3 )5?)0/)0B 65652 BW )6Q,IOCNRD#1 )5?)0/)0B 65652 B IOCPNX )5?)0/)0B 65652 BLC )7Q )5?)0/)0B 65652 R )5?)0/)0B 65652 SS )4D )5?)0/)0B 65652 )7Q MCW @B@,)4J )5?)0/)0B 65652 SW IOCNRD )5?)0/)0B 65652 )6Q B 0 )5?)0/)0B 65652 81 DCW @'@ )5? 65652 * DTF ROUTINE FOR PUNCH FILE )0/)0A 65652 MCW IOCXR1,IOCSAV )4I)3T 65652 MCW IOCXR1,IOCSAV )4I)4U)3C 65652 MCW IOCUXT&3,IOCXR1 )4I)3T 65652 MCW IOCUXT&3,IOCXR1 )4I)4U)3C 65652 MN 0&X1 )4I)3T 65652 MN 0&X1 )4I)4U)3C 65652 C )4I)3T 65652 C )4I)4U)3C 65652 SAR IOCXR1 )4I)3T 65652 SAR IOCXR1 )4I)4U)3C 65652 BCE *&5,IOCERH, )4I)0A 65652 B IOCSRW )4I)0A 65652 MLC IOCCAN,)6L&3 )4I)0A 65652 MLC IOCCAN-4,*&7 )4I)0A 65652 MLC 0,0 )4I)0A 65652 BIN *-4,J )4I)0A 65652 )6L SBR 0 )4I)0A 65652 MLC IOCNOP,IOCERH )4I)0A 65652 MLC )4I)0A 65652 MLC )4I)0A 65652 )1L BIN *-4,I )4I)0A 6565K BIN )0K,! )4I)0A 6565K MCM 101,)1Q )4I)0A 6565K BW )7J,)8J#1 )4I)0A 6565K BCE *&3,)2R,$ )4I)0A)4U 6565K )2R DCW @K0@ )4I)0A)4U 6565K )2R DCW @K)4D@ )4I)0A 6565K MLC )2R,)3R )4I)0A 6565K MLC 0&X1,)2R )4I)4U 6565K MN 0&X1 )4I)4D)3T 6565K SAR IOCXR1 )4I)3T 6565K MCW 0&X1,)1M&3 )4I)3T 6565K B IOCRDX )4I)0/)0B 6565K MLC IOCSAV,IOCXR1 )4I)3T 6565K MLC IOCSAV,IOCXR1 )4I)4U)3C 6565K )1L EQU *&1 )4I)0/ 6565K MCM )3C,101 )4I 65652 BCE *&8,)1M&3,$ )4I)3T 65652 )1M MCM 0,101 )4I)3T 65652 DCW @K$@ )4I)0A 65652 IOCPLC NOP 1118 )4I 6565K DC @0@ )4I 6565K P )4I 65652 BW *&5,)4K )4I)0/)0B 65652 B )5K )4I)0/)0B 65652 )5L EQU *&1 )4I)0/)0B 65652 SW )4K#1 )4I)0/)0B 65652 BIN )0K,! )4I)0/ 6565K MCM 101,)1Q )4I)0/ 65652 BW *&3,IOCPLC&1 )4I)4D)0/)0S 6565K BW *&4,IOCPLC&1 )4I)4D)0B)0/ 6565K SS )4D )4I)0/ 6565K BW *&12,IOCPLC&1 )4I)4U)0B)0/ 6565K BCE *&3,)2R,$ )4I)4U)0/ 6565K )2R DCW @K0@ )4I)4U)0/ 6565K SPF )4I)0/)0B 6565K MLC )2R,)3R )4I)4U)0/ 6565K CW IOCNPN )4I)0/)0B 65652 BW )9J,IOCPLC&1 )4I)0A 6565K )2M B IOCUXT )4I 65652 )7J CW )8J )4I)0A 6565K MLC @N@,)3R-1 )4I)0A 6565K B )2R&8 )4I)0A 6565K )9J SW )8J )4I)0A 6565K BIN )0K,! )4I)0A 6565K B )2M )4I)0A 6565K )0K MCM )1Q,101 )4I)0/ 6565K )0K MCM 101,)2Q )4I)0A 6565K MCM )1Q,101 )4I)0A 6565K P )4I 65652 BIN *&1,! )4I 6565K SS )4D )4I)0/ 6565K BCE *&3,)3R,$ )4I)4U 65652 )3R DCW @K0@ )4I)4U 65652 )3R DCW @K)4D@ )4I)0A 6565K MCM )2Q,101 )4I)0A 6565K P )4I)0A 6565K A @1@,)0M#2 )4I 65652 BCE )0N,)0M-1,1 )4I 65652 B )1L )4I)0/)0S 65652 )6J BW )9J,)8J )4I)0A 6565K B )1L )4I)0A 65652 )2N BW )1L,)4K )4I)0/)0B 65652 B )3J )4I)0/)0B 65652 )0N S )0M )4I 65652 H 0,3444 )4I 65652 B )1L )4I)0/)0S 65652 B )6J )4I)0A 6565K B )2N )4I)0/)0B 65652 )5K BIN *&1,! )4I)0/)0B 65652 B )5L )4I)0/)0B 65652 )1Q DA 1X80,C )4I 6565K DCW @'@ )4I 6565K )2Q DA 1X80,C )4I)0A 6565K DCW @'@ )4I)0A 6565K * PUNCH RELEASE SUBROUTINE )0/)0A 65652 IOCPNX SBR )3J&7 )4I)0B)0/ 65652 BW )3J,IOCNPN#1 )4I)0/)0B 65652 P )4I)0/)0B 65652 CW )4K )4I)0/)0B 65652 BIN )0K,! )4I)0/)0B 6565K )3J SW IOCNPN )4I)0B)0/ 65652 B 0 )4I)0B)0/ 65652 181 DCW @'@ )4I 65652 * DTF ROUTINE FOR PRINTER FILE )0/)0A 65652 MCW IOCXR1,IOCSAV )4H)3T 65652 MCW IOCXR1,IOCSAV )4H)0U)3C 65652 MCW IOCUXT&3,IOCXR1 )4H)3T 65652 MCW IOCUXT&3,IOCXR1 )4H)0U)3C 65652 MN 0&X1 )4H)3T 65652 MN 0&X1 )4H)0U)3C 65652 SAR IOCXR1 )4H)3T 65652 SAR IOCXR1 )4H)0U)3C 65652 MCW 0&X1,)1L&1 )4H)0U 65652 C 0&X1 )4H)0D)3T 65652 SAR IOCXR1 )4H)3T 65652 SAR IOCXR1 )4H)0U)3C 65652 MCW 0&X1,)2L )4H)0U 65652 C 0&X1 )4H)0D)3T 65652 SAR IOCXR1 )4H)3T 65652 MCW 0&X1,)1M&3 )4H)3T 65652 MLC IOCSAV,IOCXR1 )4H)3T 6565K MLC IOCSAV,IOCXR1 )4H)0U)3C 6565K B IOCRDX )4H)0B)0/ 65652 B IOCPNX )4H)0/)0B 65652 BIN *-4,H )4H)0A 65652 BIN *-4,I )4H)0A 65652 BIN )0K,' )4H 65652 BCE *&5,IOCERH, )4H)0A 65652 B IOCSRW )4H)0A 65652 MLC IOCCAN,)6L&3 )4H)0A 65652 MLC IOCCAN-4,*&7 )4H)0A 65652 MLC 0,0 )4H)0A 65652 BIN *-4,J )4H)0A 65652 )6L SBR 0 )4H)0A 65652 MLC IOCNOP,IOCERH )4H)0A 65652 MLC )4H)0A 65652 MLC )4H)0A 65652 )0L EQU *&1 )4H 65652 SBR IOCQUT&3,)4R )4H)0C 65652 BCV )0C )4H)0F)0X 65652 BC9 )0C )4H)0G 65652 BCV )2K )4H)0F)0T 65652 BC9 )2K )4H)0G)0T 65652 )4R EQU *&1 )4H)0F)0T 65652 )4R EQU *&1 )4H)0G)0T 65652 )4R EQU *&1 )4H)0C 65652 BCE *&3,)2L,$ )4H)0U 65652 )2L DCW @F0@ )4H)0U 65652 BCE *&3,)1L&1,$ )4H)0U 65652 )1L CC 0 )4H)0U 65652 CC )0D )4H 65652 MCM )3C,201 )4H 65652 BCE *&8,)1M&3,$ )4H)3T 65652 )1M MCM 0,201 )4H)3T 65652 W )4H 65652 B IOCUXT )4H 65652 )2K CCB )4R,1 )4H)0F)0T 65652 )2K CCB )4R,1 )4H)0G)0T 65652 )0K H 0,3222 )4H 65652 B )0L )4H 65652 )2M B IOCUXT )4H 65652 * DTF ROUTINE FOR OVERLAP TAPE BLOCKED RECORDS )0/)0A 65652 BIN )0J,H )3E)5A)4B)0A 65652 BIN )0J,I )3E)5A)4B)0A 65652 BIN )0J,J )3E)5A)4B)0A 65652 B )0K )3E)5A)4B)0A 65652 )0J C )0L,)0M )3E)3S)5C)5A)4B)0A)3C 65652 )0J C )0L,)0M )3E)3S)3Z)5B)5A)4B)0A)3C 65652 )0J A )28-1&X)32,)7K )3E)2H)3B)3T)5A)4B)0A)5B 65652 )0J SBR IOCXR)32,)38&X)32 )3E)3Z)3B)5B)5A)4B)0A)2Y 65652 SBR IOCXR)32,)38&X)32 )3E)3Z)3B)5B)4B)0A)2H)5A 65652 C IOCXR)32,)0M )3E)3B)3Z)5B)5A)4B)0A 6565K )0J SBR IOCXR)3B,)3H&X)3B )3E)3B)3Z)5C)5A)4B)0A 6565K )0J A )3C-1&)38,)0L )3E)1')5A)4B)0A)3S)3I)5B)3C 65652 )0J EQU *&1 )3E)1?)5A)4B)0A)3S)3I)5B 6565K A @)28@,)5K )3E)1?)5A)4B)0A)3S)3I)5B)2H 6565K MLC )5K,)4O&3 )3E)1?)5A)4B)0A)3S)3I)5B)2H 6565K MLC )5L,)5K )3E)1?)5A)4B)0A)3S)3I)5B 6565K A )10,)0L )3E)5A)4B)0A)1?)3S)3I)5B 65652 MLZS )5L,)10 )3E)5A)4B)0A)1?)3S)3I)5B 65652 A )10,)5L )3E)5A)4B)0A)1?)3S)3I)5B 65652 )0J SW IOCUXT&1 )1')3E)5A)4B)0A)3T)3S 65652 SW IOCUXT&1 )3E)5A)4B)0A)5F)5C 6565K MCW IOCUXT&3,*&4 )3E)5A)4B)0A)5F)5C 6565K MN 0 )3E)5A)4B)0A)5F)5C 6565K SAR *&4 )3E)5A)4B)0A)5F)5C 6565K MCW 0,)5D-7 )3E)5A)4B)0A)5F)5C 6565K MCW IOCUXT&3,*&8 )3E)5A)4B)0A)3T)3S)1' 6565K CW IOCUXT&1 )3E)5A)4B)0A)3T)3S)1')5W 6565K CW IOCUXT&1 )3E)5A)4B)0A)5F 6565K C 0 )1')3E)5A)4B)0A)3T)3S 65652 C )1')3E)5A)4B)0A)3T)3S 65652 C )1')3E)5A)4B)0A)3T)3S 65652 SAR )8R&3 )1')3E)5A)4B)0A)3T)3S 65652 SBR )7R )1')3E)5B)5A)4B)0A)3T)3S 65652 SBR )7R )1')3E)5C)2H)5A)4B)0A)3T)3S 65652 MCW IOCXR1,IOCTNT )1')3E)5C)2H)5A)4B)0A)3T)3S 65652 MCW IOCXR1,IOCTNT )1')3E)5B)5A)4B)0A)3T)3S 65652 MCW )7R,*&4 )1')3E)5B)5A)4B)0A)3T)3S 65652 MCW )7R,*&4 )1')3E)5C)2H)5A)4B)0A)3T)3S 65652 MCW 0,IOCXR1 )1')3E)5C)2H)5A)4B)0A)3T)3S 65652 MCW 0,IOCXR1 )1')3E)5B)5A)4B)0A)3T)3S 65652 SBR )4Q&3,)38-1&X1 )1')3E)5B)5A)4B)0A)3T)3S)3I 65652 SBR )4O&3,)28-1&X1 )1')3E)5A)4B)0A)3T)3S)2H 65652 SBR )4N&3,)38-1&X1 )1')3E)5B)5A)4B)0A)3T)3S)3I 65652 SBR )4P&3,)38-1&X1 )1')3E)5B)5A)4B)0A)3T)3S)3I 65652 SBR )4R,)38-2&X1 )5B)1')3E)5A)4B)0A)3T)3S)3Z 65652 MZ IOCXR1-1,)4Q&2 )5B)1')3E)5A)4B)0A)3T)3S)3I 65652 MZ IOCXR1-1,)4O&2 )1')3E)5A)4B)0A)3T)3S)2H 65652 MZ IOCXR1-1,)4N&2 )5B)1')3E)5A)4B)0A)3T)3S)3I 65652 MZ IOCXR1-1,)4P&2 )5B)1')3E)5A)4B)0A)3T)3S)3I 65652 MZ IOCXR1-1,)4R-1 )5B)1')3E)5A)4B)0A)3T)3S)3Z 65652 MCW IOCTNT,IOCXR1 )1')3E)5C)2H)5A)4B)0A)3T)3S 65652 MCW IOCTNT,IOCXR1 )1')3E)5B)5A)4B)0A)3T)3S 65652 )4Q C )0L,)0M )3E)3S)5C)5A)4B)0A)3T 65652 )4Q C )0L,)0M )3E)3S)3Z)5B)5A)4B)0A)3T 65652 )4Q A 0,)0L )3E)1')5A)4B)0A)3S)3I)5B)3T 65652 C )0L,&)36 )3E)3S)3I)5B)5A)4B)0A 65652 C IOCXR)32,)0M )3E)3B)3Z)5C)5A)4B)0A 6565K BE )0N )3E)5C)5A)4B)0A 65652 BE )0N )3E)3Z)5B)5A)4B)0A 65652 BL )0N )3E)3I)5B)5A)4B)0A 65652 )8R MCW 0,)0R&6 )3E)5C)5A)4B)0A)3S)3T 65652 )8R MCW 0,)0R&3 )3E)1')5B)5A)4B)0A)3S)3T 65652 MCW )0L,*&4 )1')3E)3S)5C)5A)4B)0A 65652 )0R MRCM )34,)3C )3E)3S)5C)5A)4B)0A 65652 )0R MRCM )34,0 )3E)3S)5C)5A)4B)0A)3T 65652 )0R MRCM )3C,)34 )3E)5A)4B)0A)1')3S)5B 65652 )0R MRCM 0,)34 )3E)5A)4B)0A)1')3S)5B)3T 65652 SAR )0L )3E)3S)5C)5A)4B)0A 65652 SBR *-4 )3E)5A)4B)0A)1')3S)5B 65652 SBR )0L )3E)5B)3S)3Z)5A)4B)0A 65652 MLC )5K,)10 )3E)5A)4B)0A)1?)3S)5B)3I 65652 A @1@,)7J )3E)2I)5A)4B)0A 65652 A )33&)28-1,)7K )3E)2H)3C)5A)4B)0A 65652 )4O A 0,)7K )3E)2H)5A)4B)0A)3S)3T 65652 A )28-1&X)32,)7K )3E)2H)3B)3T)5A)4B)0A)5C 65652 B IOCUXT )3E)5A)4B)0A 65652 )0N SBR )0P&3 )3E)5A)4B)0A 65652 S )3C-1&)38,)0L )3E)5A)4B)0A)1')3S)5B)3I 65652 )4N S 0,)0L )3E)5A)4B)0A)1')3S)5B)3I)3T 65652 SW )0R&4 )3E)5A)4B)0A)1')3S)5B)3I 65652 MLC )0R&6,)0Q&6 )3E)5A)4B)0A)1')3S)5B)3I 65652 MLC )0R&6,)1J&3 )3E)5A)4B)0A)1')3S)5B)3I 65652 CW )0R&4 )3E)5A)4B)0A)1')3S)5B)3I 65652 S )10,)0L )3E)5A)4B)0A)1?)3S)5B)3I 65652 MLC )5K,)0Q&6 )3E)5A)4B)0A)1?)3S)5B)3I 65652 MLC )5K,)1J&3 )3E)5A)4B)0A)1?)3S)5B)3I 65652 )0Q MLCWA@"@,0 )3E)3S)5B)3I)5A)4B)0A 65652 )1L MLCWA)0L,0 )3E)3S)5B)3I)5A)4B)0A 65652 S )0L )3E)3S)5B)3I)5A)4B)0A 65652 A @D@,)0L )3E)3S)5B)3I)5A)4B)0A 65652 A )3C-1&)38,)0L )3E)5A)4B)0A)1')3S)3I)5B 65652 )4P A 0,)0L )3E)5A)4B)0A)1')3S)3I)5B)3T 65652 A )10,)0L )3E)5A)4B)0A)1?)3S)3I)5B 65652 BCE )1K,)1M,B )3E)5A)4B)0A 65652 MLC @N@,)1N )3E)5A)4B)0A 65652 B )1P )3E)5A)4B)0A 65652 )1K MLC @N@,)1M )3E)5A)4B)0A 65652 )1R B )2J )3E)5A)4B)0A 65652 MLC @B@,)1R )3E)5A)4B)0A 65652 SW )2N&1 )5A)5B)3Z)3E)4B)0A)3B 6565K MCW )3P&7,IOCTRW&7 )3E)4F)5C)5A)4B)0A 65652 B IOCKBY )3E)4F)5C)5A)4B)0A 65652 BW *&5,IOC007 )3E)4F)5C)5A)4B)0A 65652 B )1P )3E)4F)5C)5A)4B)0A 65652 )5R MN 0 )3E)5C)5A)4B)0A 65652 SAR )2L )3E)5C)5A)4B)0A 65652 SBR )2Q&6 )3?)3E)5C)5A)4B)0A C )2L,)7O )3?)3E)3Z)5C)5A)4B)0A 65652 MCW IOCXR1,IOCTNT )3?)3E)3I)5C)5A)4B)0A 65652 INCLD18000 )3?)3E)3I)5C)5A)4B)0A 6565K ZA )3E&3,IOCAR5 )3?)3E)3I)5C)5A)4B)0A 6565K B IOCPCK )3?)3E)3I)5C)5A)4B)0A 6565K MCW IOCAR5,IOCXR1 )3?)3E)3I)5C)5A)4B)0A 6565K SBR IOCXR1,)3E&X1 )3?)3E)3I)5C)5A)4B)0A 6565K C )2L,IOCXR1 )3?)3E)3I)5C)5A)4B)0A 65652 BE *&12 )3?)3E)5C)5A)4B)0A )2Q MLC @ @,0 )3?)3E)5C)5A)4B)0A B )30 )3?)3E)5C)5A)4B)0A MCW IOCTNT,IOCXR1 )3?)3E)3I)5C)5A)4B)0A 65652 MLCWA)2K,IOCXR)32 )3E)3Z)3B)5A)4B)0A 6565K MLCWA)2K,)0L )3E)3S)5C)5A)4B)0A 65652 MLCWA)2K,)0L )3E)3Z)3S)5B)5A)4B)0A 65652 MLC )2K,)0R&6 )3E)5A)4B)0A)1')3S)5B 65652 MLC )2K,)5L )3E)5A)4B)0A)1?)3S)3I)5B 65652 A )10,)5L )3E)5A)4B)0A)1?)3S)3I)5B 65652 MLC )2K,)5K )3E)5A)4B)0A)1?)3I)3S)5B 65652 MLCWA)2L,)0M )3E)3Z)5A)4B)0A 65652 MLCWA)2L,)0M )3E)5C)3I)5A)4B)0A 65652 MLC )5J,)1L&6 )3E)5A)5B)4B)3I)0A 65652 MCW )3O,)0Q-5 )3E)5A)5B)4B)3I)0A)1' 65652 B )0P )3E)5A)4B)0A 65652 )2J MLC @N@,)1R )3E)5A)4B)0A 65652 SW )2N&2 )5A)5B)3Z)3E)4B)0A)3B 6565K MCW )3N&7,IOCTRW&7 )3E)4F)5C)5A)4B)0A 65652 B IOCKBY )3E)4F)5C)5A)4B)0A 65652 BW *&5,IOC007 )3E)4F)5C)5A)4B)0A 65652 B )1P )3E)4F)5C)5A)4B)0A 65652 )5Q MN 0 )3E)5C)5A)4B)0A 65652 SAR )2P )3E)5C)5A)4B)0A 65652 SBR )3Q&6 )3?)3E)5C)5A)4B)0A C )2P,)7N )3?)3E)3Z)5C)5A)4B)0A 65652 MCW IOCXR1,IOCTNT )3?)3E)3I)5C)5A)4B)0A 65652 ZA )3D&3,IOCAR5 )3?)3E)3I)5C)5A)4B)0A 6565K B IOCPCK )3?)3E)3I)5C)5A)4B)0A 6565K MCW IOCAR5,IOCXR1 )3?)3E)3I)5C)5A)4B)0A 6565K SBR IOCXR1,)3D&X1 )3?)3E)3I)5C)5A)4B)0A 6565K C )2P,IOCXR1 )3?)3E)3I)5C)5A)4B)0A 65652 BE *&12 )3?)3E)5C)5A)4B)0A )3Q MLC @ @,0 )3?)3E)5C)5A)4B)0A B )30 )3?)3E)5C)5A)4B)0A MCW IOCTNT,IOCXR1 )3?)3E)3I)5C)5A)4B)0A 65652 MLCWA)2N,IOCXR)32 )3E)3Z)3B)5A)4B)0A 6565K MLCWA)2N,)0L )3E)3S)5C)5A)4B)0A 65652 MLCWA)2N,)0L )3E)3Z)3S)5B)5A)4B)0A 65652 MLC )2N,)0R&6 )3E)5A)4B)0A)1')3S)5B 65652 MLC )2N,)5L )3E)5A)4B)0A)1?)3S)3I)5B 65652 A )10,)5L )3E)5A)4B)0A)1?)3S)3I)5B 65652 MLC )2N,)5K )3E)5A)4B)0A)1?)3I)3S)5B 65652 MLCWA)2P,)0M )3E)3Z)5A)4B)0A 65652 MLCWA)2P,)0M )3E)5C)3I)5A)4B)0A 65652 MLC )2R,)1L&6 )3E)5B)3I)5A)4B)0A 65652 MCW )2O,)0Q-5 )3E)5A)5B)4B)3I)0A)1' 65652 )0P B 0 )3E)5A)4B)0A 65652 )0K SBR )1N&3 )3E)5A)4B)0A 65652 )1M B )1N )3E)5A)4B)0A 65652 )1P BCE *&5,IOCERH, )3E)5A)4B)0A 65652 B IOCSRW )3E)5A)4B)0A 65652 MLC IOCCAN,)3K&3 )3E)5A)4B)0A 65652 MLC IOCCAN-4,*&7 )3E)5A)4B)0A 65652 MLC @B@,)1M )3E)5A)4B)0A 65652 BIN *-4,J )3E)5A)4B)0A 65652 )3K SBR 0 )3E)5A)4B)0A 65652 BCE )4J,)1M,B )3E)5A)4B)0A 65652 )3M B )3N )3E)5A)4B)0A 65652 )3P RT )45,)35 )3E)4X)5C)5A)4B)0A 65652 )3P RTW )45,)35 )3E)4G)5C)5A)4B)0A 65652 )3P WT )45,)35 )3E)4X)5B)5A)4B)0A 65652 )3P WTW )45,)35 )3E)4G)5B)5A)4B)0A 65652 ORG )3P&1 )3E)5A)4B)0A 65652 DC @@@ )3E)5A)4B)0A 65652 ORG )3P&8 )3E)5A)4B)0A 65652 MLC @B@,)3M )3E)5A)4B)0A 65652 CW )2N&1 )5A)5B)3Z)3E)4B)0A)3B 6565K MLC )3R,IOCERH )3E)5A)4B)0A 65652 MLC )3E)5A)4B)0A 65652 MLC )3E)5A)4B)0A 65652 B )1N-7 )3E)5A)4B)0A 65652 )3N RT )45,)34 )3E)4X)5C)5A)4B)0A 65652 )3N RTW )45,)34 )3E)4G)5C)5A)4B)0A 65652 )3N WT )45,)34 )3E)4X)5B)5A)4B)0A 65652 )3N WTW )45,)34 )3E)4G)5B)5A)4B)0A 65652 ORG )3N&1 )3E)5A)4B)0A 65652 DC @@@ )3E)5A)4B)0A 65652 ORG )3N&8 )3E)5A)4B)0A 65652 MLC @N@,)3M )3E)5A)4B)0A 65652 CW )2N&2 )5A)5B)3Z)3E)4B)0A)3B 6565K MLC )3L,IOCERH )3E)5A)4B)0A 65652 MLC )3E)5C)5A)4B)0A 65652 MLC )1J )3E)3Z)5B)5A)4B)0A 65652 MCW )3E)3I)5B)5A)4B)0A 65652 MCW )1O-1 )3E)3I)5B)5A)4B)0A 65652 MLC )1J-1,IOCCAN-4 )3E)5C)5A)4B)0A 65652 MCW )3E)3Z)5B)5A)4B)0A 65652 A @1@,)5D-12 )3E)5A)4B)0A 65652 )1N B 0 )3E)5A)4B)0A 65652 MLC @B@,)1N )3E)5A)4B)0A 65652 BCE )1K,)1M,B )3E)5A)4B)0A 65652 B IOCSRW )3E)5A)4B)0A 65652 MLC IOCCAN,)4K&3 )3E)5C)5A)4B)0A 65652 BIN *-4,J )3E)5C)5A)4B)0A 65652 )4K SBR 0 )3E)5C)5A)4B)0A 65652 MLC IOCNOP,IOCERH )3E)5A)4B)0A 65652 MLC )3E)5A)4B)0A 65652 MLC )3E)5A)4B)0A 65652 B )1R )3E)5A)4B)0A 65652 )4J MLC IOCNOP,IOCERH )3E)5A)4B)0A 65652 MLC )3E)5A)4B)0A 65652 MLC )3E)5A)4B)0A 65652 B )1N )3E)5A)4B)0A 65652 )4R DCW @ @ )3E)5A)4B)0A)3Z)5B)3T)3S 65652 )7R DCW @ @ )3E)5A)4B)0A)5B)3T)3S 65652 )7R DCW @ @ )5C)2H)3E)5A)4B)0A)3T)3S 65652 )5L DCW @ @ )3E)5A)4B)0A)1?)3S)3I)5B 65652 )5K DCW @ @ )3E)5A)4B)0A)1?)3I)3S)5B 65652 )0L DCW @ @ )3E)3S)5C)5A)4B)0A 65652 )0L DCW @ @ )3E)3S)3I)5B)5A)4B)0A 65652 )0L DCW @ @ )3E)3S)3Z)5B)5A)4B)0A 65652 )0M DCW @ @ )3E)5C)5A)4B)0A 65652 )0M DCW @ @ )3E)3Z)5B)5A)4B)0A 65652 MLC @B@,)1M )3E)5A)4B)0A 65652 )1J SBR )5R&3 )3E)5C)5A)4B)0A 65652 )1J DCW @N @ )3E)5B)3Z)5A)4B)0A 65652 )1O CW 0 )3E)3I)5B)5A)4B)0A 65652 )3R DCW )4L )3E)5A)4B)0A 65652 )4L EQU )3P&7 )3E)5A)4B)0A 65652 )1J CW 0 )3E)3I)5B)5A)4B)0A 65652 SBR )5Q&3 )3E)5C)5A)4B)0A 65652 )3L DCW )4M )3E)5A)4B)0A 65652 )4M EQU )3N&7 )3E)5A)4B)0A 65652 )2K DCW &)35 )3E)3Z)5A)4B)0A 65652 )2N DCW &)34 )3E)3Z)5A)4B)0A 65652 DC #2 )5A)5B)3Z)3E)4B)0A)3B 6565K )2K DCW &)35&4 )3E)3I)5A)4B)0A 65652 )2N DCW &)34&4 )3E)3I)5A)4B)0A 65652 )2L DCW @ @ )3E)5C)5A)4B)0A 65652 )2L DCW @ @ )3E)3Z)5B)5A)4B)0A 65652 )2P DCW @ @ )3E)5C)5A)4B)0A 65652 )2P DCW @ @ )3E)3Z)5B)5A)4B)0A 65652 )5J DCW &)35&3 )3E)5A)5B)4B)3I)0A 65652 )2R DCW &)34&3 )3E)3I)5B)5A)4B)0A 65652 )3O DCW )1O&3 )3E)3I)5B)5A)4B)0A)1' 65652 )2O DCW )1J&3 )3E)3I)5B)5A)4B)0A)1' 65652 )6J MLC @N@,)5D&4 )3E)5A)4B)0A 65652 MCW &)0N,)0J&10 )3Z)3E)5A)4B)0A)3C)3S 65652 MCW &)0N,)4Q&10 )3Z)3E)5A)4B)0A)3T)3S 65652 MCW &)0N,)4Q&17 )1')3I)5B)3E)5A)4B)0A)3S)3T 65652 MCW &)0N,)0J&17 )3E)3B)3Z)5B)5A)4B)0A)2Y 6565K MCW &)0N,)0J&24 )3E)3B)3Z)5B)5A)4B)0A)2H 6565K MCW &)0N,)0J&17 )3E)3B)3Z)5C)5A)4B)0A 65652 MCW &)0N,)0J&17 )5A)4B)0A)3S)3I)5B)1')3E)3C 65652 MCW &)0N,)0J&38 )5A)4B)0A)3S)3I)5B)1?)3E 65652 MCW &IOCUXT,)0N-1 )3E)5A)4B)0A 65652 MCW @B@,)1M )5B)5A)4B)0A)3E 65652 MCW @B@,)1R )3E)5A)4B)0A 65652 MCW @B@,)1N )5B)5A)4B)0A)3E 65652 MCW &)1N,)4J&12 )3E)5A)4B)0A 65652 MCW @B@,)3M )3E)5A)4B)0A 65652 MCW &)1R,)4J-1 )3E)5A)4B)0A 65652 MLC IOCXR1,)6L )3E)3Z)5B)5A)4B)0A 65652 SBR IOCXR1,)3E )3E)3Z)5B)5A)4B)0A 65652 MN )3F&1&X1 )3E)3Z)5B)5A)4B)0A 65652 SAR )2L )3E)3Z)5B)5A)4B)0A 65652 SBR IOCXR1,)3D )3E)3Z)5B)5A)4B)0A 65652 MN )3F&1&X1 )3E)3Z)5B)5A)4B)0A 65652 SAR )2P )3E)3Z)5B)5A)4B)0A 65652 MLC )6L,IOCXR1 )3E)3Z)5B)5A)4B)0A 65652 MLC @N@,)1M )3E)5C)5A)4B)0A 65652 MLC @N@,)1N )3E)5C)5A)4B)0A 65652 MLC &)6K,)0P&3 )3E)5C)5A)4B)0A 65652 MLC &)6K,)0P&3 )3E)5B)5A)4B)0A 65652 MCW @000D@,)0L )3E)5A)5B)4B)3I)0A 65652 MCW IOCXR1,)6L )3?)3E)3Z)5C)5A)4B)0A 65652 SBR IOCXR1,)3E )3?)3E)3Z)5C)5A)4B)0A 65652 MN )3F&1&X1 )3?)3E)3Z)5C)5A)4B)0A 65652 SAR )7O )3?)3E)3Z)5C)5A)4B)0A 65652 SBR IOCXR1,)3D )3?)3E)3Z)5C)5A)4B)0A 65652 MN )3F&1&X1 )3?)3E)3Z)5C)5A)4B)0A 65652 SAR )7N )3?)3E)3Z)5C)5A)4B)0A 65652 MCW )6L,IOCXR1 )3?)3E)3Z)5C)5A)4B)0A 65652 B )2J )3E)5B)5A)4B)0A 65652 )6K B )5D )3E)5B)5A)4B)0A)3S 65652 )6K B IOCUXT )3E)5B)5A)4B)0A)3B 65652 )6K B )5D )3E)3S)5C)5A)4B)0A 65652 B )0J-4 )3E)3B)5C)5A)4B)0A 6565K )6K B )0J&7 )3E)3B)5C)5A)4B)0A 65652 )6L DCW @ @ )3E)3Z)5B)5A)4B)0A 65652 )6L DCW @ @ )3?)3E)3Z)5C)5A)4B)0A 65652 )7O DCW @ @ )3?)3E)3Z)5C)5A)4B)0A 65652 )7N DCW @ @ )3?)3E)3Z)5C)5A)4B)0A 65652 )7P DCW @ @ )3?)3E)3I)5C)5A)4B)0A 65652 )2M MCW &)6N,)0J&10 )5C)3E)5A)4B)0A)3S)3C 65652 )2M MCW &)6N,)4Q&10 )5C)3E)5A)4B)0A)3S)3T 65652 )2M MCW &)6N,)0J&17 )3E)3B)5A)5C)4B)0A 65652 S @10@,)5D-11 )3E)5A)5C)0A)4B 6565K MLC &)6N,)1N&3 )3E)5A)5C)4B)0A 65652 MLC &)6N,)0P&3 )3E)5A)5C)4B)0A 65652 MCW &)6N,)4J-1 )3E)5A)5C)4B)0A 65652 MCW &)0J,)4J&12 )3E)5A)5C)4B)0A)3S 6565K MCW &)0J&7,)4J&12 )3E)5A)5C)4B)0A)3B 6565K )2M MCW &)1P,)0J&10 )5B)3E)5A)4B)0A)3Z)3C 65652 )2M EQU *&1 )5A)5B)3Z)3E)4B)0A)3B 6565K )2M MCW &)1P,)4Q&10 )3Z)5B)3E)5A)4B)0A)3S)3T 65652 )2M MCW &)3M,)4J&12 )3E)3I)5A)5B)4B)0A 65652 MCW &)3M,)4J&12 )5A)5B)3Z)3E)4B)0A)3S 6565K BCE *&15,)5D-4, )3E)5A)4B)0A 65652 MN )5D-4,)3P&3 )3E)5A)4B)0A 65652 MN )5D-4,)3N&3 )3E)5A)4B)0A 65652 MCW &)6N,)1N&3 )5A)5B)3S)3E)4B)0A 6565K MCW &)3M,)0P&3 )5A)5B)3S)3E)4B)0A 6565K B IOCEOR )5A)5B)3Z)3E)4B)0A)3B 6565K NOP )5D-17 )5A)5B)3Z)3E)4B)0A)3B 6565K B IOCNPR-17 )3E)5A)4B)0A )6N MCW @B@,)5D&4 )3E)5A)4B)0A 65652 MCW @ @,)3D&1 )3E)5A)4B)5C)0A 65652 MCW @ @,)3E&1 )3E)5A)4B)5C)0A 65652 B IOCEOR )3E)5A)4B)0A 65652 NOP )5D-17 )3E)5A)4B)0A 65652 B IOCUXT )5A)5B)3Z)3E)4B)0A)3B 6565K B )6J )5A)5C)3E)4B)0A 6565K B )6J )5A)5B)3E)4B)0A)3I 6565K B )6J )5A)5B)3Z)3E)4B)0A)3S 6565K )6Q MCW IOCXR1,IOCPDS )3Z)5B)3E)5A)4B)0A)3S)3T 65652 C )0L,)0M )3Z)5B)3E)5A)4B)0A)3S)3T 65652 BE )8J )3Z)5B)3E)5A)4B)0A)3S)3T 65652 MCW &)8J,)4Q&10 )3Z)5B)3E)5A)4B)0A)3S)3T 65652 MCW &)4Q,)0N-1 )3Z)5B)3E)5A)4B)0A)3S)3T 65652 MCW )0L,IOCXR1 )3Z)5B)3E)5A)4B)0A)3S)3T 65652 SBR IOCXR1,)38-2&X1 )3Z)5B)3E)5A)4B)0A)3S)3T 65652 )8K MCW @)3G@,0&X1 )3Z)5B)3E)5A)4B)0A)3S)3T 65652 )8K MCW @ @,0&X1 )3X)3Z)5B)3E)5A)4B)0A)3S)3T 65652 SBR IOCXR1 )3Z)5B)3E)5A)4B)0A)3S)3T 65652 C IOCXR1,)0L )3Z)5B)3E)5A)4B)0A)3S)3T 65652 BE *&5 )3Z)5B)3E)5A)4B)0A)3S)3T 65652 B )8K )3E)3Z)5B)5A)4B)0A)3S)3T 65652 MCW @)3G@,0&X1 )3G)3E)3Z)5B)5A)4B)0A)3S)3T 65652 MCW @ @,0&X1 )3X)3E)3Z)5B)5A)4B)0A)3S)3T 65652 MRCM 0&X1,0&X1 )3E)3Z)5B)5A)4B)0A)3S)3T 65652 SBR )0L )3E)3Z)5B)5A)4B)0A)3S)3T 65652 A @1@,)7J )2I)3E)3Z)5B)5A)4B)0A)3S)3T 65652 A )28-1&X1,)7K )2H)3E)3Z)5B)5A)4B)0A)3S)3T 65652 MCW IOCPDS,IOCXR1 )3E)3Z)5B)5A)4B)0A)3S)3T 65652 B )6Q )3E)3Z)5B)5A)4B)0A)3S)3T 65652 )6Q MLC IOCXR1,IOCPDS )3E)3C)3Z)5B)5A)4B)0A 65652 C )0L,)0M )3E)3C)3Z)5B)5A)4B)0A 65652 BE )8J )3E)3C)3Z)5B)5A)4B)0A 65652 MLC &)8J,)0J&10 )3E)3C)3Z)5B)5A)4B)0A 65652 MCW &)0J,)0N-1 )3E)3C)3Z)5B)5A)4B)0A 65652 MLC &)33-2&)38,IOCXR1 )3E)3C)3Z)5B)5A)4B)0A 65652 )8K MCW @)3G@,0&X1 )3E)3C)3G)3Z)5B)5A)4B)0A 65652 )8K MCW @ @,0&X1 )3E)3C)3X)3Z)5B)5A)4B)0A 65652 SBR IOCXR1 )3E)3C)3Z)5B)5A)4B)0A 65652 C IOCXR1,&)33-1 )3E)3C)3Z)5B)5A)4B)0A 65652 BE *&5 )3E)3C)3Z)5B)5A)4B)0A 65652 B )8K )3E)3C)3Z)5B)5A)4B)0A 65652 MCW IOCPDS,IOCXR1 )3E)3C)3Z)5B)5A)4B)0A 65652 MCW )0L,*&7 )3E)3C)3Z)5B)5A)4B)0A 65652 MRCM )33,0 )3E)3C)3Z)5B)5A)4B)0A 65652 SBR )0L )3E)3C)3Z)5B)5A)4B)0A 65652 B )6Q )3E)3C)3Z)5B)5A)4B)0A 65652 )6Q C IOCXR)32,)0M )3E)3B)3Z)5B)5A)4B)0A 6565K BE )8J )3E)3B)3Z)5B)5A)4B)0A 65652 C IOCXR)32,)2K )5A)5B)3Z)3E)4B)0A)3B 6565K BE )8J-7 )5A)5B)3Z)3E)4B)0A)3B 6565K C IOCXR)32,)2N )5A)5B)3Z)3E)4B)0A)3B 6565K BE )8J-7 )5A)5B)3Z)3E)4B)0A)3B 6565K BCE *&9,*-2, )5A)5B)3Z)3E)4B)0A)3B 6565K SW )5A)5B)3Z)3E)4B)0A)3B 6565K A @1@,)5N )5A)5B)3Z)3E)4B)0A)3B 6565K MCW IOCXR)32,IOCPDS )3E)3B)3Z)5B)5A)4B)0A 6565K MRCM 2&X)32,0&X)32 )3E)3B)3Z)5B)5A)4B)0A 65652 SBR IOCXR)32 )3E)3B)3Z)5B)5A)4B)0A 6565K )8K MCW @)37@,0&X)32 )3G)3E)3B)3Z)5B)5A)4B)0A 65652 )8K MCW @ @,0&X)32 )3X)3E)3B)3Z)5B)5A)4B)0A 65652 SBR IOCXR)32 )3E)3B)3Z)5B)5A)4B)0A 6565K C IOCXR)32,IOCPDS )3E)3B)3Z)5B)5A)4B)0A 6565K BE *&5 )3E)3B)3Z)5B)5A)4B)0A 65652 B )8K )3E)3B)3Z)5B)5A)4B)0A 65652 MCW @)3G@,0&X)32 )3E)3B)3G)3Z)5B)5A)4B)0A 65652 MCW @ @,0&X)32 )3E)3B)3X)3Z)5B)5A)4B)0A 65652 MRCM 0&X)32,0&X)32 )3E)3B)3Z)5B)5A)4B)0A 65652 SBR IOCXR)32 )3E)3B)3Z)5B)5A)4B)0A 6565K A @1@,)7J )3E)2I)3B)3Z)5B)5A)4B)0A 65652 A )28-1&X)32,)7K )3E)2H)3B)3Z)5B)5A)4B)0A 65652 B )6Q )3E)3B)3Z)5B)5A)4B)0A 65652 S @1@,)5N )5A)5B)3Z)3E)4B)0A)3B 6565K )8J MCW &)8L,)1N&3 )3E)3Z)5B)5A)4B)0A 65652 MCW &)8L,)4J&12 )3E)3Z)5B)5A)4B)0A 65652 BWZ *&8,)2N&1,1 )5A)5B)3Z)3E)4B)0A)3B 6565K A @1@,)5N )5A)5B)3Z)3E)4B)0A)3B 6565K BWZ *&8,)2N&2,1 )5A)5B)3Z)3E)4B)0A)3B 6565K A @1@,)5N )5A)5B)3Z)3E)4B)0A)3B 6565K BCE *&8,)1M,B )5A)5B)3Z)3E)4B)0A)3S 6565K MCW @B@,)5N )5A)5B)3Z)3E)4B)0A)3S 6565K MCW @N@,)1M )3E)3Z)5B)5A)4B)0A 65652 B )1P )3E)3Z)5B)5A)4B)0A 65652 )8L S @1@,)5N )3E)3Z)5B)5A)4B)0A 65652 C @A@,)5N )5A)5B)3Z)3E)4B)0A)3S 6565K C @B@,)5N )5A)5B)3Z)3E)4B)0A)3B 6565K BE )3M )3E)3Z)5B)5A)4B)0A 65652 MCW @B@,)5D )3E)3Z)5B)5A)4B)0A 65652 MCW @B@,)5D&4 )3E)3Z)5B)5A)4B)0A 65652 B IOCUXT )3E)3Z)5B)5A)4B)0A 65652 )5N DCW @A@ )5A)5B)3Z)3E)4B)0A)3B 6565K )5N DCW @ @ )5A)5B)3Z)3E)4B)0A)3S 6565K )6Q MCW &)8L,)1N&3 )3E)3I)5B)5A)4B)0A 65652 MCW &)8L,)0P&3 )3E)3I)5B)5A)4B)0A 65652 MCW &)8L,)4J&12 )3E)5A)4B)0A)5B)3I 65652 B )0N&11 )3E)3I)5B)5A)4B)0A 65652 )8L BCE *&5,)1M,B )3E)3I)5B)5A)4B)0A 65652 B )1P )3E)3I)5B)5A)4B)0A 65652 MCW @B@,)5D )3E)3I)5B)5A)4B)0A 65652 MCW @B@,)5D&4 )3E)3I)5B)5A)4B)0A 65652 B IOCUXT )3E)3I)5B)5A)4B)0A 65652 )6Q MCW @B@,)5D )3E)3I)5C)5A)4B)0A 65652 MCW @B@,)5D&4 )3E)3I)5C)5A)4B)0A 65652 B IOCUXT )3E)3I)5C)5A)4B)0A 65652 )6Q MCW @B@,)5D )3E)3Z)5C)5A)4B)0A 65652 MCW @B@,)5D&4 )3E)3Z)5C)5A)4B)0A 65652 B IOCUXT )3E)5B)3Z)5A)4B)0A 65652 B IOCUXT )3E)3Z)5C)5A)4B)0A 65652 )7L MCW &IOCUXT,)0P&3 )3E)5C)5A)4B)0A 65652 B )0N&4 )3E)5C)5A)4B)0A 65652 )7L MCW &IOCUXT,)0P&3 )3E)5B)3I)5A)4B)0A 65652 B )0N&4 )3E)5B)3I)5A)4B)0A 65652 )7L MCW &)7M,)8L&36 )3E)5B)3Z)5A)4B)0A 6565K B )6Q )3E)5B)3Z)5A)4B)0A 65652 )7M MCW &)0N,)0J&10 )3E)5B)3Z)5A)4B)0A)3C 65652 )7M MCW &)0N,)0J&24 )3E)5B)3Z)5A)4B)0A)3B 65652 )7M MCW &)0N,)4Q&10 )3E)5B)3Z)5A)4B)0A)3S)3T 65652 MCW &IOCUXT,)0N-1 )3E)5B)3Z)5A)4B)0A 65652 MCW &)1N,)4J&12 )3E)5B)3Z)5A)4B)0A 65652 MCW &IOCUXT,)8L&36 )3E)5B)3Z)5A)4B)0A 6565K MCW @N@,)5D )3E)5B)3Z)5A)4B)0A 65652 MCW @N@,)5D&4 )3E)5B)3Z)5A)4B)0A 65652 B IOCUXT )3E)5B)3Z)5A)4B)0A 65652 INCLD15000 )3E)4F)5C)5A)4B)0A 65652 * DTF ROUTINE FOR OVERLAP TAPE UNBLOCKED RECORDS )0/)0A 65652 BCE *&5,IOCERH, )3E)5A)4S)0A 65652 B IOCSRW )3E)5A)4S)0A 65652 )0J CW *-1 )3E)5C)5A)4S)0A)3I 6565K )0J NOP 0 )3E)5C)5A)4S)0A)3Z 6565K MLC IOCCAN,)0K&3 )3E)5A)4S)0A 65652 MLC IOCCAN-4,*&7 )3E)5A)4S)0A 65652 MLC 0,0 )3E)5A)4S)0A 65652 BIN *-4,J )3E)5A)4S)0A 65652 )0K SBR )0L )3E)5A)4S)0A 65652 SW IOCUXT&1 )3E)5A)4S)0A)5F)5C 6565K MCW IOCUXT&3,*&4 )3E)5A)4S)0A)5F)5C 6565K MN 0 )3E)5A)4S)0A)5F)5C 6565K SAR *&4 )3E)5A)4S)0A)5F)5C 6565K MCW 0,)5D-7 )3E)5A)4S)0A)5F)5C 6565K CW IOCUXT&1 )3E)5A)4S)0A)5F)5C 6565K B IOCKBY )3E)4F)5C)5A)4S)0A 65652 BW )0N,IOC007 )3E)4F)5C)5A)4S)0A 65652 BCE )0Q,)0N,B )3E)4F)5C)5A)4S)0A 65652 B )0P )3E)4F)5C)5A)4S)0A 65652 )0N B )0P )3E)5A)4S)0A 65652 )0Q RT )45,)35 )3E)4X)5C)5A)4S)0A 65652 )0Q RTW )45,)35 )3E)4G)5C)5A)4S)0A 65652 )0Q WT )45,)35 )3E)4X)5B)5A)4S)0A 65652 )0Q WTW )45,)35 )3E)4G)5B)5A)4S)0A 65652 ORG )0Q&1 )3E)5A)4S)0A 65652 DC @@@ )3E)5A)4S)0A 65652 ORG )0Q&8 )3E)5A)4S)0A 65652 MLC @B@,)0N )3E)5A)4S)0A 65652 MLC )0R,IOCERH )3E)5A)4S)0A 65652 MLC )1J&3,IOCCAN )3E)5A)4S)0A 65652 MLC )3E)5A)4S)0A 65652 MCW )7O,)7Q )3?)3E)5A)4S)0A 65652 MCW )1K,IOCXR)32 )3E)5A)4S)0A)3B 6565K MCW )1K,)1L&3 )3E)5A)4S)0A)3S)5C 65652 MCW )1K,)1L&6 )3E)5A)4S)0A)3S)5B 65652 MCW )0P&7,IOCTRW&7 )3E)4F)5C)5A)4S)0A 65652 MCW &)2J,)1L&10 )3E)5A)4S)0A)3S)5B 65652 MCW )2J,*&4 )3E)5A)4S)0A)3S)5B)3I 6565K CW 0 )3E)5A)4S)0A)3S)5B)3I 6565K B )1M )3E)5C)5A)4S)0A 65652 B )6P )3E)5A)5B)4S)0A 65652 )0P RT )45,)34 )3E)4X)5C)5A)4S)0A 65652 )0P RTW )45,)34 )3E)4G)5C)5A)4S)0A 65652 )0P WT )45,)34 )3E)4X)5B)5A)4S)0A 65652 )0P WTW )45,)34 )3E)4G)5B)5A)4S)0A 65652 ORG )0P&1 )3E)5A)4S)0A 65652 DC @@@ )3E)5A)4S)0A 65652 ORG )0P&8 )3E)5A)4S)0A 65652 MLC @N@,)0N )3E)5A)4S)0A 65652 MLC )1N,IOCERH )3E)5A)4S)0A 65652 MLC )3E)5A)4S)0A 65652 MLC )3E)5A)4S)0A 65652 )6M B )6J&32 )3E)5A)4S)0A)5C)3S)3C 65652 )6M B )6J&39 )3E)5A)4S)0A)5C)3S)3T 65652 )6M B )6J&25 )3E)5A)4S)0A)3B)5C 65652 MCW )1P,IOCXR)32 )3E)5A)4S)0A)3B 6565K MCW )7P,)7Q )3?)3E)5A)4S)0A 65652 MLC )1P,)1L&3 )3E)3S)5C)5A)4S)0A 65652 MCW )1P,)1L&6 )3E)5A)4S)0A)3S)5B 65652 MCW )0Q&7,IOCTRW&7 )3E)4F)5C)5A)4S)0A 65652 )1M MN 0 )3E)5C)5A)4S)0A 65652 SAR )0L )3E)5C)5A)4S)0A 65652 SBR )3Q&6 )3?)3E)5C)5A)4S)0A C )0L,)7Q )3?)3E)5C)5A)4S)0A 65652 BE *&12 )3?)3E)5C)5A)4S)0A )3Q MLC @ @,0 )3?)3E)5C)5A)4S)0A B )30 )3?)3E)5C)5A)4S)0A MCW )0L,*&4 )3E)5A)4S)0A)3S)5C 65652 MCW &)0O,)1L&10 )3E)5A)4S)0A)3S)5B 65652 MCW )0O,*&4 )3E)5A)4S)0A)3S)5B)3I 6565K CW 0 )3E)5A)4S)0A)3S)5B)3I 6565K SW 0 )3E)5A)4S)0A)3S)5C 65652 )6P EQU *&1 )3E)5A)4S)0A)3S)3C 65652 )6P SW IOCUXT&1 )3E)5A)4S)0A)3S)3T 65652 MCW IOCUXT&3,*&8 )3E)5A)4S)0A)3S)3T 65652 CW IOCUXT&1 )3E)5A)4S)0A)3S)3T 65652 C 0 )3E)5A)4S)0A)3S)3T 65652 C )3E)5A)4S)0A)3S)3T 65652 C )3E)5A)4S)0A)3S)3T 65652 SAR )8J&3 )3E)5A)4S)0A)3S)3T 65652 SBR )8K&3 )3E)5A)4S)0A)3S)3T)2H 65652 )8J MCW 0,)1L&3 )5B)3E)5A)4S)0A)3S)3T 65652 )8J MCW 0,)1L&6 )5C)3E)5A)4S)0A)3S)3T 65652 )1L MRCM 0,)34 )5B)3E)5A)4S)0A)3S)3T 65652 )1L MRCM )34,0 )5C)3E)5A)4S)0A)3S)3T 65652 )1L MRCM )33,)34 )5B)3E)5A)4S)0A)3S)3C 65652 )1L MRCM )34,)33 )5C)3E)5A)4S)0A)3S)3C 65652 SBR )2J )5B)3E)5A)4S)0A)3S 65652 SBR *&4 )3E)5A)4S)0A)3S)3I 6565K MN 0 )3E)5A)4S)0A)3S)3I 6565K SAR *&7 )3E)5A)4S)0A)3S)3I 6565K MLCWA@"@,0 )3E)5A)4S)0A)3S)3I 6565K )6P A @1@,)5D-12 )3E)5A)4S)0A)3B 65652 A @1@,)5D-12 )3E)5A)4S)0A)3S 65652 A @1@,)7J )3E)5A)4S)0A)2I 65652 A )33&)28-1,)7K )3E)5A)4S)0A)2H)3C 65652 A )28-1&X)32,)7K )3E)5A)4S)0A)2H)3B 65652 MCW IOCXR1,IOCTNT )2H)3E)5A)4S)0A)3S)3T 65652 )8K MCW 0,IOCXR1 )2H)3E)5A)4S)0A)3S)3T 65652 SBR )8L&3,)28-1&X1 )2H)3E)5A)4S)0A)3S)3T 65652 )8L A 0,)7K )2H)3E)5A)4S)0A)3S)3T 65652 MCW IOCTNT,IOCXR1 )2H)3E)5A)4S)0A)3S)3T 65652 )2L B IOCUXT )3E)5A)4S)0A 65652 )0L DCW &)0L-1 )3E)5A)4S)0A 65652 MLC )0L,)0J&3 )3E)5A)5C)4S)0A)3I 6565K NOP 0,0 )3E)5A)5C)4S)0A)3Z 6565K DCW @N @ )3E)5A)5B)4S)0A 65652 )1J SBR )1M&3 )3E)5C)5A)4S)0A 65652 )1J SBR )0L )3E)5B)5A)4S)0A 65652 )1N DCW )3J )3E)5A)4S)0A 65652 )3J EQU )0P&7 )3E)5A)4S)0A 65652 )0R DCW )2N )3E)5A)4S)0A 65652 )2N EQU )0Q&7 )3E)5A)4S)0A 65652 )1K DCW &)34 )3E)5A)4S)0A 65652 )1P DCW &)35 )3E)5A)4S)0A 65652 )2J DCW )2J-1 )3E)5A)4S)0A 65652 DCW @ @ )3E)3S)5B)5A)4S)0A 65652 )0O DCW )0O-1 )3E)5A)5B)4S)0A 65652 DCW @ @ )3E)3S)5B)5A)4S)0A 65652 )2Q DCW @ @ )3E)3S)5B)5A)4S)0A 65652 )6J MLC @N@,)5D&4 )3E)5A)4S)0A 65652 MCW &)0P,)0N&3 )3E)5A)4S)0A 65652 MCW @B@,)0N )3E)5A)4S)0A 65652 MCW )8R&3,)6P&3 )3E)5A)4S)0A)3S)3T 65652 MCW &)0L-1,)0L )3E)5A)4S)0A)3S)5C 65652 MCW &IOCUXT,)2L&3 )3E)5A)4S)5B)0A)3T 65652 MCW )1K,IOCXR)32 )3E)5A)4S)5B)0A)3B 6565K B )5D )3E)5A)4S)0A)3S)5C 65652 B )5D )3E)5A)4S)0A)5C)3B 65652 MCW @N@,)6M )3E)5A)4S)0A)5C 65652 B )5D )3E)5A)4S)0A)5C 65652 B )0P-29 )3E)5A)4S)0A)3S)5B)3I 6565K B )0P-18 )3E)5A)4S)0A)3S)5B)3Z 6565K B )5D )3E)5A)4S)0A)3B)5S 65652 B IOCUXT )3E)5A)4S)0A)3B)5B 65652 )2M MLC @B@,)0N )3E)5A)4S)5C)0A 65652 MLC &)6N,)0N&3 )3E)5A)4S)5C)0A 65652 )2M MCW )6O,)6P&3 )3E)5A)4S)5B)0A)3C 65652 )2M MCW )6O,)2L&3 )3E)5A)4S)5B)0A)3T 65652 S @10@,)5D-11 )3E)5A)4S)0A)5C 6565K BCE *&15,)5D-4, )3E)5A)4S)0A 65652 MN )5D-4,)0Q&3 )3E)5A)4S)0A 65652 MN )5D-4,)0P&3 )3E)5A)4S)0A 65652 B IOCNPR-17 )3E)5A)4S)0A )6N MCW @B@,)5D&4 )3E)5A)4S)0A 65652 MCW @B@,)6M )3E)5A)4S)0A)5C 6565K MCW @ @,)3D&1 )3E)5A)4S)5C)0A 65652 MCW @ @,)3E&1 )3E)5A)4S)5C)0A 65652 B IOCEOR )3E)5A)4S)0A 65652 NOP )5D-17 )3E)5A)4S)0A 65652 B )6J )3E)5A)4S)0A 65652 )6O B )6N )3E)5A)4S)5B)0A 65652 )8R SW IOCUXT&1 )3E)5A)4S)0A)3S)3T 65652 )6Q MCW )8M&3,)6P&3 )3E)5A)4S)0A)3S 65652 B )0N )3E)5A)4S)0A)3S 65652 MCW @B@,)5D )3E)5A)4S)0A)3S 65652 )6Q MCW @B@,)5D )3E)5A)4S)0A)3B 65652 MCW @B@,)5D&4 )3E)5A)4S)0A 65652 B IOCUXT )3E)5A)4S)0A 65652 )7L B IOCUXT )3E)5A)4S)0A 65652 )7O DCW )34&)38 )3?)3E)5A)4S)0A 65652 )7P DCW )35&)38 )3?)3E)5A)4S)0A 65652 )7Q DCW @ @ )3?)3E)5A)4S)0A 65652 )8M B )6Q&11 )3E)5A)4S)0A)3S 65652 INCLD15000 )3E)4F)5C)5A)4S)0A 65652 * DTF ROUTINE FOR TAPE OVERLAP UNBLOCKED ONE I/O AREA )0A)0/ 65652 BCE *&5,IOCERH, )3V)4S)5A)0A 65652 B IOCSRW )3V)4S)5A)0A 65652 )0J CW *-1 )3V)3C)5C)4S)5A)0A 65652 MCW IOCCAN,)0K&3 )3V)4S)5A)0A 65652 MCW IOCCAN-4,*&7 )3V)4S)5A)0A 65652 MCW 0,0 )3V)4S)5A)0A 65652 BIN *-4,J )3V)4S)5A)0A 65652 )0K SBR )0L )3V)4S)5A)0A 65652 )0J CW *-1 )3V)5B)4S)5A)0A)3I 6565K )0J NOP 0 )3V)5B)4S)5A)0A)3Z 6565K MCW )0P&7,IOCTRW&7 )3V)4F)5C)5A)4S)0A 65652 B IOCKBY )3V)4F)5C)5A)4S)0A 65652 BW *&5,IOC007 )3V)4F)5C)5A)4S)0A 65652 B )0P )3V)4F)5C)5A)4S)0A 65652 )5R MN 0 )3V)5C)3C)4S)5A)0A 65652 SAR )0L )3V)5C)3C)4S)5A)0A 65652 SBR )3Q&6 )3?)3V)3C)5C)5A)4S)0A C )0L,)7P )3?)3V)3C)5C)5A)4S)0A 65652 BE *&12 )3?)3V)3C)5C)5A)4S)0A )3Q MLC @ @,0 )3?)3V)3C)5C)5A)4S)0A B )30 )3?)3V)3C)5C)5A)4S)0A MLC )0L,*&4 )3V)5C)3C)4S)5A)0A 65652 SW 0 )3V)5C)3C)4S)5A)0A 65652 SW IOCUXT&1 )3V)5A)4S)0A)3T 65652 SW IOCUXT&1 )3V)4S)5A)0A)5C)5F 6565K MCW IOCUXT&3,*&4 )3V)4S)5A)0A)5C)5F 6565K MN 0 )3V)4S)5A)0A)5C)5F 6565K SAR *&4 )3V)4S)5A)0A)5C)5F 6565K MCW 0,)5D-7 )3V)4S)5A)0A)5C)5F 6565K MCW IOCUXT&3,*&8 )3V)4S)5A)0A)3T 6565K CW IOCUXT&1 )3V)4S)5A)0A)3T)5W 6565K CW IOCUXT&1 )3V)4S)5A)0A)5F)5C 6565K C 0 )3V)5A)4S)0A)3T 65652 C )3V)5A)4S)0A)3T 65652 C )3V)5A)4S)0A)3T 65652 SAR )8J&3 )3V)5A)4S)0A)3T 65652 )8J MCW 0,)1L&3 )3V)5A)4S)0A)3T)5B 65652 )8J MCW 0,)1L&6 )3V)5A)4S)0A)3T)5C 65652 BCE )0P-7,)1L&6,$ )3V)5A)4S)0A)3T)5C)2Z)2Y 6565K BCE )0P-14,)1L&6,$ )3V)5A)4S)0A)3T)5C)2I)2Y 6565K BCE )0P-14,)1L&6,$ )3V)5A)4S)0A)3T)5C)2Z)2H 6565K BCE )0P-21,)1L&6,$ )3V)5A)4S)0A)3T)5C)2I)2H 6565K BCE )0P-7,)1L&3,$ )3V)5A)4S)0A)3T)5B)2Z)2Y 6565K BCE )0P-14,)1L&3,$ )3V)5A)4S)0A)3T)5B)2I)2Y 6565K BCE )0P-14,)1L&3,$ )3V)5A)4S)0A)3T)5B)2Z)2H 6565K BCE )0P-21,)1L&3,$ )3V)5A)4S)0A)3T)5B)2I)2H 6565K )1L MRCM )34,0 )3V)5A)4S)0A)3T)5C 65652 )1L MRCM 0,)34 )3V)5A)4S)0A)3T)5B 65652 )1L MRCM )33,)34 )3V)5A)4S)0A)3C)5B 65652 )1L MRCM )34,)33 )3V)5A)4S)0A)3C)5C 65652 SBR *&4 )3V)5A)4S)0A 6565K MN 0 )3V)5A)4S)0A 6565K SAR )0J&3 )3V)5A)4S)0A)5B 6565K SBR *&7 )3V)5A)4S)0A)3I 6565K MLCWA@"@,0 )3V)5A)4S)0A)3I 6565K A @1@,)7J )3V)2I)4S)5A)0A 6565K A )3D&)2H-1,)7K )3V)2H)4S)5A)0A)3T 6565K A )3C&)2H-1,)7K )3V)2H)4S)5A)0A)3C 6565K A @1@,)5D-12 )3V)4S)5A)0A 6565K )0P RT )45,)34 )3V)4X)5C)4S)5A)0A 65652 )0P RTW )45,)34 )3V)4G)5C)4S)5A)0A 65652 )0P WT )45,)34 )3V)4X)5B)4S)5A)0A 65652 )0P WTW )45,)34 )3V)4G)5B)4S)5A)0A 65652 ORG )0P&1 )3V)4S)5A)0A 65652 DC @@@ )3V)4S)5A)0A 65652 ORG )0P&8 )3V)4S)5A)0A 65652 MCW )1N,IOCERH )3V)4S)5A)0A 65652 MCW )3V)4S)5A)0A 65652 MCW )3V)4S)5A)0A 65652 B IOCSRW )3V)3T)4S)5A)0A 65652 )0J CW *-1 )3V)3T)5C)4S)5A)0A 65652 MCW IOCCAN,)1M&3 )3V)3T)4S)5A)0A 65652 MCW IOCCAN-4,*&7 )3V)3T)4S)5A)0A 65652 MCW 0,0 )3V)3T)4S)5A)0A 65652 BIN *-4,J )3V)3T)4S)5A)0A 65652 )1M SBR )0L )3V)3T)4S)5A)0A 65652 MCW IOCNOP,IOCERH )3V)3T)4S)5A)0A 65652 MCW )3V)3T)4S)5A)0A 65652 MCW )3V)3T)4S)5A)0A 65652 )5R MN 0 )3V)3T)5C)4S)5A)0A 65652 SAR )0L )3V)3T)5C)4S)5A)0A 65652 SBR )3Q&6 )3?)3V)3T)5C)4S)5A)0A C )0L,)7P )3?)3V)3T)5C)4S)5A)0A 65652 BE *&12 )3?)3V)3T)5C)4S)5A)0A )3Q MLC @ @,0 )3?)3V)3T)5C)4S)5A)0A B )30 )3?)3V)3T)5C)4S)5A)0A MCW )0L,*&4 )3V)3T)5C)4S)5A)0A 65652 SW 0 )3V)3T)5C)4S)5A)0A 65652 B IOCUXT )3V)4S)5A)0A 65652 )0L DCW &)0L-1 )3V)4S)5A)0A 65652 MCW )0L,)0J&3 )3V)5C)4S)5A)0A 65652 SBR )5R&3 )3V)5C)4S)5A)0A 65652 DCW @N @ )3V)5B)4S)5A)0A 65652 NOP 0 )3V)5B)4S)5A)0A 65652 )1N DCW )3J )3V)4S)5A)0A 65652 )3J EQU )0P&7 )3V)4S)5A)0A 65652 )6J MCW @N@,)5D&4 )3V)4S)5A)0A 65652 MCW &)6K,)0L-3 )3V)3C)5C)4S)5A)0A 6565K MCW )8L&3,)0J&3 )3V)4S)5A)0A)3T)5C 65652 BCE *&5,IOCERH, )3V)3C)4S)5A)5C)0A B IOCSRW )3V)3C)4S)5A)5C)0A MLC IOCCAN-4,*&7 )3V)3C)4S)5A)5C)0A MLC 0,0 )3V)3C)4S)5A)5C)0A B )0P )3V)3C)5C)4S)5A)0A 65652 )6K MCW &IOCUXT,)0L-3 )3V)3C)5C)4S)5A)0A 6565K B )5D )3V)4S)5A)0A 65652 )2M MCW @B@,)5D )3V)4S)5A)0A 65652 BCE *&8,)5D-4, )3V)5A)4S)0A 65652 MN )5D-4,)0P&3 )3V)5A)4S)0A 65652 MCW &)6N,)5D&3 )3V)4S)5A)0A 65652 MCW )8K&3,)0J&3 )3V)4S)5A)0A)3T)5C 65652 C IOCNPR&3,&)0J )3V)4S)5A)5C)0A 6565K BU IOCNPR-17 )3V)4S)5A)5C)0A SBR IOCNPR&3,)6N )3V)4S)5A)5C)0A 6565K B IOCNPR-17 )3V)4S)5A)0A )6N MCW &IOCUXT,)5D&3 )3V)4S)5A)0A 65652 MCW @B@,)5D&4 )3V)4S)5A)0A 65652 MCW @ @,)3D&1 )3V)4S)5A)5C)0A 65652 B IOCEOR )3V)4S)5A)0A 65652 NOP )5D-17 )3V)4S)5A)0A 65652 B )6J )3V)4S)5A)0A 65652 )6Q MCW @B@,)5D )3V)4S)5A)0A 65652 MCW @B@,)5D&4 )3V)4S)5A)0A 65652 B IOCUXT )3V)4S)5A)0A 65652 )7L B IOCUXT )3V)4S)5A)0A 65652 )7P DCW )34&)38 )3?)3V)4S)5A)0A 65652 )8K B IOCUXT )3V)4S)5A)0A)3T)5C 65652 )8L CW *-1 )3V)4S)5A)0A)3T)5C 65652 INCLD15000 )3V)4F)5C)5A)4S)0A 65652 * DTF ROUTINE FOR OVERLAP BLOCKED RECORDS WITH ONE I/O AREA )0A)0/ 65652 )0J NOP )0L )5A)4B)0A)3V)5C)3S 65652 )0J NOP )0L )5A)4B)0A)3V)5B)3S)3Z 65652 )0K SBR IOCXR)3B,)38&X)3B )5A)4B)0A)3V)5C)3Z 6565K )0K A )3C-1&)38,)0N )1')5A)4B)0A)3V)5B)3S)3I 65652 )0K SW IOCUXT&1 )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 MLC IOCUXT&3,*&8 )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 CW IOCUXT&1 )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 C 0 )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 C )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 C )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 SAR )2K&3 )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 SBR )7R )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 MLC IOCXR1,IOCTNT )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 MLC )7R,*&4 )3I)5B)4B)0A)3V)5A)3S)3T)1' 65652 MLC 0,IOCXR1 )3I)5B)4B)0A)3V)5A)3S)3T)1' 65652 SBR )4L&3,)38-1&X1 )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 SBR )4K&3,)2H-1&X1 )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 SBR )4M&3,)38-1&X1 )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 MZ IOCXR1-1,)4L&2 )3I)5B)4B)0A)3V)5A)3S)3T)1' 65652 MZ IOCXR1-1,)4K&2 )2H)3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 MZ IOCXR1-1,)4M&2 )3I)5B)4B)0A)3V)5A)3S)3T)1' 65652 MLC IOCTNT,IOCXR1 )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 )4L A 0,)0N )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 )0K MLC )5L,)5K )1?)5A)4B)0A)3V)5B)3S)3I 65652 A )1?,)0N )5A)4B)0A)3V)5B)3S)3I 65652 MA )1?,)5L )5A)4B)0A)3V)5B)3S)3I 6565K SW IOCUXT&1 )5C)5A)4B)0A)3V)3S)3T 65652 SW IOCUXT&1 )3V)4B)5A)0A)5C)5F 6565K MCW IOCUXT&3,*&4 )3V)4B)5A)0A)5C)5F 6565K MN 0 )3V)4B)5A)0A)5C)5F 6565K SAR *&4 )3V)4B)5A)0A)5C)5F 6565K MCW 0,)5D-7 )3V)4B)5A)0A)5C)5F 6565K MCW IOCUXT&3,*&8 )3V)4B)5A)0A)5C)3T)3S 6565K CW IOCUXT&1 )3V)4B)5A)0A)5C)3T)3S)5W 6565K CW IOCUXT&1 )3V)4B)5A)0A)5C)5F 6565K C 0 )5C)5A)4B)0A)3V)3S)3T 65652 C )5C)5A)4B)0A)3V)3S)3T 65652 C )5C)5A)4B)0A)3V)3S)3T 65652 SAR )2K&3 )5C)5A)4B)0A)3V)3S)3T 65652 SBR )7R )2H)5C)5A)4B)0A)3V)3S)3T 65652 MLC IOCXR1,IOCTNT )2H)5C)5A)4B)0A)3V)3S)3T 65652 MLC )7R,*&4 )2H)5C)5A)4B)0A)3V)3S)3T 65652 MLC 0,IOCXR1 )2H)5C)5A)4B)0A)3V)3S)3T 65652 SBR )4K&3,)2H-1&X1 )2H)5C)5A)4B)0A)3V)3S)3T 65652 MZ IOCXR1-1,)4K&2 )2H)5C)5A)4B)0A)3V)3S)3T 65652 MLC IOCTNT,IOCXR1 )2H)5C)5A)4B)0A)3V)3S)3T 65652 SW IOCUXT&1 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 MLC IOCUXT&3,*&8 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 CW IOCUXT&1 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 C 0 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 C )3Z)5B)5A)4B)0A)3V)3S)3T 65652 C )3Z)5B)5A)4B)0A)3V)3S)3T 65652 SAR )2K&3 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 SBR )7R )3Z)5B)5A)4B)0A)3V)3S)3T 65652 MLC IOCXR1,IOCTNT )3Z)5B)5A)4B)0A)3V)3S)3T 65652 MLC )7R,*&4 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 MLC 0,IOCXR1 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 SBR )4K&3,)2H-1&X1 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 SBR )4N&6,)38-2&X1 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 SBR *&18,0&X1 )2Y)5B)3Z)5A)4B)0A)3V)3S)3T 65652 SBR *&25,0&X1 )2H)5B)3Z)5A)4B)0A)3V)3S)3T 65652 MZ IOCXR1-1,)4K&2 )2H)3Z)5B)5A)4B)0A)3V)3S)3T)1' 65652 MZ IOCXR1-1,)4N&5 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 MZ IOCXR1-1,*&3 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 MN 0 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 SAR )4P )3Z)5B)5A)4B)0A)3V)3S)3T 65652 MLC IOCTNT,IOCXR1 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 )2K MLC 0,)0K&13 )5C)5A)4B)0A)3V)3S)3T 65652 )2K MLC 0,)0P&3 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 )0K MLC )0N,*&4 )5A)4B)0A)3V)5C)3S 65652 MRCM 0,)3C )5A)4B)0A)3V)5C 65652 )0P MRCM )3C,)34 )5A)4B)0A)3V)5B)3Z 65652 )0P MRCM 0,)34 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 MRCM 0,0 )5C)5A)4B)0A)3V)3S)3T 65652 SAR )0N )5A)4B)0A)3V)5C)3S 65652 SBR *-4 )5A)4B)0A)3V)5B)3S)3Z 65652 SBR )0N )5A)4B)0A)3V)5B)3S)3Z 65652 A @1@,)7J )5A)4B)0A)3V)5C)3C)2I 65652 A @1@,)7J )3S)5A)4B)0A)3V)5B)3Z)2I 65652 A )3C-1&)2H,)7K )5A)4B)0A)3V)5C 65652 A )3C-1&)2H,)7K )3S)5A)4B)0A)3V)5B)3Z 65652 )4K A 0,)7K )5C)5A)4B)0A)3V)3S)3T)2H 65652 )4K A 0,)7K )3Z)5B)5A)4B)0A)3V)3S)3T)2H 65652 C )0N,)0Q )5A)4B)0A)3V)5C)3S 65652 C )0N,&)36 )5A)4B)0A)3V)5B)3S)3I 65652 C )0N,)0Q )5A)4B)0A)3V)5B)3S)3Z 65652 C IOCXR)3B,)0Q )5A)4B)0A)3V)5C 6565K )0K SBR IOCXR)3B,)38&X)3B )2Y)3Z)5A)4B)0A)3V)5B 6565K C IOCXR)3B,)0Q )5A)4B)0A)3V)5B 6565K BE )0R )5A)4B)0A)3V)5C 65652 BE )0R )5A)4B)0A)3V)5B)3Z 65652 BL )0R )5A)4B)0A)3V)5B)3I 65652 MLC )5K,)1? )5A)4B)0A)3V)5B)3S)3I 65652 )0J NOP )0L )5A)4B)0A)3V)5B)3I 65652 )2K MLC 0,)0P&3 )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 )0P MRCM 0,)34&4 )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 )0P MRCM )3C,)34&4 )3I)5B)5A)4B)0A)3V)1' 65652 )0P A @1@,)7J )2I)1?)5A)4B)0A)3V)5B)3S)3I 65652 )0P MCW IOCXR1,IOCXRS )2H)2Z)1?)5A)4B)0A)3V)5B)3S)3I 65652 MCW IOCXR1,IOCXRS )2H)2I)1?)5A)4B)0A)3V)5B)3S)3I 65652 MCW )5K,IOCXR1 )2H)1?)5A)4B)0A)3V)5B)3S)3I 65652 SBR *&4,)2H-1&X1 )1?)5A)4B)0A)3V)5B)3S)3I 65652 A 0,)7K )2H)1?)5A)4B)0A)3V)5B)3S)3I 65652 SBR *-4 )5A)4B)0A)3V)5B)3I)1' 65652 )4K A 0,)7K )2H)3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 SBR IOCXRS,)38&X)3B )5A)4B)0A)3V)5B)3Z)2H 65652 A )2H-1&X)3B,)7K )5A)4B)0A)3V)5B)3Z)3B 65652 MCW IOCXRS,IOCXR)3B )5A)4B)0A)3V)5B)3Z)2H 6565K A @1@,)7J )1')5A)4B)0A)3V)5B)3I)2I 65652 A @1@,)7J )2I)5A)4B)0A)3V)3B)3Z)3B 65652 A )3C-1&)2H,)7K )1')5A)4B)0A)3V)5B)3I 65652 )0P B IOCUXT )2Y)2Z)1?)5A)4B)0A)3V)5B)3S)3I 65652 B IOCUXT )2I)1?)5A)4B)0A)3V)5B)3S)3I 65652 B IOCUXT )2H)1?)5A)4B)0A)3V)5B)3S)3I 65652 B IOCUXT )5A)4B)0A)3V)1' 65652 )0R MLC @B@,)0J )5A)4B)0A)3V)3S 65652 )0R MLC )1J,IOCXR)3B )5A)4B)0A)3V)3Z 6565K MLCWA)1J,)0N )5A)4B)0A)3V)5C)3I 65652 MLCWA)1J,)0N )5A)4B)0A)3V)3S)3Z 65652 MLC )1J,)0P&6 )5A)4B)0A)3V)5B)3S)3Z 65652 SW )0P&4 )1')5A)4B)0A)3V)5B)3I 65652 MLC )0P&6,)1K&6 )1')5A)4B)0A)3V)5B)3I 65652 MLC )0P&6,)1L&3 )1')5A)4B)0A)3V)5B)3I 65652 CW )0P&4 )1')5A)4B)0A)3V)5B)3I 65652 S )1?,)0N )5A)4B)0A)3V)5B)3I 65652 MLC )5K,)1K&6 )5A)4B)0A)3V)5B)3I)1? 65652 MLC )5K,)1L&3 )1?)5A)4B)0A)3V)5B)3I 65652 )1K MLCWA@"@,0 )5A)4B)0A)3V)5B)3I 65652 S )3C-1&)38,)0N )1')5A)4B)0A)3V)5B)3I 65652 )4M S 0,)0N )3I)5B)5A)4B)0A)3V)3S)3T)1' 65652 MLCWA)0N,)34&3 )5A)4B)0A)3V)5B)3I 65652 )1M BCE *&5,IOCERH, )5A)4B)0A)3V 65652 B IOCSRW )5A)4B)0A)3V 65652 MLC IOCCAN,)1N&3 )5A)4B)0A)3V 65652 MLC IOCCAN-4,*&7 )5A)4B)0A)3V 65652 MLC 0,0 )5A)4B)0A)3V 65652 BIN *-4,J )5A)4B)0A)3V 65652 )1N SBR 0 )5A)4B)0A)3V 65652 )1P NOP )1Q )5A)4B)0A)3V 65652 MLC )1R,IOCERH )5A)4B)0A)3V 65652 MLC )5A)4B)0A)3V 65652 MLC IOCNOP-7 )5A)4B)0A)3V 65652 BIN *-4,H )5A)4B)0A)3V 65652 BIN *-4,I )5A)4B)0A)3V 65652 )2J RT )45,)34 )5A)4B)0A)3V)5C)4X 65652 )2J RTW )45,)34 )5A)4B)0A)3V)5C)4G 65652 )2J WT )45,)34 )5A)4B)0A)3V)5B)4X 65652 )2J WTW )45,)34 )5A)4B)0A)3V)5B)4G 65652 ORG )2J&1 )5A)4B)0A)3V 65652 DC @@@ )5A)4B)0A)3V 65652 ORG )2J&8 )5A)4B)0A)3V 65652 A @1@,)5D-12 )5A)4B)0A)3V 65652 S )0N )5A)4B)0A)3V)5B)3I 65652 A @D@,)0N )5A)4B)0A)3V)5B)3I 65652 MLC )1J,)5L )5A)4B)0A)3V)5B)3I)1? 65652 MLC )1J,)0P&6 )1')5A)4B)0A)3V)5B)3I 65652 MLC @B@,)1P )5A)4B)0A)3V)3Z)3B 65652 )2L B )0K )5A)4B)0A)3V)5B)3I 65652 )2L B )1M )5A)4B)0A)3V)3Z)3B 65652 )2L B IOCUXT )5A)4B)0A)3V)5C)3S 65652 )2L B IOCUXT )5A)4B)0A)3V)5B)3S)3Z 65652 )0L MLC @N@,)0J )5A)4B)0A)3V)3S)3Z 65652 MLC @B@,)1P )5A)4B)0A)3V)3S)3Z 65652 B )1M )5A)4B)0A)3V)3S)3Z 65652 )0L MLC @N@,)0J )5A)4B)0A)3V)3I 65652 MLC @B@,)1P )5A)4B)0A)3V)3I 65652 B )1M )5A)4B)0A)3V)3I 65652 )1Q MLC @N@,)1P )5A)4B)0A)3V 65652 MLC IOCNOP,IOCERH )5A)4B)0A)3V 65652 MLC )5A)4B)0A)3V 65652 MLC )5A)4B)0A)3V 65652 )5M MN 0 )5A)4B)0A)3V)5C 65652 SAR )0Q )5A)4B)0A)3V)5C 65652 SBR )3Q&6 )3?)3V)5C)5A)4B)0A MCW IOCXR1,)6L )3?)3V)3Z)5C)5A)4B)0A 65652 SBR IOCXR1,)3D )3?)3V)3Z)5C)5A)4B)0A 65652 MN )3F&1&X1 )3?)3V)3Z)5C)5A)4B)0A 65652 SAR )7O )3?)3V)3Z)5C)5A)4B)0A 65652 MCW )6L,IOCXR1 )3?)3V)3Z)5C)5A)4B)0A 65652 C )0Q,)7O )3?)3V)3Z)5C)5A)4B)0A 65652 MCW IOCXR1,IOCTNT )3?)3V)3I)5C)5A)4B)0A 65652 INCLD18000 )3?)3V)3I)5C)5A)4B)0A 6565K ZA )3D&3,IOCAR5 )3?)3V)3I)5C)5A)4B)0A 6565K B IOCPCK )3?)3V)3I)5C)5A)4B)0A 6565K MCW IOCAR5,IOCXR1 )3?)3V)3I)5C)5A)4B)0A 6565K SBR IOCXR1,)3D&X1 )3?)3V)3I)5C)5A)4B)0A 6565K C )0Q,IOCXR1 )3?)3V)3I)5C)5A)4B)0A 65652 BE *&12 )3?)3V)5C)5A)4B)0A )3Q MLC @ @,0 )3?)3V)5C)5A)4B)0A B )30 )3?)3V)5C)5A)4B)0A MCW IOCTNT,IOCXR1 )3?)3V)3I)5C)5A)4B)0A 65652 MCW )2J&7,IOCTRW&7 )5A)4B)0A)3V)5C)4F 65652 B IOCKBY )5A)4B)0A)3V)5C)4F 65652 BW *&5,IOC007 )5A)4B)0A)3V)5C)4F 65652 B )2J )5A)4B)0A)3V)5C)4F 65652 B IOCUXT )5A)4B)0A)3V)3Z)3B 65652 B )0J )5A)4B)0A)3V)3S 65652 )7R DCW @ @ )5C)2H)5A)4B)0A)3V)3S)3T 65652 )7R DCW @ @ )5B)5A)4B)0A)3V)3S)3T 65652 )4P DCW @ @ )3Z)5B)5A)4B)0A)3V)3S)3T 65652 )7O DCW @ @ )3?)3V)3Z)5C)5A)4B)0A 65652 )7P DCW @ @ )3?)3V)3I)5C)5A)4B)0A 65652 )0N DCW @ @ )5A)4B)0A)3V)5C)3I 65652 )0N DCW @ @ )5A)4B)0A)3V)5B)3I 65652 )0N DCW @ @ )5A)4B)0A)3V)3Z)3S 65652 )0Q DCW @ @ )5A)4B)0A)3V)5C)3I 65652 )0Q DCW @ @ )5A)4B)0A)3V)3Z 65652 )1J DCW )34&4 )5A)4B)0A)3V)3I 65652 )1J DCW )34 )5A)4B)0A)3V)3Z 65652 )1L SBR )5M&3 )5A)4B)0A)3V)5C 65652 )1L DCW @N @ )5A)4B)0A)3V)5B)3Z 65652 )1L CW 0 )5A)4B)0A)3V)5B)3I 65652 )1R DCW )2J&7 )5A)4B)0A)3V 65652 )5L DCW @ @ )1?)5A)4B)0A)3V)5B)3I 65652 )5K DCW @ @ )1?)5A)4B)0A)3V)5B)3I 65652 )2M MCW @B@,)5D )5A)4B)0A)3V 65652 S @10@,)5D-11 )3V)5A)4B)0A)5C 6565K BCE *&8,)5D-4, )3V)5A)4B)0A 65652 MN )5D-4,)2J&3 )3V)5A)4B)0A 65652 MCW &)6N,)5D&3 )5A)4B)0A)3V 65652 MCW @B@,)1P )5A)4B)0A)3V 65652 MCW &IOCUXT,)1P&3 )5A)4B)0A)3V 65652 B IOCNPR-17 )3V)5A)4B)0A )6N MCW &IOCUXT,)5D&3 )5A)4B)0A)3V 65652 MCW @B@,)5D&4 )5A)4B)0A)3V 65652 MCW @ @,)3D&1 )3V)4B)5A)5C)0A 65652 B IOCEOR )5A)4B)0A)3V 65652 NOP )5D-17 )5A)4B)0A)3V 65652 B )6J )3V)4B)5A)0A 65652 )6Q MCW @B@,)5D&4 )5A)4B)0A)3V)5C 65652 MCW @B@,)5D )5A)4B)0A)3V)5C 65652 B IOCUXT )5A)4B)0A)3V)5C 65652 )6Q MCW @B@,)5D&4 )5A)4B)0A)3V)5B)3I 65652 MCW @B@,)5D )5A)4B)0A)3V)5B)3I 65652 MLC @N@,)1K&7 )5A)4B)0A)3V)5B)3I)1' 6565K MLC )5L,)5K )5A)4B)0A)3V)5B)3I)1? 6565K MLC @N@,)1P )5A)4B)0A)3V)5B)3I 6565K SBR )2L&3,*&5 )5A)4B)0A)3V)5B)3I 6565K B )0R&7 )5A)4B)0A)3V)5B)3I)1' 6565K B )0R&14 )5A)4B)0A)3V)5B)3I)1? 6565K B IOCSRW )5A)4B)0A)3V)5B)3I 6565K B IOCUXT )5A)4B)0A)3V)5B)3I 65652 )6Q MLC IOCXR1,IOCPDS )3S)5A)4B)0A)3V)5B)3Z 65652 C )0N,)1J )3S)5A)4B)0A)3V)5B)3Z 65652 )6Q C IOCXR)3B,)0Q )5A)4B)0A)3V)5B)3Z 6565K BE )8J )5A)4B)0A)3V)5B)3Z 65652 C IOCXR)3B,)1J )5A)4B)0A)3V)5B)3Z 6565K BE IOCUXT )3B)5A)4B)0A)3V)5B)3Z 65652 SW )8M )5A)4B)0A)3V)5B)3Z 6565K MLC &)8J,)0R-6 )3S)5A)4B)0A)3V)5B)3Z 65652 MLC &)0P,)0R-1 )3S)5A)4B)0A)3V)5B)3Z 65652 )4N SBR IOCXR1,0 )3T)3S)5A)4B)0A)3V)5B)3Z 65652 SBR IOCXR1,)3C-2&)38 )3C)5A)4B)0A)3V)5B)3Z 65652 MLC IOCXR)3B,IOCPDS )5A)4B)0A)3V)5B)3Z 6565K MRCM 2&X)3B,0&X)3B )5A)4B)0A)3V)5B)3Z 65652 SBR IOCXR)3B )5A)4B)0A)3V)5B)3Z 6565K )8K MLC @)3G@,0&X1 )3S)5A)4B)0A)3V)5B)3Z 65652 )8K MLC @ @,0&X1 )3X)3S)5A)4B)0A)3V)5B)3Z 65652 )8K MLC @)37@,0&X)3B )3G)5A)4B)0A)3V)5B)3Z 65652 )8K MLC @ @,0&X)3B )3X)5A)4B)0A)3V)5B)3Z 65652 SBR IOCXR1 )3S)5A)4B)0A)3V)5B)3Z 65652 SBR IOCXR)3B )5A)4B)0A)3V)5B)3Z 6565K C IOCXR1,)4P )3T)3S)5A)4B)0A)3V)5B)3Z 65652 C IOCXR1,&)3C-1 )5A)4B)0A)3V)5B)3Z 65652 C IOCXR)3B,IOCPDS )5A)4B)0A)3V)5B)3Z 6565K BE *&5 )5A)4B)0A)3V)5B)3Z 65652 B )8K )5A)4B)0A)3V)5B)3Z 65652 MLC @)3G@,0&X)3B )5A)4B)0A)3V)5B)3Z 65652 MLC @ @,0&X)3B )3X)5A)4B)0A)3V)5B)3Z 65652 MLC IOCPDS,IOCXR1 )3S)5A)4B)0A)3V)5B)3Z 65652 B )0P )3S)5A)4B)0A)3V)5B)3Z 65652 MRCM 0&X)3B,0&X)3B )5A)4B)0A)3V)5B)3Z 65652 SBR IOCXR)3B )5A)4B)0A)3V)5B)3Z 6565K A @1@,)7J )2I)3B)5A)4B)0A)3V)5B)3Z 65652 A )2H-1&X)3B,)7K )2H)3B)5A)4B)0A)3V)5B)3Z 65652 B )6Q )3B)5A)4B)0A)3V)5B)3Z 65652 )8J MCW @B@,)5D&4 )5A)4B)0A)3V)5B)3Z 65652 MCW @B@,)5D )5A)4B)0A)3V)5B)3Z 65652 MCW IOCPDS,IOCXR1 )3S)5A)4B)0A)3V)5B)3Z 65652 MCW &)0R,)0R-6 )3S)5A)4B)0A)3V)5B)3Z 65652 MCW &IOCUXT,)0R-1 )3S)5A)4B)0A)3V)5B)3Z 65652 BW )0R,)8M )5A)4B)0A)3V)5B)3Z 6565K B IOCUXT )5A)4B)0A)3V)5B)3Z 6565K )8M DC @ @ )5A)4B)0A)3V)5B)3Z 6565K )6J MLC @N@,)5D&4 )5A)4B)0A)3V 65652 MLC &)6K,)2L&3 )5A)4B)0A)3V)5C 65652 MLC &)6K,)2L&3 )1')5A)4B)0A)3V)5B)3I 65652 ZA @D@,)0N )5A)4B)0A)3V)5B)3I 65652 MLC @S@,)1K&7 )5A)4B)0A)3V)5B)3I)1' 6565K MLC )1J,)5L )5A)4B)0A)3V)5B)3I)1? 65652 MLC )1J,IOCXR)3B )5A)4B)0A)3V)5B)3Z 6565K MLC )1J,)0N )5A)4B)0A)3V)5B)3Z)3S 65652 MLC IOCXR1,)6L )5A)4B)0A)3V)3Z 65652 SBR IOCXR1,)34 )5A)4B)0A)3V)3Z 65652 SBR )0Q,)36&X1 )5A)4B)0A)3V)3Z 65652 MLC )6L,IOCXR1 )5A)4B)0A)3V)3Z 65652 MCW @N@,)1P )5A)4B)0A)3V 65652 MCW &)1Q,)1P&3 )5A)4B)0A)3V 65652 B )0R )5A)4B)0A)3V)5C 65652 B )2L-7 )1')5A)4B)0A)3V)5B)3I 65652 B )5D&8 )1?)5A)4B)0A)3V)5B)3I 65652 B )5D&8 )3S)5A)4B)0A)3V)5B)3Z 65652 B IOCUXT )3B)5A)4B)0A)3V)5B)3Z 65652 )6K MLC &)0K,)2L&3 )1')5A)4B)0A)3V)5B)3I 65652 )6K MLC &)1M,)2L&3 )5A)4B)0A)3V)5C)3Z)3B 65652 )6K MLC &IOCUXT,)2L&3 )5A)4B)0A)3V)5C)3S 65652 B )5D&4 )1')5A)4B)0A)3V)5B)3I 65652 B )5D&4 )3S)5A)4B)0A)3V)5C 65652 B IOCUXT )3B)5A)4B)0A)3V)5C 65652 )6L DCW @ @ )5A)4B)0A)3V)3Z 65652 )7L B )0R )5A)4B)0A)3V)5C 65652 )7L B )0R )5A)4B)0A)3V)5B)3I 65652 )7L MCW &)7M,)6Q&10 )5A)4B)0A)3V)5B)3Z 65652 B )6Q )5A)4B)0A)3V)5B)3Z 65652 )7M MCW &)8J,)6Q&10 )5A)4B)0A)3V)5B)3Z 65652 B )0R )5A)4B)0A)3V)5B)3Z 65652 INCLD15000 )5A)4B)0A)3V)5C)4F 65652 44444 HEADR 65702 55555 HEADR 65752 * IODEVICES ENTRY ERROR - NO DEVICES )99)3V)3U)3T)3S 65752 * LABELDEF ENTRY ERROR - STANDARD & MIXED )99)3A)2I 65752 * LABELDEF ENTRY ERROR - STANDARD & NONSTANDARD )99)3A)3? 65752 * LABELDEF ENTRY ERROR - NONSTANDARD & MIXED )99)3?)2I 65752 * LABELDEF ENTRY ERROR - STANDARD, NONSTANDARD & MIXED )99)3A)2I)3? 65752 * LABELDEF ENTRY ERROR - CHECK & NONSTANDARD )99)3?)2H 65752 * LABELDEF ENTRY ERROR - IDENT & NONSTANDARD )99)3?)2G 65752 * LABELDEF ENTRY ERROR - CHECK & NO LABELS )99)2H)3')3/)2Z 65752 * LABELDEF ENTRY ERROR - IDENT & NO LABELS )99)2G)3')3/)2Z 65752 * LABELDEF ENTRY ERROR - CHECK & IDENT )99)2G)2H 65752 * LABELDEF ENTRY ERROR - STANDARD - NO TAPE )99)3A)3V 65752 * LABELDEF ENTRY ERROR - NONSTANDARD - NO TAPE )99)3?)3V 65752 * LABELDEF ENTRY ERROR - MIXED - NO TAPE )99)2I)3V 65752 * LABELDEF ENTRY ERROR - RDLIN - NO TAPE )99)1F)3V 65752 * LABELDEF ENTRY ERROR - RDLIN & NO LABELS )99)1F)3')3/)2Z 65752 * LABELDEF ENTRY ERROR - RDLIN & NONSTANDARD )99)1F)3? 65752 * FEATURES ENTRY ERROR - RELEASE,NO READER & NO PUNCH )99)0B)3U)3T 65752 * FEATURES ENTRY ERROR - STORAGE,NO PRINTER )99)3F)3S 65752 * COUNTS ENTRY ERROR - RECORD,NO TAPE )99)0E)3V 65752 * COUNTS ENTRY ERROR - RECORD,NO LABELS )99)0E)3')3/)2Z 65752 * COUNTS ENTRY ERROR - HASH,NO TAPE )99)0D)3V 65752 * COUNTS ENTRY ERROR - HASH,NO LABELS )99)0D)3')3/)2Z 65752 * ALTDRIVE ENTRY ERROR - NO TAPE )99)2E)3V 65752 * EXITS ENTRY ERROR - NO TAPE )99)3H)3V 65752 * EXITS ENTRY ERROR - NO LABELS )99)3H)3')3/)2Z 65752 * EXITS ENTRY ERROR - EXIT 1 NOT APPLICABLE )99)2D)3I 65752 * EXITS ENTRY ERROR - EXIT 2 NOT APPLICABLE )99)2C)3I 65752 * EXITS ENTRY ERROR - EXIT 3 NOT APPLICABLE )99)2B)3I 65752 * EXITS ENTRY ERROR - EXIT 4 NOT APPLICABLE )99)2A)3I 65752 * EXITS ENTRY ERROR - EXIT 5 NOT APPLICABLE )99)2?)3I 65752 * EXITS ENTRY ERROR - EXIT 8 NOT APPLICABLE )99)1G)3I 65752 * EXITS ENTRY ERROR - EXIT 6 NOT APPLICABLE )99)1I)4? 65752 * EXITS ENTRY ERROR - EXIT 7 NOT APPLICABLE )99)1H)4? 65752 * EXITS ENTRY ERROR - EXIT 1 NOT APPLICABLE )99)2D)3? 65752 * EXITS ENTRY ERROR - EXIT 3 NOT APPLICABLE )99)2B)3? 65752 * EXITS ENTRY ERROR - EXIT 4 NOT APPLICABLE )99)2A)3? 65752 * RWDOPTION ENTRY ERROR - UNLOAD,NO TAPE )99)1B)3V 65752 * RWDOPTION ENTRY ERROR - NOREWD,NO TAPE )99)1C)3V 65752 * RWDOPTION ENTRY ERROR - UNLOAD & NOREWD )99)1C)1B 65752 * READERROR ENTRY ERROR - NO TAPE )99)0H)3V 65752 * READERROR ENTRY ERROR - NO TAPE )0Y)99)0I)3V 65752 * READERROR ENTRY ERROR - NO TAPE )0Z)0Y)99)1?)3V 65752 * READERROR ENTRY ERROR - NO TAPE )1')0Z)0Y)99)1A)3V 65752 * READERROR ENTRY ERROR - TAPE OUTPUT ONLY )99)0H)4? 65752 * READERROR ENTRY ERROR - TAPE OUTPUT ONLY )0Y)99)0I)4? 65752 * READERROR ENTRY ERROR - TAPE OUTPUT ONLY )0Z)0Y)99)1?)4? 65752 * READERROR ENTRY ERROR - TAPE OUTPUT ONLY )1')0Z)0Y)99)1A)4? 65752 * READERROR ENTRY ERROR - PROCESS & SCAN )99)0I)1? 65752 * TAPEUSE ENTRY ERROR - NO TAPE )99)3I)3V 65752 * TAPEUSE ENTRY ERROR - NO TAPE )99)4?)3V 65752 * TAPEUSE ENTRY ERROR - INPUT & OUTPUT )99)3I)4? 65752 * DIOCS - START OF PROGRAM )0/)0A 65752 ORG 87 65752 IOCXR1 DCW 000 65752 DC 00 65752 IOCXR2 DCW 000 65752 DC 00 65752 IOCXR3 DCW 000 65752 DC 0 65752 ORG 333 )3X 65752 ORG )3G 65752 DC #1 6575K * ENTRY TO OPEN ROUTINE 65752 IOCOPN SBR IOCQUT&3 65752 SW IOCOPS#1 65752 CW IOCLOS )3V CW IOCLOS,IOCFES )3E B IOCTBL )0A)3E 65752 B IOCENT )0/ 6575K B IOCENT )0A)3V 6575K * ENTRY TO FEORL ROUTINE )3E 6575K SBR IOCQUT&3 )3E 6575K SW IOCFES#1 )3E 6575K CW IOCOPS,IOCLOS )3E 6575K B IOCENT )3E 6575K )8L BW )2L,IOCLOS )3E)4')3B 65752 )8L BW )2L,IOCLOS )3E)4')3C)3S 65752 )8L BW )2L,IOCLOS )3E)4')3D)3S)3T 65752 )8L BW )2L,IOCLOS )3E)4')3Z)3S)3T)3U 65752 )8L BW )2L,IOCLOS )3E)3I)3S)3T)3U 65752 B )8M )3E)4' 65752 * ENTRY TO CLOSE ROUTINE 65752 IOCLOZ SBR IOCQUT&3 65752 SW IOCLOS#1 65752 CW IOCOPS )3V CW IOCOPS,IOCFES )3E B IOCTBL )0A)3E 65752 B IOCENT 65752 )0J MCW IOCXR3,IOCSV3#3 65752 BCE )8L,IOCTYP,R )3E)4')3B 65752 BCE )8L,IOCTYP,R )3E)4')3C)3S 65752 BCE )8L,IOCTYP,R )3E)4')3D)3S)3T 65752 BCE )8L,IOCTYP,R )3E)4')3Z)3S)3T)3U 65752 B )8L )3E)3I)3S)3T)3U 65752 BCE )0K,IOCTYP,W )3E)4')3Z)3B 65752 BCE )0K,IOCTYP,W )3E)4')3Z)3C)3S 65752 BCE )0K,IOCTYP,W )3E)4')3Z)3D)3S)3T 65752 BCE )0K,IOCTYP,W )3E)4?)3D 65752 BCE )0K,IOCTYP,W )3E)4?)3C)3U 65752 BCE )0K,IOCTYP,W )3E)4?)3B)3T)3U 65752 BCE )0M,IOCTYP,4 )3C)3B 65752 BCE )0M,IOCTYP,4 )3C)3D)3S 65752 BCE )0M,IOCTYP,4 )3C)3E)3U)3S 65752 BCE )9R,IOCTYP,2 )3B 6575K B IOCDAC )3D 65752 H 0,3222 )3B 6575K )9R BIN *-11,' )3B 6575K B IOCDAC )3B 6575K * WRITE LAST TAPE BLOCK )0/)0A)0/65752 )0K EQU *&1 )3E)4')3Z)3B 65752 )0K EQU *&1 )3E)4')3Z)3C)3S 65752 )0K EQU *&1 )3E)4')3Z)3D)3S)3T 65752 )0K EQU *&1 )3E)4?)3D 65752 )0K EQU *&1 )3E)4?)3C)3U 65752 )0K EQU *&1 )3E)4?)3B)3T)3U 65752 SBR IOCUXT&3,*&19 )3E)3Z 6575K SBR *&11,33&X3 )3E)3Z)0A 6575K SBR *&11,25&X3 )3E)3Z)0/ 6575K MLC IOCXSV,IOCXR3 )3E)3Z 6575K B 0 )3E)3Z 6575K MCW IOCSV3,IOCXR3 )3E)3Z 65752 MCW 6&X3,IOCBLK )3E)3Z 65752 B )0N )3E)3Z 65752 * PUNCH EXTRA CARD )0/)0A 65752 )0M EQU *&1 )3C)3B 65752 )0M EQU *&1 )3C)3D)3S 65752 )0M EQU *&1 )3C)3E)3U)3S 65752 SW IOCPLC&1 )3C 6575K SBR IOCUXT&3,*&8 )3C 65752 B 17&X3 )3C 65752 DCW @$@ )3C 65752 DCW @$@ )3C 65752 DCW @$@ )3C 65752 CW IOCPLC&1 )3C 65752 MCW IOCSV3,IOCXR3 )3C 65752 B IOCDAC )3C 65752 * ENTRY TO END OF REEL ROUTINE IOCEOR SBR IOCQUT&3 BCE *&5,IOCERH, )3E)0A B IOCSRW )3E)0A MLC IOCCAN-4,*&7 )3E)0A MLC 0,0 )3E)0A MLC IOCNOP-7,IOCCAN-4 )3E)0A SW IOCRRR#1 )3E)0A 6575K CW IOCOPS,IOCLOS CW IOCFES )3E 6575K * ENTRY TO END OF REEL ROUTINE - OPEN,CLOSE,FEORL )0/)0A 65752 IOCENT MCW IOCXR3,IOCXSV#8 65752 MCW )3E)3H 65752 MCW IOCQUT&3,IOCXR3 65752 MCW 3&X3,IOCXR3 65752 * PICK UP DTF FIXED PARAMETERS )0/)0A 65752 MCW 16&X3,IOCPSV 65752 CHAIN8 65752 SAR IOCSVA#3 65752 BW )0J,IOCLOS 65752 BW )0J,IOCFES )3E BWZ )0L,IOCTYP,2 )3B)3T)3U)3E 65752 BWZ )0L,IOCTYP,2 )3C)3U)3E 65752 BWZ )0L,IOCTYP,2 )3D)3E 65752 * INITIALIZE EXITS )0/)0A 65752 )8M EQU *&1 )3E)4' 65752 )0N EQU *&1 )3E)3Z 65752 SBR IOCXR2,IOCSRE )3E)3H 65752 SBR IOCXT1&3 )3E)2D 65752 SBR IOCXT2&3 )3E)2C 65752 SBR IOCXT3&3 )3E)2B 65752 SBR IOCXT4&3 )3E)2A 65752 SBR IOCXT5&3 )3E)2? 65752 SBR IOCXT6&3 )3E)1I 65752 SBR IOCXT7&3 )3E)1H 65752 SBR IOCXT8&3 )3E)1G 65752 * PROCESS DTF EXIT ADDRESSES )0/)0A 65752 SBR IOCXR2,IOCXT8&3 )3E)3H)1G 65752 SBR IOCXR2,IOCXT8 )3E)3H)1X 65752 )0P BCE )1J,0&X3,% )3E)3H 65752 BCE )0R,0&X3,* )3E)3H 65752 MCW 0&X3,0&X2 )3E)3H 65752 SAR IOCXR3 )3E)3H 65752 )0Q C 0&X2 )3E)3H 65752 SAR IOCXR2 )3E)3H 65752 B )0P )3E)3H 65752 )0R MN 0&X3 )3E)3H 65752 SAR IOCXR3 )3E)3H 65752 B )0Q )3E)3H 65752 * PICK UP LABEL INFORMATION-IF PRESENT )0/)0A 65752 )1J EQU *&1 )3E)3H 65752 MN 0&X3 )3E)3A 65752 MN 0&X3 )3E)3? 65752 MN 0&X3 )3E)2I 65752 SAR IOCSV3 )3E)3A 65752 SAR IOCSV3 )3E)3? 65752 SAR IOCSV3 )3E)2I 65752 SBR IOCXR3 )3E)3A 65752 SBR IOCXR3 )3E)3? 65752 SBR IOCXR3 )3E)2I 65752 BCE )1L,IOCPSV-4,2 )3E)2I 65752 BCE )1P,IOCPSV-4, )3E)2I)3')3/ 65752 * PICK UP IDENTIFICATION FIELD )0/)0A 65752 MCW 0&X3,IOCIDT )3E)3A 65752 MCW 0&X3,IOCIDT )3E)2I 65752 SAR IOCXR3 )3E)3A 65752 SAR IOCXR3 )3E)2I 65752 CW IOCFSW#1 )3E)3A)3Z 65752 CW IOCFSW#1 )3E)2I)3Z 65752 MCW 0&X3,IOCSER )3E)3A 65752 MCW 0&X3,IOCSER )3E)2I 65752 SAR IOCXR3 )3E)3A 65752 SAR IOCXR3 )3E)2I 65752 BCE )1K,IOCSER, )3E)3A)3Z 65752 BCE )1K,IOCSER, )3E)2I)3Z 65752 * PICK UP FILE SERIAL NUMBER )0/)0A 65752 SW IOCFSW )3E)3A)3Z 65752 SW IOCFSW )3E)2I)3Z 65752 * PICK UP REEL SEQUENCE,RETENTION CYCLE,CREATION DATE )0/)0A 65752 )1K EQU *&1 )3E)3A)3Z 65752 )1K EQU *&1 )3E)2I)3Z 65752 MCW 0&X3,IOCSEQ )3E)3A 65752 MCW 0&X3,IOCSEQ )3E)2I 65752 MCW )3E)3A 65752 MCW )3E)2I 65752 MCW )3E)3A 65752 MCW )3E)2I 65752 SAR IOCXR3 )3E)3A 65752 SAR IOCXR3 )3E)2I 65752 )1L EQU *&1 )3E)2I 65752 * PICK UP RECORD COUNT AND HASH TOTAL )0/)0A 65752 MN 0&X3 )3E)0D)0V 65752 MN 0&X3 )3E)0E 65752 SAR IOCXR3 )3E)0D)0V 65752 SAR IOCXR3 )3E)0E 65752 MCW @ @,IOCHSH )3E)0D)0V 65752 MCW @ @,IOCHSH )3E)0E 65752 MCW IOCHSH )3E)0D)0V 65752 MCW IOCHSH )3E)0E 65752 MCW IOCHSH,IOCRCT )3E)0D)0V 65752 MCW IOCHSH,IOCRCT )3E)0E 65752 SW IOCRSW,IOCHSW )3E)0D)0E 65752 SW IOCRSW )3E)0E)0U 65752 SW IOCHSW )3E)0D)0V 65752 BCE )1M,1&X3,* )3E)0E 65752 CW IOCRSW#1 )3E)0E 65752 MCW 1&X3,IOCRCT )3E)0E 65752 SAR IOCXR3 )3E)0E)0D 65752 )1M EQU *&1 )3E)0E 65752 BCE )1N,0&X3,* )3E)0D 65752 CW IOCHSW#1 )3E)0D 65752 MCW 0&X3,IOCHSH )3E)0D 65752 )1N EQU *&1 )3E)0D 65752 * DETERMINE IF EXIT 3 IS USED )0/)0A 65752 SW IOCSW3#1 )3E)2B 65752 C IOCXT3&3,&IOCSRE )3E)2B 65752 BE *&5 )3E)2B 65752 CW IOCSW3 )3E)2B 65752 * BEGINNING OF MAIN LINE )0/)0A 65752 )0L EQU *&1 )3B)3U)3T)3E 65752 )0L EQU *&1 )3C)3U)3E 65752 )0L EQU *&1 )3D)3E 65752 )1P EQU *&1 )3E)2I 65752 BW )2N,IOCOPS )3E 65752 BW IOCLVE,IOCOPS )3D)3V 65752 BCE )4P,IOCTYP,W )3E)3Z 65752 MCW IOCEOF,)2K&3 )3E)4')3U 65752 MCW IOCEOF,)2K&3 )3D 65752 MCW @B@,)2K )3E)4')3U 65752 MCW @B@,)2K )3D 65752 MCW IOCXSV,IOCXR3 65752 MCW )3E)3H 65752 BCE )2K,IOCTYP,1 )3E)4')3D 65752 * PROCESS TAPE INPUT - END OF REEL )3E)4' 65752 BCE )2K,IOCPSV-4, )3E)2I)4' 65752 BW )2L,IOCFES )3E)4')3A 65752 BW )2L,IOCFES )3E)4')2I 65752 BW )2L,IOCFES )3E)4')3? 65752 MCW @B@,)2J )3E)1I)3A 65752 MCW @B@,)2J )3E)1I)2I 65752 BCE )1R,IOCPSV-4,2 )3E)2I)4')1I 6575K BCE )2K,IOCPSV-4,2 )3E)2I)4')1Z 6575K * READ INPUT TRAILER )0/)0A 65752 MCW @R@,IOCTDF&13 )3E)4')3A 65752 MCW @R@,IOCTDF&13 )3E)4')2I 65752 MCW @L@,IOCTDF&6 )3E)4')3A 65752 MCW @L@,IOCTDF&6 )3E)4')2I 65752 B IOCRWR )3E)4')3A 65752 B IOCRWR )3E)4')2I 65752 BCE )1R,IOCPSV-4,A )3E)4')3A 65752 BCE )1R,IOCPSV-4,A )3E)4')2I 65752 MCW @N@,)2J )3E)1I)3A 65752 MCW @N@,)2J )3E)1I)2I 65752 * CHECK BLOCK COUNT )0/)0A 65752 C IOCSLB&9,IOCBLK-1 )3E)4')2H)2X 65752 C IOCSLB&9,IOCBLK-1 )3E)4')2G 65752 B )3L )3E)4')2H)2X 65752 B )3L )3E)4')2G 65752 BW )1Q,IOCRSW )3E)4')2H)0E 65752 BW )1Q,IOCRSW )3E)4')2G)0E 65752 * CHECK RECORD COUNT )0/)0A 65752 C IOCSLB&19,IOCRCT )3E)4')2H)0E 65752 C IOCSLB&19,IOCRCT )3E)4')2G)0E 65752 B )3L )3E)4')2H)0E 65752 B )3L )3E)4')2G)0E 65752 )1Q EQU *&1 )3E)4')2H)0E 65752 )1Q EQU *&1 )3E)4')2G)0E 65752 BW )1R,IOCHSW )3E)4')2H)0D 65752 BW )1R,IOCHSW )3E)4')2G)0D 65752 * CHECK HASH TOTAL )0/)0A 65752 C IOCSLB&29,IOCHSH )3E)4')2H)0D 65752 C IOCSLB&29,IOCHSH )3E)4')2G)0D 65752 B )3L )3E)4')2H)0D 65752 B )3L )3E)4')2G)0D 65752 )1R EQU *&1 )3E)4')3A 65752 )1R EQU *&1 )3E)4')2I 65752 * EXIT6 )0/)0A 65752 C IOCXT6&3,&IOCSRE )3E)1I)2I 6575K C IOCXT6&3,&IOCSRE )3E)1I)3? 6575K BU *&9 )3E)1I)2I 6575K BU *&5 )3E)1I)3? 6575K BCE )2K,IOCPSV-4,2 )3E)1I)2I 6575K B )2K )3E)1I)3? 6575K SBR IOCSRE&3,*&5 )3E)1I 65752 B IOCXT6 )3E)1I 65752 )2J EQU *&1 )3E)1I)3A 65752 )2J EQU *&1 )3E)1I)2I 65752 B )2L )3E)1I 65752 BCE )2L,IOCSLB&3,R )3E)4')3A 65752 BCE )2L,IOCSLB&3,R )3E)4')2I 65752 )2K B 0 )3E)4')3U 65752 )2K B 0 )3D 65752 )2L EQU *&1 )3E 65752 * END OF REEL REWIND )0/)0A 65752 BCE )2M,IOCRWD, )3E)1B 65752 BCE )2M,IOCRWD, )3E)1C 65752 BCE )8R,IOCRWD,B )3E)1B 65752 MN IOCTAP,*&4 )3E 65752 RWD 0 )3E 65752 B )2M )3E)1B 65752 )8R MN IOCTAP,*&4 )3E)1B 65752 RWU 0 )3E)1B 65752 )2M EQU *&1 )3E)1B 65752 )2M EQU *&1 )3E)1C 65752 BW IOCLVE,IOCLOS )3E 65752 * BUMP REEL SEQUENCE NUMBER )0/)0A 65752 A &1,IOCSEQ )3E)2I 65752 A &1,IOCSEQ )3E)3A 65752 * START NEW REEL - ALTERNATE TAPES )0/)0A 65752 BCE )3N,IOCALT, )3E)2E 65752 B )3N )3E)2V 65752 MN IOCTAP,IOCSV1#1 )3E)2E 65752 MN IOCALT,IOCTAP )3E)2E 65752 MN IOCSV1,IOCALT )3E)2E 65752 )2N EQU *&1 )3E 65752 BWZ IOCLVE,IOCTYP,2 )3B)3E)3T)3U 65752 BWZ IOCLVE,IOCTYP,2 )3C)3E)3U 65752 BWZ IOCLVE,IOCTYP,2 )3D)3E 65752 * REWIND OPTION - NEW REEL )0/)0A 65752 * PROCESS NEW TAPE REEL )3E 65752 BCE )2P,IOCRWD, )3E)1B 65752 BCE )2P,IOCRWD, )3E)1C 65752 MN IOCTAP,*&4 )3E 65752 RWD 0 )3E 65752 )2P EQU *&1 )3E)1B 65752 )2P EQU *&1 )3E)1C 65752 )2O EQU *&1 )3E)3A)3Z 65752 )2O EQU *&1 )3E)2I)3Z 65752 * RESET BLOCK,RECORD AND HASH TOTALS )0/)0A 65752 S IOCBLK )3E 65752 MCW @ @,IOCHSH )3E)0D)0V 65752 MCW @ @,IOCHSH )3E)0E 65752 MCW IOCHSH )3E)0D)0V 65752 MCW IOCHSH )3E)0E 65752 MCW IOCHSH,IOCRCT )3E)0D)0V 65752 MCW IOCHSH,IOCRCT )3E)0E 65752 * GET LABEL - NEW REEL )0/)0A 65752 BCE IOCLVE,IOCPSV-4, )3E)2I 65752 B IOCLVE )3E)2Z)3')3/ 65752 BCE )2Q,IOCPSV-4,2 )3E)2I 65752 MCW @R@,IOCTDF&13 )3E)3A)4' 65752 MCW @R@,IOCTDF&13 )3E)2I)4' 65752 MCW @L@,IOCTDF&6 )3E)3A)4' 65752 MCW @L@,IOCTDF&6 )3E)2I)4' 65752 B IOCRWR )3E)3A)4' 65752 B IOCRWR )3E)2I)4' 65752 )0O MCW &9,)3O#1 )3E)3A)4? 65752 )0O MCW &9,)3O#1 )3E)2I)4? 65752 )4O LCA @"@,IOCSLB&80 )3E)3A)4? 65752 )4O LCA @"@,IOCSLB&80 )3E)2I)4? 65752 MN IOCTAP,*&4 )3E)3A)4? 65752 MN IOCTAP,*&4 )3E)2I)4? 65752 RTW 0,IOCSLB )3E)3A)4? 65752 RTW 0,IOCSLB )3E)2I)4? 65752 BER )5Q )3E)3A)4? 65752 BER )5Q )3E)2I)4? 65752 )2Q EQU *&1 )3E)2I 65752 BCE )3P,IOCTYP,W )3E)3Z)4')3A 65752 BCE )3P,IOCTYP,W )3E)3Z)4')2I 65752 BCE )3P,IOCTYP,W )3E)3Z)4')3? 65752 * PROCESS TAPE INPUT - NEW REEL )3E)4')2I 65752 * PROCESS TAPE INPUT - NEW REEL )3E)4')3A 65752 * PROCESS TAPE INPUT - NEW REEL )3E)4')3? 65752 BCE )2R,IOCPSV-4,2 )3E)2I)4' 65752 BCE )2R,IOCPSV-4,A )3E)4')2G)2Y 65752 BCE )2R,IOCPSV-4,A )3E)4')2H 65752 * CHECK IDENT - STANDARD INPUT HEADER )0/)0A 65752 C IOCSLB&29,IOCIDT )3E)4')2G)2Y 65752 C IOCSLB&29,IOCIDT )3E)4')2H 65752 B )3J )3E)4')2G)2Y 65752 B )3J )3E)4')2H 65752 BCE )2R,IOCPSV-4,J )3E)4')2H 65752 * CHECK BALANCE OF INPUT HEADER )0/)0A 65752 C IOCSLB&34,IOCCRD )3E)4')2H 65752 B )3J )3E)4')2H 65752 C IOCSLB&38,IOCRCY )3E)4')2H 65752 B )3J )3E)4')2H 65752 C IOCSLB&18,IOCSEQ )3E)4')2H 65752 B )3J )3E)4')2H 65752 C IOCSLB&14,IOCSER )3E)4')2H 65752 B )3J )3E)4')2H 65752 )2R EQU *&1 )3E)4')2I 65752 )2R EQU *&1 )3E)4')3A)2G)2Y 65752 )2R EQU *&1 )3E)4')3A)2H 65752 * EXIT 7 )0/)0A 65752 SBR IOCSRE&3,*&5 )3E)4')1H 65752 B IOCXT7 )3E)4')1H 65752 * BYPASS TAPE MARK AFTER HEADER )0/)0A 65752 MN IOCTAP,*&4 )3E)4')2I)2F 65752 MN IOCTAP,*&4 )3E)4')3?)2F 65752 MN IOCTAP,*&4 )3E)4')3A)2F 65752 RT 0,IOCBYP )3E)4')2I)2F 65752 RT 0,IOCBYP )3E)4')3?)2F 65752 RT 0,IOCBYP )3E)4')3A)2F 65752 BEF IOCLVE )3E)4')2I)2F 65752 BEF IOCLVE )3E)4')3?)2F 65752 BEF IOCLVE )3E)4')3A)2F 65752 MN IOCTAP,*&4 )3E)4')2I)2F 65752 MN IOCTAP,*&4 )3E)4')3?)2F 65752 MN IOCTAP,*&4 )3E)4')3A)2F 65752 BSP 0 )3E)4')2I)2F 65752 BSP 0 )3E)4')3?)2F 65752 BSP 0 )3E)4')3A)2F 65752 B IOCLVE )3E)4')2I 65752 B IOCLVE )3E)4')3? 65752 B IOCLVE )3E)4')3A 65752 * TEST INPUT HEADER COMPARE )0/)0A 65752 )3J SBR )3K&3 )3E)4')2G)2Y 65752 )3J SBR )3K&3 )3E)4')2H 65752 BE )3K )3E)4')2G)2Y 65752 BE )3K )3E)4')2H 65752 H )2R )3E)4')2G)2Y 65752 H )2R )3E)4')2H 65752 B )2N )3E)4')2G)2Y 65752 B )2N )3E)4')2H 65752 )3K B 0 )3E)4')2G)2Y 65752 )3K B 0 )3E)4')2H 65752 * TEST INPUT TRAILER COMPARE )0/)0A 65752 )3L SBR )3M&3 )3E)4')2G)2Y 65752 )3L SBR )3M&3 )3E)4')2H 65752 BE )3M )3E)4')2G)2Y 65752 BE )3M )3E)4')2H 65752 H )1R )3E)4')2G)2Y 65752 H )1R )3E)4')2H 65752 NOP 3800 )3E)4')2H 65752 NOP 3800 )3E)4')2G)2Y 65752 H )3E)4')2H 65752 H )3E)4')2G)2Y 65752 B *-4 )3E)4')2H 65752 B *-4 )3E)4')2G)2Y 65752 )3M B 0 )3E)4')2G)2Y 65752 )3M B 0 )3E)4')2H 65752 * START NEW REEL OUTPUT FILE )0/)0A 65752 )3P EQU *&1 )3E)3Z)4')3A 65752 )3P EQU *&1 )3E)3Z)4')2I 65752 )3P EQU *&1 )3E)3Z)4')3? 65752 * PROCESS TAPE OUTPUT - NEW REEL )3E)3Z)2I 65752 * PROCESS TAPE OUTPUT - NEW REEL )3E)3Z)3A 65752 * PROCESS TAPE OUTPUT - NEW REEL )3E)3Z)3? 65752 BCE )4L,IOCPSV-4,2 )3E)3Z)2I 65752 * BACKSPACE OUTPUT REEL )0/)0A 65752 BCE *&13,IOCPSV-9, )3E)3Z)3A 6575K BCE *&13,IOCPSV-9, )3E)3Z)2I 6575K MN IOCTAP,*&4 )3E)3Z)3A 6575K MN IOCTAP,*&4 )3E)3Z)2I 6575K RWD 0 )3E)3Z)3A 6575K RWD 0 )3E)3Z)2I 6575K MN IOCTAP,*&4 )3E)3Z)3A 65752 MN IOCTAP,*&4 )3E)3Z)2I 65752 BSP 0 )3E)3Z)3A 65752 BSP 0 )3E)3Z)2I 65752 BW )3Q,IOCSW3 )3E)3Z)2B 65752 * EXIT 3 )0/)0A 65752 SBR IOCSRE&3,)4J )3E)3Z)2B 65752 B IOCXT3 )3E)3Z)2B 65752 )3Q EQU *&1 )3E)3Z)2B 65752 BCE )4J,IOCSLB&1,B )3E)3Z)3A 65752 BCE )4J,IOCSLB&1,B )3E)3Z)2I 65752 * CHECK RETENTION CYCLE )0/)0A 65752 S IOCSV6#6 )3E)3Z)3A 65752 S IOCSV6#6 )3E)3Z)2I 65752 MN IOCSLB&34,IOCSV6-1 )3E)3Z)3A 65752 MN IOCSLB&34,IOCSV6-1 )3E)3Z)2I 65752 MN )3E)3Z)3A 65752 MN )3E)3Z)2I 65752 MN )3E)3Z)3A 65752 MN )3E)3Z)2I 65752 SW IOCSLB&36 )3E)3Z)3A 65752 SW IOCSLB&36 )3E)3Z)2I 65752 A IOCSLB&38,IOCSV6-1 )3E)3Z)3A 65752 A IOCSLB&38,IOCSV6-1 )3E)3Z)2I 65752 CW IOCSLB&36 )3E)3Z)3A 65752 CW IOCSLB&36 )3E)3Z)2I 65752 )3R C IOCSV6-1,@0365@ )3E)3Z)3A 65752 )3R C IOCSV6-1,@0365@ )3E)3Z)2I 65752 BL )4M )3E)3Z)3A 65752 BL )4M )3E)3Z)2I 65752 A IOCSLB&31,IOCSV6-4 )3E)3Z)3A 65752 A IOCSLB&31,IOCSV6-4 )3E)3Z)2I 65752 * COMPARE FOR ACCEPTANCE OF REEL )0/)0A 65752 C IOCSV6-1,IOCTDY )3E)3Z)3A 65752 C IOCSV6-1,IOCTDY )3E)3Z)2I 65752 BE )4J )3E)3Z)3A 65752 BE )4J )3E)3Z)2I 65752 BH )4J )3E)3Z)2I 65752 BH )4J )3E)3Z)3A 65752 H )4J )3E)3Z)3A 65752 H )4J )3E)3Z)2I 65752 B )2O )3E)3Z)3A 65752 B )2O )3E)3Z)2I 65752 * MODULO 365 ARITHMETIC )0/)0A 65752 )4M SW IOCSLB&30 )3E)3Z)3A 65752 )4M SW IOCSLB&30 )3E)3Z)2I 65752 S @3650@,IOCSV6 )3E)3Z)3A 65752 S @3650@,IOCSV6 )3E)3Z)2I 65752 A &1,IOCSLB&31 )3E)3Z)3A 65752 A &1,IOCSLB&31 )3E)3Z)2I 65752 CW IOCSLB&30 )3E)3Z)3A 65752 CW IOCSLB&30 )3E)3Z)2I 65752 B )3R )3E)3Z)3A 65752 B )3R )3E)3Z)2I 65752 * CREATE NEW OUTPUT HEADER )0/)0A 65752 )4J B )8P )3E)3Z)3A 65752 )4J B )8P )3E)3Z)2I 65752 MCW @ @,IOCSLB&39 )3E)3Z)3A 65752 MCW @ @,IOCSLB&39 )3E)3Z)2I 65752 MCW IOCRCY )3E)3Z)3A 65752 MCW IOCRCY )3E)3Z)2I 65752 MCW @-@ )3E)3Z)3A 65752 MCW @-@ )3E)3Z)2I 65752 MCW IOCTDY )3E)3Z)3A 65752 MCW IOCTDY )3E)3Z)2I 65752 MCW IOCIDT )3E)3Z)3A 65752 MCW IOCIDT )3E)3Z)2I 65752 MCW @ @ )3E)3Z)3A 65752 MCW @ @ )3E)3Z)2I 65752 MCW IOCSEQ )3E)3Z)3A 65752 MCW IOCSEQ )3E)3Z)2I 65752 MCW @-@ )3E)3Z)3A 65752 MCW @-@ )3E)3Z)2I 65752 BW )4N,IOCOPS )3E)3Z)3A 65752 BW )4N,IOCOPS )3E)3Z)2I 65752 )4K MCW IOCSER,IOCSLB&14 )3E)3Z)3A 65752 )4K MCW IOCSER,IOCSLB&14 )3E)3Z)2I 65752 MCW @1HDR @,IOCSLB&4 )3E)3Z)3A 65752 MCW @1HDR @,IOCSLB&4 )3E)3Z)2I 65752 * EXIT 4 )0/)0A 65752 SBR IOCSRE&3,*&5 )3E)3Z)2A 65752 B IOCXT4 )3E)3Z)2A 65752 * WRITE OUTPUT HEADER )0/)0A 65752 MCW @W@,IOCTDF&13 )3E)3Z)3A 65752 MCW @W@,IOCTDF&13 )3E)3Z)2I 65752 MCW @M@,IOCTDF&6 )3E)3Z)2I 65752 MCW @M@,IOCTDF&6 )3E)3Z)3A 65752 B IOCRWR )3E)3Z)3A 65752 B IOCRWR )3E)3Z)2I 65752 )4L EQU *&1 )3E)3Z)2I 65752 * EXIT 5 )0/)0A 65752 SBR IOCSRE&3,*&5 )3E)3Z)2? 65752 B IOCXT5 )3E)3Z)2? 65752 B IOCLVE )3E)3Z)2I 65752 B IOCLVE )3E)3Z)3? 65752 B IOCLVE )3E)3Z)3A 65752 * PICK UP FILE SERIAL NUMBER )0/)0A 65752 )4N BW )4K,IOCFSW )3E)3Z)3A 65752 )4N BW )4K,IOCFSW )3E)3Z)2I 65752 MCW IOCSLB&9,IOCSER )3E)3Z)3A 65752 MCW IOCSLB&9,IOCSER )3E)3Z)2I 65752 B )4K )3E)3Z)3A 65752 B )4K )3E)3Z)2I 65752 * PROCESS TAPE OUTPUT - END OF REEL )3E)3Z 65752 )4P EQU *&1 )3E)3Z 65752 BW )4Q,IOCLOS )3E)3Z)1G 65752 BW )4Q,IOCFES )3E)3Z)1G 65752 * EXIT 8 )0/)0A 65752 SBR IOCSRE&3,)5N )3E)3Z)1G 65752 B IOCXT8 )3E)3Z)1G 65752 * WRITE TAPE MARK )0/)0A 65752 )4Q EQU *&1 )3E)3Z)1G 65752 MN IOCTAP,*&4 )3E)3Z 65752 WTM 0 )3E)3Z 65752 BCE )2L,IOCPSV-4, )3E)3Z)2I 65752 B )2L )3E)3Z)2Z)3')3/ 65752 BCE )4R,IOCPSV-4,2 )3E)3Z)2I 65752 * SET UP OUTPUT TRAILER )0/)0A 65752 B )8P )3E)3Z)3A 65752 B )8P )3E)3Z)2I 65752 MCW IOCHSH,IOCSLB&29 )3E)3Z)2I)0D)0V 65752 MCW IOCHSH,IOCSLB&29 )3E)3Z)2I)0E 65752 MCW IOCHSH,IOCSLB&29 )3E)3Z)3A)0D)0V 65752 MCW IOCHSH,IOCSLB&29 )3E)3Z)3A)0E 65752 MCW IOCRCT )3E)3Z)2I)0D)0V 65752 MCW IOCRCT )3E)3Z)2I)0E 65752 MCW IOCRCT )3E)3Z)3A)0E 65752 MCW IOCRCT )3E)3Z)3A)0D)0V 65752 MCW )8Q#10,IOCSLB&29 )3E)3Z)2I)0U)0V 65752 MCW )8Q#10,IOCSLB&29 )3E)3Z)3A)0U)0V 65752 MCW )8Q )3E)3Z)2I)0U)0V 65752 MCW )8Q )3E)3Z)3A)0U)0V 65752 MCW IOCBLK-1 )3E)3Z)2I 65752 MCW IOCBLK-1 )3E)3Z)3A 65752 MCW @1EOR @ )3E)3Z)2I 65752 MCW @1EOR @ )3E)3Z)3A 65752 BW *&5,IOCLOS )3E)3Z)2I 65752 BW *&5,IOCLOS )3E)3Z)3A 65752 B *&8 )3E)3Z)2I 65752 B *&8 )3E)3Z)3A 65752 MCW @F@,IOCSLB&3 )3E)3Z)2I 65752 MCW @F@,IOCSLB&3 )3E)3Z)3A 65752 * EXIT 1 )0/)0A 65752 SBR IOCSRE&3,*&5 )3E)3Z)2D 65752 B IOCXT1 )3E)3Z)2D 65752 * WRITE OUTPUT TRAILER )0/)0A 65752 MCW @W@,IOCTDF&13 )3E)3Z)2I 65752 MCW @W@,IOCTDF&13 )3E)3Z)3A 65752 MCW @M@,IOCTDF&6 )3E)3Z)3A 65752 MCW @M@,IOCTDF&6 )3E)3Z)2I 65752 B IOCRWR )3E)3Z)2I 65752 B IOCRWR )3E)3Z)3A 65752 )4R EQU *&1 )3E)3Z)2I 65752 * EXIT 2 )0/)0A 65752 SBR IOCSRE&3,*&5 )3E)3Z)2C 65752 B IOCXT2 )3E)3Z)2C 65752 * WRITE SECOND TAPE MARK )0/)0A 65752 MN IOCTAP,*&4 )3E)3Z)2I 65752 MN IOCTAP,*&4 )3E)3Z)3? 65752 MN IOCTAP,*&4 )3E)3Z)3A 65752 WTM 0 )3E)3Z)2I 65752 WTM 0 )3E)3Z)3? 65752 WTM 0 )3E)3Z)3A 65752 B )2L )3E)3Z)2I 65752 B )2L )3E)3Z)3? 65752 B )2L )3E)3Z)3A 65752 )5Q MN IOCTAP,*&4 )3E)3A)4? 65752 )5Q MN IOCTAP,*&4 )3E)2I)4? 65752 BSP 0 )3E)3A)4? 65752 BSP 0 )3E)2I)4? 65752 S &1,)3O )3E)3A)4? 65752 S &1,)3O )3E)2I)4? 65752 BWZ )4O,)3O,B )3E)3A)4? 65752 BWZ )4O,)3O,B )3E)2I)4? 65752 NOP 3777 )3E)3A)4? 65752 NOP 3777 )3E)2I)4? 65752 H )3E)3A)4? 65752 H )3E)2I)4? 65752 B )0O )3E)3A)4? 65752 B )0O )3E)2I)4? 65752 )8P SBR )8O&3 )3E)3Z)3A 65752 )8P SBR )8O&3 )3E)3Z)2I 65752 SBR )8O-1,0&X3 )3E)3Z)3A 65752 SBR )8O-1,0&X3 )3E)3Z)2I 65752 SBR IOCXR3,IOCSLB&79 )3E)3Z)3A 65752 SBR IOCXR3,IOCSLB&79 )3E)3Z)2I 65752 MLC IOCSLB&9,IOCTSS#5 )3E)3Z)3A 6575K MLC IOCSLB&9,IOCTSS#5 )3E)3Z)2I 6575K )8N CW 0&X3 )3E)3Z)2I 65752 )8N CW 0&X3 )3E)3Z)3A 65752 MLC @ @,0&X3 )3E)3Z)3A 6575K MLC @ @,0&X3 )3E)3Z)2I 6575K SBR IOCXR3 )3E)3Z)3A 65752 SBR IOCXR3 )3E)3Z)2I 65752 C IOCXR3,&IOCSLB-1 )3E)3Z)3A 65752 C IOCXR3,&IOCSLB-1 )3E)3Z)2I 65752 BU )8N )3E)3Z)3A 65752 BU )8N )3E)3Z)2I 65752 MLC IOCTSS,IOCSLB&9 )3E)3Z)3A 6575K MLC IOCTSS,IOCSLB&9 )3E)3Z)2I 6575K SBR IOCXR3,0 )3E)3Z)3A 65752 SBR IOCXR3,0 )3E)3Z)2I 65752 )8O B 0 )3E)3Z)3A 65752 )8O B 0 )3E)3Z)2I 65752 * EXIT FOR OPEN, CLOSE, END OF REEL & FEORL CONDITIONS 65752 IOCLVE EQU *&1 )3E)3U 65752 IOCLVE EQU *&1 )3D 65752 BW )5L,IOCLOS )3E)2I 65752 BW )5L,IOCLOS )3E)3A 65752 BWZ )5O,IOCTYP,2 )3B)3T)3U)3E 65752 BWZ )5O,IOCTYP,2 )3C)3U)3E 65752 BWZ )5O,IOCTYP,2 )3D)3E 65752 * RESTORE DTF TABLE ENTRIES )0/)0A 65752 MCW IOCSV3,IOCXR3 )3E)2I 65752 MCW IOCSV3,IOCXR3 )3E)3A 65752 MCW IOCSV3,IOCXR3 )3E)3? 6575K BCE )5J,IOCPSV-4,2 )3E)2I 65752 BCE )5L,IOCPSV-4, )3E)2I 65752 MCW IOCIDT,0&X3 )3E)3A 65752 MCW IOCIDT,0&X3 )3E)2I 65752 CHAIN4 )3E)3A 65752 CHAIN4 )3E)2I 65752 SBR IOCXR3 )3E)3A 65752 SBR IOCXR3 )3E)2I 65752 )5J EQU *&1 )3E)2I 65752 MN 0&X3 )3E)0E)0U 65752 MN 0&X3 )3E)0D 65752 SAR IOCXR3 )3E)0E)0U 65752 SAR IOCXR3 )3E)0D 65752 BCE )5K,1&X3,* )3E)0E 65752 MCW IOCRCT,1&X3 )3E)0E 65752 SBR IOCXR3 )3E)0E)0D 65752 )5K EQU *&1 )3E)0E 65752 BCE *&8,0&X3,* )3E)0D 65752 MCW IOCHSH,0&X3 )3E)0D 65752 * RESTORE DTF FIXED TABLE ENTRIES )0/)0A 65752 )5L EQU *&1 )3E)2I 65752 )5L EQU *&1 )3E)3A 65752 )5O EQU *&1 )3B)3T)3U)3E 65752 )5O EQU *&1 )3C)3U)3E 65752 )5O EQU *&1 )3D)3E 65752 MCW IOCSVA,IOCXR3 65752 MCW IOCPSV,16&X3 65752 CHAIN8 65752 BW IOCACT,IOCRRR )3E)0A 6575K BW IOCACT,IOCOPS 65752 BW IOCDAC,IOCLOS 65752 * RESTORE INDEX REGISTERS )0/)0A 65752 )5M MCW IOCXSV,IOCXR3 65752 MCW )3E)3H 65752 CW IOCOPS,IOCLOS )0A)3E 65752 CW IOCFES,IOCRRR )0A)3E 65752 IOCQUT B 0 65752 * ACTIVATE FILE )0/)0A 65752 IOCACT MCW @N@,17&X3 65752 B )5M 65752 * DEACTIVATE FILE )0/)0A 65752 IOCDAC MCW @B@,17&X3 65752 CW IOCLOS 65752 B )5M 65752 * ALLOW USER TO MOUNT NEW TAPE )0/)0A 65752 )3N NOP 3027 )3E 65752 H )3E 65752 B )2N )3E 65752 INCLD66666 65752 * ILLEGAL RETURN FROM EXIT 8 )0/)0A 65752 )5N NOP 3555 )3E)3Z)1G 65752 H )3E)3Z)1G 65752 B )5N )3E)3Z)1G 65752 IOCUXT B 0 65752 IOCSRE B 0 )3E)3H 65752 IOCXT1 B IOCSRE )3E)2D 65752 H )3E)2U)3H 65752 IOCXT2 B IOCSRE )3E)2C 65752 H )3E)2T)3H 65752 IOCXT3 B IOCSRE )3E)2B 65752 H )3E)2S)3H 65752 IOCXT4 B IOCSRE )3E)2A 65752 H )3E)2/)3H 65752 IOCXT5 B IOCSRE )3E)2? 65752 H )3E)2')3H 65752 IOCXT6 B IOCSRE )3E)1I 65752 H )3E)1Z)3H 65752 IOCXT7 B IOCSRE )3E)1H 65752 H )3E)1Y)3H 65752 IOCXT8 B IOCSRE )3E)1G 65752 IOCXT8 H )3E)1X)3H 65752 * SETUP FOR OVERLAP EOF CONDITION )0A)3E 65752 IOCTBL MCW IOCXR3,IOCXSV )0A)3E 65752 MCW )0A)3E 65752 MCW IOCQUT&3,IOCXR3 )0A)3E 65752 MCW 3&X3,IOCXR3 )0A)3E 65752 MCW IOCTAD,IOCXR2 )0A)3E 65752 BCE IOCRST,14&X3, )0A)3E 65752 BW IOCCTB,IOCLOS )0A)3E 65752 IOCTBS BCE IOCTBU,0&X2,N )0A)3E 65752 BCE IOCTBU,0&X2, )0A)3E 65752 MN 0&X2 )0A)3E 65752 SAR IOCXR2 )0A)3E 65752 C 0&X2 )0A)3E 65752 SAR IOCXR2 )0A)3E 65752 C 0&X2 )0A)3E 65752 SAR IOCXR2 )0A)3E 65752 C 0&X2 )0A)3E 65752 SAR IOCXR2 )0A)3E 65752 B IOCTBS )0A)3E 65752 IOCTBU MCW 14&X3,0&X2 )0A)3E 65752 SBR IOCXR2 )0A)3E 65752 SBR 0&X2,29&X3 )0A)3E 65752 SAR IOCXR2 )0A)3E 65752 BCE *&13,15&X3,R )0A)3E 65752 MCW @K29@,0&X2 )0A)3E 65752 MCW )0A)3E 65752 B IOCRST )3E)0A MCW @K49@,0&X2 )0A)3E 65752 MCW )0A)3E 65752 MLNS 4&X2,*&14 )3E)0A SBR IOCXR3,IOCNTL )3E)0A MLC @N@,0&X3 )3E)0A IOCRST MCW IOCXSV,IOCXR3 )0A)3E 65752 MCW )0A)3E 65752 B IOCENT )0A)3E 65752 IOCTAD DCW IOCTAB )0A)3E 65752 DCW @*@ )0A)3E 65752 DA 1X42 )0A)3E 65752 1,1 )0A)3E 65752 2,3 )0A)3E 65752 4,6 )0A)3E 65752 7,7 )0A)3E 65752 8,8 )0A)3E 65752 9,10 )0A)3E 65752 11,13 )0A)3E 65752 14,14 )0A)3E 65752 15,15 )0A)3E 65752 16,17 )0A)3E 65752 18,20 )0A)3E 65752 21,21 )0A)3E 65752 22,22 )0A)3E 65752 23,24 )0A)3E 65752 25,27 )0A)3E 65752 28,28 )0A)3E 65752 29,29 )0A)3E 65752 30,31 )0A)3E 65752 32,34 )0A)3E 65752 35,35 )0A)3E 65752 36,36 )0A)3E 65752 37,38 )0A)3E 65752 39,41 )0A)3E 65752 IOCTAB 42,42 )0A)3E 65752 IOCNTL EQU * )3E)0A DA 6X1 )3E)0A 1,1 )3E)0A IOCCTB C 14&X3,0&X2 )0A)3E 65752 BE IOCTBN )0A)3E 65752 MN 0&X2 )0A)3E 65752 SAR IOCXR2 )0A)3E 65752 C 0&X2 )0A)3E 65752 SAR IOCXR2 )0A)3E 65752 C 0&X2 )0A)3E 65752 SAR IOCXR2 )0A)3E 65752 C 0&X2 )0A)3E 65752 SAR IOCXR2 )0A)3E 65752 B IOCCTB )0A)3E 65752 IOCTBN MCW @N@,0&X2 )0A)3E 65752 B IOCRST )0A)3E 65752 * LINK TO READ/WRITE ROUTINE )0/)0A 65752 IOCRWR SBR )5P&3 )3E)3A 65752 IOCRWR SBR )5P&3 )3E)2I 65752 MCW IOCKOP,IOCTDF )3E)3A 6575K MCW IOCKOP,IOCTDF )3E)2I 6575K LCA @"@,IOCSLB&80 )3E)3A 65752 LCA @"@,IOCSLB&80 )3E)2I 65752 MN IOCTAP,IOCTDF&9 )3E)3A 65752 MN IOCTAP,IOCTDF&9 )3E)2I 65752 MCW IOCTDF&13,IOCTRW&7 )0A)3E)3A 65752 MCW IOCTDF&13,IOCTRW&7 )0A)3E)2I 65752 B IOCSRW )3E)3A 65752 B IOCSRW )3E)2I 65752 NOP IOCTDF )3E)3A 65752 NOP IOCTDF )3E)2I 65752 MCW IOCTBR,*&4 )3E)3A)4' 65752 MCW IOCTBR,*&4 )3E)2I)4' 65752 MN 0 )3E)3A)4' 65752 MN 0 )3E)2I)4' 65752 CW )3E)3A)4' 65752 CW )3E)2I)4' 65752 )5P B 0 )3E)3A 65752 )5P B 0 )3E)2I 65752 IOCKOP DCW @K@ )3E)2I 6575K IOCKOP DCW @K@ )3E)3A 6575K IOCTDF DCW @K@ )3E)3A 65752 IOCTDF DCW @K@ )3E)2I 65752 DCW @29@ )3E)3A 65752 DCW @29@ )3E)2I 65752 DCW &)5P )3E)3A 65752 DCW &)5P )3E)2I 65752 DCW @M%U0@ )3E)3A)0/ 65752 DCW @M%U0@ )3E)2I)0/ 65752 DCW @M@U0@ )3E)3A)0A 65752 DCW @M@U0@ )3E)2I)0A 65752 DC &IOCSLB )3E)3A 65752 DC &IOCSLB )3E)2I 65752 DC @R@ )3E)3A 65752 DC @R@ )3E)2I 65752 IOCHSH DCW #10 )3E)0D)0V 65752 IOCHSH DCW #10 )3E)0E 65752 IOCRCT DCW #10 )3E)0E)0U 65752 IOCRCT DCW #10 )3E)0D 65752 DCW #5 )3E)3A 65752 DCW #5 )3E)2I 65752 IOCCRD EQU * )3E)4')2H 65752 DCW #3 )3E)2I 65752 DCW #3 )3E)3A 65752 IOCRCY EQU * )3E)3I)2H 65752 IOCRCY EQU * )3E)3Z)3A 65752 IOCRCY EQU * )3E)3Z)2I 65752 IOCSEQ DCW #3 )3E)3A 65752 IOCSEQ DCW #3 )3E)2I 65752 IOCSER DCW #5 )3E)3A 65752 IOCSER DCW #5 )3E)2I 65752 IOCIDT DCW #10 )3E)3A 65752 IOCIDT DCW #10 )3E)2I 65752 IOCBYP DCW @ @ )3E)4')2I)2F 6575K IOCBYP DCW @ @ )3E)4')3?)2F 6575K IOCBYP DCW @ @ )3E)4')3A)2F 6575K DCW @" @ )3E)4')2I)2F 6575K DCW @" @ )3E)4')3?)2F 6575K DCW @" @ )3E)4')3A)2F 6575K IOCPDS DCW #3 )3E)0A 6575K IOCPSV DCW #16 65752 IOCSAV DCW #3 65752 IOCSLB DA 1X80,C,G )3E)3A 65752 IOCSLB DA 1X80,C,G )3E)2I 65752 199 DCW @ @ )3E)2I)3Z 65752 199 DCW @ @ )3E)3A)3Z 65752 IOCTDY EQU 199 )3E)2I)3Z 65752 IOCTDY EQU 199 )3E)3A)3Z 65752 IOCBLK EQU IOCPSV-10 )3E 65752 IOCRWD EQU IOCPSV-9 )3E)1B 65752 IOCRWD EQU IOCPSV-9 )3E)1C 65752 IOCEOF EQU IOCPSV-6 )3E)3U)4' 65752 IOCEOF EQU IOCPSV-6 )3D 65752 IOCALT EQU IOCPSV-3 )3E)2E 65752 IOCTAP EQU IOCPSV-2 )3E 65752 IOCTYP EQU IOCPSV-1 )3E 65752 IOCTYP EQU IOCPSV-1 )3B)3C)3V 65752 IOCTYP EQU IOCPSV-1 )3C)3D)3S)3V 65752 IOCTYP EQU IOCPSV-1 )3B)3D)3T)3V 65752 IOCTYP EQU IOCPSV-1 )3B)3U)3T)3V * ENTRY TO RDLIN ROUTINE )1F 65752 IOCRDL SBR IOCUXT&3 )1F 65752 MCW IOCXR3,IOCXSV )1F 65752 MCW IOCUXT&3,IOCXR3 )1F 65752 MCW 3&X3,IOCXR3 )1F 65752 MCW 12&X3,*&8 )1F 65752 BCE )7K,@1JA@,0 )1F 65752 CHAIN2 )1F 65752 H 0,3345 )1F 65752 B IOCUXT )1F 65752 )7K BCE )7J,0&X3,% )1F 65752 C 0&X3 )1F 65752 SAR IOCXR3 )1F 65752 B )7K )1F 65752 )7J CS 80 )1F 65752 R )1F 65752 C 20,@RDLIN@ )1F 65752 BE )7L )1F 65752 H 0,3001 )1F 65752 B )7J )1F 65752 )7L MN 0&X3 )1F 65752 SAR IOCXR3 )1F 65752 MCW 40,0&X3 )1F 65752 SBR IOCXR3 )1F 65752 MCW 25,0&X3 )1F 65752 SBR IOCXR3 )1F 65752 MCW 29,0&X3 )1F 65752 SBR IOCXR3 )1F 65752 MCW 49,0&X3 )1F 65752 SBR IOCXR3 )1F 65752 MCW 45,0&X3 )1F 65752 MCW IOCXSV,IOCXR3 )1F 65752 B IOCUXT )1F 65752 * CODING FOR RELEASE WITH NO PUNCH )0/)0A 65752 IOCPNX SBR *&4 )0B)3T 65752 B 0 )0B)3T 65752 * CODING FOR RELEASE WITH NO READER )0/)0A 65752 IOCRDX SBR *&4 )0B)3U 65752 B 0 )0B)3U 65752 * COMBINATION READ AND WRITE TAPE ROUTINE )3E)3Z)4' 65752 * READ TAPE ROUTINE )3E)3I 65752 * WRITE TAPE ROUTINE )3E)4? 65752 IOCSRW SBR *&4 )3V)0A 65752 B 0 )3V)0A 65752 IOCSRW SBR IOCNPR&3 )3E 65752 B IOCRDX )3E)0B)0/ 65752 B IOCPNX )3E)0B)0/ 65752 MCW IOCXR3,IOCTNT#13 )0A)3E MCW )0A)3E 65752 MCW )0A)3E BW IOCINX,IOCRRR )2I)0A)3E 65752 BW IOCINX,IOCLOS )2I)0A)3E 65752 BW IOCINX,IOCFES )2I)0A)3E 65752 BW IOCINX,IOCOPS )2I)0A)3E 65752 BW IOCINX,IOCRRR )3A)0A)3E 65752 BW IOCINX,IOCLOS )3A)0A)3E 65752 BW IOCINX,IOCFES )3A)0A)3E 65752 BW IOCINX,IOCOPS )3A)0A)3E 65752 IOCNZP BCE IOCNPR-9,IOCERH, )0A)3E MCW IOCERH,*&4 )0A)3E 65752 MCW 0,IOCTRW&7 )0A)3E 65752 MCW IOCCAN,*&17 )0A)3E BIN *-4,J )0A)3E 65752 SBR IOCWWW&3 )0A)3E SBR IOCCLE&13 )0A)3E SBR 0 )0A)3E BCE IOCOEW,IOCTRW&7,W )0A)3E 65752 BEF IOCRND )0A)3E 65752 MCW IOCTRW&6,IOCXR3 )0A)3E 65752 MLC IOCXR3,IOCWDP&6 )0A)3E)1A 6575K SBR IOCNSZ&6,12&X3 )0A)3E 65752 IOCNSZ BCE IOCNZR,0," )0A)3E 65752 CHAIN12 )0A)3E 65752 MLNS IOCTRW&3,*&7 )0A)3E SBR IOCXR1,0 )0A)3E MA &IOCNTL,IOCXR1 )0A)3E BER IOCPER )0A)3E 65752 A &1,0&X1 )0A)3E B IOCNPR-17 )0A)3E IOCOEW BER IOCWWW )0A)3E 6575K BEF IOCRND )0A)3E 65752 B IOCNPR-17 )0A)3E IOCWWW MLNS 0 )0A)3E MLCWA@"@ )0A)3E B IOCPER )0A)3E 6575K IOCRND SBR IOCXR3,IOCTAB )0A)3E 65752 MCW IOCTRW&3,IOCDRN#1 )0A)3E 65752 IOCCKD C IOCDRN,0&X3 )0A)3E 65752 BE IOCSAD )0A)3E 65752 BCE IOCERC,0&X3,* )0A)3E 65752 MN 0&X3 )0A)3E 65752 MN )0A)3E 65752 MN )0A)3E 65752 MN )0A)3E 65752 MN )0A)3E 65752 MN )0A)3E 65752 MN )0A)3E 65752 SAR IOCXR3 )0A)3E 65752 B IOCCKD )0A)3E 65752 IOCSAD MN 0&X3 )0A)3E 65752 SAR IOCXR3 )0A)3E 65752 MCW 0&X3,IOCERX&3 )0A)3E 65752 IOCERX B 0 )0A)3E 65752 MCW @B@,IOCERX )0A)3E 65752 MCW 0&X3,IOCRCL&3 )0A)3E 65752 MCW 0&X3,IOCORC&3 )0A)3E 65752 SAR IOCXR3 )0A)3E 6575K MCW IOCTRW&6,IOCXR2 )0A)3E 65752 SBR IOCMPR&6,12&X2 )0A)3E 65752 IOCECK A &1,0&X1 )0A)3E MCW @99@,IOCERR )0A)3E 65752 MCW )0A)3E 65752 IOCBRE B IOCTRW )0A)3E 65752 IOCPER MCW @N@,IOCERX )0A)3E 65752 MCW &IOCRED,IOCBRE&3 )0A)3E 65752 B IOCRND )0A)3E 65752 IOCNZR MCW @N@,IOCERX )0A)3E 65752 MCW &IOCCLE,IOCBRE&3 )0A)3E 65752 B IOCRND )0A)3E 65752 IOCERC H IOCNPR-9 )0A)3E MCW IOCXR3,IOCTNT#8 )3E)0/ 65752 MCW )3E)0/ 65752 MCW IOCNPR&3,IOCXR3 )3E)0/ 65752 MCW 3&X3,IOCXR3 )3E)0/ 65752 MCW 13&X3,IOCTRW&7 )3E)0/ 65752 MCW 5&X3,IOCRCL&3 )3E)0/)3Z 65752 MCW 5&X3,IOCORC&3 )3E)4')0/ 65752 MCW 12&X3,IOCXR2 )3E)4')0/ 65752 SBR IOCWDP&6,0&X2 )3E)1A)4')0/ 65752 SBR IOCMPR&6,12&X2 )4')3E)0/ 65752 IOCECK A &1,0&X3 )4')3E)0Z)0/ 65752 A &1,0&X3 )4')3E)0I)0/ 65752 MCW @99@,IOCERR )3E)0/ 65752 MCW )3E)3Z)0/ 65752 IOCTRW RT 0,0 )3E 65752 MCW IOCCAN,IOCBRS&3 )0A)3E 65752 BIN *-4,J )0A)3E 65752 SBR IOCTBR#3 )4')3E 65752 SBR IOCCLE&6 )4')3E)0/ 65752 SBR IOCCLE&13 )4')3E)0A 65752 SBR IOCXR2 )3E)1A)4' 65752 SBR IOCXXX&3 )0A)3E IOCBRS SBR 0 )3E)0A 65752 MN 0&X2 )3E)1A)4' 65752 SAR IOCXR2 )3E)1A)4' 6575K BCE IOCRKS,IOCTRW&7,W )4')3Z)3E 65752 IOCORC BEF 0 )4')3E 65752 IOCMPR BCE IOCCLE,0," )4')3E 65752 CHAIN12 )4')3E 65752 BW IOCER0&8,IOCDSW )4')3E)0H 65752 IOCRKS BER IOCRED )4')3Z)3E 65752 BER IOCRED )4?)3E 65752 BER IOCRED )4')3I)3E 65752 IOCRCL BEF 0 )3Z)3E 65752 IOCRXR EQU *&1 )4')3E)0H 65752 IOCRXR EQU *&1 )4')3E)0I)0Y 65752 IOCRXR EQU *&1 )4')3E)1?)0Y)0Z 65752 MCW IOCNOP,IOCERH )0A)3E 6575K MCW )0A)3E 6575K MCW IOCTNT,IOCXR3 )3E 65752 MCW )3E 65752 MCW )0A)3E IOCNPR B 0 )3E 65752 IOCRED BCE IOCDRR,IOCERR,9 )3E)0/ 65752 IOCRED MCW &IOCTRW,IOCBRE&3 )3E)0A 65752 BCE IOCDRR,IOCERR,9 )3E)0A 65752 IOCNRR S &1,IOCERR )3E 65752 MN IOCTRW&3,*&4 )3E)0H 65752 BSP 0 )3E)0H 65752 BM IOCONR,IOCERR )4')3Z)3E)0H 65752 BM IOCLEN&4,IOCERR )4')3Z)3E)0Y 65752 BM IOCLEN&4,IOCERR )4')3I)3E)0Y 65752 BM IOCONR,IOCERR )4')3I)3E)0H 65752 MN IOCTRW&3,*&4 )3E)0Y 65752 BSP 0 )3E)0Y 65752 BCE *&9,IOCTRW&7,R )3E)3Z)4' 65752 BCE IOCROW,IOCERR,G )3Z)3E 65752 BCE IOCTRW,IOCTRW&7,R )3E)0A 6575K IOCXXX MLNS 0 )0A)3E SW )0A)3E B IOCTRW )3E 65752 IOCDRR S &1,2&X3 )3E)0/ IOCDRR S &1,0&X3 )3E)0A BCE IOCTTM,IOCTRW&7,R )3E)4')3Z BM IOCER2,2&X3 )3E)0/)3Z BM IOCER2,0&X3 )3E)0A B IOCNRR )3E)3Z)4' IOCTTM BM IOCER1,2&X3 )3E)4')0/ IOCTTM BM IOCER1,0&X3 )3E)0A B IOCNRR )3E IOCCLE MN @99@,0 )4')3E)0/ 65752 IOCCLE MCW &IOCTRW,IOCBRE&3 )4')3E)0A 6575K MN @99@,0 )4')3E)0A 65752 MN )4')3E 65752 MLC @N@,0&X3 )3E)4')0/ MLC @N@,0&X1 )3E)0A B IOCTRW )4')3E 65752 IOCROW BEF IOCCHE )3E)3Z 65752 S &1,IOCASC )3Z)3E 65752 BM IOCER3,IOCASC )3Z)3E 65752 IOCRAS MN IOCTRW&3,*&4 )3Z)3E 65752 SKP 0 )3Z)3E 65752 MCW @99@,IOCERR )3Z)3E 65752 B IOCTRW )3Z)3E 65752 IOCLEN EQU *-3 )4')3E)0Y 65752 IOCONR BM IOCER0,0&X3 )3E)0H)0/)4' IOCONR BM IOCER0,0&X1 )3E)0H)0A MN IOCTRW&3,*&4 )4')3E)0H 65752 IOCSPC BSP 0 )4')3E)0H 65752 S &1,IOCNT2 )4')3E)0H 65752 BWZ IOCSPC,IOCNT2,B )4')3E)0H 65752 MCW IOCTRW&6,*&7 )4')3E)0H 65752 IOCRER RT 0,0 )4')3E)0H 65752 SBR *&4 )4')3E)0H 6575K MN 0 )4')3E)0H 6575K MLC IOCNT2 )4')3E)0H 6575K A &1,IOCNT2 )4')3E)0H 65752 C IOCNT2,@D@ )3E)0H)4' BH IOCRER )3E)0H)4' MCW IOCTRW&6,*&7 )4')3E)0H 65752 RT 0,0 )4')3E)0H 65752 BER IOCER0&8 )4')3E)0H 65752 B IOCRXR )4')3E)0H 65752 IOCNT2 DCW @D@ )3E)0H)4' IOCER0 SW IOCDSW )4')3E)0H 65752 B IOCTRW )4')3E)0H 65752 CW IOCDSW )4')3E)0H 65752 IOCDGM BW *&12,0&X2 )3E)1A)4' 6575K LCA @"@,0&X2 )3E)1A)4' 6575K B IOCWDP )3E)1A)4' 6575K SW IOCDGM&1 )3E)1A)4' 6575K IOCWDP WT )1A,0 )3E)1A)4' 65752 BER IOCTDE )3E)1A)4' 65752 MCW @9@,IOCTCT )3E)1A)4' 65752 BW *&5,IOCDGM&1 )3E)1A)4' 6575K CW 0&X2 )3E)1A)4' 6575K MLC @ @,0&X2 )3E)1A)4' 6575K CW IOCDGM&1 )3E)1A)4' 6575K B IOCECK )4')3E)1')0Z 65752 B IOCRXR )4')3E)0I 65752 H 0,3134 )4')3E)1? 65752 MN IOCTRW&3,*&4 )4')3E)1? 65752 BSP 0 )4')3E)1? 65752 MCW IOCTRW&6,*&7 )4')3E)1? 65752 RT 0,0 )4')3E)1? 65752 H 0,3234 )4')3E)1? 65752 BSS IOCRXR,G )4')3E)1? 65752 B IOCECK )4')3E)1? 65752 IOCTDE BSP )1A )4')3E 65752 SKP )1A )4')3E 65752 S &1,IOCTCT )4')1A)3E 65752 BM IOCTDH,IOCTCT )4')3E)1A 65752 B IOCWDP )4')3E)1A 65752 IOCTDH NOP 3666 )4')3E)1A 65752 H )4')3E)1A 65752 B IOCWDP )4')3E)1A 65752 IOCTCT DCW @9@ )4')3E)1A 65752 IOCER1 MCW @49@,2&X3 )3E)4')0/ IOCER1 MCW @49@,0&X3 )3E)0A NOP 3050 )4')3E 65752 H )4')3E 65752 B IOCNRR )4')3E 65752 IOCER2 MCW @29@,2&X3 )3E)0/)3Z IOCER2 MCW @29@,0&X3 )3E)0A NOP 3030 )3Z)3E 65752 H )3Z)3E 65752 B IOCNRR )3Z)3E 65752 IOCER3 MCW @9@,IOCASC )3Z)3E 65752 NOP 3010 )3Z)3E 65752 H )3Z)3E 65752 B IOCRAS )3Z)3E 65752 IOCCHE MCW 5&X3,IOCNPR&3 )3E)3Z)0/ IOCCHE MCW 3&X3,IOCNPR&3 )3E)0A NOP 3900 )3Z)3E 65752 H )3Z)3E 65752 B IOCROW&5 )3Z)3E 65752 IOCASC DCW @9@ )3Z)3E 65752 IOCERR DCW @9@ )3E 65752 DCW @N @ )0A 65752 IOCCAN DCW @N @ )0A 65752 IOCERH DCW @N @ )0A 65752 IOCNOP DCW @N N N @ )0A 65752 IOCINX MCW &IOCTDF,IOCXR3 )2I)3E)0A 65752 MCW 13&X3,IOCTRW&7 )2I)3E)0A 65752 MCW 5&X3,IOCRCL&3 )2I)3E)0A 65752 MCW 5&X3,IOCORC&3 )2I)3E)0A 65752 MCW 12&X3,IOCXR2 )2I)3E)0A 65752 SBR IOCMPR&6,12&X2 )2I)3E)0A 65752 C IOCNPR&3,&IOCRWR&36 )2I)0A)3E BU IOCNZP )2I)3E)0A 65752 SBR IOCXR3,2&X3 )3E)0A)2I MLNS IOCTRW&3,*&7 )3E)0A)2I SBR IOCXR1,0 )3E)0A)2I MA &IOCNTL,IOCXR1 )3E)0A)2I BW *&5,IOCOPS )2I)3E)0A 65752 B IOCECK )2I)3E)0A 65752 MCW IOCXR1,IOCIRE#3 )2I)3E)0A 65752 MCW IOCQUT&3,IOCXR1 )2I)3E)0A 65752 MCW 3&X1,IOCXR1 )2I)3E)0A 65752 MCW @B@,21&X1 )2I)3E)0A 65752 MCW IOCIRE,IOCXR1 )2I)3E)0A 65752 B IOCECK )2I)3E)0A 65752 IOCINX MCW &IOCTDF,IOCXR3 )3A)0A)3E 65752 MCW 13&X3,IOCTRW&7 )3A)0A)3E 65752 MCW 5&X3,IOCRCL&3 )3A)0A)3E 65752 MCW 5&X3,IOCORC&3 )3A)0A)3E 65752 MCW 12&X3,IOCXR2 )3A)0A)3E 65752 SBR IOCMPR&6,12&X2 )3A)0A)3E 65752 C IOCNPR&3,&IOCRWR&36 )3A)0A)3E BU IOCNZP )3A)0A)3E 65752 SBR IOCXR3,2&X3 )3E)0A)3A MLNS IOCTRW&3,*&7 )3E)0A)3A SBR IOCXR1,0 )3E)0A)3A MA &IOCNTL,IOCXR1 )3E)0A)3A BW *&5,IOCOPS )3A)0A)3E 65752 B IOCECK )3A)0A)3E 65752 MCW IOCXR1,IOCIRE#3 )3A)0A)3E 65752 MCW IOCQUT&3,IOCXR1 )3A)0A)3E 65752 MCW 3&X1,IOCXR1 )3A)0A)3E 65752 MCW @B@,21&X1 )3A)0A)3E 65752 MCW IOCIRE,IOCXR1 )3A)0A)3E 65752 B IOCECK )3A)0A)3E 65752 IOCDSW DC #1 )4')3E)0H 65752 66666 HEADR 65802 DCW #1 65802 LTORG* 65802 IOCEND EQU *&1 65802 ORG IOCEND 65802 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=/=M759215=2=FK=M793234=M809251=2=FJ=/271=M833224=2=M857224=2=M881224=2=M905224=2=M929224=2=FJ=/224=M944215=2=FK=M983239=2=F1=)P06=.000880=B593F=/239=M993210=2=FK=M'29236=2=U%U1R=U%U4R=U%U5R=U%U6R=V517P251=/236=M'57228=FK=2=F1=,581=L547008=L=M%T0548W=.=J16365 =.=SWITCH TO 1410 MODE, RESET START"=.000889=B519=)I98'61=)A08=/199=U%U1B=U%U1B=U%U1B=U%U1B=U%U1B=U%U1B=U%U1B=U%U1B=L%U1Z00R=B665L=BZ01=M'58'59=U%U1B=L%U1Z00R=B694L=BZ01=U%U1B=S'60'59=V677'59B=.000891=L%U1Z00R=B665E=.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 """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """""