messages.src

[随书类]Dos6.0源代码

;***
; MESSAGE.INC - 20-Jul-87 - Runtime Message Definitions
;***
	IFNDEF	LI_EXPAND
	.XLIST
	ENDIF
;***
;
;	Copyright <C> 1986, Microsoft Corporation
;
;Purpose:
;	Message text, number and symbol information. If the macro RTEDEF has
;	already been defined, we just use it, else we use a macro which just
;	defines the symbolic labels that the error numbers relate to.
;
;Revision History:
;
; [54]	11-Jun-90 MAC: Add RTM signon for QB45C.
; [53]	24-Sep-88 DTF: (r) and (c) should be upper case.
; [52]	07-Sep-88 TAK: Final update of RTM signon for QB 4.50.
; [51]	01-Sep-88 DTF: Change RTM signon to QB 4.50 from 5.00. 
; [50]	11-Jul-88 MAC: Change product name for QBJ.
; [49]	14-Apr-88 DTF: Put DOS 2.1 stuff under switches.
; [48]	29-Feb-88 DTF: A "Leap-Revision"!  Change FO_EXTENDRTM to FO_BUILDRTM,
;			and put a RLEDEF under a FO_BUILDRTM switch, too.
; [47]	17-Feb-88 MAC: Change EC_SDK to EC_BC6 or FO_EXTENDRTM.  Add
;		       signon messages for QB4J and QB5, remove BC3
; [46]	22-Jan-88 DTF: Put [43] under a DOS5 switch, too.
; [45]	30-Dec-87 DTF: Put [43] under a RTM switch.
; [44]	30-Dec-87 MAC: Bump CopyRight date from 1987 to 1988.
; [43]	09-Dec-87 TAK: Add "incompatible extended run-time module" messages.
; [42]	30-Nov-87 DTF: "runtime" ==> "run-time".
; [41]	18-Nov-87 TAK: Removed RTM names.  They are now generated by
;		       BUILDRTM when it's building the RTM and RTM lib.
; [40]	05-Nov-87 DTF: Changed BASCOM 6 RTM name.
; [39]	03-Nov-87 DTF: Changed IF's to IFDEF's for use with QBI.
; [38]	02-Nov-87 DTF: Changed Bascom 6 (SDK) RTM signon message.
; [37]	16-Oct-87 DTF: Changed SDK RTM filename(s), and added KANJI ones.
;		       Changed RTM signon message.
; [36]	13-Oct-87 DTF: Added RTM Signon for SDK.
; [35]	15-Sep-87 LAN: Changed RTM Signon
; [34]	15-Aug-87 DTF: Move CHAIN errors into C startup catagory.
; [33]	04-Aug-87 DTF: Add more C startup messages for mixed language
;			processing/internationalization considerations.
; [32]	28-Aug-87 KRS: Include messages for DOEXEC and C STARTUP
; [31]	20-Jul-87 LAN: Correct message number for out of stack space.
; [30]	18-Jun-87 LAN: Correct error number for record variable req'd
; [29]	17-Jun-87 LAN: Add text for new class of interpreter messages.
; [28]	11-Jun-87 DTF: Added "Record variable required" message.
; [27]	26-May-87 LAN: Changed BRUN303 to BRUN30C
; [26]	27-May-87 DMC: Changed BRUN303C to BRUN40 for QB4 loader.
; [25]	19-May-87 DTF: Changed text of "DOS 2.10 or later" message.
; [24]	17-Apr-87 DTF: A few more changes to texts of various messages.
; [23]	31-Mar-87 DTF: Changed texts of various messages.
; [22]	09-Mar-87 DMC: Added more messages for UL and QB loading.
; [21]	04-Mar-87 LAN: Changed text of error 52 slightly.
; [20]	27-Feb-87 BRL: Removed 'String Space Corrupt during G.C.' message.
;		       Removed 'Hit any key to continue' message.
;		       Moved the 'Hit any key to return to system' message.
;		       Renumbered nearby messages appropriately.
;		       Changed text of FE_FHCONSIST to 'Far Heap Corrupt'
; [19]	29-Jan-87 DMC: Add constant for interpreter initialization errors.
; [18]	11-Dec-86  LN: Changes for message isolation & delivery.
; [17]	02-Dec-86 DMC: Add message numbers for user library loader.
; [16]	21-Nov-86  LN: Remove ISAM error, and do work for small error.
; [15]	24-Oct-86 DMC: Make internal messages (8000-9000) 8000 based.  They
;			started at 8001.
; [14]	21-Oct-86 DMC: Reorder internal messages for interpreter.
;			Change error 77 back to "Deadlock" as it is
;			only used by Xenix.  Also change initialization
;			error message for BASCOM 3.
; [13]  08-Sep-86 RDK: Added messages for chaining errors.
; [12]  25-Aug-86 RDK: Added RTM loader messages and copyright text.
; [11]	22-Aug-86  LN: Added jump label for NO Line Number
; [10]	15-Jul-86 DMC: Added "Error in EXE file" message.
;  [9]	02-Jul-86  LN: Added errors 39, 127
;  [8]	18-Jun-86  LN: Removed an RS232 switch (error's always allocated)
;  [7]	10-Jun-86 RDK: Added far heap initialization error
;  [6]	09-Jun-86  LN: Added "Bytes free" & ASCCR
;  [5]	04-Jun-86  YC: Added "?Redo from start"
;  [4]	30-May-86  LN: Added table generation for really fatal errors
;  [3]	16-May-86 DMC: Added fatal initialization error codes.
;  [2]	12-May-86  LN: Added concept of various kinds of fatal errors
;  [1]	09-May-86 DMC: Added "Hit any key" message
;   []	10-Apr-86  LN: Created
;
;******************************************************************************
	PAGE
;******************************************************************************
;
; Message Isolation and Internationalization.
;
; All text messages in the BASIC runtime are defined in this file. A kit is
; provided to allow an OEM customer to alter the text of the messages. This
; kit consists of:
;
;	messages.inc	- This file. Defines all text.
;	*.asm		- Assembly files which include this file to generate
;			  actual message text.
;	newmsg.bat	- A batch file which assembles the *.asm files, and
;			  replaces them in their appropriate libraries.
;	chmsg.exe	- A message extraction / insertion utility to alter the
;			  messages in the runtime module .EXE files without
;			  relinking.
;
; To change message text:
;
;	1) Edit this file to change the text of the messages as required. The
;	   text is always the last argument to the RTEDEF or RLEDEF macros.
;	   Commented out text is present for documentation purposes only, and
;	   editting it will have no effect.
;
;	   There is no length limit on messages altered in this file.
;
;	   Messages may not contain null characters.
;
;	2) Run newmsg.bat, with this file, the *.asm files, and the product
;	   libraries in the current directory.
;
;	3) Run chmsg on the runtime module:
;
;		chmsg brun30c.exe >brun30c.txt
;
;	4) Edit brun30c.txt to alter the messages as desired.
;
;	5) Run chmsg on the runtime module again:
;
;		chmsg brun30c.exe brun30c.txt
;
;	   Note: no redirection this time. This will install the new messages.
;	   There is a limit, as reported by chmsg, as to the available space
;	   for altered messages.
;
;	6) repeat steps 3 through 6 on brun30p.exe.
;
;******************************************************************************
	PAGE
;******************************************************************************
;
; RTEDEF macro
;
; Used to define Run Time Error and other text messages, and symbolic constants
; associated with them. If RTEDEF has not already been defined by the time this
; file is INCLUDEd, the default RTEDEF just equates the symbol to the numeric
; value. In this way, just INCLUDEing this file, without any further thought,
; gives you the set of symbolic message constants.
;
; Files which actually want to define the text associated with the messages
; will define RTEDEF, prior to including this file, to perform whatever they
; need with the information available.
;
IFNDEF	RTEDEF			;if no RTEDEF macro already defined

RTEDEF	MACRO	TYPE,SYMBOL,NUM,MSG

IFNB	<SYMBOL>		;;If there is a symbol to be defined
SYMBOL	EQU	NUM		;;Define message symbol
ENDIF

	ENDM			;;RTEDEF MACRO

ENDIF				;IFNDEF RTEDEF

;******************************************************************************
;
; RCEDEF macro
;
; This is a special case of the RCEDEF macro used to define the strings used by
; the DOS 3 runtime loader. (RCE -> Runtime C Error). By default the macro
; does what RTEDEF does. In the files needed, the macro is defined as required
; to define symbolic constants and/or text.
;
IFNDEF	RCEDEF			; if RCEDEF macro not already defined

RCEDEF	MACRO	TYPE,SYMBOL,NUM,MSG
	RTEDEF	TYPE, SYMBOL, NUM, <MSG>
	ENDM			;;RCEDEF MACRO

ENDIF	;IFNDEF	RCEDEF

;******************************************************************************
;
; RLEDEF macro
;
; This is a special case of the RTEDEF macro used to define the strings used by
; the DOS 3 runtime loader. (RLE -> Runtime Loader Error). By default the macro
; does nothing. In the files needed, the macro is defined as required to define
; symbolic constants and/or text.
;
IFNDEF	RLEDEF			;[12]if RLEDEF macro not already defined

RLEDEF	MACRO	LABEL,TEXT	;[12]if not defined, just null
	ENDM	;;RLEDEF MACRO  ;[12]

ENDIF	;IFNDEF	RLEDEF		;[12]

;******************************************************************************
;
; RXEDEF macro [32]
;
; This is a special case of the RTEDEF macro used to define the strings used by
; the DOEXEC procedure.  (RXE -> Runtime eXec Error). By default the macro does
; nothing.  In the files needed, the macro is defined as required to define
; labels and text.
;
IFNDEF	RXEDEF			;[32] if RXEDEF macro not already defined

RXEDEF	MACRO	LABEL,NUM,TEXT	;[32] if not defined, just null
	ENDM	;;RXEDEF MACRO	;[32]

ENDIF	;IFNDEF	RXEDEF		;[32]


;******************************************************************************
;
; Define useful characters
;
ASCCR	=	0DH		;Carriage return

;******************************************************************************
;
;	Messages.
;	Messages are numbered as follows:
;
;	0000H - 00FFH:	BE_???? - Standard "Basic" Errors 0 through 255
;	0100H - 7FFFH:	Unused
;	8000H - FFFFH:	Internal messages.
;			8000 - 8FFFH:	MS_??? - Non-error messages
;			9000 - 9FFFH:	FE_??? - Fatal "crash and burn" errors.
;				9000-93FF:	Line number & Module valid
;				9400-96FF:	Module valid
;				9700-97FF:	QB interp initialization errors
;				9800-9BFF:	Nothing valid
;
;******************************************************************************
;
;	BE: Basic Errors
;	These are all the basic errors that can be generated at run time.