Top secrets sources NedoPC pentevo

        ifndef  cp037inc
cp037inc equ    1

        save            ; no listing over this file
        listing off

        ; this translates the ISO-LATIN-1 characters 0...255
        ; to their EBCDIC (codepage 037) representation:

        ; NOTE: The save/restore mechanism will assure that after inclusion
        ; of this file, you still use the same character mapping as you
        ; did before.  To activate this mapping, place a 'codepage cp037'
        ; in your code!

        codepage cp037

        charset
        charset 0,0             ; NUL -> 0x00
        charset 1,1             ; SOH -> 0x01
        charset 2,2             ; STX -> 0x02
        charset 3,3             ; ETX -> 0x03
        charset 4,55            ; EOT -> 0x37
        charset 5,45            ; ENQ -> 0x2d
        charset 6,46            ; ACK -> 0x2e
        charset 7,47            ; BEL -> 0x2f
        charset 8,22            ; BS -> 0x16
        charset 9,5             ; HT -> 0x05
        charset 10,37           ; LF -> 0x25
        charset 11,11           ; VT -> 0x0b
        charset 12,12           ; FF -> 0x0c
        charset 13,13           ; CR -> 0x0d
        charset 14,14           ; SO -> 0x0e
        charset 15,15           ; SI -> 0x0f
        charset 16,16           ; DLE -> 0x10
        charset 17,17           ; DC1 -> 0x11
        charset 18,18           ; DC2 -> 0x12
        charset 19,19           ; DC3 -> 0x13
        charset 20,60           ; DC4 -> 0x3c
        charset 21,61           ; NAK -> 0x3d
        charset 22,50           ; SYN -> 0x32
        charset 23,38           ; ETB -> 0x26
        charset 24,24           ; CAN -> 0x18
        charset 25,25           ; EM -> 0x19
        charset 26,63           ; SUB -> 0x3f
        charset 27,39           ; ESC -> 0x27
        charset 28,28           ; FS -> 0x1c
        charset 29,29           ; GS -> 0x1d
        charset 30,30           ; RS -> 0x1e
        charset 31,31           ; US -> 0x1f
        charset ' ',64          ; 0x20 -> 0x40
        charset '!',90          ; 0x21 -> 0x5a
        charset '"',127         ; 0x22 -> 0x7f
        charset '#',123         ; 0x23 -> 0x7b
        charset '$',91          ; 0x24 -> 0x5b
        charset '%',108         ; 0x25 -> 0x6c
        charset '&',80          ; 0x26 -> 0x50
        charset '\'',125        ; 0x27 -> 0x7d
        charset '(',77          ; 0x28 -> 0x4d
        charset ')',93          ; 0x29 -> 0x5d
        charset '*',92          ; 0x2a -> 0x5c
        charset '+',78          ; 0x2b -> 0x4e
        charset ',',107         ; 0x2c -> 0x6b
        charset '-',96          ; 0x2d -> 0x60
        charset '.',75          ; 0x2e -> 0x4b
        charset '/',97          ; 0x2f -> 0x61
        charset '0','9',240      ; 0x30..0x39 -> 0xf0..0xf9
        charset ':',122         ; 0x3a -> 0x7a
        charset ';',94          ; 0x3b -> 0x5e
        charset '<',76          ; 0x3c -> 0x4c
        charset '=',126         ; 0x3d -> 0x7e
        charset '>','?',110     ; 0x3e..0x3f -> 0x6e..0x6f
        charset '@',124         ; 0x40 -> 0x7c
        charset 'A','I',193     ; 0x41..0x49 -> 0xc1..0xc9
        charset 'J','R',209     ; 0x4a..0x52 -> 0xd1..0xd9
        charset 'S','Z',226     ; 0x53..0x5a -> 0xe2..0xe9
        charset '[',186         ; 0x5b -> 0xba
        charset '\\',224        ; 0x5c -> 0xe0
        charset ']',187         ; 0x5d -> 0xbb
        charset '^',176         ; 0x5e -> 0xb0
        charset '_',109         ; 0x5f -> 0x6d
        charset '`',121         ; 0x60 -> 0x79
        charset 'a','i',129     ; 0x61..0x69 -> 0x81..0x89
        charset 'j','r',145     ; 0x6a..0x72 -> 0x91..0x99
        charset 's','z',162     ; 0x73..0x7a -> 0xa2..0xa9
        charset '{',192         ; 0x7b -> 0xc0
        charset '|',79          ; 0x7c -> 0x4f
        charset '}',208         ; 0x7d -> 0xd0
        charset '~',161         ; 0x7e -> 0xa1
        charset 127,7           ; DEL -> 0x07
        charset 128,132,32      ; 0x80..0x84 -> 0x20..0x24
        charset 133,21          ; 0x85 -> 0x15
        charset 134,6           ; 0x86 -> 0x06
        charset 135,23          ; 0x87 -> 0x17
        charset 136,140,40      ; 0x88..0x8c -> 0x28..0x2c
        charset 141,142,9       ; 0x8d..0x8e -> 0x09..0x0a
        charset 143,27          ; 0x8f -> 0x1b
        charset 144,145,48      ; 0x90..0x91 -> 0x30..0x31
        charset 146,26          ; 0x92 -> 0x1a
        charset 147,150,51      ; 0x93..0x96 -> 0x33..0x36
        charset 151,8           ; 0x97 -> 0x08
        charset 152,155,56      ; 0x98..0x9b -> 0x38..0x3b
        charset 156,4           ; 0x9c -> 0x04
        charset 157,20          ; 0x9d -> 0x14
        charset 158,62          ; 0x9e -> 0x3e
        charset 159,255         ; 0x9f -> 0xff
        charset 160,65          ; 0xa0 -> 0x41
        charset 161,170         ; 0xa1 -> 0xaa
        charset 162,74          ; 0xa2 -> 0x4a
        charset 163,177         ; 0xa3 -> 0xb1
        charset 164,159         ; 0xa4 -> 0x9f
        charset 165,178         ; 0xa5 -> 0xb2
        charset 166,106         ; 0xa6 -> 0x6a
        charset 167,181         ; 0xa7 -> 0xb5
        charset 168,189         ; 0xa8 -> 0xbd
        charset 169,180         ; 0xa9 -> 0xb4
        charset 170,154         ; 0xaa -> 0x9a
        charset 171,138         ; 0xab -> 0x8a
        charset 172,95          ; 0xac -> 0x5f
        charset 173,202         ; 0xad -> 0xca
        charset 174,175         ; 0xae -> 0xaf
        charset 175,188         ; 0xaf -> 0xbc
        charset 176,144         ; 0xb0 -> 0x90
        charset 177,143         ; 0xb1 -> 0x8f
        charset 178,234         ; 0xb2 -> 0xea
        charset 179,250         ; 0xb3 -> 0xfa
        charset 180,190         ; 0xb4 -> 0xbe
        charset 181,160         ; 0xb5 -> 0xa0
        charset 182,182         ; 0xb6 -> 0xb6
        charset 183,179         ; 0xb7 -> 0xb3
        charset 184,157         ; 0xb8 -> 0x9d
        charset 185,218         ; 0xb9 -> 0xda
        charset 186,155         ; 0xba -> 0x9b
        charset 187,139         ; 0xbb -> 0x8b
        charset 188,190,183     ; 0xbc..0xbe -> 0xb7..0xb9
        charset 191,171         ; 0xbf -> 0xab
        charset 192,193,100     ; 0xc0..0xc1 -> 0x64..0x65
        charset 194,98          ; 0xc2 -> 0x62
        charset 195,102         ; 0xc3 -> 0x66
        charset 196,99          ; 0xc4 -> 0x63
        charset 197,103         ; 0xc5 -> 0x67
        charset 198,158         ; 0xc6 -> 0x9e
        charset 199,104         ; 0xc7 -> 0x68
        charset 200,116         ; 0xc8 -> 0x74
        charset 201,203,113     ; 0xc9..0xcb -> 0x71..0x73
        charset 204,120         ; 0xcc -> 0x78
        charset 205,207,117     ; 0xcd..0xcf -> 0x75..0x77
        charset 208,172         ; 0xd0 -> 0xac
        charset 209,105         ; 0xd1 -> 0x69
        charset 210,211,237     ; 0xd2..0xd3 -> 0xed..0xee
        charset 212,235         ; 0xd4 -> 0xeb
        charset 213,239         ; 0xd5 -> 0xef
        charset 214,236         ; 0xd6 -> 0xec
        charset 215,191         ; 0xd7 -> 0xbf
        charset 216,128         ; 0xd8 -> 0x80
        charset 217,218,253     ; 0xd9..0xda -> 0xfd..0xfe
        charset 219,220,251     ; 0xdb..0xdc -> 0xfb..0xfc
        charset 221,222,173     ; 0xdd..0xde -> 0xad..0xae
        charset 223,89          ; 0xdf -> 0x59
        charset 224,225,68      ; 0xe0..0xe1 -> 0x44..0x45
        charset 226,66          ; 0xe2 -> 0x42
        charset 227,70          ; 0xe3 -> 0x46
        charset 228,67          ; 0xe4 -> 0x43
        charset 229,71          ; 0xe5 -> 0x47
        charset 230,156         ; 0xe6 -> 0x9c
        charset 231,72          ; 0xe7 -> 0x48
        charset 232,84          ; 0xe8 -> 0x54
        charset 233,235,81      ; 0xe9..0xeb -> 0x51..0x53
        charset 236,88          ; 0xec -> 0x58
        charset 237,239,85      ; 0xed..0xef -> 0x55..0x57
        charset 240,140         ; 0xf0 -> 0x8c
        charset 241,73          ; 0xf1 -> 0x49
        charset 242,243,205     ; 0xf2..0xf3 -> 0xcd..0xce
        charset 244,203         ; 0xf4 -> 0xcb
        charset 245,207         ; 0xf5 -> 0xcf
        charset 246,204         ; 0xf6 -> 0xcc
        charset 247,225         ; 0xf7 -> 0xe1
        charset 248,112         ; 0xf8 -> 0x70
        charset 249,250,221     ; 0xf9..0xfa -> 0xdd..0xde
        charset 251,252,219     ; 0xfb..0xfc -> 0xdb..0xdc
        charset 253,254,141     ; 0xfd..0xfe -> 0x8d..0x8e
        charset 255,223         ; 0xff -> 0xdf

        restore         ; restore previous listing state and code page

        endif           ; cp037inc