From 563a799de269651ae25e878bccb90342c13cba11 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 2 Feb 1987 16:06:51 +0000
Subject: [PATCH] Initial revision

---
 mach/vax4/libsysV_2/Makefile   | 31 ++++++++++++++
 mach/vax4/libsysV_2/_exit.s    |  7 ++++
 mach/vax4/libsysV_2/access.s   | 11 +++++
 mach/vax4/libsysV_2/acct.s     | 11 +++++
 mach/vax4/libsysV_2/alarm.s    |  7 ++++
 mach/vax4/libsysV_2/cerror.s   | 11 +++++
 mach/vax4/libsysV_2/chdir.s    | 12 ++++++
 mach/vax4/libsysV_2/chmod.s    | 12 ++++++
 mach/vax4/libsysV_2/chown.s    | 12 ++++++
 mach/vax4/libsysV_2/chroot.s   | 11 +++++
 mach/vax4/libsysV_2/cleanup.c  |  1 +
 mach/vax4/libsysV_2/close.s    | 12 ++++++
 mach/vax4/libsysV_2/compmodule |  4 ++
 mach/vax4/libsysV_2/creat.s    | 11 +++++
 mach/vax4/libsysV_2/dup.s      | 11 +++++
 mach/vax4/libsysV_2/dup2.c     |  6 +++
 mach/vax4/libsysV_2/execl.s    |  9 ++++
 mach/vax4/libsysV_2/execle.s   | 11 +++++
 mach/vax4/libsysV_2/execv.s    | 11 +++++
 mach/vax4/libsysV_2/execve.s   |  8 ++++
 mach/vax4/libsysV_2/exit.c     |  1 +
 mach/vax4/libsysV_2/fcntl.s    | 11 +++++
 mach/vax4/libsysV_2/fork.s     | 14 +++++++
 mach/vax4/libsysV_2/fstat.s    | 12 ++++++
 mach/vax4/libsysV_2/getegid.s  |  8 ++++
 mach/vax4/libsysV_2/geteuid.s  |  8 ++++
 mach/vax4/libsysV_2/getgid.s   |  7 ++++
 mach/vax4/libsysV_2/getpid.s   |  7 ++++
 mach/vax4/libsysV_2/getppid.s  |  8 ++++
 mach/vax4/libsysV_2/getuid.s   |  7 ++++
 mach/vax4/libsysV_2/gtty.s     | 11 +++++
 mach/vax4/libsysV_2/head_em.s  | 76 ++++++++++++++++++++++++++++++++++
 mach/vax4/libsysV_2/ioctl.s    | 11 +++++
 mach/vax4/libsysV_2/kill.s     | 12 ++++++
 mach/vax4/libsysV_2/link.s     | 12 ++++++
 mach/vax4/libsysV_2/lseek.s    | 11 +++++
 mach/vax4/libsysV_2/mknod.s    | 12 ++++++
 mach/vax4/libsysV_2/mount.s    | 12 ++++++
 mach/vax4/libsysV_2/msg.s      | 61 +++++++++++++++++++++++++++
 mach/vax4/libsysV_2/nexect.s   |  9 ++++
 mach/vax4/libsysV_2/nice.s     | 11 +++++
 mach/vax4/libsysV_2/open.s     | 11 +++++
 mach/vax4/libsysV_2/pause.s    | 12 ++++++
 mach/vax4/libsysV_2/pipe.s     | 15 +++++++
 mach/vax4/libsysV_2/plock.s    | 11 +++++
 mach/vax4/libsysV_2/profil.s   |  7 ++++
 mach/vax4/libsysV_2/ptrace.s   | 13 ++++++
 mach/vax4/libsysV_2/read.s     | 11 +++++
 mach/vax4/libsysV_2/sbrk.s     | 40 ++++++++++++++++++
 mach/vax4/libsysV_2/sem.s      | 41 ++++++++++++++++++
 mach/vax4/libsysV_2/setgid.s   | 12 ++++++
 mach/vax4/libsysV_2/setpgrp.s  | 20 +++++++++
 mach/vax4/libsysV_2/setuid.s   | 12 ++++++
 mach/vax4/libsysV_2/shm.s      | 57 +++++++++++++++++++++++++
 mach/vax4/libsysV_2/signal.s   | 11 +++++
 mach/vax4/libsysV_2/stat.s     | 12 ++++++
 mach/vax4/libsysV_2/stime.s    | 13 ++++++
 mach/vax4/libsysV_2/stty.s     | 11 +++++
 mach/vax4/libsysV_2/sync.s     |  7 ++++
 mach/vax4/libsysV_2/syscall.s  | 12 ++++++
 mach/vax4/libsysV_2/time.s     | 11 +++++
 mach/vax4/libsysV_2/times.s    | 11 +++++
 mach/vax4/libsysV_2/ulimit.s   | 11 +++++
 mach/vax4/libsysV_2/umask.s    | 11 +++++
 mach/vax4/libsysV_2/umount.s   | 12 ++++++
 mach/vax4/libsysV_2/uname.s    | 21 ++++++++++
 mach/vax4/libsysV_2/unlink.s   | 12 ++++++
 mach/vax4/libsysV_2/ustat.s    | 20 +++++++++
 mach/vax4/libsysV_2/utime.s    | 11 +++++
 mach/vax4/libsysV_2/wait.s     | 15 +++++++
 mach/vax4/libsysV_2/write.s    | 11 +++++
 71 files changed, 1004 insertions(+)
 create mode 100644 mach/vax4/libsysV_2/Makefile
 create mode 100644 mach/vax4/libsysV_2/_exit.s
 create mode 100644 mach/vax4/libsysV_2/access.s
 create mode 100644 mach/vax4/libsysV_2/acct.s
 create mode 100644 mach/vax4/libsysV_2/alarm.s
 create mode 100644 mach/vax4/libsysV_2/cerror.s
 create mode 100644 mach/vax4/libsysV_2/chdir.s
 create mode 100644 mach/vax4/libsysV_2/chmod.s
 create mode 100644 mach/vax4/libsysV_2/chown.s
 create mode 100644 mach/vax4/libsysV_2/chroot.s
 create mode 100644 mach/vax4/libsysV_2/cleanup.c
 create mode 100644 mach/vax4/libsysV_2/close.s
 create mode 100755 mach/vax4/libsysV_2/compmodule
 create mode 100644 mach/vax4/libsysV_2/creat.s
 create mode 100644 mach/vax4/libsysV_2/dup.s
 create mode 100644 mach/vax4/libsysV_2/dup2.c
 create mode 100644 mach/vax4/libsysV_2/execl.s
 create mode 100644 mach/vax4/libsysV_2/execle.s
 create mode 100644 mach/vax4/libsysV_2/execv.s
 create mode 100644 mach/vax4/libsysV_2/execve.s
 create mode 100644 mach/vax4/libsysV_2/exit.c
 create mode 100644 mach/vax4/libsysV_2/fcntl.s
 create mode 100644 mach/vax4/libsysV_2/fork.s
 create mode 100644 mach/vax4/libsysV_2/fstat.s
 create mode 100644 mach/vax4/libsysV_2/getegid.s
 create mode 100644 mach/vax4/libsysV_2/geteuid.s
 create mode 100644 mach/vax4/libsysV_2/getgid.s
 create mode 100644 mach/vax4/libsysV_2/getpid.s
 create mode 100644 mach/vax4/libsysV_2/getppid.s
 create mode 100644 mach/vax4/libsysV_2/getuid.s
 create mode 100644 mach/vax4/libsysV_2/gtty.s
 create mode 100644 mach/vax4/libsysV_2/head_em.s
 create mode 100644 mach/vax4/libsysV_2/ioctl.s
 create mode 100644 mach/vax4/libsysV_2/kill.s
 create mode 100644 mach/vax4/libsysV_2/link.s
 create mode 100644 mach/vax4/libsysV_2/lseek.s
 create mode 100644 mach/vax4/libsysV_2/mknod.s
 create mode 100644 mach/vax4/libsysV_2/mount.s
 create mode 100644 mach/vax4/libsysV_2/msg.s
 create mode 100644 mach/vax4/libsysV_2/nexect.s
 create mode 100644 mach/vax4/libsysV_2/nice.s
 create mode 100644 mach/vax4/libsysV_2/open.s
 create mode 100644 mach/vax4/libsysV_2/pause.s
 create mode 100644 mach/vax4/libsysV_2/pipe.s
 create mode 100644 mach/vax4/libsysV_2/plock.s
 create mode 100644 mach/vax4/libsysV_2/profil.s
 create mode 100644 mach/vax4/libsysV_2/ptrace.s
 create mode 100644 mach/vax4/libsysV_2/read.s
 create mode 100644 mach/vax4/libsysV_2/sbrk.s
 create mode 100644 mach/vax4/libsysV_2/sem.s
 create mode 100644 mach/vax4/libsysV_2/setgid.s
 create mode 100644 mach/vax4/libsysV_2/setpgrp.s
 create mode 100644 mach/vax4/libsysV_2/setuid.s
 create mode 100644 mach/vax4/libsysV_2/shm.s
 create mode 100644 mach/vax4/libsysV_2/signal.s
 create mode 100644 mach/vax4/libsysV_2/stat.s
 create mode 100644 mach/vax4/libsysV_2/stime.s
 create mode 100644 mach/vax4/libsysV_2/stty.s
 create mode 100644 mach/vax4/libsysV_2/sync.s
 create mode 100644 mach/vax4/libsysV_2/syscall.s
 create mode 100644 mach/vax4/libsysV_2/time.s
 create mode 100644 mach/vax4/libsysV_2/times.s
 create mode 100644 mach/vax4/libsysV_2/ulimit.s
 create mode 100644 mach/vax4/libsysV_2/umask.s
 create mode 100644 mach/vax4/libsysV_2/umount.s
 create mode 100644 mach/vax4/libsysV_2/uname.s
 create mode 100644 mach/vax4/libsysV_2/unlink.s
 create mode 100644 mach/vax4/libsysV_2/ustat.s
 create mode 100644 mach/vax4/libsysV_2/utime.s
 create mode 100644 mach/vax4/libsysV_2/wait.s
 create mode 100644 mach/vax4/libsysV_2/write.s

diff --git a/mach/vax4/libsysV_2/Makefile b/mach/vax4/libsysV_2/Makefile
new file mode 100644
index 000000000..6dd093d66
--- /dev/null
+++ b/mach/vax4/libsysV_2/Makefile
@@ -0,0 +1,31 @@
+# $Header$
+all:            head_em.o libmon_o.a
+
+install:	cp
+
+cp:             all
+		../../install head_em.o head_em
+		../../install libmon_o.a tail_mon
+
+cmp:            all
+		-../../compare head_em.o head_em
+		-../../compare libmon_o.a tail_mon
+
+
+head_em.o:      head_em.s
+		vax4 -I../../../h -c head_em.s
+
+libmon_o.a:	libmon_s.a
+		ASAR=ar ; export ASAR ;\
+		RANLIB=ranlib ; export RANLIB ;\
+		march . libmon_o.a
+
+clean:
+		rm -f *.o libmon_o.a
+
+opr:
+		make pr | opr
+
+pr:
+		@pr `pwd`/Makefile `pwd`/head_em.s
+		@arch pv libmon_s.a | pr -h `pwd`/libmon_s.a
diff --git a/mach/vax4/libsysV_2/_exit.s b/mach/vax4/libsysV_2/_exit.s
new file mode 100644
index 000000000..6c041483d
--- /dev/null
+++ b/mach/vax4/libsysV_2/_exit.s
@@ -0,0 +1,7 @@
+.set	exit,1
+.globl	__exit
+
+__exit:
+	.word	0x0000
+	chmk	$exit
+	halt
diff --git a/mach/vax4/libsysV_2/access.s b/mach/vax4/libsysV_2/access.s
new file mode 100644
index 000000000..d3e253985
--- /dev/null
+++ b/mach/vax4/libsysV_2/access.s
@@ -0,0 +1,11 @@
+.set	access,33
+.globl	_access
+.globl	cerror
+
+_access:
+	.word	0x0000
+	chmk	$access
+	bcc 	ok
+	jmp 	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/acct.s b/mach/vax4/libsysV_2/acct.s
new file mode 100644
index 000000000..dc0af6bb9
--- /dev/null
+++ b/mach/vax4/libsysV_2/acct.s
@@ -0,0 +1,11 @@
+.set	acct,51
+.globl	_acct
+.globl  cerror
+
+_acct:
+	.word	0x0000
+	chmk	$acct
+	bcc 	ok
+	jmp 	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/alarm.s b/mach/vax4/libsysV_2/alarm.s
new file mode 100644
index 000000000..f35a9814a
--- /dev/null
+++ b/mach/vax4/libsysV_2/alarm.s
@@ -0,0 +1,7 @@
+.set	alarm,27
+.globl	_alarm
+
+_alarm:
+	.word	0x0000
+	chmk	$alarm
+	ret
diff --git a/mach/vax4/libsysV_2/cerror.s b/mach/vax4/libsysV_2/cerror.s
new file mode 100644
index 000000000..3c141fde3
--- /dev/null
+++ b/mach/vax4/libsysV_2/cerror.s
@@ -0,0 +1,11 @@
+.globl	cerror
+.globl	_errno
+
+.data
+_errno:	.long	0
+
+.text
+cerror:
+	movl	r0,_errno
+	mnegl	$1,r0
+	ret
diff --git a/mach/vax4/libsysV_2/chdir.s b/mach/vax4/libsysV_2/chdir.s
new file mode 100644
index 000000000..377630d14
--- /dev/null
+++ b/mach/vax4/libsysV_2/chdir.s
@@ -0,0 +1,12 @@
+.set	chdir,12
+.globl	_chdir
+.globl	cerror
+
+_chdir:
+	.word	0x0000
+	chmk	$chdir
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/chmod.s b/mach/vax4/libsysV_2/chmod.s
new file mode 100644
index 000000000..9166e55ab
--- /dev/null
+++ b/mach/vax4/libsysV_2/chmod.s
@@ -0,0 +1,12 @@
+.set	chmod,15
+.globl	_chmod
+.globl	cerror
+
+_chmod:
+	.word	0x0000
+	chmk	$chmod
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/chown.s b/mach/vax4/libsysV_2/chown.s
new file mode 100644
index 000000000..a1fb9cf28
--- /dev/null
+++ b/mach/vax4/libsysV_2/chown.s
@@ -0,0 +1,12 @@
+.set	chown,16
+.globl	_chown
+.globl	cerror
+
+_chown:
+	.word	0x0000
+	chmk	$chown
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/chroot.s b/mach/vax4/libsysV_2/chroot.s
new file mode 100644
index 000000000..4d4aa008d
--- /dev/null
+++ b/mach/vax4/libsysV_2/chroot.s
@@ -0,0 +1,11 @@
+.set	chroot,61
+.globl	_chroot
+.globl	cerror
+
+_chroot:
+	.word	0x0000
+	chmk	$chroot
+	bcc	ok
+	jmp	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/cleanup.c b/mach/vax4/libsysV_2/cleanup.c
new file mode 100644
index 000000000..6cd9c63e6
--- /dev/null
+++ b/mach/vax4/libsysV_2/cleanup.c
@@ -0,0 +1 @@
+_cleanup() { }
diff --git a/mach/vax4/libsysV_2/close.s b/mach/vax4/libsysV_2/close.s
new file mode 100644
index 000000000..706ee2409
--- /dev/null
+++ b/mach/vax4/libsysV_2/close.s
@@ -0,0 +1,12 @@
+.set	close,6
+.globl	_close
+.globl	cerror
+
+_close:
+	.word	0x0000
+	chmk	$close
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/compmodule b/mach/vax4/libsysV_2/compmodule
new file mode 100755
index 000000000..67777e8a6
--- /dev/null
+++ b/mach/vax4/libsysV_2/compmodule
@@ -0,0 +1,4 @@
+if vax4 -O -c -I../../../h -I. $1 1>&2
+then echo `basename $1 $2`.o
+else exit 1
+fi
diff --git a/mach/vax4/libsysV_2/creat.s b/mach/vax4/libsysV_2/creat.s
new file mode 100644
index 000000000..34471d01f
--- /dev/null
+++ b/mach/vax4/libsysV_2/creat.s
@@ -0,0 +1,11 @@
+.set	creat,8
+.globl	_creat
+.globl	cerror
+
+_creat:
+	.word	0x0000
+	chmk	$creat
+	bcc 	ok
+	jmp 	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/dup.s b/mach/vax4/libsysV_2/dup.s
new file mode 100644
index 000000000..eaa03752d
--- /dev/null
+++ b/mach/vax4/libsysV_2/dup.s
@@ -0,0 +1,11 @@
+.set	dup,41
+.globl	_dup
+.globl	cerror
+
+_dup:
+	.word	0x0000
+	chmk	$dup
+	bcc 	ok
+	jmp 	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/dup2.c b/mach/vax4/libsysV_2/dup2.c
new file mode 100644
index 000000000..c672adbba
--- /dev/null
+++ b/mach/vax4/libsysV_2/dup2.c
@@ -0,0 +1,6 @@
+int
+dup2(oldfd, newfd)
+{
+	close(newfd);
+	return fcntl(oldfd, 0, newfd);
+}
diff --git a/mach/vax4/libsysV_2/execl.s b/mach/vax4/libsysV_2/execl.s
new file mode 100644
index 000000000..32261327f
--- /dev/null
+++ b/mach/vax4/libsysV_2/execl.s
@@ -0,0 +1,9 @@
+.globl	_execl
+.globl	_execv
+
+_execl:
+	.word	0x0000
+	pushab	8(ap)
+	pushl	4(ap)
+	calls	$2,_execv
+	ret
diff --git a/mach/vax4/libsysV_2/execle.s b/mach/vax4/libsysV_2/execle.s
new file mode 100644
index 000000000..8b6818254
--- /dev/null
+++ b/mach/vax4/libsysV_2/execle.s
@@ -0,0 +1,11 @@
+.globl	_execle
+.globl	_execve
+
+_execle:
+	.word	0x0000
+	movl	(ap),r0
+	pushl	(ap)[r0]
+	pushab	8(ap)
+	pushl	4(ap)
+	calls	$3,_execve
+	ret
diff --git a/mach/vax4/libsysV_2/execv.s b/mach/vax4/libsysV_2/execv.s
new file mode 100644
index 000000000..60e4d874d
--- /dev/null
+++ b/mach/vax4/libsysV_2/execv.s
@@ -0,0 +1,11 @@
+.globl	_execv
+.globl	_execve
+.globl	_environ
+
+_execv:
+	.word	0x0000
+	pushl	_environ
+	pushl	8(ap)
+	pushl	4(ap)
+	calls	$3,_execve
+	ret
diff --git a/mach/vax4/libsysV_2/execve.s b/mach/vax4/libsysV_2/execve.s
new file mode 100644
index 000000000..d894740c5
--- /dev/null
+++ b/mach/vax4/libsysV_2/execve.s
@@ -0,0 +1,8 @@
+.set	exece,59
+.globl	_execve
+.globl	cerror
+
+_execve:
+	.word	0x0000
+	chmk	$exece
+	jmp 	cerror
diff --git a/mach/vax4/libsysV_2/exit.c b/mach/vax4/libsysV_2/exit.c
new file mode 100644
index 000000000..89d4723d0
--- /dev/null
+++ b/mach/vax4/libsysV_2/exit.c
@@ -0,0 +1 @@
+exit(n) { _cleanup(); _exit(n); }
diff --git a/mach/vax4/libsysV_2/fcntl.s b/mach/vax4/libsysV_2/fcntl.s
new file mode 100644
index 000000000..4ee161e2a
--- /dev/null
+++ b/mach/vax4/libsysV_2/fcntl.s
@@ -0,0 +1,11 @@
+.set	fcntl,62
+.globl	_fcntl
+.globl	cerror
+
+_fcntl:
+	.word	0x0000
+	chmk	$fcntl
+	bcc	ok
+	jmp	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/fork.s b/mach/vax4/libsysV_2/fork.s
new file mode 100644
index 000000000..296a97ace
--- /dev/null
+++ b/mach/vax4/libsysV_2/fork.s
@@ -0,0 +1,14 @@
+.set	fork,2
+.globl	_fork
+.globl	cerror
+
+_fork:
+	.word	0x0000
+	chmk	$fork
+	bcc	ok
+	jmp	cerror
+ok:
+	blbc	r1,out
+	clrl	r0
+out:
+	ret
diff --git a/mach/vax4/libsysV_2/fstat.s b/mach/vax4/libsysV_2/fstat.s
new file mode 100644
index 000000000..b3e8d256b
--- /dev/null
+++ b/mach/vax4/libsysV_2/fstat.s
@@ -0,0 +1,12 @@
+.set	fstat,28
+.globl	_fstat
+.globl	cerror
+
+_fstat:
+	.word	0x0000
+	chmk	$fstat
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/getegid.s b/mach/vax4/libsysV_2/getegid.s
new file mode 100644
index 000000000..ab35f8495
--- /dev/null
+++ b/mach/vax4/libsysV_2/getegid.s
@@ -0,0 +1,8 @@
+.set	getgid,47
+.globl	_getegid
+
+_getegid:
+	.word	0x0000
+	chmk	$getgid
+	movl	r1,r0
+	ret
diff --git a/mach/vax4/libsysV_2/geteuid.s b/mach/vax4/libsysV_2/geteuid.s
new file mode 100644
index 000000000..d5cd917e2
--- /dev/null
+++ b/mach/vax4/libsysV_2/geteuid.s
@@ -0,0 +1,8 @@
+.set	getuid,24
+.globl	_geteuid
+
+_geteuid:
+	.word	0x0000
+	chmk	$getuid
+	movl	r1,r0
+	ret
diff --git a/mach/vax4/libsysV_2/getgid.s b/mach/vax4/libsysV_2/getgid.s
new file mode 100644
index 000000000..0dca6f3ce
--- /dev/null
+++ b/mach/vax4/libsysV_2/getgid.s
@@ -0,0 +1,7 @@
+.set	getgid,47
+.globl	_getgid
+
+_getgid:
+	.word	0x0000
+	chmk	$getgid
+	ret
diff --git a/mach/vax4/libsysV_2/getpid.s b/mach/vax4/libsysV_2/getpid.s
new file mode 100644
index 000000000..c51614c52
--- /dev/null
+++ b/mach/vax4/libsysV_2/getpid.s
@@ -0,0 +1,7 @@
+.set	getpid,20
+.globl	_getpid
+
+_getpid:
+	.word	0x0000
+	chmk	$getpid
+	ret
diff --git a/mach/vax4/libsysV_2/getppid.s b/mach/vax4/libsysV_2/getppid.s
new file mode 100644
index 000000000..59bd5bbb0
--- /dev/null
+++ b/mach/vax4/libsysV_2/getppid.s
@@ -0,0 +1,8 @@
+.set	getpid,20
+.globl	_getppid
+
+_getppid:
+	.word	0x0000
+	chmk	$getpid
+	movl	r1,r0
+	ret
diff --git a/mach/vax4/libsysV_2/getuid.s b/mach/vax4/libsysV_2/getuid.s
new file mode 100644
index 000000000..1764ca314
--- /dev/null
+++ b/mach/vax4/libsysV_2/getuid.s
@@ -0,0 +1,7 @@
+.set	getuid,24
+.globl	_getuid
+
+_getuid:
+	.word	0x0000
+	chmk	$getuid
+	ret
diff --git a/mach/vax4/libsysV_2/gtty.s b/mach/vax4/libsysV_2/gtty.s
new file mode 100644
index 000000000..09ec15376
--- /dev/null
+++ b/mach/vax4/libsysV_2/gtty.s
@@ -0,0 +1,11 @@
+.set	gtty,32
+.globl	_gtty
+.globl	cerror
+
+_gtty:
+	.word	0x0000
+	chmk	$gtty
+	bcc	ok
+	jmp	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/head_em.s b/mach/vax4/libsysV_2/head_em.s
new file mode 100644
index 000000000..2608535e4
--- /dev/null
+++ b/mach/vax4/libsysV_2/head_em.s
@@ -0,0 +1,76 @@
+#include "em_abs.h"
+
+	# $Header$
+
+.globl	hol0
+.globl	.reghp
+.globl	.trppc
+.globl	.trpim
+
+	# run time startoff
+	.word	0
+	bispsw	$0100		# set FU(0100)
+	movl	4(sp),r0
+	clrl	-4(r0)
+	movl	sp,r0
+	movl	(r0)+,r1
+	movl	r0,r2
+a1:
+	tstl	(r0)+
+	bneq	a1
+	cmpl	r0,(r2)
+	blssu	a2
+	tstl	-(r0)
+a2:
+	pushl	r0
+	pushl	r2
+	pushl	r1
+	movl	$m1,ap
+	chmk	(ap)+		# catch floating point exception
+	calls	$3,_m_a_i_n
+	movl	$m2,ap
+	movl	r0,6(ap)
+	chmk	(ap)+
+	halt
+
+	.align	1
+sig8:
+	.word	0x0000
+	pushl	8(ap)
+	movl	(sp)+,ap
+	pushl	tab [ap]
+	jsb	.trp
+	movl	$m1,ap
+	chmk	(ap)+
+	ret
+
+	.data
+m1:
+	.word	48
+	.long	2
+	.long	8
+	.long	sig8
+m2:
+	.word	1
+	.long	1
+	.long	0
+.reghp:
+	.long	_end
+hol0:
+	.space	8
+.trppc:
+	.space	4
+.trpim:
+	.long	0
+tab:
+	.long	0
+	.long	EIOVFL
+	.long	EIDIVZ
+	.long	EFOVFL
+	.long	EFDIVZ
+	.long	EFUNFL
+	.long	EILLINS
+	.long	EARRAY
+	.long	EFOVFL
+	.long	EFDIVZ
+	.long	EFUNFL
diff --git a/mach/vax4/libsysV_2/ioctl.s b/mach/vax4/libsysV_2/ioctl.s
new file mode 100644
index 000000000..441282066
--- /dev/null
+++ b/mach/vax4/libsysV_2/ioctl.s
@@ -0,0 +1,11 @@
+.set	ioctl,54
+.globl	_ioctl
+.globl	cerror
+
+_ioctl:
+	.word	0x0000
+	chmk	$ioctl
+	bcc	ok
+	jmp	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/kill.s b/mach/vax4/libsysV_2/kill.s
new file mode 100644
index 000000000..48da70a69
--- /dev/null
+++ b/mach/vax4/libsysV_2/kill.s
@@ -0,0 +1,12 @@
+.set	kill,37
+.globl	_kill
+.globl cerror
+
+_kill:
+	.word	0x0000
+	chmk	$kill
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/link.s b/mach/vax4/libsysV_2/link.s
new file mode 100644
index 000000000..b2364f77b
--- /dev/null
+++ b/mach/vax4/libsysV_2/link.s
@@ -0,0 +1,12 @@
+.set	link,9
+.globl	_link
+.globl	cerror
+
+_link:
+	.word	0x0000
+	chmk	$link
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/lseek.s b/mach/vax4/libsysV_2/lseek.s
new file mode 100644
index 000000000..652bdabd4
--- /dev/null
+++ b/mach/vax4/libsysV_2/lseek.s
@@ -0,0 +1,11 @@
+.set	lseek,19
+.globl	_lseek
+.globl  cerror
+
+_lseek:
+	.word	0x0000
+	chmk	$lseek
+	bcc 	ok
+	jmp 	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/mknod.s b/mach/vax4/libsysV_2/mknod.s
new file mode 100644
index 000000000..5ed673fdf
--- /dev/null
+++ b/mach/vax4/libsysV_2/mknod.s
@@ -0,0 +1,12 @@
+.set	mknod,14
+.globl	_mknod
+.globl  cerror
+
+_mknod:
+	.word	0x0000
+	chmk	$mknod
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/mount.s b/mach/vax4/libsysV_2/mount.s
new file mode 100644
index 000000000..166368c51
--- /dev/null
+++ b/mach/vax4/libsysV_2/mount.s
@@ -0,0 +1,12 @@
+.set	mount,21
+.globl	_mount
+.globl  cerror
+
+_mount:
+	.word	0x0000
+	chmk	$mount
+	bcc	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/msg.s b/mach/vax4/libsysV_2/msg.s
new file mode 100644
index 000000000..43e614e4b
--- /dev/null
+++ b/mach/vax4/libsysV_2/msg.s
@@ -0,0 +1,61 @@
+.set	msg,49
+.globl	_msgrcv
+.globl	_msgctl
+.globl	_msgsnd
+.globl	_msgget
+.globl	cerror
+
+_msgsnd:
+	.word 0x0000
+	pushl	16(ap)
+	pushl	12(ap)
+	pushl	8(ap)
+	pushl	4(ap)
+	pushl	$3
+	calls	$5,sys
+	ret
+
+_msgrcv:
+	.word 0x0000
+	pushl	20(sp)
+	pushl	16(ap)
+	pushl	12(ap)
+	pushl	8(ap)
+	pushl	4(ap)
+	pushl	$2
+	calls	$6,sys1
+	ret
+
+_msgctl:
+	.word 0x0000
+	pushl	12(ap)
+	pushl	8(ap)
+	pushl	4(ap)
+	pushl	$1
+	calls	$4,sys
+	ret
+
+_msgget:
+	.word 0x0000
+	pushl	8(ap)
+	pushl	4(ap)
+	pushl	$0
+	calls	$3,sys1
+	ret
+
+sys:
+	.word 0x0000
+	chmk	$msg
+	bcc	ok
+	jmp	cerror
+ok:
+	clrl	r0
+	ret
+
+sys1:
+	.word 0x0000
+	chmk	$msg
+	bcc	ok1
+	jmp	cerror
+ok1:
+	ret
diff --git a/mach/vax4/libsysV_2/nexect.s b/mach/vax4/libsysV_2/nexect.s
new file mode 100644
index 000000000..148fdb949
--- /dev/null
+++ b/mach/vax4/libsysV_2/nexect.s
@@ -0,0 +1,9 @@
+.set	execve,59
+.globl	_exect
+.globl	cerror
+
+_exect:
+	.word	0x0000
+	bispsw	$0x10
+	chmk	$execve
+	jmp 	cerror
diff --git a/mach/vax4/libsysV_2/nice.s b/mach/vax4/libsysV_2/nice.s
new file mode 100644
index 000000000..a3d29e9f3
--- /dev/null
+++ b/mach/vax4/libsysV_2/nice.s
@@ -0,0 +1,11 @@
+.set	nice,34
+.globl	_nice
+.globl  cerror
+
+_nice:
+	.word	0x0000
+	chmk	$nice
+	bcc 	ok
+	jmp 	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/open.s b/mach/vax4/libsysV_2/open.s
new file mode 100644
index 000000000..3a1d0c400
--- /dev/null
+++ b/mach/vax4/libsysV_2/open.s
@@ -0,0 +1,11 @@
+.set	open,5
+.globl	_open
+.globl  cerror
+
+_open:
+	.word	0x0000
+	chmk	$open
+	bcc 	ok
+	jmp 	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/pause.s b/mach/vax4/libsysV_2/pause.s
new file mode 100644
index 000000000..71b04b8c0
--- /dev/null
+++ b/mach/vax4/libsysV_2/pause.s
@@ -0,0 +1,12 @@
+.set	pause,29
+.globl	_pause
+.globl	cerror
+
+_pause:
+	.word	0x0000
+	chmk	$pause
+	bcc	ok
+	jmp	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/pipe.s b/mach/vax4/libsysV_2/pipe.s
new file mode 100644
index 000000000..49a577c47
--- /dev/null
+++ b/mach/vax4/libsysV_2/pipe.s
@@ -0,0 +1,15 @@
+.set	pipe,42
+.globl	_pipe
+.globl  cerror
+
+_pipe:
+	.word	0x0000
+	chmk	$pipe
+	bcc 	ok
+	jmp 	cerror
+ok:
+	movl	4(ap),r2
+	movl	r0,(r2)+
+	movl	r1,(r2)
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/plock.s b/mach/vax4/libsysV_2/plock.s
new file mode 100644
index 000000000..ddc2d390a
--- /dev/null
+++ b/mach/vax4/libsysV_2/plock.s
@@ -0,0 +1,11 @@
+.set	plock,45
+.globl	_plock
+.globl	cerror
+
+_plock:
+	.word	0x0000
+	chmk	$plock
+	bcc	ok
+	jmp	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/profil.s b/mach/vax4/libsysV_2/profil.s
new file mode 100644
index 000000000..5dc9f5479
--- /dev/null
+++ b/mach/vax4/libsysV_2/profil.s
@@ -0,0 +1,7 @@
+.set	prof,44
+.globl	_profil
+
+_profil:
+	.word	0x0000
+	chmk	$prof
+	ret
diff --git a/mach/vax4/libsysV_2/ptrace.s b/mach/vax4/libsysV_2/ptrace.s
new file mode 100644
index 000000000..65f4eb8cd
--- /dev/null
+++ b/mach/vax4/libsysV_2/ptrace.s
@@ -0,0 +1,13 @@
+.set	ptrace,26
+.globl	_ptrace
+.globl  _errno
+.globl	cerror
+
+_ptrace:
+	.word	0x0000
+	clrl	_errno
+	chmk	$ptrace
+	bcc 	ok
+	jmp 	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/read.s b/mach/vax4/libsysV_2/read.s
new file mode 100644
index 000000000..749813317
--- /dev/null
+++ b/mach/vax4/libsysV_2/read.s
@@ -0,0 +1,11 @@
+.set	read,3
+.globl	_read
+.globl  cerror
+
+_read:
+	.word	0x0000
+	chmk	$read
+	bcc 	ok
+	jmp 	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/sbrk.s b/mach/vax4/libsysV_2/sbrk.s
new file mode 100644
index 000000000..3c952cb88
--- /dev/null
+++ b/mach/vax4/libsysV_2/sbrk.s
@@ -0,0 +1,40 @@
+.set	break,17
+.globl	_sbrk
+.globl	_brk
+.globl	_end
+.globl	cerror
+
+_sbrk:
+	.word	0x0000
+	movl	nd,r0
+	tstl	4(ap)
+	jeql	out
+	addl3	r0,4(ap),-(sp)
+	bcs	ovfl
+	pushl	$1
+	movl	ap,r3
+	movl	sp,ap
+	chmk	$break
+	bcc 	ok
+ovfl:
+	jmp 	cerror
+ok:
+	movl	nd,r0
+	addl2	4(r3),nd
+out:
+	ret
+
+.globl	_brk
+
+_brk:
+	.word	0x0000
+	chmk	$break
+	bcc 	ok2
+	jmp 	cerror
+ok2:
+	movl	4(ap),nd
+	clrl	r0
+	ret
+
+	.data
+nd:	.long	_end
diff --git a/mach/vax4/libsysV_2/sem.s b/mach/vax4/libsysV_2/sem.s
new file mode 100644
index 000000000..2f996c1d3
--- /dev/null
+++ b/mach/vax4/libsysV_2/sem.s
@@ -0,0 +1,41 @@
+.set	sem,53
+.globl	_semctl
+.globl	_semget
+.globl	_semop
+.globl	cerror
+
+_semop:
+	.word 0x0000
+	pushl	12(ap)
+	pushl	8(ap)
+	pushl	4(ap)
+	pushl	$2
+	calls	$4,sys1
+	ret
+
+_semctl:
+	.word 0x0000
+	pushl	16(ap)
+	pushl	12(ap)
+	pushl	8(ap)
+	pushl	4(ap)
+	pushl	$1
+	calls	$5,sys1
+	ret
+
+_semget:
+	.word 0x0000
+	pushl	12(ap)
+	pushl	8(ap)
+	pushl	4(ap)
+	pushl	$0
+	calls	$4,sys1
+	ret
+
+sys1:
+	.word 0x0000
+	chmk	$sem
+	bcc	ok1
+	jmp	cerror
+ok1:
+	ret
diff --git a/mach/vax4/libsysV_2/setgid.s b/mach/vax4/libsysV_2/setgid.s
new file mode 100644
index 000000000..7d84e5c28
--- /dev/null
+++ b/mach/vax4/libsysV_2/setgid.s
@@ -0,0 +1,12 @@
+.set	setgid,46
+.globl	_setgid
+.globl  cerror
+
+_setgid:
+	.word	0x0000
+	chmk	$setgid
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/setpgrp.s b/mach/vax4/libsysV_2/setpgrp.s
new file mode 100644
index 000000000..c86f36645
--- /dev/null
+++ b/mach/vax4/libsysV_2/setpgrp.s
@@ -0,0 +1,20 @@
+.set	setpgrp,39
+.globl	_setpgrp
+.globl	_getpgrp
+
+_setpgrp:
+	.word	0x0000
+	pushl	$1
+	calls	$1,pgrp
+	ret
+
+_getpgrp:
+	.word	0x0000
+	pushl	$0
+	calls	$1,pgrp
+	ret
+
+pgrp:
+	.word	0x0000
+	chmk	$setpgrp
+	ret
diff --git a/mach/vax4/libsysV_2/setuid.s b/mach/vax4/libsysV_2/setuid.s
new file mode 100644
index 000000000..66592999d
--- /dev/null
+++ b/mach/vax4/libsysV_2/setuid.s
@@ -0,0 +1,12 @@
+.set	setuid,23
+.globl	_setuid
+.globl  cerror
+
+_setuid:
+	.word	0x0000
+	chmk	$setuid
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/shm.s b/mach/vax4/libsysV_2/shm.s
new file mode 100644
index 000000000..132f5b395
--- /dev/null
+++ b/mach/vax4/libsysV_2/shm.s
@@ -0,0 +1,57 @@
+.set	shm,52
+.globl	_shmat
+.globl	_shmctl
+.globl	_shmdt
+.globl	_shmget
+.globl	cerror
+
+_shmat:
+	.word 0x0000
+	pushl	12(ap)
+	pushl	8(ap)
+	pushl	4(ap)
+	pushl	$0
+	calls	$4,sys1
+	ret
+
+_shmdt:
+	.word 0x0000
+	pushl	4(ap)
+	pushl	$2
+	calls	$2,sys
+	ret
+
+_shmctl:
+	.word 0x0000
+	pushl	12(ap)
+	pushl	8(ap)
+	pushl	4(ap)
+	pushl	$1
+	calls	$4,sys
+	ret
+
+_shmget:
+	.word 0x0000
+	pushl	12(ap)
+	pushl	8(ap)
+	pushl	4(ap)
+	pushl	$3
+	calls	$4,sys1
+	ret
+
+sys:
+	.word 0x0000
+	chmk	$shm
+	bcc	ok
+	jmp	cerror
+ok:
+	clrl	r0
+	ret
+
+sys1:
+	.word 0x0000
+	chmk	$shm
+	bcc	ok1
+	jmp	cerror
+ok1:
+	ret
diff --git a/mach/vax4/libsysV_2/signal.s b/mach/vax4/libsysV_2/signal.s
new file mode 100644
index 000000000..241de2050
--- /dev/null
+++ b/mach/vax4/libsysV_2/signal.s
@@ -0,0 +1,11 @@
+.set	signal,48
+.globl	_signal
+.globl  cerror
+
+_signal:
+	.word	0x0000
+	chmk	$signal
+	bcc 	ok
+	jmp 	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/stat.s b/mach/vax4/libsysV_2/stat.s
new file mode 100644
index 000000000..82785b1df
--- /dev/null
+++ b/mach/vax4/libsysV_2/stat.s
@@ -0,0 +1,12 @@
+.set	stat,18
+.globl	_stat
+.globl  cerror
+
+_stat:
+	.word	0x0000
+	chmk	$stat
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/stime.s b/mach/vax4/libsysV_2/stime.s
new file mode 100644
index 000000000..9c3267023
--- /dev/null
+++ b/mach/vax4/libsysV_2/stime.s
@@ -0,0 +1,13 @@
+.set	stime,25
+.globl	_stime
+.globl  cerror
+
+_stime:
+	.word	0x0000
+	movl	*4(ap),4(ap)
+	chmk	$stime
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/stty.s b/mach/vax4/libsysV_2/stty.s
new file mode 100644
index 000000000..d752cab4a
--- /dev/null
+++ b/mach/vax4/libsysV_2/stty.s
@@ -0,0 +1,11 @@
+.set	stty,31
+.globl	_stty
+.globl	cerror
+
+_stty:
+	.word	0x0000
+	chmk	$stty
+	bcc	ok
+	jmp	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/sync.s b/mach/vax4/libsysV_2/sync.s
new file mode 100644
index 000000000..60b9ae47b
--- /dev/null
+++ b/mach/vax4/libsysV_2/sync.s
@@ -0,0 +1,7 @@
+.set	sync,36
+.globl	_sync
+
+_sync:
+	.word	0x0000
+	chmk	$sync
+	ret
diff --git a/mach/vax4/libsysV_2/syscall.s b/mach/vax4/libsysV_2/syscall.s
new file mode 100644
index 000000000..45e6a7f9e
--- /dev/null
+++ b/mach/vax4/libsysV_2/syscall.s
@@ -0,0 +1,12 @@
+.globl	_syscall
+.globl	cerror
+
+_syscall:
+	.word	0x0000
+	movl	4(ap),r0
+	subl3	$1,(ap)+,(ap)
+	chmk	r0
+	bcc	ok
+	jmp	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/time.s b/mach/vax4/libsysV_2/time.s
new file mode 100644
index 000000000..f719a312f
--- /dev/null
+++ b/mach/vax4/libsysV_2/time.s
@@ -0,0 +1,11 @@
+.set	time,13
+.globl	_time
+
+_time:
+	.word	0x0000
+	chmk	$time
+	movl	4(ap),r1
+	beql	out
+	movl	r0,(r1)
+out:
+	ret
diff --git a/mach/vax4/libsysV_2/times.s b/mach/vax4/libsysV_2/times.s
new file mode 100644
index 000000000..bdbbc75ca
--- /dev/null
+++ b/mach/vax4/libsysV_2/times.s
@@ -0,0 +1,11 @@
+.set	times,43
+.globl	_times
+.globl	cerror
+
+_times:
+	.word	0x0000
+	chmk	$times
+	bcc	ok
+	jmp	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/ulimit.s b/mach/vax4/libsysV_2/ulimit.s
new file mode 100644
index 000000000..fa60ea07c
--- /dev/null
+++ b/mach/vax4/libsysV_2/ulimit.s
@@ -0,0 +1,11 @@
+.set	ulimit,63
+.globl	_ulimit
+.globl	cerror
+
+_ulimit:
+	.word	0x0000
+	chmk	$ulimit
+	bcc	ok
+	jmp	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/umask.s b/mach/vax4/libsysV_2/umask.s
new file mode 100644
index 000000000..add8702e6
--- /dev/null
+++ b/mach/vax4/libsysV_2/umask.s
@@ -0,0 +1,11 @@
+.set	umask,60
+.globl	_umask
+.globl	cerror
+
+_umask:
+	.word	0x0000
+	chmk	$umask
+	bcc	ok
+	jmp	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/umount.s b/mach/vax4/libsysV_2/umount.s
new file mode 100644
index 000000000..2a6d2305c
--- /dev/null
+++ b/mach/vax4/libsysV_2/umount.s
@@ -0,0 +1,12 @@
+.set	umount,22
+.globl	_umount
+.globl	cerror
+
+_umount:
+	.word	0x0000
+	chmk	$umount
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/uname.s b/mach/vax4/libsysV_2/uname.s
new file mode 100644
index 000000000..409f4e754
--- /dev/null
+++ b/mach/vax4/libsysV_2/uname.s
@@ -0,0 +1,21 @@
+.set	utssys,57
+
+.globl	_uname
+.globl	cerror
+
+_uname:
+	.word	0x0000
+	pushl	$0
+	pushl	$0
+	pushl	4(ap)
+	calls	$3,sys
+	ret
+
+sys:
+	.word	0x0000
+	chmk	$utssys
+	bcc	ok
+	jmp	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/unlink.s b/mach/vax4/libsysV_2/unlink.s
new file mode 100644
index 000000000..f57b642fd
--- /dev/null
+++ b/mach/vax4/libsysV_2/unlink.s
@@ -0,0 +1,12 @@
+.set	unlink,10
+.globl	_unlink
+.globl  cerror
+
+_unlink:
+	.word	0x0000
+	chmk	$unlink
+	bcc 	ok
+	jmp 	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/ustat.s b/mach/vax4/libsysV_2/ustat.s
new file mode 100644
index 000000000..14c867db8
--- /dev/null
+++ b/mach/vax4/libsysV_2/ustat.s
@@ -0,0 +1,20 @@
+.set	utssys,57
+.globl	_ustat
+.globl	cerror
+
+_ustat:
+	.word	0x0000
+	pushl	$2
+	pushl	4(ap)
+	pushl	8(ap)
+	calls	$3,sys
+	ret
+
+sys:
+	.word	0x0000
+	chmk	$utssys
+	bcc	ok
+	jmp	cerror
+ok:
+	clrl	r0
+	ret
diff --git a/mach/vax4/libsysV_2/utime.s b/mach/vax4/libsysV_2/utime.s
new file mode 100644
index 000000000..d3683dd61
--- /dev/null
+++ b/mach/vax4/libsysV_2/utime.s
@@ -0,0 +1,11 @@
+.set	utime,30
+.globl	_utime
+.globl	cerror
+ 
+_utime:
+	.word	0x0000
+	chmk	$utime
+	bcc	ok
+	jmp	cerror
+ok:
+	ret
diff --git a/mach/vax4/libsysV_2/wait.s b/mach/vax4/libsysV_2/wait.s
new file mode 100644
index 000000000..f58b668eb
--- /dev/null
+++ b/mach/vax4/libsysV_2/wait.s
@@ -0,0 +1,15 @@
+.set	wait,7
+.globl	_wait
+.globl  cerror
+
+_wait:
+	.word	0x0000
+	chmk	$wait
+	bcc 	ok
+	jmp 	cerror
+ok:
+	tstl	4(ap)
+	beql	out
+	movl	r1,*4(ap)
+out:
+	ret
diff --git a/mach/vax4/libsysV_2/write.s b/mach/vax4/libsysV_2/write.s
new file mode 100644
index 000000000..f697cbebd
--- /dev/null
+++ b/mach/vax4/libsysV_2/write.s
@@ -0,0 +1,11 @@
+.set	write,4
+.globl	_write
+.globl  cerror
+
+_write:
+	.word	0x0000
+	chmk	$write
+	bcc 	out
+	jmp 	cerror
+out:
+	ret