108 lines
3.1 KiB
NASM
108 lines
3.1 KiB
NASM
title EDLIN Messages
|
||
|
||
;-----------------------------------------------------------------------;
|
||
; ;
|
||
; Done for Vers 2.00 (rev 9) by Aaron Reynolds ;
|
||
; Update for rev. 11 by M.A. Ulloa ;
|
||
; ;
|
||
;-----------------------------------------------------------------------;
|
||
|
||
FALSE EQU 0
|
||
TRUE EQU NOT FALSE
|
||
|
||
|
||
.xlist
|
||
INCLUDE DOSSYM.ASM
|
||
.list
|
||
|
||
|
||
CODE SEGMENT PUBLIC BYTE
|
||
CODE ENDS
|
||
|
||
CONST SEGMENT PUBLIC BYTE
|
||
CONST ENDS
|
||
|
||
DATA SEGMENT PUBLIC BYTE
|
||
EXTRN QFLG:BYTE,FCB2:BYTE
|
||
DATA ENDS
|
||
|
||
DG GROUP CODE,CONST,DATA
|
||
|
||
CODE SEGMENT PUBLIC BYTE
|
||
|
||
ASSUME CS:DG,DS:DG,SS:DG,ES:DG
|
||
|
||
PUBLIC QUIT,QUERY
|
||
EXTRN rest_dir:NEAR,CRLF:NEAR
|
||
|
||
QUIT:
|
||
MOV DX,OFFSET DG:QMES
|
||
MOV AH,STD_CON_STRING_OUTPUT
|
||
INT 21H
|
||
MOV AX,(STD_CON_INPUT_FLUSH SHL 8) OR STD_CON_INPUT
|
||
INT 21H ;Really quit?
|
||
AND AL,5FH
|
||
CMP AL,"Y"
|
||
JZ NOCRLF
|
||
JMP CRLF
|
||
NOCRLF:
|
||
MOV DX,OFFSET DG:FCB2
|
||
MOV AH,FCB_CLOSE
|
||
INT 21H
|
||
MOV AH,FCB_DELETE
|
||
INT 21H
|
||
call rest_dir ;restore directory if needed
|
||
INT 20H
|
||
|
||
QUERY:
|
||
TEST BYTE PTR [QFLG],-1
|
||
JZ RET9
|
||
MOV DX,OFFSET DG:ASK
|
||
MOV AH,STD_CON_STRING_OUTPUT
|
||
INT 21H
|
||
MOV AX,(STD_CON_INPUT_FLUSH SHL 8) OR STD_CON_INPUT
|
||
INT 21H
|
||
PUSH AX
|
||
CALL CRLF
|
||
POP AX
|
||
CMP AL,13 ;Carriage return means yes
|
||
JZ RET9
|
||
CMP AL,"Y"
|
||
JZ RET9
|
||
CMP AL,"y"
|
||
RET9: RET
|
||
|
||
CODE ENDS
|
||
|
||
CONST SEGMENT PUBLIC BYTE
|
||
|
||
PUBLIC BADDRV,NDNAME,bad_vers_err,opt_err,NOBAK
|
||
PUBLIC NODIR,DSKFUL,MEMFUL,FILENM,BADCOM,NEWFIL
|
||
PUBLIC NOSUCH,TOOLNG,EOF,DEST,MRGERR,ro_err,bcreat
|
||
|
||
BADDRV DB "Invalid drive or file name$"
|
||
NDNAME DB "File name must be specified$"
|
||
|
||
bad_vers_err db "Incorrect DOS version$"
|
||
opt_err db "Invalid Parameter$"
|
||
ro_err db "Invalid operation: R/O file",13,10,"$"
|
||
bcreat db "File Creation Error",13,10,"$"
|
||
|
||
NOBAK DB "Cannot edit .BAK file--rename file$"
|
||
NODIR DB "No room in directory for file$"
|
||
DSKFUL DB "Disk full-- write not completed$"
|
||
MEMFUL DB 13,10,"Insufficient memory",13,10,"$"
|
||
FILENM DB "File not found",13,10,"$"
|
||
BADCOM DB "Entry error",13,10,"$"
|
||
NEWFIL DB "New file",13,10,"$"
|
||
NOSUCH DB "Not found",13,10,"$"
|
||
ASK DB "O.K.? $"
|
||
TOOLNG DB "Line too long",13,10,"$"
|
||
EOF DB "End of input file",13,10,"$"
|
||
QMES DB "Abort edit (Y/N)? $"
|
||
DEST DB "Must specify destination line number",13,10,"$"
|
||
MRGERR DB "Not enough room to merge the entire file",13,10,"$"
|
||
|
||
CONST ENDS
|
||
END
|
||
|