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

feature: GPU driver framework with BGA, V86 monitor, and runtime resolution switching

Browse Source 
- GPU Framework (gpu.pas): Priority-ordered GPU driver registry with
  mode-change callback system. Drivers register with a priority (lower =
  tried first). After successful setMode, fires registered callbacks in
  order (video → LVGL → desktop) for fully decoupled resolution updates.

- BGA Driver (bga.pas): Bochs Graphics Adapter via drivermanagement PCI
  auto-detection (class=$03 subclass=$00 wildcard). Programs display via
  I/O ports $01CE/$01CF, reads framebuffer from PCI BARs with VMware SVGA
  fallback. Supports arbitrary resolutions (1920x1080, 2560x1440, etc).

- SETRES Command (setres.pas): Runtime resolution switching — just calls
  gpu.setMode; video reinit, LVGL buffer realloc, and desktop relayout
  all fire automatically via GPU mode-change callbacks.

- VESA/VBE: Registered as GPU fallback driver (priority 50), uses V86
  INT 10h for VBE mode switching.

- TSS: Fix SS0 from $08 (code segment) to $10 (data segment); add
  set_esp0/get_esp0 helpers for V86 ring-0 stack management.

- VMM: Add map_page_user() for identity-mapping first 4MB with User bit
  (required for V86 IVT/BDA/video ROM access).

- Desktop: relayout procedure + GPU callback registration for automatic
  dock/watermark repositioning on resolution change.

- V86 Monitor (v86.pas): Full Virtual 8086 mode monitor for executing
  real-mode BIOS interrupts from protected mode. Naked GPF handler with
  instruction emulation (INT, IRET, CLI, STI, PUSHF/POPF, IN/OUT, HLT,
  0x66 prefix for 32-bit variants). Thunk-based entry via IRET into VM86.

- Kernel init order: gpu.init → video.init → vesa.init → bga.init;
  drivermanagement.init moved earlier (before video) so PCI scan detects
  BGA before first use.
This commit is contained in:
t3hn3rd
2026-03-07 20:16:25 +00:00
parent f78eaa3811
commit e52b4a9763
11 changed files with 1649 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/driver/video/bga.pas
+249
View File
File diff suppressed because it is too large Load Diff
src/driver/video/desktop.pas
+48 -2
View File
@@ -15,7 +15,7 @@ unit desktop;
interface
uses
lvgl, video, RTC, strings, util, tracer, multiboot, cpu, serial, windows, asuro;
lvgl, video, gpu, RTC, strings, util, tracer, multiboot, cpu, serial, windows, asuro;
type
TProgLaunchProc = procedure;
@@ -25,6 +25,7 @@ procedure registerProgram(name: pchar; launcher: TProgLaunchProc);
procedure init;
procedure update;
procedure relayout;
implementation
@@ -36,7 +37,7 @@ const
DOCK_ITEM_H = 36;
SEARCH_W = 220;
SEARCH_RADIUS = 18;
SEARCH_RADIUS = 16;
RESULTS_W = SEARCH_W;
RESULTS_ROW_H = 36;
@@ -677,6 +678,14 @@ begin
lv_obj_set_pos(results_panel, lv_obj_get_x(results_panel), anim_current_y);
end;
{ ============================================================
Mode-change callback — fired by GPU framework after setMode
============================================================ }
procedure desktopModeChanged(const info : TGPUModeInfo);
begin
relayout;
end;
{ ============================================================
Init — create the desktop UI
============================================================ }
@@ -819,6 +828,43 @@ begin
{ ---- Register built-in programs ---- }
registerProgram('System Information', @openSysInfo);
{ Register for resolution-change notifications from GPU framework }
gpu.registerModeChangeCallback(@desktopModeChanged);
tracer.pop_trace;
end;
{ ============================================================
Relayout — reposition all desktop UI after resolution change
============================================================ }
procedure relayout;
var
scr_w, scr_h : sint32;
dock_w : sint32;
dock_x : sint32;
dock_y : sint32;
begin
tracer.push_trace('desktop.relayout');
scr_w := sint32(video.frontBufferWidth);
scr_h := sint32(video.frontBufferHeight);
{ Close any open search/results first }
clearAndClose;
{ Reposition dock }
dock_w := scr_w - (DOCK_HPAD * 2);
dock_x := DOCK_HPAD;
dock_y := scr_h - DOCK_HEIGHT - DOCK_MARGIN;
lv_obj_set_size(dock, dock_w, DOCK_HEIGHT);
lv_obj_set_pos(dock, dock_x, dock_y);
{ Watermark stays centered (LV_ALIGN_CENTER is relative to parent) }
lv_obj_align(desktop_label, LV_ALIGN_CENTER, 0, -30);
{ Force layout recalculation }
lv_obj_update_layout(lv_screen_active);
tracer.pop_trace;
end;
src/driver/video/gpu.pas
+223
View File
File diff suppressed because it is too large Load Diff
src/driver/video/lvgl.pas
+46 -1
View File
@@ -13,7 +13,7 @@ interface
uses
video, videotypes, color, serial, tracer, lmemorymanager,
mouse, keyboard, TMR_0_ISR, util;
mouse, keyboard, TMR_0_ISR, util, syslog, gpu;
{ ============================================================
Opaque LVGL pointer types (internal C structs)
@@ -1670,6 +1670,7 @@ function lvgl_get_display: Plv_display;
procedure lvgl_set_mouse_cursor(cursor: Plv_obj);
function lvgl_get_ticks: uint32;
function lvgl_get_kb_group: Plv_group;
procedure lvgl_update_resolution(screen_w, screen_h: uint32);
{ Color helper (Pascal wrapper for inline C function) }
function lv_color_make(r, g, b: uint8): lv_color_t;
@@ -1909,6 +1910,14 @@ begin
tick_accumulator := tick_accumulator + 1;
end;
{ ============================================================
GPU mode-change callback — updates LVGL display resolution
============================================================ }
procedure lvglModeChanged(const info : TGPUModeInfo);
begin
lvgl_update_resolution(info.Width, info.Height);
end;
{ ============================================================
High-level init
============================================================ }
@@ -1962,9 +1971,45 @@ begin
{ Hook 1024Hz timer for accurate LVGL tick }
TMR_0_ISR.hook(uint32(@lvgl_timer_tick));
{ Register for GPU mode-change notifications so LVGL resolution updates automatically }
gpu.registerModeChangeCallback(@lvglModeChanged);
tracer.push_trace('lvgl.init.exit');
end;
procedure lvgl_update_resolution(screen_w, screen_h: uint32);
var
new_buf : pointer;
new_size : uint32;
begin
tracer.push_trace('lvgl.update_resolution.enter');
{ Allocate new render buffer for the new width }
new_size := screen_w * LV_BUF_LINES * SizeOf(lv_color_t);
new_buf := pointer(kalloc(new_size));
if new_buf <> nil then begin
{ Free old render buffer }
if lv_buf1 <> nil then
kfree(lv_buf1);
lv_buf1 := new_buf;
lv_buf1_size := new_size;
{ Update LVGL display resolution and buffers }
lv_display_set_resolution(disp, sint32(screen_w), sint32(screen_h));
lv_display_set_buffers(disp, lv_buf1, nil,
lv_buf1_size, LV_DISPLAY_RENDER_MODE_PARTIAL);
syslog.logln('LVGL', 'Resolution updated successfully.');
end else begin
syslog.logln('LVGL', 'Failed to allocate new render buffer.');
end;
tracer.push_trace('lvgl.update_resolution.exit');
end;
function lvgl_handler: uint32;
var
elapsed: uint32;
src/driver/video/vesa.pas
+162 -2
View File
File diff suppressed because it is too large Load Diff
src/driver/video/video.pas
+59 -1
View File
@@ -22,7 +22,7 @@ unit video;
interface
uses
lmemorymanager, tracer, color, videotypes, hashmap, util, texture;
lmemorymanager, tracer, color, videotypes, hashmap, util, texture, gpu;
procedure init();
procedure DrawPixel(X : uint32; Y : uint32; Pixel : TRGB32);
@@ -30,6 +30,7 @@ procedure DrawLine(x1,y1,x2,y2 : uint32; thickness : uint32; Color : TRGB32);
procedure DrawRect(x1,y1,x2,y2 : uint32; line_thickness : uint32; Color : TRGB32);
procedure FillRect(x1,y1,x2,y2 : uint32; line_thickness : uint32; Line_Color : TRGB32; Fill_Color : TRGB32);
procedure Flush();
procedure reinit(fb_addr, width, height, pitch : uint32; bpp : uint8);
function register(DriverIdentifier : pchar; EnableCallback : FEnableDriver) : boolean;
function enable(DriverIdentifier : pchar) : boolean;
@@ -47,6 +48,9 @@ Procedure basicFDrawTexture(Buffer : PVideoBuffer; X : uint32; Y : uint32; Textu
implementation
uses
VESA8, VESA16, VESA24, VESA32;
Procedure dummyFDrawPixel(Buffer : PVideoBuffer; X : uint32; Y : uint32; Pixel : TRGB32);
begin
tracer.push_trace('video.dummyFDrawPixel.enter');
@@ -191,6 +195,14 @@ var
VideoInterface : TVideoInterface;
DriverMap : PHashMap;
{ ============================================================
GPU mode-change callback — reinits front/back buffers
============================================================ }
procedure videoModeChanged(const info : TGPUModeInfo);
begin
reinit(info.Framebuffer, info.Width, info.Height, info.Pitch, info.BPP);
end;
procedure init();
var
RGB : TRGB32;
@@ -226,6 +238,9 @@ begin
//Initialize our 'DriverMap', a hashmap of loadable display drivers.
DriverMap:= hashmap.new;
{ Register for GPU mode-change notifications so reinit fires automatically }
gpu.registerModeChangeCallback(@videoModeChanged);
tracer.push_trace('video.init.exit');
end;
@@ -327,4 +342,47 @@ begin
frontBufferLocation:= VideoInterface.FrontBuffer.Location;
end;
procedure reinit(fb_addr, width, height, pitch : uint32; bpp : uint8);
begin
tracer.push_trace('video.reinit.enter');
{ Free old back buffer if allocated }
if VideoInterface.BackBuffer.Initialized then begin
kfree(void(VideoInterface.BackBuffer.Location));
VideoInterface.BackBuffer.Initialized := false;
VideoInterface.BackBuffer.Location := 0;
VideoInterface.BackBuffer.Width := 0;
VideoInterface.BackBuffer.Height := 0;
end;
{ Reset front buffer so it can be re-initialized }
VideoInterface.FrontBuffer.Initialized := false;
VideoInterface.FrontBuffer.Location := 0;
VideoInterface.FrontBuffer.Width := 0;
VideoInterface.FrontBuffer.Height := 0;
{ Point default buffer back to front (in case doublebuffer re-enable fails) }
VideoInterface.DefaultBuffer := @VideoInterface.FrontBuffer;
{ Set front buffer directly from GPU mode info }
VideoInterface.FrontBuffer.Location := fb_addr;
VideoInterface.FrontBuffer.Width := width;
VideoInterface.FrontBuffer.Height := height;
VideoInterface.FrontBuffer.BitsPerPixel := bpp;
if fb_addr <> 0 then
VideoInterface.FrontBuffer.Initialized := true;
{ Set up BPP-specific draw routines }
case bpp of
08: VESA8.init(@VideoInterface.DrawRoutines);
16: VESA16.init(@VideoInterface.DrawRoutines);
24: VESA24.init(@VideoInterface.DrawRoutines);
32: VESA32.init(@VideoInterface.DrawRoutines);
end;
{ Re-enable double buffer (allocates new back buffer matching front) }
enable('BASIC_DOUBLE_BUFFER');
tracer.push_trace('video.reinit.exit');
end;
end.
src/kernel.pas
+9 -85
View File
@@ -23,90 +23,7 @@ unit kernel;
interface
uses
AHCI,
base64,
bios_data_area,
cfifo,
cfifols,
circ,
color,
contextswitcher,
cpu,
desktop,
diskcmd,
diskutil,
doublebuffer,
drivermanagement,
E1000,
EHCI,
fat32,
faults,
fifo,
filesystemmanager,
flatfs,
fonts,
gdt,
graphicsrefresh,
hashmap,
idt,
ioapic,
irq,
iso9660,
isr,
isrmanager,
keyboard,
lifo,
lists,
lmemorymanager,
lvgl,
maxh,
md5,
minh,
mouse,
multiboot,
net,
notepad,
OHCI,
partcmd,
PCI,
pmemorymanager,
prio,
processmanager,
progmanager,
ps2_keyboard,
ps2_mouse,
rand,
RTC,
serial,
stdio,
storagemanager,
storagetest,
strings,
syslog,
testdriver,
testprocs,
TMR_0_ISR,
tracer,
UHCI,
uidebug,
USB,
usb_keyboard,
usb_mouse,
usb_storage,
usbcore,
usbhotplug,
usbhub,
usbtypes,
util,
vesa,
vfs,
video,
vmemorymanager,
volcmd,
volumemanager,
vterminal,
Windows,
XHCI;
procedure kmain(mbinfo: Pmultiboot_info_t; mbmagic: uint32); stdcall;
@@ -139,6 +56,7 @@ end;
procedure kmain(mbinfo: Pmultiboot_info_t; mbmagic: uint32); stdcall; [public, alias: 'kmain'];
var
dds : uint16;
dds : uint32;
keyboard_layout : array [0..1] of TKeyInfo;
i : uint32;
@@ -202,6 +120,9 @@ begin
vmemorymanager.init();
lmemorymanager.init();
{ V86 Monitor Init }
v86.init();
{ Stdio Init }
stdio.init();
stdio.registerCommand('BSOD', @terminal_command_bsod, 'Force a Panic Screen.');
@@ -214,10 +135,15 @@ begin
{ Call Tracer }
tracer.init();
tracer.push_trace('kmain.DRVMGMT');
drivermanagement.init();
{ Video Init }
gpu.init();
video.init();
vesa.init(@video.register);
doublebuffer.init(@video.register);
bga.init();
video.enable('VESA');
video.enable('BASIC_DOUBLE_BUFFER');
@@ -226,8 +152,6 @@ begin
storagetest.init;
{ Management Interfaces }
tracer.push_trace('kmain.DRVMGMT');
drivermanagement.init();
tracer.push_trace('kmain.STRMGMT');
storagemanager.init();
storagemanager.set_boot_drive_byte((multibootinfo^.boot_device shr 24) and $FF);
src/prog/setres.pas
+83
View File
@@ -0,0 +1,83 @@
{
Prog->setres - Set display resolution via GPU driver framework.
Usage: SETRES <width> <height>
Example: SETRES 1024 768
Uses the GPU driver framework to switch display modes. Tries BGA first,
then falls back to VBE/VESA.
@author(Kieron Morris <[email protected]>)
}
unit setres;
interface
uses
stdio, gpu, util, strings, tracer, syslog;
procedure init();
implementation
procedure run(Params : PParamList; stdin_buf, stdout_buf, stderr_buf : POutBuf);
var
w, h : uint32;
wStr, hStr : pchar;
info : TGPUModeInfo;
begin
tracer.push_trace('setres.run');
if paramCount(params) < 2 then begin
stdio.bufWriteStrLn(stderr_buf, 'Usage: SETRES <width> <height>');
stdio.bufWriteStrLn(stderr_buf, 'Example: SETRES 1024 768');
tracer.pop_trace;
exit;
end;
wStr := getParam(0, params);
hStr := getParam(1, params);
w := stringToInt(wStr);
h := stringToInt(hStr);
if (w = 0) or (h = 0) then begin
stdio.bufWriteStrLn(stderr_buf, 'Error: Invalid resolution values.');
tracer.pop_trace;
exit;
end;
stdio.bufWriteStr(stdout_buf, 'Setting resolution to ');
stdio.bufWriteInt(stdout_buf, w);
stdio.bufWriteStr(stdout_buf, 'x');
stdio.bufWriteInt(stdout_buf, h);
stdio.bufWriteStrLn(stdout_buf, 'x32...');
{ Step 1: Set display mode via GPU framework (tries BGA first, then VBE) }
if not gpu.setMode(w, h, 32, info) then begin
stdio.bufWriteStrLn(stderr_buf, 'Error: Mode switch failed. Mode may not be supported.');
tracer.pop_trace;
exit;
end;
stdio.bufWriteStr(stdout_buf, 'Mode set via ');
stdio.bufWriteStrLn(stdout_buf, gpu.activeDriverName());
stdio.bufWriteStr(stdout_buf, 'Resolution set to ');
stdio.bufWriteInt(stdout_buf, w);
stdio.bufWriteStr(stdout_buf, 'x');
stdio.bufWriteInt(stdout_buf, h);
stdio.bufWriteStrLn(stdout_buf, 'x32 successfully.');
tracer.pop_trace;
end;
procedure init();
begin
tracer.push_trace('setres.init');
stdio.registerCommand('SETRES', @Run, 'Set display resolution. Usage: SETRES <width> <height>');
tracer.pop_trace;
end;
end.
src/progmanager.pas
+2 -1
View File
@@ -25,7 +25,7 @@ interface
uses
tracer,
//progs
base64_prog, md5sum, dhclient, vbeinfo, testcmd, ping, meminfo;
base64_prog, md5sum, dhclient, vbeinfo, testcmd, ping, meminfo, setres;
{ Initialize all baked-in programs }
procedure init();
@@ -65,6 +65,7 @@ begin
testcmd.init();
ping.init();
meminfo.init();
setres.init();
end;
end.
src/v86.pas
+749
View File
File diff suppressed because it is too large Load Diff
src/vmemorymanager.pas
+19
View File
@@ -62,6 +62,7 @@ procedure free_page_at_address(address : uint32);
function new_page_directory : uint32;
function new_kernel_mapped_page_directory : uint32;
function vtop(address : uint32) : uint32;
function map_page_user(page_number : uint16; block : uint16) : boolean;
implementation
@@ -273,4 +274,22 @@ begin
pop_trace;
end;
function map_page_user(page_number : uint16; block : uint16) : boolean;
var
rldpd : uint32;
begin
push_trace('vmemorymanager.map_page_user');
{ Map a page with User bit set (needed for V86 mode access) }
map_page_user := map_page_ex(page_number, block, PageDirectory);
PageDirectory^[page_number].UserMode := true;
{ Reload CR3 to flush TLB }
rldpd := uint32(PageDirectory) - KERNEL_VIRTUAL_BASE;
asm
mov eax, rldpd
mov CR3, eax
end;
pop_trace;
end;
end.