1 files changed, 140 insertions, 0 deletions

diff --git a/v4.0/src/DEV/COUNTRY/MKCNTRY.INC b/v4.0/src/DEV/COUNTRY/MKCNTRY.INC
new file mode 100644
index 0000000..a9721ed
--- /dev/null
+++ b/v4.0/src/DEV/COUNTRY/MKCNTRY.INC
@@ -0,0 +1,140 @@
+;
+;       include file for create cdi file
+;
+PTRCNT          EQU     1               ; NUMBER OF POINTERS
+CIPTYPE         EQU     1               ; TYPE FOR COUNTRY INFO POINTER
+; CNTRYCNT        EQU     18              ; NUMBER OF COUNTRIES SUPPORTED
+CENTRYSIZE      EQU     (TYPE CTRYSTR)-2 ; SIZE OF COUNTRY ENTRY
+CDATASIZE       EQU     (TYPE CTRYDAT)-2 ; SIZE OF COUNTRY DATA
+HR12            EQU     0               ; 12 HOUR TIME FORMAT
+HR24            EQU     1               ; 24 HOUR TIME FORMAT
+;
+; entry type symbols
+;
+SETCOUNTRYINFO  EQU     1
+SETUCASE        EQU     2
+SETLCASE        EQU     3
+SETUCASEFILE    EQU     4
+SETFILELIST     EQU     5
+SETCOLLATE      EQU     6
+SETDBCS         EQU     7
+
+CDATAITEMS      EQU     SETDBCS - 1     ; NUMBER OF ENTRIES IN COUNTRY DATA
+
+;
+; country id's
+;
+CID_UK          EQU     044             ; United Kingdom
+CID_FR          EQU     033             ; France
+CID_GR          EQU     049             ; Germany
+CID_SP          EQU     034             ; Spain
+CID_IT          EQU     039             ; Italy
+CID_SV          EQU     046             ; Sweden
+CID_AFE         EQU     061             ; International English
+CID_DK          EQU     045             ; Denmark
+CID_SW          EQU     041             ; Switzerland
+CID_NO          EQU     047             ; Norway
+CID_NL          EQU     031             ; Netherlands
+CID_BE          EQU     032             ; Belgium
+CID_FI          EQU     358             ; Finland
+CID_US          EQU     001             ; United States
+CID_IS          EQU     972             ; Israel
+CID_CA          EQU     002             ; Canadian French
+CID_AS          EQU     785             ; Area South (Saudi Arabia)
+CID_PO          EQU     351             ; Portugal
+CID_LA          EQU     003             ; Latin America
+CID_JP          EQU     081             ; Japan         2/17/KK
+CID_KO          EQU     082             ; Korea         2/17/KK
+CID_PR          EQU     086             ; PRC           2/17/KK
+CID_TA          EQU     088             ; Taiwan        2/17/KK
+CID_XX          EQU     000             ; Dummy entry
+;
+; country code pages
+;
+CP_UK           EQU     437
+CP_FR           EQU     437
+CP_GR           EQU     437
+CP_SP           EQU     437
+CP_IT           EQU     437
+CP_SV           EQU     437
+CP_AFE          EQU     437
+CP_DA           EQU     865
+CP_SW           EQU     437
+CP_NO           EQU     865
+CP_NL           EQU     437
+CP_BE           EQU     437
+CP_FI           EQU     437
+CP_US           EQU     437
+CP_IS           EQU     862
+CP_CA           EQU     863
+CP_AS           EQU     864
+CP_PO           EQU     860
+CP_JP           EQU     932             ; Japan         2/17/KK
+CP_KO           EQU     934             ; Korea         2/17/KK
+CP_PR           EQU     936             ; PRC           2/17/KK
+CP_TA           EQU     938             ; Taiwan        2/17/KK
+;
+;       date formats
+;
+DATE_MDY        EQU     0
+DATE_DMY        EQU     1
+DATE_YMD        EQU     2
+;
+CTRYSTR STRUC
+ESIZE   DW      0                       ; SIZE OF ENTRY
+CNTRYID DW      0                       ; COUNTRY ID
+CODPAGE DW      0                       ; CODE PAGE ID
+RESV1   DW      0                       ; RESERVED
+RESV2   DW      0                       ; RESERVED
+CDPOINT DW      0                       ; POINTER TO COUNTRY DATA
+        DW      0
+CTRYSTR ENDS
+
+CTRYENT MACRO PARMS
+          CTRYSTR <PARMS>
+CNTRYCNT = CNTRYCNT+1
+        ENDM
+;
+CTRYDAT STRUC
+        DW      0
+        DB      0
+        DB      0
+        DW      0
+        DW      0
+CTRYDAT ENDS
+;
+CINFO   STRUC
+        DW      0                       ; COUNTRY ID
+        DW      0                       ; CODE PAGE
+        DW      0                       ; DATE FORMAT
+        DB      0                       ; CURRENCY SYMBOL (5 BYTES)
+        DB      0
+        DB      0
+        DB      0
+        DB      0
+        DB      0                       ; 1000 SEPARATOR
+        DB      0
+        DB      0                       ; DECIMAL SEPARATOR
+        DB      0
+        DB      0                       ; DATE SEPARATOR
+        DB      0
+        DB      0                       ; TIME SEPARATOR
+        DB      0
+        DB      0                       ; CURRENCY FORMAT FLAGS
+        DB      0                       ; DIGITS IN CURRENCY
+        DB      0                       ; TIME FORMAT
+        DD      0                       ; RESERVED
+        DB      0                       ; DATA LIST SEPARATOR
+        DB      0
+        DW      5 DUP (0)               ; RESERVED
+CINFO   ENDS
+;
+CINFOSIZE       EQU     TYPE CINFO      ; SIZE OF COUNTRY INFO TABLE
+;
+CTABLE  STRUC
+        DB      0FFh
+        DB      'CTYINFO'
+        DW      CINFOSIZE
+CTABLE  ENDS
+;
+