LIST ;P=PIC12F675
NOLIST
#include <C:\PicProg2006\Include\p12f675.inc>
ORG 0 ;PIC's reset vector
BSF STATUS,RP0 ;Bank1
MOVWF OSCCAL ;Calibrate the Int RC osc
GOTO START ;Jump to START routine when boot
DELAY100MS BCF STATUS,RP0 ;Bank0
CLRW
MOVLW D'255'
MOVWF TMR0
;---------------------------------------------------------------------------------------
START CLRWDT ;Clear the watchdog a power up
MOVWF CMCON ;disable comparator
BSF STATUS,RP0 ;Bank1
MOVLW B'11111100' ;
MOVWF TRISIO ;GP0,GP1 = Outputs
CLRF ANSEL ;Digital I/O
LOOP BCF STATUS, RP0 ;Bank0
MOVLW B'11111100' ;
MOVWF GPIO ;GPIO0,GPIO1 = on
CALL DELAY100MS ;Wait for 100mS
CLRF GPIO ;Clear the LED
CALL DELAY100MS ;and wait again for 100mS
GOTO LOOP ;Do forever this loop....
END ;End of source code.
Lesezeichen