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

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

**Used in:** [[george:source:ATTACHC867|ATTACHC867]], [[george:source:CIMOP867|CIMOP867]], [[george:source:CONMXA85|CONMXA85]], [[george:source:CONMXB8|CONMXB8]], [[george:source:GETNO865|GETNO865]], [[george:source:IPBCCD867|IPBCCD867]], [[george:source:IPCGEO8|IPCGEO8]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:PCTBEGIN863|PCTBEGIN863]], [[george:source:SCAN865|SCAN865]], [[george:source:SENTINEL8|SENTINEL8]], [[george:source:TWINSET866|TWINSET866]], [[george:source:TWINSETB866|TWINSETB866]], [[george:source:TWINSETD866|TWINSETD866]]

<code - RINGTWO.mac.txt>
 DX?D ...[??? RINGTWO SECT CENT FGN 32 DOC   
 DXH=    #   
 DY2W    # THIS MACRO RINGS TOGETHER TWO NULL ELEMENTS   
 DYGG    #   
 D^26    #MAC  RINGTWO   
 D^FQ          LDN   0  %A   
 D^^B          STO   0  FPTR+%B  
 F2F2          STO   0  BPTR+%B  
 F2YL          LDN   0  %B   
 F3D=          STO   0  FPTR+%A  
 F3XW          STO   0  BPTR+%A  
 F4CG    #NOR
</code>