A2osX/LIB/LIBTCPIP.S.HST.txt

52 lines
792 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
2018-05-25 19:03:31 +00:00
>PUSHW L.HST.SScanF
>LDYA ZPPtrDNS
2018-05-25 19:03:31 +00:00
>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