ADDMODE

(GIN Macro)

Used in: ASSIGN860, COPYA867, COPYB867, ERASEA867, INSTPARA867, LISTPARS867, OPENFILE867, OPENREL865, OPENTWO867, ORELHALF82, ORELMAIN867, PERFPASS864, USEREXCP860, USERONE867, USEROPEN867, USERSTRM867

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