Console Fixes & BIOS Interfacing

- Removed some garbage text from startup
- Interface to the BDA added.
- Console Cursor updates added.

git-svn-id: https://spexeah.com:8443/svn/Asuro@13 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron
2017-02-11 19:52:32 +00:00
parent d0ded03fdd
commit d6460dcf61
15 changed files with 98 additions and 11 deletions

View File

@ -2,6 +2,9 @@ unit console;
interface
uses
util, bda;
type
TColor = ( Black = $0,
Blue = $1,
@ -243,15 +246,18 @@ begin
end;
procedure _console_update_cursor(); [public, alias: '_console_update_cursor'];
var
pos : word;
b : byte;
begin
{asm
MOV AH, $02
MOV BH, $00
MOV DH, Console_Cursor.Y
MOV DL, Console_Cursor.X
INT $10
end; }
pos:= (Console_Cursor.Y * 80) + Console_Cursor.X;
outb($3D4, $0F);
b:= pos and $00FF;
outb($3D5, b);
outb($3D4, $0E);
b:= pos shr 8;
outb($3D5, b);
end;
procedure _console_increment_x(); [public, alias: '_console_increment_x'];