github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-04-03 12:22:52 +00:00
Code Releases Activity

IBM360: Fixed OS/VS1 build issue.

Browse Source
This commit is contained in:
Richard Cornwell
2022-02-02 20:09:36 -05:00
parent 7229a20a1f
commit 30342544ad
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
IBM360/ibm360_chan.c
View File

@@ -473,6 +473,7 @@ start_cmd:
return 1;
chan->chan_status &= 0xff;
chan->chan_status |= dibp->start_cmd(uptr, chan->ccw_cmd) << 8;
/* If device is busy, check if last was CC, then mark pending */
if (chan->chan_status & STATUS_BUSY) {
sim_debug(DEBUG_DETAIL, &cpu_dev, "Channel %03x busy %d\n",
chan->daddr, cc);
@@ -482,6 +483,7 @@ start_cmd:
return 0;
}
/* Check if any errors from initial command */
if (chan->chan_status & (STATUS_ATTN|STATUS_CHECK|STATUS_EXPT)) {
sim_debug(DEBUG_DETAIL, &cpu_dev, "Channel %03x abort %04x\n",
chan->daddr, chan->chan_status);
@@ -491,6 +493,7 @@ start_cmd:
irq_pend = 1;
return 1;
}
/* Check if immediate channel end */
if (chan->chan_status & STATUS_CEND) {
chan->ccw_cmd = 0;

6
IBM360/ibm360_con.c
View File

@@ -139,7 +139,7 @@ uint8 con_startcmd(UNIT *uptr, uint8 cmd) {
sim_debug(DEBUG_CMD, &con_dev, "%d: Cmd RD\n", u);
if (uptr->CMD & CON_REQ) {
uptr->CMD &= ~CON_REQ;
return SNS_ATTN|SNS_BSY;
return SNS_ATTN;
}
if ((uptr->CMD & CON_INPUT) == 0 &&
@@ -162,7 +162,7 @@ uint8 con_startcmd(UNIT *uptr, uint8 cmd) {
sim_debug(DEBUG_CMD, &con_dev, "%d: Cmd WR\n", u);
if (uptr->CMD & CON_REQ) {
uptr->CMD &= ~CON_REQ;
return SNS_ATTN|SNS_BSY;
return SNS_ATTN;
}
uptr->CMD |= cmd & CON_MSK;
uptr->SNS = 0;
@@ -178,7 +178,7 @@ uint8 con_startcmd(UNIT *uptr, uint8 cmd) {
sim_debug(DEBUG_CMD, &con_dev, "%d: Cmd NOP\n", u);
if (uptr->CMD & CON_REQ) {
uptr->CMD &= ~CON_REQ;
return SNS_ATTN|SNS_BSY;
return SNS_ATTN;
}
uptr->SNS = 0;
return SNS_CHNEND|SNS_DEVEND;