From: ceriel Date: Thu, 11 Jan 1990 16:00:19 +0000 (+0000) Subject: Adapted for use of ACK VAX assembler X-Git-Tag: release-5-5~1961 X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=de564c09b2e1c4813e0182d632b6ce774b609eda;p=ack.git Adapted for use of ACK VAX assembler --- diff --git a/mach/vax4/libbsd4_1a/Makefile b/mach/vax4/libbsd4_1a/Makefile index 6dd093d66..b38eda1aa 100644 --- a/mach/vax4/libbsd4_1a/Makefile +++ b/mach/vax4/libbsd4_1a/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: diff --git a/mach/vax4/libbsd4_1a/_exit.s b/mach/vax4/libbsd4_1a/_exit.s index 04e8e2412..7d4e559ee 100644 --- a/mach/vax4/libbsd4_1a/_exit.s +++ b/mach/vax4/libbsd4_1a/_exit.s @@ -1,8 +1,10 @@ -.globl __exit -.set exit,1 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define __exit +exit = 1 .align 1 __exit: - .word 0x0000 + .data2 0x0000 chmk $exit halt diff --git a/mach/vax4/libbsd4_1a/access.s b/mach/vax4/libbsd4_1a/access.s index 0c1baffd4..ca8ce9e36 100644 --- a/mach/vax4/libbsd4_1a/access.s +++ b/mach/vax4/libbsd4_1a/access.s @@ -1,9 +1,11 @@ -.globl _access -.set access,33 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _access +access = 33 .align 1 _access: - .word 0x0000 + .data2 0x0000 chmk $access bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/acct.s b/mach/vax4/libbsd4_1a/acct.s index f201d79fa..b90f3b1fe 100644 --- a/mach/vax4/libbsd4_1a/acct.s +++ b/mach/vax4/libbsd4_1a/acct.s @@ -1,9 +1,11 @@ -.globl _acct -.set acct,51 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _acct +acct = 51 .align 1 _acct: - .word 0x0000 + .data2 0x0000 chmk $acct bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/alarm.s b/mach/vax4/libbsd4_1a/alarm.s index b7079b5ce..cc57a7ae4 100644 --- a/mach/vax4/libbsd4_1a/alarm.s +++ b/mach/vax4/libbsd4_1a/alarm.s @@ -1,8 +1,10 @@ -.globl _alarm -.set alarm,27 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _alarm +alarm = 27 .align 1 _alarm: - .word 0x0000 + .data2 0x0000 chmk $alarm ret diff --git a/mach/vax4/libbsd4_1a/chdir.s b/mach/vax4/libbsd4_1a/chdir.s index 7bf11fd1e..d0ecb9f29 100644 --- a/mach/vax4/libbsd4_1a/chdir.s +++ b/mach/vax4/libbsd4_1a/chdir.s @@ -1,9 +1,11 @@ -.globl _chdir -.set chdir,12 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _chdir +chdir = 12 .align 1 _chdir: - .word 0x0000 + .data2 0x0000 chmk $chdir bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/chmod.s b/mach/vax4/libbsd4_1a/chmod.s index 9af97c3c6..f6f23cb0b 100644 --- a/mach/vax4/libbsd4_1a/chmod.s +++ b/mach/vax4/libbsd4_1a/chmod.s @@ -1,9 +1,11 @@ -.globl _chmod -.set chmod,15 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _chmod +chmod = 15 .align 1 _chmod: - .word 0x0000 + .data2 0x0000 chmk $chmod bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/chown.s b/mach/vax4/libbsd4_1a/chown.s index aa276df7d..a4d557943 100644 --- a/mach/vax4/libbsd4_1a/chown.s +++ b/mach/vax4/libbsd4_1a/chown.s @@ -1,9 +1,11 @@ -.globl _chown -.set chown,16 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _chown +chown = 16 .align 1 _chown: - .word 0x0000 + .data2 0x0000 chmk $chown bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/chroot.s b/mach/vax4/libbsd4_1a/chroot.s index 25c75d443..5cf47b10d 100644 --- a/mach/vax4/libbsd4_1a/chroot.s +++ b/mach/vax4/libbsd4_1a/chroot.s @@ -1,9 +1,11 @@ -.globl _chroot -.set chroot,61 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _chroot +chroot = 61 -.globl errmon +.define errmon _chroot: - .word 0x0000 + .data2 0x0000 chmk $chroot bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/close.s b/mach/vax4/libbsd4_1a/close.s index 743c9b06e..218450a5d 100644 --- a/mach/vax4/libbsd4_1a/close.s +++ b/mach/vax4/libbsd4_1a/close.s @@ -1,9 +1,11 @@ -.globl _close -.set close,6 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _close +close = 6 .align 1 _close: - .word 0x0000 + .data2 0x0000 chmk $close bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/creat.s b/mach/vax4/libbsd4_1a/creat.s index bee4615aa..9cc8f819e 100644 --- a/mach/vax4/libbsd4_1a/creat.s +++ b/mach/vax4/libbsd4_1a/creat.s @@ -1,9 +1,11 @@ -.globl _creat -.set creat,8 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _creat +creat = 8 .align 1 _creat: - .word 0x0000 + .data2 0x0000 chmk $creat bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/dup.s b/mach/vax4/libbsd4_1a/dup.s index c82e2a7b5..5ca9805d1 100644 --- a/mach/vax4/libbsd4_1a/dup.s +++ b/mach/vax4/libbsd4_1a/dup.s @@ -1,15 +1,17 @@ -.globl _dup -.globl _dup2 -.set dup,41 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _dup +.define _dup2 +dup = 41 .align 1 _dup: - .word 0x0000 + .data2 0x0000 brb 1f .align 1 _dup2: - .word 0x0000 + .data2 0x0000 bisb2 $0100,4(ap) 1: chmk $dup diff --git a/mach/vax4/libbsd4_1a/errmon.s b/mach/vax4/libbsd4_1a/errmon.s index dee150d63..d9859c681 100644 --- a/mach/vax4/libbsd4_1a/errmon.s +++ b/mach/vax4/libbsd4_1a/errmon.s @@ -1,4 +1,6 @@ -.globl errmon +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define errmon .comm _errno,4 .align 1 diff --git a/mach/vax4/libbsd4_1a/execl.s b/mach/vax4/libbsd4_1a/execl.s index e4016d9cc..ee83034ce 100644 --- a/mach/vax4/libbsd4_1a/execl.s +++ b/mach/vax4/libbsd4_1a/execl.s @@ -1,9 +1,11 @@ -.globl _execl -.globl _environ +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _execl +.define _environ .align 1 _execl: - .word 0x0000 + .data2 0x0000 pushl _environ pushab 8(ap) pushl 4(ap) diff --git a/mach/vax4/libbsd4_1a/execle.s b/mach/vax4/libbsd4_1a/execle.s index f206e6ace..943d7a74b 100644 --- a/mach/vax4/libbsd4_1a/execle.s +++ b/mach/vax4/libbsd4_1a/execle.s @@ -1,8 +1,10 @@ -.globl _execle +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _execle .align 1 _execle: - .word 0x0000 + .data2 0x0000 movl (ap),r0 pushl (ap)[r0] pushab 8(ap) diff --git a/mach/vax4/libbsd4_1a/execv.s b/mach/vax4/libbsd4_1a/execv.s index 2df3ad1c7..388916a26 100644 --- a/mach/vax4/libbsd4_1a/execv.s +++ b/mach/vax4/libbsd4_1a/execv.s @@ -1,9 +1,11 @@ -.globl _execv -.globl _environ +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _execv +.define _environ .align 1 _execv: - .word 0x0000 + .data2 0x0000 pushl _environ pushl 8(ap) pushl 4(ap) diff --git a/mach/vax4/libbsd4_1a/execve.s b/mach/vax4/libbsd4_1a/execve.s index a51c2a1b1..a647824c9 100644 --- a/mach/vax4/libbsd4_1a/execve.s +++ b/mach/vax4/libbsd4_1a/execve.s @@ -1,8 +1,10 @@ -.globl _execve -.set exec,59 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _execve +exec = 59 .align 1 _execve: - .word 0x0000 + .data2 0x0000 chmk $exec jmp errmon diff --git a/mach/vax4/libbsd4_1a/fork.s b/mach/vax4/libbsd4_1a/fork.s index 8ad3e9372..fb7c5a5df 100644 --- a/mach/vax4/libbsd4_1a/fork.s +++ b/mach/vax4/libbsd4_1a/fork.s @@ -1,9 +1,11 @@ -.globl _fork -.set fork,2 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _fork +fork = 2 .align 1 _fork: - .word 0x0000 + .data2 0x0000 chmk $fork bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/fstat.s b/mach/vax4/libbsd4_1a/fstat.s index b9fef791b..baf024923 100644 --- a/mach/vax4/libbsd4_1a/fstat.s +++ b/mach/vax4/libbsd4_1a/fstat.s @@ -1,9 +1,11 @@ -.globl _fstat -.set fstat,28 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _fstat +fstat = 28 .align 1 _fstat: - .word 0x0000 + .data2 0x0000 chmk $fstat bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/ftime.s b/mach/vax4/libbsd4_1a/ftime.s index ecf056017..6d2db11f4 100644 --- a/mach/vax4/libbsd4_1a/ftime.s +++ b/mach/vax4/libbsd4_1a/ftime.s @@ -1,8 +1,10 @@ -.globl _ftime -.set ftime,35 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _ftime +ftime = 35 .align 1 _ftime: - .word 0x0000 + .data2 0x0000 chmk $ftime ret diff --git a/mach/vax4/libbsd4_1a/getgid.s b/mach/vax4/libbsd4_1a/getgid.s index 55e936fde..dfd3d9b23 100644 --- a/mach/vax4/libbsd4_1a/getgid.s +++ b/mach/vax4/libbsd4_1a/getgid.s @@ -1,16 +1,18 @@ -.globl _getgid -.globl _getegid -.set getgid,47 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _getgid +.define _getegid +getgid = 47 .align 1 _getgid: - .word 0x0000 + .data2 0x0000 chmk $getgid ret .align 1 _getegid: - .word 0x0000 + .data2 0x0000 chmk $getgid movl r1,r0 ret diff --git a/mach/vax4/libbsd4_1a/getpid.s b/mach/vax4/libbsd4_1a/getpid.s index f1e14a681..9f77ea424 100644 --- a/mach/vax4/libbsd4_1a/getpid.s +++ b/mach/vax4/libbsd4_1a/getpid.s @@ -1,16 +1,18 @@ -.globl _getpid -.globl _getppid -.set getpid,20 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _getpid +.define _getppid +getpid = 20 .align 1 _getpid: - .word 0x0000 + .data2 0x0000 chmk $getpid ret .align 1 _getppid: - .word 0x0000 + .data2 0x0000 chmk $getpid movl r1,r0 ret diff --git a/mach/vax4/libbsd4_1a/getuid.s b/mach/vax4/libbsd4_1a/getuid.s index 5ec2af85d..259ec3ce1 100644 --- a/mach/vax4/libbsd4_1a/getuid.s +++ b/mach/vax4/libbsd4_1a/getuid.s @@ -1,16 +1,18 @@ -.globl _getuid -.globl _geteuid -.set getuid,24 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _getuid +.define _geteuid +getuid = 24 .align 1 _getuid: - .word 0x0000 + .data2 0x0000 chmk $getuid ret .align 1 _geteuid: - .word 0x0000 + .data2 0x0000 chmk $getuid movl r1,r0 ret diff --git a/mach/vax4/libbsd4_1a/head_em.s b/mach/vax4/libbsd4_1a/head_em.s index 2608535e4..6883871d4 100644 --- a/mach/vax4/libbsd4_1a/head_em.s +++ b/mach/vax4/libbsd4_1a/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 diff --git a/mach/vax4/libbsd4_1a/ioctl.s b/mach/vax4/libbsd4_1a/ioctl.s index e3e0d88d6..6f906bcce 100644 --- a/mach/vax4/libbsd4_1a/ioctl.s +++ b/mach/vax4/libbsd4_1a/ioctl.s @@ -1,9 +1,11 @@ -.globl _ioctl -.set ioctl,54 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _ioctl +ioctl = 54 .align 1 _ioctl: - .word 0x0000 + .data2 0x0000 chmk $ioctl bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/kill.s b/mach/vax4/libbsd4_1a/kill.s index 7a41a0fe8..c2296cfda 100644 --- a/mach/vax4/libbsd4_1a/kill.s +++ b/mach/vax4/libbsd4_1a/kill.s @@ -1,9 +1,11 @@ -.globl _kill -.set kill,37 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _kill +kill = 37 .align 1 _kill: - .word 0x0000 + .data2 0x0000 chmk $kill bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/link.s b/mach/vax4/libbsd4_1a/link.s index 2c6c35fb8..57e8de962 100644 --- a/mach/vax4/libbsd4_1a/link.s +++ b/mach/vax4/libbsd4_1a/link.s @@ -1,9 +1,11 @@ -.globl _link -.set link,9 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _link +link = 9 .align 1 _link: - .word 0x0000 + .data2 0x0000 chmk $link bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/lseek.s b/mach/vax4/libbsd4_1a/lseek.s index 2cae1d28a..5678dd858 100644 --- a/mach/vax4/libbsd4_1a/lseek.s +++ b/mach/vax4/libbsd4_1a/lseek.s @@ -1,9 +1,11 @@ -.globl _lseek -.set lseek,19 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _lseek +lseek = 19 .align 1 _lseek: - .word 0x0000 + .data2 0x0000 chmk $lseek bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/mknod.s b/mach/vax4/libbsd4_1a/mknod.s index e4c90f40e..f7eb1fedd 100644 --- a/mach/vax4/libbsd4_1a/mknod.s +++ b/mach/vax4/libbsd4_1a/mknod.s @@ -1,9 +1,11 @@ -.globl _mknod -.set mknod,14 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _mknod +mknod = 14 .align 1 _mknod: - .word 0x0000 + .data2 0x0000 chmk $mknod bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/mount.s b/mach/vax4/libbsd4_1a/mount.s index c803979bd..bf457ff89 100644 --- a/mach/vax4/libbsd4_1a/mount.s +++ b/mach/vax4/libbsd4_1a/mount.s @@ -1,9 +1,11 @@ -.globl _mount -.set mount,21 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _mount +mount = 21 .align 1 _mount: - .word 0x0000 + .data2 0x0000 chmk $mount bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/mpx.s b/mach/vax4/libbsd4_1a/mpx.s index 983d1f94e..9d5c84dca 100644 --- a/mach/vax4/libbsd4_1a/mpx.s +++ b/mach/vax4/libbsd4_1a/mpx.s @@ -1,9 +1,11 @@ -.set mpxcall,56 -.globl _mpxcall +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +mpxcall = 56 +.define _mpxcall .align 1 _mpxcall: - .word 0x0000 + .data2 0x0000 chmk $mpxcall bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/nice.s b/mach/vax4/libbsd4_1a/nice.s index 73c3c2979..51db619d0 100644 --- a/mach/vax4/libbsd4_1a/nice.s +++ b/mach/vax4/libbsd4_1a/nice.s @@ -1,9 +1,11 @@ -.globl _nice -.set nice,34 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _nice +nice = 34 .align 1 _nice: - .word 0x0000 + .data2 0x0000 chmk $nice bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/open.s b/mach/vax4/libbsd4_1a/open.s index a7cdf30f2..244c9d1ef 100644 --- a/mach/vax4/libbsd4_1a/open.s +++ b/mach/vax4/libbsd4_1a/open.s @@ -1,9 +1,11 @@ -.globl _open -.set open,5 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _open +open = 5 .align 1 _open: - .word 0x0000 + .data2 0x0000 chmk $open bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/pause.s b/mach/vax4/libbsd4_1a/pause.s index be98a1e27..0f1c1ae0a 100644 --- a/mach/vax4/libbsd4_1a/pause.s +++ b/mach/vax4/libbsd4_1a/pause.s @@ -1,8 +1,10 @@ -.globl _pause -.set pause,29 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _pause +pause = 29 .align 1 _pause: - .word 0x0000 + .data2 0x0000 chmk $pause ret diff --git a/mach/vax4/libbsd4_1a/pipe.s b/mach/vax4/libbsd4_1a/pipe.s index bcbf1b96b..1334647b8 100644 --- a/mach/vax4/libbsd4_1a/pipe.s +++ b/mach/vax4/libbsd4_1a/pipe.s @@ -1,9 +1,11 @@ -.globl _pipe -.set pipe,42 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _pipe +pipe = 42 .align 1 _pipe: - .word 0x0000 + .data2 0x0000 chmk $pipe bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/profil.s b/mach/vax4/libbsd4_1a/profil.s index c56b4d39c..ae41f43b1 100644 --- a/mach/vax4/libbsd4_1a/profil.s +++ b/mach/vax4/libbsd4_1a/profil.s @@ -1,8 +1,10 @@ -.globl _profil -.set profil,44 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _profil +profil = 44 .align 1 _profil: - .word 0x0000 + .data2 0x0000 chmk $profil ret diff --git a/mach/vax4/libbsd4_1a/ptrace.s b/mach/vax4/libbsd4_1a/ptrace.s index e60c12007..fef4ae66b 100644 --- a/mach/vax4/libbsd4_1a/ptrace.s +++ b/mach/vax4/libbsd4_1a/ptrace.s @@ -1,9 +1,11 @@ -.globl _ptrace -.set ptrace,26 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _ptrace +ptrace = 26 .align 1 _ptrace: - .word 0x0000 + .data2 0x0000 clrl _errno chmk $ptrace bcc 1f diff --git a/mach/vax4/libbsd4_1a/read.s b/mach/vax4/libbsd4_1a/read.s index c6ff6e38f..18ea86c27 100644 --- a/mach/vax4/libbsd4_1a/read.s +++ b/mach/vax4/libbsd4_1a/read.s @@ -1,9 +1,11 @@ -.globl _read -.set read,3 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _read +read = 3 .align 1 _read: - .word 0x0000 + .data2 0x0000 chmk $read bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/sbrk.s b/mach/vax4/libbsd4_1a/sbrk.s index 436da4015..045880515 100644 --- a/mach/vax4/libbsd4_1a/sbrk.s +++ b/mach/vax4/libbsd4_1a/sbrk.s @@ -1,16 +1,18 @@ -.set break,17 -.globl _sbrk -.globl _brk -.globl _end +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +break = 17 +.define _sbrk +.define _brk +.define _end .align 1 _sbrk: - .word 0x0000 - addl3 brk,4(ap),-(sp) + .data2 0x0000 + addl3 Ibrk,4(ap),-(sp) bcc 1f - movl $0xFFFFFFFF,(sp) # will cause an error (I hope) + movl $0xFFFFFFFF,(sp) ! will cause an error (I hope) 1: - movl brk,r3 + movl Ibrk,r3 calls $1,_brk tstl r0 blss 1f @@ -20,14 +22,14 @@ _sbrk: .align 1 _brk: - .word 0x0000 + .data2 0x0000 chmk $break bcc 1f jmp errmon 1: - movl 4(ap),brk + movl 4(ap),Ibrk clrl r0 ret -.data -brk: .long _end +.sect .data +Ibrk: .data4 _end diff --git a/mach/vax4/libbsd4_1a/setgid.s b/mach/vax4/libbsd4_1a/setgid.s index 86ced036e..a5a268f78 100644 --- a/mach/vax4/libbsd4_1a/setgid.s +++ b/mach/vax4/libbsd4_1a/setgid.s @@ -1,9 +1,11 @@ -.globl _setgid -.set setgid,46 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _setgid +setgid = 46 .align 1 _setgid: - .word 0x0000 + .data2 0x0000 chmk $setgid bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/setuid.s b/mach/vax4/libbsd4_1a/setuid.s index 8f3fe3880..a2792cf62 100644 --- a/mach/vax4/libbsd4_1a/setuid.s +++ b/mach/vax4/libbsd4_1a/setuid.s @@ -1,9 +1,11 @@ -.globl _setuid -.set setuid,23 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _setuid +setuid = 23 .align 1 _setuid: - .word 0x0000 + .data2 0x0000 chmk $setuid bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/signal.s b/mach/vax4/libbsd4_1a/signal.s index d416bffea..353ac30c0 100644 --- a/mach/vax4/libbsd4_1a/signal.s +++ b/mach/vax4/libbsd4_1a/signal.s @@ -1,9 +1,11 @@ -.globl _signal -.set signal,48 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _signal +signal = 48 .align 1 _signal: - .word 0x0000 + .data2 0x0000 chmk $signal bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/stat.s b/mach/vax4/libbsd4_1a/stat.s index e57a4ee35..e722ac65b 100644 --- a/mach/vax4/libbsd4_1a/stat.s +++ b/mach/vax4/libbsd4_1a/stat.s @@ -1,9 +1,11 @@ -.globl _stat -.set stat,18 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _stat +stat = 18 .align 1 _stat: - .word 0x0000 + .data2 0x0000 chmk $stat bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/stime.s b/mach/vax4/libbsd4_1a/stime.s index c8bcc2c3c..044e1e2c0 100644 --- a/mach/vax4/libbsd4_1a/stime.s +++ b/mach/vax4/libbsd4_1a/stime.s @@ -1,9 +1,11 @@ -.globl _stime -.set stime,25 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _stime +stime = 25 .align 1 _stime: - .word 0x0000 + .data2 0x0000 movl *4(ap),4(ap) chmk $stime bcc 1f diff --git a/mach/vax4/libbsd4_1a/sync.s b/mach/vax4/libbsd4_1a/sync.s index cdeaecd83..3639ce60d 100644 --- a/mach/vax4/libbsd4_1a/sync.s +++ b/mach/vax4/libbsd4_1a/sync.s @@ -1,8 +1,10 @@ -.globl _sync -.set sync,36 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _sync +sync = 36 .align 1 _sync: - .word 0x0000 + .data2 0x0000 chmk $sync ret diff --git a/mach/vax4/libbsd4_1a/syscall.s b/mach/vax4/libbsd4_1a/syscall.s index f0dbbc8ea..f97dff769 100644 --- a/mach/vax4/libbsd4_1a/syscall.s +++ b/mach/vax4/libbsd4_1a/syscall.s @@ -1,8 +1,10 @@ -.globl _syscall +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _syscall .align 1 _syscall: - .word 0x0000 + .data2 0x0000 movl 4(ap),r0 subl3 $1,(ap)+,(ap) chmk r0 diff --git a/mach/vax4/libbsd4_1a/time.s b/mach/vax4/libbsd4_1a/time.s index 912190330..bcdfdefd1 100644 --- a/mach/vax4/libbsd4_1a/time.s +++ b/mach/vax4/libbsd4_1a/time.s @@ -1,9 +1,11 @@ -.globl _time -.set time,13 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _time +time = 13 .align 1 _time: - .word 0x0000 + .data2 0x0000 chmk $time movl 4(ap),r1 beql 1f diff --git a/mach/vax4/libbsd4_1a/times.s b/mach/vax4/libbsd4_1a/times.s index 160117fb7..3b4ab8778 100644 --- a/mach/vax4/libbsd4_1a/times.s +++ b/mach/vax4/libbsd4_1a/times.s @@ -1,8 +1,10 @@ -.globl _times -.set times,43 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _times +times = 43 .align 1 _times: - .word 0x0000 + .data2 0x0000 chmk $times ret diff --git a/mach/vax4/libbsd4_1a/umask.s b/mach/vax4/libbsd4_1a/umask.s index 8f76038d1..e5daa84c5 100644 --- a/mach/vax4/libbsd4_1a/umask.s +++ b/mach/vax4/libbsd4_1a/umask.s @@ -1,9 +1,11 @@ -.globl _umask -.set umask,60 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _umask +umask = 60 .align 1 _umask: - .word 0x0000 + .data2 0x0000 chmk $umask bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/umount.s b/mach/vax4/libbsd4_1a/umount.s index 15667c0e3..d0c1bf946 100644 --- a/mach/vax4/libbsd4_1a/umount.s +++ b/mach/vax4/libbsd4_1a/umount.s @@ -1,9 +1,11 @@ -.globl _umount -.set umount,22 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _umount +umount = 22 .align 1 _umount: - .word 0x0000 + .data2 0x0000 chmk $umount bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/unlink.s b/mach/vax4/libbsd4_1a/unlink.s index 6b59e4b5e..d9d22b3f3 100644 --- a/mach/vax4/libbsd4_1a/unlink.s +++ b/mach/vax4/libbsd4_1a/unlink.s @@ -1,9 +1,11 @@ -.globl _unlink -.set unlink,10 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _unlink +unlink = 10 .align 1 _unlink: - .word 0x0000 + .data2 0x0000 chmk $unlink bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/utime.s b/mach/vax4/libbsd4_1a/utime.s index f8d9b4286..bc529c425 100644 --- a/mach/vax4/libbsd4_1a/utime.s +++ b/mach/vax4/libbsd4_1a/utime.s @@ -1,9 +1,11 @@ -.globl _utime -.set utime,30 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _utime +utime = 30 .align 1 _utime: - .word 0x0000 + .data2 0x0000 chmk $utime bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/vadvise.s b/mach/vax4/libbsd4_1a/vadvise.s index 3175f993b..d58b4fde3 100644 --- a/mach/vax4/libbsd4_1a/vadvise.s +++ b/mach/vax4/libbsd4_1a/vadvise.s @@ -1,9 +1,11 @@ -.set vadvise,72 -.globl _vadvise +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +vadvise = 72 +.define _vadvise .align 1 _vadvise: - .word 0x0000 + .data2 0x0000 chmk $vadvise bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/vfork.s b/mach/vax4/libbsd4_1a/vfork.s index b132e0498..93e1095ca 100644 --- a/mach/vax4/libbsd4_1a/vfork.s +++ b/mach/vax4/libbsd4_1a/vfork.s @@ -1,12 +1,14 @@ -.globl _vfork -.set vfork,66 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _vfork +vfork = 66 .align 1 _vfork: - .word 0x0000 + .data2 0x0000 movl 16(fp),r2 - movab 1f,16(fp) # dirty. Only one process can do return, - # so do it before forking + movab 1f,16(fp) ! dirty. Only one process can do return, + ! so do it before forking ret 1: chmk $vfork diff --git a/mach/vax4/libbsd4_1a/vhangup.s b/mach/vax4/libbsd4_1a/vhangup.s index 8c674d4a0..56fa9abca 100644 --- a/mach/vax4/libbsd4_1a/vhangup.s +++ b/mach/vax4/libbsd4_1a/vhangup.s @@ -1,8 +1,10 @@ -.globl _vhangup -.set vhangup,76 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _vhangup +vhangup = 76 .align 1 _vhangup: - .word 0x0000 + .data2 0x0000 chmk $vhangup ret diff --git a/mach/vax4/libbsd4_1a/vlimit.s b/mach/vax4/libbsd4_1a/vlimit.s index 8ce31948e..e26dd3a51 100644 --- a/mach/vax4/libbsd4_1a/vlimit.s +++ b/mach/vax4/libbsd4_1a/vlimit.s @@ -1,9 +1,11 @@ -.globl _vlimit -.set vlimit,77 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _vlimit +vlimit = 77 .align 1 _vlimit: - .word 0x0000 + .data2 0x0000 chmk $vlimit bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/vread.s b/mach/vax4/libbsd4_1a/vread.s index 622d3a881..d5a3332c6 100644 --- a/mach/vax4/libbsd4_1a/vread.s +++ b/mach/vax4/libbsd4_1a/vread.s @@ -1,9 +1,11 @@ -.globl _vread -.set vread,67 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _vread +vread = 67 .align 1 _vread: - .word 0x0000 + .data2 0x0000 chmk $vread bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/vtimes.s b/mach/vax4/libbsd4_1a/vtimes.s index 3e4792e85..93bc87bc3 100644 --- a/mach/vax4/libbsd4_1a/vtimes.s +++ b/mach/vax4/libbsd4_1a/vtimes.s @@ -1,8 +1,10 @@ -.globl _vtimes -.set vtimes,107 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _vtimes +vtimes = 107 .align 1 _vtimes: - .word 0x0000 + .data2 0x0000 chmk $vtimes ret diff --git a/mach/vax4/libbsd4_1a/vwait.s b/mach/vax4/libbsd4_1a/vwait.s index 4863d88b2..d0478f19e 100644 --- a/mach/vax4/libbsd4_1a/vwait.s +++ b/mach/vax4/libbsd4_1a/vwait.s @@ -1,9 +1,11 @@ -.globl _vwait -.set vwait,71 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _vwait +vwait = 71 .align 1 _vwait: - .word 0x0000 + .data2 0x0000 chmk $vwait bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/vwrite.s b/mach/vax4/libbsd4_1a/vwrite.s index 25b7997e4..1f476b485 100644 --- a/mach/vax4/libbsd4_1a/vwrite.s +++ b/mach/vax4/libbsd4_1a/vwrite.s @@ -1,9 +1,11 @@ -.globl _vwrite -.set vwrite,68 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _vwrite +vwrite = 68 .align 1 _vwrite: - .word 0x0000 + .data2 0x0000 chmk $vwrite bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/wait.s b/mach/vax4/libbsd4_1a/wait.s index 9962b0d45..14f725b9a 100644 --- a/mach/vax4/libbsd4_1a/wait.s +++ b/mach/vax4/libbsd4_1a/wait.s @@ -1,9 +1,11 @@ -.set wait,7 -.globl _wait +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +wait = 7 +.define _wait .align 1 _wait: - .word 0x0000 + .data2 0x0000 chmk $wait bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_1a/write.s b/mach/vax4/libbsd4_1a/write.s index 3c69d9585..9c71fd319 100644 --- a/mach/vax4/libbsd4_1a/write.s +++ b/mach/vax4/libbsd4_1a/write.s @@ -1,9 +1,11 @@ -.globl _write -.set write,4 +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _write +write = 4 .align 1 _write: - .word 0x0000 + .data2 0x0000 chmk $write bcc 1f jmp errmon diff --git a/mach/vax4/libbsd4_2/Makefile b/mach/vax4/libbsd4_2/Makefile index 92b9aaf63..5f89b13fa 100644 --- a/mach/vax4/libbsd4_2/Makefile +++ b/mach/vax4/libbsd4_2/Makefile @@ -17,8 +17,7 @@ head_em: head_em.s vax4 -I../../../h -c head_em.s ; mv head_em.o head_em tail_mon: - ASAR=ar ; export ASAR ;\ - RANLIB=ranlib ; export RANLIB ;\ + ASAR=aal ; export ASAR ;\ march . tail_mon clean: diff --git a/mach/vax4/libbsd4_2/brk.s b/mach/vax4/libbsd4_2/brk.s index 22020bc3e..bd7ba258e 100644 --- a/mach/vax4/libbsd4_2/brk.s +++ b/mach/vax4/libbsd4_2/brk.s @@ -1,29 +1,29 @@ #include "syscall.h" -.globl _end +.extern _end DEFINE(_brk) - cmpl 4(ap),min - bgeq ok - movl min,4(ap) -ok: + cmpl 4(ap),Imin + bgeq Iok + movl Imin,4(ap) +Iok: chmk $17 - bcs err - movl 4(ap),cur + bcs Ierr + movl 4(ap),Icur clrl r0 ret -err: +Ierr: jmp cerror DEFINE(_sbrk) addl3 cur,4(ap),-(sp) - bcs err + bcs Ierr pushl $1 movl ap,r3 movl sp,ap chmk $17 - bcs err - movl cur,r0 - addl2 4(r3),cur + bcs Ierr + movl Icur,r0 + addl2 4(r3),Icur ret -.data -min: .long _end -cur: .long _end +.sect .data +Imin: .data4 _end +Icur: .data4 _end diff --git a/mach/vax4/libbsd4_2/cerror.s b/mach/vax4/libbsd4_2/cerror.s index 35301151a..d67239426 100644 --- a/mach/vax4/libbsd4_2/cerror.s +++ b/mach/vax4/libbsd4_2/cerror.s @@ -1,8 +1,9 @@ - .globl _errno - .globl cerror +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define _errno +.define cerror .comm _errno, 4 cerror: movl r0,_errno mnegl $1,r0 ret - diff --git a/mach/vax4/libbsd4_2/execl.s b/mach/vax4/libbsd4_2/execl.s index 5bc463c78..e48e68b82 100644 --- a/mach/vax4/libbsd4_2/execl.s +++ b/mach/vax4/libbsd4_2/execl.s @@ -1,5 +1,5 @@ #include "syscall.h" -.globl _environ +.extern _environ DEFINE(_execl) pushl _environ pushab 8(ap) diff --git a/mach/vax4/libbsd4_2/execv.s b/mach/vax4/libbsd4_2/execv.s index d40da804a..51fee55f1 100644 --- a/mach/vax4/libbsd4_2/execv.s +++ b/mach/vax4/libbsd4_2/execv.s @@ -1,5 +1,5 @@ #include "syscall.h" -.globl _environ +.extern _environ DEFINE(_execv) pushl _environ pushl 8(ap) diff --git a/mach/vax4/libbsd4_2/fork.s b/mach/vax4/libbsd4_2/fork.s index 548ccc050..cce01c2ba 100644 --- a/mach/vax4/libbsd4_2/fork.s +++ b/mach/vax4/libbsd4_2/fork.s @@ -1,10 +1,10 @@ #include "syscall.h" DEFINE(_fork) chmk $SYS_fork - bcs err - jlbc r1,parent + bcs Ierr + blbc r1,Iparent clrl r0 -parent: +Iparent: ret -err: +Ierr: jmp cerror diff --git a/mach/vax4/libbsd4_2/head_em.s b/mach/vax4/libbsd4_2/head_em.s index b927c74f2..b78019a22 100644 --- a/mach/vax4/libbsd4_2/head_em.s +++ b/mach/vax4/libbsd4_2/head_em.s @@ -1,103 +1,104 @@ #include "em_abs.h" #include "syscall.h" - # $Header$ + ! $Header$ +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text +.define hol0 +.define .reghp +.define .trppc +.define .trpim -.globl hol0 -.globl .reghp -.globl .trppc -.globl .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 $m3,ap - chmk (ap)+ # restore default handler - movl $m5,ap - chmk (ap)+ # get current signal mask - bicl3 $0x80,r0,m4+6 # and remove the 8th bit - movl $m4,ap - chmk (ap)+ # and + movl $Im3,ap + chmk (ap)+ ! restore default handler + movl $Im5,ap + chmk (ap)+ ! get current signal mask + bicl3 $0x80,r0,Im4+6 ! and remove the 8th bit + movl $Im4,ap + chmk (ap)+ ! and movl (sp)+,ap - pushl tab [ap] + pushl Itab [ap] jsb .trp - movl $m1,ap + movl $Im1,ap chmk (ap)+ ret - .data -m1: - .word SYS_sigvec - .long 3 - .long 8 - .long m1a - .long 0 -m3: - .word SYS_sigvec - .long 3 - .long 8 - .long 0 - .long 0 -m4: - .word SYS_sigsetmask - .long 1 - .long 0 -m5: - .word SYS_sigblock - .long 1 - .long 0 -m1a: - .long sig8 - .long 0 - .long 0 -m2: - .word 1 - .long 1 - .long 0 + .sect .data +Im1: + .data2 SYS_sigvec + .data4 3 + .data4 8 + .data4 Im1a + .data4 0 +Im3: + .data2 SYS_sigvec + .data4 3 + .data4 8 + .data4 0 + .data4 0 +Im4: + .data2 SYS_sigsetmask + .data4 1 + .data4 0 +Im5: + .data2 SYS_sigblock + .data4 1 + .data4 0 +Im1a: + .data4 Isig8 + .data4 0 + .data4 0 +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 +Itab: + .data4 0 + .data4 EIOVFL + .data4 EIDIVZ + .data4 EFOVFL + .data4 EFDIVZ + .data4 EFUNFL + .data4 EILLINS + .data4 EARRAY + .data4 EFOVFL + .data4 EFDIVZ + .data4 EFUNFL diff --git a/mach/vax4/libbsd4_2/syscall.h b/mach/vax4/libbsd4_2/syscall.h index a66126b2d..826ec1796 100644 --- a/mach/vax4/libbsd4_2/syscall.h +++ b/mach/vax4/libbsd4_2/syscall.h @@ -3,9 +3,9 @@ * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands. * See the copyright notice in the ACK home directory, in the file "Copyright". */ -#define DEFINE(sysn) .globl sysn; .align 1; sysn: .word 0 -#define SYSTEM(sys) chmk $sys; bcs err; ret; err: jmp cerror -#define SYSNORET(sys) chmk $sys; bcc ok; jmp cerror; ok: +#define DEFINE(sysn) .define sysn; .align 1; sysn: .data2 0 +#define SYSTEM(sys) chmk $sys; bcs Ierr; ret; Ierr: jmp cerror +#define SYSNORET(sys) chmk $sys; bcc Iok; jmp cerror; Iok: #define SYS_exit 1 #define SYS_fork 2 #define SYS_read 3 @@ -122,3 +122,6 @@ #define SYS_quota 149 #define SYS_getsockname 150 #define SYS_getdirentries 156 + +.sect .text; .sect .rom; .sect .data; .sect .bss +.sect .text diff --git a/mach/vax4/libbsd4_2/syscall.s b/mach/vax4/libbsd4_2/syscall.s index 14be06506..f3f8d5cf6 100644 --- a/mach/vax4/libbsd4_2/syscall.s +++ b/mach/vax4/libbsd4_2/syscall.s @@ -3,7 +3,7 @@ DEFINE(_syscall) movl 4(ap),r0 subl3 $1,(ap)+,(ap) chmk r0 - bcs err + bcs Ierr ret -err: +Ierr: jmp cerror diff --git a/mach/vax4/libbsd4_2/vfork.s b/mach/vax4/libbsd4_2/vfork.s index 3f5a72107..508d0d861 100644 --- a/mach/vax4/libbsd4_2/vfork.s +++ b/mach/vax4/libbsd4_2/vfork.s @@ -1,17 +1,17 @@ #include "syscall.h" DEFINE(_vfork) movl 16(fp),r2 - movab newret,16(fp) - ret # cleans stack -newret: + movab Inewret,16(fp) + ret ! cleans stack +Inewret: chmk $SYS_vfork - bcs err + bcs Ierr tstl r1 - beql parent + beql Iparent clrl r0 -parent: +Iparent: jmp (r2) -err: +Ierr: movl r0,_errno mnegl $1,r0 jmp (r2) diff --git a/mach/vax4/libbsd4_2/wait.s b/mach/vax4/libbsd4_2/wait.s index 0807bdf69..58d0beaae 100644 --- a/mach/vax4/libbsd4_2/wait.s +++ b/mach/vax4/libbsd4_2/wait.s @@ -2,7 +2,7 @@ DEFINE(_wait) SYSNORET(SYS_wait) tstl 4(ap) - beql out + beql Iout movl r1,*4(ap) -out: +Iout: ret diff --git a/mach/vax4/libbsd4_2/wait3.s b/mach/vax4/libbsd4_2/wait3.s index 9ac2829dc..abd83535c 100644 --- a/mach/vax4/libbsd4_2/wait3.s +++ b/mach/vax4/libbsd4_2/wait3.s @@ -4,11 +4,11 @@ DEFINE(_wait3) movl 12(ap),r1 bispsw $0xf chmk $SYS_wait - bcs err + bcs Ierr tstl 4(ap) - beql out + beql Iout movl r1,*4(ap) -out: +Iout: ret -err: +Ierr: jmp cerror diff --git a/mach/vax4/libsysV_2/Makefile b/mach/vax4/libsysV_2/Makefile index 6dd093d66..b38eda1aa 100644 --- 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: diff --git a/mach/vax4/libsysV_2/_exit.s b/mach/vax4/libsysV_2/_exit.s index 6c041483d..012d136fe 100644 --- 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 diff --git a/mach/vax4/libsysV_2/access.s b/mach/vax4/libsysV_2/access.s index d3e253985..6489775e8 100644 --- 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 diff --git a/mach/vax4/libsysV_2/acct.s b/mach/vax4/libsysV_2/acct.s index dc0af6bb9..729d2208c 100644 --- 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 diff --git a/mach/vax4/libsysV_2/alarm.s b/mach/vax4/libsysV_2/alarm.s index f35a9814a..cba0d03b3 100644 --- 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 diff --git a/mach/vax4/libsysV_2/cerror.s b/mach/vax4/libsysV_2/cerror.s index 3c141fde3..14fdd365f 100644 --- 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 diff --git a/mach/vax4/libsysV_2/chdir.s b/mach/vax4/libsysV_2/chdir.s index 377630d14..ca03a4bb2 100644 --- 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 diff --git a/mach/vax4/libsysV_2/chmod.s b/mach/vax4/libsysV_2/chmod.s index 9166e55ab..9b7a6ad75 100644 --- 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 diff --git a/mach/vax4/libsysV_2/chown.s b/mach/vax4/libsysV_2/chown.s index a1fb9cf28..30fe5e32a 100644 --- 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 diff --git a/mach/vax4/libsysV_2/chroot.s b/mach/vax4/libsysV_2/chroot.s index 4d4aa008d..97dcb57c3 100644 --- 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 diff --git a/mach/vax4/libsysV_2/close.s b/mach/vax4/libsysV_2/close.s index 706ee2409..4e08f8a7a 100644 --- 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 diff --git a/mach/vax4/libsysV_2/creat.s b/mach/vax4/libsysV_2/creat.s index 34471d01f..11e29cf86 100644 --- 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 diff --git a/mach/vax4/libsysV_2/dup.s b/mach/vax4/libsysV_2/dup.s index eaa03752d..0640f86f9 100644 --- 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 diff --git a/mach/vax4/libsysV_2/execl.s b/mach/vax4/libsysV_2/execl.s index 32261327f..89ca4d916 100644 --- 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 diff --git a/mach/vax4/libsysV_2/execle.s b/mach/vax4/libsysV_2/execle.s index 8b6818254..37ff0bb58 100644 --- 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) diff --git a/mach/vax4/libsysV_2/execv.s b/mach/vax4/libsysV_2/execv.s index 60e4d874d..3e668d4f0 100644 --- 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) diff --git a/mach/vax4/libsysV_2/execve.s b/mach/vax4/libsysV_2/execve.s index d894740c5..acd5fdbf7 100644 --- 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 diff --git a/mach/vax4/libsysV_2/fcntl.s b/mach/vax4/libsysV_2/fcntl.s index 4ee161e2a..ad1be817e 100644 --- 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 diff --git a/mach/vax4/libsysV_2/fork.s b/mach/vax4/libsysV_2/fork.s index 296a97ace..280863125 100644 --- 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 diff --git a/mach/vax4/libsysV_2/fstat.s b/mach/vax4/libsysV_2/fstat.s index b3e8d256b..0dc4e5acb 100644 --- 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 diff --git a/mach/vax4/libsysV_2/getegid.s b/mach/vax4/libsysV_2/getegid.s index ab35f8495..9b471a199 100644 --- 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 diff --git a/mach/vax4/libsysV_2/geteuid.s b/mach/vax4/libsysV_2/geteuid.s index d5cd917e2..3502c1d9d 100644 --- 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 diff --git a/mach/vax4/libsysV_2/getgid.s b/mach/vax4/libsysV_2/getgid.s index 0dca6f3ce..6a7a881b0 100644 --- 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 diff --git a/mach/vax4/libsysV_2/getpid.s b/mach/vax4/libsysV_2/getpid.s index c51614c52..9613c8071 100644 --- 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 diff --git a/mach/vax4/libsysV_2/getppid.s b/mach/vax4/libsysV_2/getppid.s index 59bd5bbb0..e4e4637b6 100644 --- 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 diff --git a/mach/vax4/libsysV_2/getuid.s b/mach/vax4/libsysV_2/getuid.s index 1764ca314..e772dea2c 100644 --- 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 diff --git a/mach/vax4/libsysV_2/gtty.s b/mach/vax4/libsysV_2/gtty.s index 09ec15376..44ac80152 100644 --- 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 diff --git a/mach/vax4/libsysV_2/head_em.s b/mach/vax4/libsysV_2/head_em.s index 2608535e4..6883871d4 100644 --- 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 diff --git a/mach/vax4/libsysV_2/ioctl.s b/mach/vax4/libsysV_2/ioctl.s index 441282066..603c4f06d 100644 --- 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 diff --git a/mach/vax4/libsysV_2/kill.s b/mach/vax4/libsysV_2/kill.s index 48da70a69..139cad69f 100644 --- 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 diff --git a/mach/vax4/libsysV_2/link.s b/mach/vax4/libsysV_2/link.s index b2364f77b..094055dca 100644 --- 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 diff --git a/mach/vax4/libsysV_2/lseek.s b/mach/vax4/libsysV_2/lseek.s index 652bdabd4..b97071adc 100644 --- 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 diff --git a/mach/vax4/libsysV_2/mknod.s b/mach/vax4/libsysV_2/mknod.s index 5ed673fdf..6c95806eb 100644 --- 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 diff --git a/mach/vax4/libsysV_2/mount.s b/mach/vax4/libsysV_2/mount.s index 166368c51..40d95264f 100644 --- 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 diff --git a/mach/vax4/libsysV_2/msg.s b/mach/vax4/libsysV_2/msg.s index 43e614e4b..15bc50069 100644 --- 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 diff --git a/mach/vax4/libsysV_2/nexect.s b/mach/vax4/libsysV_2/nexect.s index 148fdb949..6afeb8b4b 100644 --- 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 diff --git a/mach/vax4/libsysV_2/nice.s b/mach/vax4/libsysV_2/nice.s index a3d29e9f3..35c62dd9f 100644 --- 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 diff --git a/mach/vax4/libsysV_2/open.s b/mach/vax4/libsysV_2/open.s index 3a1d0c400..6a0852d4e 100644 --- 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 diff --git a/mach/vax4/libsysV_2/pause.s b/mach/vax4/libsysV_2/pause.s index 71b04b8c0..d38cc928f 100644 --- 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 diff --git a/mach/vax4/libsysV_2/pipe.s b/mach/vax4/libsysV_2/pipe.s index 49a577c47..d3521945d 100644 --- 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) diff --git a/mach/vax4/libsysV_2/plock.s b/mach/vax4/libsysV_2/plock.s index ddc2d390a..d9f9ca3c3 100644 --- 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 diff --git a/mach/vax4/libsysV_2/profil.s b/mach/vax4/libsysV_2/profil.s index 5dc9f5479..a8f8591e2 100644 --- 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 diff --git a/mach/vax4/libsysV_2/ptrace.s b/mach/vax4/libsysV_2/ptrace.s index 65f4eb8cd..5d8e1e9c4 100644 --- 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 diff --git a/mach/vax4/libsysV_2/read.s b/mach/vax4/libsysV_2/read.s index 749813317..805d0c335 100644 --- 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 diff --git a/mach/vax4/libsysV_2/sbrk.s b/mach/vax4/libsysV_2/sbrk.s index 3c952cb88..3195bce0e 100644 --- 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 diff --git a/mach/vax4/libsysV_2/sem.s b/mach/vax4/libsysV_2/sem.s index 2f996c1d3..f23acd1ea 100644 --- 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 diff --git a/mach/vax4/libsysV_2/setgid.s b/mach/vax4/libsysV_2/setgid.s index 7d84e5c28..43dbc55a7 100644 --- 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 diff --git a/mach/vax4/libsysV_2/setpgrp.s b/mach/vax4/libsysV_2/setpgrp.s index c86f36645..eb63fc972 100644 --- 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 diff --git a/mach/vax4/libsysV_2/setuid.s b/mach/vax4/libsysV_2/setuid.s index 66592999d..19bc926ae 100644 --- 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 diff --git a/mach/vax4/libsysV_2/shm.s b/mach/vax4/libsysV_2/shm.s index 132f5b395..ccbec9658 100644 --- 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 diff --git a/mach/vax4/libsysV_2/signal.s b/mach/vax4/libsysV_2/signal.s index 241de2050..0ec93a192 100644 --- 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 diff --git a/mach/vax4/libsysV_2/stat.s b/mach/vax4/libsysV_2/stat.s index 82785b1df..47541976f 100644 --- 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 diff --git a/mach/vax4/libsysV_2/stime.s b/mach/vax4/libsysV_2/stime.s index 9c3267023..71fb4db60 100644 --- 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 diff --git a/mach/vax4/libsysV_2/stty.s b/mach/vax4/libsysV_2/stty.s index d752cab4a..a56f7e13f 100644 --- 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 diff --git a/mach/vax4/libsysV_2/sync.s b/mach/vax4/libsysV_2/sync.s index 60b9ae47b..056985495 100644 --- 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 diff --git a/mach/vax4/libsysV_2/syscall.s b/mach/vax4/libsysV_2/syscall.s index 45e6a7f9e..6ba5f210d 100644 --- 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 diff --git a/mach/vax4/libsysV_2/time.s b/mach/vax4/libsysV_2/time.s index f719a312f..4d13aed6f 100644 --- 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 diff --git a/mach/vax4/libsysV_2/times.s b/mach/vax4/libsysV_2/times.s index bdbbc75ca..7c9bd65b0 100644 --- 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 diff --git a/mach/vax4/libsysV_2/ulimit.s b/mach/vax4/libsysV_2/ulimit.s index fa60ea07c..950369b9a 100644 --- 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 diff --git a/mach/vax4/libsysV_2/umask.s b/mach/vax4/libsysV_2/umask.s index add8702e6..e12449aa1 100644 --- 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 diff --git a/mach/vax4/libsysV_2/umount.s b/mach/vax4/libsysV_2/umount.s index 2a6d2305c..8f6b9ee23 100644 --- 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 diff --git a/mach/vax4/libsysV_2/uname.s b/mach/vax4/libsysV_2/uname.s index 409f4e754..afd6dbd5b 100644 --- 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 diff --git a/mach/vax4/libsysV_2/unlink.s b/mach/vax4/libsysV_2/unlink.s index f57b642fd..23818be17 100644 --- 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 diff --git a/mach/vax4/libsysV_2/ustat.s b/mach/vax4/libsysV_2/ustat.s index 14c867db8..16d42a826 100644 --- 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 diff --git a/mach/vax4/libsysV_2/utime.s b/mach/vax4/libsysV_2/utime.s index d3683dd61..e0a6acc7f 100644 --- 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 diff --git a/mach/vax4/libsysV_2/wait.s b/mach/vax4/libsysV_2/wait.s index f58b668eb..c9dbb13da 100644 --- 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 diff --git a/mach/vax4/libsysV_2/write.s b/mach/vax4/libsysV_2/write.s index f697cbebd..f3a2f181e 100644 --- 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