MZ is back!HEADmain

1 files changed, 49 insertions, 0 deletions

diff --git a/v4.0/src/INC/SYSVAR.C b/v4.0/src/INC/SYSVAR.C
new file mode 100644
index 0000000..300d02f
--- /dev/null
+++ b/v4.0/src/INC/SYSVAR.C
@@ -0,0 +1,49 @@
+/* return the system variables in sysVars */
+
+#include "sysvar.h"
+#include <dos.h>
+#include "jointype.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) ;
+
+}
+
\ No newline at end of file