62X2    #MAC  PCTFIND   
 63BL    MPCTFIND
 63W=          LDX   %A  FPCT(%A)
 64*W          BXU   %B APCTID-FPTPCT(%A),MPCTFIND   
 64TG    #NOR