; --------------------------------------------------------------------------------
; @Title: find the number of occurences of a data string
; @Description:
;   syntax: DO FINDN <range> <data> ...
;
;   return: number, or -1 if error
;
; @Author: REI
; @Copyright: (C) 1989-2014 Lauterbach GmbH, licensed for use with TRACE32(R) only
; --------------------------------------------------------------------------------
; $Id: findn.cmm 8581 2015-08-17 14:15:21Z wwbenayed $


LOCAL &count
LOCAL &address &data1 &data2 &data3 &data4 &data5 &data6 &data7

ENTRY &address &data1 &data2 &data3 &data4 &data5 &data6 &data7

ON ERROR JUMPTO
(
  print "error in search or syntax"
  ENDDO -1.
)

IF "&data7"!=""
(
  PRINT "too many data to search"
  ENDDO -1.
)

Data.Find &address &data1 &data2 &data3 &data4 &data5 &data6

IF !FOUND()
(
  PRINT "data not found"
  ENDDO 0.
)

&count=0.

WHILE FOUND()
(
  &count=&count+1.
  Data.Find
)

PRINT "data found " &count " times"

ENDDO &count