RINGPUC

(GIN Macro)

Defined in: RCTPMACS

Used in: TPINS861

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