636S ...[??? FILEA SECT FILE FGN 11 DOC 
 63BL    #MAC  FILEA 
 63W= ...[ CALCULATE POINTERS,SET GEN1 & GEN2 TO B.S.HOME PAIR OF BLOCK TO BE TRA
 64*W ...M2FILEA 
 64TG    #STR  %A,3  
 65*6          LDX   3  %A   
 65SQ    #STR  %A
 66#B    #SKI
 66S2          LDN   3  0
 67?L ...      CALL  0  M1FILETRAN          [X1-> FCB, X2-> FCA  
 67R= ...#STR  %C
 68=W ...      SMO      %C   
 68QG ...#STR  %C
 69=6    #SKI
 69PQ          SMO      FREADBLOCK(2)
 6=9B          LDX   0  0(1) 
 6=KB ...      STO   0  GEN2                [INSERT BLOCK NO. IN GEN2
 6=^B ...#STR  %B                           [SKIP IF 512-WORD TRANSFER   
 6?*B ...(   
 6?PB ...#STR  %C
 6#5B ...      LDX   0  %C   
 6#FB ...#STR  %C
 6#TB ...#SKI
 6*9B ...      LDX   0  FREADBLOCK(2)
 6*KB ...      SLC   0  2
 6*^B ...      ANDN  0  3
 6B*B ...      ORS   0  GEN2                [INSET BLOCKLET BITS INTO GEN2   
 6BPB ...)   
 6C5L          LDX   0  BSPRE(1) 
 6CK= ...      STO   0  GEN1                [  & RESIDENCE NO. IN GEN1   
 6D4W          CALL  0  M2FILETRAN   
 6D82 ...      BRN      M1FILEA             [FILE NOT BEING COPIED   
 6D?6 ...      COOR3    COPY 
 6DB= ...      BRN      M2FILEA  
 6DFB ...M1FILEA 
 6DJG    #NOR