folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

SDS: Reset CR DEVICE cr_eor on disconnect. Caused algol compiler to hang.

Browse source
This commit is contained in:
ken rector 2023-03-11 08:06:46 -08:00 • committed by Paul Koning
parent cf9fac614c
commit f1811c49bd
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
SDS/sds_cr.c
View file

@ -24,6 +24,7 @@
in this Software without prior written authorization from Ken Rector. in this Software without prior written authorization from Ken Rector.
03-Mar-20 kenr Initial Version 03-Mar-20 kenr Initial Version
10-Mar-23 kenr Reset cr_eor on disconnect
*/ */
@ -220,6 +221,8 @@ t_stat cr_devio (uint32 fnc, uint32 inst, uint32 *dat) {
case IO_DISC: /* disconnect */ case IO_DISC: /* disconnect */
xfr_req = xfr_req & ~XFR_CR; /* clr xfr flag */ xfr_req = xfr_req & ~XFR_CR; /* clr xfr flag */
sim_cancel (uptr); /* deactivate unit */ sim_cancel (uptr); /* deactivate unit */
cr_eor = 0;
uptr->STATUS = 0;
break; break;
case IO_SKS: /* SKS */ case IO_SKS: /* SKS */
new_ch = I_GETSKCH (inst); /* get chan # */ new_ch = I_GETSKCH (inst); /* get chan # */