FINDSU [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: FINDSU)}}
====== FINDSU ======
(GIN Macro)

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

**Used in:** [[george:source:ANTIC867|ANTIC867]], [[george:source:CLOSBAC867|CLOSBAC867]], [[george:source:FLAWMAP866|FLAWMAP866]], [[george:source:KARTCONT867|KARTCONT867]], [[george:source:REQCART866|REQCART866]], [[george:source:TWINSETA866|TWINSETA866]], [[george:source:WHATPERB867|WHATPERB867]]

<code - FINDSU.mac.txt>
 736=    #   
 73KW    # **********************************************************************
 745G    # *                                                                     
 74K6    # *           ASTUC HANDLING                                            
 754Q    # *                                                                     
 75JB    # *          FINDSU,MFINDSU,FINDSUX,MFINDSUX,FINDSUD,MFINDSUD           
 7642    # *                                                                     
 76HL    # **********************************************************************
 773=    #   
 77GW    [???                                FINDSU  
 782G    #                                   ******  
 78G6    #MAC  FINDSU
 78^Q    #   
 79FB          LDX   0  %B   
 79^2          LDN   %A BCCB 
 7=DL    MFINDSU 
 7=Y=          LDX   %A FPTR(%A) 
 7?CW          TXU   %A CXCC 
 7?XG          BCC      %C   
 7#C6          TXU   0  BACK1(%A)
 7#WQ          BCS      MFINDSU  
 7*BB    #NOR
</code>