Вопрос: "Как переделать прогу?"

C++, Assembler, PHP и т.д. и т.п...

Модератор: Tiger

rva
Сообщения: 13
Зарегистрирован: Чт 16 ноя, 2006 21:21

Вопрос: "Как переделать прогу?"

Сообщение rva » Пн 26 ноя, 2007 20:57

Доброго времени суток!
А как эту прогу переделать под LPT -порт. Желательно с комментариями! Очень надо!
Заранее благодарен!

uses WinDos, Crt;
Var OldInt0B: Pointer;
x, i: integer;
c: array[0..100] of integer;
procedure New0B; interrupt;
begin
c[i] := port[$2F8];
inc(i);
port[$20]:=$20
end;
begin
GetIntVec($0B, Old0B);
SetIntVec($0B, @New0B);
port[$2FB] := 3;
port[$2FB] := $80;
port[$2F8] := $80;
port[$2F9] := 1;
port[$2F9] := 1;
i:=0;
while not keypressed do begin
x:=0;
repeat x:=x+1; sound(3000) until x=100;
end;
SetIntVec($0B, OldOb)
end.

-------------------
С уважением, rva! :cry:

Аватара пользователя
The Lord of the Rings
Модератор
Сообщения: 342
Зарегистрирован: Вс 10 апр, 2005 14:30
Контактная информация:

Сообщение The Lord of the Rings » Пн 26 ноя, 2007 21:28

[offtop]
А в одной теме, что писать нельзя?
[/offtop]
Пришёл, увидел, победил.

Гай Юлий Цезарь.

rva
Сообщения: 13
Зарегистрирован: Чт 16 ноя, 2006 21:21

Для The Lord of the Rings

Сообщение rva » Вт 27 ноя, 2007 21:08

Можно! Но... Я писал свою просьбу позже и с дуру начал новую тему!
Да и так больше шансов, что просмотрят! На новое взгляд падает охотнее :wink:
Извините, если Вам это так не нравиться! Виноват, исправлюсь!
P.S. Лучше бы ВЫ помогли, чем осуждать!

С уважением,rva!


Вернуться в «Программирование»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость