[HWnews] program pro PIC

[Radek a Petra Vickovi]

Jak koukam na ten zdrojak tak pokud by doslo k preruseni je jedno odkud tak
by to skocilo na druhy radek a vynulovalo W hned na dalsim radku je prepis W
do TRISA jenze pokud nedoslo k prepnuti banky registru tak se zapise primo
do registru portu A a ten se vynuluje. Jsou to ale jen teorie.

#DEFINE LED PORTA,1
 BSF STATUS,RP0
 MOVLW B'00000000'
 MOVWF TRISA
 BCF STATUS,RP0
 BSF LED
 END

Zkusil jsem to prepsat tak aby to nejak blikalo - nemam uz silu dnes neco
vymejslet (LED pripojte na PORTA,7 tam bude blikani nejzretelnejsi):

	ORG 0x0
	goto start ;odskok na zacatek programu

	ORG 0x5
start
	clrf PORTB	;portb do 0
	clrf PORTA	;porta do 0

	movlw B'00000000'
	movwf INTCON		;GIE zakazano, vse dalsi take OFF

	movlw B'00000111'
	movwf CMCON		;komparatory off

	bsf STATUS,RP0	;banka 1
	clrf PIE1		;zakaze preruseni od periferii
	movlw B'11111111'
	movwf TRISB		;portb vse vstupy
	movlw B'00000000'
	movwf TRISA		;porta cely vystup RA4 vstup
	clrf TMR0		;vynuluju citac
	clrwdt		;vynuluju watchdog pred prepnutim
	movlw B'10100111'	;pripojen citac,delicka na 256
	movwf OPTION_REG	;pull-ups odpojeny, RB0/INT sestupna
	bcf STATUS,RP0		;banka 0

loop	incf PORTA,F	;postupne inkrementujeme registr takze nejvyssi bit bude
polovinu casu 0 a druhou 1
	nop			;pro vetsi efekt dame pauzy prodlouzi to tu smycku
	nop
	nop
	goto loop		;hop zpatky

Pokud to nebude chodit tak nevim - nemam chut to prohanet kompilatorem.

RadekCX

> -----Original Message-----
> From: hw-list-bounces@mailman.nethouse.cz
> [mailto:hw-list-bounces@mailman.nethouse.cz]On Behalf Of Danhard
> Sent: Thursday, April 01, 2004 12:51 AM
> To: [HWnews]
> Subject: Re: RE:[HWnews] program pro PIC
>
>
> Nojo, ale i osetrovani veci, ktere jsou uz osetreny resetem (viz tabulka
> registru) nema az tak prakticky vyznam, pokud neni mozne se do te
> startovaci
> rutiny dostat i jinak (coz je treba pri "preteceni" program citace).
> Takze je zapotrebi osetrit i konec programu (coz ten mladenec nema), jinak
> dela procesor NOPy, resp. ADDLW 0xff az se zase dostane k
> nejakemu "zradlu".
> PIC zastavit neumi :o)
>
> Danhard
>
> > No jasne melo tam by jeste (holt co neni v hlave...):
> >
> > ORG 0x0
> >
> > goto start ;odskok na zacatek programu
> >
> > ORG 0x5
> > start clrf PORTB ;portb do 0
> > clrf PORTA ;porta do 0
> > .
> > .
> > .
> > atd....
> >
> > RadekCX
>
>
> _______________________________________________
> HW-list mailing list  -  sponsored by www.HW.cz
> HW-list@mailman.nethouse.cz
> http://nethouse.cz/mailman/listinfo/hw-list
> ---
> Příchozí zpráva neobsahuje viry.
> Zkontrolováno antivirovým systémem AVG (http://www.grisoft.cz).
> Verze: 6.0.647 / Virová báze: 414 - datum vydání: 29.3.2004
>
---
Odchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft.cz).
Verze: 6.0.647 / Virová báze: 414 - datum vydání: 29.3.2004