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