TSR !!!!

Hejka, wiem ze Pascal to przezytek, ale ja lubie staruszki :-)
Chodzi o to (jak w temacie ;))
W jaki sposob WYLACZYC program TSR??

Np wurorzylem sobie programik (zywcem z pomocy TP), ktory przy wklepywaniu tekstu przy kazdym udezeniu wydaje dziek. Ok. Procedurka sprawdza jeszcze czy (np.) nie zostal nacisniety Esc, jesli tak to ma przestac "pikac" czyli przywrocic przerwanie i sie wylaczyc, usunac go z pamieci.
(jak robie w procedurce zwykle Halt to pod winda nic sie nie dzieje a pod czystym dosem:
jakis blad,....,nie mozna znaleŹĆ COMMAND.COM system wstrzymany i d... caly system siada :(

Jak ktos wie niech da znac, bede baaardzo wdzieczny.
PS: Nie wciskajcie kitu w stylu "Tego sie nie da zrobic" bo jest to wykonalne!!!
Tylko Kłeszczyn is: Hał???

Text prosto z pomocy TP + moja mala dopiska ;))

  { Example for Keep }

  {$M $800,0,0 }   { 2K stack, no heap }
  { This program causes a click each time
   a key is pressed.}
  uses Crt, Dos;
  var
    KbdIntVec : Procedure;
  {$F+}
  procedure Keyclick; interrupt;
  begin
    if Port[$60] < $80 then
      { Only click when key is pressed }
      begin
      Sound(5000);
      Delay(1);
      Nosound;
 {A teraz moje}
         if Port[$60] = $01 then  {czyli wciskamy ESC}
           begin
           SetIntVec($9,@KbdIntVec);
           Halt(0);
  {No i wsio}
           end;
      end;
    inline ($9C); { PUSHF -- Push flags }
    { Call old ISR using saved vector }
   KbdIntVec;
 end;
 {$F-}
  begin
   { Insert ISR into keyboard chain }
   GetIntVec($9,@KbdIntVec);
   SetIntVec($9,Addr(Keyclick));
   Keep(0); { Terminate, stay resident }
 end.

No i probowalem wszystkiego:

1. nie pobierac 2x z portu, tylko najpierw do zmiennej pozniej porownywac

KbdIntVec 

najpierw, przed sprawdzeniem
Zawsze konczylo sie zawieszeniem Command.com'a
Oczywiscie przypominam ze blad jest pod czystym DOSem.
Jak ktos cos wymysli niech da znac, bede dźwięczny ;))

To nie zadziała tak ładnie, jakbys chciał. To wszystko dlatego, że... Choroba, musiałbym tu przestukać pół rozdziału (prawa autorskie, tantiemy itepe). W kazdym razie jak bys dzieś znalazł ksiązeczkę... np. DOS 5.00 od środka, to jest tam caluski rozdział o tsr-ach blokach psp (fajna nazwa, ale te bloki raczej nie klepią :]), o rejestrach i powiązaniu tego wszystkiego. :/ Jesli nie goni cie czas, to postaram się napisac taki programik w ciągu tygodnia (sam miewam mało czasu).

// Daj znac na gg.

// W każdym razie w ten program nie ma prawa porządnie sie deinstalować :/