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

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

**Used in:** [[george:source:GETNO865|GETNO865]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:OPENEND865|OPENEND865]]

<code - ALTLENR.mac.txt>
 C85S ...[??? ALTLENR SECT CENT FGN 32 DOC   
 C8*L    #   
 C8T=    # MAKES ROOM FOR AN ADDITIONAL RING ELEMENT 
 C9#W    #MAC  ALTLENR   
 C9SG          MOD   LDX %B ARINGNO,%A      [CALCULATE AMT TO NEEDED 
 C=#6          SRL   %B 15   
 C=RQ          MOD   ADX %B ALOGLEN,%A   
 C??B          ALTLEN   %A,%B,%C,%D         [ALTLEN  
 C?R2    #NOR
</code>