emailler/ip65/sntp_c.s
2018-02-23 16:36:05 +01:00

27 lines
343 B
ArmAsm

.include "../inc/common.inc"
.export _sntp_get_time
.import sntp_get_time
.import sntp_ip
.import sntp_utc_timestamp
.importzp sreg
_sntp_get_time:
stax sntp_ip
ldax sreg
stax sntp_ip+2
jsr sntp_get_time
bcs error
ldax sntp_utc_timestamp+2
stax sreg
ldax sntp_utc_timestamp
rts
error:
ldx #$00
txa
stax sreg
rts