ebcdic-to-ascii.rex

Pipelines v2.1

.....|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....10...

Home

 **** Top of file ***
 1
 2 /* The following pipeline employs a simple translate table to translate its
 3  input from the EBCDIC character set (US standard) to ASCII. */
 4
 5 Address Rxpipe
 6
  7 'pipe in',
 8 '| xlate x05 x09',
 9 'x25 x0A',
 10 'x40 x20',
 11 'x5A x21',
 12 'x7F x22',
 13  'x7B x23',
 14 'x5B x24',
 15 'x6C x25',
 16 'x50 x26',
 17 'x7D x27',
 18 'x4D x28',
 19 'x5D x29',
 20 'x5C x2A',
 21 'x4E x2B',
 22 'x6B x2C',
 23 'x60 x2D',
 24 'x4B x2E',
 25 'x61 x2F',
 26 'xF0-xF9 x30-x39',
 27 'x7A x3A',
 28 'x5E x3B',
 29 'x4C x3C',
 30  'x7E x3D',
 31 'x6E-x6F x3E-x3F',
 32 'x7C x40',
 33 'xC1-xC9 x41-x49',
 34 'xD1-xD9 x4A-x52',
 35 'xE2-xE9 x53-x5A',
 36 'xAD x5B',
 37 'xE0 x5C',
 38  'xBD x5D',
 39 'x5F x5E',
 40 'x6D x5F',
 41 'x79 x60',
 42 'x81-x89 x61-x69',
 43 'x91-x99 x6A-x72',
 44 'xA2-xA9 x73-x7A',
 45 'xC0 x7B',
 46  'x6A x7C',
 47 'xD0 x7D',
 48 'xA1 x7E',
 49 'x07 x7F',
 50 '| out'
 51
 52 Exit 0
 **** End of file ****