Article View: comp.lang.pascal.borland
Article #702Re: What's wrong with this little TSR?
From: Esky
Date: Tue, 25 Aug 1998 00:00
Date: Tue, 25 Aug 1998 00:00
18 lines
1269 bytes
1269 bytes
procedure CountTime; interrupt;
begin
asm { this will stop another INTERRUPT }
cli; { Interrupting this interrupt }
pushf;
end;
--------------------------------
All the other stuff goes here...
--------------------------------
asm { Enable INTERRUPTS again }
sti;
popf;
end;
end;
Technical Details
Message-ID:
<35E20513.EF631A2F@hotmail.com>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<35ded96b.41078299@news.rz.uni-karlsruhe.de>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 111659,9bcc55cc3c0b88c1 X-Google-Attributes: gid111659,public X-Google-Thread: 110930,9bcc55cc3c0b88c1 X-Google-Attributes: gid110930,public 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 From: Esky <aaron_rodgers@hotmail.com> Subject: Re: What's wrong with this little TSR? Date: 1998/08/25 Message-ID: <35E20513.EF631A2F@hotmail.com> X-Deja-AN: 384380134 Content-Transfer-Encoding: 7bit References: <35ded96b.41078299@news.rz.uni-karlsruhe.de> Content-Type: text/plain; charset=us-ascii Organization: OzEmail Ltd. 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