(r14) ForthSTM32WB < Cosmac

Tags: view all tags
---+ Mecrisp Forth for the !STM32WB

Interactive and extensible language. Built-in lexical analysis (tokenizer, parser), needs less than 32 !KiB Flash and 4 !KiB RAM.

The competitor is [[https://micropython.org/][MicroPython]], but it needs more than 250 !KiB of Flash.

But what about [[http://www.ulisp.com/][uLisp]]? It is also small and self-contained.

   * http://mecrisp.sourceforge.net/ Sourceforge, original project
   * https://github.com/jjonethal/mecrisp-stellaris GIT repository, fork with more supported MCUs and dev kits.
   * https://mecrisp-stellaris-folkdoc.sourceforge.io/ Mecrisp Stellaris Unofficial !UserDoc
   * https://jeelabs.org/docs/nodelib/jeelib/ 

---++ CMSIS-SVD for !STM32WB

SVD 2 Forth
   * https://github.com/ralfdoering/cmsis-svd-fth
   * https://mecrisp-stellaris-folkdoc.sourceforge.io/register-generator.html#svd2forth

Install the [[https://www.st.com/en/development-tools/stm32cubeide.html][STM32CubeIDE]] and get the =STM32WBxx_CM4.svd= from the folder:
<pre>
Version 1.6: stm32cubeide_1.1.0/plugins/com.st.stm32cube.ide.mcu.productdb.debug_1.1.0.201910081157/resources/cmsis/STMicroelectronics_CMSIS_SVD
Version 1.7: stm32cubeide_1.2.0/plugins/com.st.stm32cube.ide.mcu.productdb.debug_1.2.0.201912201802/resources/cmsis/STMicroelectronics_CMSIS_SVD
</pre>

Install the Mecrisp-Stellaris and copy the =STM32WBxx_CM4.svd= into =common/svd2forth-v3=. Edit the =Makefile=
<pre>
common/svd2forth-v3> diff Makefile Makefile~
5c5
< FOLDED_SVD            = STM32WBxx_CM4.svd
---
> FOLDED_SVD            = STM32L07x.svd
</pre>

Edit the shell script =raw-svd-clean.sh=. Replace =gsed= with =sed=.

Generate the Forth and Assembler source files:
<pre>
common/svd2forth-v3> <b>make everything</b>
common/svd2forth-v3> <b>make mem</b>
</pre>

---++ !STM32WB Nucleo Board

<img src="%ATTACHURLPATH%/stm32wb-nucleo.jpg" alt="stm32wb-nucleo.jpg" width="426" height="331" />


https://www.st.com/en/evaluation-tools/p-nucleo-wb55.html

[[https://www.st.com/content/ccc/resource/technical/layouts_and_diagrams/schematic_pack/group0/e3/a0/c8/d8/8d/da/4f/43/mb1355_schematics/files/MB1355-WB55RGV-C02_schematic.pdf/jcr:content/translations/en.MB1355-WB55RGV-C02_schematic.pdf][Schematic Nucleo Board MB1355]]

[[https://www.st.com/content/ccc/resource/technical/layouts_and_diagrams/schematic_pack/group0/6f/4a/27/3b/7d/c4/43/f8/mb1293_schematics/files/MB1293-WB55CGU-C02_schematic.pdf/jcr:content/translations/en.MB1293-WB55CGU-C02_schematic.pdf][Schematic Nucleo Dongle MB1293]]


---++ Build

Linux packages:
   * cross-arm-binutils
   * cross-arm-none-gcc9
   * cross-arm-none-newlib-devel

   * stlink
   * stlink-gui
   * stm32flash
   * openocd

   * [[https://www.st.com/en/development-tools/stm32cubeprog.html][STM32CubeProg]]
   * [[https://www.st.com/en/development-tools/stm32cubemx.html][STM32CubeMX]]

<pre>
/opt/STMicroelectronics/STM32Cube/STM32CubeProgrammer/bin/STM32_Programmer_CLI -c port=SWD -ob displ
</pre>




---++ Debug

There is good architecture diagram from [[https://wiki.st.com/stm32mpu/wiki/GDB][STM32MPU Wiki]] (consider only the Cortex-M4 parts):

<img src="%ATTACHURLPATH%/700px-GDB_openOCD_focus_graph.png" alt="700px-GDB_openOCD_focus_graph.png" width="700" height="311" />

---+++ !OpenOCD

!OpenOCD 0.10.0 does not support STM32WB, therefore I built the OpenOCD from the sources.
<pre>
$ <b>git clone https://git.code.sf.net/p/openocd/code openocd-code</b>
</pre>

But openSUSE' jimtcl Package conflicts with the configure script, to prevent this:
<pre>
$ <b>mv /usr/bin/jimsh /usr/bin/jimsh-unused</b>
</pre>

The usual configure/make/install:
<pre>
$ <b>./configure</b>
$ <b>make</b>
# <b>make install</b>
</pre>

The =stm32wbx.cfg= is derived from =st_nucleo_l4.cfg=.

<pre>
$ <b>openocd -f /usr/local/share/openocd/scripts/board/st_nucleo_wb.cfg</b>
Open On-Chip Debugger 0.10.0+dev-01031-gff6d0704 (2020-01-19-11:35)
Licensed under GNU GPL v2
For bug reports, read
        http://openocd.org/doc/doxygen/bugs.html
Info : The selected transport took over low-level target control. The results might differ compared to plain JTAG/SWD
srst_only separate srst_nogate srst_open_drain connect_deassert_srst

Info : Listening on port 6666 for tcl connections
Info : Listening on port 4444 for telnet connections
Info : clock speed 500 kHz
Info : STLINK V2J34M25 (API v2) VID:PID 0483:374B
Info : Target voltage: 3.221593
Info : stm32wbx.cpu: hardware has 6 breakpoints, 4 watchpoints
Info : Listening on port 3333 for gdb connections
</pre>

Test the server from another terminal:
<pre>
$ <b>telnet localhost 4444</b>
Trying ::1...
telnet: connect to address ::1: Connection refused
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
Open On-Chip Debugger
> <b>shutdown</b>
shutdown command invoked
Connection closed by foreign host.
</pre>

<pre>
$ <b>gdb</b>
GNU gdb (GDB; openSUSE Tumbleweed) 8.3.1
Copyright (C) 2019 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
...
(gdb) <b>file mecrisp-stellaris-stm32wb55.elf</b>
Reading symbols from mecrisp-stellaris-stm32wb55.elf...
(gdb) <b>break uart_init</b>
Breakpoint 1 at 0x8001466: file terminal.s, line 31.
(gdb) <b>break Reset</b>
Breakpoint 2 at 0x8003a9e: file mecrisp-stellaris-stm32wb55.s, line 89.
(gdb) <b>target remote localhost:3333</b>
Remote debugging using localhost:3333
0x1fff5904 in ?? ()
(gdb) <b>monitor reset</b>
Unable to match requested speed 500 kHz, using 480 kHz
Unable to match requested speed 500 kHz, using 480 kHz
(gdb) <b>load</b>
Loading section .text, size 0x3c18 lma 0x8000000
Start address 0x8000000, load size 15384
Transfer rate: 19 KB/sec, 15384 bytes/write.
(gdb) <b>continue</b>
Continuing.
Note: automatically using hardware breakpoints for read-only addresses.
</pre>

-- %USERSIG{PeterSchmid - 2019-12-29}%

---++ Comments

%COMMENT%

   * 700px-GDB_openOCD_focus_graph.png: <br />
Attachments
Topic attachments
I	Attachment	History	Action	Size	Date	Who
fs	1b.fs	r1	manage	0.7 K	2020-01-12 - 10:21	PeterSchmid
png	700px-GDB_openOCD_focus_graph.png	r1	manage	103.5 K	2020-01-19 - 16:11	PeterSchmid
svd	STM32WBxx_CM4.svd	r1	manage	1536.1 K	2019-12-31 - 18:11	PeterSchmid
s	STM32WBxx_CM4.svd.equates.s	r1	manage	447.3 K	2020-01-12 - 10:21	PeterSchmid
fs	bitfields.fs	r1	manage	526.9 K	2020-01-12 - 10:21	PeterSchmid
fs	memmap.fs	r1	manage	132.7 K	2020-01-12 - 10:21	PeterSchmid
cfg	st_nucleo_wb.cfg	r1	manage	0.3 K	2020-01-19 - 15:32	PeterSchmid
jpg	stm32wb-nucleo.jpg	r1	manage	85.8 K	2019-12-30 - 16:51	PeterSchmid
Topic revision: r14 - 2020-01-19 - PeterSchmid