fpcdocs/go32ex/softint.pp


1
2
3
4
5
6
7
8
9
10
11
12

uses
        go32;

var
        r : trealregs;

begin
        r.ah := $30;
        r.al := $01;
        realintr($21, r);
        Writeln('DOS v', r.al,'.',r.ah, ' detected');
end.