home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / MSDATE.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-12-15  |  821 b   |  44 lines
  1. ;
  2. ; subroutine date: assembly language routine to allow the acquisition
  3. ; of the current date
  4. ;
  5. ; fortran call is : call date(month,day,year) 
  6. ;
  7. ; where: month = munber of month(1-12), day = number of day(1-31)
  8. ;       year = current year(1980-2099)
  9. ;
  10. ;    interface to ms-fortran 3.2
  11.  
  12. frame        struc
  13. savebp    dw    ?
  14. saveret    dd    ?
  15. year        dd    ?
  16. day        dd    ?
  17. month        dd    ?
  18. frame        ends
  19.  
  20. ;
  21. code        segment    'code'
  22.         assume    cs:code
  23. date        proc        far
  24.         public    date
  25.         push    bp
  26.         mov    bp,sp
  27.         mov    ah,2ah
  28.         int    21h
  29.         les    bx,[bp]+year    ; point to year
  30.         mov    es:[bx],cx        ; cx = year in binary
  31.         mov    al,dh            ; get month to al
  32.         cbw                ; zero extend
  33.         les    bx,[bp]+month
  34.         mov    es:[bx],ax
  35.         mov    al,dl            ; get day to al, ah=0
  36.         les    bx,[bp]+day
  37.         mov    es:[bx],ax        ; store day
  38.  
  39.         pop    bp
  40.         ret    12
  41. date        endp
  42. code        ends
  43.         end
  44.