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

KA10: IMP Code support for Tenex.

Browse source
This commit is contained in:
Richard Cornwell 2022-06-21 09:48:47 -04:00
parent bad0394323
commit 264ca2ef6b
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
PDP10/kx10_imp.c
View file

@ -28,8 +28,9 @@
#include "sim_ether.h"
#if NUM_DEVS_IMP > 0
#define IMP_DEVNUM 0460
#define WA_IMP_DEVNUM 0400
#define IMP_DEVNUM 0460
#define BBN_IMP_DEVNUM 0550
#define WA_IMP_DEVNUM 0400
#define DEVNUM imp_dib.dev_num
@ -900,7 +901,6 @@ t_stat imp_devio(uint32 dev, uint64 *data)
check_interrupts(uptr);
break;
case TYPE_BBN:
break;
case TYPE_WAITS:
if (*data & IMP_ODPIEN) {
imp_data.pia &= ~07;
@ -952,7 +952,6 @@ t_stat imp_devio(uint32 dev, uint64 *data)
*data = (uint64)(uptr->STATUS | (imp_data.pia & 07));
break;
case TYPE_BBN:
break;
case TYPE_WAITS:
*data = (uint64)(imp_data.pia & 0777);
if (uptr->STATUS & IMPOD)
@ -3132,9 +3131,11 @@ t_stat imp_attach(UNIT* uptr, CONST char* cptr)
/* Set to correct device number */
switch(GET_DTYPE(imp_unit[0].flags)) {
case TYPE_MIT:
case TYPE_BBN:
imp_dib.dev_num = IMP_DEVNUM;
break;
case TYPE_BBN:
imp_dib.dev_num = BBN_IMP_DEVNUM;
break;
case TYPE_WAITS:
imp_dib.dev_num = WA_IMP_DEVNUM;
break;