[simh.git] / PDP18B / pdp18b_lp.c

/* pdp18b_lp.c: 18b PDP's line printer simulator\r
\r
   Copyright (c) 1993-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
   lp62         (PDP-4)    Type 62 line printer\r
   lp647        (PDP-7,9)  Type 647 line printer\r
   lp09         (PDP-9,15) LP09 line printer\r
   lp15         (PDP-15)   LP15 line printer\r
\r
   19-Jan-07    RMS     Added UNIT_TEXT flag\r
   11-Jun-06    RMS     Made character translation table global scope\r
   14-Jan-04    RMS     Revised IO device call interface\r
   23-Jul-03    RMS     Fixed overprint bug in Type 62\r
   25-Apr-03    RMS     Revised for extended file support\r
   05-Feb-03    RMS     Added LP09, fixed conditionalization\r
   05-Oct-02    RMS     Added DIB, device number support\r
   30-May-02    RMS     Widened POS to 32b\r
   03-Feb-02    RMS     Fixed typo (found by Robert Alan Byer)\r
   25-Nov-01    RMS     Revised interrupt structure\r
   19-Sep-01    RMS     Fixed bug in 647\r
   13-Feb-01    RMS     Revised for register arrays\r
   15-Feb-01    RMS     Fixed 3 cycle data break sequence\r
   30-Oct-00    RMS     Standardized register naming\r
   20-Aug-98    RMS     Fixed compilation problem in BeOS\r
   03-Jan-97    RMS     Fixed bug in Type 62 state handling\r
*/\r
\r
#include "pdp18b_defs.h"\r
extern int32 int_hwre[API_HLVL+1];\r
const char fio_to_asc[64] = {\r
    ' ','1','2','3','4','5','6','7','8','9','\'','~','#','V','^','<',\r
    '0','/','S','T','U','V','W','X','Y','Z','"',',','>','^','-','?',\r
    'o','J','K','L','M','N','O','P','Q','R','$','=','-',')','-','(',\r
    '_','A','B','C','D','E','F','G','H','I','*','.','+',']','|','['\r
    };\r
\r
#if defined (TYPE62)\r
\r
/* Type 62 line printer */\r
\r
#define LP62_BSIZE      120                             /* line size */\r
#define BPTR_MAX        40                              /* pointer max */\r
#define BPTR_MASK       077                             /* buf ptr max */\r
\r
int32 lp62_spc = 0;                                     /* print vs spc */\r
int32 lp62_ovrpr = 0;                                   /* overprint */\r
int32 lp62_stopioe = 0;\r
int32 lp62_bp = 0;                                      /* buffer ptr */\r
char lp62_buf[LP62_BSIZE + 1] = { 0 };\r
static const char *lp62_cc[] = {\r
    "\n",\r
    "\n\n",\r
    "\n\n\n",\r
    "\n\n\n\n\n\n",\r
    "\n\n\n\n\n\n\n\n\n\n\n",\r
    "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n",\r
    "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n",\r
    "\f"\r
    };\r
\r
DEVICE lp62_dev;\r
int32 lp62_65 (int32 dev, int32 pulse, int32 dat);\r
int32 lp62_66 (int32 dev, int32 pulse, int32 dat);\r
int32 lp62_iors (void);\r
t_stat lp62_svc (UNIT *uptr);\r
t_stat lp62_reset (DEVICE *dptr);\r
\r
/* Type 62 LPT data structures\r
\r
   lp62_dev     LPT device descriptor\r
   lp62_unit    LPT unit\r
   lp62_reg     LPT register list\r
*/\r
\r
DIB lp62_dib = { DEV_LPT, 2, &lp62_iors, { &lp62_65, &lp62_66 } };\r
\r
UNIT lp62_unit = {\r
    UDATA (&lp62_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0), SERIAL_OUT_WAIT\r
    };\r
\r
REG lp62_reg[] = {\r
    { ORDATA (BUF, lp62_unit.buf, 8) },\r
    { FLDATA (INT, int_hwre[API_LPT], INT_V_LPT) },\r
    { FLDATA (DONE, int_hwre[API_LPT], INT_V_LPT) },\r
    { FLDATA (SPC, int_hwre[API_LPTSPC], INT_V_LPTSPC) },\r
    { DRDATA (BPTR, lp62_bp, 6) },\r
    { ORDATA (STATE, lp62_spc, 6), REG_HRO },\r
    { FLDATA (OVRPR, lp62_ovrpr, 0), REG_HRO },\r
    { DRDATA (POS, lp62_unit.pos, T_ADDR_W), PV_LEFT },\r
    { DRDATA (TIME, lp62_unit.wait, 24), PV_LEFT },\r
    { FLDATA (STOP_IOE, lp62_stopioe, 0) },\r
    { BRDATA (LBUF, lp62_buf, 8, 8, LP62_BSIZE) },\r
    { ORDATA (DEVNO, lp62_dib.dev, 6), REG_HRO },\r
    { NULL }\r
    };\r
\r
MTAB lp62_mod[] = {\r
    { MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO", &set_devno, &show_devno },\r
    { 0 }\r
    };\r
\r
DEVICE lp62_dev = {\r
    "LPT", &lp62_unit, lp62_reg, lp62_mod,\r
    1, 10, 31, 1, 8, 8,\r
    NULL, NULL, &lp62_reset,\r
    NULL, NULL, NULL,\r
    &lp62_dib, DEV_DISABLE\r
    };\r
\r
/* IOT routines */\r
\r
int32 lp62_65 (int32 dev, int32 pulse, int32 dat)\r
{\r
int32 i;\r
\r
if ((pulse & 01) && TST_INT (LPT)) dat = IOT_SKP | dat; /* LPSF */\r
if (pulse & 02) {\r
    int32 sb = pulse & 060;                             /* subopcode */\r
    if (sb == 000) CLR_INT (LPT);                       /* LPCF */\r
    if ((sb == 040) && (lp62_bp < BPTR_MAX)) {          /* LPLD */\r
        i = lp62_bp * 3;                                /* cvt to chr ptr */\r
        lp62_buf[i] = fio_to_asc[(dat >> 12) & 077];\r
        lp62_buf[i + 1] = fio_to_asc[(dat >> 6) & 077];\r
        lp62_buf[i + 2] = fio_to_asc[dat & 077];\r
        lp62_bp = (lp62_bp + 1) & BPTR_MASK;\r
        }\r
    }\r
if (pulse & 04) {                                       /* LPSE */\r
    lp62_spc = 0;                                       /* print */\r
    sim_activate (&lp62_unit, lp62_unit.wait);          /* activate */\r
    }\r
return dat;\r
}\r
\r
int32 lp62_66 (int32 dev, int32 pulse, int32 dat)\r
{\r
if ((pulse & 01) && TST_INT (LPTSPC))                   /* LSSF */\r
    dat = IOT_SKP | dat;\r
if (pulse & 02) CLR_INT (LPTSPC);                       /* LSCF */\r
if (pulse & 04) {                                       /* LSPR */\r
    lp62_spc = 020 | (dat & 07);                        /* space */\r
    sim_activate (&lp62_unit, lp62_unit.wait);          /* activate */\r
    }\r
return dat;\r
}\r
\r
/* Unit service, action based on lp62_spc\r
\r
   lp62_spc = 0         write buffer to file, set overprint\r
   lp62_spc = 2x        space command x, clear overprint\r
*/\r
\r
t_stat lp62_svc (UNIT *uptr)\r
{\r
int32 i;\r
\r
if (lp62_spc) {                                         /* space? */\r
    SET_INT (LPTSPC);                                   /* set flag */\r
    if ((uptr->flags & UNIT_ATT) == 0)                  /* attached? */\r
        return IORETURN (lp62_stopioe, SCPE_UNATT);\r
    fputs (lp62_cc[lp62_spc & 07], uptr->fileref);      /* print cctl */\r
    uptr->pos = ftell (uptr->fileref);                  /* update position */\r
    if (ferror (uptr->fileref)) {                       /* error? */\r
        perror ("LPT I/O error");\r
        clearerr (uptr->fileref);\r
        return SCPE_IOERR;\r
        }\r
    lp62_ovrpr = 0;                                     /* clear overprint */\r
    }\r
else {\r
    SET_INT (LPT);                                      /* print */\r
    if ((uptr->flags & UNIT_ATT) == 0)                  /* attached? */\r
        return IORETURN (lp62_stopioe, SCPE_UNATT);\r
    if (lp62_ovrpr) fputc ('\r', uptr->fileref);        /* overprint? */\r
    fputs (lp62_buf, uptr->fileref);                    /* print buffer */\r
    uptr->pos = ftell (uptr->fileref);                  /* update position */\r
    if (ferror (uptr->fileref)) {                       /* test error */\r
        perror ("LPT I/O error");\r
        clearerr (uptr->fileref);\r
        return SCPE_IOERR;\r
        }\r
    lp62_bp = 0;\r
    for (i = 0; i <= LP62_BSIZE; i++) lp62_buf[i] = 0;  /* clear buffer */\r
    lp62_ovrpr = 1;                                     /* set overprint */\r
    }\r
return SCPE_OK;\r
}\r
\r
/* Reset routine */\r
\r
t_stat lp62_reset (DEVICE *dptr)\r
{\r
int32 i;\r
\r
CLR_INT (LPT);                                          /* clear intrs */\r
CLR_INT (LPTSPC);\r
sim_cancel (&lp62_unit);                                /* deactivate unit */\r
lp62_bp = 0;                                            /* clear buffer ptr */\r
for (i = 0; i <= LP62_BSIZE; i++) lp62_buf[i] = 0;      /* clear buffer */\r
lp62_spc = 0;                                           /* clear state */\r
lp62_ovrpr = 0;                                         /* clear overprint */\r
return SCPE_OK;\r
}\r
\r
/* IORS routine */\r
\r
int32 lp62_iors (void)\r
{\r
return (TST_INT (LPT)? IOS_LPT: 0) |\r
       (TST_INT (LPTSPC)? IOS_LPT1: 0);\r
}\r
\r
#endif\r
\r
#if defined (TYPE647)\r
\r
/* Type 647 line printer */\r
\r
#define LP647_BSIZE     120                             /* line size */\r
\r
int32 lp647_don = 0;                                    /* ready */\r
int32 lp647_ie = 1;                                     /* int enable */\r
int32 lp647_err = 0;                                    /* error */\r
int32 lp647_iot = 0;                                    /* saved state */\r
int32 lp647_stopioe = 0;\r
int32 lp647_bp = 0;                                     /* buffer ptr */\r
char lp647_buf[LP647_BSIZE] = { 0 };\r
static const char *lp647_cc[] = {\r
    "\n",\r
    "\n\n",\r
    "\n\n\n",\r
    "\n\n\n\n\n\n",\r
    "\n\n\n\n\n\n\n\n\n\n\n",\r
    "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n",\r
    "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n",\r
    "\f"\r
    };\r
\r
DEVICE lp647_dev;\r
int32 lp647_65 (int32 dev, int32 pulse, int32 dat);\r
int32 lp647_66 (int32 dev, int32 pulse, int32 dat);\r
int32 lp647_iors (void);\r
t_stat lp647_svc (UNIT *uptr);\r
t_stat lp647_reset (DEVICE *dptr);\r
t_stat lp647_attach (UNIT *uptr, char *cptr);\r
t_stat lp647_detach (UNIT *uptr);\r
\r
/* Type 647 LPT data structures\r
\r
   lp647_dev    LPT device descriptor\r
   lp647_unit   LPT unit\r
   lp647_reg    LPT register list\r
*/\r
\r
DIB lp647_dib = { DEV_LPT, 2, &lp647_iors, { &lp647_65, &lp647_66 } };\r
\r
UNIT lp647_unit = {\r
    UDATA (&lp647_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0), SERIAL_OUT_WAIT\r
    };\r
\r
REG lp647_reg[] = {\r
    { ORDATA (BUF, lp647_unit.buf, 8) },\r
    { FLDATA (INT, int_hwre[API_LPT], INT_V_LPT) },\r
    { FLDATA (DONE, lp647_don, 0) },\r
#if defined (PDP9)\r
    { FLDATA (ENABLE, lp647_ie, 0) },\r
#endif\r
    { FLDATA (ERR, lp647_err, 0) },\r
    { DRDATA (BPTR, lp647_bp, 7) },\r
    { ORDATA (SCMD, lp647_iot, 6), REG_HRO },\r
    { DRDATA (POS, lp647_unit.pos, T_ADDR_W), PV_LEFT },\r
    { DRDATA (TIME, lp647_unit.wait, 24), PV_LEFT },\r
    { FLDATA (STOP_IOE, lp647_stopioe, 0) },\r
    { BRDATA (LBUF, lp647_buf, 8, 8, LP647_BSIZE) },\r
    { ORDATA (DEVNO, lp647_dib.dev, 6), REG_HRO },\r
    { NULL }\r
    };\r
\r
MTAB lp647_mod[] = {\r
    { MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO", &set_devno, &show_devno },\r
    { 0 }\r
    };\r
\r
DEVICE lp647_dev = {\r
    "LPT", &lp647_unit, lp647_reg, lp647_mod,\r
    1, 10, 31, 1, 8, 8,\r
    NULL, NULL, &lp647_reset,\r
    NULL, &lp647_attach, &lp647_detach,\r
    &lp647_dib, DEV_DISABLE\r
    };\r
\r
/* IOT routines */\r
\r
int32 lp647_65 (int32 dev, int32 pulse, int32 dat)\r
{\r
int32 i, sb;\r
\r
sb = pulse & 060;                                       /* subcode */\r
if ((pulse & 01) && lp647_don) dat = IOT_SKP | dat;     /* LPSF */\r
if (pulse & 02) {                                       /* pulse 02 */\r
    lp647_don = 0;                                      /* clear done */\r
    CLR_INT (LPT);                                      /* clear int req */\r
    if (sb == 000) {                                    /* LPCB */\r
        for (i = 0; i < LP647_BSIZE; i++) lp647_buf[i] = 0;\r
        lp647_bp = 0;                                   /* reset buf ptr */\r
        lp647_don = 1;                                  /* set done */\r
        if (lp647_ie) SET_INT (LPT);                    /* set int */\r
        }\r
    }\r
if (pulse & 004) {                                      /* LPDI */\r
    switch (sb) {                                       /* case on subcode */\r
\r
    case 000:                                           /* LPDI */\r
#if defined (PDP9)\r
        lp647_ie = 0;                                   /* clear int enable */\r
        CLR_INT (LPT);                                  /* clear int req */\r
#endif\r
        break;\r
\r
    case 040:                                           /* LPB3 */\r
        if (lp647_bp < LP647_BSIZE) {\r
            lp647_buf[lp647_bp] = lp647_buf[lp647_bp] | ((dat >> 12) & 077);\r
            lp647_bp = lp647_bp + 1;\r
            }\r
\r
    case 020:                                           /* LPB2 */\r
        if (lp647_bp < LP647_BSIZE) {\r
            lp647_buf[lp647_bp] = lp647_buf[lp647_bp] | ((dat >> 6) & 077);\r
            lp647_bp = lp647_bp + 1;\r
            }\r
\r
    case 060:                                           /* LPB1 */\r
        if (lp647_bp < LP647_BSIZE) {\r
            lp647_buf[lp647_bp] = lp647_buf[lp647_bp] | (dat & 077);\r
            lp647_bp = lp647_bp + 1;\r
            }\r
        lp647_don = 1;                                  /* set done */\r
        if (lp647_ie) SET_INT (LPT);                    /* set int */\r
        break;\r
        }                                               /* end case */\r
    }\r
return dat;\r
}\r
\r
int32 lp647_66 (int32 dev, int32 pulse, int32 dat)\r
{\r
if ((pulse & 01) && lp647_err) dat = IOT_SKP | dat;     /* LPSE */\r
if (pulse & 02) {                                       /* LPCF */\r
    lp647_don = 0;                                      /* clear done, int */\r
    CLR_INT (LPT);\r
    }\r
if (pulse & 04) {\r
    if ((pulse & 060) < 060) {                          /* LPLS, LPPB, LPPS */\r
        lp647_iot = (pulse & 060) | (dat & 07);         /* save parameters */\r
        sim_activate (&lp647_unit, lp647_unit.wait);    /* activate */\r
        }\r
#if defined (PDP9)\r
    else {                                              /* LPEI */\r
        lp647_ie = 1;                                   /* set int enable */\r
        if (lp647_don) SET_INT (LPT);\r
        }\r
#endif\r
    }\r
return dat;\r
}\r
\r
/* Unit service.  lp647_iot specifies the action to be taken\r
\r
   lp647_iot = 0x               print only\r
   lp647_iot = 2x               space only, x is spacing command\r
   lp647_iot = 4x               print then space, x is spacing command\r
*/\r
\r
t_stat lp647_svc (UNIT *uptr)\r
{\r
int32 i;\r
char pbuf[LP647_BSIZE + 2];\r
\r
lp647_don = 1;\r
if (lp647_ie) SET_INT (LPT);                            /* set flag */\r
if ((uptr->flags & UNIT_ATT) == 0) {                    /* not attached? */\r
    lp647_err = 1;                                      /* set error */\r
    return IORETURN (lp647_stopioe, SCPE_UNATT);\r
    }\r
if ((lp647_iot & 020) == 0) {                           /* print? */\r
    for (i = 0; i < lp647_bp; i++)                      /* translate buffer */\r
        pbuf[i] = lp647_buf[i] | ((lp647_buf[i] >= 040)? 0: 0100);\r
    if ((lp647_iot & 060) == 0) pbuf[lp647_bp++] = '\r';\r
    pbuf[lp647_bp++] = 0;                               /* append nul */\r
    for (i = 0; i < LP647_BSIZE; i++) lp647_buf[i] = 0; /* clear buffer */\r
    fputs (pbuf, uptr->fileref);                        /* print buffer */\r
    uptr->pos = ftell (uptr->fileref);                  /* update position */\r
    if (ferror (uptr->fileref)) {                       /* error? */\r
        perror ("LPT I/O error");\r
        clearerr (uptr->fileref);\r
        lp647_bp = 0;\r
        return SCPE_IOERR;\r
        }\r
    lp647_bp = 0;                                       /* clear buffer ptr */\r
    }\r
if (lp647_iot & 060) {                                  /* space? */\r
    fputs (lp647_cc[lp647_iot & 07], uptr->fileref);    /* write cctl */\r
    uptr->pos = ftell (uptr->fileref);                  /* update position */\r
    if (ferror (uptr->fileref)) {                       /* error? */\r
        perror ("LPT I/O error");\r
        clearerr (uptr->fileref);\r
        return SCPE_IOERR;\r
        }\r
    }\r
return SCPE_OK;\r
}\r
\r
/* Reset routine */\r
\r
t_stat lp647_reset (DEVICE *dptr)\r
{\r
int32 i;\r
\r
lp647_don = 0;                                          /* clear done */\r
lp647_err = (lp647_unit.flags & UNIT_ATT)? 0: 1;        /* clr/set error */\r
lp647_ie = 1;                                           /* set enable */\r
CLR_INT (LPT);                                          /* clear int */\r
sim_cancel (&lp647_unit);                               /* deactivate unit */\r
lp647_bp = 0;                                           /* clear buffer ptr */\r
lp647_iot = 0;                                          /* clear state */\r
for (i = 0; i < LP647_BSIZE; i++) lp647_buf[i] = 0;     /* clear buffer */\r
return SCPE_OK;\r
}\r
\r
/* IORS routine */\r
\r
int32 lp647_iors (void)\r
{\r
return (lp647_don? IOS_LPT: 0) | (lp647_err? IOS_LPT1: 0);\r
}\r
\r
/* Attach routine */\r
\r
t_stat lp647_attach (UNIT *uptr, char *cptr)\r
{\r
t_stat reason;\r
\r
reason = attach_unit (uptr, cptr);\r
lp647_err = (lp647_unit.flags & UNIT_ATT)? 0: 1;        /* clr/set error */\r
return reason;\r
}\r
\r
/* Detach routine */\r
\r
t_stat lp647_detach (UNIT *uptr)\r
{\r
lp647_err = 1;\r
return detach_unit (uptr);\r
}\r
\r
#endif\r
\r
#if defined (LP09)\r
\r
/* LP09 line printer */\r
\r
#define LP09_BSIZE      132                             /* line size */\r
\r
int32 lp09_don = 0;                                     /* ready */\r
int32 lp09_err = 0;                                     /* error */\r
int32 lp09_ie = 1;                                      /* int enable */\r
int32 lp09_stopioe = 0;\r
DEVICE lp09_dev;\r
\r
int32 lp09_66 (int32 dev, int32 pulse, int32 dat);\r
int32 lp09_iors (void);\r
t_stat lp09_svc (UNIT *uptr);\r
t_stat lp09_reset (DEVICE *dptr);\r
t_stat lp09_attach (UNIT *uptr, char *cptr);\r
t_stat lp09_detach (UNIT *uptr);\r
\r
/* LP09 LPT data structures\r
\r
   lp09_dev     LPT device descriptor\r
   lp09_unit    LPT unit\r
   lp09_reg     LPT register list\r
*/\r
\r
DIB lp09_dib = { DEV_LPT, 2, &lp09_iors, { NULL, &lp09_66 } };\r
\r
UNIT lp09_unit = {\r
    UDATA (&lp09_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0), SERIAL_OUT_WAIT\r
    };\r
\r
REG lp09_reg[] = {\r
    { ORDATA (BUF, lp09_unit.buf, 7) },\r
    { FLDATA (INT, int_hwre[API_LPT], INT_V_LPT) },\r
    { FLDATA (DONE, lp09_don, 0) },\r
    { FLDATA (ENABLE, lp09_ie, 0) },\r
    { FLDATA (ERR, lp09_err, 0) },\r
    { DRDATA (POS, lp09_unit.pos, T_ADDR_W), PV_LEFT },\r
    { DRDATA (TIME, lp09_unit.wait, 24), PV_LEFT },\r
    { FLDATA (STOP_IOE, lp09_stopioe, 0) },\r
    { ORDATA (DEVNO, lp09_dib.dev, 6), REG_HRO },\r
    { NULL }\r
    };\r
\r
MTAB lp09_mod[] = {\r
    { MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO", &set_devno, &show_devno },\r
    { 0 }\r
    };\r
\r
DEVICE lp09_dev = {\r
    "LP9", &lp09_unit, lp09_reg, lp09_mod,\r
    1, 10, 31, 1, 8, 8,\r
    NULL, NULL, &lp09_reset,\r
    NULL, &lp09_attach, &lp09_detach,\r
    &lp09_dib, DEV_DISABLE | DEV_DIS\r
    };\r
\r
/* IOT routines */\r
\r
int32 lp09_66 (int32 dev, int32 pulse, int32 dat)\r
{\r
int32 sb = pulse & 060;                                 /* subopcode */\r
\r
if (pulse & 001) {\r
    if ((sb == 000) && lp09_don) dat = IOT_SKP | dat;   /* LSDF */\r
    if ((sb == 020) && lp09_err) dat = IOT_SKP | dat;   /* LSEF */\r
    }\r
if (pulse & 002) {\r
    if (sb == 000) {                                    /* LSCF */\r
        lp09_don = 0;                                   /* clear done, int */\r
        CLR_INT (LPT);\r
        }\r
    else if (sb == 020) {                               /* LPLD */\r
        lp09_don = 0;                                   /* clear done, int */\r
        CLR_INT (LPT);\r
        lp09_unit.buf = dat & 0177;                     /* load char */\r
        if ((lp09_unit.buf == 015) || (lp09_unit.buf == 014) ||\r
            (lp09_unit.buf == 012))\r
            sim_activate (&lp09_unit, lp09_unit.wait);\r
        else dat = dat | (lp09_svc (&lp09_unit) << IOT_V_REASON);\r
        }\r
    }\r
if (pulse & 004) {\r
    if (sb == 000) {                                    /* LIOF */\r
        lp09_ie = 0;                                    /* clear int enab */\r
        CLR_INT (LPT);                                  /* clear int */\r
        }\r
    else if (sb == 040) {                               /* LION */\r
        lp09_ie = 1;                                    /* set int enab */\r
        if (lp09_don) SET_INT (LPT);                    /* if done, set int */\r
        }\r
    }\r
return dat;\r
}\r
\r
/* Unit service */\r
\r
t_stat lp09_svc (UNIT *uptr)\r
{\r
int32 c;\r
\r
lp09_don = 1;                                           /* set done */\r
if (lp09_ie) SET_INT (LPT);                             /* int enb? req int */\r
if ((uptr->flags & UNIT_ATT) == 0) {                    /* not attached? */\r
    lp09_err = 1;                                       /* set error */\r
    return IORETURN (lp09_stopioe, SCPE_UNATT);\r
    }\r
c = uptr->buf & 0177;                                   /* get char */\r
if ((c == 0) || (c == 0177)) return SCPE_OK;            /* skip NULL, DEL */\r
fputc (c, uptr->fileref);                               /* print char */\r
uptr->pos = ftell (uptr->fileref);                      /* update position */\r
if (ferror (uptr->fileref)) {                           /* error? */\r
    perror ("LPT I/O error");\r
    clearerr (uptr->fileref);\r
    return SCPE_IOERR;\r
    }\r
return SCPE_OK;\r
}\r
\r
/* Reset routine */\r
\r
t_stat lp09_reset (DEVICE *dptr)\r
{\r
lp09_don = 0;                                           /* clear done */\r
lp09_err = (lp09_unit.flags & UNIT_ATT)? 0: 1;          /* compute error */\r
lp09_ie = 1;                                            /* set enable */\r
CLR_INT (LPT);                                          /* clear int */\r
return SCPE_OK;\r
}\r
\r
/* IORS routine */\r
\r
int32 lp09_iors (void)\r
{\r
return (lp09_don? IOS_LPT: 0);\r
}\r
\r
/* Attach routine */\r
\r
t_stat lp09_attach (UNIT *uptr, char *cptr)\r
{\r
t_stat reason;\r
\r
reason = attach_unit (uptr, cptr);\r
lp09_err = (lp09_unit.flags & UNIT_ATT)? 0: 1;          /* clr/set error */\r
return reason;\r
}\r
\r
/* Detach routine */\r
\r
t_stat lp09_detach (UNIT *uptr)\r
{\r
lp09_err = 1;\r
return detach_unit (uptr);\r
}\r
\r
#endif\r
\r
#if defined (LP15)\r
\r
/* LP15 line printer */\r
\r
#define LP15_BSIZE      132                             /* line size */\r
#define LPT_WC          034                             /* word count */\r
#define LPT_CA          035                             /* current addr */\r
\r
/* Status register */\r
\r
#define STA_ERR         0400000                         /* error */\r
#define STA_ALM         0200000                         /* alarm */\r
#define STA_OVF         0100000                         /* line overflow */\r
#define STA_IHT         0040000                         /* illegal HT */\r
#define STA_BUSY        0020000                         /* busy */\r
#define STA_DON         0010000                         /* done */\r
#define STA_ILK         0004000                         /* interlock */\r
#define STA_EFLGS       (STA_ALM | STA_OVF | STA_IHT | STA_ILK)\r
#define STA_CLR         0003777                         /* always clear */\r
\r
extern int32 M[];\r
int32 lp15_sta = 0;\r
int32 lp15_ie = 1;\r
int32 lp15_stopioe = 0;\r
int32 lp15_mode = 0;\r
int32 lp15_lc = 0;\r
int32 lp15_bp = 0;\r
char lp15_buf[LP15_BSIZE + 1] = { 0 };\r
\r
DEVICE lp15_dev;\r
int32 lp15_65 (int32 dev, int32 pulse, int32 dat);\r
int32 lp15_66 (int32 dev, int32 pulse, int32 dat);\r
int32 lp15_iors (void);\r
t_stat lp15_svc (UNIT *uptr);\r
t_stat lp15_reset (DEVICE *dptr);\r
\r
int32 lp15_updsta (int32 new);\r
\r
/* LP15 LPT data structures\r
\r
   lp15_dev     LPT device descriptor\r
   lp15_unit    LPT unit\r
   lp15_reg     LPT register list\r
*/\r
\r
DIB lp15_dib = { DEV_LPT, 2, &lp15_iors, { &lp15_65, &lp15_66 } };\r
\r
UNIT lp15_unit = {\r
    UDATA (&lp15_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0), SERIAL_OUT_WAIT\r
    };\r
\r
REG lp15_reg[] = {\r
    { ORDATA (STA, lp15_sta, 18) },\r
    { ORDATA (CA, M[LPT_CA], 18) },\r
    { FLDATA (INT, int_hwre[API_LPT], INT_V_LPT) },\r
    { FLDATA (ENABLE, lp15_ie, 0) },\r
    { DRDATA (LCNT, lp15_lc, 9) },\r
    { DRDATA (BPTR, lp15_bp, 8) },\r
    { FLDATA (MODE, lp15_mode, 0) },\r
    { DRDATA (POS, lp15_unit.pos, T_ADDR_W), PV_LEFT },\r
    { DRDATA (TIME, lp15_unit.wait, 24), PV_LEFT },\r
    { FLDATA (STOP_IOE, lp15_stopioe, 0) },\r
    { BRDATA (LBUF, lp15_buf, 8, 8, LP15_BSIZE) },\r
    { ORDATA (DEVNO, lp15_dib.dev, 6), REG_HRO },\r
    { NULL }\r
    };\r
\r
MTAB lp15_mod[] = {\r
    { MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO", &set_devno, &show_devno },\r
    { 0 }\r
    };\r
\r
DEVICE lp15_dev = {\r
    "LPT", &lp15_unit, lp15_reg, lp15_mod,\r
    1, 10, 31, 1, 8, 8,\r
    NULL, NULL, &lp15_reset,\r
    NULL, NULL, NULL,\r
    &lp15_dib, DEV_DISABLE\r
    };\r
\r
/* IOT routines */\r
\r
int32 lp15_65 (int32 dev, int32 pulse, int32 dat)\r
{\r
int32 header, sb;\r
\r
sb = pulse & 060;                                       /* subopcode */\r
if (pulse & 01) {\r
    if ((sb == 000) && (lp15_sta & (STA_ERR | STA_DON))) /* LPSF */\r
        dat = IOT_SKP | dat;\r
    else if ((sb == 020) || (sb == 040)) {              /* LPP1, LPPM */\r
        sim_activate (&lp15_unit, lp15_unit.wait);      /* activate */\r
        header = M[(M[LPT_CA] + 1) & AMASK];            /* get first word */\r
        M[LPT_CA] = (M[LPT_CA] + 2) & DMASK;\r
        lp15_mode = header & 1;                         /* mode */\r
        if (sb == 040) lp15_lc = 1;                     /* line count */\r
        else lp15_lc = (header >> 9) & 0377;\r
        if (lp15_lc == 0) lp15_lc = 256;\r
        lp15_bp = 0;                                    /* reset buf ptr */\r
        }\r
    else if (sb == 060) lp15_ie = 0;                    /* LPDI */\r
    }\r
if ((pulse & 02) && (sb == 040)) dat = dat | lp15_updsta (0); /* LPOS, LPRS */\r
if ((pulse & 04) && (sb == 040)) lp15_ie = 1;           /* LPEI */\r
lp15_updsta (0);                                        /* update status */\r
return dat;\r
}\r
\r
int32 lp15_66 (int32 dev, int32 pulse, int32 dat)\r
{\r
if (pulse == 021) lp15_sta = lp15_sta & ~STA_DON;       /* LPCD */\r
if (pulse == 041) lp15_sta = 0;                         /* LPCF */\r
lp15_updsta (0);                                        /* update status */\r
return dat;\r
}\r
\r
/* Unit service */\r
\r
t_stat lp15_svc (UNIT *uptr)\r
{\r
int32 i, ccnt, more, w0, w1;\r
char c[5];\r
static const char *ctrl[040] = {\r
    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,\r
    NULL, NULL, "\n", "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n",\r
    "\f", "\r", NULL, NULL,\r
    "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n",\r
    "\n\n", "\n\n\n", "\n",\r
    "\n\n\n\n\n\n\n\n\n\n", NULL, NULL, NULL,\r
    NULL, NULL, NULL, "\r", NULL, NULL, NULL, NULL\r
    };\r
\r
if ((uptr->flags & UNIT_ATT) == 0) {                    /* not attached? */\r
    lp15_updsta (STA_DON | STA_ALM);                    /* set done, err */\r
    return IORETURN (lp15_stopioe, SCPE_UNATT);\r
    }\r
\r
for (more = 1; more != 0; ) {                           /* loop until ctrl */\r
    w0 = M[(M[LPT_CA] + 1) & AMASK];                    /* get first word */\r
    w1 = M[(M[LPT_CA] + 2) & AMASK];                    /* get second word */\r
    M[LPT_CA] = (M[LPT_CA] + 2) & DMASK;                /* advance mem addr */\r
    if (lp15_mode) {                                    /* unpacked? */\r
        c[0] = w0 & 0177;\r
        c[1] = w1 & 0177;\r
        ccnt = 2;\r
        }\r
    else {                                              /* packed */\r
        c[0] = (w0 >> 11) & 0177;\r
        c[1] = (w0 >> 4) & 0177;\r
        c[2] = (((w0 << 3) | (w1 >> 15))) & 0177;\r
        c[3] = (w1 >> 8) & 0177;\r
        c[4] = (w1 >> 1) & 0177;\r
        ccnt = 5;\r
        }\r
    for (i = 0; i < ccnt; i++) {                        /* loop through */\r
        if ((c[i] <= 037) && ctrl[c[i]]) {              /* control char? */\r
            lp15_buf[lp15_bp] = 0;                      /* append nul */\r
            fputs (lp15_buf, uptr->fileref);            /* print line */\r
            fputs (ctrl[c[i]], uptr->fileref);          /* space */\r
            uptr->pos = ftell (uptr->fileref);\r
            if (ferror (uptr->fileref)) {               /* error? */\r
                perror ("LPT I/O error");\r
                clearerr (uptr->fileref);\r
                lp15_bp = 0;\r
                lp15_updsta (STA_DON | STA_ALM);\r
                return SCPE_IOERR;\r
                }\r
            lp15_bp = more = 0;\r
            }\r
        else {\r
            if (lp15_bp < LP15_BSIZE) lp15_buf[lp15_bp++] = c[i];\r
            else lp15_sta = lp15_sta | STA_OVF;\r
            }\r
        }\r
    }\r
\r
lp15_lc = lp15_lc - 1;                                  /* decr line count */\r
if (lp15_lc) sim_activate (&lp15_unit, uptr->wait);     /* more to do? */\r
else lp15_updsta (STA_DON);                             /* no, set done */\r
return SCPE_OK;\r
}\r
\r
/* Update status */\r
\r
int32 lp15_updsta (int32 new)\r
{\r
lp15_sta = (lp15_sta | new) & ~(STA_CLR | STA_ERR | STA_BUSY);\r
if (lp15_sta & STA_EFLGS) lp15_sta = lp15_sta | STA_ERR; /* update errors */\r
if (sim_is_active (&lp15_unit)) lp15_sta = lp15_sta | STA_BUSY;\r
if (lp15_ie && (lp15_sta & STA_DON)) SET_INT (LPT);\r
else CLR_INT (LPT);                                     /* update int */\r
return lp15_sta;\r
}\r
\r
/* Reset routine */\r
\r
t_stat lp15_reset (DEVICE *dptr)\r
{\r
lp15_mode = lp15_lc = lp15_bp = 0;                      /* clear controls */\r
sim_cancel (&lp15_unit);                                /* deactivate unit */\r
lp15_sta = 0;                                           /* clear status */\r
lp15_ie = 1;                                            /* enable interrupts */\r
lp15_updsta (0);                                        /* update status */\r
return SCPE_OK;\r
}\r
\r
/* IORS routine */\r
\r
int32 lp15_iors (void)\r
{\r
return ((lp15_sta & STA_DON)? IOS_LPT: 0);\r
}\r
\r
#endif\r