{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: LOOPCH)}}
====== LOOPCH ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_JSR|MACROS JSR]]

**Used in:** [[george:source:LPTWO7|LPTWO7]]

<code - LOOPCH.mac.txt>
 DR6L    #   
 DRL=    #     LOOPCH,NEXTCH ALLOW EACH CHAR OF AN OBJ PROG AREA TO BE ACCESSED  
 DS5W    #                   IN ASCENDING ORDER OF ADDRESS   
 DSKG    #   
 DT56    #MAC  LOOPCH       [DATUM,MOD,ACC   
 DTJQ          ADDRESS  %A,%B,%B 
 DTM6 ...#NOR
</code>