/* llatob(vp,p,base) converts p to binary result in vp, rtn 1 on success  */
int llatob(u_quad_t *vp, char *p, int base)
/* llatob(vp,p,base) converts p to binary result in vp, rtn 1 on success  */
int llatob(u_quad_t *vp, char *p, int base)
{
    if (base == 0)
        p = _getbase (p, &base);
    return _atob(vp, p, base);
}