A2osX/LIB/LIBTCPIP.S.HST.txt

53 lines
865 B
Plaintext
Raw Normal View History

2017-12-22 21:24:30 +00:00
NEW
PREFIX /A2OSX.BUILD
2017-12-22 21:24:30 +00:00
AUTO 4,1
.LIST OFF
*--------------------------------------
HST.GetByName >PULLW ZPPtrDNS
>PULLW ZPPtrIP
lda ZPPtrIP
clc
adc #3
tay
lda ZPPtrIP+1
adc #0
2018-06-18 06:22:50 +00:00
>PUSHYA @IP[3]
lda ZPPtrIP
clc
adc #2
tay
lda ZPPtrIP+1
adc #0
2018-06-18 06:22:50 +00:00
>PUSHYA @IP[2]
>LDYA ZPPtrIP
iny
bne .1
inc
2018-06-18 06:22:50 +00:00
.1 >PUSHYA @IP[1]
2018-06-18 06:22:50 +00:00
>PUSHW ZPPtrIP @IP[0]
2018-06-18 06:22:50 +00:00
>PUSHBI 8 4 PTRs on stack
2018-05-25 19:03:31 +00:00
>PUSHW L.HST.SScanF
>LDYA ZPPtrDNS
2018-05-25 19:03:31 +00:00
2018-06-18 06:22:50 +00:00
>SYSCALL SScanF
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