124 lines
3.9 KiB
C
124 lines
3.9 KiB
C
/****************************************************************/
|
|
/* */
|
|
/* syspack.c */
|
|
/* */
|
|
/* System Disk Byte Order Packing Functions */
|
|
/* */
|
|
/* Copyright (c) 1995 */
|
|
/* Pasquale J. Villani */
|
|
/* All Rights Reserved */
|
|
/* */
|
|
/* This file is part of DOS-C. */
|
|
/* */
|
|
/* DOS-C is free software; you can redistribute it and/or */
|
|
/* modify it under the terms of the GNU General Public License */
|
|
/* as published by the Free Software Foundation; either version */
|
|
/* 2, or (at your option) any later version. */
|
|
/* */
|
|
/* DOS-C is distributed in the hope that it will be useful, but */
|
|
/* WITHOUT ANY WARRANTY; without even the implied warranty of */
|
|
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See */
|
|
/* the GNU General Public License for more details. */
|
|
/* */
|
|
/* You should have received a copy of the GNU General Public */
|
|
/* License along with DOS-C; see the file COPYING. If not, */
|
|
/* write to the Free Software Foundation, 675 Mass Ave, */
|
|
/* Cambridge, MA 02139, USA. */
|
|
/* */
|
|
/****************************************************************/
|
|
|
|
#include "portab.h"
|
|
#include "globals.h"
|
|
|
|
#ifdef VERSION_STRINGS
|
|
static BYTE *syspackRcsId =
|
|
"$Id: syspack.c 485 2002-12-09 00:17:15Z bartoldeman $";
|
|
#endif
|
|
|
|
#ifdef NONNATIVE
|
|
UDWORD getlong(REG VOID * vp)
|
|
{
|
|
return (((UBYTE *) vp)[0] & 0xff) +
|
|
((((UBYTE *) vp)[1] & 0xff) << 8) +
|
|
((((UBYTE *) vp)[2] & 0xff) << 16) +
|
|
((((UBYTE *) vp)[3] & 0xff) << 24);
|
|
}
|
|
|
|
UWORD getword(REG VOID * vp)
|
|
{
|
|
return (((UBYTE *) vp)[0] & 0xff) + ((((UBYTE *) vp)[1] & 0xff) << 8);
|
|
}
|
|
|
|
UBYTE getbyte(VOID * vp)
|
|
{
|
|
return *((BYTE *) vp);
|
|
}
|
|
|
|
UWORD fgetword(REG VOID FAR * vp)
|
|
{
|
|
return (((UBYTE FAR *) vp)[0] & 0xff) + ((((UBYTE FAR *) vp)[1] & 0xff) << 8);
|
|
}
|
|
|
|
UDWORD fgetlong(REG VOID FAR * vp)
|
|
{
|
|
return (((UBYTE *) vp)[0] & 0xff) +
|
|
((((UBYTE *) vp)[1] & 0xff) << 8) +
|
|
((((UBYTE *) vp)[2] & 0xff) << 16) +
|
|
((((UBYTE *) vp)[3] & 0xff) << 24);
|
|
}
|
|
|
|
UBYTE fgetbyte(VOID FAR * vp)
|
|
{
|
|
return *((UBYTE FAR *) vp);
|
|
}
|
|
|
|
VOID fputlong(VOID FAR * vp, UDWORD l)
|
|
{
|
|
REG UBYTE FAR *bp = (UBYTE FAR *) vp;
|
|
|
|
bp[0] = l & 0xff;
|
|
bp[1] = (l >> 8) & 0xff;
|
|
bp[2] = (l >> 16) & 0xff;
|
|
bp[3] = (l >> 24) & 0xff;
|
|
}
|
|
|
|
VOID fputword(VOID FAR * vp, UWORD w)
|
|
{
|
|
REG UBYTE FAR *bp = (UBYTE FAR *) vp;
|
|
|
|
bp[0] = w & 0xff;
|
|
bp[1] = (w >> 8) & 0xff;
|
|
}
|
|
|
|
VOID fputbyte(VOID FAR * vp, UBYTE b)
|
|
{
|
|
*(UBYTE FAR *) vp = b;
|
|
}
|
|
|
|
VOID getdirent(UBYTE FAR * vp, struct dirent FAR * dp)
|
|
{
|
|
fmemcpy(dp->dir_name, &vp[DIR_NAME], FNAME_SIZE + FEXT_SIZE);
|
|
dp->dir_attrib = fgetbyte(&vp[DIR_ATTRIB]);
|
|
dp->dir_time = fgetword(&vp[DIR_TIME]);
|
|
dp->dir_date = fgetword(&vp[DIR_DATE]);
|
|
dp->dir_start = fgetword(&vp[DIR_START]);
|
|
dp->dir_size = fgetlong(&vp[DIR_SIZE]);
|
|
}
|
|
|
|
VOID putdirent(struct dirent FAR * dp, UBYTE FAR * vp)
|
|
{
|
|
REG COUNT i;
|
|
REG BYTE FAR *p;
|
|
|
|
fmemcpy(&vp[DIR_NAME], dp->dir_name, FNAME_SIZE + FEXT_SIZE);
|
|
fputbyte(&vp[DIR_ATTRIB], dp->dir_attrib);
|
|
fputword(&vp[DIR_TIME], dp->dir_time);
|
|
fputword(&vp[DIR_DATE], dp->dir_date);
|
|
fputword(&vp[DIR_START], dp->dir_start);
|
|
fputlong(&vp[DIR_SIZE], dp->dir_size);
|
|
for (i = 0, p = (UBYTE FAR *) & vp[DIR_RESERVED]; i < 10; i++)
|
|
*p++ = NULL;
|
|
}
|
|
#endif
|
|
|