opt a+,o+,p+,o1+,o2+

 move.l 4(sp),a0	; adr
 move.w #1000/4-1,d0
 testdo:	
 	not.l (a0)
 	and.l #$3F3F3F3F,(a0)+
	dbra d0,testdo
	
 rts

 ;ex:
 ;ds.b 1000