/*
 * 86Box    A hypervisor and IBM PC system emulator that specializes in
 *          running old operating systems and software designed for IBM
 *          PC systems and compatibles from 1981 through fairly recent
 *          system designs based on the PCI bus.
 *
 *          This file is part of the 86Box distribution.
 *
 *          Emulation of the JEGA (Japanese EGA), a part of the AX architecture.
 *
 *          It's an extension of the SuperEGA. Superimposing text (AX-2) is not available.
 *
 * Authors: Akamaki
 *
 *          Copyright 2025 Akamaki
 */
#include <stdarg.h>
#include <stdbool.h>
#include <stdio.h>
#include <stdint.h>
#include <string.h>
#include <stdlib.h>
#include <wchar.h>
#define HAVE_STDARG_H
#include <86box/86box.h>
#include "cpu.h"
#include <86box/io.h>
#include <86box/timer.h>
#include <86box/pic.h>
#include <86box/pit.h>
#include <86box/plat.h>
#include <86box/plat_fallthrough.h>
#include <86box/mem.h>
#include <86box/rom.h>
#include <86box/device.h>
#include <86box/video.h>
#include <86box/vid_ega.h>
#include <86box/vid_svga.h>
#include <86box/vid_vga.h>

/* JEGA internal registers */
#define RPESL 0x09 /* End Scan Line */
#define RCCSL 0x0A /* Cursor Start Line */
#define RCCEL 0x0B /* Cursor End Line */
#define RCCLH 0x0E /* Cursor Location High */
#define RCCLL 0x0F /* Cursor Location Low */
#define RPULP 0x14 /* Under Line Position */
/* + 0xB8 - 0x20 */
#define RMOD1 0x21 /* Display out, EGA through, Superimpose, Sync with EGA, Master EGA, Slave EGA, n/a, Test */
#define RMOD2 0x22 /* 1st Attr, 2nd Attr, Blink/Int, n/a, Font access mode (b3-2), Font map sel (b1-0)*/
#define RDAGS 0x23 /* ANK Group Select */
#define RDFFB 0x24 /* Font Access First Byte */
#define RDFSB 0x25 /* Font Access Second Byte */
#define RDFAP 0x26 /* Font Access Pattern */
#define RSTAT 0x27 /* Font Status Register */
/* + 0xD0 - 0x20 */
#define RPSSU 0x29 /* Start Scan Upper */
#define RPSSL 0x2A /* Start Scan Lower */
#define RPSSC 0x2B /* Start Scan Count */
#define RPPAJ 0x2C /* Phase Adjust Count */
#define RCMOD 0x2D /* Cursor Mode */
#define RCSKW 0x2E /* Cursor Skew Control */
#define ROMSL 0x2F /* ? */
#define RINVALID_INDEX 0x30

#define JEGA_PATH_BIOS     "roms/video/jega/JEGABIOS.BIN"
#define JEGA_PATH_FONTDBCS "roms/video/jega/JPNZN16X.FNT"
#define IF386_PATH_VBIOS   "roms/machines/if386sx/OKI_IF386SX_VBIOS.bin"
#define JVGA_PATH_BIOS     "roms/video/jega/OKI_JVGT(AXVGAH)_BIOS_011993.BIN"
#define JVGA_PATH_FONTDBCS "roms/video/jega/JWPCE.FNT"
#define SBCS19_FILESIZE    (256 * 19 * 2) /* 8 x 19 x 256 chr x 2 pages */
#define DBCS16_CHARS       0x2c10
#define DBCS16_FILESIZE    (DBCS16_CHARS * 16 * 2)

#define INVALIDACCESS8     0xffu
#define INVALIDACCESS16    0xffffu
#define INVALIDACCESS32    0xffffffffu

#ifndef RELEASE_BUILD
// #    define ENABLE_JEGA_LOG 1
#endif

#ifdef ENABLE_JEGA_LOG
int jega_do_log = ENABLE_JEGA_LOG;

static void
jega_log(const char *fmt, ...)
{
    va_list ap;

    if (jega_do_log) {
        va_start(ap, fmt);
        pclog_ex(fmt, ap);
        va_end(ap);
    }
}
#else
#    define jega_log(fmt, ...)
#endif

static video_timings_t timing_ega = { .type = VIDEO_ISA, .write_b = 8, .write_w = 16, .write_l = 32, .read_b = 8, .read_w = 16, .read_l = 32 };

typedef struct jega_t {
    rom_t     bios_rom;
    ega_t     ega;
    vga_t     vga;
    uint8_t   regs_index; /* 3D4/3D5 index B9-BF, D9-DF */
    uint8_t   regs[0x31];
    uint8_t   egapal[16];
    uint8_t   attrregs[32];
    uint8_t   attraddr;
    uint8_t   attrff;
    uint8_t   attr_palette_enable;
    uint32_t *pallook;
    int       is_vga;
    int       cursorvisible;
    int       cursoron;
    int       cursorblink_disable;
    int       cursoraddr;
    int       font_index;
    int       sbcsbank_inv;
    int       attr3_sbcsbank;
    int       start_scan_lower;
    int       start_scan_upper;
    int       start_scan_count;
    uint8_t  *vram;
    uint8_t   jfont_sbcs_19[SBCS19_FILESIZE]; /* 8 x 19 font */
    uint8_t   jfont_dbcs_16[DBCS16_FILESIZE]; /* 16 x 16 font. Use dbcs_read/write to access it. */
} jega_t;

static void jega_recalctimings(void *priv);

#define FONTX_LEN_ID 6
#define FONTX_LEN_FN 8

typedef struct {
    char    id[FONTX_LEN_ID];
    char    name[FONTX_LEN_FN];
    uint8_t width;
    uint8_t height;
    uint8_t type;
} fontx_h;

typedef struct {
    uint16_t start;
    uint16_t end;
} fontx_tbl;

extern uint32_t pallook16[256];
extern uint32_t pallook64[256];
static bool     is_SJIS_1(uint8_t chr) { return (chr >= 0x81 && chr <= 0x9f) || (chr >= 0xe0 && chr <= 0xfc); }
static bool     is_SJIS_2(uint8_t chr) { return (chr >= 0x40 && chr <= 0x7e) || (chr >= 0x80 && chr <= 0xfc); }

static uint8_t jega_in(uint16_t addr, void *priv);

static uint16_t
SJIS_to_SEQ(uint16_t sjis)
{
    uint32_t chr1 = (sjis >> 8) & 0xff;
    uint32_t chr2 = sjis & 0xff;

    if (!is_SJIS_1(chr1) || !is_SJIS_2(chr2))
        return INVALIDACCESS16;

    chr1 -= 0x81;

    if (chr1 > 0x5e)
        chr1 -= 0x40;

    chr2 -= 0x40;

    if (chr2 > 0x3f)
        chr2--;

    chr1 *= 0xbc;

    return (chr1 + chr2);
}

static uint8_t
dbcs_read(uint16_t sjis, int index, void *priv) {
    jega_t *jega = (jega_t *) priv;
    int     seq  = SJIS_to_SEQ(sjis);
    if ((seq >= DBCS16_CHARS) || (index >= 32))
        return INVALIDACCESS8;
    return jega->jfont_dbcs_16[seq * 32 + index];
}

static void
dbcs_write(uint16_t sjis, int index, uint8_t val, void *priv) {
    jega_t *jega = (jega_t *) priv;
    int     seq  = SJIS_to_SEQ(sjis);
    if ((seq >= DBCS16_CHARS) || (index >= 32))
        return;
    jega->jfont_dbcs_16[seq * 32 + index] = val;
}

/* Display Adapter Mode 3 Drawing */
void
jega_render_text(void *priv)
{
    jega_t   *jega           = (jega_t *) priv;
#ifdef USE_DOUBLE_WIDTH_AND_LINE_CHARS
    uint8_t  *seqregs        = jega->is_vga ? jega->vga.svga.seqregs :
                                              jega->ega.seqregs;
    uint8_t  *attrregs       = jega->is_vga ? jega->vga.svga.attrregs :
                                              jega->ega.attrregs;
#endif
    uint8_t  *crtc           = jega->is_vga ? jega->vga.svga.crtc :
                                              jega->ega.crtc;
    uint8_t  *vram           = jega->is_vga ? jega->vga.svga.vram :
                                              jega->ega.vram;
    int      *firstline_draw = jega->is_vga ? &jega->vga.svga.firstline_draw :
                                              &jega->ega.firstline_draw;
    int      *lastline_draw  = jega->is_vga ? &jega->vga.svga.lastline_draw :
                                              &jega->ega.lastline_draw;
    int      *displine       = jega->is_vga ? &jega->vga.svga.displine :
                                              &jega->ega.displine;
    int      *fullchange     = jega->is_vga ? &jega->vga.svga.fullchange :
                                              &jega->ega.fullchange;
    int      *blink          = jega->is_vga ? &jega->vga.svga.blink :
                                              &jega->ega.blink;
    int      *x_add          = jega->is_vga ? &jega->vga.svga.x_add :
                                              &jega->ega.x_add;
    int      *y_add          = jega->is_vga ? &jega->vga.svga.y_add :
                                              &jega->ega.y_add;
    int      *sc             = jega->is_vga ? &jega->vga.svga.scanline :
                                              &jega->ega.scanline;
    int      *hdisp          = jega->is_vga ? &jega->vga.svga.hdisp :
                                              &jega->ega.hdisp;
    int      *scrollcache    = jega->is_vga ? &jega->vga.svga.scrollcache :
                                              &jega->ega.scrollcache;
    uint32_t *memaddr        = jega->is_vga ? &jega->vga.svga.memaddr :
                                              &jega->ega.memaddr;
    uint8_t   mask           = jega->is_vga ? jega->vga.svga.dac_mask : 0xff;

    if (((*displine + *y_add) < 0) ||
        (buffer32 == NULL) ||
        (buffer32->line[*displine + *y_add] == NULL))
        return;

    if (*firstline_draw == 2000)
        *firstline_draw = *displine;
    *lastline_draw = *displine;

    if (*fullchange) {
#ifdef USE_DOUBLE_WIDTH_AND_LINE_CHARS
        const bool doublewidth   = ((seqregs[1] & 8) != 0);
        const bool attrlinechars = (attrregs[0x10] & 4);
#endif
        const bool attrblink     = ((jega->regs[RMOD2] & 0x20) == 0); /* JEGA specific */
        const bool crtcreset     = ((crtc[0x17] & 0x80) == 0) || ((jega->regs[RMOD1] & 0x80) == 0);
        const int  charwidth     = 8;
        const bool blinked       = *blink & 0x10;
        uint32_t  *p             = &buffer32->line[*displine + *y_add][*x_add];
        bool       chr_wide      = false;
        int        sc_wide       = *sc - jega->start_scan_count;
        const bool cursoron      = (blinked || jega->cursorblink_disable) &&
                                   (*sc >= jega->regs[RCCSL]) && (*sc <= jega->regs[RCCEL]);
        uint32_t   attr_basic    = 0;
        uint32_t   chr_first;
        int        fg            = 0;
        int        bg            = 0;

        for (int x = 0; x < (*hdisp + *scrollcache); x += charwidth) {
            uint32_t addr = 0;

            if (jega->is_vga) {
                if (!jega->vga.svga.force_old_addr)
                    addr = jega->vga.svga.remap_func(&jega->vga.svga, jega->vga.svga.memaddr) &
                                                     jega->vga.svga.vram_display_mask;
            } else
                addr = jega->ega.remap_func(&jega->ega, *memaddr) & jega->ega.vrammask;

            int drawcursor = ((*memaddr == jega->cursoraddr) && cursoron);

            uint32_t chr;
            uint32_t attr;
            if (!crtcreset) {
                chr  = vram[addr];
                attr = vram[addr + 1];
            } else
                chr = attr = 0;
            if (chr_wide) {
                uint8_t attr_ext = 0;
                /* the code may be in DBCS */
                if (jega->regs[RMOD2] & 0x40) {
                    /* Parse JEGA extended attribute */
                    /* Bold | 2x width | 2x height | U/L select | R/L select | - | - | - */
                    attr_ext = attr;
                    if ((attr_ext & 0x30) == 0x30)
                        sc_wide = *sc - jega->start_scan_lower; /* Set top padding of lower 2x character */
                    else if ((attr_ext & 0x30) == 0x20)
                        sc_wide = *sc - jega->start_scan_upper; /* Set top padding of upper 2x character */
                    else
                        sc_wide = *sc - jega->start_scan_count;
                }
                if (is_SJIS_2(chr) && sc_wide >= 0 && sc_wide < 16 && *sc <= jega->regs[RPESL]) {
                    chr_first <<= 8;
                    chr |= chr_first;
                    /* Vertical wide font (Extended Attribute) */
                    if (attr_ext & 0x20) {
                        if (attr_ext & 0x10)
                            sc_wide = (sc_wide >> 1) + 8;
                        else
                            sc_wide = sc_wide >> 1;
                    }
                    /* Horizontal wide font (Extended Attribute) */
                    if (attr_ext & 0x40) {
                        uint32_t dat = dbcs_read(chr, sc_wide, jega);
                        if (!(attr_ext & 0x08)) { /* right half of character */
                            dat = dbcs_read(chr, sc_wide + 16, jega);
                        }
                        for (int xx = 0; xx < charwidth; xx++) {
                            p[xx * 2]     = (dat & (0x80 >> xx)) ? fg : bg;
                            p[xx * 2 + 1] = (dat & (0x80 >> xx)) ? fg : bg;
                        }
                    } else {
                        uint32_t dat = dbcs_read(chr, sc_wide, jega);
                        dat <<= 8;
                        dat |= dbcs_read(chr, sc_wide + 16, jega);
                        /* Bold (Extended Attribute) */
                        if (attr_ext &= 0x80) {
                            uint32_t dat2 = dat;
                            dat2 >>= 1;
                            dat |= dat2;
                        }
                        for (int xx = 0; xx < charwidth * 2; xx++)
                            p[xx] = (dat & (0x8000 >> xx)) ? fg : bg;
                    }
                } else {
                    /* invalid DBCS code or line space then put blank */
                    for (int xx = 0; xx < charwidth * 2; xx++)
                        p[xx] = bg;
                }
                if (attr_basic & 0x20) { /* vertical line */
                    p[0] = fg;
                }
                if ((*sc == jega->regs[RPULP]) && (attr_basic & 0x10)) { /* underline */
                    for (int xx = 0; xx < charwidth * 2; xx++)
                        p[xx] = fg;
                }
                chr_wide = false;
                p += (charwidth * 2);
            } else {
                /* SBCS or invalid second byte of DBCS */
                if (jega->regs[RMOD2] & 0x80) {
                    /* Parse attribute as JEGA */
                    /* Blink | Reverse | V line | U line | (Bit 3-0 is the same as EGA) */
                    /* The background color is always black (transparent in AX-2) */
                    if (drawcursor || attr & 0x40) {
                        bg = jega->pallook[jega->egapal[attr & 0x0f]];
                        fg = 0;
                    } else {
                        fg = jega->pallook[jega->egapal[attr & 0x0f]];
                        bg = 0;
                        if (attr & 0x80) {
                            bg = 0;
                            if (blinked)
                                fg = bg;
                        }
                    }
                    attr_basic = attr;
                } else {
                    /* Parse attribute as EGA */
                    /* BInt/Blink | BR | BG | BB | Int/Group | R | G | B */
                    if (drawcursor) {
                        bg = jega->pallook[jega->egapal[attr & 0x0f] & mask];
                        fg = jega->pallook[jega->egapal[attr >> 4] & mask];
                    } else {
                        fg = jega->pallook[jega->egapal[attr & 0x0f] & mask];
                        bg = jega->pallook[jega->egapal[attr >> 4] & mask];
                        if ((attr & 0x80) && attrblink) {
                            bg = jega->pallook[jega->egapal[(attr >> 4) & 7] & mask];
                            if (blinked)
                                fg = bg;
                        }
                    }
                    attr_basic = 0;
                }

                if (is_SJIS_1(chr)) {
                    /* the char code maybe in DBCS */
                    chr_first = chr;
                    chr_wide  = true;
                } else {
                    /* the char code is in SBCS */
                    uint32_t charaddr = chr;
                    // if (jega->attr3_sbcsbank && (attr & 8))
                    //     charaddr |= 0x100;
                    // if (jega->sbcsbank_inv)
                    //     charaddr ^= 0x100;
                    charaddr *= 19;

                    uint32_t dat = jega->jfont_sbcs_19[charaddr + *sc];
                    for (int xx = 0; xx < charwidth; xx++)
                        p[xx] = (dat & (0x80 >> xx)) ? fg : bg;

                    if (attr_basic & 0x20) /* vertical line */
                        p[0] = fg;

                    if ((*sc == jega->regs[RPULP]) && (attr_basic & 0x10)) { /* underline */
                        for (int xx = 0; xx < charwidth; xx++)
                            p[xx] = fg;
                    }
                    p += charwidth;
                }
            }
            *memaddr += 4;
        }
        *memaddr &= 0x3ffff;
    }
}

static void
jega_out(uint16_t addr, uint8_t val, void *priv)
{
    jega_t   *jega         = (jega_t *) priv;
    uint8_t   pal4to16[16] = { 0, 7, 0x38, 0x3f, 0, 3, 4, 0x3f, 0, 2, 4, 0x3e, 0, 3, 5, 0x3f };
    uint16_t  chr;

    // jega_log("JEGA Out %04X %02X(%d) %04X:%04X\n", addr, val, val, cs >> 4, cpu_state.pc);

    switch (addr) {
        case 0x3c0:
        case 0x3c1:
        jega_log("Palette %02X %02X(%d) %04X:%04X\n", jega->attraddr, val, val, cs >> 4, cpu_state.pc);
            /* Palette (write only) */
            if (!jega->attrff) {
                jega->attraddr = val & 31;
                if ((val & 0x20) != jega->attr_palette_enable) {
                    if (jega->is_vga)
                        jega->vga.svga.fullchange = 3;
                    else
                        jega->ega.fullchange      = 3;
                    jega->attr_palette_enable = val & 0x20;
                    jega_recalctimings(jega);
                }
            } else {
                jega->attrregs[jega->attraddr & 31] = val;
                int is_attr14 = jega->is_vga ? (jega->attraddr == 0x14) : 0;
                if (is_attr14 || (jega->attraddr < 0x10)) {
                    for (uint8_t c = 0; c < 16; c++) {
                        if (jega->is_vga) {
                            if (jega->attrregs[0x10] & 0x80)
                                jega->egapal[c] = (jega->attrregs[c] & 0xf) | ((jega->attrregs[0x14] & 0xf) << 4);
                            else if (jega->vga.svga.ati_4color)
                                jega->egapal[c] = pal4to16[(c & 0x03) | ((val >> 2) & 0xc)];
                            else
                                jega->egapal[c] = (jega->attrregs[c] & 0x3f) | ((jega->attrregs[0x14] & 0xc) << 4);
                        } else
                            jega->egapal[c] = jega->attrregs[c] & 0x3f;
                    }
                    if (jega->is_vga)
                        jega->vga.svga.fullchange = changeframecount;
                    else
                        jega->ega.fullchange = changeframecount;
                }
            }
            jega->attrff ^= 1;
            break;
        case 0x3c2:
            if (jega->regs[RMOD1] & 0x0c) {
                io_removehandler(0x03a0, 0x0020, jega_in, NULL, NULL, jega_out, NULL, NULL, jega);
                if (!(val & 1))
                    io_sethandler(0x03a0, 0x0020, jega_in, NULL, NULL, jega_out, NULL, NULL, jega);
            }
            break;
        case 0x3b4:
        case 0x3d4:
            /* Index 0x00-0x1F (write only), 0xB8-0xDF (write and read) */
            if (val >= 0xB8 && val <= 0xBF)
                jega->regs_index = val - 0xB8 + 0x20;
            else if (val >= 0xD8 && val <= 0xDF)
                jega->regs_index = val - 0xD0 + 0x20;
            else if (val <= 0x1F)
                jega->regs_index = val;
            else
                jega->regs_index = RINVALID_INDEX;
            break;
        case 0x3b5:
        case 0x3d5:
            /* Data */
            if (jega->regs_index != RINVALID_INDEX) {
                if ((jega->regs_index < 7) && (jega->regs[0x11] & 0x80))
                    return;
                if ((jega->regs_index == 7) && (jega->regs[0x11] & 0x80))
                    val = (jega->regs[7] & ~0x10) | (val & 0x10);
                /*
                   Do not allow cursor updates if neither master nor slave is
                   active - the AX Windows 3.0 386 Enhanced Mode DOS grabber
                   relies on this for the cursor position to behave correctly.
                 */
                if ((jega->regs_index >= 0x0e) && (jega->regs_index <= 0x0f) && !(jega->regs[RMOD1] & 0x0c))
                    return;
                jega->regs[jega->regs_index] = val;
                jega_log("JEGA Out %04X(%02X) %02Xh(%d) %04X:%04X\n", addr, jega->regs_index, val, val, cs >> 4, cpu_state.pc);
                switch (jega->regs_index) {
                    case RMOD1:
                        /* if the value is changed */
                        /*
                           Do not allow override toggling unless it's on master and
                           only override the text renderer - the AX Windows 3.0 386
                           Enhanced Mode DOS grabber relies on this for the grabbing
                           to behave correctly.
                         */
                        if (val & 0x08) {
                            if (jega->is_vga) {
                                if (val & 0x40)
                                    jega->vga.svga.render_override = NULL;
                                else
                                    jega->vga.svga.render_override = jega_render_text;
                            } else {
                                if (val & 0x40)
                                    jega->ega.render_override = NULL;
                                else
                                    jega->ega.render_override = jega_render_text;
                            }
                        }
                        break;
                    case RDAGS:
                        switch (val & 0x03) {
                            case 0x00:
                                jega->attr3_sbcsbank = false;
                                jega->sbcsbank_inv   = false;
                                break;
                            case 0x01:
                                jega->attr3_sbcsbank = true;
                                jega->sbcsbank_inv   = false;
                                break;
                            case 0x02:
                                jega->attr3_sbcsbank = true;
                                jega->sbcsbank_inv   = true;
                                break;
                            case 0x03:
                                jega->attr3_sbcsbank = false;
                                jega->sbcsbank_inv   = true;
                                break;
                        }
                        break;
                    case RCCLH:
                    case RCCLL:
                        jega->cursoraddr = jega->regs[RCCLH] << 10 | jega->regs[RCCLL] << 2;
                        break;
                    case RCMOD:
                        jega->cursoron = (val & 0x80);
                        jega->cursorblink_disable = (~val & 0x20);
                        break;
                    case RDFFB:
                    case RDFSB:
                        /* reset the line number */
                        jega->font_index = 0;
                        break;
                    case RPSSC:
                        if (val <= 17)
                            jega->start_scan_count = val + 1;
                        else
                            jega->start_scan_count = (val - 32) + 1;
                        break;
                    case RPSSL:
                        jega->start_scan_lower = val - 15;
                        break;
                    case RPSSU:
                        if (val <= 33)
                            jega->start_scan_upper = val + 4;
                        else
                            jega->start_scan_upper = (val - 64) + 4;
                        break;
                    case RDFAP:
                        chr = jega->regs[RDFFB];
                        if (is_SJIS_1(chr) && chr >= 0xf0 && chr <= 0xf3) {
                            chr <<= 8;
                            chr |= jega->regs[RDFSB];
                            if (jega->font_index < 32)
                                dbcs_write(chr, jega->font_index, val, jega);
                        } else {
                            if (jega->font_index <19)
                                jega->jfont_sbcs_19[chr * 19 + jega->font_index] = val;
                        }
                        jega_log("JEGA Font W %X %d %02Xh(%d) %04X:%04X\n", chr, jega->font_index, val, val, cs >> 4, cpu_state.pc);
                        jega->font_index++;
                        break;
                }
            }
            break;
        default:
            break;
    }

    /* Accessing to Slave EGA is redirected to Master in AX-1. */
    if (jega->regs[RMOD1] & 0x0c) {
        if (jega->is_vga)
            vga_out(addr, val, &jega->vga);
        else
            ega_out(addr, val, &jega->ega);
    }
}

static uint8_t
jega_in(uint16_t addr, void *priv)
{
    jega_t *jega = (jega_t *) priv;
    uint8_t ret  = INVALIDACCESS8;
    uint16_t chr;

    switch (addr) {
        case 0x3b5:
        case 0x3d5:
            if (jega->regs_index >= 0x20 && jega->regs_index <= 0x2F) {
                switch (jega->regs_index) {
                    case RDFAP:
                        chr = jega->regs[RDFFB];
                        /* DBCS or SBCS */
                        if (is_SJIS_1(chr)) {
                            chr <<= 8;
                            chr |= jega->regs[RDFSB];
                            if (jega->font_index < 32)
                                ret = dbcs_read(chr, jega->font_index, jega);
                        } else {
                            if (jega->font_index < 19)
                                ret = jega->jfont_sbcs_19[chr * 19 + jega->font_index];
                        }
                        jega_log("JEGA Font R %X %d %02Xh(%d) %04X:%04X\n", chr, jega->font_index, ret, ret, cs >> 4, cpu_state.pc);
                        jega->font_index++;
                        break;
                    case RSTAT:
                        ret = 0x03;
                        break;
                    default:
                        ret = jega->regs[jega->regs_index];
                        break;
                }
                jega_log("JEGA In %04X(%02X) %02X %04X:%04X\n", addr, jega->regs_index, ret, cs >> 4, cpu_state.pc);
            } else if (jega->regs[RMOD1] & 0x0c) {
                /* Accessing to Slave EGA is redirected to Master in AX-1. */
                if (jega->is_vga)
                    ret = vga_in(addr, &jega->vga);
                else
                    ret = ega_in(addr, &jega->ega);
            }
            break;
        case 0x3ba:
        case 0x3da:
            jega->attrff = 0;
            fallthrough;
        default:
            /* Accessing to Slave is redirected to Master in AX-1. */
            if (jega->regs[RMOD1] & 0x0c) {
                if (jega->is_vga)
                    ret = vga_in(addr, &jega->vga);
                else
                    ret = ega_in(addr, &jega->ega);
            }
            break;
    }
    // jega_log("JEGA In %04X(%02X) %02X %04X:%04X\n", addr, jega->regs_index, ret, cs >> 4, cpu_state.pc);
    return ret;
}

static int
getfontx2header(FILE *fp, fontx_h *header)
{
    (void) !fread(header->id, FONTX_LEN_ID, 1, fp);
    if (strncmp(header->id, "FONTX2", FONTX_LEN_ID) != 0)
        return 1;

    (void) !fread(header->name, FONTX_LEN_FN, 1, fp);
    header->width  = (uint8_t) getc(fp);
    header->height = (uint8_t) getc(fp);
    header->type   = (uint8_t) getc(fp);
    return 0;
}

static uint16_t
chrtosht(FILE *fp)
{
    uint16_t i = (uint16_t) getc(fp);
    uint16_t j = (uint16_t) getc(fp) << 8;
    return (i | j);
}

static void
readfontxtbl(fontx_tbl *table, int size, FILE *fp)
{
    while (size > 0) {
        table->start = chrtosht(fp);
        table->end   = chrtosht(fp);
        ++table;
        --size;
    }
}

static int
jega_load_font(const char *fn, void *priv)
{
    fontx_h    fhead;
    fontx_tbl *ftbl;
    uint16_t   code;
    uint16_t   scode;
    uint8_t    size;
    uint8_t    buf;
    jega_t    *jega = (jega_t *) priv;
    FILE      *fp   = rom_fopen(fn, "rb");
    jega_log("JEGA: Loading font\n");
    if (fp == NULL) {
        jega_log("JEGA: font file '%s' not found.\n", fn);
        return 0;
    }
    if (getfontx2header(fp, &fhead) != 0) {
        fclose(fp);
        jega_log("JEGA: FONTX2 header is incorrect.\n");
        return 1;
    }
    /* DBCS or SBCS */
    if (fhead.type == 1) {
        if (fhead.width == 16 && fhead.height == 16) {
            size = getc(fp);
            ftbl = (fontx_tbl *) calloc(size, sizeof(fontx_tbl));
            readfontxtbl(ftbl, size, fp);
            for (int i = 0; i < size; i++) {
                for (code = ftbl[i].start; code <= ftbl[i].end; code++) {
                    scode = SJIS_to_SEQ(code);
                    if (scode != INVALIDACCESS16) {
                        for (uint8_t line = 0; line < 16; line++) {
                            (void) !fread(&buf, sizeof(uint8_t), 1, fp);
                            jega->jfont_dbcs_16[(int) (scode * 32) + line] = buf;
                            (void) !fread(&buf, sizeof(uint8_t), 1, fp);
                            jega->jfont_dbcs_16[(int) (scode * 32) + line + 16] = buf;
                        }
                    } else {
                        fseek(fp, 32, SEEK_CUR);
                    }
                }
            }
        } else {
            fclose(fp);
            jega_log("JEGA: Width or height of DBCS font doesn't match.\n");
            return 1;
        }
    } else {
        if (fhead.width == 8 && fhead.height == 19)
            (void) !fread(jega->jfont_sbcs_19, sizeof(uint8_t), SBCS19_FILESIZE, fp);
        else {
            fclose(fp);
            jega_log("JEGA: Width or height of SBCS font doesn't match.\n");
            return 1;
        }
    }
    fclose(fp);
    return 0;
}

static void
jega_common_init(const device_t *info, void *priv, int vga)
{
    jega_t *jega = (jega_t *) priv;
    jega->is_vga = vga;
    if (vga) {
        video_inform(VIDEO_FLAG_TYPE_SPECIAL, &timing_vga);
        svga_init(info, &jega->vga.svga, &jega->vga, 1 << 18, /*256kb*/
                  NULL,
                  jega_in, jega_out,
                  NULL,
                  NULL);

        jega->vga.svga.bpp     = 8;
        jega->vga.svga.miscout = 1;

        jega->vga.svga.vga_enabled = 0;
        jega->vga.svga.priv_parent = jega;
        jega->pallook = jega->vga.svga.pallook;
        io_sethandler(0x03c0, 0x0020, jega_in, NULL, NULL, jega_out, NULL, NULL, jega);
    } else {
        for (uint16_t c = 0; c < 256; c++) {
            pallook64[c] = makecol32(((c >> 2) & 1) * 0xaa, ((c >> 1) & 1) * 0xaa, (c & 1) * 0xaa);
            pallook64[c] += makecol32(((c >> 5) & 1) * 0x55, ((c >> 4) & 1) * 0x55, ((c >> 3) & 1) * 0x55);
        }
        video_inform(VIDEO_FLAG_TYPE_SPECIAL, &timing_ega);
        jega->pallook = pallook64;
        ega_init(&jega->ega, 9, 0);
        ega_set_type(&jega->ega, EGA_SUPEREGA);
        jega->ega.priv_parent = jega;
        mem_mapping_add(&jega->ega.mapping, 0xa0000, 0x20000,
                        ega_read, NULL, NULL, ega_write, NULL, NULL,
                        NULL, MEM_MAPPING_EXTERNAL, &jega->ega);
        /* I/O 3DD and 3DE are used by Oki if386 */
        io_sethandler(0x03c0, 0x001c, jega_in, NULL, NULL, jega_out, NULL, NULL, jega);
    }
    /* I/O 3DD and 3DE are used by Oki if386 */
    // io_sethandler(0x03b0, 0x002c, jega_in, NULL, NULL, jega_out, NULL, NULL, jega);
    jega->regs[RMOD1] = 0x48;
}

static void *
jega_standalone_init(const device_t *info)
{
    jega_t *jega = calloc(1, sizeof(jega_t));

    rom_init(&jega->bios_rom, JEGA_PATH_BIOS, 0xc0000, 0x8000, 0x7fff, 0, MEM_MAPPING_EXTERNAL);
    memset(&jega->jfont_dbcs_16, 0, DBCS16_FILESIZE);
    jega_load_font(JEGA_PATH_FONTDBCS, jega);

    jega_common_init(info, jega, 0);

    return jega;
}

static void *
jvga_standalone_init(const device_t *info)
{
    jega_t *jega = calloc(1, sizeof(jega_t));

    rom_init(&jega->bios_rom, JVGA_PATH_BIOS, 0xc0000, 0x8000, 0x7fff, 0, MEM_MAPPING_EXTERNAL);
    memset(&jega->jfont_dbcs_16, 0, DBCS16_FILESIZE);
    jega_load_font(JVGA_PATH_FONTDBCS, jega);

    jega_common_init(info, jega, 1);

    return jega;
}

static void
jega_close(void *priv)
{
    jega_t *jega = (jega_t *) priv;
#ifdef ENABLE_JEGA_LOG
    FILE *fp;
#if 0
    fp = fopen("jega_font16.dmp", "wb");
    if (fp != NULL) {
        fwrite(jega->jfont_dbcs_16, DBCS16_FILESIZE, 1, fp);
        fclose(f);
    }
    fp = fopen("jega_font19.dmp", "wb");
    if (fp != NULL) {
        fwrite(jega->jfont_sbcs_19, SBCS19_FILESIZE, 1, fp);
        fclose(fp);
    }
#endif
    f = fopen("jega_regs.txt", "wb");
    if (f != NULL) {
        for (uint8_t i = 0; i < 49; i++)
            fprintf(fp, "Regs %02X: %4X\n", i, jega->regs[i]);
        for (uint8_t i = 0; i < 32; i++)
            fprintf(fp, "Attr %02X: %4X\n", i, jega->attrregs[i]);
        for (uint8_t i = 0; i < 16; i++)
            fprintf(fp, "JEGAPal %02X: %4X\n", i, jega->egapal[i]);
        for (uint8_t i = 0; i < 16; i++)
            fprintf(fp, "EGAPal %02X: %4X\n", i, jega->ega.egapal[i]);
        for (uint8_t i = 0; i < 64; i++)
        fprintf(fp, "RealPal %02X: %4X\n", i, jega->pallook[i]);
        fclose(fp);
    }
#if 0
    fp = fopen("ega_vram.dmp", "wb");
    if (fp != NULL) {
        fwrite(jega->ega.vram, 256 * 1024, 1, fp);
        fclose(fp);
    }
#endif
    fp = fopen("ram_bda.dmp", "wb");
    if (fp != NULL) {
        fwrite(&ram[0x0], 0x500, 1, fp);
        fclose(fp);
    }
    pclog("jeclosed %04X:%04X DS %04X\n", cs >> 4, cpu_state.pc, DS);
#endif

    if (jega->is_vga)
        svga_close(&jega->vga.svga);
    else {
        if (jega->ega.eeprom)
            free(jega->ega.eeprom);
        free(jega->ega.vram);
    }

    free(jega);
}

static void
jega_recalctimings(void *priv)
{
    jega_t *jega = (jega_t *) priv;

    if (jega->is_vga)
        svga_recalctimings(&jega->vga.svga);
    else
        ega_recalctimings(&jega->ega);
}

static void
jega_speed_changed(void *priv)
{
    jega_t *jega = (jega_t *) priv;

    jega_recalctimings(jega);
}

static int
jega_standalone_available(void)
{
    return (rom_present(JEGA_PATH_BIOS) && rom_present(JEGA_PATH_FONTDBCS));
}

const device_t jega_device = {
    .name          = "JEGA",
    .internal_name = "jega",
    .flags         = DEVICE_ISA,
    .local         = 0,
    .init          = jega_standalone_init,
    .close         = jega_close,
    .reset         = NULL,
    .available     = jega_standalone_available,
    .speed_changed = jega_speed_changed,
    .force_redraw  = NULL,
    .config        = NULL
};

const device_t jvga_device = {
    .name          = "OKI VGA/H-2 (JVGA/H)",
    .internal_name = "jvga",
    .flags         = DEVICE_ISA16,
    .local         = 0,
    .init          = jvga_standalone_init,
    .close         = jega_close,
    .reset         = NULL,
    .available     = jega_standalone_available,
    .speed_changed = jega_speed_changed,
    .force_redraw  = NULL,
    .config        = NULL
};

static uint8_t p65idx = 0;
// static uint8_t p3de_idx = 0;
static uint8_t p65[6];
// static uint8_t p3de[0x30];


static uint8_t
if386_p6x_read(uint16_t port, void *priv)
{
    uint8_t ret = INVALIDACCESS8;
    if (port == 0x63) {
        ret = p65idx;
    } else if (port == 0x65) {
        ret = p65[p65idx];
    }
    // pclog("p%x_r: [%04x:%04x] [%02x]%02x\n", port, cs >> 4, cpu_state.pc , p65idx, ret);
    return ret;
}

/*
    OKi if386AX/SX Power management and Miscellaneous
    I/O 63h: Index 0-5, I/O 65h: Data
    Index 2: 
        Bit 3: Caps Lock enabled
        Bit 2: Num Lock enabled
        Bit 1: Scrl Lock enabled
        Bit 0: Kana Lock enabled
    Index 3
        Bit 2: External monitor output enabled
        Bit 1: Floppy drive 1 active
        Bit 0: Floppy drive 0 active
    Index 5
        Bit 8: ? (1=Disabled, 0=Enabled)
        Bit 7: Screen Off? (enabled by Ctrl + Alt + [1] and disabled by any key)
        Bit 4: Shutdown? (caused by POST rebooting and POWER OFF command in DOS 3.21)
        Bit 3: ?
*/
static uint32_t lcd_cols[8] = { 0x001024, 0x747d8a, 0x8c96a4, 0xa0abbb,
                                0xb1bece, 0xc0cee0, 0xceddf0, 0xdbebff };
static void
if386_p6x_write(uint16_t port, uint8_t val, void *priv)
{
    jega_t *jega = (jega_t *) priv;
    // pclog("p%x_w: [%04x:%04x] val=%02x\n", port, cs >> 4, cpu_state.pc, val);
    if (port == 0x63 && val < 6)
        p65idx = val;
    if (port == 0x65) {
        // pclog("p65_w: [%04x:%04x] idx=%02x, val=%02x\n", cs >> 4, cpu_state.pc, p65idx, val);
        p65[p65idx] = val;
        if (p65idx == 0x03) {
            if (val & 0x04) { /* Color monitor */
                for (uint16_t c = 0; c < 256; c++) {
                    pallook64[c] = makecol32(((c >> 2) & 1) * 0xaa, ((c >> 1) & 1) * 0xaa, (c & 1) * 0xaa);
                    pallook64[c] += makecol32(((c >> 5) & 1) * 0x55, ((c >> 4) & 1) * 0x55, ((c >> 3) & 1) * 0x55);
                    pallook16[c] = makecol32(((c >> 2) & 1) * 0xaa, ((c >> 1) & 1) * 0xaa, (c & 1) * 0xaa);
                    pallook16[c] += makecol32(((c >> 4) & 1) * 0x55, ((c >> 4) & 1) * 0x55, ((c >> 4) & 1) * 0x55);
                    if ((c & 0x17) == 6)
                        pallook16[c] = makecol32(0xaa, 0x55, 0);
                }
            } else { /* Monochrome LCD */
                for (uint16_t c = 0; c < 256; c++) {
                    int cval = 0;
#ifdef SIMPLE_BW
                    if (c & 0x0f)
                        cval = ((c & 0x0e) * 0x10) + 0x1f;
                    pallook64[c] = makecol32(cval, cval, cval);
                    pallook16[c] = makecol32(cval, cval, cval);
#else
                    if (c & 0x3f) {
                        cval = (c & 0x10) >> 2;
                        cval |= (c & 0x06) >> 1;
                    }
                    pallook64[c] = lcd_cols[cval];
                    cval = 0;
                    if (c & 0x0f)
                        cval = (c & 0x0e) >> 1;
                    pallook16[c] = lcd_cols[cval];
#endif
                }
            }
            jega_recalctimings(jega);
        } else if (p65idx == 0x05) {
            if (val & 0x10) {
                /* Power off (instead this call hardware reset here) */
                device_reset_all(DEVICE_ALL);
                resetx86();
            }
        }
    }
    return;
}

static void *
if386jega_init(const device_t *info)
{
    jega_t *jega = calloc(1, sizeof(jega_t));

    rom_init(&jega->bios_rom, IF386_PATH_VBIOS, 0xc0000, 0x8000, 0x7fff, 0, MEM_MAPPING_EXTERNAL);
    memset(&jega->jfont_dbcs_16, 0, DBCS16_FILESIZE);
    jega_load_font(JEGA_PATH_FONTDBCS, jega);

    jega_common_init(info, jega, 0);

    io_sethandler(0x0063, 1, if386_p6x_read, NULL, NULL, if386_p6x_write, NULL, NULL, jega);
    io_sethandler(0x0065, 1, if386_p6x_read, NULL, NULL, if386_p6x_write, NULL, NULL, jega);
    // io_sethandler(0x03dd, 2, if386_p6x_read, NULL, NULL, if386_p6x_write, NULL, NULL, jega);

    return jega;
}

static int
if386jega_available(void)
{
    return (rom_present(IF386_PATH_VBIOS) && rom_present(JEGA_PATH_FONTDBCS));
}

const device_t if386jega_device = {
    .name          = "JEGA On-Board (OKI if386AX30L)",
    .internal_name = "if386jega",
    .flags         = DEVICE_ISA,
    .local         = 0,
    .init          = if386jega_init,
    .close         = jega_close,
    .reset         = NULL,
    .available     = if386jega_available,
    .speed_changed = jega_speed_changed,
    .force_redraw  = NULL,
    .machine       = "OKI if386AX30L",
    .config        = NULL
};
