14 22FL ... SEG INCPROC,850,MIKE PUTNAM,INCDUMP 4 22_= # 12 23DW SEGENTRY K1INCPROC,X1INCPROC 4 24D6 # 10 24XQ # ENTERED FROM INCWRITE. 4 25CB # 7 25X2 # ON ENTRY:- 15 26BL # X4=INCR. NO. NOW PROVEN NOT OBSELETE 21 26W= # X7=POINTER TO INCR NO IN FINCPROC (RELATIVE TO FINCNOBS WORD) 17 27*W # X5=0 MEANS FILE NOT DUMPED BECAUSE OFFLINE 18 27TG # =1 MEANS FILE NOT DUMPED BECAUSE OPEN UNCLEANLY 4 28*6 # 21 28SQ # ADJUSTS FINCPROC BLOCK IF INCR. NOT PREVIOUSLY KNOWN NOT TO BE OBSOLE 7 29#B # ALSO :- 16 29S2 # IF FILE OPEN, OUTPUTS MON. FILE MESSAGE 21 2=?L # IF FILE OFF-LINE, OUTPUTS MON. FILE MESSAGE AND SETS UP A 21 2=R= # FABSNB BLOCKS FOR THE FILE & LEAVES THEM IN ACT. CHAIN 21 2?=W # (CHAINED IN ASCENDING NO. ORDER AFTER FINCPROC BLOCK) 15 2?QG # READY TO ISSUE RETRIEVE FOR IT. 4 2#=6 # 19 2B8L # WORD FINCRVLIM IN THE FINCPROC BLOCK IS SET UP WITH A LIMIT 17 2BN= # ON THE NUMBER OF RVS WHICH CAN BE ISSUED IN A DUMP 18 2C7W # THIS IS DECREMENTED EACH TIME A FABSNB IS SET UP AND/OR A 6 2CMG # RV ISSUED 4 2D76 # 4 2DLQ # 6 2F6B # CONSTANTS 4 2FL2 # 9 2G5L OP 20HOPEN 12 2GK= RT 20HBEING RETRIEVED 13 2H4W YR 20HYET TO BE RETRIEVED 4 2HJG # 4 2J46 # 4 2JHQ # 19 2K3B RVCHECK [UPDATES RV COUNT. IF LIMIT REACHED PREVIOUSLY 19 2KH2 [BRANCHES TO TOUT. IF LIMIT NOW REACHED OUTPUTS 9 2L2L [MESSAGE. 16 2LG= [CALLED ON X5,USES X6,MAY COORDINATE 12 2L_W [ON EXIT X2->FINCPROC 11 2MFG MHUNTW 2,FILE,FINCPROC 15 2M_6 LDX 6 FINCRVLIM(2) [GET LIMIT 13 2NDQ SBN 6 1 [DECR 18 2NYB BNG 6 TOUT [J IF ALREADY EXHAUSTED 18 2PD2 BNZ 6 RVOUT [J IF NOT YET EXHAUSTED 8 2PXL SBX 5 FX1 16 2QC= MONOUT INCRVLIM [OUTPUT MESSAGE 8 2QWW ADX 5 FX1 11 2RBG MHUNTW 2,FILE,FINCPROC 5 2RW6 RVOUT 10 2S*Q STO 6 FINCRVLIM(2) 7 2SKJ EXIT 5 0 4 2STB # 15 2T*2 SETFABS [SETS UP A FABSNB FOR THE FILE 18 2TSL [CALLED ON X6. ON EXIT X2>FABS. COORDINATES 8 2W#= SBX 6 FX1 21 2WRW SETNCORE 10,3,FILE,FABSNB [SET UP FABSNB FOR UNNORM & (IF FILE 19 2X?G LDN 0 10 [OFFLINE) FOR RETRIEVING FILE 16 2XR6 STO 0 A1(3) [SET REC. HEADER 16 2Y=Q TOPFCB2 2 [X2-> FCB OF DIR. 8 2YQB ADN 2 FME1 8 2_=2 ADN 3 A1+1 21 2_PL MOVE 2 3 [MOVE DIR. NAME TO FABSNB FROM FCB 7 329= STEPAGAIN 10 32NW MHUNTW 2,FILE,FABSNB 9 338G LDN 1 ELOC1N(3) 8 33N6 ADN 2 A1+4 21 347Q MOVE 1 5 [MOVE LOCAL NAME TO FABSNB FROM DIR. 21 34MB LDX 0 ELANN(3) [ ENTR 8 3572 STO 0 5(2) 8 35LL ADX 6 FX1 7 366= EXIT 6 0 4 36KW # 16 375G OUTFILE [OUTPUTS A FILE NAME AS A PARAMETER 14 37K6 [CALLED ON X6,COORDINATES 8 384Q ... SBX 6 FX1 19 3DBB SETNCORE CPDATA-A1+10,2,ADATA,CREADL [SET UP FOR UNNORM 19 3DW2 STOZ A1(2) [CURRENT COUNT OF CHARS =0 21 3F*L UNNORM [CONVERT CURRENT FILE NAME TO CHARS 11 3H#6 MHUNTW 1,ADATA,CREADL 21 3HRQ OUTPARAM A1(1),CPDATA,ADATA,CREADL [OUTPUT FILE NAME PARAMETER 10 3J?B MFREEW ADATA,CREADL 8 3J?M ... ADX 6 FX1 7 3J?_ EXIT 6 0 4 3J#J # 4 3J*7 # 4 3J*Q # 6 3JB* X1INCPROC 17 3JBY MHUNTW 1,FILE,FINCPROC [X1-> FINCPROC BLOCK 10 3JCH LDX 0 FINCNOBS(1) 7 3JD6 SBX 0 7 21 3JDP BNG 0 NTOBS [J IF INCR KNOWN ALREADY NO TO BE OBS 10 3JF# SMO FINCNOBS(1) 6 3JFC ...#UNS FPD 20 3JFG ... LDX 0 INCLISTS-1(1) [X0=INCR NO OF LAST STILL OBSOLETE 6 3JFK ...#UNS FPD 4 3JFN ...#SKI 21 3JFX LDX 0 FINCNOBS(1) [X0= INCR NO. OF LAST STILL OBSOLETE 12 3JGG SMO 7 [ 6 3JGK ...#UNS FPD 20 3JGN ... STO 0 INCLISTS-1(1) [SWAP INCR NO FOUND NOT TO BE OBS 6 3JGR ...#UNS FPD 4 3JGW ...#SKI 21 3JH5 STO 0 FINCNOBS(1) [SWAP INCR NO. FOUND NOT TO BE OBSOLE 21 3JHN SMO FINCNOBS(1) [ WITH LAST NO. IN STILL OBSOLETE LI 6 3JHR ...#UNS FPD 10 3JHW ... STO 4 INCLISTS-1(1) 6 3JH_ ...#UNS FPD 4 3JJ4 ...#SKI 10 3JJ? STO 4 FINCNOBS(1) 7 3JJW LDN 0 1 21 3JKF SBS 0 FINCNOBS(1) [REDUCE BY 1 NO. OF STILL OBSOLETE IN 16 3JL4 [INCR. IN LIST 5 3JLM NTOBS 19 3JM= OUTPACK 4,1,INCNUM [OUTPUT INCR. NO. PARAMETER 16 3JMT CALL 6 SETFABS [SET UP A FABSNB 17 3JND CALL 6 OUTFILE [OUTPUT FILENAME AS PARAM 17 3JP3 BZE 5 OFFLINE [J IF FILE OFFLINE 10 3JPL MFREEW FILE,FABSNB 5 3JQ9 OFFLINE 8 3JR2 LDN 6 OP(1) 19 3K=L BNZ 5 YOP [J IF FILE OPEN FOR WRITING 8 3KQ= LDN 6 RT(1) 11 3L9W MHUNTW 3,FILE,FINCPROC 19 3LPG LDX 0 FINCRVLIM(3) [GET COUNT OF RV' S ALLOWED 18 3M96 BNZ 0 YOP [J IF NOT YET EXHAUSTED 8 3MNQ LDN 6 YR(1) 4 3N8B YOP 10 3NN2 LDN 1 ACOMMUNE1(2) 7 3P7L LDX 0 6 19 3PM= MOVE 0 5 [SET UP AND OUTPUT ^OPEN^ OR 21 3Q6W OUTPARN 20,ACOMMUNE1 [ ^BEING RETRIEVED^ OR ^Y-T-B-RVED^ 17 3QLG [ AS 3RD PARAMETER 21 3R66 MONOUT INCPROCOPE [OUTPUT ^INCR. %A NOT OBSOLETE - %B % 16 3RKQ BNZ 5 TEND [J IF FILE OPEN 19 3S5B CALL 5 RVCHECK [CHEXK RV LIM NOT EXCEEDED 6 3S=J ...#UNS FPD 4 3SCQ ...#SKI 10 3SK2 MHUNTW 2,FILE,FINC 21 3T4L LDX 5 INCRV(2) [X5= CURRENT NO. OF FILES TO RETRIEVE 7 3TJ= LDN 0 1 21 3W3W ADS 0 INCRV(2) [UPDATE COUNT OF FILES TO BE RETRIEVE 10 3WHG MHUNTW 3,FILE,FABSNB 7 3X36 #SKI K6INCPROC 4 3XGQ ( 8 3Y2B LDX 0 A1(3) 8 3YG2 SBN 0 10 8 3Y_L BZE 0 TEN 21 3_F= XFAB GEOERR BRIEFPM,INCFABSN [FABSNB NOT 10 WORDS LONG OR NON-FABS 4 3_YW TEN 4 42DG ) 21 42Y6 STO 4 A1(3) [REMEMBER INCR NO. WHEN FILE LAST DUM 21 43CQ [ (ILLEGAL USE OF FABSNB REC. HEADER 21 43XB [ BUT NOT WORTH KEEPING ANOTHER BLO 11 44C2 MHUNTW 2,FILE,FINCPROC 19 44WL BZE 5 YCHAIN [J IF 1ST FILE TO RETRIEVE 5 45B= NXFAB 16 45TW LDX 2 FPTR(2) [X2-> NEXT FABSNB 7 46*G #SKI K6INCPROC 4 46T6 ( 9 47#Q LDX 0 ATYPE(2) 8 47SB SRL 0 12 10 48#2 SBN 0 FILE+FABSNB 19 48RL BNZ 0 XFAB [GEOERR IF NON-FABSNB FOUND 4 49?= ) 20 49QW BXL 4 A1(2),YCHBEF [NEED TO CHAIN BEFORE THIS FABSNB 19 4==G BCT 5 NXFAB [J IF MORE FABSNB TO LOOK AT 5 4=Q6 YCHAIN 21 4?9Q CHAIN 3,2 [CHAIN FABSNB (FABSNBS KEPT IN ASCEND 21 4?PB [ INCR NO. ORDER AFTER FINCPROC BLOCK 4 4#92 TEND 5 4#NL UP 5 4*8= YCHBEF 21 4*MW LDX 2 BPTR(2) [X2-> BLOCK TO WHICH TO CHAIN NEW FAB 9 4B7G BRN YCHAIN 4 4BM6 # 4 4C6Q # 4 4FJW TOUT 10 4G4G MFREEW FILE,FABSNB 8 4GJ6 BRN TEND 4 4H3Q # 10 4HHB MENDAREA 30,K99INCPROC 4 4J32 # 4 4JGL #END 8 ____ ...76310226000300000000