;+ ;ERROR .MCall .Module .Module KEDERR RELEASE=V02 VERSION=01 COMMENT=,IDENT=NO,AUDIT=NO,GLOBAL=.KEDER .Enable LC .Enable GBL ; Copyright (c) 1998 by Mentec, Inc., Nashua, NH. ; All rights reserved ; ; This software is furnished under a license for use only on a ; single computer system and may be copied only with the ; inclusion of the above copyright notice. This software, or ; any other copies thereof, may not be provided or otherwise ; made available to any other person except for use on such ; system and to one who agrees to these license terms. Title ; to and ownership of the software shall at all times remain ; in Mentec, Inc. ; ; The information in this document is subject to change without ; notice and should not be construed as a commitment by Digital ; Equipment Corporation, or Mentec, Inc. ; ; Digital and Mentec assume no responsibility for the use or ; reliability of its software on equipment which is not supplied ; by Digital or Mentec, and listed in the Software Product ; Description. .Page ; ;MODULE: KEDERR ; ;ABSTRACT: ; ; This is the error message module for KED. It contains error ; message text for all errors and help message from all the ; other modules. It is created automatically to be assembled ; separately. ; ;AUTHOR: DARRELL DUFFY ; ;DATE: 3-July-1979 ; ;REVISION HISTORY: ; .Page ; ;Error message comment standard ; ; All error messages are commented with the same format so that ; a TECO macro can find them and writers know what to look for. ; All comment blocks are in the following form: ; ; ;+ (open comment block) ; ;ERROR (it's an error comment block) ; ;Error text (message and severity, not environment) ; ;Statements of problems causing message ; ;- (close comment block) ; ;Errors reported by KED are of four types: ; ; CSI errors reported from CSI state or before screen is active ; Errors so severe that the text appears on the screen even when ; it is active. RETURN is typed to continue. ; Prompts which appear on the screen and are answered to continue. ; HELP which rings the bell. The message appears once when HELP ; is pressed. These messages are contained in the KEDHLP ; file. ; ; ;The first type of error is preceded by the environment and severity ;in standard RT-11 format. Some errors of the first type may actually ;be signaled after the screen is active in which case the environment ;is not printed. ; ;Errors of the second type require the user to type RETURN to continue. ;This is to make sure the message is read. The HELP message is set to ;the message so it can be inspected once more after RETURN is typed. ; ;Prompts actually appear both from CSI state and when the screen is active. ;In CSI state the environment is appended. In screen state the environment ;is deleted. The help message is set to the prompt. ; .Page ; ; Assembly parameters ; .IIf NDF Rsts$ Rsts$=0 ; ; PSect definitions ; .MCall PSect ;KedMac.MLb PSect $ERR$ ;Error messages ;- ;+ ;ERROR ; .IIf NDF,$KED$, .Page .IIf NDF,$KED$, .SbTtl Errors from KEDCM1 module ; ; Module: KEDCM1 ; ; Define the error for this module ; .MCall ErrDef ErrDef C1,Error ;Invoke macro to define error macro ;- ;+ ;ERROR ;NO MESSAGE ;VT100 only ;Attempt to size the screen failed for Ctrl/W function to restore ;the screen after a size change or terminal error. ;If this returns an error it is ignored- the new screen size will ;not be used and the user will notice what is up because the display ;will be wrong. ;- ;+ ;ERROR ;Of interest to writers: on any bell error, the input character buffer ;is flushed to prevent further actions which may be typed ahead. ;- ;+ ;ERROR ErIJBO:: .Ascii /Journal preliminary buffer overflow - Exit session (Y,N)? / .Byte ;there is no more room in the temporary journal file buffer. The user ;may want to end the session at this point because further editing ;in this session will not be journaled. If the user replies "Y", an ;EXIT is performed (the text file is saved), otherwise the session is ;continued without journaling. ;- ;+ ;ERROR ; .IIf NDF,$KED$, .Page .IIf NDF,$KED$, .SbTtl Errors from KEDCM2 module ; ; Module: KEDCM2 ; ; Define the error messages for this module ; .MCall ErrDef ErrDef C2,ERROR ;- ;+ ;ERROR ; .IIf NDF,$KED$, .Page .IIf NDF,$KED$, .SbTtl Errors from KEDCM3 module ; ; Module: KEDCM3 ; ; Define the error macros for this module ; .MCall ErrDef ErrDef C3,ERROR ;- ;+ ;ERROR ; .IIf NDF,$KED$, .Page .IIf NDF,$KED$, .SbTtl Errors from KEDCM4 module ; ; Module: KEDCM4 ; ; Define the error macros for this module ; .MCall ErrDef ErrDef C4,ERROR ;- ;+ ;ERROR ; .IIf NDF,$KED$, .Page .IIf NDF,$KED$, .SbTtl Errors from KEDCM5 module ; ; Module: KEDCM5 ; ; Define the error macros for this module ; .MCall ErrDef ErrDef C5,ERROR ;- ;+ ;ERROR ; .IIf NDF,$KED$, .Page .IIf NDF,$KED$, .SbTtl Errors from KEDVWT module ; ;Define the error macro for this module ; .MCall ErrDef ErrDef V,ERROR ;- ;+ ;ERROR ERROR ,F ;Logic error in program ;- ;+ ;ERROR ; .IIf NDF,$KED$, .Page .IIf NDF,$KED$, .SbTtl Errors from KEDCM6 module ; ; Module: KEDCM6 ; ; Define the error macros for this module ; .MCall ErrDef ErrDef C6,Error ;Invoke macro to define error macro ;- ;+ ;ERROR ; .IIf NDF,$KED$, .Page .IIf NDF,$KED$, .SbTtl Errors from KEDCM7 module ; ; Module: KEDCM7 ; ; Define the error macros for this module ; .MCall ErrDef ErrDef C7,ERROR ;- ;+ ;ERROR ERROR ,W ;QUIT purges all output files and gives this message before returning ;to CSI state ;- ;+ ;ERROR ; .IIf NDF,$KED$, .Page .IIf NDF,$KED$, .SbTtl Errors from KEDCM8 module ; ; Module: KEDCM8 ; ; Define the error macros for this module ; .MCall ErrDef ErrDef C8,ERROR ;- ;+ ;ERROR ; .IIf NDF,$KED$, .Page .IIf NDF,$KED$, .SbTtl Errors from KEDSCL module ; ;Define the error macro for this module ; .MCall ErrDef ErrDef S1,ERR ;Invoke macro to define error macro ;- ;+ ;ERROR ERROR ,F ;Allocation routine $ALLOC returned blocking factor which was not an ;integral number of blocks. Logic error. ;- ;+ ;ERROR ERROR ,F ;Computation of characters free for insertion is wrong. ;Program logic error. Immediate exit. ;- ;+ ;ERROR ERROR ,F ;Insufficient space was found to read the next group of blocks into ;the playground. Logic error. ;- ;+ ;ERROR ERROR ,F ;Playground was found empty on entry here. Logic error. ;- ;+ ;ERROR ERROR ,F ;Attempt to write over data in file. Logic error or full file ;- ;+ ;ERROR ERROR ,F ;Computed block number is negative or zero. Logic error. ;- ;+ ;ERROR ERROR ,F ;Insufficient data in playground to write. Logic error. ;- ;+ ;ERROR ERROR ,F ;Not enough space in playground to read next buffer ;Logic error. ;- ;+ ;ERROR ERROR ,F ;Attempt to write over data in file. Logic error or file full. ;- ;+ ;ERROR ERROR ,F ;Computed block number was minus or beyond end of file. Logic error. ;- ;+ ;ERROR ERROR ,F ;Partial write attempted with data in fwd PLYGND. Logic error. ;- ;+ ;ERROR ; ERROR ,F ; ;An I/O or device error was encountered doing file I/O. ;- ;+ ;ERROR ; .IIf NDF,$KED$, .Page .IIf NDF,$KED$, .SbTtl Errors from KEDSC2 module ; ;Define the error macro for this module ; .MCall ErrDef ErrDef S2,ERR ;Invoke macro to define error macro ;- ;+ ;ERROR ERROR ,F ;Allocation routine $ALLOC returned blocking factor which was not an ;integral number of blocks. Logic error. ;- ;+ ;ERROR ; .Page .SbTtl Errors from KedIO1 module .IIf NDF MIN$C MIN$C = 0 ;Assume not MINC version ;- ;+ ;ERROR ; .MCall ErrDef ErrDef I1,Err ;Invoke macro to define error macro ;- ;+ ;ERROR Unable::.Ascii "W-Unable to set terminal characteristics- Continue (Y,N)? " .Byte ;can't modify terminal characteristics which may be wrong ;- ;+ ;ERROR ErIAOE:: .Ascii /Auxiliary output file exists- Replace (Y,N) ? / .Byte ;Attempt to open an auxiliary output file which exists. YES will replace ;existing file with new one. NO will abort the command. ;- ;+ ;ERROR EriJFE:: .Ascii /W-Journal file exists- Replace (Y,N) ? / .Byte ;Attempt to open a journal file which already exists. YES will replace ;existing file with new one. NO will abort the command. ;- ;+ ;ERROR ErIJFF:: .Ascii /Journal output file full - Exit session (Y,N)? / .Byte ;there is no more room to write the journal file. The user ;may want to end the session at this point because further editing ;in this session will not be journaled. If the user replies "Y", an ;EXIT is performed (the text file is saved). ;- ;+ ;ERROR ErIJOE:: .Ascii /Journal file output error - Exit session (Y,N)? / .Byte ;there was an error (not file full) on a write to the journal. The user ;may want to end the session at this point because further editing ;in this session will not be journaled. If the user replies "Y", an ;EXIT is performed (the text file is saved). ;- ;+ ;ERROR ; .Page .SbTtl Errors from KedIO2 module .IIf NDF MIN$C MIN$C = 0 ;Assume not MINC version ;- ;+ ;ERROR ; .MCall ErrDef ErrDef I2,Err ;Invoke macro to define error macro ;- ;+ ;ERROR Error ,F ; ;The format of the command line was illegal. The prompt is redisplayed ;and the user can enter another command. ;- ;+ ;ERROR Error ,F ;fetch failed on input device. ;device name illegal, not installed or something else caused failure ;- ;+ ;ERROR Error ,F ;File or device is too big to edit (block number -) ;- ;+ ;ERROR Error ,F ;Lookup failed for input file. ;- ;+ ;ERROR EriFNF:: .Ascii "W-File not found - Create it (Y,N)? " .Byte ;- ;+ ;ERROR ERROR ,F ; ;The device to be used as the edit input/out device must be ;random access. This device isn't. ;- ;+ ;ERROR Error ,F ;fetch failed for output device. device name illegal or ;not installed. ;- ;+ ;ERROR Error ,F ;fetch or enter failed for output file. ;- ;+ ;ERROR Error ,F ;space for output file is shorter than input file ;- ;+ ;ERROR EriOFE:: .Ascii /W-Output file exists- Continue (Y,N) ? / .Byte ;a file exists with the same name as the output file. the file is not ;automatically superceded unless the output and input filenames and types ;and devices are the same. this message does not occur in that case ;since the intention is to edit a file with backup. ;- ;+ ;ERROR EriOFP:: .Ascii /W-Output file or device protected- Inspect (Y,N) ? / .Byte ;a file exists with the same name as the output file. ;This file is protected. The user is asked if he wants to inspect it. ;- ;+ ;ERROR EriAvl:: .Ascii "W-Only " EriBks:: .Ascii "nnnnn blocks available for insertions" .Ascii / -Continue (Y,N) ? / .Byte ;less than 10 blocks are available or inputs to file. number of ;blocks are printed in decimal (nnnnn). and the user is asked ;if he would like to proceed. ;- ;+ ;ERROR .If NE MIN$C Error ,F .EndC; NE MIN$C ;editor found volume owner of output device was 'digital' ;- ;+ ;ERROR .If NE MIN$C Error ,F .EndC; NE MIN$C ;logic error, or system failure in owner check ;fetch of handler succeeded but dstatus failed here ;- ;+ ;ERROR .If NE MIN$C Error ,F .EndC; NE MIN$C ;non directory device was specified for output to editor ;and editor cannot use it for output. volume owner check ;caught this error. ;- ;+ ;ERROR .If NE MIN$C Error ,F .EndC; NE MIN$C ;non filestructured lookup or readw failed during owner check ;logic error or device error. ;- ;+ ;ERROR ; .Page .SbTtl Errors from KedIO3 module .IIf NDF MIN$C MIN$C = 0 ;Assume not MINC version ;- ;+ ;ERROR ; .MCall ErrDef ErrDef I3,Err ;Invoke macro to define error macro ;- ;+ ;ERROR .If EQ Rsts$ ERROR ,F .EndC; EQ Rsts$ ; ;This version does not support RSTS ;- ;+ ;ERROR ERROR ,F ; ;This version does not support old RT versions ;- ;+ ;ERROR ; ERROR ,F ; ;The memory available is less than the minimum required by KED in ;order to run. ;- ;+ ;ERROR EriNIF::.Ascii "W-Command file not found - Continue (Y,N)? " .Byte ;User specified command file isn't found. User should respond Y to continue ;and enter the work session or N to stop now. ;- ;+ ;ERROR EriNRF::.Ascii "W-Recover file not found - Continue (Y,N)? " .Byte ;- ;+ ;ERROR ERROR ,F ;Attempt to journal an "inspect mode" session. In inspect mode there are ;no modifications made, so there is nothing to journal. The user must ;decide to continue and inspect the file without journaling, or start over ;with a new command line. ;- ;+ ;ERROR ERROR ,F ;Journal and output file have same filespec. ;- ;+ ;ERROR EriJAv:: .Ascii "W-Only " EriJBk:: .Ascii "nnnnn blocks available for journal file" .Ascii / -Continue (Y,N) ? / .Byte ;less than 10 blocks are available for the journal file. number of ;blocks are printed in decimal (nnnnn). and the user is asked ;if she would like to proceed with journaling. If she says no, she will ;be prompted to see if she would like to continue with the editing session at ;all. ;- ;+ ;ERROR EriJFS:: .Ascii /W-Journal file size below minimum - Continue (Y,N) ? / .Byte ;Journal file is below set minimum. If user opts to continue, journaling ;will be turned on, but the journal file may become full quickly. ;- ;+ ;ERROR EriJUO:: .Ascii /W-Unable to open journal file - Continue (Y,N) ? / .Byte ;Fetch or enter failed on the journal file ;- ;+ ;ERROR ERROR ,F ;Recover and journal files have same name so we tried to rename ;the recover file to .JBK, but failed. Probably because a protected ;file by that name already exists. ;- ;+ ;ERROR ; .Page .SbTtl Errors from KedIO4 module .IIf NDF MIN$C MIN$C = 0 ;Assume not MINC version ;- ;+ ;ERROR ; .MCall ErrDef, HlpDef ErrDef I4,Err ;Invoke macro to define error macro HlpDef I4 ;Invoke macro to define help macro ;- ;+ ;ERROR Error ,W ;The rename of the input file to BAK file type failed. We have closed the ;output file anyway to attempt to save it. ;- ;+ ;ERROR .If NE Rsts$ Error ,F ;RSTS only- lookup or enter failed while opening files to trim output file. ;or close failed for output channel ;- ;+ ;ERROR Error ,F ;RSTS only- .readw or .writw returned error during trim. .EndC; NE Rsts$ ;- .END