[simh.git] / PDP1 / pdp1_lp.c

/* pdp1_lp.c: PDP-1 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
   bused 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
   lpt          Type 62 line printer for the PDP-1\r
\r
   19-Jan-07    RMS     Added UNIT_TEXT flag\r
   21-Dec-06    RMS     Added 16-channel SBS support\r
   07-Sep-03    RMS     Changed ioc to ios\r
   23-Jul-03    RMS     Fixed bugs in instruction decoding, overprinting\r
                        Revised to detect I/O wait hang\r
   25-Apr-03    RMS     Revised for extended file support\r
   30-May-02    RMS     Widened POS to 32b\r
   13-Apr-01    RMS     Revised for register arrays\r
*/\r
\r
#include "pdp1_defs.h"\r
\r
#define BPTR_MAX        40                              /* pointer max */\r
#define LPT_BSIZE       (BPTR_MAX * 3)                  /* line size */\r
#define BPTR_MASK       077                             /* buf ptr mask */\r
\r
int32 lpt_spc = 0;                                      /* print (0) vs spc */\r
int32 lpt_ovrpr = 0;                                    /* overprint */\r
int32 lpt_stopioe = 0;                                  /* stop on error */\r
int32 lpt_bptr = 0;                                     /* buffer ptr */\r
int32 lpt_sbs = 0;                                      /* SBS level */\r
char lpt_buf[LPT_BSIZE + 1] = { 0 };\r
static const unsigned char lpt_trans[64] = {\r
    ' ','1','2','3','4','5','6','7','8','9','\'','~','#','V','^','<',\r
    '0','/','S','T','U','V','W','X','Y','Z','"',',','>','^','-','?',\r
    '@','J','K','L','M','N','O','P','Q','R','$','=','-',')','-','(',\r
    '_','A','B','C','D','E','F','G','H','I','*','.','+',']','|','['\r
    };\r
\r
extern int32 ios, cpls, iosta;\r
extern int32 stop_inst;\r
\r
t_stat lpt_svc (UNIT *uptr);\r
t_stat lpt_reset (DEVICE *dptr);\r
\r
/* LPT data structures\r
\r
   lpt_dev      LPT device descriptor\r
   lpt_unit     LPT unit\r
   lpt_reg      LPT register list\r
*/\r
\r
UNIT lpt_unit = {\r
    UDATA (&lpt_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0), SERIAL_OUT_WAIT\r
    };\r
\r
REG lpt_reg[] = {\r
    { ORDATA (BUF, lpt_unit.buf, 8) },\r
    { FLDATA (PNT, iosta, IOS_V_PNT) },\r
    { FLDATA (SPC, iosta, IOS_V_SPC) },\r
    { FLDATA (RPLS, cpls, CPLS_V_LPT) },\r
    { DRDATA (BPTR, lpt_bptr, 6) },\r
    { ORDATA (LPT_STATE, lpt_spc, 6), REG_HRO },\r
    { FLDATA (LPT_OVRPR, lpt_ovrpr, 0), REG_HRO },\r
    { DRDATA (POS, lpt_unit.pos, T_ADDR_W), PV_LEFT },\r
    { DRDATA (TIME, lpt_unit.wait, 24), PV_LEFT },\r
    { FLDATA (STOP_IOE, lpt_stopioe, 0) },\r
    { BRDATA (LBUF, lpt_buf, 8, 8, LPT_BSIZE) },\r
    { DRDATA (SBSLVL, lpt_sbs, 4), REG_HRO },\r
    { NULL }\r
    };\r
\r
MTAB lpt_mod[] = {\r
    { MTAB_XTD|MTAB_VDV, 0, "SBSLVL", "SBSLVL",\r
      &dev_set_sbs, &dev_show_sbs, (void *) &lpt_sbs },\r
    { 0 }\r
    };\r
\r
DEVICE lpt_dev = {\r
    "LPT", &lpt_unit, lpt_reg, lpt_mod,\r
    1, 10, 31, 1, 8, 8,\r
    NULL, NULL, &lpt_reset,\r
    NULL, NULL, NULL,\r
    NULL, DEV_DISABLE\r
    };\r
\r
/* Line printer IOT routine */\r
\r
int32 lpt (int32 inst, int32 dev, int32 dat)\r
{\r
int32 i;\r
\r
if (lpt_dev.flags & DEV_DIS)                            /* disabled? */\r
    return (stop_inst << IOT_V_REASON) | dat;           /* stop if requested */\r
if ((inst & 07000) == 01000) {                          /* fill buf */\r
    if (lpt_bptr < BPTR_MAX) {                          /* limit test ptr */\r
        i = lpt_bptr * 3;                               /* cvt to chr ptr */\r
        lpt_buf[i] = lpt_trans[(dat >> 12) & 077];\r
        lpt_buf[i + 1] = lpt_trans[(dat >> 6) & 077];\r
        lpt_buf[i + 2] = lpt_trans[dat & 077];\r
		}\r
    lpt_bptr = (lpt_bptr + 1) & BPTR_MASK;\r
    return dat;\r
    }\r
if ((inst & 07000) == 02000) {                          /* space */\r
    iosta = iosta & ~IOS_SPC;                           /* space, clear flag */\r
    lpt_spc = (inst >> 6) & 077;                        /* state = space n */\r
    }\r
else if ((inst & 07000) == 00000) {                     /* print */\r
    iosta = iosta & ~IOS_PNT;                           /* clear flag */\r
    lpt_spc = 0;                                        /* state = print */\r
    }\r
else return (stop_inst << IOT_V_REASON) | dat;          /* not implemented */\r
if (GEN_CPLS (inst)) {                                  /* comp pulse? */\r
    ios = 0;                                            /* clear flop */\r
    cpls = cpls | CPLS_LPT;                             /* request completion */\r
    }\r
else cpls = cpls & ~CPLS_LPT;\r
sim_activate (&lpt_unit, lpt_unit.wait);                /* activate */\r
return dat;\r
}\r
\r
/* Unit service, printer is in one of three states\r
\r
   lpt_spc = 000                write buffer to file, set overprint\r
   lpt_iot = 02x                space command x, clear overprint\r
*/\r
\r
t_stat lpt_svc (UNIT *uptr)\r
{\r
int32 i;\r
static const char *lpt_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
if (cpls & CPLS_LPT) {                                  /* completion pulse? */\r
    ios = 1;                                            /* restart */\r
    cpls = cpls & ~CPLS_LPT;                            /* clr pulse pending */\r
    }\r
dev_req_int (lpt_sbs);                                  /* req interrupt */\r
if (lpt_spc) {                                          /* space? */\r
    iosta = iosta | IOS_SPC;                            /* set flag */\r
    if ((uptr->flags & UNIT_ATT) == 0)                  /* attached? */\r
        return IORETURN (lpt_stopioe, SCPE_UNATT);\r
    fputs (lpt_cc[lpt_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
    lpt_ovrpr = 0;                                      /* dont overprint */\r
    }\r
else {\r
    iosta = iosta | IOS_PNT;                            /* print */\r
    if ((uptr->flags & UNIT_ATT) == 0)                  /* attached? */\r
        return IORETURN (lpt_stopioe, SCPE_UNATT);\r
    if (lpt_ovrpr) fputc ('\r', uptr->fileref);         /* overprint? */\r
    fputs (lpt_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
    lpt_bptr = 0;\r
    for (i = 0; i <= LPT_BSIZE; i++) lpt_buf[i] = 0;    /* clear buffer */\r
    lpt_ovrpr = 1;                                      /* set overprint */\r
    }\r
return SCPE_OK;\r
}\r
\r
/* Reset routine */\r
\r
t_stat lpt_reset (DEVICE *dptr)\r
{\r
int32 i;\r
\r
lpt_bptr = 0;                                           /* clear buffer ptr */\r
for (i = 0; i <= LPT_BSIZE; i++) lpt_buf[i] = 0;        /* clear buffer */\r
lpt_spc = 0;                                            /* clear state */\r
lpt_ovrpr = 0;                                          /* clear overprint */\r
cpls = cpls & ~CPLS_LPT;\r
iosta = iosta & ~(IOS_PNT | IOS_SPC);                   /* clear flags */\r
sim_cancel (&lpt_unit);                                 /* deactivate unit */\r
return SCPE_OK;\r
}\r
Commit	Line	Data
196ba1fc PH	1	/* pdp1_lp.c: PDP-1 line printer simulator\r
	2	\r
	3	Copyright (c) 1993-2007, Robert M. Supnik\r
	4	\r
	5	Permission is hereby granted, free of charge, to any person obtaining a\r
	6	copy of this software and associated documentation files (the "Software"),\r
	7	to deal in the Software without restriction, including without limitation\r
	8	the rights to use, copy, modify, merge, publish, distribute, sublicense,\r
	9	and/or sell copies of the Software, and to permit persons to whom the\r
	10	Software is furnished to do so, subject to the following conditions:\r
	11	\r
	12	The above copyright notice and this permission notice shall be included in\r
	13	all copies or substantial portions of the Software.\r
	14	\r
	15	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\r
	16	IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\r
	17	FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL\r
	18	ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER\r
	19	IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\r
	20	CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r
	21	\r
	22	Except as contained in this notice, the name of Robert M Supnik shall not be\r
	23	bused in advertising or otherwise to promote the sale, use or other dealings\r
	24	in this Software without prior written authorization from Robert M Supnik.\r
	25	\r
	26	lpt Type 62 line printer for the PDP-1\r
	27	\r
	28	19-Jan-07 RMS Added UNIT_TEXT flag\r
	29	21-Dec-06 RMS Added 16-channel SBS support\r
	30	07-Sep-03 RMS Changed ioc to ios\r
	31	23-Jul-03 RMS Fixed bugs in instruction decoding, overprinting\r
	32	Revised to detect I/O wait hang\r
	33	25-Apr-03 RMS Revised for extended file support\r
	34	30-May-02 RMS Widened POS to 32b\r
	35	13-Apr-01 RMS Revised for register arrays\r
	36	*/\r
	37	\r
	38	#include "pdp1_defs.h"\r
	39	\r
	40	#define BPTR_MAX 40 /* pointer max */\r
	41	#define LPT_BSIZE (BPTR_MAX * 3) /* line size */\r
	42	#define BPTR_MASK 077 /* buf ptr mask */\r
	43	\r
	44	int32 lpt_spc = 0; /* print (0) vs spc */\r
	45	int32 lpt_ovrpr = 0; /* overprint */\r
	46	int32 lpt_stopioe = 0; /* stop on error */\r
	47	int32 lpt_bptr = 0; /* buffer ptr */\r
	48	int32 lpt_sbs = 0; /* SBS level */\r
	49	char lpt_buf[LPT_BSIZE + 1] = { 0 };\r
	50	static const unsigned char lpt_trans[64] = {\r
	51	' ','1','2','3','4','5','6','7','8','9','\'','~','#','V','^','<',\r
	52	'0','/','S','T','U','V','W','X','Y','Z','"',',','>','^','-','?',\r
	53	'@','J','K','L','M','N','O','P','Q','R','$','=','-',')','-','(',\r
	54	'_','A','B','C','D','E','F','G','H','I','*','.','+',']','\|','['\r
	55	};\r
	56	\r
	57	extern int32 ios, cpls, iosta;\r
	58	extern int32 stop_inst;\r
	59	\r
	60	t_stat lpt_svc (UNIT *uptr);\r
	61	t_stat lpt_reset (DEVICE *dptr);\r
	62	\r
	63	/* LPT data structures\r
	64	\r
65	lpt_dev LPT device descriptor\r
66	lpt_unit LPT unit\r
67	lpt_reg LPT register list\r
68	*/\r
69	\r
70	UNIT lpt_unit = {\r
71	UDATA (&lpt_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0), SERIAL_OUT_WAIT\r
72	};\r
73	\r
74	REG lpt_reg[] = {\r
75	{ ORDATA (BUF, lpt_unit.buf, 8) },\r
76	{ FLDATA (PNT, iosta, IOS_V_PNT) },\r
77	{ FLDATA (SPC, iosta, IOS_V_SPC) },\r
78	{ FLDATA (RPLS, cpls, CPLS_V_LPT) },\r
79	{ DRDATA (BPTR, lpt_bptr, 6) },\r
80	{ ORDATA (LPT_STATE, lpt_spc, 6), REG_HRO },\r
81	{ FLDATA (LPT_OVRPR, lpt_ovrpr, 0), REG_HRO },\r
82	{ DRDATA (POS, lpt_unit.pos, T_ADDR_W), PV_LEFT },\r
83	{ DRDATA (TIME, lpt_unit.wait, 24), PV_LEFT },\r
84	{ FLDATA (STOP_IOE, lpt_stopioe, 0) },\r
85	{ BRDATA (LBUF, lpt_buf, 8, 8, LPT_BSIZE) },\r
86	{ DRDATA (SBSLVL, lpt_sbs, 4), REG_HRO },\r
87	{ NULL }\r
88	};\r
89	\r
90	MTAB lpt_mod[] = {\r
91	{ MTAB_XTD\|MTAB_VDV, 0, "SBSLVL", "SBSLVL",\r
92	&dev_set_sbs, &dev_show_sbs, (void *) &lpt_sbs },\r
93	{ 0 }\r
94	};\r
95	\r
96	DEVICE lpt_dev = {\r
97	"LPT", &lpt_unit, lpt_reg, lpt_mod,\r
98	1, 10, 31, 1, 8, 8,\r
99	NULL, NULL, &lpt_reset,\r
100	NULL, NULL, NULL,\r
101	NULL, DEV_DISABLE\r
102	};\r
103	\r
104	/* Line printer IOT routine */\r
105	\r
106	int32 lpt (int32 inst, int32 dev, int32 dat)\r
107	{\r
108	int32 i;\r
109	\r
110	if (lpt_dev.flags & DEV_DIS) /* disabled? */\r
111	return (stop_inst << IOT_V_REASON) \| dat; /* stop if requested */\r
112	if ((inst & 07000) == 01000) { /* fill buf */\r
113	if (lpt_bptr < BPTR_MAX) { /* limit test ptr */\r
114	i = lpt_bptr * 3; /* cvt to chr ptr */\r
115	lpt_buf[i] = lpt_trans[(dat >> 12) & 077];\r
116	lpt_buf[i + 1] = lpt_trans[(dat >> 6) & 077];\r
117	lpt_buf[i + 2] = lpt_trans[dat & 077];\r
118	}\r
119	lpt_bptr = (lpt_bptr + 1) & BPTR_MASK;\r
120	return dat;\r
121	}\r
122	if ((inst & 07000) == 02000) { /* space */\r
123	iosta = iosta & ~IOS_SPC; /* space, clear flag */\r
124	lpt_spc = (inst >> 6) & 077; /* state = space n */\r
125	}\r
126	else if ((inst & 07000) == 00000) { /* print */\r
127	iosta = iosta & ~IOS_PNT; /* clear flag */\r
128	lpt_spc = 0; /* state = print */\r
129	}\r
130	else return (stop_inst << IOT_V_REASON) \| dat; /* not implemented */\r
131	if (GEN_CPLS (inst)) { /* comp pulse? */\r
132	ios = 0; /* clear flop */\r
133	cpls = cpls \| CPLS_LPT; /* request completion */\r
134	}\r
135	else cpls = cpls & ~CPLS_LPT;\r
136	sim_activate (&lpt_unit, lpt_unit.wait); /* activate */\r
137	return dat;\r
138	}\r
139	\r
140	/* Unit service, printer is in one of three states\r
141	\r
142	lpt_spc = 000 write buffer to file, set overprint\r
143	lpt_iot = 02x space command x, clear overprint\r
144	*/\r
145	\r
146	t_stat lpt_svc (UNIT *uptr)\r
147	{\r
148	int32 i;\r
149	static const char *lpt_cc[] = {\r
150	"\n",\r
151	"\n\n",\r
152	"\n\n\n",\r
153	"\n\n\n\n\n\n",\r
154	"\n\n\n\n\n\n\n\n\n\n\n",\r
155	"\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n",\r
156	"\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
157	"\f"\r
158	};\r
159	\r
160	if (cpls & CPLS_LPT) { /* completion pulse? */\r
161	ios = 1; /* restart */\r
162	cpls = cpls & ~CPLS_LPT; /* clr pulse pending */\r
163	}\r
164	dev_req_int (lpt_sbs); /* req interrupt */\r
165	if (lpt_spc) { /* space? */\r
166	iosta = iosta \| IOS_SPC; /* set flag */\r
167	if ((uptr->flags & UNIT_ATT) == 0) /* attached? */\r
168	return IORETURN (lpt_stopioe, SCPE_UNATT);\r
169	fputs (lpt_cc[lpt_spc & 07], uptr->fileref); /* print cctl */\r
170	uptr->pos = ftell (uptr->fileref); /* update position */\r
171	if (ferror (uptr->fileref)) { /* error? */\r
172	perror ("LPT I/O error");\r
173	clearerr (uptr->fileref);\r
174	return SCPE_IOERR;\r
175	}\r
176	lpt_ovrpr = 0; /* dont overprint */\r
177	}\r
178	else {\r
179	iosta = iosta \| IOS_PNT; /* print */\r
180	if ((uptr->flags & UNIT_ATT) == 0) /* attached? */\r
181	return IORETURN (lpt_stopioe, SCPE_UNATT);\r
182	if (lpt_ovrpr) fputc ('\r', uptr->fileref); /* overprint? */\r
183	fputs (lpt_buf, uptr->fileref); /* print buffer */\r
184	uptr->pos = ftell (uptr->fileref); /* update position */\r
185	if (ferror (uptr->fileref)) { /* test error */\r
186	perror ("LPT I/O error");\r
187	clearerr (uptr->fileref);\r
188	return SCPE_IOERR;\r
189	}\r
190	lpt_bptr = 0;\r
191	for (i = 0; i <= LPT_BSIZE; i++) lpt_buf[i] = 0; /* clear buffer */\r
192	lpt_ovrpr = 1; /* set overprint */\r
193	}\r
194	return SCPE_OK;\r
195	}\r
196	\r
197	/* Reset routine */\r
198	\r
199	t_stat lpt_reset (DEVICE *dptr)\r
200	{\r
201	int32 i;\r
202	\r
203	lpt_bptr = 0; /* clear buffer ptr */\r
204	for (i = 0; i <= LPT_BSIZE; i++) lpt_buf[i] = 0; /* clear buffer */\r
205	lpt_spc = 0; /* clear state */\r
206	lpt_ovrpr = 0; /* clear overprint */\r
207	cpls = cpls & ~CPLS_LPT;\r
208	iosta = iosta & ~(IOS_PNT \| IOS_SPC); /* clear flags */\r
209	sim_cancel (&lpt_unit); /* deactivate unit */\r
210	return SCPE_OK;\r
211	}\r