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