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

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

**Used in:** [[george:source:CPOBJ6|CPOBJ6]], [[george:source:LPOBJ6|LPOBJ6]]

<code - LOOPD.mac.txt>
 DK?6    #     LOOPD,NEXTD ALLOW ACCESS TO THE WORDS OF AN OBJ. PROG AREA
 DKQQ    #                 IN DESCENDING ORDER OF ADDRESS
 DL=B    #   
 DLQ2    #MAC  LOOPD        [DATUM,MOD,ACC   
 DM9L          ADX   %B %C                  [ADDRESS OF LAST WORD+1  
 DMP=          SBN   %B 1
 DN8W          ADDRESS  %A,%B,%B 
 DNC6 ...#NOR
</code>