Subversion Repositories SvarDOS

Rev

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

Rev 1671 Rev 1672
Line 671... Line 671...
671
      const char *list[3];
671
      const char *list[3];
672
      list[0] = svarlang_strid(0x0001); /* Install SvarDOS */
672
      list[0] = svarlang_strid(0x0001); /* Install SvarDOS */
673
      list[1] = svarlang_strid(0x0002); /* Quit to DOS */
673
      list[1] = svarlang_strid(0x0002); /* Quit to DOS */
674
      list[2] = NULL;
674
      list[2] = NULL;
675
      snprintf(buff, sizeof(buff), svarlang_strid(0x0306), cselecteddrive); /* "The installation of SvarDOS to %c: is about to begin." */
675
      snprintf(buff, sizeof(buff), svarlang_strid(0x0306), cselecteddrive); /* "The installation of SvarDOS to %c: is about to begin." */
676
      mdr_cout_str(7, 40 - strlen(buff), buff, COLOR_BODY, 80);
676
      mdr_cout_str(7, 40 - (strlen(buff) / 2), buff, COLOR_BODY, 80);
677
      choice = menuselect(10, 2, list, -1);
677
      choice = menuselect(10, 2, list, -1);
678
      if (choice < 0) return(MENUPREV);
678
      if (choice < 0) return(MENUPREV);
679
      if (choice == 1) return(MENUQUIT);
679
      if (choice == 1) return(MENUQUIT);
680
      snprintf(buff, sizeof(buff), "SYS %c: %c: > NUL", sourcedrv, cselecteddrive);
680
      snprintf(buff, sizeof(buff), "SYS %c: %c: > NUL", sourcedrv, cselecteddrive);
681
      system(buff);
681
      system(buff);
Line 999... Line 999...
999
      mov ax, 0x4e00  /* findfirst */
999
      mov ax, 0x4e00  /* findfirst */
1000
      mov cx, 0x08    /* file attr mask, 0x08 = volume label */
1000
      mov cx, 0x08    /* file attr mask, 0x08 = volume label */
1001
      mov dx, fspec
1001
      mov dx, fspec
1002
      int 0x21
1002
      int 0x21
1003
      jnc good
1003
      jnc good
1004
      xor ah, ah
-
 
1005
      xchg bx, dx
1004
      mov bx, res
1006
      mov [bx], ah
1005
      mov [bx], byte ptr 0
1007
      xchg bx, dx
-
 
1008
      good:
1006
      good:
1009
 
1007
 
1010
      pop dx
1008
      pop dx
1011
      pop cx
1009
      pop cx
1012
    }
1010
    }