50 lines
978 B
Plaintext
50 lines
978 B
Plaintext
; --------------------------------------------------------------------------------
|
|
; @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
|