// license:BSD-3-Clause
// copyright-holders:Nicola Salmoria
/*
Data East Custom Chip 102 decryption
(encrypted 68000)
by Nicola Salmoria
*/
#include "emu.h"
#include "cpu/m68000/m68000.h"
#include "machine/deco102.h"
static uint16_t decrypt(uint16_t data, int address, int select_xor)
{
static const uint16_t xors[16] =
{
0xb52c,0x2458,0x139a,0xc998,0xce8e,0x5144,0x0429,0xaad4,0xa331,0x3645,0x69a3,0xac64,0x1a53,0x5083,0x4dea,0xd237
};
static const uint8_t bitswaps[16][16] =
{
{ 12,8,13,11,14,10,15,9, 3,2,1,0,4,5,6,7 }, { 10,11,14,12,15,13,8,9, 6,7,5,3,0,4,2,1 },
{ 14,13,15,9,8,12,11,10, 7,4,1,5,6,0,3,2 }, { 15,14,8,9,10,11,13,12, 1,2,7,3,4,6,0,5 },
{ 10,9,13,14,15,8,12,11, 5,2,1,0,3,4,7,6 }, { 8,9,15,14,10,11,13,12, 0,6,5,4,1,2,3,7 },
{ 14,8,15,9,10,11,13,12, 4,5,3,0,2,7,6,1 }, { 13,11,12,10,15,9,14,8, 6,0,7,5,1,4,3,2 },
{ 12,11,13,10,9,8,14,15, 0,2,4,6,7,5,3,1 }, { 15,13,9,8,10,11,12,14, 2,1,0,7,6,5,4,3 },
{ 13,8,9,10,11,12,15,14, 6,0,1,2,3,7,4,5 }, { 12,11,10,8,9,13,14,15, 6,5,4,0,7,1,2,3 },
{ 12,15,8,13,9,11,14,10, 6,5,4,3,2,1,0,7 }, { 11,12,13,14,15,8,9,10, 4,5,7,1,6,3,2,0 },
{ 13,8,12,14,11,15,10,9, 7,6,5,4,3,2,1,0 }, { 15,14,13,12,11,10,9,8, 0,6,7,4,3,2,1,5 }
};
int j, xorval;
const uint8_t *bs;
// calculate bitswap to use
j = ((address ^ select_xor) & 0xf0) >> 4;
if (address & 0x20000) j ^= 4;
bs = bitswaps[j];
// calculate xor to use
j = (address ^ select_xor) & 0x0f;
if (address & 0x40000) j ^= 2; // boogwing
xorval = xors[j];
// decrypt
return xorval ^ bitswap<16>(data,
bs[0],bs[1],bs[2],bs[3],bs[4],bs[5],bs[6],bs[7],
bs[8],bs[9],bs[10],bs[11],bs[12],bs[13],bs[14],bs[15]);
}
void deco102_decrypt_cpu(uint16_t *rom, uint16_t *opcodes, int size, int address_xor, int data_select_xor, int opcode_select_xor)
{
std::vector<uint16_t> buf(size / 2);
memcpy(&buf[0], rom, size);
for (int i = 0; i < size / 2; i++)
{
int src;
// calculate address of encrypted word in ROM
src = i & 0xf0000;
if (i & 0x0001) src ^= 0xbe0b;
if (i & 0x0002) src ^= 0x5699;
if (i & 0x0004) src ^= 0x1322;
if (i & 0x0008) src ^= 0x0004;
if (i & 0x0010) src ^= 0x08a0;
if (i & 0x0020) src ^= 0x0089;
if (i & 0x0040) src ^= 0x0408;
if (i & 0x0080) src ^= 0x1212;
if (i & 0x0100) src ^= 0x08e0;
if (i & 0x0200) src ^= 0x5499;
if (i & 0x0400) src ^= 0x9a8b;
if (i & 0x0800) src ^= 0x1222;
if (i & 0x1000) src ^= 0x1200;
if (i & 0x2000) src ^= 0x0008;
if (i & 0x4000) src ^= 0x1210;
if (i & 0x8000) src ^= 0x00e0;
src ^= address_xor;
rom[i] = decrypt(buf[src], i, data_select_xor);
opcodes[i] = decrypt(buf[src], i, opcode_select_xor);
}
}