archlvl.c

/* ARCHLVL.C    (c) Copyright Jan Jaeger,   2010-2012                */
/*                                                                   */

#include "hstdinc.h"

#if !defined(_ARCHLVL_C_)
#define _ARCHLVL_C_
#endif

#if !defined(_HENGINE_DLL_)
#define _HENGINE_DLL_
#endif

#include "hercules.h"
#include "devtype.h"
#include "opcode.h"
#include "hostinfo.h"

#ifdef OPTION_FISHIO
#include "w32chan.h"
#endif

#if !defined(_GEN_ARCH)

#if defined(_ARCHMODE3)
 #define  _GEN_ARCH _ARCHMODE3
 #include "archlvl.c"
 #undef   _GEN_ARCH
#endif

#if defined(_ARCHMODE2)
 #define  _GEN_ARCH _ARCHMODE2
 #include "archlvl.c"
 #undef   _GEN_ARCH
#endif

/* Layout of the facility table */
#define FACILITY(_name, _mode, _fixed, _supp, _level) \
    { QSTR(_name), (STFL_ ## _name), (_mode), (_fixed), (_supp), (_level) },
typedef struct _FACTAB
{
    const char  *name;             /* Facility Name       */
    const BYTE   bitno;            /* Bit number          */
    const BYTE   mode;             /* Mode indicator      */
#define S370       0x01            /* S/370 feature       */
#define ESA390     0x02            /* ESA/390 feature     */
#define ZARCH      0x04            /* ESAME feature       */
#define Z390      (ZARCH|ESA390)   /* Exists in ESAME only
                                      but is also indicated
                                      in ESA390           */
    const BYTE   fixed;            /* Mandatory for       */
#define NONE       0x00
    const BYTE   supported;        /* Supported in        */
    const BYTE   alslevel;         /* alslevel grouping   */
#define ALS0       0x01            /* S/370               */
#define ALS1       0x02            /* ESA/390             */
#define ALS2       0x04            /* Z/ARCH              */
#define ALS3       0x08            /* ARCHLVL 3           */
} FACTAB;


/* Architecture level table */
#define ARCHLVL(_name, _mode, _level) \
{ (_name), (_mode), (_level) },
typedef struct _ARCHTAB
{
    const char  *name;             /* Archlvl Name        */
    const int    archmode;         /* Architecture Mode   */
    const int    alslevel;         /* Architecture Level  */
} ARCHTAB;


static ARCHTAB archtab[] =
{
#if defined(_370)
/* S/370 - ALS0 */
ARCHLVL(_ARCH_370_NAME,  ARCH_370, ALS0)
ARCHLVL("S370",          ARCH_370, ALS0)
ARCHLVL("ALS0",          ARCH_370, ALS0)
#endif

#if defined(_390)
/* ESA/390 - ALS1 */
ARCHLVL(_ARCH_390_NAME,  ARCH_390, ALS1)
ARCHLVL("ESA390",        ARCH_390, ALS1)
ARCHLVL("S/390",         ARCH_390, ALS1)
ARCHLVL("S390",          ARCH_390, ALS1)
ARCHLVL("ALS1",          ARCH_390, ALS1)
#endif

#if defined(_900)
/* z/Arch - ALS2 */
ARCHLVL("ESA/ME",        ARCH_900, ALS2)
ARCHLVL("ESAME",         ARCH_900, ALS2)
ARCHLVL("ALS2",          ARCH_900, ALS2)

/* z/Arch - ALS3 */
ARCHLVL(_ARCH_900_NAME,  ARCH_900, ALS3)
ARCHLVL("zArch",         ARCH_900, ALS3)
ARCHLVL("z",             ARCH_900, ALS3)
ARCHLVL("ALS3",          ARCH_900, ALS3)
#endif

{ NULL, 0, 0 }
};


static FACTAB factab[] =
{
/*       Facility          Default       Mandatory  Supported      Group        */
#if defined(_FEATURE_ESAME_N3_ESA390)
FACILITY(N3,               ESA390|ZARCH, NONE,      ESA390|ZARCH,  ALS1|ALS2|ALS3)
#endif
#if defined(_FEATURE_ESAME)
FACILITY(ESAME_INSTALLED,  ESA390|ZARCH, NONE,      ESA390|ZARCH,  ALS2|ALS3)
FACILITY(ESAME_ACTIVE,     ZARCH,        ZARCH,     ZARCH,         ALS2|ALS3)
#endif
#if defined(_FEATURE_DAT_ENHANCEMENT)
FACILITY(IDTE_INSTALLED,   Z390,         NONE,      Z390,          ALS2|ALS3)
FACILITY(IDTE_SC_SEGTAB,   0, /*ZARCH*/  NONE,      0, /*ZARCH*/   ALS2|ALS3)
FACILITY(IDTE_SC_REGTAB,   0, /*ZARCH*/  NONE,      0, /*ZARCH*/   ALS2|ALS3)
#endif
#if defined(_FEATURE_ASN_AND_LX_REUSE)
FACILITY(ASN_LX_REUSE,     0, /*Z390*/   NONE,      Z390,          ALS2|ALS3)
#endif

#if defined(_FEATURE_STORE_FACILITY_LIST_EXTENDED)
FACILITY(STFL_EXTENDED,    ESA390|ZARCH, NONE,      ESA390|ZARCH,  ALS2|ALS3)
#endif
#if defined(_FEATURE_ENHANCED_DAT_FACILITY)
FACILITY(ENHANCED_DAT,     Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_SENSE_RUNNING_STATUS)
FACILITY(SENSE_RUN_STATUS, Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_CONDITIONAL_SSKE)
FACILITY(CONDITIONAL_SSKE, Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_CONFIGURATION_TOPOLOGY_FACILITY)
FACILITY(CONFIG_TOPOLOGY,  Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_IPTE_RANGE_FACILITY)
FACILITY(IPTE_RANGE,       Z390,         NONE,      Z390,          ALS3)
#endif
#if defined(_FEATURE_NONQUIESCING_KEY_SETTING_FACILITY)
FACILITY(NONQ_KEY_SET,     Z390,         NONE,      Z390,          ALS3)
#endif
#if defined(_FEATURE_EXTENDED_TRANSLATION_FACILITY_2)
FACILITY(TRAN_FAC2,        ESA390|ZARCH, NONE,      ESA390|ZARCH,  ALS2|ALS3)
#endif
#if defined(_FEATURE_MESSAGE_SECURITY_ASSIST)
FACILITY(MSG_SECURITY,     ESA390|ZARCH, NONE,      ESA390|ZARCH,  ALS2|ALS3)
#endif
#if defined(_FEATURE_LONG_DISPLACEMENT)
FACILITY(LONG_DISPL_INST,  Z390,         NONE,      Z390,          ALS2|ALS3)
FACILITY(LONG_DISPL_HPERF, ZARCH,        NONE,      ZARCH,         ALS2|ALS3)
#endif
#if defined(_FEATURE_HFP_MULTIPLY_ADD_SUBTRACT)
FACILITY(HFP_MULT_ADD_SUB, ESA390|ZARCH, NONE,      ESA390|ZARCH,  ALS2|ALS3)
#endif
#if defined(_FEATURE_EXTENDED_IMMEDIATE)
FACILITY(EXTENDED_IMMED,   Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_EXTENDED_TRANSLATION_FACILITY_3)
FACILITY(TRAN_FAC3,        Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_HFP_UNNORMALIZED_EXTENSION)
FACILITY(HFP_UNNORM_EXT,   Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_ETF2_ENHANCEMENT)
FACILITY(ETF2_ENHANCEMENT, ESA390|ZARCH, NONE,      ESA390|ZARCH,  ALS2|ALS3)
#endif
#if defined(_FEATURE_STORE_CLOCK_FAST)
FACILITY(STORE_CLOCK_FAST, Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
FACILITY(PARSING_ENHANCE,  Z390,         NONE,      Z390,          ALS2|ALS3)
#if defined(_FEATURE_MOVE_WITH_OPTIONAL_SPECIFICATIONS)
FACILITY(MVCOS,            Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_TOD_CLOCK_STEERING)
FACILITY(TOD_CLOCK_STEER,  Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_ETF3_ENHANCEMENT)
FACILITY(ETF3_ENHANCEMENT, Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_EXTRACT_CPU_TIME)
FACILITY(EXTRACT_CPU_TIME, Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_COMPARE_AND_SWAP_AND_STORE)
FACILITY(CSSF,             Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_COMPARE_AND_SWAP_AND_STORE_FACILITY_2)
FACILITY(CSSF2,            Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_GENERAL_INSTRUCTIONS_EXTENSION_FACILITY)
FACILITY(GEN_INST_EXTN,    Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_EXECUTE_EXTENSIONS_FACILITY)
FACILITY(EXECUTE_EXTN,     Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_ENHANCED_MONITOR_FACILITY)
FACILITY(ENH_MONITOR,      Z390,         NONE,      Z390,          ALS3)
#endif
//FACILITY(FP_EXTENSION,     ZARCH,        NONE,      ZARCH,         ALS3)
#if defined(_FEATURE_LOAD_PROGRAM_PARAMETER_FACILITY)
FACILITY(LOAD_PROG_PARAM,  Z390,         NONE,      Z390,          ALS3)
#endif
#if defined(_FEATURE_FPS_ENHANCEMENT)
FACILITY(FPS_ENHANCEMENT,  Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_DECIMAL_FLOATING_POINT)
FACILITY(DECIMAL_FLOAT,    Z390,         NONE,      Z390,          ALS2|ALS3)
FACILITY(DFP_HPERF,        Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_PFPO)
FACILITY(PFPO,             Z390,         NONE,      Z390,          ALS2|ALS3)
#endif
#if defined(_FEATURE_FAST_BCR_SERIALIZATION_FACILITY)
FACILITY(FAST_BCR_SERIAL,  Z390,         NONE,      Z390,          ALS3)
#endif
#if defined(_FEATURE_CMPSC_ENHANCEMENT_FACILITY)
FACILITY(CMPSC_ENH,        ZARCH,        NONE,      ZARCH,         ALS3)
#endif
#if defined(_FEATURE_RESET_REFERENCE_BITS_MULTIPLE_FACILITY)
FACILITY(RES_REF_BITS_MUL, Z390,         NONE,      Z390,          ALS3)
#endif
#if defined(_FEATURE_CPU_MEASUREMENT_COUNTER_FACILITY)
FACILITY(CPU_MEAS_COUNTER, Z390,         NONE,      Z390,          ALS3)
#endif
#if defined(_FEATURE_CPU_MEASUREMENT_SAMPLING_FACILITY)
FACILITY(CPU_MEAS_SAMPLNG, Z390,         NONE,      Z390,          ALS3)
#endif
#if defined(_FEATURE_ACCESS_EXCEPTION_FETCH_STORE_INDICATION)
FACILITY(ACC_EX_FS_INDIC,  Z390,         NONE,      Z390,          ALS3)
#endif
#if defined(_FEATURE_MESSAGE_SECURITY_ASSIST_EXTENSION_3)
FACILITY(MSA_EXTENSION_3,  Z390,         NONE,      Z390,          ALS3)
#endif
#if defined(_FEATURE_MESSAGE_SECURITY_ASSIST_EXTENSION_4)
FACILITY(MSA_EXTENSION_4,  Z390,         NONE,      Z390,          ALS3)
#endif

/* The Following entries are not part of STFL(E) but do indicate the availability of facilities */
FACILITY(MOVE_INVERSE,     S370|ESA390|ZARCH, ZARCH, S370|ESA390|ZARCH, ALS0|ALS1|ALS2|ALS3)
#if defined(_FEATURE_MESSAGE_SECURITY_ASSIST_EXTENSION_1)
FACILITY(MSA_EXTENSION_1,  Z390,         NONE,      Z390,          ALS3)
#endif
#if defined(_FEATURE_MESSAGE_SECURITY_ASSIST_EXTENSION_2)
FACILITY(MSA_EXTENSION_2,  Z390,         NONE,      Z390,          ALS3)
#endif
#if defined(_FEATURE_HERCULES_DIAGCALLS)
FACILITY(PROBSTATE_DIAGF08,NONE,         NONE,      S370|ESA390|ZARCH, NONE)
FACILITY(SIGP_SETARCH_S370,NONE,         NONE,      S370|ESA390|ZARCH, NONE)
#if defined(_FEATURE_HOST_RESOURCE_ACCESS_FACILITY)
FACILITY(HOST_RESOURCE_ACCESS,NONE,      NONE,      S370|ESA390|ZARCH, NONE)
#endif
#endif /*defined(_FEATURE_HERCULES_DIAGCALLS)*/
#if defined(_FEATURE_QEBSM)
FACILITY(QEBSM,            Z390,         NONE,      Z390,          ALS3)
#endif /*defined(_FEATURE_QEBSM)*/
#if defined(_FEATURE_QDIO_THININT)
FACILITY(QDIO_THININT,     Z390,         NONE,      Z390,          ALS3)
#endif /*defined(_FEATURE_QDIO_THININT)*/
#if defined(_FEATURE_QDIO_TDD)
FACILITY(QDIO_TDD,         NONE,         NONE,      Z390,          ALS3)
#endif /*defined(_FEATURE_QDIO_TDD)*/
#if defined(_FEATURE_SVS)
FACILITY(SVS,              Z390,         NONE,      Z390,          ALS3)
#endif /*defined(_FEATURE_SVS)*/
#if defined(_FEATURE_HYPERVISOR)
FACILITY(LOGICAL_PARTITION,S370|ESA390|ZARCH, NONE, S370|ESA390|ZARCH, ALS0|ALS1|ALS2|ALS3)
#endif /*defined(_FEATURE_HYPERVISOR)*/
#if defined(_FEATURE_EMULATE_VM)
FACILITY(VIRTUAL_MACHINE,  NONE,         NONE,      S370|ESA390|ZARCH, NONE)
#endif
// #if defined(_FEATURE_QDIO_ASSIST)
FACILITY(QDIO_ASSIST,      NONE,         NONE,      Z390,          ALS3)
// #endif
#if defined(_FEATURE_INTERVAL_TIMER)
FACILITY(INTERVAL_TIMER,   S370|ESA390|ZARCH, ESA390|ZARCH, S370|ESA390|ZARCH, ALS0|ALS1|ALS2|ALS3)
#endif
FACILITY(DETECT_PGMINTLOOP,S370|ESA390|ZARCH, NONE, S370|ESA390|ZARCH, ALS0|ALS1|ALS2|ALS3)

{ NULL, 0, 0, 0, 0, 0 }
};


void init_als(REGS *regs)
{
int i;

    for(i = 0; i < STFL_HBYTESIZE; i++)
        regs->facility_list[i] = sysblk.facility_list[regs->arch_mode][i];
}


static void set_alslevel(int alslevel)
{
FACTAB *tb;
int i,j;

    for(i = 0; i < STFL_HBYTESIZE; i++)
        for(j = 0; j < GEN_MAXARCH; j++)
            sysblk.facility_list[j][i] = 0;

    for(tb = factab; tb->name; tb++)
    {
    int fbyte, fbit;

        fbyte = tb->bitno / 8;
        fbit = 0x80 >> (tb->bitno % 8);

        if(tb->alslevel & alslevel)
        {
#if defined(_370)
            if(tb->mode & S370)
                sysblk.facility_list[ARCH_370][fbyte] |= fbit;
#endif
#if defined(_390)
            if(tb->mode & ESA390)
                sysblk.facility_list[ARCH_390][fbyte] |= fbit;
#endif
#if defined(_900)
            if(tb->mode & ZARCH)
                sysblk.facility_list[ARCH_900][fbyte] |= fbit;
#endif
        }
    }
}


static ARCHTAB *get_archtab(char *name)
{
ARCHTAB *tb;

    for(tb = archtab; tb->name; tb++)
        if(!strcasecmp(name,tb->name))
            return tb;

    return NULL;
}


static char *get_facname(int bitno)
{
FACTAB *tb;
static char name[8];

    for(tb = factab; tb->name; tb++)
        if(bitno == tb->bitno)
            return (char *)tb->name;

    snprintf(name,sizeof(name),"bit%d",bitno);

    return name;
}


static FACTAB *get_factab(char *name)
{
FACTAB *tb;

    for(tb = factab; tb->name; tb++)
        if(!strcasecmp(name,tb->name))
            return tb;

    return NULL;
}


int set_archlvl(char *name)
{
ARCHTAB *tb;

    if((tb = get_archtab(name)))
    {
        sysblk.arch_mode = tb->archmode;
        set_alslevel(tb->alslevel);
        return TRUE;
    }

    return FALSE;
}


static void force_facbit(int bitno, int enable, BYTE mode)
{
int fbyte, fbit;

    fbyte = bitno / 8;
    fbit = 0x80 >> (bitno % 8);

    if(enable)
    {
#if defined(_370)
        if( S370 & mode )
            if ( !(sysblk.facility_list[ARCH_370][fbyte] & fbit) )
            {
                sysblk.facility_list[ARCH_370][fbyte] |= fbit;
                if(MLVL(VERBOSE))
                    logmsg(MSG(HHC00898, "I", get_facname(bitno), "en", _ARCH_370_NAME));
            }
#endif
#if defined(_390)
        if( ESA390 & mode )
            if ( !(sysblk.facility_list[ARCH_390][fbyte] & fbit) )
            {
                sysblk.facility_list[ARCH_390][fbyte] |= fbit;
                if(MLVL(VERBOSE))
                    logmsg(MSG(HHC00898, "I", get_facname(bitno), "en", _ARCH_390_NAME));
            }
#endif
#if defined(_900)
        if( ZARCH & mode )
            if ( !(sysblk.facility_list[ARCH_900][fbyte] & fbit) )
            {
                sysblk.facility_list[ARCH_900][fbyte] |= fbit;
                if(MLVL(VERBOSE))
                    logmsg(MSG(HHC00898, "I", get_facname(bitno), "en", _ARCH_900_NAME)); 
            }
#endif
    }
    else
    {
#if defined(_370)
        if( S370 & mode )
            if ( sysblk.facility_list[ARCH_370][fbyte] & fbit )
            {
                sysblk.facility_list[ARCH_370][fbyte] &= ~fbit;
                if(MLVL(VERBOSE))
                    logmsg(MSG(HHC00898, "I", get_facname(bitno), "dis", _ARCH_370_NAME));
            }
#endif
#if defined(_390)
        if( ESA390 & mode )
            if ( sysblk.facility_list[ARCH_390][fbyte] & fbit )
            {
                sysblk.facility_list[ARCH_390][fbyte] &= ~fbit;
                if(MLVL(VERBOSE))
                    logmsg(MSG(HHC00898, "I", get_facname(bitno), "dis", _ARCH_390_NAME));
            }
#endif
#if defined(_900)
        if( ZARCH & mode )
            if ( sysblk.facility_list[ARCH_900][fbyte] & fbit ) 
            {
                sysblk.facility_list[ARCH_900][fbyte] &= ~fbit;
                if(MLVL(VERBOSE))
                    logmsg(MSG(HHC00898, "I", get_facname(bitno), "dis", _ARCH_900_NAME));
            }
#endif
    }
}

static void set_facility(FACTAB *facility, int enable, BYTE mode)
{
int fbyte, fbit;

    fbyte = facility->bitno / 8;
    fbit = 0x80 >> (facility->bitno % 8);

    if( !(facility->supported & mode) )
    {
        logmsg(MSG(HHC00896, "E", facility->name));
        return;
    }

#if defined(_370)
    if( facility->supported & S370 & mode )
    {
        if(enable)
        {
            if ( !(sysblk.facility_list[ARCH_370][fbyte] & fbit) )
                sysblk.facility_list[ARCH_370][fbyte] |= fbit;

            if(MLVL(VERBOSE))
                logmsg(MSG(HHC00898, "I", facility->name, "en", _ARCH_370_NAME));
        }
        else
        {
            if ( !(facility->fixed & S370) )
            {
                if ( sysblk.facility_list[ARCH_370][fbyte] & fbit )
                    sysblk.facility_list[ARCH_370][fbyte] &= ~fbit;

                if(MLVL(VERBOSE))
                    logmsg(MSG(HHC00898, "I", facility->name, "dis", _ARCH_370_NAME));
            }
        }
    }
#endif
#if defined(_390)
    if( facility->supported & ESA390 & mode )
    {
        if(enable)
        {
            if ( !(sysblk.facility_list[ARCH_390][fbyte] & fbit) )
                sysblk.facility_list[ARCH_390][fbyte] |= fbit;

            if(MLVL(VERBOSE))
                logmsg(MSG(HHC00898, "I", facility->name, "en", _ARCH_390_NAME));
        }
        else
        {
            if ( !(facility->fixed & ESA390) )
            {   
                if ( sysblk.facility_list[ARCH_390][fbyte] & fbit )
                    sysblk.facility_list[ARCH_390][fbyte] &= ~fbit;
            }

            if(MLVL(VERBOSE))
                logmsg(MSG(HHC00898, "I", facility->name, "dis", _ARCH_390_NAME));
        }
    }
#endif
#if defined(_900)
    if( facility->supported & ZARCH & mode )
    {
        if(enable)
        {
            if ( !(sysblk.facility_list[ARCH_900][fbyte] & fbit) )
                sysblk.facility_list[ARCH_900][fbyte] |= fbit;

            if(MLVL(VERBOSE))
                logmsg(MSG(HHC00898, "I", facility->name, "en", _ARCH_900_NAME)); 
        }
        else
        { 
            if ( !(facility->fixed & ZARCH) )
            {
                if ( sysblk.facility_list[ARCH_900][fbyte] & fbit ) 
                    sysblk.facility_list[ARCH_900][fbyte] &= ~fbit;

                if(MLVL(VERBOSE))
                    logmsg(MSG(HHC00898, "I", facility->name, "dis", _ARCH_900_NAME));
            }
        }
    }
#endif

    return;
}


static int update_archlvl(int argc, char *argv[])
{
FACTAB *tb;
ARCHTAB *ab;
int enable;
int bitno;
char c;
const BYTE arch2als[] = {
#if defined(_370)
 S370
  #if defined(_390) || defined(_900) 
 ,
  #endif // defined(_390) || defined(_900)
#endif

#if defined(_390)
 ESA390
  #if defined(_900) 
 ,
  #endif // defined(_900)
#endif

#if defined(_900)
 ZARCH
#endif
};
BYTE als = 
#if defined(_370)
 S370
  #if defined(_390) || defined(_900) 
 |
  #endif
#endif

#if defined(_390)
 ESA390
  #if defined(_900) 
 |
  #endif
#endif

#if defined(_900)
 ZARCH
#endif
 ;

    if( CMD(argv[1],enable,3) )
        enable = TRUE;
    else
    if( CMD(argv[1],disable,4) )
        enable = FALSE;
    else
        return -1;

    if(argc < 3) 
    {
        logmsg(MSG(HHC00892, "E"));
        return 0;
    }

    if(argc == 4)
    {
        if(!(ab = get_archtab(argv[3])))
        {
            logmsg(MSG(HHC00895, "E", argv[3]));
            return 0;
        }
        als = arch2als[ab->archmode];
    }

    if((tb = get_factab(argv[2])))
        set_facility(tb, enable, als );
    else
    if(!strncasecmp("bit",argv[2],3)
      && isdigit(*(argv[2]+3))
      && sscanf(argv[2]+3, "%d%c", &bitno, &c ) == 1
      && bitno >= 0 && bitno <= STFL_HMAX)
        force_facbit(bitno,enable,als);
    else
        logmsg(MSG(HHC00893, "E", argv[2])); 

    return 0;
}


/*-------------------------------------------------------------------*/
/* archlvl command - set architecture level set                      */
/*-------------------------------------------------------------------*/
/*

  usage:

        archlvl s/370|als0 | esa/390|als1 | esame|als2 | z/arch|als3

                enable|disable <facility> [s/370|esa/390|z/arch]

                query <facility>|all

*/


int archlvl_cmd(int argc, char *argv[], char *cmdline)
{
    int i;

    UNREFERENCED(cmdline);

    if (argc < 2)
    {
        logmsg(MSG(HHC02203, "I", "archmode", get_arch_mode_string(NULL)));
        return 0;
    }
    
    if ( argc > 4 )
    {
        logmsg(MSG(HHC02299, "E", argv[0]));
        return -1;
    }

    if( CMD(argv[1],query,1) )
    {
    FACTAB *tb;
    int     fcnt = 0;

        if ( argc > 3 )
        {
            logmsg(MSG(HHC02299, "E", argv[0]));
            return -1;
        }

        for(tb = factab; tb->name; tb++)
        {
        int fbyte, fbit;
    
            fbyte = tb->bitno / 8;
            fbit = 0x80 >> (tb->bitno % 8);

            if( argc < 3 || CMD(argv[2],all,3) || !strcasecmp( argv[2], tb->name ) )
            { 
                fcnt++;
                logmsg(MSG(HHC00890, "I", tb->name,
                       sysblk.facility_list[sysblk.arch_mode][fbyte] & fbit
                        ? "En" : "Dis"));
            }
        }

        if (!fcnt)
        {
        int     bitno;
        char    c;

            if(!strncasecmp("bit",argv[2],3) 
              && isdigit(*(argv[2]+3))
              && sscanf(argv[2]+3,"%d%c",&bitno, &c) == 1 
              && bitno >= 0 && bitno <= STFL_HMAX)
            {
            int fbyte, fbit;
    
                fbyte = bitno / 8;
                fbit = 0x80 >> (bitno % 8);
                logmsg(MSG(HHC00890, "I", get_facname(bitno),
                       sysblk.facility_list[sysblk.arch_mode][fbyte] & fbit
                        ? "En" : "Dis"));
            }
            else
            {
                logmsg("HHC00891 Facility %s not found\n",argv[2]);
                return -1;
            }
        }
        
        return 0;
    }

    /* Make sure all CPUs are deconfigured or stopped */
    
    OBTAIN_INTLOCK(NULL);
    if(sysblk.cpus)
        for(i = 0; i < sysblk.maxcpu; i++)
            if(IS_CPU_ONLINE(i) && sysblk.regs[i]->cpustate == CPUSTATE_STARTED)
            {
                RELEASE_INTLOCK(NULL);
                logmsg(MSG(HHC02253, "E"));
                return HERRCPUONL;
            }
    RELEASE_INTLOCK(NULL);

    if(!set_archlvl(argv[1]))
        if(update_archlvl(argc, argv))
        {
            logmsg(MSG(HHC02205, "E", argv[1], ""));
            return -1;
        }

#if defined(OPTION_FISHIO)
    ios_arch_mode =
#endif /* defined(OPTION_FISHIO) */
    sysblk.dummyregs.arch_mode = sysblk.arch_mode;

    if ( argc == 2 )
    {
        if ( MLVL(VERBOSE) )
            logmsg(MSG(HHC02204, "I", "archmode", get_arch_mode_string(NULL)));
    }

    return 0;
}

#endif /*!defined(_GEN_ARCH)*/