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-devel mailing list for http://amforth.sf.net/
Amforth-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amforth-devel

Reply via email to