page 84,132 ; July 8, 1986 - updated Finland for 437 dcl. ; July 8, 1986 - updated Netherland for 437 dcl. ; July 8, 1986 - updated Italy for 437 dcl. ; July 8, 1986 - updated Canada for 863 dcl. ; July 8, 1986 - updated Belgium for 437 dcl. (except Collate) ; July 8, 1986 - updated AreaSouth for 437 dcl. ; July 8, 1986 - updated Switzerland for 437 dcl. ; July 8, 1986 - updated Norway for 865 dcl. ; July 8, 1986 - updated Denmark for 865 dcl. ; July 14, 1986 - updated Sweden for 437 dcl. ; July 8, 1986 - updated AFE for 850 dcl. ; July 8, 1986 - updated Finland for 850 dcl. ; July 8, 1986 - updated Netherland for 850 dcl. ; July 8, 1986 - updated Canada for 850 dcl. ; July 8, 1986 - updated Italy for 850 dcl. ; July 8, 1986 - updated UK for 850 dcl. ; July 8, 1986 - updated Norway for 850 dcl. ; July 8, 1986 - updated Denmark for 850 dcl. ; July 8, 1986 - updated US for 850 dcl. ; July 8, 1986 - updated Switzerland for 850 dcl. ; July 14, 1986 - updated Sweden for 850 dcl. ; July 14, 1986 - updated Belgium for 850 dcl. (except Collate) ; August 26,1986 - updated Belgium for 437 collate EMG ; August 27,1986 - updated Belgium for 850 collate EMG ; August 27,1986 - updated Area South for 437 EMG ; August 27,1986 - updated Area South for 864 EMG ; August 27,1986 - make all collates 256 bytes EMG ; August 27,1986 - updated Germany for 850 EMG ; August 27,1986 - updated Spain for 850 EMG ; August 28,1986 - updated Latin America for 850 EMG ; September 12, 1986 - updated SP,IS,CF,AS,PO,LA EMG ; October 2, 1986 - updated AS and IS EMG ; July 23,1987 - DCR to alter Germany collate table to match US 850 DCR037 ; CNS ; July 23,1987 - DCR to alter SWISS collate info and ucase table 850 & 437 ; DCR059--- CNS *** ; July 23,1987 - DCR to alter Denmark's primary codepage to 850 instead of ; 865 --- CNS *** ; NOvember 12,1987 - PTM2390 DBCS length of terminating value included for ; for DBCS countries ; - FILEUPCASE & UCASE swapped for 437 & 850 mapping incorrect ; - -ly for DOS 3.3 ; - Make the FUCASE & UCASE tables equivalent for 850 & 437 ; March 9, p3811, Finland to default to 850 now, w/437 as alternate code page ; ; March 30, p4072, LA wants to be same as Spain ; ***CNS ; April 14,1988 Re-adjust LA to match SPAIN which should have 850 as a ;PTM 4389 default instead of 437 for both countries ; ; create country.sys file ; ; include mkcntry.inc ; cseg segment para public 'code' assume cs:cseg,ds:dseg mkcdif proc far mov ax,dseg ; establish addressability mov ds,ax ; for ds mov es,ax ; and es lea dx,cdifname ; address of file name to create xor cx,cx ; attrib = normal file mov ah,3ch ; create function int 21h ; create file jnc create_ok ; jump if create successful lea dx,crmsg mov cx,crmlen jmp wrt_msg create_ok: mov bx,ax ; save handle mov ah,40h ; write function mov cx,cdiend-cdinfo ; length of cdi lea dx,cdinfo ; address of cdi int 21h ; write cdi file cmp ax,cx ; compare bytes written jz write_ok ; jump if write was successful lea dx,iomsg mov cx,iomlen jmp wrt_msg write_ok: mov ah,3eh ; close function int 21h ; close cdi file lea dx,succmsg mov cx,smlen wrt_msg: mov bx,1 mov ah,40h int 21h xor al,al mov ah,4ch ; exit function int 21h ; return to exec'ing program mkcdif endp cseg ends ; page ; ----------------------------------------------------------- ; ; Data for COUNTRY.SYS file ; ; ----------------------------------------------------------- dseg segment para cdinfo label word db 0ffh,'COUNTRY' ; signature db 8 dup (0) ; reserved dw PTRCNT ; number of pointers in header db CIPTYPE ; type = country info pointer dd offset cntryinfo ; pointer to country information ; cntryinfo label word cntrycnt=0 dw finalCNT ; number of countries ctryent ; United States ctryent ; ctryent ; United Kingdom ctryent ; ctryent ; France ctryent ; ctryent ; Germany ctryent ; ctryent ; ctryent ; Spain ctryent ; Italy ctryent ; ctryent ; Sweden ctryent ; ctryent ; Denmark ctryent ; DCR060 CNS ***** ;AN000; ctryent ; Switzerland ctryent ; ctryent ; Norway ctryent ; ctryent ; Netherlands ctryent ; ctryent ; Belgium ctryent ; ctryent ; Finland p3811, requested 850 default ctryent ; Finland ctryent ; Israel ctryent ; ctryent ; Canada French ctryent ; ctryent ; Area South (Arab States) ctryent ; ctryent ; Portugal ctryent ; ctryent ; ctryent ; Latin America ctryent ; International English ctryent ; ctryent ; Japan ctryent ; ctryent ; Korea ctryent ; ctryent ; PRC ctryent ; ctryent ; Taiwan ctryent ; dummy macro p finalCNT equ p endm dummy %cntrycnt ; uk437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; uk850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; fr437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; fr850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; gr437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; gr850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; sp437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; sp850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; it437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; it850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; sv437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; sv850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; dk850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; dk865_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; sw437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; sw850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; no865_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; no850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; nl437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; nl850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; be437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; be850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; fi437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; fi850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; us437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; us850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; is862_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; is850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; ca863_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; ca850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; as864_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; as850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; po860_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; po850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; la437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; la850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; jp932_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; jp437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; ko934_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; ko437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; pr936_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; pr437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; ta938_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; ta437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; afe437_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat ; afe850_data label word dw CDATAITEMS ; number of entries ctrydat ctrydat ctrydat ctrydat ctrydat ctrydat page ; ---------------------------------------- ; ; World Trade Country Info Tables ; ; ---------------------------------------- uk437_info label word ctable <> cinfo ; fr437_info label word ctable <> cinfo ; gr437_info label word ctable <> cinfo ; sp437_info label word ctable <> cinfo ; sp850_info label word ctable <> cinfo ; it437_info label word ctable <> cinfo ; sv437_info label word ctable <> cinfo ; dk865_info label word ctable <> cinfo ; sw437_info label word ctable <> cinfo ; ;*** CNS Change date separator from slash to period - DCR 357 no865_info label word ctable <> cinfo ;AN000; ;*** CNS Change date separator from slash to period - DCR 357 ;*** Field #14 ; nl437_info label word ctable <> cinfo ; be437_info label word ctable <> cinfo ; fi437_info label word ctable <> cinfo ; jp437_info label word ko437_info label word pr437_info label word ta437_info label word us437_info label word ctable <> cinfo ; is862_info label word ctable <> cinfo ; ca863_info label word ctable <> cinfo ; as864_info label word ctable <> cinfo ; as850_info label word ctable <> cinfo ; po860_info label word ctable <> cinfo ; la437_info label word ctable <> cinfo ; afe437_info label word ctable <> cinfo ; jp932_info label word ctable <> cinfo ; ko934_info label word ctable <> cinfo ; pr936_info label word ctable <> cinfo ; ta938_info label word ctable <> cinfo ; page ; ------------------------------------------------ ; ; World Trade Collating sequence tables ; ; ------------------------------------------------ ; ; -------------------------------------------------------------------------- ; ; Collating Table Same for United States, United Kingdom, France, Germany, ; Italy, and International English ; -------------------------------------------------------------------------- ; us_collate label word ; uk_collate label word ; fr_collate label word ; gr_collate label word ; it_collate label word ; jp437_collate label word ; ko437_collate label word ; pr437_collate label word ; ta437_collate label word ; afe_collate label word ctable <,'COLLATE',256> db 0,1,2,3,4,5,6,7 db 8,9,10,11,12,13,14,15 db 16,17,18,19,20,21,22,23 db 24,25,26,27,28,29,30,31 db " ","!",'"',"#","$","%","&","'" db "(",")","*","+",",","-",".","/" db "0","1","2","3","4","5","6","7" db "8","9",":",";","<","=",">","?" db "@","A","B","C","D","E","F","G" db "H","I","J","K","L","M","N","O" db "P","Q","R","S","T","U","V","W" db "X","Y","Z","[","\","]","^","_" db "`","A","B","C","D","E","F","G" db "H","I","J","K","L","M","N","O" db "P","Q","R","S","T","U","V","W" db "X","Y","Z","{","|","}","~",127 db "C","U","E","A","A","A","A","C" db "E","E","E","I","I","I","A","A" db "E","A","A","O","O","O","U","U" db "Y","O","U","$","$","$","$","$" db "A","I","O","U","N","N",166,167 db "?",169,170,171,172,"!",'"','"' db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,"S" db 226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ; Netherland 437 Collate ; nl_collate label word ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 128,154,144,065,142,065,143,128 db 069,069,069,073,073,073,142,143 db 144,146,146,079,079,079,085,085 db 152,079,085,155,156,157,158,159 db 065,073,079,085,165,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ;la_collate label word ; ctable <,'COLLATE',256> ; db 000,001,002,003,004,005,006,007 ; db 008,009,010,011,012,013,014,015 ; db 016,017,018,019,020,021,022,023 ; db 024,025,026,027,028,029,030,031 ; db 032,033,034,035,036,037,038,039 ; db 040,041,042,043,044,045,046,047 ; db 048,049,050,051,052,053,054,055 ; db 056,057,058,059,060,061,062,063 ; db 064,065,066,067,068,069,070,071 ; db 072,073,074,075,076,077,078,079 ; db 080,081,082,083,084,085,086,087 ; db 088,089,090,091,092,093,094,095 ; db 096,065,066,067,068,069,070,071 ; db 072,073,074,075,076,077,078,079 ; db 080,081,082,083,084,085,086,087 ; db 088,089,090,123,124,125,126,127 ; db 128,"U","E","A","A","A","A",128 ; db "E","E","E","I","I","I","A","A" ; db "E","A","A","O","O","O","U","U" ; db "Y","O","U","$","$","$","$","$" ; db "A","I","O","U",165,165,166,167 ; db "?",169,170,171,172,"!",'"','"' ; db 176,177,178,179,180,181,182,183 ; db 184,185,186,187,188,189,190,191 ; db 192,193,194,195,196,197,198,199 ; db 200,201,202,203,204,205,206,207 ; db 208,209,210,211,212,213,214,215 ; db 216,217,218,219,220,221,222,223 ; db 224,"S" ; db 226,227,228,229,230,231 ; db 232,233,234,235,236,237,238,239 ; db 240,241,242,243,244,245,246,247 ; db 248,249,250,251,252,253,254,255 page la_collate label word ; new for DOS 4.0, wants same as spain ; sp_collate label word ; new for DOS 4.0 ctable <,'COLLATE',256> db 000,150,151,152,153,154,155,156 ;7 db 157,158,159,160,161,162,163,164 ;15 db 165,166,167,168,169,170,171,172 ;23 db 173,174,175,176,177,178,179,180 ;31 db 000,060,061,062,063,064,065,000 ;39 db 066,067,068,069,070,000,071,072 ;47 db 034,035,036,037,038,039,040,041 ;55 db 042,043,073,074,075,076,077,078 ;63 db 079,001,002,003,006,008,009,010 ;71 db 011,012,013,014,015,017,018,020 ;79 db 021,022,023,024,026,028,029,030 ;87 db 031,032,033,080,081,082,083,084 ;95 db 085,001,002,003,006,008,009,010 ;103 db 011,012,013,014,015,017,018,020 ;111 db 021,022,023,024,026,028,029,030 ;119 db 031,032,033,086,087,088,089,090 ;127 db 004,028,008,001,001,001,001,004 ;135 db 008,008,008,012,012,012,001,001 ;143 db 008,001,001,020,020,020,028,028 ;151 db 032,020,028,091,092,093,094,095 ;159 db 001,012,020,028,019,019,001,020 ;167 db 096,097,098,099,100,101,102,103 ;175 db 104,105,106,107,108,181,182,183 ;183 db 184,109,110,111,112,185,186,113 ;191 db 114,115,116,117,118,119,187,188 ;199 db 120,121,122,123,124,125,126,189 ;207 db 190,191,192,193,194,195,196,197 ;215 db 198,127,128,129,130,199,200,131 ;223 db 201,025,202,203,204,205,132,206 ;231 db 207,208,209,210,211,212,213,214 ;239 db 215,133,216,217,218,219,134,220 ;247 db 221,222,000,223,224,135,136,225 ;255 page ; dk_collate label word ; Denmark (dk) 865 ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,040,047,041,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,040,047,041,126,127 db 067,089,069,065,091,065,093,067 db 069,069,069,073,073,073,091,093 db 069,091,091,079,092,079,085,085 db 089,092,089,092,036,092,036,036 db 065,073,079,085,078,078,065,079 db 063,169,170,171,172,033,034,036 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,083,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; no_collate label word ; Norway (no) 865 ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 067,089,069,065,091,065,093,067 db 069,069,069,073,073,073,091,093 db 069,091,091,079,092,079,085,085 db 089,092,089,092,036,092,036,036 db 065,073,079,085,078,078,065,079 db 063,169,170,171,172,033,034,036 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,083,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ; Finland 437 Collate (same as Sweden) ; fi_collate label word ; sv_collate label word ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 067,089,069,065,092,065,091,067 db 069,069,069,073,073,073,092,091 db 069,092,092,079,093,079,085,085 db 089,093,089,036,036,036,036,036 db 065,073,079,085,078,078,166,167 db 063,169,170,171,172,033,034,034 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,083,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ; Israel 862 collate ; is_collate label word ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 128,129,130,131,132,133,134,135 db 136,137,138,139,140,141,142,143 db 144,145,146,147,148,149,150,151 db 152,153,154,036,036,036,036,036 db 065,073,079,085,078,078,166,167 db 063,169,170,171,172,033,034,034 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,083,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ; Canada 863 Collate ; ca_collate label word ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 067,085,069,065,065,065,134,067 db 069,069,069,073,073,141,065,143 db 069,069,069,079,069,073,085,085 db 152,079,085,155,156,085,085,159 db 160,161,079,085,164,165,166,167 db 073,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ; Portugal 860 collating ; po_collate label word ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 067,085,069,065,065,065,065,067 db 069,069,069,073,079,073,065,065 db 069,065,069,079,079,079,085,085 db 073,079,085,036,036,085,036,079 db 065,073,079,085,078,078,166,167 db 063,079,170,171,172,033,034,034 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,083,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; sw_collate label word ctable <,'COLLATE',256> db 001,200,201,202,203,204,205,206 db 207,208,209,210,211,212,213,214 db 215,216,217,218,140,141,219,220 db 221,222,223,224,225,226,227,228 db 001,060,061,062,063,064,065,066 ;DCR059 CNS ****** ;AN000; db 067,068,069,070,071,072,073,074 db 032,033,034,035,036,037,038,039 db 040,041,075,076,077,078,079,080 db 081,002,003,004,005,007,008,009 db 010,011,012,013,014,015,016,018 db 019,020,021,022,024,026,027,028 db 029,030,031,082,083,084,052,085 db 051,002,003,004,005,007,008,009 db 010,011,012,013,014,015,016,018 db 019,020,021,022,024,026,027,028 db 029,030,031,086,087,088,054,089 db 004,026,007,002,002,002,002,004 db 007,007,007,011,011,011,002,002 db 007,002,002,018,018,018,026,026 db 030,018,026,111,090,112,150,092 db 002,011,018,026,017,017,002,018 db 093,151,095,096,097,098,099,100 db 101,102,103,104,105,152,153,154 db 155,107,108,109,110,156,157,113 db 114,115,116,117,118,119,158,159 db 120,121,122,123,124,125,126,160 db 161,162,163,164,165,166,167,168 db 169,128,129,130,131,170,171,133 db 172,023,173,174,175,176,134,177 db 178,179,180,181,182,183,184,185 db 186,137,187,188,189,190,142,191 db 143,192,144,193,194,147,148,001 page ; be_collate label word ctable <,'COLLATE',256> db 255,255,255,255,255,255,255,255 db 255,255,255,255,255,255,255,255 db 255,255,255,255,255,255,255,255 db 255,255,255,255,255,255,255,255 db 255,033,034,035,036,037,038,255 db 040,041,042,043,044,255,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 067,085,069,065,065,065,065,067 db 069,069,069,073,073,073,065,065 db 069,065,065,079,079,079,085,085 db 089,079,085,155,156,157,158,159 db 065,073,079,085,078,078,166,167 db 168,169,170,171,172,173,174,175 db 255,255,255,255,255,255,255,255 db 255,255,255,255,255,255,255,255 db 255,255,255,255,255,255,255,255 db 255,255,255,255,255,255,255,255 db 255,255,255,255,255,255,255,255 db 255,255,255,255,255,255,255,255 db 224,083,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,255,255 page ; ; Area South 864 Collate ; as_collate label word ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 128,129,130,131,132,133,134,135 db 136,137,138,139,140,141,142,143 db 144,145,146,147,148,149,150,151 db 152,233,234,251,255,235,236,179 db 153,154,182,155,156,184,253,254 db 188,189,192,194,163,196,198,200 db 164,165,166,167,168,169,170,171 db 172,173,224,174,206,208,210,175 db 157,180,181,183,185,217,186,187 db 190,191,193,195,197,199,201,202 db 203,204,205,207,209,211,213,214 db 215,218,222,158,159,160,161,216 db 178,225,227,229,237,239,241,243 db 245,246,250,212,219,221,220,238 db 177,176,240,242,244,247,249,223 db 226,231,232,230,228,248,162,255 page ; ; ----------------------------------------- ; ; Collating Tables for Code Page 850 ; ; ----------------------------------------- ; fr850_collate label word ; ca850_collate label word ; us850_collate label word ; uk850_collate label word ; it850_collate label word ; ;;sp850_collate label word ; spain now has there own ; is850_collate label word ; po850_collate label word ; ;;la850_collate label word ; wants same as spain ; as850_collate label word ; gr850_collate label word ;omitted tobe consistent with US DCR ; afe850_collate label word ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 067,085,069,065,065,065,065,067 db 069,069,069,073,073,073,065,065 db 069,065,065,079,079,079,085,085 db 089,079,085,079,036,079,158,036 db 065,073,079,085,078,078,166,167 db 063,169,170,171,172,033,034,034 db 176,177,178,179,180,065,065,065 db 184,185,186,187,188,036,036,191 db 192,193,194,195,196,197,065,065 db 200,201,202,203,204,205,206,036 db 068,068,069,069,069,073,073,073 db 073,217,218,219,220,221,073,223 db 079,083,079,079,079,079,230,232 db 232,085,085,085,089,089,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ;formerly GERMAN COLLATE TABLE DCR0037 ; ctable <,'COLLATE',256> ; db 000,001,002,003,004,005,006,007 ; db 008,009,010,011,012,013,014,015 ; db 016,017,018,019,020,021,022,023 ; db 024,025,026,027,028,029,030,031 ; db 032,033,034,035,036,037,038,039 ; db 040,041,042,043,044,045,046,047 ; db 048,049,050,051,052,053,054,055 ; db 056,057,058,059,060,061,062,063 ; db 064,065,066,067,068,069,070,071 ; db 072,073,074,075,076,077,078,079 ; db 080,081,082,083,084,085,086,087 ; db 088,089,090,091,092,093,094,095 ; db 096,065,066,067,068,069,070,071 ; db 072,073,074,075,076,077,078,079 ; db 080,081,082,083,084,085,086,087 ; db 088,089,090,123,124,125,126,127 ; db 067,117,069,065,097,065,065,067 ; db 069,069,069,073,073,073,065,065 ; db 069,065,065,079,111,079,085,085 ; db 089,079,085,079,036,079,158,036 ; db 065,073,079,085,078,078,166,167 ; db 063,169,170,171,172,033,034,034 ; db 176,177,178,179,180,065,065,065 ; db 184,185,186,187,188,036,036,191 ; db 192,193,194,195,196,197,065,065 ; db 200,201,202,203,204,205,206,036 ; db 068,068,069,069,069,073,073,073 ; db 073,217,218,219,220,221,073,223 ; db 079,115,079,079,079,079,230,232 ; db 232,085,085,085,089,089,238,239 ; db 240,241,242,243,244,245,246,247 ; db 248,249,250,251,252,253,254,255 page ; nl850_collate label word ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 067,085,069,065,065,065,143,067 db 069,069,069,073,073,073,065,143 db 069,146,146,079,079,079,085,085 db 152,079,085,079,156,079,158,159 db 065,073,079,085,165,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,065,065,065 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,065,065 db 200,201,202,203,204,205,206,207 db 209,209,069,069,069,073,073,073 db 073,217,218,219,220,221,073,223 db 079,225,079,079,079,079,230,232 db 232,085,085,085,089,089,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; dk850_collate label word ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,040,047,041,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,040,047,041,126,127 db 067,089,069,065,091,065,093,067 db 069,069,069,073,073,073,091,093 db 069,091,091,079,092,079,085,085 db 089,092,089,092,036,092,158,036 db 065,073,079,085,078,078,065,079 db 063,169,170,171,172,033,034,034 db 176,177,178,179,180,065,065,065 db 184,185,186,187,188,036,036,191 db 192,193,194,195,196,197,065,065 db 200,201,202,203,204,205,206,036 db 068,068,069,069,069,073,073,073 db 073,217,218,219,220,221,073,223 db 079,083,079,079,079,079,230,080 db 080,085,085,085,089,089,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; no850_collate label word ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 067,085,069,065,091,065,093,067 db 069,069,069,073,073,073,091,093 db 069,091,091,079,092,079,085,085 db 089,092,089,092,036,092,158,036 db 065,073,079,085,078,078,065,079 db 063,169,170,171,172,033,034,034 db 176,177,178,179,180,065,065,065 db 184,185,186,187,188,036,036,191 db 192,193,194,195,196,197,065,065 db 200,201,202,203,204,205,206,036 db 068,068,069,069,069,073,073,073 db 073,217,218,219,220,221,073,223 db 079,083,079,079,079,079,230,080 db 080,085,085,085,089,089,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; sv850_collate label word ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 067,089,069,065,092,065,091,067 db 069,069,069,073,073,073,092,091 db 069,092,092,079,093,079,085,085 db 089,093,089,093,036,093,158,036 db 065,073,079,085,078,078,166,167 db 063,169,170,171,172,033,034,034 db 176,177,178,179,180,065,065,065 db 184,185,186,187,188,036,036,191 db 192,193,194,195,196,197,065,065 db 200,201,202,203,204,205,206,036 db 068,068,069,069,069,073,073,073 db 073,217,218,219,220,221,073,223 db 079,083,079,079,093,093,230,232 db 232,085,085,085,089,089,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; fi850_collate label word ctable <,'COLLATE',256> db 000,001,002,003,004,005,006,007 db 008,009,010,011,012,013,014,015 db 016,017,018,019,020,021,022,023 db 024,025,026,027,028,029,030,031 db 032,033,034,035,036,037,038,039 db 040,041,042,043,044,045,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 067,089,069,065,092,065,091,067 db 069,069,069,073,073,073,092,091 db 069,092,092,079,093,079,085,085 db 089,093,089,093,036,093,158,036 db 065,073,079,085,078,078,166,167 db 063,169,170,171,172,033,034,034 db 176,177,178,179,180,065,065,065 db 184,185,186,187,188,036,036,191 db 192,193,194,195,196,197,065,065 db 200,201,202,203,204,205,206,036 db 068,068,069,069,069,073,073,073 db 073,217,218,219,220,221,073,223 db 079,083,079,079,079,079,230,232 db 232,085,085,085,089,089,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; sw850_collate label word ctable <,'COLLATE',256> db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 db 000,165,168,133,185,134,135,169 db 170,171,136,158,172,174,175,176 db 117,118,120,122,124,125,126,127 db 128,129,177,178,160,161,162,179 db 137,002,018,020,024,028,038,040 db 042,044,055,057,059,061,063,067 db 081,083,085,087,090,094,104,106 db 108,110,115,138,139,140,191,173 db 190,003,019,021,025,029,039,041 db 043,056,045,058,060,062,064,068 db 082,084,086,088,091,095,105,107 db 109,111,116,142,143,144,193,157 db 022,103,031,009,011,007,015,023 db 035,037,033,053,051,049,010,014 db 030,017,016,074,076,072,101,099 db 114,075,102,080,184,079,164,188 db 005,047,070,097,066,065,149,148 db 180,154,156,131,130,166,181,182 db 207,208,209,206,204,004,008,006 db 153,210,211,212,213,186,187,198 db 197,202,201,203,205,200,013,012 db 214,215,216,217,218,219,220,183 db 027,026,034,036,032,054,046,050 db 052,199,196,223,221,155,048,222 db 069,089,073,071,078,077,146,092 db 093,096,100,098,113,112,145,189 db 167,159,141,132,151,150,163,194 db 147,192,195,119,123,121,152,001 ; db 001,200,201,202,203,204,205,206 ; db 207,208,209,210,211,212,213,214 ; db 215,216,217,218,140,141,219,220 ; db 221,222,223,224,225,226,227,228 ; db 001,060,061,062,063,064,065,066 ; db 067,068,069,070,071,072,073,074 ; db 032,033,034,035,036,037,038,039 ; db 040,041,075,076,077,078,079,080 ; db 081,002,003,004,005,007,008,009 ; db 010,011,012,013,014,015,016,018 ; db 019,020,021,022,024,026,027,028 ; db 029,030,031,082,083,084,052,085 ; db 051,002,003,004,005,007,008,009 ; db 010,011,012,013,014,015,016,018 ; db 019,020,021,022,024,026,027,028 ; db 029,030,031,086,087,088,054,089 ; db 004,026,007,002,002,002,002,004 ; db 007,007,007,011,011,011,002,002 ; db 007,002,002,018,018,018,026,026 ; db 030,018,026,018,090,018,091,092 ; db 002,011,018,026,017,017,002,018 ; db 093,094,095,096,097,098,099,100 ; db 101,102,103,104,105,002,002,002 ; db 106,107,108,109,110,111,112,113 ; db 114,115,116,117,118,119,002,002 ; db 120,121,122,123,124,125,126,127 ; db 006,006,007,007,007,011,011,011 ; db 011,128,129,130,131,132,011,133 ; db 018,023,018,018,018,018,134,025 ; db 025,026,026,026,030,030,135,050 ; db 136,137,138,139,140,141,142,055 ; db 143,053,144,145,146,147,148,001 page ; be850_collate label word ctable <,'COLLATE',256> db 255,255,255,255,255,255,255,255 db 255,255,255,255,255,255,255,255 db 255,255,255,255,255,255,255,255 db 255,255,255,255,255,255,255,255 db 255,033,034,035,036,037,038,255 db 040,041,042,043,044,255,046,047 db 048,049,050,051,052,053,054,055 db 056,057,058,059,060,061,062,063 db 064,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,091,092,093,094,095 db 096,065,066,067,068,069,070,071 db 072,073,074,075,076,077,078,079 db 080,081,082,083,084,085,086,087 db 088,089,090,123,124,125,126,127 db 067,085,069,065,065,065,065,067 db 069,069,069,073,073,073,065,065 db 069,065,065,079,079,079,085,085 db 089,079,085,079,156,079,158,159 db 065,073,079,085,078,164,166,167 db 168,169,170,171,172,173,174,175 db 255,255,255,255,255,065,065,065 db 184,255,255,255,255,189,190,255 db 255,255,255,255,255,255,065,065 db 255,255,255,255,255,255,255,207 db 068,068,069,069,069,073,073,073 db 073,255,255,255,255,221,073,255 db 079,083,079,079,079,079,230,084 db 084,085,085,085,089,089,238,239 db 255,241,242,243,244,245,246,247 db 248,249,250,251,252,253,255,255 page la850_collate label word ; wants same as spain ; sp850_collate label word ; new for DOS 4.0 ctable <,'COLLATE',256> db 000,150,151,152,153,154,155,156 ;7 db 157,158,159,160,161,162,163,164 ;15 db 165,166,167,168,169,170,171,172 ;23 db 173,174,175,176,177,178,179,180 ;31 db 000,060,061,062,063,064,065,000 ;39 db 066,067,068,069,070,000,071,072 ;47 db 034,035,036,037,038,039,040,041 ;55 db 042,043,073,074,075,076,077,078 ;63 db 079,001,002,003,006,008,009,010 ;71 db 011,012,013,014,015,017,018,020 ;79 db 021,022,023,024,026,028,029,030 ;87 db 031,032,033,080,081,082,083,084 ;95 db 085,001,002,003,006,008,009,010 ;103 db 011,012,013,014,015,017,018,020 ;111 db 021,022,023,024,026,028,029,030 ;119 db 031,032,033,086,087,088,089,090 ;127 db 004,028,008,001,001,001,001,004 ;135 db 008,008,008,012,012,012,001,001 ;143 db 008,001,001,020,020,020,028,028 ;151 db 032,020,028,020,092,020,094,095 ;159 db 001,012,020,028,019,019,001,020 ;167 db 096,097,098,099,100,101,102,103 ;175 db 104,105,106,107,108,001,001,001 ;183 db 184,109,110,001,001,091,093,113 ;191 db 114,115,116,117,118,119,187,188 ;199 db 120,121,122,123,124,125,126,189 ;207 db 007,007,008,008,008,012,012,012 ;215 db 012,127,128,129,130,199,012,131 ;223 db 020,025,020,020,020,020,132,027 ;231 db 027,028,028,028,032,032,213,214 ;239 db 000,133,216,217,218,219,134,220 ;247 db 221,222,000,223,224,135,136,225 ;255 page ; jp932_collate label word ctable <,'COLLATE',256> db 0,1,2,3,4,5,6,7 db 8,9,10,11,12,13,14,15 db 16,17,18,19,20,21,22,23 db 24,25,26,27,28,29,30,31 db " ","!",'"',"#","$","%","&","'" db "(",")","*","+",",","-",".","/" db "0","1","2","3","4","5","6","7" db "8","9",":",";","<","=",">","?" db "@","A","B","C","D","E","F","G" db "H","I","J","K","L","M","N","O" db "P","Q","R","S","T","U","V","W" db "X","Y","Z","[","\","]","^","_" db "`","A","B","C","D","E","F","G" db "H","I","J","K","L","M","N","O" db "P","Q","R","S","T","U","V","W" db "X","Y","Z","{","|","}","~",127 db 128,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 129,130,131,132,133,189,134,135 db 136,137,138,139,140,141,142,143 db 144,145,146,147,148,149,150,151 db 152,153,154,155,156,157,158,159 db 160,161,162,163,164,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,190,191,192 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ko934_collate label word ctable <,'COLLATE',256> db 0,1,2,3,4,5,6,7 db 8,9,10,11,12,13,14,15 db 16,17,18,19,20,21,22,23 db 24,25,26,27,28,29,30,31 db " ","!",'"',"#","$","%","&","'" db "(",")","*","+",",","-",".","/" db "0","1","2","3","4","5","6","7" db "8","9",":",";","<","=",">","?" db "@","A","B","C","D","E","F","G" db "H","I","J","K","L","M","N","O" db "P","Q","R","S","T","U","V","W" db "X","Y","Z","[","\","]","^","_" db "`","A","B","C","D","E","F","G" db "H","I","J","K","L","M","N","O" db "P","Q","R","S","T","U","V","W" db "X","Y","Z","{","|","}","~",127 db 128,190,191,192,193,194,195,196 db 197,198,199,200,201,202,203,204 db 205,206,207,208,209,210,211,212 db 213,214,215,216,217,218,219,220 db 221,222,223,224,225,226,227,228 db 229,230,231,232,233,234,235,236 db 237,238,239,240,241,242,243,244 db 245,246,247,248,249,250,251,252 db 129,130,131,132,133,134,135,136 db 137,138,139,140,141,142,143,144 db 145,146,147,148,149,150,151,152 db 153,154,155,156,157,158,159,160 db 161,162,163,164,165,166,167,168 db 169,170,171,172,173,174,175,176 db 177,178,179,180,181,182,183,184 db 185,186,187,188,189,253,254,255 page ; pr936_collate label word ; ta938_collate label word ctable <,'COLLATE',256> db 0,1,2,3,4,5,6,7 db 8,9,10,11,12,13,14,15 db 16,17,18,19,20,21,22,23 db 24,25,26,27,28,29,30,31 db " ","!",'"',"#","$","%","&","'" db "(",")","*","+",",","-",".","/" db "0","1","2","3","4","5","6","7" db "8","9",":",";","<","=",">","?" db "@","A","B","C","D","E","F","G" db "H","I","J","K","L","M","N","O" db "P","Q","R","S","T","U","V","W" db "X","Y","Z","[","\","]","^","_" db "`","A","B","C","D","E","F","G" db "H","I","J","K","L","M","N","O" db "P","Q","R","S","T","U","V","W" db "X","Y","Z","{","|","}","~",127 db 128,129,130,131,132,133,134,135 db 136,137,138,139,140,141,142,143 db 144,145,146,147,148,149,150,151 db 152,153,154,155,156,157,158,159 db 160,161,162,163,164,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ; --------------------------------------------------------------- ; ; World Trade Case Mappings ; ; --------------------------------------------------------------- ; us_ucase label word ; uk_ucase label word ; fr_ucase label word ; gr_ucase label word ; sp_ucase label word ; la_ucase label word ; it_ucase label word ; afe_ucase label word ; as_ucase label word ; jp437_ucase label word ; ko437_ucase label word ; pr437_ucase label word ; ta437_ucase label word ctable <,'UCASE ',128> ;***CNS PTM2390 table omitted ;AN000; ;***CNS restored for PTM 2575 to establish consistent and maintain 3.3 & ;under compatibility db 128,154,069,065,142,065,143,128 db 069,069,069,073,073,073,142,143 db 144,146,146,079,153,079,085,085 db 089,153,154,155,156,157,158,159 db 065,073,079,085,165,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 ;***CNS PTM2390 table omitted ;**CNS replacement ; db 067,085,069,065,065,065,065,067 ;AD000; ; db 069,069,069,073,073,073,065,065 ;AD000; ; db 069,146,146,079,079,079,085,085 ;AD000; ; db 089,079,085,079,156,079,158,159 ;AD000; ; db 065,073,079,085,165,165,166,167 ;AD000; ; db 168,169,170,171,172,173,174,175 ;AD000; ; db 176,177,178,179,180,065,065,065 ;AD000; ; db 184,185,186,187,188,189,190,191 ;AD000; ; db 192,193,194,195,196,197,065,065 ;AD000; ; db 200,201,202,203,204,205,206,207 ;AD000; ; db 209,209,069,069,069,073,073,073 ;AD000; ; db 073,217,218,219,220,221,073,223 ;AD000; ; db 079,225,079,079,079,079,230,232 ;AD000; ; db 232,085,085,085,089,089,238,239 ;AD000; ; db 240,241,242,243,244,245,246,247 ;AD000; ; db 248,249,250,251,252,253,254,255 ;AD000; ; page ; Canadian French Code Page 863 ; ca_ucase label word ctable <,'UCASE ',128> db 067,085,069,065,065,065,134,067 db 069,069,069,073,073,141,065,143 db 069,069,069,079,069,073,085,085 db 152,079,085,155,156,085,085,159 db 160,161,079,085,164,165,166,167 db 073,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; Denmark (Da) case mapping for 865 ; dk_ucase label word ; ; Norway (No) case mapping for 865 ; no_ucase label word ctable <,'UCASE ',128> db 128,154,144,065,142,065,143,128 db 069,069,069,073,073,073,142,143 db 144,146,146,079,153,079,085,085 db 089,153,154,157,156,157,158,159 db 065,073,079,085,165,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; Belgium (Be) case mapping for 437 ; be_ucase label word ; ; Finland (Fi) case mapping for 437 ; fi_ucase label word ; ; Sweden (Sv) case mapping ; sv_ucase label word ctable <,'UCASE ',128> db 128,154,144,065,142,065,143,128 db 069,069,069,073,073,073,142,143 db 144,146,146,079,153,079,085,085 db 089,153,154,155,156,157,158,159 db 065,073,079,085,165,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; Switzerland case mapping for 437 ; sw_ucase label word ctable <,'UCASE ',128> db 128,154,144,065,142,065,143,128 db 069,069,069,073,073,073,142,143 db 144,146,146,079,153,079,085,085 db 089,153,154,155,156,157,158,159 db 065,073,079,085,165,165,166,167 ;AN000;;DCR 059 CNS *** db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ; Netherlands case mapping for 437 ; nl_ucase label word ctable <,'UCASE ',128> db 128,085,069,065,065,065,143,128 db 069,069,069,073,073,073,065,143 db 069,146,146,079,079,079,085,085 db 152,079,085,155,156,157,158,159 db 065,073,079,085,165,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ; Portuguese (Po) case mapping ; po_ucase label word ctable <,'UCASE ',128> db 128,154,144,143,142,145,134,128 db 137,137,146,139,140,152,142,143 db 144,145,146,140,153,169,150,157 db 152,153,154,155,156,157,158,159 db 134,139,159,150,165,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ; Is case mapping ; is_ucase label word ctable <,'UCASE ',128> db 128,129,130,131,132,133,134,135 db 136,137,138,139,140,141,142,143 db 144,145,146,147,148,149,150,151 db 152,153,154,155,156,157,158,159 db 065,073,079,085,165,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; us850_ucase label word ; afe850_ucase label word ; uk850_ucase label word ; fr850_ucase label word ; it850_ucase label word ; is850_ucase label word ; as850_ucase label word ; po850_ucase label word ; ca850_ucase label word ctable <,'UCASE ',128> ;**CNS replacement db 067,085,069,065,065,065,065,067 db 069,069,069,073,073,073,065,065 db 069,146,146,079,079,079,085,085 db 089,079,085,079,156,079,158,159 db 065,073,079,085,165,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,065,065,065 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,065,065 db 200,201,202,203,204,205,206,207 db 209,209,069,069,069,073,073,073 db 073,217,218,219,220,221,073,223 db 079,225,079,079,079,079,230,232 db 232,085,085,085,089,089,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 ; ;***CNS PTM2390 table omitted ; db 128,154,069,065,142,065,143,128 ;AN000; ; db 069,069,069,073,073,073,142,143 ;AN000; ; db 144,146,146,079,153,079,085,085 ;AN000; ; db 089,153,154,155,156,157,158,159 ;AN000; ; db 065,073,079,085,165,165,166,167 ;AN000; ; db 168,169,170,171,172,173,174,175 ;AN000; ; db 176,177,178,179,180,181,182,183 ;AN000; ; db 184,185,186,187,188,189,190,191 ;AN000; ; db 192,193,194,195,196,197,198,199 ;AN000; ; db 200,201,202,203,204,205,206,207 ;AN000; ; db 208,209,210,211,212,213,214,215 ;AN000; ; db 216,217,218,219,220,221,222,223 ;AN000; ; db 224,225,226,227,228,229,230,231 ;AN000; ; db 232,233,234,235,236,237,238,239 ;AN000; ; db 240,241,242,243,244,245,246,247 ;AN000; ; db 248,249,250,251,252,253,254,255 ;AN000; ;***CNS PTM2390 table omitted ; ;;la850_ucase label word - LA wants same as spain ; ;; sp850_ucase label word - changed for 4.0 ; ctable <,'UCASE ',128> ; db 128,085,069,065,065,065,065,128 ; db 069,069,069,073,073,073,065,065 ; db 069,146,146,079,079,079,085,085 ; db 089,079,085,079,156,079,158,159 ; db 065,073,079,085,165,165,166,167 ; db 168,169,170,171,172,173,174,175 ; db 176,177,178,179,180,065,065,065 ; db 184,185,186,187,188,189,190,191 ; db 192,193,194,195,196,197,065,065 ; db 200,201,202,203,204,205,206,207 ; db 209,209,069,069,069,073,073,073 ; db 073,217,218,219,220,221,073,223 ; db 079,225,079,079,079,079,230,232 ; db 232,085,085,085,089,089,238,239 ; db 240,241,242,243,244,245,246,247 ; db 248,249,250,251,252,253,254,255 ; gr850_ucase label word ctable <,'UCASE ',128> db 067,154,069,065,142,065,065,067 db 069,069,069,073,073,073,142,065 db 069,146,146,079,153,079,085,085 db 089,153,154,079,156,079,158,159 db 065,073,079,085,165,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,065,065,065 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,065,065 db 200,201,202,203,204,205,206,207 db 209,209,069,069,069,073,073,073 db 073,217,218,219,220,221,073,223 db 079,225,079,079,079,079,230,232 db 232,085,085,085,089,089,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ; LA case mapping for 850, new for DOS 4.0 to be same as Spain ; la850_ucase label word ; ; Spain (sp) case mapping for 850, new for DOS 4.0 ; sp850_ucase label word ; ; Belgium (Be) case mapping for 850 ; be850_ucase label word ; ; Finland (Fi) case mapping for 850 ; fi850_ucase label word ; ; Sweden (Sv) case mapping for 850 ; sv850_ucase label word ; ; Denmark (Da) case mapping for 850 ; dk850_ucase label word ; ; Norway (No) case mapping for 850 ; no850_ucase label word ctable <,'UCASE ',128> db 128,154,144,182,142,183,143,128 db 210,211,212,216,215,222,142,143 db 144,146,146,226,153,227,234,235 db 089,153,154,157,156,157,158,159 db 181,214,224,233,165,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,199,199 db 200,201,202,203,204,205,206,207 db 209,209,210,211,212,073,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,229,229,230,232 db 232,233,234,235,237,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; Switzerland (Sw) Case mapping (850) ; sw850_ucase label word ctable <,'UCASE ',128> db 128,154,144,182,142,183,143,128 db 210,211,212,216,215,222,142,143 db 144,146,146,226,153,227,234,235 db 089,153,154,157,156,157,158,159 db 181,214,224,233,165,165,166,167 ;DCR059 CNS ** ;AN000; db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,199,199 db 200,201,202,203,204,205,206,207 db 209,209,210,211,212,073,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,229,229,230,232 db 232,233,234,235,237,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 ; ; Netherlands (Nl) case mapping 850 ; nl850_ucase label word ctable <,'UCASE ',128> db 128,085,069,065,065,065,143,128 db 069,069,069,073,073,073,065,143 db 069,146,146,079,079,079,085,085 db 152,079,085,079,156,079,158,159 db 065,073,079,085,165,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,065,065,065 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,065,065 db 200,201,202,203,204,205,206,207 db 209,209,069,069,069,073,073,073 db 073,217,218,219,220,221,073,223 db 079,225,079,079,079,079,230,232 db 232,085,085,085,089,089,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ; Japan case mapping 932 ; jp932_ucase label word ; ko934_ucase label word ; pr936_ucase label word ; ta938_ucase label word ctable <,'UCASE ',128> db 128,129,130,131,132,133,134,135 db 136,137,138,139,140,141,142,143 db 144,145,146,147,148,149,150,151 db 152,153,154,155,156,157,158,159 db 160,161,162,163,164,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ---------------------------------------------------------------------------- ; ; World Trade Mono Case Filename Character Tables ; ; Currently all countries have same (4/14/86) ; ; ; ---------------------------------------------------------------------------- uk_ucfile label word fr_ucfile label word gr_ucfile label word sp_ucfile label word it_ucfile label word sv_ucfile label word dk_ucfile label word sw_ucfile label word no_ucfile label word nl_ucfile label word be_ucfile label word fi_ucfile label word is_ucfile label word ca_ucfile label word as_ucfile label word po_ucfile label word us_ucfile label word la_ucfile label word afe_ucfile label word ctable <,'FUCASE ',128> db 128,129,130,131,132,133,134,135 db 136,137,138,139,140,141,142,143 db 144,145,146,147,148,149,150,151 db 152,153,154,155,156,157,158,159 db 160,161,162,163,164,165,166,167 db 168,169,170,171,172,173,174,175 db 176,177,178,179,180,181,182,183 db 184,185,186,187,188,189,190,191 db 192,193,194,195,196,197,198,199 db 200,201,202,203,204,205,206,207 db 208,209,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223 db 224,225,226,227,228,229,230,231 db 232,233,234,235,236,237,238,239 db 240,241,242,243,244,245,246,247 db 248,249,250,251,252,253,254,255 page ; ---------------------------------------------------------------------------- ; ; World Trade Valid Filename Character Tables ; ; Currently all countries have same (4/14/86) ; ; ; ---------------------------------------------------------------------------- uk_flist label word fr_flist label word gr_flist label word sp_flist label word it_flist label word sv_flist label word dk_flist label word sw_flist label word no_flist label word nl_flist label word be_flist label word fi_flist label word is_flist label word ca_flist label word as_flist label word po_flist label word us_flist label word la_flist label word afe_flist label word jp437_flist label word jp932_flist label word ko437_flist label word ko934_flist label word pr437_flist label word pr936_flist label word ta437_flist label word ta938_flist label word ctable <,'FCHAR ',fclend-fclbegin> fclbegin label word db 1,0,255 ; include all db 0,0,20h ; exclude 0 - 20h db 2,14,'."/\[]:|<>+=;,' ; exclude 14 special chars fclend label word page ; ---------------------------------------------------------------------------- ; ; World Trade DBCS Tables ; ; Currently all countries have same (4/14/86) ; ; ; ---------------------------------------------------------------------------- ; ;***CNS uk_dbcs label word ;AN000; fr_dbcs label word ;AN000; gr_dbcs label word ;AN000; sp_dbcs label word ;AN000; it_dbcs label word ;AN000; sv_dbcs label word ;AN000; dk_dbcs label word ;AN000; sw_dbcs label word ;AN000; no_dbcs label word ;AN000; nl_dbcs label word ;AN000; be_dbcs label word ;AN000; fi_dbcs label word ;AN000; is_dbcs label word ;AN000; ca_dbcs label word ;AN000; as_dbcs label word ;AN000; po_dbcs label word ;AN000; us_dbcs label word ;AN000; la_dbcs label word ;AN000; afe_dbcs label word ;AN000; jp437_dbcs label word ;AN000; ko437_dbcs label word ;AN000; pr437_dbcs label word ;AN000; ta437_dbcs label word ;AN000; ctable <,'DBCS ',dbcsterm-dbcsbegin> ;AN000; dbcsbegin label word ;AN000; dbcsterm db 0,0 ;AN000; dbcsend label word ;AN000; ; ; Japan DBCS lead byte table ; jp932_dbcs label word ;AN000; ctable <,'DBCS ',db932end-db932bgn> ;AN000; db932bgn label word ;AN000; db 081h,09Fh ;AN000; db 0E0h,0FCh ;AN000; db932term db 000h,000h ;AN000; db932end equ $ ;AN000; ; ; Korea DBCS lead byte table ; ko934_dbcs label word ;AN000; ctable <,'DBCS ',db934end-db934bgn> ;AN000; db934bgn label word ;AN000; db 081h,0BFh ;AN000; db934term db 000h,000h ;AN000; db934end equ $ ;AN000; ; ; PRC and Taiwan DBCS lead byte table ; pr936_dbcs label word ;AN000; ta938_dbcs label word ;AN000; ctable <,'DBCS ',db936end-db936bgn> ;AN000; db936bgn label word ;AN000; db 081h,0FCh ;AN000; db936term db 000h,000h ;AN000; db936end equ $ ;AN000; page ; --------------------------------------------------------------- ; ; END OF CDI SEGMENT ; ; --------------------------------------------------------------- include copyrigh.inc cdiend label word ; cdifname equ $ db 'COUNTRY.SYS',0 ; crmsg equ $ db 'Create failed',13,10 crmlen equ $-crmsg ; succmsg equ $ db 'COUNTRY.SYS created',13,10 smlen equ $-succmsg ; iomsg equ $ db 'I/O error writing COUNTRY.SYS',13,10 iomlen equ $-iomsg dseg ends ; sseg segment stack db 128 dup(0) sseg ends end mkcdif