mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-29 17:50:18 +00:00
376 lines
6.4 KiB
Plaintext
376 lines
6.4 KiB
Plaintext
PR#3
|
||
PREFIX /A2OSX.SRC
|
||
NEW
|
||
INC 1
|
||
AUTO 6
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
DNS.CLEAR ldx #K.DNSCACHE.SIZE*S.DNSCACHE
|
||
.1 stz DNS.CACHE-1,x
|
||
dex
|
||
bne .1
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
* DNS.QUERY
|
||
* In:
|
||
* PULLW = hostname PTR to PSTR
|
||
* PULLW = PTR to IP to fill with cached data
|
||
* Out:
|
||
* CC: hit: IP filled with address
|
||
* CS: missed
|
||
*--------------------------------------
|
||
DNS.QUERY >PULLYA Get host string
|
||
jsr PSTR2DNSHostName
|
||
|
||
>PULLW ZPPtrIP Get IP address to fill
|
||
|
||
ldx #0
|
||
|
||
.1 lda DNS.CACHE,x
|
||
beq .6 empty DNS cache entry?
|
||
|
||
phx
|
||
lda DNS.CACHE+S.DNSCACHE.hNAME,x
|
||
>SYSCALL SYS.GetMemPtrA
|
||
>STYA ZPPtrDNS
|
||
plx
|
||
|
||
ldy #0
|
||
|
||
.2 lda DNSHostname,y
|
||
bne .21
|
||
lda (ZPPtrDNS),y
|
||
beq .22
|
||
|
||
.21 cmp (ZPPtrDNS),y
|
||
bne .6
|
||
iny
|
||
bne .2
|
||
|
||
.22 lda DNS.CACHE,x get back status...
|
||
bpl .4 Pending...
|
||
|
||
ldy #0
|
||
.3 lda DNS.CACHE+S.DNSCACHE.RDATA,x
|
||
sta (ZPPtrIP),y
|
||
inx
|
||
iny
|
||
cpy #4
|
||
bne .3
|
||
clc
|
||
rts
|
||
|
||
.4 sec
|
||
rts
|
||
|
||
.6 txa
|
||
clc
|
||
adc #S.DNSCACHE
|
||
tax
|
||
cmp #K.DNSCACHE.SIZE*S.DNSCACHE
|
||
bne .1
|
||
|
||
DNS.REQUEST jsr NEW.UDP.FRAME
|
||
bcc .1
|
||
|
||
bra *
|
||
|
||
rts
|
||
|
||
.1 phx
|
||
|
||
ldy #S.UDP.SRCPORT
|
||
lda /UDP.PORT.DNS
|
||
sta (ZPFrameBase1),y
|
||
iny
|
||
lda #UDP.PORT.DNS
|
||
sta (ZPFrameBase1),y
|
||
|
||
ldy #S.UDP.DSTPORT
|
||
lda /UDP.PORT.DNS
|
||
sta (ZPFrameBase1),y
|
||
iny
|
||
lda #UDP.PORT.DNS
|
||
sta (ZPFrameBase1),y
|
||
|
||
ldy #S.DNS.ID
|
||
lda A2osX.RANDOM16
|
||
sta (ZPFrameBase1),y
|
||
sta DNSMessageID
|
||
iny
|
||
lda A2osX.RANDOM16+1
|
||
sta (ZPFrameBase1),y
|
||
sta DNSMessageID+1
|
||
|
||
* ldy #S.DNS.F
|
||
* lda /S.DNS.F.RD
|
||
* sta (ZPFrameBase1),y
|
||
* iny
|
||
* lda #S.DNS.F.RD
|
||
* sta (ZPFrameBase1),y
|
||
|
||
ldy #S.DNS.QDCOUNT
|
||
lda /1
|
||
sta (ZPFrameBase1),y
|
||
iny
|
||
lda #1
|
||
sta (ZPFrameBase1),y
|
||
|
||
lda #S.DNS
|
||
clc
|
||
adc ZPFrameBase1
|
||
sta ZPFramePtr1
|
||
lda /S.DNS
|
||
adc ZPFrameBase1+1
|
||
sta ZPFramePtr1+1
|
||
|
||
ldy #0
|
||
.2 lda DNSHostname,y
|
||
sta (ZPFramePtr1),y
|
||
beq .3
|
||
iny
|
||
bne .2
|
||
|
||
.3 iny
|
||
lda /S.DNS.QTYPE.A
|
||
sta (ZPFramePtr1),y
|
||
iny
|
||
lda #S.DNS.QTYPE.A
|
||
sta (ZPFramePtr1),y
|
||
|
||
iny
|
||
lda /S.DNS.QCLASS.IN
|
||
sta (ZPFramePtr1),y
|
||
iny
|
||
lda #S.DNS.QCLASS.IN
|
||
sta (ZPFramePtr1),y
|
||
|
||
lda DNSHostnameLen Get hostname len again (QNAME)
|
||
clc
|
||
adc #6 (len+1) + Ending 0 + QTYPE + QCLASS
|
||
adc #S.DNS
|
||
sta ZPFrameLen1
|
||
lda #0
|
||
adc /S.DNS
|
||
sta ZPFrameLen1+1
|
||
|
||
ldx #S.IPCFG.DNS
|
||
ldy #S.IP.DST
|
||
|
||
lda IPCFG,x
|
||
beq .5
|
||
|
||
.4 lda IPCFG,x
|
||
sta (ZPFrameBase1),y
|
||
iny
|
||
inx
|
||
cpx #S.IPCFG.DNS+4
|
||
bne .4
|
||
jsr SEND.UDP.FRAME.I
|
||
bcs .8
|
||
|
||
.5 ldx #S.IPCFG.DNS+4
|
||
ldy #S.IP.DST
|
||
|
||
lda IPCFG,x
|
||
beq .7
|
||
|
||
.6 lda IPCFG,x
|
||
sta (ZPFrameBase1),y
|
||
iny
|
||
inx
|
||
cpx #S.IPCFG.DNS+8
|
||
bne .6
|
||
jsr SEND.UDP.FRAME.I
|
||
bcs .8
|
||
|
||
.7 jsr DNS.ADD.PENDING.I
|
||
|
||
.8 pla
|
||
>SYSCALL SYS.FreeMemA
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
* DNS.ADD
|
||
* In:
|
||
* PULLW = hostname PSTR to Add
|
||
* PULLW = PTR to IP
|
||
*--------------------------------------
|
||
DNS.ADD >PULLYA Get host string
|
||
jsr PSTR2DNSHostName
|
||
>PULLW ZPPtrIP Get host IP address
|
||
|
||
lda #$80
|
||
sta DNSHostTTL+3
|
||
stz DNSHostTTL+2
|
||
stz DNSHostTTL+1
|
||
stz DNSHostTTL
|
||
|
||
lda #S.DNSCACHE.STATUS.RESOLVED
|
||
bra DNS.ADD.I
|
||
|
||
DNS.ADD.PENDING.I
|
||
lda #S.DNSCACHE.STATUS.PENDING
|
||
|
||
DNS.ADD.I sta Status
|
||
ldx #0
|
||
|
||
.1 lda DNS.CACHE,x
|
||
beq DNS.ADD.ENTRY free ?
|
||
|
||
lda DNS.CACHE+S.DNSCACHE.hNAME,x
|
||
phx
|
||
>SYSCALL SYS.GetMemPtrA
|
||
>STYA ZPPtrDNS
|
||
plx
|
||
|
||
ldy #0
|
||
|
||
.2 lda DNSHostname,y
|
||
cmp (ZPPtrDNS),y
|
||
bne .4
|
||
|
||
and #$FF End Of String?
|
||
beq DNS.UPD.ENTRY
|
||
|
||
iny
|
||
bne .2
|
||
|
||
.4 txa
|
||
clc
|
||
adc #S.DNSCACHE
|
||
tax
|
||
cmp #K.DNSCACHE.SIZE*S.DNSCACHE
|
||
bne .1
|
||
|
||
lda DNS.CACHE+S.DNSCACHE.hNAME discard oldest entry hNAME
|
||
>SYSCALL SYS.FreeMemA
|
||
|
||
ldx #K.DNSCACHE.SIZE*S.DNSCACHE-S.DNSCACHE
|
||
|
||
.6 lda DNS.CACHE+S.DNSCACHE-1,x
|
||
sta DNS.CACHE-1,x
|
||
dex
|
||
bne .6
|
||
|
||
ldx #K.DNSCACHE.SIZE*S.DNSCACHE-S.DNSCACHE
|
||
|
||
DNS.ADD.ENTRY phx
|
||
|
||
ldy DNSHostnameLen
|
||
iny add 1 for Ending 00
|
||
lda #0
|
||
>PUSHYA push PSTR len
|
||
>PUSHBI 0 no option
|
||
>SYSCALL SYS.GetMem
|
||
bcc .10
|
||
plx
|
||
rts
|
||
|
||
.10 >STYA ZPPtrDNS
|
||
txa
|
||
plx
|
||
sta DNS.CACHE+S.DNSCACHE.hNAME,x
|
||
|
||
ldy #0
|
||
.1 lda DNSHostname,y
|
||
sta (ZPPtrDNS),y
|
||
iny
|
||
cpy DNSHostnameLen
|
||
bne .1
|
||
|
||
lda #0
|
||
sta (ZPPtrDNS),y
|
||
|
||
DNS.UPD.ENTRY lda Status
|
||
sta DNS.CACHE+S.DNSCACHE.STATUS,x
|
||
bmi .1 pending?
|
||
|
||
lda DNSMessageID
|
||
sta DNS.CACHE+S.DNSCACHE.ID,x
|
||
lda DNSMessageID+1
|
||
sta DNS.CACHE+S.DNSCACHE.ID+1,x
|
||
|
||
bra .9
|
||
|
||
.1 lda DNSHostTTL
|
||
sta DNS.CACHE+S.DNSCACHE.TTL,x
|
||
lda DNSHostTTL+1
|
||
sta DNS.CACHE+S.DNSCACHE.TTL+1,x
|
||
lda DNSHostTTL+2
|
||
sta DNS.CACHE+S.DNSCACHE.TTL+2,x
|
||
lda DNSHostTTL+3
|
||
sta DNS.CACHE+S.DNSCACHE.TTL+3,x
|
||
|
||
ldy #0
|
||
.2 lda (ZPPtrIP),y
|
||
sta DNS.CACHE+S.DNSCACHE.RDATA,x
|
||
inx
|
||
iny
|
||
cpy #4
|
||
bne .2
|
||
|
||
clc
|
||
rts
|
||
.9 sec
|
||
rts
|
||
*--------------------------------------
|
||
DNS.GETCACHE >LDYA L.DNS.CACHE
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
* PRIVATE
|
||
*--------------------------------------
|
||
PSTR2DNSHostName >STYA ZPTmpPtr1
|
||
|
||
lda (ZPTmpPtr1)
|
||
beq .9
|
||
|
||
cmp #K.DNS.MAXLEN-1
|
||
bcs .9
|
||
|
||
tay
|
||
|
||
inc
|
||
sta DNSHostNameLen
|
||
|
||
lda #0 Ending 0
|
||
sta DNSHostName+1,y
|
||
|
||
ldx #0
|
||
|
||
.1 lda (ZPTmpPtr1),y
|
||
and #$7f
|
||
cmp #'.'
|
||
beq .2
|
||
|
||
cmp #'A'
|
||
bcc .10
|
||
cmp #'Z'+1
|
||
bcs .10
|
||
adc #$20
|
||
|
||
.10 inx
|
||
bra .3
|
||
|
||
.2 txa
|
||
ldx #0
|
||
|
||
.3 sta DNSHostName,y
|
||
dey
|
||
bne .1
|
||
stx DNSHostName
|
||
|
||
clc
|
||
rts
|
||
|
||
.9 sec
|
||
rts
|
||
*--------------------------------------
|
||
|
||
MAN
|
||
SAVE LIB/LIBTCPIP.S.DNS
|
||
LOAD LIB/LIBTCPIP.S
|
||
ASM
|