From: vitus@agropc.msk.su (Vitus Wagner)
Organization: Agroecological problems Center

     Процедура Keep - объявляет программу резидентной и делает это тупо и в
лоб.  Как и EXEC она не сделает ничего хорошего если вы не измените
распределение памяти в вашей программе, поскольку она резервирует всю память,
принадлежащую Вашей программе. Поэтому по умолчанию после ее выполнения Ваша
программа займет вообще всю память и работать после ее загрузки станет
невозможно.

     Поэтому
     1. поставьте в начале программы (до слова program или uses) управллящий
комментарий {$M xxx,0,zzz} где xxx - размер стека - минимум 1024, обычно
достаточно 4096 для резидентной программы, а по умолчанию 16384, 0 -
минимально допустимый размер динамической памяти (как правило ни на что не
влияет) zzz - максимально допустимый размер динамической памяти. Ваша
программа займет в памяти 256+CodeSize+DataSize+xxx+zzz байт, где Codesize и
DataSize - информация, которую выдает компилятор TPC после успешной
компиляции или которую можно увидеть выполнив команду меню File/Get Info в
среде turbo. Не надейтесь, что и после этого память занимаемая Вашей
программой будет меньше 13К

     2. Процедура Keep не выполняет ExitProc и не освобождает перехваченные
программой вектора прерываний, поэтому перед ее вызовом вызовите SwapVectors.

     3. Позаботьтесь о том, чтобы можно было как-то добраться до того кода
который вы сажаете резидентным, для чего опишите хотя бы одну процедуру типа
interrupt и с помощью процедуры SetIntVec установите на нее вектор
какого-нибудь прерывания. Процедуры interrupt вообще темы для отдельного
разговора, но вот вам совет -  не заводите в них локальных переменных (лучше
совсем) ибо локальные переменные живут в стеке, а стек во время выполнения
процедуры interrupt это даже не тот килобайт, который вы выделили диррективой
$M а то, на что расщедрилась DOS. А она выделяет иногда всего несколько
десятков байт, куда еще перед началом процедуры запихивается содержимое ВСЕХ
регистров процессора.

     И вообще - хотите написать хороший резидент - пишите на ассемблере ;-)

Origin  "All dragons can fly"