mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-08 08:33:37 +00:00
52 lines
792 B
Plaintext
52 lines
792 B
Plaintext
NEW
|
||
PREFIX /A2OSX.BUILD
|
||
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
|
||
|
||
>PUSHW L.HST.SScanF
|
||
>LDYA ZPPtrDNS
|
||
|
||
>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
|