;###################################
;## Interrput Example with Timer0 ##
;###################################

; GP5 as output, use timer0 for blinking
; by handling interrupt
; for switching diod is subroutine used
errorlevel -302 ; Turn off banking message
                ; known tested (good) code
                
;#########################
;## PROC DEFINITIONS	##
;#########################
;   Set User ID Memory
	__idlocs		0x55aa
;   Set configuration bits using definitions from the include file, p16f84.inc
	__config	_INTRC_OSC_NOCLKOUT & _WDT_OFF & _CP_OFF & _MCLRE_OFF
	
list p=12f629

; Include file, change directory if needed
include "p12f629.inc"


;#########################
;## PIN DEFINITIONS	##
;#########################
; GP5	OUT	LED1		(Active LOW)
; GP4
; GP3	INP			()
; GP2	I/O			()
; GP1	I/O			()
; GP0	I/O			()
LED1_P		EQU	b'100000'



; OUTPUTs
LED1	EQU	GP5


; INPUTs

;#########################
;## CONSTANTS		##
;#########################

;#########################
;## GLOBAL REGISTERS	##
;#########################
w_tmp		EQU	0x20			; Temp reg for W, in both banks (0x20 and 0xA0)
stat_tmp	EQU	0x21			; Temp reg for Status

;#########################
;## MACROS		##
;#########################
#define	PAGE0		bcf	STATUS,RP0	; [M] Switch to page 0 in RAM
#define PAGE1		bsf	STATUS,RP0	; [M] Switch to page 1 in RAM

;###################################################################################
;###################################################################################
;####			S	T	A	R	T			####
;###################################################################################
;###################################################################################
;Initialization of basic registers
Reset_vector	org	0x0000
	goto	Init
	
Irq_vector	org	0x0004
	; Save W and STATUS
	movwf	w_tmp		; saving W register to actual page
	movf	STATUS,W	; saving STATUS register to W	
	movwf	stat_tmp	; saving STATUS register from W to stat_tmp register

	; Check IRQ from timer 0
	btfss	PIR1,TMR1IF	; ** Do we have TMR0 overflow?
	goto	Irq_n1		; <NO> -> skip to label Irq_nl
	bcf		PIR1,TMR1IF	; <YES> -> Clear interrupt bit
	call 	Switch_diods

Irq_n1				; <N> No we don't have TMR0 interrupt
	; Restore W and STATUS
	movf	stat_tmp,W
	movwf	STATUS
	movf	w_tmp,W
	retfie			; return from interrupt

Init
; ##############
; Adjust osc calibration constant, read it from EEPROM

	PAGE1				; Set page 0
	call	0x3ff			
	movwf	OSCCAL			; Read osc calibration value and set it 
	PAGE0
	
	clrwdt				; Reset watchdog
;###############
; Set inputs/outputs
	PAGE1
	movlw	~(LED1_P)		; LED1 will be output
	movwf	TRISIO			; Set direction
; Set GPIO
	PAGE0
	movlw	0xff
	movwf	GPIO			; Turn off all leds

; Set comparators
	movlw 7					; Turn off all comparators
	movwf CMCON
	
;###############
; Set TIMER1
	PAGE0
	movlw	b'0'			; Init of TIMER1
	movwf	T1CON;

	PAGE1
	bsf PIE1, TMR1IE	; open interupt timer1

	PAGE0
	bcf	PIR1, TMR1IF			; erase flag of timer1

	bsf INTCON, PEIE
	
	bsf	INTCON,GIE		; Enable all interrupt
;#######################################
; MAIN LOOP
;#######################################
bsf T1CON, TMR1ON	;start TIMER1
	goto	$	

Switch_diods
	movlw 	LED1_P		; Flip led
	xorwf	GPIO
	return
	
	end