Fixed the non-functional VAX 8600 boot and use of the console RL02 disk.

This commit is contained in:
Mark Pizzolato 2013-03-21 12:05:10 -07:00
parent a28d5d7737
commit ce41ac867a

View file

@ -1102,8 +1102,8 @@ switch (rlcs_state) {
if (sim_fseek (uptr->fileref, da, SEEK_SET)) if (sim_fseek (uptr->fileref, da, SEEK_SET))
return SCPE_IOERR; return SCPE_IOERR;
bcnt = sim_fread (rlcs_buf, sizeof (int16), RL_NUMBY, uptr->fileref); bcnt = sim_fread (rlcs_buf, sizeof (int16), RL_NUMBY, uptr->fileref);
if (bcnt != (sizeof (int16) * RL_NUMBY)) for ( ; bcnt < RL_NUMBY; bcnt++) /* fill buffer */
return SCPE_IOERR; rlcs_buf[bcnt] = 0;
} }
if (rlcs_bcnt < RL_NUMBY) { /* more data in buffer? */ if (rlcs_bcnt < RL_NUMBY) { /* more data in buffer? */
cso_buf = rlcs_buf[rlcs_bcnt++]; /* return next word */ cso_buf = rlcs_buf[rlcs_bcnt++]; /* return next word */
@ -1133,7 +1133,7 @@ switch (rlcs_state) {
if (sim_fseek (uptr->fileref, da, SEEK_SET)) if (sim_fseek (uptr->fileref, da, SEEK_SET))
return SCPE_IOERR; return SCPE_IOERR;
bcnt = sim_fwrite (rlcs_buf, sizeof (int16), RL_NUMBY, uptr->fileref); bcnt = sim_fwrite (rlcs_buf, sizeof (int16), RL_NUMBY, uptr->fileref);
if (bcnt != (sizeof (int16) * RL_NUMBY)) if (bcnt != RL_NUMBY)
return SCPE_IOERR; return SCPE_IOERR;
rlcs_state = RL_IDLE; /* now idle */ rlcs_state = RL_IDLE; /* now idle */
rlcs_bcnt = 0; rlcs_bcnt = 0;