blob: 6594e963da2ea5faeb3998b7daf57180af737f09 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
;
;Equates for COUNTRY INFORMATION.
SetCountryInfo EQU 1 ;country info
SetUcase EQU 2 ;uppercase table
SetLcase EQU 3 ;lowercase table (Reserved)
SetUcaseFile EQU 4 ;uppercase file spec table
SetFileList EQU 5 ;valid file character list
SetCollate EQU 6 ;collating sequence
SetDBCS EQU 7 ;double byte character set
SetALL EQU -1 ;all the entries
;DOS country and code page information table structure.
;Internally, DOS gives a pointer to this table.
;IBMBIO, MODE and NLSFUNC modules communicate with DOS through
;this structure.
DOS_country_cdpg_info struc
ccInfo_reserved db 8 dup (?) ;reserved for internal use
ccPath_CountrySys db 64 dup (0);path and filename for country info
ccSysCodePage dw 0 ;system code page id
ccNumber_of_entries dw 6 ; 6 entries
ccSetUcase db SetUcase
ccUcase_ptr dd ? ;pointer to Ucase table
ccSetUcaseFile db SetUcaseFile
ccFileUcase_ptr dd ? ;pointer to File Ucase table
ccSetFileList db SetFileList
ccFileChar_ptr dd ? ;pointer to File char list table
ccSetCollate db SetCollate
ccCollate_ptr dd ? ;pointer to collate table
ccSetDBCS db SetDBCS
ccDBCS_ptr dd ? ;pointer to DBCS table
ccSetCountryInfo db SetCountryInfo
ccCountryInfoLen dw ? ;length of country info
ccDosCountry dw ? ;active country code id
ccDosCodePage dw ? ;active code page id
ccDFormat dw ? ;date format
ccCurSymbol db " ",0;5 byte of (currency symbol+0)
cc1000Sep db " ",0 ;2 byte of (1000 sep. + 0)
ccDecSep db " ",0 ;2 byte of (Decimal sep. + 0)
ccDateSep db " ",0 ;2 byte of (date sep. + 0)
ccTimeSep db " ",0 ;2 byte of (time sep. + 0)
ccCFormat db ? ;currency format flags
ccCSigDigits db ? ;# of digits in currency
ccTFormat db ? ;time format
ccMono_Ptr dd ? ;monocase routine entry point
ccListSep db " ",0 ;data list separator
ccReserved_area dw 5 dup(?);reserved
DOS_country_cdpg_info ends
;Ucase table
CC_UCASE_TAB struc
ccUcase_leng dw 128
ccUcase_data db 128 dup (?)
CC_UCASE_TAB ends
;File Ucase table
CC_FILE_UCASE_TAB struc
ccFileucase_leng dw 128
ccFileucase_data db 128 dup (?)
CC_FILE_UCASE_TAB ends
;File char list
CC_FILE_CHAR_TAB struc
ccFilechar_leng dw ?
ccFilechar_data db 46 dup (?)
CC_FILE_CHAR_TAB ends
;collate table
CC_COLLATE_TAB struc
ccCollate_leng dw 256
ccCollate_data db 256 dup (?)
CC_COLLATE_TAB ends
;DBCS table - for DOS 4.00
CC_DBCS_TAB struc
ccDBCS_leng dw 6
ccDBCS_data db 6 dup (?)
CC_DBCS_TAB ends
; 2/12/KK
; Define subfunctions of ECS_call ( 63H ) 2/12/KK
; 2/12/KK
GetLeadBTBL EQU 0 ; 2/12/KK
SetInterimMode EQU 1 ; 2/12/KK
GetInterimMode EQU 2 ; 2/12/KK
; 2/12/KK
NonInterimMode EQU 0 ; 2/12/KK
InterimMode EQU 1 ; 2/12/KK
OLD_COUNTRY_SIZE equ (type DOS_country_cdpg_info - ccDFormat - 10)
NEW_COUNTRY_SIZE equ (type DOS_country_cdpg_info - ccDosCountry)
;CAPITALIZATION equates
CAP_ONE_CHAR equ 20H
CAP_STRING equ 21H
CAP_ASCIIZ equ 22H
CHECK_YES_NO equ 23H
UPPER_TABLE equ 80H
;NLS_YES equ 59H
;NLS_yes2 equ 79H
;NLS_NO equ 4EH
;NLS_no2 equ 6EH
|
