1 /*	SCCS Id: @(#)vmsmisc.c	3.3	1996/03/02	*/
2 /* NetHack may be freely redistributed.  See license for details. */
3 
4 #include <ssdef.h>
5 #include <stsdef.h>
6 
7 void vms_exit( /*_ int _*/ );
8 void vms_abort( /*_ void _*/ );
9 
10 extern void exit( /*_ int _*/ );
11 extern void lib$signal( /*_ unsigned long,... _*/ );
12 
13 void
vms_exit(status)14 vms_exit(status)
15 int status;
16 {
17     exit(status ? (SS$_ABORT | STS$M_INHIB_MSG) : SS$_NORMAL);
18 }
19 
20 void
vms_abort()21 vms_abort()
22 {
23     lib$signal(SS$_DEBUG);
24 }
25 
26 #ifdef VERYOLD_VMS
27 #include "oldcrtl.c"
28 #endif
29 
30 /*vmsmisc.c*/
31