; inversion par x'ox 

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

 move.l 4(sp),a0	; adr
 move.w #1000-1,d0

 ;lea	ex,a0
 testdo:	
 	move.b	(a0),d1
 	move.b	d1,d2
 	move.b	d1,d3
	and.b	#%000011,d1
	and.b	#%001100,d2
	and.b	#%110000,d3
	lsl.b	#4,d1
	lsr.b	#4,d3
	or.b	d2,d1
	or.b	d3,d1
	move.b	d1,(a0)+
	dbra d0,testdo
	
 rts

 ex:
 ;rept 1000
 ;dc.b %110101
 ;endr 
 
 ds.b 1000