home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 12 / tricks / ttick.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-09-12  |  955 b   |  38 lines
  1. /* ------------------------------------------------------ */
  2. /*                      TTICK.C                           */
  3. /*         (c) 1990  Helmut Nebauer & TOOLBOX             */
  4. /* ------------------------------------------------------ */
  5. #ifndef MK_FP
  6.   #define MK_FP(seg, ofs) \
  7.                ((void far *) \
  8.                ((unsigned long) (seg) << 16 | (ofs)))
  9. #endif
  10.  
  11. void TDelay(unsigned T_Ticks)
  12. {
  13. long Vergl_Tick, Merk_Tick, Korr_Tick;
  14. long *Timer_Adr;
  15.  
  16.   Korr_Tick  = 0L;
  17.   Timer_Adr  = MK_FP(0x40, 0x6C);
  18.   Merk_Tick  = *Timer_Adr;
  19.   Vergl_Tick = Merk_Tick + T_Ticks;
  20.  
  21.   while (Merk_Tick < Vergl_Tick)
  22.   {
  23.     if (Korr_Tick == 0L)
  24.     {
  25.       if (*Timer_Adr < Merk_Tick)
  26.       Korr_Tick = Merk_Tick;
  27.     }
  28.     Merk_Tick = *Timer_Adr + Korr_Tick;
  29.   }
  30. }
  31.  
  32. main()
  33. {
  34.   TDelay(1000);
  35. }
  36. /* ------------------------------------------------------ */
  37. /*                 Ende von TTICK.C                       */
  38.