BACKMARK850

(George Source)

Macros used: ALWAYSDUMP, BACKSPACE, BMAPSEG, CLOSETOP, FREECORE, GEOERR, JBS, MBS, MHUNT, MHUNTW, OPENDIR, SEGENTRY, SETNCORE, STEPAGAIN, STEPREWRITE, SUICIDE, TESTRPN2, TOPFCB2, UP

BACKMARK850.txt
22FL          BMAPSEG  BACKMARK,7          [GEORGE PORTER   
22^=    [     THIS SEGMENT IS USED BY THE ALWAYSDUMP MEND MACRO TO STORE THE NAM
23DW    [     OF FILES TO BE MARKED 'ALWAYS DUMP' & 'DONT THROW OFFLINE' & CONTA
23YG    [     THE CODE TO SO MARK THEM  
24D6 ...      SEGENTRY ALWAYSDUMP   
24XQ    #GAP  ANONAMES*6
25CB    ALWAYSEND   
25X2          +0
26BL    NLOC  1,0.2,0   
26W=
27*W          SEGENTRY K1BACKMARK   
27H4 ...START   
27N= ...      SETNCORE 10,2,FILE,FABSNB 
27TG          LDN   7  ANONAMES 
28*6          LDN   3  0
28SQ    WNEXT   
29#B          SMO      3
29S2          LDX   0  ALWAYSDUMP(1)
2=?L          BZE   0  NOMAC
2=HD ...      STO   3  5
2=R=          MHUNT    2,FILE,FABSNB
2?=W          LDN   0  10   
2?QG          STO   0  A1(2)
2#=6          ADN   1  ALWAYSDUMP(3)
2#PQ          ADN   2  A1+1 
2*9B          MOVE  1  6
2*P2          SMO      FX1  
2B8L          LDN   1  NLOC 
2BN=          ADN   2  6
2C7W          MOVE  1  3
2CMG          OPENDIR  XBR,GENERAL,QUERY
2D76          TESTRPN2 OK,WONG  
2D94 ...#UNS FNSAD  
2D?2 ...(   
2D#Y ...      TOPFCB2  1
2DBW ...      JBS      SETALREADY,1,BFALLINCS   
2DDS ...      MBS      1,BFALLINCS,BFDIRUPDATE  
2DGQ ...SETALREADY  
2DJN ...)   
2DLQ          MHUNTW   1,FILE,ENT   
2F2F ...      LDEX  6  ECOPS(1) 
2FB8 ...      FREECORE 1
2FPX ...      BZE   6  WOFF 
2G5L          BACKSPACE 
2H4W    WOFF
2HJG ...      STEPAGAIN 
2J46 ...      MBS      3,BNONLINE,BNALLINCS 
2JHQ ...      STEPREWRITE   
2L2L          CLOSETOP  
2LG=    WONG
2LQ4 ...      LDX   3  5
2L^W          ADN   3  6
2MFG          BCT   7  WNEXT
2M^6    NOMAC   
2N4= ...#UNS FNSAD  
2N7B ...      SUICIDE   
2N=G ...#UNS FNSAD  
2N*L ...#SKI
2NDQ          UP
2NYB    XBR 
2PD2          GEOERR   1,BACKMARK   
2PXL    #END
^^^^ ...36770214000200000000