mirror of https://github.com/AR1972/DOS3.3
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
48 lines
999 B
48 lines
999 B
/* return the system variables in sysVars */
|
|
|
|
#include "types.h"
|
|
#include "sysvar.h"
|
|
#include <dos.h>
|
|
|
|
GetVars(pSVars)
|
|
struct sysVarsType *pSVars ;
|
|
{
|
|
struct sysVarsType far *vptr ;
|
|
int i ;
|
|
|
|
union REGS ir ;
|
|
register union REGS *iregs = &ir ; /* Used for DOS calls */
|
|
struct SREGS syssegs ;
|
|
|
|
iregs->h.ah = GETVARS ; /* Function 0x52 */
|
|
intdosx(iregs, iregs, &syssegs) ;
|
|
|
|
*(long *)(&vptr) = (((long)syssegs.es) << 16)+(iregs->x.bx & 0xffffL) ;
|
|
|
|
for (i=0 ; i <= sizeof(*pSVars) ; i++)
|
|
*((char *)pSVars+i) = *((char far *)vptr+i) ;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
PutVars(pSVars)
|
|
struct sysVarsType *pSVars ;
|
|
{
|
|
struct sysVarsType far *vptr ;
|
|
int i ;
|
|
|
|
union REGS ir ;
|
|
register union REGS *iregs = &ir ; /* Used for DOS calls */
|
|
struct SREGS syssegs ;
|
|
|
|
iregs->h.ah = GETVARS ; /* Function 0x52 */
|
|
intdosx(iregs, iregs, &syssegs) ;
|
|
|
|
*(long *)(&vptr) = (((long)syssegs.es) << 16)+(iregs->x.bx & 0xffffL) ;
|
|
|
|
for (i=0 ; i <= sizeof(*pSVars) ; i++)
|
|
*((char far *)vptr+i) = *((char *)pSVars+i) ;
|
|
|
|
}
|