*20
/TITLE: DAN 1
/THIS PROGRAM IS THE VERY FIRST 
/PROGRAM THAT I WROTE FOR THE 
/LAB ASSIGNMENTS.  IT CALLS THE
/CONTENTS OF THE RIGHT CONSOLE
/SWITCHES INTO THE ACCUMULATOR
/AND COUNTS THE NUMBER OF BITS
/THAT ARE ON.  THIS NUMBER IS
/DISPLAYED IN BINARY IN THE
/ACCUMULATOR.  
	PMODE
	*0200
START,	CLA CLL
	DCA SUM
	LAS
SWAD,   CLL RAR
	SZL
	ISZ SUM
	SZA
	JMP SWAD
	TAD SUM
	HLT
	JMP START
SUM,	0000