mirror of
https://github.com/cc65/cc65.git
synced 2024-08-19 17:29:37 +00:00
64 lines
1.2 KiB
ArmAsm
64 lines
1.2 KiB
ArmAsm
;
|
|
; Oliver Schmidt, 15.08.2018
|
|
;
|
|
; int __fastcall__ clock_getres (clockid_t clk_id, struct timespec *res);
|
|
;
|
|
|
|
.import __dos_type
|
|
.import incsp1, return0
|
|
|
|
.include "time.inc"
|
|
.include "zeropage.inc"
|
|
.include "errno.inc"
|
|
.include "mli.inc"
|
|
|
|
_clock_getres:
|
|
sta ptr1
|
|
stx ptr1+1
|
|
|
|
; Cleanup stack
|
|
jsr incsp1
|
|
|
|
; Check for ProDOS 8
|
|
lda __dos_type
|
|
beq enosys
|
|
|
|
; Presume day resolution
|
|
ldx #<day_res
|
|
ldy #>day_res
|
|
|
|
; Check for existing minutes or hours
|
|
lda TIMELO
|
|
ora TIMELO+1
|
|
beq :+
|
|
|
|
; Switch to minute resolution
|
|
ldx #<min_res
|
|
ldy #>min_res
|
|
|
|
; Copy timespec
|
|
: stx ptr2
|
|
sty ptr2+1
|
|
ldy #.sizeof(timespec)-1
|
|
: lda (ptr2),y
|
|
sta (ptr1),y
|
|
dey
|
|
bpl :-
|
|
|
|
; Return success
|
|
jmp return0
|
|
|
|
; Load errno code
|
|
enosys: lda #ENOSYS
|
|
|
|
; Set __errno
|
|
jmp __directerrno
|
|
|
|
.rodata
|
|
|
|
min_res:.dword 60
|
|
.dword 0
|
|
|
|
day_res:.dword 60 * 60 * 24
|
|
.dword 0
|