*
* EVEN.ASM
*
* Fetches switches.  If number of ones is even, lights LED 0.
* If odd, turns off LED 0.
*
* P. H. Anderson, Feb 1, '95, Not Checked.
**

	ORG $C000

	CLR $1007	configure
	LDAA $1003	fetch switches

	STAA $D000      switches now in $D000
	CLR $D001	0 is even.  None zero if odd.

	LDAA #$08
	STAA $D002	number of bits to examine

TOP

	BPL AROUND	if msb is zero
	INC $D001
        
AROUND        	
	DEC $D002
	BNE TOP

* done
	LDAA $D001
	ANDA #$01
	BEQ EVEN
	BRA ODD

EVEN
	LDAA #$01
	STAA $1004
	SWI

ODD
	CLR $1004
	SWI