MFINDSU [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: MFINDSU)}}
====== MFINDSU ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_EWDAS|MACROS EWDAS]]

**Used in:** [[george:source:ANTIC867|ANTIC867]], [[george:source:BRADSPLT867|BRADSPLT867]], [[george:source:CHINTEG867|CHINTEG867]], [[george:source:ERASEX866|ERASEX866]], [[george:source:EXINONE867|EXINONE867]], [[george:source:EXINTO867|EXINTO867]], [[george:source:EXINTWO866|EXINTWO866]], [[george:source:EXOPEN867|EXOPEN867]], [[george:source:FINDFS867|FINDFS867]], [[george:source:FLAW866|FLAW866]], [[george:source:FLAWMAP866|FLAWMAP866]], [[george:source:KARTCONT867|KARTCONT867]], [[george:source:NEXTUNIT867|NEXTUNIT867]], [[george:source:PATCH|PATCH]], [[george:source:PERION867|PERION867]], [[george:source:READSPEC867|READSPEC867]], [[george:source:REQCART866|REQCART866]], [[george:source:SCEX866|SCEX866]], [[george:source:SCEXEND867|SCEXEND867]], [[george:source:SPERION867|SPERION867]], [[george:source:SQOPEN867|SQOPEN867]], [[george:source:TWINSETB866|TWINSETB866]], [[george:source:WRITEFIP867|WRITEFIP867]]

<code - MFINDSU.mac.txt>
 7*W2    #   
 7B*L    [???                                MFINDSU 
 7BT=    #                                   ******* 
 7C#W    #MAC  MFINDSU   
 7CSG    #   
 7D#6          LDX   0  %B   
 7DRQ          LDN   %A BCCB 
 7F?B    MFINDSU 
 7FR2          LDX   %A FPTR(%A) 
 7G=L    #SKI  K6EXOFILE>199-199 
 7GQ=    (   
 7H9W          TXU   %A CXCC 
 7HPG          BCS      MFINDSU1 
 7J96          GEOERR   1,MFINDSU
 7JNQ    MFINDSU1
 7K8B    )   
 7KN2          TXU   0  BACK1(%A)
 7L7L          BCS      MFINDSU  
 7LM=    #NOR
</code>