github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-13 15:27:04 +00:00
Code Releases Activity

KA10: Make TEN11 address range configurable.

Browse Source
This commit is contained in:
Lars Brinkhoff 2021-07-19 13:02:53 +02:00
parent bad641393e
commit 57a7a1c681
3 changed files with 44 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
PDP10/ka10_ten11.c
View File

@ -37,8 +37,12 @@
/* Rubin 10-11 pager. */
static uint64 ten11_pager[256];
/* Physical address range of TEN11 moby. */
t_addr ten11_base = 03000000;
t_addr ten11_end = 04000000;
/* Physical address of 10-11 control page. */
#define T11CPA 03776000
#define T11CPA 0776000 //Offset inside TEN11 moby.
/* Bits in a 10-11 page table entry. */
#define T11VALID (0400000000000LL)
@ -64,6 +68,8 @@ static t_stat ten11_svc (UNIT *uptr);
static t_stat ten11_reset (DEVICE *dptr);
static t_stat ten11_attach (UNIT *uptr, CONST char *ptr);
static t_stat ten11_detach (UNIT *uptr);
static t_stat ten11_set_base (UNIT *uptr, int32 val, CONST char *cptr, void *desc);
static t_stat ten11_show_base (FILE *st, UNIT *uptr, int32 val, CONST void *desc);
static t_stat ten11_attach_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr);
static const char *ten11_description (DEVICE *dptr);
@ -77,6 +83,8 @@ static REG ten11_reg[] = {
};
static MTAB ten11_mod[] = {
{ MTAB_XTD|MTAB_VDV|MTAB_VALR, 0, "base address", "BASE",
&ten11_set_base, &ten11_show_base },
{ 0 }
};
@ -290,6 +298,8 @@ int ten11_read (t_addr addr, uint64 *data)
int offset = addr & 01777;
int word1, word2;
addr &= RMASK; //Address offset inside moby.
if (addr >= T11CPA) {
/* Accessing the control page. */
if (offset >= 0400) {
@ -370,6 +380,8 @@ int ten11_write (t_addr addr, uint64 data)
{
int offset = addr & 01777;
addr &= RMASK; //Address offset inside moby.
if (addr >= T11CPA) {
/* Accessing the control page. */
if (offset >= 0400) {
@ -413,4 +425,28 @@ int ten11_write (t_addr addr, uint64 data)
}
return 0;
}
static t_stat ten11_set_base (UNIT *uptr, int32 val, CONST char *cptr, void *desc)
{
t_stat r;
t_value x;
if (cptr == NULL || *cptr == 0)
return SCPE_ARG;
x = get_uint (cptr, 8, 03777777, &r);
if (r != SCPE_OK)
return SCPE_ARG;
ten11_base = (t_addr)(x&03777777);
/* The end of the TEN11 range is the start of the next moby. */
ten11_end = (ten11_base + 01000000) & LMASK;
return SCPE_OK;
}
static t_stat ten11_show_base (FILE *st, UNIT *uptr, int32 val, CONST void *desc)
{
fprintf (st, "Base: %011o", ten11_base);
return SCPE_OK;
}
#endif

2
PDP10/kx10_cpu.c
View File

@ -299,7 +299,7 @@ t_stat tim_srv(UNIT * uptr);
int32 tmxr_poll = 10000;
/* Physical address range for Rubin 10-11 interface. */
#define T11RANGE(addr) ((addr) >= 03040000)
#define T11RANGE(addr) ((addr) >= ten11_base && (addr) < ten11_end)
/* Physical address range for auxiliary PDP-6. */
#define AUXCPURANGE(addr) ((addr) >= auxcpu_base && (addr) < (auxcpu_base + 040000))

9
PDP10/kx10_defs.h
View File

@ -696,9 +696,6 @@ int rh_read(struct rh_if *rh);
int rh_write(struct rh_if *rh);
int ten11_read (t_addr addr, t_uint64 *data);
int ten11_write (t_addr addr, t_uint64 data);
/* Console lights. */
extern void ka10_lights_init (void);
extern void ka10_lights_main (t_uint64);
@ -794,6 +791,12 @@ extern t_uint64 FM[];
extern uint32 PC;
extern uint32 FLAGS;
#if NUM_DEVS_TEN11
int ten11_read (t_addr addr, t_uint64 *data);
int ten11_write (t_addr addr, t_uint64 data);
extern t_addr ten11_base;
extern t_addr ten11_end;
#endif
#if NUM_DEVS_AUXCPU
extern t_addr auxcpu_base;
int auxcpu_read (t_addr addr, uint64 *);