;*************************************
;WORLDS SIMPLEST PROGRAM             *
;  18-5-2010                         *
;                                    *
;************************************


	list	p=12F629
	radix	dec
	include	"p12f629.inc"
	
		
		
	__CONFIG	_MCLRE_OFF & _CP_OFF & _WDT_ON & _INTRC_OSC_NOCLKOUT  ;Internal osc.



;************************************
;Beginning of program
;************************************
		org		0x00
		bsf		status, rp0 	;bank 1		
		bcf		TRISIO,4		;GP4 output		
		movlw   b'00000111'     ;bit3=1=WDT  011= /8 WDT=18mSx8=0.144Sec
        movwf   option_reg     	;must be in bank 1
        bcf		status, rp0		;bank 0	
        movlw	b'00010000'		;to toggle GP4
		xorwf	GPIO,f
		sleep
		
		END
		
		
		change
		sleep
		to  
		goto    $
		
		change 
		
		movlw   b'00001011'
		movwf   option_reg
		 
		to
		
		movlw   b'00001111'
		movwf   option_reg
		
		to
		
		
		
		movlw   b'00000111'
		movwf   option_reg