{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: RELOCKLONG)}}
====== RELOCKLONG ======
(GIN Macro)

**Defined in:** [[george:source:COREMACROS|COREMACROS]]

**Used in:** 

<code - RELOCKLONG.mac.txt>
 2M^G ...[???  RELOCKLONG SECT FILE FGN 1 DOC
 2M^W ...[   
 2N2= ...[      MACRO TO MOVE & RELOCK A LONGLOCK BLOCK  
 2N2L ...[   
 2N32 ...#MAC  RELOCKLONG
 2N3B ...#SKI  %A-3  
 2N3Q ...      LDX   3  %A   
 2N46 ...      LDX   0  AFLAG(3) 
 2N4G ...      ANDN  0  #402 
 2N4W ...      BZE   0  MRELOCKLONG  
 2N5= ...      GETCORE  ALOGLEN(3),1,1   
 2N5L ...      FINDCORE 0
 2N62 ...      LDX   2  %A   
 2N6B ...      LDX   3  0
 2N6Q ...#SKI  %A-3  
 2N76 ...      STO   3  %A   
 2N7G ...      BLOCKCOPY 
 2N7W ...MRELOCKLONG 
 2N8= ...#NOR
</code>