154 lines
3.3 KiB
Turtle
154 lines
3.3 KiB
Turtle
;---------------------------------------------------
|
|
; Setting load image parameter
|
|
;---------------------------------------------------
|
|
ARRAY_NUM = 1
|
|
strdim IMGNM ARRAY_NUM
|
|
IMGNM[0] = 'App_MCU_V4H_Sample.srec'
|
|
|
|
strdim SAVEADR ARRAY_NUM
|
|
SAVEADR[0] = '0000'
|
|
|
|
strdim IMGADR ARRAY_NUM
|
|
IMGADR[0] = 'E2100000'
|
|
|
|
strdim WRITESEL ARRAY_NUM
|
|
WRITESEL[0] = 'eMMC'
|
|
|
|
;---------------------------------------------------
|
|
; Setting FlashWriter parameter
|
|
;---------------------------------------------------
|
|
FLASHWRITER_FILE = 'ICUMX_Flash_writer_SCIF_DUMMY_CERT_EB203000_V4H.mot'
|
|
FLASHWRITER_SPEED = 921600
|
|
|
|
;---------------------------------------------------
|
|
; Select load all images
|
|
;---------------------------------------------------
|
|
LOAD_FILES = 'all'
|
|
|
|
;---------------------------------------------------
|
|
; DO NOT EDIT THE FOLLOWING LINES
|
|
;---------------------------------------------------
|
|
; Main program
|
|
;---------------------------------------------------
|
|
getdir DIR
|
|
|
|
call Load_FlashWriter
|
|
call Load_all_image
|
|
|
|
end
|
|
|
|
;---------------------------------------------------
|
|
; load FlashWriter
|
|
;---------------------------------------------------
|
|
:Load_FlashWriter
|
|
filesearch FLASHWRITER_FILE
|
|
if result=0 then
|
|
sprintf 'File "%s" not found' FLASHWRITER_FILE
|
|
messagebox inputstr 'error'
|
|
break
|
|
endif
|
|
|
|
setbaud 921600
|
|
sprintf2 FILE_NAME '%s\%s' DIR FLASHWRITER_FILE
|
|
sendfile FILE_NAME 1
|
|
wait '>'
|
|
|
|
return
|
|
|
|
;---------------------------------------------------
|
|
; load all images
|
|
;---------------------------------------------------
|
|
:Load_All_image
|
|
|
|
; file check
|
|
for i 0 ARRAY_NUM-1
|
|
filesearch IMGNM[i]
|
|
if result=0 then
|
|
sprintf 'File "%s" not found' IMGNM[i]
|
|
messagebox inputstr 'error'
|
|
break
|
|
endif
|
|
next
|
|
|
|
if result=1 then
|
|
for i 0 ARRAY_NUM-1
|
|
index = i
|
|
strcompare WRITESEL[i] 'Flash'
|
|
if result=0 then
|
|
call Load_Image
|
|
endif
|
|
strcompare WRITESEL[i] 'eMMC'
|
|
if result=0 then
|
|
call Load_Image_eMMC
|
|
endif
|
|
next
|
|
else
|
|
messagebox "Cancel write all images" "error"
|
|
endif
|
|
|
|
;messagebox "Write Complete" ""
|
|
return
|
|
|
|
;---------------------------------------------------
|
|
; Load Image To Flash
|
|
;---------------------------------------------------
|
|
:Load_Image
|
|
mpause 10
|
|
sendln 'xls2'
|
|
wait ' Select (1-3)>'
|
|
mpause 10
|
|
sendln '1'
|
|
wait '(Push Y key)'
|
|
mpause 10
|
|
send 'y'
|
|
wait '(Push Y key)'
|
|
mpause 10
|
|
send 'y'
|
|
wait ' Please Input : H'
|
|
mpause 1
|
|
sendln IMGADR[index]
|
|
wait ' Please Input : H'
|
|
sendln SAVEADR[index]
|
|
mpause 400
|
|
wait 'please send ! (Motorola S-record)'
|
|
mpause 400
|
|
sprintf2 FILE_NAME '%s\%s' DIR IMGNM[index]
|
|
sendfile FILE_NAME 1
|
|
wait 'complete!' 'Clear OK?(y/n)'
|
|
If result=1 goto proc_end
|
|
If result=2 goto send_y
|
|
|
|
:send_y
|
|
send 'y'
|
|
wait '>'
|
|
|
|
:proc_end
|
|
mpause 100
|
|
return
|
|
|
|
;---------------------------------------------------
|
|
; Load Image To eMMC
|
|
;---------------------------------------------------
|
|
:Load_Image_eMMC
|
|
mpause 10
|
|
sendln 'em_w'
|
|
wait '(Push Y key)'
|
|
mpause 10
|
|
send 'y'
|
|
wait ' Select area(0-2)>'
|
|
mpause 10
|
|
sendln '1'
|
|
wait 'Please Input Start Address in sector :'
|
|
mpause 1
|
|
sendln SAVEADR[index]
|
|
wait 'Please Input Program Start Address :'
|
|
sendln IMGADR[index]
|
|
mpause 400
|
|
wait 'please send ! (Motorola S-record)'
|
|
mpause 400
|
|
sprintf2 FILE_NAME '%s\%s' DIR IMGNM[index]
|
|
sendfile FILE_NAME 1
|
|
wait 'EM_W Complete!'
|
|
mpause 100
|
|
return
|