CHARMOVE

(GIN Macro)

Defined in: MACRO COMPRO

Used in: ALAS822, IFEXPAN867, INITJOB867, JOBDATA867, PARAM865, PARAMA865, PARAMB865, PSPLIT82, WHENEVER867, WHTSTAT867

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