229 lines
7.9 KiB
C
229 lines
7.9 KiB
C
/* pdp11_lp.c: PDP-11 line printer simulator
|
|
|
|
Copyright (c) 1993-2021, Robert M Supnik
|
|
|
|
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
|
|
ROBERT M SUPNIK 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.
|
|
|
|
Except as contained in this notice, the name of Robert M Supnik shall not be
|
|
used in advertising or otherwise to promote the sale, use or other dealings
|
|
in this Software without prior written authorization from Robert M Supnik.
|
|
|
|
lpt LP11 line printer
|
|
|
|
20-Mar-21 RMS Reverted use of ftell for pipe compatibility
|
|
19-Jan-07 RMS Added UNIT_TEXT flag
|
|
07-Jul-05 RMS Removed extraneous externs
|
|
19-May-03 RMS Revised for new conditional compilation scheme
|
|
25-Apr-03 RMS Revised for extended file support
|
|
29-Sep-02 RMS Added vector change/display support
|
|
New data structures
|
|
30-May-02 RMS Widened POS to 32b
|
|
06-Jan-02 RMS Added enable/disable support
|
|
09-Nov-01 RMS Added VAX support
|
|
07-Sep-01 RMS Revised interrupt mechanism
|
|
30-Oct-00 RMS Standardized register naming
|
|
*/
|
|
|
|
#if defined (VM_PDP10) /* PDP10 version */
|
|
#error "LP11 is not supported on the PDP-10!"
|
|
|
|
#elif defined (VM_VAX) /* VAX version */
|
|
#include "vax_defs.h"
|
|
|
|
#else /* PDP-11 version */
|
|
#include "pdp11_defs.h"
|
|
#endif
|
|
|
|
#define LPTCSR_IMP (CSR_ERR + CSR_DONE + CSR_IE) /* implemented */
|
|
#define LPTCSR_RW (CSR_IE) /* read/write */
|
|
|
|
int32 lpt_csr = 0; /* control/status */
|
|
int32 lpt_stopioe = 0; /* stop on error */
|
|
|
|
t_stat lpt_rd (int32 *data, int32 PA, int32 access);
|
|
t_stat lpt_wr (int32 data, int32 PA, int32 access);
|
|
t_stat lpt_svc (UNIT *uptr);
|
|
t_stat lpt_reset (DEVICE *dptr);
|
|
t_stat lpt_attach (UNIT *uptr, CONST char *ptr);
|
|
t_stat lpt_detach (UNIT *uptr);
|
|
t_stat lpt_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr);
|
|
const char *lpt_description (DEVICE *dptr);
|
|
|
|
/* LPT data structures
|
|
|
|
lpt_dev LPT device descriptor
|
|
lpt_unit LPT unit descriptor
|
|
lpt_reg LPT register list
|
|
*/
|
|
|
|
#define IOLN_LPT 004
|
|
|
|
DIB lpt_dib = {
|
|
IOBA_AUTO, IOLN_LPT, &lpt_rd, &lpt_wr,
|
|
1, IVCL (LPT), VEC_AUTO, { NULL }
|
|
};
|
|
|
|
UNIT lpt_unit = {
|
|
UDATA (&lpt_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0), SERIAL_OUT_WAIT
|
|
};
|
|
|
|
REG lpt_reg[] = {
|
|
{ GRDATA (BUF, lpt_unit.buf, DEV_RDX, 8, 0) },
|
|
{ GRDATA (CSR, lpt_csr, DEV_RDX, 16, 0) },
|
|
{ FLDATA (INT, IREQ (LPT), INT_V_LPT) },
|
|
{ FLDATA (ERR, lpt_csr, CSR_V_ERR) },
|
|
{ FLDATA (DONE, lpt_csr, CSR_V_DONE) },
|
|
{ FLDATA (IE, lpt_csr, CSR_V_IE) },
|
|
{ DRDATA (POS, lpt_unit.pos, T_ADDR_W), PV_LEFT },
|
|
{ DRDATA (TIME, lpt_unit.wait, 24), PV_LEFT },
|
|
{ FLDATA (STOP_IOE, lpt_stopioe, 0) },
|
|
{ GRDATA (DEVADDR, lpt_dib.ba, DEV_RDX, 32, 0), REG_HRO },
|
|
{ GRDATA (DEVVEC, lpt_dib.vec, DEV_RDX, 16, 0), REG_HRO },
|
|
{ NULL }
|
|
};
|
|
|
|
MTAB lpt_mod[] = {
|
|
{ MTAB_XTD|MTAB_VDV|MTAB_VALR, 004, "ADDRESS", "ADDRESS",
|
|
&set_addr, &show_addr, NULL, "Bus address" },
|
|
{ MTAB_XTD|MTAB_VDV|MTAB_VALR, 0, "VECTOR", "VECTOR",
|
|
&set_vec, &show_vec, NULL, "Interrupt vector" },
|
|
{ 0 }
|
|
};
|
|
|
|
DEVICE lpt_dev = {
|
|
"LPT", &lpt_unit, lpt_reg, lpt_mod,
|
|
1, 10, 31, 1, DEV_RDX, 8,
|
|
NULL, NULL, &lpt_reset,
|
|
NULL, &lpt_attach, &lpt_detach,
|
|
&lpt_dib, DEV_DISABLE | DEV_UBUS | DEV_QBUS, 0,
|
|
NULL, NULL, NULL, &lpt_help, NULL, NULL,
|
|
&lpt_description
|
|
};
|
|
|
|
/* Line printer routines
|
|
|
|
lpt_rd I/O page read
|
|
lpt_wr I/O page write
|
|
lpt_svc process event (printer ready)
|
|
lpt_reset process reset
|
|
lpt_attach process attach
|
|
lpt_detach process detach
|
|
*/
|
|
|
|
t_stat lpt_rd (int32 *data, int32 PA, int32 access)
|
|
{
|
|
if ((PA & 02) == 0) /* csr */
|
|
*data = lpt_csr & LPTCSR_IMP;
|
|
else *data = lpt_unit.buf; /* buffer */
|
|
return SCPE_OK;
|
|
}
|
|
|
|
t_stat lpt_wr (int32 data, int32 PA, int32 access)
|
|
{
|
|
if ((PA & 02) == 0) { /* csr */
|
|
if (PA & 1)
|
|
return SCPE_OK;
|
|
if ((data & CSR_IE) == 0)
|
|
CLR_INT (LPT);
|
|
else if ((lpt_csr & (CSR_DONE + CSR_IE)) == CSR_DONE)
|
|
SET_INT (LPT);
|
|
lpt_csr = (lpt_csr & ~LPTCSR_RW) | (data & LPTCSR_RW);
|
|
}
|
|
else { /* buffer */
|
|
if ((PA & 1) == 0)
|
|
lpt_unit.buf = data & 0177;
|
|
lpt_csr = lpt_csr & ~CSR_DONE;
|
|
CLR_INT (LPT);
|
|
if ((lpt_unit.buf == 015) || (lpt_unit.buf == 014) ||
|
|
(lpt_unit.buf == 012)) sim_activate (&lpt_unit, lpt_unit.wait);
|
|
else sim_activate (&lpt_unit, 0);
|
|
}
|
|
return SCPE_OK;
|
|
}
|
|
|
|
t_stat lpt_svc (UNIT *uptr)
|
|
{
|
|
lpt_csr = lpt_csr | CSR_ERR | CSR_DONE;
|
|
if (lpt_csr & CSR_IE)
|
|
SET_INT (LPT);
|
|
if ((uptr->flags & UNIT_ATT) == 0)
|
|
return IORETURN (lpt_stopioe, SCPE_UNATT);
|
|
fputc (uptr->buf & 0177, uptr->fileref);
|
|
if (ferror (uptr->fileref)) {
|
|
sim_perror ("LPT I/O error");
|
|
clearerr (uptr->fileref);
|
|
return SCPE_IOERR;
|
|
}
|
|
uptr->pos = uptr->pos + 1;
|
|
lpt_csr = lpt_csr & ~CSR_ERR;
|
|
return SCPE_OK;
|
|
}
|
|
|
|
t_stat lpt_reset (DEVICE *dptr)
|
|
{
|
|
lpt_unit.buf = 0;
|
|
lpt_csr = CSR_DONE;
|
|
if ((lpt_unit.flags & UNIT_ATT) == 0)
|
|
lpt_csr = lpt_csr | CSR_ERR;
|
|
CLR_INT (LPT);
|
|
sim_cancel (&lpt_unit); /* deactivate unit */
|
|
return SCPE_OK;
|
|
}
|
|
|
|
t_stat lpt_attach (UNIT *uptr, CONST char *cptr)
|
|
{
|
|
t_stat reason;
|
|
|
|
lpt_csr = lpt_csr & ~CSR_ERR;
|
|
sim_switches |= SWMASK('A');
|
|
reason = attach_unit (uptr, cptr);
|
|
if ((lpt_unit.flags & UNIT_ATT) == 0)
|
|
lpt_csr = lpt_csr | CSR_ERR;
|
|
return reason;
|
|
}
|
|
|
|
t_stat lpt_detach (UNIT *uptr)
|
|
{
|
|
lpt_csr = lpt_csr | CSR_ERR;
|
|
return detach_unit (uptr);
|
|
}
|
|
|
|
t_stat lpt_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr)
|
|
{
|
|
fprintf (st, "Line Printer (LPT)\n\n");
|
|
fprintf (st, "The line printer (LPT) writes data to a disk file. The POS register specifies\n");
|
|
fprintf (st, "the number of the next data item to be written. Thus, by changing POS, the\n");
|
|
fprintf (st, "user can backspace or advance the printer.\n\n");
|
|
fprintf (st, "The default position after ATTACH is to position at the end of an existing file.\n");
|
|
fprintf (st, "A new file can be created if you attach with the -N switch.\n\n");
|
|
fprint_set_help (st, dptr);
|
|
fprint_show_help (st, dptr);
|
|
fprint_reg_help (st, dptr);
|
|
fprintf (st, "\nError handling is as follows:\n\n");
|
|
fprintf (st, " error STOP_IOE processed as\n");
|
|
fprintf (st, " not attached 1 out of paper\n");
|
|
fprintf (st, " 0 disk not ready\n\n");
|
|
fprintf (st, " OS I/O error x report error and stop\n");
|
|
return SCPE_OK;
|
|
}
|
|
|
|
const char *lpt_description (DEVICE *dptr)
|
|
{
|
|
return (UNIBUS) ? "LP11 line printer" :
|
|
"LPV11 line printer";
|
|
}
|