CC-tea/org-hyperion-cules
1
0
Fork 0
mirror of https://github.com/SDL-Hercules-390/hyperion.git synced 2026-04-10 22:24:32 +02:00
Code Issues Packages Projects Releases Wiki Activity
Files
04cbb443da170f390093d7bc40015a8d451648a1
org-hyperion-cules/archlvl.c

751 lines
21 KiB
C
Raw Blame History

/* 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"
#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;
}
sysblk.dummyregs.arch_mode = sysblk.arch_mode;
OBTAIN_INTLOCK(NULL);
system_reset (sysblk.pcpu, 0, sysblk.arch_mode);
RELEASE_INTLOCK(NULL);
if ( argc == 2 )
{
if ( MLVL(VERBOSE) )
logmsg(MSG(HHC02204, "I", "archmode", get_arch_mode_string(NULL)));
}
return 0;
}
#endif /*!defined(_GEN_ARCH)*/
Reference in New Issue View Git Blame Copy Permalink