🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.pascal.borland
Article #700

Re: What's wrong with this little TSR?

#700
From: Pedt Scragg
Date: Fri, 21 Aug 1998 00:00
31 lines
1870 bytes
In article <35ded96b.41078299@news.rz.uni-karlsruhe.de>, Andreas Maurer
<alphamike@t-online.de> writes
>
>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...   ;)
>
>
>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;
>

IIRC, if you are calling the previous interrupt handler, you need to
push the flags *before* you call the previous handler.
 
-- 
Pedt Scragg    

Not able to test code tonight as I'm on a laptop in darkest Cumbria
Technical Details
Message-ID: <YM8q4AAvKe31YwOI@pedt.demon.co.uk>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <35ded96b.41078299@news.rz.uni-karlsruhe.de>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 110467,9bcc55cc3c0b88c1
X-Google-Attributes: gid110467,public
X-Google-Thread: 10261c,9bcc55cc3c0b88c1
X-Google-Attributes: gid10261c,public
X-Google-Thread: 1006de,9bcc55cc3c0b88c1
X-Google-Attributes: gid1006de,public
X-Google-Thread: 110930,9bcc55cc3c0b88c1
X-Google-Attributes: gid110930,public
X-Google-Thread: 111659,9bcc55cc3c0b88c1
X-Google-Attributes: gid111659,public
From: Pedt Scragg <newsmaster@pedt.demon.co.uk>
Subject: Re: What's wrong with this little TSR?
Date: 1998/08/21
Message-ID: <YM8q4AAvKe31YwOI@pedt.demon.co.uk>
X-Deja-AN: 383463813
X-NNTP-Posting-Host: pedt.demon.co.uk:194.222.191.220
References: <35ded96b.41078299@news.rz.uni-karlsruhe.de>
X-Complaints-To: abuse@demon.net
X-Trace: news.demon.co.uk 903734099 nnrp-07:23554 NO-IDENT pedt.demon.co.uk:194.222.191.220
Organization: Working in Chaos
MIME-Version: 1.0
Newsgroups: comp.lang.pascal.borland,comp.lang.pascal.misc,de.comp.lang.pascal.misc,fido.ger.pascal,z-netz.sprachen.pascal