*
*	Simple program to get the LED blinking on a BOTBoard 2
*	Tom Dickens  8/16/1998
*
*	Assumes an 'E1 or 'A1 device. 
*	Change $B600 to $F800 for 'E2
*
	ORG $B600
*
*	set up port D for controlled output
*
	ldaa	#$07
	staa	$1028	; disable SPI and not wired-OR mode
	ldaa	#$08
	staa	$1009	; data direction for port D
*
*	The Loop
*
Top:	ldaa	#$08
	staa	$1008	; Turn LED on
	bsr	Delay
	ldaa	#$00
	staa	$1008	; Turn LED off
	bsr	Delay
	bra	Top

Delay:
	pshx
	ldx	#$0000
LoopX:
	dex
	bne	LoopX
	pulx
	rts