PBIO_PORTC
*val = (pbinb(scp, PBIO_PORTC) >> 4) & 0xf;
*val = pbinb(scp, PBIO_PORTC) & 0xf;
oval = pbinb(scp, PBIO_PORTC);
pboutb(scp, PBIO_PORTC, val | oval);
oval = pbinb(scp, PBIO_PORTC);
pboutb(scp, PBIO_PORTC, oval | val);