1 files changed, 114 insertions, 0 deletions

diff --git a/v4.0/src/INC/DOSCNTRY.INC b/v4.0/src/INC/DOSCNTRY.INC
new file mode 100644
index 0000000..6594e96
--- /dev/null
+++ b/v4.0/src/INC/DOSCNTRY.INC
@@ -0,0 +1,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
+
+
+
+
+