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

I7000: Fixes to allow for output tape switching.

Browse Source
This commit is contained in:
Richard Cornwell
2023-05-09 12:22:53 -04:00
parent 162b7eee94
commit 43f59ab59c
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
I7000/i7000_mt.c
View File

@@ -798,6 +798,7 @@ t_stat mt_srv(UNIT * uptr)
switch (cmd) {
case 0: /* No command, stop tape */
uptr->u5 |= MT_RDY; /* Ready since command is done */
mt_chan[chan] &= ~MTC_BSY;
sim_debug(DEBUG_DETAIL, dptr, "Idle unit=%d\n", unit);
return SCPE_OK;
@@ -1171,6 +1172,7 @@ t_stat mt_srv(UNIT * uptr)
sim_activate(uptr, T2_us);
} else {
uptr->u3 -= reclen;
sim_debug(DEBUG_DETAIL, dptr, "Backspace file record unit=%d\n", unit);
sim_activate(uptr, T2_us + (reclen * T1_us));
}
return SCPE_OK;

8
I7000/i7090_cdr.c
View File

@@ -109,8 +109,12 @@ uint32 cdr_cmd(UNIT * uptr, uint16 cmd, uint16 dev)
}
return SCPE_BUSY;
}
chan_set_attn(chan);
return SCPE_NODEV;
uptr->wait = 0;
uptr->u5 |= URCSTA_READ | URCSTA_CMD | (24 << CDRPOSSHIFT);
chan_set_sel(chan, 0);
chan_clear_status(chan);
sim_activate(uptr, us_to_ticks(1000)); /* activate */
return SCPE_OK;
}
t_stat cdr_srv(UNIT * uptr)