Spexeah/Asuro
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Asuro.iso
View File

Binary file not shown.

BIN
bin/kernel.bin
View File

Binary file not shown.

BIN
iso/boot/asuro.bin
View File

Binary file not shown.

BIN
lib/kernel.ppu
View File

Binary file not shown.

BIN
lib/libpconsole.a
View File

Binary file not shown.

BIN
lib/libpmultiboot.a
View File

Binary file not shown.

BIN
lib/libpsystem.a
View File

Binary file not shown.

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();