diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index cf53b2ca..746a3e78 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.SRC.po b/.Floppies/A2OSX.SRC.po index 698ee808..a8cc2af2 100644 Binary files a/.Floppies/A2OSX.SRC.po and b/.Floppies/A2OSX.SRC.po differ diff --git a/BIN/NETSTAT.S.txt b/BIN/NETSTAT.S.txt index f07684b1..b288f4fa 100644 --- a/BIN/NETSTAT.S.txt +++ b/BIN/NETSTAT.S.txt @@ -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"