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

**Defined in:** [[george:source:OPEN-MACROS|OPEN-MACROS]]

**Used in:** [[george:source:INPRIN|INPRIN]], [[george:source:LOADERMT867|LOADERMT867]], [[george:source:MODE866|MODE866]], [[george:source:MODEA65|MODEA65]], [[george:source:PMINPRIN|PMINPRIN]]

<code - SMODE.mac.txt>
 6F?Y ...[??? SMODE SECT FILE FGN 20 DOC 
 6FHQ    #   
 6G3B    #MAC  SMODE 
 6GH2    #SKI  M1SETMODE 
 6H2L    (   
 6HG=    #SKI  M1SETMODE<#10000-#10000   
 6H^W          LDN   %A M1SETMODE
 6JFG    #SKI  M1SETMODE&#77777  
 6J^6    #SKI
 6KDQ    (   
 6KYB    #DEF  M3SETMODE=M1SETMODE&#40000000<#400
 6LD2          LDCT  %A M1SETMODE&#37700000/#77777^M3SETMODE 
 6LXL    #FREE M3SETMODE 
 6MC=    )   
 6MWW    #SKI  M1SETMODE&#77770000   
 6NBG    (   
 6NW6    #SKI  M1SETMODE&#77777  
 6P*Q    (   
 6PTB    #DEF  M3SETMODE=M1SETMODE&#40000000<#4000   
 6Q*2          LDN   %A M1SETMODE&#37770000/#7777^M3SETMODE  
 6QSL    #FREE M3SETMODE 
 6R#=          SLL   %A 12   
 6RRW    #SKI  M1SETMODE&#7777   
 6S?G          ORN   %A M1SETMODE&#7777  
 6SR6    )   
 6T=Q    )   
 6TQB    )   
 6W=2    #FREE M1SETMODE 
 6WPL    #NOR
</code>