46 lines
720 B
ArmAsm
46 lines
720 B
ArmAsm
|
;
|
||
|
|
; Ullrich von Bassewitz, 12.11.2002
|
||
|
|
;
|
||
|
|
; time_t __fastcall__ time (time_t* t);
|
||
|
|
;
|
||
|
|
|
||
|
|
.export _time
|
||
|
|
|
||
|
|
.import __errno
|
||
|
|
.importzp ptr1, sreg
|
||
|
|
|
||
|
|
.include "errno.inc"
|
||
|
|
|
||
|
|
|
||
|
|
.code
|
||
|
|
|
||
|
|
.proc _time
|
||
|
|
|
||
|
|
sta ptr1
|
||
|
|
stx ptr1+1 ; t
|
||
|
|
|
||
|
|
ldx #$FF
|
||
|
|
stx sreg
|
||
|
|
stx sreg+1
|
||
|
|
|
||
|
|
ora ptr1+1 ; t == 0?
|
||
|
|
beq @L1
|
||
|
|
|
||
|
|
ldy #$03
|
||
|
|
txa
|
||
|
|
@L0: sta (ptr1),y ; *t = -1
|
||
|
|
dey
|
||
|
|
bpl @L0
|
||
|
|
lda #$00
|
||
|
|
|
||
|
|
@L1: sta __errno+1
|
||
|
|
lda #ENOSYS ; Function not implemented
|
||
|
|
sta __errno
|
||
|
|
|
||
|
|
txa ; A = $FF
|
||
|
|
rts
|
||
|
|
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
|