#include "../spec.h"

Let Peek(Co co, Event event)
{
    Let chunk = event >> 3;
    Let shift = event % 8;//& 7;
    Let flag = 1;
    flag <<= shift;
    if (chunk < MAX)
    if (co->mmission[chunk] != 0)
    if ((co->mmission[chunk] & flag) != 0)
    return 1;
    return 0;
}

void Poke(Co co, Event event)
{
    Let chunk = event  >> 3;
    Let shift = event % 8; //event & 7;
    Let flag = 1;
    flag <<= shift;
    if (chunk < MAX)
    co->mmission[chunk] |= flag;
}

void Clean(Co co)
{
    for (Let i=0;i<MAX;i++)
    co->mmission[i]=0;
}