folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

PDP8: Fix to allow character read rate to exceed the clock tick rate. Solves issue #86

Browse source
This commit is contained in:
Mark Pizzolato 2013-10-19 11:41:17 -07:00
parent db964d126c
commit c8ae76cb65
1 changed files with 27 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
PDP8/pdp8_ttx.c
View file

@ -119,12 +119,30 @@ MTAB ttix_mod[] = {
{ 0 } { 0 }
}; };
#define DBG_XMT TMXR_DBG_XMT /* display Transmitted Data */
#define DBG_RCV TMXR_DBG_RCV /* display Received Data */
#define DBG_MDM TMXR_DBG_MDM /* display Modem Signals */
#define DBG_CON TMXR_DBG_CON /* display connection activities */
#define DBG_TRC TMXR_DBG_TRC /* display trace routine calls */
#define DBG_ASY TMXR_DBG_ASY /* display Asynchronous Activities */
DEBTAB ttx_debug[] = {
{"XMT", DBG_XMT},
{"RCV", DBG_RCV},
{"MDM", DBG_MDM},
{"CON", DBG_CON},
{"TRC", DBG_TRC},
{"ASY", DBG_ASY},
{0}
};
DEVICE ttix_dev = { DEVICE ttix_dev = {
"TTIX", &ttix_unit, ttix_reg, ttix_mod, "TTIX", &ttix_unit, ttix_reg, ttix_mod,
1, 10, 31, 1, 8, 8, 1, 10, 31, 1, 8, 8,
&tmxr_ex, &tmxr_dep, &ttix_reset, &tmxr_ex, &tmxr_dep, &ttix_reset,
NULL, &ttx_attach, &ttx_detach, NULL, &ttx_attach, &ttx_detach,
&ttix_dib, DEV_MUX | DEV_DISABLE &ttix_dib, DEV_DEBUG | DEV_MUX | DEV_DISABLE,
0, ttx_debug
}; };
/* TTOx data structures /* TTOx data structures
@ -170,7 +188,8 @@ DEVICE ttox_dev = {
4, 10, 31, 1, 8, 8, 4, 10, 31, 1, 8, 8,
NULL, NULL, &ttox_reset, NULL, NULL, &ttox_reset,
NULL, NULL, NULL, NULL, NULL, NULL,
NULL, DEV_DISABLE NULL, DEV_DISABLE | DEV_DEBUG,
0, ttx_debug
}; };
/* Terminal input: IOT routine */ /* Terminal input: IOT routine */
@ -181,6 +200,7 @@ int32 pulse = inst & 07; /* IOT pulse */
int32 ln = TTX_GETLN (inst); /* line # */ int32 ln = TTX_GETLN (inst); /* line # */
int32 itti = (INT_TTI1 << ln); /* rx intr */ int32 itti = (INT_TTI1 << ln); /* rx intr */
int32 itto = (INT_TTO1 << ln); /* tx intr */ int32 itto = (INT_TTO1 << ln); /* tx intr */
int32 itti_data;
switch (pulse) { /* case IR<9:11> */ switch (pulse) { /* case IR<9:11> */
@ -195,10 +215,11 @@ switch (pulse) { /* case IR<9:11> */
case 2: /* KCC */ case 2: /* KCC */
dev_done = dev_done & ~itti; /* clear flag */ dev_done = dev_done & ~itti; /* clear flag */
int_req = int_req & ~itti; int_req = int_req & ~itti;
sim_activate_abs (&ttix_unit, ttix_unit.wait); /* check soon for more input */
return 0; /* clear AC */ return 0; /* clear AC */
case 4: /* KRS */ case 4: /* KRS */
return (AC | ttix_buf[ln]); /* return buf */ return ttix_buf[ln]; /* return buf */
case 5: /* KIE */ case 5: /* KIE */
if (AC & 1) if (AC & 1)
@ -210,7 +231,9 @@ switch (pulse) { /* case IR<9:11> */
case 6: /* KRB */ case 6: /* KRB */
dev_done = dev_done & ~itti; /* clear flag */ dev_done = dev_done & ~itti; /* clear flag */
int_req = int_req & ~itti; int_req = int_req & ~itti;
return ttix_buf[ln]; /* return buf */ itti_data = ttix_buf[ln]; /* return buf */
sim_activate_abs (&ttix_unit, ttix_unit.wait); /* check soon for more input */
return itti_data;
default: default:
return (stop_inst << IOT_V_REASON) + AC; return (stop_inst << IOT_V_REASON) + AC;