github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-23 10:58:12 +00:00
Code Releases Activity

IBM360: Fixed sense data in MT, minor 2703 fixes.

Browse Source
This commit is contained in:
Richard Cornwell 2020-09-17 20:12:21 -04:00
parent cc38a0d597
commit 60b09a4b56
2 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
IBM360/ibm360_com.c
View File

@ -272,7 +272,7 @@ uint8 coml_startcmd(UNIT *uptr, uint16 chan, uint8 cmd) {
switch (cmd & 0x3) {
case 0x3: /* Control */
if ((cmd == CMD_NOP) || (cmd & 0x8) != 0)
if ((cmd == CMD_NOP) || (cmd & 0x10) != 0)
return SNS_CHNEND|SNS_DEVEND;
case 0x2: /* Read command */
case 0x1: /* Write command */
@ -378,7 +378,7 @@ t_stat coml_srv(UNIT * uptr)
chan_end(addr, SNS_CHNEND|SNS_DEVEND|SNS_UNITEXP);
return SCPE_OK;
}
if (uptr->CMD & ADDR) {
if ((uptr->CMD & ADDR) != 0 && uptr->BPTR == 0) {
ch = 0x16;
sim_debug(DEBUG_CMD, dptr, "COM: unit=%d addr %02x\n", unit, ch);
uptr->CMD &= ~ADDR;
@ -408,6 +408,8 @@ t_stat coml_srv(UNIT * uptr)
chan_end(addr, SNS_CHNEND|SNS_DEVEND);
return SCPE_OK;
}
// if (ch == 0x1f)
// uptr->CMD |= ADDR;
ch = com_buf[unit][uptr->IPTR++];
if (chan_write_byte( addr, &ch)) {
uptr->CMD &= ~(0xff|INPUT|RECV);
@ -436,6 +438,13 @@ t_stat coml_srv(UNIT * uptr)
chan_end(addr, SNS_CHNEND|SNS_DEVEND|SNS_UNITEXP);
return SCPE_OK;
}
if (uptr->CMD & BREAK) {
sim_debug(DEBUG_CMD, dptr, "COM: unit=%d attn write\n", unit);
uptr->CMD &= ~(0xff|BREAK);
uptr->SNS |= SNS_INTVENT;
chan_end(addr, SNS_CHNEND|SNS_DEVEND|SNS_UNITCHK);
return SCPE_OK;
}
sim_debug(DEBUG_CMD, dptr, "COM: unit=%d write\n", unit);
if (chan_read_byte (addr, &ch)) {
uptr->CMD &= ~0xff;
@ -471,6 +480,7 @@ t_stat coml_srv(UNIT * uptr)
case CMD_BRK: /* Send break signal */
uptr->CMD &= ~0xff;
uptr->CMD |= ADDR;
uptr->SNS = 0;
chan_end(addr, SNS_CHNEND|SNS_DEVEND);
break;
@ -694,7 +704,7 @@ return SCPE_OK;
const char *com_description (DEVICE *dptr)
{
return "IBM 2701 communications controller";
return "IBM 2703 communications controller";
}
#endif

12
IBM360/ibm360_mt.c
View File

@ -254,7 +254,6 @@ uint8 mt_startcmd(UNIT *uptr, uint16 chan, uint8 cmd) {
case 0x2: /* Read command */
case 0xc: /* Read backward */
uptr->SNS = 0;
uptr->SNS |= SNS_TUASTA << 8;
/* Fall through */
case 0x4: /* Sense */
@ -402,10 +401,13 @@ t_stat mt_srv(UNIT * uptr)
ch = (uptr->SNS >> 8) & 0xff;
if ((uptr->flags & MTUF_9TR) == 0)
ch |= SNS_7TRACK;
if (sim_tape_wrp(uptr))
ch |= SNS_WRP;
if (sim_tape_bot(uptr))
ch |= SNS_LOAD;
if ((uptr->flags & UNIT_ATT) != 0) {
if (sim_tape_wrp(uptr))
ch |= SNS_WRP;
if (sim_tape_bot(uptr))
ch |= SNS_LOAD;
ch |= SNS_TUASTA;
}
sim_debug(DEBUG_DETAIL, dptr, "sense unit=%d 2 %x\n", unit, ch);
chan_write_byte(addr, &ch) ;
ch = 0xc0;