Subversion Repositories SvarDOS

Rev

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

Rev 1557 Rev 1559
Line 24... Line 24...
24 
    ((char far *)dst)[len] = ((char far *)src)[len];
 24 
    ((char far *)dst)[len] = ((char far *)src)[len];
25 
  }
 25 
  }
26 
  return(dst);
 26 
  return(dst);
27 
}
 27 
}
28 
 
 28 
 
29 
unsigned short mdr_dos_fopen(const char *fname, unsigned short *fhandle) {
 - 
 
30 
  unsigned short res = 0;
 - 
 
31 
  unsigned short handle = 0;
 - 
 
32 
  _asm {
 - 
 
33 
    push cx
 - 
 
34 
    push dx
 - 
 
35 
 
 - 
 
36 
    mov ax, 0x3d00
 - 
 
37 
    mov dx, fname
 - 
 
38 
    xor cl, cl
 - 
 
39 
    int 0x21
 - 
 
40 
    jc err
 - 
 
41 
    mov handle, ax
 - 
 
42 
    jmp done
 - 
 
43 
    err:
 - 
 
44 
    mov res, ax
 - 
 
45 
    done:
 - 
 
46 
 
 - 
 
47 
    pop dx
 - 
 
48 
    pop cx
 - 
 
49 
  }
 - 
 
50 
  *fhandle = handle;
 - 
 
51 
  return(res);
 - 
 
52 
}
 - 
 
53 
 
 - 
 
54 
 
 - 
 
55 
unsigned short mdr_dos_fclose(unsigned short handle) {
 29 
unsigned short mdr_dos_fclose(unsigned short handle) {
56 
  unsigned short res = 0;
 30 
  unsigned short res = 0;
57 
  _asm {
 31 
  _asm {
58 
    push bx
 32 
    push bx
59 
 
 33