github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-21 02:07:41 +00:00
Code Releases Activity

IBM360: Cleanup console cancel support.

Browse Source
This commit is contained in:
Richard Cornwell 2021-11-01 18:21:14 -04:00
parent 2bbaf3c2ce
commit 09c1a2c405
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
IBM360/ibm360_con.c
View File

@ -117,7 +117,7 @@ void
con_ini(UNIT *uptr, t_bool f) {
int u = (uptr - con_unit);
con_data[u].inptr = 0;
uptr->CMD &= ~(CON_MSK|CON_REQ|CON_INPUT|CON_CR);
uptr->CMD &= ~(CON_MSK|CON_REQ|CON_INPUT|CON_CR|CON_CANCEL);
uptr->SNS = 0;
sim_activate(uptr, 1000);
}
@ -384,10 +384,13 @@ con_srv(UNIT *uptr) {
} else {
if (cmd == CON_RD && ch == 03) { /* Cancel */
chan_end(addr, SNS_CHNEND|SNS_DEVEND|SNS_UNITEXP);
uptr->CMD &= ~CON_INPUT;
uptr->CMD &= ~(CON_INPUT|CON_CANCEL);
con_data[u].inptr = 0;
cmd = 0;
} else {
sim_debug(DEBUG_CMD, &con_dev, "%d: error %x\n", u, cmd);
if (cmd == 0)
uptr->CMD |= CON_REQ;
sim_putchar('\007');
}
}