v2.0/source/FCMES.ASM

   1         title   File Compare Routine for MSDOS 2.0
   2
   3 CR      equ     0dh
   4 LF      equ     0ah
   5
   6 FALSE   equ     0
   7 TRUE    equ     0ffh
   8
   9
  10 const   segment public byte
  11
  12         PUBLIC  vers_err,opt_err,opt_e,crlf,opt_err_len
  13         PUBLIC  found_err_pre,found_err_pre_len,found_err_post
  14         PUBLIC  found_err_post_len,read_err_pre,read_err_pre_len
  15         PUBLIC  read_err_post,read_err_post_len,file_err,file_err_len
  16         PUBLIC  bf1ne,bf1ne_len,bf2ne,bf2ne_len,bhead,bhead_len
  17         PUBLIC  int_err,int_err_len,dif_err,dif_err_len,diff_sep,diff_sep_len
  18         PUBLIC  args_err,args_err_len,fname_sep,fname_sep_len
  19
  20 vers_err db     "Incorrect DOS version$"
  21
  22 opt_err db      "Invalid parameter:"
  23 opt_e   db      0
  24 crlf    db      CR,LF
  25 opt_err_len db  $ - opt_err
  26
  27 ;"found_err_pre<name of file>found_err_post"
  28 found_err_pre      db     "File not found:"
  29 found_err_pre_len  db     $ - found_err_pre
  30 found_err_post     label  byte
  31 found_err_post_len db     $ - found_err_post
  32
  33 ;"read_err_pre<name of file>read_err_post"
  34 read_err_pre       db     "Read error in:"
  35 read_err_pre_len   db     $ - read_err_pre
  36 read_err_post      label  byte
  37 read_err_post_len  db     $ - read_err_post
  38
  39 file_err db     "Bad file"
  40 file_err_len db  $ - file_err
  41
  42 int_err db      "Internal Error"
  43 int_err_len db   $ - int_err
  44
  45 dif_err db      "*** Files are different ***"
  46 dif_err_len db   $ - dif_err
  47
  48 args_err db     "Invalid number of parameters"
  49 args_err_len db  $ - args_err
  50
  51 fname_sep db    CR,LF,"----------"
  52 fname_sep_len db  $ - fname_sep
  53
  54 diff_sep db     CR,LF,"-----------------------------------------------",CR,LF
  55 diff_sep_len db  $ - diff_sep
  56
  57 bf1ne   db      CR,LF,"*** Data left in F1 ***",CR,LF
  58 bf1ne_len db    $ - bf1ne
  59
  60 bf2ne   db      CR,LF,"*** Data left in F2 ***",CR,LF
  61 bf2ne_len db    $ - bf2ne
  62
  63 bhead   db      CR,LF,'--ADDRS----F1---F2-',CR,LF
  64 bhead_len db    $ - bhead
  65
  66 const   ends
  67         end
  68