MultiBlink.ino

Go to the documentation of this file.

#include <FVM.h>

// Define to allow trace of virtual machine
#define USE_TRACE

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

// : blink ( ms pin -- )
//   OUTPUT over pinmode
//   begin
//     dup digitaltoggle
//     over delay
//   again ;
FVM_COLON(1, BLINK, "blink")
  FVM_CALL(OUTPUT_MODE),
  FVM_OP(OVER),
  FVM_OP(PINMODE),
    FVM_OP(DUP),
    FVM_OP(DIGITALTOGGLE),
    FVM_OP(OVER),
    FVM_OP(DELAY),
  FVM_OP(BRANCH), -5,
  FVM_OP(EXIT)
};

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

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

FVM::Task<16,8> task1(Serial);
FVM::Task<16,8> task2(Serial);
FVM fvm;

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

#if defined(USE_TRACE)
  task1.trace(true);
  task2.trace(true);
#endif

  // 500 13 blink
  task1.push(500);
  task1.push(13);
  fvm.execute(BLINK_CODE, task1);

  // 100 12 blink
  task2.push(100);
  task2.push(12);
  fvm.execute(BLINK_CODE, task2);
}

void loop()
{
  fvm.resume(task1);
  fvm.resume(task2);
}