Adapted for use of ACK VAX assembler

1990-01-11 16:00:19 +00:00
parent d8832134d2
commit 4ef63cdaea
141 changed files with 1026 additions and 816 deletions
--- a/mach/vax4/libsysV_2/Makefile
+++ b/mach/vax4/libsysV_2/Makefile
@@ -16,8 +16,7 @@ head_em.o:      head_em.s
 		vax4 -I../../../h -c head_em.s

 libmon_o.a:	libmon_s.a
-		ASAR=ar ; export ASAR ;\
-		RANLIB=ranlib ; export RANLIB ;\
+		ASAR=aal ; export ASAR ;\
 		march . libmon_o.a

 clean:
--- a/mach/vax4/libsysV_2/_exit.s
+++ b/mach/vax4/libsysV_2/_exit.s
@@ -1,7 +1,9 @@
-.set	exit,1
-.globl	__exit
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+exit = 1
+.define	__exit

 __exit:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$exit
 	halt
--- a/mach/vax4/libsysV_2/access.s
+++ b/mach/vax4/libsysV_2/access.s
@@ -1,11 +1,13 @@
-.set	access,33
-.globl	_access
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+access = 33
+.define	_access
+.define	cerror

 _access:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$access
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/acct.s
+++ b/mach/vax4/libsysV_2/acct.s
@@ -1,11 +1,13 @@
-.set	acct,51
-.globl	_acct
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+acct = 51
+.define	_acct
+.define  cerror

 _acct:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$acct
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/alarm.s
+++ b/mach/vax4/libsysV_2/alarm.s
@@ -1,7 +1,9 @@
-.set	alarm,27
-.globl	_alarm
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+alarm = 27
+.define	_alarm

 _alarm:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$alarm
 	ret
--- a/mach/vax4/libsysV_2/cerror.s
+++ b/mach/vax4/libsysV_2/cerror.s
@@ -1,10 +1,12 @@
-.globl	cerror
-.globl	_errno
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+.define	cerror
+.define	_errno

-.data
-_errno:	.long	0
+.sect .bss
+.comm _errno, 4

-.text
+.sect .text
 cerror:
 	movl	r0,_errno
 	mnegl	$1,r0
--- a/mach/vax4/libsysV_2/chdir.s
+++ b/mach/vax4/libsysV_2/chdir.s
@@ -1,12 +1,14 @@
-.set	chdir,12
-.globl	_chdir
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+chdir = 12
+.define	_chdir
+.define	cerror

 _chdir:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$chdir
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/chmod.s
+++ b/mach/vax4/libsysV_2/chmod.s
@@ -1,12 +1,13 @@
-.set	chmod,15
-.globl	_chmod
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+chmod = 15
+.define	_chmod

 _chmod:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$chmod
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/chown.s
+++ b/mach/vax4/libsysV_2/chown.s
@@ -1,12 +1,13 @@
-.set	chown,16
-.globl	_chown
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+chown = 16
+.define	_chown

 _chown:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$chown
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/chroot.s
+++ b/mach/vax4/libsysV_2/chroot.s
@@ -1,11 +1,12 @@
-.set	chroot,61
-.globl	_chroot
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+chroot = 61
+.define	_chroot

 _chroot:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$chroot
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/close.s
+++ b/mach/vax4/libsysV_2/close.s
@@ -1,12 +1,13 @@
-.set	close,6
-.globl	_close
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+close = 6
+.define	_close

 _close:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$close
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/creat.s
+++ b/mach/vax4/libsysV_2/creat.s
@@ -1,11 +1,12 @@
-.set	creat,8
-.globl	_creat
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+creat = 8
+.define	_creat

 _creat:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$creat
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/dup.s
+++ b/mach/vax4/libsysV_2/dup.s
@@ -1,11 +1,12 @@
-.set	dup,41
-.globl	_dup
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+dup = 41
+.define	_dup

 _dup:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$dup
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/execl.s
+++ b/mach/vax4/libsysV_2/execl.s
@@ -1,8 +1,9 @@
-.globl	_execl
-.globl	_execv
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+.define	_execl

 _execl:
-	.word	0x0000
+	.data2	0x0000
 	pushab	8(ap)
 	pushl	4(ap)
 	calls	$2,_execv
--- a/mach/vax4/libsysV_2/execle.s
+++ b/mach/vax4/libsysV_2/execle.s
@@ -1,8 +1,9 @@
-.globl	_execle
-.globl	_execve
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+.define	_execle

 _execle:
-	.word	0x0000
+	.data2	0x0000
 	movl	(ap),r0
 	pushl	(ap)[r0]
 	pushab	8(ap)
--- a/mach/vax4/libsysV_2/execv.s
+++ b/mach/vax4/libsysV_2/execv.s
@@ -1,9 +1,9 @@
-.globl	_execv
-.globl	_execve
-.globl	_environ
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+.define	_execv

 _execv:
-	.word	0x0000
+	.data2	0x0000
 	pushl	_environ
 	pushl	8(ap)
 	pushl	4(ap)
--- a/mach/vax4/libsysV_2/execve.s
+++ b/mach/vax4/libsysV_2/execve.s
@@ -1,8 +1,9 @@
-.set	exece,59
-.globl	_execve
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+exece = 59
+.define	_execve

 _execve:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$exece
 	jmp 	cerror
--- a/mach/vax4/libsysV_2/fcntl.s
+++ b/mach/vax4/libsysV_2/fcntl.s
@@ -1,11 +1,12 @@
-.set	fcntl,62
-.globl	_fcntl
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+fcntl = 62
+.define	_fcntl

 _fcntl:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$fcntl
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/fork.s
+++ b/mach/vax4/libsysV_2/fork.s
@@ -1,14 +1,15 @@
-.set	fork,2
-.globl	_fork
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+fork = 2
+.define	_fork

 _fork:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$fork
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
-	blbc	r1,out
+1:
+	blbc	r1,1f
 	clrl	r0
-out:
+1:
 	ret
--- a/mach/vax4/libsysV_2/fstat.s
+++ b/mach/vax4/libsysV_2/fstat.s
@@ -1,12 +1,13 @@
-.set	fstat,28
-.globl	_fstat
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+fstat = 28
+.define	_fstat

 _fstat:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$fstat
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/getegid.s
+++ b/mach/vax4/libsysV_2/getegid.s
@@ -1,8 +1,10 @@
-.set	getgid,47
-.globl	_getegid
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+getgid = 47
+.define	_getegid

 _getegid:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$getgid
 	movl	r1,r0
 	ret
--- a/mach/vax4/libsysV_2/geteuid.s
+++ b/mach/vax4/libsysV_2/geteuid.s
@@ -1,8 +1,10 @@
-.set	getuid,24
-.globl	_geteuid
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+getuid = 24
+.define	_geteuid

 _geteuid:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$getuid
 	movl	r1,r0
 	ret
--- a/mach/vax4/libsysV_2/getgid.s
+++ b/mach/vax4/libsysV_2/getgid.s
@@ -1,7 +1,9 @@
-.set	getgid,47
-.globl	_getgid
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+getgid = 47
+.define	_getgid

 _getgid:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$getgid
 	ret
--- a/mach/vax4/libsysV_2/getpid.s
+++ b/mach/vax4/libsysV_2/getpid.s
@@ -1,7 +1,9 @@
-.set	getpid,20
-.globl	_getpid
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+getpid = 20
+.define	_getpid

 _getpid:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$getpid
 	ret
--- a/mach/vax4/libsysV_2/getppid.s
+++ b/mach/vax4/libsysV_2/getppid.s
@@ -1,8 +1,10 @@
-.set	getpid,20
-.globl	_getppid
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+getpid = 20
+.define	_getppid

 _getppid:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$getpid
 	movl	r1,r0
 	ret
--- a/mach/vax4/libsysV_2/getuid.s
+++ b/mach/vax4/libsysV_2/getuid.s
@@ -1,7 +1,9 @@
-.set	getuid,24
-.globl	_getuid
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+getuid = 24
+.define	_getuid

 _getuid:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$getuid
 	ret
--- a/mach/vax4/libsysV_2/gtty.s
+++ b/mach/vax4/libsysV_2/gtty.s
@@ -1,11 +1,12 @@
-.set	gtty,32
-.globl	_gtty
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+gtty = 32
+.define	_gtty

 _gtty:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$gtty
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/head_em.s
+++ b/mach/vax4/libsysV_2/head_em.s
@@ -1,76 +1,81 @@
 #include "em_abs.h"
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text

-	# $Header$
+	! $Header$

-.globl	hol0
-.globl	.reghp
-.globl	.trppc
-.globl	.trpim
+.define	hol0
+.define	.reghp
+.define	.trppc
+.define	.trpim

-	# run time startoff
-	.word	0
-	bispsw	$0100		# set FU(0100)
+	! run time startoff
+	.data2	0
+	bispsw	$0100		! set FU(0100)
 	movl	4(sp),r0
 	clrl	-4(r0)
 	movl	sp,r0
 	movl	(r0)+,r1
 	movl	r0,r2
-a1:
+1:
 	tstl	(r0)+
-	bneq	a1
+	bneq	1b
 	cmpl	r0,(r2)
-	blssu	a2
+	blssu	2f
 	tstl	-(r0)
-a2:
+2:
 	pushl	r0
 	pushl	r2
 	pushl	r1
-	movl	$m1,ap
-	chmk	(ap)+		# catch floating point exception
+	movl	$Im1,ap
+	chmk	(ap)+		! catch floating point exception
 	calls	$3,_m_a_i_n
-	movl	$m2,ap
+	movl	$Im2,ap
 	movl	r0,6(ap)
 	chmk	(ap)+
 	halt

 	.align	1
-sig8:
-	.word	0x0000
+Isig8:
+	.data2	0x0000
 	pushl	8(ap)
 	movl	(sp)+,ap
-	pushl	tab [ap]
+	pushl	Itab [ap]
 	jsb	.trp
-	movl	$m1,ap
+	movl	$Im1,ap
 	chmk	(ap)+
 	ret

-	.data
-m1:
-	.word	48
-	.long	2
-	.long	8
-	.long	sig8
-m2:
-	.word	1
-	.long	1
-	.long	0
+	.sect .rom
+Im1:
+	.data2	48
+	.data4	2
+	.data4	8
+	.data4	Isig8
+
+Itab:
+	.data4	0
+	.data4	EIOVFL
+	.data4	EIDIVZ
+	.data4	EFOVFL
+	.data4	EFDIVZ
+	.data4	EFUNFL
+	.data4	EILLINS
+	.data4	EARRAY
+	.data4	EFOVFL
+	.data4	EFDIVZ
+	.data4	EFUNFL
+
+	.sect .data
+Im2:
+	.data2	1
+	.data4	1
+	.data4	0
 .reghp:
-	.long	_end
+	.data4	_end
 hol0:
 	.space	8
 .trppc:
 	.space	4
 .trpim:
-	.long	0
-tab:
-	.long	0
-	.long	EIOVFL
-	.long	EIDIVZ
-	.long	EFOVFL
-	.long	EFDIVZ
-	.long	EFUNFL
-	.long	EILLINS
-	.long	EARRAY
-	.long	EFOVFL
-	.long	EFDIVZ
-	.long	EFUNFL
+	.data4	0
--- a/mach/vax4/libsysV_2/ioctl.s
+++ b/mach/vax4/libsysV_2/ioctl.s
@@ -1,11 +1,12 @@
-.set	ioctl,54
-.globl	_ioctl
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+ioctl = 54
+.define	_ioctl

 _ioctl:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$ioctl
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/kill.s
+++ b/mach/vax4/libsysV_2/kill.s
@@ -1,12 +1,13 @@
-.set	kill,37
-.globl	_kill
-.globl cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+kill = 37
+.define	_kill

 _kill:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$kill
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/link.s
+++ b/mach/vax4/libsysV_2/link.s
@@ -1,12 +1,13 @@
-.set	link,9
-.globl	_link
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+link = 9
+.define	_link

 _link:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$link
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/lseek.s
+++ b/mach/vax4/libsysV_2/lseek.s
@@ -1,11 +1,12 @@
-.set	lseek,19
-.globl	_lseek
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+lseek = 19
+.define	_lseek

 _lseek:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$lseek
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/mknod.s
+++ b/mach/vax4/libsysV_2/mknod.s
@@ -1,12 +1,13 @@
-.set	mknod,14
-.globl	_mknod
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+mknod = 14
+.define	_mknod

 _mknod:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$mknod
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/mount.s
+++ b/mach/vax4/libsysV_2/mount.s
@@ -1,12 +1,13 @@
-.set	mount,21
-.globl	_mount
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+mount = 21
+.define	_mount

 _mount:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$mount
-	bcc	ok
+	bcc	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/msg.s
+++ b/mach/vax4/libsysV_2/msg.s
@@ -1,61 +1,62 @@
-.set	msg,49
-.globl	_msgrcv
-.globl	_msgctl
-.globl	_msgsnd
-.globl	_msgget
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+msg = 49
+.define	_msgrcv
+.define	_msgctl
+.define	_msgsnd
+.define	_msgget

 _msgsnd:
-	.word 0x0000
+	.data2 0x0000
 	pushl	16(ap)
 	pushl	12(ap)
 	pushl	8(ap)
 	pushl	4(ap)
 	pushl	$3
-	calls	$5,sys
+	calls	$5,Isys
 	ret

 _msgrcv:
-	.word 0x0000
+	.data2 0x0000
 	pushl	20(sp)
 	pushl	16(ap)
 	pushl	12(ap)
 	pushl	8(ap)
 	pushl	4(ap)
 	pushl	$2
-	calls	$6,sys1
+	calls	$6,Isys1
 	ret

 _msgctl:
-	.word 0x0000
+	.data2 0x0000
 	pushl	12(ap)
 	pushl	8(ap)
 	pushl	4(ap)
 	pushl	$1
-	calls	$4,sys
+	calls	$4,Isys
 	ret

 _msgget:
-	.word 0x0000
+	.data2 0x0000
 	pushl	8(ap)
 	pushl	4(ap)
 	pushl	$0
-	calls	$3,sys1
+	calls	$3,Isys1
 	ret

-sys:
-	.word 0x0000
+Isys:
+	.data2 0x0000
 	chmk	$msg
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	clrl	r0
 	ret

-sys1:
-	.word 0x0000
+Isys1:
+	.data2 0x0000
 	chmk	$msg
-	bcc	ok1
+	bcc	1f
 	jmp	cerror
-ok1:
+1:
 	ret
--- a/mach/vax4/libsysV_2/nexect.s
+++ b/mach/vax4/libsysV_2/nexect.s
@@ -1,9 +1,10 @@
-.set	execve,59
-.globl	_exect
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+execve = 59
+.define	_exect

 _exect:
-	.word	0x0000
+	.data2	0x0000
 	bispsw	$0x10
 	chmk	$execve
 	jmp 	cerror
--- a/mach/vax4/libsysV_2/nice.s
+++ b/mach/vax4/libsysV_2/nice.s
@@ -1,11 +1,12 @@
-.set	nice,34
-.globl	_nice
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+nice = 34
+.define	_nice

 _nice:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$nice
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/open.s
+++ b/mach/vax4/libsysV_2/open.s
@@ -1,11 +1,12 @@
-.set	open,5
-.globl	_open
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+open = 5
+.define	_open

 _open:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$open
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/pause.s
+++ b/mach/vax4/libsysV_2/pause.s
@@ -1,12 +1,13 @@
-.set	pause,29
-.globl	_pause
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+pause = 29
+.define	_pause

 _pause:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$pause
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/pipe.s
+++ b/mach/vax4/libsysV_2/pipe.s
@@ -1,13 +1,14 @@
-.set	pipe,42
-.globl	_pipe
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+pipe = 42
+.define	_pipe

 _pipe:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$pipe
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	movl	4(ap),r2
 	movl	r0,(r2)+
 	movl	r1,(r2)
--- a/mach/vax4/libsysV_2/plock.s
+++ b/mach/vax4/libsysV_2/plock.s
@@ -1,11 +1,12 @@
-.set	plock,45
-.globl	_plock
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+plock = 45
+.define	_plock

 _plock:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$plock
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/profil.s
+++ b/mach/vax4/libsysV_2/profil.s
@@ -1,7 +1,9 @@
-.set	prof,44
-.globl	_profil
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+prof = 44
+.define	_profil

 _profil:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$prof
 	ret
--- a/mach/vax4/libsysV_2/ptrace.s
+++ b/mach/vax4/libsysV_2/ptrace.s
@@ -1,13 +1,13 @@
-.set	ptrace,26
-.globl	_ptrace
-.globl  _errno
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+ptrace = 26
+.define	_ptrace

 _ptrace:
-	.word	0x0000
+	.data2	0x0000
 	clrl	_errno
 	chmk	$ptrace
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/read.s
+++ b/mach/vax4/libsysV_2/read.s
@@ -1,11 +1,12 @@
-.set	read,3
-.globl	_read
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+read = 3
+.define	_read

 _read:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$read
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/sbrk.s
+++ b/mach/vax4/libsysV_2/sbrk.s
@@ -1,40 +1,40 @@
-.set	break,17
-.globl	_sbrk
-.globl	_brk
-.globl	_end
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+break = 17
+.define	_sbrk
+.define	_brk

 _sbrk:
-	.word	0x0000
-	movl	nd,r0
+	.data2	0x0000
+	movl	Ind,r0
 	tstl	4(ap)
-	jeql	out
+	jeql	3f
 	addl3	r0,4(ap),-(sp)
-	bcs	ovfl
+	bcs	1f
 	pushl	$1
 	movl	ap,r3
 	movl	sp,ap
 	chmk	$break
-	bcc 	ok
-ovfl:
+	bcc 	2f
+1:
 	jmp 	cerror
-ok:
-	movl	nd,r0
-	addl2	4(r3),nd
-out:
+2:
+	movl	Ind,r0
+	addl2	4(r3),Ind
+3:
 	ret

-.globl	_brk
+.define	_brk

 _brk:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$break
-	bcc 	ok2
+	bcc 	1f
 	jmp 	cerror
-ok2:
-	movl	4(ap),nd
+1:
+	movl	4(ap),Ind
 	clrl	r0
 	ret

-	.data
-nd:	.long	_end
+	.sect .data
+Ind:	.data4	_end
--- a/mach/vax4/libsysV_2/sem.s
+++ b/mach/vax4/libsysV_2/sem.s
@@ -1,41 +1,42 @@
-.set	sem,53
-.globl	_semctl
-.globl	_semget
-.globl	_semop
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+sem = 53
+.define	_semctl
+.define	_semget
+.define	_semop

 _semop:
-	.word 0x0000
+	.data2 0x0000
 	pushl	12(ap)
 	pushl	8(ap)
 	pushl	4(ap)
 	pushl	$2
-	calls	$4,sys1
+	calls	$4,Isys1
 	ret

 _semctl:
-	.word 0x0000
+	.data2 0x0000
 	pushl	16(ap)
 	pushl	12(ap)
 	pushl	8(ap)
 	pushl	4(ap)
 	pushl	$1
-	calls	$5,sys1
+	calls	$5,Isys1
 	ret

 _semget:
-	.word 0x0000
+	.data2 0x0000
 	pushl	12(ap)
 	pushl	8(ap)
 	pushl	4(ap)
 	pushl	$0
-	calls	$4,sys1
+	calls	$4,Isys1
 	ret

-sys1:
-	.word 0x0000
+Isys1:
+	.data2 0x0000
 	chmk	$sem
-	bcc	ok1
+	bcc	1f
 	jmp	cerror
-ok1:
+1:
 	ret
--- a/mach/vax4/libsysV_2/setgid.s
+++ b/mach/vax4/libsysV_2/setgid.s
@@ -1,12 +1,13 @@
-.set	setgid,46
-.globl	_setgid
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+setgid = 46
+.define	_setgid

 _setgid:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$setgid
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/setpgrp.s
+++ b/mach/vax4/libsysV_2/setpgrp.s
@@ -1,20 +1,22 @@
-.set	setpgrp,39
-.globl	_setpgrp
-.globl	_getpgrp
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+setpgrp = 39
+.define	_setpgrp
+.define	_getpgrp

 _setpgrp:
-	.word	0x0000
+	.data2	0x0000
 	pushl	$1
-	calls	$1,pgrp
+	calls	$1,Ipgrp
 	ret

 _getpgrp:
-	.word	0x0000
+	.data2	0x0000
 	pushl	$0
-	calls	$1,pgrp
+	calls	$1,Ipgrp
 	ret

-pgrp:
-	.word	0x0000
+Ipgrp:
+	.data2	0x0000
 	chmk	$setpgrp
 	ret
--- a/mach/vax4/libsysV_2/setuid.s
+++ b/mach/vax4/libsysV_2/setuid.s
@@ -1,12 +1,13 @@
-.set	setuid,23
-.globl	_setuid
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+setuid = 23
+.define	_setuid

 _setuid:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$setuid
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/shm.s
+++ b/mach/vax4/libsysV_2/shm.s
@@ -1,57 +1,58 @@
-.set	shm,52
-.globl	_shmat
-.globl	_shmctl
-.globl	_shmdt
-.globl	_shmget
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+shm = 52
+.define	_shmat
+.define	_shmctl
+.define	_shmdt
+.define	_shmget

 _shmat:
-	.word 0x0000
+	.data2 0x0000
 	pushl	12(ap)
 	pushl	8(ap)
 	pushl	4(ap)
 	pushl	$0
-	calls	$4,sys1
+	calls	$4,Isys1
 	ret

 _shmdt:
-	.word 0x0000
+	.data2 0x0000
 	pushl	4(ap)
 	pushl	$2
-	calls	$2,sys
+	calls	$2,Isys
 	ret

 _shmctl:
-	.word 0x0000
+	.data2 0x0000
 	pushl	12(ap)
 	pushl	8(ap)
 	pushl	4(ap)
 	pushl	$1
-	calls	$4,sys
+	calls	$4,Isys
 	ret

 _shmget:
-	.word 0x0000
+	.data2 0x0000
 	pushl	12(ap)
 	pushl	8(ap)
 	pushl	4(ap)
 	pushl	$3
-	calls	$4,sys1
+	calls	$4,Isys1
 	ret

-sys:
-	.word 0x0000
+Isys:
+	.data2 0x0000
 	chmk	$shm
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	clrl	r0
 	ret

-sys1:
-	.word 0x0000
+Isys1:
+	.data2 0x0000
 	chmk	$shm
-	bcc	ok1
+	bcc	1f
 	jmp	cerror
-ok1:
+1:
 	ret
--- a/mach/vax4/libsysV_2/signal.s
+++ b/mach/vax4/libsysV_2/signal.s
@@ -1,11 +1,12 @@
-.set	signal,48
-.globl	_signal
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+signal = 48
+.define	_signal

 _signal:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$signal
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/stat.s
+++ b/mach/vax4/libsysV_2/stat.s
@@ -1,12 +1,13 @@
-.set	stat,18
-.globl	_stat
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+stat = 18
+.define	_stat

 _stat:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$stat
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/stime.s
+++ b/mach/vax4/libsysV_2/stime.s
@@ -1,13 +1,14 @@
-.set	stime,25
-.globl	_stime
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+stime = 25
+.define	_stime

 _stime:
-	.word	0x0000
+	.data2	0x0000
 	movl	*4(ap),4(ap)
 	chmk	$stime
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/stty.s
+++ b/mach/vax4/libsysV_2/stty.s
@@ -1,11 +1,12 @@
-.set	stty,31
-.globl	_stty
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+stty = 31
+.define	_stty

 _stty:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$stty
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/sync.s
+++ b/mach/vax4/libsysV_2/sync.s
@@ -1,7 +1,9 @@
-.set	sync,36
-.globl	_sync
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+sync = 36
+.define	_sync

 _sync:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$sync
 	ret
--- a/mach/vax4/libsysV_2/syscall.s
+++ b/mach/vax4/libsysV_2/syscall.s
@@ -1,12 +1,13 @@
-.globl	_syscall
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+.define	_syscall

 _syscall:
-	.word	0x0000
+	.data2	0x0000
 	movl	4(ap),r0
 	subl3	$1,(ap)+,(ap)
 	chmk	r0
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/time.s
+++ b/mach/vax4/libsysV_2/time.s
@@ -1,11 +1,13 @@
-.set	time,13
-.globl	_time
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+time = 13
+.define	_time

 _time:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$time
 	movl	4(ap),r1
-	beql	out
+	beql	1f
 	movl	r0,(r1)
-out:
+1:
 	ret
--- a/mach/vax4/libsysV_2/times.s
+++ b/mach/vax4/libsysV_2/times.s
@@ -1,11 +1,12 @@
-.set	times,43
-.globl	_times
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+times = 43
+.define	_times

 _times:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$times
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/ulimit.s
+++ b/mach/vax4/libsysV_2/ulimit.s
@@ -1,11 +1,12 @@
-.set	ulimit,63
-.globl	_ulimit
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+ulimit = 63
+.define	_ulimit

 _ulimit:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$ulimit
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/umask.s
+++ b/mach/vax4/libsysV_2/umask.s
@@ -1,11 +1,12 @@
-.set	umask,60
-.globl	_umask
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+umask = 60
+.define	_umask

 _umask:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$umask
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/umount.s
+++ b/mach/vax4/libsysV_2/umount.s
@@ -1,12 +1,13 @@
-.set	umount,22
-.globl	_umount
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+umount = 22
+.define	_umount

 _umount:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$umount
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/uname.s
+++ b/mach/vax4/libsysV_2/uname.s
@@ -1,21 +1,22 @@
-.set	utssys,57
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+utssys = 57

-.globl	_uname
-.globl	cerror
+.define	_uname

 _uname:
-	.word	0x0000
+	.data2	0x0000
 	pushl	$0
 	pushl	$0
 	pushl	4(ap)
-	calls	$3,sys
+	calls	$3,Isys
 	ret

-sys:
-	.word	0x0000
+Isys:
+	.data2	0x0000
 	chmk	$utssys
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/unlink.s
+++ b/mach/vax4/libsysV_2/unlink.s
@@ -1,12 +1,13 @@
-.set	unlink,10
-.globl	_unlink
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+unlink = 10
+.define	_unlink

 _unlink:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$unlink
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/ustat.s
+++ b/mach/vax4/libsysV_2/ustat.s
@@ -1,20 +1,21 @@
-.set	utssys,57
-.globl	_ustat
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+utssys = 57
+.define	_ustat

 _ustat:
-	.word	0x0000
+	.data2	0x0000
 	pushl	$2
 	pushl	4(ap)
 	pushl	8(ap)
-	calls	$3,sys
+	calls	$3,Isys
 	ret

-sys:
-	.word	0x0000
+Isys:
+	.data2	0x0000
 	chmk	$utssys
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	clrl	r0
 	ret
--- a/mach/vax4/libsysV_2/utime.s
+++ b/mach/vax4/libsysV_2/utime.s
@@ -1,11 +1,12 @@
-.set	utime,30
-.globl	_utime
-.globl	cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+utime = 30
+.define	_utime
 
 _utime:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$utime
-	bcc	ok
+	bcc	1f
 	jmp	cerror
-ok:
+1:
 	ret
--- a/mach/vax4/libsysV_2/wait.s
+++ b/mach/vax4/libsysV_2/wait.s
@@ -1,15 +1,16 @@
-.set	wait,7
-.globl	_wait
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+wait = 7
+.define	_wait

 _wait:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$wait
-	bcc 	ok
+	bcc 	1f
 	jmp 	cerror
-ok:
+1:
 	tstl	4(ap)
-	beql	out
+	beql	1f
 	movl	r1,*4(ap)
-out:
+1:
 	ret
--- a/mach/vax4/libsysV_2/write.s
+++ b/mach/vax4/libsysV_2/write.s
@@ -1,11 +1,12 @@
-.set	write,4
-.globl	_write
-.globl  cerror
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+write = 4
+.define	_write

 _write:
-	.word	0x0000
+	.data2	0x0000
 	chmk	$write
-	bcc 	out
+	bcc 	1f
 	jmp 	cerror
-out:
+1:
 	ret