diff --git a/sys/vms/vmsmisc.c b/sys/vms/vmsmisc.c
new file mode 100644
index 000000000..395091d1c
--- /dev/null
+++ b/sys/vms/vmsmisc.c
@@ -0,0 +1,30 @@
+/*	SCCS Id: @(#)vmsmisc.c	3.3	1996/03/02	*/
+/* NetHack may be freely redistributed.  See license for details. */
+
+#include <ssdef.h>
+#include <stsdef.h>
+
+void vms_exit( /*_ int _*/ );
+void vms_abort( /*_ void _*/ );
+
+extern void exit( /*_ int _*/ );
+extern void lib$signal( /*_ unsigned long,... _*/ );
+
+void
+vms_exit(status)
+int status;
+{
+    exit(status ? (SS$_ABORT | STS$M_INHIB_MSG) : SS$_NORMAL);
+}
+
+void
+vms_abort()
+{
+    lib$signal(SS$_DEBUG);
+}
+
+#ifdef VERYOLD_VMS
+#include "oldcrtl.c"
+#endif
+
+/*vmsmisc.c*/