Пример #1
0
t_stat mt_attach (UNIT *uptr, char *cptr)
{
t_stat r;

r = sim_tape_attach (uptr, cptr);
if (r != SCPE_OK) return r;
uptr->UST = MTDV_BOT;
return r;
}
Пример #2
0
t_stat mtc_attach (UNIT *uptr, char *cptr)
{
t_stat r;

r = sim_tape_attach (uptr, cptr);                       /* attach unit */
if (r != SCPE_OK) return r;                             /* update status */
mtc_sta = STA_BOT;
return r;
}
Пример #3
0
t_stat
mt_attach(UNIT * uptr, char *file)
{
    t_stat              r;

    if ((r = sim_tape_attach(uptr, file)) != SCPE_OK)
        return r;
    uptr->u5 |= MT_LOADED|MT_BOT; 
    sim_activate(uptr, 50000);
    return SCPE_OK;
}
Пример #4
0
t_stat mt_attach (UNIT *uptr, char *cptr)
{
t_stat r;

r = sim_tape_attach (uptr, cptr);
if (r != SCPE_OK)
    return r;
uptr->botf = 1;
uptr->eotf = 0;
return SCPE_OK;
}
Пример #5
0
t_stat mt_attach (UNIT *uptr, CONST char *cptr)
{
int32 u = uptr - mt_dev.units;
t_stat r;

r = sim_tape_attach (uptr, cptr);
if (r != SCPE_OK)
    return r;
uptr->UST = STA_EOT;
if (mt_arm[u])
    SET_INT (v_MT + u);
return r;
}
Пример #6
0
t_stat mt_attach (UNIT *uptr, char *cp)
{
uptr->IND = 0;                                          /* reset indicator latch */
return sim_tape_attach (uptr, cp);                      /* tape unit attach */
}