BasiliskII/src/slot_rom.cpp

/*
 *  slot_rom.cpp - Slot declaration ROM
 *
 *  Basilisk II (C) 1997-2005 Christian Bauer
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

/*
 *  SEE ALSO
 *    Inside Macintosh: Devices, chapter 2 "Slot Manager"
 *    Designing Cards and Drivers for the Macintosh Family, Second Edition
 */

#include <stdio.h>
#include <string.h>

#include "sysdeps.h"
#include "cpu_emulation.h"
#include "main.h"
#include "video.h"
#include "emul_op.h"
#include "version.h"
#include "slot_rom.h"


// Temporary buffer for slot ROM
static uint8 srom[4096];

// Index in srom
static uint32 p;

// Length of slot ROM
static int slot_rom_size = 0;


/*
 *  Construct slot declaration ROM and copy it into the Mac ROM (must be called after VideoInit())
 */

static void Offs(uint8 type, uint32 ptr)
{
        uint32 offs = ptr - p;
        srom[p++] = type;
        srom[p++] = offs >> 16;
        srom[p++] = offs >> 8;
        srom[p++] = offs;
}

static void Rsrc(uint8 type, uint32 data)
{
        srom[p++] = type;
        srom[p++] = data >> 16;
        srom[p++] = data >> 8;
        srom[p++] = data;
}

static void EndOfList(void)
{
        srom[p++] = 0xff;
        srom[p++] = 0;
        srom[p++] = 0;
        srom[p++] = 0;
}

static void Long(uint32 data)
{
        srom[p++] = data >> 24;
        srom[p++] = data >> 16;
        srom[p++] = data >> 8;
        srom[p++] = data;
}

static void Word(uint16 data)
{
        srom[p++] = data >> 8;
        srom[p++] = data;
}

static void String(char *str)
{
        while ((srom[p++] = *str++) != 0) ;
        if (p & 1)
                srom[p++] = 0;
}

static void PString(char *str)
{
        srom[p++] = strlen(str);
        while ((srom[p++] = *str++) != 0) ;
        p--;
        if (p & 1)
                srom[p++] = 0;
}

static uint32 VModeParms(const monitor_desc &m, video_depth depth)
{
        const video_mode &mode = m.get_current_mode();

        uint32 ret = p;
        Long(50);                                       // Length
        Long(0);                                        // Base offset
        Word(m.get_bytes_per_row(depth, mode.resolution_id));
        Word(0);                                        // Bounds
        Word(0);
        Word(mode.y);
        Word(mode.x);
        Word(0);                                        // Version
        Word(0);                                        // Pack type
        Long(0);                                        // Pack size
        Long(0x00480000);                       // HRes
        Long(0x00480000);                       // VRes
        switch (depth) {
                case VDEPTH_1BIT:
                        Word(0);                        // Pixel type (indirect)
                        Word(1);                        // Pixel size
                        Word(1);                        // CmpCount
                        Word(1);                        // CmpSize
                        break;
                case VDEPTH_2BIT:
                        Word(0);                        // Pixel type (indirect)
                        Word(2);                        // Pixel size
                        Word(1);                        // CmpCount
                        Word(2);                        // CmpSize
                        break;
                case VDEPTH_4BIT:
                        Word(0);                        // Pixel type (indirect)
                        Word(4);                        // Pixel size
                        Word(1);                        // CmpCount
                        Word(4);                        // CmpSize
                        break;
                case VDEPTH_8BIT:
                        Word(0);                        // Pixel type (indirect)
                        Word(8);                        // Pixel size
                        Word(1);                        // CmpCount
                        Word(8);                        // CmpSize
                        break;
                case VDEPTH_16BIT:
                        Word(16);                       // Pixel type (direct)
                        Word(16);                       // Pixel size
                        Word(3);                        // CmpCount
                        Word(5);                        // CmpSize
                        break;
                case VDEPTH_32BIT:
                        Word(16);                       // Pixel type (direct)
                        Word(32);                       // Pixel size
                        Word(3);                        // CmpCount
                        Word(8);                        // CmpSize
                        break;
        }
        Long(0);                                        // Plane size
        Long(0);                                        // Reserved
        return ret;
}

static uint32 VModeDesc(uint32 params, bool direct)
{
        uint32 ret = p;
        Offs(0x01, params);                     // Video parameters
        Rsrc(0x03, 1);                          // Page count
        Rsrc(0x04, direct ? 2 : 0);     // Device type
        EndOfList();
        return ret;
}

static uint32 VMonitor(const monitor_desc &m, uint32 videoType, uint32 videoName, uint32 vidDrvrDir, uint32 gammaDir)
{
        uint32 minorBase, minorLength;
        uint32 vidModeParms1, vidModeParms2, vidModeParms4, vidModeParms8, vidModeParms16, vidModeParms32;
        uint32 vidMode1, vidMode2, vidMode4, vidMode8, vidMode16, vidMode32;
        uint32 ret;

        minorBase = p;
        Long(m.get_mac_frame_base());   // Frame buffer base
        minorLength = p;
        Long(0);                                        // Frame buffer size (unspecified)

        vidModeParms1 = VModeParms(m, VDEPTH_1BIT);
        vidModeParms2 = VModeParms(m, VDEPTH_2BIT);
        vidModeParms4 = VModeParms(m, VDEPTH_4BIT);
        vidModeParms8 = VModeParms(m, VDEPTH_8BIT);
        vidModeParms16 = VModeParms(m, VDEPTH_16BIT);
        vidModeParms32 = VModeParms(m, VDEPTH_32BIT);

        vidMode1 = VModeDesc(vidModeParms1, false);
        vidMode2 = VModeDesc(vidModeParms2, false);
        vidMode4 = VModeDesc(vidModeParms4, false);
        vidMode8 = VModeDesc(vidModeParms8, false);
        vidMode16 = VModeDesc(vidModeParms16, true);
        vidMode32 = VModeDesc(vidModeParms32, true);

        ret = p;
        Offs(0x01, videoType);                          // Video type descriptor
        Offs(0x02, videoName);                          // Driver name
        Offs(0x04, vidDrvrDir);                         // Driver directory
        Rsrc(0x08, 0x4232);                                     // Hardware device ID ('B2')
        Offs(0x0a, minorBase);                          // Frame buffer base
        Offs(0x0b, minorLength);                        // Frame buffer length
        Offs(0x40, gammaDir);                           // Gamma directory
        Rsrc(0x7d, 6);                                          // Video attributes: Default to color, built-in
        if (m.has_depth(VDEPTH_1BIT))
                Offs(m.depth_to_apple_mode(VDEPTH_1BIT), vidMode1);     // Video mode parameters for 1 bit
        if (m.has_depth(VDEPTH_2BIT))
                Offs(m.depth_to_apple_mode(VDEPTH_2BIT), vidMode2);     // Video mode parameters for 2 bit
        if (m.has_depth(VDEPTH_4BIT))
                Offs(m.depth_to_apple_mode(VDEPTH_4BIT), vidMode4);     // Video mode parameters for 4 bit
        if (m.has_depth(VDEPTH_8BIT))
                Offs(m.depth_to_apple_mode(VDEPTH_8BIT), vidMode8);     // Video mode parameters for 8 bit
        if (m.has_depth(VDEPTH_16BIT))
                Offs(m.depth_to_apple_mode(VDEPTH_16BIT), vidMode16);   // Video mode parameters for 16 bit
        if (m.has_depth(VDEPTH_32BIT))
                Offs(m.depth_to_apple_mode(VDEPTH_32BIT), vidMode32);   // Video mode parameters for 32 bit
        EndOfList();
        return ret;
}

bool InstallSlotROM(void)
{
        uint32 boardType, boardName, vendorID, revLevel, partNum, date;
        uint32 vendorInfo, sRsrcBoard;

        uint32 videoType, videoName, videoDrvr, vidDrvrDir;
        uint32 defaultGamma, gammaDir;

        uint32 cpuType, cpuName, cpuMajor, cpuMinor, sRsrcCPU;

        uint32 etherType, etherName, etherDrvr, etherDrvrDir, sRsrcEther;

        uint32 sRsrcDir;

        vector<monitor_desc *>::const_iterator m, mend = VideoMonitors.end();
        vector<uint32> sRsrcVideo;

        char str[256];
        int i;
        p = 0;

        // Board sResource
        boardType = p;                                          // Literals
        Word(1); Word(0); Word(0); Word(0);     // Board sResource
        boardName = p;
        String("Basilisk II Slot ROM");
        vendorID = p;
        String("Christian Bauer");
        revLevel = p;
        sprintf(str, "V%d.%d", VERSION_MAJOR, VERSION_MINOR);
        String(str);
        partNum = p;
        String("BasiliskII");
        date = p;
        String(__DATE__);

        vendorInfo = p;                                         // Vendor Info
        Offs(0x01, vendorID);                           // Vendor ID
        Offs(0x03, revLevel);                           // Revision level
        Offs(0x04, partNum);                            // Part number
        Offs(0x05, date);                                       // ROM build date
        EndOfList();

        sRsrcBoard = p;
        Offs(0x01, boardType);                          // Board descriptor
        Offs(0x02, boardName);                          // Board name
        Rsrc(0x20, 0x4232);                                     // Board ID ('B2')
        Offs(0x24, vendorInfo);                         // Vendor Info
        EndOfList();

        videoType = p;
        Word(3); Word(1); Word(1); Word(0x4232);        // Display Video Apple 'B2'
        videoName = p;
        String("Display_Video_Apple_Basilisk");

        videoDrvr = p;                                          // Video driver
        Long(0x72);                                                     // Length
        Word(0x4c00); Word(0); Word(0); Word(0);
        Word(0x32);                                                     // Open offset
        Word(0x36);                                                     // Prime offset
        Word(0x3a);                                                     // Control offset
        Word(0x46);                                                     // Status offset
        Word(0x6c);                                                     // Close offset
        PString(".Display_Video_Apple_Basilisk");
        Word(1);                                                        // Driver version
        Word(M68K_EMUL_OP_VIDEO_OPEN);          // Open()
        Word(0x4e75);
        Word(0x70ff);                                           // Prime()
        Word(0x600e);
        Word(M68K_EMUL_OP_VIDEO_CONTROL);       // Control()
        Word(0x0c68); Word(0x0001); Word(0x001a);
        Word(0x6604);
        Word(0x4e75);
        Word(M68K_EMUL_OP_VIDEO_STATUS);        // Status()
        Word(0x3228); Word(0x0006);                     // IOReturn
        Word(0x0801); Word(0x0009);
        Word(0x670c);
        Word(0x4a40);
        Word(0x6f02);
        Word(0x4240);
        Word(0x3140); Word(0x0010);
        Word(0x4e75);
        Word(0x4a40);
        Word(0x6f04);
        Word(0x4240);
        Word(0x4e75);
        Word(0x2f38); Word(0x08fc);
        Word(0x4e75);
        Word(0x70e8);                                           // Close()
        Word(0x4e75);

        vidDrvrDir = p;                                         // Driver directory
        Offs(0x02, videoDrvr);                          // sMacOS68020
        EndOfList();

        defaultGamma = p;                                       // Gamma table
        Long(38 + 0x100);                                       // Length
        Word(0x2000);                                           // Resource ID
        String("Mac HiRes Std Gamma");
        Word(0);                                                        // Version
        Word(0);                                                        // Type
        Word(0);                                                        // FormulaSize
        Word(1);                                                        // ChanCnt
        Word(0x0100);                                           // DataCnt
        Word(8);                                                        // ChanWidth
        Long(0x0005090B); Long(0x0E101315); Long(0x17191B1D); Long(0x1E202224);
        Long(0x2527282A); Long(0x2C2D2F30); Long(0x31333436); Long(0x37383A3B);
        Long(0x3C3E3F40); Long(0x42434445); Long(0x4748494A); Long(0x4B4D4E4F);
        Long(0x50515254); Long(0x55565758); Long(0x595A5B5C); Long(0x5E5F6061);
        Long(0x62636465); Long(0x66676869); Long(0x6A6B6C6D); Long(0x6E6F7071);
        Long(0x72737475); Long(0x76777879); Long(0x7A7B7C7D); Long(0x7E7F8081);
        Long(0x81828384); Long(0x85868788); Long(0x898A8B8C); Long(0x8C8D8E8F);
        Long(0x90919293); Long(0x94959596); Long(0x9798999A); Long(0x9B9B9C9D);
        Long(0x9E9FA0A1); Long(0xA1A2A3A4); Long(0xA5A6A6A7); Long(0xA8A9AAAB);
        Long(0xABACADAE); Long(0xAFB0B0B1); Long(0xB2B3B4B4); Long(0xB5B6B7B8);
        Long(0xB8B9BABB); Long(0xBCBCBDBE); Long(0xBFC0C0C1); Long(0xC2C3C3C4);
        Long(0xC5C6C7C7); Long(0xC8C9CACA); Long(0xCBCCCDCD); Long(0xCECFD0D0);
        Long(0xD1D2D3D3); Long(0xD4D5D6D6); Long(0xD7D8D9D9); Long(0xDADBDCDC);
        Long(0xDDDEDFDF); Long(0xE0E1E1E2); Long(0xE3E4E4E5); Long(0xE6E7E7E8);
        Long(0xE9E9EAEB); Long(0xECECEDEE); Long(0xEEEFF0F1); Long(0xF1F2F3F3);
        Long(0xF4F5F5F6); Long(0xF7F8F8F9); Long(0xFAFAFBFC); Long(0xFCFDFEFF);

        gammaDir = p;                                           // Gamma directory
        Offs(0x80, defaultGamma);
        EndOfList();

        for (m = VideoMonitors.begin(); m != mend; ++m)
                sRsrcVideo.push_back(VMonitor(**m, videoType, videoName, vidDrvrDir, gammaDir));

        // CPU sResource
        cpuType = p;                                            // Literals
        Word(10); Word(3); Word(0); Word(24);   // CPU 68020
        cpuName = p;
        String("CPU_68020");
        cpuMajor = p;
        Long(0); Long(0x7fffffff);
        cpuMinor = p;
        Long(0xf0800000); Long(0xf0ffffff);

        sRsrcCPU = p;
        Offs(0x01, cpuType);                            // Type descriptor
        Offs(0x02, cpuName);                            // CPU name
        Offs(0x81, cpuMajor);                           // Major RAM space
        Offs(0x82, cpuMinor);                           // Minor RAM space
        EndOfList();

        // Ethernet sResource
        etherType = p;                                          // Literals
        Word(4); Word(1); Word(1); Word(0x4232);        // Network Ethernet Apple 'B2'
        etherName = p;
        String("Network_Ethernet_Apple_BasiliskII");

        etherDrvr = p;                                          // Video driver
        Long(0x88);                                                     // Length
        Word(0x4400); Word(0); Word(0); Word(0);
        Word(0x4a);                                                     // Open offset
        Word(0x4e);                                                     // Prime offset
        Word(0x52);                                                     // Control offset
        Word(0x4e);                                                     // Status offset
        Word(0x82);                                                     // Close offset
        PString(".ENET");
        Word(0x0111); Word(0x8000);                     // Driver version
        Word(0);
        PString("1.1.1  ");
        PString("Basilisk II Ethernet Network Driver");
        Word(M68K_EMUL_OP_ETHER_OPEN);          // Open()
        Word(0x4e75);
        Word(0x70ef);                                           // Prime()/Status()
        Word(0x600c);
        Word(M68K_EMUL_OP_ETHER_CONTROL);       // Control()
        Word(0x0c68); Word(0x0001); Word(0x001a);
        Word(0x6602);
        Word(0x4e75);
        Word(0x3228); Word(0x0006);                     // IOReturn
        Word(0x0801); Word(0x0009);
        Word(0x670c);
        Word(0x4a40);
        Word(0x6f02);
        Word(0x4240);
        Word(0x3140); Word(0x0010);
        Word(0x4e75);
        Word(0x4a40);
        Word(0x6f04);
        Word(0x4240);
        Word(0x4e75);
        Word(0x2f38); Word(0x08fc);
        Word(0x4e75);
        Word(0x70e8);                                           // Close()
        Word(0x4e75);

        etherDrvrDir = p;                                       // Driver directory
        Offs(0x02, etherDrvr);                          // sMacOS68020
        EndOfList();

        sRsrcEther = p;
        Offs(0x01, etherType);                          // Type descriptor
        Offs(0x02, etherName);                          // Driver name
        Offs(0x04, etherDrvrDir);                       // Driver directory
        Rsrc(0x07, 2);                                          // Flags: OpenAtStart
        Rsrc(0x08, 0x4232);                                     // Hardware device ID ('B2')
        EndOfList();

        // sResource directory
        sRsrcDir = p;
        Offs(0x01, sRsrcBoard);
        for (m = VideoMonitors.begin(), i = 0; m != mend; ++m, ++i)
                Offs((*m)->get_slot_id(), sRsrcVideo[i]);
        Offs(0xf0, sRsrcCPU);
        Offs(0xf1, sRsrcEther);
        EndOfList();

        // Format/header block
        Offs(0, sRsrcDir);                                      // sResource directory
        Long(p + 16);                                           // Length of declaration data
        Long(0);                                                        // CRC (calculated later)
        Word(0x0101);                                           // Rev. level, format
        Long(0x5a932bc7);                                       // Test pattern
        Word(0x000f);                                           // Byte lanes

        // Copy slot ROM to Mac ROM
        slot_rom_size = p;
        memcpy(ROMBaseHost + ROMSize - slot_rom_size, srom, slot_rom_size);

        // Calculate checksum
        ChecksumSlotROM();
        return true;
}

/*
 *  Calculate slot ROM checksum (in-place)
 */

void ChecksumSlotROM(void)
{
        // Calculate CRC
        uint8 *p = ROMBaseHost + ROMSize - slot_rom_size;
        p[slot_rom_size - 12] = 0;
        p[slot_rom_size - 11] = 0;
        p[slot_rom_size - 10] = 0;
        p[slot_rom_size - 9] = 0;
        uint32 crc = 0;
        for (int i=0; i<slot_rom_size; i++) {
                crc = (crc << 1) | (crc >> 31);
                crc += p[i];
        }
        p[slot_rom_size - 12] = crc >> 24;
        p[slot_rom_size - 11] = crc >> 16;
        p[slot_rom_size - 10] = crc >> 8;
        p[slot_rom_size - 9] = crc;
}
Revision:	1.16
Committed:	2005-01-30T21:42:13Z (19 years, 9 months ago) by gbeauche
Branch:	MAIN
CVS Tags:	nigel-build-19, nigel-build-17
Changes since 1.15:	+1 -1 lines
Log Message:	Happy New Year!
#	User	Rev	Content
1	cebix	1.1	/*
2			* slot_rom.cpp - Slot declaration ROM
3			*
4	gbeauche	1.16	* Basilisk II (C) 1997-2005 Christian Bauer
5	cebix	1.1	*
6			* This program is free software; you can redistribute it and/or modify
7			* it under the terms of the GNU General Public License as published by
8			* the Free Software Foundation; either version 2 of the License, or
9			* (at your option) any later version.
10			*
11			* This program is distributed in the hope that it will be useful,
12			* but WITHOUT ANY WARRANTY; without even the implied warranty of
13			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14			* GNU General Public License for more details.
15			*
16			* You should have received a copy of the GNU General Public License
17			* along with this program; if not, write to the Free Software
18			* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19			*/
20
21			/*
22			* SEE ALSO
23			* Inside Macintosh: Devices, chapter 2 "Slot Manager"
24			* Designing Cards and Drivers for the Macintosh Family, Second Edition
25			*/
26
27			#include <stdio.h>
28			#include <string.h>
29
30			#include "sysdeps.h"
31			#include "cpu_emulation.h"
32			#include "main.h"
33			#include "video.h"
34			#include "emul_op.h"
35			#include "version.h"
36			#include "slot_rom.h"
37
38
39			// Temporary buffer for slot ROM
40			static uint8 srom[4096];
41
42			// Index in srom
43			static uint32 p;
44
45	cebix	1.9	// Length of slot ROM
46			static int slot_rom_size = 0;
47
48	cebix	1.1
49			/*
50			* Construct slot declaration ROM and copy it into the Mac ROM (must be called after VideoInit())
51			*/
52
53			static void Offs(uint8 type, uint32 ptr)
54			{
55			uint32 offs = ptr - p;
56			srom[p++] = type;
57			srom[p++] = offs >> 16;
58			srom[p++] = offs >> 8;
59			srom[p++] = offs;
60			}
61
62			static void Rsrc(uint8 type, uint32 data)
63			{
64			srom[p++] = type;
65			srom[p++] = data >> 16;
66			srom[p++] = data >> 8;
67			srom[p++] = data;
68			}
69
70			static void EndOfList(void)
71			{
72			srom[p++] = 0xff;
73			srom[p++] = 0;
74			srom[p++] = 0;
75			srom[p++] = 0;
76			}
77
78			static void Long(uint32 data)
79			{
80			srom[p++] = data >> 24;
81			srom[p++] = data >> 16;
82			srom[p++] = data >> 8;
83			srom[p++] = data;
84			}
85
86			static void Word(uint16 data)
87			{
88			srom[p++] = data >> 8;
89			srom[p++] = data;
90			}
91
92			static void String(char *str)
93			{
94			while ((srom[p++] = *str++) != 0) ;
95			if (p & 1)
96			srom[p++] = 0;
97			}
98
99			static void PString(char *str)
100			{
101			srom[p++] = strlen(str);
102			while ((srom[p++] = *str++) != 0) ;
103			p--;
104			if (p & 1)
105			srom[p++] = 0;
106			}
107
108	cebix	1.14	static uint32 VModeParms(const monitor_desc &m, video_depth depth)
109	cebix	1.5	{
110	cebix	1.14	const video_mode &mode = m.get_current_mode();
111
112	cebix	1.5	uint32 ret = p;
113	cebix	1.7	Long(50); // Length
114			Long(0); // Base offset
115	cebix	1.14	Word(m.get_bytes_per_row(depth, mode.resolution_id));
116	cebix	1.7	Word(0); // Bounds
117	cebix	1.5	Word(0);
118	cebix	1.11	Word(mode.y);
119			Word(mode.x);
120	cebix	1.7	Word(0); // Version
121			Word(0); // Pack type
122			Long(0); // Pack size
123			Long(0x00480000); // HRes
124			Long(0x00480000); // VRes
125	cebix	1.5	switch (depth) {
126			case VDEPTH_1BIT:
127	cebix	1.7	Word(0); // Pixel type (indirect)
128			Word(1); // Pixel size
129			Word(1); // CmpCount
130			Word(1); // CmpSize
131	cebix	1.5	break;
132			case VDEPTH_2BIT:
133	cebix	1.7	Word(0); // Pixel type (indirect)
134			Word(2); // Pixel size
135			Word(1); // CmpCount
136			Word(2); // CmpSize
137	cebix	1.5	break;
138			case VDEPTH_4BIT:
139	cebix	1.7	Word(0); // Pixel type (indirect)
140			Word(4); // Pixel size
141			Word(1); // CmpCount
142			Word(4); // CmpSize
143	cebix	1.5	break;
144			case VDEPTH_8BIT:
145	cebix	1.7	Word(0); // Pixel type (indirect)
146			Word(8); // Pixel size
147			Word(1); // CmpCount
148			Word(8); // CmpSize
149	cebix	1.5	break;
150			case VDEPTH_16BIT:
151	cebix	1.7	Word(16); // Pixel type (direct)
152			Word(16); // Pixel size
153			Word(3); // CmpCount
154			Word(5); // CmpSize
155	cebix	1.5	break;
156			case VDEPTH_32BIT:
157	cebix	1.7	Word(16); // Pixel type (direct)
158			Word(32); // Pixel size
159			Word(3); // CmpCount
160			Word(8); // CmpSize
161	cebix	1.5	break;
162			}
163	cebix	1.7	Long(0); // Plane size
164			Long(0); // Reserved
165	cebix	1.5	return ret;
166			}
167
168			static uint32 VModeDesc(uint32 params, bool direct)
169			{
170			uint32 ret = p;
171			Offs(0x01, params); // Video parameters
172			Rsrc(0x03, 1); // Page count
173			Rsrc(0x04, direct ? 2 : 0); // Device type
174			EndOfList();
175			return ret;
176			}
177
178	cebix	1.14	static uint32 VMonitor(const monitor_desc &m, uint32 videoType, uint32 videoName, uint32 vidDrvrDir, uint32 gammaDir)
179			{
180			uint32 minorBase, minorLength;
181			uint32 vidModeParms1, vidModeParms2, vidModeParms4, vidModeParms8, vidModeParms16, vidModeParms32;
182			uint32 vidMode1, vidMode2, vidMode4, vidMode8, vidMode16, vidMode32;
183			uint32 ret;
184
185			minorBase = p;
186			Long(m.get_mac_frame_base()); // Frame buffer base
187			minorLength = p;
188			Long(0); // Frame buffer size (unspecified)
189
190			vidModeParms1 = VModeParms(m, VDEPTH_1BIT);
191			vidModeParms2 = VModeParms(m, VDEPTH_2BIT);
192			vidModeParms4 = VModeParms(m, VDEPTH_4BIT);
193			vidModeParms8 = VModeParms(m, VDEPTH_8BIT);
194			vidModeParms16 = VModeParms(m, VDEPTH_16BIT);
195			vidModeParms32 = VModeParms(m, VDEPTH_32BIT);
196
197			vidMode1 = VModeDesc(vidModeParms1, false);
198			vidMode2 = VModeDesc(vidModeParms2, false);
199			vidMode4 = VModeDesc(vidModeParms4, false);
200			vidMode8 = VModeDesc(vidModeParms8, false);
201			vidMode16 = VModeDesc(vidModeParms16, true);
202			vidMode32 = VModeDesc(vidModeParms32, true);
203
204			ret = p;
205			Offs(0x01, videoType); // Video type descriptor
206			Offs(0x02, videoName); // Driver name
207			Offs(0x04, vidDrvrDir); // Driver directory
208			Rsrc(0x08, 0x4232); // Hardware device ID ('B2')
209			Offs(0x0a, minorBase); // Frame buffer base
210			Offs(0x0b, minorLength); // Frame buffer length
211			Offs(0x40, gammaDir); // Gamma directory
212			Rsrc(0x7d, 6); // Video attributes: Default to color, built-in
213			if (m.has_depth(VDEPTH_1BIT))
214			Offs(m.depth_to_apple_mode(VDEPTH_1BIT), vidMode1); // Video mode parameters for 1 bit
215			if (m.has_depth(VDEPTH_2BIT))
216			Offs(m.depth_to_apple_mode(VDEPTH_2BIT), vidMode2); // Video mode parameters for 2 bit
217			if (m.has_depth(VDEPTH_4BIT))
218			Offs(m.depth_to_apple_mode(VDEPTH_4BIT), vidMode4); // Video mode parameters for 4 bit
219			if (m.has_depth(VDEPTH_8BIT))
220			Offs(m.depth_to_apple_mode(VDEPTH_8BIT), vidMode8); // Video mode parameters for 8 bit
221			if (m.has_depth(VDEPTH_16BIT))
222			Offs(m.depth_to_apple_mode(VDEPTH_16BIT), vidMode16); // Video mode parameters for 16 bit
223			if (m.has_depth(VDEPTH_32BIT))
224			Offs(m.depth_to_apple_mode(VDEPTH_32BIT), vidMode32); // Video mode parameters for 32 bit
225			EndOfList();
226			return ret;
227			}
228
229	cebix	1.1	bool InstallSlotROM(void)
230			{
231			uint32 boardType, boardName, vendorID, revLevel, partNum, date;
232			uint32 vendorInfo, sRsrcBoard;
233
234	cebix	1.14	uint32 videoType, videoName, videoDrvr, vidDrvrDir;
235			uint32 defaultGamma, gammaDir;
236	cebix	1.1
237			uint32 cpuType, cpuName, cpuMajor, cpuMinor, sRsrcCPU;
238
239			uint32 etherType, etherName, etherDrvr, etherDrvrDir, sRsrcEther;
240
241			uint32 sRsrcDir;
242
243	cebix	1.14	vector<monitor_desc *>::const_iterator m, mend = VideoMonitors.end();
244			vector<uint32> sRsrcVideo;
245
246	cebix	1.1	char str[256];
247	cebix	1.14	int i;
248	cebix	1.1	p = 0;
249
250			// Board sResource
251			boardType = p; // Literals
252			Word(1); Word(0); Word(0); Word(0); // Board sResource
253			boardName = p;
254			String("Basilisk II Slot ROM");
255			vendorID = p;
256			String("Christian Bauer");
257			revLevel = p;
258			sprintf(str, "V%d.%d", VERSION_MAJOR, VERSION_MINOR);
259			String(str);
260			partNum = p;
261			String("BasiliskII");
262			date = p;
263			String(__DATE__);
264
265			vendorInfo = p; // Vendor Info
266			Offs(0x01, vendorID); // Vendor ID
267			Offs(0x03, revLevel); // Revision level
268			Offs(0x04, partNum); // Part number
269			Offs(0x05, date); // ROM build date
270			EndOfList();
271
272			sRsrcBoard = p;
273			Offs(0x01, boardType); // Board descriptor
274			Offs(0x02, boardName); // Board name
275			Rsrc(0x20, 0x4232); // Board ID ('B2')
276			Offs(0x24, vendorInfo); // Vendor Info
277			EndOfList();
278
279	cebix	1.14	videoType = p;
280	cebix	1.7	Word(3); Word(1); Word(1); Word(0x4232); // Display Video Apple 'B2'
281	cebix	1.1	videoName = p;
282			String("Display_Video_Apple_Basilisk");
283
284			videoDrvr = p; // Video driver
285			Long(0x72); // Length
286			Word(0x4c00); Word(0); Word(0); Word(0);
287			Word(0x32); // Open offset
288			Word(0x36); // Prime offset
289			Word(0x3a); // Control offset
290			Word(0x46); // Status offset
291			Word(0x6c); // Close offset
292			PString(".Display_Video_Apple_Basilisk");
293			Word(1); // Driver version
294			Word(M68K_EMUL_OP_VIDEO_OPEN); // Open()
295			Word(0x4e75);
296			Word(0x70ff); // Prime()
297			Word(0x600e);
298			Word(M68K_EMUL_OP_VIDEO_CONTROL); // Control()
299			Word(0x0c68); Word(0x0001); Word(0x001a);
300			Word(0x6604);
301			Word(0x4e75);
302			Word(M68K_EMUL_OP_VIDEO_STATUS); // Status()
303			Word(0x3228); Word(0x0006); // IOReturn
304			Word(0x0801); Word(0x0009);
305			Word(0x670c);
306			Word(0x4a40);
307			Word(0x6f02);
308			Word(0x4240);
309			Word(0x3140); Word(0x0010);
310			Word(0x4e75);
311			Word(0x4a40);
312			Word(0x6f04);
313			Word(0x4240);
314			Word(0x4e75);
315			Word(0x2f38); Word(0x08fc);
316			Word(0x4e75);
317			Word(0x70e8); // Close()
318			Word(0x4e75);
319
320			vidDrvrDir = p; // Driver directory
321			Offs(0x02, videoDrvr); // sMacOS68020
322			EndOfList();
323
324			defaultGamma = p; // Gamma table
325			Long(38 + 0x100); // Length
326			Word(0x2000); // Resource ID
327			String("Mac HiRes Std Gamma");
328			Word(0); // Version
329			Word(0); // Type
330			Word(0); // FormulaSize
331			Word(1); // ChanCnt
332			Word(0x0100); // DataCnt
333			Word(8); // ChanWidth
334			Long(0x0005090B); Long(0x0E101315); Long(0x17191B1D); Long(0x1E202224);
335			Long(0x2527282A); Long(0x2C2D2F30); Long(0x31333436); Long(0x37383A3B);
336			Long(0x3C3E3F40); Long(0x42434445); Long(0x4748494A); Long(0x4B4D4E4F);
337			Long(0x50515254); Long(0x55565758); Long(0x595A5B5C); Long(0x5E5F6061);
338			Long(0x62636465); Long(0x66676869); Long(0x6A6B6C6D); Long(0x6E6F7071);
339			Long(0x72737475); Long(0x76777879); Long(0x7A7B7C7D); Long(0x7E7F8081);
340			Long(0x81828384); Long(0x85868788); Long(0x898A8B8C); Long(0x8C8D8E8F);
341			Long(0x90919293); Long(0x94959596); Long(0x9798999A); Long(0x9B9B9C9D);
342			Long(0x9E9FA0A1); Long(0xA1A2A3A4); Long(0xA5A6A6A7); Long(0xA8A9AAAB);
343			Long(0xABACADAE); Long(0xAFB0B0B1); Long(0xB2B3B4B4); Long(0xB5B6B7B8);
344			Long(0xB8B9BABB); Long(0xBCBCBDBE); Long(0xBFC0C0C1); Long(0xC2C3C3C4);
345			Long(0xC5C6C7C7); Long(0xC8C9CACA); Long(0xCBCCCDCD); Long(0xCECFD0D0);
346			Long(0xD1D2D3D3); Long(0xD4D5D6D6); Long(0xD7D8D9D9); Long(0xDADBDCDC);
347			Long(0xDDDEDFDF); Long(0xE0E1E1E2); Long(0xE3E4E4E5); Long(0xE6E7E7E8);
348			Long(0xE9E9EAEB); Long(0xECECEDEE); Long(0xEEEFF0F1); Long(0xF1F2F3F3);
349			Long(0xF4F5F5F6); Long(0xF7F8F8F9); Long(0xFAFAFBFC); Long(0xFCFDFEFF);
350
351			gammaDir = p; // Gamma directory
352			Offs(0x80, defaultGamma);
353			EndOfList();
354
355	cebix	1.14	for (m = VideoMonitors.begin(); m != mend; ++m)
356			sRsrcVideo.push_back(VMonitor(**m, videoType, videoName, vidDrvrDir, gammaDir));
357	cebix	1.1
358			// CPU sResource
359			cpuType = p; // Literals
360			Word(10); Word(3); Word(0); Word(24); // CPU 68020
361			cpuName = p;
362			String("CPU_68020");
363			cpuMajor = p;
364			Long(0); Long(0x7fffffff);
365			cpuMinor = p;
366			Long(0xf0800000); Long(0xf0ffffff);
367
368			sRsrcCPU = p;
369			Offs(0x01, cpuType); // Type descriptor
370			Offs(0x02, cpuName); // CPU name
371			Offs(0x81, cpuMajor); // Major RAM space
372			Offs(0x82, cpuMinor); // Minor RAM space
373			EndOfList();
374
375			// Ethernet sResource
376			etherType = p; // Literals
377			Word(4); Word(1); Word(1); Word(0x4232); // Network Ethernet Apple 'B2'
378			etherName = p;
379			String("Network_Ethernet_Apple_BasiliskII");
380
381			etherDrvr = p; // Video driver
382			Long(0x88); // Length
383			Word(0x4400); Word(0); Word(0); Word(0);
384			Word(0x4a); // Open offset
385			Word(0x4e); // Prime offset
386			Word(0x52); // Control offset
387			Word(0x4e); // Status offset
388			Word(0x82); // Close offset
389			PString(".ENET");
390			Word(0x0111); Word(0x8000); // Driver version
391			Word(0);
392			PString("1.1.1 ");
393			PString("Basilisk II Ethernet Network Driver");
394			Word(M68K_EMUL_OP_ETHER_OPEN); // Open()
395			Word(0x4e75);
396			Word(0x70ef); // Prime()/Status()
397			Word(0x600c);
398			Word(M68K_EMUL_OP_ETHER_CONTROL); // Control()
399			Word(0x0c68); Word(0x0001); Word(0x001a);
400			Word(0x6602);
401			Word(0x4e75);
402			Word(0x3228); Word(0x0006); // IOReturn
403			Word(0x0801); Word(0x0009);
404			Word(0x670c);
405			Word(0x4a40);
406			Word(0x6f02);
407			Word(0x4240);
408			Word(0x3140); Word(0x0010);
409			Word(0x4e75);
410			Word(0x4a40);
411			Word(0x6f04);
412			Word(0x4240);
413			Word(0x4e75);
414			Word(0x2f38); Word(0x08fc);
415			Word(0x4e75);
416			Word(0x70e8); // Close()
417			Word(0x4e75);
418
419			etherDrvrDir = p; // Driver directory
420			Offs(0x02, etherDrvr); // sMacOS68020
421			EndOfList();
422
423			sRsrcEther = p;
424			Offs(0x01, etherType); // Type descriptor
425			Offs(0x02, etherName); // Driver name
426			Offs(0x04, etherDrvrDir); // Driver directory
427			Rsrc(0x07, 2); // Flags: OpenAtStart
428			Rsrc(0x08, 0x4232); // Hardware device ID ('B2')
429			EndOfList();
430
431			// sResource directory
432			sRsrcDir = p;
433			Offs(0x01, sRsrcBoard);
434	cebix	1.14	for (m = VideoMonitors.begin(), i = 0; m != mend; ++m, ++i)
435			Offs((*m)->get_slot_id(), sRsrcVideo[i]);
436	cebix	1.1	Offs(0xf0, sRsrcCPU);
437			Offs(0xf1, sRsrcEther);
438			EndOfList();
439
440			// Format/header block
441			Offs(0, sRsrcDir); // sResource directory
442			Long(p + 16); // Length of declaration data
443	cebix	1.9	Long(0); // CRC (calculated later)
444	cebix	1.1	Word(0x0101); // Rev. level, format
445			Long(0x5a932bc7); // Test pattern
446			Word(0x000f); // Byte lanes
447
448	cebix	1.9	// Copy slot ROM to Mac ROM
449			slot_rom_size = p;
450			memcpy(ROMBaseHost + ROMSize - slot_rom_size, srom, slot_rom_size);
451
452			// Calculate checksum
453			ChecksumSlotROM();
454			return true;
455			}
456
457			/*
458			* Calculate slot ROM checksum (in-place)
459			*/
460
461			void ChecksumSlotROM(void)
462			{
463	cebix	1.1	// Calculate CRC
464	cebix	1.9	uint8 *p = ROMBaseHost + ROMSize - slot_rom_size;
465			p[slot_rom_size - 12] = 0;
466			p[slot_rom_size - 11] = 0;
467			p[slot_rom_size - 10] = 0;
468			p[slot_rom_size - 9] = 0;
469	cebix	1.1	uint32 crc = 0;
470	cebix	1.12	for (int i=0; i<slot_rom_size; i++) {
471	cebix	1.1	crc = (crc << 1) \| (crc >> 31);
472	cebix	1.9	crc += p[i];
473	cebix	1.1	}
474	cebix	1.9	p[slot_rom_size - 12] = crc >> 24;
475			p[slot_rom_size - 11] = crc >> 16;
476			p[slot_rom_size - 10] = crc >> 8;
477			p[slot_rom_size - 9] = crc;
478	cebix	1.1	}