Project

General

Profile

Download (8.2 KB) Statistics
| Revision:

repo2/firmware_legacy/main.h @ 1414

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

425 markw
#ifdef USB
#include "usb.h"
#include "usb/debug.h"
#define USBSETTINGS
#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)
864 markw
BIT_REG(,0x1,11,atari800mode,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)
864 markw
BIT_REG(,0x03,26,key_type,zpu_out1) // ansi,iso,custom1,custom2
BIT_REG(,0x07,28,turbo_drive,zpu_out1)
46 markw
864 markw
BIT_REG(,0x07,0,video,zpu_out6)
BIT_REG(,0x01,4,tv,zpu_out6)
BIT_REG(,0x01,5,scanlines,zpu_out6)
BIT_REG(,0x01,6,csync,zpu_out6)

64 markw
BIT_REG_RO(,0x1,8,hotkey_softboot,zpu_in1)
BIT_REG_RO(,0x1,9,hotkey_coldboot,zpu_in1)
864 markw
BIT_REG_RO(,0x1,10,hotkey_settings,zpu_in1)
BIT_REG_RO(,0x1,11,hotkey_fileselect,zpu_in1)
47 markw
262 markw
BIT_REG_RO(,0x3f,12,controls,zpu_in1) // (esc)FLRDU
864 markw
BIT_REG_RO(,0x1,18,sd_detect,zpu_in1) // sd_detect
BIT_REG_RO(,0x1,19,sd_writeprotect,zpu_in1) // sd_writeprotect
189 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
{
864 markw
void* absolute_ram_address = ROM_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
}

425 markw
#ifdef USBSETTINGS
void rotate_usb_sticks()
{
int max_jindex = hid_get_joysticks()-1;
if (max_jindex == 0) // If only one stick connected allow it to be 0 or 1
{
max_jindex = 1;
}

int i;

usb_device_t * devices = usb_get_devices();
for (i=0;i!=USB_NUMDEVICES;++i)
{
usb_device_t *dev = devices + i;
if (dev->bAddress)
{
if (dev->class == &usb_hid_class)
{
int j=0;
for (j=0;j!=dev->hid_info.bNumIfaces;++j)
{
int type = dev->hid_info.iface[j].device_type;
if (type == HID_DEVICE_JOYSTICK)
{
int jindex = dev->hid_info.iface[j].jindex;
event_digital_joystick(jindex, 0);
event_analog_joystick(jindex, 0,0);

jindex++;
if (jindex > max_jindex)
jindex = 0;

dev->hid_info.iface[j].jindex = jindex;
}
}
}
}
}
}

void usb_devices(int debugPos)
{
usb_device_t *devices = usb_get_devices();
int nextDebugPos = debugPos;
int i=0;
int j=0;
for (i=0;i!=USB_NUMDEVICES;++i)
{
debug_pos = nextDebugPos;
usb_device_t *dev = devices + i;
if (dev->bAddress)
{
if (dev->class == &usb_hub_class)
{
//printf("%x.Hub. %d ports. poll=%d",dev->bAddress,dev->hub_info.bNbrPorts, dev->hub_info.bPollEnable);
printf("%x.Hub. %d ports",dev->bAddress,dev->hub_info.bNbrPorts);
}
else if (dev->class == &usb_hid_class)
{
//printf("%x.HID. %d ifaces. poll=%d",dev->bAddress,dev->hid_info.bNumIfaces,dev->hid_info.bPollEnable);
printf("%x.HID",dev->bAddress);
int adjPos = 0;
for (j=0;j!=dev->hid_info.bNumIfaces;++j)
{
//usb_device_descriptor_t desc;
int type = dev->hid_info.iface[j].device_type;
if (adjPos && (type == HID_DEVICE_MOUSE || type == HID_DEVICE_KEYBOARD || type == HID_DEVICE_JOYSTICK))
{
nextDebugPos = nextDebugPos+40;
debug_pos = nextDebugPos;
}
if (type == HID_DEVICE_MOUSE)
printf(" Mouse");
else if (type == HID_DEVICE_KEYBOARD)
printf(" Keyboard");
else if (type == HID_DEVICE_JOYSTICK)
{
printf(" Joystick:%d",dev->hid_info.iface[j].jindex+1);
}
else
continue;

adjPos = 1;

/*int rcode = usb_get_dev_descr( dev, 12, &desc );
if( !rcode ) {
printf(" V:%02x%02x P:%02x%02x C:%02x",desc.idVendorH,desc.idVendorL,desc.idProductH,desc.idProductL,desc.bDeviceClass);
}*/
}
}
}
nextDebugPos = nextDebugPos+40;
}
}
#endif