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

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

**Used in:** [[george:source:FAILTWIN866|FAILTWIN866]], [[george:source:INTWIN866|INTWIN866]]

<code - LRIDENT.mac.txt>
 ?JBN ...[??? LRIDENT SECT COMM FGN 19 DOC   
 ?JLG    #MAC  LRIDENT   
 ?K66          DSCA     %A,LDX,1,CHADD   
 ?KKQ          ANDX  1  BITS22LS 
 ?L5B          SBN   1  CHAINADD 
 ?LK2          JIPCM    DS,%C,1  
 ?M4L          DFJUMPN  %A,RGM,%D
 ?MJ=          DFLOAD   %A,IDENT1
 ?N3W          STO   0  %B   
 ?NHG          DFLOAD   %A,IDENT2
 ?P36          STO   0  1+%B 
 ?PGQ          LDX   1  FX1  
 ?Q2B          LDX   2  FX2  
 ?QG2    #NOR
</code>