A2osX/LIB/LIBTCPIP.S.HST.txt
2020-06-07 10:06:51 +02:00

43 lines
697 B
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
HST.GetByName >PULLW ZPPtrDNS
>PULLW ZPPtrIP
>PUSHW ZPPtrDNS
>PUSHW L.HST.SScanF
ldx #0
.1 txa
clc
adc ZPPtrIP
pha
lda ZPPtrIP+1
adc #0
>PUSHA
pla
>PUSHA @IP[0][1][2][3]
inx
cpx #4
bne .1
>PUSHBI 8 4 PTRs on stack
>SYSCALL2 SScanF
bcc .9
jmp DNS.QUERY.I
.9 rts
*--------------------------------------
HST.GetByAddr >PULLW ZPPtrIP TODO
>PULLW ZPPtrDNS
sec
rts
*--------------------------------------
MAN
SAVE usr/src/lib/libtcpip.s.hst
LOAD usr/src/lib/libtcpip.s
ASM