38 lines
920 B
Plaintext
38 lines
920 B
Plaintext
; --------------------------------------------------------------------------------
|
|
; @Title: Example PRACTICE Library implementation
|
|
; @Description:
|
|
; This script shows how to create a script with library functions. See
|
|
; the script libtest.cmm on how the library functions are called.
|
|
;
|
|
; @Keywords: PRACTICE
|
|
; @Author: rweiss
|
|
; @Copyright: (C) 1989-2019 Lauterbach GmbH, licensed for use with TRACE32(R) only
|
|
; --------------------------------------------------------------------------------
|
|
; $Id: mylib.cmm 21188 2023-07-27 09:54:52Z rweiss $
|
|
|
|
PRIVATE &FUNCTION &PARAMETERS &RESULT
|
|
ENTRY &FUNCTION %LINE &PARAMETERS
|
|
|
|
GOSUB &FUNCTION &PARAMETERS
|
|
ENTRY %LINE &RESULT
|
|
ENDDO &RESULT
|
|
|
|
|
|
; SUBROUTINES
|
|
|
|
SUBROUTINE INC
|
|
(
|
|
PRIVATE &value &result
|
|
ENTRY &value
|
|
&result=&value+1
|
|
RETURN &result
|
|
)
|
|
|
|
SUBROUTINE ADD
|
|
(
|
|
PRIVATE &value1 &value2 &result
|
|
ENTRY &input1 &value2
|
|
&result=&input1+&value2
|
|
RETURN &result
|
|
)
|