FINDPUC

(GIN Macro)

Defined in: RCTPMACS

Used in: CHARGESC867, CORE867, COREALLJ865, GIVE867, GIVEA867, PLUGIN867, PROSTART867, PUTPER85, REALTIME867, RELPER867, REQESLIP861, SWAP865, TPINS861, UNPLUG867

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