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
|
|||
|
|
|