Kernel 0.9.2

BIN/ARP.S.txt

@@ -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

LIB/LIBTCPIP.S.DNS.txt

@@ -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