DOS ain't dead

How to detect FreeDOS kernel from Turbo Pascal program? (Developers)

posted by Rugxulo , Usono, 19.01.2022, 01:05

> Success! It works even when FreeCOM is not used at all.

Minor improvements:


program whatfdos;
uses DOS;

function IsFreeDOS: boolean;
  var reg: registers;
begin
  reg.ax := $3000; reg.bx := 0;
  msdos(reg);
  IsFreeDOS := reg.bh = $FD
end;

begin
  writeln('FreeDOS = ',IsFreeDOS)
end.


Complete thread:

• How to detect FreeDOS kernel from Turbo Pascal program? - rosegondon, 14.01.2022, 22:39 (Developers)
  • How to detect FreeDOS kernel from Turbo Pascal program? - mceric, 15.01.2022, 00:22
    • How to detect FreeDOS kernel from Turbo Pascal program? - rosegondon, 15.01.2022, 16:20
      • How to detect FreeDOS kernel from Turbo Pascal program? - Rugxulo, 19.01.2022, 01:05
    • 21.33FF kernel version string interface - ecm, 15.01.2022, 17:32
      • 21.33FF kernel version string interface - rosegondon, 17.01.2022, 20:06
        • 21.33FF kernel version string interface - DosWorld, 18.01.2022, 02:54
          • 21.33FF kernel version string interface - rosegondon, 18.01.2022, 09:06
            • 21.33FF kernel version string interface - Laaca, 18.01.2022, 14:25
            • 21.33FF kernel version string interface - tkchia, 18.01.2022, 15:30
            • 21.33FF kernel version string interface - DosWorld, 18.01.2022, 16:44
              • 21.33FF kernel version string interface - rosegondon, 18.01.2022, 19:14
    • How to detect FreeDOS kernel from Turbo Pascal program? - Laaca, 18.01.2022, 19:06
      • How to detect FreeDOS kernel from Turbo Pascal program? - Rugxulo, 19.01.2022, 00:57
        • How to detect FreeDOS kernel from Turbo Pascal program? - Laaca, 19.01.2022, 10:33
  • How to detect FreeDOS kernel from Turbo Pascal program? - Oso2k, 15.01.2022, 00:24
  • How to detect FreeDOS kernel from Turbo Pascal program? - Laaca, 15.01.2022, 11:09
    • How to detect FreeDOS kernel from Turbo Pascal program? - mceric, 15.01.2022, 12:29