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

hadcf.

Browse Source 
git-svn-id: https://spexeah.com:8443/svn/Asuro@53 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron 2017-05-17 13:15:25 +00:00
parent 2a613fdc43
commit 5390621fdd
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/isr.pas
View File

@ -4,7 +4,7 @@
* Description: Stub for ISR Driver Initialization
************************************************
* Author: K Morris
* Contributors:
* Contributors: A Hance
************************************************ }
unit isr;

4
src/kernel.pas
View File

@ -43,11 +43,9 @@ begin
asm
MOV dds, CS
end;
z:=0;
console.setdefaultattribute(console.combinecolors(Red, Black));
if dds = $08 then console.setdefaultattribute(console.combinecolors(Green, Black));
console.writehexln(dds);
mbm := mbm div z;
console.setdefaultattribute(console.combinecolors(Green, Black));
console.writestringln('Asuro Booted Correctly!');
console.writestringln('');
@ -62,7 +60,7 @@ begin
console.writeint(((mbinfo^.mem_upper + 1000) div 1024) +1);
console.writestringln('MB');
console.setdefaultattribute(console.combinecolors(lYellow, Black));
util.halt_and_catch_fire;
util.halt_and_dont_catch_fire;
{while true do begin
c:= keyboard.get_scancode;
console.writehexln(c);

7
src/util.pas
View File

@ -21,6 +21,7 @@ procedure outb(port : uint16; val : uint8);
procedure outw(port : uint16; val : uint16);
procedure outl(port : uint16; val : uint32);
procedure halt_and_catch_fire();
procedure halt_and_dont_catch_fire();
function inb(port : uint16) : uint8;
function inw(port : uint16) : uint16;
function inl(port : uint16) : uint32;
@ -95,6 +96,12 @@ begin
end;
end;
procedure halt_and_dont_catch_fire(); [public, alias: 'util_halt_and_dont_catch_fire'];
begin
while true do begin
end;
end;
function inl(port : uint16) : uint32; [public, alias: 'util_inl'];
begin
asm