amforth-devel — Development discussion and user support

[Amforth] Fuse settings for Leonardo

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

Hi,

I wont testing amForth on the Leonardo.
What are are the fuse settings for the Leonardo?


Cheers,

Jan

Re: [Amforth] c,

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

Am Dienstag, den 06.11.2018, 17:41 +0000 schrieb Jan Kromhout:
> Hi,
> 
> When I use for example gforth I can use the c, word. I wont to use
> this also in amForth in combination with c@.

It's a bit more complex...

, (comma) appends to the dictionary in flash memory. c@ cannot
access the flash address space, the hardware is Harvard oriented.
It would require a c@i word. But: A flash address contains a 
16bit word, not only a byte. That makes it possible to have a
flash dictionary of 128KB with a 16 bit address. A c@i would have
to use 17bit addresses (16bit normal plus one bit to distinguish
between upper and lower byte of the word).

> The word c, is not available, how to do this. I think this is a good
> way to use not so much memory.

You may want to read the code for the string compilations. It's not 
trivial but works and offers the "compaction" of bytes (characters)
into the bigger flash address elements. look for itype and s, or
the heaeder construction words. The assembly syntax should be easy
to understand.

Matthias

[Amforth] c,

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

Hi,

When I use for example gforth I can use the c, word. I wont to use this also in amForth in combination with c@.
The word c, is not available, how to do this. I think this is a good way to use not so much memory.

Thanks for any help.

Cheers,

Jan



\ Segment byte maps for numbers 0 to 9
  create Segment_Map_Digit $C0 c, $F9 c, $A4 c, $B0 c, $99 c, $92 c, $82 c, $F8 c, $80 c, $90 c,

Re: [Amforth] External Interrupt Mask Register

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

Hi,

Thanks Mathias, problem is solved. My application is running as it should.

Cheers,

Jan


> Op 5 nov. 2018, om 20:04 heeft Matthias Trute <mt...@we...> het volgende geschreven:
> 
> Hi,
> 
>> When I do the command $1d c@ . I get a value of 0001000. How is that
>> possible? Or do I something wrong?
> 
> Historically Atmel defined 32 special addresses 
> that together with
> certain opcodes that are used for
> some IO or CPU relevant things (e.g.
> the machine
> status register which is one of them). They are mapped 
> into
> the "normal" memory addresses with an offset 
> of 32 (0x20). "real" RAM
> memory starts at address
> $40 (32 registers and 32 IO registers).
> 
> The lowest 32 "memory" addresses are used for the 
> CPU registers itself. $1d is part of the Y register 
> pair amforth uses as data stack pointer.
> 
> HTH
> Matthias
> 
> 
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

Re: [Amforth] External Interrupt Mask Register

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

Hi,

> When I do the command $1d c@ . I get a value of 0001000. How is that
> possible? Or do I something wrong?

Historically Atmel defined 32 special addresses 
that together with
certain opcodes that are used for
some IO or CPU relevant things (e.g.
the machine
status register which is one of them). They are mapped 
into
the "normal" memory addresses with an offset 
of 32 (0x20). "real" RAM
memory starts at address
$40 (32 registers and 32 IO registers).

The lowest 32 "memory" addresses are used for the 
CPU registers itself. $1d is part of the Y register 
pair amforth uses as data stack pointer.

HTH
Matthias

Re: [Amforth] External Interrupt Mask Register

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

Tristan,

I have found the datasheet.

Cheers,

Jan

Verstuurd vanaf mijn iPad

> Op 5 nov. 2018 om 11:26 heeft Jan Kromhout <kro...@ho...> het volgende geschreven:
> 
> Tristan,
> 
> Thanks again for your hulp.
> Please can you provide me the link to download the datasheet your mention. When I look to the 
> datasheets they only have about 25 pages!!.
> 
> Cheers,
> 
> Jan
> 
> 
>> Op 5 nov. 2018, om 09:47 heeft Tristan Williams <ho...@tj...> het volgende geschreven:
>> 
>> Jan,
>> 
>>> The address is $1d. When I look to the documentation te bits 0 and 1
>>> are R/W and the other bits are only Read (With a initial value of 0)
>>> When I do the command $1d c@ . I get a value of 0001000. How is that
>>> possible? Or do I something wrong?
>> 
>> The answer to this lies in the memory map of the AVR.  If you look at
>> page 72 in the datasheet you will see the address for EIMSK given as
>> 
>> 0x1D (0x3D)
>> 
>> Yes, two addresses.
>> 
>> To see the contents of EIMSK in AmForth using c@ you need
>> 
>> $3d c@
>> 
>> For the why see page 19 of the datasheet combined with a
>> Google of "avr memory map offset $20" 
>> 
>> The file amforth-root/avr8/devices/atmega328p/atmega328p.frt contains 
>> 
>> &61 constant EIMSK    \ External Interrupt Mask Register
>> 
>> (where &61 is $3d) along with the other constants and is a very useful
>> file.
>> 
>> Tristan
>> 
>> 
>> 
>> 
>> 
>> 
>> _______________________________________________
>> 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] External Interrupt Mask Register

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

Tristan,

Thanks again for your hulp.
Please can you provide me the link to download the datasheet your mention. When I look to the 
datasheets they only have about 25 pages!!.

Cheers,

Jan


> Op 5 nov. 2018, om 09:47 heeft Tristan Williams <ho...@tj...> het volgende geschreven:
> 
> Jan,
> 
>> The address is $1d. When I look to the documentation te bits 0 and 1
>> are R/W and the other bits are only Read (With a initial value of 0)
>> When I do the command $1d c@ . I get a value of 0001000. How is that
>> possible? Or do I something wrong?
> 
> The answer to this lies in the memory map of the AVR.  If you look at
> page 72 in the datasheet you will see the address for EIMSK given as
> 
> 0x1D (0x3D)
> 
> Yes, two addresses.
> 
> To see the contents of EIMSK in AmForth using c@ you need
> 
> $3d c@
> 
> For the why see page 19 of the datasheet combined with a
> Google of "avr memory map offset $20" 
> 
> The file amforth-root/avr8/devices/atmega328p/atmega328p.frt contains 
> 
> &61 constant EIMSK	\ External Interrupt Mask Register
> 
> (where &61 is $3d) along with the other constants and is a very useful
> file.
> 
> Tristan
> 
> 
> 
> 
> 
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

Re: [Amforth] External Interrupt Mask Register

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

Jan,

> The address is $1d. When I look to the documentation te bits 0 and 1
> are R/W and the other bits are only Read (With a initial value of 0)
> When I do the command $1d c@ . I get a value of 0001000. How is that
> possible? Or do I something wrong?

The answer to this lies in the memory map of the AVR.  If you look at
page 72 in the datasheet you will see the address for EIMSK given as

0x1D (0x3D)

Yes, two addresses.

To see the contents of EIMSK in AmForth using c@ you need

$3d c@

For the why see page 19 of the datasheet combined with a
Google of "avr memory map offset $20" 

The file amforth-root/avr8/devices/atmega328p/atmega328p.frt contains 

&61 constant EIMSK	\ External Interrupt Mask Register

(where &61 is $3d) along with the other constants and is a very useful
file.

Tristan

[Amforth] External Interrupt Mask Register

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

Hi,

I have a strange behavior and can’t explain.
The ATmega328P supports two external interrupts which are individually enabled by setting bits INT1 and INT0 in the External Interrupt Mask Register (EIMSK)
The address is $1d. When I look to the documentation te bits 0 and 1 are R/W and the other bits are only Read (With a initial value of 0)

When I do the command $1d c@ . I get a value of 0001000. How is that possible? Or do I something wrong?


This code I are try to do in AmForth:

\ PD2_interrupt
\ Rotary switch is connected to pin 2 and 4

marker --pd2_interrupt--

PORTD 2 portpin: ROTARYPA
PORTD 4 portpin: ROTARYPB
ROTARYPA pin_input
ROTARYPB pin_input

$69 constant EICRA \ External Interrupt Control Register A
$1d constant EIMSK \ External Interrupt Mask Register
0   constant ISC00
0   constant INT0  \ Interrupt on port PD2
1   constant INT1  \ Interrupt on port PD3

0 variable rotaryCount
0 variable lastRotaryCount

: << lshift ;

: rotaryTurn
  \ Interupt service routine for change to Rotary encoder pin A
  \  ROTARYPB pin_high? if -1 rotaryCount +! else 1 rotaryCount +! then
;


: pd2_interrupt.init ( -- )
    -int
    EICRA c@ 1 ISC00 << or EICRA c! \ set INT0 to trigger on ANY logic change
    EIMSK c@ 1 INT0  << or EIMSK c! \ Turns on INT0, PD2
    +int                            \ turn on interrupts

;

: pd2.start
    ['] rotaryTurn INT0Addr int!
    pd2_interrupt.init
;


When I start I get this error:

amforth 6.7 ATmega328P Forthduino
>
 ok
> pd2.start
 ?? -4 -21248
>
 ok
>
 ok
>
 ok
>
 ok
>
 ok
>
 ok
>
 ok
>
 ok
>
 ok
>
 ?? -13 -21425
>
 ?? -13 -22213
>
 ok
>
 ok
>
 ok
>
 ?? -13 -21241
>
 ?? -13 -21052
>
 ok
>
 ?? -13 -21103

and more and more


Cheers,

Jan



And this is the code in AVR Assembler

ATmega168/328 Code:
#include <avr/io.h>
#include <avr/interrupt.h>


int main(void)
{
    DDRD &= ~(1 << DDD2);     // Clear the PD2 pin
    // PD2 (PCINT0 pin) is now an input

    PORTD |= (1 << PORTD2);    // turn On the Pull-up
    // PD2 is now an input with pull-up enabled



    EICRA |= (1 << ISC00);    // set INT0 to trigger on ANY logic change
    EIMSK |= (1 << INT0);     // Turns on INT0

    sei();                    // turn on interrupts

    while(1)
    {
        /*main program loop here */
    }
}



ISR (INT0_vect)
{
    /* interrupt code here */
}

Re: [Amforth] Question about Timer1 - is there a bug?

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

> My leaving question is the word   “f_cpu” in the code of Timer1.frt.
> When I execute it I get two values on the stack.

It's the current clock the controller is running at.
It's a double cell number, since the 16bit controllers
run too fast to keep this number in a single cell.

Matthias

Re: [Amforth] Rotery-encoder

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

Hi Jan,,
have a look at 
https://neu.forth-ev.de/wiki/res/lib/exe/fetch.php/vd-archiv:4d2018-02.pdf

There is a topic: Drehgeber i.e. rotary encoder.

Regards Martin



Am Samstag, 3. November 2018, 20:39:18 CET schrieb Jan Kromhout via 
Amforth-devel:
> Hello,
> 
> Has someone tried to get a rotary-encoder/switch running under 
amforth with
> interupt0 ( conected on pin 2and 3) . Or add a swich, and let it reacted
> with this interrupt.
> 
> Have tried with no succes.
> 
> Thanks for any help.
> 
> 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] Rotery-encoder

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

Hello,

Has someone tried to get a rotary-encoder/switch running under amforth with interupt0 ( conected on pin 2and 3) .
Or add a swich, and let it reacted with this interrupt.

Have tried with no succes.

Thanks for any help.

Cheers,  

Jan

Re: [Amforth] Question about Timer1 - is there a bug?

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

Hi,

Thanks all for the suggestions. After reload the timer after every interrupt it is working great.

My leaving question is the word   “f_cpu” in the code of Timer1.frt. When I execute it I get two values on the stack.

What is the meaning of this two values?

Cheers,

Jan





Op 3 nov. 2018, om 12:31 heeft Richard Burden <ric...@gm...<mailto:ric...@gm...>> het volgende geschreven:

Hi Jan

I suggest that the ISR has to toggle the pin and re-load the timer1 counter.

From memory timer1 counts upwards and once it overflows it just keeps
counting up from zero unless you re-load it.

Regards
Richard

On 11/3/18, Jan Kromhout <kro...@ho...<mailto:kro...@ho...>> wrote:
Hi,

I have taken the TIMER_1 example, and make some small change.
Instead of the timer1.tick I toggle pin-7 of the Arduino.
With the values as in the listing I measure a frequency of 15,2 Hz with my
scoop.

When I change some of the preload value by hand no change is seeing.
Frequency is staying at 15,2 Hz.

When I print the value of TCNT1 after setting, and compare this one after
timer1.start there is a difference

First value = 63536 and the Second value = 31033.

I think some where in amForth TCNT1 is overwritten!

Please can you take a look.

I included my program.

Cheers,

Jan

\ TIMER1_interrupt

marker --timer1_interrupt--

PORTD 7 portpin: PD7
PD7 pin_output

&26 constant TIMER1_OVFAddr

: togglePD7
  PD7 pin_high? if PD7 low else PD7 high then
;

: timer1.isr
 \ toggle output PD7
 togglePD7
;

\ preload for overflow interrupt every 1 ms
\ preload = 65536 - (f_cpu / (prescaler * 1000))

: timer1.preload
  f_cpu #1000 um/mod nip 8 / negate  \ <===== if i change the value #1000
notting is change
;

: timer1.init ( -- )
   timer1.preload TCNT1 !
   TCNT1 @ u. cr   \ <===============  print value of TCNT1 ===========
   ['] timer1.isr TIMER1_OVFAddr int!
;

: timer1.start
   -int
   timer1.init
   %00000010 TCCR1B c! \ prescaler 8
   %00000001 TIMSK1 c! \ enable overflow interrupt
   +int
;

: timer1.stop
  %00000000 TCCR1B c! \ stop timer
  %00000000 TIMSK1 c! \ stop interrupt
;



_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
Amf...@li...<mailto:Amf...@li...>
https://lists.sourceforge.net/lists/listinfo/amforth-devel



_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
Amf...@li...<mailto:Amf...@li...>
https://lists.sourceforge.net/lists/listinfo/amforth-devel

Re: [Amforth] Question about Timer1 - is there a bug?

[Richard B. <ric...@gm...>]

Hi Jan

I suggest that the ISR has to toggle the pin and re-load the timer1 counter.

>From memory timer1 counts upwards and once it overflows it just keeps
counting up from zero unless you re-load it.

Regards
Richard

On 11/3/18, Jan Kromhout <kro...@ho...> wrote:
> Hi,
>
> I have taken the TIMER_1 example, and make some small change.
> Instead of the timer1.tick I toggle pin-7 of the Arduino.
> With the values as in the listing I measure a frequency of 15,2 Hz with my
> scoop.
>
> When I change some of the preload value by hand no change is seeing.
> Frequency is staying at 15,2 Hz.
>
> When I print the value of TCNT1 after setting, and compare this one after
> timer1.start there is a difference
>
> First value = 63536 and the Second value = 31033.
>
> I think some where in amForth TCNT1 is overwritten!
>
> Please can you take a look.
>
> I included my program.
>
> Cheers,
>
> Jan
>
> \ TIMER1_interrupt
>
> marker --timer1_interrupt--
>
> PORTD 7 portpin: PD7
> PD7 pin_output
>
> &26 constant TIMER1_OVFAddr
>
> : togglePD7
>    PD7 pin_high? if PD7 low else PD7 high then
> ;
>
> : timer1.isr
>   \ toggle output PD7
>   togglePD7
> ;
>
> \ preload for overflow interrupt every 1 ms
> \ preload = 65536 - (f_cpu / (prescaler * 1000))
>
> : timer1.preload
>    f_cpu #1000 um/mod nip 8 / negate  \ <===== if i change the value #1000
> notting is change
> ;
>
> : timer1.init ( -- )
>     timer1.preload TCNT1 !
>     TCNT1 @ u. cr   \ <===============  print value of TCNT1 ===========
>     ['] timer1.isr TIMER1_OVFAddr int!
> ;
>
> : timer1.start
>     -int
>     timer1.init
>     %00000010 TCCR1B c! \ prescaler 8
>     %00000001 TIMSK1 c! \ enable overflow interrupt
>     +int
> ;
>
> : timer1.stop
>    %00000000 TCCR1B c! \ stop timer
>    %00000000 TIMSK1 c! \ stop interrupt
> ;
>
>
>
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
>

[Amforth] Question about Timer

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

I agree with that. I came to the same conclusion. Checked yesterday also the code and found no action on this address.
Tristian gave me a hint, and I will try it.

Cheers,

Jan

Re: [Amforth] Question about Timer1 - is there a bug?

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

> I think some where in amForth TCNT1 is overwritten!

I can assure you, that there is no code in plain amforth
that overwrites your settings. It's either your code or
the hardware itself.

Matthias

Re: [Amforth] Overwritten timer1

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

Jan,

If you want to see different frequencies using your code I think you
will need to reset TCNT1 to the value you want in your overflow isr. 
 
: timer1.isr

  \ toggle output PD7

  togglePD7

  \ reset TCNT1
  
  your-value TCNT1 !    
;

However, using CTC mode would be more accurate and efficient. Also if
you are not too fussed on your multiplexing frequency then a different
choice of timer and prescaler might make it easier. Your C code
mentioned 200Hz I think. Have a look at timer0 (8 bit) with a /256
prescaler and an overflow isr.

Best wishes,
Tristan

On 02Nov18 21:33, Jan Kromhout wrote:
> Thanks Tristian,
> 
> Yes, I’m looking for something i can use for multplexing 7-segment displays.
> But still strange I can’t use this timer freely.
> How could we figger out where this oceurs?
> 
> But still thanks again for your helpfull remarks.
> 
> Cheers,
> 
> Jan
> 
> 
> Verstuurd vanaf mijn iPad
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel

[Amforth] Overwritten timer1

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

Thanks Tristian,

Yes, I’m looking for something i can use for multplexing 7-segment displays.
But still strange I can’t use this timer freely.
How could we figger out where this oceurs?

But still thanks again for your helpfull remarks.

Cheers,

Jan


Verstuurd vanaf mijn iPad

Re: [Amforth] Question about Timer1 - is there a bug?

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

Jan,

> I think some where in amForth TCNT1 is overwritten!

Indeed. Every time timer1 overflows. 

> When I change some of the preload value by hand no change is seeing.
> Frequency is staying at 15,2 Hz.

Yes. You are seeing a frequency of

16000000 divided by 8      (for the prescaler)
         divided by 65536  (for each rollover of the timer1)
	 divided by 2      (for the LED toggle)

which gives a theoretical 15.3Hz , close to your observed value.

Are you looking to generate something for multiplexing a display?
There might be an easier way, if that is the case.

Best wishes,
Tristan

On 02Nov18 20:09, Jan Kromhout wrote:
> Hi,
> 
> I have taken the TIMER_1 example, and make some small change.
> Instead of the timer1.tick I toggle pin-7 of the Arduino.
> With the values as in the listing I measure a frequency of 15,2 Hz with my scoop.
> 
> When I change some of the preload value by hand no change is seeing.
> Frequency is staying at 15,2 Hz.
> 
> When I print the value of TCNT1 after setting, and compare this one after
> timer1.start there is a difference
> 
> First value = 63536 and the Second value = 31033.
> 
> I think some where in amForth TCNT1 is overwritten!
> 
> Please can you take a look.
> 
> I included my program.
> 
> Cheers,
> 
> Jan
> 
> \ TIMER1_interrupt
> 
> marker --timer1_interrupt--
> 
> PORTD 7 portpin: PD7
> PD7 pin_output
> 
> &26 constant TIMER1_OVFAddr
> 
> : togglePD7
>    PD7 pin_high? if PD7 low else PD7 high then
> ;
> 
> : timer1.isr
>   \ toggle output PD7
>   togglePD7
> ;
> 
> \ preload for overflow interrupt every 1 ms
> \ preload = 65536 - (f_cpu / (prescaler * 1000))
> 
> : timer1.preload
>    f_cpu #1000 um/mod nip 8 / negate  \ <===== if i change the value #1000 notting is change
> ;
> 
> : timer1.init ( -- )
>     timer1.preload TCNT1 !
>     TCNT1 @ u. cr   \ <===============  print value of TCNT1 ===========
>     ['] timer1.isr TIMER1_OVFAddr int!
> ;
> 
> : timer1.start
>     -int
>     timer1.init
>     %00000010 TCCR1B c! \ prescaler 8
>     %00000001 TIMSK1 c! \ enable overflow interrupt
>     +int
> ;
> 
> : timer1.stop
>    %00000000 TCCR1B c! \ stop timer
>    %00000000 TIMSK1 c! \ stop interrupt
> ;
> 
> 
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
> 

[Amforth] Question about Timer1 - is there a bug?

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

Hi,

I have taken the TIMER_1 example, and make some small change.
Instead of the timer1.tick I toggle pin-7 of the Arduino.
With the values as in the listing I measure a frequency of 15,2 Hz with my scoop.

When I change some of the preload value by hand no change is seeing.
Frequency is staying at 15,2 Hz.

When I print the value of TCNT1 after setting, and compare this one after
timer1.start there is a difference

First value = 63536 and the Second value = 31033.

I think some where in amForth TCNT1 is overwritten!

Please can you take a look.

I included my program.

Cheers,

Jan

\ TIMER1_interrupt

marker --timer1_interrupt--

PORTD 7 portpin: PD7
PD7 pin_output

&26 constant TIMER1_OVFAddr

: togglePD7
   PD7 pin_high? if PD7 low else PD7 high then
;

: timer1.isr
  \ toggle output PD7
  togglePD7
;

\ preload for overflow interrupt every 1 ms
\ preload = 65536 - (f_cpu / (prescaler * 1000))

: timer1.preload
   f_cpu #1000 um/mod nip 8 / negate  \ <===== if i change the value #1000 notting is change
;

: timer1.init ( -- )
    timer1.preload TCNT1 !
    TCNT1 @ u. cr   \ <===============  print value of TCNT1 ===========
    ['] timer1.isr TIMER1_OVFAddr int!
;

: timer1.start
    -int
    timer1.init
    %00000010 TCCR1B c! \ prescaler 8
    %00000001 TIMSK1 c! \ enable overflow interrupt
    +int
;

: timer1.stop
   %00000000 TCCR1B c! \ stop timer
   %00000000 TIMSK1 c! \ stop interrupt
;

Re: [Amforth] Question about Timer-1

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

> Is it correct that I can use this timer with his interrupts freely
> without any harm/restrictions for Amforth?

Yes, that's correct.

Matthias

[Amforth] Question about Timer-1

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

Hi,

I have take a look into the excellent work of Erich Walde “Clock Works”.
When I walk trough the code I see that Timer1 is used freely.

Is it correct that I can use this timer with his interrupts freely without any harm/restrictions for Amforth?

Cheers,

Jan

[Amforth] Timer Interrupt

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

Hello,

On my regular Arduino I have running a processes under the Timer-Interrupt.
At a frequentie of 200 Hz my routine is updating ISR(TIMER1_COMPA_vect). See my code below.
How can I activate this kind of process in amForth?
I appreciate all help.

Cheers,

Jan




void setup() {
  noInterrupts();
  TCCR1A = 0;
  TCCR1B = 0;
  TCNT1  = 0;

  /* Set timer values */
  long f=200; /*200 Hz*/
  long value = 16000000/256/f;
  OCR1A = (int)value ;  
  TCCR1B =  0b00001100;
  TIMSK1 =  0b00000010;
  interrupts();
}



ISR(TIMER1_COMPA_vect)
{
  /*per interrupt wordt een van de vier 7-segment display's
    aangestuurd. Oog kan deze snelle verandering niet volgen.
    Komt de refresh onder de 150 hz gaan ze flikkeren
  */
  WriteValueToSegment(idx, SEGMENT_MAP_DIGIT[Seven_segment_display[idx]]);
  idx += 1;
  if (idx > 3)
    idx = 0;
}

[Amforth] Thanks

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

Hi,

Thanks all, information was very helpful.

Cheers,

Jan

Re: [Amforth] shiftOut

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

Jan,

>From Erich Wälde's excellent commented project "Clock Works" I would recommend

http://amforth.sourceforge.net/Projects/ClockWorks/07_shift_register.html

Regards,
Tristan



On 31Oct18 10:11, Jan Kromhout wrote:
> Hi,
> 
> Is there a equivalence of the Arduino "shiftOut(dataPin, clockPin, bitOrder, value)" in Amforth?
> 
> Cheers,
> 
> Jan
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
>