Board index » delphi » RTE 200 solution --- would it work???

RTE 200 solution --- would it work???

Just write a unit NORTE200 which sets the INT0 to an IRET (and saves it).
The unit provides a procedure RestoreRCheck which uses the old vector.

Then write another unit NEWCRT with the following source (CRT.INT or the
help should help):

unit NEWCRT;
interface
uses NORTE200, crt;
{for each proc and func:}
procedure Delay (millisecs: word);
{for each var}
var TextAttr: byte absolute Crt.TextAttr;

implementation
{for each proc and func}
procedure Delay;
begin
    Crt.Delay (millisecs)    {of course don't do it; fix it. Only as an
example.}
end;

begin
    RestoreRCheck
end.

 

Re:RTE 200 solution --- would it work???


In article <7877hs$cb...@news00.btx.dtag.de>,

Quote
Rudolf Polzer <einhardsch...@t-online.de> wrote:
>Just write a unit NORTE200 which sets the INT0 to an IRET (and saves it).
>The unit provides a procedure RestoreRCheck which uses the old vector.

Setting it to iret does not help. You get an eternal loop as it
returns directly into the offending instruction. You need to modify the
DX:AX to prevent the error from reappearing.

Osmo

Other Threads