/****************************************************************/
/*								*/
/*	Title:		ascebc					*/
/*	Author:		T.F. O'Brien				*/
/*			U.S.G.S.				*/
/*			Woods Hole, MA.				*/
/*	Date:		1989					*/
/*	Purpose:	To convert ASCII to EBCDIC		*/
/*								*/
/****************************************************************/


char    table[] =
{
    0, 1, 2, 3, 55, 45, 46, 47, 22, 5, 37, 11, 12, 13, 14, 15, 16,
    17, 18, 100, 60, 61, 50, 100, 24, 25, 63, 39, 34, 100, 53, 100,
    64, 90, 127, 123, 91, 108, 80, 125, 77, 93, 92, 72, 107, 96,
    75, 97, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 122,
    94, 100, 126, 110, 111, 124, 193, 194, 195, 196, 197, 198, 199,
    200, 201, 209, 210, 211, 212, 213, 214, 215, 216, 217, 226, 227,
    228, 229, 230, 231, 232, 233, 100, 100, 100, 100, 109, 121, 129,
    130, 131, 132, 133, 134, 135, 136, 137, 145, 146, 147, 148, 149,
    150, 151, 152, 153, 162, 163, 164, 165, 166, 167, 168, 169, 100,
    143, 100, 161, 7
};

void ascebc (inbuf, outbuf, nchars)


char   *inbuf,
       *outbuf;
int     nchars;

{
    int     k;

    for (k = 0; k < nchars; k++)
	outbuf[k] = table[inbuf[k]];

}