mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 01:49:30 +02:00
16 lines
357 B
ObjectPascal
16 lines
357 B
ObjectPascal
uses
|
|
go32;
|
|
|
|
var
|
|
r : trealregs;
|
|
|
|
begin
|
|
r.ax := $5300;
|
|
r.bx := 0;
|
|
realintr($15, r);
|
|
if ((r.flags and carryflag)=0) then begin
|
|
Writeln('APM v', (r.ah and $f), '.',
|
|
(r.al shr 4), (r.al and $f), ' detected');
|
|
end else
|
|
Writeln('APM not present');
|
|
end. |