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

 opt a+,o+,p+,o1+,o2+ 
 
 Move.L	4(Sp),Adr
 Add.L	#1000,Adr
 
 Moveq.w #25-1,Y 	; boucle Y
 
 LoopY:	Moveq.W	#39-1,X 
 	
 Move.B	-1(Adr),SaveC 
 LoopX:	Move.B	-2(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! that's all folks !!! "
 dc.b "HY! that's all folks !!! "
 dc.b "HY! that's all folks !!! "