Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!gem.mps.ohio-state.edu!ginosko!uunet!mcsun!sunic!dkuug!daimi!epimetheus!erja
From: erja@epimetheus.dk (Erik Jacobsen)
Newsgroups: comp.lang.pascal
Subject: Re: clearing keyboard buffer (in TP)
Message-ID: <3399@daimi.dk>
Date: 5 Oct 89 08:23:49 GMT
References: <21040@adm.BRL.MIL>
Sender: news@daimi.dk
Reply-To: erja@daimi.DK (Erik Jacobsen)
Organization: DAIMI: Computer Science Department, Aarhus University, Denmark
Lines: 27

In article <21040@adm.BRL.MIL> MATHRICH@umcvmb.missouri.edu (Rich Winkel UMC Math Department) writes:
>The fastest (and least readable) solution from an assembler hacker
>would be:
>var kb_head:word absolute $40:$1A;
>    bk_tail:word absolute $40:$1C;
> ...
>   kb_head:=kb_tail;  { flush keyboard buffer }
>
>Rich

Isn't it necessary to disable interrupts in the assignment:


      var kb_head:word absolute $40:$1A;
          bk_tail:word absolute $40:$1C;
      ...
      inline($fa);       { disable interrupts. }
      kb_head:=kb_tail;  { flush keyboard buffer }
      inline($fb);       { enable interrupts. }

Erik
--------------------------------------------------------------------
Erik Jacobsen,     Computer Science Department,    Aarhus University
Ny Munkegade,    Building 540,       DK-8000 Aarhus C,       Denmark

Phone: +45 86127188, Telefax: +45 86135725, Home phone: +45 86169199
         Internet: erja@daimi.dk,           Ham-radio: OZ6KS