From fec44e7e18fed0f1c5c7f0824e9cb7c8d4210e80 Mon Sep 17 00:00:00 2001
From: Curt Coder <curtcoder@mail.com>
Date: Mon, 5 Sep 2016 15:26:57 +0300
Subject: [PATCH] pc1640: Added a software list for hard disks, and a
 preinstalled HD20 image to it. [Curt Coder]

---
 hash/{pc1640.xml => pc1640_flop.xml} |  0
 hash/pc1640_hdd.xml                  | 18 ++++++++++++++++++
 src/mame/drivers/pc1512.cpp          | 11 +++++++----
 3 files changed, 25 insertions(+), 4 deletions(-)
 rename hash/{pc1640.xml => pc1640_flop.xml} (100%)
 create mode 100644 hash/pc1640_hdd.xml

diff --git a/hash/pc1640.xml b/hash/pc1640_flop.xml
similarity index 100%
rename from hash/pc1640.xml
rename to hash/pc1640_flop.xml
diff --git a/hash/pc1640_hdd.xml b/hash/pc1640_hdd.xml
new file mode 100644
index 00000000000..17131e9652b
--- /dev/null
+++ b/hash/pc1640_hdd.xml
@@ -0,0 +1,18 @@
+<?xml version="1.0"?>
+<!DOCTYPE softwarelist SYSTEM "softwarelist.dtd">
+<softwarelist name="pc1640_hdd" description="Amstrad PC1640 hard disks">
+
+	<software name="hd20">
+		<description>Amstrad PC1640 HD20</description>
+		<year>1987</year>
+		<publisher>Amstrad</publisher>
+
+		<!-- Amstrad 40095 (Alps DRMD20A12A), Tandon TM-262 -->
+		<part name="hdd" interface="scsi_hdd">
+			<diskarea name="harddriv">
+				<disk name="40095" sha1="d3c8b579e40063e98331e667caf7bd3667b18d1c" writeable="yes" />
+			</diskarea>
+		</part>
+	</software>
+
+</softwarelist>
diff --git a/src/mame/drivers/pc1512.cpp b/src/mame/drivers/pc1512.cpp
index 248073dbb41..005157a9220 100644
--- a/src/mame/drivers/pc1512.cpp
+++ b/src/mame/drivers/pc1512.cpp
@@ -70,7 +70,7 @@ This is done in the following way:
 4. Answer YES to the screen prompt.
 5. When HDFORMAT is completed remove disc four and replace with disc one.
 6. Type CD\ and press return.
-7. Type FDISC and press return.
+7. Type FDISK and press return.
 8. Press return key every time you are asked a question.
 9. With disc one still in drive A: type FORMAT C:/S and press return.
 10. When formatting is finished replace disc one with disc four.
@@ -1338,7 +1338,8 @@ MACHINE_CONFIG_END
 
 static MACHINE_CONFIG_DERIVED( pc1512hd, pc1512 )
 	MCFG_DEVICE_MODIFY("isa1")
-	MCFG_SLOT_DEFAULT_OPTION("wdxt_gen")
+	//MCFG_SLOT_DEFAULT_OPTION("wdxt_gen")
+	MCFG_SLOT_DEFAULT_OPTION("hdc")
 MACHINE_CONFIG_END
 
 
@@ -1440,7 +1441,8 @@ static MACHINE_CONFIG_START( pc1640, pc1640_state )
 	MCFG_RAM_DEFAULT_SIZE("640K")
 
 	// software list
-	MCFG_SOFTWARE_LIST_ADD("flop_list", "pc1640")
+	MCFG_SOFTWARE_LIST_ADD("flop_list", "pc1640_flop")
+	MCFG_SOFTWARE_LIST_ADD("hdd_list", "pc1640_hdd")
 MACHINE_CONFIG_END
 
 
@@ -1460,7 +1462,8 @@ MACHINE_CONFIG_END
 
 static MACHINE_CONFIG_DERIVED( pc1640hd, pc1640 )
 	MCFG_DEVICE_MODIFY("isa1")
-	MCFG_SLOT_DEFAULT_OPTION("wdxt_gen")
+	//MCFG_SLOT_DEFAULT_OPTION("wdxt_gen")
+	MCFG_SLOT_DEFAULT_OPTION("hdc")
 MACHINE_CONFIG_END