github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-13 15:27:04 +00:00
Code Releases Activity

IBM360: Clear flags on seach header equal, to allow DOSVS to IPL.

Browse Source
This commit is contained in:
Richard Cornwell 2021-12-26 20:21:50 -05:00
parent 5d1e31d949
commit a3b5a536b4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
IBM360/ibm360_dasd.c
View File

@ -1123,7 +1123,7 @@ sense_end:
if (state == DK_POS_HA && count == 0) {
sim_debug(DEBUG_DETAIL, dptr, "search HA unit=%d %x %d %x\n",
unit, state, count, uptr->CCH);
uptr->CMD &= ~DK_SRCOK;
uptr->CMD &= ~(DK_SRCOK|DK_SHORTSRC|DK_NOEQ|DK_HIGH);
uptr->CMD |= DK_PARAM;
break;
}
@ -1137,8 +1137,8 @@ sense_end:
uptr->CMD |= DK_NOEQ;
}
sim_debug(DEBUG_DETAIL, dptr,
"search HA unit=%d %d %x %02x=%02x %d\n", unit,
count, state, ch, *da, data->tpos);
"search HA unit=%d %d %x %02x=%02x %d e=%d\n", unit,
count, state, ch, *da, data->tpos, (uptr->CMD & DK_NOEQ) != 0);
/* At end of count */
if (count == 4 || uptr->CMD & DK_SHORTSRC) {
uptr->LCMD = cmd;