RINGACT

(GIN Macro)

Defined in: COREMACROS

Used in: ASSIGN860, CIMOP867, GETNO865, INCDTA865, IPCOND864, IPCONE865, IPCSTART864, REQCART866, SCHEDJOB867

RINGACT.mac.txt

 F4M# ...[??? RINGACT SECT CENT FGN 32 DOC   
 F4X6    #   
 F5BQ    # THIS MACRO CHAINS THE ACTIVITY BLOCK SPECIFIED IN %A IN FRONT 
 F5WB    # OF THE ACTIVITY BLOCK SPECIFIED IN %B. THE ACTIVITY RING IS UPDATED   
 F6B2    #   
 F6TL    #MAC  RINGACT   
 F7*=          STO   %A GEN5 
 F7SW          STO   %B GEN6 
 F8#G          MOD   LDN 1 ACTRING,%A
 F8S6          MOD   LDX 2 ACTRING+1,%B  
 F9?Q          RERING   1,2  
 F9RB          SMO      GEN6 
 F=?2          LDX   2  BPTR 
 F=QL          CHAIN    GEN5,2   
 F?==    #NOR