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