See Last.

git-svn-id: https://spexeah.com:8443/svn/Asuro@86 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron committed 2017-05-17 23:34:11 +00:00
1 parent 019f6ccabf
commit 3356302d32
8 files changed
+7 -4

No files matched your search

BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
+6 -3
View File
@@ -29,14 +29,17 @@ var
procedure Main(); interrupt; procedure Main(); interrupt;
var var
i : integer; i : integer;
begin b : void;
begin
b:= void(inb($60));
console.writehexln(uint8(b));
for i:=0 to MAX_HOOKS-1 do begin for i:=0 to MAX_HOOKS-1 do begin
if uint32(Hooks[i]) <> 0 then begin if uint32(Hooks[i]) <> 0 then begin
Hooks[i](void(inb($60))); Hooks[i](b);
end; end;
end; end;
outb($20, $20); outb($20, $20);
end; end;
procedure register(); procedure register();
+1 -1
View File
@@ -73,7 +73,7 @@ begin
console.writeint(mbinfo^.mem_upper); console.writeint(mbinfo^.mem_upper);
console.writestringln('KB'); console.writestringln('KB');
console.writestring('Total Memory = '); console.writestring('Total Memory = ');
console.writeint(((mbinfo^.mem_upper + 1000) div 1024) +1); console.writeint(((mbinfo^.mem_upper + 1000) div 1024) + 1);
console.writestringln('MB'); console.writestringln('MB');
while(true)do begin end; while(true)do begin end;
console.setdefaultattribute(console.combinecolors(lYellow, Black)); console.setdefaultattribute(console.combinecolors(lYellow, Black));