include qlib.inc
include dos.inc

.code

gettime proc,a:dword
  pushad

  mov ah,2ch
  int 21h
  mov edi,a
  mov [edi].time.ti_hour,ch
  mov [edi].time.ti_min,cl
  mov [edi].time.ti_sec,dh
  mov [edi].time.ti_hund,dl

  popad
  ret
gettime endp

settime proc,a:dword
  pushad

  mov edi,a
  mov ch,[edi].time.ti_hour
  mov cl,[edi].time.ti_min
  mov dh,[edi].time.ti_sec
  mov dl,[edi].time.ti_hund
  mov ah,2dh
  int 21h

  popad
  ret
settime endp

end