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

**Defined in:** [[george:source:MACROS_LEF|MACROS LEF]]

**Used in:** [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:IPBLISTC867|IPBLISTC867]], [[george:source:IPBLISTD867|IPBLISTD867]], [[george:source:LISTINIT867|LISTINIT867]], [[george:source:LISTINTC865|LISTINTC865]], [[george:source:LISTLOOP867|LISTLOOP867]], [[george:source:LISTNEXT867|LISTNEXT867]], [[george:source:LISTOPEN867|LISTOPEN867]], [[george:source:LISTPREP865|LISTPREP865]], [[george:source:LISTTPCP867|LISTTPCP867]], [[george:source:PCTLISTA867|PCTLISTA867]], [[george:source:PCTLISTB867|PCTLISTB867]], [[george:source:RENGAGE851|RENGAGE851]]

<code - LFEND.mac.txt>
 =8DD ...[??? LFEND SECT DEVT FGN 2 DOC  
 =8N=    #MAC  LFEND 
 =97W    [THIS MACRO TIDIES UP WHEN A LISTFILE IS FINISHED.  
 =9MG    [%A IS 'TE' OR 'CD' OR 'EB' OR ABSENT   
 ==76    [%B IS RESTART LINE NUMBER IF %A 'CD'   
 ==LQ          LDX   2  FX2  
 =?6B    #STR  %A
 =?L2    #SKI
 =#5L          STOZ     AWORK1(2)
 =#K=    #STR  %A
 =*4W    (   
 =*JG    #STR  %A,EB 
 =B46    #SKI
 =BHQ    (   
 =C3B          LFBITCLR F,2  
 =CH2          STARTACT OUT  
 =D2L          COOR1 
 =DG=          GEOERR   1,NOLINK 
 =D^W    )   
 =FFG    #STR  %A,CD 
 =F^6    #SKI
 =GDQ    (   
 =GYB          NGS   2  AWORK1(2)
 =HD2    #STR  %B
 =HXL    #SKI
 =JC=          NGS   2  AWORK2(2)
 =JWW    #STR  %B
 =KBG    (   
 =KW6    #ACC  %B
 =L*Q    (   
 =LTB          LDX   0  %B   
 =M*2          STO   0  AWORK2(2)
 =MSL    )   
 =N#=    #ACC  %B
 =NRW    #SKI
 =P?G          STO   %B AWORK2(2)
 =PR6    )   
 =Q=Q    )   
 =QQB    #STR  %A,TE 
 =R=2    #SKI
 =RPL         STO   2  AWORK1(2) 
 =S9=    )   
 =SNW    #STR  %A
 =T8G    #STR  %A,EB 
 =TN6          ACROSS   LISTNEXT,4   
 =W7Q    #NOR
</code>