2 ; Ullrich von Bassewitz, 12.11.2002
4 ; time_t __fastcall__ time (time_t* timep);
11 .importzp ptr1, sreg, tmp1
24 jsr __systime ; Get the time (machine dependent)
26 sta tmp1 ; Save low byte of result
28 ; Restore timep and check if it is NULL
33 sta ptr1+1 ; Restore timep
34 ora ptr1 ; timep == 0?
37 ; timep is not NULL, store the result there
52 ; If the result is less than zero, set ERRNO
59 lda #ENOSYS ; Function not implemented
62 ; Reload the low byte of the result and return