mirror of
https://github.com/simh/simh.git
synced 2026-01-25 11:46:37 +00:00
Notes For V3.0-0
Because some key files have changed, V3.0 should be unzipped to a clean directory. 1. New Features in 3.0-0 1.1 SCP and Libraries - Added ASSIGN/DEASSIGN (logical name) commands. - Changed RESTORE to unconditionally detach files. - Added E11 and TPC format support to magtape library. - Fixed bug in SHOW CONNECTIONS. - Added USE_ADDR64 support 1.2 All magtapes - Magtapes support SIMH format, E11 format, and TPC format (read only). - SET <tape_unit> FORMAT=format sets the specified tape unit's format. - SHOW <tape_unit> FORMAT displays the specified tape unit's format. - Tape format can also be set as part of the ATTACH command, using the -F switch. 1.3 VAX - VAX can be compiled without USE_INT64. - If compiled with USE_INT64 and USE_ADDR64, RQ and TQ controllers support files > 2GB. - VAX ROM has speed control (SET ROM DELAY/NODELAY). 2. Bugs Fixed in 3.01-0 2.1 VAX - Fixed CVTfi bug: integer overflow not set if exponent out of range - Fixed EMODx bugs: o First and second operands reversed o Separated fraction received wrong exponent o Overflow calculation on separated integer incorrect o Fraction not set to zero if exponent out of range - Fixed interval timer and ROM access to pass power-up self-test even on very fast host processors (fixes from Mark Pizzolato). 2.2 1401 - Fixed mnemonic, instruction lengths, and reverse scan length check bug for MCS. - Fixed MCE bug, BS off by 1 if zero suppress. - Fixed chaining bug, D lost if return to SCP. - Fixed H branch, branch occurs after continue. - Added check for invalid 8 character MCW, LCA. - Fixed magtape load-mode end of record response. 2.3 Nova - Fixed DSK variable size interaction with restore. 2.4 PDP-1 - Fixed DT variable size interaction with restore. 2.5 PDP-11 - Fixed DT variable size interaction with restore. - Fixed bug in MMR1 update (found by Tim Stark). - Added XQ features and fixed bugs: o Corrected XQ interrupts on IE state transition (code by Tom Evans). o Added XQ interrupt clear on soft reset. o Removed XQ interrupt when setting XL or RL (multiple people). o Added SET/SHOW XQ STATS. o Added SHOW XQ FILTERS. o Added ability to split received packet into multiple buffers. o Added explicit runt and giant packet processing. 2.6 PDP-18B - Fixed DT, RF variable size interaction with restore. - Fixed MT bug in MTTR. 2.7 PDP-8 - Fixed DT, DF, RF, RX variable size interaction with restore. - Fixed MT bug in SKTR. 2.8 HP2100 - Fixed bug in DP (13210A controller only), DQ read status. - Fixed bug in DP, DQ seek complete. 2.9 GRI - Fixed bug in SC queue pointer management. 3. New Features in 3.0 vs prior releases N/A 4. Bugs Fixed in 3.0 vs prior releases N/A 5. General Notes WARNING: The RESTORE command has changed. RESTORE will now detach an attached file on a unit, if that unit did not have an attached file in the saved configuration. This is required to assure that the unit flags and the file state are consistent. WARNING: The compilation scheme for the PDP-10, PDP-11, and VAX has changed. Use one of the supplied build files, or read the documentation carefully, before compiling any of these simulators.
This commit is contained in:
Bob Supnik
committed by
Mark Pizzolato
Mark Pizzolato
parent
43385c9616
commit
4ffd3be790
@@ -25,6 +25,7 @@
|
||||
|
||||
cpu PDP-4/7/9/15 central processor
|
||||
|
||||
12-Mar-03 RMS Added logical name support
|
||||
18-Feb-03 RMS Fixed three EAE bugs (found by Hans Pufal)
|
||||
05-Oct-02 RMS Added DIBs, device number support
|
||||
25-Jul-02 RMS Added DECtape support for PDP-4
|
||||
@@ -379,6 +380,7 @@ REG cpu_reg[] = {
|
||||
{ ORDATA (SR, SR, 18) },
|
||||
{ ORDATA (IORS, iors, 18), REG_RO },
|
||||
{ BRDATA (INT, int_hwre, 8, 32, API_HLVL+1), REG_RO },
|
||||
{ FLDATA (INT_PEND, int_pend, 0), REG_RO },
|
||||
{ FLDATA (ION, ion, 0) },
|
||||
{ ORDATA (ION_DELAY, ion_defer, 2) },
|
||||
#if defined (PDP7)
|
||||
@@ -475,7 +477,7 @@ extern UNIT clk_unit;
|
||||
#define JMS_WORD(t) (((LAC & 01000000) >> 1) | ((memm & 1) << 16) | \
|
||||
(((t) & 1) << 15) | ((PC) & 077777))
|
||||
#define INCR_ADDR(x) (((x) & epcmask) | (((x) + 1) & damask))
|
||||
#define SEXT(x) ((int) (((x) & 0400000)? (x) | ~0777777: (x) & 0777777))
|
||||
#define SEXT(x) ((int32) (((x) & 0400000)? (x) | ~0777777: (x) & 0777777))
|
||||
|
||||
/* The following macros implement addressing. They account for autoincrement
|
||||
addressing, extended addressing, and memory protection, if it exists.
|
||||
@@ -881,7 +883,7 @@ case 004: /* JMS, dir */
|
||||
*/
|
||||
|
||||
case 031: /* JMP, indir */
|
||||
CHECK_AUTO_INC; /* check auto inc */
|
||||
CHECK_AUTO_INC; /* check auto inc */
|
||||
#if defined (PDP7) || defined (PDP9)
|
||||
if (emir_pending && (((M[MA] >> 16) & 1) == 0)) memm = 0;
|
||||
#endif
|
||||
@@ -1496,7 +1498,7 @@ return SCPE_OK;
|
||||
t_stat cpu_set_size (UNIT *uptr, int32 val, char *cptr, void *desc)
|
||||
{
|
||||
int32 mc = 0;
|
||||
t_addr i;
|
||||
uint32 i;
|
||||
|
||||
if ((val <= 0) || (val > MAXMEMSIZE) || ((val & 07777) != 0))
|
||||
return SCPE_ARG;
|
||||
@@ -1542,7 +1544,7 @@ if (dptr == NULL) return SCPE_IERR;
|
||||
dibp = (DIB *) dptr->ctxt;
|
||||
if (dibp == NULL) return SCPE_IERR;
|
||||
fprintf (st, "devno=%02o", dibp->dev);
|
||||
if (dibp-> num > 1) fprintf (st, "-%2o", dibp->dev + dibp->num - 1);
|
||||
if (dibp->num > 1) fprintf (st, "-%2o", dibp->dev + dibp->num - 1);
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
@@ -1582,10 +1584,10 @@ for (i = p = 0; (dptr = sim_devices[i]) != NULL; i++) { /* add devices */
|
||||
if (dibp->dsp[j]) { /* any dispatch? */
|
||||
if (dev_tab[dibp->dev + j]) { /* already filled? */
|
||||
printf ("%s device number conflict at %02o\n",
|
||||
dptr->name, dibp->dev + j);
|
||||
sim_dname (dptr), dibp->dev + j);
|
||||
if (sim_log) fprintf (sim_log,
|
||||
"%s device number conflict at %02o\n",
|
||||
dptr->name, dibp->dev + j);
|
||||
sim_dname (dptr), dibp->dev + j);
|
||||
return TRUE; }
|
||||
dev_tab[dibp->dev + j] = dibp->dsp[j]; /* fill */
|
||||
} /* end if dsp */
|
||||
|
||||
@@ -23,6 +23,7 @@
|
||||
be used in advertising or otherwise to promote the sale, use or other dealings
|
||||
in this Software without prior written authorization from Robert M Supnik.
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
04-Feb-03 RMS Added RB09, LP09 support
|
||||
22-Nov-02 RMS Added PDP-4 drum support
|
||||
05-Oct-02 RMS Added DIB structure
|
||||
@@ -144,7 +145,7 @@
|
||||
#define BLKMASK (ADDRMASK & (~IAMASK)) /* block mask */
|
||||
#define MAXMEMSIZE (1 << ADDRSIZE) /* max memory size */
|
||||
#define MEMSIZE (cpu_unit.capac) /* actual memory size */
|
||||
#define MEM_ADDR_OK(x) (((t_addr) (x)) < MEMSIZE)
|
||||
#define MEM_ADDR_OK(x) (((uint32) (x)) < MEMSIZE)
|
||||
|
||||
/* Architectural constants */
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
/* pdp18b_drm.c: drum/fixed head disk simulator
|
||||
|
||||
Copyright (c) 1993-2002, Robert M Supnik
|
||||
Copyright (c) 1993-2003, Robert M Supnik
|
||||
|
||||
Permission is hereby granted, free of charge, to any person obtaining a
|
||||
copy of this software and associated documentation files (the "Software"),
|
||||
@@ -164,7 +164,7 @@ return AC;
|
||||
t_stat drm_svc (UNIT *uptr)
|
||||
{
|
||||
int32 i;
|
||||
t_addr da;
|
||||
uint32 da;
|
||||
|
||||
if ((uptr->flags & UNIT_BUF) == 0) { /* not buf? abort */
|
||||
drm_err = 1; /* set error */
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
/* pdp18b_dt.c: 18b DECtape simulator
|
||||
|
||||
Copyright (c) 1993-2002, Robert M Supnik
|
||||
Copyright (c) 1993-2003, Robert M Supnik
|
||||
|
||||
Permission is hereby granted, free of charge, to any person obtaining a
|
||||
copy of this software and associated documentation files (the "Software"),
|
||||
@@ -27,6 +27,8 @@
|
||||
(PDP-9) TC02/TU55 DECtape
|
||||
(PDP-15) TC15/TU56 DECtape
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
14-Mar-03 RMS Fixed variable size interaction with save/restore
|
||||
17-Oct-02 RMS Fixed bug in end of reel logic
|
||||
05-Oct-02 RMS Added DIB, device number support
|
||||
12-Sep-02 RMS Added 16b format support
|
||||
@@ -393,11 +395,11 @@ REG dt_reg[] = {
|
||||
{ ORDATA (SUBSTATE, dt_substate, 2) },
|
||||
{ ORDATA (LOG, dt_log, 4), REG_HIDDEN },
|
||||
{ DRDATA (LBLK, dt_logblk, 12), REG_HIDDEN },
|
||||
{ URDATA (POS, dt_unit[0].pos, 10, 32, 0,
|
||||
{ URDATA (POS, dt_unit[0].pos, 10, T_ADDR_W, 0,
|
||||
DT_NUMDR, PV_LEFT | REG_RO) },
|
||||
{ URDATA (STATT, dt_unit[0].STATE, 8, 18, 0,
|
||||
DT_NUMDR, REG_RO) },
|
||||
{ URDATA (LASTT, dt_unit[0].LASTT, 10, 32, 0,
|
||||
{ URDATA (LASTT, dt_unit[0].LASTT, 10, T_ADDR_W, 0,
|
||||
DT_NUMDR, REG_HRO) },
|
||||
{ ORDATA (DEVNO, dt_dib.dev, 6), REG_HRO },
|
||||
{ NULL } };
|
||||
@@ -760,7 +762,7 @@ if (((int32) uptr->pos < 0) ||
|
||||
uptr->STATE = uptr->pos = 0;
|
||||
unum = uptr - dt_dev.units;
|
||||
if (unum == DTA_GETUNIT (dtsa)) /* if selected, */
|
||||
dt_seterr (uptr, DTB_SEL); /* error */
|
||||
dt_seterr (uptr, DTB_SEL); /* error */
|
||||
return TRUE; }
|
||||
return FALSE;
|
||||
}
|
||||
@@ -778,7 +780,7 @@ int32 fnc = DTS_GETFNC (uptr->STATE);
|
||||
int32 *bptr = uptr->filebuf;
|
||||
int32 unum = uptr - dt_dev.units;
|
||||
int32 blk, wrd, ma, relpos;
|
||||
t_addr ba;
|
||||
uint32 ba;
|
||||
|
||||
/* Motion cases
|
||||
|
||||
@@ -1221,33 +1223,35 @@ t_stat dt_attach (UNIT *uptr, char *cptr)
|
||||
{
|
||||
uint16 pdp8b[D8_NBSIZE];
|
||||
uint16 pdp11b[D18_BSIZE];
|
||||
uint32 k, p, *bptr;
|
||||
uint32 ba, sz, k, *bptr;
|
||||
int32 u = uptr - dt_dev.units;
|
||||
t_stat r;
|
||||
t_addr ba;
|
||||
|
||||
r = attach_unit (uptr, cptr); /* attach */
|
||||
if (r != SCPE_OK) return r; /* error? */
|
||||
uptr->flags = uptr->flags & ~(UNIT_8FMT | UNIT_11FMT); /* default 18b */
|
||||
if (sim_switches & SWMASK ('R')) /* att 12b? */
|
||||
uptr->flags = uptr->flags | UNIT_8FMT;
|
||||
else if (sim_switches & SWMASK ('S')) /* att 16b? */
|
||||
uptr->flags = uptr->flags | UNIT_11FMT;
|
||||
else if (!(sim_switches & SWMASK ('T')) && /* autosize? */
|
||||
(fseek (uptr->fileref, 0, SEEK_END) == 0) &&
|
||||
((p = ftell (uptr->fileref)) != 0)) {
|
||||
if (p == D8_FILSIZ) uptr->flags = uptr->flags | UNIT_8FMT;
|
||||
if (p == D11_FILSIZ) uptr->flags = uptr->flags | UNIT_11FMT; }
|
||||
if ((sim_switches & SIM_SW_REST) == 0) { /* not from rest? */
|
||||
uptr->flags = uptr->flags & ~(UNIT_8FMT | UNIT_11FMT); /* default 18b */
|
||||
if (sim_switches & SWMASK ('R')) /* att 12b? */
|
||||
uptr->flags = uptr->flags | UNIT_8FMT;
|
||||
else if (sim_switches & SWMASK ('S')) /* att 16b? */
|
||||
uptr->flags = uptr->flags | UNIT_11FMT;
|
||||
else if (!(sim_switches & SWMASK ('T')) && /* autosize? */
|
||||
(sz = sim_fsize (cptr))) {
|
||||
if (sz == D8_FILSIZ)
|
||||
uptr->flags = uptr->flags | UNIT_8FMT;
|
||||
else if (sz == D11_FILSIZ)
|
||||
uptr->flags = uptr->flags | UNIT_11FMT; } }
|
||||
uptr->capac = DTU_CAPAC (uptr); /* set capacity */
|
||||
uptr->filebuf = calloc (uptr->capac, sizeof (int32));
|
||||
if (uptr->filebuf == NULL) { /* can't alloc? */
|
||||
detach_unit (uptr);
|
||||
return SCPE_MEM; }
|
||||
bptr = uptr->filebuf; /* file buffer */
|
||||
if (uptr->flags & UNIT_8FMT) printf ("DT: 12b format");
|
||||
else if (uptr->flags & UNIT_11FMT) printf ("DT: 16b format");
|
||||
else printf ("DT: 18b/36b format");
|
||||
printf ("%s%d: ", sim_dname (&dt_dev), u);
|
||||
if (uptr->flags & UNIT_8FMT) printf ("12b format");
|
||||
else if (uptr->flags & UNIT_11FMT) printf ("16b format");
|
||||
else printf ("18b/36b format");
|
||||
printf (", buffering file in memory\n");
|
||||
rewind (uptr->fileref); /* start of file */
|
||||
if (uptr->flags & UNIT_8FMT) { /* 12b? */
|
||||
for (ba = 0; ba < uptr->capac; ) { /* loop thru file */
|
||||
k = fxread (pdp8b, sizeof (int16), D8_NBSIZE, uptr->fileref);
|
||||
@@ -1290,20 +1294,19 @@ t_stat dt_detach (UNIT* uptr)
|
||||
{
|
||||
uint16 pdp8b[D8_NBSIZE];
|
||||
uint16 pdp11b[D18_BSIZE];
|
||||
uint32 k, *bptr;
|
||||
int32 unum = uptr - dt_dev.units;
|
||||
t_addr ba;
|
||||
uint32 ba, k, *bptr;
|
||||
int32 u = uptr - dt_dev.units;
|
||||
|
||||
if (!(uptr->flags & UNIT_ATT)) return SCPE_OK;
|
||||
if (sim_is_active (uptr)) {
|
||||
sim_cancel (uptr);
|
||||
if ((unum == DTA_GETUNIT (dtsa)) && (dtsa & DTA_STSTP)) {
|
||||
if ((u == DTA_GETUNIT (dtsa)) && (dtsa & DTA_STSTP)) {
|
||||
dtsb = dtsb | DTB_ERF | DTB_SEL | DTB_DTF;
|
||||
DT_UPDINT; }
|
||||
uptr->STATE = uptr->pos = 0; }
|
||||
bptr = uptr->filebuf; /* file buffer */
|
||||
if (uptr->hwmark && ((uptr->flags & UNIT_RO) == 0)) { /* any data? */
|
||||
printf ("DT: writing buffer to file\n");
|
||||
printf ("%s%d: writing buffer to file\n", sim_dname (&dt_dev), u);
|
||||
rewind (uptr->fileref); /* start of file */
|
||||
if (uptr->flags & UNIT_8FMT) { /* 12b? */
|
||||
for (ba = 0; ba < uptr->hwmark; ) { /* loop thru file */
|
||||
|
||||
@@ -28,6 +28,7 @@
|
||||
lp09 (PDP-9,15) LP09 line printer
|
||||
lp15 (PDP-15) LP15 line printer
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
05-Feb-03 RMS Added LP09, fixed conditionalization
|
||||
05-Oct-02 RMS Added DIB, device number support
|
||||
30-May-02 RMS Widened POS to 32b
|
||||
@@ -97,7 +98,7 @@ REG lp62_reg[] = {
|
||||
{ FLDATA (SPC, int_hwre[API_LPTSPC], INT_V_LPTSPC) },
|
||||
{ DRDATA (BPTR, lp62_bp, 6) },
|
||||
{ ORDATA (STATE, lp62_iot, 6), REG_HRO },
|
||||
{ DRDATA (POS, lp62_unit.pos, 32), PV_LEFT },
|
||||
{ DRDATA (POS, lp62_unit.pos, T_ADDR_W), PV_LEFT },
|
||||
{ DRDATA (TIME, lp62_unit.wait, 24), PV_LEFT },
|
||||
{ FLDATA (STOP_IOE, lp62_stopioe, 0) },
|
||||
{ BRDATA (LBUF, lp62_buf, 8, 8, LP62_BSIZE) },
|
||||
@@ -264,7 +265,7 @@ REG lp647_reg[] = {
|
||||
{ FLDATA (ERR, lp647_err, 0) },
|
||||
{ DRDATA (BPTR, lp647_bp, 7) },
|
||||
{ ORDATA (SCMD, lp647_iot, 6), REG_HRO },
|
||||
{ DRDATA (POS, lp647_unit.pos, 32), PV_LEFT },
|
||||
{ DRDATA (POS, lp647_unit.pos, T_ADDR_W), PV_LEFT },
|
||||
{ DRDATA (TIME, lp647_unit.wait, 24), PV_LEFT },
|
||||
{ FLDATA (STOP_IOE, lp647_stopioe, 0) },
|
||||
{ BRDATA (LBUF, lp647_buf, 8, 8, LP647_BSIZE) },
|
||||
@@ -466,7 +467,7 @@ REG lp09_reg[] = {
|
||||
{ FLDATA (DONE, lp09_don, 0) },
|
||||
{ FLDATA (ENABLE, lp09_ie, 0) },
|
||||
{ FLDATA (ERR, lp09_err, 0) },
|
||||
{ DRDATA (POS, lp09_unit.pos, 32), PV_LEFT },
|
||||
{ DRDATA (POS, lp09_unit.pos, T_ADDR_W), PV_LEFT },
|
||||
{ DRDATA (TIME, lp09_unit.wait, 24), PV_LEFT },
|
||||
{ FLDATA (STOP_IOE, lp09_stopioe, 0) },
|
||||
{ ORDATA (DEVNO, lp09_dib.dev, 6), REG_HRO },
|
||||
@@ -635,7 +636,7 @@ REG lp15_reg[] = {
|
||||
{ DRDATA (LCNT, lp15_lc, 9) },
|
||||
{ DRDATA (BPTR, lp15_bp, 8) },
|
||||
{ FLDATA (MODE, lp15_mode, 0) },
|
||||
{ DRDATA (POS, lp15_unit.pos, 32), PV_LEFT },
|
||||
{ DRDATA (POS, lp15_unit.pos, T_ADDR_W), PV_LEFT },
|
||||
{ DRDATA (TIME, lp15_unit.wait, 24), PV_LEFT },
|
||||
{ FLDATA (STOP_IOE, lp15_stopioe, 0) },
|
||||
{ BRDATA (LBUF, lp15_buf, 8, 8, LP15_BSIZE) },
|
||||
|
||||
@@ -26,6 +26,9 @@
|
||||
mt (PDP-9) TC59 magtape
|
||||
(PDP-15) TC59D magtape
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
28-Mar-03 RMS Added multiformat support
|
||||
04-Mar-03 RMS Fixed bug in MTTR
|
||||
01-Mar-03 RMS Fixed bug in interrupt handling
|
||||
Revised for magtape library
|
||||
02-Feb-03 RMS Revised IOT decoding
|
||||
@@ -124,6 +127,7 @@ int32 mt_cu = 0; /* command/unit */
|
||||
int32 mt_sta = 0; /* status register */
|
||||
int32 mt_time = 10; /* record latency */
|
||||
int32 mt_stopioe = 1; /* stop on error */
|
||||
int32 mt_log = 0;
|
||||
uint8 *mtxb = NULL; /* transfer buffer */
|
||||
|
||||
DEVICE mt_dev;
|
||||
@@ -166,15 +170,19 @@ REG mt_reg[] = {
|
||||
{ FLDATA (STOP_IOE, mt_stopioe, 0) },
|
||||
{ DRDATA (TIME, mt_time, 24), PV_LEFT },
|
||||
{ URDATA (UST, mt_unit[0].USTAT, 8, 16, 0, MT_NUMDR, 0) },
|
||||
{ URDATA (POS, mt_unit[0].pos, 10, 32, 0,
|
||||
{ URDATA (POS, mt_unit[0].pos, 10, T_ADDR_W, 0,
|
||||
MT_NUMDR, PV_LEFT | REG_RO) },
|
||||
{ FLDATA (LOG, mt_log, 0), REG_HIDDEN },
|
||||
{ ORDATA (DEVNO, mt_dib.dev, 6), REG_HRO },
|
||||
{ NULL } };
|
||||
|
||||
MTAB mt_mod[] = {
|
||||
{ MTUF_WLK, 0, "write enabled", "WRITEENABLED", NULL },
|
||||
{ MTUF_WLK, MTUF_WLK, "write locked", "LOCKED", NULL },
|
||||
{ MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO", &set_devno, &show_devno },
|
||||
{ MTAB_XTD|MTAB_VUN, 0, "FORMAT", "FORMAT",
|
||||
&sim_tape_set_fmt, &sim_tape_show_fmt, NULL },
|
||||
{ MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO",
|
||||
&set_devno, &show_devno, NULL },
|
||||
{ 0 } };
|
||||
|
||||
DEVICE mt_dev = {
|
||||
@@ -195,13 +203,17 @@ uptr = mt_dev.units + GET_UNIT (mt_cu); /* get unit */
|
||||
mt_updcsta (uptr, 0); /* update status */
|
||||
sb = pulse & 060; /* subop */
|
||||
if (pulse & 01) {
|
||||
if ((sb == 000) && !sim_is_active (uptr)) /* MTTR */
|
||||
if ((sb == 000) && (uptr->flags & UNIT_ATT) && /* MTTR */
|
||||
!sim_is_active (uptr))
|
||||
AC = IOT_SKP | AC;
|
||||
else if ((sb == 020) && !mt_busy ()) /* MTCR */
|
||||
AC = IOT_SKP | AC;
|
||||
else if ((sb == 040) && (mt_sta & (STA_ERR | STA_DON))) /* MTSF */
|
||||
AC = IOT_SKP | AC;
|
||||
}
|
||||
if ((pulse & 06) && mt_log)
|
||||
printf ("[MT%d: IOT=%o, AC=%o, sta=%o]\n",
|
||||
GET_UNIT (mt_cu), 0707300 + pulse, AC, mt_sta);
|
||||
if (pulse & 02) {
|
||||
if (sb == 000) AC = AC | (mt_cu & 0777700); /* MTRC */
|
||||
else if (sb == 020) { /* MTAF, MTLC */
|
||||
@@ -252,6 +264,7 @@ if (uptr->USTAT & STA_REW) { /* rewind? */
|
||||
if (uptr->flags & UNIT_ATT) uptr->USTAT = STA_BOT;
|
||||
else uptr->USTAT = 0;
|
||||
if (u == GET_UNIT (mt_cu)) mt_updcsta (uptr, STA_DON);
|
||||
if (mt_log) printf ("[MT%d: rewind complete, sta=%o]\n", u, mt_sta);
|
||||
return SCPE_OK; }
|
||||
|
||||
if ((uptr->flags & UNIT_ATT) == 0) { /* if not attached */
|
||||
@@ -345,6 +358,8 @@ case FN_SPACER: /* space reverse */
|
||||
break; } /* end case */
|
||||
|
||||
mt_updcsta (uptr, STA_DON); /* set done */
|
||||
if (mt_log) printf ("MT%d: fnc=%d done, ma=%o, wc=%o, sta=%o]\n",
|
||||
u, f, M[MT_CA], M[MT_WC], mt_sta);
|
||||
return r;
|
||||
}
|
||||
|
||||
@@ -399,7 +414,7 @@ case MTSE_RECE: /* record in error */
|
||||
mt_sta = mt_sta | STA_PAR | STA_ERR; /* set par err */
|
||||
break;
|
||||
case MTSE_EOM: /* end of medium */
|
||||
mt_sta = mt_sta | STA_BAD | STA_ERR; /* set bad tape */
|
||||
mt_sta = mt_sta | STA_BAD | STA_ERR; /* set end tape */
|
||||
break;
|
||||
case MTSE_BOT: /* reverse into BOT */
|
||||
uptr->USTAT = uptr->USTAT | STA_BOT; /* set status */
|
||||
|
||||
@@ -26,6 +26,7 @@
|
||||
rf (PDP-9) RF09/RF09
|
||||
(PDP-15) RF15/RS09
|
||||
|
||||
14-Mar-03 RMS Fixed variable platter interaction with save/restore
|
||||
03-Mar-03 RMS Fixed autosizing
|
||||
12-Feb-03 RMS Removed 8 platter sizing hack
|
||||
05-Feb-03 RMS Fixed decode bugs, added variable and autosizing
|
||||
@@ -54,6 +55,7 @@
|
||||
#define UNIT_V_AUTO (UNIT_V_UF + 0) /* autosize */
|
||||
#define UNIT_V_PLAT (UNIT_V_UF + 1) /* #platters - 1 */
|
||||
#define UNIT_M_PLAT 07
|
||||
#define UNIT_PLAT (UNIT_M_PLAT << UNIT_V_PLAT)
|
||||
#define UNIT_GETP(x) ((((x) >> UNIT_V_PLAT) & UNIT_M_PLAT) + 1)
|
||||
#define UNIT_AUTO (1 << UNIT_V_AUTO)
|
||||
#define UNIT_PLAT (UNIT_M_PLAT << UNIT_V_PLAT)
|
||||
@@ -144,6 +146,7 @@ REG rf_reg[] = {
|
||||
{ DRDATA (TIME, rf_time, 24), PV_LEFT + REG_NZ },
|
||||
{ FLDATA (BURST, rf_burst, 0) },
|
||||
{ FLDATA (STOP_IOE, rf_stopioe, 0) },
|
||||
{ DRDATA (CAPAC, rf_unit.capac, 31), PV_LEFT + REG_HRO },
|
||||
{ ORDATA (DEVNO, rf_dib.dev, 6), REG_HRO },
|
||||
{ NULL } };
|
||||
|
||||
@@ -205,7 +208,7 @@ if (pulse & 04) {
|
||||
sim_activate (&rf_unit, t * rf_time); } } /* schedule op */
|
||||
else if (sb == 060) { /* DLAH */
|
||||
rf_da = (rf_da & 0777777) | ((AC & 07) << 18);
|
||||
if ((t_addr) rf_da >= rf_unit.capac) /* for sizing */
|
||||
if ((uint32) rf_da >= rf_unit.capac) /* for sizing */
|
||||
rf_updsta (RFS_NED); }
|
||||
}
|
||||
rf_updsta (0); /* update status */
|
||||
@@ -241,7 +244,7 @@ if ((uptr->flags & UNIT_BUF) == 0) { /* not buf? abort */
|
||||
return IORETURN (rf_stopioe, SCPE_UNATT); }
|
||||
|
||||
f = GET_FNC (rf_sta); /* get function */
|
||||
do { if ((t_addr) rf_da >= uptr->capac) { /* disk overflow? */
|
||||
do { if ((uint32) rf_da >= uptr->capac) { /* disk overflow? */
|
||||
rf_updsta (RFS_NED); /* nx disk error */
|
||||
break; }
|
||||
M[RF_WC] = (M[RF_WC] + 1) & 0777777; /* incr word count */
|
||||
@@ -260,7 +263,7 @@ do { if ((t_addr) rf_da >= uptr->capac) { /* disk overflow? */
|
||||
break; }
|
||||
else {
|
||||
*(((int32 *) uptr->filebuf) + rf_da) = M[pa];
|
||||
if (((t_addr) rf_da) >= uptr->hwmark) uptr->hwmark = rf_da + 1; } }
|
||||
if (((uint32) rf_da) >= uptr->hwmark) uptr->hwmark = rf_da + 1; } }
|
||||
rf_da = rf_da + 1; /* incr disk addr */
|
||||
}
|
||||
while ((M[RF_WC] != 0) && (rf_burst != 0)); /* brk if wc, no brst */
|
||||
@@ -304,15 +307,15 @@ return ((rf_sta & (RFS_ERR | RFS_DON))? IOS_RF: 0);
|
||||
|
||||
t_stat rf_attach (UNIT *uptr, char *cptr)
|
||||
{
|
||||
t_addr p, sz;
|
||||
t_addr ds_bytes = RF_DKSIZE * sizeof (int32);
|
||||
uint32 p, sz;
|
||||
uint32 ds_bytes = RF_DKSIZE * sizeof (int32);
|
||||
|
||||
if ((uptr->flags & UNIT_AUTO) && (sz = sim_fsize (cptr))) {
|
||||
p = (sz + ds_bytes - 1) / ds_bytes;
|
||||
if (p == 0) p = 1;
|
||||
if (p > RF_NUMDK) p = RF_NUMDK; }
|
||||
else p = UNIT_GETP (uptr->flags);
|
||||
uptr->capac = p * RF_DKSIZE;
|
||||
if (p >= RF_NUMDK) p = RF_NUMDK - 1;
|
||||
uptr->flags = (uptr->flags & ~UNIT_PLAT) |
|
||||
(p << UNIT_V_PLAT); }
|
||||
uptr->capac = UNIT_GETP (uptr->flags) * RF_DKSIZE;
|
||||
return attach_unit (uptr, cptr);
|
||||
}
|
||||
|
||||
|
||||
@@ -345,7 +345,7 @@ if (rp_sta & (STA_NXS | STA_NXF | STA_NXC)) { /* or bad disk addr? */
|
||||
pa = rp_ma & ADDRMASK; /* get mem addr */
|
||||
da = GET_DA (rp_da) * RP_NUMWD; /* get disk addr */
|
||||
wc = 01000000 - rp_wc; /* get true wc */
|
||||
if (((t_addr) (pa + wc)) > MEMSIZE) { /* memory overrun? */
|
||||
if (((uint32) (pa + wc)) > MEMSIZE) { /* memory overrun? */
|
||||
nexm = 1; /* set nexm flag */
|
||||
wc = MEMSIZE - pa; } /* limit xfer */
|
||||
if ((da + wc) > RP_SIZE) { /* disk overrun? */
|
||||
|
||||
@@ -29,6 +29,8 @@
|
||||
tto teleprinter
|
||||
clk clock
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
14-Mar-03 RMS Clean up flags on detach
|
||||
01-Mar-03 RMS Added SET/SHOW CLK FREQ support, SET TTI CTRL-C support
|
||||
22-Dec-02 RMS Added break support
|
||||
01-Nov-02 RMS Added 7B/8B support to terminal
|
||||
@@ -160,7 +162,7 @@ REG ptr_reg[] = {
|
||||
{ FLDATA (ERR, ptr_err, 0) },
|
||||
#endif
|
||||
{ ORDATA (STATE, ptr_state, 5), REG_HRO },
|
||||
{ DRDATA (POS, ptr_unit.pos, 32), PV_LEFT },
|
||||
{ DRDATA (POS, ptr_unit.pos, T_ADDR_W), PV_LEFT },
|
||||
{ DRDATA (TIME, ptr_unit.wait, 24), PV_LEFT },
|
||||
{ FLDATA (STOP_IOE, ptr_stopioe, 0) },
|
||||
{ NULL } };
|
||||
@@ -195,7 +197,7 @@ REG ptp_reg[] = {
|
||||
#if defined (IOS_PTPERR)
|
||||
{ FLDATA (ERR, ptp_err, 0) },
|
||||
#endif
|
||||
{ DRDATA (POS, ptp_unit.pos, 32), PV_LEFT },
|
||||
{ DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },
|
||||
{ DRDATA (TIME, ptp_unit.wait, 24), PV_LEFT },
|
||||
{ FLDATA (STOP_IOE, ptp_stopioe, 0) },
|
||||
{ NULL } };
|
||||
@@ -272,7 +274,7 @@ REG tti_reg[] = {
|
||||
#if defined (KSR28)
|
||||
{ ORDATA (TTI_STATE, tti_state, (TTI_WIDTH + 3)), REG_HRO },
|
||||
#endif
|
||||
{ DRDATA (POS, tti_unit.pos, 32), PV_LEFT },
|
||||
{ DRDATA (POS, tti_unit.pos, T_ADDR_W), PV_LEFT },
|
||||
{ DRDATA (TIME, tti_unit.wait, 24), REG_NZ + PV_LEFT },
|
||||
{ NULL } };
|
||||
|
||||
@@ -334,7 +336,7 @@ REG tto_reg[] = {
|
||||
#if defined (KSR28)
|
||||
{ FLDATA (TTO_STATE, tto_state, 0), REG_HRO },
|
||||
#endif
|
||||
{ DRDATA (POS, tto_unit.pos, 32), PV_LEFT },
|
||||
{ DRDATA (POS, tto_unit.pos, T_ADDR_W), PV_LEFT },
|
||||
{ DRDATA (TIME, tto_unit.wait, 24), PV_LEFT },
|
||||
{ NULL } };
|
||||
|
||||
@@ -520,6 +522,7 @@ return reason;
|
||||
t_stat ptr_detach (UNIT *uptr)
|
||||
{
|
||||
ptr_err = 1;
|
||||
ptr_unit.flags = ptr_unit.flags & ~UNIT_RASCII;
|
||||
return detach_unit (uptr);
|
||||
}
|
||||
|
||||
@@ -773,6 +776,7 @@ return reason;
|
||||
t_stat ptp_detach (UNIT *uptr)
|
||||
{
|
||||
ptp_err = 1;
|
||||
ptp_unit.flags = ptp_unit.flags & ~UNIT_PASCII;
|
||||
return detach_unit (uptr);
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
/* pdp18b_tt1.c: 18b PDP's second Teletype
|
||||
|
||||
Copyright (c) 1993-2002, Robert M Supnik
|
||||
Copyright (c) 1993-2003, Robert M Supnik
|
||||
|
||||
Permission is hereby granted, free of charge, to any person obtaining a
|
||||
copy of this software and associated documentation files (the "Software"),
|
||||
@@ -26,6 +26,7 @@
|
||||
tti1 keyboard
|
||||
tto1 teleprinter
|
||||
|
||||
09-May-03 RMS Added network device flag
|
||||
22-Dec-02 RMS Added break support
|
||||
02-Nov-02 RMS Added 7B/8B support
|
||||
05-Oct-02 RMS Added DIB, device number support
|
||||
@@ -110,7 +111,7 @@ DEVICE tti1_dev = {
|
||||
1, 10, 31, 1, 8, 8,
|
||||
&tmxr_ex, &tmxr_dep, &tti1_reset,
|
||||
NULL, &tti1_attach, &tti1_detach,
|
||||
&tti1_dib, DEV_DISABLE };
|
||||
&tti1_dib, DEV_NET | DEV_DISABLE };
|
||||
|
||||
/* TTO1 data structures
|
||||
|
||||
|
||||
Reference in New Issue
Block a user