Kernel version 0.9 : TCP, fix in PutC & ACK flag

This commit is contained in:
Rémy GIBERT 2017-03-24 08:31:30 +01:00
parent 95844e1698
commit 1440f681a8
5 changed files with 7 additions and 1 deletions

Binary file not shown.

Binary file not shown.

View File

@ -660,6 +660,8 @@ SKT.AddDataToSktIn
inc
beq .8
pha
.2 lda (ZPDataInPtr),y
sta (ZPTmpPtr2)
iny
@ -872,6 +874,8 @@ SKT.GetDataFromSktIn
SKT.AddDataToSktOut
jsr SKT.GetTCB
* >DEBUG
ldx SKT.TCBCache+S.TCB.OUTFREE
cpx ZPDataInLen
lda SKT.TCBCache+S.TCB.OUTFREE+1

View File

@ -340,7 +340,7 @@ TCP.OUT.I lda SKT.TCBCache+S.TCB.OUTUSED+1
pha
sbc /K.TCP.MSS OUTDATA > MSS ?
pla
bcs .2 no....keep data len
bcc .2 no....keep data len
>LDYAI K.TCP.MSS yes get only MSS
@ -351,6 +351,7 @@ TCP.OUT.I lda SKT.TCBCache+S.TCB.OUTUSED+1
ldy #S.SOCKET.TCP.OPTIONS
lda (ZPPtrSKT),y
ora #S.TCP.OPTIONS.ACK
ldy #S.TCP.OPTIONS
sta (ZPFrameOutPtr),y

View File

@ -198,6 +198,7 @@ CS.RUN.CLIENT ldy #SktIndex
>PUSHA
.2 lda #$ff data
and #$7F
>PUSHA
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.PutC