mirror of
https://github.com/open-simh/simh.git
synced 2026-05-03 14:49:02 +00:00
Notes For V3.5-0
The source set has been extensively overhauled. For correct viewing, set Visual C++ or Emacs to have tab stops every 4 characters. 1. New Features in 3.4-1 1.1 All Ethernet devices - Added Windows user-defined adapter names (from Timothe Litt) 1.2 Interdata, SDS, HP, PDP-8, PDP-18b terminal multiplexors - Added support for SET <unit>n DISCONNECT 1.3 VAX - Added latent QDSS support - Revised autoconfigure to handle QDSS 1.4 PDP-11 - Revised autoconfigure to handle more casees 2. Bugs Fixed in 3.4-1 2.1 SCP and libraries - Trim trailing spaces on all input (for example, attach file names) - Fixed sim_sock spurious SIGPIPE error in Unix/Linux - Fixed sim_tape misallocation of TPC map array for 64b simulators 2.2 1401 - Fixed bug, CPU reset was clearing SSB through SSG 2.3 PDP-11 - Fixed bug in VH vector display routine - Fixed XU runt packet processing (found by Tim Chapman) 2.4 Interdata - Fixed bug in SHOW PAS CONN/STATS - Fixed potential integer overflow exception in divide 2.5 SDS - Fixed bug in SHOW MUX CONN/STATS 2.6 HP - Fixed bug in SHOW MUX CONN/STATS 2.7 PDP-8 - Fixed bug in SHOW TTIX CONN/STATS - Fixed bug in SET/SHOW TTOXn LOG 2.8 PDP-18b - Fixed bug in SHOW TTIX CONN/STATS - Fixed bug in SET/SHOW TTOXn LOG 2.9 Nova, Eclipse - Fixed potential integer overflow exception in divide
This commit is contained in:
Bob Supnik
committed by
Mark Pizzolato
Mark Pizzolato
parent
ec60bbf329
commit
b7c1eae41f
335
SDS/sds_lp.c
335
SDS/sds_lp.c
@@ -1,6 +1,6 @@
|
||||
/* sds_lp.c: SDS 940 line printer simulator
|
||||
|
||||
Copyright (c) 2001-2004, Robert M. Supnik
|
||||
Copyright (c) 2001-2005, 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"),
|
||||
@@ -19,40 +19,43 @@
|
||||
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
|
||||
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
|
||||
lpt line printer
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
*/
|
||||
|
||||
#include "sds_defs.h"
|
||||
|
||||
#define LPT_V_LN 9
|
||||
#define LPT_M_LN 07
|
||||
#define LPT_GETLN(x) (((x) >> LPT_V_LN) & LPT_M_LN)
|
||||
#define CHP(ch,val) ((val) & (1 << (ch))) /* CCL chan test */
|
||||
#define SET_XFR 1 /* set xfr */
|
||||
#define SET_EOR 2 /* print, set eor */
|
||||
#define SET_SPC 4 /* space */
|
||||
#define LPT_V_LN 9
|
||||
#define LPT_M_LN 07
|
||||
#define LPT_GETLN(x) (((x) >> LPT_V_LN) & LPT_M_LN)
|
||||
#define CHP(ch,val) ((val) & (1 << (ch))) /* CCL chan test */
|
||||
#define SET_XFR 1 /* set xfr */
|
||||
#define SET_EOR 2 /* print, set eor */
|
||||
#define SET_SPC 4 /* space */
|
||||
|
||||
extern char sds_to_ascii[64];
|
||||
extern uint32 xfr_req;
|
||||
extern int32 stop_invins, stop_invdev, stop_inviop;
|
||||
int32 lpt_spc = 0; /* space instr */
|
||||
int32 lpt_sta = 0; /* timeout state */
|
||||
int32 lpt_bptr = 0; /* line buf ptr */
|
||||
int32 lpt_err = 0; /* error */
|
||||
int32 lpt_ccl = 1, lpt_ccp = 0; /* cctl lnt, ptr */
|
||||
int32 lpt_ctime = 10; /* char time */
|
||||
int32 lpt_ptime = 1000; /* print time */
|
||||
int32 lpt_stime = 10000; /* space time */
|
||||
int32 lpt_stopioe = 1; /* stop on err */
|
||||
char lpt_buf[LPT_WIDTH + 1] = { 0 }; /* line buffer */
|
||||
uint8 lpt_cct[CCT_LNT] = { 0377 }; /* car ctl tape */
|
||||
DSPT lpt_tplt[] = { { 1, 0 }, { 0, 0 } }; /* template */
|
||||
int32 lpt_spc = 0; /* space instr */
|
||||
int32 lpt_sta = 0; /* timeout state */
|
||||
int32 lpt_bptr = 0; /* line buf ptr */
|
||||
int32 lpt_err = 0; /* error */
|
||||
int32 lpt_ccl = 1, lpt_ccp = 0; /* cctl lnt, ptr */
|
||||
int32 lpt_ctime = 10; /* char time */
|
||||
int32 lpt_ptime = 1000; /* print time */
|
||||
int32 lpt_stime = 10000; /* space time */
|
||||
int32 lpt_stopioe = 1; /* stop on err */
|
||||
char lpt_buf[LPT_WIDTH + 1] = { 0 }; /* line buffer */
|
||||
uint8 lpt_cct[CCT_LNT] = { 0377 }; /* car ctl tape */
|
||||
DSPT lpt_tplt[] = { /* template */
|
||||
{ 1, 0 },
|
||||
{ 0, 0 }
|
||||
};
|
||||
|
||||
DEVICE lpt_dev;
|
||||
t_stat lpt_svc (UNIT *uptr);
|
||||
@@ -63,57 +66,61 @@ t_stat lpt_status (UNIT *uptr);
|
||||
t_stat lpt_bufout (UNIT *uptr);
|
||||
void lpt_end_op (int32 fl);
|
||||
t_stat lpt (uint32 fnc, uint32 inst, uint32 *dat);
|
||||
|
||||
|
||||
/* LPT data structures
|
||||
|
||||
lpt_dev LPT device descriptor
|
||||
lpt_unit LPT unit descriptor
|
||||
lpt_reg LPT register list
|
||||
lpt_dev LPT device descriptor
|
||||
lpt_unit LPT unit descriptor
|
||||
lpt_reg LPT register list
|
||||
*/
|
||||
|
||||
DIB lpt_dib = { CHAN_W, DEV_LPT, XFR_LPT, lpt_tplt, &lpt };
|
||||
|
||||
UNIT lpt_unit = {
|
||||
UDATA (&lpt_svc, UNIT_SEQ+UNIT_ATTABLE, 0) };
|
||||
UDATA (&lpt_svc, UNIT_SEQ+UNIT_ATTABLE, 0)
|
||||
};
|
||||
|
||||
REG lpt_reg[] = {
|
||||
{ BRDATA (BUF, lpt_buf, 8, 8, LPT_WIDTH) },
|
||||
{ DRDATA (BPTR, lpt_bptr, 8), PV_LEFT },
|
||||
{ FLDATA (XFR, xfr_req, XFR_V_LPT) },
|
||||
{ FLDATA (ERR, lpt_err, 0) },
|
||||
{ ORDATA (STA, lpt_sta, 3) },
|
||||
{ BRDATA (CCT, lpt_cct, 8, 8, CCT_LNT) },
|
||||
{ DRDATA (CCTP, lpt_ccp, 8), PV_LEFT },
|
||||
{ DRDATA (CCTL, lpt_ccl, 8), REG_RO + PV_LEFT },
|
||||
{ ORDATA (SPCINST, lpt_spc, 24) },
|
||||
{ DRDATA (POS, lpt_unit.pos, T_ADDR_W), PV_LEFT },
|
||||
{ DRDATA (CTIME, lpt_ctime, 24), REG_NZ + PV_LEFT },
|
||||
{ DRDATA (PTIME, lpt_ptime, 24), REG_NZ + PV_LEFT },
|
||||
{ DRDATA (STIME, lpt_stime, 24), REG_NZ + PV_LEFT },
|
||||
{ FLDATA (STOP_IOE, lpt_stopioe, 0) },
|
||||
{ NULL } };
|
||||
{ BRDATA (BUF, lpt_buf, 8, 8, LPT_WIDTH) },
|
||||
{ DRDATA (BPTR, lpt_bptr, 8), PV_LEFT },
|
||||
{ FLDATA (XFR, xfr_req, XFR_V_LPT) },
|
||||
{ FLDATA (ERR, lpt_err, 0) },
|
||||
{ ORDATA (STA, lpt_sta, 3) },
|
||||
{ BRDATA (CCT, lpt_cct, 8, 8, CCT_LNT) },
|
||||
{ DRDATA (CCTP, lpt_ccp, 8), PV_LEFT },
|
||||
{ DRDATA (CCTL, lpt_ccl, 8), REG_RO + PV_LEFT },
|
||||
{ ORDATA (SPCINST, lpt_spc, 24) },
|
||||
{ DRDATA (POS, lpt_unit.pos, T_ADDR_W), PV_LEFT },
|
||||
{ DRDATA (CTIME, lpt_ctime, 24), REG_NZ + PV_LEFT },
|
||||
{ DRDATA (PTIME, lpt_ptime, 24), REG_NZ + PV_LEFT },
|
||||
{ DRDATA (STIME, lpt_stime, 24), REG_NZ + PV_LEFT },
|
||||
{ FLDATA (STOP_IOE, lpt_stopioe, 0) },
|
||||
{ NULL }
|
||||
};
|
||||
|
||||
MTAB lpt_mod[] = {
|
||||
{ MTAB_XTD|MTAB_VDV, 0, "CHANNEL", "CHANNEL",
|
||||
&set_chan, &show_chan, NULL },
|
||||
{ 0 } };
|
||||
{ MTAB_XTD|MTAB_VDV, 0, "CHANNEL", "CHANNEL",
|
||||
&set_chan, &show_chan, NULL },
|
||||
{ 0 }
|
||||
};
|
||||
|
||||
DEVICE lpt_dev = {
|
||||
"LPT", &lpt_unit, lpt_reg, lpt_mod,
|
||||
1, 10, 31, 1, 8, 7,
|
||||
NULL, NULL, &lpt_reset,
|
||||
NULL, &lpt_attach, NULL,
|
||||
&lpt_dib, DEV_DISABLE };
|
||||
|
||||
"LPT", &lpt_unit, lpt_reg, lpt_mod,
|
||||
1, 10, 31, 1, 8, 7,
|
||||
NULL, NULL, &lpt_reset,
|
||||
NULL, &lpt_attach, NULL,
|
||||
&lpt_dib, DEV_DISABLE
|
||||
};
|
||||
|
||||
/* Line printer routine
|
||||
|
||||
conn - inst = EOM0, dat = NULL
|
||||
eom1 - inst = EOM1, dat = NULL
|
||||
sks - inst = SKS, dat = ptr to result
|
||||
disc - inst = device number, dat = NULL
|
||||
wreor - inst = device number, dat = NULL
|
||||
read - inst = device number, dat = ptr to data
|
||||
write - inst = device number, dat = ptr to result
|
||||
conn - inst = EOM0, dat = NULL
|
||||
eom1 - inst = EOM1, dat = NULL
|
||||
sks - inst = SKS, dat = ptr to result
|
||||
disc - inst = device number, dat = NULL
|
||||
wreor - inst = device number, dat = NULL
|
||||
read - inst = device number, dat = ptr to data
|
||||
write - inst = device number, dat = ptr to result
|
||||
|
||||
The line printer is an asynchronous output device, that is, it
|
||||
can never set the channel rate error flag.
|
||||
@@ -124,81 +131,89 @@ t_stat lpt (uint32 fnc, uint32 inst, uint32 *dat)
|
||||
int32 i, t, new_ch;
|
||||
char asc;
|
||||
|
||||
switch (fnc) { /* case function */
|
||||
case IO_CONN: /* connect */
|
||||
new_ch = I_GETEOCH (inst); /* get new chan */
|
||||
if (new_ch != lpt_dib.chan) return SCPE_IERR; /* wrong chan? */
|
||||
for (i = 0; i < LPT_WIDTH; i++) lpt_buf[i] = 0; /* clr buffer */
|
||||
lpt_bptr = 0; /* clr buf ptr */
|
||||
lpt_err = 0; /* err = 0 */
|
||||
xfr_req = xfr_req & ~XFR_LPT; /* clr xfr flag */
|
||||
lpt_sta = lpt_sta | SET_XFR; /* need xfr */
|
||||
sim_activate (&lpt_unit, lpt_ctime); /* start timer */
|
||||
break;
|
||||
switch (fnc) { /* case function */
|
||||
|
||||
case IO_EOM1: /* EOM mode 1 */
|
||||
new_ch = I_GETEOCH (inst); /* get new chan */
|
||||
if (new_ch != lpt_dib.chan) CRETIOP; /* wrong chan? */
|
||||
if (inst & 0400) { /* space? */
|
||||
lpt_spc = inst; /* save instr */
|
||||
lpt_sta = lpt_sta | SET_SPC; /* need space */
|
||||
sim_cancel (&lpt_unit); /* cancel timer */
|
||||
sim_activate (&lpt_unit, lpt_stime); } /* start timer */
|
||||
break;
|
||||
case IO_CONN: /* connect */
|
||||
new_ch = I_GETEOCH (inst); /* get new chan */
|
||||
if (new_ch != lpt_dib.chan) return SCPE_IERR; /* wrong chan? */
|
||||
for (i = 0; i < LPT_WIDTH; i++) lpt_buf[i] = 0; /* clr buffer */
|
||||
lpt_bptr = 0; /* clr buf ptr */
|
||||
lpt_err = 0; /* err = 0 */
|
||||
xfr_req = xfr_req & ~XFR_LPT; /* clr xfr flag */
|
||||
lpt_sta = lpt_sta | SET_XFR; /* need xfr */
|
||||
sim_activate (&lpt_unit, lpt_ctime); /* start timer */
|
||||
break;
|
||||
|
||||
case IO_DISC: /* disconnect */
|
||||
lpt_end_op (0); /* normal term */
|
||||
return lpt_bufout (&lpt_unit); /* dump output */
|
||||
case IO_EOM1: /* EOM mode 1 */
|
||||
new_ch = I_GETEOCH (inst); /* get new chan */
|
||||
if (new_ch != lpt_dib.chan) CRETIOP; /* wrong chan? */
|
||||
if (inst & 0400) { /* space? */
|
||||
lpt_spc = inst; /* save instr */
|
||||
lpt_sta = lpt_sta | SET_SPC; /* need space */
|
||||
sim_cancel (&lpt_unit); /* cancel timer */
|
||||
sim_activate (&lpt_unit, lpt_stime); /* start timer */
|
||||
}
|
||||
break;
|
||||
|
||||
case IO_WREOR: /* write eor */
|
||||
lpt_sta = (lpt_sta | SET_EOR) & ~SET_XFR; /* need eor */
|
||||
sim_activate (&lpt_unit, lpt_ptime); /* start timer */
|
||||
break;
|
||||
case IO_DISC: /* disconnect */
|
||||
lpt_end_op (0); /* normal term */
|
||||
return lpt_bufout (&lpt_unit); /* dump output */
|
||||
|
||||
case IO_SKS: /* SKS */
|
||||
new_ch = I_GETSKCH (inst); /* sks chan */
|
||||
if (new_ch != lpt_dib.chan) return SCPE_IERR; /* wrong chan? */
|
||||
t = I_GETSKCND (inst); /* sks cond */
|
||||
if (((t == 020) && (!CHP (7, lpt_cct[lpt_ccp]))) || /* 14062: !ch 7 */
|
||||
((t == 010) && (lpt_unit.flags & UNIT_ATT)) || /* 12062: !online */
|
||||
(t == 004) && !lpt_err) *dat = 1; /* 11062: !err */
|
||||
break;
|
||||
case IO_WREOR: /* write eor */
|
||||
lpt_sta = (lpt_sta | SET_EOR) & ~SET_XFR; /* need eor */
|
||||
sim_activate (&lpt_unit, lpt_ptime); /* start timer */
|
||||
break;
|
||||
|
||||
case IO_WRITE: /* write */
|
||||
asc = sds_to_ascii[(*dat) & 077]; /* convert data */
|
||||
xfr_req = xfr_req & ~XFR_LPT; /* clr xfr flag */
|
||||
if (lpt_bptr < LPT_WIDTH) lpt_buf[lpt_bptr++] = asc;/* store data */
|
||||
lpt_sta = lpt_sta | SET_XFR; /* need xfr */
|
||||
sim_activate (&lpt_unit, lpt_ctime); /* start ch timer */
|
||||
break;
|
||||
case IO_SKS: /* SKS */
|
||||
new_ch = I_GETSKCH (inst); /* sks chan */
|
||||
if (new_ch != lpt_dib.chan) return SCPE_IERR; /* wrong chan? */
|
||||
t = I_GETSKCND (inst); /* sks cond */
|
||||
if (((t == 020) && (!CHP (7, lpt_cct[lpt_ccp]))) || /* 14062: !ch 7 */
|
||||
((t == 010) && (lpt_unit.flags & UNIT_ATT)) || /* 12062: !online */
|
||||
(t == 004) && !lpt_err) *dat = 1; /* 11062: !err */
|
||||
break;
|
||||
|
||||
case IO_WRITE: /* write */
|
||||
asc = sds_to_ascii[(*dat) & 077]; /* convert data */
|
||||
xfr_req = xfr_req & ~XFR_LPT; /* clr xfr flag */
|
||||
if (lpt_bptr < LPT_WIDTH) lpt_buf[lpt_bptr++] = asc;/* store data */
|
||||
lpt_sta = lpt_sta | SET_XFR; /* need xfr */
|
||||
sim_activate (&lpt_unit, lpt_ctime); /* start ch timer */
|
||||
break;
|
||||
|
||||
default:
|
||||
CRETINS;
|
||||
}
|
||||
|
||||
default:
|
||||
CRETINS; }
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
|
||||
/* Unit service and write */
|
||||
|
||||
t_stat lpt_svc (UNIT *uptr)
|
||||
{
|
||||
t_stat r = SCPE_OK;
|
||||
static const char *lpt_stabl[] = {
|
||||
"\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" };
|
||||
"\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"
|
||||
};
|
||||
|
||||
if (lpt_sta & SET_XFR) chan_set_ordy (lpt_dib.chan); /* need lpt xfr? */
|
||||
if (lpt_sta & SET_EOR) { /* printing? */
|
||||
chan_set_flag (lpt_dib.chan, CHF_EOR); /* set eor flg */
|
||||
r = lpt_bufout (uptr); } /* output buf */
|
||||
if (lpt_sta & SET_SPC) { /* spacing? */
|
||||
if (uptr->flags & UNIT_ATT) { /* attached? */
|
||||
int32 ln = LPT_GETLN (lpt_spc); /* get lines, ch */
|
||||
if (lpt_spc & 0200) /* n lines? */
|
||||
fputs (lpt_stabl[ln], uptr->fileref); /* upspace */
|
||||
else lpt_crctl (ln); } /* carriage ctl */
|
||||
r = lpt_status (uptr); } /* update status */
|
||||
lpt_sta = 0; /* clear state */
|
||||
if (lpt_sta & SET_XFR) chan_set_ordy (lpt_dib.chan); /* need lpt xfr? */
|
||||
if (lpt_sta & SET_EOR) { /* printing? */
|
||||
chan_set_flag (lpt_dib.chan, CHF_EOR); /* set eor flg */
|
||||
r = lpt_bufout (uptr); /* output buf */
|
||||
}
|
||||
if (lpt_sta & SET_SPC) { /* spacing? */
|
||||
if (uptr->flags & UNIT_ATT) { /* attached? */
|
||||
int32 ln = LPT_GETLN (lpt_spc); /* get lines, ch */
|
||||
if (lpt_spc & 0200) /* n lines? */
|
||||
fputs (lpt_stabl[ln], uptr->fileref); /* upspace */
|
||||
else lpt_crctl (ln); /* carriage ctl */
|
||||
}
|
||||
r = lpt_status (uptr); /* update status */
|
||||
}
|
||||
lpt_sta = 0; /* clear state */
|
||||
return r;
|
||||
}
|
||||
|
||||
@@ -208,28 +223,32 @@ t_stat lpt_bufout (UNIT *uptr)
|
||||
{
|
||||
int32 i;
|
||||
|
||||
if ((uptr->flags & UNIT_ATT) && lpt_bptr) { /* attached? */
|
||||
if ((uptr->flags & UNIT_ATT) && lpt_bptr) { /* attached? */
|
||||
for (i = LPT_WIDTH - 1; (i >= 0) && (lpt_buf[i] == ' '); i--)
|
||||
lpt_buf[i] = 0; /* trim line */
|
||||
fputs (lpt_buf, uptr->fileref); /* write line */
|
||||
lpt_bptr = 0; }
|
||||
return lpt_status (uptr); /* return status */
|
||||
lpt_buf[i] = 0; /* trim line */
|
||||
fputs (lpt_buf, uptr->fileref); /* write line */
|
||||
lpt_bptr = 0;
|
||||
}
|
||||
return lpt_status (uptr); /* return status */
|
||||
}
|
||||
|
||||
/* Status update after I/O */
|
||||
|
||||
t_stat lpt_status (UNIT *uptr)
|
||||
{
|
||||
if (uptr->flags & UNIT_ATT) { /* attached? */
|
||||
uptr->pos = ftell (uptr->fileref); /* update position */
|
||||
if (ferror (uptr->fileref)) { /* I/O error? */
|
||||
lpt_end_op (CHF_EOR | CHF_ERR); /* set err, disc */
|
||||
perror ("LPT I/O error"); /* print msg */
|
||||
clearerr (uptr->fileref);
|
||||
return SCPE_IOERR; } } /* ret error */
|
||||
if (uptr->flags & UNIT_ATT) { /* attached? */
|
||||
uptr->pos = ftell (uptr->fileref); /* update position */
|
||||
if (ferror (uptr->fileref)) { /* I/O error? */
|
||||
lpt_end_op (CHF_EOR | CHF_ERR); /* set err, disc */
|
||||
perror ("LPT I/O error"); /* print msg */
|
||||
clearerr (uptr->fileref);
|
||||
return SCPE_IOERR; /* ret error */
|
||||
}
|
||||
}
|
||||
else {
|
||||
lpt_end_op (CHF_EOR | CHF_ERR); /* set err, disc */
|
||||
CRETIOE (lpt_stopioe, SCPE_UNATT); } /* ret error */
|
||||
lpt_end_op (CHF_EOR | CHF_ERR); /* set err, disc */
|
||||
CRETIOE (lpt_stopioe, SCPE_UNATT); /* ret error */
|
||||
}
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
@@ -237,12 +256,13 @@ return SCPE_OK;
|
||||
|
||||
void lpt_end_op (int32 fl)
|
||||
{
|
||||
if (fl) chan_set_flag (lpt_dib.chan, fl); /* set flags */
|
||||
xfr_req = xfr_req & ~XFR_LPT; /* clear xfr */
|
||||
sim_cancel (&lpt_unit); /* stop */
|
||||
if (fl & CHF_ERR) { /* error? */
|
||||
chan_disc (lpt_dib.chan); /* disconnect */
|
||||
lpt_err = 1; } /* set lpt err */
|
||||
if (fl) chan_set_flag (lpt_dib.chan, fl); /* set flags */
|
||||
xfr_req = xfr_req & ~XFR_LPT; /* clear xfr */
|
||||
sim_cancel (&lpt_unit); /* stop */
|
||||
if (fl & CHF_ERR) { /* error? */
|
||||
chan_disc (lpt_dib.chan); /* disconnect */
|
||||
lpt_err = 1; /* set lpt err */
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
@@ -252,27 +272,30 @@ t_stat lpt_crctl (int32 ch)
|
||||
{
|
||||
int32 i, j;
|
||||
|
||||
if ((ch == 1) && CHP (ch, lpt_cct[0])) { /* top of form? */
|
||||
fputs ("\f\n", lpt_unit.fileref); /* ff + nl */
|
||||
lpt_ccp = 0; /* top of page */
|
||||
return SCPE_OK; }
|
||||
for (i = 1; i < lpt_ccl + 1; i++) { /* sweep thru cct */
|
||||
lpt_ccp = (lpt_ccp + 1) %lpt_ccl; /* adv pointer */
|
||||
if (CHP (ch, lpt_cct[lpt_ccp])) { /* chan punched? */
|
||||
for (j = 0; j < i; j++) fputc ('\n', lpt_unit.fileref);
|
||||
return SCPE_OK; } }
|
||||
return STOP_CCT; /* runaway channel */
|
||||
if ((ch == 1) && CHP (ch, lpt_cct[0])) { /* top of form? */
|
||||
fputs ("\f\n", lpt_unit.fileref); /* ff + nl */
|
||||
lpt_ccp = 0; /* top of page */
|
||||
return SCPE_OK;
|
||||
}
|
||||
for (i = 1; i < lpt_ccl + 1; i++) { /* sweep thru cct */
|
||||
lpt_ccp = (lpt_ccp + 1) %lpt_ccl; /* adv pointer */
|
||||
if (CHP (ch, lpt_cct[lpt_ccp])) { /* chan punched? */
|
||||
for (j = 0; j < i; j++) fputc ('\n', lpt_unit.fileref);
|
||||
return SCPE_OK;
|
||||
}
|
||||
}
|
||||
return STOP_CCT; /* runaway channel */
|
||||
}
|
||||
|
||||
|
||||
/* Reset routine */
|
||||
|
||||
t_stat lpt_reset (DEVICE *dptr)
|
||||
{
|
||||
chan_disc (lpt_dib.chan); /* disconnect */
|
||||
lpt_spc = 0; /* clr state */
|
||||
chan_disc (lpt_dib.chan); /* disconnect */
|
||||
lpt_spc = 0; /* clr state */
|
||||
lpt_sta = 0;
|
||||
xfr_req = xfr_req & ~XFR_LPT; /* clr xfr flag */
|
||||
sim_cancel (&lpt_unit); /* deactivate */
|
||||
xfr_req = xfr_req & ~XFR_LPT; /* clr xfr flag */
|
||||
sim_cancel (&lpt_unit); /* deactivate */
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
@@ -280,6 +303,6 @@ return SCPE_OK;
|
||||
|
||||
t_stat lpt_attach (UNIT *uptr, char *cptr)
|
||||
{
|
||||
lpt_ccp = 0; /* top of form */
|
||||
lpt_ccp = 0; /* top of form */
|
||||
return attach_unit (uptr, cptr);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user