; inversion par y'oy

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

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

 ;lea	ex,a0
 
 testdo:	
 
 	move.w	#20-1,d1		; invert 
 	move.l	a0,a1
 	move.l	a0,a2
 	add.l	#40,a2
 swap:	move.b	-(a2),d2	; fin de ligne 
 	move.b	(a1),(a2) 
 	move.b	d2,(a1)+
 	dbra	d1,swap 
 	
 	move.l	d0,-(sp)
 	move.w	#40-1,d0
 invert:
 	move.b	(a0),d7 
 	btst	#0,d7 
 	seq	d1
 	btst	#1,d7 
 	seq	d2
 	btst	#2,d7 
 	seq	d3
 	btst	#3,d7 
 	seq	d4
 	btst	#4,d7 
 	seq	d5
 	btst	#5,d7 
 	seq	d6 
 	and.b	#%1,d2
 	and.b	#%10,d1
 	and.b	#%100,d4
 	and.b	#%1000,d3
 	and.b	#%10000,d6
 	and.b	#%100000,d5
 	or.b	d6,d1
 	or.b	d5,d1
 	or.b	d4,d1
 	or.b	d3,d1
 	or.b	d2,d1
 	move.b	d1,(a0)+ 
 dbra	d0,invert
 	move.l	(sp)+,d0
 	
 	dbra	d0,testdo  
 	
 	
 	
 
	
 rts

 ex:
 ;rept 25*4
 ;dc.b "ABCDEFGHIJ"
 ;endr 
 
 ds.b 1000