<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Aptos;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
font-size:11.0pt;
font-family:"Aptos",sans-serif;
mso-ligatures:standardcontextual;
mso-fareast-language:EN-US;}
span.StylE-mailovZprvy17
{mso-style-type:personal-compose;
font-family:"Aptos",sans-serif;
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:11.0pt;
mso-fareast-language:EN-US;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 70.85pt 70.85pt;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=CS link="#467886" vlink="#96607D" style='word-wrap:break-word'><div class=WordSection1><p class=MsoNormal>Zdravíčko při neděli, kolezi.<o:p></o:p></p><p class=MsoNormal>Více než kdy jindy jsem se poslední dny cítil jako Saturninův strýc František: „Nepotřebuji týt z toho, co objevili jiní…“<o:p></o:p></p><p class=MsoNormal>Potřeboval jsem si do PICu naprogramovat jednoduchý časovač pro medomet, obsluhovaný jedním tlačítkem – krátký stisk něco, dlouhý stisk něco jiného. Chtěl jsem, aby tlačítko bylo obsluhováno pomocí přerušení timeru – čili žádné čekání v programových smyčkách, aby bylo odolné proti zákmitům – debouncing a aby se poznala chyba, když tlačítko zůstane viset. Nu a zapotil jsem se. „…A přitom taková blbost, že?...“ abych ocitoval dalšího klasika. Nakonec jsem to po týdnu dal dohromady (jsem v důchodu, hraju si, vždycky chvilku, nefungovalo to tak den pauza, …). A tak bych se rád dotázal zde přítomných kolegů, kteří jsou v programování PICů v assembleru zběhlí:<o:p></o:p></p><p class=MsoNormal>Jak to řešíte vy? Je někde nějaký osvědčený postup s příklady přímo v MPASM ? Já tak narychlo nic nenašel, v nějakém předchozím projektu jsem aplikoval vertikální čítač, ale to mi tady přišlo poněkud komplikované. Nakonec je toho asi 40 řádků v obsluze přerušení. Ale docela rád bych viděl, jak na to chodíte vy?<o:p></o:p></p><p class=MsoNormal>Prosím neozývejte se s jazykem “C“ – ten je mi naprosto Cizí i když chápu že to v něm lze efektivně a robustně napsat. Rád bych právě porovnal přístupy v assembleru, tedy pokud nejste žárliví právě na to svoje řešení. Já do přílohy dávám svůj program, ať si případně pozvednete sebevědomí <span style='font-family:"Segoe UI Emoji",sans-serif'>😊</span>. Vzhledem k tomu, že programuju vždycky nějakou capinu a pak třeba půl roku nic, snažím se ten program komentovat jako pro dementy – abych si vzpomněl co tam mám a proč.<o:p></o:p></p><p class=MsoNormal>Hezkou neděli přeji.<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><span style='mso-fareast-language:CS'>Ing. Ladislav Kručinský<o:p></o:p></span></p><p class=MsoNormal><span style='mso-fareast-language:CS'>Koněvova 427/90<o:p></o:p></span></p><p class=MsoNormal><span style='mso-fareast-language:CS'>713 00 Ostrava - Heřmanice<o:p></o:p></span></p><p class=MsoNormal><o:p> </o:p></p></div></body></html>