(GIN Macro)
Defined in: MACROS LEF
Used in: LISTFNDA865, LISTFREE867, LISTOPEN867, LISTPARS867
?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