Y:	equr d0
 SaveC:	equr d1
 Adr:	equr a0
 X:	equr d2

 opt a+,o+,p+,o1+,o2+ 
 
 Move.L	4(Sp),Adr
 
 Moveq.w #25-1,Y 	; boucle Y
 
 LoopY:	Moveq.W	#39-1,X 
 	
 Move.B	(Adr),SaveC 
 LoopX:	Move.B	1(Adr),(Adr)+
 	Dbra	X,LoopX
 Move.B	SaveC,(Adr)+
 
 
 Dbra	Y,LoopY
 
 RTS
 
 
 ex:
 
 ;rept 25
 ;dc.b "RETRY       0123456789+-*          STACK"
 ;endr
 ;dc.b "HY! thet's all folks !!! "
 ;dc.b "HY! thet's all folks !!! "
 ;dc.b "HY! thet's all folks !!! "