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

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

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

<code - TESTMAINMODE.mac.txt>
 4PLN ...[??? TESTMAIN SECT FILE FGN 20 DOC  
 4PWG    [   
 4QB6    #MAC  TESTMAINMODE  
 4QTQ          LDX   0  %A   
 4R*B    #STR  READING,%D
 4RT2    #SKI
 4S#L    (   
 4SS=          ANDN  0  #7000
 4T?W          SBN   0  #3000
 4TRG    #STR  NOT,%C
 4W?6          BNG   0  %B   
 4WQQ    #STR  NOT,%C
 4X=B    #SKI
 4XQ2          BPZ   0  %B   
 4Y9L    #EXI
 4YP=    )   
 4^8W    #STR  UNCLEAN,%D
 4^NG    #SKI
 5286    (   
 52MQ          ADN   0  #1000
 537B          ANDN  0  #4000
 53M2    #STR  NOT,%C
 546L          BNZ   0  %B   
 54L=    #STR  NOT,%C
 555W    #SKI
 55KG          BZE   0  %B   
 5656    #EXI
 56JQ    )   
 574B    #STR  RANDOM,%D 
 57J2    #SKI
 583L    (   
 58H=          ANDN  0  #1000
 592W    #STR  NOT,%C
 59GG          BZE   0  %B   
 5=26    #STR  NOT,%C
 5=FQ    #SKI
 5=^B          BNZ   0  %B   
 5?F2    #EXI
 5?YL    )   
 5#D=          ANDN  0  #7000
 5#XW    #STR  NONE,%D   
 5*CG          SBN   0  A%D  
 5*X6    #STR  NOT,%C
 5BBQ          BZE   0  %B   
 5BWB    #STR  NOT,%C
 5CB2    #SKI
 5CTL    (   
 5D*=    #STR  %E
 5DSW          BZE   0  M1TESTMAINM  
 5F#G    #STR  %E
 5FS6    #SKI
 5G?Q          BNZ   0  %B   
 5GRB    )   
 5H?2    #STR  %E
 5HQL    (   
 5J==          SBADN    0,A%E-A%D
 5JPW    #STR  NOT,%C
 5K9G          BZE   0  %B   
 5KP6    #STR  NOT,%C
 5L8Q    #SKI
 5LNB    (   
 5M82          BNZ   0  %B   
 5MML    M1TESTMAINM 
 5N7=    )   
 5NLW    )   
 5P6G    #NOR
</code>