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

**Defined in:** [[george:source:HUNTMACS1|HUNTMACS1]]

**Used in:** [[george:source:ASSIGN860|ASSIGN860]], [[george:source:DSCNCT867|DSCNCT867]], [[george:source:GETNO865|GETNO865]], [[george:source:GETNOR8|GETNOR8]], [[george:source:INCDTA865|INCDTA865]], [[george:source:INCEOT865|INCEOT865]], [[george:source:INCMON865|INCMON865]], [[george:source:INCSTART865|INCSTART865]], [[george:source:IPBIN867|IPBIN867]], [[george:source:IPBJOURN867|IPBJOURN867]], [[george:source:IPBOUT867|IPBOUT867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:IPCEN8|IPCEN8]], [[george:source:IPCGEO8|IPCGEO8]], [[george:source:IPCON864|IPCON864]], [[george:source:IPCONA864|IPCONA864]], [[george:source:IPCONC8|IPCONC8]], [[george:source:IPCOND864|IPCOND864]], [[george:source:IPCONF865|IPCONF865]], [[george:source:IPCOPENB83|IPCOPENB83]], [[george:source:IPCPERI83|IPCPERI83]], [[george:source:IPCSTART864|IPCSTART864]], [[george:source:IPQUAKER865|IPQUAKER865]], [[george:source:MTDUMP860|MTDUMP860]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:RELPER867|RELPER867]], [[george:source:TRIPB83|TRIPB83]]

<code - FINDACTFB.mac.txt>
 2S5Y ...[??? FINDACTF SECT CENT FGN 1 DOC   
 2S*Q    #   
 2STB    #   
 2T*2    #MAC  FINDACTFB                    [SEARCHES FORWARDS OR BACKWARDS FROM 
 2TSL    #STR  %B                           [ A GIVEN BLOCK ALONG THE ACTIVITY   
 2W#=          LDX   %A %B                  [ RING FOR A BLOCK OF SPECIFIED TYPE/
 2WRW    MFINDACTFB1                        [   SUBTYPE  
 2X?G          LDX   %A ACTRING+%F(%A)   
 2XR6          SBN   %A ACTRING             [ %A MODIFIER TO POINT TO FOUND BLOCK
 2Y=Q    #STR  %E                           [ %B START (ABSENT THEN %A=START)
 2YQB          BXE   %A FX2,%E              [ %C TYPE OF BLOCK SOUGHT
 2^=2                                       [ %D SUBTYPE OF BLOCK SOUGHT 
 2^PL                                       [ %E LABEL IF CURRENT ACTY FOUND 1ST.
 329=          LDCH  0  ATYPE(%A)           [ %F FPTR OR BPTR FOR FORWARD OR 
 32NW          SBN   0  %C/64               [      BACKWARD SEARCH   
 338G          BNZ   0  MFINDACTFB1  
 33N6    [   
 347Q    #STR  %D
 34MB    (   
 3572          BCHX  %A £
 35LL          LDCH  0  ATYPE(%A)
 366=          SBN   0  %D   
 36KW          BNZ   0  MFINDACTFB1  
 375G          ANDX  %A BITS22LS 
 37K6    )   
 384Q    #NOR
</code>