github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-26 12:01:54 +00:00
Code Releases Activity

KA10: Merge branch 'larsbrinkhoff-lars/morton'

Browse Source
This commit is contained in:
Richard Cornwell
2018-10-05 16:13:51 -04:00
parent 42b9898ad2 0ec6823079
commit 2a8d015388
4 changed files with 306 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
PDP10/ka10_defs.h
View File

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

300
PDP10/ka10_mty.c Normal file
View File

@@ -0,0 +1,300 @@
/* ka10_tk10.c: MTY, Morton multiplex box: Terminal multiplexor.
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 32 high-speed terminal lines. It's specific
to the MIT Mathlab and Dynamic Modeling PDP-10s.
*/
#include <time.h>
#include "sim_defs.h"
#include "sim_tmxr.h"
#include "ka10_defs.h"
#define MTY_NAME "MTY"
#define MTY_DEVNUM 0400
#define MTY_LINES 32
#define MTY_PIA 0000007 /* PI channel assignment */
#define MTY_RQINT 0000010 /* Request interrupt. */
#define MTY_ODONE 0000010 /* Output done. */
#define MTY_IDONE 0000040 /* Input done. */
#define MTY_STOP 0000200 /* Clear output done. */
#define MTY_LINE 0370000 /* Line number. */
#define MTY_DONE (MTY_IDONE | MTY_ODONE)
#define MTY_CONI_BITS (MTY_PIA | MTY_DONE | MTY_LINE)
#define MTY_CONO_BITS (MTY_PIA | MTY_LINE)
static t_stat mty_devio(uint32 dev, uint64 *data);
static t_stat mty_svc (UNIT *uptr);
static t_stat mty_reset (DEVICE *dptr);
static t_stat mty_attach (UNIT *uptr, CONST char *cptr);
static t_stat mty_detach (UNIT *uptr);
static const char *mty_description (DEVICE *dptr);
static t_stat mty_help (FILE *st, DEVICE *dptr, UNIT *uptr,
int32 flag, const char *cptr);
extern int32 tmxr_poll;
TMLN mty_ldsc[MTY_LINES] = { 0 };
TMXR mty_desc = { MTY_LINES, 0, 0, mty_ldsc };
static uint64 status = 0;
UNIT mty_unit[] = {
{UDATA(mty_svc, TT_MODE_7B|UNIT_ATTABLE|UNIT_DISABLE, 0)}, /* 0 */
};
DIB mty_dib = {MTY_DEVNUM, 1, &mty_devio, NULL};
MTAB mty_mod[] = {
{ TT_MODE, TT_MODE_7B, "7b", "7B", NULL, NULL, NULL, "7 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, &mty_desc, "Disconnect a specific line" },
{ UNIT_ATT, UNIT_ATT, "SUMMARY", NULL,
NULL, &tmxr_show_summ, (void *) &mty_desc, "Display a summary of line states" },
{ MTAB_XTD|MTAB_VDV|MTAB_NMO, 1, "CONNECTIONS", NULL,
NULL, &tmxr_show_cstat, (void *) &mty_desc, "Display current connections" },
{ MTAB_XTD|MTAB_VDV|MTAB_NMO, 0, "STATISTICS", NULL,
NULL, &tmxr_show_cstat, (void *) &mty_desc, "Display multiplexer statistics" },
{ 0 }
};
DEVICE mty_dev = {
MTY_NAME, mty_unit, NULL, mty_mod,
1, 8, 0, 1, 8, 36,
NULL, NULL, mty_reset, NULL, mty_attach, mty_detach,
&mty_dib, DEV_DISABLE | DEV_DIS | DEV_DEBUG, 0, dev_debug,
NULL, NULL, mty_help, NULL, NULL, mty_description
};
static t_stat mty_devio(uint32 dev, uint64 *data)
{
DEVICE *dptr = &mty_dev;
TMLN *lp;
int line;
uint64 word;
int ch;
switch(dev & 07) {
case CONO:
sim_debug(DEBUG_CONO, &mty_dev, "%06llo\n", *data);
status &= ~MTY_CONO_BITS;
status |= *data & MTY_CONO_BITS;
line = (status & MTY_LINE) >> 12;
if (*data & MTY_STOP) {
status &= ~MTY_ODONE;
/* Set txdone so future calls to tmxr_txdone_ln will
return -1 rather than 1. */
mty_ldsc[line].txdone = 1;
sim_debug(DEBUG_CMD, &mty_dev, "Clear output done line %d\n",
line);
}
if (*data & MTY_RQINT) {
status |= MTY_ODONE;
sim_debug(DEBUG_CMD, &mty_dev, "Request interrupt line %d\n",
line);
}
if ((*data & (MTY_STOP | MTY_RQINT)) == 0)
sim_debug(DEBUG_CMD, &mty_dev, "Select line %d\n",
line);
break;
case CONI:
*data = status & MTY_CONI_BITS;
sim_debug(DEBUG_CONI, &mty_dev, "%06llo\n", *data);
break;
case DATAO:
line = (status & MTY_LINE) >> 12;
word = *data;
sim_debug(DEBUG_DATAIO, &mty_dev, "DATAO line %d -> %012llo\n",
line, *data);
lp = &mty_ldsc[line];
if (!mty_ldsc[line].conn)
/* If the line isn't connected, clear txdone to force
tmxr_txdone_ln to return 1 rather than -1. */
mty_ldsc[line].txdone = 0;
/* Write up to five characters extracted from a word. NUL can
only be in the first character. */
ch = (word >> 29) & 0177;
tmxr_putc_ln (lp, sim_tt_outcvt(ch, TT_GET_MODE (mty_unit[0].flags)));
while ((ch = (word >> 22) & 0177) != 0) {
tmxr_putc_ln (lp, sim_tt_outcvt(ch, TT_GET_MODE (mty_unit[0].flags)));
word <<= 7;
}
status &= ~MTY_ODONE;
break;
case DATAI:
line = (status & MTY_LINE) >> 12;
lp = &mty_ldsc[line];
*data = tmxr_getc_ln (lp) & 0177;
sim_debug(DEBUG_DATAIO, &mty_dev, "DATAI line %d -> %012llo\n",
line, *data);
status &= ~MTY_IDONE;
break;
}
if (status & MTY_DONE)
set_interrupt(MTY_DEVNUM, status & MTY_PIA);
else
clr_interrupt(MTY_DEVNUM);
return SCPE_OK;
}
static t_stat mty_svc (UNIT *uptr)
{
static int scan = 0;
int i;
int32 done;
/* High speed device, poll every 0.1 ms. */
sim_activate_after (uptr, 100);
i = tmxr_poll_conn (&mty_desc);
if (i >= 0) {
mty_ldsc[i].conn = 1;
mty_ldsc[i].rcve = 1;
mty_ldsc[i].xmte = 1;
/* Set txdone so tmxr_txdone_ln will not return return 1 on
the first call after a new connection. */
mty_ldsc[i].txdone = 1;
sim_debug(DEBUG_CMD, &mty_dev, "Connect %d\n", i);
}
tmxr_poll_rx (&mty_desc);
tmxr_poll_tx (&mty_desc);
for (i = 0; i < MTY_LINES; i++) {
/* Round robin scan 32 lines. */
scan = (scan + 1) & 037;
/* 1 means the line became ready since the last check. Ignore
-1 which means "still ready". */
if (tmxr_txdone_ln (&mty_ldsc[scan]) == 1) {
sim_debug(DEBUG_DETAIL, &mty_dev, "Output ready line %d\n", scan);
status &= ~MTY_LINE;
status |= scan << 12;
status |= MTY_ODONE;
set_interrupt(MTY_DEVNUM, status & MTY_PIA);
break;
}
if (!mty_ldsc[scan].conn)
continue;
if (tmxr_input_pending_ln (&mty_ldsc[scan])) {
sim_debug(DEBUG_DETAIL, &mty_dev, "Input ready line %d\n", scan);
status &= ~MTY_LINE;
status |= scan << 12;
status |= MTY_IDONE;
set_interrupt(MTY_DEVNUM, status & MTY_PIA);
break;
}
}
return SCPE_OK;
}
static t_stat mty_reset (DEVICE *dptr)
{
int i;
sim_debug(DEBUG_CMD, &mty_dev, "Reset\n");
if (mty_unit->flags & UNIT_ATT)
sim_activate (mty_unit, tmxr_poll);
else
sim_cancel (mty_unit);
status = 0;
clr_interrupt(MTY_DEVNUM);
return SCPE_OK;
}
static t_stat mty_attach (UNIT *uptr, CONST char *cptr)
{
t_stat stat;
int i;
stat = tmxr_attach (&mty_desc, uptr, cptr);
for (i = 0; i < MTY_LINES; i++) {
mty_ldsc[i].rcve = 0;
mty_ldsc[i].xmte = 0;
/* Set txdone so tmxr_txdone_ln will not return return 1 on
the first call. */
mty_ldsc[i].txdone = 1;
}
if (stat == SCPE_OK) {
status = 0;
sim_activate (uptr, tmxr_poll);
}
return stat;
}
static t_stat mty_detach (UNIT *uptr)
{
t_stat stat = tmxr_detach (&mty_desc, uptr);
int i;
for (i = 0; i < MTY_LINES; i++) {
mty_ldsc[i].rcve = 0;
mty_ldsc[i].xmte = 0;
}
status = 0;
sim_cancel (uptr);
return stat;
}
static t_stat mty_help (FILE *st, DEVICE *dptr, UNIT *uptr,
int32 flag, const char *cptr)
{
fprintf (st, "MTY Morton box terminal multiplexor\n\n");
fprintf (st, "The MTY supported 32 high-speed lines at up to 80 bits/second.\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 MTY 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 MTY DISCONNECT command, or a DETACH MTY command.\n\n");
fprintf (st, "Other special commands:\n\n");
fprintf (st, " sim> SHOW MTY CONNECTIONS show current connections\n");
fprintf (st, " sim> SHOW MTY STATISTICS show statistics for active connections\n");
fprintf (st, " sim> SET MTYn 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 MTY is detached.\n");
return SCPE_OK;
}
static const char *mty_description (DEVICE *dptr)
{
return "Morton box: Terminal multiplexor";
}

3
PDP10/ka10_sys.c
View File

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

2
makefile
View File

@@ -1111,7 +1111,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_tk10.c
${KA10D}/ka10_imx.c ${KA10D}/ka10_tk10.c ${KA10D}/ka10_mty.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