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

26 lines
299 B
ArmAsm

.include "../inc/common.inc"
.export _dns_resolve
.import dns_set_hostname
.import dns_resolve
.import dns_ip
.importzp sreg
_dns_resolve:
jsr dns_set_hostname
bcs error
jsr dns_resolve
bcs error
ldax dns_ip+2
stax sreg
ldax dns_ip
rts
error:
ldx #$00
txa
stax sreg
rts