opt a+,o+,p+,o1+,o2+
 
 move.l 4(sp),a0
 move.w #1000-1,d0 
 clr.w	d2
 
 tst:	cmp.b	#$3f,(a0)+
	bhi	error 
 	dbra	d0,tst
 
 clr.l d0
 rts
 
 error:	st.b d0
 	ext.w d0
 	ext.l d0
 	rts