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@518 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-04-13 19:01:22 +00:00
parent 383f36bad3
commit 86d52e722b
8 changed files with 46 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
src/kernel.pas
View File

@ -84,6 +84,49 @@ begin
pop_trace;
end;
procedure GraphicsTesting();
var
i : uint32;
z : uint32;
atmp : puint32;
fb : puint16;
val : uint16;
AChar : Array[0..15] of uint8 = ( %00000000,
%00000000,
%00000000,
%00010000,
%00111000,
%01101100,
%11000110,
%11000110,
%11111110,
%11000110,
%11000110,
%11000110,
%11000110,
%00000000,
%00000000,
%00000000 );
//AChar : uint8 = %00000000;
begin
i:= $2000000;
kpalloc(i);
atmp:= puint32(i);
fb:= puint16(uint32(multibootinfo^.framebuffer_addr));
kpalloc(uint32(fb));
atmp^:= multibootinfo^.framebuffer_bpp;
for z:=0 to 15 do begin
for i:=0 to 8 do begin
val:= $0000;
if ((AChar[z] SHR i) AND $1) = $1 then val:= $FFFF;
if val <> 0 then fb[(z * 1280)+i]:= val;
end;
end;
while true do begin
end;
end;
procedure kmain(mbinfo: Pmultiboot_info_t; mbmagic: uint32); stdcall; [public, alias: 'kmain'];
var
c : uint8;
@ -97,7 +140,7 @@ var
temp : uint32;
atmp : puint32;
test : puint8;
fb : puint8;
fb : puint16;
begin
{ Store Multiboot info }
@ -150,15 +193,8 @@ begin
tss.init();
scheduler.init();
i:= $2000000;
kpalloc(i);
atmp:= puint32(i);
fb:= puint8(uint32(multibootinfo^.framebuffer_addr));
kpalloc(uint32(fb));
atmp^:= uint32(fb);
for i:=0 to (1280 * 1024 * 2)-5000 do begin
fb[i]:= $FF;
end;
{ Graphics Mode Test Stuff }
GraphicsTesting();
{ Call Tracer }
tracer.init();