MSX2Core.cs

/**
 * micro MSX2+ - Core Module for C#
 * -----------------------------------------------------------------------------
 * The MIT License (MIT)
 *
 * Copyright (c) 2023 Yoji Suzuki.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 * THE SOFTWARE.
 * -----------------------------------------------------------------------------
 */
using System;
using System.Runtime.InteropServices;

namespace MSX2 {
    public enum ColorMode : int
    {
        RGB555 = 0,
        RGB565 = 1,
    }

    public enum RomType : int
    {
        Normal = 0,
        Asc8 = 1,
        Asc8Sram2 = 2,
        Asc16 = 3,
        Asc16Sram2 = 4,
        KonamiScc = 5,
        Konami = 6,
    }

    public class Core
    {
        [DllImport("MSX2", EntryPoint="msx2_createContext")]
        private static extern IntPtr ICreateContext(int colorMode);
    
        public static IntPtr CreateContext(ColorMode colorMode)
        {
            return ICreateContext((int)colorMode);
        }

        [DllImport("MSX2", EntryPoint="msx2_releaseContext")]
        public static extern void ReleaseContext(IntPtr context);

        [DllImport("MSX2", EntryPoint="msx2_setupSecondaryExist")]
        public static extern void SetupSecondaryExist(IntPtr context, bool page0, bool page1, bool page2, bool page3);

        [DllImport("MSX2", EntryPoint="msx2_setupRAM")]
        public static extern void SetupRam(IntPtr context, int pri, int sec);

        [DllImport("MSX2", EntryPoint="msx2_setup")]
        private static extern void ISetup(IntPtr context, int pri, int sec, int idx, byte[] data, int size, string label);

        public static void Setup(IntPtr context, int pri, int sec, int idx, byte[] data, string label)
        {
            ISetup(context, pri, sec, idx, data, data.Length, label);
        }

        [DllImport("MSX2", EntryPoint="msx2_loadFont")]
        private static extern void ILoadFont(IntPtr context, byte[] font, int size);

        public static void LoadFont(IntPtr context, byte[] font)
        {
            ILoadFont(context, font, font.Length);
        }

        [DllImport("MSX2", EntryPoint="msx2_setupSpecialKeyCode")]
        public static extern void SetupSpecialKeyCode(IntPtr context, int select, int start);

        [DllImport("MSX2", EntryPoint="msx2_tick")]
        public static extern void Tick(IntPtr context, int pad1, int pad2, int key);

        [DllImport("MSX2", EntryPoint="msx2_getDisplay")]
        private static extern void IGetDisplay(IntPtr context, ushort[] display);

        public static ushort[] GetDisplay(IntPtr context)
        {
            ushort[] result = new ushort[GetDisplayWidth(context) * GetDisplayHeight(context)];
            IGetDisplay(context, result);
            return result;
        }

        [DllImport("MSX2", EntryPoint="msx2_getDisplayWidth")]
        public static extern int GetDisplayWidth(IntPtr context);

        [DllImport("MSX2", EntryPoint="msx2_getDisplayHeight")]
        public static extern int GetDisplayHeight(IntPtr context);

        [DllImport("MSX2", EntryPoint="msx2_getCurrentSoundSize")]
        private static extern int IGetCurrentSoundSize(IntPtr context);

        [DllImport("MSX2", EntryPoint="msx2_getSound")]
        private static extern void IGetSound(IntPtr context, byte[] sound);

        public static byte[] GetSound(IntPtr context)
        {
            int size = IGetCurrentSoundSize(context);
            byte[] result = new byte[size];
            IGetSound(context, result);
            return result;
        }

        [DllImport("MSX2", EntryPoint="msx2_loadRom")]
        private static extern void ILoadRom(IntPtr context, byte[] rom, int size, int romType);

        public static void LoadRom(IntPtr context, byte[] rom, RomType romType)
        {
            ILoadRom(context, rom, rom.Length, (int)romType);
        }

        [DllImport("MSX2", EntryPoint="msx2_ejectRom")]
        public static extern void EjectRom(IntPtr context);

        [DllImport("MSX2", EntryPoint="msx2_insertDisk")]
        private static extern void IInsertDisk(IntPtr context, int driveId, byte[] disk, int size, bool readOnly);

        public static void InsertDisk(IntPtr context, int driveId, byte[] disk, bool readOnly)
        {
            IInsertDisk(context, driveId, disk, disk.Length, readOnly);
        }

        [DllImport("MSX2", EntryPoint="msx2_ejectDisk")]
        public static extern void EjectDisk(IntPtr context, int driveId);

        [DllImport("MSX2", EntryPoint="msx2_getQuickSaveSize")]
        private static extern int IGetQuickSaveSize(IntPtr context);

        [DllImport("MSX2", EntryPoint="msx2_quickSave")]
        private static extern IntPtr IQuickSave(IntPtr context);

        public static byte[] QuickSave(IntPtr context)
        {
            int size = IGetQuickSaveSize(context);
            IntPtr data = IQuickSave(context);
            byte[] bytes = new byte[size];
            Marshal.Copy(bytes, 0, data, bytes.Length);
            return bytes;
        }

        [DllImport("MSX2", EntryPoint="msx2_quickLoad")]
        private static extern void IQuickLoad(IntPtr context, byte[] save, int size);

        public static void QuickLoad(IntPtr context, byte[] save) 
        {
            IQuickLoad(context, save, save.Length);
        }

        [DllImport("MSX2", EntryPoint="msx2_reset")]
        public static extern void Reset(IntPtr context);
    }
}