; -----------------------------------------------------
; Get current time
; Utilise int 21h, function 2Ch
;
; ES:DI doit pointer vers un buffer
; où sera stockée l'heure au format HHMMSSHH
; -----------------------------------------------------
_get_time PROC FAR
PUBLIC _get_time
push bp
mov ah, 2ch
int 21h
cld
; now : ch=hours, cl=minutes, dh=seconds, dl=hundreths of second
xor ah, ah
mov al, ch
mov bl, 10
div bl
add al, 30h
stosb
xchg al, ah
add al, 30h
stosb
xor ah, ah
mov al, cl
xor ah, ah
mov bl, 10
div bl
add al, 30h
stosb
xchg al, ah
add al, 30h
stosb
xor ah, ah
mov al, dh
mov bl, 10
div bl
add al, 30h
stosb
xchg al, ah
add al, 30h
stosb
xor ah, ah
mov al, dl
mov bl, 10
div bl
add al, 30h
stosb
xchg al, ah
add al, 30h
stosb
pop bp
retf
_get_time ENDP |
