A2osX/LIB/LIBTCPIP.S.HST.txt

52 lines
797 B
Plaintext
Raw Normal View History

2017-12-22 21:24:30 +00:00
NEW
PREFIX /A2OSX.BUILD
2017-12-22 21:24:30 +00:00
AUTO 4,1
.LIST OFF
*--------------------------------------
HST.GetByName >PULLW ZPPtrDNS
>PULLW ZPPtrIP
lda ZPPtrIP
clc
adc #3
tay
lda ZPPtrIP+1
adc #0
>PUSHYA
lda ZPPtrIP
clc
adc #2
tay
lda ZPPtrIP+1
adc #0
>PUSHYA
>LDYA ZPPtrIP
iny
bne .1
inc
.1 >PUSHYA
>PUSHW ZPPtrIP
>PUSHW L.HST.SSScanF
>LDYA ZPPtrDNS
>SYSCALL SScanF.YA
bcc .9
jmp DNS.QUERY.I
.9 rts
*--------------------------------------
HST.GetByAddr >PULLW ZPPtrIP
>PULLW ZPPtrDNS
sec
rts
*--------------------------------------
MAN
SAVE /A2OSX.SRC/LIB/LIBTCPIP.S.HST
LOAD /A2OSX.SRC/LIB/LIBTCPIP.S
ASM