15 22FL ... SEG RESTERR,864,BRIAN MATTHEWS,RESTORE 2 22_= 12 23DW SEGENTRY K1RESTERR,X1RESTERR 12 23YG SEGENTRY K2RESTERR,X2RESTERR 12 24D6 SEGENTRY K3RESTERR,X3RESTERR 12 24XQ SEGENTRY K4RESTERR,X4RESTERR 12 25CB SEGENTRY K5RESTERR,X5RESTERR 12 25X2 SEGENTRY K7RESTERR,X7RESTERR 12 26BL SEGENTRY K8RESTERR,X8RESTERR 12 26W= SEGENTRY K9RESTERR,X9RESTERR 12 27*W SEGENTRY K10RESTERR,X10RESTERR 12 27TG SEGENTRY K13RESTERR,X13RESTERR 12 28*6 SEGENTRY K14RESTERR,X14RESTERR 12 28SQ SEGENTRY K15RESTERR,X15RESTERR 12 29#B SEGENTRY K17RESTERR,X17RESTERR 12 29S2 SEGENTRY K18RESTERR,X18RESTERR 12 2=?L SEGENTRY K19RESTERR,X19RESTERR 12 2=R= SEGENTRY K20RESTERR,X20RESTERR 12 2?=W SEGENTRY K21RESTERR,X21RESTERR 12 2?QG SEGENTRY K30RESTERR,X30RESTERR 2 2#=6 19 2#PQ # THE PURPOSE OF THIS SEGMENT IS TO PRODUCE BETTER DIAGNOSTIC 19 2*9B # INFORMATION ON TAPE FORMAT ERRORS AND TAPE FAILURES DURING 20 2*P2 # GENERAL RESTORE. VARIOUS INFORMATION CAN BE DEDUCED ABOUT THE 20 2B8L # CAUSE OF THE FAILURE FROM THE POSITION IN THE GENERAL RESTORE 15 2BN= # SEGMENTS WHERE THE FAILURE HAS OCCURRED. 20 2C7W # THE USER AND/OR LOCAL NAME OF THE LAST START-OF-SUBFILE SENTINEL 20 2CMG # READ IS PRINTED OUT IN APPROPRIATE CASES, IN ORDER TO PROVIDE 20 2D76 # SOME INDICATION OF THE POSITION, ON THE INCREMENT DUMP TAPE, 12 2DLQ # WHERE THE FAILURE HAS OCCURRED 5 2F6B # ENTRY 21 2FL2 # THIS SEGMENT CAN BE ENTERED FROM ANY OF THE FOLLOWING RESTORE 21 2G5L # SEGMENTS- RESTEND, RESTOREG, RESTMERG, OR RESTLIMB. EACH OF 20 2GK= # THE ENTRY POINTS IN THE SEGMENT CORRESPOND TO A PARTICULAR 12 2H4W # TYPE OF TAPE FORMAT ERROR. 5 2HJG # EXIT 20 2J46 # ACROSS TO SEGMENT RESTFAIL WHICH IS DESIGNED TO TIDY UP THE 20 2JHQ # FILECHAIN BEFORE REQUESTING ANOTHER INCREMENT DUMP TAPE. 2 2K3B 2 2KH2 8 2L2L MESS1 +14 17 2LG= 52H LAST SSF SENTINEL READ : . 8 2L_W MESS2 +11 14 2MFG 40H LAST SSF SENTINEL READ : 8 2M_6 MESS3 +13 18 2NDQ ... 48H FORMAT ERROR IN INC. NO. ? ON MT ? 8 2NYB MESS4 +13 18 2PD2 ... 48H TAPE FAILURE IN INC. NO. ? ON MT ? 8 2PXL MESS5 +10 16 2QC= 36H ESF OR SSF SENTINEL WAS EXPECTED 8 2QWW MESS6 +10 17 2RBG 36H MASTER'S SSF SENTINEL WAS EXPECTED 8 2RW6 MESS7 +13 19 2S*Q 48H BLKS READ FROM MT NOT SAME AS IN SSF SENTINEL 8 2STB MESS8 +8 14 2T*2 28H ESF SENTINEL WAS EXPECTED 8 2TSL MESS9 +8 14 2W#= 28H SSF SENTINEL WAS EXPECTED 8 2WRW MESS10 +12 18 2X?G 44H NAME IN SSF SENTINEL NOT NAME IN TOP FCB 8 2XR6 MESS11 +13 20 2Y=Q 48H NAME RECORD IN A DIRECTORY IS INCORRECT LENGTH 8 2YQB MESS12 +8 15 2_=2 28H A NAME RECORD WAS EXPECTED 8 2_PL MESS13 +9 15 329= 32H A TRAPS RECORD WAS EXPECTED 8 32NW MESS14 +12 18 338G 44H AN INCOMPLETE DIRECTORY ENTRY ENCOUNTERED 8 33N6 MESS17 +14 21 347Q 52H MT KNOWN TO S/SERIAL BUT NOT TO S/INCINDEX 8 34MB MESS18 +13 17 3572 48H NO RECORD IN S/INCINDEX OF INCREMENT 8 35LL MESS19 +12 17 366= 44H NO RECORD IN S/SERIAL OF COPY TAPE 8 36KW MESS21 +12 17 375G 44H NO RECORD IN S/DUMPER OF COPY TAPE 8 37K6 MESS22 +11 15 384Q 40H NO RECORD IN S/INCINDEX OF MT 8 38JB MESS23 +11 17 3942 40H A SUPERFLUOUS TAPE MARK ENCOUNTERED 8 39HL MESS24 +5 12 3=3= 16HLONG BLOCK READ 9 3=GW XTHOU 1000000 2 3?2G 17 3?G6 X1RESTERR [ESF OR SSF EXPECTED 9 3?_Q LDN 3 MESS3 18 3#FB CALL 6 XFORPT [OUTPUTS HEADER MESSAGE 9 3#_2 LDN 3 MESS5 18 3*DL CALL 7 XERRPT [OUTPUTS ERROR MESSAGE 18 3*Y= CALL 7 SENPT [OUTPUTS LAST SSF READ 9 3BCW BRN XCLEANUP 2 3BXG 18 3CC6 X2RESTERR [SSF FOR MASTER EXPECTED 9 3CWQ LDN 3 MESS3 9 3DBB CALL 6 XFORPT 9 3DW2 LDN 3 MESS6 9 3F*L CALL 7 XERRPT 9 3FT= BRN XCLEANUP 2 3G#W 21 3GSG X3RESTERR [BLOCKS ON MT NOT SAME AS IN SSF SENT 9 3H#6 LDN 3 MESS3 9 3HRQ CALL 6 XFORPT 9 3J?B LDN 3 MESS7 9 3JR2 CALL 7 XERRPT 8 3K=L CALL 7 SENPT 9 3KQ= BRN XCLEANUP 2 3L9W 18 3LPG X4RESTERR [ESF SENT. WAS EXPECTED 8 3M96 LDN 3 MESS3 9 3MNQ CALL 6 XFORPT 8 3N8B LDN 3 MESS8 9 3NN2 CALL 7 XERRPT 8 3P7L CALL 7 SENPT 9 3PM= BRN XCLEANUP 2 3Q6W 18 3QLG X5RESTERR [SSF SENT. WAS EXPECTED 8 3R66 LDN 3 MESS3 9 3RKQ CALL 6 XFORPT 8 3S5B LDN 3 MESS9 9 3SK2 CALL 7 XERRPT 8 3T4L CALL 7 SENPT 9 3TJ= BRN XCLEANUP 2 3W3W 19 3WHG X7RESTERR [NAME RECORD INCORRECT LENGTH 8 3X36 LDN 3 MESS3 9 3XGQ CALL 6 XFORPT 9 3Y2B LDN 3 MESS11 9 3YG2 CALL 7 XERRPT 8 3Y_L CALL 7 SENPT 9 3_F= BRN XCLEANUP 2 3_YW 18 42DG X8RESTERR [NAME RECORD WAS EXPECTED 8 42Y6 LDN 3 MESS3 9 43CQ CALL 6 XFORPT 9 43XB LDN 3 MESS12 9 44C2 CALL 7 XERRPT 8 44WL CALL 7 SENPT 9 45B= BRN XCLEANUP 2 45TW 19 46*G X9RESTERR [TRAPS RECORD WAS EXPECTED 8 46T6 LDN 3 MESS3 9 47#Q CALL 6 XFORPT 9 47SB LDN 3 MESS13 9 48#2 CALL 7 XERRPT 8 48RL CALL 7 SENPT 9 49?= BRN XCLEANUP 2 49QW 18 4==G X10RESTERR [INCOMPLETE DIR. ENTRY 8 4=Q6 LDN 3 MESS3 9 4?9Q CALL 6 XFORPT 9 4?PB LDN 3 MESS14 9 4#92 CALL 7 XERRPT 8 4#NL CALL 7 SENPT 9 4*8= BRN XCLEANUP 2 4*MW 21 4B7G X13RESTERR [MT KNOWN TO S/SERIAL BUT NOT TO S/IN 11 4BM6 HUNT 1,FILE,FINTER7 18 4C6Q LDX 5 CURRTSN(1) [X5= TSN OF CURRENT TAPE 18 4CLB LDN 3 MESS17 [X3=REL POS. OF MESS. 19 4D62 LDN 4 2 [REL. POS. IN MESSAGE FOR TSN 16 4DKL CALL 7 STOTSN [OUTPUTS MESSAGE 9 4F5= BRN XGEOERR 2 4FJW 21 4G4G X14RESTERR [NO RECORD IN INCINDEX FOR INC. NO. N 9 4GJ6 LDN 3 MESS18+11 17 4H3Q LDX 0 JINCLAST [X0= INCR. REQUIRED 19 4HHB CALL 6 XBINDEC [CONVERTS BINARY TO DECIMAL 19 4J32 LDN 3 MESS18 [START ADDRESS OF MESSAGE 9 4JGL CALL 7 XERRPT 9 4K2= BRN XGEOERR 2 4KFW 21 4K_G X15RESTERR [NO RECORD IN S/SERIAL OF COPY TAPE 17 4LF6 LDX 5 6 [X6=TSN OF COPY TAPE 9 4LYQ LDN 3 MESS19 8 4MDB LDN 4 10 9 4MY2 CALL 7 STOTSN 9 4NCL BRN XGEOERR 2 4NX= 21 4PBW X17RESTERR [NO RECORD IN :DUMPER OF COPY TAPE 18 4PWG LDX 5 6 [X6= TSN OF COPY TAPE 19 4QB6 LDN 3 MESS21 [START ADDRESS OF MESSAGE 8 4QTQ LDN 4 10 9 4R*B CALL 7 STOTSN 9 4RT2 BRN XGEOERR 2 4S#L 20 4SS= X18RESTERR [NO RECORD IN INCINDEX OF MT M 11 4T?W HUNT 1,FILE,FINTER7 16 4TRG LDX 5 CURRTSN(1) [X5=CURRENT TSN 9 4W?6 LDN 3 MESS22 7 4WQQ LDN 4 9 9 4X=B CALL 7 STOTSN 9 4XQ2 BRN XGEOERR 2 4Y9L 21 4YP= X19RESTERR [B0,B1 OR B3 SET IN REPLY WORD FOR RE 9 4_8W LDX 0 CPRW1(2) 16 4_NG BNG 0 XMTPERI [GEOERR IF B0 SET 7 5286 SLL 0 1 16 52MQ BNG 0 XLONGBL [J IF LONG BLOCK 8 537B LDN 3 MESS4 9 53M2 CALL 6 XFORPT 18 546L CALL 7 SENPT [SSF SENTINEL PRINT OUT 9 54L= BRN XCLEANUP 2 555W 5 55KG XLONGBL 8 5656 LDN 3 MESS3 17 56JQ CALL 6 XFORPT [FORMAT ERROR MESSAGE 9 574B LDN 3 MESS24 18 57J2 CALL 7 XERRPT [LONG BLOCK READ MESSAGE 17 583L CALL 7 SENPT [LAST START SENTINEL 9 58H= BRN XCLEANUP 2 592W 18 59GG X20RESTERR [NOT THE NAME IN TOP FCB 8 5=26 LDN 3 MESS3 9 5=FQ CALL 6 XFORPT 9 5=_B LDN 3 MESS10 9 5?F2 CALL 7 XERRPT 8 5?YL CALL 7 SENPT 9 5#D= BRN XCLEANUP 6 5#XW X21RESTERR 20 5*CG LDN 3 MESS4 [ A SUPERFLUOUS TAPE MARK ENCOUNTERED 9 5*X6 CALL 6 XFORPT 9 5BBQ LDN 3 MESS23 9 5BWB CALL 7 XERRPT 9 5CB2 BRN XCLEANUP 21 5CBC ...# ****************************************************************** 4 5CBS ...# 14 5CC9 ...# THIS SUBROUTINE SINULATES A INFOMEX 3 20 5CCL ...# IT IS A TEMPORARY MEASURE UNTIL THE SEGMENT CAN BE TIDIED UP 18 5CD3 ...MASK CATMASK CL [ CENTRAL CATEGORY MASK 16 5CDD ...ZINFOMEX [ CALLED ON X4 19 5CDT ... SBX 4 FX1 [ RELATIVISE AND SORE LINK 8 5CF= ... SMO FX2 9 5CFM ... STO 4 AWORK4 8 5CG4 ... LDX 1 FX1 20 5CGF ... ADX 1 3 [ POSITION OF COUNT IN CHAPTER 15 5CGW ... LDX 4 0(1) [ NO OF WORDS 13 5CH? ...# THERE SHOULD BE A FINTER5 SET UP 12 5CHN ...# BUT IF THERE ISNT SET UP ONE 11 5CJ5 ... HUNTW 2,FILE,FINTER5 9 5CJG ... BPZ 2 ZFINT5 12 5CJX ... SETNCORE 14,2,FILE,FINTER5 5 5CK# ...ZFINT5 8 5CKP ... ADN 2 A1 8 5CL6 ... LDX 1 FX1 7 5CLH ... ADX 1 3 7 5CLY ... SMO 4 15 5CM* ... MOVE 1 0 [ MOVE MESSAGE 7 5CMQ ... LDX 2 4 7 5CN7 ... SBN 2 1 16 5CNJ ... SLL 2 2 [ CONVERT TO CHAR COUNT 8 5CN_ ... SMO FX1 8 5CPB ... LDX 4 MASK 12 5CPR ... OUTMON 2,A1+1,4,FILE,FINTER5 4 5CQ8 ...# 17 5CQK ... MFREE FILE,FINTER5 [ FINISHED WITH BLOCK 16 5CR2 ... LDX 4 AWORK4(2) [ RESTORE LINK 8 5CRC ... ADX 4 FX1 7 5CRS ... EXIT 4 0 4 5CS9 ...# 21 5CSL ...# ****************************************************************** 18 5CTL # THIS SUBROUTINE OUTPUTS MESSAGE TO OPERATORS CONSOLE 17 5D*= # ENTRY X3= POS. OF MESSAGE REL. TO START OF CHAPTER 10 5DSW # X7= LINK ADDRESS 2 5F#G 5 5FS6 XERRPT 8 5G?Q SBX 7 FX1 15 5GRB ... CALL 4 ZINFOMEX [ OUTPUT MESS 8 5H?2 ADX 7 FX1 7 5HQL EXIT 7 0 2 5J== 2 5JPW 19 5K9G # THIS SUBROUTINE WILL PRINT OUT THE LAST SSF SENTINEL READ 20 5KP6 # ENTRY FILE/FINTER6 BLOCK SET UP CONTAINING SSF SENTINEL ;'ALSO 19 5L8Q # ASSUMES THAT CONBUFF/COUT HAS BEEN SET UP IN PREVIOUS 9 5LNB # SUBROUTINE 2 5M82 5 5MML SENPT 8 5N7= SBX 7 FX1 8 5NLW SMO FX2 9 5P6G STO 7 AWORK3 11 5PL6 HUNT 1,FILE,FINTER6 10 5Q5Q LDX 7 ESENTYP(1) 18 5QKB BZE 7 XEXIT [ J IF F/F6 IS EMPTY 9 5R52 LDX 7 ESENB(1) 17 5RJL BPZ 7 XERR2 [J IF NOT A DIRECTORY 8 5S4= LDN 3 MESS2 8 5SHW BRN XERR1 5 5T3G XERR2 9 5TH6 LDN 3 MESS1 5 5W2Q XERR1 2 5WGB 11 5X22 MHUNTW 1,FILE,FINTER6 18 5XFL LDX 2 3 [ X2 -> APPROP. MESSAGE 8 5X_= LDCT 0 #200 7 5YDW ADS 0 2 8 5YYG LDN 0 12 10 5_D6 XAB LDCH 5 ESENUSE1(1) 8 5_XQ SMO FX1 8 62CB DCH 5 7(2) 7 62X2 BCHX 1 / 7 63BL BCHX 2 / 8 63W= BCT 0 XAB 16 64*W BNG 7 XERR4 [J IF A DIRECTORY 7 64TG BCHX 2 / 8 65*6 LDN 0 12 4 65SQ XAC 10 66#B LDCH 5 ESENLOC1-3(1) 8 66S2 SMO FX1 8 67?L DCH 5 7(2) 7 67R= BCHX 1 / 7 68=W BCHX 2 / 8 68QG BCT 0 XAC 5 69=6 XERR4 15 69PQ ... CALL 4 ZINFOMEX [ OUTPUT MESS 5 6=9B XEXIT 8 6=P2 SMO FX2 9 6?8L LDX 7 AWORK3 8 6?N= ADX 7 FX1 7 6#7W EXIT 7 0 2 6#MG 2 6*76 18 6*LQ # THIS SUBROUTINE CONVERTS THE INCREMENT NO. FROM BINARY 17 6B6B # TO DECIMAL AND INSERTS IT INTO APP. PLACE IN THE 9 6BL2 # OUTPUT MESSAGE 20 6C5L # ON ENTRY, X3=POSITION(RELATIVE TO START OF CHAPTER) OF INC. NO. 11 6CK= # IN THE OUTPUT MESSAGE 9 6D4W # X0=INC. NO. 10 6DJG # X6= LINK ADDRESS 2 6F46 5 6FHQ XBINDEC 8 6G3B SBX 6 FX1 7 6GH2 LDN 1 0 8 6H2L SMO FX1 18 6HG= DVR 0 XTHOU [SET UP PARAMETERS FOR 8 6H_W LDCT 2 #200 7 6JFG LDN 4 6 7 6J_6 MODE 1 5 6KDQ STOINC 8 6KYB SMO FX1 8 6LD2 CBD 1 0(3) 7 6LXL BCHX 3 / 9 6MC= BCT 4 STOINC 8 6MWW ADX 6 FX1 7 6NBG EXIT 6 0 2 6NW6 2 6P*Q 20 6PTB # THE FIRST ERROR MESSAGE PRINTED OUT IN THE OPERATOR'S CONSOLE 20 6Q*2 # WILL SPECIFY THE CAUSE OF FAILURE - EITHER TAPE FORMAT ERROR 21 6QSL # OR TAPE FAILURE. SINCE ONE OF THESE MESSAGES IS ALWAYS PRINTED 20 6R#= # OUT IT WAS DEEMED TO BE ECONOMICAL TO WRITE THE SETTING UP 11 6RRW # PROCEDURE AS A SUBROUTINE 17 6S?G # ENTRY: X3= ADD. OF MESSAGE REL. TO START OF CHAPTER 11 6SR6 # : F/FINTER7 BLOCK SET UP 15 6T=Q # : SUBROUTINE ^STOTSN^ WILL BE CALLED IN 2 6TQB 5 6W=2 XFORPT 8 6WPL SBX 6 FX1 17 6X9= STO 6 7 [STORE LINK ADDRESS 12 6XF4 ... SETNCORE 14,1,FILE,FINTER5 8 6XNW SMO FX2 20 6Y8G STO 3 AWORK3 [AWORK3=START ADDRESS OF MESSAGE 8 6YN6 LDCT 3 #400 8 6_7Q SMO FX2 9 6_MB ADX 3 AWORK3 7 7272 ADN 3 7 10 72BS ... JBC XNOINC,,BGENRES 10 72LL HUNTW 1,FILE,FINTER7 7 736= LDN 5 0 18 73KW BNG 1 XNOBIN [J IF NO FINTER7 BLOCK 16 745G LDX 5 CURRTSN(1) [X5= CURRENT TAPE 10 74K6 MHUNTW 1,FILE,FINTER 10 754Q LDX 0 ALOGLEN(1) 19 75JB BZE 0 XNOBIN [J IF NO INC: NO. IN FINTER 10 7642 SMO ALOGLEN(1) 19 76HL LDX 0 A1-1(1) [X0= INC. CURRENTLY READING 20 773= CALL 6 XBINDEC [CONVERTS BINARY NO. INTO DECIMAL 5 77GW XNOBIN 12 77JD ...# TAPE FAIL FOR PARTIAL RESTORE 6 77JQ ...#UNS AMTGR 11 77K4 ... JBS XNOBIN2,,BGENRES 6 77KB ...#UNS AMTGR 5 77KN ...#SKIP 11 77L2 ... BWNZ JINCLAST,XNOBIN2 5 77LR ...XNOINC 11 77MJ ... HUNTMISB 1,FI,FRESTUSER 7 77P6 ... LDN 0 0 9 77QN ... BNG 1 XNOBIN2 9 77S= ... LDX 5 FRTSN(1) 9 77TS ... LDX 0 FRLST(1) 9 77XB ... CALL 6 XBINDEC 5 77YY ...XNOBIN2 8 782G SMO FX2 9 78G6 LDX 3 AWORK3 7 78_Q LDX 6 7 8 79FB LDN 4 11 20 79_2 CALL 7 STOTSN [OUTPUTS MESS. WITH TSN INSERTED 18 7=DL ADX 6 FX1 [REPLACE LINK ADDRESS 7 7=Y= EXIT 6 0 2 7?CW 2 7?XG 20 7#C6 # THIS SUBROUTINE OUTPUTS THE APPROPRIATE MESSAGE WITH THE TSN 19 7#WQ # INSERTED IN A SPECIFIED POSITION. THE TSN. IS HELD 10 7*BB # IN CHARACTER FORM 10 7*W2 # ENTRY: X5 = CURRENT TSN 19 7B*L # X3 = POSITION OF MESS. RELATIVE TO START OF CHAPTER 15 7BT= # X4 = REL. POSITION IN MESS. FOR TSN 10 7C#W # X7= LINK ADDRESS 2 7CSG 5 7D#6 STOTSN 8 7DRQ SBX 7 FX1 16 7F?B BZE 5 OUTPT [BRANCH IF TSN=0 7 7FR2 LDX 1 4 18 7G=L ADX 1 3 [ X0 = COUNT OF 8 X2 =0 7 7GQ= LDN 2 0 7 7H9W LDN 0 8 2 7HPG 5 7J96 STOMESS 7 7JNQ STOZ 4 15 7K8B SLL 45 3 [ CONVERTING 16 7KN2 BNZ 2 STORE [ TSN 18 7L7L BZE 4 UPDATE [ INTO 20 7LM= LDN 2 1 [ CHARACTERS 5 7M6W STORE 19 7MLG SMO FX1 [ DEPOSITING THE CHARACTER 8 7N66 DCH 4 0(1) 7 7NKQ BCHX 1 / 5 7P5B UPDATE 9 7PK2 BCT 0 STOMESS 21 7Q4L OUTPT [OUTPUTS MESS. TO OPERATORS CONSOLE 15 7QJ= ... CALL 4 ZINFOMEX [ OUTPUT MESS 8 7R3W ADX 7 FX1 7 7RHG EXIT 7 0 4 7S36 # 4 7SGQ # 5 7T2B XGEOERR 20 7TG2 # BECAUSE OF THE DIFFICULTIES INVOLVED NO ATTEMPT IS MADE TO 21 7T_L # CLEAN UP THE BACKING STORE WHENEVER AN ERROR IN RESTEND SEGMENT 19 7WF= # OCCURES. INSTEAD AN APPROPRIATE MESSAGE IS OUTPUT FOLLOWED 8 7WYW # BY A GEOERR. 4 7XDG # 4 7XY6 [ 19 7YCQ COOR3 #53 [WAIT UNTIL MESSAGE OUTPUT 11 7YXB GEOERR BRIEFPM,IDFORMAT 4 7_C2 # 5 7_WL XMTPERI 21 82B= GEOERR BRIEFPM,MTPERI [B0 OF REPLY WORD SET WHEN WOKEN UP 4 82TW # 20 83*G # AFTER THE APPROPRIAT MESSAGE HAS BEEN OUTPUT TO THE OPERATOR'S 20 83T6 # CONSOLE, A CLEAN UP OF THE FILE CHAIN, AND ACTIVITY CHAIN IS 21 84#Q # PERFORMED. ONLY MASTER'S FCB IS LEFT IN CORE AND THIS IS MARKED 7 84SB # AS EMPTY. 20 85#2 # UPPLUS 1 EVENTUALLY RETURNS TO RESTOREA WHERE A CLEAN UP OF 15 85RL # THE BACKING STORE IS ACHIEVED BY BACKMAP 4 86?= # 6 86QW X30RESTERR 5 87=G XCLEANUP 15 87#D ...#UNS APTFREST [ TESTING FRIG 4 87BB ...( 18 87D# ... MHUNT 1,FILE,FRESTOR [ HUNT FILE/FRESTOR BLOCK 18 87G= ... BNG 1 XNOPRINT [ IF PRESENT PRINT BLOCK 10 87J8 ... BLOCKTRA 1,FRESTOR,128 5 87L6 ...XNOPRINT 4 87N4 ...) 19 87Q6 FILECOUNT 3 [X3=NO.FILES OPEN TO ACTIVITY 6 87RM ...#UNS AMTGR 11 87T8 ... JBS XCLOSE,,BGENRES 6 87WP ...#UNS AMTGR 4 87Y= ...#SKI 19 87_X ... BWNZ JINCLAST,XCLOSE [ JUMP UNLESS PARTIAL RESTORE 21 884G ... SBX 3 AWORK2(2) [ SUBTRACT COUNT OF FILES TO BE LEFT O 5 889Q XCLOSE 16 88PB BZE 3 XNOFILES [ NO FILES OPEN 16 8992 CLOSEFRBS [ CLOSE THE FILE 7 89NL SBN 3 1 9 8=8= BRN XCLOSE 19 8=MW # SINCE THIS SEGMENT CAN BE ENTERED FROM VARIOUS POINTS IN THE 20 8?7G # RESTORE SEGMENTS IT IS NECESSARY TO DO VFREES FOR THE VARIOUS CORE 5 8?M6 # BLOCKS 5 8#6Q XNOFILES 6 8#8_ ...#UNS AMTGR 4 8#?8 ...( 10 8#*C ... JBC XLEAVBLK,,BGENRES 9 8#CL ... VFREEW FILE,FINTER 10 8#FT ... VFREEW FILE,FINTER7 5 8#J4 ...XLEAVBLK 4 8#L? ...) 6 8#NG ...#UNS AMTGR 4 8#QP ...#SKI 4 8#SY ...( 18 8#X7 ... VFREEW FILE,FINTER7 [ VARIOUS BLOCKS IN THE 10 8#_B ... VFREEW FILE,FINTER 4 8*3K ...) 10 8*62 VFREE CONBUFF,EMSIN 10 8*KL VFREEW FILE,FINTER5 9 8B5= VFREEW FILE,FWB 10 8BJW VFREEW FILE,FINTER6 9 8C4G VFREEW FILE,FAPB 10 8CJ6 VFREEW FILE,FRESTOR 10 8D3Q VFREEW FILE,FLOCNB 7 8F32 UPPLUS 1 4 8FGL # 10 8G2= MENDAREA 30,K99RESTERR 4 8GFW # 4 8G_G #END 8 ____ ...71653530000100000000