mirror of
https://github.com/cc65/cc65.git
synced 2024-11-19 06:31:31 +00:00
52 lines
1.1 KiB
ArmAsm
52 lines
1.1 KiB
ArmAsm
|
;
|
||
|
|
; 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
|
||
|
|
jmp __directerrno
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------------
|
||
|
|
; timespec struct with tv_sec set to 1 second
|
||
|
|
.rodata
|
||
|
|
|
||
|
|
time: .dword 1
|
||
|
|
.dword 0
|