diff --git a/mach/pdp/libsys/Makefile b/mach/pdp/libsys/Makefile
index 10311ee73..7e194f038 100644
--- a/mach/pdp/libsys/Makefile
+++ b/mach/pdp/libsys/Makefile
@@ -10,7 +10,7 @@ cmp:            all
 		-../../compare libmon_o.a tail_mon
 
 libmon_o.a:	libmon_s.a
-		ASAR=ar ; export ASAR ;\
+		ASAR=aal ; export ASAR ;\
 		march . libmon_o.a
 
 clean:
diff --git a/mach/pdp/libsys/_exit.s b/mach/pdp/libsys/_exit.s
index c98b1886d..c4854b074 100644
--- a/mach/pdp/libsys/_exit.s
+++ b/mach/pdp/libsys/_exit.s
@@ -1,5 +1,5 @@
 #include "sys.h"
-.globl	__exit
+.define	__exit
 
 __exit:
 	mov	2(sp),r0
diff --git a/mach/pdp/libsys/access.s b/mach/pdp/libsys/access.s
index a355d0a6f..964679498 100644
--- a/mach/pdp/libsys/access.s
+++ b/mach/pdp/libsys/access.s
@@ -1,17 +1,18 @@
 #include "sys.h"
-.globl	_access
-.globl	_errno
+.define	_access
+.extern	_errno
 
 _access:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
 	clr	r0
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
-	sys	access; ..; ..
+	sys	access
+	.data2	0, 0
diff --git a/mach/pdp/libsys/acct.s b/mach/pdp/libsys/acct.s
index de948c457..6672eebde 100644
--- a/mach/pdp/libsys/acct.s
+++ b/mach/pdp/libsys/acct.s
@@ -1,17 +1,18 @@
 #include "sys.h"
-.globl	_acct
-.globl	_errno
+.define	_acct
+.extern	_errno
 
 _acct:
 	mov	2(sp),0f+2
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0, _errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	acct; ..
+	sys	acct
+	.data2	0
diff --git a/mach/pdp/libsys/alarm.s b/mach/pdp/libsys/alarm.s
index ef2de4e3a..b63ecbbaa 100644
--- a/mach/pdp/libsys/alarm.s
+++ b/mach/pdp/libsys/alarm.s
@@ -1,11 +1,11 @@
 #include "sys.h"
-.globl	_alarm
-.globl	_errno
+.define	_alarm
+.extern	_errno
 
 _alarm:
 	mov	2(sp),r0
 	sys	alarm
-	bec	1f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
diff --git a/mach/pdp/libsys/chdir.s b/mach/pdp/libsys/chdir.s
index a184b79f0..5c38ce2ad 100644
--- a/mach/pdp/libsys/chdir.s
+++ b/mach/pdp/libsys/chdir.s
@@ -1,17 +1,18 @@
 #include "sys.h"
-.globl	_chdir
-.globl	_errno
+.define	_chdir
+.extern	_errno
 
 _chdir:
 	mov	2(sp),0f+2
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	chdir; ..
+	sys	chdir
+	.data2	0
diff --git a/mach/pdp/libsys/chmod.s b/mach/pdp/libsys/chmod.s
index 7cfaed48b..0fc9e157a 100644
--- a/mach/pdp/libsys/chmod.s
+++ b/mach/pdp/libsys/chmod.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl	_chmod
-.globl	_errno
+.define	_chmod
+.extern	_errno
 
 _chmod:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	chmod; ..; ..
+	sys	chmod
+	.data2	0, 0
diff --git a/mach/pdp/libsys/chown.s b/mach/pdp/libsys/chown.s
index 81377caae..5845b29a6 100644
--- a/mach/pdp/libsys/chown.s
+++ b/mach/pdp/libsys/chown.s
@@ -1,19 +1,20 @@
 #include "sys.h"
-.globl	_chown
-.globl	_errno
+.define	_chown
+.extern	_errno
 
 _chown:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
 	mov	6(sp),0f+6
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	chown; ..; ..; ..
+	sys	chown
+	.data2	0, 0, 0
diff --git a/mach/pdp/libsys/chroot.s b/mach/pdp/libsys/chroot.s
index 7e77a121b..227d44404 100644
--- a/mach/pdp/libsys/chroot.s
+++ b/mach/pdp/libsys/chroot.s
@@ -1,17 +1,18 @@
 #include "sys.h"
-.globl	_chroot
-.globl	_errno
+.define	_chroot
+.extern	_errno
 
 _chroot:
 	mov	2(sp),0f+2
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	chroot; ..
+	sys	chroot
+	.data2	0
diff --git a/mach/pdp/libsys/close.s b/mach/pdp/libsys/close.s
index 4c8e55fa0..d69561abd 100644
--- a/mach/pdp/libsys/close.s
+++ b/mach/pdp/libsys/close.s
@@ -1,11 +1,11 @@
 #include "sys.h"
-.globl	_close
-.globl	_errno
+.define	_close
+.extern	_errno
 
 _close:
 	mov	2(sp),r0
 	sys	close
-	bec	1f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
diff --git a/mach/pdp/libsys/compmodule b/mach/pdp/libsys/compmodule
index ed9205478..32b04832a 100755
--- a/mach/pdp/libsys/compmodule
+++ b/mach/pdp/libsys/compmodule
@@ -1,4 +1,4 @@
-if pdp -O -P -c -I../../../h -I. $1 1>&2
+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
index 32a74e5e7..d580fd6a9 100644
--- a/mach/pdp/libsys/creat.s
+++ b/mach/pdp/libsys/creat.s
@@ -1,16 +1,17 @@
 #include "sys.h"
-.globl	_creat
-.globl	_errno
+.define	_creat
+.extern	_errno
 
 _creat:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
-	sys	creat; ..; ..
+	sys	creat
+	.data2	0, 0
diff --git a/mach/pdp/libsys/dup.s b/mach/pdp/libsys/dup.s
index 12b9a49c3..f95f2ee4e 100644
--- a/mach/pdp/libsys/dup.s
+++ b/mach/pdp/libsys/dup.s
@@ -1,7 +1,7 @@
 #include "sys.h"
-.globl	_dup
-.globl	_dup2
-.globl	_errno
+.define	_dup
+.define	_dup2
+.extern	_errno
 
 _dup2:
 	mov	2(sp),r0
@@ -13,7 +13,7 @@ _dup:
 1:
 	mov	4(sp),r1
 	sys	dup
-	bec	1f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
diff --git a/mach/pdp/libsys/errno.s b/mach/pdp/libsys/errno.s
index 9dbf81dfb..d9817696c 100644
--- a/mach/pdp/libsys/errno.s
+++ b/mach/pdp/libsys/errno.s
@@ -1,3 +1,4 @@
-.globl _errno
-.bss
-_errno: .=.+2
+.sect .text ; .sect .rom; .sect .data; .sect .bss
+.define _errno
+.sect .bss
+_errno: .space 2
diff --git a/mach/pdp/libsys/execl.s b/mach/pdp/libsys/execl.s
index 13607baee..6c96c786d 100644
--- a/mach/pdp/libsys/execl.s
+++ b/mach/pdp/libsys/execl.s
@@ -1,7 +1,7 @@
 #include "sys.h"
-.globl	_execl
-.globl	_environ
-.globl	_errno
+.define	_execl
+.extern	_environ
+.extern	_errno
 
 _execl:
 	mov	2(sp),0f+2
@@ -9,10 +9,11 @@ _execl:
 	add	$4,r0
 	mov	r0,0f+4
 	mov	_environ,0f+6
-	sys	indir; 0f
+	sys	indir; .data2 0f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	exece; ..; ..; ..
+	sys	exece
+	.data2	0, 0, 0
diff --git a/mach/pdp/libsys/execle.s b/mach/pdp/libsys/execle.s
index 8e7cc1bcd..e675dff53 100644
--- a/mach/pdp/libsys/execle.s
+++ b/mach/pdp/libsys/execle.s
@@ -1,6 +1,6 @@
 #include "sys.h"
-.globl	_execle
-.globl	_errno
+.define	_execle
+.extern	_errno
 
 _execle:
 	mov	2(sp),0f+2
@@ -11,10 +11,11 @@ _execle:
 	tst	(r0)+
 	bne	1b
 	mov	(r0),0f+6
-	sys	indir; 0f
+	sys	indir; .data2 0f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	exece; ..; ..; ..
+	sys	exece
+	.data2	0, 0, 0
diff --git a/mach/pdp/libsys/execv.s b/mach/pdp/libsys/execv.s
index f8de47e70..706f52bf4 100644
--- a/mach/pdp/libsys/execv.s
+++ b/mach/pdp/libsys/execv.s
@@ -1,16 +1,17 @@
 #include "sys.h"
-.globl	_execv,
-.globl	_environ
-.globl	_errno
+.define	_execv
+.extern	_environ
+.extern	_errno
 
 _execv:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
 	mov	_environ,0f+6
-	sys	indir; 0f
+	sys	indir; .data2 0f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	exece; ..; ..; ..
+	sys	exece
+	.data2	0, 0, 0
diff --git a/mach/pdp/libsys/execve.s b/mach/pdp/libsys/execve.s
index 98292c45f..feef1deb2 100644
--- a/mach/pdp/libsys/execve.s
+++ b/mach/pdp/libsys/execve.s
@@ -1,15 +1,16 @@
 #include "sys.h"
-.globl	_execve
-.globl	_errno
+.define	_execve
+.extern	_errno
 
 _execve:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
 	mov	6(sp),0f+6
-	sys	indir; 0f
+	sys	indir; .data2 0f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	exece; ..; ..; ..
+	sys	exece
+	.data2	0, 0, 0
diff --git a/mach/pdp/libsys/fetchi.s b/mach/pdp/libsys/fetchi.s
index c9306739a..1da6984f8 100644
--- a/mach/pdp/libsys/fetchi.s
+++ b/mach/pdp/libsys/fetchi.s
@@ -1,15 +1,15 @@
 #include "sys.h"
-.globl	_fetchi
-.globl	_errno
+.define	_fetchi
+.extern	_errno
 
 _fetchi:
 	mov	2(sp),r0
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
 	sys	fetchi
diff --git a/mach/pdp/libsys/fork.s b/mach/pdp/libsys/fork.s
index f549cfe98..57f98b563 100644
--- a/mach/pdp/libsys/fork.s
+++ b/mach/pdp/libsys/fork.s
@@ -1,11 +1,11 @@
 #include "sys.h"
-.globl	_fork
-.globl	_errno
+.define	_fork
+.extern	_errno
 
 _fork:
 	sys	fork
 	br	1f
-	bec	2f
+	bcc	2f
 	mov	r0,_errno
 	mov	$-1,r0
 2:
diff --git a/mach/pdp/libsys/fperr.s b/mach/pdp/libsys/fperr.s
index d0f204212..35f5ea6c6 100644
--- a/mach/pdp/libsys/fperr.s
+++ b/mach/pdp/libsys/fperr.s
@@ -1,10 +1,10 @@
 #include "sys.h"
-.globl	_fperr
-.globl	_errno
+.define	_fperr
+.extern	_errno
 
 _fperr:
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
@@ -15,6 +15,6 @@ _fperr:
 	mov	r1,(r5)
 	mov	(sp)+,r5
 	rts	pc
-.data
+.sect .data
 0:
 	sys	fperr
diff --git a/mach/pdp/libsys/fstat.s b/mach/pdp/libsys/fstat.s
index b1bff51fb..edb183a41 100644
--- a/mach/pdp/libsys/fstat.s
+++ b/mach/pdp/libsys/fstat.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl	_fstat
-.globl	_errno
+.define	_fstat
+.extern	_errno
 
 _fstat:
 	mov	2(sp),r0
 	mov	4(sp),0f+2
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	fstat; ..
+	sys	fstat
+	.data2	0
diff --git a/mach/pdp/libsys/ftime.s b/mach/pdp/libsys/ftime.s
index c29924dd5..bef7d1ab8 100644
--- a/mach/pdp/libsys/ftime.s
+++ b/mach/pdp/libsys/ftime.s
@@ -1,11 +1,12 @@
 #include "sys.h"
-.globl	_ftime
+.define	_ftime
 
 _ftime:
 	mov	2(sp),0f+2
-	sys	indir; 0f
+	sys	indir; .data2 0f
 	rts	pc
 
-.data
+.sect .data
 0:
-	sys	ftime; ..
+	sys	ftime
+	.data2	0
diff --git a/mach/pdp/libsys/getgid.s b/mach/pdp/libsys/getgid.s
index 8faaf9fa6..8a352dd6e 100644
--- a/mach/pdp/libsys/getgid.s
+++ b/mach/pdp/libsys/getgid.s
@@ -1,6 +1,6 @@
 #include "sys.h"
-.globl	_getgid
-.globl	_getegid
+.define	_getgid
+.define	_getegid
 
 _getgid:
 	sys	getgid
diff --git a/mach/pdp/libsys/getgrp.s b/mach/pdp/libsys/getgrp.s
index d4c059eb6..d79e7d4d4 100644
--- a/mach/pdp/libsys/getgrp.s
+++ b/mach/pdp/libsys/getgrp.s
@@ -1,17 +1,18 @@
 #include "sys.h"
-.globl	_getgrp
-.globl	_errno
+.define	_getgrp
+.extern	_errno
 
 _getgrp:
 	mov	2(sp),0f+2
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	getgrp; ..
+	sys	getgrp
+	.data2	0
diff --git a/mach/pdp/libsys/getpid.s b/mach/pdp/libsys/getpid.s
index 54aa094f4..fa45d0fa9 100644
--- a/mach/pdp/libsys/getpid.s
+++ b/mach/pdp/libsys/getpid.s
@@ -1,5 +1,5 @@
 #include "sys.h"
-.globl	_getpid
+.define	_getpid
 
 _getpid:
 	sys	getpid
diff --git a/mach/pdp/libsys/getppid.s b/mach/pdp/libsys/getppid.s
index 8af5c2b12..3cd0ac816 100644
--- a/mach/pdp/libsys/getppid.s
+++ b/mach/pdp/libsys/getppid.s
@@ -1,5 +1,5 @@
 #include "sys.h"
-.globl _getppid
+.define _getppid
 
 _getppid:
 	sys	getpid
diff --git a/mach/pdp/libsys/getuid.s b/mach/pdp/libsys/getuid.s
index 2b8db794d..cff177f2d 100644
--- a/mach/pdp/libsys/getuid.s
+++ b/mach/pdp/libsys/getuid.s
@@ -1,6 +1,6 @@
 #include "sys.h"
-.globl	_getuid
-.globl	_geteuid
+.define	_getuid
+.define	_geteuid
 
 _getuid:
 	sys	getuid
diff --git a/mach/pdp/libsys/gldav.s b/mach/pdp/libsys/gldav.s
index c6db2d135..73a93f9e6 100644
--- a/mach/pdp/libsys/gldav.s
+++ b/mach/pdp/libsys/gldav.s
@@ -1,17 +1,17 @@
 #include "sys.h"
-.globl	_gldav
-.globl	_errno
+.define	_gldav
+.extern	_errno
 
 _gldav:
 	mov	2(sp),r0
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
 	sys	gldav
diff --git a/mach/pdp/libsys/gtty.c b/mach/pdp/libsys/gtty.c
index 7f42ea1fb..77466a4d0 100644
--- a/mach/pdp/libsys/gtty.c
+++ b/mach/pdp/libsys/gtty.c
@@ -1,7 +1,6 @@
-#include <sgtty.h>
 int gtty(fildes,argp)
 	int fildes ;
-	struct sgttyb *argp ;
+	char *argp ;
 {
-	return ioctl(fildes,TIOCGETP,argp) ;
+	return ioctl(fildes,/*TIOCGETP*/(('t'<<8)|8),argp) ;
 }
diff --git a/mach/pdp/libsys/ioctl.s b/mach/pdp/libsys/ioctl.s
index 95e2474ea..34b787abd 100644
--- a/mach/pdp/libsys/ioctl.s
+++ b/mach/pdp/libsys/ioctl.s
@@ -1,19 +1,20 @@
 #include "sys.h"
-.globl	_ioctl
-.globl	_errno
+.define	_ioctl
+.extern	_errno
 
 _ioctl:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
 	mov	6(sp),0f+6
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	ioctl; ..; ..; ..
+	sys	ioctl
+	.data2	0, 0, 0
diff --git a/mach/pdp/libsys/kill.s b/mach/pdp/libsys/kill.s
index d96fbf696..e798701e7 100644
--- a/mach/pdp/libsys/kill.s
+++ b/mach/pdp/libsys/kill.s
@@ -1,12 +1,12 @@
 #include "sys.h"
-.globl	_kill
-.globl	_errno
+.define	_kill
+.extern	_errno
 
 _kill:
 	mov	2(sp),r0
 	mov	4(sp),0f+2
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
@@ -14,6 +14,7 @@ _kill:
 	clr	r0
 	rts	pc
 
-.data
+.sect .data
 0:
-	sys	kill; ..
+	sys	kill
+	.data2	0
diff --git a/mach/pdp/libsys/killbkg.s b/mach/pdp/libsys/killbkg.s
index edfcae276..153691009 100644
--- a/mach/pdp/libsys/killbkg.s
+++ b/mach/pdp/libsys/killbkg.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl	_killbkg
-.globl	_errno
+.define	_killbkg
+.extern	_errno
 
 _killbkg:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	killbkg; ..; ..
+	sys	killbkg
+	.data2	0, 0
diff --git a/mach/pdp/libsys/killpg.s b/mach/pdp/libsys/killpg.s
index 99509668c..24d67dc1b 100644
--- a/mach/pdp/libsys/killpg.s
+++ b/mach/pdp/libsys/killpg.s
@@ -1,12 +1,12 @@
 #include "sys.h"
-.globl	_killpg
-.globl	_errno
+.define	_killpg
+.extern	_errno
 
 _killpg:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
@@ -14,6 +14,7 @@ _killpg:
 	clr	r0
 	rts	pc
 
-.data
+.sect .data
 0:
-	sys	killpg; ..; ..
+	sys	killpg
+	.data2	0, 0
diff --git a/mach/pdp/libsys/link.s b/mach/pdp/libsys/link.s
index 1a0e34899..d55b371f8 100644
--- a/mach/pdp/libsys/link.s
+++ b/mach/pdp/libsys/link.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl	_link
-.globl	_errno
+.define	_link
+.extern	_errno
 
 _link:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	link; ..; ..
+	sys	link
+	.data2	0, 0
diff --git a/mach/pdp/libsys/lock.s b/mach/pdp/libsys/lock.s
index fdd63e8e8..fcdbf9ff6 100644
--- a/mach/pdp/libsys/lock.s
+++ b/mach/pdp/libsys/lock.s
@@ -1,15 +1,16 @@
 #include "sys.h"
-.globl	_lock
-.globl	_errno
+.define	_lock
+.extern	_errno
 
 _lock:
 	mov	2(sp),0f+2
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
-	sys	lock; ..
+	sys	lock
+	.data2	0
diff --git a/mach/pdp/libsys/login.s b/mach/pdp/libsys/login.s
index d79d0d9fb..5a7750ad5 100644
--- a/mach/pdp/libsys/login.s
+++ b/mach/pdp/libsys/login.s
@@ -1,19 +1,20 @@
 #include "sys.h"
-.globl	_login
-.globl	_errno
+.define	_login
+.extern	_errno
 
 _login:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
 	mov	6(sp),0f+6
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	login; ..; ..; ..;
+	sys	login
+	.data2	0, 0, 0
diff --git a/mach/pdp/libsys/lseek.s b/mach/pdp/libsys/lseek.s
index c2c36b58b..3f5d1d765 100644
--- a/mach/pdp/libsys/lseek.s
+++ b/mach/pdp/libsys/lseek.s
@@ -1,19 +1,20 @@
 #include "sys.h"
-.globl	_lseek
-.globl	_errno
+.define	_lseek
+.extern	_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	010(sp),0f+6
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	$-1,r1
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
-	sys	lseek; ..; ..; ..
+	sys	lseek
+	.data2	0, 0, 0
diff --git a/mach/pdp/libsys/lstat.s b/mach/pdp/libsys/lstat.s
index 722768048..b5f1dfdad 100644
--- a/mach/pdp/libsys/lstat.s
+++ b/mach/pdp/libsys/lstat.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl	_lstat
-.globl	_errno
+.define	_lstat
+.extern	_errno
 
 _lstat:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	lstat; ..; ..
+	sys	lstat
+	.data2	0, 0
diff --git a/mach/pdp/libsys/mknod.s b/mach/pdp/libsys/mknod.s
index be7dce3bd..98c8aee70 100644
--- a/mach/pdp/libsys/mknod.s
+++ b/mach/pdp/libsys/mknod.s
@@ -1,19 +1,20 @@
 #include "sys.h"
-.globl	_mknod
-.globl	_errno
+.define	_mknod
+.extern	_errno
 
 _mknod:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
 	mov	6(sp),0f+6
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	mknod; ..; ..; ..
+	sys	mknod
+	.data2	0, 0, 0
diff --git a/mach/pdp/libsys/mount.s b/mach/pdp/libsys/mount.s
index 31338e35b..b3fcf11a2 100644
--- a/mach/pdp/libsys/mount.s
+++ b/mach/pdp/libsys/mount.s
@@ -1,19 +1,20 @@
 #include "sys.h"
-.globl	_mount
-.globl	_errno
+.define	_mount
+.extern	_errno
 
 _mount:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
 	mov	6(sp),0f+6
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	mount; ..; ..; ..
+	sys	mount
+	.data2	0, 0, 0
diff --git a/mach/pdp/libsys/mpxcall.s b/mach/pdp/libsys/mpxcall.s
index ab1a85c3a..ac235fdaf 100644
--- a/mach/pdp/libsys/mpxcall.s
+++ b/mach/pdp/libsys/mpxcall.s
@@ -1,17 +1,18 @@
 #include "sys.h"
-.globl	_mpxcall
-.globl	_errno
+.define	_mpxcall
+.extern	_errno
 
 _mpxcall:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
-	sys	mpx; ..; ..
+	sys	mpx
+	.data2	0, 0
 
diff --git a/mach/pdp/libsys/nice.s b/mach/pdp/libsys/nice.s
index 2a0b033a1..80ee92e6a 100644
--- a/mach/pdp/libsys/nice.s
+++ b/mach/pdp/libsys/nice.s
@@ -1,11 +1,11 @@
 #include "sys.h"
-.globl	_nice
-.globl	_errno
+.define	_nice
+.extern	_errno
 
 _nice:
 	mov	2(sp),r0
 	sys	nice
-	bec	1f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
diff --git a/mach/pdp/libsys/nostk.s b/mach/pdp/libsys/nostk.s
index 7dfefff08..cfd3905a9 100644
--- a/mach/pdp/libsys/nostk.s
+++ b/mach/pdp/libsys/nostk.s
@@ -1,9 +1,9 @@
 #include "sys.h"
-.globl _nostk
+.define _nostk
 
 _nostk:
-	sys	local; 0f
+	sys	local; .data2 0f
 	rts	pc
-.data
+.sect .data
 0:
 	sys	nostk
diff --git a/mach/pdp/libsys/open.s b/mach/pdp/libsys/open.s
index 6e7d8c907..a25591c65 100644
--- a/mach/pdp/libsys/open.s
+++ b/mach/pdp/libsys/open.s
@@ -1,16 +1,17 @@
 #include "sys.h"
-.globl	_open
-.globl	_errno
+.define	_open
+.extern	_errno
 
 _open:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
-	sys	open; ..; ..
+	sys	open
+	.data2	0, 0
diff --git a/mach/pdp/libsys/pause.s b/mach/pdp/libsys/pause.s
index da11a6265..8609dcc73 100644
--- a/mach/pdp/libsys/pause.s
+++ b/mach/pdp/libsys/pause.s
@@ -1,5 +1,5 @@
 #include "sys.h"
-.globl	_pause
+.define	_pause
 
 _pause:
 	sys	pause
diff --git a/mach/pdp/libsys/phys.s b/mach/pdp/libsys/phys.s
index 04740cda4..ec51f03f2 100644
--- a/mach/pdp/libsys/phys.s
+++ b/mach/pdp/libsys/phys.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl	_phys
-.globl	_errno
+.define	_phys
+.extern	_errno
 
 _phys:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
 	mov	6(sp),0f+6
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
 
-.data
+.sect .data
 0:
-	sys	phys; ..; ..; ..
+	sys	phys
+	.data2	0, 0, 0
diff --git a/mach/pdp/libsys/pipe.s b/mach/pdp/libsys/pipe.s
index be017ab72..b89a7ac48 100644
--- a/mach/pdp/libsys/pipe.s
+++ b/mach/pdp/libsys/pipe.s
@@ -1,10 +1,10 @@
 #include "sys.h"
-.globl	_pipe
-.globl	_errno
+.define	_pipe
+.extern	_errno
 
 _pipe:
 	sys	pipe
-	bec	1f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
diff --git a/mach/pdp/libsys/profil.s b/mach/pdp/libsys/profil.s
index 28864242d..81379a175 100644
--- a/mach/pdp/libsys/profil.s
+++ b/mach/pdp/libsys/profil.s
@@ -1,13 +1,14 @@
 #include "sys.h"
-.globl	_profil
+.define	_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
+	mov	010(sp),0f+010
+	sys	indir; .data2 0f
 	rts	pc
-.data
+.sect .data
 0:
-	sys	profil; ..; ..; ..; ..
+	sys	profil
+	.data2	0, 0, 0, 0
diff --git a/mach/pdp/libsys/ptrace.s b/mach/pdp/libsys/ptrace.s
index 1dd598a4c..947926280 100644
--- a/mach/pdp/libsys/ptrace.s
+++ b/mach/pdp/libsys/ptrace.s
@@ -1,20 +1,21 @@
 #include "sys.h"
-.globl	_ptrace
-.globl	_errno
+.define	_ptrace
+.extern	_errno
 
 _ptrace:
 	mov	2(sp),0f+6
 	mov	4(sp),0f+2
 	mov	6(sp),0f+4
-	mov	10(sp),r0
+	mov	010(sp),r0
 	clr	_errno
-	sys	indir; 9f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
 
-.data
+.sect .data
 0:
-	sys	ptrace; ..; ..; ..
+	sys	ptrace
+	.data2	0, 0, 0
diff --git a/mach/pdp/libsys/qfstat.s b/mach/pdp/libsys/qfstat.s
index affcb508d..9716cbc25 100644
--- a/mach/pdp/libsys/qfstat.s
+++ b/mach/pdp/libsys/qfstat.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl	_qfstat
-.globl	_errno
+.define	_qfstat
+.extern	_errno
 
 _qfstat:
 	mov	2(sp),r0
 	mov	4(sp),0f+2
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	qfstat; ..
+	sys	qfstat
+	.data2	0
diff --git a/mach/pdp/libsys/qstat.s b/mach/pdp/libsys/qstat.s
index d5143f3bb..16ec5bb79 100644
--- a/mach/pdp/libsys/qstat.s
+++ b/mach/pdp/libsys/qstat.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl	_qstat
-.globl	_errno
+.define	_qstat
+.extern	_errno
 
 _qstat:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	qstat; ..; ..
+	sys	qstat
+	.data2	0, 0
diff --git a/mach/pdp/libsys/quota.s b/mach/pdp/libsys/quota.s
index 89ef1095c..ebe13471a 100644
--- a/mach/pdp/libsys/quota.s
+++ b/mach/pdp/libsys/quota.s
@@ -1,21 +1,22 @@
 #include "sys.h"
-.globl	_quota
-.globl	_errno
+.define	_quota
+.extern	_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	010(sp),0f+010
+	mov	012(sp),0f+012
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	quota; ..; ..; ..; ..; ..
+	sys	quota
+	.data2	0, 0, 0, 0, 0
diff --git a/mach/pdp/libsys/read.s b/mach/pdp/libsys/read.s
index f89a36e00..8eac6b4c0 100644
--- a/mach/pdp/libsys/read.s
+++ b/mach/pdp/libsys/read.s
@@ -1,17 +1,18 @@
 #include "sys.h"
-.globl	_read
-.globl	_errno
+.define	_read
+.extern	_errno
 
 _read:
 	mov	2(sp),r0
 	mov	4(sp),0f+2
 	mov	6(sp),0f+4
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
-	sys	read; ..; ..
+	sys	read
+	.data2	0, 0
diff --git a/mach/pdp/libsys/readlink.s b/mach/pdp/libsys/readlink.s
index 72c2f9dc1..1dc64f85d 100644
--- a/mach/pdp/libsys/readlink.s
+++ b/mach/pdp/libsys/readlink.s
@@ -1,17 +1,18 @@
 #include "sys.h"
-.globl  _readlink
-.globl	_errno
+.define  _readlink
+.extern	_errno
 
 _readlink:
 	mov	2(sp),r0
 	mov	4(sp),0f+2
 	mov	6(sp),0f+4
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
-	sys	readlink; ..; ..
+	sys	readlink
+	.data2	0, 0
diff --git a/mach/pdp/libsys/reboot.s b/mach/pdp/libsys/reboot.s
index bef5ab287..d563e63a1 100644
--- a/mach/pdp/libsys/reboot.s
+++ b/mach/pdp/libsys/reboot.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl	_reboot
-.globl	_errno
+.define	_reboot
+.extern	_errno
 
 _reboot:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	reboot; ..; ..
+	sys	reboot
+	.data2	0, 0
diff --git a/mach/pdp/libsys/renice.s b/mach/pdp/libsys/renice.s
index a2e959567..a7b407497 100644
--- a/mach/pdp/libsys/renice.s
+++ b/mach/pdp/libsys/renice.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl	_renice
-.globl	_errno
+.define	_renice
+.extern	_errno
 
 _renice:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	renice; ..; ..
+	sys	renice
+	.data2	0, 0
diff --git a/mach/pdp/libsys/rtp.s b/mach/pdp/libsys/rtp.s
index 5fe3dc29a..88dc83822 100644
--- a/mach/pdp/libsys/rtp.s
+++ b/mach/pdp/libsys/rtp.s
@@ -1,11 +1,11 @@
 #include "sys.h"
-.globl	_rtp
-.globl	_errno
+.define	_rtp
+.extern	_errno
 
 _rtp:
 	mov	2(sp),r0
 	sys	rtp
-	bec	1f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
diff --git a/mach/pdp/libsys/sbrk.s b/mach/pdp/libsys/sbrk.s
index c4b764f72..3804ac651 100644
--- a/mach/pdp/libsys/sbrk.s
+++ b/mach/pdp/libsys/sbrk.s
@@ -1,16 +1,16 @@
 #include "sys.h"
-.globl	_sbrk
-.globl	_brk
-.globl	_end
-.globl	_errno
+.define	_sbrk
+.define	_brk
+.extern	_end
+.extern	_errno
 
 _sbrk:
 	mov	2(sp),0f+2
 	beq	1f
 	add	xxx,0f+2
 	bcs	2f
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 2:
 	mov	r0,_errno
 	mov	$-1,r0
@@ -22,8 +22,8 @@ _sbrk:
 
 _brk:
 	mov	2(sp),0f+2
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
@@ -32,7 +32,8 @@ _brk:
 	clr	r0
 	rts	pc
 
-.data
+.sect .data
 0:
-	sys	break; ..
-xxx:	_end
+	sys	break
+	.data2	0
+xxx:	.data2 _end
diff --git a/mach/pdp/libsys/setgid.s b/mach/pdp/libsys/setgid.s
index 5538f1c6a..3e7f2a468 100644
--- a/mach/pdp/libsys/setgid.s
+++ b/mach/pdp/libsys/setgid.s
@@ -1,11 +1,11 @@
 #include "sys.h"
-.globl	_setgid
-.globl	_errno
+.define	_setgid
+.extern	_errno
 
 _setgid:
 	mov	2(sp),r0
 	sys	setgid
-	bec	1f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
diff --git a/mach/pdp/libsys/setgrp.s b/mach/pdp/libsys/setgrp.s
index 987ba1acf..13d8f38f5 100644
--- a/mach/pdp/libsys/setgrp.s
+++ b/mach/pdp/libsys/setgrp.s
@@ -1,17 +1,18 @@
 #include "sys.h"
-.globl	_setgrp
-.globl	_errno
+.define	_setgrp
+.extern	_errno
 
 _setgrp:
 	mov	2(sp),0f+2
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	setgrp; ..
+	sys	setgrp
+	.data2	0
diff --git a/mach/pdp/libsys/setuid.s b/mach/pdp/libsys/setuid.s
index 7c7fb4f9a..a8fbb8097 100644
--- a/mach/pdp/libsys/setuid.s
+++ b/mach/pdp/libsys/setuid.s
@@ -1,11 +1,11 @@
 #include "sys.h"
-.globl	_setuid
-.globl	_errno
+.define	_setuid
+.extern	_errno
 
 _setuid:
 	mov	2(sp),r0
 	sys	setuid
-	bec	1f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
diff --git a/mach/pdp/libsys/signal.s b/mach/pdp/libsys/signal.s
index 86633093e..0a46e0559 100644
--- a/mach/pdp/libsys/signal.s
+++ b/mach/pdp/libsys/signal.s
@@ -1,31 +1,30 @@
-#include <errno.h>
 #include "sys.h"
-rtt	= 6
-.globl	_signal
-.globl	_errno
+EINVAL =  026
+.define	_signal
+.extern	_errno
 
-NSIGNALS = 0
+NSIGNALS = 024
 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
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
+	jsr	r0,1f
 
 1:
 	mov	r1,-(sp)
@@ -64,8 +63,8 @@ _signal:
 	add	$tvect,r1
 	mov	r1,0f+4
 1:
-	sys	indir; 0f
-	bes	3f
+	sys	indir; .data2 0f
+	bcs	3f
 	bit	$1,r0
 	beq	1f
 	mov	r0,(sp)
@@ -74,15 +73,16 @@ _signal:
 	mov	(sp)+,r5
 	rts	pc
 2:
-	mov	$EINVAL.,r0
+	mov	$EINVAL,r0
 3:
 	mov	r0,_errno
 	mov	$-1,r0
 	mov	(sp)+,r5
 	rts	pc
 
-.data
+.sect .data
 0:
-	sys	signal; ..; ..
-.bss
-dvect:	.=.+[NSIGNALS*2]
+	sys	signal
+	.data2	0, 0
+.sect .bss
+dvect:	.space [NSIGNALS*2]
diff --git a/mach/pdp/libsys/stat.s b/mach/pdp/libsys/stat.s
index 87cdc05d6..ce0d26cf2 100644
--- a/mach/pdp/libsys/stat.s
+++ b/mach/pdp/libsys/stat.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl	_stat
-.globl	_errno
+.define	_stat
+.extern	_errno
 
 _stat:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	stat; ..; ..
+	sys	stat
+	.data2	0, 0
diff --git a/mach/pdp/libsys/stime.s b/mach/pdp/libsys/stime.s
index 3d0172b24..0dd6183fb 100644
--- a/mach/pdp/libsys/stime.s
+++ b/mach/pdp/libsys/stime.s
@@ -1,13 +1,13 @@
 #include "sys.h"
-.globl	_stime
-.globl	_errno
+.define	_stime
+.extern	_errno
 
 _stime:
 	mov	2(sp),r1
 	mov	(r1)+,r0
 	mov	(r1),r1
 	sys	stime
-	bec	1f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
diff --git a/mach/pdp/libsys/stty.c b/mach/pdp/libsys/stty.c
index 222310cc3..378f1ac4e 100644
--- a/mach/pdp/libsys/stty.c
+++ b/mach/pdp/libsys/stty.c
@@ -1,7 +1,6 @@
-#include <sgtty.h>
 int stty(fildes,argp)
 	int fildes ;
-	struct sgttyb *argp ;
+	char *argp;
 {
-	return ioctl(fildes,TIOCSETP,argp) ;
+	return ioctl(fildes,/*TIOCSETP*/(('t'<<8)|9),argp) ;
 }
diff --git a/mach/pdp/libsys/submit.s b/mach/pdp/libsys/submit.s
index 089d6e785..ec5755995 100644
--- a/mach/pdp/libsys/submit.s
+++ b/mach/pdp/libsys/submit.s
@@ -1,15 +1,15 @@
 #include "sys.h"
-.globl	_submit
-.globl	_errno
+.define	_submit
+.extern	_errno
 
 _submit:
 	mov	2(sp),r0
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
 	sys	submit
diff --git a/mach/pdp/libsys/symlink.s b/mach/pdp/libsys/symlink.s
index 0cce298f0..c8b5f517f 100644
--- a/mach/pdp/libsys/symlink.s
+++ b/mach/pdp/libsys/symlink.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl  _symlink
-.globl	_errno
+.define  _symlink
+.extern	_errno
 
 _symlink:
 	mov     2(sp),r0
 	mov     4(sp),0f+2
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	symlink; ..
+	sys	symlink
+	.data2	0
diff --git a/mach/pdp/libsys/sync.s b/mach/pdp/libsys/sync.s
index 0ef9ba91a..c006e8f01 100644
--- a/mach/pdp/libsys/sync.s
+++ b/mach/pdp/libsys/sync.s
@@ -1,5 +1,5 @@
 #include "sys.h"
-.globl	_sync
+.define	_sync
 
 _sync:
 	sys	sync
diff --git a/mach/pdp/libsys/sys.h b/mach/pdp/libsys/sys.h
index 27e48641c..4153f9907 100644
--- a/mach/pdp/libsys/sys.h
+++ b/mach/pdp/libsys/sys.h
@@ -3,100 +3,102 @@
  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
  * See the copyright notice in the ACK home directory, in the file "Copyright".
  */
-#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	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	 010
+#define	link	 011
+#define	unlink	 012
+#define	exec	 013
+#define	chdir	 014
+#define	time	 015
+#define	mknod	 016
+#define	chmod	 017
+#define	chown	 020
+#define	break	 021
+#define	stat	 022
+#define	lseek	 023
+#define	getpid	 024
+#define	mount	 025
+#define	umount	 026
+#define	setuid	 027
+#define	getuid	 030
+#define	stime	 031
+#define	ptrace	 032
+#define	alarm	 033
+#define	fstat	 034
+#define	pause	 035
+#define	utime	 036
+#define	smdate	 036
+#define	stty	 037
+#define	gtty	 040
+#define	access	 041
+#define	nice	 042
+#define	sleep	 043
+#define	ftime	 043
+#define	sync	 044
+#define	kill	 045
+#define	csw	 046
+#define	setpgrp	 047
+#define	dup	 051
+#define	pipe	 052
+#define	times	 053
+#define	profil	 054
+#define	getgrp	 055
+#define	setgid	 056
+#define	getgid	 057
+#define	signal	 060
+#define	rtp	 061
+#define	setgrp	 062
+#define	acct	 063
+#define	phys	 064
+#define	lock	 065
+#define	ioctl	 066
+#define	reboot	 067
+#define	mpx	 070
+#define	vfork	 071
+#define	setinf	 073
+#define	exece	 073
+#define	local	 072
+#define	umask	 074
+#define	getinf	 074
+#define	chroot	 075
 
-#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	login	 01
+#define	lstat	 02
+#define	submit	 03
+#define	nostk	 04
+#define	killbkg	 05
+#define	killpg	 06
+#define	renice	 07
+#define	fetchi	 010
+#define	ucall	 011
+#define	quota	 012
+#define	qfstat	 013
+#define	qstat	 014
+#define	gldav	 016
+#define	fperr	 017
+#define	vhangup	 020
+#define	symlink	 035
+#define	readlink 036
 
-#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.
+#define	select	 022
+#define	gethost	 023
+#define	sethost	 024
+#define	socket	 025
+#define	connect	 026
+#define	accept	 027
+#define	send	 030
+#define	receive	 031
+#define	socketa	 032
+#define	setreuid 033
+#define	setregid 034
+#define	gethstid 037
+#define	sethstid 040
+
+.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
diff --git a/mach/pdp/libsys/time.s b/mach/pdp/libsys/time.s
index c545ff8c5..e8cf52f6b 100644
--- a/mach/pdp/libsys/time.s
+++ b/mach/pdp/libsys/time.s
@@ -1,5 +1,5 @@
 #include "sys.h"
-.globl	_time
+.define	_time
 
 _time:
 	sys	time
diff --git a/mach/pdp/libsys/times.s b/mach/pdp/libsys/times.s
index 4b928d7d0..edd5a1e47 100644
--- a/mach/pdp/libsys/times.s
+++ b/mach/pdp/libsys/times.s
@@ -1,10 +1,11 @@
 #include "sys.h"
-.globl	_times
+.define	_times
 
 _times:
 	mov	2(sp),0f+2
-	sys	indir; 0f
+	sys	indir; .data2 0f
 	rts	pc
-.data
+.sect .data
 0:
-	sys	times; ..
+	sys	times
+	.data2	0
diff --git a/mach/pdp/libsys/ucall.s b/mach/pdp/libsys/ucall.s
index 091506314..b4d723984 100644
--- a/mach/pdp/libsys/ucall.s
+++ b/mach/pdp/libsys/ucall.s
@@ -1,13 +1,14 @@
 #include "sys.h"
-.globl	_ucall
+.define	_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
+	mov	010(sp),0f+010
+	sys	local; .data2 0f
 	rts	pc
-.data
+.sect .data
 0:
-	sys	ucall; ..; ..; ..; ..
+	sys	ucall
+	.data2	0, 0, 0, 0
diff --git a/mach/pdp/libsys/umask.s b/mach/pdp/libsys/umask.s
index 317d02a85..483bf2469 100644
--- a/mach/pdp/libsys/umask.s
+++ b/mach/pdp/libsys/umask.s
@@ -1,15 +1,16 @@
 #include "sys.h"
-.globl	_umask
-.globl	_errno
+.define	_umask
+.extern	_errno
 
 _umask:
 	mov	2(sp),0f+2
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
-	sys	umask; ..
+	sys	umask
+	.data2	0
diff --git a/mach/pdp/libsys/umount.s b/mach/pdp/libsys/umount.s
index ed78e0843..d226eb3d9 100644
--- a/mach/pdp/libsys/umount.s
+++ b/mach/pdp/libsys/umount.s
@@ -1,11 +1,11 @@
 #include "sys.h"
-.globl	_umount
-.globl	_errno
+.define	_umount
+.extern	_errno
 
 _umount:
 	mov	2(sp),0f+2
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
@@ -13,6 +13,7 @@ _umount:
 	clr	r0
 	rts	pc
 
-.data
+.sect .data
 0:
-	sys	umount; ..
+	sys	umount
+	.data2	0
diff --git a/mach/pdp/libsys/unlink.s b/mach/pdp/libsys/unlink.s
index 699ca90e9..8e120242e 100644
--- a/mach/pdp/libsys/unlink.s
+++ b/mach/pdp/libsys/unlink.s
@@ -1,17 +1,18 @@
 #include "sys.h"
-.globl	_unlink
-.globl	_errno
+.define	_unlink
+.extern	_errno
 
 _unlink:
 	mov	2(sp),0f+2
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	unlink; ..
+	sys	unlink
+	.data2	0
diff --git a/mach/pdp/libsys/utime.s b/mach/pdp/libsys/utime.s
index 6f4c6a638..5dc578cc7 100644
--- a/mach/pdp/libsys/utime.s
+++ b/mach/pdp/libsys/utime.s
@@ -1,18 +1,19 @@
 #include "sys.h"
-.globl	_utime
-.globl	_errno
+.define	_utime
+.extern	_errno
 
 _utime:
 	mov	2(sp),0f+2
 	mov	4(sp),0f+4
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
 1:
 	clr	r0
 	rts	pc
-.data
+.sect .data
 0:
-	sys	utime; ..; ..
+	sys	utime
+	.data2	0, 0
diff --git a/mach/pdp/libsys/vfork.s b/mach/pdp/libsys/vfork.s
index dca86e854..8fa5bfd60 100644
--- a/mach/pdp/libsys/vfork.s
+++ b/mach/pdp/libsys/vfork.s
@@ -1,18 +1,18 @@
 #include "sys.h"
-.globl	_vfork
-.globl	_errno
+.define	_vfork
+.extern	_errno
 
 _vfork:
 	mov	(sp)+,r1
 	sys	vfork
 	br	1f
-	bec	2f
+	bcc	2f
 3:	mov	r0,_errno
 	mov	$-1,r0
 	jmp	(r1)
 
-1:			/ child, or vfork systemcall does not exist
-	bes	3b
+1:			! child, or vfork systemcall does not exist
+	bcs	3b
 	clr	r0
 2:
 	jmp	(r1)
diff --git a/mach/pdp/libsys/vhangup.s b/mach/pdp/libsys/vhangup.s
index f7cd02561..5334923ae 100644
--- a/mach/pdp/libsys/vhangup.s
+++ b/mach/pdp/libsys/vhangup.s
@@ -1,14 +1,14 @@
 #include "sys.h"
-.globl	_vhangup
-.globl	_errno
+.define	_vhangup
+.extern	_errno
 
 _vhangup:
-	sys	local; 0f
-	bec	1f
+	sys	local; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
 	sys	vhangup
diff --git a/mach/pdp/libsys/wait.s b/mach/pdp/libsys/wait.s
index cc335a3f5..5fd50172e 100644
--- a/mach/pdp/libsys/wait.s
+++ b/mach/pdp/libsys/wait.s
@@ -1,10 +1,10 @@
 #include "sys.h"
-.globl	_wait
-.globl	_errno
+.define	_wait
+.extern	_errno
 
 _wait:
 	sys	wait
-	bec	1f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 	rts	pc
diff --git a/mach/pdp/libsys/write.s b/mach/pdp/libsys/write.s
index 38c0f5e01..5a719080a 100644
--- a/mach/pdp/libsys/write.s
+++ b/mach/pdp/libsys/write.s
@@ -1,17 +1,18 @@
 #include "sys.h"
-.globl	_write
-.globl	_errno
+.define	_write
+.extern	_errno
 
 _write:
 	mov	2(sp),r0
 	mov	4(sp),0f+2
 	mov	6(sp),0f+4
-	sys	indir; 0f
-	bec	1f
+	sys	indir; .data2 0f
+	bcc	1f
 	mov	r0,_errno
 	mov	$-1,r0
 1:
 	rts	pc
-.data
+.sect .data
 0:
-	sys	write; ..; ..
+	sys	write
+	.data2	0, 0