Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-26 13:49:18 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.9.2

Browse Source
This commit is contained in:
Rémy GIBERT 2018-10-10 08:24:38 +02:00
parent 647484d331
commit 8c5ba4b1a7
3 changed files with 19 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

BIN
.Floppies/A2OSX.SRC.po
View File

Binary file not shown.

45
BIN/NETSTAT.S.txt
View File

@ -12,6 +12,7 @@ AUTO 4,1
.INB INC/LIBTCPIP.I
*--------------------------------------
ZPPTR1 .EQ ZPBIN
ZPPTR2 .EQ ZPBIN+2
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
@ -23,7 +24,7 @@ CS.START cld
.DA CS.END-CS.START CS
.DA DS.END-DS.START DS
.DA #64 SS
.DA #2 ZP
.DA #4 ZP
.DA 0
*--------------------------------------
* Relocation Table
@ -66,32 +67,32 @@ CS.RUN >LDYA L.MSG0
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.GETTABLE
>STYA ZPPTR1
lda #K.SKTTABLE.SIZE
>STA.G SocketCount
>STZ.G SocketCount
.1 lda (ZPPTR1)
beq .7
ldy #S.SOCKET.TCP.S
.1 tay
lda (ZPPTR1),y
beq .7
>SYSCALL GetMemPtr
>STYA ZPPTR2
ldy #S.SOCKET.TCP.S
lda (ZPPTR2),y
cmp #S.SOCKET.TCP.S.TIMEWT+1
bcs *
asl
tax
>PUSHB L.MSG1.S+1,x
>PUSHB L.MSG1.S,x
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
cpy #S.SOCKET.SRC.ADDR-1
cpy #S.SOCKET.LOC.ADDR-1
bne .2
lda (ZPPTR1)
lda (ZPPTR2)
tax
cpx #S.SOCKET.T.SEQPACKET+1
bcc .3
@ -103,19 +104,11 @@ CS.RUN >LDYA L.MSG0
>LDYA L.MSG1
>SYSCALL printf
.7 lda ZPPTR1
clc
adc #S.SOCKET
sta ZPPTR1
.7 >INC.G SocketCount
cmp #K.SKTTABLE.SIZE
bne .1
lda ZPPTR1+1
adc /S.SOCKET
sta ZPPTR1+1
>DEC.G SocketCount
bne .1 A=0
* lda #0 tell TSKMGR that all done ok, but
lda #0 tell TSKMGR that all done ok, but
sec we do not want to stay in memory
rts
*--------------------------------------
@ -130,7 +123,7 @@ CS.QUIT lda hLIBTCPIP
rts
*--------------------------------------
CS.END
LIBTCPIP .AZ "libtcpip.o"
LIBTCPIP .AZ "libtcpip"
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.UDP .AZ "UDP"