Kernel 0.9.2

This commit is contained in:
Rémy GIBERT 2018-09-18 08:28:51 +02:00
parent 5ddf499055
commit f9beadd64b
11 changed files with 17 additions and 18 deletions

Binary file not shown.

Binary file not shown.

View File

@ -161,7 +161,7 @@ CS.RUN.OPENSKT ldx #3
sta Socket.Dst.Port+1 sta Socket.Dst.Port+1
sta (pData),y sta (pData),y
>LDYA L.Socket >PUSHW L.Socket
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New >LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New
bcc .2 bcc .2

View File

@ -171,7 +171,6 @@ CS.RUN.LOOP >SLEEP
>PUSHWI BUFSIZE >PUSHWI BUFSIZE
>PUSHW ZPBufPtr >PUSHW ZPBufPtr
>LDA.G hSocket >LDA.G hSocket
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.Read >LIBCALL hLIBTCPIP,LIBTCPIP.SKT.Read
bcc .1 bcc .1
@ -206,6 +205,7 @@ CS.RUN.LOOP >SLEEP
>PUSHW ZPBufPtr >PUSHW ZPBufPtr
>LDA.G hSocket >LDA.G hSocket
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.Write >LIBCALL hLIBTCPIP,LIBTCPIP.SKT.Write
bcs CS.RUN.SKTERR bcs CS.RUN.SKTERR
jmp CS.RUN.LOOP jmp CS.RUN.LOOP

View File

@ -513,11 +513,11 @@ SET.IPCFG.I >LDYA L.DCB.NIC
stz DNS.SOCKET.SP stz DNS.SOCKET.SP
stz DNS.SOCKET.SP+1 stz DNS.SOCKET.SP+1
>LDYA L.DNS.SOCKET >PUSHW L.DNS.SOCKET
jsr SKT.New jsr SKT.New
bcs .9 bcs .9
stx hDNSSocket1 sta hDNSSocket1
.6 lda IPCFG+S.IPCFG.DNS2 .6 lda IPCFG+S.IPCFG.DNS2
beq .8 beq .8
@ -532,11 +532,11 @@ SET.IPCFG.I >LDYA L.DCB.NIC
stz DNS.SOCKET.SP stz DNS.SOCKET.SP
stz DNS.SOCKET.SP+1 stz DNS.SOCKET.SP+1
>LDYA L.DNS.SOCKET >PUSHW L.DNS.SOCKET
jsr SKT.New jsr SKT.New
bcs .9 bcs .9
stx hDNSSocket2 sta hDNSSocket2
.8 clc .8 clc
.9 rts .9 rts

View File

@ -9,22 +9,21 @@ AUTO 4,1
* `hSOCKET skt.new(void *template);` * `hSOCKET skt.new(void *template);`
* ## ASM * ## ASM
* **In:** * **In:**
* `>LDYA template` * `>PUSHW template`
* `>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New` * `>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New`
* **Out:** * **Out:**
* CC: A = hSOCKET * CC: A = hSOCKET
* CS: A = EC * CS: A = EC
*\-------------------------------------- *\--------------------------------------
SKT.New >STYA ZPTmpPtr1 SKT.New >PULLW ZPTmpPtr1
ldy #S.SOCKET.SRC.PORT ldy #S.SOCKET.SRC.PORT+1
lda (ZPTmpPtr1),y lda (ZPTmpPtr1),y
iny dey
ora (ZPTmpPtr1),y ora (ZPTmpPtr1),y
bne .1 bne .1
jsr GetDynPort jsr GetDynPort
ldy #S.SOCKET.SRC.PORT
sta (ZPTmpPtr1),y sta (ZPTmpPtr1),y
txa txa
iny iny
@ -299,10 +298,10 @@ SKT.Accept jsr SKT.Get.I
*/-------------------------------------- */--------------------------------------
* # SKT.MkNod * # SKT.MkNod
* ## C * ## C
* `hFD skt.mknod(hSOCKET *s);` * `hFD skt.mknod(hSOCKET s);`
* ## ASM * ## ASM
* **In:** * **In:**
* `>LDYA s` * `lda s`
* `>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.MkNod` * `>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.MkNod`
* **Out:** * **Out:**
* CC: A = hFD * CC: A = hFD

View File

@ -82,7 +82,7 @@ TCP.IN.JMP.LISTEN
stz SKT.Template+S.SOCKET.SO stz SKT.Template+S.SOCKET.SO
stz SKT.Template+S.SOCKET.TCP.STATUS stz SKT.Template+S.SOCKET.TCP.STATUS
>LDYA L.SKT.Template >PUSHW L.SKT.Template
jsr SKT.New Assign OUTNEXTSEQ jsr SKT.New Assign OUTNEXTSEQ
bcs .99 bcs .99

View File

@ -108,7 +108,7 @@ CS.INIT >LDYA L.LIBTCPIP
sec sec
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN >LDYA L.Socket CS.RUN >PUSHW L.Socket
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New >LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New
bcc .1 bcc .1

View File

@ -98,7 +98,7 @@ CS.RUN.INIT ldx #3
dex dex
bpl .1 bpl .1
>LDYA L.Socket >PUSHW L.Socket
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New >LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New
bcs CS.RUN.RTS bcs CS.RUN.RTS

View File

@ -85,7 +85,7 @@ CS.RUN.INIT ldx #3
dex dex
bpl .1 bpl .1
>LDYA L.Socket >PUSHW L.Socket
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New >LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New
bcs .9 bcs .9

View File

@ -94,7 +94,7 @@ CS.RUN.INIT ldx #3
dex dex
bpl .1 bpl .1
>LDYA L.Socket >PUSHW L.Socket
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New >LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New
bcs .9 bcs .9