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

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

**Used in:** [[george:source:ALAS822|ALAS822]], [[george:source:IFEXPAN867|IFEXPAN867]], [[george:source:INITJOB867|INITJOB867]], [[george:source:JOBDATA867|JOBDATA867]], [[george:source:PARAM865|PARAM865]], [[george:source:PARAMA865|PARAMA865]], [[george:source:PARAMB865|PARAMB865]], [[george:source:PSPLIT82|PSPLIT82]], [[george:source:WHENEVER867|WHENEVER867]], [[george:source:WHTSTAT867|WHTSTAT867]]

<code - CHARMOVE.mac.txt>
 229S ...[??? CHARMOVE SECT CENT FGN 21 DOC  
 22FL    [                                    BILL IZATT : CENT  
 22^=    [              PARAMETER PASSING AND ANALYSING MACROS   
 23DW    [   
 23YG    #MAC  CHARMOVE  
 24D6    [   MOVE ANY NUMBER OF CHARS.  NO OF CHARS IN %B.  ADDRESSES IN %A, %A+1
 24XQ          NGX   0  %B                  [ %B MUST NOT BE CHANGED 
 25CB          BPZ   0  MXEPY               [ %B MUST BE >0  
 25X2          NGX   0  0
 26BL    MXLPZ SBN   0  512  
 26W=          BNG   0  MXJPX
 27*W          MVCH  %A  0                  [ %A IS NOT X0 OR X7 
 27TG          BZE   0  MXEPY               [ EXIT IF NO 'REMAINDER' 
 28*6          BRN      MXLPZ
 28SQ    MXJPX ADN   0  512  
 29#B          SMO      0
 29S2          MVCH  %A  0   
 2=?L    MXEPY   
 2=R=    #NOR
</code>