mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-26 13:49:18 +00:00
43 lines
697 B
Plaintext
43 lines
697 B
Plaintext
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
|