LFHUNT

(GIN Macro)

Defined in: MACROS LEF

Used in: LISTFNDA865, LISTFREE867, LISTOPEN867, LISTPARS867

LFHUNT.mac.txt

 ?X6D ...[??? LFHUNT SECT DEVT FGN 2 DOC 
 ?XB=    #MAC  LFHUNT
 ?XTW    [ THIS MACRO LOCATES THE KEY BLOCK IN THE LFCHAIN.  
 ?Y*G    [ %A IS TO BE USED AS A CALLING ACCUMULATOR.
 ?YT6    [   
 ?^#Q    #OPT  M1LFHUNT=1       [IDENT. FOR ENSURING CODE COMPILED ONLY ONCE 
 ?^SB    #ACC  %B
 #2#2          LDX   4  %B   
 #2RL    #ACC  %C
 #3?=          LDX   5  %C   
 #3QW    #STR  %D
 #4=G          LDN   6  %D+%E
 #4Q6    #STR  %D
 #59Q    #SKI
 #5PB          LDN   6  GOUT+GKEY
 #692          CALL  %A M2LFHUNT 
 #6NL    #SKI  M1LFHUNT  
 #78=    (   
 #7MW          BRN      M3LFHUNT 
 #87G    MLFHUNT 
 #8M6          LDN   3  BLF     [BASE OF LFCHAIN 
 #96Q    M4LFHUNT
 #9LB          LDX   3  BPTR(3)             [BACKWARD SEARCH 
 #=62          LDN   0  BLF  
 #=KL          TXU   0  3
 #?5=          BCC      M5LFHUNT 
 #?JW          LDX   0  ATYPE(3) 
 ##4G          SRL   0  12   
 ##J6          SBX   0  6
 #*3Q          BNZ   0  M4LFHUNT            [J IF NOT KEY BLOCK  
 #*HB    #ACC  %B
 #B32          TXU   4  GOUTKEY1(3)  
 #BGL    #ACC  %B
 #C2=    #SKI
 #CFW          TXU   %B GOUTKEY1(3)  
 #C^G    #ACC  %C
 #DF6          TXU   5  GOUTKEY2(3)  
 #DYQ    #ACC  %C
 #FDB    #SKI
 #FY2          TXU   %C GOUTKEY2(3)  
 #GCL          BCS      M4LFHUNT 
 #GX=          EXIT  %A 0
 #HBW    M5LFHUNT
 #HWG          NGN   3  1
 #JB6          EXIT  %A 0
 #JTQ    M3LFHUNT
 #K*B    #FRE  M1LFHUNT  
 #KT2    #DEF  M2LFHUNT=MLFHUNT  
 #L#L    #DEF  M1LFHUNT=0
 #LS=    )   
 #M?W    #NOR