Выгрузка резидентной программы по нажатию клавиш

[triest]

Имеем небольшой резидентик. Как организовать выгрузку по нажатью клавиши?

$M $800,0,0}

uses crt,dos;
const fil1='c:\f1.txt';
type
sob=record
year:0..2200;
year1:0..2200;
month:1..12 ;
month1:0..12 ;
hour:0..23     ;
hour1:0..23     ;
day:1..31;
day1:0..31;
minute:0..59;
minute1:0..59;
sobitie:string[50];
end;
Var
 timeintvec:procedure;
 counter,chet,year,day_of_week,month,day,hour,minute,second,milisecond,day1,month1,year1,hour1,minute1:word;
 fil:text;
 sobitie:string;
 i,j,p:integer;
 dt:array[1..100] of sob;
 {F+}
Procedure int08;
 begin
{
writeln('1');}
 inline($8);   {  18.6 raz v secundu,prerivanie taimera}
{ timeintvec;}chet:=chet+1; {nakaplivaem prerivanie taimera 60*18.6}
 if chet=1116 then writeln('1');
 { reset(fil);  }
 chet:=0;  {sbrasivaem scetchik}
    gettime(hour,minute,second,milisecond);{poluchaem vrema}
  getdate(year,month,day,day_of_week);
  for j:=1 to i do
    begin
   if dt[j].year1=year then
     if dt[j].month1=month then
      if dt[j].day1=day then
         if dt[j].hour1=hour then
           if dt[j].minute1=minute then begin if p=0 then{sravnivaem s tekychei datoi,esli sovpadaet,to vivodim sobitie}
           writeln(dt[j].sobitie);dt[j].year1:=0;
           dt[j].month1:=0;
           dt[j].day1:=0;
           dt[j].hour1:=0;
           dt[j].minute1:=0;  {vivod sobitia}
{ delay(60000);
  delay(60000); }

  sound(659);delay(500);delay(20);
  sound(523);delay(500);delay(20);
  sound(698);delay(500);delay(20);
  sound(587);delay(500);delay(20);
  sound(784);delay(500);delay(20);
  sound(880);delay(500);delay(20);
  sound(988);delay(500);delay(20);nosound;

      end;{close(fil);} end; inline($8);  end;
   { close(fil);  }

{F-}
BEGIN

{ counter:=0;  }  writeln('ww');
 assign(fil,'f1.txt');
 reset(fil);   i:=0;
 while not eof(fil) do
 begin
i:=i+1;
  readln(fil,dt[i].year1,dt[i].month1,dt[i].day1,dt[i].hour1,dt[i].minute1,dt[i].sobitie);
 end;

  for j:=1 to i do
  writeln(dt[j].year1,dt[j].month1,dt[j].day1,dt[j].hour1,dt[j].minute1,dt[j].sobitie);
  close(fil);
  writeln('shitano');

  int08;
  getintVec($8,@timeintVec);{ {poluchenii vectora}
  setIntVec($8,addr(int08));  {ustanovka vectora}

[Son Of Pain]

Поставить обработчик на прерывание от клавиатуры (irq1, или int9). Словить в нем нажатие клавиши. Убрать все свои обработчики. Освободить руками все выделенные для программы блоки памяти, включая psp и прочее (на паскале это делать будет очень геморно, к слову). Ну и сделать iret из обработчика на прощание.

P.S. Суровый у тебя резидент, такие вещи в обработчике прерывания таймера делать :D
Ну и непонятно, зачем этот эзотерический инлайн. В общем, работать эта штука не будет.

[triest]

Сообщение от Son Of Pain

Поставить обработчик на прерывание от клавиатуры (irq1, или int9). Словить в нем нажатие клавиши. Убрать все свои обработчики. Освободить руками все выделенные для программы блоки памяти, включая psp и прочее (на паскале это делать будет очень геморно, к слову). Ну и сделать iret из обработчика на прощание.

P.S. Суровый у тебя резидент, такие вещи в обработчике прерывания таймера делать :D
Ну и непонятно, зачем этот эзотерический инлайн. В общем, работать эта штука не будет.

Эта штука прекрасно работает.
Лучше на примере ловлю прерывания клавиатуры и очистку памяти.

[Son Of Pain]

Она не может работать по определению. Как минимум потому что процедуры, обрабатывающие прерывания, должны объявляться в паскале со спецификатором interrupt;, тогда они будут завершаться инструкцией iret. Если этого не сделать, произойдет ошибка при первом же вызове обработчика.

[triest]

Son Of Pain
Жаль.
Можете привести пример резидента, выгружающегося по нажатию клавиши?