Kernel 0.9.2

This commit is contained in:
Rémy GIBERT 2018-08-28 17:28:34 +02:00
parent 5d71a71b09
commit 32532ccf06
7 changed files with 17 additions and 22 deletions

Binary file not shown.

Binary file not shown.

View File

@ -90,12 +90,13 @@ CS.RUN.IPOK ldy #S.PS.ARGC
>SYSCALL GetArg >SYSCALL GetArg
>PUSHYA >PUSHYA
>LDYA L.MSG.UNKNOWN >LDYA L.MSG.UNKNOWN
>SYSCALL printf
bra .99 bra .99
.9 >LDYA L.MSG.USAGE .9 >LDYA L.MSG.USAGE
>SYSCALL puts
.99 >SYSCALL puts .99 lda #K.E.SYN
lda #K.E.SYN
sec sec
rts rts
@ -149,6 +150,8 @@ CS.RUN.OPENSKT ldx #3
txa txa
>STA.G hBuf >STA.G hBuf
>DEBUG
CS.RUN.LOOP >PUSHB.G hSocket CS.RUN.LOOP >PUSHB.G hSocket
>PUSHW ZPBufPtr >PUSHW ZPBufPtr
>PUSHWI BUFSIZE >PUSHWI BUFSIZE

View File

@ -381,14 +381,14 @@ S.DIB .EQ 25
* S.FD * S.FD
*-------------------------------------- *--------------------------------------
S.FD.T .EQ 0 S.FD.T .EQ 0
S.FD.T.REG .EQ 0 S.FD.T.REG .EQ 0
S.FD.T.DIR .EQ 2 S.FD.T.DIR .EQ 2
S.FD.T.CDEV .EQ 4 S.FD.T.CDEV .EQ 4
S.FD.T.BDEV .EQ 6 S.FD.T.BDEV .EQ 6
S.FD.T.LNK .EQ 8 S.FD.T.LNK .EQ 8
S.FD.T.DSOCK .EQ 10 S.FD.T.DSOCK .EQ 10
S.FD.T.SSOCK .EQ 12 S.FD.T.SSOCK .EQ 12
S.FD.T.FIFO .EQ 14 S.FD.T.FIFO .EQ 14
S.FD.HANDLER .EQ 1 0=KRNL,!0=hLIB (LIBNFS,LIBTCPIP.....) S.FD.HANDLER .EQ 1 0=KRNL,!0=hLIB (LIBNFS,LIBTCPIP.....)
*-------------------------------------- *--------------------------------------
S.FD.REG.REF .EQ 2 S.FD.REG.REF .EQ 2

View File

@ -11,12 +11,7 @@ AUTO 4,1
* YA = PTR to new S.SOCKET * YA = PTR to new S.SOCKET
* X = hSocket * X = hSocket
*\-------------------------------------- *\--------------------------------------
SKT.New clc SKT.New >PULLW ZPTmpPtr1
.HS B0 BCS
SKT.New.Listen sec
ror
sta .71+1
>PULLW ZPTmpPtr1
ldy #S.SOCKET.SRC.PORT+1 ldy #S.SOCKET.SRC.PORT+1
lda (ZPTmpPtr1),y lda (ZPTmpPtr1),y
dey dey
@ -91,14 +86,11 @@ SKT.New.Listen sec
ldy #S.SOCKET.SO ldy #S.SOCKET.SO
lda (ZPTmpPtr1),y lda (ZPTmpPtr1),y
and #S.SOCKET.SO.ACCEPTCONN and #S.SOCKET.SO.ACCEPTCONN
bne .8 bne .8 From Listen, do not send SYN packet
jsr SKT.NewTCB jsr SKT.NewTCB
bcs .99 bcs .99
.71 lda #$ff
bmi .8 From Listen, do not send SYN packet
>LDYA ZPTmpPtr3 >LDYA ZPTmpPtr3
>STYA ZPPtrSKT >STYA ZPPtrSKT
lda #S.TCP.OPTIONS.SYN lda #S.TCP.OPTIONS.SYN

View File

@ -98,7 +98,7 @@ TCP.IN.JMP.LISTEN
>PUSHW L.SKT.Template >PUSHW L.SKT.Template
jsr SKT.New.Listen Assign OUTNEXTSEQ jsr SKT.New Assign OUTNEXTSEQ
bcs .99 bcs .99
sty .1+1 sty .1+1

View File

@ -217,7 +217,7 @@ POLL >PUSHW L.IOCTL
PULSE and #S.EVT.F.T1SEC PULSE and #S.EVT.F.T1SEC
beq .1 beq .1
* jsr ARP.EXPIRE jsr ARP.EXPIRE
jsr DNS.EXPIRE jsr DNS.EXPIRE
.1 jsr DNS.POLL .1 jsr DNS.POLL