mirror of
https://github.com/simh/simh.git
synced 2026-04-30 13:31:36 +00:00
TX-0: Stop ptp_svc from setting the ios bit
sim_instr never clears it and simulation loops. The CPU-to-device routines and device service routines need a redesign. In the meantime, this quick patch makes tape punching possible.
This commit is contained in:
committed by
Mark Pizzolato
parent
bb9fa6f258
commit
cce97b7d6c
@@ -524,7 +524,6 @@ int32 ptp (int32 inst, int32 dev, int32 dat)
|
|||||||
|
|
||||||
t_stat ptp_svc (UNIT *uptr)
|
t_stat ptp_svc (UNIT *uptr)
|
||||||
{
|
{
|
||||||
ios = 1; /* restart */
|
|
||||||
iosta = iosta | IOS_PTP; /* set flag */
|
iosta = iosta | IOS_PTP; /* set flag */
|
||||||
if ((uptr->flags & UNIT_ATT) == 0) /* not attached? */
|
if ((uptr->flags & UNIT_ATT) == 0) /* not attached? */
|
||||||
return SCPE_UNATT;
|
return SCPE_UNATT;
|
||||||
|
|||||||
Reference in New Issue
Block a user