2 ; Ullrich von Bassewitz, 12.11.2002
4 ; time_t __fastcall__ time (time_t* timep);
10 .importzp ptr1, sreg, tmp1
23 jsr __systime ; Get the time (machine dependent)
25 sta tmp1 ; Save low byte of result
27 ; Restore timep and check if it is NULL
32 sta ptr1+1 ; Restore timep
33 ora ptr1 ; timep == 0?
36 ; timep is not NULL, store the result there
51 ; If the result is less than zero, set ERRNO
56 lda #ENOSYS ; Function not implemented
57 jsr __seterrno ; Set __errno
59 ; Reload the low byte of the result and return