Initial revision

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

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`

mach/pdp/libsys/_exit.s

@@ -0,0 +1,6 @@
+#include "sys.h"
+.globl	__exit
+
+__exit:
+	mov	2(sp),r0
+	sys	exit

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; ..; ..

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; ..

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

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; ..

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; ..; ..

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; ..; ..; ..

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; ..

mach/pdp/libsys/cleanup.c

@@ -0,0 +1,3 @@
+_cleanup()
+{
+}

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

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

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; ..; ..

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

mach/pdp/libsys/errno.s

@@ -0,0 +1,3 @@
+.globl _errno
+.bss
+_errno: .=.+2

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; ..; ..; ..

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; ..; ..; ..

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; ..; ..; ..

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; ..; ..; ..

mach/pdp/libsys/exit.c

@@ -0,0 +1,5 @@
+exit(n)
+{
+	_cleanup();
+	_exit(n);
+}

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

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

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

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; ..

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; ..

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

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; ..

mach/pdp/libsys/getpid.s

@@ -0,0 +1,6 @@
+#include "sys.h"
+.globl	_getpid
+
+_getpid:
+	sys	getpid
+	rts	pc

mach/pdp/libsys/getppid.s

@@ -0,0 +1,7 @@
+#include "sys.h"
+.globl _getppid
+
+_getppid:
+	sys	getpid
+	mov	r1,r0
+	rts	pc

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

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

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) ;
+}

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; ..; ..; ..

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; ..

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; ..; ..

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; ..; ..

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; ..; ..

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; ..

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; ..; ..; ..;

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; ..; ..; ..

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; ..; ..

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; ..; ..; ..

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; ..; ..; ..

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; ..; ..
+

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

mach/pdp/libsys/nostk.s

@@ -0,0 +1,9 @@
+#include "sys.h"
+.globl _nostk
+
+_nostk:
+	sys	local; 0f
+	rts	pc
+.data:
+0:
+	sys	nostk

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; ..; ..

mach/pdp/libsys/pause.s

@@ -0,0 +1,6 @@
+#include "sys.h"
+.globl	_pause
+
+_pause:
+	sys	pause
+	rts	pc

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; ..; ..; ..

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

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; ..; ..; ..; ..

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; ..; ..; ..

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; ..

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; ..; ..

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; ..; ..; ..; ..; ..

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; ..; ..

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; ..; ..

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; ..; ..

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; ..; ..

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

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

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

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; ..

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

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]

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; ..; ..

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

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) ;
+}

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

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; ..

mach/pdp/libsys/sync.s

@@ -0,0 +1,6 @@
+#include "sys.h"
+.globl	_sync
+
+_sync:
+	sys	sync
+	rts	pc

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.

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

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; ..

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; ..; ..; ..; ..

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; ..

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; ..

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; ..

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; ..; ..

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)

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

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

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; ..; ..