[simh.git] / PDP11 / pdp11_tm.c

/* pdp11_tm.c: PDP-11 magnetic tape simulator\r
\r
   Copyright (c) 1993-2006, Robert M Supnik\r
\r
   Permission is hereby granted, free of charge, to any person obtaining a\r
   copy of this software and associated documentation files (the "Software"),\r
   to deal in the Software without restriction, including without limitation\r
   the rights to use, copy, modify, merge, publish, distribute, sublicense,\r
   and/or sell copies of the Software, and to permit persons to whom the\r
   Software is furnished to do so, subject to the following conditions:\r
\r
   The above copyright notice and this permission notice shall be included in\r
   all copies or substantial portions of the Software.\r
\r
   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\r
   IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\r
   FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL\r
   ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER\r
   IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\r
   CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r
\r
   Except as contained in this notice, the name of Robert M Supnik shall not be\r
   used in advertising or otherwise to promote the sale, use or other dealings\r
   in this Software without prior written authorization from Robert M Supnik.\r
\r
   tm           TM11/TU10 magtape\r
\r
   16-Feb-06    RMS     Added tape capacity checking\r
   31-Oct-05    RMS     Fixed address width for large files\r
   16-Aug-05    RMS     Fixed C++ declaration and cast problems\r
   07-Jul-05    RMS     Removed extraneous externs\r
   18-Mar-05    RMS     Added attached test to detach routine\r
   07-Dec-04    RMS     Added read-only file support\r
   30-Sep-04    RMS     Revised Unibus interface\r
   25-Jan-04    RMS     Revised for device debug support\r
   29-Dec-03    RMS     Added 18b Qbus support\r
   25-Apr-03    RMS     Revised for extended file support\r
   28-Mar-03    RMS     Added multiformat support\r
   28-Feb-03    RMS     Revised for magtape library, added logging\r
   30-Oct-02    RMS     Revised BOT handling, added error record handling\r
   30-Sep-02    RMS     Added variable address support to bootstrap\r
                        Added vector change/display support\r
                        Changed mapping mnemonics\r
                        New data structures\r
                        Updated error handling\r
   28-Aug-02    RMS     Added end of medium support\r
   30-May-02    RMS     Widened POS to 32b\r
   22-Apr-02    RMS     Fixed max record length, first block bootstrap\r
                        (found by Jonathan Engdahl)\r
   26-Jan-02    RMS     Revised bootstrap to conform to M9312\r
   06-Jan-02    RMS     Revised enable/disable support\r
   30-Nov-01    RMS     Added read only unit, extended SET/SHOW support\r
   24-Nov-01    RMS     Converted UST, POS, FLG to arrays\r
   09-Nov-01    RMS     Added bus map support\r
   18-Oct-01    RMS     Added stub diagnostic register (found by Thord Nilson)\r
   07-Sep-01    RMS     Revised device disable and interrupt mechanisms\r
   26-Apr-01    RMS     Added device enable/disable support\r
   18-Apr-01    RMS     Changed to rewind tape before boot\r
   14-Apr-99    RMS     Changed t_addr to unsigned\r
   04-Oct-98    RMS     V2.4 magtape format\r
   10-May-98    RMS     Fixed bug with non-zero unit operation (from Steven Schultz)\r
   09-May-98    RMS     Fixed problems in bootstrap (from Steven Schultz)\r
   10-Apr-98    RMS     Added 2nd block bootstrap (from John Holden,\r
                        University of Sydney)\r
   31-Jul-97    RMS     Added bootstrap (from Ethan Dicks, Ohio State)\r
   22-Jan-97    RMS     V2.3 magtape format\r
   18-Jan-97    RMS     Fixed double interrupt, error flag bugs\r
   29-Jun-96    RMS     Added unit disable support\r
\r
   Magnetic tapes are represented as a series of variable 8b records\r
   of the form:\r
\r
        32b record length in bytes - exact number\r
        byte 0\r
        byte 1\r
        :\r
        byte n-2\r
        byte n-1\r
        32b record length in bytes - exact number\r
\r
   If the byte count is odd, the record is padded with an extra byte\r
   of junk.  File marks are represented by a single record length of 0.\r
   End of tape is two consecutive end of file marks.\r
*/\r
\r
#include "pdp11_defs.h"\r
#include "sim_tape.h"\r
\r
#define TM_NUMDR        8                               /* #drives */\r
#define USTAT           u3                              /* unit status */\r
\r
/* Command - tm_cmd */\r
\r
#define MTC_ERR         (1 << CSR_V_ERR)                /* error */\r
#define MTC_V_DEN       13                              /* density */\r
#define MTC_M_DEN       03\r
#define MTC_DEN         (MTC_M_DEN << MTC_V_DEN)\r
#define MTC_INIT        0010000                         /* init */\r
#define MTC_LPAR        0004000                         /* parity select */\r
#define MTC_V_UNIT      8                               /* unit */\r
#define MTC_M_UNIT      07\r
#define MTC_UNIT        (MTC_M_UNIT << MTC_V_UNIT)\r
#define MTC_DONE        (1 << CSR_V_DONE)               /* done */\r
#define MTC_IE          (1 << CSR_V_IE)                 /* interrupt enable */\r
#define MTC_V_EMA       4                               /* ext mem address */\r
#define MTC_M_EMA       03\r
#define MTC_EMA         (MTC_M_EMA << MTC_V_EMA)\r
#define MTC_V_FNC       1                               /* function */\r
#define MTC_M_FNC       07\r
#define  MTC_UNLOAD      00\r
#define  MTC_READ        01\r
#define  MTC_WRITE       02\r
#define  MTC_WREOF       03\r
#define  MTC_SPACEF      04\r
#define  MTC_SPACER      05\r
#define  MTC_WREXT       06\r
#define  MTC_REWIND      07\r
#define MTC_FNC         (MTC_M_FNC << MTC_V_FNC)\r
#define MTC_GO          (1 << CSR_V_GO)                 /* go */\r
#define MTC_RW          (MTC_DEN | MTC_LPAR | MTC_UNIT | MTC_IE | \\r
                         MTC_EMA | MTC_FNC)\r
#define GET_EMA(x)      (((x) & MTC_EMA) << (16 - MTC_V_EMA))\r
#define GET_UNIT(x)     (((x) >> MTC_V_UNIT) & MTC_M_UNIT)\r
#define GET_FNC(x)      (((x) >> MTC_V_FNC) & MTC_M_FNC)\r
\r
/* Status - stored in tm_sta or (*) uptr->USTAT or (+) calculated */\r
\r
#define STA_ILL         0100000                         /* illegal */\r
#define STA_EOF         0040000                         /* *end of file */\r
#define STA_CRC         0020000                         /* CRC error */\r
#define STA_PAR         0010000                         /* parity error */\r
#define STA_DLT         0004000                         /* data late */\r
#define STA_EOT         0002000                         /* +end of tape */\r
#define STA_RLE         0001000                         /* rec lnt error */\r
#define STA_BAD         0000400                         /* bad tape error */\r
#define STA_NXM         0000200                         /* non-existent mem */\r
#define STA_ONL         0000100                         /* *online */\r
#define STA_BOT         0000040                         /* *start of tape */\r
#define STA_7TK         0000020                         /* 7 track */\r
#define STA_SDN         0000010                         /* settle down */\r
#define STA_WLK         0000004                         /* *write locked */\r
#define STA_REW         0000002                         /* *rewinding */\r
#define STA_TUR         0000001                         /* +unit ready */\r
\r
#define STA_CLR         (STA_7TK | STA_SDN)             /* always clear */\r
#define STA_DYN         (STA_EOF | STA_EOT | STA_ONL | STA_BOT | \\r
                         STA_WLK | STA_REW | STA_TUR)   /* dynamic */\r
#define STA_EFLGS       (STA_ILL | STA_EOF | STA_CRC | STA_PAR | \\r
                         STA_DLT | STA_EOT | STA_RLE | STA_BAD | STA_NXM)\r
                                                        /* set error */\r
\r
/* Read lines - tm_rdl */\r
\r
#define RDL_CLK         0100000                         /* 10 Khz clock */\r
\r
extern uint16 *M;                                       /* memory */\r
extern int32 int_req[IPL_HLVL];\r
extern FILE *sim_deb;\r
\r
uint8 *tmxb = NULL;                                     /* xfer buffer */\r
int32 tm_sta = 0;                                       /* status register */\r
int32 tm_cmd = 0;                                       /* command register */\r
int32 tm_ca = 0;                                        /* current address */\r
int32 tm_bc = 0;                                        /* byte count */\r
int32 tm_db = 0;                                        /* data buffer */\r
int32 tm_rdl = 0;                                       /* read lines */\r
int32 tm_time = 10;                                     /* record latency */\r
int32 tm_stopioe = 1;                                   /* stop on error */\r
\r
DEVICE tm_dev;\r
t_stat tm_rd (int32 *data, int32 PA, int32 access);\r
t_stat tm_wr (int32 data, int32 PA, int32 access);\r
t_stat tm_svc (UNIT *uptr);\r
t_stat tm_reset (DEVICE *dptr);\r
t_stat tm_attach (UNIT *uptr, char *cptr);\r
t_stat tm_detach (UNIT *uptr);\r
t_stat tm_boot (int32 unitno, DEVICE *dptr);\r
void tm_go (UNIT *uptr);\r
int32 tm_updcsta (UNIT *uptr);\r
void tm_set_done (void);\r
t_stat tm_map_err (UNIT *uptr, t_stat st);\r
t_stat tm_vlock (UNIT *uptr, int32 val, char *cptr, void *desc);\r
\r
/* MT data structures\r
\r
   tm_dev       MT device descriptor\r
   tm_unit      MT unit list\r
   tm_reg       MT register list\r
   tm_mod       MT modifier list\r
*/\r
\r
DIB tm_dib = {\r
    IOBA_TM, IOLN_TM, &tm_rd, &tm_wr,\r
    1, IVCL (TM), VEC_TM, { NULL }\r
    };\r
\r
UNIT tm_unit[] = {\r
    { UDATA (&tm_svc, UNIT_ATTABLE + UNIT_ROABLE +UNIT_DISABLE, 0) },\r
    { UDATA (&tm_svc, UNIT_ATTABLE + UNIT_ROABLE +UNIT_DISABLE, 0) },\r
    { UDATA (&tm_svc, UNIT_ATTABLE + UNIT_ROABLE +UNIT_DISABLE, 0) },\r
    { UDATA (&tm_svc, UNIT_ATTABLE + UNIT_ROABLE +UNIT_DISABLE, 0) },\r
    { UDATA (&tm_svc, UNIT_ATTABLE + UNIT_ROABLE +UNIT_DISABLE, 0) },\r
    { UDATA (&tm_svc, UNIT_ATTABLE + UNIT_ROABLE +UNIT_DISABLE, 0) },\r
    { UDATA (&tm_svc, UNIT_ATTABLE + UNIT_ROABLE +UNIT_DISABLE, 0) },\r
    { UDATA (&tm_svc, UNIT_ATTABLE + UNIT_ROABLE +UNIT_DISABLE, 0) }\r
    };\r
\r
REG tm_reg[] = {\r
    { ORDATA (MTS, tm_sta, 16) },\r
    { ORDATA (MTC, tm_cmd, 16) },\r
    { ORDATA (MTBRC, tm_bc, 16) },\r
    { ORDATA (MTCMA, tm_ca, 16) },\r
    { ORDATA (MTD, tm_db, 8) },\r
    { ORDATA (MTRD, tm_rdl, 16) },\r
    { FLDATA (INT, IREQ (TM), INT_V_TM) },\r
    { FLDATA (ERR, tm_cmd, CSR_V_ERR) },\r
    { FLDATA (DONE, tm_cmd, CSR_V_DONE) },\r
    { FLDATA (IE, tm_cmd, CSR_V_IE) },\r
    { FLDATA (STOP_IOE, tm_stopioe, 0) },\r
    { DRDATA (TIME, tm_time, 24), PV_LEFT },\r
    { URDATA (UST, tm_unit[0].USTAT, 8, 16, 0, TM_NUMDR, 0) },\r
    { URDATA (POS, tm_unit[0].pos, 10, T_ADDR_W, 0,\r
              TM_NUMDR, PV_LEFT | REG_RO) },\r
    { ORDATA (DEVADDR, tm_dib.ba, 32), REG_HRO },\r
    { ORDATA (DEVVEC, tm_dib.vec, 16), REG_HRO },\r
    { NULL }\r
    };\r
\r
MTAB tm_mod[] = {\r
    { MTUF_WLK, 0, "write enabled", "WRITEENABLED", &tm_vlock },\r
    { MTUF_WLK, MTUF_WLK, "write locked", "LOCKED", &tm_vlock }, \r
    { MTAB_XTD|MTAB_VUN, 0, "FORMAT", "FORMAT",\r
      &sim_tape_set_fmt, &sim_tape_show_fmt, NULL },\r
    { MTAB_XTD|MTAB_VUN, 0, "CAPACITY", "CAPACITY",\r
      &sim_tape_set_capac, &sim_tape_show_capac, NULL },\r
    { MTAB_XTD|MTAB_VDV, 020, "ADDRESS", "ADDRESS",\r
      &set_addr, &show_addr, NULL },\r
    { MTAB_XTD|MTAB_VDV, 0, "VECTOR", "VECTOR",\r
      &set_vec, &show_vec, NULL },\r
    { 0 }\r
    };\r
\r
DEVICE tm_dev = {\r
    "TM", tm_unit, tm_reg, tm_mod,\r
    TM_NUMDR, 10, T_ADDR_W, 1, 8, 8,\r
    NULL, NULL, &tm_reset,\r
    &tm_boot, &tm_attach, &tm_detach,\r
    &tm_dib, DEV_DISABLE | DEV_UBUS | DEV_Q18 | DEV_DEBUG\r
    };\r
\r
/* I/O dispatch routines, I/O addresses 17772520 - 17772532\r
\r
   17772520     MTS     read only, constructed from tm_sta\r
                        plus current drive status flags\r
   17772522     MTC     read/write\r
   17772524     MTBRC   read/write\r
   17772526     MTCMA   read/write\r
   17772530     MTD     read/write\r
   17772532     MTRD    read only\r
*/\r
\r
t_stat tm_rd (int32 *data, int32 PA, int32 access)\r
{\r
UNIT *uptr;\r
\r
uptr = tm_dev.units + GET_UNIT (tm_cmd);                /* get unit */\r
switch ((PA >> 1) & 07) {                               /* decode PA<3:1> */\r
\r
    case 0:                                             /* MTS */\r
        *data = tm_updcsta (uptr);                      /* update status */\r
        break;\r
\r
    case 1:                                             /* MTC */\r
        tm_updcsta (uptr);                              /* update status */\r
        *data = tm_cmd;                                 /* return command */\r
        break;\r
\r
    case 2:                                             /* MTBRC */\r
        *data = tm_bc;                                  /* return byte count */\r
        break;\r
\r
    case 3:                                             /* MTCMA */\r
        *data = tm_ca;                                  /* return mem addr */\r
        break;\r
\r
    case 4:                                             /* MTD */\r
        *data = tm_db;                                  /* return data buffer */\r
        break;\r
\r
    case 5:                                             /* MTRD */\r
        tm_rdl = tm_rdl ^ RDL_CLK;                      /* "clock" ticks */\r
        *data = tm_rdl;\r
        break;\r
\r
    default:                                            /* unimplemented */\r
        *data = 0;\r
        break;\r
        }\r
\r
return SCPE_OK;\r
}\r
\r
t_stat tm_wr (int32 data, int32 PA, int32 access)\r
{\r
UNIT *uptr;\r
\r
switch ((PA >> 1) & 07) {                               /* decode PA<3:1> */\r
\r
    case 0:                                             /* MTS: read only */\r
        break;\r
\r
    case 1:                                             /* MTC */\r
        uptr = tm_dev.units + GET_UNIT (tm_cmd);        /* select unit */\r
        if ((tm_cmd & MTC_DONE) == 0) tm_sta = tm_sta | STA_ILL;\r
        else {\r
            if (access == WRITEB) data = (PA & 1)?\r
                (tm_cmd & 0377) | (data << 8):\r
                (tm_cmd & ~0377) | data;\r
            if (data & MTC_INIT) {                      /* init? */\r
                tm_reset (&tm_dev);                     /* reset device */\r
                return SCPE_OK;\r
                }\r
            if ((data & MTC_IE) == 0)                   /* int disable? */\r
                CLR_INT (TM);                           /* clr int request */\r
            else if ((tm_cmd & (MTC_ERR + MTC_DONE)) && !(tm_cmd & MTC_IE))\r
                SET_INT (TM);                           /* set int request */\r
            tm_cmd = (tm_cmd & ~MTC_RW) | (data & MTC_RW);\r
            uptr = tm_dev.units + GET_UNIT (tm_cmd);    /* new unit */\r
            if (data & MTC_GO) tm_go (uptr);            /* new function? */\r
            }\r
        tm_updcsta (uptr);                              /* update status */\r
        break;\r
\r
    case 2:                                             /* MTBRC */\r
        if (access == WRITEB) data = (PA & 1)?\r
            (tm_bc & 0377) | (data << 8): (tm_bc & ~0377) | data;\r
        tm_bc = data;\r
        break;\r
\r
    case 3:                                             /* MTCMA */\r
        if (access == WRITEB) data = (PA & 1)?\r
            (tm_ca & 0377) | (data << 8): (tm_ca & ~0377) | data;\r
        tm_ca = data;\r
        break;\r
\r
    case 4:                                             /* MTD */\r
        if ((access == WRITEB) && (PA & 1)) return SCPE_OK;\r
        tm_db = data & 0377;\r
        break;\r
        }                                               /* end switch */\r
\r
return SCPE_OK;\r
}\r
\r
/* New magtape command */\r
\r
void tm_go (UNIT *uptr)\r
{\r
int32 f;\r
\r
f = GET_FNC (tm_cmd);                                   /* get function */\r
if (((uptr->flags & UNIT_ATT) == 0) ||                  /* not attached? */\r
     sim_is_active (uptr) ||                            /* busy? */\r
    (((f == MTC_WRITE) || (f == MTC_WREOF) || (f == MTC_WREXT)) &&\r
      sim_tape_wrp (uptr))) {                           /* write locked? */\r
        tm_sta = tm_sta | STA_ILL;                      /* illegal */\r
        tm_set_done ();                                 /* set done */\r
        return;\r
        }\r
uptr->USTAT = uptr->USTAT & (STA_WLK | STA_ONL);        /* clear status */\r
tm_sta = 0;                                             /* clear errors */\r
if (f == MTC_UNLOAD) {                                  /* unload? */\r
    uptr->USTAT = (uptr->USTAT | STA_REW) & ~STA_ONL;\r
    detach_unit (uptr);                                 /* set offline */\r
    }\r
else if (f == MTC_REWIND)                               /* rewind */\r
    uptr->USTAT = uptr->USTAT | STA_REW;                /* rewinding */\r
/* else /* uncomment this else if rewind/unload don't set done */\r
tm_cmd = tm_cmd & ~MTC_DONE;                            /* clear done */\r
CLR_INT (TM);                                           /* clear int */\r
sim_activate (uptr, tm_time);                           /* start io */\r
return;\r
}\r
\r
/* Unit service\r
\r
   If rewind done, reposition to start of tape, set status\r
   else, do operation, set done, interrupt\r
*/\r
\r
t_stat tm_svc (UNIT *uptr)\r
{\r
int32 f, t, u;\r
uint32 xma;\r
t_mtrlnt tbc, cbc;\r
t_stat st, r = SCPE_OK;\r
\r
u = (int32) (uptr - tm_dev.units);                      /* get unit number */\r
f = GET_FNC (tm_cmd);                                   /* get command */\r
xma = GET_EMA (tm_cmd) | tm_ca;                         /* get mem addr */\r
cbc = 0200000 - tm_bc;                                  /* get bc */\r
\r
if (uptr->USTAT & STA_REW) {                            /* rewind? */\r
    sim_tape_rewind (uptr);                             /* update position */\r
    if (uptr->flags & UNIT_ATT)                         /* still on line? */\r
        uptr->USTAT = STA_ONL | STA_BOT |\r
            (sim_tape_wrp (uptr)? STA_WLK: 0);\r
    else uptr->USTAT = 0;\r
    if (u == GET_UNIT (tm_cmd)) {                       /* selected? */\r
        tm_set_done ();                                 /* set done */\r
        tm_updcsta (uptr);                              /* update status */\r
        }\r
    return SCPE_OK;\r
    }\r
\r
if ((uptr->flags & UNIT_ATT) == 0) {                    /* if not attached */\r
    uptr->USTAT = 0;                                    /* unit off line */\r
    tm_sta = tm_sta | STA_ILL;                          /* illegal operation */\r
    tm_set_done ();                                     /* set done */\r
    tm_updcsta (uptr);                                  /* update status */\r
    return IORETURN (tm_stopioe, SCPE_UNATT);\r
    }\r
\r
if (DEBUG_PRS (tm_dev)) fprintf (sim_deb,\r
    ">>TM: op=%o, ma=%o, bc=%o, pos=%d\n", f, xma, tm_bc, uptr->pos);\r
switch (f) {                                            /* case on function */\r
\r
    case MTC_READ:                                      /* read */\r
        st = sim_tape_rdrecf (uptr, tmxb, &tbc, MT_MAXFR);      /* read rec */\r
        if (st == MTSE_RECE) tm_sta = tm_sta | STA_PAR; /* rec in error? */\r
        else if (st != MTSE_OK) {                       /* other error? */\r
            r = tm_map_err (uptr, st);                  /* map error */\r
            break;\r
            }\r
        if (tbc > cbc) tm_sta = tm_sta | STA_RLE;       /* wrong size? */\r
        if (tbc < cbc) cbc = tbc;                       /* use smaller */\r
        if (t = Map_WriteB (xma, cbc, tmxb)) {          /* copy buf to mem */\r
            tm_sta = tm_sta | STA_NXM;                  /* NXM, set err */\r
            cbc = cbc - t;                              /* adj byte cnt */\r
            }\r
        xma = (xma + cbc) & 0777777;                    /* inc bus addr */\r
        tm_bc = (tm_bc + cbc) & 0177777;                /* inc byte cnt */\r
        break;\r
\r
    case MTC_WRITE:                                     /* write */\r
    case MTC_WREXT:                                     /* write ext gap */\r
        if (t = Map_ReadB (xma, cbc, tmxb)) {           /* copy mem to buf */\r
            tm_sta = tm_sta | STA_NXM;                  /* NXM, set err */\r
            cbc = cbc - t;                              /* adj byte cnt */\r
            if (cbc == 0) break;                        /* no xfr? done */\r
            }\r
        if (st = sim_tape_wrrecf (uptr, tmxb, cbc))     /* write rec, err? */\r
            r = tm_map_err (uptr, st);                  /* map error */\r
        else {\r
            xma = (xma + cbc) & 0777777;                /* inc bus addr */\r
            tm_bc = (tm_bc + cbc) & 0177777;            /* inc byte cnt */\r
            }\r
        break;\r
\r
    case MTC_WREOF:                                     /* write eof */\r
        if (st = sim_tape_wrtmk (uptr))                 /* write tmk, err? */\r
            r = tm_map_err (uptr, st);                  /* map error */\r
        break;\r
\r
    case MTC_SPACEF:                                    /* space forward */\r
        do {\r
            tm_bc = (tm_bc + 1) & 0177777;              /* incr wc */\r
            if (st = sim_tape_sprecf (uptr, &tbc)) {    /* spc rec fwd, err? */\r
                r = tm_map_err (uptr, st);              /* map error */\r
                break;\r
                }\r
            } while (tm_bc != 0);\r
        break;\r
\r
    case MTC_SPACER:                                    /* space reverse */\r
        do {\r
            tm_bc = (tm_bc + 1) & 0177777;              /* incr wc */\r
            if (st = sim_tape_sprecr (uptr, &tbc)) {    /* spc rec rev, err? */\r
                r = tm_map_err (uptr, st);              /* map error */\r
                break;\r
                }\r
            } while (tm_bc != 0);\r
        break;\r
        }                                               /* end case */\r
\r
tm_cmd = (tm_cmd & ~MTC_EMA) | ((xma >> (16 - MTC_V_EMA)) & MTC_EMA);\r
tm_ca = xma & 0177777;                                  /* update mem addr */\r
tm_set_done ();                                         /* set done */\r
tm_updcsta (uptr);                                      /* update status */\r
if (DEBUG_PRS (tm_dev)) fprintf (sim_deb,\r
    ">>TM: sta=%o, ma=%o, bc=%o, pos=%d\n",\r
    tm_sta, tm_ca, tm_bc, uptr->pos);\r
return r;\r
}\r
\r
/* Update controller status */\r
\r
int32 tm_updcsta (UNIT *uptr)\r
{\r
tm_sta = (tm_sta & ~(STA_DYN | STA_CLR)) | (uptr->USTAT & STA_DYN);\r
if (sim_tape_eot (uptr)) tm_sta = tm_sta | STA_EOT;\r
if (sim_is_active (uptr)) tm_sta = tm_sta & ~STA_TUR;\r
else tm_sta = tm_sta | STA_TUR;\r
if (tm_sta & STA_EFLGS) tm_cmd = tm_cmd | MTC_ERR;\r
else tm_cmd = tm_cmd & ~MTC_ERR;\r
if ((tm_cmd & MTC_IE) == 0) CLR_INT (TM);\r
return tm_sta;\r
}\r
\r
/* Set done */\r
\r
void tm_set_done (void)\r
{\r
tm_cmd = tm_cmd | MTC_DONE;\r
if (tm_cmd & MTC_IE) SET_INT (TM);\r
return;\r
}\r
\r
/* Map tape error status */\r
\r
t_stat tm_map_err (UNIT *uptr, t_stat st)\r
{\r
switch (st) {\r
\r
    case MTSE_FMT:                                      /* illegal fmt */\r
    case MTSE_UNATT:                                    /* not attached */\r
        tm_sta = tm_sta | STA_ILL;\r
    case MTSE_OK:                                       /* no error */\r
        return SCPE_IERR;\r
\r
    case MTSE_TMK:                                      /* tape mark */\r
        uptr->USTAT = uptr->USTAT | STA_EOF;            /* end of file */\r
        break;\r
\r
    case MTSE_IOERR:                                    /* IO error */\r
        tm_sta = tm_sta | STA_PAR;                      /* parity error */\r
        if (tm_stopioe) return SCPE_IOERR;\r
        break;\r
\r
    case MTSE_INVRL:                                    /* invalid rec lnt */\r
        tm_sta = tm_sta | STA_PAR;                      /* parity error */\r
        return SCPE_MTRLNT;\r
\r
    case MTSE_RECE:                                     /* record in error */\r
        tm_sta = tm_sta | STA_PAR;                      /* parity error */\r
        break;\r
\r
    case MTSE_EOM:                                      /* end of medium */\r
        tm_sta = tm_sta | STA_BAD;                      /* bad tape */\r
        break;\r
\r
    case MTSE_BOT:                                      /* reverse into BOT */\r
        uptr->USTAT = uptr->USTAT | STA_BOT;            /* set status */\r
        break;\r
\r
    case MTSE_WRP:                                      /* write protect */\r
        tm_sta = tm_sta | STA_ILL;                      /* illegal operation */\r
        break;\r
        }\r
\r
return SCPE_OK;\r
}\r
\r
/* Reset routine */\r
\r
t_stat tm_reset (DEVICE *dptr)\r
{\r
int32 u;\r
UNIT *uptr;\r
\r
tm_cmd = MTC_DONE;                                      /* set done */\r
tm_bc = tm_ca = tm_db = tm_sta = tm_rdl = 0;\r
CLR_INT (TM);                                           /* clear interrupt */\r
for (u = 0; u < TM_NUMDR; u++) {                        /* loop thru units */\r
    uptr = tm_dev.units + u;\r
    sim_tape_reset (uptr);                              /* reset tape */\r
    sim_cancel (uptr);                                  /* cancel activity */\r
    if (uptr->flags & UNIT_ATT) uptr->USTAT = STA_ONL |\r
        (sim_tape_bot (uptr)? STA_BOT: 0) |\r
        (sim_tape_wrp (uptr)? STA_WLK: 0);\r
    else uptr->USTAT = 0;\r
    }\r
if (tmxb == NULL) tmxb = (uint8 *) calloc (MT_MAXFR, sizeof (uint8));\r
if (tmxb == NULL) return SCPE_MEM;\r
return SCPE_OK;\r
}\r
\r
/* Attach routine */\r
\r
t_stat tm_attach (UNIT *uptr, char *cptr)\r
{\r
t_stat r;\r
int32 u = uptr - tm_dev.units;\r
\r
r = sim_tape_attach (uptr, cptr);\r
if (r != SCPE_OK) return r;\r
uptr->USTAT = STA_ONL | STA_BOT | (sim_tape_wrp (uptr)? STA_WLK: 0);\r
if (u == GET_UNIT (tm_cmd)) tm_updcsta (uptr);\r
return r;\r
}\r
\r
/* Detach routine */\r
\r
t_stat tm_detach (UNIT* uptr)\r
{\r
int32 u = uptr - tm_dev.units;\r
\r
if (!(uptr->flags & UNIT_ATT)) return SCPE_OK;\r
if (!sim_is_active (uptr)) uptr->USTAT = 0;\r
if (u == GET_UNIT (tm_cmd)) tm_updcsta (uptr);\r
return sim_tape_detach (uptr);\r
}\r
\r
/* Write lock/enable routine */\r
\r
t_stat tm_vlock (UNIT *uptr, int32 val, char *cptr, void *desc)\r
{\r
int32 u = uptr - tm_dev.units;\r
\r
if ((uptr->flags & UNIT_ATT) && \r
    (val || sim_tape_wrp (uptr)))\r
	uptr->USTAT = uptr->USTAT | STA_WLK;\r
else uptr->USTAT = uptr->USTAT & ~STA_WLK;\r
if (u == GET_UNIT (tm_cmd)) tm_updcsta (uptr);\r
return SCPE_OK;\r
}\r
\r
/* Device bootstrap\r
\r
   Magtape boot format changed over time.  Originally, a boot tape\r
   contained a boot loader in the first block.  Eventually, the first\r
   block was reserved for a tape label, and the second block was\r
   expected to contain a boot loader.  BSD and DEC operating systems\r
   use the second block scheme, so it is the default.\r
\r
   To boot from the first block, use boot -o (old).\r
*/\r
\r
#define BOOT_START      016000\r
#define BOOT_ENTRY      (BOOT_START + 2)\r
#define BOOT_UNIT       (BOOT_START + 010)\r
#define BOOT_CSR        (BOOT_START + 014)\r
#define BOOT1_LEN       (sizeof (boot1_rom) / sizeof (int16))\r
#define BOOT2_LEN       (sizeof (boot2_rom) / sizeof (int16))\r
\r
static const uint16 boot1_rom[] = {\r
    0046524,                        /* boot_start: "TM" */\r
    0012706, BOOT_START,            /* mov #boot_start, sp */\r
    0012700, 0000000,               /* mov #unit_num, r0 */\r
    0012701, 0172526,               /* mov #172526, r1      ; mtcma */\r
    0005011,                        /* clr (r1) */\r
    0010141,                        /* mov r1, -(r1)        ; mtbrc */\r
    0010002,                        /* mov r0,r2 */\r
    0000302,                        /* swab r2 */\r
    0062702, 0060003,               /* add #60003, r2 */\r
    0010241,                        /* mov r2, -(r1)        ; read + go */\r
    0105711,                        /* tstb (r1)            ; mtc */\r
    0100376,                        /* bpl .-2 */\r
    0005002,                        /* clr r2 */\r
    0005003,                        /* clr r3 */\r
    0012704, BOOT_START+020,        /* mov #boot_start+20, r4 */\r
    0005005,                        /* clr r5 */\r
    0005007                         /* clr r7 */\r
    };\r
\r
static const uint16 boot2_rom[] = {\r
    0046524,                        /* boot_start: "TM" */\r
    0012706, BOOT_START,            /* mov #boot_start, sp */\r
    0012700, 0000000,               /* mov #unit_num, r0 */\r
    0012701, 0172526,               /* mov #172526, r1      ; mtcma */\r
    0005011,                        /* clr (r1) */\r
    0012741, 0177777,               /* mov #-1, -(r1)       ; mtbrc */\r
    0010002,                        /* mov r0,r2 */\r
    0000302,                        /* swab r2 */\r
    0062702, 0060011,               /* add #60011, r2 */\r
    0010241,                        /* mov r2, -(r1)        ; space + go */\r
    0105711,                        /* tstb (r1)            ; mtc */\r
    0100376,                        /* bpl .-2 */\r
    0010002,                        /* mov r0,r2 */\r
    0000302,                        /* swab r2 */\r
    0062702, 0060003,               /* add #60003, r2 */\r
    0010211,                        /* mov r2, (r1)         ; read + go */\r
    0105711,                        /* tstb (r1)            ; mtc */\r
    0100376,                        /* bpl .-2 */\r
    0005002,                        /* clr r2 */\r
    0005003,                        /* clr r3 */\r
    0012704, BOOT_START+020,        /* mov #boot_start+20, r4 */\r
    0005005,                        /* clr r5 */\r
    0005007                         /* clr r7 */\r
    };\r
\r
t_stat tm_boot (int32 unitno, DEVICE *dptr)\r
{\r
int32 i;\r
extern int32 saved_PC;\r
extern int32 sim_switches;\r
\r
sim_tape_rewind (&tm_unit[unitno]);\r
if (sim_switches & SWMASK ('O')) {\r
    for (i = 0; i < BOOT1_LEN; i++)\r
        M[(BOOT_START >> 1) + i] = boot1_rom[i];\r
    }\r
else {\r
    for (i = 0; i < BOOT2_LEN; i++)\r
        M[(BOOT_START >> 1) + i] = boot2_rom[i];\r
    }\r
M[BOOT_UNIT >> 1] = unitno;\r
M[BOOT_CSR >> 1] = (tm_dib.ba & DMASK) + 06;\r
saved_PC = BOOT_ENTRY;\r
return SCPE_OK;\r
} \r