Spexeah/Asuro
Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://spexeah.com:8443/svn/Asuro@740 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron 2018-05-13 13:24:31 +00:00
parent efb41424dc
commit 31af646bf4
20 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Asuro.iso
View File

Binary file not shown.

BIN
bin/kernel.bin
View File

Binary file not shown.

BIN
iso/boot/asuro.bin
View File

Binary file not shown.

BIN
lib/E1000.ppu
View File

Binary file not shown.

BIN
lib/arp.ppu
View File

Binary file not shown.

BIN
lib/asuro.ppu
View File

Binary file not shown.

BIN
lib/eth2.ppu
View File

Binary file not shown.

BIN
lib/ipv4.ppu
View File

Binary file not shown.

BIN
lib/libpconsole.a
View File

Binary file not shown.

BIN
lib/libpmultiboot.a
View File

Binary file not shown.

BIN
lib/libpsystem.a
View File

Binary file not shown.

BIN
lib/net.ppu
View File

Binary file not shown.

BIN
lib/shell.ppu
View File

Binary file not shown.

BIN
lib/terminal.ppu
View File

Binary file not shown.

4
src/driver/net/l1/net.pas
View File

@ -83,7 +83,7 @@ end;
procedure send(p_data : void; p_len : uint16); procedure send(p_data : void; p_len : uint16);
begin begin
push_trace('net.send'); push_trace('net.send');
writeToLogLn('L1: net.send'); //writeToLogLn('L1: net.send');
if CBSend <> nil then CBSend(p_data, p_len); if CBSend <> nil then CBSend(p_data, p_len);
pop_trace; pop_trace;
end; end;
@ -94,7 +94,7 @@ var
begin begin
push_trace('net.recv'); push_trace('net.recv');
writeToLogLn('L1: net.recv'); //writeToLogLn('L1: net.recv');
context:= newPacketContext; context:= newPacketContext;
if CBNext <> nil then CBNext(p_data, p_len, context); if CBNext <> nil then CBNext(p_data, p_len, context);
freePacketContext(context); freePacketContext(context);

4
src/driver/net/l2/eth2.pas
View File

@ -54,7 +54,7 @@ begin
pad:= 46 - p_len; pad:= 46 - p_len;
if pad < 0 then pad:= 0; if pad < 0 then pad:= 0;
push_trace('eth2.send'); push_trace('eth2.send');
writeToLogLn(' L2: eth2.send'); //writeToLogLn(' L2: eth2.send');
if p_context <> nil then begin if p_context <> nil then begin
size:= sizeof(TEthernetHeader) + p_len + pad;// + 4; size:= sizeof(TEthernetHeader) + p_len + pad;// + 4;
buffer:= kalloc(size); buffer:= kalloc(size);
@ -79,7 +79,7 @@ var
begin begin
push_trace('eth2.recv'); push_trace('eth2.recv');
writeToLogLn(' L2: eth2.recv'); //writeToLogLn(' L2: eth2.recv');
buf:= puint8(p_data); buf:= puint8(p_data);
Header:= PEthernetHeader(buf); Header:= PEthernetHeader(buf);

20
src/driver/net/l3/arp.pas
View File

@ -181,7 +181,7 @@ var
begin begin
push_trace('arp.recv'); push_trace('arp.recv');
writeToLogLn(' L3: arp.recv'); //writeToLogLn(' L3: arp.recv');
console.redrawWindows; console.redrawWindows;
{ Get our converted Header } { Get our converted Header }
@ -210,7 +210,7 @@ begin
if IPEqual(@AHeader.Destination_Protocol[0], @getIPv4Config^.Address[0]) then begin if IPEqual(@AHeader.Destination_Protocol[0], @getIPv4Config^.Address[0]) then begin
case AHeader.Operation of case AHeader.Operation of
$1:begin { ARP Request } $1:begin { ARP Request }
writeToLogLn(' arp.recv.arp.req'); //writeToLogLn(' arp.recv.arp.req');
context:= newPacketContext; context:= newPacketContext;
copyMAC(@AHeader.Source_Hardware[0], @context^.MAC.Destination[0]); copyMAC(@AHeader.Source_Hardware[0], @context^.MAC.Destination[0]);
copyIPv4(@AHeader.Source_Protocol[0], @context^.IP.Destination[0]); copyIPv4(@AHeader.Source_Protocol[0], @context^.IP.Destination[0]);
@ -220,28 +220,28 @@ begin
freePacketContext(context); freePacketContext(context);
end; end;
$2:begin { ARP Reply } $2:begin { ARP Reply }
writeToLogLn(' arp.recv.arp.rep'); //writeToLogLn(' arp.recv.arp.rep');
end; end;
$3:begin { RARP Request } $3:begin { RARP Request }
writeToLogLn(' arp.recv.rarp.req'); //writeToLogLn(' arp.recv.rarp.req');
end; end;
$4:begin { RARP Reply } $4:begin { RARP Reply }
writeToLogLn(' arp.recv.rarp.rep'); //writeToLogLn(' arp.recv.rarp.rep');
end; end;
$5:begin { DRARP Request } $5:begin { DRARP Request }
writeToLogLn(' arp.recv.drarp.req'); //writeToLogLn(' arp.recv.drarp.req');
end; end;
$6:begin { DRARP Reply } $6:begin { DRARP Reply }
writeToLogLn(' arp.recv.drarp.rep'); //writeToLogLn(' arp.recv.drarp.rep');
end; end;
$7:begin { DRARP Error } $7:begin { DRARP Error }
writeToLogLn(' arp.recv.drarp.err'); //writeToLogLn(' arp.recv.drarp.err');
end; end;
$8:begin { InARP Request } $8:begin { InARP Request }
writeToLogLn(' arp.recv.inarp.req'); //writeToLogLn(' arp.recv.inarp.req');
end; end;
$9:begin { InARP Reply } $9:begin { InARP Reply }
writeToLogLn(' arp.recv.inarp.rep'); //writeToLogLn(' arp.recv.inarp.rep');
end; end;
end; end;
end; end;

4
src/driver/net/l3/ipv4.pas
View File

@ -39,7 +39,7 @@ var
buffer : void; buffer : void;
begin begin
writeToLogLn(' L3: ipv4.send'); //writeToLogLn(' L3: ipv4.send');
inc(CurrentID); inc(CurrentID);
Header.version:= 4; Header.version:= 4;
Header.header_len:= 5; Header.header_len:= 5;
@ -79,7 +79,7 @@ var
begin begin
push_trace('ipv4.recv'); push_trace('ipv4.recv');
writeToLogLn(' L3: ipv4.recv'); //writeToLogLn(' L3: ipv4.recv');
Header:= PIPV4Header(p_data); Header:= PIPV4Header(p_data);
AHeader.version:= Header^.version; AHeader.version:= Header^.version;
AHeader.header_len:= Header^.header_len; AHeader.header_len:= Header^.header_len;

2
src/driver/netdev/E1000.pas
View File

@ -417,7 +417,7 @@ var
begin begin
push_trace('E1000.fire'); push_trace('E1000.fire');
writeToLogLn('L0: E1000 Fire'); //writeToLogLn('L0: E1000 Fire');
status:= readCommand($C0); status:= readCommand($C0);
if (status AND $04) > 0 then begin if (status AND $04) > 0 then begin
startLink(); startLink();

2
src/include/asuro.pas
View File

@ -16,7 +16,7 @@ const
NASM_VERSION = '2.10.09'; NASM_VERSION = '2.10.09';
MAKE_VERSION = '3.81'; MAKE_VERSION = '3.81';
COMPILE_DATE = '13/05/18'; COMPILE_DATE = '13/05/18';
COMPILE_TIME = '12:33:02'; COMPILE_TIME = '14:24:31';
implementation implementation