mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 02:29:52 +00:00
842c151edd
We want to add the capability to not only get the time but also set the time, but there's no "setter" for the "getter" time(). The first ones that come into mind are gettimeofday() and settimeofday(). However, they take a struct timezone argument that doesn't make sense - even the man pages says "The use of the timezone structure is obsolete; the tz argument should normally be specified as NULL." And POSIX says "Applications should use the clock_gettime() function instead of the obsolescent gettimeofday() function." The ...timeofday() functions work with microseconds while the clock_...time() functions work with nanoseconds. Given that we expect our targets to support only 1/10 of seconds the microseconds look preferable at first sight. However, already microseconds require the cc65 data type 'long' so it's not such a relevant difference to nanoseconds. Additionally clock_getres() seems useful. In order to avoid code duplication clock_gettime() takes over the role of the actual time getter from _systime(). So time() now calls clock_gettime() instead of _systime(). For some reason beyond my understanding _systime() was mentioned in time.h. _systime() worked exactly like e.g. _sysremove() and those _sys...() functions are all considered internal. The only reason I could see would be a performance gain of bypassing the time() wrapper. However, all known _systime() implementations internally called mktime(). And mktime() is implemented in C using an iterative algorithm so I really can't see what would be left to gain here. From that perspective I decided to just remove _systime().
120 lines
3.0 KiB
ArmAsm
120 lines
3.0 KiB
ArmAsm
;
|
|
; Stefan Haubenthal, 27.7.2009
|
|
; Oliver Schmidt, 14.8.2018
|
|
;
|
|
; int clock_gettime (clockid_t clk_id, struct timespec *tp);
|
|
;
|
|
|
|
.include "time.inc"
|
|
.include "c128.inc"
|
|
.include "get_tv.inc"
|
|
|
|
.constructor inittime
|
|
.importzp sreg, tmp1, tmp2
|
|
.import pushax, pusheax, tosmul0ax, steaxspidx, incsp1, return0
|
|
.import _get_tv
|
|
|
|
|
|
;----------------------------------------------------------------------------
|
|
.code
|
|
|
|
.proc _clock_gettime
|
|
|
|
jsr pushax
|
|
jsr pushax
|
|
|
|
lda CIA1_TODHR
|
|
bpl AM
|
|
and #%01111111
|
|
sed
|
|
clc
|
|
adc #$12
|
|
cld
|
|
AM: jsr BCD2dec
|
|
sta TM + tm::tm_hour
|
|
lda CIA1_TODMIN
|
|
jsr BCD2dec
|
|
sta TM + tm::tm_min
|
|
lda CIA1_TODSEC
|
|
jsr BCD2dec
|
|
sta TM + tm::tm_sec
|
|
lda #<TM
|
|
ldx #>TM
|
|
jsr _mktime
|
|
|
|
ldy #timespec::tv_sec
|
|
jsr steaxspidx ; Pops address pushed by 2. pushax
|
|
|
|
lda #<(100 * 1000 * 1000 / $10000)
|
|
ldx #>(100 * 1000 * 1000 / $10000)
|
|
sta sreg
|
|
stx sreg+1
|
|
lda #<(100 * 1000 * 1000)
|
|
ldx #>(100 * 1000 * 1000)
|
|
jsr pusheax
|
|
lda CIA1_TOD10
|
|
ldx #>$0000
|
|
jsr tosmul0ax
|
|
|
|
ldy #timespec::tv_nsec
|
|
jsr steaxspidx ; Pops address pushed by 1. pushax
|
|
|
|
jsr incsp1
|
|
jmp return0
|
|
|
|
.endproc
|
|
|
|
;----------------------------------------------------------------------------
|
|
; dec = (((BCD>>4)*10) + (BCD&0xf))
|
|
|
|
.proc BCD2dec
|
|
|
|
tax
|
|
and #%00001111
|
|
sta tmp1
|
|
txa
|
|
and #%11110000 ; *16
|
|
lsr ; *8
|
|
sta tmp2
|
|
lsr
|
|
lsr ; *2
|
|
adc tmp2 ; = *10
|
|
adc tmp1
|
|
rts
|
|
|
|
.endproc
|
|
|
|
;----------------------------------------------------------------------------
|
|
; Constructor that writes to the 1/10 sec register of the TOD to kick it
|
|
; into action. If this is not done, the clock hangs. We will read the register
|
|
; and write it again, ignoring a possible change in between.
|
|
.segment "ONCE"
|
|
|
|
.proc inittime
|
|
|
|
lda CIA1_TOD10
|
|
sta CIA1_TOD10
|
|
jsr _get_tv
|
|
cmp #TV::PAL
|
|
bne @60Hz
|
|
lda CIA1_CRA
|
|
ora #$80
|
|
sta CIA1_CRA
|
|
@60Hz: rts
|
|
|
|
.endproc
|
|
|
|
;----------------------------------------------------------------------------
|
|
; TM struct with date set to 1970-01-01
|
|
.data
|
|
|
|
TM: .word 0 ; tm_sec
|
|
.word 0 ; tm_min
|
|
.word 0 ; tm_hour
|
|
.word 1 ; tm_mday
|
|
.word 0 ; tm_mon
|
|
.word 70 ; tm_year
|
|
.word 0 ; tm_wday
|
|
.word 0 ; tm_yday
|
|
.word 0 ; tm_isdst
|