mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-02 13:41:30 +00:00
Kernel version 0.9 : TCP, bugfix (#7) ...
This commit is contained in:
parent
625b1af258
commit
3903a2001f
Binary file not shown.
Binary file not shown.
|
@ -238,7 +238,7 @@ TCP.IN.JMP.ESTBLSH
|
||||||
and #S.TCP.OPTIONS.FIN
|
and #S.TCP.OPTIONS.FIN
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
ldy #S.TCP.OPTIONS
|
ldy #S.SOCKET.TCP.OPTIONS
|
||||||
lda (ZPPtrSKT),y
|
lda (ZPPtrSKT),y
|
||||||
ora #S.TCP.OPTIONS.ACK ACK the FIN....
|
ora #S.TCP.OPTIONS.ACK ACK the FIN....
|
||||||
sta (ZPPtrSKT),y
|
sta (ZPPtrSKT),y
|
||||||
|
@ -447,7 +447,9 @@ TCP.OUT.SendOpt sta .1+1
|
||||||
|
|
||||||
TCP.OUT.Send ldy #S.TCP.OPTIONS
|
TCP.OUT.Send ldy #S.TCP.OPTIONS
|
||||||
sta (ZPFrameOutPtr),y
|
sta (ZPFrameOutPtr),y
|
||||||
bit #S.TCP.OPTIONS.ACK
|
|
||||||
|
and #S.TCP.OPTIONS.ACK
|
||||||
|
|
||||||
beq .11
|
beq .11
|
||||||
|
|
||||||
ldx #3
|
ldx #3
|
||||||
|
@ -489,7 +491,7 @@ TCP.OUT.Send ldy #S.TCP.OPTIONS
|
||||||
|
|
||||||
ldy #S.SOCKET.TCP.OPTIONS
|
ldy #S.SOCKET.TCP.OPTIONS
|
||||||
lda (ZPPtrSKT),y
|
lda (ZPPtrSKT),y
|
||||||
bit #S.TCP.OPTIONS.FIN
|
and #S.TCP.OPTIONS.FIN
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
ldy #S.SOCKET.TCP.STATUS
|
ldy #S.SOCKET.TCP.STATUS
|
||||||
|
|
|
@ -92,9 +92,8 @@ OApple+1,OApple+2,OApple+3 to switch between screens : Kernel Log, text, DHGR.
|
||||||
| CD | Working | Improved syntax : now, 'CD ../BIN' works |
|
| CD | Working | Improved syntax : now, 'CD ../BIN' works |
|
||||||
| PWD | Working | |
|
| PWD | Working | |
|
||||||
| DATE | Working | |
|
| DATE | Working | |
|
||||||
| ECHO | Working | \b,\e,\f,\n,\\ and \% supported |
|
| ECHO | Working | \b,\e,\f,\n,\\\ and \\% supported |
|
||||||
| EXIT | Working | |
|
| EXIT | Working | |
|
||||||
| IF | | |
|
|
||||||
| PAUSE | Working | |
|
| PAUSE | Working | |
|
||||||
| READ | Working | -S : no echo (password) |
|
| READ | Working | -S : no echo (password) |
|
||||||
| | | -P : "prompt message" |
|
| | | -P : "prompt message" |
|
||||||
|
|
|
@ -172,6 +172,7 @@ CS.RUN.CLIENT ldy #SktIndex
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
sta .1+1 hSocket
|
sta .1+1 hSocket
|
||||||
|
sta .3+1
|
||||||
|
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.GetCA
|
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.GetCA
|
||||||
bcc .10
|
bcc .10
|
||||||
|
@ -189,7 +190,6 @@ CS.RUN.CLIENT ldy #SktIndex
|
||||||
bra .8
|
bra .8
|
||||||
|
|
||||||
.10 sta .2+1
|
.10 sta .2+1
|
||||||
|
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>LDYA L.MSG.BYTE
|
>LDYA L.MSG.BYTE
|
||||||
>SYSCALL CPrintFYA
|
>SYSCALL CPrintFYA
|
||||||
|
@ -199,6 +199,15 @@ CS.RUN.CLIENT ldy #SktIndex
|
||||||
|
|
||||||
.2 lda #$ff data
|
.2 lda #$ff data
|
||||||
and #$7F
|
and #$7F
|
||||||
|
ora #$20
|
||||||
|
>PUSHA
|
||||||
|
|
||||||
|
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.PutC
|
||||||
|
|
||||||
|
.3 lda #$ff hSocket
|
||||||
|
>PUSHA
|
||||||
|
|
||||||
|
lda #'/'
|
||||||
>PUSHA
|
>PUSHA
|
||||||
|
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.PutC
|
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.PutC
|
||||||
|
|
Loading…
Reference in New Issue
Block a user