CHAINJRN

(GIN Macro)

Defined in: MACS IPB

Used in:

CHAINJRN.mac.txt

 3?G6    [???  CHAINJRN SECT COMM FGN 40 DOC 
 3?^Q    [   
 3#FB    [      THIS MACRO WILL CHAIN AMXOR AJOURN BLOCK AT END OF LIST BEHIND   
 3#^2    [     AMOP AJOURN ACTIVITY AND THEN FPUT ACTIVITY IF NECESSARY  
 3*DL    [   
 3*Y=    #MAC   CHAINJRN 
 3BCW          LDX   2  FX2  
 3BXG          FINDACTFB  2,,AMOP,AJOURN,MCONTU,BPTR 
 3CC6    MAGAIN  
 3CWQ          HUNT2J     2,AMXOR,AJOURN,2,MENDAJOURN
 3DBB          BRN      MAGAIN   
 3DW2    MENDAJOURN  
 3F*L          MHUNTW   1,AMXOR,AJOURN   
 3FT=          LDX   2  BPTR(2)  
 3G#W          CHAIN     1,2 
 3GSG          LDX   2  FX2  
 3H#6          FINDACTFB  2,,AMOP,AJOURN,MCONTU,BPTR 
 3HRQ          LDX   0  IPBSW(2) 
 3J?B          BNG   0  MCONTU   
 3JR2          LDX   0  GSIGN
 3K=L          STO   0  IPBSW(2) 
 3KQ=          FPUT  
 3L9W    MCONTU  
 3LPG          LDX   1  FX1  
 3M96          LDX   2  FX2  
 3MNQ    #NOR