FINDACTFB

(GIN Macro)

Defined in: HUNTMACS1

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

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