config/SendFile.ttl

   1 ; macro called by SendSource.bat
   2 ; param1 = this macro
   3 ; param2 = file.4TH to send
   4 ; param3 = /C = default COMx saved in TERATERM.INI.
   5 ; param4 = "ECHO" | "NOECHO" | "HALF"
   6 ; param5 = %deviceID% from select.bat
   7
   8 connect param3
   9
  10 ;logfile = '\teraterm.log'
  11 ;dirname logdir param2  ; logir = dir of file.4TH to be sent
  12 ;strconcat logdir logfile
  13 ;logopen logdir 1
  14
  15
  16
  17
  18 inputbox 'Send this file to the MSP430FR target:' ' ' param2
  19
  20 setecho 0           ; no echo from Teraterm
  21 showtt 0            ; close teraterm windows
  22
  23 ; DEVICE ID TEST
  24 ; ==============
  25
  26 sendln 'CODE ?ID'                               ; CODE ?ID
  27 sendln 'CMP #0,R14 0<> IF SUB &$1A04,R14 THEN'  ; CMP #0,TOS 0<> IF SUB &DEVICEID,TOS THEN
  28 sendln 'COLON '                                 ; COLON
  29 sendln '$1B EMIT $63 EMIT'                      ; $1B EMIT $63 EMIT   \ send 'ESC c' (clear screen)
  30 ;sendln '13 EMIT $10 EMIT'                       ; CR
  31 sendln ' ABORT" Device'39's ID mismatch!" '     ; ABORT" Device's ID mismatch!"
  32 sendln 'RST_RET ;'                              ; RST_RET ;
  33
  34 sendln param5 ' ?ID NOECHO'    ; send: %deviceID% ?ID NOECHO
  35
  36 strcompare param4 'NOECHO'
  37 if result = 0 then
  38     send 'NOECHO ' ; clear LINE again but doesn't send new line
  39     uptime timestart ; starts chrono...
  40     sendfile inputstr 0
  41     goto end
  42 endif
  43
  44 strcompare param4 'HALF'
  45 if result = 0 then
  46     send 'NOECHO ' ; clear LINE again but doesn't send new line
  47     uptime timestart ; starts chrono...
  48     sendfile inputstr 0
  49     send #4
  50     setecho 1
  51     goto end
  52 endif
  53
  54 ; default mode = ECHO
  55     sendln ' ECHO'
  56     uptime timestart ; starts chrono...
  57     sendfile inputstr 0
  58
  59 :end
  60
  61 uptime timeend  ; stops chrono...
  62 diff = timeend - timestart
  63 filestat param2 size
  64 KBds = 10 * size / diff
  65 sprintf2 resultat " download compile execute %s in %d ms (%d kBds eff.)" param2 diff KBds
  66
  67 showtt 1    ; display teraterm window
  68
  69 messagebox resultat "teraterm.exe"
  70
  71 ;logclose
  72
  73 ;unlink