* programma om de leds op het windmeterbordje te testen (versie 3)

doab	equ	$1204		Data Out AB register van de PSD
dab	equ	$1206		Direction AB register van de PSD
	
	org	$2000
	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	ldaa	#122		wacht 122 * 4.096 ms = (ongeveer) 0.5 sec 
nog	ldab	$1025
	andb	#%01000000
	beq	nog		wacht tot RTIF == 1
	ldab	#%01000000
	stab	$1025		maak RTIF 0 (door er een 1 naar toe te schrijven)
	deca			wacht 122 keer
	bne	nog
	rts