15 22FL ... SEG BSPRUNE,83,PETER CAMPBELL,BSUNJ 4 22H* ...[ 4 22K4 ...[ 16 22LR ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 22NG ...[ 4 22Q9 ...[ 7 22RY ...#OPT G297 = 0 6 22TM ...#SKI G297&1 14 22XB ...# WITH UGUG EDIT M297 (PUT DEADWOOD OFFLINE) 9 22_= #DEF Z=K6BSPRUNE>599-599 12 23DW SEGENTRY K1BSPRUNE,X1BSPRUNE 6 23H5 ...#SKI ARETRV 4 23K# ...( 10 23MH ... SEGENTRY K100BSPRUNE 8 23PQ ... +150 4 23R_ ...) 6 23SG ...#UNS FEFSNO 4 23T3 ...#SKI 11 23TJ ... FIELDDEF FEFSNO,6,EBLL,5 15 23W8 ... BITDEFS AWORK3,21,XBCOOR,XBRV,XBSTATS 18 23YG TOTIM +864000/K9*100 [NO.OF CLEANCTS IN 24 HRS 19 24D6 NARK 8HARCH(M) [USED IN BSCHUCKED MESSAGE 17 24XQ [FOR ARCHIVED FILES 4 25CB [ 20 25X2 [ AWORK4 CONTAINS NO OF CLEANCTS SPENT WAITING FOR DIRECTORIES 6 25YJ ...#SKI G297&1 4 2626 ...( 6 263N ...X1BSPRUNE 8 265= ... LDX 4 EDATE 20 266S ... SEGENTRY K77BSPRUNE [ TO ALLOW RESTORE-TIME CHOICE OF 21 268B ... SBX 4 INSTPARAM+3 [ I.P. SPECIFYING HOW OLD DEADWOOD IS (DAYS) 9 269Y ... STO 4 G297DEAD 8 26?G ... BRN ZREAD 4 26*4 ...) 5 26BL ZRST7 10 26W= DOWN BSUJSTAT,7 5 27*W ZREAD 8 27KN ... LDX 2 FX2 5 27TG #SKI Z 9 28*6 TRACE 4,WHYLEFT 7 28JY ...#SKI G297&1$1 6 28SQ X1BSPRUNE 9 29#B STOZ AWORK4(2) 5 29S2 ZREAD1 16 2=?L STEP [READ NEXT RECORD 17 2=R= BZE 3 PLAST [JUMP IF END OF FILE 18 2?=W LDX 0 ERES-A1(3) [JUMP IF NOT NAME RECORD 9 2?QG BNZ 0 ZREAD1 18 2?T5 ...[ CLEAR PARTRES BIT WHICH HAS BEEN INCORRECTLY LEFT SET 10 2?XN ...[ BY BACKMAP. BUG 8284. 12 2#2? ... JBCC ZPARTRES,3,BNPARTRES 8 2#4W ... STEPREWRITE 5 2#7F ...ZPARTRES 7 2#=6 LDX 1 3 8 2#PQ SBN 1 A1 5 2*9B #SKI Z 4 2*P2 ( 10 2B8L TRACE ELOC1(1),BSUFILE 11 2BN= TRACE ELOC2(1),BSUF2 10 2C7W TRACE ELOC3(1),DBSUF3 11 2CMG TRACE EINF2(1),EINF2 11 2D76 TRACE ECOPS(1),ECOPS 4 2DLQ ) 11 2F6B [ IS THIS A FILESTORE FILE? 20 2FL2 JMBS ZREAD,1,BELIB,BEWORK[DONT THROW OFF WORK/NON FILES 14 2HJG LDX 4 ECOPS(1) [COUNT 15 2J46 SRL 4 15 [ OF BLOCKS 13 2JHQ SMO FX2 [ IN 15 2K3B STO 4 AWORK1 [ AWORK1 20 2KH2 BZE 4 ZREAD [ZERO LENGTH FILE-DONT THROW OFF 18 2L2L [ OR AN EMPTY DIRECTORY 17 2LG= LDEX 4 ECOPS(1) [J IF FILE NOT ONLINE 8 2L_W BZE 4 ZREAD 5 2MFG ZFILE 20 2M_6 JBS ZREAD,1,BETEMP [TEMP FILE - NO STATS SINCE MK 6 9 2NDQ LDX 4 EUSE1(1) 18 2NYB BNZ 4 ZDIR [J IF FILE IS A DIRECTORY 20 2PD2 JBC XCTHROW,1,BEONLINE [J IF FILE CAN BE THROWN OFF-LINE 8 2PXL BZE 7 ZREAD 20 2QC= LDN 6 8 [CATEGORY 8 (NOT TO GO OFF LINE) 8 2QWW BRN ZRST7 5 2RBG XCTHROW 18 2RFL ... LDX 4 EALLOC(1) [CHECK IF ON SPECIAL RES 8 2RJQ ... ANDN 4 #77 8 2RMW ... SBN 4 48 8 2RR2 ... BPZ 4 ZREAD 18 2RW6 # DO NOT CHECK FILES FORMULA IF ARCHIVE BIT SET 19 2S*Q JMBS SGREATER,1,BEARCHIVE,BESYSARCH [J IF ARCHIVED 5 2STB TFORM 6 2SX_ ...#SKI G297&1 4 2T2J ...( 9 2T57 ... LDX 4 G297DEAD 11 2T7Q ... BXGE 4 EDLA(1),SGREATER 4 2T=* ...) 17 2T*2 [ CALCULATE FILE'S VALUE OF FORMULA IN X3 4 10 2TJS ... STO 7 ACOMMUNE2(2) 9 2TSL ... CALL 7 SRFFORM 10 2W4D ... LDX 7 ACOMMUNE2(2) 21 2W#= BNZ 3 SGREATER [JUMP IF GREATER THAN SINGLE LENGTH 5 2WRW #SKI Z 9 2X?G TRACE 4,FORMULA 18 2XR6 BXGE 4 FORMULA,SGREATER [JUMP IF FILE >FOORMULA 19 2Y=Q BZE 7 ZREAD [JUMP IF STATS NOT REQUIRED 14 2YQB LDN 6 30 [CAT 30 8 2_=2 BRN ZRST7 5 2_PL SGREATER 21 329= MHUNTW 3,FILE,FABSNB [FABSNB CONTAINE ABSOLUTE NAME OF DIR 8 32NW LDX 4 A1(3) 11 338G BXL 4 ALOGLEN(3),NALTA 19 33N6 ADN 4 6 [IF NECESSARY INCREASE LENGTH 14 347Q ALTLEN 3,4,FILE,FABSNB [OF FABSNB 7 34MB STEPAGAIN 7 3572 LDX 1 3 8 35LL SBN 1 A1 10 366= MHUNTW 3,FILE,FABSNB 5 36KW NALTA 19 375G LDX 2 A1(3) [X2 BECOMES RECORD HEADER + 19 37K6 ADX 2 3 [BASE ADDRESS OF FABSNB + A1 16 384Q ADN 2 A1 [=FIRSTFREE WORD 15 38JB ADN 1 ELOC1 [LOCAL NAME 20 3942 MOVE 1 5 [MOVE FIRST FIVE WORDS TO FABSNB 8 39HL SBN 1 ELOC1 17 3=3= LDX 0 ELAN(1) [STORE LANGUAGE WORDIN 18 3=GW STO 0 5(2) [6TH WORD OF LOCAL NAME 17 3?2G LDN 0 6 [UPDATE RECORD HEADER 8 3?G6 ADS 0 A1(3) 17 3?_Q [THE FILE'S LOCAL NAME IS THE BOTTOM ONE IN THE FABSNB 16 3#FB [THE TOP FILE OPEN IS THE SUPERIOR USER'S DIRECTORY 7 3#_2 LDX 6 1 11 3*DL [ STORE POINTER TO RECORD 18 3*Y= LOCFCB 2 [LOOKS FOR FCB OF FILE 8 3B84 ... LDX 2 FX2 7 3BCW LDX 1 6 16 3BXG LDN 0 6 [IN FILE CCHAIN 17 3CC6 SBS 0 A1(3) [UPDATE RECORD HEADER 17 3CWQ TESTREPNOT OK,ZFILEFREE [JUMP IF FCB NOT FOUND 15 3DBB [ FCB HAS BEEN FOUND SO FILE IS LEFT ON LINE 8 3DQ5 ... LDN 6 16 7 3F5S ... IFUJSTAT 7 8 3FFH ... BRN ZREAD 6 3FT= ZFILEFREE 11 3G#W [FCB NOT FOUND BUT MAY BE FROZEN 19 3GSG LDX 0 EAUTOCOUNT(1) [TEST IF FROZEN TO LISTFILE 14 3H#6 LDN 6 20 [CAT 20 9 3HRQ BNZ 0 ZFROZEN 17 3J?B LDX 0 ESVCT(1) [ TEST IF HLS SAVED 14 3JR2 LDN 6 36 [CAT 36 17 3K=L BZE 0 NOTFROZEN [JUMP IF NOT FROZEN 14 3KQ= ZFROZEN [OR IF 20 3L9W UJFROZEN NOTFROZEN [FROZEN BUT YO BE PUT OFF LINE 4 3LPG SP43 8 3M96 BZE 7 ZREAD 8 3MNQ BRN ZRST7 10 3N8B NBLST GEOERR 1,NO BLIST 5 3NN2 XFREEFRB 8 3P7L ... LDX 2 FX2 10 3PM= ... JBC SP43,2,XBCOOR 9 3QLG MFREEW FILE,FRB 12 3R66 # FREE THE FRB IF IT WAS CREATED 8 3RKQ BRN SP43 6 3S5B NOTFROZEN 6 3S64 ...#SKI ARETRV 4 3S6Q ...( 8 3S7D ... LDX 2 FX2 9 3S86 ... BC 2,XBRV 9 3S8S ... UJRV XCHUCK 15 3S9G ...# DO NOT RETAIN RETRIEVES IF FORMULA < 500 11 3S=8 ... JFZ XCHUCK,1,FEGMTRV 10 3S=W ... LF 1,FEGMTRV,0 9 3S?J ... LDX 4 GMTNOW 7 3S#= ... SBX 4 0 10 3S#Y ...# X4 = GMTNOW - GMTRV 7 3S*L ... SLL 4 8 7 3SB# ... SRL 4 8 15 3SC2 ...# TOP BITS ARE CLEAR IF RESULT WAS NEGATIVE 8 3SCN ... SMO FX1 12 3SDB ... BXGE 4 K100BSPRUNE,XCHUCK 9 3SF4 ... BS 2,XBRV 5 3SFQ ...XCHUCK 18 3SGD ...# THE XBRV BIT IS SET IF INSIDE THE ' PROTECTED ' PERIOD 4 3SH6 ...) 18 3SHS ... STO 1 5 [ STORE POINTER TO RECORD 21 3SK2 QSTEPC ,STEPCOOR [ PERFORMS A STEP IFF IT CAN DO SO WI 15 3T4L [ COORDINATING , OTHERWISE JUMP TO STEPCOOR 8 3TJ= LDX 2 FX2 9 3TWM ... BC 2,XBCOOR 7 3W94 ... LDX 1 5 9 3WHG BRN STEPNOCO 5 3X36 STEPCOOR 7 3XGQ READAGAIN 6 3Y2B STEP 10 3YG2 MHUNTW 1,FILE,FRB 9 3Y_L ... BS 2,XBCOOR 5 3_F= STEPNOCO 21 3_YW # POINTERS X1,X3 HAVE THE SAME APPEARANCE WHETHER OR NOT THERE WAS A 8 42DG # A COORDINATION 16 42Y6 LDX 5 1(3) [RESIDENCE NUMBER 9 43CQ STO 5 AWORK2(2) 8 43XB LDX 6 BSAB 19 44C2 LDX 2 BMISC [PICK UP BASE OF MISC CHAIN 5 44WL RMISC 17 45B= LDX 2 FPTR(2) [PICK UP NEXT BLOCK 17 45TW BXE 2 CXMI,NBLST [JUMP IF END OF CHAIN 17 46*G BXU 6 ATYPE(2),RMISC [JUMP IF NOT BSLIST 18 46T6 BXU 5 BACK1(2),RMISC [JUMP IF WRONG RESIDENCE 13 47#Q JMBS NEEDS,2,BSLJAM,BSLTHRESH 14 47SB JMBS NEEDS,1,BESYSARCH,BEARCHIVE 20 48#2 LDN 6 26 [BELOW THRESHOLD AND NOT ARCHIVED 9 48RL BRN XFREEFRB 10 49?= NEEDS JBS NDUMP2,1,BEDUMP 7 49DD ...#UNS FTS2REVERT 17 49KL ... JFNZ SPNEEDS,1,FEFSNO [ IGNORE CHECK IF ALIEN 9 49QW LDX 4 EINC(1) 5 4==G #SKI Z 10 4=Q6 TRACE 4,INCRMENT 10 4?9Q MHUNTW 1,FILE,INCUNJ 11 4#92 # STORE POINTER TO INCUNJ 8 4#NL LDX 6 A1(1) 19 4*8= SBN 6 INCUNR+2-A1 [NO.OF UNRELIABLE INCREMENTS 17 4*MW BZE 6 NOUNREL2 [J IF NO UNREL.INCS 5 4B7G UNREL2 16 4BM6 ADN 1 1 [INCREASE POINTER 18 4C6Q BXU 4 INCUNR(1),SP42 [J UNLESS INC.UNRELIABLE 4 4CLB [ 19 4D62 [ IN UNRELIABLE INC THAT NEEDS REDUMPING,AND IS ON JAMMED UNIT 4 4DKL [ 18 4F5= LDN 6 10 [CAT 10-INC UNRELIABLE 21 4FJW BRN NDUMP3 [GO ADD TO COUNT OF BLKS TO BE DUMPED 4 4G4G [ 4 4GJ6 [ 4 4H3Q [ 19 4HHB SP42 BCT 6 UNREL2 [RETURN IF CHECK NOT ENDED 5 4J32 NOUNREL2 20 4JGL BXL 4 INCUNR+1(1),SPNEEDS [J IF INC MADE WHEN UJ STARTED 4 4K2= [ 13 4KFW [ INCREMENT NOT MADE WHEN UJ STARTED 4 4K_G [ 21 4LF6 LDN 6 12 [CATEGORY 12-INC NOT MADE AT START UJ 9 4LYQ BRN XFREEFRB 15 4MDB NDUMP2 [NEVER DUMPED 8 4MY2 LDN 6 14 21 4NCL NDUMP3 [ADD SIZE OF FILE TO AMOUNT NOT DUMPD 8 4NX= SMO FX2 17 4PBW LDX 3 AWORK1 [NO.OF BLOCKS IN FILE 11 4PWG JBC XFREEFRB,2,BSLJAM 14 4QB6 [ OTHERWISE ADD TO BSNDUMP 10 4QTQ ... MHUNTW 1,FILE,INCUNJ 20 4R*B ADS 3 BSNDUMP(1) [ADD TO NO.OF BLOCKS NOT DUMPED 5 4RT2 #SKI Z 12 4S#L TRACE BSNDUMP(1),NOT DUMP 9 4SS= BRN XFREEFRB 5 4T?W SPNEEDS 8 4T*Y ... LDX 2 FX2 11 4TD2 ... JBC ZNOFRB,2,XBCOOR 9 4TG4 ... MFREEW FILE,FRB 11 4TJ6 ...# FREE FRB IF IT WAS CREATED 5 4TL8 ...ZNOFRB 6 4TN= ...#SKI ARETRV 4 4TQ# ...( 8 4TSB ... LDX 2 FX2 10 4TWD ... JBC NOTRVD,2,XBRV 19 4TYG ... LDN 6 56 [ CAT 56 FILE RECENTLY RV'ED 7 4W2J ... IFUJSTAT 7 8 4W4L ... BRN ZREAD 5 4W6N ...NOTRVD 4 4W8Q ...) 19 4W?6 [ STATISTICS ABOUT FILE ON JAMMED UNIT THAT IS THROWN OFF 8 4WQQ LDN 6 28 7 4X=B ... IFUJSTAT 7 20 4_NG SP10 [FOLE'S DIRECTORY HAS ONLY BEEN 20 5286 [ STEPPED NOT READ A COPY OF BLOCKS RECORD IS NEEDED TO 18 52MQ [FREE ITS BACKING STORE 7 537B READAGAIN 10 53M2 MHUNTW 1,FILE,FRB 10 546L NAME 1,BSTB,FULLB 15 54L= FULLBPAS 1,2 [FREE BLOCKS 17 555W DELETE [DELETE BLOCKS RECORD 16 55KG READAGAIN [READ NAME RECORD 10 5656 MHUNTW 1,FILE,FRB 10 56JQ NAME 1,FILE,ENT 10 574B MHUNTW 3,FILE,FABSNB 8 57J2 LDX 4 A1(3) 20 583L SBN 4 5 [SET UP POINTER AT LAST USERNAME 8 58H= BPZ 4 NMAST 19 592W ADN 4 2 [MASTER ONLY 4 WORDS NOT 6 5 59GG NMAST 8 5=26 SMO FX2 20 5=FQ STO 7 AWORK3 [TEMP STORAGE FOR STATS SWITCH 8 5=_B ADN 4 A1(3) 10 5?F2 LDN 6 JPDUSERNAME 7 5?YL LDN 5 3 15 5#D= CALL 7 PACKMESS [%A- USERNAME 10 5#XW MHUNTW 3,FILE,ENT 9 5*CG LDN 4 ELOC1(3) 10 5*X6 LDN 6 JPDLOCNAME 16 5BBQ CALL 7 PACKMESS [%B- LOCALNAME 20 5BWB LDN 5 1 [REST ARE ALL 1 WORD PARAMETER 10 5CB2 MHUNTW 3,FILE,ENT 9 5CTL LDN 4 EGEN(3) 9 5D*= LDN 6 JPDGENNUM 18 5DSW CALL 7 PACKMESS [%C- GENERATION NUMBER 10 5F#G MHUNTW 3,FILE,ENT 9 5FS6 LDN 4 ELAN(3) 10 5G?Q LDN 6 JPDLANGUAGE 15 5GRB CALL 7 PACKMESS [%D- LANGUAGE 8 5H?2 SMO FX2 9 5HQL LDN 4 AWORK2 9 5J== LDN 6 JPDNUMA 17 5JPW CALL 7 PACKMESS [%E- RESIDENCE NUMBER 8 5K9G SMO FX2 9 5KP6 LDN 4 AWORK1 10 5L8Q LDN 6 JPDBLOCKCT 14 5LNB CALL 7 PACKMESS [%F- SIZE 10 5M82 MHUNTW 3,FILE,ENT 9 5MML LDN 4 EGMTLA(3) 9 5N7= LDN 6 JPDNUMB 18 5NLW CALL 7 PACKMESS [%G- GMT LAST ACCESSED 10 5P6G MHUNTW 3,FILE,ENT 9 5PL6 LDN 4 EAVACC(3) 9 5Q5Q LDN 6 JPDNUMC 17 5QKB CALL 7 PACKMESS [%H- AVE ACCESS TIME 17 5R52 OUTPAR NULL [%I- NULL PARAMETER 10 5RJL MHUNTW 3,FILE,ENT 7 5RSD ... LDN 5 0 14 5S#4 ... JMBAC ZPARS2,3,BEARCHIVE,BESYSARCH 7 5T3G ADN 5 1 11 5TH6 JBC ZMESS,3,BESYSARCH 7 5W2Q ADN 5 1 9 5WGB ZMESS LDN 4 NARK(1) 10 5X22 LDN 6 JPDVARCHAR 17 5XFL CALL 7 PACKMESS [%J - ARCHIVED FILE 8 5XGK ... BRN ZPARS 5 5XHJ ...ZPARS2 7 5XJH ... OUTNULL 5 5XKG ...ZPARS 10 5XLF ... SEGENTRY K10BSPRUNE 9 5XMD ... BRN MESSEND 10 5XNC ... MHUNTW 1,FILE,ENT 17 5XPB ... CALL 7 SRFFORM [RECALCULATE FORMULA 10 5XQ* ... STO 3 ACOMMUNE2(2) 10 5XR# ... STO 4 ACOMMUNE3(2) 10 5XS? ... LDN 4 ACOMMUNE3(2) 7 5XT= ... LDN 5 1 9 5XW9 ... LDN 6 JPDNUMA 9 5XX8 ... CALL 7 PACKMESS 10 5XY7 ... SEGENTRY K11BSPRUNE 5 5X_= MESSEND 8 5YDW SMO FX2 17 5YYG LDX 7 AWORK3 [RESTORE STATS SWITCH 10 5_D6 ... MONOUT BBSCHUCKED 9 5_XQ BZE 7 RENAME 17 62CB BZE 5 NOTARC [J IF NOT ARCHIVED 8 62X2 LDN 6 44 7 63BL SBN 5 1 19 63W= BZE 5 NOTMAN [J IF NOT MANAGER ARCHIVED 7 64*W ADN 6 2 5 64TG NOTMAN 17 65*6 DOWN BSUJSTAT,7 [FOR ARCHIVED FILE 5 65SQ NOTARC 17 66#B DOWN BSUJSTAT,9 [FOR FILE THROWN OFF 5 66S2 RENAME 10 67?L MHUNTW 1,FILE,ENT 10 67R= NAME 1,FILE,FWB 9 68=W LDX 0 ECOPS(1) 18 68QG SRL 0 15 [KEEP NUMBER OF BLOCKS 19 69=6 SLL 0 15 [BUT STOZ NUMBER OF COPIES 15 69PQ STO 0 ECOPS(1) [NO COPY NOW 17 69_J ... FC 1,FEGMTRV [ CLEAR GMTRV FIELD 9 6=9B #SKI K6BSUNJAM>99-99 11 6=P2 TRACE ELOC1(1),FILE DEL 4 6?8L REWR 18 6?N= REWRITE [REWRITE DIRECTORY ENTRY 9 6#7W MFREEW FILE,FWB 21 6#MG BRN ZREAD1 [LOOK AT NEXT FILE,DIR NOW OPEN IN GE 15 6*76 ...# S/R FOR CALCULATING FILE FORMULA 5 6*LQ ...SRFFORM 7 6B6B ... FILEFORM 7 6BL2 ... EXIT 7 0 13 6WPL # S/R FOR BSCHUCKED MESAGE 5 6X9= PACKMESS 8 6XNW SBX 7 FX1 8 6Y8G OUTPACKX 4,5,6 8 6YN6 ADX 7 FX1 7 6_7Q EXIT 7 0 17 6_MB # ANOTHER ONLINE DIRECTORY HAS BEEN FOUND 4 7272 ZDIR 7 72LL LDN 6 8 7 736= IFUJSTAT 7 18 73KW READAGAIN [NAME RECORD OF DIRECTORY 10 745G MHUNTW 3,FILE,FABSNB 8 74K6 LDX 4 A1(3) 11 754Q BXL 4 ALOGLEN(3),NALT 7 75JB ADN 4 6 20 7642 ALTLEN 3,4,FILE,FABSNB [INCR.LENGTH OF FTREENAME BLOCK 10 76HL MHUNTW 3,FILE,FABSNB 8 773= NALT ADX 3 A1(3) 19 77GW ADN 3 A1 [ADJUST POINTER IN FTREENAME 9 782G LDX 0 HCOLUSER 8 78G6 STO 0 0(3) 7 78_Q ADN 3 1 10 79FB MHUNTW 2,FILE,FRB 10 79_2 NAME 2,FILE,ENT 8 7=DL ADN 2 EUSE1 5 7=Y= #SKI Z 13 7?CW TRACE EUSE1-ELOC1(2),DIRECTRY 17 7?XG MOVE 2 3 [MOVE NEW NAME ACROSS 8 7#C6 STOZ 3(3) 8 7#WQ STOZ 4(3) 10 7*BB MHUNTW 1,FILE,FABSNB 10 7*W2 MHUNTW 2,FILE,FLOCNB 8 7B*L ADN 2 A1 8 7BT= ADX 1 A1(1) 8 7C#W ADN 1 A1 20 7CSG MOVE 1 6 [MOVE NEW NAME INTO THE FLOCNB 10 7D#6 MHUNTW 1,FILE,FABSNB 7 7DRQ LDN 0 6 18 7F?B ADS 0 A1(1) [INCREASE RECORD HEADER 9 7FR2 NGX 6 CLEANCT 17 7G=L OPENRELN XBRK,GENERAL,QUERY [OPEN NEW DIRECTORY 9 7GQ= ADX 6 CLEANCT 9 7H9W ADS 6 AWORK4(2) 5 7HPG #SKI Z 4 7J96 ( 10 7JNQ TRACE 6,CCTOPENR 11 7K8B TRACE EXEC3(2),RQOPREP 4 7KN2 ) 9 7L7L TESTREP2 OK,ZREAD1 21 7LM= BRN NODIR [IF NO GOOD PULL UP TO PREVIOUS DIREC 20 7M6W # THIS PULLS YOU UP FROM ONE LEVEL TO THE NEXT 5 7MLG PULLUP 5 7N66 #SKI Z 10 7NKQ TRACE A1(1),PULLUP 19 7P5B ... CLOSETHROW [CLOSE PRESENT DIRECTORY 9 7PK2 BRN RFTREE 5 7Q4L NODIR 9 7QJ= BZE 7 RFTREE 19 7R3W DOWN BSUJSTAT,8 [WRITE RECORD ABOUT DIRECTORY 5 7RHG RFTREE 18 7S36 OPENDIR XBRK,GENERAL,QUERY [OPEN NEXT DIRECTORY UP 10 7SGQ MHUNTW 1,FILE,FABSNB 18 7T2B LDN 0 6 [REDUCE COUNT IN FABSNB 19 7TG2 SBS 0 A1(1) [ I.E. GO UP A LEVEL IN TREE 9 7TPS ... MFREEW FILE,ENT 10 7T_L TESTREPNOT OK,TLAST 19 7WF= # IF REPLY OK - FRNN F/ENT AND READ NEXT ENTRANT IN 12 7WYW # SUPERIOR DIRECTORY 9 7XY6 BRN ZREAD1 5 7YCQ TLAST 19 7YXB # IF CANT OPEN DIRECTORY CHECK IF NEED STATISTICS 14 7_C2 # AND THEN GO UP ANOTHER LEVEL 10 7_WL LDN 3 NODIR-PULLUP 8 82B= BRN SLAST 7 82TW PLAST LDN 3 0 5 83*G SLAST 10 87=G MHUNTW 1,FILE,FABSNB 19 87Q6 LDX 0 A1(1) [CHECK IF UP TO MASTER YET 7 889Q SBN 0 4 18 88PB SMO 3 [IF NOT PULLUP OR NODIR 9 8992 BNZ 0 PULLUP 4 89DS ...# 8 89NL LDX 2 FX2 18 8=8= LDX 0 AWORK4(2) [CLEANCTS SPENT WAITING 10 8=MW STO 0 ACOMMUNE1(2) 5 8?7G UP 14 8?M6 XBRK GEOERR 1,BRK BSUJ [BREAKIN 10 8#6Q MENDAREA 20,K99BSPRUNE 4 8#LB #END 8 ____ ...02276545000300000000