From 07f49e77aa5b99f57e1ee1fe9306fc0fa9abc409 Mon Sep 17 00:00:00 2001
From: Peter Hofmann <scm@uninformativ.de>
Date: Mon, 31 Jul 2023 18:47:24 +0200
Subject: disksize(): Treat registers as unsigned integers

This should fix some of the negative numbers that we're seeing.
---
 dosfetch.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dosfetch.pas b/dosfetch.pas
index 55c094f..bc236a1 100644
--- a/dosfetch.pas
+++ b/dosfetch.pas
@@ -70,7 +70,7 @@ begin
 end;
 
 procedure disksize(disk: byte);
-var a, b, c, d : integer;
+var a, b, c, d : word;
    total, free : longint;
 begin
    asm
-- 
cgit 1.4.1