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

git-svn-id: https://spexeah.com:8443/svn/Asuro@496 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-04-11 17:11:13 +00:00
parent 7303cb9dd7
commit 82a497430f
67 changed files with 96 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/console.pas
View File

@ -37,6 +37,8 @@ procedure init();
procedure clear();
procedure setdefaultattribute(attribute : char);
procedure disable_cursor;
procedure writechar(character : char);
procedure writecharln(character : char);
procedure writecharex(character : char; attributes : char);
@ -121,6 +123,12 @@ var
Console_Matrix : P2DVideoMemory = P2DVideoMemory($C00b8000);
Console_Cursor : TCoord;
procedure disable_cursor;
begin
outb($3D4, $0A);
outb($3D5, $20);
end;
procedure init(); [public, alias: 'console_init'];
Begin
Console_Properties.Default_Attribute:= console.combinecolors(White, Black);