FINDPUC [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: FINDPUC)}}
====== FINDPUC ======
(GIN Macro)

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

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CORE867|CORE867]], [[george:source:COREALLJ865|COREALLJ865]], [[george:source:GIVE867|GIVE867]], [[george:source:GIVEA867|GIVEA867]], [[george:source:PLUGIN867|PLUGIN867]], [[george:source:PROSTART867|PROSTART867]], [[george:source:PUTPER85|PUTPER85]], [[george:source:REALTIME867|REALTIME867]], [[george:source:RELPER867|RELPER867]], [[george:source:REQESLIP861|REQESLIP861]], [[george:source:SWAP865|SWAP865]], [[george:source:TPINS861|TPINS861]], [[george:source:UNPLUG867|UNPLUG867]]

<code - FINDPUC.mac.txt>
 2WRW    #     THIS MACRO FINDS THE RELATED PUC/PCA  
 2X?G    #     FROM THE TP/PCA   
 2XR6    #MAC           FINDPUC  
 2Y=Q    #SKIP          CAMK7
 2YQB    (   
 2^=2    #STRING        %A   
 2^PL    #STRING        %A,%B
 329=     OPND LDX   %B,%A,FX2   
 32NW    )   
 338G    #SKIP          CAMK7<1$1
 33N6    (   
 347Q    #STR  %A
 34MB          LDX   %B %A   
 3572    #STR  %A
 35LL    #STR
 366=          LDX   %B FX2  
 36KW    )   
 375G     MOD  LDX   %B ACTRING+1,%B 
 37K6          SBN   %B ACTRING  
 384Q    #NOR
</code>