Разработка, производство и продажа радиоэлектронной аппаратуры
|
Карта сайта
|
Пишите нам
|
В избранное
Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс.
e-mail:
jobsmp@pochta.ru
Телесистемы
|
Электроника
|
Конференция «Микроконтроллеры и их применение»
Такой не пойдет? ;)
Отправлено
Гудвин
20 апреля 2009, г. 13:11
В ответ на:
Исходничек бы Сишный на работу с мышкой PS2... (+)
отправлено пользователем
EagleB3
20 апреля 2009, г. 12:53
Kbd: procedure Byte public;
Declare (Key,i) byte;
Declare (CL,ch) word;
HiB=0;
Int1=1;
CL=0ffffh;
ch=255*4;
RPT:
Key=0;
Do i = 0 to 10;
do while Int1=1;
CL=Cl-1;
if Cl=0 then do;
Cl=0ffffh;
ch= ch-1;
if ch=0 then do;
Int1=0;
Return 'N';
end;
end;
end;
do while Int1=0;
end;
if i < 9 then do;
CY=T0;
Key=SCR(Key,1);
end;
end;
if Key=224 then goto RPT;
If TestClear(HiB) then goto RPT;
If Key = 240 then DO;
HiB=1;
goto RPT;
end;
Int1=0;
i=0;
Do while ((KeyArr(i)<>Key) and (KeyArr(i)<>0));
I=I+2;
end;
Key=KeyArr(i+1);
call Beep(20,30);
return Key;
end Kbd;
Составить ответ
|
Вернуться на конференцию.
Ответы
Спасибо! Постараюсь постичь...
-
EagleB3
(20.04.2009, 14:11:27
10.1.10.65,10.1.10.61,195.230.111.39
,
пустое
)
Отправка ответа
Имя*:
Пароль:
E-mail:
Тема*:
Сообщение:
Ссылка на URL:
URL изображения:
если вы незарегистрированный на форуме пользователь, то
для успешного добавления сообщения заполните поле, как указано ниже:
введите число 13:
Перейти к списку ответов
|
Конференция
|
Раздел "Электроника"
|
Главная страница
|
Карта сайта
Web
telesys.ru