2018-09-27 18:22:21 +00:00
|
|
|
;
|
|
|
|
|
; Oliver Schmidt, 15.8.2018
|
|
|
|
|
; Christian Groessler, 27.9.2018
|
|
|
|
|
;
|
|
|
|
|
; int __fastcall__ clock_getres (clockid_t clk_id, struct timespec *res);
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.include "atari.inc"
|
|
|
|
|
.include "time.inc"
|
|
|
|
|
.include "errno.inc"
|
|
|
|
|
|
|
|
|
|
.importzp ptr1
|
|
|
|
|
.import incsp1, return0, __dos_type
|
|
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------
|
|
|
|
|
.code
|
|
|
|
|
|
|
|
|
|
_clock_getres:
|
|
|
|
|
sta ptr1
|
|
|
|
|
stx ptr1+1
|
|
|
|
|
|
|
|
|
|
; Cleanup stack
|
|
|
|
|
jsr incsp1
|
|
|
|
|
|
|
|
|
|
; Check for SpartaDOS-X 4.40 or newer
|
|
|
|
|
ldy #SPARTADOS
|
|
|
|
|
cpy __dos_type
|
|
|
|
|
bne enosys
|
|
|
|
|
ldy SDX_VERSION
|
|
|
|
|
cpy #$44
|
|
|
|
|
bcc enosys
|
|
|
|
|
|
|
|
|
|
ldy #.sizeof(timespec)-1
|
|
|
|
|
@L1: lda time,y
|
|
|
|
|
sta (ptr1),y
|
|
|
|
|
dey
|
|
|
|
|
bpl @L1
|
|
|
|
|
|
|
|
|
|
jmp return0
|
|
|
|
|
|
|
|
|
|
enosys: lda #ENOSYS
|
|
|
|
|
|
|
|
|
|
; Set __errno
|
2022-08-28 19:52:53 +00:00
|
|
|
jmp ___directerrno
|
2018-09-27 18:22:21 +00:00
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------
|
|
|
|
|
; timespec struct with tv_sec set to 1 second
|
|
|
|
|
.rodata
|
|
|
|
|
|
|
|
|
|
time: .dword 1
|
|
|
|
|
.dword 0
|
