Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-07 17:29:34 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.9.1 : TCPIP, bugfix in DNS,ARP cache

Browse Source
This commit is contained in:
Rémy GIBERT 2018-01-16 07:32:11 +00:00
parent 5c55e240f2
commit 92fd335e60
7 changed files with 13 additions and 12 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.

7
BIN/ARP.S.txt
View File

@ -42,13 +42,14 @@ L.MSG2 .DA MSG2
*--------------------------------------
CS.INIT >LDYA L.LIBTCPIP
>SYSCALL LoadLib.YA
bcs .9
sta hLIBTCPIP
lda (pPs)
ora #S.PS.F.EVENT Now accept events
sta (pPs)
clc
rts
.9 rts
*--------------------------------------
CS.RUN ldy #S.PS.ARGC
lda (pPs),y
@ -180,8 +181,8 @@ Wait.TimeOut sec
.9 rts
*--------------------------------------
CS.END
LIBTCPIP >PSTR "libtcpip.o"
SSCANF.IP >PSTR "%d.%d.%d.%d"
LIBTCPIP >CSTR "libtcpip.o"
SSCANF.IP >CSTR "%d.%d.%d.%d"
MSG0 >CSTR "STS TTL MAC Address IP Address\r\n"
MSG1 >CSTR "$%h %5D %h:%h:%h:%h:%h:%h %d.%d.%d.%d\r\n"
MSG2 >CSTR "%d.%d.%d.%d is at %h:%h:%h:%h:%h:%h\r\n"

2
BIN/DNSINFO.S.txt
View File

@ -145,7 +145,7 @@ CS.END
LIBTCPIP >CSTR "libtcpip.o"
SSCANF.IP >CSTR "%d.%d.%d.%d"
MSG0 >CSTR "STS TR.ID Hostname IP Address TTL\r\n"
MSG1 >CSTR "$%h $%H %32S %03d.%03d.%03d.%03d %L\r\n"
MSG1 >CSTR "$%h $%H %32s %03d.%03d.%03d.%03d %L\r\n"
hLIBTCPIP .BS 1
IP .BS 4

4
BIN/PING.S.txt
View File

@ -324,8 +324,8 @@ CS.END
LIBTCPIP >CSTR "libtcpip.o"
MSG.IPKO >CSTR "TCP/IP Not Loaded/Configured.\r\n"
MSG.USAGE >CSTR "Usage : PING <ip|host>\r\n"
MSG.UNKNOWN >CSTR "%S: Unknown host\r\n"
MSG.HOSTOK >CSTR "PING %d.%d.%d.%d (%S)\r\n"
MSG.UNKNOWN >CSTR "%s: Unknown host\r\n"
MSG.HOSTOK >CSTR "PING %d.%d.%d.%d (%s)\r\n"
MSG.SKTKO >CSTR "Failed to Open Socket.\r\n"
MSG.UNREACH >CSTR "%d.%d.%d.%d: TimeOut/Host unreachable\r\n"
MSG.REPLY >CSTR "32 bytes from %d.%d.%d.%d, icmp_seq=%D, ttl=%d, time=%D ms\r\n"

8
LIB/LIBTCPIP.S.HST.txt
View File

@ -23,17 +23,15 @@ HST.ScanIP stz HST.IP
lda (ZPPtrDNS)
beq .9
ldy #0
ldy #$ff
.1 ldx #0
stx HST.DecStr
.2 tya
cmp (ZPPtrDNS)
.2 iny
lda (ZPPtrDNS),y
beq .4
iny
lda (ZPPtrDNS),y
cmp #'.'
beq .3

4
LIB/LIBTCPIP.S.SKT.txt
View File

@ -173,7 +173,7 @@ SKT.CloseA and #$7f
adc #S.SOCKET.HQ
tax
pla
inx
inc
cmp #S.SOCKET.HQ.MAX
beq .2
@ -183,6 +183,8 @@ SKT.CloseA and #$7f
sta (ZPPtrSKT),y
txa
tay
lda (ZPPtrSKT),y
>SYSCALL FreeMem.A
bra .1