26aa6de663
RESTRICTION: The PDP-15 FPP is only partially debugged. Do NOT enable this feature for normal operations. WARNING: The core simulator files (scp.c, sim_*.c) have been reorganized. Unzip V3.2-0 to an empty directory before attempting to compile the source. IMPORTANT: If you are compiling for UNIX, please read the notes for Ethernet very carefully. You may need to download a new version of the pcap library, or make changes to the makefile, to get Ethernet support to work. 1. New Features in 3.2-0 1.1 SCP and libraries - Added SHOW <device> RADIX command. - Added SHOW <device> MODIFIERS command. - Added SHOW <device> NAMES command. - Added SET/SHOW <device> DEBUG command. - Added sim_vm_parse_addr and sim_vm_fprint_addr optional interfaces. - Added REG_VMAD flag. - Split SCP into separate libraries for easier modification. - Added more room to the device and unit flag fields. - Changed terminal multiplexor library to support unlimited. number of async lines. 1.2 All DECtapes - Added STOP_EOR flag to enable end-of-reel error stop - Added device debug support. 1.3 Nova and Eclipse - Added QTY and ALM multiplexors (Bruce Ray). 1.4 LGP-30 - Added LGP-30/LGP-21 simulator. 1.5 PDP-11 - Added format, address increment inhibit, transfer overrun detection to RK. - Added device debug support to HK, RP, TM, TQ, TS. - Added DEUNA/DELUA (XU) support (Dave Hittner). - Add DZ per-line logging. 1.6 18b PDP's - Added support for 1-4 (PDP-9)/1-16 (PDP-15) additional terminals. 1.7 PDP-10 - Added DEUNA/DELUA (XU) support (Dave Hittner). 1.8 VAX - Added extended memory to 512MB (Mark Pizzolato). - Added RXV21 support. 2. Bugs Fixed in 3.2-0 2.1 SCP - Fixed double logging of SHOW BREAK (found by Mark Pizzolato). - Fixed implementation of REG_VMIO. 2.2 Nova and Eclipse - Fixed device enable/disable support (found by Bruce Ray). 2.3 PDP-1 - Fixed bug in LOAD (found by Mark Crispin). 2.4 PDP-10 - Fixed bug in floating point unpack. - Fixed bug in FIXR (found by Phil Stone, fixed by Chris Smith). 2.6 PDP-11 - Fixed bug in RQ interrupt control (found by Tom Evans). 2.6 PDP-18B - Fixed bug in PDP-15 XVM g_mode implementation. - Fixed bug in PDP-15 indexed address calculation. - Fixed bug in PDP-15 autoindexed address calculation. - Fixed bugs in FPP-15 instruction decode. - Fixed clock response to CAF. - Fixed bug in hardware read-in mode bootstrap. - Fixed PDP-15 XVM instruction decoding errors. 2.7 VAX - Fixed PC read fault in EXTxV. - Fixed PC write fault in INSV.
317 lines
7.5 KiB
C
317 lines
7.5 KiB
C
/* id32_dboot.c: Interdata 32b simulator disk bootstrap
|
|
|
|
Copyright (c) 2000-2004, 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"),
|
|
to deal in the Software without restriction, including without limitation
|
|
the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
|
and/or sell copies of the Software, and to permit persons to whom the
|
|
Software is furnished to do so, subject to the following conditions:
|
|
|
|
The above copyright notice and this permission notice shall be included in
|
|
all copies or substantial portions of the Software.
|
|
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
|
ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
|
|
IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
|
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
|
|
Except as contained in this notice, the name of Robert M Supnik shall not
|
|
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.
|
|
|
|
17-Feb-03 RMS Fixed for UNIX bootstrap, upper platter bootstrap
|
|
*/
|
|
|
|
#include "id_defs.h"
|
|
|
|
#define DBOOT_BEG 0x1000
|
|
#define DBOOT_START 0x100E
|
|
#define DBOOT_LEN (sizeof (dboot_rom) / sizeof (uint8))
|
|
|
|
/* Transcribed from 32b Bootstrap Loader, 03-074N81R03A13 */
|
|
|
|
static uint8 dboot_rom[] = {
|
|
0xca, 0xf0, 0x00, 0x30,
|
|
0xc5, 0xf0, 0x00, 0x3a,
|
|
0x02, 0x8e,
|
|
0x26, 0xf7,
|
|
0x03, 0x0e,
|
|
0xe6, 0xd0, 0x0f, 0x30,
|
|
0xd1, 0xe0, 0x00, 0x78,
|
|
0xd0, 0xed, 0x03, 0x40,
|
|
0xd3, 0xf0, 0x00, 0x7e,
|
|
0xc4, 0xf0, 0x00, 0x0f,
|
|
0x41, 0xed, 0x00, 0xd0,
|
|
0xd2, 0xfd, 0x03, 0x25,
|
|
0xd3, 0xf0, 0x00, 0x7f,
|
|
0x10, 0xf4,
|
|
0x41, 0xed, 0x00, 0xd0,
|
|
0xd2, 0xfd, 0x03, 0x26,
|
|
0xd3, 0xf0, 0x00, 0x7f,
|
|
0xc4, 0xf0, 0x00, 0x0f,
|
|
0x41, 0xed, 0x00, 0xd0,
|
|
0xd2, 0xfd, 0x03, 0x27,
|
|
0xd3, 0x20, 0x00, 0x7d,
|
|
0xd3, 0x30, 0x00, 0x7c,
|
|
0xd3, 0x40, 0x00, 0x7a,
|
|
0x24, 0x50,
|
|
0xd3, 0xf0, 0x00, 0x7b,
|
|
0xcb, 0xf0, 0x00, 0x33,
|
|
0x23, 0x23,
|
|
0x11, 0xf1,
|
|
0x08, 0x5f,
|
|
0xe6, 0x7d, 0x03, 0x50,
|
|
0xe6, 0x8d, 0x04, 0x4f,
|
|
0x07, 0xcc,
|
|
0x41, 0xed, 0x01, 0xfc,
|
|
0xd1, 0xed, 0x03, 0x5c,
|
|
0xd0, 0xed, 0x03, 0x48,
|
|
0x58, 0xcd, 0x03, 0x58,
|
|
0x43, 0x3d, 0x01, 0x9c,
|
|
0xe6, 0x7d, 0x03, 0x50,
|
|
0x41, 0xed, 0x01, 0xfc,
|
|
0xe6, 0xed, 0x03, 0x54,
|
|
0x24, 0x15,
|
|
0xf8, 0xf0, 0x4f, 0x53, 0x33, 0x32,
|
|
0xd3, 0x7e, 0x00, 0x24,
|
|
0xc3, 0x70, 0x00, 0x10,
|
|
0x23, 0x3e,
|
|
0xce, 0x70, 0x00, 0xe0,
|
|
0x21, 0xeb,
|
|
0x55, 0xfe, 0x00, 0x00,
|
|
0x21, 0x38,
|
|
0x58, 0x6e, 0x00, 0x08,
|
|
0x10, 0x68,
|
|
0x55, 0x6d, 0x03, 0x24,
|
|
0x44, 0x3d, 0x01, 0xb2,
|
|
0xca, 0xe0, 0x00, 0x30,
|
|
0x27, 0x11,
|
|
0x42, 0x3d, 0x01, 0x66,
|
|
0x58, 0xcd, 0x03, 0x50,
|
|
0x42, 0x3d, 0x01, 0x52,
|
|
0x48, 0x10, 0x00, 0x7e,
|
|
0x42, 0x3d, 0x02, 0xf0,
|
|
0x58, 0xcd, 0x03, 0x48,
|
|
0x43, 0x3d, 0x02, 0xf0,
|
|
0x58, 0x8d, 0x03, 0x4c,
|
|
0x23, 0x07,
|
|
0x58, 0xce, 0x00, 0x0c,
|
|
0x58, 0x8e, 0x00, 0x10,
|
|
0x0b, 0x8c,
|
|
0x26, 0xc1,
|
|
0x11, 0x88,
|
|
0x08, 0x18,
|
|
0xe6, 0xf0, 0x11, 0x18,
|
|
0x58, 0x0f, 0x00, 0x00,
|
|
0x50, 0x01, 0x00, 0x00,
|
|
0x59, 0x01, 0x00, 0x00,
|
|
0x42, 0x3d, 0x03, 0x08,
|
|
0x26, 0xf4,
|
|
0x26, 0x14,
|
|
0xc5, 0xf0, 0x12, 0x78,
|
|
0x20, 0x8c,
|
|
0x08, 0xd8,
|
|
0xcb, 0xd0, 0x01, 0xe8,
|
|
0x03, 0x08,
|
|
0x27, 0x81,
|
|
0x07, 0x77,
|
|
0x41, 0xed, 0x01, 0xfc,
|
|
0xd1, 0xed, 0x03, 0x40,
|
|
0xd0, 0xe0, 0x00, 0x78,
|
|
0x43, 0x00, 0x00, 0x60,
|
|
0xde, 0x2d, 0x03, 0x28,
|
|
0x08, 0x0c,
|
|
0x4d, 0x0d, 0x45, 0x00, 0x03, 0x30,
|
|
0x08, 0x91,
|
|
0x4d, 0x0d, 0x45, 0x00, 0x03, 0x38,
|
|
0x08, 0xa1,
|
|
0x08, 0xb0,
|
|
0x08, 0x55,
|
|
0x42, 0x2d, 0x02, 0x4a,
|
|
0xde, 0x3d, 0x03, 0x28,
|
|
0x9d, 0x3f,
|
|
0x22, 0x21,
|
|
0x9d, 0x4f,
|
|
0x42, 0x1d, 0x02, 0xf4,
|
|
0xc3, 0xf0, 0x00, 0x10,
|
|
0x20, 0x35,
|
|
0x11, 0xa5,
|
|
0x06, 0xba,
|
|
0x98, 0x49,
|
|
0xde, 0x4d, 0x03, 0x2b,
|
|
0x9d, 0x3f,
|
|
0x22, 0x21,
|
|
0x9d, 0x4f,
|
|
0x42, 0x7d, 0x02, 0xf8,
|
|
0x20, 0x83,
|
|
0x41, 0x6d, 0x02, 0x96,
|
|
0x22, 0x0b,
|
|
0x9d, 0x4f,
|
|
0xc3, 0xf0, 0x00, 0x19,
|
|
0x42, 0x3d, 0x02, 0xfc,
|
|
0xde, 0x4d, 0x03, 0x2c,
|
|
0x9d, 0x3f,
|
|
0x22, 0x21,
|
|
0x98, 0x49,
|
|
0xde, 0x4d, 0x03, 0x2e,
|
|
0x9d, 0x3f,
|
|
0x22, 0x21,
|
|
0xde, 0x4d, 0x03, 0x2d,
|
|
0x9d, 0x3f,
|
|
0x22, 0x21,
|
|
0x98, 0x4a,
|
|
0xde, 0x4d, 0x03, 0x2f,
|
|
0x0d, 0x3f,
|
|
0x22, 0x21,
|
|
0xde, 0x4d, 0x03, 0x2b,
|
|
0x9d, 0x3f,
|
|
0x22, 0x21,
|
|
0x9d, 0x4f,
|
|
0x20, 0x81,
|
|
0xc3, 0xf0, 0x00, 0x53,
|
|
0x42, 0x3d, 0x03, 0x00,
|
|
0x08, 0xfa,
|
|
0x11, 0xfa,
|
|
0x06, 0xf9,
|
|
0xe6, 0x6d, 0x02, 0x54,
|
|
0x34, 0x77,
|
|
0x9a, 0x27,
|
|
0x34, 0x77,
|
|
0x98, 0x27,
|
|
0x34, 0x88,
|
|
0x9a, 0x28,
|
|
0x34, 0x88,
|
|
0x98, 0x28,
|
|
0x08, 0x55,
|
|
0x21, 0x24,
|
|
0x98, 0x49,
|
|
0x9a, 0x3b,
|
|
0x23, 0x03,
|
|
0x9a, 0x3b,
|
|
0x98, 0x3f,
|
|
0xde, 0x3d, 0x03, 0x2a,
|
|
0xde, 0x2d, 0x03, 0x29,
|
|
0x9d, 0x2f,
|
|
0x20, 0x81,
|
|
0xde, 0x2d, 0x03, 0x28,
|
|
0x9b, 0x20,
|
|
0x99, 0x21,
|
|
0x34, 0x00,
|
|
0x06, 0x01,
|
|
0xde, 0x2d, 0x03, 0x28,
|
|
0x9d, 0x3f,
|
|
0x22, 0x21,
|
|
0x42, 0x1d, 0x03, 0x04,
|
|
0xc3, 0xf0, 0x00, 0x10,
|
|
0x03, 0x3e,
|
|
0x0b, 0x07,
|
|
0x26, 0x04,
|
|
0xc4, 0x00, 0xff, 0x00,
|
|
0x0a, 0x70,
|
|
0x26, 0x91,
|
|
0x07, 0xaa,
|
|
0x07, 0xbb,
|
|
0x03, 0x06,
|
|
0x24, 0x11,
|
|
0x23, 0x0c,
|
|
0x24, 0x12,
|
|
0x23, 0x0a,
|
|
0x24, 0x13,
|
|
0x23, 0x08,
|
|
0x24, 0x14,
|
|
0x23, 0x06,
|
|
0x24, 0x15,
|
|
0x23, 0x04,
|
|
0x24, 0x16,
|
|
0x23, 0x02,
|
|
0x24, 0x17,
|
|
0x24, 0x01,
|
|
0xde, 0x0d, 0x03, 0x28,
|
|
0x9a, 0x01,
|
|
0xde, 0x0d, 0x03, 0x28,
|
|
0xd1, 0xed, 0x03, 0x40,
|
|
0xd0, 0xe0, 0x00, 0x78,
|
|
0x11, 0x0f,
|
|
0x95, 0x10,
|
|
0x22, 0x01,
|
|
0x00, 0x00, 0x00, 0x00,
|
|
0x48, 0x30,
|
|
0xc1, 0xc2,
|
|
0xc8, 0xc4,
|
|
0xd0, 0xe0,
|
|
0x00, 0x30,
|
|
0x01, 0x90,
|
|
0x01, 0x40,
|
|
0x04, 0xc0,
|
|
0x00, 0x18,
|
|
0x00, 0x14,
|
|
0x00, 0x40,
|
|
0x00, 0x40,
|
|
0x00
|
|
};
|
|
|
|
/* Lower memory setup
|
|
|
|
78 = binary input device address
|
|
79 = binary device input command
|
|
7A = disk device number
|
|
7B = device code
|
|
7C = disk controller address
|
|
7D = selector channel address
|
|
7E:7F = operating system extension (user specified)
|
|
*/
|
|
|
|
struct dboot_id {
|
|
char *name;
|
|
uint32 sw;
|
|
uint32 cap;
|
|
uint32 dtype;
|
|
uint32 offset;
|
|
uint32 adder;
|
|
};
|
|
|
|
static struct dboot_id dboot_tab[] = {
|
|
{ "DP", 0, 2, 0x31, o_DP0, 0 },
|
|
{ "DP", SWMASK ('F'), 9, 0x32, o_DP0, o_DPF },
|
|
{ "DP", 0, 9, 0x33, o_DP0, 0 },
|
|
{ "DM", 0, 64, 0x35, o_ID0, 0 },
|
|
{ "DM", 0, 244, 0x36, o_ID0, 0 },
|
|
{ NULL } };
|
|
|
|
t_stat id_dboot (int32 u, DEVICE *dptr)
|
|
{
|
|
extern DIB ttp_dib, sch_dib;
|
|
extern uint32 PC;
|
|
extern int32 sim_switches;
|
|
uint32 i, typ, ctlno, off, add, cap, sch_dev;
|
|
UNIT *uptr;
|
|
|
|
DIB *ddib = (DIB *) dptr->ctxt; /* get disk DIB */
|
|
ctlno = ddib->dno; /* get ctrl devno */
|
|
sch_dev = sch_dib.dno + ddib->sch; /* sch dev # */
|
|
uptr = dptr->units + u; /* get capacity */
|
|
cap = uptr->capac >> 20;
|
|
for (i = typ = 0; dboot_tab[i].name != NULL; i++) {
|
|
if ((strcmp (dboot_tab[i].name, dptr->name) == 0) &&
|
|
((dboot_tab[i].sw == 0) || (dboot_tab[i].sw & sim_switches)) &&
|
|
(dboot_tab[i].cap == cap)) {
|
|
typ = dboot_tab[i].dtype;
|
|
off = dboot_tab[i].offset;
|
|
add = dboot_tab[i].adder;
|
|
break; } }
|
|
if (typ == 0) return SCPE_NOFNC;
|
|
|
|
IOWriteBlk (DBOOT_BEG, DBOOT_LEN, dboot_rom); /* copy boot */
|
|
IOWriteB (AL_DEV, ttp_dib.dno); /* bin input dev */
|
|
IOWriteB (AL_IOC, 0xa3);
|
|
IOWriteB (AL_DSKU, ctlno + ((u + 1) * off) + add); /* disk dev addr */
|
|
IOWriteB (AL_DSKT, typ); /* disk type */
|
|
IOWriteB (AL_DSKC, ctlno); /* disk ctl addr */
|
|
IOWriteB (AL_SCH, sch_dev);
|
|
PC = DBOOT_START;
|
|
return SCPE_OK;
|
|
}
|