mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 22:54:59 +00:00
Kernel 0.9.2
This commit is contained in:
parent
846ce0f76e
commit
cca447131d
Binary file not shown.
Binary file not shown.
@ -21,7 +21,8 @@ CS.START cld
|
|||||||
jmp (.1,x)
|
jmp (.1,x)
|
||||||
.DA #$61 6502,Level 1 (65c02)
|
.DA #$61 6502,Level 1 (65c02)
|
||||||
.DA #1 BIN Layout Version 1
|
.DA #1 BIN Layout Version 1
|
||||||
.DA 0
|
.DA #S.PS.F.EVENT
|
||||||
|
.DA #0
|
||||||
.DA CS.END-CS.START CS
|
.DA CS.END-CS.START CS
|
||||||
.DA DS.END-DS.START DS
|
.DA DS.END-DS.START DS
|
||||||
.DA #16 SS
|
.DA #16 SS
|
||||||
@ -47,15 +48,12 @@ CS.INIT >LDYA L.LIBTCPIP
|
|||||||
bcs .9
|
bcs .9
|
||||||
sta hLIBTCPIP
|
sta hLIBTCPIP
|
||||||
|
|
||||||
lda (pPs)
|
|
||||||
ora #S.PS.F.EVENT Now accept events
|
|
||||||
sta (pPs)
|
|
||||||
clc
|
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN ldy #S.PS.ARGC
|
CS.RUN ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPs),y
|
||||||
bne .1
|
cmp #2
|
||||||
|
bcs .1
|
||||||
jmp CS.RUN.DUMP
|
jmp CS.RUN.DUMP
|
||||||
|
|
||||||
.1 >PUSHEA.G DST.IP+3
|
.1 >PUSHEA.G DST.IP+3
|
||||||
|
@ -106,21 +106,34 @@ DNS.REQUEST lda hDNSSocket
|
|||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DNS.REQUEST.SEND
|
DNS.REQUEST.SEND
|
||||||
|
>LDYAI UDP.PORT.DNS
|
||||||
|
>STYA SA.REMOTE+S.SOCKADDR.PORT
|
||||||
|
|
||||||
ldy #3
|
ldy #3
|
||||||
|
|
||||||
.1 lda IPCFG+S.IPCFG.DNS1,y
|
.1 lda IPCFG+S.IPCFG.DNS1,y
|
||||||
sta SA.REMOTE+S.SOCKADDR.ADDR,y
|
sta SA.REMOTE+S.SOCKADDR.ADDR,y
|
||||||
dey
|
dey
|
||||||
bpl .1
|
bpl .1
|
||||||
|
jsr .4
|
||||||
|
|
||||||
>LDYAI UDP.PORT.DNS
|
ldy #3
|
||||||
>STYA SA.REMOTE+S.SOCKADDR.PORT
|
|
||||||
|
|
||||||
>PUSHW L.SA.REMOTE
|
.2 lda IPCFG+S.IPCFG.DNS2,y
|
||||||
|
beq .8
|
||||||
|
sta SA.REMOTE+S.SOCKADDR.ADDR,y
|
||||||
|
dey
|
||||||
|
bpl .2
|
||||||
|
|
||||||
|
.4 >PUSHW L.SA.REMOTE
|
||||||
|
|
||||||
>PUSHW DNS.MSG.LEN
|
>PUSHW DNS.MSG.LEN
|
||||||
>PUSHW L.DNS.MSG
|
>PUSHW L.DNS.MSG
|
||||||
lda hDNSSocket
|
lda hDNSSocket
|
||||||
jmp SKT.SendTo
|
jmp SKT.SendTo
|
||||||
|
|
||||||
|
.8 clc
|
||||||
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DNS.CSTR2DNS lda (ZPPtrDNS)
|
DNS.CSTR2DNS lda (ZPPtrDNS)
|
||||||
beq .9
|
beq .9
|
||||||
|
Loading…
Reference in New Issue
Block a user