home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / decus / RB101 / sdate.asm < prev    next >
Assembly Source File  |  1995-05-19  |  640b  |  31 lines
  1.     title SDATE - GET SYSTEM DATE
  2. DATA    SEGMENT PUBLIC 'DATA'
  3. DATA    ENDS
  4. DGROUP    GROUP DATA
  5. CODE    SEGMENT 'CODE'
  6.     ASSUME CS:CODE,DS:DGROUP,SS:DGROUP
  7. PUBLIC SDATE
  8. SDATE PROC FAR
  9.     PUSH BP    ;PUSH FRAME POINTER
  10.     MOV    BP,SP
  11.     LES    BX,DWORD PTR [BP+14] ;ES:BX IS ADDR OF 1ST ARG
  12. ; CALL SDATE(YY,MM,DD) RETURNS ALL 3
  13.     MOV    AH,2AH    ;DO DOS GET-DATE
  14.     INT    21H    ;CALL DOS
  15. ;CX=YEAR
  16. ;DH=MONTH
  17. ;DL IS DAY
  18.     MOV    ES:[BX],CX ;COPY YEAR
  19.     LES    BX,DWORD PTR [BP+10]
  20.     MOV    ES:[BX],DH    ;COPY MONTH
  21.     LES    BX,DWORD PTR [BP+6]
  22.     MOV    ES:[BX],DL ;COPY DAY
  23. ;
  24.     MOV    SP,BP
  25.     POP    BP    ;RESTORE FRAME POINTER
  26.     RET    0CH    ;RETURN, POP 8 BYTES
  27. SDATE    ENDP
  28. CODE    ENDS
  29. END
  30.  
  31.