Subversion Repositories pentevo

Rev

Details | Last modification | View Log | RSS feed

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