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 * Description: Stub for ISR Driver Initialization
************************************************ ************************************************
* Author: K Morris * Author: K Morris
* Contributors: * Contributors: A Hance
************************************************ } ************************************************ }
unit isr; unit isr;

4
src/kernel.pas
View File

@ -43,11 +43,9 @@ begin
asm asm
MOV dds, CS MOV dds, CS
end; end;
z:=0;
console.setdefaultattribute(console.combinecolors(Red, Black)); console.setdefaultattribute(console.combinecolors(Red, Black));
if dds = $08 then console.setdefaultattribute(console.combinecolors(Green, Black)); if dds = $08 then console.setdefaultattribute(console.combinecolors(Green, Black));
console.writehexln(dds); console.writehexln(dds);
mbm := mbm div z;
console.setdefaultattribute(console.combinecolors(Green, Black)); console.setdefaultattribute(console.combinecolors(Green, Black));
console.writestringln('Asuro Booted Correctly!'); console.writestringln('Asuro Booted Correctly!');
console.writestringln(''); console.writestringln('');
@ -62,7 +60,7 @@ begin
console.writeint(((mbinfo^.mem_upper + 1000) div 1024) +1); console.writeint(((mbinfo^.mem_upper + 1000) div 1024) +1);
console.writestringln('MB'); console.writestringln('MB');
console.setdefaultattribute(console.combinecolors(lYellow, Black)); console.setdefaultattribute(console.combinecolors(lYellow, Black));
util.halt_and_catch_fire; util.halt_and_dont_catch_fire;
{while true do begin {while true do begin
c:= keyboard.get_scancode; c:= keyboard.get_scancode;
console.writehexln(c); 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 outw(port : uint16; val : uint16);
procedure outl(port : uint16; val : uint32); procedure outl(port : uint16; val : uint32);
procedure halt_and_catch_fire(); procedure halt_and_catch_fire();
procedure halt_and_dont_catch_fire();
function inb(port : uint16) : uint8; function inb(port : uint16) : uint8;
function inw(port : uint16) : uint16; function inw(port : uint16) : uint16;
function inl(port : uint16) : uint32; function inl(port : uint16) : uint32;
@ -95,6 +96,12 @@ begin
end; end;
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']; function inl(port : uint16) : uint32; [public, alias: 'util_inl'];
begin begin
asm asm