From: ceriel <none@none>
Date: Wed, 7 Jan 1987 17:13:41 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: release-5-5~5054
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=18376b38cf8a1157c3b6b115aa0686300e0212c8;p=ack.git

Initial revision
---

diff --git a/mach/pdp/libsys/LIST b/mach/pdp/libsys/LIST
new file mode 100644
index 000000000..0db8f4119
--- /dev/null
+++ b/mach/pdp/libsys/LIST
@@ -0,0 +1,81 @@
+tail_mon.a
+exit.c
+cleanup.c
+stty.c
+gtty.c
+_exit.s
+access.s
+acct.s
+alarm.s
+chdir.s
+chmod.s
+chown.s
+chroot.s
+close.s
+creat.s
+dup.s
+execl.s
+execle.s
+execv.s
+execve.s
+fetchi.s
+fork.s
+fperr.s
+fstat.s
+ftime.s
+getgid.s
+getgrp.s
+getpid.s
+getppid.s
+getuid.s
+gldav.s
+ioctl.s
+kill.s
+killbkg.s
+killpg.s
+link.s
+lock.s
+login.s
+lseek.s
+lstat.s
+mknod.s
+mount.s
+mpxcall.s
+nice.s
+nostk.s
+open.s
+pause.s
+phys.s
+pipe.s
+profil.s
+ptrace.s
+qfstat.s
+qstat.s
+quota.s
+read.s
+readlink.s
+reboot.s
+renice.s
+rtp.s
+sbrk.s
+setgid.s
+setgrp.s
+setuid.s
+signal.s
+stat.s
+stime.s
+submit.s
+symlink.s
+sync.s
+time.s
+times.s
+ucall.s
+umask.s
+umount.s
+unlink.s
+utime.s
+vfork.s
+vhangup.s
+wait.s
+write.s
+errno.s
diff --git a/mach/pdp/libsys/Makefile b/mach/pdp/libsys/Makefile
new file mode 100644
index 000000000..733850b94
--- /dev/null
+++ b/mach/pdp/libsys/Makefile
@@ -0,0 +1,25 @@
+# $Header$
+install:	cp
+
+cp:             all
+		../../install tail_mon
+		rm -f head_em tail_mon
+
+cmp:            all
+		-../../compare tail_mon
+		rm -f head_em tail_mon
+
+all:		tail_mon
+
+tail_mon:
+		ASAR=ar ; export ASAR ;\
+		RANLIB=ranlib ; export RANLIB ;\
+		march . tail_mon
+
+clean:
+		rm -f *.o
+opr:
+		make pr | opr
+pr:
+		@pr `pwd`/Makefile `pwd`/head_em.s
+		@pr -l33 `tail +1 LIST|sort`
diff --git a/mach/pdp/libsys/_exit.s b/mach/pdp/libsys/_exit.s
new file mode 100644
index 000000000..c98b1886d
--- /dev/null
+++ b/mach/pdp/libsys/_exit.s
@@ -0,0 +1,6 @@
+#include "sys.h"
+.globl	__exit
+
+__exit:
+	mov	2(sp),r0
+	sys	exit
diff --git a/mach/pdp/libsys/access.s b/mach/pdp/libsys/access.s
new file mode 100644
index 000000000..a355d0a6f
--- /dev/null
+++ b/mach/pdp/libsys/access.s
@@ -0,0 +1,17 @@
+#include "sys.h"
+.globl	_access
+.globl	_errno
+
+_access:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	clr	r0
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	access; ..; ..
diff --git a/mach/pdp/libsys/acct.s b/mach/pdp/libsys/acct.s
new file mode 100644
index 000000000..de948c457
--- /dev/null
+++ b/mach/pdp/libsys/acct.s
@@ -0,0 +1,17 @@
+#include "sys.h"
+.globl	_acct
+.globl	_errno
+
+_acct:
+	mov	2(sp),0f+2
+	sys	indir; 0f
+	bec	1f
+	mov	r0, _errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	acct; ..
diff --git a/mach/pdp/libsys/alarm.s b/mach/pdp/libsys/alarm.s
new file mode 100644
index 000000000..ef2de4e3a
--- /dev/null
+++ b/mach/pdp/libsys/alarm.s
@@ -0,0 +1,12 @@
+#include "sys.h"
+.globl	_alarm
+.globl	_errno
+
+_alarm:
+	mov	2(sp),r0
+	sys	alarm
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
diff --git a/mach/pdp/libsys/chdir.s b/mach/pdp/libsys/chdir.s
new file mode 100644
index 000000000..a184b79f0
--- /dev/null
+++ b/mach/pdp/libsys/chdir.s
@@ -0,0 +1,17 @@
+#include "sys.h"
+.globl	_chdir
+.globl	_errno
+
+_chdir:
+	mov	2(sp),0f+2
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	chdir; ..
diff --git a/mach/pdp/libsys/chmod.s b/mach/pdp/libsys/chmod.s
new file mode 100644
index 000000000..7cfaed48b
--- /dev/null
+++ b/mach/pdp/libsys/chmod.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_chmod
+.globl	_errno
+
+_chmod:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	chmod; ..; ..
diff --git a/mach/pdp/libsys/chown.s b/mach/pdp/libsys/chown.s
new file mode 100644
index 000000000..81377caae
--- /dev/null
+++ b/mach/pdp/libsys/chown.s
@@ -0,0 +1,19 @@
+#include "sys.h"
+.globl	_chown
+.globl	_errno
+
+_chown:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	mov	6(sp),0f+6
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	chown; ..; ..; ..
diff --git a/mach/pdp/libsys/chroot.s b/mach/pdp/libsys/chroot.s
new file mode 100644
index 000000000..7e77a121b
--- /dev/null
+++ b/mach/pdp/libsys/chroot.s
@@ -0,0 +1,17 @@
+#include "sys.h"
+.globl	_chroot
+.globl	_errno
+
+_chroot:
+	mov	2(sp),0f+2
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	chroot; ..
diff --git a/mach/pdp/libsys/cleanup.c b/mach/pdp/libsys/cleanup.c
new file mode 100644
index 000000000..07d507e3f
--- /dev/null
+++ b/mach/pdp/libsys/cleanup.c
@@ -0,0 +1,3 @@
+_cleanup()
+{
+}
diff --git a/mach/pdp/libsys/close.s b/mach/pdp/libsys/close.s
new file mode 100644
index 000000000..4c8e55fa0
--- /dev/null
+++ b/mach/pdp/libsys/close.s
@@ -0,0 +1,14 @@
+#include "sys.h"
+.globl	_close
+.globl	_errno
+
+_close:
+	mov	2(sp),r0
+	sys	close
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
diff --git a/mach/pdp/libsys/compmodule b/mach/pdp/libsys/compmodule
new file mode 100755
index 000000000..32b04832a
--- /dev/null
+++ b/mach/pdp/libsys/compmodule
@@ -0,0 +1,4 @@
+if pdp -O -c -I../../../h -I. $1 1>&2
+then echo `basename $1 $2`.o
+else exit 1
+fi
diff --git a/mach/pdp/libsys/creat.s b/mach/pdp/libsys/creat.s
new file mode 100644
index 000000000..32a74e5e7
--- /dev/null
+++ b/mach/pdp/libsys/creat.s
@@ -0,0 +1,16 @@
+#include "sys.h"
+.globl	_creat
+.globl	_errno
+
+_creat:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	creat; ..; ..
diff --git a/mach/pdp/libsys/dup.s b/mach/pdp/libsys/dup.s
new file mode 100644
index 000000000..12b9a49c3
--- /dev/null
+++ b/mach/pdp/libsys/dup.s
@@ -0,0 +1,20 @@
+#include "sys.h"
+.globl	_dup
+.globl	_dup2
+.globl	_errno
+
+_dup2:
+	mov	2(sp),r0
+	bis	$100,r0
+	br	1f
+
+_dup:
+	mov	2(sp),r0
+1:
+	mov	4(sp),r1
+	sys	dup
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
diff --git a/mach/pdp/libsys/errno.s b/mach/pdp/libsys/errno.s
new file mode 100644
index 000000000..9dbf81dfb
--- /dev/null
+++ b/mach/pdp/libsys/errno.s
@@ -0,0 +1,3 @@
+.globl _errno
+.bss
+_errno: .=.+2
diff --git a/mach/pdp/libsys/execl.s b/mach/pdp/libsys/execl.s
new file mode 100644
index 000000000..13607baee
--- /dev/null
+++ b/mach/pdp/libsys/execl.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_execl
+.globl	_environ
+.globl	_errno
+
+_execl:
+	mov	2(sp),0f+2
+	mov	sp,r0
+	add	$4,r0
+	mov	r0,0f+4
+	mov	_environ,0f+6
+	sys	indir; 0f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+.data
+0:
+	sys	exece; ..; ..; ..
diff --git a/mach/pdp/libsys/execle.s b/mach/pdp/libsys/execle.s
new file mode 100644
index 000000000..8e7cc1bcd
--- /dev/null
+++ b/mach/pdp/libsys/execle.s
@@ -0,0 +1,20 @@
+#include "sys.h"
+.globl	_execle
+.globl	_errno
+
+_execle:
+	mov	2(sp),0f+2
+	mov	sp,r0
+	add	$4,r0
+	mov	r0,0f+4
+1:
+	tst	(r0)+
+	bne	1b
+	mov	(r0),0f+6
+	sys	indir; 0f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+.data
+0:
+	sys	exece; ..; ..; ..
diff --git a/mach/pdp/libsys/execv.s b/mach/pdp/libsys/execv.s
new file mode 100644
index 000000000..f8de47e70
--- /dev/null
+++ b/mach/pdp/libsys/execv.s
@@ -0,0 +1,16 @@
+#include "sys.h"
+.globl	_execv,
+.globl	_environ
+.globl	_errno
+
+_execv:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	mov	_environ,0f+6
+	sys	indir; 0f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+.data
+0:
+	sys	exece; ..; ..; ..
diff --git a/mach/pdp/libsys/execve.s b/mach/pdp/libsys/execve.s
new file mode 100644
index 000000000..98292c45f
--- /dev/null
+++ b/mach/pdp/libsys/execve.s
@@ -0,0 +1,15 @@
+#include "sys.h"
+.globl	_execve
+.globl	_errno
+
+_execve:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	mov	6(sp),0f+6
+	sys	indir; 0f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+.data
+0:
+	sys	exece; ..; ..; ..
diff --git a/mach/pdp/libsys/exit.c b/mach/pdp/libsys/exit.c
new file mode 100644
index 000000000..afd54b3f7
--- /dev/null
+++ b/mach/pdp/libsys/exit.c
@@ -0,0 +1,5 @@
+exit(n)
+{
+	_cleanup();
+	_exit(n);
+}
diff --git a/mach/pdp/libsys/fetchi.s b/mach/pdp/libsys/fetchi.s
new file mode 100644
index 000000000..c9306739a
--- /dev/null
+++ b/mach/pdp/libsys/fetchi.s
@@ -0,0 +1,15 @@
+#include "sys.h"
+.globl	_fetchi
+.globl	_errno
+
+_fetchi:
+	mov	2(sp),r0
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	fetchi
diff --git a/mach/pdp/libsys/fork.s b/mach/pdp/libsys/fork.s
new file mode 100644
index 000000000..f549cfe98
--- /dev/null
+++ b/mach/pdp/libsys/fork.s
@@ -0,0 +1,15 @@
+#include "sys.h"
+.globl	_fork
+.globl	_errno
+
+_fork:
+	sys	fork
+	br	1f
+	bec	2f
+	mov	r0,_errno
+	mov	$-1,r0
+2:
+	rts	pc
+1:
+	clr	r0
+	rts	pc
diff --git a/mach/pdp/libsys/fperr.s b/mach/pdp/libsys/fperr.s
new file mode 100644
index 000000000..d0f204212
--- /dev/null
+++ b/mach/pdp/libsys/fperr.s
@@ -0,0 +1,20 @@
+#include "sys.h"
+.globl	_fperr
+.globl	_errno
+
+_fperr:
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	mov	r5,-(sp)
+	mov	4(sp),r5
+	mov	r0,(r5)+
+	mov	r1,(r5)
+	mov	(sp)+,r5
+	rts	pc
+.data
+0:
+	sys	fperr
diff --git a/mach/pdp/libsys/fstat.s b/mach/pdp/libsys/fstat.s
new file mode 100644
index 000000000..b1bff51fb
--- /dev/null
+++ b/mach/pdp/libsys/fstat.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_fstat
+.globl	_errno
+
+_fstat:
+	mov	2(sp),r0
+	mov	4(sp),0f+2
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	fstat; ..
diff --git a/mach/pdp/libsys/ftime.s b/mach/pdp/libsys/ftime.s
new file mode 100644
index 000000000..c29924dd5
--- /dev/null
+++ b/mach/pdp/libsys/ftime.s
@@ -0,0 +1,11 @@
+#include "sys.h"
+.globl	_ftime
+
+_ftime:
+	mov	2(sp),0f+2
+	sys	indir; 0f
+	rts	pc
+
+.data
+0:
+	sys	ftime; ..
diff --git a/mach/pdp/libsys/getgid.s b/mach/pdp/libsys/getgid.s
new file mode 100644
index 000000000..8faaf9fa6
--- /dev/null
+++ b/mach/pdp/libsys/getgid.s
@@ -0,0 +1,12 @@
+#include "sys.h"
+.globl	_getgid
+.globl	_getegid
+
+_getgid:
+	sys	getgid
+	rts	pc
+
+_getegid:
+	sys	getgid
+	mov	r1,r0
+	rts	pc
diff --git a/mach/pdp/libsys/getgrp.s b/mach/pdp/libsys/getgrp.s
new file mode 100644
index 000000000..d4c059eb6
--- /dev/null
+++ b/mach/pdp/libsys/getgrp.s
@@ -0,0 +1,17 @@
+#include "sys.h"
+.globl	_getgrp
+.globl	_errno
+
+_getgrp:
+	mov	2(sp),0f+2
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	getgrp; ..
diff --git a/mach/pdp/libsys/getpid.s b/mach/pdp/libsys/getpid.s
new file mode 100644
index 000000000..54aa094f4
--- /dev/null
+++ b/mach/pdp/libsys/getpid.s
@@ -0,0 +1,6 @@
+#include "sys.h"
+.globl	_getpid
+
+_getpid:
+	sys	getpid
+	rts	pc
diff --git a/mach/pdp/libsys/getppid.s b/mach/pdp/libsys/getppid.s
new file mode 100644
index 000000000..8af5c2b12
--- /dev/null
+++ b/mach/pdp/libsys/getppid.s
@@ -0,0 +1,7 @@
+#include "sys.h"
+.globl _getppid
+
+_getppid:
+	sys	getpid
+	mov	r1,r0
+	rts	pc
diff --git a/mach/pdp/libsys/getuid.s b/mach/pdp/libsys/getuid.s
new file mode 100644
index 000000000..2b8db794d
--- /dev/null
+++ b/mach/pdp/libsys/getuid.s
@@ -0,0 +1,12 @@
+#include "sys.h"
+.globl	_getuid
+.globl	_geteuid
+
+_getuid:
+	sys	getuid
+	rts	pc
+
+_geteuid:
+	sys	getuid
+	mov	r1,r0
+	rts	pc
diff --git a/mach/pdp/libsys/gldav.s b/mach/pdp/libsys/gldav.s
new file mode 100644
index 000000000..c6db2d135
--- /dev/null
+++ b/mach/pdp/libsys/gldav.s
@@ -0,0 +1,17 @@
+#include "sys.h"
+.globl	_gldav
+.globl	_errno
+
+_gldav:
+	mov	2(sp),r0
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	gldav
diff --git a/mach/pdp/libsys/gtty.c b/mach/pdp/libsys/gtty.c
new file mode 100644
index 000000000..7f42ea1fb
--- /dev/null
+++ b/mach/pdp/libsys/gtty.c
@@ -0,0 +1,7 @@
+#include <sgtty.h>
+int gtty(fildes,argp)
+	int fildes ;
+	struct sgttyb *argp ;
+{
+	return ioctl(fildes,TIOCGETP,argp) ;
+}
diff --git a/mach/pdp/libsys/ioctl.s b/mach/pdp/libsys/ioctl.s
new file mode 100644
index 000000000..95e2474ea
--- /dev/null
+++ b/mach/pdp/libsys/ioctl.s
@@ -0,0 +1,19 @@
+#include "sys.h"
+.globl	_ioctl
+.globl	_errno
+
+_ioctl:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	mov	6(sp),0f+6
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	ioctl; ..; ..; ..
diff --git a/mach/pdp/libsys/kill.s b/mach/pdp/libsys/kill.s
new file mode 100644
index 000000000..d96fbf696
--- /dev/null
+++ b/mach/pdp/libsys/kill.s
@@ -0,0 +1,19 @@
+#include "sys.h"
+.globl	_kill
+.globl	_errno
+
+_kill:
+	mov	2(sp),r0
+	mov	4(sp),0f+2
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+
+.data
+0:
+	sys	kill; ..
diff --git a/mach/pdp/libsys/killbkg.s b/mach/pdp/libsys/killbkg.s
new file mode 100644
index 000000000..edfcae276
--- /dev/null
+++ b/mach/pdp/libsys/killbkg.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_killbkg
+.globl	_errno
+
+_killbkg:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	killbkg; ..; ..
diff --git a/mach/pdp/libsys/killpg.s b/mach/pdp/libsys/killpg.s
new file mode 100644
index 000000000..99509668c
--- /dev/null
+++ b/mach/pdp/libsys/killpg.s
@@ -0,0 +1,19 @@
+#include "sys.h"
+.globl	_killpg
+.globl	_errno
+
+_killpg:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+
+.data
+0:
+	sys	killpg; ..; ..
diff --git a/mach/pdp/libsys/link.s b/mach/pdp/libsys/link.s
new file mode 100644
index 000000000..1a0e34899
--- /dev/null
+++ b/mach/pdp/libsys/link.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_link
+.globl	_errno
+
+_link:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	link; ..; ..
diff --git a/mach/pdp/libsys/lock.s b/mach/pdp/libsys/lock.s
new file mode 100644
index 000000000..fdd63e8e8
--- /dev/null
+++ b/mach/pdp/libsys/lock.s
@@ -0,0 +1,15 @@
+#include "sys.h"
+.globl	_lock
+.globl	_errno
+
+_lock:
+	mov	2(sp),0f+2
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	lock; ..
diff --git a/mach/pdp/libsys/login.s b/mach/pdp/libsys/login.s
new file mode 100644
index 000000000..d79d0d9fb
--- /dev/null
+++ b/mach/pdp/libsys/login.s
@@ -0,0 +1,19 @@
+#include "sys.h"
+.globl	_login
+.globl	_errno
+
+_login:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	mov	6(sp),0f+6
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	login; ..; ..; ..;
diff --git a/mach/pdp/libsys/lseek.s b/mach/pdp/libsys/lseek.s
new file mode 100644
index 000000000..c2c36b58b
--- /dev/null
+++ b/mach/pdp/libsys/lseek.s
@@ -0,0 +1,19 @@
+#include "sys.h"
+.globl	_lseek
+.globl	_errno
+
+_lseek:
+	mov	2(sp),r0
+	mov	4(sp),0f+2
+	mov	6(sp),0f+4
+	mov	10(sp),0f+6
+	sys	indir; 0f
+	bec	1f
+	mov	$-1,r1
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	lseek; ..; ..; ..
diff --git a/mach/pdp/libsys/lstat.s b/mach/pdp/libsys/lstat.s
new file mode 100644
index 000000000..722768048
--- /dev/null
+++ b/mach/pdp/libsys/lstat.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_lstat
+.globl	_errno
+
+_lstat:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	lstat; ..; ..
diff --git a/mach/pdp/libsys/mknod.s b/mach/pdp/libsys/mknod.s
new file mode 100644
index 000000000..be7dce3bd
--- /dev/null
+++ b/mach/pdp/libsys/mknod.s
@@ -0,0 +1,19 @@
+#include "sys.h"
+.globl	_mknod
+.globl	_errno
+
+_mknod:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	mov	6(sp),0f+6
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	mknod; ..; ..; ..
diff --git a/mach/pdp/libsys/mount.s b/mach/pdp/libsys/mount.s
new file mode 100644
index 000000000..31338e35b
--- /dev/null
+++ b/mach/pdp/libsys/mount.s
@@ -0,0 +1,19 @@
+#include "sys.h"
+.globl	_mount
+.globl	_errno
+
+_mount:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	mov	6(sp),0f+6
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	mount; ..; ..; ..
diff --git a/mach/pdp/libsys/mpxcall.s b/mach/pdp/libsys/mpxcall.s
new file mode 100644
index 000000000..ab1a85c3a
--- /dev/null
+++ b/mach/pdp/libsys/mpxcall.s
@@ -0,0 +1,17 @@
+#include "sys.h"
+.globl	_mpxcall
+.globl	_errno
+
+_mpxcall:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	mpx; ..; ..
+
diff --git a/mach/pdp/libsys/nice.s b/mach/pdp/libsys/nice.s
new file mode 100644
index 000000000..2a0b033a1
--- /dev/null
+++ b/mach/pdp/libsys/nice.s
@@ -0,0 +1,14 @@
+#include "sys.h"
+.globl	_nice
+.globl	_errno
+
+_nice:
+	mov	2(sp),r0
+	sys	nice
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
diff --git a/mach/pdp/libsys/nostk.s b/mach/pdp/libsys/nostk.s
new file mode 100644
index 000000000..4421c72a9
--- /dev/null
+++ b/mach/pdp/libsys/nostk.s
@@ -0,0 +1,9 @@
+#include "sys.h"
+.globl _nostk
+
+_nostk:
+	sys	local; 0f
+	rts	pc
+.data:
+0:
+	sys	nostk
diff --git a/mach/pdp/libsys/open.s b/mach/pdp/libsys/open.s
new file mode 100644
index 000000000..6e7d8c907
--- /dev/null
+++ b/mach/pdp/libsys/open.s
@@ -0,0 +1,16 @@
+#include "sys.h"
+.globl	_open
+.globl	_errno
+
+_open:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	open; ..; ..
diff --git a/mach/pdp/libsys/pause.s b/mach/pdp/libsys/pause.s
new file mode 100644
index 000000000..da11a6265
--- /dev/null
+++ b/mach/pdp/libsys/pause.s
@@ -0,0 +1,6 @@
+#include "sys.h"
+.globl	_pause
+
+_pause:
+	sys	pause
+	rts	pc
diff --git a/mach/pdp/libsys/phys.s b/mach/pdp/libsys/phys.s
new file mode 100644
index 000000000..04740cda4
--- /dev/null
+++ b/mach/pdp/libsys/phys.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_phys
+.globl	_errno
+
+_phys:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	mov	6(sp),0f+6
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+
+.data
+0:
+	sys	phys; ..; ..; ..
diff --git a/mach/pdp/libsys/pipe.s b/mach/pdp/libsys/pipe.s
new file mode 100644
index 000000000..be017ab72
--- /dev/null
+++ b/mach/pdp/libsys/pipe.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_pipe
+.globl	_errno
+
+_pipe:
+	sys	pipe
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	mov	r5,-(sp)
+	mov	4(sp),r5
+	mov	r0,(r5)+
+	mov	r1,(r5)
+	mov	(sp)+,r5
+	clr	r0
+	rts	pc
diff --git a/mach/pdp/libsys/profil.s b/mach/pdp/libsys/profil.s
new file mode 100644
index 000000000..28864242d
--- /dev/null
+++ b/mach/pdp/libsys/profil.s
@@ -0,0 +1,13 @@
+#include "sys.h"
+.globl	_profil
+
+_profil:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	mov	6(sp),0f+6
+	mov	10(sp),0f+10
+	sys	indir; 0f
+	rts	pc
+.data
+0:
+	sys	profil; ..; ..; ..; ..
diff --git a/mach/pdp/libsys/ptrace.s b/mach/pdp/libsys/ptrace.s
new file mode 100644
index 000000000..1dd598a4c
--- /dev/null
+++ b/mach/pdp/libsys/ptrace.s
@@ -0,0 +1,20 @@
+#include "sys.h"
+.globl	_ptrace
+.globl	_errno
+
+_ptrace:
+	mov	2(sp),0f+6
+	mov	4(sp),0f+2
+	mov	6(sp),0f+4
+	mov	10(sp),r0
+	clr	_errno
+	sys	indir; 9f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+
+.data
+0:
+	sys	ptrace; ..; ..; ..
diff --git a/mach/pdp/libsys/qfstat.s b/mach/pdp/libsys/qfstat.s
new file mode 100644
index 000000000..affcb508d
--- /dev/null
+++ b/mach/pdp/libsys/qfstat.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_qfstat
+.globl	_errno
+
+_qfstat:
+	mov	2(sp),r0
+	mov	4(sp),0f+2
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	qfstat; ..
diff --git a/mach/pdp/libsys/qstat.s b/mach/pdp/libsys/qstat.s
new file mode 100644
index 000000000..d5143f3bb
--- /dev/null
+++ b/mach/pdp/libsys/qstat.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_qstat
+.globl	_errno
+
+_qstat:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	qstat; ..; ..
diff --git a/mach/pdp/libsys/quota.s b/mach/pdp/libsys/quota.s
new file mode 100644
index 000000000..89ef1095c
--- /dev/null
+++ b/mach/pdp/libsys/quota.s
@@ -0,0 +1,21 @@
+#include "sys.h"
+.globl	_quota
+.globl	_errno
+
+_quota:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	mov	6(sp),0f+6
+	mov	10(sp),0f+10
+	mov	12(sp),0f+12
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	quota; ..; ..; ..; ..; ..
diff --git a/mach/pdp/libsys/read.s b/mach/pdp/libsys/read.s
new file mode 100644
index 000000000..f89a36e00
--- /dev/null
+++ b/mach/pdp/libsys/read.s
@@ -0,0 +1,17 @@
+#include "sys.h"
+.globl	_read
+.globl	_errno
+
+_read:
+	mov	2(sp),r0
+	mov	4(sp),0f+2
+	mov	6(sp),0f+4
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	read; ..; ..
diff --git a/mach/pdp/libsys/readlink.s b/mach/pdp/libsys/readlink.s
new file mode 100644
index 000000000..72c2f9dc1
--- /dev/null
+++ b/mach/pdp/libsys/readlink.s
@@ -0,0 +1,17 @@
+#include "sys.h"
+.globl  _readlink
+.globl	_errno
+
+_readlink:
+	mov	2(sp),r0
+	mov	4(sp),0f+2
+	mov	6(sp),0f+4
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	readlink; ..; ..
diff --git a/mach/pdp/libsys/reboot.s b/mach/pdp/libsys/reboot.s
new file mode 100644
index 000000000..bef5ab287
--- /dev/null
+++ b/mach/pdp/libsys/reboot.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_reboot
+.globl	_errno
+
+_reboot:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	reboot; ..; ..
diff --git a/mach/pdp/libsys/renice.s b/mach/pdp/libsys/renice.s
new file mode 100644
index 000000000..a2e959567
--- /dev/null
+++ b/mach/pdp/libsys/renice.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_renice
+.globl	_errno
+
+_renice:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	renice; ..; ..
diff --git a/mach/pdp/libsys/rtp.s b/mach/pdp/libsys/rtp.s
new file mode 100644
index 000000000..5fe3dc29a
--- /dev/null
+++ b/mach/pdp/libsys/rtp.s
@@ -0,0 +1,14 @@
+#include "sys.h"
+.globl	_rtp
+.globl	_errno
+
+_rtp:
+	mov	2(sp),r0
+	sys	rtp
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
diff --git a/mach/pdp/libsys/sbrk.s b/mach/pdp/libsys/sbrk.s
new file mode 100644
index 000000000..c4b764f72
--- /dev/null
+++ b/mach/pdp/libsys/sbrk.s
@@ -0,0 +1,38 @@
+#include "sys.h"
+.globl	_sbrk
+.globl	_brk
+.globl	_end
+.globl	_errno
+
+_sbrk:
+	mov	2(sp),0f+2
+	beq	1f
+	add	xxx,0f+2
+	bcs	2f
+	sys	indir; 0f
+	bec	1f
+2:
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	mov	xxx,r0
+	add	2(sp),xxx
+	rts	pc
+
+_brk:
+	mov	2(sp),0f+2
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	mov	2(sp),xxx
+	clr	r0
+	rts	pc
+
+.data
+0:
+	sys	break; ..
+xxx:	_end
diff --git a/mach/pdp/libsys/setgid.s b/mach/pdp/libsys/setgid.s
new file mode 100644
index 000000000..5538f1c6a
--- /dev/null
+++ b/mach/pdp/libsys/setgid.s
@@ -0,0 +1,14 @@
+#include "sys.h"
+.globl	_setgid
+.globl	_errno
+
+_setgid:
+	mov	2(sp),r0
+	sys	setgid
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
diff --git a/mach/pdp/libsys/setgrp.s b/mach/pdp/libsys/setgrp.s
new file mode 100644
index 000000000..987ba1acf
--- /dev/null
+++ b/mach/pdp/libsys/setgrp.s
@@ -0,0 +1,17 @@
+#include "sys.h"
+.globl	_setgrp
+.globl	_errno
+
+_setgrp:
+	mov	2(sp),0f+2
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	setgrp; ..
diff --git a/mach/pdp/libsys/setuid.s b/mach/pdp/libsys/setuid.s
new file mode 100644
index 000000000..7c7fb4f9a
--- /dev/null
+++ b/mach/pdp/libsys/setuid.s
@@ -0,0 +1,14 @@
+#include "sys.h"
+.globl	_setuid
+.globl	_errno
+
+_setuid:
+	mov	2(sp),r0
+	sys	setuid
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
diff --git a/mach/pdp/libsys/signal.s b/mach/pdp/libsys/signal.s
new file mode 100644
index 000000000..86633093e
--- /dev/null
+++ b/mach/pdp/libsys/signal.s
@@ -0,0 +1,88 @@
+#include <errno.h>
+#include "sys.h"
+rtt	= 6
+.globl	_signal
+.globl	_errno
+
+NSIGNALS = 0
+tvect:
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+	jsr	r0,1f; NSIGNALS=NSIGNALS+1
+
+1:
+	mov	r1,-(sp)
+	mov	r2,-(sp)
+	mov	r3,-(sp)
+	mov	r4,-(sp)
+	sub	$tvect+4,r0
+	asr	r0
+	mov	r0,-(sp)
+	asr	(sp)
+	jsr	pc,*dvect(r0)
+	tst	(sp)+
+	mov	(sp)+,r4
+	mov	(sp)+,r3
+	mov	(sp)+,r2
+	mov	(sp)+,r1
+	mov	(sp)+,r0
+	rtt
+
+_signal:
+	mov	r5,-(sp)
+	mov	sp,r5
+	mov	4(r5),r1
+	cmp	r1,$NSIGNALS
+	bhis	2f
+	mov	6(r5),r0
+	mov	r1,0f+2
+	asl	r1
+	mov	dvect(r1),-(sp)
+	mov	r0,dvect(r1)
+	mov	r0,0f+4
+	beq	1f
+	bit	$1,r0
+	bne	1f
+	asl	r1
+	add	$tvect,r1
+	mov	r1,0f+4
+1:
+	sys	indir; 0f
+	bes	3f
+	bit	$1,r0
+	beq	1f
+	mov	r0,(sp)
+1:
+	mov	(sp)+,r0
+	mov	(sp)+,r5
+	rts	pc
+2:
+	mov	$EINVAL.,r0
+3:
+	mov	r0,_errno
+	mov	$-1,r0
+	mov	(sp)+,r5
+	rts	pc
+
+.data
+0:
+	sys	signal; ..; ..
+.bss
+dvect:	.=.+[NSIGNALS*2]
diff --git a/mach/pdp/libsys/stat.s b/mach/pdp/libsys/stat.s
new file mode 100644
index 000000000..87cdc05d6
--- /dev/null
+++ b/mach/pdp/libsys/stat.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_stat
+.globl	_errno
+
+_stat:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	stat; ..; ..
diff --git a/mach/pdp/libsys/stime.s b/mach/pdp/libsys/stime.s
new file mode 100644
index 000000000..3d0172b24
--- /dev/null
+++ b/mach/pdp/libsys/stime.s
@@ -0,0 +1,16 @@
+#include "sys.h"
+.globl	_stime
+.globl	_errno
+
+_stime:
+	mov	2(sp),r1
+	mov	(r1)+,r0
+	mov	(r1),r1
+	sys	stime
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
diff --git a/mach/pdp/libsys/stty.c b/mach/pdp/libsys/stty.c
new file mode 100644
index 000000000..222310cc3
--- /dev/null
+++ b/mach/pdp/libsys/stty.c
@@ -0,0 +1,7 @@
+#include <sgtty.h>
+int stty(fildes,argp)
+	int fildes ;
+	struct sgttyb *argp ;
+{
+	return ioctl(fildes,TIOCSETP,argp) ;
+}
diff --git a/mach/pdp/libsys/submit.s b/mach/pdp/libsys/submit.s
new file mode 100644
index 000000000..089d6e785
--- /dev/null
+++ b/mach/pdp/libsys/submit.s
@@ -0,0 +1,15 @@
+#include "sys.h"
+.globl	_submit
+.globl	_errno
+
+_submit:
+	mov	2(sp),r0
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	submit
diff --git a/mach/pdp/libsys/symlink.s b/mach/pdp/libsys/symlink.s
new file mode 100644
index 000000000..0cce298f0
--- /dev/null
+++ b/mach/pdp/libsys/symlink.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl  _symlink
+.globl	_errno
+
+_symlink:
+	mov     2(sp),r0
+	mov     4(sp),0f+2
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	symlink; ..
diff --git a/mach/pdp/libsys/sync.s b/mach/pdp/libsys/sync.s
new file mode 100644
index 000000000..0ef9ba91a
--- /dev/null
+++ b/mach/pdp/libsys/sync.s
@@ -0,0 +1,6 @@
+#include "sys.h"
+.globl	_sync
+
+_sync:
+	sys	sync
+	rts	pc
diff --git a/mach/pdp/libsys/sys.h b/mach/pdp/libsys/sys.h
new file mode 100644
index 000000000..16898d5f0
--- /dev/null
+++ b/mach/pdp/libsys/sys.h
@@ -0,0 +1,97 @@
+#define	indir	 0.
+#define	exit	 1.
+#define	fork	 2.
+#define	read	 3.
+#define	write	 4.
+#define	open	 5.
+#define	close	 6.
+#define	wait	 7.
+#define	creat	 8.
+#define	link	 9.
+#define	unlink	 10.
+#define	exec	 11.
+#define	chdir	 12.
+#define	time	 13.
+#define	mknod	 14.
+#define	chmod	 15.
+#define	chown	 16.
+#define	break	 17.
+#define	stat	 18.
+#define	lseek	 19.
+#define	getpid	 20.
+#define	mount	 21.
+#define	umount	 22.
+#define	setuid	 23.
+#define	getuid	 24.
+#define	stime	 25.
+#define	ptrace	 26.
+#define	alarm	 27.
+#define	fstat	 28.
+#define	pause	 29.
+#define	utime	 30.
+#define	smdate	 30.
+#define	stty	 31.
+#define	gtty	 32.
+#define	access	 33.
+#define	nice	 34.
+#define	sleep	 35.
+#define	ftime	 35.
+#define	sync	 36.
+#define	kill	 37.
+#define	csw	 38.
+#define	setpgrp	 39.
+#define	dup	 41.
+#define	pipe	 42.
+#define	times	 43.
+#define	profil	 44.
+#define	getgrp	 45.
+#define	setgid	 46.
+#define	getgid	 47.
+#define	signal	 48.
+#define	rtp	 49.
+#define	setgrp	 50.
+#define	acct	 51.
+#define	phys	 52.
+#define	lock	 53.
+#define	ioctl	 54.
+#define	reboot	 55.
+#define	mpx	 56.
+#define	vfork	 57.
+#define	setinf	 59.
+#define	exece	 59.
+#define	local	 58.
+#define	umask	 60.
+#define	getinf	 60.
+#define	chroot	 61.
+
+#define	login	  1.
+#define	lstat	  2.
+#define	submit	  3.
+#define	nostk	  4.
+#define	killbkg	  5.
+#define	killpg	  6.
+#define	renice	  7.
+#define	fetchi	  8.
+#define	ucall	  9.
+#define	quota	 10.
+#define	qfstat	 11.
+#define	qstat	 12.
+#define	gldav	 14.
+#define	fperr	 15.
+#define	vhangup	 16.
+#define	symlink	 29.
+#define	readlink	 30.
+
+#define	select	 18.
+#define	gethost	 19.
+#define	sethost	 20.
+#define	socket	 21.
+#define	connect	 22.
+#define	accept	 23.
+#define	send	 24.
+#define	receive	 25.
+#define	socketa	 26.
+#define	setreuid	 27.
+#define	setregid	 28.
+#define	gethstid	 31.
+#define	sethstid	 32.
diff --git a/mach/pdp/libsys/time.s b/mach/pdp/libsys/time.s
new file mode 100644
index 000000000..c545ff8c5
--- /dev/null
+++ b/mach/pdp/libsys/time.s
@@ -0,0 +1,13 @@
+#include "sys.h"
+.globl	_time
+
+_time:
+	sys	time
+	mov	r5,-(sp)
+	mov	4(sp),r5
+	beq	1f
+	mov	r0,(r5)+
+	mov	r1,(r5)+
+1:
+	mov	(sp)+,r5
+	rts	pc
diff --git a/mach/pdp/libsys/times.s b/mach/pdp/libsys/times.s
new file mode 100644
index 000000000..4b928d7d0
--- /dev/null
+++ b/mach/pdp/libsys/times.s
@@ -0,0 +1,10 @@
+#include "sys.h"
+.globl	_times
+
+_times:
+	mov	2(sp),0f+2
+	sys	indir; 0f
+	rts	pc
+.data
+0:
+	sys	times; ..
diff --git a/mach/pdp/libsys/ucall.s b/mach/pdp/libsys/ucall.s
new file mode 100644
index 000000000..091506314
--- /dev/null
+++ b/mach/pdp/libsys/ucall.s
@@ -0,0 +1,13 @@
+#include "sys.h"
+.globl	_ucall
+
+_ucall:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	mov	6(sp),0f+6
+	mov	10(sp),0f+10
+	sys	local; 0f
+	rts	pc
+.data
+0:
+	sys	ucall; ..; ..; ..; ..
diff --git a/mach/pdp/libsys/umask.s b/mach/pdp/libsys/umask.s
new file mode 100644
index 000000000..317d02a85
--- /dev/null
+++ b/mach/pdp/libsys/umask.s
@@ -0,0 +1,15 @@
+#include "sys.h"
+.globl	_umask
+.globl	_errno
+
+_umask:
+	mov	2(sp),0f+2
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	umask; ..
diff --git a/mach/pdp/libsys/umount.s b/mach/pdp/libsys/umount.s
new file mode 100644
index 000000000..ed78e0843
--- /dev/null
+++ b/mach/pdp/libsys/umount.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_umount
+.globl	_errno
+
+_umount:
+	mov	2(sp),0f+2
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+
+.data
+0:
+	sys	umount; ..
diff --git a/mach/pdp/libsys/unlink.s b/mach/pdp/libsys/unlink.s
new file mode 100644
index 000000000..699ca90e9
--- /dev/null
+++ b/mach/pdp/libsys/unlink.s
@@ -0,0 +1,17 @@
+#include "sys.h"
+.globl	_unlink
+.globl	_errno
+
+_unlink:
+	mov	2(sp),0f+2
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	unlink; ..
diff --git a/mach/pdp/libsys/utime.s b/mach/pdp/libsys/utime.s
new file mode 100644
index 000000000..6f4c6a638
--- /dev/null
+++ b/mach/pdp/libsys/utime.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_utime
+.globl	_errno
+
+_utime:
+	mov	2(sp),0f+2
+	mov	4(sp),0f+4
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	clr	r0
+	rts	pc
+.data
+0:
+	sys	utime; ..; ..
diff --git a/mach/pdp/libsys/vfork.s b/mach/pdp/libsys/vfork.s
new file mode 100644
index 000000000..dca86e854
--- /dev/null
+++ b/mach/pdp/libsys/vfork.s
@@ -0,0 +1,18 @@
+#include "sys.h"
+.globl	_vfork
+.globl	_errno
+
+_vfork:
+	mov	(sp)+,r1
+	sys	vfork
+	br	1f
+	bec	2f
+3:	mov	r0,_errno
+	mov	$-1,r0
+	jmp	(r1)
+
+1:			/ child, or vfork systemcall does not exist
+	bes	3b
+	clr	r0
+2:
+	jmp	(r1)
diff --git a/mach/pdp/libsys/vhangup.s b/mach/pdp/libsys/vhangup.s
new file mode 100644
index 000000000..f7cd02561
--- /dev/null
+++ b/mach/pdp/libsys/vhangup.s
@@ -0,0 +1,14 @@
+#include "sys.h"
+.globl	_vhangup
+.globl	_errno
+
+_vhangup:
+	sys	local; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	vhangup
diff --git a/mach/pdp/libsys/wait.s b/mach/pdp/libsys/wait.s
new file mode 100644
index 000000000..cc335a3f5
--- /dev/null
+++ b/mach/pdp/libsys/wait.s
@@ -0,0 +1,16 @@
+#include "sys.h"
+.globl	_wait
+.globl	_errno
+
+_wait:
+	sys	wait
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+	rts	pc
+1:
+	tst	2(sp)
+	beq	1f
+	mov	r1,*2(sp)
+1:
+	rts	pc
diff --git a/mach/pdp/libsys/write.s b/mach/pdp/libsys/write.s
new file mode 100644
index 000000000..38c0f5e01
--- /dev/null
+++ b/mach/pdp/libsys/write.s
@@ -0,0 +1,17 @@
+#include "sys.h"
+.globl	_write
+.globl	_errno
+
+_write:
+	mov	2(sp),r0
+	mov	4(sp),0f+2
+	mov	6(sp),0f+4
+	sys	indir; 0f
+	bec	1f
+	mov	r0,_errno
+	mov	$-1,r0
+1:
+	rts	pc
+.data
+0:
+	sys	write; ..; ..