Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-09-10 22:54:59 +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 .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"