MOVLONG

(GIN Macro)

Used in: BRADDATA867, CHINTEG867, CONTRACT866, EXINONE867, IPBINB867, IPBSTARB867, IPBSTART867, NEWINST867, SCEX866, TWINSETB866

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