First Commit of my working state

[simh.git] / I7094 / i7094_cd.c

/* i7094_cd.c: IBM 711/721 card reader/punch\r
\r
   Copyright (c) 2003-2007, 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
   cdr          711 card reader\r
   cdp          721 card punch\r
\r
   19-Jan-07    RMS     Added UNIT_TEXT\r
   13-Jul-06    RMS     Fixed problem with 80 column full cards\r
\r
   Cards are represented as ASCII text streams terminated by newlines.\r
   This allows cards to be created and edited as normal files.  Two\r
   formats are supported:\r
\r
   column binary        each character represents 6b of a 12b column\r
   text                 each character represents all 12b of a column\r
\r
   Internally, the 7094 works only with column binary and is limited\r
   to 72 columns of data.  Each row of the card is represented by 72b\r
   of data (two 36b words).  A complete card image consists of 12 rows\r
   (24 36b words).\r
*/\r
\r
#include "i7094_defs.h"\r
\r
#define CD_BINLNT               24                      /* bin buf length */\r
#define CD_CHRLNT               80                      /* char buf length */\r
\r
#define CDS_INIT                0                       /* card in motion */\r
#define CDS_DATA                1                       /* data transfer */\r
#define CDS_END                 2                       /* card complete */\r
\r
#define UNIT_V_CBN              (UNIT_V_UF + 0)         /* column binary file */\r
#define UNIT_V_PCA              (UNIT_V_UF + 1)         /* A vs H punch flag */\r
#define UNIT_CBN                (1 << UNIT_V_CBN)\r
#define UNIT_PCA                (1 << UNIT_V_PCA)\r
\r
uint32 cdr_sta = 0;                                     /* state */\r
uint32 cdr_bptr = 0;                                    /* buffer ptr */\r
uint32 cdr_tstart = 27500;                              /* timing */\r
uint32 cdr_tstop = 27500;\r
uint32 cdr_tleft = 150;\r
uint32 cdr_tright = 4000;\r
t_uint64 cdr_bbuf[CD_BINLNT];                           /* col binary buf */\r
\r
uint32 cdp_sta = 0;                                     /* state */\r
uint32 cdp_bptr = 0;                                    /* buffer ptr */\r
uint32 cdp_tstart = 35000;                              /* timing */\r
uint32 cdp_tstop = 35000;\r
uint32 cdp_tleft = 150;\r
uint32 cdp_tright = 15500;\r
t_uint64 cdp_chob = 0;\r
uint32 cdp_chob_v = 0;\r
t_uint64 cdp_bbuf[CD_BINLNT];                           /* col binary buf */\r
\r
t_stat cdr_chsel (uint32 ch, uint32 sel, uint32 unit);\r
t_stat cdr_reset (DEVICE *dptr);\r
t_stat cdr_svc (UNIT *uptr);\r
t_stat cdr_boot (int32 unitno, DEVICE *dptr);\r
t_stat cdp_chsel (uint32 ch, uint32 sel, uint32 unit);\r
t_stat cdp_chwr (uint32 ch, t_uint64 val, uint32 flags);\r
t_stat cdp_reset (DEVICE *dptr);\r
t_stat cdp_svc (UNIT *uptr);\r
t_stat cdp_card_end (UNIT *uptr);\r
t_stat cd_attach (UNIT *uptr, char *cptr);\r
t_stat cd_set_mode (UNIT *uptr, int32 val, char *cptr, void *desc);\r
char colbin_to_bcd (uint32 cb);\r
\r
extern uint32 sim_switches;\r
extern uint32 PC;\r
extern uint32 ind_ioc;\r
extern char bcd_to_ascii_a[64];\r
extern char bcd_to_ascii_h[64];\r
extern uint32 bcd_to_colbin[64];\r
extern char ascii_to_bcd[128];\r
extern t_uint64 bit_masks[36];\r
extern uint32 col_masks[12];\r
\r
/* Card reader data structures\r
\r
   cdr_dev      CDR descriptor\r
   cdr_unit     CDR unit descriptor\r
   cdr_reg      CDR register list\r
*/\r
\r
DIB cdr_dib = { &cdr_chsel, NULL };\r
\r
UNIT cdr_unit = {\r
    UDATA (&cdr_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_ROABLE+UNIT_TEXT, 0)\r
    };\r
\r
REG cdr_reg[] = {\r
    { ORDATA (STATE, cdr_sta, 2) },\r
    { DRDATA (BPTR, cdr_bptr, 5), PV_LEFT },\r
    { BRDATA (BUF, cdr_bbuf, 8, 36, CD_BINLNT) },\r
    { DRDATA (POS, cdr_unit.pos, T_ADDR_W), PV_LEFT },\r
    { DRDATA (TSTART, cdr_tstart, 24), PV_LEFT + REG_NZ },\r
    { DRDATA (TSTOP, cdr_tstop, 24), PV_LEFT + REG_NZ },\r
    { DRDATA (TLEFT, cdr_tleft, 24), PV_LEFT + REG_NZ },\r
    { DRDATA (TRIGHT, cdr_tright, 24), PV_LEFT + REG_NZ },\r
    { NULL }  };\r
\r
MTAB cdr_mod[] = {\r
    { UNIT_CBN, UNIT_CBN, "column binary", "BINARY", &cd_set_mode },\r
    { UNIT_CBN, UNIT_CBN, "text", "TEXT", &cd_set_mode },\r
    { 0 }\r
    };\r
\r
DEVICE cdr_dev = {\r
    "CDR", &cdr_unit, cdr_reg, cdr_mod,\r
    1, 10, 31, 1, 8, 7,\r
    NULL, NULL, &cdr_reset,\r
    &cdr_boot, &cd_attach, NULL,\r
    &cdr_dib, DEV_DISABLE\r
    };\r
\r
/* CDP data structures\r
\r
   cdp_dev      CDP device descriptor\r
   cdp_unit     CDP unit descriptor\r
   cdp_reg      CDP register list\r
*/\r
\r
DIB cdp_dib = { &cdp_chsel, &cdp_chwr };\r
\r
UNIT cdp_unit = {\r
    UDATA (&cdp_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0)\r
    };\r
\r
REG cdp_reg[] = {\r
    { ORDATA (STATE, cdp_sta, 2) },\r
    { ORDATA (CHOB, cdp_chob, 36) },\r
    { FLDATA (CHOBV, cdp_chob_v, 0) },\r
    { DRDATA (BPTR, cdp_bptr, 5), PV_LEFT },\r
    { BRDATA (BUF, cdp_bbuf, 8, 36, CD_BINLNT) },\r
    { DRDATA (POS, cdp_unit.pos, T_ADDR_W), PV_LEFT },\r
    { DRDATA (TSTART, cdp_tstart, 24), PV_LEFT + REG_NZ },\r
    { DRDATA (TSTOP, cdp_tstop, 24), PV_LEFT + REG_NZ },\r
    { DRDATA (TLEFT, cdp_tleft, 24), PV_LEFT + REG_NZ },\r
    { DRDATA (TRIGHT, cdp_tright, 24), PV_LEFT + REG_NZ },\r
    { NULL }\r
    };\r
\r
MTAB cdp_mod[] = {\r
    { UNIT_CBN, UNIT_CBN, "column binary", "BINARY", &cd_set_mode },\r
    { UNIT_CBN, UNIT_CBN, "text", "TEXT", &cd_set_mode },\r
    { UNIT_PCA, UNIT_PCA, "business set", "BUSINESS", NULL },\r
    { UNIT_PCA, 0,        "Fortran set", "FORTRAN", NULL },\r
    { 0 }\r
    };\r
\r
DEVICE cdp_dev = {\r
    "CDP", &cdp_unit, cdp_reg, cdp_mod,\r
    1, 10, 31, 1, 8, 7,\r
    NULL, NULL, &cdp_reset,\r
    NULL, &cd_attach, NULL,\r
    &cdp_dib, DEV_DISABLE\r
    };\r
\r
/* Card reader select */\r
\r
t_stat cdr_chsel (uint32 ch, uint32 sel, uint32 unit)\r
{\r
if (sel & CHSL_NDS) return ch6_end_nds (ch);            /* nds? nop */\r
\r
switch (sel) {                                          /* case on data sel */\r
\r
    case CHSL_RDS:                                      /* read */\r
        if ((cdr_unit.flags & UNIT_ATT) == 0)           /* not attached? */\r
            return SCPE_UNATT;\r
        if (sim_is_active (&cdr_unit))                  /* busy? */\r
            return ERR_STALL;\r
        cdr_sta = CDS_INIT;                             /* initial state */\r
        sim_activate (&cdr_unit, cdp_tstart);           /* start reader */\r
        break;\r
\r
    default:                                            /* other */\r
        return STOP_ILLIOP;                             /* not allowed */\r
        }\r
\r
return SCPE_OK;\r
}\r
\r
/* Unit timeout */\r
\r
t_stat cdr_svc (UNIT *uptr)\r
{\r
uint32 i, col, row, bufw, colbin;\r
char cdr_cbuf[(2 * CD_CHRLNT) + 2];\r
t_uint64 dat = 0;\r
\r
if ((uptr->flags & UNIT_ATT) == 0) return SCPE_UNATT;   /* not attached? */\r
switch (cdr_sta) {                                      /* case on state */\r
\r
    case CDS_INIT:                                      /* initial state */\r
        for (i = 0; i < CD_BINLNT; i++)                 /* clear bin buf */ \r
             cdr_bbuf[i] = 0;\r
        for (i = 0; i < ((2 * CD_CHRLNT) + 2); i++)     /* clear char buf */\r
            cdr_cbuf[i] = ' ';\r
        cdr_sta = CDS_DATA;                             /* data state */\r
        cdr_bptr = 0;                                   /* init buf ptr */\r
        fgets (cdr_cbuf, (uptr->flags & UNIT_CBN)? (2 * CD_CHRLNT) + 2: CD_CHRLNT + 2,\r
            uptr->fileref);                             /* read card */\r
        if (feof (uptr->fileref))                       /* eof? */\r
            return ch6_err_disc (CH_A, U_CDR, CHF_EOF); /* set EOF, disc */\r
        if (ferror (uptr->fileref)) {                   /* error? */\r
            perror ("CDR I/O error");\r
            clearerr (uptr->fileref);\r
            return SCPE_IOERR;                          /* stop */\r
            }\r
        uptr->pos = ftell (uptr->fileref);              /* update position */\r
        for (i = 0; i < (2 * CD_CHRLNT); i++)           /* convert to BCD */\r
            cdr_cbuf[i] = ascii_to_bcd[cdr_cbuf[i] & 0177] & 077;\r
        for (col = 0; col < 72; col++) {                /* process 72 columns */\r
            if (uptr->flags & UNIT_CBN)                 /* column binary? */\r
                colbin = (((uint32) cdr_cbuf[2 * col]) << 6) |\r
                ((uint32) cdr_cbuf[(2 * col) + 1]);     /* 2 chars -> col bin */\r
            else colbin = bcd_to_colbin[cdr_cbuf[col]]; /* cvt to col binary */\r
            dat = bit_masks[35 - (col % 36)];           /* mask for column */\r
            for (row = 0; row < 12; row++) {            /* rows 9..0, 11, 12 */\r
                bufw = (row * 2) + (col / 36);          /* index to buffer */\r
                if (colbin & col_masks[row])            /* row bit set? */\r
                    cdr_bbuf[bufw] |= dat;\r
                }\r
            }\r
\r
    case CDS_DATA:                                      /* data state */\r
        dat = cdr_bbuf[cdr_bptr++];                     /* get next word */\r
        if (cdr_bptr >= CD_BINLNT) {                    /* last word? */\r
            cdr_sta = CDS_END;                          /* end state */\r
            ch6_req_rd (CH_A, U_CDR, dat, CH6DF_EOR);   /* req chan, dat, EOR */\r
            sim_activate (uptr, cdr_tstop);\r
            }\r
        else {\r
            ch6_req_rd (CH_A, U_CDR, dat, 0);           /* req chan, dat */\r
            sim_activate (uptr, (cdr_bptr & 1)? cdr_tleft: cdr_tright);\r
            }\r
        break;\r
\r
    case CDS_END:                                       /* end state */\r
        if (ch6_qconn (CH_A, U_CDR)) {                  /* if cdr still conn */\r
            cdr_sta = CDS_INIT;                         /* return to init */\r
            sim_activate (uptr, 1);                     /* next card */\r
            }\r
        break;\r
        }\r
\r
return SCPE_OK;\r
}\r
\r
/* Card reader reset */\r
\r
t_stat cdr_reset (DEVICE *dptr)\r
{\r
uint32 i;\r
\r
for (i = 0; i < CD_BINLNT; i++) cdr_bbuf[i] = 0;        /* clear buffer */\r
cdr_sta = 0;                                            /* clear state */\r
cdr_bptr = 0;                                           /* clear buf ptr */\r
sim_cancel (&cdr_unit);                                 /* stop reader */\r
return SCPE_OK;\r
}\r
\r
/* Card reader bootstrap */\r
\r
#define BOOT_START      01000\r
#define BOOT_SIZE       (sizeof (boot_rom) / sizeof (t_uint64))\r
\r
static const t_uint64 boot_rom[] = {\r
    00762000001000 + U_CDR,                             /* RDSA CDR */\r
    00544000000000 + BOOT_START + 4,                    /* LCHA *+3 */\r
    00544000000000,                                     /* LCHA 0 */\r
    00021000000001,                                     /* TTR 1 */\r
    05000030000000,                                     /* IOCT 3,,0 */\r
    };\r
\r
t_stat cdr_boot (int32 unitno, DEVICE *dptr)\r
{\r
uint32 i;\r
extern t_uint64 *M;\r
\r
for (i = 0; i < BOOT_SIZE; i++)\r
    WriteP (BOOT_START + i, boot_rom[i]);\r
PC = BOOT_START;\r
return SCPE_OK;\r
}\r
\r
/* Reader/punch attach */\r
\r
t_stat cd_attach (UNIT *uptr, char *cptr)\r
{\r
t_stat r = attach_unit (uptr, cptr);\r
\r
if (r != SCPE_OK) return r;                             /* attach */\r
if (sim_switches & SWMASK ('T'))                        /* text? */\r
    uptr->flags = uptr->flags & ~UNIT_CBN;\r
else if (sim_switches & SWMASK ('C'))                   /* column binary? */\r
    uptr->flags = uptr->flags | UNIT_CBN;\r
else if (match_ext (cptr, "TXT"))                       /* .txt? */\r
    uptr->flags = uptr->flags & ~UNIT_CBN;\r
else if (match_ext (cptr, "CBN"))                       /* .cbn? */\r
    uptr->flags = uptr->flags | UNIT_CBN;\r
return SCPE_OK;\r
}\r
\r
/* Reader/punch set mode - valid only if not attached */\r
\r
t_stat cd_set_mode (UNIT *uptr, int32 val, char *cptr, void *desc)\r
{\r
return (uptr->flags & UNIT_ATT)? SCPE_NOFNC: SCPE_OK;\r
}\r
\r
/* Card punch select */\r
\r
t_stat cdp_chsel (uint32 ch, uint32 sel, uint32 unit)\r
{\r
if (sel & CHSL_NDS) return ch6_end_nds (ch);            /* nds? nop */\r
\r
switch (sel) {                                          /* case on cmd */\r
\r
    case CHSL_WRS:                                      /* write */\r
        if ((cdp_unit.flags & UNIT_ATT) == 0)           /* not attached? */\r
            return SCPE_UNATT;\r
        if (sim_is_active (&cdp_unit))                  /* busy? */\r
            return ERR_STALL;\r
        cdp_sta = CDS_INIT;                             /* initial state */\r
        sim_activate (&cdp_unit, cdp_tstart);           /* start punch */\r
        break;\r
\r
    default:                                            /* other */\r
        return STOP_ILLIOP;                             /* not allowed */\r
        }\r
return SCPE_OK;\r
}\r
\r
/* Channel write routine - write word to buffer, write card when full */\r
\r
t_stat cdp_chwr (uint32 ch, t_uint64 val, uint32 eorfl)\r
{\r
cdp_chob = val & DMASK;                                 /* store data */\r
cdp_chob_v = 1;                                         /* buffer valid */\r
if (cdp_sta == CDS_DATA) {\r
    cdp_bbuf[cdp_bptr++] = cdp_chob;                    /* store data */\r
    if ((cdp_bptr >= CD_BINLNT) || eorfl) {             /* end card or end rec? */\r
        ch6_set_flags (CH_A, U_CDP, CHF_EOR);           /* set eor */\r
        return cdp_card_end (&cdp_unit);                /* write card */\r
        }\r
    return SCPE_OK;\r
    }\r
return SCPE_IERR;\r
}\r
\r
/* Unit timeout */\r
\r
t_stat cdp_svc (UNIT *uptr)\r
{\r
uint32 i;\r
\r
switch (cdp_sta) {                                      /* case on state */\r
\r
    case CDS_INIT:                                      /* initial state */\r
        for (i = 0; i < CD_BINLNT; i++)                 /* clear bin buffer */\r
            cdp_bbuf[i] = 0;\r
        cdp_sta = CDS_DATA;                             /* data state */\r
        cdp_bptr = 0;                                   /* init pointer */\r
        ch6_req_wr (CH_A, U_CDP);                       /* request channel */\r
        cdp_chob = 0;                                   /* clr, inval buffer */\r
        cdp_chob_v = 0;\r
        sim_activate (uptr, cdp_tleft);                 /* go again */\r
        break;\r
\r
    case CDS_DATA:                                      /* data state */\r
        if (!ch6_qconn (CH_A, U_CDP))                   /* chan disconnect? */\r
            return cdp_card_end (uptr);                 /* write card */\r
        if (cdp_chob_v) cdp_chob_v = 0;                 /* valid? clear */\r
        else ind_ioc = 1;                               /* no, io check */\r
        ch6_req_wr (CH_A, U_CDP);                       /* req channel */\r
        sim_activate (uptr, (cdp_bptr & 1)? cdp_tleft: cdp_tright);\r
        break;\r
\r
    case CDS_END:                                       /* end state */\r
        if (ch6_qconn (CH_A, U_CDP)) {                  /* if cdp still conn */\r
            cdp_sta = CDS_INIT;                         /* return to init */\r
            sim_activate (uptr, 1);                     /* next card */\r
            }\r
        break;\r
        }\r
\r
return SCPE_OK;\r
}\r
\r
/* Card end - write card image to file, transition to end state */\r
\r
t_stat cdp_card_end (UNIT *uptr)\r
{\r
uint32 i, col, row, bufw, colbin;\r
char *pch, bcd, cdp_cbuf[(2 * CD_CHRLNT) + 2];\r
t_uint64 dat;\r
\r
if ((uptr->flags & UNIT_ATT) == 0) return SCPE_UNATT;   /* not attached? */\r
if (uptr->flags & UNIT_PCA) pch = bcd_to_ascii_a;\r
else pch = bcd_to_ascii_h;\r
for (col = 0; col < ((2 * CD_CHRLNT) + 1); col++)\r
    cdp_cbuf[col] = ' ';                                /* clear char buf */\r
for (col = 0; col < 72; col++) {                        /* process 72 columns */\r
    colbin = 0;\r
    dat = bit_masks[35 - (col % 36)];                   /* mask for column */\r
    for (row = 0; row < 12; row++) {                    /* proc 12 rows */\r
        bufw = (row * 2) + (col / 36);                  /* index to buffer */\r
        if (cdp_bbuf[bufw] & dat) colbin |= col_masks[row];\r
        }\r
    if (cdp_unit.flags & UNIT_CBN) {                    /* column binary? */\r
        cdp_cbuf[2 * col] = pch[(colbin >> 6) & 077];\r
        cdp_cbuf[(2 * col) + 1] = pch[colbin & 077];\r
        }\r
    else {                                              /* text */\r
        bcd = colbin_to_bcd (colbin);                   /* column bin -> BCD */\r
        cdp_cbuf[col] = pch[bcd];                       /* -> ASCII */\r
        }\r
    }\r
for (i = ((2 * CD_CHRLNT) + 1); (i > 0) &&\r
    (cdp_cbuf[i - 1] == ' '); --i) ;                    /* trim spaces */\r
cdp_cbuf[i++] = '\n';                                   /* append nl */\r
cdp_cbuf[i++] = 0;                                      /* append nul */\r
fputs (cdp_cbuf, uptr->fileref);                        /* write card */\r
uptr->pos = ftell (uptr->fileref);                      /* update position */\r
if (ferror (uptr->fileref)) {                           /* error? */\r
    perror ("CDP I/O error");\r
    clearerr (uptr->fileref);\r
    return SCPE_IOERR;\r
    }\r
cdp_sta = CDS_END;                                      /* end state */\r
sim_cancel (uptr);                                      /* cancel current */\r
sim_activate (uptr, cdp_tstop);                         /* long timer */\r
return SCPE_OK;\r
}\r
\r
/* Card punch reset */\r
\r
t_stat cdp_reset (DEVICE *dptr)\r
{\r
uint32 i;\r
\r
for (i = 0; i < 24; i++) cdp_bbuf[i] = 0;               /* clear buffer */\r
cdp_sta = 0;                                            /* clear state */\r
cdp_bptr = 0;                                           /* clear buf ptr */\r
cdp_chob = 0;\r
cdp_chob_v = 0;\r
sim_cancel (&cdp_unit);                                 /* stop punch */\r
return SCPE_OK;\r
}\r
\r
/* Column binary to BCD\r
\r
   This is based on documentation in the IBM 1620 manual and may not be\r
   accurate for the 7094.  Each row (12,11,0,1..9) is interpreted as a bit\r
   pattern, and the appropriate bits are set.  (Double punches inclusive\r
   OR, eg, 1,8,9 is 9.)  On the 1620, double punch errors are detected;\r
   since the 7094 only reads column binary, double punches are ignored.\r
\r
   Bit order, left to right, is 12, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.\r
   The for loop works right to left, so the table is reversed. */\r
\r
static const char row_val[12] = {\r
    011, 010, 007, 006, 005, 004,\r
    003, 002, 001, 020, 040, 060\r
    };\r
\r
char colbin_to_bcd (uint32 cb)\r
{\r
uint32 i;\r
char bcd;\r
\r
for (i = 0, bcd = 0; i < 12; i++) {                     /* 'sum' rows */\r
    if (cb & (1 << i)) bcd |= row_val[i];\r
    }\r
return bcd;\r
}\r