From 09adce2fec8d7407770c4386920317e2b837a0a7 Mon Sep 17 00:00:00 2001
From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Fri, 19 Mar 2010 20:46:56 +0000
Subject: [PATCH] Added patches to make systime work correctly with the
 different video systems (Stefan Haubenthal).

git-svn-id: svn://svn.cc65.org/cc65/trunk@4624 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/c128/systime.s | 10 +++++++++-
 libsrc/c64/systime.s  | 13 ++++++++++++-
 2 files changed, 21 insertions(+), 2 deletions(-)

diff --git a/libsrc/c128/systime.s b/libsrc/c128/systime.s
index dced83c06..468d7da19 100644
--- a/libsrc/c128/systime.s
+++ b/libsrc/c128/systime.s
@@ -11,9 +11,11 @@
 
         .include        "time.inc"
         .include        "c128.inc"
+	.include	"get_tv.inc"
 
         .constructor    initsystime
 	.importzp	tmp1, tmp2
+	.import		_get_tv
 
 
 ;----------------------------------------------------------------------------
@@ -66,7 +68,13 @@ BCD2dec:tax
 
         lda     CIA1_TOD10
         sta     CIA1_TOD10
-        rts
+	jsr     _get_tv
+	cmp     #TV::PAL
+	bne     @60Hz
+	lda     CIA1_CRA
+	ora     #$80
+	sta     CIA1_CRA
+@60Hz:	rts
 
 .endproc
 
diff --git a/libsrc/c64/systime.s b/libsrc/c64/systime.s
index c0b4238bc..28b3e8190 100644
--- a/libsrc/c64/systime.s
+++ b/libsrc/c64/systime.s
@@ -11,9 +11,11 @@
 
         .include        "time.inc"
         .include        "c64.inc"
+	.include	"get_tv.inc"
 
         .constructor    initsystime
 	.importzp	tmp1, tmp2
+	.import		_get_tv, _get_ostype
 
 
 ;----------------------------------------------------------------------------
@@ -66,7 +68,16 @@ BCD2dec:tax
 
         lda     CIA1_TOD10
         sta     CIA1_TOD10
-        rts
+	jsr     _get_tv
+	cmp     #TV::PAL
+	bne     @60Hz
+	jsr     _get_ostype
+	cmp     #$43
+	beq     @60Hz
+	lda     CIA1_CRA
+	ora     #$80
+	sta     CIA1_CRA
+@60Hz:	rts
 
 .endproc
 
-- 
2.39.5