diff --git a/hash/a800_cass.xml b/hash/a800_cass.xml
new file mode 100644
index 00000000000..aae6cb5b701
--- /dev/null
+++ b/hash/a800_cass.xml
@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!DOCTYPE softwarelist SYSTEM "softwarelist.dtd">
+
+<softwarelist name="a800_cass" description="Atari 400 / 800 cassettes">
+
+    <software name="serpent" supported="no">
+        <description>Serpentine</description>
+        <year>1982</year>
+        <publisher>Broderbund</publisher>
+        <part name="cass1" interface="a800_cass">
+            <dataarea name="cass" size="18938">
+                <rom name="serpentine (atari 400) (side a).cas" size="18938" crc="7a42459f" sha1="f717fdf02c55ecdbd8f4284da249bd87abb09708"/>
+            </dataarea>
+        </part>
+         <part name="cass2" interface="a800_cass">
+            <dataarea name="cass" size="19059">
+                <rom name="serpentine (atari 400) (side b).cas" size="19059" crc="386999b4" sha1="4a308f95f94c00ee861ba7facbfcd0ca31e01f1f"/>
+            </dataarea>
+        </part>
+    </software>
+
+</softwarelist>
\ No newline at end of file
diff --git a/src/mame/drivers/atari400.cpp b/src/mame/drivers/atari400.cpp
index f6bffb8619b..8330ea22bfc 100644
--- a/src/mame/drivers/atari400.cpp
+++ b/src/mame/drivers/atari400.cpp
@@ -2184,6 +2184,7 @@ void a400_state::atari_common(machine_config &config)
 	/* software lists */
 	SOFTWARE_LIST(config, "flop_list").set_original("a800_flop");
 	SOFTWARE_LIST(config, "cart_list").set_original("a800");
+	SOFTWARE_LIST(config, "cass_list").set_original("a800_cass");
 	SOFTWARE_LIST(config, "xegs_list").set_original("xegs");
 }