mirror of https://github.com/A2osX/A2osX.git
42 lines
677 B
Plaintext
42 lines
677 B
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
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
|