Yield.ino

Go to the documentation of this file.

#include "FVM.h"

#if 0
// : sketch ( -- ) halt ;
FVM_COLON(0, SKETCH, "sketch")
  FVM_OP(HALT),
  FVM_OP(EXIT)
};
#else
// : sketch ( -- ) begin yield again ;
FVM_COLON(0, SKETCH, "sketch")
  FVM_OP(YIELD),
  FVM_OP(BRANCH), -2,
  FVM_OP(EXIT)
};
#endif

// Sketch function table
const FVM::code_P FVM::fntab[] PROGMEM = {
  SKETCH_CODE
};

// Sketch symbol table
const str_P FVM::fnstr[] PROGMEM = {
  (str_P) SKETCH_PSTR,
  0
};

FVM::Task<32,16> task(Serial, SKETCH_CODE);
FVM fvm;

void setup()
{
  Serial.begin(57600);
  while (!Serial);
}

void loop()
{
  int i = 1000;
  uint32_t start = micros();
  while (--i) fvm.resume(task);
  uint32_t stop = micros();
  float us = (stop-start) / 1000.0;
  Serial.print(us);
  Serial.println(F(" us"));
  Serial.flush();
  delay(100);
}