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

**Defined in:** [[george:source:CHCHCOORMAC2|CHCHCOORMAC2]]

**Used in:** [[george:source:CONMXA85|CONMXA85]], [[george:source:CONSROOT867|CONSROOT867]], [[george:source:DETACH867|DETACH867]], [[george:source:DETACHB867|DETACHB867]], [[george:source:FAILTWIN866|FAILTWIN866]], [[george:source:HARDIDF867|HARDIDF867]], [[george:source:INTWIN866|INTWIN866]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:PROFLAG83|PROFLAG83]], [[george:source:TWINSETA866|TWINSETA866]], [[george:source:TWINSETB866|TWINSETB866]], [[george:source:TWINSETD866|TWINSETD866]]

<code - LONGCLEAR.mac.txt>
 6KNJ ...[??? LONGCLEA SECT CENT FGN 32 DOC  
 6KYB    #     THIS MACRO PUTS A SPECIFIED ACTIVITY IN A CONG WAIT ON THE LIST   
 6LD2    #   
 6LXL    #MAC  LONGCLEAR 
 6MC=    #STR  %A,2  
 6MWW          LDX   2  %A   
 6NBG          LDEX  0  CLONG1(2)
 6NW6          SBN   0  %B   
 6P*Q          BNZ   0  %C   
 6PTB          DSA   0  CLONG1(2)
 6Q*2          LDEX  0  ATYPE(2) 
 6QSL          BZE   0  M1LONGCLEAR  
 6R#=          UNQUEUE   
 6RRW          FPUT  
 6S?G    M1LONGCLEAR 
 6SR6          LDX   1  FX1  
 6T=Q          LDX   2  FX2  
 6TQB    #NOR
</code>