/* lmtest.c
   L. Stewart January 12, 1984  3:51 PM
 */

#include <Ec.h>
#include <Env.h>
#include <Queue.h>
#include <Pup.h>

extern struct Queue ctxQ;
static int loopCtx;
static int loopSpace;

extern /*forward*/Loop();

main()
  {
  InitOS();
  InitPupLevel1(&ctxQ, 10, defaultPupDataBytes);
  loopSpace = GetFixed(300);
  loopCtx = InitNContext("Loop", loopSpace, 300, &Loop);
  Enqueue(&ctxQ, loopCtx);
  ELoad();
  InitMeter();
  for (;;) {
    CtxListStart();
    CallContext(ctxQ.head);
    CtxListEnd();
    CheckWDT();
    };
  };

static Loop()
  {
  for (;;) {
    Block();
    DoMeter();
    };
  };