PROGMOVE

(GIN Macro)

Defined in: MACROS JSR

Used in: IPQUAKE83, TRIPB83

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