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

I7000: Fixed bug in tape controller breaking Fortran II under IBSYS.

Browse Source
This commit is contained in:
Richard Cornwell
2017-10-15 13:16:15 -04:00
parent d82d41af1b
commit b75da8f55c
2 changed files with 7 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
I7000/STATUS.txt
View File

@@ -18,7 +18,7 @@ i7090: Working with exceptions.
CTSS works.
Share Lisp 1.5 does not boot.
Share Lisp 1.5 works.
Signifigence mode Not tested Need.
@@ -42,7 +42,6 @@ i7080: Sort of working.
TLx instructions implimented, untested, see 8SE
Will boot from card.
Tape system appear to be working.
Tape system will not pass diags.
8CU10B errors:
410, 412, 413, 414, 418, 419, 420-427 error becuase

16
I7000/i7000_mt.c
View File

@@ -432,8 +432,7 @@ uint32 mt_cmd(UNIT * uptr, uint16 cmd, uint16 dev)
#endif
chan_set_sel(chan, 0);
chan_clear_status(chan);
mt_chan[chan] = 0;
mt_chan[chan] |= MTC_BSY | MTC_SEL | unit;
mt_chan[chan] = MTC_BSY | MTC_SEL | unit;
uptr->u5 &= ~(MT_RM|MT_EOR|MT_EGAP);
uptr->u6 = -1;
uptr->hwmark = -1;
@@ -471,8 +470,7 @@ uint32 mt_cmd(UNIT * uptr, uint16 cmd, uint16 dev)
uptr->hwmark = 0;
chan_set_sel(chan, 1);
chan_clear_status(chan);
mt_chan[chan] = 0;
mt_chan[chan] |= MTC_BSY | MTC_SEL | unit;
mt_chan[chan] = MTC_BSY | MTC_SEL | unit;
uptr->u5 &= ~(MT_MARK | MT_EOT);
#if I7010 | I7080
chan_set(chan, STA_TWAIT);
@@ -491,8 +489,7 @@ uint32 mt_cmd(UNIT * uptr, uint16 cmd, uint16 dev)
uptr->u5 |= MT_RDB;
chan_set_sel(chan, 0);
chan_clear_status(chan);
mt_chan[chan] = 0;
mt_chan[chan] |= MTC_BSY | MTC_SEL | unit;
mt_chan[chan] = MTC_BSY | MTC_SEL | unit;
uptr->u5 &= ~(MT_RM|MT_EOR|MT_EGAP);
uptr->u6 = -1;
uptr->hwmark = -1;
@@ -513,13 +510,13 @@ uint32 mt_cmd(UNIT * uptr, uint16 cmd, uint16 dev)
return SCPE_IOERR;
}
uptr->u5 |= MT_WEF;
mt_chan[chan] |= MTC_BSY;
#if I7010
chan_set_sel(chan, 1);
chan_clear_status(chan);
mt_chan[chan] = 0;
mt_chan[chan] |= MTC_BSY | MTC_SEL | unit;
mt_chan[chan] = MTC_BSY | MTC_SEL | unit;
chan_set(chan, STA_TWAIT);
#else
mt_chan[chan] = MTC_BSY;
#endif
sim_debug(DEBUG_CMD, dptr, "WEF unit=%d\n", unit);
break;
@@ -771,7 +768,6 @@ t_stat mt_srv(UNIT * uptr)
uptr->hwmark = 0;
chan_clear(chan, DEV_DISCO | DEV_WEOR);
sim_activate(uptr, reclen * T1_us);
mt_chan[chan] = 0;
return SCPE_OK;
} else {
#ifndef I7010