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

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

**Used in:** [[george:source:ACCESS867|ACCESS867]], [[george:source:BSQ867|BSQ867]], [[george:source:CAFSPERI867|CAFSPERI867]], [[george:source:CHCH865|CHCH865]], [[george:source:CLOSEONE867|CLOSEONE867]], [[george:source:COREALLF867|COREALLF867]], [[george:source:COREALLJ865|COREALLJ865]], [[george:source:FAILTWIN866|FAILTWIN866]], [[george:source:IDFPER867|IDFPER867]], [[george:source:INTWIN866|INTWIN866]], [[george:source:LISTFIND867|LISTFIND867]], [[george:source:LISTINIT867|LISTINIT867]], [[george:source:LISTINTC865|LISTINTC865]], [[george:source:LISTNIP865|LISTNIP865]], [[george:source:PCTSTART867|PCTSTART867]], [[george:source:RESTBLOK850|RESTBLOK850]], [[george:source:RIGHT867|RIGHT867]], [[george:source:SETJOBQ867|SETJOBQ867]], [[george:source:TWINSETA866|TWINSETA866]], [[george:source:TWINSETB866|TWINSETB866]], [[george:source:TWINSETD866|TWINSETD866]], [[george:source:UNSAVE867|UNSAVE867]]

<code - ENRING.mac.txt>
 C^G# ...[??? ENRING SECT CENT FGN 32 DOC
 C^Q6    #   
 D29Q    #     ENRINGS AN ELEMENT ON TO AN EXISTING RING(WHICH MAY BE EMPTY) AT  
 D2PB    #     A SPECIFID POINT  
 D392    #MAC  ENRING
 D3NL    #STR  %A,1  
 D48=          LDX   1  %A   
 D4MW    #STR  %B,2  
 D57G          LDX   2  %B   
 D5M6          CALL  0  (ENRING) 
 D66Q    #NOR
</code>