Board.KolibriOS.org

VitZ

Наверное, читатель, раз уж заговорили о <<делеях>>,
ждёт рифмы <<точный 64-х-битный таймер,
расположенный по адресу 1132 (считывается тайм ко-
мандой $F31)>>, - на вот, возьми её скорей.

VitZ

Проверкой драйвера в домашних условиях может быть соединение 3-х-метровым 3-х-проводным шнурком (com-com) двух компов между собой (в этом случае один из компов эмулирует АСУТП-шное устройство - такое как i7042). Если разъёмы 9-пиновые: 5-5, 2-3, 3-2. После соединения можно наслаждаться процессом, че...

VitZ

procedure sc(s:string); procedure sc(s:string); var i,t:dword; begin i:=1; t:=0; if ( (length(s)<1) or (length(s)>30) ) then exit; while (i<>length(s)+1) do begin while (In1021 and $20)=0 do begin t:=t+1; if (t>2000) then exit; end; zapis_v_port(1016, ord(s[i])); i:=i+1; t:=0; end; {} while (In1021 ...

VitZ

Art_zh, спасибо ...
... 1016 .. 1023 порты.

VitZ

Захватывать надо будет
порты 1008 .. 1028.

VitZ

Я предлагаю перенумеровать через randomize все 8 процедур
и продолжить написание кода драйвера по-сути;
например:
p9358765,
p2089764,
...
p7848933.
(Естественно, надо будет проверить -
чтобы не было двух совпадающих имён)

VitZ

Драйвер нашего com-порта
будет содержать 8 процедур:
zachvat_portov, otdatj_porti, open_com,
zapis_v_port(pdw,b), chtenie_iz_porta(pdw,b), delay(ms),
sc(s1), rc(s2).
Последние две - это:
послать команду в com-порт (строка) и
принять команду из com-порта (строка) соответственно.

VitZ

Asper, спасибо ...

procedure zapis_v_port(pdw:dword; b:byte);
begin asm
mov eax,43
mov bl,b
mov ecx,pdw
int $40
end; end;
...
if key=7 then zapis_v_port(888,255);
if key=8 then zapis_v_port(888,0);

... а транслитом я уже
больше думаю, чем пишу.

VitZ

У меня получилось: procedure zapis_v_port(pb1, pb2, b: byte); begin asm mov eax, 43 mov bl,b mov ch, pb1 mov cl, pb2 int $40; end; end; ... if key=7 then zapis_v_port($3, $78, 255); if key=8 then zapis_v_port($3, $78, 0); , а как в ассемблере записать в регистр (ecx) для номера порта сразу 2а байта=...

VitZ

В примере с LPT-светодиодами
две процедуры (p3 и p4) можно
свернуть в одну (по записываемому байту):

procedure zapis_v_port(b:byte);
begin asm
mov eax,43
mov bl,b
mov ecx,888
int $40
end; end;

Скорее всего и номер (адрес)
порта тоже можно вынести -
как параметр.

VitZ

... в конце каждой строки
общения между устройствами
(комп <-> i7042)
ставится символ (байт) 13.

VitZ

Устройство i7042 подключаем к компу через переходник i7520; если (как у меня получалось раньше - из DOS'а) удастся послать в пром-линию через com-порт строку '$01M', то устройство (в данном случае i7042) пришлёт своё имя (i7042 в данном случае должно иметь в пром-линии адрес 01 и настройку на скорос...

VitZ

Устройство двоичного вывода (0 - 24 В) i7042
попытаемся подключить к $3F0 - адресу
на скорости 115200, с 8мью битами данных,
без проверки на чётность и с минимальным количеством стоповых битов.

VitZ

На качественно организованном производстве переходник RS232/RS485 встречается не реже, чем персональный компьютер. Операционные системы приходят и уходят, а последовательный порт почему-то остаётся. Следующей идеей у меня было - подцепить какой-нть RS-485 девайс (в том же ключе, как на LPTе - светод...

VitZ

На паскале больше народу поймёт .

Search found 31 matches

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве

Re: KolibriOS на производстве