*
* Program NUM_ONES.ASM
*
* Inputs switches and displays number of 1's on discrete LEDs.
*
* 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	number of ones

	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
	STAA $1004	output the result

	SWI