;----------------------------------------------------------------- list p=12F509 #include __CONFIG _CP_OFF & _WDT_OFF & _MCLRE_OFF & _IntRC_OSC ;----------------------------------------------------------------- CBLOCK 09H Temp Temp1 Temp2 ENDC ;----------------------------------------------------------------- #define LED GPIO, 4 ;----------------------------------------------------------------- ORG 3FFH ORG 0x000 ;----------------------------------------------------------------- movwf OSCCAL bsf STATUS, PA0 clrw tris 6 bcf STATUS, PA0 clrf GPIO NEW call PAUSE bsf LED call PAUSE bcf LED goto NEW PAUSE movlw .85 movwf Temp movlw .138 movwf Temp1 movlw .3 movwf Temp2 wr decfsz Temp, f goto wr decfsz Temp1, f goto wr decfsz Temp2, f goto wr retlw 0 ;----------------------------------------------------------------- END