home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / CPROG / DATE1.ZIP / DOSDATE.ASM < prev    next >
Assembly Source File  |  1985-03-01  |  1KB  |  47 lines
  1. ;                         *** dosdate.asm ***
  2. ;
  3. ; IBM-PC microsoft "C" under PC-DOS
  4. ;
  5. ; Microsoft "C" callable 8088 assembly routine that uses a DOS function
  6. ; call to obtain and return the month, day, and year as integers.
  7. ;
  8. ; synopsis    dosdate(&imo,&iday,&iyr);
  9. ;
  10. ;        *** no function value returned ***
  11. ;        int imo;    1-12
  12. ;        int iday;    1-31
  13. ;        int iyr;    1980-2099
  14. ;
  15. ; Written by L. Cuthbertson, May 1984
  16. ;
  17. ;**********************************************************************
  18. ;
  19. PGROUP    GROUP    PROG
  20. PROG    SEGMENT    BYTE PUBLIC 'PROG'
  21.     PUBLIC    DOSDATE
  22.     ASSUME    CS:PGROUP
  23. ;
  24. ; ********************************************************************
  25. ;
  26. DOSDATE    PROC    NEAR
  27.     PUSH    BP
  28.     MOV    BP,SP
  29.     MOV    AH,2AH        ; DOS GET DATE FUNCTION NUMBER
  30.     INT    21H        ; DOS FUNCTION CALL INTERRUPT
  31.     MOV    AL,DH        ; MOVE MONTH INTO AX
  32.     XOR    AH,AH        ; CLEAR HIGH BYTE
  33.     MOV    DI,[BP+4]    ; ADDRESS OF MONTH VARIABLE
  34.     MOV    [DI],AX        ; MOVE MONTH INTO MONTH VARIABLE
  35.     MOV    BL,DL        ; MOVE DAY INTO BX
  36.     XOR    BH,BH        ; CLEAR HIGH BYTE
  37.     MOV    DI,[BP+6]    ; ADDRESS OF DAY VARIABLE
  38.     MOV    [DI],BX        ; MOVE DAY INTO DAY VARIABLE
  39.     MOV    DI,[BP+8]    ; ADDRESS OF YEAR VARIABLE
  40.     MOV    [DI],CX        ; MOVE YEAR INTO YEAR VARIABLE
  41.     POP    BP
  42.     RET
  43. DOSDATE    ENDP
  44. ;
  45. PROG    ENDS
  46.     END
  47.