* programma om de leds op het windmeterbordje te testen (versie 4)
* dit programma test ook of de Hall sensor pulsen afgeeft.

doab	equ	$1204		Data Out AB register van de PSD
dab	equ	$1206		Direction AB register van de PSD
	
	org	$2000
	ldaa	#$10
	staa	$1021		zorg ervoor dat IC1F 1 wordt bij een opgaande flank op PA2
	ldx	#$ff0f
	stx	dab		PPA0 t/m PPA7, PPB0 t/m PPB3 output, PPB4 t/m PPB7 input
lus	ldx	#%0101010100000101
	stx	doab		PPA0, PPA2, PPA4, PPA6, PPB0 en PPB2 aan rest uit
	jsr	wacht
	ldx	#%1010101000001010
	stx	doab		PPA0, PPA2, PPA4, PPA6, PPB0 en PPB2 uit rest aan
	jsr	wacht
	bra	lus

wacht	ldab	$1023		
	andb	#%00000100
	beq	wacht		wacht tot IC1F == 1
	ldab	#%00000100
	stab	$1023		maak IC1F 0 (door er een 1 naar toe te schrijven)
	rts