[simh.git] / H316 / h316_lp.c

/* h316_lp.c: Honeywell 316/516 line printer\r
\r
   Copyright (c) 1999-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
   lpt          line printer\r
\r
   09-Jun-07    RMS     Fixed lost last print line (from Theo Engel)\r
   19-Jan-06    RMS     Added UNIT_TEXT flag\r
   03-Apr-06    RMS     Fixed bug in blanks backscanning (from Theo Engel)\r
   01-Dec-04    RMS     Fixed bug in DMA/DMC support\r
   24-Oct-03    RMS     Added DMA/DMC support\r
   25-Apr-03    RMS     Revised for extended file support\r
   30-May-02    RMS     Widened POS to 32b\r
\r
   The Series 16 line printer is an unbuffered Analex shuttle printer.\r
   Because it was unbuffered, the CPU had to scan out an entire line's\r
   worth of characters (60 words) for every character on the print drum\r
   (64 characters).  Because it was a shuttle printer, the entire\r
   process must be repeated first for the odd columns and then for the\r
   even columns.  After scanning the odd columns, the printer carriage\r
   shuttled right by one column; after scanning the even columns, the\r
   carriage shuttled left.  This halved the number of hammers required,\r
   reducing cost but increasing mechanical complexity.\r
\r
   The real printer is very timing dependent.  If the CPU misses a\r
   scan, then the wrong characters are printed.  If the printer protocol\r
   is violated, then results are unpredictable.  The simulated printer\r
   is much more forgiving.  Rather than simulating the fixed drum and\r
   hammer timing of the real printer, the simulator is driven by the\r
   program's OTA instructions.  If the program misses a time slot, the\r
   simulator will still print the "correct" result.  A timing based\r
   simulation would be very hard to do in the absense of accurate\r
   instruction timing.\r
\r
   Printer state is maintained in a set of position and state variables:\r
\r
        lpt_wdpos               word count within a line scan (0-59)\r
        lpt_drpos               drum position (0-63)\r
        lpt_crpos               carriage position (0-1)\r
        lpt_svcst               service state (shuttle, paper advance)\r
        lpt_svcch               channel for paper advance (0 = no adv)\r
        lpt_rdy                 transfer ready flag\r
        lpt_prdn                printing done flag\r
        lpt_dma                 use DMA/DMC\r
        lpt_eor                 DMA/DMC end of range\r
*/\r
\r
#include "h316_defs.h"\r
\r
#define LPT_WIDTH       120                             /* width */\r
#define LPT_SCAN        (LPT_WIDTH / 2)                 /* words/scan */\r
#define LPT_DRUM        64                              /* drum rows */\r
#define LPT_SVCSH       01                              /* shuttle */\r
#define LPT_SVCPA       02                              /* paper advance */\r
\r
extern int32 dev_int, dev_enb;\r
extern int32 stop_inst;\r
extern uint32 chan_req;\r
\r
int32 lpt_wdpos = 0;                                    /* word position */\r
int32 lpt_drpos = 0;                                    /* drum position */\r
int32 lpt_crpos = 0;                                    /* carriage position */\r
int32 lpt_svcst = 0;                                    /* service state */\r
int32 lpt_svcch = 0;                                    /* service channel */\r
int32 lpt_rdy = 0;                                      /* transfer flag */\r
int32 lpt_prdn = 1;                                     /* printing done */\r
int32 lpt_dma = 0;                                      /* use DMA/DMC */\r
int32 lpt_eor = 0;                                      /* DMA/DMC end range */\r
char lpt_buf[LPT_WIDTH + 1] = { 0 };                    /* line buffer */\r
int32 lpt_xtime = 5;                                    /* transfer time */\r
int32 lpt_etime = 50;                                   /* end of scan time */\r
int32 lpt_ptime = 5000;                                 /* paper adv time */\r
int32 lpt_stopioe = 0;                                  /* stop on error */\r
\r
int32 lptio (int32 inst, int32 fnc, int32 dat, int32 dev);\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 descriptor\r
   lpt_mod      LPT modifiers\r
   lpt_reg      LPT register list\r
*/\r
\r
DIB lpt_dib = { LPT, IOBUS, 1, &lptio };\r
\r
UNIT lpt_unit = { UDATA (&lpt_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0) };\r
\r
REG lpt_reg[] = {\r
    { DRDATA (WDPOS, lpt_wdpos, 6) },\r
    { DRDATA (DRPOS, lpt_drpos, 6) },\r
    { FLDATA (CRPOS, lpt_crpos, 0) },\r
    { FLDATA (RDY, lpt_rdy, 0) },\r
    { FLDATA (EOR, lpt_eor, 0) },\r
    { FLDATA (DMA, lpt_dma, 0) },\r
    { FLDATA (PRDN, lpt_prdn, 0) },\r
    { FLDATA (INTREQ, dev_int, INT_V_LPT) },\r
    { FLDATA (ENABLE, dev_enb, INT_V_LPT) },\r
    { ORDATA (SVCST, lpt_svcst, 2) },\r
    { ORDATA (SVCCH, lpt_svcch, 2) },\r
    { BRDATA (BUF, lpt_buf, 8, 8, 120) },\r
    { DRDATA (POS, lpt_unit.pos, T_ADDR_W), PV_LEFT },\r
    { DRDATA (XTIME, lpt_xtime, 24), PV_LEFT },\r
    { DRDATA (ETIME, lpt_etime, 24), PV_LEFT },\r
    { DRDATA (PTIME, lpt_ptime, 24), PV_LEFT },\r
    { FLDATA (STOP_IOE, lpt_stopioe, 0) },\r
    { NULL }\r
    };\r
\r
DEVICE lpt_dev = {\r
    "LPT", &lpt_unit, lpt_reg, NULL,\r
    1, 10, 31, 1, 8, 8,\r
    NULL, NULL, &lpt_reset,\r
    NULL, NULL, NULL,\r
    &lpt_dib, DEV_DISABLE\r
    };\r
\r
/* IO routine */\r
\r
int32 lptio (int32 inst, int32 fnc, int32 dat, int32 dev)\r
{\r
int32 ch = lpt_dib.chan - 1;                            /* DMA/DMC chan */\r
int32 chr;\r
\r
switch (inst) {                                         /* case on opcode */\r
\r
    case ioOCP:                                         /* OCP */\r
        switch (fnc) {                                  /* case on fnc */\r
\r
        case 000: case 002: case 004:                   /* paper adv */\r
            lpt_svcst = lpt_svcst | LPT_SVCPA;          /* set state */\r
            lpt_svcch = fnc >> 1;                       /* save channel */\r
            sim_activate (&lpt_unit, lpt_ptime);\r
            CLR_INT (INT_LPT);                          /* clear int */\r
            break;\r
\r
        case 003:                                       /* init scan DMA/DMC */\r
            lpt_prdn = 0;                               /* clear pr done */\r
            lpt_wdpos = 0;                              /* init scan pos */\r
            lpt_eor = 0;\r
            if (ch >= 0) lpt_dma = 1;                   /* try for DMA/DMC */\r
            else lpt_dma = 0;\r
            if (!sim_is_active (&lpt_unit)) {\r
                lpt_rdy = 1;\r
                if (lpt_dma) SET_CH_REQ (ch);\r
                }\r
            CLR_INT (INT_LPT);                          /* clear int */\r
            break;\r
\r
        case 007:                                       /* init scan IO bus */\r
            lpt_prdn = 0;                               /* clear pr done */\r
            lpt_wdpos = 0;                              /* init scan pos */\r
            lpt_eor = 0;\r
            lpt_dma = 0;                                /* IO bus */\r
            if (!sim_is_active (&lpt_unit)) lpt_rdy = 1;\r
            CLR_INT (INT_LPT);                          /* clear int */\r
            break;\r
\r
        default:\r
            return IOBADFNC (dat);\r
            }\r
        break;\r
\r
    case ioSKS:                                         /* SKS */\r
        switch (fnc) {                                  /* case on fnc */\r
\r
        case 000:                                       /* if xfer rdy */\r
            if (lpt_rdy) return IOSKIP (dat);\r
            break;\r
\r
        case 002:                                       /* if !alarm */\r
            if (lpt_unit.flags & UNIT_ATT) return IOSKIP (dat);\r
            break;\r
\r
        case 003:                                       /* if odd col */\r
            if (lpt_crpos) return IOSKIP (dat);\r
            break;\r
\r
        case 004:                                       /* if !interrupt */\r
            if (!TST_INTREQ (INT_LPT)) return IOSKIP (dat);\r
            break;\r
\r
        case 011:                                       /* if line printed */\r
            if (lpt_prdn) return IOSKIP (dat);\r
            break;\r
\r
        case 012:                                       /* if !shuttling */\r
            if (!(lpt_svcst & LPT_SVCSH)) return IOSKIP (dat);\r
            break;\r
\r
        case 013:\r
            if (lpt_prdn && !(lpt_svcst & LPT_SVCSH)) return IOSKIP (dat);\r
            break;\r
\r
        case 014:                                       /* if !advancing */\r
            if (!(lpt_svcst & LPT_SVCPA)) return IOSKIP (dat);\r
            break;\r
\r
        case 015:\r
            if (lpt_prdn && !(lpt_svcst & LPT_SVCPA)) return IOSKIP (dat);\r
            break;\r
\r
        case 016:\r
            if (!(lpt_svcst & (LPT_SVCSH | LPT_SVCPA))) return IOSKIP (dat);\r
            break;\r
\r
        case 017:\r
            if (lpt_prdn && !(lpt_svcst & (LPT_SVCSH | LPT_SVCPA)))\r
                return IOSKIP (dat);\r
            break;\r
\r
        default:\r
            return IOBADFNC (dat);\r
            }\r
        break;\r
\r
    case ioOTA:                                         /* OTA */\r
        if (fnc) return IOBADFNC (dat);                 /* only fnc 0 */\r
        if (lpt_rdy) {                                  /* xfer ready? */\r
            lpt_rdy = 0;                                /* clear xfer */\r
            chr = (dat >> (lpt_crpos? 0: 8)) & 077;     /* get 6b char */\r
            if (chr == lpt_drpos) {                     /* match drum pos? */\r
                if (chr < 040) chr = chr | 0100;\r
                lpt_buf[2 * lpt_wdpos + lpt_crpos] = chr;\r
                }\r
            lpt_wdpos++;                                /* adv scan pos */\r
            if (lpt_wdpos >= LPT_SCAN) {                /* end of scan? */\r
                lpt_wdpos = 0;                          /* reset scan pos */\r
                lpt_drpos++;                            /* adv drum pos */\r
                if (lpt_drpos >= LPT_DRUM) {            /* end of drum? */\r
                    lpt_drpos = 0;                      /* reset drum pos */\r
                    lpt_crpos = lpt_crpos ^ 1;          /* shuttle */\r
                    lpt_svcst = lpt_svcst | LPT_SVCSH;\r
                    sim_activate (&lpt_unit, lpt_ptime);\r
                    }                                   /* end if shuttle */\r
                else sim_activate (&lpt_unit, lpt_etime);\r
                }                                       /* end if endscan */\r
            else sim_activate (&lpt_unit, lpt_xtime);\r
            return IOSKIP (dat);                        /* skip return */\r
            }\r
        break;\r
\r
    case ioEND:                                         /* end DMA/DMC */\r
        lpt_eor = 1;                                    /* set end range */\r
        break;\r
        }                                               /* end case op */\r
\r
return dat;\r
}\r
\r
/* Unit service */\r
\r
t_stat lpt_svc (UNIT *uptr)\r
{\r
int32 i;\r
int32 ch = lpt_dib.chan - 1;                            /* DMA/DMC chan */\r
static const char *lpt_cc[] = {\r
    "\r",\r
    "\n",\r
    "\n\f",\r
    "\n"\r
    };\r
\r
if ((lpt_unit.flags & UNIT_ATT) == 0)                   /* attached? */\r
    return IORETURN (lpt_stopioe, SCPE_UNATT);\r
if (lpt_dma) {                                          /* DMA/DMC? */\r
    if (lpt_eor) SET_INT (INT_LPT);                     /* end range? intr */\r
    else {\r
        lpt_rdy = 1;                                    /* set ready */\r
        SET_CH_REQ (ch);                                /* get more data */\r
        }\r
    }\r
else lpt_rdy = 1;                                       /* IO, continue scan */\r
if (lpt_dma && lpt_eor) SET_INT (INT_LPT);              /* end of range? */\r
if (lpt_svcst & LPT_SVCSH) {                            /* shuttling? */\r
    SET_INT (INT_LPT);                                  /* interrupt */\r
    if (lpt_crpos == 0) {                               /* done shuttling? */\r
        for (i = LPT_WIDTH - 1; i >= 0; i--)  {         /* backscan for blanks */\r
            if (lpt_buf[i] != ' ') break; \r
            }\r
        lpt_buf[i + 1] = 0;\r
        fputs (lpt_buf, uptr->fileref);                 /* output buf */\r
        uptr->pos = ftell (uptr->fileref);              /* update pos */\r
        for (i = 0; i < LPT_WIDTH; i++) lpt_buf[i] = ' '; /* clear buf */\r
        lpt_prdn = 1;                                   /* print done */\r
        }\r
    }\r
if (lpt_svcst & LPT_SVCPA) {                            /* paper advance */\r
    SET_INT (INT_LPT);                                  /* interrupt */\r
    fputs (lpt_cc[lpt_svcch & 03], uptr->fileref);      /* output eol */\r
    uptr->pos = ftell (uptr->fileref);                  /* update pos */\r
    }\r
lpt_svcst = 0;\r
return SCPE_OK;\r
}\r
\r
/* Reset routine */\r
\r
t_stat lpt_reset (DEVICE *dptr)\r
{\r
int32 i;\r
\r
lpt_wdpos = lpt_drpos = lpt_crpos = 0;                  /* clear positions */\r
lpt_svcst = lpt_svcch = 0;                              /* idle state */\r
lpt_rdy = 0;                                            /* not rdy to xfer */\r
lpt_prdn = 1;                                           /* printing done */\r
lpt_eor = 0;\r
lpt_dma = 0;\r
for (i = 0; i < LPT_WIDTH; i++) lpt_buf[i] = ' ';       /* clear buffer */\r
lpt_buf[LPT_WIDTH] = 0;\r
CLR_INT (INT_LPT);                                      /* clear int, enb */\r
CLR_ENB (INT_LPT);\r
sim_cancel (&lpt_unit);                                 /* deactivate unit */\r
return SCPE_OK;\r
}\r
Commit	Line	Data
196ba1fc PH	1	/* h316_lp.c: Honeywell 316/516 line printer\r
	2	\r
	3	Copyright (c) 1999-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	used 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 line printer\r
	27	\r
	28	09-Jun-07 RMS Fixed lost last print line (from Theo Engel)\r
	29	19-Jan-06 RMS Added UNIT_TEXT flag\r
	30	03-Apr-06 RMS Fixed bug in blanks backscanning (from Theo Engel)\r
	31	01-Dec-04 RMS Fixed bug in DMA/DMC support\r
	32	24-Oct-03 RMS Added DMA/DMC support\r
	33	25-Apr-03 RMS Revised for extended file support\r
	34	30-May-02 RMS Widened POS to 32b\r
	35	\r
	36	The Series 16 line printer is an unbuffered Analex shuttle printer.\r
	37	Because it was unbuffered, the CPU had to scan out an entire line's\r
	38	worth of characters (60 words) for every character on the print drum\r
	39	(64 characters). Because it was a shuttle printer, the entire\r
	40	process must be repeated first for the odd columns and then for the\r
	41	even columns. After scanning the odd columns, the printer carriage\r
	42	shuttled right by one column; after scanning the even columns, the\r
	43	carriage shuttled left. This halved the number of hammers required,\r
	44	reducing cost but increasing mechanical complexity.\r
	45	\r
	46	The real printer is very timing dependent. If the CPU misses a\r
	47	scan, then the wrong characters are printed. If the printer protocol\r
	48	is violated, then results are unpredictable. The simulated printer\r
	49	is much more forgiving. Rather than simulating the fixed drum and\r
	50	hammer timing of the real printer, the simulator is driven by the\r
	51	program's OTA instructions. If the program misses a time slot, the\r
	52	simulator will still print the "correct" result. A timing based\r
	53	simulation would be very hard to do in the absense of accurate\r
	54	instruction timing.\r
	55	\r
	56	Printer state is maintained in a set of position and state variables:\r
	57	\r
	58	lpt_wdpos word count within a line scan (0-59)\r
	59	lpt_drpos drum position (0-63)\r
	60	lpt_crpos carriage position (0-1)\r
	61	lpt_svcst service state (shuttle, paper advance)\r
	62	lpt_svcch channel for paper advance (0 = no adv)\r
	63	lpt_rdy transfer ready flag\r
	64	lpt_prdn printing done flag\r
65	lpt_dma use DMA/DMC\r
66	lpt_eor DMA/DMC end of range\r
67	*/\r
68	\r
69	#include "h316_defs.h"\r
70	\r
71	#define LPT_WIDTH 120 /* width */\r
72	#define LPT_SCAN (LPT_WIDTH / 2) /* words/scan */\r
73	#define LPT_DRUM 64 /* drum rows */\r
74	#define LPT_SVCSH 01 /* shuttle */\r
75	#define LPT_SVCPA 02 /* paper advance */\r
76	\r
77	extern int32 dev_int, dev_enb;\r
78	extern int32 stop_inst;\r
79	extern uint32 chan_req;\r
80	\r
81	int32 lpt_wdpos = 0; /* word position */\r
82	int32 lpt_drpos = 0; /* drum position */\r
83	int32 lpt_crpos = 0; /* carriage position */\r
84	int32 lpt_svcst = 0; /* service state */\r
85	int32 lpt_svcch = 0; /* service channel */\r
86	int32 lpt_rdy = 0; /* transfer flag */\r
87	int32 lpt_prdn = 1; /* printing done */\r
88	int32 lpt_dma = 0; /* use DMA/DMC */\r
89	int32 lpt_eor = 0; /* DMA/DMC end range */\r
90	char lpt_buf[LPT_WIDTH + 1] = { 0 }; /* line buffer */\r
91	int32 lpt_xtime = 5; /* transfer time */\r
92	int32 lpt_etime = 50; /* end of scan time */\r
93	int32 lpt_ptime = 5000; /* paper adv time */\r
94	int32 lpt_stopioe = 0; /* stop on error */\r
95	\r
96	int32 lptio (int32 inst, int32 fnc, int32 dat, int32 dev);\r
97	t_stat lpt_svc (UNIT *uptr);\r
98	t_stat lpt_reset (DEVICE *dptr);\r
99	\r
100	/* LPT data structures\r
101	\r
102	lpt_dev LPT device descriptor\r
103	lpt_unit LPT unit descriptor\r
104	lpt_mod LPT modifiers\r
105	lpt_reg LPT register list\r
106	*/\r
107	\r
108	DIB lpt_dib = { LPT, IOBUS, 1, &lptio };\r
109	\r
110	UNIT lpt_unit = { UDATA (&lpt_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0) };\r
111	\r
112	REG lpt_reg[] = {\r
113	{ DRDATA (WDPOS, lpt_wdpos, 6) },\r
114	{ DRDATA (DRPOS, lpt_drpos, 6) },\r
115	{ FLDATA (CRPOS, lpt_crpos, 0) },\r
116	{ FLDATA (RDY, lpt_rdy, 0) },\r
117	{ FLDATA (EOR, lpt_eor, 0) },\r
118	{ FLDATA (DMA, lpt_dma, 0) },\r
119	{ FLDATA (PRDN, lpt_prdn, 0) },\r
120	{ FLDATA (INTREQ, dev_int, INT_V_LPT) },\r
121	{ FLDATA (ENABLE, dev_enb, INT_V_LPT) },\r
122	{ ORDATA (SVCST, lpt_svcst, 2) },\r
123	{ ORDATA (SVCCH, lpt_svcch, 2) },\r
124	{ BRDATA (BUF, lpt_buf, 8, 8, 120) },\r
125	{ DRDATA (POS, lpt_unit.pos, T_ADDR_W), PV_LEFT },\r
126	{ DRDATA (XTIME, lpt_xtime, 24), PV_LEFT },\r
127	{ DRDATA (ETIME, lpt_etime, 24), PV_LEFT },\r
128	{ DRDATA (PTIME, lpt_ptime, 24), PV_LEFT },\r
129	{ FLDATA (STOP_IOE, lpt_stopioe, 0) },\r
130	{ NULL }\r
131	};\r
132	\r
133	DEVICE lpt_dev = {\r
134	"LPT", &lpt_unit, lpt_reg, NULL,\r
135	1, 10, 31, 1, 8, 8,\r
136	NULL, NULL, &lpt_reset,\r
137	NULL, NULL, NULL,\r
138	&lpt_dib, DEV_DISABLE\r
139	};\r
140	\r
141	/* IO routine */\r
142	\r
143	int32 lptio (int32 inst, int32 fnc, int32 dat, int32 dev)\r
144	{\r
145	int32 ch = lpt_dib.chan - 1; /* DMA/DMC chan */\r
146	int32 chr;\r
147	\r
148	switch (inst) { /* case on opcode */\r
149	\r
150	case ioOCP: /* OCP */\r
151	switch (fnc) { /* case on fnc */\r
152	\r
153	case 000: case 002: case 004: /* paper adv */\r
154	lpt_svcst = lpt_svcst \| LPT_SVCPA; /* set state */\r
155	lpt_svcch = fnc >> 1; /* save channel */\r
156	sim_activate (&lpt_unit, lpt_ptime);\r
157	CLR_INT (INT_LPT); /* clear int */\r
158	break;\r
159	\r
160	case 003: /* init scan DMA/DMC */\r
161	lpt_prdn = 0; /* clear pr done */\r
162	lpt_wdpos = 0; /* init scan pos */\r
163	lpt_eor = 0;\r
164	if (ch >= 0) lpt_dma = 1; /* try for DMA/DMC */\r
165	else lpt_dma = 0;\r
166	if (!sim_is_active (&lpt_unit)) {\r
167	lpt_rdy = 1;\r
168	if (lpt_dma) SET_CH_REQ (ch);\r
169	}\r
170	CLR_INT (INT_LPT); /* clear int */\r
171	break;\r
172	\r
173	case 007: /* init scan IO bus */\r
174	lpt_prdn = 0; /* clear pr done */\r
175	lpt_wdpos = 0; /* init scan pos */\r
176	lpt_eor = 0;\r
177	lpt_dma = 0; /* IO bus */\r
178	if (!sim_is_active (&lpt_unit)) lpt_rdy = 1;\r
179	CLR_INT (INT_LPT); /* clear int */\r
180	break;\r
181	\r
182	default:\r
183	return IOBADFNC (dat);\r
184	}\r
185	break;\r
186	\r
187	case ioSKS: /* SKS */\r
188	switch (fnc) { /* case on fnc */\r
189	\r
190	case 000: /* if xfer rdy */\r
191	if (lpt_rdy) return IOSKIP (dat);\r
192	break;\r
193	\r
194	case 002: /* if !alarm */\r
195	if (lpt_unit.flags & UNIT_ATT) return IOSKIP (dat);\r
196	break;\r
197	\r
198	case 003: /* if odd col */\r
199	if (lpt_crpos) return IOSKIP (dat);\r
200	break;\r
201	\r
202	case 004: /* if !interrupt */\r
203	if (!TST_INTREQ (INT_LPT)) return IOSKIP (dat);\r
204	break;\r
205	\r
206	case 011: /* if line printed */\r
207	if (lpt_prdn) return IOSKIP (dat);\r
208	break;\r
209	\r
210	case 012: /* if !shuttling */\r
211	if (!(lpt_svcst & LPT_SVCSH)) return IOSKIP (dat);\r
212	break;\r
213	\r
214	case 013:\r
215	if (lpt_prdn && !(lpt_svcst & LPT_SVCSH)) return IOSKIP (dat);\r
216	break;\r
217	\r
218	case 014: /* if !advancing */\r
219	if (!(lpt_svcst & LPT_SVCPA)) return IOSKIP (dat);\r
220	break;\r
221	\r
222	case 015:\r
223	if (lpt_prdn && !(lpt_svcst & LPT_SVCPA)) return IOSKIP (dat);\r
224	break;\r
225	\r
226	case 016:\r
227	if (!(lpt_svcst & (LPT_SVCSH \| LPT_SVCPA))) return IOSKIP (dat);\r
228	break;\r
229	\r
230	case 017:\r
231	if (lpt_prdn && !(lpt_svcst & (LPT_SVCSH \| LPT_SVCPA)))\r
232	return IOSKIP (dat);\r
233	break;\r
234	\r
235	default:\r
236	return IOBADFNC (dat);\r
237	}\r
238	break;\r
239	\r
240	case ioOTA: /* OTA */\r
241	if (fnc) return IOBADFNC (dat); /* only fnc 0 */\r
242	if (lpt_rdy) { /* xfer ready? */\r
243	lpt_rdy = 0; /* clear xfer */\r
244	chr = (dat >> (lpt_crpos? 0: 8)) & 077; /* get 6b char */\r
245	if (chr == lpt_drpos) { /* match drum pos? */\r
246	if (chr < 040) chr = chr \| 0100;\r
247	lpt_buf[2 * lpt_wdpos + lpt_crpos] = chr;\r
248	}\r
249	lpt_wdpos++; /* adv scan pos */\r
250	if (lpt_wdpos >= LPT_SCAN) { /* end of scan? */\r
251	lpt_wdpos = 0; /* reset scan pos */\r
252	lpt_drpos++; /* adv drum pos */\r
253	if (lpt_drpos >= LPT_DRUM) { /* end of drum? */\r
254	lpt_drpos = 0; /* reset drum pos */\r
255	lpt_crpos = lpt_crpos ^ 1; /* shuttle */\r
256	lpt_svcst = lpt_svcst \| LPT_SVCSH;\r
257	sim_activate (&lpt_unit, lpt_ptime);\r
258	} /* end if shuttle */\r
259	else sim_activate (&lpt_unit, lpt_etime);\r
260	} /* end if endscan */\r
261	else sim_activate (&lpt_unit, lpt_xtime);\r
262	return IOSKIP (dat); /* skip return */\r
263	}\r
264	break;\r
265	\r
266	case ioEND: /* end DMA/DMC */\r
267	lpt_eor = 1; /* set end range */\r
268	break;\r
269	} /* end case op */\r
270	\r
271	return dat;\r
272	}\r
273	\r
274	/* Unit service */\r
275	\r
276	t_stat lpt_svc (UNIT *uptr)\r
277	{\r
278	int32 i;\r
279	int32 ch = lpt_dib.chan - 1; /* DMA/DMC chan */\r
280	static const char *lpt_cc[] = {\r
281	"\r",\r
282	"\n",\r
283	"\n\f",\r
284	"\n"\r
285	};\r
286	\r
287	if ((lpt_unit.flags & UNIT_ATT) == 0) /* attached? */\r
288	return IORETURN (lpt_stopioe, SCPE_UNATT);\r
289	if (lpt_dma) { /* DMA/DMC? */\r
290	if (lpt_eor) SET_INT (INT_LPT); /* end range? intr */\r
291	else {\r
292	lpt_rdy = 1; /* set ready */\r
293	SET_CH_REQ (ch); /* get more data */\r
294	}\r
295	}\r
296	else lpt_rdy = 1; /* IO, continue scan */\r
297	if (lpt_dma && lpt_eor) SET_INT (INT_LPT); /* end of range? */\r
298	if (lpt_svcst & LPT_SVCSH) { /* shuttling? */\r
299	SET_INT (INT_LPT); /* interrupt */\r
300	if (lpt_crpos == 0) { /* done shuttling? */\r
301	for (i = LPT_WIDTH - 1; i >= 0; i--) { /* backscan for blanks */\r
302	if (lpt_buf[i] != ' ') break; \r
303	}\r
304	lpt_buf[i + 1] = 0;\r
305	fputs (lpt_buf, uptr->fileref); /* output buf */\r
306	uptr->pos = ftell (uptr->fileref); /* update pos */\r
307	for (i = 0; i < LPT_WIDTH; i++) lpt_buf[i] = ' '; /* clear buf */\r
308	lpt_prdn = 1; /* print done */\r
309	}\r
310	}\r
311	if (lpt_svcst & LPT_SVCPA) { /* paper advance */\r
312	SET_INT (INT_LPT); /* interrupt */\r
313	fputs (lpt_cc[lpt_svcch & 03], uptr->fileref); /* output eol */\r
314	uptr->pos = ftell (uptr->fileref); /* update pos */\r
315	}\r
316	lpt_svcst = 0;\r
317	return SCPE_OK;\r
318	}\r
319	\r
320	/* Reset routine */\r
321	\r
322	t_stat lpt_reset (DEVICE *dptr)\r
323	{\r
324	int32 i;\r
325	\r
326	lpt_wdpos = lpt_drpos = lpt_crpos = 0; /* clear positions */\r
327	lpt_svcst = lpt_svcch = 0; /* idle state */\r
328	lpt_rdy = 0; /* not rdy to xfer */\r
329	lpt_prdn = 1; /* printing done */\r
330	lpt_eor = 0;\r
331	lpt_dma = 0;\r
332	for (i = 0; i < LPT_WIDTH; i++) lpt_buf[i] = ' '; /* clear buffer */\r
333	lpt_buf[LPT_WIDTH] = 0;\r
334	CLR_INT (INT_LPT); /* clear int, enb */\r
335	CLR_ENB (INT_LPT);\r
336	sim_cancel (&lpt_unit); /* deactivate unit */\r
337	return SCPE_OK;\r
338	}\r