;	gpasm -a inhx8m delay1.asm
;	Port 2 ON/OFF
;	DB Henrik Kressner

;	Delay with timer0

processor	10F322
include		p10f322.inc

	__CONFIG _WDTE_OFF & _FOSC_INTOSC

	org	H'00'  	; Reset vector
	goto	setup

	org	H'05'
setup	clrf    ANSELA          ; All ports are digital I/O
	movlw	B'11111011'
	movwf	TRISA		; Port 2 is output
	movlw	B'00000111'	; Fosc/4 and PSA and 1:256
	movwf	OPTION_REG	; Prescaler settings

run	bcf     PORTA, RA2	; Port2 off
	call	delay
	bsf     PORTA, RA2	; Port2 on
	call	delay
	goto	run

delay	movlw	0x00
	movwf	TMR0		; Reset timer0
	bcf     INTCON, TMR0IF	; Enable timer1
l1	btfss   INTCON, TMR0IF	; Timer overflow ?
	goto	l1
	return

	end