1 files changed, 45 insertions, 0 deletions
diff --git a/x68/_round.c b/x68/_round.c
new file mode 100644
index 0000000000..73e44ca966
--- /dev/null
+++ b/x68/_round.c
@@ -0,0 +1,45 @@
+/*
+ * PROJECT C Library, X68000 PROGRAMMING INTERFACE DEFINITION
+ * --------------------------------------------------------------------
+ * This file is written by the Project C Library Group,  and completely
+ * in public domain. You can freely use, copy, modify, and redistribute
+ * the whole contents, without this notice.
+ * --------------------------------------------------------------------
+ * $Id: _round.c,v 1.1 1994/11/27 13:05:36 mura Exp $
+ */
+/* changed 1997.2.2 by K.Okabe */
+
+/* System headers */
+#include <stdlib.h>
+#include <sys/xstdlib.h>
+
+/* Functions */
+int _round (char *top, char *cur, int undig)
+{
+    char *ptr;
+
+    /* �Ǹ夬5̤���ʤ�ݤ��ɬ�פʤ� */
+    if (undig < '5')
+	return 0;
+
+    /* �ݥ������� */
+    ptr = cur - 1;
+
+    /* ��Ƭ�ޤ����ʤ���ݤ���� */
+    while (ptr >= top) {
+
+	/* ����夬��ʤ���Ф���ǽ���� */
+	if (++(*ptr) <= '9')
+	    return 0;
+
+	/* ���η��0���᤹ */
+	*ptr-- = '0';
+
+    }
+
+    /* ��Ƭ��1�ˤ��� */
+    *++ptr = '1';
+
+    /* ����夬��򤷤餻�� */
+    return 1;
+}