CCOUT [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: CCOUT)}}
====== CCOUT ======
(GIN Macro)

**Defined in:** [[george:source:MACS_JIB|MACS JIB]]

**Used in:** [[george:source:ATTACHB866|ATTACHB866]], [[george:source:ATTACHC867|ATTACHC867]], [[george:source:CDCIPB864|CDCIPB864]], [[george:source:DUMMYB867|DUMMYB867]], [[george:source:FREEPER867|FREEPER867]], [[george:source:IPBIN867|IPBIN867]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:RIGHT867|RIGHT867]], [[george:source:SWITCH867|SWITCH867]], [[george:source:VIPBFREE865|VIPBFREE865]]

<code - CCOUT.mac.txt>
 38S8 ...[??? CCOUT SECT COMM FGN 25 DOC 
 3942    #   
 39HL    #   
 3=3=    #   
 3=GW    #MAC  CCOUT 
 3?2G    [THIS MACRO OUTPUTS A SUPERVISORY SEGMENT TO THE 7901   
 3?G6          LDX   0  %A   
 3?^Q          SMO      FX2  
 3#FB          STO   0  ACOMMUNE2
 3#^2          LDX   0  %B   
 3*DL          SMO      FX2  
 3*Y=          STO   0  ACOMMUNE3
 3BCW          DOWN     IPBOUT,4 
 3BXG    #NOR
</code>