CC-tea/org-hyperion-cules
1
0
Fork 0
mirror of https://github.com/SDL-Hercules-390/hyperion.git synced 2026-05-15 23:02:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Set manufacterer code to HRC in STSI

Browse Source 
Add STSI to S/370 mode


git-svn-id: file:///home/jj/hercules.svn/trunk@922 956126f8-22a0-4046-8f4a-272fa8102e63
This commit is contained in:
Jan Jaeger
2002-06-19 18:26:58 +00:00
parent 5ccdf66644
commit f2ef0878bd
4 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGES
View File

@@ -1,3 +1,4 @@
19 Jun 2002 Set manufacterer to HRC for STSI - Jan Jaeger
18 Jun 2002 FBA dasdtab updates - Tomas Masek by Greg Smith
18 Jun 2002 Fix NRF condition for CKD dasd - Greg Smith
17 Jun 2002 Fix segmentation fault during cckd compress - Greg Smith

8
control.c
View File

@@ -707,7 +707,7 @@ RADR abs2; /* absolute address of op2 */
abs2 = LOGICAL_TO_ABS (n2, r2, regs, ACCTYPE_WRITE, regs->psw.pkey);
/* Load second operand from operand address */
n1 = fetch_fw(sysblk.mainstor + abs2);
FETCH_FW(n1, sysblk.mainstor + abs2);
/* Compare operand with R1 register contents */
if ( regs->GR_L(r1) == n1 )
@@ -5373,12 +5373,12 @@ SYSIB222 *sysib222; /* LPAR CPUs */
SYSIB322 *sysib322; /* VM CPUs */
SYSIBVMDB *sysib322; /* VM description block */
#endif
static BYTE manufact[16] = { 0xD1,0xC1,0xD5,0xD1,0xC1,0xC5,0xC7,0xC5,
0xD9,0x40,0x40,0x40,0x40,0x40,0x40,0x40 };
static BYTE manufact[16] = { 0xC8,0xD9,0xC3,0x40,0x40,0x40,0x40,0x40,
0x40,0x40,0x40,0x40,0x40,0x40,0x40,0x40 };
static BYTE plant[4] = { 0xE9,0xE9,0x40,0x40 };
static BYTE hexebcdic[16] = { 0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,
0xF8,0xF9,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6 };
static BYTE model[8] = { 0xC8,0xC5,0xD9,0xC3,0xE4,0xD3,0xC5,0xE2 };
static BYTE model[8] = { 0xC5,0xD4,0xE4,0xD3,0xC1,0xE3,0xD6,0xD9 };
static BYTE mpfact[32] = { 0x00,0x4B,0x00,0x4B,0x00,0x4B,0x00,0x4B,
0x00,0x4B,0x00,0x4B,0x00,0x4B,0x00,0x4B,
0x00,0x4B,0x00,0x4B,0x00,0x4B,0x00,0x4B,

2
feat370.h
View File

@@ -17,5 +17,7 @@
#define FEATURE_S370_CHANNEL
#define FEATURE_CHANNEL_SWITCHING
/* Hercules special */
#define FEATURE_STORE_SYSTEM_INFORMATION
#endif /*defined(OPTION_370_MODE)*/
/* end of FEAT370.H */

2
opcode.c
View File

@@ -1956,7 +1956,7 @@ zz_func opcode_b2xx[256][GEN_MAXARCH] = {
/*B27A*/ GENx___x___x___ , /* Sysplex */
/*B27B*/ GENx___x___x___ , /* TFF/Sysplx*/
/*B27C*/ GENx___x___x___ , /* Sysplex */
/*B27D*/ GENx___x390x900 (store_system_information,S,"STSI"),
/*B27D*/ GENx370x390x900 (store_system_information,S,"STSI"),
/*B27E*/ GENx___x___x___ , /* Sysplex */
/*B27F*/ GENx___x___x___ , /* Sysplex */
/*B280*/ GENx___x___x___ , /*#LN L */