home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
pascal
/
tplib21.zip
/
INSTALL.EXE
/
DATE.ASM
< prev
next >
Wrap
Assembly Source File
|
1993-06-24
|
2KB
|
62 lines
; TURBO PASCAL LIBRARY 2.1
; Date routines module
TITLE UNIT TIME: Date routines module
PAGE 66,132
%BIN 12
CODE SEGMENT WORD
ASSUME CS:CODE
LOCALS
PUBLIC SETCOUNTRY,GETTODAY
EXTRN BRITISHFORMAT: BYTE;
; PROCEDURE SetCountry
; Call DOS to set BritishFormat flag if DMY date format required
SETCOUNTRY PROC NEAR
PUSH BP
PUSH DS
SUB SP,22H ; Allocate space for buffer
MOV AX,SS
MOV DS,AX ; Point DS:DX to local storage
MOV DX,SP
MOV AX,3800H ; Call DOS to get information
INT 21H
MOV BP,SP
MOV AX,[BP] ; Get date format code in AX
ADD SP,22H ; Dispose of local buffer
AND AL,01H
POP DS
POP BP
MOV DS:[BRITISHFORMAT],AL ; Store flag
RET
SETCOUNTRY ENDP
; PROCEDURE GetToDay (VAR Dt: DateRec)
; Return system date in Dt
GETTODAY PROC FAR
PUSH BP
MOV AH,2AH ; Call DOS to get system date
INT 21H
POP BP
POP AX ; Get return addr. from stack
POP BX
POP DI ; Point ES:DI to Dt record
POP ES
PUSH BX
PUSH AX ; Replace return address
MOV ES:[DI],DH ; Month
MOV ES:[DI+1],DL ; Day
MOV ES:[DI+2],CX ; Year
RET
GETTODAY ENDP
CODE ENDS
END