2002-11-12 22:49:38 +00:00
|
|
|
;
|
2018-08-19 21:12:54 +00:00
|
|
|
; 2009-07-27, Stefan Haubenthal
|
|
|
|
; 2009-09-24, Ullrich von Bassewitz
|
|
|
|
; 2018-08-18, Oliver Schmidt
|
|
|
|
; 2018-08-19, Greg King
|
2002-11-12 22:49:38 +00:00
|
|
|
;
|
2018-11-06 10:13:23 +00:00
|
|
|
; int __fastcall__ clock_gettime (clockid_t clk_id, struct timespec *tp);
|
2002-11-12 22:49:38 +00:00
|
|
|
;
|
|
|
|
|
2009-09-24 20:12:40 +00:00
|
|
|
.include "time.inc"
|
|
|
|
.include "cbm610.inc"
|
2013-05-09 11:56:54 +00:00
|
|
|
.include "extzp.inc"
|
2002-11-12 22:49:38 +00:00
|
|
|
|
2018-08-15 13:59:11 +00:00
|
|
|
.import pushax, pusheax, tosmul0ax, steaxspidx, incsp1
|
2013-05-09 11:56:54 +00:00
|
|
|
.import sys_bank, restore_bank
|
2018-08-17 23:13:02 +00:00
|
|
|
.import TM, load_tenth
|
2018-08-15 13:59:11 +00:00
|
|
|
.importzp sreg, tmp1, tmp2
|
2002-11-12 22:49:38 +00:00
|
|
|
|
2009-09-24 20:12:40 +00:00
|
|
|
|
|
|
|
;----------------------------------------------------------------------------
|
2002-11-12 22:49:38 +00:00
|
|
|
.code
|
|
|
|
|
2018-08-15 13:59:11 +00:00
|
|
|
.proc _clock_gettime
|
2009-09-24 20:12:40 +00:00
|
|
|
|
2018-08-15 13:59:11 +00:00
|
|
|
jsr pushax
|
|
|
|
jsr pushax
|
2009-09-24 20:12:40 +00:00
|
|
|
|
2018-08-19 21:12:54 +00:00
|
|
|
jsr sys_bank
|
2013-05-09 11:56:54 +00:00
|
|
|
ldy #CIA::TODHR
|
|
|
|
lda (cia),y
|
|
|
|
sed
|
2018-08-17 22:13:38 +00:00
|
|
|
tax ; Save PM flag
|
|
|
|
and #%01111111
|
|
|
|
cmp #$12 ; 12 AM/PM
|
|
|
|
bcc @L1
|
|
|
|
sbc #$12
|
|
|
|
@L1: inx ; Get PM flag
|
|
|
|
bpl @L2
|
2013-05-09 11:56:54 +00:00
|
|
|
clc
|
|
|
|
adc #$12
|
2018-08-17 22:13:38 +00:00
|
|
|
@L2: cld
|
|
|
|
jsr BCD2dec
|
2013-05-09 11:56:54 +00:00
|
|
|
sta TM + tm::tm_hour
|
|
|
|
ldy #CIA::TODMIN
|
|
|
|
lda (cia),y
|
|
|
|
jsr BCD2dec
|
|
|
|
sta TM + tm::tm_min
|
|
|
|
ldy #CIA::TODSEC
|
|
|
|
lda (cia),y
|
|
|
|
jsr BCD2dec
|
|
|
|
sta TM + tm::tm_sec
|
2018-08-19 21:12:54 +00:00
|
|
|
ldy #CIA::TOD10
|
|
|
|
lda (cia),y
|
|
|
|
jsr restore_bank
|
|
|
|
pha
|
2018-08-15 13:59:11 +00:00
|
|
|
lda #<TM
|
|
|
|
ldx #>TM
|
|
|
|
jsr _mktime
|
|
|
|
|
|
|
|
ldy #timespec::tv_sec
|
|
|
|
jsr steaxspidx ; Pops address pushed by 2. pushax
|
|
|
|
|
2018-08-17 23:13:02 +00:00
|
|
|
jsr load_tenth
|
2018-08-15 13:59:11 +00:00
|
|
|
jsr pusheax
|
2018-08-19 21:12:54 +00:00
|
|
|
pla
|
2018-08-15 13:59:11 +00:00
|
|
|
ldx #>$0000
|
|
|
|
jsr tosmul0ax
|
2009-09-24 20:12:40 +00:00
|
|
|
|
2018-08-15 13:59:11 +00:00
|
|
|
ldy #timespec::tv_nsec
|
|
|
|
jsr steaxspidx ; Pops address pushed by 1. pushax
|
2002-11-12 22:49:38 +00:00
|
|
|
|
2018-08-19 21:12:54 +00:00
|
|
|
lda #$00
|
2018-08-15 13:59:11 +00:00
|
|
|
tax
|
2018-08-19 21:12:54 +00:00
|
|
|
jmp incsp1
|
2002-11-12 22:49:38 +00:00
|
|
|
|
|
|
|
.endproc
|
|
|
|
|
2009-09-24 20:12:40 +00:00
|
|
|
;----------------------------------------------------------------------------
|
|
|
|
; dec = (((BCD>>4)*10) + (BCD&0xf))
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.proc BCD2dec
|
2009-09-24 20:12:40 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
tax
|
|
|
|
and #%00001111
|
|
|
|
sta tmp1
|
|
|
|
txa
|
2009-09-24 20:12:40 +00:00
|
|
|
and #%11110000 ; *16
|
|
|
|
lsr ; *8
|
|
|
|
sta tmp2
|
|
|
|
lsr
|
|
|
|
lsr ; *2
|
|
|
|
adc tmp2 ; = *10
|
|
|
|
adc tmp1
|
|
|
|
rts
|
|
|
|
|
|
|
|
.endproc
|