home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / TIME4.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  2KB  |  67 lines
  1.     page    66,132
  2. ;******************************** TIME4.ASM  *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. ;----------------------------------------------------------------------------
  13.     EXTRN    DATE_TO_DAYS:FAR
  14. comment 
  15. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  TIME  )
  16. GET_DATE - Returns the current SYSTEM date and day of the week.
  17. ;
  18. ; input:  None
  19. ; 
  20. ; output: Current SYSTEM date, in dword format:
  21. ;      DX        year (1980-2099)
  22. ;      AH        month (1-12)
  23. ;      AL        day (1-31)
  24. ;         CL        day-of-the-week (number of days since Sunday)
  25. ;* * * * * * * * * * * * * *
  26. 
  27.     public        get_date
  28. get_date    proc    far
  29.         push    bx        ;save temporary register
  30.         mov    bh,ch        ;BH holds original CH
  31.         mov    ah,2Ah        ;DOS function to get date
  32.         int    21h
  33.         xchg    ax,cx        ;CL=day-of-week (AX=year)
  34.         xchg    ax,dx        ;DX=year; AX=month and day
  35.         mov    ch,bh        ;restore CH
  36.         pop    bx
  37.         retf
  38. get_date    endp
  39. comment 
  40. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  TIME  )
  41. GET_DAY - Returns the day of the week for a given date.
  42. ;
  43. ; input: Date for which day of week should be determined, in dword
  44. ;      DX        year (1980-2099)
  45. ;      AH        month (1-12)
  46. ;      AL        day (1-31)
  47. ;
  48. ; output: CL        day of the week (0-6)
  49. ;* * * * * * * * * * * * * *
  50. 
  51.     public        get_day
  52. get_day    proc    far
  53.         apush    ax,bx,dx
  54.         call    date_to_days    ;AX = days since 01-01-80 
  55.         add    ax,2        ;because 01-01-80 was Tuesday
  56.         xor    dx,dx        ;DX = 0
  57.         mov    bx,7        ;mod 7...
  58.         div    bx        ;DX = day of week
  59.         mov    cl,dl        ;CL = day of week
  60.         apop    ax,bx,dx
  61.         retf
  62. get_day        endp
  63.  
  64.  
  65. LIBSEG    ENDS
  66.     end
  67.