ebcdic

Vocabulary

io.encodings.8-bit

Variable description

EBCDIC is an 8-bit legacy encoding designed for IBM mainframes like System/360 in the 1960s. It has since fallen into disuse. It contains large unallocated regions, and the version included here (code page 37) contains auxiliary characters in this region for English- and Portugese-speaking countries.

See also

An introduction to encodings

Definition

IN: io.encodings.8-bit

SINGLETON: ebcdic

Methods

USING: io.encodings io.encodings.8-bit
io.encodings.8-bit.private kernel ;

M: ebcdic <decoder>
    drop T{ 8-bit
        { from
            {
                0
                1
                2
                3
                156
                9
                134
                127
                151
                141
                142
                11
                12
                13
                14
                15
                16
                17
                18
                19
                157
                133
                8
                135
                24
                25
                146
                143
                28
                29
                30
                31
                128
                129
                130
                131
                132
                10
                23
                27
                136
                137
                138
                139
                140
                5
                6
                7
                144
                145
                22
                147
                148
                149
                150
                4
                152
                153
                154
                155
                20
                21
                158
                26
                32
                160
                226
                228
                224
                225
                227
                229
                231
                241
                162
                46
                60
                40
                43
                124
                38
                233
                234
                235
                232
                237
                238
                239
                236
                223
                33
                36
                42
                41
                59
                172
                45
                47
                194
                ~157 more~
            }
        }
        { to
            H{
                { 0 0 }
                { 1 1 }
                { 2 2 }
                { 3 3 }
                { 4 55 }
                { 5 45 }
                { 6 46 }
                { 7 47 }
                { 8 22 }
                { 9 5 }
                { 10 37 }
                { 11 11 }
                { 12 12 }
                { 13 13 }
                { 14 14 }
                { 15 15 }
                { 16 16 }
                { 17 17 }
                { 18 18 }
                { 19 19 }
                { 20 60 }
                { 21 61 }
                { 22 50 }
                { 23 38 }
                { 24 24 }
                { 25 25 }
                { 26 63 }
                { 27 39 }
                { 28 28 }
                { 29 29 }
                { 30 30 }
                { 31 31 }
                { 32 64 }
                { 33 90 }
                { 34 127 }
                { 35 123 }
                { 36 91 }
                { 37 108 }
                { 38 80 }
                { 39 125 }
                { 40 77 }
                { 41 93 }
                { 42 92 }
                { 43 78 }
                { 44 107 }
                { 45 96 }
                { 46 75 }
                { 47 97 }
                { 48 240 }
                { 49 241 }
                { 50 242 }
                { 51 243 }
                { 52 244 }
                { 53 245 }
                { 54 246 }
                { 55 247 }
                { 56 248 }
                { 57 249 }
                { 58 122 }
                { 59 94 }
                { 60 76 }
                { 61 126 }
                { 62 110 }
                { 63 111 }
                { 64 124 }
                { 65 193 }
                { 66 194 }
                { 67 195 }
                { 68 196 }
                { 69 197 }
                { 70 198 }
                { 71 199 }
                { 72 200 }
                { 73 201 }
                { 74 209 }
                { 75 210 }
                { 76 211 }
                { 77 212 }
                { 78 213 }
                { 79 214 }
                { 80 215 }
                { 81 216 }
                { 82 217 }
                { 83 226 }
                { 84 227 }
                { 85 228 }
                { 86 229 }
                { 87 230 }
                { 88 231 }
                { 89 232 }
                { 90 233 }
                { 91 186 }
                { 92 224 }
                { 93 187 }
                { 94 176 }
                { 95 109 }
                { 96 121 }
                { 97 129 }
                { 98 130 }
                ~157 more~
            }
        }
    } <decoder> ;


USING: io.encodings io.encodings.8-bit
io.encodings.8-bit.private kernel ;

M: ebcdic <encoder>
    drop T{ 8-bit
        { from
            {
                0
                1
                2
                3
                156
                9
                134
                127
                151
                141
                142
                11
                12
                13
                14
                15
                16
                17
                18
                19
                157
                133
                8
                135
                24
                25
                146
                143
                28
                29
                30
                31
                128
                129
                130
                131
                132
                10
                23
                27
                136
                137
                138
                139
                140
                5
                6
                7
                144
                145
                22
                147
                148
                149
                150
                4
                152
                153
                154
                155
                20
                21
                158
                26
                32
                160
                226
                228
                224
                225
                227
                229
                231
                241
                162
                46
                60
                40
                43
                124
                38
                233
                234
                235
                232
                237
                238
                239
                236
                223
                33
                36
                42
                41
                59
                172
                45
                47
                194
                ~157 more~
            }
        }
        { to
            H{
                { 0 0 }
                { 1 1 }
                { 2 2 }
                { 3 3 }
                { 4 55 }
                { 5 45 }
                { 6 46 }
                { 7 47 }
                { 8 22 }
                { 9 5 }
                { 10 37 }
                { 11 11 }
                { 12 12 }
                { 13 13 }
                { 14 14 }
                { 15 15 }
                { 16 16 }
                { 17 17 }
                { 18 18 }
                { 19 19 }
                { 20 60 }
                { 21 61 }
                { 22 50 }
                { 23 38 }
                { 24 24 }
                { 25 25 }
                { 26 63 }
                { 27 39 }
                { 28 28 }
                { 29 29 }
                { 30 30 }
                { 31 31 }
                { 32 64 }
                { 33 90 }
                { 34 127 }
                { 35 123 }
                { 36 91 }
                { 37 108 }
                { 38 80 }
                { 39 125 }
                { 40 77 }
                { 41 93 }
                { 42 92 }
                { 43 78 }
                { 44 107 }
                { 45 96 }
                { 46 75 }
                { 47 97 }
                { 48 240 }
                { 49 241 }
                { 50 242 }
                { 51 243 }
                { 52 244 }
                { 53 245 }
                { 54 246 }
                { 55 247 }
                { 56 248 }
                { 57 249 }
                { 58 122 }
                { 59 94 }
                { 60 76 }
                { 61 126 }
                { 62 110 }
                { 63 111 }
                { 64 124 }
                { 65 193 }
                { 66 194 }
                { 67 195 }
                { 68 196 }
                { 69 197 }
                { 70 198 }
                { 71 199 }
                { 72 200 }
                { 73 201 }
                { 74 209 }
                { 75 210 }
                { 76 211 }
                { 77 212 }
                { 78 213 }
                { 79 214 }
                { 80 215 }
                { 81 216 }
                { 82 217 }
                { 83 226 }
                { 84 227 }
                { 85 228 }
                { 86 229 }
                { 87 230 }
                { 88 231 }
                { 89 232 }
                { 90 233 }
                { 91 186 }
                { 92 224 }
                { 93 187 }
                { 94 176 }
                { 95 109 }
                { 96 121 }
                { 97 129 }
                { 98 130 }
                ~157 more~
            }
        }
    } <encoder> ;