Board.KolibriOS.org

Official KolibriOS board
It is currently Sat May 25, 2019 8:20 pm

All times are UTC+03:00




Post new topic  Reply to topic  [ 196 posts ]  Go to page Previous 19 10 11 12 13 14 Next
Author Message
PostPosted: Sun Jun 02, 2013 6:31 pm 
Offline
User avatar

Joined: Thu May 30, 2013 5:56 pm
Posts: 31
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);

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


Last edited by VitZ on Mon Aug 26, 2013 8:13 pm, edited 1 time in total.

Top
   
PostPosted: Sun Jun 02, 2013 7:23 pm 
Offline
User avatar

Joined: Thu May 30, 2013 5:56 pm
Posts: 31
Драйвер нашего 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-порта (строка) соответственно.


Last edited by VitZ on Sun Jun 02, 2013 7:50 pm, edited 1 time in total.

Top
   
PostPosted: Sun Jun 02, 2013 7:46 pm 
Offline

Joined: Mon Sep 24, 2007 11:11 am
Posts: 2814
Offtopic: Зачвать портов! Отдатж порти!
Может, всё же лучше grab_ports/capture_ports и release_ports?


Top
   
PostPosted: Sun Jun 02, 2013 8:50 pm 
Offline
User avatar

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


Top
   
PostPosted: Mon Jun 03, 2013 10:40 am 
Offline
User avatar

Joined: Thu May 30, 2013 5:56 pm
Posts: 31
Захватывать надо будет
порты 1008 .. 1028.


Top
   
PostPosted: Mon Jun 03, 2013 12:18 pm 
Offline
Kernel Developer
User avatar

Joined: Fri Aug 14, 2009 1:46 am
Posts: 1328
не в свои порты не лезь:
COM1 по стандарту 0x3F8..3FF = 1016..1023
и вообще неплохо бы для начала проверять IOBARы через 62-ю


Top
   
PostPosted: Mon Jun 03, 2013 4:14 pm 
Offline
User avatar

Joined: Thu May 30, 2013 5:56 pm
Posts: 31
Art_zh, спасибо ...
... 1016 .. 1023 порты.


Top
   
PostPosted: Mon Jun 03, 2013 5:48 pm 
Offline
User avatar

Joined: Thu May 30, 2013 5:56 pm
Posts: 31
procedure sc(s:string);
Spoiler: Show
Code:
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 and $20)=0 do begin
    t:=t+1;
    if (t>2000) then exit;
  end;
  zapis_v_port(1016,13);
end;

Для разных скоростей процессоров
задержку 2000 можно менять - главное, чтобы время
неухода (для rc(s2) - неприхода) байта
ограничить приблизительно 200 мс-ами.


Last edited by VitZ on Fri Jul 12, 2013 4:52 pm, edited 5 times in total.

Top
   
PostPosted: Mon Jun 03, 2013 6:48 pm 
Offline
User avatar

Joined: Thu May 30, 2013 5:56 pm
Posts: 31
Проверкой драйвера в домашних условиях
может быть соединение 3-х-метровым
3-х-проводным шнурком (com-com) двух компов
между собой (в этом случае один
из компов эмулирует АСУТП-шное
устройство - такое как i7042). Если разъёмы
9-пиновые: 5-5, 2-3, 3-2.
После соединения можно наслаждаться процессом,
чем-то напоминающим отправку-приём смс.
И это - не офтоп, это проверка на текущем,
но не конечном шаге подключения i7042 к компу.


Last edited by VitZ on Fri Jun 07, 2013 10:01 am, edited 1 time in total.

Top
   
PostPosted: Tue Jun 04, 2013 8:37 am 
Offline
User avatar

Joined: Thu May 30, 2013 5:56 pm
Posts: 31
Наверное, читатель, раз уж заговорили о <<делеях>>,
ждёт рифмы <<точный 64-х-битный таймер,
расположенный по адресу 1132 (считывается тайм ко-
мандой $F31)>>, - на вот, возьми её скорей.


Top
   
PostPosted: Tue Jun 04, 2013 8:46 am 
Offline
Kernel Developer

Joined: Sun Feb 10, 2013 12:37 pm
Posts: 2329
Spoiler: Show
Никого не хочу обижать, но тема превращается (превратилась?) в бложик/днявку и в ней не хватает клёвых фоток.

_________________
Всем чмоки в этом проекте! Засуньте эти 11 лет себе в жопу!


Top
   
PostPosted: Tue Jun 04, 2013 10:13 am 
Offline
User avatar

Joined: Thu May 30, 2013 5:56 pm
Posts: 31
Фото:


Attachments:
1.JPG
1.JPG [ 29.83 KiB | Viewed 2151 times ]
Top
   
PostPosted: Tue Jun 04, 2013 10:59 am 
Offline
User avatar

Joined: Thu May 30, 2013 5:56 pm
Posts: 31
Почти фото ( :) ):


Attachments:
2.JPG
2.JPG [ 26.38 KiB | Viewed 2141 times ]


Last edited by VitZ on Wed Jun 19, 2013 3:17 pm, edited 1 time in total.
Top
   
PostPosted: Tue Jun 04, 2013 2:54 pm 
Offline
Kernel Developer
User avatar

Joined: Fri Aug 14, 2009 1:46 am
Posts: 1328
Скорость конвейера какая?
Частота тахометра?
Период/скважность ШИМ?


Top
   
PostPosted: Tue Jun 04, 2013 3:44 pm 
Offline
User avatar

Joined: Thu May 30, 2013 5:56 pm
Posts: 31
...более чёткая картина рисуется в журнале
"Современные технологии автоматизации" - 4'97,
стр. 52-54;
http://www.cta.ru/issues/239826.html

могу ещё фотку устройства
i7042 - как он внутри устроен - прислать ...


Last edited by VitZ on Sat Apr 19, 2014 11:01 am, edited 7 times in total.

Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 196 posts ]  Go to page Previous 19 10 11 12 13 14 Next

All times are UTC+03:00


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited