16 22FL    #SEG  WFMOVE5                      [R.D.P.CLIFTON   
   4 22KH ...[   
  15 22PD ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1983
   4 22T* ...[   
   7 22_=    #OPT  K0WFMOVE=0
  16 23DW    #LIS           K0WFMOVE>K0WORK>K0ALLGEO>K0FILESTORE 
  16 23YG    #OPT           K6WFMOVE=K6WORK>K6ALLGEO>K6FILESTORE 
   9 24D6                   8HWFMOVE 
   9 24XQ          SEGENTRY K1WFMOVE 
  21 25CB    #     THIS SEGMENT REPOSITIONS A WORKFILE FCB AND ITS ASSOCIATED BLOCKS 
  11 25X2    #     WITHIN THE WORKFILE RING. 
   4 26BL    #   
  10 26W=    #SKI        K6WFMOVE>599-599
  10 27*W          TRACE    FX2,WFMOVE   
   7 27TG          LDN   7  0
   7 28*6    WF4   SPARAPASS 
  10 28SQ          HUNT     1,CPB,CUNI   
   9 29#B          NGX   0  ANUM(1)  
  19 29S2          BNG   0  WF1                 [BRANCH IF PARAMETER FOUND   
   9 2=?L          COMERR   JPARMIS  
  18 2=R=    WF1   NAMETOP  1,FILE,FNAME        [RENAME CUNI FOR FNORM   
   7 2?=W          FNORM 32  
  10 2?QG          TESTREPN NAMEFORM,WF2 
  10 2#=6          MFREE    FILE,FNAME   
   6 2#PQ          ENDCOM
  10 2*9B    WF2   HUNT     1,FILE,FNAME 
  19 2*P2          NAMETOP  1,CPB,CUNI          [RENAME FOR ERROR MESSAGES   
  18 2B8L          BNZ   7  WF3                 [BOTH PARAMETERS ANALYSED
  15 2BN=          ADN   7  1                   [SET NON-ZERO
   8 2C7W          BRN      WF4  
   7 2CMG    WF3   LDN   3  0
   7 2D76    WF10  FINDWFL  7
   9 2DLQ          TESTREP  OK,WF6   
   9 2F6B          COMERR   ERWFMOVE 
   9 2FL2    WF6   MFREE    CPB,CUNI 
  10 2G5L          HUNT     1,FILE,FABSNB
  19 2GK=          BNZ   3  WF9                 [BRANCH IF SECOND PARAMETER  
  15 2H4W          LDX   6  A1+1(1)             [LEVEL NUMBER
  18 2HJG          FREECORE 1                   [FREE FABSNB OF PARA 2   
  20 2J46          LDX   3  7                   [ADDRESS OF FCB AT LEVEL PARA 2  
   8 2JHQ          BRN      WF10 
  20 2K3B    WF9   SBX   6  A1+1(1)             [+VE IF FORWARD, -VE IFBACKWARDS 
  18 2KH2          FREECORE 1                   [FREE FABSNB OF PARA 1   
   7 2L2L          LDX   5  2
   9 2LG=          ADN   5  BWORKRING
   8 2L_W          BNG   6  WF5  
  13 2MFG    WF7   LDX   3  0(3)                [FPTR
   7 2M_6          TXU   3  5
  20 2NDQ          BCC      WF5                 [BRANCH IF FPTR IS TO BWORKRING  
   9 2NYB          LDX   0  ATYPE(3) 
  10 2PD2          SBX   0  FILEPLUSFCB  
  19 2PXL          BNZ   0  WF7                 [BRANCH IF FPTR NOT TO FCB   
   4 2Q2D ...WF5 
   7 2Q5= ...      LDX   1  7
  18 2Q84 ...      ADN   1  FCBRING    [RE RING FCBRING IN RIGHT ORDER   
   7 2Q=W ...      LDX   2  3
  16 2Q*N ...      BXU   2  5,WF5X     [POINTING TO FILE RING?   
  11 2QDG ...      LDX   2  0(2)        [YES 
   4 2QH# ...WF5X
  10 2QL6 ...      LDX   2  FCBRING+1(2) 
   7 2QNY ...      RERING 1,2
   9 2QRQ ...      LDX   3  BPTR(3)  
  20 2QWW    #     X3 NOW THE ADDRESS OF THE BLOCK AFTER WHICH THE FCB WILL BE   
   7 2RBG    #     RECHAINED 
   7 2RW6          LDX   1  7
  20 2S*Q    WF8   LDX   6  0(1)                [FPTR - NEXT BLOCK TO BE MOVED   
  17 2STB          CHAIN    7,3                 [REPOSITION THE BLOCK
   7 2T*2          TXU   6  5
  19 2TSL          BCC      WFEND               [BWORKRING - NO MORE BLOCKS  
   7 2W#=          LDX   1  6
   9 2WRW          LDX   0  ATYPE(1) 
  10 2X?G          SBX   0  FILEPLUSFCB  
  19 2XR6          BZE   0  WFEND               [NEXT FCB - NO MORE BLOCKS   
  21 2Y=Q          LDX   3  7                   [BLOCK TO PRECEDE NEXT MOVED BLOCK   
  17 2YQB          LDX   7  6                   [BLOCK TO BE MOVED   
   8 2_=2          BRN      WF8  
   6 2_PL    WFEND ENDCOM
  12 329=          MENDAREA 200<K6WFMOVE>100-80  
   4 32NW    #END
   8 ____ ...42356052000100000000