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

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

**Used in:** [[george:source:DETACH867|DETACH867]], [[george:source:MONITOR36|MONITOR36]]

<code - FINDOLP1.mac.txt>
 7=Y=    #MAC  FINDOLP1  
 7?XG          HUNT2    %B,APERI,APERIRES,%C 
 7#C6    MFIN1 LDX   0  A1(%B)   
 7#WQ          BNG   0  %D   
 7*BB          ORX   %C GSIGN
 7*W2          LDX   0  A1+1(%B) 
 7B*L          BPZ   0  MFIN2
 7BT=          FINDACTFB %C,,AOLPT,,,FPTR
 7C#W    MFIN2 LDX   0  A1(%B)   
 7CSG          BXE   0  %A,MFIN3 
 7D#6          BDX   %B MFIN1
 7DRQ    MFIN3   
 7F?B    #NOR
</code>