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

7
PDP10/kx10_imp.c
View file

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