*** empty log message ***

diff --git a/sys/vms/vmsmisc.c b/sys/vms/vmsmisc.c
new file mode 100644 (file)
index 0000000..395091d
--- /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*/