; ---------------------------------------------------------------------------
; dataflash_program.cmm
;
; This script is FLASHING the dataflash with data given in a FILE
;
; NOTE: this script must be executed from the CYT2B Master-GUI (CM0+ Core)
;
; ---------------------------------------------------------------------------
  PMACRO.EXPLICIT

  ; show path and name of this script (present practice file)
  ECHO ""
  ECHO %COLOR.BLUE "### " OS.PPF() " ###"

; ---------------------------------------------------------------------------

  PRIVATE &filename &result

; ---------------------------------------------------------------------------
; dialog to select the filename
  DIALOG.File.SELECT "*.hex"
  ENTRY %LINE &filename

  IF "&filename"==""
  (
    ECHO %COLOR.RED "ERROR: No valid filename selected!"
  )
  ELSE
  (
    DIALOG.YESNO "DataFlash programming with file:"+CONVert.CHAR(0x0D0A)+"&filename"
    ENTRY &result

    IF &result==TRUE()
    (
      ECHO %COLOR.GREEN "DataFlash is programmed with contents given in &filename..."

      SYStem.Up

      FLASH.AUTO 2.

      Data.LOAD.auto &filename &dataflash_range /Verify

      FLASH.AUTO off

      ECHO %COLOR.GREEN "DataFlash programming finished!"
    )
    ELSE
    (
      ECHO %COLOR.GREEN "DataFlash programming aborted by user!"
    )
  )

  ENDDO