From 53ad24ce6e5bfe81bf62e1e19f84b14cadd6e0c4 Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Sun, 30 Jul 2023 13:41:24 +0200
Subject: compute base_memory from int 11h

This should work better on old systems.
---
 dosfetch.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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;
-- 
cgit 1.4.1