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

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

**Used in:** [[george:source:TRAPCHEC867|TRAPCHEC867]], [[george:source:TRAPLIST864|TRAPLIST864]], [[george:source:TRAPWORK864|TRAPWORK864]]

<code - FINDFEXTRA.mac.txt>
 2Q7D ...[??? FINDFEXT SECT FILE FGN 4 DOC   
 2QC=    #MAC  FINDFEXTRA
 2QWW    #SKI  %B
 2RBG          LDX   %B FPTR(%A) 
 2RW6    #SKI  %B
 2S*Q    #SKI
 2STB          LDX   %A FPTR(%A) 
 2T*2    M1FINDFEX   
 2TSL    #SKI  %B
 2W#=          LDX   0  ATYPE(%B)
 2WRW    #SKI  %B
 2X?G    #SKI
 2XR6          LDX   0  ATYPE(%A)
 2Y=Q          SRL   0  12   
 2YQB          SBN   0  FILE+FEXTRA  
 2^=2          BZE   0  M2FINDFEX
 2^PL          ADN   0  FEXTRA-FCB   
 329=          BZE   0  M3FINDFEX
 32NW    #SKI  %B
 338G          LDX   %B FPTR(%B) 
 33N6    #SKI  %B
 347Q    #SKI
 34MB          LDX   %A FPTR(%A) 
 3572          BRN      M1FINDFEX
 35LL    M3FINDFEX   
 366=          GEOERR   1,NOFEXTRA   
 36KW    M2FINDFEX   
 375G    #NOR
</code>