home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
LANGUAGS
/
C
/
EBCDIC.CQ
/
EBCDIC.C
Wrap
Text File
|
2000-06-30
|
3KB
|
67 lines
char ebcasc(str, count)
char *str;
unsigned count;
{
static char asc[256] = {0,
1, 2, 3, '.', 9, '.', 0x7f, '.', '.', /* 0 */
'.', 0xb, 0xc, 0xd, 0xe, 0xf, 0x10, 0x11, 0x12, 0x13, /* 10 */
'.', '.', 8, '.', 0x18, 0x19, '.', '.', 28 , 29 , /* 20 */
30 , 31 , '.', '.', '.', '.', '.', 0xa, 23 , 27 , /* 30 */
'.', '.', '.', '.', '.', 5 , 0x6, 0x7, '.', '.', /* 40 */
22 , '.', '.', '.', '.', 4 , '.', '.', '.', '.', /* 50 */
20 , 21 , '.', 26 , ' ', '.', '.', '.', '.', '.', /* 60 */
'.', '.', '.', '.', '[', '.', '<', '(', '+', '!', /* 70 */
'&', '.', '.', '.', '.', '.', '.', '.', '.', '.', /* 80 */
']', '$', '*', ')', ';', '^', '-', '/', '.', '.', /* 90 */
'.', '.', '.', '.', '.', '.', '|', ',', '%', '_', /* 100 */
'>', '?', '.', '.', '.', '.', '.', '.', '.', '.', /* 110 */
'.', '.', ':', '#', '@', '\'', '=', '"', '.', 'a', /* 120 */
'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', '.', '.', /* 130 */
'.', '.', '.', '.', '.', 'j', 'k', 'l', 'm', 'n', /* 140 */
'o', 'p', 'q', 'r', '.', '.', '.', '.', '.', '.', /* 150 */
'.', '~', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', /* 160 */
'.', '.', '.', '.', '.', '.', '.', '.', '.', '.', /* 170 */
'.', '.', '.', '.', '.', '.', '.', '.', '.', '.', /* 180 */
'.', '.', '{', 'A', 'B', 'C', 'D', 'E', 'F', 'G', /* 190 */
'H', 'I', '.', '.', '.', '.', '.', '.', '}', 'J', /* 200 */
'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', '.', '.', /* 210 */
'.', '.', '.', '.', '\\', '.', 'S', 'T', 'U', 'V', /* 220 */
'W', 'X', 'Y', 'Z', '.', '.', '.', '.', '.', '.', /* 230 */
'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', /* 240 */
'.', '.', '.', '.', '.', '.'}; /* 250 */
while (count--)
{
*str = asc[*str];
++str;
}
}
int ascebc(str, count)
char *str;
unsigned count;
{
static char ebc[128] = {0,
1,2,3,55,45,46,47,
22,5,37,11,12,13,14,15,
16,17,18,19,60,61,50,38,
24,25,63,39,28,29,30,31,
64,79,127,123,91,108,80,125,
77,93,92,78,107,96,75,97,
240,241,242,243,244,245,246,247,
248,249,122,94,76,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,74,224,90,95,109,
75,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,192,106,208,161,7
};
while (count--)
{
*str = ebc[*str];
++str;
}
}