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

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

**Used in:** [[george:source:CLOSDEL867|CLOSDEL867]], [[george:source:CONTEND867|CONTEND867]], [[george:source:EXINONE867|EXINONE867]], [[george:source:EXINTO867|EXINTO867]], [[george:source:EXINTWO866|EXINTWO866]], [[george:source:EXOPEN867|EXOPEN867]], [[george:source:FLAWMAP866|FLAWMAP866]], [[george:source:SCEX866|SCEX866]], [[george:source:SCEXEND867|SCEXEND867]], [[george:source:WRITEFIP867|WRITEFIP867]]

<code - CLOSEST.mac.txt>
 ?MJ=    #   
 ?N3W    [???                                CLOSEST 
 ?NHG    #                                   ******* 
 ?P36    #MAC  CLOSEST   
 ?PGQ    #   
 ?Q2B          STO   1  EWK+1(3) 
 ?QG2          STO   2  EWK+2(3) 
 ?Q^L          LDX   0  ETMARK(3)
 ?RF=          BNZ   0  MCLOSEST1
 ?RYW    MCLOSEST2   
 ?SDG          LDX   1  EBUF(3)  
 ?SY6          BNZ   1  MCLOSEST3
 ?TCQ          LDX   1  EWK+1(3) 
 ?TXB          LDX   2  EWK+2(3) 
 ?WC2          BRN      %A   
 ?WWL    MCLOSEST3   
 ?XB=          LDX   0  A1(1)
 ?XTW          STO   0  EBUF(3)  
 ?Y*G          FREECORE 1
 ?YT6          BRN      MCLOSEST2
 ?^#Q    MCLOSEST1   
 ?^SB          DOWN     TRANSFER,3   
 #2#2    #NOR
</code>