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

**Defined in:** [[george:source:MACS_SPC|MACS SPC]]

**Used in:** [[george:source:ATTACHC867|ATTACHC867]], [[george:source:CONMXA85|CONMXA85]], [[george:source:CONMXC8|CONMXC8]], [[george:source:DETACH867|DETACH867]], [[george:source:MOPOUT85|MOPOUT85]], [[george:source:MOPPM84|MOPPM84]], [[george:source:MOPSTART865|MOPSTART865]], [[george:source:MULTIPLX864|MULTIPLX864]], [[george:source:PCTCIN8|PCTCIN8]], [[george:source:PCTCON8|PCTCON8]], [[george:source:PCTCOUT8|PCTCOUT8]], [[george:source:PCTCRTR8|PCTCRTR8]], [[george:source:PCTLPTP851|PCTLPTP851]], [[george:source:PROFLAG83|PROFLAG83]], [[george:source:SCAN865|SCAN865]], [[george:source:SENTINEL8|SENTINEL8]]

<code - FINDLCA.mac.txt>
 6WPL    #MAC  FINDLCA                      [C.E.WILKINSON : FINDS LCA   
 6X9=    #STR  %A
 6XNW    (   
 6Y8G    #STR  %A,1  
 6YN6          LDX   1  %A   
 6^7Q    )   
 6^MB    #STR  %A
 7272    #SKI
 72LL          LDX   1  CPPTR(2) 
 736=          LDX   0  K58(1)   
 73KW          MPA   0  %B   
 745G    #NOR
</code>