MS-DOS/v2.0/source/EDLIN.ASM

1846 lines
54 KiB
NASM
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

title EDLIN for MSDOS 2.0
;-----------------------------------------------------------------------;
; REVISION HISTORY: ;
; ;
; V1.02 ;
; ;
; V2.00 9/13/82 M.A. Ulloa ;
; Modified to use Pathnames in command line file ;
; specification, modified REPLACE to use an empty ;
; string intead of the old replace string when this ;
; is missing, and search and replace now start from ;
; first line of buffer (like old version of EDLIN) ;
; instead than current+1 line. Also added the U and ;
; V commands that search (replace) starting from the ;
; current+1 line. ;
; ;
; 9/15/82 M.A. Ulloa ;
; Added the quote character (^V). ;
; ;
; 9/16/82 M.A. Ulloa ;
; Corrected bug about use of quote char when going ;
; into default insert mode. Also corrected the problem ;
; with ^Z being the end of file marker. End of file is ;
; reached when an attempt to read returns less chars ;
; than requested. ;
; ;
; 9/17/82 M.A. Ulloa ;
; Corrected bug about boundaries for Copy ;
; ;
; 10/4/82 Rev. 1 M.A. Ulloa ;
; The IBM version now does NOT have the U and V ;
; commands. The MSDOS version HAS the U and V commands. ;
; Added the B switch, and modified the effect of ;
; the quote char. ;
; ;
; 10/7/82 Rev. 2 M.A. Ulloa ;
; Changed the S and R commands to start from the ;
; current line+1 (as U and V did). Took away U and V in ;
; all versions. ;
; ;
; 10/13/82 Rev. 3 M.A. Ulloa ;
; Now if parameter1 < 1 then parameter1 = 1 ;
; ;
; 10/15/82 Rev. 4 M.A. Ulloa ;
; Param4 if specified must be an absolute number that ;
; reprecents the count. ;
; ;
; 10/18/82 Rev. 5 M.A. Ulloa ;
; Fixed problem with trying to edit files with the ;
; same name as directories. Also, if the end of file is ;
; reached it checks that a LF is the last character, ;
; otherwise it inserts a CRLF pair at the end. ;
; ;
; 10/20/82 Rev. 6 M.A.Ulloa ;
; Changed the text of some error messages for IBM and ;
; rewrite PAGE. ;
; ;
; 10/25/82 Rev. 7 M.A.Ulloa ;
; Made all messages as in the IBM vers. ;
; ;
; 10/28/82 Rev. 8 M.A.Ulloa ;
; Corrected problem with parsing for options. ;
; ;
; Rev. 9 Aaron Reynolds ;
; Made error messages external. ;
; ;
; 12/08/82 Rev. 10 M.A. Ulloa ;
; Corrected problem arising with having to restore ;
; the old directory in case of a file name error. ;
; ;
; 12/17/82 Rev. 11 M.A. Ulloa ;
; Added the ROPROT equate for R/O file protection. ;
; It causes only certain operations (L,P,S,W,A, and Q) ;
; to be allowed on read only files. ;
; ;
; 12/29/82 Rev. 12 M.A. Ulloa :
; Added the creation error message. ;
; ;
; 4/14/83 Rev. 13 N.Panners ;
; Fixed bug in Merge which lost char if not ^Z. ;
; Fixed bug in Copy to correctly check ;
; for full buffers. ;
; ;
; ;
; 7/23/83 Rev. 14 N.Panners ;
; Split EDLIN into two seperate modules to ;
; allow assembly of sources on an IBM PC ;
; EDLIN and EDLPROC ;
; ;
;-----------------------------------------------------------------------;
FALSE EQU 0
TRUE EQU NOT FALSE
KANJI EQU FALSE
roprot equ true ;set to TRUE if protection to r/o files
; desired.
FCB EQU 5CH
Comand_Line_Length equ 128
quote_char equ 16h ;quote character = ^V
PAGE
.xlist
INCLUDE DOSSYM.ASM
.list
SUBTTL Contants and Data areas
PAGE
PROMPT EQU "*"
STKSIZ EQU 80H
CODE SEGMENT PUBLIC
CODE ENDS
CONST SEGMENT PUBLIC WORD
CONST ENDS
DATA SEGMENT PUBLIC WORD
DATA ENDS
DG GROUP CODE,CONST,DATA
CONST SEGMENT PUBLIC WORD
EXTRN BADDRV:BYTE,NDNAME:BYTE,bad_vers_err:BYTE,opt_err:BYTE
EXTRN NOBAK:BYTE,BADCOM:BYTE,NEWFIL:BYTE,DEST:BYTE,MRGERR:BYTE
EXTRN NODIR:BYTE,DSKFUL:BYTE,MEMFUL:BYTE,FILENM:BYTE
EXTRN NOSUCH:BYTE,TOOLNG:BYTE,EOF:BYTE,ro_err:byte,bcreat:byte
PUBLIC TXT1,TXT2,FUDGE,USERDIR,HARDCH
BAK DB "BAK"
make db "***MAUlloa/Microsoft/V20***"
rev db "14"
if roprot ;***** R/O *****
roflag db 0 ; =1 if file is r/o
endif
fourth db 0 ;fourth parameter flag
loadmod db 0 ;Load mode flag, 0 = ^Z marks the
; end of a file, 1 = viceversa.
hardch dd ?
the_root db 0 ;root directory flag
fudge db 0 ;directory changed flag
user_drive db 0
optchar db "-"
dirchar db "/",0
userdir db "/",0
db (dirstrlen) dup(0)
fname_buffer db Comand_Line_Length dup(0)
;-----------------------------------------------------------------------;
TXT1 DB 0,80H DUP (?)
TXT2 DB 0,80H DUP (?)
DELFLG DB 0
CONST ENDS
DATA SEGMENT PUBLIC WORD
PUBLIC QFLG,FCB2,OLDLEN,PARAM1,PARAM2,OLDDAT,SRCHFLG
PUBLIC COMLINE,NEWLEN,SRCHMOD,CURRENT,LSTFND,NUMPOS
PUBLIC LSTNUM,SRCHCNT,POINTER,START,ENDTXT,USER_DRIVE
;-----------------------------------------------------------------------;
; Be carefull when adding parameters, they have to follow the
; order in which they apperar here. (this is a table, ergo it
; is indexed thru a pointer, and random additions will cause the
; wrong item to be accessed). Also param4 is known to be the
; count parameter, and known to be the fourth entry in the table
; so it receives special treatment. (See GETNUM)
PARAM1 DW 1 DUP (?)
PARAM2 DW 1 DUP (?)
PARAM3 DW 1 DUP (?)
PARAM4 DW 1 DUP (?)
;-----------------------------------------------------------------------;
PTR_1 DW 1 DUP (?)
PTR_2 DW 1 DUP (?)
PTR_3 DW 1 DUP (?)
COPYSIZ DW 1 DUP (?)
OLDLEN DW 1 DUP (?)
NEWLEN DW 1 DUP (?)
LSTFND DW 1 DUP (?)
LSTNUM DW 1 DUP (?)
NUMPOS DW 1 DUP (?)
SRCHCNT DW 1 DUP (?)
CURRENT DW 1 DUP (?)
POINTER DW 1 DUP (?)
ONE4TH DW 1 DUP (?)
THREE4TH DW 1 DUP (?)
LAST DW 1 DUP (?)
ENDTXT DW 1 DUP (?)
COMLINE DW 1 DUP (?)
LASTLIN DW 1 DUP (?)
COMBUF DB 82H DUP (?)
EDITBUF DB 258 DUP (?)
EOL DB 1 DUP (?)
FCB2 DB 37 DUP (?)
FCB3 DB 37 DUP (?)
fake_fcb db 37 dup (?) ;fake for size figuring
QFLG DB 1 DUP (?)
HAVEOF DB 1 DUP (?)
ENDING DB 1 DUP (?)
SRCHFLG DB 1 DUP (?)
amnt_req dw 1 dup (?) ;ammount of bytes requested to read
olddat db 1 dup (?) ;Used in replace and search,
; replace by old data flag (1=yes)
srchmod db 1 dup (?) ;Search mode: 1=from current+1 to
; end of buffer, 0=from beg. of
; buffer to the end (old way).
MOVFLG DB 1 DUP (?)
DB STKSIZ DUP (?)
STACK LABEL BYTE
START LABEL WORD
DATA ENDS
SUBTTL Main Body
PAGE
CODE SEGMENT PUBLIC
ASSUME CS:DG,DS:DG,SS:DG,ES:DG
EXTRN QUIT:NEAR,QUERY:NEAR,FNDFIRST:NEAR,FNDNEXT:NEAR
EXTRN UNQUOTE:NEAR,LF:NEAR,CRLF:NEAR,OUT:NEAR
EXTRN REST_DIR:NEAR,KILL_BL:NEAR,INT_24:NEAR
EXTRN FINDLIN:NEAR,SHOWNUM:NEAR,SCANLN:NEAR
if Kanji
EXTRN TESTKANJ:NEAR
endif
PUBLIC CHKRANGE
ORG 100H
EDLIN:
JMP SIMPED
edl_pad db 0e00h dup (?)
HEADER DB "Vers 2.14"
NONAME:
MOV DX,OFFSET DG:NDNAME
ERRJ: JMP xERROR
SIMPED:
MOV BYTE PTR [ENDING],0
MOV SP,OFFSET DG:STACK
;Code to print header
; PUSH AX
; MOV DX,OFFSET DG:HEADER
; MOV AH,STD_CON_STRING_OUTPUT
; INT 21H
; POP AX
;----- Check Version Number --------------------------------------------;
push ax
mov ah,Get_Version
int 21h
cmp al,2
jae vers_ok ; version >= 2, enter editor
mov dx,offset dg:bad_vers_err
jmp short errj
;-----------------------------------------------------------------------;
vers_ok:
;----- Process Pathnames -----------------------------------------------;
mov ax,(char_oper shl 8) ;get switch character
int 21h
cmp dl,"/"
jnz slashok ;if not / , then not PC
mov [dirchar],"\" ;in PC, dir separator = \
mov [userdir],"\"
mov [optchar],"/" ;in PC, option char = /
slashok:
mov si,81h ;point to cammand line
call kill_bl
cmp al,13 ;A carriage return?
je noname ;yes, file name missing
mov di,offset dg:fname_buffer
xor cx,cx ;zero pathname length
next_char:
stosb ;put patname in buffer
inc cx
lodsb
cmp al,' '
je xx1
cmp al,13 ; a CR ?
je name_copied
cmp al,[optchar] ; an option character?
je an_option
jmp short next_char
xx1:
dec si
call kill_bl
cmp al,[optchar]
jne name_copied
an_option:
lodsb ;get the option
cmp al,'B'
je b_opt
cmp al,'b'
je b_opt
mov dx,offset dg:opt_err ;bad option specified
jmp xerror
b_opt:
mov [loadmod],1
name_copied:
mov byte ptr dg:[di],0 ;nul terminate the pathname
if roprot ;***** R/O *****
;----- Check that file is not R/O --------------------------------------;
push cx ;save character count
mov dx,offset dg:fname_buffer
mov al,0 ;get attributes
mov ah,chmod
int 21h
jc attr_are_ok
and cl,00000001b ;mask all but: r/o
jz attr_are_ok ;if all = 0 then file ok to edit,
mov dg:[roflag],01h ;otherwise: Error (GONG!!!)
attr_are_ok:
pop cx ;restore character count
endif
;----- Scan for directory ----------------------------------------------;
dec di ;adjust to the end of the pathname
IF KANJI
mov dx,offset dg: fname_buffer
PUSH DX
PUSH DI
MOV BX,DI
MOV DI,DX
DELLOOP:
CMP DI,BX
Jae GOTDELE
MOV AL,[DI]
INC DI
CALL TESTKANJ
JZ NOTKANJ11
INC DI
JMP DELLOOP
NOTKANJ11:
cmp al,dg:[dirchar]
JNZ DELLOOP
MOV DX,DI ;Point to char after '/'
DEC DX
DEC DX ;Point to char before '/'
JMP DELLOOP
GOTDELE:
MOV DI,DX
POP AX ;Initial DI
POP DX
SUB AX,DI ;Distance moved
SUB CX,AX ;Set correct CX
CMP DX,DI
JB sj1 ;Found a pathsep
JA sj2 ;Started with a pathsep, root
MOV AX,[DI]
CALL TESTKANJ
JNZ same_dirj
XCHG AH,AL
cmp al,dg:[dirchar]
jz sj1 ;One character directory
same_dirj:
ELSE
mov al,dg:[dirchar] ;get directory separator character
std ;scan backwards
repnz scasb ;(cx has the pathname length)
cld ;reset direction, just in case
jz sj1
ENDIF
jmp same_dir ;no dir separator char. found, the
; file is in the current directory
; of the corresponding drive. Ergo,
; the FCB contains the data already.
sj1:
jcxz sj2 ;no more chars left, it refers to root
cmp byte ptr [di],':' ;is the prvious character a disk def?
jne not_root
sj2:
mov dg:[the_root],01h ;file is in the root
not_root:
inc di ;point to dir separator char.
mov al,0
stosb ;nul terminate directory name
pop ax
push di ;save pointer to file name
mov dg:[fudge],01h ;remember that the current directory
; has been changed.
;----- Save current directory for exit ---------------------------------;
mov ah,get_default_drive ;save current drive
int 21h
mov dg:[user_drive],al
mov dl,byte ptr ds:[fcb] ;get specified drive if any
or dl,dl ;default disk?
jz same_drive
dec dl ;adjust to real drive (a=0,b=1,...)
mov ah,set_default_drive ;change disks
int 21h
cmp al,-1 ;error?
jne same_drive
mov dx,offset dg:baddrv
jmp xerror
same_drive:
mov ah,get_default_dpb
int 21h
assume ds:nothing
cmp al,-1 ;bad drive? (should always be ok)
jne drvisok
mov dx,offset dg:baddrv
jmp xerror
drvisok:
cmp [bx.dpb_current_dir],0
je curr_is_root
mov si,bx
add si,dpb_dir_text
mov di,offset dg:userdir + 1
dir_save_loop:
lodsb
stosb
or al,al
jnz dir_save_loop
curr_is_root:
push cs
pop ds
assume ds:dg
;----- Change directories ----------------------------------------------;
cmp [the_root],01h
mov dx,offset dg:[dirchar] ;assume the root
je sj3
mov dx,offset dg:[fname_buffer]
sj3:
mov ah,chdir ;change directory
int 21h
mov dx,offset dg:baddrv
jnc no_errors
jmp xerror
no_errors:
;----- Set Up int 24 intercept -----------------------------------------;
mov ax,(get_interrupt_vector shl 8) or 24h
int 21h
mov word ptr [hardch],bx
mov word ptr [hardch+2],es
mov ax,(set_interrupt_vector shl 8) or 24h
mov dx,offset dg:int_24
int 21h
push cs
pop es
;----- Parse filename to FCB -------------------------------------------;
pop si
mov di,fcb
mov ax,(parse_file_descriptor shl 8) or 1
int 21h
push ax
;-----------------------------------------------------------------------;
same_dir:
pop ax
OR AL,AL
MOV DX,OFFSET DG:BADDRV
jz sj4
jmp xerror
sj4:
CMP BYTE PTR DS:[FCB+1]," "
jnz sj5
jmp noname
sj5:
MOV SI,OFFSET DG:BAK
MOV DI,FCB+9
MOV CX,3
;File must not have .BAK extension
REPE CMPSB
JZ NOTBAK
;Open input file
MOV AH,FCB_OPEN
MOV DX,FCB
INT 21H
MOV [HAVEOF],AL
OR AL,AL
JZ HAVFIL
;----- Check that file is not a directory ------------
mov ah,fcb_create
mov dx,fcb
int 21h
or al,al
jz sj50 ;no error found
mov dx,offset dg:bcreat ;creation error
jmp xerror
sj50:
mov ah,fcb_close ;no error, close the file
mov dx,fcb
int 21h
mov ah,fcb_delete ;delete the file
mov dx,fcb
int 21h
;-----------------------------------------------------
MOV DX,OFFSET DG:NEWFIL
MOV AH,STD_CON_STRING_OUTPUT
INT 21H
HAVFIL:
MOV SI,FCB
MOV DI,OFFSET DG:FCB2
MOV CX,9
REP MOVSB
MOV AL,"$"
STOSB
STOSB
STOSB
MAKFIL:
;Create .$$$ file to make sure directory has room
MOV DX,OFFSET DG:FCB2
MOV AH,FCB_CREATE
INT 21H
OR AL,AL
JZ SETUP
CMP BYTE PTR [DELFLG],0
JNZ NOROOM
CALL DELBAK
JMP MAKFIL
NOROOM:
MOV DX,OFFSET DG:NODIR
JMP xERROR
NOTBAK:
MOV DX,OFFSET DG:NOBAK
JMP xERROR
SETUP:
XOR AX,AX
MOV WORD PTR DS:[FCB+fcb_RR],AX ;Set RR field to zero
MOV WORD PTR DS:[FCB+fcb_RR+2],AX
MOV WORD PTR [FCB2+fcb_RR],AX
MOV WORD PTR [FCB2+fcb_RR+2],AX
INC AX
MOV WORD PTR DS:[FCB+fcb_RECSIZ],AX ;Set record length to 1
MOV WORD PTR [FCB2+fcb_RECSIZ],AX
MOV DX,OFFSET DG:START
MOV DI,DX
MOV AH,SET_DMA
INT 21H
MOV CX,DS:[6]
DEC CX
MOV [LAST],CX
TEST BYTE PTR [HAVEOF],-1
JNZ SAVEND
SUB CX,OFFSET DG:START ;Available memory
SHR CX,1 ;1/2 of available memory
MOV AX,CX
SHR CX,1 ;1/4 of available memory
MOV [ONE4TH],CX ;Save amount of 1/4 full
ADD CX,AX ;3/4 of available memory
MOV DX,CX
ADD DX,OFFSET DG:START
MOV [THREE4TH],DX ;Save pointer to 3/4 full
;Read in input file
MOV DX,FCB
MOV AH,FCB_RANDOM_READ_BLOCK
mov [amnt_req],cx ;save ammount of chars requested
INT 21H
CALL SCANEOF
ADD DI,CX ;Point to last byte
SAVEND:
CLD
MOV BYTE PTR [DI],1AH
MOV [ENDTXT],DI
MOV BYTE PTR [COMBUF],128
MOV BYTE PTR [EDITBUF],255
MOV BYTE PTR [EOL],10
MOV [POINTER],OFFSET DG:START
MOV [CURRENT],1
MOV [PARAM1],1
TEST BYTE PTR [HAVEOF],-1
JNZ COMMAND
CALL APPEND
COMMAND:
MOV SP, OFFSET DG:STACK
MOV AX,(SET_INTERRUPT_VECTOR SHL 8) OR 23H
MOV DX,OFFSET DG:ABORTCOM
INT 21H
MOV AL,PROMPT
CALL OUT
MOV DX,OFFSET DG:COMBUF
MOV AH,STD_CON_STRING_INPUT
INT 21H
MOV [COMLINE],OFFSET DG:COMBUF + 2
MOV AL,10
CALL OUT
PARSE:
MOV [PARAM2],0
MOV [PARAM3],0
MOV [PARAM4],0
mov [fourth],0 ;reset the fourth parameter flag
MOV BYTE PTR [QFLG],0
MOV SI,[COMLINE]
MOV BP,OFFSET DG:PARAM1
XOR DI,DI
CHKLP:
CALL GETNUM
MOV [BP+DI],DX
INC DI
INC DI
CALL SKIP1
CMP AL,","
JNZ CHKNXT
INC SI
CHKNXT:
DEC SI
CMP DI,8
JB CHKLP
CALL SKIP
CMP AL,"?"
JNZ DISPATCH
MOV [QFLG],AL
CALL SKIP
DISPATCH:
CMP AL,5FH
JBE UPCASE
AND AL,5FH
UPCASE:
MOV DI,OFFSET DG:COMTAB
MOV CX,NUMCOM
REPNE SCASB
JNZ COMERR
MOV BX,CX
MOV AX,[PARAM2]
OR AX,AX
JZ PARMOK
CMP AX,[PARAM1]
JB COMERR ;Param. 2 must be >= param 1
PARMOK:
MOV [COMLINE],SI
if roprot ;***** R/O *****
cmp [roflag],01 ;file r/o?
jne paramok2
cmp byte ptr [bx+rotable],01 ;operation allowed?
je paramok2
mov dx,offset dg:ro_err ;error
jmp short comerr1
paramok2:
endif
SHL BX,1
CALL [BX+TABLE]
COMOVER:
MOV SI,[COMLINE]
CALL SKIP
CMP AL,0DH
JZ COMMANDJ
CMP AL,1AH
JZ DELIM
CMP AL,";"
JNZ NODELIM
DELIM:
INC SI
NODELIM:
DEC SI
MOV [COMLINE],SI
JMP PARSE
COMMANDJ:
JMP COMMAND
SKIP:
LODSB
SKIP1:
CMP AL," "
JZ SKIP
RET1: RET
CHKRANGE:
CMP [PARAM2],0
JZ RET1
CMP BX,[PARAM2]
JBE RET1
COMERR:
MOV DX,OFFSET DG:BADCOM
COMERR1:
MOV AH,STD_CON_STRING_OUTPUT
INT 21H
JMP COMMAND
GETNUM:
CALL SKIP
cmp di,6 ;Is this the fourth parameter?
jne sk1
mov [fourth],1 ;yes, set the flag
sk1:
CMP AL,"."
JZ CURLIN
CMP AL,"#"
JZ MAXLIN
CMP AL,"+"
JZ FORLIN
CMP AL,"-"
JZ BACKLIN
MOV DX,0
MOV CL,0 ;Flag no parameter seen yet
NUMLP:
CMP AL,"0"
JB NUMCHK
CMP AL,"9"
JA NUMCHK
CMP DX,6553 ;Max line/10
JAE COMERR ;Ten times this is too big
MOV CL,1 ;Parameter digit has been found
SUB AL,"0"
MOV BX,DX
SHL DX,1
SHL DX,1
ADD DX,BX
SHL DX,1
CBW
ADD DX,AX
LODSB
JMP SHORT NUMLP
NUMCHK:
CMP CL,0
JZ RET1
OR DX,DX
JZ COMERR ;Don't allow zero as a parameter
RET
CURLIN:
cmp [fourth],1 ;the fourth parameter?
je comerra ;yes, an error
MOV DX,[CURRENT]
LODSB
RET
MAXLIN:
cmp [fourth],1 ;the fourth parameter?
je comerra ;yes, an error
MOV DX,-2
LODSB
RET
FORLIN:
cmp [fourth],1 ;the fourth parameter?
je comerra ;yes, an error
CALL GETNUM
ADD DX,[CURRENT]
RET
BACKLIN:
cmp [fourth],1 ;the fourth parameter?
je comerra ;yes, an error
CALL GETNUM
MOV BX,[CURRENT]
SUB BX,DX
jns sk2 ;if below beg of buffer then default to the
mov bx,1 ; beg of buffer (line1)
sk2:
MOV DX,BX
RET
comerra:
jmp comerr
COMTAB DB "QTCMWASRDLPIE;",13
NUMCOM EQU $-COMTAB
;-----------------------------------------------------------------------;
; Carefull changing the order of the next two tables. They are
; linked and chnges should be be to both.
TABLE DW NOCOM ;No command--edit line
DW NOCOM
DW ENDED
DW INSERT
DW PAGE
DW LIST
DW DELETE
dw replac_from_curr ;replace from current+1 line
dw search_from_curr ;search from current+1 line
DW APPEND
DW EWRITE
DW MOVE
DW COPY
DW MERGE
if roprot ;***** R/O *****
DW QUIT1
else
DW QUIT
endif
if roprot ;***** R/O *****
;-----------------------------------------------------------------------;
; If = 1 then the command can be executed with a file that
; is r/o. If = 0 the command can not be executed, and error.
ROTABLE db 0 ;NOCOM
db 0 ;NOCOM
db 0 ;ENDED
db 0 ;INSERT
db 1 ;PAGE
db 1 ;LIST
db 0 ;DELETE
db 0 ;replac_from_curr
db 1 ;search_from_curr
db 1 ;APPEND
db 1 ;EWRITE
db 0 ;MOVE
db 0 ;COPY
db 0 ;MERGE
db 1 ;QUIT
;-----------------------------------------------------------------------;
endif
if roprot ;***** R/O *****
quit1:
cmp [roflag],01 ;are we in r/o mode?
jne q3 ;no query....
MOV DX,OFFSET DG:FCB2 ;yes, quit without query.
MOV AH,FCB_CLOSE
INT 21H
MOV AH,FCB_DELETE
INT 21H
call rest_dir ;restore directory if needed
INT 20H
q3:
call quit
endif
SCANEOF:
cmp [loadmod],0
je sj52
;----- Load till physical end of file
cmp cx,word ptr[amnt_req]
jb sj51
xor al,al
inc al ;reset zero flag
ret
sj51:
jcxz sj51b
push di ;get rid of any ^Z at the end of the file
add di,cx
dec di ;points to last char
cmp byte ptr [di],1ah
pop di
jne sj51b
dec cx
sj51b:
xor al,al ;set zero flag
call check_end ;check that we have a CRLF pair at the end
ret
;----- Load till first ^Z is found
sj52:
PUSH DI
PUSH CX
MOV AL,1AH
or cx,cx
jz not_found ;skip with zero flag set
REPNE SCASB ;Scan for end of file mark
jnz not_found
LAHF ;Save flags momentarily
inc cx ;include the ^Z
SAHF ;Restore flags
not_found:
mov di,cx ;not found at the end
POP CX
LAHF ;Save flags momentarily
SUB CX,DI ;Reduce byte count if EOF found
SAHF ;Restore flags
POP DI
call check_end ;check that we have a CRLF pair at the end
RET2: RET
;-----------------------------------------------------------------------
; If the end of file was found, then check that the last character
; in the file is a LF. If not put a CRLF pair in.
check_end:
jnz not_end ;end was not reached
pushf ;save return flag
push di ;save pointer to buffer
add di,cx ;points to one past end on text
dec di ;points to last character
cmp di,offset dg:start
je check_no
cmp byte ptr[di],0ah ;is a LF the last character?
je check_done ;yes, exit
check_no:
mov byte ptr[di+1],0dh ;no, put a CR
inc cx ;one more char in text
mov byte ptr[di+2],0ah ;put a LF
inc cx ;another character at the end
check_done:
pop di
popf
not_end:
ret
NOMOREJ:JMP NOMORE
APPEND:
TEST BYTE PTR [HAVEOF],-1
JNZ NOMOREJ
MOV DX,[ENDTXT]
CMP [PARAM1],0 ;See if parameter is missing
JNZ PARMAPP
CMP DX,[THREE4TH] ;See if already 3/4ths full
JAE RET2 ;If so, then done already
PARMAPP:
MOV DI,DX
MOV AH,SET_DMA
INT 21H
MOV CX,[LAST]
SUB CX,DX ;Amount of memory available
jnz sj53
jmp memerr
sj53:
MOV DX,FCB
mov [amnt_req],cx ;save ammount of chars requested
MOV AH,FCB_RANDOM_READ_BLOCK
INT 21H ;Fill memory with file data
MOV [HAVEOF],AL
PUSH CX ;Save actual byte count
CALL SCANEOF
JNZ NOTEND
MOV BYTE PTR [HAVEOF],1 ;Set flag if 1AH found in file
NOTEND:
XOR DX,DX
MOV BX,[PARAM1]
OR BX,BX
JNZ COUNTLN
MOV AX,DI
ADD AX,CX ;First byte after loaded text
CMP AX,[THREE4TH] ;See if we made 3/4 full
JBE COUNTLN
MOV DI,[THREE4TH]
MOV CX,AX
SUB CX,DI ;Length remaining over 3/4
MOV BX,1 ;Look for one more line
COUNTLN:
CALL SCANLN ;Look for BX lines
CMP [DI-1],AL ;Check for full line
JZ FULLN
STD
DEC DI
MOV CX,[LAST]
REPNE SCASB ;Scan backwards for last line
INC DI
INC DI
DEC DX
CLD
FULLN:
POP CX ;Actual amount read
MOV WORD PTR [DI],1AH ;Place EOF after last line
SUB CX,DI
XCHG DI,[ENDTXT]
ADD DI,CX ;Amount of file read but not used
SUB WORD PTR DS:[FCB+fcb_RR],DI ;Adjust RR field in case end of file
SBB WORD PTR DS:[FCB+fcb_RR+2],0 ; was not reached
CMP BX,DX
JNZ EOFCHK
MOV BYTE PTR [HAVEOF],0
RET
NOMORE:
MOV DX,OFFSET DG:EOF
MOV AH,STD_CON_STRING_OUTPUT
INT 21H
RET3: RET
EOFCHK:
TEST BYTE PTR [HAVEOF],-1
JNZ NOMORE
TEST BYTE PTR [ENDING],-1
JNZ RET3 ;Suppress memory error during End
JMP MEMERR
EWRITE:
MOV BX,[PARAM1]
OR BX,BX
JNZ WRT
MOV CX,[ONE4TH]
MOV DI,[ENDTXT]
SUB DI,CX ;Write everything in front of here
JBE RET3
CMP DI,OFFSET DG:START ;See if there's anything to write
JBE RET3
XOR DX,DX
MOV BX,1 ;Look for one more line
CALL SCANLN
JMP SHORT WRTADD
WRT:
INC BX
CALL FINDLIN
WRTADD:
CMP BYTE PTR [DELFLG],0
JNZ WRTADD1
PUSH DI
CALL DELBAK ;Want to delete the .BAK file
;as soon as the first write occurs
POP DI
WRTADD1:
MOV CX,DI
MOV DX,OFFSET DG:START
SUB CX,DX ;Amount to write
JZ RET3
MOV AH,SET_DMA
INT 21H
MOV DX,OFFSET DG:FCB2
MOV AH,FCB_RANDOM_WRITE_BLOCK
INT 21H
OR AL,AL
JNZ WRTERR
MOV SI,DI
MOV DI,OFFSET DG:START
MOV [POINTER],DI
MOV CX,[ENDTXT]
SUB CX,SI
INC CX ;Amount of text remaining
REP MOVSB
DEC DI ;Point to EOF
MOV [ENDTXT],DI
MOV [CURRENT],1
RET
WRTERR:
MOV AH,FCB_CLOSE
INT 21H
MOV DX,OFFSET DG:DSKFUL
xERROR:
MOV AH,STD_CON_STRING_OUTPUT
INT 21H
;-----------------------------------------------------------------------
call rest_dir ;restore to the proper directory
;-----------------------------------------------------------------------
INT 32
RET$5: RET
PAGE:
xor bx,bx ;get last line in the buffer
call findlin
mov [lastlin],dx
mov bx,[param1]
or bx,bx ;was it specified?
jnz frstok ;yes, use it
mov bx,[current]
cmp bx,1 ;if current line =1 start from there
je frstok
inc bx ;start from current+1 line
frstok:
cmp bx,[lastlin] ;check that we are in the buffer
ja ret$5 ;if not just quit
infile:
mov dx,[param2]
or dx,dx ;was param2 specified?
jnz scndok ;yes,....
mov dx,bx ;no, take the end line to be the
add dx,22 ; start line + 23
scndok:
inc dx
cmp dx,[lastlin] ;check that we are in the buffer
jbe infile2
mov dx,[lastlin] ;we are not, take the last line as end
infile2:
cmp dx,bx ;is param1 < param2 ?
jbe ret$5 ;yes, no backwards listing, quit
push dx ;save the end line
push bx ;save start line
mov bx,dx ;set the current line
dec bx
call findlin
mov [pointer],di
mov [current],dx
pop bx ;restore start line
call findlin ;get pointer to start line
mov si,di ;save pointer
pop di ;get end line
sub di,bx ;number of lines
jmp short display
LIST:
MOV BX,[PARAM1]
OR BX,BX
JNZ CHKP2
MOV BX,[CURRENT]
SUB BX,11
JA CHKP2
MOV BX,1
CHKP2:
CALL FINDLIN
JNZ RET7
MOV SI,DI
MOV DI,[PARAM2]
INC DI
SUB DI,BX
JA DISPLAY
MOV DI,23
JMP SHORT DISPLAY
DISPONE:
MOV DI,1
DISPLAY:
; Inputs:
; BX = Line number
; SI = Pointer to text buffer
; DI = No. of lines
; Function:
; Ouputs specified no. of line to terminal, each
; with leading line number.
; Outputs:
; BX = Last line output.
; All registers destroyed.
MOV CX,[ENDTXT]
SUB CX,SI
JZ RET7
MOV BP,[CURRENT]
DISPLN:
PUSH CX
CALL SHOWNUM
POP CX
OUTLN:
LODSB
CMP AL," "
JAE SEND
CMP AL,10
JZ SEND
CMP AL,13
JZ SEND
CMP AL,9
JZ SEND
PUSH AX
MOV AL,"^"
CALL OUT
POP AX
OR AL,40H
SEND:
CALL OUT
CMP AL,10
LOOPNZ OUTLN
JCXZ RET7
INC BX
DEC DI
JNZ DISPLN
DEC BX
RET7: RET
LOADBUF:
MOV DI,2 + OFFSET DG:EDITBUF
MOV CX,255
MOV DX,-1
LOADLP:
LODSB
STOSB
INC DX
CMP AL,13
LOOPNZ LOADLP
MOV [EDITBUF+1],DL
JZ RET7
TRUNCLP:
LODSB
INC DX
CMP AL,13
JNZ TRUNCLP
DEC DI
STOSB
RET
NOTFNDJ:JMP NOTFND
replac_from_curr:
mov byte ptr [srchmod],1 ;search from curr+1 line
jmp short sj6
REPLAC:
mov byte ptr [srchmod],0 ;search from beg of buffer
sj6:
MOV BYTE PTR [SRCHFLG],0
CALL FNDFIRST
JNZ NOTFNDJ
REPLP:
MOV SI,[NUMPOS]
CALL LOADBUF ;Count length of line
SUB DX,[OLDLEN]
MOV CX,[NEWLEN]
ADD DX,CX ;Length of new line
CMP DX,254
JA TOOLONG
MOV BX,[LSTNUM]
PUSH DX
CALL SHOWNUM
POP DX
MOV CX,[LSTFND]
MOV SI,[NUMPOS]
SUB CX,SI ;Get no. of char on line before change
DEC CX
CALL OUTCNT ;Output first part of line
PUSH SI
MOV SI,1+ OFFSET DG:TXT2
MOV CX,[NEWLEN]
CALL OUTCNT ;Output change
POP SI
ADD SI,[OLDLEN] ;Skip over old stuff in line
MOV CX,DX ;DX=no. of char left in line
ADD CX,2 ;Include CR/LF
CALL OUTCNT ;Output last part of line
CALL QUERY ;Check if change OK
JNZ REPNXT
CALL PUTCURS
MOV DI,[LSTFND]
DEC DI
MOV SI,1+ OFFSET DG:TXT2
MOV DX,[OLDLEN]
MOV CX,[NEWLEN]
DEC CX
ADD [LSTFND],CX ;Bump pointer beyond new text
INC CX
DEC DX
SUB [SRCHCNT],DX ;Old text will not be searched
JAE SOMELEFT
MOV [SRCHCNT],0
SOMELEFT:
INC DX
CALL REPLACE
REPNXT:
CALL FNDNEXT
JNZ RET8
JMP REPLP
OUTCNT:
JCXZ RET8
OUTLP:
LODSB
CALL OUT
DEC DX
LOOP OUTLP
RET8: RET
TOOLONG:
MOV DX,OFFSET DG:TOOLNG
JMP SHORT PERR
search_from_curr:
mov byte ptr [srchmod],1 ;search from curr+1 line
jmp short sj7
SEARCH:
mov byte ptr [srchmod],0 ;search from beg of buffer
sj7:
MOV BYTE PTR [SRCHFLG],1
CALL FNDFIRST
JNZ NOTFND
SRCH:
MOV BX,[LSTNUM]
MOV SI,[NUMPOS]
CALL DISPONE
MOV DI,[LSTFND]
MOV CX,[SRCHCNT]
MOV AL,10
REPNE SCASB
JNZ NOTFND
MOV [LSTFND],DI
MOV [NUMPOS],DI
MOV [SRCHCNT],CX
INC [LSTNUM]
CALL QUERY
JZ PUTCURS
CALL FNDNEXT
JZ SRCH
NOTFND:
MOV DX,OFFSET DG:NOSUCH
PERR:
MOV AH,STD_CON_STRING_OUTPUT
INT 21H
RET
PUTCURS:
MOV BX,[LSTNUM]
DEC BX ;Current <= Last matched line
CALL FINDLIN
MOV [CURRENT],DX
MOV [POINTER],DI
RET9: RET
DELETE:
MOV BX,[PARAM1]
OR BX,BX
JNZ DELFIN1
MOV BX,[CURRENT]
CALL CHKRANGE
DELFIN1:
CALL FINDLIN
JNZ RET9
PUSH BX
PUSH DI
MOV BX,[PARAM2]
OR BX,BX
JNZ DELFIN2
MOV BX,DX
DELFIN2:
INC BX
CALL FINDLIN
MOV DX,DI
POP DI
SUB DX,DI
JBE COMERRJ
POP [CURRENT]
MOV [POINTER],DI
XOR CX,CX
JMP SHORT REPLACE
COMERRJ:JMP COMERR
NOCOM:
DEC [COMLINE]
MOV BX,[PARAM1]
OR BX,BX
JNZ HAVLIN
MOV BX,[CURRENT]
INC BX ;Default is current line plus one
CALL CHKRANGE
HAVLIN:
CALL FINDLIN
MOV SI,DI
MOV [CURRENT],DX
MOV [POINTER],SI
jz sj12
ret
sj12:
CMP SI,[ENDTXT]
JZ RET12
CALL LOADBUF
MOV [OLDLEN],DX
MOV SI,[POINTER]
CALL DISPONE
CALL SHOWNUM
MOV AH,STD_CON_STRING_INPUT ;Get input buffer
MOV DX,OFFSET DG:EDITBUF
INT 21H
MOV AL,10
CALL OUT
MOV CL,[EDITBUF+1]
MOV CH,0
JCXZ RET12
MOV DX,[OLDLEN]
MOV SI,2 + OFFSET DG:EDITBUF
;-----------------------------------------------------------------------
call unquote ;scan for quote chars if any
;-----------------------------------------------------------------------
MOV DI,[POINTER]
REPLACE:
; Inputs:
; CX = Length of new text
; DX = Length of original text
; SI = Pointer to new text
; DI = Pointer to old text in buffer
; Function:
; New text replaces old text in buffer and buffer
; size is adjusted. CX or DX may be zero.
; CX, SI, DI all destroyed. No other registers affected.
CMP CX,DX
JZ COPYIN
PUSH SI
PUSH DI
PUSH CX
MOV SI,DI
ADD SI,DX
ADD DI,CX
MOV AX,[ENDTXT]
SUB AX,DX
ADD AX,CX
CMP AX,[LAST]
JAE MEMERR
XCHG AX,[ENDTXT]
MOV CX,AX
SUB CX,SI
CMP SI,DI
JA DOMOV
ADD SI,CX
ADD DI,CX
STD
DOMOV:
INC CX
REP MOVSB
CLD
POP CX
POP DI
POP SI
COPYIN:
REP MOVSB
RET12: RET
MEMERR:
MOV DX,OFFSET DG:MEMFUL
MOV AH,STD_CON_STRING_OUTPUT
INT 21H
JMP COMMAND
MOVERR:
MOV DX,OFFSET DG:BADCOM
ERRORJ:
JMP COMERR
MOVE:
MOV BYTE PTR [MOVFLG],1
JMP SHORT BLKMOVE
COPY:
MOV BYTE PTR [MOVFLG],0
BLKMOVE:
MOV BX,[PARAM3] ;Third parameter must be specified
OR BX,BX
MOV DX,OFFSET DG:DEST
JZ ERRORJ
MOV BX,[PARAM1] ;Get the first parameter
OR BX,BX ;Not specified?
JNZ NXTARG
MOV BX,[CURRENT] ;Defaults to the current line
CALL CHKRANGE
MOV [PARAM1],BX ;Save it since current line may change
NXTARG:
CALL FINDLIN ;Get a pointer to the line
MOV [PTR_1],DI ;Save it
MOV BX,[PARAM2] ;Get the second parameter
OR BX,BX ;Not specified?
JNZ HAVARGS
MOV BX,[CURRENT] ;Defaults to the current line
MOV [PARAM2],BX ;Save it since current line may change
HAVARGS:
;Parameters must not overlap
MOV DX,[PARAM3]
CMP DX,[PARAM1]
JBE NOERROR
CMP DX,[PARAM2]
JBE MOVERR
NOERROR:
INC BX ;Get pointer to line Param2+1
CALL FINDLIN
MOV SI,DI
MOV [PTR_2],SI ;Save it
MOV CX,DI
MOV DI,[PTR_1] ;Restore pointer to line Param1
SUB CX,DI ;Calculate number of bytes to copy
MOV [COPYSIZ],CX ;Save in COPYSIZ
PUSH CX ;And on the stack
MOV AX,[PARAM4] ;Is count specified?
OR AX,AX
JZ MEM_CHECK
MUL [COPYSIZ]
OR DX,DX
JZ COPYSIZ_OK
JMP MEMERR
COPYSIZ_OK:
MOV CX,AX
MOV [COPYSIZ],CX
MEM_CHECK:
MOV AX,[ENDTXT]
MOV DI,[LAST]
SUB DI,AX
CMP DI,CX
JAE HAV_ROOM
JMP MEMERR
HAV_ROOM:
MOV BX,[PARAM3]
PUSH BX
CALL FINDLIN
MOV [PTR_3],DI
MOV CX,[ENDTXT]
SUB CX,DI
INC CX
MOV SI,[ENDTXT]
MOV DI,SI
ADD DI,[COPYSIZ]
MOV [ENDTXT],DI
STD
REP MOVSB
CLD
POP BX
CMP BX,[PARAM1]
JB GET_PTR_2
MOV SI,[PTR_1]
JMP SHORT COPY_TEXT
GET_PTR_2:
MOV SI,[PTR_2]
COPY_TEXT:
MOV BX,[PARAM4]
MOV DI,[PTR_3]
POP CX
MOV [COPYSIZ],CX
COPY_TEXT_1:
REP MOVSB
DEC BX
CMP BX,0
JLE MOV_CHK
MOV [PARAM4],BX
SUB SI,[COPYSIZ]
MOV CX,[COPYSIZ]
JMP SHORT COPY_TEXT_1
MOV_CHK:
CMP BYTE PTR[MOVFLG],0
JZ COPY_DONE
MOV DI,[PTR_1]
MOV SI,[PTR_2]
MOV BX,[PARAM3]
CMP BX,[PARAM1]
JAE DEL_TEXT
ADD DI,[COPYSIZ]
ADD SI,[COPYSIZ]
DEL_TEXT:
MOV CX,[ENDTXT]
SUB CX,SI
REP MOVSB
MOV [ENDTXT],DI
MOV CX,[PARAM2]
SUB CX,[PARAM1]
MOV BX,[PARAM3]
SUB BX,CX
JNC MOVE_DONE
COPY_DONE:
MOV BX,[PARAM3]
MOVE_DONE:
CALL FINDLIN
MOV [POINTER],DI
MOV [CURRENT],BX
RET
MOVEFILE:
MOV CX,[ENDTXT] ;Get End-of-text marker
MOV SI,CX
SUB CX,DI ;Calculate number of bytes to copy
INC CX
MOV DI,DX
STD
REP MOVSB ;Copy CX bytes
XCHG SI,DI
CLD
INC DI
MOV BP,SI
SETPTS:
MOV [POINTER],DI ;Current line is first free loc
MOV [CURRENT],BX ; in the file
MOV [ENDTXT],BP ;End-of-text is last free loc before
RET
NAMERR:
JMP COMERR1
MERGE:
MOV AX,(PARSE_FILE_DESCRIPTOR SHL 8) OR 1
MOV DI,OFFSET DG:FCB3
INT 21H
OR AL,AL
MOV DX,OFFSET DG:BADDRV
JNZ NAMERR
MOV [COMLINE],SI
MOV DX,OFFSET DG:FCB3
MOV AH,FCB_OPEN
INT 21H
OR AL,AL
MOV DX,OFFSET DG:FILENM
JNZ NAMERR
MOV AX,(SET_INTERRUPT_VECTOR SHL 8) OR 23H
MOV DX,OFFSET DG:ABORTMERGE
INT 21H
MOV BX,[PARAM1]
OR BX,BX
JNZ MRG
MOV BX,[CURRENT]
CALL CHKRANGE
MRG:
CALL FINDLIN
MOV BX,DX
MOV DX,[LAST]
CALL MOVEFILE
;Set DMA address for reading in new file
MOV DX,[POINTER]
MOV AH,SET_DMA
INT 21H
XOR AX,AX
MOV WORD PTR DS:[FCB3+fcb_RR],AX
MOV WORD PTR DS:[FCB3+fcb_RR+2],AX
INC AX
MOV WORD PTR DS:[FCB3+fcb_RECSIZ],AX
MOV DX,OFFSET DG:FCB3
MOV CX,[ENDTXT]
SUB CX,[POINTER]
MOV AH,FCB_RANDOM_READ_BLOCK
INT 21H
CMP AL,1
JZ FILEMRG
MOV DX,OFFSET DG:MRGERR
MOV AH,STD_CON_STRING_OUTPUT
INT 21H
MOV CX,[POINTER]
JMP SHORT RESTORE
FILEMRG:
ADD CX,[POINTER]
MOV SI,CX
DEC SI
LODSB
CMP AL,1AH
JNZ RESTORE
DEC CX
RESTORE:
MOV DI,CX
MOV SI,[ENDTXT]
INC SI
MOV CX,[LAST]
SUB CX,SI
REP MOVSB
MOV [ENDTXT],DI
MOV BYTE PTR [DI],1AH
MOV DX,OFFSET DG:FCB3
MOV AH,FCB_CLOSE
INT 21H
MOV DX,OFFSET DG:START
MOV AH,SET_DMA
INT 21H
RET
INSERT:
MOV AX,(SET_INTERRUPT_VECTOR SHL 8) OR 23H ;Set vector 23H
MOV DX,OFFSET DG:ABORTINS
INT 21H
MOV BX,[PARAM1]
OR BX,BX
JNZ INS
MOV BX,[CURRENT]
CALL CHKRANGE
INS:
CALL FINDLIN
MOV BX,DX
MOV DX,[LAST]
CALL MOVEFILE
INLP:
CALL SETPTS ;Update the pointers into file
CALL SHOWNUM
MOV DX,OFFSET DG:EDITBUF
MOV AH,STD_CON_STRING_INPUT
INT 21H
CALL LF
MOV SI,2 + OFFSET DG:EDITBUF
CMP BYTE PTR [SI],1AH
JZ ENDINS
;-----------------------------------------------------------------------
call unquote ;scan for quote chars if any
;-----------------------------------------------------------------------
MOV CL,[SI-1]
MOV CH,0
MOV DX,DI
INC CX
ADD DX,CX
JC MEMERRJ1
JZ MEMERRJ1
CMP DX,BP
JB MEMOK
MEMERRJ1:
CALL END_INS
JMP MEMERR
MEMOK:
REP MOVSB
MOV AL,10
STOSB
INC BX
JMP SHORT INLP
ABORTMERGE:
MOV DX,OFFSET DG:START
MOV AH,SET_DMA
INT 21H
ABORTINS:
MOV AX,CS ;Restore segment registers
MOV DS,AX
MOV ES,AX
MOV SS,AX
MOV SP,OFFSET DG:STACK
STI
CALL CRLF
CALL ENDINS
JMP COMOVER
ENDINS:
CALL END_INS
RET
END_INS:
MOV BP,[ENDTXT]
MOV DI,[POINTER]
MOV SI,BP
INC SI
MOV CX,[LAST]
SUB CX,BP
REP MOVSB
DEC DI
MOV [ENDTXT],DI
MOV AX,(SET_INTERRUPT_VECTOR SHL 8) OR 23H
MOV DX,OFFSET DG:ABORTCOM
INT 21H
RET
FILLBUF:
MOV [PARAM1],-1 ;Read in max. no of lines
CALL APPEND
ENDED:
;Write text out to .$$$ file
MOV BYTE PTR [ENDING],1 ;Suppress memory errors
MOV BX,-1 ;Write max. no of lines
CALL WRT
TEST BYTE PTR [HAVEOF],-1
JZ FILLBUF
MOV DX,[ENDTXT]
MOV AH,SET_DMA
INT 21H
MOV CX,1
MOV DX,OFFSET DG:FCB2
MOV AH,FCB_RANDOM_WRITE_BLOCK
INT 21H ;Write end-of-file byte
;Close .$$$ file
MOV AH,FCB_CLOSE
INT 21H
MOV SI,FCB
LEA DI,[SI+fcb_FILSIZ]
MOV DX,SI
MOV CX,9
REP MOVSB
MOV SI,OFFSET DG:BAK
MOVSW
MOVSB
;Rename original file .BAK
MOV AH,FCB_RENAME
INT 21H
MOV SI,FCB
MOV DI,OFFSET DG:FCB2 + fcb_FILSIZ
MOV CX,6
REP MOVSW
;Rename .$$$ file to original name
MOV DX,OFFSET DG:FCB2
INT 21H
call rest_dir ;restore directory if needed
INT 20H
ABORTCOM:
MOV AX,CS
MOV DS,AX
MOV ES,AX
MOV SS,AX
MOV SP,OFFSET DG:STACK
STI
CALL CRLF
JMP COMMAND
DELBAK:
MOV BYTE PTR [DELFLG],1
MOV DI,9+OFFSET DG:FCB2
MOV SI,OFFSET DG:BAK
MOVSW
MOVSB
;Delete old backup file (.BAK)
MOV AH,FCB_DELETE
MOV DX,OFFSET DG:FCB2
INT 21H
MOV DI,9+OFFSET DG:FCB2
MOV AL,"$"
STOSB
STOSB
STOSB
RET
CODE ENDS
END EDLIN