| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 1 | /* |
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 2 | * EBCDIC -> ASCII, ASCII -> EBCDIC conversion routines. |
| 3 | * |
| 4 | * S390 version |
| Heiko Carstens | a53c8fa | 2012-07-20 11:15:04 +0200 | [diff] [blame] | 5 | * Copyright IBM Corp. 1999 |
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 6 | * Author(s): Martin Schwidefsky <schwidefsky@de.ibm.com> |
| 7 | */ |
| 8 | |
| 9 | #ifndef _EBCDIC_H |
| 10 | #define _EBCDIC_H |
| 11 | |
| 12 | #ifndef _S390_TYPES_H |
| 13 | #include <types.h> |
| 14 | #endif |
| 15 | |
| Peter Oberparleiter | 0664299 | 2006-04-10 22:53:43 -0700 | [diff] [blame] | 16 | extern __u8 _ascebc_500[256]; /* ASCII -> EBCDIC 500 conversion table */ |
| 17 | extern __u8 _ebcasc_500[256]; /* EBCDIC 500 -> ASCII conversion table */ |
| 18 | extern __u8 _ascebc[256]; /* ASCII -> EBCDIC conversion table */ |
| 19 | extern __u8 _ebcasc[256]; /* EBCDIC -> ASCII conversion table */ |
| 20 | extern __u8 _ebc_tolower[256]; /* EBCDIC -> lowercase */ |
| 21 | extern __u8 _ebc_toupper[256]; /* EBCDIC -> uppercase */ |
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 22 | |
| Adrian Bunk | 4448aaf | 2005-11-08 21:34:42 -0800 | [diff] [blame] | 23 | static inline void |
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 24 | codepage_convert(const __u8 *codepage, volatile __u8 * addr, unsigned long nr) |
| 25 | { |
| 26 | if (nr-- <= 0) |
| 27 | return; |
| Martin Schwidefsky | 94c12cc | 2006-09-28 16:56:43 +0200 | [diff] [blame] | 28 | asm volatile( |
| 29 | " bras 1,1f\n" |
| 30 | " tr 0(1,%0),0(%2)\n" |
| 31 | "0: tr 0(256,%0),0(%2)\n" |
| 32 | " la %0,256(%0)\n" |
| 33 | "1: ahi %1,-256\n" |
| 34 | " jnm 0b\n" |
| 35 | " ex %1,0(1)" |
| 36 | : "+&a" (addr), "+&a" (nr) |
| 37 | : "a" (codepage) : "cc", "memory", "1"); |
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 38 | } |
| 39 | |
| 40 | #define ASCEBC(addr,nr) codepage_convert(_ascebc, addr, nr) |
| 41 | #define EBCASC(addr,nr) codepage_convert(_ebcasc, addr, nr) |
| 42 | #define ASCEBC_500(addr,nr) codepage_convert(_ascebc_500, addr, nr) |
| 43 | #define EBCASC_500(addr,nr) codepage_convert(_ebcasc_500, addr, nr) |
| 44 | #define EBC_TOLOWER(addr,nr) codepage_convert(_ebc_tolower, addr, nr) |
| 45 | #define EBC_TOUPPER(addr,nr) codepage_convert(_ebc_toupper, addr, nr) |
| 46 | |
| 47 | #endif |
| 48 | |