2K3B    #     THIS MACRO FINDS THE RELATED TP/PCA   
 2KH2    #     FROM THE PUC/PCA. 
 2L2L    #MAC           FINDTP   
 2LG=    #SKIP          CAMK7
 2L^W    (   
 2MFG    #STRING        %A   
 2M^6    #STRING        %A,%B
 2NDQ     OPND LDX   %B,%A,FX2   
 2NYB    )   
 2PD2    #SKIP          CAMK7<1$1
 2PXL    (   
 2QC=    #STR  %A
 2QWW          LDX   %B %A   
 2RBG    #STR  %A
 2RW6    #STR
 2S*Q          LDX   %B FX2  
 2STB    )   
 2T*2     MOD  LDX   %B ACTRING,%B   
 2TSL          SBN   %B ACTRING  
 2W#=    #NOR