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

doa	equ	$1204		Data Out A register van de PSD
dob	equ	$1205		Data Out B register van de PSD
da	equ	$1206		Direction A register van de PSD
db	equ	$1207		Direction B register van de PSD
	
	org	$2000
	ldaa	#$ff
	staa	da		PPA0 t/m PPA7 output
	ldaa	#$0f
	staa	db		PPB0 t/m PPB3 output, PPB4 t/m PPB7 input (niet gebruikt)	
lus	ldaa	#%01010101
	staa	doa		PPA0, PPA2, PPA4 en PPA6 aan rest uit
	ldaa	#%00000101
	staa	dob		PPB0 en PPB2 aan rest uit
	jsr	wacht
	ldaa	#%10101010
	staa	doa		PPA0, PPA2, PPA4 en PPA6 uit rest aan
	ldaa	#%00001010
	staa	dob		PPB0 en PPB2 uit rest aan
	jsr	wacht
	bra	lus

wacht	ldx	#$ffff		wacht enige tijd
nog	dex
	bne	nog
	rts