| \needs flash-backspin fl download.fth |
| |
| 0 value backspin-handle |
| \ See https://msdn.microsoft.com/en-us/library/windows/desktop/ms645505(v=vs.85).aspx |
| \ for message box type values and return codes |
| 0 constant mb-ok |
| 1 constant mb-ok-cancel |
| |
| 1 constant mb-id-ok |
| 2 constant mb-id-cancel |
| |
| : choose-backspin-bin-file ( -- a.filename ) |
| " Backspin Firmware Files"(00)backspin*.bin"(00 00)" drop |
| choose-file |
| ; |
| |
| : fatal-error ( msg$ -- ) |
| " Error" 2swap mb-ok message-box drop bye |
| ; |
| : gui-show-progress ( offset -- ) |
| dup text-show-progress |
| pb-show key? if key drop then |
| ; |
| : gui-set-range ( high low -- ) |
| 2dup text-set-range pb-set-range |
| ; |
| : gui-show-phase ( msg$ -- ) |
| 2dup text-show-phase pb-set-title |
| ; |
| |
| : setup-gui ( -- ) |
| pb-start |
| ['] gui-set-range to set-progress-range |
| ['] gui-show-progress to show-progress |
| ['] gui-show-phase to show-phase |
| ; |
| |
| false value use-gui? |
| : use-gui true to use-gui? ; |
| |
| : gui-flash-backspin ( filename$ -- ) |
| |
| ['] open-bin-file catch if |
| " Cannot open Backspin program file" fatal-error |
| then ( ) |
| |
| use-gui? if setup-gui then |
| flash-backspin |
| " Done" show-phase |
| |
| use-gui? if #2000 ms pb-end then |
| ; |
| |
| : program-backspin ( -- ) |
| \ If index 1 can be opened there is more than one Backspin |
| $4e4d 1 ft-open-com ?dup if ( handle ) |
| close-com |
| " Disconnect all Backspins"nexcept for the one to program" fatal-error |
| then |
| |
| \ Try to open the only Backspin |
| $4e4d 0 ft-open-com to serial-ih |
| serial-ih 0= if |
| " Please connect a Nod Backspin to program" fatal-error |
| then |
| |
| \ " Proceed?" |
| \ " Program the Backspin?" |
| \ mb-ok-cancel message-box mb-id-cancel = if bye then |
| |
| choose-backspin-bin-file ?dup if ( a.filename ) |
| cscount gui-flash-backspin |
| then |
| bye |
| ; |
| |
| " backspin-programmer.dic" save |
