Amarra o ebcdicOfHex (o hexbyte do carvão animal) {
Corda ebcdic = zero;
comutar (hexbyte) {
caso 0x00: ebcdic = ""; ruptura;
caso 0x01: ebcdic = ""; ruptura;
caso 0x02: ebcdic = ""; ruptura;
caso 0x03: ebcdic = ""; ruptura;
caso 0x04: ebcdic = ""; ruptura;
caso 0x05: ebcdic = ""; ruptura;
caso 0x06: ebcdic = ""; ruptura;
caso 0x07: ebcdic = ""; ruptura;
caso 0x08: ebcdic = ""; ruptura;
caso 0x09: ebcdic = ""; ruptura;
caso 0x0A: ebcdic = ""; ruptura;
caso 0x0B: ebcdic = ""; ruptura;
caso 0x0C: ebcdic = ""; ruptura;
caso 0x0D: ebcdic = “\ r”; ruptura;
caso 0x0E: ebcdic = ""; ruptura;
caso 0x0F: ebcdic = ""; ruptura;
caso 0x10: ebcdic = ""; ruptura;
caso 0x11: ebcdic = ""; ruptura;
caso 0x12: ebcdic = ""; ruptura;
caso 0x13: ebcdic = ""; ruptura;
caso 0x14: ebcdic = ""; ruptura;
caso 0x15: ebcdic = “\ n”; ruptura;
caso 0x16: ebcdic = ""; ruptura;
caso 0x17: ebcdic = ""; ruptura;
caso 0x18: ebcdic = ""; ruptura;
caso 0x19: ebcdic = ""; ruptura;
caso 0x1A: ebcdic = ""; ruptura;
caso 0x1B: ebcdic = ""; ruptura;
caso 0x1C: ebcdic = ""; ruptura;
caso 0x1D: ebcdic = ""; ruptura;
caso 0x1E: ebcdic = ""; ruptura;
caso 0x1F: ebcdic = ""; ruptura;
caso 0x20: ebcdic = ""; ruptura;
caso 0x21: ebcdic = ""; ruptura;
caso 0x22: ebcdic = ""; ruptura;
caso 0x23: ebcdic = ""; ruptura;
caso 0x24: ebcdic = ""; ruptura;
caso 0x25: ebcdic = ""; ruptura;
caso 0x26: ebcdic = ""; ruptura;
caso 0x27: ebcdic = ""; ruptura;
caso 0x28: ebcdic = ""; ruptura;
caso 0x29: ebcdic = ""; ruptura;
caso 0x2A: ebcdic = ""; ruptura;
caso 0x2B: ebcdic = ""; ruptura;
caso 0x2C: ebcdic = ""; ruptura;
caso 0x2D: ebcdic = ""; ruptura;
caso 0x2E: ebcdic = ""; ruptura;
caso 0x2F: ebcdic = ""; ruptura;
caso 0x30: ruptura;
caso 0x31: ruptura;
caso 0x32: ebcdic = ""; ruptura;
caso 0x33: ebcdic = ""; ruptura;
caso 0x34: ebcdic = ""; ruptura;
caso 0x35: ebcdic = ""; ruptura;
caso 0x36: ebcdic = ""; ruptura;
caso 0x37: ebcdic = ""; ruptura;
caso 0x38: ebcdic = ""; ruptura;
caso 0x39: ebcdic = ""; ruptura;
caso 0x3A: ebcdic = ""; ruptura;
caso 0x3B: ebcdic = ""; ruptura;
caso 0x3C: ebcdic = ""; ruptura;
caso 0x3D: ebcdic = ""; ruptura;
caso 0x3E: ruptura;
caso 0x3F: ebcdic = ""; ruptura;
caso 0x40: ebcdic = ““; ruptura;
caso 0x41: ebcdic = ""; ruptura;
caso 0x42: ruptura;
caso 0x43: ruptura;
caso 0x44: ruptura;
caso 0x45: ruptura;
caso 0x46: ruptura;
caso 0x47: ruptura;
caso 0x48: ruptura;
caso 0x49: ruptura;
caso 0x4A: ebcdic = “[”; ruptura;
caso 0x4B: ebcdic = “. ”; ruptura;
caso 0x4C: ebcdic = ""<>; ruptura;
caso 0x6F: ebcdic = “? ”; ruptura;
caso 0x70: ruptura;
caso 0x71: ruptura;
caso 0x72: ruptura;
caso 0x73: ruptura;
caso 0x74: ruptura;
caso 0x75: ruptura;
caso 0x76: ruptura;
caso 0x77: ruptura;
caso 0x78: ruptura;
caso 0x79: ebcdic = “`”; ruptura;
caso 0x7A: ebcdic = “: ”; ruptura;
caso 0x7B: ebcdic = “#”; ruptura;
caso 0x7C: ebcdic = “@”; ruptura;
caso 0x7D: ebcdic = “\ ""; ruptura;
caso 0x7E: ebcdic = “=”; ruptura;
caso 0x7F: ebcdic = “\ ""; ruptura;
caso 0x80: ruptura;
caso 0x81: ebcdic = “a”; ruptura;
caso 0x82: ebcdic = “b”; ruptura;
caso 0x83: ebcdic = “c”; ruptura;
caso 0x84: ebcdic = “d”; ruptura;
caso 0x85: ebcdic = “e”; ruptura;
caso 0x86: ebcdic = “f”; ruptura;
caso 0x87: ebcdic = “g”; ruptura;
caso 0x88: ebcdic = “h”; ruptura;
caso 0x89: ebcdic = “mim”; ruptura;
caso 0x8A: ruptura;
caso 0x8B: ebcdic = “{”; ruptura;
caso 0x8C: ruptura;
caso 0x8D: ruptura;
caso 0x8E: ruptura;
caso 0x8F: ebcdic = “+”; ruptura;
caso 0x90: ruptura;
caso 0x91: ebcdic = “j”; ruptura;
caso 0x92: ebcdic = “k”; ruptura;
caso 0x93: ebcdic = “l”; ruptura;
caso 0x94: ebcdic = “m”; ruptura;
caso 0x95: ebcdic = “n”; ruptura;
caso 0x96: ebcdic = “o”; ruptura;
caso 0x97: ebcdic = “p”; ruptura;
caso 0x98: ebcdic = “q”; ruptura;
caso 0x99: ebcdic = “r”; ruptura;
caso 0x9A: ruptura;
caso 0x9B: ebcdic = “}”; ruptura;
caso 0x9C: ruptura;
caso 0x9D: ruptura;
caso 0x9E: ruptura;
caso 0x9F: ruptura;
caso 0xA0: ruptura;
caso 0xA1: ebcdic = “~”; ruptura;
caso 0xA2: ebcdic = “s”; ruptura;
caso 0xA3: ebcdic = “t”; ruptura;
caso 0xA4: ebcdic = “u”; ruptura;
caso 0xA5: ebcdic = “v”; ruptura;
caso 0xA6: ebcdic = “w”; ruptura;
caso 0xA7: ebcdic = “x”; ruptura;
caso 0xA8: ebcdic = “y”; ruptura;
caso 0xA9: ebcdic = “z”; ruptura;
caso 0xAA: ruptura;
caso 0xAB: ruptura;
caso 0xAC: ruptura;
caso 0xAD: ebcdic = “[”; ruptura;
caso 0xAE: ruptura;
caso 0xAF: ruptura;
caso 0xB0: ruptura;
caso 0xB1: ruptura;
caso 0xB2: ruptura;
caso 0xB3: ruptura;
caso 0xB4: ruptura;
caso 0xB5: ruptura;
caso 0xB6: ruptura;
caso 0xB7: ruptura;
caso 0xB8: ruptura;
caso 0xB9: ruptura;
caso 0xBA: ruptura;
caso 0xBB: ruptura;
caso 0xBC: ruptura;
caso 0xBD: ruptura;
caso 0xBE: ruptura;
caso 0xBF: ruptura;
caso 0xC0: ebcdic = “{”; ruptura;
caso 0xC1: ebcdic = “A”; ruptura;
caso 0xC2: ebcdic = “B”; ruptura;
caso 0xC3: ebcdic = “C”; ruptura;
caso 0xC4: ebcdic = “D”; ruptura;
caso 0xC5: ebcdic = “E”; ruptura;
caso 0xC6: ebcdic = “F”; ruptura;
caso 0xC7: ebcdic = “G”; ruptura;
caso 0xC8: ebcdic = “H”; ruptura;
caso 0xC9: ebcdic = “mim”; ruptura;
caso 0xCA: ruptura;
caso 0xCB: ruptura;
caso 0xCC: ruptura;
caso 0xCD: ruptura;
caso 0xCE: ruptura;
caso 0xCF: ruptura;
caso 0xD0: ebcdic = “}”; ruptura;
caso 0xD1: ebcdic = “J”; ruptura;
caso 0xD2: ebcdic = “K”; ruptura;
caso 0xD3: ebcdic = “L”; ruptura;
caso 0xD4: ebcdic = “M”; ruptura;
caso 0xD5: ebcdic = “N”; ruptura;
caso 0xD6: ebcdic = “O”; ruptura;
caso 0xD7: ebcdic = “P”; ruptura;
caso 0xD8: ebcdic = “Q”; ruptura;
caso 0xD9: ebcdic = “R”; ruptura;
caso 0xDA: ruptura;
caso 0xDB: ruptura;
caso 0xDC: ruptura;
caso 0xDD: ruptura;
caso 0xDE: ruptura;
caso 0xDF: ruptura;
caso 0xE0: ebcdic = “\ \”; ruptura;
caso 0xE1: ruptura;
caso 0xE2: ebcdic = “S”; ruptura;
caso 0xE3: ebcdic = “T”; ruptura;
caso 0xE4: ebcdic = “U”; ruptura;
caso 0xE5: ebcdic = “V”; ruptura;
caso 0xE6: ebcdic = “W”; ruptura;
caso 0xE7: ebcdic = “X”; ruptura;
caso 0xE8: ebcdic = “Y”; ruptura;
caso 0xE9: ebcdic = “Z”; ruptura;
caso 0xEA: ruptura;
caso 0xEB: ruptura;
caso 0xEC: ruptura;
caso 0xED: ruptura;
caso 0xEE: ruptura;
caso 0xEF: ruptura;
caso 0xF0: ebcdic = “0”; ruptura;
caso 0xF1: ebcdic = “1”; ruptura;
caso 0xF2: ebcdic = “2”; ruptura;
caso 0xF3: ebcdic = “3”; ruptura;
caso 0xF4: ebcdic = “4”; ruptura;
caso 0xF5: ebcdic = “5”; ruptura;
caso 0xF6: ebcdic = “6”; ruptura;
caso 0xF7: ebcdic = “7”; ruptura;
caso 0xF8: ebcdic = “8”; ruptura;
caso 0xF9: ebcdic = “9”; ruptura;
caso 0xFA: ruptura;
caso 0xFB: ruptura;
caso 0xFC: ruptura;
caso 0xFD: ruptura;
caso 0xFE: ruptura;
caso 0xFF: ruptura;
defeito: ebcdic = “<>>”; ruptura;
}
ebcdic do retorno;
}
|