opt a+,o+,p+,o1+,o2+
 
 move.l 4(sp),a0
 move.w #1000-1,d0 
 clr.w	d2
 
 tst:	tst.b	(a0)+
	beq	dont.add
	addi.w	#1,d2
	
 dont.add: dbra	d0,tst
 
 cmp.w	#500,d2
 bhi	black
 	
 white:	clr.l d0
 	rts
 black:	st.b d0
 	ext.w d0
 	ext.l d0