PIC16F877 - nejde ani blikání LED

[paulie2907]

Dobrý den,

po nějaké době jsem opět narazil na zcestí. Nejde mi udělat ani blikač s PIC16F877. Nejde o blikač, ale na každé desce dělám kontrolní ledku se kterou testuju všechny funkce.

Pro jistotu jsem vzal jiné IO a zkusil na kontaktním nepájivém poli a hle, stejný výsledek i s RC tak XT oscilátorem. Ledka nezabliká - myslím, že mám nějakou botu v programu, jinak si to nedokážu vyložit. Jsem C++kař, ale dělám to v Assembleru, pro mě občas nepochopitelný jazyk .

Programátor používám PRESTO a samosebou HPV programování - proběhne bez jediné chyby.

[ST78]

Hluboce jsem to nestudoval, ale před hlavní smyčkou je přepnuto na jinou banku a už se to nevrátilo zpět...
Zkus si prověřit Banky

[procesor]

Rád by som videl preklad (listing) xxxx.lst toho xxxx.asm

Možno používaš prekladač, ktorý nepotrebuje aspoň jednu medzeru pred inštrukciou. Moje všetky bežné prekladače text na začiatku riadku považujú za návestie.
edit:
Pozná to aj tak zapísané....
V tom bankovaní bude pes.

[frpr666]

co furt mají všichni s tím assemblerem? Předpokládám, že stejný cíl lze dosáhnout C překladačem, který je zdarma.
Jinak radím maximálně zjednodušit program a vyhnout se věcem jako CALL WAIT_200 50x za sebou.

Nedává se na začátek něco takového?

[Tranzistor]

Asembler je v silných rukách šikovná vec.


A pozri si register ANSEL a ANSELH v Datasheete Jeho stav po resete a čo ma na starosti a hneď ti to dôjde.

[petrfilipi]

Tak takhle mi přeložil pokusné blikání MikroPascal (frekvence je 4MHz) :

; LST file generated by mikroListExporter - v.2.0
; Date/Time: 15.8.2016 13:23:34
;----------------------------------------------

;Address Opcode ASM
0x0000 0x2803 GOTO 3
_main:
;LedBlinking.mpas,27 :: begin
;LedBlinking.mpas,29 :: TRISA := 0; // set direction to be output
0x0003 0x1683 BSF STATUS, 5
0x0004 0x1303 BCF STATUS, 6
0x0005 0x0185 CLRF TRISA
;LedBlinking.mpas,31 :: while TRUE do
L__main2:
;LedBlinking.mpas,34 :: PortA := 0x00; // Turn OFF LEDs on PORTE
0x0006 0x1283 BCF STATUS, 5
0x0007 0x0185 CLRF PORTA
;LedBlinking.mpas,35 :: Delay_ms(1000); // 1 second delay
0x0008 0x3006 MOVLW 6
0x0009 0x00FB MOVWF R11
0x000A 0x3013 MOVLW 19
0x000B 0x00FC MOVWF R12
0x000C 0x30AD MOVLW 173
0x000D 0x00FD MOVWF R13
L__main6:
0x000E 0x0BFD DECFSZ R13, 1
0x000F 0x280E GOTO L__main6
0x0010 0x0BFC DECFSZ R12, 1
0x0011 0x280E GOTO L__main6
0x0012 0x0BFB DECFSZ R11, 1
0x0013 0x280E GOTO L__main6
0x0014 0x0000 NOP
0x0015 0x0000 NOP
;LedBlinking.mpas,37 :: PortA := 0xFF; // Turn ON LEDs on PORTE
0x0016 0x30FF MOVLW 255
0x0017 0x0085 MOVWF PORTA
;LedBlinking.mpas,38 :: Delay_ms(1000); // 1 second delay
0x0018 0x3006 MOVLW 6
0x0019 0x00FB MOVWF R11
0x001A 0x3013 MOVLW 19
0x001B 0x00FC MOVWF R12
0x001C 0x30AD MOVLW 173
0x001D 0x00FD MOVWF R13
L__main7:
0x001E 0x0BFD DECFSZ R13, 1
0x001F 0x281E GOTO L__main7
0x0020 0x0BFC DECFSZ R12, 1
0x0021 0x281E GOTO L__main7
0x0022 0x0BFB DECFSZ R11, 1
0x0023 0x281E GOTO L__main7
0x0024 0x0000 NOP
0x0025 0x0000 NOP
;LedBlinking.mpas,39 :: end; // Endless loop
0x0026 0x2806 GOTO L__main2
;LedBlinking.mpas,40 :: end.
L_end_main:
0x0027 0x2827 GOTO $+0
; end of _main
Symbol List:
//** Routines locations **
//ADDRESS SIZE PROCEDURE
//----------------------------------------------
0x0003 [37] _main
//** Variables locations **
//ADDRESS SIZE VARIABLE
//----------------------------------------------
0x0005 [1] PORTA
0x0070 [1] R0
0x0071 [1] R1
0x0072 [1] R2
0x0073 [1] R3
0x0074 [1] R4
0x0075 [1] R5
0x0076 [1] R6
0x0077 [1] R7
0x0078 [1] R8
0x0079 [1] R9
0x007A [1] R10
0x007B [1] R11
0x007C [1] R12
0x007D [1] R13
0x007E [1] R14
0x007F [1] R15
0x0085 [1] TRISA
//** Label List: **
//----------------------------------------------
L_end__main
L__main1
L__main2
L__main3
L__main4
L__main5
L__main6
L__main7
L_end_main
_main

[Habesan]

Ale tohle je assemblerový kód, který vznikl během překladu pascalového kódu.

To jste se ve škole neučili: "preprocesor, kompiler, assembler, linker..." ???
(Asi poslední příležitost, kdy člověk ty pojmy použije.)

[petrfilipi]

No já jsem si myslel, že zadavatel původního příspěvku chce assembler. Proto jsem použil výpis, kde má jak zdrojový kód (řádky se znakem ; na začátku), tak i přeložené příkazy MikroPascalu do assembleru (časové smyčky 1s jsou vypočítání pro krystal 4MHz).

PF

[Rako]

Program nefunguje hlavne preto že pred vstupom do hlavnej slučky MAIN je
nastavená banka1 ale pracovné registre CISLO a CISLOA su v banke 0.
Takže treba nakoniec inicializácie vložiť príkaz BANKSEL CISLO.
Ďalej chýba vstupný bod programu. To vo finále môže byť chyba ale nemusí,
v závislosti od prekladača. Doplnil by som teda následujúcu sekvenciu príkazov.

ORG 0H
GOTO INIT
ORG 4H
NOP


Opravený, plne funkčný program v prílohe.