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

This commit is contained in:
kieron 2018-05-10 10:59:24 +00:00
parent 333a95d075
commit 8b5f920d51
14 changed files with 3 additions and 9 deletions

BIN
Asuro.iso

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -112,6 +112,7 @@ var
begin
push_trace('arp.recv');
writeToLogLn(' L3: arp.recv');
console.redrawWindows;
{ Get our converted Header }
Header:= PARPHeader(p_data);
@ -142,7 +143,6 @@ begin
$1:begin { ARP Request }
writeToLogLn(' arp.recv.arp.req');
context:= newPacketContext;
//context^.
copyMAC(@AHeader.Source_Hardware[0], @context^.MAC.Destination[0]);
copyIPv4(@AHeader.Source_Protocol[0], @context^.IP.Destination[0]);
copyMAC(getMAC, @context^.MAC.Source[0]);

View File

@ -27,7 +27,6 @@ implementation
var
Hooks : Array[1..MAX_HOOKS] of pp_hook_method;
Registered : boolean = false;
v : uint32 = 0;
procedure Main; //IRQ0, 1024.19hz aprox
var
@ -35,11 +34,6 @@ var
begin
CLI;
inc(v);
if v = 1024 then begin
console.redrawWindows;
v:= 0;
end;
for i:=0 to MAX_HOOKS-1 do begin
if uint32(Hooks[i]) <> 0 then begin
Hooks[i](nil);

View File

@ -9,14 +9,14 @@ const
VERSION_SUB = '1';
REVISION = '677';
RELEASE = 'ia';
LINE_COUNT = 27778;
LINE_COUNT = 27772;
FILE_COUNT = 89;
DRIVER_COUNT = 32;
FPC_VERSION = '2.6.4';
NASM_VERSION = '2.10.09';
MAKE_VERSION = '3.81';
COMPILE_DATE = '10/05/18';
COMPILE_TIME = '11:55:16';
COMPILE_TIME = '11:59:12';
implementation