sources/new-s5r4/nonstand.c

   1 #include "depend.h"
   2 #include "genint.h"
   3 #include "int.h"
   4 #include "process.h"
   5 #include "intproto.h"
   6
   7 #include "nonstand.h"
   8
   9 /* Call (non)standard procedures.
  10  * Almost totaly implementation dependent.
  11  */
  12
  13 bool graphmode = FALSE;                 /* TRUE iff graphics mode active */
  14
  15
  16 #ifndef NO_GRAPH
  17 #  if DJE
  18 #     include "svga1.c"
  19 #  elif MSDOS
  20 #     include "dosgraf1.c"
  21 #  elif UNIX
  22 #     include "x11graf1.c"
  23 #  endif
  24 #endif
  25
  26
  27
  28 void nonstandard(nrproc)                /* Call (non)standard procedure */
  29 word nrproc;
  30 {
  31
  32    word am;
  33    int cnt=0;
  34    float r1, r2;
  35    word ax,bx,cx,dx,i,t1,t2;
  36    unsigned int v,p,h,l,r,c;
  37    unsigned int Res_graph_X,Res_graph_Y;
  38
  39     switch ((int) nrproc)
  40     {
  41
  42
  43 #ifndef NO_GRAPH
  44 #  if DJE
  45 #     include "svga2.c"
  46 #  elif MSDOS
  47 #     include "dosgraf2.c"
  48 #  elif OS2
  49 #     include "os2graf2.c"
  50 #  elif UNIX
  51 #     include "x11graf2.c"
  52 #  else only /*INKEY defined */
  53           case INKEY:
  54                 param[ 0 ].xword = inkey();
  55                      break;
  56 #  endif
  57 #endif
  58
  59         default  :
  60                 errsignal(RTEUNSTP);
  61     }
  62 }
  63