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
+	}