diff options
| -rw-r--r-- | dosfetch.pas | 7 |
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; |