ADDINMODE

(GIN Macro)
Used in: ASSIGN860, COMPOST867, HOWBIG867, MACRALAS864, OLMTC85, PREPREAD867
ADDINMODE.mac.txt
 5PB# ...[??? ADDINMOD SECT FILE FGN 20 DOC  
 5PL6    [   
 5Q5Q    #   
 5QKB    #MAC  ADDINMODE 
 5R52    #DEF M1ADD=A%C^A%D^A%E^A%F^A%G^A%H^A%I^A%J  
 5RJL    #DEF M2ADD=E%C^E%D^E%E^E%F^E%G^E%H^E%I^E%J  
 5S4=    #STR  %A
 5SHW    #SKI
 5T3G    (   
 5TH6    #SKI  M1ADD 
 5W2Q    !     "A" MODE USED BUT NO %A     ! 
 5WGB    )   
 5X22    #STR  %B
 5XFL    #SKI
 5X^=    (   
 5YDW    #SKI  M2ADD 
 5YYG    !     "E" MODE USED BUT NO %B     ! 
 5^D6    )   
 5^XQ    #SKI  M1ADD^M2ADD>#7777-#7777   
 62CB    (   
 62X2          BRN      M3ADDINMODE  
 63BL    #SKI  M1ADD>#7777-#7777 
 63W=    M1ADDINMODE    +M1ADD   
 64*W    #SKI  M2ADD>#7777-#7777 
 64TG    (   
 65*6    M2ADDINMODE    +M2ADD   
 65SQ    M3ADDINMODE 
 66#B          SMO      FX1  
 66S2          ORX   %B M2ADDINMODE  
 67?L    )   
 67R=    )   
 68=W    #SKI  M2ADD<#10000-#10000   
 68QG    (   
 69=6    M3ADDINMODE 
 69PQ    #SKI  M2ADD 
 6=9B          ORN   %B M2ADD
 6=P2    )   
 6?8L    #SKI  M1ADD 
 6?N=    (   
 6#7W    #SKI  M1ADD>#7777-#7777 
 6#MG    (   
 6*76          SMO      FX1  
 6*LQ          ORX   %A M1ADDINMODE  
 6B6B    )   
 6BL2    #SKI  M1ADD<#10000-#10000   
 6C5L          ORN   %A M1ADD
 6CK=    )   
 6D4W    #FREE M1ADD 
 6DJG    #FREE M2ADD 
 6F46    #NOR