Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1126 | savelij | 1 | ifndef cp5100inc |
| 2 | cp5100inc equ 1 |
||
| 3 | |||
| 4 | save ; no listing over this file |
||
| 5 | listing off |
||
| 6 | |||
| 7 | ; this translates the ASCII characters 0...127 |
||
| 8 | ; and a few ISO-Latin 1 characters to their IBM |
||
| 9 | ; 5100 equivalent, as far as possible: |
||
| 10 | |||
| 11 | ; NOTE: The save/restore mechanism will assure that after inclusion |
||
| 12 | ; of this file, you still use the same character mapping as you |
||
| 13 | ; did before. To activate this mapping, place a 'codepage cp5100' |
||
| 14 | ; in your code! |
||
| 15 | |||
| 16 | codepage cp5100 |
||
| 17 | |||
| 18 | charset |
||
| 19 | charset 0,31, ; 0x00...0x1f -> none |
||
| 20 | charset ' ',0 ; 0x20 -> 0x00 |
||
| 21 | charset '!',96 ; 0x21 -> 0x60 |
||
| 22 | charset '"',110 ; 0x22 -> 0x6e |
||
| 23 | charset '#',113 ; 0x23 -> 0x71 |
||
| 24 | charset '$',114 ; 0x24 -> 0x72 |
||
| 25 | charset '%',115 ; 0x25 -> 0x73 |
||
| 26 | charset '&',111 ; 0x26 -> 0x6f |
||
| 27 | charset '\'',55 ; 0x27 -> 0x37 |
||
| 28 | charset '(',85 ; 0x28 -> 0x55 |
||
| 29 | charset ')',86 ; 0x29 -> 0x56 |
||
| 30 | charset '*',50 ; 0x2a -> 0x3c |
||
| 31 | charset '+',38 ; 0x2b -> 0x26 |
||
| 32 | charset ',',43 ; 0x2c -> 0x2b |
||
| 33 | charset '-',82 ; 0x2d -> 0x52 |
||
| 34 | charset '.',44 ; 0x2e -> 0x2c |
||
| 35 | charset '/',37 ; 0x2f -> 0x25 |
||
| 36 | charset '0','9',27 ; 0x30..0x39 -> 0x1b..0x24 |
||
| 37 | charset ':',88 ; 0x3a -> 0x58 |
||
| 38 | charset ';',87 ; 0x3b -> 0x57 |
||
| 39 | charset '<',74 ; 0x3c -> 0x4a |
||
| 40 | charset '=',76 ; 0x3d -> 0x4c |
||
| 41 | charset '>',78 ; 0x3e -> 0x4e |
||
| 42 | charset '?',61 ; 0x3f -> 0x3d |
||
| 43 | charset '@',112 ; 0x40 -> 0x70 |
||
| 44 | charset 'A','Z',1 ; 0x41..0x5a -> 0x01..0x1a |
||
| 45 | charset '[',41 ; 0x5b -> 0x29 |
||
| 46 | charset '\\',81 ; 0x5c -> 0x51 |
||
| 47 | charset ']',42 ; 0x5d -> 0x2a |
||
| 48 | charset '^',71 ; 0x5e -> 0x47 |
||
| 49 | charset '_',50 ; 0x5f -> 0x32 |
||
| 50 | charset '`', ; 0x60 -> none |
||
| 51 | charset 'a','z', ; 0x61..0x69 -> none |
||
| 52 | charset '{', ; 0x7b -> none |
||
| 53 | charset '|',57 ; 0x7c -> 0x39 |
||
| 54 | charset '}', ; 0x7d -> none |
||
| 55 | charset '~',64 ; 0x7e -> 0x40 |
||
| 56 | charset 127,255, ; DEL..0xff -> (mostly) none |
||
| 57 | charset 196,116 ; 0xc4 -> 0x74 (Adiaresis) |
||
| 58 | charset 214,118 ; 0xd6 -> 0x76 (Odiaresis) |
||
| 59 | charset 220,119 ; 0xdc -> 0x77 (Udiaresis) |
||
| 60 | charset 197,120 ; 0xc5 -> 0x78 (Akringel) |
||
| 61 | charset 198,121 ; 0xc6 -> 0x79 (Aelig) |
||
| 62 | charset 209,123 ; 0xd1 -> 0x7b (Ntilde) |
||
| 63 | charset 163,124 ; 0xa3 -> 0x7c (pound) |
||
| 64 | charset 199,125 ; 0xc7 -> 0x7d (Ccedilla) |
||
| 65 | charset 213,126 ; 0xd5 -> 0x7e (Otilde) |
||
| 66 | charset 195,127 ; 0xc3 -> 0x7f (Atilde) |
||
| 67 | |||
| 68 | restore ; restore previous listing state and code page |
||
| 69 | |||
| 70 | endif ; cp5100inc |