Subversion Repositories SvarDOS

Rev

Rev 1559 | Rev 1565 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1559 Rev 1560
Line 664... Line 664...
664
  if (fname == NULL) goto SKIPLOADING;
664
  if (fname == NULL) goto SKIPLOADING;
665
 
665
 
666
  /* make the filename canonical (DOS 3+ only, on earlier versions it just copies the filename) */
666
  /* make the filename canonical (DOS 3+ only, on earlier versions it just copies the filename) */
667
  mdr_dos_truename(db->fname, fname);
667
  mdr_dos_truename(db->fname, fname);
668
 
668
 
669
  /* fopen file */
669
  err = mdr_dos_fopen(fname, &fd);
670
  fd = 0;
-
 
671
  _asm {
-
 
672
    push cx
-
 
673
    push dx
-
 
674
 
-
 
675
    mov ax, 0x3d00
-
 
676
    mov dx, fname   // works only in SMALL memory model!
-
 
677
    xor cl, cl
-
 
678
    int 0x21
-
 
679
    mov fd, ax
-
 
680
    jnc done
-
 
681
    mov err, al
-
 
682
    done:
-
 
683
 
-
 
684
    pop dx
-
 
685
    pop cx
-
 
686
  }
-
 
687
 
-
 
688
  if (err != 0) goto SKIPLOADING;
670
  if (err != 0) goto SKIPLOADING;
689
 
671
 
690
  db->lfonly = 1;
672
  db->lfonly = 1;
691
 
673
 
692
  for (eolfound = 0;;) {
674
  for (eolfound = 0;;) {
Line 985... Line 967...
985
  static struct file dbarr[10];
967
  static struct file dbarr[10];
986
  struct file *db = dbarr; /* visible file is the first slot by default */
968
  struct file *db = dbarr; /* visible file is the first slot by default */
987
  static struct line far *clipboard;
969
  static struct line far *clipboard;
988
  static unsigned char original_breakflag;
970
  static unsigned char original_breakflag;
989
 
971
 
-
 
972
  mdr_coutraw_puts("glob_monomode:");
-
 
973
  mdr_coutraw_char('0' + glob_monomode);
-
 
974
  mdr_coutraw_crlf();
-
 
975
 
-
 
976
  mdr_coutraw_puts("original_breakflag:");
-
 
977
  mdr_coutraw_char('0' + original_breakflag);
-
 
978
  mdr_coutraw_crlf();
-
 
979
 
990
  { /* load NLS resource */
980
  { /* load NLS resource */
991
    unsigned short i = 0;
981
    unsigned short i = 0;
992
    const char far *selfptr;
982
    const char far *selfptr;
993
    char lang[8];
983
    char lang[8];
994
    selfptr = mdr_dos_selfexe();
984
    selfptr = mdr_dos_selfexe();
Line 1022... Line 1012...
1022
    SCHEME_STBAR2 = 0x78;
1012
    SCHEME_STBAR2 = 0x78;
1023
    SCHEME_STBAR3 = 0x3f;
1013
    SCHEME_STBAR3 = 0x3f;
1024
    SCHEME_SCROLL = 0x70;
1014
    SCHEME_SCROLL = 0x70;
1025
    SCHEME_MSG = 0x6f;
1015
    SCHEME_MSG = 0x6f;
1026
    SCHEME_ERR = 0x4f;
1016
    SCHEME_ERR = 0x4f;
-
 
1017
  } else {
-
 
1018
    // FIXME
-
 
1019
    mdr_coutraw_char('0' + glob_monomode);
-
 
1020
    _asm int 0x20
1027
  }
1021
  }
1028
  screenlastrow = screenh - 1;
1022
  screenlastrow = screenh - 1;
1029
  screenlastcol = screenw - 1;
1023
  screenlastcol = screenw - 1;
1030
 
1024
 
1031
  /* instruct DOS to stop detecting CTRL+C because user needs it for
1025
  /* instruct DOS to stop detecting CTRL+C because user needs it for