Postat: 24 januari 2006, 15:10:29
Är dom lika då 877A och min870?
Svenskt forum för elektroniksnack.
https://elektronikforumet.com/forum/
Kod: Markera allt
;**********************************************************************
; Enkelt blink-a-led, 16F870. *
; *
;**********************************************************************
; Files required: P16F870.INC *
; 16F870.LNK *
; *
;**********************************************************************
list p=16f870
#include <p16f870.inc>
__CONFIG _CP_OFF & _DEBUG_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _HS_OSC & _LVP_OFF & _CPD_OFF & _WRT_ENABLE_OFF
RESET_VECTOR CODE 0x000 ; processor reset vector
goto start ; go to beginning of program
INT_VECTOR CODE 0x004 ; interrupt vector location
goto isr_routine ; goto main interrupt service routine.
MAIN CODE
start
banksel adcon1
movlw h'06'
movwf adcon1 ; Stäng av ADC.
banksel trisa
clrf trisa
clrf trisb
clrf trisc ; Alla pinnar = utgångar.
banksel t1con
movlw b'00110001'
movwf t1con ; Se datablad...
banksel pie1
movlw b'00000001'
movwf pie1 ; Enable avbrott från TMR1.
banksel intcon
bsf intcon, peie
bsf intcon, gie ; Enable avbrott...
loop
goto loop ; Vänta på avbrott...
ISR_ROUTINE CODE
isr_routine
banksel portb
comf portb ; Blinka !!
banksel pir1
bcf pir1, tmr1if ; clear avbrotts flagga.
retfie
END