mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 13:11:27 +01:00
18 lines
393 B
ObjectPascal
18 lines
393 B
ObjectPascal
Program flags;
|
|
|
|
uses go32;
|
|
|
|
var r : trealregs;
|
|
|
|
begin
|
|
r.ax := $5300;
|
|
r.bx := 0;
|
|
realintr($15, r);
|
|
{ check if carry clear and write a suited message }
|
|
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. |