| /* h316_lp.c: Honeywell 316/516 line printer | |
| Copyright (c) 1999-2007, 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 line printer | |
| 09-Jun-07 RMS Fixed lost last print line (from Theo Engel) | |
| 19-Jan-06 RMS Added UNIT_TEXT flag | |
| 03-Apr-06 RMS Fixed bug in blanks backscanning (from Theo Engel) | |
| 01-Dec-04 RMS Fixed bug in DMA/DMC support | |
| 24-Oct-03 RMS Added DMA/DMC support | |
| 25-Apr-03 RMS Revised for extended file support | |
| 30-May-02 RMS Widened POS to 32b | |
| The Series 16 line printer is an unbuffered Analex shuttle printer. | |
| Because it was unbuffered, the CPU had to scan out an entire line's | |
| worth of characters (60 words) for every character on the print drum | |
| (64 characters). Because it was a shuttle printer, the entire | |
| process must be repeated first for the odd columns and then for the | |
| even columns. After scanning the odd columns, the printer carriage | |
| shuttled right by one column; after scanning the even columns, the | |
| carriage shuttled left. This halved the number of hammers required, | |
| reducing cost but increasing mechanical complexity. | |
| The real printer is very timing dependent. If the CPU misses a | |
| scan, then the wrong characters are printed. If the printer protocol | |
| is violated, then results are unpredictable. The simulated printer | |
| is much more forgiving. Rather than simulating the fixed drum and | |
| hammer timing of the real printer, the simulator is driven by the | |
| program's OTA instructions. If the program misses a time slot, the | |
| simulator will still print the "correct" result. A timing based | |
| simulation would be very hard to do in the absense of accurate | |
| instruction timing. | |
| Printer state is maintained in a set of position and state variables: | |
| lpt_wdpos word count within a line scan (0-59) | |
| lpt_drpos drum position (0-63) | |
| lpt_crpos carriage position (0-1) | |
| lpt_svcst service state (shuttle, paper advance) | |
| lpt_svcch channel for paper advance (0 = no adv) | |
| lpt_rdy transfer ready flag | |
| lpt_prdn printing done flag | |
| lpt_dma use DMA/DMC | |
| lpt_eor DMA/DMC end of range | |
| */ | |
| #include "h316_defs.h" | |
| #define LPT_WIDTH 120 /* width */ | |
| #define LPT_SCAN (LPT_WIDTH / 2) /* words/scan */ | |
| #define LPT_DRUM 64 /* drum rows */ | |
| #define LPT_SVCSH 01 /* shuttle */ | |
| #define LPT_SVCPA 02 /* paper advance */ | |
| extern int32 dev_int, dev_enb; | |
| extern int32 stop_inst; | |
| extern uint32 chan_req; | |
| int32 lpt_wdpos = 0; /* word position */ | |
| int32 lpt_drpos = 0; /* drum position */ | |
| int32 lpt_crpos = 0; /* carriage position */ | |
| int32 lpt_svcst = 0; /* service state */ | |
| int32 lpt_svcch = 0; /* service channel */ | |
| int32 lpt_rdy = 0; /* transfer flag */ | |
| int32 lpt_prdn = 1; /* printing done */ | |
| int32 lpt_dma = 0; /* use DMA/DMC */ | |
| int32 lpt_eor = 0; /* DMA/DMC end range */ | |
| char lpt_buf[LPT_WIDTH + 1] = { 0 }; /* line buffer */ | |
| int32 lpt_xtime = 5; /* transfer time */ | |
| int32 lpt_etime = 50; /* end of scan time */ | |
| int32 lpt_ptime = 5000; /* paper adv time */ | |
| int32 lpt_stopioe = 0; /* stop on error */ | |
| int32 lptio (int32 inst, int32 fnc, int32 dat, int32 dev); | |
| t_stat lpt_svc (UNIT *uptr); | |
| t_stat lpt_reset (DEVICE *dptr); | |
| /* LPT data structures | |
| lpt_dev LPT device descriptor | |
| lpt_unit LPT unit descriptor | |
| lpt_mod LPT modifiers | |
| lpt_reg LPT register list | |
| */ | |
| DIB lpt_dib = { LPT, IOBUS, 1, &lptio }; | |
| UNIT lpt_unit = { UDATA (&lpt_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0) }; | |
| REG lpt_reg[] = { | |
| { DRDATA (WDPOS, lpt_wdpos, 6) }, | |
| { DRDATA (DRPOS, lpt_drpos, 6) }, | |
| { FLDATA (CRPOS, lpt_crpos, 0) }, | |
| { FLDATA (RDY, lpt_rdy, 0) }, | |
| { FLDATA (EOR, lpt_eor, 0) }, | |
| { FLDATA (DMA, lpt_dma, 0) }, | |
| { FLDATA (PRDN, lpt_prdn, 0) }, | |
| { FLDATA (INTREQ, dev_int, INT_V_LPT) }, | |
| { FLDATA (ENABLE, dev_enb, INT_V_LPT) }, | |
| { ORDATA (SVCST, lpt_svcst, 2) }, | |
| { ORDATA (SVCCH, lpt_svcch, 2) }, | |
| { BRDATA (BUF, lpt_buf, 8, 8, 120) }, | |
| { DRDATA (POS, lpt_unit.pos, T_ADDR_W), PV_LEFT }, | |
| { DRDATA (XTIME, lpt_xtime, 24), PV_LEFT }, | |
| { DRDATA (ETIME, lpt_etime, 24), PV_LEFT }, | |
| { DRDATA (PTIME, lpt_ptime, 24), PV_LEFT }, | |
| { FLDATA (STOP_IOE, lpt_stopioe, 0) }, | |
| { NULL } | |
| }; | |
| DEVICE lpt_dev = { | |
| "LPT", &lpt_unit, lpt_reg, NULL, | |
| 1, 10, 31, 1, 8, 8, | |
| NULL, NULL, &lpt_reset, | |
| NULL, NULL, NULL, | |
| &lpt_dib, DEV_DISABLE | |
| }; | |
| /* IO routine */ | |
| int32 lptio (int32 inst, int32 fnc, int32 dat, int32 dev) | |
| { | |
| int32 ch = lpt_dib.chan - 1; /* DMA/DMC chan */ | |
| int32 chr; | |
| switch (inst) { /* case on opcode */ | |
| case ioOCP: /* OCP */ | |
| switch (fnc) { /* case on fnc */ | |
| case 000: case 002: case 004: /* paper adv */ | |
| lpt_svcst = lpt_svcst | LPT_SVCPA; /* set state */ | |
| lpt_svcch = fnc >> 1; /* save channel */ | |
| sim_activate (&lpt_unit, lpt_ptime); | |
| CLR_INT (INT_LPT); /* clear int */ | |
| break; | |
| case 003: /* init scan DMA/DMC */ | |
| lpt_prdn = 0; /* clear pr done */ | |
| lpt_wdpos = 0; /* init scan pos */ | |
| lpt_eor = 0; | |
| if (ch >= 0) lpt_dma = 1; /* try for DMA/DMC */ | |
| else lpt_dma = 0; | |
| if (!sim_is_active (&lpt_unit)) { | |
| lpt_rdy = 1; | |
| if (lpt_dma) SET_CH_REQ (ch); | |
| } | |
| CLR_INT (INT_LPT); /* clear int */ | |
| break; | |
| case 007: /* init scan IO bus */ | |
| lpt_prdn = 0; /* clear pr done */ | |
| lpt_wdpos = 0; /* init scan pos */ | |
| lpt_eor = 0; | |
| lpt_dma = 0; /* IO bus */ | |
| if (!sim_is_active (&lpt_unit)) lpt_rdy = 1; | |
| CLR_INT (INT_LPT); /* clear int */ | |
| break; | |
| default: | |
| return IOBADFNC (dat); | |
| } | |
| break; | |
| case ioSKS: /* SKS */ | |
| switch (fnc) { /* case on fnc */ | |
| case 000: /* if xfer rdy */ | |
| if (lpt_rdy) return IOSKIP (dat); | |
| break; | |
| case 002: /* if !alarm */ | |
| if (lpt_unit.flags & UNIT_ATT) return IOSKIP (dat); | |
| break; | |
| case 003: /* if odd col */ | |
| if (lpt_crpos) return IOSKIP (dat); | |
| break; | |
| case 004: /* if !interrupt */ | |
| if (!TST_INTREQ (INT_LPT)) return IOSKIP (dat); | |
| break; | |
| case 011: /* if line printed */ | |
| if (lpt_prdn) return IOSKIP (dat); | |
| break; | |
| case 012: /* if !shuttling */ | |
| if (!(lpt_svcst & LPT_SVCSH)) return IOSKIP (dat); | |
| break; | |
| case 013: | |
| if (lpt_prdn && !(lpt_svcst & LPT_SVCSH)) return IOSKIP (dat); | |
| break; | |
| case 014: /* if !advancing */ | |
| if (!(lpt_svcst & LPT_SVCPA)) return IOSKIP (dat); | |
| break; | |
| case 015: | |
| if (lpt_prdn && !(lpt_svcst & LPT_SVCPA)) return IOSKIP (dat); | |
| break; | |
| case 016: | |
| if (!(lpt_svcst & (LPT_SVCSH | LPT_SVCPA))) return IOSKIP (dat); | |
| break; | |
| case 017: | |
| if (lpt_prdn && !(lpt_svcst & (LPT_SVCSH | LPT_SVCPA))) | |
| return IOSKIP (dat); | |
| break; | |
| default: | |
| return IOBADFNC (dat); | |
| } | |
| break; | |
| case ioOTA: /* OTA */ | |
| if (fnc) return IOBADFNC (dat); /* only fnc 0 */ | |
| if (lpt_rdy) { /* xfer ready? */ | |
| lpt_rdy = 0; /* clear xfer */ | |
| chr = (dat >> (lpt_crpos? 0: 8)) & 077; /* get 6b char */ | |
| if (chr == lpt_drpos) { /* match drum pos? */ | |
| if (chr < 040) chr = chr | 0100; | |
| lpt_buf[2 * lpt_wdpos + lpt_crpos] = chr; | |
| } | |
| lpt_wdpos++; /* adv scan pos */ | |
| if (lpt_wdpos >= LPT_SCAN) { /* end of scan? */ | |
| lpt_wdpos = 0; /* reset scan pos */ | |
| lpt_drpos++; /* adv drum pos */ | |
| if (lpt_drpos >= LPT_DRUM) { /* end of drum? */ | |
| lpt_drpos = 0; /* reset drum pos */ | |
| lpt_crpos = lpt_crpos ^ 1; /* shuttle */ | |
| lpt_svcst = lpt_svcst | LPT_SVCSH; | |
| sim_activate (&lpt_unit, lpt_ptime); | |
| } /* end if shuttle */ | |
| else sim_activate (&lpt_unit, lpt_etime); | |
| } /* end if endscan */ | |
| else sim_activate (&lpt_unit, lpt_xtime); | |
| return IOSKIP (dat); /* skip return */ | |
| } | |
| break; | |
| case ioEND: /* end DMA/DMC */ | |
| lpt_eor = 1; /* set end range */ | |
| break; | |
| } /* end case op */ | |
| return dat; | |
| } | |
| /* Unit service */ | |
| t_stat lpt_svc (UNIT *uptr) | |
| { | |
| int32 i; | |
| int32 ch = lpt_dib.chan - 1; /* DMA/DMC chan */ | |
| static const char *lpt_cc[] = { | |
| "\r", | |
| "\n", | |
| "\n\f", | |
| "\n" | |
| }; | |
| if ((lpt_unit.flags & UNIT_ATT) == 0) /* attached? */ | |
| return IORETURN (lpt_stopioe, SCPE_UNATT); | |
| if (lpt_dma) { /* DMA/DMC? */ | |
| if (lpt_eor) SET_INT (INT_LPT); /* end range? intr */ | |
| else { | |
| lpt_rdy = 1; /* set ready */ | |
| SET_CH_REQ (ch); /* get more data */ | |
| } | |
| } | |
| else lpt_rdy = 1; /* IO, continue scan */ | |
| if (lpt_dma && lpt_eor) SET_INT (INT_LPT); /* end of range? */ | |
| if (lpt_svcst & LPT_SVCSH) { /* shuttling? */ | |
| SET_INT (INT_LPT); /* interrupt */ | |
| if (lpt_crpos == 0) { /* done shuttling? */ | |
| for (i = LPT_WIDTH - 1; i >= 0; i--) { /* backscan for blanks */ | |
| if (lpt_buf[i] != ' ') break; | |
| } | |
| lpt_buf[i + 1] = 0; | |
| fputs (lpt_buf, uptr->fileref); /* output buf */ | |
| uptr->pos = ftell (uptr->fileref); /* update pos */ | |
| for (i = 0; i < LPT_WIDTH; i++) lpt_buf[i] = ' '; /* clear buf */ | |
| lpt_prdn = 1; /* print done */ | |
| } | |
| } | |
| if (lpt_svcst & LPT_SVCPA) { /* paper advance */ | |
| SET_INT (INT_LPT); /* interrupt */ | |
| fputs (lpt_cc[lpt_svcch & 03], uptr->fileref); /* output eol */ | |
| uptr->pos = ftell (uptr->fileref); /* update pos */ | |
| } | |
| lpt_svcst = 0; | |
| return SCPE_OK; | |
| } | |
| /* Reset routine */ | |
| t_stat lpt_reset (DEVICE *dptr) | |
| { | |
| int32 i; | |
| lpt_wdpos = lpt_drpos = lpt_crpos = 0; /* clear positions */ | |
| lpt_svcst = lpt_svcch = 0; /* idle state */ | |
| lpt_rdy = 0; /* not rdy to xfer */ | |
| lpt_prdn = 1; /* printing done */ | |
| lpt_eor = 0; | |
| lpt_dma = 0; | |
| for (i = 0; i < LPT_WIDTH; i++) lpt_buf[i] = ' '; /* clear buffer */ | |
| lpt_buf[LPT_WIDTH] = 0; | |
| CLR_INT (INT_LPT); /* clear int, enb */ | |
| CLR_ENB (INT_LPT); | |
| sim_cancel (&lpt_unit); /* deactivate unit */ | |
| return SCPE_OK; | |
| } |