Search
lxdream.org :: lxdream/src/sh4/sh4mem.c
lxdream 0.9.1
released Jun 29
Download Now
filename src/sh4/sh4mem.c
changeset 156:3b93648a3b07
prev150:c728a442b43f
next165:126794f2ea6d
author nkeynes
date Thu Jun 15 10:25:45 2006 +0000 (14 years ago)
permissions -rw-r--r--
last change Add P4 I/O tracing
Add ability to set I/O trace by region address
file annotate diff log raw
nkeynes@10
     1
/**
nkeynes@156
     2
 * $Id: sh4mem.c,v 1.12 2006-06-15 10:25:45 nkeynes Exp $
nkeynes@10
     3
 * sh4mem.c is responsible for the SH4's access to memory (including memory
nkeynes@10
     4
 * mapped I/O), using the page maps created in mem.c
nkeynes@10
     5
 *
nkeynes@10
     6
 * Copyright (c) 2005 Nathan Keynes.
nkeynes@10
     7
 *
nkeynes@10
     8
 * This program is free software; you can redistribute it and/or modify
nkeynes@10
     9
 * it under the terms of the GNU General Public License as published by
nkeynes@10
    10
 * the Free Software Foundation; either version 2 of the License, or
nkeynes@10
    11
 * (at your option) any later version.
nkeynes@10
    12
 *
nkeynes@10
    13
 * This program is distributed in the hope that it will be useful,
nkeynes@10
    14
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
nkeynes@10
    15
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
nkeynes@10
    16
 * GNU General Public License for more details.
nkeynes@10
    17
 */
nkeynes@10
    18
nkeynes@35
    19
#define MODULE sh4_module
nkeynes@35
    20
nkeynes@10
    21
#include <string.h>
nkeynes@10
    22
#include <zlib.h>
nkeynes@10
    23
#include "dream.h"
nkeynes@10
    24
#include "mem.h"
nkeynes@10
    25
#include "mmio.h"
nkeynes@70
    26
#include "sh4core.h"
nkeynes@10
    27
#include "sh4mmio.h"
nkeynes@10
    28
#include "dreamcast.h"
nkeynes@100
    29
#include "pvr2/pvr2.h"
nkeynes@10
    30
nkeynes@10
    31
#define OC_BASE 0x1C000000
nkeynes@10
    32
#define OC_TOP  0x20000000
nkeynes@10
    33
nkeynes@90
    34
#define TRANSLATE_VIDEO_64BIT_ADDRESS(a)  ( (((a)&0x00FFFFF8)>>1)|(((a)&0x00000004)<<20)|((a)&0x03)|0x05000000 )
nkeynes@10
    35
nkeynes@10
    36
#ifdef ENABLE_WATCH
nkeynes@10
    37
#define CHECK_READ_WATCH( addr, size ) \
nkeynes@10
    38
    if( mem_is_watched(addr,size,WATCH_READ) != NULL ) { \
nkeynes@10
    39
        WARN( "Watch triggered at %08X by %d byte read", addr, size ); \
nkeynes@10
    40
        dreamcast_stop(); \
nkeynes@10
    41
    }
nkeynes@10
    42
#define CHECK_WRITE_WATCH( addr, size, val )                  \
nkeynes@10
    43
    if( mem_is_watched(addr,size,WATCH_WRITE) != NULL ) { \
nkeynes@10
    44
        WARN( "Watch triggered at %08X by %d byte write <= %0*X", addr, size, size*2, val ); \
nkeynes@10
    45
        dreamcast_stop(); \
nkeynes@10
    46
    }
nkeynes@10
    47
#else
nkeynes@10
    48
#define CHECK_READ_WATCH( addr, size )
nkeynes@10
    49
#define CHECK_WRITE_WATCH( addr, size )
nkeynes@10
    50
#endif
nkeynes@10
    51
nkeynes@10
    52
#define TRACE_IO( str, p, r, ... ) if(io_rgn[(uint32_t)p]->trace_flag) \
nkeynes@10
    53
TRACE( str " [%s.%s: %s]", __VA_ARGS__, \
nkeynes@10
    54
    MMIO_NAME_BYNUM((uint32_t)p), MMIO_REGID_BYNUM((uint32_t)p, r), \
nkeynes@10
    55
    MMIO_REGDESC_BYNUM((uint32_t)p, r) )
nkeynes@156
    56
#define TRACE_P4IO( str, io, r, ... ) if(io->trace_flag) \
nkeynes@156
    57
TRACE( str " [%s.%s: %s]", __VA_ARGS__, \
nkeynes@156
    58
    io->id, MMIO_REGID_IOBYNUM(io, r), \
nkeynes@156
    59
    MMIO_REGDESC_IOBYNUM(io, r) )
nkeynes@10
    60
nkeynes@10
    61
extern struct mem_region mem_rgn[];
nkeynes@10
    62
extern struct mmio_region *P4_io[];
nkeynes@10
    63
nkeynes@10
    64
int32_t sh4_read_p4( uint32_t addr )
nkeynes@10
    65
{
nkeynes@10
    66
    struct mmio_region *io = P4_io[(addr&0x1FFFFFFF)>>19];
nkeynes@10
    67
    if( !io ) {
nkeynes@10
    68
        ERROR( "Attempted read from unknown P4 region: %08X", addr );
nkeynes@10
    69
        return 0;
nkeynes@10
    70
    } else {
nkeynes@156
    71
	int32_t val = io->io_read( addr&0xFFF );
nkeynes@156
    72
	TRACE_P4IO( "Long read %08X <= %08X", io, (addr&0xFFF), val, addr );
nkeynes@156
    73
        return val;
nkeynes@10
    74
    }    
nkeynes@10
    75
}
nkeynes@10
    76
nkeynes@10
    77
void sh4_write_p4( uint32_t addr, int32_t val )
nkeynes@10
    78
{
nkeynes@10
    79
    struct mmio_region *io = P4_io[(addr&0x1FFFFFFF)>>19];
nkeynes@10
    80
    if( !io ) {
nkeynes@10
    81
        if( (addr & 0xFC000000) == 0xE0000000 ) {
nkeynes@10
    82
            /* Store queue */
nkeynes@10
    83
            SH4_WRITE_STORE_QUEUE( addr, val );
nkeynes@38
    84
        } else if( (addr & 0xFF000000) != 0xF4000000 ) {
nkeynes@38
    85
	    /* OC address cache isn't implemented, but don't complain about it.
nkeynes@38
    86
	     * Complain about anything else though */
nkeynes@10
    87
            ERROR( "Attempted write to unknown P4 region: %08X", addr );
nkeynes@10
    88
        }
nkeynes@10
    89
    } else {
nkeynes@156
    90
	TRACE_P4IO( "Long write %08X => %08X", io, (addr&0xFFF), val, addr );
nkeynes@10
    91
        io->io_write( addr&0xFFF, val );
nkeynes@10
    92
    }
nkeynes@10
    93
}
nkeynes@10
    94
nkeynes@10
    95
int32_t sh4_read_phys_word( uint32_t addr )
nkeynes@10
    96
{
nkeynes@10
    97
    char *page;
nkeynes@83
    98
    if( addr >= 0xE0000000 ) /* P4 Area, handled specially */
nkeynes@10
    99
        return SIGNEXT16(sh4_read_p4( addr ));
nkeynes@10
   100
    
nkeynes@10
   101
    if( (addr&0x1F800000) == 0x04000000 ) {
nkeynes@10
   102
        addr = TRANSLATE_VIDEO_64BIT_ADDRESS(addr);
nkeynes@10
   103
    }
nkeynes@10
   104
nkeynes@10
   105
    page = page_map[ (addr & 0x1FFFFFFF) >> 12 ];
nkeynes@10
   106
    if( ((uint32_t)page) < MAX_IO_REGIONS ) { /* IO Region */
nkeynes@10
   107
        if( page == NULL ) {
nkeynes@10
   108
            ERROR( "Attempted word read to missing page: %08X",
nkeynes@10
   109
                   addr );
nkeynes@10
   110
            return 0;
nkeynes@10
   111
        }
nkeynes@10
   112
        return SIGNEXT16(io_rgn[(uint32_t)page]->io_read(addr&0xFFF));
nkeynes@10
   113
    } else {
nkeynes@10
   114
        return SIGNEXT16(*(int16_t *)(page+(addr&0xFFF)));
nkeynes@10
   115
    }
nkeynes@10
   116
}
nkeynes@10
   117
nkeynes@10
   118
int32_t sh4_read_long( uint32_t addr )
nkeynes@10
   119
{
nkeynes@10
   120
    char *page;
nkeynes@10
   121
    
nkeynes@10
   122
    CHECK_READ_WATCH(addr,4);
nkeynes@10
   123
nkeynes@83
   124
    if( addr >= 0xE0000000 ) /* P4 Area, handled specially */
nkeynes@10
   125
        return sh4_read_p4( addr );
nkeynes@10
   126
    
nkeynes@10
   127
    if( (addr&0x1F800000) == 0x04000000 ) {
nkeynes@10
   128
        addr = TRANSLATE_VIDEO_64BIT_ADDRESS(addr);
nkeynes@10
   129
    }
nkeynes@10
   130
nkeynes@10
   131
    if( IS_MMU_ENABLED() ) {
nkeynes@10
   132
        ERROR( "user-mode & mmu translation not implemented, aborting", NULL );
nkeynes@10
   133
        sh4_stop();
nkeynes@10
   134
        return 0;
nkeynes@10
   135
    }
nkeynes@10
   136
nkeynes@10
   137
    page = page_map[ (addr & 0x1FFFFFFF) >> 12 ];
nkeynes@10
   138
    if( ((uint32_t)page) < MAX_IO_REGIONS ) { /* IO Region */
nkeynes@10
   139
        int32_t val;
nkeynes@10
   140
        if( page == NULL ) {
nkeynes@10
   141
            ERROR( "Attempted long read to missing page: %08X", addr );
nkeynes@10
   142
            return 0;
nkeynes@10
   143
        }
nkeynes@10
   144
        val = io_rgn[(uint32_t)page]->io_read(addr&0xFFF);
nkeynes@10
   145
        TRACE_IO( "Long read %08X <= %08X", page, (addr&0xFFF), val, addr );
nkeynes@10
   146
        return val;
nkeynes@10
   147
    } else {
nkeynes@10
   148
        return *(int32_t *)(page+(addr&0xFFF));
nkeynes@10
   149
    }
nkeynes@10
   150
}
nkeynes@10
   151
nkeynes@10
   152
int32_t sh4_read_word( uint32_t addr )
nkeynes@10
   153
{
nkeynes@10
   154
    char *page;
nkeynes@10
   155
nkeynes@10
   156
    CHECK_READ_WATCH(addr,2);
nkeynes@10
   157
nkeynes@83
   158
    if( addr >= 0xE0000000 ) /* P4 Area, handled specially */
nkeynes@10
   159
        return SIGNEXT16(sh4_read_p4( addr ));
nkeynes@10
   160
    
nkeynes@10
   161
    if( (addr&0x1F800000) == 0x04000000 ) {
nkeynes@10
   162
        addr = TRANSLATE_VIDEO_64BIT_ADDRESS(addr);
nkeynes@10
   163
    }
nkeynes@10
   164
nkeynes@10
   165
    if( IS_MMU_ENABLED() ) {
nkeynes@10
   166
        ERROR( "user-mode & mmu translation not implemented, aborting", NULL );
nkeynes@10
   167
        sh4_stop();
nkeynes@10
   168
        return 0;
nkeynes@10
   169
    }
nkeynes@10
   170
nkeynes@10
   171
    page = page_map[ (addr & 0x1FFFFFFF) >> 12 ];
nkeynes@10
   172
    if( ((uint32_t)page) < MAX_IO_REGIONS ) { /* IO Region */
nkeynes@10
   173
        int32_t val;
nkeynes@10
   174
        if( page == NULL ) {
nkeynes@10
   175
            ERROR( "Attempted word read to missing page: %08X", addr );
nkeynes@10
   176
            return 0;
nkeynes@10
   177
        }
nkeynes@10
   178
        val = SIGNEXT16(io_rgn[(uint32_t)page]->io_read(addr&0xFFF));
nkeynes@10
   179
        TRACE_IO( "Word read %04X <= %08X", page, (addr&0xFFF), val&0xFFFF, addr );
nkeynes@10
   180
        return val;
nkeynes@10
   181
    } else {
nkeynes@10
   182
        return SIGNEXT16(*(int16_t *)(page+(addr&0xFFF)));
nkeynes@10
   183
    }
nkeynes@10
   184
}
nkeynes@10
   185
nkeynes@10
   186
int32_t sh4_read_byte( uint32_t addr )
nkeynes@10
   187
{
nkeynes@10
   188
    char *page;
nkeynes@10
   189
nkeynes@10
   190
    CHECK_READ_WATCH(addr,1);
nkeynes@10
   191
nkeynes@83
   192
    if( addr >= 0xE0000000 ) /* P4 Area, handled specially */
nkeynes@10
   193
        return SIGNEXT8(sh4_read_p4( addr ));
nkeynes@10
   194
    if( (addr&0x1F800000) == 0x04000000 ) {
nkeynes@10
   195
        addr = TRANSLATE_VIDEO_64BIT_ADDRESS(addr);
nkeynes@10
   196
    }
nkeynes@10
   197
    
nkeynes@10
   198
    if( IS_MMU_ENABLED() ) {
nkeynes@10
   199
        ERROR( "user-mode & mmu translation not implemented, aborting", NULL );
nkeynes@10
   200
        sh4_stop();
nkeynes@10
   201
        return 0;
nkeynes@10
   202
    }
nkeynes@10
   203
nkeynes@10
   204
    page = page_map[ (addr & 0x1FFFFFFF) >> 12 ];
nkeynes@10
   205
    if( ((uint32_t)page) < MAX_IO_REGIONS ) { /* IO Region */
nkeynes@10
   206
        int32_t val;
nkeynes@10
   207
        if( page == NULL ) {
nkeynes@10
   208
            ERROR( "Attempted byte read to missing page: %08X", addr );
nkeynes@10
   209
            return 0;
nkeynes@10
   210
        }
nkeynes@10
   211
        val = SIGNEXT8(io_rgn[(uint32_t)page]->io_read(addr&0xFFF));
nkeynes@10
   212
        TRACE_IO( "Byte read %02X <= %08X", page, (addr&0xFFF), val&0xFF, addr );
nkeynes@10
   213
        return val;
nkeynes@10
   214
    } else {
nkeynes@10
   215
        return SIGNEXT8(*(int8_t *)(page+(addr&0xFFF)));
nkeynes@10
   216
    }
nkeynes@10
   217
}
nkeynes@10
   218
nkeynes@10
   219
void sh4_write_long( uint32_t addr, uint32_t val )
nkeynes@10
   220
{
nkeynes@10
   221
    char *page;
nkeynes@10
   222
    
nkeynes@10
   223
    CHECK_WRITE_WATCH(addr,4,val);
nkeynes@10
   224
nkeynes@83
   225
    if( addr >= 0xE0000000 ) {
nkeynes@10
   226
        sh4_write_p4( addr, val );
nkeynes@10
   227
        return;
nkeynes@10
   228
    }
nkeynes@130
   229
    if( (addr&0x1F800000) == 0x04000000 || 
nkeynes@130
   230
	(addr&0x1F800000) == 0x11000000 ) {
nkeynes@150
   231
	texcache_invalidate_page(addr& 0x7FFFFF);
nkeynes@10
   232
        addr = TRANSLATE_VIDEO_64BIT_ADDRESS(addr);
nkeynes@10
   233
    }
nkeynes@10
   234
nkeynes@10
   235
    if( IS_MMU_ENABLED() ) {
nkeynes@10
   236
        ERROR( "user-mode & mmu translation not implemented, aborting", NULL );
nkeynes@10
   237
        sh4_stop();
nkeynes@10
   238
        return;
nkeynes@10
   239
    }
nkeynes@10
   240
    if( (addr&0x1FFFFFFF) < 0x200000 ) {
nkeynes@10
   241
        ERROR( "Attempted write to read-only memory: %08X => %08X", val, addr);
nkeynes@10
   242
        sh4_stop();
nkeynes@10
   243
        return;
nkeynes@10
   244
    }
nkeynes@137
   245
    if( (addr&0x1F800000) == 0x00800000 )
nkeynes@137
   246
	asic_g2_write_word();
nkeynes@137
   247
nkeynes@10
   248
    page = page_map[ (addr & 0x1FFFFFFF) >> 12 ];
nkeynes@10
   249
    if( ((uint32_t)page) < MAX_IO_REGIONS ) { /* IO Region */
nkeynes@10
   250
        if( page == NULL ) {
nkeynes@137
   251
	    if( (addr & 0x1F000000) >= 0x04000000 &&
nkeynes@137
   252
		(addr & 0x1F000000) < 0x07000000 )
nkeynes@137
   253
		return;
nkeynes@10
   254
            ERROR( "Long write to missing page: %08X => %08X", val, addr );
nkeynes@10
   255
            return;
nkeynes@10
   256
        }
nkeynes@10
   257
        TRACE_IO( "Long write %08X => %08X", page, (addr&0xFFF), val, addr );
nkeynes@10
   258
        io_rgn[(uint32_t)page]->io_write(addr&0xFFF, val);
nkeynes@10
   259
    } else {
nkeynes@10
   260
        *(uint32_t *)(page+(addr&0xFFF)) = val;
nkeynes@10
   261
    }
nkeynes@10
   262
}
nkeynes@10
   263
nkeynes@10
   264
void sh4_write_word( uint32_t addr, uint32_t val )
nkeynes@10
   265
{
nkeynes@10
   266
    char *page;
nkeynes@10
   267
nkeynes@10
   268
    CHECK_WRITE_WATCH(addr,2,val);
nkeynes@10
   269
nkeynes@83
   270
    if( addr >= 0xE0000000 ) {
nkeynes@10
   271
        sh4_write_p4( addr, (int16_t)val );
nkeynes@10
   272
        return;
nkeynes@10
   273
    }
nkeynes@130
   274
    if( (addr&0x1F800000) == 0x04000000 ||
nkeynes@130
   275
	(addr&0x1F800000) == 0x11000000 ) {
nkeynes@150
   276
	texcache_invalidate_page(addr& 0x7FFFFF);
nkeynes@10
   277
        addr = TRANSLATE_VIDEO_64BIT_ADDRESS(addr);
nkeynes@10
   278
    }
nkeynes@10
   279
    if( IS_MMU_ENABLED() ) {
nkeynes@10
   280
        ERROR( "user-mode & mmu translation not implemented, aborting", NULL );
nkeynes@10
   281
        sh4_stop();
nkeynes@10
   282
        return;
nkeynes@10
   283
    }
nkeynes@10
   284
    page = page_map[ (addr & 0x1FFFFFFF) >> 12 ];
nkeynes@10
   285
    if( ((uint32_t)page) < MAX_IO_REGIONS ) { /* IO Region */
nkeynes@10
   286
        if( page == NULL ) {
nkeynes@10
   287
            ERROR( "Attempted word write to missing page: %08X", addr );
nkeynes@10
   288
            return;
nkeynes@10
   289
        }
nkeynes@10
   290
        TRACE_IO( "Word write %04X => %08X", page, (addr&0xFFF), val&0xFFFF, addr );
nkeynes@10
   291
        io_rgn[(uint32_t)page]->io_write(addr&0xFFF, val);
nkeynes@10
   292
    } else {
nkeynes@10
   293
        *(uint16_t *)(page+(addr&0xFFF)) = val;
nkeynes@10
   294
    }
nkeynes@10
   295
}
nkeynes@10
   296
nkeynes@10
   297
void sh4_write_byte( uint32_t addr, uint32_t val )
nkeynes@10
   298
{
nkeynes@10
   299
    char *page;
nkeynes@10
   300
    
nkeynes@10
   301
    CHECK_WRITE_WATCH(addr,1,val);
nkeynes@10
   302
nkeynes@83
   303
    if( addr >= 0xE0000000 ) {
nkeynes@10
   304
        sh4_write_p4( addr, (int8_t)val );
nkeynes@10
   305
        return;
nkeynes@10
   306
    }
nkeynes@130
   307
    if( (addr&0x1F800000) == 0x04000000 ||
nkeynes@130
   308
	(addr&0x1F800000) == 0x11000000 ) {
nkeynes@150
   309
	texcache_invalidate_page(addr& 0x7FFFFF);
nkeynes@10
   310
        addr = TRANSLATE_VIDEO_64BIT_ADDRESS(addr);
nkeynes@10
   311
    }
nkeynes@10
   312
    
nkeynes@10
   313
    if( IS_MMU_ENABLED() ) {
nkeynes@10
   314
        ERROR( "user-mode & mmu translation not implemented, aborting", NULL );
nkeynes@10
   315
        sh4_stop();
nkeynes@10
   316
        return;
nkeynes@10
   317
    }
nkeynes@10
   318
    page = page_map[ (addr & 0x1FFFFFFF) >> 12 ];
nkeynes@10
   319
    if( ((uint32_t)page) < MAX_IO_REGIONS ) { /* IO Region */
nkeynes@10
   320
        if( page == NULL ) {
nkeynes@10
   321
            ERROR( "Attempted byte write to missing page: %08X", addr );
nkeynes@10
   322
            return;
nkeynes@10
   323
        }
nkeynes@10
   324
        TRACE_IO( "Byte write %02X => %08X", page, (addr&0xFFF), val&0xFF, addr );
nkeynes@10
   325
        io_rgn[(uint32_t)page]->io_write( (addr&0xFFF), val);
nkeynes@10
   326
    } else {
nkeynes@10
   327
        *(uint8_t *)(page+(addr&0xFFF)) = val;
nkeynes@10
   328
    }
nkeynes@10
   329
}
nkeynes@10
   330
nkeynes@10
   331
nkeynes@10
   332
nkeynes@10
   333
/* FIXME: Handle all the many special cases when the range doesn't fall cleanly
nkeynes@10
   334
 * into the same memory black
nkeynes@10
   335
 */
nkeynes@10
   336
void mem_copy_from_sh4( char *dest, uint32_t srcaddr, size_t count ) {
nkeynes@103
   337
    if( srcaddr >= 0x04000000 && srcaddr < 0x05000000 ) {
nkeynes@103
   338
	pvr2_vram64_read( dest, srcaddr, count );
nkeynes@103
   339
    } else {
nkeynes@103
   340
	char *src = mem_get_region(srcaddr);
nkeynes@103
   341
	if( src == NULL ) {
nkeynes@103
   342
	    ERROR( "Attempted block read from unknown address %08X", srcaddr );
nkeynes@103
   343
	} else {
nkeynes@103
   344
	    memcpy( dest, src, count );
nkeynes@103
   345
	}
nkeynes@103
   346
    }
nkeynes@10
   347
}
nkeynes@10
   348
nkeynes@10
   349
void mem_copy_to_sh4( uint32_t destaddr, char *src, size_t count ) {
nkeynes@130
   350
    if( destaddr >= 0x10000000 && destaddr < 0x11000000 ) {
nkeynes@100
   351
	pvr2_ta_write( src, count );
nkeynes@130
   352
    } else if( destaddr >= 0x04000000 && destaddr < 0x05000000 ||
nkeynes@130
   353
	       destaddr >= 0x11000000 && destaddr < 0x12000000 ) {
nkeynes@103
   354
	pvr2_vram64_write( destaddr, src, count );
nkeynes@90
   355
    } else {
nkeynes@90
   356
	char *dest = mem_get_region(destaddr);
nkeynes@90
   357
	if( dest == NULL )
nkeynes@103
   358
	    ERROR( "Attempted block write to unknown address %08X", destaddr );
nkeynes@103
   359
	else {
nkeynes@90
   360
	    memcpy( dest, src, count );
nkeynes@103
   361
	}
nkeynes@90
   362
    }
nkeynes@10
   363
}
.