From 80eee8f11248ded72074eaf436d7b32fba211c2f Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 22 Dec 2016 22:33:49 +0100
Subject: [PATCH] Add really-quit command which quits without questions asked.

---
 src/klh10.c | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/klh10.c b/src/klh10.c
index 36bea9e..ec8e912 100644
--- a/src/klh10.c
+++ b/src/klh10.c
@@ -239,6 +239,8 @@ CMDDEF(cd_help,  fc_help,   CMRF_TOKS,	NULL,
 				"Basic help", "")
 CMDDEF(cd_quit,  fc_quit,   CMRF_NOARG,	NULL,
 				"Quit emulator", "")
+CMDDEF(cd_rquit, fc_rquit,  CMRF_NOARG,	NULL,
+				"Really quit!", "")
 CMDDEF(cd_load,  fc_load,   CMRF_TOKS,	"<file>",
 				"Load binary into KN10", "")
 CMDDEF(cd_dump,  fc_dump,   CMRF_TOKS,	"<file>",
@@ -330,6 +332,7 @@ KEYSBEGIN(fectbkeys)
     KEYDEF("help",	cd_help)
     KEYDEF("exit",	cd_quit)
     KEYDEF("quit",	cd_quit)
+    KEYDEF("really-quit",	cd_rquit)
     KEYDEF("load",	cd_load)
     KEYDEF("dump",	cd_dump)
     KEYDEF("go",	cd_go)
@@ -607,6 +610,14 @@ fc_quit(struct cmd_s *cm)
     os_exit(0);
 }
 
+void
+fc_rquit(struct cmd_s *cm)
+{
+    dev_term();
+    mem_term();
+    os_exit(0);
+}
+
 /* FE_SHUTDOWN - Attempt to bring down PDP-10 OS and quit emulator as
 **	gracefully as possible *without* any user interaction.
 **