mirror of
https://github.com/cc65/cc65.git
synced 2026-03-12 14:42:08 +00:00
30 lines
455 B
ArmAsm
30 lines
455 B
ArmAsm
;
|
|
; 1998-09-21, Ullrich von Bassewitz
|
|
; 2019-12-25, Greg King
|
|
;
|
|
; clock_t clock (void);
|
|
;
|
|
|
|
.export _clock
|
|
.importzp sreg
|
|
|
|
.include "cbm.inc"
|
|
|
|
|
|
.proc _clock
|
|
|
|
; Some accelerator adaptors have CMOS ICs.
|
|
|
|
.if .cap(CPU_HAS_STZ)
|
|
stz sreg + 1
|
|
.else
|
|
lda #$00 ; Byte 3 always is zero
|
|
sta sreg + 1
|
|
.endif
|
|
|
|
jsr RDTIM
|
|
sty sreg
|
|
rts
|
|
|
|
.endproc
|