repo2/firmware_5200/main_real.c @ 189
| 179 | markw | #include "integer.h"
|
|
#include "regs.h"
|
|||
#include "pause.h"
|
|||
#include "printf.h"
|
|||
#include "joystick.h"
|
|||
#include "freeze.h"
|
|||
#include "simpledir.h"
|
|||
#include "simplefile.h"
|
|||
#include "fileselector.h"
|
|||
void actions();
|
|||
extern char ROM_DIR[];
|
|||
// FUNCTIONS in here
|
|||
// i) pff init - NOT USED EVERYWHERE
|
|||
// ii) file selector - kind of crap, no fine scrolling - NOT USED EVERYWHERE
|
|||
// iii) cold reset atari (clears base ram...)
|
|||
// iv) start atari (begins paused)
|
|||
// v) freeze/resume atari - NOT USED EVERYWHERE!
|
|||
// vi) menu for various options - NOT USED EVERYWHERE!
|
|||
// vii) pause - TODO - base this on pokey clock...
|
|||
// standard ZPU IN/OUT use...
|
|||
// OUT1 - 6502 settings (pause,reset,speed)
|
|||
// pause_n: bit 0
|
|||
// reset_n: bit 1
|
|||
// turbo: bit 2-4: meaning... 0=1.79Mhz,1=3.58MHz,2=7.16MHz,3=14.32MHz,4=28.64MHz,5=57.28MHz,etc.
|
|||
// ram_select: bit 5-7:
|
|||
// RAM_SELECT : in std_logic_vector(2 downto 0); -- 64K,128K,320KB Compy, 320KB Rambo, 576K Compy, 576K Rambo, 1088K, 4MB
|
|||
// rom_select: bit 8-13:
|
|||
// ROM_SELECT : in std_logic_vector(5 downto 0); -- 16KB ROM Bank
|
|||
#define BIT_REG(op,mask,shift,name,reg) \
|
|||
int get_ ## name() \
|
|||
{ \
|
|||
int val = *reg; \
|
|||
return op((val>>shift)&mask); \
|
|||
} \
|
|||
void set_ ## name(int param) \
|
|||
{ \
|
|||
int val = *reg; \
|
|||
\
|
|||
val = (val&~(mask<<shift)); \
|
|||
val |= op(param)<<shift; \
|
|||
\
|
|||
*reg = val; \
|
|||
}
|
|||
#define BIT_REG_RO(op,mask,shift,name,reg) \
|
|||
int get_ ## name() \
|
|||
{ \
|
|||
int val = *reg; \
|
|||
return op((val>>shift)&mask); \
|
|||
}
|
|||
BIT_REG(,0x1,0,pause_6502,zpu_out1)
|
|||
BIT_REG(,0x1,1,reset_6502,zpu_out1)
|
|||
BIT_REG(,0x3f,2,turbo_6502,zpu_out1)
|
|||
BIT_REG(,0x7,8,ram_select,zpu_out1)
|
|||
BIT_REG(,0x3f,11,rom_select,zpu_out1)
|
|||
BIT_REG_RO(,0x1,8,hotkey_softboot,zpu_in1)
|
|||
BIT_REG_RO(,0x1,9,hotkey_coldboot,zpu_in1)
|
|||
BIT_REG_RO(,0x1,10,hotkey_fileselect,zpu_in1)
|
|||
BIT_REG_RO(,0x1,11,hotkey_settings,zpu_in1)
|
|||
void
|
|||
wait_us(int unsigned num)
|
|||
{
|
|||
// pause counter runs at pokey frequency - should be 1.79MHz
|
|||
int unsigned cycles = (num*230)>>7;
|
|||
*zpu_pause = cycles;
|
|||
}
|
|||
void memset8(void * address, int value, int length)
|
|||
{
|
|||
char * mem = address;
|
|||
while (length--)
|
|||
*mem++=value;
|
|||
}
|
|||
void memset32(void * address, int value, int length)
|
|||
{
|
|||
int * mem = address;
|
|||
while (length--)
|
|||
*mem++=value;
|
|||
}
|
|||
void clear_64k_ram()
|
|||
{
|
|||
memset8((void *)0x200000, 0, 16384); // SRAM, if present (TODO)
|
|||
memset32((void *)0x800000, 0, 4096);
|
|||
}
|
|||
void
|
|||
reboot(int cold)
|
|||
{
|
|||
set_pause_6502(1);
|
|||
if (cold)
|
|||
{
|
|||
clear_64k_ram();
|
|||
}
|
|||
set_reset_6502(1);
|
|||
// Do nothing in here - this resets the memory controller!
|
|||
set_reset_6502(0);
|
|||
set_pause_6502(0);
|
|||
}
|
|||
unsigned char toatarichar(int val)
|
|||
{
|
|||
int inv = val>=128;
|
|||
if (inv)
|
|||
{
|
|||
val-=128;
|
|||
}
|
|||
if (val>='A' && val<='Z')
|
|||
{
|
|||
val+=-'A'+33;
|
|||
}
|
|||
else if (val>='a' && val<='z')
|
|||
{
|
|||
val+=-'a'+33+64;
|
|||
}
|
|||
else if (val>='0' && val<='9')
|
|||
{
|
|||
val+=-'0'+16;
|
|||
}
|
|||
else if (val>=32 && val<=47)
|
|||
{
|
|||
val+=-32;
|
|||
}
|
|||
else
|
|||
{
|
|||
val = 0;
|
|||
}
|
|||
if (inv)
|
|||
{
|
|||
val+=128;
|
|||
}
|
|||
return val;
|
|||
}
|
|||
int debug_pos;
|
|||
int debug_adjust;
|
|||
unsigned char volatile * baseaddr;
|
|||
void clearscreen()
|
|||
{
|
|||
unsigned volatile char * screen;
|
|||
for (screen=(unsigned volatile char *)11328+atari_regbase; screen!=(unsigned volatile char *)(atari_regbase+11328+1024); ++screen)
|
|||
*screen = 0x00;
|
|||
}
|
|||
void char_out ( void* p, char c)
|
|||
{
|
|||
unsigned char val = toatarichar(c);
|
|||
if (debug_pos>=0)
|
|||
{
|
|||
*(baseaddr+debug_pos) = val|debug_adjust;
|
|||
++debug_pos;
|
|||
}
|
|||
}
|
|||
struct SimpleFile * files[6];
|
|||
void loadromfile(struct SimpleFile * file, int size, void * ram_address)
|
|||
{
|
|||
ram_address += 0x800000;
|
|||
int read = 0;
|
|||
file_read(file, ram_address, size, &read);
|
|||
}
|
|||
void loadrom(char const * path, int size, void * ram_address)
|
|||
{
|
|||
if (SimpleFile_OK == file_open_name(path, files[4]))
|
|||
{
|
|||
loadromfile(files[4], size, ram_address);
|
|||
}
|
|||
}
|
|||
void loadrom_indir(struct SimpleDirEntry * entries, char const * filename, int size, void * ram_address)
|
|||
{
|
|||
if (SimpleFile_OK == file_open_name_in_dir(entries, filename, files[4]))
|
|||
{
|
|||
loadromfile(files[4], size, ram_address);
|
|||
}
|
|||
}
|
|||
void loadosrom()
|
|||
{
|
|||
int j=0;
|
|||
if (file_size(files[5]) == 0x0800)
|
|||
{
|
|||
//wait_us(2000000);
|
|||
//*atari_colbk = 0x48;
|
|||
int i=0;
|
|||
unsigned char * src = (unsigned char *)(ROM_MEM + 0x4000 + 0x800000);
|
|||
unsigned char * dest1 = (unsigned char *)(ROM_MEM + 0x4800 + 0x800000);
|
|||
loadromfile(files[5],0x0800, (void *)(ROM_MEM + 0x4000));
|
|||
//wait_us(2000000);
|
|||
//*atari_colbk = 0x58;
|
|||
for (i=0; i!=0x800; ++i)
|
|||
{
|
|||
dest1[i] = src[i];
|
|||
}
|
|||
// wait_us(2000000);
|
|||
// *atari_colbk = 0x68;
|
|||
// wait_us(2000000);
|
|||
}
|
|||
/*else if (file_size(files[5]) == 0x4000)
|
|||
{
|
|||
loadromfile(files[5],0x4000, (void *)(ROM_MEM + 0x4000));
|
|||
}
|
|||
else if (file_size(files[5]) ==0x2800)
|
|||
{
|
|||
loadromfile(files[5],0x2800, (void *)(ROM_MEM + 0x5800));
|
|||
}*/
|
|||
}
|
|||
int main(void)
|
|||
{
|
|||
/* disk_initialize();
|
|||
{
|
|||
char buffer[512];
|
|||
freeze_init((void*)FREEZE_MEM); // 128k
|
|||
debug_pos = -1;
|
|||
debug_adjust = 0;
|
|||
baseaddr = (unsigned char volatile *)(11328 + atari_regbase);
|
|||
set_pause_6502(1);
|
|||
set_reset_6502(1);
|
|||
set_reset_6502(0);
|
|||
set_turbo_6502(1);
|
|||
set_rom_select(1);
|
|||
set_ram_select(0);
|
|||
init_printf(0, char_out);
|
|||
reboot(1);
|
|||
// for (;;);
|
|||
wait_us(5000000);
|
|||
set_pause_6502(1);
|
|||
freeze();
|
|||
debug_pos = 0;
|
|||
printf("Hello world 3");
|
|||
debug_pos = 40;
|
|||
int i;
|
|||
for (i=0;i!=512; ++i)
|
|||
{
|
|||
buffer[i] = i;
|
|||
}
|
|||
int volatile * x = (int volatile *)0x4000;
|
|||
int volatile * y = (int volatile *)&buffer[0];
|
|||
for (i=0;i!=128; ++i)
|
|||
{
|
|||
x[i] = y[i];
|
|||
}
|
|||
hexdump_pure(0x4000,8);
|
|||
hexdump_pure(0x41f8,8);
|
|||
debug_pos = 120;
|
|||
printf(" Writing sector ");
|
|||
n_actual_mmc_sector = 30;
|
|||
disk_writeflush();
|
|||
printf(" Wrote sector ");
|
|||
for (i=0;i!=128; ++i)
|
|||
{
|
|||
x[i] = 0;
|
|||
}
|
|||
n_actual_mmc_sector = -1;
|
|||
disk_readp(&buffer[0],30,0,512);
|
|||
hexdump_pure(0x4000,8);
|
|||
hexdump_pure(0x41f8,8);
|
|||
debug_pos = 200;
|
|||
disk_readp(&buffer[0],0x103,0,512);
|
|||
hexdump_pure(0x4000,8);
|
|||
hexdump_pure(0x41f8,8);
|
|||
debug_pos = 280;
|
|||
disk_readp(&buffer[0],0,0,512);
|
|||
hexdump_pure(0x4000,8);
|
|||
hexdump_pure(0x41f8,8);
|
|||
debug_pos = 360;
|
|||
printf("OK...");
|
|||
//for (;;);
|
|||
wait_us(10000000);
|
|||
}*/
|
|||
/* spiInit();
|
|||
set_spi_clock_freq();
|
|||
mmcReadLoop();*/
|
|||
/* spiInit();
|
|||
set_spi_clock_freq();
|
|||
char buffer[512];
|
|||
while (1)
|
|||
{
|
|||
mmcReadLoop();
|
|||
wait_us(500);
|
|||
}*/
|
|||
int i;
|
|||
for (i=0; i!=6; ++i)
|
|||
{
|
|||
files[i] = (struct SimpleFile *)alloca(file_struct_size());
|
|||
file_init(files[i]);
|
|||
}
|
|||
freeze_init((void*)FREEZE_MEM); // 128k
|
|||
debug_pos = -1;
|
|||
debug_adjust = 0;
|
|||
baseaddr = (unsigned char volatile *)(11328 + atari_regbase);
|
|||
set_pause_6502(1);
|
|||
set_reset_6502(1);
|
|||
set_reset_6502(0);
|
|||
set_turbo_6502(1);
|
|||
set_rom_select(1);
|
|||
set_ram_select(2);
|
|||
init_printf(0, char_out);
|
|||
//wait_us(2000000);
|
|||
//*atari_colbk = 0x38;
|
|||
// TODO...
|
|||
if (SimpleFile_OK == dir_init((void *)DIR_INIT_MEM, DIR_INIT_MEMSIZE))
|
|||
{
|
|||
// printf("DIR init ok\n");
|
|||
// init_drive_emulator();
|
|||
struct SimpleDirEntry * entries = dir_entries(ROM_DIR);
|
|||
//loadrom_indir(entries,"atarixl.rom",0x4000, (void *)0x704000);
|
|||
/*if (SimpleFile_OK == file_open_name_in_dir(entries, "atarixl.rom", files[5]))
|
|||
{
|
|||
loadosrom();
|
|||
}*/
|
|||
/*loadrom_indir(entries,"xlhias.rom",0x4000, (void *)0x708000);
|
|||
loadrom_indir(entries,"ultimon.rom",0x4000, (void *)0x70c000);
|
|||
loadrom_indir(entries,"osbhias.rom",0x4000, (void *)0x710000);
|
|||
loadrom_indir(entries,"osborig.rom",0x2800, (void *)0x715800);
|
|||
loadrom_indir(entries,"osaorig.rom",0x2800, (void *)0x719800);*/
|
|||
//loadrom_indir(entries,"ataribas.rom",0x2000,(void *)ROM_MEM);
|
|||
if (SimpleFile_OK == file_open_name_in_dir(entries, "5200.rom", files[5]))
|
|||
{
|
|||
loadosrom();
|
|||
}
|
|||
loadrom_indir(entries,"acid5200.rom",0x8000,(void *)0x004000); // XXX - just for 5200 test... do not commit!
|
|||
//ROM = xlorig.rom,0x4000, (void *)0x704000
|
|||
//ROM = xlhias.rom,0x4000, (void *)0x708000
|
|||
//ROM = ultimon.rom,0x4000, (void *)0x70c000
|
|||
//ROM = osbhias.rom,0x4000, (void *)0x710000
|
|||
//ROM = osborig.rom,0x2800, (void *)0x715800
|
|||
//ROM = osaorig.rom,0x2800, (void *)0x719800
|
|||
//
|
|||
//ROM = ataribas.rom,0x2000,(void *)0x700000
|
|||
//--SDRAM_BASIC_ROM_ADDR <= "111"&"000000" &"00000000000000";
|
|||
//--SDRAM_OS_ROM_ADDR <= "111"&rom_select &"00000000000000";
|
|||
//reboot(1);
|
|||
//run_drive_emulator();
|
|||
}
|
|||
else
|
|||
{
|
|||
//printf("DIR init failed\n");
|
|||
}
|
|||
reboot(1);
|
|||
for (;;) actions();
|
|||
}
|
|||
// struct SimpleFile * file = alloca(file_struct_size());
|
|||
// printf("Opening file\n");
|
|||
// if (SimpleFile_OK == file_open_name("GUNPOWDR.ATR",file))
|
|||
// {
|
|||
// printf("FILE open ok\n");
|
|||
//
|
|||
// set_drive_status(0,file);
|
|||
//
|
|||
// }
|
|||
// else
|
|||
// {
|
|||
// printf("FILE open failed\n");
|
|||
// }
|
|||
char const * get_ram()
|
|||
{
|
|||
return "16K";
|
|||
}
|
|||
int settings()
|
|||
{
|
|||
struct joystick_status joy;
|
|||
joy.x_ = joy.y_ = joy.fire_ = 0;
|
|||
int row = 0;
|
|||
int done = 0;
|
|||
for (;!done;)
|
|||
{
|
|||
// Render
|
|||
clearscreen();
|
|||
debug_pos = 0;
|
|||
debug_adjust = 0;
|
|||
printf("Se");
|
|||
debug_adjust = 128;
|
|||
printf("ttings");
|
|||
debug_pos = 80;
|
|||
debug_adjust = row==0 ? 128 : 0;
|
|||
printf("Turbo:%dx", get_turbo_6502());
|
|||
debug_pos = 120;
|
|||
debug_adjust = row==1 ? 128 : 0;
|
|||
printf("Ram:%s", get_ram());
|
|||
debug_pos = 160;
|
|||
debug_adjust = row==2 ? 128 : 0;
|
|||
{
|
|||
printf("Rom:%s", file_name(files[5]));
|
|||
}
|
|||
int i;
|
|||
debug_pos = 200;
|
|||
debug_adjust = row==3 ? 128 : 0;
|
|||
printf("Cartridge 32k");
|
|||
debug_pos = 240;
|
|||
debug_adjust = row==4 ? 128 : 0;
|
|||
printf("Cartridge 16k one chip");
|
|||
debug_pos = 280;
|
|||
debug_adjust = row==5 ? 128 : 0;
|
|||
printf("Cartridge 16k two chip");
|
|||
debug_pos = 320;
|
|||
debug_adjust = row==6 ? 128 : 0;
|
|||
printf("Exit");
|
|||
// Slow it down a bit
|
|||
wait_us(100000);
|
|||
// move
|
|||
joystick_wait(&joy,WAIT_QUIET);
|
|||
joystick_wait(&joy,WAIT_EITHER);
|
|||
row+=joy.y_;
|
|||
if (row<0) row = 0;
|
|||
if (row>6) row = 6;
|
|||
switch (row)
|
|||
{
|
|||
case 0:
|
|||
{
|
|||
int turbo = get_turbo_6502();
|
|||
if (joy.x_==1) turbo<<=1;
|
|||
if (joy.x_==-1) turbo>>=1;
|
|||
if (turbo>16) turbo = 16;
|
|||
if (turbo<1) turbo = 1;
|
|||
set_turbo_6502(turbo);
|
|||
}
|
|||
break;
|
|||
case 1:
|
|||
{
|
|||
int ram_select = get_ram_select();
|
|||
ram_select+=joy.x_;
|
|||
if (ram_select<0) ram_select = 0;
|
|||
if (ram_select>7) ram_select = 7;
|
|||
set_ram_select(ram_select);
|
|||
}
|
|||
break;
|
|||
case 2:
|
|||
{
|
|||
if (joy.x_ || joy.fire_)
|
|||
{
|
|||
filter = filter_roms;
|
|||
file_selector(files[5]);
|
|||
loadosrom();
|
|||
}
|
|||
}
|
|||
break;
|
|||
case 3:
|
|||
case 4:
|
|||
case 5:
|
|||
{
|
|||
if (joy.fire_)
|
|||
{
|
|||
filter = filter_bins;
|
|||
file_selector(files[4]);
|
|||
//loadrom_indir(entries,"acid5200.rom",0x8000,(void *)0x004000); // XXX - just for 5200 test... do not commit!
|
|||
if (row == 3)
|
|||
{
|
|||
//*atari_colbk = 0x48;
|
|||
//wait_us(3000000);
|
|||
loadromfile(files[4],0x8000,(void *)0x004000);
|
|||
}
|
|||
else if (row == 4)
|
|||
{
|
|||
//*atari_colbk = 0x58;
|
|||
//wait_us(4000000);
|
|||
loadromfile(files[4],0x4000,(void *)0x008000);
|
|||
unsigned char * src = (unsigned char *)(0x8000 + 0x800000);
|
|||
unsigned char * dest1 = (unsigned char *)(0x4000 + 0x800000);
|
|||
int i = 0;
|
|||
for (i=0; i!=0x4000; ++i)
|
|||
{
|
|||
dest1[i] = src[i];
|
|||
}
|
|||
}
|
|||
else if (row == 5)
|
|||
{
|
|||
unsigned char * src = (unsigned char *)(0x4000 + 0x800000);
|
|||
unsigned char * dest1 = (unsigned char *)(0x6000 + 0x800000);
|
|||
unsigned char * src2 = (unsigned char *)(0x8000 + 0x800000);
|
|||
unsigned char * dest2 = (unsigned char *)(0xa000+ 0x800000);
|
|||
int i = 0;
|
|||
//*atari_colbk = 0x68;
|
|||
//wait_us(5000000);
|
|||
loadromfile(files[4],0x2000,(void *)0x004000);
|
|||
loadromfile(files[4],0x2000,(void *)0x008000);
|
|||
for (i=0; i!=0x2000; ++i)
|
|||
{
|
|||
dest1[i] = src[i];
|
|||
dest2[i] = src2[i];
|
|||
}
|
|||
}
|
|||
return 1;
|
|||
}
|
|||
}
|
|||
break;
|
|||
case 6:
|
|||
if (joy.fire_)
|
|||
{
|
|||
done = 1;
|
|||
}
|
|||
break;
|
|||
}
|
|||
}
|
|||
return 0;
|
|||
}
|
|||
void actions()
|
|||
{
|
|||
// Show some activity!
|
|||
//*atari_colbk = *atari_random;
|
|||
// Hot keys
|
|||
if (get_hotkey_softboot())
|
|||
{
|
|||
reboot(0);
|
|||
}
|
|||
else if (get_hotkey_coldboot())
|
|||
{
|
|||
reboot(1);
|
|||
}
|
|||
else if (get_hotkey_settings())
|
|||
{
|
|||
set_pause_6502(1);
|
|||
freeze();
|
|||
debug_pos = 0;
|
|||
int do_reboot = settings();
|
|||
debug_pos = -1;
|
|||
restore();
|
|||
if (do_reboot)
|
|||
reboot(1);
|
|||
else
|
|||
set_pause_6502(0);
|
|||
}
|
|||
else if (get_hotkey_fileselect())
|
|||
{
|
|||
set_pause_6502(1);
|
|||
freeze();
|
|||
//filter = filter_disks;
|
|||
//file_selector(files[0]);
|
|||
debug_pos = -1;
|
|||
restore();
|
|||
//set_drive_status(0,files[0]);
|
|||
reboot(1);
|
|||
/* disk_initialize();
|
|||
{
|
|||
char buffer[512];
|
|||
set_pause_6502(1);
|
|||
freeze();
|
|||
debug_pos = 0;
|
|||
printf("Hello world 3");
|
|||
debug_pos = 40;
|
|||
n_actual_mmc_sector = -1;
|
|||
disk_readp(&buffer[0],0,0,512);
|
|||
hexdump_pure(&buffer[0],512);
|
|||
wait_us(10000000);
|
|||
restore();
|
|||
}*/
|
|||
}
|
|||
}
|
|||