Path: utzoo!attcan!uunet!husc6!bu-cs!madd
From: madd@bu-cs.BU.EDU (Jim Frost)
Newsgroups: comp.sys.ibm.pc
Subject: Re: Turbo Pascal 3.0 Question (Get Date function)
Message-ID: <23708@bu-cs.BU.EDU>
Date: 8 Jul 88 01:49:39 GMT
References: <10770@cisunx.UUCP> <11757@agate.BERKELEY.EDU>
Reply-To: madd@bu-it.bu.edu (Jim Frost)
Followup-To: comp.sys.ibm.pc
Distribution: na
Organization: Boston University Distributed Systems Group
Lines: 22

In article <11757@agate.BERKELEY.EDU> swillett@violet.berkeley.edu writes:
[how to call the MS-DOS getdate function]

The Turbo Pascal 3.0 way to do it is:

type registers = record
  ax,bx,cx,dx,bp,si,di,ds,es,flags : integer
end;

procedure getdate(var year,month,day,weekday : integer);
var r : registers;
begin
  r.ax:= $2A00;
  msdos(r);
  year:= cx;
  month:= hi(dx);
  day:= lo(dx);
  weekday:= lo(ax);
end;

jim frost
madd@bu-it.bu.edu