From 7fa0e2e8eefe55c175afbaa39a22e0727467c373 Mon Sep 17 00:00:00 2001
From: cpg <cpg@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sat, 29 Jul 2000 21:25:43 +0000
Subject: [PATCH] some small fixes

git-svn-id: svn://svn.cc65.org/cc65/trunk@227 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/atari/clock.s | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/libsrc/atari/clock.s b/libsrc/atari/clock.s
index f4bda8469..174751c7a 100644
--- a/libsrc/atari/clock.s
+++ b/libsrc/atari/clock.s
@@ -1,7 +1,7 @@
 ;
 ; Ullrich von Bassewitz, 25.07.2000
 ;
-; Implemented using information from Sidney Cadot <sidney@janis.pds.twi.tudelft.nl
+; Implemented using information from Sidney Cadot <sidney@janis.pds.twi.tudelft.nl>
 ;
 ; clock_t clock (void);
 ; unsigned _clocks_per_sec (void);
@@ -18,10 +18,11 @@
 	lda	#0  	      	; Byte 3 is always zero
        	sta    	sreg+1
 	php			; Save current I flag value
-	cli			; Disable interrupts
+	sei			; Disable interrupts
+	lda	RTCLOK+2
+	sta	sreg
 	lda	RTCLOK		; Read clock
 	ldx	RTCLOK+1
-	ldy	RTCLOK+2
 	plp			; Restore old I bit
 	rts
 
@@ -31,7 +32,7 @@
 .proc	__clocks_per_sec
 
 	lda	#50		; Assume PAL
-	ldx	PAL
+	ldx	PAL		; use hw register, PALNTS is only supported on XL/XE ROM
 	beq	@L1
 	ldx	#0
 	lda	#60