Subversion Repositories SvarDOS

Rev

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

Rev 517 Rev 526
Line 217... Line 217...
217 
        _asm {
 217 
        _asm {
218 
          mov ah, 0x47    /* DOS 2+ - CWD - GET CURRENT DIRECTORY */
 218 
          mov ah, 0x47    /* DOS 2+ - CWD - GET CURRENT DIRECTORY */
219 
          xor dl,dl       /* DL = drive number (00h = default, 01h = A:, etc) */
 219 
          xor dl,dl       /* DL = drive number (00h = default, 01h = A:, etc) */
220 
          mov si, s       /* DS:SI -> 64-byte buffer for ASCIZ pathname */
 220 
          mov si, s       /* DS:SI -> 64-byte buffer for ASCIZ pathname */
221 
          int 0x21
 221 
          int 0x21
- 
 
 222 
          jc DONE         /* leave path empty on error */
- 
 
 223 
          /* move s ptr forward to end (0-termintor) of pathname */
- 
 
 224 
          NEXTBYTE:
- 
 
 225 
          mov si, s
- 
 
 226 
          cmp byte ptr [si], 0
- 
 
 227 
          je DONE
- 
 
 228 
          inc s
- 
 
 229 
          jmp NEXTBYTE
- 
 
 230 
          DONE:
222 
        }
 231 
        }
223 
        while (*s != 0) s++; /* move ptr forward to end of pathname */
 - 
 
224 
        break;
 232 
        break;
225 
      case 'V':  /* $V = DOS version number */
 233 
      case 'V':  /* $V = DOS version number */
226 
      case 'v':
 234 
      case 'v':
227 
        s += sprintf(s, "VER"); /* TODO */
 235 
        s += sprintf(s, "VER"); /* TODO */
228 
        break;
 236 
        break;