mirror of https://github.com/cc65/cc65.git
Added real-time clock functions to the cx16 library.
This commit is contained in:
Greg King
parent
f067c4530f
commit
b56ba8f073
|
|
@ -0,0 +1,36 @@
|
|||
;
|
||||
; 2019-12-26, Greg King
|
||||
;
|
||||
; int __fastcall__ clock_getres (clockid_t clk_id, struct timespec *res);
|
||||
;
|
||||
|
||||
.include "time.inc"
|
||||
|
||||
.importzp ptr1
|
||||
.import incsp1, return0
|
||||
|
||||
|
||||
;----------------------------------------------------------------------------
|
||||
|
||||
.proc _clock_getres
|
||||
|
||||
sta ptr1
|
||||
stx ptr1+1
|
||||
|
||||
ldy #.sizeof(timespec) - 1
|
||||
@L1: lda time,y
|
||||
sta (ptr1),y
|
||||
dey
|
||||
bpl @L1
|
||||
|
||||
jsr incsp1
|
||||
jmp return0
|
||||
|
||||
.endproc
|
||||
|
||||
;----------------------------------------------------------------------------
|
||||
; timespec struct with tv_nsec set to approximately 1/60 of a second
|
||||
.rodata
|
||||
|
||||
time: .dword 0
|
||||
.dword 17 * 1000 * 1000
|
||||
|
|
@ -0,0 +1,56 @@
|
|||
;
|
||||
; 2019-12-27, Greg King
|
||||
;
|
||||
; int __fastcall__ clock_gettime (clockid_t clk_id, struct timespec *tp);
|
||||
;
|
||||
|
||||
.include "time.inc"
|
||||
.include "cx16.inc"
|
||||
|
||||
.import pushax, pusheax, tosmul0ax, steaxspidx, incsp1, return0
|
||||
.import TM, load_jiffy
|
||||
.import CLOCK_GET_DATE_TIME
|
||||
|
||||
|
||||
;----------------------------------------------------------------------------
|
||||
|
||||
.proc _clock_gettime
|
||||
|
||||
jsr pushax
|
||||
jsr pushax
|
||||
|
||||
jsr CLOCK_GET_DATE_TIME
|
||||
|
||||
lda gREG::r0L
|
||||
sta TM + tm::tm_year
|
||||
lda gREG::r0H
|
||||
dec a
|
||||
sta TM + tm::tm_mon
|
||||
lda gREG::r1L
|
||||
sta TM + tm::tm_mday
|
||||
|
||||
lda gREG::r1H
|
||||
sta TM + tm::tm_hour
|
||||
lda gREG::r2L
|
||||
sta TM + tm::tm_min
|
||||
lda gREG::r2H
|
||||
sta TM + tm::tm_sec
|
||||
|
||||
lda #<TM
|
||||
ldx #>TM
|
||||
jsr _mktime
|
||||
ldy #timespec::tv_sec
|
||||
jsr steaxspidx ; Pops address pushed by 2. pushax
|
||||
|
||||
jsr load_jiffy
|
||||
jsr pusheax
|
||||
lda gREG::r3L
|
||||
ldx #>$0000
|
||||
jsr tosmul0ax
|
||||
ldy #timespec::tv_nsec
|
||||
jsr steaxspidx ; Pops address pushed by 1. pushax
|
||||
|
||||
jsr incsp1
|
||||
jmp return0
|
||||
|
||||
.endproc
|
||||
|
|
@ -0,0 +1,55 @@
|
|||
;
|
||||
; 2019-12-27, Greg King
|
||||
;
|
||||
; int __fastcall__ clock_settime (clockid_t clk_id, const struct timespec *tp);
|
||||
;
|
||||
|
||||
.include "time.inc"
|
||||
.include "cx16.inc"
|
||||
|
||||
.importzp ptr1
|
||||
.import pushax, pusheax, ldax0sp, ldeaxidx
|
||||
.import tosdiveax, incsp3, return0
|
||||
.import load_jiffy
|
||||
.import CLOCK_SET_DATE_TIME
|
||||
|
||||
|
||||
.macro COPY reg, offset
|
||||
ldy #offset
|
||||
lda (ptr1),y
|
||||
sta gREG::reg
|
||||
.endmac
|
||||
|
||||
;----------------------------------------------------------------------------
|
||||
|
||||
.proc _clock_settime
|
||||
|
||||
jsr pushax
|
||||
|
||||
.assert timespec::tv_sec = 0, error
|
||||
jsr _localtime
|
||||
sta ptr1
|
||||
stx ptr1+1
|
||||
|
||||
COPY r0L, tm::tm_year
|
||||
COPY r0H, tm::tm_mon
|
||||
inc gREG::r0H
|
||||
COPY r1L, tm::tm_mday
|
||||
COPY r1H, tm::tm_hour
|
||||
COPY r2L, tm::tm_min
|
||||
COPY r2H, tm::tm_sec
|
||||
|
||||
jsr ldax0sp ; Get tp
|
||||
ldy #timespec::tv_nsec+3
|
||||
jsr ldeaxidx ; Get nanoseconds
|
||||
jsr pusheax
|
||||
jsr load_jiffy
|
||||
jsr tosdiveax
|
||||
sta gREG::r3L ; Put number of jiffies
|
||||
|
||||
jsr CLOCK_SET_DATE_TIME
|
||||
|
||||
jsr incsp3
|
||||
jmp return0
|
||||
|
||||
.endproc
|
||||
|
|
@ -1,16 +0,0 @@
|
|||
;
|
||||
; 2019-11-05, Greg King
|
||||
;
|
||||
|
||||
.export ST: zp
|
||||
|
||||
.segment "EXTZP": zp
|
||||
|
||||
; This is a temporary hack.
|
||||
|
||||
; A zero-page copy of the IEC status byte.
|
||||
; This is needed because the Commander X16's Kernal's status
|
||||
; variable was moved out of the zero page. But, the common
|
||||
; CBM file function modules import this as a zero-page variable.
|
||||
|
||||
ST: .res 1
|
||||
|
|
@ -0,0 +1,40 @@
|
|||
;
|
||||
; 2019-12-27, Greg King
|
||||
;
|
||||
; Common stuff for the clock routines
|
||||
;
|
||||
|
||||
.export TM, load_jiffy
|
||||
|
||||
.importzp sreg
|
||||
|
||||
|
||||
;----------------------------------------------------------------------------
|
||||
; Load .EAX with the approximate number of nanoseconds
|
||||
; in one jiffy (1/60th of a second).
|
||||
|
||||
.proc load_jiffy
|
||||
|
||||
lda #<(17 * 1000 * 1000 / $10000)
|
||||
ldx #>(17 * 1000 * 1000 / $10000)
|
||||
sta sreg
|
||||
stx sreg+1
|
||||
lda #<(17 * 1000 * 1000)
|
||||
ldx #>(17 * 1000 * 1000)
|
||||
rts
|
||||
|
||||
.endproc
|
||||
|
||||
;----------------------------------------------------------------------------
|
||||
; TM struct with "is daylight-saving time" set to "unknown"
|
||||
.data
|
||||
|
||||
TM: .word 0 ; tm_sec
|
||||
.word 0 ; tm_min
|
||||
.word 0 ; tm_hour
|
||||
.word 0 ; tm_mday
|
||||
.word 0 ; tm_mon
|
||||
.word 0 ; tm_year
|
||||
.word 0 ; tm_wday
|
||||
.word 0 ; tm_yday
|
||||
.word .loword(-1) ; tm_isdst
|
||||
|
|
@ -1,7 +1,8 @@
|
|||
/* Clock test program
|
||||
*
|
||||
* 25-Sep-2018, chris@groessler.org
|
||||
*/
|
||||
/* Calendar-clock test program
|
||||
**
|
||||
** 2018-Sep-25, chris@groessler.org
|
||||
** 2019-Dec-27, Greg King
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
|
|
@ -10,74 +11,83 @@
|
|||
#include <errno.h>
|
||||
|
||||
#ifdef __CC65__
|
||||
#include <conio.h>
|
||||
#include <cc65.h>
|
||||
#endif /* #ifdef __CC65__ */
|
||||
#include <conio.h>
|
||||
#include <cc65.h>
|
||||
#endif
|
||||
|
||||
static void print_time(void)
|
||||
static int print_time(void)
|
||||
{
|
||||
struct tm *cur_tm;
|
||||
time_t cur_time = time(NULL);
|
||||
|
||||
if (cur_time == -1) {
|
||||
printf("time() failed: %s\n", strerror(errno));
|
||||
return;
|
||||
return 1;
|
||||
}
|
||||
cur_tm = localtime(&cur_time);
|
||||
|
||||
printf("time: %s\n", asctime(cur_tm));
|
||||
// DEBUG:
|
||||
printf("mday=%d mon=%d year=%d\nhour=%d min=%d sec=%d\n", cur_tm->tm_mday, cur_tm->tm_mon, cur_tm->tm_year, cur_tm->tm_hour, cur_tm->tm_min, cur_tm->tm_sec);
|
||||
printf("year=%d, mon=%d, mday=%d\nhour=%d, min=%d, sec=%d\n",
|
||||
cur_tm->tm_year, cur_tm->tm_mon, cur_tm->tm_mday,
|
||||
cur_tm->tm_hour, cur_tm->tm_min, cur_tm->tm_sec);
|
||||
return 0;
|
||||
}
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
char c = 0;
|
||||
char c;
|
||||
int s;
|
||||
struct tm cur_time;
|
||||
struct timespec new_time;
|
||||
|
||||
#ifdef __CC65__
|
||||
/* if DOS will automatically clear the screen after the program exits, wait for a keypress... */
|
||||
/* If DOS automatically will clear the screen after the program exits,
|
||||
** then wait for a key-press.
|
||||
*/
|
||||
if (doesclrscrafterexit())
|
||||
atexit((void (*)(void))cgetc);
|
||||
#endif
|
||||
|
||||
if (argc <= 1) {
|
||||
print_time();
|
||||
return 0;
|
||||
if (argc == 1) {
|
||||
return print_time();
|
||||
}
|
||||
|
||||
if (argc != 3 || strcasecmp(*(argv + 1), "set")) {
|
||||
printf("usage: CLOCKTST [set DD-MM-YY-HH-MM-SS]\n");
|
||||
if (argc != 2) {
|
||||
#ifdef __CC65__
|
||||
printf("Usage: run:rem [YY-MM-DD-HH-MM-SS]\n");
|
||||
#else
|
||||
printf("Usage: %s [YY-MM-DD-HH-MM-SS]\n", argv[0]);
|
||||
#endif
|
||||
return 1;
|
||||
}
|
||||
|
||||
memset(&cur_time, 0, sizeof(cur_time));
|
||||
s = sscanf(*(argv + 2), "%d-%d-%d-%d-%d-%d", &cur_time.tm_mday, &cur_time.tm_mon, &cur_time.tm_year, &cur_time.tm_hour, &cur_time.tm_min, &cur_time.tm_sec);
|
||||
if (s != 6 || cur_time.tm_year > 99 /* other input values aren't being verified... */) {
|
||||
printf("invalid time/date format\n");
|
||||
memset(&cur_time, 0, sizeof cur_time);
|
||||
s = sscanf(argv[1], "%d-%d-%d-%d-%d-%d",
|
||||
&cur_time.tm_year, &cur_time.tm_mon, &cur_time.tm_mday,
|
||||
&cur_time.tm_hour, &cur_time.tm_min, &cur_time.tm_sec);
|
||||
if (s != 6 || cur_time.tm_year > 99 /* other input values aren't being verified */) {
|
||||
printf("Invalid date-time format\n");
|
||||
return 1;
|
||||
}
|
||||
cur_time.tm_year += 100; /* assume 21st century */
|
||||
--cur_time.tm_mon;
|
||||
if (cur_time.tm_year < 79)
|
||||
cur_time.tm_year += 100; /* adjust century */
|
||||
|
||||
memset(&new_time, 0, sizeof(new_time));
|
||||
memset(&new_time, 0, sizeof new_time);
|
||||
new_time.tv_sec = mktime(&cur_time);
|
||||
|
||||
printf("\nyou are about to set the time to\n--> %s\n\nContinue (y/n)?", ctime(&new_time.tv_sec));
|
||||
|
||||
while (c != 'y' && c != 'Y' && c != 'n' && c != 'N') {
|
||||
printf("\nYou are about to set the time to\n--> %s\nContinue (y/n)? ", ctime(&new_time.tv_sec));
|
||||
do {
|
||||
#ifdef __CC65__
|
||||
c = cgetc();
|
||||
#else
|
||||
c = getchar();
|
||||
#endif
|
||||
}
|
||||
} while (c != 'y' && c != 'Y' && c != 'n' && c != 'N');
|
||||
printf("%c\n", c);
|
||||
|
||||
if (c == 'n' || c == 'N') {
|
||||
printf("user abort\n");
|
||||
printf("User abort\n");
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
|
@ -86,11 +96,11 @@ int main(int argc, char **argv)
|
|||
printf("clock_settime() failed: %s\n", strerror(errno));
|
||||
return 1;
|
||||
}
|
||||
printf("time set!\n");
|
||||
printf("Time set!\n\n");
|
||||
|
||||
//DEBUG test begin
|
||||
print_time();
|
||||
return print_time();
|
||||
//DEBUG test end
|
||||
return 0;
|
||||
}
|
||||
/* Local Variables: */
|
||||
/* c-file-style: "cpg" */
|
||||
|
|
|
|||
Loading…
Reference in New Issue