simh-testsetgenerator/I7000/i7080_drum.c

/* i7080_drum.c: IBM 7080 Drum

   Copyright (c) 2007-2016, Richard Cornwell

   Permission is hereby granted, free of charge, to any person obtaining a
   copy of this software and associated documentation files (the "Software"),
   to deal in the Software without restriction, including without limitation
   the rights to use, copy, modify, merge, publish, distribute, sublicense,
   and/or sell copies of the Software, and to permit persons to whom the
   Software is furnished to do so, subject to the following conditions:

   The above copyright notice and this permission notice shall be included in
   all copies or substantial portions of the Software.

   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
   IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
   FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
   RICHARD CORNWELL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
   IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
   CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

   Provides support for 702/705 drums.

   Drums are arranged in tracks of 200 characters each.

   Writing continues until a end of record is recieved. At which point a
   drum mark is written. If more then 200 characters are written the next
   track is automaticaly selected.

   Reading continues until a drum mark is read.

   Drums address is 1000-1999

*/

#include "i7080_defs.h"

#ifdef NUM_DEVS_DR
#define UNIT_DRM        UNIT_ATTABLE | UNIT_DISABLE | UNIT_FIX | \
                        UNIT_BUFABLE | UNIT_MUSTBUF

/* Device status information stored in u5 */
#define DRMSTA_READ     000001  /* Unit is in read */
#define DRMSTA_WRITE    000002  /* Unit is in write */
#define DRMSTA_CMD      000004  /* Unit has recieved a cmd */
#define DRMSTA_START    000200  /* Drum has started to transfer */
#define DRMWORDTIME         20  /* Number of cycles per drum word */
#define DRMCHARTRK         200  /* Characters per track */

uint32              drm_cmd(UNIT *, uint16, uint16);
t_stat              drm_srv(UNIT *);
t_stat              drm_boot(int32, DEVICE *);
void                drm_ini(UNIT *, t_bool);
t_stat              drm_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag,
                        const char *cptr);
const char          *drm_description (DEVICE *dptr);
extern t_stat       chan_boot(int32, DEVICE *);

UNIT                drm_unit[] = {
     {UDATA(&drm_srv, UNIT_S_CHAN(0) | UNIT_DRM, DRMCHARTRK * 1000), 0, 0},
};

DEVICE              drm_dev = {
    "DR", drm_unit, NULL /* Registers */ , NULL,
    1, 8, 15, 1, 8, 8,
    NULL, NULL, NULL, &drm_boot, NULL, NULL,
    &drm_dib, DEV_DISABLE | DEV_DEBUG, 0, dev_debug,
    NULL, NULL, &drm_help, NULL, NULL, &drm_description
};

uint32 drm_cmd(UNIT * uptr, uint16 cmd, uint16 dev)
{
    int                 chan = UNIT_G_CHAN(uptr->flags);
    int                 addr = dev;

    addr -= drm_dib.addr * DRMCHARTRK;
    if (addr > (int32)uptr->capac)
        return SCPE_NODEV;
    if ((uptr->flags & UNIT_ATT) != 0) {
        switch (cmd) {
        case IO_RDS:
            /* Start device */
            uptr->u5 = DRMSTA_READ | DRMSTA_CMD;
            sim_debug(DEBUG_CMD, &drm_dev, "RDS %o\n", dev);
            chan_set_sel(chan, 0);
            break;
        case IO_WRS:
            /* Start device */
            uptr->u5 = DRMSTA_WRITE | DRMSTA_CMD;
            uptr->hwmark = uptr->capac;
            sim_debug(DEBUG_CMD, &drm_dev, "WRS %o\n", dev);
            chan_set_sel(chan, 1);
            break;
        default:
            return SCPE_IOERR;
        }
        /* Choose which part to use */
        uptr->u6 = addr;                /* Set drum address */
        chan_clear(chan, CHS_ATTN);     /* Clear attentions */
        /* Make sure drum is spinning */
        sim_activate(uptr, DRMWORDTIME);
        return SCPE_OK;
    }
    return SCPE_IOERR;
}

t_stat drm_srv(UNIT * uptr)
{
    int                 chan = UNIT_G_CHAN(uptr->flags);
    uint8               *buf = (uint8 *)uptr->filebuf;
    t_stat              r;

    /* Channel has disconnected, abort current read. */
    if (uptr->u5 & DRMSTA_CMD && chan_stat(chan, DEV_DISCO)) {
        uptr->u5 = 0;
        chan_clear(chan, DEV_WEOR | DEV_SEL);
        sim_debug(DEBUG_CHAN, &drm_dev, "Disconnect\n");
        return SCPE_OK;
    }

    /* Check if we have a address match */
    if ((chan_flags[chan] & (STA_ACTIVE | DEV_SEL)) == (STA_ACTIVE | DEV_SEL)
         && (uptr->u5 & (DRMSTA_READ | DRMSTA_WRITE))) {
        if (uptr->u6 > (int32)uptr->capac) {
            uptr->u5 = DRMSTA_CMD;
            chan_set(chan, CHS_ATTN);
            sim_activate(uptr, DRMWORDTIME);
            return SCPE_OK;
        }

        /* Try and transfer a word of data */
        if (uptr->u5 & DRMSTA_READ) {
            uint8       ch = buf[uptr->u6++];
            r = chan_write_char(chan, &ch, (buf[uptr->u6] == 0)? DEV_REOR:0);
        } else {
            r = chan_read_char(chan, &buf[uptr->u6], 0);
            uptr->u6++;
        }
        switch (r) {
        case DATA_OK:
            sim_debug(DEBUG_DATA, &drm_dev, "loc %6d data %02o\n", uptr->u6,
                                 buf[uptr->u6]);
            break;

        case END_RECORD:
        case TIME_ERROR:
           /* If no data, disconnect */
            sim_debug(DEBUG_DATA, &drm_dev, "loc %6d done\n", uptr->u6);
            if (uptr->u5 & DRMSTA_WRITE)
                buf[uptr->u6] = 0;      /* Write mark */
            uptr->u5 = DRMSTA_CMD;
            break;
        }
    }
    sim_activate(uptr, DRMWORDTIME);
    return SCPE_OK;
}

/* Boot from given device */
t_stat
drm_boot(int32 unit_num, DEVICE * dptr)
{
    UNIT               *uptr = &dptr->units[unit_num];

    if ((uptr->flags & UNIT_ATT) == 0)
        return SCPE_UNATT;      /* attached? */
/* Init for a read */
    if (drm_cmd(uptr, IO_RDS, drm_dib.addr) != SCPE_OK)
        return STOP_IONRDY;
    return chan_boot(unit_num, dptr);
}

void
drm_ini(UNIT *uptr, t_bool f) {
    uptr->u5 = 0;
}

t_stat
drm_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr) {
   fprintf(st, "Drum device for IBM 702 and 705\n\n");
   fprintf(st, "The Drum had 1000 tracks with the capacity of %d digits ",
       DRMCHARTRK);
   fprintf(st, "per track\n");
   fprintf(st, "The drum does not have any settings to change\n");
   return SCPE_OK;
}


const char *
drm_description (DEVICE *dptr) {
   return "Drum";
}

#endif