mirror of
https://github.com/microsoft/MS-DOS.git
synced 2025-01-22 17:22:44 -05:00
243 lines
8.9 KiB
NASM
243 lines
8.9 KiB
NASM
|
TITLE COMMAND Transient Initialized DATA
|
|||
|
|
|
|||
|
|
INCLUDE COMSW.ASM
|
|||
|
|
.xlist
|
|||
|
|
.xcref
|
|||
|
|
INCLUDE COMSEG.ASM
|
|||
|
|
.list
|
|||
|
|
.cref
|
|||
|
|
|
|||
|
|
INCLUDE IFEQU.ASM
|
|||
|
|
|
|||
|
|
TRANCODE SEGMENT PUBLIC
|
|||
|
|
EXTRN PRINT_DATE:NEAR,PRINT_TIME:NEAR,PRINT_DEFAULT_DIRECTORY:NEAR
|
|||
|
|
EXTRN PRINT_DRIVE:NEAR,PRINT_VERSION:NEAR,PRINT_G:NEAR
|
|||
|
|
EXTRN PRINT_L:NEAR,PRINT_B:NEAR,CRLF2:NEAR,OUT:NEAR,PRINT_ESC:NEAR
|
|||
|
|
EXTRN PRINT_BACK:NEAR,PRINT_EQ:NEAR
|
|||
|
|
|
|||
|
|
EXTRN IFNOT:NEAR,IFERLEV:NEAR,IFEXISTS:NEAR
|
|||
|
|
|
|||
|
|
EXTRN CATALOG:NEAR,CRENAME:NEAR,ERASE:NEAR,TYPEFIL:NEAR
|
|||
|
|
EXTRN TCOMMAND:NEAR,COPY:NEAR,PAUSE:NEAR,DATE:NEAR,CTIME:NEAR
|
|||
|
|
EXTRN VERSION:NEAR,VOLUME:NEAR,$CHDIR:NEAR,$MKDIR:NEAR,$RMDIR:NEAR
|
|||
|
|
EXTRN CNTRLC:NEAR,VERIFY:NEAR,ADD_NAME_TO_ENVIRONMENT:NEAR
|
|||
|
|
EXTRN ADD_PROMPT:NEAR,PATH:NEAR,$EXIT:NEAR,CTTY:NEAR,ECHO:NEAR
|
|||
|
|
EXTRN GOTO:NEAR,SHIFT:NEAR,$IF:NEAR,$FOR:NEAR,CLS:NEAR
|
|||
|
|
TRANCODE ENDS
|
|||
|
|
|
|||
|
|
; Data for transient portion
|
|||
|
|
|
|||
|
|
TRANDATA SEGMENT PUBLIC BYTE
|
|||
|
|
|
|||
|
|
PUBLIC BADBAT,NEEDBAT,BADNAM,RENERR,NOTFND,NOSPACE,ENVERR,FULDIR
|
|||
|
|
PUBLIC OVERWR,LOSTERR,DIRMES_PRE,DIRMES_POST,BADDRV,PAUSEMES,BADSWT
|
|||
|
|
PUBLIC COPIED_PRE,COPIED_POST,BYTMES_PRE,BYTMES_POST
|
|||
|
|
PUBLIC WEEKTAB,BADDAT,NEWDAT,BADTIM,NEWTIM,SUREMES,CURDAT_MID
|
|||
|
|
PUBLIC CURDAT_PRE,CURDAT_POST,CURTIM_PRE,CURTIM_POST,VERMES_POST
|
|||
|
|
PUBLIC DMES,VERMES_PRE,VOLMES,GOTVOL,NOVOL,BADCD,BADMKD,BADRMD
|
|||
|
|
PUBLIC BAD_ON_OFF,NULPATH,PATH_TEXT,PROMPT_TEXT,BADPMES
|
|||
|
|
PUBLIC BADDEV,BADLAB,SYNTMES,FORNESTMES,PIPEEMES,INBDEV,OFFMES
|
|||
|
|
PUBLIC ONMES,CTRLCMES,VERIMES,ECHOMES,BADCPMES,BADARGS,DEVWMES
|
|||
|
|
PUBLIC ACRLF,DBACK,CLSSTRING,PROMPT_TABLE,IFTAB,COMTAB
|
|||
|
|
PUBLIC TRANDATAEND,DIRHEAD_PRE,DIRHEAD_POST
|
|||
|
|
|
|||
|
|
ORG 0
|
|||
|
|
ZERO = $
|
|||
|
|
BADBAT DB 13,10,"Batch file missing",13,10,"$"
|
|||
|
|
NEEDBAT DB 13,10,"Insert disk with batch file"
|
|||
|
|
DB 13,10,"and press any key when ready",13,10,"$"
|
|||
|
|
BADNAM DB "Bad command or file name",13,10,"$"
|
|||
|
|
RENERR DB "Duplicate file name or "
|
|||
|
|
NOTFND DB "File not found",13,10,"$"
|
|||
|
|
NOSPACE DB "Insufficient disk space",13,10,"$"
|
|||
|
|
ENVERR DB "Out of environment space",13,10,"$"
|
|||
|
|
FULDIR DB "File creation error",13,10,"$"
|
|||
|
|
OVERWR DB "File cannot be copied onto itself",13,10,"$"
|
|||
|
|
LOSTERR DB "Content of destination lost before copy",13,10,"$"
|
|||
|
|
|
|||
|
|
;"COPIED_PRE<# files copied>COPIED_POST"
|
|||
|
|
COPIED_POST DB " File(s) copied",13,10
<EFBFBD>COPIED_PRE DB "$"
|
|||
|
|
|
|||
|
|
;"DIRMES_PRE<# files in dir>DIRMES_POST"
|
|||
|
|
DIRMES_POST DB " File(s) "
|
|||
|
|
DIRMES_PRE DB "$"
|
|||
|
|
|
|||
|
|
;"BYTMES_PRE<# free bytes>BYTMES_POST"
|
|||
|
|
BYTMES_POST DB " bytes free",13,10
|
|||
|
|
BYTMES_PRE DB "$"
|
|||
|
|
|
|||
|
|
BADDRV DB "Invalid drive specification",13,10,"$"
|
|||
|
|
PAUSEMES DB "Strike a key when ready . . . $"
|
|||
|
|
BADSWT DB "Invalid parameter",13,10,"$"
|
|||
|
|
WEEKTAB DB "SunMonTueWedThuFriSat"
|
|||
|
|
BADDAT DB 13,10,"Invalid date$"
|
|||
|
|
|
|||
|
|
;"CURDAT_PRE<day of week>CURDAT_MID<MO,DAY,YR>CURDAT_POST"
|
|||
|
|
;Note: CURDAT_MID also appears in the date printed via PROMPT command
|
|||
|
|
CURDAT_PRE DB "Current date is "
|
|||
|
|
CURDAT_MID LABEL BYTE
|
|||
|
|
CURDAT_POST DB "$"
|
|||
|
|
|
|||
|
|
NEWDAT DB 13,10,"Enter new date: $"
|
|||
|
|
BADTIM DB 13,10,"Invalid time$"
|
|||
|
|
|
|||
|
|
;"CURTIM_PRE<HR,MIN,SEC,HSEC>CURTIM_POST"
|
|||
|
|
CURTIM_PRE DB "Current time is "
|
|||
|
|
CURTIM_POST DB "$"
|
|||
|
|
|
|||
|
|
NEWTIM DB 13,10,"Enter new time: $"
|
|||
|
|
SUREMES DB "Are you sure (Y/N)? $"
|
|||
|
|
DMES DB " <DIR> $"
|
|||
|
|
|
|||
|
|
;"VERMES_PRE<version #>VERMES_POST"
|
|||
|
|
IF IBMVER
|
|||
|
|
VERMES_PRE DB "TeleVideo Personal Computer DOS Version "
|
|||
|
|
ENDIF
|
|||
|
|
IF MSVER
|
|||
|
|
VERMES_PRE DB "MS-DOS Version "
|
|||
|
|
ENDIF
|
|||
|
|
VERMES_POST DB "$"
|
|||
|
|
|
|||
|
|
VOLMES DB " Volume in drive $"
|
|||
|
|
GOTVOL DB " is $"
|
|||
|
|
NOVOL DB " has no label$"
|
|||
|
|
|
|||
|
|
BADCD DB "Invalid directory",13,10,"$"
|
|||
|
|
BADMKD DB "Unable to create directory",13,10,"$"
|
|||
|
|
BADRMD DB "Invalid path, not directory,",13,10
|
|||
|
|
DB "or directory not empty",13,10,"$"
|
|||
|
|
BAD_ON_OFF DB "Must specify ON or OFF" ;Note Run over to next message
|
|||
|
|
|
|||
|
|
;"DIRHEAD_PRE<path of dir>DIRHEAD_POST"
|
|||
|
|
DIRHEAD_POST DB 13,10,"$"
|
|||
|
|
DIRHEAD_PRE DB " Directory of $"
<EFBFBD>
|
|||
|
|
NULPATH DB "No Path $"
|
|||
|
|
PATH_TEXT DB "PATH="
|
|||
|
|
PROMPT_TEXT DB "PROMPT="
|
|||
|
|
BADPMES DB "Invalid drive in search path",13,10,"$"
|
|||
|
|
BADDEV DB "Invalid device",13,10,"$"
|
|||
|
|
BADLAB DB "Label not found",13,10,"$"
|
|||
|
|
SYNTMES DB "Syntax error",13,10,"$"
|
|||
|
|
FORNESTMES DB 13,"FOR cannot be nested",13,10,"$"
|
|||
|
|
PIPEEMES DB "Intermediate file error during pipe",13,10,"$"
|
|||
|
|
INBDEV DB "Cannot do binary reads from a device",13,10,"$"
|
|||
|
|
OFFMES DB "off",13,10,"$"
|
|||
|
|
ONMES DB "on",13,10,"$"
|
|||
|
|
CTRLCMES DB "BREAK is $"
|
|||
|
|
VERIMES DB "VERIFY is $"
|
|||
|
|
ECHOMES DB "ECHO is $"
|
|||
|
|
BADCPMES DB "Invalid path or file name",13,10,"$"
|
|||
|
|
BADARGS DB "Invalid number of parameters",13,10,"$"
|
|||
|
|
DEVWMES DB "Error writing to device"
|
|||
|
|
ACRLF DB 13,10,"$"
|
|||
|
|
DBACK DB 8," ",8,0 ; DESTRUCTIVE BACK SPACE
|
|||
|
|
|
|||
|
|
CLSSTRING DB 4,01BH,"[2J" ; ANSI Clear screen
|
|||
|
|
|
|||
|
|
PROMPT_TABLE LABEL BYTE
|
|||
|
|
DB "D"
|
|||
|
|
DW OFFSET TRANGROUP:PRINT_DATE
|
|||
|
|
DB "T"
|
|||
|
|
DW OFFSET TRANGROUP:PRINT_TIME
|
|||
|
|
DB "P"
|
|||
|
|
DW OFFSET TRANGROUP:PRINT_DEFAULT_DIRECTORY
|
|||
|
|
DB "N"
|
|||
|
|
DW OFFSET TRANGROUP:PRINT_DRIVE
|
|||
|
|
DB "V"
|
|||
|
|
DW OFFSET TRANGROUP:PRINT_VERSION
|
|||
|
|
DB "G"
|
|||
|
|
DW OFFSET TRANGROUP:PRINT_G
|
|||
|
|
DB "L"
|
|||
|
|
DW OFFSET TRANGROUP:PRINT_L
|
|||
|
|
DB "B"
|
|||
|
|
DW OFFSET TRANGROUP:PRINT_B
|
|||
|
|
DB "_"
|
|||
|
|
DW OFFSET TRANGROUP:CRLF2
|
|||
|
|
DB "$"
|
|||
|
|
DW OFFSET TRANGROUP:OUT
|
|||
|
|
DB "E"
|
|||
|
|
DW OFFSET TRANGROUP:PRINT_ESC
|
|||
|
|
DB "H"
|
|||
|
|
DW OFFSET TRANGROUP:PRINT_BACK
|
|||
|
|
DB "Q"
|
|||
|
|
DW OFFSET TRANGROUP:PRINT_EQ
|
|||
|
|
DB 0 ; NUL TERMINATED
|
|||
|
|
|
|||
|
|
IFTAB LABEL BYTE ; Table of IF conditionals
|
|||
|
|
DB 3,"NOT" ; First byte is count
<EFBFBD> DW OFFSET TRANGROUP:IFNOT
|
|||
|
|
DB 10,"ERRORLEVEL"
|
|||
|
|
DW OFFSET TRANGROUP:IFERLEV
|
|||
|
|
DB 5,"EXIST"
|
|||
|
|
DW OFFSET TRANGROUP:IFEXISTS
|
|||
|
|
DB 0
|
|||
|
|
|
|||
|
|
COMTAB DB 4,"DIR",1 ; Table for internal command names
|
|||
|
|
DW OFFSET TRANGROUP:CATALOG
|
|||
|
|
DB 7,"RENAME",1
|
|||
|
|
DW OFFSET TRANGROUP:CRENAME
|
|||
|
|
DB 4,"REN",1
|
|||
|
|
DW OFFSET TRANGROUP:CRENAME
|
|||
|
|
DB 6,"ERASE",1
|
|||
|
|
DW OFFSET TRANGROUP:ERASE
|
|||
|
|
DB 4,"DEL",1
|
|||
|
|
DW OFFSET TRANGROUP:ERASE
|
|||
|
|
DB 5,"TYPE",1
|
|||
|
|
DW OFFSET TRANGROUP:TYPEFIL
|
|||
|
|
DB 4,"REM",0
|
|||
|
|
DW OFFSET TRANGROUP:TCOMMAND
|
|||
|
|
DB 5,"COPY",1
|
|||
|
|
DW OFFSET TRANGROUP:COPY
|
|||
|
|
DB 6,"PAUSE",0
|
|||
|
|
DW OFFSET TRANGROUP:PAUSE
|
|||
|
|
DB 5,"DATE",0
|
|||
|
|
DW OFFSET TRANGROUP:DATE
|
|||
|
|
DB 5,"TIME",0
|
|||
|
|
DW OFFSET TRANGROUP:CTIME
|
|||
|
|
DB 4,"VER",0
|
|||
|
|
DW OFFSET TRANGROUP:VERSION
|
|||
|
|
DB 4,"VOL",1
|
|||
|
|
DW OFFSET TRANGROUP:VOLUME
|
|||
|
|
DB 3,"CD",1
|
|||
|
|
DW OFFSET TRANGROUP:$CHDIR
|
|||
|
|
DB 6,"CHDIR",1
|
|||
|
|
DW OFFSET TRANGROUP:$CHDIR
|
|||
|
|
DB 3,"MD",1
|
|||
|
|
DW OFFSET TRANGROUP:$MKDIR
|
|||
|
|
DB 6,"MKDIR",1
|
|||
|
|
DW OFFSET TRANGROUP:$MKDIR
|
|||
|
|
DB 3,"RD",1
|
|||
|
|
DW OFFSET TRANGROUP:$RMDIR
|
|||
|
|
DB 6,"RMDIR",1
|
|||
|
|
DW OFFSET TRANGROUP:$RMDIR
|
|||
|
|
DB 6,"BREAK",0
|
|||
|
|
DW OFFSET TRANGROUP:CNTRLC
|
|||
|
|
DB 7,"VERIFY",0
|
|||
|
|
DW OFFSET TRANGROUP:VERIFY
|
|||
|
|
DB 4,"SET",0
|
|||
|
|
DW OFFSET TRANGROUP:ADD_NAME_TO_ENVIRONMENT
|
|||
|
|
DB 7,"PROMPT",0
|
|||
|
|
DW OFFSET TRANGROUP:ADD_PROMPT
|
|||
|
|
DB 5,"PATH",0
|
|||
|
|
DW OFFSET TRANGROUP:PATH
<EFBFBD> DB 5,"EXIT",0
|
|||
|
|
DW OFFSET TRANGROUP:$EXIT
|
|||
|
|
DB 5,"CTTY",1
|
|||
|
|
DW OFFSET TRANGROUP:CTTY
|
|||
|
|
DB 5,"ECHO",0
|
|||
|
|
DW OFFSET TRANGROUP:ECHO
|
|||
|
|
DB 5,"GOTO",0
|
|||
|
|
DW OFFSET TRANGROUP:GOTO
|
|||
|
|
DB 6,"SHIFT",0
|
|||
|
|
DW OFFSET TRANGROUP:SHIFT
|
|||
|
|
DB 3,"IF",0
|
|||
|
|
DW OFFSET TRANGROUP:$IF
|
|||
|
|
DB 4,"FOR",0
|
|||
|
|
DW OFFSET TRANGROUP:$FOR
|
|||
|
|
DB 4,"CLS",0
|
|||
|
|
DW OFFSET TRANGROUP:CLS
|
|||
|
|
DB 0 ; Terminate command table
|
|||
|
|
|
|||
|
|
TRANDATAEND LABEL BYTE
|
|||
|
|
|
|||
|
|
TRANDATA ENDS
|
|||
|
|
END
|
|||
|
|
|