idos0.c

/*____________________________________________________________________________
**
** File:          idos.c
**
** Description:   DOS interface
**____________________________________________________________________________
*/

#if !defined(__BORLANDC__)
/*   #error   This module must be compiled with Borland C++ */
#endif

#include <stdio.h>
#include <malloc.h>
#include <bios.h>
#include <dos.h>
#include "inter.h"
#include "check.h"

#ifdef __GNUC__
#include <go32.h>

#ifdef DEBUG
#include <stdarg.h>

void  debug(char *s,...)
{
   va_list  p;
   va_start(p,s);
   vprintf(s,p);
   va_end(p);
   putchar('\n');
   fflush(stdout);
   getch();
}
#endif

short peek(unsigned short seg,unsigned short offs)
{
   short res;
   dosmemget((seg<<4)+offs,2,&res);
   return(res);
}
void  poke(unsigned short seg,unsigned short offs,short value)
{
   dosmemput(&value,2,(seg<<4)+offs);
}
char  peekb(unsigned short seg,unsigned short offs)
{
   char res;
   dosmemget((seg<<4)+offs,1,&res);
   return(res);
}
void  pokeb(unsigned short seg,unsigned short offs,char value)
{
   dosmemput(&value,1,(seg<<4)+offs);
}
#endif

static
unsigned VideoMemSeg,VideoMemOffs;
static
int   old_mouse_x,old_mouse_y,old_buttons;

#define  QLEN  256
struct   DosEvent
{
   long     time;
   unsigned type;
   union
   {
      unsigned code;
      struct
      {
         int   x,y;
      } coord;
   } info;
};
static struct
DosEvent DosEventQueue[QLEN];
static
int   QueueHead,QueueTail;

static
int   AppendQueue(struct DosEvent *ev)
{
   int   NewTail;
   
   disable();
   ev->time=Timer();
   NewTail=QueueTail+1;
   if(NewTail>=QLEN)
      NewTail=0;
   if(NewTail!=QueueHead)
   {
      DosEventQueue[QueueTail]=*ev;
      QueueTail=NewTail;
      enable();
      return(1);
   }
   enable();
   return(0);
}
int   EventQueueEmpty(void)
{
   return(QueueHead==QueueTail);
}

void  ReadInEvents(void)
{
   struct
   DosEvent newevent;
   union REGS  r;
   int   new_mouse_x,new_mouse_y,new_buttons;

   disable();
   while(peek(0,0x41A)!=peek(0,0x41C))
   {
      newevent.type=/*bioskey(1);*/peek(0x40,peek(0,0x41A));
      newevent.time=Timer();
      enable();
      if((newevent.type&0xFF00)==0xE000)
         newevent.type=(newevent.type<<8)&0xFFFF;
      else if((newevent.type&0x00FF)!=0 || newevent.type==0x0300)
         newevent.type&=255;
      if(AppendQueue(&newevent))
         bioskey(0);
      disable();
   }
   enable();
   
   r.x.ax=3;
   int86(0x33,&r,&r);  /* qry pos & butt */
   
   new_mouse_x=(r.x.cx+4)/8;
   new_mouse_y=(r.x.dx+4)/8;
   new_buttons=((r.x.bx&1)?LEFT_BUTTON:0)
               |((r.x.bx&2)?RIGHT_BUTTON:0)
               |((r.x.bx&4)?CENTER_BUTTON:0);

   if(new_mouse_x!=old_mouse_x || new_mouse_y!=old_mouse_y) /* mouse movement */
   {
      newevent.type=M_MOVE;
      newevent.time=Timer();
      newevent.info.coord.x=new_mouse_x;
      newevent.info.coord.y=new_mouse_y;
      if(AppendQueue(&newevent))
      {
         old_mouse_x=new_mouse_x;
         old_mouse_y=new_mouse_y;
      }
   }
   if((old_buttons&LEFT_BUTTON) && !(new_buttons&LEFT_BUTTON))
   {
      newevent.type=M_RBUTTON;
      newevent.time=Timer();
      newevent.info.code=LEFT_BUTTON;
      if(AppendQueue(&newevent))
         old_buttons&=~LEFT_BUTTON;
   }
   if(!(old_buttons&LEFT_BUTTON) && (new_buttons&LEFT_BUTTON))
   {
      newevent.type=M_BUTTON;
      newevent.time=Timer();
      newevent.info.code=LEFT_BUTTON;
      if(AppendQueue(&newevent))
         old_buttons|=LEFT_BUTTON;
   }
   if((old_buttons&RIGHT_BUTTON) && !(new_buttons&RIGHT_BUTTON))
   {
      newevent.type=M_RBUTTON;
      newevent.time=Timer();
      newevent.info.code=RIGHT_BUTTON;
      if(AppendQueue(&newevent))
         old_buttons&=~RIGHT_BUTTON;
   }
   if(!(old_buttons&RIGHT_BUTTON) && (new_buttons&RIGHT_BUTTON))
   {
      newevent.type=M_BUTTON;
      newevent.time=Timer();
      newevent.info.code=RIGHT_BUTTON;
      if(AppendQueue(&newevent))
         old_buttons|=RIGHT_BUTTON;
   }
   if((old_buttons&CENTER_BUTTON) && !(new_buttons&CENTER_BUTTON))
   {
      newevent.type=M_RBUTTON;
      newevent.time=Timer();
      newevent.info.code=CENTER_BUTTON;
      if(AppendQueue(&newevent))
         old_buttons&=~CENTER_BUTTON;
   }
   if(!(old_buttons&CENTER_BUTTON) && (new_buttons&CENTER_BUTTON))
   {
      newevent.type=M_RBUTTON;
      newevent.time=Timer();
      newevent.info.code=CENTER_BUTTON;
      if(AppendQueue(&newevent))
         old_buttons|=CENTER_BUTTON;
   }
}
unsigned DosReadKey(int timeout)
{
   unsigned key;
   unsigned long start_timer=Timer();

   for(;;)
   {
      ReadInEvents();
      if(!EventQueueEmpty())
         break;
      if(timeout>=0 && Timer()-start_timer>=timeout)
         return(K_NONE);
   }

   switch(DosEventQueue[QueueHead].type)
   {
      case(M_MOVE):
         I_MouseX=DosEventQueue[QueueHead].info.coord.x;
         I_MouseY=DosEventQueue[QueueHead].info.coord.y;
         break;
      case(M_BUTTON):
      case(M_RBUTTON):
         I_LastButton=DosEventQueue[QueueHead].info.code;
         break;
   }
   I_LastTime=DosEventQueue[QueueHead].time;
   key=DosEventQueue[QueueHead].type;
   if(++QueueHead>=QLEN)
      QueueHead=0;

   return(key);
}

int   DosKeyPressed(void)
{
   ReadInEvents();
   return(!EventQueueEmpty());
}

void  DosSync(void) {}

void  DosBell(void)
{
   union REGS  r;
   r.x.ax=0x0E07;
   int86(0x10,&r,&r);
}

void  DosUpdateCell(unsigned x,unsigned y,unsigned offs,ScreenCell *cell)
{
   unsigned attr=0x07;

   (void)x;
   (void)y;

   if(cell->flags&COLOR)
      attr=cell->foreground|(cell->background<<4);
   if(cell->flags&REVERSE)
      attr=(attr>>4)|(attr<<4);
   if(cell->flags&BOLD)
      attr|=0x08;
   if(cell->flags&BLINK)
      attr|=0x80;

   poke(VideoMemSeg,VideoMemOffs+(offs<<1),(unsigned char)(cell->ch)+(attr<<8));
}

void  DosSetCursor(unsigned x,unsigned y,int type)
{
   union REGS  r;

   r.h.ah=15;
   int86(0x10,&r,&r);
   r.h.ah=2;
   r.h.dl=x;
   r.h.dh=y;
   int86(0x10,&r,&r);

   if(type==C_NORMAL)
   {
      int   font=peek(0,0x485);
      if(font==0)
         r.x.cx=0x0607;
      else
      {
         r.h.ch=(font*11+8)>>4;
         r.h.cl=(font*13+8)>>4;
      }
   }
   else if(type==C_LARGE)
   {
      r.x.cx=0x001F;
   }
   else
   {
      r.x.cx=0x2020;
   }
   r.h.ah=1;
   int86(0x10,&r,&r);
}

static   void  ResetScreen(void)
{
   union REGS  r;
   int   i;

   r.x.ax=0x0600;
   r.x.cx=0;
   r.h.dh=I_ScreenHeight-1;
   r.h.dl=I_ScreenWidth-1;
   r.h.bh=7;
   int86(0x10,&r,&r);

   DosSetCursor(0,0,C_NORMAL);

   if(I_ScreenType==S_EGA || I_ScreenType==S_VGA)
   {
      for(i=0; i<16; i++)
      {
         r.x.ax=0x1000;
         r.h.bl=i;
         r.h.bh=i%8;
         if(i&8)
            r.h.bh+=070;
         int86(0x10,&r,&r);

         if(I_ScreenType==S_VGA)
         {
            r.x.ax=0x1010;
            r.x.bx=i;
            if(i!=6)
            {
               r.h.dh=(i&4)?0xAA:0;
               r.h.ch=(i&2)?0xAA:0;
               r.h.cl=(i&1)?0xAA:0;
               if(i&8)
               {
                  r.h.dh+=0x55;
                  r.h.ch+=0x55;
                  r.h.cl+=0x55;
                  r.x.bx+=48;
               }
            }
            else
            {
               r.h.dh=0xAA;
               r.h.ch=0x55;
               r.h.cl=0;
            }
            int86(0x10,&r,&r);
         }
      }
   }
}

void  DosSuspend(void)
{
   ResetScreen();
/*   DeinstallHandlers();*/
}

void  DosResume(void)
{
/*   InstallHandlers();*/
}

void  DosCloseInterface(void)
{
/*   DeinstallHandlers();*/
   ResetScreen();
}

void  DosEgaDefineColor(unsigned color, Rgb rgb)
{
   union REGS  r;
   union REGS  r1;

   r.x.ax=0x1000; /* set one palette register */
   r.h.bl=color;
   r.h.bh=(((rgb.r>>1)&040) | ((rgb.g>>2)&020) | ((rgb.b>>3)&010)
    | ((rgb.r>>5)&004) | ((rgb.g>>6)&002) | ((rgb.b>>7)&001));
   int86(0x10,&r,&r1);

   r.h.bh|=070;        /* provide bold color */
   r.h.bl+=8;
   int86(0x10,&r,&r);
}
void  DosVgaDefineColor(unsigned color, Rgb rgb)
{
   union REGS  r;
   union REGS  r1;

   r.x.ax=0x1010;
   r.x.bx=color;
   r.h.dh=rgb.r>>2;
   r.h.ch=rgb.g>>2;
   r.h.cl=rgb.b>>2;
   int86(0x10,&r,&r1);

   r.x.bx+=64-8;        /* provide bold color */
   r.h.dh|=0x15;
   r.h.ch|=0x15;
   r.h.cl|=0x15;
   int86(0x10,&r,&r1);
}

void  DosInit(void)
{
   union REGS  r;
   unsigned equip;

   I_ScreenFlags=CONSOLE;
   QueueHead=QueueTail=0;

   r.h.ah=15;
   int86(0x10,&r,&r);

   if(r.h.al==7)
      VideoMemSeg=0xB000L;
   else
      VideoMemSeg=0xB800L;

   equip=peek(0,0x410);
   if((equip&0x30)==0x30)
   {
      I_ScreenType=S_MDA;
   }
   else
   {
      r.x.ax=0x1A00;
      int86(0x10,&r,&r);   /* query display code */
      if(r.h.al==0x1A)     /* check if the function is supported */
      {
         switch(r.h.bl)
         {
         case(1):
            I_ScreenType=S_MDA;
            break;
         case(2):
            I_ScreenType=S_CGA;
            I_ScreenFlags|=HAS_COLORS;
            I_ColorsNum=8;
            break;
         case(4):
            I_ScreenType=S_EGA;
            I_ScreenFlags|=HAS_COLORS/*|CAN_CHANGE_COLOR*/;
            I_ColorsNum=8;
            break;
         case(5):
            I_ScreenType=S_EGA;
            break;
         case(6):
            I_ScreenFlags|=HAS_COLORS;
            I_ColorsNum=8;
            break;
         case(7):
            I_ScreenType=S_VGA;
            break;
         case(8):
            I_ScreenType=S_VGA;
            I_ScreenFlags|=HAS_COLORS/*|CAN_CHANGE_COLOR*/;
            I_ColorsNum=8;
            break;
         case(11):
            break;
         case(12):
            I_ScreenFlags|=HAS_COLORS;
            I_ColorsNum=8;
            break;
         }
      }
      else
      {
         VideoMemSeg=0xB800L;
         I_ScreenFlags|=HAS_COLORS;
         I_ColorsNum=8;
      }
   }
   if(I_ScreenType==S_MDA)
   {
      I_ScreenWidth=80;
      I_ScreenHeight=25;
   }
   else
   {
      VideoMemOffs=peek(0,0x44E);   /* add page offset */

      I_ScreenWidth=peek(0,0x44A);
      I_ScreenHeight=peekb(0,0x484)+1;
      if(I_ScreenHeight==1)
         I_ScreenHeight=peek(0,0x44C)/I_ScreenWidth/2;
   }
   I_ScreenSize=I_ScreenWidth*I_ScreenHeight;
   CheckPtr(_I_Screen=(ScreenCell*)calloc(I_ScreenSize,sizeof(*_I_Screen)));
   if(I_ScreenFlags&HAS_COLORS)
   {
      short i;

      CheckPtr(_I_ColorMap=(Rgb*)calloc(I_ColorsNum,sizeof(*_I_ColorMap)));
      CheckPtr(_I_ColorInfo=(RgbState*)calloc(I_ColorsNum,sizeof(*_I_ColorInfo)));
      for(i=0; i<I_ColorsNum; i++)
      {
         _I_ColorMap[i].r=((i>>2)&1)*0xAA;
         _I_ColorMap[i].g=((i>>1)&1)*0xAA;
         _I_ColorMap[i].b=(i&1)*0xAA;
         if(i==0 || i==I_ColorsNum-1)
            _I_ColorInfo[i].flags|=READONLY;
      }
   }

   r.x.ax=0;
   int86(0x33,&r,&r);   /* check mouse presence */
   if(r.x.ax==0xFFFF)
   {
      I_ScreenFlags|=HAS_MOUSE;
      r.x.ax=3;  /* query mouse pos and buttons */
      int86(0x33,&r,&r);
      old_mouse_x=I_MouseX=(r.x.cx+4)/8;
      old_mouse_y=I_MouseY=(r.x.dx+4)/8;
      old_buttons=I_Buttons=((r.x.bx&1)?LEFT_BUTTON:0)
                           |((r.x.bx&2)?RIGHT_BUTTON:0)
                           |((r.x.bx&4)?CENTER_BUTTON:0);
   }

/*   InstallHandlers();*/

   _UpdateCell=DosUpdateCell;
   _CloseInterface=DosCloseInterface;
   _KeyPressed=DosKeyPressed;
   _ReadKey=DosReadKey;
   _SetCursor=DosSetCursor;
   _Sync=DosSync;
   _Redraw=NULL;
   _Suspend=DosSuspend;
   _Resume=DosResume;
   _Bell=DosBell;
   if(I_ScreenType==S_EGA)
   {
      _DefineColor=DosEgaDefineColor;
      I_ScreenFlags|=CAN_CHANGE_COLOR;
   }
   else if(I_ScreenType==S_VGA)
   {
      _DefineColor=DosVgaDefineColor;
      I_ScreenFlags|=CAN_CHANGE_COLOR;
   }

   ResetScreen();
}