🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: What's wrong with this little TSR?

#706
From: Robert AH Prins
Date: Tue, 25 Aug 1998 00:00
45 lines
1689 bytes
In article <35E20533.80159AE8@hotmail.com>,
  Esky <aaron_rodgers@hotmail.com> wrote:
> 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;

Shall we make that

asm
  pushf
  cli
end;

.
.
.

asm
  popf
end;

as your sti/popf disables the interrupts again...

Robert
--
Robert AH Prins
prinsra@wcg.co.uk

-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp   Create Your Own Free Member Forum
Technical Details
Message-ID: <6runhk$9r2$1@nnrp1.dejanews.com>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <35ded96b.41078299@news.rz.uni-karlsruhe.de> <35E20533.80159AE8@hotmail.com>

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: 111659,9bcc55cc3c0b88c1
X-Google-Attributes: gid111659,public
From: Robert AH Prins <prinsra@wcg.co.uk>
Subject: Re: What's wrong with this little TSR?
Date: 1998/08/25
Message-ID: <6runhk$9r2$1@nnrp1.dejanews.com>
X-Deja-AN: 384583132
References: <35ded96b.41078299@news.rz.uni-karlsruhe.de> <35E20533.80159AE8@hotmail.com>
Organization: Deja News - The Leader in Internet Discussion
X-Article-Creation-Date: Tue Aug 25 16:08:21 1998 GMT
Newsgroups: comp.lang.pascal.borland,comp.lang.pascal.misc,de.comp.lang.pascal.misc,fido.ger.pascal
X-Http-User-Agent: Mozilla/3.0 (Win16; I)