<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 12 (filtered medium)"><!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><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:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p.MsoPlainText, li.MsoPlainText, div.MsoPlainText
{mso-style-priority:99;
mso-style-link:"Prostý text Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:10.5pt;
font-family:Consolas;}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
{mso-style-priority:99;
mso-style-link:"Text bubliny Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:8.0pt;
font-family:"Tahoma","sans-serif";}
span.ProsttextChar
{mso-style-name:"Prostý text Char";
mso-style-priority:99;
mso-style-link:"Prostý text";
font-family:Consolas;}
span.TextbublinyChar
{mso-style-name:"Text bubliny Char";
mso-style-priority:99;
mso-style-link:"Text bubliny";
font-family:"Tahoma","sans-serif";}
span.StylE-mailovZprvy21
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.StylE-mailovZprvy22
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@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=blue vlink=purple><div class=WordSection1><p class=MsoNormal><span style='color:#1F497D'>Tak samozřejmě to přeložilo úplně jinak než to C.<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'>Jenom pro zajímavost, zkuste to newmain.c co jsem posílal<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'>Míra<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'><o:p> </o:p></span></p><div><div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'><p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>From:</span></b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> Hw-list [mailto:hw-list-bounces@list.hw.cz] <b>On Behalf Of </b>Miroslav Draxal<br><b>Sent:</b> Wednesday, April 3, 2024 2:57 PM<br><b>To:</b> 'HW-news'<br><b>Subject:</b> RE: defektní PIC16F18015<o:p></o:p></span></p></div></div><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><span style='color:#1F497D'>Tak teď jsem přeložil ten váš .c<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'>Koukám na to<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'>Míra<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'><o:p> </o:p></span></p><div><div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'><p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>From:</span></b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> Hw-list [mailto:hw-list-bounces@list.hw.cz] <b>On Behalf Of </b>Miroslav Draxal<br><b>Sent:</b> Wednesday, April 3, 2024 2:43 PM<br><b>To:</b> 'HW-news'<br><b>Subject:</b> RE: defektní PIC16F18015<o:p></o:p></span></p></div></div><p class=MsoNormal><o:p> </o:p></p><p class=MsoPlainText>Je skutečně škoda, že jste neposlal ten projekt, ušetřilo by to dost času. Prostě jsem neviděl jak to přeložilo, do jakých paměťových lokací.<o:p></o:p></p><p class=MsoPlainText>Překopal jsem si to do C., protože jsem to proste v asm. Nepřeložil.<o:p></o:p></p><p class=MsoPlainText>Podle všeho je problém v <o:p></o:p></p><p class=MsoPlainText>PSECT resetVec,class=CODE,delta=2,abs<o:p></o:p></p><p class=MsoPlainText>resetVec:<o:p></o:p></p><p class=MsoPlainText>PowerUp:<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText> clrf INTCON ; Disable all interrupts<o:p></o:p></p><p class=MsoPlainText>TADY clrf PCLATH ; Tables on page 0<o:p></o:p></p><p class=MsoPlainText> ;clrf STATUS ; reset flags<o:p></o:p></p><p class=MsoPlainText> goto INIT<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>po přeložení nevíme od jaké adresy startuje program, to je věc překladače, C to přeloží od adresy 0x0807<o:p></o:p></p><p class=MsoPlainText><img width=421 height=110 id="obrázek_x0020_1" src="cid:image001.png@01DA85D7.C2915C20"><o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Pak projede komplet inicializaci a dojde k adrese 0x0821, kde je GOTO 0x22, ale protože má vynulovaný PCLATH, tak místo aby skočil na adresu 0x0822 tak skočí na nesmyslnou adresu.<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText><img width=437 height=65 id="obrázek_x0020_2" src="cid:image002.png@01DA85D7.C2915C20"><o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Schválně to zkuste.<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Dejte vědět. Míra<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>-----Original Message-----<br>From: Hw-list [mailto:hw-list-bounces@list.hw.cz] On Behalf Of Jindrich Fucik<br>Sent: Wednesday, April 3, 2024 1:57 PM<br>To: HW-news<br>Subject: RE: defektní PIC16F18015<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Trochu si myslím, že přeložením to ztratí kouzlo. Spíš pošlu celý projekt, nebo ukázku, jak jej mám vytvořený.<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>EQU je direktiva EQUivalent. Tedy jenom říká, že když napíšu TRISA_INI, tak jsem vlastně chtěl napsat 00000000B. Jak tuto hodnotu použiji už se neřeší. Pokud jí přiřadím jako literál, tak zůstane literálem:<o:p></o:p></p><p class=MsoPlainText>movlw TRISA_INI ; tohle přiřadí do W literál 00000000B<o:p></o:p></p><p class=MsoPlainText>movwf TRISA ; a tohle pak hodnotu z W do TRISA<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Ano, pokud bych použil TRISA_INI jako referenci, byl by to ukazatel do paměti na pozici 0, ale tak to nedělám.<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>V dokumentu "MPLAB_XC8_PIC_Assembler_Users_Guide_50002974.pdf" je popis v kapitole 4.9.16. Případně poznámka v kapitole 4.6.4.<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Ono jde o to, že tenhle defekt pozoruji právě na té sadě deseti procesorů co mám doma. Na jiném typu se to neděje a tak mi trvalo strašnou dobu to pochopit. Je to něco, co používám často a pořád to funguje, tak to beru jako fakt. Čili zajímavé by bylo to vyzkoušet na stejném procesoru z jiné série. Třeba na PIC16F15313 žádný problém není.<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>---------- Původní e-mail ----------<o:p></o:p></p><p class=MsoPlainText>Od: Miroslav Draxal <evik@volny.cz><o:p></o:p></p><p class=MsoPlainText>Komu: 'HW-news' <hw-list@list.hw.cz><o:p></o:p></p><p class=MsoPlainText>Datum: 3. 4. 2024 11:32:56<o:p></o:p></p><p class=MsoPlainText>Předmět: RE: defektní PIC16F18015<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Vytvořte úplně nový projekt na C:\<o:p></o:p></p><p class=MsoPlainText>Hoďte tam ten váš kód a zkompilujte. Pokud to projede, tak to sem hoďte. Bude to mít pár kB. <o:p></o:p></p><p class=MsoPlainText>Tím eliminujeme nesrovnalosti v nastavení projektu.<o:p></o:p></p><p class=MsoPlainText> <o:p></o:p></p><p class=MsoPlainText>Za moment budu mít čas se na to podívat a třeba to nahrát i do jiného PICu.<o:p></o:p></p><p class=MsoPlainText>ALE!<o:p></o:p></p><p class=MsoPlainText>Všiml jsem si včera letmo, možná že to má nějaký důvod.<o:p></o:p></p><p class=MsoPlainText>Pokud používáte <o:p></o:p></p><p class=MsoPlainText>TRISA_INI equ 00000000B;<o:p></o:p></p><p class=MsoPlainText>Tak TRISA_INI nemá hodnotu 0x00, ale přiřazujete TRISA_INI registr v nulté stránce paměti RAM s adresou 0x00<o:p></o:p></p><p class=MsoPlainText> <o:p></o:p></p><p class=MsoPlainText>Takže podle mě <o:p></o:p></p><p class=MsoPlainText>#define TRISA_INI 00000000B<o:p></o:p></p><p class=MsoPlainText>Nebo <o:p></o:p></p><p class=MsoPlainText>TRISA_INI set d'0'<o:p></o:p></p><p class=MsoPlainText> <o:p></o:p></p><p class=MsoPlainText>ALE: pokud něco dělám v asm, tak jenom opravuji staré projekty z doby do 2010 a to ještě v MPLAB8.92, možná se pro mplabx něco změnilo.<o:p></o:p></p><p class=MsoPlainText>Míra<o:p></o:p></p><p class=MsoPlainText>From: Hw-list [mailto:hw-list-bounces@list.hw.cz] On Behalf Of Jindrich Fucik<o:p></o:p></p><p class=MsoPlainText>Sent: Wednesday, April 3, 2024 10:11 AM<o:p></o:p></p><p class=MsoPlainText>To: HW-news<o:p></o:p></p><p class=MsoPlainText>Subject: RE: defektní PIC16F18015<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText> <o:p></o:p></p><p class=MsoPlainText>používám mplabx verze tuším 6.5. V zásadě jsem nic neměnil proti defaultu, vlastně jen tu definici vektorů, která je napsaná v prvním řádku kódu.<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Co píše pic-as? <o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Vlastné - není problém se jménem souboru, které obsahuje mezery a mínusko? Pravda je, že v editoru to mám s romantickým náznem default.s<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText> <o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>---------- Původní e-mail ----------<o:p></o:p></p><p class=MsoPlainText>Od: Miroslav Draxal <evik@volny.cz><o:p></o:p></p><p class=MsoPlainText>Komu: 'HW-news' <hw-list@list.hw.cz><o:p></o:p></p><p class=MsoPlainText>Datum: 2. 4. 2024 21:16:30<o:p></o:p></p><p class=MsoPlainText>Předmět: RE: defektní PIC16F18015<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Nakopněte mě. V jakém editoru to píšete (MPLABx to defect - config.s otevře) ale nedokážu to asemblovat (pic-as to nějak nebere)<o:p></o:p></p><p class=MsoPlainText>Míra<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>-----Original Message-----<o:p></o:p></p><p class=MsoPlainText>From: Hw-list [mailto:hw-list-bounces@list.hw.cz] On Behalf Of Jindrich Fucik<o:p></o:p></p><p class=MsoPlainText>Sent: Tuesday, April 2, 2024 7:11 PM<o:p></o:p></p><p class=MsoPlainText>To: hw-list@list.hw.cz<o:p></o:p></p><p class=MsoPlainText>Subject: Re: defektní PIC16F18015<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Bezva, tak jsem to dotáhl téměř k dokonalosti. Vytvořil jsem kód, který <o:p></o:p></p><p class=MsoPlainText>je složený převážně z instrukcí "nop" a "#ifdef". Na začátku jsou pak <o:p></o:p></p><p class=MsoPlainText>dva #define, které umožňují si vybrat, co se stane. Možnosti jsou:<o:p></o:p></p><p class=MsoPlainText>1) program funguje jak má.<o:p></o:p></p><p class=MsoPlainText>2) program zamrzne zhruba na 2ms před každým přerušením<o:p></o:p></p><p class=MsoPlainText>3) program zamrzne úplně<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Ke stažení jako zip i se záznamem z analyzátoru:<o:p></o:p></p><p class=MsoPlainText>https://www.uschovna.cz/zasilka/OX4JT76LTH6MCBD2-XU7<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Jdu se zeptat na support, co s tím.<o:p></o:p></p><p class=MsoPlainText><o:p> </o:p></p><p class=MsoPlainText>Dne 01.04.2024 v 22:02 Jindrich Fucik napsal(a):<o:p></o:p></p><p class=MsoPlainText>> Bezva, tohle funguje jak by se dalo očekávat.<o:p></o:p></p><p class=MsoPlainText>> Jdu hledat, co tohle udělá jinak než já.<o:p></o:p></p><p class=MsoPlainText>> V příloze pro porovnání výstup ze Saleae. Je hodně podobný tomu ze <o:p></o:p></p><p class=MsoPlainText>> simulátoru (ne zcela stejný).<o:p></o:p></p><p class=MsoPlainText>> <o:p></o:p></p><p class=MsoPlainText>> Jdu hledat, co je tady nastaveno jinak.<o:p></o:p></p><p class=MsoPlainText>> <o:p></o:p></p><p class=MsoPlainText>> <o:p></o:p></p><p class=MsoPlainText>> Dne 01.04.2024 v 21:08 Miroslav Draxal napsal(a):<o:p></o:p></p><p class=MsoPlainText>>> Zkuste tohle, ověřeno v MPLABx simulátoru a výstup taktéž MPLABx Logic <o:p></o:p></p><p class=MsoPlainText>>> Analyzer (viz příloha).<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> #include <xc.h><o:p></o:p></p><p class=MsoPlainText>>> #include <pic16f18015.h><o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> // Configuration bits: selected in the GUI<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> //CONFIG1<o:p></o:p></p><p class=MsoPlainText>>> #pragma config FEXTOSC = ECH // External Oscillator Selection <o:p></o:p></p><p class=MsoPlainText>>> bits->EC (external clock) above 16 MHz<o:p></o:p></p><p class=MsoPlainText>>> #pragma config RSTOSC = HFINTOSC_32MHz // Reset Oscillator <o:p></o:p></p><p class=MsoPlainText>>> Selection bits->HFINTOSC (32 MHz)<o:p></o:p></p><p class=MsoPlainText>>> #pragma config CLKOUTEN = OFF // Clock Out Enable bit->CLKOUT <o:p></o:p></p><p class=MsoPlainText>>> function is disabled; i/o or oscillator function on OSC2<o:p></o:p></p><p class=MsoPlainText>>> #pragma config VDDAR = HI // VDD Range Analog Calibration Selection <o:p></o:p></p><p class=MsoPlainText>>> bit->Internal analog systems are calibrated for operation between VDD <o:p></o:p></p><p class=MsoPlainText>>> = 2.3 - 5.5V<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> //CONFIG2<o:p></o:p></p><p class=MsoPlainText>>> #pragma config MCLRE = EXTMCLR // Master Clear Enable bit->If LVP = <o:p></o:p></p><p class=MsoPlainText>>> 0, MCLR pin is MCLR; If LVP = 1, RA3 pin function is MCLR<o:p></o:p></p><p class=MsoPlainText>>> #pragma config PWRTS = PWRT_OFF // Power-up Timer Selection <o:p></o:p></p><p class=MsoPlainText>>> bits->PWRT is disabled<o:p></o:p></p><p class=MsoPlainText>>> #pragma config WDTE = OFF // WDT Operating Mode bits->WDT disabled; <o:p></o:p></p><p class=MsoPlainText>>> SEN is ignored<o:p></o:p></p><p class=MsoPlainText>>> #pragma config BOREN = ON // Brown-out Reset Enable bits->Brown-out <o:p></o:p></p><p class=MsoPlainText>>> Reset enabled, SBOREN bit is ignored<o:p></o:p></p><p class=MsoPlainText>>> #pragma config DACAUTOEN = OFF // DAC Buffer Automatic Range Select <o:p></o:p></p><p class=MsoPlainText>>> Enable bit->DAC Buffer reference range is determined by the REFRNG bit<o:p></o:p></p><p class=MsoPlainText>>> #pragma config BORV = LO // Brown-out Reset Voltage Selection <o:p></o:p></p><p class=MsoPlainText>>> bit->Brown-out Reset Voltage (VBOR) set to 1.9V<o:p></o:p></p><p class=MsoPlainText>>> #pragma config ZCD = OFF // ZCD Disable bit->ZCD module is <o:p></o:p></p><p class=MsoPlainText>>> disabled; ZCD can be enabled by setting the ZCDSEN bit of ZCDCON<o:p></o:p></p><p class=MsoPlainText>>> #pragma config PPS1WAY = ON // PPSLOCKED One-Way Set Enable <o:p></o:p></p><p class=MsoPlainText>>> bit->The PPSLOCKED bit can be cleared and set only once after an <o:p></o:p></p><p class=MsoPlainText>>> unlocking sequence is executed; once PPSLOCKED is set, all future <o:p></o:p></p><p class=MsoPlainText>>> changes to PPS registers are prevented<o:p></o:p></p><p class=MsoPlainText>>> #pragma config STVREN = ON // Stack Overflow/Underflow Reset Enable <o:p></o:p></p><p class=MsoPlainText>>> bit->Stack Overflow or Underflow will cause a reset<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> //CONFIG4<o:p></o:p></p><p class=MsoPlainText>>> #pragma config BBSIZE = BB512 // Boot Block Size Selection <o:p></o:p></p><p class=MsoPlainText>>> bits->512 words boot block size<o:p></o:p></p><p class=MsoPlainText>>> #pragma config BBEN = OFF // Boot Block Enable bit->Boot Block <o:p></o:p></p><p class=MsoPlainText>>> disabled<o:p></o:p></p><p class=MsoPlainText>>> #pragma config SAFEN = OFF // Storage Area Flash (SAF) Enable <o:p></o:p></p><p class=MsoPlainText>>> bit->SAF disabled<o:p></o:p></p><p class=MsoPlainText>>> #pragma config WRTAPP = OFF // Application Block Write Protection <o:p></o:p></p><p class=MsoPlainText>>> bit->Application Block is NOT write protected<o:p></o:p></p><p class=MsoPlainText>>> #pragma config WRTB = OFF // Boot Block Write Protection bit->Boot <o:p></o:p></p><p class=MsoPlainText>>> Block is NOT write protected<o:p></o:p></p><p class=MsoPlainText>>> #pragma config WRTC = OFF // Configuration Register Write <o:p></o:p></p><p class=MsoPlainText>>> Protection bit->Configuration Register is NOT write protected<o:p></o:p></p><p class=MsoPlainText>>> #pragma config WRTD = OFF // Data EEPROM Write Protection bit->Data <o:p></o:p></p><p class=MsoPlainText>>> EEPROM is NOT write-protected<o:p></o:p></p><p class=MsoPlainText>>> #pragma config WRTSAF = OFF // Storage Area Flash (SAF) Write <o:p></o:p></p><p class=MsoPlainText>>> Protection bit->SAF is NOT write protected<o:p></o:p></p><p class=MsoPlainText>>> #pragma config LVP = ON // Low Voltage Programming Enable bit->Low <o:p></o:p></p><p class=MsoPlainText>>> Voltage programming enabled. MCLR/Vpp pin function is MCLR. MCLRE <o:p></o:p></p><p class=MsoPlainText>>> Configuration bit is ignored<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> //CONFIG5<o:p></o:p></p><p class=MsoPlainText>>> #pragma config CP = OFF // Program Flash Memory Code Protection <o:p></o:p></p><p class=MsoPlainText>>> bit->Program Flash Memory code protection is disabled<o:p></o:p></p><p class=MsoPlainText>>> #pragma config CPD = OFF // Data EEPROM Code Protection bit->EEPROM <o:p></o:p></p><p class=MsoPlainText>>> code protection is disabled<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> void main(void) {<o:p></o:p></p><p class=MsoPlainText>>> // Set the CLOCK CONTROL module to the options selected in the <o:p></o:p></p><p class=MsoPlainText>>> user interface.<o:p></o:p></p><p class=MsoPlainText>>> //<o:p></o:p></p><p class=MsoPlainText>>> OSCCON2 = 0x0;<o:p></o:p></p><p class=MsoPlainText>>> // SOSCPWR Low power;<o:p></o:p></p><p class=MsoPlainText>>> OSCCON3 = 0x0;<o:p></o:p></p><p class=MsoPlainText>>> // HFOEN disabled; MFOEN disabled; LFOEN disabled; SOSCEN <o:p></o:p></p><p class=MsoPlainText>>> disabled; ADOEN disabled;<o:p></o:p></p><p class=MsoPlainText>>> OSCEN = 0x0;<o:p></o:p></p><p class=MsoPlainText>>> // HFFRQ 8_MHz;<o:p></o:p></p><p class=MsoPlainText>>> OSCFRQ = 0x3;<o:p></o:p></p><p class=MsoPlainText>>> //<o:p></o:p></p><p class=MsoPlainText>>> OSCSTAT = 0x0;<o:p></o:p></p><p class=MsoPlainText>>> // TUN undefined;<o:p></o:p></p><p class=MsoPlainText>>> OSCTUNE = 0x0;<o:p></o:p></p><p class=MsoPlainText>>> // ACTEN disabled; ACTUD enabled; ACTLOCK Not locked; ACTORS In <o:p></o:p></p><p class=MsoPlainText>>> range;<o:p></o:p></p><p class=MsoPlainText>>> ACTCON = 0x0;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> /**<o:p></o:p></p><p class=MsoPlainText>>> LATx registers<o:p></o:p></p><p class=MsoPlainText>>> */<o:p></o:p></p><p class=MsoPlainText>>> LATA = 0x0;<o:p></o:p></p><p class=MsoPlainText>>> LATA0 = 1;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> /**<o:p></o:p></p><p class=MsoPlainText>>> TRISx registers<o:p></o:p></p><p class=MsoPlainText>>> */<o:p></o:p></p><p class=MsoPlainText>>> TRISA = 0x34;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> /**<o:p></o:p></p><p class=MsoPlainText>>> ANSELx registers<o:p></o:p></p><p class=MsoPlainText>>> */<o:p></o:p></p><p class=MsoPlainText>>> ANSELA = 0x34;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> /**<o:p></o:p></p><p class=MsoPlainText>>> WPUx registers<o:p></o:p></p><p class=MsoPlainText>>> */<o:p></o:p></p><p class=MsoPlainText>>> WPUA = 0x0;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> /**<o:p></o:p></p><p class=MsoPlainText>>> ODx registers<o:p></o:p></p><p class=MsoPlainText>>> */<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> ODCONA = 0x0;<o:p></o:p></p><p class=MsoPlainText>>> /**<o:p></o:p></p><p class=MsoPlainText>>> SLRCONx registers<o:p></o:p></p><p class=MsoPlainText>>> */<o:p></o:p></p><p class=MsoPlainText>>> SLRCONA = 0x37;<o:p></o:p></p><p class=MsoPlainText>>> /**<o:p></o:p></p><p class=MsoPlainText>>> INLVLx registers<o:p></o:p></p><p class=MsoPlainText>>> */<o:p></o:p></p><p class=MsoPlainText>>> INLVLA = 0x37;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> /**<o:p></o:p></p><p class=MsoPlainText>>> PPS registers<o:p></o:p></p><p class=MsoPlainText>>> */<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> /**<o:p></o:p></p><p class=MsoPlainText>>> APFCON registers<o:p></o:p></p><p class=MsoPlainText>>> */<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> /**<o:p></o:p></p><p class=MsoPlainText>>> IOCx registers<o:p></o:p></p><p class=MsoPlainText>>> */<o:p></o:p></p><p class=MsoPlainText>>> IOCAP = 0x0;<o:p></o:p></p><p class=MsoPlainText>>> IOCAN = 0x0;<o:p></o:p></p><p class=MsoPlainText>>> IOCAF = 0x0;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> //TMR0H 119;<o:p></o:p></p><p class=MsoPlainText>>> TMR0H = 0x77;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> //TMR0L 0;<o:p></o:p></p><p class=MsoPlainText>>> TMR0L = 0x0;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> //T0CS FOSC/4; T0CKPS 1:1; T0ASYNC not_synchronised;<o:p></o:p></p><p class=MsoPlainText>>> T0CON1 = 0x50;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> //Clear Interrupt flag before enabling the interrupt<o:p></o:p></p><p class=MsoPlainText>>> PIR0bits.TMR0IF = 0;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> //Enable TMR0 interrupt.<o:p></o:p></p><p class=MsoPlainText>>> PIE0bits.TMR0IE = 1;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> //T0OUTPS 1:1; T0EN enabled; T016BIT 8-bit;<o:p></o:p></p><p class=MsoPlainText>>> T0CON0 = 0x80;<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> ei();<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> do {<o:p></o:p></p><p class=MsoPlainText>>> LATA1 = 1;<o:p></o:p></p><p class=MsoPlainText>>> NOP();<o:p></o:p></p><p class=MsoPlainText>>> LATA1 = 0;<o:p></o:p></p><p class=MsoPlainText>>> } while (1);<o:p></o:p></p><p class=MsoPlainText>>> return;<o:p></o:p></p><p class=MsoPlainText>>> }<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> void __interrupt() myHighIsr(void) {<o:p></o:p></p><p class=MsoPlainText>>> if (TMR0IF == 1) {<o:p></o:p></p><p class=MsoPlainText>>> TMR0H = 0x77;<o:p></o:p></p><p class=MsoPlainText>>> TMR0IF = 0;<o:p></o:p></p><p class=MsoPlainText>>> LATA0 = 0;<o:p></o:p></p><p class=MsoPlainText>>> NOP();<o:p></o:p></p><p class=MsoPlainText>>> LATA0 = 1;<o:p></o:p></p><p class=MsoPlainText>>> }<o:p></o:p></p><p class=MsoPlainText>>> }<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> -----Original Message-----<o:p></o:p></p><p class=MsoPlainText>>> From: Hw-list [mailto:hw-list-bounces@list.hw.cz] On Behalf Of <o:p></o:p></p><p class=MsoPlainText>>> Jindrich Fucik<o:p></o:p></p><p class=MsoPlainText>>> Sent: Monday, April 1, 2024 7:14 PM<o:p></o:p></p><p class=MsoPlainText>>> To: hw-list@list.hw.cz<o:p></o:p></p><p class=MsoPlainText>>> Subject: Re: defektní PIC16F18015<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> Tak to jsem z toho jelen. Vzal jsem nový procesor a chová se stejně.<o:p></o:p></p><p class=MsoPlainText>>> V příloze je obrázek z analyzátoru.<o:p></o:p></p><p class=MsoPlainText>>> pochopitelně když program krokuji, tak se chová normálně. Nic <o:p></o:p></p><p class=MsoPlainText>>> takového, že by přerušení skočilo někam jinam a běžel kus jiného <o:p></o:p></p><p class=MsoPlainText>>> programu.<o:p></o:p></p><p class=MsoPlainText>>><o:p> </o:p></p><p class=MsoPlainText>>> Dne 01.04.2024 v 17:22 Jindrich Fucik napsal(a):<o:p></o:p></p><p class=MsoPlainText>>>> To není můj případ, start přerušení trvá tuším 3 instrukční cykly,<o:p></o:p></p><p class=MsoPlainText>>>> procesor jede 8MHz, takže 1,5μs nebo tak něco. Program je velmi<o:p></o:p></p><p class=MsoPlainText>>>> primitivní, je napsaný v assembleru, abych vyloučil nějakou botu z <o:p></o:p></p><p class=MsoPlainText>>>> jazyka.<o:p></o:p></p><p class=MsoPlainText>>>> Nakopíruji sem podstatnou část programu. Nepodstatná nastavuje config:<o:p></o:p></p><p class=MsoPlainText>>>> vypnutý watchdog, interní oscilátor 8MHz a tak.<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> Program nedělá nic, než že v mainu bliká jedním výstupem a v přerušení<o:p></o:p></p><p class=MsoPlainText>>>> druhým. přerušení je od časovače (v příkladu Timer 0, ale stejně se<o:p></o:p></p><p class=MsoPlainText>>>> chová i Timer 2) a je nastaveno na 60 μs.<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> Na analyzátoru je pak velice zřetelné, že proběhne 25 bliknutí RA1,<o:p></o:p></p><p class=MsoPlainText>>>> pak je těch 350μs mezera a pak jedno bliknutí RA0 a pak hned zase 25x<o:p></o:p></p><p class=MsoPlainText>>>> RA1 (jasně, ten kód není optimální, je to poslední troska, než jsem to<o:p></o:p></p><p class=MsoPlainText>>>> zabalil). Podstatné je, že ta díra je větší, než vlastní běh, takže je<o:p></o:p></p><p class=MsoPlainText>>>> to velmi zřetelné a nemá cenu zjišťovat, jestli je něco ± jednotky<o:p></o:p></p><p class=MsoPlainText>>>> instrukčních cyklů. Zábavné je, že stejný čas dostanu i při přepnutí<o:p></o:p></p><p class=MsoPlainText>>>> rychlosti procesoru na 4MHz (tedy díra je asi 350μs, běh se 2x <o:p></o:p></p><p class=MsoPlainText>>>> prodlouží).<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> -------<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> ; Timer0 management ; used for software serial Tx time ticks -<o:p></o:p></p><p class=MsoPlainText>>>> 60 micro sec per tick T0CON1_INI equ 0x51 ; T0CS FOSC/4; T0CKPS<o:p></o:p></p><p class=MsoPlainText>>>> 1:2; T0ASYNC not_synchronised; T0CON0_INI equ 0x80 ; T0OUTPS<o:p></o:p></p><p class=MsoPlainText>>>> 1:1; T0EN enabled; T016BIT 8-bit; TMR0H_INI equ 0x3B ; in 8 bit<o:p></o:p></p><p class=MsoPlainText>>>> mode the TMR0H is compared same as<o:p></o:p></p><p class=MsoPlainText>>>> timer2 0x3B = 59 = LN baud rate<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> PIE0_INI equ 0x20 ; Enable TMR0 interrupt.<o:p></o:p></p><p class=MsoPlainText>>>> PIE1_INI equ 0x00 ; none used<o:p></o:p></p><p class=MsoPlainText>>>> PIE2_INI equ 0x00 ; none used<o:p></o:p></p><p class=MsoPlainText>>>> PIE3_INI equ 0x00 ; none used<o:p></o:p></p><p class=MsoPlainText>>>> PIE4_INI equ 0x00 ; none used<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> INTC_INI equ 0xC0 ; GIE enable, PIE enable<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> PSECT resetVec,class=CODE,delta=2,abs<o:p></o:p></p><p class=MsoPlainText>>>> resetVec:<o:p></o:p></p><p class=MsoPlainText>>>> PowerUp:<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> clrf INTCON ; Disable all interrupts<o:p></o:p></p><p class=MsoPlainText>>>> clrf PCLATH ; Tables on page 0<o:p></o:p></p><p class=MsoPlainText>>>> ;clrf STATUS ; reset flags<o:p></o:p></p><p class=MsoPlainText>>>> goto START<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> PSECT isrVec,class=CODE,delta=2<o:p></o:p></p><p class=MsoPlainText>>>> isr:<o:p></o:p></p><p class=MsoPlainText>>>> Interrupt:<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> movlb 0 ; BANK 0<o:p></o:p></p><p class=MsoPlainText>>>> bsf LATA,0<o:p></o:p></p><p class=MsoPlainText>>>> nop<o:p></o:p></p><p class=MsoPlainText>>>> bcf LATA,0<o:p></o:p></p><p class=MsoPlainText>>>> nop<o:p></o:p></p><p class=MsoPlainText>>>> bsf LATA,0<o:p></o:p></p><p class=MsoPlainText>>>> BANKSEL PIR4 ; BANK 14<o:p></o:p></p><p class=MsoPlainText>>>> bcf TMR0IF ; clear timer overflow<o:p></o:p></p><p class=MsoPlainText>>>> retfie<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> START:<o:p></o:p></p><p class=MsoPlainText>>>> (...tady je miliarda přiřazení *_INI do správných registrů ...)<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> movlw INTC_INI ; GIE enable, PEIE enable<o:p></o:p></p><p class=MsoPlainText>>>> movwf INTCON<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> movlb 0 ; BANK 0<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> testloop:<o:p></o:p></p><p class=MsoPlainText>>>> bsf LATA,1<o:p></o:p></p><p class=MsoPlainText>>>> nop<o:p></o:p></p><p class=MsoPlainText>>>> bcf LATA,1<o:p></o:p></p><p class=MsoPlainText>>>> goto testloop<o:p></o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>><o:p> </o:p></p><p class=MsoPlainText>>>> Dne 01.04.2024 v 13:46 Miroslav Draxal napsal(a):<o:p></o:p></p><p class=MsoPlainText>>>>> Dobrý den,<o:p></o:p></p><p class=MsoPlainText>>>>> Pozor na to, PICi si při přerušení ukládají registry soft, ne hw.<o:p></o:p></p><p class=MsoPlainText>>>>> Kolikrát ta obsluha toho uložení registrů je docela časově náročná.<o:p></o:p></p><p class=MsoPlainText>>>>> Standardně se ukládá<o:p></o:p></p><p class=MsoPlainText>>>>> STATUS<o:p></o:p></p><p class=MsoPlainText>>>>> WREG<o:p></o:p></p><p class=MsoPlainText>>>>> BSR<o:p></o:p></p><p class=MsoPlainText>>>>> Pokud se někde v používájí FSRx registry, a v přerušení Se používají<o:p></o:p></p><p class=MsoPlainText>>>>> také, potom se i ty ukládají<o:p></o:p></p><p class=MsoPlainText>>>>> FSR1<o:p></o:p></p><p class=MsoPlainText>>>>> FSR1H<o:p></o:p></p><p class=MsoPlainText>>>>> FSR2<o:p></o:p></p><p class=MsoPlainText>>>>> FSR2H<o:p></o:p></p><p class=MsoPlainText>>>>><o:p> </o:p></p><p class=MsoPlainText>>>>> A můžou se ukládat i další. Při ukončení přerušení se zase registry<o:p></o:p></p><p class=MsoPlainText>>>>> obnovují. Tudíž je tam nějaká režie a prodleva, než se přerušení<o:p></o:p></p><p class=MsoPlainText>>>>> dostane na příslušnou obsluhu. Takže pokud by docházelo k velmi<o:p></o:p></p><p class=MsoPlainText>>>>> častému přerušení, může se i občas nějaké ztratit.<o:p></o:p></p><p class=MsoPlainText>>>>><o:p> </o:p></p><p class=MsoPlainText>>>>> A ještě jedna věc, na kterou se zapomíná.<o:p></o:p></p><p class=MsoPlainText>>>>> Novější procesory umí ukládat STATUS, WREG, BSR v režimu FAST. Nebudu<o:p></o:p></p><p class=MsoPlainText>>>>> vypisovat podrobnosti, nakoukněte do *-.pdf konkrétního PICu, jestli<o:p></o:p></p><p class=MsoPlainText>>>>> umí. Ovšem pozor, pokud odlaďujete program třeba s ICDx, potom tyto<o:p></o:p></p><p class=MsoPlainText>>>>> FAST rutiny využívá ICDx. Pokud pak natvrdo pustíte program v<o:p></o:p></p><p class=MsoPlainText>>>>> samotném PICu, tyto rutiny většinou potom používá přerušení s vysokou<o:p></o:p></p><p class=MsoPlainText>>>>> prioritou. Takže časování je následně o něco rychlejší než při ladění<o:p></o:p></p><p class=MsoPlainText>>>>> HW prostředky.<o:p></o:p></p><p class=MsoPlainText>>>>><o:p> </o:p></p><p class=MsoPlainText>>>>> Nahoďte při jaké příležitosti se seká, jestli je to při periodickém<o:p></o:p></p><p class=MsoPlainText>>>>> přerušení (např. od TMRx), nebo něčeho externího. Třeba nás něco <o:p></o:p></p><p class=MsoPlainText>>>>> napadne.<o:p></o:p></p><p class=MsoPlainText>>>>><o:p> </o:p></p><p class=MsoPlainText>>>>> Míra<o:p></o:p></p><p class=MsoPlainText>>>>><o:p> </o:p></p><p class=MsoPlainText>>>>> -----Original Message-----<o:p></o:p></p><p class=MsoPlainText>>>>> From: Hw-list [mailto:hw-list-bounces@list.hw.cz] On Behalf Of<o:p></o:p></p><p class=MsoPlainText>>>>> Jindrich Fucik<o:p></o:p></p><p class=MsoPlainText>>>>> Sent: Monday, April 1, 2024 12:09 PM<o:p></o:p></p><p class=MsoPlainText>>>>> To: HW-news<o:p></o:p></p><p class=MsoPlainText>>>>> Subject: defektní PIC16F18015<o:p></o:p></p><p class=MsoPlainText>>>>><o:p> </o:p></p><p class=MsoPlainText>>>>> Ahoj,<o:p></o:p></p><p class=MsoPlainText>>>>><o:p> </o:p></p><p class=MsoPlainText>>>>> občas si tu někdo hraje s těmito typy procesorů. Narazil jsem na<o:p></o:p></p><p class=MsoPlainText>>>>> jeden defektní kus. Bohužel to byl ten, kterej jsem si odvezl na<o:p></o:p></p><p class=MsoPlainText>>>>> velikonoce a nemám tu náhradu.<o:p></o:p></p><p class=MsoPlainText>>>>> Projevuje se tak, že při vyvolání přerušení se procesor na cca 350 μs<o:p></o:p></p><p class=MsoPlainText>>>>> zasekne. jak to tak bývá, tak mi trvalo dva dny zjistit, co se děje a<o:p></o:p></p><p class=MsoPlainText>>>>> proč se nemohu dopočítat času nějaké události.<o:p></o:p></p><p class=MsoPlainText>>>>><o:p> </o:p></p><p class=MsoPlainText>>>>> Tak třeba se někomu tato informace bude hodit. Nebo možná někdo ví o<o:p></o:p></p><p class=MsoPlainText>>>>> něčem, co jsem špatně nastavil a může mi to říci.<o:p></o:p></p><p class=MsoPlainText>_______________________________________________<o:p></o:p></p><p class=MsoPlainText>HW-list mailing list - sponsored by www.HW.cz<o:p></o:p></p><p class=MsoPlainText>Hw-list@list.hw.cz<o:p></o:p></p><p class=MsoPlainText>http://list.hw.cz/mailman/listinfo/hw-list<o:p></o:p></p></div></body></html>