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

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

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

<code - RINGPUC.mac.txt>
 3*DL    #     THIS MACRO ENRINGS THE PUC/PCA AND DERINGS
 3*Y=    #     THE TP/PCA ONTO/FROM THE JOB RING 
 3BCW    #MAC           RINGPUC  
 3BXG          FINDPUC  %A,1 
 3CC6          LDN   1  JOBRING(1)   
 3CWQ     MOD  LDN   2  JOBRING,%A   
 3DBB          ENRING   1,2  
 3DW2     MOD  LDN   1  JOBRING,%A   
 3F*L          DERING   1
 3FT=    #NOR
</code>