TESTMODE [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: TESTMODE)}}
====== TESTMODE ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_HFD8|MACROS HFD8]]

**Used in:** [[george:source:ASSIGN860|ASSIGN860]], [[george:source:COMPOST867|COMPOST867]], [[george:source:LIBREQ866|LIBREQ866]], [[george:source:LIBSEC867|LIBSEC867]], [[george:source:MAKEFILE863|MAKEFILE863]], [[george:source:OPENFILE867|OPENFILE867]], [[george:source:OPENREL865|OPENREL865]], [[george:source:OPENTWO867|OPENTWO867]], [[george:source:OPENWAIT867|OPENWAIT867]], [[george:source:ORELEMPT70|ORELEMPT70]], [[george:source:ORELEND860|ORELEND860]], [[george:source:ORELHALF82|ORELHALF82]], [[george:source:ORELMAIN867|ORELMAIN867]], [[george:source:USERDIR842|USERDIR842]], [[george:source:USEREXCP860|USEREXCP860]], [[george:source:USERLIB867|USERLIB867]], [[george:source:USERONE867|USERONE867]], [[george:source:USEROPEN867|USEROPEN867]], [[george:source:USERSTRM867|USERSTRM867]]

<code - TESTMODE.mac.txt>
 22FL ...[??? TESTMODE SECT FILE FGN 22 DOC  
 2C7W    #MAC TESTMODE   
 2CCN ...[     TESTS FOR GIVEN MODES 
 2CMG    [ ANY CHANGE TO THIS MACRO SHOULD BE MADE ONLY IN CONSULTATION WITH 
 2D76    [ THE OWENR OF OPEN-MACROS  
 2D9P    #SKI  A%D^A%E^A%F^A%G^A%H^A%I^A%J^A%K^A%L   
 2D##    (   
 2DBX    #SKI  E%D^E%E^E%F^E%G^E%H^E%I^E%J^E%K^E%L   
 2DFG    !     "A" & "E" MODES BOTH GIVEN IN TESTMODE
 2DJ6    )   
 2DLQ          SETUPMODE 0,0,%D,%E,%F,%G,%H,%I,%J,%K,%L, 
 2F6B          ANDX  0  %A   
 2FL2    #STR  NOT,%C
 2G5L          BNZ   0  %B   
 2GK=    #STR  NOT,%C
 2H4W    #SKI
 2HJG          BZE   0  %B   
 2J46    #NOR
</code>