; --------------------------------------------------------------------------------
; @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
)