folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

I7000: B5500: Set output only devices to default to append mode.

Browse source
This commit is contained in:
Richard Cornwell 2020-06-23 21:01:09 -04:00
parent 377c9b8793
commit 1035aa3e7a
7 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
I7000/i7000_cdp.c
View file

@ -281,6 +281,7 @@ cdp_attach(UNIT * uptr, CONST char *file)
{ {
t_stat r; t_stat r;
sim_switches |= SWMASK ('A'); /* Position to EOF */
if ((r = sim_card_attach(uptr, file)) != SCPE_OK) if ((r = sim_card_attach(uptr, file)) != SCPE_OK)
return r; return r;
if (uptr->up7 == 0) { if (uptr->up7 == 0) {

2
I7000/i7000_dsk.c
View file

@ -1391,7 +1391,7 @@ disk_write(UNIT * uptr, uint8 data, int chan, int eor)
data &= (sense[schan] & STAT_SIXBIT)?077:0277; data &= (sense[schan] & STAT_SIXBIT)?077:0277;
if (uptr->u5 & DSKSTA_CHECK) { if (uptr->u5 & DSKSTA_CHECK) {
if (dbuffer[u][uptr->u6++] != data) { if (dbuffer[u][uptr->u6++] != data) {
fprintf(stderr, "Mismatch %d %03o != %03o\n\r", sim_printf("Mismatch %d %03o != %03o\n\r",
uptr->u6-1, dbuffer[u][uptr->u6-1], data); uptr->u6-1, dbuffer[u][uptr->u6-1], data);
disk_posterr(uptr, DATA_CHECK); disk_posterr(uptr, DATA_CHECK);
} }

1
I7000/i7000_lpr.c
View file

@ -475,6 +475,7 @@ lpr_attach(UNIT * uptr, CONST char *file)
{ {
t_stat r; t_stat r;
sim_switches |= SWMASK ('A'); /* Position to EOF */
if ((r = attach_unit(uptr, file)) != SCPE_OK) if ((r = attach_unit(uptr, file)) != SCPE_OK)
return r; return r;
uptr->u5 = 0; uptr->u5 = 0;

6
I7000/i7000_mt.c
View file

@ -381,9 +381,6 @@ uint32 mt_cmd(UNIT * uptr, uint16 cmd, uint16 dev)
uptr += unit; uptr += unit;
/* If unit disabled return error */ /* If unit disabled return error */
if (uptr->flags & UNIT_DIS) { if (uptr->flags & UNIT_DIS) {
/*
fprintf(stderr, "Attempt to access disconnected unit %s%d\n",
dptr->name, unit); */
return SCPE_NODEV; return SCPE_NODEV;
} }
@ -396,8 +393,7 @@ uint32 mt_cmd(UNIT * uptr, uint16 cmd, uint16 dev)
/* If drive is offline or not attached return not ready */ /* If drive is offline or not attached return not ready */
if ((uptr->flags & (UNIT_ATT | MTUF_ONLINE)) != if ((uptr->flags & (UNIT_ATT | MTUF_ONLINE)) !=
(UNIT_ATT | MTUF_ONLINE)) { (UNIT_ATT | MTUF_ONLINE)) {
fprintf(stderr, "Attempt to access offline unit %s%d\n\r", sim_printf("Attempt to access offline unit %s%d\n\r", dptr->name, unit);
dptr->name, unit);
return SCPE_IOERR; return SCPE_IOERR;
} }
/* Check if drive is ready to recieve a command */ /* Check if drive is ready to recieve a command */

1
I7000/i7090_cdp.c
View file

@ -255,6 +255,7 @@ cdp_attach(UNIT * uptr, CONST char *file)
{ {
t_stat r; t_stat r;
sim_switches |= SWMASK ('A'); /* Position to EOF */
if ((r = sim_card_attach(uptr, file)) != SCPE_OK) if ((r = sim_card_attach(uptr, file)) != SCPE_OK)
return r; return r;
if (uptr->up7 == 0) { if (uptr->up7 == 0) {

3
I7000/i7090_cpu.c
View file

@ -4126,8 +4126,7 @@ prottrap:
#endif #endif
default: default:
fprintf(stderr, "Invalid opcode %o IC=%o %012llo\n", sim_printf("Invalid opcode %o IC=%o %012llo\n", opcode, IC, temp);
opcode, IC, temp);
reason = STOP_UUO; reason = STOP_UUO;
break; break;
} }

1
I7000/i7090_lpr.c
View file

@ -660,6 +660,7 @@ lpr_attach(UNIT * uptr, CONST char *file)
{ {
t_stat r; t_stat r;
sim_switches |= SWMASK ('A'); /* Position to EOF */
if ((r = attach_unit(uptr, file)) != SCPE_OK) if ((r = attach_unit(uptr, file)) != SCPE_OK)
return r; return r;
uptr->u5 = 0; uptr->u5 = 0;