FPROGMOVE [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FPROGMOVE)}}
====== FPROGMOVE ======
(GIN Macro)

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

**Used in:** 

<code - FPROGMOVE.mac.txt>
 FTTG ...#MACRO         FPROGMOVE
 FTTQ ...#SKIP          %F-%B-1  
 FTW2 ...!     WRONG PARAMETERS  
 FTW= ...      STO   1  JWSP1
 FTWG ...      STO   2  JWSP2               [ DUMP ACCS. 
 FTWQ ...      OPTMOD   %D,FX2,LDN 0 %C  
 FTX2 ...      STO   0  JWSP3               [ -> OUT LOCKDOWN LIST.  
 FTX= ...      OPTMOD   %H,FX2,LDN 1 %G  
 FTXG ...      STO   1  JWSP4               [ -> IN  LOCKDOWN LIST   
 FTXQ ...      SBX   %F 1(1) 
 FTY2 ...      ADX   %F 2(1)                [ ABSOLUTE IN ACC
 FTY= ...      NGX   0  %F   
 FTYG ...      ANDN  0  #1777
 FTYQ ...      BZE   0  MFP1 
 FT^2 ...      LDN   0  1024 
 FT^= ...MFP1  BXL   0  %I,MFP2  
 FT^G ...      LDX   0  %I   
 FT^Q ...MFP2  STO   0  JWSP6               [ = MIN(LENGTH,END OF PAGE) IN.  
 FW22 ...      LDX   1  JWSP3
 FW2= ...      SBX   %B 1(1) 
 FW2G ...      ADX   %B 2(1)                [ ABSOLUTE OUT ACC.  
 FW2Q ...      NGX   1  %B   
 FW32 ...      ANDN  1  #1777
 FW3= ...      BZE   1  MFP3 
 FW3G ...      LDN   1  1024 
 FW3Q ...MFP3  BXL   1  %I,MFP4  
 FW42 ...      STO   1  JWSP5               [ MIN(LENGTH,END OF PAGE) OUT.   
 FW4= ...MFP4
 FW4G ...      LDN   2  0
 FW4Q ...      BXL   1  0,MFP5   
 FW52 ...      LDN   2  1
 FW5= ...      LDX   1  0                   [ X1 = MIN   
 FW5G ...MFP5
 FW5Q ...      ACCSTO   %I,JWSP5(2)  
 FW62 ...      MOVE  %B 0(1)                [ MOVE TO FIRST PAGE BOUNDARY
 FW6= ...      BXE   1  %I,MFP7             [ NOT NECESSARY  
 FW6G ...MFP6  SBS   1  JWSP5
 FW6Q ...      SBS   1  JWSP6
 FW72 ...      SMO      JWSP3(2) 
 FW7= ...      LDX   0  3
 FW7G ...      STO   0  %B(2)               [ UPDATE FIRST ACC   
 FW7Q ...      ERN   2  1
 FW82 ...      ADS   1  %B(2)               [ UPDATE SECOND ACC. 
 FW8= ...      LDX   1  JWSP5(2) 
 FW8G ...      BZE   1  MFP7A
 FW8Q ...      MOVE  %B 0(1) 
 FW92 ...MFP7A   
 FW9= ...      BNG   2  MFP7 
 FW9G ...      ORX   2  GSIGN
 FW9Q ...      BRN      MFP6 
 FW=2 ...MFP7
 FW== ...      LDX   1  JWSP1
 FW=G ...      LDX   2  JWSP2
 FW=Q ...#NORMAL 
</code>