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

**Defined in:** [[george:source:PMACS|PMACS]]

**Used in:** [[george:source:PMCRABS860|PMCRABS860]], [[george:source:PMDR864|PMDR864]], [[george:source:PMJOURNL866|PMJOURNL866]]

<code - MOVX.mac.txt>
 22FL    #   
 22^=    #   
 23DW    #     THIS SUBFILE CONTAINS THE POST-MORTEM MACROS  
 23YG    #     AND IS OWNED BY M.C.D. MANN   
 24D6    #   
 24XQ    #   
 25CB    [??? MOVX SECT DIAG FGN 104 DOC 
 25X2    #MAC  MOVX                         [M.C.D. MANN 
 26BL    [   
 26W=    [   
 27*W    [     **********
 27TG    [     *  MOVX  *
 28*6    [     **********
 28SQ    [   
 29#B    [   
 2B8L          LDX   3  6
 2BN=          LDX   4  7
 2C7W          LDX   2  %A                  [ GET TRANSFER LENGTH
 2CMG    MXY    TXL   2  X512(1) 
 2D76          BCS      MXX                 [ OK TO MOVE IN 1 GO -> XX   
 2DLQ          MOVE  3  0                   [ MOVE 512 WORDS 
 2F6B          SBN   2  512                [ UPDATE COUNT
 2FL2          ADN   3  512                [         FROM
 2G5L          ADN   4  512                [         TO  
 2GK=          BZE   2  MXX+1               [ TRANSFER = 512 EXACTLY 
 2H4W          BRN      MXY  
 2HJG    MXX   MOVE  3  0(2)                [ MOVE UNBER 512 WORDS   
 2J46    #NOR
</code>