Program Resident;

{Говорим компилятору, что все юниты имеют общий сегмент данных}

{$G+}

{Не будем использовать кучу}

{$M 4072,0,0}

uses dos;

const

  Stacksize = 2*512; {512 - Количество слов в стеке}

  s2:string='Привет всем кто меня знает !!!'+#13;

  p:word=1;

var

  oldint09:pointer;

  temp:word;

 

{$F+}

{Процедура обработки прерывания}

procedure MyInt; Interrupt;

begin

  asm

    jmp @skip

    db 14,'Мой резидент 2'

    @skip:

  end;

  temp:=memw[$0040:$001c];

  asm

    db $9c

    call oldint09

  end;

  if temp<>memw[$0040:$001c] then

  if((mem[$0040:memw[$0040:$001A]]<>0)and

     (mem[$0040:memw[$0040:$001A]]<>224))

 

     or(memw[$0040:memw[$0040:$001A]]=224) then

  begin

    mem[$0040:memw[$0040:$001A]]:=byte(s2[p]);

    if s2[p]='р' then mem[$0040:memw[$0040:$001A]+1]:=0;

    if p<length(s2) then inc(p);

  end;

end;

{$F-}

 

var

  ptr1:pchar; {Указатель на предпологаемый резидент}

  s:string[14]; {Проверочная строка}

begin

  getintvec($09,pointer(ptr1)); {Узнаем адрес вектора}

  {Скопируем из содержимого предпологаемого резидента проверочную строку}

  {Смещение - 18 это смещение проверочной строки от начала резидента}

  move(ptr1[18],s,15); {15 - количество букв + 1 байт на размер строки}

  if s='Мой резидент 2' then

  begin

    writeln('Программа уже запущена.');

    exit;

  end;

  GetIntVec($09,OldInt09);

  SetIntVec($09,Addr(MyInt));

  Keep(0);

end.