CHAINJRN [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

**Defined in:** [[george:source:MACS_IPB|MACS IPB]]

**Used in:** 

<code - 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
</code>