..::ASEMBLER PIC16F84::..

**gloom** · 26.02.2004, 10:55

Potřeboval bych pomoc s jednim program je to jednoduchý ale furt mi to hází chybky

a to na konci kdy testuju Carry

Kód:

subwf     portA
btfsc     Carry

někde v tomhle je zakopanej pes ale nevim... Když to pustim tak běží cykl čísel od 0 do F, ale když na dipu nastavim nějakou hodnotu DIp=portA tak to doběhne do konce a zhroutí se to

Původně odeslal Zadani

Sestavte program pro PIC16F84, ktery zobrazi na 7x Segmentovce
cissla od 0 do N diod, kde N je dano 4 bitovym cislem z DIPu

Kód:

;------------------------------------------------------------------
;	PREDDEFINOVANE REGISTRY
;------------------------------------------------------------------
RTCC	     equ		1h			;registr RTCC
Option_reg  equ		81h			; Option registr
PCL			equ		2h			;registr PCL &#40;pro BCL code&#41;
SWR		   equ		3h			;regist stavoveho slova
portA	    equ		5h			;port A
portB	    equ		6h			;port B

IntCon	   equ		0Bh			;registr pro preruseni
w		     equ		0h			;pracovni registr W
f		 	 equ		1h			;pomocny registr F
RTIF    	 equ 	  2h

#DEFINE	  Carry	SWR,0		;indikuje preteceni carry flag
#DEFINE	  Zero	 SWR,2		;indikuje nulu
#DEFINE     RP0	  SWR,5		    ;banka registru 0

;-----------------------------------------------------------------
;	PROMENNE
;-----------------------------------------------------------------
Krat 		 equ		8h			;pocet cyklu opakovani pro spozdeni
Citac       equ		10h		        ;adresa citace
Cislo       equ		11h			;adresa bunky se zobraz. cislem
Dip			equ		12h
;-----------------------------------------------------------------
;	OBSLUZNE PODPROGRAMS
;-----------------------------------------------------------------
			org		0	
			goto	Start		;skok na hlavni telo programu
;-------&#91;Zasobnik se zobrazovacem cisel na 7xSeg&#93;-----------------
Segment
			addwf	PCL,f		;soucet prg.count a cisla
			retlw   0C0h		;0
			retlw   0F9h		;1
			retlw   0A4h		;2
			retlw   0B0h		;3
			retlw   099h		;4
			retlw   092h		;5
			retlw   082h		;6
			retlw   0F8h		;7
			retlw   080h		;8
			retlw   090h		;9
			retlw   088h		;A
			retlw   083h		;B
			retlw   0C6h		;C
			retlw   0A1h		; D
			retlw   086h		;E
			retlw   08Eh		;F		
;-------&#91;Spozdeni generovane casovace bez preruseni&#93;--------------
Tdelay
         movwf   Citac
Tdel0
         clrf    RTCC
         bcf     IntCon,RTIF
Tdel1 
         btfss   IntCon,RTIF 
         goto    Tdel1
         decfsz  Citac,1
         goto    Tdel0
         return
;-----------------------------------------------------------------
;	HLAVNI KOD PROGRAMU
;-----------------------------------------------------------------
Start
		   bsf	  RP0			;prepne na banku registru 1
			movlw	b'11000111'	;nastavi fosc/4 do RTCC, 111 = 1&#58;256
			movwf	Option_reg	;presune do Option_reg
			clrf	 portB		;nastavi port pro vystup	
			bcf	  RP0			;prepne na banku registru 0
Opak	
			clrf	 Cislo		;nastavi pocatecni hodnotu cisla
Opak1
			movf	 Cislo,w		;prenos hodnoty v reg. Cislo -> w
			call	 Segment		;volani pro prevedeni cisla
			movwf	portB		;zobrazeni cisla na 7xSegment
			movlw	Krat		;nastaveni poctu cyklu
			call	 Tdelay		;volani spozdeni	
			incf	 Cislo,f		;inkrementace reg. Cislo o 1 
			movf	 Cislo,w		;predani hodnoty z reg. Cislo -> w
			movf	 portA,f		; nepouzivat pro testovani
;----------------------------------------------------------------
			subwf	portA		; result=f-w, jestlize &#40;result < 0&#41; pak Carry=0
			btfsc	Carry		; pokud je zaporne tak preskoci
			goto	 Opak1
			goto	 Opak		;pokud konec tak zpet do nuly
;-------&#91;Konec&#93;---------------------------------------------------
			end

**gloom** · 29.02.2004, 21:48

Nikdo neprogramujete v asembleru

**Rainbow** · 29.02.2004, 21:52

Programujeme obcas, ale nie PIC.

**mager** · 29.02.2004, 23:18

PIC neznam kdysi sem delal neco pro 51 a myslim ze s portem nemuzes provadet nic jineho nez cteni nebo zapis

takze pak by tohle by neslo

subwf portA

musel bys to napred precist do nakyho registru a pracovat s nim

ale nevim to urcite je to uz davno a byli to 51 a ne PIC.

**Rob** · 01.03.2004, 04:43

programuju jenom v x86 assembleru, vubec nevim co PIC je

**gloom** · 01.03.2004, 16:01

Původně odeslal mager

PIC neznam kdysi sem delal neco pro 51 a myslim ze s portem nemuzes provadet nic jineho nez cteni nebo zapis

takze pak by tohle by neslo

subwf portA

musel bys to napred precist do nakyho registru a pracovat s nim

ale nevim to urcite je to uz davno a byli to 51 a ne PIC.

Kód:

subwf portA

znamená odečte pracovní registr W od portA a pokud budou stejny takze bude 0 neb btfsc Carry testuje kdyz Carry 0 tak preskoci nasledujuci instrukci a kdyz 1 tak provede nasledujici

**jedik** · 01.03.2004, 16:35

PICe jsme prgali minuly rok a celkem zajimave

A co se matne pamatuju tak btfsc ma 2 parametry. Resp. nemelo by to byt ?

Kód:

btfsc Carry,0

**mager** · 01.03.2004, 19:28

Původně odeslal gloom

Původně odeslal mager

PIC neznam kdysi sem delal neco pro 51 a myslim ze s portem nemuzes provadet nic jineho nez cteni nebo zapis

takze pak by tohle by neslo

subwf portA

musel bys to napred precist do nakyho registru a pracovat s nim

ale nevim to urcite je to uz davno a byli to 51 a ne PIC.

Kód:

subwf portA

znamená odečte pracovní registr W od portA a pokud budou stejny takze bude 0 neb btfsc Carry testuje kdyz Carry 0 tak preskoci nasledujuci instrukci a kdyz 1 tak provede nasledujici

u 51 pokud si dobre pamatuju prave s pracovnim registrem brany neslo pracovat ale jen cist nebo zapisovat. ale jak rikam nevim to jiste a PIC sem nevidel ani z dalky.

**gloom** · 03.03.2004, 12:06

Původně odeslal jedik

PICe jsme prgali minuly rok a celkem zajimave

A co se matne pamatuju tak btfsc ma 2 parametry. Resp. nemelo by to byt ?

Kód:

btfsc Carry,0

Kód:

#DEFINE    Carry   SWR,0

[/quote]

**jedik** · 05.03.2004, 13:01

Původně odeslal gloom

Původně odeslal jedik

PICe jsme prgali minuly rok a celkem zajimave

A co se matne pamatuju tak btfsc ma 2 parametry. Resp. nemelo by to byt ?

Kód:

btfsc Carry,0

Kód:

#DEFINE    Carry   SWR,0

Aha sorry, ja to necet cele. Bohuzel k PICu uz nemam pristup takze neporadim

**Fox!MURDER** · 05.03.2004, 14:09

tyve co u pica znamena zhrouti se to ?
co to dela nebo nedela? co na to simulator?

Edit:

Kód:

         subwf   portA      ; result=f-w, jestlize &#40;result < 0&#41; pak Carry=0
         btfsc   Carry      ; pokud je zaporne tak preskoci
         goto    Opak1
         goto    Opak      ;pokud konec tak zpet do nuly

nemelo by carry bejt jedna kdyz to vyjde zaporne?(ja uz si to nepamatuju .. naposled jsem to delal pred 1/4 rokem)

**gloom** · 07.03.2004, 19:57

Původně odeslal Fox!MURDER

tyve co u pica znamena zhrouti se to ?
co to dela nebo nedela? co na to simulator?

simulator používám MPLAB@6.40 a probíhá dobře akorát že nedokáže načíst data s portuA a do pracovniho regustr W to hodí nějaký srač*y a zroutí se to

už se v tom hrabu podezřele dlouho a furt s tim nemůžu hnout

**Shox** · 07.03.2004, 20:11

Na www.hw.cz ti neporadi?

**kocourleo** · 25.03.2004, 15:33

To ti hlásí ten simulátor, nebo výsledný program nahraný v CPU? Ono to může být problém právě toho simulátoru, že nepodporuje dobře všechny instrukce toho CPU. Ve škole máme simulátor pro Motorolu HC11E09 a ten třeba neumí instrukci sečtení akumulátorů A a B, ikdyž je to běžná instrukce. Zato umí instrukci, která pracuje s indexregistrem X, která není popsaná v seznamu instrukcí pro tento typ CPU. Asi tak.

Téma: ..::ASEMBLER PIC16F84::..

Nástroje témat

Zobrazení

..::ASEMBLER PIC16F84::..

Informace o tématu

Users Browsing this Thread

Pravidla přispívání