Function realintr (intnr: Word; var regs : trealregs) : boolean;
Simulates an interrupt in real mode
Parameters:
Return values: The supplied registers data structure contains the values that were returned by the real mode interrupt. True if successful, false if not.
Notes: The function transfers control to the address specified by the real mode interrupt vector of intnr. The real mode handler must return by executing an IRET.
Check int31error variable
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.