src/pocket39.c p39shift()