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

**Defined in:** [[george:source:MACROS_JSRG4|MACROS JSRG4]]

**Used in:** [[george:source:TPINS861|TPINS861]]

<code - PUCST.mac.txt>
 JLMQ    #MAC  PUCST    [JSRAYNER           G4 ONLY  
 JM7B    #STR  %B
 JMM2          LDX   0  %B   
 JN6L          LDX   1  %A   
 JNL=          LDX   2  FX2  
 JP5W    #STR  %B
 JPKG          STO   0  ACOMMUNE2(2) 
 JQ56    #STR  %B
 JQJQ    #SKIP   
 JR4B          STOZ     ACOMMUNE2(2) 
 JRJ2          STO   1  ACOMMUNE1(2) 
 JS3L    #SKI  CAMK7>4-4 
 JSH=    (   
 JT2W          LDN   0  #10  
 JTGG          ANDX  0  AFLAG(1)            [CHECK THAT PCA IS LOCKED
 JW26          SRC   0  5                   [SET B1 OF ACOMMUNE2 TO INDICATE 
 JWFQ    )   
 JW^B    #SKI  CAMK7<5-5 
 JXF2    (   
 JXYL          LDCT  0  #200                [CHECK THAT PCA IS LOCKED
 JYD=          ANDX  0  ASIZE(1)            [SET B1 OF ACOMMUNE TO INDICATE  
 JYXW    )   
 J^CG          ORS   0  ACOMMUNE2(2)        [WHETHER PCA HAD TO BE LOCKED OR NOT 
 J^X6          BNZ   0  MPUCST              [J IF ALREADY LOCKED 
 K2BQ          LOCK     1                   [AND LOCK IT 
 K2WB    MPUCST  
 K3B2          DOWN     SETUPPTS,3   
 K3TL    #NOR
</code>