Add the time() function

git-svn-id: svn://svn.cc65.org/cc65/trunk@1504 b7a2c559-68d2-44c3-8de9-860c34a00d81

include/time.h

@@ -6,7 +6,7 @@
 /*                                                                           */
 /*                                                                           */
 /*                                                                           */
-/* (C) 1998-2000 Ullrich von Bassewitz                                       */
+/* (C) 1998-2002 Ullrich von Bassewitz                                       */
 /*               Wacholderweg 14                                             */
 /*               D-70597 Stuttgart                                           */
 /* EMail:        uz@musoftware.de                                            */
@@ -82,6 +82,7 @@ unsigned _clocks_per_sec (void);
 
 /* Function prototypes */
 clock_t clock (void);
+time_t __fastcall__ time (time_t* t);
 
 
 

libsrc/common/Makefile

@@ -116,6 +116,7 @@ S_OBJS = 	_fdesc.o 	\
 		strspn.o	\
 		strstr.o	\
 		strupper.o	\
+                time.o          \
 		tolower.o	\
 		toupper.o	\
 		vcprintf.o	\

libsrc/common/time.s

@@ -0,0 +1,45 @@
+;
+; Ullrich von Bassewitz, 12.11.2002
+;
+; time_t __fastcall__ time (time_t* t);
+;
+
+	.export		_time
+
+        .import         __errno
+        .importzp       ptr1, sreg
+
+        .include        "errno.inc"
+
+
+.code
+
+.proc   _time
+
+        sta     ptr1
+        stx     ptr1+1          ; t
+
+        ldx     #$FF
+        stx     sreg
+        stx     sreg+1
+
+        ora     ptr1+1          ; t == 0?
+        beq     @L1
+
+        ldy     #$03
+        txa
+@L0:    sta     (ptr1),y        ; *t = -1
+        dey
+        bpl     @L0
+        lda     #$00
+
+@L1:    sta     __errno+1
+        lda     #ENOSYS         ; Function not implemented
+        sta     __errno
+
+        txa                     ; A = $FF
+        rts
+
+.endproc
+
+