A2osX/LIB/LIBTCPIP.S.HST.txt

42 lines
677 B
Plaintext
Raw Normal View History

2017-12-22 22:24:30 +01:00
NEW
2019-05-05 19:15:37 +02:00
AUTO 3,1
*--------------------------------------
HST.GetByName >PULLW ZPPtrDNS
>PULLW ZPPtrIP
2019-10-03 08:25:27 +02:00
2020-03-23 08:08:27 +01:00
>PUSHW ZPPtrDNS
>PUSHW L.HST.SScanF
2021-05-19 14:44:47 +02:00
2020-03-23 08:08:27 +01:00
ldx #0
2019-10-03 08:25:27 +02:00
2018-09-21 17:28:46 +02:00
.1 txa
clc
2018-09-21 17:28:46 +02:00
adc ZPPtrIP
2020-04-07 08:01:38 +02:00
pha
lda ZPPtrIP+1
adc #0
2020-04-07 08:01:38 +02:00
>PUSHA
pla
>PUSHA @IP[0][1][2][3]
2020-03-23 08:08:27 +01:00
inx
cpx #4
bne .1
2019-10-03 08:25:27 +02:00
2018-06-18 08:22:50 +02:00
>PUSHBI 8 4 PTRs on stack
2018-05-25 21:03:31 +02:00
2019-05-05 19:15:37 +02:00
>SYSCALL2 SScanF
bcc .9
jmp DNS.QUERY.I
.9 rts
*--------------------------------------
2020-04-07 08:01:38 +02:00
HST.GetByAddr >PULLW ZPPtrIP TODO
>PULLW ZPPtrDNS
sec
rts
*--------------------------------------
MAN
2020-06-07 10:06:51 +02:00
SAVE usr/src/lib/libtcpip.s.hst
LOAD usr/src/lib/libtcpip.s
ASM