miscemu/int1a.c

   1 #include <time.h>
   2 #include <stdio.h>
   3 #include <stdlib.h>
   4 #include "registers.h"
   5 #include "wine.h"
   6 #include "options.h"
   7 #include "miscemu.h"
   8 #include "stddebug.h"
   9 /* #define DEBUG_INT */
  10 #include "debug.h"
  11
  12 #ifdef linux
  13 #define inline __inline__  /* So we can compile with -ansi */
  14 #include <linux/sched.h> /* needed for HZ */
  15 #undef inline
  16 #endif
  17
  18 #define BCD_TO_BIN(x) ((x&15) + (x>>4)*10)
  19 #define BIN_TO_BCD(x) ((x%10) + ((x/10)<<4))
  20
  21 int do_int1a(struct sigcontext_struct * context){
  22         time_t ltime, ticks;
  23         struct tm *bdtime;
  24
  25     if (debugging_relay) {
  26         fprintf(stddeb,"int1A: AX %04x, BX %04x, CX %04x, DX %04x, "
  27                "SI %04x, DI %04x, DS %04x, ES %04x\n",
  28                AX, BX, CX, DX, SI, DI, DS, ES);
  29     }
  30
  31         switch(AH) {
  32         case 0:
  33                 ltime = time(NULL);
  34                 ticks = (int) (ltime * HZ);
  35                 CX = ticks >> 16;
  36                 DX = ticks & 0x0000FFFF;
  37                 AX = 0;  /* No midnight rollover */
  38                 dprintf_int(stddeb,"int1a_00 // ltime=%ld ticks=%ld\n",
  39                         ltime, ticks);
  40                 break;
  41
  42         case 2:
  43                 ltime = time(NULL);
  44                 bdtime = localtime(&ltime);
  45
  46                 CX = (BIN_TO_BCD(bdtime->tm_hour)<<8) | BIN_TO_BCD(bdtime->tm_min);
  47                 DX = (BIN_TO_BCD(bdtime->tm_sec)<<8);
  48
  49         case 4:
  50                 ltime = time(NULL);
  51                 bdtime = localtime(&ltime);
  52                 CX = (BIN_TO_BCD(bdtime->tm_year/100)<<8) | BIN_TO_BCD((bdtime->tm_year-1900)%100);
  53                 DX = (BIN_TO_BCD(bdtime->tm_mon)<<8) | BIN_TO_BCD(bdtime->tm_mday);
  54                 break;
  55
  56                 /* setting the time,date or RTC is not allow -EB */
  57         case 1:
  58                 /* set system time */
  59         case 3:
  60                 /* set RTC time */
  61         case 5:
  62                 /* set RTC date */
  63         case 6:
  64                 /* set ALARM */
  65         case 7:
  66                 /* cancel ALARM */
  67                 break;
  68
  69         default:
  70                 IntBarf(0x1a, context);
  71                 return 1;
  72         };
  73         return 1;
  74 }