github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-02-24 08:02:50 +00:00
Code Releases Activity

KA10: Merged in tk10 driver.

Browse Source
This commit is contained in:
Richard Cornwell
2018-08-30 12:55:53 -04:00
parent f9dddcde04 986671a66b
commit e97284d814
4 changed files with 329 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
PDP10/ka10_defs.h
View File

@@ -322,6 +322,7 @@ extern DEVICE dk_dev;
extern DEVICE pd_dev;
extern DEVICE dpy_dev;
extern DEVICE imx_dev;
extern DEVICE tk10_dev;
extern DEVICE wcnsls_dev; /* MIT Spacewar Consoles */
extern t_stat (*dev_tab[128])(uint32 dev, uint64 *data);
@@ -385,6 +386,7 @@ int df10_write(struct df10 *df);
#define NUM_DEVS_TU 1
#define NUM_DEVS_PD ITS
#define NUM_DEVS_IMX ITS
#define NUM_DEVS_TK10 ITS
#define NUM_DEVS_DPY USE_DISPLAY
#define NUM_DEVS_WCNSLS USE_DISPLAY
#define NUM_DEVS_IMP 0

3
PDP10/ka10_sys.c
View File

@@ -140,6 +140,9 @@ DEVICE *sim_devices[] = {
#endif
#if NUM_DEVS_IMX > 0
&imx_dev,
#endif
#if NUM_DEVS_TK10 > 0
&tk10_dev,
#endif
NULL
};

323
PDP10/ka10_tk10.c Normal file
View File

@@ -0,0 +1,323 @@
/* ka10_tk10.c: Knight kludge, TTY scanner.
Copyright (c) 2018, Lars Brinkhoff
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
RICHARD CORNWELL 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.
This is a device with 16 terminal ports. It's specific to the MIT
AI lab and Dynamic Modeling PDP-10s.
*/
#include <time.h>
#include "sim_defs.h"
#include "sim_tmxr.h"
#include "ka10_defs.h"
#define TK10_NAME "TK"
#define TK10_DEVNUM 0600 /* Also known as NTY. */
#define TK10_LINES 16
#define TK10_PIA 0000007 /* PI channel assignment */
#define TK10_RQINT 0000010 /* Request interrupt. */
#define TK10_ODONE 0000020 /* Done flag on typeout. */
#define TK10_STOP 0000020 /* Stop interrupting. */
#define TK10_IDONE 0000040 /* Done flag on input. */
#define TK10_TYI 0007400 /* Input TTY. */
#define TK10_TYO 0170000 /* Output TTY. */
#define TK10_INT 0200000 /* Interrupt. */
#define TK10_CLEAR 0200000 /* Clear interrupt. */
#define TK10_SELECT 0400000 /* Select line. */
#define TK10_GO 0 /* 0400000 Scanning. */
#define TK10_CONI_BITS (TK10_PIA | TK10_INT | TK10_TYI | TK10_GO | \
TK10_ODONE | TK10_IDONE)
static t_stat tk10_devio(uint32 dev, uint64 *data);
static t_stat tk10_svc (UNIT *uptr);
static t_stat tk10_reset (DEVICE *dptr);
static t_stat tk10_attach (UNIT *uptr, CONST char *cptr);
static t_stat tk10_detach (UNIT *uptr);
static const char *tk10_description (DEVICE *dptr);
static t_stat tk10_help (FILE *st, DEVICE *dptr, UNIT *uptr,
int32 flag, const char *cptr);
extern int32 tmxr_poll;
TMLN tk10_ldsc[TK10_LINES] = { 0 };
TMXR tk10_desc = { TK10_LINES, 0, 0, tk10_ldsc };
static uint64 status = 0;
UNIT tk10_unit[] = {
{UDATA(tk10_svc, TT_MODE_7B|UNIT_ATTABLE|UNIT_DISABLE, 0)}, /* 0 */
};
DIB tk10_dib = {TK10_DEVNUM, 1, &tk10_devio, NULL};
MTAB tk10_mod[] = {
{ TT_MODE, TT_MODE_7B, "7b", "7B", NULL, NULL, NULL, "7 bit mode" },
{ TT_MODE, TT_MODE_8B, "8b", "8B", NULL, NULL, NULL, "8 bit mode" },
{ TT_MODE, TT_MODE_7P, "7p", "7P", NULL, NULL, NULL, "7 bit mode - non printing suppressed" },
{ MTAB_XTD|MTAB_VDV|MTAB_VALR, 1, NULL, "DISCONNECT",
&tmxr_dscln, NULL, &tk10_desc, "Disconnect a specific line" },
{ UNIT_ATT, UNIT_ATT, "SUMMARY", NULL,
NULL, &tmxr_show_summ, (void *) &tk10_desc, "Display a summary of line states" },
{ MTAB_XTD|MTAB_VDV|MTAB_NMO, 1, "CONNECTIONS", NULL,
NULL, &tmxr_show_cstat, (void *) &tk10_desc, "Display current connections" },
{ MTAB_XTD|MTAB_VDV|MTAB_NMO, 0, "STATISTICS", NULL,
NULL, &tmxr_show_cstat, (void *) &tk10_desc, "Display multiplexer statistics" },
{ 0 }
};
DEVICE tk10_dev = {
TK10_NAME, tk10_unit, NULL, tk10_mod,
1, 8, 0, 1, 8, 36,
NULL, NULL, tk10_reset, NULL, tk10_attach, tk10_detach,
&tk10_dib, DEV_DISABLE | DEV_DIS | DEV_DEBUG, 0, dev_debug,
NULL, NULL, tk10_help, NULL, NULL, tk10_description
};
static t_stat tk10_devio(uint32 dev, uint64 *data)
{
DEVICE *dptr = &tk10_dev;
TMLN *lp;
int port;
int ch;
switch(dev & 07) {
case CONO:
sim_debug(DEBUG_CONO, &tk10_dev, "%06llo\n", *data);
if (*data & TK10_CLEAR) {
status &= ~TK10_INT;
status |= TK10_GO;
sim_debug(DEBUG_CMD, &tk10_dev, "Clear interrupt\n");
}
if (*data & TK10_STOP) {
status &= ~TK10_ODONE;
if (!(status & TK10_IDONE))
status &= ~TK10_INT;
/* Set txdone so future calls to tmxr_txdone_ln will
return -1 rather than 1. */
tk10_ldsc[(status & TK10_TYO) >> 12].txdone = 1;
sim_debug(DEBUG_CMD, &tk10_dev, "Clear output done port %lld\n",
(status & TK10_TYO) >> 12);
}
if (*data & TK10_RQINT) {
status &= ~TK10_TYI;
status |= ((status & TK10_TYO) >> 4) | TK10_ODONE | TK10_INT;
sim_debug(DEBUG_CMD, &tk10_dev, "Request interrupt port %lld\n",
(status & TK10_TYO) >> 12);
}
if (*data & TK10_SELECT) {
status &= ~TK10_TYO;
status |= ((*data) & TK10_TYO);
sim_debug(DEBUG_DETAIL, &tk10_dev, "Select port %lld\n",
(status & TK10_TYO) >> 12);
}
status &= ~TK10_PIA;
status |= *data & TK10_PIA;
break;
case CONI:
*data = status & TK10_CONI_BITS;
sim_debug(DEBUG_CONI, &tk10_dev, "%06llo\n", *data);
break;
case DATAO:
port = (status & TK10_TYO) >> 12;
sim_debug(DEBUG_DATAIO, &tk10_dev, "DATAO port %d -> %012llo\n",
port, *data);
lp = &tk10_ldsc[port];
ch = sim_tt_outcvt(*data & 0377, TT_GET_MODE (tk10_unit[0].flags));
if (!tk10_ldsc[port].conn)
/* If the port isn't connected, clear txdone to force
tmxr_txdone_ln to return 1 rather than -1. */
tk10_ldsc[port].txdone = 0;
tmxr_putc_ln (lp, ch);
status &= ~TK10_ODONE;
if (!(status & TK10_IDONE)) {
status &= ~TK10_INT;
status |= TK10_GO;
}
break;
case DATAI:
port = (status & TK10_TYO) >> 12;
lp = &tk10_ldsc[port];
*data = tmxr_getc_ln (lp);
sim_debug(DEBUG_DATAIO, &tk10_dev, "DATAI port %d -> %012llo\n",
port, *data);
status &= ~TK10_IDONE;
if (!(status & TK10_ODONE)) {
status &= ~TK10_INT;
status |= TK10_GO;
}
break;
}
if (status & TK10_INT)
set_interrupt(TK10_DEVNUM, status & TK10_PIA);
else
clr_interrupt(TK10_DEVNUM);
return SCPE_OK;
}
static t_stat tk10_svc (UNIT *uptr)
{
static int scan = 0;
int i;
int32 done;
sim_activate_after (uptr, 1000);
i = tmxr_poll_conn (&tk10_desc);
if (i >= 0) {
tk10_ldsc[i].conn = 1;
tk10_ldsc[i].rcve = 1;
tk10_ldsc[i].xmte = 1;
/* Set txdone so tmxr_txdone_ln will not return return 1 on
the first call after a new connection. */
tk10_ldsc[i].txdone = 1;
sim_debug(DEBUG_CMD, &tk10_dev, "Connect %d\n", i);
}
#if 0
/* The GO bit is not yet properly modeled. */
if (!(status & TK10_GO))
return SCPE_OK;
#endif
tmxr_poll_rx (&tk10_desc);
tmxr_poll_tx (&tk10_desc);
for (i = 0; i < TK10_LINES; i++) {
/* Round robin scan 16 lines. */
scan = (scan + 1) & 017;
/* 1 means the line became ready since the last check. Ignore
-1 which means "still ready". */
if (tmxr_txdone_ln (&tk10_ldsc[scan]) == 1) {
sim_debug(DEBUG_DETAIL, &tk10_dev, "Output ready port %d\n", scan);
status &= ~TK10_TYI;
status |= scan << 8;
status |= TK10_INT;
status &= ~TK10_GO;
status |= TK10_ODONE;
set_interrupt(TK10_DEVNUM, status & TK10_PIA);
break;
}
if (!tk10_ldsc[scan].conn)
continue;
if (tmxr_input_pending_ln (&tk10_ldsc[scan])) {
sim_debug(DEBUG_DETAIL, &tk10_dev, "Input ready port %d\n", scan);
status &= ~TK10_TYI;
status |= scan << 8;
status |= TK10_INT;
status &= ~TK10_GO;
status |= TK10_IDONE;
set_interrupt(TK10_DEVNUM, status & TK10_PIA);
break;
}
}
return SCPE_OK;
}
static t_stat tk10_reset (DEVICE *dptr)
{
int i;
sim_debug(DEBUG_CMD, &tk10_dev, "Reset\n");
if (tk10_unit->flags & UNIT_ATT)
sim_activate (tk10_unit, tmxr_poll);
else
sim_cancel (tk10_unit);
status = 0;
clr_interrupt(TK10_DEVNUM);
return SCPE_OK;
}
static t_stat tk10_attach (UNIT *uptr, CONST char *cptr)
{
t_stat stat;
int i;
stat = tmxr_attach (&tk10_desc, uptr, cptr);
for (i = 0; i < TK10_LINES; i++) {
tk10_ldsc[i].rcve = 0;
tk10_ldsc[i].xmte = 0;
/* Set txdone so tmxr_txdone_ln will not return return 1 on
the first call. */
tk10_ldsc[i].txdone = 1;
}
if (stat == SCPE_OK) {
status = TK10_GO;
sim_activate (uptr, tmxr_poll);
}
return stat;
}
static t_stat tk10_detach (UNIT *uptr)
{
t_stat stat = tmxr_detach (&tk10_desc, uptr);
int i;
for (i = 0; i < TK10_LINES; i++) {
tk10_ldsc[i].rcve = 0;
tk10_ldsc[i].xmte = 0;
}
status = 0;
sim_cancel (uptr);
return stat;
}
static t_stat tk10_help (FILE *st, DEVICE *dptr, UNIT *uptr,
int32 flag, const char *cptr)
{
fprintf (st, "TK10 Knight kludge TTY scanner\n\n");
fprintf (st, "The TK10 supported 8 or 16 lines, but only the latter is supported by\n");
fprintf (st, "this simulation.\n\n");
fprintf (st, "The ATTACH command specifies the port to be used:\n\n");
tmxr_attach_help (st, dptr, uptr, flag, cptr);
fprintf (st, "Terminals can be set to one of three modes: 7P, 7B, or 8B.\n\n");
fprintf (st, " mode input characters output characters\n\n");
fprintf (st, " 7P high-order bit cleared high-order bit cleared,\n");
fprintf (st, " non-printing characters suppressed\n");
fprintf (st, " 7B high-order bit cleared high-order bit cleared\n");
fprintf (st, " 8B no changes no changes\n\n");
fprintf (st, "The default mode is 7B.\n\n");
fprintf (st, "Once TK10 is attached and the simulator is running, the terminals listen for\n");
fprintf (st, "connections on the specified port. They assume that the incoming connections\n");
fprintf (st, "are Telnet connections. The connections remain open until disconnected either\n");
fprintf (st, "by the Telnet client, a SET TK10 DISCONNECT command, or a DETACH TK10 command.\n\n");
fprintf (st, "Other special commands:\n\n");
fprintf (st, " sim> SHOW TK10 CONNECTIONS show current connections\n");
fprintf (st, " sim> SHOW TK10 STATISTICS show statistics for active connections\n");
fprintf (st, " sim> SET TK10n DISCONNECT disconnects the specified line.\n");
fprint_reg_help (st, &dc_dev);
fprintf (st, "\nThe terminals do not support save and restore. All open connections\n");
fprintf (st, "are lost when the simulator shuts down or TK10 is detached.\n");
return SCPE_OK;
}
static const char *tk10_description (DEVICE *dptr)
{
return "Knight kludge: TTY scanner";
}

2
makefile
View File

@@ -1105,7 +1105,7 @@ KA10 = ${KA10D}/ka10_cpu.c ${KA10D}/ka10_sys.c ${KA10D}/ka10_df.c \
${KA10D}/ka10_rp.c ${KA10D}/ka10_rc.c ${KA10D}/ka10_dt.c \
${KA10D}/ka10_dk.c ${KA10D}/ka10_cr.c ${KA10D}/ka10_cp.c \
${KA10D}/ka10_tu.c ${KA10D}/ka10_rs.c ${KA10D}/ka10_pd.c \
${KA10D}/ka10_imx.c
${KA10D}/ka10_imx.c ${KA10D}/ka10_tk10.c
KA10_OPT = -DKA=1 -DUSE_INT64 -I $(KA10D) -DUSE_SIM_CARD
# ${KA10D}/ka10_imp.c sim_imp.c sim_ncp.c sim_tun.c