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

Kernel 0.9.2

Browse Source
This commit is contained in:
Rémy GIBERT 2018-09-27 17:34:38 +02:00
parent 620f57c3d9
commit 42fc2a01e1
6 changed files with 30 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.

BIN
.Floppies/A2OSX.SRC.po
View File

Binary file not shown.

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

@ -44,6 +44,23 @@ AUTO 4,1
* CC: A = hSOCKET
* CS: A = EC
*\--------------------------------------
SKT.connect >SYSCALL GetMemPtr
>STYA ZPPtrSKT
>PULLW ZPTmpPtr1 sockaddr
ldy #S.SOCKET.SOCK
lda (ZPTmpPtr1),y
tax
jmp (J.SKT.connect,x)
SKT.connect.RAW
SKT.connect.DGRAM
SKT.connect.STREAM
SKT.connect.SEQPACKET
*/--------------------------------------
* # SKT.listen
* Create a new socket
@ -162,7 +179,7 @@ SKT.New >PULLW ZPTmpPtr1
ldy #S.SOCKET.TCP.OPTIONS
lda (ZPPtrSKT),y
ora #S.TCP.OPTIONS.SYN
jsr TCP.OUT.SendOptA Send SYN,Only for CLIENT conn,or SYN/ACK if comminf from LISTEN
jsr TCP.OUT.SendOptA Send SYN,Only for CLIENT conn,or SYN/ACK if coming from LISTEN
bcs .99
ldy #S.SOCKET.TCP.STATUS

8
LIB/LIBTCPIP.S.TCP.txt
View File

@ -58,7 +58,7 @@ TCP.IN jsr IP.FillSKT.TemplateSrcDstIPP
asl
tax
jmp (L.TCP.IN.JMP,x)
jmp (J.TCP.IN,x)
.7 lda ZPPtrSKT
clc
@ -81,9 +81,11 @@ TCP.IN.JMP.LISTEN
sta SKT.Template+S.SOCKET.SOCK
stz SKT.Template+S.SOCKET.SO
stz SKT.Template+S.SOCKET.TCP.STATUS
lda #S.TCP.OPTIONS.ACK
lda #S.TCP.OPTIONS.SYN+S.TCP.OPTIONS.ACK
sta SKT.Template+S.SOCKET.TCP.OPTIONS
jsr ARP.AddFromFrameInPtr
>PUSHW L.SKT.Template
jsr SKT.New Assign OUTNEXTSEQ
@ -106,8 +108,6 @@ TCP.IN.JMP.LISTEN
jsr SKT.StoreTCB
jsr ARP.AddFromFrameInPtr
lda #S.TCP.OPTIONS.SYN+S.TCP.OPTIONS.ACK
jsr TCP.OUT.SendOptA SYN received, Send SYN.ACK
bcs .9

6
LIB/LIBTCPIP.S.txt
View File

@ -113,7 +113,7 @@ L.SKT.Template .DA SKT.Template
L.HST.SScanF .DA HST.SScanF
L.IOCTL .DA IOCTL
L.DCB.NIC .DA DCB.NIC
L.TCP.IN.JMP .DA TCP.IN.JMP.CLOSED
J.TCP.IN .DA TCP.IN.JMP.CLOSED
.DA TCP.IN.JMP.LISTEN
.DA TCP.IN.JMP.SYNSENT
.DA TCP.IN.JMP.SYNRCVD
@ -124,6 +124,10 @@ L.TCP.IN.JMP .DA TCP.IN.JMP.CLOSED
.DA TCP.IN.JMP.FINWT2
.DA TCP.IN.JMP.CLOSING
.DA TCP.IN.JMP.TIMEWT
J.SKT.connect .DA SKT.connect.RAW
.DA SKT.connect.DGRAM
.DA SKT.connect.STREAM
.DA SKT.connect.SEQPACKET
.DA 0
*--------------------------------------
LIB.LOAD ldx RefCount

9
SBIN/TCPIPD.S.txt
View File

@ -17,7 +17,8 @@ CS.START cld
jmp (.1,x)
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
.DA 0
.DA #S.PS.F.EVENT
.DA #0
.DA CS.END-CS.START CS
.DA DS.END-DS.START DS
.DA #64 SS
@ -38,11 +39,7 @@ CS.INIT >LDYA L.LIBTCPIP
bcs .99
sta hLIBTCPIP
lda (pPs)
ora #S.PS.F.EVENT Now accept events
sta (pPs)
clc
* clc
.99 rts
*--------------------------------------
CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.POLL