ORG $8100

v1   	DC.B 1,4,5,6,4
v2     DC.B 0,5,7,2,8
v3     DS.B 5



START  LEA     v1,A1
       LEA     V2,A2
       LEA     V3,A3
       MOVE.B  #5,D0	
LOOP   MOVE.B  (A1)+,D1
       MOVE.B  (A2)+,D2   	
       CMP.B   D2,D1
       BGT     UNO
       MOVE.B  D2,(A3)+
       BRA NEXT
UNO    MOVE.B  D1,(A3)+
NEXT   ADD.B   #-1,D0
       BNE LOOP     
 	   STOP	#$00
	   END	START






    








*~Font name~Courier New~
*~Font size~18~
*~Tab type~1~
*~Tab size~4~