TAPE_BLOCK_MARK_MASK
#define TAPE_BLOCK_SIZE_MASK (~TAPE_BLOCK_MARK_MASK)
#define TAPE_BLOCK_MARK(a) (a & TAPE_BLOCK_MARK_MASK)