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
@@ -1,6 +1,6 @@
|
||||
/* pdp8_cpu.c: PDP-8 CPU 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"),
|
||||
@@ -25,6 +25,7 @@
|
||||
|
||||
cpu central processor
|
||||
|
||||
12-Mar-03 RMS Added logical name support
|
||||
04-Oct-02 RMS Revamped device dispatching, added device number support
|
||||
06-Jan-02 RMS Added device enable/disable routines
|
||||
30-Dec-01 RMS Added old PC queue
|
||||
@@ -286,7 +287,7 @@ DEVICE cpu_dev = {
|
||||
t_stat sim_instr (void)
|
||||
{
|
||||
int32 IR, MB, IF, DF, LAC, MQ;
|
||||
t_addr PC, MA;
|
||||
uint32 PC, MA;
|
||||
int32 device, pulse, temp, iot_data;
|
||||
t_stat reason;
|
||||
|
||||
@@ -739,7 +740,7 @@ case 036:case 037: /* OPR, groups 2, 3 */
|
||||
case 020: /* mode A, B: SCA */
|
||||
LAC = LAC | SC;
|
||||
break;
|
||||
case 0: /* mode A, B: NOP */
|
||||
case 000: /* mode A, B: NOP */
|
||||
break;
|
||||
case 021: /* mode B: DAD */
|
||||
if (emode) {
|
||||
@@ -752,13 +753,13 @@ case 036:case 037: /* OPR, groups 2, 3 */
|
||||
PC = (PC + 1) & 07777;
|
||||
break; }
|
||||
LAC = LAC | SC; /* mode A: SCA then */
|
||||
case 1: /* mode B: ACS */
|
||||
case 001: /* mode B: ACS */
|
||||
if (emode) {
|
||||
SC = LAC & 037;
|
||||
LAC = LAC & 010000;
|
||||
break; }
|
||||
SC = (~M[IF | PC]) & 037; /* mode A: SCL */
|
||||
PC = (PC + 1) & 07777;
|
||||
LAC = LAC & 010000; }
|
||||
else { /* mode A: SCL */
|
||||
SC = (~M[IF | PC]) & 037;
|
||||
PC = (PC + 1) & 07777; }
|
||||
break;
|
||||
case 022: /* mode B: DST */
|
||||
if (emode) {
|
||||
@@ -770,7 +771,7 @@ case 036:case 037: /* OPR, groups 2, 3 */
|
||||
PC = (PC + 1) & 07777;
|
||||
break; }
|
||||
LAC = LAC | SC; /* mode A: SCA then */
|
||||
case 2: /* MUY */
|
||||
case 002: /* MUY */
|
||||
MA = IF | PC;
|
||||
if (emode) { INDIRECT; } /* mode B: defer */
|
||||
temp = (MQ * M[MA]) + (LAC & 07777);
|
||||
@@ -785,7 +786,7 @@ case 036:case 037: /* OPR, groups 2, 3 */
|
||||
case 023: /* mode B: SWBA */
|
||||
if (emode) break;
|
||||
LAC = LAC | SC; /* mode A: SCA then */
|
||||
case 3: /* DVI */
|
||||
case 003: /* DVI */
|
||||
MA = IF | PC;
|
||||
if (emode) { INDIRECT; } /* mode B: defer */
|
||||
if ((LAC & 07777) >= M[MA]) { /* overflow? */
|
||||
@@ -804,7 +805,7 @@ case 036:case 037: /* OPR, groups 2, 3 */
|
||||
if (((LAC | MQ) & 07777) == 0) PC = (PC + 1) & 07777;
|
||||
break; }
|
||||
LAC = LAC | SC; /* mode A: SCA then */
|
||||
case 4: /* NMI */
|
||||
case 004: /* NMI */
|
||||
temp = (LAC << 12) | MQ; /* preserve link */
|
||||
for (SC = 0; ((temp & 017777777) != 0) &&
|
||||
(temp & 040000000) == ((temp << 1) & 040000000); SC++)
|
||||
@@ -1053,7 +1054,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;
|
||||
@@ -1099,7 +1100,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;
|
||||
}
|
||||
|
||||
@@ -1130,10 +1131,10 @@ for (i = 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 */
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
/* pdp8_defs.h: PDP-8 simulator definitions
|
||||
|
||||
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"),
|
||||
@@ -51,7 +51,7 @@
|
||||
#define MAXMEMSIZE 32768 /* max memory size */
|
||||
#define MEMSIZE (cpu_unit.capac) /* actual memory size */
|
||||
#define ADDRMASK (MAXMEMSIZE - 1) /* address mask */
|
||||
#define MEM_ADDR_OK(x) (((t_addr) (x)) < MEMSIZE)
|
||||
#define MEM_ADDR_OK(x) (((uint32) (x)) < MEMSIZE)
|
||||
|
||||
/* IOT subroutine return codes */
|
||||
|
||||
|
||||
@@ -25,6 +25,7 @@
|
||||
|
||||
df DF32 fixed head disk
|
||||
|
||||
14-Mar-03 RMS Fixed variable platter interaction with save/restore
|
||||
03-Mar-03 RMS Fixed autosizing
|
||||
02-Feb-03 RMS Added variable platter and autosizing support
|
||||
04-Oct-02 RMS Added DIBs, device number support
|
||||
@@ -47,6 +48,7 @@
|
||||
#define UNIT_V_AUTO (UNIT_V_UF + 0) /* autosize */
|
||||
#define UNIT_V_PLAT (UNIT_V_UF + 1) /* #platters - 1 */
|
||||
#define UNIT_M_PLAT 03
|
||||
#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)
|
||||
@@ -121,8 +123,8 @@ t_stat df_set_size (UNIT *uptr, int32 val, char *cptr, void *desc);
|
||||
DIB df_dib = { DEV_DF, 3, { &df60, &df61, &df62 } };
|
||||
|
||||
UNIT df_unit =
|
||||
{ UDATA (&df_svc, UNIT_FIX+UNIT_ATTABLE+UNIT_BUFABLE+UNIT_MUSTBUF,
|
||||
DF_DKSIZE) };
|
||||
{ UDATA (&df_svc, UNIT_FIX+UNIT_ATTABLE+
|
||||
UNIT_BUFABLE+UNIT_MUSTBUF, DF_DKSIZE) };
|
||||
|
||||
REG df_reg[] = {
|
||||
{ ORDATA (STA, df_sta, 12) },
|
||||
@@ -135,6 +137,7 @@ REG df_reg[] = {
|
||||
{ DRDATA (TIME, df_time, 24), REG_NZ + PV_LEFT },
|
||||
{ FLDATA (BURST, df_burst, 0) },
|
||||
{ FLDATA (STOP_IOE, df_stopioe, 0) },
|
||||
{ DRDATA (CAPAC, df_unit.capac, 18), REG_HRO },
|
||||
{ ORDATA (DEVNUM, df_dib.dev, 6), REG_HRO },
|
||||
{ NULL } };
|
||||
|
||||
@@ -226,7 +229,7 @@ return AC;
|
||||
t_stat df_svc (UNIT *uptr)
|
||||
{
|
||||
int32 pa, t, mex;
|
||||
t_addr da;
|
||||
uint32 da;
|
||||
|
||||
UPDATE_PCELL; /* update photocell */
|
||||
if ((uptr->flags & UNIT_BUF) == 0) { /* not buf? abort */
|
||||
@@ -315,18 +318,19 @@ else { for (i = 0; i < OS8_LEN; i++)
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
/* Attach routine */
|
||||
|
||||
t_stat df_attach (UNIT *uptr, char *cptr)
|
||||
{
|
||||
t_addr p, sz;
|
||||
t_addr ds_bytes = DF_DKSIZE * sizeof (int16);
|
||||
uint32 p, sz;
|
||||
uint32 ds_bytes = DF_DKSIZE * sizeof (int16);
|
||||
|
||||
if ((uptr->flags & UNIT_AUTO) && (sz = sim_fsize (cptr))) {
|
||||
p = (sz + ds_bytes - 1) / ds_bytes;
|
||||
if (p == 0) p = 1;
|
||||
if (p > DF_NUMDK) p = DF_NUMDK; }
|
||||
else p = UNIT_GETP (uptr->flags);
|
||||
uptr->capac = p * DF_DKSIZE;
|
||||
if (p >= DF_NUMDK) p = DF_NUMDK - 1;
|
||||
uptr->flags = (uptr->flags & ~UNIT_PLAT) |
|
||||
(p << UNIT_V_PLAT); }
|
||||
uptr->capac = UNIT_GETP (uptr->flags) * DF_DKSIZE;
|
||||
return attach_unit (uptr, cptr);
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
/* pdp8_dt.c: PDP-8 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"),
|
||||
@@ -25,6 +25,8 @@
|
||||
|
||||
dt TC08/TU56 DECtape
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
14-Mar-03 RMS Fixed sizing interaction with save/restore
|
||||
17-Oct-02 RMS Fixed bug in end of reel logic
|
||||
04-Oct-02 RMS Added DIB, device number support
|
||||
12-Sep-02 RMS Added support for 16b format
|
||||
@@ -323,7 +325,7 @@ 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) },
|
||||
@@ -614,7 +616,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;
|
||||
}
|
||||
@@ -632,7 +634,7 @@ int32 fnc = DTS_GETFNC (uptr->STATE);
|
||||
int16 *bptr = uptr->filebuf;
|
||||
int32 unum = uptr - dt_dev.units;
|
||||
int32 blk, wrd, ma, relpos, dat;
|
||||
t_addr ba;
|
||||
uint32 ba;
|
||||
|
||||
/* Motion cases
|
||||
|
||||
@@ -1060,34 +1062,36 @@ t_stat dt_attach (UNIT *uptr, char *cptr)
|
||||
{
|
||||
uint32 pdp18b[D18_NBSIZE];
|
||||
uint16 pdp11b[D18_NBSIZE], *bptr;
|
||||
int32 i, k, p;
|
||||
int32 i, k;
|
||||
int32 u = uptr - dt_dev.units;
|
||||
t_stat r;
|
||||
t_addr ba;
|
||||
uint32 ba, sz;
|
||||
|
||||
r = attach_unit (uptr, cptr); /* attach */
|
||||
if (r != SCPE_OK) return r; /* fail? */
|
||||
uptr->flags = (uptr->flags | UNIT_8FMT) & ~UNIT_11FMT;
|
||||
if (sim_switches & SWMASK ('T')) /* att 18b? */
|
||||
uptr->flags = uptr->flags & ~UNIT_8FMT;
|
||||
else if (sim_switches & SWMASK ('S')) /* att 16b? */
|
||||
uptr->flags = (uptr->flags | UNIT_11FMT) & ~UNIT_8FMT;
|
||||
else if (!(sim_switches & SWMASK ('R')) && /* autosize? */
|
||||
(fseek (uptr->fileref, 0, SEEK_END) == 0) &&
|
||||
((p = ftell (uptr->fileref)) > 0)) {
|
||||
if (p == D11_FILSIZ)
|
||||
uptr->flags = (uptr->flags | UNIT_11FMT) & ~UNIT_8FMT;
|
||||
if (p > D8_FILSIZ) uptr->flags = uptr->flags & ~UNIT_8FMT; }
|
||||
if ((sim_switches & SIM_SW_REST) == 0) { /* not from rest? */
|
||||
uptr->flags = (uptr->flags | UNIT_8FMT) & ~UNIT_11FMT;
|
||||
if (sim_switches & SWMASK ('T')) /* att 18b? */
|
||||
uptr->flags = uptr->flags & ~UNIT_8FMT;
|
||||
else if (sim_switches & SWMASK ('S')) /* att 16b? */
|
||||
uptr->flags = (uptr->flags | UNIT_11FMT) & ~UNIT_8FMT;
|
||||
else if (!(sim_switches & SWMASK ('R')) && /* autosize? */
|
||||
(sz = sim_fsize (cptr))) {
|
||||
if (sz == D11_FILSIZ)
|
||||
uptr->flags = (uptr->flags | UNIT_11FMT) & ~UNIT_8FMT;
|
||||
else if (sz > D8_FILSIZ)
|
||||
uptr->flags = uptr->flags & ~UNIT_8FMT; } }
|
||||
uptr->capac = DTU_CAPAC (uptr); /* set capacity */
|
||||
uptr->filebuf = calloc (uptr->capac, sizeof (int16));
|
||||
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? */
|
||||
uptr->hwmark = fxread (uptr->filebuf, sizeof (int16),
|
||||
uptr->capac, uptr->fileref);
|
||||
@@ -1126,19 +1130,19 @@ t_stat dt_detach (UNIT* uptr)
|
||||
uint32 pdp18b[D18_NBSIZE];
|
||||
uint16 pdp11b[D18_NBSIZE], *bptr;
|
||||
int32 i, k;
|
||||
int32 unum = uptr - dt_dev.units;
|
||||
t_addr ba;
|
||||
int32 u = uptr - dt_dev.units;
|
||||
uint32 ba;
|
||||
|
||||
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) /* PDP8? */
|
||||
fxwrite (uptr->filebuf, sizeof (int16), /* write file */
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
/* pdp8_lp.c: PDP-8 line printer 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"),
|
||||
@@ -25,6 +25,7 @@
|
||||
|
||||
lpt LP8E line printer
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
04-Oct-02 RMS Added DIB, enable/disable, device number support
|
||||
30-May-02 RMS Widened POS to 32b
|
||||
*/
|
||||
@@ -61,7 +62,7 @@ REG lpt_reg[] = {
|
||||
{ FLDATA (DONE, dev_done, INT_V_LPT) },
|
||||
{ FLDATA (ENABLE, int_enable, INT_V_LPT) },
|
||||
{ FLDATA (INT, int_req, INT_V_LPT) },
|
||||
{ DRDATA (POS, lpt_unit.pos, 32), PV_LEFT },
|
||||
{ DRDATA (POS, lpt_unit.pos, T_ADDR_W), PV_LEFT },
|
||||
{ DRDATA (TIME, lpt_unit.wait, 24), PV_LEFT },
|
||||
{ FLDATA (STOP_IOE, lpt_stopioe, 0) },
|
||||
{ ORDATA (DEVNUM, lpt_dib.dev, 6), REG_HRO },
|
||||
@@ -127,7 +128,7 @@ if (putc (lpt_unit.buf, lpt_unit.fileref) == EOF) {
|
||||
perror ("LPT I/O error");
|
||||
clearerr (lpt_unit.fileref);
|
||||
return SCPE_IOERR; }
|
||||
lpt_unit.pos = ftell (lpt_unit.fileref);
|
||||
lpt_unit.pos = lpt_unit.pos + 1;
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
|
||||
@@ -25,6 +25,9 @@
|
||||
|
||||
mt TM8E/TU10 magtape
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
29-Mar-03 RMS Added multiformat support
|
||||
04-Mar-03 RMS Fixed bug in SKTR
|
||||
01-Mar-03 RMS Fixed interrupt handling
|
||||
Revised for magtape library
|
||||
30-Oct-02 RMS Revised BOT handling, added error record handling
|
||||
@@ -123,8 +126,6 @@
|
||||
#define STA_CLR (FN_RMASK | 00020) /* always clear */
|
||||
#define STA_DYN (STA_REW | STA_BOT | STA_REM | STA_EOF | \
|
||||
STA_EOT | STA_WLK) /* kept in USTAT */
|
||||
/* set error */
|
||||
#define TUR(u) (!sim_is_active (u)) /* tape unit ready */
|
||||
|
||||
extern uint16 M[];
|
||||
extern int32 int_req, stop_inst;
|
||||
@@ -189,7 +190,7 @@ 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 (DEVNUM, mt_dib.dev, 6), REG_HRO },
|
||||
{ NULL } };
|
||||
@@ -197,6 +198,8 @@ REG mt_reg[] = {
|
||||
MTAB mt_mod[] = {
|
||||
{ MTUF_WLK, 0, "write enabled", "WRITEENABLED", &mt_vlock },
|
||||
{ MTUF_WLK, MTUF_WLK, "write locked", "LOCKED", &mt_vlock },
|
||||
{ MTAB_XTD|MTAB_VUN, 0, "FORMAT", "FORMAT",
|
||||
&sim_tape_set_fmt, &sim_tape_show_fmt, NULL },
|
||||
{ MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO",
|
||||
&set_dev, &show_dev, NULL },
|
||||
{ 0 } };
|
||||
@@ -241,7 +244,8 @@ case 6: /* LFGR */
|
||||
mt_updcsta (uptr); /* update status */
|
||||
return 0; }
|
||||
f = GET_FNC (mt_fn); /* get function */
|
||||
if (((uptr->flags & UNIT_ATT) == 0) || !TUR (uptr) ||
|
||||
if (((uptr->flags & UNIT_ATT) == 0) ||
|
||||
sim_is_active (uptr) ||
|
||||
(((f == FN_WRITE) || (f == FN_WREOF)) && sim_tape_wrp (uptr))
|
||||
|| (((f == FN_SPACER) || (f == FN_REWIND)) && sim_tape_bot (uptr))) {
|
||||
mt_sta = mt_sta | STA_ILL | STA_ERR; /* illegal op error */
|
||||
@@ -309,9 +313,10 @@ case 2: /* SKCB */
|
||||
case 3: /* SKJD */
|
||||
return mt_done? IOT_SKP + AC: AC;
|
||||
case 4: /* SKTR */
|
||||
return (TUR (uptr))? IOT_SKP + AC: AC;
|
||||
return (!sim_is_active (uptr) &&
|
||||
(uptr->flags & UNIT_ATT))? IOT_SKP + AC: AC;
|
||||
case 5: /* CLF */
|
||||
if (TUR (uptr)) mt_reset (&mt_dev); /* if TUR, zap */
|
||||
if (!sim_is_active (uptr)) mt_reset (&mt_dev); /* if TUR, zap */
|
||||
else { /* just ctrl zap */
|
||||
mt_sta = 0; /* clear status */
|
||||
mt_done = 0; /* clear done */
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
/* pdp8_pt.c: PDP-8 paper tape reader/punch 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"),
|
||||
@@ -25,6 +25,7 @@
|
||||
|
||||
ptr,ptp PC8E paper tape reader/punch
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
04-Oct-02 RMS Added DIBs
|
||||
30-May-02 RMS Widened POS to 32b
|
||||
30-Nov-01 RMS Added read only unit support
|
||||
@@ -63,7 +64,7 @@ REG ptr_reg[] = {
|
||||
{ FLDATA (DONE, dev_done, INT_V_PTR) },
|
||||
{ FLDATA (ENABLE, int_enable, INT_V_PTR) },
|
||||
{ FLDATA (INT, int_req, INT_V_PTR) },
|
||||
{ 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 } };
|
||||
@@ -96,7 +97,7 @@ REG ptp_reg[] = {
|
||||
{ FLDATA (DONE, dev_done, INT_V_PTP) },
|
||||
{ FLDATA (ENABLE, int_enable, INT_V_PTP) },
|
||||
{ FLDATA (INT, int_req, INT_V_PTP) },
|
||||
{ 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 } };
|
||||
|
||||
@@ -25,6 +25,7 @@
|
||||
|
||||
rf RF08 fixed head disk
|
||||
|
||||
14-Mar-03 RMS Fixed variable platter interaction with save/restore
|
||||
03-Mar-03 RMS Fixed autosizing
|
||||
02-Feb-03 RMS Added variable platter and autosizing support
|
||||
04-Oct-02 RMS Added DIB, device number support
|
||||
@@ -132,8 +133,8 @@ t_stat rf_set_size (UNIT *uptr, int32 val, char *cptr, void *desc);
|
||||
DIB rf_dib = { DEV_RF, 5, { &rf60, &rf61, &rf62, NULL, &rf64 } };
|
||||
|
||||
UNIT rf_unit =
|
||||
{ UDATA (&rf_svc, UNIT_FIX+UNIT_ATTABLE+UNIT_BUFABLE+UNIT_MUSTBUF,
|
||||
RF_DKSIZE) };
|
||||
{ UDATA (&rf_svc, UNIT_FIX+UNIT_ATTABLE+
|
||||
UNIT_BUFABLE+UNIT_MUSTBUF, RF_DKSIZE) };
|
||||
|
||||
UNIT pcell_unit = { UDATA (&pcell_svc, 0, 0) };
|
||||
|
||||
@@ -148,6 +149,7 @@ REG rf_reg[] = {
|
||||
{ DRDATA (TIME, rf_time, 24), REG_NZ + PV_LEFT },
|
||||
{ FLDATA (BURST, rf_burst, 0) },
|
||||
{ FLDATA (STOP_IOE, rf_stopioe, 0) },
|
||||
{ DRDATA (CAPAC, rf_unit.capac, 21), REG_HRO },
|
||||
{ ORDATA (DEVNUM, rf_dib.dev, 6), REG_HRO },
|
||||
{ NULL } };
|
||||
|
||||
@@ -256,7 +258,7 @@ case 4: /* DXAC w/o clear */
|
||||
default:
|
||||
AC = (stop_inst << IOT_V_REASON) + AC;
|
||||
break; } /* end switch */
|
||||
if ((t_addr) rf_da >= rf_unit.capac) rf_sta = rf_sta | RFS_NXD;
|
||||
if ((uint32) rf_da >= rf_unit.capac) rf_sta = rf_sta | RFS_NXD;
|
||||
else rf_sta = rf_sta & ~RFS_NXD;
|
||||
RF_INT_UPDATE;
|
||||
return AC;
|
||||
@@ -280,7 +282,7 @@ if ((uptr->flags & UNIT_BUF) == 0) { /* not buf? abort */
|
||||
return IORETURN (rf_stopioe, SCPE_UNATT); }
|
||||
|
||||
mex = GET_MEX (rf_sta);
|
||||
do { if ((t_addr) rf_da >= rf_unit.capac) { /* disk overflow? */
|
||||
do { if ((uint32) rf_da >= rf_unit.capac) { /* disk overflow? */
|
||||
rf_sta = rf_sta | RFS_NXD;
|
||||
break; }
|
||||
M[RF_WC] = (M[RF_WC] + 1) & 07777; /* incr word count */
|
||||
@@ -294,7 +296,7 @@ do { if ((t_addr) rf_da >= rf_unit.capac) { /* disk overflow? */
|
||||
if ((rf_wlk >> t) & 1) rf_sta = rf_sta | RFS_WLS;
|
||||
else {
|
||||
*(((int16 *) 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) & 03777777; } /* incr disk addr */
|
||||
while ((M[RF_WC] != 0) && (rf_burst != 0)); /* brk if wc, no brst */
|
||||
|
||||
@@ -373,15 +375,15 @@ return SCPE_OK;
|
||||
|
||||
t_stat rf_attach (UNIT *uptr, char *cptr)
|
||||
{
|
||||
t_addr sz, p;
|
||||
t_addr ds_bytes = RF_DKSIZE * sizeof (int16);
|
||||
uint32 sz, p;
|
||||
uint32 ds_bytes = RF_DKSIZE * sizeof (int16);
|
||||
|
||||
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);
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
/* pdp8_rk.c: RK8E cartridge 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"),
|
||||
@@ -25,6 +25,7 @@
|
||||
|
||||
rk RK8E/RK05 cartridge disk
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
04-Oct-02 RMS Added DIB, device number support
|
||||
06-Jan-02 RMS Changed enable/disable support
|
||||
30-Nov-01 RMS Added read only unit, extended SET/SHOW support
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
/* pdp8_rl.c: RL8A cartridge 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"),
|
||||
@@ -25,6 +25,7 @@
|
||||
|
||||
rl RL8A cartridge disk
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
04-Oct-02 RMS Added DIB, device number support
|
||||
06-Jan-02 RMS Changed enable/disable support
|
||||
30-Nov-01 RMS Cloned from RL11
|
||||
@@ -217,7 +218,7 @@ REG rl_reg[] = {
|
||||
{ FLDATA (ERR, rl_erf, 0) },
|
||||
{ DRDATA (STIME, rl_swait, 24), PV_LEFT },
|
||||
{ DRDATA (RTIME, rl_rwait, 24), PV_LEFT },
|
||||
{ URDATA (CAPAC, rl_unit[0].capac, 10, 31, 0,
|
||||
{ URDATA (CAPAC, rl_unit[0].capac, 10, T_ADDR_W, 0,
|
||||
RL_NUMDR, PV_LEFT + REG_HRO) },
|
||||
{ FLDATA (STOP_IOE, rl_stopioe, 0) },
|
||||
{ ORDATA (DEVNUM, rl_dib.dev, 6), REG_HRO },
|
||||
@@ -370,7 +371,7 @@ t_stat rl_svc (UNIT *uptr)
|
||||
{
|
||||
int32 err, wc, maxc;
|
||||
int32 i, j, func, da, bc, wbc;
|
||||
t_addr ma;
|
||||
uint32 ma;
|
||||
|
||||
func = GET_FUNC (rlcsb); /* get function */
|
||||
if (func == RLCSB_GSTA) { /* get status? */
|
||||
@@ -514,19 +515,19 @@ return SCPE_OK;
|
||||
|
||||
t_stat rl_attach (UNIT *uptr, char *cptr)
|
||||
{
|
||||
int32 p;
|
||||
uint32 p;
|
||||
t_stat r;
|
||||
|
||||
uptr->capac = (uptr->flags & UNIT_RL02)? RL02_SIZE: RL01_SIZE;
|
||||
|
||||
r = attach_unit (uptr, cptr);
|
||||
if ((r != SCPE_OK) || ((uptr->flags & UNIT_AUTO) == 0)) return r;
|
||||
r = attach_unit (uptr, cptr); /* attach unit */
|
||||
if (r != SCPE_OK) return r; /* error? */
|
||||
uptr->TRK = 0; /* cyl 0 */
|
||||
uptr->STAT = RLDS_VCK; /* new volume */
|
||||
if (fseek (uptr->fileref, 0, SEEK_END)) return SCPE_OK;
|
||||
if ((p = ftell (uptr->fileref)) == 0) {
|
||||
if (fseek (uptr->fileref, 0, SEEK_END)) return SCPE_OK; /* seek to end */
|
||||
if ((p = ftell (uptr->fileref)) == 0) { /* new disk image? */
|
||||
if (uptr->flags & UNIT_RO) return SCPE_OK;
|
||||
return rl_set_bad (uptr, 0, NULL, NULL); }
|
||||
if ((uptr->flags & UNIT_AUTO) == 0) return r; /* autosize? */
|
||||
if (p > (RL01_SIZE * sizeof (int16))) {
|
||||
uptr->flags = uptr->flags | UNIT_RL02;
|
||||
uptr->capac = RL02_SIZE; }
|
||||
@@ -619,7 +620,7 @@ t_stat rl_boot (int32 unitno, DEVICE *dptr)
|
||||
int32 i;
|
||||
extern int32 saved_PC;
|
||||
|
||||
if (unitno) return SCPE_ARG;
|
||||
if (unitno) return SCPE_ARG; /* only unit 0 */
|
||||
if (rl_dib.dev != DEV_RL) return STOP_NOTSTD; /* only std devno */
|
||||
rl_unit[unitno].TRK = 0;
|
||||
for (i = 0; i < BOOT_LEN; i++) M[BOOT_START + i] = boot_rom[i];
|
||||
|
||||
@@ -25,6 +25,8 @@
|
||||
|
||||
rx RX8E/RX01, RX28/RX02 floppy disk
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
14-Mar-03 RMS Fixed variable size interaction with save/restore
|
||||
03-Mar-03 RMS Fixed autosizing
|
||||
08-Oct-02 RMS Added DIB, device number support
|
||||
Fixed reset to work with disabled device
|
||||
@@ -177,6 +179,8 @@ REG rx_reg[] = {
|
||||
{ FLDATA (STOP_IOE, rx_stopioe, 0) },
|
||||
{ BRDATA (SBUF, rx_buf, 8, 8, RX2_NUMBY) },
|
||||
{ FLDATA (RX28, rx_28, 0), REG_HRO },
|
||||
{ URDATA (CAPAC, rx_unit[0].capac, 10, T_ADDR_W, 0,
|
||||
RX_NUMDR, REG_HRO | PV_LEFT) },
|
||||
{ ORDATA (DEVNUM, rx_dib.dev, 6), REG_HRO },
|
||||
{ NULL } };
|
||||
|
||||
@@ -325,7 +329,7 @@ return;
|
||||
t_stat rx_svc (UNIT *uptr)
|
||||
{
|
||||
int32 i, func, byptr, bps, wps;
|
||||
t_addr da;
|
||||
uint32 da;
|
||||
#define PTR12(x) (((x) + (x) + (x)) >> 1)
|
||||
|
||||
if (rx_28 && (uptr->flags & UNIT_DEN))
|
||||
@@ -509,7 +513,7 @@ return SCPE_OK;
|
||||
|
||||
t_stat rx_attach (UNIT *uptr, char *cptr)
|
||||
{
|
||||
t_addr sz;
|
||||
uint32 sz;
|
||||
|
||||
if ((uptr->flags & UNIT_AUTO) && (sz = sim_fsize (cptr))) {
|
||||
if (sz > RX_SIZE) uptr->flags = uptr->flags | UNIT_DEN;
|
||||
@@ -581,8 +585,11 @@ static const uint16 boot_rom[] = {
|
||||
07450, /* 36, SNA ; more to do? */
|
||||
07610, /* 37, CLA SKP ; error */
|
||||
05046, /* 40, JMP 46 ; go empty */
|
||||
07402, 07402, /* 41-45, HALT ; error */
|
||||
07402, 07402, 07402,
|
||||
07402, /* 41-45, HALT ; error */
|
||||
07402,
|
||||
07402,
|
||||
07402,
|
||||
07402,
|
||||
06751, /* 46, LCD ; load empty */
|
||||
04053, /* 47, JMS LOAD ; get data */
|
||||
03002, /* 50, DCA 2 ; store */
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
/* pdp8_sys.c: PDP-8 simulator interface
|
||||
|
||||
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"),
|
||||
@@ -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
|
||||
30-Dec-01 RMS Revised for new TTX
|
||||
26-Nov-01 RMS Added RL8A support
|
||||
17-Sep-01 RMS Removed multiconsole support
|
||||
@@ -106,7 +107,7 @@ const char *sim_stop_messages[] = {
|
||||
t_stat sim_load (FILE *fileref, char *cptr, char *fnam, int flag)
|
||||
{
|
||||
int32 rubout, word, low, high, csum, newf, state, i;
|
||||
t_addr origin, field;
|
||||
uint32 origin, field;
|
||||
|
||||
if ((*cptr != 0) || (flag != 0)) return SCPE_ARG;
|
||||
rubout = state = field = newf = origin = csum = 0;
|
||||
|
||||
@@ -25,6 +25,7 @@
|
||||
|
||||
tti,tto KL8E terminal input/output
|
||||
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
02-Mar-02 RMS Added SET TTI CTRL-C
|
||||
22-Dec-02 RMS Added break support
|
||||
01-Nov-02 RMS Added 7B/8B support
|
||||
@@ -69,7 +70,7 @@ REG tti_reg[] = {
|
||||
{ FLDATA (DONE, dev_done, INT_V_TTI) },
|
||||
{ FLDATA (ENABLE, int_enable, INT_V_TTI) },
|
||||
{ FLDATA (INT, int_req, INT_V_TTI) },
|
||||
{ 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 },
|
||||
{ FLDATA (UC, tti_unit.flags, UNIT_V_KSR), REG_HRO },
|
||||
{ NULL } };
|
||||
@@ -105,7 +106,7 @@ REG tto_reg[] = {
|
||||
{ FLDATA (DONE, dev_done, INT_V_TTO) },
|
||||
{ FLDATA (ENABLE, int_enable, INT_V_TTO) },
|
||||
{ FLDATA (INT, int_req, INT_V_TTO) },
|
||||
{ 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 } };
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
/* pdp8_ttx.c: PDP-8 additional terminals 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"),
|
||||
@@ -25,6 +25,8 @@
|
||||
|
||||
ttix,ttox PT08/KL8JA terminal input/output
|
||||
|
||||
09-May-03 RMS Added network device flag
|
||||
25-Apr-03 RMS Revised for extended file support
|
||||
22-Dec-02 RMS Added break support
|
||||
02-Nov-02 RMS Added 7B/8B support
|
||||
04-Oct-02 RMS Added DIB, device number support
|
||||
@@ -116,7 +118,7 @@ DEVICE ttix_dev = {
|
||||
1, 10, 31, 1, 8, 8,
|
||||
&tmxr_ex, &tmxr_dep, &ttix_reset,
|
||||
NULL, &ttx_attach, &ttx_detach,
|
||||
&ttix_dib, DEV_DISABLE };
|
||||
&ttix_dib, DEV_NET | DEV_DISABLE };
|
||||
|
||||
/* TTOx data structures
|
||||
|
||||
|
||||
Reference in New Issue
Block a user