🚀 go-pugleaf

In article <35ded96b.41078299@news.rz.uni-karlsruhe.de>,
Andreas Maurer <alphamike@t-online.de> wrote:
>Hello folks,
>
>I have a problem with a TSR I've written that looks for a special
>value on an inport.
>
>The TSR itself works ok, but I'm unable to start another program after
>I've loaded the TSR - anything else crashes the computer immediately.
>I'm sure it's a memory problem, but I don't find it...   ;)
>
>Compiler: Turbo Pascal 7.0
>
>Any ideas?
>
>
>
>Here's the complete code:
>
>{$M 4096,0,0}
>
>Program TimerTest;
>uses Dos, Crt;
>var Timer   : Procedure;
>    x       : longint;
>    InPort  : word;
>
>{$F+}
>
>Procedure Beep;
>begin
>     Sound(200);
>     Delay(100);
>     NoSound;
>end;
>
>procedure CountTime; interrupt;
>begin
>     inc(x);
>     if x >= 20 then
>        begin
>             InPort := PortW[$370];
>             x := 0;
>             if InPort = 72 then Beep;
>        end;
>     Timer;
>     asm
>       pushf 
>     end;
>end;
>

You have the pushf and timer in wrong order. Also I think having a 100
ms delay in the int 8 handler could cause some problems.
   
Osmo