AHALT INSER AHALT HEADR )00 B 7693 BLCEF INSER BLCEF HEADR )00 SS 1 BCE )01,1,{ CLRWM INSER CLRWM HEADR )00 CW )01 )0S CW )01,)02 )0B CW )03 )0C)0U CW )03,)04 )0D CW )05 )0E)0W CW )05,)06 )0F CW )07 )0G)0Y CW )07,)08 )0H CW )09 )0I)1| CW )09,)10 )1? SETWM INSER SETWM HEADR )00 SW )01 )0S SW )01,)02 )0B SW )03 )0C)0U SW )03,)04 )0D SW )05 )0E)0W SW )05,)06 )0F SW )07 )0G)0Y SW )07,)08 )0H SW )09 )0I)1| SW )09,)10 )1? STOP. INSER STOP. HEADR )00 R SS 1 BCE 7693,1,{ B *-14 01010TEROR INSER TEROR 01020TEROR HEADR TEROR 01024* )0E TEROR 01025* TERORDRIVE-NO-IF-ONLY-ONE,DUMMY-IF-WRITING, )0E TEROR 01026* LABEL-OF-RECORD-COUNT-IF-CLEAN-AND-SCAN-IS- )0E TEROR 01027* DESIRED,LABEL-TO-BE-USED FOR-ACCOUNTING-TABLE )0E TEROR 01028* )0E TEROR 01030 LTORG* TEROR 01040 JOB TAPE ERROR ROUTINE TEROR 01050* TEROR 01060* LINKAGE TEROR 01070* TEROR 01080)00 SBR )9R+3 TEROR 01090 SBR )9R-1,0+X1 TEROR 01100 SBR )9R-8,0+X2 )0/)0D TEROR 01110 SBR 89,0 TEROR 01120 SBR 94,0 )0/)0D TEROR 01130 MA )9R+3,89 TEROR 01140* TEROR 01150* PICKUP OFFENDING COMMAND TEROR 01160* TEROR 01180 MA 'I8G',89 TEROR 01190 C 5+X1,'U(U' )0B TEROR 01200 BU )0J )0B TEROR 01210 MA '003',89 )0B TEROR 01220 MLCWA'N',)0L+7 )0B TEROR 01230 MLCWA)0L+7 )0B TEROR 01240 MLCWA )0B TEROR 01250 MLCWA4+X1 )0B TEROR 02010 B *+8 )0B TEROR 02020)0J MLCWA7+X1,)0L+7 )0B TEROR 02025 MLCWA7+X1,)0L+7 )0S TEROR 02030* TEROR 02040* INITIALIZE ROUTINE TEROR 02050* TEROR 02060 SBR )1J+7,0+X1 TEROR 02070 MN )0L+7,)1J+8 )0B TEROR 02080 MN )0L+2,)1J+9 TEROR 02090 MN )0L+3,)1J+10 )0/ TEROR 02100 MN )0L+3,)1K+7 )0/ TEROR 02110 MN )0L+3,)0O+3 )0/)0B TEROR 02120 MN )0L+3,)1M+7 )0/)0C TEROR 02145 SW )7J=1 )0B)0T TEROR 02130 MN )0L+3,93 )0/)0D TEROR 02140 SW )7J=1 )0C TEROR 02150 A '1',)7N+2+X2 )0/)0D TEROR 02155 A '1',)0D+2 )0A TEROR 02160 MLC '0',)7K=1 TEROR 02170* TEROR 02180* COMMON RE-TRY ROUTINE TEROR 02190* TEROR 02200)0K B )1K TEROR 02210 A '1',)7K TEROR 02220 A '1',)7N+8+X2 )0/)0D TEROR 02225 A '1',)0D+8 )0A TEROR 02230)0L RT 0,*** TEROR 02240 BER )9R+4 TEROR 02250* TEROR 03010* RESTORE INDICES AND RETURN TEROR 03020* TEROR 03025)9Q EQU *+1 TEROR 03030 SBR 94,*** )0/)0D TEROR 03040 SBR 89,*** TEROR 03050)9R B *** TEROR 03060* TEROR 03070* ROUTING FOR PERSISTENT ERROR TEROR 03080* TEROR 03084 BCE *+5,)7K,9 TEROR 03086 B )0K TEROR 03090 BCE )0P,)0L+7,R )0B)0C TEROR 03100 BCE *+5,)0L+7,R )0B)0T TEROR 03110 B )0N )0T)0B TEROR 03120 B )1J )0T TEROR 03130 BSS )0K,G )0T TEROR 03140 B )0L )0T TEROR 03150* )0B TEROR 03160* BLANKING ROUTINE FOR PERMANENT WRITE ERROR )0B TEROR 03170* )0B TEROR 03180)0N BW *+5,)7J )0B TEROR 03190 B )1J )0B TEROR 03200 CW )7J )0B TEROR 03210 B )1K )0B TEROR 03220)0O SKP 0 )0/)0B TEROR 03230)0O SKP )0A )0B TEROR 03240 A '1',)7N+10+X2 )0/)0D)0B TEROR 03245 A '1',)0D+10 )0A)0B TEROR 03250 B )0K+4 )0B TEROR 04010* )0C TEROR 04020* CLEANING AND SCANNING ROUTINE FOR PERMANENT READ ERROR )0C TEROR 04030* )0C TEROR 04040)0P BW )0R,)7J )0C TEROR 04050 B )1J )0C TEROR 04060 BSS *+9,G )0C TEROR 04070 SW )7J )0C TEROR 04080 B )0L )0C TEROR 04090* )0C TEROR 04100 MLC )0L+7,)0Q+7 )0C TEROR 04110 B )1K )0C TEROR 04120)0Q RT 0,*** )0C TEROR 04130 H 888,888 )0C TEROR 04140 BER *+1 )0C TEROR 04150 B )9Q )0C TEROR 04160* )0C TEROR 04170)0R CW )7J )0C TEROR 04180 ZA )0C,)7L=5 TEROR 04190 MZ *-1,)7L )0C TEROR 04200 C )7L,'00003' )0C TEROR 04210 BH )0P )0C TEROR 04220 B )1K )0C TEROR 04230 B )1K )0C TEROR 04240 B )1K )0C TEROR 04250 B )1M )0C TEROR 05010 B )1M )0C TEROR 05020 BER *+1 )0C TEROR 05030 B )0K+4 )0C TEROR 05040* TEROR 05050* AUXILIARY ROUTINES TEROR 05060* TEROR 05070)1K SBR *+9 TEROR 05080 BSP 0 )0/ TEROR 05090 BSP )0A TEROR 05100 B *** TEROR 05110* TEROR 05120)1J SBR *+11 TEROR 05130 H ***,0 )0B)0/ TEROR 05132 H ***,900 )0S)0/ TEROR 05134 H ***,900+)0A )0S TEROR 05135 H ***,)0A )0B TEROR 05140 B *** TEROR 05150* )0C TEROR 05160)1M SBR *+12 )0C TEROR 05170 RT 0,)7M )0/)0C TEROR 05175 RT )0A,)7M )0C TEROR 05180 B *** )0C TEROR 05190)7M DCW '}' )0C TEROR 05200* TEROR 05210* ACCOUNTING TABLE AND CONSTANTS )0D TEROR 05220* CONSTANTS )0U TEROR 05230* TEROR 05240)7N EQU *-10 )0D TEROR 05245)0D EQU * )0D TEROR 05250 DA 1X10 )0D)0A TEROR 0601 DA 6X10 )0D)0/ TEROR 06020 2 )0D TEROR 06030 3,8 )0D TEROR 06040 9,10 )0D TEROR 06050 LTORG* TEROR