config/msp430/SendFile.ttl

   1 ;connect  param3
   2 testlink
   3 if result=0 connect  param3
   4
   5 sendln '     $0A BASE ! ECHO STOP' ; blanks are to pass LPMx wake up time...
   6
   7 inputbox 'Send a File' 'Select File : ' param2
   8
   9 strcompare param4 'NOECHO'
  10 if result = 0 then
  11     sendln 'NOECHO' ; set no echo from FastForth
  12     setecho 0       ; suppr. echo from Teraterm
  13     showtt 0
  14 ;    clearscreen 1
  15     sendfile inputstr 0
  16     showtt 1
  17     goto end
  18 endif
  19
  20 strcompare param4 'HALF'
  21 if result = 0 then
  22     sendln 'NOECHO'
  23     setecho 1       ; add echo from Teraterm
  24     showtt 0
  25 ;    clearscreen 1
  26     sendfile inputstr 0
  27     setecho 1
  28     showtt 1
  29     goto end
  30 endif
  31
  32 ; default mode = ECHO
  33     setecho 0       ; no echo from Teraterm
  34     showtt 0
  35 ;    clearscreen 1
  36     sendfile inputstr 0
  37     showtt 1
  38
  39 :end
  40 end
  41
  42
  43 ; param1 = this macro
  44 ; param2 = file to send
  45 ; param3 = "/C"
  46 ; param4 = "ECHO" or "NOECHO" or "HALF" or nothing