| /* pdp18b_lp.c: 18b PDP's line printer simulator | |
| Copyright (c) 1993-2017, 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. | |
| lp62 (PDP-4) Type 62 line printer | |
| lp647 (PDP-7,9) Type 647 line printer | |
| lp09 (PDP-9,15) LP09 line printer | |
| lp15 (PDP-15) LP15 line printer | |
| 13-Mar-17 RMS Annotated fall throughs in switch | |
| 10-Mar-16 RMS Added 3-cycle databreak set/show entry | |
| 07-Mar-16 RMS Revised for dynamically allocated memory | |
| 13-Sep-15 RMS Added APIVEC register | |
| 19-Jan-07 RMS Added UNIT_TEXT flag | |
| 11-Jun-06 RMS Made character translation table global scope | |
| 14-Jan-04 RMS Revised IO device call interface | |
| 23-Jul-03 RMS Fixed overprint bug in Type 62 | |
| 25-Apr-03 RMS Revised for extended file support | |
| 05-Feb-03 RMS Added LP09, fixed conditionalization | |
| 05-Oct-02 RMS Added DIB, device number support | |
| 30-May-02 RMS Widened POS to 32b | |
| 03-Feb-02 RMS Fixed typo (Robert Alan Byer) | |
| 25-Nov-01 RMS Revised interrupt structure | |
| 19-Sep-01 RMS Fixed bug in 647 | |
| 13-Feb-01 RMS Revised for register arrays | |
| 15-Feb-01 RMS Fixed 3 cycle data break sequence | |
| 30-Oct-00 RMS Standardized register naming | |
| 20-Aug-98 RMS Fixed compilation problem in BeOS | |
| 03-Jan-97 RMS Fixed bug in Type 62 state handling | |
| */ | |
| #include "pdp18b_defs.h" | |
| extern int32 int_hwre[API_HLVL+1]; | |
| extern int32 api_vec[API_HLVL][32]; | |
| const char fio_to_asc[64] = { | |
| ' ','1','2','3','4','5','6','7','8','9','\'','~','#','V','^','<', | |
| '0','/','S','T','U','V','W','X','Y','Z','"',',','>','^','-','?', | |
| 'o','J','K','L','M','N','O','P','Q','R','$','=','-',')','-','(', | |
| '_','A','B','C','D','E','F','G','H','I','*','.','+',']','|','[' | |
| }; | |
| #if defined (TYPE62) | |
| /* Type 62 line printer */ | |
| #define LP62_BSIZE 120 /* line size */ | |
| #define BPTR_MAX 40 /* pointer max */ | |
| #define BPTR_MASK 077 /* buf ptr max */ | |
| int32 lp62_spc = 0; /* print vs spc */ | |
| int32 lp62_ovrpr = 0; /* overprint */ | |
| int32 lp62_stopioe = 0; | |
| int32 lp62_bp = 0; /* buffer ptr */ | |
| char lp62_buf[LP62_BSIZE + 1] = { 0 }; | |
| static const char *lp62_cc[] = { | |
| "\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\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\n\n\n\n\n\n\n\n\n\n\n\n", | |
| "\f" | |
| }; | |
| int32 lp62_65 (int32 dev, int32 pulse, int32 dat); | |
| int32 lp62_66 (int32 dev, int32 pulse, int32 dat); | |
| int32 lp62_iors (void); | |
| t_stat lp62_svc (UNIT *uptr); | |
| t_stat lp62_reset (DEVICE *dptr); | |
| /* Type 62 LPT data structures | |
| lp62_dev LPT device descriptor | |
| lp62_unit LPT unit | |
| lp62_reg LPT register list | |
| */ | |
| DIB lp62_dib = { DEV_LPT, 2, &lp62_iors, { &lp62_65, &lp62_66 } }; | |
| UNIT lp62_unit = { | |
| UDATA (&lp62_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0), SERIAL_OUT_WAIT | |
| }; | |
| REG lp62_reg[] = { | |
| { ORDATAD (BUF, lp62_unit.buf, 8, "last data item processed") }, | |
| { FLDATAD (INT, int_hwre[API_LPT], INT_V_LPT, "interrupt pending flag") }, | |
| { FLDATAD (DONE, int_hwre[API_LPT], INT_V_LPT, "device done flag") }, | |
| { FLDATAD (SPC, int_hwre[API_LPTSPC], INT_V_LPTSPC, "spacing done flag") }, | |
| { DRDATAD (BPTR, lp62_bp, 6, "print buffer pointer") }, | |
| { ORDATA (STATE, lp62_spc, 6), REG_HRO }, | |
| { FLDATA (OVRPR, lp62_ovrpr, 0), REG_HRO }, | |
| { DRDATAD (POS, lp62_unit.pos, T_ADDR_W, "position in the output file"), PV_LEFT }, | |
| { DRDATAD (TIME, lp62_unit.wait, 24, "time from I/O initiation to interrupt"), PV_LEFT }, | |
| { FLDATAD (STOP_IOE, lp62_stopioe, 0, "stop on I/O error") }, | |
| { BRDATAD (LBUF, lp62_buf, 8, 8, LP62_BSIZE, "line buffer") }, | |
| { ORDATA (DEVNO, lp62_dib.dev, 6), REG_HRO }, | |
| { NULL } | |
| }; | |
| MTAB lp62_mod[] = { | |
| { MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO", &set_devno, &show_devno }, | |
| { 0 } | |
| }; | |
| DEVICE lp62_dev = { | |
| "LPT", &lp62_unit, lp62_reg, lp62_mod, | |
| 1, 10, 31, 1, 8, 8, | |
| NULL, NULL, &lp62_reset, | |
| NULL, NULL, NULL, | |
| &lp62_dib, DEV_DISABLE | |
| }; | |
| /* IOT routines */ | |
| int32 lp62_65 (int32 dev, int32 pulse, int32 dat) | |
| { | |
| int32 i; | |
| if ((pulse & 01) && TST_INT (LPT)) /* LPSF */ | |
| dat = IOT_SKP | dat; | |
| if (pulse & 02) { | |
| int32 sb = pulse & 060; /* subopcode */ | |
| if (sb == 000) /* LPCF */ | |
| CLR_INT (LPT); | |
| if ((sb == 040) && (lp62_bp < BPTR_MAX)) { /* LPLD */ | |
| i = lp62_bp * 3; /* cvt to chr ptr */ | |
| lp62_buf[i] = fio_to_asc[(dat >> 12) & 077]; | |
| lp62_buf[i + 1] = fio_to_asc[(dat >> 6) & 077]; | |
| lp62_buf[i + 2] = fio_to_asc[dat & 077]; | |
| lp62_bp = (lp62_bp + 1) & BPTR_MASK; | |
| } | |
| } | |
| if (pulse & 04) { /* LPSE */ | |
| lp62_spc = 0; /* print */ | |
| sim_activate (&lp62_unit, lp62_unit.wait); /* activate */ | |
| } | |
| return dat; | |
| } | |
| int32 lp62_66 (int32 dev, int32 pulse, int32 dat) | |
| { | |
| if ((pulse & 01) && TST_INT (LPTSPC)) /* LSSF */ | |
| dat = IOT_SKP | dat; | |
| if (pulse & 02) /* LSCF */ | |
| CLR_INT (LPTSPC); | |
| if (pulse & 04) { /* LSPR */ | |
| lp62_spc = 020 | (dat & 07); /* space */ | |
| sim_activate (&lp62_unit, lp62_unit.wait); /* activate */ | |
| } | |
| return dat; | |
| } | |
| /* Unit service, action based on lp62_spc | |
| lp62_spc = 0 write buffer to file, set overprint | |
| lp62_spc = 2x space command x, clear overprint | |
| */ | |
| t_stat lp62_svc (UNIT *uptr) | |
| { | |
| int32 i; | |
| if (lp62_spc) { /* space? */ | |
| SET_INT (LPTSPC); /* set flag */ | |
| if ((uptr->flags & UNIT_ATT) == 0) /* attached? */ | |
| return IORETURN (lp62_stopioe, SCPE_UNATT); | |
| fputs (lp62_cc[lp62_spc & 07], uptr->fileref); /* print cctl */ | |
| uptr->pos = ftell (uptr->fileref); /* update position */ | |
| if (ferror (uptr->fileref)) { /* error? */ | |
| sim_perror ("LPT I/O error"); | |
| clearerr (uptr->fileref); | |
| return SCPE_IOERR; | |
| } | |
| lp62_ovrpr = 0; /* clear overprint */ | |
| } | |
| else { | |
| SET_INT (LPT); /* print */ | |
| if ((uptr->flags & UNIT_ATT) == 0) /* attached? */ | |
| return IORETURN (lp62_stopioe, SCPE_UNATT); | |
| if (lp62_ovrpr) /* overprint? */ | |
| fputc ('\r', uptr->fileref); | |
| fputs (lp62_buf, uptr->fileref); /* print buffer */ | |
| uptr->pos = ftell (uptr->fileref); /* update position */ | |
| if (ferror (uptr->fileref)) { /* test error */ | |
| sim_perror ("LPT I/O error"); | |
| clearerr (uptr->fileref); | |
| return SCPE_IOERR; | |
| } | |
| lp62_bp = 0; | |
| for (i = 0; i <= LP62_BSIZE; i++) /* clear buffer */ | |
| lp62_buf[i] = 0; | |
| lp62_ovrpr = 1; /* set overprint */ | |
| } | |
| return SCPE_OK; | |
| } | |
| /* Reset routine */ | |
| t_stat lp62_reset (DEVICE *dptr) | |
| { | |
| int32 i; | |
| CLR_INT (LPT); /* clear intrs */ | |
| CLR_INT (LPTSPC); | |
| sim_cancel (&lp62_unit); /* deactivate unit */ | |
| lp62_bp = 0; /* clear buffer ptr */ | |
| for (i = 0; i <= LP62_BSIZE; i++) /* clear buffer */ | |
| lp62_buf[i] = 0; | |
| lp62_spc = 0; /* clear state */ | |
| lp62_ovrpr = 0; /* clear overprint */ | |
| return SCPE_OK; | |
| } | |
| /* IORS routine */ | |
| int32 lp62_iors (void) | |
| { | |
| return (TST_INT (LPT)? IOS_LPT: 0) | | |
| (TST_INT (LPTSPC)? IOS_LPT1: 0); | |
| } | |
| #endif | |
| #if defined (TYPE647) | |
| /* Type 647 line printer */ | |
| #define LP647_BSIZE 120 /* line size */ | |
| int32 lp647_don = 0; /* ready */ | |
| int32 lp647_ie = 1; /* int enable */ | |
| int32 lp647_err = 0; /* error */ | |
| int32 lp647_iot = 0; /* saved state */ | |
| int32 lp647_stopioe = 0; | |
| int32 lp647_bp = 0; /* buffer ptr */ | |
| char lp647_buf[LP647_BSIZE] = { 0 }; | |
| static const char *lp647_cc[] = { | |
| "\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\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\n\n\n\n\n\n\n\n\n\n\n\n", | |
| "\f" | |
| }; | |
| int32 lp647_65 (int32 dev, int32 pulse, int32 dat); | |
| int32 lp647_66 (int32 dev, int32 pulse, int32 dat); | |
| int32 lp647_iors (void); | |
| t_stat lp647_svc (UNIT *uptr); | |
| t_stat lp647_reset (DEVICE *dptr); | |
| t_stat lp647_attach (UNIT *uptr, CONST char *cptr); | |
| t_stat lp647_detach (UNIT *uptr); | |
| /* Type 647 LPT data structures | |
| lp647_dev LPT device descriptor | |
| lp647_unit LPT unit | |
| lp647_reg LPT register list | |
| */ | |
| DIB lp647_dib = { DEV_LPT, 2, &lp647_iors, { &lp647_65, &lp647_66 } }; | |
| UNIT lp647_unit = { | |
| UDATA (&lp647_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0), SERIAL_OUT_WAIT | |
| }; | |
| REG lp647_reg[] = { | |
| { ORDATAD (BUF, lp647_unit.buf, 8, "last data item processed") }, | |
| { FLDATAD (INT, int_hwre[API_LPT], INT_V_LPT, "interrupt pending flag") }, | |
| { FLDATAD (DONE, lp647_don, 0, "device done flag") }, | |
| #if defined (PDP9) | |
| { FLDATAD (ENABLE, lp647_ie, 0, "interrupt enable") }, | |
| #endif | |
| { FLDATAD (ERR, lp647_err, 0, "error flag") }, | |
| { DRDATAD (BPTR, lp647_bp, 7, "print buffer pointer") }, | |
| { ORDATA (SCMD, lp647_iot, 6), REG_HRO }, | |
| { DRDATAD (POS, lp647_unit.pos, T_ADDR_W, "position in the output file"), PV_LEFT }, | |
| { DRDATAD (TIME, lp647_unit.wait, 24, "time from I/O initiation to interrupt"), PV_LEFT }, | |
| { FLDATAD (STOP_IOE, lp647_stopioe, 0, "stop on I/O error") }, | |
| { BRDATAD (LBUF, lp647_buf, 8, 8, LP647_BSIZE, "line buffer") }, | |
| { ORDATA (DEVNO, lp647_dib.dev, 6), REG_HRO }, | |
| { NULL } | |
| }; | |
| MTAB lp647_mod[] = { | |
| { MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO", &set_devno, &show_devno }, | |
| { 0 } | |
| }; | |
| DEVICE lp647_dev = { | |
| "LPT", &lp647_unit, lp647_reg, lp647_mod, | |
| 1, 10, 31, 1, 8, 8, | |
| NULL, NULL, &lp647_reset, | |
| NULL, &lp647_attach, &lp647_detach, | |
| &lp647_dib, DEV_DISABLE | |
| }; | |
| /* IOT routines */ | |
| int32 lp647_65 (int32 dev, int32 pulse, int32 dat) | |
| { | |
| int32 i, sb; | |
| sb = pulse & 060; /* subcode */ | |
| if ((pulse & 01) && lp647_don) /* LPSF */ | |
| dat = IOT_SKP | dat; | |
| if (pulse & 02) { /* pulse 02 */ | |
| lp647_don = 0; /* clear done */ | |
| CLR_INT (LPT); /* clear int req */ | |
| if (sb == 000) { /* LPCB */ | |
| for (i = 0; i < LP647_BSIZE; i++) | |
| lp647_buf[i] = 0; | |
| lp647_bp = 0; /* reset buf ptr */ | |
| lp647_don = 1; /* set done */ | |
| if (lp647_ie) /* set int */ | |
| SET_INT (LPT); | |
| } | |
| } | |
| if (pulse & 004) { /* LPDI */ | |
| switch (sb) { /* case on subcode */ | |
| case 000: /* LPDI */ | |
| #if defined (PDP9) | |
| lp647_ie = 0; /* clear int enable */ | |
| CLR_INT (LPT); /* clear int req */ | |
| #endif | |
| break; | |
| case 040: /* LPB3 */ | |
| if (lp647_bp < LP647_BSIZE) { | |
| lp647_buf[lp647_bp] = lp647_buf[lp647_bp] | ((dat >> 12) & 077); | |
| lp647_bp = lp647_bp + 1; | |
| } | |
| /* fall through */ | |
| case 020: /* LPB2 */ | |
| if (lp647_bp < LP647_BSIZE) { | |
| lp647_buf[lp647_bp] = lp647_buf[lp647_bp] | ((dat >> 6) & 077); | |
| lp647_bp = lp647_bp + 1; | |
| } | |
| /* fall through */ | |
| case 060: /* LPB1 */ | |
| if (lp647_bp < LP647_BSIZE) { | |
| lp647_buf[lp647_bp] = lp647_buf[lp647_bp] | (dat & 077); | |
| lp647_bp = lp647_bp + 1; | |
| } | |
| lp647_don = 1; /* set done */ | |
| if (lp647_ie) /* set int */ | |
| SET_INT (LPT); | |
| break; | |
| } /* end case */ | |
| } | |
| return dat; | |
| } | |
| int32 lp647_66 (int32 dev, int32 pulse, int32 dat) | |
| { | |
| if ((pulse & 01) && lp647_err) /* LPSE */ | |
| dat = IOT_SKP | dat; | |
| if (pulse & 02) { /* LPCF */ | |
| lp647_don = 0; /* clear done, int */ | |
| CLR_INT (LPT); | |
| } | |
| if (pulse & 04) { | |
| if ((pulse & 060) < 060) { /* LPLS, LPPB, LPPS */ | |
| lp647_iot = (pulse & 060) | (dat & 07); /* save parameters */ | |
| sim_activate (&lp647_unit, lp647_unit.wait); /* activate */ | |
| } | |
| #if defined (PDP9) | |
| else { /* LPEI */ | |
| lp647_ie = 1; /* set int enable */ | |
| if (lp647_don) | |
| SET_INT (LPT); | |
| } | |
| #endif | |
| } | |
| return dat; | |
| } | |
| /* Unit service. lp647_iot specifies the action to be taken | |
| lp647_iot = 0x print only | |
| lp647_iot = 2x space only, x is spacing command | |
| lp647_iot = 4x print then space, x is spacing command | |
| */ | |
| t_stat lp647_svc (UNIT *uptr) | |
| { | |
| int32 i; | |
| char pbuf[LP647_BSIZE + 2]; | |
| lp647_don = 1; | |
| if (lp647_ie) /* set flag */ | |
| SET_INT (LPT); | |
| if ((uptr->flags & UNIT_ATT) == 0) { /* not attached? */ | |
| lp647_err = 1; /* set error */ | |
| return IORETURN (lp647_stopioe, SCPE_UNATT); | |
| } | |
| if ((lp647_iot & 020) == 0) { /* print? */ | |
| for (i = 0; i < lp647_bp; i++) /* translate buffer */ | |
| pbuf[i] = lp647_buf[i] | ((lp647_buf[i] >= 040)? 0: 0100); | |
| if ((lp647_iot & 060) == 0) | |
| pbuf[lp647_bp++] = '\r'; | |
| pbuf[lp647_bp++] = 0; /* append nul */ | |
| for (i = 0; i < LP647_BSIZE; i++) /* clear buffer */ | |
| lp647_buf[i] = 0; | |
| fputs (pbuf, uptr->fileref); /* print buffer */ | |
| uptr->pos = ftell (uptr->fileref); /* update position */ | |
| if (ferror (uptr->fileref)) { /* error? */ | |
| sim_perror ("LPT I/O error"); | |
| clearerr (uptr->fileref); | |
| lp647_bp = 0; | |
| return SCPE_IOERR; | |
| } | |
| lp647_bp = 0; /* clear buffer ptr */ | |
| } | |
| if (lp647_iot & 060) { /* space? */ | |
| fputs (lp647_cc[lp647_iot & 07], uptr->fileref); /* write cctl */ | |
| uptr->pos = ftell (uptr->fileref); /* update position */ | |
| if (ferror (uptr->fileref)) { /* error? */ | |
| sim_perror ("LPT I/O error"); | |
| clearerr (uptr->fileref); | |
| return SCPE_IOERR; | |
| } | |
| } | |
| return SCPE_OK; | |
| } | |
| /* Reset routine */ | |
| t_stat lp647_reset (DEVICE *dptr) | |
| { | |
| int32 i; | |
| lp647_don = 0; /* clear done */ | |
| lp647_err = (lp647_unit.flags & UNIT_ATT)? 0: 1; /* clr/set error */ | |
| lp647_ie = 1; /* set enable */ | |
| CLR_INT (LPT); /* clear int */ | |
| sim_cancel (&lp647_unit); /* deactivate unit */ | |
| lp647_bp = 0; /* clear buffer ptr */ | |
| lp647_iot = 0; /* clear state */ | |
| for (i = 0; i < LP647_BSIZE; i++) /* clear buffer */ | |
| lp647_buf[i] = 0; | |
| return SCPE_OK; | |
| } | |
| /* IORS routine */ | |
| int32 lp647_iors (void) | |
| { | |
| return (lp647_don? IOS_LPT: 0) | (lp647_err? IOS_LPT1: 0); | |
| } | |
| /* Attach routine */ | |
| t_stat lp647_attach (UNIT *uptr, CONST char *cptr) | |
| { | |
| t_stat reason; | |
| reason = attach_unit (uptr, cptr); | |
| lp647_err = (lp647_unit.flags & UNIT_ATT)? 0: 1; /* clr/set error */ | |
| return reason; | |
| } | |
| /* Detach routine */ | |
| t_stat lp647_detach (UNIT *uptr) | |
| { | |
| lp647_err = 1; | |
| return detach_unit (uptr); | |
| } | |
| #endif | |
| #if defined (LP09) | |
| /* LP09 line printer */ | |
| #define LP09_BSIZE 132 /* line size */ | |
| int32 lp09_don = 0; /* ready */ | |
| int32 lp09_err = 0; /* error */ | |
| int32 lp09_ie = 1; /* int enable */ | |
| int32 lp09_stopioe = 0; | |
| int32 lp09_66 (int32 dev, int32 pulse, int32 dat); | |
| int32 lp09_iors (void); | |
| t_stat lp09_svc (UNIT *uptr); | |
| t_stat lp09_reset (DEVICE *dptr); | |
| t_stat lp09_attach (UNIT *uptr, CONST char *cptr); | |
| t_stat lp09_detach (UNIT *uptr); | |
| /* LP09 LPT data structures | |
| lp09_dev LPT device descriptor | |
| lp09_unit LPT unit | |
| lp09_reg LPT register list | |
| */ | |
| DIB lp09_dib = { DEV_LPT, 2, &lp09_iors, { NULL, &lp09_66 } }; | |
| UNIT lp09_unit = { | |
| UDATA (&lp09_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0), SERIAL_OUT_WAIT | |
| }; | |
| REG lp09_reg[] = { | |
| { ORDATAD (BUF, lp09_unit.buf, 7, "last data item processed") }, | |
| { FLDATAD (INT, int_hwre[API_LPT], INT_V_LPT, "interrupt pending flag") }, | |
| { FLDATAD (DONE, lp09_don, 0, "device done flag") }, | |
| { FLDATAD (ENABLE, lp09_ie, 0, "interrupt enable") }, | |
| { FLDATAD (ERR, lp09_err, 0, "error flag") }, | |
| { DRDATAD (POS, lp09_unit.pos, T_ADDR_W, "position in the output file"), PV_LEFT }, | |
| { DRDATAD (TIME, lp09_unit.wait, 24, "time from initiation to inturrupt"), PV_LEFT }, | |
| { FLDATAD (STOP_IOE, lp09_stopioe, 0, "stop on I/O error") }, | |
| { ORDATA (DEVNO, lp09_dib.dev, 6), REG_HRO }, | |
| { ORDATA (APIVEC, api_vec[API_LPT][INT_V_LPT], 6), REG_HRO }, | |
| { NULL } | |
| }; | |
| MTAB lp09_mod[] = { | |
| { MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO", &set_devno, &show_devno }, | |
| { 0 } | |
| }; | |
| DEVICE lp09_dev = { | |
| "LP9", &lp09_unit, lp09_reg, lp09_mod, | |
| 1, 10, 31, 1, 8, 8, | |
| NULL, NULL, &lp09_reset, | |
| NULL, &lp09_attach, &lp09_detach, | |
| &lp09_dib, DEV_DISABLE | DEV_DIS | |
| }; | |
| /* IOT routines */ | |
| int32 lp09_66 (int32 dev, int32 pulse, int32 dat) | |
| { | |
| int32 sb = pulse & 060; /* subopcode */ | |
| if (pulse & 001) { | |
| if ((sb == 000) && lp09_don) /* LSDF */ | |
| dat = IOT_SKP | dat; | |
| if ((sb == 020) && lp09_err) /* LSEF */ | |
| dat = IOT_SKP | dat; | |
| } | |
| if (pulse & 002) { | |
| if (sb == 000) { /* LSCF */ | |
| lp09_don = 0; /* clear done, int */ | |
| CLR_INT (LPT); | |
| } | |
| else if (sb == 020) { /* LPLD */ | |
| lp09_don = 0; /* clear done, int */ | |
| CLR_INT (LPT); | |
| lp09_unit.buf = dat & 0177; /* load char */ | |
| if ((lp09_unit.buf == 015) || (lp09_unit.buf == 014) || | |
| (lp09_unit.buf == 012)) | |
| sim_activate (&lp09_unit, lp09_unit.wait); | |
| else dat = dat | (lp09_svc (&lp09_unit) << IOT_V_REASON); | |
| } | |
| } | |
| if (pulse & 004) { | |
| if (sb == 000) { /* LIOF */ | |
| lp09_ie = 0; /* clear int enab */ | |
| CLR_INT (LPT); /* clear int */ | |
| } | |
| else if (sb == 040) { /* LION */ | |
| lp09_ie = 1; /* set int enab */ | |
| if (lp09_don) /* if done, set int */ | |
| SET_INT (LPT); | |
| } | |
| } | |
| return dat; | |
| } | |
| /* Unit service */ | |
| t_stat lp09_svc (UNIT *uptr) | |
| { | |
| int32 c; | |
| lp09_don = 1; /* set done */ | |
| if (lp09_ie) /* int enb? req int */ | |
| SET_INT (LPT); | |
| if ((uptr->flags & UNIT_ATT) == 0) { /* not attached? */ | |
| lp09_err = 1; /* set error */ | |
| return IORETURN (lp09_stopioe, SCPE_UNATT); | |
| } | |
| c = uptr->buf & 0177; /* get char */ | |
| if ((c == 0) || (c == 0177)) /* skip NULL, DEL */ | |
| return SCPE_OK; | |
| fputc (c, uptr->fileref); /* print char */ | |
| uptr->pos = ftell (uptr->fileref); /* update position */ | |
| if (ferror (uptr->fileref)) { /* error? */ | |
| sim_perror ("LPT I/O error"); | |
| clearerr (uptr->fileref); | |
| return SCPE_IOERR; | |
| } | |
| return SCPE_OK; | |
| } | |
| /* Reset routine */ | |
| t_stat lp09_reset (DEVICE *dptr) | |
| { | |
| lp09_don = 0; /* clear done */ | |
| lp09_err = (lp09_unit.flags & UNIT_ATT)? 0: 1; /* compute error */ | |
| lp09_ie = 1; /* set enable */ | |
| CLR_INT (LPT); /* clear int */ | |
| return SCPE_OK; | |
| } | |
| /* IORS routine */ | |
| int32 lp09_iors (void) | |
| { | |
| return (lp09_don? IOS_LPT: 0); | |
| } | |
| /* Attach routine */ | |
| t_stat lp09_attach (UNIT *uptr, CONST char *cptr) | |
| { | |
| t_stat reason; | |
| reason = attach_unit (uptr, cptr); | |
| lp09_err = (lp09_unit.flags & UNIT_ATT)? 0: 1; /* clr/set error */ | |
| return reason; | |
| } | |
| /* Detach routine */ | |
| t_stat lp09_detach (UNIT *uptr) | |
| { | |
| lp09_err = 1; | |
| return detach_unit (uptr); | |
| } | |
| #endif | |
| #if defined (LP15) | |
| /* LP15 line printer */ | |
| #define LP15_BSIZE 132 /* line size */ | |
| #define LPT_CA 035 /* current addr */ | |
| /* Status register */ | |
| #define STA_ERR 0400000 /* error */ | |
| #define STA_ALM 0200000 /* alarm */ | |
| #define STA_OVF 0100000 /* line overflow */ | |
| #define STA_IHT 0040000 /* illegal HT */ | |
| #define STA_BUSY 0020000 /* busy */ | |
| #define STA_DON 0010000 /* done */ | |
| #define STA_ILK 0004000 /* interlock */ | |
| #define STA_EFLGS (STA_ALM | STA_OVF | STA_IHT | STA_ILK) | |
| #define STA_CLR 0003777 /* always clear */ | |
| extern int32 *M; | |
| int32 lp15_sta = 0; | |
| int32 lp15_ie = 1; | |
| int32 lp15_stopioe = 0; | |
| int32 lp15_mode = 0; | |
| int32 lp15_lc = 0; | |
| int32 lp15_bp = 0; | |
| char lp15_buf[LP15_BSIZE + 1] = { 0 }; | |
| int32 lp15_65 (int32 dev, int32 pulse, int32 dat); | |
| int32 lp15_66 (int32 dev, int32 pulse, int32 dat); | |
| int32 lp15_iors (void); | |
| t_stat lp15_svc (UNIT *uptr); | |
| t_stat lp15_reset (DEVICE *dptr); | |
| int32 lp15_updsta (int32 New); | |
| /* LP15 LPT data structures | |
| lp15_dev LPT device descriptor | |
| lp15_unit LPT unit | |
| lp15_reg LPT register list | |
| */ | |
| DIB lp15_dib = { DEV_LPT, 2, &lp15_iors, { &lp15_65, &lp15_66 } }; | |
| UNIT lp15_unit = { | |
| UDATA (&lp15_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0), SERIAL_OUT_WAIT | |
| }; | |
| REG lp15_reg[] = { | |
| { ORDATAD (STA, lp15_sta, 18, "status register") }, | |
| { FLDATAD (INT, int_hwre[API_LPT], INT_V_LPT, "interrupt pending flag") }, | |
| { FLDATAD (ENABLE, lp15_ie, 0, "interrupt enable") }, | |
| { DRDATAD (LCNT, lp15_lc, 9, "line counter") }, | |
| { DRDATAD (BPTR, lp15_bp, 8, "print buffer pointer") }, | |
| { FLDATAD (MODE, lp15_mode, 0, "mode flag") }, | |
| { DRDATAD (POS, lp15_unit.pos, T_ADDR_W, "position in the output file"), PV_LEFT }, | |
| { DRDATAD (TIME, lp15_unit.wait, 24, "time from I/O initiation to interrupt"), PV_LEFT }, | |
| { FLDATAD (STOP_IOE, lp15_stopioe, 0, "stop on I/O error") }, | |
| { BRDATAD (LBUF, lp15_buf, 8, 8, LP15_BSIZE, "line buffer") }, | |
| { ORDATA (DEVNO, lp15_dib.dev, 6), REG_HRO }, | |
| { ORDATA (APIVEC, api_vec[API_LPT][INT_V_LPT], 6), REG_HRO }, | |
| { NULL } | |
| }; | |
| MTAB lp15_mod[] = { | |
| { MTAB_XTD|MTAB_VDV|MTAB_NMO, LPT_CA, "CA", "CA", &set_3cyc_reg, &show_3cyc_reg, (void *)"CA" }, | |
| { MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO", &set_devno, &show_devno }, | |
| { 0 } | |
| }; | |
| DEVICE lp15_dev = { | |
| "LPT", &lp15_unit, lp15_reg, lp15_mod, | |
| 1, 10, 31, 1, 8, 8, | |
| NULL, NULL, &lp15_reset, | |
| NULL, NULL, NULL, | |
| &lp15_dib, DEV_DISABLE | |
| }; | |
| /* IOT routines */ | |
| int32 lp15_65 (int32 dev, int32 pulse, int32 dat) | |
| { | |
| int32 header, sb; | |
| sb = pulse & 060; /* subopcode */ | |
| if (pulse & 01) { | |
| if ((sb == 000) && (lp15_sta & (STA_ERR | STA_DON))) /* LPSF */ | |
| dat = IOT_SKP | dat; | |
| else if ((sb == 020) || (sb == 040)) { /* LPP1, LPPM */ | |
| sim_activate (&lp15_unit, lp15_unit.wait); /* activate */ | |
| header = M[(M[LPT_CA] + 1) & AMASK]; /* get first word */ | |
| M[LPT_CA] = (M[LPT_CA] + 2) & DMASK; | |
| lp15_mode = header & 1; /* mode */ | |
| if (sb == 040) /* line count */ | |
| lp15_lc = 1; | |
| else lp15_lc = (header >> 9) & 0377; | |
| if (lp15_lc == 0) | |
| lp15_lc = 256; | |
| lp15_bp = 0; /* reset buf ptr */ | |
| } | |
| else if (sb == 060) /* LPDI */ | |
| lp15_ie = 0; | |
| } | |
| if ((pulse & 02) && (sb == 040)) /* LPOS, LPRS */ | |
| dat = dat | lp15_updsta (0); | |
| if ((pulse & 04) && (sb == 040)) /* LPEI */ | |
| lp15_ie = 1; | |
| lp15_updsta (0); /* update status */ | |
| return dat; | |
| } | |
| int32 lp15_66 (int32 dev, int32 pulse, int32 dat) | |
| { | |
| if (pulse == 021) /* LPCD */ | |
| lp15_sta = lp15_sta & ~STA_DON; | |
| if (pulse == 041) /* LPCF */ | |
| lp15_sta = 0; | |
| lp15_updsta (0); /* update status */ | |
| return dat; | |
| } | |
| /* Unit service */ | |
| t_stat lp15_svc (UNIT *uptr) | |
| { | |
| int32 i, ccnt, more, w0, w1; | |
| char c[5]; | |
| static const char *ctrl[040] = { | |
| NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, | |
| NULL, NULL, "\n", "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n", | |
| "\f", "\r", NULL, NULL, | |
| "\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\n\n", "\n", | |
| "\n\n\n\n\n\n\n\n\n\n", NULL, NULL, NULL, | |
| NULL, NULL, NULL, "\r", NULL, NULL, NULL, NULL | |
| }; | |
| if ((uptr->flags & UNIT_ATT) == 0) { /* not attached? */ | |
| lp15_updsta (STA_DON | STA_ALM); /* set done, err */ | |
| return IORETURN (lp15_stopioe, SCPE_UNATT); | |
| } | |
| for (more = 1; more != 0; ) { /* loop until ctrl */ | |
| w0 = M[(M[LPT_CA] + 1) & AMASK]; /* get first word */ | |
| w1 = M[(M[LPT_CA] + 2) & AMASK]; /* get second word */ | |
| M[LPT_CA] = (M[LPT_CA] + 2) & DMASK; /* advance mem addr */ | |
| if (lp15_mode) { /* unpacked? */ | |
| c[0] = w0 & 0177; | |
| c[1] = w1 & 0177; | |
| ccnt = 2; | |
| } | |
| else { /* packed */ | |
| c[0] = (w0 >> 11) & 0177; | |
| c[1] = (w0 >> 4) & 0177; | |
| c[2] = (((w0 << 3) | (w1 >> 15))) & 0177; | |
| c[3] = (w1 >> 8) & 0177; | |
| c[4] = (w1 >> 1) & 0177; | |
| ccnt = 5; | |
| } | |
| for (i = 0; i < ccnt; i++) { /* loop through */ | |
| if ((c[i] <= 037) && ctrl[c[i]]) { /* control char? */ | |
| lp15_buf[lp15_bp] = 0; /* append nul */ | |
| fputs (lp15_buf, uptr->fileref); /* print line */ | |
| fputs (ctrl[c[i]], uptr->fileref); /* space */ | |
| uptr->pos = ftell (uptr->fileref); | |
| if (ferror (uptr->fileref)) { /* error? */ | |
| sim_perror ("LPT I/O error"); | |
| clearerr (uptr->fileref); | |
| lp15_bp = 0; | |
| lp15_updsta (STA_DON | STA_ALM); | |
| return SCPE_IOERR; | |
| } | |
| lp15_bp = more = 0; | |
| } | |
| else { | |
| if (lp15_bp < LP15_BSIZE) | |
| lp15_buf[lp15_bp++] = c[i]; | |
| else lp15_sta = lp15_sta | STA_OVF; | |
| } | |
| } | |
| } | |
| lp15_lc = lp15_lc - 1; /* decr line count */ | |
| if (lp15_lc) /* more to do? */ | |
| sim_activate (&lp15_unit, uptr->wait); | |
| else lp15_updsta (STA_DON); /* no, set done */ | |
| return SCPE_OK; | |
| } | |
| /* Update status */ | |
| int32 lp15_updsta (int32 New) | |
| { | |
| lp15_sta = (lp15_sta | New) & ~(STA_CLR | STA_ERR | STA_BUSY); | |
| if (lp15_sta & STA_EFLGS) /* update errors */ | |
| lp15_sta = lp15_sta | STA_ERR; | |
| if (sim_is_active (&lp15_unit)) | |
| lp15_sta = lp15_sta | STA_BUSY; | |
| if (lp15_ie && (lp15_sta & STA_DON)) | |
| SET_INT (LPT); | |
| else CLR_INT (LPT); /* update int */ | |
| return lp15_sta; | |
| } | |
| /* Reset routine */ | |
| t_stat lp15_reset (DEVICE *dptr) | |
| { | |
| lp15_mode = lp15_lc = lp15_bp = 0; /* clear controls */ | |
| sim_cancel (&lp15_unit); /* deactivate unit */ | |
| lp15_sta = 0; /* clear status */ | |
| lp15_ie = 1; /* enable interrupts */ | |
| lp15_updsta (0); /* update status */ | |
| return SCPE_OK; | |
| } | |
| /* IORS routine */ | |
| int32 lp15_iors (void) | |
| { | |
| return ((lp15_sta & STA_DON)? IOS_LPT: 0); | |
| } | |
| #endif |