t_stat mt_reset (DEVICE *dptr)
{
int32 i;
UNIT *uptr;
for (i = 0; i < MT_NUMDR; i++) { /* per drive resets */
if ((uptr = mt_sel_unit (i))) {
MT_CLR_PNU (uptr); /* clear pos flag */
}
}
ind[IN_TAP] = 0; /* clear mt err ind */
ind[IN_END] = 0; /* clear mt end ind */
return SCPE_OK;
}
t_stat mt_reset (DEVICE *dptr)
{
int32 i;
UNIT *uptr;
for (i = 0; i < MT_NUMDR; i++) { /* per drive resets */
if (uptr = mt_sel_unit (i)) {
MT_CLR_PNU (uptr); /* clear pos flag */
uptr->IND = 0; /* clear ind latch */
}
}
ind[IN_TAP] = 0; /* clear mt err ind */
mt_sel = 0; /* clear unit select */
return SCPE_OK;
}
t_stat mt_io (int32 unit, int32 flag, int32 mod)
{
int32 t, wm_seen;
t_mtrlnt i, tbc;
t_stat st;
t_bool passed_eot;
UNIT *uptr;
ind[IN_TAP] = 0; /* clear error */
if ((uptr = mt_sel_unit (unit)) == NULL) /* sel unit, save */
return STOP_INVMTU; /* (not valid) */
if ((uptr->flags & UNIT_ATT) == 0) /* attached? */
return SCPE_UNATT;
switch (mod) {
case BCD_R: /* read */
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, ">>MT%d: read from %d", unit, BS);
wm_seen = 0; /* no word mk seen */
st = sim_tape_rdrecf (uptr, dbuf, &tbc, MT_MAXFR); /* read rec */
if (st != MTSE_TMK) { /* not tmk? */
if (st == MTSE_RECE) /* rec in error? */
ind[IN_TAP] = 1;
else if (st != MTSE_OK) { /* stop on error */
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, ", stopped by status = %d\n", st);
break;
}
if (!(flag & MD_BIN) && /* BCD tape and */
((dbuf[0] & CHAR) == BCD_TAPMRK)) /* first char TMK? */
uptr->IND = 1; /* set indicator */
}
for (i = 0; i < tbc; i++) { /* loop thru buf */
if (!(flag & MD_BOOT) && /* not boot? check */
(M[BS] == (BCD_GRPMRK + WM))) { /* GWM in memory? */
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, " to %d, stopped by GMWM\n", BS);
BS++; /* incr BS */
if (ADDR_ERR (BS)) { /* test for wrap */
BS = BA | (BS % MAXMEMSIZE);
return STOP_WRAP;
}
return SCPE_OK; /* done */
}
t = dbuf[i] & CHAR; /* get char, strip parity */
if (!(flag & MD_BIN) && (t == BCD_ALT)) /* BCD mode alt blank? */
t = BCD_BLANK; /* real blank */
if (flag & MD_WM) { /* word mk mode? */
if ((t == BCD_WM) && (wm_seen == 0)) /* WM char, none prev? */
wm_seen = WM; /* set flag */
else {
M[BS] = wm_seen | (t & CHAR); /* char + wm seen */
wm_seen = 0; /* clear flag */
}
}
else M[BS] = (M[BS] & WM) | (t & CHAR); /* preserve mem WM */
if (!wm_seen)
BS++;
if (ADDR_ERR (BS)) { /* check next BS */
BS = BA | (BS % MAXMEMSIZE);
return STOP_WRAP;
}
}
if (M[BS] != (BCD_GRPMRK + WM)) { /* not GM+WM at end? */
if (flag & MD_WM) /* LCA: clear WM */
M[BS] = BCD_GRPMRK;
else M[BS] = (M[BS] & WM) | BCD_GRPMRK; /* MCW: save WM */
}
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, " to %d, stopped by EOR\n", BS);
BS++; /* adv BS */
if (ADDR_ERR (BS)) { /* check final BS */
BS = BA | (BS % MAXMEMSIZE);
return STOP_WRAP;
}
break;
case BCD_W:
if (sim_tape_wrp (uptr)) /* locked? */
return STOP_MTL;
if (M[BS] == (BCD_GRPMRK + WM)) /* eor? */
return STOP_MTZ;
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, ">>MT%d: write from %d", unit, BS);
for (tbc = 0; (t = M[BS++]) != (BCD_GRPMRK + WM); ) {
if ((t & WM) && (flag & MD_WM)) /* WM in wm mode? */
dbuf[tbc++] = BCD_WM;
if (((t & CHAR) == BCD_BLANK) && !(flag & MD_BIN))
dbuf[tbc++] = BCD_ALT;
else dbuf[tbc++] = t & CHAR;
if (ADDR_ERR (BS)) { /* check next BS */
BS = BA | (BS % MAXMEMSIZE);
return STOP_WRAP;
}
}
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, " to %d\n", BS - 1);
passed_eot = sim_tape_eot (uptr); /* passed EOT? */
st = sim_tape_wrrecf (uptr, dbuf, tbc); /* write record */
if (!passed_eot && sim_tape_eot (uptr)) /* just passed EOT? */
ind[IN_END] = 1;
if (ADDR_ERR (BS)) { /* check final BS */
BS = BA | (BS % MAXMEMSIZE);
return STOP_WRAP;
}
break;
default:
return STOP_INVM;
}
return mt_map_status (st);
}
t_stat mt_func (int32 unit, int32 flag, int32 mod)
{
t_mtrlnt tbc;
UNIT *uptr;
t_stat st;
ind[IN_TAP] = 0; /* clear error */
if ((uptr = mt_sel_unit (unit)) == NULL) /* sel unit, save */
return STOP_INVMTU; /* (not valid) */
if ((uptr->flags & UNIT_ATT) == 0) /* attached? */
return SCPE_UNATT;
switch (mod) { /* case on modifier */
case BCD_A: /* diagnostic read */
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, ">>MT%d: diagnostic read\n", unit);
st = sim_tape_rdrecf (uptr, dbuf, &tbc, MT_MAXFR); /* read rec */
if (st != MTSE_TMK) { /* not tmk? */
if (st == MTSE_RECE) /* rec in error? */
ind[IN_TAP] = 1;
else if (st != MTSE_OK) { /* stop on error */
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, ", stopped by status = %d\n", st);
break;
}
if (!(flag & MD_BIN) && /* BCD tape and */
((dbuf[0] & CHAR) == BCD_TAPMRK)) /* first char TMK? */
uptr->IND = 1; /* set indicator */
}
break;
case BCD_B: /* backspace */
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, ">>MT%d: backspace\n", unit);
st = sim_tape_sprecr (uptr, &tbc); /* space rev */
break; /* end case */
case BCD_E: /* erase = nop */
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, ">>MT%d: erase\n", unit);
if (sim_tape_wrp (uptr)) /* write protected? */
return STOP_MTL;
return SCPE_OK;
case BCD_M: /* write tapemark */
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, ">>MT%d: write tape mark\n", unit);
st = sim_tape_wrtmk (uptr); /* write tmk */
break;
case BCD_R: /* rewind */
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, ">>MT%d: rewind\n", unit);
sim_tape_rewind (uptr); /* update position */
return SCPE_OK;
case BCD_U: /* unload */
if (DEBUG_PRS (mt_dev))
fprintf (sim_deb, ">>MT%d: rewind and unload\n", unit);
sim_tape_rewind (uptr); /* update position */
st = mt_detach (uptr); /* detach */
break;
default:
return STOP_INVM;
}
return mt_map_status (st);
}