2 ; Stefan Haubenthal, 27.7.2009
3 ; Oliver Schmidt, 14.8.2018
5 ; int clock_gettime (clockid_t clk_id, struct timespec *tp);
11 .importzp sreg, tmp1, tmp2
12 .import pushax, pusheax, tosmul0ax, steaxspidx, incsp1, return0
13 .import TM, load_tenth
16 ;----------------------------------------------------------------------------
31 @L1: inx ; Get PM flag
49 jsr steaxspidx ; Pops address pushed by 2. pushax
57 ldy #timespec::tv_nsec
58 jsr steaxspidx ; Pops address pushed by 1. pushax
65 ;----------------------------------------------------------------------------
66 ; dec = (((BCD>>4)*10) + (BCD&0xf))