mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-25 15:24:26 +00:00
Kernel 0.9.2
This commit is contained in:
parent
647484d331
commit
8c5ba4b1a7
Binary file not shown.
Binary file not shown.
@ -12,6 +12,7 @@ AUTO 4,1
|
|||||||
.INB INC/LIBTCPIP.I
|
.INB INC/LIBTCPIP.I
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
ZPPTR1 .EQ ZPBIN
|
ZPPTR1 .EQ ZPBIN
|
||||||
|
ZPPTR2 .EQ ZPBIN+2
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* File Header (16 Bytes)
|
* File Header (16 Bytes)
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -23,7 +24,7 @@ CS.START cld
|
|||||||
.DA CS.END-CS.START CS
|
.DA CS.END-CS.START CS
|
||||||
.DA DS.END-DS.START DS
|
.DA DS.END-DS.START DS
|
||||||
.DA #64 SS
|
.DA #64 SS
|
||||||
.DA #2 ZP
|
.DA #4 ZP
|
||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* Relocation Table
|
* Relocation Table
|
||||||
@ -66,32 +67,32 @@ CS.RUN >LDYA L.MSG0
|
|||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.GETTABLE
|
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.GETTABLE
|
||||||
>STYA ZPPTR1
|
>STYA ZPPTR1
|
||||||
|
|
||||||
lda #K.SKTTABLE.SIZE
|
>STZ.G SocketCount
|
||||||
>STA.G SocketCount
|
|
||||||
|
|
||||||
.1 lda (ZPPTR1)
|
.1 tay
|
||||||
beq .7
|
|
||||||
|
|
||||||
ldy #S.SOCKET.TCP.S
|
|
||||||
lda (ZPPTR1),y
|
lda (ZPPTR1),y
|
||||||
|
beq .7
|
||||||
|
>SYSCALL GetMemPtr
|
||||||
|
>STYA ZPPTR2
|
||||||
|
ldy #S.SOCKET.TCP.S
|
||||||
|
lda (ZPPTR2),y
|
||||||
cmp #S.SOCKET.TCP.S.TIMEWT+1
|
cmp #S.SOCKET.TCP.S.TIMEWT+1
|
||||||
bcs *
|
bcs *
|
||||||
asl
|
|
||||||
tax
|
tax
|
||||||
>PUSHB L.MSG1.S+1,x
|
>PUSHB L.MSG1.S+1,x
|
||||||
>PUSHB L.MSG1.S,x
|
>PUSHB L.MSG1.S,x
|
||||||
|
|
||||||
ldy #S.SOCKET.O
|
ldy #S.SOCKET.O
|
||||||
>PUSHB (ZPPTR1),y
|
>PUSHB (ZPPTR2),y
|
||||||
|
|
||||||
ldy #S.SOCKET.DST.PORT+1
|
ldy #S.SOCKET.REM.PORT+1
|
||||||
|
|
||||||
.2 >PUSHB (ZPPTR1),y
|
.2 >PUSHB (ZPPTR2),y
|
||||||
dey
|
dey
|
||||||
cpy #S.SOCKET.SRC.ADDR-1
|
cpy #S.SOCKET.LOC.ADDR-1
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
lda (ZPPTR1)
|
lda (ZPPTR2)
|
||||||
tax
|
tax
|
||||||
cpx #S.SOCKET.T.SEQPACKET+1
|
cpx #S.SOCKET.T.SEQPACKET+1
|
||||||
bcc .3
|
bcc .3
|
||||||
@ -103,19 +104,11 @@ CS.RUN >LDYA L.MSG0
|
|||||||
>LDYA L.MSG1
|
>LDYA L.MSG1
|
||||||
>SYSCALL printf
|
>SYSCALL printf
|
||||||
|
|
||||||
.7 lda ZPPTR1
|
.7 >INC.G SocketCount
|
||||||
clc
|
cmp #K.SKTTABLE.SIZE
|
||||||
adc #S.SOCKET
|
bne .1
|
||||||
sta ZPPTR1
|
|
||||||
|
|
||||||
lda ZPPTR1+1
|
lda #0 tell TSKMGR that all done ok, but
|
||||||
adc /S.SOCKET
|
|
||||||
sta ZPPTR1+1
|
|
||||||
|
|
||||||
>DEC.G SocketCount
|
|
||||||
bne .1 A=0
|
|
||||||
|
|
||||||
* lda #0 tell TSKMGR that all done ok, but
|
|
||||||
sec we do not want to stay in memory
|
sec we do not want to stay in memory
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -130,7 +123,7 @@ CS.QUIT lda hLIBTCPIP
|
|||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.END
|
CS.END
|
||||||
LIBTCPIP .AZ "libtcpip.o"
|
LIBTCPIP .AZ "libtcpip"
|
||||||
MSG0 .AZ "Proto Local Remote Options Status"
|
MSG0 .AZ "Proto Local Remote Options Status"
|
||||||
MSG1 .AZ "%s %03d.%03d.%03d.%03d:%05D %03d.%03d.%03d.%03d:%05D %b %s\r\n"
|
MSG1 .AZ "%s %03d.%03d.%03d.%03d:%05D %03d.%03d.%03d.%03d:%05D %b %s\r\n"
|
||||||
MSG1.UDP .AZ "UDP"
|
MSG1.UDP .AZ "UDP"
|
||||||
|
Loading…
Reference in New Issue
Block a user