]> wirehaze git hosting - MS-DOS.git/blob - v4.0/src/DEV/COUNTRY/MKCNTRY.ASM

wirehaze git hosting

projects / MS-DOS.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
MZ is back!
[MS-DOS.git] / v4.0 / src / DEV / COUNTRY / MKCNTRY.ASM
1 page 84,132
2 ; July 8, 1986 - updated Finland for 437 dcl.
3 ; July 8, 1986 - updated Netherland for 437 dcl.
4 ; July 8, 1986 - updated Italy for 437 dcl.
5 ; July 8, 1986 - updated Canada for 863 dcl.
6 ; July 8, 1986 - updated Belgium for 437 dcl. (except Collate)
7 ; July 8, 1986 - updated AreaSouth for 437 dcl.
8 ; July 8, 1986 - updated Switzerland for 437 dcl.
9 ; July 8, 1986 - updated Norway for 865 dcl.
10 ; July 8, 1986 - updated Denmark for 865 dcl.
11 ; July 14, 1986 - updated Sweden for 437 dcl.
12 ; July 8, 1986 - updated AFE for 850 dcl.
13 ; July 8, 1986 - updated Finland for 850 dcl.
14 ; July 8, 1986 - updated Netherland for 850 dcl.
15 ; July 8, 1986 - updated Canada for 850 dcl.
16 ; July 8, 1986 - updated Italy for 850 dcl.
17 ; July 8, 1986 - updated UK for 850 dcl.
18 ; July 8, 1986 - updated Norway for 850 dcl.
19 ; July 8, 1986 - updated Denmark for 850 dcl.
20 ; July 8, 1986 - updated US for 850 dcl.
21 ; July 8, 1986 - updated Switzerland for 850 dcl.
22 ; July 14, 1986 - updated Sweden for 850 dcl.
23 ; July 14, 1986 - updated Belgium for 850 dcl. (except Collate)
24 ; August 26,1986 - updated Belgium for 437 collate EMG
25 ; August 27,1986 - updated Belgium for 850 collate EMG
26 ; August 27,1986 - updated Area South for 437 EMG
27 ; August 27,1986 - updated Area South for 864 EMG
28 ; August 27,1986 - make all collates 256 bytes EMG
29 ; August 27,1986 - updated Germany for 850 EMG
30 ; August 27,1986 - updated Spain for 850 EMG
31 ; August 28,1986 - updated Latin America for 850 EMG
32 ; September 12, 1986 - updated SP,IS,CF,AS,PO,LA EMG
33 ; October 2, 1986 - updated AS and IS EMG
34 ; July 23,1987 - DCR to alter Germany collate table to match US 850 DCR037
35 ; CNS
36 ; July 23,1987 - DCR to alter SWISS collate info and ucase table 850 & 437
37 ; DCR059--- CNS ***
38 ; July 23,1987 - DCR to alter Denmark's primary codepage to 850 instead of
39 ; 865 --- CNS ***
40 ; NOvember 12,1987 - PTM2390 DBCS length of terminating value included for
41 ; for DBCS countries
42 ; - FILEUPCASE & UCASE swapped for 437 & 850 mapping incorrect
43 ; - -ly for DOS 3.3
44 ; - Make the FUCASE & UCASE tables equivalent for 850 & 437
45 ; March 9, p3811, Finland to default to 850 now, w/437 as alternate code page
46 ;
47 ; March 30, p4072, LA wants to be same as Spain
48 ; ***CNS
49 ; April 14,1988 Re-adjust LA to match SPAIN which should have 850 as a
50 ;PTM 4389 default instead of 437 for both countries
51 ;
52 ; create country.sys file
53 ;
54 ;
55 include mkcntry.inc
56 ;
57 cseg segment para public 'code'
58 assume cs:cseg,ds:dseg
59 mkcdif proc far
60 mov ax,dseg ; establish addressability
61 mov ds,ax ; for ds
62 mov es,ax ; and es
63 lea dx,cdifname ; address of file name to create
64 xor cx,cx ; attrib = normal file
65 mov ah,3ch ; create function
66 int 21h ; create file
67 jnc create_ok ; jump if create successful
68 lea dx,crmsg
69 mov cx,crmlen
70 jmp wrt_msg
71 create_ok:
72 mov bx,ax ; save handle
73 mov ah,40h ; write function
74 mov cx,cdiend-cdinfo ; length of cdi
75 lea dx,cdinfo ; address of cdi
76 int 21h ; write cdi file
77 cmp ax,cx ; compare bytes written
78 jz write_ok ; jump if write was successful
79 lea dx,iomsg
80 mov cx,iomlen
81 jmp wrt_msg
82 write_ok:
83 mov ah,3eh ; close function
84 int 21h ; close cdi file
85 lea dx,succmsg
86 mov cx,smlen
87 wrt_msg:
88 mov bx,1
89 mov ah,40h
90 int 21h
91 xor al,al
92 mov ah,4ch ; exit function
93 int 21h ; return to exec'ing program
94 mkcdif endp
95 cseg ends
96 ;
97 page
98 ; -----------------------------------------------------------
99 ;
100 ; Data for COUNTRY.SYS file
101 ;
102 ; -----------------------------------------------------------
103 dseg segment para
104 cdinfo label word
105 db 0ffh,'COUNTRY' ; signature
106 db 8 dup (0) ; reserved
107 dw PTRCNT ; number of pointers in header
108 db CIPTYPE ; type = country info pointer
109 dd offset cntryinfo ; pointer to country information
110 ;
111 cntryinfo label word
112 cntrycnt=0
113 dw finalCNT ; number of countries
114 ctryent <CENTRYSIZE,CID_US,437,,,us437_data> ; United States
115 ctryent <CENTRYSIZE,CID_US,850,,,us850_data> ;
116 ctryent <CENTRYSIZE,CID_UK,437,,,uk437_data> ; United Kingdom
117 ctryent <CENTRYSIZE,CID_UK,850,,,uk850_data> ;
118 ctryent <CENTRYSIZE,CID_FR,437,,,fr437_data> ; France
119 ctryent <CENTRYSIZE,CID_FR,850,,,fr850_data> ;
120 ctryent <CENTRYSIZE,CID_GR,437,,,gr437_data> ; Germany
121 ctryent <CENTRYSIZE,CID_GR,850,,,gr850_data> ;
122 ctryent <CENTRYSIZE,CID_SP,850,,,sp850_data> ;
123 ctryent <CENTRYSIZE,CID_SP,437,,,sp437_data> ; Spain
124 ctryent <CENTRYSIZE,CID_IT,437,,,it437_data> ; Italy
125 ctryent <CENTRYSIZE,CID_IT,850,,,it850_data> ;
126 ctryent <CENTRYSIZE,CID_SV,437,,,sv437_data> ; Sweden
127 ctryent <CENTRYSIZE,CID_SV,850,,,sv850_data> ;
128 ctryent <CENTRYSIZE,CID_DK,850,,,dk850_data> ; Denmark
129 ctryent <CENTRYSIZE,CID_DK,865,,,dk865_data> ; DCR060 CNS ***** ;AN000;
130 ctryent <CENTRYSIZE,CID_SW,850,,,sw850_data> ; Switzerland
131 ctryent <CENTRYSIZE,CID_SW,437,,,sw437_data> ;
132 ctryent <CENTRYSIZE,CID_NO,850,,,no850_data> ; Norway
133 ctryent <CENTRYSIZE,CID_NO,865,,,no865_data> ;
134 ctryent <CENTRYSIZE,CID_NL,437,,,nl437_data> ; Netherlands
135 ctryent <CENTRYSIZE,CID_NL,850,,,nl850_data> ;
136 ctryent <CENTRYSIZE,CID_BE,850,,,be850_data> ; Belgium
137 ctryent <CENTRYSIZE,CID_BE,437,,,be437_data> ;
138 ctryent <CENTRYSIZE,CID_FI,850,,,fi850_data> ; Finland p3811, requested 850 default
139 ctryent <CENTRYSIZE,CID_FI,437,,,fi437_data> ; Finland
140 ctryent <CENTRYSIZE,CID_IS,862,,,is862_data> ; Israel
141 ctryent <CENTRYSIZE,CID_IS,850,,,is850_data> ;
142 ctryent <CENTRYSIZE,CID_CA,863,,,ca863_data> ; Canada French
143 ctryent <CENTRYSIZE,CID_CA,850,,,ca850_data> ;
144 ctryent <CENTRYSIZE,CID_AS,864,,,as864_data> ; Area South (Arab States)
145 ctryent <CENTRYSIZE,CID_AS,850,,,as850_data> ;
146 ctryent <CENTRYSIZE,CID_PO,850,,,po850_data> ; Portugal
147 ctryent <CENTRYSIZE,CID_PO,860,,,po860_data> ;
148 ctryent <CENTRYSIZE,CID_LA,850,,,la850_data> ;
149 ctryent <CENTRYSIZE,CID_LA,437,,,la437_data> ; Latin America
150 ctryent <CENTRYSIZE,CID_AFE,437,,,afe437_data> ; International English
151 ctryent <CENTRYSIZE,CID_AFE,850,,,afe850_data> ;
152 ctryent <CENTRYSIZE,CID_JP,932,,,jp932_data> ; Japan
153 ctryent <CENTRYSIZE,CID_JP,437,,,jp437_data> ;
154 ctryent <CENTRYSIZE,CID_KO,934,,,ko934_data> ; Korea
155 ctryent <CENTRYSIZE,CID_KO,437,,,ko437_data> ;
156 ctryent <CENTRYSIZE,CID_PR,936,,,pr936_data> ; PRC
157 ctryent <CENTRYSIZE,CID_PR,437,,,pr437_data> ;
158 ctryent <CENTRYSIZE,CID_TA,938,,,ta938_data> ; Taiwan
159 ctryent <CENTRYSIZE,CID_TA,437,,,ta437_data> ;
160
161
162 dummy macro p
163 finalCNT equ p
164 endm
165 dummy %cntrycnt
166 ;
167 uk437_data label word
168 dw CDATAITEMS ; number of entries
169 ctrydat <CDATASIZE,SETCOUNTRYINFO,,uk437_info>
170 ctrydat <CDATASIZE,SETCOLLATE,,uk_collate>
171 ctrydat <CDATASIZE,SETUCASE,,uk_ucase>
172 ctrydat <CDATASIZE,SETUCASEFILE,,uk_ucase>
173 ctrydat <CDATASIZE,SETFILELIST,,uk_flist>
174 ctrydat <CDATASIZE,SETDBCS,,uk_dbcs>
175 ;
176 uk850_data label word
177 dw CDATAITEMS ; number of entries
178 ctrydat <CDATASIZE,SETCOUNTRYINFO,,uk437_info>
179 ctrydat <CDATASIZE,SETCOLLATE,,uk850_collate>
180 ctrydat <CDATASIZE,SETUCASE,,uk850_ucase>
181 ctrydat <CDATASIZE,SETUCASEFILE,,uk850_ucase>
182 ctrydat <CDATASIZE,SETFILELIST,,uk_flist>
183 ctrydat <CDATASIZE,SETDBCS,,uk_dbcs>
184 ;
185 fr437_data label word
186 dw CDATAITEMS ; number of entries
187 ctrydat <CDATASIZE,SETCOUNTRYINFO,,fr437_info>
188 ctrydat <CDATASIZE,SETCOLLATE,,fr_collate>
189 ctrydat <CDATASIZE,SETUCASE,,fr_ucase>
190 ctrydat <CDATASIZE,SETUCASEFILE,,fr_ucase>
191 ctrydat <CDATASIZE,SETFILELIST,,fr_flist>
192 ctrydat <CDATASIZE,SETDBCS,,fr_dbcs>
193 ;
194 fr850_data label word
195 dw CDATAITEMS ; number of entries
196 ctrydat <CDATASIZE,SETCOUNTRYINFO,,fr437_info>
197 ctrydat <CDATASIZE,SETCOLLATE,,fr850_collate>
198 ctrydat <CDATASIZE,SETUCASE,,fr850_ucase>
199 ctrydat <CDATASIZE,SETUCASEFILE,,fr850_ucase>
200 ctrydat <CDATASIZE,SETFILELIST,,fr_flist>
201 ctrydat <CDATASIZE,SETDBCS,,fr_dbcs>
202 ;
203 gr437_data label word
204 dw CDATAITEMS ; number of entries
205 ctrydat <CDATASIZE,SETCOUNTRYINFO,,gr437_info>
206 ctrydat <CDATASIZE,SETCOLLATE,,gr_collate>
207 ctrydat <CDATASIZE,SETUCASE,,gr_ucase>
208 ctrydat <CDATASIZE,SETUCASEFILE,,gr_ucase>
209 ctrydat <CDATASIZE,SETFILELIST,,gr_flist>
210 ctrydat <CDATASIZE,SETDBCS,,gr_dbcs>
211 ;
212 gr850_data label word
213 dw CDATAITEMS ; number of entries
214 ctrydat <CDATASIZE,SETCOUNTRYINFO,,gr437_info>
215 ctrydat <CDATASIZE,SETCOLLATE,,gr850_collate>
216 ctrydat <CDATASIZE,SETUCASE,,gr850_ucase>
217 ctrydat <CDATASIZE,SETUCASEFILE,,gr850_ucase>
218 ctrydat <CDATASIZE,SETFILELIST,,gr_flist>
219 ctrydat <CDATASIZE,SETDBCS,,gr_dbcs>
220 ;
221 sp437_data label word
222 dw CDATAITEMS ; number of entries
223 ctrydat <CDATASIZE,SETCOUNTRYINFO,,sp437_info>
224 ctrydat <CDATASIZE,SETCOLLATE,,sp_collate>
225 ctrydat <CDATASIZE,SETUCASE,,sp_ucase>
226 ctrydat <CDATASIZE,SETUCASEFILE,,sp_ucase>
227 ctrydat <CDATASIZE,SETFILELIST,,sp_flist>
228 ctrydat <CDATASIZE,SETDBCS,,sp_dbcs>
229 ;
230 sp850_data label word
231 dw CDATAITEMS ; number of entries
232 ctrydat <CDATASIZE,SETCOUNTRYINFO,,sp850_info>
233 ctrydat <CDATASIZE,SETCOLLATE,,sp850_collate>
234 ctrydat <CDATASIZE,SETUCASE,,sp850_ucase>
235 ctrydat <CDATASIZE,SETUCASEFILE,,sp850_ucase>
236 ctrydat <CDATASIZE,SETFILELIST,,sp_flist>
237 ctrydat <CDATASIZE,SETDBCS,,sp_dbcs>
238 ;
239 it437_data label word
240 dw CDATAITEMS ; number of entries
241 ctrydat <CDATASIZE,SETCOUNTRYINFO,,it437_info>
242 ctrydat <CDATASIZE,SETCOLLATE,,it_collate>
243 ctrydat <CDATASIZE,SETUCASE,,it_ucase>
244 ctrydat <CDATASIZE,SETUCASEFILE,,it_ucase>
245 ctrydat <CDATASIZE,SETFILELIST,,it_flist>
246 ctrydat <CDATASIZE,SETDBCS,,it_dbcs>
247 ;
248 it850_data label word
249 dw CDATAITEMS ; number of entries
250 ctrydat <CDATASIZE,SETCOUNTRYINFO,,it437_info>
251 ctrydat <CDATASIZE,SETCOLLATE,,it850_collate>
252 ctrydat <CDATASIZE,SETUCASE,,it850_ucase>
253 ctrydat <CDATASIZE,SETUCASEFILE,,it850_ucase>
254 ctrydat <CDATASIZE,SETFILELIST,,it_flist>
255 ctrydat <CDATASIZE,SETDBCS,,it_dbcs>
256 ;
257 sv437_data label word
258 dw CDATAITEMS ; number of entries
259 ctrydat <CDATASIZE,SETCOUNTRYINFO,,sv437_info>
260 ctrydat <CDATASIZE,SETCOLLATE,,sv_collate>
261 ctrydat <CDATASIZE,SETUCASE,,sv_ucase>
262 ctrydat <CDATASIZE,SETUCASEFILE,,sv_ucase>
263 ctrydat <CDATASIZE,SETFILELIST,,sv_flist>
264 ctrydat <CDATASIZE,SETDBCS,,sv_dbcs>
265 ;
266 sv850_data label word
267 dw CDATAITEMS ; number of entries
268 ctrydat <CDATASIZE,SETCOUNTRYINFO,,sv437_info>
269 ctrydat <CDATASIZE,SETCOLLATE,,sv850_collate>
270 ctrydat <CDATASIZE,SETUCASE,,sv850_ucase>
271 ctrydat <CDATASIZE,SETUCASEFILE,,sv850_ucase>
272 ctrydat <CDATASIZE,SETFILELIST,,sv_flist>
273 ctrydat <CDATASIZE,SETDBCS,,sv_dbcs>
274 ;
275 dk850_data label word
276 dw CDATAITEMS ; number of entries
277 ctrydat <CDATASIZE,SETCOUNTRYINFO,,dk865_info>
278 ctrydat <CDATASIZE,SETCOLLATE,,dk850_collate>
279 ctrydat <CDATASIZE,SETUCASE,,dk850_ucase>
280 ctrydat <CDATASIZE,SETUCASEFILE,,dk850_ucase>
281 ctrydat <CDATASIZE,SETFILELIST,,dk_flist>
282 ctrydat <CDATASIZE,SETDBCS,,dk_dbcs>
283 ;
284 dk865_data label word
285 dw CDATAITEMS ; number of entries
286 ctrydat <CDATASIZE,SETCOUNTRYINFO,,dk865_info>
287 ctrydat <CDATASIZE,SETCOLLATE,,dk_collate>
288 ctrydat <CDATASIZE,SETUCASE,,dk_ucase>
289 ctrydat <CDATASIZE,SETUCASEFILE,,dk_ucase>
290 ctrydat <CDATASIZE,SETFILELIST,,dk_flist>
291 ctrydat <CDATASIZE,SETDBCS,,dk_dbcs>
292 ;
293 sw437_data label word
294 dw CDATAITEMS ; number of entries
295 ctrydat <CDATASIZE,SETCOUNTRYINFO,,sw437_info>
296 ctrydat <CDATASIZE,SETCOLLATE,,sw_collate>
297 ctrydat <CDATASIZE,SETUCASE,,sw_ucase>
298 ctrydat <CDATASIZE,SETUCASEFILE,,sw_ucase>
299 ctrydat <CDATASIZE,SETFILELIST,,sw_flist>
300 ctrydat <CDATASIZE,SETDBCS,,sw_dbcs>
301 ;
302 sw850_data label word
303 dw CDATAITEMS ; number of entries
304 ctrydat <CDATASIZE,SETCOUNTRYINFO,,sw437_info>
305 ctrydat <CDATASIZE,SETCOLLATE,,sw850_collate>
306 ctrydat <CDATASIZE,SETUCASE,,sw850_ucase>
307 ctrydat <CDATASIZE,SETUCASEFILE,,sw850_ucase>
308 ctrydat <CDATASIZE,SETFILELIST,,sw_flist>
309 ctrydat <CDATASIZE,SETDBCS,,sw_dbcs>
310 ;
311 no865_data label word
312 dw CDATAITEMS ; number of entries
313 ctrydat <CDATASIZE,SETCOUNTRYINFO,,no865_info>
314 ctrydat <CDATASIZE,SETCOLLATE,,no_collate>
315 ctrydat <CDATASIZE,SETUCASE,,no_ucase>
316 ctrydat <CDATASIZE,SETUCASEFILE,,no_ucase>
317 ctrydat <CDATASIZE,SETFILELIST,,no_flist>
318 ctrydat <CDATASIZE,SETDBCS,,no_dbcs>
319 ;
320 no850_data label word
321 dw CDATAITEMS ; number of entries
322 ctrydat <CDATASIZE,SETCOUNTRYINFO,,no865_info>
323 ctrydat <CDATASIZE,SETCOLLATE,,no850_collate>
324 ctrydat <CDATASIZE,SETUCASE,,no850_ucase>
325 ctrydat <CDATASIZE,SETUCASEFILE,,no850_ucase>
326 ctrydat <CDATASIZE,SETFILELIST,,no_flist>
327 ctrydat <CDATASIZE,SETDBCS,,no_dbcs>
328 ;
329 nl437_data label word
330 dw CDATAITEMS ; number of entries
331 ctrydat <CDATASIZE,SETCOUNTRYINFO,,nl437_info>
332 ctrydat <CDATASIZE,SETCOLLATE,,nl_collate>
333 ctrydat <CDATASIZE,SETUCASE,,nl_ucase>
334 ctrydat <CDATASIZE,SETUCASEFILE,,nl_ucase>
335 ctrydat <CDATASIZE,SETFILELIST,,nl_flist>
336 ctrydat <CDATASIZE,SETDBCS,,nl_dbcs>
337 ;
338 nl850_data label word
339 dw CDATAITEMS ; number of entries
340 ctrydat <CDATASIZE,SETCOUNTRYINFO,,nl437_info>
341 ctrydat <CDATASIZE,SETCOLLATE,,nl850_collate>
342 ctrydat <CDATASIZE,SETUCASE,,nl850_ucase>
343 ctrydat <CDATASIZE,SETUCASEFILE,,nl850_ucase>
344 ctrydat <CDATASIZE,SETFILELIST,,nl_flist>
345 ctrydat <CDATASIZE,SETDBCS,,nl_dbcs>
346 ;
347 be437_data label word
348 dw CDATAITEMS ; number of entries
349 ctrydat <CDATASIZE,SETCOUNTRYINFO,,be437_info>
350 ctrydat <CDATASIZE,SETCOLLATE,,be_collate>
351 ctrydat <CDATASIZE,SETUCASE,,be_ucase>
352 ctrydat <CDATASIZE,SETUCASEFILE,,be_ucase>
353 ctrydat <CDATASIZE,SETFILELIST,,be_flist>
354 ctrydat <CDATASIZE,SETDBCS,,be_dbcs>
355 ;
356 be850_data label word
357 dw CDATAITEMS ; number of entries
358 ctrydat <CDATASIZE,SETCOUNTRYINFO,,be437_info>
359 ctrydat <CDATASIZE,SETCOLLATE,,be850_collate>
360 ctrydat <CDATASIZE,SETUCASE,,be850_ucase>
361 ctrydat <CDATASIZE,SETUCASEFILE,,be850_ucase>
362 ctrydat <CDATASIZE,SETFILELIST,,be_flist>
363 ctrydat <CDATASIZE,SETDBCS,,be_dbcs>
364 ;
365 fi437_data label word
366 dw CDATAITEMS ; number of entries
367 ctrydat <CDATASIZE,SETCOUNTRYINFO,,fi437_info>
368 ctrydat <CDATASIZE,SETCOLLATE,,fi_collate>
369 ctrydat <CDATASIZE,SETUCASE,,fi_ucase>
370 ctrydat <CDATASIZE,SETUCASEFILE,,fi_ucase>
371 ctrydat <CDATASIZE,SETFILELIST,,fi_flist>
372 ctrydat <CDATASIZE,SETDBCS,,fi_dbcs>
373 ;
374 fi850_data label word
375 dw CDATAITEMS ; number of entries
376 ctrydat <CDATASIZE,SETCOUNTRYINFO,,fi437_info>
377 ctrydat <CDATASIZE,SETCOLLATE,,fi850_collate>
378 ctrydat <CDATASIZE,SETUCASE,,fi850_ucase>
379 ctrydat <CDATASIZE,SETUCASEFILE,,fi850_ucase>
380 ctrydat <CDATASIZE,SETFILELIST,,fi_flist>
381 ctrydat <CDATASIZE,SETDBCS,,fi_dbcs>
382 ;
383 us437_data label word
384 dw CDATAITEMS ; number of entries
385 ctrydat <CDATASIZE,SETCOUNTRYINFO,,us437_info>
386 ctrydat <CDATASIZE,SETCOLLATE,,us_collate>
387 ctrydat <CDATASIZE,SETUCASE,,us_ucase>
388 ctrydat <CDATASIZE,SETUCASEFILE,,us_ucase>
389 ctrydat <CDATASIZE,SETFILELIST,,us_flist>
390 ctrydat <CDATASIZE,SETDBCS,,us_dbcs>
391 ;
392 us850_data label word
393 dw CDATAITEMS ; number of entries
394 ctrydat <CDATASIZE,SETCOUNTRYINFO,,us437_info>
395 ctrydat <CDATASIZE,SETCOLLATE,,us850_collate>
396 ctrydat <CDATASIZE,SETUCASE,,us850_ucase>
397 ctrydat <CDATASIZE,SETUCASEFILE,,us850_ucase>
398 ctrydat <CDATASIZE,SETFILELIST,,us_flist>
399 ctrydat <CDATASIZE,SETDBCS,,us_dbcs>
400 ;
401 is862_data label word
402 dw CDATAITEMS ; number of entries
403 ctrydat <CDATASIZE,SETCOUNTRYINFO,,is862_info>
404 ctrydat <CDATASIZE,SETCOLLATE,,is_collate>
405 ctrydat <CDATASIZE,SETUCASE,,is_ucase>
406 ctrydat <CDATASIZE,SETUCASEFILE,,is_ucase>
407 ctrydat <CDATASIZE,SETFILELIST,,is_flist>
408 ctrydat <CDATASIZE,SETDBCS,,is_dbcs>
409 ;
410 is850_data label word
411 dw CDATAITEMS ; number of entries
412 ctrydat <CDATASIZE,SETCOUNTRYINFO,,is862_info>
413 ctrydat <CDATASIZE,SETCOLLATE,,is850_collate>
414 ctrydat <CDATASIZE,SETUCASE,,is850_ucase>
415 ctrydat <CDATASIZE,SETUCASEFILE,,is850_ucase>
416 ctrydat <CDATASIZE,SETFILELIST,,is_flist>
417 ctrydat <CDATASIZE,SETDBCS,,is_dbcs>
418 ;
419 ca863_data label word
420 dw CDATAITEMS ; number of entries
421 ctrydat <CDATASIZE,SETCOUNTRYINFO,,ca863_info>
422 ctrydat <CDATASIZE,SETCOLLATE,,ca_collate>
423 ctrydat <CDATASIZE,SETUCASE,,ca_ucase>
424 ctrydat <CDATASIZE,SETUCASEFILE,,ca_ucase>
425 ctrydat <CDATASIZE,SETFILELIST,,ca_flist>
426 ctrydat <CDATASIZE,SETDBCS,,ca_dbcs>
427 ;
428 ca850_data label word
429 dw CDATAITEMS ; number of entries
430 ctrydat <CDATASIZE,SETCOUNTRYINFO,,ca863_info>
431 ctrydat <CDATASIZE,SETCOLLATE,,ca850_collate>
432 ctrydat <CDATASIZE,SETUCASE,,ca850_ucase>
433 ctrydat <CDATASIZE,SETUCASEFILE,,ca850_ucase>
434 ctrydat <CDATASIZE,SETFILELIST,,ca_flist>
435 ctrydat <CDATASIZE,SETDBCS,,ca_dbcs>
436 ;
437 as864_data label word
438 dw CDATAITEMS ; number of entries
439 ctrydat <CDATASIZE,SETCOUNTRYINFO,,as864_info>
440 ctrydat <CDATASIZE,SETCOLLATE,,as_collate>
441 ctrydat <CDATASIZE,SETUCASE,,as_ucase>
442 ctrydat <CDATASIZE,SETUCASEFILE,,as_ucase>
443 ctrydat <CDATASIZE,SETFILELIST,,as_flist>
444 ctrydat <CDATASIZE,SETDBCS,,as_dbcs>
445 ;
446 as850_data label word
447 dw CDATAITEMS ; number of entries
448 ctrydat <CDATASIZE,SETCOUNTRYINFO,,as850_info>
449 ctrydat <CDATASIZE,SETCOLLATE,,as850_collate>
450 ctrydat <CDATASIZE,SETUCASE,,as850_ucase>
451 ctrydat <CDATASIZE,SETUCASEFILE,,as850_ucase>
452 ctrydat <CDATASIZE,SETFILELIST,,as_flist>
453 ctrydat <CDATASIZE,SETDBCS,,as_dbcs>
454 ;
455 po860_data label word
456 dw CDATAITEMS ; number of entries
457 ctrydat <CDATASIZE,SETCOUNTRYINFO,,po860_info>
458 ctrydat <CDATASIZE,SETCOLLATE,,po_collate>
459 ctrydat <CDATASIZE,SETUCASE,,po_ucase>
460 ctrydat <CDATASIZE,SETUCASEFILE,,po_ucase>
461 ctrydat <CDATASIZE,SETFILELIST,,po_flist>
462 ctrydat <CDATASIZE,SETDBCS,,po_dbcs>
463 ;
464 po850_data label word
465 dw CDATAITEMS ; number of entries
466 ctrydat <CDATASIZE,SETCOUNTRYINFO,,po860_info>
467 ctrydat <CDATASIZE,SETCOLLATE,,po850_collate>
468 ctrydat <CDATASIZE,SETUCASE,,po850_ucase>
469 ctrydat <CDATASIZE,SETUCASEFILE,,po850_ucase>
470 ctrydat <CDATASIZE,SETFILELIST,,po_flist>
471 ctrydat <CDATASIZE,SETDBCS,,po_dbcs>
472 ;
473 la437_data label word
474 dw CDATAITEMS ; number of entries
475 ctrydat <CDATASIZE,SETCOUNTRYINFO,,la437_info>
476 ctrydat <CDATASIZE,SETCOLLATE,,la_collate>
477 ctrydat <CDATASIZE,SETUCASE,,la_ucase>
478 ctrydat <CDATASIZE,SETUCASEFILE,,la_ucase>
479 ctrydat <CDATASIZE,SETFILELIST,,la_flist>
480 ctrydat <CDATASIZE,SETDBCS,,la_dbcs>
481 ;
482 la850_data label word
483 dw CDATAITEMS ; number of entries
484 ctrydat <CDATASIZE,SETCOUNTRYINFO,,la437_info>
485 ctrydat <CDATASIZE,SETCOLLATE,,la850_collate>
486 ctrydat <CDATASIZE,SETUCASE,,la850_ucase>
487 ctrydat <CDATASIZE,SETUCASEFILE,,la850_ucase>
488 ctrydat <CDATASIZE,SETFILELIST,,la_flist>
489 ctrydat <CDATASIZE,SETDBCS,,la_dbcs>
490 ;
491 jp932_data label word
492 dw CDATAITEMS ; number of entries
493 ctrydat <CDATASIZE,SETCOUNTRYINFO,,jp932_info>
494 ctrydat <CDATASIZE,SETCOLLATE,,jp932_collate>
495 ctrydat <CDATASIZE,SETUCASE,,jp932_ucase>
496 ctrydat <CDATASIZE,SETUCASEFILE,,jp932_ucase>
497 ctrydat <CDATASIZE,SETFILELIST,,jp932_flist>
498 ctrydat <CDATASIZE,SETDBCS,,jp932_dbcs>
499 ;
500 jp437_data label word
501 dw CDATAITEMS ; number of entries
502 ctrydat <CDATASIZE,SETCOUNTRYINFO,,jp437_info>
503 ctrydat <CDATASIZE,SETCOLLATE,,jp437_collate>
504 ctrydat <CDATASIZE,SETUCASE,,jp437_ucase>
505 ctrydat <CDATASIZE,SETUCASEFILE,,jp437_ucase>
506 ctrydat <CDATASIZE,SETFILELIST,,jp437_flist>
507 ctrydat <CDATASIZE,SETDBCS,,jp437_dbcs>
508 ;
509 ko934_data label word
510 dw CDATAITEMS ; number of entries
511 ctrydat <CDATASIZE,SETCOUNTRYINFO,,ko934_info>
512 ctrydat <CDATASIZE,SETCOLLATE,,ko934_collate>
513 ctrydat <CDATASIZE,SETUCASE,,ko934_ucase>
514 ctrydat <CDATASIZE,SETUCASEFILE,,ko934_ucase>
515 ctrydat <CDATASIZE,SETFILELIST,,ko934_flist>
516 ctrydat <CDATASIZE,SETDBCS,,ko934_dbcs>
517 ;
518 ko437_data label word
519 dw CDATAITEMS ; number of entries
520 ctrydat <CDATASIZE,SETCOUNTRYINFO,,ko437_info>
521 ctrydat <CDATASIZE,SETCOLLATE,,ko437_collate>
522 ctrydat <CDATASIZE,SETUCASE,,ko437_ucase>
523 ctrydat <CDATASIZE,SETUCASEFILE,,ko437_ucase>
524 ctrydat <CDATASIZE,SETFILELIST,,ko437_flist>
525 ctrydat <CDATASIZE,SETDBCS,,ko437_dbcs>
526 ;
527 pr936_data label word
528 dw CDATAITEMS ; number of entries
529 ctrydat <CDATASIZE,SETCOUNTRYINFO,,pr936_info>
530 ctrydat <CDATASIZE,SETCOLLATE,,pr936_collate>
531 ctrydat <CDATASIZE,SETUCASE,,pr936_ucase>
532 ctrydat <CDATASIZE,SETUCASEFILE,,pr936_ucase>
533 ctrydat <CDATASIZE,SETFILELIST,,pr936_flist>
534 ctrydat <CDATASIZE,SETDBCS,,pr936_dbcs>
535 ;
536 pr437_data label word
537 dw CDATAITEMS ; number of entries
538 ctrydat <CDATASIZE,SETCOUNTRYINFO,,pr437_info>
539 ctrydat <CDATASIZE,SETCOLLATE,,pr437_collate>
540 ctrydat <CDATASIZE,SETUCASE,,pr437_ucase>
541 ctrydat <CDATASIZE,SETUCASEFILE,,pr437_ucase>
542 ctrydat <CDATASIZE,SETFILELIST,,pr437_flist>
543 ctrydat <CDATASIZE,SETDBCS,,pr437_dbcs>
544 ;
545 ta938_data label word
546 dw CDATAITEMS ; number of entries
547 ctrydat <CDATASIZE,SETCOUNTRYINFO,,ta938_info>
548 ctrydat <CDATASIZE,SETCOLLATE,,ta938_collate>
549 ctrydat <CDATASIZE,SETUCASE,,ta938_ucase>
550 ctrydat <CDATASIZE,SETUCASEFILE,,ta938_ucase>
551 ctrydat <CDATASIZE,SETFILELIST,,ta938_flist>
552 ctrydat <CDATASIZE,SETDBCS,,ta938_dbcs>
553 ;
554 ta437_data label word
555 dw CDATAITEMS ; number of entries
556 ctrydat <CDATASIZE,SETCOUNTRYINFO,,ta437_info>
557 ctrydat <CDATASIZE,SETCOLLATE,,ta437_collate>
558 ctrydat <CDATASIZE,SETUCASE,,ta437_ucase>
559 ctrydat <CDATASIZE,SETUCASEFILE,,ta437_ucase>
560 ctrydat <CDATASIZE,SETFILELIST,,ta437_flist>
561 ctrydat <CDATASIZE,SETDBCS,,ta437_dbcs>
562 ;
563 afe437_data label word
564 dw CDATAITEMS ; number of entries
565 ctrydat <CDATASIZE,SETCOUNTRYINFO,,afe437_info>
566 ctrydat <CDATASIZE,SETCOLLATE,,afe_collate>
567 ctrydat <CDATASIZE,SETUCASE,,afe_ucase>
568 ctrydat <CDATASIZE,SETUCASEFILE,,afe_ucase>
569 ctrydat <CDATASIZE,SETFILELIST,,afe_flist>
570 ctrydat <CDATASIZE,SETDBCS,,afe_dbcs>
571 ;
572 afe850_data label word
573 dw CDATAITEMS ; number of entries
574 ctrydat <CDATASIZE,SETCOUNTRYINFO,,afe437_info>
575 ctrydat <CDATASIZE,SETCOLLATE,,afe850_collate>
576 ctrydat <CDATASIZE,SETUCASE,,afe850_ucase>
577 ctrydat <CDATASIZE,SETUCASEFILE,,afe850_ucase>
578 ctrydat <CDATASIZE,SETFILELIST,,afe_flist>
579 ctrydat <CDATASIZE,SETDBCS,,afe_dbcs>
580 page
581 ; ----------------------------------------
582 ;
583 ; World Trade Country Info Tables
584 ;
585 ; ----------------------------------------
586 uk437_info label word
587 ctable <>
588 cinfo <CID_UK,437,DATE_DMY,156,,,,,',',,'.',,'-',,':',,,2,HR12,,','>
589 ;
590 fr437_info label word
591 ctable <>
592 cinfo <CID_FR,437,DATE_DMY,'F',,,,,' ',,',',,'/',,':',,3,2,HR24,,';'>
593 ;
594 gr437_info label word
595 ctable <>
596 cinfo <CID_GR,437,DATE_DMY,'D','M',,,,'.',,',',,'.',,'.',,2,2,HR24,,';'>
597 ;
598 sp437_info label word
599 ctable <>
600 cinfo <CID_SP,437,DATE_DMY,158,,,,,'.',,',',,'/',,':',,3,2,HR24,,';'>
601 ;
602 sp850_info label word
603 ctable <>
604 cinfo <CID_SP,437,DATE_DMY,'P','t','s',,,'.',,',',,'/',,':',,3,2,HR24,,';'>
605 ;
606 it437_info label word
607 ctable <>
608 cinfo <CID_IT,437,DATE_DMY,'L','.',,,,'.',,',',,'/',,':',,,,HR24,,';'>
609 ;
610 sv437_info label word
611 ctable <>
612 cinfo <CID_SV,437,DATE_YMD,'S','E','K',,,'.',,',',,'-',,'.',,2,2,HR24,,';'>
613 ;
614 dk865_info label word
615 ctable <>
616 cinfo <CID_DK,865,DATE_DMY,'k','r',,,,'.',,',',,'-',,'.',,2,2,HR24,,';'>
617 ;
618 sw437_info label word
619 ctable <>
620 cinfo <CID_SW,437,DATE_DMY,'F','r',,,,"'",,'.',,'.',,'.',,2,2,HR24,,','>
621 ;
622 ;*** CNS Change date separator from slash to period - DCR 357
623 no865_info label word
624 ctable <>
625 cinfo <CID_NO,865,DATE_DMY,'K','r',,,,'.',,',',,'.',,'.',,2,2,HR24,,';'> ;AN000;
626 ;*** CNS Change date separator from slash to period - DCR 357
627 ;*** Field #14
628 ;
629 nl437_info label word
630 ctable <>
631 cinfo <CID_NL,437,DATE_DMY,159,,,,,'.',,',',,'-',,':',,2,2,HR24,,';'>
632 ;
633 be437_info label word
634 ctable <>
635 cinfo <CID_BE,437,DATE_DMY,'B','E','F',,,'.',,',',,'/',,':',,2,2,HR24,,';'>
636 ;
637 fi437_info label word
638 ctable <>
639 cinfo <CID_FI,437,DATE_DMY,'m','k',,,,' ',,',',,'.',,'.',,3,2,HR24,,';'>
640 ;
641 jp437_info label word
642 ko437_info label word
643 pr437_info label word
644 ta437_info label word
645 us437_info label word
646 ctable <>
647 cinfo <CID_US,437,DATE_MDY,'$',,,,,',',,'.',,'-',,':',,,2,HR12,,','>
648 ;
649 is862_info label word
650 ctable <>
651 cinfo <CID_IS,862,DATE_DMY,153,,,,,',',,'.',,' ',,':',,2,2,HR24,,','>
652 ;
653 ca863_info label word
654 ctable <>
655 cinfo <CID_CA,863,DATE_YMD,'$',,,,,' ',,',',,'-',,':',,3,2,HR24,,';'>
656 ;
657 as864_info label word
658 ctable <>
659 cinfo <CID_AS,864,DATE_DMY,164,,,,,'.',,',',,'/',,':',,3,3,HR12,,';'>
660 ;
661 as850_info label word
662 ctable <>
663 cinfo <CID_AS,864,DATE_DMY,207,,,,,'.',,',',,'/',,':',,3,3,HR12,,';'>
664 ;
665 po860_info label word
666 ctable <>
667 cinfo <CID_PO,860,DATE_DMY,'$',,,,,'.',,',',,'/',,':',,4,2,HR24,,';'>
668 ;
669 la437_info label word
670 ctable <>
671 cinfo <CID_LA,437,DATE_DMY,'$',,,,,',',,'.',,'/',,':',,3,2,HR24,,';'>
672 ;
673 afe437_info label word
674 ctable <>
675 cinfo <CID_AFE,437,DATE_DMY,'$',,,,,',',,'.',,'-',,':',,,2,HR12,,','>
676 ;
677 jp932_info label word
678 ctable <>
679 cinfo <CID_JP,932,DATE_YMD,'\',,,,,',',,'.',,'-',,':',,,0,HR24,,','>
680 ;
681 ko934_info label word
682 ctable <>
683 cinfo <CID_KO,934,DATE_YMD,'\',,,,,',',,'.',,'-',,':',,,0,HR24,,','>
684 ;
685 pr936_info label word
686 ctable <>
687 cinfo <CID_PR,936,DATE_YMD,'\',,,,,',',,'.',,'-',,':',,,2,HR24,,','>
688 ;
689 ta938_info label word
690 ctable <>
691 cinfo <CID_TA,938,DATE_MDY,'N','T','$',,,',',,'.',,'-',,':',,,2,HR24,,','>
692 ;
693 page
694 ; ------------------------------------------------
695 ;
696 ; World Trade Collating sequence tables
697 ;
698 ; ------------------------------------------------
699 ;
700 ; --------------------------------------------------------------------------
701 ;
702 ; Collating Table Same for United States, United Kingdom, France, Germany,
703 ; Italy, and International English
704 ; --------------------------------------------------------------------------
705 ;
706 us_collate label word
707 ;
708 uk_collate label word
709 ;
710 fr_collate label word
711 ;
712 gr_collate label word
713 ;
714 it_collate label word
715 ;
716 jp437_collate label word
717 ;
718 ko437_collate label word
719 ;
720 pr437_collate label word
721 ;
722 ta437_collate label word
723 ;
724 afe_collate label word
725 ctable <,'COLLATE',256>
726 db 0,1,2,3,4,5,6,7
727 db 8,9,10,11,12,13,14,15
728 db 16,17,18,19,20,21,22,23
729 db 24,25,26,27,28,29,30,31
730 db " ","!",'"',"#","$","%","&","'"
731 db "(",")","*","+",",","-",".","/"
732 db "0","1","2","3","4","5","6","7"
733 db "8","9",":",";","<","=",">","?"
734 db "@","A","B","C","D","E","F","G"
735 db "H","I","J","K","L","M","N","O"
736 db "P","Q","R","S","T","U","V","W"
737 db "X","Y","Z","[","\","]","^","_"
738 db "`","A","B","C","D","E","F","G"
739 db "H","I","J","K","L","M","N","O"
740 db "P","Q","R","S","T","U","V","W"
741 db "X","Y","Z","{","|","}","~",127
742 db "C","U","E","A","A","A","A","C"
743 db "E","E","E","I","I","I","A","A"
744 db "E","A","A","O","O","O","U","U"
745 db "Y","O","U","$","$","$","$","$"
746 db "A","I","O","U","N","N",166,167
747 db "?",169,170,171,172,"!",'"','"'
748 db 176,177,178,179,180,181,182,183
749 db 184,185,186,187,188,189,190,191
750 db 192,193,194,195,196,197,198,199
751 db 200,201,202,203,204,205,206,207
752 db 208,209,210,211,212,213,214,215
753 db 216,217,218,219,220,221,222,223
754 db 224,"S"
755 db 226,227,228,229,230,231
756 db 232,233,234,235,236,237,238,239
757 db 240,241,242,243,244,245,246,247
758 db 248,249,250,251,252,253,254,255
759 page
760 ;
761 ; Netherland 437 Collate
762 ;
763 nl_collate label word
764 ctable <,'COLLATE',256>
765 db 000,001,002,003,004,005,006,007
766 db 008,009,010,011,012,013,014,015
767 db 016,017,018,019,020,021,022,023
768 db 024,025,026,027,028,029,030,031
769 db 032,033,034,035,036,037,038,039
770 db 040,041,042,043,044,045,046,047
771 db 048,049,050,051,052,053,054,055
772 db 056,057,058,059,060,061,062,063
773 db 064,065,066,067,068,069,070,071
774 db 072,073,074,075,076,077,078,079
775 db 080,081,082,083,084,085,086,087
776 db 088,089,090,091,092,093,094,095
777 db 096,065,066,067,068,069,070,071
778 db 072,073,074,075,076,077,078,079
779 db 080,081,082,083,084,085,086,087
780 db 088,089,090,123,124,125,126,127
781 db 128,154,144,065,142,065,143,128
782 db 069,069,069,073,073,073,142,143
783 db 144,146,146,079,079,079,085,085
784 db 152,079,085,155,156,157,158,159
785 db 065,073,079,085,165,165,166,167
786 db 168,169,170,171,172,173,174,175
787 db 176,177,178,179,180,181,182,183
788 db 184,185,186,187,188,189,190,191
789 db 192,193,194,195,196,197,198,199
790 db 200,201,202,203,204,205,206,207
791 db 208,209,210,211,212,213,214,215
792 db 216,217,218,219,220,221,222,223
793 db 224,225,226,227,228,229,230,231
794 db 232,233,234,235,236,237,238,239
795 db 240,241,242,243,244,245,246,247
796 db 248,249,250,251,252,253,254,255
797 page
798 ;
799 ;la_collate label word
800 ; ctable <,'COLLATE',256>
801 ; db 000,001,002,003,004,005,006,007
802 ; db 008,009,010,011,012,013,014,015
803 ; db 016,017,018,019,020,021,022,023
804 ; db 024,025,026,027,028,029,030,031
805 ; db 032,033,034,035,036,037,038,039
806 ; db 040,041,042,043,044,045,046,047
807 ; db 048,049,050,051,052,053,054,055
808 ; db 056,057,058,059,060,061,062,063
809 ; db 064,065,066,067,068,069,070,071
810 ; db 072,073,074,075,076,077,078,079
811 ; db 080,081,082,083,084,085,086,087
812 ; db 088,089,090,091,092,093,094,095
813 ; db 096,065,066,067,068,069,070,071
814 ; db 072,073,074,075,076,077,078,079
815 ; db 080,081,082,083,084,085,086,087
816 ; db 088,089,090,123,124,125,126,127
817 ; db 128,"U","E","A","A","A","A",128
818 ; db "E","E","E","I","I","I","A","A"
819 ; db "E","A","A","O","O","O","U","U"
820 ; db "Y","O","U","$","$","$","$","$"
821 ; db "A","I","O","U",165,165,166,167
822 ; db "?",169,170,171,172,"!",'"','"'
823 ; db 176,177,178,179,180,181,182,183
824 ; db 184,185,186,187,188,189,190,191
825 ; db 192,193,194,195,196,197,198,199
826 ; db 200,201,202,203,204,205,206,207
827 ; db 208,209,210,211,212,213,214,215
828 ; db 216,217,218,219,220,221,222,223
829 ; db 224,"S"
830 ; db 226,227,228,229,230,231
831 ; db 232,233,234,235,236,237,238,239
832 ; db 240,241,242,243,244,245,246,247
833 ; db 248,249,250,251,252,253,254,255
834 page
835 la_collate label word ; new for DOS 4.0, wants same as spain
836 ;
837 sp_collate label word ; new for DOS 4.0
838 ctable <,'COLLATE',256>
839 db 000,150,151,152,153,154,155,156 ;7
840 db 157,158,159,160,161,162,163,164 ;15
841 db 165,166,167,168,169,170,171,172 ;23
842 db 173,174,175,176,177,178,179,180 ;31
843 db 000,060,061,062,063,064,065,000 ;39
844 db 066,067,068,069,070,000,071,072 ;47
845 db 034,035,036,037,038,039,040,041 ;55
846 db 042,043,073,074,075,076,077,078 ;63
847 db 079,001,002,003,006,008,009,010 ;71
848 db 011,012,013,014,015,017,018,020 ;79
849 db 021,022,023,024,026,028,029,030 ;87
850 db 031,032,033,080,081,082,083,084 ;95
851 db 085,001,002,003,006,008,009,010 ;103
852 db 011,012,013,014,015,017,018,020 ;111
853 db 021,022,023,024,026,028,029,030 ;119
854 db 031,032,033,086,087,088,089,090 ;127
855 db 004,028,008,001,001,001,001,004 ;135
856 db 008,008,008,012,012,012,001,001 ;143
857 db 008,001,001,020,020,020,028,028 ;151
858 db 032,020,028,091,092,093,094,095 ;159
859 db 001,012,020,028,019,019,001,020 ;167
860 db 096,097,098,099,100,101,102,103 ;175
861 db 104,105,106,107,108,181,182,183 ;183
862 db 184,109,110,111,112,185,186,113 ;191
863 db 114,115,116,117,118,119,187,188 ;199
864 db 120,121,122,123,124,125,126,189 ;207
865 db 190,191,192,193,194,195,196,197 ;215
866 db 198,127,128,129,130,199,200,131 ;223
867 db 201,025,202,203,204,205,132,206 ;231
868 db 207,208,209,210,211,212,213,214 ;239
869 db 215,133,216,217,218,219,134,220 ;247
870 db 221,222,000,223,224,135,136,225 ;255
871 page
872 ;
873 dk_collate label word ; Denmark (dk) 865
874 ctable <,'COLLATE',256>
875 db 000,001,002,003,004,005,006,007
876 db 008,009,010,011,012,013,014,015
877 db 016,017,018,019,020,021,022,023
878 db 024,025,026,027,028,029,030,031
879 db 032,033,034,035,036,037,038,039
880 db 040,041,042,043,044,045,046,047
881 db 048,049,050,051,052,053,054,055
882 db 056,057,058,059,060,061,062,063
883 db 064,065,066,067,068,069,070,071
884 db 072,073,074,075,076,077,078,079
885 db 080,081,082,083,084,085,086,087
886 db 088,089,090,040,047,041,094,095
887 db 096,065,066,067,068,069,070,071
888 db 072,073,074,075,076,077,078,079
889 db 080,081,082,083,084,085,086,087
890 db 088,089,090,040,047,041,126,127
891 db 067,089,069,065,091,065,093,067
892 db 069,069,069,073,073,073,091,093
893 db 069,091,091,079,092,079,085,085
894 db 089,092,089,092,036,092,036,036
895 db 065,073,079,085,078,078,065,079
896 db 063,169,170,171,172,033,034,036
897 db 176,177,178,179,180,181,182,183
898 db 184,185,186,187,188,189,190,191
899 db 192,193,194,195,196,197,198,199
900 db 200,201,202,203,204,205,206,207
901 db 208,209,210,211,212,213,214,215
902 db 216,217,218,219,220,221,222,223
903 db 224,083,226,227,228,229,230,231
904 db 232,233,234,235,236,237,238,239
905 db 240,241,242,243,244,245,246,247
906 db 248,249,250,251,252,253,254,255
907 page
908 ;
909 no_collate label word ; Norway (no) 865
910 ctable <,'COLLATE',256>
911 db 000,001,002,003,004,005,006,007
912 db 008,009,010,011,012,013,014,015
913 db 016,017,018,019,020,021,022,023
914 db 024,025,026,027,028,029,030,031
915 db 032,033,034,035,036,037,038,039
916 db 040,041,042,043,044,045,046,047
917 db 048,049,050,051,052,053,054,055
918 db 056,057,058,059,060,061,062,063
919 db 064,065,066,067,068,069,070,071
920 db 072,073,074,075,076,077,078,079
921 db 080,081,082,083,084,085,086,087
922 db 088,089,090,091,092,093,094,095
923 db 096,065,066,067,068,069,070,071
924 db 072,073,074,075,076,077,078,079
925 db 080,081,082,083,084,085,086,087
926 db 088,089,090,123,124,125,126,127
927 db 067,089,069,065,091,065,093,067
928 db 069,069,069,073,073,073,091,093
929 db 069,091,091,079,092,079,085,085
930 db 089,092,089,092,036,092,036,036
931 db 065,073,079,085,078,078,065,079
932 db 063,169,170,171,172,033,034,036
933 db 176,177,178,179,180,181,182,183
934 db 184,185,186,187,188,189,190,191
935 db 192,193,194,195,196,197,198,199
936 db 200,201,202,203,204,205,206,207
937 db 208,209,210,211,212,213,214,215
938 db 216,217,218,219,220,221,222,223
939 db 224,083,226,227,228,229,230,231
940 db 232,233,234,235,236,237,238,239
941 db 240,241,242,243,244,245,246,247
942 db 248,249,250,251,252,253,254,255
943 page
944 ;
945 ; Finland 437 Collate (same as Sweden)
946 ;
947 fi_collate label word
948 ;
949 sv_collate label word
950 ctable <,'COLLATE',256>
951 db 000,001,002,003,004,005,006,007
952 db 008,009,010,011,012,013,014,015
953 db 016,017,018,019,020,021,022,023
954 db 024,025,026,027,028,029,030,031
955 db 032,033,034,035,036,037,038,039
956 db 040,041,042,043,044,045,046,047
957 db 048,049,050,051,052,053,054,055
958 db 056,057,058,059,060,061,062,063
959 db 064,065,066,067,068,069,070,071
960 db 072,073,074,075,076,077,078,079
961 db 080,081,082,083,084,085,086,087
962 db 088,089,090,091,092,093,094,095
963 db 096,065,066,067,068,069,070,071
964 db 072,073,074,075,076,077,078,079
965 db 080,081,082,083,084,085,086,087
966 db 088,089,090,123,124,125,126,127
967 db 067,089,069,065,092,065,091,067
968 db 069,069,069,073,073,073,092,091
969 db 069,092,092,079,093,079,085,085
970 db 089,093,089,036,036,036,036,036
971 db 065,073,079,085,078,078,166,167
972 db 063,169,170,171,172,033,034,034
973 db 176,177,178,179,180,181,182,183
974 db 184,185,186,187,188,189,190,191
975 db 192,193,194,195,196,197,198,199
976 db 200,201,202,203,204,205,206,207
977 db 208,209,210,211,212,213,214,215
978 db 216,217,218,219,220,221,222,223
979 db 224,083,226,227,228,229,230,231
980 db 232,233,234,235,236,237,238,239
981 db 240,241,242,243,244,245,246,247
982 db 248,249,250,251,252,253,254,255
983 page
984 ;
985 ; Israel 862 collate
986 ;
987 is_collate label word
988 ctable <,'COLLATE',256>
989 db 000,001,002,003,004,005,006,007
990 db 008,009,010,011,012,013,014,015
991 db 016,017,018,019,020,021,022,023
992 db 024,025,026,027,028,029,030,031
993 db 032,033,034,035,036,037,038,039
994 db 040,041,042,043,044,045,046,047
995 db 048,049,050,051,052,053,054,055
996 db 056,057,058,059,060,061,062,063
997 db 064,065,066,067,068,069,070,071
998 db 072,073,074,075,076,077,078,079
999 db 080,081,082,083,084,085,086,087
1000 db 088,089,090,091,092,093,094,095
1001 db 096,065,066,067,068,069,070,071
1002 db 072,073,074,075,076,077,078,079
1003 db 080,081,082,083,084,085,086,087
1004 db 088,089,090,123,124,125,126,127
1005 db 128,129,130,131,132,133,134,135
1006 db 136,137,138,139,140,141,142,143
1007 db 144,145,146,147,148,149,150,151
1008 db 152,153,154,036,036,036,036,036
1009 db 065,073,079,085,078,078,166,167
1010 db 063,169,170,171,172,033,034,034
1011 db 176,177,178,179,180,181,182,183
1012 db 184,185,186,187,188,189,190,191
1013 db 192,193,194,195,196,197,198,199
1014 db 200,201,202,203,204,205,206,207
1015 db 208,209,210,211,212,213,214,215
1016 db 216,217,218,219,220,221,222,223
1017 db 224,083,226,227,228,229,230,231
1018 db 232,233,234,235,236,237,238,239
1019 db 240,241,242,243,244,245,246,247
1020 db 248,249,250,251,252,253,254,255
1021 page
1022 ;
1023 ; Canada 863 Collate
1024 ;
1025 ca_collate label word
1026 ctable <,'COLLATE',256>
1027 db 000,001,002,003,004,005,006,007
1028 db 008,009,010,011,012,013,014,015
1029 db 016,017,018,019,020,021,022,023
1030 db 024,025,026,027,028,029,030,031
1031 db 032,033,034,035,036,037,038,039
1032 db 040,041,042,043,044,045,046,047
1033 db 048,049,050,051,052,053,054,055
1034 db 056,057,058,059,060,061,062,063
1035 db 064,065,066,067,068,069,070,071
1036 db 072,073,074,075,076,077,078,079
1037 db 080,081,082,083,084,085,086,087
1038 db 088,089,090,091,092,093,094,095
1039 db 096,065,066,067,068,069,070,071
1040 db 072,073,074,075,076,077,078,079
1041 db 080,081,082,083,084,085,086,087
1042 db 088,089,090,123,124,125,126,127
1043 db 067,085,069,065,065,065,134,067
1044 db 069,069,069,073,073,141,065,143
1045 db 069,069,069,079,069,073,085,085
1046 db 152,079,085,155,156,085,085,159
1047 db 160,161,079,085,164,165,166,167
1048 db 073,169,170,171,172,173,174,175
1049 db 176,177,178,179,180,181,182,183
1050 db 184,185,186,187,188,189,190,191
1051 db 192,193,194,195,196,197,198,199
1052 db 200,201,202,203,204,205,206,207
1053 db 208,209,210,211,212,213,214,215
1054 db 216,217,218,219,220,221,222,223
1055 db 224,225,226,227,228,229,230,231
1056 db 232,233,234,235,236,237,238,239
1057 db 240,241,242,243,244,245,246,247
1058 db 248,249,250,251,252,253,254,255
1059 page
1060 ;
1061 ; Portugal 860 collating
1062 ;
1063 po_collate label word
1064 ctable <,'COLLATE',256>
1065 db 000,001,002,003,004,005,006,007
1066 db 008,009,010,011,012,013,014,015
1067 db 016,017,018,019,020,021,022,023
1068 db 024,025,026,027,028,029,030,031
1069 db 032,033,034,035,036,037,038,039
1070 db 040,041,042,043,044,045,046,047
1071 db 048,049,050,051,052,053,054,055
1072 db 056,057,058,059,060,061,062,063
1073 db 064,065,066,067,068,069,070,071
1074 db 072,073,074,075,076,077,078,079
1075 db 080,081,082,083,084,085,086,087
1076 db 088,089,090,091,092,093,094,095
1077 db 096,065,066,067,068,069,070,071
1078 db 072,073,074,075,076,077,078,079
1079 db 080,081,082,083,084,085,086,087
1080 db 088,089,090,123,124,125,126,127
1081 db 067,085,069,065,065,065,065,067
1082 db 069,069,069,073,079,073,065,065
1083 db 069,065,069,079,079,079,085,085
1084 db 073,079,085,036,036,085,036,079
1085 db 065,073,079,085,078,078,166,167
1086 db 063,079,170,171,172,033,034,034
1087 db 176,177,178,179,180,181,182,183
1088 db 184,185,186,187,188,189,190,191
1089 db 192,193,194,195,196,197,198,199
1090 db 200,201,202,203,204,205,206,207
1091 db 208,209,210,211,212,213,214,215
1092 db 216,217,218,219,220,221,222,223
1093 db 224,083,226,227,228,229,230,231
1094 db 232,233,234,235,236,237,238,239
1095 db 240,241,242,243,244,245,246,247
1096 db 248,249,250,251,252,253,254,255
1097 page
1098 ;
1099 sw_collate label word
1100 ctable <,'COLLATE',256>
1101 db 001,200,201,202,203,204,205,206
1102 db 207,208,209,210,211,212,213,214
1103 db 215,216,217,218,140,141,219,220
1104 db 221,222,223,224,225,226,227,228
1105 db 001,060,061,062,063,064,065,066 ;DCR059 CNS ****** ;AN000;
1106 db 067,068,069,070,071,072,073,074
1107 db 032,033,034,035,036,037,038,039
1108 db 040,041,075,076,077,078,079,080
1109 db 081,002,003,004,005,007,008,009
1110 db 010,011,012,013,014,015,016,018
1111 db 019,020,021,022,024,026,027,028
1112 db 029,030,031,082,083,084,052,085
1113 db 051,002,003,004,005,007,008,009
1114 db 010,011,012,013,014,015,016,018
1115 db 019,020,021,022,024,026,027,028
1116 db 029,030,031,086,087,088,054,089
1117 db 004,026,007,002,002,002,002,004
1118 db 007,007,007,011,011,011,002,002
1119 db 007,002,002,018,018,018,026,026
1120 db 030,018,026,111,090,112,150,092
1121 db 002,011,018,026,017,017,002,018
1122 db 093,151,095,096,097,098,099,100
1123 db 101,102,103,104,105,152,153,154
1124 db 155,107,108,109,110,156,157,113
1125 db 114,115,116,117,118,119,158,159
1126 db 120,121,122,123,124,125,126,160
1127 db 161,162,163,164,165,166,167,168
1128 db 169,128,129,130,131,170,171,133
1129 db 172,023,173,174,175,176,134,177
1130 db 178,179,180,181,182,183,184,185
1131 db 186,137,187,188,189,190,142,191
1132 db 143,192,144,193,194,147,148,001
1133 page
1134 ;
1135 be_collate label word
1136 ctable <,'COLLATE',256>
1137 db 255,255,255,255,255,255,255,255
1138 db 255,255,255,255,255,255,255,255
1139 db 255,255,255,255,255,255,255,255
1140 db 255,255,255,255,255,255,255,255
1141 db 255,033,034,035,036,037,038,255
1142 db 040,041,042,043,044,255,046,047
1143 db 048,049,050,051,052,053,054,055
1144 db 056,057,058,059,060,061,062,063
1145 db 064,065,066,067,068,069,070,071
1146 db 072,073,074,075,076,077,078,079
1147 db 080,081,082,083,084,085,086,087
1148 db 088,089,090,091,092,093,094,095
1149 db 096,065,066,067,068,069,070,071
1150 db 072,073,074,075,076,077,078,079
1151 db 080,081,082,083,084,085,086,087
1152 db 088,089,090,123,124,125,126,127
1153 db 067,085,069,065,065,065,065,067
1154 db 069,069,069,073,073,073,065,065
1155 db 069,065,065,079,079,079,085,085
1156 db 089,079,085,155,156,157,158,159
1157 db 065,073,079,085,078,078,166,167
1158 db 168,169,170,171,172,173,174,175
1159 db 255,255,255,255,255,255,255,255
1160 db 255,255,255,255,255,255,255,255
1161 db 255,255,255,255,255,255,255,255
1162 db 255,255,255,255,255,255,255,255
1163 db 255,255,255,255,255,255,255,255
1164 db 255,255,255,255,255,255,255,255
1165 db 224,083,226,227,228,229,230,231
1166 db 232,233,234,235,236,237,238,239
1167 db 240,241,242,243,244,245,246,247
1168 db 248,249,250,251,252,253,255,255
1169 page
1170 ;
1171 ; Area South 864 Collate
1172 ;
1173 as_collate label word
1174 ctable <,'COLLATE',256>
1175 db 000,001,002,003,004,005,006,007
1176 db 008,009,010,011,012,013,014,015
1177 db 016,017,018,019,020,021,022,023
1178 db 024,025,026,027,028,029,030,031
1179 db 032,033,034,035,036,037,038,039
1180 db 040,041,042,043,044,045,046,047
1181 db 048,049,050,051,052,053,054,055
1182 db 056,057,058,059,060,061,062,063
1183 db 064,065,066,067,068,069,070,071
1184 db 072,073,074,075,076,077,078,079
1185 db 080,081,082,083,084,085,086,087
1186 db 088,089,090,091,092,093,094,095
1187 db 096,065,066,067,068,069,070,071
1188 db 072,073,074,075,076,077,078,079
1189 db 080,081,082,083,084,085,086,087
1190 db 088,089,090,123,124,125,126,127
1191 db 128,129,130,131,132,133,134,135
1192 db 136,137,138,139,140,141,142,143
1193 db 144,145,146,147,148,149,150,151
1194 db 152,233,234,251,255,235,236,179
1195 db 153,154,182,155,156,184,253,254
1196 db 188,189,192,194,163,196,198,200
1197 db 164,165,166,167,168,169,170,171
1198 db 172,173,224,174,206,208,210,175
1199 db 157,180,181,183,185,217,186,187
1200 db 190,191,193,195,197,199,201,202
1201 db 203,204,205,207,209,211,213,214
1202 db 215,218,222,158,159,160,161,216
1203 db 178,225,227,229,237,239,241,243
1204 db 245,246,250,212,219,221,220,238
1205 db 177,176,240,242,244,247,249,223
1206 db 226,231,232,230,228,248,162,255
1207
1208
1209 page
1210 ;
1211 ; -----------------------------------------
1212 ;
1213 ; Collating Tables for Code Page 850
1214 ;
1215 ; -----------------------------------------
1216 ;
1217 fr850_collate label word
1218 ;
1219 ca850_collate label word
1220 ;
1221 us850_collate label word
1222 ;
1223 uk850_collate label word
1224 ;
1225 it850_collate label word
1226 ;
1227 ;;sp850_collate label word ; spain now has there own
1228 ;
1229 is850_collate label word
1230 ;
1231 po850_collate label word
1232 ;
1233 ;;la850_collate label word ; wants same as spain
1234 ;
1235 as850_collate label word
1236 ;
1237 gr850_collate label word ;omitted tobe consistent with US DCR
1238 ;
1239 afe850_collate label word
1240 ctable <,'COLLATE',256>
1241 db 000,001,002,003,004,005,006,007
1242 db 008,009,010,011,012,013,014,015
1243 db 016,017,018,019,020,021,022,023
1244 db 024,025,026,027,028,029,030,031
1245 db 032,033,034,035,036,037,038,039
1246 db 040,041,042,043,044,045,046,047
1247 db 048,049,050,051,052,053,054,055
1248 db 056,057,058,059,060,061,062,063
1249 db 064,065,066,067,068,069,070,071
1250 db 072,073,074,075,076,077,078,079
1251 db 080,081,082,083,084,085,086,087
1252 db 088,089,090,091,092,093,094,095
1253 db 096,065,066,067,068,069,070,071
1254 db 072,073,074,075,076,077,078,079
1255 db 080,081,082,083,084,085,086,087
1256 db 088,089,090,123,124,125,126,127
1257 db 067,085,069,065,065,065,065,067
1258 db 069,069,069,073,073,073,065,065
1259 db 069,065,065,079,079,079,085,085
1260 db 089,079,085,079,036,079,158,036
1261 db 065,073,079,085,078,078,166,167
1262 db 063,169,170,171,172,033,034,034
1263 db 176,177,178,179,180,065,065,065
1264 db 184,185,186,187,188,036,036,191
1265 db 192,193,194,195,196,197,065,065
1266 db 200,201,202,203,204,205,206,036
1267 db 068,068,069,069,069,073,073,073
1268 db 073,217,218,219,220,221,073,223
1269 db 079,083,079,079,079,079,230,232
1270 db 232,085,085,085,089,089,238,239
1271 db 240,241,242,243,244,245,246,247
1272 db 248,249,250,251,252,253,254,255
1273 page
1274
1275 ;formerly GERMAN COLLATE TABLE DCR0037
1276 ; ctable <,'COLLATE',256>
1277 ; db 000,001,002,003,004,005,006,007
1278 ; db 008,009,010,011,012,013,014,015
1279 ; db 016,017,018,019,020,021,022,023
1280 ; db 024,025,026,027,028,029,030,031
1281 ; db 032,033,034,035,036,037,038,039
1282 ; db 040,041,042,043,044,045,046,047
1283 ; db 048,049,050,051,052,053,054,055
1284 ; db 056,057,058,059,060,061,062,063
1285 ; db 064,065,066,067,068,069,070,071
1286 ; db 072,073,074,075,076,077,078,079
1287 ; db 080,081,082,083,084,085,086,087
1288 ; db 088,089,090,091,092,093,094,095
1289 ; db 096,065,066,067,068,069,070,071
1290 ; db 072,073,074,075,076,077,078,079
1291 ; db 080,081,082,083,084,085,086,087
1292 ; db 088,089,090,123,124,125,126,127
1293 ; db 067,117,069,065,097,065,065,067
1294 ; db 069,069,069,073,073,073,065,065
1295 ; db 069,065,065,079,111,079,085,085
1296 ; db 089,079,085,079,036,079,158,036
1297 ; db 065,073,079,085,078,078,166,167
1298 ; db 063,169,170,171,172,033,034,034
1299 ; db 176,177,178,179,180,065,065,065
1300 ; db 184,185,186,187,188,036,036,191
1301 ; db 192,193,194,195,196,197,065,065
1302 ; db 200,201,202,203,204,205,206,036
1303 ; db 068,068,069,069,069,073,073,073
1304 ; db 073,217,218,219,220,221,073,223
1305 ; db 079,115,079,079,079,079,230,232
1306 ; db 232,085,085,085,089,089,238,239
1307 ; db 240,241,242,243,244,245,246,247
1308 ; db 248,249,250,251,252,253,254,255
1309 page
1310 ;
1311 nl850_collate label word
1312 ctable <,'COLLATE',256>
1313 db 000,001,002,003,004,005,006,007
1314 db 008,009,010,011,012,013,014,015
1315 db 016,017,018,019,020,021,022,023
1316 db 024,025,026,027,028,029,030,031
1317 db 032,033,034,035,036,037,038,039
1318 db 040,041,042,043,044,045,046,047
1319 db 048,049,050,051,052,053,054,055
1320 db 056,057,058,059,060,061,062,063
1321 db 064,065,066,067,068,069,070,071
1322 db 072,073,074,075,076,077,078,079
1323 db 080,081,082,083,084,085,086,087
1324 db 088,089,090,091,092,093,094,095
1325 db 096,065,066,067,068,069,070,071
1326 db 072,073,074,075,076,077,078,079
1327 db 080,081,082,083,084,085,086,087
1328 db 088,089,090,123,124,125,126,127
1329 db 067,085,069,065,065,065,143,067
1330 db 069,069,069,073,073,073,065,143
1331 db 069,146,146,079,079,079,085,085
1332 db 152,079,085,079,156,079,158,159
1333 db 065,073,079,085,165,165,166,167
1334 db 168,169,170,171,172,173,174,175
1335 db 176,177,178,179,180,065,065,065
1336 db 184,185,186,187,188,189,190,191
1337 db 192,193,194,195,196,197,065,065
1338 db 200,201,202,203,204,205,206,207
1339 db 209,209,069,069,069,073,073,073
1340 db 073,217,218,219,220,221,073,223
1341 db 079,225,079,079,079,079,230,232
1342 db 232,085,085,085,089,089,238,239
1343 db 240,241,242,243,244,245,246,247
1344 db 248,249,250,251,252,253,254,255
1345 page
1346 ;
1347 dk850_collate label word
1348 ctable <,'COLLATE',256>
1349 db 000,001,002,003,004,005,006,007
1350 db 008,009,010,011,012,013,014,015
1351 db 016,017,018,019,020,021,022,023
1352 db 024,025,026,027,028,029,030,031
1353 db 032,033,034,035,036,037,038,039
1354 db 040,041,042,043,044,045,046,047
1355 db 048,049,050,051,052,053,054,055
1356 db 056,057,058,059,060,061,062,063
1357 db 064,065,066,067,068,069,070,071
1358 db 072,073,074,075,076,077,078,079
1359 db 080,081,082,083,084,085,086,087
1360 db 088,089,090,040,047,041,094,095
1361 db 096,065,066,067,068,069,070,071
1362 db 072,073,074,075,076,077,078,079
1363 db 080,081,082,083,084,085,086,087
1364 db 088,089,090,040,047,041,126,127
1365 db 067,089,069,065,091,065,093,067
1366 db 069,069,069,073,073,073,091,093
1367 db 069,091,091,079,092,079,085,085
1368 db 089,092,089,092,036,092,158,036
1369 db 065,073,079,085,078,078,065,079
1370 db 063,169,170,171,172,033,034,034
1371 db 176,177,178,179,180,065,065,065
1372 db 184,185,186,187,188,036,036,191
1373 db 192,193,194,195,196,197,065,065
1374 db 200,201,202,203,204,205,206,036
1375 db 068,068,069,069,069,073,073,073
1376 db 073,217,218,219,220,221,073,223
1377 db 079,083,079,079,079,079,230,080
1378 db 080,085,085,085,089,089,238,239
1379 db 240,241,242,243,244,245,246,247
1380 db 248,249,250,251,252,253,254,255
1381 page
1382 ;
1383 no850_collate label word
1384 ctable <,'COLLATE',256>
1385 db 000,001,002,003,004,005,006,007
1386 db 008,009,010,011,012,013,014,015
1387 db 016,017,018,019,020,021,022,023
1388 db 024,025,026,027,028,029,030,031
1389 db 032,033,034,035,036,037,038,039
1390 db 040,041,042,043,044,045,046,047
1391 db 048,049,050,051,052,053,054,055
1392 db 056,057,058,059,060,061,062,063
1393 db 064,065,066,067,068,069,070,071
1394 db 072,073,074,075,076,077,078,079
1395 db 080,081,082,083,084,085,086,087
1396 db 088,089,090,091,092,093,094,095
1397 db 096,065,066,067,068,069,070,071
1398 db 072,073,074,075,076,077,078,079
1399 db 080,081,082,083,084,085,086,087
1400 db 088,089,090,123,124,125,126,127
1401 db 067,085,069,065,091,065,093,067
1402 db 069,069,069,073,073,073,091,093
1403 db 069,091,091,079,092,079,085,085
1404 db 089,092,089,092,036,092,158,036
1405 db 065,073,079,085,078,078,065,079
1406 db 063,169,170,171,172,033,034,034
1407 db 176,177,178,179,180,065,065,065
1408 db 184,185,186,187,188,036,036,191
1409 db 192,193,194,195,196,197,065,065
1410 db 200,201,202,203,204,205,206,036
1411 db 068,068,069,069,069,073,073,073
1412 db 073,217,218,219,220,221,073,223
1413 db 079,083,079,079,079,079,230,080
1414 db 080,085,085,085,089,089,238,239
1415 db 240,241,242,243,244,245,246,247
1416 db 248,249,250,251,252,253,254,255
1417 page
1418 ;
1419 sv850_collate label word
1420 ctable <,'COLLATE',256>
1421 db 000,001,002,003,004,005,006,007
1422 db 008,009,010,011,012,013,014,015
1423 db 016,017,018,019,020,021,022,023
1424 db 024,025,026,027,028,029,030,031
1425 db 032,033,034,035,036,037,038,039
1426 db 040,041,042,043,044,045,046,047
1427 db 048,049,050,051,052,053,054,055
1428 db 056,057,058,059,060,061,062,063
1429 db 064,065,066,067,068,069,070,071
1430 db 072,073,074,075,076,077,078,079
1431 db 080,081,082,083,084,085,086,087
1432 db 088,089,090,091,092,093,094,095
1433 db 096,065,066,067,068,069,070,071
1434 db 072,073,074,075,076,077,078,079
1435 db 080,081,082,083,084,085,086,087
1436 db 088,089,090,123,124,125,126,127
1437 db 067,089,069,065,092,065,091,067
1438 db 069,069,069,073,073,073,092,091
1439 db 069,092,092,079,093,079,085,085
1440 db 089,093,089,093,036,093,158,036
1441 db 065,073,079,085,078,078,166,167
1442 db 063,169,170,171,172,033,034,034
1443 db 176,177,178,179,180,065,065,065
1444 db 184,185,186,187,188,036,036,191
1445 db 192,193,194,195,196,197,065,065
1446 db 200,201,202,203,204,205,206,036
1447 db 068,068,069,069,069,073,073,073
1448 db 073,217,218,219,220,221,073,223
1449 db 079,083,079,079,093,093,230,232
1450 db 232,085,085,085,089,089,238,239
1451 db 240,241,242,243,244,245,246,247
1452 db 248,249,250,251,252,253,254,255
1453 page
1454 ;
1455 fi850_collate label word
1456 ctable <,'COLLATE',256>
1457 db 000,001,002,003,004,005,006,007
1458 db 008,009,010,011,012,013,014,015
1459 db 016,017,018,019,020,021,022,023
1460 db 024,025,026,027,028,029,030,031
1461 db 032,033,034,035,036,037,038,039
1462 db 040,041,042,043,044,045,046,047
1463 db 048,049,050,051,052,053,054,055
1464 db 056,057,058,059,060,061,062,063
1465 db 064,065,066,067,068,069,070,071
1466 db 072,073,074,075,076,077,078,079
1467 db 080,081,082,083,084,085,086,087
1468 db 088,089,090,091,092,093,094,095
1469 db 096,065,066,067,068,069,070,071
1470 db 072,073,074,075,076,077,078,079
1471 db 080,081,082,083,084,085,086,087
1472 db 088,089,090,123,124,125,126,127
1473 db 067,089,069,065,092,065,091,067
1474 db 069,069,069,073,073,073,092,091
1475 db 069,092,092,079,093,079,085,085
1476 db 089,093,089,093,036,093,158,036
1477 db 065,073,079,085,078,078,166,167
1478 db 063,169,170,171,172,033,034,034
1479 db 176,177,178,179,180,065,065,065
1480 db 184,185,186,187,188,036,036,191
1481 db 192,193,194,195,196,197,065,065
1482 db 200,201,202,203,204,205,206,036
1483 db 068,068,069,069,069,073,073,073
1484 db 073,217,218,219,220,221,073,223
1485 db 079,083,079,079,079,079,230,232
1486 db 232,085,085,085,089,089,238,239
1487 db 240,241,242,243,244,245,246,247
1488 db 248,249,250,251,252,253,254,255
1489 page
1490 ;
1491 sw850_collate label word
1492 ctable <,'COLLATE',256>
1493
1494 db 224,225,226,227,228,229,230,231
1495 db 232,233,234,235,236,237,238,239
1496 db 240,241,242,243,244,245,246,247
1497 db 248,249,250,251,252,253,254,255
1498 db 000,165,168,133,185,134,135,169
1499 db 170,171,136,158,172,174,175,176
1500 db 117,118,120,122,124,125,126,127
1501 db 128,129,177,178,160,161,162,179
1502 db 137,002,018,020,024,028,038,040
1503 db 042,044,055,057,059,061,063,067
1504 db 081,083,085,087,090,094,104,106
1505 db 108,110,115,138,139,140,191,173
1506 db 190,003,019,021,025,029,039,041
1507 db 043,056,045,058,060,062,064,068
1508 db 082,084,086,088,091,095,105,107
1509 db 109,111,116,142,143,144,193,157
1510 db 022,103,031,009,011,007,015,023
1511 db 035,037,033,053,051,049,010,014
1512 db 030,017,016,074,076,072,101,099
1513 db 114,075,102,080,184,079,164,188
1514 db 005,047,070,097,066,065,149,148
1515 db 180,154,156,131,130,166,181,182
1516 db 207,208,209,206,204,004,008,006
1517 db 153,210,211,212,213,186,187,198
1518 db 197,202,201,203,205,200,013,012
1519 db 214,215,216,217,218,219,220,183
1520 db 027,026,034,036,032,054,046,050
1521 db 052,199,196,223,221,155,048,222
1522 db 069,089,073,071,078,077,146,092
1523 db 093,096,100,098,113,112,145,189
1524 db 167,159,141,132,151,150,163,194
1525 db 147,192,195,119,123,121,152,001
1526
1527 ; db 001,200,201,202,203,204,205,206
1528 ; db 207,208,209,210,211,212,213,214
1529 ; db 215,216,217,218,140,141,219,220
1530 ; db 221,222,223,224,225,226,227,228
1531 ; db 001,060,061,062,063,064,065,066
1532 ; db 067,068,069,070,071,072,073,074
1533 ; db 032,033,034,035,036,037,038,039
1534 ; db 040,041,075,076,077,078,079,080
1535 ; db 081,002,003,004,005,007,008,009
1536 ; db 010,011,012,013,014,015,016,018
1537 ; db 019,020,021,022,024,026,027,028
1538 ; db 029,030,031,082,083,084,052,085
1539 ; db 051,002,003,004,005,007,008,009
1540 ; db 010,011,012,013,014,015,016,018
1541 ; db 019,020,021,022,024,026,027,028
1542 ; db 029,030,031,086,087,088,054,089
1543 ; db 004,026,007,002,002,002,002,004
1544 ; db 007,007,007,011,011,011,002,002
1545 ; db 007,002,002,018,018,018,026,026
1546 ; db 030,018,026,018,090,018,091,092
1547 ; db 002,011,018,026,017,017,002,018
1548 ; db 093,094,095,096,097,098,099,100
1549 ; db 101,102,103,104,105,002,002,002
1550 ; db 106,107,108,109,110,111,112,113
1551 ; db 114,115,116,117,118,119,002,002
1552 ; db 120,121,122,123,124,125,126,127
1553 ; db 006,006,007,007,007,011,011,011
1554 ; db 011,128,129,130,131,132,011,133
1555 ; db 018,023,018,018,018,018,134,025
1556 ; db 025,026,026,026,030,030,135,050
1557 ; db 136,137,138,139,140,141,142,055
1558 ; db 143,053,144,145,146,147,148,001
1559 page
1560 ;
1561 be850_collate label word
1562 ctable <,'COLLATE',256>
1563 db 255,255,255,255,255,255,255,255
1564 db 255,255,255,255,255,255,255,255
1565 db 255,255,255,255,255,255,255,255
1566 db 255,255,255,255,255,255,255,255
1567 db 255,033,034,035,036,037,038,255
1568 db 040,041,042,043,044,255,046,047
1569 db 048,049,050,051,052,053,054,055
1570 db 056,057,058,059,060,061,062,063
1571 db 064,065,066,067,068,069,070,071
1572 db 072,073,074,075,076,077,078,079
1573 db 080,081,082,083,084,085,086,087
1574 db 088,089,090,091,092,093,094,095
1575 db 096,065,066,067,068,069,070,071
1576 db 072,073,074,075,076,077,078,079
1577 db 080,081,082,083,084,085,086,087
1578 db 088,089,090,123,124,125,126,127
1579 db 067,085,069,065,065,065,065,067
1580 db 069,069,069,073,073,073,065,065
1581 db 069,065,065,079,079,079,085,085
1582 db 089,079,085,079,156,079,158,159
1583 db 065,073,079,085,078,164,166,167
1584 db 168,169,170,171,172,173,174,175
1585 db 255,255,255,255,255,065,065,065
1586 db 184,255,255,255,255,189,190,255
1587 db 255,255,255,255,255,255,065,065
1588 db 255,255,255,255,255,255,255,207
1589 db 068,068,069,069,069,073,073,073
1590 db 073,255,255,255,255,221,073,255
1591 db 079,083,079,079,079,079,230,084
1592 db 084,085,085,085,089,089,238,239
1593 db 255,241,242,243,244,245,246,247
1594 db 248,249,250,251,252,253,255,255
1595 page
1596
1597 la850_collate label word ; wants same as spain
1598 ;
1599 sp850_collate label word ; new for DOS 4.0
1600 ctable <,'COLLATE',256>
1601 db 000,150,151,152,153,154,155,156 ;7
1602 db 157,158,159,160,161,162,163,164 ;15
1603 db 165,166,167,168,169,170,171,172 ;23
1604 db 173,174,175,176,177,178,179,180 ;31
1605 db 000,060,061,062,063,064,065,000 ;39
1606 db 066,067,068,069,070,000,071,072 ;47
1607 db 034,035,036,037,038,039,040,041 ;55
1608 db 042,043,073,074,075,076,077,078 ;63
1609 db 079,001,002,003,006,008,009,010 ;71
1610 db 011,012,013,014,015,017,018,020 ;79
1611 db 021,022,023,024,026,028,029,030 ;87
1612 db 031,032,033,080,081,082,083,084 ;95
1613 db 085,001,002,003,006,008,009,010 ;103
1614 db 011,012,013,014,015,017,018,020 ;111
1615 db 021,022,023,024,026,028,029,030 ;119
1616 db 031,032,033,086,087,088,089,090 ;127
1617 db 004,028,008,001,001,001,001,004 ;135
1618 db 008,008,008,012,012,012,001,001 ;143
1619 db 008,001,001,020,020,020,028,028 ;151
1620 db 032,020,028,020,092,020,094,095 ;159
1621 db 001,012,020,028,019,019,001,020 ;167
1622 db 096,097,098,099,100,101,102,103 ;175
1623 db 104,105,106,107,108,001,001,001 ;183
1624 db 184,109,110,001,001,091,093,113 ;191
1625 db 114,115,116,117,118,119,187,188 ;199
1626 db 120,121,122,123,124,125,126,189 ;207
1627 db 007,007,008,008,008,012,012,012 ;215
1628 db 012,127,128,129,130,199,012,131 ;223
1629 db 020,025,020,020,020,020,132,027 ;231
1630 db 027,028,028,028,032,032,213,214 ;239
1631 db 000,133,216,217,218,219,134,220 ;247
1632 db 221,222,000,223,224,135,136,225 ;255
1633
1634 page
1635 ;
1636 jp932_collate label word
1637 ctable <,'COLLATE',256>
1638 db 0,1,2,3,4,5,6,7
1639 db 8,9,10,11,12,13,14,15
1640 db 16,17,18,19,20,21,22,23
1641 db 24,25,26,27,28,29,30,31
1642 db " ","!",'"',"#","$","%","&","'"
1643 db "(",")","*","+",",","-",".","/"
1644 db "0","1","2","3","4","5","6","7"
1645 db "8","9",":",";","<","=",">","?"
1646 db "@","A","B","C","D","E","F","G"
1647 db "H","I","J","K","L","M","N","O"
1648 db "P","Q","R","S","T","U","V","W"
1649 db "X","Y","Z","[","\","]","^","_"
1650 db "`","A","B","C","D","E","F","G"
1651 db "H","I","J","K","L","M","N","O"
1652 db "P","Q","R","S","T","U","V","W"
1653 db "X","Y","Z","{","|","}","~",127
1654 db 128,193,194,195,196,197,198,199
1655 db 200,201,202,203,204,205,206,207
1656 db 208,209,210,211,212,213,214,215
1657 db 216,217,218,219,220,221,222,223
1658 db 129,130,131,132,133,189,134,135
1659 db 136,137,138,139,140,141,142,143
1660 db 144,145,146,147,148,149,150,151
1661 db 152,153,154,155,156,157,158,159
1662 db 160,161,162,163,164,165,166,167
1663 db 168,169,170,171,172,173,174,175
1664 db 176,177,178,179,180,181,182,183
1665 db 184,185,186,187,188,190,191,192
1666 db 224,225,226,227,228,229,230,231
1667 db 232,233,234,235,236,237,238,239
1668 db 240,241,242,243,244,245,246,247
1669 db 248,249,250,251,252,253,254,255
1670 page
1671 ;
1672 ko934_collate label word
1673 ctable <,'COLLATE',256>
1674 db 0,1,2,3,4,5,6,7
1675 db 8,9,10,11,12,13,14,15
1676 db 16,17,18,19,20,21,22,23
1677 db 24,25,26,27,28,29,30,31
1678 db " ","!",'"',"#","$","%","&","'"
1679 db "(",")","*","+",",","-",".","/"
1680 db "0","1","2","3","4","5","6","7"
1681 db "8","9",":",";","<","=",">","?"
1682 db "@","A","B","C","D","E","F","G"
1683 db "H","I","J","K","L","M","N","O"
1684 db "P","Q","R","S","T","U","V","W"
1685 db "X","Y","Z","[","\","]","^","_"
1686 db "`","A","B","C","D","E","F","G"
1687 db "H","I","J","K","L","M","N","O"
1688 db "P","Q","R","S","T","U","V","W"
1689 db "X","Y","Z","{","|","}","~",127
1690 db 128,190,191,192,193,194,195,196
1691 db 197,198,199,200,201,202,203,204
1692 db 205,206,207,208,209,210,211,212
1693 db 213,214,215,216,217,218,219,220
1694 db 221,222,223,224,225,226,227,228
1695 db 229,230,231,232,233,234,235,236
1696 db 237,238,239,240,241,242,243,244
1697 db 245,246,247,248,249,250,251,252
1698 db 129,130,131,132,133,134,135,136
1699 db 137,138,139,140,141,142,143,144
1700 db 145,146,147,148,149,150,151,152
1701 db 153,154,155,156,157,158,159,160
1702 db 161,162,163,164,165,166,167,168
1703 db 169,170,171,172,173,174,175,176
1704 db 177,178,179,180,181,182,183,184
1705 db 185,186,187,188,189,253,254,255
1706
1707 page
1708 ;
1709 pr936_collate label word
1710 ;
1711 ta938_collate label word
1712 ctable <,'COLLATE',256>
1713 db 0,1,2,3,4,5,6,7
1714 db 8,9,10,11,12,13,14,15
1715 db 16,17,18,19,20,21,22,23
1716 db 24,25,26,27,28,29,30,31
1717 db " ","!",'"',"#","$","%","&","'"
1718 db "(",")","*","+",",","-",".","/"
1719 db "0","1","2","3","4","5","6","7"
1720 db "8","9",":",";","<","=",">","?"
1721 db "@","A","B","C","D","E","F","G"
1722 db "H","I","J","K","L","M","N","O"
1723 db "P","Q","R","S","T","U","V","W"
1724 db "X","Y","Z","[","\","]","^","_"
1725 db "`","A","B","C","D","E","F","G"
1726 db "H","I","J","K","L","M","N","O"
1727 db "P","Q","R","S","T","U","V","W"
1728 db "X","Y","Z","{","|","}","~",127
1729 db 128,129,130,131,132,133,134,135
1730 db 136,137,138,139,140,141,142,143
1731 db 144,145,146,147,148,149,150,151
1732 db 152,153,154,155,156,157,158,159
1733 db 160,161,162,163,164,165,166,167
1734 db 168,169,170,171,172,173,174,175
1735 db 176,177,178,179,180,181,182,183
1736 db 184,185,186,187,188,189,190,191
1737 db 192,193,194,195,196,197,198,199
1738 db 200,201,202,203,204,205,206,207
1739 db 208,209,210,211,212,213,214,215
1740 db 216,217,218,219,220,221,222,223
1741 db 224,225,226,227,228,229,230,231
1742 db 232,233,234,235,236,237,238,239
1743 db 240,241,242,243,244,245,246,247
1744 db 248,249,250,251,252,253,254,255
1745
1746 page
1747 ;
1748 ; ---------------------------------------------------------------
1749 ;
1750 ; World Trade Case Mappings
1751 ;
1752 ; ---------------------------------------------------------------
1753 ;
1754 us_ucase label word
1755 ;
1756 uk_ucase label word
1757 ;
1758 fr_ucase label word
1759 ;
1760 gr_ucase label word
1761 ;
1762 sp_ucase label word
1763 ;
1764 la_ucase label word
1765 ;
1766 it_ucase label word
1767 ;
1768 afe_ucase label word
1769 ;
1770 as_ucase label word
1771 ;
1772 jp437_ucase label word
1773 ;
1774 ko437_ucase label word
1775 ;
1776 pr437_ucase label word
1777 ;
1778 ta437_ucase label word
1779 ctable <,'UCASE ',128>
1780 ;***CNS PTM2390 table omitted ;AN000;
1781 ;***CNS restored for PTM 2575 to establish consistent and maintain 3.3 &
1782 ;under compatibility
1783 db 128,154,069,065,142,065,143,128
1784 db 069,069,069,073,073,073,142,143
1785 db 144,146,146,079,153,079,085,085
1786 db 089,153,154,155,156,157,158,159
1787 db 065,073,079,085,165,165,166,167
1788 db 168,169,170,171,172,173,174,175
1789 db 176,177,178,179,180,181,182,183
1790 db 184,185,186,187,188,189,190,191
1791 db 192,193,194,195,196,197,198,199
1792 db 200,201,202,203,204,205,206,207
1793 db 208,209,210,211,212,213,214,215
1794 db 216,217,218,219,220,221,222,223
1795 db 224,225,226,227,228,229,230,231
1796 db 232,233,234,235,236,237,238,239
1797 db 240,241,242,243,244,245,246,247
1798 db 248,249,250,251,252,253,254,255
1799 ;***CNS PTM2390 table omitted
1800 ;**CNS replacement
1801 ; db 067,085,069,065,065,065,065,067 ;AD000;
1802 ; db 069,069,069,073,073,073,065,065 ;AD000;
1803 ; db 069,146,146,079,079,079,085,085 ;AD000;
1804 ; db 089,079,085,079,156,079,158,159 ;AD000;
1805 ; db 065,073,079,085,165,165,166,167 ;AD000;
1806 ; db 168,169,170,171,172,173,174,175 ;AD000;
1807 ; db 176,177,178,179,180,065,065,065 ;AD000;
1808 ; db 184,185,186,187,188,189,190,191 ;AD000;
1809 ; db 192,193,194,195,196,197,065,065 ;AD000;
1810 ; db 200,201,202,203,204,205,206,207 ;AD000;
1811 ; db 209,209,069,069,069,073,073,073 ;AD000;
1812 ; db 073,217,218,219,220,221,073,223 ;AD000;
1813 ; db 079,225,079,079,079,079,230,232 ;AD000;
1814 ; db 232,085,085,085,089,089,238,239 ;AD000;
1815 ; db 240,241,242,243,244,245,246,247 ;AD000;
1816 ; db 248,249,250,251,252,253,254,255 ;AD000;
1817 ;
1818 page
1819 ; Canadian French Code Page 863
1820 ;
1821 ca_ucase label word
1822 ctable <,'UCASE ',128>
1823 db 067,085,069,065,065,065,134,067
1824 db 069,069,069,073,073,141,065,143
1825 db 069,069,069,079,069,073,085,085
1826 db 152,079,085,155,156,085,085,159
1827 db 160,161,079,085,164,165,166,167
1828 db 073,169,170,171,172,173,174,175
1829 db 176,177,178,179,180,181,182,183
1830 db 184,185,186,187,188,189,190,191
1831 db 192,193,194,195,196,197,198,199
1832 db 200,201,202,203,204,205,206,207
1833 db 208,209,210,211,212,213,214,215
1834 db 216,217,218,219,220,221,222,223
1835 db 224,225,226,227,228,229,230,231
1836 db 232,233,234,235,236,237,238,239
1837 db 240,241,242,243,244,245,246,247
1838 db 248,249,250,251,252,253,254,255
1839 page
1840 ; Denmark (Da) case mapping for 865
1841 ;
1842 dk_ucase label word
1843 ;
1844 ; Norway (No) case mapping for 865
1845 ;
1846 no_ucase label word
1847 ctable <,'UCASE ',128>
1848 db 128,154,144,065,142,065,143,128
1849 db 069,069,069,073,073,073,142,143
1850 db 144,146,146,079,153,079,085,085
1851 db 089,153,154,157,156,157,158,159
1852 db 065,073,079,085,165,165,166,167
1853 db 168,169,170,171,172,173,174,175
1854 db 176,177,178,179,180,181,182,183
1855 db 184,185,186,187,188,189,190,191
1856 db 192,193,194,195,196,197,198,199
1857 db 200,201,202,203,204,205,206,207
1858 db 208,209,210,211,212,213,214,215
1859 db 216,217,218,219,220,221,222,223
1860 db 224,225,226,227,228,229,230,231
1861 db 232,233,234,235,236,237,238,239
1862 db 240,241,242,243,244,245,246,247
1863 db 248,249,250,251,252,253,254,255
1864 page
1865 ; Belgium (Be) case mapping for 437
1866 ;
1867 be_ucase label word
1868 ;
1869 ; Finland (Fi) case mapping for 437
1870 ;
1871 fi_ucase label word
1872 ;
1873 ; Sweden (Sv) case mapping
1874 ;
1875 sv_ucase label word
1876 ctable <,'UCASE ',128>
1877 db 128,154,144,065,142,065,143,128
1878 db 069,069,069,073,073,073,142,143
1879 db 144,146,146,079,153,079,085,085
1880 db 089,153,154,155,156,157,158,159
1881 db 065,073,079,085,165,165,166,167
1882 db 168,169,170,171,172,173,174,175
1883 db 176,177,178,179,180,181,182,183
1884 db 184,185,186,187,188,189,190,191
1885 db 192,193,194,195,196,197,198,199
1886 db 200,201,202,203,204,205,206,207
1887 db 208,209,210,211,212,213,214,215
1888 db 216,217,218,219,220,221,222,223
1889 db 224,225,226,227,228,229,230,231
1890 db 232,233,234,235,236,237,238,239
1891 db 240,241,242,243,244,245,246,247
1892 db 248,249,250,251,252,253,254,255
1893 page
1894 ; Switzerland case mapping for 437
1895 ;
1896 sw_ucase label word
1897 ctable <,'UCASE ',128>
1898 db 128,154,144,065,142,065,143,128
1899 db 069,069,069,073,073,073,142,143
1900 db 144,146,146,079,153,079,085,085
1901 db 089,153,154,155,156,157,158,159
1902 db 065,073,079,085,165,165,166,167 ;AN000;;DCR 059 CNS ***
1903 db 168,169,170,171,172,173,174,175
1904 db 176,177,178,179,180,181,182,183
1905 db 184,185,186,187,188,189,190,191
1906 db 192,193,194,195,196,197,198,199
1907 db 200,201,202,203,204,205,206,207
1908 db 208,209,210,211,212,213,214,215
1909 db 216,217,218,219,220,221,222,223
1910 db 224,225,226,227,228,229,230,231
1911 db 232,233,234,235,236,237,238,239
1912 db 240,241,242,243,244,245,246,247
1913 db 248,249,250,251,252,253,254,255
1914 page
1915 ;
1916 ; Netherlands case mapping for 437
1917 ;
1918 nl_ucase label word
1919 ctable <,'UCASE ',128>
1920 db 128,085,069,065,065,065,143,128
1921 db 069,069,069,073,073,073,065,143
1922 db 069,146,146,079,079,079,085,085
1923 db 152,079,085,155,156,157,158,159
1924 db 065,073,079,085,165,165,166,167
1925 db 168,169,170,171,172,173,174,175
1926 db 176,177,178,179,180,181,182,183
1927 db 184,185,186,187,188,189,190,191
1928 db 192,193,194,195,196,197,198,199
1929 db 200,201,202,203,204,205,206,207
1930 db 208,209,210,211,212,213,214,215
1931 db 216,217,218,219,220,221,222,223
1932 db 224,225,226,227,228,229,230,231
1933 db 232,233,234,235,236,237,238,239
1934 db 240,241,242,243,244,245,246,247
1935 db 248,249,250,251,252,253,254,255
1936 page
1937 ;
1938 ; Portuguese (Po) case mapping
1939 ;
1940 po_ucase label word
1941 ctable <,'UCASE ',128>
1942 db 128,154,144,143,142,145,134,128
1943 db 137,137,146,139,140,152,142,143
1944 db 144,145,146,140,153,169,150,157
1945 db 152,153,154,155,156,157,158,159
1946 db 134,139,159,150,165,165,166,167
1947 db 168,169,170,171,172,173,174,175
1948 db 176,177,178,179,180,181,182,183
1949 db 184,185,186,187,188,189,190,191
1950 db 192,193,194,195,196,197,198,199
1951 db 200,201,202,203,204,205,206,207
1952 db 208,209,210,211,212,213,214,215
1953 db 216,217,218,219,220,221,222,223
1954 db 224,225,226,227,228,229,230,231
1955 db 232,233,234,235,236,237,238,239
1956 db 240,241,242,243,244,245,246,247
1957 db 248,249,250,251,252,253,254,255
1958 page
1959 ;
1960 ; Is case mapping
1961 ;
1962 is_ucase label word
1963 ctable <,'UCASE ',128>
1964 db 128,129,130,131,132,133,134,135
1965 db 136,137,138,139,140,141,142,143
1966 db 144,145,146,147,148,149,150,151
1967 db 152,153,154,155,156,157,158,159
1968 db 065,073,079,085,165,165,166,167
1969 db 168,169,170,171,172,173,174,175
1970 db 176,177,178,179,180,181,182,183
1971 db 184,185,186,187,188,189,190,191
1972 db 192,193,194,195,196,197,198,199
1973 db 200,201,202,203,204,205,206,207
1974 db 208,209,210,211,212,213,214,215
1975 db 216,217,218,219,220,221,222,223
1976 db 224,225,226,227,228,229,230,231
1977 db 232,233,234,235,236,237,238,239
1978 db 240,241,242,243,244,245,246,247
1979 db 248,249,250,251,252,253,254,255
1980 page
1981 ;
1982 us850_ucase label word
1983 ;
1984 afe850_ucase label word
1985 ;
1986 uk850_ucase label word
1987 ;
1988 fr850_ucase label word
1989 ;
1990 it850_ucase label word
1991 ;
1992 is850_ucase label word
1993 ;
1994 as850_ucase label word
1995 ;
1996 po850_ucase label word
1997 ;
1998 ca850_ucase label word
1999 ctable <,'UCASE ',128>
2000 ;**CNS replacement
2001 db 067,085,069,065,065,065,065,067
2002 db 069,069,069,073,073,073,065,065
2003 db 069,146,146,079,079,079,085,085
2004 db 089,079,085,079,156,079,158,159
2005 db 065,073,079,085,165,165,166,167
2006 db 168,169,170,171,172,173,174,175
2007 db 176,177,178,179,180,065,065,065
2008 db 184,185,186,187,188,189,190,191
2009 db 192,193,194,195,196,197,065,065
2010 db 200,201,202,203,204,205,206,207
2011 db 209,209,069,069,069,073,073,073
2012 db 073,217,218,219,220,221,073,223
2013 db 079,225,079,079,079,079,230,232
2014 db 232,085,085,085,089,089,238,239
2015 db 240,241,242,243,244,245,246,247
2016 db 248,249,250,251,252,253,254,255
2017 ;
2018 ;***CNS PTM2390 table omitted
2019 ; db 128,154,069,065,142,065,143,128 ;AN000;
2020 ; db 069,069,069,073,073,073,142,143 ;AN000;
2021 ; db 144,146,146,079,153,079,085,085 ;AN000;
2022 ; db 089,153,154,155,156,157,158,159 ;AN000;
2023 ; db 065,073,079,085,165,165,166,167 ;AN000;
2024 ; db 168,169,170,171,172,173,174,175 ;AN000;
2025 ; db 176,177,178,179,180,181,182,183 ;AN000;
2026 ; db 184,185,186,187,188,189,190,191 ;AN000;
2027 ; db 192,193,194,195,196,197,198,199 ;AN000;
2028 ; db 200,201,202,203,204,205,206,207 ;AN000;
2029 ; db 208,209,210,211,212,213,214,215 ;AN000;
2030 ; db 216,217,218,219,220,221,222,223 ;AN000;
2031 ; db 224,225,226,227,228,229,230,231 ;AN000;
2032 ; db 232,233,234,235,236,237,238,239 ;AN000;
2033 ; db 240,241,242,243,244,245,246,247 ;AN000;
2034 ; db 248,249,250,251,252,253,254,255 ;AN000;
2035 ;***CNS PTM2390 table omitted
2036 ;
2037 ;;la850_ucase label word - LA wants same as spain
2038 ;
2039 ;; sp850_ucase label word - changed for 4.0
2040 ; ctable <,'UCASE ',128>
2041 ; db 128,085,069,065,065,065,065,128
2042 ; db 069,069,069,073,073,073,065,065
2043 ; db 069,146,146,079,079,079,085,085
2044 ; db 089,079,085,079,156,079,158,159
2045 ; db 065,073,079,085,165,165,166,167
2046 ; db 168,169,170,171,172,173,174,175
2047 ; db 176,177,178,179,180,065,065,065
2048 ; db 184,185,186,187,188,189,190,191
2049 ; db 192,193,194,195,196,197,065,065
2050 ; db 200,201,202,203,204,205,206,207
2051 ; db 209,209,069,069,069,073,073,073
2052 ; db 073,217,218,219,220,221,073,223
2053 ; db 079,225,079,079,079,079,230,232
2054 ; db 232,085,085,085,089,089,238,239
2055 ; db 240,241,242,243,244,245,246,247
2056 ; db 248,249,250,251,252,253,254,255
2057 ;
2058 gr850_ucase label word
2059 ctable <,'UCASE ',128>
2060 db 067,154,069,065,142,065,065,067
2061 db 069,069,069,073,073,073,142,065
2062 db 069,146,146,079,153,079,085,085
2063 db 089,153,154,079,156,079,158,159
2064 db 065,073,079,085,165,165,166,167
2065 db 168,169,170,171,172,173,174,175
2066 db 176,177,178,179,180,065,065,065
2067 db 184,185,186,187,188,189,190,191
2068 db 192,193,194,195,196,197,065,065
2069 db 200,201,202,203,204,205,206,207
2070 db 209,209,069,069,069,073,073,073
2071 db 073,217,218,219,220,221,073,223
2072 db 079,225,079,079,079,079,230,232
2073 db 232,085,085,085,089,089,238,239
2074 db 240,241,242,243,244,245,246,247
2075 db 248,249,250,251,252,253,254,255
2076 page
2077 ;
2078 ; LA case mapping for 850, new for DOS 4.0 to be same as Spain
2079 ;
2080 la850_ucase label word
2081 ;
2082 ; Spain (sp) case mapping for 850, new for DOS 4.0
2083 ;
2084 sp850_ucase label word
2085 ;
2086 ; Belgium (Be) case mapping for 850
2087 ;
2088 be850_ucase label word
2089 ;
2090 ; Finland (Fi) case mapping for 850
2091 ;
2092 fi850_ucase label word
2093 ;
2094 ; Sweden (Sv) case mapping for 850
2095 ;
2096 sv850_ucase label word
2097 ;
2098 ; Denmark (Da) case mapping for 850
2099 ;
2100 dk850_ucase label word
2101 ;
2102 ; Norway (No) case mapping for 850
2103 ;
2104 no850_ucase label word
2105 ctable <,'UCASE ',128>
2106 db 128,154,144,182,142,183,143,128
2107 db 210,211,212,216,215,222,142,143
2108 db 144,146,146,226,153,227,234,235
2109 db 089,153,154,157,156,157,158,159
2110 db 181,214,224,233,165,165,166,167
2111 db 168,169,170,171,172,173,174,175
2112 db 176,177,178,179,180,181,182,183
2113 db 184,185,186,187,188,189,190,191
2114 db 192,193,194,195,196,197,199,199
2115 db 200,201,202,203,204,205,206,207
2116 db 209,209,210,211,212,073,214,215
2117 db 216,217,218,219,220,221,222,223
2118 db 224,225,226,227,229,229,230,232
2119 db 232,233,234,235,237,237,238,239
2120 db 240,241,242,243,244,245,246,247
2121 db 248,249,250,251,252,253,254,255
2122 page
2123 ; Switzerland (Sw) Case mapping (850)
2124 ;
2125 sw850_ucase label word
2126 ctable <,'UCASE ',128>
2127 db 128,154,144,182,142,183,143,128
2128 db 210,211,212,216,215,222,142,143
2129 db 144,146,146,226,153,227,234,235
2130 db 089,153,154,157,156,157,158,159
2131 db 181,214,224,233,165,165,166,167 ;DCR059 CNS ** ;AN000;
2132 db 168,169,170,171,172,173,174,175
2133 db 176,177,178,179,180,181,182,183
2134 db 184,185,186,187,188,189,190,191
2135 db 192,193,194,195,196,197,199,199
2136 db 200,201,202,203,204,205,206,207
2137 db 209,209,210,211,212,073,214,215
2138 db 216,217,218,219,220,221,222,223
2139 db 224,225,226,227,229,229,230,232
2140 db 232,233,234,235,237,237,238,239
2141 db 240,241,242,243,244,245,246,247
2142 db 248,249,250,251,252,253,254,255
2143 ;
2144 ; Netherlands (Nl) case mapping 850
2145 ;
2146 nl850_ucase label word
2147 ctable <,'UCASE ',128>
2148 db 128,085,069,065,065,065,143,128
2149 db 069,069,069,073,073,073,065,143
2150 db 069,146,146,079,079,079,085,085
2151 db 152,079,085,079,156,079,158,159
2152 db 065,073,079,085,165,165,166,167
2153 db 168,169,170,171,172,173,174,175
2154 db 176,177,178,179,180,065,065,065
2155 db 184,185,186,187,188,189,190,191
2156 db 192,193,194,195,196,197,065,065
2157 db 200,201,202,203,204,205,206,207
2158 db 209,209,069,069,069,073,073,073
2159 db 073,217,218,219,220,221,073,223
2160 db 079,225,079,079,079,079,230,232
2161 db 232,085,085,085,089,089,238,239
2162 db 240,241,242,243,244,245,246,247
2163 db 248,249,250,251,252,253,254,255
2164 page
2165 ;
2166 ; Japan case mapping 932
2167 ;
2168 jp932_ucase label word
2169 ;
2170 ko934_ucase label word
2171 ;
2172 pr936_ucase label word
2173 ;
2174 ta938_ucase label word
2175 ctable <,'UCASE ',128>
2176 db 128,129,130,131,132,133,134,135
2177 db 136,137,138,139,140,141,142,143
2178 db 144,145,146,147,148,149,150,151
2179 db 152,153,154,155,156,157,158,159
2180 db 160,161,162,163,164,165,166,167
2181 db 168,169,170,171,172,173,174,175
2182 db 176,177,178,179,180,181,182,183
2183 db 184,185,186,187,188,189,190,191
2184 db 192,193,194,195,196,197,198,199
2185 db 200,201,202,203,204,205,206,207
2186 db 208,209,210,211,212,213,214,215
2187 db 216,217,218,219,220,221,222,223
2188 db 224,225,226,227,228,229,230,231
2189 db 232,233,234,235,236,237,238,239
2190 db 240,241,242,243,244,245,246,247
2191 db 248,249,250,251,252,253,254,255
2192 page
2193 ; ----------------------------------------------------------------------------
2194 ;
2195 ; World Trade Mono Case Filename Character Tables
2196 ;
2197 ; Currently all countries have same (4/14/86)
2198 ;
2199 ;
2200 ; ----------------------------------------------------------------------------
2201 uk_ucfile label word
2202 fr_ucfile label word
2203 gr_ucfile label word
2204 sp_ucfile label word
2205 it_ucfile label word
2206 sv_ucfile label word
2207 dk_ucfile label word
2208 sw_ucfile label word
2209 no_ucfile label word
2210 nl_ucfile label word
2211 be_ucfile label word
2212 fi_ucfile label word
2213 is_ucfile label word
2214 ca_ucfile label word
2215 as_ucfile label word
2216 po_ucfile label word
2217 us_ucfile label word
2218 la_ucfile label word
2219 afe_ucfile label word
2220 ctable <,'FUCASE ',128>
2221 db 128,129,130,131,132,133,134,135
2222 db 136,137,138,139,140,141,142,143
2223 db 144,145,146,147,148,149,150,151
2224 db 152,153,154,155,156,157,158,159
2225 db 160,161,162,163,164,165,166,167
2226 db 168,169,170,171,172,173,174,175
2227 db 176,177,178,179,180,181,182,183
2228 db 184,185,186,187,188,189,190,191
2229 db 192,193,194,195,196,197,198,199
2230 db 200,201,202,203,204,205,206,207
2231 db 208,209,210,211,212,213,214,215
2232 db 216,217,218,219,220,221,222,223
2233 db 224,225,226,227,228,229,230,231
2234 db 232,233,234,235,236,237,238,239
2235 db 240,241,242,243,244,245,246,247
2236 db 248,249,250,251,252,253,254,255
2237 page
2238 ; ----------------------------------------------------------------------------
2239 ;
2240 ; World Trade Valid Filename Character Tables
2241 ;
2242 ; Currently all countries have same (4/14/86)
2243 ;
2244 ;
2245 ; ----------------------------------------------------------------------------
2246 uk_flist label word
2247 fr_flist label word
2248 gr_flist label word
2249 sp_flist label word
2250 it_flist label word
2251 sv_flist label word
2252 dk_flist label word
2253 sw_flist label word
2254 no_flist label word
2255 nl_flist label word
2256 be_flist label word
2257 fi_flist label word
2258 is_flist label word
2259 ca_flist label word
2260 as_flist label word
2261 po_flist label word
2262 us_flist label word
2263 la_flist label word
2264 afe_flist label word
2265 jp437_flist label word
2266 jp932_flist label word
2267 ko437_flist label word
2268 ko934_flist label word
2269 pr437_flist label word
2270 pr936_flist label word
2271 ta437_flist label word
2272 ta938_flist label word
2273 ctable <,'FCHAR ',fclend-fclbegin>
2274 fclbegin label word
2275 db 1,0,255 ; include all
2276 db 0,0,20h ; exclude 0 - 20h
2277 db 2,14,'."/\[]:|<>+=;,' ; exclude 14 special chars
2278 fclend label word
2279 page
2280 ; ----------------------------------------------------------------------------
2281 ;
2282 ; World Trade DBCS Tables
2283 ;
2284 ; Currently all countries have same (4/14/86)
2285 ;
2286 ;
2287 ; ----------------------------------------------------------------------------
2288 ; ;***CNS
2289 uk_dbcs label word ;AN000;
2290 fr_dbcs label word ;AN000;
2291 gr_dbcs label word ;AN000;
2292 sp_dbcs label word ;AN000;
2293 it_dbcs label word ;AN000;
2294 sv_dbcs label word ;AN000;
2295 dk_dbcs label word ;AN000;
2296 sw_dbcs label word ;AN000;
2297 no_dbcs label word ;AN000;
2298 nl_dbcs label word ;AN000;
2299 be_dbcs label word ;AN000;
2300 fi_dbcs label word ;AN000;
2301 is_dbcs label word ;AN000;
2302 ca_dbcs label word ;AN000;
2303 as_dbcs label word ;AN000;
2304 po_dbcs label word ;AN000;
2305 us_dbcs label word ;AN000;
2306 la_dbcs label word ;AN000;
2307 afe_dbcs label word ;AN000;
2308 jp437_dbcs label word ;AN000;
2309 ko437_dbcs label word ;AN000;
2310 pr437_dbcs label word ;AN000;
2311 ta437_dbcs label word ;AN000;
2312 ctable <,'DBCS ',dbcsterm-dbcsbegin> ;AN000;
2313 dbcsbegin label word ;AN000;
2314 dbcsterm db 0,0 ;AN000;
2315 dbcsend label word ;AN000;
2316 ;
2317 ; Japan DBCS lead byte table
2318 ;
2319 jp932_dbcs label word ;AN000;
2320 ctable <,'DBCS ',db932end-db932bgn> ;AN000;
2321 db932bgn label word ;AN000;
2322 db 081h,09Fh ;AN000;
2323 db 0E0h,0FCh ;AN000;
2324 db932term db 000h,000h ;AN000;
2325 db932end equ $ ;AN000;
2326 ;
2327 ; Korea DBCS lead byte table
2328 ;
2329 ko934_dbcs label word ;AN000;
2330 ctable <,'DBCS ',db934end-db934bgn> ;AN000;
2331 db934bgn label word ;AN000;
2332 db 081h,0BFh ;AN000;
2333 db934term db 000h,000h ;AN000;
2334 db934end equ $ ;AN000;
2335 ;
2336 ; PRC and Taiwan DBCS lead byte table
2337 ;
2338 pr936_dbcs label word ;AN000;
2339 ta938_dbcs label word ;AN000;
2340 ctable <,'DBCS ',db936end-db936bgn> ;AN000;
2341 db936bgn label word ;AN000;
2342 db 081h,0FCh ;AN000;
2343 db936term db 000h,000h ;AN000;
2344 db936end equ $ ;AN000;
2345
2346 page
2347 ; ---------------------------------------------------------------
2348 ;
2349 ; END OF CDI SEGMENT
2350 ;
2351 ; ---------------------------------------------------------------
2352
2353
2354 include copyrigh.inc
2355
2356 cdiend label word
2357 ;
2358 cdifname equ $
2359 db 'COUNTRY.SYS',0
2360 ;
2361 crmsg equ $
2362 db 'Create failed',13,10
2363 crmlen equ $-crmsg
2364 ;
2365 succmsg equ $
2366 db 'COUNTRY.SYS created',13,10
2367 smlen equ $-succmsg
2368 ;
2369 iomsg equ $
2370 db 'I/O error writing COUNTRY.SYS',13,10
2371 iomlen equ $-iomsg
2372 dseg ends
2373 ;
2374 sseg segment stack
2375 db 128 dup(0)
2376 sseg ends
2377 end mkcdif
The original sources of MS-DOS 1.25, 2.0, and 4.0 for reference purposes