MOVLONG [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: MOVLONG)}}
====== MOVLONG ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_EWDAS|MACROS EWDAS]]

**Used in:** [[george:source:BRADDATA867|BRADDATA867]], [[george:source:CHINTEG867|CHINTEG867]], [[george:source:CONTRACT866|CONTRACT866]], [[george:source:EXINONE867|EXINONE867]], [[george:source:IPBINB867|IPBINB867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:IPBSTART867|IPBSTART867]], [[george:source:NEWINST867|NEWINST867]], [[george:source:SCEX866|SCEX866]], [[george:source:TWINSETB866|TWINSETB866]]

<code - MOVLONG.mac.txt>
 S8TQ    #   
 S9*B    [???                                MOVLONG 
 S9T2    #                                   ******* 
 S=#L    #MAC  MOVLONG   
 S=S=    #   
 S??W          STO   %A  BSL1               [PRESERVE PARAMETERS 
 S?RG          STO   %B  BSL2
 S#?6          STO   %C  BSL3
 S#QQ    MOVLONG1
 S*=B          SBX   %C  BSBS1              [SUBTRACT 513
 S*Q2          BNG   %C  MOVLONG2           [J IF FINAL MOVE 
 SB9L          ADN   %C  1                  [ELSE MAKE SUBTRACTION 512   
 SBP=          MOVE  %A  0                  [MOV'M'OUT   
 SC8W          ADX   %A  BSBS               [UPDATE  
 SCNG          ADX   %B  BSBS
 SD86          BRN      MOVLONG1 
 SDMQ    MOVLONG2
 SF7B          ADX   %C  BSBS1              [RESTORE FOR FINAL MOVE  
 SFM2          SMO      %C   
 SG6L          MOVE  %A  0   
 SGL=          LDX   %A  BSL1               [RESTORE PARAMETERS  
 SH5W          LDX   %B  BSL2
 SHKG          LDX   %C  BSL3
 SJ56    #NOR
</code>