miscemu/int1a.c

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