Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-07-13 13:29:04 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93

Browse Source
This commit is contained in:
Rémy GIBERT 2019-06-08 20:40:11 +02:00
parent 4ccad84347
commit 4fbe9aa410
3 changed files with 17 additions and 12 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.

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

@ -400,9 +400,10 @@ SKT.Read jsr SKT.PullhFDDataInPtrLen
sbc ZPDataInLen+1 sbc ZPDataInLen+1
bcs SKT.GetDataFromSktIn more data in pipe, get full buffer of data bcs SKT.GetDataFromSktIn more data in pipe, get full buffer of data
stx ZPDataInLen less data than buff size, Get only INUSED data stx ZPDataInLen less data than INUSED, Get only INUSED data
lda (ZPPtrSKT),y lda (ZPPtrSKT),y
sta ZPDataInLen+1 sta ZPDataInLen+1
bra SKT.GetDataFromSktIn bra SKT.GetDataFromSktIn
.7 jsr SKT.CheckStream .7 jsr SKT.CheckStream
@ -499,9 +500,9 @@ SKT.GetDataFromSktIn
.80 jsr SKT.StoreTCB .80 jsr SKT.StoreTCB
lda #S.TCP.OPTIONS.ACK lda #S.TCP.OPTIONS.ACK
jsr TCP.OUT.SendOptA * jsr TCP.OUT.SendOptA trash ZPDataInLen
* jsr TCP.SetSocketTCPO.ACK jsr TCP.SetSocketTCPO.ACK
* jsr TCP.OUT.I SKT.GetTCB already called * jsr TCP.OUT.I SKT.GetTCB already called
@ -1061,13 +1062,18 @@ SKT.AddDataToSktIn
>SYSCALL printf >SYSCALL printf
.FIN .FIN
ldx SKT.Cache+S.SOCKET.TCP.INFREE lda SKT.Cache+S.SOCKET.TCP.INFREE
cpx ZPDataInLen sec
sbc ZPDataInLen
tax
lda SKT.Cache+S.SOCKET.TCP.INFREE+1 lda SKT.Cache+S.SOCKET.TCP.INFREE+1
sbc ZPDataInLen+1 sbc ZPDataInLen+1
bcc .9 Not enough room in Q bcc .9 Not enough room in Q
.66 ldy #S.TCP.SEQNUM+3 stx SKT.Cache+S.SOCKET.TCP.INFREE
sta SKT.Cache+S.SOCKET.TCP.INFREE+1
ldy #S.TCP.SEQNUM+3
ldx #3 ldx #3
.10 lda (ZPFrameInPtr),y .10 lda (ZPFrameInPtr),y
@ -1139,8 +1145,7 @@ SKT.AddDataToSktIn
.9 sec .9 sec
rts rts
.8 >SBC16 SKT.Cache+S.SOCKET.TCP.INFREE,ZPDataInLen .8 >ADC16 SKT.Cache+S.SOCKET.TCP.INUSED,ZPDataInLen
>ADC16 SKT.Cache+S.SOCKET.TCP.INUSED,ZPDataInLen
clc clc
@ -1151,13 +1156,13 @@ SKT.AddDataToSktIn
lda SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM+2 lda SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM+2
adc ZPDataInLen+1 adc ZPDataInLen+1
sta SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM+2 sta SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM+2
bcc .80 bcc .81
inc SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM+1 inc SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM+1
bne .80 bne .80
inc SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM inc SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM
.80 clc .80 clc
rts .81 rts
*-------------------------------------- *--------------------------------------
* From TCP.OUT * From TCP.OUT
* Src : hOutMem/OUTTAIL * Src : hOutMem/OUTTAIL

2
LIB/LIBTCPIP.S.txt
View File

@ -58,7 +58,7 @@ ZPTmpPtr1 .EQ ZPLIB+26
TmpDWord .EQ ZPLIB+28 TmpDWord .EQ ZPLIB+28
IP.CHECKSUM .EQ ZPLIB+28 IP.CHECKSUM .EQ ZPLIB+28
ZPTmpPtr2 .EQ ZPLIB+28 ZPTmpPtr2 .EQ ZPLIB+28
* .EQ ZPLIB+30 ZPTmpPtr3 .EQ ZPLIB+30
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
*-------------------------------------- *--------------------------------------