;
; Ullrich von Bassewitz, 2003-04-13
;
; clock_t clock (void);
;

	.export		_clock
        .import         negax
	.importzp	sreg

	.include	"atmos.inc"


.proc	_clock

; Clear the timer high 16 bits

        ldy     #$00
        sty     sreg
        sty     sreg+1

; Read the timer

        sei                     ; Disable interrupts
        lda     TIMER3
        ldx     TIMER3+1
        cli                     ; Reenable interrupts


; Since the timer is counting downwards, return the negated value

        jmp     negax

.endproc


