mirror of
https://github.com/simh/simh.git
synced 2026-05-05 15:33:34 +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
311
NOVA/nova_tt1.c
311
NOVA/nova_tt1.c
@@ -20,38 +20,38 @@
|
||||
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.
|
||||
|
||||
tti1 second terminal input
|
||||
tto1 second terminal output
|
||||
tti1 second terminal input
|
||||
tto1 second terminal output
|
||||
|
||||
09-May-03 RMS Added network device flag
|
||||
05-Jan-03 RMS Fixed calling sequence for setmod
|
||||
03-Oct-02 RMS Added DIBs
|
||||
22-Aug-02 RMS Updated for changes in sim_tmxr
|
||||
30-May-02 RMS Widened POS to 32b
|
||||
06-Jan-02 RMS Revised enable/disable support
|
||||
30-Dec-01 RMS Added show statistics, set disconnect
|
||||
30-Nov-01 RMS Added extended SET/SHOW support
|
||||
17-Sep-01 RMS Changed to use terminal multiplexor library
|
||||
07-Sep-01 RMS Moved function prototypes
|
||||
31-May-01 RMS Added multiconsole support
|
||||
26-Apr-01 RMS Added device enable/disable support
|
||||
09-May-03 RMS Added network device flag
|
||||
05-Jan-03 RMS Fixed calling sequence for setmod
|
||||
03-Oct-02 RMS Added DIBs
|
||||
22-Aug-02 RMS Updated for changes in sim_tmxr
|
||||
30-May-02 RMS Widened POS to 32b
|
||||
06-Jan-02 RMS Revised enable/disable support
|
||||
30-Dec-01 RMS Added show statistics, set disconnect
|
||||
30-Nov-01 RMS Added extended SET/SHOW support
|
||||
17-Sep-01 RMS Changed to use terminal multiplexor library
|
||||
07-Sep-01 RMS Moved function prototypes
|
||||
31-May-01 RMS Added multiconsole support
|
||||
26-Apr-01 RMS Added device enable/disable support
|
||||
*/
|
||||
|
||||
#include "nova_defs.h"
|
||||
#include "sim_sock.h"
|
||||
#include "sim_tmxr.h"
|
||||
|
||||
#define UNIT_V_DASHER (UNIT_V_UF + 0) /* Dasher mode */
|
||||
#define UNIT_DASHER (1 << UNIT_V_DASHER)
|
||||
#define UNIT_V_DASHER (UNIT_V_UF + 0) /* Dasher mode */
|
||||
#define UNIT_DASHER (1 << UNIT_V_DASHER)
|
||||
|
||||
extern int32 int_req, dev_busy, dev_done, dev_disable;
|
||||
extern int32 tmxr_poll; /* calibrated poll */
|
||||
TMLN tt1_ldsc = { 0 }; /* line descriptors */
|
||||
TMXR tt_desc = { 1, 0, 0, &tt1_ldsc }; /* mux descriptor */
|
||||
extern int32 tmxr_poll; /* calibrated poll */
|
||||
TMLN tt1_ldsc = { 0 }; /* line descriptors */
|
||||
TMXR tt_desc = { 1, 0, 0, &tt1_ldsc }; /* mux descriptor */
|
||||
|
||||
DEVICE tti1_dev, tto1_dev;
|
||||
int32 tti1 (int32 pulse, int32 code, int32 AC);
|
||||
@@ -66,13 +66,13 @@ t_stat tti1_detach (UNIT *uptr);
|
||||
t_stat tti1_summ (FILE *st, UNIT *uptr, int32 val, void *desc);
|
||||
t_stat tti1_show (FILE *st, UNIT *uptr, int32 val, void *desc);
|
||||
void ttx1_enbdis (int32 dis);
|
||||
|
||||
|
||||
/* TTI1 data structures
|
||||
|
||||
tti1_dev TTI1 device descriptor
|
||||
tti1_unit TTI1 unit descriptor
|
||||
tti1_reg TTI1 register list
|
||||
ttx1_mod TTI1/TTO1 modifiers list
|
||||
tti1_dev TTI1 device descriptor
|
||||
tti1_unit TTI1 unit descriptor
|
||||
tti1_reg TTI1 register list
|
||||
ttx1_mod TTI1/TTO1 modifiers list
|
||||
*/
|
||||
|
||||
DIB tti1_dib = { DEV_TTI1, INT_TTI1, PI_TTI1, &tti1 };
|
||||
@@ -80,39 +80,42 @@ DIB tti1_dib = { DEV_TTI1, INT_TTI1, PI_TTI1, &tti1 };
|
||||
UNIT tti1_unit = { UDATA (&tti1_svc, UNIT_ATTABLE, 0), KBD_POLL_WAIT };
|
||||
|
||||
REG tti1_reg[] = {
|
||||
{ ORDATA (BUF, tti1_unit.buf, 8) },
|
||||
{ FLDATA (BUSY, dev_busy, INT_V_TTI1) },
|
||||
{ FLDATA (DONE, dev_done, INT_V_TTI1) },
|
||||
{ FLDATA (DISABLE, dev_disable, INT_V_TTI1) },
|
||||
{ FLDATA (INT, int_req, INT_V_TTI1) },
|
||||
{ DRDATA (POS, tt1_ldsc.rxcnt, 32), PV_LEFT },
|
||||
{ DRDATA (TIME, tti1_unit.wait, 24), REG_NZ + PV_LEFT },
|
||||
{ NULL } };
|
||||
{ ORDATA (BUF, tti1_unit.buf, 8) },
|
||||
{ FLDATA (BUSY, dev_busy, INT_V_TTI1) },
|
||||
{ FLDATA (DONE, dev_done, INT_V_TTI1) },
|
||||
{ FLDATA (DISABLE, dev_disable, INT_V_TTI1) },
|
||||
{ FLDATA (INT, int_req, INT_V_TTI1) },
|
||||
{ DRDATA (POS, tt1_ldsc.rxcnt, 32), PV_LEFT },
|
||||
{ DRDATA (TIME, tti1_unit.wait, 24), REG_NZ + PV_LEFT },
|
||||
{ NULL }
|
||||
};
|
||||
|
||||
MTAB tti1_mod[] = {
|
||||
{ UNIT_DASHER, 0, "ANSI", "ANSI", &ttx1_setmod },
|
||||
{ UNIT_DASHER, UNIT_DASHER, "Dasher", "DASHER", &ttx1_setmod },
|
||||
{ UNIT_ATT, UNIT_ATT, "summary", NULL, NULL, &tti1_summ },
|
||||
{ MTAB_XTD | MTAB_VDV, 0, NULL, "DISCONNECT",
|
||||
&tmxr_dscln, NULL, &tt_desc },
|
||||
{ MTAB_XTD | MTAB_VDV | MTAB_NMO, 1, "CONNECTIONS", NULL,
|
||||
NULL, &tti1_show, NULL },
|
||||
{ MTAB_XTD | MTAB_VDV | MTAB_NMO, 0, "STATISTICS", NULL,
|
||||
NULL, &tti1_show, NULL },
|
||||
{ 0 } };
|
||||
{ UNIT_DASHER, 0, "ANSI", "ANSI", &ttx1_setmod },
|
||||
{ UNIT_DASHER, UNIT_DASHER, "Dasher", "DASHER", &ttx1_setmod },
|
||||
{ UNIT_ATT, UNIT_ATT, "summary", NULL, NULL, &tti1_summ },
|
||||
{ MTAB_XTD | MTAB_VDV, 0, NULL, "DISCONNECT",
|
||||
&tmxr_dscln, NULL, &tt_desc },
|
||||
{ MTAB_XTD | MTAB_VDV | MTAB_NMO, 1, "CONNECTIONS", NULL,
|
||||
NULL, &tti1_show, NULL },
|
||||
{ MTAB_XTD | MTAB_VDV | MTAB_NMO, 0, "STATISTICS", NULL,
|
||||
NULL, &tti1_show, NULL },
|
||||
{ 0 }
|
||||
};
|
||||
|
||||
DEVICE tti1_dev = {
|
||||
"TTI1", &tti1_unit, tti1_reg, tti1_mod,
|
||||
1, 10, 31, 1, 8, 8,
|
||||
&tmxr_ex, &tmxr_dep, &tti1_reset,
|
||||
NULL, &tti1_attach, &tti1_detach,
|
||||
&tti1_dib, DEV_NET | DEV_DISABLE };
|
||||
"TTI1", &tti1_unit, tti1_reg, tti1_mod,
|
||||
1, 10, 31, 1, 8, 8,
|
||||
&tmxr_ex, &tmxr_dep, &tti1_reset,
|
||||
NULL, &tti1_attach, &tti1_detach,
|
||||
&tti1_dib, DEV_NET | DEV_DISABLE
|
||||
};
|
||||
|
||||
/* TTO1 data structures
|
||||
|
||||
tto1_dev TTO1 device descriptor
|
||||
tto1_unit TTO1 unit descriptor
|
||||
tto1_reg TTO1 register list
|
||||
tto1_dev TTO1 device descriptor
|
||||
tto1_unit TTO1 unit descriptor
|
||||
tto1_reg TTO1 register list
|
||||
*/
|
||||
|
||||
DIB tto1_dib = { DEV_TTO1, INT_TTO1, PI_TTO1, &tto1 };
|
||||
@@ -120,27 +123,30 @@ DIB tto1_dib = { DEV_TTO1, INT_TTO1, PI_TTO1, &tto1 };
|
||||
UNIT tto1_unit = { UDATA (&tto1_svc, 0, 0), SERIAL_OUT_WAIT };
|
||||
|
||||
REG tto1_reg[] = {
|
||||
{ ORDATA (BUF, tto1_unit.buf, 8) },
|
||||
{ FLDATA (BUSY, dev_busy, INT_V_TTO1) },
|
||||
{ FLDATA (DONE, dev_done, INT_V_TTO1) },
|
||||
{ FLDATA (DISABLE, dev_disable, INT_V_TTO1) },
|
||||
{ FLDATA (INT, int_req, INT_V_TTO1) },
|
||||
{ DRDATA (POS, tt1_ldsc.txcnt, 32), PV_LEFT },
|
||||
{ DRDATA (TIME, tto1_unit.wait, 24), PV_LEFT },
|
||||
{ NULL } };
|
||||
{ ORDATA (BUF, tto1_unit.buf, 8) },
|
||||
{ FLDATA (BUSY, dev_busy, INT_V_TTO1) },
|
||||
{ FLDATA (DONE, dev_done, INT_V_TTO1) },
|
||||
{ FLDATA (DISABLE, dev_disable, INT_V_TTO1) },
|
||||
{ FLDATA (INT, int_req, INT_V_TTO1) },
|
||||
{ DRDATA (POS, tt1_ldsc.txcnt, 32), PV_LEFT },
|
||||
{ DRDATA (TIME, tto1_unit.wait, 24), PV_LEFT },
|
||||
{ NULL }
|
||||
};
|
||||
|
||||
MTAB tto1_mod[] = {
|
||||
{ UNIT_DASHER, 0, "ANSI", "ANSI", &ttx1_setmod },
|
||||
{ UNIT_DASHER, UNIT_DASHER, "Dasher", "DASHER", &ttx1_setmod },
|
||||
{ 0 } };
|
||||
{ UNIT_DASHER, 0, "ANSI", "ANSI", &ttx1_setmod },
|
||||
{ UNIT_DASHER, UNIT_DASHER, "Dasher", "DASHER", &ttx1_setmod },
|
||||
{ 0 }
|
||||
};
|
||||
|
||||
DEVICE tto1_dev = {
|
||||
"TTO1", &tto1_unit, tto1_reg, tto1_mod,
|
||||
1, 10, 31, 1, 8, 8,
|
||||
NULL, NULL, &tto1_reset,
|
||||
NULL, NULL, NULL,
|
||||
&tto1_dib, DEV_DISABLE };
|
||||
|
||||
"TTO1", &tto1_unit, tto1_reg, tto1_mod,
|
||||
1, 10, 31, 1, 8, 8,
|
||||
NULL, NULL, &tto1_reset,
|
||||
NULL, NULL, NULL,
|
||||
&tto1_dib, DEV_DISABLE
|
||||
};
|
||||
|
||||
/* Terminal input: IOT routine */
|
||||
|
||||
int32 tti1 (int32 pulse, int32 code, int32 AC)
|
||||
@@ -148,17 +154,21 @@ int32 tti1 (int32 pulse, int32 code, int32 AC)
|
||||
int32 iodata;
|
||||
|
||||
iodata = (code == ioDIA)? tti1_unit.buf & 0377: 0;
|
||||
switch (pulse) { /* decode IR<8:9> */
|
||||
case iopS: /* start */
|
||||
dev_busy = dev_busy | INT_TTI1; /* set busy */
|
||||
dev_done = dev_done & ~INT_TTI1; /* clear done, int */
|
||||
int_req = int_req & ~INT_TTI1;
|
||||
break;
|
||||
case iopC: /* clear */
|
||||
dev_busy = dev_busy & ~INT_TTI1; /* clear busy */
|
||||
dev_done = dev_done & ~INT_TTI1; /* clear done, int */
|
||||
int_req = int_req & ~INT_TTI1;
|
||||
break; } /* end switch */
|
||||
switch (pulse) { /* decode IR<8:9> */
|
||||
|
||||
case iopS: /* start */
|
||||
dev_busy = dev_busy | INT_TTI1; /* set busy */
|
||||
dev_done = dev_done & ~INT_TTI1; /* clear done, int */
|
||||
int_req = int_req & ~INT_TTI1;
|
||||
break;
|
||||
|
||||
case iopC: /* clear */
|
||||
dev_busy = dev_busy & ~INT_TTI1; /* clear busy */
|
||||
dev_done = dev_done & ~INT_TTI1; /* clear done, int */
|
||||
int_req = int_req & ~INT_TTI1;
|
||||
break;
|
||||
} /* end switch */
|
||||
|
||||
return iodata;
|
||||
}
|
||||
|
||||
@@ -168,23 +178,27 @@ t_stat tti1_svc (UNIT *uptr)
|
||||
{
|
||||
int32 temp, newln;
|
||||
|
||||
if (tt1_ldsc.conn) { /* connected? */
|
||||
tmxr_poll_rx (&tt_desc); /* poll for input */
|
||||
if (temp = tmxr_getc_ln (&tt1_ldsc)) { /* get char */
|
||||
uptr->buf = temp & 0177;
|
||||
if ((uptr->flags & UNIT_DASHER) &&
|
||||
(uptr->buf == '\r'))
|
||||
uptr->buf = '\n'; /* Dasher: cr->nl */
|
||||
dev_busy = dev_busy & ~INT_TTI1; /* clear busy */
|
||||
dev_done = dev_done | INT_TTI1; /* set done */
|
||||
int_req = (int_req & ~INT_DEV) | (dev_done & ~dev_disable); }
|
||||
sim_activate (uptr, uptr->wait); } /* continue poll */
|
||||
if (uptr->flags & UNIT_ATT) { /* attached? */
|
||||
newln = tmxr_poll_conn (&tt_desc); /* poll connect */
|
||||
if (newln >= 0) { /* got one? */
|
||||
sim_activate (&tti1_unit, tti1_unit.wait);
|
||||
tt1_ldsc.rcve = 1; } /* rcv enabled */
|
||||
sim_activate (uptr, tmxr_poll); } /* sched poll */
|
||||
if (tt1_ldsc.conn) { /* connected? */
|
||||
tmxr_poll_rx (&tt_desc); /* poll for input */
|
||||
if (temp = tmxr_getc_ln (&tt1_ldsc)) { /* get char */
|
||||
uptr->buf = temp & 0177;
|
||||
if ((uptr->flags & UNIT_DASHER) &&
|
||||
(uptr->buf == '\r'))
|
||||
uptr->buf = '\n'; /* Dasher: cr->nl */
|
||||
dev_busy = dev_busy & ~INT_TTI1; /* clear busy */
|
||||
dev_done = dev_done | INT_TTI1; /* set done */
|
||||
int_req = (int_req & ~INT_DEV) | (dev_done & ~dev_disable);
|
||||
}
|
||||
sim_activate (uptr, uptr->wait); /* continue poll */
|
||||
}
|
||||
if (uptr->flags & UNIT_ATT) { /* attached? */
|
||||
newln = tmxr_poll_conn (&tt_desc); /* poll connect */
|
||||
if (newln >= 0) { /* got one? */
|
||||
sim_activate (&tti1_unit, tti1_unit.wait);
|
||||
tt1_ldsc.rcve = 1; /* rcv enabled */
|
||||
}
|
||||
sim_activate (uptr, tmxr_poll); /* sched poll */
|
||||
}
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
@@ -192,38 +206,43 @@ return SCPE_OK;
|
||||
|
||||
t_stat tti1_reset (DEVICE *dptr)
|
||||
{
|
||||
ttx1_enbdis (dptr->flags & DEV_DIS); /* sync devices */
|
||||
ttx1_enbdis (dptr->flags & DEV_DIS); /* sync devices */
|
||||
tti1_unit.buf = 0;
|
||||
dev_busy = dev_busy & ~INT_TTI1; /* clear busy */
|
||||
dev_done = dev_done & ~INT_TTI1; /* clear done, int */
|
||||
dev_busy = dev_busy & ~INT_TTI1; /* clear busy */
|
||||
dev_done = dev_done & ~INT_TTI1; /* clear done, int */
|
||||
int_req = int_req & ~INT_TTI1;
|
||||
if (tt1_ldsc.conn) { /* if conn, */
|
||||
sim_activate (&tti1_unit, tti1_unit.wait); /* activate, */
|
||||
tt1_ldsc.rcve = 1; } /* enable */
|
||||
else if (tti1_unit.flags & UNIT_ATT) /* if attached, */
|
||||
sim_activate (&tti1_unit, tmxr_poll); /* activate */
|
||||
else sim_cancel (&tti1_unit); /* else stop */
|
||||
if (tt1_ldsc.conn) { /* if conn, */
|
||||
sim_activate (&tti1_unit, tti1_unit.wait); /* activate, */
|
||||
tt1_ldsc.rcve = 1; /* enable */
|
||||
}
|
||||
else if (tti1_unit.flags & UNIT_ATT) /* if attached, */
|
||||
sim_activate (&tti1_unit, tmxr_poll); /* activate */
|
||||
else sim_cancel (&tti1_unit); /* else stop */
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
|
||||
/* Terminal output: IOT routine */
|
||||
|
||||
int32 tto1 (int32 pulse, int32 code, int32 AC)
|
||||
{
|
||||
if (code == ioDOA) tto1_unit.buf = AC & 0377;
|
||||
switch (pulse) { /* decode IR<8:9> */
|
||||
case iopS: /* start */
|
||||
dev_busy = dev_busy | INT_TTO1; /* set busy */
|
||||
dev_done = dev_done & ~INT_TTO1; /* clear done, int */
|
||||
int_req = int_req & ~INT_TTO1;
|
||||
sim_activate (&tto1_unit, tto1_unit.wait); /* activate unit */
|
||||
break;
|
||||
case iopC: /* clear */
|
||||
dev_busy = dev_busy & ~INT_TTO1; /* clear busy */
|
||||
dev_done = dev_done & ~INT_TTO1; /* clear done, int */
|
||||
int_req = int_req & ~INT_TTO1;
|
||||
sim_cancel (&tto1_unit); /* deactivate unit */
|
||||
break; } /* end switch */
|
||||
switch (pulse) { /* decode IR<8:9> */
|
||||
|
||||
case iopS: /* start */
|
||||
dev_busy = dev_busy | INT_TTO1; /* set busy */
|
||||
dev_done = dev_done & ~INT_TTO1; /* clear done, int */
|
||||
int_req = int_req & ~INT_TTO1;
|
||||
sim_activate (&tto1_unit, tto1_unit.wait); /* activate unit */
|
||||
break;
|
||||
|
||||
case iopC: /* clear */
|
||||
dev_busy = dev_busy & ~INT_TTO1; /* clear busy */
|
||||
dev_done = dev_done & ~INT_TTO1; /* clear done, int */
|
||||
int_req = int_req & ~INT_TTO1;
|
||||
sim_cancel (&tto1_unit); /* deactivate unit */
|
||||
break;
|
||||
} /* end switch */
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
@@ -233,18 +252,21 @@ t_stat tto1_svc (UNIT *uptr)
|
||||
{
|
||||
int32 c;
|
||||
|
||||
dev_busy = dev_busy & ~INT_TTO1; /* clear busy */
|
||||
dev_done = dev_done | INT_TTO1; /* set done */
|
||||
dev_busy = dev_busy & ~INT_TTO1; /* clear busy */
|
||||
dev_done = dev_done | INT_TTO1; /* set done */
|
||||
int_req = (int_req & ~INT_DEV) | (dev_done & ~dev_disable);
|
||||
c = tto1_unit.buf & 0177;
|
||||
if ((tto1_unit.flags & UNIT_DASHER) && (c == 031)) c = '\b';
|
||||
if (tt1_ldsc.conn) { /* connected? */
|
||||
if (tt1_ldsc.xmte) { /* tx enabled? */
|
||||
tmxr_putc_ln (&tt1_ldsc, c); /* output char */
|
||||
tmxr_poll_tx (&tt_desc); } /* poll xmt */
|
||||
else { tmxr_poll_tx (&tt_desc); /* poll xmt */
|
||||
sim_activate (&tto1_unit, tmxr_poll); /* wait */
|
||||
return SCPE_OK; } }
|
||||
if (tt1_ldsc.conn) { /* connected? */
|
||||
if (tt1_ldsc.xmte) { /* tx enabled? */
|
||||
tmxr_putc_ln (&tt1_ldsc, c); /* output char */
|
||||
tmxr_poll_tx (&tt_desc); /* poll xmt */
|
||||
}
|
||||
else {
|
||||
tmxr_poll_tx (&tt_desc); /* poll xmt */
|
||||
sim_activate (&tto1_unit, tmxr_poll); /* wait */
|
||||
}
|
||||
}
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
@@ -252,12 +274,12 @@ return SCPE_OK;
|
||||
|
||||
t_stat tto1_reset (DEVICE *dptr)
|
||||
{
|
||||
ttx1_enbdis (dptr->flags & DEV_DIS); /* sync devices */
|
||||
ttx1_enbdis (dptr->flags & DEV_DIS); /* sync devices */
|
||||
tto1_unit.buf = 0;
|
||||
dev_busy = dev_busy & ~INT_TTO1; /* clear busy */
|
||||
dev_done = dev_done & ~INT_TTO1; /* clear done, int */
|
||||
dev_busy = dev_busy & ~INT_TTO1; /* clear busy */
|
||||
dev_done = dev_done & ~INT_TTO1; /* clear done, int */
|
||||
int_req = int_req & ~INT_TTO1;
|
||||
sim_cancel (&tto1_unit); /* deactivate unit */
|
||||
sim_cancel (&tto1_unit); /* deactivate unit */
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
@@ -274,9 +296,9 @@ t_stat tti1_attach (UNIT *uptr, char *cptr)
|
||||
{
|
||||
t_stat r;
|
||||
|
||||
r = tmxr_attach (&tt_desc, uptr, cptr); /* attach */
|
||||
if (r != SCPE_OK) return r; /* error */
|
||||
sim_activate (uptr, tmxr_poll); /* start poll */
|
||||
r = tmxr_attach (&tt_desc, uptr, cptr); /* attach */
|
||||
if (r != SCPE_OK) return r; /* error */
|
||||
sim_activate (uptr, tmxr_poll); /* start poll */
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
@@ -286,9 +308,9 @@ t_stat tti1_detach (UNIT *uptr)
|
||||
{
|
||||
t_stat r;
|
||||
|
||||
r = tmxr_detach (&tt_desc, uptr); /* detach */
|
||||
tt1_ldsc.rcve = 0; /* disable rcv */
|
||||
sim_cancel (uptr); /* stop poll */
|
||||
r = tmxr_detach (&tt_desc, uptr); /* detach */
|
||||
tt1_ldsc.rcve = 0; /* disable rcv */
|
||||
sim_cancel (uptr); /* stop poll */
|
||||
return r;
|
||||
}
|
||||
|
||||
@@ -315,9 +337,12 @@ return SCPE_OK;
|
||||
void ttx1_enbdis (int32 dis)
|
||||
{
|
||||
if (dis) {
|
||||
tti1_dev.flags = tto1_dev.flags | DEV_DIS;
|
||||
tto1_dev.flags = tto1_dev.flags | DEV_DIS; }
|
||||
else { tti1_dev.flags = tti1_dev.flags & ~DEV_DIS;
|
||||
tto1_dev.flags = tto1_dev.flags & ~DEV_DIS; }
|
||||
tti1_dev.flags = tto1_dev.flags | DEV_DIS;
|
||||
tto1_dev.flags = tto1_dev.flags | DEV_DIS;
|
||||
}
|
||||
else {
|
||||
tti1_dev.flags = tti1_dev.flags & ~DEV_DIS;
|
||||
tto1_dev.flags = tto1_dev.flags & ~DEV_DIS;
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user