to_char
*--cp = to_char(val);
*--cp = to_char(val % 10);
*--cp = to_char(sval % 10);
*--cp = to_char(val & 1);
*--cp = to_char(val & 7);
*--cp = to_char(val % 10);
*--cp = to_char(val % 10);
*--cp = to_char(sval % 10);
*--cp = to_char(val & 1);
*--cp = to_char(val & 7);
*--t = to_char(exp % 10);
*--t = to_char(exp);
*p++ = to_char(exp);
*--t = to_char(expo % 10);
*--t = to_char(expo);
*p++ = to_char(expo);
*--cp = to_char(val);
*--cp = to_char(val % 10);
*--cp = to_char(sval % 10);
*--cp = to_char(val & 7);
*--cp = to_char(val % 10);
*--cp = to_char(val % 10);
*--cp = to_char(sval % 10);
*--cp = to_char(val & 7);