btc

|Count ones in the AC. Calling sequence: llr ., tra btc.

reloc
entry btc

btc,	ial
	add (tra-llr+2
	sto btx
	cla
	add un

lp,	ial-10		|ial and cyl
	trn un
	ial
	add (1640

dux,	trn lp
	add (-723
btx,	xx

un,	ial
	add (1641
	tra dux

const
start