ebcasc.c

seismic software,very useful

/* ebcdic/ascii conversions 
*
* ascii to ebcdic
*     call fascii (in, out, length, ibitof)  in fortran
*          fascii_(in, out, length, ibitof)  in c
* ebcdic to ascii
*     call tascii (in, out, length, ibiton)  in fortran
*          tascii_(in, out, length, ibiton)  in c
*
* input arguments
*     in     - beginning address of data to be converted to other code.
*
*     out    - beginning address of area where converted data is to be
*              stored.
*     in and out are singly indirect, so any array or common block name
*     will do; just count the length carefully!
*
*     length - integer - number of bytes to be converted,
*
*     ibitof - integer - 0 = normal conversion
*                        1 = turn off high order bit before conversion 
*			 ibitof is meaningless in this context; the high
*			 bit is always masked. ibitof is retained only
*			 for backwards compatibility. the mvs version
*			 produced garbage if 8 bit data was passed and
*			 ibitof was not set.
*
*     ibiton - integer - 0 = normal conversion
*                        1 = turn on high order bit after conversion
*
*/

#include "wgc.h"
#include "par.h"
#include <stdio.h>



/* convert ascii to ebcdic */
int fascii_(unsigned char *in,unsigned char *out,int length,int ibitof)

{
  int i;
/* conversion table */

  unsigned char astoeb_tbl[128] =
		 {
 			0x00,0x01,0x02,0x03,0x37,0x2d,0x2e,0x2f,
 			0x16,0x05,0x25,0x0b,0x0c,0x0d,0x0e,0x0f,
			0x10,0x11,0x12,0x13,0x3c,0x3d,0x32,0x26,
			0x18,0x19,0x3f,0x27,0x1c,0x1d,0x1e,0x1f,
			0x40,0x5a,0x7f,0x7b,0x5b,0x6c,0x50,0x7d,
			0x4d,0x5d,0x5c,0x4e,0x6b,0x60,0x4b,0x61,
			0xf0,0xf1,0xf2,0xf3,0xf4,0xf5,0xf6,0xf7,
			0xf8,0xf9,0x7a,0x5e,0x4c,0x7e,0x6e,0x6f,
			0x7c,0xc1,0xc2,0xc3,0xc4,0xc5,0xc6,0xc7,
			0xc8,0xc9,0xd1,0xd2,0xd3,0xd4,0xd5,0xd6,
			0xd7,0xd8,0xd9,0xe2,0xe3,0xe4,0xe5,0xe6,
			0xe7,0xe8,0xe9,0xad,0xe0,0xbd,0x5f,0x6d,
			0x79,0x81,0x82,0x83,0x84,0x85,0x86,0x87,
			0x88,0x89,0x91,0x92,0x93,0x94,0x95,0x96,
			0x97,0x98,0x99,0xa2,0xa3,0xa4,0xa5,0xa6,
			0xa7,0xa8,0xa9,0xc0,0x6a,0xd0,0xa1,0x07
		 };

  for(i = 0; i <= length-1; i++)
      out[i] = astoeb_tbl[(in[i] & 0x7f)];
}




/* convert ebcdic to ascii */


int tascii_(unsigned char *in,unsigned char *out, int length, int ibiton)

{
  int i;
/* conversion table */

  unsigned char ebtoas_tbl[256] =
		 {
			0x00,0x01,0x02,0x03,0x1a,0x09,0x1a,0x7f,
			0x1a,0x1a,0x1a,0x0b,0x0c,0x0d,0x0e,0x0f,
			0x10,0x11,0x12,0x13,0x1a,0x1a,0x08,0x1a,
			0x18,0x19,0x1a,0x1a,0x1c,0x1d,0x1e,0x1f,
			0x1a,0x1a,0x1a,0x1a,0x1a,0x0a,0x17,0x1b,
			0x1a,0x1a,0x1a,0x1a,0x1a,0x05,0x06,0x07,
			0x1a,0x1a,0x16,0x1a,0x1a,0x1a,0x1a,0x04,
			0x1a,0x1a,0x1a,0x1a,0x14,0x15,0x1a,0x1a,
			0x20,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,
			0x1a,0x1a,0x5b,0x2e,0x3c,0x28,0x2b,0x7c,
			0x26,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,
			0x1a,0x1a,0x21,0x24,0x2a,0x29,0x3b,0x5e,
			0x2d,0x2f,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,
			0x1a,0x1a,0x7c,0x2c,0x25,0x5f,0x3e,0x3f,
			0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,
			0x1a,0x60,0x3a,0x23,0x40,0x27,0x3d,0x22,
			0x1a,0x61,0x62,0x63,0x64,0x65,0x66,0x67,
			0x68,0x69,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,
			0x1a,0x6a,0x6b,0x6c,0x6d,0x6e,0x6f,0x70,
			0x71,0x72,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,
			0x1a,0x7e,0x73,0x74,0x75,0x76,0x77,0x78,
			0x79,0x7a,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,
			0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,
			0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,
			0x7b,0x41,0x42,0x43,0x44,0x45,0x46,0x47,
			0x48,0x49,0x1a,0x1a,0x5b,0x1a,0x5d,0x1a,
			0x7d,0x4a,0x4b,0x4c,0x4d,0x4e,0x4f,0x50,
			0x51,0x52,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,
			0x5c,0x1a,0x53,0x54,0x55,0x56,0x57,0x58,
			0x59,0x5a,0x1a,0x1a,0x1a,0x1a,0x1a,0x1a,
			0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,
			0x38,0x39,0x7c,0x1a,0x1a,0x1a,0x1a,0x1a
		 };

  if (ibiton == 0)
      for(i = 0; i <= length-1; i++)
          out[i] = ebtoas_tbl[(in[i])];
  else if (ibiton == 1)
      for(i = 0; i <= length-1; i++)
          out[i] = ebtoas_tbl[(in[i])] & 0xff;
}