ORG $8100
X  EQU  5
v   	  DC.B 1,4,5,6,4
pos      DS.B 1



START	LEA     v,A0
       MOVE.B  #-1,D0
       MOVE.B  #0,D1	
WHILE  CMP.B   #5,D1
       BGE     FINE   	
       CMP.B   #-1,D0
       BNE     FINE
    	MOVE.B  (A0)+,D2
       CMP.B   #X,D2
       BNE    NEXT

      MOVE.B  D1,D0
NEXT   ADD.B   #1,D1
       BRA WHILE       
FINE   MOVE.B D0,pos

 		STOP	#$00
		END	START






    







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