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