{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FINDPB)}}
====== FINDPB ======
(GIN Macro)

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

**Used in:** [[george:source:ALAS822|ALAS822]]

<code - FINDPB.mac.txt>
 GC6N ...[??? FINDPB SECT CENT FGN 21 DOC
 GCBG    [   
 GCW6    [              MACRO FINDPB  -  FINDS THE SPECIFIED CPB/CALAS BLOCK 
 GD*Q    [              %A -MODIFIER TO HOLD ADDRESS OF CPB/CALAS, ON EXIT   
 GDTB    [              %B -LABEL TO JUMP TO, IF CPB/CALAS NOT FOUND 
 GF*2    [              %C B0 -UNSET IF 1ST CPB/CALAS
 GFSL    [                     -SET IF 2ND CPB/CALAS 
 GG#=    [              ON EXIT  
 GGRW    [              X0 IS OVERWRITTEN
 GH?G    [              X1-X7 UNCHANGED BUT X%A CONTAINS POINTER TO CPB/CALAS
 GHR6    [   
 GJ=Q    #MAC           FINDPB   
 GJQB          MHUNT    %A,CPB,CALAS 
 GK=2          LDX   0  %C   
 GKPL          BPZ   0  MPB7 
 GL9=          HUNT2J   %A,CPB,CALAS,,%B 
 GLNW    MPB7
 GM8G    #NOR
</code>