From: ceriel <none@none>
Date: Fri, 19 Jan 1990 17:37:29 +0000 (+0000)
Subject: Added entry points for ANSI C
X-Git-Tag: release-5-5~1917
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=66327ddda6c5bcd36e1778a0fab1c84fcffb7d09;p=ack.git

Added entry points for ANSI C
---

diff --git a/mach/xenix3/libsys/LIST b/mach/xenix3/libsys/LIST
index ccfa5a130..c96389e5d 100644
--- a/mach/xenix3/libsys/LIST
+++ b/mach/xenix3/libsys/LIST
@@ -14,13 +14,6 @@ sdget.c
 stime.c
 time.c
 wait.c
-_exit.s
-_pipe.s
-_profil.s
-_sdget.s
-_stime.s
-_time.s
-_wait.s
 access.s
 acct.s
 alarm.s
@@ -85,4 +78,34 @@ ustat.s
 utime.s
 waitsem.s
 write.s
+_Xpipe.s
+_Xwait.s
+_alarm.s
+_brk.s
+_close.s
+_dup2.c
+_execl.c
+_execve.s
+_exit.s
+_fork.s
+_fstat.s
+_ftime.s
+_getpid.s
+_gtty.c
+_ioctl.s
+_kill.s
+_link.s
+_lseek.s
+_open.s
+_pause.s
+_pipe.c
+_profil.s
+_read.s
+_sbrk.s
+_sdget.s
+_stime.s
+_time.s
+_unlink.s
+_wait.c
+_write.s
 xdup.s
diff --git a/mach/xenix3/libsys/_Xpipe.s b/mach/xenix3/libsys/_Xpipe.s
new file mode 100644
index 000000000..67902844f
--- /dev/null
+++ b/mach/xenix3/libsys/_Xpipe.s
@@ -0,0 +1,13 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __Xpipe
+.sect .text
+__Xpipe:
+	mov	ax,42
+	call	syscal
+	mov	dx,bx
+	jae	1f
+	mov	(_errno),ax
+	mov	ax,-1
+	cwd
+1:
+	ret
diff --git a/mach/xenix3/libsys/_Xwait.s b/mach/xenix3/libsys/_Xwait.s
new file mode 100644
index 000000000..0391b52cc
--- /dev/null
+++ b/mach/xenix3/libsys/_Xwait.s
@@ -0,0 +1,13 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __Xwait
+.sect .text
+__Xwait:
+	mov	ax,7
+	call	syscal
+	mov	dx,bx
+	jae	1f
+	mov	(_errno),ax
+	mov	ax,-1
+	cwd
+1:
+	ret
diff --git a/mach/xenix3/libsys/_alarm.s b/mach/xenix3/libsys/_alarm.s
new file mode 100644
index 000000000..49927801b
--- /dev/null
+++ b/mach/xenix3/libsys/_alarm.s
@@ -0,0 +1,11 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __alarm
+.sect .text
+__alarm:
+	mov	ax,27
+	push	bp
+	mov	bp,sp
+	mov	bx,4(bp)
+	call	syscal
+	pop	bp
+	ret
diff --git a/mach/xenix3/libsys/_brk.s b/mach/xenix3/libsys/_brk.s
new file mode 100644
index 000000000..23e2e647e
--- /dev/null
+++ b/mach/xenix3/libsys/_brk.s
@@ -0,0 +1,6 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __brk
+.sect .text
+__brk:
+	mov	ax,17
+	jmp	sysal
diff --git a/mach/xenix3/libsys/_close.s b/mach/xenix3/libsys/_close.s
new file mode 100644
index 000000000..7738e92ec
--- /dev/null
+++ b/mach/xenix3/libsys/_close.s
@@ -0,0 +1,6 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __close
+.sect .text
+__close:
+	mov	ax,6
+	jmp	sysal
diff --git a/mach/xenix3/libsys/_dup2.c b/mach/xenix3/libsys/_dup2.c
new file mode 100644
index 000000000..b3106b20e
--- /dev/null
+++ b/mach/xenix3/libsys/_dup2.c
@@ -0,0 +1,6 @@
+int
+_dup2(oldd, newd)
+{
+	oldd |= 64;
+	return __xdup(oldd, newd);
+}
diff --git a/mach/xenix3/libsys/_execl.c b/mach/xenix3/libsys/_execl.c
new file mode 100644
index 000000000..bddc42abd
--- /dev/null
+++ b/mach/xenix3/libsys/_execl.c
@@ -0,0 +1,9 @@
+int
+_execl(name,args)
+	char *name;
+	int args;
+{
+	extern char **environ;
+
+	return _execve(name,&args,environ);
+}
diff --git a/mach/xenix3/libsys/_execve.s b/mach/xenix3/libsys/_execve.s
new file mode 100644
index 000000000..17a5a8795
--- /dev/null
+++ b/mach/xenix3/libsys/_execve.s
@@ -0,0 +1,19 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __execve
+.sect .text
+__execve:
+	mov	ax,59
+	push	bp
+	mov	bp,sp
+	push	si
+	mov	si,8(bp)
+	mov	cx,6(bp)
+	mov	bx,4(bp)
+	call	syscal
+	pop	si
+	jae	1f
+	mov	(_errno),ax
+	mov	ax,-1
+1:
+	pop	bp
+	ret
diff --git a/mach/xenix3/libsys/_fork.s b/mach/xenix3/libsys/_fork.s
new file mode 100644
index 000000000..a86c7f545
--- /dev/null
+++ b/mach/xenix3/libsys/_fork.s
@@ -0,0 +1,20 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __fork, _par_uid
+.sect .bss
+.comm	_par_uid, 2
+.sect .text
+__fork:
+	mov	ax,2
+	call	syscal
+	jb	1f
+	and	bx,bx
+	je	2f
+	ret
+1:
+	mov	(_errno),ax
+	mov	ax,-1
+	ret
+2:
+	mov	(_par_uid),ax
+	xor	ax,ax
+	ret
diff --git a/mach/xenix3/libsys/_fstat.s b/mach/xenix3/libsys/_fstat.s
new file mode 100644
index 000000000..f905fea03
--- /dev/null
+++ b/mach/xenix3/libsys/_fstat.s
@@ -0,0 +1,6 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __fstat
+.sect .text
+__fstat:
+	mov	ax,28
+	jmp	sysal
diff --git a/mach/xenix3/libsys/_ftime.s b/mach/xenix3/libsys/_ftime.s
new file mode 100644
index 000000000..342500b65
--- /dev/null
+++ b/mach/xenix3/libsys/_ftime.s
@@ -0,0 +1,12 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __ftime
+.sect .text
+__ftime:
+	mov	ax,2856
+	push	bp
+	mov	bp,sp
+	mov	bx,4(bp)
+	call	syscal
+	pop	bp
+	ret
+
diff --git a/mach/xenix3/libsys/_getpid.s b/mach/xenix3/libsys/_getpid.s
new file mode 100644
index 000000000..2e0a01ec3
--- /dev/null
+++ b/mach/xenix3/libsys/_getpid.s
@@ -0,0 +1,7 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __getpid
+.sect .text
+__getpid:
+	mov	ax,20
+	call	syscal
+	ret
diff --git a/mach/xenix3/libsys/_gtty.c b/mach/xenix3/libsys/_gtty.c
new file mode 100644
index 000000000..336ab97b8
--- /dev/null
+++ b/mach/xenix3/libsys/_gtty.c
@@ -0,0 +1,5 @@
+_gtty(fildes, arg)
+	char *arg;
+{
+	return _ioctl(fildes, ('t' << 8) | 8, arg);
+}
diff --git a/mach/xenix3/libsys/_ioctl.s b/mach/xenix3/libsys/_ioctl.s
new file mode 100644
index 000000000..c0ba68a75
--- /dev/null
+++ b/mach/xenix3/libsys/_ioctl.s
@@ -0,0 +1,6 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __ioctl
+.sect .text
+__ioctl:
+	mov	ax,54
+	jmp	sysal
diff --git a/mach/xenix3/libsys/_kill.s b/mach/xenix3/libsys/_kill.s
new file mode 100644
index 000000000..4947ecd96
--- /dev/null
+++ b/mach/xenix3/libsys/_kill.s
@@ -0,0 +1,6 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __kill
+.sect .text
+__kill:
+	mov	ax,37
+	jmp	sysal
diff --git a/mach/xenix3/libsys/_link.s b/mach/xenix3/libsys/_link.s
new file mode 100644
index 000000000..f759c2d49
--- /dev/null
+++ b/mach/xenix3/libsys/_link.s
@@ -0,0 +1,6 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __link
+.sect .text
+__link:
+	mov	ax,9
+	jmp	sysal
diff --git a/mach/xenix3/libsys/_lseek.s b/mach/xenix3/libsys/_lseek.s
new file mode 100644
index 000000000..9fc2d5723
--- /dev/null
+++ b/mach/xenix3/libsys/_lseek.s
@@ -0,0 +1,25 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __lseek
+.sect .text
+__lseek:
+	mov	ax,19
+	push	bp
+	mov	bp,sp
+	push	si
+	push	di
+	mov	di,10(bp)
+	mov	si,8(bp)
+	mov	cx,6(bp)
+	mov	bx,4(bp)
+	call	syscal
+	pop	di
+	pop	si
+	pop	bp
+	jae	1f
+	mov	(_errno),ax
+	mov	ax,-1
+	mov	dx,ax
+	ret
+1:
+	mov	dx,bx
+	ret
diff --git a/mach/xenix3/libsys/_open.s b/mach/xenix3/libsys/_open.s
new file mode 100644
index 000000000..ebedde07c
--- /dev/null
+++ b/mach/xenix3/libsys/_open.s
@@ -0,0 +1,6 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __open
+.sect .text
+__open:
+	mov	ax,5
+	jmp	sysal
diff --git a/mach/xenix3/libsys/_pause.s b/mach/xenix3/libsys/_pause.s
new file mode 100644
index 000000000..5dfb67558
--- /dev/null
+++ b/mach/xenix3/libsys/_pause.s
@@ -0,0 +1,11 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __pause
+.sect .text
+__pause:
+	mov	ax,29
+	call	syscal
+	jae	1f
+	mov	(_errno),ax
+	mov	ax,-1
+1:
+	ret
diff --git a/mach/xenix3/libsys/_pipe.c b/mach/xenix3/libsys/_pipe.c
new file mode 100644
index 000000000..7430cec02
--- /dev/null
+++ b/mach/xenix3/libsys/_pipe.c
@@ -0,0 +1,14 @@
+long _Xpipe();
+
+int
+_pipe(f)
+	int f[2];
+{
+	long x;
+
+	x = _Xpipe();
+	if (x == -1) return -1;
+	f[0] = x;
+	f[1] = x >> 16;
+	return 0;
+}
diff --git a/mach/xenix3/libsys/_read.s b/mach/xenix3/libsys/_read.s
new file mode 100644
index 000000000..04b5cddca
--- /dev/null
+++ b/mach/xenix3/libsys/_read.s
@@ -0,0 +1,6 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __read
+.sect .text
+__read:
+	mov	ax,3
+	jmp	sysal
diff --git a/mach/xenix3/libsys/_sbrk.s b/mach/xenix3/libsys/_sbrk.s
new file mode 100644
index 000000000..af08b7f30
--- /dev/null
+++ b/mach/xenix3/libsys/_sbrk.s
@@ -0,0 +1,22 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __sbrk
+.sect .text
+__sbrk:
+	push	bp
+	mov	bp,sp
+	push	ds
+	mov	ax,4(bp)
+	cwd
+	push	dx
+	push	ax
+	mov	ax,1
+	push	ax
+	call	__brkctl
+	add	sp,8
+	pop	bp
+	ret
+
+
+__brkctl:
+	mov	ax,4904
+	jmp	sysal
diff --git a/mach/xenix3/libsys/_unlink.s b/mach/xenix3/libsys/_unlink.s
new file mode 100644
index 000000000..00ba01d3f
--- /dev/null
+++ b/mach/xenix3/libsys/_unlink.s
@@ -0,0 +1,6 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __unlink
+.sect .text
+__unlink:
+	mov	ax,10
+	jmp	sysal
diff --git a/mach/xenix3/libsys/_wait.c b/mach/xenix3/libsys/_wait.c
new file mode 100644
index 000000000..a671c40bc
--- /dev/null
+++ b/mach/xenix3/libsys/_wait.c
@@ -0,0 +1,10 @@
+long _Xwait();
+_wait(p)
+	int *p;
+{
+	long l = _Xwait();
+
+	if (l == -1) return -1;
+	if (p) *p = (l >> 16);
+	return (int) l;
+}
diff --git a/mach/xenix3/libsys/_write.s b/mach/xenix3/libsys/_write.s
new file mode 100644
index 000000000..cea1deb91
--- /dev/null
+++ b/mach/xenix3/libsys/_write.s
@@ -0,0 +1,6 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define __write
+.sect .text
+__write:
+	mov	ax,4
+	jmp	sysal
diff --git a/mach/xenix3/libsys/pipe.c b/mach/xenix3/libsys/pipe.c
index fa38108f9..7b9046513 100644
--- a/mach/xenix3/libsys/pipe.c
+++ b/mach/xenix3/libsys/pipe.c
@@ -1,14 +1,6 @@
-long _pipe();
-
 int
 pipe(f)
 	int f[2];
 {
-	long x;
-
-	x = _pipe();
-	if (x == -1) return -1;
-	f[0] = x;
-	f[1] = x >> 16;
-	return 0;
+	return _pipe(f);
 }
diff --git a/mach/xenix3/libsys/wait.c b/mach/xenix3/libsys/wait.c
index 0a76175da..5221ba2cf 100644
--- a/mach/xenix3/libsys/wait.c
+++ b/mach/xenix3/libsys/wait.c
@@ -1,11 +1,5 @@
-long _wait();
-
 wait(p)
 	int *p;
 {
-	long l = _wait();
-
-	if (l == -1) return -1;
-	if (p) *p = (l >> 16);
-	return (int) l;
+	return _wait(p);
 }