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

**Defined in:** [[george:source:WORK-MACROS|WORK-MACROS]]

**Used in:** [[george:source:FFFNORM7|FFFNORM7]], [[george:source:IFEXPAN867|IFEXPAN867]], [[george:source:TRAPCHEC867|TRAPCHEC867]], [[george:source:TRAPWORK864|TRAPWORK864]], [[george:source:WFMOVE867|WFMOVE867]], [[george:source:WORKFILE860|WORKFILE860]]

<code - FINDWFL.mac.txt>
 37*# ...[??? FINDWFL SECT FILE FGN 4 DOC
 37K6    #MAC  FINDWFL   
 3942          HUNT     2,FILE,FABSNB
 39HL          LDX   0  A1+1(2)  
 3=3=          ADN   0  1
 3=GW    #SKI  %A-3  
 3?2G          STO   3  GEN0 
 3?G6 ...      LDX   1  FX2  
 3?^Q ...      BASEFCB 1,WORK,M2FINDWFL,3         [SET UP FOR WORKRING SEARCH
 3#FB ...M1FINDWFL   
 3#^2 ...      LDX   2  FCOMM-FCBRING(1)         [IGNORE TO BE ERASED FILES  
 3*DL ...      ANDN   2  1   
 3*Y= ...      BNZ   2  M4FINDWFL
 3BCW ...      BCT   0  M4FINDWFL
 3BXG ...      SBN   1  FCBRING         [CORRECT LEVEL FOUND 
 3DW2    #SKI  %A-1  
 3F*L          LDX   %A 1
 3FT=          SETREP   OK   
 3G#W          BRN      M3FINDWFL
 3GG4 ...M4FINDWFL   
 3GM= ...      NEXTFCB 1,WORK,M1FINDWFL,3
 3GSG    M2FINDWFL   
 3H#6          SETREP   NOTFOUND 
 3HRQ    M3FINDWFL   
 3J?B    #SKI  %A-1  
 3JR2          LDX   1  FX1  
 3K=L    #SKI  %A-2  
 3KQ=          LDX   2  FX2  
 3L9W    #SKI  %A-3  
 3LPG          LDX   3  GEN0 
 3M96    #NOR
</code>