source/src/vm/pasopia/memory.cpp

   1 /*
   2         TOSHIBA PASOPIA Emulator 'EmuPIA'
   3
   4         Author : Takeda.Toshiya
   5         Date   : 2006.12.28 -
   6
   7         [ memory ]
   8 */
   9
  10 #include "memory.h"
  11 #include "../i8255.h"
  12
  13 #define SET_BANK(s, e, w, r) { \
  14         int sb = (s) >> 12, eb = (e) >> 12; \
  15         for(int i = sb; i <= eb; i++) { \
  16                 if((w) == wdmy) { \
  17                         wbank[i] = wdmy; \
  18                 } else { \
  19                         wbank[i] = (w) + 0x1000 * (i - sb); \
  20                 } \
  21                 if((r) == rdmy) { \
  22                         rbank[i] = rdmy; \
  23                 } else { \
  24                         rbank[i] = (r) + 0x1000 * (i - sb); \
  25                 } \
  26         } \
  27 }
  28
  29 void MEMORY::initialize()
  30 {
  31         // load ipl
  32         memset(rdmy, 0xff, sizeof(rdmy));
  33         load_ipl();
  34
  35         // init memory map
  36         SET_BANK(0x0000, 0x7fff, ram + 0x0000, rom + 0x0000);
  37         SET_BANK(0x8000, 0xffff, ram + 0x8000, ram + 0x8000);
  38         vram_ptr = 0;
  39         vram_data = mem_map = 0;
  40 }
  41
  42 void MEMORY::load_ipl()
  43 {
  44         // load ipl
  45         memset(rom, 0xff, sizeof(rom));
  46
  47         const _TCHAR *file_path = NULL;
  48         FILEIO* fio = new FILEIO();
  49
  50         switch(config.boot_mode) {
  51         case MODE_TBASIC_V1_0:
  52                 file_path = create_local_path(_T("TBASIC10.ROM"));
  53                 break;
  54         case MODE_TBASIC_V1_1:
  55                 file_path = create_local_path(_T("TBASIC11.ROM"));
  56                 break;
  57         case MODE_OABASIC:
  58         case MODE_OABASIC_NO_DISK:
  59                 file_path = create_local_path(_T("OABASIC.ROM"));
  60                 break;
  61         case MODE_MINI_PASCAL:
  62                 file_path = create_local_path(_T("PASCAL.ROM"));
  63                 break;
  64         }
  65         if(file_path != NULL && fio->Fopen(file_path, FILEIO_READ_BINARY)) {
  66                 fio->Fread(rom, sizeof(rom), 1);
  67                 fio->Fclose();
  68         } else {
  69                 // old bios file name
  70                 if(fio->Fopen(create_local_path(_T("TBASIC.ROM")), FILEIO_READ_BINARY)) {
  71                         fio->Fread(rom, sizeof(rom), 1);
  72                         fio->Fclose();
  73                 }
  74         }
  75         delete fio;
  76
  77 }
  78
  79 void MEMORY::reset()
  80 {
  81         memset(vram, 0, sizeof(vram));
  82 }
  83
  84 void MEMORY::write_data8(uint32_t addr, uint32_t data)
  85 {
  86         addr &= 0xffff;
  87         wbank[addr >> 12][addr & 0xfff] = data;
  88 }
  89
  90 uint32_t MEMORY::read_data8(uint32_t addr)
  91 {
  92         addr &= 0xffff;
  93         return rbank[addr >> 12][addr & 0xfff];
  94 }
  95
  96 void MEMORY::write_io8(uint32_t addr, uint32_t data)
  97 {
  98         mem_map = data;
  99
 100         if(mem_map & 4) {
 101                 vm->reset();
 102         }
 103         if(mem_map & 2) {
 104                 SET_BANK(0x0000, 0x7fff, ram, ram);
 105         } else {
 106                 SET_BANK(0x0000, 0x7fff, ram, rom);
 107         }
 108         // to 8255-2 port-c, bit2
 109         d_pio2->write_signal(SIG_I8255_PORT_C, (mem_map & 2) ? 4 : 0, 4);
 110 }
 111
 112 void MEMORY::write_signal(int id, uint32_t data, uint32_t mask)
 113 {
 114         // vram control
 115         if(id == SIG_MEMORY_I8255_0_A) {
 116                 // bit6 of high byte: 0=write, 1=read
 117                 vram_ptr = (vram_ptr & 0xff00) | (data & 0xff);
 118                 if(!(vram_ptr & 0x4000)) {
 119                         vram[vram_ptr & 0x3fff] = vram_data;
 120                         attr[vram_ptr & 0x3fff] = (vram_ptr & 0x8000) ? 1 : 0;
 121                 }
 122                 // to 8255-0 port-c
 123                 d_pio0->write_signal(SIG_I8255_PORT_C, vram[vram_ptr & 0x3fff], 0xff);
 124                 // to 8255-1 port-b, bit7
 125                 d_pio1->write_signal(SIG_I8255_PORT_B, attr[vram_ptr & 0x3fff] ? 0x80 : 0, 0x80);
 126         } else if(id == SIG_MEMORY_I8255_0_B) {
 127                 vram_data = data & 0xff;
 128         } else if(id == SIG_MEMORY_I8255_1_C) {
 129                 // bit6 of high byte: 0=write, 1=read
 130                 vram_ptr = (vram_ptr & 0x00ff) | ((data & 0xff) << 8);
 131                 if(!(vram_ptr & 0x4000)) {
 132                         vram[vram_ptr & 0x3fff] = vram_data;
 133                         attr[vram_ptr & 0x3fff] = (vram_ptr & 0x8000) ? 1 : 0;
 134                 }
 135                 // to 8255-0 port-c
 136                 d_pio0->write_signal(SIG_I8255_PORT_C, vram[vram_ptr & 0x3fff], 0xff);
 137                 // to 8255-1 port-b, bit7
 138                 d_pio1->write_signal(SIG_I8255_PORT_B, attr[vram_ptr & 0x3fff] ? 0x80 : 0, 0x80);
 139         }
 140 }
 141
 142 #define STATE_VERSION   1
 143
 144 #include "../../statesub.h"
 145
 146 void MEMORY::decl_state()
 147 {
 148         enter_decl_state(STATE_VERSION);
 149
 150         DECL_STATE_ENTRY_1D_ARRAY(ram, sizeof(ram));
 151         DECL_STATE_ENTRY_1D_ARRAY(vram, sizeof(vram));
 152         DECL_STATE_ENTRY_1D_ARRAY(attr, sizeof(attr));
 153         DECL_STATE_ENTRY_UINT16(vram_ptr);
 154         DECL_STATE_ENTRY_UINT8(vram_data);
 155         DECL_STATE_ENTRY_UINT8(mem_map);
 156
 157         leave_decl_state();
 158 }
 159
 160 void MEMORY::save_state(FILEIO* state_fio)
 161 {
 162         if(state_entry != NULL) {
 163                 state_entry->save_state(state_fio);
 164         }
 165 //      state_fio->FputUint32(STATE_VERSION);
 166 //      state_fio->FputInt32(this_device_id);
 167
 168 //      state_fio->Fwrite(ram, sizeof(ram), 1);
 169 //      state_fio->Fwrite(vram, sizeof(vram), 1);
 170 //      state_fio->Fwrite(attr, sizeof(attr), 1);
 171 //      state_fio->FputUint16(vram_ptr);
 172 //      state_fio->FputUint8(vram_data);
 173 //      state_fio->FputUint8(mem_map);
 174 }
 175
 176 bool MEMORY::load_state(FILEIO* state_fio)
 177 {
 178         bool mb = false;
 179         if(state_entry != NULL) {
 180                 mb = state_entry->load_state(state_fio);
 181         }
 182         if(!mb) return false;
 183 //      if(state_fio->FgetUint32() != STATE_VERSION) {
 184 //              return false;
 185 //      }
 186 //      if(state_fio->FgetInt32() != this_device_id) {
 187 //              return false;
 188 //      }
 189 //      state_fio->Fread(ram, sizeof(ram), 1);
 190 //      state_fio->Fread(vram, sizeof(vram), 1);
 191 //      state_fio->Fread(attr, sizeof(attr), 1);
 192 //      vram_ptr = state_fio->FgetUint16();
 193 //      vram_data = state_fio->FgetUint8();
 194 //      mem_map = state_fio->FgetUint8();
 195
 196         // post process
 197         if(mem_map & 2) {
 198                 SET_BANK(0x0000, 0x7fff, ram, ram);
 199         } else {
 200                 SET_BANK(0x0000, 0x7fff, ram, rom);
 201         }
 202         return true;
 203 }
 204
 205 bool MEMORY::process_state(FILEIO* state_fio, bool loading)
 206 {
 207         if(!state_fio->StateCheckUint32(STATE_VERSION)) {
 208                 return false;
 209         }
 210         if(!state_fio->StateCheckInt32(this_device_id)) {
 211                 return false;
 212         }
 213         state_fio->StateBuffer(ram, sizeof(ram), 1);
 214         state_fio->StateBuffer(vram, sizeof(vram), 1);
 215         state_fio->StateBuffer(attr, sizeof(attr), 1);
 216         state_fio->StateUint16(vram_ptr);
 217         state_fio->StateUint8(vram_data);
 218         state_fio->StateUint8(mem_map);
 219
 220         // post process
 221         if(loading) {
 222                 if(mem_map & 2) {
 223                         SET_BANK(0x0000, 0x7fff, ram, ram);
 224                 } else {
 225                         SET_BANK(0x0000, 0x7fff, ram, rom);
 226                 }
 227         }
 228         return true;
 229 }