TIP
out_8(&via[B], in_8(&via[B]) | TIP);
out_8(&via[B], in_8(&via[B]) & ~TIP);
out_8(&via[B], in_8(&via[B]) | TIP | TACK);
out_8(&via[B], in_8(&via[B]) & ~(TIP | TACK));
out_8(&via[B], in_8(&via[B]) & ~(TIP | TACK));
out_8(&via[B], in_8(&via[B]) | TIP | TACK);
} else if (in_8(&via[B]) & TIP) {
out_8(&via[DIRB], (in_8(&via[DIRB]) | TACK | TIP) & ~TREQ); /* TACK & TIP out */
status = in_8(&via[B]) & (TIP | TACK | TREQ);