846 lines
25 KiB
NASM
846 lines
25 KiB
NASM
;/*
|
||
; * Microsoft Confidential
|
||
; * Copyright (C) Microsoft Corporation 1991
|
||
; * All Rights Reserved.
|
||
; */
|
||
include version.inc
|
||
|
||
;
|
||
; Revision History
|
||
; ================
|
||
;
|
||
; M016 SR 08/09/90 Added 2 error messages for LoadHigh
|
||
;
|
||
;
|
||
|
||
|
||
|
||
;****************************************************
|
||
;* 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
|
||
|
||
|
||
; "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 ;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 ;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 ; MSKK03 07/14/89
|
||
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
|
||
db 3 ;AN000;maximum width
|
||
db 3 ;AN000;minimum width
|
||
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 ; MSKK03 07/14/89
|
||
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 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
|
||
ifndef NEC_98
|
||
db 2 ;AN000;maximum width
|
||
else ;NEC_98
|
||
db 1 ;AN000;maximum width
|
||
endif ;NEC_98
|
||
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 ;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
|
||
|
||
; 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
|
||
|
||
; output a single character
|
||
;
|
||
;One_Char_Buf_Ptr dw 1071 ;AN000;message number
|
||
; db 1 ;AN000;number of subst
|
||
; db parm_block_size ;AN000;size of sublist
|
||
; db 0 ;AN000;reserved
|
||
; dw OFFSET TranGroup:One_Char_Val ;AN000;offset of charcacter
|
||
; dw 0 ;AN000;segment of arg
|
||
; db 1 ;AN000;first subst
|
||
; db Char_field_Char ;AN000;character
|
||
; db 1 ;AN000;maximum width
|
||
; db 1 ;AN000;minimum width
|
||
; db blank ;AN000;pad character
|
||
|
||
; "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 ; MSKK03 07/14/89
|
||
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
|
||
db 3 ;AN000;maximum width
|
||
db 3 ;AN000;minimum width
|
||
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 ; MSKK03 07/14/89
|
||
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 ; 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
|
||
|
||
; "(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
|
||
|
||
|
||
PATH_TEXT DB "PATH="
|
||
PROMPT_TEXT DB "PROMPT="
|
||
COMSPECSTR DB "COMSPEC="
|
||
DirEnvVar DB "DIRCMD=" ; DIR's environment variable
|
||
|