From ce7db25d7c9bc2c3ea49f406cc9d533badd7c1f3 Mon Sep 17 00:00:00 2001
From: RichardG867 <richardg867@gmail.com>
Date: Thu, 3 Jun 2021 01:15:23 -0300
Subject: [PATCH] Add hidden CS4237B and CS4238B devices

---
 src/include/86box/sound.h |  2 ++
 src/sound/snd_cs423x.c    | 24 ++++++++++++++++++++++++
 2 files changed, 26 insertions(+)

diff --git a/src/include/86box/sound.h b/src/include/86box/sound.h
index d280460e5..b15724cdd 100644
--- a/src/include/86box/sound.h
+++ b/src/include/86box/sound.h
@@ -126,6 +126,8 @@ extern const device_t ncr_business_audio_device;
 
 /* Crystal CS423x */
 extern const device_t cs4236b_device;
+extern const device_t cs4237b_device;
+extern const device_t cs4238b_device;
 #endif
 
 #endif	/*EMU_SOUND_H*/
diff --git a/src/sound/snd_cs423x.c b/src/sound/snd_cs423x.c
index fbc8595b1..c900fb994 100644
--- a/src/sound/snd_cs423x.c
+++ b/src/sound/snd_cs423x.c
@@ -784,3 +784,27 @@ const device_t cs4236b_device =
     NULL,
     NULL
 };
+
+const device_t cs4237b_device =
+{
+    "Crystal CS4237B",
+    DEVICE_ISA | DEVICE_AT,
+    CRYSTAL_CS4237B,
+    cs423x_init, cs423x_close, cs423x_reset,
+    { NULL },
+    cs423x_speed_changed,
+    NULL,
+    NULL
+};
+
+const device_t cs4238b_device =
+{
+    "Crystal CS4238B",
+    DEVICE_ISA | DEVICE_AT,
+    CRYSTAL_CS4238B,
+    cs423x_init, cs423x_close, cs423x_reset,
+    { NULL },
+    cs423x_speed_changed,
+    NULL,
+    NULL
+};