showems.c

来源：互联网发布：电力系统谐波仿真软件编辑：程序博客网时间：2024/04/28 04:12

int check_for_ems(void)
{
     union REGS inregs, outregs;
     struct SREGS segs;

     int major, minor;   // DOS version

     struct DeviceHeader
   {
       struct DeviceHeader far *link;
       unsigned attributes;
       unsigned strategy_offset;
       unsigned interrupt_offset;
       char name_or_number_of_units[8];
     } far *dev;

int i;
char driver_name[9];

     // Get the DOS version
     inregs.x.ax = 0x3001;
     intdos (&inregs, &outregs);
     major = outregs.h.al;
     minor = outregs.h.ah;

     if (major < 2)
       return(0);     // Requires DOS 2.0
     else
       {
   // Get the list of lists
   inregs.h.ah = 0x52;
   intdosx (&inregs, &outregs, &segs);

   if (major == 2)
    dev = (struct DeviceHeader far *)
     MK_FP(segs.es + 1, outregs.x.bx + 7);
   else if ((major == 3) && (minor == 0))
    dev = (struct DeviceHeader far *)
     MK_FP(segs.es + 2, outregs.x.bx + 8);
   else
    dev = (struct DeviceHeader far *)
     MK_FP(segs.es + 2, outregs.x.bx + 2);

   while (FP_OFF(dev) != 0xFFFF)
    {
     if (dev->attributes & 0x8000)
   { // Character device
    for (i = 0; i < 8; i++)
     driver_name[i] = dev->name_or_number_of_units[i];
    driver_name[8] = NULL;
   }

     if (! strcmp(driver_name, "EMMXXXX0"))
   return(1);   // Found driver

     dev = dev->link;
    }
     }

return(0);
}

void main(void)
{
union REGS inregs, outregs;
struct SREGS segs;

    unsigned handle;
    unsigned page;
    unsigned index, page_number;

unsigned page_frame_address;

char far *data;

if (check_for_ems())
{
inregs.h.ah = 0x40;
int86 (0x67, &inregs, &outregs);

// Make sure EMS is functional
if (outregs.h.ah == 0)
   {
     // Allocate a handle for 5 pages
     inregs.h.ah = 0x43;
     inregs.x.bx = 5;
     int86 (0x67, &inregs, &outregs);

     if (outregs.h.ah == 0)
       {
   handle = outregs.x.dx;

   // Get the page frame address
   inregs.h.ah = 0x41;
   int86 (0x67, &inregs, &outregs);

   if (outregs.h.ah == 0)
     {
       page_frame_address = outregs.x.bx;

       // map the first 4 pages
       for (page_number = 0; page_number < 4; page_number++)
         {
     inregs.h.ah = 0x44;
     inregs.h.al = page_number; // Physical page
     inregs.x.bx = page_number; // Logical page
     inregs.x.dx = handle;

     int86 (0x67, &inregs, &outregs);

     if (outregs.h.ah != 0)
       {
          printf ("Error mapping pages %xH/n",
     outregs.h.ah);

          // Release the handle
          inregs.h.ah = 0x45;
          inregs.x.dx = handle;
          int86 (0x67, &inregs, &outregs);
          exit(0);
       }
         }
       // Fill the first four pages
       data = (char far *) MK_FP(page_frame_address, 0);

       for (index = 0; index < 16384; index++)
         data[index] = 'A';

for (index = 16384; index < 32768; index++)
data[index] = 'B';

for (index = 32768; index < 49152; index++)
data[index] = 'C';

for (index = 49152; index != 0; index++)
data[index] = 'D';

       // Map logical page 4 into physical page 1
       inregs.h.ah = 0x44;
       inregs.h.al = 1; // Physical page
       inregs.x.bx = 4; // Logical page
       inregs.x.dx = handle;

       int86 (0x67, &inregs, &outregs);

       if (outregs.h.ah != 0)
         {
     printf ("Error mapping page %xH/n",
       outregs.h.ah);

     // Release the handle
     inregs.h.ah = 0x45;
     inregs.x.dx = handle;
     int86 (0x67, &inregs, &outregs);
     exit(0);
         }

       // Fill page 4 which resides in page 1
       for (index = 16384; index < 32768; index++)
         data[index] = 'E';

       // Display the first 20 bytes of each page
       printf ("Physical Page Zero/n");
       for (index = 0; index < 20; index++)
         printf ("%c ", data[index]);

       printf ("/nPhysical Page One/n");
       for (index = 16384; index < 16404; index++)
         printf ("%c ", data[index]);

       printf ("/nPhysical Page Two/n");
       for (index = 32768; index < 32788; index++)
         printf ("%c ", data[index]);

       printf ("/nPhysical Page Three/n");
       for (index = 49152; index < 49172; index++)
         printf ("%c ", data[index]);

       // Map logical page 1 into physical page 3
       inregs.h.ah = 0x44;
       inregs.h.al = 3; // Physical page
       inregs.x.bx = 1; // Logical page
       inregs.x.dx = handle;

       int86 (0x67, &inregs, &outregs);

       if (outregs.h.ah != 0)
         {
     printf ("Error mapping page %xH/n",
       outregs.h.ah);

     // Release the handle
     inregs.h.ah = 0x45;
     inregs.x.dx = handle;
     int86 (0x67, &inregs, &outregs);
     exit(0);
         }

       printf ("/nMapping logical page 1 to physical page 3");
       printf ("/nPhysical Page Three/n");
       for (index = 49152; index < 49162; index++)
         printf ("%c ", data[index]);

     }
   else
     printf ("Error getting base address %xH/n",
       outregs.h.ah);

   // Release the handle
   inregs.h.ah = 0x45;
   inregs.x.dx = handle;
   int86 (0x67, &inregs, &outregs);
       }
     else
       printf ("Error allocating 5 pages %xH/n",
  outregs.h.ah);
   }
else
printf ("EMM not functional/n");
      }
    else
      printf ("EMS driver not present/n");

}