~B010L~B844~U%U1R~L%U1001R~B001~ ~B000~ } ~M457354~D423000~D~D~D~D~D~D~D~D~D~D~D~D~D~S466~B451~.?~M464388~M000398~ R~.341~B458~ ~M457422~B341000 ~A468466~D467441~U%U0B~B376465 ~B000~ ~B000~ ~ ~1~M516515~M~B334~B992~.P~B469~B334~B485~B469~B491~B495~ ~0~0?1~M519467~M408 67~M%U1 54R~M585464~M~M~M~B481K~B409L~A586515~B334~527~ 49~B562~540~1~ ~B334~)600~B607~339~/180~4~B634!~M180763~,600~B334~.8~B663~M180843~M763180~A683682~B628682?~4~B669!~M843180~N0~B596~?1~ ~ ~,339~Y848408~M408423~M875337~B499~876~M889337~B588~890~,101~M907337~B520~908~M/33180~C120 53~B992S~M940337~B596~941~K4~M942677~C911 33~B981S~,909~AY56911~)909~B908~M 30911~B894~M 05337~B503~ 06~M 19337~B592~ 20~.999999~M/33~Y53~99999999999999999999 ~ ~80 CLOSE INSER 650520000 CLOSE HEADR 650520001 )00 B IOCLOZ )01 65052000K )01-17 65052} 650520003 B IOCLOZ )0B 650520004 NOP )0B-17 650520005 B IOCLOZ )0C 650520006 NOP )0C-17 650520007 B IOCLOZ )0D 650520008 NOP )0D-17 65052 0009 B IOCLOZ )0E 650520010 NOP )0E-17 650520011 B IOCLOZ )0F 650520012 NOP )0F-17 650520013 B IOCLOZ )0G 650520014 NOP )0G-17 650520015 B IOCLOZ )0H 650520016 NOP )0H-17 650520017 B IOCLOZ )0I 650520018 NOP )0I-17 65052 0019 * CLOSE STATEMENT ERROR - NO FILES ARE SPECIFIED )10)0/ 65052 DCLOS INSER 651020000 DCLOS HEADR 651020001 )00 MN IOCWDP&3,*&4 651020002 WTM 0 651020003 MN IOCWDP&3,*&4 )0A)0S 651020004 RWD 0 )0A)0S 651020005 MN IOCWDP&3,*&4 )0B 651020006 RWU 0 )0B 65102 FEORL INSER 65152 0000 FEORL HEADR 651520001 )00 B IOCFRL )01 6515K0002 NOP )01-17 651520003 * FEORL STATEMENT ERROR - NO FILE SPECIFIED )02)0/ 65152 GETXX INSER 652020000 GETXX HEADR 652020001 )00 SBR IOCUXT&3,)0J 652020002 B )01 652020003 DSA )0B 652020004 DCW @$@ )0S 65202 0005 DCW @K)0C@ 652020006 DCW @N0@ )0T 652020007 DCW )0D 652020008 DCW @$@ )0U 652020009 )0J EQU *&1 65202 OPENX INSER 652520000 OPENX HEADR 652520001 )00 B IOCOPN )01 652520002 NOP )01-17 652520003 B IOCOPN )0B 65252 0004 NOP )0B-17 652520005 B IOCOPN )0C 652520006 NOP )0C-17 652520007 B IOCOPN )0D 652520008 NOP )0D-17 652520009 B IOCOPN )0E 652520010 NOP )0E-17 652520011 B IOCOPN )0F 652520012 NOP )0F-17 652520013 B IOCOPN )0G 65252 0014 NOP )0G-17 652520015 B IOCOPN )0H 652520016 NOP )0H-17 652520017 B IOCOPN )0I 652520018 NOP )0I-17 652520019 * OPEN STATEMENT ERROR - NO FILE SPECIFIED )10)0/ 65252 PUTXX INSER 653020000 PUTXX HEADR 653020001 )00 SBR IOCUXT&3,)0J 653020002 B )02 65302 0003 DSA )0A 653020004 DCW @$@ )0/ 653020005 DCW @)0C@ 653020006 DCW @$@ )0T 653020007 DCW @F)0D@ 653020008 DCW @$@ )0U 653020009 )0J EQU *&1 65302 RDLIN INSER 653520000 RDLIN HEADR 653520001 )00 B IOCRDL )01 65352 0002 NOP )01-17 653520003 B IOCRDL )0B 653520004 NOP )0B-17 653520005 B IOCRDL )0C 653520006 NOP )0C-17 653520007 B IOCRDL )0D 653520008 NOP )0D-17 653520009 B IOCRDL )0E 653520010 NOP )0E-17 653520011 B IOCRDL )0F 65352 0012 NOP )0F-17 653520013 B IOCRDL )0G 653520014 NOP )0G-17 653520015 B IOCRDL )0H 653520016 NOP )0H-17 653520017 B IOCRDL )0I 653520018 NOP )0I-17 653520019 * RDLIN STATEMENT ERROR - NO FILE SPECIFIED )10)0/ 65352 RELSE INSER 654020000 RELSE HEADR 65402 0001 )00 SBR IOCUXT&3,*&5 654020002 B )0A&8 )0A)0S 654020003 B )0A&20 )0A)0B 6540K0004 * RELSE STATEMENT ERROR - NO FILE SPECIFIED )10)0/ 65402 SKIP INSER 654420000 SKIP HEADR 654420001 )00 CC )0A )0S 654420002 CCB )0B,)0A 65442 SPACE INSER 654520000 SPACE HEADR 65452 0001 )00 CC )0A )0S 654520002 CCB )0B,)0A 65452 STACK INSER 655020000 STACK HEADR 65502 15000 INSER 655520000 15000 HEADR 655520001 IOCKBY SBR IOCBYX&3 655520002 SBR IOC)03&6,0&X3 655520003 MCW IOCTRW&6,IOCXR3 655520004 MN IOCTRW&3,IOC)01&3 0005 SW IOC007#1 655520006 MCW 6&X3,IOC)06 655520007 CHAIN6 655520008 CW IOC)06 655520009 CHAIN5 655520010 C IOC)06,@**CHKPT@ 655520011 SW IOC)06 655520012 CHAIN5 655520013 IOC)03 SBR IOCXR3,0 655520014 BU IOCBYX 65552 0015 IOC)01 RTW 0,IOC)02 0016 CW IOC007 655520017 IOCBYX B 0 655520018 DCW @ @ 5555K0019 IOC)02 DCW @ @ 655520020 DCW @} @ 655520021 DA 7X1 655520022 IOC)06 EQU * 65552 18000 INSER 656020000 18000 HEADR 65602 0001 IOCPCK SBR IOCPKX&3 656020002 BAV *&1 656020003 A &96,IOCAR5-3 656020004 BAV *-11 656020005 MZ IOCAR5-4,IOCAR5#5 656020006 ZA IOCAR5-2,IOCXR1&1 656020007 MZ IOCZON-99&X1,IOCAR5-2 656020008 IOCPKX B 0 656020009 IOCZON DCW @2SKB@ 65602 33333 INSER 65652 0000 33333 HEADR 656520001 * NO IOAREAS ENTRY IN DTF FOR THIS TAPE FILE )99)3U)5A 656520002 * WORKAREA AND INDEXREG ENTRIES ARE BOTH SPECIFIED )99)3B)3C 656520003 * INDEXREG ENTRY ERROR - NOT TAPE FILE )99)3B)5/ 656520004 * INDEXREG ENTRY ERROR - UNBLOCKED TAPE FILE )99)3B)4S)5A)0/ 656520005 * INDEXREG ENTRY ERROR - VARIABLE BLOCKED FILE )99)3B)3I)4B)5A 656520006 * VARBUILD ENTRY ERROR - INPUT TAPE FILE )99)1?)5A)5C 656520007 * VARBUILD ENTRY ERROR - FIXED BLOCKED FILE )99)1?)5A)3Z)4B 656520008 * VARBUILD ENTRY ERROR - UNBLOCKED TAPE FILE )99)1?)4S)5A 656520009 * VARBUILD ENTRY ERROR - NOT TAPE FILE )99)1?)5/ 65652 0010 * TOTALS ENTRY ERROR - NOT TAPE FILE )99)2H)5/ 656520011 * TOTALS ENTRY ERROR - NOT TAPE FILE )99)2I)2Y)5/ 656520012 * TOTALS ENTRY ERROR - UNLABELED TAPE FILE )99)2H)2X)2W 656520013 * TOTALS ENTRY ERROR - UNLABELED TAPE FILE )99)2I)2Y)2X)2W 656520014 * TYPELABEL ENTRY ERROR - NOT TAPE FILE )99)2F)5/ 656520015 * TYPELABEL ENTRY ERROR - NOT TAPE FILE )99)2G)5/ 656520016 * TYPELABEL ENTRY ERROR - STANDARD & NONSTANDARD )99)2F)2G 656520017 * CHECKLABEL ENTRY ERROR - NOT TAPE FILE )99)2C)5/ 656520018 * CHECKLABEL ENTRY ERROR - NOT TAPE FILE )99)2D)5/ 656520019 * CHECKLABEL ENTRY ERROR - NOT STANDARD LABELS )99)2C)2X 65652 0020 * CHECKLABEL ENTRY ERROR - NOT STANDARD LABELS )99)2D)2X 656520021 * CHECKLABEL ENTRY ERROR - TAPE OUTPUT FILE )99)2C)5A)5B 656520022 * CHECKLABEL ENTRY ERROR - TAPE OUTPUT FILE )99)2D)5A)5B 656520023 * CHECKLABEL ENTRY ERROR - ALL & IDENT )99)2C)2D 656520024 * HEADER ENTRY ERROR - NOT TAPE FILE )99)2?)5/ 656520025 * HEADER ENTRY ERROR - NOT TAPE FILE )99)2A)2 )5/ 656520026 * HEADER ENTRY ERROR - NOT TAPE FILE )99)2B)2 )2/)5/ 656520027 * HEADER ENTRY ERROR - NOT STANDARD LABELS )99)2?)2X 656520028 * HEADER ENTRY ERROR - NOT STANDARD LABELS )99)2A)2 )2X 656520029 * HEADER ENTRY ERROR - NOT STANDARD LABELS )99)2B)2/)2 )2X 65652 0030 * SERIALNUM ENTRY ERROR - NOT TAPE FILE )99)1I)5/ 656520031 * SERIALNUM ENTRY ERROR - NOT STANDARD LABELS )99)1I)2X 656520032 * SERIALNUM ENTRY ERROR - CHECK IDENT ONLY )99)1I)2C 656520033 * REELSEQ ENTRY ERROR - NOT TAPE FILE )99)0E)5/ 656520034 * REELSEQ ENTRY ERROR - NOT STANDARD LABELS )99)0E)2X 656520035 * FILETYPE ENTRY ERROR - MORE THAN ONE I/O DEVICE )99)5A)5? 656520036 * FILETYPE ENTRY ERROR - MORE THAN ONE I/O DEVICE )99)5A)4I 656520037 * FILETYPE ENTRY ERROR - MORE THAN ONE I/O DEVICE )99)5A)4H 656520038 * FILETYPE ENTRY ERROR - MORE THAN ONE I/O DEVICE )99)5?)4I 656520039 * FILETYPE ENTRY ERROR - MORE THAN ONE I/O DEVICE )99)5?)4H 65652 0040 * FILETYPE ENTRY ERROR - MORE THAN ONE I/O DEVICE )99)4I)4H 656520041 * FILETYPE ENTRY ERROR - TAPE, NEITHER INPUT OR OUTPUT )99)5A)5S)5T 656520042 * FILETYPE ENTRY ERROR - TAPE, INPUT & OUTPUT )99)5A)5B)5C 656520043 * FILETYPE ENTRY ERROR - INPUT, NOT TAPE FILE )99)5C)5/ 656520044 * FILETYPE ENTRY ERROR - OUTPUT, NOT TAPE FILE )99)5B)5/ 656520045 * FILETYPE ENTRY ERROR - CHECKPOINT, NOT TAPE INPUT )99)4F)5A)5B 656520046 * FILETYPE ENTRY ERROR - NO I/O DEVICE SPECIFIED )99)5/)5 )4Z)4Y 656520047 * MODEPAR ENTRY ERROR - LOAD, NOT TAPE FILE )99)4G)5/ 656520048 * CHANDRIVE ENTRY ERROR - TAPE, NO DRIVE )99)4V)5A 656520049 * CHANDRIVE ENTRY ERROR - NOT TAPE FILE )99)4E)5/ 65652 0050 * CARDPOC ENTRY ERROR - NO READER OR PUNCH )99)4D)5 )4Z 656520051 * FORMCNTL ENTRY ERROR - NOT PRINTER FILE )99)0D)4Y 656520052 * OVERFLOW ENTRY ERROR - NOT PRINTER FILE )99)0F)4Y 656520053 * OVERFLOW ENTRY ERROR - NOT PRINTER FILE )99)0G)4Y 656520054 * ALTTAPE ENTRY ERROR - NOT TAPE FILE )99)4C)5/ 656520055 * RECFORM ENTRY ERROR - BLOCKED, NOT TAPE FILE )99)4B)5/ 656520056 * RECFORM ENTRY ERROR - VARIABLE, NOT TAPE FILE )99)3I)5/ 656520057 * RECFORM ENTRY ERROR - BLOCKED & UNBLOCKED )99)4A)4B 656520058 * RECFORM ENTRY ERROR - VARIABLE & FIXED )99)3I)4? 656520059 * SIZEREC ENTRY ERROR - NOT TAPE FILE )99)3H)5/ 65652 0060 * SIZEREC ENTRY ERROR - FORM 3 TAPE FILE )99)4S)3H)3I)5A 656520061 * BLOCKED TAPE FILE - NO SIZEREC ENTRY )99)4B)5A)3Y 656520062 * PADDING ENTRY ERROR - NOT TAPE FILE )99)3G)5/ 656520063 * PADDING ENTRY ERROR - VARIABLE TAPE FILE )99)3G)3I)5A 656520064 * PADDING ENTRY ERROR - UNBLOCKED TAPE FILE )99)3G)4S)5A 656520065 * PADDING ENTRY ERROR - INPUT TAPE FILE )99)5A)5C)3G 656520066 * BLOCKSIZE ENTRY ERROR - NOT TAPE FILE )99)3F)5/ 656520067 * BLOCKSIZE ENTRY ERROR - UNBLOCKED TAPE FILE )99)3F)4S)5A 656520068 * BLOCKED TAPE FILE - NO BLOCKSIZE ENTRY )99)4B)5A)3W 656520069 * REWIND ENTRY ERROR - NOT TAPE FILE )99)0H)5/ 65652 0070 * REWIND ENTRY ERROR - NOT TAPE FILE )99)0I)5/ 656520071 * REWIND ENTRY ERROR - NOREWD & UNLOAD )99)0H)0I 656520072 * EOFADDR ENTRY ERROR - PRINTER FILE )99)3A)4H 656520073 * EOFADDR ENTRY ERROR - PUNCH FILE )99)3A)4I 656520074 * EOFADDR ENTRY ERROR - TAPE OUTPUT FILE )99)3A)5A)5B 656520075 * READER FILE - NO EOFADDR ENTRY )99)5?)3/)5W 656520076 * TAPE INPUT/STANDARD LABEL - NO EOFADDR ENTRY )99)5A)5C)2G)3/)5W 656520077 * WLRADDR ENTRY ERROR - PRINTER FILE )99)3?)4H 656520078 * WLRADDR ENTRY ERROR - PUNCH FILE )99)3?)4I 656520079 * WLRADDR ENTRY ERROR - READER FILE )99)3?)5? 65652 0080 * WLRADDR ENTRY ERROR - VARIABLE UNBLOCKED FILE )99)3?)3I)4S)5A 656520081 * WLRADDR ENTRY ERROR - TAPE OUTPUT FILE )99)3?)5B)5A 656520082 * EXNADDR ENTRY ERROR - NOT TAPE FILE )99)5E)5/ 656520083 * EXNADDR ENTRY ERROR - UNLABELED TAPE FILE )99)5A)5E)2X)2W 656520084 * EX1ADDR NOT APPLICABLE - TAPE INPUT )99)1H)5A)5C 656520085 * EX1ADDR NOT APPLICABLE - NONSTANDARD LABELS )99)1H)5A)2F 656520086 * EX2ADDR NOT APPLICABLE - TAPE INPUT )99)1G)5A)5C 656520087 * EX3ADDR NOT APPLICABLE - TAPE INPUT )99)1F)5A)5C 656520088 * EX3ADDR NOT APPLICABLE - NONSTANDARD LABELS )99)1F)5A)2F 656520089 * EX4ADDR NOT APPLICABLE - TAPE INPUT )99)1E)5A)5C 65652 0090 * EX4ADDR NOT APPLICABLE - NONSTANDARD LABELS )99)1E)5A)2F 656520091 * EX5ADDR NOT APPLICABLE - TAPE INPUT )99)1D)5A)5C 656520092 * EX6ADDR NOT APPLICABLE - TAPE OUTPUT )99)1C)5A)5B 656520093 * EX7ADDR NOT APPLICABLE - TAPE OUTPUT )99)1B)5A)5B 656520094 * EX8ADDR NOT APPLICABLE - TAPE INPUT )99)1A)5A)5C 656520095 * DTF TABLE FOR FILENAME )5D 656520096 )7K DCW #16 )5A)2H HASH 656520097 DCW @*@ )5A)2Y 656520098 )7J DCW #10 )5A)2I RECORD 656520099 DCW @*@ )5A)2Z 65652 0100 DCW @)2A@ )5A)2G)5C 656520101 DCW #5 )5A)2G)5C)2/ 656520102 DCW #5 )5A)2G)5B 656520103 DCW @)2A@ )5A)2G)5B 656520104 DCW @)2B@ )5A)2G)5C 656520105 DCW #3 )5A)2G)2/)5B 656520106 DCW #3 )5A)2G)2S)5C 656520107 DCW @)0E@ )5A)2G REEL SEQ 656520108 DCW @001@ )5A)2G)0V 656520109 DCW @)1I@ )5A)2G FILE SER 65652 0110 DCW #5 )5A)2G)1Z 656520111 DCW @)2?@ )5A)2G 656520112 DCW #10 )5A)2G)2 656520113 DCW @%@ )5A 656520114 DCW )1H )5A EXITS 656520115 DCW @*@ )5A)1Y)5E 656520116 DCW )1G )5A 656520117 DCW @*@ )5A)1X)5E 656520118 DCW )1F )5A 656520119 DCW @*@ )5A)1W)5E 65652 0120 DCW )1E )5A 656520121 DCW @*@ )5A)1V)5E 656520122 DCW )1D )5A 656520123 DCW @*@ )5A)1U)5E 656520124 DCW )1C )5A 656520125 DCW @*@ )5A)1T)5E 656520126 DCW )1B )5A 656520127 DCW @*@ )5A)1S)5E 656520128 DCW )1A )5A 656520129 DCW @*@ )5A)1/)5E 65652 0130 DCW &000000 BLK CNT 656520131 DCW @A@ )0Y)0Z REWIND 656520132 DCW @B@ )0I 656520133 DCW @ @ )0H 656520134 DCW )3A EOF 656520135 DCW @ @ )3/ 656520136 DCW @)3G@ PADDING 656520137 DCW @ @ )3X 656520138 DCW @1@ )5A)5C)2G)2D LABEL 656520139 DCW @1@ )5A)5B)2G TYPE 65652 0140 DCW @J@ )5A)5C)2G)2C 656520141 DCW @A@ )5A)5C)2G)2T)2U 656520142 DCW @2@ )5A)2F 656520143 DCW @ @ )2X)2W 656520144 DCW @)4C@ ALT 656520145 DCW @ @ )4T TAPE 656520146 DCW @)4E@ CHAN 656520147 DCW @ @ )4V 656520148 DCW @2@ )4H FILE 656520149 DCW @4@ )4I TYPE 65652 0150 DCW @1@ )5? 656520151 DCW @R@ )5C)5A 656520152 DCW @W@ )5B)5A 656520153 DCW @L@ )4G 656520154 DCW @M@ )4X 656520155 * DTF ROUTINE FOR FILENAME )5D 656520156 )5D B IOCUXT 656520157 B )6J )5A)0A 656520158 B )6J )5?)0A 656520159 B *&5 )0/ 65652 0160 B *&5 )5/)0A 656520161 B *&13 )5A)0A 656520162 B )2M 656520163 B )6Q )5A)0A 656520164 B )7L )5A)0A 656520165 * DTF ROUTINE FOR TAPE INPUT FIXED LENGTH RECORDS )0/)0A 656520166 MCW IOCXR1,IOCSAV )3Z)5A)5C)3S)4B)0/ 656520167 MCW IOCXR1,IOCSAV )3Z)5A)5C)4S)0/ 656520168 MCW IOCUXT&3,IOCXR1 )3Z)5A)5C)5F)0/ 656520169 MCW IOCUXT&3,IOCXR1 )3Z)5A)5C)3T)3S)5W)0/ 65652 0170 MN 0&X1 )3Z)5A)5C)5F)0/ 656520171 MN 0&X1 )3Z)5A)5C)3T)3S)5W)0/ 656520172 SAR IOCXR1 )3Z)5A)5C)5F)0/ 656520173 SAR IOCXR1 )3Z)5A)5C)3T)3S)5W)0/ 656520174 MCW 0&X1,)5D-7 )3Z)5A)5C)5F)0/ 656520175 C )3Z)5A)5C)5F)3T)3S)0/ 6565K0176 C 0&X1 )3Z)5A)5C)5W)3T)3S)0/ 656520177 C )3Z)5A)5C)3T)3S)0/ 656520178 SAR IOCXR1 )3Z)5A)5C)3T)3S)0/ 656520179 MCW 0&X1,)1M&6 )3Z)5A)5C)3T)3S)0/ 65652 0180 MCW )2Q,IOCXR1 )3Z)5A)5C)3S)4B)0/ 656520181 BCE *&10,*-2, )3S)3?)3Z)5A)5C)4B)0/ 0182 SW )3S)3?)3Z)5A)5C)4B)0/ 0183 CW )3D&X1 )3S)3?)3Z)5A)5C)4B)0/ 0184 B )2L )3S)3?)3Z)5A)5C)4B)0/ 0185 BCE )2L,)3D&X1,} )3Z)5A)5C)3S)4B)0/ 656520186 )0M MCM )3D&X1,)3C )3Z)5A)5C)3S)4B)0/ 656520187 SBR )2Q,)3H&X1 )3Z)5A)5C)3S)4B)3C)0/ 656520188 MCW )2Q,IOCXR)3B )3Z)5A)5C)4B)0/ 656520189 SBR IOCXR)3B,)3H&X)3B )3Z)5A)5C)4B)0/ 65652 0190 SBR )2Q )3Z)5A)5C)4B)3B)0/ 656520191 BCE *&10,*-2, )3B)3?)3Z)5A)5C)4B)0/ 0192 SW )3B)3?)3Z)5A)5C)4B)0/ 0193 CW )3D&X)3B )3B)3?)3Z)5A)5C)4B)0/ 0194 B )2L )3B)3?)3Z)5A)5C)4B)0/ 0195 BCE )2L,)3D&X)3B,} )3Z)5A)5C)4B)0/ 656520196 B )2L )3Z)5A)5C)4S)0/ 656520197 )0M BCE *&8,)1M&6,$ )3Z)5A)5C)3T)3S)4B)0/ 656520198 )1M MCM )3D&X1,0 )3Z)5A)5C)3T)3S)4B)0/ 656520199 SBR )2Q,)3H&X1 )3Z)5A)5C)3T)3S)4B)0/ 65652 0200 )7L EQU *&1 )3Z)5A)5C)3B)4B)0/ 656520201 )7L EQU *&1 )3Z)5A)5C)4S)0/ 656520202 MCM )3D,)3C )3Z)5A)5C)4S)0/ 656520203 BCE *&8,)1M&6,$ )3Z)5A)5C)4S)3T)0/ 656520204 )1M MCM )3D,0 )3Z)5A)5C)4S)3T)0/ 656520205 A @1@,)7J )3Z)5A)5C)2I)0/ 656520206 A )3D&)2H-1&X)3B,)7K )3Z)5A)5C)4B)0/ 656520207 A )3D&)2H-1,)7K )3Z)5A)5C)3T)4S)0/ 656520208 A )3C&)2H-1,)7K )3Z)5A)5C)3S)0/ 656520209 A )3D&)2H-1&X1,)7K )3Z)5A)5C)3S)3T)4B)0/ 65652 0210 MCW IOCSAV,IOCXR1 )3Z)5A)5C)3S)4B)0/ 656520211 MCW IOCSAV,IOCXR1 )3Z)5A)5C)4S)0/ 656520212 B IOCUXT )3Z)5A)5C)0/ 656520213 NOP )3F )3S)5C)4B)5A)0/)3Z 0214 NOP )3F-)3H )3B)5C)4B)5A)0/)3Z 0215 )2Q EQU * )3Z)5A)5C)4B)0/ 656520216 NOP )3F )3S)5C)4B)5A)0/)3Z 0217 NOP )3F-)3H )3B)5C)4B)5A)0/)3Z 0218 )4Q EQU * )3Z)5A)5C)4B)0/ 656520219 )2L EQU *&1 )3Z)5A)5C)0/ 6565K 0220 MN )5D-3,)1K&9 )3Z)5A)5C)4C)0/ 6565K0221 BCE *&6,*-2, )4S)3?)3Z)5A)5C)0/ 0222 SW )4S)3?)3Z)5A)5C)0/ 0223 CW )3D&)3H )4S)3?)3Z)5A)5C)0/ 0224 B IOCSRW )3Z)5A)5C)0/ 6565K0225 NOP )1K )3Z)5A)5C)0/ 656520226 INCLD15000 )3Z)5A)5C)4F)0/ 656520227 B IOCKBY )3Z)5A)5C)4F)0/ 656520228 BW *&5,IOC007 )3Z)5A)5C)4F)0/ 656520229 B )2L )3Z)5A)5C)4F)0/ 65652 0230 SBR IOCSV3,)3D&1&X1 )3Z)5A)5C)3S)4B)0/ 6565K0231 SBR IOCSV3,)3D&1&X)3B )3Z)5A)5C)4B)0/ 6565K0232 )3M EQU )3D&1 )3Z)5A)5C)4S)0/ 6565K0233 SBR IOCSV3,)3M&)3H )3Z)5A)5C)4S)0/ 6565K0234 MLC IOCSV3,*&4 )3Z)5A)5C)0/ 6565K0235 MN 0 )3Z)5A)5C)0/ 6565K0236 MLC @}@ )3Z)5A)5C)0/ 6565K0237 S IOCXR)3B&1 )3Z)5A)5C)4B)0/ 6565K0238 S IOCXR1&1 )3Z)5A)5C)4B)0/)3S 6565K0239 C IOCSV3,IOCTBR )3Z)5A)5C)3?)0/ 65652 0240 BU )8K )3Z)5A)5C)0/)3? 6565K0241 A @1@,)5D-12 )3Z)5A)5C)0/ 6565K0242 SBR )2Q,0 )3Z)5A)5C)4B)0/ 656520243 B )7L )3Z)5A)5C)3B)4B)0/ 656520244 B )7L )3Z)5A)5C)4S)0/ 656520245 B )0M )3Z)5A)5C)3S)4B)0/ 656520246 )8K MLC IOCTBR,*&4 )3Z)5A)5C)3?)0/ 6565K0247 MN 0 )3Z)5A)5C)3?)0/ 6565K0248 MLC @ @ )3Z)5A)5C)3?)0/ 6565K0249 MLC IOCSV3,*&7 )3?)3Z)5A)5C)0/ 0250 MLCWA@}@,0 )3?)3Z)5A)5C)0/ 0251 MLC IOCSAV,IOCXR1 )3Z)5A)5C)3?)0/)3S)4B 6565K0252 MLC IOCSAV,IOCXR1 )3Z)5A)5C)3?)0/)4S 6565K0253 MCW )4Q,)2Q )3Z)5A)5C)3?)0/)4B 6565K0254 B )3? )3Z)5A)5C)3?)0/ 6565K0255 )1K DCW @N@ )3Z)5A)5C)0/ 0256 DCW @49@ )3Z)5A)5C)0/ 656520257 DCW )2K )3Z)5A)5C)0/ 656520258 RT )4E,)3D&X0 )3Z)5A)5C)4X)0/ 656520259 RTW )4E,)3D&X0 )3Z)5A)5C)4G)0/ 65652 0260 )2K EQU *&1 )3Z)5A)5C)0/ 656520261 MCW IOCSAV,IOCXR1 )3Z)5A)5C)3S)4B)0/ 656520262 MCW IOCSAV,IOCXR1 )3Z)5A)5C)4S)0/ 656520263 MCW IOCTNT,IOCXR3 )3Z)5A)5C)0/ 656520264 MCW )3Z)5A)5C)0/ 656520265 MCW @ @,)3D&1&X0 )3Z)5A)5C)0/ 656520266 B IOCEOR )3Z)5A)5C)0/ 656520267 NOP )5D-17 )3Z)5A)5C)0/ 656520268 SBR )1K&2,2549 )3Z)5A)5C)0/ 0269 MCW )2Q,IOCXR1 )3S)3Z)5A)5C)4B)0/ 0270 MCW )2Q,IOCXR)3B )3Z)5A)5C)4B)0/ 0271 B )2L )3Z)5A)5C)0/ 656520272 )2M EQU *&1 )3Z)5A)5C)0/ 656520273 MCW )4Q,)2Q )3Z)5A)5C)4B)0/ 656520274 SBR IOCXR)3B,0 )3Z)5A)5C)4B)0/ 656520275 B IOCUXT )3Z)5A)5C)0/ 656520276 * DTF ROUTINE FOR TAPE OUTPUT FIXED LENGTH RECORDS )0/)0A 656520277 CW )9M )3Z)5A)5B)4B)0/ 656520278 MCW @N@,)1N )3Z)5A)5B)4B)3B)0/ 656520279 MCW IOCXR1,IOCSAV )3Z)5A)5B)3S)4B)0/ 65652 0280 MCW IOCXR1,IOCSAV )3Z)5A)5B)4S)3T)0/ 656520281 MCW IOCUXT&3,IOCXR1 )3Z)5A)5B)3T)3S)0/ 656520282 MN 0&X1 )3Z)5A)5B)3T)3S)0/ 656520283 C )3Z)5A)5B)3T)3S)0/ 656520284 C )3Z)5A)5B)3T)3S)0/ 656520285 SAR IOCXR1 )3Z)5A)5B)3T)3S)0/ 656520286 MCW 0&X1,)1M&3 )3Z)5A)5B)3T)3S)0/ 656520287 )3M EQU *&1 )3Z)5A)5B)4B)0/ 656520288 MCW )2Q,IOCXR1 )3Z)5A)5B)3S)4B)0/ 656520289 MCW )2Q,IOCXR)3B )3Z)5A)5B)4B)0/ 65652 0290 SBR )1M&6,)3D&X1 )3Z)5A)5B)4B)3S)0/ 656520291 SBR )5M&6,)3D&)3H&X1 )3Z)5A)5B)4B)3S)0/ 656520292 SBR )2Q,)3H&X1 )3Z)5A)5B)4B)3S)0/ 656520293 SBR )4M&3,)3D&)2H-1&X1 )3Z)5A)5B)4B)3S)3T)0/ 656520294 MCW IOCSAV,IOCXR1 )3Z)5A)5B)4B)3S)0/ 656520295 MCW IOCSAV,IOCXR1 )3Z)5A)5B)4S)3T)0/ 6565K0296 )1M EQU *&1 )3Z)5A)5B)4B)3S)0/ 656520297 MCM 0,0 )3Z)5A)5B)4B)3S)3T)0/ 656520298 MCM )3C,0 )3Z)5A)5B)4B)3S)0/ 656520299 )0M EQU *&1 )3Z)5A)5B)4B)3B)0/ 65652 0300 MCM )3C,)3D )3Z)5A)5B)4S)0/ 656520301 BCE *&8,)1M&3,$ )3Z)5A)5B)3S)3T)4S)0/ 656520302 )1M MCM 0,)3D )3Z)5A)5B)3S)3T)4S)0/ 656520303 )1N NOP 0,)3D&X)3B )3Z)5A)5B)4B)0/ 656520304 A @1@,)7J )3Z)5A)5B)2I)0/ 656520305 A )3D&)2H-1&X)3B,)7K )3Z)5A)5B)4B)0/ 656520306 A )3C&)2H-1,)7K )3Z)5A)5B)3S)0/ 656520307 )4M A 0,)7K )3Z)5A)5B)4B)3S)3T)2H)0/ 656520308 A )3D&)2H-1,)7K )3Z)5A)5B)3T)4S)0/ 656520309 SBR IOCXR)3B,)3H&X)3B )3Z)5A)5B)4B)0/ 65652 0310 SBR )2Q )3Z)5A)5B)4B)3B)0/ 656520311 )5M BCE )2L,0,} )3Z)5A)5B)4B)3S)0/ 656520312 BCE )2L,)3D&X)3B,} )3Z)5A)5B)4B)0/ 656520313 B )2L )3Z)5A)5B)4S)0/ 656520314 BW )0M,)9M#1 )3Z)5A)5B)4B)3B)0/ 656520315 BW )3M,)9M#1 )3Z)5A)5B)4B)3S)0/ 656520316 )2P EQU *&1 )3Z)5A)5B)0/ 656520317 B IOCUXT )3Z)5A)5B)0/ 656520318 )2Q DCW 000 )3Z)5A)5B)4B)0/ 656520319 )2L EQU *&1 )3Z)5A)5B)0/ 65652 0320 CW )9M )3Z)5A)5B)4B)0/ 656520321 A @1@,)5D-12 )3Z)5A)5B)0/ 656520322 MN )5D-3,)1K&9 )3Z)5A)5B)4C)0/ 6565K0323 B IOCSRW )3Z)5A)5B)0/ 656520324 NOP )1K )3Z)5A)5B)0/ 656520325 )3L EQU *&1 )3Z)5A)5B)0/ 656520326 SBR )2Q,0 )3Z)5A)5B)4B)0/ 656520327 S IOCXR)3B&1 )3Z)5A)5B)4B)0/ 656520328 B )2P )3Z)5A)5B)0/ 656520329 )1K DCW @K@ )3Z)5A)5B)0/ 65652 0330 DCW @29@ )3Z)5A)5B)0/ 656520331 DCW )2K )3Z)5A)5B)0/ 656520332 WT )4E,)3D&X0 )3Z)5A)5B)4X)0/ 656520333 WTW )4E,)3D&X0 )3Z)5A)5B)4G)0/ 656520334 )2K EQU *&1 )3Z)5A)5B)0/ 656520335 MCW IOCSAV,IOCXR1 )3Z)5A)5B)3S)4B)0/ 656520336 MCW IOCSAV,IOCXR1 )3Z)5A)5B)4S)3T)0/ 656520337 MCW IOCTNT,IOCXR3 )3Z)5A)5B)0/ 656520338 MCW )3Z)5A)5B)0/ 656520339 B IOCEOR )3Z)5A)5B)0/ 65652 0340 NOP )5D-17 )3Z)5A)5B)0/ 656520341 SBR )1K&2,2229 )3Z)5A)5B)0/ 656520342 B )3L )3Z)5A)5B)0/ 656520343 )2M EQU *&1 )3Z)5A)5B)0/ 656520344 B IOCUXT )3Z)5A)5B)4S)0/ 656520345 C )2Q,@000@ )3Z)5A)5B)4B)0/ 656520346 BE IOCUXT )3Z)5A)5B)4B)0/ 656520347 MCW IOCXR1,IOCSAV )3Z)5A)5B)4B)3S)0/ 656520348 SBR IOCXR1,)3C-1 )3Z)5A)5B)4B)0/ 656520349 SBR IOCXR1,)3D&X0 )3Z)5A)5B)4B)3S)3T)0/ 65652 0350 SBR IOCXR)3B,)3D&X0 )3Z)5A)5B)4B)0/ 656520351 MA )2Q,IOCXR1 )3Z)5A)5B)4B)3S)3T)0/ 656520352 MA )2Q,IOCXR)3B )3Z)5A)5B)4B)0/ 656520353 SBR )1N&3,0&X)3B )3Z)5A)5B)4B)0/ 656520354 SBR )1M&3,0&X1 )3Z)5A)5B)4B)3S)3T)0/ 656520355 MN 0&X1 )3Z)5A)5B)4B)3S)3T)0/ 656520356 MN 0&X)3B )3Z)5A)5B)4B)0/ 656520357 SAR )2R#3 )3Z)5A)5B)4B)3T)0/ 656520358 MCW )5D-6,)3H-2&X)3B )3Z)5A)5B)4B)0/ 656520359 MCW )5D-6,)3H-2&X1 )3Z)5A)5B)4B)3S)3T)0/ 65652 0360 MCW )5D-6,)3H-1&X1 )3Z)5A)5B)4B)3C)0/ 656520361 SBR IOCXR)3B )3Z)5A)5B)4B)0/ 656520362 SBR IOCXR1 )3Z)5A)5B)4B)3S)0/ 656520363 )3P MCW )5D-6,0&X)3B )3Z)5A)5B)4B)0/ 656520364 )3P MCW )5D-6,0&X1 )3Z)5A)5B)4B)3S)0/ 656520365 SBR IOCXR)3B )3Z)5A)5B)4B)0/ 656520366 SBR IOCXR1 )3Z)5A)5B)4B)3S)0/ 656520367 C IOCXR)3B,)2R )3Z)5A)5B)4B)0/ 656520368 C IOCXR1,)2R )3Z)5A)5B)4B)3S)3T)0/ 656520369 C IOCXR1,&)3C-1 )3Z)5A)5B)4B)0/ 65652 0370 BU )3P )3Z)5A)5B)4B)0/ 656520371 SW )9M )3Z)5A)5B)4B)0/ 656520372 MCW @P@,)1N )3Z)5A)5B)4B)3B)0/ 656520373 B )3M )3Z)5A)5B)4B)0/ 656520374 * DTF ROUTINE FOR TAPE INPUT VARIABLE LENGTH UNBLOCKED )0/)0A 656520375 MCW IOCXR1,IOCSAV )3I)5A)5C)4S)0/ 656520376 MCW IOCUXT&3,IOCXR1 )3I)5A)5C)4S)5F)0/ 656520377 MCW IOCUXT&3,IOCXR1 )3I)5A)5C)4S)3T)5W)0/ 656520378 MN 0&X1 )3I)5A)5C)4S)5F)0/ 656520379 MN 0&X1 )3I)5A)5C)4S)3T)5W)0/ 65652 0380 SAR IOCXR1 )3I)5A)5C)4S)5F)0/ 656520381 SAR IOCXR1 )3I)5A)5C)4S)3T)5W)0/ 656520382 MCW 0&X1,)5D-7 )3I)5A)5C)4S)5F)0/ 656520383 C )3I)5A)5C)4S)5F)3T)0/ 6565K0384 C 0&X1 )3I)5A)5C)4S)3T)5W)0/ 656520385 C )3I)5A)5C)4S)3T)0/ 656520386 SAR IOCXR1 )3I)5A)5C)4S)3T)0/ 656520387 MCW 0&X1,)1M&6 )3I)5A)5C)4S)3T)0/ 656520388 )2L EQU *&1 )3I)5A)5C)4S)0/ 6565K0389 MN )5D-3,)1K&9 )3I)5A)5C)4S)4C)0/ 6565K 0390 B IOCSRW )3I)5A)5C)4S)0/ 6565K0391 NOP )1K )3I)5A)5C)4S)0/ 656520392 INCLD15000 )3I)5A)5C)4S)4F)0/ 656520393 B IOCKBY )3I)5A)5C)4S)4F)0/ 656520394 BW *&5,IOC007 )3I)5A)5C)4S)4F)0/ 656520395 B )2L )3I)5A)5C)4S)4F)0/ 656520396 A @1@,)5D-12 )3I)5A)5C)4S)0/ 656520397 MCW IOCTBR,IOCXR1 )3I)5A)5C)4S)0/ 656520398 MN 0&X1 )3I)5A)5C)4S)0/ 656520399 MCW @ @ )3I)5A)5C)4S)0/ 65652 0400 MCM )3D,)3C )3I)5A)5C)4S)0/ 656520401 BCE *&8,)1M&6,$ )3I)5A)5C)4S)3T)0/ 656520402 )1M MCM )3D,0 )3I)5A)5C)4S)3T)0/ 656520403 A @1@,)7J )3I)5A)5C)4S)2I)0/ 656520404 A )3D&)2H-1,)7K )3I)5A)5C)4S)3T)0/ 656520405 A )3C&)2H-1,)7K )3I)5A)5C)4S)0/ 656520406 MCW IOCSAV,IOCXR1 )3I)5A)5C)4S)0/ 656520407 B IOCUXT )3I)5A)5C)4S)0/ 656520408 )1K DCW @N@ )3I)5A)5C)4S)0/ 0409 DCW @49@ )3I)5A)5C)4S)0/ 65652 0410 DCW )2K )3I)5A)5C)4S)0/ 656520411 RT )4E,)3D&X0 )3I)5A)5C)4S)4X)0/ 656520412 RTW )4E,)3D&X0 )3I)5A)5C)4S)4G)0/ 656520413 )2K MCW IOCSAV,IOCXR1 )3I)5A)5C)4S)0/ 656520414 MCW IOCTNT,IOCXR3 )3I)5A)5C)4S)0/ 656520415 MCW )3I)5A)5C)4S)0/ 656520416 MCW @ @,)3D&1&X0 )3I)5A)5C)4S)0/ 656520417 B IOCEOR )3I)5A)5C)4S)0/ 656520418 NOP )5D-17 )3I)5A)5C)4S)0/ 656520419 SBR )1K&2,2549 )3I)5A)5C)4S)0/ 0420 B )2L )3I)5A)5C)4S)0/ 656520421 )2M B IOCUXT )3I)5A)5C)4S)0/ 656520422 * DTF ROUTINE FOR TAPE OUTPUT VARIABLE LENGTH UNBLOCKED )0/)0A 656520423 MCW IOCXR1,IOCSAV )3I)5A)5B)4S)0/ 656520424 MCW IOCUXT&3,IOCXR1 )3I)5A)5B)4S)3T)0/ 656520425 MN 0&X1 )3I)5A)5B)4S)3T)0/ 656520426 C )3I)5A)5B)4S)3T)0/ 656520427 C )3I)5A)5B)4S)3T)0/ 656520428 SAR IOCXR1 )3I)5A)5B)4S)3T)0/ 656520429 MCW 0&X1,)1M&3 )3I)5A)5B)4S)3T)0/ 65652 0430 MCM )3C,)3D )3I)5A)5B)4S)0/ 656520431 BCE )1N,)1M&3,$ )3I)5A)5B)4S)3T)0/ 656520432 )1M MCM 0,)3D )3I)5A)5B)4S)3T)0/ 656520433 SBR IOCXR1 )3I)5A)5B)4S)0/ 656520434 MN 0&X1 )3I)5A)5B)4S)0/ 656520435 SAR IOCXR1 )3I)5A)5B)4S)0/ 656520436 BCE )3J,0&X1,} )3I)5A)5B)4S)0/ 656520437 LCA @}@,1&X1 )3I)5A)5B)4S)0/ 656520438 SBR )3K&3,1&X1 )3I)5A)5B)4S)0/ 656520439 B )1N )3I)5A)5B)4S)0/ 65652 0440 )3J SW 0&X1 )3I)5A)5B)4S)0/ 656520441 SBR )3K&3,0&X1 )3I)5A)5B)4S)0/ 656520442 )1N EQU *&1 )3I)5A)5B)4S)0/ 656520443 A @1@,)7J )3I)5A)5B)4S)2I)0/ 656520444 A )3C&)2H-1,)7K )3I)5A)5B)4S)0/ 656520445 A )3D&)2H-1,)7K )3I)5A)5B)4S)3T)0/ 656520446 A @1@,)5D-12 )3I)5A)5B)4S)0/ 656520447 MN )5D-3,)1K&9 )3I)5A)5B)4S)4C)0/ 6565K0448 B IOCSRW )3I)5A)5B)4S)0/ 656520449 NOP )1K )3I)5A)5B)4S)0/ 65652 0450 BCE *&5,)1M&3,$ )3I)5A)5B)4S)3T)0/ 656520451 )3K CW 0 )3I)5A)5B)4S)0/ 656520452 MCW IOCSAV,IOCXR1 )3I)5A)5B)4S)0/ 656520453 B IOCUXT )3I)5A)5B)4S)0/ 656520454 )1K DCW @K@ )3I)5A)5B)4S)0/ 656520455 DCW @29@ )3I)5A)5B)4S)0/ 656520456 DCW )2K )3I)5A)5B)4S)0/ 656520457 WT )4E,)3D&X0 )3I)5A)5B)4S)4X)0/ 656520458 WTW )4E,)3D&X0 )3I)5A)5B)4S)4G)0/ 656520459 )2K EQU *&1 )3I)5A)5B)4S)0/ 65652 0460 MCW IOCSAV,IOCXR1 )3I)5A)5B)4S)0/ 656520461 MCW IOCTNT,IOCXR3 )3I)5A)5B)4S)0/ 656520462 MCW )3I)5A)5B)4S)0/ 656520463 B IOCEOR )3I)5A)5B)4S)0/ 656520464 NOP )5D-17 )3I)5A)5B)4S)0/ 656520465 SBR )1K&2,2229 )3I)5A)5B)4S)0/ 656520466 B )3K-8 )3I)5A)5B)4S)3T)0/ 656520467 B )3K )3I)5A)5B)4S)3C)0/ 656520468 )2M B IOCUXT )3I)5A)5B)4S)0/ 656520469 * DTF ROUTINE FOR TAPE INPUT VARIABLE BLOCKED RECORDS )0/)0A 65652 0470 MCW IOCXR1,IOCSAV )3I)5A)5C)4B)0/ 656520471 MCW IOCUXT&3,IOCXR1 )3I)5A)5C)4B)5F)0/ 656520472 MCW IOCUXT&3,IOCXR1 )3I)5A)5C)4B)3T)5W)0/ 656520473 MN 0&X1 )3I)5A)5C)4B)5F)0/ 656520474 MN 0&X1 )3I)5A)5C)4B)3T)5W)0/ 656520475 SAR IOCXR1 )3I)5A)5C)4B)5F)0/ 656520476 SAR IOCXR1 )3I)5A)5C)4B)3T)5W)0/ 656520477 MCW 0&X1,)5D-7 )3I)5A)5C)4B)5F)0/ 656520478 C )3I)5A)5C)4B)5F)3T)0/ 6565K0479 C 0&X1 )3I)5A)5C)4B)3T)5W)0/ 65652 0480 C )3I)5A)5C)4B)3T)0/ 656520481 SAR IOCXR1 )3I)5A)5C)4B)3T)0/ 656520482 MCW 0&X1,)1M&6 )3I)5A)5C)4B)3T)0/ 656520483 BW )2L,)9L#1 )3I)5A)5C)4B)0/ 656520484 C )3D&3,&0004 )3I)5A)5C)4B)0/ 656520485 BE )2L )3I)5A)5C)4B)0/ 656520486 )7L MCW )2Q,IOCXR1 )3I)5A)5C)4B)0/ 656520487 MA )3C&)3H-1,)2Q )3I)5A)5C)4B)0/ 6565K0488 S )3C&)3H-1,)3D&3 )3I)5A)5C)4B)0/ 6565K0489 MCM )3D&X1,)3C )3I)5A)5C)4B)0/ 6565K 0490 MA )3D&)3H-1&X1,)2Q )3I)5A)5C)4B)3T)0/ 6565K0491 S )3D&)3H-1&X1,)3D&3 )3I)5A)5C)4B)3T)0/ 6565K0492 BCE *&8,)1M&6,$ )3I)5A)5C)4B)3T)0/ 6565K0493 )1M MCM )3D&X1.0 )3I)5A)5C)4B)3T)0/ 6565K0494 A @1@,)7J )3I)5A)5C)4B)2I)0/ 656520495 A )3C&)2H-1,)7K )3I)5A)5C)4B)0/ 656520496 A )3D&)2H-1&X1,)7K )3I)5A)5C)4B)3T)0/ 656520497 MCW IOCSAV,IOCXR1 )3I)5A)5C)4B)0/ 656520498 B IOCUXT )3I)5A)5C)4B)0/ 656520499 )2Q DCW 004 )3I)5A)5C)4B)0/ 65652 0500 )2L EQU *&1 )3I)5A)5C)4B)0/ 6565K0501 MN )5D-3,)1K&9 )3I)5A)5C)4B)4C)0/ 6565K0502 BCE *&13,*-2, )3I)5A)5C)4B)0/)3? 0503 SW )3I)5A)5C)4B)0/)3? 0504 SBR IOCXR1,)3F )3I)5A)5C)4B)0/)3? 0505 CW )3D&X1 )3I)5A)5C)4B)0/)3? 0506 B IOCSRW )3I)5A)5C)4B)0/ 6565K0507 NOP )1K )3I)5A)5C)4B)0/ 656520508 INCLD15000 )3I)5A)5C)4B)4F)0/ 656520509 B IOCKBY )3I)5A)5C)4B)4F)0/ 65652 0510 BW *&5,IOC007 )3I)5A)5C)4B)4F)0/ 656520511 B )2L )3I)5A)5C)4B)4F)0/ 656520512 CW )9L )3I)5A)5C)4B)0/ 656520513 ZA )3D&3,IOCAR5 )3I)5A)5C)4B)3?)0/ 656520514 INCLD18000 )3I)5A)5C)4B)3?)0/ 656520515 B IOCPCK )3I)5A)5C)4B)3?)0/ 656520516 MCW IOCAR5,IOCXR1 )3I)5A)5C)4B)3?)0/ 656520517 SBR IOCXR1,)3D&1&X1 )3I)5A)5C)4B)3?)0/ 656520518 C IOCXR1,IOCTBR )3I)5A)5C)4B)3?)0/ 656520519 BU )8K )3I)5A)5C)4B)0/)3? 6565K 0520 SBR )2Q,4 )3I)5A)5C)4B)0/ 656520521 A @1@,)5D-12 )3I)5A)5C)4B)0/ 6565K0522 B )7L )3I)5A)5C)4B)0/ 656520523 )8K MCW IOCTBR,*&4 )3I)5A)5C)4B)3?)0/ 6565K0524 MN 0 )3I)5A)5C)4B)3?)0/ 6565K0525 MCW @ @ )3I)5A)5C)4B)3?)0/ 6565K0526 MCW IOCSAV,IOCXR1 )3I)5A)5C)4B)3?)0/ 6565K0527 MCW &0004,)3D&3 )3I)5A)5C)4B)3?)0/ 6565K0528 B )3? )3I)5A)5C)4B)3?)0/ 6565K0529 )1K DCW @N@ )3I)5A)5C)4B)0/ 0530 DCW @49@ )3I)5A)5C)4B)0/ 656520531 DCW )2K )3I)5A)5C)4B)0/ 656520532 RT )4E,)3D&X0 )3I)5A)5C)4B)4X)0/ 656520533 RTW )4E,)3D&X0 )3I)5A)5C)4B)4G)0/ 656520534 )2K MCW IOCSAV,IOCXR1 )3I)5A)5C)4B)0/ 656520535 MCW IOCTNT,IOCXR3 )3I)5A)5C)4B)0/ 656520536 MCW )3I)5A)5C)4B)0/ 656520537 MCW @ @,)3D&1&X0 )3I)5A)5C)4B)0/ 656520538 B IOCEOR )3I)5A)5C)4B)0/ 656520539 NOP )5D-17 )3I)5A)5C)4B)0/ 65652 0540 SBR )1K&2,2549 )3I)5A)5C)4B)0/ 0541 B )2L )3I)5A)5C)4B)0/ 656520542 )2M MCW &0004,)3D&3 )3I)5A)5C)4B)0/ 656520543 B IOCUXT )3I)5A)5C)4B)0/ 656520544 * DTF ROUTINE FOR TAPE OUTPUT VARIABLE LENGTH RECORDS )0/)0A 656520545 SW )9J )3I)5A)5B)4B)0/ 656520546 MCW IOCXR1,IOCSAV )3I)5A)5B)4B)0/ 656520547 SBR )8J&6,0&X3 )3I)5A)5B)4B)3T)1 )0/ 656520548 SBR )8K&6 )3I)5A)5B)4B)3T)1 )1A)0/ 6565K0549 MCW IOCUXT&3,IOCXR1 )3I)5A)5B)4B)3T)1 )0/ 65652 0550 MN 0&X1 )3I)5A)5B)4B)3T)1 )0/ 656520551 C )3I)5A)5B)4B)3T)1 )0/ 656520552 C )3I)5A)5B)4B)3T)1 )0/ 656520553 SAR IOCXR1 )3I)5A)5B)4B)3T)1 )0/ 656520554 MCW 0&X1,IOCXR3 )3I)5A)5B)4B)3T)1 )0/ 656520555 BCE )9R,IOCXR3,$ )3I)5A)5B)4B)3T)1 )0/ 656520556 )7L A )3C&)3H-1,)4Q )3I)5A)5B)4B)0/ 656520557 )7L A )3H-1&X3,)4Q )3I)5A)5B)4B)3T)1 )0/ 656520558 A )1?,)4Q )3I)5A)5B)4B)0/ 656520559 MCW )1?,)8R#3 )3I)5A)5B)4B)0/ 65652 0560 )6J EQU *&1 )3I)5A)5B)4B)1?)0/ 656520561 MCW )2Q,IOCXR1 )3I)5A)5B)4B)0/ 656520562 C )5Q,)4Q )3I)5A)5B)4B)1 )0/ 656520563 BH )2L )3I)5A)5B)4B)1 )0/ 656520564 BWZ )2L,)4Q-3,S )3I)5A)5B)4B)1 )0/ 6565K0565 A )3C&)3H-1,)3D&3 )3I)5A)5B)4B)0/ 656520566 A )3H-1&X3,)3D&3 )3I)5A)5B)4B)3T)1 )0/ 656520567 MCM )3C,)3D&X1 )3I)5A)5B)4B)0/ 656520568 MCM 0&X3,)3D&X1 )3I)5A)5B)4B)3T)1 )0/ 656520569 MA )3C&)3H-1,)2Q )3I)5A)5B)4B)0/ 65652 0570 MA )3H-1&X3,)2Q )3I)5A)5B)4B)3T)1 )0/ 656520571 )7M B )7N )3I)5A)5B)4B)1?)0/ 656520572 MA )3H-1&X1,)2Q )3I)5A)5B)4B)1?)0/ 656520573 A @1@,)7J )3I)5A)5B)4B)2I)0/ 656520574 A )3C&)2H-1,)7K )3I)5A)5B)4B)0/ 656520575 A )2H-1&X3,)7K )3I)5A)5B)4B)3T)1 )0/ 656520576 A )2H-1&X1,)7K )3I)5A)5B)4B)1?)0/ 656520577 )7N MCW @N@,)7M )3I)5A)5B)4B)1?)0/ 656520578 MCW )2Q,)1? )3I)5A)5B)4B)1?)0/ 656520579 BW *&5,)9J )3I)5A)5B)4B)1?)0/ 65652 0580 B )2L )3I)5A)5B)4B)1?)0/ 656520581 C )5Q,)4Q )3I)5A)5B)4B)1?)0/ 656520582 BH )2L )3I)5A)5B)4B)1?)0/ 656520583 BWZ )2L,)4Q-3,S )3I)5A)5B)4B)1?)0/ 6565K0584 )7L EQU *&1 )3I)5A)5B)4B)1?)0/ 656520585 A )8R,)3D&3 )3I)5A)5B)4B)1?)0/ 656520586 MCW IOCSAV,IOCXR1 )3I)5A)5B)4B)0/ 656520587 )8J SBR IOCXR3,0 )3I)5A)5B)4B)3T)1 )0/ 656520588 B IOCUXT )3I)5A)5B)4B)0/ 656520589 )2L LCA @}@,)3D&X1 )3I)5A)5B)4B)1 )0/ 65652 0590 )2L MCW )1?,IOCXR1 )3I)5A)5B)4B)0/ 656520591 LCA @}@,0&X1 )3I)5A)5B)4B)1?)0/ 656520592 A &4,)3D&3 )3I)5A)5B)4B)0/ 656520593 SBR )3K&3,)3D&X1 )3I)5A)5B)4B)1 )0/ 656520594 SBR )3K&3,0&X1 )3I)5A)5B)4B)1?)0/ 656520595 MZ @I@,)3D&3 )3I)5A)5B)4B)0/ 656520596 A @1@,)5D-12 )3I)5A)5B)4B)0/ 656520597 MN )5D-3,)1K&9 )3I)5A)5B)4B)4C)0/ 6565K0598 B IOCSRW )3I)5A)5B)4B)0/ 656520599 NOP )1K )3I)5A)5B)4B)0/ 65652 0600 )3K CW 0 )3I)5A)5B)4B)0/ 656520601 ZA &4,)4Q )3I)5A)5B)4B)0/ 656520602 A )8R,)4Q )3I)5A)5B)4B)1?)0/ 656520603 SBR )2Q,4 )3I)5A)5B)4B)1 )0/ 656520604 SBR )2Q,)3D&4 )3I)5A)5B)4B)1?)0/ 656520605 SBR )1? )3I)5A)5B)4B)0/ 656520606 S )3D&3 )3I)5A)5B)4B)0/ 656520607 BW )7L,)9J )3I)5A)5B)4B)0/ 656520608 B )9K )3I)5A)5B)4B)0/ 656520609 )9R H 0,3999 )3I)5A)5B)4B)3T)1 )0/ 65652 0610 B )9R )3I)5A)5B)4B)3T)1 )0/ 656520611 )2Q DCW 004 )3I)5A)5B)4B)1 )0/ 656520612 )2Q DCW )3D&4 )3I)5A)5B)4B)1?)0/ 656520613 )4Q DCW &0004 )3I)5A)5B)4B)0/ 656520614 )5Q DCW &)3F )3I)5A)5B)4B)0/ 656520615 )1K DCW @K@ )3I)5A)5B)4B)0/ 656520616 DCW @29@ )3I)5A)5B)4B)0/ 656520617 DCW )2K )3I)5A)5B)4B)0/ 656520618 WT )4E,)3D&X0 )3I)5A)5B)4B)4X)0/ 656520619 WTW )4E,)3D&X0 )3I)5A)5B)4B)4G)0/ 65652 0620 )2K MCW IOCSAV,IOCXR1 )3I)5A)5B)4B)0/ 656520621 MCW IOCTNT,IOCXR3 )3I)5A)5B)4B)0/ 656520622 MCW )3I)5A)5B)4B)0/ 656520623 )8K SBR IOCXR3,0 )3I)5A)5B)4B)3T)1 )1A)0/ 6565K0624 B IOCEOR )3I)5A)5B)4B)0/ 656520625 NOP )5D-17 )3I)5A)5B)4B)0/ 656520626 SBR )1K&2,2229 )3I)5A)5B)4B)0/ 656520627 B )3K )3I)5A)5B)4B)0/ 656520628 )2M C )2Q,@004@ )3I)5A)5B)4B)1 )0/ 656520629 BE IOCUXT )3I)5A)5B)4B)1 )0/ 65652 0630 )2M EQU *&1 )3I)5A)5B)4B)1?)0/ 656520631 MCW IOCXR1,IOCSAV )3I)5A)5B)4B)0/ 656520632 MCW )2Q,IOCXR1 )3I)5A)5B)4B)1 )0/ 656520633 CW )9J#1 )3I)5A)5B)4B)0/ 656520634 B )2L )3I)5A)5B)4B)1 )0/ 656520635 B )6J )3I)5A)5B)4B)1?)0/ 656520636 )9K MCW IOCSAV,IOCXR1 )3I)5A)5B)4B)0/ 656520637 MCW @B@,)7M )3I)5A)5B)4B)1?)0/ 656520638 B IOCUXT )3I)5A)5B)4B)0/ 656520639 * DTF ROUTINE FOR READER FILE )0/)0A 65652 0640 )0N NOP )5Q )5?)0/ 656520641 MCW IOCXR1,IOCSAV )5?)5F 656520642 MCW IOCXR1,IOCSAV )5?)4U)5W 656520643 MCW IOCXR1,IOCSAV )5?)3T)4D)5W 656520644 MCW IOCUXT&3,IOCXR1 )5?)3T)4D)5W 656520645 MCW IOCUXT&3,IOCXR1 )5?)4U)5W 656520646 MCW IOCUXT&3,IOCXR1 )5?)5F 656520647 MN 0&X1 )5?)5F 656520648 MN 0&X1 )5?)4U)5W 656520649 MN 0&X1 )5?)3T)4D)5W 65652 0650 SAR IOCXR1 )5?)3T)4D)5W 656520651 SAR IOCXR1 )5?)4U)5W 656520652 SAR IOCXR1 )5?)5F 656520653 MCW 0&X1,)5D-7 )5?)5F 656520654 C 0&X1 )5?)5W)4U 656520655 C 0&X1 )5?)5W)3T)4D 656520656 SAR IOCXR1 )5?)4U 656520657 SAR IOCXR1 )5?)3T)4D 656520658 MCW 0&X1,)2R )5?)4U)0/ 656520659 C 0&X1 )5?)4D)3T 65652 0660 C 0&X1 )5?)3T)4U 656520661 SAR IOCXR1 )5?)3T 656520662 MCW 0&X1,)3R&6 )5?)3T 656520663 MLC IOCSAV,IOCXR1 )5?)5F 6565K0664 MLC IOCSAV,IOCXR1 )5?)4U)5W 6565K0665 MLC IOCSAV,IOCXR1 )5?)3T)4D)5W 6565K0666 BW )0R,)0K#1 )5?)0/)0B 656520667 BIN *-4,H )5?)0A 656520668 BLC )0P )5?)0A 656520669 )6K BCE *&5,IOCERH, )5?)0A 65652 0670 B IOCSRW )5?)0A 656520671 MLC IOCCAN,)6L&3 )5?)0A 656520672 MLC IOCCAN-4,*&7 )5?)0A 656520673 MLC 0,0 )5?)0A 656520674 BIN *-4,J )5?)0A 656520675 )6L SBR 0 )5?)0A 656520676 MLC IOCNOP,IOCERH )5?)0A 656520677 MLC )5?)0A 656520678 MLC )5?)0A 656520679 BIN )0N, )5?)0A 0680 )0M EQU *&1 )5?)0A 656520681 MRCM 1,)33 )5?)0A)3C 656520682 BCE *&8,*&7,$ )5?)0A)3T 656520683 )3R MRCM 1,0 )5?)0A)3T 656520684 )0N NOP )5Q )5?)0A 656520685 DCW @K$@ )5?)0A 656520686 BW )0M,IOCNRD )5?)0/)0B 656520687 )0R CW )0K )5?)0/)0B 656520688 B IOCPNX )5?)0/)0B 656520689 R )5?)0/)0B 65652 0690 MCW @N@,)4J )5?)0/)0B 656520691 )0R R )5?)0/)0S 656520692 R )5?)0A 6565K0693 )0M EQU *&1 )5?)0/)0B 656520694 BIN )0J,? )5?)0/ 656520695 SS )4D )5?)0/ 656520696 )2R DCW @N0@ )4U)5?)0/ 656520697 MCM 1,)3C )5?)0/ 656520698 BCE *&8,*&7,$ )5?)0/)3T 656520699 )3R MCM 1,0 )5?)0/)3T 65652 0700 BLC )0P )5?)0/ 656520701 )4J NOP )0L )5?)0/)0B 656520702 SRF )5?)0/)0B 656520703 )0L EQU *&1 )5?)0/ 6565K0704 CW IOCNRD )5?)0/)0B 656520705 B IOCUXT )5?)0A 656520706 )2M B IOCUXT )5?)0/ 656520707 )6J MLC @N@,)5D&4 )5?)0A 656520708 MCW &)6M,)6J-1 )5?)0A 656520709 B )6K )5?)0A 0710 )6M MCW &IOCUXT,)6J-1 )5?)0A 656520711 MLC @?@,)0M-1 )5?)0A 0712 MLC &)0J )5?)0A 0713 B )5D&4 )5?)0A 656520714 )2M MLC @B@,)5D&4 )5?)0A 656520715 B IOCUXT )5?)0A 656520716 )0J H 0,3111 )5? 656520717 B )0R )5?)0/ 6565K0718 R )5?)0A 6565K0719 B )0M-5 )5?)0A 6565K 0720 )0P MCW @B@,)0N )5? 656520721 SW IOCNRD )5?)0/)0B 656520722 B )0L )5?)0/ 656520723 B )6K )5?)0A 656520724 )5Q MLC @B@,)5D )5?)0A 656520725 MLC &)5R,)5D&3 )5?)0A 656520726 MLC @N@,)0N )5?)0A 656520727 B IOCUXT )5?)0A 656520728 )5R MLC &IOCUXT,)5D&3 )5?)0A 656520729 MLC @N@,)5D )5?)0A 65652 0730 B IOCEOR )5?)0A 656520731 )5Q MLC @N@,)0N )5?)0/ 6565K0732 B IOCEOR )5?)0/ 6565K0733 NOP )5D-17 )5? 656520734 * READ RELEASE SUBROUTINE )0/)0A 656520735 IOCRDX SBR )6Q&3 )5?)0/)0B 656520736 BW )6Q,IOCNRD#1 )5?)0/)0B 656520737 B IOCPNX )5?)0/)0B 656520738 BLC )7Q )5?)0/)0B 656520739 R )5?)0/)0B 65652 0740 SS )4D )5?)0/)0B 656520741 )7Q MCW @B@,)4J )5?)0/)0B 656520742 SW IOCNRD )5?)0/)0B 656520743 )6Q B 0 )5?)0/)0B 656520744 81 DCW @ @ )5? 656520745 * DTF ROUTINE FOR PUNCH FILE )0/)0A 656520746 MCW IOCXR1,IOCSAV )4I)3T 656520747 MCW IOCXR1,IOCSAV )4I)4U)3C 656520748 MCW IOCUXT&3,IOCXR1 )4I)3T 656520749 MCW IOCUXT&3,IOCXR1 )4I)4U)3C 65652 0750 MN 0&X1 )4I)3T 656520751 MN 0&X1 )4I)4U)3C 656520752 C )4I)3T 656520753 C )4I)4U)3C 656520754 SAR IOCXR1 )4I)3T 656520755 SAR IOCXR1 )4I)4U)3C 656520756 BCE *&5,IOCERH, )4I)0A 656520757 B IOCSRW )4I)0A 656520758 MLC IOCCAN,)6L&3 )4I)0A 656520759 MLC IOCCAN-4,*&7 )4I)0A 65652 0760 MLC 0,0 )4I)0A 656520761 BIN *-4,J )4I)0A 656520762 )6L SBR 0 )4I)0A 656520763 MLC IOCNOP,IOCERH )4I)0A 656520764 MLC )4I)0A 656520765 MLC )4I)0A 656520766 )1L BIN *-4,I )4I)0A 6565K0767 BIN )0K,! )4I)0A 6565K0768 MCM 101,)1Q )4I)0A 6565K0769 BW )7J,)8J#1 )4I)0A 6565K 0770 BCE *&3,)2R,$ )4I)0A)4U 6565K0771 )2R DCW @K0@ )4I)0A)4U 6565K0772 )2R DCW @K)4D@ )4I)0A 6565K0773 MLC )2R,)3R )4I)0A 6565K0774 MLC 0&X1,)2R )4I)4U 6565K0775 MN 0&X1 )4I)4D)3T 6565K0776 SAR IOCXR1 )4I)3T 6565K0777 MCW 0&X1,)1M&3 )4I)3T 6565K0778 B IOCRDX )4I)0/)0B 6565K0779 MLC IOCSAV,IOCXR1 )4I)3T 6565K 0780 MLC IOCSAV,IOCXR1 )4I)4U)3C 6565K0781 )1L EQU *&1 )4I)0/ 6565K0782 MCM )3C,101 )4I 656520783 BCE *&8,)1M&3,$ )4I)3T 656520784 )1M MCM 0,101 )4I)3T 656520785 DCW @K$@ )4I)0A 656520786 IOCPLC NOP 1118 )4I 6565K0787 DC @0@ )4I 6565K0788 P )4I 656520789 BW *&5,)4K )4I)0/)0B 65652 0790 B )5K )4I)0/)0B 656520791 )5L EQU *&1 )4I)0/)0B 656520792 SW )4K#1 )4I)0/)0B 656520793 BIN )0K,! )4I)0/ 6565K0794 MCM 101,)1Q )4I)0/ 656520795 BW *&3,IOCPLC&1 )4I)4D)0/)0S 6565K0796 BW *&4,IOCPLC&1 )4I)4D)0B)0/ 6565K0797 SS )4D )4I)0/ 6565K0798 BW *&12,IOCPLC&1 )4I)4U)0B)0/ 6565K0799 BCE *&3,)2R,$ )4I)4U)0/ 6565K 0800 )2R DCW @K0@ )4I)4U)0/ 6565K0801 SPF )4I)0/)0B 6565K0802 MLC )2R,)3R )4I)4U)0/ 6565K0803 CW IOCNPN )4I)0/)0B 656520804 BW )9J,IOCPLC&1 )4I)0A 6565K0805 )2M B IOCUXT )4I 656520806 )7J CW )8J )4I)0A 6565K0807 MLC @N@,)3R-1 )4I)0A 6565K0808 B )2R&8 )4I)0A 6565K0809 )9J SW )8J )4I)0A 6565K 0810 BIN )0K,! )4I)0A 6565K0811 B )2M )4I)0A 6565K0812 )0K MCM )1Q,101 )4I)0/ 6565K0813 )0K MCM 101,)2Q )4I)0A 6565K0814 MCM )1Q,101 )4I)0A 6565K0815 P )4I 656520816 BIN *&1,! )4I 6565K0817 SS )4D )4I)0/ 6565K0818 BCE *&3,)3R,$ )4I)4U 656520819 )3R DCW @K0@ )4I)4U 65652 0820 )3R DCW @K)4D@ )4I)0A 6565K0821 MCM )2Q,101 )4I)0A 6565K0822 P )4I)0A 6565K0823 A @1@,)0M#2 )4I 656520824 BCE )0N,)0M-1,1 )4I 656520825 B )1L )4I)0/)0S 656520826 )6J BW )9J,)8J )4I)0A 6565K0827 B )1L )4I)0A 656520828 )2N BW )1L,)4K )4I)0/)0B 656520829 B )3J )4I)0/)0B 65652 0830 )0N S )0M )4I 656520831 H 0,3444 )4I 656520832 B )1L )4I)0/)0S 656520833 B )6J )4I)0A 6565K0834 B )2N )4I)0/)0B 656520835 )5K BIN *&1,! )4I)0/)0B 656520836 B )5L )4I)0/)0B 656520837 )1Q DA 1X80,C )4I 6565K0838 DCW @ @ )4I 6565K0839 )2Q DA 1X80,C )4I)0A 6565K 0840 DCW @ @ )4I)0A 6565K0841 * PUNCH RELEASE SUBROUTINE )0/)0A 656520842 IOCPNX SBR )3J&7 )4I)0B)0/ 656520843 BW )3J,IOCNPN#1 )4I)0/)0B 656520844 P )4I)0/)0B 656520845 CW )4K )4I)0/)0B 656520846 BIN )0K,! )4I)0/)0B 6565K0847 )3J SW IOCNPN )4I)0B)0/ 656520848 B 0 )4I)0B)0/ 656520849 181 DCW @ @ )4I 65652 0850 * DTF ROUTINE FOR PRINTER FILE )0/)0A 656520851 MCW IOCXR1,IOCSAV )4H)3T 656520852 MCW IOCXR1,IOCSAV )4H)0U)3C 656520853 MCW IOCUXT&3,IOCXR1 )4H)3T 656520854 MCW IOCUXT&3,IOCXR1 )4H)0U)3C 656520855 MN 0&X1 )4H)3T 656520856 MN 0&X1 )4H)0U)3C 656520857 SAR IOCXR1 )4H)3T 656520858 SAR IOCXR1 )4H)0U)3C 656520859 MCW 0&X1,)1L&1 )4H)0U 65652 0860 C 0&X1 )4H)0D)3T 656520861 SAR IOCXR1 )4H)3T 656520862 SAR IOCXR1 )4H)0U)3C 656520863 MCW 0&X1,)2L )4H)0U 656520864 C 0&X1 )4H)0D)3T 656520865 SAR IOCXR1 )4H)3T 656520866 MCW 0&X1,)1M&3 )4H)3T 656520867 MLC IOCSAV,IOCXR1 )4H)3T 6565K0868 MLC IOCSAV,IOCXR1 )4H)0U)3C 6565K0869 B IOCRDX )4H)0B)0/ 65652 0870 B IOCPNX )4H)0/)0B 656520871 BIN *-4,H )4H)0A 656520872 BIN *-4,I )4H)0A 656520873 BIN )0K, )4H 656520874 BCE *&5,IOCERH, )4H)0A 656520875 B IOCSRW )4H)0A 656520876 MLC IOCCAN,)6L&3 )4H)0A 656520877 MLC IOCCAN-4,*&7 )4H)0A 656520878 MLC 0,0 )4H)0A 656520879 BIN *-4,J )4H)0A 65652 0880 )6L SBR 0 )4H)0A 656520881 MLC IOCNOP,IOCERH )4H)0A 656520882 MLC )4H)0A 656520883 MLC )4H)0A 656520884 )0L EQU *&1 )4H 656520885 SBR IOCQUT&3,)4R )4H)0C 656520886 BCV )0C )4H)0F)0X 656520887 BC9 )0C )4H)0G 656520888 BCV )2K )4H)0F)0T 656520889 BC9 )2K )4H)0G)0T 65652 0890 )4R EQU *&1 )4H)0F)0T 656520891 )4R EQU *&1 )4H)0G)0T 656520892 )4R EQU *&1 )4H)0C 656520893 BCE *&3,)2L,$ )4H)0U 656520894 )2L DCW @F0@ )4H)0U 656520895 BCE *&3,)1L&1,$ )4H)0U 656520896 )1L CC 0 )4H)0U 656520897 CC )0D )4H 656520898 MCM )3C,201 )4H 656520899 BCE *&8,)1M&3,$ )4H)3T 65652 0900 )1M MCM 0,201 )4H)3T 656520901 W )4H 656520902 B IOCUXT )4H 656520903 )2K CCB )4R,1 )4H)0F)0T 656520904 )2K CCB )4R,1 )4H)0G)0T 656520905 )0K H 0,3222 )4H 656520906 B )0L )4H 656520907 )2M B IOCUXT )4H 656520908 * DTF ROUTINE FOR OVERLAP TAPE BLOCKED RECORDS )0/)0A 656520909 BIN )0J,H )3E)5A)4B)0A 65652 0910 BIN )0J,I )3E)5A)4B)0A 656520911 BIN )0J,J )3E)5A)4B)0A 656520912 B )0K )3E)5A)4B)0A 656520913 )0J C )0L,)0M )3E)3S)5C)5A)4B)0A)3C 656520914 )0J C )0L,)0M )3E)3S)3Z)5B)5A)4B)0A)3C 656520915 )0J A )28-1&X)32,)7K )3E)2H)3B)3T)5A)4B)0A)5B 656520916 )0J SBR IOCXR)32,)38&X)32 )3E)3Z)3B)5B)5A)4B)0A)2Y 656520917 SBR IOCXR)32,)38&X)32 )3E)3Z)3B)5B)4B)0A)2H)5A 656520918 C IOCXR)32,)0M )3E)3B)3Z)5B)5A)4B)0A 6565K0919 )0J SBR IOCXR)3B,)3H&X)3B )3E)3B)3Z)5C)5A)4B)0A 6565K 0920 )0J A )3C-1&)38,)0L )3E)1 )5A)4B)0A)3S)3I)5B)3C 656520921 )0J EQU *&1 )3E)1?)5A)4B)0A)3S)3I)5B 6565K0922 A @)28@,)5K )3E)1?)5A)4B)0A)3S)3I)5B)2H 6565K0923 MLC )5K,)4O&3 )3E)1?)5A)4B)0A)3S)3I)5B)2H 6565K0924 MLC )5L,)5K )3E)1?)5A)4B)0A)3S)3I)5B 6565K0925 A )10,)0L )3E)5A)4B)0A)1?)3S)3I)5B 656520926 MLZS )5L,)10 )3E)5A)4B)0A)1?)3S)3I)5B 656520927 A )10,)5L )3E)5A)4B)0A)1?)3S)3I)5B 656520928 )0J SW IOCUXT&1 )1 )3E)5A)4B)0A)3T)3S 656520929 SW IOCUXT&1 )3E)5A)4B)0A)5F)5C 6565K 0930 MCW IOCUXT&3,*&4 )3E)5A)4B)0A)5F)5C 6565K0931 MN 0 )3E)5A)4B)0A)5F)5C 6565K0932 SAR *&4 )3E)5A)4B)0A)5F)5C 6565K0933 MCW 0,)5D-7 )3E)5A)4B)0A)5F)5C 6565K0934 MCW IOCUXT&3,*&8 )3E)5A)4B)0A)3T)3S)1 6565K0935 CW IOCUXT&1 )3E)5A)4B)0A)3T)3S)1 )5W 6565K0936 CW IOCUXT&1 )3E)5A)4B)0A)5F 6565K0937 C 0 )1 )3E)5A)4B)0A)3T)3S 656520938 C )1 )3E)5A)4B)0A)3T)3S 656520939 C )1 )3E)5A)4B)0A)3T)3S 65652 0940 SAR )8R&3 )1 )3E)5A)4B)0A)3T)3S 656520941 SBR )7R )1 )3E)5B)5A)4B)0A)3T)3S 656520942 SBR )7R )1 )3E)5C)2H)5A)4B)0A)3T)3S 656520943 MCW IOCXR1,IOCTNT )1 )3E)5C)2H)5A)4B)0A)3T)3S 656520944 MCW IOCXR1,IOCTNT )1 )3E)5B)5A)4B)0A)3T)3S 656520945 MCW )7R,*&4 )1 )3E)5B)5A)4B)0A)3T)3S 656520946 MCW )7R,*&4 )1 )3E)5C)2H)5A)4B)0A)3T)3S 656520947 MCW 0,IOCXR1 )1 )3E)5C)2H)5A)4B)0A)3T)3S 656520948 MCW 0,IOCXR1 )1 )3E)5B)5A)4B)0A)3T)3S 656520949 SBR )4Q&3,)38-1&X1 )1 )3E)5B)5A)4B)0A)3T)3S)3I 65652 0950 SBR )4O&3,)28-1&X1 )1 )3E)5A)4B)0A)3T)3S)2H 656520951 SBR )4N&3,)38-1&X1 )1 )3E)5B)5A)4B)0A)3T)3S)3I 656520952 SBR )4P&3,)38-1&X1 )1 )3E)5B)5A)4B)0A)3T)3S)3I 656520953 SBR )4R,)38-2&X1 )5B)1 )3E)5A)4B)0A)3T)3S)3Z 656520954 MZ IOCXR1-1,)4Q&2 )5B)1 )3E)5A)4B)0A)3T)3S)3I 656520955 MZ IOCXR1-1,)4O&2 )1 )3E)5A)4B)0A)3T)3S)2H 656520956 MZ IOCXR1-1,)4N&2 )5B)1 )3E)5A)4B)0A)3T)3S)3I 656520957 MZ IOCXR1-1,)4P&2 )5B)1 )3E)5A)4B)0A)3T)3S)3I 656520958 MZ IOCXR1-1,)4R-1 )5B)1 )3E)5A)4B)0A)3T)3S)3Z 656520959 MCW IOCTNT,IOCXR1 )1 )3E)5C)2H)5A)4B)0A)3T)3S 65652 0960 MCW IOCTNT,IOCXR1 )1 )3E)5B)5A)4B)0A)3T)3S 656520961 )4Q C )0L,)0M )3E)3S)5C)5A)4B)0A)3T 656520962 )4Q C )0L,)0M )3E)3S)3Z)5B)5A)4B)0A)3T 656520963 )4Q A 0,)0L )3E)1 )5A)4B)0A)3S)3I)5B)3T 656520964 C )0L,&)36 )3E)3S)3I)5B)5A)4B)0A 656520965 C IOCXR)32,)0M )3E)3B)3Z)5C)5A)4B)0A 6565K0966 BE )0N )3E)5C)5A)4B)0A 656520967 BE )0N )3E)3Z)5B)5A)4B)0A 656520968 BL )0N )3E)3I)5B)5A)4B)0A 656520969 )8R MCW 0,)0R&6 )3E)5C)5A)4B)0A)3S)3T 65652 0970 )8R MCW 0,)0R&3 )3E)1 )5B)5A)4B)0A)3S)3T 656520971 MCW )0L,*&4 )1 )3E)3S)5C)5A)4B)0A 656520972 )0R MRCM )34,)3C )3E)3S)5C)5A)4B)0A 656520973 )0R MRCM )34,0 )3E)3S)5C)5A)4B)0A)3T 656520974 )0R MRCM )3C,)34 )3E)5A)4B)0A)1 )3S)5B 656520975 )0R MRCM 0,)34 )3E)5A)4B)0A)1 )3S)5B)3T 656520976 SAR )0L )3E)3S)5C)5A)4B)0A 656520977 SBR *-4 )3E)5A)4B)0A)1 )3S)5B 656520978 SBR )0L )3E)5B)3S)3Z)5A)4B)0A 656520979 MLC )5K,)10 )3E)5A)4B)0A)1?)3S)5B)3I 65652 0980 A @1@,)7J )3E)2I)5A)4B)0A 656520981 A )33&)28-1,)7K )3E)2H)3C)5A)4B)0A 656520982 )4O A 0,)7K )3E)2H)5A)4B)0A)3S)3T 656520983 A )28-1&X)32,)7K )3E)2H)3B)3T)5A)4B)0A)5C 656520984 B IOCUXT )3E)5A)4B)0A 656520985 )0N SBR )0P&3 )3E)5A)4B)0A 656520986 S )3C-1&)38,)0L )3E)5A)4B)0A)1 )3S)5B)3I 656520987 )4N S 0,)0L )3E)5A)4B)0A)1 )3S)5B)3I)3T 656520988 SW )0R&4 )3E)5A)4B)0A)1 )3S)5B)3I 656520989 MLC )0R&6,)0Q&6 )3E)5A)4B)0A)1 )3S)5B)3I 65652 0990 MLC )0R&6,)1J&3 )3E)5A)4B)0A)1 )3S)5B)3I 656520991 CW )0R&4 )3E)5A)4B)0A)1 )3S)5B)3I 656520992 S )10,)0L )3E)5A)4B)0A)1?)3S)5B)3I 656520993 MLC )5K,)0Q&6 )3E)5A)4B)0A)1?)3S)5B)3I 656520994 MLC )5K,)1J&3 )3E)5A)4B)0A)1?)3S)5B)3I 656520995 )0Q MLCWA@}@,0 )3E)3S)5B)3I)5A)4B)0A 656520996 )1L MLCWA)0L,0 )3E)3S)5B)3I)5A)4B)0A 656520997 S )0L )3E)3S)5B)3I)5A)4B)0A 656520998 A @D@,)0L )3E)3S)5B)3I)5A)4B)0A 656520999 A )3C-1&)38,)0L )3E)5A)4B)0A)1 )3S)3I)5B 65652 1000 )4P A 0,)0L )3E)5A)4B)0A)1 )3S)3I)5B)3T 656521001 A )10,)0L )3E)5A)4B)0A)1?)3S)3I)5B 656521002 BCE )1K,)1M,B )3E)5A)4B)0A 656521003 MLC @N@,)1N )3E)5A)4B)0A 656521004 B )1P )3E)5A)4B)0A 656521005 )1K MLC @N@,)1M )3E)5A)4B)0A 656521006 )1R B )2J )3E)5A)4B)0A 656521007 MLC @B@,)1R )3E)5A)4B)0A 656521008 SW )2N&1 )5A)5B)3Z)3E)4B)0A)3B 6565K1009 MCW )3P&7,IOCTRW&7 )3E)4F)5C)5A)4B)0A 65652 1010 B IOCKBY )3E)4F)5C)5A)4B)0A 656521011 BW *&5,IOC007 )3E)4F)5C)5A)4B)0A 656521012 B )1P )3E)4F)5C)5A)4B)0A 656521013 )5R MN 0 )3E)5C)5A)4B)0A 656521014 SAR )2L )3E)5C)5A)4B)0A 656521015 SBR )2Q&6 )3?)3E)5C)5A)4B)0A 1016 C )2L,)7O )3?)3E)3Z)5C)5A)4B)0A 656521017 MCW IOCXR1,IOCTNT )3?)3E)3I)5C)5A)4B)0A 656521018 INCLD18000 )3?)3E)3I)5C)5A)4B)0A 6565K1019 ZA )3E&3,IOCAR5 )3?)3E)3I)5C)5A)4B)0A 6565K 1020 B IOCPCK )3?)3E)3I)5C)5A)4B)0A 6565K1021 MCW IOCAR5,IOCXR1 )3?)3E)3I)5C)5A)4B)0A 6565K1022 SBR IOCXR1,)3E&X1 )3?)3E)3I)5C)5A)4B)0A 6565K1023 C )2L,IOCXR1 )3?)3E)3I)5C)5A)4B)0A 656521024 BE *&19 )3S)3?)3E)5C)5A)4B)0A 1025 BE *&26 )3B)3?)3E)5C)5A)4B)0A 1026 MLC @N@,)1N )3?)3E)5C)5A)4B)0A)3B 1027 )2Q MLC @ @,0 )3?)3E)5C)5A)4B)0A 1028 MLCWA@}@,0 )3?)3E)5C)5A)4B)0A 1029 B )30 )3?)3E)5C)5A)4B)0A 1030 MCW IOCTNT,IOCXR1 )3?)3E)3I)5C)5A)4B)0A 656521031 MLCWA)2K,IOCXR)32 )3E)3Z)3B)5A)4B)0A 6565K1032 MLCWA)2K,)0L )3E)3S)5C)5A)4B)0A 656521033 MLCWA)2K,)0L )3E)3Z)3S)5B)5A)4B)0A 656521034 MLC )2K,)0R&6 )3E)5A)4B)0A)1 )3S)5B 656521035 MLC )2K,)5L )3E)5A)4B)0A)1?)3S)3I)5B 656521036 A )10,)5L )3E)5A)4B)0A)1?)3S)3I)5B 656521037 MLC )2K,)5K )3E)5A)4B)0A)1?)3I)3S)5B 656521038 MLCWA)2L,)0M )3E)3Z)5A)4B)0A 656521039 MLCWA)2L,)0M )3E)5C)3I)5A)4B)0A 65652 1040 MLC )5J,)1L&6 )3E)5A)5B)4B)3I)0A 656521041 MCW )3O,)0Q-5 )3E)5A)5B)4B)3I)0A)1 656521042 B )0P )3E)5A)4B)0A 656521043 )2J MLC @N@,)1R )3E)5A)4B)0A 656521044 SW )2N&2 )5A)5B)3Z)3E)4B)0A)3B 6565K1045 MCW )3N&7,IOCTRW&7 )3E)4F)5C)5A)4B)0A 656521046 B IOCKBY )3E)4F)5C)5A)4B)0A 656521047 BW *&5,IOC007 )3E)4F)5C)5A)4B)0A 656521048 B )1P )3E)4F)5C)5A)4B)0A 656521049 )5Q MN 0 )3E)5C)5A)4B)0A 65652 1050 SAR )2P )3E)5C)5A)4B)0A 656521051 SBR )3Q&6 )3?)3E)5C)5A)4B)0A 1052 C )2P,)7N )3?)3E)3Z)5C)5A)4B)0A 656521053 MCW IOCXR1,IOCTNT )3?)3E)3I)5C)5A)4B)0A 656521054 ZA )3D&3,IOCAR5 )3?)3E)3I)5C)5A)4B)0A 6565K1055 B IOCPCK )3?)3E)3I)5C)5A)4B)0A 6565K1056 MCW IOCAR5,IOCXR1 )3?)3E)3I)5C)5A)4B)0A 6565K1057 SBR IOCXR1,)3D&X1 )3?)3E)3I)5C)5A)4B)0A 6565K1058 C )2P,IOCXR1 )3?)3E)3I)5C)5A)4B)0A 656521059 BE *&19 )3S)3?)3E)5C)5A)4B)0A 1060 BE *&26 )3B)3?)3E)5C)5A)4B)0A 1061 MLC @N@,)1N )3?)3E)5C)5A)4B)0A)3B 1062 )3Q MLC @ @,0 )3?)3E)5C)5A)4B)0A 1063 MLCWA@}@,0 )3?)3E)5C)5A)4B)0A 1064 B )30 )3?)3E)5C)5A)4B)0A 1065 MCW IOCTNT,IOCXR1 )3?)3E)3I)5C)5A)4B)0A 656521066 MLCWA)2N,IOCXR)32 )3E)3Z)3B)5A)4B)0A 6565K1067 MLCWA)2N,)0L )3E)3S)5C)5A)4B)0A 656521068 MLCWA)2N,)0L )3E)3Z)3S)5B)5A)4B)0A 656521069 MLC )2N,)0R&6 )3E)5A)4B)0A)1 )3S)5B 65652 1070 MLC )2N,)5L )3E)5A)4B)0A)1?)3S)3I)5B 656521071 A )10,)5L )3E)5A)4B)0A)1?)3S)3I)5B 656521072 MLC )2N,)5K )3E)5A)4B)0A)1?)3I)3S)5B 656521073 MLCWA)2P,)0M )3E)3Z)5A)4B)0A 656521074 MLCWA)2P,)0M )3E)5C)3I)5A)4B)0A 656521075 MLC )2R,)1L&6 )3E)5B)3I)5A)4B)0A 656521076 MCW )2O,)0Q-5 )3E)5A)5B)4B)3I)0A)1 656521077 )0P B 0 )3E)5A)4B)0A 656521078 )0K SBR )1N&3 )3E)5A)4B)0A 656521079 )1M B )1N )3E)5A)4B)0A 65652 1080 )1P BCE *&5,IOCERH, )3E)5A)4B)0A 656521081 B IOCSRW )3E)5A)4B)0A 656521082 MLC IOCCAN,)3K&3 )3E)5A)4B)0A 656521083 MLC IOCCAN-4,*&7 )3E)5A)4B)0A 656521084 MLC @B@,)1M )3E)5A)4B)0A 656521085 BIN *-4,J )3E)5A)4B)0A 656521086 )3K SBR 0 )3E)5A)4B)0A 656521087 BCE )4J,)1M,B )3E)5A)4B)0A 656521088 )3M B )3N )3E)5A)4B)0A 656521089 )3P RT )45,)35 )3E)4X)5C)5A)4B)0A 65652 1090 )3P RTW )45,)35 )3E)4G)5C)5A)4B)0A 656521091 )3P WT )45,)35 )3E)4X)5B)5A)4B)0A 656521092 )3P WTW )45,)35 )3E)4G)5B)5A)4B)0A 656521093 ORG )3P&1 )3E)5A)4B)0A 656521094 DC @@@ )3E)5A)4B)0A 656521095 ORG )3P&8 )3E)5A)4B)0A 656521096 MLC IOCCNT,)35&13 )3E)5C)5A)4B)0A 1097 MLC @B@,)3M )3E)5A)4B)0A 656521098 CW )2N&1 )5A)5B)3Z)3E)4B)0A)3B 6565K1099 MLC )3R,IOCERH )3E)5A)4B)0A 65652 1100 MLC )3E)5A)4B)0A 656521101 MLC )3E)5A)4B)0A 656521102 B )1N-7 )3E)5A)4B)0A 656521103 )3N RT )45,)34 )3E)4X)5C)5A)4B)0A 656521104 )3N RTW )45,)34 )3E)4G)5C)5A)4B)0A 656521105 )3N WT )45,)34 )3E)4X)5B)5A)4B)0A 656521106 )3N WTW )45,)34 )3E)4G)5B)5A)4B)0A 656521107 ORG )3N&1 )3E)5A)4B)0A 656521108 DC @@@ )3E)5A)4B)0A 656521109 ORG )3N&8 )3E)5A)4B)0A 65652 1110 MLC IOCCNT,)34&13 )3E)5C)5A)4B)0A 1111 MLC @N@,)3M )3E)5A)4B)0A 656521112 CW )2N&2 )5A)5B)3Z)3E)4B)0A)3B 6565K1113 MLC )3L,IOCERH )3E)5A)4B)0A 656521114 MLC )3E)5C)5A)4B)0A 656521115 MLC )1J )3E)3Z)5B)5A)4B)0A 656521116 MCW )3E)3I)5B)5A)4B)0A 656521117 MCW )1O-1 )3E)3I)5B)5A)4B)0A 656521118 MLC )1J-1,IOCCAN-4 )3E)5C)5A)4B)0A 656521119 MCW )3E)3Z)5B)5A)4B)0A 65652 1120 A @1@,)5D-12 )3E)5A)4B)0A 656521121 )1N B 0 )3E)5A)4B)0A 656521122 MLC @B@,)1N )3E)5A)4B)0A 656521123 BCE )1K,)1M,B )3E)5A)4B)0A 656521124 B IOCSRW )3E)5A)4B)0A 656521125 MLC IOCCAN,)4K&3 )3E)5C)5A)4B)0A 656521126 BIN *-4,J )3E)5C)5A)4B)0A 656521127 )4K SBR 0 )3E)5C)5A)4B)0A 656521128 MLC IOCNOP,IOCERH )3E)5A)4B)0A 656521129 MLC )3E)5A)4B)0A 65652 1130 MLC )3E)5A)4B)0A 656521131 B )1R )3E)5A)4B)0A 656521132 )4J MLC IOCNOP,IOCERH )3E)5A)4B)0A 656521133 MLC )3E)5A)4B)0A 656521134 MLC )3E)5A)4B)0A 656521135 B )1N )3E)5A)4B)0A 656521136 )4R DCW @ @ )3E)5A)4B)0A)3Z)5B)3T)3S 656521137 )7R DCW @ @ )3E)5A)4B)0A)5B)3T)3S 656521138 )7R DCW @ @ )5C)2H)3E)5A)4B)0A)3T)3S 656521139 )5L DCW @ @ )3E)5A)4B)0A)1?)3S)3I)5B 65652 1140 )5K DCW @ @ )3E)5A)4B)0A)1?)3I)3S)5B 656521141 )0L DCW @ @ )3E)3S)5C)5A)4B)0A 656521142 )0L DCW @ @ )3E)3S)3I)5B)5A)4B)0A 656521143 )0L DCW @ @ )3E)3S)3Z)5B)5A)4B)0A 656521144 )0M DCW @ @ )3E)5C)5A)4B)0A 656521145 )0M DCW @ @ )3E)3Z)5B)5A)4B)0A 656521146 MLC @B@,)1M )3E)5A)4B)0A 656521147 )1J SBR )5R&3 )3E)5C)5A)4B)0A 656521148 )1J DCW @N @ )3E)5B)3Z)5A)4B)0A 656521149 )1O CW 0 )3E)3I)5B)5A)4B)0A 65652 1150 )3R DCW )4L )3E)5A)4B)0A 656521151 )4L EQU )3P&7 )3E)5A)4B)0A 656521152 )1J CW 0 )3E)3I)5B)5A)4B)0A 656521153 SBR )5Q&3 )3E)5C)5A)4B)0A 656521154 )3L DCW )4M )3E)5A)4B)0A 656521155 )4M EQU )3N&7 )3E)5A)4B)0A 656521156 )2K DCW &)35 )3E)3Z)5A)4B)0A 656521157 )2N DCW &)34 )3E)3Z)5A)4B)0A 656521158 DC #2 )5A)5B)3Z)3E)4B)0A)3B 6565K1159 )2K DCW &)35&4 )3E)3I)5A)4B)0A 65652 1160 )2N DCW &)34&4 )3E)3I)5A)4B)0A 656521161 )2L DCW @ @ )3E)5C)5A)4B)0A 656521162 )2L DCW @ @ )3E)3Z)5B)5A)4B)0A 656521163 )2P DCW @ @ )3E)5C)5A)4B)0A 656521164 )2P DCW @ @ )3E)3Z)5B)5A)4B)0A 656521165 )5J DCW &)35&3 )3E)5A)5B)4B)3I)0A 656521166 )2R DCW &)34&3 )3E)3I)5B)5A)4B)0A 656521167 )3O DCW )1O&3 )3E)3I)5B)5A)4B)0A)1 656521168 )2O DCW )1J&3 )3E)3I)5B)5A)4B)0A)1 656521169 )6J MLC @N@,)5D&4 )3E)5A)4B)0A 65652 1170 MCW &)0N,)0J&10 )3Z)3E)5A)4B)0A)3C)3S 656521171 MCW &)0N,)4Q&10 )3Z)3E)5A)4B)0A)3T)3S 656521172 MCW &)0N,)4Q&17 )1 )3I)5B)3E)5A)4B)0A)3S)3T 656521173 MCW &)0N,)0J&17 )3E)3B)3Z)5B)5A)4B)0A)2Y 6565K1174 MCW &)0N,)0J&24 )3E)3B)3Z)5B)5A)4B)0A)2H 6565K1175 MCW &)0N,)0J&17 )3E)3B)3Z)5C)5A)4B)0A 656521176 MCW &)0N,)0J&17 )5A)4B)0A)3S)3I)5B)1 )3E)3C 656521177 MCW &)0N,)0J&38 )5A)4B)0A)3S)3I)5B)1?)3E 656521178 MCW &IOCUXT,)0N-1 )3E)5A)4B)0A 656521179 MCW @B@,)1M )5B)5A)4B)0A)3E 65652 1180 MCW @B@,)1R )3E)5A)4B)0A 656521181 MCW @B@,)1N )5B)5A)4B)0A)3E 656521182 MCW &)1N,)4J&12 )3E)5A)4B)0A 656521183 MCW @B@,)3M )3E)5A)4B)0A 656521184 MCW &)1R,)4J-1 )3E)5A)4B)0A 656521185 MLC IOCXR1,)6L )3E)3Z)5B)5A)4B)0A 656521186 SBR IOCXR1,)3E )3E)3Z)5B)5A)4B)0A 656521187 MN )3F&1&X1 )3E)3Z)5B)5A)4B)0A 656521188 SAR )2L )3E)3Z)5B)5A)4B)0A 656521189 SBR IOCXR1,)3D )3E)3Z)5B)5A)4B)0A 65652 1190 MN )3F&1&X1 )3E)3Z)5B)5A)4B)0A 656521191 SAR )2P )3E)3Z)5B)5A)4B)0A 656521192 MLC )6L,IOCXR1 )3E)3Z)5B)5A)4B)0A 656521193 MLC @N@,)1M )3E)5C)5A)4B)0A 656521194 MLC @N@,)1N )3E)5C)5A)4B)0A 656521195 MLC &)6K,)0P&3 )3E)5C)5A)4B)0A 656521196 MLC &)6K,)0P&3 )3E)5B)5A)4B)0A 656521197 MCW @000D@,)0L )3E)5A)5B)4B)3I)0A 656521198 MCW IOCXR1,)6L )3?)3E)3Z)5C)5A)4B)0A 656521199 SBR IOCXR1,)3E )3?)3E)3Z)5C)5A)4B)0A 65652 1200 MLC IOCXR1,)6L )3I)3?)3E)5C)5A)4B)0A 1201 SBR IOCXR1,)3E )3I)3?)3E)5C)5A)4B)0A 1202 CW )3F&X1 )3?)3E)5C)5A)4B)0A 1203 SBR )2Q&13,)3F&1&X1 )3?)3E)5C)5A)4B)0A 1204 MLCWA@}@ )3?)3E)5C)5A)4B)0A 1205 MN )3F&1&X1 )3?)3E)3Z)5C)5A)4B)0A 656521206 SAR )7O )3?)3E)3Z)5C)5A)4B)0A 656521207 SBR IOCXR1,)3D )3?)3E)3Z)5C)5A)4B)0A 656521208 SBR IOCXR1,)3D )3I)3?)3E)5C)5A)4B)0A 1209 CW )3F&X1 )3?)3E)5C)5A)4B)0A 1210 SBR )3Q&13,)3F&1&X1 )3?)3E)5C)5A)4B)0A 1211 MLCWA@}@ )3?)3E)5C)5A)4B)0A 1212 MN )3F&1&X1 )3?)3E)3Z)5C)5A)4B)0A 656521213 SAR )7N )3?)3E)3Z)5C)5A)4B)0A 656521214 MCW )6L,IOCXR1 )3?)3E)3Z)5C)5A)4B)0A 656521215 MLC )6L,IOCXR1 )3I)3?)3E)5C)5A)4B)0A 1216 MN )5D-3,)3P&3 )5A)3E)4B)0A 6565K1217 MN )5D-3,)3N&3 )5A)3E)4B)0A 6565K1218 MCW @B@,)5D&39 )5A)5B)3E)4B)0A 6565K1219 B )2J )3E)5B)5A)4B)0A 65652 1220 )6K B )5D )3E)5B)5A)4B)0A)3S 656521221 )6K B IOCUXT )3E)5B)5A)4B)0A)3B 656521222 )6K B )5D )3E)3S)5C)5A)4B)0A 656521223 B )0J-4 )3E)3B)5C)5A)4B)0A 6565K1224 )6K B )0J&7 )3E)3B)5C)5A)4B)0A 656521225 )6L DCW @ @ )3E)3Z)5B)5A)4B)0A 656521226 )6L DCW @ @ )3?)3E)3Z)5C)5A)4B)0A 656521227 )6L DCW @ @ )3I)3?)3E)5C)5A)4B)0A 1228 )7O DCW @ @ )3?)3E)3Z)5C)5A)4B)0A 656521229 )7N DCW @ @ )3?)3E)3Z)5C)5A)4B)0A 65652 1230 )7P DCW @ @ )3?)3E)3I)5C)5A)4B)0A 656521231 )2M MCW &)6N,)0J&10 )5C)3E)5A)4B)0A)3S)3C 656521232 )2M MCW &)6N,)4Q&10 )5C)3E)5A)4B)0A)3S)3T 656521233 )2M MCW &)6N,)0J&17 )3E)3B)5A)5C)4B)0A 656521234 S @10@,)5D-11 )3E)5A)5C)0A)4B 6565K1235 MLC &)6N,)1N&3 )3E)5A)5C)4B)0A 656521236 MLC &)6N,)0P&3 )3E)5A)5C)4B)0A 656521237 MCW &)6N,)4J-1 )3E)5A)5C)4B)0A 656521238 MCW &)0J,)4J&12 )3E)5A)5C)4B)0A)3S 6565K1239 MCW &)0J&7,)4J&12 )3E)5A)5C)4B)0A)3B 6565K 1240 )2M MCW &)1P,)0J&10 )5B)3E)5A)4B)0A)3Z)3C 656521241 )2M EQU *&1 )5A)5B)3Z)3E)4B)0A)3B 6565K1242 )2M MCW &)1P,)4Q&10 )3Z)5B)3E)5A)4B)0A)3S)3T 656521243 )2M MCW &)3M,)4J&12 )3E)3I)5A)5B)4B)0A 656521244 MCW &)3M,)4J&12 )5A)5B)3Z)3E)4B)0A)3S 6565K1245 MCW &)6N,)1N&3 )5A)5B)3S)3E)4B)0A 6565K1246 MCW &)3M,)0P&3 )5A)5B)3S)3E)4B)0A 6565K1247 MLC @N@,)5D&39 )5A)3E)5B)4B)0A 6565K1248 B IOCEOR )5A)5B)3Z)3E)4B)0A)3B 6565K1249 NOP )5D-17 )5A)5B)3Z)3E)4B)0A)3B 6565K 1250 B IOCNPR-17 )3E)5A)4B)0A 1251 )6N MCW @B@,)5D&4 )3E)5A)4B)0A 656521252 MCW @ @,)3D&1 )3E)5A)4B)5C)0A 656521253 MCW @ @,)3E&1 )3E)5A)4B)5C)0A 656521254 B IOCEOR )3E)5A)4B)0A 656521255 NOP )5D-17 )3E)5A)4B)0A 656521256 B IOCUXT )5A)5B)3Z)3E)4B)0A)3B 6565K1257 B )6J )5A)5C)3E)4B)0A 6565K1258 B )6J )5A)5B)3E)4B)0A)3I 6565K1259 B )6J )5A)5B)3Z)3E)4B)0A)3S 6565K 1260 )6Q MCW IOCXR1,IOCPDS )3Z)5B)3E)5A)4B)0A)3S)3T 656521261 C )0L,)0M )3Z)5B)3E)5A)4B)0A)3S)3T 656521262 BE )8J )3Z)5B)3E)5A)4B)0A)3S)3T 656521263 MCW &)8J,)4Q&10 )3Z)5B)3E)5A)4B)0A)3S)3T 656521264 MCW &)4Q,)0N-1 )3Z)5B)3E)5A)4B)0A)3S)3T 656521265 MCW )0L,IOCXR1 )3Z)5B)3E)5A)4B)0A)3S)3T 656521266 SBR IOCXR1,)38-2&X1 )3Z)5B)3E)5A)4B)0A)3S)3T 656521267 )8K MCW @)3G@,0&X1 )3Z)5B)3E)5A)4B)0A)3S)3T 656521268 )8K MCW @ @,0&X1 )3X)3Z)5B)3E)5A)4B)0A)3S)3T 656521269 SBR IOCXR1 )3Z)5B)3E)5A)4B)0A)3S)3T 65652 1270 C IOCXR1,)0L )3Z)5B)3E)5A)4B)0A)3S)3T 656521271 BE *&5 )3Z)5B)3E)5A)4B)0A)3S)3T 656521272 B )8K )3E)3Z)5B)5A)4B)0A)3S)3T 656521273 MCW @)3G@,0&X1 )3G)3E)3Z)5B)5A)4B)0A)3S)3T 656521274 MCW @ @,0&X1 )3X)3E)3Z)5B)5A)4B)0A)3S)3T 656521275 MRCM 0&X1,0&X1 )3E)3Z)5B)5A)4B)0A)3S)3T 656521276 SBR )0L )3E)3Z)5B)5A)4B)0A)3S)3T 656521277 A @1@,)7J )2I)3E)3Z)5B)5A)4B)0A)3S)3T 656521278 A )28-1&X1,)7K )2H)3E)3Z)5B)5A)4B)0A)3S)3T 656521279 MCW IOCPDS,IOCXR1 )3E)3Z)5B)5A)4B)0A)3S)3T 65652 1280 B )6Q )3E)3Z)5B)5A)4B)0A)3S)3T 656521281 )6Q MLC IOCXR1,IOCPDS )3E)3C)3Z)5B)5A)4B)0A 656521282 C )0L,)0M )3E)3C)3Z)5B)5A)4B)0A 656521283 BE )8J )3E)3C)3Z)5B)5A)4B)0A 656521284 MLC &)8J,)0J&10 )3E)3C)3Z)5B)5A)4B)0A 656521285 MCW &)0J,)0N-1 )3E)3C)3Z)5B)5A)4B)0A 656521286 MLC &)33-2&)38,IOCXR1 )3E)3C)3Z)5B)5A)4B)0A 656521287 )8K MCW @)3G@,0&X1 )3E)3C)3G)3Z)5B)5A)4B)0A 656521288 )8K MCW @ @,0&X1 )3E)3C)3X)3Z)5B)5A)4B)0A 656521289 SBR IOCXR1 )3E)3C)3Z)5B)5A)4B)0A 65652 1290 C IOCXR1,&)33-1 )3E)3C)3Z)5B)5A)4B)0A 656521291 BE *&5 )3E)3C)3Z)5B)5A)4B)0A 656521292 B )8K )3E)3C)3Z)5B)5A)4B)0A 656521293 MCW IOCPDS,IOCXR1 )3E)3C)3Z)5B)5A)4B)0A 656521294 MCW )0L,*&7 )3E)3C)3Z)5B)5A)4B)0A 656521295 MRCM )33,0 )3E)3C)3Z)5B)5A)4B)0A 656521296 SBR )0L )3E)3C)3Z)5B)5A)4B)0A 656521297 A @1@,)7J )2I)3E)3C)3Z)5B)5A)4B)0A 6565K1298 B )6Q )3E)3C)3Z)5B)5A)4B)0A 656521299 )6Q C IOCXR)32,)0M )3E)3B)3Z)5B)5A)4B)0A 6565K 1300 BE )8J )3E)3B)3Z)5B)5A)4B)0A 656521301 C IOCXR)32,)2K )5A)5B)3Z)3E)4B)0A)3B 6565K1302 BE )8J-7 )5A)5B)3Z)3E)4B)0A)3B 6565K1303 C IOCXR)32,)2N )5A)5B)3Z)3E)4B)0A)3B 6565K1304 BE )8J-7 )5A)5B)3Z)3E)4B)0A)3B 6565K1305 BCE *&9,*-2, )5A)5B)3Z)3E)4B)0A)3B 6565K1306 SW )5A)5B)3Z)3E)4B)0A)3B 6565K1307 A @1@,)5N )5A)5B)3Z)3E)4B)0A)3B 6565K1308 MCW IOCXR)32,IOCPDS )3E)3B)3Z)5B)5A)4B)0A 6565K1309 MRCM 2&X)32,0&X)32 )3E)3B)3Z)5B)5A)4B)0A 65652 1310 SBR IOCXR)32 )3E)3B)3Z)5B)5A)4B)0A 6565K1311 )8K MCW @)37@,0&X)32 )3G)3E)3B)3Z)5B)5A)4B)0A 656521312 )8K MCW @ @,0&X)32 )3X)3E)3B)3Z)5B)5A)4B)0A 656521313 SBR IOCXR)32 )3E)3B)3Z)5B)5A)4B)0A 6565K1314 C IOCXR)32,IOCPDS )3E)3B)3Z)5B)5A)4B)0A 6565K1315 BE *&5 )3E)3B)3Z)5B)5A)4B)0A 656521316 B )8K )3E)3B)3Z)5B)5A)4B)0A 656521317 MCW @)3G@,0&X)32 )3E)3B)3G)3Z)5B)5A)4B)0A 656521318 MCW @ @,0&X)32 )3E)3B)3X)3Z)5B)5A)4B)0A 656521319 MRCM 0&X)32,0&X)32 )3E)3B)3Z)5B)5A)4B)0A 65652 1320 SBR IOCXR)32 )3E)3B)3Z)5B)5A)4B)0A 6565K1321 A @1@,)7J )3E)2I)3B)3Z)5B)5A)4B)0A 656521322 A )28-1&X)32,)7K )3E)2H)3B)3Z)5B)5A)4B)0A 656521323 B )6Q )3E)3B)3Z)5B)5A)4B)0A 656521324 S @1@,)5N )5A)5B)3Z)3E)4B)0A)3B 6565K1325 )8J MCW &)8L,)1N&3 )3E)3Z)5B)5A)4B)0A 656521326 MCW &)8L,)4J&12 )3E)3Z)5B)5A)4B)0A 656521327 BWZ *&8,)2N&1,1 )5A)5B)3Z)3E)4B)0A)3B 6565K1328 A @1@,)5N )5A)5B)3Z)3E)4B)0A)3B 6565K1329 BWZ *&8,)2N&2,1 )5A)5B)3Z)3E)4B)0A)3B 6565K 1330 A @1@,)5N )5A)5B)3Z)3E)4B)0A)3B 6565K1331 BCE *&8,)1M,B )5A)5B)3Z)3E)4B)0A)3S 6565K1332 MCW @B@,)5N )5A)5B)3Z)3E)4B)0A)3S 6565K1333 MCW @N@,)1M )3E)3Z)5B)5A)4B)0A 656521334 B )1P )3E)3Z)5B)5A)4B)0A 656521335 )8L S @1@,)5N )3E)3Z)5B)5A)4B)0A 656521336 C @A@,)5N )5A)5B)3Z)3E)4B)0A)3S 6565K1337 C @B@,)5N )5A)5B)3Z)3E)4B)0A)3B 6565K1338 BE )3M )3E)3Z)5B)5A)4B)0A 656521339 MCW @B@,)5D )3E)3Z)5B)5A)4B)0A 65652 1340 MCW @B@,)5D&4 )3E)3Z)5B)5A)4B)0A 656521341 B IOCUXT )3E)3Z)5B)5A)4B)0A 656521342 )5N DCW @A@ )5A)5B)3Z)3E)4B)0A)3B 6565K1343 )5N DCW @ @ )5A)5B)3Z)3E)4B)0A)3S 6565K1344 )6Q MCW &)8L,)1N&3 )3E)3I)5B)5A)4B)0A 656521345 MCW &)8L,)0P&3 )3E)3I)5B)5A)4B)0A 656521346 MCW &)8L,)4J&12 )3E)5A)4B)0A)5B)3I 656521347 B )0N&11 )3E)3I)5B)5A)4B)0A 656521348 )8L BCE *&5,)1M,B )3E)3I)5B)5A)4B)0A 656521349 B )1P )3E)3I)5B)5A)4B)0A 65652 1350 MCW @B@,)5D )3E)3I)5B)5A)4B)0A 656521351 MCW @B@,)5D&4 )3E)3I)5B)5A)4B)0A 656521352 B IOCUXT )3E)3I)5B)5A)4B)0A 656521353 )6Q MCW @B@,)5D )3E)3I)5C)5A)4B)0A 656521354 MCW @B@,)5D&4 )3E)3I)5C)5A)4B)0A 656521355 B IOCUXT )3E)3I)5C)5A)4B)0A 656521356 )6Q MCW @B@,)5D )3E)3Z)5C)5A)4B)0A 656521357 MCW @B@,)5D&4 )3E)3Z)5C)5A)4B)0A 656521358 B IOCUXT )3E)5B)3Z)5A)4B)0A 656521359 B IOCUXT )3E)3Z)5C)5A)4B)0A 65652 1360 )7L MCW &IOCUXT,)0P&3 )3E)5C)5A)4B)0A 656521361 B )0N&4 )3E)5C)5A)4B)0A 656521362 )7L MCW &IOCUXT,)0P&3 )3E)5B)3I)5A)4B)0A 656521363 B )0N&4 )3E)5B)3I)5A)4B)0A 656521364 )7L MCW &)7M,)8L&36 )3E)5B)3Z)5A)4B)0A 6565K1365 B )6Q )3E)5B)3Z)5A)4B)0A 656521366 )7M MCW &)0N,)0J&10 )3E)5B)3Z)5A)4B)0A)3C 656521367 )7M MCW &)0N,)0J&24 )3E)5B)3Z)5A)4B)0A)3B 656521368 )7M MCW &)0N,)4Q&10 )3E)5B)3Z)5A)4B)0A)3S)3T 656521369 MCW &IOCUXT,)0N-1 )3E)5B)3Z)5A)4B)0A 65652 1370 MCW &)1N,)4J&12 )3E)5B)3Z)5A)4B)0A 656521371 MCW &IOCUXT,)8L&36 )3E)5B)3Z)5A)4B)0A 6565K1372 MCW @N@,)5D )3E)5B)3Z)5A)4B)0A 656521373 MCW @N@,)5D&4 )3E)5B)3Z)5A)4B)0A 656521374 B IOCUXT )3E)5B)3Z)5A)4B)0A 656521375 INCLD15000 )3E)4F)5C)5A)4B)0A 656521376 * DTF ROUTINE FOR OVERLAP TAPE UNBLOCKED RECORDS )0/)0A 656521377 BCE *&5,IOCERH, )3E)5A)4S)0A 656521378 B IOCSRW )3E)5A)4S)0A 656521379 )0J CW *-1 )3E)5C)5A)4S)0A)3I 6565K 1380 )0J NOP 0 )3E)5C)5A)4S)0A)3Z 6565K1381 MLC IOCCAN,)0K&3 )3E)5A)4S)0A 656521382 MLC IOCCAN-4,*&7 )3E)5A)4S)0A 656521383 MLC 0,0 )3E)5A)4S)0A 656521384 BIN *-4,J )3E)5A)4S)0A 656521385 )0K SBR )0L )3E)5A)4S)0A 656521386 SW IOCUXT&1 )3E)5A)4S)0A)5F)5C 6565K1387 MCW IOCUXT&3,*&4 )3E)5A)4S)0A)5F)5C 6565K1388 MN 0 )3E)5A)4S)0A)5F)5C 6565K1389 SAR *&4 )3E)5A)4S)0A)5F)5C 6565K 1390 MCW 0,)5D-7 )3E)5A)4S)0A)5F)5C 6565K1391 CW IOCUXT&1 )3E)5A)4S)0A)5F)5C 6565K1392 B IOCKBY )3E)4F)5C)5A)4S)0A 656521393 BW )0N,IOC007 )3E)4F)5C)5A)4S)0A 656521394 BCE )0Q,)0N,B )3E)4F)5C)5A)4S)0A 656521395 B )0P )3E)4F)5C)5A)4S)0A 656521396 )0N B )0P )3E)5A)4S)0A 656521397 )0Q RT )45,)35 )3E)4X)5C)5A)4S)0A 656521398 )0Q RTW )45,)35 )3E)4G)5C)5A)4S)0A 656521399 )0Q WT )45,)35 )3E)4X)5B)5A)4S)0A 65652 1400 )0Q WTW )45,)35 )3E)4G)5B)5A)4S)0A 656521401 ORG )0Q&1 )3E)5A)4S)0A 656521402 DC @@@ )3E)5A)4S)0A 656521403 ORG )0Q&8 )3E)5A)4S)0A 656521404 MLC IOCCNT,)35&13 )3E)5C)5A)4S)0A 1405 MLC @B@,)0N )3E)5A)4S)0A 656521406 MLC )0R,IOCERH )3E)5A)4S)0A 656521407 MLC )1J&3,IOCCAN )3E)5A)4S)0A 656521408 MLC )3E)5A)4S)0A 656521409 MCW )7O,)7Q )3?)3E)5A)4S)0A 65652 1410 MCW )1K,IOCXR)32 )3E)5A)4S)0A)3B 6565K1411 MCW )1K,)1L&3 )3E)5A)4S)0A)3S)5C 656521412 MCW )1K,)1L&6 )3E)5A)4S)0A)3S)5B 656521413 MCW )0P&7,IOCTRW&7 )3E)4F)5C)5A)4S)0A 656521414 MCW &)2J,)1L&10 )3E)5A)4S)0A)3S)5B 656521415 MCW )2J,*&4 )3E)5A)4S)0A)3S)5B)3I 6565K1416 CW 0 )3E)5A)4S)0A)3S)5B)3I 6565K1417 B )1M )3E)5C)5A)4S)0A 656521418 B )6P )3E)5A)5B)4S)0A 656521419 )0P RT )45,)34 )3E)4X)5C)5A)4S)0A 65652 1420 )0P RTW )45,)34 )3E)4G)5C)5A)4S)0A 656521421 )0P WT )45,)34 )3E)4X)5B)5A)4S)0A 656521422 )0P WTW )45,)34 )3E)4G)5B)5A)4S)0A 656521423 ORG )0P&1 )3E)5A)4S)0A 656521424 DC @@@ )3E)5A)4S)0A 656521425 ORG )0P&8 )3E)5A)4S)0A 656521426 MLC IOCCNT,)34&13 )3E)5C)5A)4S)0A 1427 MLC @N@,)0N )3E)5A)4S)0A 656521428 MLC )1N,IOCERH )3E)5A)4S)0A 656521429 MLC )3E)5A)4S)0A 65652 1430 MLC )3E)5A)4S)0A 656521431 )6M B )6R )3E)5A)4S)0A)5C 1432 MCW )1P,IOCXR)32 )3E)5A)4S)0A)3B 6565K1433 MCW )7P,)7Q )3?)3E)5A)4S)0A 656521434 MLC )1P,)1L&3 )3E)3S)5C)5A)4S)0A 656521435 MCW )1P,)1L&6 )3E)5A)4S)0A)3S)5B 656521436 MCW )0Q&7,IOCTRW&7 )3E)4F)5C)5A)4S)0A 656521437 )1M MN 0 )3E)5C)5A)4S)0A 656521438 SAR )0L )3E)5C)5A)4S)0A 656521439 SBR )3Q&6 )3?)3E)5C)5A)4S)0A 1440 C )0L,)7Q )3?)3E)5C)5A)4S)0A 656521441 BE *&12 )3?)3E)5C)5A)4S)0A 1442 )3Q MLC @ @,0 )3?)3E)5C)5A)4S)0A 1443 B )30 )3?)3E)5C)5A)4S)0A 1444 MCW )0L,*&4 )3E)5A)4S)0A)3S)5C 656521445 MCW &)0O,)1L&10 )3E)5A)4S)0A)3S)5B 656521446 MCW )0O,*&4 )3E)5A)4S)0A)3S)5B)3I 6565K1447 CW 0 )3E)5A)4S)0A)3S)5B)3I 6565K1448 SW 0 )3E)5A)4S)0A)3S)5C 656521449 )6P EQU *&1 )3E)5A)4S)0A)3S)3C 65652 1450 )6P SW IOCUXT&1 )3E)5A)4S)0A)3S)3T 656521451 MCW IOCUXT&3,*&8 )3E)5A)4S)0A)3S)3T 656521452 CW IOCUXT&1 )3E)5A)4S)0A)3S)3T 656521453 C 0 )3E)5A)4S)0A)3S)3T 656521454 C )3E)5A)4S)0A)3S)3T 656521455 C )3E)5A)4S)0A)3S)3T 656521456 SAR )8J&3 )3E)5A)4S)0A)3S)3T 656521457 SBR )8K&3 )3E)5A)4S)0A)3S)3T)2H 656521458 )8J MCW 0,)1L&3 )5B)3E)5A)4S)0A)3S)3T 656521459 )8J MCW 0,)1L&6 )5C)3E)5A)4S)0A)3S)3T 65652 1460 )1L MRCM 0,)34 )5B)3E)5A)4S)0A)3S)3T 656521461 )1L MRCM )34,0 )5C)3E)5A)4S)0A)3S)3T 656521462 )1L MRCM )33,)34 )5B)3E)5A)4S)0A)3S)3C 656521463 )1L MRCM )34,)33 )5C)3E)5A)4S)0A)3S)3C 656521464 SBR )2J )5B)3E)5A)4S)0A)3S 656521465 SBR *&4 )3E)5A)4S)0A)3S)3I 6565K1466 MN 0 )3E)5A)4S)0A)3S)3I 6565K1467 SAR *&7 )3E)5A)4S)0A)3S)3I 6565K1468 MLCWA@}@,0 )3E)5A)4S)0A)3S)3I 6565K1469 )6P A @1@,)5D-12 )3E)5A)4S)0A)3B 65652 1470 A @1@,)5D-12 )3E)5A)4S)0A)3S 656521471 A @1@,)7J )3E)5A)4S)0A)2I 656521472 A )33&)28-1,)7K )3E)5A)4S)0A)2H)3C 656521473 A )28-1&X)32,)7K )3E)5A)4S)0A)2H)3B 656521474 MCW IOCXR1,IOCTNT )2H)3E)5A)4S)0A)3S)3T 656521475 )8K MCW 0,IOCXR1 )2H)3E)5A)4S)0A)3S)3T 656521476 SBR )8L&3,)28-1&X1 )2H)3E)5A)4S)0A)3S)3T 656521477 )8L A 0,)7K )2H)3E)5A)4S)0A)3S)3T 656521478 MCW IOCTNT,IOCXR1 )2H)3E)5A)4S)0A)3S)3T 656521479 )2L B IOCUXT )3E)5A)4S)0A 65652 1480 )0L DCW &)0L-1 )3E)5A)4S)0A 656521481 MLC )0L,)0J&3 )3E)5A)5C)4S)0A)3I 6565K1482 NOP 0,0 )3E)5A)5C)4S)0A)3Z 6565K1483 DCW @N @ )3E)5A)5B)4S)0A 656521484 )1J SBR )1M&3 )3E)5C)5A)4S)0A 656521485 )1J SBR )0L )3E)5B)5A)4S)0A 656521486 )1N DCW )3J )3E)5A)4S)0A 656521487 )3J EQU )0P&7 )3E)5A)4S)0A 656521488 )0R DCW )2N )3E)5A)4S)0A 656521489 )2N EQU )0Q&7 )3E)5A)4S)0A 65652 1490 )1K DCW &)34 )3E)5A)4S)0A 656521491 )1P DCW &)35 )3E)5A)4S)0A 656521492 )2J DCW )2J-1 )3E)5A)4S)0A 656521493 DCW @ @ )3E)3S)5B)5A)4S)0A 656521494 )0O DCW )0O-1 )3E)5A)5B)4S)0A 656521495 DCW @ @ )3E)3S)5B)5A)4S)0A 656521496 )2Q DCW @ @ )3E)3S)5B)5A)4S)0A 656521497 )6J MLC @N@,)5D&4 )3E)5A)4S)0A 656521498 MCW &)0P,)0N&3 )3E)5A)4S)0A 656521499 MCW @B@,)0N )3E)5A)4S)0A 65652 1500 MCW )8R&3,)6P&3 )3E)5A)4S)0A)3S)3T 656521501 MCW &)0L-1,)0L )3E)5A)4S)0A)3S)5C 656521502 MCW &IOCUXT,)2L&3 )3E)5A)4S)5B)0A)3T 656521503 MCW )1K,IOCXR)32 )3E)5A)4S)5B)0A)3B 6565K1504 CW )3D&)3H )3E)5A)4S)0A)3?)5C 1505 CW )3E&)3H )3E)5A)4S)0A)3?)5C 1506 B )5D )3E)5A)4S)0A)3S)5C 656521507 B )5D )3E)5A)4S)0A)5C)3B 656521508 )6R MLC @N@,)6M )3E)5A)4S)0A)5C 1509 B )5D )3E)5A)4S)0A)5C 65652 1510 B )0P-29 )3E)5A)4S)0A)3S)5B)3I 6565K1511 B )0P-18 )3E)5A)4S)0A)3S)5B)3Z 6565K1512 B )5D )3E)5A)4S)0A)3B)5S 656521513 B IOCUXT )3E)5A)4S)0A)3B)5B 656521514 )2M MLC @B@,)0N )3E)5A)4S)5C)0A 656521515 MLC &)6N,)0N&3 )3E)5A)4S)5C)0A 656521516 )2M MCW )6O,)6P&3 )3E)5A)4S)5B)0A)3C 656521517 )2M MCW )6O,)2L&3 )3E)5A)4S)5B)0A)3T 656521518 BCE *&15,)5D-4, )3E)5A)4S)0A 656521519 MN )5D-4,)0Q&3 )3E)5A)4S)0A 65652 1520 MN )5D-4,)0P&3 )3E)5A)4S)0A 656521521 B IOCNPR-17 )3E)5A)4S)0A 1522 )6N MCW @B@,)5D&4 )3E)5A)4S)0A 656521523 MCW @B@,)6M )3E)5A)4S)0A)5C 6565K1524 MCW @ @,)3D&1 )3E)5A)4S)5C)0A 656521525 MCW @ @,)3E&1 )3E)5A)4S)5C)0A 656521526 B IOCEOR )3E)5A)4S)0A 656521527 NOP )5D-17 )3E)5A)4S)0A 656521528 B )6J )3E)5A)4S)0A 656521529 )6O B )6N )3E)5A)4S)5B)0A 65652 1530 )8R SW IOCUXT&1 )3E)5A)4S)0A)3S)3T 656521531 )6Q MCW )8M&3,)6P&3 )3E)5A)4S)0A)3S 656521532 B )0N )3E)5A)4S)0A)3S 656521533 MCW @B@,)5D )3E)5A)4S)0A)3S 656521534 )6Q MCW @B@,)5D )3E)5A)4S)0A)3B 656521535 MCW @B@,)5D&4 )3E)5A)4S)0A 656521536 B IOCUXT )3E)5A)4S)0A 656521537 )7L B IOCUXT )3E)5A)4S)0A 656521538 )7O DCW )34&)38 )3?)3E)5A)4S)0A 656521539 )7P DCW )35&)38 )3?)3E)5A)4S)0A 65652 1540 )7Q DCW @ @ )3?)3E)5A)4S)0A 656521541 )8M B )6Q&11 )3E)5A)4S)0A)3S 656521542 INCLD15000 )3E)4F)5C)5A)4S)0A 656521543 * DTF ROUTINE FOR TAPE OVERLAP UNBLOCKED ONE I/O AREA )0A)0/ 656521544 BCE *&5,IOCERH, )3V)4S)5A)0A 656521545 B IOCSRW )3V)4S)5A)0A 656521546 )0J CW *-1 )3V)3C)5C)4S)5A)0A 656521547 MCW IOCCAN,)0K&3 )3V)4S)5A)0A 656521548 MCW IOCCAN-4,*&7 )3V)4S)5A)0A 656521549 MCW 0,0 )3V)4S)5A)0A 65652 1550 BIN *-4,J )3V)4S)5A)0A 656521551 )0K SBR )0L )3V)4S)5A)0A 656521552 )0J CW *-1 )3V)5B)4S)5A)0A)3I 6565K1553 )0J NOP 0 )3V)5B)4S)5A)0A)3Z 6565K1554 MCW )0P&7,IOCTRW&7 )3V)4F)5C)5A)4S)0A 656521555 B IOCKBY )3V)4F)5C)5A)4S)0A 656521556 BW *&5,IOC007 )3V)4F)5C)5A)4S)0A 656521557 B )0P )3V)4F)5C)5A)4S)0A 656521558 )5R MN 0 )3V)5C)3C)4S)5A)0A 656521559 SAR )0L )3V)5C)3C)4S)5A)0A 65652 1560 SBR )3Q&6 )3?)3V)3C)5C)5A)4S)0A 1561 C )0L,)7P )3?)3V)3C)5C)5A)4S)0A 656521562 BE *&12 )3?)3V)3C)5C)5A)4S)0A 1563 )3Q MLC @ @,0 )3?)3V)3C)5C)5A)4S)0A 1564 B )30 )3?)3V)3C)5C)5A)4S)0A 1565 MLC )0L,*&4 )3V)5C)3C)4S)5A)0A 656521566 SW 0 )3V)5C)3C)4S)5A)0A 656521567 SW IOCUXT&1 )3V)5A)4S)0A)3T 656521568 SW IOCUXT&1 )3V)4S)5A)0A)5C)5F 6565K1569 MCW IOCUXT&3,*&4 )3V)4S)5A)0A)5C)5F 6565K 1570 MN 0 )3V)4S)5A)0A)5C)5F 6565K1571 SAR *&4 )3V)4S)5A)0A)5C)5F 6565K1572 MCW 0,)5D-7 )3V)4S)5A)0A)5C)5F 6565K1573 MCW IOCUXT&3,*&8 )3V)4S)5A)0A)3T 6565K1574 CW IOCUXT&1 )3V)4S)5A)0A)3T)5W 6565K1575 CW IOCUXT&1 )3V)4S)5A)0A)5F)5C 6565K1576 C 0 )3V)5A)4S)0A)3T 656521577 C )3V)5A)4S)0A)3T 656521578 C )3V)5A)4S)0A)3T 656521579 SAR )8J&3 )3V)5A)4S)0A)3T 65652 1580 )8J MCW 0,)1L&3 )3V)5A)4S)0A)3T)5B 656521581 )8J MCW 0,)1L&6 )3V)5A)4S)0A)3T)5C 656521582 BCE )0P-7,)1L&3,$ )3V)5A)4S)0A)3T)5B)2Z)2Y 6565K1583 BCE )0P-14,)1L&3,$ )3V)5A)4S)0A)3T)5B)2I)2Y 6565K1584 BCE )0P-14,)1L&3,$ )3V)5A)4S)0A)3T)5B)2Z)2H 6565K1585 BCE )0P-21,)1L&3,$ )3V)5A)4S)0A)3T)5B)2I)2H 6565K1586 )1L MRCM 0,)34 )3V)5A)4S)0A)3T)5B 656521587 )1L MRCM )33,)34 )3V)5A)4S)0A)3C)5B 656521588 )1L MRCM )34,)33 )3V)5A)4S)0A)3C)5C 656521589 SBR *&4 )5B)3V)5A)4S)0A 1590 MN 0 )5B)3V)5A)4S)0A 1591 SBR *&4 )3C)3I)5C)3V)5A)4S)0A 1592 MN 0 )3C)3I)5C)3V)5A)4S)0A 1593 SAR )0J&3 )3V)5A)4S)0A)5B 6565K1594 SBR *&7 )3V)5A)4S)0A)3I 6565K1595 MLCWA@}@,0 )3V)5A)4S)0A)3I 6565K1596 A @1@,)7J )3V)2I)4S)5A)0A 6565K1597 A )3D&)2H-1,)7K )3V)2H)4S)5A)0A)3T 6565K1598 A )3C&)2H-1,)7K )3V)2H)4S)5A)0A)3C 6565K1599 A @1@,)5D-12 )3V)4S)5A)0A 6565K 1600 )0P RT )45,)34 )3V)4X)5C)4S)5A)0A 656521601 )0P RTW )45,)34 )3V)4G)5C)4S)5A)0A 656521602 )0P WT )45,)34 )3V)4X)5B)4S)5A)0A 656521603 )0P WTW )45,)34 )3V)4G)5B)4S)5A)0A 656521604 ORG )0P&1 )3V)4S)5A)0A 656521605 DC @@@ )3V)4S)5A)0A 656521606 ORG )0P&8 )3V)4S)5A)0A 656521607 MLC IOCCNT,)34&13 )3V)5C)5A)4S)0A 1608 MCW )1N,IOCERH )3V)4S)5A)0A 656521609 MCW )3V)4S)5A)0A 65652 1610 MCW )3V)4S)5A)0A 656521611 B IOCSRW )3V)3T)4S)5A)0A 656521612 )0J CW *-1 )3V)3T)5C)4S)5A)0A 656521613 MCW IOCCAN,)1M&3 )3V)3T)4S)5A)0A 656521614 MCW IOCCAN-4,*&7 )3V)3T)4S)5A)0A 656521615 MCW 0,0 )3V)3T)4S)5A)0A 656521616 BIN *-4,J )3V)3T)4S)5A)0A 656521617 )1M SBR )0L )3V)3T)4S)5A)0A 656521618 MCW IOCNOP,IOCERH )3V)3T)4S)5A)0A 656521619 MCW )3V)3T)4S)5A)0A 65652 1620 MCW )3V)3T)4S)5A)0A 656521621 )5R MN 0 )3V)3T)5C)4S)5A)0A 656521622 SAR )0L )3V)3T)5C)4S)5A)0A 656521623 SBR )3Q&6 )3?)3V)3T)5C)4S)5A)0A 1624 C )0L,)7P )3?)3V)3T)5C)4S)5A)0A 656521625 BE *&12 )3?)3V)3T)5C)4S)5A)0A 1626 )3Q MLC @ @,0 )3?)3V)3T)5C)4S)5A)0A 1627 B )30 )3?)3V)3T)5C)4S)5A)0A 1628 MLC )0L,*&4 )3 )3V)3T)5C)4S)0A)5A 1629 SW 0 )3 )3V)3T)5C)4S)0A)5A 1630 BCE IOCUXT,)1L&6,$ )3V)3T)5C)4S)0A)5A 1631 )1L MRCM )34,0 )3V)3T)5C)4S)0A)5A 1632 B IOCUXT )3V)4S)5A)0A 656521633 )0L DCW &)0L-1 )3V)4S)5A)0A 656521634 MCW )0L,)0J&3 )3V)5C)4S)5A)0A 656521635 SBR )5R&3 )3V)5C)4S)5A)0A 656521636 DCW @N @ )3V)5B)4S)5A)0A 656521637 NOP 0 )3V)5B)4S)5A)0A 656521638 )1N DCW )3J )3V)4S)5A)0A 656521639 )3J EQU )0P&7 )3V)4S)5A)0A 65652 1640 )6J MCW @N@,)5D&4 )3V)4S)5A)0A 656521641 CW )3D&)3H )3V)4S)5A)5C)0A)3? 1642 MCW &)6K,)0L-3 )3V)3C)5C)4S)5A)0A 6565K1643 MCW )8L&3,)0J&3 )3V)4S)5A)0A)3T)5C 656521644 BCE *&5,IOCERH, )3V)3C)4S)5A)5C)0A 1645 B IOCSRW )3V)3C)4S)5A)5C)0A 1646 MLC IOCCAN-4,*&7 )3V)3C)4S)5A)5C)0A 1647 MLC 0,0 )3V)3C)4S)5A)5C)0A 1648 B )0P )3V)3C)5C)4S)5A)0A 656521649 )6K MCW &IOCUXT,)0L-3 )3V)3C)5C)4S)5A)0A 6565K 1650 B )5D )3V)4S)5A)0A 656521651 )2M MCW @B@,)5D )3V)4S)5A)0A 656521652 BCE *&8,)5D-4, )3V)5A)4S)0A 656521653 MN )5D-4,)0P&3 )3V)5A)4S)0A 656521654 MCW &)6N,)5D&3 )3V)4S)5A)0A 656521655 MCW )8K&3,)0J&3 )3V)4S)5A)0A)3T)5C 656521656 C IOCNPR&3,&)0J )3V)4S)5A)5C)0A 6565K1657 BU IOCNPR-17 )3V)4S)5A)5C)0A 1658 SBR IOCNPR&3,)6N )3V)4S)5A)5C)0A 6565K1659 B IOCNPR-17 )3V)4S)5A)0A 1660 )6N MCW &IOCUXT,)5D&3 )3V)4S)5A)0A 656521661 MCW @B@,)5D&4 )3V)4S)5A)0A 656521662 MCW @ @,)3D&1 )3V)4S)5A)5C)0A 656521663 B IOCEOR )3V)4S)5A)0A 656521664 NOP )5D-17 )3V)4S)5A)0A 656521665 B )6J )3V)4S)5A)0A 656521666 )6Q MCW @B@,)5D )3V)4S)5A)0A 656521667 MCW @B@,)5D&4 )3V)4S)5A)0A 656521668 B IOCUXT )3V)4S)5A)0A 656521669 )7L B IOCUXT )3V)4S)5A)0A 65652 1670 )7P DCW )34&)38 )3?)3V)4S)5A)0A 656521671 )8K B IOCUXT )3V)4S)5A)0A)3T)5C 656521672 )8L CW *-1 )3V)4S)5A)0A)3T)5C 656521673 INCLD15000 )3V)4F)5C)5A)4S)0A 656521674 * DTF ROUTINE FOR OVERLAP BLOCKED RECORDS WITH ONE I/O AREA )0A)0/ 656521675 )0J NOP )0L )5A)4B)0A)3V)5C)3S 656521676 )0J NOP )0L )5A)4B)0A)3V)5B)3S)3Z 656521677 )0K SBR IOCXR)3B,)38&X)3B )5A)4B)0A)3V)5C)3Z 6565K1678 )0K A )3C-1&)38,)0N )1 )5A)4B)0A)3V)5B)3S)3I 656521679 )0K SW IOCUXT&1 )3I)5B)5A)4B)0A)3V)3S)3T)1 65652 1680 MLC IOCUXT&3,*&8 )3I)5B)5A)4B)0A)3V)3S)3T)1 656521681 CW IOCUXT&1 )3I)5B)5A)4B)0A)3V)3S)3T)1 656521682 C 0 )3I)5B)5A)4B)0A)3V)3S)3T)1 656521683 C )3I)5B)5A)4B)0A)3V)3S)3T)1 656521684 C )3I)5B)5A)4B)0A)3V)3S)3T)1 656521685 SAR )2K&3 )3I)5B)5A)4B)0A)3V)3S)3T)1 656521686 SBR )7R )3I)5B)5A)4B)0A)3V)3S)3T)1 656521687 MLC IOCXR1,IOCTNT )3I)5B)5A)4B)0A)3V)3S)3T)1 656521688 MLC )7R,*&4 )3I)5B)4B)0A)3V)5A)3S)3T)1 656521689 MLC 0,IOCXR1 )3I)5B)4B)0A)3V)5A)3S)3T)1 65652 1690 SBR )4L&3,)38-1&X1 )3I)5B)5A)4B)0A)3V)3S)3T)1 656521691 SBR )4K&3,)2H-1&X1 )3I)5B)5A)4B)0A)3V)3S)3T)1 656521692 SBR )4M&3,)38-1&X1 )3I)5B)5A)4B)0A)3V)3S)3T)1 656521693 MZ IOCXR1-1,)4L&2 )3I)5B)4B)0A)3V)5A)3S)3T)1 656521694 MZ IOCXR1-1,)4K&2 )2H)3I)5B)5A)4B)0A)3V)3S)3T)1 656521695 MZ IOCXR1-1,)4M&2 )3I)5B)4B)0A)3V)5A)3S)3T)1 656521696 MLC IOCTNT,IOCXR1 )3I)5B)5A)4B)0A)3V)3S)3T)1 656521697 )4L A 0,)0N )3I)5B)5A)4B)0A)3V)3S)3T)1 656521698 )0K MLC )5L,)5K )1?)5A)4B)0A)3V)5B)3S)3I 656521699 A )1?,)0N )5A)4B)0A)3V)5B)3S)3I 65652 1700 MA )1?,)5L )5A)4B)0A)3V)5B)3S)3I 6565K1701 SW IOCUXT&1 )5C)5A)4B)0A)3V)3S)3T 656521702 SW IOCUXT&1 )3V)4B)5A)0A)5C)5F 6565K1703 MCW IOCUXT&3,*&4 )3V)4B)5A)0A)5C)5F 6565K1704 MN 0 )3V)4B)5A)0A)5C)5F 6565K1705 SAR *&4 )3V)4B)5A)0A)5C)5F 6565K1706 MCW 0,)5D-7 )3V)4B)5A)0A)5C)5F 6565K1707 MCW IOCUXT&3,*&8 )3V)4B)5A)0A)5C)3T)3S 6565K1708 CW IOCUXT&1 )3V)4B)5A)0A)5C)3T)3S)5W 6565K1709 CW IOCUXT&1 )3V)4B)5A)0A)5C)5F 6565K 1710 C 0 )5C)5A)4B)0A)3V)3S)3T 656521711 C )5C)5A)4B)0A)3V)3S)3T 656521712 C )5C)5A)4B)0A)3V)3S)3T 656521713 SAR )2K&3 )5C)5A)4B)0A)3V)3S)3T 656521714 SBR )7R )2H)5C)5A)4B)0A)3V)3S)3T 656521715 MLC IOCXR1,IOCTNT )2H)5C)5A)4B)0A)3V)3S)3T 656521716 MLC )7R,*&4 )2H)5C)5A)4B)0A)3V)3S)3T 656521717 MLC 0,IOCXR1 )2H)5C)5A)4B)0A)3V)3S)3T 656521718 SBR )4K&3,)2H-1&X1 )2H)5C)5A)4B)0A)3V)3S)3T 656521719 MZ IOCXR1-1,)4K&2 )2H)5C)5A)4B)0A)3V)3S)3T 65652 1720 MLC IOCTNT,IOCXR1 )2H)5C)5A)4B)0A)3V)3S)3T 656521721 SW IOCUXT&1 )3Z)5B)5A)4B)0A)3V)3S)3T 656521722 MLC IOCUXT&3,*&8 )3Z)5B)5A)4B)0A)3V)3S)3T 656521723 CW IOCUXT&1 )3Z)5B)5A)4B)0A)3V)3S)3T 656521724 C 0 )3Z)5B)5A)4B)0A)3V)3S)3T 656521725 C )3Z)5B)5A)4B)0A)3V)3S)3T 656521726 C )3Z)5B)5A)4B)0A)3V)3S)3T 656521727 SAR )2K&3 )3Z)5B)5A)4B)0A)3V)3S)3T 656521728 SBR )7R )3Z)5B)5A)4B)0A)3V)3S)3T 656521729 MLC IOCXR1,IOCTNT )3Z)5B)5A)4B)0A)3V)3S)3T 65652 1730 MLC )7R,*&4 )3Z)5B)5A)4B)0A)3V)3S)3T 656521731 MLC 0,IOCXR1 )3Z)5B)5A)4B)0A)3V)3S)3T 656521732 SBR )4K&3,)2H-1&X1 )3Z)5B)5A)4B)0A)3V)3S)3T 656521733 SBR )4N&6,)38-2&X1 )3Z)5B)5A)4B)0A)3V)3S)3T 656521734 SBR *&18,0&X1 )2Y)5B)3Z)5A)4B)0A)3V)3S)3T 656521735 SBR *&25,0&X1 )2H)5B)3Z)5A)4B)0A)3V)3S)3T 656521736 MZ IOCXR1-1,)4K&2 )2H)3Z)5B)5A)4B)0A)3V)3S)3T)1 656521737 MZ IOCXR1-1,)4N&5 )3Z)5B)5A)4B)0A)3V)3S)3T 656521738 MZ IOCXR1-1,*&3 )3Z)5B)5A)4B)0A)3V)3S)3T 656521739 MN 0 )3Z)5B)5A)4B)0A)3V)3S)3T 65652 1740 SAR )4P )3Z)5B)5A)4B)0A)3V)3S)3T 656521741 MLC IOCTNT,IOCXR1 )3Z)5B)5A)4B)0A)3V)3S)3T 656521742 )2K MLC 0,)0K&13 )5C)5A)4B)0A)3V)3S)3T 656521743 )2K MLC 0,)0P&3 )3Z)5B)5A)4B)0A)3V)3S)3T 656521744 )0K MLC )0N,*&4 )5A)4B)0A)3V)5C)3S 656521745 MRCM 0,)3C )5A)4B)0A)3V)5C 656521746 )0P MRCM )3C,)34 )5A)4B)0A)3V)5B)3Z 656521747 )0P MRCM 0,)34 )3Z)5B)5A)4B)0A)3V)3S)3T 656521748 MRCM 0,0 )5C)5A)4B)0A)3V)3S)3T 656521749 SAR )0N )5A)4B)0A)3V)5C)3S 65652 1750 SBR *-4 )5A)4B)0A)3V)5B)3S)3Z 656521751 SBR )0N )5A)4B)0A)3V)5B)3S)3Z 656521752 A @1@,)7J )5A)4B)0A)3V)5C)3C)2I 656521753 A @1@,)7J )3S)5A)4B)0A)3V)5B)3Z)2I 656521754 A )3C-1&)2H,)7K )5A)4B)0A)3V)5C 656521755 A )3C-1&)2H,)7K )3S)5A)4B)0A)3V)5B)3Z 656521756 )4K A 0,)7K )5C)5A)4B)0A)3V)3S)3T)2H 656521757 )4K A 0,)7K )3Z)5B)5A)4B)0A)3V)3S)3T)2H 656521758 C )0N,)0Q )5A)4B)0A)3V)5C)3S 656521759 C )0N,&)36 )5A)4B)0A)3V)5B)3S)3I 65652 1760 C )0N,)0Q )5A)4B)0A)3V)5B)3S)3Z 656521761 C IOCXR)3B,)0Q )5A)4B)0A)3V)5C 6565K1762 )0K SBR IOCXR)3B,)38&X)3B )2Y)3Z)5A)4B)0A)3V)5B 6565K1763 C IOCXR)3B,)0Q )5A)4B)0A)3V)5B 6565K1764 BE )0R )5A)4B)0A)3V)5C 656521765 BE )0R )5A)4B)0A)3V)5B)3Z 656521766 BL )0R )5A)4B)0A)3V)5B)3I 656521767 MLC )5K,)1? )5A)4B)0A)3V)5B)3S)3I 656521768 )0J NOP )0L )5A)4B)0A)3V)5B)3I 656521769 )2K MLC 0,)0P&3 )3I)5B)5A)4B)0A)3V)3S)3T)1 65652 1770 )0P MRCM 0,)34&4 )3I)5B)5A)4B)0A)3V)3S)3T)1 656521771 )0P MRCM )3C,)34&4 )3I)5B)5A)4B)0A)3V)1 656521772 )0P A @1@,)7J )2I)1?)5A)4B)0A)3V)5B)3S)3I 656521773 )0P MCW IOCXR1,IOCXRS )2H)2Z)1?)5A)4B)0A)3V)5B)3S)3I 656521774 MCW IOCXR1,IOCXRS )2H)2I)1?)5A)4B)0A)3V)5B)3S)3I 656521775 MCW )5K,IOCXR1 )2H)1?)5A)4B)0A)3V)5B)3S)3I 656521776 SBR *&4,)2H-1&X1 )1?)5A)4B)0A)3V)5B)3S)3I 656521777 A 0,)7K )2H)1?)5A)4B)0A)3V)5B)3S)3I 656521778 SBR *-4 )5A)4B)0A)3V)5B)3I)1 656521779 )4K A 0,)7K )2H)3I)5B)5A)4B)0A)3V)3S)3T)1 65652 1780 SBR IOCXRS,)38&X)3B )5A)4B)0A)3V)5B)3Z)2H 656521781 A )2H-1&X)3B,)7K )5A)4B)0A)3V)5B)3Z)3B 656521782 MCW IOCXRS,IOCXR)3B )5A)4B)0A)3V)5B)3Z)2H 6565K1783 A @1@,)7J )1 )5A)4B)0A)3V)5B)3I)2I 656521784 A @1@,)7J )2I)5A)4B)0A)3V)3B)3Z)3B 656521785 A )3C-1&)2H,)7K )1 )5A)4B)0A)3V)5B)3I 656521786 )0P B IOCUXT )2Y)2Z)1?)5A)4B)0A)3V)5B)3S)3I 656521787 B IOCUXT )2I)1?)5A)4B)0A)3V)5B)3S)3I 656521788 B IOCUXT )2H)1?)5A)4B)0A)3V)5B)3S)3I 656521789 B IOCUXT )5A)4B)0A)3V)1 65652 1790 )0R MLC @B@,)0J )5A)4B)0A)3V)3S 656521791 )0R MLC )1J,IOCXR)3B )5A)4B)0A)3V)3Z 6565K1792 MLCWA)1J,)0N )5A)4B)0A)3V)5C)3I 656521793 MLCWA)1J,)0N )5A)4B)0A)3V)3S)3Z 656521794 MLC )1J,)0P&6 )5A)4B)0A)3V)5B)3S)3Z 656521795 SW )0P&4 )1 )5A)4B)0A)3V)5B)3I 656521796 MLC )0P&6,)1K&6 )1 )5A)4B)0A)3V)5B)3I 656521797 MLC )0P&6,)1L&3 )1 )5A)4B)0A)3V)5B)3I 656521798 CW )0P&4 )1 )5A)4B)0A)3V)5B)3I 656521799 S )1?,)0N )5A)4B)0A)3V)5B)3I 65652 1800 MLC )5K,)1K&6 )5A)4B)0A)3V)5B)3I)1? 656521801 MLC )5K,)1L&3 )1?)5A)4B)0A)3V)5B)3I 656521802 )1K MLCWA@}@,0 )5A)4B)0A)3V)5B)3I 656521803 S )3C-1&)38,)0N )1 )5A)4B)0A)3V)5B)3I 656521804 )4M S 0,)0N )3I)5B)5A)4B)0A)3V)3S)3T)1 656521805 MLCWA)0N,)34&3 )5A)4B)0A)3V)5B)3I 656521806 )1M BCE *&5,IOCERH, )5A)4B)0A)3V 656521807 B IOCSRW )5A)4B)0A)3V 656521808 MLC IOCCAN,)1N&3 )5A)4B)0A)3V 656521809 MLC IOCCAN-4,*&7 )5A)4B)0A)3V 65652 1810 MLC 0,0 )5A)4B)0A)3V 656521811 BIN *-4,J )5A)4B)0A)3V 656521812 )1N SBR 0 )5A)4B)0A)3V 656521813 )1P NOP )1Q )5A)4B)0A)3V 656521814 MLC )1R,IOCERH )5A)4B)0A)3V 656521815 MLC )5A)4B)0A)3V 656521816 MLC IOCNOP-7 )5A)4B)0A)3V 656521817 BIN *-4,H )5A)4B)0A)3V 656521818 BIN *-4,I )5A)4B)0A)3V 656521819 )2J RT )45,)34 )5A)4B)0A)3V)5C)4X 65652 1820 )2J RTW )45,)34 )5A)4B)0A)3V)5C)4G 656521821 )2J WT )45,)34 )5A)4B)0A)3V)5B)4X 656521822 )2J WTW )45,)34 )5A)4B)0A)3V)5B)4G 656521823 ORG )2J&1 )5A)4B)0A)3V 656521824 DC @@@ )5A)4B)0A)3V 656521825 ORG )2J&8 )5A)4B)0A)3V 656521826 MLC IOCCNT,)34&13 )5A)4B)3V)5C)0A 1827 A @1@,)5D-12 )5A)4B)0A)3V 656521828 S )0N )5A)4B)0A)3V)5B)3I 656521829 A @D@,)0N )5A)4B)0A)3V)5B)3I 65652 1830 MLC )1J,)5L )5A)4B)0A)3V)5B)3I)1? 656521831 MLC )1J,)0P&6 )1 )5A)4B)0A)3V)5B)3I 656521832 MLC @B@,)1P )5A)4B)0A)3V)3Z)3B 656521833 )2L B )0K )5A)4B)0A)3V)5B)3I 656521834 )2L B )1M )5A)4B)0A)3V)3Z)3B 656521835 )2L B IOCUXT )5A)4B)0A)3V)5C)3S 656521836 )2L B IOCUXT )5A)4B)0A)3V)5B)3S)3Z 656521837 )0L MLC @N@,)0J )5A)4B)0A)3V)3S)3Z 656521838 MLC @B@,)1P )5A)4B)0A)3V)3S)3Z 656521839 B )1M )5A)4B)0A)3V)3S)3Z 65652 1840 )0L MLC @N@,)0J )5A)4B)0A)3V)3I 656521841 MLC @B@,)1P )5A)4B)0A)3V)3I 656521842 B )1M )5A)4B)0A)3V)3I 656521843 )1Q MLC @N@,)1P )5A)4B)0A)3V 656521844 MLC IOCNOP,IOCERH )5A)4B)0A)3V 656521845 MLC )5A)4B)0A)3V 656521846 MLC )5A)4B)0A)3V 656521847 )5M MN 0 )5A)4B)0A)3V)5C 656521848 SAR )0Q )5A)4B)0A)3V)5C 656521849 SBR )3Q&6 )3?)3V)5C)5A)4B)0A 1850 MCW IOCXR1,)6L )3?)3V)3Z)5C)5A)4B)0A 656521851 SBR IOCXR1,)3D )3?)3V)3Z)5C)5A)4B)0A 656521852 MN )3F&1&X1 )3?)3V)3Z)5C)5A)4B)0A 656521853 SAR )7O )3?)3V)3Z)5C)5A)4B)0A 656521854 MCW )6L,IOCXR1 )3?)3V)3Z)5C)5A)4B)0A 656521855 C )0Q,)7O )3?)3V)3Z)5C)5A)4B)0A 656521856 MCW IOCXR1,IOCTNT )3?)3V)3I)5C)5A)4B)0A 656521857 INCLD18000 )3?)3V)3I)5C)5A)4B)0A 6565K1858 ZA )3D&3,IOCAR5 )3?)3V)3I)5C)5A)4B)0A 6565K1859 B IOCPCK )3?)3V)3I)5C)5A)4B)0A 6565K 1860 MCW IOCAR5,IOCXR1 )3?)3V)3I)5C)5A)4B)0A 6565K1861 SBR IOCXR1,)3D&X1 )3?)3V)3I)5C)5A)4B)0A 6565K1862 C )0Q,IOCXR1 )3?)3V)3I)5C)5A)4B)0A 656521863 BE *&19 )3Z)3?)3V)5C)5A)4B)0A 1864 MLC @B@,)5D&4 )3Z)3?)3V)5C)5A)4B)0A 1865 BE *&12 )3I)3?)3V)5C)5A)4B)0A 1866 )3Q MLC @ @,0 )3?)3V)5C)5A)4B)0A 1867 B )30 )3?)3V)5C)5A)4B)0A 1868 MCW IOCTNT,IOCXR1 )3?)3V)3I)5C)5A)4B)0A 656521869 MCW )2J&7,IOCTRW&7 )5A)4B)0A)3V)5C)4F 65652 1870 B IOCKBY )5A)4B)0A)3V)5C)4F 656521871 BW *&5,IOC007 )5A)4B)0A)3V)5C)4F 656521872 B )2J )5A)4B)0A)3V)5C)4F 656521873 B IOCUXT )5A)4B)0A)3V)3Z)3B 656521874 B )0J )5A)4B)0A)3V)3S 656521875 )7R DCW @ @ )5C)2H)5A)4B)0A)3V)3S)3T 656521876 )7R DCW @ @ )5B)5A)4B)0A)3V)3S)3T 656521877 )4P DCW @ @ )3Z)5B)5A)4B)0A)3V)3S)3T 656521878 )7O DCW @ @ )3?)3V)3Z)5C)5A)4B)0A 656521879 )7P DCW @ @ )3?)3V)3I)5C)5A)4B)0A 65652 1880 )0N DCW @ @ )5A)4B)0A)3V)5C)3I 656521881 )0N DCW @ @ )5A)4B)0A)3V)5B)3I 656521882 )0N DCW @ @ )5A)4B)0A)3V)3Z)3S 656521883 )0Q DCW @ @ )5A)4B)0A)3V)5C)3I 656521884 )0Q DCW @ @ )5A)4B)0A)3V)3Z 656521885 )1J DCW )34&4 )5A)4B)0A)3V)3I 656521886 )1J DCW )34 )5A)4B)0A)3V)3Z 656521887 )1L SBR )5M&3 )5A)4B)0A)3V)5C 656521888 )1L DCW @N @ )5A)4B)0A)3V)5B)3Z 656521889 )1L CW 0 )5A)4B)0A)3V)5B)3I 65652 1890 )1R DCW )2J&7 )5A)4B)0A)3V 656521891 )5L DCW @ @ )1?)5A)4B)0A)3V)5B)3I 656521892 )5K DCW @ @ )1?)5A)4B)0A)3V)5B)3I 656521893 )2M MCW @B@,)5D )5A)4B)0A)3V 656521894 S @10@,)5D-11 )3V)5A)4B)0A)5C 6565K1895 BCE *&8,)5D-4, )3V)5A)4B)0A 656521896 MN )5D-4,)2J&3 )3V)5A)4B)0A 656521897 MCW &)6N,)5D&3 )5A)4B)0A)3V 656521898 MCW @B@,)1P )5A)4B)0A)3V 656521899 SBR )1P&3,IOCUXT )5B)5A)4B)0A)3V 1900 SBR )1P&3,IOCUXT )3I)5C)5A)4B)0A)3V 1901 SBR )1P&3,)6N )3Z)5C)5A)4B)0A)3V 1902 B IOCNPR-17 )3V)5A)4B)0A 1903 )6N MCW &IOCUXT,)5D&3 )5A)4B)0A)3V 656521904 MCW @B@,)5D&4 )5A)4B)0A)3V 656521905 MCW @ @,)3D&1 )3V)4B)5A)5C)0A 656521906 B IOCEOR )5A)4B)0A)3V 656521907 NOP )5D-17 )5A)4B)0A)3V 656521908 B )6J )3V)4B)5A)0A 656521909 )6Q MCW @B@,)5D&4 )5A)4B)0A)3V)5C 65652 1910 MCW @B@,)5D )5A)4B)0A)3V)5C 656521911 B IOCUXT )5A)4B)0A)3V)5C 656521912 )6Q MCW @B@,)5D&4 )5A)4B)0A)3V)5B)3I 656521913 MCW @B@,)5D )5A)4B)0A)3V)5B)3I 656521914 MLC @N@,)1K&7 )5A)4B)0A)3V)5B)3I)1 6565K1915 MLC )5L,)5K )5A)4B)0A)3V)5B)3I)1? 6565K1916 MLC @N@,)1P )5A)4B)0A)3V)5B)3I 6565K1917 SBR )2L&3,*&5 )5A)4B)0A)3V)5B)3I 6565K1918 B )0R&7 )5A)4B)0A)3V)5B)3I)1 6565K1919 B )0R&14 )5A)4B)0A)3V)5B)3I)1? 6565K 1920 B IOCSRW )5A)4B)0A)3V)5B)3I 6565K1921 B IOCUXT )5A)4B)0A)3V)5B)3I 656521922 )6Q MLC IOCXR1,IOCPDS )3S)5A)4B)0A)3V)5B)3Z 656521923 C )0N,)1J )3S)5A)4B)0A)3V)5B)3Z 656521924 )6Q C IOCXR)3B,)0Q )5A)4B)0A)3V)5B)3Z 6565K1925 BE )8J )5A)4B)0A)3V)5B)3Z 656521926 C IOCXR)3B,)1J )5A)4B)0A)3V)5B)3Z 6565K1927 BE IOCUXT )3B)5A)4B)0A)3V)5B)3Z 656521928 SW )8M )5A)4B)0A)3V)5B)3Z 6565K1929 MLC &)8J,)0R-6 )3S)5A)4B)0A)3V)5B)3Z 65652 1930 MLC &)0P,)0R-1 )3S)5A)4B)0A)3V)5B)3Z 656521931 )4N SBR IOCXR1,0 )3T)3S)5A)4B)0A)3V)5B)3Z 656521932 SBR IOCXR1,)3C-2&)38 )3C)5A)4B)0A)3V)5B)3Z 656521933 MLC IOCXR)3B,IOCPDS )5A)4B)0A)3V)5B)3Z 6565K1934 MRCM 2&X)3B,0&X)3B )5A)4B)0A)3V)5B)3Z 656521935 SBR IOCXR)3B )5A)4B)0A)3V)5B)3Z 6565K1936 )8K MLC @)3G@,0&X1 )3S)5A)4B)0A)3V)5B)3Z 656521937 )8K MLC @ @,0&X1 )3X)3S)5A)4B)0A)3V)5B)3Z 656521938 )8K MLC @)37@,0&X)3B )3G)5A)4B)0A)3V)5B)3Z 656521939 )8K MLC @ @,0&X)3B )3X)5A)4B)0A)3V)5B)3Z 65652 1940 SBR IOCXR1 )3S)5A)4B)0A)3V)5B)3Z 656521941 SBR IOCXR)3B )5A)4B)0A)3V)5B)3Z 6565K1942 C IOCXR1,)4P )3T)3S)5A)4B)0A)3V)5B)3Z 656521943 C IOCXR1,&)3C-1 )5A)4B)0A)3V)5B)3Z 656521944 C IOCXR)3B,IOCPDS )5A)4B)0A)3V)5B)3Z 6565K1945 BE *&5 )5A)4B)0A)3V)5B)3Z 656521946 B )8K )5A)4B)0A)3V)5B)3Z 656521947 MLC @)3G@,0&X)3B )5A)4B)0A)3V)5B)3Z 656521948 MLC @ @,0&X)3B )3X)5A)4B)0A)3V)5B)3Z 656521949 MLC IOCPDS,IOCXR1 )3S)5A)4B)0A)3V)5B)3Z 65652 1950 B )0P )3S)5A)4B)0A)3V)5B)3Z 656521951 MRCM 0&X)3B,0&X)3B )5A)4B)0A)3V)5B)3Z 656521952 SBR IOCXR)3B )5A)4B)0A)3V)5B)3Z 6565K1953 A @1@,)7J )2I)3B)5A)4B)0A)3V)5B)3Z 656521954 A )2H-1&X)3B,)7K )2H)3B)5A)4B)0A)3V)5B)3Z 656521955 B )6Q )3B)5A)4B)0A)3V)5B)3Z 656521956 )8J MCW @B@,)5D&4 )5A)4B)0A)3V)5B)3Z 656521957 MCW @B@,)5D )5A)4B)0A)3V)5B)3Z 656521958 MCW IOCPDS,IOCXR1 )3S)5A)4B)0A)3V)5B)3Z 656521959 MCW &)0R,)0R-6 )3S)5A)4B)0A)3V)5B)3Z 65652 1960 MCW &IOCUXT,)0R-1 )3S)5A)4B)0A)3V)5B)3Z 656521961 BW )0R,)8M )5A)4B)0A)3V)5B)3Z 6565K1962 B IOCUXT )5A)4B)0A)3V)5B)3Z 6565K1963 )8M DC @ @ )5A)4B)0A)3V)5B)3Z 6565K1964 )6J MLC @N@,)5D&4 )5A)4B)0A)3V 656521965 SBR )2L&3,)6K )5A)4B)0A)3V)5C)3S 1966 MLC &)6K,)2L&3 )1 )5A)4B)0A)3V)5B)3I 656521967 ZA @D@,)0N )5A)4B)0A)3V)5B)3I 656521968 MLC @S@,)1K&7 )5A)4B)0A)3V)5B)3I)1 6565K1969 MLC )1J,)5L )5A)4B)0A)3V)5B)3I)1? 65652 1970 MLC )1J,IOCXR)3B )5A)4B)0A)3V)5B)3Z 6565K1971 MLC )1J,)0N )5A)4B)0A)3V)5B)3Z)3S 656521972 MLC IOCXR1,)6L )5A)4B)0A)3V)3Z 656521973 SBR IOCXR1,)34 )5A)4B)0A)3V)3Z 656521974 MLC IOCXR1,)6L )3I)5A)4B)0A)3V)3?)5C 1975 SBR IOCXR1,)34 )3I)5A)4B)0A)3V)3?)5C 1976 CW )36&X1 )5A)4B)0A)3V)3?)5C 1977 SBR )0Q,)36&X1 )5A)4B)0A)3V)3Z 656521978 MLC )6L,IOCXR1 )5A)4B)0A)3V)3Z 656521979 MLC )6L,IOCXR1 )3I)5A)4B)0A)3V)3?)5C 1980 MCW @N@,)1P )5A)4B)0A)3V 656521981 MCW &)1Q,)1P&3 )5A)4B)0A)3V 656521982 B )0R )5A)4B)0A)3V)5C 656521983 B )2L-7 )1 )5A)4B)0A)3V)5B)3I 656521984 B )5D&8 )1?)5A)4B)0A)3V)5B)3I 656521985 B )5D&8 )3S)5A)4B)0A)3V)5B)3Z 656521986 B IOCUXT )3B)5A)4B)0A)3V)5B)3Z 656521987 )6K MLC &)0K,)2L&3 )1 )5A)4B)0A)3V)5B)3I 656521988 )6K MLC &IOCUXT,)2L&3 )5A)4B)0A)3V)5C)3S 656521989 B )5D&4 )1 )5A)4B)0A)3V)5B)3I 65652 1990 B )5D&4 )3S)5A)4B)0A)3V)5C 656521991 )6L DCW @ @ )5A)4B)0A)3V)3Z 656521992 )6L DCW @ @ )3I)5A)4B)0A)3V)3?)5C 1993 )7L B )0R )5A)4B)0A)3V)5C 656521994 )7L B )0R )5A)4B)0A)3V)5B)3I 656521995 )7L MCW &)7M,)6Q&10 )5A)4B)0A)3V)5B)3Z 656521996 B )6Q )5A)4B)0A)3V)5B)3Z 656521997 )7M MCW &)8J,)6Q&10 )5A)4B)0A)3V)5B)3Z 656521998 B )0R )5A)4B)0A)3V)5B)3Z 656521999 INCLD15000 )5A)4B)0A)3V)5C)4F 65652 44444 INSER 657020000 44444 HEADR 65702 55555 INSER 657520000 55555 HEADR 657520001 * 1401-IO-065 VERSION 2 MODIFICATION LEVEL 14 6575K0002 * IODEVICES ENTRY ERROR - NO DEVICES )99)3V)3U)3T)3S 6575K0003 * LABELDEF ENTRY ERROR - STANDARD & MIXED )99)3A)2I 657520004 * LABELDEF ENTRY ERROR - STANDARD & NONSTANDARD )99)3A)3? 657520005 * LABELDEF ENTRY ERROR - NONSTANDARD & MIXED )99)3?)2I 657520006 * LABELDEF ENTRY ERROR - STANDARD, NONSTANDARD & MIXED )99)3A)2I)3? 65752 0007 * LABELDEF ENTRY ERROR - CHECK & NONSTANDARD )99)3?)2H 657520008 * LABELDEF ENTRY ERROR - IDENT & NONSTANDARD )99)3?)2G 657520009 * LABELDEF ENTRY ERROR - CHECK & NO LABELS )99)2H)3 )3/)2Z 657520010 * LABELDEF ENTRY ERROR - IDENT & NO LABELS )99)2G)3 )3/)2Z 657520011 * LABELDEF ENTRY ERROR - CHECK & IDENT )99)2G)2H 657520012 * LABELDEF ENTRY ERROR - STANDARD - NO TAPE )99)3A)3V 657520013 * LABELDEF ENTRY ERROR - NONSTANDARD - NO TAPE )99)3?)3V 657520014 * LABELDEF ENTRY ERROR - MIXED - NO TAPE )99)2I)3V 657520015 * LABELDEF ENTRY ERROR - RDLIN - NO TAPE )99)1F)3V 657520016 * LABELDEF ENTRY ERROR - RDLIN & NO LABELS )99)1F)3 )3/)2Z 65752 0017 * LABELDEF ENTRY ERROR - RDLIN & NONSTANDARD )99)1F)3? 657520018 * FEATURES ENTRY ERROR - RELEASE,NO READER & NO PUNCH )99)0B)3U)3T 657520019 * FEATURES ENTRY ERROR - STORAGE,NO PRINTER )99)3F)3S 657520020 * COUNTS ENTRY ERROR - RECORD,NO TAPE )99)0E)3V 657520021 * COUNTS ENTRY ERROR - RECORD,NO LABELS )99)0E)3 )3/)2Z 657520022 * COUNTS ENTRY ERROR - HASH,NO TAPE )99)0D)3V 657520023 * COUNTS ENTRY ERROR - HASH,NO LABELS )99)0D)3 )3/)2Z 657520024 * ALTDRIVE ENTRY ERROR - NO TAPE )99)2E)3V 657520025 * EXITS ENTRY ERROR - NO TAPE )99)3H)3V 657520026 * EXITS ENTRY ERROR - NO LABELS )99)3H)3 )3/)2Z 65752 0027 * EXITS ENTRY ERROR - EXIT 1 NOT APPLICABLE )99)2D)3I 657520028 * EXITS ENTRY ERROR - EXIT 2 NOT APPLICABLE )99)2C)3I 657520029 * EXITS ENTRY ERROR - EXIT 3 NOT APPLICABLE )99)2B)3I 657520030 * EXITS ENTRY ERROR - EXIT 4 NOT APPLICABLE )99)2A)3I 657520031 * EXITS ENTRY ERROR - EXIT 5 NOT APPLICABLE )99)2?)3I 657520032 * EXITS ENTRY ERROR - EXIT 8 NOT APPLICABLE )99)1G)3I 657520033 * EXITS ENTRY ERROR - EXIT 6 NOT APPLICABLE )99)1I)4? 657520034 * EXITS ENTRY ERROR - EXIT 7 NOT APPLICABLE )99)1H)4? 657520035 * EXITS ENTRY ERROR - EXIT 1 NOT APPLICABLE )99)2D)3? 657520036 * EXITS ENTRY ERROR - EXIT 3 NOT APPLICABLE )99)2B)3? 65752 0037 * EXITS ENTRY ERROR - EXIT 4 NOT APPLICABLE )99)2A)3? 657520038 * RWDOPTION ENTRY ERROR - UNLOAD,NO TAPE )99)1B)3V 657520039 * RWDOPTION ENTRY ERROR - NOREWD,NO TAPE )99)1C)3V 657520040 * RWDOPTION ENTRY ERROR - UNLOAD & NOREWD )99)1C)1B 657520041 * READERROR ENTRY ERROR - NO TAPE )99)0H)3V 657520042 * READERROR ENTRY ERROR - NO TAPE )0Y)99)0I)3V 657520043 * READERROR ENTRY ERROR - NO TAPE )0Z)0Y)99)1?)3V 657520044 * READERROR ENTRY ERROR - NO TAPE )1 )0Z)0Y)99)1A)3V 657520045 * READERROR ENTRY ERROR - TAPE OUTPUT ONLY )99)0H)4? 657520046 * READERROR ENTRY ERROR - TAPE OUTPUT ONLY )0Y)99)0I)4? 65752 0047 * READERROR ENTRY ERROR - TAPE OUTPUT ONLY )0Z)0Y)99)1?)4? 657520048 * READERROR ENTRY ERROR - TAPE OUTPUT ONLY )1 )0Z)0Y)99)1A)4? 657520049 * READERROR ENTRY ERROR - PROCESS & SCAN )99)0I)1? 657520050 * TAPEUSE ENTRY ERROR - NO TAPE )99)3I)3V 657520051 * TAPEUSE ENTRY ERROR - NO TAPE )99)4?)3V 657520052 * TAPEUSE ENTRY ERROR - INPUT & OUTPUT )99)3I)4? 657520053 * DIOCS - START OF PROGRAM )0/)0A 657520054 ORG 87 657520055 IOCXR1 DCW 000 657520056 DC 00 65752 0057 IOCXR2 DCW 000 657520058 DC 00 657520059 IOCXR3 DCW 000 657520060 DC 0 657520061 ORG 333 )3X 657520062 ORG )3G 657520063 DC #1 6575K0064 * ENTRY TO OPEN ROUTINE 657520065 IOCOPN SBR IOCQUT&3 657520066 MLZS *-6,IOCCNT )3E)4 0067 MLC IOCCNT,IOCMPR&7 )3E)4 0068 MLC IOCCNT,IOCNSZ&7 )3E)0A 0069 SW IOCOPS#1 657520070 CW IOCLOS )3V 0071 CW IOCLOS,IOCFES )3E 0072 B IOCENT 6575K0073 * ENTRY TO FEORL ROUTINE )3E 6575K0074 IOCFRL SBR IOCQUT&3 )3E 6515K0075 SW IOCFES#1 )3E 6575K0076 CW IOCOPS,IOCLOS )3E 6575K 0077 B IOCENT )3E 6575K0078 )8L BW )2L,IOCLOS )3E)4 )3B 657520079 )8L BW )2L,IOCLOS )3E)4 )3C)3S 657520080 )8L BW )2L,IOCLOS )3E)4 )3D)3S)3T 657520081 )8L BW )2L,IOCLOS )3E)4 )3Z)3S)3T)3U 657520082 )8L BW )2L,IOCLOS )3E)3I)3S)3T)3U 657520083 B )8M )3E)4 657520084 * ENTRY TO CLOSE ROUTINE 657520085 IOCLOZ SBR IOCQUT&3 657520086 SW IOCLOS#1 65752 0087 CW IOCOPS )3V 0088 CW IOCOPS,IOCFES )3E 0089 B IOCENT 657520090 )0J MCW IOCXR3,IOCSV3#3 657520091 BCE )8L,IOCTYP,R )3E)4 )3B 657520092 BCE )8L,IOCTYP,R )3E)4 )3C)3S 657520093 BCE )8L,IOCTYP,R )3E)4 )3D)3S)3T 657520094 BCE )8L,IOCTYP,R )3E)4 )3Z)3S)3T)3U 657520095 B )8L )3E)3I)3S)3T)3U 657520096 BCE )0K,IOCTYP,W )3E)4 )3Z)3B 65752 0097 BCE )0K,IOCTYP,W )3E)4 )3Z)3C)3S 657520098 BCE )0K,IOCTYP,W )3E)4 )3Z)3D)3S)3T 657520099 BCE )0K,IOCTYP,W )3E)4?)3D 657520100 BCE )0K,IOCTYP,W )3E)4?)3C)3U 657520101 BCE )0K,IOCTYP,W )3E)4?)3B)3T)3U 657520102 BCE )0M,IOCTYP,4 )3C)3B 657520103 BCE )0M,IOCTYP,4 )3C)3D)3S 657520104 BCE )0M,IOCTYP,4 )3C)3E)3U)3S 657520105 BCE )9R,IOCTYP,2 )3B 6575K0106 B IOCDAC )3D 65752 0107 H 0,3222 )3B 6575K0108 )9R BIN *-11, )3B 6575K0109 B IOCDAC )3B 6575K0110 * WRITE LAST TAPE BLOCK )0/)0A)0/657520111 )0K EQU *&1 )3E)4 )3Z)3B 657520112 )0K EQU *&1 )3E)4 )3Z)3C)3S 657520113 )0K EQU *&1 )3E)4 )3Z)3D)3S)3T 657520114 )0K EQU *&1 )3E)4?)3D 657520115 )0K EQU *&1 )3E)4?)3C)3U 657520116 )0K EQU *&1 )3E)4?)3B)3T)3U 65752 0117 SBR IOCUXT&3,*&19 )3E)3Z 6575K0118 SBR *&11,33&X3 )3E)3Z)0A 6575K0119 SBR *&11,25&X3 )3E)3Z)0/ 6575K0120 MLC IOCXSV,IOCXR3 )3E)3Z 6575K0121 B 0 )3E)3Z 6575K0122 MCW IOCSV3,IOCXR3 )3E)3Z 657520123 MCW 6&X3,IOCBLK )3E)3Z 657520124 B )0N )3E)3Z)0/ 6575K0125 BCE *&5,IOCERH, )3E)0A 6575K0126 B IOCSRW )3E)0A 6575K 0127 MLC IOCCAN-4,*&7 )3E)0A 6575K0128 MLC 0,0 )3E)0A 6575K0129 MLC IOCNOP-7,IOCCAN-4 )3E)0A 6575K0130 SBR IOCTAD-3,)0N )3E)0A 6575K0131 SW IOCTBS-4 )3E)0A 6575K0132 B IOCTBL&4 )3E)0A 6575K0133 * PUNCH EXTRA CARD )0/)0A 657520134 )0M EQU *&1 )3C)3B 657520135 )0M EQU *&1 )3C)3D)3S 657520136 )0M EQU *&1 )3C)3E)3U)3S 65752 0137 SW IOCPLC&1 )3C 6575K0138 SBR IOCUXT&3,*&8 )3C 657520139 B 17&X3 )3C 657520140 DCW @$@ )3C 657520141 DCW @$@ )3C 657520142 DCW @$@ )3C 657520143 CW IOCPLC&1 )3C 657520144 MCW IOCSV3,IOCXR3 )3C 657520145 B IOCDAC )3C 657520146 * ENTRY TO END OF REEL ROUTINE 0147 IOCEOR SBR IOCQUT&3 0148 BCE *&5,IOCERH, )3E)0A 0149 B IOCSRW )3E)0A 0150 MLC IOCCAN-4,*&7 )3E)0A 0151 MLC 0,0 )3E)0A 0152 MLC IOCNOP-7,IOCCAN-4 )3E)0A 0153 SW IOCRRR#1 )3E)0A 6575K0154 CW IOCOPS,IOCLOS 0155 CW IOCFES )3E 6575K0156 * ENTRY TO END OF REEL ROUTINE - OPEN,CLOSE,FEORL )0/)0A 65752 0157 IOCENT MCW IOCXR3,IOCXSV#8 657520158 MCW )3E)3H 657520159 MCW )3E)0A)3Y 6575K0160 MCW IOCQUT&3,IOCXR3 657520161 MCW 3&X3,IOCXR3 657520162 * PICK UP DTF FIXED PARAMETERS )0/)0A 657520163 MCW 16&X3,IOCPSV 657520164 CHAIN8 657520165 SAR IOCSVA#3 657520166 BW )0J,IOCLOS 65752 0167 BW )0J,IOCFES )3E 0168 BWZ )0L,IOCTYP,2 )3B)3T)3U)3E 657520169 BWZ )0L,IOCTYP,2 )3C)3U)3E 657520170 BWZ )0L,IOCTYP,2 )3D)3E 657520171 BW *&9,IOCOPS )3E)0A 6575K0172 SW IOCTBS-4 )0A)3E 6575K0173 B IOCTBL )0A)3E 6575K0174 * INITIALIZE EXITS )0/)0A 657520175 )8M EQU *&1 )3E)4 657520176 )0N EQU *&1 )3E)3Z 65752 0177 SBR IOCXR2,IOCSRE )3E)3H 657520178 SBR IOCXT1&3 )3E)2D 657520179 SBR IOCXT2&3 )3E)2C 657520180 SBR IOCXT3&3 )3E)2B 657520181 SBR IOCXT4&3 )3E)2A 657520182 SBR IOCXT5&3 )3E)2? 657520183 SBR IOCXT6&3 )3E)1I 657520184 SBR IOCXT7&3 )3E)1H 657520185 SBR IOCXT8&3 )3E)1G 657520186 * PROCESS DTF EXIT ADDRESSES )0/)0A 65752 0187 SBR IOCXR2,IOCXT8&3 )3E)3H)1G 657520188 SBR IOCXR2,IOCXT8 )3E)3H)1X 657520189 )0P BCE )1J,0&X3,% )3E)3H 657520190 BCE )0R,0&X3,* )3E)3H 657520191 MCW 0&X3,0&X2 )3E)3H 657520192 SAR IOCXR3 )3E)3H 657520193 )0Q C 0&X2 )3E)3H 657520194 SAR IOCXR2 )3E)3H 657520195 B )0P )3E)3H 657520196 )0R MN 0&X3 )3E)3H 65752 0197 SAR IOCXR3 )3E)3H 657520198 B )0Q )3E)3H 657520199 * PICK UP LABEL INFORMATION-IF PRESENT )0/)0A 657520200 )1J EQU *&1 )3E)3H 657520201 MN 0&X3 )3E)3A 657520202 MN 0&X3 )3E)3? 657520203 MN 0&X3 )3E)2I 657520204 SAR IOCSV3 )3E)3A 657520205 SAR IOCSV3 )3E)3? 657520206 SAR IOCSV3 )3E)2I 65752 0207 SBR IOCXR3 )3E)3A 657520208 SBR IOCXR3 )3E)3? 657520209 SBR IOCXR3 )3E)2I 657520210 BCE )1L,IOCPSV-4,2 )3E)2I 657520211 BCE )1P,IOCPSV-4, )3E)2I)3 )3/ 657520212 * PICK UP IDENTIFICATION FIELD )0/)0A 657520213 MCW 0&X3,IOCIDT )3E)3A 657520214 MCW 0&X3,IOCIDT )3E)2I 657520215 SAR IOCXR3 )3E)3A 657520216 SAR IOCXR3 )3E)2I 65752 0217 CW IOCFSW#1 )3E)3A)3Z 657520218 CW IOCFSW#1 )3E)2I)3Z 657520219 MCW 0&X3,IOCSER )3E)3A 657520220 MCW 0&X3,IOCSER )3E)2I 657520221 SAR IOCXR3 )3E)3A 657520222 SAR IOCXR3 )3E)2I 657520223 BCE )1K,IOCSER, )3E)3A)3Z 657520224 BCE )1K,IOCSER, )3E)2I)3Z 657520225 * PICK UP FILE SERIAL NUMBER )0/)0A 657520226 SW IOCFSW )3E)3A)3Z 65752 0227 SW IOCFSW )3E)2I)3Z 657520228 * PICK UP REEL SEQUENCE,RETENTION CYCLE,CREATION DATE )0/)0A 657520229 )1K EQU *&1 )3E)3A)3Z 657520230 )1K EQU *&1 )3E)2I)3Z 657520231 MCW 0&X3,IOCSEQ )3E)3A 657520232 MCW 0&X3,IOCSEQ )3E)2I 657520233 MCW )3E)3A 657520234 MCW )3E)2I 657520235 MCW )3E)3A 657520236 MCW )3E)2I 65752 0237 SAR IOCXR3 )3E)3A 657520238 SAR IOCXR3 )3E)2I 657520239 )1L EQU *&1 )3E)2I 657520240 * PICK UP RECORD COUNT AND HASH TOTAL )0/)0A 657520241 MN 0&X3 )3E)0D)0V 657520242 MN 0&X3 )3E)0E 657520243 SAR IOCXR3 )3E)0D)0V 657520244 SAR IOCXR3 )3E)0E 657520245 MCW @ @,IOCHSH )3E)0D)0V 657520246 MCW @ @,IOCHSH )3E)0E 65752 0247 MCW IOCHSH )3E)0D)0V 657520248 MCW IOCHSH )3E)0E 657520249 MCW IOCHSH,IOCRCT )3E)0D)0V 657520250 MCW IOCHSH,IOCRCT )3E)0E 657520251 SW IOCRSW,IOCHSW )3E)0D)0E 657520252 SW IOCRSW )3E)0E)0U 657520253 SW IOCHSW )3E)0D)0V 657520254 BCE )1M,1&X3,* )3E)0E 657520255 CW IOCRSW#1 )3E)0E 657520256 MCW 1&X3,IOCRCT )3E)0E 65752 0257 SAR IOCXR3 )3E)0E)0D 657520258 )1M EQU *&1 )3E)0E 657520259 BCE )1N,0&X3,* )3E)0D 657520260 CW IOCHSW#1 )3E)0D 657520261 MCW 0&X3,IOCHSH )3E)0D 657520262 )1N EQU *&1 )3E)0D 657520263 * DETERMINE IF EXIT 3 IS USED )0/)0A 657520264 SW IOCSW3#1 )3E)2B 657520265 C IOCXT3&3,&IOCSRE )3E)2B 657520266 BE *&5 )3E)2B 65752 0267 CW IOCSW3 )3E)2B 657520268 * BEGINNING OF MAIN LINE )0/)0A 657520269 )0L EQU *&1 )3B)3U)3T)3E 657520270 )0L EQU *&1 )3C)3U)3E 657520271 )0L EQU *&1 )3D)3E 657520272 )1P EQU *&1 )3E)2I 657520273 BW )2N,IOCOPS )3E 657520274 BW IOCLVE,IOCOPS )3D)3V 657520275 BCE )4P,IOCTYP,W )3E)3Z 657520276 MCW IOCEOF,)2K&3 )3E)4 )3U 65752 0277 MCW IOCEOF,)2K&3 )3D 657520278 MCW @B@,)2K )3E)4 )3U 657520279 MCW @B@,)2K )3D 657520280 MCW IOCXSV,IOCXR3 657520281 MCW )3E)3H 657520282 BCE )2K,IOCTYP,1 )3E)4 )3D 657520283 * PROCESS TAPE INPUT - END OF REEL )3E)4 657520284 BCE )2K,IOCPSV-4, )3E)2I)4 657520285 BW )2L,IOCFES )3E)4 )3A 657520286 BW )2L,IOCFES )3E)4 )2I 65752 0287 BW )2L,IOCFES )3E)4 )3? 657520288 MCW @B@,)2J )3E)1I)3A 657520289 MCW @B@,)2J )3E)1I)2I 657520290 BCE )1R,IOCPSV-4,2 )3E)2I)4 )1I 6575K0291 BCE )2K,IOCPSV-4,2 )3E)2I)4 )1Z 6575K0292 * READ INPUT TRAILER )0/)0A 657520293 MCW @R@,IOCTDF&13 )3E)4 )3A 657520294 MCW @R@,IOCTDF&13 )3E)4 )2I 657520295 MCW @L@,IOCTDF&6 )3E)4 )3A 657520296 MCW @L@,IOCTDF&6 )3E)4 )2I 65752 0297 B IOCRWR )3E)4 )3A 657520298 B IOCRWR )3E)4 )2I 657520299 BCE )1R,IOCPSV-4,A )3E)4 )3A 657520300 BCE )1R,IOCPSV-4,A )3E)4 )2I 657520301 MCW @N@,)2J )3E)1I)3A 657520302 MCW @N@,)2J )3E)1I)2I 657520303 * CHECK BLOCK COUNT )0/)0A 657520304 C IOCSLB&9,IOCBLK-1 )3E)4 )2H)2X 657520305 C IOCSLB&9,IOCBLK-1 )3E)4 )2G 657520306 B )3L )3E)4 )2H)2X 65752 0307 B )3L )3E)4 )2G 657520308 BW )1Q,IOCRSW )3E)4 )2H)0E 657520309 BW )1Q,IOCRSW )3E)4 )2G)0E 657520310 * CHECK RECORD COUNT )0/)0A 657520311 C IOCSLB&19,IOCRCT )3E)4 )2H)0E 657520312 C IOCSLB&19,IOCRCT )3E)4 )2G)0E 657520313 B )3L )3E)4 )2H)0E 657520314 B )3L )3E)4 )2G)0E 657520315 )1Q EQU *&1 )3E)4 )2H)0E 657520316 )1Q EQU *&1 )3E)4 )2G)0E 65752 0317 BW )1R,IOCHSW )3E)4 )2H)0D 657520318 BW )1R,IOCHSW )3E)4 )2G)0D 657520319 * CHECK HASH TOTAL )0/)0A 657520320 C IOCSLB&29,IOCHSH )3E)4 )2H)0D 657520321 C IOCSLB&29,IOCHSH )3E)4 )2G)0D 657520322 B )3L )3E)4 )2H)0D 657520323 B )3L )3E)4 )2G)0D 657520324 )1R EQU *&1 )3E)4 )3A 657520325 )1R EQU *&1 )3E)4 )2I 657520326 * EXIT6 )0/)0A 65752 0327 C IOCXT6&3,&IOCSRE )3E)1I)2I 6575K0328 C IOCXT6&3,&IOCSRE )3E)1I)3? 6575K0329 BU *&9 )3E)1I)2I 6575K0330 BU *&5 )3E)1I)3? 6575K0331 BCE )2K,IOCPSV-4,2 )3E)1I)2I 6575K0332 B )2K )3E)1I)3? 6575K0333 SBR IOCSRE&3,*&5 )3E)1I 657520334 B IOCXT6 )3E)1I 657520335 )2J EQU *&1 )3E)1I)3A 657520336 )2J EQU *&1 )3E)1I)2I 65752 0337 B )2L )3E)1I 657520338 BCE )2L,IOCSLB&3,R )3E)4 )3A 657520339 BCE )2L,IOCSLB&3,R )3E)4 )2I 657520340 )2K B 0 )3E)4 )3U 657520341 )2K B 0 )3D 657520342 )2L EQU *&1 )3E 657520343 * END OF REEL REWIND )0/)0A 657520344 BCE )2M,IOCRWD, )3E)1B 657520345 BCE )2M,IOCRWD, )3E)1C 657520346 BCE )8R,IOCRWD,B )3E)1B 65752 0347 MN IOCTAP,*&4 )3E 657520348 RWD 0 )3E 657520349 B )2M )3E)1B 657520350 )8R MN IOCTAP,*&4 )3E)1B 657520351 RWU 0 )3E)1B 657520352 )2M EQU *&1 )3E)1B 657520353 )2M EQU *&1 )3E)1C 657520354 BW IOCLVE,IOCLOS )3E 657520355 * BUMP REEL SEQUENCE NUMBER )0/)0A 657520356 A &1,IOCSEQ )3E)2I 65752 0357 A &1,IOCSEQ )3E)3A 657520358 * START NEW REEL - ALTERNATE TAPES )0/)0A 657520359 BCE )3N,IOCALT, )3E)2E 657520360 B )3N )3E)2V 657520361 MN IOCTAP,IOCSV1#1 )3E)2E 657520362 MN IOCALT,IOCTAP )3E)2E 657520363 MN IOCSV1,IOCALT )3E)2E 657520364 )2N EQU *&1 )3E 657520365 MLC IOCSVA,IOCXR3 )3E)0A 6575K0366 B IOCTBL )3E)0A 6575K 0367 BWZ IOCLVE,IOCTYP,2 )3B)3E)3T)3U 657520368 BWZ IOCLVE,IOCTYP,2 )3C)3E)3U 657520369 BWZ IOCLVE,IOCTYP,2 )3D)3E 657520370 * REWIND OPTION - NEW REEL )0/)0A 657520371 * PROCESS NEW TAPE REEL )3E 657520372 BCE )2P,IOCRWD, )3E)1B 657520373 BCE )2P,IOCRWD, )3E)1C 657520374 MN IOCTAP,*&4 )3E 657520375 RWD 0 )3E 657520376 )2P EQU *&1 )3E)1B 65752 0377 )2P EQU *&1 )3E)1C 657520378 )2O EQU *&1 )3E)3A)3Z 657520379 )2O EQU *&1 )3E)2I)3Z 657520380 * RESET BLOCK,RECORD AND HASH TOTALS )0/)0A 657520381 S IOCBLK )3E 657520382 MCW @ @,IOCHSH )3E)0D)0V 657520383 MCW @ @,IOCHSH )3E)0E 657520384 MCW IOCHSH )3E)0D)0V 657520385 MCW IOCHSH )3E)0E 657520386 MCW IOCHSH,IOCRCT )3E)0D)0V 65752 0387 MCW IOCHSH,IOCRCT )3E)0E 657520388 * GET LABEL - NEW REEL )0/)0A 657520389 BCE IOCLVE,IOCPSV-4, )3E)2I 657520390 B IOCLVE )3E)2Z)3 )3/ 657520391 BCE )2Q,IOCPSV-4,2 )3E)2I 657520392 MCW @R@,IOCTDF&13 )3E)3A)4 657520393 MCW @R@,IOCTDF&13 )3E)2I)4 657520394 MCW @L@,IOCTDF&6 )3E)3A)4 657520395 MCW @L@,IOCTDF&6 )3E)2I)4 657520396 B IOCRWR )3E)3A)4 65752 0397 B IOCRWR )3E)2I)4 657520398 )0O MCW &9,)3O#1 )3E)3A)4? 657520399 )0O MCW &9,)3O#1 )3E)2I)4? 657520400 )4O LCA @}@,IOCSLB&80 )3E)3A)4? 657520401 )4O LCA @}@,IOCSLB&80 )3E)2I)4? 657520402 MN IOCTAP,*&4 )3E)3A)4? 657520403 MN IOCTAP,*&4 )3E)2I)4? 657520404 RTW 0,IOCSLB )3E)3A)4? 657520405 RTW 0,IOCSLB )3E)2I)4? 657520406 BER )5Q )3E)3A)4? 65752 0407 BER )5Q )3E)2I)4? 657520408 )2Q EQU *&1 )3E)2I 657520409 BCE )3P,IOCTYP,W )3E)3Z)4 )3A 657520410 BCE )3P,IOCTYP,W )3E)3Z)4 )2I 657520411 BCE )3P,IOCTYP,W )3E)3Z)4 )3? 657520412 * PROCESS TAPE INPUT - NEW REEL )3E)4 )2I 657520413 * PROCESS TAPE INPUT - NEW REEL )3E)4 )3A 657520414 * PROCESS TAPE INPUT - NEW REEL )3E)4 )3? 657520415 BCE )2R,IOCPSV-4,2 )3E)2I)4 657520416 BCE )2R,IOCPSV-4,A )3E)4 )2G)2Y 65752 0417 BCE )2R,IOCPSV-4,A )3E)4 )2H 657520418 * CHECK IDENT - STANDARD INPUT HEADER )0/)0A 657520419 C IOCSLB&29,IOCIDT )3E)4 )2G)2Y 657520420 C IOCSLB&29,IOCIDT )3E)4 )2H 657520421 B )3J )3E)4 )2G)2Y 657520422 B )3J )3E)4 )2H 657520423 BCE )2R,IOCPSV-4,J )3E)4 )2H 657520424 * CHECK BALANCE OF INPUT HEADER )0/)0A 657520425 C IOCSLB&34,IOCCRD )3E)4 )2H 657520426 B )3J )3E)4 )2H 65752 0427 C IOCSLB&38,IOCRCY )3E)4 )2H 657520428 B )3J )3E)4 )2H 657520429 C IOCSLB&18,IOCSEQ )3E)4 )2H 657520430 B )3J )3E)4 )2H 657520431 C IOCSLB&14,IOCSER )3E)4 )2H 657520432 B )3J )3E)4 )2H 657520433 )2R EQU *&1 )3E)4 )2I 657520434 )2R EQU *&1 )3E)4 )3A)2G)2Y 657520435 )2R EQU *&1 )3E)4 )3A)2H 657520436 * EXIT 7 )0/)0A 65752 0437 SBR IOCSRE&3,*&5 )3E)4 )1H 657520438 B IOCXT7 )3E)4 )1H 657520439 * BYPASS TAPE MARK AFTER HEADER )0/)0A 657520440 MN IOCTAP,*&4 )3E)4 )2I)2F 657520441 MN IOCTAP,*&4 )3E)4 )3?)2F 657520442 MN IOCTAP,*&4 )3E)4 )3A)2F 657520443 RT 0,IOCBYP )3E)4 )2I)2F 657520444 RT 0,IOCBYP )3E)4 )3?)2F 657520445 RT 0,IOCBYP )3E)4 )3A)2F 657520446 BEF IOCLVE )3E)4 )2I)2F 65752 0447 BEF IOCLVE )3E)4 )3?)2F 657520448 BEF IOCLVE )3E)4 )3A)2F 657520449 MN IOCTAP,*&4 )3E)4 )2I)2F 657520450 MN IOCTAP,*&4 )3E)4 )3?)2F 657520451 MN IOCTAP,*&4 )3E)4 )3A)2F 657520452 BSP 0 )3E)4 )2I)2F 657520453 BSP 0 )3E)4 )3?)2F 657520454 BSP 0 )3E)4 )3A)2F 657520455 B IOCLVE )3E)4 )2I 657520456 B IOCLVE )3E)4 )3? 65752 0457 B IOCLVE )3E)4 )3A 657520458 * TEST INPUT HEADER COMPARE )0/)0A 657520459 )3J SBR )3K&3 )3E)4 )2G)2Y 657520460 )3J SBR )3K&3 )3E)4 )2H 657520461 BE )3K )3E)4 )2G)2Y 657520462 BE )3K )3E)4 )2H 657520463 H )2R )3E)4 )2G)2Y 657520464 H )2R )3E)4 )2H 657520465 B )2N )3E)4 )2G)2Y 657520466 B )2N )3E)4 )2H 65752 0467 )3K B 0 )3E)4 )2G)2Y 657520468 )3K B 0 )3E)4 )2H 657520469 * TEST INPUT TRAILER COMPARE )0/)0A 657520470 )3L SBR )3M&3 )3E)4 )2G)2Y 657520471 )3L SBR )3M&3 )3E)4 )2H 657520472 BE )3M )3E)4 )2G)2Y 657520473 BE )3M )3E)4 )2H 657520474 H )1R )3E)4 )2G)2Y 657520475 H )1R )3E)4 )2H 657520476 NOP 3800 )3E)4 )2H 65752 0477 NOP 3800 )3E)4 )2G)2Y 657520478 H )3E)4 )2H 657520479 H )3E)4 )2G)2Y 657520480 B *-4 )3E)4 )2H 657520481 B *-4 )3E)4 )2G)2Y 657520482 )3M B 0 )3E)4 )2G)2Y 657520483 )3M B 0 )3E)4 )2H 657520484 * START NEW REEL OUTPUT FILE )0/)0A 657520485 )3P EQU *&1 )3E)3Z)4 )3A 657520486 )3P EQU *&1 )3E)3Z)4 )2I 65752 0487 )3P EQU *&1 )3E)3Z)4 )3? 657520488 * PROCESS TAPE OUTPUT - NEW REEL )3E)3Z)2I 657520489 * PROCESS TAPE OUTPUT - NEW REEL )3E)3Z)3A 657520490 * PROCESS TAPE OUTPUT - NEW REEL )3E)3Z)3? 657520491 BCE )4L,IOCPSV-4,2 )3E)3Z)2I 657520492 * BACKSPACE OUTPUT REEL )0/)0A 657520493 BCE *&13,IOCPSV-9, )3E)3Z)3A 6575K0494 BCE *&13,IOCPSV-9, )3E)3Z)2I 6575K0495 MN IOCTAP,*&4 )3E)3Z)3A 6575K0496 MN IOCTAP,*&4 )3E)3Z)2I 6575K 0497 RWD 0 )3E)3Z)3A 6575K0498 RWD 0 )3E)3Z)2I 6575K0499 MN IOCTAP,*&4 )3E)3Z)3A 657520500 MN IOCTAP,*&4 )3E)3Z)2I 657520501 BSP 0 )3E)3Z)3A 657520502 BSP 0 )3E)3Z)2I 657520503 BW )3Q,IOCSW3 )3E)3Z)2B 657520504 * EXIT 3 )0/)0A 657520505 SBR IOCSRE&3,)4J )3E)3Z)2B 657520506 B IOCXT3 )3E)3Z)2B 65752 0507 )3Q EQU *&1 )3E)3Z)2B 657520508 BCE )4J,IOCSLB&1,B )3E)3Z)3A 657520509 BCE )4J,IOCSLB&1,B )3E)3Z)2I 657520510 * CHECK RETENTION CYCLE )0/)0A 657520511 S IOCSV6#6 )3E)3Z)3A 657520512 S IOCSV6#6 )3E)3Z)2I 657520513 MN IOCSLB&34,IOCSV6-1 )3E)3Z)3A 657520514 MN IOCSLB&34,IOCSV6-1 )3E)3Z)2I 657520515 MN )3E)3Z)3A 657520516 MN )3E)3Z)2I 65752 0517 MN )3E)3Z)3A 657520518 MN )3E)3Z)2I 657520519 SW IOCSLB&36 )3E)3Z)3A 657520520 SW IOCSLB&36 )3E)3Z)2I 657520521 A IOCSLB&38,IOCSV6-1 )3E)3Z)3A 657520522 A IOCSLB&38,IOCSV6-1 )3E)3Z)2I 657520523 CW IOCSLB&36 )3E)3Z)3A 657520524 CW IOCSLB&36 )3E)3Z)2I 657520525 )3R C IOCSV6-1,@0365@ )3E)3Z)3A 657520526 )3R C IOCSV6-1,@0365@ )3E)3Z)2I 65752 0527 BL )4M )3E)3Z)3A 657520528 BL )4M )3E)3Z)2I 657520529 A IOCSLB&31,IOCSV6-4 )3E)3Z)3A 657520530 A IOCSLB&31,IOCSV6-4 )3E)3Z)2I 657520531 * COMPARE FOR ACCEPTANCE OF REEL )0/)0A 657520532 C IOCSV6-1,IOCTDY )3E)3Z)3A 657520533 C IOCSV6-1,IOCTDY )3E)3Z)2I 657520534 BE )4J )3E)3Z)3A 657520535 BE )4J )3E)3Z)2I 657520536 BH )4J )3E)3Z)2I 65752 0537 BH )4J )3E)3Z)3A 657520538 H )4J )3E)3Z)3A 657520539 H )4J )3E)3Z)2I 657520540 B )2O )3E)3Z)3A 657520541 B )2O )3E)3Z)2I 657520542 * MODULO 365 ARITHMETIC )0/)0A 657520543 )4M SW IOCSLB&30 )3E)3Z)3A 657520544 )4M SW IOCSLB&30 )3E)3Z)2I 657520545 S @3650@,IOCSV6 )3E)3Z)3A 657520546 S @3650@,IOCSV6 )3E)3Z)2I 65752 0547 A &1,IOCSLB&31 )3E)3Z)3A 657520548 A &1,IOCSLB&31 )3E)3Z)2I 657520549 CW IOCSLB&30 )3E)3Z)3A 657520550 CW IOCSLB&30 )3E)3Z)2I 657520551 B )3R )3E)3Z)3A 657520552 B )3R )3E)3Z)2I 657520553 * CREATE NEW OUTPUT HEADER )0/)0A 657520554 )4J B )8P )3E)3Z)3A 657520555 )4J B )8P )3E)3Z)2I 657520556 MCW @ @,IOCSLB&39 )3E)3Z)3A 65752 0557 MCW @ @,IOCSLB&39 )3E)3Z)2I 657520558 MCW IOCRCY )3E)3Z)3A 657520559 MCW IOCRCY )3E)3Z)2I 657520560 MCW @-@ )3E)3Z)3A 657520561 MCW @-@ )3E)3Z)2I 657520562 MCW IOCTDY )3E)3Z)3A 657520563 MCW IOCTDY )3E)3Z)2I 657520564 MCW IOCIDT )3E)3Z)3A 657520565 MCW IOCIDT )3E)3Z)2I 657520566 MCW @ @ )3E)3Z)3A 65752 0567 MCW @ @ )3E)3Z)2I 657520568 MCW IOCSEQ )3E)3Z)3A 657520569 MCW IOCSEQ )3E)3Z)2I 657520570 MCW @-@ )3E)3Z)3A 657520571 MCW @-@ )3E)3Z)2I 657520572 BW )4N,IOCOPS )3E)3Z)3A 657520573 BW )4N,IOCOPS )3E)3Z)2I 657520574 )4K MCW IOCSER,IOCSLB&14 )3E)3Z)3A 657520575 )4K MCW IOCSER,IOCSLB&14 )3E)3Z)2I 657520576 MCW @1HDR @,IOCSLB&4 )3E)3Z)3A 65752 0577 MCW @1HDR @,IOCSLB&4 )3E)3Z)2I 657520578 * EXIT 4 )0/)0A 657520579 SBR IOCSRE&3,*&5 )3E)3Z)2A 657520580 B IOCXT4 )3E)3Z)2A 657520581 * WRITE OUTPUT HEADER )0/)0A 657520582 MCW @W@,IOCTDF&13 )3E)3Z)3A 657520583 MCW @W@,IOCTDF&13 )3E)3Z)2I 657520584 MCW @M@,IOCTDF&6 )3E)3Z)2I 657520585 MCW @M@,IOCTDF&6 )3E)3Z)3A 657520586 B IOCRWR )3E)3Z)3A 65752 0587 B IOCRWR )3E)3Z)2I 657520588 )4L EQU *&1 )3E)3Z)2I 657520589 * EXIT 5 )0/)0A 657520590 SBR IOCSRE&3,*&5 )3E)3Z)2? 657520591 B IOCXT5 )3E)3Z)2? 657520592 B IOCLVE )3E)3Z)2I 657520593 B IOCLVE )3E)3Z)3? 657520594 B IOCLVE )3E)3Z)3A 657520595 * PICK UP FILE SERIAL NUMBER )0/)0A 657520596 )4N BW )4K,IOCFSW )3E)3Z)3A 65752 0597 )4N BW )4K,IOCFSW )3E)3Z)2I 657520598 MCW IOCSLB&9,IOCSER )3E)3Z)3A 657520599 MCW IOCSLB&9,IOCSER )3E)3Z)2I 657520600 B )4K )3E)3Z)3A 657520601 B )4K )3E)3Z)2I 657520602 * PROCESS TAPE OUTPUT - END OF REEL )3E)3Z 657520603 )4P EQU *&1 )3E)3Z 657520604 BW )4Q,IOCLOS )3E)3Z)1G 657520605 BW )4Q,IOCFES )3E)3Z)1G 657520606 * EXIT 8 )0/)0A 65752 0607 SBR IOCSRE&3,)5N )3E)3Z)1G 657520608 B IOCXT8 )3E)3Z)1G 657520609 * WRITE TAPE MARK )0/)0A 657520610 )4Q EQU *&1 )3E)3Z)1G 657520611 MN IOCTAP,*&4 )3E)3Z 657520612 WTM 0 )3E)3Z 657520613 BCE )2L,IOCPSV-4, )3E)3Z)2I 657520614 B )2L )3E)3Z)2Z)3 )3/ 657520615 BCE )4R,IOCPSV-4,2 )3E)3Z)2I 657520616 * SET UP OUTPUT TRAILER )0/)0A 65752 0617 B )8P )3E)3Z)3A 657520618 B )8P )3E)3Z)2I 657520619 MCW IOCHSH,IOCSLB&29 )3E)3Z)2I)0D)0V 657520620 MCW IOCHSH,IOCSLB&29 )3E)3Z)2I)0E 657520621 MCW IOCHSH,IOCSLB&29 )3E)3Z)3A)0D)0V 657520622 MCW IOCHSH,IOCSLB&29 )3E)3Z)3A)0E 657520623 MCW IOCRCT )3E)3Z)2I)0D)0V 657520624 MCW IOCRCT )3E)3Z)2I)0E 657520625 MCW IOCRCT )3E)3Z)3A)0E 657520626 MCW IOCRCT )3E)3Z)3A)0D)0V 65752 0627 MCW )8Q#10,IOCSLB&29 )3E)3Z)2I)0U)0V 657520628 MCW )8Q#10,IOCSLB&29 )3E)3Z)3A)0U)0V 657520629 MCW )8Q )3E)3Z)2I)0U)0V 657520630 MCW )8Q )3E)3Z)3A)0U)0V 657520631 MCW IOCBLK-1 )3E)3Z)2I 657520632 MCW IOCBLK-1 )3E)3Z)3A 657520633 MCW @1EOR @ )3E)3Z)2I 657520634 MCW @1EOR @ )3E)3Z)3A 657520635 BW *&5,IOCLOS )3E)3Z)2I 657520636 BW *&5,IOCLOS )3E)3Z)3A 65752 0637 B *&8 )3E)3Z)2I 657520638 B *&8 )3E)3Z)3A 657520639 MCW @F@,IOCSLB&3 )3E)3Z)2I 657520640 MCW @F@,IOCSLB&3 )3E)3Z)3A 657520641 * EXIT 1 )0/)0A 657520642 SBR IOCSRE&3,*&5 )3E)3Z)2D 657520643 B IOCXT1 )3E)3Z)2D 657520644 * WRITE OUTPUT TRAILER )0/)0A 657520645 MCW @W@,IOCTDF&13 )3E)3Z)2I 657520646 MCW @W@,IOCTDF&13 )3E)3Z)3A 65752 0647 MCW @M@,IOCTDF&6 )3E)3Z)3A 657520648 MCW @M@,IOCTDF&6 )3E)3Z)2I 657520649 B IOCRWR )3E)3Z)2I 657520650 B IOCRWR )3E)3Z)3A 657520651 )4R EQU *&1 )3E)3Z)2I 657520652 * EXIT 2 )0/)0A 657520653 SBR IOCSRE&3,*&5 )3E)3Z)2C 657520654 B IOCXT2 )3E)3Z)2C 657520655 * WRITE SECOND TAPE MARK )0/)0A 657520656 MN IOCTAP,*&4 )3E)3Z)2I 65752 0657 MN IOCTAP,*&4 )3E)3Z)3? 657520658 MN IOCTAP,*&4 )3E)3Z)3A 657520659 WTM 0 )3E)3Z)2I 657520660 WTM 0 )3E)3Z)3? 657520661 WTM 0 )3E)3Z)3A 657520662 B )2L )3E)3Z)2I 657520663 B )2L )3E)3Z)3? 657520664 B )2L )3E)3Z)3A 657520665 )5Q MN IOCTAP,*&4 )3E)3A)4? 657520666 )5Q MN IOCTAP,*&4 )3E)2I)4? 65752 0667 BSP 0 )3E)3A)4? 657520668 BSP 0 )3E)2I)4? 657520669 S &1,)3O )3E)3A)4? 657520670 S &1,)3O )3E)2I)4? 657520671 BWZ )4O,)3O,B )3E)3A)4? 657520672 BWZ )4O,)3O,B )3E)2I)4? 657520673 NOP 3777 )3E)3A)4? 657520674 NOP 3777 )3E)2I)4? 657520675 H )3E)3A)4? 657520676 H )3E)2I)4? 65752 0677 B )0O )3E)3A)4? 657520678 B )0O )3E)2I)4? 657520679 )8P SBR )8O&3 )3E)3Z)3A 657520680 )8P SBR )8O&3 )3E)3Z)2I 657520681 SBR )8O-1,0&X3 )3E)3Z)3A 657520682 SBR )8O-1,0&X3 )3E)3Z)2I 657520683 SBR IOCXR3,IOCSLB&79 )3E)3Z)3A 657520684 SBR IOCXR3,IOCSLB&79 )3E)3Z)2I 657520685 MLC IOCSLB&9,IOCTSS#5 )3E)3Z)3A 6575K0686 MLC IOCSLB&9,IOCTSS#5 )3E)3Z)2I 6575K 0687 )8N CW 0&X3 )3E)3Z)2I 657520688 )8N CW 0&X3 )3E)3Z)3A 657520689 MLC @ @,0&X3 )3E)3Z)3A 6575K0690 MLC @ @,0&X3 )3E)3Z)2I 6575K0691 SBR IOCXR3 )3E)3Z)3A 657520692 SBR IOCXR3 )3E)3Z)2I 657520693 C IOCXR3,&IOCSLB-1 )3E)3Z)3A 657520694 C IOCXR3,&IOCSLB-1 )3E)3Z)2I 657520695 BU )8N )3E)3Z)3A 657520696 BU )8N )3E)3Z)2I 65752 0697 MLC IOCTSS,IOCSLB&9 )3E)3Z)3A 6575K0698 MLC IOCTSS,IOCSLB&9 )3E)3Z)2I 6575K0699 SBR IOCXR3,0 )3E)3Z)3A 657520700 SBR IOCXR3,0 )3E)3Z)2I 657520701 )8O B 0 )3E)3Z)3A 657520702 )8O B 0 )3E)3Z)2I 657520703 * EXIT FOR OPEN, CLOSE, END OF REEL & FEORL CONDITIONS 657520704 IOCLVE EQU *&1 )3E)3U 657520705 IOCLVE EQU *&1 )3D 657520706 BW )5L,IOCLOS )3E)2I 65752 0707 BW )5L,IOCLOS )3E)3A 657520708 BWZ )5O,IOCTYP,2 )3B)3T)3U)3E 657520709 BWZ )5O,IOCTYP,2 )3C)3U)3E 657520710 BWZ )5O,IOCTYP,2 )3D)3E 657520711 * RESTORE DTF TABLE ENTRIES )0/)0A 657520712 MCW IOCSV3,IOCXR3 )3E)2I 657520713 MCW IOCSV3,IOCXR3 )3E)3A 657520714 MCW IOCSV3,IOCXR3 )3E)3? 6575K0715 BCE )5J,IOCPSV-4,2 )3E)2I 657520716 BCE )5L,IOCPSV-4, )3E)2I 65752 0717 MCW IOCIDT,0&X3 )3E)3A 657520718 MCW IOCIDT,0&X3 )3E)2I 657520719 CHAIN4 )3E)3A 657520720 CHAIN4 )3E)2I 657520721 SBR IOCXR3 )3E)3A 657520722 SBR IOCXR3 )3E)2I 657520723 )5J EQU *&1 )3E)2I 657520724 MN 0&X3 )3E)0E)0U 657520725 MN 0&X3 )3E)0D 657520726 SAR IOCXR3 )3E)0E)0U 65752 0727 SAR IOCXR3 )3E)0D 657520728 BCE )5K,1&X3,* )3E)0E 657520729 MCW IOCRCT,1&X3 )3E)0E 657520730 SBR IOCXR3 )3E)0E)0D 657520731 )5K EQU *&1 )3E)0E 657520732 BCE *&8,0&X3,* )3E)0D 657520733 MCW IOCHSH,0&X3 )3E)0D 657520734 * RESTORE DTF FIXED TABLE ENTRIES )0/)0A 657520735 )5L EQU *&1 )3E)2I 657520736 )5L EQU *&1 )3E)3A 65752 0737 )5O EQU *&1 )3B)3T)3U)3E 657520738 )5O EQU *&1 )3C)3U)3E 657520739 )5O EQU *&1 )3D)3E 657520740 MCW IOCSVA,IOCXR3 657520741 MCW IOCPSV,16&X3 657520742 CHAIN8 657520743 BW IOCACT,IOCOPS )0/ 6575K0744 BW IOCDAC,IOCLOS 657520745 B IOCACT )0A 6575K0746 * RESTORE INDEX REGISTERS )0/)0A 65752 0747 )5M MCW IOCXSV,IOCXR3 657520748 MCW )3E)3H 657520749 MCW )3E)0A)3Y 6575K0750 CW IOCOPS,IOCLOS )0A)3E 657520751 CW IOCFES,IOCRRR )0A)3E 657520752 IOCQUT B 0 657520753 * ACTIVATE FILE )0/)0A 657520754 IOCACT MCW @N@,17&X3 657520755 B )5M 657520756 * DEACTIVATE FILE )0/)0A 65752 0757 IOCDAC MCW @B@,17&X3 657520758 CW IOCLOS 657520759 B )5M 657520760 * ALLOW USER TO MOUNT NEW TAPE )0/)0A 657520761 )3N NOP 3027 )3E 657520762 H )3E 657520763 B )2N )3E 657520764 INCLD66666 657520765 * ILLEGAL RETURN FROM EXIT 8 )0/)0A 657520766 )5N NOP 3555 )3E)3Z)1G 65752 0767 H )3E)3Z)1G 657520768 B )5N )3E)3Z)1G 657520769 IOCUXT B 0 657520770 IOCSRE B 0 )3E)3H 657520771 IOCXT1 B IOCSRE )3E)2D 657520772 H )3E)2U)3H 657520773 IOCXT2 B IOCSRE )3E)2C 657520774 H )3E)2T)3H 657520775 IOCXT3 B IOCSRE )3E)2B 657520776 H )3E)2S)3H 65752 0777 IOCXT4 B IOCSRE )3E)2A 657520778 H )3E)2/)3H 657520779 IOCXT5 B IOCSRE )3E)2? 657520780 H )3E)2 )3H 657520781 IOCXT6 B IOCSRE )3E)1I 657520782 H )3E)1Z)3H 657520783 IOCXT7 B IOCSRE )3E)1H 657520784 H )3E)1Y)3H 657520785 IOCXT8 B IOCSRE )3E)1G 657520786 IOCXT8 H )3E)1X)3H 65752 0787 * SETUP FOR OVERLAP EOF CONDITION )0A)3E 657520788 IOCTBL SBR IOCTAD-3 )3E)0A 6575K0789 MCW IOCTAD,IOCXR2 )0A)3E 6575K0790 BCE IOCRST,14&X3, )0A)3E 657520791 BW IOCCTB,IOCLOS )0A)3E 657520792 BCE IOCCTB,*-2, )3E)0A 6575K0793 IOCTBS BCE IOCTBU,0&X2,N )0A)3E 657520794 BCE IOCTBU,0&X2, )0A)3E 657520795 MN 0&X2 )0A)3E 657520796 SAR IOCXR2 )0A)3E 65752 0797 C 0&X2 )0A)3E 657520798 SAR IOCXR2 )0A)3E 657520799 C 0&X2 )0A)3E 657520800 SAR IOCXR2 )0A)3E 657520801 C 0&X2 )0A)3E 657520802 SAR IOCXR2 )0A)3E 657520803 B IOCTBS )0A)3E 657520804 IOCTBU MCW IOCTAP,0&X2 )0A)3E 6575K0805 SBR IOCXR2 )0A)3E 657520806 SBR 0&X2,29&X3 )0A)3E 65752 0807 SAR IOCXR2 )0A)3E 657520808 BCE *&13,15&X3,R )0A)3E 657520809 MCW @K29@,0&X2 )0A)3E 657520810 MCW )0A)3E 657520811 B IOCRST )3E)0A 0812 MCW @K49@,0&X2 )0A)3E 657520813 MCW )0A)3E 657520814 MLNS 4&X2,*&14 )3E)0A 0815 SBR IOCXR2,IOCNTL )0A)3E 6575K0816 MLC @N@,0&X2 )0A)3E 6575K 0817 IOCRST EQU *&1 )0A)3E 6575K0818 B IOCENT )0A)3E 657520819 IOCTAD DCW IOCTAB )0A)3E 657520820 DCW @*@ )0A)3E 657520821 DA 1X42 )0A)3E 657520822 1,1 )0A)3E 657520823 2,3 )0A)3E 657520824 4,6 )0A)3E 657520825 7,7 )0A)3E 657520826 8,8 )0A)3E 65752 0827 9,10 )0A)3E 657520828 11,13 )0A)3E 657520829 14,14 )0A)3E 657520830 15,15 )0A)3E 657520831 16,17 )0A)3E 657520832 18,20 )0A)3E 657520833 21,21 )0A)3E 657520834 22,22 )0A)3E 657520835 23,24 )0A)3E 657520836 25,27 )0A)3E 65752 0837 28,28 )0A)3E 657520838 29,29 )0A)3E 657520839 30,31 )0A)3E 657520840 32,34 )0A)3E 657520841 35,35 )0A)3E 657520842 36,36 )0A)3E 657520843 37,38 )0A)3E 657520844 39,41 )0A)3E 657520845 IOCTAB 42,42 )0A)3E 657520846 IOCNTL EQU * )3E)0A 0847 DA 6X1 )3E)0A 0848 1,1 )3E)0A 0849 IOCCTB C IOCTAP,0&X2 )0A)3E 6575K0850 CW IOCTBS-4 )3E)0A 6575K0851 BE IOCTBN )0A)3E 657520852 MN 0&X2 )0A)3E 657520853 SAR IOCXR2 )0A)3E 657520854 C 0&X2 )0A)3E 657520855 SAR IOCXR2 )0A)3E 657520856 C 0&X2 )0A)3E 65752 0857 SAR IOCXR2 )0A)3E 657520858 C 0&X2 )0A)3E 657520859 SAR IOCXR2 )0A)3E 657520860 B IOCCTB )0A)3E 657520861 IOCTBN MCW @N@,0&X2 )0A)3E 657520862 B IOCRST )0A)3E 657520863 * LINK TO READ/WRITE ROUTINE )0/)0A 657520864 IOCRWR SBR )5P&3 )3E)3A 657520865 IOCRWR SBR )5P&3 )3E)2I 657520866 MCW IOCKOP,IOCTDF )3E)3A 6575K 0867 MCW IOCKOP,IOCTDF )3E)2I 6575K0868 LCA @}@,IOCSLB&80 )3E)3A 657520869 LCA @}@,IOCSLB&80 )3E)2I 657520870 MN IOCTAP,IOCTDF&9 )3E)3A 657520871 MN IOCTAP,IOCTDF&9 )3E)2I 657520872 MCW IOCTDF&13,IOCTRW&7 )0A)3E)3A 657520873 MCW IOCTDF&13,IOCTRW&7 )0A)3E)2I 657520874 B IOCSRW )3E)3A 657520875 B IOCSRW )3E)2I 657520876 NOP IOCTDF )3E)3A 65752 0877 NOP IOCTDF )3E)2I 657520878 MCW IOCTBR,*&4 )3E)3A)4 657520879 MCW IOCTBR,*&4 )3E)2I)4 657520880 MN 0 )3E)3A)4 657520881 MN 0 )3E)2I)4 657520882 CW )3E)3A)4 657520883 CW )3E)2I)4 657520884 )5P B 0 )3E)3A 657520885 )5P B 0 )3E)2I 657520886 BCE IOCRXR,IOCTRW&7,R )3E)3A)3Z)4 0887 BCE IOCRXR,IOCTRW&7,R )3E)2I)3Z)4 0888 SBR IOCNPR&3,)4P )3E)3A)3Z 0889 SBR IOCNPR&3,)4P )3E)2I)3Z 0890 B IOCRXR )3E)3A 0891 B IOCRXR )3E)2I 0892 IOCCNT DCW #1 )3E)4 0893 IOCKOP DCW @K@ )3E)2I 6575K0894 IOCKOP DCW @K@ )3E)3A 6575K0895 IOCTDF DCW @K@ )3E)3A 657520896 IOCTDF DCW @K@ )3E)2I 65752 0897 DCW @29@ )3E)3A 657520898 DCW @29@ )3E)2I 657520899 DCW )5P&4 )3A)3E 0900 DCW )5P&4 )2I)3E 0901 DCW @M%U0@ )3E)3A)0/ 657520902 DCW @M%U0@ )3E)2I)0/ 657520903 DCW @M@U0@ )3E)3A)0A 657520904 DCW @M@U0@ )3E)2I)0A 657520905 DC &IOCSLB )3E)3A 657520906 DC &IOCSLB )3E)2I 65752 0907 DC @R@ )3E)3A 657520908 DC @R@ )3E)2I 657520909 IOCHSH DCW #10 )3E)0D)0V 657520910 IOCHSH DCW #10 )3E)0E 657520911 IOCRCT DCW #10 )3E)0E)0U 657520912 IOCRCT DCW #10 )3E)0D 657520913 DCW #5 )3E)3A 657520914 DCW #5 )3E)2I 657520915 IOCCRD EQU * )3E)4 )2H 657520916 DCW #3 )3E)2I 65752 0917 DCW #3 )3E)3A 657520918 IOCRCY EQU * )3E)3I)2H 657520919 IOCRCY EQU * )3E)3Z)3A 657520920 IOCRCY EQU * )3E)3Z)2I 657520921 IOCSEQ DCW #3 )3E)3A 657520922 IOCSEQ DCW #3 )3E)2I 657520923 IOCSER DCW #5 )3E)3A 657520924 IOCSER DCW #5 )3E)2I 657520925 IOCIDT DCW #10 )3E)3A 657520926 IOCIDT DCW #10 )3E)2I 65752 0927 IOCBYP DCW @ @ )3E)4 )2I)2F 6575K0928 IOCBYP DCW @ @ )3E)4 )3?)2F 6575K0929 IOCBYP DCW @ @ )3E)4 )3A)2F 6575K0930 DCW @} @ )3E)4 )2I)2F 6575K0931 DCW @} @ )3E)4 )3?)2F 6575K0932 DCW @} @ )3E)4 )3A)2F 6575K0933 IOCPDS DCW #3 )3E)0A 6575K0934 IOCPSV DCW #16 657520935 IOCSAV DCW #3 657520936 IOCSLB DA 1X80,C,G )3E)3A 65752 0937 IOCSLB DA 1X80,C,G )3E)2I 657520938 199 DCW @ @ )3E)2I)3Z 657520939 199 DCW @ @ )3E)3A)3Z 657520940 IOCTDY EQU 199 )3E)2I)3Z 657520941 IOCTDY EQU 199 )3E)3A)3Z 657520942 IOCBLK EQU IOCPSV-10 )3E 657520943 IOCRWD EQU IOCPSV-9 )3E)1B 657520944 IOCRWD EQU IOCPSV-9 )3E)1C 657520945 IOCEOF EQU IOCPSV-6 )3E)3U)4 657520946 IOCEOF EQU IOCPSV-6 )3D 65752 0947 IOCALT EQU IOCPSV-3 )3E)2E 657520948 IOCTAP EQU IOCPSV-2 )3E 657520949 IOCTYP EQU IOCPSV-1 )3E 657520950 IOCTYP EQU IOCPSV-1 )3B)3C)3V 657520951 IOCTYP EQU IOCPSV-1 )3C)3D)3S)3V 657520952 IOCTYP EQU IOCPSV-1 )3B)3D)3T)3V 657520953 IOCTYP EQU IOCPSV-1 )3B)3U)3T)3V 0954 * ENTRY TO RDLIN ROUTINE )1F 657520955 IOCRDL SBR IOCUXT&3 )1F 657520956 MCW IOCXR3,IOCXSV )1F 65752 0957 MCW IOCUXT&3,IOCXR3 )1F 657520958 MCW 3&X3,IOCXR3 )1F 657520959 MCW 12&X3,*&8 )1F 657520960 BCE )7K,@1JA@,0 )1F 657520961 CHAIN2 )1F 657520962 H 0,3345 )1F 657520963 B IOCUXT )1F 657520964 )7K BCE )7J,0&X3,% )1F 657520965 C 0&X3 )1F 657520966 SAR IOCXR3 )1F 65752 0967 B )7K )1F 657520968 )7J CS 80 )1F 657520969 R )1F 657520970 C 20,@RDLIN@ )1F 657520971 BE )7L )1F 657520972 H 0,3001 )1F 657520973 B )7J )1F 657520974 )7L MN 0&X3 )1F 657520975 SAR IOCXR3 )1F 657520976 MCW 40,0&X3 )1F 65752 0977 SBR IOCXR3 )1F 657520978 MCW 25,0&X3 )1F 657520979 SBR IOCXR3 )1F 657520980 MCW 29,0&X3 )1F 657520981 SBR IOCXR3 )1F 657520982 MCW 49,0&X3 )1F 657520983 SBR IOCXR3 )1F 657520984 MCW 45,0&X3 )1F 657520985 MCW IOCXSV,IOCXR3 )1F 657520986 B IOCUXT )1F 65752 0987 * CODING FOR RELEASE WITH NO PUNCH )0/)0A 657520988 IOCPNX SBR *&4 )0B)3T 657520989 B 0 )0B)3T 657520990 * CODING FOR RELEASE WITH NO READER )0/)0A 657520991 IOCRDX SBR *&4 )0B)3U 657520992 B 0 )0B)3U 657520993 * COMBINATION READ AND WRITE TAPE ROUTINE )3E)3Z)4 657520994 * READ TAPE ROUTINE )3E)3I 657520995 * WRITE TAPE ROUTINE )3E)4? 657520996 IOCSRW SBR *&4 )3V)0A 65752 0997 B 0 )3V)0A 657520998 IOCSRW SBR IOCNPR&3 )3E 657520999 B IOCRDX )3E)0B)0/ 657521000 B IOCPNX )3E)0B)0/ 657521001 MCW IOCXR3,IOCTNT#13 )0A)3E 1002 MCW )0A)3E 657521003 MCW )0A)3E 1004 BW IOCINX,IOCRRR )2I)0A)3E 657521005 BW IOCINX,IOCLOS )2I)0A)3E 657521006 BW IOCINX,IOCFES )2I)0A)3E 65752 1007 BW IOCINX,IOCOPS )2I)0A)3E 657521008 BW IOCINX,IOCRRR )3A)0A)3E 657521009 BW IOCINX,IOCLOS )3A)0A)3E 657521010 BW IOCINX,IOCFES )3A)0A)3E 657521011 BW IOCINX,IOCOPS )3A)0A)3E 657521012 IOCNZP BCE IOCNPR-9,IOCERH, )0A)3E 1013 MCW IOCERH,*&4 )0A)3E 657521014 MCW 0,IOCTRW&7 )0A)3E 657521015 MCW IOCCAN,*&17 )0A)3E 1016 BIN *-4,J )0A)3E 65752 1017 SBR IOCXXX&3 )0A)3E 6575K1018 SBR IOCWWW&3 )0A)3E 1019 SBR 0 )0A)3E 1020 MLNS IOCTRW&3,*&7 )0A)3E 6575K1021 SBR IOCXR1,0 )0A)3E 6575K1022 MA &IOCNTL,IOCXR1 )0A)3E 6575K1023 BCE IOCOEW,IOCTRW&7,W )0A)3E 657521024 BEF IOCRND )0A)3E 657521025 MCW IOCTRW&6,IOCXR3 )0A)3E 657521026 MLC IOCXR3,IOCWDP&6 )0A)3E)1A 6575K 1027 SBR IOCNSZ&6,13&X3 )3E)0A 1028 SBR IOCCLE&13,12&X3 )3E)0A 1029 IOCNSZ BCE IOCNZR,0, )3E)0A 1030 BER IOCPER )0A)3E 657521031 A &1,0&X1 )0A)3E 1032 B IOCNPR-17 )0A)3E 1033 IOCOEW BER IOCWWW )0A)3E 6575K1034 BEF IOCRND )0A)3E 657521035 B IOCNPR-17 )0A)3E 1036 IOCWWW MLNS 0 )0A)3E 1037 MLCWA@}@ )0A)3E 1038 B IOCPER )0A)3E 6575K1039 IOCRND SBR IOCXR3,IOCTAB )0A)3E 657521040 MCW IOCTRW&3,IOCDRN#1 )0A)3E 657521041 IOCCKD C IOCDRN,0&X3 )0A)3E 657521042 BE IOCSAD )0A)3E 657521043 BCE IOCERC,0&X3,* )0A)3E 657521044 MN 0&X3 )0A)3E 657521045 MN )0A)3E 657521046 MN )0A)3E 65752 1047 MN )0A)3E 657521048 MN )0A)3E 657521049 MN )0A)3E 657521050 MN )0A)3E 657521051 SAR IOCXR3 )0A)3E 657521052 B IOCCKD )0A)3E 657521053 IOCSAD MN 0&X3 )0A)3E 657521054 SAR IOCXR3 )0A)3E 657521055 MCW 0&X3,IOCERX&3 )0A)3E 657521056 IOCERX B 0 )0A)3E 65752 1057 MCW @B@,IOCERX )0A)3E 657521058 MCW 0&X3,IOCRCL&3 )0A)3E 657521059 MCW 0&X3,IOCORC&3 )0A)3E 657521060 SAR IOCXR3 )0A)3E 6575K1061 MCW IOCTRW&6,IOCXR2 )0A)3E 657521062 SBR IOCMPR&6,13&X2 )3E)0A 1063 SBR IOCCLE&13,12&X2 )3E)0A 1064 IOCECK A &1,0&X1 )0A)3E 1065 MCW @99@,IOCERR )0A)3E 657521066 MCW )0A)3E 65752 1067 IOCBRE B IOCTRW )0A)3E 657521068 IOCPER MCW @N@,IOCERX )0A)3E 657521069 MCW &IOCRED,IOCBRE&3 )0A)3E 657521070 B IOCRND )0A)3E 657521071 IOCNZR MCW @N@,IOCERX )0A)3E 657521072 MCW &IOCCLE,IOCBRE&3 )0A)3E 657521073 B IOCRND )0A)3E 657521074 IOCERC H IOCNPR-9 )0A)3E 1075 MCW IOCXR3,IOCTNT#8 )3E)0/ 657521076 MCW )3E)0/ 65752 1077 MCW IOCNPR&3,IOCXR3 )3E)0/ 657521078 MCW 3&X3,IOCXR3 )3E)0/ 657521079 MCW 13&X3,IOCTRW&7 )3E)0/ 657521080 MCW 5&X3,IOCRCL&3 )3E)0/)3Z 657521081 MCW 5&X3,IOCORC&3 )3E)4 )0/ 657521082 MCW 12&X3,IOCXR2 )3E)4 )0/ 657521083 SBR IOCWDP&6,0&X2 )3E)1A)4 )0/ 657521084 BCE *&12,IOCTRW&7,W )3E)0/)3Z)4 6575K1085 SBR IOCMPR&6,13&X2 )3E)4 )0/ 1086 MLC IOCCNT )3E)4 )0/ 1087 SBR IOCCLE&6 )4 )3E)0/ 6575K1088 IOCECK A &1,0&X3 )4 )3E)0Z)0/ 657521089 A &1,0&X3 )4 )3E)0I)0/ 657521090 MCW @99@,IOCERR )3E)0/ 657521091 MCW )3E)3Z)0/ 657521092 IOCTRW RT 0,0 )3E 657521093 MCW IOCCAN,IOCBRS&3 )0A)3E 657521094 BIN *-4,J )0A)3E 657521095 SBR IOCTBR#3 )4 )3E 657521096 SBR IOCXR2 )3E)1A)4 65752 1097 SBR IOCXXX&3 )0A)3E 1098 IOCBRS SBR 0 )3E)0A 657521099 MN 0&X2 )3E)1A)4 657521100 SAR IOCXR2 )3E)1A)4 6575K1101 BCE IOCRKS,IOCTRW&7,W )4 )3Z)3E 657521102 IOCORC BEF 0 )4 )3E 657521103 IOCMPR BCE IOCCLE,0, )3E)4 1104 BW IOCER0&8,IOCDSW )4 )3E)0H 657521105 IOCRKS BER IOCRED )4 )3Z)3E 657521106 BER IOCRED )4?)3E 65752 1107 BER IOCRED )4 )3I)3E 657521108 IOCRCL BEF 0 )3Z)3E 657521109 IOCRXR EQU *&1 )3E 1110 MCW IOCNOP,IOCERH )0A)3E 6575K1111 MCW )0A)3E 6575K1112 MCW IOCTNT,IOCXR3 )3E 657521113 MCW )3E 657521114 MCW )0A)3E 1115 IOCNPR B 0 )3E 657521116 IOCRED BCE IOCDRR,IOCERR,9 )3E)0/ 65752 1117 IOCRED MCW &IOCTRW,IOCBRE&3 )3E)0A 657521118 BCE IOCDRR,IOCERR,9 )3E)0A 657521119 IOCNRR S &1,IOCERR )3E 657521120 MN IOCTRW&3,*&4 )3E)0H 657521121 BSP 0 )3E)0H 657521122 BM IOCONR,IOCERR )4 )3Z)3E)0H 657521123 BM IOCLEN&4,IOCERR )4 )3Z)3E)0Y 657521124 BM IOCLEN&4,IOCERR )4 )3I)3E)0Y 657521125 BM IOCONR,IOCERR )4 )3I)3E)0H 657521126 MN IOCTRW&3,*&4 )3E)0Y 65752 1127 BSP 0 )3E)0Y 657521128 BCE *&9,IOCTRW&7,R )3E)3Z)4 657521129 BCE IOCROW,IOCERR,G )3Z)3E 657521130 BCE IOCTRW,IOCTRW&7,R )3E)0A 6575K1131 IOCXXX MLNS 0 )0A)3E 1132 SW )0A)3E 1133 B IOCTRW )3E 657521134 IOCDRR S &1,2&X3 )3E)0/ 1135 IOCDRR S &1,0&X3 )3E)0A 1136 BCE IOCTTM,IOCTRW&7,R )3E)4 )3Z 1137 BM IOCER2,2&X3 )3E)0/)3Z 1138 BM IOCER2,0&X3 )3E)0A 1139 B IOCNRR )3E)3Z)4 1140 IOCTTM BM IOCER1,2&X3 )3E)4 )0/ 1141 IOCTTM BM IOCER1,0&X3 )3E)0A 1142 B IOCNRR )3E 1143 IOCCLE MN IOCMPR&20,0 )4 )3E)0/ 6575K1144 IOCCLE MCW &IOCTRW,IOCBRE&3 )3E)0A 6575K1145 MN IOCNSZ&20,0 )3E)0A 6575K1146 CHAIN12 )3E)4 1147 MLC @N@,0&X3 )3E)4 )0/ 1148 MLC @N@,0&X1 )3E)0A 1149 B IOCTRW )4 )3E 657521150 IOCROW BEF IOCCHE )3E)3Z 657521151 S &1,IOCASC )3Z)3E 657521152 BM IOCER3,IOCASC )3Z)3E 657521153 IOCRAS MN IOCTRW&3,*&4 )3Z)3E 657521154 SKP 0 )3Z)3E 657521155 MCW @99@,IOCERR )3Z)3E 657521156 B IOCTRW )3Z)3E 65752 1157 IOCLEN EQU *-3 )4 )3E)0Y 657521158 IOCONR BM IOCER0,0&X3 )3E)0H)0/)4 1159 IOCONR BM IOCER0,0&X1 )3E)0H)0A 1160 MN IOCTRW&3,*&4 )4 )3E)0H 657521161 IOCSPC BSP 0 )4 )3E)0H 657521162 S &1,IOCNT2 )4 )3E)0H 657521163 BWZ IOCSPC,IOCNT2,B )4 )3E)0H 657521164 MN IOCTRW&3,*&4 )4 )3E)0H 6575K1165 IOCRER RT 0,IOCNT2&1 )4 )3E)0H 6575K1166 A &1,IOCNT2 )4 )3E)0H 65752 1167 BCE *&5,IOCNT2,D )3E)0H)4 6575K1168 B IOCRER )3E)0H)4 6575K1169 MCW IOCTRW&6,*&7 )4 )3E)0H 657521170 RT 0,0 )4 )3E)0H 657521171 BER IOCER0&8 )4 )3E)0H 657521172 B IOCRXR )4 )3E)0H 657521173 IOCNT2 DCW @D@ )3E)0H)4 1174 DA 1X1,G )3E)0H)4 6575K1175 IOCER0 SW IOCDSW )4 )3E)0H 657521176 B IOCTRW )4 )3E)0H 65752 1177 CW IOCDSW )4 )3E)0H 657521178 IOCDGM BW *&12,0&X2 )3E)1A)4 6575K1179 LCA @}@,0&X2 )3E)1A)4 6575K1180 B IOCWDP )3E)1A)4 6575K1181 SW IOCDGM&1 )3E)1A)4 6575K1182 IOCWDP WT )1A,0 )3E)1A)4 657521183 BER IOCTDE )3E)1A)4 657521184 MCW @9@,IOCTCT )3E)1A)4 657521185 BW *&5,IOCDGM&1 )3E)1A)4 6575K1186 CW 0&X2 )3E)1A)4 6575K 1187 MLC @ @,0&X2 )3E)1A)4 6575K1188 CW IOCDGM&1 )3E)1A)4 6575K1189 B IOCECK )4 )3E)1 )0Z 657521190 B IOCRXR )4 )3E)0I 657521191 H 0,3134 )4 )3E)1? 657521192 MN IOCTRW&3,*&4 )4 )3E)1? 657521193 BSP 0 )4 )3E)1? 657521194 MCW IOCTRW&6,*&7 )4 )3E)1? 657521195 RT 0,0 )4 )3E)1? 657521196 H 0,3234 )4 )3E)1? 65752 1197 BSS IOCRXR,G )4 )3E)1? 657521198 B IOCECK )4 )3E)1? 657521199 IOCTDE BSP )1A )4 )3E 657521200 SKP )1A )4 )3E 657521201 S &1,IOCTCT )4 )1A)3E 657521202 BM IOCTDH,IOCTCT )4 )3E)1A 657521203 B IOCWDP )4 )3E)1A 657521204 IOCTDH NOP 3666 )4 )3E)1A 657521205 H )4 )3E)1A 657521206 B IOCWDP )4 )3E)1A 65752 1207 IOCTCT DCW @9@ )4 )3E)1A 657521208 IOCER1 MCW @49@,2&X3 )3E)4 )0/ 1209 IOCER1 MCW @49@,0&X3 )3E)0A 1210 NOP 3050 )4 )3E 657521211 H )4 )3E 657521212 B IOCNRR )4 )3E 657521213 IOCER2 MCW @29@,2&X3 )3E)0/)3Z 1214 IOCER2 MCW @29@,0&X3 )3E)0A 1215 NOP 3030 )3Z)3E 657521216 H )3Z)3E 65752 1217 B IOCNRR )3Z)3E 657521218 IOCER3 MCW @9@,IOCASC )3Z)3E 657521219 NOP 3010 )3Z)3E 657521220 H )3Z)3E 657521221 B IOCRAS )3Z)3E 657521222 IOCCHE MCW 5&X3,IOCNPR&3 )3E)3Z)0/ 1223 IOCCHE MCW 3&X3,IOCNPR&3 )3E)0A 1224 NOP 3900 )3Z)3E 657521225 H )3Z)3E 657521226 B IOCROW&5 )3Z)3E 65752 1227 IOCASC DCW @9@ )3Z)3E 657521228 IOCERR DCW @9@ )3E 657521229 DCW @N @ )0A 657521230 IOCCAN DCW @N @ )0A 657521231 IOCERH DCW @N @ )0A 657521232 IOCNOP DCW @N N N @ )0A 657521233 IOCINX MCW &IOCTDF,IOCXR3 )2I)3E)0A 657521234 MCW 13&X3,IOCTRW&7 )2I)3E)0A 657521235 MCW 5&X3,IOCRCL&3 )2I)3E)0A 657521236 MCW 5&X3,IOCORC&3 )2I)3E)0A 65752 1237 MCW 12&X3,IOCXR2 )2I)3E)0A 657521238 SBR IOCMPR&6,12&X2 )2I)3E)0A 657521239 SBR IOCCLE&13 )2I)3E)0A 6575K1240 C IOCNPR&3,&IOCRWR&36 )2I)0A)3E 1241 BU IOCNZP )2I)3E)0A 657521242 SBR IOCXR3,2&X3 )3E)0A)2I 1243 MLNS IOCTRW&3,*&7 )3E)0A)2I 1244 SBR IOCXR1,0 )3E)0A)2I 1245 MA &IOCNTL,IOCXR1 )3E)0A)2I 1246 BW *&5,IOCOPS )2I)3E)0A 65752 1247 B IOCECK )2I)3E)0A 657521248 MCW IOCXR1,IOCIRE#3 )2I)3E)0A 657521249 MCW IOCQUT&3,IOCXR1 )2I)3E)0A 657521250 MCW 3&X1,IOCXR1 )2I)3E)0A 657521251 MCW @B@,21&X1 )2I)3E)0A 657521252 MCW IOCIRE,IOCXR1 )2I)3E)0A 657521253 B IOCECK )2I)3E)0A 657521254 IOCINX MCW &IOCTDF,IOCXR3 )3A)0A)3E 657521255 MCW 13&X3,IOCTRW&7 )3A)0A)3E 657521256 MCW 5&X3,IOCRCL&3 )3A)0A)3E 65752 1257 MCW 5&X3,IOCORC&3 )3A)0A)3E 657521258 MCW 12&X3,IOCXR2 )3A)0A)3E 657521259 SBR IOCMPR&6,12&X2 )3A)0A)3E 657521260 SBR IOCCLE&13 )3A)0A)3E 6575K1261 C IOCNPR&3,&IOCRWR&36 )3A)0A)3E 1262 BU IOCNZP )3A)0A)3E 657521263 SBR IOCXR3,2&X3 )3E)0A)3A 1264 MLNS IOCTRW&3,*&7 )3E)0A)3A 1265 SBR IOCXR1,0 )3E)0A)3A 1266 MA &IOCNTL,IOCXR1 )3E)0A)3A 1267 BW *&5,IOCOPS )3A)0A)3E 657521268 B IOCECK )3A)0A)3E 657521269 MCW IOCXR1,IOCIRE#3 )3A)0A)3E 657521270 MCW IOCQUT&3,IOCXR1 )3A)0A)3E 657521271 MCW 3&X1,IOCXR1 )3A)0A)3E 657521272 MCW @B@,21&X1 )3A)0A)3E 657521273 MCW IOCIRE,IOCXR1 )3A)0A)3E 657521274 B IOCECK )3A)0A)3E 657521275 IOCDSW DC #1 )4 )3E)0H 65752 66666 INSER 65802 0000 66666 HEADR 658020001 DCW #1 658020002 LTORG* 658020003 IOCEND EQU *&1 658020004 ORG IOCEND 6580299999999999999999999999999999999999999999999999999999999999999999999999999999999 1PID0020 1401 IO-065 1401/1460 IOCS 02-13 345 1 SMF