;       ***************************
;         Test blinker for print
;       ***************************

;       gpasm -a inhx8m blink4.asm
;       Skifter RA2 ON/OFF

processor       10F322
include         p10f322.inc


        __CONFIG _WDTE_OFF & _FOSC_INTOSC


; variables in ram
i               org	0x40
; h		org	0x41
; j		org	0x42

        org     H'00'  ; Reset vector
        goto    setup

        org     0x06
setup   movlw   B'00000111'
        movwf   ANSELA          ; Port 2 er A/D
        movlw   B'00000000'     ; Port 2 er tristate.
        movwf   TRISA
	; Init	timer
        movlw   B'00000111'     ; Fosc/4 and PSA and 1:256
        movwf   OPTION_REG      ; Prescaler settings


run	
	bsf	PORTA,RA2
	call	pause
	bcf	PORTA,RA2
	call	pause
	goto	run

pause   movlw   0x7		; 0x07 giver ca 1Hz  :  0x01 giver ca 15 Hz
        movwf   i		; Samme som:	movwf	0x40
l3      call    delay
        decfsz  i,1
        goto    l3
        return


delay   clrf    TMR0
        bcf     INTCON, TMR0IF  ; Enable timer1
l1      btfss   INTCON, TMR0IF  ; Timer overflow ?
        goto    l1
        return


	end