Added entry points for ANSI C

diff --git a/mach/mantra/libsys/LIST b/mach/mantra/libsys/LIST
index 1a21ff8..9d14868 100644 (file)
--- a/mach/mantra/libsys/LIST
+++ b/mach/mantra/libsys/LIST
@@ -1,6 +1,5 @@
 libmon_s.a
 exit.s
-_exit.s
 access.s
 acct.s
 alarm.s
@@ -62,3 +61,32 @@ syscall.s
 call.s
 cleanup.s
 errno.s
+_alarm.s
+_brk.s
+_close.s
+_creat.s
+_dup.s
+_dup2.s
+_execl.s
+_execve.s
+_exit.s
+_fcntl.s
+_fork.s
+_fstat.s
+_ftime.s
+_getpid.s
+_gtty.s
+_ioctl.s
+_kill.s
+_link.s
+_lseek.s
+_open.s
+_pause.s
+_pipe.s
+_read.s
+_stty.s
+_time.s
+_times.s
+_unlink.s
+_wait.s
+_write.s

diff --git a/mach/mantra/libsys/_alarm.s b/mach/mantra/libsys/_alarm.s
new file mode 100644 (file)
index 0000000..b0d8d92
--- /dev/null
+++ b/mach/mantra/libsys/_alarm.s
@@ -0,0 +1,12 @@
+.define __alarm
+.extern __alarm
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__alarm:
+               move.l 4(sp),a0
+               move.l #0x1B,d0
+               trap #0
+               rts

diff --git a/mach/mantra/libsys/_brk.s b/mach/mantra/libsys/_brk.s
new file mode 100644 (file)
index 0000000..6ddf33f
--- /dev/null
+++ b/mach/mantra/libsys/_brk.s
@@ -0,0 +1,25 @@
+.define __brk
+.define __sbrk
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__sbrk:                move.l .limhp,a0
+               add.l  4(sp),a0
+               move.l #0x11,d0
+               trap #0
+               bcs Icerror
+               move.l .limhp,d0
+               move.l d0,a0
+               add.l  4(sp),a0
+               move.l a0,.limhp
+               rts
+Icerror:       jmp cerror
+__brk:         move.l #0x11,d0
+               move.l 4(sp),a0
+               trap #0
+               bcs Icerror
+               move.l 4(sp),.limhp
+               clr.l d0
+               rts

diff --git a/mach/mantra/libsys/_close.s b/mach/mantra/libsys/_close.s
new file mode 100644 (file)
index 0000000..9944023
--- /dev/null
+++ b/mach/mantra/libsys/_close.s
@@ -0,0 +1,10 @@
+.define __close
+.extern __close
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__close:               move.l #0x6,d0
+               move.l 4(sp),a0
+               jmp callc

diff --git a/mach/mantra/libsys/_creat.s b/mach/mantra/libsys/_creat.s
new file mode 100644 (file)
index 0000000..0bf7db7
--- /dev/null
+++ b/mach/mantra/libsys/_creat.s
@@ -0,0 +1,11 @@
+.define __creat
+.extern __creat
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__creat:               move.l #0x8,d0
+               move.l 4(sp),a0
+               move.l 8(sp),d1
+               jmp call

diff --git a/mach/mantra/libsys/_dup.s b/mach/mantra/libsys/_dup.s
new file mode 100644 (file)
index 0000000..db5e803
--- /dev/null
+++ b/mach/mantra/libsys/_dup.s
@@ -0,0 +1,10 @@
+.define __dup
+.extern __dup
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__dup:         move.l #0x29,d0
+               move.l 4(sp),a0
+               jmp call

diff --git a/mach/mantra/libsys/_dup2.s b/mach/mantra/libsys/_dup2.s
new file mode 100644 (file)
index 0000000..1a7d683
--- /dev/null
+++ b/mach/mantra/libsys/_dup2.s
@@ -0,0 +1,17 @@
+.define __dup2
+.extern __dup2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__dup2:
+tst.b -40(sp)
+link   a6,#-0
+move.l 12(a6),-(sp)
+move.l #0,-(sp)
+move.l 8(a6),-(sp)
+jsr __fcntl
+add.l #12,sp
+unlk a6
+rts

diff --git a/mach/mantra/libsys/_execl.s b/mach/mantra/libsys/_execl.s
new file mode 100644 (file)
index 0000000..017370e
--- /dev/null
+++ b/mach/mantra/libsys/_execl.s
@@ -0,0 +1,16 @@
+.define __execl
+.extern __execl
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__execl:               link a6,#0
+               tst.b -132(sp)
+               move.l _environ,-(sp)
+               pea 12(a6)
+               move.l 8(a6),-(sp)
+               jsr __execve
+               add.l #0xC,sp
+               unlk a6
+               rts

diff --git a/mach/mantra/libsys/_execve.s b/mach/mantra/libsys/_execve.s
new file mode 100644 (file)
index 0000000..4a42f24
--- /dev/null
+++ b/mach/mantra/libsys/_execve.s
@@ -0,0 +1,12 @@
+.define __execve
+.extern __execve
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__execve:      move.l #0x3B,d0
+               move.l 4(sp),a0
+               move.l 8(sp),d1
+               move.l 12(sp),a1
+               jmp calle

diff --git a/mach/mantra/libsys/_fcntl.s b/mach/mantra/libsys/_fcntl.s
new file mode 100644 (file)
index 0000000..7b61a2c
--- /dev/null
+++ b/mach/mantra/libsys/_fcntl.s
@@ -0,0 +1,12 @@
+.define __fcntl
+.extern __fcntl
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__fcntl:               move.l #0x3E,d0
+               move.l 4(sp),a0
+               move.l 8(sp),d1
+               move.l 12(sp),a1
+               jmp callc

diff --git a/mach/mantra/libsys/_fork.s b/mach/mantra/libsys/_fork.s
new file mode 100644 (file)
index 0000000..bf8f1db
--- /dev/null
+++ b/mach/mantra/libsys/_fork.s
@@ -0,0 +1,17 @@
+.define __fork
+.extern __fork
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__fork:                move.l #0x2,d0
+               trap #0
+               bra 1f
+               bcc 2f
+               jmp cerror
+1:
+               !move.l d0,p_uid
+               clr.l d0
+2:
+               rts

diff --git a/mach/mantra/libsys/_fstat.s b/mach/mantra/libsys/_fstat.s
new file mode 100644 (file)
index 0000000..48ec96e
--- /dev/null
+++ b/mach/mantra/libsys/_fstat.s
@@ -0,0 +1,11 @@
+.define __fstat
+.extern __fstat
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__fstat:               move.l  #0x1C,d0
+               move.l  4(sp),a0
+               move.l  8(sp),d1
+               jmp callc

diff --git a/mach/mantra/libsys/_ftime.s b/mach/mantra/libsys/_ftime.s
new file mode 100644 (file)
index 0000000..85f0133
--- /dev/null
+++ b/mach/mantra/libsys/_ftime.s
@@ -0,0 +1,16 @@
+.define __ftime
+.extern __ftime
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__ftime:               clr.l -(sp)
+               jsr __time
+               lea 4(sp),sp
+               move.l 4(sp),a0
+               move.l d0,(a0)
+               clr.l 4(a0)
+               clr.w 8(a0)
+               clr.l d0
+               rts

diff --git a/mach/mantra/libsys/_getpid.s b/mach/mantra/libsys/_getpid.s
new file mode 100644 (file)
index 0000000..6337be7
--- /dev/null
+++ b/mach/mantra/libsys/_getpid.s
@@ -0,0 +1,10 @@
+.define __getpid
+.extern __getpid
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__getpid:      move.l #0x14,d0
+               trap #0
+               rts

diff --git a/mach/mantra/libsys/_gtty.s b/mach/mantra/libsys/_gtty.s
new file mode 100644 (file)
index 0000000..fa42d83
--- /dev/null
+++ b/mach/mantra/libsys/_gtty.s
@@ -0,0 +1,17 @@
+.define __gtty
+.extern __gtty
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__gtty:
+tst.b -40(sp)
+link   a6,#-0
+move.l 12(a6),-(sp)
+move.l #29704,-(sp)
+move.l 8(a6),-(sp)
+jsr __ioctl
+add.l #12,sp
+unlk a6
+rts

diff --git a/mach/mantra/libsys/_ioctl.s b/mach/mantra/libsys/_ioctl.s
new file mode 100644 (file)
index 0000000..aa5110a
--- /dev/null
+++ b/mach/mantra/libsys/_ioctl.s
@@ -0,0 +1,12 @@
+.define __ioctl
+.extern __ioctl
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__ioctl:               move.l #0x36,d0
+               move.l 4(sp),a0
+               move.l 8(sp),d1
+               move.l 12(sp),a1
+               jmp callc

diff --git a/mach/mantra/libsys/_kill.s b/mach/mantra/libsys/_kill.s
new file mode 100644 (file)
index 0000000..8873ec4
--- /dev/null
+++ b/mach/mantra/libsys/_kill.s
@@ -0,0 +1,11 @@
+.define __kill
+.extern __kill
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__kill:                move.l #0x25,d0
+               move.l 4(sp),a0
+               move.l 6(sp),d1
+               jmp callc

diff --git a/mach/mantra/libsys/_link.s b/mach/mantra/libsys/_link.s
new file mode 100644 (file)
index 0000000..d87fd29
--- /dev/null
+++ b/mach/mantra/libsys/_link.s
@@ -0,0 +1,11 @@
+.define __link
+.extern __link
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__link:                move.l #0x9,d0
+               move.l 4(sp),a0
+               move.l 8(sp),d1
+               jmp callc

diff --git a/mach/mantra/libsys/_lseek.s b/mach/mantra/libsys/_lseek.s
new file mode 100644 (file)
index 0000000..64a8bee
--- /dev/null
+++ b/mach/mantra/libsys/_lseek.s
@@ -0,0 +1,12 @@
+.define __lseek
+.extern __lseek
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__lseek:               move.l #0x13,d0
+               move.l 4(sp),a0
+               move.l 8(sp),d1
+               move.l 12(sp),a1
+               jmp call

diff --git a/mach/mantra/libsys/_open.s b/mach/mantra/libsys/_open.s
new file mode 100644 (file)
index 0000000..24c8738
--- /dev/null
+++ b/mach/mantra/libsys/_open.s
@@ -0,0 +1,11 @@
+.define __open
+.extern __open
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__open:                move.l #0x5,d0
+               move.l 4(sp),a0
+               move.l 8(sp),d1
+               jmp call

diff --git a/mach/mantra/libsys/_pause.s b/mach/mantra/libsys/_pause.s
new file mode 100644 (file)
index 0000000..0a3ca43
--- /dev/null
+++ b/mach/mantra/libsys/_pause.s
@@ -0,0 +1,10 @@
+.define __pause
+.extern __pause
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__pause:               move.l #0x1D,d0
+               trap #0
+               rts

diff --git a/mach/mantra/libsys/_pipe.s b/mach/mantra/libsys/_pipe.s
new file mode 100644 (file)
index 0000000..d50254a
--- /dev/null
+++ b/mach/mantra/libsys/_pipe.s
@@ -0,0 +1,18 @@
+.define __pipe
+.extern __pipe
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__pipe:                
+               move.l #0x2A,d0
+               trap #0
+               bcc 1f
+               jmp cerror
+1:
+               move.l 4(sp),a0
+               move.l d0,(a0)+
+               move.l d1,(a0)
+               clr.l d0
+               rts

diff --git a/mach/mantra/libsys/_read.s b/mach/mantra/libsys/_read.s
new file mode 100644 (file)
index 0000000..6da3d60
--- /dev/null
+++ b/mach/mantra/libsys/_read.s
@@ -0,0 +1,12 @@
+.define __read
+.extern __read
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__read:                move.l #0x3,d0
+               move.l 4(sp),a0
+               move.l 8(sp),d1
+               move.l 12(sp),a1
+               jmp call

diff --git a/mach/mantra/libsys/_stty.s b/mach/mantra/libsys/_stty.s
new file mode 100644 (file)
index 0000000..1bb3898
--- /dev/null
+++ b/mach/mantra/libsys/_stty.s
@@ -0,0 +1,17 @@
+.define __stty
+.extern __stty
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__stty:
+tst.b -40(sp)
+link   a6,#-0
+move.l 12(a6),-(sp)
+move.l #29705,-(sp)
+move.l 8(a6),-(sp)
+jsr __ioctl
+add.l #12,sp
+unlk a6
+rts

diff --git a/mach/mantra/libsys/_time.s b/mach/mantra/libsys/_time.s
new file mode 100644 (file)
index 0000000..4c7f615
--- /dev/null
+++ b/mach/mantra/libsys/_time.s
@@ -0,0 +1,15 @@
+.define __time
+.extern __time
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__time:                move.l #0xD,d0
+               trap #0
+               tst.l 4(sp)
+               beq 1f
+               move.l 4(sp),a0
+               move.l d0,(a0)
+1:
+               rts

diff --git a/mach/mantra/libsys/_times.s b/mach/mantra/libsys/_times.s
new file mode 100644 (file)
index 0000000..7072695
--- /dev/null
+++ b/mach/mantra/libsys/_times.s
@@ -0,0 +1,11 @@
+.define __times
+.extern __times
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__times:               move.l #0x2B,d0
+               move.l 4(sp),a0
+               trap #0
+               rts

diff --git a/mach/mantra/libsys/_unlink.s b/mach/mantra/libsys/_unlink.s
new file mode 100644 (file)
index 0000000..c22feff
--- /dev/null
+++ b/mach/mantra/libsys/_unlink.s
@@ -0,0 +1,10 @@
+.define __unlink
+.extern __unlink
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__unlink:      move.l #0xA,d0
+               move.l 4(sp),a0
+               jmp callc

diff --git a/mach/mantra/libsys/_wait.s b/mach/mantra/libsys/_wait.s
new file mode 100644 (file)
index 0000000..e6efc71
--- /dev/null
+++ b/mach/mantra/libsys/_wait.s
@@ -0,0 +1,17 @@
+.define __wait
+.extern __wait
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__wait:                move.l  #0x7,d0
+               move.l  4(sp),a0
+               trap #0
+               bcs cerror
+               tst.l 4(sp)
+               beq 1f
+               move.l 4(sp),a0
+               move.l d1,(a0)
+1:
+               rts

diff --git a/mach/mantra/libsys/_write.s b/mach/mantra/libsys/_write.s
new file mode 100644 (file)
index 0000000..6cc63ea
--- /dev/null
+++ b/mach/mantra/libsys/_write.s
@@ -0,0 +1,12 @@
+.define __write
+.extern __write
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+__write:               move.l #0x4,d0
+               move.l 4(sp),a0
+               move.l 8(sp),d1
+               move.l 12(sp),a1
+               jmp call

diff --git a/mach/mantra/libsys/brk.s b/mach/mantra/libsys/brk.s
index aceb347..07fae0c 100644 (file)
--- a/mach/mantra/libsys/brk.s
+++ b/mach/mantra/libsys/brk.s
@@ -1,31 +1,25 @@
 .define _brk
 .define _sbrk
-.extern _brk
-.extern _sbrk
 .sect .text
 .sect .rom
 .sect .data
 .sect .bss
 .sect .text
-_sbrk:         move.l nd,a0
+_sbrk:         move.l .limhp,a0
                add.l  4(sp),a0
                move.l #0x11,d0
                trap #0
-               bcs lcerror
-               move.l nd,d0
+               bcs Icerror
+               move.l .limhp,d0
                move.l d0,a0
                add.l  4(sp),a0
-               move.l a0,nd
+               move.l a0,.limhp
                rts
-lcerror:       jmp cerror
+Icerror:       jmp cerror
 _brk:          move.l #0x11,d0
                move.l 4(sp),a0
                trap #0
-               bcs lcerror
-               move.l 4(sp),nd
+               bcs Icerror
+               move.l 4(sp),.limhp
                clr.l d0
                rts
-.sect .data
-nd:
-       .data4  endbss
-.sect .text