;	***************************
;	Testprogram for pic-laderen
;	***************************

;	gpasm -a inhx8m blink3.asm
;	Skifter Port 2 ON/OFF

processor	10F322
include		p10f322.inc


	__CONFIG _WDTE_OFF & _FOSC_INTOSC



; variables in ram
		org	H'6F'
i		res	1
j		res	1

	ORG	H'00'  ; Reset vector
	GOTO	setup

; Pass interrupt vector
	ORG	H'05'

setup	MOVLW	B'01010000'	; 0111xxx -> Fosc = 16 Mhz
	MOVWF   OSCCON

	BSF	PORTA,B'00000001'
;	MOVLW	B'00000001'	; Port 1 ON
;        MOVWF   PORTA
	MOVLW	B'11111000'
	MOVWF	TRISA
        movlw   0x00
        call    delay
        movlw   0x00
        call    delay
        movlw   0x00
        call    delay
 	MOVLW   B'00000000'     ; Port 1 OFF
	MOVWF   PORTA
        movlw   0x00
        call    delay
        movlw   0x00
        call    delay
        movlw   0x00
        call    delay
 	GOTO	setup

delay		movwf	i		;1 us
		clrf	j		;1 us

dloop		decfsz	j, F		;(j-1) x 1 us + 2 us	(j==0 -> j=256)
		goto	dloop		;(j-1) x 2 us

		decfsz	i, F		;(i-1) x 1 us + 2 us
		goto	dloop		;(i-1) x 2 us

		return			;2 us

	end