TESTMODE

(GIN Macro)

Used in: ASSIGN860, COMPOST867, LIBREQ866, LIBSEC867, MAKEFILE863, OPENFILE867, OPENREL865, OPENTWO867, OPENWAIT867, ORELEMPT70, ORELEND860, ORELHALF82, ORELMAIN867, USERDIR842, USEREXCP860, USERLIB867, USERONE867, USEROPEN867, USERSTRM867

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