;	Automatisk Blinker med kodet delay

;	gpasm -a inhx32 blink2.asm

errorlevel -302

	processor       16f1509
	include         p16f1509.inc


i	org 0x70

	__CONFIG _CONFIG1, _FOSC_INTOSC & _WDTE_OFF
	__CONFIG _CONFIG2, _LVP_ON

	ORG	0
	goto	init

	org	05
init:	;banksel	TRISA	; Its a must!
	movlb	1		; Eller denne i stedet for banksel TRISA
	CLRF	TRISA
	banksel	ANSELC          ; Its a must!
	CLRF	ANSELC
	banksel ANSELC          ; Its a must!
	CLRF	TRISC
	banksel	OSCCON		; Oscilator frq
	movlw	B'00000011'
	movwf	OSCCON

start:	banksel	PORTA
	bsf     PORTA, RA2
	call	delay
	bcf     PORTA, RA2
	call	delay
	goto	start

delay:	movlw	0xff
	movwf	i
l2:	decfsz	i
	goto	l2
	return

	end