/**

 * $Id$

 * 

 * This file defines the internal functions exported/used by the SH4 core, 

 * except for disassembly functions defined in sh4dasm.h

 *

 * Copyright (c) 2005 Nathan Keynes.

 *

 * 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.

 */

#ifndef lxdream_sh4core_H

#define lxdream_sh4core_H 1

#include <glib/gtypes.h>

#include <stdint.h>

#include <stdio.h>

#include "mem.h"

#include "sh4/sh4.h"

#ifdef __cplusplus

extern "C" {

#endif

/* Breakpoint data structure */

extern struct breakpoint_struct sh4_breakpoints[MAX_BREAKPOINTS];

extern int sh4_breakpoint_count;

extern sh4ptr_t sh4_main_ram;

extern gboolean sh4_starting;

/**

 * Cached direct pointer to the current instruction page. If AT is on, this

 * is derived from the ITLB, otherwise this will be the entire memory region.

 * This is actually a fairly useful optimization, as we can make a lot of

 * assumptions about the "current page" that we can't make in general for

 * arbitrary virtual addresses.

 */

struct sh4_icache_struct {

    sh4ptr_t page; // Page pointer (NULL if no page)

    sh4vma_t page_vma; // virtual address of the page.

    sh4addr_t page_ppa; // physical address of the page

    uint32_t mask;  // page mask 

};

extern struct sh4_icache_struct sh4_icache;

/**

 * Test if a given address is contained in the current icache entry

 */

#define IS_IN_ICACHE(addr) (sh4_icache.page_vma == ((addr) & sh4_icache.mask))

/**

 * Return a pointer for the given vma, under the assumption that it is

 * actually contained in the current icache entry.

 */

#define GET_ICACHE_PTR(addr) (sh4_icache.page + ((addr)-sh4_icache.page_vma))

/**

 * Return the physical (external) address for the given vma, assuming that it is

 * actually contained in the current icache entry.

 */

#define GET_ICACHE_PHYS(addr) (sh4_icache.page_ppa + ((addr)-sh4_icache.page_vma))

/**

 * Return the virtual (vma) address for the first address past the end of the 

 * cache entry. Assumes that there is in fact a current icache entry.

 */

#define GET_ICACHE_END() (sh4_icache.page_vma + (~sh4_icache.mask) + 1)

/**

 * SH4 vm-exit flag - exit the current block but continue (eg exception handling)

 */

#define CORE_EXIT_CONTINUE 1

/**

 * SH4 vm-exit flag - exit the current block and halt immediately (eg fatal error)

 */

#define CORE_EXIT_HALT 2

/**

 * SH4 vm-exit flag - exit the current block and halt immediately for a system

 * breakpoint.

 */

#define CORE_EXIT_BREAKPOINT 3

/**

 * SH4 vm-exit flag - exit the current block and continue after performing a full

 * system reset (dreamcast_reset())

 */

#define CORE_EXIT_SYSRESET 4

/**

 * SH4 vm-exit flag - exit the current block and continue after the next IRQ.

 */

#define CORE_EXIT_SLEEP 5

/**

 * SH4 vm-exit flag - exit the current block  and flush all instruction caches (ie

 * if address translation has changed)

 */

#define CORE_EXIT_FLUSH_ICACHE 6

typedef uint32_t (*sh4_run_slice_fn)(uint32_t);

/* SH4 module functions */

void sh4_init( void );

void sh4_reset( void );

void sh4_run( void );

void sh4_stop( void );

uint32_t sh4_run_slice( uint32_t nanos ); // Run single timeslice using emulator

uint32_t sh4_xlat_run_slice( uint32_t nanos ); // Run single timeslice using translator

uint32_t sh4_sleep_run_slice( uint32_t nanos ); // Run single timeslice while the CPU is asleep

/**

 * Immediately exit from the currently executing instruction with the given

 * exit code. This method does not return.

 */

void sh4_core_exit( int exit_code );

/**

 * Exit the current block at the end of the current instruction, flush the

 * translation cache (completely) and return control to sh4_xlat_run_slice.

 *

 * As a special case, if the current instruction is actually the last 

 * instruction in the block (ie it's in a delay slot), this function 

 * returns to allow normal completion of the translation block. Otherwise

 * this function never returns.

 *

 * Must only be invoked (indirectly) from within translated code.

 */

void sh4_flush_icache();

/* SH4 peripheral module functions */

void CPG_reset( void );

void DMAC_reset( void );

void DMAC_run_slice( uint32_t );

void DMAC_save_state( FILE * );

int DMAC_load_state( FILE * );

void INTC_reset( void );

void INTC_save_state( FILE *f );

int INTC_load_state( FILE *f );

void MMU_init( void );

void MMU_reset( void );

void MMU_save_state( FILE *f );

int MMU_load_state( FILE *f );

void MMU_ldtlb();

void SCIF_reset( void );

void SCIF_run_slice( uint32_t );

void SCIF_save_state( FILE *f );

int SCIF_load_state( FILE *f );

void SCIF_update_line_speed(void);

void TMU_init( void );

void TMU_reset( void );

void TMU_run_slice( uint32_t );

void TMU_save_state( FILE * );

int TMU_load_state( FILE * );

void TMU_update_clocks( void );

uint32_t sh4_translate_run_slice(uint32_t);

uint32_t sh4_emulate_run_slice(uint32_t);

/* SH4 instruction support methods */

void sh4_sleep( void );

void sh4_fsca( uint32_t angle, float *fr );

void sh4_ftrv( float *fv );

uint32_t sh4_read_sr(void);

void sh4_write_sr(uint32_t val);

void sh4_write_fpscr(uint32_t val);

void sh4_switch_fr_banks(void);

void signsat48(void);

gboolean sh4_has_page( sh4vma_t vma );

/* SH4 Memory */

#define MMU_VMA_ERROR 0x80000000

/**

 * Update the sh4_icache structure to contain the specified vma. If the vma

 * cannot be resolved, an MMU exception is raised and the function returns

 * FALSE. Otherwise, returns TRUE and updates sh4_icache accordingly.

 * Note: If the vma resolves to a non-memory area, sh4_icache will be 

 * invalidated, but the function will still return TRUE.

 * @return FALSE if an MMU exception was raised, otherwise TRUE.

 */

gboolean mmu_update_icache( sh4vma_t addr );

/**

 * Resolve a virtual address through the TLB for a read operation, returning 

 * the resultant P4 or external address. If the resolution fails, the 

 * appropriate MMU exception is raised and the value MMU_VMA_ERROR is returned.

 * @return An external address (0x00000000-0x1FFFFFFF), a P4 address

 * (0xE0000000 - 0xFFFFFFFF), or MMU_VMA_ERROR.

 */

sh4addr_t mmu_vma_to_phys_read( sh4vma_t addr );

sh4addr_t mmu_vma_to_phys_write( sh4vma_t addr );

sh4addr_t mmu_vma_to_phys_disasm( sh4vma_t addr );

int64_t sh4_read_quad( sh4addr_t addr );

int32_t sh4_read_long( sh4addr_t addr );

int32_t sh4_read_word( sh4addr_t addr );

int32_t sh4_read_byte( sh4addr_t addr );

void sh4_write_quad( sh4addr_t addr, uint64_t val );

void sh4_write_long( sh4addr_t addr, uint32_t val );

void sh4_write_word( sh4addr_t addr, uint32_t val );

void sh4_write_byte( sh4addr_t addr, uint32_t val );

int32_t sh4_read_phys_word( sh4addr_t addr );

gboolean sh4_flush_store_queue( sh4addr_t addr );

/* SH4 Exceptions */

#define EXC_POWER_RESET     0x000 /* reset vector */

#define EXC_MANUAL_RESET    0x020 /* reset vector */

#define EXC_TLB_MISS_READ   0x040 /* TLB vector */

#define EXC_TLB_MISS_WRITE  0x060 /* TLB vector */

#define EXC_INIT_PAGE_WRITE 0x080

#define EXC_TLB_PROT_READ   0x0A0

#define EXC_TLB_PROT_WRITE  0x0C0

#define EXC_DATA_ADDR_READ  0x0E0

#define EXC_DATA_ADDR_WRITE 0x100

#define EXC_TLB_MULTI_HIT   0x140

#define EXC_SLOT_ILLEGAL    0x1A0

#define EXC_ILLEGAL         0x180

#define EXC_TRAP            0x160

#define EXC_FPU_DISABLED    0x800

#define EXC_SLOT_FPU_DISABLED 0x820

#define EXV_EXCEPTION    0x100  /* General exception vector */

#define EXV_TLBMISS      0x400  /* TLB-miss exception vector */

#define EXV_INTERRUPT    0x600  /* External interrupt vector */

gboolean sh4_raise_exception( int );

gboolean sh4_raise_reset( int );

gboolean sh4_raise_trap( int );

gboolean sh4_raise_slot_exception( int, int );

gboolean sh4_raise_tlb_exception( int );

void sh4_accept_interrupt( void );

#define SIGNEXT4(n) ((((int32_t)(n))<<28)>>28)

#define SIGNEXT8(n) ((int32_t)((int8_t)(n)))

#define SIGNEXT12(n) ((((int32_t)(n))<<20)>>20)

#define SIGNEXT16(n) ((int32_t)((int16_t)(n)))

#define SIGNEXT32(n) ((int64_t)((int32_t)(n)))

#define SIGNEXT48(n) ((((int64_t)(n))<<16)>>16)

#define ZEROEXT32(n) ((int64_t)((uint64_t)((uint32_t)(n))))

/* Status Register (SR) bits */

#define SR_MD    0x40000000 /* Processor mode ( User=0, Privileged=1 ) */ 

#define SR_RB    0x20000000 /* Register bank (priviledged mode only) */

#define SR_BL    0x10000000 /* Exception/interupt block (1 = masked) */

#define SR_FD    0x00008000 /* FPU disable */

#define SR_M     0x00000200

#define SR_Q     0x00000100

#define SR_IMASK 0x000000F0 /* Interrupt mask level */

#define SR_S     0x00000002 /* Saturation operation for MAC instructions */

#define SR_T     0x00000001 /* True/false or carry/borrow */

#define SR_MASK  0x700083F3

#define SR_MQSTMASK 0xFFFFFCFC /* Mask to clear the flags we're keeping separately */

#define SR_MDRB  0x60000000 /* MD+RB mask for convenience */

#define IS_SH4_PRIVMODE() (sh4r.sr&SR_MD)

#define SH4_INTMASK() ((sh4r.sr&SR_IMASK)>>4)

#define SH4_EVENT_PENDING() (sh4r.event_pending <= sh4r.slice_cycle && !sh4r.in_delay_slot)

#define FPSCR_FR     0x00200000 /* FPU register bank */

#define FPSCR_SZ     0x00100000 /* FPU transfer size (0=32 bits, 1=64 bits) */

#define FPSCR_PR     0x00080000 /* Precision (0=32 bites, 1=64 bits) */

#define FPSCR_DN     0x00040000 /* Denormalization mode (1 = treat as 0) */

#define FPSCR_CAUSE  0x0003F000

#define FPSCR_ENABLE 0x00000F80

#define FPSCR_FLAG   0x0000007C

#define FPSCR_RM     0x00000003 /* Rounding mode (0=nearest, 1=to zero) */

#define IS_FPU_DOUBLEPREC() (sh4r.fpscr&FPSCR_PR)

#define IS_FPU_DOUBLESIZE() (sh4r.fpscr&FPSCR_SZ)

#define IS_FPU_ENABLED() ((sh4r.sr&SR_FD)==0)

#define FR(x) sh4r.fr[0][(x)^1]

#define DRF(x) *((double *)&sh4r.fr[0][(x)<<1])

#define XF(x) sh4r.fr[1][(x)^1]

#define XDR(x) *((double *)&sh4r.fr[1][(x)<<1])

#define DRb(x,b) *((double *)&sh4r.fr[b][(x)<<1])

#define DR(x) *((double *)&sh4r.fr[x&1][x&0x0E])

#define FPULf    (sh4r.fpul.f)

#define FPULi    (sh4r.fpul.i)

#define SH4_WRITE_STORE_QUEUE(addr,val) sh4r.store_queue[(addr>>2)&0xF] = val;

#ifdef __cplusplus

}

#endif

#endif /* !lxdream_sh4core_H */