mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-23 07:35:19 +00:00
41 lines
678 B
Plaintext
41 lines
678 B
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
HST.GetByName >PULLW ZPPtrDNS
|
||
>PULLW ZPPtrIP
|
||
|
||
ldx #3
|
||
|
||
.1 txa
|
||
clc
|
||
adc ZPPtrIP
|
||
tay
|
||
lda ZPPtrIP+1
|
||
adc #0
|
||
>PUSHYA @IP[3][2][1][0]
|
||
|
||
dex
|
||
bpl .1
|
||
|
||
>PUSHBI 8 4 PTRs on stack
|
||
>PUSHW L.HST.SScanF
|
||
>LDYA ZPPtrDNS
|
||
|
||
>SYSCALL2 SScanF
|
||
bcc .9
|
||
jmp DNS.QUERY.I
|
||
.9 rts
|
||
*--------------------------------------
|
||
HST.GetByAddr >PULLW ZPPtrIP
|
||
>PULLW ZPPtrDNS
|
||
|
||
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE USR/SRC/LIB/LIBTCPIP.S.HST
|
||
LOAD USR/SRC/LIB/LIBTCPIP.S
|
||
ASM
|