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

 move.l 4(sp),a0	; adr
 moveq.w #9,d0
 testdo:	
 	tst.l (a0)+
 	bne.s notempt
	dbra d0,testdo
	
 empt: clr.l d0
 rts
	
 notempt:
 st.b d0
 ext.w d0
 ext.l d0
 rts