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

**Defined in:** [[george:source:MACROS_JSR|MACROS JSR]]

**Used in:** [[george:source:IPQUAKE83|IPQUAKE83]], [[george:source:TRIPB83|TRIPB83]]

<code - PROGMOVE.mac.txt>
 FW*R ...#MAC           PROGMOVE             [ONJ(:CENT)   G3 VERSION
 FWBG ...[   
 FWC9 ...      TRACE    %E,PROGMV3   
 FWCY ...[   
 FWDM ...      LDX   0  %E                  [LOAD NO. OF WORDS TO BE MOVED   
 FWFB ...      MOD       ADX    %B  ADATUM,%A
 FWG5 ...      MOD       ADX   %D   ADATUM,%C     [SO WE NOW HAVE REAL ADDR  
 FWGS ...      SBN   0  513  
 FWHH ...      BNG   0  MOV513              [J. IF LESS THAN 513 WORDS TO BE MVD 
 FWJ= ...      MOVE  %B 0                   [DO A MOVE OF 512 WORDS  
 FWJ^ ...      ADN   %B  512                [UPDATE  READ POINTER
 FWKN ...      ADN   %D 512                 [UPDATE  WRITE  PPOINTER 
 FWLC ...MOV513  
 FWM6 ...      MOD      MOVE  %B  0,%E        [NOW MOVE REMAINING WORDS  
 FWMT ...      LDX    1  FX1 
 FWNJ ...      LDX    2  FX2                   [RESET X1 + X2
 FWP? ...#NOR
</code>