VPF::Своё прерывание 1Ch - Форум программистов

Immortal

Дата 24.4.2005, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 15.8.2003

Репутация: нет
Всего: нет

Как сделать процедуру которую можно использовать как прерывание.
Я знаю что такой пример вызывает Stack overflow, потому что такой вызов отличается от обычного передачей еще и регистра флагов, котрый из стека никто не удаляет, так что можно сделать?
Заранее спасибо.

Процедура должна быть паскалевская. И решение проблемы ЖЕЛАТЕЛЬНО(но не обязательно) тоже на Паскале без asm вставок.

Код


var
  Reg: Registers;

procedure Timer; far;
begin

end;

begin
  Reg.dx := ofs(Timer);
  Reg.ds := seg(Timer);
  Reg.ax := $251c;
  intr($21,Reg);

  while true do;
end.

[Модератор: Используйте пожалуйста теги [ code=delphi][/code]]

Это сообщение отредактировал(а) Fedor - 24.4.2005, 20:01

SPrograMMer

Дата 24.4.2005, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Спамер :)

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 5.11.2004
Где: Краснодар

Репутация: нет
Всего: 6

подпрограмма обработки прерываний должна быть с диррективой interrupt. А так вообще туда моно засуноть все-что угодно, не только

Цитата(Immortal @ 24.4.2005, 14:31)

на Паскале без asm вставок.

туда моно

--------------------

животное = зверь
законченный гентушник

Immortal

Дата 24.4.2005, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 15.8.2003

Репутация: нет
Всего: нет

Спасибо большое, а всё-таки паскаль не такая уж и плохая штука smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »