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