68 lines
2.0 KiB
NASM
68 lines
2.0 KiB
NASM
title File Compare Routine for MSDOS 2.0
|
||
|
||
CR equ 0dh
|
||
LF equ 0ah
|
||
|
||
FALSE equ 0
|
||
TRUE equ 0ffh
|
||
|
||
|
||
const segment public byte
|
||
|
||
PUBLIC vers_err,opt_err,opt_e,crlf,opt_err_len
|
||
PUBLIC found_err_pre,found_err_pre_len,found_err_post
|
||
PUBLIC found_err_post_len,read_err_pre,read_err_pre_len
|
||
PUBLIC read_err_post,read_err_post_len,file_err,file_err_len
|
||
PUBLIC bf1ne,bf1ne_len,bf2ne,bf2ne_len,bhead,bhead_len
|
||
PUBLIC int_err,int_err_len,dif_err,dif_err_len,diff_sep,diff_sep_len
|
||
PUBLIC args_err,args_err_len,fname_sep,fname_sep_len
|
||
|
||
vers_err db "Incorrect DOS version$"
|
||
|
||
opt_err db "Invalid parameter:"
|
||
opt_e db 0
|
||
crlf db CR,LF
|
||
opt_err_len db $ - opt_err
|
||
|
||
;"found_err_pre<name of file>found_err_post"
|
||
found_err_pre db "File not found:"
|
||
found_err_pre_len db $ - found_err_pre
|
||
found_err_post label byte
|
||
found_err_post_len db $ - found_err_post
|
||
|
||
;"read_err_pre<name of file>read_err_post"
|
||
read_err_pre db "Read error in:"
|
||
read_err_pre_len db $ - read_err_pre
|
||
read_err_post label byte
|
||
read_err_post_len db $ - read_err_post
|
||
|
||
file_err db "Bad file"
|
||
file_err_len db $ - file_err
|
||
|
||
int_err db "Internal Error"
|
||
int_err_len db $ - int_err
|
||
|
||
dif_err db "*** Files are different ***"
|
||
dif_err_len db $ - dif_err
|
||
|
||
args_err db "Invalid number of parameters"
|
||
args_err_len db $ - args_err
|
||
|
||
fname_sep db CR,LF,"----------"
|
||
fname_sep_len db $ - fname_sep
|
||
|
||
diff_sep db CR,LF,"-----------------------------------------------",CR,LF
|
||
diff_sep_len db $ - diff_sep
|
||
|
||
bf1ne db CR,LF,"*** Data left in F1 ***",CR,LF
|
||
bf1ne_len db $ - bf1ne
|
||
|
||
bf2ne db CR,LF,"*** Data left in F2 ***",CR,LF
|
||
bf2ne_len db $ - bf2ne
|
||
|
||
bhead db CR,LF,'--ADDRS----F1---F2-',CR,LF
|
||
bhead_len db $ - bhead
|
||
|
||
const ends
|
||
end
|
||
|