;	Automatisk Blinker med Timer0 delay

;	gpasm -a inhx32 blink3.asm


	processor       16f1509
	include         p16f1509.inc


	__CONFIG _CONFIG1, _FOSC_INTOSC & _WDTE_OFF
	__CONFIG _CONFIG2, _LVP_ON

	ORG	0
	goto	init

	org	05
init:	movlb	1		; Bank 1 TRISx og OSCCON er begge i bank 1
	clrf	TRISA
;	banksel	OSCCON
	movlw	B'01011011'	; Oscilator frq
	movwf	OSCCON

start:	banksel	PORTA		; Bank 0
	bsf     PORTA, RA2
	call	delay
	banksel	PORTA		; Bank 0
	bcf     PORTA, RA2
	call	delay
	goto	start


delay:	banksel	TMR0
	clrf	TMR0
        banksel OPTION_REG
	movlb	1
	movlw	B'00000111'	; Prescaler
	movwf	OPTION_REG
	bcf     INTCON, TMR0IF	;
	banksel	INTCON
l1:	btfss   INTCON, TMR0IF	; Timer overflow ?
	goto	l1
	return


	end