Blink.ino

Go to the documentation of this file.

#define MEASURE
#define BLINK_SKETCH
#define BLINK_TRACE
#define BLINK_RUN
#define CODE_GENERATED

// Enable/disable virtual machine code
#if defined(BLINK_SKETCH)
#include "FVM.h"

// Use code generated or manual coded blink sketch
#if defined(CODE_GENERATED)

/* Source code for token compiler. Note: constants for OUTPUT and LED.
----------------------------------------------------------------------
1 constant OUTPUT
13 constant LED
: blink ( ms pin -- ) begin dup digitaltoggle over delay again ;
: sketch ( -- ) OUTPUT LED pinmode 500 LED blink halt ;
generate-code
----------------------------------------------------------------------
*/

const char WORD0_PSTR[] PROGMEM = "OUTPUT";
const FVM::const_t WORD0_CONST[] PROGMEM = {
  FVM::OP_CONST, 1
};
const char WORD1_PSTR[] PROGMEM = "LED";
const FVM::const_t WORD1_CONST[] PROGMEM = {
  FVM::OP_CONST, 13
};
const char WORD2_PSTR[] PROGMEM = "blink";
const FVM::code_t WORD2_CODE[] PROGMEM = {
  45, 127, 47, 123, 10, -5, 0
};
const char WORD3_PSTR[] PROGMEM = "sketch";
const FVM::code_t WORD3_CODE[] PROGMEM = {
  -1, -2, 124, 2, -12, 1, -2, -3, 20, 0
};
const FVM::code_P FVM::fntab[] PROGMEM = {
  (code_P) &WORD0_CONST,
  (code_P) &WORD1_CONST,
  WORD2_CODE,
  WORD3_CODE
};
const str_P FVM::fnstr[] PROGMEM = {
  (str_P) WORD0_PSTR,
  (str_P) WORD1_PSTR,
  (str_P) WORD2_PSTR,
  (str_P) WORD3_PSTR,
  0
};

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

#else

/* Manually translated to C++ source code using FVM macro set:
----------------------------------------------------------------------
1 constant OUTPUT
13 constant LED
: blink ( ms pin -- ) begin dup digitaltoggle over delay again ;
: sketch ( -- ) OUTPUT LED pinmode 500 LED blink halt ;
----------------------------------------------------------------------
*/

FVM_CONSTANT(0, OUTPUT_MODE, "OUTPUT", 1);

FVM_CONSTANT(1, LED_PIN, "LED", 13);

FVM_COLON(2, BLINK, "blink")
    FVM_OP(DUP),
    FVM_OP(DIGITALTOGGLE),
    FVM_OP(OVER),
    FVM_OP(DELAY),
  FVM_OP(BRANCH), -5,
  FVM_OP(EXIT)
};

FVM_COLON(3, SKETCH, "sketch")
  FVM_CALL(OUTPUT_MODE),
  FVM_CALL(LED_PIN),
  FVM_OP(PINMODE),
  FVM_LIT(500),
  FVM_CALL(LED_PIN),
  FVM_CALL(BLINK),
  FVM_OP(HALT)
};

const FVM::code_P FVM::fntab[] PROGMEM = {
  (code_P) &OUTPUT_MODE_CONST,
  (code_P) &LED_PIN_CONST,
  BLINK_CODE,
  SKETCH_CODE
};

const str_P FVM::fnstr[] PROGMEM = {
  (str_P) OUTPUT_MODE_PSTR,
  (str_P) LED_PIN_PSTR,
  (str_P) BLINK_PSTR,
  (str_P) SKETCH_PSTR,
  0
};

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

FVM fvm;
#endif

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

  // Enable/disable trace
#if defined(BLINK_TRACE)
  task.trace(true);
#endif
}

void loop()
{
  // Enable/disable measurement
#if defined(MEASURE)
  uint32_t start = micros();
#endif

  // Enable/disable resume (base-line foot-print)
#if defined(BLINK_RUN)
  fvm.resume(task);
#endif

  // Enable/disable measurement
#if defined(MEASURE)
  uint32_t stop = micros();
  uint32_t us = stop-start;
  Serial.print(stop);
  Serial.print(':');
  Serial.println(us);
  Serial.flush();
  delay(100);
#endif
}