Kernel 0.94

BIN/GTEST.S.txt

@@ -105,7 +105,7 @@ CS.RUN			jsr GFX.Open
 
 				>LDYA L.CB.Apple
 				jsr GFX.Write.YA
-				
+
 				lda hFontB
 				sta CB.TEXTB+S.CB.hFont
 				>LDYA L.MESSAGEB

BIN/HTTPGET.S.txt

@@ -470,6 +470,7 @@ CS.RUN.RESPONSE jsr Init.TimeOut
 				bcc .2
 				
 				cmp #E.NODATA
+			beq .1	
 				bne .8
 				
 				lda TimeOut

DRV/DHGR.DRV.S.OSD.txt

@@ -570,8 +570,10 @@ OSD.YAMultX		stx GBYTE
 *--------------------------------------
 CB.Update		sta CLRWRITEAUX
 
-				ldx CBX.Cache
-				ldy CBX.CmdLen,x
+				lda CBX.Cache
+				lsr
+				tax
+				ldy CBX.CmdLen-1,x
 
 .1				lda CBX.Cache,y
 				sta (ZPCmdPtr),y

DRV/DHGR.DRV.S.txt

@@ -463,7 +463,7 @@ WRITE			>STYA ZPIOCTL			NON STANDARD
 				jmp (J.Cmds-2,x)
 
 .2				sta SETWRITEAUX
-			>DEBUG
+
 				and #$7f
 				sta CBX.Cache
 

INC/LIBTCPIP.I.txt

@@ -151,8 +151,8 @@ S.SOCKET.REM.PORT	.EQ S.FD.DSOCK+14
 * Datagram type Queue
 * Seq Packet type Queue
 *--------------------------------------
-S.SOCKET.HQ.HEAD	.EQ S.FD.DSOCK+16
-S.SOCKET.HQ.TAIL	.EQ S.FD.DSOCK+17
+S.SOCKET.HQ.TAIL	.EQ S.FD.DSOCK+16
+S.SOCKET.HQ.HEAD	.EQ S.FD.DSOCK+17
 S.SOCKET.HQ			.EQ S.FD.DSOCK+18
 S.SOCKET.HQ.MAX			.EQ 14				14 hMem (frames)
 *--------------------------------------

LIB/LIBGUI.S.CUR.txt

@@ -102,7 +102,6 @@ DrawCursor.I	>LDYA L.SCR
 				jsr OBJ.Get
 
 				>LDYA L.CUR.CB
-			>DEBUG
 				jsr CLIP.YA
 				bcs .9
 			

LIB/LIBTCPIP.S.SKT.txt

@@ -290,28 +290,7 @@ SKT.Accept		>SYSCALL2 GetMemPtr
 				and #S.SOCKET.O.ACCEPTCONN
 				beq .99
 
-				ldy #S.SOCKET.HQ.TAIL
-				lda (ZPPtrSKT),y
-				ldy #S.SOCKET.HQ.HEAD
-				cmp (ZPPtrSKT),y
-				beq .9					CS
-
-				pha
-				inc
-				cmp #S.SOCKET.HQ.MAX
-				bne .1
-
-				lda #0
-
-.1				ldy #S.SOCKET.HQ.TAIL
-				sta (ZPPtrSKT),y
-				pla
-				clc
-				adc #S.SOCKET.HQ
-				tay
-				lda (ZPPtrSKT),y
-				clc
-				rts
+				jmp SKT.GetFromQueue
 
 .99				lda #ERR.SKT.BAD
 				sec
@@ -355,29 +334,9 @@ SKT.shutdown.LISTEN
 SKT.shutdown.RAW
 SKT.shutdown.DGRAM
 SKT.shutdown.SEQPKT
-.1				ldy #S.SOCKET.HQ.TAIL
-				lda (ZPPtrSKT),y
-				ldy #S.SOCKET.HQ.HEAD
-				cmp (ZPPtrSKT),y
-				beq .3					No frame in Queue, close..
-
-				pha						save tail...
-				clc
-				adc #S.SOCKET.HQ
-				tax
-				pla
-				inc
-				cmp #S.SOCKET.HQ.MAX
-				bne .2
-
-				lda #0
-
-.2				ldy #S.SOCKET.HQ.TAIL
-				sta (ZPPtrSKT),y
-
-				txa
-				tay
-				lda (ZPPtrSKT),y
+.1				jsr SKT.GetFromQueue
+				bcs .3
+				
 				>SYSCALL2 FreeMem
 				bra .1
 
@@ -872,28 +831,8 @@ SKT.Recv		clc
 				jsr SKT.CheckTCP
 				bcs .91
 
-.10				ldy #S.SOCKET.HQ.TAIL
-				lda (ZPPtrSKT),y
-				tax
-
-				ldy #S.SOCKET.HQ.HEAD
-				cmp (ZPPtrSKT),y
-				beq .90
-
-				inc
-				cmp #S.SOCKET.HQ.MAX
-				bne .1
-
-				lda #0
-
-.1				ldy #S.SOCKET.HQ.TAIL
-				sta	(ZPPtrSKT),y
-
-				txa
-				clc
-				adc #S.SOCKET.HQ
-				tay
-				lda (ZPPtrSKT),y
+.10				jsr SKT.GetFromQueue
+				bcs .90
 				
 				plp						if CS, RecvFrom
 				bcc .9					Exit with CC and A=hFrame
@@ -1273,6 +1212,33 @@ SKT.FindMatchingLocRem
 *				sec
 				rts
 *--------------------------------------
+SKT.GetFromQueue
+				ldy #S.SOCKET.HQ.TAIL
+				lda (ZPPtrSKT),y
+				iny						#S.SOCKET.HQ.HEAD
+				cmp (ZPPtrSKT),y
+				beq .9					CS
+
+				pha
+				inc
+				cmp #S.SOCKET.HQ.MAX
+				bne .1
+
+				lda #0
+
+.1				dey						#S.SOCKET.HQ.TAIL
+				sta (ZPPtrSKT),y
+
+				pla
+				clc
+				adc #S.SOCKET.HQ
+				tay
+				lda (ZPPtrSKT),y
+
+*				clc
+
+.9				rts
+*--------------------------------------
 SKT.AddToQueueA pha
 				ldy #S.SOCKET.HQ.HEAD
 				lda (ZPPtrSKT),y
@@ -1283,11 +1249,11 @@ SKT.AddToQueueA pha
 
 				lda #0
 
-.1				ldy #S.SOCKET.HQ.TAIL
+.1				dey						#S.SOCKET.HQ.TAIL
 				cmp (ZPPtrSKT),y
 				beq .9					Queue full!!
 
-				ldy #S.SOCKET.HQ.HEAD
+				iny						#S.SOCKET.HQ.HEAD
 				sta (ZPPtrSKT),y
 				txa
 				clc