1
0
mirror of https://github.com/rcornwell/sims.git synced 2026-04-05 05:13:22 +00:00

I7000: Updated to new sim_card interface.

This commit is contained in:
Richard Cornwell
2018-07-27 11:19:11 -04:00
parent 864cae8ff3
commit 7e04a85a6c
8 changed files with 12 additions and 12 deletions

View File

@@ -217,15 +217,15 @@ cdp_srv(UNIT *uptr) {
#else
switch(sim_punch_card(uptr, image)) {
#endif
case SCPE_EOF:
case SCPE_UNATT:
case CDSE_EOF:
case CDSE_EMPTY:
chan_set_eof(chan);
break;
/* If we get here, something is wrong */
case SCPE_IOERR:
case CDSE_ERROR:
chan_set_error(chan);
break;
case SCPE_OK:
case CDSE_OK:
break;
}
uptr->u5 &= ~URCSTA_FULL;

View File

@@ -199,25 +199,25 @@ cdr_srv(UNIT *uptr) {
if (uptr->u4 == 0 && uptr->u5 & URCSTA_READ &&
(uptr->u5 & URCSTA_CARD) == 0) {
switch(sim_read_card(uptr, image)) {
case SCPE_EOF:
case CDSE_EOF:
sim_debug(DEBUG_DETAIL, &cdr_dev, "%d: EOF\n", u);
/* Fall through */
case SCPE_UNATT:
case CDSE_EMPTY:
chan_set_eof(chan);
chan_set_attn(chan);
chan_clear(chan, DEV_SEL);
uptr->u5 |= URCSTA_EOF;
uptr->u5 &= ~(URCSTA_BUSY|URCSTA_READ);
return SCPE_OK;
case SCPE_IOERR:
case CDSE_ERROR:
sim_debug(DEBUG_DETAIL, &cdr_dev, "%d: ERF\n", u);
uptr->u5 |= URCSTA_ERR;
uptr->u5 &= ~(URCSTA_BUSY|URCSTA_READ);
chan_set_attn(chan);
chan_clear(chan, DEV_SEL);
return SCPE_OK;
case SCPE_OK:
case CDSE_OK:
uptr->u5 |= URCSTA_CARD;
#ifdef I7010
chan_set_attn_urec(chan, cdr_dib.addr);

View File

@@ -164,22 +164,22 @@ t_stat cdr_srv(UNIT * uptr)
pos = (uptr->u5 & CDRPOSMASK) >> CDRPOSSHIFT;
if (pos == (CDRPOSMASK >> CDRPOSSHIFT)) {
switch (sim_read_card(uptr, image)) {
case SCPE_UNATT:
case SCPE_IOERR:
case CDSE_EMPTY:
case CDSE_ERROR:
sim_debug(DEBUG_EXP, &cdr_dev, "unit=%d Setting ATTN\n", u);
chan_set_error(chan);
chan_set_attn(chan);
uptr->u5 &= ~URCSTA_READ;
sim_activate(uptr, us_to_ticks(1000));
return SCPE_OK;
case SCPE_EOF:
case CDSE_EOF:
sim_debug(DEBUG_EXP, &cdr_dev, "unit=%d EOF\n", u);
chan_set_eof(chan);
chan_set_attn(chan);
uptr->u5 &= ~URCSTA_READ;
sim_activate(uptr, us_to_ticks(1000));
return SCPE_OK;
case SCPE_OK:
case CDSE_OK:
break;
}
pos = 0;

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.