Added console output to ISRs.

git-svn-id: https://spexeah.com:8443/svn/Asuro@55 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron 2017-05-17 13:23:00 +00:00
parent 6f6d274b69
commit d4ae7666b4
19 changed files with 20 additions and 0 deletions

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Debug Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Bad TSS Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Segment Not Present Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Stack Fault Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('General Protection Fault.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Page Fault.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Unknown Interrupt Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Coprocessor Fault Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Alignment Check Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Machine Check Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('NMI Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Breakpoint Exception');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('IDO Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('OOB Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,8 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Invalid OPCode Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('No Coprocessor Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Double Fault.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -23,6 +23,7 @@ implementation
procedure Main(); interrupt; procedure Main(); interrupt;
begin begin
console.writestringln('Coprocessor Seg Overrun Exception.');
util.halt_and_catch_fire; util.halt_and_catch_fire;
end; end;

View File

@ -60,6 +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));
//asm INT 3 end;
util.halt_and_dont_catch_fire; util.halt_and_dont_catch_fire;
{while true do begin {while true do begin
c:= keyboard.get_scancode; c:= keyboard.get_scancode;