fixed timep handling in time()

diff --git a/libsrc/common/time.s b/libsrc/common/time.s
index 2157eb49fbc2871ea5b66b86bf6c7eddfe5a4ade..140d47e2c344b6164bc5ef1ee4a97848a250820c 100644 (file)
--- a/libsrc/common/time.s
+++ b/libsrc/common/time.s
@@ -27,10 +27,10 @@
 ; Restore timep and check if it is NULL
 
         pla
-        sta     ptr1
+        sta     ptr1+1
         pla
-        sta     ptr1+1          ; Restore timep
-        ora     ptr1            ; timep == 0?
+        sta     ptr1            ; Restore timep
+        ora     ptr1+1          ; timep == 0?
         beq     @L1
 
 ; timep is not NULL, store the result there