53d02f7fa7
1. New Features 1.1 3.7-0 1.1.1 SCP - Added SET THROTTLE and SET NOTHROTTLE commands to regulate simulator execution rate and host resource utilization. - Added idle support (based on work by Mark Pizzolato). - Added -e to control error processing in nested DO commands (from Dave Bryan). 1.1.2 HP2100 - Added Double Integer instructions, 1000-F CPU, and Floating Point Processor (from Dave Bryan). - Added 2114 and 2115 CPUs, 12607B and 12578A DMA controllers, and 21xx binary loader protection (from Dave Bryan). 1.1.3 Interdata - Added SET IDLE and SET NOIDLE commands to idle the simulator in wait state. 1.1.4 PDP-11 - Added SET IDLE and SET NOIDLE commands to idle the simulator in wait state (WAIT instruction executed). - Added TA11/TU60 cassette support. 1.1.5 PDP-8 - Added SET IDLE and SET NOIDLE commands to idle the simulator in wait state (keyboard poll loop or jump-to-self). - Added TA8E/TU60 cassette support. 1.1.6 PDP-1 - Added support for 16-channel sequence break system. - Added support for PDP-1D extended features and timesharing clock. - Added support for Type 630 data communications subsystem. 1.1.6 PDP-4/7/9/15 - Added SET IDLE and SET NOIDLE commands to idle the simulator in wait state (keyboard poll loop or jump-to-self). 1.1.7 VAX, VAX780 - Added SET IDLE and SET NOIDLE commands to idle the simulator in wait state (more than 200 cycles at IPL's 0, 1, or 3 in kernel mode). 1.1.8 PDP-10 - Added SET IDLE and SET NOIDLE commands to idle the simulator in wait state (operating system dependent). - Added CD20 (CD11) support. 2. Bugs Fixed Please see the revision history on http://simh.trailing-edge.com or in the source module sim_rev.h.
298 lines
12 KiB
C
298 lines
12 KiB
C
/* hp2100_lpt.c: HP 2100 12845B line printer simulator
|
|
|
|
Copyright (c) 1993-2006, 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 12845B 2607 line printer
|
|
|
|
28-Dec-06 JDB Added ioCRS state to I/O decoders (action unverified)
|
|
19-Nov-04 JDB Added restart when set online, etc.
|
|
29-Sep-04 JDB Added SET OFFLINE/ONLINE, POWEROFF/POWERON
|
|
Fixed status returns for error conditions
|
|
Fixed TOF handling so form remains on line 0
|
|
03-Jun-04 RMS Fixed timing (found by Dave Bryan)
|
|
26-Apr-04 RMS Fixed SFS x,C and SFC x,C
|
|
Implemented DMA SRQ (follows FLG)
|
|
25-Apr-03 RMS Revised for extended file support
|
|
24-Oct-02 RMS Cloned from 12653A
|
|
|
|
The 2607 provides three status bits via the interface:
|
|
|
|
bit 15 -- printer ready (online)
|
|
bit 14 -- paper out
|
|
bit 0 -- printer idle
|
|
|
|
The expected status returns are:
|
|
|
|
140001 -- power off or cable disconnected
|
|
100001 -- power on, paper loaded, printer ready
|
|
100000 -- power on, paper loaded, printer busy
|
|
040000 -- power on, paper out (at bottom-of-form)
|
|
000000 -- power on, paper out (not at BOF) / print button up / platen open
|
|
|
|
Manual Note: "2-33. PAPER OUT SIGNAL. [...] The signal is asserted only
|
|
when the format tape in the line printer has reached the bottom of form."
|
|
|
|
These simulator commands provide the listed printer states:
|
|
|
|
SET LPT POWEROFF --> power off or cable disconnected
|
|
SET LPT POWERON --> power on
|
|
SET LPT OFFLINE --> print button up
|
|
SET LPT ONLINE --> print button down
|
|
ATT LPT <file> --> paper loaded
|
|
DET LPT --> paper out
|
|
|
|
Reference:
|
|
- 12845A Line Printer Operating and Service Manual (12845-90001, Aug-1972)
|
|
*/
|
|
|
|
#include "hp2100_defs.h"
|
|
|
|
#define LPT_PAGELNT 60 /* page length */
|
|
|
|
#define LPT_NBSY 0000001 /* not busy */
|
|
#define LPT_PAPO 0040000 /* paper out */
|
|
#define LPT_RDY 0100000 /* ready */
|
|
#define LPT_PWROFF LPT_RDY | LPT_PAPO | LPT_NBSY /* power-off status */
|
|
|
|
#define LPT_CTL 0100000 /* control output */
|
|
#define LPT_CHAN 0000100 /* skip to chan */
|
|
#define LPT_SKIPM 0000077 /* line count mask */
|
|
#define LPT_CHANM 0000007 /* channel mask */
|
|
|
|
#define UNIT_V_POWEROFF (UNIT_V_UF + 0) /* unit powered off */
|
|
#define UNIT_V_OFFLINE (UNIT_V_UF + 1) /* unit offline */
|
|
#define UNIT_POWEROFF (1 << UNIT_V_POWEROFF)
|
|
#define UNIT_OFFLINE (1 << UNIT_V_OFFLINE)
|
|
|
|
extern uint32 PC;
|
|
extern uint32 dev_cmd[2], dev_ctl[2], dev_flg[2], dev_fbf[2], dev_srq[2];
|
|
|
|
int32 lpt_ctime = 4; /* char time */
|
|
int32 lpt_ptime = 10000; /* print time */
|
|
int32 lpt_stopioe = 0; /* stop on error */
|
|
int32 lpt_lcnt = 0; /* line count */
|
|
static int32 lpt_cct[8] = {
|
|
1, 1, 1, 2, 3, LPT_PAGELNT/2, LPT_PAGELNT/4, LPT_PAGELNT/6
|
|
};
|
|
|
|
DEVICE lpt_dev;
|
|
int32 lptio (int32 inst, int32 IR, int32 dat);
|
|
t_stat lpt_svc (UNIT *uptr);
|
|
t_stat lpt_reset (DEVICE *dptr);
|
|
t_stat lpt_restart (UNIT *uptr, int32 value, char *cptr, void *desc);
|
|
t_stat lpt_attach (UNIT *uptr, char *cptr);
|
|
|
|
/* LPT data structures
|
|
|
|
lpt_dev LPT device descriptor
|
|
lpt_unit LPT unit descriptor
|
|
lpt_reg LPT register list
|
|
*/
|
|
|
|
DIB lpt_dib = { LPT, 0, 0, 0, 0, 0, &lptio };
|
|
|
|
UNIT lpt_unit = {
|
|
UDATA (&lpt_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_DISABLE, 0)
|
|
};
|
|
|
|
REG lpt_reg[] = {
|
|
{ ORDATA (BUF, lpt_unit.buf, 7) },
|
|
{ FLDATA (CMD, lpt_dib.cmd, 0) },
|
|
{ FLDATA (CTL, lpt_dib.ctl, 0) },
|
|
{ FLDATA (FLG, lpt_dib.flg, 0) },
|
|
{ FLDATA (FBF, lpt_dib.fbf, 0) },
|
|
{ FLDATA (SRQ, lpt_dib.srq, 0) },
|
|
{ DRDATA (LCNT, lpt_lcnt, 7) },
|
|
{ DRDATA (POS, lpt_unit.pos, T_ADDR_W), PV_LEFT },
|
|
{ DRDATA (CTIME, lpt_ctime, 31), PV_LEFT },
|
|
{ DRDATA (PTIME, lpt_ptime, 24), PV_LEFT },
|
|
{ FLDATA (STOP_IOE, lpt_stopioe, 0) },
|
|
{ ORDATA (DEVNO, lpt_dib.devno, 6), REG_HRO },
|
|
{ NULL }
|
|
};
|
|
|
|
MTAB lpt_mod[] = {
|
|
{ UNIT_POWEROFF, UNIT_POWEROFF, "power off", "POWEROFF", NULL },
|
|
{ UNIT_POWEROFF, 0, "power on", "POWERON", lpt_restart },
|
|
{ UNIT_OFFLINE, UNIT_OFFLINE, "offline", "OFFLINE", NULL },
|
|
{ UNIT_OFFLINE, 0, "online", "ONLINE", lpt_restart },
|
|
{ MTAB_XTD | MTAB_VDV, 0, "DEVNO", "DEVNO",
|
|
&hp_setdev, &hp_showdev, &lpt_dev },
|
|
{ 0 }
|
|
};
|
|
|
|
DEVICE lpt_dev = {
|
|
"LPT", &lpt_unit, lpt_reg, lpt_mod,
|
|
1, 10, 31, 1, 8, 8,
|
|
NULL, NULL, &lpt_reset,
|
|
NULL, &lpt_attach, NULL,
|
|
&lpt_dib, DEV_DISABLE
|
|
};
|
|
|
|
/* IO instructions */
|
|
|
|
int32 lptio (int32 inst, int32 IR, int32 dat)
|
|
{
|
|
int32 dev;
|
|
|
|
dev = IR & I_DEVMASK; /* get device no */
|
|
switch (inst) { /* case on opcode */
|
|
|
|
case ioFLG: /* flag clear/set */
|
|
if ((IR & I_HC) == 0) { setFSR (dev); } /* STF */
|
|
break;
|
|
|
|
case ioSFC: /* skip flag clear */
|
|
if (FLG (dev) == 0) PC = (PC + 1) & VAMASK;
|
|
break;
|
|
|
|
case ioSFS: /* skip flag set */
|
|
if (FLG (dev) != 0) PC = (PC + 1) & VAMASK;
|
|
break;
|
|
|
|
case ioOTX: /* output */
|
|
lpt_unit.buf = dat & (LPT_CTL | 0177);
|
|
break;
|
|
|
|
case ioLIX: /* load */
|
|
dat = 0; /* default sta = 0 */
|
|
case ioMIX: /* merge */
|
|
if (lpt_unit.flags & UNIT_POWEROFF) /* power off? */
|
|
dat = dat | LPT_PWROFF;
|
|
else if (!(lpt_unit.flags & UNIT_OFFLINE)) { /* online? */
|
|
if (lpt_unit.flags & UNIT_ATT) { /* paper loaded? */
|
|
dat = dat | LPT_RDY;
|
|
if (!sim_is_active (&lpt_unit)) /* printer busy? */
|
|
dat = dat | LPT_NBSY;
|
|
}
|
|
else if (lpt_lcnt == LPT_PAGELNT - 1) /* paper out, at BOF? */
|
|
dat = dat | LPT_PAPO;
|
|
}
|
|
break;
|
|
|
|
case ioCRS: /* control reset (action unverif) */
|
|
case ioCTL: /* control clear/set */
|
|
if (IR & I_CTL) { /* CLC */
|
|
clrCMD (dev); /* clear ctl, cmd */
|
|
clrCTL (dev);
|
|
}
|
|
else { /* STC */
|
|
setCMD (dev); /* set ctl, cmd */
|
|
setCTL (dev);
|
|
sim_activate (&lpt_unit, /* schedule op */
|
|
(lpt_unit.buf & LPT_CTL)? lpt_ptime: lpt_ctime);
|
|
}
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
if (IR & I_HC) { clrFSR (dev); } /* H/C option */
|
|
return dat;
|
|
}
|
|
|
|
/* Unit service */
|
|
|
|
t_stat lpt_svc (UNIT *uptr)
|
|
{
|
|
int32 i, skip, chan, dev;
|
|
|
|
dev = lpt_dib.devno; /* get dev no */
|
|
if ((uptr->flags & UNIT_ATT) == 0) /* attached? */
|
|
return IORETURN (lpt_stopioe, SCPE_UNATT);
|
|
else if (uptr->flags & UNIT_OFFLINE) /* offline? */
|
|
return IORETURN (lpt_stopioe, STOP_OFFLINE);
|
|
else if (uptr->flags & UNIT_POWEROFF) /* powered off? */
|
|
return IORETURN (lpt_stopioe, STOP_PWROFF);
|
|
clrCMD (dev); /* clear cmd */
|
|
setFSR (dev); /* set flag, fbf */
|
|
if (uptr->buf & LPT_CTL) { /* control word? */
|
|
if (uptr->buf & LPT_CHAN) {
|
|
chan = uptr->buf & LPT_CHANM;
|
|
if (chan == 0) { /* top of form? */
|
|
fputc ('\f', uptr->fileref); /* ffeed */
|
|
lpt_lcnt = 0; /* reset line cnt */
|
|
skip = 0;
|
|
}
|
|
else if (chan == 1) skip = LPT_PAGELNT - lpt_lcnt - 1;
|
|
else skip = lpt_cct[chan] - (lpt_lcnt % lpt_cct[chan]);
|
|
}
|
|
else {
|
|
skip = uptr->buf & LPT_SKIPM;
|
|
if (skip == 0) fputc ('\r', uptr->fileref);
|
|
}
|
|
for (i = 0; i < skip; i++) fputc ('\n', uptr->fileref);
|
|
lpt_lcnt = (lpt_lcnt + skip) % LPT_PAGELNT;
|
|
}
|
|
else fputc (uptr->buf & 0177, uptr->fileref); /* no, just add char */
|
|
if (ferror (uptr->fileref)) {
|
|
perror ("LPT I/O error");
|
|
clearerr (uptr->fileref);
|
|
return SCPE_IOERR;
|
|
}
|
|
lpt_unit.pos = ftell (uptr->fileref); /* update pos */
|
|
return SCPE_OK;
|
|
}
|
|
|
|
/* Reset routine - called from SCP, flags in DIB */
|
|
|
|
t_stat lpt_reset (DEVICE *dptr)
|
|
{
|
|
lpt_dib.cmd = lpt_dib.ctl = 0; /* clear cmd, ctl */
|
|
lpt_dib.flg = lpt_dib.fbf = lpt_dib.srq = 1; /* set flg, fbf, srq */
|
|
lpt_unit.buf = 0;
|
|
sim_cancel (&lpt_unit); /* deactivate unit */
|
|
return SCPE_OK;
|
|
}
|
|
|
|
/* Restart I/O routine
|
|
|
|
If I/O is started via STC, and the printer is powered off, offline,
|
|
or out of paper, the CTL and CMD flip-flops will set, a service event
|
|
will be scheduled, and the service routine will be entered. If
|
|
STOP_IOE is not set, the I/O operation will "hang" at that point
|
|
until the printer is powered on, set online, or paper is supplied
|
|
(attached).
|
|
|
|
If a pending operation is "hung" when this routine is called, it is
|
|
restarted, which clears CTL and sets FBF and FLG, completing the
|
|
original I/O request.
|
|
*/
|
|
|
|
t_stat lpt_restart (UNIT *uptr, int32 value, char *cptr, void *desc)
|
|
{
|
|
if (lpt_dib.cmd && lpt_dib.ctl && !sim_is_active (uptr))
|
|
sim_activate (uptr, 0); /* reschedule I/O */
|
|
return SCPE_OK;
|
|
}
|
|
|
|
/* Attach routine */
|
|
|
|
t_stat lpt_attach (UNIT *uptr, char *cptr)
|
|
{
|
|
lpt_lcnt = 0; /* top of form */
|
|
lpt_restart (uptr, 0, NULL, NULL); /* restart I/O if hung */
|
|
return attach_unit (uptr, cptr);
|
|
}
|