From 74d11e30ace128b048476458d59177d14c2f3a82 Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Wed, 14 Mar 1990 12:01:39 +0000
Subject: [PATCH] add LCC - a better C-Compiler for WEGA

---
 WEGA/contrib/lcc/lib/libc/u8k/sys/fcntl.s | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 WEGA/contrib/lcc/lib/libc/u8k/sys/fcntl.s

diff --git a/WEGA/contrib/lcc/lib/libc/u8k/sys/fcntl.s b/WEGA/contrib/lcc/lib/libc/u8k/sys/fcntl.s
new file mode 100644
index 0000000..213d95f
--- /dev/null
+++ b/WEGA/contrib/lcc/lib/libc/u8k/sys/fcntl.s
@@ -0,0 +1,16 @@
+	.seg
+
+	sp := r15
+	SP := rr14
+
+	.psec
+	.code
+_fcntl::
+	{
+	ldm	r0,|_stkseg+3|(sp),#4
+	xor	r4,r4
+	sc	#38			  // switch
+	ld	r2,r4
+	ret	nc
+	jp	cerror
+	}