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

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

**Used in:** [[george:source:IDFSEG867|IDFSEG867]], [[george:source:SETIDF867|SETIDF867]]

<code - MSPLITCORE.mac.txt>
 9P#4 ...[??? MSPLITCO SECT COMM FGN 25 DOC  
 9PHW    #MAC  MSPLITCORE
 9Q3G          ADN   %A A1   
 9QH6          SMO      FX2  
 9R2Q          LDX   0  ACOMMUNE3
 9RGB          STO   0  BRECNO(%A)   
 9S22          SLL   0  9
 9SFL          LDN   1  GSBS-1   
 9S^=          ADX   1  0
 9TDW          ADN   0  CELLEN   
 9TYG    MXAS  BXGE  0  1,MXBA   
 9WD6          STO   0  0(%A)
 9WXQ          ADN   %A CELLEN   
 9XCB          ADN   0  CELLEN   
 9XX2          BRN      MXAS 
 9YBL    MXBA  STOZ     0(%A)
 9YW=          SBN   %A GSBS-CELLEN  
 9^*W          STOZ     2(%A)
 9^TG          LDN   0  2(%A)
 =2*6          LDN   1  3(%A)
 =2SQ          MOVE  0  5
 =3#B          LDX   1  FX1  
 =3S2    #SKI  %A-2  
 =4?L          LDX   2  FX2  
 =4R=    #NOR
</code>