;Blank12F629.asm
	;Program will flash 5 LEDs  3-8-2006 


	list	p=12F629
	radix	dec
	include	"p12f629.inc"

	__CONFIG	_MCLRE_OFF & _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT  ;Internal osc.

	
			; globals
aaaa	equ 	20h	;this is the first available file
bbbb	equ 	21h
ccc		equ 	22h
ddd		equ 	23h
eee		equ 	24h
fff		equ	25h

fileA	equ		26h
fileB	equ		27h	
fileC	equ		28h	

filezz	equ		5Fh	;this is the last available file

status		equ	03h
option_reg	equ 	81h


				; bits on GPIO
				
pin7		equ	0	;GP0  
pin6	 	equ	1	;GP1
pin5		equ	2	;GP2
pin4		equ	3	;GP3 input only
pin3		equ	4	;GP4 
pin2		equ	5	;GP5 


				;bits
				
rp0		equ	5	
		

Start	org	0x00		;program starts at location 000
		nop
		nop
		nop
		nop		;NOPs to get past reset vector address
		nop
		nop




SetUp	bsf	status, rp0 	;Bank 1	
		movlw	b'10000110'	;Turn off T0CKI, prescale for TMR0 = 1:128
		movwf	option_reg
        movlw   07h         ;Set up W to turn off Comparator ports
        movwf   CMCON    
		movlw	b'00001000'	;Set GP0,1,2,4,5, as output
		movwf	TRISIO	    ;enable outputs	
		bcf	status, rp0		;bank 0           
		clrf 	GPIO       	;Clear GPIO of junk		
		goto 	Main	
		
	
 
	
	;Delay 0.51 sec

Del_1	movlw 	02h
		movwf 	fileC	
DelX	decfsz 	fileA,1		; ,1 denotes the result of the decrement 
		goto 	DelX	
		decfsz 	fileB,1		;     is placed in the file	
		goto 	DelX
		decfsz 	fileC,1
		goto 	DelX
		retlw 	00
		
	
Main	movlw	0ffh
		movwf	GPIO
		call 	Del_1
		clrf	GPIO
		call 	Del_1
		goto 	Main

			;oscillator calibration


		call 	03ffh
		movwf	OSCCAL	
		

	end