From 900be45698ebd3e8244f335c39088cce290b1326 Mon Sep 17 00:00:00 2001
From: win2kgamer <47463859+win2kgamer@users.noreply.github.com>
Date: Sun, 25 Jan 2026 22:11:53 -0600
Subject: [PATCH] Add the Tandy Sensation! 1 (25-1650) machine

---
 src/include/86box/machine.h |  1 +
 src/include/86box/sound.h   |  1 +
 src/machine/m_at_socket1.c  | 27 +++++++++++++++++++++++
 src/machine/machine_table.c | 44 +++++++++++++++++++++++++++++++++++++
 src/sio/sio_vl82c113.c      |  2 ++
 5 files changed, 75 insertions(+)

diff --git a/src/include/86box/machine.h b/src/include/86box/machine.h
index 6ab3883c8..1786017ec 100644
--- a/src/include/86box/machine.h
+++ b/src/include/86box/machine.h
@@ -703,6 +703,7 @@ extern int             machine_at_d824_init(const machine_t *);
 
 /* VLSI 82C486 */
 extern int             machine_at_pcs44c_init(const machine_t *);
+extern int             machine_at_sensation1_init(const machine_t *);
 extern int             machine_at_tuliptc38_init(const machine_t *);
 
 /* ZyMOS Poach */
diff --git a/src/include/86box/sound.h b/src/include/86box/sound.h
index 71cd65e5a..5cf11bc3c 100644
--- a/src/include/86box/sound.h
+++ b/src/include/86box/sound.h
@@ -245,6 +245,7 @@ extern const device_t soundman_device;
 /* Tandy PSSJ */
 extern const device_t pssj_device;
 extern const device_t pssj_isa_device;
+extern const device_t pssj_1e0_device;
 
 /* Tandy PSG */
 extern const device_t tndy_device;
diff --git a/src/machine/m_at_socket1.c b/src/machine/m_at_socket1.c
index 7d16e1381..5c2af8762 100644
--- a/src/machine/m_at_socket1.c
+++ b/src/machine/m_at_socket1.c
@@ -375,6 +375,33 @@ machine_at_pcs44c_init(const machine_t *model)
     return ret;
 }
 
+int
+machine_at_sensation1_init(const machine_t *model)
+{
+    int ret;
+
+    ret = bios_load_linear("roms/machines/sensation1/P1033PCD_01.10.01_11-11-92_E687_Sensation_1_BIOS.bin",
+                           0x000e0000, 131072, 0);
+
+    if (bios_only || !ret)
+        return ret;
+
+    machine_at_common_ide_init(model);
+
+    device_add(&vl82c486_device);
+    device_add(&vl82c113_device);
+
+    device_add(&pssj_1e0_device);
+
+    if (fdc_current[0] == FDC_INTERNAL)
+        device_add(&fdc_at_nsc_dp8473_device);
+
+    //if (gfxcard[0] == VID_INTERNAL)
+    //    device_add(machine_get_vid_device(machine));
+
+    return ret;
+}
+
 int
 machine_at_tuliptc38_init(const machine_t *model)
 {
diff --git a/src/machine/machine_table.c b/src/machine/machine_table.c
index e113f3fe0..8e1bd30de 100644
--- a/src/machine/machine_table.c
+++ b/src/machine/machine_table.c
@@ -7785,6 +7785,50 @@ const machine_t machines[] = {
         .net_device               = NULL
     },
     /* Has a VLSI VL82C113A SCAMP Combination I/O which holds the KBC. */
+    {
+        .name              = "[VLSI 82C486] Tandy Sensation",
+        .internal_name     = "sensation1",
+        .type              = MACHINE_TYPE_486,
+        .chipset           = MACHINE_CHIPSET_VLSI_VL82C486,
+        .init              = machine_at_sensation1_init,
+        .p1_handler        = machine_generic_p1_handler,
+        .gpio_handler      = NULL,
+        .available_flag    = MACHINE_AVAILABLE,
+        .gpio_acpi_handler = NULL,
+        .cpu               = {
+            .package     = CPU_PKG_SOCKET1,
+            .block       = CPU_BLOCK_NONE,
+            .min_bus     = 0,
+            .max_bus     = 0,
+            .min_voltage = 0,
+            .max_voltage = 0,
+            .min_multi   = 0,
+            .max_multi   = 0
+        },
+        .bus_flags = MACHINE_PS2,
+        .flags     = MACHINE_IDE | MACHINE_APM,
+        .ram       = {
+            .min  = 2048,
+            .max  = 65536,
+            .step = 2048
+        },
+        .nvrmask                  = 127,
+        .jumpered_ecp_dma         = 0,
+        .default_jumpered_ecp_dma = -1,
+        .kbc_device               = NULL,
+        .kbc_params               = 0x00000000,
+        .kbc_p1                   = 0x000004f0,
+        .gpio                     = 0xffffffff,
+        .gpio_acpi                = 0xffffffff,
+        .device                   = NULL,
+        .kbd_device               = NULL,
+        .fdc_device               = NULL,
+        .sio_device               = NULL,
+        .vid_device               = NULL,
+        .snd_device               = NULL,
+        .net_device               = NULL
+    },
+    /* Has a VLSI VL82C113A SCAMP Combination I/O which holds the KBC. */
     {
         .name              = "[VLSI 82C486] Tulip 486 DC/DT",
         .internal_name     = "tuliptc38",
diff --git a/src/sio/sio_vl82c113.c b/src/sio/sio_vl82c113.c
index b5ecde3c9..6a93aae67 100644
--- a/src/sio/sio_vl82c113.c
+++ b/src/sio/sio_vl82c113.c
@@ -136,6 +136,8 @@ vl82c113_init(UNUSED(const device_t *info))
 
     if (machines[machine].init == machine_at_martin_init)
         dev->nvr         = device_add(&martin_nvr_device);
+    else if (machines[machine].init == machine_at_sensation1_init)
+        dev->nvr         = device_add(&at_nvr_device);
     else
         dev->nvr         = device_add(&amstrad_megapc_nvr_device);