home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / tplib21.zip / INSTALL.EXE / TIME.ASM < prev    next >
Assembly Source File  |  1993-06-24  |  1KB  |  36 lines
  1. ;               TURBO PASCAL LIBRARY 2.1
  2. ;               Time routines module
  3.  
  4.                 TITLE   UNIT TIME:  Time routines module
  5.                 PAGE    66,132
  6.                 %BIN    12
  7.  
  8. CODE            SEGMENT WORD
  9.                 ASSUME  CS:CODE
  10.                 LOCALS
  11.                 PUBLIC  GETTIMENOW
  12.  
  13.  
  14. ;               PROCEDURE GetTimeNow (VAR Tm: TimeRec);
  15. ;               Return current system time in Tm
  16.  
  17. GETTIMENOW      PROC    FAR
  18.                 POP     BX                      ; Keep return address
  19.                 POP     CX
  20.                 POP     DI
  21.                 POP     ES                      ; Point ES:DI to record
  22.                 PUSH    CX
  23.                 PUSH    BX                      ; Put return addr back on stack
  24.                 MOV     AH,2CH
  25.                 INT     21H                     ; Call DOS to get system time
  26.                 XCHG    CH,CL
  27.                 MOV     ES:[DI],CX              ; Store hours and minutes
  28.                 MOV     ES:[DI+2],DH            ; Store seconds
  29.                 RET
  30. GETTIMENOW      ENDP
  31.  
  32. CODE            ENDS
  33.  
  34.                 END
  35.  
  36.