Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-16 18:30:26 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93

Browse Source
This commit is contained in:
Rémy GIBERT 2019-05-10 20:41:17 +02:00
parent fb0c8b4e9c
commit 638e36f3a0
2 changed files with 21 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

44
LIB/LIBTCPIP.S.SKT.txt
View File

@ -388,15 +388,25 @@ SKT.shutdown.STREAM
*\--------------------------------------
SKT.Read jsr SKT.PullhFDDataInPtrLen
jsr SKT.EOF.I
bcs .99 I/O error
tay
beq SKT.GetDataFromSktIn
.9 lda #0 eof=true, exit with CC,Y,A = 0
tay
ldy #S.SOCKET.TCP.INUSED
lda (ZPPtrSKT),y
iny
ora (ZPPtrSKT),y
bne SKT.GetDataFromSktIn
jsr SKT.CheckStream
bcs .99 I/O error
ldy #S.SOCKET.TCP.O
lda (ZPPtrSKT),y
bit #S.TCP.OPTIONS.ACK
beq .8
jsr TCP.OUT.SendOptA
.8 lda #0
tay eof=true, exit with CC,Y,A = 0
clc
.99 rts
*--------------------------------------
* In:
@ -507,17 +517,10 @@ SKT.GetDataFromSktIn
ldy #S.SOCKET.TCP.O
lda (ZPPtrSKT),y
bit #S.TCP.OPTIONS.ACK
beq .81
jsr TCP.OUT.SendOptA ACK pending, send ACK
bra .88
.81 ora #S.TCP.OPTIONS.ACK Delayed ACK
ora #S.TCP.OPTIONS.ACK
sta (ZPPtrSKT),y
* jsr TCP.OUT.I SKT.GetTCB already called, Try to ACK read DATA
jsr TCP.OUT.I SKT.GetTCB already called, Try to ACK read DATA
.88 >LDYA ZPTmpPtr3
clc
@ -619,11 +622,6 @@ SKT.AddDataToSktOut
>ADC16 SKT.Cache+S.SOCKET.TCP.OUTTOSEND,ZPDataInLen
jsr SKT.StoreTCB
ldy #S.SOCKET.TCP.O
lda (ZPPtrSKT),y
bit #S.TCP.OPTIONS.ACK
beq .88 no pending ACK....
jsr TCP.OUT.I SKT.GetTCB called, try to push, ignore error....
.88 >LDYA ZPDataInLen