Kernel 0.9.2

This commit is contained in:
Rémy GIBERT 2018-11-06 20:26:45 +01:00
parent 846ce0f76e
commit cca447131d
4 changed files with 24 additions and 13 deletions

Binary file not shown.

Binary file not shown.

View File

@ -21,7 +21,8 @@ CS.START cld
jmp (.1,x)
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
.DA 0
.DA #S.PS.F.EVENT
.DA #0
.DA CS.END-CS.START CS
.DA DS.END-DS.START DS
.DA #16 SS
@ -47,15 +48,12 @@ CS.INIT >LDYA L.LIBTCPIP
bcs .9
sta hLIBTCPIP
lda (pPs)
ora #S.PS.F.EVENT Now accept events
sta (pPs)
clc
.9 rts
*--------------------------------------
CS.RUN ldy #S.PS.ARGC
lda (pPs),y
bne .1
cmp #2
bcs .1
jmp CS.RUN.DUMP
.1 >PUSHEA.G DST.IP+3

View File

@ -106,21 +106,34 @@ DNS.REQUEST lda hDNSSocket
rts
*--------------------------------------
DNS.REQUEST.SEND
>LDYAI UDP.PORT.DNS
>STYA SA.REMOTE+S.SOCKADDR.PORT
ldy #3
.1 lda IPCFG+S.IPCFG.DNS1,y
sta SA.REMOTE+S.SOCKADDR.ADDR,y
dey
bpl .1
jsr .4
>LDYAI UDP.PORT.DNS
>STYA SA.REMOTE+S.SOCKADDR.PORT
ldy #3
>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 L.DNS.MSG
lda hDNSSocket
jmp SKT.SendTo
.8 clc
rts
*--------------------------------------
DNS.CSTR2DNS lda (ZPPtrDNS)
beq .9