www.pudn.com > drdossrc.zip > TXHELP.ASM


NUL	equ	0 
BS	equ	8 
TAB	equ	9 
LF	equ	10 
CR	equ	13 
 
PRI	equ	0 
ALT	equ	1 
 
DGROUP	group	_DATA 
CHELP	group	_HELP 
 
_DATA	segment word public 'DATA' 
	assume ds:DGROUP, cs:DGROUP 
 
	public	_single_table 
 
	public	_dls_table 
 
	public	_dls_init 
	public	_dls_get_table 
	public	_dls_language 
 
_dls_table	dw	0 
 
__dls_init__	db	0 
 
_single_table	label	word 
 
;		Source .TFT file: 'TMP1.$$$' 
		public	help_aaa 
help_aaa	equ	$ - _single_table 
		dw	CHELP:_help_aaa 
		public	help_and 
help_and	equ	$ - _single_table 
		dw	CHELP:_help_and 
		public	help_break 
help_break	equ	$ - _single_table 
		dw	CHELP:_help_break 
		public	help_call 
help_call	equ	$ - _single_table 
		dw	CHELP:_help_call 
		public	help_chcp 
help_chcp	equ	$ - _single_table 
		dw	CHELP:_help_chcp 
		public	help_chdir 
help_chdir	equ	$ - _single_table 
		dw	CHELP:_help_chdir 
		public	help_cls 
help_cls	equ	$ - _single_table 
		dw	CHELP:_help_cls 
		public	help_copy 
help_copy	equ	$ - _single_table 
		dw	CHELP:_help_copy 
		public	help_ctty 
help_ctty	equ	$ - _single_table 
		dw	CHELP:_help_ctty 
		public	help_date 
help_date	equ	$ - _single_table 
		dw	CHELP:_help_date 
		public	help_del 
help_del	equ	$ - _single_table 
		dw	CHELP:_help_del 
		public	help_delq 
help_delq	equ	$ - _single_table 
		dw	CHELP:_help_delq 
		public	help_dir 
help_dir	equ	$ - _single_table 
		dw	CHELP:_help_dir 
		public	help_echo 
help_echo	equ	$ - _single_table 
		dw	CHELP:_help_echo 
		public	help_eraq 
help_eraq	equ	$ - _single_table 
		dw	CHELP:_help_eraq 
		public	help_erase 
help_erase	equ	$ - _single_table 
		dw	CHELP:_help_erase 
		public	help_exit 
help_exit	equ	$ - _single_table 
		dw	CHELP:_help_exit 
		public	help_for 
help_for	equ	$ - _single_table 
		dw	CHELP:_help_for 
		public	help_gosubreturn 
help_gosubreturn	equ	$ - _single_table 
		dw	CHELP:_help_gosubreturn 
		public	help_goto 
help_goto	equ	$ - _single_table 
		dw	CHELP:_help_goto 
		public	help_hiload 
help_hiload	equ	$ - _single_table 
		dw	CHELP:_help_hiload 
		public	help_idle 
help_idle	equ	$ - _single_table 
		dw	CHELP:_help_idle 
		public	help_if 
help_if		equ	$ - _single_table 
		dw	CHELP:_help_if 
		public	help_mkdir 
help_mkdir	equ	$ - _single_table 
		dw	CHELP:_help_mkdir 
		public	help_or 
help_or		equ	$ - _single_table 
		dw	CHELP:_help_or 
		public	help_path 
help_path	equ	$ - _single_table 
		dw	CHELP:_help_path 
		public	help_pause 
help_pause	equ	$ - _single_table 
		dw	CHELP:_help_pause 
		public	help_prompt 
help_prompt	equ	$ - _single_table 
		dw	CHELP:_help_prompt 
		public	help_rem 
help_rem	equ	$ - _single_table 
		dw	CHELP:_help_rem 
		public	help_rename 
help_rename	equ	$ - _single_table 
		dw	CHELP:_help_rename 
		public	help_rmdir 
help_rmdir	equ	$ - _single_table 
		dw	CHELP:_help_rmdir 
		public	help_set 
help_set	equ	$ - _single_table 
		dw	CHELP:_help_set 
		public	help_shift 
help_shift	equ	$ - _single_table 
		dw	CHELP:_help_shift 
		public	help_switch 
help_switch	equ	$ - _single_table 
		dw	CHELP:_help_switch 
		public	help_time 
help_time	equ	$ - _single_table 
		dw	CHELP:_help_time 
		public	help_truename 
help_truename	equ	$ - _single_table 
		dw	CHELP:_help_truename 
		public	help_type 
help_type	equ	$ - _single_table 
		dw	CHELP:_help_type 
		public	help_ver 
help_ver	equ	$ - _single_table 
		dw	CHELP:_help_ver 
		public	help_verify 
help_verify	equ	$ - _single_table 
		dw	CHELP:_help_verify 
		public	help_vol 
help_vol	equ	$ - _single_table 
		dw	CHELP:_help_vol 
 
 
_DATA	ends 
 
_HELP	segment	word public 'HELP' 
 
	assume ds:CHELP, cs:CHELP 
 
;		Source .TFT file: 'TMP1.$$$' 
_help_aaa	db	"Available internal commands are:", LF, LF, NUL 
_help_truename	db	"Reserved command.", NUL 
_help_break	db	"BREAK", TAB, "Controls how you break out of programs using Ctrl+Break or Ctrl+C.", LF, LF, "Syntax:", LF, TAB, "BREAK /H", LF, TAB, "BREAK [ON|OFF]", LF, LF, TAB, "/H", TAB, "gives this scre" 
		db	"en", LF, TAB, "ON", TAB, "turns break checking on (default)", LF, TAB, "OFF", TAB, "turns break checking off", LF, TAB, "none", TAB, "no parameters displays the state of break ON or OFF", LF 
		db	LF, "Examples:", LF, TAB, "BREAK OFF", LF, TAB, "BREAK", NUL 
_help_call	db	"CALL", TAB, "Used in batch files, this command will call another batch file and", LF, TAB, "return when it has finished executing it.", LF, LF, "Syntax:", LF, TAB, "CALL /H", LF, TAB, "CALL [d" 
		db	":][path]file[.BAT][ params[...]]", LF, LF, TAB, "/H", TAB, "gives this screen", LF, TAB, "d:", TAB, "drive where batch file resides", LF, TAB, "path", TAB, "path where batch file resides", LF 
		db	TAB, "file", TAB, "name of batch file to call", LF, TAB, ".BAT", TAB, "optional filename extension", LF, TAB, "params", TAB, "parameter list read by called batch file as %%1 %%2 ... etc", LF, LF 
		db	"Examples:", LF, TAB, "CALL doit.bat", LF, TAB, "CALL setdate 5 Nov 90", NUL 
_help_chdir	db	"CHDIR", TAB, "Shows the path, or changes the current directory. Can be", LF, TAB, "abbreviated to CD.", LF, LF, "Syntax:", LF, TAB, "CHDIR /H", LF, TAB, "CHDIR [[d:]dirpath]", LF, LF, TAB, "/" 
		db	"H", TAB, "gives this screen", LF, TAB, "d:", TAB, "drive on which dirpath resides", LF, TAB, "dirpath", TAB, "directory to change to", LF, TAB, "none", TAB, "no parameters displays the curre" 
		db	"nt drive and directory", LF, LF, "Examples:", LF, TAB, "CHDIR c:\homedir", LF, TAB, "CD ..", LF, TAB, "CD", NUL 
_help_cls	db	"CLS", TAB, "Clears the display screen.", LF, LF, "Syntax:", LF, TAB, "CLS /H", LF, LF, TAB, TAB, "/H", TAB, "gives this screen", LF, LF, "Example:", LF, TAB, "CLS", NUL 
_help_copy	db	"COPY", TAB, "Copies or combines files", LF, LF, "Syntax:", LF, "   COPY /H", LF, "   COPY device|wildspec[+wildspec...][switches] [device|filespec[switches]]", LF, LF, "   device", TAB, "is CON" 
		db	",LPTn,PRN,NUL,COMn or AUX", LF, "   wildspec", TAB, "source device, file or list of files to be included", LF, "   filespec", TAB, "destination file or device", LF, "   switches", TAB, "/A treat" 
		db	" file as ASCII", LF, TAB, TAB, "/B treat source file as binary (ignore Ctrl+Z in file)", LF, TAB, TAB, "/V verify source and destination match", LF, TAB, TAB, "/S include system or hidden fil" 
		db	"es in copy", LF, TAB, TAB, "/C prompt for confirmation by user before copying", LF, TAB, TAB, "/Z zeros top bit of every byte in destination", LF, "Examples:", LF, TAB, "COPY file1+file2 file" 
		db	"3", LF, TAB, "COPY *.txt c:dir1", NUL 
_help_date	db	"DATE", TAB, "Displays and changes the date.", LF, LF, "Syntax:", LF, TAB, "DATE /H", LF, TAB, "DATE [mm-dd-yy] (US format)", LF, TAB, "DATE [dd-mm-yy] (European format)", LF, TAB, "DATE [yy-" 
		db	"mm-dd] (Japanese format)", LF, LF, TAB, "/H", TAB, "gives this screen", LF, TAB, "mm", TAB, "month 1 to 12", LF, TAB, "dd", TAB, "day 1 to 31", LF, TAB, "yy", TAB, "2 or 4 digit year", LF 
		db	TAB, "none", TAB, "no parameters displays date then prompts for new date", LF, LF, "Examples:", LF, TAB, "DATE 16-11-90", LF, TAB, "DATE", NUL 
_help_del	db	"DEL", TAB, "Erases files.", LF, LF, "Syntax:", LF, TAB, "DEL /H", LF, TAB, "DEL wildspec [/C|/P][/S]", LF, LF, TAB, "/H", TAB, "  gives this screen", LF, TAB, "/C|/P", TAB, "  prompt befo" 
		db	"re deletion", LF, TAB, "/S", TAB, "  include system files", LF, TAB, "wildspec  file to be deleted (wildcards allowed)", LF, LF, "Examples:", LF, TAB, "DEL *.EXE /CS", LF, TAB, "DEL MYFILE." 
		db	"TXT", NUL 
_help_delq	db	"DELQ", TAB, "Erases files but queries you before doing so.", LF, LF, "Syntax:", LF, TAB, "DELQ /H", LF, TAB, "DELQ wildspec [/S]", LF, LF, TAB, "/H", TAB, "  gives this screen", LF, TAB, "/" 
		db	"S", TAB, "  include system files", LF, TAB, "wildspec  file to be deleted (wildcards allowed)", LF, LF, "Examples:", LF, TAB, "DELQ *.EXE /S", LF, TAB, "DELQ MYFILE.TXT", NUL 
_help_dir	db	"DIR", TAB, "Displays the files in a directory.", LF, LF, "Syntax:", TAB, "DIR /H", LF, TAB, "DIR [wildspec] [/L|/2|/W] [/P|/N] [/A|/D|/S] [/C|/R]", LF, LF, TAB, "/H", TAB, "  gives this scree" 
		db	"n", LF, TAB, "wildspec  files to be displayed (wildcards allowed)", LF, TAB, "/A", TAB, "  displays all files", LF, TAB, "/C or /R  make other switches default for next time", LF, TAB, "/D", TAB 
		db	"  displays files without system attribute set (default)", LF, TAB, "/L", TAB, "  long format. Include size, date and time (default)", LF, TAB, "/2", TAB, "  as above except files are displayed i" 
		db	"n two columns", LF, TAB, "/N", TAB, "  return to default paging switch", LF, TAB, "/P", TAB, "  pause at end of full page. Default is no paging", LF, TAB, "/S", TAB, "  displays files with sy" 
		db	"stem attribute set", LF, TAB, "/W", TAB, "  wide format. Displays file and directory names only", LF, TAB, "none", TAB, "  no parameters displays all files using current default", LF, TAB, TAB 
		db	"  switches", LF, "Example:", LF, TAB, "DIR /C /W", NUL 
_help_echo	db	"ECHO", TAB, "Used in batch files, this command is used to display a message", LF, TAB, "to the screen.", LF, LF, "Syntax:", LF, TAB, "ECHO /H", LF, TAB, "ECHO [ON|OFF|string]", LF, LF, TAB, "/" 
		db	"H", TAB, "gives this screen", LF, TAB, "ON", TAB, "turn echoing on (default)", LF, TAB, "OFF", TAB, "turn echoing off", LF, TAB, "string", TAB, "display ""string""", LF, LF, "Examples:", LF 
		db	TAB, "ECHO OFF", LF, TAB, "ECHO You are running the %%OS%% operating system.", NUL 
_help_eraq	db	"ERAQ", TAB, "Erases files but queries you before doing so.", LF, TAB, "ERAQ wildspec [/S]", LF, LF, TAB, "/H", TAB, "  gives this screen", LF, TAB, "/S", TAB, "  include system files", LF, TAB 
		db	"wildspec  file to be deleted (wildcards allowed)", LF, LF, "Examples:", LF, TAB, "ERAQ *.EXE /S", LF, TAB, "ERAQ MYFILE.TXT", NUL 
_help_erase	db	"ERASE", TAB, "Erases files. Can be abbreviated to ERA.", LF, LF, "Syntax:", LF, TAB, "ERASE /H", LF, TAB, "ERASE wildspec [/C|/P][/S]", LF, LF, TAB, "/H", TAB, "  gives this screen", LF, TAB 
		db	"/C|/P", TAB, "  prompt before deletion", LF, TAB, "/S", TAB, "  include system files", LF, TAB, "wildspec  file to be deleted (wildcards allowed)", LF, LF, "Examples:", LF, TAB, "ERASE *.EXE" 
		db	" /CS", LF, TAB, "ERA MYFILE.TXT", NUL 
_help_exit	db	"EXIT", TAB, "Terminates a batch file or secondary command processor.", LF, LF, "Syntax:", LF, TAB, "EXIT [/H]", LF, LF, TAB, "/H", TAB, "gives this screen", LF, LF, "Example:", LF, TAB, "E" 
		db	"XIT", NUL 
_help_for	db	"FOR", TAB, "Most commonly used in batch files, this command is used to repeat", LF, TAB, "a sequence of commands substituting a filename from a list with each", LF, TAB, "iteration of the loop.", LF 
		db	LF, "Syntax:", LF, TAB, "FOR /H", LF, TAB, "FOR %%[%%]var IN (fileset) DO command", LF, LF, TAB, "%%%%var", TAB, "  variable used to reference a filename in a batch file", LF, TAB, "%%var", TAB 
		db	"  variable used to reference a filename at the command line", LF, TAB, "fileset", TAB, "  list of files to perform operation upon", LF, TAB, "command", TAB, "  operation to be performed", LF, LF 
		db	"Example:", LF, TAB, "FOR %%%%f IN (myprog.asm acct.bas acct2.bas)DO TYPE %%%%f", LF, TAB, "FOR %%f IN (myprog.asm acct.bas acct2.bas)DO TYPE %%f", NUL 
_help_goto	db	"GOTO", TAB, "Used in batch files, this command causes execution of commands", LF, TAB, "to alter to a specified point in the batch file.", LF, LF, "Syntax:", LF, TAB, "GOTO /H", LF, TAB, "GOTO" 
		db	" label", LF, LF, TAB, "/H", TAB, "gives this screen", LF, TAB, "label", TAB, "label to jump to", LF, LF, "Example:", LF, TAB, ":start", LF, TAB, "type myfile.txt", LF, TAB, "goto start", NUL 
_help_gosubreturn	db	"GOSUB/RETURN", LF, TAB, "The GOSUB command causes execution to jump to a specified point ", LF, TAB, "in a batch file. When a RETURN command is encountered, execution ", LF, TAB, "will continue f" 
		db	"rom the line after the GOSUB.", LF, LF, "Syntax:", LF, TAB, "GOSUB label", LF, LF, "Example:", LF, TAB, "GOSUB myfunc", LF, TAB, "GOTO finished", LF, TAB, ":myfunc", LF, TAB, "ECHO Hello" 
		db	LF, TAB, "RETURN", LF, TAB, ":finished", NUL 
_help_switch	db	"SWITCH", TAB, "This command allows the user to select an entry from a menu ", LF, TAB, "in a batch file. The keys 1 - 9 will select the appropriate label ", LF, TAB, "from the command line. A RETU" 
		db	"RN command returns execution to the ", LF, TAB, "line after the SWITCH command.", LF, LF, "Syntax:", LF, TAB, "SWITCH label [,label..]", LF, LF, "Example:", LF, TAB, "SWITCH label1,label2,la" 
		db	"bel3,label4", LF, TAB, "GOTO finished", LF, TAB, ":label1", LF, TAB, "ECHO Hello", LF, TAB, "RETURN", LF, TAB, ":label2", LF, TAB, "ECHO World", LF, TAB, "RETURN", LF, TAB, "...", NUL 
_help_idle	db	"IDLE", TAB, "Turns dynamic idle detection on or off.", LF, LF, "Syntax:", LF, TAB, "IDLE /H", LF, TAB, "IDLE [= ][ON|OFF]", LF, LF, TAB, "/H", TAB, "gives this screen", LF, TAB, "ON", TAB 
		db	"enables idle detection", LF, TAB, "OFF", TAB, "disables idle detection", LF, TAB, "none", TAB, "no parameters displays the state ON or OFF", LF, LF, "Example:", LF, TAB, "IDLE = ON", LF, TAB 
		db	"IDLE OFF", NUL 
_help_if	db	"IF", TAB, "Used in batch files, this command allows conditional execution", LF, TAB, "of commands based upon specified conditions.", LF, LF, "Syntax:", TAB, "IF /H", LF, TAB, "IF [NOT] conditio" 
		db	"n [AND [NOT] condition] [OR [NOT] condition] command", LF, LF, TAB, "/H", TAB, "   gives this screen", LF, LF, TAB, "condition  ERRORLEVEL [==] number", LF, TAB, TAB, "   EXIST [==] filespec" 
		db	LF, TAB, TAB, "   string1 ==|!=|>|>=|<|<=|<> string2", LF, TAB, TAB, "   #value1 ==|!=|>|>=|<|<=|<> #value2", LF, LF, "Examples: IF EXIST c:\bin\editor.exe c:\bin\editor %%1", LF, TAB, "  IF " 
		db	"NOT ""%%1"" == ""english"" ECHO Invalid Language Specified", LF, TAB, "  IF #%%mem%% < #540 ECHO Not Enough Memory", NUL 
_help_and	db	"AND", TAB, "Used with the IF command.", LF, TAB, "Enter IF /? for more information.", LF, NUL 
_help_or	db	"OR", TAB, "Used with the IF command.", LF, TAB, "Enter IF /? for more information.", LF, NUL 
_help_mkdir	db	"MKDIR", TAB, "Creates a subdirectory. Can be abbreviated to MD.", LF, LF, "Syntax:", LF, TAB, "MKDIR /H", LF, TAB, "MKDIR [d:]dirpath", LF, LF, TAB, "/H", TAB, "  gives this screen", LF, TAB 
		db	"d:", TAB, "  drive", LF, TAB, "dirpath", TAB, "  subdirectory to create", LF, LF, "Examples:", LF, TAB, "MKDIR \USERS\ROGER", LF, TAB, "MD ..\USERS\LESLEY", NUL 
_help_path	db	"PATH", TAB, "Sets or displays a search path for commands or batch files.", LF, LF, "Syntax:", LF, TAB, "PATH /H", LF, TAB, "PATH [[d:]dirpath[;[d:]dirpath...]]", LF, LF, TAB, "d:", TAB, "dri" 
		db	"ve on which dirpath resides", LF, TAB, "dirpath", TAB, "subdirectory path", LF, TAB, ";", TAB, "path separator, or on its own, sets PATH to nothing", LF, TAB, "none", TAB, "no parameters disp" 
		db	"lays current path", LF, LF, "Examples:", LF, TAB, "PATH", LF, TAB, "PATH c:\osutils;c:\bin;d:\users\roger", LF, TAB, "PATH;", NUL 
_help_pause	db	"PAUSE", TAB, "Used in batch files, this command halts execution of the batch", LF, TAB, "file until a key is pressed.", LF, LF, "Syntax:", LF, TAB, "PAUSE /H", LF, TAB, "PAUSE [comment]", LF, LF 
		db	TAB, "/H", TAB, "gives this screen", LF, TAB, "comment", TAB, "displays ""comment"" if echo is on", LF, TAB, "none", TAB, "no parameters displays default pause message", LF, LF, "Examples:", LF 
		db	TAB, "PAUSE", LF, TAB, "Strike a key when ready . . .", LF, LF, TAB, "PAUSE Put disk number 2 in drive A:", LF, TAB, "Strike a key when ready . . .", NUL 
_help_prompt	db	"PROMPT", TAB, "Modifies the command prompt.", LF, LF, "Syntax:", TAB, "PROMPT /H or PROMPT [$list]", LF, LF, "Where list can be:", LF, "  $  $ character", TAB, TAB, "t  time", LF, "  d  date", TAB 
		db	TAB, TAB, "p  current directory", LF, "  v  OS version number", TAB, TAB, "n  drive letter", LF, "  g  the "">"" character", TAB, TAB, "l  the ""<"" character", LF, "  b  the ""|"" character", TAB 
		db	TAB, "q  the ""="" character", LF, "  h  backspace", TAB, TAB, TAB, "e  the escape character (ASCII 27)", LF, "  x  run the program defined in the PEXEC environment variable", LF, "  -  turns th" 
		db	"e prompt off", LF, LF, "Example:", LF, "  PROMPT $p$g   ==>   C:\DIR>", NUL 
_help_rem	db	"REM", TAB, "Used in batch files, this command causes the remainder of the", LF, TAB, "line to be ignored.", LF, LF, "Syntax:", LF, TAB, "REM /H", LF, TAB, "REM [comment]", LF, LF, TAB, "/H", TAB 
		db	TAB, "gives this screen", LF, TAB, "comment", TAB, TAB, "comment text", LF, LF, "Examples:", LF, TAB, "REM Ignore the rest of this line", LF, TAB, "REM XDEL \*.* /sdrn THIS IS SAFE SINCE IT " 
		db	"WONT GET EXECUTED", NUL 
_help_rename	db	"RENAME", TAB, "Renames files, or moves files between subdirectories on the same", LF, TAB, "disk. Can be abbreviated to REN.", LF, LF, "Syntax:", LF, TAB, "RENAME /H", LF, TAB, "RENAME oldwild" 
		db	"spec newwildspec", LF, LF, TAB, "/H", TAB, TAB, "gives this screen", LF, TAB, "oldwildspec", TAB, "full path and filename of source file(s)", LF, TAB, "newwildspec", TAB, "full path and fil" 
		db	"ename of destination file(s)", LF, LF, "Examples:", LF, TAB, "RENAME *.TXT *.DOC", LF, TAB, "REN AUTOEXEC.BAT *.SAV", LF, TAB, "REN \MYFILE.BAT \ARCHIVE\MYFILE.BAT", NUL 
_help_rmdir	db	"RMDIR", TAB, "Removes specified subdirectory. Can be abbreviated to RD.", LF, LF, "Syntax:", LF, TAB, "RMDIR /H", LF, TAB, "RMDIR [d:]dirpath", LF, LF, TAB, "/H", TAB, TAB, "gives this scre" 
		db	"en", LF, TAB, "d:", TAB, TAB, "drive upon which dirpath resides", LF, TAB, "dirpath", TAB, TAB, "subdirectory to remove", LF, LF, "Examples:", LF, TAB, "RMDIR \users\ian", LF, TAB, "RD \" 
		db	"work\test", NUL 
_help_set	db	"SET", TAB, "Inserts strings into the command processors environment.", LF, LF, "Syntax:", LF, TAB, "SET /H", LF, TAB, "SET [name=[string]]", LF, LF, TAB, "/H", TAB, "gives this screen", LF, TAB 
		db	"name=", TAB, "environment variable name to be assigned", LF, TAB, "string", TAB, "string to assign to name", LF, TAB, "none", TAB, "no parameters displays all environment strings", LF, LF, "E" 
		db	"xamples:", LF, TAB, "SET archive=c:\archive\", LF, TAB, "SET flags=-b-t$r", LF, TAB, "SET backup=", NUL 
_help_shift	db	"SHIFT", TAB, "Used in batch files, this command allows you to change the", LF, TAB, "position of command line parameters to access more than 10", LF, TAB, "(%%0 through %%9) replacement variables." 
		db	LF, LF, "Syntax:", LF, TAB, "SHIFT [/H]", LF, LF, TAB, "/H", TAB, "gives this screen", LF, LF, "Example:", LF, TAB, ":loop", LF, TAB, "if ""%%1"" == """" goto done", LF, TAB, "copy %%1 " 
		db	"c:\archive", LF, TAB, "shift", LF, TAB, "goto loop", LF, TAB, ":done", NUL 
_help_time	db	"TIME", TAB, "Displays and changes the time of day.", LF, LF, "Syntax:", LF, TAB, "TIME /H", LF, TAB, "TIME [hh[:mm[:ss]][a|p] [/C]", LF, LF, TAB, "/H", TAB, "gives this screen", LF, TAB, "h" 
		db	"h", TAB, "hours 0 to 23 (24 hour clock) or 1 to 12 if a or p specified", LF, TAB, "mm", TAB, "minutes 0 to 59", LF, TAB, "ss", TAB, "seconds 0 to 59", LF, TAB, "a|p", TAB, "am|pm", LF, TAB 
		db	"/C", TAB, "displays time continuously", LF, TAB, "none", TAB, "no parameters displays the current time, then prompts for a", LF, TAB, TAB, "new time. Press Return to leave the time unchanged", LF 
		db	LF, "Examples:", LF, TAB, "TIME 5:23:8", LF, TAB, "TIME 7:32", LF, TAB, "TIME", NUL 
_help_type	db	"TYPE", TAB, "Displays the contents of a text file on screen.", LF, LF, "Syntax:", LF, TAB, "TYPE /H", LF, TAB, "TYPE wildspec [/P]", LF, LF, TAB, "/H", TAB, "  gives this screen", LF, TAB, "w" 
		db	"ildspec  file to be displayed (wildcards allowed)", LF, TAB, "/P", TAB, "  pause when screen full", LF, LF, "Examples:", LF, TAB, "TYPE *.TXT /P", LF, TAB, "TYPE C:\AUTOEXEC.BAT", NUL 
_help_ver	db	"VER", TAB, "Displays the version number of the operating system in use.", LF, LF, "Syntax:", LF, TAB, "VER [/H]", LF, LF, TAB, "/H", TAB, "gives this screen", LF, LF, "Example:", LF, TAB, "V" 
		db	"ER", NUL 
_help_verify	db	"VERIFY", TAB, "Switches the Verify option on or off, which causes the operating", LF, TAB, "system to check that data is correctly written to disk after each", LF, TAB, "disk write operation.", LF 
		db	LF, "Syntax:", LF, TAB, "VERIFY /H", LF, TAB, "VERIFY [ON|OFF]", LF, LF, TAB, "/H", TAB, "gives this screen", LF, TAB, "ON", TAB, "turns VERIFY on", LF, TAB, "OFF", TAB, "turns VERIFY of" 
		db	"f (default)", LF, TAB, "none", TAB, "no parameters displays the current VERIFY state, on or off", LF, LF, "Examples:", LF, TAB, "VERIFY ON", LF, TAB, "VERIFY", NUL 
_help_vol	db	"VOL", TAB, "Displays the disk volume label.", LF, LF, "Syntax:", LF, TAB, "VOL /H", LF, TAB, "VOL [d:]", LF, LF, TAB, "/H", TAB, "gives this screen", LF, TAB, "d:", TAB, "drive to display" 
		db	" volume label", LF, TAB, "none", TAB, "no parameters displays the volume label of the default drive", LF, LF, "Example:", LF, TAB, "VOL", NUL 
_help_chcp	db	"CHCP", TAB, "Change the active Code Page.", LF, LF, "Syntax:", LF, TAB, "CHCP /H", LF, TAB, "CHCP [cp]", LF, LF, TAB, "/H", TAB, "gives this screen", LF, TAB, "cp", TAB, "new active Code " 
		db	"Page", LF, TAB, "none", TAB, "no parameters displays the current active Code Page", LF, LF, "Example:", LF, TAB, "CHCP 850", NUL 
_help_ctty	db	"CTTY", TAB, "Redirect console input and output to a port.", LF, LF, "Syntax:", LF, TAB, "CTTY /H", LF, TAB, "CTTY port", LF, LF, TAB, "/H", TAB, "gives this screen", LF, TAB, "port", TAB, "p" 
		db	"ort to redirect to", LF, LF, "Example:", LF, TAB, "CTTY COM1:", NUL 
_help_hiload	db	"HILOAD", TAB, "Load and execute a program in upper memory.", LF, LF, "Syntax:", LF, TAB, "HILOAD /H", LF, TAB, "HILOAD fname", LF, LF, TAB, "/H", TAB, "gives this screen", LF, TAB, "fname", TAB 
		db	"filename of program to load", LF, LF, TAB, "(LOADHIGH and LH can be used instead of HILOAD)", LF, LF, "HILOAD only has an effect if MemoryMAX software is present and there is", LF, "upper memory" 
		db	" available. If this is not so then the program will load and", LF, "execute in conventional memory.", LF, LF, "Example:", LF, TAB, "HILOAD CURSOR", NUL 
 
_HELP	ends 
 
 
_TEXT	segment word public 'CODE' 
	assume	cs:_TEXT, ds:DGROUP 
 
; unsigned dls_language(void) 
_dls_language	proc near 
 
	xor	ax, ax 
	ret 
 
_dls_language	endp 
 
; void dls_init(void) 
_dls_init	proc near 
 
	inc	__dls_init__ 
	ret 
 
_dls_init	endp 
 
; void * dls_get_table(unsigned param) 
_dls_get_table	proc near 
 
	mov	al, __dls_init__ 
	cbw 
	test	al, al 
	je	dls_gt_end 
	mov	ax, offset DGROUP:_single_table 
	mov	word ptr _dls_table, ax 
 
dls_gt_end: 
	ret 
 
_dls_get_table	endp 
 
_TEXT	ends 
 
 
	end