1
0
mirror of https://github.com/simh/simh.git synced 2026-02-26 08:44:38 +00:00

KA10: Fixed TM10A to request first word at issue of write instruction.

This commit is contained in:
Richard Cornwell
2023-01-28 12:48:14 -10:00
committed by Mark Pizzolato
parent 023e074293
commit 9f0d7a1c20

View File

@@ -302,10 +302,16 @@ t_stat mt_devio(uint32 dev, uint64 *data) {
break;
case WRITE:
/* Check if write locked? */
if ((uptr->flags & MTUF_WLK) != 0) {
mt_status |= IDLE_UNIT|ILL_OPR|EOF_FLAG;
break;
}
/* Request first word */
if ((dptr->flags & MTDF_TYPEB) == 0) {
mt_status |= DATA_REQUEST;
set_interrupt_mpx(MT_DEVNUM, mt_pia, mt_mpx_lvl);
}
/* Fall through */
case WTM:
@@ -761,10 +767,6 @@ t_stat mt_srv(UNIT * uptr)
uptr->CPOS = 0;
uptr->BPOS = 0;
mt_status |= (uint64)(1) << 18;
if ((dptr->flags & MTDF_TYPEB) == 0) {
mt_status |= DATA_REQUEST;
set_interrupt_mpx(MT_DEVNUM, mt_pia, mt_mpx_lvl);
}
break;
}
/* Force error if we exceed buffer size */