;
; Ullrich von Bassewitz, 25.07.2000
;
; Implemented using information from Sidney Cadot <sidney@janis.pds.twi.tudelft.nl>
;
; clock_t clock (void);
; unsigned _clocks_per_sec (void);
;

      	.export	       	_clock, __clocks_per_sec
	.importzp	sreg

	.include	"atari.inc"


.proc	_clock

	lda	#0  	      	; Byte 3 is always zero
       	sta    	sreg+1
	php			; Save current I flag value
	sei			; Disable interrupts
	lda	RTCLOK		; Read clock
	ldx	RTCLOK+1
       	ldy	RTCLOK+2
	plp	    		; Restore old I bit
       	sty	sreg
	rts

.endproc


.proc	__clocks_per_sec

	lda	#50		; Assume PAL
	ldx	PAL		; use hw register, PALNTS is only supported on XL/XE ROM
	beq	@L1
	ldx	#0
	lda	#60
@L1:	rts

.endproc