source/src/vm/x1/display.cpp

   1 /*
   2         SHARP X1 Emulator 'eX1'
   3         SHARP X1twin Emulator 'eX1twin'
   4         SHARP X1turbo Emulator 'eX1turbo'
   5
   6         Origin : X1EMU by KM (kanji rom)
   7                  X-millenium by Yui (ank16 patch)
   8         Author : Takeda.Toshiya
   9         Date   : 2009.03.14-
  10
  11         [ display ]
  12 */
  13
  14 #include "display.h"
  15 #ifdef _X1TURBO_FEATURE
  16 #include "../hd46505.h"
  17 #endif
  18 #include "../i8255.h"
  19
  20 #ifdef _X1TURBOZ
  21 #define AEN     ((zmode1 & 0x80) != 0)
  22 #define APEN    ((zmode2 & 0x80) != 0)
  23 #define APRD    ((zmode2 & 0x08) != 0)
  24 #endif
  25
  26 // from X-millenium
  27
  28 static const uint16 ANKFONT7f_af[0x21 * 8] = {
  29         0x0000, 0x3000, 0x247f, 0x6c24, 0x484c, 0xce4b, 0x0000, 0x0000,
  30
  31         0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0xffff,
  32         0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0xffff, 0xffff,
  33         0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0xffff, 0xffff, 0xffff,
  34         0x0000, 0x0000, 0x0000, 0x0000, 0xffff, 0xffff, 0xffff, 0xffff,
  35         0x0000, 0x0000, 0x0000, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
  36         0x0000, 0x0000, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
  37         0x0000, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
  38         0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
  39         0x8080, 0x8080, 0x8080, 0x8080, 0x8080, 0x8080, 0x8080, 0x8080,
  40         0xc0c0, 0xc0c0, 0xc0c0, 0xc0c0, 0xc0c0, 0xc0c0, 0xc0c0, 0xc0c0,
  41         0xe0e0, 0xe0e0, 0xe0e0, 0xe0e0, 0xe0e0, 0xe0e0, 0xe0e0, 0xe0e0,
  42         0xf0f0, 0xf0f0, 0xf0f0, 0xf0f0, 0xf0f0, 0xf0f0, 0xf0f0, 0xf0f0,
  43         0xf8f8, 0xf8f8, 0xf8f8, 0xf8f8, 0xf8f8, 0xf8f8, 0xf8f8, 0xf8f8,
  44         0xfcfc, 0xfcfc, 0xfcfc, 0xfcfc, 0xfcfc, 0xfcfc, 0xfcfc, 0xfcfc,
  45         0xfefe, 0xfefe, 0xfefe, 0xfefe, 0xfefe, 0xfefe, 0xfefe, 0xfefe,
  46         0x0101, 0x0202, 0x0404, 0x0808, 0x1010, 0x2020, 0x4040, 0x8080,
  47
  48         0x0000, 0x0000, 0x0000, 0x0000, 0x00ff, 0x0000, 0x0000, 0x0000,
  49         0x1010, 0x1010, 0x1010, 0x1010, 0x1010, 0x1010, 0x1010, 0x1010,
  50         0x1010, 0x1010, 0x1010, 0x1010, 0x00ff, 0x0000, 0x0000, 0x0000,
  51         0x0000, 0x0000, 0x0000, 0x0000, 0x10ff, 0x1010, 0x1010, 0x1010,
  52         0x1010, 0x1010, 0x1010, 0x1010, 0x10f0, 0x1010, 0x1010, 0x1010,
  53         0x1010, 0x1010, 0x1010, 0x1010, 0x101f, 0x1010, 0x1010, 0x1010,
  54         0x1010, 0x1010, 0x1010, 0x1010, 0x10ff, 0x1010, 0x1010, 0x1010,
  55         0x0000, 0x0000, 0x0000, 0x0000, 0x10f0, 0x1010, 0x1010, 0x1010,
  56         0x1010, 0x1010, 0x1010, 0x1010, 0x00f0, 0x0000, 0x0000, 0x0000,
  57         0x1010, 0x1010, 0x1010, 0x1010, 0x001f, 0x0000, 0x0000, 0x0000,
  58         0x0000, 0x0000, 0x0000, 0x0000, 0x101f, 0x1010, 0x1010, 0x1010,
  59         0x0000, 0x0000, 0x0000, 0x0000, 0x4080, 0x2020, 0x1010, 0x1010,
  60         0x1010, 0x1010, 0x0810, 0x0408, 0x0003, 0x0000, 0x0000, 0x0000,
  61         0x1010, 0x1010, 0x2010, 0x4020, 0x0080, 0x0000, 0x0000, 0x0000,
  62         0x0000, 0x0000, 0x0000, 0x0000, 0x0403, 0x0808, 0x1010, 0x1010,
  63         0x8080, 0x4040, 0x2020, 0x1010, 0x0808, 0x0404, 0x0202, 0x0101
  64 };
  65
  66 static const uint16 ANKFONTe0_ff[0x20 * 8] = {
  67         0x0000, 0x7e3c, 0xffff, 0xdbdb, 0xffff, 0xe7db, 0x7eff, 0x003c,
  68         0x0000, 0x423c, 0x8181, 0xa5a5, 0x8181, 0x99a5, 0x4281, 0x003c,
  69         0x0000, 0x3810, 0x7c7c, 0xfefe, 0xfefe, 0x106c, 0x7c38, 0x0000,
  70         0x0000, 0x6c00, 0xfefe, 0xfefe, 0xfefe, 0x7c7c, 0x1038, 0x0000,
  71         0x0000, 0x1010, 0x3838, 0x7c7c, 0x7cfe, 0x387c, 0x1038, 0x0010,
  72         0x0000, 0x3810, 0x7c7c, 0x5438, 0xfefe, 0x6cfe, 0x7c10, 0x0000,
  73         0x0101, 0x0303, 0x0707, 0x0f0f, 0x1f1f, 0x3f3f, 0x7f7f, 0xffff,
  74         0x8080, 0xc0c0, 0xe0e0, 0xf0f0, 0xf8f8, 0xfcfc, 0xfefe, 0xffff,
  75         0x8181, 0x4242, 0x2424, 0x1818, 0x1818, 0x2424, 0x4242, 0x8181,
  76         0xf0f0, 0xf0f0, 0xf0f0, 0xf0f0, 0x0000, 0x0000, 0x0000, 0x0000,
  77         0x0000, 0x0000, 0x0000, 0x0000, 0xf0f0, 0xf0f0, 0xf0f0, 0xf0f0,
  78         0x0f0f, 0x0f0f, 0x0f0f, 0x0f0f, 0x0000, 0x0000, 0x0000, 0x0000,
  79         0x0000, 0x0000, 0x0000, 0x0000, 0x0f0f, 0x0f0f, 0x0f0f, 0x0f0f,
  80         0x0f0f, 0x0f0f, 0x0f0f, 0x0f0f, 0xf0f0, 0xf0f0, 0xf0f0, 0xf0f0,
  81         0xf0f0, 0xf0f0, 0xf0f0, 0xf0f0, 0x0f0f, 0x0f0f, 0x0f0f, 0x0f0f,
  82         0x81ff, 0x8181, 0x8181, 0x8181, 0x8181, 0x8181, 0x8181, 0xff81,
  83
  84         0x55aa, 0x55aa, 0x55aa, 0x55aa, 0x55aa, 0x55aa, 0x55aa, 0x55aa,
  85         0x1000, 0x1010, 0xf01e, 0x1010, 0x1010, 0x1010, 0x7e10, 0x00c0,
  86         0x1000, 0x2418, 0x7c42, 0x1090, 0x781c, 0x5410, 0xfe54, 0x0000,
  87         0x1000, 0x1010, 0xfe10, 0x1010, 0x3030, 0x565c, 0x9090, 0x0010,
  88         0x1000, 0x1210, 0xf412, 0x3034, 0x5030, 0x9654, 0x1090, 0x0000,
  89         0x0800, 0x8808, 0x5292, 0x1454, 0x2020, 0x5020, 0x465c, 0x0040,
  90         0x0000, 0xe23c, 0x8282, 0x82fa, 0x7a82, 0x4242, 0x0044, 0x0000,
  91         0x0000, 0x443c, 0x8242, 0xf282, 0x8282, 0x8282, 0x3844, 0x0000,
  92         0x0800, 0x5e18, 0xa468, 0xe4be, 0xbea4, 0xb2a2, 0x0a5a, 0x0002,
  93         0x0000, 0x2628, 0x4042, 0xe23c, 0x2222, 0x4222, 0x4442, 0x0004,
  94         0x0800, 0x0808, 0xda7a, 0x5454, 0x46e4, 0xe442, 0x08c4, 0x0000,
  95         0x0000, 0x7e40, 0x8848, 0x28be, 0x2828, 0x3e28, 0x08e8, 0x0008,
  96         0x0000, 0x723c, 0x9252, 0x9292, 0x8292, 0x84fc, 0x8484, 0x0000,
  97         0x0000, 0x1010, 0x2010, 0x2020, 0x6040, 0x8c50, 0x8286, 0x0000,
  98         0x0000, 0x4040, 0x784e, 0x88c0, 0x388e, 0x0848, 0x7e08, 0x0000,
  99         0x0000, 0x7c00, 0x0000, 0x0000, 0x10fe, 0x1010, 0x1010, 0x0010
 100 };
 101
 102 void DISPLAY::initialize()
 103 {
 104         // load rom images
 105         FILEIO* fio = new FILEIO();
 106
 107         // ank8 (8x8)
 108         if(fio->Fopen(emu->bios_path(_T("ANK8.ROM")), FILEIO_READ_BINARY)) {
 109                 fio->Fread(font, sizeof(font), 1);
 110                 fio->Fclose();
 111         } else if(fio->Fopen(emu->bios_path(_T("FNT0808.X1")), FILEIO_READ_BINARY)) {
 112                 // xmillenium rom
 113                 fio->Fread(font, sizeof(font), 1);
 114                 fio->Fclose();
 115         }
 116
 117         // ank16 (8x16)
 118         if(fio->Fopen(emu->bios_path(_T("ANK16.ROM")), FILEIO_READ_BINARY)) {
 119                 fio->Fread(kanji, 0x1000, 1);
 120                 fio->Fclose();
 121         } else if(fio->Fopen(emu->bios_path(_T("FNT0816.X1")), FILEIO_READ_BINARY)) {
 122                 // xmillenium rom
 123                 fio->Fread(kanji, 0x1000, 1);
 124                 fio->Fclose();
 125         }
 126         memcpy(kanji + 0x7f * 16, ANKFONT7f_af, sizeof(ANKFONT7f_af));
 127         memcpy(kanji + 0xe0 * 16, ANKFONTe0_ff, sizeof(ANKFONTe0_ff));
 128
 129         // kanji (16x16)
 130         if(fio->Fopen(emu->bios_path(_T("KANJI.ROM")), FILEIO_READ_BINARY)) {
 131                 fio->Fread(kanji + 0x1000, 0x4ac00, 1);
 132                 fio->Fclose();
 133         } else if(fio->Fopen(emu->bios_path(_T("FNT1616.X1")), FILEIO_READ_BINARY)) {
 134                 // xmillenium rom
 135                 fio->Fread(kanji + 0x1000, 0x4ac00, 1);
 136                 fio->Fclose();
 137         }
 138         for(int ofs = 0x1000; ofs < 0x4bc00; ofs += 32) {
 139                 // LRLR.. -> LL..RR..
 140                 uint8 buf[32];
 141                 for(int i = 0; i < 16; i++) {
 142                         buf[i     ] = kanji[ofs + i * 2    ];
 143                         buf[i + 16] = kanji[ofs + i * 2 + 1];
 144                 }
 145                 memcpy(kanji + ofs, buf, 32);
 146         }
 147         delete fio;
 148
 149         // create pc palette
 150         for(int i = 0; i < 8; i++) {
 151                 palette_pc[i    ] = RGB_COLOR((i & 2) ? 255 : 0, (i & 4) ? 255 : 0, (i & 1) ? 255 : 0); // text
 152                 palette_pc[i + 8] = RGB_COLOR((i & 2) ? 255 : 0, (i & 4) ? 255 : 0, (i & 1) ? 255 : 0); // cg
 153         }
 154
 155         // initialize regs
 156         pal[0] = 0xaa;
 157         pal[1] = 0xcc;
 158         pal[2] = 0xf0;
 159         priority = 0;
 160         update_pal();
 161         column40 = true;
 162
 163         memset(vram_t, 0, sizeof(vram_t));
 164         memset(vram_a, 0, sizeof(vram_a));
 165 #ifdef _X1TURBO_FEATURE
 166         memset(vram_k, 0, sizeof(vram_k));
 167 #endif
 168         memset(pcg_b, 0, sizeof(pcg_b));
 169         memset(pcg_r, 0, sizeof(pcg_r));
 170         memset(pcg_g, 0, sizeof(pcg_g));
 171 #ifdef _X1TURBO_FEATURE
 172         memset(gaiji_b, 0, sizeof(gaiji_b));
 173         memset(gaiji_r, 0, sizeof(gaiji_r));
 174         memset(gaiji_g, 0, sizeof(gaiji_g));
 175 #endif
 176
 177         // register event
 178         register_frame_event(this);
 179         register_vline_event(this);
 180 }
 181
 182 void DISPLAY::reset()
 183 {
 184 #ifdef _X1TURBO_FEATURE
 185         mode1 = 0;//3;
 186         mode2 = 0;
 187         hireso = true;
 188 #endif
 189 #ifdef _X1TURBOZ
 190         for(int i = 0; i < 8; i++) {
 191                 palette_pc[i    ] = RGB_COLOR((i & 2) ? 255 : 0, (i & 4) ? 255 : 0, (i & 1) ? 255 : 0); // text
 192                 ztpal[i] = ((i & 1) ? 0x03 : 0) | ((i & 2) ? 3 : 0x0c) | ((i & 4) ? 0x30 : 0);
 193         }
 194         for(int g = 0; g < 16; g++) {
 195                 for(int r = 0; r < 16; r++) {
 196                         for(int b = 0; b < 16; b++) {
 197                                 int num = b + r * 16 + g * 256;
 198                                 zpal[num].b = b;
 199                                 zpal[num].r = r;
 200                                 zpal[num].g = g;
 201                                 palette_pc[num + 16] = RGB_COLOR((r * 255) / 15, (g * 255) / 15, (b * 255) / 15);
 202                         }
 203                 }
 204         }
 205         zmode1 = zpriority = zscroll = zmode2 = 0;
 206         zpal_num = 0;
 207 #endif
 208         cur_line = cur_code = 0;
 209         vblank_clock = 0;
 210
 211         kaddr = kofs = kflag = 0;
 212         kanji_ptr = &kanji[0];
 213 }
 214
 215
 216 void DISPLAY::write_io8(uint32 addr, uint32 data)
 217 {
 218         switch(addr & 0xff00) {
 219         case 0x0e00:
 220                 write_kanji(addr, data);
 221                 break;
 222         case 0x1000:
 223 #ifdef _X1TURBOZ
 224                 if(AEN && APEN && !APRD) {
 225                         int num = ((data >> 4) & 0x0f) | ((addr << 4) & 0xff0);
 226                         zpal[num].b = data & 0x0f;
 227                         palette_pc[num + 16] = RGB_COLOR((zpal[num].r * 255) / 15, (zpal[num].g * 255) / 15, (zpal[num].b * 255) / 15);
 228                 } else if(AEN && APEN && APRD) {
 229                         zpal_num = ((data >> 4) & 0x0f) | ((addr << 4) & 0xff0);
 230                 } else if(!AEN) {
 231 #endif
 232                         pal[0] = data;
 233                         update_pal();
 234 #ifdef _X1TURBOZ
 235                 }
 236 #endif
 237                 break;
 238         case 0x1100:
 239 #ifdef _X1TURBOZ
 240                 if(AEN && APEN && !APRD) {
 241                         int num = ((data >> 4) & 0x0f) | ((addr << 4) & 0xff0);
 242                         zpal[num].r = data & 0x0f;
 243                         palette_pc[num + 16] = RGB_COLOR((zpal[num].r * 255) / 15, (zpal[num].g * 255) / 15, (zpal[num].b * 255) / 15);
 244 //              } else if(AEN && APEN && APRD) {
 245 //                      zpal_num = ((data >> 4) & 0x0f) | ((addr << 4) & 0xff0);
 246                 } else if(!AEN) {
 247 #endif
 248                         pal[1] = data;
 249                         update_pal();
 250 #ifdef _X1TURBOZ
 251                 }
 252 #endif
 253                 break;
 254         case 0x1200:
 255 #ifdef _X1TURBOZ
 256                 if(AEN && APEN && !APRD) {
 257                         int num = ((data >> 4) & 0x0f) | ((addr << 4) & 0xff0);
 258                         zpal[num].g = data & 0x0f;
 259                         palette_pc[num + 16] = RGB_COLOR((zpal[num].r * 255) / 15, (zpal[num].g * 255) / 15, (zpal[num].b * 255) / 15);
 260 //              } else if(AEN && APEN && APRD) {
 261 //                      zpal_num = ((data >> 4) & 0x0f) | ((addr << 4) & 0xff0);
 262                 } else if(!AEN) {
 263 #endif
 264                         pal[2] = data;
 265                         update_pal();
 266 #ifdef _X1TURBOZ
 267                 }
 268 #endif
 269                 break;
 270         case 0x1300:
 271                 priority = data;
 272                 update_pal();
 273                 break;
 274         case 0x1500:
 275                 get_cur_pcg(addr);
 276                 pcg_b[cur_code][cur_line] = data;
 277 #ifdef _X1TURBO_FEATURE
 278                 gaiji_b[cur_code >> 1][(cur_line << 1) | (cur_code & 1)] = data;
 279 #endif
 280                 break;
 281         case 0x1600:
 282                 get_cur_pcg(addr);
 283                 pcg_r[cur_code][cur_line] = data;
 284 #ifdef _X1TURBO_FEATURE
 285                 gaiji_r[cur_code >> 1][(cur_line << 1) | (cur_code & 1)] = data;
 286 #endif
 287                 break;
 288         case 0x1700:
 289                 get_cur_pcg(addr);
 290                 pcg_g[cur_code][cur_line] = data;
 291 #ifdef _X1TURBO_FEATURE
 292                 gaiji_g[cur_code >> 1][(cur_line << 1) | (cur_code & 1)] = data;
 293 #endif
 294                 break;
 295 #ifdef _X1TURBO_FEATURE
 296         case 0x1f00:
 297                 switch(addr) {
 298 #ifdef _X1TURBOZ
 299                 case 0x1fb0:
 300                         zmode1 = data;
 301                         break;
 302                 case 0x1fb1:
 303                 case 0x1fb2:
 304                 case 0x1fb3:
 305                 case 0x1fb4:
 306                 case 0x1fb5:
 307                 case 0x1fb6:
 308                 case 0x1fb7:
 309                         ztpal[addr & 7] = data;
 310                         palette_pc[addr & 7] = RGB_COLOR((((data >> 2) & 3) * 255) / 3, (((data >> 4) & 3) * 255) / 3, (((data >> 0) & 3) * 255) / 3);
 311                         break;
 312                 case 0x1fc0:
 313                         zpriority = data;
 314                         break;
 315                 case 0x1fc4:
 316                         zscroll = data;
 317                         break;
 318                 case 0x1fc5:
 319                         zmode2 = data;
 320                         break;
 321 #endif
 322                 case 0x1fd0:
 323 //                      if((mode1 & 1) != (data & 1)) {
 324                                 d_crtc->set_horiz_freq((data & 1) ? 24860 : 15980);
 325 //                      }
 326                         mode1 = data;
 327 //                      hireso = !((mode1 & 3) == 0 || (mode1 & 3) == 2);
 328                         break;
 329                 case 0x1fe0:
 330                         mode2 = data;
 331                         update_pal();
 332                         break;
 333                 }
 334                 break;
 335 #endif
 336         case 0x2000:
 337         case 0x2100:
 338         case 0x2200:
 339         case 0x2300:
 340         case 0x2400:
 341         case 0x2500:
 342         case 0x2600:
 343         case 0x2700:
 344                 vram_a[addr & 0x7ff] = data;
 345                 break;
 346         case 0x2800:
 347         case 0x2900:
 348         case 0x2a00:
 349         case 0x2b00:
 350         case 0x2c00:
 351         case 0x2d00:
 352         case 0x2e00:
 353         case 0x2f00:
 354                 vram_a[addr & 0x7ff] = data; // mirror
 355                 break;
 356         case 0x3000:
 357         case 0x3100:
 358         case 0x3200:
 359         case 0x3300:
 360         case 0x3400:
 361         case 0x3500:
 362         case 0x3600:
 363         case 0x3700:
 364                 vram_t[addr & 0x7ff] = data;
 365                 break;
 366         case 0x3800:
 367         case 0x3900:
 368         case 0x3a00:
 369         case 0x3b00:
 370         case 0x3c00:
 371         case 0x3d00:
 372         case 0x3e00:
 373         case 0x3f00:
 374 #ifdef _X1TURBO_FEATURE
 375                 vram_k[addr & 0x7ff] = data;
 376 #else
 377                 vram_t[addr & 0x7ff] = data; // mirror
 378 #endif
 379                 break;
 380         }
 381 }
 382
 383 uint32 DISPLAY::read_io8(uint32 addr)
 384 {
 385         switch(addr & 0xff00) {
 386         case 0x0e00:
 387                 return read_kanji(addr);
 388 #ifdef _X1TURBOZ
 389         case 0x1000:
 390                 if(AEN && APEN && APRD) {
 391                         return zpal[zpal_num].b;
 392                 }
 393                 break;
 394         case 0x1100:
 395                 if(AEN && APEN && APRD) {
 396                         return zpal[zpal_num].r;
 397                 }
 398                 break;
 399         case 0x1200:
 400                 if(AEN && APEN && APRD) {
 401                         return zpal[zpal_num].g;
 402                 }
 403                 break;
 404 #endif
 405 //      case 0x1300:
 406 //              return priority;
 407         case 0x1400:
 408                 return get_cur_font(addr);
 409         case 0x1500:
 410                 get_cur_pcg(addr);
 411                 return pcg_b[cur_code][cur_line];
 412         case 0x1600:
 413                 get_cur_pcg(addr);
 414                 return pcg_r[cur_code][cur_line];
 415         case 0x1700:
 416                 get_cur_pcg(addr);
 417                 return pcg_g[cur_code][cur_line];
 418 #ifdef _X1TURBOZ
 419         case 0x1f00:
 420                 switch(addr) {
 421                 case 0x1fb0:
 422                         return zmode1;
 423                 case 0x1fb1:
 424                 case 0x1fb2:
 425                 case 0x1fb3:
 426                 case 0x1fb4:
 427                 case 0x1fb5:
 428                 case 0x1fb6:
 429                 case 0x1fb7:
 430                         return ztpal[addr & 7];
 431                 case 0x1fc0:
 432                         return zpriority;
 433                 case 0x1fc4:
 434                         return zscroll;
 435                 case 0x1fc5:
 436                         return zmode2;
 437                 case 0x1fd0:
 438                         return mode1;
 439                 case 0x1fe0:
 440                         return mode2;
 441                 }
 442                 break;
 443 #endif
 444         case 0x2000:
 445         case 0x2100:
 446         case 0x2200:
 447         case 0x2300:
 448         case 0x2400:
 449         case 0x2500:
 450         case 0x2600:
 451         case 0x2700:
 452                 return vram_a[addr & 0x7ff];
 453         case 0x2800:
 454         case 0x2900:
 455         case 0x2a00:
 456         case 0x2b00:
 457         case 0x2c00:
 458         case 0x2d00:
 459         case 0x2e00:
 460         case 0x2f00:
 461                 return vram_a[addr & 0x7ff]; // mirror
 462         case 0x3000:
 463         case 0x3100:
 464         case 0x3200:
 465         case 0x3300:
 466         case 0x3400:
 467         case 0x3500:
 468         case 0x3600:
 469         case 0x3700:
 470                 return vram_t[addr & 0x7ff];
 471         case 0x3800:
 472         case 0x3900:
 473         case 0x3a00:
 474         case 0x3b00:
 475         case 0x3c00:
 476         case 0x3d00:
 477         case 0x3e00:
 478         case 0x3f00:
 479 #ifdef _X1TURBO_FEATURE
 480                 return vram_k[addr & 0x7ff];
 481 #else
 482                 return vram_t[addr & 0x7ff]; // mirror
 483 #endif
 484         }
 485         return 0xff;
 486 }
 487
 488 void DISPLAY::write_signal(int id, uint32 data, uint32 mask)
 489 {
 490         if(id == SIG_DISPLAY_VBLANK) {
 491                 if(!(data & mask)) {
 492                         // enter vblank
 493                         vblank_clock = current_clock();
 494                 }
 495         } else if(id == SIG_DISPLAY_COLUMN40) {
 496                 column40 = ((data & mask) != 0);
 497         } else if(id == SIG_DISPLAY_DETECT_VBLANK) {
 498                 // hack: cpu detects vblank
 499                 vblank_clock = current_clock();
 500         }
 501 }
 502
 503 void DISPLAY::event_frame()
 504 {
 505         cblink = (cblink + 1) & 0x3f;
 506
 507         // update crtc parameters
 508         ch_height = (regs[9] & 0x1f) + 1;
 509         hz_total = regs[0] + 1;
 510         hz_disp = regs[1];
 511         vt_disp = regs[6] & 0x7f;
 512         st_addr = (regs[12] << 8) | regs[13];
 513
 514 #ifdef _X1TURBO_FEATURE
 515         int vt_total = ((regs[4] & 0x7f) + 1) * ch_height + (regs[5] & 0x1f);
 516         hireso = (vt_total > 400);
 517 #endif
 518 }
 519
 520 void DISPLAY::event_vline(int v, int clock)
 521 {
 522 #ifdef _X1TURBO_FEATURE
 523         if(hireso) {
 524                 if(v < 400) {
 525                         draw_line(v);
 526                 }
 527         } else {
 528 #endif
 529                 if(v < 200) {
 530                         draw_line(v);
 531                 }
 532 #ifdef _X1TURBO_FEATURE
 533         }
 534         // restart cpu after pcg/cgrom is accessed
 535         d_cpu->write_signal(SIG_CPU_BUSREQ, 0, 0);
 536 #endif
 537 }
 538
 539 void DISPLAY::update_pal()
 540 {
 541         uint8 pal2[8];
 542         for(int i = 0; i < 8; i++) {
 543                 uint8 bit = 1 << i;
 544                 pal2[i] = ((pal[0] & bit) ? 1 : 0) | ((pal[1] & bit) ? 2 : 0) | ((pal[2] & bit) ? 4 : 0) | 8;
 545         }
 546 #ifdef _X1TURBO_FEATURE
 547         if(mode2 & 0x10) pal2[0] = 8;
 548         if(mode2 & 0x20) pal2[1] = 8;
 549 #endif
 550         for(int c = 0; c < 8; c++) {
 551                 for(int t = 0; t < 8; t++) {
 552                         if(priority & (1 << c)) {
 553                                 pri[c][t] = pal2[c];
 554                         } else if(t) {
 555 #ifdef _X1TURBO_FEATURE
 556                                 pri[c][t] = ((mode2 & 8) && (mode2 & 7) == t) ? 0 : t;
 557 #else
 558                                 pri[c][t] = t;
 559 #endif
 560                         } else {
 561                                 pri[c][t] = pal2[c];
 562                         }
 563                 }
 564         }
 565 }
 566
 567 uint8 DISPLAY::get_cur_font(uint32 addr)
 568 {
 569 #ifdef _X1TURBO_FEATURE
 570         if(mode1 & 0x20) {
 571                 // wait next raster
 572                 d_cpu->write_signal(SIG_CPU_BUSREQ, 1, 1);
 573
 574                 // from X1EMU
 575                 uint16 vaddr;
 576                 if(!(vram_a[0x7ff] & 0x20)) {
 577                         vaddr = 0x7ff;
 578                 } else if(!(vram_a[0x3ff] & 0x20)) {
 579                         vaddr = 0x3ff;
 580                 } else if(!(vram_a[0x5ff] & 0x20)) {
 581                         vaddr = 0x5ff;
 582                 } else if(!(vram_a[0x1ff] & 0x20)) {
 583                         vaddr = 0x1ff;
 584                 } else {
 585                         vaddr = 0x3ff;
 586                 }
 587                 uint16 ank = vram_t[vaddr];
 588                 uint16 knj = vram_k[vaddr];
 589
 590                 if(knj & 0x80) {
 591                         uint32 ofs = adr2knj_x1t((knj << 8) | ank);
 592                         if(knj & 0x40) {
 593                                 ofs += 16; // right
 594                         }
 595                         return kanji[ofs | (addr & 15)];
 596                 } else if(mode1 & 0x40) {
 597                         return kanji[(ank << 4) | (addr & 15)];
 598                 } else {
 599                         return font[(ank << 3) | ((addr >> 1) & 7)];
 600                 }
 601         }
 602 #endif
 603         get_cur_code_line();
 604         return font[(cur_code << 3) | (cur_line & 7)];
 605 }
 606
 607 void DISPLAY::get_cur_pcg(uint32 addr)
 608 {
 609 #ifdef _X1TURBO_FEATURE
 610         if(mode1 & 0x20) {
 611                 // wait next raster
 612                 d_cpu->write_signal(SIG_CPU_BUSREQ, 1, 1);
 613
 614                 // from X1EMU
 615                 uint16 vaddr;
 616                 if(vram_a[0x7ff] & 0x20) {
 617                         vaddr = 0x7ff;
 618                 } else if(vram_a[0x3ff] & 0x20) {
 619                         vaddr = 0x3ff;
 620                 } else if(vram_a[0x5ff] & 0x20) {
 621                         vaddr = 0x5ff;
 622                 } else if(vram_a[0x1ff] & 0x20) {
 623                         vaddr = 0x1ff;
 624                 } else {
 625                         vaddr = 0x3ff;
 626                 }
 627                 cur_code = vram_t[vaddr];
 628                 cur_line = (addr >> 1) & 7;
 629
 630                 if(vram_k[vaddr] & 0x90) {
 631                         cur_code &= 0xfe;
 632                         cur_code += addr & 1;
 633                 }
 634         } else
 635 #endif
 636         get_cur_code_line();
 637 }
 638
 639 void DISPLAY::get_cur_code_line()
 640 {
 641 //#ifdef _X1TURBO_FEATURE
 642 //      int ht_clock = hireso ? 161 : 250;
 643 //#else
 644         #define ht_clock 250
 645 //#endif
 646         int clock = passed_clock(vblank_clock);
 647         int vt_line = vt_disp * ch_height + (int)(clock / ht_clock);
 648
 649         int addr = (hz_total * (clock % ht_clock)) / ht_clock;
 650         addr += hz_disp * (int)(vt_line / ch_height);
 651         if(addr > 0x7ff) {
 652                 addr = 0x7ff;
 653         }
 654         addr += st_addr;
 655
 656         cur_code = vram_t[addr & 0x7ff];
 657         cur_line = (vt_line % ch_height) & 7;
 658 }
 659
 660 void DISPLAY::draw_line(int v)
 661 {
 662         if(v == 0) {
 663                 memset(text, 0, sizeof(text));
 664                 memset(cg, 0, sizeof(cg));
 665                 prev_vert_double = false;
 666                 raster = 0;
 667         }
 668         if((regs[8] & 0x30) != 0x30) {
 669                 if((v % ch_height) == 0) {
 670                         draw_text(v / ch_height);
 671                 }
 672                 draw_cg(v);
 673                 memcpy(&pri_line[v][0][0], &pri[0][0], sizeof(pri));
 674         } else {
 675                 memset(&pri_line[v][0][0], 0, sizeof(pri));
 676         }
 677 }
 678
 679 void DISPLAY::draw_screen()
 680 {
 681         // copy to real screen
 682 #ifdef _X1TURBO_FEATURE
 683         if(hireso) {
 684                 // 400 lines
 685                 if(column40) {
 686                         // 40 columns
 687                         for(int y = 0; y < 400; y++) {
 688                                 scrntype* dest = emu->screen_buffer(y);
 689                                 uint8* src_text = text[y];
 690                                 uint8* src_cg = cg[y];
 691
 692                                 for(int x = 0, x2 = 0; x < 320; x++, x2 += 2) {
 693                                         dest[x2] = dest[x2 + 1] = palette_pc[pri_line[y][src_cg[x]][src_text[x]]];
 694                                 }
 695                         }
 696                 } else {
 697                         // 80 columns
 698                         for(int y = 0; y < 400; y++) {
 699                                 scrntype* dest = emu->screen_buffer(y);
 700                                 uint8* src_text = text[y];
 701                                 uint8* src_cg = cg[y];
 702
 703                                 for(int x = 0; x < 640; x++) {
 704                                         dest[x] = palette_pc[pri_line[y][src_cg[x]][src_text[x]]];
 705                                 }
 706                         }
 707                 }
 708                 emu->screen_skip_line = false;
 709         } else {
 710 #endif
 711                 // 200 lines
 712                 if(column40) {
 713                         // 40 columns
 714                         for(int y = 0; y < 200; y++) {
 715                                 scrntype* dest0 = emu->screen_buffer(y * 2 + 0);
 716                                 scrntype* dest1 = emu->screen_buffer(y * 2 + 1);
 717                                 uint8* src_text = text[y];
 718                                 uint8* src_cg = cg[y];
 719
 720                                 for(int x = 0, x2 = 0; x < 320; x++, x2 += 2) {
 721                                         dest0[x2] = dest0[x2 + 1] = palette_pc[pri_line[y][src_cg[x]][src_text[x]]];
 722                                 }
 723                                 if(!config.scan_line) {
 724                                         memcpy(dest1, dest0, 640 * sizeof(scrntype));
 725                                 } else {
 726                                         memset(dest1, 0, 640 * sizeof(scrntype));
 727                                 }
 728                         }
 729                 } else {
 730                         // 80 columns
 731                         for(int y = 0; y < 200; y++) {
 732                                 scrntype* dest0 = emu->screen_buffer(y * 2 + 0);
 733                                 scrntype* dest1 = emu->screen_buffer(y * 2 + 1);
 734                                 uint8* src_text = text[y];
 735                                 uint8* src_cg = cg[y];
 736
 737                                 for(int x = 0; x < 640; x++) {
 738                                         dest0[x] = palette_pc[pri_line[y][src_cg[x]][src_text[x]]];
 739                                 }
 740                                 if(!config.scan_line) {
 741                                         memcpy(dest1, dest0, 640 * sizeof(scrntype));
 742                                 } else {
 743                                         memset(dest1, 0, 640 * sizeof(scrntype));
 744                                 }
 745                         }
 746                 }
 747                 emu->screen_skip_line = true;
 748 #ifdef _X1TURBO_FEATURE
 749         }
 750 #endif
 751 }
 752
 753 void DISPLAY::draw_text(int y)
 754 {
 755         int width = column40 ? 40 : 80;
 756         uint16 src = st_addr + hz_disp * y;
 757
 758         bool cur_vert_double = true;
 759         uint8 prev_attr = 0, prev_pattern_b[32], prev_pattern_r[32], prev_pattern_g[32];
 760
 761         for(int x = 0; x < hz_disp && x < width; x++) {
 762                 src &= 0x7ff;
 763                 uint8 code = vram_t[src];
 764 #ifdef _X1TURBO_FEATURE
 765                 uint8 knj = vram_k[src];
 766 #endif
 767                 uint8 attr = vram_a[src];
 768                 src++;
 769
 770                 uint8 col = attr & 7;
 771                 bool reverse = ((attr & 8) != 0);
 772                 bool blink = ((attr & 0x10) && (cblink & 0x20));
 773                 reverse = (reverse != blink);
 774
 775                 // select pcg or ank
 776                 const uint8 *pattern_b, *pattern_r, *pattern_g;
 777 #ifdef _X1TURBO_FEATURE
 778                 int shift = 0;
 779 #endif
 780                 if(attr & 0x20) {
 781                         // pcg
 782 #ifdef _X1TURBO_FEATURE
 783                         if(knj & 0x90) {
 784                                 pattern_b = gaiji_b[code >> 1];
 785                                 pattern_r = gaiji_r[code >> 1];
 786                                 pattern_g = gaiji_g[code >> 1];
 787                         } else {
 788 #endif
 789                                 pattern_b = pcg_b[code];
 790                                 pattern_r = pcg_r[code];
 791                                 pattern_g = pcg_g[code];
 792 #ifdef _X1TURBO_FEATURE
 793                                 shift = hireso ? 1 : 0;
 794                         }
 795 #endif
 796 #ifdef _X1TURBO_FEATURE
 797                 } else if(knj & 0x80) {
 798                         uint32 ofs = adr2knj_x1t((knj << 8) | code);
 799                         if(knj & 0x40) {
 800                                 ofs += 16; // right
 801                         }
 802                         pattern_b = pattern_r = pattern_g = &kanji[ofs];
 803                         shift = hireso ? ((ch_height >= 32) ? 1 : 0) : ((ch_height >= 16) ? 0 : -1);
 804                 } else if(hireso || (mode1 & 4)) {
 805                         // ank 8x16 or kanji
 806                         pattern_b = pattern_r = pattern_g = &kanji[code << 4];
 807                         shift = hireso ? ((ch_height >= 32) ? 1 : 0) : ((ch_height >= 16) ? 0 : -1);
 808 #endif
 809                 } else {
 810                         // ank 8x8
 811                         pattern_b = pattern_r = pattern_g = &font[code << 3];
 812                 }
 813
 814                 // check vertical doubled char
 815                 if(!(attr & 0x40)) {
 816                         cur_vert_double = false;
 817                 }
 818
 819                 // render character
 820                 for(int l = 0; l < ch_height; l++) {
 821                         int line = cur_vert_double ? raster + (l >> 1) : l;
 822 #ifdef _X1TURBO_FEATURE
 823                         if(shift == 1) {
 824                                 line >>= 1;
 825                         } else if(shift == -1) {
 826                                 line <<= 1;
 827                                 if(cur_vert_double) {
 828                                         line |= l & 1;
 829                                 }
 830                         }
 831 #endif
 832                         uint8 b, r, g;
 833                         if((x & 1) && (prev_attr & 0x80)) {
 834                                 b = prev_pattern_b[line] << 4;
 835                                 r = prev_pattern_r[line] << 4;
 836                                 g = prev_pattern_g[line] << 4;
 837                         } else {
 838                                 b = prev_pattern_b[line] = pattern_b[line];
 839                                 r = prev_pattern_r[line] = pattern_r[line];
 840                                 g = prev_pattern_g[line] = pattern_g[line];
 841                         }
 842                         if(reverse) {
 843                                 b = (!(col & 1)) ? 0xff : ~b;
 844                                 r = (!(col & 2)) ? 0xff : ~r;
 845                                 g = (!(col & 4)) ? 0xff : ~g;
 846                         } else {
 847                                 b = (!(col & 1)) ? 0 : b;
 848                                 r = (!(col & 2)) ? 0 : r;
 849                                 g = (!(col & 4)) ? 0 : g;
 850                         }
 851
 852                         int yy = y * ch_height + l;
 853 #ifdef _X1TURBO_FEATURE
 854                         if(yy >= 400) {
 855 #else
 856                         if(yy >= 200) {
 857 #endif
 858                                 break;
 859                         }
 860                         uint8* d = &text[yy][x << 3];
 861
 862                         if(attr & 0x80) {
 863                                 // horizontal doubled char
 864                                 d[ 0] = d[ 1] = ((b & 0x80) >> 7) | ((r & 0x80) >> 6) | ((g & 0x80) >> 5);
 865                                 d[ 2] = d[ 3] = ((b & 0x40) >> 6) | ((r & 0x40) >> 5) | ((g & 0x40) >> 4);
 866                                 d[ 4] = d[ 5] = ((b & 0x20) >> 5) | ((r & 0x20) >> 4) | ((g & 0x20) >> 3);
 867                                 d[ 6] = d[ 7] = ((b & 0x10) >> 4) | ((r & 0x10) >> 3) | ((g & 0x10) >> 2);
 868                         } else {
 869                                 d[0] = ((b & 0x80) >> 7) | ((r & 0x80) >> 6) | ((g & 0x80) >> 5);
 870                                 d[1] = ((b & 0x40) >> 6) | ((r & 0x40) >> 5) | ((g & 0x40) >> 4);
 871                                 d[2] = ((b & 0x20) >> 5) | ((r & 0x20) >> 4) | ((g & 0x20) >> 3);
 872                                 d[3] = ((b & 0x10) >> 4) | ((r & 0x10) >> 3) | ((g & 0x10) >> 2);
 873                                 d[4] = ((b & 0x08) >> 3) | ((r & 0x08) >> 2) | ((g & 0x08) >> 1);
 874                                 d[5] = ((b & 0x04) >> 2) | ((r & 0x04) >> 1) | ((g & 0x04) >> 0);
 875                                 d[6] = ((b & 0x02) >> 1) | ((r & 0x02) >> 0) | ((g & 0x02) << 1);
 876                                 d[7] = ((b & 0x01) >> 0) | ((r & 0x01) << 1) | ((g & 0x01) << 2);
 877                         }
 878                 }
 879                 prev_attr = attr;
 880         }
 881         if(cur_vert_double && !prev_vert_double) {
 882                 prev_vert_double = true;
 883                 raster = ch_height >> 1;
 884         } else {
 885                 prev_vert_double = false;
 886                 raster = 0;
 887         }
 888 }
 889
 890 void DISPLAY::draw_cg(int line)
 891 {
 892         int width = column40 ? 40 : 80;
 893
 894         int y = line / ch_height;
 895         int l = line % ch_height;
 896         if(y >= vt_disp) {
 897                 return;
 898         }
 899         int ofs, src = st_addr + hz_disp * y;
 900 #ifdef _X1TURBO_FEATURE
 901         int page = (hireso && !(mode1 & 2)) ? (l & 1) : (mode1 & 8);
 902         int ll = hireso ? (l >> 1) : l;
 903
 904         if(mode1 & 4) {
 905                 ofs = (0x400 * (ll & 15)) + (page ? 0xc000 : 0);
 906         } else {
 907                 ofs = (0x800 * (ll & 7)) + (page ? 0xc000 : 0);
 908         }
 909 #else
 910         ofs = 0x800 * (l & 7);
 911 #endif
 912         int ofs_b = ofs + 0x0000;
 913         int ofs_r = ofs + 0x4000;
 914         int ofs_g = ofs + 0x8000;
 915
 916         for(int x = 0; x < hz_disp && x < width; x++) {
 917                 src &= 0x7ff;
 918                 uint8 b = vram_ptr[ofs_b | src];
 919                 uint8 r = vram_ptr[ofs_r | src];
 920                 uint8 g = vram_ptr[ofs_g | src++];
 921                 uint8* d = &cg[line][x << 3];
 922
 923                 d[0] = ((b & 0x80) >> 7) | ((r & 0x80) >> 6) | ((g & 0x80) >> 5);
 924                 d[1] = ((b & 0x40) >> 6) | ((r & 0x40) >> 5) | ((g & 0x40) >> 4);
 925                 d[2] = ((b & 0x20) >> 5) | ((r & 0x20) >> 4) | ((g & 0x20) >> 3);
 926                 d[3] = ((b & 0x10) >> 4) | ((r & 0x10) >> 3) | ((g & 0x10) >> 2);
 927                 d[4] = ((b & 0x08) >> 3) | ((r & 0x08) >> 2) | ((g & 0x08) >> 1);
 928                 d[5] = ((b & 0x04) >> 2) | ((r & 0x04) >> 1) | ((g & 0x04) >> 0);
 929                 d[6] = ((b & 0x02) >> 1) | ((r & 0x02) >> 0) | ((g & 0x02) << 1);
 930                 d[7] = ((b & 0x01) >> 0) | ((r & 0x01) << 1) | ((g & 0x01) << 2);
 931         }
 932 }
 933
 934 // kanji rom (from X1EMU by KM)
 935
 936 void DISPLAY::write_kanji(uint32 addr, uint32 data)
 937 {
 938         switch(addr) {
 939         case 0xe80:
 940                 kaddr = (kaddr & 0xff00) | data;
 941                 break;
 942         case 0xe81:
 943                 kaddr = (kaddr & 0xff) | (data << 8);
 944                 break;
 945         case 0xe82:
 946                 // TODO: bit0 L->H: Latch
 947                 kanji_ptr = &kanji[adr2knj_x1(kaddr & 0xfff0)];
 948                 break;
 949         }
 950 }
 951
 952 uint32 DISPLAY::read_kanji(uint32 addr)
 953 {
 954         switch(addr) {
 955         case 0xe80:
 956                 if(kaddr & 0xff00) {
 957                         uint32 val = kanji_ptr[kofs];
 958                         kflag |= 1;
 959                         if(kflag == 3) {
 960                                 kofs = (kofs + 1) & 15;
 961                                 kflag = 0;
 962                         }
 963                         return val;
 964                 }
 965                 return jis2adr_x1(kaddr << 8) >> 8;
 966         case 0xe81:
 967                 if(kaddr & 0xff00) {
 968                         uint32 val = kanji_ptr[kofs + 16];
 969                         kflag |= 2;
 970                         if(kflag == 3) {
 971                                 kofs = (kofs + 1) & 15;
 972                                 kflag = 0;
 973                         }
 974                         return val;
 975                 }
 976                 return 0;
 977         }
 978         return 0xff;
 979 }
 980
 981 uint16 DISPLAY::jis2adr_x1(uint16 jis)
 982 {
 983         uint16 jh, jl, adr;
 984
 985         jh = jis >> 8;
 986         jl = jis & 0xff;
 987         if(jh > 0x28) {
 988                 adr = 0x4000 + (jh - 0x30) * 0x600;
 989         } else {
 990                 adr = 0x0100 + (jh - 0x21) * 0x600;
 991         }
 992         if(jl >= 0x20) {
 993                 adr += (jl - 0x20) * 0x10;
 994         }
 995         return adr;
 996 }
 997
 998 uint32 DISPLAY::adr2knj_x1(uint16 adr)
 999 {
1000         uint16 jh, jl, jis;
1001
1002         if(adr < 0x4000) {
1003                 jh = adr - 0x0100;
1004                 jh = 0x21 + jh / 0x600;
1005         } else {
1006                 jh = adr - 0x4000;
1007                 jh = 0x30 + jh / 0x600;
1008         }
1009         if(jh > 0x28) {
1010                 adr -= 0x4000 + (jh - 0x30) * 0x600;
1011         } else {
1012                 adr -= 0x0100 + (jh - 0x21) * 0x600;
1013         }
1014         jl = 0x20;
1015         if(adr) {
1016                 jl += adr / 0x10;
1017         }
1018
1019         jis = (jh << 8) | jl;
1020         return jis2knj(jis);
1021 }
1022
1023 #ifdef _X1TURBO_FEATURE
1024 uint32 DISPLAY::adr2knj_x1t(uint16 adr)
1025 {
1026         uint16 j1, j2;
1027         uint16 rl, rh;
1028         uint16 jis;
1029
1030         rh = adr >> 8;
1031         rl = adr & 0xff;
1032
1033         rh &= 0x1f;
1034         if(!rl && !rh) {
1035                 return jis2knj(0);
1036         }
1037         j2 = rl & 0x1f;         // rl4,3,2,1,0
1038         j1 = (rl / 0x20) & 7;   // rl7,6,5
1039
1040         if(rh < 0x04) {
1041                 // 2121-277e
1042                 j1 |= 0x20;
1043                 switch(rh & 3) {
1044                 case 0: j2 |= 0x20; break;
1045                 case 1: j2 |= 0x60; break;
1046                 case 2: j2 |= 0x40; break;
1047                 default: j1 = j2 = 0; break;
1048                 }
1049         } else if(rh > 0x1c) {
1050                 // 7021-777e
1051                 j1 |= 0x70;
1052                 switch(rh & 3) {
1053                 case 0: j2 |= 0x20; break;
1054                 case 1: j2 |= 0x60; break;
1055                 case 2: j2 |= 0x40; break;
1056                 default: j1 = j2 = 0; break;
1057                 }
1058         } else {
1059                 j1 |= (((rh >> 1) + 7) / 3) * 0x10;
1060                 j1 |= (rh & 1) * 8;
1061                 j2 |= ((((rh >> 1) + 1) % 3) + 1) * 0x20;
1062         }
1063
1064         jis = (j1 << 8) | j2;
1065         return jis2knj(jis);
1066 }
1067 #endif
1068
1069 uint32 DISPLAY::jis2knj(uint16 jis)
1070 {
1071         uint32 sjis = jis2sjis(jis);
1072
1073         if(sjis < 0x100) {
1074                 return sjis * 16;
1075         } else if(sjis >= 0x8140 && sjis < 0x84c0) {
1076                 return 0x01000 + (sjis - 0x8140) * 32;
1077         } else if(sjis >= 0x8890 && sjis < 0xa000) {
1078                 return 0x08000 + (sjis - 0x8890) * 32;
1079         } else if(sjis >= 0xe040 && sjis < 0xeab0) {
1080                 return 0x36e00 + (sjis - 0xe040) * 32;
1081         } else {
1082                 return 0;
1083         }
1084 }
1085
1086 uint16 DISPLAY::jis2sjis(uint16 jis)
1087 {
1088         uint16 c1, c2;
1089
1090         if(!jis) {
1091                 return 0;
1092         }
1093         c1 = jis >> 8;
1094         c2 = jis & 0xff;
1095
1096         if(c1 & 1) {
1097                 c2 += 0x1f;
1098                 if(c2 >= 0x7f) {
1099                         c2++;
1100                 }
1101         } else {
1102                 c2 += 0x7e;
1103         }
1104         c1 = (c1 - 0x20 - 1) / 2 + 0x81;
1105         if(c1 >= 0xa0) {
1106                 c1 += 0x40;
1107         }
1108         return (c1 << 8) | c2;
1109 }
1110
1111 #define STATE_VERSION   2
1112
1113 void DISPLAY::save_state(FILEIO* state_fio)
1114 {
1115         state_fio->FputUint32(STATE_VERSION);
1116         state_fio->FputInt32(this_device_id);
1117
1118         state_fio->Fwrite(vram_t, sizeof(vram_t), 1);
1119         state_fio->Fwrite(vram_a, sizeof(vram_a), 1);
1120 #ifdef _X1TURBO_FEATURE
1121         state_fio->Fwrite(vram_k, sizeof(vram_k), 1);
1122 #endif
1123         state_fio->Fwrite(pcg_b, sizeof(pcg_b), 1);
1124         state_fio->Fwrite(pcg_r, sizeof(pcg_r), 1);
1125         state_fio->Fwrite(pcg_g, sizeof(pcg_g), 1);
1126 #ifdef _X1TURBO_FEATURE
1127         state_fio->Fwrite(gaiji_b, sizeof(gaiji_b), 1);
1128         state_fio->Fwrite(gaiji_r, sizeof(gaiji_r), 1);
1129         state_fio->Fwrite(gaiji_g, sizeof(gaiji_g), 1);
1130 #endif
1131         state_fio->FputUint8(cur_code);
1132         state_fio->FputUint8(cur_line);
1133         state_fio->FputInt32(kaddr);
1134         state_fio->FputInt32(kofs);
1135         state_fio->FputInt32(kflag);
1136         state_fio->FputInt32((int)(kanji_ptr - &kanji[0]));
1137         state_fio->Fwrite(pal, sizeof(pal), 1);
1138         state_fio->FputUint8(priority);
1139         state_fio->Fwrite(pri, sizeof(pri), 1);
1140         state_fio->FputBool(column40);
1141 #ifdef _X1TURBO_FEATURE
1142         state_fio->FputUint8(mode1);
1143         state_fio->FputUint8(mode2);
1144         state_fio->FputBool(hireso);
1145 #endif
1146 #ifdef _X1TURBOZ
1147         state_fio->FputUint8(zmode1);
1148         state_fio->FputUint8(zpriority);
1149         state_fio->FputUint8(zscroll);
1150         state_fio->FputUint8(zmode2);
1151         state_fio->Fwrite(ztpal, sizeof(ztpal), 1);
1152         state_fio->Fwrite(zpal, sizeof(zpal), 1);
1153         state_fio->FputInt32(zpal_num);
1154         state_fio->Fwrite(palette_pc, sizeof(palette_pc), 1);
1155 #endif
1156         state_fio->FputBool(prev_vert_double);
1157         state_fio->FputInt32(raster);
1158         state_fio->FputInt32(cblink);
1159         state_fio->FputInt32(ch_height);
1160         state_fio->FputInt32(hz_total);
1161         state_fio->FputInt32(hz_disp);
1162         state_fio->FputInt32(vt_disp);
1163         state_fio->FputInt32(st_addr);
1164         state_fio->FputUint32(vblank_clock);
1165 }
1166
1167 bool DISPLAY::load_state(FILEIO* state_fio)
1168 {
1169         if(state_fio->FgetUint32() != STATE_VERSION) {
1170                 return false;
1171         }
1172         if(state_fio->FgetInt32() != this_device_id) {
1173                 return false;
1174         }
1175         state_fio->Fread(vram_t, sizeof(vram_t), 1);
1176         state_fio->Fread(vram_a, sizeof(vram_a), 1);
1177 #ifdef _X1TURBO_FEATURE
1178         state_fio->Fread(vram_k, sizeof(vram_k), 1);
1179 #endif
1180         state_fio->Fread(pcg_b, sizeof(pcg_b), 1);
1181         state_fio->Fread(pcg_r, sizeof(pcg_r), 1);
1182         state_fio->Fread(pcg_g, sizeof(pcg_g), 1);
1183 #ifdef _X1TURBO_FEATURE
1184         state_fio->Fread(gaiji_b, sizeof(gaiji_b), 1);
1185         state_fio->Fread(gaiji_r, sizeof(gaiji_r), 1);
1186         state_fio->Fread(gaiji_g, sizeof(gaiji_g), 1);
1187 #endif
1188         cur_code = state_fio->FgetUint8();
1189         cur_line = state_fio->FgetUint8();
1190         kaddr = state_fio->FgetInt32();
1191         kofs = state_fio->FgetInt32();
1192         kflag = state_fio->FgetInt32();
1193         kanji_ptr = &kanji[0] + state_fio->FgetInt32();
1194         state_fio->Fread(pal, sizeof(pal), 1);
1195         priority = state_fio->FgetUint8();
1196         state_fio->Fread(pri, sizeof(pri), 1);
1197         column40 = state_fio->FgetBool();
1198 #ifdef _X1TURBO_FEATURE
1199         mode1 = state_fio->FgetUint8();
1200         mode2 = state_fio->FgetUint8();
1201         hireso = state_fio->FgetBool();
1202 #endif
1203 #ifdef _X1TURBOZ
1204         zmode1 = state_fio->FgetUint8();
1205         zpriority = state_fio->FgetUint8();
1206         zscroll = state_fio->FgetUint8();
1207         zmode2 = state_fio->FgetUint8();
1208         state_fio->Fread(ztpal, sizeof(ztpal), 1);
1209         state_fio->Fread(zpal, sizeof(zpal), 1);
1210         zpal_num = state_fio->FgetInt32();
1211         state_fio->Fread(palette_pc, sizeof(palette_pc), 1);
1212 #endif
1213         prev_vert_double = state_fio->FgetBool();
1214         raster = state_fio->FgetInt32();
1215         cblink = state_fio->FgetInt32();
1216         ch_height = state_fio->FgetInt32();
1217         hz_total = state_fio->FgetInt32();
1218         hz_disp = state_fio->FgetInt32();
1219         vt_disp = state_fio->FgetInt32();
1220         st_addr = state_fio->FgetInt32();
1221         vblank_clock = state_fio->FgetUint32();
1222         return true;
1223 }
1224