mirror of
https://github.com/cc65/cc65.git
synced 2024-10-30 12:28:25 +00:00
9f547a5a4d
git-svn-id: svn://svn.cc65.org/cc65/trunk@2046 b7a2c559-68d2-44c3-8de9-860c34a00d81
37 lines
543 B
ArmAsm
37 lines
543 B
ArmAsm
;
|
|
; 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
|
|
|
|
|