diff --git a/PDP10/kx10_cpu.c b/PDP10/kx10_cpu.c index d70d731..3829ed5 100644 --- a/PDP10/kx10_cpu.c +++ b/PDP10/kx10_cpu.c @@ -6687,6 +6687,8 @@ ldb_ptr: } else { #if KL | KS ptr_flg = 0; +#endif +#if KL ld_exe: #endif f = 0; diff --git a/PDP10/kx10_mt.c b/PDP10/kx10_mt.c index 89c4198..f253811 100644 --- a/PDP10/kx10_mt.c +++ b/PDP10/kx10_mt.c @@ -533,7 +533,7 @@ t_stat mt_error(UNIT * uptr, t_stat r, DEVICE * dptr) t_stat mt_srv(UNIT * uptr) { DEVICE *dptr = uptr->dptr; - int unit = (uptr - dptr->units) & 7; + int unit; int cmd = (uptr->CNTRL & FUNCTION) >> 9; t_mtrlnt reclen; t_stat r = SCPE_ARG; /* Force error if not set */ @@ -560,6 +560,7 @@ t_stat mt_srv(UNIT * uptr) if (dptr == NULL) dptr = find_dev_from_unit(uptr); + unit = (uptr - dptr->units) & 7; switch(cmd) { case NOP_IDLE: sim_debug(DEBUG_DETAIL, dptr, "MT%o Idle\n", unit); diff --git a/PDP10/kx10_sys.c b/PDP10/kx10_sys.c index e5c3231..26c4b23 100644 --- a/PDP10/kx10_sys.c +++ b/PDP10/kx10_sys.c @@ -288,24 +288,20 @@ t_stat load_dmp (FILE *fileref) uint64 data; uint32 high = 0; - while (fgets((char *)buffer, 80, fileref) != 0) { - p = (char *)buffer; - while (*p >= '0' && *p <= '7') { - data = 0; - while (*p >= '0' && *p <= '7') { - data = (data << 3) + *p - '0'; - p++; - } - if (addr == 0135 && data != 0) - high = (uint32)(data & RMASK); - if (high != 0 && high == addr) { - addr = 0400000; - high = 0; - } - M[addr++] = data; - if (*p == ' ' || *p == '\t') - p++; - } + while (fgets(&buffer[0], 80, fileref) != 0) { + data = 0; + p = &buffer[0]; + if (*p >= '0' && *p <= '7') { + for (; *p >= '0' && *p <= '7'; p++) + data = (data << 3) + *p - '0'; + if (addr == 0135 && data != 0) + high = (uint32)(data & RMASK); + if (high != 0 && high == addr) { + addr = 0400000; + high = 0; + } + M[addr++] = data; + } } return SCPE_OK; }