FINDTP [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

**Defined in:** [[george:source:RCTPMACS|RCTPMACS]]

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CORESHED861|CORESHED861]], [[george:source:EVENTFN|EVENTFN]], [[george:source:JAMSWAP865|JAMSWAP865]], [[george:source:OPCA867|OPCA867]], [[george:source:OPILLS70|OPILLS70]], [[george:source:PLUGIN867|PLUGIN867]], [[george:source:RELPER867|RELPER867]], [[george:source:SWAP865|SWAP865]], [[george:source:UNPLUG867|UNPLUG867]], [[george:source:WSPERIS867|WSPERIS867]]

<code - FINDTP.mac.txt>
 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
</code>