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 (pData),y
>LDYA L.Socket
>PUSHW L.Socket
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.New
bcc .2

View File

@ -171,7 +171,6 @@ CS.RUN.LOOP >SLEEP
>PUSHWI BUFSIZE
>PUSHW ZPBufPtr
>LDA.G hSocket
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.Read
bcc .1
@ -206,6 +205,7 @@ CS.RUN.LOOP >SLEEP
>PUSHW ZPBufPtr
>LDA.G hSocket
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.Write
bcs CS.RUN.SKTERR
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+1
>LDYA L.DNS.SOCKET
>PUSHW L.DNS.SOCKET
jsr SKT.New
bcs .9
stx hDNSSocket1
sta hDNSSocket1
.6 lda IPCFG+S.IPCFG.DNS2
beq .8
@ -532,11 +532,11 @@ SET.IPCFG.I >LDYA L.DCB.NIC
stz DNS.SOCKET.SP
stz DNS.SOCKET.SP+1
>LDYA L.DNS.SOCKET
>PUSHW L.DNS.SOCKET
jsr SKT.New
bcs .9
stx hDNSSocket2
sta hDNSSocket2
.8 clc
.9 rts

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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