include qlib.inc
include dos.inc

.code
getdate proc,a:dword
  pushad

  mov ah,2ah
  int 21h
  mov edi,a
  mov [edi].date.da_year,cx
  mov [edi].date.da_day,dl
  mov [edi].date.da_mon,dh

  popad
  ret
getdate endp

setdate proc,a:dword
  pushad

  mov edi,a
  mov cx,[edi].date.da_year
  mov dl,[edi].date.da_day
  mov dh,[edi].date.da_mon
  mov ah,2bh
  int 21h

  popad
  ret
setdate endp

end