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

**Defined in:** [[george:source:MACROS_EWDAS|MACROS EWDAS]]

**Used in:** [[george:source:SHARE866|SHARE866]]

<code - SHAREON.mac.txt>
 ^282    #MAC  SHAREON   
 ^2ML    #   
 ^37=    #STR  %A
 ^3LW          LDX   0  %A           [IF %A PRESENT  
 ^46G    #STR  %A
 ^4L6    #SKI
 ^55Q          LDX   0  CPPTR(2)     [IF %A ABSENT   
 ^5KB          '171  0  3
 ^652          BNG   0  %B           [^ IF REJECTED  
 ^6JL    #NOR
</code>