compute base_memory from int 11h

This should work better on old systems.

1 files changed, 6 insertions, 1 deletions

diff --git a/dosfetch.pas b/dosfetch.pas
index c50cc97..014a793 100644
--- a/dosfetch.pas
+++ b/dosfetch.pas
@@ -23,8 +23,13 @@ begin
 end;
 
 procedure base_memory;
+var a : integer;
 begin
-   writeln(cmos($15) + 256*cmos($16), ' KB');
+   asm
+     int $12;
+     mov a, ax;
+   end;
+   writeln(a, ' KB');
 end;
 
 procedure extended_memory;