;
;                        IBM Confidential
;                        Copyright (C) IBM Corporation 1991-1993
;                        All Rights Reserved.
;
include version.inc

;
;       Revision History
;       ================
;
;       M016    SR      08/09/90        Added 2 error messages for LoadHigh
;
;
ifdef   DOSV

;       I50-50AT        91-07-22        A. Togami       J5.00         ;dbcs50at;
;       Adapation (bilingual message)                                 ;dbcs50at;
;               change DBCS to DBCS_MSKK to support bilingual format. ;dbcs50at;

;       I61-50AT        93-07-28        A. Togami       J6.10         ;dbcs50at;
;       I63-50AT        94-02-02        A. Togami       J6.30         ;dbcs50at;
;       Maintenance (merged with J5.00 version)                       ;dbcs50at;

endif
;****************************************************
;* TRANSIENT MESSAGE POINTERS & SUBSTITUTION BLOCKS *
;****************************************************

msg_disp_class  db      Util_msg_class
msg_cont_flag   db      No_cont_flag

;  extended error string output
;
Extend_Buf_ptr  dw      0                               ;AN000;set to no message
Extend_Buf_sub  db      0                               ;AN000;set to no substitutions
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
Extend_Buf_off  dw      OFFSET  TranGroup:String_ptr_2  ;AN000;offset of arg
Extend_Buf_seg  dw      0                               ;AN000;segment of arg
                db      0                               ;AN000;first subst
                db      Char_field_ASCIIZ               ;AN000;character string
                db      128                             ;AN000;maximum width
                db      0                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "Duplicate file name or file not found"
;
Renerr_Ptr      dw      1002                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Invalid path or file name"
;
BadCPMes_Ptr    dw      1003                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Insufficient disk space"
;
NoSpace_Ptr     dw      1004                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Out of environment space"
;
EnvErr_Ptr      dw      1007                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "File creation error"
;
FulDir_Ptr      dw      1008                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Batch file missing",13,10
;
BadBat_Ptr      dw      1009                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Insert disk with batch file",13,10
;
NeedBat_Ptr     dw      1010                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Bad command or file name",13,10
;
BadNam_Ptr      dw      1011                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

; VCB - Add support for REXX
;  "REXX interpreter not found",13,10
;
NoREXX_Ptr      dw      1012                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Access denied",13,10
;
AccDen_Ptr      dw      1014                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "File cannot be copied onto itself",13,10
;
OverWr_Ptr      dw      1015                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Content of destination lost before copy",13,10
;
LostErr_Ptr     dw      1016                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Invalid filename or file not found",13,10
;
InOrNot_Ptr     dw      1017                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "%1 File(s) copied",13,10
;
Copied_Ptr      dw      1018                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:Copy_num      ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_Word      ;AN000;binary to decimal
                db      9                               ;AN000;maximum width
                db      9                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "%1 File(s) "
;
DirMes_Ptr      dw      1019                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:Dir_num       ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_Word+$m_commas ;AN000;binary to decimal
                db      9                               ;AN000;maximum width
                db      9                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "%1 File(s) " (NO COMMAS)
;
DirMes_Ptr2     dw      1019                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:Dir_num       ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_Word      ;AN000;binary to decimal
                db      9                               ;AN000;maximum width
                db      9                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "%1 bytes free",13,10
;
BytMes_Ptr      dw      1020                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:Bytes_Free    ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_DWord+$m_commas ;AN000;long binary to decimal
ifdef   KOREA
                db      13                              ; <MSCH>
                db      13                              ; <MSCH>
else
                db      30                              ;AN000;maximum width
                db      30                              ;AN000;minimum width
endif   ; KOREA
                db      blank                           ;AN000;pad character

BytMes_Ptr2     dw      1020                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:Bytes_Free    ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_DWord     ;AN000;long binary to decimal
ifdef   KOREA
                db      11                              ; <MSCH>
                db      11                              ; <MSCH>
else
                db      28                              ;AN000;maximum width
                db      28                              ;AN000;minimum width
endif   ; KOREA
                db      blank                           ;AN000;pad character

;  "Invalid drive specification",13,10
;
BadDrv_Ptr      dw      1021                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst


;  "Code page %1 not prepared for system",13,10
;
CP_not_set_Ptr  dw      1022                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:System_cpage  ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_Word      ;AN000;binary to decimal
                db      5                               ;AN000;maximum width
                db      1                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "Code page %1 not prepared for all devices",13,10
;
CP_not_all_Ptr  dw      1023                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:System_cpage  ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_Word      ;AN000;binary to decimal
                db      5                               ;AN000;maximum width
                db      1                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "Active code page: %1",13,10
;
CP_active_Ptr      dw      1024                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:System_cpage  ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_Word      ;AN000;binary to decimal
                db      5                               ;AN000;maximum width
                db      1                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "NLSFUNC not installed",13,10
;
NLSFUNC_Ptr     dw      1025                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Invalid code page",13,10
;
Inv_Code_Page   dw      1026                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Current drive is no longer valid"
;
BadCurDrv       dw      1027                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Press any key to continue"
;
PauseMes_Ptr    dw      1028                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Label not found",13,10
;
BadLab_Ptr      dw      1029                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Syntax error",13,10
;
SyntMes_Ptr     dw      1030                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Invalid date",13,10
;
BadDat_Ptr      dw      1031                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Current date is %1 %2",13,10
;
CurDat_Ptr      dw      1032                            ;AN000;message number
                db      2                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:Arg_Buf       ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
IFNDEF DBCS_MSKK                                                      ;dbcs50at;
                db      1                               ;AN000;first subst
  ELSE
    IFDEF JAPAN
                db      2                               ;AN000;first subst
    ELSE
                db      1                               ;AN000;first subst
    ENDIF
ENDIF
                db      Char_field_ASCIIZ               ;AN000;character string
IFNDEF DBCS_MSKK                                                      ;dbcs50at;
;               change DBCS to DBCS_MSKK to support bilingual format. ;dbcs50at;
ifdef   DOSV                            ; ### if DOSV ###             ;dbcs50at;
                db      6                               ;AN000;maximum width
                db      2                               ;AN000;minimum width
else                                    ; ### else not DOSV ###       ;dbcs50at;
                db      3                               ;AN000;maximum width
                db      3                               ;AN000;minimum width
endif                                   ; ### endif DOSV ###          ;dbcs50at;
  ELSE
    IFDEF JAPAN                                         ; MSKK02 07/14/89
                db      4                               ;AN000;maximum width
                db      4                               ;AN000;minimum width
    ENDIF
    IFDEF TAIWAN
                db      6                               ;AN000;maximum width
                db      6                               ;AN000;minimum width
    ENDIF
    IFDEF KOREA
                db      2               ;3 Keyl               ;AN000;maximum width
                db      2               ;3 Keyl               ;AN000;minimum width
    ENDIF
ENDIF
                db      blank                           ;AN000;pad character
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
CurDat_yr       dw      0                               ;AN000;year
CurDat_mo_day   dw      0                               ;AN000;month,day
IFNDEF DBCS_MSKK                                                      ;dbcs50at;
                db      2                               ;AN000;second subst
  ELSE
    IFDEF JAPAN
                db      1                               ;AN000;second subst
    ELSE
                db      2                               ;AN000;second subst
    ENDIF
ENDIF

                db      DATE_MDY_4                      ;AN000;date
                db      10                              ;AN000;maximum width
                db      10                              ;AN000;minimum width
                db      blank                           ;AN000;pad character


;  "SunMonTueWedThuFriSat"
;
WeekTab         dw      1033                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Enter new date (%1):"
;
NewDat_Ptr      dw      1034                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
NewDat_Format   dw      0                               ;AN000;offset of replacement
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Char_field_ASCIIZ               ;AN000;character string
                db      8                               ;AN000;maximum width
                db      8                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "Invalid time",13,10
;
BadTim_Ptr      dw      1035                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Current time is %1",13,10
;
CurTim_Ptr      dw      1036                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
CurTim_hr_min   dw      0                               ;AN000;hours,minutes
CurTim_Sec_hn   dw      0                               ;AN000;seconds,hundredths
                db      1                               ;AN000;first subst
                db      Right_Align+TIME_HHMMSSHH_Cty   ;AC059;time
                db      12                              ;AC059;maximum width
                db      12                              ;AC059;minimum width
                db      blank                           ;AN000;pad character

;  "Enter new time:"
;
NewTim_Ptr      dw      1037                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  ",    Delete (Y/N)?",13,10
;
Del_Y_N_Ptr     dw      1038                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "All files in directory will be deleted!",13,10
;  "Are you sure (Y/N)?",13,10
;
SureMes_Ptr     dw      1039                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Microsoft DOS Version %1.%2",13,10
;
VerMes_Ptr      dw      1040                            ;AN000;message number
;               db      2                               ;AN000;number of subst
                db      0                               ;BDD version 6.1 fix
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:Major_Ver_Num ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_Word      ;AN000;binary to decimal
                db      1                               ;AN000;maximum width
                db      1                               ;AN000;minimum width
                db      blank                           ;AN000;pad character
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:Minor_Ver_Num ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      2                               ;AN000;second subst
                db      Right_Align+Unsgn_Bin_Word      ;AN000;binary to decimal
                db      2                               ;AN000;maximum width
                db      2                               ;AN000;minimum width
                db      "0"                             ;AN000;pad character

;  "Volume in drive %1 has no label",13,10
;
VolMes_Ptr_2    dw      1041                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:vol_drv       ;AN000;offset of drive
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Char_field_Char                 ;AN000;character
                db      128                             ;AN000;maximum width
                db      1                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "Volume in drive %1 is %2",13,10
;
VolMes_Ptr      dw      1042                            ;AN000;message number
                db      2                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:vol_drv       ;AN000;offset of drive
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      00000000b                       ;AN000;character
                db      128                             ;AN000;maximum width
                db      1                               ;AN000;minimum width
                db      blank                           ;AN000;pad character
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:CHARBUF       ;AN000;offset of string
                dw      0                               ;AN000;segment of arg
                db      2                               ;AN000;second subst
                db      Char_field_ASCIIZ               ;AN000;character string
                db      128                             ;AN000;maximum width
                db      1                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "Volume Serial Number is %1-%2",13,10
;
VolSerMes_Ptr   dw      1043                            ;AN000;message number
                db      2                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:vol_serial+2  ;AN000;offset of serial
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Bin_Hex_Word        ;AN000;binary to hex
                db      4                               ;AN000;maximum width
                db      4                               ;AN000;minimum width
                db      "0"                             ;AN000;pad character
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:vol_serial    ;AN000;offset of serial
                dw      0                               ;AN000;segment of arg
                db      2                               ;AN000;second subst
                db      Right_Align+Bin_Hex_Word        ;AN000;binary to hex
                db      4                               ;AN000;maximum width
                db      4                               ;AN000;minimum width
                db      "0"                             ;AN000;pad character

;  "Invalid directory",13,10
;
BadCD_Ptr       dw      1044                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Unable to create directory",13,10
;
BadMkD_Ptr      dw      1045                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Invalid path, not directory,",13,10
;  "or directory not empty",13,10
;
BadRmD_Ptr      dw      1046                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Must specify ON or OFF",13,10
;
Bad_ON_OFF_Ptr  dw      1047                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Directory of %1",13,10
;
DirHead_Ptr     dw      1048                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:BWDBUF        ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Char_field_ASCIIZ               ;AN000;character string
                db      128                             ;AN000;maximum width
                db      0                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "No Path",13,10
;
NulPath_Ptr     dw      1049                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Invalid drive in search path",13,10
;
BadPMes_Ptr     dw      1050                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Invalid device",13,10
;
BadDev_Ptr      dw      1051                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "FOR cannot be nested",13,10
;
ForNestMes_Ptr  dw      1052                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Intermediate file error during pipe",13,10
;
PipeEMes_Ptr    dw      1053                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Cannot do binary reads from a device",13,10
;
InBDev_Ptr      dw      1054                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "BREAK is %1",13,10
;
CtrlcMes_Ptr    dw      1055                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      0                               ;AN000;offset of on/off (new)
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Char_field_ASCIIZ               ;AN000;character string
                db      128                             ;AN000;maximum width
                db      1                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "VERIFY is %1",13,10
;
VeriMes_Ptr     dw      1056                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      0                               ;AN000;offset of on/off (new)
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Char_field_ASCIIZ               ;AN000;character string
                db      128                             ;AN000;maximum width
                db      1                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "ECHO is %1",13,10
;
EchoMes_Ptr     dw      1057                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      0                               ;AN000;offset of on/off (new)
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Char_field_ASCIIZ               ;AN000;character string
                db      128                             ;AN000;maximum width
                db      1                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "off"
;
OffMes_Ptr      dw      1059                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "on"
;
OnMes_Ptr       dw      1060                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Error writing to device",13,10
;
DevWMes_Ptr     dw      1061                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "Invalid path",13,10
;
Inval_Path_Ptr  dw      1062                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  unformatted string output
;
arg_Buf_Ptr     dw      1063                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:Arg_Buf       ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Char_field_ASCIIZ               ;AN000;character string
                db      128                             ;AN000;maximum width
                db      0                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  file name output
;
File_Name_Ptr   dw      1064                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:SRCBUF        ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Char_field_ASCIIZ               ;AN000;character string
                db      128                             ;AN000;maximum width
                db      0                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  file size output for dir
;
Disp_File_Size_Ptr dw   1065                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:File_size_low ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_DWord+$m_commas ;AN000;long binary to decimal
                db      12                              ;AN000;maximum width
                db      12                              ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  file size output for dir
;
Disp_File_Size_Ptr2 dw   1065                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:File_size_low ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_DWord     ;AN000;long binary to decimal
                db      10                              ;AN000;maximum width
                db      10                              ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  unformatted string output
; %s
String_Buf_Ptr  dw      1066                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:String_ptr_2  ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Char_field_ASCIIZ               ;AN000;character string
                db      128                             ;AN000;maximum width
                db      0                               ;AN000;minimum width
                db      blank                           ;AN000;pad character
                db      0                               ;AN000;

;  tab character
;
Tab_ptr         dw      1067                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  " <DIR>     "
;
DMes_Ptr        dw      1068                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  " <DIR>   "
;
DMes_Ptr2       dw      1105                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  destructive back space
;
Dback_Ptr       dw      1069                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  carriage return / line feed
;
ACRLF_Ptr       dw      1070                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "mm-dd-yy"
;
USADat_Ptr      dw      1072                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "dd-mm-yy"
;
EurDat_Ptr      dw      1073                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "yy-mm-dd"
;
JapDat_Ptr      dw      1074                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  date string for prompt
;
promptDat_Ptr   dw      1075                            ;AN000;message number
                db      2                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:Arg_Buf       ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
IFNDEF DBCS_MSKK                                                      ;dbcs50at;
                db      1                               ;AN000;first subst
  ELSE
    IFDEF JAPAN
                db      2                               ;AN000;first subst
    ELSE
                db      1                               ;AN000;first subst
    ENDIF
ENDIF

                db      Char_field_ASCIIZ               ;AN000;character string
IFNDEF DBCS_MSKK                                                      ;dbcs50at:
;               change DBCS to DBCS_MSKK to support bilingual format. ;dbcs50at;
ifdef   DOSV                            ; ### if DOSV ###             ;dbcs50at;
                db      6                               ;AN000;maximum width
                db      2                               ;AN000;minimum width
else                                    ; ### else not DOSV ###       ;dbcs50at;
                db      3                               ;AN000;maximum width
                db      3                               ;AN000;minimum width
endif                                   ; ### endif DOSV ###          ;dbcs50at;
  ELSE
    IFDEF JAPAN                                         ; MSKK02 07/14/89
                db      4                               ;AN000;maximum width
                db      4                               ;AN000;minimum width
    ENDIF
    IFDEF TAIWAN
                db      6                               ;AN000;maximum width
                db      6                               ;AN000;minimum width
    ENDIF
    IFDEF KOREA
                db      2               ;3 Keyl                ;AN000;maximum width
                db      2               ;3 Keyl                ;AN000;minimum width
    ENDIF
ENDIF
                db      blank                           ;AN000;pad character
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
promptDat_yr    dw      0                               ;AN000;year
promptDat_moday dw      0                               ;AN000;month,day
IFNDEF DBCS_MSKK                                                      ;dbcs50at;
                db      2                               ;AN000;second subst
  ELSE
    IFDEF JAPAN
                db      1                               ;AN000;second subst
    ELSE
                db      2                               ;AN000;second subst
    ENDIF
ENDIF
                db      DATE_MDY_4                      ;AN000;date
                db      10                              ;AN000;maximum width
                db      8                               ;AN000;minimum width
                db      blank                           ;AN000;pad character


;  Time for prompt
;
promTim_Ptr     dw      1076                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
PromTim_hr_min  dw      0                               ;AN000;hours,minutes
PromTim_Sec_hn  dw      0                               ;AN000;seconds,hundredths
                db      1                               ;AN000;first subst
                db      Right_Align+TIME_HHMMSSHH_24    ;AC013;time
                db      11                              ;AN000;maximum width
                db      11                              ;AC013;minimum width
                db      blank                           ;AN000;pad character

;  Date and time for DIR
;
DirDatTim_Ptr   dw      1077                            ;AN000;message number
                db      2                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
DirDat_yr       dw      0                               ;AN000;year
DirDat_mo_day   dw      0                               ;AN000;month,day
                db      1                               ;AN000;first subst
                db      Right_Align+DATE_MDY_2          ;AN000;date
                db      10                              ;AN000;maximum width
                db      8                               ;AN000;minimum width
                db      blank                           ;AN000;pad character
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
DirTim_hr_min   dw      0                               ;AN000;hours,minutes
DirTim_Sec_hn   dw      0                               ;AN000;seconds,hundredths
                db      2                               ;AN000;second subst
                db      Right_align+TIME_HHMM_Cty       ;AN000;time
                db      6                               ;AN000;maximum width
                db      6                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "Directory already exists"
;
MD_exists_ptr   dw      1078                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "%1 bytes",13,10
;
Bytes_Ptr       dw      1079                            ; message number
                db      1                               ; number of subst
                db      parm_block_size                 ; size of sublist
                db      0                               ; reserved
                dw      OFFSET  TranGroup:FileSiz       ; offset of arg
                dw      0                               ; segment of arg
                db      1                               ; first subst
                db      Right_Align+Unsgn_Bin_DWord+$m_commas ; long binary to decimal
                db      12                              ; maximum width
                db      12                              ; minimum width
                db      blank                           ; pad character

;  "%1 bytes",13,10
;
Bytes_Ptr2      dw      1079                            ; message number
                db      1                               ; number of subst
                db      parm_block_size                 ; size of sublist
                db      0                               ; reserved
                dw      OFFSET  TranGroup:FileSiz       ; offset of arg
                dw      0                               ; segment of arg
                db      1                               ; first subst
                db      Right_Align+Unsgn_Bin_DWord     ; long binary to decimal
                db      10                              ; maximum width
                db      10                              ; minimum width
                db      blank                           ; pad character

;  "Total:",13,10
;
Total_ptr       dw      1080                            ; message number
                db      no_subst                        ; number of subst

;  "Error parsing environment variable:",13,10
;
ErrParsEnv_ptr  dw      1081                            ; message number
                db      no_subst                        ; number of subst

;  " [Y/N]?"
;
Prompt_Y_N_Ptr  dw      1082                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "YN"
;
Answer_Y_N_Ptr  dw      1083                            ;AN000;message number
                db      no_subst                        ;AN000;number of subst

;  "(continuing %1)",13,10
;
DirCont_Ptr     dw      1084                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:BWDBUF        ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Char_field_ASCIIZ               ;AN000;character string
                db      128                             ;AN000;maximum width
                db      0                               ;AN000;minimum width
                db      blank                           ;AN000;pad character

;  "Revision %1",CR,LF
;
DosRev_Ptr      dw      1090
                db      1                               ; one substitution
                db      PARM_BLOCK_SIZE
                db      0
                dw      offset TRANGROUP:One_Char_Val   ; ptr to char
                dw      0                               ; segment addr?
                db      1                               ; 1st substitution
                db      CHAR_FIELD_CHAR                 ; character
                db      1                               ; max width
                db      1                               ; min width
                db      BLANK                           ; pad char

;  "DOS is in ROM"
;
DosRom_Ptr      dw      1091
                db      NO_SUBST

;  "DOS is in HMA"
;
DosHma_Ptr      dw      1092
                db      NO_SUBST

;  "DOS is in low memory"
;
DosLow_Ptr      dw      1093
                db      NO_SUBST

;  "Cannot Loadhigh batch file" ;M016
;
NoExecBat_Ptr   dw      1094                    ; M016
                db      NO_SUBST                ; M016

;  "LoadHigh: Invalid filename" ; M016
;
LhInvFil_Ptr    dw      1095                    ; M016
                db      NO_SUBST                ; M016

;  "Could not open specified country information file" ;M045
;
NoCntry_Ptr     dw      1096                    ;M045
                db      NO_SUBST                ;M045

;* The next four errors emulate those reported by the normal parse
;  mechanism, with a little more accurate wording; that parser has been
;  replaced with a custom routine (ParseVar) for LoadHigh and DeviceHigh.
;  These errors aren't normally generated by LoadHigh except by the normal
;  parser, so they've been added here.
;

;  "LoadHigh: Invalid argument"
;
LhInvArg_Ptr    dw      1097
                db      NO_SUBST

;  "Required parameter missing"
;
ReqParmMiss     dw      1098
                db      NO_SUBST

;  "Unrecognized switch"
;
LhInvSwt_Ptr    dw      1099
                db      NO_SUBST

;  "A bad UMB number has been specified"
;
LhBadUMB_Ptr    dw      1100
                db      NO_SUBST

IF 0    ; Delete compression ratio code
;  Compression ratio for DIR
;
DirCompRatio_Ptr dw     1101                            ; message number
                db      2                               ; number of subst
                db      parm_block_size                 ; size of sublist
                db      0                               ; reserved
                dw      OFFSET  TranGroup:Dir_CRatio_1  ; offset of arg
                dw      0                               ; segment of arg
                db      1                               ; first subst
                db      Right_Align+Unsgn_Bin_Byte      ; binary to decimal
                db      2                               ; maximum width
                db      2                               ; minimum width
                db      blank                           ; pad character
                db      parm_block_size                 ; size of sublist
                db      0                               ; reserved
                dw      OFFSET  TranGroup:Dir_CRatio_2  ; offset of arg
                dw      0                               ; segment of arg
                db      2                               ; second subst
                db      Unsgn_Bin_Byte                  ; binary to decimal
                db      1                               ; maximum width
                db      1                               ; minimum width
                db      blank                           ; pad character

;  Average compression ratio for DIR
;
AveCompRatio_Ptr dw     1102
                db      2                               ; number of subst
                db      parm_block_size                 ; size of sublist
                db      0                               ; reserved
                dw      OFFSET  TranGroup:Dir_CRatio_1  ; offset of arg
                dw      0                               ; segment of arg
                db      1                               ; first subst
                db      Right_Align+Unsgn_Bin_Byte      ; binary to decimal
                db      2                               ; maximum width
                db      2                               ; minimum width
                db      blank                           ; pad character
                db      parm_block_size                 ; size of sublist
                db      0                               ; reserved
                dw      OFFSET  TranGroup:Dir_CRatio_2  ; offset of arg
                dw      0                               ; segment of arg
                db      2                               ; second subst
                db      Unsgn_Bin_Byte                  ; binary to decimal
                db      1                               ; maximum width
                db      1                               ; minimum width
                db      blank                           ; pad character
ENDIF

;; added message 1106 for large media (gt than 4 gig) dir command B6209
KBytMes_Ptr     dw      1106                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:Bytes_Free    ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_DWord+$m_commas ;AN000;long binary to decimal
ifdef   KOREA
                db      13                              ; <MSCH>
                db      13                              ; <MSCH>
else
                db      30                              ;AN000;maximum width
                db      30                              ;AN000;minimum width
endif   ; KOREA
                db      blank                           ;AN000;pad character

KBytMes_Ptr2    dw      1106                            ;AN000;message number
                db      1                               ;AN000;number of subst
                db      parm_block_size                 ;AN000;size of sublist
                db      0                               ;AN000;reserved
                dw      OFFSET  TranGroup:Bytes_Free    ;AN000;offset of arg
                dw      0                               ;AN000;segment of arg
                db      1                               ;AN000;first subst
                db      Right_Align+Unsgn_Bin_DWord     ;AN000;long binary to decimal
ifdef   KOREA
                db      11                              ; <MSCH>
                db      11                              ; <MSCH>
else
                db      28                              ;AN000;maximum width
                db      28                              ;AN000;minimum width
endif   ; KOREA
                db      blank                           ;AN000;pad character


PATH_TEXT       DB      "PATH="
PROMPT_TEXT     DB      "PROMPT="
COMSPECSTR      DB      "COMSPEC="
DirEnvVar       DB      "DIRCMD="               ; DIR's environment variable
CommaOff        DB      "NO_SEP="             ; I don't want commas!

