FINDPB

(GIN Macro)
Used in: ALAS822
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