Kernel version 0.9 : Bug Fix in UDP preventing even DHCP to work properly!!!!

BIN/PING.S.txt

@@ -69,7 +69,7 @@ CS.RUN			>LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG	is TCPIP loaded ?
 				lda #SYSMGR.ERRSYN
 				sec				
 				rts
-*--------------------------------------				
+				
 CS.RUN.IPOK		>SYSCALL GetArgC
 				cmp #1
 				beq .9
@@ -97,7 +97,7 @@ CS.RUN.IPOK		>SYSCALL GetArgC
 				lda #SYSMGR.ERRSYN
 				sec				
 				rts
-*--------------------------------------				
+
 CS.RUN.HOSTOK	lda #1
 				>SYSCALL GetArgA
 				>PUSHYA
@@ -114,8 +114,9 @@ CS.RUN.HOSTOK	lda #1
 				>LDYA L.MSG.HOSTOK
 				>SYSCALL CPrintFYA
 		
-CS.RUN.ECHO		ldx #3
+CS.RUN.OPENSKT	ldx #3
 				ldy #S.IPCFG.IP+3
+				
 .1				lda (ZPIPCfgPtr),y
 				sta Socket.Src.Addr,x
 				dey
@@ -147,7 +148,6 @@ CS.RUN.ECHO		ldx #3
 				ldy #hSocket
 				sta (pData),y
 				
-				
 				ldy #Identifier
 				lda (pData),y
 				tax
@@ -189,23 +189,20 @@ CS.RUN.ECHO		ldx #3
 				dey
 				dex
 				bpl .21
-				
+
+CS.RUN.SEND.ECHO				
 				jsr Init.Timeout
 				
-.3				ldy #hFrame
+.3				ldy #hSocket
-				lda (pData),y
+				>PUSHB (pData),y
-				>SYSCALL GetMemPtrA
+				>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.SEND
-				>PUSHYA
+				
-				>LIBCALL hLIBTCPIP,LIBTCPIP.SEND.ICMP.FRAME
 				bcc .4
 				>SYSCALL Sleep
 				
 				jsr Wait.Timeout
 				bcc .3
 
-.4				ldy #hFrame
-				lda (pData),y
-				>SYSCALL FreeMemA
 				
 				ldy #bReply
 				lda #0
@@ -213,41 +210,43 @@ CS.RUN.ECHO		ldx #3
 				
 				jsr Init.Timeout
 				
-CS.RUN.WAIT		>SYSCALL Sleep
+CS.RUN.WAIT.REPLY
-				ldy #bReply
+				>SYSCALL Sleep
-				lda (pData),y
+				>SYSCALL GetA
-				bne .1
+				bcs .1
-
+				cmp #3					Ctrl-C
-				ldy #bCTRLC
+				beq .9
-				lda (pData),y
-				bne CS.RUN.ERROR
 				
-				jsr Wait.Timeout
+.1				ldy #hSocket
-				bcc CS.RUN.WAIT
+				lda (pData),y
+				>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.RCVDA
+				bcs .2
 				
-				ldy #3
+				ldy #hFrame
+				sta (pData),y
+				>SYSCALL GetMemPtrA
+				>STYA ZPFrameBase
+				jsr CS.Print.REPLY
+				bra CS.RUN.SEND.ECHO
+				
+.2				jsr Wait.Timeout
+				bcc CS.RUN.WAIT.REPLY
+				
+				ldy #DST.IP+3
 				>PUSHB (pData),y			DST.IP+3	
 				dey
 				>PUSHB (pData),y			DST.IP+2
 				dey
 				>PUSHB (pData),y			DST.IP+1
-				>PUSHB (pData)				DST.IP
+				dey
-				>LDYA L.MSG2
+				>PUSHB (pData),y			DST.IP
+				>LDYA L.MSG.UNREACH
 				>SYSCALL CPrintFYA
 
-.1				ldy #bCTRLC
+				jmp CS.RUN.SEND.ECHO
-				lda (pData),y
-				bne CS.RUN.ERROR
-				ldy #TimeOut
-				lda (pData),y
-				beq .2
 				
-				>SYSCALL Sleep
+.9				lda #0
-				bra .1
+				sec
-				
-.2				jmp CS.RUN.ECHO
-				
-CS.RUN.ERROR	sec
 				rts
 *--------------------------------------
 CS.DOEVENT		lda (pEvent)
@@ -263,6 +262,8 @@ CS.DOEVENT		lda (pEvent)
 .9				sec						do not discard TIMER event
 				rts
 *--------------------------------------
+
+*--------------------------------------
 CS.Print.REPLY	lda #TIMEOUT.MAX
 				sec
 				ldy #TimeOut
@@ -301,7 +302,7 @@ CS.Print.REPLY	lda #TIMEOUT.MAX
 				dey
 				>PUSHB (ZPFrameBase),y
 				
-				>LDYA L.MSG3
+				>LDYA L.MSG.REPLY
 				>SYSCALL CPrintFYA
 				
 				ldy #bReply
@@ -334,8 +335,8 @@ MSG.IPKO		>CSTR "TCP/IP Not Loaded/Configured.\n"
 MSG.USAGE		>CSTR "Usage : PING <ip|host>\n"
 MSG.UNKNOWN		>CSTR "%S: Unknown host\n"
 MSG.HOSTOK		>CSTR "PING %d.%d.%d.%d (%S)\n"
-MSG2			>CSTR "%d.%d.%d.%d: TimeOut/Host unreachable\n"
+MSG.UNREACH		>CSTR "%d.%d.%d.%d: TimeOut/Host unreachable\n"
-MSG3			>CSTR "32 bytes from %d.%d.%d.%d, icmp_seq=%D, ttl=%d, time=%D ms\n"
+MSG.REPLY		>CSTR "32 bytes from %d.%d.%d.%d, icmp_seq=%D, ttl=%d, time=%D ms\n"
 hLIBTCPIP		.BS 1
 TimeOut.ms		.BS 2
 Socket			.DA #S.SOCKET.SOCK.RAW

LIB/LIBTCPIP.S.FRM.txt

@@ -1,6 +1,6 @@
 PR#3
 PREFIX /A2OSX.SRC
-NEW
+LOMEM $A00
 INC 1
 AUTO 6
 				.LIST OFF	
@@ -12,7 +12,7 @@ AUTO 6
 *	Y,A = Frame PTR
 *	X = hMem
 *\--------------------------------------
-FRM.NewA		sta	.1+2
+FRM.NewA		sta	.1+1
 				>PUSHWI K.ETH.FRAME.LEN
 				>PUSHBI S.MEM.F.INIT0
 				>SYSCALL GetMem

LIB/LIBTCPIP.S.SKT.txt

@@ -27,14 +27,16 @@ SKT.NEW			>PULLW ZPTmpPtr1
 .1				>LDYA L.SKT.TABLE
 				>STYA ZPTmpPtr2
 
-				stz TmpOffset		to keep track of any free slot
+				lda #$ff
+				sta TmpOffset			to keep track of any free slot
 				
 				ldx #0
 				
 .2				lda (ZPTmpPtr2)
-				beq .4
+				beq .4					empty!!!
+				
 				cmp (ZPTmpPtr1)
-				bne .5
+				bne .5					not same SKT type...try next
 				
 				ldy #S.SOCKET.SRC.ADDR
 				
@@ -45,14 +47,15 @@ SKT.NEW			>PULLW ZPTmpPtr1
 				cpy #S.SOCKET.DST.PORT+2
 				bne .3
 
-				lda #ERR.SKT.BUSY
+				lda #ERR.SKT.BUSY		same one!!!!! busy...
 				sec
 				rts
 				
-.4				bit TmpOffset
+.4				lda TmpOffset
-				bmi .5					Already found an empty slot
+				bpl .5					already found an empty slot....
-				>LDYA ZPTmpPtr2
+
-				>STYA ZPTmpPtr3
+				>LDYA ZPTmpPtr2			found one...
+				>STYA ZPTmpPtr3			save it!
 				stx TmpOffset
 				
 .5				lda ZPTmpPtr2
@@ -65,8 +68,8 @@ SKT.NEW			>PULLW ZPTmpPtr1
 				cpx #K.SKTTABLE.SIZE
 				bne .2
 				
-				bit TmpOffset			Did we found an empty slot ?
+				lda TmpOffset			Did we found an empty slot ?
-				bpl .9
+				bmi .9
 				
 				ldy #S.SOCKET-1
 .7				lda (ZPTmpPtr1),y

LIB/LIBTCPIP.S.txt

@@ -160,8 +160,8 @@ POLL			ldx #DEVMGR.READBLOCK
 * Expire = every sec
 * Retry = every 100 msec
 *--------------------------------------
-PULSEA			asl
+PULSEA			and #S.EVT.F.T1SEC
-				bpl .1
+				beq .1
 				jsr ARP.EXPIRE
 				jsr DNS.EXPIRE
 				

SBIN/DHCPCLNT.S.txt

@@ -103,6 +103,7 @@ CS.INIT			>LDYA L.LIBTCPIP
 				rts
 *--------------------------------------
 CS.RUN			>PUSHW L.Socket
+
 				>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.NEW
 
 				bcc	.1

SBIN/TCPIP.S.txt

@@ -153,9 +153,8 @@ CS.RUN			>LIBCALL hLIBTCPIP,LIBTCPIP.POLL
 				rts
 *--------------------------------------
 CS.DOEVENT		lda (pEvent)
+				bpl .9
 				
-				bit #S.EVT.F.T10TH
-				beq .9					S.EVT.F.T1SEC
 				>LIBCALL hLIBTCPIP,LIBTCPIP.PULSEA
 				
 .9				sec						never discard TIME event