amforth-devel — Development discussion and user support

[Amforth] Need some help

[Jan K. <kro...@ho...>]

Hi,

I have this simple Arduino program thats put a PWM signal to port 9 of the Arduino.
Checked with my RIGOL and the PWM is changed when I change the value of ppm.

#define PWM_A  9 /* Pin-9 on Arduino Board */

void setup() {
  Serial.begin(115200);

  int pwm = 200;  /* duty 50% */
  pinMode(PWM_A,  OUTPUT);
  /* PWM speed is at 20 kHz      */
  /*Set the timers               */
  TCCR1A = 0b10100000;
  TCCR1B = 0b00010001;
  ICR1 = 400;

  /* value of 400 = 100 % ppm */

  OCR1A = pwm;
}

void loop() {
}


Convert it to amForth.

\ Address of Timer/Counter Arduino UNO
\ Adresses are taken from device.py
\ Partname ATmega328P

$80 constant TCCR1A \ Timer/Counter1 Control Register A
$81 constant TCCR1B \ Timer/Counter1 Control Register B
$86 constant ICR1   \ Timer/Counter1 Input Capture Register
$88 constant OCR1A  \ Timer/Counter1 Output Compare Register A
$8a constant OCR1B  \ Timer/Counter1 Output Compare Register B

PORTB 1 portpin: PWM_A \ alias for digital pin 9 (PB1)

: PWM_init
  PWM_A pin_output       \ Set pin 9 (PB1) to output
  %10100000 TCCR1A c!    \ Store constant
  %00010001 TCCR1B c!    \ Store constant
  &400 OCR1A c!           \ Store constant
;

: PWM_set  ( value -- )  \ PWM is between 0..400
  OCR1A c!               \ Store into OCR1A
;


> PWM_init
> 200 PWM_set



It will not work. What do I wrong.
Thanks for any help

Cheers,

Jan

Re: [Amforth] the word "see"

[Matthias T. <mt...@we...>]

Am Freitag, den 26.10.2018, 15:20 +0100 schrieb Tristan Williams:
> Jan,
> 
> In release 6.2 [1] find-name was renamed to find-xt. I think the
> forth
> code for see has not been updated to reflect this. By editing see.frt
> and changing find-name to find-xt I was able to produce the
> following.

Thanks, fixed here and elsewhere.

Matthias

Re: [Amforth] the word "see"

[Tristan W. <ho...@tj...>]

Jan,

In release 6.2 [1] find-name was renamed to find-xt. I think the forth
code for see has not been updated to reflect this. By editing see.frt
and changing find-name to find-xt I was able to produce the following.

> : test 5 0 do i . loop ;
 ok
> test
0 1 2 3 4  ok
> see test
: test
[ 5278 ]   14396 5 
[ 5280 ]   14675 0
[ 5281 ]   15002 do -> 15018 
[ 5283 ]   1267 .
[ 5284 ]   15048 loop -> 5282 
[ 5286 ]   14367 ; ok

Regards,
Tristan

[1] http://amforth.sourceforge.net/history.html


On 26Oct18 15:12, Peter C. Hauser wrote:
> Jan,
> 
> It might not solve your immediate problem, but you can find a list of the error codes here:  
> 
> http://forth-standard.org/standard/exception <http://forth-standard.org/standard/exception>
> 
> 
> Peter
> 
> 
> > On 26 Oct 2018, at 13:50, Jan Kromhout <kro...@ho...> wrote:
> > 
> > Hi,
> > 
> > I have installed the word “see"
> > When I look to one of my former installed words I get this
> > 
> >> see toggle
> > ?? -4 10 
> > 
> > What is wrong with “see”
> > 
> > Cheers,
> > 
> > Jan
> > _______________________________________________
> > Amforth-devel mailing list for http://amforth.sf.net/
> > Amf...@li...
> > https://lists.sourceforge.net/lists/listinfo/amforth-devel
> 
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

Re: [Amforth] the word "see"

[Peter C. H. <Pet...@un...>]

Jan,

It might not solve your immediate problem, but you can find a list of the error codes here:  

http://forth-standard.org/standard/exception <http://forth-standard.org/standard/exception>


Peter


> On 26 Oct 2018, at 13:50, Jan Kromhout <kro...@ho...> wrote:
> 
> Hi,
> 
> I have installed the word “see"
> When I look to one of my former installed words I get this
> 
>> see toggle
> ?? -4 10 
> 
> What is wrong with “see”
> 
> Cheers,
> 
> Jan
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

[Amforth] the word "see"

[Jan K. <kro...@ho...>]

Hi,

I have installed the word “see"
When I look to one of my former installed words I get this

> see toggle
 ?? -4 10 

What is wrong with “see”

Cheers,

Jan

[Amforth] Coolterm as terminal

[Jan K. <jan...@ic...>]

Tristan,

I’m using an original Arduino-Uno

The next thing is to figure out how to include some of the .frt files. Docu is hard to understand.

It is working now with
	MacBook-Pro-van-Jan-6:tools jankromhout$ ./amforth-shell.py -p /dev/tty.usbmodem1421 -s 38400 -i —rtscts

I greatly appreciated your help

Cheers

Jan

Re: [Amforth] Coolterm as terminal

[Tristan W. <ho...@tj...>]

Jan,

I would try adding --rtscts to the ./amforth-shell.py command line. If
that does not help, then I would use --debug-serial to have a look at
what is happening at a lower level.

What model of Arduino are you trying to connect with?

Regards,
Tristan 

On 25Oct18 19:02, Jan Kromhout via Amforth-devel wrote:
> Tristan,
> 
> Thanks for the help this day. It is “working” but wen I type in a command a get an error back from
> amForth. See my output.
> Anny idee what is going wrong?
> 
> Cheers
> 
> Jan
> 
> Last login: Thu Oct 25 18:54:18 on ttys000
> MacBook-Pro-van-Jan-6:~ jankromhout$ cd /Users/jankromhout/Documents/amforth-6.7/tools 
> MacBook-Pro-van-Jan-6:tools jankromhout$ ./amforth-shell.py -p /dev/tty.usbmodem1411 -s 38400 -i
> |I=appl_defs: 0 loaded
> |I=Entering amforth interactive interpreter
> |I=getting MCU name..
> |I=successfully loaded register definitions for atmega328p
> |I=getting filenames on the host
> |I=  Reading /Users/jankromhout/Documents/amforth-6.7/avr8/devices/atmega328p
> |I=  Reading /Users/jankromhout/Documents/amforth-6.7/avr8/lib
> |I=  Reading .
> |I=getting filenames from the controller
> (ATmega328P)> 
> (ATmega328P)> 10
>  ?? -13 8 
> (ATmega328P)> 10 20 + .
>  ?? -13 6 
> (ATmega328P)> 
> 
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

[Amforth] Coolterm as terminal

[Jan K. <jan...@ic...>]

Tristan,

Thanks for the help this day. It is “working” but wen I type in a command a get an error back from
amForth. See my output.
Anny idee what is going wrong?

Cheers

Jan

Last login: Thu Oct 25 18:54:18 on ttys000
MacBook-Pro-van-Jan-6:~ jankromhout$ cd /Users/jankromhout/Documents/amforth-6.7/tools 
MacBook-Pro-van-Jan-6:tools jankromhout$ ./amforth-shell.py -p /dev/tty.usbmodem1411 -s 38400 -i
|I=appl_defs: 0 loaded
|I=Entering amforth interactive interpreter
|I=getting MCU name..
|I=successfully loaded register definitions for atmega328p
|I=getting filenames on the host
|I=  Reading /Users/jankromhout/Documents/amforth-6.7/avr8/devices/atmega328p
|I=  Reading /Users/jankromhout/Documents/amforth-6.7/avr8/lib
|I=  Reading .
|I=getting filenames from the controller
(ATmega328P)> 
(ATmega328P)> 10
 ?? -13 8 
(ATmega328P)> 10 20 + .
 ?? -13 6 
(ATmega328P)> 

Re: [Amforth] Coolterm as terminal

[Tristan W. <ho...@tj...>]

Jan,

Perhaps amforth-shell.py is trying to execute one of the versions of
python you have on your machine that does not have the required serial
module installed or configured. The following might shed some light on
the problem but comes with no warranty. Proceed at your own risk.

In an OS X terminal, for your versions of python that import serial
without error type

your-version-of-python --version

Choose one that is version 2.7.X (where X is some number)

For that one type

which your-version-of-python 

Make a note of the outputted full path

Then from the your-amforth-install/tools directory type

cp amforth-shell.py backup-amforth-shell.py

head -1 amforth-shell.py 

Compare the output with the full path of the python program you noted
above. If different, using an editor, replace the full path of the
python executable in amforth-shell.py with the one you noted above.

Regards,
Tristan


On 25Oct18 12:00, Jan Kromhout via Amforth-devel wrote:
> Thanks Tristan,
> 
> When I run it get the error “no module named serial”
> Check my versions of Python and when I type "import serial” there is no 
> problem. So I don’t know how to fix this!
> 
> Cheers,
> 
> Jan
> 
> 
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

[Amforth] Coolterm as terminal

[Jan K. <jan...@ic...>]

Thanks Tristan,

When I run it get the error “no module named serial”
Check my versions of Python and when I type "import serial” there is no 
problem. So I don’t know how to fix this!

Cheers,

Jan

Re: [Amforth] Coolterm as terminal

[Tristan W. <ho...@tj...>]

Hi Jan,

I am not sure how far you got with amforth-shell.py so I have started
at the beginning and worked forward in steps.

Step 1

Open an OS X terminal, change to your-amforth-dir/tools directory(folder)
and type

./amforth-shell.py --help

If this executes you should get a screen full of options with their
descriptions. 

Step 2

Find your uno (or other board's) serial port name. Type

ls -lt /dev/*usb*

Here is my listing (I have two usb-serial devices plugged in so four
entries)

crw-rw-rw-  1 root  wheel   17,  24 25 Oct 07:39 /dev/tty.usbmodem1411
crw-rw-rw-  1 root  wheel   17,  25 25 Oct 07:37 /dev/cu.usbmodem1411
crw-rw-rw-  1 root  wheel   17,  23 25 Oct 07:33 /dev/cu.usbserial-A906R1JQ
crw-rw-rw-  1 root  wheel   17,  22 25 Oct 07:33 /dev/tty.usbserial-A906R1JQ

I will use /dev/tty.usbmodem1411 which is from my uno[1]

Step 3

In the OS X terminal type (replacing /dev/tty.usbmodem1411 with your
serial device name)   

./amforth-shell.py -p /dev/tty.usbmodem1411 -s 38400 -i

This should leave you in the interactive mode of the amforth-shell.py
allowing you interact with AmForth[2] e.g. typing

2 3 + .

Should result in 5

To exit type (on my mac # is alt 3)

#exit

If you get to here, then you have a working amforth-shell.py that can
communicate with the uno. Let me know if that is the case.

What remains is to get amforth-shell.py to search for and include
files. That is Step 4 (which is to follow, if step 3 completed
successfully).

Regards,
Tristan

[1] For my uno, if I plug it into a different USB port I will get a
different device name - though the port to name mapping is the same.

[2] Assuming you have AmForth on the uno.


On 24Oct18 19:21, Jan Kromhout via Amforth-devel wrote:
> Tristan,
> 
> I have tried to get it working without any result, I use macOS High Sierra.
> Do you have tips to get it running?
> Do you use Python 2 or 3
> 
> Cheers,
> 
> Jan
> 
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
> 

[Amforth] Coolterm as terminal

[Jan K. <jan...@ic...>]

Tristan,

I have tried to get it working without any result, I use macOS High Sierra.
Do you have tips to get it running?
Do you use Python 2 or 3

Cheers,

Jan

Re: [Amforth] Coolterm as terminal

[Tristan W. <ho...@tj...>]

Hi Jan,

On OS X I use amforth-shell.py which is in the tools directory of the
AmForth distribution. More info below  

http://amforth.sourceforge.net/TG/recipes/Upload.html

Regards,
Tristan

On 24Oct18 16:58, Martin Bitter wrote:
> Hi Jan!
> 
> I recommend e4thcom written by Manfred Mahlow https://wiki.forth-ev.de/
> doku.php/projects:e4thcom
> 
> Think it's worth to have a look at (if you'r on your way with Linux).
> 
> Regards Martin
> 
> 
> 
> 
> Am Mittwoch, 24. Oktober 2018, 11:48:07 CEST schrieb Jan Kromhout via 
> Amforth-devel:
> > Hello,
> > 
> > I use Coolterm as terminal. Is it posible to use “include" to load several
> > screens with one command?
> > 
> > This as example like this
> > 
> > #include install/2-fetch.frt
> > #include install/2-store.frt
> > #include install/quotations.frt
> > #include install/search-name.frt
> > #include install/find-name.frt
> > #include install/defined.frt
> > #include install/dot-s.frt
> > #include install/dumper.frt
> > #include install/dump.frt
> > #include install/question.frt
> > #include install/builds.frt
> > #include install/bitnames.frt
> > 
> > Cheers,
> > 
> > Jan
> > 
> > 
> > 
> > 
> > 
> > _______________________________________________
> > Amforth-devel mailing list for http://amforth.sf.net/
> > Amf...@li...
> > https://lists.sourceforge.net/lists/listinfo/amforth-devel
> 
> 
> -- 
> Getippt im 9-Fingersystem von mir selbst.
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

Re: [Amforth] Coolterm as terminal

[Martin B. <mar...@t-...>]

Hi Jan!

I recommend e4thcom written by Manfred Mahlow https://wiki.forth-ev.de/
doku.php/projects:e4thcom

Think it's worth to have a look at (if you'r on your way with Linux).

Regards Martin




Am Mittwoch, 24. Oktober 2018, 11:48:07 CEST schrieb Jan Kromhout via 
Amforth-devel:
> Hello,
> 
> I use Coolterm as terminal. Is it posible to use “include" to load several
> screens with one command?
> 
> This as example like this
> 
> #include install/2-fetch.frt
> #include install/2-store.frt
> #include install/quotations.frt
> #include install/search-name.frt
> #include install/find-name.frt
> #include install/defined.frt
> #include install/dot-s.frt
> #include install/dumper.frt
> #include install/dump.frt
> #include install/question.frt
> #include install/builds.frt
> #include install/bitnames.frt
> 
> Cheers,
> 
> Jan
> 
> 
> 
> 
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel


-- 
Getippt im 9-Fingersystem von mir selbst.

Re: [Amforth] How to make a Full system

[Peter C. H. <Pet...@un...>]

Jan,

I do not think there is an overview regarding the sequence.  

In any case, you probably do not just want to load everything, only what you need for your project. 

As far as I know AVRDude lets you read back the memory contents and it should be possible in this way to easily clone a finished complete system.  We have considered doing this, but not tried so far.  So if you are successful we would be happy to hear from you.

Peter



> On 24 Oct 2018, at 10:49, Jan Kromhout via Amforth-devel <amf...@li...> wrote:
> 
> Hi,
> 
> I try to compile a full system, but most of the time I don’t know the sequens of loading the
> individual files. Is there some overview how to load these files (sequence)?
> 
> When the building system is complete is it possible to make a backup of the system and 
> load this afterwards (make a uno.eep.hex and uno.hex file with AverDude)
> 
> Cheers
> 
> Jan
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

Re: [Amforth] Coolterm as terminal

[Peter C. H. <Pet...@un...>]

Jan,

With CoolTerm it is not possible to use the “include” mechanism.

However, there is a terminal program (shell) specifically written in Python for use with FlashForth (flashforth.com). This most likely also works with AmForth and most likely can handle “include”.  I once tried but could not get this shell to work on my Mac in a hurry and so did not pursue it further and continued using CoolTerm.  If you succeed, I would be happy to hear from you.

Besides the Forth specific shell for FlashForth I have also seen one or two similar alternatives.

Peter



> On 24 Oct 2018, at 11:48, Jan Kromhout via Amforth-devel <amf...@li...> wrote:
> 
> Hello,
> 
> I use Coolterm as terminal. Is it posible to use “include" to load several screens with one command?
> 
> This as example like this
> 
> #include install/2-fetch.frt
> #include install/2-store.frt
> #include install/quotations.frt
> #include install/search-name.frt
> #include install/find-name.frt
> #include install/defined.frt
> #include install/dot-s.frt
> #include install/dumper.frt
> #include install/dump.frt
> #include install/question.frt
> #include install/builds.frt
> #include install/bitnames.frt
> 
> Cheers,
> 
> Jan
> 
> 
> 
> 
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

Re: [Amforth] Arduino Nano

[Peter C. H. <Pet...@un...>]

Jan,

Yes, we used the same fuse settings for the Arduino Nano as for the Arduino Uno.  They both use the same AVR microcontroller and the circuitry (as far as I know is identical), it is just the form factor which is different. 

We prefer to use the Nano as we can plug that into the printed circuit boards we create as if it were a component (there are footprints for EAGLE and perhaps some other layout programs) and do not have to create “shields” as necessary for the Uno.

We used the preassembled files for the Uno from the Sourceforge repository and have never created the hex files ourselves.

Peter


> On 24 Oct 2018, at 10:29, Jan Kromhout <kro...@ho...> wrote:
> 
> 
> Peter,
> 
> With the same fuse settings as you send before for the Arduino Uno?
> 
> Do you have assembled the source by your self, or taken from Github?
> 
> 
> Cheers,
> 
> Jan
> 
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

[Amforth] Coolterm as terminal

[Jan K. <jan...@ic...>]

Hello,

I use Coolterm as terminal. Is it posible to use “include" to load several screens with one command?

This as example like this

#include install/2-fetch.frt
#include install/2-store.frt
#include install/quotations.frt
#include install/search-name.frt
#include install/find-name.frt
#include install/defined.frt
#include install/dot-s.frt
#include install/dumper.frt
#include install/dump.frt
#include install/question.frt
#include install/builds.frt
#include install/bitnames.frt

Cheers,

Jan

[Amforth] How to make a Full system

[Jan K. <jan...@ic...>]

Hi,

I try to compile a full system, but most of the time I don’t know the sequens of loading the
individual files. Is there some overview how to load these files (sequence)?

When the building system is complete is it possible to make a backup of the system and 
load this afterwards (make a uno.eep.hex and uno.hex file with AverDude)

Cheers

Jan

[Amforth] Arduino Nano

[Jan K. <kro...@ho...>]

Peter,

With the same fuse settings as you send before for the Arduino Uno?

Do you have assembled the source by your self, or taken from Github?


Cheers,

Jan

Re: [Amforth] Arduino nano

[Peter C. H. <Pet...@un...>]

Jan,

Yes, we have done that successfully.

Peter


> On 23 Oct 2018, at 12:04, Jan Kromhout via Amforth-devel <amf...@li...> wrote:
> 
> Hi,
> 
> I have an Arduino Nano 328P, can I load it with  the forth of the Arduino Uno?
> If posible can I use the same fuse settings as my Arduino Uno?
> 
> Cheers,
> 
> Jan
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

[Amforth] Arduino nano

[Jan K. <jan...@ic...>]

Hi,

I have an Arduino Nano 328P, can I load it with  the forth of the Arduino Uno?
If posible can I use the same fuse settings as my Arduino Uno?

Cheers,

Jan

Re: [Amforth] 16/32 Bit Fetch & Store.

[Matthias T. <mt...@we...>]

> 
> Is my simplistic picture correct? 

Yes

> Or can the assembler words @ ! +!
> indeed be interrupted from within AmForth?  

No

Matthias

Re: [Amforth] 16/32 Bit Fetch & Store.

[Tristan W. <ho...@tj...>]

On 19Oct18 19:32, Matthias Trute wrote:
> Am Freitag, den 19.10.2018, 14:46 +0200 schrieb Tristan:
> > Hello Martin,
> > 
> > Very intriguing, just when I am away from my machine so I can’t test
> > things out!
> > 
> > If I remember correctly, the default Amforth avr build uses (rx,tx)
> > interrupts to handle the serial prompt. If at the serial prompt I
> > type in the word -int and “all” -int did was to issue the assembler
> > cli instruction I should lose my serial prompt. I can’t check now but
> > if the serial prompt does not disappear then there is other machinery
> > at work. 
> 
> It depends. Serial send (TX) is since long not interrupt driven. It
> works even with disabled interrupts. Receiving is usually interrupt
> driven, but can be configured to a polling code. It has 2 advantages:
> smaller code and works almost always. The disadvantage is, that 
> characters may be lost if they arrive too fast. 
> 
> The non-avr platforms are all non-interrupt based.
> 
> Matthias
> 
> PS: nice discussions this week :=)
> 
> 
> 
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

Hello Matthias, Martin,

Martin's original post raised the question whether @ ! +! 2@ 2! d+!
should disable interrupts on the AVR8 (bracketing with cli and sei). I
am particularly interested as to whether the words @ ! +! could indeed
be interrupted within AmForth.

After trying to use 1ms for a purpose it was not suited to, I re-read
http://amforth.sourceforge.net/TG/AVR8.html and tried to form a
picture of how AmForth handled interrupts. This is what I settled on
based on my reading of the sections "Inner Interpreter", "NEXT",
"Interrupts" from "Core System" in the link above.

'The inner interpreter checks for set interrupt flags in the "space"
between forth words. An interrupt service routine can only be executed
by the inner interpreter. If the inner interpreter finds a set
interrupt flag, it executes the associated interrupt service routine
(which will not be interrupted) and clears the interrupt flag before
moving on to execute the next forth word. As forth words usually
comprise of other forth words this is a recursive process until the
inner interpreter finds a word written in assembler. Such a word will
not contain any "space" in which the inner interpreter can check for
set interrupt flags. Consequently, that assembler word will always run
uninterrupted.  After the execution of the assembler word, there is
once again "space" and the process repeats. Should an interrupt flag
be set whilst the assembler word is being executed, the execution of
an associated interrupt routine is deferred until after the execution
of the assembler word and so is not lost.'

Is my simplistic picture correct? Or can the assembler words @ ! +!
indeed be interrupted from within AmForth?  

Best wishes,
Tristan

[Amforth] Finding Files

[Jan K. <jan...@ic...>]

Thanks for this Matthias,

Was verre helpful

Cheers

Jan