untested

WEGA/src/lib/libc/sys/fcntl.s

@@ -0,0 +1,18 @@
+fcntl module
+
+  external
+    _cerror
+
+  global
+    fcntl procedure
+      entry
+	ld	r0,r7
+	ld	r1,r6
+	ld	r2,r5
+	xor	r4,r4
+	sc	#38
+	ld	r2,r4
+	ret	nc
+	jp	cerror
+    end fcntl
+end fcntl

WEGA/src/lib/libc/sys/fork.s

@@ -0,0 +1,23 @@
+fork module
+
+  internal
+    _par_uid
+      word    :=2
+
+  external
+    _cerror
+
+  global
+    fork procedure
+      entry
+	sc	#2
+	jr	uid
+	ld	r2,r4
+	ret	nc
+	jp	cerror
+uid:
+	ld	_par_uid,r4
+	xorg	r2,r2
+	ret
+    end fork
+end fork

WEGA/src/lib/libc/sys/fstat.s

@@ -0,0 +1,17 @@
+fstat module
+
+  external
+    _cerror
+
+  global
+    fstat procedure
+      entry
+	ld	r0,r7
+	ld	r1,r6
+	xor	r4,r4
+	sc	#28
+	ld	r2,r4
+	ret	nc
+	jp	cerror
+    end fstat
+end fstat

WEGA/src/lib/libc/sys/getegid.s

@@ -0,0 +1,10 @@
+getegid module
+
+  global
+    getegid procedure
+      entry
+	sc	#47
+	ld	r2,r5
+	ret
+    end getegid
+end getegid

WEGA/src/lib/libc/sys/geteuid.s

@@ -0,0 +1,10 @@
+geteuid module
+
+  global
+    geteuid procedure
+      entry
+	sc	#24
+	ld	r2,r5
+	ret
+    end geteuid
+end geteuid

WEGA/src/lib/libc/sys/getgid.s

@@ -0,0 +1,10 @@
+getgid module
+
+  global
+    getgid procedure
+      entry
+	sc	#47
+	ld	r2,r4
+	ret
+    end getgid
+end getgid

WEGA/src/lib/libc/sys/getpid.s

@@ -0,0 +1,10 @@
+getpid module
+
+  global
+    getpid procedure
+      entry
+	sc	#20
+	ld	r2,r4
+	ret
+    end getpid
+end getpid

WEGA/src/lib/libc/sys/getppid.s

@@ -0,0 +1,12 @@
+getppid module
+
+  global
+    getppid procedure
+      entry
+	xor	r4,r4
+	xor	r5,r5
+	sc	#20
+	ld	r2,r5
+	ret
+    end getppid
+end getppid

WEGA/src/lib/libc/sys/getuid.s

@@ -0,0 +1,10 @@
+getuid module
+
+  global
+    getuid procedure
+      entry
+	sc	#24
+	ld	r2,r4
+	ret
+    end getuid
+end getuid

WEGA/src/lib/libc/sys/ioctl.s

@@ -0,0 +1,18 @@
+ioctl module
+
+  external
+    _cerror
+
+  global
+    ioctl procedure
+      entry
+	ld	r0,r7
+	ld	r1,r6
+	ld	r2,r5
+	xor	r4,r4
+	sc	#54
+	ld	r2,r4
+	ret	nc
+	jp	cerror
+    end ioctl
+end ioctl

WEGA/src/lib/libc/sys/kill.s

@@ -0,0 +1,17 @@
+kill module
+
+  external
+    _cerror
+
+  global
+    kill procedure
+      entry
+	ld	r0,r7
+	ld	r1,r6
+	xor	r4,r4
+	sc	#37
+	ld	r2,r4
+	ret	nc
+	jp	cerror
+    end kill
+end kill

WEGA/src/lib/libc/sys/link.s

@@ -0,0 +1,17 @@
+link module
+
+  external
+    _cerror
+
+  global
+    link procedure
+      entry
+	ld	r0,r7
+	ld	r1,r6
+	xor	r4,r4
+	sc	#9
+	ld	r2,r4
+	ret	nc
+	jp	cerror
+    end link
+end link

WEGA/src/lib/libc/sys/lseek.s

@@ -0,0 +1,18 @@
+lseek module
+
+  external
+    _cerror
+
+  global
+    lseek procedure
+      entry
+	ld	r0,r7
+	ld	r1,r4
+	ld	r2,r5
+	subl	rr4,rr4
+	sc	#19
+	ldl	rr2,rr4
+	ret	nc
+	jp	cerror
+    end lseek
+end lseek