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

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

**Used in:** [[george:source:ASSIGN860|ASSIGN860]], [[george:source:COPYA867|COPYA867]], [[george:source:COPYB867|COPYB867]], [[george:source:ERASEA867|ERASEA867]], [[george:source:INSTPARA867|INSTPARA867]], [[george:source:LISTPARS867|LISTPARS867]], [[george:source:OPENFILE867|OPENFILE867]], [[george:source:OPENREL865|OPENREL865]], [[george:source:OPENTWO867|OPENTWO867]], [[george:source:ORELHALF82|ORELHALF82]], [[george:source:ORELMAIN867|ORELMAIN867]], [[george:source:PERFPASS864|PERFPASS864]], [[george:source:USEREXCP860|USEREXCP860]], [[george:source:USERONE867|USERONE867]], [[george:source:USEROPEN867|USEROPEN867]], [[george:source:USERSTRM867|USERSTRM867]]

<code - ADDMODE.mac.txt>
 45L4 ...[??? ADDMODE SECT FILE FGN 20 DOC   
 45TW    #   
 46*G    #MAC  ADDMODE   
 46T6    #DEF M1ADDMODE=A%B^A%C^A%D^A%E^A%F^A%G^A%H^A%I  
 47#Q    #DEF M2ADDMODE=E%B^E%C^E%D^E%E^E%F^E%G^E%H^E%I  
 47SB    #SKI  M2ADDMODE 
 48#2    !     "E" MODE GIVEN IN ADDMODE : USE ADDINMODE     !   
 48RL    #FREE M2ADDMODE 
 49?=    #SKI M1ADDMODE>#7777$#7777  
 49QW    (   
 4==G          BRN      M4ADDMODE
 4=Q6    M3ADDMODE      +M1ADDMODE   
 4?9Q    M4ADDMODE   
 4?PB          SMO      FX1  
 4#92    #ACC  %A
 4#NL    (   
 4*8=          LDX   0  M3ADDMODE
 4*MW          ORS   0  %A   
 4B7G    )   
 4BM6    #ACC  %A
 4C6Q    #SKI
 4CLB          ORX   %A M3ADDMODE
 4D62    )   
 4DKL    #SKI  M1ADDMODE<#10000$#10000   
 4F5=    (   
 4FJW    #ACC  %A
 4G4G    (   
 4GJ6          LDN   0  M1ADDMODE
 4H3Q          ORS   0  %A   
 4HHB    )   
 4J32    #ACC  %A
 4JGL    #SKI
 4K2=          ORN   %A M1ADDMODE
 4KFW    )   
 4K^G    #FREE M1ADDMODE 
 4LF6    #NOR
</code>