Adapted for use of ACK VAX assembler
authorceriel <none@none>
Thu, 11 Jan 1990 16:00:19 +0000 (16:00 +0000)
committerceriel <none@none>
Thu, 11 Jan 1990 16:00:19 +0000 (16:00 +0000)
141 files changed:
mach/vax4/libbsd4_1a/Makefile
mach/vax4/libbsd4_1a/_exit.s
mach/vax4/libbsd4_1a/access.s
mach/vax4/libbsd4_1a/acct.s
mach/vax4/libbsd4_1a/alarm.s
mach/vax4/libbsd4_1a/chdir.s
mach/vax4/libbsd4_1a/chmod.s
mach/vax4/libbsd4_1a/chown.s
mach/vax4/libbsd4_1a/chroot.s
mach/vax4/libbsd4_1a/close.s
mach/vax4/libbsd4_1a/creat.s
mach/vax4/libbsd4_1a/dup.s
mach/vax4/libbsd4_1a/errmon.s
mach/vax4/libbsd4_1a/execl.s
mach/vax4/libbsd4_1a/execle.s
mach/vax4/libbsd4_1a/execv.s
mach/vax4/libbsd4_1a/execve.s
mach/vax4/libbsd4_1a/fork.s
mach/vax4/libbsd4_1a/fstat.s
mach/vax4/libbsd4_1a/ftime.s
mach/vax4/libbsd4_1a/getgid.s
mach/vax4/libbsd4_1a/getpid.s
mach/vax4/libbsd4_1a/getuid.s
mach/vax4/libbsd4_1a/head_em.s
mach/vax4/libbsd4_1a/ioctl.s
mach/vax4/libbsd4_1a/kill.s
mach/vax4/libbsd4_1a/link.s
mach/vax4/libbsd4_1a/lseek.s
mach/vax4/libbsd4_1a/mknod.s
mach/vax4/libbsd4_1a/mount.s
mach/vax4/libbsd4_1a/mpx.s
mach/vax4/libbsd4_1a/nice.s
mach/vax4/libbsd4_1a/open.s
mach/vax4/libbsd4_1a/pause.s
mach/vax4/libbsd4_1a/pipe.s
mach/vax4/libbsd4_1a/profil.s
mach/vax4/libbsd4_1a/ptrace.s
mach/vax4/libbsd4_1a/read.s
mach/vax4/libbsd4_1a/sbrk.s
mach/vax4/libbsd4_1a/setgid.s
mach/vax4/libbsd4_1a/setuid.s
mach/vax4/libbsd4_1a/signal.s
mach/vax4/libbsd4_1a/stat.s
mach/vax4/libbsd4_1a/stime.s
mach/vax4/libbsd4_1a/sync.s
mach/vax4/libbsd4_1a/syscall.s
mach/vax4/libbsd4_1a/time.s
mach/vax4/libbsd4_1a/times.s
mach/vax4/libbsd4_1a/umask.s
mach/vax4/libbsd4_1a/umount.s
mach/vax4/libbsd4_1a/unlink.s
mach/vax4/libbsd4_1a/utime.s
mach/vax4/libbsd4_1a/vadvise.s
mach/vax4/libbsd4_1a/vfork.s
mach/vax4/libbsd4_1a/vhangup.s
mach/vax4/libbsd4_1a/vlimit.s
mach/vax4/libbsd4_1a/vread.s
mach/vax4/libbsd4_1a/vtimes.s
mach/vax4/libbsd4_1a/vwait.s
mach/vax4/libbsd4_1a/vwrite.s
mach/vax4/libbsd4_1a/wait.s
mach/vax4/libbsd4_1a/write.s
mach/vax4/libbsd4_2/Makefile
mach/vax4/libbsd4_2/brk.s
mach/vax4/libbsd4_2/cerror.s
mach/vax4/libbsd4_2/execl.s
mach/vax4/libbsd4_2/execv.s
mach/vax4/libbsd4_2/fork.s
mach/vax4/libbsd4_2/head_em.s
mach/vax4/libbsd4_2/syscall.h
mach/vax4/libbsd4_2/syscall.s
mach/vax4/libbsd4_2/vfork.s
mach/vax4/libbsd4_2/wait.s
mach/vax4/libbsd4_2/wait3.s
mach/vax4/libsysV_2/Makefile
mach/vax4/libsysV_2/_exit.s
mach/vax4/libsysV_2/access.s
mach/vax4/libsysV_2/acct.s
mach/vax4/libsysV_2/alarm.s
mach/vax4/libsysV_2/cerror.s
mach/vax4/libsysV_2/chdir.s
mach/vax4/libsysV_2/chmod.s
mach/vax4/libsysV_2/chown.s
mach/vax4/libsysV_2/chroot.s
mach/vax4/libsysV_2/close.s
mach/vax4/libsysV_2/creat.s
mach/vax4/libsysV_2/dup.s
mach/vax4/libsysV_2/execl.s
mach/vax4/libsysV_2/execle.s
mach/vax4/libsysV_2/execv.s
mach/vax4/libsysV_2/execve.s
mach/vax4/libsysV_2/fcntl.s
mach/vax4/libsysV_2/fork.s
mach/vax4/libsysV_2/fstat.s
mach/vax4/libsysV_2/getegid.s
mach/vax4/libsysV_2/geteuid.s
mach/vax4/libsysV_2/getgid.s
mach/vax4/libsysV_2/getpid.s
mach/vax4/libsysV_2/getppid.s
mach/vax4/libsysV_2/getuid.s
mach/vax4/libsysV_2/gtty.s
mach/vax4/libsysV_2/head_em.s
mach/vax4/libsysV_2/ioctl.s
mach/vax4/libsysV_2/kill.s
mach/vax4/libsysV_2/link.s
mach/vax4/libsysV_2/lseek.s
mach/vax4/libsysV_2/mknod.s
mach/vax4/libsysV_2/mount.s
mach/vax4/libsysV_2/msg.s
mach/vax4/libsysV_2/nexect.s
mach/vax4/libsysV_2/nice.s
mach/vax4/libsysV_2/open.s
mach/vax4/libsysV_2/pause.s
mach/vax4/libsysV_2/pipe.s
mach/vax4/libsysV_2/plock.s
mach/vax4/libsysV_2/profil.s
mach/vax4/libsysV_2/ptrace.s
mach/vax4/libsysV_2/read.s
mach/vax4/libsysV_2/sbrk.s
mach/vax4/libsysV_2/sem.s
mach/vax4/libsysV_2/setgid.s
mach/vax4/libsysV_2/setpgrp.s
mach/vax4/libsysV_2/setuid.s
mach/vax4/libsysV_2/shm.s
mach/vax4/libsysV_2/signal.s
mach/vax4/libsysV_2/stat.s
mach/vax4/libsysV_2/stime.s
mach/vax4/libsysV_2/stty.s
mach/vax4/libsysV_2/sync.s
mach/vax4/libsysV_2/syscall.s
mach/vax4/libsysV_2/time.s
mach/vax4/libsysV_2/times.s
mach/vax4/libsysV_2/ulimit.s
mach/vax4/libsysV_2/umask.s
mach/vax4/libsysV_2/umount.s
mach/vax4/libsysV_2/uname.s
mach/vax4/libsysV_2/unlink.s
mach/vax4/libsysV_2/ustat.s
mach/vax4/libsysV_2/utime.s
mach/vax4/libsysV_2/wait.s
mach/vax4/libsysV_2/write.s

index 6dd093d..b38eda1 100644 (file)
@@ -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:
index 04e8e24..7d4e559 100644 (file)
@@ -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
index 0c1baff..ca8ce9e 100644 (file)
@@ -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
index f201d79..b90f3b1 100644 (file)
@@ -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
index b7079b5..cc57a7a 100644 (file)
@@ -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
index 7bf11fd..d0ecb9f 100644 (file)
@@ -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
index 9af97c3..f6f23cb 100644 (file)
@@ -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
index aa276df..a4d5579 100644 (file)
@@ -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
index 25c75d4..5cf47b1 100644 (file)
@@ -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
index 743c9b0..218450a 100644 (file)
@@ -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
index bee4615..9cc8f81 100644 (file)
@@ -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
index c82e2a7..5ca9805 100644 (file)
@@ -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
index dee150d..d9859c6 100644 (file)
@@ -1,4 +1,6 @@
-.globl errmon
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+.define        errmon
 .comm  _errno,4
 
 .align 1
index e4016d9..ee83034 100644 (file)
@@ -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)
index f206e6a..943d7a7 100644 (file)
@@ -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)
index 2df3ad1..388916a 100644 (file)
@@ -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)
index a51c2a1..a647824 100644 (file)
@@ -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
index 8ad3e93..fb7c5a5 100644 (file)
@@ -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
index b9fef79..baf0249 100644 (file)
@@ -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
index ecf0560..6d2db11 100644 (file)
@@ -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
index 55e936f..dfd3d9b 100644 (file)
@@ -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
index f1e14a6..9f77ea4 100644 (file)
@@ -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
index 5ec2af8..259ec3c 100644 (file)
@@ -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
index 2608535..6883871 100644 (file)
@@ -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
index e3e0d88..6f906bc 100644 (file)
@@ -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
index 7a41a0f..c2296cf 100644 (file)
@@ -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
index 2c6c35f..57e8de9 100644 (file)
@@ -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
index 2cae1d2..5678dd8 100644 (file)
@@ -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
index e4c90f4..f7eb1fe 100644 (file)
@@ -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
index c803979..bf457ff 100644 (file)
@@ -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
index 983d1f9..9d5c84d 100644 (file)
@@ -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
index 73c3c29..51db619 100644 (file)
@@ -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
index a7cdf30..244c9d1 100644 (file)
@@ -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
index be98a1e..0f1c1ae 100644 (file)
@@ -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
index bcbf1b9..1334647 100644 (file)
@@ -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
index c56b4d3..ae41f43 100644 (file)
@@ -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
index e60c120..fef4ae6 100644 (file)
@@ -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
index c6ff6e3..18ea86c 100644 (file)
@@ -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
index 436da40..0458805 100644 (file)
@@ -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
index 86ced03..a5a268f 100644 (file)
@@ -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
index 8f3fe38..a2792cf 100644 (file)
@@ -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
index d416bff..353ac30 100644 (file)
@@ -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
index e57a4ee..e722ac6 100644 (file)
@@ -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
index c8bcc2c..044e1e2 100644 (file)
@@ -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
index cdeaecd..3639ce6 100644 (file)
@@ -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
index f0dbbc8..f97dff7 100644 (file)
@@ -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
index 9121903..bcdfdef 100644 (file)
@@ -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
index 160117f..3b4ab87 100644 (file)
@@ -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
index 8f76038..e5daa84 100644 (file)
@@ -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
index 15667c0..d0c1bf9 100644 (file)
@@ -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
index 6b59e4b..d9d22b3 100644 (file)
@@ -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
index f8d9b42..bc529c4 100644 (file)
@@ -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
index 3175f99..d58b4fd 100644 (file)
@@ -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
index b132e04..93e1095 100644 (file)
@@ -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
index 8c674d4..56fa9ab 100644 (file)
@@ -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
index 8ce3194..e26dd3a 100644 (file)
@@ -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
index 622d3a8..d5a3332 100644 (file)
@@ -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
index 3e4792e..93bc87b 100644 (file)
@@ -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
index 4863d88..d0478f1 100644 (file)
@@ -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
index 25b7997..1f476b4 100644 (file)
@@ -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
index 9962b0d..14f725b 100644 (file)
@@ -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
index 3c69d95..9c71fd3 100644 (file)
@@ -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
index 92b9aaf..5f89b13 100644 (file)
@@ -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:
index 22020bc..bd7ba25 100644 (file)
@@ -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
index 3530115..d672394 100644 (file)
@@ -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
-
index 5bc463c..e48e68b 100644 (file)
@@ -1,5 +1,5 @@
 #include "syscall.h"
-.globl _environ
+.extern        _environ
 DEFINE(_execl)
        pushl   _environ
        pushab  8(ap)
index d40da80..51fee55 100644 (file)
@@ -1,5 +1,5 @@
 #include "syscall.h"
-.globl _environ
+.extern        _environ
 DEFINE(_execv)
        pushl   _environ
        pushl   8(ap)
index 548ccc0..cce01c2 100644 (file)
@@ -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
index b927c74..b78019a 100644 (file)
 #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
index a66126b..826ec17 100644 (file)
@@ -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
 #define SYS_quota 149
 #define SYS_getsockname 150
 #define SYS_getdirentries 156
+
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
index 14be065..f3f8d5c 100644 (file)
@@ -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
index 3f5a721..508d0d8 100644 (file)
@@ -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)
index 0807bdf..58d0bea 100644 (file)
@@ -2,7 +2,7 @@
 DEFINE(_wait)
 SYSNORET(SYS_wait)
        tstl    4(ap)
-       beql    out
+       beql    Iout
        movl    r1,*4(ap)
-out:
+Iout:
        ret
index 9ac2829..abd8353 100644 (file)
@@ -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
index 6dd093d..b38eda1 100644 (file)
@@ -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:
index 6c04148..012d136 100644 (file)
@@ -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
index d3e2539..6489775 100644 (file)
@@ -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
index dc0af6b..729d220 100644 (file)
@@ -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
index f35a981..cba0d03 100644 (file)
@@ -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
index 3c141fd..14fdd36 100644 (file)
@@ -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
index 377630d..ca03a4b 100644 (file)
@@ -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
index 9166e55..9b7a6ad 100644 (file)
@@ -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
index a1fb9cf..30fe5e3 100644 (file)
@@ -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
index 4d4aa00..97dcb57 100644 (file)
@@ -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
index 706ee24..4e08f8a 100644 (file)
@@ -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
index 34471d0..11e29cf 100644 (file)
@@ -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
index eaa0375..0640f86 100644 (file)
@@ -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
index 3226132..89ca4d9 100644 (file)
@@ -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
index 8b68182..37ff0bb 100644 (file)
@@ -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)
index 60e4d87..3e668d4 100644 (file)
@@ -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)
index d894740..acd5fdb 100644 (file)
@@ -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
index 4ee161e..ad1be81 100644 (file)
@@ -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
index 296a97a..2808631 100644 (file)
@@ -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
index b3e8d25..0dc4e5a 100644 (file)
@@ -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
index ab35f84..9b471a1 100644 (file)
@@ -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
index d5cd917..3502c1d 100644 (file)
@@ -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
index 0dca6f3..6a7a881 100644 (file)
@@ -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
index c51614c..9613c80 100644 (file)
@@ -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
index 59bd5bb..e4e4637 100644 (file)
@@ -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
index 1764ca3..e772dea 100644 (file)
@@ -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
index 09ec153..44ac801 100644 (file)
@@ -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
index 2608535..6883871 100644 (file)
@@ -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
index 4412820..603c4f0 100644 (file)
@@ -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
index 48da70a..139cad6 100644 (file)
@@ -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
index b2364f7..094055d 100644 (file)
@@ -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
index 652bdab..b97071a 100644 (file)
@@ -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
index 5ed673f..6c95806 100644 (file)
@@ -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
index 166368c..40d9526 100644 (file)
@@ -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
index 43e614e..15bc500 100644 (file)
@@ -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
index 148fdb9..6afeb8b 100644 (file)
@@ -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
index a3d29e9..35c62dd 100644 (file)
@@ -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
index 3a1d0c4..6a0852d 100644 (file)
@@ -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
index 71b04b8..d38cc92 100644 (file)
@@ -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
index 49a577c..d352194 100644 (file)
@@ -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)
index ddc2d39..d9f9ca3 100644 (file)
@@ -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
index 5dc9f54..a8f8591 100644 (file)
@@ -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
index 65f4eb8..5d8e1e9 100644 (file)
@@ -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
index 7498133..805d0c3 100644 (file)
@@ -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
index 3c952cb..3195bce 100644 (file)
@@ -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
index 2f996c1..f23acd1 100644 (file)
@@ -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
index 7d84e5c..43dbc55 100644 (file)
@@ -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
index c86f366..eb63fc9 100644 (file)
@@ -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
index 6659299..19bc926 100644 (file)
@@ -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
index 132f5b3..ccbec96 100644 (file)
@@ -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
index 241de20..0ec93a1 100644 (file)
@@ -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
index 82785b1..4754197 100644 (file)
@@ -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
index 9c32670..71fb4db 100644 (file)
@@ -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
index d752cab..a56f7e1 100644 (file)
@@ -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
index 60b9ae4..0569854 100644 (file)
@@ -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
index 45e6a7f..6ba5f21 100644 (file)
@@ -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
index f719a31..4d13aed 100644 (file)
@@ -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
index bdbbc75..7c9bd65 100644 (file)
@@ -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
index fa60ea0..950369b 100644 (file)
@@ -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
index add8702..e12449a 100644 (file)
@@ -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
index 2a6d230..8f6b9ee 100644 (file)
@@ -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
index 409f4e7..afd6dbd 100644 (file)
@@ -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
index f57b642..23818be 100644 (file)
@@ -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
index 14c867d..16d42a8 100644 (file)
@@ -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
index d3683dd..e0a6acc 100644 (file)
@@ -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
index f58b668..c9dbb13 100644 (file)
@@ -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
index f697cbe..f3a2f18 100644 (file)
@@ -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