Zitat:
;
NAME: Flash Led for PIC 12F675
list P=12F675
include "P12F629.inc"
nolist
__config _CP_OFF & _WDT_OFF & _PWRTE_ON & _MCLRE_OFF & _INTRC_OSC_NOCLKOUT
#define _DTT1 GPIO,0
#define _CKT2 GPIO,1
#define _T3 GPIO,2
#define _RNG GPIO,3
#define _INT GPIO,4
#define _RL GPIO,5
org 0x0000
call Init
;-----------------------------------------------------------------------------
Haupt
MOVLW b'00000011'
MOVWF GPIO
call DELAY100MS
call DELAY100MS
call DELAY100MS
call DELAY100MS
call DELAY100MS
MOVLW b'00000000'
MOVWF GPIO
call DELAY100MS
call DELAY100MS
call DELAY100MS
call DELAY100MS
call DELAY100MS
goto Haupt
;-----------------------------------------------------------------------------
DELAY100MS
bcf INTCON,T0IF
MOVLW D'255'
MOVWF TMR0
;BTFSS INTCON,T0IF
;goto $-1
return
;-----------------------------------------------------------------------------
Init clrf GPIO
bsf STATUS,RP0
call 0x3FF
movwf OSCCAL
bcf OPTION_REG,7
movlw B'11111100'
movwf TRISIO
bcf STATUS,RP0
movlw 7
movwf CMCON
return
;-----------------------------------------------------------------------------
end