home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BURKS 2
/
BURKS_AUG97.ISO
/
BURKS
/
SOFTWARE
/
LIBS
/
PMC101.ZIP
/
LIBSRC.ZIP
/
DIRCUR.C
(
.txt
)
< prev
next >
Wrap
C/C++ Source or Header
|
1994-06-22
|
469b
|
28 lines
#include "pmc.h"
long __pascal dircurrent (STR buf)
{
REGSTRUCT rs;
STR tmpbuf = buf;
int r;
rs.w.FLAGS = rs.d.SSSP = 0;
rs.b.DL = 0;
rs.b.AH = 0x47;
if (((DWORD)buf + database) > 0xfffff)
tmpbuf = _lowbufptr;
rs.w.DS = (DWORD)tmpbuf + database >> 4;
rs.w.SI = (DWORD)tmpbuf + database & 15;
if ((r = xlt_simrmint (0x21, &rs, 0)) < 0)
return r;
if (tmpbuf != buf)
strcpy (buf, tmpbuf);
return 0;
}