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

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

**Used in:** [[george:source:BACKMAP864|BACKMAP864]], [[george:source:BMSJRNL866|BMSJRNL866]], [[george:source:BSTS867|BSTS867]], [[george:source:CLOSEALT864|CLOSEALT864]], [[george:source:CLOSEND867|CLOSEND867]], [[george:source:COREALLF867|COREALLF867]], [[george:source:OPERA864|OPERA864]]

<code - CHAIND.mac.txt>
 2YGJ ...[??? CHAIND SECT CENT FGN 32 DOC
 2YQB    [   
 2^=2    [ENTRY SEQUENCE FOR CHAIN ROUTINE WHEN %B=THE BASE OF A CHAIN   
 2^PL    [   
 329=    #MAC  CHAIND
 32NW    #STR  %A,1  
 338G          LDX   1  %A                  [LOAD ADDRESS OF BLOCK TO BE CHAINED 
 33N6          LDN   2  %B                  [LOAD ADDRESS OF BASE
 347Q          CALL  0  (GCHAN)  
 34MB    #NOR
</code>