14 22FL ... SEG FLAW,84,FRANK BLUNDELL,FLAW 4 23YG # 11 24D6 SEGENTRY K1FLAW,QK1FLAW 4 24XQ # 20 25CB # THIS ROUTINE TAKES ACTION ON ALL FAILING TRANSFERS FROM PERION 10 25X2 # ENTRY POINT IS K1FLAW 4 26BL # 9 26W= TEWS +EWSCAF 9 27TG TEWI +EWINOP 9 28*6 TEDO +EWOWN 9 29#B TEWSC +EWSCFULL 9 29S2 ...TEWSN +EWSCNIL 9 2=?L TEWC +EWCHSUM 9 2?=W TEWL +EWLOST 8 2#=6 TEWF +EWFF 9 2*9B TEFL +EWFLAW 7 2B8L #SKI ENTWINE 9 2BN= TPRO +ENTIN41 6 2BQF ...#UNS ATRACK 4 2BSN ...( 15 2BWX ...TENO +EWNOALT [NO ALT TRACK 17 2B_6 ...TEALT +EWALT [ALT TRACK ALLOCATED 18 2C3* ...TEFAIL +EWALTFAIL [COULD NOT BE ALT TRACKED 4 2C5J ...) 4 2C7W Z 6 2CMG #TRA EDS+Z 7 2D76 +FLADDR 6 2DLQ #TRA EMDS+Z 7 2F6B +FLADDR 6 2FL2 #TRA EMCF+Z 7 2G5L +FLADDR 6 2GK= #TRA AFDS+Z 7 2H4W +FLADDR+64 6 2HJG #TRA BFDS+Z 8 2J46 +FLADDR+222 4 2JHQ # 6 2K3B #SKI AUTPAM 8 2KH2 #DEF TAC1=EWORK6 7 2L2L #SKI AUTPAM<1$1 8 2LG= #DEF TAC1=ACOMMUNE1 8 2L_W #DEF TAC2=TAC1+1 8 2MFG #DEF TAC3=TAC2+1 8 2M_6 #DEF TAC4=TAC3+1 18 2N6# ...RFIND MHUNTW 2,EWDAS,FLAWB [REFIND FLAWB FOR LOCKC 7 2N?G ... EXIT 1 0 5 2NDQ QK1FLAW 9 2NYB #SKIP K6FLAW 11 2PD2 TRACE EWORK3(2),FLAW? 9 2PMS ... STOZ AWORK3(2) 7 2PXL SMO 2 18 2QC= LDCH 0 EWORK4 [GET PERIPHERAL SUBTYPE 7 2QWW SMO 0 21 2RBG LDX 4 Z(1) [GET REQUIRED LENGTH OF EXFLAW BLOCK 17 2RW6 ... SETUPCORE 4,3,EWDAS,FLAWB,1 [SET UP FLAWB BLOCK 17 2S*Q ... LOCKC 3,RFIND [LOCK EXFLAW BLOCK 10 2SKJ ... MHUNTW 3,EWDAS,FLAWB 15 2STB MFINDSU 1,EWORK5(2) [FIND ASTUC 17 2SX# ... LDX 0 HUNIT(1) [PTR TO DEVICE LIST 9 2S_= ... STO 0 AWORK4(2) 18 2T38 ... LFAILS AWORK4(2),0 [IF COUNT = ZERO HEN 16 2T56 ... BZE 0 TNOFL [DONT DECREMENT 7 2T74 ... LDN 0 1 20 2T92 ... DECANTCT AWORK4(2),0,FAIL [SUBTRACT 1 FROM COUNT OF FAILS 5 2T=Y ...TNOFL 9 2T*2 LDX 0 HTYPE(1) 18 2TSL STO 0 FLTYPE(3) [TYPE/SUBTYPE TO EXFLAW 10 2W#= LDX 0 ASUBASE(1) 17 2WRW STO 0 FLBASE(3) [START CYLINDER OF SU 9 2X?G LDX 0 HBLOCK(1) 17 2XR6 STO 0 FLDEP(3) [SEGMENTS/CYLINDER 9 2Y=Q LDX 0 HFLAW(1) 19 2YQB STO 0 FLSTART(3) [POINTER TO FIRST FLAW INDEX 7 2_2L ...#UNSET JSKI34 4 2_3M ...( 20 2_4N ... LDX 5 TAC3(2) [ COUNT OF WORDS IN TRANSFER 9 2_5P ... STO 5 FLBS2(3) 20 2_6Q ... LDX 5 EWORK3(2) [ START BLK. ADDR. OF TRANSFER 20 2_7R ... CALL 7 XPLOG [ WAIT FOR TRANSFER TO BE LOGGED 4 2_8S ...) 6 2_98 ...#UNS ATRACK 17 2_9J ... JPROP AWORK4(2),X30BT,X30BT,X30BT,X20BT,X20BT 8 2_=2 LDN 0 128 17 2_PL STO 0 FLBS2(3) [LENGTH FOR BACKTRAN 9 329= LDN 0 FLBUFF(3) 19 32NW STO 0 FLBS3(3) [BUFFER ADDRESS FOR BACKTRAN 9 338G LDX 5 TAC3(2) 19 33N6 DVS 4 FLBS2(3) [CALCULATE NO.OF TRANSFERS 19 347Q LDX 6 EWORK3(2) [START BLOCK NUMBER 9 34MB LDX 0 TAC4(2) 19 3572 ADX 0 TAC3(2) [X0=FINISHING CORE ADDRESS 7 35LL SBN 6 1 20 366= BNZ 4 T1 [BRANCH IF ODD WORDS IN TRANSFER 8 36KW LDN 4 128 8 375G BRN T2 18 37K6 T1 ADN 5 1 [X5=NUMBER OF TRANSFERS 20 384Q T2 SBX 0 4 [START ADDRESS OF LAST BLOCK... 19 38JB STO 0 FLCORE(3) [...AS CURRENT CORE ADDRESS 18 3942 ADX 6 5 [X6=CURRENT BLOCK NUMBER 10 39HL T3 STO 6 FLBLOCK(3) 17 3=3= STO 6 FLBS4(3) [CURRENT BLOCK NO. 19 3=GW STO 5 FBLCNT(3) [COUNT OF NUMBER OF BLOCKS 17 3?2G STO 4 FLTRANCT(3) [LENGTH OF TRANSFER 9 3?G6 CALL 0 TRANSFER1 17 3?_Q BRN TOBER [ERROR IN TRANSFER 9 3#FB TD LDX 5 FBLCNT(3) 21 3#_2 SBN 5 1 [NUMBER OF BLOCKS LEFT IN TRANSFER 19 3*DL BZE 5 T4 [BRANCH IF NO MORE TRANSFERS 8 3*Y= LDN 4 128 17 3BCW SBS 4 FLCORE(3) [CURRENT CORE ADDRESS 10 3BXG LDX 6 FLBLOCK(3) 20 3CC6 SBN 6 1 [SUBTRACT ONE FROM BLOCK NUMBER 8 3CWQ BRN T3 14 3DBB T4 KEEPREP 5,OK [REPLY OK 8 3DW2 BRN TZB 6 3F*L TRANSFER3 9 3FT= LDN 5 FLBUFF(3) 8 3G#W SUM 4 128 17 3GSG SBS 4 FLBUFF+1(3) [CHECKSUM FLAW INDEX 9 3H#6 LDX 4 FLBUFF(3) 15 3HRQ STO 4 FLBS4(3) [INDEX HOME 7 3J?B NGNC 4 1 6 3JR2 TRANSFER2 7 3K=L LDN 4 0 19 3KQ= STO 4 FLBS1(3) [STORE MODE IN BACKTRAN C/A 7 3L9W NGNC 4 1 6 3LPG TRANSFER1 20 3M96 LDN 4 0 [X4 NON ZERO IF SYSTEM REQUEST 20 3MNQ SBX 0 FX1 [REMEMBER LINK AFTER DATUMISING 7 3N8B STO 0 7 9 3NN2 LDX 1 FLBS4(3) 17 3P7L STO 1 AWORK1(2) [REMEMBER BLOCK NO. 16 3PM= CONVERT FLBS4(3),FLTYPE(3),FLBASE(3),FLDEP(3) 8 3Q6W LDX 2 FX2 19 3QLG BZE 4 TSYST [BRANCH IF NON SYSTEM REQUEST 6 3R66 #DEF Q=TAC1 6 3RKQ #DEF R=TAC2 7 3S5B #DEF S=FLBS4 7 3SK2 #DEF T=APETADDR 7 3T4L #DEF V=FLTRANCT 20 3TJ= BACKTRAN FLBS1(3),BSET+BONL+FLAW,FLBS2(3),,R(2),S(3),FLBS3(3) 8 3W3W TCHEK ADX 7 FX1 14 3WHG CHTRANX FLTYPE(3),TFAIL,TSPFAL,TINOP 8 3X36 BNZ 4 TEX0 7 3XGQ ADN 7 1 7 3Y2B TEX0 EXIT 7 0 21 3YG2 TSYST BACKTRAN Q(2),BSET+BONL+BOBJ+FLAW,V(3),,R(2),S(3),FLCORE(3),T(2) 8 3Y_L BRN TCHEK 5 3_7W ...TFAIL 18 3_B6 ... LDCH 5 ACOMMUNE9(2) [TOPCHAR OF FAILED REPLY 16 3_JB ... STO 5 AWORK3(2) [AND PRESERVE IT 8 3_QL ... BZE 4 TEX0 16 3_YW KEEPMESS TEWS(1),EWORK5(2),AWORK1(2) [SCA FAIL 8 42DG BRN TC 14 42Y6 TINOP KEEPMESS TEWI(1),EWORK5(2) [SU INOP 17 43CQ BNZ 4 TC [J IF SYSTEM REQUEST 9 43XB KEEPREP 5,EXFAIL 8 44C2 BRN TZB 8 44WL BRN TC 5 45B= TSPFAL 16 45TW KEEPMESS TEDO(1),EWORK5(2),AWORK1(2) [SU FAIL 9 46*G TC KEEPREP 5,EXFAIL 6 46DL ...#UNS IPBD 9 46HQ ...TB UNLOCKSU EWORK5(2) 6 46LW ...#UNS IPBD 4 46Q2 ...#SKI 10 46T6 TB TPUNLOCKSU EWORK5(2) 9 47#Q TZB BADBLOCK TAC2(2) 16 47SB TK FREECORE 3 [FREE FLAWB BLOCK 7 48#2 PUTREP 5 5 48RL UP 4 48XH ...TE 9 493D ... SBX 7 AWORK2(2) 18 497* ... BZE 7 TEA [J IF FLAW INDEX IS EMPTY 18 49?= ... KEEPMESS TEWSC(1),EWORK5(2) [FLAW AREA FULL 8 49C7 ... BRN TEB 21 49H4 ...TEA KEEPMESS TEWSN(1),EWORK5(2),FLBLOCK(3) [BLOCK FAIL EMPTY F.I. 4 49L_ ...TEB 9 49QW KEEPREP 5,ACAFULL 8 4==G BRN TB 5 4=Q6 TOBER 7 4?9Q #SKI ENTWINE 11 4?PB TPLOCKSU EWORK5(2),TLINK 10 4?_8 ... LDX 6 FLSTART(3) 10 4#92 #SKIP K6FLAW>99-99 11 4#NL TRACE AWORK1(2),FLAW! 20 4*8= T5 DVS 5 FLBS2(3) [CALCULATE BLOCK ADDRESS OF... 17 4*MW STO 6 FLBS4(3) [...FIRST FLAW INDEX 18 4B7G STO 5 AWORK2(2) [REMEMBER WORD ADDRESS 16 4BM6 CALL 0 TRANSFER2 [READ FLAW INDEX 9 4C6Q TXU 6 FLBUFF(3) 17 4CLB BCC T8 [CHECK CORRECT BLOCK 18 4D62 T6 KEEPMESS TEWC(1),EWORK5(2),6 [CHECKSUM FAIL 8 4DKL BRN TC 10 4F5= T8 LDX 5 FLBUFF+1(3) 15 4FJW BZE 5 T9 [NO CHECKSUM 9 4G4G LDN 5 FLBUFF(3) 18 4GJ6 SUM 4 128 [CHECK CORRECT CHECKSUM 8 4H3Q BNZ 4 T6 7 4HHB T9 NGN 7 1 9 4J32 ADX 7 AWORK2(2) 18 4JGL TTRY ADN 7 1 [MODIFIER TO NEXT CELL 7 4K2= SMO 7 18 4KFW LDX 4 FLBUFF+2(3) [CONTENTS OF NEXT CELL 10 4K_G TXU 4 FLBLOCK(3) 19 4LF6 BCC THERE [BLOCK ALREADY IN FLAW AREA 18 4LYQ BZE 4 TNOUS [BRANCH IF CELL UNUSED 7 4MDB ADN 4 1 17 4MY2 BNZ 4 TTRY [LOOK AT NEXT CELL 9 4NCL SMO AWORK2(2) 9 4NX= LDX 6 FLBUFF(3) 16 4PBW BNZ 6 T5 [ANY MORE INDEX'S 9 4PWG LDX 6 TAC1(2) 18 4QB6 BNZ 6 TE [BRANCH IF WRITE TRANSFER 19 4QTQ T7 KEEPMESS TEWL(1),EWORK5(2),FLBLOCK(3)[FLAW ENTRY NOT FOUND 8 4R*B BRN TC 9 4RT2 TNOUS LDX 6 TAC1(2) 18 4S#L BZE 6 T7 [BRANCH IF READ TRANSFER 9 4SCQ ... LDX 0 AWORK3(2) 19 4SGW ... ANDN 0 #14 [BITS 2 & 3 OF FAILED REPLY 17 4SL2 ... SBN 0 #14 [ARE BOTH BITS SET 17 4SP6 ... BZE 0 T7 [J IF SO - SEEK ERROR 17 4SS= ERASEX TC [ERASE FAILING BLOCK 17 4T?W KEEPMESS TEFL(1),EWORK5(2),FLBLOCK(3)[BLOCK FLAWED 21 4TRG LDN 5 0 [REMEMBER TO WRITE AWAY FLAW INDEX 10 4W?6 LDX 6 FLBLOCK(3) 7 4WQQ SMO 7 19 4X=B STO 6 FLBUFF+2(3) [STORE BLOCK NUMBER IN CELL 8 4XB? ... BRN TFLAW 5 4XG8 ...THERE 16 4XL5 ... LFAILS AWORK4(2),0 [JUMP IF FAIL 15 4XQ2 ... BZE 0 TFLAW [COUNT= ZERO 7 4XTX ... LDN 0 1 20 4X_S ... DECANTCT AWORK4(2),0,FAIL [SUBTRACT 1 FROM COUNT OF FAILS 18 4Y5P ...TFLAW STO 7 FLPOINT(3) [REMEMBER CELL POINTER 9 4Y9L SBX 7 AWORK2(2) 9 4YP= SMO AWORK2(2) 10 4_8W ADX 7 FLBUFF+1(3) 19 4_NG STO 7 FLBS4(3) [STORE ADDRESS OF FLAW AREA 10 5286 #SKIP K6FLAW>99-99 11 52MQ TRACE TAC1(2),ININDEX 21 537B CALL 0 TRANSFER1 [REWRITE OBJ.TRANSFER TO FLAW AREA 15 53M2 BRN TAGAN [ERRED AGAIN 20 546L BNZ 5 TDA [BRANCH IF FLAW INDEX UNCHARGED 7 5483 ...#UNSET JSKI34 4 549D ...( 20 54=T ... LDX 5 6 [ BLK. NUM. OF FAILED TRANSFER 20 54#= ... CALL 7 XPLOG [ WAIT FOR INCIDENT TO GE LOGGED 4 54*M ...) 18 54L= CALL 0 TRANSFER3 [WRITE AWAY FLAW INDEX 6 54PB ...#UNS IPBD 9 54SG ...TDA UNLOCKSU EWORK5(2) 6 54XL ...#UNS IPBD 4 552Q ...#SKI 10 555W TDA TPUNLOCKSU EWORK5(2) 8 55KG BRN TD 16 5656 TLINK KEEPMESS TPRO(1),EWORK5(2) [PROCESSOR FAIL 9 56JQ KEEPREP 5,EXFAIL 8 574B BRN TK 18 57J2 ...TAGAN KEEPMESS TEWF(1),EWORK5(2),AWORK1(2) [FLAW BLOCK FAIL 18 583L LDX 7 AWORK1(2) [GET ADDRESS OF FLAW AREA 18 58H= SMO FLPOINT(3) [RESET CELL,POINTER TOH.. 18 592W STO 7 FLBUFF+2(3) [...POINT TO FLAW BLOCK 7 598G ...#UNSET JSKI34 4 599X ...( 21 59?# ... LDX 5 7 [ BLK. NUM. OF FAILED FLAW AREA BLK 20 59#P ... CALL 7 XPLOG [ WAIT FOR INCIDENT TO BE LOGGED 4 59B6 ...) 18 59GG CALL 0 TRANSFER3 [WRITE AWAY FLAW INDEX 19 5=26 LDX 7 FLPOINT(3) [X7=MODIFIER TO LIST OF CELLS 8 5=FQ BRN TTRY 4 5=_B # 6 5=_F ...#UNS ATRACK 4 5=_J ...( 4 5=_M ...# 13 5=_Q ...# CODE TO DEAL WITH 2900 TYPE DISCS 15 5=_T ...# REPEATS BY TRACK RATHER THAN BLOCK TRANSFERS 11 5=_Y ...# X7 HOLDS NO OF BLKS/TRACK 4 5?23 ...# 8 5?26 ...X30BT LDN 7 30 8 5?29 ... BRN XD1 8 5?2# ...X20BT LDN 7 20 20 5?2C ...XD1 LDX 5 EWORK3(2) [START BLK OF OBJ PROG TRANSFER 9 5?2G ... STO 5 FLBS4(3) 10 5?2K ... STO 5 FLBLOCK(3) 17 5?2N ... DVS 4 FLDEP(3) [DIVIDED BY BLKS/CYL 17 5?2R ... STO 5 FLERB(3) [LEAVES CYL NO IN X5 18 5?2W ... STO 4 FLERASE(3) [AND BLK WITHIN CYL IN X4 7 5?2_ ... LDX 5 4 21 5?34 ... DVS 4 7 [DIVIDED BY BLKS/TRK LEAVES TRK NO 20 5?37 ... STO 4 FLSTART(3) [IN X5 AND BLK WITHIN TRK IN X4 8 5?3= ... LDN 0 128 21 5?3* ... LDX 5 TAC3(2) [NO OF WDS IN TRANSFER DIVIDED BY 128 18 5?3D ... DVS 4 0 [AND ROUNDED UP TO GIVE 19 5?3H ... BZE 4 XD2 [NO OF BLKS IN TRANSFER IN X5 7 5?3L ... ADN 5 1 18 5?3P ...XD2 STO 5 FLPOINT(3) [STORE FOR 1 TRACK CASE 21 5?3S ... ADX 5 FLSTART(3) [NO OF BLKS IN TRANSFER + BLK WITHIN 18 5?3X ... DVS 4 7 [TRK DIVIDED BY BLKS/TRK 20 5?42 ... BZE 5 XONE [_ IF ONLY 1 PART TRACK INVOLVED 17 5?45 ... BNZ 4 XD2A [CATER FOR CASE WHERE 18 5?48 ... SBN 5 1 [1 PART TRACK ENDING ON 15 5?4? ... BZE 5 XONE [TRACK BDY 4 5?4B ...# 17 5?4F ...# IF >1 TRACK INVOLVED THEN TRANSFER MUST BE REPEATED 14 5?4J ...# ON A TRACK (OR PART TRACK) BY TRACK BASIS 4 5?4M ...# 18 5?4Q ...# FIRST INITIALISE FBLCNT = NO OF BLKS TO BE TRANSFERRED 16 5?4T ...# FLCORE = TOP OF BUFFER ADDRESS 4 5?4Y ...# 20 5?53 ...XD2A LDX 6 TAC3(2) [NO OF WDS IN OBJ PROG TRANSFER 8 5?56 ... LDN 0 128 7 5?59 ... DVS 5 0 18 5?5# ... BZE 5 XD3 [_ IF INTEGRAL NO OF BLKS 7 5?5C ... ADN 6 1 19 5?5G ...XD3 STO 6 FBLCNT(3) [NO OF BLKS TO BE TRANSFERRED 18 5?5K ... LDX 6 5 [PRESERVE ODD NO OF WDS 17 5?5N ... LDX 0 TAC4(2) [START BUFFER ADDRESS 20 5?5R ... ADX 0 TAC3(2) [+ NO OF WDS TO BE TRANSFERRED 18 5?5W ... STO 0 FLCORE(3) [TOP OF BUFFER ADDRESS 4 5?5_ ...# 10 5?64 ...# LOOP FOR REPEAT TRANSFERS 4 5?67 ...# 15 5?6= ...# FIRST WORK OUT NO OF WDS TO BE TRANSFERRED 4 5?6* ...# 20 5?6D ...XLOOP LDX 5 FLERASE(3) [START BLK WITHIN CYL OF OBJ TFER 21 5?6H ... ADX 5 FBLCNT(3) [+ NO OF BLFS STILL TO BE TRANSFERRED 17 5?6L ... DVS 4 7 [DIVIDED BY BLKS/TRK 19 5?6P ... BNZ 4 XL2 [_ IF NOT ENDING ON TRK BDY 7 5?6S ... LDX 0 7 9 5?6X ... SBX 0 FBLCNT(3) 20 5?72 ... BNG 0 XL1 [_ IF >1 TRACK STILL TO TRANSFER 18 5?75 ... LDX 4 FBLCNT(3) [TRANSFER REMAINING BLKS 8 5?78 ... BRN XL2 17 5?7? ...XL1 LDX 4 7 [OR 1 COMPLETE TRACK 19 5?7B ...XL2 STO 4 FLPOINT(3) [NO OF BLKS IN THIS TRANSFER 8 5?7F ... LDN 0 128 7 5?7J ... MPY 4 0 21 5?7M ... BZE 6 XL3 [_ IF NOT ODD NO OF WDS IN TRANSFER 18 5?7Q ... SBN 5 128 [OTHERWISE REDUCE WD CT 15 5?7T ... ADX 5 6 [ACCORDINGLY 19 5?7Y ...XL3 STO 5 FLTRANCT(3) [CT OF WDS TO BE TRANSFERRED 4 5?83 ...# 10 5?86 ...# NOW STORE CORE ADDRESS 4 5?89 ...# 9 5?8# ... SBS 5 FLCORE(3) 4 5?8C ...# 13 5?8G ...# NOW WORK OUT START BLK NO AND UPDATE 14 5?8K ...# BLKS STILL TO BE TRANSFERRED AFTER THIS 4 5?8N ...# 19 5?8R ... LDX 4 FLPOINT(3) [NO OF BLKS IN THIS TRANSFER 9 5?8W ... SBS 4 FBLCNT(3) 9 5?8_ ... LDX 4 EWORK3(2) 9 5?94 ... ADX 4 FBLCNT(3) 9 5?97 ... STO 4 FLBS4(3) 19 5?9= ... STO 4 FLBLOCK(3) [START BLK OF THIS TRANSFER 4 5?9* ...# 9 5?9D ...# NOW DO THE TRANSFER 4 5?9H ...# 17 5?9L ...XL4 LDX 6 7 [PRESERVE BLKS/TRK 9 5?9P ... CALL 0 TRANSFER1 17 5?9S ... BRN XOBER [_ IF TRANSFER FAILED 7 5?9X ... LDX 7 6 20 5?=2 ...XL5 STOZ 6 [CANNOT BE ODD WDS AFTER 1ST TFER 9 5?=5 ... LDX 0 FBLCNT(3) 19 5?=8 ... BNZ 0 XLOOP [_ IF MORE BLKS TO TRANSFER 18 5?=? ... KEEPREP 5,OK [ALL REPEAT TRANSFERS OK 8 5?=B ... BRN TZB 4 5?=F ...# 17 5?=J ...# IF ORIGINAL TRANSFER TO BE REPEATED AS IT STOOD SET UP 9 5?=M ...# FLTRANCT AND FLCORE 12 5?=Q ...# FLBS4 AND FLBLOCK ALREADY SET UP 17 5?=T ...# ZEROISE FBLCNT TO INDICATE NO MORE BLKS TO TRANSFER 4 5?=Y ...# 9 5??3 ...XONE LDX 0 TAC3(2) 15 5??6 ... STO 0 FLTRANCT(3) [TRANSFER CT 9 5??9 ... LDX 0 TAC4(2) 16 5??# ... STO 0 FLCORE(3) [BUFFER ADDRESS 9 5??C ... STOZ FBLCNT(3) 8 5??G ... BRN XL4 4 5??K ...# 10 5??N ...# HERE IF TRANSFER FAILED 4 5??R ...# 16 5??W ...XOBER LDX 7 6 [RESTORE BLKS/TRK 9 5??X ... LDX 6 AWORK1(2) 18 5??Y ... STO 6 FLBS4(3) [RESTORE BLOCK NO 9 5??_ ... LDX 6 TAC1(2) 15 5?#4 ... BZE 6 XOB1 [_ IF READ 9 5?#7 ... LDX 0 AWORK3(2) 8 5?#= ... ANDN 0 #14 20 5?#* ... SBN 0 #14 [OR WRITE WITH SEEK ERROR AS NO 20 5?#D ... BZE 0 XOB1 [CORRECTIVE ACTION TO BE TAKEN 21 5?#H ... ERASEX XERF [OTHERWISE ERASE ALL BLKS IN TRANSFER 4 5?#L ...# 19 5?#P ...# IF ERASE SUCCESSFUL O/P MESSAGE AND DO NEXT REPEAT TRANSFER 20 5?#S ... KEEPMESS TEALT(1),EWORK5(2),FLBLOCK(3) [ALT TRACK ALLOCATED 8 5?#X ... BRN XL4 4 5?*2 ...# 16 5?*5 ...# IF ERASE FAILS O/P MESSAGE AND KEEP FAILED REPLY 4 5?*8 ...# 21 5?*? ...XERF KEEPMESS TEFAIL(1),EWORK5(2),FLBLOCK(3) [COULD NOT BE ALT TRKD 8 5?*B ... BRN XOB2 4 5?*F ...# 18 5?*J ...XOB1 KEEPMESS TENO(1),EWORK5(2),FLBLOCK(3) [NO ALT TRACK 9 5?*M ...XOB2 KEEPREP 5,EXFAIL 8 5?*Q ... BRN TZB 4 5?*T ...) 4 5?F2 # 7 5?NW ...#UNSET JSKI34 4 5?PD ...( 8 5?Q2 ...XPLOG SBX 7 FX1 16 5?QJ ... MFINDSU 1,EWORK5(2) [ PTR. TO ASTUC 16 5?R6 ... LDX 6 HUNIT(1) [%A FOR PLOGGING 14 5?RN ... DVS 4 FLDEP(3) [ X4=%C 14 5?S= ... SBX 5 ASUBASE(1) [X5=%B 16 5?SS ... PLOGGING 6,5,4,FLBS2(3) [ LOG INCIDENT 8 5?TB ... ADX 7 FX1 7 5?TY ... EXIT 7 0 4 5?WG ...# 4 5?X4 ...# 4 5?XL ...) 10 5?YL MENDAREA 20,K99FLAW 4 5#D= #END 8 ____ ...65775355000200000000