Program basic PIC ptr aprins /stins LED

[Craciun]

16F628 simplu

[Kreator]

Program pt intreruperi TMR1 pt PIC628 setat pe oscilator intern 4 MHz, frecventa intreruperilor 2Hz

'--- CONFIGURARE REGISTRI ---
AllDigital  'PORTURI DIGITALE, COMPARATOR OFF
TRISA = 0  'PORTUL A = IESIRE
TRISB = 0  'PORTUL B = IESIRE
PORTA = 0  'PORTUL A = 0
PORTB = 0  'PORTUL B = 0

'--- SETARI REGISTRU TIMER1 (T1CON)
'- timer1 prescaler = 8 (1:1)
T1CON.T1CKPS1 = 1  'Bit 5  Prescaler Rate Select bits
T1CON.T1CKPS0 = 1  'Bit 4 Prescaler Rate Select bits
T1CON.T1OSCEN = 1  'Bit 3 timer1 oscillator Enable control Bit 1 = On
T1CON.NOT_T1SYNC = 0  'Bit 2 Timer1 External Clock Input Synchronization Control Bit...1 = Do Not synchronize external clock Input
T1CON.TMR1CS = 0  'Bit 1 timer1 clock source Select Bit...0 = internal clock(fosc / 4)
T1CON.TMR1ON = 1  'Bit 0 enables timer

'STABILIREA FRECVENTEI INTRERUPERILOR
'Tmr1 preset = 3036
'freq = 2.00 hz - period = 0.500000 seconds
TMR1H = 11  'preset For timer1 MSB register
TMR1L = 220  'preset For timer1 LSB register


'SETARE REGISTRU INTERRUPT
INTCON = 0  'clear the interrpt control register
INTCON.T0IE = 0  'bit5 TMR0 overflow Interrupt Enable Bit...0 = disables the TMR0 Interrupt
PIR1.TMR1IF = 0  'clear timer1 interupt flag TMR1IF
PIE1.TMR1IE = 1  'Enable Timer1 interrupts
INTCON.T0IF = 0  'bit2 clear timer 0 Interrupt flag
INTCON.GIE = 1  'bit7 global Interrupt Enable
INTCON.PEIE = 1  'bit6 Peripheral Interrupt Enable Bit...1 = Enables all unmasked peripheral interrupts



loop:
Goto loop

End                                               

On Interrupt  'RUTINA INTERRUPT
Save System
'INCEPUT INTRUCTIUNI CE SE EXECUTA
PORTA.1 = Not PORTA.1
PORTA.2 = Not PORTA.1
'SFARSIT INTRUCTIUNI CE SE EXECUTA

'REINITIALIZAREA FLAGULUI TMR1IF
PIR1.TMR1IF = 0

Resume         

Configurarea bitilor WORD

Editat Noiembrie 12, 2017 de Kreator

[Craciun]

Salut,

 

Din pacate nu functioneaza, se opreste dupa timpul aratat in imagine si nu aprinde nici un LED. Am stat si mult timp cu simulatorul ca merge incet.

[Kreator]

Curios. La mine merge OK! Stinge si aprinde pe rand RA1 si RA2. Ati setat configuration word dupa cum e la mine? Rate e pe ultimate?

[Craciun]

In cat timp ruleaza? Am setat tot.

[Kreator]

cam 2 secunde intre cicluri.

[Craciun]

Am generrat si config word ca nu il generasem, dar se misca foarte lent stau de 5 min si nu aprinde nimic....

[Kreator]

Ati setat rate pe ultimate?

[Craciun]

da

am instalat si ultima versiune 7.43 si nimic

la config bit mie nu imi apare jos si config word2

stai putin, tu ai asteptat pana la 699ms, ca la mine dureaza extrem de mult, eu n-am asteptat atat...

gata l-am dibuit , trebuia debifat trackingul de basic compiler . Acum merge ok. Multumesc foarte mult de ajutor!

Toate cele bune

 

KR/ Daniel

Editat Noiembrie 12, 2017 de craciun

[Kreator]

OK!

Spor la programat, si cat mai multe PIC-uri scrise!

[Craciun]

Mersi mult!