repo2/firmware/main.h @ 413
| 183 | markw | #include <alloca.h>
|
|
| 180 | markw | #include <sys/types.h>
|
|
| 46 | markw | #include "integer.h"
|
|
#include "regs.h"
|
|||
#include "pause.h"
|
|||
#include "printf.h"
|
|||
| 49 | markw | #include "joystick.h"
|
|
| 104 | markw | #include "freeze.h"
|
|
| 46 | markw | ||
#include "simpledir.h"
|
|||
#include "simplefile.h"
|
|||
| 49 | markw | #include "fileselector.h"
|
|
| 195 | markw | #include "cartridge.h"
|
|
| 46 | markw | ||
| 183 | markw | #ifdef LINUX_BUILD
|
|
#include "curses_screen.h"
|
|||
#define after_set_reg_hook() display_out_regs()
|
|||
#else
|
|||
#define after_set_reg_hook() do { } while(0)
|
|||
#endif
|
|||
| 180 | markw | #include "memory.h"
|
|
| 46 | markw | ||
| 69 | markw | extern char ROM_DIR[];
|
|
| 210 | markw | extern unsigned char freezer_rom_present;
|
|
| 69 | markw | ||
| 189 | markw | void mainmenu();
|
|
// TODO - needs serious cleanup!
|
|||
| 46 | markw | // 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
|
|||
#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; \
|
|||
| 183 | markw | after_set_reg_hook(); \
|
|
| 46 | markw | }
|
|
| 47 | markw | #define BIT_REG_RO(op,mask,shift,name,reg) \
|
|
int get_ ## name() \
|
|||
{ \
|
|||
int val = *reg; \
|
|||
return op((val>>shift)&mask); \
|
|||
}
|
|||
| 46 | markw | 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)
|
|||
| 346 | markw | //BIT_REG(,0x3f,11,rom_select,zpu_out1)
|
|
| 195 | markw | BIT_REG(,0x3f,17,cart_select,zpu_out1)
|
|
| 210 | markw | // reserve 2 bits for extending cart_select
|
|
BIT_REG(,0x01,25,freezer_enable,zpu_out1)
|
|||
| 46 | markw | ||
| 64 | markw | 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)
|
|||
| 47 | markw | ||
| 262 | markw | BIT_REG_RO(,0x3f,12,controls,zpu_in1) // (esc)FLRDU
|
|
| 189 | markw | ||
| 262 | markw | ||
| 46 | markw | 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;
|
|||
| 275 | markw | #ifdef LINUX_BUILD
|
|
usleep(num);
|
|||
#endif
|
|||
| 316 | markw | #ifdef SOCKIT
|
|
usleep(num);
|
|||
#endif
|
|||
| 46 | markw | }
|
|
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;
|
|||
}
|
|||
| 189 | markw | void clear_main_ram()
|
|
| 46 | markw | {
|
|
| 190 | markw | memset8(SRAM_BASE, 0, main_ram_size); // SRAM, if present (TODO)
|
|
memset32(SDRAM_BASE, 0, main_ram_size/4);
|
|||
| 46 | markw | }
|
|
void
|
|||
| 47 | markw | reboot(int cold)
|
|
| 46 | markw | {
|
|
| 69 | markw | set_pause_6502(1);
|
|
| 47 | markw | if (cold)
|
|
| 46 | markw | {
|
|
| 210 | markw | set_freezer_enable(0);
|
|
| 189 | markw | clear_main_ram();
|
|
| 210 | markw | set_freezer_enable(freezer_rom_present);
|
|
| 46 | markw | }
|
|
| 69 | markw | set_reset_6502(1);
|
|
// Do nothing in here - this resets the memory controller!
|
|||
| 46 | markw | 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;
|
|||
}
|
|||
| 348 | markw | else if (val == ':')
|
|
{
|
|||
val = 26;
|
|||
}
|
|||
| 46 | markw | else
|
|
{
|
|||
val = 0;
|
|||
}
|
|||
if (inv)
|
|||
{
|
|||
val+=128;
|
|||
}
|
|||
return val;
|
|||
}
|
|||
int debug_pos;
|
|||
| 49 | markw | int debug_adjust;
|
|
| 46 | markw | unsigned char volatile * baseaddr;
|
|
| 183 | markw | #ifdef LINUX_BUILD
|
|
void char_out(void* p, char c)
|
|||
{
|
|||
// get rid of unused parameter p warning
|
|||
(void)(p);
|
|||
int x, y;
|
|||
x = debug_pos % 40;
|
|||
y = debug_pos / 40;
|
|||
display_char(x, y, c, debug_adjust == 128);
|
|||
debug_pos++;
|
|||
}
|
|||
#else
|
|||
| 49 | markw | void clearscreen()
|
|
{
|
|||
unsigned volatile char * screen;
|
|||
| 189 | markw | for (screen=(unsigned volatile char *)(screen_address+atari_regbase); screen!=(unsigned volatile char *)(atari_regbase+screen_address+1024); ++screen)
|
|
| 49 | markw | *screen = 0x00;
|
|
}
|
|||
| 46 | markw | void char_out ( void* p, char c)
|
|
{
|
|||
unsigned char val = toatarichar(c);
|
|||
| 49 | markw | if (debug_pos>=0)
|
|
| 47 | markw | {
|
|
| 49 | markw | *(baseaddr+debug_pos) = val|debug_adjust;
|
|
| 47 | markw | ++debug_pos;
|
|
}
|
|||
| 46 | markw | }
|
|
| 183 | markw | #endif
|
|
| 46 | markw | ||
| 394 | markw | #define NUM_FILES 8
|
|
| 210 | markw | struct SimpleFile * files[NUM_FILES];
|
|
| 180 | markw | void loadromfile(struct SimpleFile * file, int size, size_t ram_address)
|
|
| 63 | markw | {
|
|
| 180 | markw | void* absolute_ram_address = SDRAM_BASE + ram_address;
|
|
| 63 | markw | int read = 0;
|
|
| 180 | markw | file_read(file, absolute_ram_address, size, &read);
|
|
| 63 | markw | }
|
|
| 49 | markw | ||
| 180 | markw | void loadrom(char const * path, int size, size_t ram_address)
|
|
| 55 | markw | {
|
|
| 200 | markw | if (SimpleFile_OK == file_open_name(path, files[5]))
|
|
| 55 | markw | {
|
|
| 200 | markw | loadromfile(files[5], size, ram_address);
|
|
| 55 | markw | }
|
|
}
|
|||
| 180 | markw | void loadrom_indir(struct SimpleDirEntry * entries, char const * filename, int size, size_t ram_address)
|
|
| 63 | markw | {
|
|
| 200 | markw | if (SimpleFile_OK == file_open_name_in_dir(entries, filename, files[5]))
|
|
| 63 | markw | {
|
|
| 200 | markw | loadromfile(files[5], size, ram_address);
|
|
| 63 | markw | }
|
|
}
|
|||
| 183 | markw | #ifdef LINUX_BUILD
|
|
int zpu_main(void)
|
|||
#else
|
|||
| 46 | markw | int main(void)
|
|
| 183 | markw | #endif
|
|
| 46 | markw | {
|
|
| 308 | markw | INIT_MEM
|
|
| 196 | markw | fil_type_rom = "ROM";
|
|
fil_type_bin = "BIN";
|
|||
fil_type_car = "CAR";
|
|||
| 350 | markw | fil_type_mem = "MEM";
|
|
| 196 | markw | ||
| 49 | markw | int i;
|
|
| 210 | markw | for (i=0; i!=NUM_FILES; ++i)
|
|
| 49 | markw | {
|
|
files[i] = (struct SimpleFile *)alloca(file_struct_size());
|
|||
| 52 | markw | file_init(files[i]);
|
|
| 49 | markw | }
|
|
| 116 | markw | freeze_init((void*)FREEZE_MEM); // 128k
|
|
| 47 | markw | ||
debug_pos = -1;
|
|||
| 49 | markw | debug_adjust = 0;
|
|
| 189 | markw | baseaddr = (unsigned char volatile *)(screen_address + atari_regbase);
|
|
| 69 | markw | set_pause_6502(1);
|
|
| 46 | markw | set_reset_6502(1);
|
|
| 69 | markw | set_reset_6502(0);
|
|
| 46 | markw | set_turbo_6502(1);
|
|
| 64 | markw | set_ram_select(2);
|
|
| 195 | markw | set_cart_select(0);
|
|
| 210 | markw | set_freezer_enable(0);
|
|
| 46 | markw | ||
init_printf(0, char_out);
|
|||
| 189 | markw | mainmenu();
|
|
| 55 | markw | return 0;
|
|
| 49 | markw | }
|